Digital PDFs

AH-A920B-MC

January 1979

137 pages

Original

76MB

view download

OCR Version

110MB

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_gray.pdf

OCR Text

VT62/DZ11

‘wiess

e D

AH-A920B-MC

JAN 1979

FICHE 1 OF 1

'MADE INUSA

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

000000

30A(1052)

29-DEC-78

PAGE
1

SEQ 0001

.REPT 0

2
7

11:50

IDENTIFICATION

PRODUCT CODE:

AC-A9198-M(

‘1l;

PRODUCT NAME
:

CZDZCBO VT62/DZ11

112

DATE :

1-DEC-78

1'2

MAINTAINER:

DIAGNOSTIC ENGINEERING

;;

AUTHOR:

MICHAEL DENSMORE

TST

LAYRVF ARURTS

THE

INFORMATION IN THIS DOCUMcNT

IS SUBJECT TO CHANGE WITHOUT NOTICE

AND

SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
FOR
ANY
ERRORS
THAT MAY APPEAR WITHIN.

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE
AND
MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR
RELIABILITY OF

ITS SOFTWARE ON EQUIPMENT

THAT

THE

USE

IS NOT SUPPLIED BY DIGITAL.

1977, 1978 DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

ASSEMBLY ROUTINES

CZD2(B.P1

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

21-NOV-78 16:33

SEQ 0002

PAGE 2

40
/.12

REVISION HISTORY

REVISION
A

BY:
M.

DENSMORE

ORIGINAL RELEASE

11:50

29-DEC-78

)
PAGE 3

SEQ 0003
PAGE 3

STARTING AND RUNNING THE PROGRAM
.1 START
o

2 RESTART
2 CONT INUE

SSeedd

(SR

EaR S

k2P 2P o

LOAD PROCEDURE

ZERO FLAGS

.5 ADD UNITS

.6 DROP UNITS

.7 DISPLAY PTABLE
.8 SWITCH OPTIONS
ERROR AND INFORMATIONAL MESSAGES
RESTRICTIONS

MISC.

TEST DESCRIPTIONS

.1 MICRODIAGNOSTIC
.2 LOOPBACK
INDEX

WY
N

EQUIPMENT REQUIREMENTS

S
2 \OONN

GENERAL
.1 ABSTRACT
.2 DEFINITIONS
.3 DESIGN NOTES
.4 DDCMP

TABLE OF CONTENTS

. SRR

30A(1052)

ASSEMBLY ROUTINES
MACY11
C2pz(B.P1
21-NOV-78 16:33

ASSEMBLY ROUT INES
MACY11 30A(1052)
CZDz(B.P1
21-NOV-78 16:33

29-DEC-78

E
PAGE 4

11:50

SEQ 0004

-0

PAGE 4

GENERAL
ABSTRACT
CZDZC RUNS THE SELFTEST FOR THE VT62
THE

LINK

BETWEEN

INTERFACE.

OTHER

THE

TERMINAL

AND THE HOST.

AND

EXERCISES

THIS PARTICULAR VERSION

SUPPORTS MULTIDROP, FULL DUPLEX COMMUNICATION VIA THE DZ-11 COMMUNICATION

VERSIONS

(MAINDEC-11-DZDPG

AND

MAINDEC-11-DZDVP)

SUPPORT THE DUP=11 AND DV=11 COMMUNICATION INTERFACES RESPECTIVELY.

PROGRAM

VT62'S.

XXDP

oowowbwm—-oom\:ombwm-ogg

D
D

ViS

-b —

)

D e

D ed

WWWWN MNONVUNYNUNIPNINUNINY
~ = =
e d = d
N=O0

R
e 3-

PAY PARTICULAR ATTENTION TO SECTIONS 3.0 THROUGH 6.0

DEF INITIONS
MODEM EQUIPMENT,
ALSO
KNOWN AS
A
‘DATASET'',
WHICH
PERFORMS
THE
MODULATION/DEMODULATION OF DATA SIGNALS.
THIS UNIT PROVIDES TIMING
FOR SYNCHRONOUS COMMUNICATION 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 = A TABLE OF

107

THE

AND SUPPORTS SEQUENTIAL TESTING OF UP TO 8

PLEASE READ ALL SECTIONS OF THIS DOCUMENT CAREFULLY BEFORE USING

THE PROGRAM.

1.¢

COMPATIBLE

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 CHEfigg'L(l;l = CHECKSUM USED IN DEC NETWORK PROTOCOL
(CYCLIC
REDUNDANCY

MICRODIAGNOSTIC = THE MICROCODE

IN THE VT62 THAT PERFORMS THE

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

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 CHARACTERISTIC OF STRUCTURED DESIGN ,AS IT
AFFECTS THE USER, IS HOW ERRORS ARE REPORTED.
THE TOP-DOWN DESIGN OF THE

PROGRAM RESULTS IN A BOTTOM-UP

REPORT

ERROR

INFORMATION.

MESSAGE

WOULD

GIVE

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

ERROR.

THE

FIRST

ERROR

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
{gFggI:?LégN WOULD BE GIVEN.
THE REPORTS CONTINUE UNTIL THE HIGHEST LEVEL

COMMENT FIELDS

THE

LISTING

WITH

SQUARE

BRACKETS

([])

REFER

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

30A(1052)

29-DEC-78

11:50

F
PAGE 5

SEQ 0005

137

PAGE 5

140
}2;

FUNCTIONAL BLOCKS
IN
THE
DESIGN AND HAVE NO SIGNIFICANCE TO THE USER.
THEY ARE RETAINED FOR USE BY PROGRAM MAINTAINERS.

143

144
145
_}29

1.4

148
149
150
151
152

DDCMP

THIS SECTION GIVES A VERY BRIEF DESCRIPTION OF
DDCMP AS
USED
BY
THIS
DIAGNOSTIC.
THE DESCRIPTION IS BY NO MEANS COMPLETE:
IT IS INTENDED TO
HELP THE USER UNDERSTAND ERROR REPORTS.

THERE ARE THREE TYPES OF DDCMP MESSAGES:
CONTROL,
DATA AND BOOTSTRAP.
THE
BOOTSTRAP MESSAGE IS NOT USED BY THIS DIAGNOSTIC.
THE DATA MESSAGES
CONSIST OF A 6-BYTE HEADER, A 2-BYTE CRC FOR THE HEADER, THE DATA
ITSELF
AND A_2-BYTE
CRC FOR THE DATA.
CONTROL MESSAGES CONSIST OF THE HEADER
(AND ITS CRC) ONLY.
ALL CONTROL MESSAGES HAVE AN "ENQ'‘ CHARACTER AS
THE

153
154
155
]lgg

FIRST BYTE.
ALL 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.

158
159

THERE ARE FOUR CONTROL MESSAGES USED BY THIS DIAGNOSTIC:
ACK, NAK,
STRT
AND
STACK.
ACK
IS AN ACKNOWLEDGEMENT THAT THE LAST MESSAGE SENT WAS

161
162
163

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

165

STATIONS.

160

PROPERLY RECEIVED.

164

FOR THE ERROR.

166

172
173
174
175
176

STRT

2.0

TERMINAL.

CLOCK

;lgg

TO THE LOGICAL UNIT

190

COMMUNICATION

THE

STRT-STACK

OPTION

NOT

BETWEEN

TWO

SEQUENCE

USED

A CONSOLE
REQUIRED, BUT ONLY ROUGH TIMING IS

BE IN ASYNCHRONOUS MODE AND ON~LINE.

THE TERMINAL ADDRESS SWITCHES

ON THE CONTROL BOARD MUST BE SET TO MATCH THE TERMINAL

3.0

}g‘so

189

INITIATE

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

188

EQUIPMENT REQUIREMENTS
THIS PROGRAM REQUIRES A PDP-11 WITH A MINIMUM OF 16K CORE AND

177

186
187

USED

BEFORE AND AFTER EACH TEST.
ALL MESSAGES ARE REQUIRED TO BE ACKNOWLEDGED
WITH EITHER A DATA MESSAGE OR AN ACK.

178

181
182
183

THE RECEIVING STATION SETS ITSELF UP AND ACKNOWLEDGES THE STRT

WITH A STACK, OR START ACKNOWLEDGE.

167
;28
170
171

NORMALLY, MESSAGES ARE ACKNOWLEDGED BY SENDING A DATA

(SEE SECTION 4.0).

ADDRESS

ASSIGNED

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

STARTING AND RUNNING THE PROGRAM

THE STARTING ADDRESS FOR THE PROGRAM IS 200.
IF

CLOCK

(KW11=L OR KW11-P)

PRINTER IS AVAILABLE.

IS AVAILABLE.

THE PROGRAM WILL FIRST

ASK

IT WILL THEN ASK IF A LINE

IF A LINE PRINTER IS SPECIFIED, THE

PROGRAM

WILL

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

30A(1052)

29-DEC-78

11:50

PAGE 6

SEQ 0006

191

PAGE 6

192

193

194

ASK FOR ITS ADDRESS

195
196
197

(DEFAULT = 177514).

SIZE, Q-BUS OPTION AND LINE FREQUENCY.

THE PROGRAM ALSO ASKS FOR MEMORY

IF NEITHER

CLOCK

SPECIFIED,

THE PROGRAM WILL ASK THE USER TO TYPE TWO CHARACTERS, FIVE SECONDS APART,

IN ORDER TO 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(AG).
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

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 SOFTWARE FLAGS SUCH AS
‘100P ON ERROR''.
THE

FLAGS USED BY THIS PROGRAM ARE DESCRIBED IN SECTION 4.8.
4.

START

THE START COMMAND (STA) ZEROS ALL FLAGS (PRINT ALL ERROR MESSAGES AND
DO
NOT
LOOP
WITHIN
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, [J], RELATE THE TYPEOUT TO THE EXPLANATION
TYPED

IN ACTUAL OPERATION.

ALSO DESCRIBED BELOW.

BELOW

AND

ARE

CR REFERS TO THE RETURN KEY

(CARRIAGE RETURN).

DIALOGUE
# UNITS

(DECIMAL)

DZ ADDRESS:

DZ VECTOR:

(OCTAL) NNNNNN

TERMINAL ADDRESS:

(OCTAL) N

BAUD RATE:

(OCTAL) N

STOP CODE/CHAR. LENGTH:

HOW MANY

[6l
(71
?

(Y OR N)

INITIATE

(4]

(OCTAL) N

CHANGE S.W.

£33

(OCTAL) N

LINE NUMBER:
?

[2]

(OCTAL) NNN

DZ BUS PRIORITY:

(OCTAL) N

[8l

TRIES BEFORE ABORT ?

USE ALL ZCRO'S FOR LOOPBACK DATA ?

(OCTAL)

(Y OR N)

[10]

EXPLANAT
ION

[1]

TYPE THE TOTAL

THROUGH

WILL

NO.

NOT

THE PROCEDURES FOR HANDLING TYPING ERRORS ARE

UUT'S

REPEATED

UNTIL

DECIMAL.
ALL

QUESTIONS

UUT'S

HAVE BEEN

29-DEC-78

11:50

PAGE 7

SEQ 0007
PAGE 7

DESCRIBED.

THE USER DOES NOT HAVE TO ANSWER THESE QUESTIONS

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

[2]

[3]
(4]
£53

[6]
(7]

ENTER MULTIPLE WUT'S.

TYPE THE BUS ADDRESS OF THE DZ.

THIS MUST BE AN EVEN

NUMBER NOT_GREATER THAN 177776.

THE DEFAULT VALUE:
NNNNNN.
TYPE THE VECTOR ADDRESS FOR THE DZ.

OCTAL NUMBER NOT GREATER THAN 376.
USE THE DEFAULT VALUE:
NNN.
TYPE THE BUS PRIORITY LEVEL OF

CngO Tg 7.

OCTAL

THE USER MAY TYPE (R TO USE
THIS MUST

EVEN

THE USER MAY TYPE (R TO

THE DZ.

THIS MUST BE A DIGIT

AGAIN, THE USER MAY TYPE CR TO GET THE DEFAULT

TYPE THE TERMINAL ADDRESS FOR EACH TERMINAL ATTACHED TO

THE

DZ
LINE.
SEPARATE EACH ADDRESS WITH A COMMA.
THIS IS THE
ADDRESS SELECTED BY THE SWITCHES ON THE
I1/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

GIVEN IN THE TABLE BELOW.
TYPE

0
1

2
3

RATE

DESIRED.

THE

CODES

TYPE CR TO GET THE DEFAULT:

ARE

BAUD RATE TABLE

TO GET THIS RATE

110
134.5

5
6
7
-

1
1

1
1
1
1

SN
oo
o
o

CZDz(B.P1T

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

NOWNSBWN—=O

ASSEMBLY ROUTINES

19,200

FOR FASTER TESTING,

USE AS HIGH A BAUD RATE AS PRACTICAL.

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

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

TYPE

STOP CODE/CHARACTER LENGTH
STOP _CODE

1 BIT

LENGTH

5 BITS

CHARACTER

LENGTH.

MACY11 30A(1052)

21-NOV=78 16:33

29-DEC-78

299
300
301
302
303

SEQ 0008

NOAWN
S W) —

PAGE 8

BRIRAR
b
e o
b
sl st
) i
b b

O CONOVNS W=D

W WWWWWWWWW

320

11:50 PAGE g

Q0 ~NONWN0O
O

ASSEMBLY ROUTINES

CZDZCB.P11

2 BITS

IF THE USER WISHES TO CHANGE
EITHER OF
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''.

103 TYPE THE NUMBER OF
INITIALIZE

TIMES

DUP

THE

BEFORE

PROGRAM

ABORTING THE UNIT.

TYPE ANY OCTAL NUMBER BETWEEN O

AND

177777.

ATTEMPT

TYPE

THE USER MAY
CR

DEFAULT TO 10 (OCTAL) ATTEMPTS.
(111 IF _THE USER TYPES 'Y'', THE LOOPBACK DATA WILL BE 255 ZERO
BYTES.
IF
THE USER TYPES 'N'‘, THE LOOPBACK DATA WILL BE A
PATTERN OF ALTERNATING 1 AND O BITS.

SECTION

8.2

FOR

EXAMPLE OF DIALOGUE
FOLLOWING
HARDWARE CONF IGURATION:

DETAILS ON THE LOOPBACK TEST.

ASSUME

THE

SEE

(160000,300,3)
WITH
TWO
TERMINALS
(ADDRESSES O AND 1) ON
LINE O, A SECOND DZ (160010,320,3) WITH A _SINGLE
TERMINAL
(ADDRESS
5)
ON LINE
2 AND A THIRD DZ (170000,340,4) WITH
THREE TERMINALS (ADDRESSES 0) ON LINES 1,
2
THAT
VARIABLE
BAUD RATES CAN BE SPECIFIED.

AND
3.
NOTE
THE USER WOULD

USE Tf;ET;OLLWING DIALOGUE TO SET UP THE PROGRAM:
# UNITS ?

(DECIMAL)

DZ ADDRESS:
DZ VECTOR:

?
?

(OCTAL)
(OCTAL)

DZ BUS PRIORITY:

TERMINAL ADDRESS:

LINE NUMBER:

BAUD RATE:

160000
310

300

(OCTAL) 4 3
?

(OCTAL)

0,1

(OCTAL) 0

? (OCTAL) O

STOP CODE/CHAR.

LENGTH (SEE DOC.):

DZ ADDRESS:

(OCTAL)

DZ VECTOR:

? (OCTAL)

160000

300

160010

320

(OCTAL) 0

ASSEMBLY ROUTINES

CzpzCB.P1

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

29-DEC-78

11:50

J
PAGE 9

SEQ 0009
PAGE 9

DZ BUS PRIORITY:

? (OCTAL) 3

TERMINAL ADDRESS:

(OCTAL)

LINE NUMBER:

? (OCTAL) 0

BAUD RATE:

(OCTAL)

STOP CODE/CHAR. LENGTH (SEE DOC.):
DZ ADDRESS.

(OCTAL)

160010

DZ VECTOR: ? (OCTAL) 320
DZ BUS PRIORITY:

TERMINAL ADDRESS:

LINE NUMBER:
BAUD RATE:

170000

340

(OCTAL) 3
?

(OCTAL)

? (OCTAL) 2

? (OCTAL)

? (OCTAL) 7

5
5

1-3
7,16.7

STOP CODE/CHAR. LENGTH (SEE DOC.):
CHANGE S. W.

? (YOR N)

? (OCTAL)

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

(2)

(3)

ggEO:LBOUY KEY IS USED TO DELETE ANY CHARACTERS WHICH ARE

IF THE RESPONSE IS NOT WITHIN LIMITS

FORMAT,
THE
PROGRAM
QUESTION AGAIN.

WILL

NOTIFY

THE

USER

WHEN ENTERING MULTIPLE TERMINAL ADDRESSES FOR A

THE

AND

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.
REMEMBER;
THE SERIES
OF
QUESTIONS
(2
THROUGH
5)
WILL BE RE-ASKED UNTIL ALL WUT'S
HAVE BEEN ACCOUNTED FOR.
4.2

RESTART
THE RESTART COMMAND (RES) STARTS THE PROGRAM WITHOUT CLEARING THE PTABLE.
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 PLACE 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

THE HARDWARE

SOFTWARE

TABLE.

TABLE QUESTION,

THE USER ANSWERS YES

THAT PORTION OF

THE

(BY

DIALOGUE

TYPING ‘Y'")

DESCRIBED

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

30A(1052)

29-DEC-78

11:50

PAGE 10

SEQ 0010

406

PAGE 10

08
409

SECTION

410
2}:12

4.1

BEGINNING

WITH QUESTION 1 ENDING WITH QUESTION 5 WILL TAKE

PLACE.
IF THE USER_ANSWERS YES TO THE SOF TWARE TABLE QUESTION,
BE ASKED QUESTIONS 7 AND 8.

413

THE MOST COMMON USE OF THIS COMMAND IS TO CHANGE

414

ADD/DROP

UNITS.

416

CHARACTER

('>'")

415

OPTIONS.

617

PURPOSE.

2}3

THESE

FLAGS

ARE_DESCRIBED

TYPING A '*“C'' WILL FORCE_THE

NOTE:

SO_

THAT

RUN-TIME

SUPERVISOR

FLAGS

WILL

SECTION 4.8 - SWITCH

ISSUE

PROMPT

THE USER MAY USE THE RESTART COMMAND FOR THIS

IF THE USER USES THE START COMMAND AFTER A “C,

HAVE TO REENTER ALL DEVICE INFORMATION!

WILL

420
421
422
423
424
252

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.

427
428

4.4

ZERO FLAGS
THIS COMMAND WILL ZERO

429
430

2%;
433

434

ALL

FLAGS

(SECTION

4.8)

4.5

435

PROMPT.

ADD UNITS

FROM THE TEST PROCEDURE AND, LATER ON, BEGIN TESTING THAT UNIT AGAIN.

THIS CASE, THE USER NEED NOT STOP THE DIAGNOSTIC AND REBUILD THE

AFTER

440

WHERE N IS A DECIMAL UNIT NUMBER THAT SPECIFIES THE

:gg

UNIT

HAS

PTABLE.

BEEN DROPPED (SEE SECTION 4.6), THE USER MAY ADD THE

UNIT BY TYPING '*““C'' AND USI'AigD;mIAaD COMMAND AS FOLLOWS:

441

UNIT

ADDED.

MULTIPLE UNITS MAY BE ADDED BY

TYPING

UNITS ARE NUMBERED FROM 1 TO 32 ACCORDING TO THE ORDER IN WHICH THEY WERE

442

SPECIFIED FOR THE HARDWARE TABLE.

443
444
445
446
22;

455

WHILE TESTING MULTIPLE UNITS, THE USER MAY WISH TO DROP A PARTICULAR UNIT

437

456
457
458
459

TYPE

PRINTED IN THE EVENT OF AN ERROR.

436

449
450
451
452
453
454

AND

SECTION 4.8 DESCRIBES THE EFFECTS OF CLEARING ALL FLAGS, BUT ESSENTIALLY,
ALL LOOPING AND HALTS WILL BE DISABLED AND ALL ERROR INFORMATION WILL BE

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
BY A DASH (I.E., ADD/UNI:1-10 WILL ADD THE FIRST TEN UNITS). NOTE:
AFTER A START COMMAND, ALL UNITS ARE CONSIDERS ADDED.
THERE IS NO NEED
TO USE THE ADD COMMAND UNLESS THE UNIT WAS DROPPED.
4.6

DROP UNITS
TO REMOVE A UNIT FROM TESTING, THE DROP COMMAND (DRO) IS USED.
TO USE
THIS
COMMAND,
TYPE
'“(''
AND DROP THE UNIT(S) USING THE DROP COMMAND AS
FOLLOWS:
:
DRO/UNI
:N
WHERE 'N'' IS A DECIMAL
UNIT NUMBER WHICH SPECIFIES
THE
UNIT
TO BE

DROPPED.

UNITS ARE NUMBERED FROM 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
TYPING
THE
FIRST AND LAST
UNIT NUMBERS OF
A
CONTIGUOUS
GROUP SEPARATED BY A DASH (I.E., DRO/UNI:1-9 CAUSES THE FIRST

ASSEMBLY ROUTINE

CZpz(B.P1

MACY11

21-MJV-78 16:33

30A(1052)

29-DEC-78

11:50

PAGE 11

SEQ 0011

460

PAGE 11

463

NINE UNITS TO BE DROPPED).

22?

466
467
468

4.7

471
472
473
474
475
2;(7:»

4.8

298

478

479
23?
482

AFTER THE PROGRAM IS RESTARTED, THE SPECIFIED

UNIT(S) WILL NOT BE INCLUDED FOR TESTING.

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.

SWITCH OPTIONS
THERE ARE THREE SWITCH OPTIONS AVAILABLE FOR_USE WITH THE
COMMANDS:
/TES:,
/PAS:
AND /FLA:.
THE TEST SWITCH, /TES:, IS USED ONLY WITH THE
START COMMAND AND THE
RESTART
COMMAND.
1T
IS USED
TO SPECIFY
THE
INDIVIDUAL
TEST(S) TO BE RUN IN CASES WHERE ALL TESTS ARE NOT TO BE RUN.
;%EEXMPLE. IF THE USER WISHED TO RUN THE LOOPBACK TEST ONLY,
HE WOULD

IF THIS SWITCH IS NOT
CONDITION.

>STA/TES:2

USED,

ALL

TESTS

WILL

RUN

THE PASS SWITCH IS USED TO SPECIFY THE NUMBER OF PASSES TO

THE
BE

DEFAULT
RUN.

483
484
485

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

488
489
490

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

239

28;

SHOWN IN THE TABLE BELOW.

493

FLAG

495

HLT

494

496
497

498

499
500
501

502
503

EFFECT IF SET

LOE

LOOP ON ERROR

HALT ON ERROR

IER
IBE

INHIBIT ERROR REPORTS
INHIBIT BASIC ERROR REPQRT*

IXE

INHIBIT EXTENDED ERROR REPORT*

PRI
BOE

SEND ALL TYPEOUTS TO THE PRINTER
BELL ON ERPOR

PNT

PRINT TEST NUMBER

UAM

UNATTENDED MODE (NO MANUAL INTERVENTION)

*SEE SECTION 5.0

504

EXAMPLE:

506

LOOP ON ERROR, HE WOULD TYPE:

509

EXAMPLE:

505

ggg

g]'?

512
513

COMMANDS.

THE DEFAULT CONDITION IS ESSENTIALLY AN INFINITE NUMBER OF PASSES.

IF THE USER WISHES TO RLN THE PROGRAM WITHOUT ERROR MESSAGES AND HAVE

>RES/FLA:LOE:IER

%CPEHE USER LATER WANTED TO STOP THE LOOP

NOTE:

ERROR

>CON/FLA:LOE=0
THE ERROR REPORTS WOULD STILL BE INHIBITED.

FEATURE,

WOULD

29-DEC-78

11:50

M1
PAGE 12

SEQ 0012

SVENC &

)t
ot et ot 9t(%]

ASSEMBLY ROUTINES
MACYH 30A(1052)
CZpzCB.P1
21-NOV-78 16:33

521

PAGE 12
ALL FLAGS ARE DEFAULTED TO ZERO (NOT SET).

5.0

ERROR _AND INFORMATIONAL MESSAGES

AS NOTED IN THE DESIGN NOTES (SECTION 1.3), A SINGLE ERROR MAY RESULT

SEVERAL

MESSAGES

BEING

TYPED.

THIS

DUE

TO THE STRUCTURE OF THE

PROGRAM.
EACH SECTION, IN THE EVENT OF AN ERROR, REPORTS THE INFORMATION
AVAILABLE
TO
IT.
THE
FINAL
MESSAGE FOR EACH ERR(R CONTAINS THE UNIT

NUMBER (DECIMAL
1 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

ADDI TIM DATA CONCERNING THE ERROR, SUCH AS REGISTER CONTENTS.

T0 IMIBIT SOME OR ALL ERROR MESSAGES, USE THE FLAGS DESCRIBED IN SECTION

4.8.

THE

INHIBIT-EXTENDED-ERROR-REPORT

FLAG (IXE) INMIBITS THAT LEVEL

ONLY.
THE INHIBIT-BASIC-ERROR-REPORT FLAG (IBE) INHIBITS BOTH BASIC
AND
EXTENDED ERROR REPORTS.
FINALLY,
THE INHIBIT-ERROR-REPORT FLAG (IER)
INHIBITS ALL TYPEOUTS.
TABLE OF ERROR NUMBERS
NO.

ERROR DESCRIPTION

00
01
02
03
04
20
21
22
23
24
25
26
31

CANNOT INITIALIZE DZ
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
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

¢
3
0

S5t¢ O3
MESSAGE DATA HAD CRC ERROR
ERROR OCCURRED DURING SELFTEST (TEST #1)

ERROR IN RECEIVED DATA

41 SEE 04
1

ERROR OCCURRED DURING LOOPBACK (TEST #2)

ASSEMBLY ROUTINE S
MACY11
CZbzcB.P1
21 -NOV-78 16:33

30A(1052)

29-DEC-78

11:50

N_1
PAGE 13

SEQ 0013
PAGE 13

70
71

6.0

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

RESTRICTIONS
THIS DIAGNOSTIC DOES NOT ATTEMPT TO TEST THE DZ11.

IF A LARGE NUMBER OF
COMM ERRORS OCCUR, OR IF ATTEMPTS TO SEND OR RECEIVE DATA TO AND FROM THE
TERMINAL FAIL;

7.0

USE THE SPECIFIC DZ11 DIAGNOSTICS TO VERIFY THE DZ11.

MISCELLANEOUS
PLEASE REPORT ALL PROGRAM PROBLEMS VIA THE AIDS REPORTING SYSTEM.
REFER
ALL
COMMENTS
REGARDING DOCUMENTATION TO DIAGNOSTIC ENGINEERING TERMINAL
GROUP IN MAYNARD, MASS.
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
F*)LL DESCRIPTION OF THE TEST IS AVAILABLE IN THE HARDWARE MANUAL FOR
THE

VT62.

ESSENTIALLY,

THE

TEST

VERIFIES

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
DISPLAYED ON THE LAST LINE OF THE SCREEN.
THE
FIRST
CHARACTERS ARE A
CODED ERROR REPORT FOR THE HOST COMPUTER AND THE REMAINDER OF THE LINE IS
AN ENGLISH DESCRIPTION OF THE ERROR STATUS.

8.2

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
&lEgfiDAgETZMEE POSSIBLE ERRORS DETECTED:
NO TERMINAL RESPONSE, BAD
(RC

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
THE PORTIONS OF

WILL

SHOW WHETHER THE TERMINAL IS COMPLETELY 'DEAD'' OR

THE COMMUNICATION LINK MENTIONED ABOVE ARE BROKEN.

THERE ARE TWO DATA PATTERNS
AVAILABLE
FOR
LOOPBACK:
_ALL
ZERQ'S
AND
ALTERNATING
1/0 BITS
(I.E.,
BYTES
OF 252,125.,252.125....).
THE ZERC

ASSEMBLY ROUTINES
MACY11
CzbzCB.P1
21-NOv-78 16:33

30A(1052)

29-DEC-78

11:50

PAGE 14

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

CZDzCB.P1

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

29-DEC-78

11:50

W
PAGE 15

SEQ 0015
PAGE 15

631

9.0

INDEX
B
R

DD R

CONTINUE COMMAND
. .
B o ia: i
e
e

. . .
N

. .
e

LODPRINER

&
e

PRILE

aas
v

i+
e P
START COMMAND .
LT
T
G
U
RN

A
.

e
.
R
e

RETN OPTIONE
T
A

Ty Y S

e LT

RESTART COMMAND

SMITOIOPTIONE

e
s

MATINE DTS
R

MATIALE WS
T

& o 3 5 .05 b 2% =

s
A

€5 i
. .
i

S
.

9-12

12-13

9-11

.
Sl
il

RS
.
R

c v
B

& = & ¢ ¢t 220o
&

10-11
4=5, 12
4=5
1
10

BOR MEPORT

.ENDR

s Ry
e SR
DISPLAY COMMAND . . . . . . . . . .
P COTNG
& o
s 0 oiialie

ERAOR TRPWER

672

ADD COMMAND . . . . . o » o v o o .

10-11

s. 12
6. 10-11
7
5,
12

s
e

1
6

IS St

10,

ASSEMBLY ROUTINES

CZDZ(B.P1N

673

MACY11

21-NOV-78 16:33

000000"

30A(1052)

29-DEC-78
PRINT

11:50

D 2
PAGE 16

sSPMAC: VERSION 1.1

SEQ 0016

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

g;é

002000
002000
002000
002000

683

002002

002001

002003

685
686

002004
002005

689
690
691

002010
002011
002012

694
695
696
697

002020
002022
002024
002026

2006
002007

002014
002016

103

002050
002051
002052

709
710
711
712

002054
002056
2060
002062

714

2066

713

715
716
717

718
719

720
721
722
723

002064

002070
002072
002074

002076
002100

002102
002104
002106
002110

LASCII /C/

LASCII 72/

LASCII /D/
LASCII /C/
BYTE
0

000
000

BYTE
BYTE

0
O

000000
000000
022020
022354
011672
011706
022612

WORD
WORD
.WORD
WORD
WORD
WORD
WORD

0
O
LS$HARD
LSSOFT
LSHW
LSSW
LSLAST

000000

WORD

000000
011716
000000
000000
000000

WORD
.WORD
.WORD
WORD
.WORD

O
LSDISPATCH
0
0
O

002
000000

.BYTE
WORD

CSEDIT
O

102
060

000000

707
708

POINTER ALL
BGNMOD HEAD
HEADER (2DZ2(C,B,0,0,0.0

103
000

705

HEADER = VT62 ACCEPTANCE TEST

104

700

002036
002040
002042
002044
002046

SEQ 0017

132

000000

701
702
703

LASCII 72/

0020

002032

PAGE 17

132

698
699

11:50

.=2000
:

678
679
680
681

692
693

29-DEC-78

002000

g;g

687

30A(1052)

ASCI1
LASCII

WORD

.WORD

002

.BYTE

/B/
/0/

CSREVISION

000000
000000
000000
000000

WORD
WORD
WORD
.WORD

O
O
O

011722

.WORD

LSRPT

002234

002250
002254
011724

011726

000000
011730
012322

.WORD

LSDVTYP

.WORD
.WORD
WORD

LSDR
LSDRST

WORD
WORD

ENDMOD

.WORD
.WORD
.WORD

LS$DU

O
LSINIT
LSCLEAN

ASSEMBLY ROUTINES

CZDZCB.P11

724

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

29-DEC-78

002110
SRR

726

sRRA

002110

11:50

¢
&
PAGE 18

BGNMOD GLOB

F AR AR

AR A AR AR AR AR AR

SEQ 0018

AR AR

Ak Ak

GLOBAL EQUATES

AR AR AR AR

kk
*

AR AR AR AR AR AR AR AR

AR Ak A

ARk kw

EQUALS

VT62 DIAGNOSTIC EQUATES
000201
000001
000002
000003
000005
000006
000007
000377

SOH=201

ACK=1

NAK =2
REP=3
ENQ=5
STRT=6
STACK=7
SYNC=377
DLE=220
0SOP=24.

PARITY 200

(DDCMP)
;START OF HEADER
s ACKNOWLEDGE
sNEGATIVE ACKNOWLEDGE '’
;REPLY

;ENQUIRY
;START

sSTART ACKNOWLEDGE
n
sSYNCHRONIZATION CHARACTER

sDATA LINK ESCAPE.

: LOOPBACK.

;PARITY BIT.
:NO. OF TESTS

sOFFSETS: RECEIVER CSR

XMTBUF
=6

MASCLR=20

MSCNEN=40
RXINTE=100
TXINTE=40000

INVDAT=100000
RENABL=10000
LINEMK=17

HYBYTE=177400

LOBYTE=377

;
:

RECEIVER BUFFER REG.
TRANSMITTER CSR

TRANSMITTER BUFFER REG.

sHARDWARE REGISTER BIT DEFINITIONS

;MASTER CLEAR

sMASTER SCAN ENABLE

;RECEIVE INTERRUPT ENABLE
s TRANSMIT INTERRUPT ENABLE
s INVALID DATA
sRECEIVE ENABLE
;LINE BITS MASK
sMASK FOR HIGH BYTE OF A WORD
sMASK FOR LOW BYTE OF A WORD

ASSEMBLY ROUTINES
MACY11
CZD2CB.P11
21-NOvV~78 16:33

30A(1052)

29-DEC-78

760

761

762

763

002110

000000

002112
002114
002116
002120
002122
002124
002126
002130
002132
002134
002136
002140
002142

000000
000000
000000
002000
000000
000010
000000
000000
000001
000000
000000
000000
000000

SCRTCH:
TEMP:
ABORT:
TIMLIM:
STIME
ILIMIT:
INERR:
OUTERR:
PASCNT:
EOMSG:
LOGDEV:
EXPINP:
OUTMSG:

778
779
780
781
782

002146
002150
002152
002154
002156

000000
000000
000000
000000
000000

INMSG:

785
786
787
788
789
790
791

002162
002162
002164
002166
002170
002172
002174

;gi’:

792
793

794

795

796
797
798
799
800
801
802
803

805
806
807
%

810
811
812
813
814
815

002144

002160

002176
002200

002202

2204

002206
002210
002212
002212
002214
002214
002216
002220
002222
002224
002226

000000

MSGAP:
ouUT:
INITMA:
INITMS:
BAPNT:
BASIZE:
MSGNO:
RMSGNO:
PTABLE:

000000

000001

0
0O
0O
0
0
0
0
0
0

0
NMOD:
O
PTEND:
DEVPRI: 0
L INMSK :

000000

052126
030532

SEQ 0019
A

RRARRRRRRNRRAN AR AR

sFLAG TO INDICATE IF RS5 STACK IS SET UP

sSCRATCH LOCATIONS

;TEST ABORT FLAG
sTIMEOUT LIMIT (IN 100 MICROSEC. INCREMENTS)
sSHORT TIMEOUT LIMIT (APPROX. 20 MICROSEC. INCREM.)

sLIMIT ON DEVICE INITIALIZATION ATTEMPTS

: INPUT ERROR
;OUTPUT ERROR

JEND_OF MESSAGES FLAG
;LOGYCAL DEVICE NUMBER
JEXPECT_INPUT FLAG
sOUTPUT MESSAGE POINTER AND SIZE

s INPUT MESSAGE POINTER AND SIZE

;OUTPUT BUFFER POINTER AND SIZE
;s INPUT BUFFER POINTER AND SIZE

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

000000
000000

002234
002234
002242
002246
002246

INSIZ:

000000
000000
000000
000000
000000
000000
000000
000000
000000

002230
002232

0
0
0
2000
0
10
0
0
1
O
0
0O
0

RN A RN RN RRRARARRARRA AR AR

AR AR R AR R AR R AR AR

0
0
OUTBUF: 0
ouTSIZ: 0
INBUF:
O

000000

000001
000002
000004
000010
000020
000040
000100
000200

RN RR AR

PAGE 19

GLOBAL DATA

RSSTCK: 0O

764
765
766
767
768
769
770
771
772
773
774
775
776

11:50

1
2
4
10
20
40
100
200

031066
000061

042054

;DEVICE PRIORITY
sMASKS FOR LINE SELECTION BITS (DZ11)
JLINE O
sLINE 1
JLINE 2
JLINE 3
sLINE 4
sLINE S

JLINE 6
JLINE 7

DEVTYP <VvT62,D211>

DEVREG 4,77 ,DZREG,DZMSK

LASCIZ

/vT162.D211/

.EVEN
.WORD

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

816
817
818

002250
002252
002254

000017
000004
000004

30A(105¢)

29-DEC-78

11:50

PAGE 20

2
SEQ 0020

.WORD
.WORD
BLKW

17
4
&

ASSEMBLY ROUTINES

CZbzCB.P1

122
044040
041516

050105
051501
051117

“
AR AR R R AR AR AR

LASCIZ /CAN NOT INITIALIZE COMM DEVICE/

MSGO1:

/REPLY WAS NOT AN ENQ/

MSGO2:

/INCORRECT REPLY TYPE/

MSGO5::

020104
020122
041505

051101
047040
052105

/CARRIER NOT DETECTED AFTER 10MSEC/

046120
042520
103
051105
042040
042524
042524
051515

ONS
oY
0wV
Wn=wun-=au
==
O=W—
OSSNV

050105
051501
040440
000121
047503
020124
020131

MSGOO:

=
wViN=
NN
SN

020116
047111
044514
517
044526

==
& OCO=N)

002
002372
002375
002402
002410
002416
002424
002432
002437
002437
002444
002452

040503
020124
040511
041440
042504
000
122
053440
052117
047105
047111
041505

AR AR

SEQ 0021

MSG42:

MSGO3:

/REPLY HAS

MSG41:
MSGO4:

/HEADER HAS (RC ERROR/

MSG10:

/ERROR DURING KEYBOARD

MSG11:

/BAD RESPONSE FROM KEYBOARD/

MSG12:

/TO0 MANY CHARACTERS

INCORRECT STATION ADDRESS/

TEST

END OF

REPQORT

843
844
845
846

002264
002272
002300
002306
002314
002322
002323
002330
002336
002344
002350
002356

—

840
841
842

SRR AR AR A AR AR AR AR AR

839

R R AR AR AN AR AR AR AR

GLOBAL TEXT

VIV

831
832
833
834
835
836
837

jolele)
RRGER FRG SRZ
® o RORGR
OW=—=rOHN
&

823
824
825
826
827
828
829

21-NOV-78 16:33

RRRRRR RBRR RRORRRT GR/R
NON NN S
§ S0 NNV NWO —=ON
\fl‘:srfl\h\h—‘ —— N
O=0ONOH
=aryrowvin)
nNO
=N ON?
RNWVMS WO
NVwhonoomn
s
il

819
820
821
822

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

SENT

FROM KEYBOARD/

21-NOV-78 16:33

lole]
oo
3 =
FRRRIFRROIARR
NOANN==NINO
= =
& N = 3 NN = B ) ek
a3 N

11:50

PAGE 22

MSG20:

.ASCIZ /TRANSMIT ERROR: NO TRANSMIT INTERRUPTS/

050105

MSG40:
MSGZ1:

.ASCIZ /RECEPTION ERROR/

00
041501

MSG22:

.ASCIZ /NO ACK RECEIVED AFTER TRANSMISSION/

MSG23:

.ASCIZ /ERROR WHILE INITIALIZING COMM DEVICE/

MSG24:

.ASCIZ /ERROR DURING COMM DEVICE TRANSMIT/

MSG25:

.ASCIZ /NO STACK IN RESPONSE TO STRT/

MSG26:

.ASCIZ /ERROR DURING COMM DEVICE RECEIVE/

.ASCIZ /CAN'T GET CLEAR TO SEND/

.ASCIZ /TIME OUT: NO CHARACTERS FROM TERMINAL/

.ASCIZ

000
020122

042

051122

OO
= 2NN
=N
(VL LWV, To NANDE O
e PPN

O0OON
L -=0OWV

MSG31:

MSG32:

) = = \ N\
N\

n
o

—

O
W
N
n

w
KX RSFER] RGR o
KRROR n

N =2

R
R

=SNHONHO

R
W

NEISIROINNS

= -al

om§dow

N = \ N =2

non
n S

20
W

2
25
v

—_—

=le]

—

N
W
N

RRRROA
RO

N == =2 \NO

8
R
&2
W

—)

-0
~N

—_

00
0

HNOWO

M-

MSG30:

NO==yO

Oeddcd =

044526

PN\
) =2 S OON) =2 O
NN
= LN =N
NNV

003111

900

042504
000
105

29-DEC-78

n
~

003102

30A(1052)

000104

NON% et A S LAY
NN 8—‘WON s

898

2
~N

—

002761

051101

882
883
884

002706

875

CZDzCB.P1

MACY11

(=]

ASSEMBLY ROUTINES

/7!ME OUT: MESSAGE FROM TERMINAL INCOMPLETE/

SEQ 0022

ASSEMBLY ROUTINES
MACY11 30A(1052)
CZbz(B.P1
21-NOV-78 16:33

29-DEC-78

11:50

PAGE 23

SEQ 0023

931
9
933

003
003370
003376

051505
043040
042524

040523
047522
046522

935
9
937
ggg

003420
003422

000105
040504

044440
046120

041516
052105

040524

041440

MSG43:

.ASCIZ /DATA CRC ERROR/

940
941

003441
003446

116
050040

4517
052101

042523
042524

MSG45:

.ASCIZ /NOISE PATTERN SUBTEST/

051117
047111
043114
000
051117
04711
050117
000
020101

MSG50:

.ASCIZ /ERROR DURING SELFTEST/

MSG51:

.ASCIZ /ERROR DURING LOOPBACK/

MSGS2:

.ASCIZ /DATA ERROR/

MSG70:

.ASCIZ /ILLEGAL SELF TEST RESPONSE/

MSG71:

.ASCII /MEMORY ERROR

MTY:

.BYTE 0,0
LASCII /M - BANK #/

BNO:

.BYTE 0,0
.EVEN
.ASCIZ /CROM ERROR/

942
943
%4
945
9%6
947
948
949
950
951
952
953

003404
003412

003430

003454
003462
003467
003474
003502
003510
003515
003522
003530
003536
003543
003550
003556
3564
003572

955
956
957
958
959

00
003611

961

003624

962
963
964

965

967
968
99
g;?

972
973
974
975
976
977
g;g

003616

003632
003635
003637

003644
003651

003654
003662

003670
003671
003672
003673
003674
003675
003676

046101
046517

8?}?%;

047122
042524
105
042040
020107
042524
1
0
020107
040502
1
051105
046111
020114
052040
042522
042523
115
020131
020122
042520
000
115
047101
000
003654
051103
051122
003670

042440

1440
052123
051122
051125
042523
052123
051122
051125
047514
045503
052101
047522
042514
042523
051505
050123
046505

042507
020115
047111

051122

041125
000

000122
040507
043114
020124
047117
051117

051105

047522

000
026440
020113
000

041040
043

517
051117

042440
000

020040

005
006
300
000
000
000
000000

054524

MSG72:

.EVEN
STRTB:

STRTSA:
STRTC:

980

982

981

983

003700

986

003704

ggg 88§;88 016746 176220
012746

003726

TYPE /

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.WORD

ENQ
STRT
300
0
0
0
0

AR R AR AR AN AN R AR

RN R R AR AN R AR AR RN RN R AR

GLOBAL ERROR REPORT

AN AR AN

BGNMSG AREAQQ

ARRA N RN RN R R R AR R AR R AR AR R R RN,

MOV

ILIMIT ,~(SP)

#F ORMOQ,
= ( SP)

ASSEMBLY ROUTINE S
cZpzCB.P1
2 =NOvV-~78
]

991
992
993

003724
003724
003724

SEQ 0024
MOV

ENDMSG

104023

FORMOOQ:

L10000:

LASCIZ /XAAFTER X06XA ATTEMPTSIN/

BGNMSG AREAO1
ENDMSG

) D D

D ol

104023

L10001:

BGNMSG AREAQ2
PRINTX #FORMO2,A024 ,A028

000030
000022
004020
000003

ADD

SP,RO
CSPNTX
#6,SP

EMT

C$MSG

#FORMO2 , = (SP)

SP.RO
CSPNTX

D d

000010

ENDMSG

—

(=}

AQ2A:
AQ2B:

FORMOZ2:

#10,SP

L10002:

0
0

C$MSG

LASCIZ /XARECEIVED X03%A -~ EXPECTED X03%N/

)

C$MSG

#3,-(SP)

d
D el

EMT

A02B,=(SP)
AO2A
.~ (SP)

D e

)

016746

——t

#2,-(SP)

050115
000
003760

d D wd D

o0
QVO\AJ\WN—hg 0 RN
RRRERRFARARIET SORORRR
R YA R

003710

987
988

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

AREA4?Z:

176022
176020
004020
000003

BGNMSG AREAQ3
PRINTX #FORM
TEMP O2,
,SCRTCH

SCRTCH,=(SP)
TEMP,~(SP)
#F ORMO2, = (SP)

#3,-(SP)
SP.RO

000010

CSPNTX

ENDMSG

—

)

D e

=leleleleleolelelele]

)

.EVEN

BGNMSG AREAO4

#10,SP

L10003:

CSMSG

ASSEMBLY ROUTINES
MACY11 30A(1052)
CZDZCB.P11
21-NOV-78 16:33

1043
1044

004116
004116

1046
1047
1048
1049
1050

004116
004122
004126
004132
004136

1045

1051

1052

004116

000030
000022
004154
000003

004142
° 062706

000010

1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063

004146
004146
004146
004150
004152
004154
004162
004170
004176
004204
004212

1066
1067

004220
004220

}82'5

1068
1069
1070
1071
1072
1073

1074

1075

1076
1077
1078
1079
1080
1081

1083
1084
1085
1086
1087
1088
1089
1090
1091

1092
1093
1094
1095
1096

1097
1098

AREA4T:
AREA4Z:

016746
016746
012746
012746
010600

004140

104015

040445
053111
033117
020055
052103
033117

004220

042522
042105
040445
054105
042105
047045

000030
000022
004154
000003

004244

062706

000010

004250

004250
004250
004252
004254
004256
004256

004256

004256
004260
004260
004260
004260
004262
004262
004262
004262

104015

042503
022440
026440
042520
022440
00

PRINTX #FORMO4 ,AO4RC ,AQ4EX

L 10004:

BGNMSG AREA11
PRINTX #FORMO4
,KRC ,KEX

ENDMSG
0
0
BGNMSG AREA21
ENDMSG
BGNMSG AREA22
ENDMSG

104023

AREA24:
AREA4Q:

005767
002002

000060

004276
004302

005067

000052

000064

MOV
MOV
MOV
MOV
MOV

AO4EX,=(SP)
AO4RC ,=(SP)
#FORMO4 , = (SP)
#3,-(SPS
SP,RO

ADD

#10,SP

EMT

CSMSG

MOV
MOV
MOV
MOV
MOV

KEX,=(SP)
KRC
. =(SP)
#F ORMO4
, = (SP)
#3,-(SP)
SP,RO

ADD

#10,SP

EMT

CSMSG

EMT

CSMSG

EMT

CSMSG

MOV

LOGDEV, TEMP2

ST
BGE

TEMP2
500008

CLR

TEMP2

EMT

104023

175650

SEQ 0025

CSPNTX

.EVEN

KRC:
KEX:

016767

AQ4RC:
O
AOLEX:
O FORMO4: .ASCIZ /%ARECEIVED X06X%A -- EXPECTED XO6IN/

104023
000000
000000

004262
004270
004270
004274
004276

PAGE 25

ENDMSG

016746
016746
012746
012746
010600

11:50

;

104023

004220
004224
004230
004234
004240
004242

29-DEC-78

EMT

L10005:

L10006:
L10007:

BGNMSG AREA23
LET TEMP2 .= LOGDEV

IF TEMP2 LT #0 THEN
LET TEMP2 := #0

ENDIF

CSPNTX

ASSEMBLY ROUTINES
MACY11 30A(1052)
CZDZCB.P11
21-NOV-78 16:33

1099
1100
1101
1102

004302
004302
004302
004306

005267

000046

004306
004312

016746
012746

000042
004356

1106

004322

010600

1108

004326

062706

000006

1110
1111
1112

004332
004336
004342

012746
012746
010600

004376
000001

1114

004346

062706

000004

1103
1104

1105

1107

1109

1113
1115

004316

004324

004332

004344

004352

1116

004352

1118

004354

1117

004352

012746

104015

004356
004364
004372
004376
004404
004412
004420
004426
004434
004442
004450

1132

004454

1134
1135
1136
1137

004454
004460
004464
004470

016746
012746
012746
010600

010476
004502
000002

004474

062706

000006

004500

104023

1133

1138

1139

004454

004472

1140
1141

004500
004500

1143
1144
1145
1146
1147

004502
004510
004516
004524
004532

1150
1151

004534
004534

114§

Hzg
115%
1153
1156

004534
004534

004536

004454
'

104015
.

040445
051105
042524
022440
000

SEQ 0026

500008:

042504
020072
000116
020040
020040
025052
047440
047522
047520
025052
000

INC

TEMP2

MOV
MOV

TEMP2,~(SP)
#FORM23, = (SP)

MOV©

MOV
EMT

PRINTX #FORM40

ENDMSG

L10010:

044526
042045

TEMP2:

FORM23:

020040
025040
042440
020106
020122
052122
025052

FORM4O:

.ASCIZ /%A

.ASCIZ

SP,RO

CSPNTX

#6,SP

MOV
MOV
MOV

#F ORM4O , = (SP)
#1,-(SP}
SP,RO

ADD

#4,SP

EMT

CSMSG

CSPNTX

/%ADEVICE: XD3IN/
xxxxx END OF ERROR REPORT #ax#«¥N/

.EVEN
BGNMSG AREA26

052502
041440
052116
033117

#2,-(SP)

ADD

EMT

PRINTX #FORM26 ,RDONE

;

MOV
MOV
MOV
MOV

EMT

ENDMSG

043109
04711
035123
047045

FORM26:

004534

.ASCIZ

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

ADD

#6,SP

EMT

CSMSG

MOV

R1,=(SP)

L10011:

/XABUFEER CONTENTS: X063IN/

.EVEN
AREA31:

010146

1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129

H‘;’?

PAGE 26

PRINTX #FORM23, TEMP2

104023

040445
042503
022463
040445
020040
025052
042116
051105
042522
025040
047045.

11:50

LET TEMP2 := TEMP2 + #1

000002

104015

000000

29-DEC~78

BGNMSG AREA30

PUSH R1
LET R

:= #DZREG

ASSEMBLY ROUTINES

CZDZCB.P11

1155

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

21-NOV-78 16:33

004536

012701

002254

1157
1158
1159
1160

004542
004546
004552
004556

016146
012746
012746
010600

000000
004666
000002

1162

004562

062706

000006

1164
1165
1166
1167

004566
004572
004576
004602

016146
012746
012746
010600

000002
004707
000002

1169

004606

062706

000006

1171
1172
1173
1174

004612
004616
004622
004626

016146
012746
012746
010600

000004
004731
000002

1176

004632

062706

000006

1178
1179
1180
1181

004636
004642
6
004652

016146
012746
012746
010600

000006
004752
000002

1156

1161

1163

1168

1170

1175

1177

1182
1183
1184

004542

004560

004566

004604

004612

004630
004636

004654
004656
004662

1185

004662

1187

004664

1186

1188

1189

1190
1191
1192
1193

004664

104015

104015
062706

PRINTX #FORM30,RCVCSR(R1)

040445

PRINTX #FRM30A,RCVBUF
(R1)

PRINTX #FRM308,XMTCSR(R1)

PRINTX #FRM30C,XMTBUF
(R1)

POP R1

ENDMSG

051040

”gg

8&4;22

051503
033117
045
041122

035122
047045
042101
043125

022440
000
020132
035106

1196
1197
1198
1199
1200
1201

004731
004736
004744
004752
004760
004766

045
041524
047445
040445
052502
047445

042101
051123
022466
055106
043106
022466

020132
020072
000116
052040
020072
000116

1203
1204
1205

004774
004774

1202

1206
1207
1208
1209
1210

004774
005000
005004
005006
005010

012746
012746
010600
104015
062706

033117

005016
000001
000004

MOV
MOV
MOV
MOV

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

ADD

#6,SP

MOV
MOV
MOV
MOV

RCVBUF
(R1) ,=(SP)
#FRM30A, - (SP)
#2,-(SP)
SP,RO

ADD

#6,SP

MOV
MOV
MOV
MOV

XMTCSR(R1) ,=(SP)
#FRM308 - (SP)
#2,-(SP)
SP,RO

ADD

#6,SP

MOV
MOV
MOV
MOV

XMTBUF
(R1) ,=(SP)
#FRM30C
, = (SP)
#2,-(SP)
SP.RO

EMT

004674
004702
004707
004714

022440

#DZREG,R1

EMT

000006

055104

MOV

EMT

012601
104023

SEQ 0027

CSPNTX

EMT
ADD

CSPNTX

#6,SP

MOV

(SP)+,R1

EMT

CSMSG

MOV
MOV
MOV
EMT

#1,~(SP)
SP.RO
CSPNTX

L10012:

FORM30: .ASCIZ /%ADZ RCSR: X06IN/
FRM30A:

.ASCIZ /%ADZ RBUFF: XO6IN/

FRM30B:

.ASCIZ /%ADZ TCSR: XO6IN/

FRM30C:

.ASCIZ /%ADZ TRUFF: XO6IN/

047045

.EVEN
BGNMSG AREAGO
PRINTX #FORM&0

ADD

#F ORMG0 , = (SP)

#4,SP

ASSEMBLY ROUTINES

CZpzcB.PN
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221

005014
005014
005014
005016
005024
005032
005
005046

1225
1226

005064
005066

1222
1223
1224
1227

1228

1229
1230

1231

005052
005052

005052
005056
005062
005072

104015
062706

000004
)

177242

005134

005112

175040

005267

177236

005116
005122
005126
005132

016746
012746
012746
010600

177232
004356
000002

005136

062706

000006

005142
005142
005142
005144
005152
005160
005166
005174

00520
00520

005202
005206
005212
005216
005222

104015

104023
040445
020124
052517
046040
041501

016746
016746
012746
012746
010600

023516
020124
046040
041501

FORMG0:

040503
042507
020124

047517
022513

177254

1266

005232
005232
005234

104023
040445

LET TEMP2 := LOGDEV

TEMP2 LT #0 THEN
LET TEMP2 := #0

ENDIF

EMT

CSMSG

MOV
MOV
MOV

#FORM61 ,=(SP)
#1,-(SP)
SP,RO

EMT
ADD

CSPNTX
#4,SP

MOV

LOGDEV, TEMP2

ST
BGE

TEMP?
50001$

CLR

TEMP2

INC

TEMP2

MOV
MOV
MOV
MOV

TEMP2,~(SP)
#FORM23,
= (SP)
#2,-(SP)
SP.RO

ADD

#6,SP

EMT

CSMSG
:

MOV
MOV
MOV
MOV
MOV

AS2B,~(SP)
AS2A.~(SP)
#FORMS2 .~ (SP)
#3,-(SP)
SP.RO

50001%:

LET TEMP2 := TEMP2 + #1

PRINTX #FORMZ23,TEMP?

EMT

ENDMSG
023516
020124
043117

FORM&1:

041120
000116

.ASCIZ /%ACAN'T GET OUT OF LOOPBACKIN/

ENDMSG
042520

FORMS2:

.ASCIZ /XAEXPECTED: XO3%A

CSPNTX

L10014:

.EVEN
BGNMSG AREAS?
PRINTX #FORMS2,A52A,A528

000074
000066
005234
000003

054105

.ASCIZ /XACAN'T GET INTO LOOPBACKIN/

1562 003596 063906 000010
12225 005232

1264
1265

L10013:

.EVEN
BGNMSG AREAG1
PRINTX #FORM61

005144
000001

005067

1243

1256
1257
1258
1259
1260

012746
012746
010600

005104

005112
005112
005112
005116

1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255

047111
047517
022513

040503
042507
047524
041120
000116

177250

1235
1236
1237
1238

1244

104023
040445
020124

005767
002002

005100
005100

SEQ 0028

ENDMSG

016767

005106
005106

1239
1240
1241
1262

21-NOV-78 16:33

005072

1232
1233

123%

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

EMT

CSMSG

L10015:
~RECEIVED: XO03IN/

ASSEMBLY ROUTINE
INES

CzpzCB.P1

1267

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

29-DEC-78

11:50

)

PAGE 29

3
SEQ 0029

NN NN NN PONINININNONININD

a3 % QEAR SR2 8 3@ \l\l\l\l\l\l\ls
NOCWN S NN
= 3

052103

022463

.EVEN
0
0

R R

AS2A:
AS2B:

R I

BGNMSG AREA70

ENDMSG

104023

L10016:

CEMSG

EMT

CMSG

BGNMSG AREA71

e I

ENDMSG

L10017:

dien T

104023

001452

000416
000100

R
B

EMT

011670

TEMBUF:
TMPBUF
:

SSTACK:

.BLKW 810.

.BLKW 270.
.BLKW 100
ENDMGD

sSTACK FOR SUBROUTINE L INKAGE
.

ASSEMBLY ROUTINES

CZDz(B.P11

1294

1295

21-NOV~78 16:33

011670

BGNMOD TABLE

1297

}g}z

DEFAULT HARDWARE P-TABLE AND SOF TWARE P-TABLE

IRRARRRRRR AR RAR AR AR R RN

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

000003
000010
000001
020000

160010
320
640
7030
1
ENDHW

000010
PATTERN:000701
STWAIT: 20000
ENDSW
IR

1316
1317
1318
1319
1320
1321
1322

:
IR

011722

AR R R

L10020-L$HW/2

WORD

L10021-L$SW/2

.WORD
WORD
.WORD

TSTS
TI
T2

L10021:
R R AR R R

R RN AR AR A RN ARR AR RN RN

DISPATCH TABLE
AR R AR R RN RN
DISPATCH TSTS

ENDMOD

LWORD

L10020:

BGNSW

1315

000002
017466
020516

AR RRCRARRARRRRRRARRARRR
AR
AN

BGNHW

000005
160010
000320
000640
007030
000001

011714

011714
011714
011716
011720

SEQ 0030

TR AR AR RN
AR RRRRRRRRRR IR RARRAN RN

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

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

AR R

RRRR RN R RRRRANRRNR RN

ANRRR R

*
RRNRRRA AR

ASSEMBLY ROUTINES

C2DZCB.P11

%%z

MACY11

21-NOV=78 16:33

30A(1052)

29-DEC=78

011722

11:50

PAGE 31

3
SEQ 0031

BGNMOD CODE

1325

;ltttttttttfittttttttttQ'ttttttttttttfitt*ttttt

1326

:STUB AREAS FOR SUPERVISOR COMPATIBILITY

1327

1328
1329
1330
}%%}

011722
011722
011722
011722

1333
133,
1335
}ggg

011724
011724
011724
011724

1338
1339
1340

011726
011726
011726

};2;

011726

BGNRPT
ENDRPT

BGNAU
ENDAU

BGNDU
ENDDU

1344,

1350
}ggé

011730

1356

}ggg

011730
011730

010146

1361
1;25

011732

011736

012700

104050

000040

1367
1368
1369
1370
1371

;g;g

g;g

1376

1377
1378

C$DU

AR R R AR AR

R AR RN

INITIALIZE CODING

MOV

R1,=(SP)

MOV

#EF .START.RO

BCC

50002%

MOV

#SSTACK
RS

INC

RSSTCK

50003$

RR AR

BGNINIT

PUSH R1

READEF #EF.START
EMT

CSREFG

“IF A START, THEN...

011740
011740

:
103005

}ggg
1366

EMT

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

1359

1360

CSAU

*SAVE R1

;%gz
1355

EMT

.'ttt't't..ttt.t.t.t'!ittt"tt'.'tti'.'Q..'Q"fi

1348

1349

AR AR

CSRPT

L10024:

104055
IR

EMT

L10023:

104054

1“5

1346

L10022:

104025

1343

1347

"tttttttfittfittl*tttttttt'ttt'titttttttfi'fitttt

IF .ERROR THEN

“INITIALIZE THE SUBROUTINE LINKAGE STACK
011742

011742
011746
011746
011752
011752

011754

012705

011670

005267

170136

000414

LET RS := #SSTACK
LET RSSTCK

:= RSSTCK + #1

ELSE

50002% :
“1F NOT START THEN....

“CHECK FOR RESTART

AND IF IT IS:

JUPDATE LOGICAL DCICE AND STAT. TABLE ENTRY POINTER,
;BUT DON'T EXCEED THE NUMBER OF UNITS SPECIFIED

ASSEMBLY ROUTINES

CZD2CB.P11
1379
1380
1381
1382
1383
1384
1385
1386
1387
1388
1389
1390
1391
1392
1393
1394
1395
1396
}%3;

011754
011754
011760
011762
011762
011764
011764
011770
011770
011776
012000
012000
012004
012004
012004
012004
012004
012004

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

21=NOV=78 16:33

012700
104050

000037

005267

170146

026767
001002

170142

005067

170132

LET LOGDEV := LOGDEV + #1

LET LOGDEV := #0
ENDIF

}2?8

005067

LET LOGDEV

170116

012020

JEND OF

}fl%

012020

1416

(€12024

}2};

012020

005067

003624

012024

005067

170066

LOGDEV

CMP
BNE

LOGDEV,LSUNIT
50005%

CLR

LOGDEV

MOV

#EF .NEW,RO

EMT

CSREFG

:= #0

BCC

50006$%

CLR

LOGDEV

CLR

INIT

CLR

ABORT

MOV

#RQUE T ,RQUE

MOV

RQUE
, RQUE UE

MOV

#RBQUE
T , RBQUE

MOV

RBQUE ,R1

MOV

#TEMBUF ,SCRTCH

MOV

SCRTCH,(R1)+

50006% :

START CODE

LET INIT

:= #0

LET ABORT

}2128
1421
1422
1423
14246
1425
1426
1427
1428
1429
1430
1431
1432
1433
1434

INC

sFORCE THE COMM DEVICE TC BE INITIALIZED

1414

1415

50004%

IT IS, FORCE LOGICAL UNIT TO ZERO.

ENDIF

1411
5

IF .ERROR THEN

103002

BCS

S0003s:

READEF #EF .NEW

000035

#EF .RESTART
RO
CSREFG

50004%:

ENDIF

012700
104050

MOV
EMT

50005%:

ENDIF

sUHECK FOR NEW PASS...
012004
012004
012010
012012
012012
012014
012014
012020

IF LOGDEV EQ LSUNIT THEN

170014

_11288
1401
1402
1403
1404
1405
1406
1407
1408

READEF #EF .RESTART
IF .NO.ERROR THEN

103410

SEQ 0032

:= #0

JSET UP THE INPUT BUFFERS QUEUE
012030
012030
012036
012036
012044
012044
012052
012052
012056
012056
012064
012064
012064
012064

012767

015674

003634

016767

003630

003624

012767

015712

003636

016701

003632

012767

005310

016721

170022

170026

LET RQUE

:= #RQUET

LET RQUEUE

:= RQUE

LET RBQUE

:= #RBQUET

LET R1

:= RBQUE

LET SCRTCH := #TEMBUF
REPEAT

LET (R')+ := SCRTI(H

50007%:

ASSEMBLY ROUTINES

CZDzZCB.P11

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

1435
1436

012070
012070

062767

000416

1438
1439

012076
012102

020127
003770

015716

1440
1441
1442
1443
1444
1445
1446
1447
1448
1449
1450
1451
1452
1453
1454
1455
1456
1457
1458

1459
1460

1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490

29-DEC-78

H.3
PAGE 33

11:50

SEQ 0033

LET SCRTCH := SCRTCH + #270.
UNTIL R1 GT #RBQUEB

ADD

#270. ,SCRTCH

cMP
BLE

R1,#RBQUEB

INC

MOV

LOGDEV,RO
CSGPHRD

50007

:GET THE PTABLE ENTRY FOR THIS LOGICAL DEVICE
012104
012104
012104
012104
012106
012106
012112
012114

REPEAT

LET R1

005201
016700
104042
010067

170024

:
500108

:= R1 + #

GPHARD LOGDEV,SCRTCH

EMT
MOV

167772

RO,SCRTCH

:1F UNIT HAS BEEN DROPPED, UPDATE POINTERS ETC. AND TRY AGAIN
012120
012120
012122
012122
012126
012126
012134
012136
012136
012142
012142
012142
012142
012144
012144
012144
012144
012146

IF .NO.ERROR THEN

103411
005267

LET LOGDEV := LOGDEV + #1

170010

026767
001002

170004

005067

167774

IF LOGDEV EQ LSUNIT THEN
LET LOGDEV

ENDIF

LET R1

005001

:= #0

ENDIF

50011%

INC

LOGDEV

CMP
BNE

LOGDEV,LSUNIT
50012%

CLR

LOGDEV

CLR

TST
BEQ

50012%:

50011%:

UNTIL R1 NE #0

005701

BCS

001756

500108

*NOW GET THE PTABLE DATA FROM THE SUPERVISOR AND STORE WITHIN THE
*DIAGNOSTIC PROGRAM
012150
012150
012154
012154
012154
012154
012160
012160
012164
012164
012172
012172
012176

012701

017711
062701

062767
020127
001366

002200

167732

000002

000002
002212

LET R1

:= #PTABLE

REPEAT

LET

(R1)

LET R1

:= @SCRTCH

:= R1

+ #2

LET SCRTCH := SCRT(CH + #2

UNTIL R1 EQ #PTEND

SGET THE LINE NUMBER AND ISOLATE T FOR FUTURE USE

MOV

#PTABLE
,R1

MOV

aSCRTCH, (R1)

ADD

#2.R1

ADD

#2,SCRTCH

CMP
BNE

R1,#PTEND

50013s:

50013s

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

012701
062701

002200
000006

1491

ASSEMBLY ROUTINE
CZDzCB.P1T
21 -NOvV=78 16:33

011101
177770

006301
016167

002214

003406

=N
—

VN —=On
VN = PNOVIHWON
WO

S ON) = =N

RRESZIRRS

:= (R1)

LET R1

:= R1 CLR.BY #177770

LET R1

:= R1 SHIFT #1

POP R1

VMSG:

MOV
ADD

#PTABLE
,R1
#6,R1

MOV

(RD,R1

BIC

#177770,R1

ASL

MOV

LINMSK(R1) ,$LINE

MOV

(SP)+,R1

L10025: .y

.ASCIZ /INXAYVT62 ACCEPTANCE

TEST

VERSION 10 TERMINALSIN/

CSINIT

051514

own

e
D
D D e

G00
012322

.EVEN
.'l'.t'.t.....Q'.".Q...."‘.'Q'.ttttt..t".-.'..

;

D i

LET R1

ENDINIT

LN Rl
R LN L LV LV LV LV LV LV TV TV IV, IV
NNV
b bbb v a oo

:= #PTABLE + #6

.
*RESTORE R1 AND EXIT INIT CODE
;

012601

LET R1

SEQ 0034

LET SLINE := LINMSK(R1)

D o

D D d D

) D d D

8\/‘8\11
QEGR SIS

042701

CLEAN=UP CODING

BEIFRRUKZE
TSN

BGNCLN

D ) s D —d D D e

".'..".fiti..'....Q..Ii.'t"i...i..'....l.'."'

NS W=D

D e

D D

el R

LW L

*MAKE SURE DEVICE IS SHUT DOWN

010146

016701

167650

005061

000004

052761

000020

012601

005267

PUSH R1
LET R1

000000

:= PTABLE

LET XMTCSR(R1)

:= #0

LET RCVCSR(RT)

:= RCVCSR(R1)

POP R1

:
SUPDATE PASS COUNT
167562

;

LET PASCNT := PASCNT + #1

*EXIT CLEAN=UP CODE

SET.BY #MASCLR

MOV

R1,-(SP)

MOV

PTABLE .R1

CLR

XMTCSR(R1)

BIS

#MASCLR,RCVCSR(R

MOV

(5P)+ R1

INC

PASCNT

ASSEMBLY ROUTINES

€ZDz(B.P1
1547
1548
1549
1550

1551

21-NOV-78 16:33

012350

012350
012350

012352

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

104012

ENDCLN
ENDMOD

SEQ 0035

L10026:

EMT

CSCLEAN

ASSEMBLY ROUTINES

CZbDz2CB.P11
1552

1553

MACY11 30A(1052)

29-DEC-78

21-NOV-78 16:33

012352

1554

SRR

155§"

11:50

PAGE 36

SEQ 0036

BGNMOD GSUB
AR

A R AR AR AR AR

GLOBAL SUBROUTINES
A AR AR AR R AR R AR R AR

AR R AR A RRARA RN R AR AR AR
AR AR AR

AR AN RN R AR AR

AR RN AR

AR AR RN

}gg?

E++¢¢+¢+¢¢+++++¢¢++0§+0+++00000+¢0+¢+++++4¢¢++¢++4++0+¢++04+¢¢¢+¢+¢

}552(1)

1558
1559

.
a

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

SIZE MAY BE ANY NUMBER OF BYTES

+
+

IN BYTES ("OUTSIZ')

1564
}5522

SETS A FLAG ("EXPINP'") IF RESPONSE OTHER THAN '‘ACK'' IS
TO BE EXPECTED

+
+

1567

1568

1569

R R

]é;(’)

012352

ROUTINE MSG

1572
1573
1574
1575
1576
} g%

012352
012352
012352
012352
012354
012356

DECLARE LOCALS
LOCAL <A>
ALLOCATE

010446
010604
162706

1581

;Ssg%

000002

012362

017764

167574

177776

}gg?

012370

012370
012376
012402
012406
012412
012412
012416
012420
012420
012424
012424
012432

016467
016746
042716
042667

177776
167510
000001
167500

005767
001405

167474

005267

167510

042764

000001

)

167514

MSG:

LET A(R4) := aMSGAP

LET SCRTCH := A(R4) AND #1

IF SCRTCH NE #0 THEN

»
LET EOMSG := EOMSG + #1
LET A(R4)

177776

:= A(R4) CLR.BY M

ENDIF

012432

MOV
MOV
suB

R4 ,-(SP)
SP.R4
#2,SP

MOV

aMSGAP ,A(R4)

MOV
MOV
BIC
BIC

A(R4) ,SCRTCH
SCRTCH,=(SP)
#1,(SP)
(SP) +,SCRTCH

TST

SCRTCH

BEQ

50002%

INC

EOMSG

BIC

#1,A(RS)

TST

A(RS)

BGE

50003%

50002%:

*1F MESSAGE_POINTER IS NEGATIVE,

}&3
1606
1607

;[3.2.14]

" sSET END_OF MESSAGE INDICATOR

1602
1605

*IF MESSAGE POINTER IS ODD,

}ggg

1588
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599

*GET MESSAGE POINTER

1584

1587

}ggg

SETS ANOTHER FLAG ("EOMSG'") IF THIS IS THE LAST MESSAGE

+SET EXPECT_INPUT INDICATOR

012432

012432
012436

005764
002006

177776

IF A(RG) LT #0 THEN

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

ASSEMBLY ROUTINES
CZDZCB.P11
21-NOV=-78 16:33

1608
1609
1610

12112

012440
012440
012444

012444

005267

167474

042764

100000

LET A(R4)

177776

012452

1617
1618
1619
1620

012454
012454
012454
012460

012452

000402
005067

016467

177776

167454

062767

000002

167466

}?312

012474

017767

167462

167442

012466
012474

012502

1637

012510

;

012502

067767

167454

167452

012510

062767

000002

167444

1646
1647
1648

012530
012534
012540

042716
042667

000001
167352

1649 812540 005767
012544

001402

167346

012546
012552

005267

1654
1655
1656
1657

1658
1659

50004$

CLR

:
EXPINP

MOV

A(R4) ,0UTMSG

ADD

#2 ,MSGAP

MOV

AMSGAP, OUTMSG+2

LET MSGAP := MSGAP + aMSGAP

ADD

AMSGAP ,MSGAP

ADD

° #2,MSGAP

JADD 1 TO MAKE IT EVEN
012516

1651

*IF MESSAGE _AREA POINTER IS ODD

1643

1652
1653

LET MSGAP := MSGAP + #2

}g;

1650

LET OUTMSG := A(R4)

LET OUTMSG+2 := @MSGAP

1640

1644
1645

#100000,A(R4)

{UPDATE MESSAGE_AREA_POINTER

1635

}g_;’g

BIC

500048 :

LET MSGAP := MSGAP + #2

1633

1636

EXPINP

*SET MESSAGE_ADDRESS AND

012460
012466

1634

INC

MESSAGE_SIZE

1627
1628

1629
1630

50003$:

ENDIF

}gzzlso

012460

ELSE
LET EXPINP := #0

167460

}g%} 012460
1623

:= A(R4) CLR.BY #100000

SEQ 0037

{OTHERWISE, CLEAR EXPECT_INPUT

1615

1626

‘

LET EXPINP := EXPINP + #1

}2}43.
1616

012516
012526

012546

012552
012552
012552
012552

012552
012554
012556

016767
016746

167440
167362

LET SCRTCH := MSGAP AND #1

167366

IF SCRTCH NE #0 THEN

ENDIF

BIC
BIC

#1,(SP)
(SP)+,SCRTCH

SCRTCH

BEQ

50005%

INC

MSGAP

MOV
MOV
RTS

R4 ,SP
(SP)+,R4
PC

‘

50005$:
S0000$:
500018
:

MSGAP, SCRTCH
SCRTCH,=(SP)

LET MSGAP := MSGAP + #1

167410

ENDRTN

010406
012604
000207

MOV
MOV

ASSEMBLY ROUTINES
MACY11 30A(1052)
CZbzCB.P1
21 -NOV=78 16:33

29-DEC-78

FHEFEH

:
:
:

11:50

Mm3
PAGE 38

SEQ 0038

4444444404440 3 4444444444440 4444444444414

BUFFERS OF APPROPRIATE LENGTH FOR DDCMP.

eSS S

R R

ROUTINE TEROUT

005767

003064

004767

000222

001011

1 44414

H bt

Y R

N e et s an s as

:£3.2.20]

CALL XSTRT

IF .ERROR THEN
RETURN ERROR

000261
000504

ENDIF

167370

005067

167366

LET RMSGNO := #0

’

ENDIF

012610

INIT

TST
BNE

50002%

JSR

PC_XSTRT

BCC

50003s
%

SEC
BR

50001%

CLR

MSGNO

CLR

RMSGNO

Mov

OUTMSG, INITMA

50003$:

LET MSGNO := #0
~

+
+
+

:
TEROUT

IF INIT EQ #0 THEN

103002

005067

b 4 4

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

50002%:

sINITIALIZE THE BUFFER ROUTINES [3.2.20.4]
012610

VNG
NE WSO

SISIININNN

SRIFIRAS

1700

016767

167326

167346

012767
062767

002142
000002

167266
167260

017767

167254

167326

012767

010434

167322

012767

000412

167316

LET INITMA := QUTMSG
,

LET SCRTCH := HOUTMSG + #2
.

BUFFER #1,BAPNT
LET BAPNT := #TMPBUF

LET BASIZE

#OUTMSG, SCRTCH
#2 ,SCRTCH

MoV

@SCRTCH, INITMS

MOV

#TMPBUF ,BAPNT

MoV

#266. ,BAS1ZE

suB
JSR
MOV
MOV

#2+2 RS

MOV

LET INITMS := QSCRTCH
:

ADD

:= #266.

;GET A BUFFER OF THE MESSAGE
CALL GETOB OUT <OUTBUF ,0UTSIZ>

000336

167262
167260

*PERFORM THE FOLLOWING LOOP WH

‘A AND ABORT ARE CLEAR AND OUT

;IS GREATER THAN 0
012674

E
4

WHILE QUTSIZ GT #0 AND ABORT EQ #0 DO

PC,GETOB

(RS)+,0UTBUF

(RS)+,0UTSIZ

<
ASSEMBLY ROUTINES

CZDZCB.P11
1720
1721
1722
1723

};259
1728 012710

1729 012710
1730 012714
1731 012716
1732 012722
1733 012726
1734 012732
1735 01273
1736 012740
1737 012744
};%g 012744

1742

162705
010546
016745
016745
004767
012605
012567
012567
004767

012750

012750
012752
012752
012754
012756

103005
104423
000024
002712

1749 012760

000261

1743
17644
1745
1746
17247
1748

000004
167232
167224

012760

002714
002712
001674

*ADD PROTOCOL ENVELOPE AND TRANSMIT
CALL PROBUF IN <OUTBUF ,0UTSIZ> OUT <XBUFFER,XSIZE>

CALL XMIT

IF .ERROR THEN

ERRHRD 20,MSG20

:03.2.20.10]

RETURN ERROR
ENDIF

50006$ :

CALL GETOB OUT <OUTBUF ,0UT3I1Z2>

012764

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

BCC
TRAP
WORD
.WORD

50006$
TSERCODE
20
MSG20

B8R

SEC

50001$

SUB
JSR
MOV
MOV

#2+2 RS
PC ,GETOB
(RS)+,0UTBUF
(R5)+,0UTSIZ

*END OF LOOP
:

013004

1765 013004 000733
};29 013006

};23

013012

000000

ENDDO

50005$:

50004$

:1F ERROR OCCURRED, DO AN ERROR RETURN

013006

1771 013006
177% 013006 000241
1773 013010
1774 013010 000207
1775

suB
MOV
MOV
MOV
JSR
MOV
MOV
MOV
JSR

50005%

:GET THE NEXT BUFFER

1762

1770

oUTSIZ
50005%
ABORT

*1F TRANSMIT ERROR, REPORT IT AND SET ERRXMT

1757 012764 162705 000004
1758 012770 004767 000226
1759 012774 012567 167152
};g? 013000 012567 167150

1764

ST
TST

BLE

BNE

000416

};2’;

1763

SEQ 0039
50004$:

1750 012762 000412
1751 012764
};%’% 012764
1756

012674
012674 005767 167254
012700 003442
012702 005767 167210

};2(1)
|

21-NOV=78 16:33

~ };%‘s' 012706 001037
r

29-DEC-78

MACY11 30A(1052)

N 3
PAGE 39

11:50

ENDRTN

500008:

;
TYPE:

50001$:
;TYPE OF MESSAGE EXPECTED

cLC

ASSEMBLY ROUTINE S
?:C§%1
(ZpzCB.PN
21 ~NOV~-78

30A(1052)

29-DEC-78

B 4
PAGE 40

11:50

SEQ 0040

— e

SR
PR RS RN T P EP ST SREE SP

1776
1777

i
Y

S
W O S

SANAA

N
D—

—> —_— —

[aTo RO

Yo Y

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

A "'STACK'' MUST BE RETURNED BY THE TERMINAL
d

DECLARE LOCALS
LOCAL <A>

010446
010604
162706

+
+

:[3.2.20.1]

ROUTINE XST RT

XSTRT:

ALLOCATE

MOV
MOV
Sus

000002

;A BUFFER STARTING AT ''STRTB"'

R4 ,=(SP)
SP R4

#2,SP

== PUT THIS INFORMATION

e T

;IN THE TRANSMIT ROUTINE'S POINTERS

012767

000010

002624

012767

003670

002614

LET XSIZE

:= #10

LET XBUFFER

:= #STRTB

MOV

#10,XSIZE

MOV

#STRTB,XBU
FER
F

MOV
ADD

#PTABLE ,A(R4)

MOvB

@A(R4) ,STRTSA

*GET THE TERMINAL ADDRESS AND PUT INTO THE STRT ME SSAGE

012764
062764

002250
000005

177776
177776

117467

177776

170613

LET A(R4)

:= APTABLE

+ #5

LET STRTSA :B= @A(R4)

#5,A(R4)

:COMPUTE THE CRC FOR THE STRT MESSAGE AND PUT IN THE LAST TWO BYTES

E?N
o
NN
KRENS

000002

CALL

CRC

IN <XBUFFER,#6> QUT <STRT(C>

:03.2.20.1.2 + 3 ]
uB

000006
002554
004006

WWW

#1%2 RS

R5.,-(SP)
#6,-(RS)
XBUFFER,=(RS)

PC,CRC

(SP)+,R5
(R5)+,STRTC

170564

—_—

—_ 3y

olelelolelele
o)

;OF THE BUFFER (''STRTC'")

nono

—

—_—

—

—
—

lele]

“TRANSMIT THE MESSAGE
004767

001526

CALL XMIT

JSR

PC.XMIT

BCC

50002%

—

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

N PY]=000~V Sfwnu-o

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

e
B

BT RIS R RRRBRBRRRE
n
0o
(o NV F
=0V~

—I;_A—l._g—l—l—l—l
Co

.
.

103005

IF .ERROR TH4 EN

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

29-DEC-78

ASSEMBLY ROUTINES

000261
000430

sl all s

26
30

i
b
S ccd

104423
000024
002712

ERRHRD 20,MSG20

ENDIF

i
D e
b

004767

003472

103005

40
42

104423
00002

013144

013146
o

TRAP

T$ERCODE

.WORD
-WORD

MSG20

SEC
BR

50001%

JSR

PC,RCVE

BCC

50003%

.WORD
-WORD

MSG21

SEC
BR

50001%

500028:

CALL RCVE

*1F RECEPTION ERROR, REPORT IT AND EXIT WITH THE ERROR FLAG SET

D o

013132

b e

b b
b
b
e
b e

;[3.2.20.103

*OTHERWISE, GET THE TERMINAL'S RESPONSE

)

IF .ERROR THEN
ERRHRD 21,MSG21

002761

:[3.2.20.103

RETURN ERROR

000261
000420

ENDIF

T$ERCODE

50003s:

NERSSRR

b cnh o

cail

WWWWWWW

eolelelelelele]

i
s i e seslh b

:OTHERWISE, SET TYPE TO ''STACK''
AND CHECK TO SEE THAT IT WAS THE REPLY
012767

000007

010546
016745
004767
012605

177624
001062

LET TYPE

177632

:= #STACK

CALL CHKREP IN <TYPE>

MOV

#STACK, TYPE

MOV
MOV
JSR
MOV

R5,=(SP)
TYPE ,=(R5)
PC,CHKREP

(SP)+,R5

3
%174

—

— —

olelele]

:IF REPLY WASN'T A ''STACK'', REPORT THE ERROR AND EXIT WITH THE ERROR FLAG SET

3176

013202

013204

g
o
S
P

SR EREEREEeE
(o <]
SNISNNNNYN

SEQ 0041

RETURN ERROR

b
D
b
b
b
d
b
—d o

WWWWWWWWW

20
22
24

PAGE 41

PRRARRRRRRRR
PR
EgEERS& R R PR3 EREERER & gmmmmmm
Vo~ W
=0V NONVNHWN
=200@

1832
1833
1834
1835
1836
1837

[eleleolelelelelols)

CZDZCB.P1T

11:50

013210

IF .ERROR THEN

103005

ERRHRD 25,MSG25

104423
000031
003153

RETURN ERROR

000261
000401

ENDIF

“END OF XSTRT ROUTINE
013210

:03.2.20.10]

ENDRTN

50004%:

BCC
TRAP

50004%
T$ERCODE

.WORD
.WORD

MSG25

SEC
BR

50001%

01 3 210
013210
013212
013 212
0 3214
013 216
013 220

29-DEC-78

30A(1052)

11:50

D_4&
PAGE 42

SEQ 0042
500008:

000241

50001%:

010406
012604
000207
000000

cLe

R4 ,SP
(SP)+,Ré4

MOV
MOV
RTS

DDSTRY: 0

:++#0+###+0+++4#§#+++#+#++#+§###+*++*+++#0#0§+++++§0+0+¢§#04#+f+#+00f+#

:
:
;

013222

WN—=O

NI o0 NV

010446

013226

000002

:[3.2.20.5)
GETOB:

MOV
MOV
SUB

R4 ,=(SP)
SP.R4
#2'SP

MOV
ADD

BAPNT ,A(RS)
#10,A(RS)

CLR

B(RS)

MOV
SUB

BASIZE ,SCRTCH
#12,SCRTCH

*LEAVE ENOUGH ROOM FOR A DDCMP HEADER

Nele cRNTe RV P W

(BUFFER SIZE = 0 IS END_OF _MESSAGE)

DECLARE LOCALS
LOCAL <C>
ALLOCATE

P
W

) e

SEGMENTS OF A SIZE SUITABLE FOR TRANSMISSION OVER A DATA

LINK -~ RETURNS BUFFER ADDRESS, BUFFER SIZE AND END_OF_MESSAGE+
ROUTINE GETOB <A,B>

D
)
—

THIS ROUTINE SPLITS A MESSAGE OF ANY LENGTH INTO

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

R R

NOWVN S WN
-

S9000000ee 800‘0‘0000000 3RSBIRB3838322223233252

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

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

:= #0

*SCRTCH HAS MAXIMUM DDCMP MESSAGE SIZE
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)

MOV

000002
166656

166610

A(RS)
,C (R4)

REPEAT LOOP UNTIL MAX SIZE OR END OF DATA
WHILE B(RS) LT SCRTCH AND INITMS GT #0 DO

026567
002017
005767

50002%:

CMP

B(RS) ,SCRTCH

TST

INITMS

BGE

50003$

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

013310

29-DEC-78

30A(1052)

E_4
PAGE 43

11:50

SEQ 0043

003414

BLE

50003$

*MOVE DATA INTO MESSAGE BUFFER
013312

117774

166646

005367

166642

005267

166634

005265

000002

005264

177776

g ERRERERR

:B= QINITMA

LET INITMS

:= INITMS - #1

:03.2.20.5.1 + 23

LET B(RS)

:= B(R5) + #

LET C(R&)

:= C(R4) + #1

50003$:

DEC

INITMS

INC

INITMA

INC

B(RS)

INC

C(R&)

50002%

MOV
MOV

R4 ,SP
(SP)+,Ré4

END OF LOOP
ENDRTN

500008:
500018$:

010406
012604
000207

RTS

ROUTINE

RETURN WITH MODIFIED ADDRESS AND SIZE

013350
013350
013350
013350
013352
013352

ROUTINE PROBUF

<A,B,C,D>

PUSH R1

010146

PUSH R2

010246

TO PROVIDE LINE PROTOCOL HEADER AND CHECKSUMS

CALL WITH DATA AREA ADDRESS AND SIZE

(IN BYTES)

+
R

:[3.2.20.6]

PROBUF:

MOV

R1,=(SP)

MOV

R2,=(SP)

*CHANGE POINTER TO INCLUDE DDCMP HEADER
013354

6502
2702

TM
oON—

$883388 8888

@INITMA,AC(R4)

:[3.2.20.5.2]

ENDDO

1988

MOVB

:03.2.20.5.1]

LET INITMA := INITMA + #1

000755

1960

LET aC(R4)

LET R2 := A(RS) - #10

000000
000010

:03.2.20.6.1]
MOV

A(RS) ,R2

SUB

#10,R2

MOVB

#SOM, (R2)+

*FIRST BYTE IS SOM (START OF HEADER)
.

112722

000201

LET (R2)+

:B= #SOH

*NEXT TWO BYTES GLTM MESSAGE S!ZE

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

2000
2001
2002
2003
2004
2005
2006
%%

013370
013370
013374
013374
013376
013376

013400
013400

016501

30A(1052)

2012
2013
%81?

2024
2025

%859

110122

LET R1

000301

2031
2032
2033
%%

110112

013402

013402
013406
013406

013410

152712

000200

013414

013414
013420
013420

013424

013424
013430
013434
013434

013452

005202

'
116722

013436
013444
013452

MOVB

R1,(R2)+

SWAB

MOVB

R1,(R2)

BISB

#200, (R2)

LET

(R2)+ :B= RMSGNO

INC

MOVB

RMSGNO, (R2)+

005267

166554

116722

166550

’

LET MSGNO := MSGNO + #1
LET (R2)+ :B= MSGNO

INC

MSGNO

MOVB

MSGNO, (R2)+

012701
062701

002200
000605

LET R1 := #PTABLE + #5

MOV
ADD

#PTABLE
,R1
#5,R1

LET (R2)+ :B= (R1)

111122

MOVB

(R1),(R2)+

016567
162767

000000
000010

166446
166440

012767

000006

166434

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

MOV
SUB

A(RS) ,SCRTCH
#10,SCRTCH

LET TEMP := #6

MOV

#6., TEMP

*COMPUTE HEADER CRC

2046

013460

2048

013464

2055

LET (R2) :B= (R2) SET.BY #200

*NEXT BYTE IS LAST GOOD RESPONSE

166562

582?

2051
2052
5822

B(RS5) ,R1

‘GET HEADER START ADDRESS AND SIZE IN BYTES

582%

2050

MOV

:GET THE TERMINAL ADDRESS FOR THE NEXT HEADER BYTE

013436

2049

SEQ 0044

INEXT BYTE GETS MESSAGE NUMBER --- POP NUMBER FOR NEXT MESSAGE (IF ANY)

2038

2047

:B= R1

LET R2 := R2 + #1

%8%9
2039
2040
2041

:= SWAP R1

LET (R2)

%833
2030

:= B(RS)

LET (R2)+ :B= R1

%8%}
2023

F
4
PAGE 44

*SET SELECT BIT

3819
2018 013410
%858

11:50

LET R1

000002

58?3
2011

29-DEC-78

013460

162705

000002

013466

016745

166422

013476
013502
013504

004767
012605
012567

013472

010546

016745

CALL CRC IN <SCRTCH,TEMP> QUT <TEMP>

:03.2.20.6.2)
SUB

MOV

#1%2 RS

RS,=(SP)

TEMP,
= (RS)

166414

MOV

SCRTCH,=(RS)

166404

JSR
MOV
MOV

PC, CRC
(SP)+.RS
(RS)+.TEMP

003410

*PUT CRC INTO BUFFER

ASSEMBLY ROUTINE S
MACY11
CZDZCB.P11
21 -NOV-78 16:33

2056
2057
2058
2059
2060
2061
2062
2063
2064
2065
2066
2067
2068
2069
2070
2071
2072
2073
2074
2075
2076
2077

2078
2079
2080
2081
2082
2083
2084
2085
2086
2087
2088
2089
2090
2091
2092

2093
2094
2095
2096
2097
2098
2099
2100
2101
2102
2103
2104
2105
2106

2107
2108
2109
2110
211

013510
013510

016712

30A(1052)

29-DEC-78

’

166400

G &
PAGE 45

11:50

SEQ 0045

LET (R2) := 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
013514
013514
013522
013522

016567

000000

166370

016567

000002

166364

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

*COMPUTE DATA CRC
013530
013530
013534
013536
013542
(13546
013552
013554

;

162705 000002

010546
016745
016745
004767
012605
012567

CALL CRC IN <SCRTCH,TEMP>

OUT <TEMP>

:[3.2.20.6.4]
suB

166352
166344
003340

#1+2 RS

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

PC,CRC

(SP)+,R5
(RS)+,TEMP

166334

*PUT DATA CRC IN LAST TWO BYTES OF BUFFER
013560
013560
013564
013570
013570
013574
013574
013600
013600

016502 000000
066502

000002

116722

166320

LET R2 := A(RS) + B(RS)
LET (R2)+
MR

000367 166314
116712 166310

:[3.2.20.6.

]

:(3.2.20.4.3)

A(RS) ,R2

B(RS) ,R2

:B= TEMP

TEMP, (R2) +

.
. T (R2) :B= TEMP
IS
e
!

TEMP

TEMP, (R2)

gaerunn WITH MODIFIED ADDRESS AND SIZE
013604
(13604
013612
013620
013620
013626
013634
013634
013636
013636
013640
013640
013640
013640

016565 000002 000006
062765

000012

000006

162765

000010

000004

016565 000000 000004
012602

012601

;

LET D(RS) := B(RS) + #1
g

LET C(RS)
:
POP R
P

:= A(RS) - #1

ENDRTN

000207

MOV
ADD

B(R5) ,D(R5)

MOV

suB

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

MOV

(SP)+ ,R2

MOV

(SP)+,R1

. RTS

.'000'00000#'090000000000000’00000v'00’00000000000‘090000000’00

#12,D(R5)

30A(1052)

S el el

n USHSTSTSLSSTSLSOSTS
HSTSTS SN TST NS S LSTNTNTNT ST, T8

FURUKIEBRNRXRREN
NS oI~ oo

ASSEMBLY ROUTINE S
MACY11
CZDZCB.P1T
21 -NOV=78 16:33

11:50

H 4
PAGE 46

ROUTINE TO GET TERMINAL

SEQ 0046
INPUT

;++§¢940*+#§#+§4§#+#004##§0000#0004*#4##004+#¢¢04+4##0#0+*##+0

i el ol

ROUTINE TERIN <A>

:03.2.1]

TERIN:

;SAVE R1

PUSH R1

i el i

010146

MOV

R1,-(SP)

JSR

PC.RCVE

)

sGET TERMINAL RESPONSE

ot e

004767

CALL RCVE

002760

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

IF .ERROR THEN

b cald s

103007

104463
000050
002761
004262

50002%

ERRHRD 40,MSG40,AREA4Q

WW
oo~

29-DEC=78

T$ERCODE
40
MSG40
AREA4O

s +....RESTORE R1 FIRST

2139

POP R1

012601

RETURN ERROR

000261
000571

ENDIF

MOV

(SP)+,R1

SEC
BR

50001%

CMP
BNE

INSIZ 410
50003%

CLR

A(RS)

MOV

#ACK, TYPE

MOV

RS5,=(SP)
TYPE ,~(RS)

50002%:

SOgooo
i
W=

026727
001027

166264

005065

000000

012767

000001

010546
016745
004767
012605

177072
000330

WS LS LSTLNLNT
NN

;IF MESSAGE IS ONLY 10 BYTES, SEE IF IT IS AN ACK.
JIT'S OK TO BE AN ACK, BUT RECEPTION IS INCOMPLETE (CLEAR FLAG).

103003

013732
013732

012601
000261

000010

177100

INSIZ EQ #10 THEN
LET A(RS)

:= #0

LET TYPE

:= #ACK

CALL CHKREP IN <TYPE>

IF .ERROR THEN
POP R1

RCTURN ERROR

JSR
MOV

PC,CHKREP

(SP)+,R5

BCC

50004%

MOV

(SP)+ ,R1

SEC

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

000546

73
74

PAGE 47

016701
062701

000004

111167

166224

LET R1

166214

:= INBUF + #4

SEQ 0047

POP R1
RETURN

000535

ENDIF

013756

50001%

MOV
ADD

#4,R1

mMovB

(R1) ,RMSGNO

MOV

(SP)+,R1

50000%

50004%:

LET RMSGNO :B= (R1)

012601

:1F RECEIVE OK, CHECK THE HEADER CRC

;COMPUTE EXPECTED CRC
013756

162705

CALL CRC

000002

IN <INBUF ,#6> OUT <AQ4EX>

#1+2,R5

R5,=(SP)

#6,-(RS)

166162

012605
012567

INBUF ,=(R5)

003112

PC,CRC

(SP)+ RS
(R5) +,AQ4EX

170144

000006

*GET THE CRC RECEIVED

oo~

INBUF ,R1

50003%:

I_4

11:50

29-DEC-78

ENDIF

KRR EBRIRAIRET
2B I

non USUSLSTSTS
SIS TS TS LN LR LS [N oS TN TN ]LSLSTN STV, 1,8 <N
b
b

2168
2169
2170
217

30A(1052)

016701
062701

000010

114167

170126

000367

170122

114167

170116

LET R1

166144

:= INBUF

+ #10

LET AQ4RC

:B= =(R1)

LET AQ4RC

:= SWAP AQ4RC

LET AO4RC

:B= =(R1)

INBUF ,R1

#10.R1

=(R1) ,AD4RC
SWAB

AO4RC

MOvVB

=(R1) ,A04RC

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

026767

001407
104463

000051
002503
004116
012601

000261
000475

170114

170110

IF AO4EX NE AO4RC THEN
ERRHRD
47 ,MSG41,AREA4T

POP R1

RETURN ERROR

ENDIF

AO4EX ,AQ4RC

50005$

TSERCODE
41
MSG41
AREA41
(SP)+
R1

50001%

ASSEMBLY ROUTINE S
MACY11
CZpz(B.P1
21 -NOV-78 16:33

222?

30A(1052)

29-DEC-78

J 4
PAGE 48

11:50

014060

SEQ 0048
50005$%:

:COMPARE TERMINAL ADDRESS RECEIVED WITH THAT EXPECTED

;AND IF THEY AREN'T THE SAME, REPORT THE ERROR, RESTORE R1 AND
;EXIT WITH THE ERRROR FLAG SET
124167
001407

IFB =(R1) NE STRTSA THEN

167611

2260
2261
2262
2263
2264
2265
2266
2267
2268
2269
2270
2271
2272
2273
2274
2275
2276
2277
2278
2279

TSERCODE
42
MSG42
AREA42

POP R1

012601

014100
014102
014104
014104

50006$

ERRHRD 4c,MSG42,AREAL2

104463
000052
002437
004064

2241
2242
2243
2244
2245
2246
2247
2248
2249
2250
2251
2252
2253
2254

-(R1),STRTSA

(SP)+,R1

RETURN ERROR

000261
000463

50001%

ENDIF

:
500068

:MOVE THE POINTERS PAST THE HEADER AND COMPUTE THE DATA CRC
014104
014104
014112
014112
014120
014120
014124

062767 * 000010

166044

162767

166040

162705
010546
016745
016745
004767

012605
012567

000012

000002

LET INBUF

:= INBUF

LET INSIZ

:= INSIZ - #12

CALL CRC

+ #10

#10, INBUF

#12,INSIZ

IN <INBUF ,INSIZ> QUT <AQ4EX>

#1%2,RS
R5,=(SP)

INSIZ,=(RS)
INBUF ,=(R5)

002750

PC,CRC

(SP)+,R5
(R5)
+ ,AQ4EX

170002

*GET THE DATA CRC RECEIVED
014150
014150
014154
014160
014160
014164
014164
014170
014170
014174
014174

016701

066701

166002
166000

062701

000002

114167

167760

000367
114167

167754
167750

LET R1

INSBUF
R1

+ INSIZ

INBUF ,R1
INSIZ.R1

+ #2

LET AO4RC

:B= =(R1)

LET AO4RC

:= SWAP AQ4RC(

LET AOQ4RC

.B=

#2 .R1

=(R1) ,AQ4RC

AO4RC

=(R1)

=(R1) ,AQ4RC

:1F THEY AREN'T THE SAME; REPORT THE ERROR, RESTORE R1 AND
JEXIT WITH THE ERROR FLAG SET

014200
014200

026767

167744

IF AO4RC 3£ AQ4EX THEN

(MP

AQ4RC
, AQ4E X

MACY11 30A(1052)
V=78 16:33

29-DEC-78

ASSEMBLY ROUTINE
CZDzCB.P11
21

K 4
PAGE 49

11:50

SEQ 0049

"50007%

ERRHRD 43 ,MSG43 +AREA43

T$ERCODE

43
MSG43
AREA43

POP R1

(SP)+,R1

RETURN ERROR

ENDIF

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
005265

000000

016701
162701

000004

111167

165730

165720

LET A(RS)

:= A(RS)

LET R1

INBUF

+ #1

- #4

LET RMSGNO :B= (R1)
POP R1

012601

ENDRTN

:
500008

000241

LOCATION "‘TYPE'' CON TAINS THE RESPONSE CODE EXPECTED

INPUT BUFFER SIZE

ROUTINE CHKREP <B>

DECLARE LOCALS
LOCAL <A>

010446
010604

162706

( IN BYTES)

INPUT BUFFER POINTER IS IN "'INBUF"'
A

IS IN "'INSIZ"

ROUTINE TO CHECK AN INPUT BUFFER FOR A STANDARD
RESPONSE ("’ACK'' OR "'STACK'")

RTS

000207

cLC

014252

50001$%:

INBUF ,R1

:03.2.20,3, 3.2.20.9]
CHKREP:

ALLOCATE

MOV
MOV
suB

000002

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

R4 ,=(SP)
SP.R4

#2,SP

ASSEMBLY ROUTINES

CZDzCB.P1

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

21-NOV-78 16:33

g%g
014264
014264

2341

014274

2343
2344
2345
2346
2347
2348
2349
%%g?

014276
014300
014302
014304
014304
014306
014310
014310

%_;3:25

2354

014310

2342

2355
356
2357
2358
2359

2360
2361

2362
2363
2364
2365

2366
2367

2368
2369
2370
2371

5:35%

014272

014274

026727

001406

014366
014372

014372

g;;g

RETURN ERROR

ELSE

1
MSGO1
AREAOD1

SEC
BR

50001%

004767

:[3.2.20.3.1, 3.2.20.9.1]

000006
165630
002560

165554

016764
062764

165612
000007

177776
177776

117467

177776

165530

000367

165524

005364

177776

117467

177776

LET A(R4G)

LET SCRTCH :B= @aA(R4)

;

165512

:= INBUF + #7
.

LET SCRTCH := SWAP SCRTCH

LET A(R4)

sSuB
MOV
MOV
MOV
JSR
MOV
MOV

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

MOV
ADD

INBUF ,A(R4)
#7 ,A(R4)

o—.._.MOVB

:= A(R4) = #1

LET SCRTCH :B= @A(R4)

PC,CRC

(SP)+,RS
(RS) +,TEMP

@A(R4),SCRTCH

SWAB

SCRTCH

DEC

A(R4)

MOVB

@A(R4) ,SCRTCH

;IF CRC'S MATCH GO ON... OTHERWISE SKIP FOLLOWING CODE
014400
014400

014406

026767

001076

165510

165504

IF TEMP EQ SCRTCH THEN

;03.2.20.3.2, 3.2.20.9.2]
cMP
TEMP,SCRTCH

BNE

50004$

MOV
INC

INBUF ,A(R4)
A(R4)

MOVB

@A(R4) ,A(RS)

;COMPARE CONTROL MESSAGE TYPE WITH THAT PASSED AS AN ARGUEMENT

2382
2383
2384
2385

014410
014410
014416
014422

2387
ggg

014430
014430

2390

TSERCODE

WORD
.WORD
.WORD

50002% :

CALL CRC IN <INBUF ,#6> OUT <TEMP>

000002

5333(1)

2386

TRAP

:OTHERWISE, COMPUTE THE CRC AND CHECK IT AGAINST THAT SENT

012605
012567

014362
014366

INSIZ .#10

50002$

;03.2.20.3.4, 3.2.20.9.4]
'

000261
000553

014332
014334

014354
014362

CMP

BEQ

ERRHRD 01,MSGO1,AREAQ1

000001
002323
003760

162705
010546
012745
016745

014340
014340
014346
014354

IF INSIZ NE #10 THEN

000010

104463

014310
014314
014316
014322
014326

165670

%%;g
2376
2377

SEQ 0050

;TYPE AN ERROR MESSAGE AND EXIT WITH ERROR SET

2338
2339

2340

014422

016764
005264

165542
177776

177776

117464

177776

042764

177400

177776

LET A(R4)

:= INBUF + #1
.

LET A(R4)

:B= @A(R4)

LET A(R4)

:= A(R4) CLR.BY #HYBYTE

BIC

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

)
#HYBYTE ,A(R4)

“~

ASSEMBLY ROUTINE
MACY11 30A(1052)
C2DIBP1 - DToNOV-78
1 6:33

2392
2393
239,
2395
2396
2397
2398
2399
2400
2401
2402
2403
2404
2405
2406
2407

2408
2409
2410

2411
2412
2413
2414
2415
2416
2417
2418
2419
2420
2421
2422
2423
2424
24625
2426
2427
2428
2429

2430
2431
2432
2433
2434
2435
2436
2437
2438
2439
2440
2441
2442
2443
2444
2445
2446
2447

014436
014436
014444
014446
014446
014454
014454
014462
014462
014464
014466

014470
014472
014472
014474

026465
001414

177776

016467

177776

167340

016567

000000

167334

000000

29-DEC-78

M 4
PAGE 51

11:50

IF A(R4) NE B(R5) THEN

SEQ 0051
;03.2.20.3.3, 3.2.20.9.3]

LET AO2A := A(R4)
LET AO2B := B(RS)
ERRHRD 02,MSG02,AREAQ2

104463
000002
002350
003762

A(R4) ,B(RS)

MOV
MOV

A(R4) ,A02A
B(RS) ,A028

50005$

;03.2.20.3.4, 3.2.20.9.4]

TRAP ~ TS$ERCODE

WORD
.WORD
.WORD

RETURN ERROR

000261
000460

CMP

BEQ

SEC

2
MSGO2
AREAQ2

B8R

50001$

MOV
ADD

#PTABLE,SCRTCH
#5,SCRTCH

MOVB

@SCRTCH,SCRTCH

BIC

#HYBYTE ,SCRTCH

*OTHERWISE, CHECK TERMINAL ADDRESS
014476
014476
014476
014476
014504
014512
014512
014520
014520
014526
014526
014534
014542
014542
014550
014550

ELSE

*
012767
062767

002200
000005

165406
165400

117767

165374

165372

042767

177400

165364

016767
062767

000005

165424

165360
165352

117767

165346

165344

042767

177400

165336

50005%:

LET SCRTCH := MPTABLE + #5
LET SCRTCH :B= @SCRTCH

LET SCRTCH := SCRTCH CLR.BY #HYBYTE

LET TEMP := INBUF + #5

MOV

LET TEMP :B= QTEMP

INBUF
, TEMP

ADD

45, TEMP

MOVEB

QTEMP,TEMP

BIC

#HYBYTE
, TEMP

LET TEMP := TEMP CLR.BY AHYBYTE
IF NOT THE Expfcrfo TERMINAL ADDRESS, THEN REPORT THE ERROR AND
tXIT 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

000003
002437
004064

crp

;[3.2.20.3.4, 3. 2 20 9.4]
TSERCODE
uoao

.WORD
.WORD

RETURN ERROR

000261
000416

ENDIF

ENDI

IF CRC WAS IN ERROR,
:EXIT WITH ERROR SET

TEMP, SCRTCH

50007%

SEC

BR
50007$:

50006$:
SKIP ABOVE CODE, COME TO HERE, REPORT ERROR AND

MSGO3
AREAD3

50001%

ASSEMBLY ROUTINES

CZbz(B.P1

11:50

29-DEC-78

MACY11 30A(1052)

21-NOV-78 16:33

N_&

PAGE 52

SEQ 0052

ELSE

000414
016767

165302

167336

016767

165276

167332

LET AOQ4RC :

SCRTCH

LET AOQ4EX :

TEMP

ERRHRD 04 ,MSGO04,AREAQ4

104463
000004

002503
004116

MoV

SCRTCH,AO04RC

MoV

TEMP ,AQ4EX

TRAP
.WORD
.WORD
.WORD

TSERCODE

:03.2.20.3.4, 3.2.20.9.4)
:

RETURN ERROR

000261
000401

500108

50004$%:

SEC
BR

ENDIF

MSG04

AREAO4

50001%

500108%:

ENDIF

50003$:

*NORMAL RETURN
ENDRTN

:
500003

000241

50001%:

- 010406
012604
000207

cLC
R4 ,SP
(SP)+,Ré4

MOV

RTS

> S re

:
:

SRS S

st it il dd

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

+
+

RSO SCPADARGAAD AL ADE
R
T

ROUTINE XMIT

:[3.2.20i;1?ND 3.2.20.1]

DECLARE LOCALS
LOCAL <B>

ALLOCATE

2494
2495

014646
014650

MOV
MOV

R4 ,=(SP)
SP.R4

CLR

B(R&4)

CLR

XDONE

suB

000002

#2,SP

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

014654

014660
014660
014664

177776

000270

LET B(R4) := #0
LET XDONE := #0
LET RDONE := #0

| ASSEMBLY ROUTINES

cZbz(B.P1

014664

21-NOV-78 16:33
005067

2519

SEQ 0053

000266

CLR

RDONE

JSR

PC,DEVINIT

BCC

50003s

MOV

R1,-(SP)

MOV

R2,=(SP)

MOV

PTABLE .R1

MOV

#DZREG,R2

MOV

RCVCSR(R1) ,RCVCS

MOV

RCVB
(R1) ,RCVBU
UF

MOV

XMTCSR(R1) ,XMTCS

MOV

XMTBUF
(R1) ,XMTBU

MOV

(SP)+,R2

MOV

(SP)
+ ,R1

START OF LOOP

014670
014670

REPEAT

50002%:

STRY TO INIT DEVICE
014670
014670

004767

’

000264

CALL DEVINIT

*IF ERROR OCCURRED..

JE U
DS Y § —

vivniinwnuiwn v

OO
NS WA= o

NINNIANINI
NNN

2504
2505
2506
2507
2508
2509

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

014674
014674

IF .ERROR THEN

103033

PUSH R1

010146

PUSH R2

010246

*GET A COPY OF THE DEVICE REGISTERS
014702

LET R1

016701

165272

012702

002254

016162

000000

016162

000002

016162

000004

016162

000006

:= PTABLE

LET R2 := #DZREG
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

*REPORT THE ERROR AND UPDATE THE ERROR COUNT

;

ERRHRD 23,MSG23,AREA23

LET B(R4)

177776

:= B(R4)

TSERCODE

23
MSG23
AREA23

+ #1

B(R4)

‘OTHERWISE, CLEAR THE ERROR COUNT
000402

ELSE

LET B(R4)

:= #0

50003%:

50004%

ASSEMBLY ROUTINES

CZDZCB.P11

2560
2561

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

21-NOV-78 16:33

014764
014770
014770

005064

177776

SEQ 0054
CLR

ENDIF

B(R4)

50004%:

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

026467
001010

177776

IF B(R4) EQ ILIMIT THEN

165126

104462

005267

165102

005464

177776

LET ABORT

:= ABORT + #1

LET B(R4)

:= NEGATE B(R4)

TSERCODE
0
MSGOQ
AREAQO
ABORT

B(R4)

ENDIF

015020

“EXIT LOOP WHEN ERROR
005764
003321

50005$

ERRDF 00,MSGO0,AREAQ0

000000
002264
003700

015020
015020
015024

B(R4) ,ILIMIT

50005%:
END OF LOOP
OUNT
IS ZERO OR NEGATIVE
C

(ABORT)

UNTIL B(R4) LE #0

177776

TST
BGT

B(R4)
50002%

TST
BNE

B(R4)
50006%

EMT

C$8RK

TST

XDONE
50007%

TST
BGE

XDONE

MOV

R1,-(SP)

MOV

R2,-(SP)

:IF NOT ABORT THEN EXECUTE THE FOLLOWING CODE

;OTHERWISE SKIP AND RETURN WITH ERROR SET

015026
015026
015032

005764
001042

IF B(R4) EQ #0 THEN

177776

*WAIT FOR TRANSMIT DONE FLAG TO SET
.

BREAK

104022

005767
001774

REPEAT

000112

UNTIL XDONE NE #0

50007%:

BEQ

:IF TRANSMIT FLAG IS NEGATIVE, AN ERROR OCCURRED.
005767
002052

010146
010246

000104

IF XDONE LT #0 THEN
PUSH R1

PUSH RZ

500108

:IF 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)

%fl?
015056

2620

015062

016701

165116

2621

015062

012702

002254

2623

015066

016162

000000

2625

015074

016162

000002

2627

015102

016162

000004

2629

015110

016162

000006

2631

015116

012602

2624

2626
2628

2630

2632
2633
2634

2635

015066

015074

015102
015110
015116

015120
015120
015122

015122

2636
2637
2638
2639
2640

015124
015126
015130
015132
015132

2642
2643
2644

015136
015136
015136

2646
2647
2648

015140
015140
015140

2641

2645

2649
2650

2651
2652

2653
2654
2655
2656
2657
2658
2659
2660
2661
2662
2663
2664
2665

015134

015136

015142
015144

SEQ 0055

015144
015144
015146
015146
015150
015152
015154
015156

LET RCVCSR(R2)

:= RCVCSR(R1)

LET RCVBUF (R2)

:= RCVBUF (R1)

LET XMTCSR(R2)

:= XMTCSR(R1)

LET XMTBUF (R2)

:= XMTBUF (R1)

POP R2
POP R1

012601

ERRHRD 24 ,MSG24 ,AREA24

104463

000030
003111
004262

000404

ENDIF
ELSE

000402

RETURN ERROR

000261

000401

ENDIF
ENDRTN

000241

010406
012604
000207
000000
000000

0
0

PTABLE ,R1

MOV

#DZREG,R2

MoV

RCVCSR(R1) ,RCVCS

MOV

RCVBUF
(R1) ,RCVBU

MOV

XMTCSR(R1) ,XMTCS

MOV

XMTBUF
(R1) ,XMTBU

MOV

(SP)+,R2

MOV

(SP)+,R1

TSERCODE

WORD
.WORD
.WORD

24
MSG24
AREA24

SEC

50001%

50011%

50010%:
50006%:

SEC

50001%

50011%:

50000%:
50001%:

XPONE:
RDONE:

MOV

TRAP

RETURN ERROR

000261

cLC

MOV
MOV
RTS

R4 ,SP
(SP)+ R4
PC

ROUTINE TO INITIALIZE A DEVICE

5293

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

2671

RETURNS WITH AN ERROR IF CTS CANNOT BE SET

;

:= PTABLE

LET R2 := #DZREG

015144
015144

2666

PAGE 55

LET R1

015056

2622

11:50

:OTHERWISE DO A NORMAL EXIT

2618

2619

29-DEC-78

,‘

ASSEMBLY ROUTINE

CZDZCB.P11

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

21-ov-78 16:33

2672

;

2673
2674

:
:

2675

2676
2677
2678
2679
2680
2681
2682
2683

015160
015160
015160
015160
015160
015160
015162

2686
2687
2688
%ggg

015170
015170
015172
015172

015164

2693

%ggg

5;815.

010446
010604

162706

MOV
MOV

PUSH R2

010246

;03.2.20.1.5 AND 3.2.20.7.2]
DEVINIT:

PUSH R1

010146

TP P PP P P PR R P PP P

000002

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

SUB

#2.sP

MOV

R1,=(SP)

MOV

R2,-(SP)

MOV

PTABLE ,R1

*GET DEVICE ADDRESS

015174
015174

:
016701

165000

LET R1

:= PTABLE

‘DO A MASTER CLEAR ON THE DZ AND WAIT FOR THE CLEAR BIT TO GO DOWN
015200
015200
015206
015206
015206
015206

015214

052761

032761

001374

000020

000000

%;gg
2708
2709
2710
2711
2712
5;}2

Al A R R A

DECLARE LOCALS
LOCAL <A>
ALLOCATE

%ggg
2698
2699
2700
2701
2702
2703

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

2691

2692

SEQ 0056

LET RCVCSR(R1)

:= RCVCSR(R1) SET.BY #MASCLR

REPEAT
UNTIL #MASCLR NOTSETIN RCVCSR(R1)

BIS

#MASCLR ,RCVCSR(R

BIT

#MASCLR ,RCVCSR(R

500028:

BNE

50002$

*GET THE LINE MASK AND SET THE RIGHT DATA TERMINAL READY BIT IN THE DZ
015216
015216
015224
015224
015230
015230

016767

000412

000367

164662

056761

164656

164666

000004

5;}2

2717 015236
2718 015236
2719 015242
2720- 015244
2721 015244
2722 015250
2723 015252
2724 015252
2725 015260
2726 015262
2727 015262

LET SCRTCH := SLINE
LET SCRTCH := SWAP SCRTCH

LET XMTCSR(R1)

:= XMTCSR(R1) SET.BY SCRTCH

MOV

$LINE ,SCRTCH

SWAB

SCRTCH

BIS

SCRTCH,XMTCSR(R1

TST
BNE

NMOD
50003$

MOV
EMT

#100,R0
CSWTU

BIT
BNE

SCRTCH, XMTBUF (R1
50004$

MOV

#DZREG,R2

‘WAIT 10MSEC AND SEE IF CARRIER IS UP

005767
001035

164746

012700
104027

000100

036761
001026

164634

012702

002254

IF NMOD EG #0 THEN
WAITUS #100

000006

IF SCRTCH NOTSETIN XMTBUF (R1) THEN

LLTM R2 := #DIREG

ASSEMBLY ROUTINES
MACY11
Czbz(B.P1
21-NOV-78 16:33

2728
2729
2730
2731
2732
2733

30A(1052)

016162

000000

016162

000002

016162

000004

016162

000006

29-DEC-78

11:50

£
9
PAGE 57

SEQ 0057

LET RCVCSR(R2)

RCVCSR(R1)

LET RCVBUF (R2)

RCVBUF (R1)

LET XMTCSR(R2)

XMTCSR(R1)

LET XMTBUF (R2)

XMTBUF (R1)

RCVCSR(R1) ,RCVCS

RCVBUF
(R1) ,RCVBU

XMTCSR(R1) ,XMTCS
XMTBUF
(R1) ,XMTBU

POP R2

012602

(SP)+,R2

POP R1

012601

(SP)+,R1

ERRHRD 05,MSGOS5,AR EA30

104463
000005
002375
004534

TSERCODE

gSGOS

AREA30

RETURN ERROR

000261
000534

50001%

ENDIF

50004$:

ENDIF

50003%:

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

;AND LOAD THE DZ LINE CONTROL REGISTER.

012702
062702

002200
000606

011202
042702

000300

052702

010000

010261

000002

LET R2 :

#PTABLE

LET R2 :

(R2)

LET R2 :

R2 CLR.BY #300

LET R2 :

R2 SET.BY #10000

LET RCVBUF (R1)

SET THE RECEIVER ENABLE BIT

+ #6

:= R2

MOV
ADD

#PTABLE .R2

MOV

(R2) ,R2

BIC

#300,R2

BIS

#10000,R2

MOV

R2 ,RCVBUF (R1)

MOV
ADD

#4 ,DEVPRI

MOvVB

aDEVPRI ,DEVPRI

BIC

#HYBYTE ,DEVPRI

MOV
ADD

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

MOV

DEVPRI ,=(SP)

:GET THE DEVICE PRIORITY AND SET UP THE INTERRUPT HANDLERS AND
%3
BRNRRESSS nN

wvwn

RRXRREXRRN

Y
JE
Yo
i
e

000000000000

SRS NSNS Sy

;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= aDEVPRI

LET DEVPR]

:= DEVPR! (CLR.B Y #HVBYTE

LET A(R4)

:= #PTABLE + #2

SETVEC @AR4) ,#RINT ,DEVPR]

#PTABLE ,DEVPRI

MACY11
16:33

ASSEMBLY ROUTINE

CZDz(B.P11

2
2785
2787
2788
2789
2791
2792
2793
2794
2795
2796
2797
2798
2799
2800
2801
2802
2803
2804
2805
2806
2807
2808
2809
2810
2811
2812
2813
2814
2815
2816
2817
2818
2819
2820
2821
2822
2823
2824
2825
2826
2827
2828
2829
2830
2831
2832
2833
2834
2835
2836
2837
2838
2839

]

015434
015440
015444
015450
015452
015456
015456
015462
015462
015470
015476
015476
015502
015506
015512
015516
015520

30A(1052)

29-DE(C-~78

11:50

PAGE 58

5
SEQ 0058

016066
177776
000003

#RINT ,~(SP)

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

000010

000176
177776
000004

#10,SP

LET NMSG := #0
LET A(RG)

177776
177776

NMSG

:= QA(RL) + #4

aA(R4) ,A(R4G)
#4 ,A(RG)

SETVEC A(R4) ,AXINT,DEVPRI

164510

DEVPRI ,=(SP)

015720

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

177776

000003

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

000010

:GET COPIES OF THE DEVICE BUFFER REGISTER ADDRESSES
015524
015524
015530
015536
015536
015542

LET XMTADD

010167
062767

000106
N000C&

000100

010167
062767

000076
000002

00007C

LET RCVADD

:= R1

+ #6

R1,XMTADD

#6,XMTADD

+ #2
ADD

R1,RCVADD
#2 ,RCVADD

MOV

#4 ,SYNCNT

MOV

#4 FLLCNT

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

012767

000004

000066

012767

000004

000062

LET SYNCNT

:= #4

LET FLLCNT

:= #4

*USE LINE MASK TO ENABLE THE TRANSMITTER...ENABLE THE MASTER SCAN
*ENABLE TRANSMIT AND RECEIVE INTERRUPTS

(015564
015564
015572
015572
015600
015600
015606
015606
015614
0156714
015616
015616

015620
015620
015624
015624

056761

000044

000004

052761

000040

000000

052761

040000

000000

052761

000100

000000

LET RCVCSR(R1)

:= RCVCSR(R1) SET.BY #MSCNEN

LET RCVCSR(R1)

:= RCVCSR(R1)

SET.BY #TXINTE

LET RCVCSR(R1)

:= RCVCSR(R1)

SET.BY #RXINTE

POP R2

012602

POP R1

012601

005267

LET XMTCSR(R1) := XMTCSR(R1) SET.BY SLINE

000024

*SET INIT COMPLETE FLAG
LET INIT := INIT + #°
3
ENDRTN

50000%:

BIS

$LINE
. XMTCSR(R1)

BIS

#MSCNEN ,RCVCSR(R

BIS

#TXINTE ,RCVCSR(R

BIS

#RXINTE ,RCVCSR(R

MOV

(SP)+ ,R2

MOV

(SP)+ ,R1

INC

INIT

ASSEMBLY ROUTINES

CZDZCB.P11

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

29-DEC-78

11:50

H S
PAGE 59

000241

000000
000000
000000

$LINE:
:
XMTADD
:
RCVADD
TIMER:

:
SYNCNT

FLLCNT:

INIT:
FiL:
XBUFFER:

XSIZE:
NMSG:
RTEMP1:
RTEMPZ:
CNTFLG:

50001%:

elelelelelolalslolelelels]

010406
012604
000207
000000

SEQ 0059
cLc
MOV
MOV
RTS

;TRANSMIT BUFFER REGISTER ADDRESS

:
RQUE
RQUET:

RQUERB:

:
RBQUE

RBQUET
:

015716

RBGUER:

jolelelelolelelelelelele)]

RQUEUE:

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

RECEIVER QUEUES

015670
015672
015674
015676

R4 ,SP
(SP)+,R4

;QUEUE POINTER FOR BUFFER PROCESSING

;QUEUE POINTER FOR NEXT AVAILABLE BUFFER

;QUEUE OF BUFFER ADDRESSES AND SIZES

;QUEUE POINTER FOR NEXT AVAILABLE BUFFER AREA
;QUEUE OF BUFFER AREAS

ASSEMBLY ROUTINE S
MACY11
CZDZ(B.P11
21 -NOV~-78 16:33

30A(1052)

29-DEC-78

11:50

PAGE 60

5
SEQ 0060

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
TRAN.SMISSION INTERRUPT HANDLER
\
2LV
EELEE L LY
BGNSRV XINT
:03.2.20.1.7 AND 3.2.20.7.4]

:SET PROCESSOR PRIORITY LEVEL
016700
104041

SETPRI DEVPRI

164266

MOV

DEVPRI ,RO
C$SPRI .

TST

SYNCNT
50005%

MOV

R1,-(SP)

TST
BLE

XSIZE

mMovB

aXBUFFER,R1

BIC

#HYBYTE
,R1

mMovB

R1,aXMTADD

INC

XBUFFER

DEC

XSIZE

EMT

“IF SYNC COUNT EQUAL TO ZERO...
IF SYNCNT EQ #0 THEN

177712
LI
N I

005767
001047

PUSH R1

010146
015742

005767
003413

CHECK BUFFER SIZE.
IF GREATER THAN ZERO, THEN....

IF XSIZE GT #0 THEN

177714

50006%

RRRRR LD RRYE

SEND THE NEXT CHARACTER AND UPDATE POINTER AND COUNT

CONO VIS WM

2907

015744

117701

177704

042701

177400

110177

177656

005267

177670

005367

177666

LET R1

:B= @XBUFFER

LET R1

:= R1

CLR.BY #HYBYTE

LET Q@XMTADD :B= R1

LET XBUFFER := XBUFFER + #1
LET XSIZE

:= XS IZE - M

IF ALL CHARACTERS SENT, CHECK FILL COUNT.
ELSE

000426

005767
001406

IF FLLCNT NE #0 THEN

177650

50006%:

BR
TST

BEQ

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

054777

177646

005367

177634

000415

LET QXMTADD := aXMTADD SET.BY FIL

177630

LET FLLCNT

ELSE

:= FLLCNT - #1

BIS

FIL.@XMTADD

DEC

FLLONT

50011%

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

30A(1052)

29-DEC-78

11:50

J. S
PAGE 61

SEQ 0061

016014

:
500108

IF ALL TRANSMIT DONE, DISABLE TRANSMISSION AND SET DONE FLAG

016014

016701
162701

177616
000006

005267

177124

LET R1

:= XMTADD - #6

LET XDONE

:= XDONE + #1

ABORTWAIT

104021

046761

177576

000004

042761

040000

000000

LET XMTCSR(R1)

:= XMTCSR(R1) CLR.BY $LINE

LET RCVCSR(R1)

:= RCVCSR(R1) CLR.BY #TXINTE

ENDIF

#6,R1

INC

XDONE

EMT

C$ABRT

BIC

$LINE ,XMTCSR(R1)

BIC

#TXINTE ,RCVCSR(R

MOV

(SP)+,R1

50011%:

ENDIF

50007%:

POP R1

012601

XMTADD ,R1

MOov
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 :B= #SYNC
LET SYNCNT

50012%

50005$%:

:= SYNCNT - #1

ENDIF

MOvB

#SYNC ,@XMTADD

DEC

SYNCNT

50012%:

‘DO A SUPERVISOR-TYPE RT!
016064
016064
016064

ENDSRV

L10027:

000002

RTI

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

RECEPTION INTERRUPT ROUTINE

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

016066

BGNSRV RINT

il3.2.1

3.2.20.2.1 AND 3.2.20.9.1]

:SET PROCESSOR PRIORITY
016066
016066
016072
016074
016074

016700
104041

010146

164120

SETPRI DEVPRI
PUSH R1

MOV
EMT

DEVPRI ,RO
C$SPRI

MOV

R1,-(SP)

ASSEMBLY ROUTINES

cZpzcB.PN

MACY11

21-NOV-78 16:33

30A(1052)

2989

29-DEC-78

:
:

2993

2992

016076
016076

017701

177536
*1F

016102
016102
016106
016110
016110
016114
016114
016120
016120
016122
016126
016126
016126
016126
016132
016132
016136

032701
001407

070000

010167

005067

177042
)
177540

012601
000167

000500

042701

177400

005767
001132

177522

016140
016140

3023

016146

3022

ggsg

000377

120167

177500

016144

001526

016152

001523

LET R1

%8%?

016160

120127

001053

000005

3037
3038
3039
3040
3041
3042
3043

016170
016170
016176
016176
016202
016202
016206

@RCVADD ,R1

BIT
BEQ

#70000,R1
50013%

MOV

R1,RDONE

CLR

NMSG

MOV

(SP)+,R1

:= R1 CLR.BY #HYBYTE

BIC

#HYBYTE
,R1

ST
BNE

NMSG
50014$

CMPB

R1,#SYNC

CMPB

R1,FIL

CMPB

R1,#ENQ

50013$:

CHECK FOR SYNC/FILL CHARACTER

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

IFB R1 NE #SYNC ANDB R1 NE FIL THEN

BEQ

BNE

017767

177522

¢
177472

016777

177466

177474

110177

177460

005267

177454

50015%

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

*
*
016162
016162

IF NMSG EQ #0 THEN

3032
gggz
3035
3036

MOV

(FORCE RESTART)

:= R1

,
JMP REXIT
ENDIF

i
016154
016154

IT AND EXIT IMMEDIATELY

POP R1

gg%g
3028
3029

ERROR, REPORT

LET NMSG := #0

120127

:= @RCVADD

LET RDONE

3020
3021

LET R1

IF #70000 SETIN R1 THEN

3017

%8}3

SEQ 0062

‘GET THE BYTE

%335

2999
3000
3001
3002
3003
3004
3005
3006
3007
3008
3009
3010
3011
3012
3013
3014
gg;g

K.5

PAGE 62

*IF NEW MESSAGE FLAG IS RESET...

2990
2991
2994
3332

11:50

50016%

IF IT IS AN ENQ, SET EXPECTED BYTE COUNT.
TO 7. SET MESSAGE SIZE
TO 10 (OCTAL) AND UPDATE THE BUFFER QUEUES
LET RTEMP1

:= aRBQUE
"o

LET @RQUE := RTEMPT
LET QRIEMP1

:B= R1

LET RTEMP1

:= RTEMP1 + #1

LET RBQUE

:= RBQUE + #2

MOV

ARBQUE ,RTEMP1

MOV

RTEMP1,3RQUE

MOVB

R1,3RTEMP

INC

RTEMP1

ASSEMBLY ROUTINES

CZDZCB.P11

3044
3045
3046

016206
016214
016214

3048
3049
3050
3051
3052
3053
3054
3055
3056
3057
3058
3059
3060
3061
3062
3063
3064
3065
gggg

016224
016224
016232
016232
016232
016232
016240
016240
016246
016246
016254
016254
016262
016262
016270
016272
016272
016300
016300

3047

016222

MACY11

30A(1052)

062767

000002

177474

026727

177470

015716

21-NOV-78 16:33

003403
012767

015712

000007

177424

062767

000002

177424

012777

000010

177416

062767

000002
£
177404

177410

003403

012767

015674

gg;g

016310

016306

012767

000443

177777

3083

120127
001403
120127
001033

3088
3089
3090
3091
3092

3093
3094
3095
3096
3097
3098
3099

016340
016344
016344
016350
016350
016356
016356

ENDIF

LET CNTFLG := #-1
.

_
50022%:
MOVE QUEUE POINTER TO SIZE ENTRY AND SET COUNTER FLAG TO 1

FIRST COUNT BYTE)

L,
177330

016777

177324

177332

110177

177316

005267

177312

062767

000002

177332

026727

177326

015716

MOV

#RBQUET ,RBQUE

MOV

#7 .RTEMP2

ADD

#2 ,RQUE

MOV

#10, 3RQUE

ADD

#2 ,RQUE

cMP
BLE

RQUE ,#RQUEB

MOV

#RQUET ,RQUE

MOV

#=1,CNTFLG

50021%

50017%

500208

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

177360

RBQUE ,#RBQUEB

500208 :

500168 :

017767

cMP

SET COUNTER FLAG TO =1 (MESSAGE SIZE COUNT COMPLETE)

ELSE

000220

#2 ,RBQUE

50017$:

LET RQUE := #RQUET

016324
016324
016332
016332
016340

LET RBQUE := #RBQUET

IF RQUE GT #RQUEB THEN

000201

ADD

BLE

LET RQUE := RQUE + #2

177360

3085

363.367)

SEQ 0063

LET @RQUE := #10

;
016310
016310
016314
016316
016322
016324

LET RQUE := RQUE + #2

177372

338;67»
3078
3079
3080
3081

PAGE 63

LET RTEMP2 := #7

3
016300
016300
016306

3073

015706

338?)3
3070
3071
3072

11:50

IF RBQUE GT #RBQUEB THEN

177456

012767

026727

29-DEC-78

LET RTEMP]
:

:= aRBO
E

LET @RQUE := RTEMPI
LET @RTEMP1

:B= R1

LET RTEMP]

:= RTEMP1 + #1

LET RBQUE

:= RBQUE + #2

IF RBQUE GT #RBQUEB THEN

CMPB
BEQ
CMPB
BNE

R1,#SOH
500228
R1,#DLE
50023s

(EXPECT

MOV

@RBQUE ,RTEMP1

MOV

RTEMP1, aRQUE

MOVB

R1,3RTEMPI

INC

RTEMP1

ADD

#2 ,RBQUE

CMP

RBQUE
, #RBQUEB

ASSEMBLY ROUTINES

CZDz2(B.P11

o 38

3100
3101
3102
3103
3104
3105
3106
3107
31
31
3110
g}}

MACY11 30A(1052)

29-DEC-78

21-NOV-78 16:33

016364
016366
016366
016374
016374
016374
016374
016402
016402
016410
016410
016412

003403
012767

R R AN NN eV,

NNNBDS LAST NN

3116
3117
311
3119
31
g}

015712

062767

000002

177270

012767

000001

177256

RN 2 S o

SEQ 0064

LET RBQUE := #RBQUET

ENDIF
LET RQUE := RQUE + #2

BLE

50024%

MOV

#RBQUE
T ,RBQUE

ADD

#2 ,RQUE

MOV

#1,CNTFLG

50025%

DEC

NMSG

INC

NMSG

50026%

MOvB

R1,3RTEMP1

50024%:

LET CNTFLG := #
ELSE

000402

. 50023%:
BYTE WASN'T ANY OF THE LEGAL CHARACTERS... FORCE

016412
016412
016416
016416
016416
016416

005367

A RESTART BY FORCING THE NEW MESSAGE FLAG TO RESET ON EXIT.

¥
177242

LET NMSG := NMSG - #1

ENDIF
SET

16
16
22

005267

016422

016424

000500

50021%:

_THE NEW MESSAGE FLAG
EXIT ROUTINE

ENDIF

016422

50025%:

ENDIF

LET NMSG := NMSG + #1

177236

50015%:

:NEW MESSAGE FLAG IS SET... CONTINUE BUILDING MESSAGE
Lt
ELSE
50014$:
:NOT A NEW MESSAGE...GET BYTE AND STORE IT

016424
016424

110177

LET QRTEMP1

177232

:
34

005767
003413

:B= Rl

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

177232

e 3 b

e B

eo e 4

NG h R N S S S

ViV
NES B S BNEB NN

o o £

)

177314

e g

o 0

e e ey e

R K Y e RN

31
31
3

M5
PAGE 64

311

%}}

11:50

TST
BLE

CNTFLG
50027%

PUT THE BYTE IN RTEMP2 (EXPECTED COUNT), UPDATE THE BUFFER POINTER
gSCSSMEzTRF?E COUNTER FLAG (SET TO GET SECOND COUNT BYTE) AND

016436
812222

117767

177220

016444

042767

177400

177212

LET RTEMP2 :B= QRTEMP1
LLTTM RTEMP2 := RTEMPZ CLR.BY #HYBYTE

MOvVB

aRTEMP1 ,RTEMP2

BIC

#HYBYTE ,RTEMP2

ASSEMBLY ROUTINES

] CZDZCB.P1I
3156
3157
3158
3159
3160

3161

g;g%

016452
016452
016456
016456
016462

016462

016464

MACY11

21-NOV-78 16:33
005267

177204

005367

177204

30A(1052)

000460

%}gg

016470

005767

001041

3181
3182
3183
3184
3185
g}gg

016506
016506
016512
016512
016516
016516

3180

016504

177176

117701

177162

005267

177156

140377

060167

177146

LET R1

177140

177144

062777

000012

177136

3207

3208
3209
3210
3211

016556
016560
016560
016566

062767

000002

177122

026727

177116

015706

003403
012767
'

015674

177104

12 (OCTAL) BYTES OF HEADER AND CRC)

CNTFLG

B8R

500308

TST

CNTFLG

50031$

MoV

R1,-(SP)

MOVB

aRTEMP1 ,R1

INC

RTEMP1

SWAB

BIC

#140377
,R1

ADD

R1,RTEMP2

MOV

(SP)+,R1

MOV

- RTEMP2,aRQUE

ADD

#12 ,aRQUE

ADJUST EXPECTED COUNT TO INCLUDE THE REMAINDER OF THE HEADER AND

THE DATA CRC

LET RTEMP2 := RTEMP2 + #7

177122

DEC

(EXPECTED COUNT +

LET QRQUE := QRQUE + #12

%58%

PUT THE COMPLETE SIZE IN THE QUEUE

LET QRQUE := RTEMP2

016542
016542
016550
016550

:= R1 CLR.BY #140377

POP R1

016777

000007

LET RTEMP2 := RTEMP2 + R1

012601

062767

:= RTEMP1.+ #1

LET R1-:= SWAP R1

g}gg
016534
016534

:B= QRTEMP1

LET RTEMP1

RTEMP1

BNE

PUSH R1

000301
042701

INC

{F ZERO, BYTE IS ALSO SECOND BYTE OF COUNT (6 HIGH ORDER BITS)
GET IT, MASK IT AND PUT IT INTO RTEMP2 (EXPECTED COUNT)
:

3196

3204
3205

010146

%}88

2199
%28?

LET CNTFLG := CNTFLG = #1

016520
016520
(16526
016526

:= RTEMP1 + #1

IF CNTFLG EQ #0 THEN

3188

3191
3192
3193
%}gg

SEQ 0065

COUNTER FLAG NOT GREATER THAN ZERO, IS IT ZERO?

:
:
016472
016472
016474
016474
016500
016500
016504

50027%:

3170
g};g
3173
3174
3175
3176
3177
3178
3179

PAGE 65

ELSE

:
016464
016464

11:50

LET RTEMP1

%}gg
3166
3167

29-DEC-78

ADD

#7 ,RTEMPZ

UPDATE THE QUEUE AND DECREMENT THE COUNTER FLAG (COUNT COMPLETE)
LET RQUE

:= RQUE + #2°

IF RQUE GT ARQUEB THEN
LET RQUE
ENDIF

:= #RQUET

ADD

#2 ,RQUE

CMP
BLE

RQUE , #RQUEB

MOV

#RQUE
T, RQUE

50032%

)

égbi

29-DEC-78

11:50

e e

KIRSOROROROKIKIKIKS
=3 VO~NnS~
WY

?2(;;1 30A(1052)

177074

d e

SEQ 0066

LET CNTFLG := CNTFLG - M

CNTFLG

DEC

ELSE

000414

50033s

50031$:
COUNTER FLAG IS LESS THAN ZERO...
UPDATE POINTER AND COUNT

3224
005267

177062

005367

177060

LET RTEMPT

005767
001005

177054

005267

176340

THIS IS A DATA BYTE

RTEMPT1

+ M1

RTEMP2 - M1

COUNT HAS REACHED ZERO, END OF MESSAGE.

IF RTEMP2 EQ #0 THEN
LET RDONE

INC

RTEMP1

DEC

RTEMP2

TST

RTEMP2

INC

RDONE

EMT

C$ABRT

CLR

NMSG

MOV

(SP)+ ,R1

SET DONE FLAG.

:= RDONE + #1

50034%

ABORT ANY WAITS AND RESET NEW MESSAGE FLAG

104021

LET RTEMP2 :
IF

005067

50032%:

GO DO AN RTI

e
—

B 6
PAGE 66

ABORTWAIT
LET NMSG := #0

177034

ENDIF

50034%:

ENDIF

50033%:

ENDIF

50030%:

ENDIF

50026%:

DO RTI
012601

POP R1
REXIT:

ENDSRV

L10030:

000002

RTI

e e
+

ROUTINE

TO GET AN INPUT BUFFER FROM THE

INPUT QUEUES

+
+

WILL RETURN AN ERROR IF

TERMINAL DOES NOT RESPOND

ASSEMBLY ROUTINE S
MACY11
CZDZCB.P11
21 -NOV=78 16:33

30A(1052)

29-DEC-78

11:50

C_ 6
PAGE 67

SEQ 0067
+

ARGUEMENT (IF SET)

INHIBITS ERROR PRINTOUT.

THIS ALLOWS

THE PROGRAM TO RETRY THE STRT=STACK SEQUENCE WITHOUT HAVING

;

AN ERROR MESSAGE EACH TIME

+
+
+

a2
2+

)

ROUTINE RCVE

;03.2.1.1, 3.2.20.2 AND 3.2.20.8]
RCVE:

‘RESET TIMER
005067

LET TIMER := 40

177006

CLR

TIMER

‘GO TO SUPERVISOR FOR AWHILE AND INCREMENT TIMER
REPEAT

012700
104027

005267

50002%:

WAITUS #100

000100

;03.2.1.1.4, 3.2.20.2.4, 3.2.20. 8.4]
EMT

LET TIMER := TIMER + #1

176774

#100,R0

CSWTU

INC

TIMER

CMP
BGT
TST

50003%

*LOOP UNTIL TIME LIMIT EXCEEDED OR RECEIVER DONE FLAG IS SET
026767
003003
005767
001764

176770

163244

;

UNTIL TIMER GT TIMLIM OR RDONE NE #0

176274
50003$:

*RESET THE NEW MESSAGE FLAG
005067

176770

LET NMSG := #0

CLR

“IF THE TIME LIMIT WASN'T EXCEEDED...
026767
002044

176746

163222

TIMER LT TIMLIM THEN

CMP
BGE

*RESET THE TIMER

*CHECK FOR ERROR (RDONE LESS THAN ZERO)

016704
016710

005067

176736

005767
003426

176246

o AR
GT

E
016712

LET TIMER := #0
#0

THEN

CLR
TST
BLE

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

:= aRQUEUE

TIMER,TIMLIM

RDONE

50002%

ASSEMBLY ROUTINES

C2DzCB.P1

3324
3325
3326
3327
3328
3329
3330
3331
3332
3333
3334
3335
3336
%%%

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

MACY11

30A(1052)

017767

176752

163236

062767

000002

176742

017767

176736

163224

062767

000002

176726

026727
003403

176722

015706

012767

015674

176710

21-NOV-78 16:33

016760
016760
016764
016764
016766

005067

3369
3370
3371
3372
3373
3374
3375
3376
3377
3378
3379

6
SEQ 0068

LET RQUEUE := RQUEUE + #2
LET INSIZ := QRQUEUE

LET RQUEUE := RQUEUE + #2
IF RQUEUE GT #RQUEB THEN
LET RQUEUE := #RQUET
ENDIF

Mov

@RQUEUE , INBUF

ADD

#2 ,RQUEUVE

MOV

@RQUEUE, INSI1Z

ADD

#2 ,RQUEVE

cMP
BLE

RQUEUE , #RQUEB
50006%

MOov

#RQUET
, RQUEUE

CLR

RDONE

50007%

50006$% :

LET RDONE := #0

176172

ELSE

000410

50005$%:

;ERROR DID OCCUR...RESET THE DONE FLAG, REPORT ERROR, RETURN WITH ERROR

016766
016766
016770
016772
016774
016776
016776
017002
017002
017004
017006
017006
(017006
017006
017010

ERRHRD 26,MSG26,AREA26

104463
000032
003210
004454
005067

LET RDONE

176154

:= #0

RETURN ERROR

000261
000440

ENDIF

000436

TRAP
.WORD
.WORD
.WORD

TSERCODE
26
MSG26
AREAZ26

CLR

RDONE

SEC
BR

50001%

500108

CLR

TIMER

MOV

R1,-(SP)

MOV
sSuB

RCVADD ,R1
#2 ,R1

MOV

R2,=(SP)

MOV

#DZREG,R2

MoV

RCVCSR(R1) ,RCVCS

50007%:

ELSE

500048 :

:3’,3322
3367

PAGE 68

:RESET DONE FLAG AND LEAVE

%_},2;

3349
3350
3351
3352
3353
3354
3355
3356
3357
3358
3359
3360
3361
3362
%3322

11:50

%%23
3341
3342
3343
3344
%%4‘2

29-DEC-78

sTIME LIMIT EXCEEDED...RESET TIMER, GET REGISTER CONTENTS
017010
017010
017014
017014
017016
017016
017022
017026
017026
017030
017030
017034
017034

005067

LET TIMER := #0

176626

PUSH R1

010146
016701
162701

LET R1

176616
000002

PUSH R2

010246
012702

002254

016162

000000

:= RCVADD - #2

LET R2 := #DZREG
000000

LET RCVCSR(R2)

:= RCVCSR(R1)

ASSEMBLY ROUTINES

CZDz(B.P11

3380
3381
3382
3383
3384
3385
3386
3387
3388
3

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

017070

3
3397

017074
017076

017070

LET RCVBUF (R2)

RCVBUF (R1)

LET XMTCSR(R2)

XMTCSR(R1)

LET XMTBUF (R2)

XMTBUF (R1)

MOV

RCVBUF
(R1) ,RCVBU

MOV

XMTCSR(R1) ,XMTCS

Mov

XMTBUF
(R1) ,XMTBU

MOV

(SP)+,R2

MOV

(SP)+,R1

104463
0000
003301
004534

’

ERRHRD 31,MSG31,AREA31

TRAP
.
.WORD
.WORD

;f&ncoos
MSG31
AREA31

SEC
BR

50001%

SRRRRRRSSS

SIIIIIIIIY

*RETURN WITH ERROR IN ANY CASE

H
000261
000401

RETURN ERROR

ENDIF

:
500108

ENDRTN

000241

" CLe

50001¢%:

000207

RSS2SR T

PP T

D
)

el —d

—d

)

v
—

—

D
) =D
b
)

olelelolele]

NNNNNN

DUMMY ROUTINE FOR COMPATIBILITY

—

RTS

eleleololele)

b
x

RRRRRRRRRRERRRR

LSS STNT,S) — e i D d D D e d —d
BANN=OV0O~N VNS WN=O

34
3432

SEQ 0069

POP R1

012601

3399

%09

PAGE 69

*PRINT ERROR MESSAGE

3393

3400

11:50

POP R2

012602

ggg}
3394

29-DEC-78

ROUTINE

TSR TR PP T

INSERR <A>

INSERR:

ENDRTN

50000%:
$0001$:

000207

3433

3434
S 35

PSS

RTS

R TR R TR TR DR

THIS ROUTINE COMPUTES CRC-16 AND REQUIRES THREE ARGUMENTS:

ASSEMBLY ROUTINES

CZDZCB.P11

MACY11

21-NOV-78 16:33

30A(1052)

29-DEC-78

11:50

PAGE 70

SEQ 0070

3436

3438

:
;

3.2.20.6.2. 3.2.20.6.4
AND 3.2.20.10.13

%22;

THIS IS A STANDARD ROUTINE FROM DEC'S NETWORK GROUP

34,37

;

%fi

017112
017112
017112
017112
017112
017112
017114
017116
017122
017122
017124
017124
017126
017126
017130

260
261
362
3463
3464
3465
366

017134
017134
017140
017140
017142
017142
017142

3468
369
3470
3471
3472
3473
3474

017146
017146
017152
017152
017160
017160
017162

3476
%77
3478
3479

017164
017170
017174
017200

267

3475

3480

3481
3482
3483
3484
3485
3486
3487
3488
3489
3490
3491

FOR ms ccwu ED CRC

£3.2.1.2.1,

3.2.1.2.4,

3.2.20.1.2, 3.2.20.3.1.

.
+
+

3443
3444
3445
%46
247
3448
3449
3450
%51
3452
2453
3454
3455
3456
3457
2458

3459

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

017130

017144

010446
010604
162706

000004

010146
010246
010346

016501

000000

016502

000002

LET R2 := B(RS)

LET R3 := #0

005003

WHILE R2 GT #0 DO

005702

003500
112164

177776

042764

177400

LET D(R4)
177776

005302

LET D(R4)

010346

046416
040264
052664

177776
177776
177776

017200

016464

177776

177774

042764

177760

177776

006364

177776

062764

017366

177776

017464

177776

042764

177417

177774

:B= (R1)+
:
:= D(R4) CLR.BY AHYBYTE

LET R2 := R2 - #1

LET D(R4)

017162

017206
017206
017214
017214
017220
017220
017226
017226
017234
017234
017242

:++++++++++++f+4+++++0+++0++++#+##++§++f#++++++¢##++4+++++00+++#+++++++
ROUTINE CRC <A,.B,C>
CRC:
DECLARE LOCALS
LOCAL<D,E>
ALLOCATE
MOV
MOV
SuB
PUSH R1
MOV
PUSH R2
MOV
PUSH R3
MOV
LET R1 := A(RS)

:= D(R4) XOR R3

LET E(R4)

:= D(R4)

LET D(R4)

:= D(R4) CLR.BRY #177760

LET D(R4)

:= D(R4) SHIFT #1

LET D(R4)

:= D(R4) + #CRCTABR

LET D(R4)

:= aD(R4)

LET E(R4)

:
:= E(R4) CLR.BY #177417

LET E(R4)

:= E(R4) SHIFT =3

500028:

R4 ,-(SP)
SP,R4
#4.SP
R1,=(SP)
R2,=(SP)
R3,=(SP)

MOV

A(RS) ,R1

MOV

B(RS) ,R2

CLR

MOVB

(R1)+,D(R&4)

BIC

#HYBYTE ,D(R4)

DEC

MOV

R3,=(SP)

MOV

D(R&)
,E (R4)

BIC

#177760.,D(R4)

ASL

D(R4)

ADD

#CRCTAB.D(R4)

MOV

aD(R4) ,D(R4)

BIC

#177417 ,E(R4)

BLE

BIC
BIC
BIS

50003%

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

ASSEMBLY ROUTINES

006264
006264
006264

177774
177774
177774

062764

017366

177774

062764

000040

177774

017464

177774

016446
046416
046464
052664

177774
177776
177774
177776

042703

000377

177776

052603

012603
012602
012601

LET E(RG)

E(R4) + #CRCTAB

LET E(R4)

E(R4G) + #32.
-

LET E(R4)

aE (R4)

LET D(R4)

D(R4) XOR E(R4)

SEQ 0071

177776
LET

R3 CLR.BY #LOBYTE

LET R3 :

SWAP R3

LET R3 :

R3 XOR D(R4)

177776
ENDDO

000676

010365

:50 PAGE 91 ’

017242
017246

29-DEC-78

3492
3493

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

| czpz(B.P11

000004

LET C(RS)

:= R3

E(R4)
E(R4)
E(R4)

ADD

#CRCTABE (R4)

ADD

#32. ,E(R4)

MOV

aE (R4) ,E(R4G)

MOV
BIC
BIC
BIS

E(R4) ,-(SP)
, (SP)
D(R4)

BIC

#LOBYTE ,R3

SWAB

MOV
BIC
BIC
BIS

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

POP R2

POP R1

500008%:
50001%:

E(R4) ,D(R4)
(SP)+,D(R4)

50002%

50003s:

POP R3

ENDRTN

ASR
ASR
ASR

MOV

R3.C(RS5)

MOV

(SP)+,R3

MOV

(SP)+,R2

MOV

(SP)+ ,R1

R4 ,SP
(SP)+,R4

CRCTAB: 000000
140301
140601

000500

b
b o
cd
-l

eolelelolelelels]

141401

142701
142201

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

ASSEMBLY ROUTINES

CZDz(B.P11

3548
3549
3550
3551
3552
3553
3555

3557
3558
3559
3561
3562
3563
3564

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

002100
000000
146001
154001
012000
170001
036000
024000
162001
120001
074000
132001
05
116001
104001
042000

29-DEC-78

11:50

002100
000000
146001
154001
012
170001
036000
024000
162001
120001
066000
074000
132001
05
116001
104001
042000

H 6
PAGE 72

SEQ 0072

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

ASSEMBLY ROUTINES
CZDzCB.P1
21-NOV-78 16:33

017466

6
SEQ 0073

BGNMOD TESTS

HARDWARE TES Ts [3.2]

; OOOOOOOOODOODDDIODDDDDDDDODDOIDDODOD

SELF TEST [3.2C]

;(><><><;é;§g?><><>(><><><><><><><><)<><)<><><><>(><)(><><><><><><><>

017466

*FORCE INIT OF COMM DEVICE AND LINK
017466
017466

005067

LET INIT

176156

:= #0

CLR

INIT

*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 1= MDMSG+?2

MOV
BIC

MDMSG,OUTMSG

MOV

MDMSG+2,0UTMSG+2

JSR

PC,TEROUT

#100001 , 0UTMSG

*SEND THE MESSAGE
017514
017514

004767

CALL TEROUT

173040

*IF ERROR....
017520
017520

IF .ERROR THEN

103015

;

50004%

INSERT ERROR INTO STATISTICS TABLE (MANUFACTURING VERSIONS

REPORT

THE

ERROR,

REQUEST

SUPERVISOR TO LOOP

IF LOOPING ENABLED (EXIT TEST IF NO LOOPING)
CALL INSERR IN <#0>

RE3R

3607

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

000000
177354

PC, INSERR

(SP)+,R5

ERRHRD 50,MSG50,AREA4Q

TSERCODE
50
MSG50
AREA4O

(KLOOP

CSCLPY

EXIT TST
ENDIF

CSEXIT
L10031~,
50004%:

ASSEMBLY ROUTINES
MACY11 30A(1052)
=NOV=7.8 16:33
CZDzZCB.P1

29-DEC-78

11:50

PAGE 74

SEQ 0074

*LOOK FOR ACK
017554
017554
017560
017564

162705

004767
012567

000002

CALL TERIN OUT <MCOMP>

SUB
JSR
MOV

174056
000674

#1%2 RS

PC,TERIN

(R5)+ ,MCOMP

IF ERROR. . . INSERT ERROR INTO TABLE (MANUFACTURING TEST ONLY)
REPORT THE ERROR, REQUEST LOOP IF ENABLED
IF NO LOOPING)

017570

IF .ERROR THEN

103015

010546
012745

(EXIT TEST

CALL

50005%

INSERR IN <#0>

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

000000
177304

PC, INSERR

(SP)+,R5

ERRHRD 50,MSG50,AREA4Q

TSERCODE

50
MSG50

AREA4O

(kLOOP

CS$CLPT

EXIT TST

CSEXIT

L10031~-.

ENDTF

017624

50005%:

IF MESSAGE WAS NOT AN ACK. . .ERROR
REPORT ERROR,

017624

005767
001407

000634

EXIT

TEST

NOT

iF MCOMP NE #0 THEN
MCOMP

50006%

ERRHRD 50,MSG50,AREA4Q

104463

00006
003467
004262

TSERCODE

MSG50
AREA4Q

CKLOOP

104006

CSCLPY

EXIT TST

104032

000316
3671

LOOP IF ENABLED,

ENDIF

017650

CSEXIT
L10031-.
50006%:

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

005067

175774

LET INIT := #0
LET SCRT(H := #0

CLR

INIT

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

29-DEC-78

ASSEMBLY ROUTI NES

CZpzCB.P1

3678
3679

017654

005067

012700

104027

162232

162220

026767
003767

162214

K 6
PAGE 75

REPEAT

WAITUS #100

000100

005267

11:50

SEQ 0075
SCRTCH

MOV
EMT

#100,RO

INC

SCRTCH

CMP
BLE

SCRTCH, STWAIT

MOV
BIC

MDMSG1,0UTMSG

MOV

MDMSG1+2,0UTMSG+

JSR

PC, TEROUT

50007%:

LET SCRTCH := SCRTCH + #1
UNTIL SCRTCH GT STWAIT

172012

CLR

CSWTU

50007$

1SET UP MESSAGE ASKING FOR RESULTS AND SEND IT
017702
017702
017710
017716
017716
017724
017724

016767
042767

000570
100001

162232
162224

016767

000556

162220

004767

172630

LET OUTMSG := MDMSG1 CLR.BY #100001
LET OUTMSG+2 := MDMSGi+2
CALL TEROUT

#100001,0UTMSG

:IF ERROR....INSERT ERROR IN TABLE (MANUF. TESTS ONLY), REPORT ERROR,

017730
017730
017732

103015
010546
012745
004767
012605
104463

000062
003467
004262
104006

104032

- 000202

;

LOOP IF ENABLED, EXIT TEST IF NO LOOPING

]

IF .ERROR THEN

500108

CALL INSERR IN <#0>

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

000000
177144

PC, INSERR

(SP)+,RS

ERRHRD 50,MSG50,AREA4Q

TSERCODE

50
MSG50
AREA4O

CKLOOP

C$CLPT

EXIT TST
ENDIF

CSEXIT
L10031-.

50010%:

*ACK TERMINAL AND GET ITS RESPONSE
REPEAT

50011%:

*GET THE RESPONSE
162705
004767
012567

CALL

TERIN OUT <MCOMP>

SuB
JSR
MOV

#1%2 RS

PC,TERIN

(RS)
+ ,MCOMP

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

ASSEMBLY ROUTINES
cZpzcB.P1
21-NOV-78 16:33

6
SEQ 0076

HANDLE ERROR IF ONE OCCURED.

103015

3740

020002

010546

%;43

020014

012605

3741
3742

020004
020010

020016
020020
020022
020024

104463
000062
003467
004262

3750

020026

104006

3752

020030

104032
000132

020032

50012%

CALL INSERR IN <#0>

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

012745
004767

3745
3746
3747
3748

3753

IF .ERROR THEN

3757
3758

34
(20034
020040

005767
001026

3760

020042

004767

PC, INSERR

(SP)+,R5

ERRHRD 50,MSG50,APEA4D

T$ERCODE
50
MSG50
AREA4O

CKLOOP

CS$CLP

EXIT TST
ENDIF

IF MCOMP EQ #0 THEN

CSEXIT
L10031~-.
50012%:
MCOoMP

50013s

CALL OUTREP

PC.,OUTREP

HANDLE ERROR IF ONE OCCURED WHILE ACK'ING

3765

020046

103023

3767
3768
3769
3770

020050
020052
020056
020062

010546
012745
004767
012605

3772
3773
3774
3775
3776
3777
3778

020064
020066
020072
020076
020100
020100
020102

010546
012745
004767
012605

IF .ERROR THEN

500148

CALL INSERR IN <#0>

R5,=(SP)

#0,-(R5)

PC, INSERR

CALL

(SP)+,R5

INSERR IN <#1>

R5,-(SP)

#1,-(RS)

PC, INSERR

(SP)+,R5

ERRHRD 50,MSG50,AREA4Q

104463
000062

TSERCODE

MSGS0
AREA4Q

(KLOOP

CSCLP1

EXIT TST

ENDIF
ENDIF

CSEXIT
L10031~.
50014%:
50013%:

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

29-DEC-78

ASSEMBLY ROUTINES

cZpzCB.P1

3790
791
792
;793

11:50

M_6
PAGE 77

SEQ 0077

*REPEAT THE LOOP UNTIL A MESSAGE IS RECEIVED
020116

005767
001720

UNTI L MCOMP NE #0

000342

TST

MCOMP

JSR

PC,STINPT

BEQ

50011$

*PROCESS THE MESSAGE RECEIVED
020124

004767

CALL STINPT

000146

:1F_IN ERROR...INSERT ERROR INTO TABLE (MANUF
. TESTS ONLY, REPORT
;ERROR, LOOP IF ENABLED, EXIT TEST IF NOT
IF.E RROR THEN

103015

010546

CALL

50015$%

INSERR IN <#1>

R5,=(SP)

000001

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

176744

ERRHRD 50,MSG50,AREA4Q

TSERCODE
50
MSG50
AREA4Q

(KLOOP

cs$cCLP1

EXIT TST

CSEXIT
L10031-.

ENDI F

50015%:

*END OF TEST
ENDT ST
3

L10031:

104001

:
020166
020166

ROUTINE TO SEND AND ACK IN ORDER TO POLL A TERMINAL
RS T TR

EMT

+
+
+

T T TR TT ST T T T LTI T T TR TPPGP

ROUT INE OUTREP

OUTREP:

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

CSETST

ASSEMBL Y

ROUTINES

C2DZCB.P1
3846

LET REPA :B= STRTSA

020202

3855

020210

/57
3858
3859
W0
361
%gg%

020214
020216
020222
020226
020232
020234

3866

020240

010546
012745
012745
004767
012605
012567

CALL CRC IN <AREPM,#6> OUT <REPCRC>

000006
020506

176660

000254

020240 012767 020506 175406
020246
020246 012767 000010 175402
020254
020254 004767 174364

%g;{
3875

*SET UP BUFFER POINTER AND SIZE AND SEND THE MESSAGE
LET XBUFFER := #REPM

3880

3881

3882

020266

CALL XMIT

RETURN ERROR

000261

020272

ENDIF

020272

ENDRTN

3885
3886
3887
3888

020272
020272
020274
020274

3893

2899

50000%:

50001$:

000207

3000
3901

;

020276

020276 .

MOV

UF
#REPM,XBFER

MOV
JSR

#10,XS1ZE
PC XMIT

ROUTINE TO PROCESS TERMINAL SELFTEST RESULTS

"0##4000~0+0++0+¢+¢+++4+000#+¢++++++0#000+#009+¢00+0+0000#+f¢00¢

ROUTINE STINPT
PUSH

50002%
OUTERR
S0001$%

50002%:

000241

%339

RS,-(SP)
#6,-(RS)
#REPM,~(RS)
PC,CRC
(SP)+,RS
(R5)+,REPCRC

SEC

;¢¢+#*+#+++0++++++1+#++40#§+0+0#+#+0+¢+++§0++¢+0000++§++0+0§000

33%3%

MOV
MOV
MOV
JSR
MOV
MOV

3890
3891
3892

3898

#1%2 RS

BCC
INC

LET OUTERR := OUTERR + #1

020270 000401

020272

3889

LET XSIZE := #10

IF .FRROR THEN

020260

3883
3884

SuB

STRTSA,REPA

“IF AN ERROR OCCURRED, RETURN WITH ERROR. OTHERWISE RETURN NORMALLY

3876 020260 103004
3877 020262
3878 020262 005267 161642
3879

MSGNO,MSGN
RMSGNO,REPN

MOVB

3856 020210 162705 000002

MOVB
MOVB

:COMPUTE AND INSERT CRC

gggz

3867
3868
3869
3870
%g;}

SEQ 0078

LET REPN :B= RMSGNO

’s%%% 020202 116767 163467 000303

| %ggg

PAGE 78

LET MSGN :B= MSGNO

020166

a7 020166 116767 162002 000316
3848 020174
W49 020174 116767 161776 000307
3850

11:50

29-DEC-78

MACY11 30A(1052)

21-NOV-78 16:33

STINPT:

CcLC
RTS

[

HAC§§1 30A(1052) 29-DEC-78 11:50 PAGE 99

ASSEMBLY ROUTINE
cZpz(B.P1
21-NOV-78

020276
20300

02010
020302

010146

SEQ 0079

PUSH R2

010246

PUSH R3

010346

MOV

R1,=(SP)

MOV

R2,-(SP)

MOV

R3,-(SP)

MOV
ADD

INBUF ,R1

CMPB

(R1) #101

move

(R1)+,R3

CMPB

R3,#115

ADD

#2.R1

MOV

#MTY ,R2

MOvVB

(R1)+,(R2)+

MovB

(R1)+,(R2)+

MOV

#BNO,R2

INC

MovB

(R1) ,R3

ADD

#60,R3

move

R3.,(R2)

TRAP

T$ERCODE

*SKIP RESPONSE HEADER AND CHECK FIRST DATA BYTE
020304
020304
020310

016701
062701

161646

LET R1

:= INBUF + #4

000004

—_—

020314
020314
020320

SIF IT IS "A", GOOD RESPONSE. OTHERWISE...
000101

IFB (R1 ) NE #1017 THEN

BEQ

GET THE BYTE AND CHECK TO SEE IF

120327

001025

IT IS 'M'' (MEMORY ERROR)

LET R3 :B= (R1)+

112103
000115

0002

IFB R3 EQ #115 THEN

50003$

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

020332
020332

062701

000002

012702

003635

112122

012702

003651

005201

110312

020372

+ #2

LET R2 := #MTY
LET (R2)+

:B= (R1)+

LET (R2)+

:B= (R1)+

LET R2 := #BNO
LET R1

:= R1 + #1

LET R3 :B= (R1)

111103

062703

LET R1

000060

LET R3 := R3 + #60

LET (R2)

:B= R3

ERRHRD 71,MSG71

POP R3

.WORD

5671

29-DEC-78

ASSEMBLY ROUTINES
MACY11 30A(1052)
CZDzCB.P11
21-NOV-78 16:33

11:50

012603

SEQ 0080

POP R2

012602

POP R1

012601

RETURN ERROR

000261
000427

ELSE

:
120327
001010

PAGE 80

(SP)+ ,R3

MoV

(SP)+,R2

MoV

(SP)+,R1

SEC
BR

50001%

50003$:

NOT A MEMORY ERROR OR PASS...CHECK FOR 'P'' (PROCESSOR ERROR)
IFB R3 EQ #120 THEN

000120

MOV

CMPB
BNE

R3,#120
50005%

TRAP

T$ERCODE
72

PROCESSOR ERROR...REPORT IT AND EXIT WITH ERROR
ERRHRD 72,MSG72

POP R3

012603

POP R2

012602

POP R1

012601

RETURN ERROR

000261
000414

ELSE

.WORD

MSG72

MOV

(SP)+,R3

MOV

(SP)+,R2

MOV

(SP)+,R1

gsc

50001%

50005$%:

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

104423

000106
003556

POP R3

012603

POP R2

012602

POP R

012601

RETURN ERROR

000261
000404

END] F

ENDIF
ENDIF

50006%:

50004%:
50002%:

TRAP

.WORD
.WORD

T$ERCODE
70
MSG70

MOV

(SP)+,R3

MOV

(SP)+,R2

MOV

(SP)+,R1

SEC
BR

50001%

CZDzCB.P1

29-DEC-78

MACY11 30A(1052)

ASSEMBLY ROUTINES

21-NOV=78 16:33

012601

4022

020460

000241

SEQ 0081

POP R2

012602
020456
60

0 7
PAGE 81

POP R3

012603

4019

11:50

POP R1

ENDRTN

500008:

50001$:

000207

MoV

(SP)+,R3

MoV

(SP)+,R2

MOV

(SP)+,R1

cLc
PC

RTS

*MESSAGE AREA FOR SELFTEST
4030

020466

4032
4033
4034

020472
020475
020476

4038

020476
020500
020502

4035
4036
4037

000000
020472
000004
040
000
120503
000004
040

MCOMP:
MDMSG:

002

050

EMDMG1:
MDMSG1:

002

051

EMDMG2:

. +4

EMDMG1=2~.
.BYTE 40,2,50,0
.EVEN
.+100005

EMDMG2-2~.
.BYTE 40,2,51.,0
.EVEN

*ACK MESSAGE AREA
4045
4046
4047
4048
4049

020506
020511
020512
020513
020514

005
000

001

000

200

REPM:

REPN:
MSGN:

REPA:
REPCRC:

.BYTE ENQ,ACK,200

.BYTE
.BYTE
.BYTE
.WORD

0
0
0
0

HOL 0120202020 2020 2021020201920

:
.

4056

10 1020202022920 202019 20292919 2o 2o 2o 26

LOOPBACK TEST

S
<>

,‘()()()(g()?g?)<><><><><><><><><><><><><><><><><><><><><><><><><><><><>

020516

*CLEAR ALL FLAGS
4060
4061

4065

020516
020516

020526

005067

161374

005067

161406

005067

161406

LET ABORT := #0
LET EOMSG .= 40
LET EXPINP := #0

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

020532

LET INIT

:= #0

CLR

ABORT

CLR

EOMSG

CLR

EXPINP

ASSEMSLY ROUTI
CZDzCB.P11

]

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

S
=NOV=7.8 16:33

005067

175112

004767

172252

CALL XSTRT
; IF ERROR DURING START=UP...INSERT INTO TABLE
;IT, LOOP IF ENABLED--EXIT IF NOT

(MANUF.

CALL INSERR IN <#0>

000000
176332

ERRHRD 51,MSG51,AREA4QD

CKLOOP

EXIT TST
ENDIF

020576

CLR

INIT

JSR

PC_XSTRT

TESTS ONLY, REPORT

IF .ERROR THEN

103015

010546

SEQ 0082

BCC

50007%

MOV
MOV
JSR
MOV

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

TRAP

TSERCODE

PC, INSERR

(SP)+,R5

.WORD
.WORD
.WORD

51
MSG51
AREA4O

EMT

CS$CLPT

EMT
.WORD

CSEXIT
L10032-.

MOV

R1,-(SP)

MOV

#L00P8B,R1

TST
BEQ

PATTERN

CLR

SCRTCH

500118

MOV

#125125,SCRTCH

MOV

SCRTCH, (R1)+

CMP
BNE

R1,#ELOOPB

50007%:

sFILL MESSAGE AREA WITH 256 BYTES OF SELECTED PATTERN

—
) —
— e
-

N N

) D ) D nd
) —d el —d D

OOV
N W=D

)
d

NN N

020576
820576

PUSH R1

010146

012701

021414

005767
001403

171100

005067

161274

LET R1

IF PATTERN NE #0 THEN
LET SCRTCH := #0
ELSE

000403
012767

125125

:= #LOOPB

161264

LET SCRTCH := #125125
ENDIF

50011%:

REPEAT

016721

161260

020127
001373

022014

LET

50010%:

(R1)+

:= SCRTCH

UNTIL R1 EQ #ELOOPB

50012%:

EPUT A 1 AT THE END TO ASSURE THAT THE FINAL BYTE IS NOT NULL (0)
LET R1

500108

:= #ELOOPB - #1

500128

ASSEMBLY ROUTINES

C(ZpzcB.P1
4126
4128
4129

020640
020644
020646
020646

MACY11

21-NOV-78 16:33
012701
005301

022014

112711

000001

30A(1052)

4137
4138
4139

LET (R1)

4144

020652
020652
020656
020662
020662
020666
020666

012701
062701

002200
000005

111167

000523

LET R1

4148

4158
4159
4160

012601

020670

112767

000030

000516

020676

112767

000001

000504

4178
4179

4180

MOvB

#1,(R1)

:= #PTABLE + #5

MOV
ADD

#PTABLE ,R1
#5.R1

mMovB

(R1) ,LOOSTA

MoV

(SP)+,R1

;

LET LOOPB :B= #0SOP

MOVEB

#0SOP,LOOP8

;

MOVB

#1.LOOPN

LET LOOPN :B= #1

:COMPUTE AND INSERT HEADER CRC
020704

020722
020726
020730

62705

10546
12745
12745
004767
012605
012567

CALL CRC IN <#LOOPH,#6> OUT <LCRCH>

000002
000006
021404
176164

000456

SuB

#1%2,R5

MOV
MOV
MOV
JSR
MOV
MOV

RS.=(SP)
#6,-(RS)

#LOOPH,=(R5S)
PC,CRC
(SP)+ ,R5
(R5)+ ,LCRCH

suB

#1%2 RS

MOV

#256.,~(RS)

MOV
JSR
MOV

#LOOP8,
- (RS)
PC,CRC

MGV

(RS)+.LCRCD

MOV

#LOOPH
, XBUF FER

MOV

#266. ,XS12E

JSR

PC,XMIT

*COMPUTE AND INSERT DATA CRC
020734

62705

000002

745

000400

020752

12
5
004767

021414
176134

001030

CALL CRC IN <#LOOPB,#256.> OUT <LCRCD>

MOV

4173

4175
4176
4177

#ELOOPB,R1
R1

*SET MESSAGE NUMBER

}g546

4169

MOV
DEC

*INSERT LOOP DATA TYPE

4162
4164

:B= #1

POP R1

4151
4153

LET LOOSTA :B= (R1)

4146
4149

PAGE 83

sGET THE STATION ADDRESS AND INSERT IT IN THE HEADER

4141

4143

11:50

SEQ 0083

2}%12
4133
4134
4135
4136

29-DEC-78

RS,-(SP)

(SP)+.RS

:SET UP BUFFER POINTER AND SIZE....SEND MESSAGE

020764
020764
020772

020772
021000

021000

012767
012767

004767

021404

:
174662

000412

174656

173640

LET XBUFFER := #LOCPH

LET XSIZE

CALL

XMIT

:= #266.

ASSEMBLY ROUTINES

CZDZCB.P11

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

21-NOV-78 16:33

4182

;IF_ERROR OCCURRED...INSERT THE ERROR INTO TABLE (MANUF.
*REPORT THE ERROR, LOOP IF ENABLED

103012

010546
012745
004767
012605

SEQ 0084
cSTS ONLY),

IF .ERROR THEN

50013

CALL INSERR IN <#0>

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

000000
176070

PC, INSERR

(SP)+,R5

ERRHRD 51,MSG51,AREA4D

104463
00006 3
003515
004262

ENDIF

50013%:

(kLOOP

104006

TSERCODE

51
M5G51
AREA4Q

C$CLPT

*SEND ACK'S TO TERMINAL UNTIL IT RESPONDS
REPEAT

021034

021044

162705

004767
012567

000002

500148%:

*GET RESPONSE
CALL TERIN OUT <LCOMP>
:

SUB
JSR
MOV

172576

000326

#1%2 RS

PC,TERIN

(R§)+,LCOMP

:IF ERROR OCCUNS...INSERYTIN TABLE (MAN. ONLY), REPORT [T, LOOP IF
*ENABLED, EXIT TEST IF NO

;

103012

010546

IF .ERROR THEN
CALL

50015%

INSERR IN <#0>

RS,~-(SP)

000000

#0,-(RS)

176024

PC, INSERR

(SP)+ RS

ERRHRD 51,MSGS51,AREA4Q

TSERCODE

ENDIF
(KLOOP

000272
177054

If LCOMP EQ #0 THEN
CALL CUTREP

MSG51
AREA4O

500158%:

EMT

C$CLPT

TST

L COMP

JSR

PC.,OUTREP

50016%

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

4242
4243
4244
4245

021112
021112
021114
021114

4248
4249
4250
4251
4252

4253
4254
4255
4256
4257
4258
4259
4260

021126
021130
021130
021132
021136
021142
021144
021144
021146
021150
021152
021154
021154

4263

021160

4246
4247

4261
4262

4264

021116
021122

021156
021156
021162

4265

021162

252;

021162

2598

4271
4272

021162
021162

4266

25;2

2%%9

4282
4283
4284
4285
4286

23%;

000000
175762

010546
012745
004767
012605

000002
175746

CALL

7
SEQ 0085

CKLOOP

104006

EXIT

104032
000074

TST

ENDIF

021162

021166

INSERR IN <#2>

FRRHRD 51,MSGS51,AREA40

104463
000063
003515
004262

BCC

50017%

MOV
MOV
JSR
MOV

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

MOV
MOV
JSR
MOV

RS,=(SP)
#2,-(RS)
PC, INSERR
(SP)+,RS

TRAP
.WORD
.WORD
.WORD

TSERCODE
51
MSG51
AREA4O

EMT

CS$CLP1

EMT
.WORD

CSEXIT
L10032-.

TST

LCOMP

JSR

PC,PROLOP

EMT

C$BSEG

CLR

INIT

JSR

PC XSTRT

(SP)+,RS

50017%:

ENDIF

50016%:

JREPEAT LOOP UNTIL TERMINAL SENDS LOOPBACK DATA
005767

001722

000210

UNTIL LCOMP NE #C

BEQ

50014%

;PROCESS THE LOOPBACK DATA
021170
021170
021174

021174

021176
021176
021202

021202

004767

]
000062

104004

005067

174446

004767

171606

CALL PROLOP

BGNSEG
SREINIT THE LINK
:
LET INIT

:= #0

CALL X3TRT
;IF ERROR OCCURS,

253?

4293

PAGE 85

CALL INSERR IN <#0>

010546
012745
004767
012605

4289
4292

11:50

IF .ERROR THEN

103023

2%;2
4277
4278
4279

29-DEC-78

3
;sIF AN ERROR OCCURS...INSERT IN TABLE (MAN. ONLY), REPORT IT, LOOP
;IF ENABLED = EXIT TEST IF NOT

4238
4233
4240

30A(1052)

INSERT ERROR INTO TABLE

(MANUF. ONLY), REPORT ERROR,

;LOOP ON REINIT IF ERROR LOOPING ENABLED...EXIT TEST IF NO LOOPING

021206

103020

IF.ERROR THEN

BCC

50020%

ASSEMBLY ROUTINES

CZbz(B.P11

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

21-NOV-78 16:33
010546

012745
004767
012605

010546
012745

004767
012605

SEQ 0086

CALL INSERR IN <#0>

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

900000
175666

PC, INSERR

(SP)+,RS

CALL INSERR IN <#2>

R5,=(SP)
#2,-(RS)

000002
175652

PC, INSERR

(SP)+,RS

ERRHRD 51,MSG51,AREA61

104463

T$ERCODE

000063
003515

005052

ENDIF

500208%:

CKLOOP

104006

021252

MSGS1
AREA61

Cc$CLP1

ENDSEG

100008%:

104005

EMT

C$ESEG

EMT

CSETST

‘END OF TEST
021254
021254
021254

ENDTST

L10032:

104001

Al st

ROUTINE

TO PRCCESS LOOPBACK DATA

+
+

021256

ROUT INE PROLOP
PUSH R1

010146
021262

PUSH R2

010246

PUSH R3

010346

FROLOP:

MOV

R1,-(SP)

MOV

R2,=(SP)

MOV

R3,-(SP)

MOV

#L00PB ,R1

MOV

#128. .R2

‘R1 = POINTER TO EXPECTED DATA

:R2 = COUNT OF DATA EXPECTED
:R3 = POINTER TO DATA FROM TERMINAL

021274

012701

021414

012702

000200

LET R1 := #LOOPB
LET R2 := #128.

LET R3 := INBUF

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

ASSEMBLY ROUTINES

Czbz(B.P11
4350

021274

29-DEC-78

11:50

PAGE 87

016703

SEQ 0087
MOV

INBUF ,R3

CMPB
BEQ

50003s

*CHECK DATA BYTE-BY-BYTE...
4354
4355

021300
021300

REPEAT
RROR. ..INSERT ERROR INTO TABLE (MANUF. ONLY), REPORT ERROR
LUDING RECEIVED/EXPECTED BYTES), RETURN WITH ERROR

4361
4362

021300
021302

121113
001423

4364

021%?8

011167

4366

021%}2

011367

IFB (R1) NE

(R3) THEN

LET AS2A :

(R1) ,A52A

LET A52B :
CALL

010546

(R1),(R3)

(R3) ,A528

INSERR

R5,=(SP)

#2.-(R5)

PC,INSERR

(SP)+,R5

ERRSOFT 52,MSG52,AREAS?2

4378

021340

012603

4380

021342

012602

4382

021344

012601

4384
4385

021346
021350

4387

(021352

000261
000411

TSERCODE

52
MSGS52
AREAS?2

POP R3

(SP)+,R3

POP R2

(SP)+,R2

POP R1

RETURN ERROR

(SP)+,R1
SEC

ENDIF

500018

*UPDATE COUNT AND POINTERS
4391
4392

021352
021352

005201

4394

021354

005302

4396

021356

005203

LET R1

:= R1

+ #

LET R2 := R2 - #1

LET R3 := R3 + 11

INC

DEC

INC

BNE

TST

R2
50002%

MOV

(SP)+,R3

‘REPEAT UNTIL ALL DATA HAS BEEN CHECKED
4401
4402

021360
021362

005702
001346

4404

021364

012603

UNTIL R2 EQ #0
POP R3
POP R?

ASSEMBLY ROUTINES

CZbzCB.P1

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

29-DEC-78

012602

11:50

K 7
PAGE 88

POP R1

012601

ENDRTN

000241

021374

000207

(coMP:

021376

LOOPMG:
000

022016

S0000$:
50001$%:

*LOOPBACK MESSAGE AREA

021412
021414
022014.
022014

SEQ 0088

201

LOOPH:

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

LOOPN:
.BYTE O
LOOSTA: .BYTE
0
LCRCH:
O
LOOPB:
.BLKW
128.
ELOOPB:

LCRCD:

O
ENDMOD

MOV

(SP)+ ,R2

MOV

(SP)+,R1

cLc
RTS

ASSEMBLY ROUTINES

CZDzZCB.P1

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

1-NOV-78 16:33

22%3 022016

4436
4437
4438
4439
4440
4441
4442
4443
444k
4445
4446
4447
4449
4450
4451
4452

022016

022016
022020
022020
022022
022024
022026
022030
022030
022032
022034
022036
022040
022042
022044
022046
022050

4453
4454
4455
4456
4457
4458
4459
4460
4461
4462
4463
4464
4465
4466
4467
4468
4469
4470

022052
022052
022054
022056
022060
022062
022064
022064
022066
022070
022072
022074
022076
022076
022100
022102
022104
022106

4472
4473

022110
022112

4474
4475
4476

4477

022114
022116
022120

022122

4478
4479
4480
4481

022122
022124
022126
022130

4483

022130

4485
4486

022130
022136

4482

4484

SEQ 0089

BGNMOD PTCODE

22_;2

4435

000044

HARDWARE PARAMETER CODING

;

BGNHRD

000031
022130
000000
177776

001031

GPRMA

DEVICE,0,0,0,177776,YES

GPRMA

VECTOR,2,0,0.,400,YES

.WORD L10033-LSHARD/2
.WORD
.WORD
.WORD
.WORD

.WORD

022145
000000

000400

GPRMD

022161
000340
000000
000007

002032
022203
177400
000000
000377
003032
022226
000007
000000
000007
003032
022244
007400
000000
000017

GPRMD

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

GPRMD

LINE.6.0,7,0,7,YES

GPRMD

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

003032
022260
000070
000000
000007

GPRML

004130
022324
177777

NMODEM,10,177777,YES

ENDHRD
'

055104
042522

0404 40
051523

042104
02 0072

DEVICE:

.ASCIZ /DI ADDRESS:

L10033:

VECTOR
TSLOLIM

.WORD
.WORD
.WORD
.WORD

PRIOR
340
TSLOLIM
TSHILIM

.WORD
.WORD
WORD
.WORD
.WORD

TSCODE
STATION
177400
TSLOLIM
TSHILIM

.WORD
.WORD
WORD
.WORD
.WORD

TSCODE
LINE
7
TSLOLIM
TSHILIM

.WORD
.WORD
.WORD
.WORD
WORD

TSCODE
BAUD
7400
TSLOLIM
TSHILIM

.WORD
.WORD
WORD
.WORD
WORD

TSCODE
FLAGZ
70
TSLOLIM
TSHILIM

.WORD
.WORD
WORD

TSCODE
NMODEM
177777

.EVE

TSCODE

.WORD
"WORD

JWORD

PRIOR,4,0,340,0,7,YES

TSCODE
DEVICE
TSLOLIM
TSHILIM

TSHILIM

—

ASSEMBLY ROUT INE S

4487
4488

850177
051105
020114
051505

4503

022252

052101

29-DEC-78

11:50

L4
PAGE 90

VECTOR:

.ASCIZ /DZ VECTOR: /

PRIOR:

.ASCIZ /DZ BUS PRIORITY:

042576
042502

047040
035122

LINE:

.ASCIZ /LINE NUMBER: /

042125
035105

051040
000040

BAUD:

.ASCIZ 7BAUD RATE:

BAUD RATE SELECTION:
TYPE

TO GET

BAUD RATE SELECTION:

050117

LAGZ:

BAUD RATE

THIS RATE

—

TO GET

— e d d e e wd B NJOANNSDNWN)
=2 O
NOWVSWN—=O

TYPE

022316

STATION: .ASCIZ /TERMINAL ADDRESS: /

4532

SEQ 0090

cZpzce.PN

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

.ASCIZ @STOP CODE/CHAR. LENGTH (SEE DOC.):

035051
ALLOUABLE RESPONSES :

? =

1 5TOP BIT - g BIT CHAR.

“°

4 =
5

2STOPBIT -5

;

——

29-DEC=78

MACY11 30A(1052)
ASSEMBLY ROUTINES
21-NOV-78 16:33
CZ0z2CB.P11

11:50

PAGE 9N

7
SEQ 0091

051525

033352 0
022340

.EVEN

022352

000015

;

SOF TWARE PARAMETER CODING

p—
GPRMD ALIMIT.0,0,177777.0,77777.,YES

000032
022406
177777
000000
077777

WORD L10034-L$
" SOF T/2
LWORD
TSCODE

.WORD L
"WORD
‘WORD

‘WD T Im

GPRML PATTRN,2,177777,YES

001130
022455
177777

LWORD

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

047510

T
ENDSF

020127

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

TSCODE

.WORD
TWORD

TSCODE
SWAIT

"WORD
"WORD

TSLOLIM
TSHILIM

‘WORD

000000
077777

ALIMIT
177777

177777

L10034:

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

SWAIT:

022612

.ASCIZ @wAIT FACTOR FOR SELFTEST (20000 = 11/70 - 4000 = 11710029

.EVEN
ENDMOD

ASSEMBLY ROUTINES
ZbZCB.P1

4599
4600
4601
4602

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

21-NOV-78 16:33

022612
022612

LASTAD

LSLAST::

.REQ DOCTOR.P11[400,10661]

SEQ 0092
.EVEN

ASSEMBLY ROUTINES

| DOCTOR.P11

4603
4604

053406

053410
053412

053414

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

17-FEB-78 09:08
000000

000000
000000
000000

053420
000200

DIAGNOSTIC SUPERVISOR == LOW CORE SET uP

SBTTL
.U(RD
.WORD
WORD

DIAGNOSTIC SUPERVISOR == LOW CORE SET UP

0
0
O

END.SUPV=,
+2
.END 200

sSPACE FOR USER POOL POINTER

:SIZE
:CHECKSUM (NOT CURRENTLY USED)

;SIZE OF H.W. PTAB. ALLOCATION

SEQ 0093

ASSEMBLY ?OUTI¥$S
MACY11 30A(1052)
29-DEC-78
11:50 PAGE 95
DOCTOR.P1
~FEB-78 09:08
CROSS REFERENCE TABLE =-- USER SYMBOLS
A

= 000000

ABOFLA
ABOPAS
ABORT
ABO.FM
ACK
=
AFSI
ALIMIT

ALLOC

APT.ER

AREAOT
AREAO2
AREAO3
AO4
AREAT1
AREA21
AREAZ2
AREA23
AREAZL
AREA26
A30
AREA31
AREA4O
AREA41
AREAG2
AREA43
AREAS2
A60
AREAS1
AREA70
AREA71
ASSEMB=
ASAAV
ASAAW

ASAAX
ASAAY
ASAAZ
ASABA
AO2A
A02B

46044>
7668
46048
7344
46044
4557

024546

46044

043556

003700 G
003760 G
003762 G
004064 G
004116 G
004220 G

004956 G
004260 G
004262 G
004262
004454 G

004534 G
004534
0042
004116
004

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=

002170
002172
022244
022612
042066
030300

BLD.HW

glgir
85
46044

023136 G
023054 G
002116
025416
000001
022644 G
022406

AO4EX
AQ4RC
AS2A
A528
B
=

BINMSG

157er
1919«

G
G
G
G
G

46044

984H

1002#
1007#
1029#
10434
10674
10814
10854
1089%#
1089#
11334
11514
11514
10904
10434
10208
1044#
12554
12054
12214
12774
12824
46044
46044
46044
46044
46044
46044
1009
1008
1046
1047
1257
1256
1908#

2500%
78
7904
4467
46044
46044
46044

1382«
19

1588
1982

1398«
1

1606
03,

83
2

1611
2083

SEQ 0094

1627
2081

1780w
g%

1806s
g1l

1807+
glser

1809
2207s

2366
0792*

g3r0r
2793

37
279

1417+

1723

2575+

4061+

2156

4045

3645

3664

3714

3748

3780

3816

4088

4196

2211
2203%

2259+
2205+

2279
2211

2455+
2269

2271%

2273x

2279

2453+

1955«
2567

19824
2577+

2001
2585

2065
2592

2082
344éH

093
3461

2328

2393

464

2388+

239

396

2681w

19084
g330K

1918
2363n

4228

4258

2398

2780+

2781+

4574

2573

2345
2403
2437
2460

2550
2638
3353

2744
3397

2135
2217
2237

3614

2285
4376
4308
674

10184
1019#
10574
1056#
12734
1274k
1924*

2552%
1703+
1705*
45024

2396+
2398+
2193%
2201*
4364+
4366+
1941

2560%
1918
1929
.

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

ASSEMBLY ROUTI NES
DOCTOR.P11
17-FEB-78 09:08

1935+«

1949+

2160

23274

3071~

2051

1957

19824

2096+

2097

3108+

3145

3159~

3167

3214%

2074
35334

2191

2257

2359

34454

1852

2132
3394

34464

3519«

3860

4158

=
46044
46044
L604A*
4604M
46044
46044
46044+
46044
46044«
46044
46044
46044
46044«

3240
1833

2635
3996

C$BUFF= 000030
C$CEFG= 000046

2741

4085

4225

—

3496

)
= =2

(21]

(alalalalaRENAl

46044
46044
46044

3944

Pl IAY)
nOONNL

4604#
9664
46044
46044
19104
4L6046H~
L6044~
46044
46044
46044
L6044
L6044
1868

HN—=
—LJy00
O
WO

BLOCK
045712
BNO
003651
BSAAB
031702
BSAAF
031614
C
= 000004
CALLPC= 000022

SEQ 0095

CROSS REFERENCE TABLE == USER SYMBOLS

4169

2400
3745

2434
3777

2457
3813

ASSEMBLY ROUTINES

DOCTOR.P11

MACY11

17-FEB-78 09:08

CSCLEA= 000012

673¢

CSDCLN= 000044

6734

CSDRPT= 000024
C$OU = 000055
C$EDIT= 000002

6734
6734
6734

C$CLP1=

CBCVEC= 000036
000053

CSERDF= 000002

CSERHR= 000003

6734

30A(1052)

1550

3616

29-DEC-78

11:50

CROSS REFERENCE TABLE =- USER SYMBOLS

3666

3716

3750

3782

3818

4090

4200

4232

4260

4312

1833
2741
4085

1852
3350
4193

1876
33%
4225

2132
3611
4255

2214
3642
4305

223%
3661

2282
3711

2342
3745

2400
3777

2434
3813

2457
3954

4321
3649

3668

3718

3752

3784

3820

4092

4262

993

1006

1017

1040

1055

1077

1083

1087

1117

1142

1188

1213

989

1013

1036

1051

1073

1107

1113

1138

1161

1168

1175

1182

2282

2342

2400

2434

2457

2547

2570

4193

2635

Q225

2741

425

3469+
2504+

3471+
3505+

3475
351

3476
3513

3477«

3478+

3480

3482+

3484+

6734

134
707

2570

CSERSF= 000001
CSERSO= 000004
CSESCA= 000010
CSESEG= 000005
CSESUB=
000003
CSETST= 000001
CSEXIT= 000032
CSGPHR=
CSGPRI=
CSGTIM=
CSINIT=
CSINLP=
CSKWOF=
CSKWON=
C$LOOP=
CSMANI=

000042
000040
000052
000011
000020
000035
000034
000100
000051

6734
6734
6734
6734
6734
6734
6734
6734
6734

1449

CSPNTB= 000014
CSPNTF= 000017
CSPNTS= 000016

1267
6734
6734
6734

1265

CSPOIN= 000040

100
673#
3350

1205
2132
336

1M3
2214
3e11

1%ef
223
36k

C$QI10 = 000377
CSRDBU= 000007
CSREFG= 000050
CSREQT= 000045
CSRESE= 000033
CSREVI= 000002
CSRPT = 000025
CSSEFG= 000047
CSSPRI= 000041
CSSVEC= 000037
CSTPRI= 000013
CSUNBU= 000031
CSWTM
= 000026
CSWTU = 000007
177776

6734
6734
6734
6734
6734
6734
6734
6734
6734
6734
6734
6734
6734
6734
1982#

1357

1382

1403

DDSTRY

18944

CSMSG = 000023

CSPNTX= 000015

013220

SEQ 0096

3647

6734
2547
3978
6734
6734
6734
6734
6734
6734
673#4

CSGMAN= 000043

F_8
PAGE 97

6734

673

3486+

1745
2635

4373
4315

3829
3618

e e e

1510

1279

1284

3ee1

3711

3745

3777

3813

4085

706
1331

2885
2787

2985
2799

2722
2093+
3488+

3288
2094
3502

3683
34482
3503

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

Y ROUTINES
P11
17-FEB-78 09:08

832}0
012128

4439
2514

023144 G
2
052554 G
052442 G
023060 G

46044
7414
46044
L6044
46044

036140

2879
L6044

002212
022624 G

wewwww

akwwnw

002250 G
002254 G
000001

037044
037062
041630
041634
041652
041670
041700

FILL
FILL.C

7994
429;0'

680

26784
2773

2774

2776%

2778+

2783

2795

2884

2984

674
3081

723

4421

740

745

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

2727

3377

4485

2622

4499

2676

4502

2879

797

4465

2530
723
2620

2621

4459

680
2531

2908

800
2943

34484
1402

3480+

3450~

3492«

3493~

2494«

3496+

3498~

4126
40344
40404

4420

4427%

972

3029

4045

1596+

4063+

1609+

1619+
3023

723

4499

8164
8184
6744
2529

46044
46044
46044
46044
46044
L6044
46044
1381
1356
4120
4031
4037
L6044
L6044
46044

022664
002134
052066 G
025432
027576
036412
035212
036150
022614 G
036154
036476
035204
022616 G
002140
015652

46044~
7734
46044
46044
46044~
4604H
46044
46044
46044+
46044
4604n
46044
46044+
7754
28544

000204 G

L6854

2908

177774
000035
000037 G
000040 G
022014
020476
020506
023142 G
031166
053420

0427

SEQ 0097

CROSS REFERENCE TABLE == USER SYMBOLS

7374

4604
46044

2927

740

4065+

745

1150

3500+

1304

2959

2961

3502

3504

1489

2999

ASSEMBLY ROUTINES
MACY11
DOCTOR.P11
17-FEB-78 09:08
FLAGS
FLAGS1
FLAGTA
FLAGZ
FLAG.1
FLA.SE
FLG.MA
FLLCNT
FORM.T
FORMOO
FORMO2
FORMO4
FORM23
FORM26
FORM30
FORM4O
FORMS2
FORMSO
FORM61
FREE

FRM30A
FRM30B8
FRM30C
FSAS =
FS$
FUNS
F$AU
F$BGN

=
=
=
=

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

005144
044014

004707
004731
004752
swaawax |
000001
swnxan |
000015
000040

FSCLEA= 000007
F$DU
= 000016
FSEND = 000041

4604a+
46044
46044
4473
46044
4604n
46044
2816%
46044
986
1010
1048
1104
1135
1158
1110
1258
1206

1222
46044

1165
1172
1179
723

674
744
6734
6734

1133
1339
zggg

6734
6734
6734

1143
1342

3718

F$HARD=
F$HW =
FSINIT=
F$JMP =
FSMOD =

000004
000013
000006
000050

F$MSG = 000011

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

4432

30A(1052)

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

SEQ 0098

4527%

28524

994
10204

10584
1119

11434

2921

2929+

1033

1070
1240

1185
11224
12664
12144

12484

11924
11964
11994
745

680
4050
1334
680

4430
723

1335
724

1151
1347
Zggg

1205
1527
3784

1527
1339
680

1549
1340
724

1189
1511

3752

4484

1214
1551

3784

744

725

1221
1552
3820

725

1248
1552

3571

4050

984

1002

1007

1029

1043

1067

1081

1085

1089

1255
1553
3828

1277
2880
4057

1282
2980
4092

1294
3566
4262

1295
3567
4280

1323
3577
4320

1324
3618
4431

1329
3649
4432

4436

994

1005

1018

1041

1056

1078

1084

1088

1118

1266
1553

1280
2971

3830

4057

4092

4262

4316

4320

4322

4431

4574

4599

3820

3828

1285
3259

1294
3566

1295
3567

1323
3577

1324
3618

1332
3649

1334
3668

1337
3668

6734
6734
6734
6734

4436
1299
1347
3618

4482
1306
1509
3649

724

3668
725

3718
1294

3752
1295

3784
1323

3820
1324

4092
1552

4262
1553

3566

3567

4463

6734
1081
1246
6734
6734

984
1082
1255

992
1085
1264

1002
1086
1277

1003
1089
1278

1007
1116
1282

1016
1133
1283

1029
1141

1039
1%

1043
1187

1054
1205

1067
1212

1076
1221

1329
4280

1330
4314

42;3#

6734

6734
6734

6734
6734
6734

4288

4554
2880

4572
2969

2980

3257

1308
3577

1313
3828

4057

4320

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

043442
042146
045532
013222
037224
044526
044276

30A(1052)

29-DEC~78

11:50 PAGE 100
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0099

46044

1758

19074

4438
4438
4438

4443
4443
4443

4448
4448

4454
4454

4460
4460

4466
4466

4472
4472

4460

4466

4472

4556

4566

4478
4478

4556
4556

4562
4562

4478

4454
4562

4478
4438

4562
4443

4448

44654

4460

4466

4472

4556

4566

4438

4443

4448

4454

4460

4466

4472

4478

4556

4562

4566

2388

2418

2425

2778

2907

3012

3155

3471

2172

985

2567
2190

2198

2249+

2256

2264

2299

2358

2363

2383

2420

3324+

1674

2837«

28534

3581+

3676+

4070+

4285+«

1695+
1700%

1949
1943

1953«
1951~

3639

3708

3742

3769

3774

3810

4082

4190

4222

4247

4252

2251x

2255

<265

2339

3328~

(2]

(2lalalala)

4448

4350

INSERR

INSIZ
INTFOR

3608

4302

2151

4370

DOCTOR.P11

INVAL.
027150
INVDAT= 100000
INVINT 0O
INV.SW 024202
IN.SUF 031152
I$AU = 000041
ISCLN = 000041
ISDU = 000041
ISHRD = 000041
ISINIT= 000041

ISMOD = 000041

ISMSG = 000041
I$PWR = 000041
ISRPT = 000041
I$SEG = 000041
ISSFT = 000041
I$SRV = 000041
I$SUB = 000041
ISTST = 000041

6734

12944

12954

13244

1552#

15534

35664

35674

44314

6734
1081#
12484
6734
6734

1005#
10894
12804

10074
11184
1282#

10294
11434

10414
11514

10434
1189¢#

10564
1205#

10674
12144

10784
12214

4057#

4092

L4324

6734
4554M
6734
6734
6734

43164

32594

4262
6734

46064~
4L604n+
1068

LCOMP
021376
LCRCD
022014
LCRCH
021412
L INE
022226
L INEMK= 000017
LINE.F
023140 G
LINMSK 002214
LOAD.F 027600
LOBYTE= 000377
LOGDEV 002136
LOGMSG 042110
LOOPB
021414
LOOPH
021404
LOOPMG 021400
LOOPN
021410
LOOSTA 021411
LPBFR
022720 G
LPCNTR 022716 G
LPT.AD 027242
LPT.RE 027236
LSI.RE 027232
LUP
050204
LUP.AD 035210
LSAPT
2036 G
L$AU
011724 G
LSAUT
002074 G
L$CCP
002106 G
LSCLEA 012322 G

4212+
4171~
4160+
4461
7574
46044+
8004
46044
7594
774K
46044
4102
4157
44194
4149+
4137
460464+
4604k
46044
46044
46044
L4604k
4604k
7014
717
7174
7224
722

004252

SEQ 0100

46044
7554
46044
46044
46044
6734
6734
6734
L4364

JSJMP = 000167
KBPTR
022722 G
KBUF
022724 G
KEX
004254
KRC

MACY11 30A(1052)
29-DEC-78
11:50 PAGE 101
17-FEB-78 09:08
CROSS REFERENCE TABLE == USER SYMBOLS

ASSEMBLY ROUT INE

1069

13344

1527#

3668

3718

3752

3784

3820

38284

38304

1391«

1407+

1448

1457~

1459

1462+

6272

44184

1228

1386+

1388

4168
Lvar

4346

446264

ASSEMBLY ROUTINES

DOCTOR.P11

L$CO

17-FEB-78 09:08

002032 G

LSDEPO
LSDESC
LSDEVP
LSDISP
L
LSDRCT
LSDRS
LSDRST
LSDTP

002011 G
002102 G
00
011716 G
002250 G
002070 G
002072 G
002254 G
002040 G

LSDUT
LSOVTY

002076 G
002234 G

LSOV

LSEF

LSEFLG
LSEXP1
LSEXP2

LSEXP3
LSHARD
LSHPCP
LSHPTP

LSHW

L$ICP_

LSINIT
LSLADP
LSLAST
LSMREV
LSNAME
LSREPP
LSREV
LSRPT
LSSOFT
L$SPC
LSSPCP
LSSPTP
L$STA
LSSW
LSTIML
LSTIMU
LSTIM1
LSTSTI
LSUNIT
L.CLK.

L10001
L10002
L10003
L10004
L10005
L10006
L10007
L10010
L10011
L10012
L10013
L1004

MACY11

011726 G

002056 G

002034 G
002042 G
002044 G

002046 G

7204
7134
702
715
7154
7164
716
702#

718

718#
713

710#

7054

002022 G

6954

002104 G

PAGE 102

CROSS REFERENCE TABLE == USER SYMBOLS

‘

SEQ 0101

13204
8164
8184

13354
8114

4436

44374

695

1299

13004

721

1347#

6934
7214

011730 G
002026 G
022612 G
002050
002
G
002066 G
002010
011722 G
022354 G
002062 G
002020 G
002024 G
002030 G
011706 G
002014 G
002054 G
002052 G
002100 G
002012 G
027210

696
6924
7094
7084
7194
6914
4604

003760
004012
004114
004146
004250
004256
004260
004352
004500
004
005014
005142

10034
10164
10394
10544
10764
10824
10864
11164
11414
11874
12124
12464

003724

11:50

7004
7034
7044

693

011672 G

29-DEC-78

6994

022020 G

002016 G

30A(1052)

6974
697
7064
6814
7144
6894
714
694
7124
6944
6964
6984

46014

13294
4554

45554

1308

13094

1388

1459

9924

ASSEMBLY ROUTINES

MAJ.IN
MAJILO
MAJ.US
MANS =

022674
050
022676 G
wawees U

MAN.TI
MAPI6
MASCLR=
MASK.B
MASK.W

001244
053012 G
000020
031714
031712

12644
12784
12834
1299
1308
13304
13354
13404
1509#
15494
29694
32574
3619
4093
4436
4554

022672 G

46044
46044+
46044+
680
1440
46044
4604#
7514
46044
46048
3628+
3586
3693
46044
46044
4604

MSG
MSGAP
MSGN
MSGNO
MSG.AD
MSG.TY
GO0
MSGO1
MSGO2

012352
002162
020512
002174
022636 G
022612 G
0022
002323
002350

15704
7854
3847+
7914
46044
46044+
8234
820k
8334

MSGO4
MSGO5
MSG10
MSG11
MSG12

002503
002375
0025
002610
002643

8524
8374
8564
8644
8694

MSG21
{MSG22

002761
003001

MCOMP
MDMSG
MDMSG1
MEM.SI
MIN.IN

020464
020466
020476
027252
022670 G

MSCNEN=

052354

MIN.US

MSGO3

G20

MSG23

MSGo4
MSG2S
[MsGo6

002437

002712

003044

003111
003153
003210

SEQ 0102

wé

005232
005304
005306
011704
011714
011722
011724
011726
012230
012350
016064
016626
020164
021254
0221
022406

L10015
L10016
L10017
L10020
L10021
L10022
L10023
L1002%
L10025
L10026
L10027
L10030
L10031
L10032
L10033
L10034

—_—

DOCTOR.P11

MACY11 30A(1052)
29-DEC-78 11:50 PAGE 103
17-FEB-78 09:08
CROSS REFERENCE TABLE == USER SYMBOLS

3669

3719

3753

760
1463

775
1472

1511

1537

2699

2703

3658
3589
3696

40304
40364

3733

3757

3794

40294

1629+

1637

1636+

1638+

2024

2026

3847

43204

3785

3821

38284

1324
3427

46044

7520

844k

8764
8844
8874

8934

9004
9064
9114

1835

1644

1652+

1325

3571

1363
4050

1387
4430

1392
4571

1408

4597

ASSEMBLY ROUTINES

DOCTOR.P11
MSG30
1

003251
003301

9174
922#

002503

8514

MSG4

002437
003422

S
MSGS0
MSG51

003441
3467
003515

MSGZ70
MSG71

003556
003611

MSGS52

3543

MSG72
MTY

MUL
NAK

NEWPR]I
NEXTAR
NMOD

003654
003635
=

NMODEM

NMSG

NO.CLK
NO.FLA
NO.LPT
NO.PTA

2134

8434
9378

2236
2284

9L 0#
944k
9484

952#
9544
959

2718

015660

2790+

2857#

022324

4479

036532
036
022654 G
023262

46044
4604H
46044
4604#

NXTFOR
OCTMSG

046350
042074

46044
46044

QUTBUF 002152
OUTERR 002130
QUTMSG 002142
OUTREP 020166
OQUTSIZ 002154
O$APTS= 000001
O$AU = 000001
O$8GNR= 000001
0$8GNS= 000001
os$DU = 000001
OSGNSW= 000001
O$POIN= 000001
O$PWR = 000001

7804
7714
7764
3760
7814
6734
6734
6734
6734
6734
6734
6734
6794

OSOP
ouT

0.0DT

PARITY=
PARSES
PAR.LA
PASCNT
PASS.C
PATTER

031670

30
002162

m 8
PAGE 104

CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0103

3644

4195

3663

4227

3713

4257

3747

4307

3779

3815

3998
3956

7354
46044
46044
7978

NUMBIN
NUM.LA
NUM.NO
NUM.UN

NUNITS

4375

2
052034
046274
002210

46044
46044
46044
46044

3613

4087

3980
3938

46044

11:50

2216

9634

052310 G

29-DEC-78

3396

9294
8834

027200
046070
043406
027404

17-FEB-78 09:08

003347
002761

MSG41

MACY11 30A(1052)

45444

3005«

3014

3117«

3127+

3242+

3304+

3586

3587«

3589«

8154

46044

7428
7864

sxwwnn

4604

000200
045604
041572
002132
022626 G
011710

7434
46044
46044
7728
46044=
13104

4144
1712«
3878+
1627+

38414
1713«
6794
6794
6794
6794
6794
6794
6794

1544«

4104

1732

1759«

1631+
4237
1721
698
717
714
694
718
696
723

1695

1697

1731

1760*

3693«

3694*

3696%

N 8
ASSEMBLY ROUTI
MACY11 30A(1052)
29-DEC-78 11:50 PAGE 105
17-FEB-78 09:08
DOCTOR.P11
CROSS REFERENCE TABLE == USER SYMBOLS

022455

8eseie
724

4563

45814

46044
2449

449n

4 6044

0:s38s
350
161

SEQ 0104

19814

43334

1493

1533

1806

2031

2413

2528

2619

2694

2758

3044+

3046

3049

3089

3097«

3099

3102«

3372
2731
2623

2767
2699+

3381«
2703

2729+

2824

2826

3235«

3297

3318

3342«

3355«

2302+
3055+

3849
3057

3059+

3061 »

3064+

3335
3328

3330«

3332

3335«

3042~

3089+

3071

3093«

3095+

3184+

3192

3200

3228+

3232

1436+

1450+

1481

1485+

1588+

2773

2780

2828+

2946

3379+

3091«

3106+

3192«

3194«

3140+

3153

3157«

3176

1589

1591«

1593

1644

(2]~]

1477

(2121~

1487

40454

016066
002176
015672
RQUEB

015706

RQUEUE
RSTACK
RTEMP1

RTEMP2
RXINTE=
RS5STCK 002110
SAVEDO= 024546
SCRTCH 002112

N——

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

1645

SEARCH 044244
SEGSTA 023112 G
SET.MA 027770
SHIFT
053074 G
= 000201
SPEC.U 027504

SPV.SE 000400
SSTACK 011670
STACK = 000007
STARTC 051764 G
STATIO 022203
STIME
002122
STINPT 020276
STRCHR 042776

| STRT

= 000006

STRTB
STRTC
STRTSA
STRT.T
STWAIT
ST.SET
| sinIT.
SUPERV
SUPFLA
SUPV.T
SUP.PR
SVCGBL=

003670
003676
003675
027562
011712
024414
027
025450
023056 G
023230 G
024166
000000

2073
2713

46048
4604
4604
4604
7334
46044+
46044
1291

7308
46048
4455
7684
3800
46040

7384

9724
o784
o774
4604A*
13114
46044
46044
46044
L6044
L6044~
4604
673#4
699
714

SVCHAN

032104

SVCINS= 000001

1255
1553
46044
73
692

705

718
987
1017
1050
1087
1136
1166
1179
1228
1258
1331
1550

N
o288
2636
2573
2784

30A(1052)

1647%

1649

199

3079

2366*
2724

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

2368+
78+

1697*

gg;zSa

1698+

1700

1929+

SEQ 0105

5257
7

2613«
4107*

2414%
4112

2416%
4118

1930%

2418+

1941

2039+

2040%

2050

5063'

26431

2453

2709+

2711#

1367
1864

44954
39004

973

1807
1821«
1809+

2231

3851

680
700
715
1002
1277
2880

681
701
716
1007
1282
2980

689
702
717
1029
1295
3567

690
703
718
1043
1300
4432

691
704
719
1067
1309
4437

692
705
720
1081
1320
4555

693
706
721
1085
1324
46014

694
708
722
108
1329
4602

695
709
725
1133
133%

696
710
811
1151
1339

697
712
816
1205
1347

698
713
818
1221
1527

6748

681

682

683

684

685

686

687

688

689

690

691

706

707

708

709

710

711

712

713

714

715

716

3687

693

719
988
1031
1051
1103
1135
1165
1180
1226
1259
1336
1745

NY
2Bk
2437
2600
2785

69%

720
989
1032
1052
1106
1136
1166
1181
1225
1260
1341
1746

(N
32BS
2457
2635
2786

695

721
990
1033
1055
1105
1137
1167
1182
1226
1261
1356
1747

AV
O%l?
2458
2636
2787

696

722
993
103
1068
1106
1138
1168
1183
1259
1262
1357
1833

20
TMT
2459
20437
2788

697

811
1006
1035
1069
1107
1139
1169
1188
1240
1265
1381
183

N
Wk
2460
2638
2795

698
813
1008
1036
1070
1108
1142
1171
1206
1941
1279
1382
1835

27
MUS
2547
2721
2796

815
1009
1037
1071
1110
1157
1172
1207
1242
1284
1402
1852

N
XKoo
0548
2722
0797

700

816
1010
1040
1072
1111
1158
1173
1208
1043
1299
1403
1853

2N
V1
2549
2741
2798

701

817
1011
1046
1073
1112
1159
117
1209
1246
1308
1448
1854

N
N
2550
2742
0799

702

818
1012
1047
1074
113
1160
1175
1210
1342
1319
1449
1876

N
N
2570
o743
2800

703

985
1013
1048
1077
1114
1161
1176
1213
1956
1320
1450
1877

Y
O Nuw
2571
9744
0884

704

717

986
1014
1049
1083
1117
1162
1178
1222
1387
1321
1510
1878

e
AW
9572
2783
2885

ASSEMBLY ROUTINES
MACY11 30A(1052)
29-DEC-78
11:50 PAGE 107
DOCTOR.P11
17-FEB-78 09:08
CROSS REFERENCE TABLE == USER SYMBOLS

2942

3395

3645
3711
3753
3820

SVCTST= 177777

SWAIT

SWCHAN
SWITCH
SW.ADR
SW_PTA
SYNC =
SYNCNT
SYS.FT
SSLSYM=
TABLE

022520

027376
50
022652 G
027362
000377
015644
036130
010000

TERIN
TERMI
TERMLI
TERMTA
TEROUT

TESTS
TEST.M
TIMER
TIMFLG
TIMLIM
TIM.CO
TIM.OP
TMPBUF
T00.MA
TSTS =
TST.AB
TST.T0
TXINTE=
TYPE ~
TYPEC
TYPEPC
TYPFLA

013642
050274
046076
042060
012560

017466 G
027516
015642
023046 G
002120
022700 6
036504
010434
042040
000002
032026
024230
040000
013012
042434
036330
045752

4256
4321

4093
4257
4373

4193
4258

4374

419
4260
4375

4195
%

1016

1039

1054

1076

1040#

10554

10774

10834

13314

13364

4312

6734
6734

674K

992

1003

3577

4057

2960
28514

3021
2390

9934

10044

6734

4567

46044
46044
46044
46044
7408
2814%
46044
€734
12674

4308

45874

12654

12794

38208

480K

12864

1430

2377

2420%

21154
46044
46044
46044
16726

3627

3732

359

3698

3280

3290+

3295

3309

765#

004354

1
3716
780
955

4255
4315

002114

TEMP2

TEMP

713
778
29

50
714
79
3954

4088
4232

12954

005310

3240

4087
4228

011670 G

TEMBUF

3647
71
77
3821

397

4086
4227

4307

SvCSuB= 177777
SVCTAG= 000001

§§96

1092+

35674
46044+
28504
4604k
7674
46044+
46044
12884
46044
744k
46044
46044
7540
17754
46044
46044
L6044

325

SEQ 0106

gggg

3287

3288

71
782
3956

3719
3784
3978

3664
3745
3785
3979

3616

3350

351

352

3353

3394

3746
813
980

3747
3814
3996

3669
3748
3815
3997

3750
3816
3

3683
3752
3818
4085

4439

4440

4376

4196
42

4200
4280

1082

1086

1116

10874

11174

11424

11884

12134

13414

15104

15504

29704

32584

2088

2361+

4438

10174

1284w

13074

1314#

44BLw

4574M

1032

2042*

2049

2053*

2058

2065«

2072

2076*

2084

2086*

1094

1097+«

1101+

1103

1118¢

1228«

1230

1233+

1237+

1239

2423+
4211

2425«

1320

2826
1864x

2946
1867

4226

2431

2455

3295

3309

2156*

2159

1703
1319

4225
4305

2962+

43214

2421x

3644

3316«

3368

ASSEMBLY ROUTINES
MACY11 30A(1052)
29-DEC-78
11:50 PAGE 108
DOCTOR.P11
17-FEB-78 09:08
CROSS REFERENCE TABLE == USER SYMBOLS
TYPLIN
TYPNUM

TYPSTR
TYP.ER
TY.UNI
TSARGC=

042332
041714

L6044
46044

042352
036160
031172
000003

46044
46044
46044
6814

T$CODE= 002032
T$ERCO= 000064

1171
GL3BN
17454

TSERRN= 000064
T$EXCP= 000000

TSFLAG= 000040
TSHILI= 077777

T$LOLI= 000000
TSLSYM= 010000
TSNEST= 177777

1052

25704
39784
6734

25484
39554

L438a
4477
36184
GL38K

4476
44388

4475
6734
1247

3829

6734
10544
12054

1306#

TSNSKO= 000000
TSNSK1= 000005

15274
4280K
4238#
9844

1082
1255#

1335

TSNSK2=
T$SAVL=
T$SEGL=
T$SEKO=
T$SUBN=
T$TAGL=
TS$TAGN=

000003
177777
177777
010000
000000
177777
010035

TS$TEMP= 000000

TS$TEST= 000002
T$TSTM= 177777

SEQ@ 0107

6824

1176
LL43H
18334

26354
39964
17468

25714
39794

4442
45564
36494
4441

45564
4440

45564
993
1265

4321

6804
10674
12124

13084

1074

1178#
LLLBE
18524

27414
LOBSA
1834

26364
39978

L4438
4561
36684
44438

4560
44438
4559
1004
1279

4484

724K
10764
12214

13134

6844

1103#

1183
L454M
18764

33504
L1934
18534

2742M
LOBOH
4447
45664
37184
4446

45664
4445
45668
1017
1284

4574

18774

§133#

3944
4225

33514
4L194M
44488
4571
3752¢
44488

4570
44488
4569
1040
1307

13244

9854

1114

11344

1008

1139

1014

10314

11574

1162

1037

10464

11644

1169

12228
L4TOM
55240

1226
L4LTBE
ggg?#

12394
45568
3428

1244
45624
4004

12564
45664
G34N

2457

25474

22154

22354

2283

23434

24014

24354

24584

114
42554

rLd
43054

3954
L2268

36124
4L256M

36434
L3064

3662
4374
L4608

4465

La668

46N

44724

3784w
4452

3820
4454k

40928
4458

42624
44608

4464

L4668

4470

44724

4451

L4548

4457

L4608

4463

LL66K

4469

44724

1055
1314

1077
1331

1083
1336

1087
1341

1117
1510

1142
1550

1188
2970

1213
3258

9924
10854
1264

10024
10864
12774

10034
1089#
12784

10074
11164
12824

10164
11334
12834

10294
11414
12944

1039#
11514
12954

10434
1187#
1

4453

13294

104
43734

44568

13304

4459

13344

7118

13354

37454

37128

13394

7778

1262

3746

13404

38134

37784

13474

38144

15094

15494
4314
724

15524
43204
7254

15534
443TH
129

28804
L4328
12954

29694
LL36M
1323

29804
L4B2R
13244

32574
4554
1552

35664
45728
15534

35674
4599
3566

35774

38284

4057#

35674

4431

44324

992

1002#

1003

1007#

1016

10294

1039

10434

1054

10674

1076

10814

108%%
1278

1116
12824

11334
1283

1141
1299%

11514
1306

1187
13084

1205#
1313

1212
13294

12214
13

1246
13344

45548

4572

29804

3257

35774

10294

10434

1085#
1264

1339#

1086
1277#

1340

13474

4320
4314

44368

4482

42804
4314
35774

43144

4316

984#

10024

724k
12460

9924
12644

12554
4057

13404
37184
L3160

1509
3719
L3204

1087

1107

45628
6738
6734

1210
LLGON
gg14#

9844
10824
12554

13234

6864

11104

1206#
LLO0N
%132#

725K
10814
12464

40574
42804
6734
6734
42804
6734
6734
6734
12214

35778

6854

1108

L5668
35778
989

1509

15274

1549

28804

2969

40574

12774
LL36K
1003#
12784

15494

37524
4L3TK

45728
4057#
993
1113

1007#

12824
45544
10164
12834

1299%
10394
12944

10674

13084

13294

13344

10814

10854

13394

1347#

15274

28804

11514

12054

10544
13064

10764
13134

1082#
1320

10
13214

11164
13224

11414
13234

11874
13304

1212#
13354

10894

1133#

15524
3753
L43BR

29694

357844
L44L3H

32574
3785
LLLBE

35664
38204
4454

36184
3821
L460F

3619
38284
L4668

36494
4092¢
44728

3650
4093
LLTBE

36684
42628
44BN

9
4263
45564

1004
117

1013
1138

1017
1142

1036
1161

1040
1168

1051
1175

1055
1182

1073
1188

1077
1209

1083
1213

L5994

—

E 9
29-DEC-78 11:50 PAGE 109
CROSS REFERENCE TABLE == USER SYMBOLS

T$TSTS= 000001

4090
4321

4193

woo

377

3750

4085
4315

N —

3745

741

1279
185
523

1265
1833
600

SEQ 0108
W

30A(1052)

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

3718

3752

3784

3820

2905
2940

2911+

3867«

4176+

2937

2960+
3385+
2733

2822+

WIDTH

XDONE

015154

XBUFFE

015654

15114
1735«

2502+

4604
46044
L6044
46044
46044
46044
46044
46044
46044

1738
2805+
7474
1736+
1677
46044

L604n
46044

—

T$$SW = 010021
‘%STES= 010032

n =

TSSRPT= 010022
T$$SEG= 010000

1016
11334
1283

— —

0020

TSSINI= 010025
TS$SMSG= 010017

1054
12054

3828

40574

2944

3383+

4,884

1801«

2602

1818
2608

28554
26594

3871
2909+
2629+
2536+
4287

2735

2713
3869+

4178+

4092

1076
12214

10814
1246

4262

4320

——

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

XXDP.D

XSALWA=
XSFALS=
XSOFF
S=
X$TRUE=

027162

000000
000040
000400
000020

$BGNLE= 177777
$BREG
027656
SENDAD 052074 G
$SERFLG= 000400

30A(1052)

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

SEQ 0109

46044
6734
6734
6734
6734

6744
46044
46044
6744
12374
1416
14344

10924
1238
14174
1435

16194
16454

1620
1648

1478
1499
15824

1093
13674
1418
14364

10974
1368
14%2#
1437

1098
1369#
1423
16468

11014
1370
162640
1447

1102
13864
1425
14578

11554
1387
14264
1458

1156
13914
1427
14628

16274
16524

1628
1653

16;90
16774

1630
16814

16314
16834

1632
16864

16364
1687

14814
1500# .
1583

1482
1501
15884

16974
17514

16984
1757#

1699
1799#

17004
1800

20054
2027
2059
20884
21564
2200
22514
2274
23634
2385
2415
26418
25144
25524
2624
2694
2732
2764
27814
28144
2838
29294
29628
3039
30574

2006
20314
0634
2089
2157
22014
2252
22894

20074
20324
2064
20934
2158%
2202
22534
22914
5
2387
2417
2454
2529
25604
2626
2709¢
2
2766
27908
28164

2008
2033
20654
20944
21674
22034
22
22974

18374
19244
1955#

31274

3177
32004
3236
33264
33594
34714

18394
1925
1956

23864
26164
24538
25284
2553
26254

2733%
27654
2782
2815
S#
2930
2963
3058
30954
3128
31784
3201
32420
3327
33684
33854
3472

18454
19294
19574

29374

29954
3041
30594
30
3140
31
32054
3243
3328¢
3369
3386
34738

14834
1502#
1589%

18564
19304
1958

23884
26184
24550
25304
2561
26278
2710
27354
27678
2791
2817
29074
29384

2996
3042#¢
306
3097#
3141
31804
3206
32804
3329
33726
34004
3474

1484
1503
1592

1701
18014

18584
1931
19904

20124
20344
2095
21694
2204
22658
2298
2367
2389
2419
2456
2531
25758
2628
27114
2736
2768
27928
28224
2908
939
0034
3043
30644
3098
31534
3181
32104
3281
33304
33734
Z/04k
34754

14854
15334
1596#
17034
1802

1864#
19354
19914

2013
2035
20704
21728
22054
2266
2294

23684
3964
26208
24628
25324
2576
26294
2712
27468
27738
279
2823
2
%9400
30444
306
3102¢#
3154
31824
3211
32904
3331
3374
34594
3479

1486
1534
1597

14934
15354
15984

1704
18064

17054
18074

20144
20394
20814
20974
2173%
2206
22678
3004

2015
20404
2082¢
2098
2174
22218
2268
2301
23704
23
2422
5004
25344
2578
640N
2714
2758
2775
28054
2825
29114
“

1865
1936
1992

2397
24218
2464M
2533
25778
2630
27138
27488
2774m
2
28244
2910
%941

0054
04
30714
3103
31554
3183
32144
3291
33354
3377#
3460
34804

18664
196494
19964

30494
3072
31064
3156
31844
3215
33044
3336
3378
346148
3481

12284
1392
1428%
1463

1229
14074
1429
14664

12334
1408
14304
1467

1637
16884

1638
1689

1639
16954

14944
1536
1599

1495
15374
1609#

1706
1808

17104
18094

18804
1950
1997

20194
2041
2083
21254
21754
2223
22694
23024
2371
2399
26234
2501
2535
26194
26424
27278
27594
27768
28064
28264
1

30124
3050
30894
3107
31574
3185
32264
3305
33420
33794
3462
34828

18824
19514
20014

2020
20424
21428
2176
2241k
2270
303
23728
26054
2424
25024
2534
2620
648K
2728
2760
2777
2807
2827
29134
o
13
30534
3108+
3158

31924
3%27
33164
3343
3380
34630
3483

14964
1538
1610

1729#
1810

1918¢
1952
2002

20244
2043
2085
21444
21874
22434
22714
23474
2
24078
26254
2503
2537
26214
26504
7
27614
27784
28284
14
7
364
3054
30914
3109
%1590
193
32284
3317
33554
33814
3464
3484

1234
14154
1431
14774

1497
15444
16114

14984
1545
1612

17384
18154

1745#
18264

1919%
19534
2003#

2025
20474
21548
21984
2245%
2272
234
23834
2413w
2426
25044
25384
2622
26944
2730
2762
2779
2809#
2829
29278

3037
3055#
3092
31174
3160
31944
3229
33244
3356
3382
3469%
3485

16444
1696

1920
1954
2004

20264
20584
2087
2155
21994
2250
22734
23554
23844
24144
243
2505
2539
26234
2695
2731#
27634
2780#
2810
28374
2928
2961
30384
3056
3118
31764
3195
32354
3325
33574
3383«
3470
34864

000170
000150
000220
000340
000405
000400
bl4

1428

1429

1430
—

—

He
VinL

b s

(e AV

b o

gf\)
oo

H BN

walhvd
o asl®

QURNRR

HHN—

fwuwwu

pagEaramey
R

B NWWNW

buw—a?
OO NS
W00~

SN gSRS
oas

PNONOMNOND

WWN =N

PNINIPINUND
— = —d b b

2569

b cnd cud ed

(e Yo
TV,]

W=\

HH N

e
D

SN
W=
O
NI

—

HEN—
W=
O
SH0M00—

o= S rnovVinoN B

Ao VBAN
B =N WO
—-ogmmwo« \nrmo
gmmmvn ww
NY=D00-=NOWVO

2 (N

MACY11 30A(1052)
29-DEC-78 11:50 PAGE 111
17-FEB-78 09:08
CROSS REFERENCE TABLE == USER SYMBOLS

B —

1097
1362

b e =D d o

$FSAND= 000310

DSLSIAS
LS NS, N |PNON) =

O NN
NN

$F$BAD= 000401
-

3941
39644

7n
79

04
508
590
95
8
38804
g942l

89
5074
S84
94n

88#

e e e =

5874

5%
9%

NN\
=
WO N—=O
COrON~N-—=

DOCTOR.P1T

— e

ASSEMBLY ROUTINES

$F$BLA=
$FSCAS=
$FSDEC=
$F$D0 =
$FSFAL=
$F$G00=

——

gdbgmum
S
NONWwWN

—

o
- N

WO
OO NN

NNV
=R b aaa

F
e ———

5094
SO4n
96#

%3
SH

NONWnA S l\g
IS

gwuwwuwuww

S85ed

- HONWNWN

—

L X AV
e

2766

3946

e e

v
o~

e e ]

SRSREEE
8
~

TNy AT
AR
SB R

VO‘%OU!UIJ*
Co
NWVWWS
O RERRES
=N

33385883
— e

ST R
v

STAS
LS LN, N]
N = —>

I ST
R YA

HEBW
NNNNNNNNBNNN—-:—:-—-.-A_._._.
wn—00

N —

mmbaugmmd..o ST
33 v NN INRRI 8228

NN NLNLNLNLNLNLNLNONY

BT
B

NNNMNNNNNNNB
AOMNOW
ugmm N
=S WWN—==n
SN SRS
gO\nP 23-E
PV
4 £28
NN

nONONOND

R38

— e e e
d e
d b p—
NINLRNLNL
NN NI NLNLNLNI NN
NN
S S NWNON)
=
o NO\O\\N v,
NN =) = NN N =N
o
N
=PV
NWNOO =N 0NN
N
~N

A
OON
OWVIN=OWN =N~ —

2SoSge

FRRS

b b b cnd b cnb cd cnd b cud

Py
S
e
R
AR

co
»H
O

b <

= 5 80\18\0\"‘0
o(o le)

2095

1463
1495

WNW

VNS
S

b b e e e e bQ0 OO\

1459

C0OWNO

OO Q0

11 30A(1052)

NININD =

W
i

NININY
o

ViV
s

17-FEB-78

RIAQA O WOoOW
»<8 NICOWWWN
N

DOCTOR.P11

ASSEMBLY ROUTINES

H 9
29-DEC-78 11:50 PAGE 112
CROSS REFERENCE TABLE == USER SYMBOLS
SEQ 011

2201

1503

1484
1592

1627

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

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

3014

A ST g&‘
8

O = =N

WO N0

SRRCETIR,BUERRBN2Y

SE N BN

B—A-A—A-a_s—n—l—o-a-n-n-a—a

WNN—'O?O
OO
—

[AS oS 1, N1,§]

3 3
e e

FORNBRURIRR w

i G W

OQ\JOO\AMI\J\J\WG"

s
b
e
d e
i
b
b e

O Nele JpNle Yo NV, IV T X 2P

wv WOOWVMNIVOOWNHONO
~N =00 =N NNONLND NNO\O
=

- b

VNS BSBSWNO

OO
WO OWNNINTY
VINONO

AL T

3050

2013

PONINININININININININY
= = = —d b b b

3049

2501

332

2536
2592
2630
2718
2758
2777
2814
2838
2921
2960

500

N—'O? S8R
Q&3

2535
2578
2629
2714
2748
2776
2810
2837
2914
2947

PONOND NN NINOND NN NO— — —
Vil
S SN NN
e,|OO v
W~ W\OowW

2
2393
2422

2027
2065
2098
2198
2251
2291

2026
2064
2096
2180
2250
2279
2367
2389
2420

1955

bo-:4

2005

[ e R R
o

004

1924
1954

e e

1920
1953

1644
1697
1801

1094
1238
1416
1434
1477
1499
1582
1612

1093
1237
1415
1431
1467
1498
1545
1611

VOO
WNWNES S B WO

4234

1639
1696
1800

3000

3066

4230

2339
2562
899
29
3129
3309
3671
3917
86

—\n

3167
3344
3755
3991

WONO

3161
3337
3738
3972

1405
1674
1941

VINL GOV O NNCD
NN NN WO N
LN—'VIW%OU\N‘OO@J\N\IO

2948

1721

NONOND)
=2 =2 =d

1230
1464

2931
3061

d d ek b

2163
2411
2608

1690

4234
4347
439

) e

2151
2393
2592

4179
4285

COVOVX
NI
NN
BB W=

4177
46250
4351

POND = = —d ed ed d d

417
424
4350
4397
1099
1459

SH3
RN
w 800‘\1!

(WYLNTNT
NS EEny W O
N

:mm?mflomwos

H WWWWWSNNN
BT
S I S et

$FS$IF = 000110

SEQ 0112

CROSS REFERENCE TABLE == USER SYMBOLS

ASSEMBLY ROUTINES

DOCTOR.P11

MACY11

30A4(1052)

3064

3065

3141

145
3179
3205
§§36
24
3355
3383
3470
3486
3501
3586
3696
3878
3942

17-FEB-78 09:08

3098

3178
3201
3235
3318
3343
3382
3469
3485
3500
3582
3695
3870
3941

$FSOR = 000320

3966
4104
4137
4346
4394
6744

$FSRTI= 000350
$FSRTN=
300

6744
6748

2153
2892
zggz

$FSSEL= 000140
$FSTHE= 000330

$FSTRU= 000404

| SFSUNT= 000130
$FSWHI= 000120
$FSYES= 000402

3990
4107
4138
4347
4395
1096

2213
2901
2%23
1571

11:50

PAGE

114

CROSS REFERENCE TABLE == USER SYMBOLS

3071

g10

15
3180
3206
3242
3325
3356
3384
347
3487
3502
3588
3697
3879
3943
4008
4108
4144
4348

4396
1232

2233
2923
3234
1656

154

181
3207
3243
3326
3359
3385
3472
3488
3506
3589
3757
3882
3944
4061
4112

4145
4349

4397
1390

2281
300
33N

1673

155
182
210
g%BO
27
3368
3382
347
3489
3507
3590
3847
39N
3945
4062
4113
4149
4350

1461

2341
3016
3320
1771

156

183
211
%81
3328
3369
3404
3474
3490
3508
3658
3848
3913
3946
4063
4118
4150
4351

1595

2379
3023
3334
1787

092

15
§184
214
3290
33;9
33 5
345
3475
349N
3509
3676
3849
3923
3947

158
3185
3215
% 1
30
3374
3460
3479
3492
3510
3677
3850
3924
3948

§10

109

4064
4119

4065
4126

4176
4364

4177
4365

1608

1651

2395
3025
3468

2433
3031
3660

1888

1908

3094

2159

192
3226
3304
3331
3377
3461
3480
3495
3sn
3678
3851
3936
3949

3160

3193
3227
3305
3332
3378
346%
3481
3496
3515
3679
385
393
3950

4066
4128
4178
4366

1676

3118

4070
4129

4179
4367

1723

3096

167
3194
3228
3309
3335
3379
3463
| 34
349
3519
3685
3867
3938
3951

3176

127

407N
4130
234
4386

1725

31;8

3195
3229
3316
3336
3380
3464
gzgg

3520
3686
3868
3939
3952
4102
4134
4285
4392

1943

3140

3177

3200
3232
3317
3342
3381
3466
2284
99
3581
3693
3869
3940
3953

4103
4136
4286
4393

1945

2569
3048
3759

2594
3063
3919

2610
3081
3927

2720
3101
3974

2726
3147
4106

1965

1982

2103

2116

2306

2569
3063
3927

2594
084
3974

2610
3101
4106

2720
3147
4236

2726
3169
4363

2892
3209

2153

2213

2233

2281

6748
3285
3??2#

1432
3295
1720

1438
3680
1721

1444
3687
1723

1470
3726
1765

1479
3794
1940

1487
4116
1941

2509
4120
1943

2585
4205
1959

2598
4272
3023

2602
4355
3081

2701
4401
3465

2703

6744
1368
1416
1463

1093
1370
1418
1464

1094
1371
1423
1467

1098
1384
1425
1468

1099
1387
1427
1478

1102
1388
1429
1482

1156
1392
1431
1484

1229
1393
1435
1486

1230
1395
1437
1495

1234
1397
1447
1497

1235
1405
1455
1499

1238
1408
1458
1501

1362
1409
1459
1503

1679
1752

1684
1800

1687
1802

1689
1808

1690
1810

1706
1865

1721
1874

1723
1883

2004
2064

2006
2066

674

1534
1616
1925

2163
2250
2350
2411
2465

1536
1620

1931

2170
2252
2365
2415
2467

1538
1621

1936

2008
2083

2174
2266
2367
2417
2501

1545
1628

1941

2013
2085

2176
2268
2369
2419
2503

1583
1630

1943

2015
2087

2181
2270
2371
¢’ 22
2505

1592
1632
1696
1831

1950

2020
2089

2200
2272
2373
26424
2519

3407

3093

2433
3048
3919

1595

3276

3117

2395
3031
3759

1461

2839

3091

2379
3025
0

1390

2679
4410

107

2341
3016
3334

1232

2653
4334

106

472
3901
1096

2490
4021

§?0§

SEQ 0113

2328
3885

674K
6744

§099

29-DEC-78

1608

1593
1637
1699
1840
1952

2025
2095

2202
2274
2377
2426
2529

1651

1597
1639

1701
1850
1954

2027
2098

2204
2279
2385
2431
2531

3423
1676

1599
1648
1704
1859
1956

2033
2130

2206
2292
2387
2442
2533

3424

1600
1649

1958

2035
2145

2211
2298
2389
2444
2535

3446

2901
3234

16C
165.

1992

2041
2151

2224
2301
2393
2450
2537

3527

2923
33N

1610
1654

1997

2043
2155

2231
2303
2397
2454
2539

3842

3002
3320

3466

1612
1674
1743
1920
2002

2059
2157

2244

2339

2399
2456
2553

WNPININY

$SLOCTA= 177777
-

W
~N

2815
2914
1

o
579

Sou

R
~N

N =

=N~

N =N =OW

A — —

]

cow

R
=W

K 9
MACY11 30A(1052)
29-DEC-78 11:50 PAGE 115
17-FEB-78 09:08
CROSS REFERENCE TABLE == USER SYMBOLS

48 @Wn

gi==33

R SVo=

b et

SINRE WRON)
= =
Co
OWWNOWNO
SREBIANSUIn W
—ldg—lo
O W00

T PR RRREUTSTOS5

zmw—n—n-obbabuwuu
VIR OO NN
—
A

3 25 2N 2N BN

$IFLEV=

R
WV%M
¢ATSgEg

= =
N

DOCTOR.P11

nOO 0O \WN\WNON00
POWN—=POONCO
&

ASSEMBLY ROUTINES

SEQ 0114

$LSTIN= 000001

1094

2053

s RN
S

JE
IR

NNOON\WNYN

—

S et

1967

b sud

i p—"

SN S

749

29-DEC-78 11:50 PAGE 516

ety

63 gt
g s W $ENRERER 228
v
&S T

3%
L3

s e Yt WS YD W Y

O 00 0o

b eud

1487

§ORUT

and

e T

b e

YIS
AR S SogREES—~RN~3 8

Nelel

NN
N —

JpAGsuELEE 23SSRAR
:‘DVCVWVON
S
S22oNES8R2
g AU
R

—

3161
3285
3

N =
O

i
B
e
e e
T, 2TVY[V
O NN
NNOO NN B WN—=
=O
V=0
—
V00 NINO

ONIWWNES =

b d e e e e e e e e e e e ek
CONNNOOWNWNES
SN

SRSV2

263
5

n NOND =

OSOOQQVVV
&»
O = vr--g—nowo
=N~

5 79
6 55

= ed ed —d d e e e o o e e o

S283R3B

PUONDNIND

=N~

OVO

308

NNNOAONWN
R D000
-\ -

OWVINO
O

2
!

SIBR

64
2646
2839

PONINUNIND
= o e cd d ed ed d d e d e d
O
000000 NN\

R AT

%20
555

INININININD

»H
N

PONINININININD
= e e ed b wd ed d ed e e e ek
NN=RRB kOO0

N—‘—':OOO
omgmwwooouaa
o
2 B&O&R =N
\hwgl\o
CHERFEIES
=N NYNHNO
=N

PONVNONINUNINININD
= e e e ed d e e e d ) e e b

b il b

GERINBRESEAZ

b e

2645
2751
2958
3074
3146
3275

A WN—=000

il cnd s i

280
432
519

1) b b b i e

9
ASSEMBLY ROUTI
S
MACY11 30A(1052)
17-FEB-78 09:08
DOCTOR.P11
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0115

411

509
643

SNESTL= 177777

— J\Ob—lg\hf\)—l
abwwww%
N =t N d ) =

$LSTTA= 000001

BAEN
02 BA

8
—
W

3K SRR

—_

N~
=2

e NRe

SEQ 0116

R o

R AR SNm‘fi%

3036

R R
AL
E 3S
23
AL

ASSEMBLY ROUTI 'SS
MACY11 30A(1052)
29-DEC-78 11:50 PAGE 117
17-FEB-78 09:08
DOCTOR.P11
CROSS REFERENCE TABLE == USER SYMBOLS

gg;:

S
it %nw

TTEY

$NSK1
= 000130

$NSKO
= 000300

3322388

074

29-DEC-78

CROSS REFERENCE
TABLE

sy SIXAS 2

——

b 4o

MACY11 30A(1052)

SN
=N

%&flkn

SNNIN ==
NN
W
o

ASSEMBLY ROUTI

DOCTOR.P11

-t

$TAGNU= 050004

PUN) = =3 —3 = — SN SN

$SSK
= 050003
0
$TAGLE= 177777

PONON)
=2 e i =

$NSK4 = 000110
$SAVLE= 177777

ussgggggggggm;§§3“°~°ob
REURINEIRIIR

$NSK3
= 000110

POPININY
= — — —a (N

-3
Y

dnfizyg

$NSK2
= 000110

ASSEMBLY ROUTINES

DOCTOR.P11

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

17-FEB-78 09:08

CROSS REFERENCE TABLE == USER SYMBOLS

2450

G520

248N

24904

6104

Son
o
146
764
33464
3635
3759

1
73

164
082

25944
5598
2725
7264

3926
1178

$TEMP = 000300

43334
1092¢
12354
13934

16250
16460
14784
164984
156454
16124
16374
1689%
17654
18644
19504
19924
20144
20414

1474
285

362
364
3765

39274
4186

4334
10934
12374
13954

S99
891

161
2864

3644
59
7664

39684
41874
4355
10974
12384
13974

3803

397
4205

24184
2454

24198
2655

24208
2456M

23874
25304
25584

26194

26454
27128
27494
2775K
28084
28294
29144
29448
29954
304
30574
30914
31084
31400
3177x

25314

26208

26464
27138
2751
2776M
28104
28374
1
29458
306414
30584
3092¢
31094
31414
31788

168
299

234

97644
logggl

4
10994
13684
14084

15884

15924

2422M
2L65K

22714
23634

509

L3564
10990
13674
14074

20894
2174M
2244
22
23

21728
22240
22728
23654

271K
27364
27738
2807#
28284
29134
29418
H
30394
30564
30904
31074
31354
31764

220

146278
14578
14824
15004
15834
16174
16394
16954
17714
18834
19524
19974
20194
20434

20874
21708

2603

1
296

14268
16478
14814
164994
15824
16164
16384
16904
17664
18654
19514
19964
20154
20424

20864
2157/
22054
22708
23504

2529%
25578

2609
89;’

14288
14588
14834
15014
16194
16444

16964

1799%
18884
19534
20014

20204
20584

23894

14298
14628
14844
1502¢
16204
16484

16974

18004
19184
19544
2002#

20244
20594

2
2175
2249K
2274
23678

23964

2423
24G67H

25324
25614

25334
25624

2651
2714
2758
27778
28144
283
2198
2946K
30034
30424
30594
30934
31104
31534
31794

265
2727M
27608
27784
28154
28394
2927h
2947H
#
30434
04
3094
31114
C154¢
31804

26214

26228

5104

6451
2

1694

454
1
14

SEQ@ 0118

2557

24
84#4

reld
100

101#

647H
18
508
10

o
3704
38424

6%
204

§09l
114

65
37054
387

67
5(2)

568

S6ox

2593

314
110

7024
31

7
311%’

“gg'
37
39014

32344
333+

3467
37278
39004

§23
3333

8#
134

701
234

§19
19

214
33204

668
726
38774

719
334
3599
3
3918

7204
7

754
3
36004
3758
39194

39928
4%

4078
42198

4079%
4235

4105
L2368

41 0?0
424

4109
4244N

41114
4293

4116
4294H

11014
13694
14094
1430
14638
14854
15034
15964
16214
1652¢
16994
18014
19204
19554
20034
20254
20634

1102#
13704
14154
14314
1464
14864
15334
15974
16274
16534
17004
1802#
19244
19564
20044
20264

11554
13714
14164
1434
14668
14874
15344
15984
16284
16544
17014
18
19254
19574
200
20274
#

11564
13724
14174
14358
14678
1488
15354
15994
1629%
16564
17034
18084
1929%
19584

12284
1
146184
14368
14684
14934
15364
16004
16304
1684#
17044
18094
19314
19594
20074
20334
20814

1229#
13874
14228
14378
14708
14954
15374
16094
16314
16864
17054
18104
19354
19604
20084
20344
20834

1233¢
13914
14234
14384
1471
14964
15384
16104
1632¢
16874
17064
18404
19364
19654
2012¢
20354
20844

12344
1392#
1424M
1439
14774
14974
1544#
16114
16364
16884
17524
18594
19494
19904
2013«
20394
20854

20954
21764
22508
22928
2

2397

242
24728

21814
2251
2297
23694

23984

Q425K

25
2575

25354
25764

26
27284
27618
27
2B16H
29054
29288

26954
27
27624
27804
2B174
2
2929
29504
30
30454
30654
30
31184
31564
31824

26234

30054
30444
30644
30954
31174
31554
31814

2624

20314

20984
2198¢
22520

21034
22004
2264M

2370

23714

23014
3720

2426M
25014

24428
2502¢

244L4A
25034

S7T7h

2625
27308
27634
27824
28224
LA
29304
STH
0104
30494
30974
31194
31574
31834

24118
25374
25788

2626
7
2731
764K
28238
29314
%9
30124
30504
30714
30984
31214
31584
31844

21454
2201

24138

2579

2627H

2154
22024
22678
23024
23734

24154
25044
23394
25854

262

27034
2
273
27334
27654
7664
27914
27924
2824M
28254
29104
2932
29374
29614
30134
30364
30514
30534
30724
30734
31024
31034
3127#
31284
31594
31604
31854
31924

21554
22034
22684
23034
23834

21564
22044
22694
23064
23854

24514
25054

245
25284

241K

2554
2586
27094
276784
2B26M
29114
2939
#
30374
30544
30744
31044
31294
31614
31934

2417

25534
26024

26304

27104
27354
27684
28054
QB27A
2912#
29634
30554
31064
3134s
31624
31944

2014
22N

S
2750

%2100
4N
3724
i
74K
04
5084
5884

884

2054
2354

Seddeese &2

O
nNOON

$TSKO = 050002

c.10

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

T TP
.
NNV
oo
g
eSnaoRs
w
- 28R
38

30A(1052)

e
; S S0eaTEeYS B

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

$TSK1

050003

$T7SKk2

050017

$75K3

050034

$TSK4

050024
$$ARGC= 000000
$$8YTE= 000402

$$CASE= 000000
$$DST = 000003
$$ELOC= 000402

SEQ 0119

2114
4

36974

EOCTW.PH

3SSEMBLY ROUTINES

MACY11 30A(1052)

17-FEB-78 09:08

29-DEC-78

11:50

0_10
PAGE 121

CROSS REFERENCE TABLE == USER SYMBOLS

214

Soier
o
1454

§167t

33324
36714
38834

2931
30664
32074
33594
37384
39664

41144

43874

$SERFL= 000000
$$FLAG= 000001

12324
14614

30104
0664

$$FROM= 000000

$$LOC = 021362

$$REG = 177777
$SRETU= 000001

$$RTNT= 050000

$$LOCN= 000000

3
37554
3

SEQ 0120

30144
31214
32504

11:50 PAGE EZZ

ASSEMBLY ROUT INE
MACY11 30A(1052)
29-DEC-78
DOCTOR.P11
17-FEB-78 09:08
CROSS REFERENCE TABLE == USER SYMBOLS

$SRTN2= 050001

|
$$SRC = 000064
$$TGSv= 000000
$$7GS1= 000000
$$7GS2= 000000
$$T0 = 000001

$$$TAG= 050000

= 053416

3885
15714

4334m

SEQ@ 0121

——————————

ASSEMBLY ROUTINES

MACY11

30A(1052)

1789

1910

2330

2492

2681

3448

1298
1346
679
13%?

724
1001

1294
1006

1323
1028

1552
1042

3566
1066

4431
1080

1328
4279
4553
2879

2979

3576

4056

DOCTOR.P11
ABORTW

2941

BGNCLN
BGNDU
BGNHRD
BGNHW
BGNINI
BGNMOD
BGNMSG

1526

ALLOCA
BGNAU

BGNRPT
BGNSEG
BGNSFT
BGNSRV

BGNSW

BGNTST

BREAK
CALL

1574
1333

17-FEB-78 09:08
3239

29-DEC-78

11:50

CROSS REFERENCE TABLE == MACRO NAMES

1338

1307

2599
1676

1737

1756

1814

28232

4079

4153

4164

4179

CKLOOP

3665

3715

3749

3781

3817

DECLAR
DEVREG
DEVTYP

1787

1908

1615

2349

1958

3515

1305
1098
1858
2650
3245
4008

1234
1882
2748
3247
4010

2144
2750
3249
4012

2169
2947
3336
409

2180
2949
3359
4 113

2223
2963
3404

2243
3009
3620

ENDMOD
| ENDMSG

723
1?‘;12

1293
1002

1322
1015

1551
1038

’15 565
053

4430

4598

ENDRPT
ENDRTN
ENDSEG
ENDSFT
ENDSRV

1329
1655
4313
4571
2968

1770

1887

1964

2102

1851

1875

2131

2354

282;8

3593

2%17

3605

3615

3646

1572
814
810

16564
36078

1318
1370

ENDAU

3343
1334

ENDDO
ENDDU

1764
1339

ENDCLN
ENDHRD

ENDHW
ENDIF

ENDSW
ENDTST
EQUALS
ERRDF
ERRHRD

1548

2513

1658
3424w

3361

1084

1088

1132

1150

1204

1220

1254

1276

1728

DISPAT
ELSE

SEQ 0122

4435

1709

DEALLO

F_10

PAGE 124

17714
3527

3966

1888#
3529

3625

3636

1825

3697

2328

1891
38854

2490

19654
40214

1967
44104

2410

2449

2556

2644

3990

4108

2679

1844

1865

2046

2069

2124

2157

2186

2252

4187

4209

4219

4236

4244

4249

4277

4286

4089

4199

4231

4259

4311

26534

2656

28394

2842

2917

2930

2956

3072

3109

3133

3160

3218

3705

21034

3730

23064

3739

24728

3759

2475

3766

3771

3799

3807

3446

4481

1312
3827
728
2569
1744

1392

1394

1396

1408

1463

1467

1599

1620

1653

1683

1689

1751

1839

2291
3050
3651

2441
3065
3670

2443
3103
3720

2464
3118
3754

2466
3120
3786

256!
3128
3788

2578
321
3822

2642
3243
3882

1081

1085

115

1140

1186

1211

1245

1263

1277

2305

2471

2652

2838

3406

3423

3526

3884

4020

4409

2213

2233

2281

2341

2399

2433

2456

2546

2634

2740

1075

3256

4319

1832

10
ASSEMBLY ROUTINE S
MACY11 30A(1052)
17-FEB-78 09 :08
DOCTOR.P1
CROSS REFERENCE TABLE == MACRO NAMES

3610

3641

3710

3744

3776

3812

3648

3667

3717

3783

3819

4091

4261

4555

4565

1605

2607
3308
3028

3875

4077

1096
1425
1497
1628
1798
1954

1100
1427
1499
1630
1800
1956

1404
1454

2038
2171
2272
2397
2527
2628
2760
2823
2959
3058
3154
3227
3367
3479
3580
3910

LOCAL
MSBYTE
MSCHE
C
MSCKID
MSCOUN

MSDATA
MSDECR

A
MSDEF
MSENDE

1387

2591
3231
3020

1678

2041
2174
2289
24054
2529
26404
2762
2825
<961
3063
3156
3234
3371
3481
3585
3922

3977

3995

2278
3045

2338
3060

4084

4192

4224

3598

§ §\10mm-aob
VOO WOMNW

1229

4459

3953

445%
4561

SEQ 0123

N =2

44472

MNOMNOMNVMNON)
= b B b D
VSN
=000
=

4304

~
o

3393

- NJOWN
S
(o
N Y]
VINL
00
00

29-DEC-78 11:50 PAGE ?25

26484

4062

4064

1008#

10314

12064

1222#

1239

689

690

700
77

718

701

702
719

12124

12464

12644

4284
1788
686
36494

704
721
9924
12834
43148
L4438
9924#
12834

4345
1909
687
36684

705
722
1003«
12944
43204
4L44L8H
10034
12944

29694
1212#

29654

3257#
12464

3257#

35664
1264#

35664

——————

H_10
ASSEMBLY ROUT lN;S
MACY11 30A(1052)
29-DEC-78 11:50 PAGE 126
17-FEB-78 09:08
DOCTOR.P11
CROSS REFERENCE TABLE -- MACRO NAMES

44324

12¢

36634
37468
3815¢

4085#
42088
(3158
G448
L4668
45564

MSGNL
S

2236w
475K
26004
2787
32400
36134
3664k
X 47H
38164

40864
423oM
43218
4449
4467
4557

36194
36824

SeTYeY

533x~o

QRS gy
e

7194
990
1035
10714
1112
11614
1179#
12254
1262
13820
18534

RODAR

22358
2434k
25734
27868
854

6894
704#

ST I I

7034
7184
989%
1034#
10704
1M
1160
1178%#
1226
12614
13814
18525

42620
695
7128
818
12778
15538

IL|LY

24004

2LRRY
REIETW

REREN
EAN AN 3

(AN R e e e e
e e b
NNWNIN)
= =2 200

T44~ ¥

SR S
Y
N — B e e JE S
—_
NI
= 2 200

MSGNIN

40928
69%#
708
816
12550
15278

4092#

MSGETT
MSGNGB

3785

(AU ] AW R R

MSGETS

41934

2Rt RN

64n

42628
426N
695N
7128
984N
1086#
12820
1347#
443K
10864
13400

375

10814

40928
40928
6%k
7108
8184
1085¢
12784
1300
43208
1082¢
1335¢

3719

26354

4574
9784

gIeeRe 3 13y N

MSGEN

45664

PRGN
ES e

37844
37844
992‘
084
8114

45568

4004
134

MSE XSE
MSEXTJ

3718#

2342k

L4724

3669

820

d o

44668

36684

atr sk Son

MSEXCP
MSEXIT

b e

46604

N =t
2 O

45;2:

NONON)
=— e

L5724
2144

44L82m
1324

gumwrgm.a-n-n—n-a-a-a—a-a—o

MSERR]

SEQ 0124

26604

—

e
e
e

EC-78 11:50 PAGE *27

ASSEMBLY ROUTI N;S
MACY11 30A(1052)
29-D
17-FEB-78 09:08
DOCTOR.P11
CROSS REFERENCE TABLE == MACRO NAMES

10764
13304
45994
11104
10434

2885

29424

L2628
989
11174
1279

42804
9934
1138#
1284#

36664
38294

3954w

37164

21328
27994

3718#

2214m
28854

1550

1331

1335#

32874
37844
43208

3288
38184
4321

24008
32884
37188

2434k
33504
37454

10364
11754
13574

10404
11824
13824

1549#

42324

I
; IS
8T
¥

12064

10434
13244
45544
10084
1077
11574
1225

ek
WN-

3577#

1279
14484

10294
13084
4L368
1006
10764
1142
12208

M) = e ed e ed
NWN==O

7254

1277#

1450

1135

1105

1188

12784
1403

L4443

989
10544
1117

11784
2784
4472

Ree
34 25y
X3 2 Q:g ®

9854
1051
11164

1173
27834
4L668

35678

1011

—dd

12554

1010

1106

b ed ed d

6804

1448#

2783#
986
1069
1165
1256#

N) =

12564
985#
1068#
11644
1241

3577#%

10084

12054

2880#

&
NWN—=OO ro n~n
SEELES €

985#

13244
4554k
1170#

356748

13084
LL368
11034

10254

NNND — bk
NOO

7254

12224

1277#»

12464

32574

1255#

2984n

——

10084

43214

43144

985#
12564

MS$SETS

METLAB

9924
1283

38284

LL3B

MESVC

816

33504
71
40574

105644
13234
45728
17034

MSRAD |

MSRNRO

L2624
13814

2884
37114
39964
43158
2884r

N —=OO

MSPUT1

22824
N
»
38204

~n)

MS$PUT

15274
S47H

e g

PN NN = =

MS$PUSH

1161#
1277#%
1357#

=OWNNIWVIWN—=O

MSPRIN

1067#

NN
=
a2

724w
1278%

703

7254

= —d =

| MSPOP

673
8154

15104
§457l

40S57#

S NN
O~

6734

MSMCLO
MEMSK1

815#

1
10854

1278#
45724

11164

29654

MEMCH]

MEMASK

1
108

10864
15454

L2608
13564

10824
15094

332

MSLDRO

1gZ60
13400

S J5ET

2234
2885#
36494
38184

13354

N
— =

13478

10544

= =3 = W
RrZo
88(o ¥ V)
w

1151»
1265# .

1039+
13

£ WN

10554

1515

IANAIND =2 = =

MSINCR

10034
13064

—Jd—lbw%—l—.—!-‘—.

MEGNTE
MSHAPT
MSHNAP

95
1;8
457
3577#
6814
6814

W =20 WNOWNNON
O\ ==\

MEGNTA

SEQ 0125

ASSEMBLY ROUTINES

DOCTOR.P11
MSTST.

4305
989

43100
993
1138

160

835

4315k

43w

437

1318

22824

1017#
1168#¢

43120
1854

18764

1878

237

436

36118

4085¢
4257

13310

223w

10134
11614

321
3813¢
4 086

15k

1877

10404
11828

10514
1188

10554
1009

10734
12134

gdon

i3k

usTH

gsrm

25TON

13578

1380k

13198

1320

0459

3712
3814

3713
3815

3714
3816

3614

128

10
11

817

g8
2458
Jrilw

J_ 10

TABLE == MACRO NAMES

30N
3745
L092¢

22
4S7TM
2638

3613

PAGE

o8B
3718
4LO90F

208
2437
2637

3612

11:50

CROSS REFERENCE

0O
3o
4085
4373

211

3784#

1004
11620

29-DEC-78

ook
o8
w3711
39784
39964
43158
43210

3954@

30A(1052)

17-FEB~78 09:08

18w

POINTE
POP

MACY11

2134

goBS

2133

I3
3750w
41934
1321

17454

Jgler
37778
42254
1746

2214

344

3645

g7l

3718
38204

37458
3954¢

3746
3955

36114
37528
L2008

15108

2135

gres

2460

1dok

213%

Q33
O547M
grek

184

gow

1603

g%k
9548
3w

3747
3956

g5
2549
335)

3748
39784

10774
1225

1530W

J61aw
37824
423
1747

2215

2400w
2550
3352
37528

4258

4087
4262

40BB
43054

40924
4306

41934
4307

419
4308

4195
L3738

4196
4374

4225#
4375

4226
4376

678
1184

1186

1506

1508

1538

1540

2098

2100

2102

2139

2141

2738
3390

2740
3520

28
3522

2831
3524

2833
3526
4018

2951
3957

4020

2953
3959

3008
3963

3185
3981

3187
3983

4138

3961
4140

4377

4379

4381

2283

4005

4014

4016

| PRINTX

13%%

1007

1030

1045

1067

1102

1109

1133

1156

1163

1170

PUSH

1152
2612

1154
2614

1350
2686

1352
2688

1530
2690

1532
2896

1982
2898

1984
2986

1986
2988

4099

2119
3173
410

2121
3175
4334

2508
1855

2597
1879

2700
2141

3284
2166

3679
2178

3725
2220

4115
2240

4204
2288

1906

1980

2114

2326

2488

2677

3274

3421

2584

2601

2702

3294

3686

3793

4119

427N

371
12324
14558
16514
17874
19824

37524
13624

37844
13634
14598
16734
18324
21164

38204
13714
1461
16744
13504
21304

40928
13734
14798
16768
18514
21314

42624
13844
14804
16794
18744
21514

13854

13884

16804
18754
21534

17204
19074
21634

:
READEF
REPEAT
RETURN

3452
1355
1431
52%8

3454
1380
1443
}zzg

ROUTIN
SETPR]
SETVEC
STRUCT
SvC
UNTIL

1569
2883
2782
6734
6734
1437

1671
2983
27%4

WAITUS
WHILE
XFER
SADDON

1469

3456
1401
1478
1836

1486

2720
1719
36184
1096#

3286
1939
36494
10964

3681
3464
36684
12304

16164
17640
19454

16184
17654
19594

16494
17864
19814

164330

22334
24314
25944
28904
30164
3099

14440

22794
24334
25984
28924
30214
31014

14458

22814
24508
25
28
30234
31104

3458

2327k
24528
26084
29014
30254
31124

3901

14564

16724
18314
21154

23284
2489
26104
29184
30294
31344

3903

23394
24
26454
292
30314
31364

3905

23414
25094
26478
29214
2046k
31454

3907

2350
25104
26784
29234
30484
31478

2351
25194
2679%
29314
30614
31614

15704

23778
25204
27014
29334
30634
31634

15714

2379
25574
27024
29574
30734
31674

K_10
MACY11 30A(1052)
29-DEC-78 11:50 PAGE 129
17-FEB-78 09:08
CROSS REFERENCE TABLE == MACRO NAMES

| ASSEMBLY uoumss

;5210

3320

364

S8#

9744
L2188

39914
4215w

2275#

26584

10954

1231#

2179
2394
2603#
29224
31104
33574
37954
4007

2212#
24054

3
1344
358

3079%
16778

L0784
32954
17104

$CHECK

42954
10944

43004
12304

1092#
14340
1695#

1097#
14628
17004

$CKOP1

$CKOP2

22798
30214
36584

20194
22054
25004
26274
28164

1101#

12374

4129#

15964
19554

15984
1957#

43928
1589#
10944

22118

3324m
80#
39234

L118%

27134
29078
30954
32264
34964

233
30294
3757#

2007#
22034
24554
26254
28144
30714
33164
34654
38694

22644

$CKR6
$CMND

2514#
38714

$BRCOD
$CALL

23554
38564

&3 Q

16754
1857

16504
18564

22674

27584
29114
3097#
32284
34984

4394w
16454
12304

22314

SEQ 0127
3094

3114

7300

9254

3334n
354
7664
9724

42064

55310

S &

SBRANC

1%300

INOND
~

o
7264
9014
41094

BR 8

10944

>
N
-

$AND

7054
9004

—

38064

DOCTOR.P11

31594
34714
36934

16744

25674

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

184
40784

1677#

17104

18264
36984
41804

Sorew
Soeer
13714

S53ow
30530
36584

16494
5924

5144
ral]

Loy¢2cet
& ede

\hg&bw
&8 4£L X 3 g‘

b
b

N —
w

R=Y

— —

NRS
“g ks

*‘\\2:\

30404
30714
31064
31554
32054
32464
33264

7924

8914
%8320
1#

VIS
S

b
ek b e
) )

—

)
R
R
I
e
i

OO NNV

\gg
T

744

34614
34924

104

iy
n
~N ERGIIR

30384
30664
31044
31534
32004
3244
33248
33634
34594
34904

16604

lelele]
QVV%
RSty

2890#
29314
30004

4340

NONINLNINLNINLNINLNLNLNLND

7904

11554
13854

NN NN

2746

20264
20864
2158#
2211#
2271#
2347#
2393«
24324
25024
25674
2623
27034

11014

et SIS28

20244
20844
21564
22054
22654
23408
2388+
2431
25004
25624
26214
26994

19184
1957#

19114
19554#

{ g\

17454
1831#

1422#
14644
15004
16004
16454
1695#

10954
S

17438
18264

14178
14628
1498¢
1598¢
16444
16904

26454

16164
33624
1
1371#

334N
1092#
1369

1L
41044

ggssa
SN

SERRMS

5924

314

$ELSE

14 554
1634

1850w

SCOUNT

7654

S678

39174

Kde

18314

144

320
1%300

SCOMPA

184
10944

NSe g PE
et
PPN4P R4 T N Y e : RN
$3

ggoo-

CROSS REFERENCE TABLE == MACRO NAMES

S LSS TNTNTN LN LN NT ST NTNTN]

17-FEB-78 09:08

DOCTOR.P11

ASSEMBLY ROUT lvss

ana

NINON)
=2 b a
NN

R R SEUUZEBNIND

&»H

Eey

~oR

—_—

& w

b o

SNBSS

T »F &F o

—

$RF:g3¢¢ 'S TR3 IR
-

e b B
o

€

& NTIYYY
- O WWN

a;S >

¢g@&
<8 TR3t~

——

SeNE

—

\OWVNL
0o &~
-0
~N

55»H
»Hbl e

2RyR

S%ede Seeesy

28
30
31

14 Ra

1
%

w
NN

PRI 3¢ 3&l
-

S
a0

3
Nfl

N
-

PONIN)
= = 3 s SN N

8\[\"& ~

—

deet = SESR

SH2D
P

PININY
= b b b SN

32964

:2222:22$°9:§§22§:§§

NN
== 8 S

§§§§r§”RNRRT
L3

ASSEMBLY ROUTI S}
MACY11 30A(1052) 29-DEC-78 11:50 PAGE 131
DOCTOR.P11
17-FEB-78 09 :08
CROSS REFERENCE TABLE == MACRO NAMES

m10

SEC 0129

28284

794
884
784

$MCHIG

$MCLOW
SOPABS
SOPADD

2N
41294
43964
6744

32264
964
43924

g‘

0¥

3944K
4134

12374
15984
1957#

22674

/5%
114
30974
32284
34984

43
12374
15
1957#

27134

7594

29074

2674

1 ;:

32264

32284
34984

20054
11014
1588¢

20864
1237#
1589

1807
2032
22064M
24208
2781

gSOM
3854
gz%fi
S
39484

36854

11014
15964
19554

22654

$OPCD1
$OPCD2

1804

674M

- 2005#
11014
15964
19554
22654

27134
2907#

SOPAND

124

19184
20394
2265
2421
27924

4144m

22034
13694
16094
19914
22974

22714
1386w
16114
20124
23004

16294

7654
274

2774M

2024w
237
27784

2354
32904
3507#
35024
43964
13694 + 13864

1274

33264

1554

7634
134
1

1
19914

1174

16114
2012#

22974
27634
%9130
1064
32354
35024

23004
27654
29274

22034

22714

040

20814

43964

13694
15964
1919

31174

32
3507#
13864
15984
19294

20144

384

33304

16384

20324
23844
7814
1574

33734

3858
L 2

]

——

3322

MR ufi)
StgR
‘ I

9o
764
4

~Nw

335¢

7654

S P ARy

§67

56270

714
155
4N

R-R-R3

18648
2086wl

—_—

15:

NS5

160 180es

}S N

&R
I

149584

115
14304

146260

14990

162640

(XA

—

436;
1097#

Pz@z

L3614
1092

guRga

SLET

SR $88ed733

ASSEMBLY WT!'?S
MACY11 30A(1052) 29-DEC-78 11:50
DOCTOR.P11
17-FEB~78 09:08
CROSS REFERENCE TABLE --

8.1

29-DEC-78 11:50 PAGE 131

ASSEMBLY ROUTINES
HA§Y11 30A(1052)
DOCTOR.P11
17-FEB-78 09:08
CROSS REFERENCE TABLE == MACRO NAMES

2193

m-‘fiuw
SRERINE T3

30814

ERFR ST IR

ol conb e

i wmsd o

seud e

cund

b v

3 N

uru

22514

NRES

—l—l—b;—l—l—l-—l—l-fl—.—l—l-‘
NN
N
SPEEINY

SRRfi\h‘\&"
YPRIETS

38338
2\\

P
WO Wn-—

I
A
eT
B
e

—

L 3

Euage
2

NNONON\WN
S S HN

gdddd-‘—l—l—‘—l-‘dd—ld
&
B S22 FQERR 2

RENS
F

b e d D ed b ed d d d e e b N
OO NN
NS
W=\
- NN
NO
= =2
NONDND) ==

SREE:
g
g“
R gg g\
R

N
e e
e o
d cd d e e cd o
e
NN =

054

PONINININI

K22
LRI
SORNEIL ENS 4

ogmww
RETIEE R
S

gg&flflfl&g&%fifigg

35114
3531
36374

e y

EARRNCINISLS
V§8°V33~w“§°3§

29534
30154
30534
0934
31534
31874
32424
3324M
33714
34034
34594

—NWVOoN

20474
2075
2103«
21594
2188
22214
2258
2
23554
23834
24214
2476
25
2577H
26234
26564
27114
2746
27924
28334

1784

%gu

N -

20424
2074
21024
21584
21874
22204
2257
2297#4
23488
23784
24208
2475
25284
25754
26214
2654
2709%
27408
7904
28324
I
29524
30144
30494
30914
31464
31864
32354
33194
33704
34024
3458k
34844
35094
3530
36354

19574
20054

%159’
373
587

=000

20404
2073
21014
21564
21794
22194
2256
22904
23478
23774
26184
2473
2524
25684
20194
26534
2704
27398
27814
28314
29054
2946H
30124
30474
3089%
31454
31844
32334
33184
33684
33904
34578
34820
35074
3529%
3628

18504

) SN

1893
19514
19964

17504
18074
18564
19114
19534
20014

b ek =

1892
19494
19914

18454

13624
14264
14714
15314
1591
16384
1679%
17214

1574
372K

D d e e e

17494
18064

13524
14268
14708
1508¢
1590
16364
16778
1713

3264
5074
1344
22034
10954

) e

17434
1801#

13514
14228
14668
15074
1589
16314
16754
1712

31274

174
g90'
O;l
412
20864
1094#

O\
=N
wHwm

SOPCOM
SOPDEF

354
98s
L1264
20054
1092#¢

—

106#

SEQ 0131

MACY11 30A(1052)

ASSEMBLY ROUTINES

DOCTOR.P11

17-FEB-78 09:08

7574
w

9074

SOPNEG
SOPNOR

SOPNOT

9124

40178

40184

9864

4083

718

9584

39874

4019

41004

L1298
L1654
42104
4248
43004
L3648
L3968
11014
15964
19554

41348
4166
4211
42508
43014
L3668
43964
12374
1598%
1957%

41354
41674
4212
4251
4302
43684
44014
13694
1
19914

43928
1101#
15964
1955#

439K
1237#
1598%
19574

L3964
13694
16094
19914

22654
27138
29074
30954
32264
64

SOPNAN

9114

§9520

4082

7044

7604

9854

SOPEQU

984

7584

22678
2759
29114
30974
32284
34984

2297H
27634
29134
31
32354
35024

2265
27138
29074
3095#
32264
34964
L3928

22678
2759
29114
30974
32284
34984
43948

2297
27634
29134
31
32354
35024
43964

22054
27138
29074
30954
32264
34964

22678
27598
29114
30974
32284
34984

2297
27634
29134
31
32354
35024

20054 - 20864
11014
12374
15964
1598¢
19554
19574

4392
11014
15964
19554

2205K
27134
29078
30954
32264
34964

4396k
12374
15984
19574

2267H
2759
29114
30974
32284
34984

22034
13694
1
19914

43964
13694
16094
19914

22974
27634
2913«
31064
32354
35024

i
10
38764

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

708
7684
n

709

769

7314
770
14

0.1
MACY11 30A(1052)
29-DEC-78 11:50 PAGE 135
17-FEB-78 09:08
CROSS REFERENCE TABLE == MACRO NAMES

15964
19554
22654
27134
29074
30954
32264
34964
43928

15984
19574
22678
27594
29114
30974
32284
34984
43948

16094
1991#
2297k
27634
29134
31064
32354
35024
43964

14268
14964
16274
1801#

146268
14984
1629%
18064

14284
15004
1634
18094

20034
20814
22518
23864
25284

20054
20844
22644
23884

A o

27658
28284
2995#
30714
3159
32424
33794
34884
36784
39420

27678
28374
30034
3089%
31764
32804
33814
34904
36854
3944k

26944

27734
29054
30054
30914
31784
32904
33834
34924
36934
39464

11014

20014
2065#
22498
23834
2504n

26274

$OPR1

1097#

25304

L129%
43964

41348

4137

10924

14240

1097#

11014

14964

14268

1498%

15004

16274
1801#

1629%
18064

2001#
20654
22498

20034
20814
22518

25044
2627H
27654

25284
2629
27678

23834

3864

14284
16314
18094

20054
20844
22644

23884
25304
26944
27734

b
—

celiet&

PEICRN
NN~ %
EET4 2% QLENLYY o

10924

4L396H
1369

—— uw

$OPRO

439K
12374

L3928
1101#

2297#
27634
%91 3#
1064
32354
35024

<
& S

SOPROT

22678
2759
29114
30974
32284
34984

22654
27138
29074
30954
32264
O6#

16094
19914

13694

SEQ 0133

o
O

15984
1957

15964
19554

L3964

1 %37‘

S3ogreitee

439K

1101

R
TR g

L3928

(NWWW

$OPOR

-k

DOCTOR.P11

N%M—‘—‘ W
e SRR

ASSEMBLY ROUTINES

ASSEMBLY ROUTINES
MACY11 3CA(1052)
29-DEC-78 11:50 PAGE 136
DOCTOR.P11
17-FEB-78 09:08
CROSS REFERENCE TABLE == MACRO NAMES

5o
L

Diow 3o6n 3se0w
%58 3380s 3530
3,88¢
36788
3968

41298

SOPR2

43964
1092%¢
14040
14964
16274
18014

41374

1097%
16268
14984
1629%
18064

11014
14288
15004
16314
18094

20054
2084N
Q064N
23884
25304

27658
28284

27678
08374

J77H
0905
30054

3159#
30Lo8
3370
3,88¢
36784
394K

31764
32808
33814
34904
36854
3044H

26944

30914

31784
32904
33834
3,924
36934
39464

41290
43964
11014
15964
1955¢

4134w

41374

12374
1598¢
1957#

13694
16094
19914

43928
11014
15964
1955¢

4394H
12374
15084
1957%

22654
27130
29074
3095#
32060
34964

22658
27134
29074

30954

SOPSWB
$OPXOR

4134k

20034
20814
22518
2386w
25288

3071#

SOPSUB

34924
36934
39464

2001#
20654
226
23834
25048

26274

SOPSHF

3,908
36854
394N

32064
34964
L3900

2005#
11014

22674
27598
29114
3097#
32084
34984

067K
27598
29114

32284
34984
43940

0864
1237#

2297H
2763M
29134
31
32354
35024

43964
1369#
16094
19914

2297H
27634
29134

32354
35024
4396H

22034
1369

74
12#

33854
34964
36964

39484
41444

11554
14304
15024
16364

$0%s

114

718

2837H

288

28284

324M
614
5004
bod
39524
L1764
12334
14364
15354

16444
19244
5014l

134

27TH

SEQ 0134

ASSEMBLY ROUTINES

W DOCTOR.P11

15964
19554

22654
2713
%gg;:

32264

$OR

$PUT

SSUBON

15984
1957#

22674
275
114
7

32284

4332:

1094

1230#

16774

2072
36374
42208
1099#
16544

21034
247K
29324
31628
35164
39678

30A(1052)

1609#
19914

16114
2012#

17-FEB-78 09:08

2%33:

22794
3021#
36668

MACY11

;970
634
134
106#

32354

2;8%:
1

23394
234
36584

23774

2125

17104

38564
4221
12354
16564

21454
25584

3004
7654
27K
1174

%290#
507
14594

29-DEC-78

11:50

CROSS REFERENCE TABLE == MACRO NAMES
16294
144

16364
20244

16384
0324

18250
ox

16524
824

1554

1574

159#

3704
7784

7764
M
1274

33264
351

15934

§3300
5874
1

2431
30614
39254

2567M

37574

23934
304
39178

21584
36984
3858

2159
37064
38714

21878
3707
4072¢

G378
13724
16844

1731

L245K
13934
16904

32128
35174
3914

21708
25624
29504
32204
35274
4

21B1F
25
29584
3244M
36214
40114

F.1
PAGE 137

17384

4246
13954
17524

2224M
25854
29644
32468
36524
40134

3844
7814

382:
79

33738
36854

34714
3694#

16494

16744

4144
8064

16984
0944

4184
28094

18074
0974

19194
1734

19304
1994

19514
22494

1953«
52510

1784

18;’

1844

1944

32004

32054

So#
32144

§373'
784

34758
39126

17214

17238

39728

25924
30814
L104M

4234M

27184
31454
4361

2189
37314
40BO#

22534
37404
4081

255
741
41548

23554
37608
4156

1757#

42504
13974
17654

2244M
26024
30104
32484
3671
40214

18154

4251
14094
17664

2294
264
30514
3250
36874
40954

6084

1817

Lo78R
143BF
17714

18264

42B7K
14644
18404

32954
37214
41108

23508
26514
30744
33374
37554
41148

Q646N

SEQ 0135

7244
1674

18454

2357
37674
L1654

42954
14684
18594

4214
8224
124

4254
824N
on

3486
39504

4127

41354

19414

19434

21514

2114

22314

18664

14
768
4167

14704
18834

2442oM
27034
31114

8994
34

1867

3773
41884

24518
2751
31214
34054
4
42654

3004
14874
1

2611M
26534
31044
33454
37878
4120

37898
41988

2444LM
2749
31194
33634
3794A
4230

12304

13884

1459

15934

16064

16494

16744

172184

17238

19414

;9430

SUNTL2
SUNTLS

14384
14384

14704
14704

14874
14878

25854
25854

26024
2602¢

27034
27034

41044
32954
32954

36874
36874

37944
379A

4120
41208

42728
42728

44014
44014

21044

21154

18834

SSGETS

18884

2224
248N
2839
31194
33454
36524
39914

220L4A
25094
28414
31214

10994

12354

$SGETT

19604

36714

19654

34654

18904

22928
25584
29194
3129
33634

32128

40114

31624
34074
37264
4021#

13714

13724

21034

30744

32204
35164
39674

3244k
35174
39914

32464
35278
4009%

13714

16164

19654

23504
26434

2LOTR
27514

43108

23274
2598

24L65K
27498

L2728

19404

23084

24514
27034

734

19074

23064
25624
29324
31358
34054
37214
40134

43874

23504

19814

21034

37554
40

3220
34208
37874
40954

2411M
26464 29644
3244k
36244
37894
41104

24428
2651
30104
3246M
3425
38234
41148

2444A
26534
30514
3248
34458
38414
41168

13934

13954

13974

14094

14384

21454

21704

218

31044

31104

2672
28394

32484
36214
40114

L401R

24114

2451R
26554

20704

43684
16174
1

42104
4369
16214
1

3607
38004
4189

L2678

2467H
194
31354
34244
38854
4L272M

21514

22114

22314

21454

21704

21814

14644

14684

14704

133;:

16004

16164

2645
5

2646
i

26514
1

26534
30514

34054
38234

34078
L2658

34244
38854
4267

31614

32194

26028
2950

26438
2957

32504
36524
40134

32954
36714
40214

33374
36874
40954

3344k
37214
41094

3345
37554
41104

33604
37878
41144

33624
3789
41204

3794k
4198%

24504

25574

26454

29184

29314

29574

3073#

31104

31344

31354

31614

JL67R
27014

2L65M
283
31294
34078

36264

L2654

25858
29488

44104

2049

32854
35274
38874
4230

2579
328

31294

30144
33324

3250
34654
38834
41988

25624
9314

31214

3318¢

L74A
2751
31114
33374
36214
39674
4L267#

2558
29194

1194

4301
1
19594

34924

2LESA
26788
30744
32754
35178
38854
L2054

2557M
29184

31114

%282:

35944
37724
41804

10944

}720#

29214

34904

6
28374

39464

$THEN

:UHILE

25754
8284
554

34824
39364
% 904
2074
.

84N

5508
8264

1624

3134

Q4728
2749
31044
35284

32128

3219#

—

DOCTOR.P11
$$POP

33624
12354

39674
13714

2451
27034
30664
3220

24654
%49‘
734
3244m

Go7H
7514
74
32464

L7k
1094#
1433

4310
1096
16440

17654

17864

2281
24504

23278
2452

2899%

2901

1617
1960

19814

2599
3025

31344
3276
344650
3705
39004

$SSETS

. ABS.

16214
19654

3517
39914

1618

16544
1034

16564
1454

35278
40094

36214
40114

43878
12304
1445

1649#

1787

1982

21154

26084

2610

30294

3136
32854
3446
726w
3901

2328
2489

G728
8354
1044
2484

44014
1232
14554
1651

1831#

2116

2339
2490

26454

29184

2920

31454
3286
34654
3727
39174

3147
33094
3466
37384
3919

3031

30464

4106
42938
1094
146448
16514
18504

4109
429
10964
14458
16734
18514

4111
43334
12304
14554
16744
18744

L1164
4334
12324
14564
16764
18754

41178
L3564

L1864
L3614

41874
43634

L2054

053416

000

21634
23954
25984
29014
3048#
32074
33644
37044
39014

39914
1372

3346n
1099#

16164

30A(1052)

17-FEB-78 09:08

3514
39674

$SPUSH

MACY11

ERRORS DETECTED:

21644
24128
25994
29204
30614
3209
34234
37054
39174

22114
2431
26084
29214
30634
32214
34468
37264
39194

29-DEC-78 11:50 PAGE ?38

CROSS REFERENCE TABLE == MACRO NAMES

N §~§wm&-~wmddn~§°§
N
T N

ASSEMBLY ROUTINES

NWVIO
—'-‘Q:\J
R
»

RIS
LR Syt

22134
24334
26104
234
30754
32324
34654
37274
39254

(ZDZCB.BIN,CZDZ(B . SEQ/CRF
/SOL /NL : TOC=SMAC
/ML , SPMA( /ML ,(2DZ2(B.P11
RUN-TIME: 100 97 8 SECONDS
RUN-TIME RATIO: 531/207=2.5
CORE USED:
33k
(65 PAGES)