Digital PDFs

AH-A920B-MC

January 1979

137 pages

Original

7.7MB

view download

OCR Version

6.3MB

view download

Document:	CZDZCB0 VT62-DZ11 SELF TEST JAN 1979 bw
Order Number:	AH-A920B-MC
Revision:	000
Pages:	137
Original Filename:	CZDZCB0__VT62-DZ11__SELF_TEST__AH-A920B-MC__JAN_1979_bw.pdf

OCR Text

VT62/DZ11

‘wiess

e D

AH-A920B-MC

JAN 1979

FICHE 1 OF 1

'MADE INUSA

000000

30A(1052)

29-DEC-78

11:50

PAGE

8
1

SEQ 0001

.REPT 0
IDENTIFICATION

PRODUCT

CODE
:

AC-A9198-M(

PRODUCT NAME:

CZDZCBO VT162/D211

DATE:

1-DEC-78

MAINTAINER:

DIAGNOSTIC

AULTHOR:

MICHAEL DENSMORE

TST

ENGINEERING

THE INFORMATION IN THIS DOCUM.
4T IS SUBJECT TO CHANGE WITHOUT NOTICE
AND
SHOULD NOT BE CONSTRUED AS A (UMMITMENT BY DIGITAL EQUIPMENT CORPORATION.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
THAT

MAY APPEAR WITHIN.

FOR

ANY

ERRORS

THE SOF TWARE DESCRIBED IN THIS DOCUMINT IS FURNISHED UNDER A LICENSE
AND
MAY ONLY BE USED OR COPIED IN ACCORUANCE WIT+H THE TERMS OF SUCH LICENSE.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR
THE
USE
OR
RELIABILITY OF TS SOFTWARE ON EQUIPMENT THAT [S NOT SUPPLIED BY DIGITAL.

‘

MRS B ERNERRRNNE
S5 I8 AR v 23 000 w0 o

ASSEMBLY ROUTINES
MACY11
€702(8.P11
21-NOvV-78 16:33

(OPYRIGHT

((C)

1977,

1978

DIGITAL

EQUIPMENT

(ORPORATION,

MAYNARD,

MASS.

ASSEMBLY ROUTINES
MACY11
€2pze8.P11
21-NOV~78 16:33

30A(1052)

29-DEC-78

11:50

PAGE 2

SEQ 0002

PAGE 2

REVISION HISTORY

REVISION
A

BY:

CENSMORE

ORIGINAL

RELEASE

29-DEC-78

11:50

D
PAGE 3

SEQ 0003
PAGE 3
CONT ENTS

BV, BV, ¥ N

GENERAL
.1 ABSTRA(CT
.2 DEFINITIONS
.3 DESIGN NOTES
.4 DDCMP
EQUIPMENT REQUIREMENTS

X
INDE

BV,
N
i
N Yo XV,
N
=S=S0000

PG.
PG.

TEST D‘:SCRIPTION?

.1 MICRODIAGNOSTI
.2 LOOPBACK

ed
b e

MISC.

ANNWAN

RESTRICTIONS

[NFORMAT]OMAL MESSAGES

ERROR AND

O NN
S NN

o
9
s
s
&
e

STARTING AND RUNNING THE PROGRAM
START
RESTART
CONT INUE
ZERO FLAGS
ADD UNITS
DROP UNITS
DISPLAY PTABLF
SWITCH OPTIONS

Ea R o R

2 WO

oF o F 2 ¥ 5

LOAD PROCEDURE

B
]

TABLE OF

30A(1052)

(2D2(B.P11

MACY11
21-NOv-78 16:33

ASSEMBLY ROUTINES

ASSEMBLY ROUTINES
MACY11
€ZbzCB.P11
21-NOV-78 16:33

30A(1052)

29-DEC-78

11:50

PAGE 4

SEQ 0004

PAGE 4

GENERAL
ABSTRACT
CZDZC RUNS THE SELFTEST FOR THE VT62
TERMINAL
AND
EXERCISES
THE
LINK
BETWEEN
THE
TERMINAL
AND THE HOST.
THIS PARTICULAR VERSION
SUPPORTS MULTIDROP, FULL DUPLEX COMMUNICATION VIA THE DZ-11 COMMUNICATION
INTERFACE.
OTHER
VERSIONS
(MAINDEC-11-DZDPG AND MAINDEC-11-DZDVP)
SUPPORT THE DUP-11 AND DV=11 COMMUNICATION INTERFACES RESPECTIVELY.
THE
PROGRAM

VT62'S.

XXDP

THE PROGRAM.

)

SR NNNN_‘_J_J_a.a_A—a_a_a_nog
WA SO VONOVNTMWN=00

TESTING OF

TO 8

PAY PARTICULAR ATTENTION TO SECTIONS 3.0 THROUGH 6.0

- A TABLE OF

INFORMATION,

WITH ENTRIES FOR EACH UNIT

UNDER

TEST,

THAT DESCRIBES THE HARDWARE (BUS ADDRESS, VECTOR, ETC.)
DUP - SINGLE LINE, SYNCHRONOUS COMMUNICATION INTERFACE.
DZ - EIGHT LINE, MULTIPLEXED, SYNCHRONOUS COMMUNICATION INTERFACE.
DV = SIXTEEN LINE, MULTIPLEXED, SYNCHRONOUS COMMUNICATION INTERFACE.
CRC CHEE‘#E(.E'L(I; = CHECKSUM USED IN DEC NETWORK PROTOCOL
(CYCLIC
REDUNDANCY

)

MICRODIAGNOSTIC - THE MICROCODE

SELF

d
D e
ek
D aed
d

AND SUPPORTS SEQUENTIAL

DEF INITIONS
MODEM EQUIPMENT,
ALSO
KNOWN
AS
A
‘DATASET'',
WHICH
PERFORMS
THE
MODULATION/DEMODUL . TION OF DATA SIGNALS.
THIS UNIT PROVIDES TIMING
FOR SYNCHRONOUS COMANICATION DEVICES.
MODEM ELIMINATOR - EQUIPMENT WHICH CONNECTS TWO SYNCHRONOUS DEVICES USING
A
CABLE
RATHER
THAN TELEPHONE VOICE LINES.
THE ELIMINATOR HAS A
CLOCK FOR TIMING.
DDCMP PROTOCOL = DEC'S COMMUNICATION LINE PROTOCOL.
UUT = UNIT UNDER TEST.
PTABLE

- —

COMPATIBLE

PLEASE READ ALL SECTIONS OF THIS DOCUMENT CAREFULLY BEFORE USING

IN THE VT62 THAT PERFORMS THE

CHECKOUT OF THE HARDWARE.
(ALSO KNOWN AS '‘SELF
TEST - SEE 'MICRODIAGNOSTIC''.

TEST)

DIAGNOSTIC

DESIGN NOTES
THIS PROGRAM WAS DESIGNED AND IMPLEMENTED
USING
STRUCTURED
TECHNIQUES.
THE PROCEDURE CAUSED THE PROGRAM TO HAVE SOME OPERATIONAL CHARACTERISTICS
WHICH ARE OF INTEREST TO THE USER.
THESE CHARACTERISTICS
ARE
DISCUSSED
IN THIS SECTION.
THIS DISCUSSION IS NOT VITAL TO LEARNING HOW TO OPERATE
THE PROGRAM HOWEVER.

THE MOST

IMPORTANT OPERATIONAL

AFFECTS THE USER,
PROGRAM RESULTS

CHARACTERISTIC OF

IS HOW ERRORS ARE REPORTED.

IN A BOTTOM-UP

REPORT

STRUCTURED DESIGN

THE

ERROR

,AS

TOP-DOWN DESIGN OF
INFORMATION.

THE

SEVERAL

LINES
OF
ERROR
INFORMATION ARE PRINTED AS EACH PROGRAM SECTION REPORTS
ITS LEVEL OF INFORMATION.
AN EXAMPLE OF THIS TYPE OF ERROR LOG WOULD
BE
A
DZ
ERROR.
THE
FIRST
ERROR
MESSAGE
WOULD
GIVE
SPECIFIC
DEVICE
INFORMATION SUCH AS REGISTER CONTENTS AND THEN RETURN CONTROL TO THE NEXT
LEVEL.
AT
THE
NEXT
LEVEL, THE LOGICAL DEVICE NUMBER OR DEVICE SERIAL
NUMBER WOULD BE REPORTED,
AT THE LEVEL ABOVE THAT,
STILL
MORE
GENERAL
}gFgmLégN WOULD BE

COMMENT FIELDS

GIVEN.

THE

LISTING

REPORTS

WITH

CONTINUE UNTIL

SQUARE

BRACKETS

THE HIGHEST LEVEL

([])

REFER

ASSEMBLY ROUTINES
MACY11
(ZbzCB.P11
21-NOV-78 16:33

30A(1052)

29-DEC-78

11:50

PAGE 5

SEQ 0005
PAGE 5
FUNCTIONAL
BLOCKS
IN
THE
DESIGN AND HAVE NO SIGNIFICANCE
THEY ARE RETAINED FOR USE BY PROGRAM MAINTAINERS.

1.4

DDCMP

THIS SECTION GIVES A VERY BRIEF DESCRIPTION OF

DDCMP

DIAGNOSTIC.
THE DESCRIPTION IS BY NO MEANS COMPLETE;
HELP THE USER UNDERSTAND ERROR REPORTS.

TO THE USER.

USED

THIS

IT IS INTENDED TO

CONSIST OF A 6-BYTE HEADER, A 2-BYTE CRC FOR THE HEADER, THE DATA
ITSELF
AND
A
2-BYTE
C(RC FOR THE DATA.
CONTROL MESSAGES CONSIST OF THE HEADER

VOO NN NS W) =

(W ALV, IV, 1V, 1V, IV, IV, IV, ]

P NN
YU G
Y

THERE ARE THREE TYPES OF DDCMP MESSAGES:
CONTROL,
DATA
AND
BOOTSTRAP.
THE
BOOTSTRAP MESSAGE IS NOT USED BY THIS DIAGNOSTIC.
THE DATA MESSAGES
(AND ITS CRC)

FIRST

ONLY.

BYTE.

ALL

ALL CONTROL MESSAGES HAVE AN "ENQ'' CHARACTER AS

THE

DATA MESSAGES ARE NUMBERED SO THAT EACH STATION ON THE

LINK CAN KEEP TRACK OF WHICH
MESSAGES
ARE
TRANSMITTED
PROPERLY.
ALL
MESSAGES
HAVE
A
STATION
ADDRESS
IN
THE
HEADER SO THAT MESSAGES ARE
DIRECTED TO AND FROM THE PROPER STATIONS ON A MULTIDROP LINE.
THERE ARE FOUR CONTROL MESSAGES USED BY THIS DIAGNOSTIC:
ACK, NAK,
STRT
AND
STACK.
ACK
IS
AN
ACKNOWLEDGEMENT THAT THE LAST MESSAGE SENT WAS
PROPERLY RECEIVED.

NORMALLY,

MESSAGES ARE ACKNOWLEDGED BY SENDING A DATA

MESSAGE
WITH
THE
NUMBER
OF THE LAST MESSAGE IN THE HEADER.
ACK'S ARE
USED WHEN THERE IS NO DATA MESSAGE TO
SEND
BACK.
NAK
IS
A
NEGATIVE
ACKNOWLEDGEMENT FOR THE LAST MESSAGE SENT AND IT INDICATES THE THE REASON
FOR

THE ERROR.

STATIONS.

STRT

USED

INITIATE

COMMUNICATION

BETWEEN

TWO

THE RECEIVING STATION SETS ITSELF UP AND ACKNOWLEDGES THE STRT

WITH A STACK, OR START ACKNOWLEDGE.
THE
STRT-STACK
SEQUENCE
IS
USED
BEFORE AND AFTER EACH TEST.
ALL MESSAGES ARE REQUIRED TO BE ACKNOWLEDGED
WITH EITHER A DATA MESSAGE OR AN A(K.

2.0

EQUIPMENT REQUIREMENTS

THIS PROGRAM REQUIRES A PDP-11 WITH A MINIMUM OF 16K CORE AND
A
CONSOLE
TERMINAL.
A
(CLOCK
OPTION
IS
NOT
REQUIRED, BUT ONLY ROUGH TIMING IS
AVAILABLE WITHOUT ONE.
THE PDP-11 CONSOLE SWITCH REGISTER IS
NOT
USED.
ONE
OR
MORE
DZ-11'S
MUST BE CONNECTED TO THE TERMINALS UNDER TEST VIA
COMMUNICATION LINES THROUGH EITHER MODEM'S OR NULL MODEM'S.
THE
VT62'S
MUST
BE IN ASYNCHRONOUS MODE AND ON-LINE.
THE TERMINAL ADDRESS SWITCHES
ON THE CONTROL BOARD MUST BE SET TO MATCH THE 1ERMINAL
ADDRESS
ASSIGNED
TO

3.0

4.0

THE

LOGICAL

UNIT

(SEE

SECTION 4.0).

LOADING PROCEDURE

THIS PROGRAM MAY BE LOADED FROM PAPER TAPE USING THE ABSOLUTE LOADER.
MAY ALSO BE LOADED FROM PAPER TAPE OR DISK USING XXDP PROCEDURES.

STARTING AND RUNNING THE PROGRAM
THE

STARTING ADDRESS FOR THE PROGRAM IS 200.

PRINTER

CLOCK

(KW11-L OR KW11-P)

IS AVAILABLE.

A LINE

IS AVAILABLE.
PRINTER

THE PROGRAM WILL

IT WILL

SPECIFIED,

FIRST

ASK

PRGGRAM

WILL

THEN ASK IF A LINE

THE

ASSEMBLY ROUTINES
MACY11
czoz(s.P1
21-NOV-78 16:33

30A(1052)

29-DEC-78

191
192
193

11:50

PAGE 6

SEQ 0006
PAGE 6

194
195
196

ASK FOR ITS
SIZE, Q-BUS
THE PROGRAM
IN ORDER TO

197
198
199

ADDRESS (DEFAULT = 177514).
THE PROGRAM ALSO ASKS FOR MEMORY
OPTION AND LINE FREQUENCY.
IF NEITHER
C(CLOCK
IS
SPECIFIED,
WILL ASK THE USER TO TYPE TWO CHARACTERS, FIVE SECONDS APART,
PROVIDE ROUGH TIMING.

THE PROGRAM WILL THEN PROMPT THE USER BY TYPING A ‘>''.
NOW THE USER
MAY
TYPE
ONE
OF
SEVEN
COMMANDS:
STA(RT), RES(TART), CON(TINUE), ZFL(AQ)
ADD, DRO(P) OR DIS(PLAY), WHERE THE LETTERS IN PARENTHESIS
NEED
NOT
BE
TYPED.
IF A TYPING MISTAKE IS MADE, THE RUBOUT KEY IS USED TO DELETE THE

200
201

LAST CHARACTER(S) TYPED.
THE PROGRAM WILL TYPE A MESSAGE IF THE
COMMAND
IS
_INVALID.
EACH OF THESE COMMANDS IS FXPLAINED IN THE SECTIONS BELOW.

SWITCHES ARE USED TO SET SOF TWARE FLAGS SUCH AS
"100P
ON
FLAGS USED BY THIS PROGRAM ARE DESCRIBED IN SECTION 4.8.

219

THE

START

THE START (COMMAND
NOT
LOOP
WITHIN

(STA) ZEROS ALL FLAGS (PRINT ALL ERROR MESSAGES AND
DO
TESTS)
AND
INITIATES THE OPERATOR DIALOGUE.
AT THIS
POINT, THE DEVICE TABLE (PTABLE) IS EMPTY AND THE OPERATOR MUST
USE
THE
DIALOGUE
TO
DESCRIBE
ALL
UUT'S AS SHOWN BELOW.
THE NUMBERS IN SQUARE

BRACKETS,
TYPED

4
Sl
S
i
i

cCoO~NO NS W

ASLAS
AN ToNT,8],¥]

4.1

ERROR''.

[J, RELATE THE TYPEOUT TO THE EXPLANATION

IN ACTUAL

OPERATION.

ALSO DESCRIBED BELOW.

THE

BELGW

PROCEDURES FOR HANDLING

CR REFERS TO THE RETURN KEY

AND

ARE

TYPING ERRORS ARE

(CARRIAGE RETURN).

DIALOGUE
# UNITS

(DECIMAL)

DZ ADDRESS:
DZ VECTOR:

?
?

(OCTAL)
(OCTAL)

DZ BUS PRIORITY:

TERMINAL ADDRESS:

NNNNNN

(OCTAL) N

BAUD RATE:

(OCTAL) N

STOP CODE/CHAR.
CHANGE
HOW MANY

S.W.

£5]

(6]

(Y OR N)

INITIATE

{4]

(7]

LENGTH:

(OCTAL)

LINE NUMBER:
?

£33

(OCTAL)
?

[21]

NAN

(OCTAL)

(8]

(93]

TRIES BEFORE

ABORT

USE ALL ZCRO'S FOR LOOPBACK DATA ?

(OCTAL)

(Y OR N)

[10]

(11l

EXPLANAT
ION

(11

TYPE THE TOTAL

THROUGH

WILL

NO.

UUT'S

REPEATED

UNTIL

DECIMAL.
ALL

QUESTIONS

UWUT'S

NOT

HAVE BEEN

29-DEC-78

11:50

H
PAGE 7

SEQ 0007
PAGE 7

DESCRIBED.

THE USER DOES NOT HAVE TO ANSWER THESE QUESTIONS

FOR
EACH
DZ HOWEVER, IF THERE ARE MULTIPLE WJT'S PER DZ OR
PER DZ LINE.
THE EXPLANATION FOR QUESTION 5
SHOWS
HOW
TO

€53

fé6l
€73

THE DZ.

THIS MUST BE AN EVEN

THE DEFAULT VALUE:
NNNNAN,
TYPE THE VECTOR ADDRESS FOR THE DZ.

THIS MUST
BE
AN
EVEN
OCTAL
NUMBER NOT GREATER THAN 376.
THE USER MAY TYPE (R TO
USE THE DEFAULT VALUE:
NAN.
TYPE THE BUS PRIORITY LEVEL OF THE DZ.
THIS MUST BE A DIGIT

CQEBEO TS 7.

AGAIN, THE USER MAY TYPE CR TO GET THE DEFAULT

TYPE THE TERMINAL ADDRESS FOR EACH TERMINAL ATTACHED TQ
THE
DZ
LINE.
SEPARATE EACH ADDRESS WITH A COMMA.
THIS IS THE
ADDRESS SELECTED BY THE SWITCHES ON THE
I/0
BOARD
IN
THE
TERMINAL AND IS AN OCTAL NUMBER BETWEEN O AND 377.
THE USER
MAY TYPE CR TO GET THE DEFAULT VALUE:
N.
TYPE THE DZ LINE NUMBER
(0-7)
TO
WHICH
THE
TERMINAL
IS

ATTACHED.
TYPE CR TO GET THE DEFAULT OF N.
TYPE THE CODE FOR THE BAUD
RATE
DESIRED.

GIVEN IN THE TABLE BELOW.
YPE

TOSSET

THE

CODES

TYPE CR TO GET THE DEFAULT:

THIS RATE

19,200

FOR FASTER TESTING,

USE AS HIGH A BAUD RATE AS PRACTICAL.

TYPC A CODE TO SELECT THE STOP CODE
AND
THE CODES ARF GIVEN IN THE TABLE BELOW.
TYPE

ARE

BAUD RATE TABLE

BAUD RATE OF 19,200 IS NOT AVAIABLE ON THE VT62.

[81]

OCTAL

THE USER MAY TYPE (R TO USE

(4]

TYPE THE BUS ADDRESS OF

NUMBER NOT GREATER THAN 177776.

(o]
(=]

£33

ENTER MULTIPLE WT'S.

~
o]
o
o

£2]

O —t

30A(1052)

D e D D D 2 A NN NN NN
NOWVNSBAWN=2O

ASSEMBLY ROUTINES
MACY11
(20ZCB.P11
21-NOV~78 16:33

STOP CODE/CHARACTER LENGTH
STOP CODE
LENGTH

1 BIT

5 BITS

C(HARACTER

LENGTH.

ASSEMBLY ROUTINES

€Z0zZCB.P11

MACY11

21-NOV-78 16:33

30A(1052)

29-DEC-78

11:50

PAGE 8

SEQ 0008

9]
—_ A

WWNINWIANWN

O~NON
S W

312

00 OO0
O

NONWNE
NN —

PAGE 8

2 BITS

IF THE USER WISHES TO CHANGE

EITHER

THE

TWO

SOF TWARE

PARAMETERS
DESCRIBED
FOR
QUESTIONS 7 OR 8, HE MUST ANSWER
THIS QUESTION BY TYPING 'Y''.
IF THE USER WISHES
TO BYPASS
QUESTIONS 7 AND 8, HE TYPES ‘N''.
TIMES
THE
PROGRAM
IS
TO
ATTEMPT
TO
(103 TYPE THE NUMBER OF

INITIALIZE

DUP

BSEFORE

ABORTING THE UNIT.

TYPE ANY OCTAL NUMBER BETWEEN O

AND

177777.

DEFAULT TO 10 (OCTAL) ATTEMPTS.
(111 IF _THE USER TYPES 'Y'', THE LOOPBACK DATA WILL

BYTES.

AND O BITS.

ZERO

8.2

FOR

EXAMPLE OF DIALOGUE
FOLLOWING
HARDWARE
CONFIGURATION:

(160000,300,3)

WITH

TWO

TERMINALS

SEE

(ADDRESSES O AND 1) ON

LINE O, A SECOND DZ (160010,320,3) WITH
(ADDRESS

255

SECTION

DETAILS ON THE LOOPBACK TEST.
THE

THE USER TYPES 'N'', THE LOOPBACK DATA WILL BE A

PATTERN OF ALTERNATING 1

ASSUME

THE USER MAY

TYPE

LINE

SINGLE

TERMINAL

2 AND A THIRD DZ (170000,340,4) WITH

THREE TERMINALS (ADDRESSES 0) ON LINES 1,
2
AND
3.
NOTE
THAT
VARIABLE
BAUD RATES CAN BE SPECIFIED.
THE USER WOULD
USE THE FOLLOWING DIALOGUE TO SET UP THE PROGRAM:
>STA
# UNITS

(DECIMAL)

D7 ADDRESS:

DZ VECTOR:

(OCTAL)

DZ BUS PRIORITY:
TERMINAL

ADDRESS:

160000

310

300

(OCTAL)

4 3

(OCTAL)

LINE NUMBER:

BAUD RATE:

(OCTAL) O

(OCTAL)

STOP (CODE/THAR.

DZ ADDRESS:

DZ VECTOR:

0.1

O
16

LENGTH (SEE DOC.):

(OCTAL)

160000

300

160010

320

(OCTAL) O

ASSEMBLY ROUTINES

(Zb2CB.P11

MACY11

21-NOV~-78 16:33

30A(1052)

29-DEC-78

11:50

PAGE 9

SEQ 0009
PAGE 9

DZ BUS PRIORITY:

TERMINAL ADDRESS:

(OCTAL)
?

(OCTAL)

LINE NUMBER:

? (OCTAL) 0

BAUD RATE:

(OCTAL)

STOP CODE/CHAR.

DZ ADDRESS.
DZ VECTOR:

?
?

5§

(OCTAL)
(OCTAL)
?

TERMINAL ADDRESS:

160010
320

BAUD RATE:

(OCTAL)

(OCTAL) 2

STOP CODE/CHAR.
W.

(OCTAL)

5
5

1-3
7,16.7

LENGTH (SEE DOC.):
?

(OCTAL)

170000

(OCTAL)

340

(OCTAL)

LINE NUMBER:

CHANGE S.

LENGTH (SEE DOC.):

DZ BUS PRIORITY:

(YOR N)

(NOTE WHERE (R WAS USED TO ACCEPT THE DEFAULT)
TYPING ERRORS

(1
(25
(3)

gggogUBOUT KEY IS USED TO DELETE ANY CHARACTERS WHICH ARE
IF

THE RESPONSE IS NOT WITHIN LIMITS

FORMAT,
THE
PROGRAM
QUESTION AGAIN.

WILL

NOTIFY

THE

USFR

THE
AND

WHEN ENTERING MULTIPLE TERMINAL ADDRESSES FOR A

WRONG
ASK THE

SINGLE

THE USER MAY NEGLECT TO TYPE ONE OR MORE ADDRESSES.
A CASE, THE USER MERELY ENTERS THE SAME DZ
ADDRESS,

DZ,

IN SUCH
VECTOR

AND PRIORITY IN THE NEXT SERIES OF QUESTIONS AND THEN ENTERS
THE REMAINING TERMINAL ADDRESSES.

QUESTIONS

THROUGH

HAVE BEEN ACCOUNTED FOR.

4.2

REMEMBER;

THE

SERIES

WILL BE RE~ASKED UNTIL ALL WT'S

RESTART
THE RESTART COMMAND (RES) STARTS THE PROGRAM WITHOUT CLEARING THE PTABUE.
ALL FLAGS REVERT TO THEIR INITIAL STATE UNLESS THE FLAG SWITCH IS USED TO

CHANGE THEM (SECTION 4.8).
THE OPERATOR DIALOGUE DESCRIBED IN
4.1
DOES
NOT
TAKE FLACE UNLESS REQUESTED.
WHEN THIS COMMAND IS USED, THE PROGRAM
WILL ASK IF THE USER WISHES TO CHANGE THE HARDWARE TABLE AND IF HE WISHES
TO CHANGE THE SOFTWARE TABLE.
[IF THE USER ANSWERS YES (BY TYPING ‘Y'") TO
THE HARDWARE

TABLE

QUESTION,

THAT PORTION OF

THE

DIALOGUE

DESCRIBED

ASSEMBLY ROUTINES

CZbz2(B.P11

MACY11

21-NOV-78 16:33

30A(1052)

29-DEC-78

11:50

PAGE

SEQ 0010

406

PAGE 10

407
408

409
410
L1
412
413
414

SECTION

PLACE.

4.1

BEGINNING

WITH QUESTION 1 ENDING WITH QUESTION 5 WILL TAKE

THE USER_ANSWERS YES TO THE SOF TWARE TABLE QUESTION,

BE ASKED QUESTIONS 7 AND 8.

THE MOST COMMON USE OF THIS COMMAND IS TO CHANGE
ADD/DROP
UNITS.
THESE
FLAGS
ARE
DESCRIBED

WILL

RUN-TIME
FLAGS
OR
TO
IN
SECTION 4.8 - SWIT(H

OPTIONS.
TYPING A '*C'' WILL FORCE
THE
SUPERVISOR
TO
ISSUE
A PROMPT
CHARACTER
('>'")
SO THAT
THE USER MAY USE THE RESTART COMMAND FOR THIS
PURPOSE.
NOTE:
IF THE USER USES THE START COMMAND AFTER A “C,
HAVE TO REENTER ALL DEVICE INFORMATION!

WILL

4.3

CONT INUE
THE CONTINUE COMMAND WILL RESTART THE
PROGRAM
AT
THE
TEST
WHICH
WAS
INTERRUPTED. ~ UNLIKE
THE
RESTART
COMMAND, THIS COMMAND DOES NOT FORCE
FLAGS BACK TO THE INITIAL STATE.
THE FLAGS WILL REMAIN AS SET UP
DURING
THE
LAST
START
OR
RESTART.
THE
USER HAS THE SAME DIALOGUE AND FLAG
OPTIONS AS DESCRIBED FOR THE RESTART COMMAND.

4.4

ZERO FLAGS

THIS COMMAND WILL ZERO

ALL

FLAGS

SECTION 4.8 DESCRIBES THE EFFECTS OF

(SECTION

4.8)

AND

TYPE

PROMPT.

CLEARING ALL FLAGS, BUT ESSENTIALLY,

ALL LOOPING AND HALTS WILL BE DISABLED AND ALL ERROR INFORMATION WILL

PRINTED

4.5

IN THE EVENT OF

ADD UNITS
WHILE TESTING MULTIPLE UNITS,
FROM THE

AN ERROR.

TEST PROCEDURE AND,

THE USER MAY WISH TO DROP A PARTICULAR UNIT
LATER ON, BEGIN TESTING THAT UNIT AGAIN.
IN

THIS CASE, THE USER NEED NOT STOP THE DIAGNOSTIC AND REBUILD THE
PTABLE.
AFTER
A
UNIT
HAS
BEEN DROPPED (SEE SECTION 4.6), THE USER MAY ADD THE

UNIT BY TYPING *~C'' AND USI'AJI()SDR}EHA'%D COMMAND AS FOLLOWS:
WHERE N IS A DECIMAL UNIT NUMBER THAT SPECIFIES THE

UNIT

ADDED.

UNITS ARE NUMBERED FROM 1 TO 32 ACCORDING TO THE ORDER IN WHICH THEY WERE
SPECIFIED FOR THE HARDWARE TABLE.
MULTIPLE UNITS MAY BE ADDED BY
TYPING
EACH UNIT NUMBER SEPARATED BY COLONS (I.E., ADD/UNI:2:4:22) OR BY TYPING
THE FIRST AND LAST UNIT NUMBERS OF A CONTIGUOUS GROUP OF UNITS

SEPARATED

AFTER A START COMMAND, ALL UNITS ARE CONSIDERS ADDED.
TO USE THE ADD COMMAND UNLESS THE UNIT WAS DROPPED.

4.6

DASH

(I1.E.,

ADD/UNI:1-10

WILL

ADD THE FIRST TEN UNITS).
THERE

NOTE:

NEED

DROP UNITS
TO REMOVE A UNIT FROM TESTING, THE DROP COMMAND (DRO) IS
USED.
TO
USE
THIS
COMMAND,
TYPE
““(C'' AND DROP THE UNIT(S) USING THE DROP COMMAND AS
FOLLOWS:
5
DRO/UNI
:N
WHERE "N'*
IS A DECIMAL
UNIT
NUMBER
WHICH
SPECIFIES
THE
UNIT
TO BE
DROPPED. ~ UNITS ARE NUMBERED ©ROM 1 TO 32 ACCORDING TO THE ORDER IN WHICH
THEY WERE SPECIFIED FOR
THE
HARDWARE
"TABLE.
MULTIPLE
UNITS
MAY
BE
DROPPED ~ BY_
"TYPING
_EACH UNIT
NUMBER
SEPARATED BY
COLONS
(I.E.,

DRO/UNI:1:3:7) OR BY
CONTIGUOUS

TYPING

THE

FIRST

AND

LAST

UNIT

NUMBERS

GROUP SEPARATED BY A DASH (I.E., DRO/UNI:1-9 CAUSES THE FIRST

ASSEMBLY ROUTINES

€Z0z2(B.P11
460
461
462
463
L64
465

466

467
468

469
470
471
472
473
474
475
476
477
478
479
480

MACY11

21-NOV-78 16:33

30A(1052)

29-DEC-78

11:50

1
L
PAGE 11

SEQ 0011
PAGE 11

NINE UNITS TO BE DROPPED).

AFTER THE PROGRAM IS RESTARTED,

UNIT(S) WILL NOT BE INCLUDED FOR TESTING.
4.7

THE SPECIFIED

DISPLAY PTABLE
WHEN THE DISPLAY COMMAND IS TYPED, THE ENTIRE CONTENTS OF THE PTABLE WILL
BE
PRINTED.
UNITS
THAT
HAVE
BEEN DROPPED
WILL BE SO MARKED.
THIS

COMMAND IS USEFUL FOR VERIFYING THE PTABLE CONTENTS.

4.8

SWITCH OPTIONS

THERE ARE THREE SWITCH OPTIONS
AVAILABLE
FOR
USE
/TES:,
/PAS:
AND /FLA:.
THE TEST SWITCH, /TES:,

WITH
THE
COMMANDS:
IS USED ONLY WITH THE

START COMMAND AND THE
RESTART
C(OMMAND.
IT
IS
WUSED
TO
SPECIFY
THE
INDIVIDUAL
TEST(S) TO BE RUN IN CASES WHERE ALL TESTS ARE NOT TO BE RUN.

FOR EXAMPLE,
TYPE:

THE USER WISHED TO RUN THE LOOPBACK TEST ONLY,

IF THIS SWITCH IS NOT
CONDITION.

>STA/TES:
2

WUSED,

ALL

TESTS

WILL

RUN

THE

WOULD

DEFAULT

THE PASS SWITCH IS USED TO SPECIFY THE NUMBER OF PASSES TO
BE
RUN.
T0
RUN THE LOOPBACK TEST TWENTY TIMES, THE USER WOULD TYPE:
>STA/TES:2/PAS:
20
THIS SWITCH MAY BE USED WITH THE START, RESTART
AND
CONTINUE
COMMANDS.
THE DEFAULT CONDITION IS ESSENTIALLY AN INFINITE NUMBER OF PASSES.
THE FLAG SWITCH

IS USED TO SET FLAGS WHICH CONTROL PROGRAM OPERATION

AND

ERROR
PRINTOUTS.
THIS
SWITCH MAY BE USED WITH THE CONTINUE COMMAND AS
WELL AS THE START COMMAND AND RESTART COMMAND.
THE AVAILABLE
FLAGS
ARE
SHOWN IN THE TABLE BELOW.
FLAG

EFFECT

LOE
HLT
IER
IBE
IXE

LOOP ON
HALT ON
INHIBIT
INHIBIT
INHIBIT

PRI

SEND ALL

BOE
UAM

SET

ERROR
ERROR
ERROR REPORTS
BASIC ERROR REPORT*
EXTENDED ERROR REPORT
TYPEOUTS

BELL ON ERPOR
UNATTENDED MODE

PNT

TO THE PRINTER

(NO MANUAL
TEST NUMBER

INTERVENTION)

*SEE SECTION 5.0

EXAMPLE:

IF THE USER WISHES TO RUN THE PROGRAM WITHOUI ERROR MESSAGES AND HAVE

LOOP ON ERROR,

HE WOULD TYPE:

>RES/FLA:LOE
IER
:

:
EXAMPLE
¥$PEHE USER LATER WANTED TO STOP THE LOOP

NOTE:

>CON/FLA:LOE-O

THE ERROR REPORTS WOULD STILL BE

ERROR

INHIBITED.

FEATURE,

WOULD

ASSEMBLY ROUTINES

21-NOV-78 16:33

30A(1052)

29-DEC-78

11:50

PAGE

L
12

SEQ 0012

~NON N

(5419, IV, IV, IV, IV, IV, ]

Czbz2(B.P11

MACY11

b ed b

PAGE 12
ALL FLAGS ARE DEFAULTED TO ZERO

5.0

(NOT SET).

ERROR AND INFORMATIONAL MESSAGES
AS NOTED IN THE DESIGN NOTES (SECTION 1.3), A SINGLE ERROR MAY RESULT
IN
SEVERAL
MESSAGES
BEING
TYPED.
THIS
IS
DUE
TO THE STRUCTURE OF THE
PROGRAM.
EACH SECTION, IN THE EVENT OF AN FRROR, REPORTS THE INFORMATION
AVAILABLE
TO
IT.
THE_
FINAL
MESSAGE FOR EACH ERROR CONTAINS THE UNIT

NUMBER (DECIMAL 1

TO 32 - SEE SECTIONS 4.5 AND

""END OF ERROR REPORT'"',

THERE ARE THREE LEVELS OF

ERROR

REPORTS.

4.6)

AND

THE

PHRASE:

USING

THE

FLAG

SWITCH

(SECTION 4.8), ONE OR MORE LEVELS OF REPORT MAY BE INHIBITED.
THE FIRST
LEVEL CONSISTS OF AN ERROR NUMBER, PC CONTENTS AND ERROR TYPE (HARD, SOFT
OR
FATAL).
THE
ERROR NUMBER CAN BE RELATED TO THE TABLE AT THE END OF

THIS SECTION.
THE PC CONTENTS GIVE THE ADDRESS WHERE
THE
ERROR
REPORT
MECHANISM
WAS
INVOKED.,
THE
NEXT
LEVEL (BASIC ERROR REPORT) GIVES AN
ENGLISH DESCRIPTION OF THE ERROR.
AN EXAMPLE OF THIS TYPE OF MESSAGE IS:
"HEADER
HAS
CRC
ERROR''.
THE FINAL LEVEL (EXTENDED ERROR REPORT) GIVES
ADDITIONAL DATA CONCERNING THE ERROR, SUCH AS REGISTER CONTENTS.
TO _INHIBIT SOME OR ALL ERROR MESSAGES,

4.8.

ONLY.

THE

USE THE FLAGS DESCRIBED IN SECTION

INHIBIT-EXTENDED-ERROR-REPORT

INHIBIT-BASIC-ERROR-REPORT FLAG

EXTENDED
ERROR
REPORTS.
INHIBITS ALL TYPEOUTS.

FINALLY,

TABLE OF

FLAG (IXE)
(IBE)

INHIBITS THAT LEVEL

INHIBITS BOTH BASIC

ERROR NUMBERS

NO.

ERROR DESCRIPTION

00
01
02
03
04
20

CANNOT INITIALIZE D2
REPLY MESSAGE FROM TERM. WAS NOT AN ENQ
REPLY FROM TERM. WAS NOT EXPECTED TYPE OF CONTROL MESSAGE
TERM. ADDRESS IN RESPONSE WAS NOT COORECT
RESPONSE HAD CRC ERROR IN THE HEADER
DZ TRANSMIT ERROR
DZ RECEIVE EPROR
MESSAGE TO TERMINAL WAS NOT ACK'ED

22
23
24
25
26

31
40

42
43
50
51
52

ERROR OCCURRED WHILE INITIALIZING DZ

ERROR OCCURRED DURING TRANSMISSION
DDCMP STRT MESSAGE DID NOT GET A STACK
ERROR DURING RECEPTION
TIMEOUT WHILE WAITING FOR RESPONSE
SEE
21

SEE

AND

THE INHIBIT-ERROR-REPORT FLAG (IER)

SEE
03
MESSAGE DATA HAD CR(C ERROR
ERROR OCCURRED DURING SELFTEST (TEST #1)
ERROR OCCURRED DURING LOOPBACK (TEST #2)
ERROR IN RECEIVED DATA

ASSEMBLY ROUTINES

CZpz2(B.P11

MACY11

21-NOV~78 16:33

30A(1052)

29-DEC-78

11:50

PAGE 13

SEQ 0013
PAGE 13

70
71
72

SELFTEST RESPONSE IN ERROR (NOT RECOGNIZED)
TERMINAL MEMORY ERROR
TERMINAL CONTROL-ROM ERROR

6.0

RESTRICTIONS
THIS DIAGNOSTIC DOES NOT ATTEMPT TO TEST THE DZ11.

7.0

MISCELLANEOUS
PLEASE REPORT ALL PROGRAM PROBLEMS VIA THE AIDS REPORTING SYSTEM.
REFER
ALL
COMMENTS
REGARDING DOCUMENTATION TO DIAGNOSTIC ENGINEERING TERMINAL
GROUP IN MAYNARD, MASS.

IF A LARGE NUMBER
OF
COMM ERRORS OCCUR, OR IF ATTEMPTS TO SEND OR RECEIVE DATA TO AND FROM THE
TERMINAL FAIL;
USE THE SPECIFIC DZ11 DIAGNOSTICS TO VERIFY THE DZ11.

TEST DESCRIPTIONS
MICRODIAGNOSTIC (TEST #1)
THE MICRODIAGNOSTIC, OR SELFTEST, IS ROM RESIDENT CODE IN THE
VT62
THAT
IS
EXECUTED
UPON
COMMAND FROM THE HOST COMPUTER OR DURING POWER UP.
A

"'LL DESCRIPTION OF THE TEST IS AVAILABLE IN THE HARDWARE MANUAL FOR

VI62.

ESSENTIALLY,

THE

TEST

VERIFIES

THE

THE MICROPROCESSOR, CHECKS ROM

MEMORY, EXERCISES RAM MEMORY AND EXERCISES
THE
SCREEN.
THE
HOST
MAY
REQUEST
THE
RESULTS
OF
THE TEST.
IN ANY CASE, THE RESULTS ARE ALWAYS
DCISPLAYED ON THE LAST LINE OF THE SCREEN.
THE
FIRST
(HARACTERS
ARE
A
CODED ERROR REPORT FOR THE HOST COMPUTER AND THE REMAINDER OF THE LINE IS
AN ENGLISH DESCRIPTION OF THE ERROR STATUS.

LOOPBACK (TEST #2)
IN THIS TEST, THE TERMINAL IS COMMANDED TO ENTER
LOOPBACK MODE
AND
A
SINGLE,
256(DECIMAL)
BYTE
DATA MESSAGE IS SENT TO THE TERMINAL.
THIS
DATA MESSAGE WILL HAVE A DDCMP
PROTOCOL
ENVELOPE.
WHEN
THE
DATA
IS

RETURNED, THE TERMINAL IS TAKEN OUT OF LOOPBACK MODE USING A DDCMP ‘‘STRT''
SEQUENCE.
THE CRC CHECKSUMS ARE VALIDATED FOR BOTH
THE
MESSAGE
HEADER
AND
THE
MESSAGE
DATA,
THE
DATA IS THEN CHECKED, BYTE BY BYTE.
THUS
(T)EESEDASET;HREE POSSIBLE ERRORS DETECTED:
NO TERMINAL RESPONSE, BAD
(CRC

INTERPRETATION OF ANY ERROR MESSAGES
REQUIRES
SOME
EDUCATED
GUESSWORK
BECAUSE
OF
THE
NUMBER
OF
COMPONENTS
IN
THE
COMMUNICATION LINK.
INTERMITTENT ERRORS WOULD GENERALLY INDICATE
LINE
PROBLEMS
UNLESS
THE
LINE IS PHYSICALLY SHORT GR THE ENVIRONMENT IS RELATIVELY NOISE FREE.
IF
EITHER OF
THESE
CONDITIONS
IS
THE
CASE
OR
IF
THE
ERROR
IS
NOT
INTERMITTENT,
THEN
THE
TERMINAL
1/0 BOARD, THE MODEM AND THE DUP ARE
SUSPECT.
IF THERE IS NO TERMINAL RESPONSE, RUN THE
TERMINAL
SELF
TEST
OFF=LINE.
THIS
WILL
SHOW WHETHER THE TERMINAL IS COMPLETELY 'DEAD'' OR
THE PORTIONS OF

THE

COMMUNICATION LINK MENTIONED ABOVE ARE BROKEN.

THERE ARE TWO DATA PATTERNS
AVAILABLE
FOR
LOOPBACK:
ALL
ZERQ'S
AND
ALTERNATING
1/0
BITS
(l.E.,
BYTES
OF 252,125.252.°25....).
THE ZERC

ASSEMBLY ROUTINES
MACY11
€2bzCB.P11
21-NOV-~78 16:33

30A(1052)

29-DEC-78

11:50

PACE

2
SEQ 0014

622

PAGE 14

625
626
627

PATTERN IS
NOISE-SUSCEPTIBLE.
HOWEVER
THE
ALTERNATING BITS
PATTERN
EXERCiSES THE DATA PATHS BETTER.
SECTION 4.0 SPECIFIES HOW TO SELECT THE
PATTERN.

ASSEMBLY ROUTINES
MACY11
2bz2CB.P1N
21-NOV-78 16:33

30A(1052)

29-DEC-78

¢
2
PAGE 15

11:50

SEQ 0015
PAGE 15

9.0

INDEX
ACK

BAUD RATE

ADD COMMAND . . . . . . . . . ...
v

CONTINUE COMMAND
. . . . . . . ..
CRC v v e e e e

10-11
4=5, 12

DDCMP . . v o e
DISPLAY COMMAND
DROP COMMAND
.

e
.
.

e
. .
. .

4=5
11
10

ENQ

..«

9-12

12-13

ERROR NUMBER

ERROR REPORT
FLAGS

e
. . . . .«
. o o .

. . . . . . . . ..~

MULTIPLE UNITS
MULTIPLE WUT'S

.
.

v
.

. .
..

..
.:

10
7

NAK

.«

9-11

LOOPBACK

RESTART COMMAND

PTABLE

STACK w v v e
START COMMAND
STOP CODE . .
STRT
. . o v

SWITCH OPTIONS

.ENDR

e
.

e e e e e e
. . . . . . . . ..
. » v v v w v v
o
e

. . . . . . . . ..

,
6.

.
.

. . ..
...

11
6

UNIT NOMBER

10,

12
10-11

7
5,12

SWITCH OPTIONS
SWITCHES
. . .
&

10-11

ASSEMBLY ROUTINES
MACY11
C2bz(B.P11
21-NOV~78 16:33

673

000000°

30A(1052)

29-DEC-78
PRINT

11:50

D 2
PAGE 16

JSPMAC: VERSION 1.1

SEQ 0016

ASSEMBLY ROUTINES

€ZDZCB.P1

g;g

MACY11

21-NOV-78 16:33

687

002000
002000
002000
002000
002001
002002
002003
002004
002005

689
690
691
692
693
695
696
697
698
699

002022
002024
002026
002030
002032

700

002020

002034

701
702
703
704
705
706

002036
002040
002042
002044
002046
002050

708

002052

707

709
710
711

712
713

7146
715
716
717
718
719
720
721
722
723

002051

002054
002056
002060

002062
002064
002066
002070
002072
002074
002076
002100
002102
002104
002106
002110

103
132
104
132
103
000

11:50

E_2
17

SEQ 0017

;

HEADER - VT62 ACCEPTANCE TEST

POINTER ALL
BGNMOD HEAD
HEADER
(ZD2(.B,0,0,0.,0

000
000
102
060
000000
0000G0
022020
022354
011672
011706
022612
000000
000000
000000
000000
011716

ASCII
ASCII
ASCII
ASCII
ASCII
BYTE
BYTE
BYTE
ASCII
ASCII
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
.WORD

.WORD
.WORD

O
0
0
CSREVISION

.WORD
.WORD
.WwORD
.BYTE
.BYTE

.WORD

.WORD
.WORD
WORD

£ NDMOD

/7C/
/2/
/D/
72/
/7C/
O

0
0
/B/
70/
O
O
LS$HARD
L$SOFT
L$HW
L$SW
LSLAST
O
O

WORD

000000
000000

000000
002
002
000000
000000
000000
000000
000000
002234
011722
002250
002254
011724
011726
000000
000000
011730
012322

PAGE

.=2000
:

006
002007
002010
002011
002012
002014
002016

694

29-DEC-78

002000

g;g

678
679
680
681
682
683
684
685
686

30A(1052)

0
LS$SDISPATCH

CSEDIT

0
O
O

.WORD
.WORD
.WORD
.WORD
.WORD

O
LSDVTYP

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

| AU
L$DU
O
O
LSINIT

LSRPT
L$DR
L$DRST

LSCLEAN

ASSEMBLY ROUTINES
MACY11
CZD2CB.P1N
21-NOV~78 16:33

724
725

002110

30A(1052)

29-DEC-78

11:50

F
2
PAGE 18

SEQ 0018

BGNMOD GLOB
T ARRAR T AR RRAAAAR

AR RN RN R AR

AANNAANANAAA

GLOBAL EQUATES

;tttttit*i*'iitt*tttttttti'tttttt*tttt*ttttfitt

002710

EQUALS

VT62 DIAGNOSTIC EQUATES

000201
000001
000002
000003
00005

000006
000007
000377
000220
000030
000200
000002
000000
000002
000004
000006

000020
000040
000100
040000
100000

010000
000017
177400

000377

SOH=201

ACK=1

;START OF HEADER
sACKNOWLEDGE

(DDCMP)
"

NAK =2
REP=3
ENQ=5

JREPLY

STACK=7
SYNC-377
DLE 220
0SOP=24.

s START ACKNOWLEDGE
!
; SYNCHRONIZATION CHARACTER
;DATA LINK ESCAPE.
; LOOPBA(CK.

STRT=6

PARITY=200
TSTS=?2
RCVCSR 0
RCVBUF
=2
XMTCSR-4
XMTBUF 6

MASCLR 20
MSCNEN=40
RXINTE=100
TXINTE=40000
INVDAT=100000
RENABL =10000

LINEMK 17

HYBYTE=177400

LOBYTE~377

;NEGATIVE ACKNOWLEDGE

'’

;ENQUIRY
s START

;PARITY BIT.

;NO. OF TESTS
;JOFFSETS: RECEIVER CSR
;

;
:

RECEIVER BUFFER REG.

TRANSMITTER (SR
TRANSMITTER BUFFER REG.

-HARDWARE REGISTER BIT DEFINITIONS
;MASTER CLEAR

;MASTER SCAN ENABLE
;RECEIVE INTERRUPT ENABLE
s TRANSMIT INTERRUPT ENABLE
s INVALID DATA
JRECEIVE ENABLE
JLINE BITS MASK
sMASK FOR HIGH BYTE OF A WORD
JMASK FOR LOW BYTE OF A WORD

ASSEMBLY ROUTINES
MACY11
C2bz(B.P11
21-NOV~78 16:33

760
761
762
763
764
7265
766

30A(1052)

11:50

PAGE 19

2
SEQ 0019

:ttttitttt.tttttttt’tt.."'.tttti'.tfififiii'ttttt

GLOBAL DATA

AL ALAALALLALASASSE
SRSl
ittt il ds]]

EOMSG:
LOGDEV:
EXPINP:
OUTMSG:
INMSG:

779

780

OUTBUF:
QuUTSlZ:
:
INBUF
INSIZ:

781

002160
002162
002162
002164
002166
002170
002172
002174

MSGAP:
ouT:

INITMA:

INITMS:

BAPNT:
BASIZE:

MSGNO:
RMSGNO:
PTABLE
:

000000

NMOD:
PTEND:
DEVPRI]:

000000

L INMSK:

000001

200

002246
002246

000001

042054

ZEXPECT_INPUT FLAG
;OUTPUT MESSAGE POINTER AND SIZE
; INPUT MESSAGE POINTER AND SIZE
;0UTPUT BUFFER POINTER AND SIZE

s INPUT BUFFER POINTER AND SIZE

;TEST MESSAGE AREA POINTER

: TEMPORARY MESSAGE

POINTER AND SIZE

;USED FOR INITIALIZATION OF OUTPUT ROUTINES
;GENERAL BUFFER AREA POINTER AND SIZE
;MESSAGE NUMBER (DDCMP)
JPRESENT UNIT PTABLE DATA

;L
JLINE

40
100

031066
000061

:LOGTCAL DEVICE NUMBER

;sDEVICE PRIORITY

Q
0

052126
030532

;END_OF _MESSAGES FLAG

INE

sLINE
sJLINE
SJLINE
JLINE
JLINE
JLINE

PASCNT:

;TIMEQUT LIMIT (IN 100 MICROSEC. INCREMENTS)
;SHORT TIMEOUT LIMIT (APPROX. 20 MICROSEC. INCREM.)
;LIMIT ON DEVICE INITIALIZATION ATTEMPTS
; INPUT ERROR
sOUTPUT ERROR

;MASKS

FOR LINE

SELECTION BITS

(DZ11)

OQUTERR:

OOOQCOOOCOOOOO

ILIMIT:
INERR:

;TEST ABORT FLAG

768
769
770
771
772
773
774
775
776
777
778

;FLAG TO INDICATE IF R5 STACK IS SET UP
sSCRATCH LOCATIONS

= 5P
—

:
ABORT
TIMLIM:
STIME:

OOOQCOOOOOOOO
OO0 —=ONO
o
O
Qo
o

RSSTCK: 0
SCRTCH: 0
TEMP:
0

000000

767

782
783
784
785

29-DEC-78

DEVTYP «<vT62,D211>

DEVREG 4,°7,DZREG,DIMSK

ASCIZ

/vT162.D211/

.EVEN
.WORD

ASSEMBLY ROUTINES
MACY11
czpzcB.P11
21-NOV-78 16:33

816
817
818

002250
002252
002254

000017
000004
000004

30A(105¢)

11:50

PAGE 20

2
SEQ 0020

.WORD
WORD
BLKW

17
4
4

ASSEMBLY ROUTINES

21-NOvV-78 16:33

SEQ 0021

:ttfit!tttttttttttttttttttt"!tiltttfititi'tt.ttt
4

040503

042520
103
051105

AR AN RN AR

RN AR RN RN NN RN

MSGOO0:

LASCIZ /CAN NOT

MSGO1:

LASCIZ /REPLY WAS NOT AN ENQ/

ANAAN

INITIALIZE COMM DEVICE/

020124
020131
000
051101
047040
052105
020104
020122
041505

051122
042522

MSGOZ2:

LASCIZ /INCORRECT RFPLY TYPE/

044522
052117
041505
043101
030061
000

MSGOS5::

LASCIZ

050105
051501
051117
051440
047117
042522

054514
044440
042522
040524
040440
051523

MSG42:
MSGO3:

LASClZ /REPLY HAS INCORRECT STATIUN ADDRESS/

040505
040510
020103
000122

042504
020123
051105

1T :
MSG4
MSGO4:

LASCIZ /HEAPER HAS (RC ERROR/

MSG0:

LASCIZ /ERROR DURING KEYBOARD TEST

MSG11:

LASCI2 /BAD RESPONSE

MSG12:

LASCIZ

047522

051522
020124
0465440

GLOBAL TEXT

aRRAA RN A AR A AR

054524

0475
0411

020122
043516
047502
042524
025052
0476440
047520
000052
042522
042523
020175
040517

0475
020131
041501
051440
051106
054505

046440
044103
042524
047105
046517
047502

Q
= O WM
NO =N

zbz(B.P11

MACY11 30A(1052) 29-DEC-78 11:50 PAGE 51

/CARRIER NOT

/TO0 MANY

DETECTED AFTER

10MSEC/

=+« END OF

REPORT

FROM KEYBOARD/

CHARACTERS

SENT

FROM KEYBUARD/

—

=PI
NN =
LNNg—‘LNO*NJ\N
£ B N0 NSIO

~nony

——

o.-a—l—l—l

jelelelolelele] (=]
wviH HNonoaaonn [V}

ASSEMBLY ROUTINES
MACY11
C2Dz(B. PN
21-NOV-78 16:33

30A(1052)

000104
047101
042440
020072
040522
020124
051122
000

29-DEC-78

11:50

J_
@
PAGE 22

SEQ 0022

MSG20:

LASCIZ /TRANSMIT ERROR: NO TRANSMIT INTERRUPTS/

MSG4O0:
):
MSGZ

LASCIZ /RECEPTION ERROR/

MSG22:

LASCIZ /NO ACK RECEIVED AFTER TRANSMISSION/

MSG23:

LASCIZ /ERROR WHILE

MSG24:

LASCIZ /ERROR DURING COMM DEVICE TRANSM]T/

MSG25:

LASCIZ /NC STACK

MSG26:

LASCIZ /ERROR DURING COMM DEVICE RECEIVE/

052047
041440
052040
042116

MSG30:

LASCIZ /CAN'T GET CLEAR TO SEND/

020105
047040
051101
051522
020115
047111

MSG31:

LASCIZ /TIME

020105
046440

MSG32:

LASCIZ

041505
047117
051117
020117
042522
042105
051105
051516
047511
047522
046111
052111
044532
046517
044526

051122
051125
047503
053105
051124
052111
020117
020113

INITIALIZING COMM DEVICE/

IN RESPONSE

TO STRT/

044505

042523
046511
035124
044103
042524

047522
046522

009
046511
035124

/TIME

OUT:

NO CHARA(TERS FROM TERMINAL/

MESSAGE

FROM TERMINAL

INCOMPLETE/

MACY11 30A(1052) 29-DEC-78 11:50 PAGE 23 2
K

051505
043040

NS
OO
AT BV, [0
iV,
L]

ASSEMBLY ROUTINES
CZbz2(B.P1
21-NOV~78 16:33

040523
047522
046522
064440

105

vviv

104

042524

051125
04

042040
020107
040502
051105
046111
020114
052040
042522
042523
115
020131
020122
042520
000

V=N
- =2 3N

042040
020107

NNOO=MPOMNMNIN
N = NSNINDWIA

116

050040
047122
042524
105

040524
042440
000

NN
N = =N

041522
051117

MSG43:

.ASCIZ /DATA (CRC ERROR/

MSG4S:

.ASCIZ /NOISE PATTERN SUBTEST/

MSGS0:

.ASCIZ /ERROR DURING SELFTEST/

MSG51:

.ASCIZ /ERROR DURING LOOPBA(CK/

MSGS2:

.ASCIZ /DATA ERROR/

MSG70:

CASCIZ /ILLEGAL

MSG71:

LASCI]

MTY:

.BYTE 0.0
LASCII /M - BANK #/

BNO:

.BYTE 0,0
EVEN

SELF

TEST RESPONSE/

0201
0471
0511
0475
0545

115

047101
000
003654
051103
051122
003670

o
O—=—2=20MrNLN
N=2NOH=2NOWNES
W

046120

SEQ 0023

041040
043
046517
051117

042440
000

MSG72:

/MEMORY ERROR

TYPt

LASCIZ /CROM ERROR/
.EVEN

STRIR:

STRTSA:
STRTC:

.BYTE ENQ
.BYTE STRT

BYTE
.BYTE
.BYTE
.BYTE
.WORD

300
O
0
0
9

"QtQ'tfl.fittifittt.t’i'tt"tttittl".tt.'.tttt..t
.

GLOBAL ERROR REPORT

,'tlttt'fitttt'tttt't.itt"t"!ttt'!t.lfitt...t".

BGNMSG AREAOQ
176220

003726

PRINTX #FORMOO,ILIMIT

MOV
MOV

l L IMIT,~(SP)

[ f

= (SP)
ORMO{,

ASSEMBLY ROUTINES

283

997
998

003750
003756

003734

012746
010600
104015
062706
104023
040445
020122
020101
050115
000
003760

000002
000006

043101
047445
052101
051524

ENDMSG

042524
0c2466
042524

FORMOOQ:

d
)
)
D e
)
d

EMT

C$MSG

C$MSG
BGNMSG AREAQ?

003762
003766
003772

016746
016746
012746

PRINTX #FORMO2,A024 ,A028

000030
000022
004020
000003

000010
n

ENDMSG

004012

004020
004026
004042
004050
004056

104023
000000
000000
040445
053111
031517
020055
052103
031517
004064

042522
042105
040445
054105
042105
047045

042503
022440
026440
042520
022440
000

AQ2A:
AQ2B:

FORMO?:

004064

016746

176022
176020

0
0

CEMSG

LASCIZ /%ARECEIVED X03XA -- EXPECTED X03%N/

BGNMSG AREAQ3
PRINTX #FORMO2, TEMP,S(RTCH

SCRTCH,-(SP)
TEMP,~(SP)

004020
000003
000010

AQ28,-(SP)
AQ2A,-(SP)
#FORMO2,
~ (SP)
#3,-(SP)
SP.RO
CSPNTX
#10,SP

.EVEN

AREALZ:

1031

ADD

SP,RO
CSPNTX
#6,SP

.EVEN

)

1026

EMT

047045

104023

)

LASCIZ /XAAFTER XO6XA ATTEMPTSAN/

#2,=(SP)

BGNMSG AREAOQ1
ENDMSG

)
D
) e
d cd
d e
e

023
024
1025

SEQ 0024
MOV

g2eRSR3T28%

£33

003710
003714
003716
003720
003724
003724
003724

995

o jolole) elelelololololols)
N N Nd—l—fl—‘d-fl—‘—‘—‘—‘
N —=SOVONINEWN=O

21-NOvV-78 16:33

€ZDZCB.P1

987
988
989
990
991
992
993

MACY11 30A(1052) 29-DEC-78 11:50 PAGE 54

#FORMOZ2,
- (SP)
#3,-(SP)

SP,RO
CSPNTX

ENDMSG

104023

#10,SP

C$MSG
BGNMSG AKEAQ4

MACY11 30A(1052)
21-NOV-78 16:33

ASSEMBLY ROUTINES
NIN)
— ==
2
PR Omeoooomogmomoooo
SN

016746
016746
012746
012746

010600
104015
062706

000030
000022
004154
000003

b ed
PNON) ==

033117

020055
052103
033117
004220

PRINTX #FORMO4 ,AQ4RC,AQ4EX

AOeRt
- (3P)
SP.RO

CSPNTX

#10,SP

ENDMSG

042503
022440
026440
042520
022440
000

AQ4RC:
AQLEX:

FORMO4:

L10004:

C$MSG

0
.ASCIZ /XARECEIVED X06%A == EXPECTED XO6XN/

.EVEN

004220
004226

016746
016746
012746

PRINTX #FORMO4 ,KRC,KEX

000030
000022
004154
000003

MoV
MOV
MOV
MOV
MOV

000010

ENDMSS
KRC:
KEX:

004256

EEEEREREREEC
S
3

1083

SEQ 0025

#FORMO4
, = (SP)

000010

042522
042105
040445
054105
042105
047045

m 2
PAGE 25

#3,~(SP)

=S ONNOWNNNES

b DD Db

SRR

AREA41:
AREA4Z:

11:50

BGNMSG AREA11]

=00

—

)

2 —

b o e ced md d d

) md D ) d e

rd d D

)

VWAL
QLK A A 32223200202
83RR2

OO NONEWNN
= O N0 OO~V

C20zCB.P11

29-DEC-78

0
0

BGNMSG AREAZ21
ENDMSG

L10006:

104023

BGNMSG AREA2?2
ENDMSG
104023
AREAZ24:
AREA4Q:

004260

L10005:

004262

016767

175650

004270
004274

005767
002002

000060

004276

005067

000052

000064

L10007:

BGNMSG AREAZ23

TEMP2 LT #0 THEN
LET TEMPZ

ENDIF

:= #0

SP,RO

EMT

ADD

CSPNTX
#10,SP

EMT

CMSG

EMT

CSMSG

EMT

CSMSG

MOV

LOGDEV, TEMP2

TST
BGE

50000%

CLR

TEMP?

LET TEMP2 .= LOGDEV
IF

KEX,=(SP)
KRC,=(SP)
#FORMO4 ,~(SP)
#3,-(SP)

TEMP?2

ASSEMBLY ROUTINES

2
004 302
004302
004306
004306
004316
004322
004324
004326
004332
004332
004336
004342
004344
004346
004352
&H

(V]

004352

004356
004364
004372
004376
004404
004412

004420
004426
004434
004442
004450

005267
016746

012746

30A(1052)

SEQ 0026
500008:

INC

PRINTX #FORMZ23,TEMP?

000042

012746
012746
010600
104015
062706

004376
000007

000006

MOV

PRINTX #FORM40

000004

ENDMSG
:

104023

042504
020072
000116
020040
020040
025052

047440
047522
047520
025052
000

TEMP?2
TEMP2 - (SP)

MOV

044526
042045
020040
025040
042440

TEMP2:
0
FORM23: .ASCIZ
FORM4O:

L10010:

#F ORM23
= (SP)

MOV
MOV
EMT
ADD

#2,-(SP}
SP.RO
CSPNTX
#6,SP

MOV
MOV
MOV
EMT
ADD

#F ORM4O
, - (SP)
#1,-(SP}
SP.RO
CSPNTX
#4,SP

EMT

CeMSG

/XADEVICE: XD3XN/

.ASCIZ /%A

xxxxx END OF ERROR REPORT wasa«XN/

020106
020122
052122
025052

.EVEN
BGNMSG AREA26

PRINTX #FORM26 ,RDONE

SN O

000002

MOV
MOV

000006

ADD

#6,SP

EMT

C$MSG

MOV

R1,=(SP)

FRERR

WA
= —s

VW LW IV, IV SO L W O

012746
010600

012746
104015

062706
104023

060445
051105
042524
022440

000
004534

004502

052502
041440
052116
033117

MOV
EMT

ENDMSG

043106
047117
035123
047045

FORM26:

.ASCIZ

L10011:

/XABUFFER CONTENTS: X06XN/

RDONE , = (SP)

#F ORM26
,~ (SP)
#2.-(SP)
SP.RO
CSPNTX

EVEN
AREA3]:

010i46

MOV

010476

SEBENINR
2R

016746

(91,
1V, 1V, | (U

(]

PAGE 26

004356

000002

042503
022463
040445
020040
025052
042116
051105
042522
025640
047045
004454

11:50

LET TEMP2 := TEMP? + #1

000046

012746
010600
104015
062706

000000
040445

29-DEC-78

004454

004312

so%8 geR SEERSIRSNTE

b o

WAV VIV IV, P ¥

ad md e

3 F o¥ W

d e

W N

b i

ZE R SR SR ER R

d ed

WWWWNIWW

b oD o)

b e

D —md

d and

b cmd ard

)

b ad

) d d cd

D e

NN PPN NN POPNININ) = 2 ed b b b

d e

d b b

OO0

d md

;

21-NOV-78 16:33

_._.—a..A—A—A—J-&—A—l—‘_;_a—h_;_a_;_;_;_g—l—l—d—l—l—a—l_a_A._l_a_.—l—l_)—l_._a—)_;_;_;_;_.—l_;_;_a__j_g_.—l_.—l_&

CZbz2(B.P11

MACY11

BGNMSG AREA30
PUSH R1

LEY RY

:= #DZREG

ASSEMBLY ROUTINES

€Zpz2CB8.P11
1155
1156
1157
1158
1159
1160

1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172

1173
1174

1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193

1194

1195
1196
1197
1198
1199
1200
1201
1202
1203
1204
1205
1206
1207

1208
1209
1210

004536
004542
004542

004546
004552
004556
004560
004562
004566
004566
004572
004576
004602
004604
004606
004612
004612
004616
004622
004626
004630
004632
004636
004636
004642
004646
004652
004654
004656
004662
004662
004664
004664
004664
004666

21-NOV-78 16:33
012701

002254

016146
012746
012746
010600

0200000
004666
000002

104015
062706

000006

016146
012746

000004
004731

012746
010600
104015
062706
016146
012746
012746
010600
104015
062706

30A(1052)

29-DEC-78

11:50

B_3

PAGE 27

SEQ 0027

PRINTX #FORM30,RCVCSR(RT)

000006

016146
012746
012746
010600
104015
062706

PRINTX #FRM30A,RCVBUF
(R1)

000002
004707
000002

PRINTX #FRM308,XMTCSR(R1)

000002
000006

PRINTX #FRM30C, XMTBUF (R1.

000006
004752
000002

000006

POP R1

012601

ENDMSG

104023
040445

004674
004702
004707
004714

051503
033117
045
041122

004730
004731
004736
004744
004752
004760
004766

000
065
041524
047445
040445
052502
047445

004722

MACY11

022440

0551064
035122
047045
042101
043125

051040
022440
000
020132
035106

042101
051123
022466
055104
043106
022466

020132
020072
000116
052040
020072
000116

033117

MOV

#DZREG,R1

MOV
MOV
MOV
MOV

RCVCSR(R1) ,-(SP)
#FORM30,-(SP)
#2,-(SP)
SP,RO

EMT
ADD

CSPNTX
#6,SP

MOV
MOV
MOV
MOV
EMT
ADD

RCVBUF
(R1) ,-(SP)
#FRM30A,
- (SP)
#2,-(SP)
SP,RO
CSPNTX
#6,SP

MOV
MOV

MOV
MOV
EMT
ADD

XMTCSR(R1) ,-(SP)
#FRM308,-(SP)
#2,-(SP)
SP,RO
CSPNTX
#6,SP

MoV
MOV
MOV

XMTBUF
(R1) ,-(SP)
#fRM30C
- (SP)
#2,~(SP)

MOV
EMT
ADD

SP,RO
CSPNTX
#6,SP

MOV

(SP)+,R1

EMT

CEMSG

MOV
MOV
MOV
EMT
ADD

#F ORMGO,
= (SP)
#1,-(SP)
SP,RO
CSPNTX
#6 ,SP

L10012:

FORM30:

.ASCIZ /XADZ RCSR:

FRM30A:

.ASCIZ /%ADZ RBUFF:

FRM30B:

.ASCIZ /%ADZ TCSR:

FRM30C:

.ASCIZ /%ADZ

X06IN/
XZ06IN/

047045

TRUFF:

%O06IN/

XU6IN/

.EVEN
004774
004774
004774
005000
005004
005006
005010

012746
012746
010600
104015
062706

005016
000001
000004

BGNMSG AREA6Q
PRINTX #FORM60O

—

bt Vele :LNTe NV, F ROV ,VEYwLVolo - RNTs JV, ¥ NPT, V)

005014
005014
005014

30A(1052)

11:50

29-DEC~78

PAGE 28

SEQ 0028

ENDMSG
104023

040445
020124
047111
047517
022513

040503
042507
047524
041120
000116

012746
012746
010600

005144
000001

104015
062706

000004

016767

175040

005767
002002

177250

005067

177242

023516
020124
046040
041501

FORMG0:

d ed

005267

177236

—

016746

177232
004356
000002

012746
012746

04606445

EMT

C$MSG

#FORM61 ,-(SP)
#1,.-(SP)

SP,RO
CSPNTX

¥4 ,SP

LET TEMPZ2 := LOGDEV

177254

LOGDEV, TEMP2

TEMPZ LT #0 THEN

TEMP?

50001%

LET TEMP2 := #0

TEMP?2

ENDIF

50001%:

LET TEMP2 := TEMP2 + #1

INC

PRINTX #FORM?23, TEMP?2

MOV
MOV
MOV
EMT
ADD

ENDMSG

040503
042507
020124
047517
022513

FORM61:

L10014:

LASCIZ /%ACAN'T GET OUT OF LOOPBACKZN/

EMT

TEMP2

TEMP2 ,=(SP)

#FORM23,-(SP)
#2,-(SP)

SP,RO
CEPNTX

#6,SP

CEMSG

.EVEN
BGNMSG AREAS?

PRINTX #FORMSZ2,AS52A,A52B

000074
000066
005234
000003

A528,~(SP)
AS2A,-(SP)
#FORMS2,~(SP)
#3,-(SP)
SP,RO
CSPNTX

000010

054105

LASCIZ /XACAN'T GET INTO LOOPBACKIN/

PRINTX #FORM61

000006
104023

L10013:

.EVEN
BGNMSG AREA6G1

b —a

O“O‘N"\)Nf\)g

D e

b ed

)

b—

[ASIAN
TN IaT, N1, V] INSIASIASIASIANIASIAS
1A [a S [y V1,8 1,NT, U1, ¥ ~nJ
e
~nn) PINDNOAOADNINON)
= = D
s

ASSEMBLY ROUTINES
MACY11
€Zbz(CB P11
21-NOvV-78 16:33

#10,sP

ENDMSG

042520

FORMS?2:

LASCIZ /XAEXPECTED:

L10015:
X03%A

-RECEIVED:

%03%N/

CIMSG

ASSEMBLY ROUTINES

(2b2CB P11
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283

005242

MACY11
21-NOV-78 16:33

052103
0476445
026440
053111
047445
000000
009000

042105
022463
042522
042105
022463

30A(1052)

29-DEC-78

020072
0202101
042503
020072
000116
AS2A:
ASZR:

11:50

D
3
PAGE 29

SEQ 0029

.EVEN
0
0

BGNMSG AREA70
ENDMSG

104023

L10016:

EMT

CIMSG

EMT

CIMSG

BGNMSG AREA?Z1
ENDMSG

104023

001452
011470
011670
011670

000416
000100

TEMBUF
:
TMPBUF
:

SSTACK:

L10017:

Bukw 810,

.BLKW 270.
.BLkW 100
ENDMCD

¢STACK FOR SUBROUTINE L INKAGE.

ASSEMBLY ROUTINES

€zbz2(B8.P11
1294

1295

21-NOV-78 16:33

011670

29-DEC-78

;

1297

1%}2

30A(1052)

AP RN

1296
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307
1308
1309
1310
1311
1312

MACY11

011670
011670
011672
011674
011676
011700
011702
011704
011704
011704
011704
011706
011710
011712
011714

011714

BGNMOD TABLE

R AR N A R AN

PAGE

AR AR N A N RN

AR AR

SEQ 0030
AN RN AR AR AT AR NN RANARANRN AR

DEFAULT HARDWARE P~TABLE AND SOF TWARE P-TABLE

RN AR AN AR A AR NN AN RN AR NN R

RN AR RN R

RANARARNRARAR AN RN,

BGNHW

000005
160010
000320
000640
007030
000001

000003
000010
000001
020000

11:50

160010
320
640
7030
1
ENDHW

000010
PATTERN:000"01
STWAIT: 20000
ENDSW
AR

1316
1317
1318
1319
1320
1321
1322

DISPAT(H TABLE
RN A AN AN AN AN AR AR AN AR A RN AN RO R NAN N RN NN NN N R AR AN
DISPATCH TSTS

000002
017466
020516

ENDMOD

LWORD

L10021-L$SW/2

.WORD
WORD

TSTS
T1

.WORD

L10021:

1315

011714
011714
011716
011720
011722

L10020-L$HW/2

L10020:

BGNSW

R AR R AN R AN NN AN NN NN AN RN RN AR ANR O N ARV

.WORD

R R AN RANR NN

NN NN

*
NN

ASSEMBLY ROUTINES

c202C8.P11

;lggg

MACY11

21-NOV~-78 16:33

30A(1052)

29-DEC-78

011722

11:50

PAGE

3
SEQ 0031

BGNMOD (ODE

1325

1326

;STUB AREAS FOR SUPERVISOR COMPATIBILITY

1327

1328
1329
1330

011722
011722
011722

1333
13346
1335
}g%g

011724
011724
011724
011724

1338
1239

011726
011726
011726
011726

}%g}

1340
}gfi;

011722

;

011730

}gg;

011736

010146

011732

012700

104050

000040

1371
1372
1373

1%;?

1376

1377
1378

EMT

($OU

MOV

R1,=(SP)

MOV

#EF .START
RO

BCC

50002%

MOV

#SSTACK RS

INC

RSSTCK

50003%

RN RN NN R AN R AR RNNRANRAAR

INITIALIZE CODING

R LA

R atL

PUSH R

READEF #EF.START
EMT

CSREFG

PIF A START, THEN...
011740
011740

;

103005

}ggg
1368
1369
1370

CSAU

BGNINIT

;
. SAVE R1
:

1359

1367

EMT

ECHECK START EVENT FLAG TO SEE IF WE GOT HERE BECAUSE OF A START
011732

1366

CSRPT

L10024:

104055
A AR R YA RN

EMT

L10023:

1355

%%2%

L10022:

BGNDU
ENDDU

NN R R R

011730

RN AN

104054

}%gz

1360
1361

A NI NI NRA R R RN AR RN AN AR AN RRNA AR AR

BGNAU
ENDAU

1345

1356

RN RN R AARRRRNANARNRARRN

104025

1344

}%g}

AN RN AR

BGNRPT
ENDRPT

1343

1346
1347
1348
1349
1350

AR AR

IfF .ERROR THEN

PINITIALIZE THE SUBROUTINE LINKAGE STACK
011742

0117642

011746
0117646
011752

011752
011754

012705
005267

011670

’

LET RS := #SSTA(K
LET RSSTLK

170136

:= RSST(Kk

+ &1

ELSE

000414

50002%:

s1F NOT START THEN....

SCHECK FOR RESTART

AND IF IT [S:

JUPDATE LOGJCAL DC'ICE AND STAT, TABLE ENTRY POINTER,
SBUT DON'T EXCEED THE NUMBER OF UNITS SPECIFIED

ASSEMBLY ROUTI NES
MACY11
¢Zbz(B.P11
21-NOvV-~78 16:33
eolololelelololele]

012700

e Sy Qo

104050

6.3

PAGE 32

SEQ 0032

005267

170146

026767
001002

170142

005067

170132

LET LOGDEV

:= LOGDEV + #1

IF LOGDEV EQ LSUNIT THEN

170014

LET LOGDEV

:~ #0

ENDIF

#EF .RESTART
RO

BCS

50004

INC

LOGDEV

cMP
BNE

LOGDEV ,LSUNIT
50005%

CLR

LOGDEV

MOV
EMT

#EF .NEW,RO

BCC

50006%

CLR

LOGDEV

(LR

INIT

(LR

ABORT

CSREFG

50005%:

ENDIF

g
S
5~ &H

MOV

EMT

IF .NO.ERROR THEN

11:50

READEF #EF .RESTART

200037

103410

puar Sonar Qs Qo

—

30A(1052)

- -

3 (V)] RRS2
JLREREREE WA

W
S
ST
S D
S
Yo
P
O

NN
NN NN
O

1379
138)

Puns Gunrd

50004%:

ENDIF

50003s:

$LHECK FOR NEW PASS... IF [T IS, FORCE LOGICAL UNIT TO ZERO.
012700

104050

READEF

000035

IF .ERROR THEN

103002

005067
1409

LET LOGDEV

170116

6
1417

:- #0

ENDIF

012020

2
3

WEF .NEW

CSREFG

50006%:

EEQRCQFYSEAfiamfiOgEVICE TC BE INITIALIZED
012020
012020
012024
012024

005067

’

003624
170066

012767

015674

003634

016767

003630

003624

012767

015712

003636

016701

003632

012767

016721

005310

170022

170026

LET INIT :

LET ABORT

:- 0

éSET UP THE INPUT BUFFERS QUEUL
;
LET RQUE : #RQUET
LET RQUEUE

:- RQUE

LET RBQUE

:= #RBQUET

LET R1

#RQU
T ,RQUE
E

RQUE ,RQUE Ut
#RBT
QUE
,RBQUE

:= RBQUE

RBQUE ,R1

LET SCRT(H := #TEMBF

#TEMBUF ,SCRTCH

REPEAT

LET

(RY)e

:- SCRT(H

50007%:
SCRTCH, 'R1)»

1435
1436
1437
1438
1439
1440

012070
012070
012076
012076
012102

1443

[aNTaN 1oV 1 N 1,0 1,N1a0 V)

ASSEMBLY ROUTINES
MACY11
Czb2CB.P11
21-NOv-78 16:33

ROSSRRRR

g
- Sl
Sl

b
d
b

Gur Gy
Gaur G
Qs S

Jr S-S

NININONONIND

—b
b ek —
e
b —b
D
D

D oD

[elelelolololele)

jor Qo

s Gaur
Phuur S
G
P

er o

1464
1465
1466
1467

1463

Gar i

1460
1461
1462

Snr P

1450
1451
1452
1453
1454
1455
1456
1457
1458
1459

Qs S

1449

1445
1446
1447
1448

1444

000416

020127
003770

015716

29-DEC-78

11:50

PAGE 33

SEQ 0033

LET SCRTCH := SCRTCH + #270.

170014

UNTIL R1 GT #RBQUEB

ADD

#270.,SCRTCH

cMP

R1,#RBOUEB

INC

MOV
EMT

LOGDEV RO

BLE

500C7$

*GET THE PTABLE ENTRY FOR THIS LOGICAL DEVICE

jolelelololololelolelelolololololele)

1441
1442

062767

30A(1052)

REPEAT

LET R1

00520
016700

GPHARD LOGDEV,SCRTCH

170024
167772

.
*IF UNIT HAS BEEN DROPPED, UPDATE POINTERS ETC. AND TRY AGAIN
’

103411

005267

170010

026767
001002

170004

005067

167774

500108:

:= R1 + #1

IF .NO.ERROR THEN
LET LOGDEV := LOGDEV + #1
IF LOGDEV EQ LSUNIT THEN

167656

LET LOGDEV

:= #0

ENDIF

LET R1

005001

C$GPHRD
RO,SCRTCH

BCS

50011%

INC

LOGDEV

CMP
BNE

LOGDEV,LSUNIT
50012%

CLR

LCGDEV

CLR

MOV

#PTABLE
,R1

MOV

aSCRTCH, (R1)

ADD

#2 ,R1

50012$:

:= #0

ENDIF

50011%:

UNTIL R1 NE #0

005701
001756

MOV

BEQ

i
INOW GET THE PTABLE DATA FROM THE SUPERVISOR AND STORE WITHIN THE

500108

\J\J\lggoowwmmmm
ororo
QOO0

=D
D
d
) ——d
b
)
)
d
e
—

b
)
D
—d
——b
i
b
) cd
d
D
—t

[0 ]

—

S LN STNT N1 ST S1,8 1,8 1,871,861, 81,8

(elolelelolelololololelole]

*DIAGNOSTIC PROGRAM
012701

’

002200

017711

167732

062701

000002

LET R1 :- #PTABLE
REPEAT

LET

(R1)

LET R1

:= R1

+ #2

LET SCRTCH := SFRICH + #2
[

062767

000002

020127
001366

002212

167720

50013$:

:= @SCRTCH

UNTIL RY EQ #PTEND

IGET THE LINE NUMBER AND ISOLATE [T FOR FUTURE USE

ADD

#2,SCRTCH

(MP
BNE

R1_,#PTEND

500138

ASSEMBLY ROUTINES
MACY11
CZbzCB.P11
21-NOV-~78 16:33
1491
1492
1493
1494
1495
16496
1497

012200
012200
012204
012210
012210
0122}5

012701
062701

29-DEC-78 11:50 PAGE §4

30A(1052)

002200
000006

01110

042701

177770

006301
016167

002214

LET R1

:= #PTABLE + #6

LET R1

:= (R1)

LET R1

:= R1 CLR.BY 4177770

LET R1

:= R1 SHIFT M

LET SLINE

003406

3
SEQ 0034

:= LINMSK(R1)

MOV
ADD

#PTABLE ,R1
#6,R1

MOV

(R1) R

BIC

#177770,R1

ASL

MOV

LINMSK(R1)
, $L INE

MOV

(SP)+ ,R1

*RESTORE R1 AND EXIT INIT CODE

D
D
D e
D
e
D e
D e
D
) e

040445
040440
040524

0521

051514

047045

a—

L10025:

LASCIZ /XNXAYT62 ATCEPTANCE

TEST

EMT
CSINIT
VERSION 10 TERMINALSIN/

.EVEN
SRR RANANANR RN AR RANNNAANRN

IR RN RANRARARRRN SN

CLEAN-UP CODING

RANR

"'tlfittt.tfi*.'t'fi'fl.tt.""'it'.tt'..'t'.'.."'

012322

BGNCLN

*MAKE SURE DEVICE 1S SHUT DOWN
rfoo LN AV

RRY AN

nony

md —d =D
e
o
d e
d
—

ASTASTANT,
N 1A N1 N 1A ST U1 V1, V)

jelelelelelololelele)

322

‘

010146
016701

167650

005061

000004

052761

000020

PUSH R1
LET R1

000000

:= PTABLE

LET XMTCSR(R1)

LET RCVCSR(R7)

:= RCVCSR(R1)

POP R1

012601

SET.BY MMAS(CLR

MOV

R1,-(SP)

MOV

PTABLE .R1

CLR

XMTCSR(R1)

BIS

#MASCLR ,RCVCSR(R

MOV

(5P)+ ,R1

INC

PASCNT

¥
3

—

[a%1aV)

*UPDATE PASS COUNT
QO

Ll VY]
—O0

—t
D e
d
b D et
(¥
alVa) (W ARV, LWL RV TV RV LW LV A R

&~
[

—

VMSG:

012322

D e

WNIWNWIWWRADNORNOROAUNDNIROMNIN)
=
b

012262
012270
012276
012304
012312
012320

POP R1
ENDINIT

o
~
W
<]

RIRRGRY OOV NN WSOV
fflflé“
NO NS WA
O
08

IV LV RV LV LV SV RO LV LV IV RV, (VL IV, IV, |

) e

)

’

05267

167562

’

LET PASCNT := PASCNT + #1

‘EXIT CLEAN-UP CODE

ASSEMBLY ROUTINES

czbzs.P1N
1

012350

]

012350

1549
1

012350

012352

MACY11 30A(1052) 29-DEC-78 11:50 PAGE %5 3

21-NOV-78 16:33

ENDCLN
104012

ENDMOD

SEQ 0035

L10026:

EMT

CSCLEAN

ASSEMBLY ROUTINES
(oo
Yo o [V A LV IV, LV, LV IV, )
W
— o OO0 NON N B ANNY

30A(1052)

29-DEC~78

K 3
PAGE 36

11:50

SEQ 0036

ASESARR

AASAASE A0SR

iRl

2222222

GLOBAL SUBROUTINES

4R 2

SRR

RS2

2 R

R R

2222232222222

222

ROUTINE TO PROCESS TERMINAL MESSAGES FOR ALL TESTS
RETURNS POINTER TO MESSAGE ('DUTMSG'') AND ITS SIZE

IN BYTES (‘OUTSIZ')

tev.

SIZE MAY BE ANY NUMBER OF BYTES

SETS A FLAG ('EXPINP'')
TO BE EXPECTED

IF RESPONSE OTHER THAN '‘ACK''
IS

8.8,

0, 08,

Ba0e
B

SETS ANOTHER FLAG ("EOMSG'")

THIS IS THE LAST MESSAGE

ARt

Pttt
r e

0,00,

BGNMOD GSUB

N S

WS ViAW

(ZD2(B.P1

MACY11
21-NOV-78 16:33

0##04+§##++##409+§§+#40#§++++*44064400#9044*400#*0########0++§0#0#

ROUTINE MSG

010446
010604

162706

;03.2.14]

MSG:

DECLARE LOCA.S
LOCAL <A>
ALLOCATE

MOV

000002

R4 ,~(SP)

SuB

SP,R4
w2,sP

MOV

aMSGAP ,A(R4)

MOV
MOV
BIC

A(R4) ,SCRTCH
SCRTCH,=(SP)
”,(SP)
(SP)+,SCRTCH

*GET MESSAGE POINTER
017764

167574

:= aMSGA®

LET A(R4)

*IF MESSAGE POINTER IS ODD.

*SET END_OF _MESSAGE INDICATOR

016467
016746
042716
042667

177776
167510

LET SCRTCH

:= A(RL)

AND #1

000001

167500

005767
001405

167474

005267

167510

042764

000001

8IC

SCRTCH NE #0 THEN

TST

LET EOMSG

:= EOMSG + #1

LET A(R4)

:= A(R4) CLR.BY #1

ENDIF

SCRTCH

BEQ

500028

INC

EOMSG

8IC

#1,A(RS)

TST

A(RG)
50003%

50002%:

IF MESSAGE _POINTER IS NEGATIVE,

SET EXPECT_INPUT INDICATOR

005764
002006

177776

A(RG)

LT #0

THEN

BGE

MACY11 30A(1052) 29-DEC-78 11:50 PAGE %7

—

)

= OV~

D e

)

D o

%0‘0‘0‘00‘0‘00‘0‘0‘0
N
bt edad ed D Db )

ASSEMBLY ROUTINES
C202¢B.P11
21-NOV-78 16:33

1622

012440
012440
012444
012444

005267

167474

042764

100000

3
SEQ 0037

LET EXPINP := EXPINP + M1

LET A(R&G)

177776

:= A(R4)

CLR.BY #100000

INC

EXPINP

BIC

#100000,A(R4)

OTHERWISE, CLEAR EXPECT_INPUT
012452
012452
012454
012454
012454
012460
012460

ELSE

000402
005067

LET EXPINP := #0

167460

ENDIF

50004¢%

50003$:
CLR

EXPINP

MOV

A(R&) ,0UTMSG

ADD

#2 ,MSGAP

MOV

aMSGAP,QUTMSG+2

ADD

AMSGAP ,MSGAP

ADD

#2 ,MSGAP

MOV
MOV
BIC
BIC

MSGAP ,SCRT(CH
SCRTCH,-(SP)
#,(SP)
(SP)+,SCRTCH

TST
BEQ

SCRTCH
50005%

INC

MSGAP

50004%:

*SET MESSAGE ADDRESS AND

;MESSAGE_S1ZE
012460
012460
012466
012466
012474
012474

016467

177776

167454

062767

000002

167466

017767

1674662

167442

LET OUTMSG
LET MSGAP

:- A(R4)
:= MSGAP + 42

LET OUTMSG+2

aMSGAP

012502
012502
012510
012510

067767

167454

062767

000002

167452
167444

’

LET MSGAP :=

UPDATE MESSAGE_AREA_POINTER
LET MSGAP :=

MSGAP + aMSGAP
MSGAP + #2

*IF MESSAGE AREA POINTER IS ODD
JADD 1 TO MAKE IT EVEN
016767
016746
042716
042667

AN
A
A
VIV

oS ronrunororony

d
=D
b ol
e
d
— o

—

NORLNININININONY

jelolelelololele)

012546

167440
167362

000001
167352

005767
001402

167346

005267

167410

167366

LET SCRTCH

IF SCRTCH NE #0 THEN
LET MSGAP

ENDIF
ENDRIN

010406
012604
000207

:= MSGAP AND 41

:= MSGAP + #1

50005%:
500008:
50001$:

R4, SP
(SP)+ R4

ASSEMBLY ROUTINES

cZbz(B.P11

MACY11 30A(1052)
21-NOv-78 16:33

29-DEC~78

11:50

M3
PAGE 38

Al Al e

SEQ 0038

1664

1665

1666
1667
1668
1669
1670
1671
1672

1673

1674
1675
1676
1677
1678
1679
1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704
1705
1706
1707
1708
1709
1710
1711
1712

1713
1714
1715

1716
1717
1718
1719

:
:
;
i

012560
012560

012560

012560
012564
012566
012566
012572
012572
012574
012574
012576
012600
012600
012600
012600
012604
012604
012610
012610

ARl

it A

ROUTINE TEROUT

005767
001011

003064

004767

000222

RETURN ERROR

ENDIF

167370

LET RMSGNO

167366

:
TEROUT

INIT EQ #0 THEN

LET MSGNO

+
+
+

;£3.2.20]

IF .ERROR THEN

000261
000504

005067

CALL XSTRT

103002

005067

BUFFERS OF APPROPRIATE LENGTH FOR DDCMP.

ROUTINE TO HANDLE OQUTPUT OF MESSAGES TO THE TERMINAL
UNDER TEST. MESSAGES MAY BE OF ANY LENGTH SINCE
ROUTINES USED BY THIS ROUTINE SPLIT THE MESSAGES INTO

TST
BNE

INIT
50002%

JSK

PC,XSTRT

8cc

50003s
P

SEC
BR

50001%

CLR

MSGNO

CLR

RMSGNO

MOV

OUTMSG, INITMA

50003s:

:= #0
:= #0

ENDIF

50002%:

JINITIALIZE THE BUFFER ROUTINES [3.2.20.4]
012610
012610
012616
012616
012624
012632

012632

012640
012640
012646
012646

016767

167326

167346

012767
062767

002142
000002

167266
167260

017767

167254

167326

012767
012767

010434

167322

000412

167316

LET INITMA :- OUTMSG
LET SCRTCH
‘

MOV
LET INITMS

012670

162705
004767
012567

012567

000004
000336
167262

:= QSCRTCH

BUFFER #1,BAPNT
LET BAPNT := #TMPBUF
LET BASIZE
;GET A BUFFER OF

012654
012654
012660
012664

:- AOUTMSG + 42

:= #266.

#2,SCRTCH

MOV

@SCRTCH, INITMS

MOV

#TMPBUF ,BAPNT

MOV

#266. ,BASIZE

SuB
JSR
MOV
MOV

#2+2 RS

THE MESSAGE

CALL GETOB OUT

167260

*PERFORM THE FOLLOWING LOOP WHILE

‘A AND ABORT ARE CLEAR AND OUTSIZ
*1S GREATER THAN 0
012674

#OUTMSG, SCRTCH

ADD

WHILE OUTSIZ GT #0 AND ABORT

EQ #0 DO

PC,GETOB

(R§)+ ,OUTBUF

(R5)+.,0UTSIZ

ASSEMBLY ROUTINES

CZDZCB.PA1

’

11:50

29-DEC-78

MACY11 30A(1052)

21-NOV-78 16:33

PAGE 39

SEQ 0039
50004$:

1720 012674
1721 012674 005767 167254
1722 012700 003442
1723 012702 005767 167210

};gg 012706 001037
1729
1730
1731
1732
1733
173
1735
1736
1737
};gg

012710

012710
012714
012716
012722
012726
012732
012734
012740
012744
012744

162705
010546
016745
016745
004767
012605
012567
012567
004767

CALL PROBUF IN <OUTBUF,OUTSIZ> OUT <XBUFFER,XSIZE>

000004
167232
167224

000416

002714
002712

CALL XMIT

001674

1742

012750

1744
1745
1746
1747

012752
012752
012756
012756

104423
000024
002712

1749

012760

000261

1743 012750

012760

IF .ERROR THEN

103005

ERRHRD 20,MSG20

:03.2.20.10]

RETURN ERROR

1750 012762 000412
1751 012764
};2% 012764

ENDIF

012764

1757 C12764

162705

500068 :

CALL GETOB OUT <OQUTBUF,QUT3IZ>

000004

004767

000226

};gg 013000 012567

167150

1758 012770

1765

013004

};@9 013006

000733

1775

TRAP
.WORD
.WORD

TSERCODE
20
MSG20

SEC

50001$

B8R

#2+2 RS

JSR

PC,GETOB

MOV

(R5) +,0UTSIZ

(R§)+,0UTBUF

ENDDO

50005% :

50004$

cLe
RS

:1F ERROR OCCURRED, DO AN ERROR RFTURN

%;23
1771
1772
1773
1774

50006$

MOV
:

1770

BCC

*END OF LOOP

1762

1764

#2+2 RS
RS,=(SP)
OUTSIZ,=(RS)
.= (RS)
OUTBUF
PC ,PROBUF
(SP)+,R5
(RS) +,XBUFFER
(R5)+,XSIZE
PC.XMIT

sus

1759 012774 012567 167152

1763

suB
MOV
MOV
MOV
JSR
MOV
MOV
MOV
JSR

:GET THE NEXT BUFFER

};gg
1756

50005%

*1F TRANSMIT CRROR, REPORT [T AND SET ERRXMT

};2?

1748

ouTSIZ
50005$
ABORT

*ADD PROTOCOL ENVELOPE AND TRANSMIT

};gg
1728

TST

BLE
TST
BNE

013006

013006
013006
013010
013010
013012

ENDRTN

500008:

000241

000207
000000

50001$:
TYPE:

;TYPE OF MESSAGE EXPECTED

ASSEMBLY ROUTINE S

cZpzc8.P11

MACY11 30A(1052)

29-DEC-78

21-NOV~-78 16:33

8 4
PAGE 40

11:50

dad iR

SEQ 0040

SRR LY

S Y
S

013014
013014
013014
013014
013014
013014
013016
013020

010446
010604

162706

WO
NN

;03.2.20.13

‘A BUFFER STARTING AT ‘'STRTB'

~= PUT

*IN THE TRANSMIT ROUTINE'S POINTERS
013024
013024
013032
013032

012767

000C10

003670

002624

’

THIS

R& ,=(SP)

SuB

SP,R4
n2,SP

MoV

#10,XSIZE

MoV

#STRTB,
XBUF FER

MOV
ADD

#5,A(R4)

mMovB

@A (R4) ,STRTSA

INFORMATION

LET XSIZE := #10
LET XBUFFER

002614

:= #STRTB

:GET THE TERMINAL ADDRESS AND PUT INTO THE STRT MESSAGE

= OV

iR d

*THE DDCMP STRT MESSAGE IS 10 BYTES LONG (INCLUDING CRC) AND IS

T
QU PO
U

00000¢

A ''STACK'®' MUST BE RETURNED BY THE TERMINAL

MoV

T
P
S
P
R

DECLARE LOCALS
LOCAL <A>
ALLOCATE

013040
013040
013046
013054
013054

012764
062764

002230
000005

177776
177776

117467

177776

170613

’

LET A(R4)
LET STRTSA

APTABLE + #5

:B= @A(R4)

#PTABLE ,A(R4)

:COMPUTE THE CRC FOR THE STRT MESSAGE AND PUT IN THE LAST TwO BYTES
;OF THE BUFFER (''STRT(C'"
162705

000002

004767

000006
002554
004006

013066
013070
3074

010546
012745
016745

104
106

012605
012567

100

CALL

CRC

IN <XBUFFER,#6> OUT

<STRT(>

;03.2.20.1.2 + 3]
suB
MOV
MOV
MOV
JSR
MOV
MOV

170564

R
%oooaoaoaooooooooooooou
Ned bt
Wr

ROUTINE XSTRT

I Y

SRR
AP SRR 2E3 SR

ROUTINE TO SEND A ‘'STRT'' MESSAGE TO THE TERMINAL

#1+2 RS
R5,=(SP)
#6,-(R5)
XBUFFER,-(R5)

PC,CRC

(SP)+,R5

(RS)+,STRTC

"TRANSMIT THE MESSAGE

1824

004767

001526

CALL XMIT
JSR

PCXMIT

BCC

50002%

:IF AN ERROR OCCURS, REPORT IT AND EXIT WITH THE ERROR FLAG SET.
103005

If .ERROR “HEN

ASSEMBLY ROUTINES
MACY11
C2D2CB.P1
21-NOV-78 16:33
1832
1833
183
1835

1836
1837
1838
1839

132?

013120
013120
013122

013124

013126
013126
013130
013132

30A(1052)

}gzg

002712

000261
000430

004757

013136
013136
013140
013140

1854
1855
1856
1857
1858
}gzg

013144
013146
013146
013150
013152
013152

013142

GET THE

TSERCODE
20

.WORD

MSG20

SEC
BR

50001%

JSR

PC,RCVE

B8CC

50003%

TRAP
.WORD
.WORD

T$ERCODE
21

MSG21

SEC
BR

50001%

TERMINAL'S RESPONSE

FRRHRD 21,MSG21

104423
000025
002761

:03.2.20.10]

RETURN ERROR

000261
000420

ENDIF

50003$:

JOTHERWISE, SET TYPE TO ''STACK'' AND CHECK TO SEE THAT IT WAS THE REPLY
013152
013152
013160
013160
013162
013166
C13172

012767

000607

010546
016745
004767
012605

177624
001062

%g;}

1887

TRAP
.WORD

50002% :

IF .ERROR THEN

103005

1%25

1873
1874
1875
1876
1877
1878
1879
1880
1881
1882
1883
1884
1885
1886

;[3.2.20.10]

:IF RECEPTION ERROR, REPORT IT AND EXIT WITH THE ERROR FLAG SET

1849
1850
1851
1852

1863
1864
1865
1866
1867
1868
}ggg

SEQ 0041

CALL RCVE

003472

1%2;

1853

ENDIF
:OTHERWISE,

013132

PAGE 41

RETURN ERROR

013132

11:50

ERRHRD 20,MSG20

104423
000024

}%2%
1844

29-DEC-78

177632

LET TYPE

:= #STACK

CALL CHKREP IN <TYPE>

MOV

#STACK, TYPE

MOV
MOV
JSR
MOV

RS,-(SP)
TYPE ,-(RS)
PC,CHKREP
(SP)+,RS

;IF REPLY WASN'T A ''STACK'', REPORT THE ERROR AND EXIT WITH THE ERROR FLAG SET
013174
013174
013176
013176
013200
013202
013204
013204
013206
013210
013210

(013210

103005

104423
000031
003153
000261
000401

IF .ERROR THEN
ERRHRD 25,MSG25

;03.2.20.10]

RETURN ERROR

ENDIF
:
JEND OF XSTRT ROUTINE
:

ENDRTN

50004%:

BCC

500043

TRAP
.WORD
.WORD

TSERCODE
25
MSG25

SEC
BR

50001%

ASSEMBLY ROUTINES
MACY11
€2bz(CB. P11
21-NOV-78 16:33

1888

30A(1052)

29-DEC-78

50000%:
50001$:

”

[

013222

W= O
N = OO0 NN

)

d nd

)

[\V1aY] ===
NN
d D DD d D
Vole L NTe SV, ¥ VY]

N0 \0 0000000V
OO

b —d —h
)

AL AR

R
+

+
SEGMENTS OF A SIZE SUITABLE FOR TRANSMISSION OVER A DATA
LINK == RETURNS BUFFER ADDRESS, BUFFER SIZE AND END_OF MESSAGE+
(BUFFER SIZE
= 0 IS END_OF MESSAGE)

013226

010446
010604
162706

:03.2.20.5)
GETOB:

DECLARE LOCALS
LOCAL <C>
ALLOCATE

000002

R4 ,-(SP)

MOV
MOV
SUB

SP,R4
42 ,SP

MOV
ADD

BAPNT ,A(R5)
#10,A(R5)

CLR

B(R5)

MOV
SUB

BASIZE ,SCRTCH
#12,SCRTCH

MOV

A(RS),C(R&4)

*LEAVE ENOUGH ROOM FOR A DDCMP HEADER
013232
013232
013240

016765
062765

166732
000010

LET A(RS)

000000
000000

:= BAPNT + #10

“INIT SIZE TO ZERO
013246
013246

005065

LET B(RS)

000002

:= 40

*SCRTCH HAS MAXIMUM DDCMP MESSAGE SIZE

THIS ROUTINE SPLITS A MESSAGE OF ANY LENGTH INTO

ROUTINE GETOB <A.B>

NONO

)

AR A

R4 ,SP
(SP)+,R4
PC

MOV
MOV

;+++++++++++4+++++++++++++++++++++++++++¢++++++++++++++++++++++++++++++

) ed

)

3833 3

1904

CLC

RTS

DDSTRY: O

ISR

—) e

SEQ 0042

000241
010406
012604
000207
000000

1930

D_ 4
PAGE 42

11:50

016767
162767

166714

000012

166632
166624

’

LET SCRTCH := BASIZE - #2

‘GET A COPY OF THE BUFFER POINTER
016564

000000

177776

LET C(R4)

:= A(RS)
REPEAT

WHILE B(RS)

026567
002017

005767

000002
166656

166610

LT SCRTCH AND

LOOP UNTIL MAX

INITMS GT #0 DO

SIZE

OR END OF

50002%:

CMP
BGE
TST

DATA

B(R5) ,SCRTCH
50003%
INITMS

ASSEMBLY ROUTINES
MACY11
CZDz(B.P1N
21-NOV-78 16:33
013310

1949

1951
1952
1953
1954

PAGE 43

4
SEQ 0043
BLE

50003$

*MOVE DATA INTO MESSAGE BUFFER
013312

013312

013320
013320
013324
013324
013330

013330
013334
013334
013340
013340

013342

;
117774

166646

005367

166642

005267

166634

005265

000002

005264

177776

LET aC(R4)

:B= QINITMA

LET INITMS

INITMS - M1

LET

INITMA + #1

INITMA

LET B(RS)

:= B(RS)

+ #

LET C(R4)

:= C(R4)

+ M
'

ENDDO

000755

;03.2.20.5.1 + 2]

mMove

;03.2.20.5.1]
DEC

IINITMA,aC
(R4)

INITMS

INC
INITMA
:[3.2.20.5.2]
INC
B(RS)

50003$:

INC

C(R&)

50002%

MOV
MOV
RTS

R4,SP
(SP)+,R4
PC

END OF LOOP

013342
013342
013342
013342
013344
013346

ENDRTN

500008:
50001%:

010406
012604
000207

—

00 00 00 Qb 00 Qo 00 00

Y0 0000V
O V00
$883 3§—4—Lfl—a—fi3—tB—hé—fia—d—hd—J—LA—JE;BE;B
SBE8 8B E YOOR R 0SR
ERRIINFINAR

—

NN NN ~N ~

d o

D o

d —d

FRREXRL2R

1955
1956
1957
1958
1959

11:50

003414

1946

1947

29-DEC-78

1944

30A(1052)

;¢¢+++f++¢0+++#++++++§++++#++++++¢##*++4+++§#++#+++++++§¢+#++¢++##+

ROUTINE

RETURN WITH MODIFIED ADDRESS AND SIZE

TO PROVIDE

LINE

PROTOCOL

HEADER AND CHECKSUMS

CALL WITH DATA AREA ADDRESS AND SIZE

(IN BYTES)

;+++¢*+¢++#+¢++++++++++##+¢#+++§++#++###++#+#+#+++++++§#+#¢+++#+04+

013350
013350
013350
013350
013352
013352

ROUTINE PROBUF <A,B,(,D>
PUSH R1

010146

PUSH R2

010246

:[3.2.20.6]
PROBUF:
MOV

R1,=-(SP)

MGV

R2,~(SP)

{CHANGE POINTER TO INCLUDE DDCMP HEADER
013354

6502

62702

000000

’

LET R2 := A(RS) - #10

000010

:03.2.20.6.1]
MOV

A(RS) ,R2

MOVB

#SOH, (R2)+

SUB

#10,R2

‘FIRST BYTE IS SOH (START OF HEADER)
3364

3364

112722

000201

LET (R2)+ :B- #SOH

INEXT TWO BYTES Gu' MESSAGE SIZE

ASSEMBLY ROUTI
(ZbZ2CB.P1

2000
2001
2002

013370
013370
013374

21 2Nov-78
016501

MACY11 30A(1052)
16:33

29-DEC-78

LET R1

000002

11:50

PAGE 44

SEQ 0044

:= B(RS)

LET (R2)+ :B= R1

110122

LET R1

000301

:= SWAP R1

LET (R2)

110132

:B= R1

MOV

B(R5) ,R1

MOVB

R1,(R2)+

SWAB

MOVB

R1,(R2)

BISB

#200, (R2)

INC

mMov8

RMSGNO, (R2) +

*SET SELECT BIT
152712

LET (R2)

000200

:B= (R2) SET.BY #200

LET R2 := R2 + M

005202

*NEXT BYTE IS LAST GOOD RESPONSE
2018
2019

013410
013410

116722

’

“66567

LET (R2)+ :B= RMSGNO

INEXT BYTE GETS MESSAGE NUMBER --- POP NUMBER FOR NEXT MESSAGE (IF ANY)
2023
2024
2025
2026

013414
013414
013420
013420

005267

166554

116722

166550

’

LET MSGNO := MSGNO + #1
LET

(R2)+

:B= MSGNO

INC

MSGNO

MOvB

MSGNO, (R2) +

MOV
ADD

#PTABLE ,R1

MOVB

(R1),(R2)+

MOV
S8

A(R5),SCRTCH
#10,SCRTCH

MOV

6, TEMP

:GET THE TERMINAL ADDRESS FOR THZ NEXT HEADER BYTE
2030
2031
2032
2033
2034
2035
2036
2037
2038
2039
2040
2041
2042
2043
2044
2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
2055

013424
013424
013430
013434
013434

012701
062701

LET R1

002200
000005

LET

111122

:- HPTABLE

(R2)+

:B=

+ #5

(R1)

#5.R1

‘GET HEADER START ADDRESS AND SIZE IN BYTES
013436
013436
013444
013452
013452

016567

162767

000000
000010

166446
166440

012767

000006

166434

’

LET SCRTCH := A(RS) - #10
LET

TEMP

*COMPUTE HEADER CRC
013460
013460
013464
013466
013472
013476
013502
013504

162705

010546
016745
016745
004767
012605
012567

000002

CALL

CRC

IN <SCRT(H,TEMP> QUT

<“EMP>

:[3.2.20.6.2]
suB

MOV
MOV
MOV
JSR
MOV
MOV

166422
166414

003410
166404

*PUT CRC INTO BUFFER

#1+2,RS

RS,-(SP)

TEMP ,~(R5)

SCRTCH,-(RS)

PC,CRC

(SP)+ RS

(RS)+,TEMP

ASSEMBLY ROUTINES

(zbz(B.P11

2056
2057

01351
01351

MACY11
21-NOvV~78 16:33

016712

30A(1052)

29-DEC~78

11:50

LET (R2)

166400

PAGE 45

SEQ 0045

:= TEMP

;03.2.20.6.3]
MoV

TEMP, (R2)

MOV

A(R5) ,SCRTCH

MOV

B(RS),TEMP

*GET ADDRESS OF MESSAGE AND MESSAGE SIZE IN BYTES
016567

000000

166370

016567

900002

166364

LET SCRTCH := A(RS)
LET TEMP := B(RS)

*COMPUTE DATA CRC
162705

2072
2073
2074
2075
2076

013536
013542
C13546
013552
013554

010546
016745
016745
004767
012605
012567

’

000002

CALL CRC IN <SCRTCH.TETMWP> OUT <TEMP>

;03.2.20.6.4]
suB
MOV
MOV
MoV

166352
166344

003340

JSR
MOV
MOV

166334

#1+2 RS
RS,-(SP)
TEMP,~(R5)

SCRTCH,=-(RS)

PC,CRC

(SP)+ RS
(RS)+,TEMP

*PUT DATA CRC IN LAST TWO BYTES OF BUFFER
2080
2081
2082
2083
2084
2085
2086

013560
013560
013564
013570
01350
013574
013574

016502
066502

000000
000002

116722

166320

000367

166314

116712

166310

’

LET R2 :- A(RS) + B(RS)
LET

(R2)+

LET

TEMP

:= SWAP TEMP

LET

(R2)

:B= TEMP

;03.2.20.6.5]

:B= TEMP

MOV

A(RS) ,R2

ADD

B(RS) ,R2

mMovB

TEMP, (R2) +

SWAB

TEMP

mMOovB

TEMP, (R2)

MOV
ADD

B(RS),D(RS)

MOV
SuB

A(RS),C(R5)
#10,C(RS)

MOV

(SP)+ ,R2

MOV

(SP)+ ,R1

RTS

b cnd

016565
062765

000002
000012

000006
000006

016565

000000
000010

000004
000004

162765

012602

012601

b
—

233LILIRS

b
e
d ek
b
d
el e
—

=200

ASLNLNT,
ST, 81, §Y,8Y,¥1, ¥}

)

b ad el

)

elelololololalolololololele]

*RETURN WITH MODIFIED ADDRESS AND SIZt

000207

’

LET D(RS) := B(RS) + #12
LET C(RS)

:= A(RS) - #10

POP R2
POP R1
ENDRTN

50000%:
50001%:

"0?900006000000000000000000’0000*vQOQQOOOQOOQOOOOQOQQQ'0‘00000

#12,D(RS)

2130

30A(1052)

29-DEC-78

ROUTINE

013642

’

010146

013644
013644

004767

INPUT
X

+
R

TERIN <A>

;03.2.1]

TERIN:

MOV

R1,-(SP)

JSR

PC,RCVE

B8CC

50002%

TRAP
.WORD

.WORD
-WORD

T$ERCODE
40
MSG40
AREA4LO

MOV

(SP)+,R1

SEC
BR

50001%

CMP
BNE

INSIZ,#10
50003%

CLR

A(RS)

CALL RCVE

:IF RECEIVE ERROR, REPORT IT AND EXIT WITH THE ERROR FLAG SET
013650
013650
013652
013652
013654
013656
013660

IF .ERROR THEN

103007

ERRHRD 40,MSG40,AREALD

004262

013670

b wd

013704

FIRST

POP R1

012601

RETURN ERROR

000261
000571

ENDIF

‘1

REGRER2E
8%

PUSH R1

002760

‘1

FQROQRRRAR
NN

‘GET TERMINAL RESPONSE

013662
013662
013664
013664
013666
013670
013670

S IANIAN AN IANTAN ST N T,N 1oV 1 N 1,0

*SAVE R1

RESTORE R1

156

H
4
PAGE 46

ROUTINE TO GET TERMINAL

[

01364
01364

11:50

SEQ 0046

a1V

NN 2O 000 NONNES NN
OO NN

AIPLNINYNVININININON)
— 22 b b d s

[

Shr i Sy i G

S S

Gifhr S

i S

NIALNI AN NININI AL NINININD AL NN

i 4

ASSEMBLY ROUTI NES
MACY11
cz0z2(B.P11
21-NOV~-78 16:33

026727
001027

166264

005065

000000

012767

000001

010546
016745
004767
012605

177072
000330

103003

012601
000261

000010

177100

F
Tl

50002%:

M ESSAGE IS ONLY 10 BYTES, SEE IF IT
S OK TO BE AN ACK, BUT RECEPTION IS

INSIZ EQ #10 THEN

LET A(RS)

:= #0

LET TYPE

:= NACK

CALL

IS AN ACK.
INCOMPLETE

(CLEAR FLAG).

#ACK,TYPE

CHKREP IN <TYPE>

IF .ERROR THEN
POP R1

RL TURN ERROR

MOV

R5,-(SP)

JSR
MOV

PC,CHKREP

BCC

500048

MOV

(SP)+,R1

SEC

TYPE,~(RS)
(SP)+,RS

ASSEMBLY ROUTI NES

MACY11 30A(1052)
21-NOV-78 16:33

czpz2(B.P11

2168

013734

29-DEC-78

000546

016701
062701

166214
000004

111167

166224

013754
013756
013756

LET R1

poerd

W
~
o
N

013756
013756
o

£ SOLEBRIRAR

A 32

00 Qo 00 Q0 OO

:B=

50004%:

(R1)

RE TURN

000535

ENDIF

50001%

INBUF R1

ADD

#4 ,R1

mMovB

(R1) ,RMSGNO

MOV

(SP)+,R1

B8R

500009

SuB
MOV
MOV

#1+2 RS

JSR
MoV
MOV

PC,CRC

50003%:

:1F RECEIVE OK, CHECK THE HEADER CRC

)
—

+ #4

POP R1

“COMPUTE

INBUF

LET RMSGNO

162705
010546
012745
016745
004767
012605
012567

EXPECTED

CALL

000002

CRC

IN <INBUF ,#6> 0UT <AQ4EX>

000006
166162

003112
170144

RS,-(SP)

#6,-(RS)

INBUF ,=(R5)
(SP) +,RS
(RS5)+ ,AQ4EX

‘GET THE CRC RECEIVED

2195

(14026

2207

2210
2211

014032
014032

016/01
062701

000010

114167

170126

170122

1146167

170116

:= INBUF

+ #10

LET AJ4RC

:B= =(R1)

LET AD4RC

:= SWAP AQ4RC

LET AO4RC

:B- =(R1)

INBUF ,R1

MOV
ADD

#10.R1

MOvVB

=(R1) ,AQ04RC

SWAB

AO4RC

MOVB

=-(R1) ,A04RC

:IF THEY AREN'T THE SAME, REPORT THE ERROR, RESTORE R1 AND EXIT WITH
;THE ERROR FLAG SET
026767
001407
104463

012601
014054
014056
014060

LET R1

166144

000367

000051
002503
004116

2221
2222
2223

MOV

2183

2205

SEQ 0047
BR

ENDIF

012601

2179
2180
2181

I_4
PAGE 47

11:50

000261
000475

170114

170110

IF AD4EX NE AO4RC THEN
ERRHRD 417 ,MSG41,AREALT

POP R1
RETURN ERROR

ENDIF

(MP

AOGLEX ,AO4RC

TRAP

.WORD
.WORD
.WORD

TSERCODE
41
MSG41
AREA41T

MOV

(SP)+,R1

SEC
BR

50001%

BEQ

50005%

ASSEMBLY ROUTI NES
MACY11
czbzcs.PN
21-NOV-78 16:33

222g

30A(1052)

29-DEC-78

4
J
PAGE 48

11:50

SEQ 0048

014060

50005%:

:COMPARE TERMINAL ADDRESS RECEIVED WITH THAT EXPECTED

;AND IF THEY AREN'T THE SAME, REPORT THE ERROR, RESTORE R1 AND
JEXIT WITH THE ERRROR FLAG SET
2230

014060

124167

001407

[FB =(R1) NE STRTSA THEN

167611

CMPB

=(R1) ,STRTSA

TRAP

.WORD
.WORD

T$ERCODE
42
MSG42
AREAL2

MOV

(SP)+,R1

SEC
BR

50001%

ADD

#10, INBUF

SuB

#12,INSIZ

#1%2,RS

002750

SuB
MOV
MOV
MOV
JSR

170002

MOV

(SP)+ RS
(R5)
+ ,AQ4EX

MOV
ADD

INBUF ,R1
INSIZ .R1

ADD

#2 .R1

mMovB

=(R1) ,A04RC

SWAB

AOQ4RC

MOvB

=(R1) ,A04RC

{MP

AO4RC ,AO4LE X

ERRHRD 4

104463

BEQ

,MSG42 ,AREASL?

000052
002437
004064

POP R1

012601

RETURN ERROR

000261
000463

ENDIF

50006%

50006$%:

:MOVE THE POINTERS PAST THE HEADLR AND COMPUTE THE DATA CRC
2248
2249
2250
2251
2252
2253

2254
2255

2256
2257
2258
2259

014104
014104
014112
014112
014120
014120

014124
014126

014132
014136
014142
014144

062767 * 000010

166044

162767

166040

162705

010546

016745
016745
004767
012605
012567

000012

000002

LET

INBUF

:- INBUF

+ #10

LET

INSIZ

:= INSIZ - #1°2

CALL

CRC

IN <INBUF,INSIZ> OUT <AQ4EX>

04E

166026
166020

RS,-(SP)
INSIZ,-(R5)
INBUF ,~(R5)

PC,CRC

NNIIRRBER
QO HO0

ek —d

(Y
o

D
D

—d

d
)

D e

W o

md e
e
—

—d

LR 2R

d =

jelelelelelolelolalels]

‘GET THE DATA CRC RECEIVED
016701
066701

166002
166000

062701

000002

114167

167760

000367
114167

167754
167750

LET R1
LET R1

:= INSBUF
:

INSIZ

+ #2

LET AO4RC

:B= =(R1)

LET AG4RC

SWAP AQ4R

¢
=5
04RC
LET AQ4RC
O4RC .B=
B =(R7)
*1F THEY AREN'T THE SAME: REPORT THE ERROR, RESTORE R1 AND
JEXIT WITH THE ERROR FLAG SET

2278
2279

014200
014200

026767

167744 167744

IF AQGRC

' 1€ AQGEX
£ THEN

ASSEMBLY ROUTINES
MACY11
c2p2(B.P11
21-NOV-78 16:33

30A(1052)

29-DEC-78

001407

PAGE 49

4
SEQ 0049
BEQ

ERRHRD 43,MSG43,AREALS

104463

000053
003422
004116

TRAP

POP R1

012601

014226
014226

11:50

RETURN ERROR

000261
000412

ENDIF

"50007%
T$ERCODE

.WORD
.WORD
.WORD

43
MSG43
AREA43

MOV

(SP)+ ,R1

SEC
BR

50001%

INC

A(RS)

MOV
suB

#4 ,R1

MOVB

(R1)",RMSGNO

MOV

(SP)+,R1

50007%:

‘OTHERWISE; SET COMPLETE FLAG., RESTORE R1 AND EXIT NORMALLY

016701

000000

)

LET R1

165720

162701

000004

111167

165730

INBUF - #4

LET RMSGNO

:B=

(R1)

POP R1

012601

ENDRTN

50000%:

000241

50001%:

000207

ROUTINE

RESPONSE

TO CHECK AN

IR Y

TP T

ISP

RTS

TP T

INPUT BUFFER FOR A STANDARD

("’ACK''
OR ''STA(K'")

LOCATION ''TYPE'' CONTAINS THE RESPONSE CODE EXPECTED

;

INBUF ,R1

INPUT BUFFER POINTER IS IN "'INBUF"’

014252
014252

LET A(RS) := A(RS) + #1

005265

[

INPUT BUFFER SIZE

(IN BYTES)

IN "'INSIZ"

014226

A AR
e d R AR A l
A R R A
R
ISR X
T R
Y

ROUTINE

010446
010604

162706

CHKREP <B>

DECLARE LOCALS
LOCAL <A>
ALLOCATE

;03.2.20.3, 3.2. 20.9]
CHKREP:

MOV
MOV
suB

000002

:IF MESSAGF IS NOT 10 BYTES LONG, IT CAN'T BE A CONTROL MESSAGE

R4 ,~(SP)

SP.R4
n2,SP

ASSEMBLY ROUTINES

CZDZ2CB.P11

MACY11

21-NOV-78 16:33

30A(1052)

%%%9
014264
014264
014272
014274
014274
014276
014300
014302
014304
014304
014306

%%g?

014310

026727
001406

165670

000010

2363
2364
2365
2366

2367
2368
2369
2370
2371
%%;%

2390

SEQ 0050

014340
014346
014354
014354
014362
014362
014366
014366
014372
014372

CMP
INS1Z ,#10
BEQ
50002%
;03.2.20.3.4, 3.2.20.9.4]
TRAP
TSERCODE
.WORD
1
.WORD
MSGO1
.WORD
AREAQ1
SEC
BR

ELSE
;OTHERWISE,

014310
014310
014314
014316
014322
014326
014332
014334
014340

INSIZ NE #10 THEN

RETURN ERROR

000261
000553

000002

016764
062764

165612
000007

177776
177776

117467

177776

165530

000367

165524

005364

177776

117467

177776

000006
165630
002560
_
165554

COMPJTE

THE CRC AND CHECK IT AGAINST THAT SENT

LET A(RG)

:- INBUF + #7

;03.2.20.3.1, 3.2.20.9.1]
SUB
#1%2 RS
MOV
RS,-(SP)
MOV
#6,-(RS)
MOV
INBUF ,=(RS)
JSR
PC.CRC
MOV
(SP)+ RS
MOV
(RS)+,TEMP

MOV
ADD

LET SCRTCH :B= ®A(RG)

LET SCRTCH := SWAP SCRTCH

LET A(R4)
165512

50001¢

50002%:

CALL CRC IN <INBUF ,#6> 0QUT <TEMP>

162705
010546
012745
016745
004767
012605
012567

__MOVB

:= A(RLG) - #1

LET SCRTCH :B= @A(R4)

INBUF ,A(R&4)

#7 ,A(RG)

@A (R4) ,SCRTCH

SWAB

SCRTCH

DEC

A(RS)

MOVB

@A(R4) ,SCRTCH

s1F CRC'S MATCH GO ON... OTHERWISE SKIP FOLLOWING CODE

014400
014400
014406

026767
001076

165510

165504

S%%?
2382
2383
2384
2385
2386
2387
sggg

PAGE 50

ERRHRD 01,MSG01,AREAQ1

%%;g

2376
2377
S%;g

104463
000001
002323
003760

%%g%

2354
2355
2356
2357
2358
2359
2360
2361
2362

11:50

:TYPE AN ERROR MESSAGE AND EXIT WITH ERROR SET

2338
2339
2340
2341
2342
2343
2344
2345
2346
2347
2348

2349

29-DEC-78

TEMP EQ SCRTCH THEN

;03.2.20.3.2, 3.2.20.9.2]
cMP
TEMP,SCRTCH
BNE
50004%

;COMPARE CONTROL MESSAGE TYPE WITH THAT PASSED AS AN ARGUEMENT
014410
014410
014416
014422
014422
014430
014430

016764
005264

165542
177776

177776

117464

177776

042764

177400

177776

LET A(R4)

:= INBUF + #1

LET A(R4)

:R= QA(R4)

LET A(R4)

:= A(R4)

CLR.BY AHYBYTE

MOV
INC

INBUF ,A(R4)
A(R4)

MOVB

BA(RS) ,A(RG)

BIC

#HYBYTE ,A(R4)

:IF NOT THE EXPECTED TYPE, PRINT ERROR MESSAGE AND EXIT WITH ERROR SET

ASSEMBLY ROUTI NES
MACY11
(Zbz(B.P11
21-NOV-78 16:33

2392
2393
2394
2395
2396
2397
2398
2399

30A(1052)

026465
001414

177776

016467

177776

167340

016567

000000

167334

29-DEC-78

11:50

SEQ 0051

IF A(R4) NE B(RS)

000000

:[3.2.20.3.3, 3.%.20.9.3]

THEN

LET AQ2A :

A(R4)

LET AQZB :

B(RS5)

002350
003762

A(R4) ,B(RS)

MOV

A(RG) ,A02A

MOV

B(RS5) ,A028

50005$

;03.2.20.3.4, 3. 2.20.9.4]
TRAP

.WORD
JWORD
. WORD

RETURN ERROR

000261
000460

BEQ

ERRHRD 02,MSG02,AREAQ?

2600

014472
014474

M 4
PAGE 51

~ TSERCODE

SEC

2
MSGO2
AREAQ2
50001%

SOTHERWISE, CHECK TERMINAL ADDRESS
014476
014476
014476
014476

ELSE

014504

012767
062767

002200
000005

165406
165400

014512

117767

165374

165372

042767

177400

165364

016767
062767

165424
000005

165360
165352

117767

165346

165344

014512

014520
014520
014526
014526
014534
014542

014542

014550
014550

042767

177400

LET SCRTCH

:= #PTABLE

50005%:

+ #5

MOV

LET SCRTCH

:B= aSCRT(H

LET SCRTCH := SCRTCH CLR.BY AHYBYTE

LET TEMP :- INBUF

+ #5

LET TEMP

165336

#5,SCRTCH

MOVB

aSCRTCH,SCRTCH

BIC

AHYBYTE ,SCRTCH

MOV

LET TEMP :B= QTEMP
:= TEMP CLR.BY AHYBYTE

#PTABLE ,SCRTCH

ADD

INBUF , TEMP

ADD

45, TEMP

MOVB

oTEMP
, TEMP

BIC

AHYBYTE
, TEMP

cMP
BEQ

gooofis

:1F NOT THE EXPECTED TERMINAL ADDRESS, THEN REPORT THE ERROR AND
LEXIT WITH ERROR SET
014556
014556
014564
014566
014566
014570
014572

014574
014576
014576
014600
014602
014602
014602
014602

026767
001406

165332

165326

TEMP NE SCRTCH THEN

ERRHRD 03,MSGO3,AREA03

104463

;[3.2.20.3.4, 3.¥é§g.9.4

000003
002437
004064
RETURN ERROR

000261
000416

ENDIF
ENDI F

gsencoos

.WORD
.WORD
.WORD

MSGO3
AREAOQ3

SEC
B8R

500018

50007%:

50006%:

:1F CRC WAS IN ERROR, SKIP ABOVE (CODE, COME TO HERE, REPORT ERROR AND
JEXIT WITH ERROR SET

TEMP, SCRTCH

ASSEMBLY ROUTINES

C20zCB.P11
2649

014602

2451

014604

2653
2654
2655
2456
2457
2458
2459
2660

014604
0146612
014612
014620
014620
014622
014624
014626

2662

014630 000261

2661

014604

014630

016767 165302 167336
016767 165276 167332
104463
000004
002503
0046116

LET AO4RC :=

SCRTCH

LET AO4EX :=

TEMP

RETURN ERROR

*NORMAL RETURN

014634

ENDRTN

2472 014634
2473 014634 000241
2474 014636
2475 014636 010406

SEC

500108:

50003s:
\
500003:

2476 014640 012604

2477 014642 000207

2484

;
;

2485
2486

[

2487

2488 014644
2489

2490
2491
2492

014644

2493 014644 010446
2694 014646 010604
2495 014650 162706

2501

005064

177776

014660

005067

000270

014664

cLc

MoV

R4, SP

RTS

eS S SEP SRS ONASOOANARRAE D

THIS ROUTINE SETS UP AND CHECKS FOR COMPLETE TRANSMISSION

RETURNS AN ERROR FLAG IF ANY ERROR OCCURS DURING TRANSMISSION
SET ‘‘ABORT'' IF INITIALIZATION OF THE DEVICE FAILS

ROUTINE XMIT

(SP)+, R4

MOV

At S D e e R SRR R

+
+

A S Al ety

;03.2.20.7 AND 3.2.20.1]
XMIT:

MOV
MOV
suB

R4 ,~(SP)
SP.R&4
#2,SP

CLR

B(R4)

CLR

XDONE

*CLEAR ERROR COUNT, TRANSMIT DONE FLAG AND RECEIVE DONE FLAG

014654

014660

000002

2497
014654

DECLARE LOCALS
LOCAL <B>
ALLOCATE

014644
014644
014644

500018

50001%:

2483

50010%

SCRTCH,AO04RC
MOV
TEMP ,AO4EX
MOV
;[3.2.20.3.4, 3.2.20.9.4]
TSERCODE
TRAP
LWORD 4
.WORD MSGO4
.WORD AREAO4

ENDIF

014634

50004%:

ENDIF

2467 014634
24669
26471

SEQ 0052

ERRHRD 04 ,MSGO4 ,AREAQ4

26463 014632 000401
2664 014634
2465 014634
2466

ELSE

2650 014602 000414
2452

PAGE 52

11:50

29-DEC~78

MACY11 30A(1052)

21-NOV-78 16:33

LET B(R4)

:= 40

LET XDONE := 40
LET RDONE :

ASSEMBLY ROUTI NE S
MACY11
czbzcB. P11
21 -NOV~-78 16:33

2504

014664

005067

29-DEC-78

30A(1052)

11:50

8.5

PAGE 53

SEQ 0053

000266

CLR

RDONE

JSR

PC,DEVINIT

START OF LOOP

014670
014670

REPEAT

50002%:

014670
0146790

004767

CALL DEVINIT

000264

*IF ERROR OCCURRED..
014674
014674
014676
014676
014700
014700

IF .ERROR THEN

103033

50003%

PUSH R1

010146

R1,-(SP)

PUSH R2

010246

R2,=(SP)

“GET A COPY OF THE DEVICE REGISTERS
014702
014702
014706
014706
014712
014712
014720
014720
014726
014726
014734
014734
014742
014742
014744
014744

LET R1

016701

165272

012702

002254

016162

000000

016162

000002

016162

000004

016162

000006

PTABLE

LET R2 :=

#DZREG

MOV

LET RCVCSR(R2)

RCVCSR(R1)

LET RCVBUF(R2)

RCVBUF (R1)

LET XMTCSR(RZ)

XMTCSR(R1)

LET XMTBUF (R2)

XMTBUF (R1)

#DZREG,R2

POP RZ

012602

POP R1

012601

PTABLE ,R1

MOV

RCVCSR(R1) ,RCVCS

MOV

ki"VB
(R1) ,RCVBU
UF

MOV

XMTCSR(R1) ,XMTCS

MOV

XMTBUF
(R1) ,XMTBU

MOV

(SP)+ ,R2

MOV

(SP)+,R1

‘REPORT THE ERROR AND UPDATE THE ERROR COUNT
14746
14746
14750
14752
14754
14756

eleleleolelels

NPNORONIN)

[V 1V, IV LV, LV, ]

‘TRY TO INIT DEVICE

’

104463
000027
003044
004262

005264

ERRHRD 23,MSG23,AREA23

LET B(R4)

177776

:- B(R4)

TRAP

T$ERCODE

.WORD
.WORD
.WORD

MSG23
AREAZ23

INC

B(R4)

50004%

*OTHERWISE, CLEAR THE ERROR COUNT
000402

ELSE

LET B(R4)

50003%:

ASSEMBLY ROUTINES

(ZDzZ(CB.P11

2562

014764
014770

21-NOV-78 16:33
005064

30A(1052)

177776

014770

014770
014770
014776
015000
015000
015002
015004
015006
015010
015010
015014
015014
015020
015020

026467
001010

177776

005267

005464

165102
i
177776

2600
2601
2602
2603

015020

015020
015024

005764
003321

177776

2615

CLR

B(R4)

CMP
BNE

B(R&) ,ILIMIT
50005%

TRAP
.WORD
.WORD
.WORD

T$ERCODE
O
MSGOO
AREAQQ

LET B(R4)

ABORT + #1
NEGATE B(R4)

INC

ABORT

ENDIF

NEG

B(R4)

TST
BGT

B(R4)
$0002%

ST
BNE

B(R4)
50006%

EMT

C$BRK

TST
BEQ

XDONE
50007%

TST
BGE

XDONE
500108

MOov

R1,-(SP)

MOV

RZ,-(SP)

50005%:

END OF LOOP

’

(ABORT)

UNTIL B(R4) LE #0

:1F NOT ABORT THEN EXECUTE THE FOLLOWING CODE

;OTHERWISE SKIP AND RETURN WITH ERROR SET

015026

015026
015032

005764
001042

177776

’

IF B(R4) EQ #0 THEN

SWAIT FOR TRANSMIT DONE FLAG TG SET
015034
015034
015034
015034
015036
015036
015042

REPEAT

BREAK

104022
005767
001774

000112

2605
2607
2608
2609
2610
2611
2612
2613

SEXIT LOOP WHEN ERROR COUNT IS ZERO OR NEGATIVE

2595
2598

SEQ 0054

50004%:

LET ABORT

2589

2592
2593

ERRDF 00,MSGO00,AREAQ0

2588

2591

IF B(R4) EQ ILIMIT THEN

165126

104462
000000
002264
003700

2582
2585
2586

PAGE

:IF ERROR COUNT HAS EXCEEDED LIMITS, ABORT AND NEGATE THE COUNT

2581

2584

11:50

ENDIF

322%
2566
2567
2568
2569
2570
2571
2572
2573
2574
2575
2576
2577
2578
2579

29-DEC-78

2560
2561

MACY11

UNTIL XDONE NE #0

50007%:

:1F TRANSMIT FLAG IS NEGATIVE, AN ERROR OCCURRED.
015044
015044
015050
015052
015052
015054
015054

005767
002032
019146

010246

000104

IF XDONE LT #0 THEN
PUSH R1
PUSH RZ

:1F ERROR, GET COPY OF DEVICE REGISTERS, PRINT MESSAGE AND EXIT WITH ERROR SET

ASSEMBLY ROUTINES

CZDZ2CB.P11

MACY11

21-NOV~78 16:33

30A(1052)

Sg;;

5
SEQ 0055

LET R1

016701

165116

012702

002254

016162

000000

016162

000002

016162

000004

016162

000006

:= PTABLE

LET R2 := #DIREG

012602

LET RCVCSR(R2)

RCVCSR(R1)

LET RCVBUF (R2)

RCVBUF (R1)

LET XMTCSR(R2)

XMTCSR(R1)

LET XMTBUF (R2)
boP R2

XMTBUF (R1)

POP R1

012601

ERRHRD 24 ,MSG24 ,AREA24

104463
000030
003111
004262

RETURN FRROR

000261

000404

50006%:

RETURN ERROR

ENDIF

#DZREG,R2

MOV

RCVCSR(R1) ,RCVCS

MOV

RCVBUF
(R1) ,RCVBU

MOV

XMTCSR(R1) ,XMTCS

MOV

XMTBUF
(R1) ,XMTBU

MOV

(SP)+,R2

MOV

(SP)+,R1

TRAP
.WORD
.WORD
.WORD

TSERCODE
24
MSG24
AREA24

B8R

50001%

50011%

SEC
BR

50001%

50011%:

ENDRTN

50000s$:

000241

50001%:

CLC
MOV
MOV
RTS

R4 ,SP
(SP)
+ ,R4
PC

2666
2667

IR
:

e
ROUTINE

2669

;

IF “'INIT'' IS NON-ZERO, THE ROUTINE WILL EXECUTE AND SET IT

2671

RETURNS WITH AN ERROR IF CTS CANNOT BE SET

Y S T

T PP TR
+
+

R
LR e
TO INITIALIZE A DEVICE

—

O
O

—

XPONE:
RDONE:

010406
012604
000207
000000
000000

MOV

50010%:

ELSE

000261
000401

PTABLE ,R1

SEC

ENDIF

000402

MOV

\nunn\nbnhJ\t\tnb&\tnbt\b}fitflgyugg

A NNOOOND
BB NOOOOCOONENINOONSNINOOORONOO

)

)
)

)
) —d

) —
D —

) —
D

)
)

D
D

) e

D
)

)
D

D
)

) e

D e

D
d

)
D
)

) ——d —D
D

D e
D

D
)

)
) —
D

d —D
D

) wd

d e
)

)l —d

WNINWNNIMNONINONIN)
— s 2

015074
015074
015102
015102

D e

PAGE 55

015056
015056
015062
015062
015066
015066

(VI IV IV TV TV TV, LV TV TV TV TV TV TV TV (VL TV TV TV TV, LV, TV TV TV TV, TV, TV, TV, TV TV, TV TV, 1V )

2624
2625
2626
2627

11:50

;OTHERWISE DO A NORMAL EXIT

eolalelolelololeololslololololololalololololololololololalololels)

2618
2619
2620
2621
2622
2623

29-DEC~78

ASSEMBLY ROUTINES
MACY11
CZbZCB.P11
21-NOV-78 16:33

30A(1052)

29-DEC-78

11:50

PAGE 56

5
SEQ 0056

2673
2674

;
:

oo
NN

OO %NOOOOOO

]

D
d

d
e

e
rd

D
— e

——d e
b

b
d

d
—

—

5LV,
IV IV, RV IV, LV, 1V, (V. 1V, [V, IV, |

A
eloleleBiolelelololelols

2675

iid iR dd

i d s

A R R e

ROUTINE DEVINIT

010446
010604
162706

PUSH R1

PUSH R2

010246

R R X R

MOV
MOV

000002

010146

+
+
+

;03.2.20.1.5 AND 3.2.20.7.23
DEVINIT:

DECLARE LOCALS
LOCAL <A>
ALLOCATE

2691

R4 ,~(SP)
SP,R4

SuB

#2,SP

MoV

R1,-(SP)

MOV

R2,~(SP)

MOV

PTABLE ,R1

*GET DEVICE ADDRESS
174
174

016701

’

165000

2696

2701

RETURNS WITH ERROR AND ‘‘ABORT'' SET IF THE DEVICE DOES
NOT EXIST

LET R1 := PTABLE

:DO A MASTER CLEAR ON THE DZ AND WAIT FOR THE CLEAR BIT TO GO DOWN
015200
015200
015206
8}5206
5206
01 5206
01 5214

052761

032761
001374

000020

000000

2706

LET RCVCSR(R1)

:= RCVCSR(R1) SET.BY AMASCLR

REPEAT

BIS

#MASCLR ,RCVCSR(R

BIT
BNE

AMASCLR ,RCVCSR(R
50002%

50002%:

UNTIL AMASCLR NOTSETIN RCVCSR(R1)

:GET THE LINE MASK AND SET THE RIGHT DATA TERMINAL READY BIT IN THE DZ
5216
5216
5224
5224
5230
5230

016767

0006412

000367

164662

056761

164656

164666

000004

2715

LET SCRTCH := SLINE
LET SCRTCH := SWAP SCRT(H

LET XMTCSR(R1)

:= XMT(CSR/R1) SET.BY SCRTCH

MOV

$LINE,SCRTCH

SWAB

SCRTCH

BIS

SCRTCH,XMTCSR(R1

TST
BNE

NMOD
50003%

MOV
EMT

#100,RO
CSwTU

BIT

SCRTCH, XMTBUF (R1

BNE

50004%

MOV

#DZREG,R2

‘WAIT 10MSEC AND SEE IF CARRIER IS UP
15236
15236
15242
15244

15244
15250
15252
15252
15260
15262
15262

005767
001035

164746

012700
104027

000100

036761
001026

164634

012702

002254

IF NMOD EC #0 THEN
WAITUS #100

000006

IF SCRTCH NOTSETIN XMTBUF (R1)
LCT R2

:= #DZREG

THEN

ASSEMBLY ROUTI NES

€zbz(B.P1

MACY11
21-NOV-78 16:33

30A(1052)

016162

000000

016162

000002

C00002

016162

000004

016162

000006

29-DEC-78

11:50

F_5
PAGE 57

SEQ 0057

LET RCVCSR(R2)

RCVCSR(R1)

LET RCVBUF(R2)

RCVBUF (R1)

LET XMTCSR(R2)

XMTCSR(R1)

LET XMTBUF (R2)

XMTBUF (R1)

POP R2

012602

POP R1

012601

ERRHRD 05,MSGOS
AR EA30

104463

000005
002375
004534

RCVCSR(R1) ,RCVCS

MOV

RCVBUF
(R1) ,RCVBU

MOV

XMTCSR(R1) ,XMTCS

MOV

XMTBUF
(R1) ,XMTBU

MOV

(SP)+,R2

MoV

(SP)+,R1

TRAP

T$ERCODE

.WORD
.WORD
.WORD

RETURN ERROR

000261
000534

MOV

SEC

ENDIF

:
500048

ENDIF

015336

50001¢

50003%:

:GET THE LINE NUMBER, STOP CODE, CHARACTER LENGTH AND BAUD RATE FROM
;THE PTABLE AND CLEAR EXTRANEOUS BITS.

JAND LOAD THE DZ LINE CONTROL REGISTER.

012702

062702

011202
042702

000300

052702

010000

010261

THE RECEIVER ENABLE BIT

LET R2 := HPTABLE + #6

002200
000606

LET R2

(R2)

LET R2

RZ CLR.BY #300

LET R2

015336
015336
015342
015346
015346
015350
015350
015354
015354
015360
015360

SET

R2 SET.BY #10000

LET RCVBUF (R1)

000002

i~ R2

#PTABLE ,R2

MOV
ADD

#6,R2

MOV

(R2) ,R2

BIC

#300,R2

BIS

#10000,R2

MOV

RZ ,RCVBUF (R1)

MOV
ADD

#PTABLE ,DEVPR]
#4 ,DEVPRI

MOVB

aDEVPR] ,DEVPR]

BIC

#HYBYTE ,DEVPRI

MOV

#PTABLE ,A(R4)
#2 ,A(RS)

ZGET THE DEVICE PRIORITY AND SET UP THE INTERRUPT HANDLERS AND

—d cnd

;CLEAR THE NEW MESSAGE FLAG (NMSG)

012767
062767

002200
000004

164620
164612

117767

164606

164604

042767

177400

164576

012764
062764

002200
000002

177776
177776

016746

164556

LET DEVPR]

:= #PTABLE

+ #4

LET DEVPRI

:B= QDEVPR]

LET DEVPR]

:= DEVPRI

LET A(R4?

:- #PTABLE

(LR.B Y #HVBYTE

+ #¢

SETVEC ®AP4) ,#RINT,DEVPR]

ADD

DEVPR] ,=-(SP)

ASSEMBLY ROUTINES
MACY11
(20Z2CB.P11
21-NOV~78 16:33

015434
015440
015444
015450
015452
015456
015456
015462
015462
015470
015476

012746
017446
012746

016066
177776
200003

062706

000010

005067

000176

017464

177776
000004

104037

062764

016746
012746
016446
012746

104037

062706

29-DEC~78

11:50

PAGE 58

SEQ 0058

LET NMSG := #0
LET A(R4)

177776
177776

1= @A(RY)

+ &4

SETVEC A(R4) ,AXINT,DEVPR]

164510

MOV
MOV
MOV
EMT

#RINT ,=(SP)

ADD

aA(R4) ,-(SP)
#3,-(SP)
CSSVEC
#10,SP

CLR

NMSG

MOV
ADD

aA(R4) ,A(R4)

MOV
MOV
MOV
MOV
EMT
ADD

015720

177776
000003

000010

#4,A(RG)

DEVPRI ,=(SP)

#XINT ,=(SP)
A(R4) ,-(SP)

#3,-(SP)
C$SVEC
#10,SP

b —d

IGET COPIES OF THE DEVICE BUFFER REGISTER ADDRESSES

— e

2784

30A(1052)

010167
062767

000106
N000C6

00C100

010167
062767

000076
000002

00007¢

LET XMTADD

:= R1

LET RCVADD

+ #6
+

MOV
ADD

R1,XMTADD
#6 ,XMTADD

MOV
ADD

R1,RCVADD
#2 ,RCVADD

MOV

#4 ,SYNCNT

MOV

6 FLLCNT

*SET COUNTS FOR 4 SYNC'S AND FOUR FILL CHARACTERS
012767

000004

000066

012767

000004

000062

LET SYNCNT

LET FLLCNT

- W

USE LINE MASK TO ENABLE THE TRANSMITTER...ENABLE THE MASTER SCAN
JENABLE
056761

000044

000004

052761

000040

000000

052761

040000

000000

052761

000100

000000

TRANSMIT AND RECEIVE

INTERRUPTS

LET XMTCSR(R1)

XMTCSR(R1)

SET.BY SLINE

LET RCVCSR(R1)

RCVCSR(R1)

SET.BY A#MSCNEN

LET RCVCSR(RY)

RCVCSR{R1)

SET.BY #TXINTE

LET RCVCSR(R1)

RCVCSR(R1)

SET.BY #RXINTE

POP R?

012602

POP R1

012601

BIS

$L INE ,XMTCSR(R1)

BIS

MMSCNEN,RCVCSR(R

BIS

#TXINTE ,RCVCSR(R

BIS

#RXINTE ,RCVCSR(R

MOV

(SP)+,R2

MOV

(SP)+ ,R1

INC

INIT

“SET INIT COMPLETE FLAG
005267

000024

LET
ENDRTN

INIT

+ #°

500008:

ASSEMBLY ROUTINES
MACY11
cZbzes. P11
21-NOV-78 16:33

015640
015642
015644
015646
015650

11:50

H 5
PAGE 59

SEQ 0059

000241

010406
012604
000207
000000
000000
000000
000000
000000

50001%:

$LINE:

015636

29-DEC-78

XMTADD:
RCVADD:

jolelelolelolalslololeolale

015624
015626
015626
015630
015632
015634

30A(1052)

TIMER:
SYNCNT:
FLLCNT:

INIT:

015652
015654
015656
015660
015662
015664
015666

FIL:

XBUFFER:

AS]2ZE:
NMSG:
RTEMPI:
RTEMPZ:
CNTFLG:

cLc

MOV
MOV
RTS

; TRANSMIT BUFFER REGISTER ADDRESS

:
RQUE
RQUET:

RQUER:

:
RBQUE
RBQUET:

000000

RRGQUER:

OQOOOO0OOTDOOOOO

fiQUEUE:

sRECEIVE BUFFER REGISTER ADDRESS
;TIMER FOR CLEAR TO SEND OPERATION
sNUMBER OF SYNC CHARACTERS INSERTED BEFORE DDCMP MESSAGE
;NUMBER OF FILL CHARACTERS AFTER MESSAGE
;INITIALIZE COMPLETE FLAG
sFILL CHARACTER
;CURRENT TRANSMIT BUFFER POINTER
;CURRENT TRANSMIT BUFFER SIZE
sNEW MESSAGE EXPECTED FLAG
s CURRENT RECEIVE BUFFER POINTER
;CURRENT RECEIVE BUFFER SIZE
;CONTROL FLAG FOR INPUTTING DDCMP MESSAGES

RECEIVER QUEUES

015670
015672
015674

R4, SP
+ R4
(SP)

;QUEUE POINTER FOR BUFFER PROCESSING

;QUEUE POINTER FOR NEXT AVAILABLE BUFFER

;QUEUE OF

;QUEUE

BUFFER ADDRESSES AND SIZES

POINTER FOR NEXT AVAILABLE BUFFER AREA

;QUEJL OF BUFFER AREAS

ASSEMBLY ROUTINES
MACY11
CZDZ(B. P11
21-NOv-78 16:33

30A(1052)

2876

29-DEC-78

11:50

5
I
PAGE 60

SEQ 0060

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
TRANSMISSION INTERRUPT HANDLER
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
BGNSRV XINT
;03.2.20.1.7 AND 3.2.20.7.4]

015720

*SET PROCESSOR PRIORITY LEVEL
015720
015720
015724

016700
104041

SETPRI

164266

DEVPRI

MOV
EMT

DEVPRI ,RO
C$SPRI

TST
BNE

SYNCNT
50005%

MOV

R1,-(SP)

BLE

TST

XSIZE
50006%

MOVB

AXBUFFER,R1

BIC

#HYBYTE
,R1

MOVB

R1,aXMTADD

INC

XBUFFER

DEC

XSIZE

50007%

ST
BEQ

FLL

“IF SYNC COUNT EQUAL TO ZERO...
015726
015726
015732

005767
001047

IF SYNCNT EQ #0 THEN

177712

015734
015734
015736
015736
015742

015744
015744
015750
015750
015754
015754
015760

’

010146
005767
003413

117701

.
:

110177

177656

SEND THE NEXT CHARACTER AND UPDATE POINTER AND COUNT
LET R1

:B- aXBUFFER

LET R1

:= R1

177666

CLR.BY #HYBYTE

LET @XMTADD

:B= R1

LET XBUFFER

:= XBUFFER + #1

LET XSIZE

:= XSIZE ~ #1

’

000426

001406

THEN....

PUSH R1

177670

005767

GREATER THAN ZERO,

177704
177400

005367

IF XSIZE GT #0 THEN

177714

042701

005267

CHECK BUFFER SIZE.

IF ALL CHARACTERS SENT. CHECK FILL COUNT.
ELSE
IF FLLCNT NE #0 THEN

177650

500068:

500108

IF FILL COUNT ISN'T ZERO SEND A FILL CHAR. AND DECREMENT COUNT

055777

177646

005367

177634

000415

LET QXMTADD := Q@XMTADD SET.BY FIL

177630

LET FLLCNT
ELCE

:= FLLCNT - 41

BIS

FIL,aXMTADD

DEC

FLLCNT

50011%

ASSEMBLY ROUTINES
MACY11
C2Dz2CB.P1Y
21-NOV~-78 16:33

30A(1052)

29-DEC-78

11:50

J.
5
PAGE 61

SEQ 0061

016014

50010%:
IF ALL TRANSMIT DONE, DISABLE TRANSMISSION AND SET DONE FLAG

016014
016014
016020
016024
016024
016030
016030
016032
016032
016040
016040

016046
016046
016046
016046
016046
016046

016701
162701

177616
000006

005267

177124

LET R1

:= XMTADD - #6

LET XDONE

:= XDONE + #1

ABORTWAIT

104021

046761

177576

042761

040000

000004

000000

LET XMTCSR(R1)

:= XMTCSR(R1)

(CLR.BY $LINE

LET RCVCSR(R1)

:= RCVCSR(R1)

CLR.BY HTXINTE

ENDIF

XMTADD ,R1
#6,R1

INC

XDONE

EMT

C$ABRT

BIC

$L INE ,XMTCSR(R1)

BIC

#TXINTE ,RCVCSR(R

MOV

(SP)+,R1

B8R

50012%

MOVB

#SYNC ,@XMTADD

DEC

SYNCNT

50011$:

ENDIF

50007%:

POP R1

012601

MOV
SUB

:...OTHERWISE, SEND A SYNC AND DECREMENT THE SYNC COUNT
016050
016050
016052
016052
016052
016060

016060

016064
016064

ELSE

000405
112777

005367

000377
177560

177556

LET QXMTADD
LET SYNCNT

50005%:

:B= #SYNC
:= SYNCNT - #1

ENDIF

50012%:

‘DO A SUPERVISOR-TYPE RT!
016064
016064
016064

ENDSRV

L10027:

000002

RT1

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
RECEPTION INTERRUPT ROUTINE
\

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

BGNSRV RINT

J03.2.1.1.1,

3.2.20.2.1 AND 3.2. 20.9.1]

“SET PROCESSOR PRIORITY
016700
104041

010146

164120

SETPRI DEVPRI
PUSH R1

MOV
EMT

DEVPRI RO
($SPR]

MOV

R1,-(SP)

MACY11
21-NOvV-78 16:33

ASSEMBLY ROUTI NES

€zbz2(B.P11

2988
2989
2990
2991

2996

2997
2998
2999
3000
3001
3002
3003
3004
3005
3006
3007
3008
3009
3010
3011
3012
3013
3014
3015
3016
3017
3018
3019
3020
3021
3022
3023
3024
3025
3026

3027
3028
3029
3030
3031
3032

3033
3034
3035
3036
3037
3038
3039
3040
3041
3042

PAGE 62

SEQ 0062

‘IF NEW MESSAGE FLAG IS RESET...
*GET THE BYTE

2992

2993
2994
2995

11 :50

29-DEC-78

30A(1052)

016076
016076

017701

LET R1

177536

:= @aRCVADD

MOV

aRCVADD ,R1

BIT

#70000,R1

MOV

R1,RDONE

CLR

NMSG

MOV

(SP)+,R1

BIC

#HYBYTE
.R1

NMSG

cMPB
BEQ
cMP8

R1,#SYNC

*IF ERROR, REPORT IT AND EXIT IMMEDIATELY (FORCE RESTART)
016102
016102
016106
016110
016110
016114
016114
016120
016120
016122
016126
016126
016126
016126
016132
016132
016136

032701
001407

070000

010167

177042

005067

177540

012601
000167

000500

042701

177400

005767
001132

177522

’

LET RDONE

JMP REXIT
ENDIF

LET R1

016154
016154
016160

000377

120167

177500

120127

001053

(LOOKING FOR FIRST NON-SYNC/NON-FILL)

IFB R1 NE #SYNC ANDB R1 NE FIL THEN

BEQ

177522

177472

016777

177466

177474

110177

177460

005267

1774564

’

50015%

R1,FIL

50015%

NOT FILL OR SYNC. CHECK FOR ENQ (DDCMP CONTROL MESSAGE).
IFB R1 EQ #ENQ THEN

cMP8

017767

500148

CHECK FOR SYNC/FILL CHARACTER

’

000005

016

BNE

’

i
*

50013

50013$:

CLR.BY #HYBRYTE

IF NMSG EQ #0 THEN

P
016162
016162
016170
016170
016176
016176
016202
016202

:= R1

120127

001523

:= R1

POP R1

001526

BEQ

LET NMSG := #0

1
016140
016140
016144
016146
016152

IF #70000 SETIN R1 THEN

BNE

IF IT IS AN ENQ, SET EXPECTED BYTE COUNT TO 7, SET MESSAGE SIZE

70 10

(OCTAL)

AND UPDATE

THE BUFFER QUEUES

LET RTEMP1 :- BRBQUE
LET @RQUE

:= RTEMPT

LET RIEMPT

:B= R1

LET RTEMP1

:= RTEMP1

LET RBQUE

:= RBQUE

+ #1

+ 42

MOV

aRBQUE ,RTEMP1

MOV

RTEMP1,aRQUE

MOVB

R1,3RTEMPY

INC

RTEMPI

ASSEMBLY ROUTINES

M2C§%1

30A(1052)

C2DZCB.P11

21-NOV=-78 1

3044
3045
3046

016206
016214
016214

062767

000002

177474

026727

177470

015716

3048
3049
3050
3051
3052

016224
016224
016232
016232
016232

3047

016222

3053
3054
3055
3056
3057
3058
3059
3060

016232
016240
016240
016246
016246
016254
016254
016262

3062
3063
3064
3065
gggg

016270
016272
016272
016300
016300

3061

016262

003403
012767

015712

000007

177424

062767

000002

177424

012777

000010

177416

062767

000002
i

177410

003403
012767

177404

015674

%8?9

3078
3079
3080
3081
3082
gggz

016310
016310
016314
016316
016322
016324

012767

177777

3090
3091
3092
3093
3094
3095
3096
3097

016332
016332
016340
016340
016344
016344
016350
016350

3098
3099

016356
016356

:= #10

LET RQUE

:= RQUE + #2

000201

177330

016777

177324

177332

110177

177316

005267

177312

062767

000002

177332

026727

177326

015716

#RBQUET ,RBQUE

MOV

#7 RTEMP?

ADD

#2,RQUE

MOV

#10. 3RQUE

ADD

#2,RQUE

cMP

RQUE
, #ROUEB

MOV

#RQUE
T, RQUE

MOV

#-1,CNTFLG

50021%

500208

NOT FILL, SYNC OR ENQ. (HECK FOR SOH OR DLE (DDCMP DATA MESSAGE)
IFB R1 EQ #SOH ORB Ri EQ #DLE THEN

500228 :

177360

MOV

50017$

(MESSAGE SIZE COUNT COMPLETE)

000220

017767

RBQUE ,#RBOUEB

50020% :

50016$:

CMP

BLE

:= #RQUET

ELSE

;

016324

:= RQUE + #2

LET @RQUE

SET COUNTER FLAG TO -1

#2 ,RBQUE

50017$:

LET CNTFLG := #-1

016324

ENDIF

177360

5»83(7:

3088

LET RBQUE := #RBQUET

LET RQUE

ADD

BLE

IF RQUE GT ARQUEB THEN

000443

120127
001403
120127
001033

SEQ 0063

LET RQUE

.
016300
016300
016306
016306
016310

PAGE 63

LET RTEMP2 := #7

177372

3085

3089

015706

%823
3070
3071
3072
3073
%8;?

11:50

IF RBQUE GT #RBQUEB THEN

177456

012767

026727

29-DEC-78

MOVE QUEUE POINTER TO SIZE ENTRY AND SET rCUNTER FLAG TO 1

FIRST COUNT BYTE)

LET RTEMP!

:= aRBC E

LET @RQUE

:= RTE.4P1

LET QRTEMP1

:B= R1

LET RTEMP1

:= RTEMPT1

LET RBQUE

+ #1

:= RBQUE + #2

IF RBQUE GT #RBQUEB THEN

CMPB
BEQ
CMPB
BNE

R1,#SOH
50022%
R1,#DLE
50023$

(EXPECT

MOV

SRBQUE ,RTEMP1

MOV

RTEMP1,aRQUE

MOVB

R1,3RTEMP1

INC

RTEMPY

ADD

#2 ,RBQUE

CMP

RBQUE
, #RBQUEB

ASSEMBLY ROUTINES

CZDz2CB.P11

21-NOV-78 16:33

016364
016366
016366
016374
016374
016374
016374
016402
016402
016410
0
2

30A(1052)

003403

012767

015712

062767

000002

177270

012767

000001

177256

3140

NN AN NN NN NN N AN NN

145

—adaa—

RRRXRR

[o,Te Yo Yo N V10

jelelelelels]

005367

)
)
b
b —
— e

ENDIF
LET RQUE

ELSE

THE LEGAL CHARACTERS...
LET NMSG

:
016416
016416
016422

005267

50024%

MOV

#RBQUE
T ,RBQUE

ADD

#2 ,RQUE

mMov

#1,CNTFLG

50025%

DEC

NMSG

INC

NMSG

B8R

50026$

MOVB

R1,aRTEMPI

FORCE

FLAG TO RESET ON EXIT.

:= NMSG - 41

ENDIF

50025%:

END]IC

BLE

50024%:

:= RQLS + #2

LET CNTFLG := M1

177242

50021$:

SET THE NEW MESSAGE FLAG
EXIT ROUTINE

LET NMSG

177236

:= NMSG + #1

ENDIF

016422

50015$%:

:NEW MESSAGE FLAG IS SET... CONTINUE BUILDING MESSAGE
016422
0164622
016424

000500

’

ELSE
500148
:

INOT A NEW MESSAGE...GET BYTE AND STORE IT
016424

016424

110177

)

’

177232

:
016430

016430

016434

005767

003413

’

177232

9
9

:
;

2
3

016436
016436

117767

177220

016444

0462767

177400

177212

016444

LET @RTEMP1 :B= R1

IF COUNTER FLAG IS GREATER THAN ZERO, BYTE IS ALSO THE FIRST COUNT BYTE
IF CNTFLG GT #0 THEN

TST

BLE

148

:= ARBQUET

A RESTART BY FORCING THE NEW MESSAGE

3142
144

SEQ 0064

50023$:

%}gg
3139

LET RBQUE

000402

33
2135

PAGE 64

177314

3124

3133
31346

11:50

3123

3128

29-DEC-78

BYTE WASN'T ANY OF
pour Qar Qur Qo Gheur P

OOQVO‘U\J*WN—'O%@

d
D
d

d b b

d =D rd
)
amd

d d ed o ed =

b e
-t

N =

WWNN
NN NN N NN WINWN

3100
3101
3102
3103
3104
3105
3106
3107

MACY11

CNTFLG

50027

PUT THE BYTE IN RTEMP2 (EXPECTED COUNT). UPDATE THE BUFFER POINTER
DECREMENT THE COUNTER FLAG (SET TO GET SECOND COUNT BYTE) AND
GO DO AN RT]
LET RTEMP2

:B= QRTEMPI

LeTM RTEMP2

:= RTEMP?2 (LR.BY AHYBYTE

mMOvVB

ARTEMP1

RTEMP2

BIC

#HYBYTE ,RTEMP?

ASSEMBLY ROUTINES

cZozcs.PN

MACY11 30A(1052)

21-NOv-~78 16:33
005267

177204

005367

177204

29-DEC~78

11:50

N 5
PAGE 65

SEQ 0065

LET RTEMP1

:= RTEMP1

+ M1

LET CNTFLG

:= CNTFLG - M1

ELSE

000460

50027:
COUNTER FLAG NOT GREATER THAN ZERO,

016464
016464
016470

005767
001041

INC

RTEMP1

DEC

CNTFLG

50030%
!

IS IT ZERO?

IF CNTFLG EQ #0 THEN

177176

TST
BNE

CNTFLG
50031%

[F ZERO, BYTE IS ALSO SECOND BYTE OF COUNT (6 HIGH ORDER BITS)

GET

016472
016472
016474
016474
016500
016500
016504
016504

016506
016506

016512
016512
016516
016516

IT, MASK IT AND PUT IT INTO RTEMP2

(EXPECTED COUNT)

PUSH R1

010146
117701

177162

005267

177156

LET R1

LET RTEMP]

140377

060167

177146

:= RTEMP]

+ #1

LET R1.:= SWAP R1

000301
042701

:B= GRTEMPI

LET R1

:= R1

LET RTEMP2

CLR.BY 4140377

:= RTEMP2 + R1

POP R1

012601

MOV

R1,-(SP)

MOVB

R
aRTEMP1

INC

RTEMP1

SWAB

BIC

#140377
,R1

ADD

R1,RTEMP2

MOV

(SP)+ ,R1

MOV

RTEMPZ2 ,aRQUE

ADD

#12,aRQUE

PUT THE COMPLETE SIZE IN THE QUEUE (EXPECTED COUNT +
12 (OCTAL) BYTES OF HEADER AND CRC)

016520
016520
016526
016526

016777

177140

062777

000012

177144

177136

LET @RQUE

:= RTEMP2

LET @RQUE

:= GRQUE + #12

ADJUST EXPECTED COUNT
THE DATA CRC

016534
016534

062767

000007

062767

000002

177122

025727
003403

177116

015706

012767

015674

177104

THE

REMAINDER OF

LET RTEMP2 := RTEMPZ + #7

177122
UPDATE

016542
016542
016550
016550
016556
016560
016560
016566

TO INCLUDE

THE QUEUE AND DECREMENT THE COUNTER FLAG
LET RQUE

:- RQUE + #2°

IF RQUE GT #RQUEB THEN
LET RQUE

ENDIF

#RQUET

THE HEADER AND

ADD

47 RTEMPZ

(COUNT COMPLETE)
ADD

#2 ,RQUE

CMP
8LE

RQUE ,#RQUEB

MOV

#RQUET ,RQUE

50032%

ASSEMBLY ROUTINE S
MACY11
€2D2CB.P11
21 ~NOV-78 16:33

30A(1052)

29-DEC-78

8 6
PAGE 66

11:50

016566

016566
016566

005367

177074

LET CNTFLG

’

000414

016604
016604
016610
016612
016612

50032$:

DEC

CNTFLG

ELSE

50033%

50031$:

®
:
016574
016574
016600
016600

:= CNTFLG - #1

GO DO AN RTI

*
016572
016572
016574

SEQ 0066

005267

177062

005367

177060

COUNTER FLAG IS LESS THAN ZERO...
UPDATE POINTER AND COUNT

’

LET RTEMP1 := RTEMP] + #1

177054

005267

176340

LET RTEMP2 := RTEMP? - #1
IF

005767
001005

THIS IS A DATA BYTE

COUNT HAS REACHED ZERO, END OF MESSAGE.
IF RTEMPZ EQ 40 THEN
LET RDONE

RTEMP1

DEC

RTEMP2

BNE

TST

RTEMP2
50034%

INC

RDONE

EMT

CSABRT

CLR

NMSG

MOV

(SP)+,R1

SET DONE FLAG.

:= RDONE + #1

ABORT ANY WAITS AND RESET NEW MESSAGE FLAG

016616
016616

016620
016620

016624
016624
016624
016624
016624
016624
016624
016624

ABORTWA]T

104021

005067

LET NMSG

177034

ENDIF

50034%:

ENDIF

50033%:

ENDIF

50030%:

ENDIF

50026%:

:DO RT!
POP R1
REXIT:

ENDSRV

L10030:

000002

ROUTINE TO GET AN INPUT BUFFER FROM THE INPUT QUEUES

WILL RETURN AN ERROR IF TERMINAL DOES NOT RESPOND

RTI

012601

*r 4+

016624
016624
016626
016626
016626

21-NOV-78 16:33

30A(1052)

3269

3270
327

[

3280

016630

005067

’

177006

016634
016634
016634
016634
016640
016642
016642

016646
016646
016654

3299

016664

3310

012700
104027

000100

005267

176774

016656
016662

026767
003003
005767
001764

176770

50002%:
;03.2.1.1.4, 3.2.20.2.4, 3.2.20.8.4]
MOV
EMT
:= TIMER + #1
INC

LET TIMER

UNTIL

163244

TIMER GT TIMLIM OR RDONE NE 40

50003%:

TIMER

#100,RO
CSWTU
TIMER

cCMP
BGT
TST
BEQ

TIMER,TIMLIM
50003%
RDONE
50002%

CLR

NMSG

SRESET THE NEW MESSAGE FLAG
016664
016664

005067

’

176770

LET NMSG := #0

SIF THE TIME LIMIT WASN'T EXCEEDED...

016670
016670

016676

026767
002044

176746

163222

’

IF TIMER LT TIMLIM THEN

CMP

TIMER, TIMLIM

BGE

50004$

CLR

TIMER

TST
BLE

RDONE
50005%

*RESET THE TIMER

3313

“CHECK FOR ERROR (RDONE LESS THAN ZERO)

016700
016700
016704
016704
016710

3321
3323

CLR

176274

3312
3315
3316
3317
3318
3319

R R

WAITUS #100

3306

3308
3309

LET TIMER :- #0

REPEAT

3301
3304

;03.2.1.1, 3.2.20.2 AND 3.2.20.8]
RCVE:

:LOOP UNTIL TIME LIMIT EXCEEDED OR RECEIVER DONE FLAG IS SET

3294
3295
3296

3303

R e

:GO TO SUPERVISOR FOR AWHILE AND INCREMENT TIMER

3292

3297
3298

SEQ 0067

CRESET TIMER

3282
3284
3285
3286
3287
3288
3289
3290

ROUTINE RCVE

3277
3279

C_6

PAGE 67

THE PROGRAM TO RETRY THE STRT-STACK SEQUENCE WITHOUT HAVING
AN ERROR MESSAGE EACH TIME

A R

016630
016630

11:50

ARGUEMENT (IF SET) INHIBITS ERROR PRINTOUT. THIS ALLOWS

:
:

3273

3274
3275

29-DEC-78

C2DZ(B.P11

MACY11

ASSEMBLY ROUTINES

005067

176736

005767
003426

176246

LET TIMER := #0
IF RDONE GT #0 THEN

>
016712

NOT ERRROR, GET BUFFER ADDRESS AND SIZE FROM QUEUE AND UPDATE QUEUE
LET INBUF

:= @RQUEUE

ASSEMBLY ROUTINES
MACY11
(zDzcB.P11
21-NOv-78 16:33

3324
3325
3326
3327
3328
3329
3330
3331
3332
%%gz
3335
3336
3337

016712
016720
016720
016726
016726
016734
016734
016742
016742
016750
016752
016752
016760
016760

30A(1052)

017767

176752

163236

062767

000002

176742

017767

176736

163224

062767

000002

176726

026727
003403

176722

015706

012767

015674

29-DEC-78

11:50

D 6
PAGE 68

:= RQUEUE + #2

LET RQUEUE

LET INSIZ

SEQ 0068

:= aRQUEUE
:= RQUEUE + #2

LET RQUEUE

IF RQUEUE GT H#RQUEB THEN
LET RQUE UE

176710

:= ARQUET

ENDIF

MOV

UE
, INBUF
aRQUE

ADD

#2 ,RQUEUE

MoV

3RQUEVE, INS1Z

ADD

#2 ,RQUEUE

CMP
BLE

RQUEUE
, #RQUEB

MOV

#RQUET ,RQUE UE

CLR

RDONE

50007%

50006%

50006$%:

‘RESET DONE FLAG AND LEAVE
3341
3342
3343
3344
3345

016760
016760
016764
016764
016766

005067

LET RDONE

176172

ELSE

000410

50005%:

:ERROR DID OCCUR...RESET THE DONE FLAG, REPORT ERROR, RETURN WITH ERROR
3349
3350
3351
3352
3353
3354
3355

016766
016766
016770
016772
016774
016776
016776

005067

3357
3358

017002
017004

000261
000440

3362

017006

’

104463
000032
003210
004454

ERRHRD 26,MS G26 ,AREAZ26

LET RDONE

176154

TRAP
.WORD
.WORD

:= #0

RETURN ERROR

ENDIF

.WORD

MSG26
AREA26

CLR

RDONE

SEC
BR

50001¢

50010%

CLR

TIMER

MOV

R1,-(SP)

MOV
SuB

#2.R1

MOV

RZ,=(SP)

MOV

#DZREG,R2

MOV

RCVCSR(R1) ,RCVCS

50007%:

ELSE

000436

TSERCODE

500048

STIME LIMIT EXCEEDED...RESET TIMER, GET REGISTER CONTENTS
0
9

005067

010146

LET TIMER

176626

3372
3373

017016
017022

016701
162701

3375

017026

010246

3377

017030

012702

002254

3379

017034

016162

00000G

:= 40

PUSH R1

LET R1

176616
000002

:= RCVADD - B2

PUSH R?

LET R2 := #DZREG
000000

LET RCVCSR(R2)

:= RCVCSR(R1)

RCVADD ,R1

ASSEMBLY ROUTINES

C2Dz2CB.P11
3380
3381
3382
3383
3384
3385
3386
3387
3388
3389

MACY11

30A(1052)

016162

000002

016162

000004

002004

016162

000006

21-NOV~78 16:33

017042
017042
017050
017050
017056
017056
017064
017064
017066
017066

SEQ 0069

LET RCVBUF (R2)

RCVBUF(R1)

LET XMTCSR(R2)
_
LET XMTBUF (R2)

XMTCSR(R1)

XMTBUF (R1)

MOV

RCVBUF
(R1) ,RCVBU

MOV

XMTCSR(R1) ,XMTCS

MOV

XMTBUF
(R1) ,XMTBU

MOV

(SP)+,R2

MOV

(SP)+ ,R1

TRAP
.WORD
.WORD
.WORD

T$ERCODE
31
MSG31
AREA31

SEC
BR

50001%

*PRINT ERROR MESSAGE
017070
017070
017072
017074
017076

ERRHRD 31,MSG31,AREA31

104463
000037
003301
004534

SRETURN WITH ERROR IN ANY CASE
100

017100
017102
017104
017104
017104
017104
017104
017106
017106

RETURN ERROR

000261
000401

ENDIF

50010s:

ENDRTN

500008:

000241

50001¢:

000207

QOOOOC

md
b e

b
ek

Ghur Siny Guur G4

NNNNNW

leolalelolelo)

RTS

DUMMY ROUTINE FOR (OMPATIBILITY
ROUTINE

ENDRTN

000207

CLC

par G

nONY

OV~

LS
AN
WSO

PAGE 69

POP R1

012601

3399
3402
3403
3404
3405
3406
3407
3408
3409

11:50

POP R2

012602

339
3393
3394
3395
3396
3397

29-DEC-78

INSERR <A>

TRy

INSERR:

50000%:
$0001s:

RTS

31.33

.'404+0§§#¢++*4#+0#0+0#00*+00+¢4++0+0++¢§0++¢§+¢#00#++++#++0##¢#¢0¢0#000

3434

;

3435

THIS ROUTINE COMPUTES CRC-16 AND REQUIRES THREE ARGUMENTS:

ASSEMBLY ROUTINES
MACY11
CZDZCB.P1T
21-NOV-78 16:33

30A(1052)

34,36

3,37
3438

29-DEC-78

PAGE

6
stQ 0070

;

DATA ADDRESS, DATA SIZE (IN BYTES) AND A WORD LOCATION

3.2.20.6.2, 3.2.20.6.4 AND 3.2.20.10.1]

:
;

%228

11:50

FOR_THE COMPUTED CRC
(3.2.1.2.1, 3.2.1.2.4, 3.2.20.1.2, 3.2.20.3.1,

%22;
3‘.43
%44
3445
3466
3447
3448
3449
3450
3451

352
3453
3454
355
3,56
357
3,58
34,59
3460
3461
3462
3463
3464
3,65

3466
3467
3,68
3469
3,70

371
372
3,73
374
3475
3,76
3477
3,78
3,79
3480
3481
3482

3,83
3,84
3,85
3,86
3,87
3488
3,89
3,90
91

THIS IS A STANDARD ROUTINE FROM DEC'S NETWORK GROUP

017112
017112
017112
017112
017112
017112
017114
017116

017122
017122
017124
017124
017126
017126
017130
017130
017134
017136
017140
017140
017142
017142

017142
017144
017146
017146
017152

017152
017160
017160
017162
017162
017164
017170
017174
017200
017200
017206
017206

017214
017214
017220
017220
017226
017226
017234
017234
017242

010446
010604
162706

E PHPF PP PPt PP 4444444444444 2 4434234444442 4 4244494444244 4 4244444444444+
ROUTINE CRC <A,B,(>
CRC:
DECLARE LOCALS
LOCAL<D,E>
ALLOCATE
MOV
R4 ,~(SP)
MOV
SP.R4
SuB
#4,SP

000004

PUSH R1

010746

PUSH R2

010246

PUSH R3

010346
016501

000000

016502

000002

LET R1

:= A(RS)

LET R2 := B(RS)
LET R3 := #0

005003

WHILE R2 GT #0 DO

005702
003500
112164

177776

042764

177400

LET D(R4)
177776

005302
010346
046416
040264
052664

177776
177776
177776

016464

177776

177774

042764

177760

177776

006364

177776

062764

017366

177776

017464

177776

042764

177417

177774

LET D(R&)

:B= (R1)+
)
:= D(R&4) CLR.BY AHYBYTE

LET R2 := R2 - #

LET D(R&)

:= D(R4) XOR R3

LET E(R&)

:= D(R4)

LET D(R&4)

:= D(R4) CLR.BY #177760

LET D(R4)

:= D(R4) SHIFT 41

LET D(R4)

:= D(R4) + ACRCTAB

LET D(R&)

:= aD(R4)

LET E(R4)

:= E(R4) CLR.BY #177417

LET E(R&)

:= E(RG) SHIFT =3

500028:

MOV

R1,=(SP)

MOV

R2,=-(SP)

MOV

R3.,-(SP)

MOV

A(RS) ,R1

MOV

B(RS) ,R2

CLR

TST
BLE

R2
50003$

MOVB

(R1)+,D(R&)

BIC

#HYBYTE ,D(R4)

DEC

MOV
BIC
BIC
8IS

R3,~(SP)
D(R4), (SP)
R3,D(R4)
(SP) +,D(R4)

MOV

D(R&4)
,E (R4)

BIC

#177760.,D (R4)

ASL

D(R&)

ADD

#CRCTAB,D (R4)

MOV

aD(R4) ,D(R4)

BIC

#177417
,E (R4)

ASSEMBLY ROUTINES
MACY11
(zbz(B.P1N
21-NOvV-78 16:33

017242
017246
017252

30A(1052)

006264
006264
006264

177774
177774
177774

062764

017366

177774

062764

000040

177774

017464

177774

016446
046416
046464
052664

107774

042703

000377

177776
177774

177776

29-DEC-78

177776

jelelelololeleleleleslalolololoBle]

140301

:= E(RSL)

+ #432.

LET E(R4)

:= QE(R4)

LET D(R4)

:= D(R4)

LET C(R5)

000004

:= R3

POP RZ

POP R1

ENDRTN

000000
140301
140601

08\1

CRCTAR:

142201

ASR
ASR
ASR

E(R4)
E(R4)
E(R&)

ADD

#CRCTAB,E (R4)

ADD

#32. E(RG)

MOV

aE (R4) LE(R4)

MOV
BIC
8IC
8IS

D(R4), (SP)
E(R&) ,.D(R&)

BIC

#LOBYTE ,R3

SWAB

MOV
8IC
8IC
8IS

D(R4) ,~(SP)
R3, (SP)
D(R4) ,R3
(SP)+_R3

50000%:
50001%:

E(R4) ,-(SP)

(SP)+,D(R&)

50002%

50003%:

POP R3

142701
142201

XOR E(R4)

ENDDO

NO
OO

——h
e

s Grir —
G
iur G
gt

NRNNNNRY NNN
DWW
NNN

LET ECRG)

010406
012604
000207

17374

[

+ H(RCTAB

177776

012601

~
o

:= E(R4)

LET R3 := R3 XOR D(R&)

012602

W
A%

LET E(RG)

LET 3 := SWAP R3

012603

000000

SEQ 0071

LET R3 := R3 CLR.BY #LOBYTE

000676

010365

G. 6
PAGE 71

177776

000303
016446
040316
046403
052603

11:50

MOV

R3.C(R5)

MOV

(SP)+,R3

MOV

(SP)+,R2

MOV

(SP)+,R1

MOV
MOV
RTS

R4 ,SP
(SP)
+ ,R4

ASSEMBLY ROUTINES
MACY11
c20z2(B.P11
21-NOv-78 16:33

3548
3549
3550
3551
3552
3553
3554
3555
3556
3557
3558
3559
3560
3561
3562
3563
3564
3565

017424
017426
017430
017432
017434
017436
017440
017442
017444
017446
017450
017452
017454
017456
017460
017462
017464
017466

002100
000000
146001
154001

012000

162001
120001
066000
074000
132001
050000
116001
104001

042060

30A(1052)

29-DEC-78

11:50

002100

H 6
PAGE 72

SEQ 0072

MACY11 30A(1052) 29-DEC-78 11:50 PAGE %3

ASSEMBLY ROUTINES
czbz(8 P11
21-NOV=-78 16:33

3566
3567
3568
3569
3570
3571
3572
3573
3574
3575
3576

017466

SEQ 0073

BGNMOD TESTS

HARDWARE TESTS [3.2]

N OO

ODDODNDNDODONDODODODODODIDDODDODODDODD

SELF TEST [3.2¢)

N <><><><><>§§§>()<><><><><><><><><><>(>(><><><>(><>(><><><><>(><>(><>

0174¢6

BGN

“FORCE INIT OF COMM DEVICE AND LINK
017466
017466

005067

LET

176756

INIT

CLR

INIT

MOV
BIC

MDMSG, OUTMSG
#100001,0UTMSG

MOV

MDMSG+2,0UTMSG+2

JSR

PC, TEROUT

BCC

50004

“GET MESSAGE ADDRESS AND SIZE
017472
017472
017500
017506
017506

016767
042767

000770
100001

162442
162434

016767

000756

162430

LET OUTMSG

:= MDMSG CLR.BY #100001

LET OUTMSG+2 := MDMSG+2

*SEND THE MESSAGE
017514
017514

004767

173040

’

CALL TEROUT

*IF ERROR....
017520
017520

’

103015

:
*

= OV

WN—=O

AR g

:
017522
017522
017524
017530

010546

012605
104463

000062
003467
004262
104006

104032
000412

’

IF .ERROR THEN

INSERT ERROR INTO STATISTICS TABLE (MANUFACTURING VERSIONS ONLY),

REPORT

THE

ERROR,

IF LOOPING ENABLED

REQUEST

(EXIT

SUPERVISOR

TO LOOP

TEST IF NO LOOPING)

CALL INSERR IN <#0>

MO\/

000000

MOV
JSR
MOV

177354

ERRHRD 50.MSGSC.AREA4LO

TRAP

CKLOOP
EXIT TST
ENDIF

50004%:

RS,-(SP)

#0,-(RS)
PC, INSERR

(SP)+,RS

T$ERCODE

-WORD
“WORD
-WORD

50
MSGS0

EMT

CS$CLPY

EMT
- WORD

CSEXIT
L10031-.

AREA4LO

ASSEMBLY ROUTINES
MACY11
CZDz2(B. P11
21-NOV~78 16:33

30A(1052)

29-DE (-78

11:50

J
6
PAGE 74

SEQ 0074

‘LOOK F OR A(CK
162705

004767
012567

000002

CALL TERIN OUT <MCOMP>

174056

000674

SuB
JSR
MOV

#1%2,RS

BCC

50005%

PC,TERIN

(R5) +,MCOMP

*IF ERR OR...INSERT ERROR INTG TABLE
REPORT THE ERROR,
IF NO LOOPING)

017570
017570
017572
017572
017574
017600
017604
017606
017606
017610
017612
017614
017616
017616
017620
017620
017622
017624
017624

1F .ERROR THEN

103015

010546
012745
004767
012605

(MANUFACTURING TEST ONLY)
REQUEST LOOP [F ENABLED (EXIT TEST

CALL

INSERR IN <#0>

MOV

000060
177304

ERRHRD 50,MSG50,AREA4Q

104463

000062
003467
004262
(KLOOP

104006

EXIT

104032

000342

TST

ENDTF

017624
017624
017630
017632
017632
017634
017636
017640
017642
017642
017644
017644
017646
017650

005767
001407

000634

ERROR,

LOCP

ENABLED,

EXIT

TEST

TRAP

T$ERCODE

.WORD
.WORD
.WORD

50
MSGSO
AREA4O

EMT

csCLP

EMT
.WORD

L10031~.

TST

Mcomp

BEQ
TRAP
.WORD
.WORD

(KLOOP

EXIT TST

104032

000316
ENDIF

017650

CSEXIT

if MCOMP NE #0 THEN

000062
003467
004262
104006

(SP)+,R5

NOT

ERRHRD 50,MSG50,AREA4Q

104463

#0,-(R5)
PC,INSERR

50005$:

YIF MES SAGE WAS NOT AN A(K...ERROR
REPORT

RS,=(SP)

MOV
JSR
MOV

50006%
T$ERCODE

-WORD

50
MSG50
AREA4O

EMT

CsCLPY

EMT
.WORD

110031-.

CLR

INIT

CSEXIT

50006%:

%FORCE A RESTART ON THE LINK AND WAIT FOR SELFTEST TO COMPLETE
017650
017650
017654

005067

175774

LET INIT

:= 40

LET SCRT(H := #0

ASSEMBLY ROUTINES
MACY11
(2DZCB.P1N
21-NOV-78 16:33

3678
3679
3680
3681
3682
3683
3684
3685
3686
3687
3688

017654
017660
017660
017660
017660
017664
017666
017666
017672
017672
017700

005067

30A(1052)

162232

012700
104027

000100

005267

162220

026767
003767

162214

017702
017702
017710
017716
017716
017724
017724

CLR

SCRT(CH

MOV
EMT

#100,RO
CSWTU

INC

SCRTCH

CMP
BLE

SCRTCH,STWAIT
50007¢

MOV
BIC

MDMSG1,0UTMSG
#100001,0UTMSG

MOV

MDMSG1+2,0UTMSG~

JSR

PC.,TEROUT

50007%:

UNTIL SCRTCH GT STWAIT

172012

162232
162224

016767

000556

162220

004767

172630

LET OUTMSG := MDMSG1

CLR.BY #100001

LET OUTMSG+2 := MDMSGi+2
CALL TEROUT

:IF ERROR....INSERT ERROR IN TABLE (MANUF. TESTS ONLY), REPORT ERROR,
:
017730
017730
017732
017732
017734
017740
017744
017746
017746
017750
017752
017754
017756
017756
017760
017760
017762
017764
017764

010546
012745
004767
012605

LOOP IF ENABLED, EXIT TEST IF NO LOOPING
IF .ERROR THEN

103015

CALL INSERR IN <#0>
000000
177144
ERRHRD 50,MSG50,AREA4O

104463
000062
003467
004262

CKLOOP

104006

EXIT TST

104032
000202

ENDIF

BCC

50010%

MOV
MOV
JSR
MOV

R5,-(SP)
#0,-(RS)
PC, INSERR
(SP)+,R5

TRAP
.WORD
.WORD
.WORD

T$ERCODE
50
MSGS50
AREA4O

EMT

C$CLPT

EMT
.WORD

CSEXIT
L10031-,

SuUB

#1%2 RS

50010%:

SACK TFRMINAL AND GET ITS RESPONSE
017764

’

017764

3728

REPEAT

50011$:

*GET THE RESPONSE

3730

017764

3732
3733

017770
017774

2731

SEQ 0075

LET SCRTCH := SCRTCH + M

000570
100001

3723
3726

wAITUS #4100

016767
042767

3701

3725

PAGE 75

$SET UP MESSAGE ASKING FOR RESULTS AND SEND IT

3700
3703
3704
3705
3706
3707
3708
3709
3710
3711
3712
3713
3714
3715
3716
37217
3718
37219
3720
3721

11:50

REPEAT

3690
3692
3693
3694
3695
3696
3697
3698

29-DEC-78

017764

162705

004767
012567

000002

173646
000464

CALL TERIN OUT <MCCMP>

JSR
MOV

PC,TERIN
(R5)+,MCOMP

ASSEMBLY ROUTINES
MACY11
czbzCB.P11
21-NOV~78 16:33

30A(1052)

29-DEC-78

11:50

HANDLE ERROR

3738

020000

103015

37640
3741
3742
37643

020002
020004
020010
020014

010546
012745
004767
012605

3748

020024

004262

3750

020026

104006

3752
3753

020030
020032

104032
000132

000000
177074

ERRHRD 50,MSG50,APEALD

EXIT TST
ENDIF

000424

3760

020042

004767

000120

020050
020052
020056
020062

010546
012745
004767
012605

3772
3773
3774
3775

020064
020066
020072
020076

010546
012745
004767
012605

CALL

b
b e
— et e

INSERR IN <#0>

177026

CALL

INSERR IN <#1>

177012
ERRHRD 50,MSG50,AREA4D

ENDIF

PC, INSERR

#0,-(RS)

(SP)+,R5

-WORD

T$ERCODE
50
MSG50
AREA4O

EMT

CS$CLPT

EMT
.WORD

CSEXIT
L10031-.

TST

MCOMP

JSR

PC,OUTREP

BCC

50014%

MOV
MOV
JSR
MOV

R5,-(SP)
#0,-(R5)

TRAP

(KLOOP

ENDIF

JSR
MOV

MOV
MOV
JSR
MoV

000001

EXIT

R5,=(SP)

50013

ACK'ING

000000

104006

104032
002050

ONE OCCURED WHILE

IF .ERROR THEN

O*O*O\O\l\f\fl\)oog

3767
3768
3769
3770

MOV

BNE

CALL OUTREP
ERROR

50012%

50012%:

IF MCOMP EQ #0 THEN

HANDLE

8CC

TRAP
.WORD

(KLOOP

005767
001026

103023

ONE OCCURED.

CALL INSERR IN <#0>

020034
020040

020046

SEQ 0076

IF .ERROR THEN

3757
3758

3765

L 6
PAGE 76

TST

500148:

50013s:

PC, INSERR

(SP)+,R5

RS,~(SP)

#1,-(R5S)

PC, INSERR

(SP)+,RS

T$ERCODE

-WORD
.WORD
.WORD

50
MSGS0
AREA4O

EMT

C$CLPT

EMT
.WORD

CSEXIT
L10031-.

ASSEMBLY ROUTINES
MACY11
(Zb2(CB P11
21-NOV-78 16:33

30A(1052)

29-DEC-78

M_6

11:50

PAGE 77

SEQ 0077

REPEAT THE LOOP UNTIL A MESSAGE IS RECEIVED
005767
001720

UNTIL MCOMP NE #0

000342

TST

MCcoMP

JSR

PC,STINPT

BEQ

50011%

EPROCESS THE MESSAGE RECEIVED
004767

020130
020130

103015

pusEeE &2

3807

020124
020124

NO NN
=O

010546
012745

004767

012605

CALL STINPT

000146

IF .ERROR THEN

RS.-(SP)

000001
176744

#1,-(RS)
PC,INSERR
(SP)+ RS

ERRHRD 50,MSGS0,AREA4LO

104463

- 000062
003467
004262

TSERCODE

50
MSG50
AREA4O

CKLOOP

104006

OOV

50015%

INSERR IN <#1>

CALL

Cs$CLPI

EXIT TST

104032
000002

CSEXIT
L10031-.

ENDIF

500158
:

‘END OF TEST
ENDTST

L10031:

104001

AL S

AR R

R R

EMT

++
+

ROUTINE

TO SEND AND ACK

IN ORDER TO POLL A TERMINAL

.
M

020166
020166

Rl e

ROUTINE OUTREP

QUTREP:

:INSERT MESSAGE NUMBER (LAST MESSAGE SENT) AND RESPONSE NUMBER
; (LAST MESSAGE RECEIVED)....INSERT STATION ADDRESS

CSETST

ASSEMBLY ROUTI NES

€202(B.P11

21-NOV~-78 16:33

020166
020166
020174

3851

116767

162002

000316

020174

116767

161776

000307

020202

116767

163467

000303

020202

11:50

29-DEC-78

MACY11 30A(1052)

PAGE 78

SEQ 0078

LET MSGN :B= MSGNO

LET REPN :B= RMSGNO
LET REPA :B= STR TSA

MOVB

MSGNO,MSGN

mMovB

RMSGNO,REPN

movs

STRTSA,REPA

SJUB

#1=2 RS
RS,-(SP)
#6,-(RS)

{COMPUTE AND INSERT CRC
020210
020210
020214
020216

020234

162705

010540
012745
012745
004767
012605
012567

CALL CRC IN <AREPM, #6> OUT <REPCR(>

000002

MOV
MOV
MOV

000006
020506
176660

JSR

MOV

000254

#REPM,~-(R5)
PC,CRC

(SP)+,R5

(R5)+ ,REPCRC

*SET UP BUFFER POINTER AND SIZE AND SEND THE MESSAGE

3871

020240
020240
020246
020246
020254
020254

012767

020506

175406

012767

000010

175402

004767

174364

LET XBUFFER := # REPM

LET XSIZE

:= #10

CALL XMIT

MOV

HREPM,XBUFFER

MOV

#10,XSIZE

JSR

PC.XMIT

*IF AN ERROR OCCURRED, RETURN WITH ERROR. OTHERWISE RETURN NORMALLY
020260

IF .FRROR THEN

103004

005267

LET OUTERR

161642

:= QUTERR + M

RETURN FRROR

000261
000401

ENDIF

50000%:

000241

50001%:

000207

;###+§4++#+f#+++##v#+++#+§f##+#++++*+#+++++¢#+##0#¢#*0#+*##++++
+

ROUTINE TO PROCESS TERMINAL SELFTEST RESULTS

+
+

;+++#+++++0+¢++++4+++++0v+++4+++++4++++++4+00+++*+#+0#++0#++00+

3901

020276
020276
020276

ROUTINE

PJSH

50002%

INC

OUTERR

SEC
BR

500018

50002%:

ENDRTN

020274
020274

BCC

ST'NPT

STINPT:

Lc
RTS

ASSEMBLY ROUTI NES
MACY11
€2bzCB.P1
21-NOV-78 16:33

3902
3903
3904
3905
3906

020276
020300
020300
020302
020302

010146

30A(1052)

29-DEC-78

11:50

PAGE 79

7
SEQ 0079

PUSH R2

010246

PUSH R3

010346

MOV

R1,-(SP)

MOV

R2,=(SP)

MOV

R3,-(SP)

MOV
ADD

#4 ,R1

CMP8
BEG

(R1), 4101
50002%

mMovB

(R1)+,R3

CMPB
BNE

R3,#115
50003%

ADD

#2 ,R1

MOV

MMTY R2

MOvB

(R1)+,(R2)+

MOvB

(R +,(R2)+

MOV

#BNO,R2

INC

MOvVB

(R1),R3

ADD

#60,R3

MovB

R3,(R2)

TRAP
.WORD
.WORD

;?ERCODE

:SKIP RESPONSE HEADER AND CHECK FIRST DATA BYTE
3910
3911
3912

020304
020304
020310

016701
062701

161646

LET R1

:= INBUF

+ #4

000004

INBUF ,R1

020314
020314
020320

—

3916
3917
3918

o=
ony

$IF IT IS "'A'", GOOD RESPONSE. OTHERWISE...
000"01

IFB (R1)

NE #1071

THEN

GET THE BYTF AND CHECK TO SEE

3922
3923
3924
3925
3926

020322
020322
020324
020324
020330

LET R3 :B=

112103
120327

001025

000115

IS 'M'' (MEMORY ERROR)

(R")+

IFB R3 EQ #115 THEN

MEMORY ERROR...GET

THE TYPE AND BANK NUMBER
INSERT INTO ERROR MESSAGE, REPORT THE ERROR AND
RETURN WITH ERROR
(NOTE: ERROR REPORTING PROTOCOL DELIMITERS ARE
IGNORED. THIS PROGRAM WILL NOT ACCEPT INPUT FROM
ANY OTHER INTELLIGENT TERMINAL PROPERLY.)

3935
3936
3937
3938
3939
3940
3941
3962
3943
3945

020332
020332
020336
020336
020342
020342
020344
020344
020346
020346
020352

062701

000002

012702

003635

112122

012702

003651

005201

110312

3956
3957

366
020370
020372

003611

:= R1

+ #2

LET R2 := #MTY
LET

(R2)+

:B=

(R1)+

LET

(R2)+

:B-

(R1)+

LET R2 := #BNO
LET R1

:= R1

+ M1

LET R3 :B= (R1)

111103

062703

LET R1

000060

LET R3 := R3 + #60
LET (R2)

:B= R3

ERRHRD 71,MSG71

POP R3

MSG71

MACY11
21-NOV-78 16:33

ASSEMBLY ROUTINES

(2D2CB.P11

3958
3959
3960
3961
3962
3963

020372
020376
020376
020400

30A(1052)

11:50

29-DEC-~78

012603

PAGE 80

7
SEQ 0080

POP R2

012602

POP R1

012601

RETURN ERROR

000261
000427

ELSE

MOV

(SP)+ ,R3

MOV

(SP)+,R2

Mov

(SP)+,R1

SEC
BR

50001%

50003$:

NOT A MEMORY ERROR OR PASS...CHECK FOR 'P'' (PROCESSOR ERROR)

120327
001010

IFB R3 EQ #120 THEN

000120

PROCESSOR ERROR...REPORT

003654

POP R3

012603

POP RZ2

012602

POP R1

012601

RETURN ERROR

000261
000414

R3,#120
50005%

TRAP

.WORD
.WORD

T$ERCODE
72
MSG72

MOV

(SP)+,R3

MOV

(SP)+,R2

MoV

(SP)+ ,R1

SEC
BR

50001%

IT AND eXIT WITH ERROR

ERRHRD 72,MSG72

104423
000110

CMPSB
BNE

ELSE

50005%:

:RESPONSE WAS NOT LEGAL...REPORT IT AND RETURN WITH ERROR
ERRHRD 70,MSG70

104423

000106
003556

POP R3

012603

POP R2

012602

POP R1

012601

RETURN ERROR

000261
000404

END] F

ENDIF

020452

TRAP

ENDIF

50006%:
50004%:
50002%:

T$ERCODE

.WORD
.WORD

70
MSG70

Mmov

(SP)+,R3

MOV

(SP)+,R2

MOV

(SP)+ ,R1

SEC
BR

50001%

MACY11
21-NOV-78 16:33

ASSEMBLY ROUTINES

CZDbzCB.P11
4014
4015
4016

4035
4036
4037
4038
4039
4040
4041
4042

4043
4044
4045

4046
4047
4048

4049
4050
4051

4052
4053
4054
4055
4056
4057
4058

29-DEC-78

11:50

I4
)
PAGE 81

SEQ 0081

POP R3

012603

4017
4018
4019
4020
4021
4022
4023
4024
4025
4026
4027
4028
4029
4030
4031
4032

4033
4034

30A(1052)

POP R2

012602

POP R1

012601

ENDRTN

:
500008

000241

50001s:

000207

MOV

(SP) +,R3

MOV

(SP)+,R2

MOV

(SP)+ R1

cLC
PC

RTS

‘MESSAGE AREA FOR SELFTEST
MCOMP:

000000

020472
000004

020476
020476
020500
020502
020505
020506

040
000

120503
000004
040
000

MDMSG:

002

050
EMDMG]:
MDMSG1:

002

051

. +4

EMDMGT-2-,
.BYTE 40.2.50.0
.EVEN
.+100005

EMDMG2=-2-,

.BYTE 40,2.51,0

EMDMG?:

.EVEN

*ACK MESSAGE AREA
020506
020511
020512
020513
020514

001
0
000000

200

REPM:

REPN:
MSGN:
REPA:

REPCRC:
1

.BYTE ENQ,ACK,200

.BYTE 0
.BYTE 0
.BYTE 0

.WORD 0

OO ODDDDODOODDODNDIDDODDONDODDOOODODODD

LOOPBACK TEST

2 <><><><E&§§§><><><><><><><><><><><><><>(><><><><><><><>(><><><>(><>(>

020516

*CLEAR ALL FLAGS
020516
020516
020522
020522
020526
020526

005067

161374

005067

161406

005067

161406

LET ABORT

:= 40

LET EOMSG .= 40
LET EXPINP := #0

*START THE LINK (INIT DEVICE. DO DDCMP STRT)
020532

LET INIT

:= #0

CLR

ABORT

CLR

EOMSG

CLR

EXPINP

ASSEM3LY ROUTINES

C2D2CB.P11
4070
4071

28;%

020532
020536

020536

MACY11

21-NOV-78 16:33
005067

175112

0064767

172252

30A(1052)

;IF

28;2

4078
4079
4080
4081
6082
4083
4084

4085

4086
4087
4088
4089
4090
4091
6092
4093
4094
2832

020542

020542
020544
020544
020546
020552
020556
020560

020560

020562
020564
020566
020570
020570
020572
020572
020574
020576
020576

SEQ 0082

ERROR DURING START-=UP...INSERT

(MANUF.

CALL

INSERR IN <#0>

000000
176332

ERRHRD 51.MSGS1,AREA4O

104463

000063
003515
004262

CKLOOP

104006

EXIT TST

104032
000460

ENDIF

INIT

JSR

PC,XSTRT

TESTS ONLY,

IF .ERROR THEN

103015
010546
012745
004767
012605

INTO TABLE

CLR

REPORT

BCC

50007%

MOV
MOV
JSR
MOV

RS,-(SP)
#0,-(RS)
PC, INSERR
(SP)+,RS

TRAP

TSERCODE

.WORD
.WORD
.WORD

51
MSGS1
AREA4O

EMT

CSCLP

EMT
.WORD

CSEXIT
L10032-.

MOV

R1,-(SP)

MOV

#LOOP8B ,R1

TST
BEQ

PATTERN
50010%

CLR

SCRTCH

50011%

MOV

#125125,SCRTCH

MOV

SCRTCH, (R1)+

CMP
BNE

R1,#ELOOPB
50012%

50007%:

sFILL MESSAGE AREA WITH 256 BYTES OF SELECTED PATTERN
(020576
020576
020600
020600
020604
020604
020610
020612
020612
020616
020616
020620
020620
020620
020626
020626
020626
020626
020626
020626
020632
020632
020636

4123

4125

E_7

PAGE 82

;IT, LOOP IF ENABLED--EXIT IF NOT

283;
4099
4100
4101
4102
4103
4104
4105
4106
4107
4108
4109
4110
4111
4112
4113
4114
4115
4116
4117
4118
4119
4120
2}5}

11:50

CALL XSTRT

4074

o077

29-DEC-78

PUSH R1

010146
012701

021414

005767
001403

171100

005067

161274

LET R1

IF PATTERN NE #0 THEN
LET SCRTCH

:= #0

ELSE

000403
012767

:= #LOOPB

]
125125

LET SCRTCH

161264

:= #125125

ENDIV

50011%:

REPEAT
016721

161260

020127
001373

022014

LET

(R1)+

:= SCRTCH

50012%:

UNTIL R1 EQ #ELOOPB

JPUT A 1 AT THE END TO ASSURE

020640

50010%:

’

LET R1 := WELOOPB - 41

THAT THE FINAL BYTE

IS NOT NULL

(0)

ASSEMBLY ROUTINES
MACY11
(Z0z2(B.P11
21-NOv-78 16:33

4126
4127
4128

4129

4130
G113

020640
020644
020646
020646

012701

022014

112711

000001

005301

30A(1052)

29-DEC-78

F_
7
PAGE 83

11:50

SEQ 0083

LET

(R1)

:B= M

MOV
DEC

4ELOOPB,R1
R1

MOVB

#1,((RD)

MOV
ADD

#5,R1

mMovB

(R1),LOOSTA

MOV

(SP)+,R1

mMCcvB

#0S0OP,LOOPB

MOvB

#1,LO0PN

SUB
MOV
MOV
MOV
JSR
MOV
MOV

#1%2 RS
R5,-(SP)
#6,-(R5)
#LOOPH ,~(RS)

*GET THE STATION ADDRESS AND INSERT IT IN THE HEADER
012701
062701

002200
000005

111167

000523

’

LET R1 := #PTABLE + #5
LET LOOSTA :B=

(R1)

POP R1

012601

A#PTABLE ,R1

*INSERT LOOP DATA TYPE
020670
020670

112767

000030

000516

’

LET LOOPB :B= #0SOP

*SET MESSAGE NUMBER
020676
020676

112767

000001

000504

LET LOOPN

:B- #1

*COMPUTE AND INSERT HEADER CRC

4160
4161

4163
4165
4166
4167
4168
4169
4170
LGN
4172
L4173
4174
4175
4176
6177
4178
4179
4180
4181

020704
020704
020710
020712
020716
020722
020726
020730

CALL

000002

CRC

IN <#LOOPH.#6> OUT <LCRCH>

000006
021404
176164

000456

PC,CRC

(SP)+ RS
(R5)+,LCRCH

*(OMPUTE AND INSERT DATA (RC
020734
020734
020740
020742
020746
020752
020756
020760

CALL

000002

CRC

IN <#LOOPB.#256.> OUT <LCRCD>
#1%2 RS

RS,={SP)

#256_,~(RS)

000400
021414

#L00P8,
- (RS)

176134

PC,CRC

(SP)+.RS
(RS5)+.LCRCD

001030

ESET UP BUFFER POINTER AND SIZE....SEND MESSAGE
020764
020764
020772
020772
021000
021000

021404

176662

000412

174656

173640

LET XBUFFER

LET XSIZE
CALL

XxM]T

:= #LOCPH

:= #266.

MOV

#LOOXBUF
PH,
FER

MOV

#266. ,XSIZE

JSR

PC,XM]T

MACY11
21-NOV-78 16:33

ASSEMBLY ROUTINES

CzbzCB.P11

4182

G 7
PAGE 84

11:50

29-DEC-78

:1F ERROR OCCURRED...INSERT THE ERROR INTO TABLE

4183
(184
4185
4186
(187
4188
4189
4190
4191
4192
4193
4194
4195
4196
4197
4198
4199
4200

30A(1052)

021
021004
021006
021006
021010
021014
021020
021022
021022
021024
021026
021030
021032
021032
021032
021032

103012

010546
012745
004767
012605

*REPORT

THE ERROR,

’

IF .ERROR THEN

LOOP

ENABLED

SEQ 0084

(MANUF. TCSTS ONLY),

CALL INSERR IN <#0>
000000
176070

ERRHRD 51,MSG51,AREALD

104463

000063
003515
004262

ENDIF

50013$

MOV
MOV
JSR
MOV

RS5,-(SP)
#0,-(RS)

PC,INSERR

(SP)+,R5

TSERCODE

TRAP
.WORD
.WORD
.WORD

51
M5G51

EMT

CSCLPT

- B
JSR
MOV

#1+2 RS
PC,TERIN

AREA4D

50013%:

(KLOOP

104006

BCC

“SEND ACK'S TO TERMINAL UNTIL IT RESPONDS
021034
021034

REPEAT

500148:

“GET RESPONSE
021034
021034
021040
021044

162705

004767
012567

CALL

000002

TERIN OUT

<LCOMP>

172576

000326

(R$)+,LCOMP

:1F ERROR OCCURS...INSERT [N TABLE (MAN. ONLY), REPORT [T, LOOP IF
SENABLED, EXIT TEST IF NCT

021050
021050
021052

’

103012

010546

012605

IF .ERROR THEN
CALL

INSERR IN <#0>

000000
176024

104463

ENDIF
(KLOOP

104006

005767
001026

000272

004767

177054

LCOMP EQ #0 THEN
CALL C'.TREP

50015%

MOV

R5,-(SP)
#0,-(R5)

JSR
MOV

ERRHRD 51,MSG51,AREA4D

000063
003515
004262

BCC

TRAP

PC, INSERR

(SP)+,RS

TSERCODE

.WORD
.WORD
.WORD

MSGS1
AREA4Q

EMT

C$CLPT

TST

L COMP

JSR

PC,OUTREP

50015%:

BNE

50016%

ASSEMBLY ROUTI NES
MACY11
CZbZCB.P11
21-NOV-78 16:33

30A(1052)

29-DEC-78

gwwwr\)r\)_a_;_a_n_a
NOOONNVONS
PO

—

)

d ead

D ad

;};

010546
012745
004767
012605

H
7
PAGE 85

AN ERROR OCCURS...INSERT IN TABLE
ENABLED - EXIT TEST IF NOT

SEQ 0085
(MAN.

ONLY),

REPORT

IT,

LOOP

IF .ERROR THEN

103023

010546
012745
004767
012605

11:50

CALL INSERR [N <#0>
000000
175762

CALL

INSERR IN <#2>

175746

FRRHRD 51,MSG51,ARE
440

CKLOOP

4264

021162

EXIT

104032
000074

TST

ENDIF

021162

021162
021162

ENDIF

50017%

MOV
MOV
JSR
MOV

RS,~(SP)
#0,-(R5)

MOV
MOV
JSR
MOV

000002

104463

B8CC

PC, INSERR
(SP)+,R5

RS,~(SP)

#2,-(RS)

PC, INSERR

(SP)+,R5

T$ERCODE

TRAP
.WORD
.WORD
.WORD

51
MSG51
AREA4O

EMT

C$CLPY

EMT
.WORD

L10032-.

CSEXIT

50017%:
50016%:

*REPEAT LOOP UNTIL TERMINAL SENDS LOOPBACK DATA
4271

021162

021162
021166

005767
001722

000210

’

UNTIL LCOMP NE #C

TST

BEQ

*PROCESS THE LOOPBACK DATA
021170
021170
021174
021174

004767

CALL PROLOP

000067

BGNSEG

104004

JSR

PC ,PROLOP

EMT

($BSEG

CLR

INIT

JSR

PC.XSTRT

‘REINIT THE LINK
4285

021176
021176

021202
021202

005067

174446

004767

171606

’

LET INIT :- #0
CALL X3TRT

:1F_ERROR OCCURS, INSERT ERROR INTO TABLE (MANUF. ONLY), REPORT ERROR,
{LOOP ON REINIT

021206
021206

103020

IF ERROR LOOPING ENABLED...EXIT TEST

[F .ERNOR THEN

IF NO LOOPING

BCC

500208

MACY11
v-78 16:33

ASSEMBLY ROUT INE
(2D2CB.P11
21

30A(1052)

29-DEC-78

11:50

PAGE 86

7
SEQ 0086

CALL INSERR IN <#0>

MOV

200000
175666

CALL

JSR
MOV

INSERR IN <#2>

MOV

000002

175652

JSR
MOV

ERRHRD 51,MSG51,AREA61

TRAP

.WORD

005052

021252

PC,INSERR

(SP)+ RS

RS,=(SP)

#2,-(RS)
PC, INSERR

(SP)+,RS

TSERCODE

51
MSG51

AREA61

500208%:

CKLOOP

104006
4315

-WORD

ENDIF

RS,=-(SP)
#0,-(RS)

ENDSEG

10000%
:

104005

EMT

C$CLPT

EMT

(SESEG

EMT

CSETST

‘END OF TEST
4320
4321

021254
021254
021254

ENDTST

L10032:

104001

Al R

R R

2 2

ROUTINE

TO PRCCESS LOOPBACK DATA

ARl

6332
4333

4334
4335

4336

4338

021256
021256

021260
021260
021262
021262

il i

a2 i

a2 A

ROUTINE PROLOP
FROLOP:

PUSH R1

010146

R1,-(SP)

PUSH R?

010246

R?,=(SP)

PUSH R3

010346

R3,-(SP)

‘R1 = POINTER TO EXPECTED DATA
*R2 - COUNT OF DATA EXPECTED

{R3 = POINTER TO DATA FROM TERMINAL

4349

021274

012701

021414

012702

000200

LET R1

:= #LOOPB

LET R2 := #128.

LET RY := INBUF

#1.00P8B,R1
#128. R2

ASSEMBLY ROUTINES

(2D2(B.P11
4350
4351

021274

MACY11
21-NOV-78 16:33

01¢703

30A(1052)

29-DEC-78

11:50

PAGE 87

7
SEQ 0087

160656

INBUF ,R3

"CHECK DATA BYTE-BY-BYTE...
021300
021300

REPEAT

50002%:

:IF ERROR...INSERT ERROR INTO TABLE (MANUF. ONLY), REPORT ERROR
; (INCLUDING RECEIVED/EXPECTED BYTES),

021300
021300
021302
021304
021304
021310
021310
021314
021314
021316
021322
021326
021330
021330
021332
021334
021336
021340
021340
021342
021342
021344
021344
021346
021346
021350
021352
021352

IFB (R1) NE

121113

001423

011167

163770

011367

163766

010546
012745
004767
012605

(R3)

RETURN WITH ERROR

THEN

LET AS2A := (R")

LET A52B :- (R3)
CALL

INSERR IN <#2>

175562

ERRSOF
T 52,MSG52,AREAS?

104464

000064
003543
005202

POP R3

012603

POP RZ

012602

POP R1

012601

RETURN ERROR

000261
000411

ENDIF

(R3)

500038

MOV

(R1) ,A52A

MOV

(R3) ,A528B

MOV
MOV
JSR
MOV

000002

(R1),

CMPB
BEQ

R5,=(SP)

#2,-(R5)

PC,INSERR

(SP)+,RS

TSERCODE

TRAP
.WORD
.WORD
.WORD

52
MSG52
AREAS?

MOV

(SP)+,R3

MOV

(SP)+ ,R2

MOV

(SP) +,R1

SEC
BR

50001

INC

DEC

INC

TST

R2
50002%

50003%:

“UPDATE COUNT AND POINTFRS
021352
021352
021354
021354
021356
021356

005201
005302

005203

’

LET R1 :- R1 + #1
LET R2 :

RC - M1

LET R3 :- R3 + M

‘REPEAT UNTIL ALL CATA HAS BEEN CHECKED
021360
021360

021364
021366

005202
001346
012603

UNTIL R2 EQ #0
POP R3

POP R?

BNE

(SP)+ ,R3

-y

ASSEMBLY ROUTINES

(ZDz(B.P11

MACY11

21-NOv-78 16:33

06
4407
6408
6609
4410
6611
6412
4413
4414
4415

021366
021370
021370
021372
Q21372
021372
021374
021376

4418
46419
44620
6621
4422

021376
021400
021402
021404
021407

000000
121405
000410
220
000

021411

000

30A(1052)

29-DEC-78

012602

012601

ENDRTN

SEQ 0088

50001s:

000207
;

;LOOPBACK MESSAGE AREA

LCOMP:
LOOPMG:

LOOPH:

O
. +100005
ELOOPB=2-.
.BYTE DLE,.0,201.0

000

LOOPN:

.BYTE O

000

201

021410

4425
4426

021412
021414

000000
000200

LCRCH:
LOOPB:

O
.BLKW

2258

022014

000000

LCRCD:

4430

022016

022014

20000%:

000241

4423

4427

PAGE 88

POP R1

22}9

4424

11:50

LOOSTA:

ELOOPR:

.BYTE

ENDMOD

128,

MOV

(SP)+ ,R2

MOV

(SP) +,R1

cLc
RTS

ASSEMBLY ROUTINES
MACY11
C2DZCB.P1
21-NOV~78 16:33

4431

30A(1052)

29-DEC-78

022016

11:50

PAGE 89

7
SEQ 0089

BGNMOD PTCODE
HARDWARE PARAMETER CODING

022016
022016

BGNHRD

000044
000031
022130
000000

177776

001031
022145
000000
000400

002032

GPRMA

DEVICE,0,0,0,177776,YES

GPRMA

VE(CTOR,Z2,0,0,400,YES

GPRMD

°RIOR,4,0,340,0,7,YES

.WORD L10033~L$HARD/2

022161

000340
000000
000007

GPRMD

002032
022203

177400
000000
000377

STATION,4,0,177400,0,377,YES

GPRMD

003032
022244
007400
000000
000017

003032
022260
000070
000000
000007

.WORD
.WORD
.WORD

PRIOR

T$CODE

340

T$LOLIM
TSHILIM

TSLOLIM
TSHILIM

LINE.6.0,7,0,7,¥ZS

GPRMD

BAUD,6,0,7400,0,17,YES

GPRMC

FLAGZ,6.0.,70,0,7,YES

GPRML

004130
022324

T$CODE

7
TSLOL IM
TSHILIM

T$CODE
BAUD
7400
TSLOL
IM
TSHILIM
T$CODE
FLAGZ
70

IM
TSLOL
TSHILIM

NMODEM,10,177777,YES

T$CODE

NMODEM

177777

ENDHRD

L10033:

022130
055104
042522

T$CODE
VECTOR
T$SLOL
IM
TSHILIM

L INE

000007
000000
000007

022130
022136

.WORD
.WORD
.WORD
.WORD

T$CODE
STATION

022226

4485
4486

T$CODE
DEVICE
TSLOL IM
TSHILIM

177400

003032

022130

.WORD
.WORD
.WORD
.WORD

040440
051523

042104
020072

DEVICE:

.ASCIZ /DI ADDRESS:

ASSEMBLY ROUTINES
MACY11
czbzcB. P11
21~NOv-78 16:33

000
104
052103
?00

4490
(691
4492

0
124
040516
051104
000040

022244
022252

044514
046525
000040
040502
052101

11:50

m 7
PAGE 90

042526
020072

VECTOR:

.ASCIZ /DZ VECTOR:

020132
051120
054524

052502
047511
020072

PRIOR:

.ASCIZ /DZ BUS PRIORITY:

051105
020114
051505

044515
0462101
035123

STATION:.ASCIZ /TERMINAL ADDRESS:

042576
042502

047040
035122

LINE:

LASCIZ /LINE NUMBER:

042125
035105

0510490
000040

BAUD :

.ASCIZ 7BAUD RATE:

4505
4506

BAUD RATE

SELECTION:

TYPE

4507
4508
4509
4510
4511
4512
4513
4514,
455
4516
4517

TO GET

BAUD RATE SELECTION:

TO GET

FLAGZ:

BAUD RATE
THIS RATE

300

.ASCIZ @STOP CODE/CHAR.

ALLOWABLE RESPONSES

5T0P BIT

061440
044103
042514
024040
047504
000040

[E R TR

022310
022316

050117
027505
020056
044124
020105
035051

75
110
134.5
150

=S
R e
NN
NS W= O

TYPE

022260

SEQ 0090

020132
051117

NOWNEHBWN—=O

4493
4494
4495
4496
4497
4498
4499
4500
4501
4502
4503
4504

020123
044522

29-DEC-78

2 STOP BIT

[0 cRNTo NV To R NTo JV, ]

4487
4488
4489

30A(1052)

LENGTH (SEE DOC.): )

4543

4544
4545
4546
6547
6548
4549
4550
4551
4552
4553
4554
4555
4556
4557
4558
4559
4560

022324
022332

051525

020101
046440

020077
022352

04711
05251
04211
00

O~NON—

MACY11
ASSEMBLY ROUTINES
21-NOV-78 16:33
czozeB.P

11:50

30A(1052)

29-DEC-78

020107

NMODEM: .ASCIZ

046114
046505

PAGE 91

SEQ 0091

/USING A NULL MODEM? /

.EVEN

SOF TWARE PARAMETER CODING
BGNSFT

000015

.WORD L10034-L$SOFT/2

GPRMD ALIMIT,0,0,177777,0,77777,YES

000032
022406

.WORD
.WORD
.WORD
.WORD
.WORD

177777
000000

077777

GPRML PATTRN,2,177777,YES

001130

022455
177777

GPRMD SWAIT,4,0,177777,0,77777,YES

002032
022520
177777
000000
077777

047510
054516
044524

ENDSFT

020127
044440

040515
044516

ALIMIT: .ASCIZ /HOW MANY INITIATE TRIES BEFORL ABORT? /

L10034:

T$CODE

ALIMIT

177777

IM
TSLOL
TSHILIM

.WORD
.WORD
.WORD

T$CODE
PATTRN

.WORD
.WORD
.WORD
.WORD
.WORD

T$CODE
SWAIT

177777

177777
TSLOLIM

TSHILIM

EVEN

052122

022606
022612

033457
030064
030440
037451
022612

040440
051105
047506
050117
042040
000040
043040
020122
042523
052123
030060
030461
020055
036440
030061

PATTRN: .ASCIZ /USE ALL ZERO'S FOR LOOPBACK DATA? /

SWAIT:

.ASCIZ QWAIT FACTOR FOR SELFTEST (20000 = 11/70 - 4000 - 11/10)2a

.EVEN
ENDMOD

ASSEMBLY ROUTINES

02(B.P11
4599
4600
4601

MACY11

21-NOV-78 16:33

30A(1052)

29-DEC-78

022612
022612

11:50

PAGE 92

LASTAD
LSLAST::

.REQ DOCTOR.P11[400,1066J

SEQ 0092

.EVEN

ASSEMBLY ROUTINES
MACY11
DOCTOR.P11
17-FEB-78 09:08

4603

4604

053406

053410
053412
053414

000000
000000
000000
000000
053420
000200

30A(1052)

c_8

11:50 PAGE 93
DIAGNOSTIC SUPERVISOR -- LOW CORE SET UP

29-DEC-78

.SBTTL

DIAGNOSTIC SUPERVISOR -- LOW CORE SET UP

WORD
0
.WORD
0
WORD
O
.WORD
O
END.SUPV-.
+2
.END 200

;gT?gE FOR USER POOL POINTER

*CHECKSUM (NOT CURRENTLY USED)

“SIZE OF H.W. PTAB. ALLOCATION

SEQ 0093

ASSEMBLY ROUTINES
MACY11
DOCTOR.P11
17-FEB-78 09:08
A

= 000000

ABOFLA
ABOPAS
ABORT
ABO.FM

ACK
AFSI

ALIMIT
ALLOC
APT.ER
AREAOO
AREAO1
AREAO2
AREAQ3
AREAO4
AREA11
AREA21
AREA22
AREA23
AREA24
AREA26
AREA30
AREA31
AREA4D

AREA4L2
AREA43
AREAS2
AREAGD
AREA61
AREA70
AREA71
ASSEMB=

46044~
4604n*
7668
46044

022406
043556
024546
003700
00376C
003762
004064
004116
004220
004256
004260
004262
004262
004454
004534
004534
004262

4557
46044

G
G
G
G
G
G
G

G
G

004116

004064
004116
005202
004774
005052
005304
005306
000010

027414
027430
027442
027450
027464
027474
004014
004016
004152
004150
005300
005302

= 000002

BAPNT
BASIZE
BAUD
BGN.SU=
BINMSG
BLD.HW

2364
2785

023136 G
023054 G
002116
025416

= 000001
022644 G

AREA4LT

ASAAV
ASAAW
ASAAX
ASAAY
ASAAZ
ASABA
AO2A
A02B
AOLEX
AQ4RC
AS2A
A528

15744
1919+«

002170
002172
022244
022612
042066
030300

G
G
G
G
G

7348
66044

46044
984k
1002#
1007#
10294
10434
10674
10814

10854
10894
10894
11334
11514

11514

10904
10434
10294
10444

12554
12054

12214
12774
12824
673
46044
46044
46044
L604n
46044
46044
1009
1008
1046
1047
1257
1256
19084

2500
789
7904
4467
L6044
46044
4604

30A(1052)
1582+
1935

29-DEC-78
11:50
PAGE 95
CROSS REFERENCE TABLE == USER SYMBOLS
1588
19824

1598~
1990

1606
2039

SEQ 0094

1611«
2063

1627
2081

17894
2096

1806+
21164

2384w
34464

2386w
3459

2388+

2393

1807+«
2154«

2396

1809
2297+

26814

2780«

2781«

4228

4258

2398

24924

2366
2792%

2370+
2793«

2372
2797

2383%
36234

1417«

1723

2575%

4061+

2156

4045

3614

3645

3664

3714

3748

3780

3816

4,088

4196

2396~
2398«
2193«
2201«
4364%
4366+

2211
2203

2259
2205+

2279
22

2455~
2c69

2271

2273

2279

2453~

1955«
2567

15824
2577«

2001
2585

2065
2592

2082
34464

%093
461

23284

2393

19084
23304

1918«
2363+

4574h
2573
2345
2403
2437
2460

2550
2638

3353
2744
3397
2135
2217

2237
2285
4376
4308
674

10184
10194
10574
10564
12734
12744

1924«
2552«
1703+
1705+
45024

1941
2560+«
1918
1929

000054

C$CEFG= 000046

2097+

3108«

3145

3159~

3167

3214~

2074
35334

2191

2257

2359

34454

2132
3394

2160

23274

2860#

3071+

3486

2051
3496

36464

3519+

3860

4158

L6064k
46044
L6040
L6044~
LE04H
46044
46044+

L6044~
46044
46044
46044
L6044
LO604Hx
46044
L6044

4604k
13244
L6044
L604H
L604H
1819

L604n
460644
L6044>
46044
46044
46044
4604k

000020

2096+

1949

6734
6734
2547
3954
6734
6734

6734
6734
6734
6734

4225

Y
— o

CRCTAB
CRLF
CURR.S

19824

5N
rooONPY

Al
[alalalala
Do

CRC

1957«

1935«

L604n
L604n
46044

SEQ 0095

3944

ALY cnd

CALLPC=
CALLPS=
CALLSP=
CALLTC=
CAL.CL
CAL.TI
CHKLUP
CHKREP
CHKSTR
CHKTTY
CHK.MA
CHK.PC
CHK. SW
CHRCNT
CH.FLA
CH.PAS
CLEAR.
CLKACC
CLKBFR
CLKCNT
CLKJUM
CLKRES
CLKSER
CLKSON
CLK.SE
CLR.MA
CNTFLG
CNVT
CODE
COMMAN
COMMTA
CONTCL

SN —
- Lv00
O~
WO

4604n
664
L604H
4604n
1910#
LE04A
L6044
L6044
L6044
L6040
4604k
4L604n
1868

NOONOoNL
O NN
&
[e SV,
]V @]

045712
003651
B$AAB
031702
BSAAF
031614
C
= 000004

BLOCK
B8NO

11:50
PAGE 96
CROSS REFERENCE TABLE -~ USER SYMBOLS

29-DEC-78

NP
— A

DOCTOR.P11

30A(1052)

£y
O ~NWw
oo\
N =)

MACY11
17-FEB~78 09:08

ASSEMBLY ROUTINES

2282
3661

4373

4169

2400
3745

2434
3777

2457
3813

CSCLEA= 000012

($CLPI= 000006
($CVEC= 000036

CSDCLN=
C$00DU=
CSDRPT=
(U
=
CeeDIT=

17-FEB-78 09:08

6734
673N
6734
6734
6734
6734
673n

30A(1052)
1550
3616

F_8

29-DEC-78
11:50 PAGE 97
CROSS REFERENCE TABLE -- USER SYMBOLS

3647

3666

3716

3750

3782

SEQ 0096
3818

4090

4200

4232

4260

6312

2342
3745

2400
3777

oo &~

DOCTOR.P11

MACY11

ASSEMBLY ROUTINES

2457
3954

3978
6734
6734

CBERSF=
CSERSO=
CSESCA=
CSESEG=
CSESUB=
CSETST=
CeEXIT=
COSGMAN=
CSGPHR=
C$GPR]=
CSGTIM=
CSINIT=
CSINLP=
=
CSKWOF
CHKWON=
C$LOOP=

3996

1833
27461

2234
3661

1876
3394
4225

4085

]

CSERHR=

6734

6734
6734
2547

=
CSERDF

4373

4321
3649

3668

318

3752

3784

3820

4092

4262

1040

1055

1077

1083

1087

1117

1142

1188

1213

1036
126

1051

1073

1107

113

1138

1161

1168

1175

1182

2282
3661

2342
371

2400
3745

2434
3777

2457
3813

2547
4085

4193

4225

2635

2741
4255

3469+
2504

3471
3505

WNIAN
[V PN
— N

3829
3618

4315

3477

3478+

3480

3482+

3484+

1449

—

CESMAN]
=
CEMSG =

C$PNTB=
=
(SPNTF
CSPNTS=
CSPNTX=
C$POIN-

1510

2234
3642

($Ql0 =
CSRDBU=
CSREF GCSREQT=
CSRESE=
CSREVI=

2570

1403

3683

34484
3503

013220

3288
2094+
2502

— A\

000027
177776

NN
N
QV

DDSTRY

nuwnn

2985
2799

ASSEMBLY ROUTINES
MACY11
17-FEB-78 09:08
DOCTOR.P IR

042102

L2 4

OVC.FT
036140
Ov$
= L8 4 2 42
DZMSK
002250
DZREG
002254
DZ$
= 000001

o
o
cooo

000000
023144
0002 20
052554
052442
023060

L604Ln

oo
C

022130
015160
002212
022624

4439
2514

L4854

673

674

7994
LH04LN

L6044
7414
460464
L6044
&
ASUA

680
2879

LO604H

037044
037062
041630
041634
041652
041670
041700
177774

000035
000037
000040
022014
020476
020506
023142
031166
053420
000005
022664
002134
052066
025432
027576
036412
035212
036150
022614
036154
036476
035204
022616
002140
015652

042736

000204

26784
2773

3081

723

46044+
46044
L6044

46044
7734
46044
46044

<6044
4604k
4604n
L604n
4604M
L604n
4604n
L604M
46044
7754

2854#

L604n
4604n

11:50
PAGE 98
CROSS REFERENCE TABLE =~ USER SYMBOLS

29-DEC~78

2774

2776x

SEQ 0097

2778~

2783

2795

2884

2984

6421

2908

2947

2959

2961

750

810
2999

1150

3004

1530
3118

2529
3236

2531
3376

4485

2620

2622

2676

740

758

797

819

1203

1304

1503

2539

2630

2846

4459

4495

1155

2530

2621

2727

3377

2620

2622

2676

2879

2908

797

800
2943

810
2947

1150
2959

2961

1304

1489
2999

1530
3376

2494«

3496+

3498+

3500+

3502

3504

680
2531

(21T

DE (MSG
DEVICE
DEVINI
DEVPR]
DEV.CO
DIAGMC=
DIAG.T
OLE
=
OPDVD
DPMUL
DUNIT.
DUPS
=

30A(1052)

740

723

745

4465

4485

4499

4502

3480+

3450~

3492«

3493«

4126
40344
L0404

4420

44274

972

3029

4045

1596+

4063~

1609+

2927

1619+

3023

L4065+

ASSEMBLY ROUTINES
MACY11
DOCTOR.P11
17-FEB-78 09:08
FLAGS
FLAGS1
FLAGTA
FLAGZ
FLAG.I
FLA.SE
FLG.MA
FLLCNT
FORM.T
FORMOO
FORMOZ2
FORMO4
FORM23
FORM26
FORM30
FORMLO
FORMS2
FORMGO

FORM61
FREE

FRM30A
FRM308
FRM30C
FSAS
=
FS$
=
FUNS
FSAU
=
F$BGN =

022656 G
022660 G
046110
022260
027644
046056
027604
015646
036506
003726
004020
004154
004356
004502
004666
004376
005234
005016

005144
044014

004707
004731
004752
wewrwr |
000001
swexen
000015
000040

F$CLEA= 000007
FEDOU
= 000016
FSEND - 000041

F $HARDFeHW
FSINIT
FEJMP FEMOD

000004
000013
000006
000050
000000

FEMSG

000011

F$PWR - 000017
FSRPT - 000012
F$SEG = 000003
F$SOF
T= 000005
F$SRV = 000010
F$SUB = 000002
F$SW
= 000014
FSTEST- 000001

4604ar
4604n
46044
4473
4604
4604n
46044
2816+
4604M
986
1010
1048
1104
1135
1158
1110
1258
1206
1222
4L604n

1165
1172

30A(1052)

H 8
29-DEC-78
11:50
PAGE 99
CROSS REFERENCE TABLE -- USER SYMBOLS

45274

28524

994#
10204
1058¢
11194
11634
11894
11224
12664
12144

2921

12484

11924
11964

1199«
745
680
4050
1334
680

zggg

3784

6734
6734
6734

1527
1339
680

1549
1340
724

1143
1342
3718
4432

2929+

1033
1070
1240

1179
723
6740
744
6734
6734

1133
1339

1151
1347

1189
1511
3752
4484

4430
723
1335
724

1205
1527

1214
1551
3784
4574

744

725

1221
1552

3820

725

3571

4050

984

1002

1255
1553

1007

1029

1294
3566

1043

1295
3567

1067

1323
3577

1081

3828

1277
2880

4057

1282
2980

4092

4262

4280

4320

4431

1324
3618

994

1005

1018

1041

1056

1078

1084

1085

1329
3649

4432

1088

1089

1334
3668

4436

1118

1248
1552
3820
4599

1266
1553
3828

1280
2971
3830

1285
3259
4057

1294
3566
4092

1295
3567
4262

1323
3577
4316

1324
3618
4320

1332
3649
4322

1337
3668
4463

3668
725

3718
1294

3752
1295

3784
1323

3820
1324

4092
1552

4262
1553

3566

3567

4431

1016

1029

1039

1043

1054

1067

1076

6734
6734
6734
6734
42;3#

4436
1299
1347
3618
4%38

4482
1306
1509
3649
724

6734

984

1082
1255

992

1085
1264

1002

1003

1329
4280
45564
2880

1330
6314
4572
2969

2980

3257

1308
3577

1313
3828

4057

4320

1081
1246
6734
6734
6734
6738
6734
6734
6734
6734

SEQ 0098

1086
1277

1089
1278

1116

1133
1283

1141

1191

1187

1205

1212

1221

ASSEMBLY ROUTINES
MACY11
DOC TOR.P1
17-FEB-78 09:08

GARBAG
GETCHR
GETCMN
GEYOB
GE TPAR
GETSWI
GET.TW

043442
042146
045532
013222
037224
044526

4L604n
4604n
4604n
171
L6044

30A(1052)

1758

29-DEC-78

11:50

I
8
PAGE 100

CROSS REFERENCE TABLE =-- USER SYMBOLS

SEQ 0099

19074

46044

GLOB
GSUB

GSEXCP=
GBHILI=
g$LOLI=

644643

4438
4438
4438
4448
4478

4562

4448

4454

4460

222%

4448

4454

4460

4466

44606

4472
4472

4454

4460

4466

4472

6556

4566

4478
4438

4562
4443

4448

4454

4460

4466

4472

4556

4566

4438

4443

4448

4456

4460

4466

4472

4478

2418

2425

2778

2907

3012

3155

3471

002156

2567
2190

2198

2249+

2256

2264

2299

002126
023070
015650
042116
002164

2837«

28534

3581«

3676+

4070«

4285+

1949
1943

1953«
1951~

INPUTA
INSERR

017110

22;8

3708

3742

3769

3774

3810

INS1Z
INTFOR

002160
036342

2251«

2255

<265

2339

3328+

4478
4478

£366

4556

6562

4566

2358

2363

2383

2420

3324+

4082

4190

6222

6247

4252

[aIalalala]

6562
4562

ASSEMBLY ROUTINES
MACY11
17-FEB~78 09:08
DOCTOR.P11

INVAL.

027150

INVINT
INV.SW
IN.SUF
I%AU =
ISCLN =
IOU
=
I$HRD =
ISINIT=
ISMOD =

036200
024202
031152
000041
000041
000041
000041
000041
000041

30A(1052)

I1SMSG = 000041

=
=
=
=
=
=
=

SEQ 0100

L604n
7554
4604n

INVDAT= 100000

ISPWR
I$RPT
I$SEG
I$SFT
I$SRV
1$SUB
I$TST

29-DEC-78
11:50 PAGE 101
CROSS REFERENCE TABLE =-- USER SYMBOLS

000041
000041
000041
000041
000041
000041
000041

7254

12944

12954

13234

13244

15524

15534

35664

35674

46314

10024
1088+
12774

10054
10894
1280#

10074
11184
12824

1018#
11334
12854

10294
11434

10414
11514

10434
11894

10564
12054

10674
12144

10784
12214

42804

43164

29804

32594

3649

3668

3718

3752

3784

3820

38284

38304

4057#

4092

1391+

1607+

1448

1457+

1459

1462+

JSIMP = 000167
KBPTR
022722

021376
022014
021412
022226
000017
023140
002214
027600
000377
002136
042110
021414
021404
(021400
021410
021411
022720
022716
(027242
027236
027232
050204
035210
002036
011724
002074
002106
012322

[ala)

LCOMP
LCRCD
LCRCH
LINE
LINEMK=
LINE.F
LINMSK
LOAD.F
LOBYTE=
LOGDEV
LOGMSG
LOOPB
LOOPH
LOOPMG
LOOPN
LOOSTA
LPBFR
LPCNTR
LPT.AD
LPT.RE
LSI.RE
LUP
LUP.AD
LSAPT
LSAU
LSAUT
L$CCP
LSCLEA

022724
004254
004252

[Aalalala]

KBUF
KEX
KRC

13344
15274

6272

"4418%

1228

1386+

1388

4168
44214

4346

44264

ASSEMBLY ROUTINES
MACY11
DOCTOR. P11
17-FEB-78 09:08

L$CO

[alalalalalalalalalalalalalalalalalalalalalalalalalalalalalalalalalalalalalalaYala)

LS$OEPO
L$DESC
LS$DEVP
LSDISP
LSDR
LSDRCT
LSORS
LSDRST
LSOTP
L$DU
L$OUT
LSDVTY
LSEF
LSEFLG
LSEXPT
LSEXP2
LSEXP3
LSHARD
LSHPCP
LSHPTP
LSHW
LSICP
LSINIT
LSLADP
LSLAST
LSMREV
L SNAME
LSREPP
LSREV
LSRPT
LSSOFT
L$SPC
LS$SPCP
LSSPTP
L$STA
LSSW
LSTIML
LSTIMU
LSTIM
L$TSTI
LEUNIT
L.CLK.

S, NN

88388 :

) o) —) ——
—d
b
e
—

re~-rrrr

L 10000
L 10001
L10002
L10003
L 10004
0005

005014
005142

30A(1052)

K 8
29-DEC-78
11:50 PAGE 102
CROSS REFERENCE TABLE == USER SYMBOLS

6994
6904
2204
7134
702
715
7154

13204

8164

8184
13354

8114

4436

44374

1299

13004

13474

46014

13294

4554

45554

1308

13094

1388

1459

SEQ 0101

ASSEMBLY ROUTINES

DOCTOR.P11

MACY11
17-FEB~78 09:08

L10015
L10016
L10017
L10020
L10021
L1092¢
L10023
L10024
L10025
L10026
L10027
L10030
L10031
L10032
L10033
L10034

29-DEC-78
11:50 PAGE 103
CROSS REFERENCE TABLE =-- USER SYMBOLS

SEQ 0102

12644

3650

4263

L4834
65734

MAJ. IN
MAJ.LO
MAJ.US
MANS
=
MAN.T!

MAP16
MASCLR= 000020
MASK .8

.W
MASK
MCoMP
MDMSG
MDMSG1
MEM.S]
MIN. IN

3669
43204

3719

3753

1463

760

775
1472

1511

2699

2703

3733«

3757

3794

40294

1629+

1657

1636+

1638+

2024+

2026

3847

MIN.US

MSGAP
MSGN
MSGNO
MSG.AD
MSG.TY

1835

003210

3785

3821

38284

1325

3571

[a1nY~]

40304
40364

MODR
MSCNEN= 000040
MSG

MSGOO
MSGO1
MSGO2
MSGO3
MSGO4
MSGO5
MSG10
MSG11
MSG12
MSG20
MSG21
MSG22
MSG23
MSG24
MSG25
MSG26

30A(1052)

1644

1652+

1363

4050

1387
4430

1392
4571

1408
4597

ASSEMBLY ROUTINES
MACY11
17-FEB-78 09:08
DOCTOR.P11

MSG30
MSG31
MSG32
MSG40
MSG4
MSG42

003251

30A(1052)

m 8
29-DEC-78
11:50 PAGE 104
CROSS REFERENCE TABLE -- USER SYMBOLS

SEQ 0103

9174
9224
9294

MSG43

MSG4S
MSG50

3663

4227

4257

4307

3747

3779

3815

3005+«

3014

3117«

3127«

3242+

3304%

1732

1759+

1631«
4237
1721

1695

1697

3586+

3587«

3589«

1731

1760+

MSG51
MSGS2
MSG70
MSG71
MSG72

3713

2718

45444

28574

4144

1712+
3878+

38414
1713
679K
6794
6794
6794
6794
6794
6794

1627+

PARITY=
PARSE
S
PAR.LA
PASCNT
PASS.
C
022626
PATTER
011710

1544+
4104

717
714

694

718

696
723

3693

3694«

3696+«

ASSEMBLY ROUTINES

DOCTOR.P11

MACY11

17-FEB~78 09:08

PATTRN
PRINTC
PRINTF
PRIOR
PRNTST
PROBUF
PROLOP
PRO.CM
PTABLE

022455
043416
046724
022161
043306
013350
021256
027556
002200

4563
L604n
L604H
4449
L604Ln
1733
(278
L6044
4?22’

PTAB.S
PTCODE
PTEND

023076 G
022016 G
002212

4604LMx
L4328
7984

022702 G

L6044«

PUTCHR
PWR.FA
PWR.FL

042122
053246 G

PWR.MS
(053374
PWR.SA* 053370
PWR.UP
053,72

P.CLK.

027216

RBQUE
015710
RBQUEB 015716
RBQUET
015712
RCVADD
015640
RCVBUF
= 000002
RCVCSR= 000000
RCVE
016630
RDONE
015156
READ.P
050306 G
REGBAC
052776 G
REGSAV 052762 G
RENABL= 010000
REP
=
3
REPA
020513
REPCRC
020514
REPM
020506
REPN
020511
REQN.P
022666 G
REQN.T
027560
REXIT
016626
RE.SET
024350
RINT
016066 G
RMSGNO 002176
RQUE
015672
RQUEB
RQUET
RQUEUE
RSTACK

RTEMPT

015706
015674
015670
052236 G

015662

RTEMP2 015664
RXINTE= 000100
RSSTCK
002110

SAVEDO- 024546
SCRTCH 002112

L6044
4604

4604n
46044
L604mx
L604H
1426+
1438

1426
2808+
7464
7454
1845
1134
L604m
4604
L604H
7564
7364
3851«
3862«
3859
3849«
L4604
L6064
3008
LO604H
2784
7924
1422
3205«

30A(1052)

29-DEC-78

11:50

PAGE

105

CROSS REFERENCE TABLE -- USER SYMBOLS

SEQ 0104

45814
4491a

19814
4333
1477

1493

1533

1806

2031

2413

2528

2619

2694

2758

2780

1487

1428
28754
28734
2809+
1164
1157
2125
2504«

L0484
40494
3867
L0464

2872#¢
3046
3049
238494
2534
1537«
32754
26604

3036
3099
3102
2995
2625«
2532«

3044

3046

3049

3089

3097+

3099

3102+

3372
2731«
2623*

2767
2699*

3281«
2703

2729*

2824~

2826*

2828+

2946+

3379«

3003«

3235«

3297

3318

3342x%

3355«

2175«
3038«

2302*
3055~

3849
3057«

3059+«

3061 «

3064

3091«

3106+

3192«

3194»

3207
3064
3324

3332
3210
3326%

3335
3328

3330«

3332

3335+«

3038

3040~

3042~

3089

3091

3093

3095~

3140

3153

3157«

3176

1589

1591«

1593

1644

L0454

32564
29804
1688~
1424

3207

2019
28654
3210x

28714
1422
1424 %
LE04LH

3061
28664
2864#

%?gg#

gggg*

28594
7534
7634

3053+
2828
1369

3153s

3155s

3184%

3192

3200%

3228+

3232

1031

1430«

1434

1436+

1450«

"481

1485«

1588

L6044
764k

2773

4112+

— 8
Q0 —

»
»

N —

g
b
—

4107+

1929

2414

2039+
2431

2040+
2453

2050
2709~

2063+«
2711«

1367
1864

022203
002122
020276
042776

44954

39004
973
1801
1821+
1809+

000006
003670
003676
003675
027562
011712
024414
027566

2231

3851

681

689

3687

2134
2285
2457
2635
2786

1226
1261
1356
1747

2135
2342
2458
2636
2787

1168
1183
1239
1262
1357
1833

2214
2343
2459
437
2788

2634

VNN A0 O — NINVCORI~INO
&

1225
1260
1341
1746

1167
1182

1106

986

AIOOVNINIIN
— =
O
g\luu\
00 ~NWN 00 N2 RIVN)I
O~ = (0RS

1166
181

1105

NINUMNIND

1138

1136

818

WA~

1137

1104

816

NNOO

993
1034
1068

o
NRB
AN 22200
WNWVIROWN
= O~ —=

990
1033
1055

709
722

N-J—l—l—l—‘-d—l—l—l—d—l

989
1032
1052

708
721

ogo
—

683
696
OO " NOWNIO
W
NN

682
695

NN
Y= =
S NN ~

681
694

b
ek bbb

4432

SNNWVESNOOSHMINNIN)
= =
OO(=
O HNOWNS
OB ONNN=
S purd
NNV OMNIWNE0000
£SO S ON A0 -

3567

POMNONIMNON)
e
e
e D md b

md
D e
b
e
d
b od od

W)=
=
2 OO
WANNL
OO ONANO W W
OO
OWMININ— —

) w—h
) —) ——)
—d
b
e
—

703
718
1043
1300

2980

707
720

WO
=2 =2 OO0O
NN
JON (NOO N
= ONO
O

690

34\0\1\./'—'\:4\—:
OINODINOD
=2 NO O

032104
000001

702
717
1029
1295

00—
\O =3
NN

701
716
1007
1282

NSNS0
S NN
= 2 2 OO0

025450
023056 G
023230 G
024166

SvVCGBL= 000000

SVCHAN
SVCINS

1700

2413«

[o
«Jo
X ]

3079

1698«

2377
3687

NS HOWNO

SUPERV
SUPFLA
SUPV.T
SUP.PR

1996

1697

2372+
3685+

PONUNININD)
= —ad eed —d e ceed e ed ed od md

STRT
=
STRTB
STRTC
STRTSA
STRT.T
STWAIT
ST.SET
SUNIT.

2368
3678+

SEQ 0105

PONVPNONIND)
= = ) d —d b and ek —d k)
NNWNESNOOSA
NN == 2 OO o
NN
O = \NOQ0 SO NN =YW Q
NNOOOO
NNINI NN NO =N O

STATIO
STIME
STINPT
STRCHR

000201
027504
000400
011670
000007
051764 G

PONIURUNINY
= = d b eod b b od d ek D
N NVHANICONNININ)
= = 2 OOo
NS 2NN
O NSO NN o
N =NV
VTNOO =N =N
OO oo

SOH
=
SPEC.U
SPV.SE
SSTACK
STACK =
STARTC

027770
053074 G

46044
L4604
4604H
46044
7334
46040+

1649

2366+
2724

PUNIPININD
—b b b d b ed b md 2 =2

SET.MA
SHIFT

044244
023112 G

1647+

11:50 PAGE 106
CROSS REFERENCE TABLE =~-- USER SYMBOLS

29-DEC-78

NOEWNWFOOOWNNIN
=t 2 O
NOWON 8 2 NTOON 0O ONNO o
N
O SN =20n000
0N O

SEARCH
SEGSTA

2073
2713

30A(1052)

Ho—
_AJ\\O

ASSEMBLY ROUTINES
MACY11
17-FEB-78 09:08
DOCTOR.P11

4088

4232
4312

TEMP

011670 G
005310
002114

TEMP2

004354

TABLE

TEMBUF

TERIN
013642
TERM]
050274
TERMLI
TERMTA
TEROUT
TESTS
TEST.M
TIMER
TIMFLG
TIMLIM
TIM.CO
TIM.OP
TMPBUF
TO0.MA
ISTS
=

T1ST.AB
IST.T0
024230
TXINTE= 040000

TYPE
TYPEC
TYPEPC
TYPFLA

013012
042434
036330
045752

4255
4315

992
1264

1003
1278
4320

2962+
10174
12844

10834
13364

10874

L484H

10404
1307#
45744

2042~
2421*

049
2423+

2053
2425+

2072

2076+

2084

3732

4211

1230

1233~

1237+

1097«

1101«

1103

3698
3280~

3290

3295

2309

3295

3309

2156+

2159

1703

1319

1320

2826

2946
1867

1864+

3316x

3368+

¥R

13414

N —

10044
12794
43218

—

S$LSYM=

3394
3644

4090

4445
4461
4476
4564

3021
2390

SEQ 0106

2985
3611
3650
3714
3779
3954

4444
4460
4475
4563

4314
4057

SVCTST= 177777
SWAIT
022520
SWCHAN
027376
SWITCH
SW.ADR
SW.PTA
SYNC
=
SYNCNT
SYS.FT

11:50 PAGE 107
CROSS REFERENCE TABLE =-- USER SYMBOLS

2984
3397
3649
3713
3778
3829

Sv(suB= 177777
SVCTAG= 000001

29-DE(C-78

oON

30A(1052)

—_——

ASSEMBLY ROUTINES
MACY11
17-FEB-78 09:08
DOCTOR.P11

11884

29704

2088

ASSEMBLY ROUTINES

DOCTOR.P11
TYPLIN
TYPNUM

TYPSTR
TYP.ER

042332
041714

042352
036160
TY.UNI
031172
T$ARGC= 000003

T$CODE= 002032
T$ERCO= 0000¢4
TSERRN= 000064
T$EXCP= 000000
T$FLAG= 000040
TSHILI= 077777

T$LOLI= 000000
T$LSYM= 010000
TSNEST= 177777

TSNSKO= 000000
TSNSK1~ 000005

TENSK2= 000003
T$SAVL= 177777
T$SEGL= 177777

T$SEKO= 010000
T$SUBN= 000000
TS$TAGL= 177777

T$TAGN= 010035
TSTEMP

000000

MACY11

17-FEB-78 09:08

29-DEC-78

11:50

PAGE

108

CROSS REFERENCE TABLE =-- USER SYMBOLS

SEQ 0107

4604#
46044

46044
46044
4604n
6814

1052
17214
GA3BA
17654

25704
39784
6734

6824
10684
1176
LLL3H
18334

26354
39964
17664

6834
1074
11784
LLLBE
18524

27414
LOBSA
18344

25484

25714

26364

La38x
4477
36184
4e384

L4402
45564
36494
444

G443
4561
36684
44438

45564
993
1265

4559
1004
1279

39554

4476
44388
4475
6734
1247

3829

6734
1056#

12054
13064
15274
6280#
4?38#
9844

39794

45568
4440

6321

6804
10674

39978

4560
44434

4484

724N
10764

684
11034
1183
LL5GM
18764

33504
41934
18534

27424

LOBOH
4447
45664
37184
4446

L5664
6445
45664
1017
1284

4574

12124
13084
15494
L3148
724

12214
13134
15524
L3204
7254

7254
10814
12464
13234
15534
L431M
1294

6854
1108
12064
LLE0F
21308

6864
11104
1210
LAOOH
22148

18774

21334

33944
L2254
33514

4194

44488
4571
37524
L4484

4570
44484
4569
1040
1307

9854
1114
12224
LL72M
2234M

990
11344
1226
LL7BE
2282M

1008
1139
12394
45568
23424

1014
11574
1244
45620
24008

10314
1162
12564
45664
2434k

2457

25474

2215

22354

22834

23434

2401

24354

24584

4453

42564

44548

L3064
4459

4374M

44604

4465

L4664

4471

44724

3784
4452

38204
44540

40924
4458

42624
LLO60K

4464

L4668

4470

44724

445

44548

4457

44608

4463

44668

4469

4L724

1055
1314

1077
1331

1083
1336

1087
1341

1117
1510

1142
1550

1188
2970

1213
3258

10024
10864

10074
11164

12824
13354
35664
4S7M
15534

10164
1133#

12834
13394
35674
4599
3566

10294
11414
1204W
13404
35774

1039#
11514
12954
13474
38284

1043#
1187#

12994
15094
4LOS7#

35674

4431

44324

36114
42554

36424
43054

33954

36124

L2268

36614
43734
36434

9844
10824
12554
13264
28804
4432K
12954

9924
10854
12644
13294
29694
L4336
1323

1277#
13304
29804
L4B2H
132644

10034
1089#
12784
13344
32574
LSS4A
1552

3711a

36624

37454
37124

37774
37464

1037
1164#

169

1262

38134
3778¢

3954a

38144

1082
12554
1335

992

1002#

1003

1007#

1016

10294

1039

106434

1054

10674

1076

10814

10854
1264
13394

1086
12778
1340

1089%
1278
1347#

1116
12824
1509

11334
1283
Zg;g#

1141
12994
1549

11514
1306
28804

1187
13084
2969

12054
1313
29804

1212
13294
3257

12214
1330
35774

1246
13344
3828

42804
6734
6734

4314
42804
4314
35774

43148

4316

9844
12554
4057K

10024
12774

1007#
12824

10294
12994

10434
13084

10674
13294

10814
13344

10854
13394

1089#
134784

1133#
15274

11514
28804

12054
29804

10164
128384
15524

10394
129644

10544
13064
32574

10764
13134
35664

10824
13204

10864
13214

11164
1322#

11414
13234

11874
13304

12124
13354
3669

42804
6734
6734

6734
12214
35774

7244
12464
136404

37184
L3164

TS$TEST- 000002
T$TSTM= 177777

30A(1052)

L5624
6734
6734
1087

9924
12644
15094

3719
L3204

45668
35778
989
1107

40574

44368
10034
12784
15494

37524
4431H

45728
40574
993
1113

45544

29694

3618%

3619

3649%

3650

36684

3753
L43BA

37848
L4L3H

3785
LLLBA

38204
44SLK

3821
LL60R

38284
Q466K

40924
44728

4093
LLTBN

42628
LLBIN

4263
45S6a

1004
1117

013
1138

1017
1142

1036
1161

1040
1168

1051
1175

1055
1182

1073
1188

1077
1209

1083
1213

LS99

ASSEMBLY ROUTINES
MACY11
17-FEB-78 09:08
DOCTOR.P11

30A(1052)

1247
1550

SEQ 0108

1261
1745

1403
2400

2547
3350
3716
3978
4305

2570
3394
3718
3996
4312

1002#
1086

1003
10894

29804

3257

3649

3668

3718

3752

3784

3820

1818
2608

28554
26594

2905
2940~

2911+

3867«

4176%

24894
28484
2538«

3871
2909+
2629«

2937
2735
2713%x
3869+

2960+

40574

000001
010023

2985
3668
3820

4260

T$TSTS
T$SAU
TSSCLE
T$SOU

11:50 PAGE 109
CROSS REFERENCE TABLE -- USER SYMBOLS

29-DE(C-78

TSSHW
T$SINI=
T$SMSG= 010017

12774

027616
022145
012232
037100
015654
015154
052122
052110
031632
027142
031314
025404
031406
024606
021452
015720
014644
015636
000006
000004
015656
013014

XTIMST

050774
051620
051016

1054
12054

1278

3828

40574

2944

3383+

/884
1801+

2602

1535«

2536w

4072

L4287

28564

2899

3385
2733w

4178~

2822+

4092

1076
12214

10814
1246

4262

4320

ASSEMBLY ROUTINES
MACY11
DOCTOR.P11
17~FEB-78 09:08
XXOP.D
027162
XSALWA= 000000
X$FALS= 000040
X$OFF
S= 000400
X$TRUE= 000020
$BONLE= 177777

$BREG
027656
$ENDAD
052074 G
$ERFLG= 000400

30A(1052)

F
9
29-DEC-78
11:50
PAGE 110
CROSS REFERENCE TABLE =-- USER SYMBOLS

SEQ 0109

L6044
6734
6734
6734
o73#
6744

L6048
4604n
67644
12374
1616
14344
1478
1499
15824
1€194

16454
16974
17514

18374
19244

19554

10924

1093

10974

1648

16524

1653

1238
14174
1435
14814
15004 .
1583
1620
16984
17574

18394
1925
1956

13674
1418
14364
1482
1501
15884
16274
1699
17994

18454
19294

19574

1098

11014

1102

1368
164220
1437
14834
15024
1589%
1628

13694
1423
164464
1484
1503
1592
16294

1370
16244
1447
14854
15334
15964
1630

13864
1425
164574
1486
1534
1597
16314

17004
1800

1701
18014

17034
1802

1704
18064

18564
19304
1958

16774
18584
1931

19904

16814
1864w
19354
19914

16834
1865
1936

1992

11554

1156

12284

1229

16884

1689

1387
16264
1458
14934
15354
1598
1632

13914
1427
14628
14944
1536
1599
16364

1392
14284
1463
1495
15374
16094
1637

17054
18074

1706
1808

17104
18094

16864

1687

18664
19494

18804
1950

1997

2005#
2027
2059
2088+
21564

2006
20314
20634
2089
2157

20074
20324
2064
20934
2158¢

2008
2033
20654
20944
21674

20124
20344
2066
2095
21654

2013
2035
20704
20 6N
21724

20144
20394
20814
20974
21734

2015
20404
20824
2098
2174

20194
2041
2083
21254
21754

28144
2838
29294

2815
2905#
2930

28164
2906
29374

2817
29074
29384

28224
2908
2939

2823
29094
29404

28244
2910
2941

2825
29114
29448

28264
2912
2945

18824
19514

20014

12334

1234

164074
1429
14664
14964
1538
1610
16384

1408
16304
14667
1497
15444
16114
1639

14154
1431
14774
14984
1545
1612
164464

17294
1810

17384
18154

17494
1826+

20034

2004

28374
2928
2961

1918¢
1952
2002

16954

19194
19534

2020
20424
20844
21424
2176

20244

2085

2025
20474
20864
21544
21984

2827
29134
29464

28284
2914
2947

29274

2144K
21874

1696

1920
1954

20264
20584
2087
2155
2199

ASSEMBLY ROUTINES

3487
35024
35874
3686

34884
3506
3588
36934

3489
35074
35894
36944

34904
3508
3590
3695

340
35094
35940
36964

34924
3510
36064
3697

3495
35114
36264
36984

34964
3515
36374
37064

3497
35194
36764
37314

34984
3520
3677
37404

3499
3 8
36784
3;2%‘

35004

3501

3679
37674

36854
37724

$F SAND- 000310

6744

1096

1232

1390

1461

1595

1608

1651

1676

1723

1943

2153

586?

$F $BAD= 000401

6744

1092

1096

1097

1101

$F $BLA= 000170
$FSCAS- 000150
$FSDEC= 000220

6740
674n
6744

1725

1945

3468

1093

1094

$F$D00 - 000340
$FSFAL
000405
$F $GO0- 000400

17-FEB-78 09:08

6748
674n
6744

1233
1391

1426

1092

1234
1392

1427

11:50

PAGE

111

30A(1052)

DOCTOR.P11

29-DEC-78

MACY11

CROSS REFERENCE TABLE -- USER SYMBOLS

1237
1405

1428

1238
1407

1429

1097

1362
*/08

1430

SEQ 0110

1098

1101

1102

1155

1156

1228

1229

1230

1367
1415

1368
1416

1369
1417

1370
1418

1384
1422

1386
1423

1387
1424

1388
1425

143

‘434

1435

1436

1437

1446

1447

1455

ASSEMBLY ROUTINES

DOCTOR.P11

MACY11

30A(1052)

1457
1485

1458
1486

1628
1652

1629
1653

17-FEB-78 09:08

1533
1593

29-DEC-78

SEQ 0111

1466
1496

1467
1497

1477
1498

1478
1499

1481
1500

1482
1501

1483
1502

1484
1503

1630
1674

1631
1677

1632
1679

1636
1686

1637
1687

1638
1688

1639
1689

1644
1695

1645
1696

1648
1697

1649
1698

1845

1957

1958

2008
2033
2065
2094
2163
2204
2267
2301
2371
2397
2423
2504
2537
2608
2694
2728
2762
2779
2809
2829

1463
1495

1701
1800

2007
2032
2064
2093
2158
2203
2266
2300
2370
2396
2422
2503
2536
2592
2630
2727
2761
2778
2808
2828

112

1462
1694

1700
1799
1850
1935

1459
1493

1535
1597

1931

PAGE

CROSS REFERENCE TABLE == USER SYMBOLS

1534
1596

1699
1757

11:50

1864

1536
1598
1703
1801

1704
1802

1865

1866

1991

1992

1936

1949

2012
2034
2066
2095
2172
2205
2268
2302
2372
2398
2424
2505
2538
2619
2695
2729
2763
2780
2810
2837

2013
2035
2070
2096
2173
2206
2269
2303
2373
2399
2425
2514
2539
2620
2699
2730
2764
2781
2814
2838

1990

1537
1599

1538
1606

1705
1806
1874

1941

1949

2014
2039
2081
2097
2174
2211
2270
2339
2377
2413
2426
2519
2552
2621
2700
2731
2765
2782
2815
2890

2015
2040
2082
2098
2175
2231
2271
2355
2383
2414
2431
2528
2553
2622
2709
2732
2766
2790
2816
2899

1996

1544
1609
1706
1807

1545
1610

1582
1611

1918

1710
1808
1919

1720
1809
1920

1997

2001

2002

1950

2019
2041
2083
2125
2176
2249
2272
2363
2384
2615
2453
2529
2560
2623
2710
2733
2767
2791
2817
2905

1951

2020
2042
2084
2130
2187
2250
2273
2364
2385
2416
2454
2530
2561
2624
2711
2734
2768
2792
2822
2906

1952

2024
2043
2085
2151
2198
2251
2274
2365
2386
2417
2455
2331
2567
2625
2712
2735
2773
2793
2823
2907

1583
1612

1721
1810

1588
1619

1589
1620

1924

1729
1815
1925

1738
1826

2003

004

2005

1953

2025
2047
2086
2154
2199
2252
2279
2366
2387
2418
2456
2532
2575
2626
2713
2736
2774
2794
2824
2908

1954

2026
2058
2087
2155
2253
2297
2367
2388
2419
2500
2533
2576
2627
2714
2758
2775
2805
2825
909

1929
1955

2027
2059
2088
2156
2201
2264
2298
2368
2389
2420
2501
2534
2577
2628
2718
2759
2776
2806
2826
2910

1592
1627
1743
1831
1930
1956

2006

2031
2063
2089
2157
2202
2265
2299
2369
2393
2421
2502
2535
2578
2629
2724
2760
2777
2807
2827
2911

)

——d

) -

——d

b ol

[ASTANIe
NP ¥ e No P

)

d ad

- NN

8&‘0\1"\)‘0'\)
WON=0

O
S BN

88 w\lg
gf\) N

N
U G
G
Y

NCOONONON NN
N
£ NOO00NO
WO WVN 0O\
= ONNO
NS NNV

—

SRS OBV
WH NSO

PON) ed e b ed D e md md e e —d =D =
OOVVONAO
NN
D (N
WN—=O NAIO WO £~ NogoWNn

VIO WIN O INNNON
NO N

1464

1230

6179
4285
4364

4361

4178
4278

NGO NOOMNANAN SNy —
WOOWNN\OOHMNNO

11:50
PAGE 113
CROSS REFERENCE TABLE ~-- USER SYMBOLS

29-DEC-78

—

[0 Yo Yo Yo XV,1V, ¥ o ¥ NV o)
OV
20O NW—ONO
NNV
WNO
NN N

—d

—

1094
1455

NSO
— 000 NW—=WO

6177
4250
6351

6165
4243
4349
4396

—

000210
000200
000160
000403

$FSINC=
$F$L00=
$F SNAM=
$FENO -

674

1679

1409

= 000110

—

$F$IF
6154
4237
4348
6395

30A(1052)

OONNE
SN0
~ BNOONN—NO
— W00 N =N W

ASSEMBLY ROUTINES
MACY11
17-FEB-78 09:08
DOCTOR.P11

9
SEQ 0112

4180
4286
4365

4234
4347
4394

1371
1600
1831

1405

ASSEMBLY ROUTINES

DOCTOR.P11

3064
3098
3141

3065
3099
3145

3071
3102
3153

3072
3103
3154

3089
3106
3155

3090
3107
156

3091
3108
3157

3092
3109
%}gg

3093
3117
3159

3094
3118
3160

3095
3127
3167

3096
3128
3176

3235
3318
3343
3382

3236
3324
3355
3383

3242
3325
3356
3384

3243
3326
3359
3385

3280
3327
3368
3386

3281
3328
3369
3404

3290
3329
3372
3459

3215
32N
3330
3374
3460

3226
3304
333
3377
3461

3227
3305
3332
3378
3462

3228
3309
3335
3379
3463

3229
3316
3336
3380
3464

3097
3140
3177
3200
3232
3317
3342
3381
3466

3485
3500
3582
3695
3870
3941
3966

3486
3501
3586
3696
3878
3942
3990

3487
3502
3588
3697
3879
3943
4008

3488
3506
3589
3757
3882
3944
4061

3489
3507
3590
3847
3911
3945
4062

3490
3508
3658
3848
3913
3946
4063

3691
3509
3676
3849
3923
3947
4054

3492
3510
3677
3850
3924
3948
4065

3495
3
3678
3851
3936
3949
4066

3496
3515
3679
3852
3937
3950
4070

3497
3519
3685
3867
3938
3951
4071

3498
3520
3686
3868
3939
3952
4102

3499
3581
3693
3869
3940
3953
4103

3469

6104
4137
4346

$FSOR - 000320

67644

2153
2892
3169

$FSRTI- 000350
$F SRTN= 000300

4236
674N
6744

$FESEL= 000140
$F$THE= 000330

674N
6744

$F$TRU= 000404

$FSUNT- 000130
$FSWHI- 000120
$FSYES- 000402

2328

3470

4107
4138
6347

1096

2213
2901
3209

4363
1571

2472

CROSS REFERENCE

34671

4108
6144
4348

1232

2233
2923
3234

1656

2450

4112
6145
6349

1390

2281
3002
3311
1673

2653

TABLE =-- USER SYMBOLS

3473

6113
649
4350

1461

2341
3016
3320
1771

2679

4118
4150
4351

1595

2379
3023
3334
1787

2839

6119
4176
4364

1608

2395
3025
3468
1888

3276

6126
6177
4365

1651

2433
3031
3660
1908

3407

4128
4178
4366

1676

2569
3048
3759
1965

3423

6129
6179
4367

1723

3482

4130
4234
4386

1725

3483

6134
4285
4392

1943

3484

4136
4286
4393

1945

2594
3063
3919

2610
3081
3927

2720
3101
3974

2726
3147
4106

1982

2103

2116

2306

3424

3446

3527

3842

2720
3147
4236

2726
3169
4363

2892
3209

2153

2213

2233

2281

6740
3285
32;2‘

1432
3295
1720

1638
3680
1721

1444
3687
1723

1470
3726
1765

1479
3794
1940

1487
6116
1941

2509
4120
1943

2585
4205
1959

2598
4272
3023

2602
6355
3081

2701
4401
3465

2703

6744
1368
1416
1463
1534
1616
1679
1752

1093
1370
1418
1464
1536
1620
1684
1800

1094
1371
1423
1467
1538
1621
1687
1802

1098
1384
1425
1468
1545
1628
1689
1808

1099
1387
1427
1478
1583
1630
1690
1810

1102
1388
1429
1482
1592
1622
1696
1831

1156
1392
1431
1484
1593
1637
1699
1840

1229
1393
1435
1486
1597
1639
1701
1850

1230
1395
1437
1495
1599
1648
1704
1859

1234
1397
1447
1497
1600
1649
1706
1865

1235
1405
1455
1499
16C
165.
1721
1874

1238
1408
1458
1503
1610
1654
1723
1883

1362
1409
1459
1503
1612
1674
1743
1920

2004
2064
2163
2250

2006
2066
2170
2252

2008
2083
2174
2266

2013
2085
2176
2268

2015
2087
2181
2270

2020
2089
2200
2272

2025
2095
2202
2274

2027
2098
2204
2279

2033
2130
2206
2292

2035
2145
2211
2298

2041
210
2224
2301

2043
2155
2231
2303

1997

2002

2411

2415

2417

2419

<22

2426

2431

2442

2444

2450

2454

2397

2399

2350
2465

2365

2467

2367

2501

2369
2503

2371

2505

2373

2519

1952

2377

2529

1954

2385

2531

1676

3481

2610
3101
4106

1950

1651

3480

2594
3084
3974

1943

1608

3479

2569
3063
3927

1941

1595

3475

2433
3048
3919

1936

1461

3474

SEQ 0113

2395
3031
3759

1931

1390

114

2379
3025
3660

1925

1232

3472

PAGE

2341
3016
3334

6744

1096

11:50

304(1052)

17-#£B-78 09:08

29-DEC-78

MACY11

1956

2387
2533

1958

2389
2535

2901
3234

1992

2393
2537

2923
33N

2539

3002
3320

3466

2059
2157
2244
2339
2456

2553

ASSEMBLY ROUTINES
MACY11
DOCTOR.P11
17-FEB-78 09:08

30A(1052)

29-DEC-78
11:50
PAGE 115
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0114

2557
2628
2730
2779
2890
2941

2561
2630
2732
2782
2899
2945
3013
3054
3094
3129
3183
3232
3325

2562
2643
2734
2791
2906
2947
3014
3056
3096
3134
3185
3236
3327

2567
2645
2736
2794
2908
2948
3021
3058
3098
3141
3193
3243
3329

2576
2651
2749
2807
2910
2950

2578
2695
2751
2810
2912
2957

2579
2700
2760
2815
2914
2961

2592
2710
2762
2817
2918
2963

2608
2712
2764
2823
2921
2964

3041
3072
3109
3160
3en
3281
3343

2620
2714
2766
2825
2928
2996
3043
3073
3110
3161
3212
32N
3344

2622
2718
2768
2827
2930
3000

2624
2724
2775
2829
2931
3004

2626
2728
2777
2838
2939
3006

$IFLEV= 177777

67644

"09%4

10994

12304

12354

13624

13844

13884

13934

13954

13974

14054

14094

$1SK0

1094#

1099

12304

1235

13624

1397

14054

1409

14554

1468

15934

1600

16064

3789

38064

3823

38764

3883

39174

4013

4078%#

4095

41044

4114

41864

4198

GO0001

13844
zgzgfi

1395
ggzgfi

14594
2950

1464
30214

16794
3129

1684
31454

21634
3248

2170
33184

23778
3360

2465
37654

26084
3787

2643
39254

2724M
4011

$1SK2 = 000001

lggg#

1393

23934

2444

29214

2948

30294

3121

31678

3246

33324

3337

39724

$1SK3 =
$15k4 =
SLINE
SLOCTA=

26314
30994
1502«
6744

2442
3104
2709
1095

30464

3051

30614

3066

30794

3119

32074

3212

32324

3244

2822
1099

28454
1231

2944
1235

1362

1371

1372

1384

1389

1393

1395

1488
1675
1771
1890

1570
1679
1773
1907

1981

2103

2104

2115

2130

2143

3010
3051
3097
3128
4181
3229
3318

$1SK1

000001

000001
000001
015634
177777

1405
1594
1682
786

1940

2145

1409
1600
1684
1831
1942

2152

1432
1607
1690
1838

1944

2163

1439
1616
1720
1840

1959

2168

3023
3060
3099
3145
3195
3244
3331

1444
1617
1722
1850
Q

2170

3029
3061
3103
3154
3201
3246
3332

1455
1621
1724
1857
1965

2179

3037
3065
3104
3156
3206
3248
3336

1460
1650
1743
1859
1966

2181

3039
3066
3107
3158
3207
3250
3337

1464
1654
1750
1874

2212

1468
1656
1752
1881

2222

1471
1657
1765
1883

2224

3045
3079
3118
3167
3215
3305
3356

1479
1672
1766
1888

2232

3046
3081
3119
3177
3219
3309
3360

2242

3050
3090
3121
3179
3227
3317
3362

1397

2244

ASSEMBLY ROUTINES

DOCTOR.P11

$LSTIN= 000001

2280
2432
2519
2645
2751
2958
3074
3146
3275
3362
3517
3726
3883

2290
2440
2557
2646
2839
2964
3080
3161
3285
3363
3527
3738
3885

2292..
2442
2558
2649
2841
3001
3082
3162
3296
3403
3528
3755
3887

2306
2444
2562
2651
2891
3010
3083
3168
3298
3405
3599
3758
3900

2308
2450
2568
2653
2900
3015
3100
3208
3299
3407
3621
3765
3918

2327
2451
2579
2655
2918
3022
3104
3212
3310
3409
3635
3787
3926

2340
2463
2586
2678
2919
3024
3110
3219
3319
3622
3652
3789
3965

2348
2465
2593
2701
2922
3030
3
3220
3333
3424
3659
3795
3967

2350
2467
2598
2704
2931
3047
3119
3233
3337
3425
3671
3806
3973

2378
2472
2603
2719
2932
3051
3121
3244
3344
3445
3680
3823
3989

2394
2474
2609
2725
2948
3062
3129
3246
3345
3465
3688
3841
3991

2406
2489
2641
2747
2950
3066
3134
3248
3358
3467
3704
3876
4007

2411
2509
2643
2749
2957
3073
3135
3250
3360
3516
3721
3881
4009

6744
1237

1092
1351

1094
1362

1095
1367

1097
1369

1101
1371

1153
1384

1155
1386

1185
1388

1228
1389

1230
139

1231
1405

1233
1407

1457

1459

1460

1662

1466

1470

1471

1477

1481

1483

1485

1487

1700

1703

1705

1710

1615

1493
1575
1607
1647

14617

1424

1498
1582
1616
1652

1723
1750
1806
1838
1889

1724
1757
1807
1845
1891

1729
1758
1809
1850
1892

1935

1941

1969

1422

1496
1577
1611
1650

1688

1722
1749
1801
1837
1881

1983

PAGE

116

CROSS REFERENCE TABLE =-- USER SYMBOLS

1494
1576
1609
1649

1686

11:50

30A(1052)

17-FEB-78 09:08

29-DEC-78

MACY11

1695

1942
1985

1697

1943

1990

1626

1428

1430

1500
1588
1619
1658

1502
1589
1627
1659

1730
1759
1815
1856
1893

1731
1760
1816
1857
1911

1732
1765
1817
1864
1912

1991

1996

2001

1698

1944

1949

1507
1590
1629
1660

1951

SEQ 0115

1434

1531
1591
1631
1674

1436

1438

1533
1593
1636
1675

1535
1594
1638
1677

1733
1772
1818
1866
1913

1734
1774
1819
1867
1918

2003

2005

1953

1955

1439

1446

1455

1488

1537
1596
1644
1679

1539
1598
1645
1681

1544
1606
1646
1682

1735
1790
1820
1868
1919

1736
1791
1821
1869
1924

1738
1792
1826
1874
1929

1743
1799
1831
1880
1930

2007

2012

2014

2019

1711

1957

1712

1959

1713

1967

1721

1968

ASSEMBLY ROUTINES

DOCTOR.P11

MACY11

17-FEB-78 09:08

3036
3062
3099
3155

30A(105¢)

M9
11:50
PAGE 117
CROSS REFERENCE TABLE -~ USER SYMBOLS

29-DEC~78

SEQ 0116

3042
3073

$LSTTA= 000001

SNESTL= 177777

33184

ASSEMBLY ROUTINES
MACY11
DOCTOR.P11
17-FEB-78 09:08

34054
36714
38064

= 000130

$NSK2 = 000110

35274
37554
39174

35994
3757
39254

36214
37654
3967

36354
37874
39724

36524
37894
3991

36584
37944
4009

43614

4387#

Q1144

41164

41204

41864

41984

10944
14794

1099
1487

12304
15714

1235
1656

1362
16734

1371
1771

1397
1787#

164054
1888

1409
19084

14324
1965

1438
19824

14444
2103

1470
21164

3284
3250
36804

L234M

2472
32764
3687

L263M

26904
3407
37044

L265M

2653
34234
3721

4267K

26794
3424
37264

42728

2839
34660
3794

42934

28904
3527
38064

4L310M

2957
35994
3823

4334m

2964
3621
38424

43554

3000#
36354
3885

3010
3652
39014

42054

30144
36584
4021

2%;2:

22?8

L1044

4109

4114

Q1164

4120

L1864

4198

42054

4272

42938

4310

13844
17204
2181
2645
3248
3883
13884
25194

1395
1765
22114
2651
32854
39174
1393
2557

164554
18314
2224
27014
3295
4013
14594
2562

1468
1840
22314
2703
33094
£ 218¢
1464
25674

15934
18504
2244
27184
3362
4230
16794
2579

1600
1859
22794
2751
3405
L234M
1684
25984

16064
18744
2292
28994
34654
4267
176434
2602

1616
1883
23394
2918
3516
43554
1752
26084

1621
19404
2350
2950
37584
4401
21634
2643

16494
1959
2467
30214
3755

1654
21304

16744
2145

1690
21514

2170

2377#4

2450

2465

3344

2724k
3360

30794

3110

3119

32074

3212

3232#

13734
16644
16764
18754

13854
14684
16804
18834

13904
14704
16844
19414

13934
14804
16904
19454

13954
14874
17214
19594

13974
15954
17254
21314

13904
15704
16764
18324
19824

2948
3967

30294
40N

3244

33324

17654
6744
164064
16004
17640

1766
10964
16094
16084
17524

$TAGNU- 050004

3516
37384
39014

4109

2442
17654

BL65H
37264
38854

4104k

24314
6744
46044
L6044
46044

053212 G

3646M
37214
38834

40954

$NSK4 =
$SAVLE=
$SAV2
$SAV3
$SAV4

$SSKO = 050003
$TAGLE= 177777

3424
3704w
38764

4078

23934

$SAVS

34234
36874
38424

SEQ 0117

L0214

zz?gz

$NSK3 = 000110
000110
177777
053140 G
053154 G
053172 G

40134

2306
3134
3671

$NSK1

34074
36804
38234

29-DEC-78
11:50 PAGE 118
CROSS REFERENCE TABLE == USER SYMBOLS

0114

226?‘
$NSKO - 000300

30A(1052)

L604H

2411

3073
42434

. 2444

3337

30994
17664

19594
10994
14334
16174
17654

3121
4265

31674
43614

3219
4387

397248

3991

4009

30614

3066

19604

35164

35174

35164
12354
14454
16214
18404

3517
13634
14564
16514
18514

13724
1461
16544
18594

30464

3104
19594

1960
12324
14384
16184
18324

3051

3246

33'8¢

25094
3129
37574
2749
37654

2585
31454
3789

29214
3787

21454
23514

21534
23794

21644
23954

21704
24114

21814
26128

22134
243

2224
26428

22338
2444A

2244M
26518

22814
24524

22924
2L65K

2341
246784

67644
1405
15714
1679
1850

1095
14064
1594
16804
18514

10964
1432
15954
1720
1874

1231
14334
1607
17214
18754

12324
1444
1608#
1722
19074

1362
14454
1616
1724
19084

13634
1455
16184
17254
1940

1371
164564
1650
1743
19414

13734
1460
16514
17444
1942

1384
14614
16724
17864
1944

13854
1479
16734
1787#
19454

1389
14804
1675
1831
19814

21154
22814

21164
23274

2130
2328#

21314
2340

2152
2314

2153#
235*a

2163
2378

21644
23798

2212
2394

22134
23954

2232
26124

22334
2432

25924
3161
38764
2931
39254

23504
2510w

2280
26334

ASSEMBLY ROUTINES
MACY11
DOCTOR.P11
17-FEB-78 09:08

S$TEMP

000300

30A(105¢)

810

29-DEC-78
11:50
PAGE 119
CROSS REFERENCE TABLE -- USER SYMBOLS

2450

2452

2489

24904

2509

2725
29594
30634
3146
32764
3364
3635
37594

27264
3001
3073
31474
3285
3362
36364
3765

2891
30024
30754
3161
32864
33644
3659
37664

28924
3015
3080
31634
3296
36224
36604
3806

2900
30164
3082
3168
3299
34234
3680
38074

25104
2645
29014
3022
3083
31694
33004
3445K
36814
38414

2519
26474
2918
3024
30844
3208
3310
34468
3704
38424

SEQ 0118

25204
26784
29204
30254
3100
32094
33114
3465
37054
3876

2557
26794
2922
3030
31014
3219
3319
34664
3726
3877#

25594
2701
29234
30314
3110
32214
33204
3467
37274
39004

2568
27024
2931
3047
31124
3233
3333
34084
3738
39014

25694
2719
29334
3048¢
3134
32344
33344
3599
37394
3918

2593
27204
2957
3062
313
32754
3344
36004
3758
39194

3926
41174

39274
4186

39684
L1874

3973
4205

39744
42064

39924
4218

4078
L2198

40794
4235

4105
42364

L1064
4243

4109
L4244

4111x
4293

4116
4294H

10924

10934

10974

109

10994

11014

11024

11554

11564

1228¢

12294

12334

12344

16250
16460
14784
16984
15454
16124
16374

16264
16478
14814
16994
15824
16164
16384
16904
17664
18654
19514
1

16274
14578
14824
15004
15834
16174
16394
16954
17714
18834
19524
19974

14284
1458K
14834
15014
15884
16194
16444
16964
17994
18884
19534
20014

14294
14628
14844
15024
15924
16204
16484
16974
18004
19184
19544
20024

14304
1463
14854
15034
15964
16214
16524
16994
18014
19204
19554
20034

14314
14648
14864
15334
15974
16274
16534
17004
18024
19244
19564
20044

14344
V466K
14874
15344
15984
16284
16544
17014
18064
19254
19574
20054

14354
14678
1488
15354
1599#
16294
16564
17034
18084
19294
19584
20064

14368
1468
14934
15364
16004
16304
16B4H
170644
18094
19314
19594
20074

14374
14704
14954
15374
1609#
16314
16864
17054
18104
19354
19604
20084

1438¢
1471
14964
15384
16104
16324
16874
17064
18404
19364
19654
20124

1439
16774
14974
15444
16114
16364
16884
17524
18594
19454
1
20134

20934
2175

20954
21764

0
21814
2251
22978
23694

20984
21984

21034
22004

21454
22014

21544
22024

25764
2624k
26954
2729M
27624

2577
26254
26998
2730
27634

1689%
17654
18644
19504

19924
20144
20614

20154
20424

20194
20434

20204
20584

20244
20594

22054
22704

23504

2
22714
23634

22264
2272
23654

2244A
2273k

22494
2274M

2557h
2603
20434
2711k
27364

25584
26194
26454
27120
27498

25604
26208
20464
27134
27514

25614
26214
26518
27144
2758F

2086¢
2157k

20874
21708

20884
21724

20894
21744
23664

23674

25624
26224
26534
2727R
27608

20254
N

22504
2292M

2575
26234
26944
27284
2761k

20264
20644

20274
20654

2250
2298&

2370

20314
0664

20334
20814

2264M
22994

22664
23014

23714

25784
26268
27004
27314
27648

23724

2579
2627H
27034
2732
27654

20344
20834

20354
2084w

22674
23024
2373«

23034

25854
26284
2733
7

21554
22034

26294
27094
2734h
27674

20394
20854

21564
2204#
22694

23854

26024
2630W
27104
27354

ASSEMBLY ROUTINES
MACY11
17-FEB-78 09:08
DOCTOR.P11

$TSKO

3195#
32274
32904
33204
33624
33844
3,704
34,864
35014
35274
36794

050002

$TSK1

050003

$TSK2

(50017

$75K3

C50034

IS 050024

$$ARG(
= 000000
$$BYTE- 000402

$SCASE= 000000
$$DST - 000003
$$ELOC- 000402

30A(1052)

c.10

11:50
PAGE 120
CROSS REFERENCE TABLE -- USER SYMBOLS

29-DEC-78

32054
32354
3298
33354
3604
3L05#
34730
3,800
35074
35864
36874
38474
38854
3944
40114

32064
3236
33044
33364
3374
34074
34740
34904
35084
35884
3688
38484
39114
39454
40134

32104
32620
33054

32114
32434
33164

346244
36754
34914
35094
3584
36934
38494
39134

36594
364794
34924
35104
35
36954
38504
39234

13634
1600
18514

39464
40214
41084
41304
41984
43508
44014
1372
16084
1859

39474
40614
41094
41344
42304
43514
4402
13734
1617
18754

4272
1468

4294A
16804

40794
4310
1684

4095
L3564
17254

4267
1464
30754
2009
3051

43634
1744#
3121
4244
30634

1752

23954

4265
3066

30844

17874

19084

19824

21164

33184

33324

41034
41284
L1784
43680
43964

41074
41294
41794
43694
43974

22334
2651
31364
3650
39194

2244
27024
3250
36604
4013

1235
15954
1840

25204
2919
3,684

13884

2558
2920w
3516

25594
2950
37394

4387

31694

2292
27204
3295
36814

2562
30254
3755
3220

14594

22794
30004
32324

23304
30744
33094

34754
12304
14668
16904
21308

35024
1235#
14684
17434
2144

22434
2661
26088

22814
2703
32864
3671

SEQ 0119

2244
27420
26424

35114
1362#
1593%
17518

21454
22794
2L4L4A
26434

1371
16004
1752%

21514
22914
2450
2645

27184

ASSEMBLY ROUTINES
MACY11
17-FEB-78 09:08
DOCTOR.P1

27514

$SERFL= 000000
$$FLAG= 000001

$$FROM= 000000

$$LOC = 021362

30A(1052)

28904
30294
3134
33184
36584
38824

28954
o

2918
30514
3161
33374
370644
39174

L1044
43614

4109
43864

10944
14054
16494
17524

10994
14554
16548
18404

12304
14594
1674M
18504

21634
23414
25674
2764948
30104
30664
31694
33204
36584
38234

40954
42934
1729

$$RE TU= 000001

16754

1676

050000

29484
3073

37384
39664

37554
3967

41144

43874

1232
14604

18744

2213
25194
2705
30154
3083
33104
3660
38064

35944
38564

L278%
13624
1461
16794
1875

22328
2520
27198
3016

1772
22214
2654
38804

1891

19094

16734

16814

21424
26404

16734
24904

771
2653

3528

2233
2568#

17494
21678
26482
38424

17884

21164
24908

14714

1680
19424

2656
3451

31004
3311
36884
3807

L1218
4294
1658
19824

2495
34484

36064
38714
4L287H
1363

2720
30224
3101
3319#
3689
38764
4122
43624
16734
2105
26794
3529

4106
42934
1577
1967

24928
34474

L1864

SEQ 0120

2957

3010#
31194

42434

30144
31214
32504
36354
38234

4011a
42654
13954

41054
4274
15744
1913

34464

$SRTNT

41044
43104
17384

25144
38084
42504

12314
1456

2931
30664

21704
23774
25694
27514
30144
30794
32074
33324
36604
387¢é4

23554
38004
4245

1851

$SREG - 177777

29214
30614
31674
3344
37214
39254

40784
42934

22124
2433
27044
3002
3082#
3299
36594
3796

$$LOCN- 000000

D_10

11:50
PAGE 121
CROSS REFERENCE TABLE -- USER SYMBOLS

29-DEC-78

1787#

2679#

1967

1888

2839

ASSEMBLY ROUTINES
MACY11
17-FEB-78 09:08
DOCTOR.P11
$SRTN2= 05000°

38420
6768
1966

26460
3409

$$SRC =
$$7GSv=
$87GS1=
$$7GS52=
$$70
=

000064
000000
000000
000000
000007

43344

30A(1052)
3885
15714
19824

2463
34234

4385
15894

16774
18154

$$$TAG= 050000

- 053416

4021
16734

21164
24904
34460

6334n
1682

2143
2641
3528

34754

35024

17104
1820

171
18264

21254
25144
37064
38004

2126
2515
3709
3801

641548
4220k
4298
1786

4155
4223
43004
1907

9704
1362

99w
1363

1461
1676

1471
1679

2213
2519
2705
3015
3083
3310
3650
3759

2232
2520
2719
3016
3100
3311
3659
3765

1874

L5978

E_10

11:50
PAGE 122
CROSS REFERENCE TABLE -- USER SYMBOLS

29-DE(C-78

3926
612°
4293

1875

3927
4122
4294

4410
1750

2168
2649
38424

1773

2222
2655
3881

SEQ 0121
1890

2348
3358

4007

1908#
2406
3403
4023

35114

1758

2052

ASSEMBLY ROUTINES
MACY11
17-FEB-78 09:08
DOCTOR.P11

3239

30A(1052)

BGNRPT
BGNSEG
BGNSFT
BGNSRV
BGNSW
BGNTST

2941
1574
1333
1526
1338
4435
1298
1346
679
983
1281
1328
4279
4553
2879
1307
3576

4056

CALL

1676

1709

1728

4299

W7
4367

1658

17714

18884

2599

2354

(KLOOP
DEALLO

3855
4294
3615
1656#

DECLAR
DEVREG
DEVTYP
DISPAT
ELSE

1572
814
810
1318
1370

ENDAU
ENDCLN
ENDDO
ENODU
ENDHRD
ENDHW
ENDIF

1334
1548
1764
1339
4481
1305
1098
1858

34074

3343

2650
3245

ENDIN]
ENDMOD
ENDMSG

ENDRPT
ENDRTN
ENDSEG
ENDSFT
ENDSRV
ENDSW
ENDTST
EQUAL S
ERRDF
ERRHRD

4008

1508
723
991
1.82
1329
1655
4313
4571
2968
1312
3827
728
2569
1744

1910

724

1001

11:50

F_10

PAGE 124

SEQ 0122

CROSS REFERENCE TABLE -- MACRO NAMES

2330

2692

2681

3448

1323

'028

1552
1062

3566
1066

4431
1080

1737

1756

1084

1088

1132

1150

1204

1220

1254

1276

1844

1865

6187

4209

2046
3739

4219

2069
3759

4236

2124
3766

4244

2157
3771
4249

2186
3799

4277

2252
3807

4286

1967

4089
21034

6199
23064

4231

4259

43N

26534

2656

2839#

2842

2917

2930

2956

3072

3109

3133

3160

3218

2634

2740

2979

2513
3870

3L24LH
1787

1615

33¢1

1814

1825

3605

4079

3625
6153

3636
6164

3697
4179

3715

3749

3781

3817

35274

3529
2328

38854
2490

40214
2679

44704
3446

2349
3966

2610

2449

2556

2644

3593

3665

1908

1391

990

4108

1394
2169
2947
3336

2180
2949
3359

19654

3705

3730

24724

2475

3515

1392

2144

2750

3249
4012

1396

1408

2223
2963
3404

1463

2243
3009
3620

4094

6113

4197

4229

322

1551
1038

2565

4430

4598

1887

1964

2102

1851

1875

213

BRE AK

1789

—

ABORTW
ALLOCA
BGNAU
BGNCLN
BGNDU
BGNHRD
BGNH
BGNINI
BGNMOD
BGNMSG

29-DEC-78

1053

1467

22N
3050
3651

1599

1653

2441
3065
3670

1683

1689

2464
3118
3754

2466
3120
3786

2561
3128
3788

4264

4266

4386

1081

1085

115

1186

1211

1245

2305

2671

2652

2838

3473

3526

3884

2213

2233

2281

2341

2433

2456

2546

1075

2399

ASSEMBLY ROUTINES

30A(1052)

3282

3610

3641

3660

3710

3744

3776

3812

3648

3667

3717

3751

3783

3819

4091

4261

444D
4453
4561

4459

4465

4471

4555

4565

1229
2591
3231
3020
1404
3875
1454

1387
2607
3308
3028
1678
4077

14
27
33
30
17
41

1096
1425
1497
1628

1100
1427
1499
1630

1154
1429
1501
1635

1227
1433
1532
1637

1232
1435
1534
1643

1366
1456
1543
16814

1368
1461
1581
1685

2033

2038

2041

2057

2062

18374
2000

2064

1236
1445
1536
1651
18564
2002

1573

1788

1909

2329

2491

2680

3447

37524

3784k

DOCTOR.P11

17-FEB-78 09:08

zggz
ERRSOF
EXIT
GPHARD
GPRMA
GPRMD
GPRML
HEADER
IF
1F8
IF.ERR

1F _NO.

LASTAD
LET

LOCAL

4372
3617
1447
4437
4447
4477
680
1093
2566
3206
2230
1361
3805

1383

4599
1091

1423
1495
1626
17454
1952

1798
1954

1800
1956

1805
1989

29-DEC-78

11:50

CROSS REFERENCE

1808
1995

PAGE

6_10

MACY11

125

TABLE -- MACRO NAMES

1863
2004

18804
2006

38204

40924

42624

2080

2083

2085

SEQ 0123

3953

3977

3995

4084

4192

4224

1385
1465
1587
1687

1390
1476
1595
1694

14606
1480
1597
1696

1414
1482
1608
1699

1416
1484
1610
1702

197
201

1923
2013

1928
2018

1934
2023

1948
2025

1621
1492
1618
1704
1950
2030

2087

2092

2095

21424

2153

2155

MEBYTE
::Ezgg

6814
396%;

686
36494

687
36684

M$COUN

9854

10084

10314

10464

10684

11034

11104

11364

11574

11664

1171a

11784

12064

12224

123

MSDATA

6814
703#

689
704

690
705

691
706

692
708

693
709

694
710

695
712

696
713

697
714

698
715

699
716

700
7

701
718

702
719

9924

10034

10394

10544

10764

10824

10864

11164

11414

11874

12124

12468

12644

13354

13404

15094

15494

15528

2969

30574

35664

LLTBE
10824
13354

4556
10864
13404

45628
1116
15094

45664
11414
15494

11878

12128

12468

12648

MSDECR
MEDEFA
M$ENDE

724LN

12784

12834

12964

688
37184

10164

13064

13134

13234

13304

38280
L4638BH

4314m
LLL3N

4320
L448H

L431H
4L454K

44BN
LLE0N

L5728
LL66N

45994
LL72M

12784

12834

1294w

13064

13134

13234

13304

7244

9924

10034

10164

10394

10544

0764

15524

2969

30574

35664

H 10
11:50
PAGE 126
CROSS REFERENCE TABLE -- MACRO NAMES

29-DEC-78

LL82on

MSEXCP
MSEXIT

4454

M$E
X SE
MSEXTY
MSGEN

3718+
3718+
690

38284

4314m

36114
(3738
3650

7054
7224
10674

MSGETS

MSGETT

21324
36424

4S728

22344
37114

22828
37454

23424
37774

44600

36684

L4664
3669

L4728
3718#

45564

L5664

37524
37524
6914

37844
37844
6924

38204
38204
6934

811#
10814

8164
10824

40928
40924
6944
7104
8184

42624
42624
6954
7124
9844

708#

12644
13354
L0574
10548
13234
L5724

37844
6924
7084

8114

NSO
L 3
LY

F
v

wd
e
D
b
b med

NWNIN)
— = =20OQ0

b cd

12774
1339#
(3144
10764
13304
L5994

38204
6934
7094

8154

12214

6864

6874

7014
7164
9874
10324
10684
1108
11584
11754
12224
12594
13564
18344

22178
24024
25714
2784a
2970
33974
36614
37194
3813#
39974

L2268
43084
4445
4463
44804

MEGNL
S

7054

12054

133594

MSGNIN

45994

22144
3661#

L{S724

13474
7024
7174
988
10334
10694
11104
11594
1176
12234
1260
1357#
18354

223%4H
24034
25724
27854
29844
36114
36624
37454
38144
39984

L227H
43124
4446
4464
L5544

~4£004

3719

10864
12824
13474
44324
10864
13404

40928
6944
7104

42624
6954
7124

6884
703#

6854
704a

7184
9894
10344
10704
1M 1»
1160
11784
1224
12614
13814
1RS2#

22354
24348
25734
27864
29854
36124
36634
37464
38154

L0854
42288
43154
44484
L4664
45564

2457
39784

24004
38134

25704

40854

37524

10854
12784
13404
43208
10824
13354

816
12554
15274

SEQ 0124

818
1277#
15534

7194
990
1035
1071#
1112
11614
1174
12254
1262
13824
18534

<364
245K
2600
2787
32404
36134
3664H
37474
38164

40864
42324
43214
4449
4467
4557

2635#

41934

4092#

W3
18764

MSERR]

17-FEB-78 09:08

43204

DOCTOR.PI

30A(1052)

MACY11

ASSEMBLY ROUTINES

DOCTOR.P11
MEGNTA

9G24
2%9%‘

10034
13064

MEGNTE
MSHAP T

35774
6814

40S7#

MSINCR

6804
10554
11514
12654.

7254
10674
11614
12778

MISHNAP

MSLDRO
MSMASK
MSMCH
MSMCLO
MSMSK 1

30A(1052)

10164
13134

10394
13304

10544
13354

10764
13404

10824
15094

10864
15494

11164
29694

11474
3257

1187#
&

1;}6:
4

12468
G828

12644
4483

9844
1073«
11684
12794
13824

9894
10774
11754
12824
14034

9934
10814
11824
1284
146494

10024
10834
11884
12954

10044
10854
12054
12994

10074
10874
12094
13084

10134
10894
12134
13244
15534

10174
1107#
12214
13294

10294
11134
12254
13314

10364
11174
1%43#
13344

10404
1133¢
126478
13364

1043¥
11384
12554
1339#

17-FEB-78 09:08

6814

703

13474
20344
28854
36490
38184

13574
22824
20424
36614
38204

13564
815#
6734
6734
8154

13814
86

29-DEC-78

11:50

PAGE

110

MACY11

12 7

CROSS REFERENCE TABLE -- MACRO NAMES

23428
29804
36664
38294

2400N
29854
30684
39544

434N
32404
36834
39784

15104
457K
32884
37114
39964

15274
2547
33504
37164
40574

15504
S704
3I%a
37184
LOBSA

26004
35674
37454
40904

14024

1448x

27274

28B4

2984w

32878

36824

0164

10394

10544

10764

13304

10824

13354

zg?:

13130

13234

17454
6354
S774
37504
L0924

18334
27224
36114
37524
L1934

18524
27414
36164
37778
L2008

10864

11'6H

11414
15494

11878

15524

29694

3257«

13404

15094

18764
§287'
184
37824
42254

’

12124

21324
794
on
3784A
42324

12464

MSPRIN

9854

10084

10314

10464

10684

11034

11104

11344

11578

11644

11714

11784

12064

12224

MSPUSH

6804
12554

7254
12774

9844
12824

10024
12954

10074
12994

10294
13084

10434
13244

10674
13294

10814
1334m

10854
13394

10894
134784

11334
15274

11514
15534

12054
2880«

MSPUT

9854

10C84

10314

10464

10684

11034

11104

11344

11574

11644

11714

11788

12064

1222

MS$PUT

9854
068#

986

987

1008

1009

1010

11644

1165

1166

1.7

1172

1173

101
1105

10314
1110

1032
1111
1180

1033
11344

12064

1034
1135

10464
1136

1047
11574
1223

1048
1158

12394

4L43BA
14484
6804

LL43M
1450
7254

LLLBA

L454N

4LOON

4L4L72K

LL7BN

45568

45628

45664

35678

35774

9844
12824

40574

10024
12954

4280

10074
12994

4432

10294
13084

4LL3GM

10434
13244

4554

10674
13294

10814
13344

10854
13394

10894
13478

11334
15274

11514
15534

12054
2880«

1117
1206¢

11344
1209

1138
1212#
1284

11414
1213

10084
1077

1013
10824

10164
1083

1017
10864

10314
1087

1036
11034

10394
1107

1040
11104

1142
12224

11574
1225

1161
12394

11644
1243

1168
12464

M7
1247

1175
12564

1178%
1261

1182
12644

2985
37524

13304
1510

32404
37824

1331
15494

13354
1550

1336
26008

13404
2721k

1341
2722

36494
40908

1357
2787

36664
40924

13814
27954

36684
42004

1382
2799

4321
106404
11824
13824

36478
3829

13564
27834

36824
4232

10514
11884
14034

10554
12004
14494

10734
12134
15104

10774
12254
15504

10834
1243¢

10874
12474

1107#
12614

MERADI
MERNRO
MESETS
MESV(

12554

9854
1051

1Mo
1188

1278¢
1403

2885
37164

M$TLAB

42628
9894
1174
12794

21324
799K
0060
38294

12774

989
10544

1279
164484

29420
37184

4L28OH
9934
11384
12844

22714M
2BBSH
30684
3954w

992
1055

12834
1445

2984H
37504

4312#4
10044
11424
13314

2234k
2942w
36834
3978¢

993
1068¢

15094

4314k
10134
11614
13364

22828
29854
37114
39964

10034
1073

4315
10174
11684
13614

2342
32404
27164
LO8SH#

1004
10764

32874
37844

63208
10364
11754
13574

24008
32884
3718r
40904

1784

3288
38184

24344
33504
7454
40924

1179

36164
38204

2457H
33944
37504
41934

36184
38284

2547k
36114
37524
42004

25704
36164
37778
42258

1207

26004
36184
37824
42328

12224

17454

26354
36424
3784w
4255#

18334

27228
36474
38134
L260M

18524

27414
36494
3B18H
L2624

ASSEMBLY ROUTINES

DOCTOR.P11
MSTST.

MSWORD

L3154
1004

(321
10134

437
10174

21320
27994
36660
38294

22144
28854
36684
39544

2234
29424
36834
39784

22824
29854
37114
39964

23428
324
37164
LOBSH

1117#
12794

43054
43124
72034 ~
211
1853
1854

PRINTX

984

PUSH

1152

SETPR]I

SETVEC
STRUCT
SvC
UNTIL

WAITUS
WHILE
XFER
SADDON

1138«
12844

2237
2436
2636

1007

1154

11424
1334

1161»
13364

11684
13414

L31SH
8154
18764

4321
4373
8164
812
1877
1878

2283
24578
2638

2284
2458
27614

1030

1045

1067

22824
2437
2637

1350

1352

11:50

PAGE

J 10

—

128

CROSS REFERENCE TABLE == MACRO NAMES

43128
93

678

ROUTIN

29-DEC-78

L3054
9894

POINTE

RETURN

30A(1052)

17-FER-78 09:08

2236
2435
26354

READEF
REPEAT

MACY11

1530

10
11754
13574

106404
11824
13824

10514
11884
14034

10554
12094
14494

10734
12134
15104

10774
12254
15504

‘

10834
12434
17454

SEQ 0126
1087«
12474
18334

1107
12614
18524

1113«
1265#
187

24008
32884
37184
L0904

2434
33504
37454
L0928

24578
33044
37504
L1934

2547
36114
37524
L2004

2570
36164
37774
L2254

26004
3618¢
37824
4232

26354
3642
3784
42554

27228
36474
38134
4260

2741k
36494
38184
L2624

2787#
36614
38204
4L2BO#

13192
21324

1320
2133

1321
2134

172454
2135

1746
22144

1747
2215

18334
2216

1834
2217

1835
22344

1852#
2235

1102

1109

1133

1156

1163

1170

1177

1205

1221

1238

1986

2119

2121

2520

2522

2524

2610

4099

410

6334

4336

4338

4340

2285
2459
2742

1532

2342
2460
2743

1982

1984

1380
1443

1401
1478

2508

2597

2700
2141

2166

2178

2220

3725

6115

4204

2288

2346

2404

2438

2461

1671

1785

1906

1980

2114

2326

2488

2677

3274

3421

3444

3840

3899

4332

1486

2584

2601

2702

3294

3686

3793

4119

427

4400

3718¢
12324

37524
13624

3784k
13634

38204
13714

4L092¢
13734

42624
13844

13884
15714
17204
19074
21634

14054

14064

14328

14804

13854
15704
16804
18754
2153¢

13904

1479

1680

1569

2883

2782
6734

6734
1437

2720
1719
36184
1094#

16330
16164
17640
19454

22330
26314
25964
28904
3016
30994

1748

2983

1836

1855

1879

3284

3907

3679

2240

4354

3374

24L34N
2573
3396

1355
"431

3905

331

2403
2572
3395

2896
3903

3369

2402
2571
33944

2690
3901

3175

2401
25704
3353

2688

3458

3173

24004
2550
3352

2686

3456

2988

2345
2549
3351

2614

3454

2986

2344
2548
33504

2612
3452

2898

2343
2547
2744

3376

2754

1469

3286
1939
36494
10964

14460

16184
17654
19594

22794
24334
25984
28924
30214
31014

3681
3464
36684
12304

14654

16494
17864
19814

228N
2450M
2599
2899
30234
31104

14554

16514
17874
19824

2327k
26524
26084
29014
30254
31124

146564

16724
18314
21154

23284
2489
26104
29184
30294
3136w

1459

16734
18324
21164

2339m
24904
26454
29204
30314
31364

14614

16744
13504
21304

23414
25094
2647k
29214
066
31454

16764
18514
21314

23504
2510
26784
29234
30484
31474

16794
18744
21514

23514
25194
26794
29314
30614
3161

23774
25204
27014
2933
30634
31638

2379
2S5S57M
27024
29574
30734
31674

15934

17214

17234

15954

16064

17254

17438

19084
21648

19404
22114

19414
2213

19434
52310

23934
2550
2718
09594
30754
3169

23954
5674
2720
3
30794
32074

2411a
2564
272
30024
30814
32094

16084

4128
92N
7
144
30844
32194

ASSEMBLY ROUTINES
MACY11
DOCTOR.P11
17-FEB~-78 09:08

$AND

SBRANC

32214
33440

32324
33468

38064
397644

38074
39914

32754
33644
36804
38424
4LO78H

32764
36224
36814
38764
L0798

32854
363K
37044
38774
41044

32864
344L5H
37054
39004
L10GH

32954
BALOR
37264
39014
L1098

23774
30294
37574

23934
30464
39174

24314
30614
39254

2567M
30794
39724

25924
30814
L104M

26084
30994
4L234N

L2198
12304

L234K
13884

10954
16504
18564

12314
16754
1857

13624
16794
18744

23394
30234
26584

K_10

29-DEC-78
11:50
PAGE 129
CROSS REFERENCE TABLE == MACRO NAMES

3234
33628
36604
38414
39924

18N
10964

22794
30214
34664

30A(1052)

L2368
14594

13714
16814
18804

L2438
15934

1384w
1682
1881

4244
16064

13894
17224
19424

L2993
16494

14054
17244
19444

3300
34654
37274
39174
L1118

33094
34664
37384
39194
4L1IGH

33114
34684

84
o4

39254
L1174

4
864

39674
L1874

39684
L2054

2718¢
31454
436N

2724M
31674

280N
32074

28994
32324

29214
33094

30004
33184

L294N
16744

4333
17214

146394
1703
19594

14554
17494
21304

37594

37654

37664

39724
L2064

43564
19634

14604
1750
21424

14714
17654
2143

1488F
18314
21524

15944
18374
21634

16074
1838
21674

16164
18504
2168

22324
2032

22414
2439

2242
2440

$BRCOD
$CALL

3079
16774

32954
17104

17294

17384

17574

18154

18264

18454

18664

20474

20704

21254

21584

21874

22534

SCHECK

10944

12304

13884

14594

15934

16064

16494

167644

17204

1721

19404

1941

21514

%211#

22314

$CKOPT

10924

10974

11554

12284

12334

13674

13914

14078

14158

14178

14228

1424N

14264

}428’

14304

2814
30714
33160
34694

28164
30894
33244
34804

29054
30914
33284

29094
30934
33354
5004

31024
33424
35094

29954
31084
33554
35194

30364
31764
33794
764

30384
31804
33814
36784

30404
31924
33834
36964

30494
32104
33854
38474~

30534
32424
345%
38494

30574

35814

30054
31534
33774
35894

361N
38514

30644
33044
6N
38674

$CKOP2

11014

12374

13694

13864

14364

14468

14574

14834

14854

14934

14984

15004

15374

15444

15884

$(KR6

15894

-1645#

34754

35024

16064

4494

1674

17208

1721

12304
2231w

13884
22794

14594
23394

15934
237

2348
25684

23504
25864

30144
33324

2222
20114

10940
221a

23474
25574

2231a

22214
2406

$CMND

23404
25194

L3634
22114

333ixs
36354

43554
19614

2290
2463

43614
21514

33324
36004

22124
264054

31404

22894
24628

4334k
17238

33204
35994

SEQ 0127

21700
23944

22804
2450

23784
25934

ASSEMBLY ROUTINES

DOCTOR.P11

SCOMPA

$00

$E. SE
SERRMS

30A(1052)

17-FEB-78 09:08

29-DEC~78

11:50

CROSS REFERENCE

PAGE

L 10
130

TABLE == MACRO NAMES

SEQ 0128

30004
331840

30144
33304

30214
34654

3023
3466

30294
36580

30464
37574

30614
39174

30794
39254

3081
39724

30994
L106K

31454
4234H

31674
43614

32074

18314

18504

18744

19414

21304

21514

21634

22114

%231‘

22794

23394

23774

23934

10964

25678
30994
SCOUNT

MACY11

37654
16774

12304

25924
31454
38064
17104

23554
zggg:

2514
2%68:

10964

12304

22794
30214
3060
13714

33440

10924
13694
16174
16620
1498#
15984
16466H

23394
30234
36584

13624

26084
31674

38764
1729
3594k
20720
13884

23778
30294
37574

1384k

27184
32074

39174
17384
36064
GOBON
14594

23934
30464
39174

16168

23504

24114

10944
13714
16224
166464
15004
16004
16454

10954
13724
14626W
14668
15024
16064
16494

10974
13844
16268
16684
15334
16074
16504
16984
17574
18404
19264
19604

33624

39674

13884

726N
2324
39254
17574

36264
L1544
15934

24314
30614
39254

14054

28904
33094

39724
18154
36374
L1654
16064

14554

28994
33184

L0784
18264
36984
L1804
16494

14594

29214
33324

L104M
18454
37064
L1BBH
16744

159

30144
35994
L218F

37314
L2108

72400
L2204

4234
20704
37604
4237

17234

19614

18664

17214

24504

2557

25924
30814
L1044

26084
3099
4234M

27184
31454
L3614

10994
13864
14288
14704
15354
16094
16520
17004
17654
18454
19204
19654

11014
13884
14304
146718
15374
16114
16544
17034
17664
18504
19304
1

11554
13894
14344
14778
15444
16164
16564
17054
17714
18564
19354
19914

12284
13914
14364
14BIA
157
16174
16744
17104
17884
18594
19404
19964

29184

16494

0004
34664
L1BON

2567M
30794
397284

26454

16064

0474

30214
36354

16744

30294
36584

16794

8
4287

19434

21514

22114

2231#

32074

28994
32324

29314

29574

30734

31104

12304
13934
1438K
14834
15754
16194
16754
17204
17904
18644
19414
20014

12314
13954
1439
14854
15824
16214
167784
17214
17994
1
19424
20034

12334
13974
14468
14874
15884
16274
16794
17224
18014
187644
19434
20054

12354
14054
14554
14888
15894
16
16814
17238
18064
18804
19444
20074

29214

30144
33324

31344

31614

3219#

12374
14074
14578
14938
15934
16314
16844
17244
18074
18834
19494
20124

13624
14094
14594
14948
15944
16364
16864
1729
180954
18884
19514
20144

13674
14154
14608
14964
15964
16384
16884
17384
18154
1909#
19530
201

2759M

20404
20974
21734
22328
22924
2360
24114
2L51A
25304
2SBSA
26434
27184
2763

20424
21034
21754
2261
22074
23684
2613
2653
2532
258G
20454
2719

20474
21254
21794
2244
2299k
23704
2014M
2L5SH
2534k
25924
2046K
2724

2767

20584
21304
21814
2249M
23004
23724
24168
2462M
25364
25934
2648
2725
27738

20634
21424
21874
2251
23024
2377
2418
2465
253BH
26024
26514
2727M

20654
2145
2198¢
2253
23064
23784
24208
26L67TH
2SS
26034
26534
2729M

20704
21514
21994
2264
23294
2383w
20218
2472
25574
26084
26804
2731

33304
33734
34654

3324
33774
4
35004

3333
33794
34674
35024

3335k
33814
Z/694

33374
33834
34714

33624
33854
34738

3344k
36024
3475

3345
34054
34BON

33554
34074
34Bo

33574
3424
3484k

35114

35164

35174

27764

35194

3079
3757

33180

20394
20964
21724
22318
22894
2364M
24054
24504
25284
2579
20404
27138
2761A

35094

22534

42784

20344
20944
21704
22046
22804
23634
23984
2644N
25194
2577M
26294
27114

35074

21874

37724
4250

21584

20324
20934
21674
22214
227N
23554
23964
2L4ON
25144
25750
2027M
27094

34984

25194

42434
21254
37674
42454

2724m
31674

2774

17434

24314

14
37384
43614

41094

2765

17214

33094

37044
L2934

39914

27584

32324

27788

35274

20814
21524
22014
2265
23314
2003
249NN
25584

26824
2733
27804

34478
35814

20824
21544
22674
2330w
24254
24934
2
26154
26944
27354

27814

33624
445K
34884
3586w

ASSEMBLY ROUTINES

DOCTOR.P11

35874
36854
37580
38514
30254
30884

SGENBR

SIFCOD

SIFOPR

35894
36874
37604
38564
39264
39914

35994
36934
37674
38694
39384
40094

41058
41440
L235A
43100
4LL02®
13628
16794

Q1074
L1498
Q237H
43468
44L10W
13714
16828

23400
26000
30154
32084
36354
3989w

2348a
26414
30224
32194
36594
40074

23784
645K
30244
3233
368BF
40784

23944
2640
30304
32964
37044
41054

10964
14684
17204
19634

40214
43550
10944

1946k

1099#
14794
17214
1959#

22924
L7oM
26534
2932
30664
31454
3299
346SH
37874

19594

12304
15934
17234
1960

23064
2474
0655
29484
30734
31614
33094
466
37894

21304

12354
16004
17524
19654

2308
2509
2701
29504
3074
3162
33184
35164
38234

29-DEC-78

11:50

PAGE

M 10
131

CROSS REFERENCE

TABLE == MACRO NAMES

36064
36944
3770
38714
39404
401w

36264
36984
37894
38784
3944n
40214

36354
37044
3796
38804
3946
L06TA

36374
372064
37954
38834
3948
L0634

36524
37214
3800#
38854
39504
4065

S84
3731@
oo
39114
39524
40704

39124
3964
40724

14394
17504

1455
17654

164604
18314

14714
18384

36214
36964
37874
38764
39424
40134

G109
L154R
L243X
634BH

G110
L165H
43508

G110
L1768
Q250N
436TH

1386
17228

13894
17244

14054
17434

21434

24064
2704
30474
32984
37384
41094

13714
16064
17654
1966

23394
25574
7184
29574
30794
31674
33324
3517
3883¢

L245H

21524

2432
2719
30624
33104
3758¢
L1214
1372
16164
1766
21034

23504
2558
Q724M
2958
30814
32074
33374
35274
38854

21634

2440
27254
30734
33194
37654
L1B6N
13884
1617
17714
2104

2377h
D562
27494
29644
3083
32124
3344k
3528
3887

2168

24SOM
Q747
30804
3333¢
37954
L21BN

4LTIBE
41804
L2678
4364

21794

4120
41B6H
L272M
4366N

22128

4121
L188F
Q273X
L36BN

20204

2463
28914
30824
3344k
3806w
L235H

2519
29004
31004
3358
38764
L243H

1840
21514

18594
21708

14094
16564
18834
21814

A116H

G198

L2054

13934
16214
1773
21654

2393
Q567M
27514
0004
30994
3219
3345
3621
39174

13954
16494

24118
OS79M
B3O
30104
31064
3220
3360
36524
39254

13974
1654

24314
OSO2M
D841
30144
31104
32324
33624
36584
39674

36594
3738¢

41268
4198
L2788
43B4M

36714
37404
38
39174
39674
40784

G127
42104
4285
4L3B7H

39184
39724
4LOBON

3678#4
37574
38494
39234
39734
40954

14884
18504

1596
1857¢

1607#
18744

16164
18814

223@

36764
37554

41298
42188
L2874
43928

22LoM

2280K

1444k
1674%
1890
2224w

14594
1684x
19404
22314

4134M
42204
4293«
43944

22904

25574
29184
31104
33624
38814
4Lo73N

25684
29224
3134w
34034
39184
4293

2SB&HN
2931a
31464
34674
39264
4362

24428
OSOBH
JBOOM
30214
3111
32444
3363
36714
39724

G230

24L4L4N
26084
28994
30234
31194
324N
34054
36804
39914

4234e

26504
2643
29184
30294
31214
3248
34074
3721
L0094
L265H

4267H

4310w

2393«

14328
1657
18884
2211

25934
09574
31614
35164
39654
L3854

2603«
30014
31684
35994
3973«
44024

2451
645K
2919
30464
31204
3250
3409
37264
L0114

24654
0646
2921#
30514
3134k
32854
3424w
37554
4013«

14644
16904
19414
2244k

2567M
2%2?:

41044
LLI10N
14594

41004
4412
15934

4110

26314
23;2:

40954
43874
13884

27184
32074

2724M
32324

28904
33094

28994
33184

16744

21518

2211

22314

22794

23394

23774

30464
39724

30614
4104

1094#
2151

12304
22114
28904

13884
22314
28994

14384
22794
29214

14594
23394
30004

14704
23774
30144

14874
2393
30214

15934
24 14
30234

16064
2567A
30294

16494
258SH
30464

16744
25924
30614

17214
26024
30814

17234
2608¢
30994

19414
2703%
31454

19434
2718«
31674

L1060
1362#

L120M
1384

4034
14054

L2728
14554

L3614
1679

L4014
17434

18744

2130#

21634

25194

35994

36354

37044

10944
1471
1724

1095
14874
176434

1230
1488
18314

1231
15934
18504

13624
1594
18744

13844
16064
19414

14054
1650
1944

1438¢
16744
21304

1439
1675
21504

14554

14594

1460

14708

1679
2152

17218
2163

1722
2211

1723«
2212

L2364

4235

L243M

L27om

L273

3
4293

37384

22314
25854
289
30464
3233
36874
39724

32324

37654

2232
2586
28994
3047
32974
3688
3973

25924
31454

32954

38064

22794
2592#
2900
30614
3298
37044
L0784

26084
31674

32974

38764

2280
2593
29214
3062
33094
37384
4104k

33094

40784

23394
26024
2922
30814
3310
3757#
4105

16064

33184

4L1B6H

2340
2603
3000#
3082
33184
3758
41204

41144

4114
41784
L265K
43620

SEC 0129

4023
4361
12304

27244
32074

SIFCON

35944
36884
37654
38674
39364
L0064

17-FeB-78 09:08

L1040
Q1378
L234M
43004
LL0TR
12314
16754

2279
667N
26514
29314
30614
3135
32054
3625
37570

$IF

30A(1052)

L1020
G135/
Q2300
42954
L3968
10954
16504
19620

SGENTA

MACY11

16454

33324

18314

G21BE
13884
1607
1942

23774
26084
3001
30994
3319
27654
4121

J466M

18504

L2LM

1389
16494
19434

2378
2609
30144
3100
33324
37944
41864

29214
33324

36584

4293a

23
27
30
3
33
25

30004
36584

36874

30144
37574

37574

30214
39174

3794k

30294
39254

39174

39254

39724

MCHIG
SMCLOW
$OPABS
$OPADD

$OPAND

41294
43964
674N
674N
2005#
11014
15964
19554

22654
2713
2907
2095#
32264
34964
L3924
1101#
15964
19554

22654
2713

$0P(D1
$OPCD2

42 4

146264
14984

2001#
20654
224
2383
2504
2627
27654
2828#
29954
30714
31594
32424
33794
34,884
36784
39424

4362
10974

L3610
10924
16244
14964
16278
18014

— el
b b P

SLET

30A(1052)

[AS 1,V ],¥)

ASSEMBLY ROUTINE
MACY11
17-FEB~78 09:08
DOCTOR.P11

2674
3

29-DEC-78

11:50

N_10
PAGE 132

CROSS REFERENCE TABLE == MACRO NAMES

13674
164574
15444

16864
19354

20244
2154m

SEQ 0130

MACY11 30A(1052)

ASSEMBLY ROUTINES

17-FEB-78 09:08

\n\.nbbu%r\)—avvw—-fl

SaNea
4
r
Bk

807#
8

6
6794
7214

934

NN
— — — b wd cmd wed mad wmd wnd —
QOO0 O Q000
N ~NON
— O~
W

ERA%
ERFER
A

)
d
e
e
)
d
d

O 000000 N~NOON

L1264
20054
10924

ny —

$OPCOM
$OPDEF

b e V) BN UNANN

31064
2354
34984

DOCTOR.P11

B_11
29-DEC-78 11:50 PAGE 133
CROSS REFERENCE TABLE -- MACRO NAMES

3154
3373
3587
43944
2577
11534
13714
14344
14834
15354
15964
1646
16864
1724K
1759
1816
18664
19184
19594
20074
2050
20824
21214

31784
36714
36854
L3964
2711A
11544
13844
14364
14854
15374

35094
11854

23934

25384
25934
26314
2683
27244
27614
28084
28424
29214
29874
30244
30614
31004
31614
32054

25004
25408
26024
26304
2684
27054
27634
oB0OK
843
29228
29884
30094
3062#
31008
21674
32074

25024
25414
26034
26334
26874
2727A
27654
2814k
2844
29274
29954
30304
30648
31064
3168
32084

15984
1647
16884
17294
1760
18174
18674
19194
19654
20124
2051
2084#
21254

26314
2494

24324
2495

32804
33304
33754
3410
34664
26924
3514
35874
3640

31804
11554

13884
14394
14884
15400
16074
16504
16974
17314
17714
1819
1869
19294
1968
2019¥
2053
20884
21404
21674
21984
22414
22714
2307
2361
23964

21654
2192
22394
22674
23054
2359

25364
25924
26294
26824
27194
27598
28064
2840
29184
29624
30234
30594
30994
31594
32004

31840
34754
3694

13864
14384
14874
15398
1606#
1649%
16954
1730
17654
1818
1868
19244
19674
2014#
2052
20864
21304
21660
2193
22400
20694
2306#
2360
3%

21634
2191
22324
226548
2304k
2358

23884

31820
34730
36934

32904
32324
33764
34244
34674
3493
35164
25894
36584

24398

32054
33339
33774
3,26
3,608
349
35108
35944
36508

2640N

30964
33354
33704
34494
34714
34964
35214
35994
36764

SEQ 0131
32284
34964
39504

5
6
6584
;03#

12374
16174
14624
15024
15884
16294
16744
1711
17384

ASSEMBLY ROUTINES
MACY11
DOCTOR.P11
17-FEB-78 09:08

36964
37574
38064
38674
39074
39504
39854

3698¢
37584
38084
38694
39114
39524
39864

37044
37604
38094
38714
39124
39584
39874

30A(1052)

37064
37654
3810
38764
39174
39594
39884

29-DEC-78
11:50
PAGE 134
CROSS REFERENCE TABLE == MACRO NAMES

37074
37674
3811
38784
39184
39604
39894

3708
37684
38474
38804
39234
39614
40004

3709
3769
38494
38814
39254
39624
40014

3731
3770
38514
38854
39264
39634
40024
40614
41074

3732
37724
38564
3886
30364
39644
40034

SEC 0132

40634
41094

3733
37734
3857
3888
30384
39654
40044

40654
4112¢

3738¢
3774
38584
39024
30404
39724
40054
40704
41188

37404
3775
3859
39034
39424
39734
4006X

40724
L1204

3741w
37944
3860
39044
39444
39824
4007
40784
4121

3742
37954
3861
39054
39L6N
39834
4015H

40804
L1264

3743
38004
3862
39064
39484
3984a
40164

GO174
4082

L0184
4083

40198
41004

40204
41014

40214
41020

4022
41064

4024
41054

11014

12374

13694

13864

14364

14468

14574

14834

148SH

14944

14984

15004

15374

1544k

15894

32264

32284

32354

32904

33264

33304

33734

34714

3473k

3475H

34BN

34BLM

34B6H

34904

34924

43928

4394k

L3964
13694

13864

14364

14468

14574

14834

14854

14944

14984

15004

15374

15444

15894

19554

19574

19914

20124

20144

20244

20324

20404

20824

20944

20974

217384

2199

22494

2251

SOPNEG

20054

20864

22034

22714

2368#

25774

27114

31804

35094

$OPNOT

11014

12374

13694

13864

14364

14464

14574

14834

14854

14944

14984

15004

15374

1544

15894

SOPEQU

SOPNAN

11014

12374

40814
4127

ASSEMBLY ROUTINES
MACY11
17-FEB-78 09:08
DOCTOR.P11

$OPOR

43924
11014
15964
19554
22654

27134

$OPROT

11014

L3944

30A(1052)

13864
16114

11:50
PAGE 135
CROSS REFERENCE TABLE -- MACRO NAMES

29-DEC-78

14364

16294

20144
23644

16464

16364

14834
16454

0404
23884
27934

20824
24144
28064

31564
364710
36944

3178#
34730
38784

2OL4LN

14834
16454

13674
14574
15444
16864
19354

13694
14624
15824
16884
19494

25524

27278
27924
29278
30424
31064
31944

33284
34694
35074
38674

10924

14854
16524

2082#
24144
28064
29464
31784
34734
38784

24184

20264
21564
2299

24204

25604

27294
28054
29294
30444
3108#
32004

33304
34714
35094
3869H

40634
L2BSH

40654
4346H

13674
14574
15444
16864
19354

13694
164624
15824
16884
19404

20248
215448
22978
24188
25524
2727H
27924

14984

29464

20404
23884
27934
29448
31594
34714
36944

20244
21544
22974

$OPR1

14854
16524

SEQ 0133

20264
21564
22994
24204
25604
27294
28054

28144

ASSEMBLY ROUTINES
MACY11
17-FEB-78 09:08
DOCTOR.P11

28284
29954

29054
30054

3CA(1052)

30364
30954
31824
3316w
34594
34L98#
38474

29114
30384
30974
31840
33244
34614
35004
38494
39524

29134
30404
31024
31924
33264
34634
35024
38514
40614

12334
14364
15354
16444
19244

12374
1444
15374
16524
19294

764
$OPR?2

20144
20934
22718
26134
25364
27114
27804
29114
30384
30974
31844
33244
34614
35004
38454
39524

$OPSHF

$0PSUB

$0PSWB
$OPXOR

43924

20054
1101#

11:50
PAGE 136
CROSS REFERENCE TABLE -- MACRO NAMES

29-DEC-78

L1784

20194
2094
22734
24164
25384
27134
27904
29134
30404
31024
31924
33264
34634
35024
38514
40614

29278
30424
31064
31944
33284
34694
35074
38674

2929#
3044M
31084
32004
33304
3471H
35094
38BN

4065
4346

41264
4394#

13674
14574
15444
16864
19354
20244

13654
16624
15824
16884
19494
20264

14224
14934
16194
17994
19964

21544
22974
24184
25524
27274
27924
29278
304248
31064
31944
33284

34694
35074
38674
40634

21564
W
¥
U
JoN
3054
292
3044H
31084
32004
33304

34714
35094
38694
4065

41784

4285/

4346M

14468
16364

14574
16384

14834
16454

1485#
16524

20244
23704
27784
29384
31554
33304
35874

20324
23844
27814
29404

2944H

29464

164464
16364

14574
16384

14834
16454

14854
1654

20404
23884
27934

31594
34714
36944

20824
24144
2B06#

3178#
34734
38784

202644
23704
27784
29384
31554
33304

20324
23844
27814
29404
31574
33734
36854

20404
23888
27934
2944
31594
3671k
36944

20824
2414k
2806#
29464
3178#
34734
3878#4

25774

27114

31804

35094

35874

14468

146574

29624
30644
3157#
32354
33774
34 86#
36764
39404

L0638
4285

L1764

31574
33734
36854

SEQ 0134

14834

“4LB85#

39464
15004

ASSEMBLY ROUTINES
MACY11
17-FEB-78 09:08
DOCTOR.P11
15964
19554

22654
2713
2907#
3095#
32264
3L96H

15984

19574

2267#
275#
2911#

30A(1052)

F_11
11:50
PAGE 137
CROSS REFERENCE TABLE -- MACRO NAMES

29-DEC-78

16294

20144
23644
2774M

16364
20244
23704
27784

16384
20324
2384a
2781w

35874

36854

29384
31554
33304
16064

SPUT

25924
30814
L1044

2189
37314
40804
42504

22534
37404
4081
4251

22448
26024
30104
32484
36714

22924
26434
30514
32504
36874

13974
17654

40214
$THEN

16064

SUNTL?

3
SUNTL

SWwHILE

$SGEN

$SGETT

16174

18154

16094
17664

40954

16494

16744
26084
30994
4236k

17214
27184
31454
L3614

2255
3741

23554
37604

36944

1817

4156
4287
14644
18404
23504
26514

41104

41144

16744

13974
16844
19604

14054
16904
19654

16328
17208
19664

14440
17524
19814

37554
40234
44124
13954
16904

41104

41144

13974
17524

14094
17654

1438#4
17664

2224m
262#

32204
35164
39674

19414

28904
3207
18664

14704

15704

21454

24424
26514
30104
32464
34254
38234

37874
40954

21814
25584

22924
25854
29484
31294
33454
37554

40214

29314
31194
33374
36874

40954

22444
25794
29324
31214
3344
37214
41094

41104

L1144

25574

26454

29184

29314

29574

29194
NM1a
32954
36714

19534

17214

27184
31454
L3614
37944
37944

201148
26464
29644
3244k
34248
37894

18074

20974
24214
28224
30124
31844
34824
39364

30744
33374
37554

26084
30994
L2346k
36874
36874

23504
26434
2958#
32204
34224

28094

18264

4154k
L2784
14384
17714
23064
26464

30664
32954
37214

16984

20944

38784

25924
30814
41044
32954
32954

2451

L272%
13714

16524

20824
2414M
28064
2946a
31784
34734

25678
3079#
397284
27034
27034

23274
25988
29504
32124
34,004

$SGE TS

16494

25678
30794
39724
17574

$SUBON

2940#
3157#
33734

16454

206404
23884
27934
244N
31504
36714

SEQ 0135

37874

ASSEMBLY ROUTINES

DOCTOR.P11
$POP

30A(1052)

39674

39914

17-FEB-78 09:08

3344

10954
1617
1960

2651
2703
30664
3220

$SPUSH

MACY11

%0940

33624

12354
16214
19654

24654
2745
3073
3244m
3517
39914

13714

6.1

29-DEC-78
11:50 PAGE 138
CROSS REFERENCE TABLE == MACRO NAMES

13974
17524
22244

25624

SEQ 0136

14094
17654

16164
1959

2244H
2574

4310
1096
1444H

1618
17864
1982

$ESETS

10944

25924

3334m
36804
IARRY,

41174
43564

. ABS.

4334n

053416

ERRORS DETECTED:

(ZDZ(B.BIN,(C2DZ(B.SEQ/CRF/SOL/NL
: TOC=SMA( /ML ,SPMA( /ML ,(2DZ(B.P11
RUN-TIME: 100 97 8 SECONDS
RUN-TIME RATIQ: 531/207=2.5
33k
(65 PAGES)
CORE USED: