Digital PDFs

AH-8903D-MC

November 1979

111 pages

Original

4.7MB

view download

OCR Version

4.5MB

view download

Document:	CZLADD0 LA36 LA36 DH11 DJ11 DIAG NOV 1979 bw
Order Number:	AH-8903D-MC
Revision:	000
Pages:	111
Original Filename:	CZLADD0__LA36__LA36_DH11_DJ11_DIAG__AH-8903D-MC__NOV_1979_bw.pdf

OCR Text

LA36 DH11 DJ11 DIAG

CZLADDO

AH 8903D M(

NOV 1979

FICHE1 OF

MADE

!fl!nuau
IN

USA

—

O»
O

L A36 DH11/DJ11

DIAG

03-AUG-79 09:18

MACY11

30A(1052)

03-AUG-79

09:23

1
PAGE

!
SEQ 0001

-REM 3

N PORIPNUPORUPURNYIND
vttt ottt e’ i

[«RV 9N wN—OOONO‘wvaN—-OOO\Omb.uN-OOONOU'wa_.

IDENTIFICATION

CODE:

AC-8902D-MC

PRODUCT

NAME:

CZLADDO LA36 DH11/DJ11

PRODUCT

DATE:

JUNE

PRODUCT

Lo L L A

MAINTAINER:

1979

ENGINEERING

ROBERT BAKER

s e L
2k VW
K
& eA
V.
¥ oe
O 0B~y [
g — OOV~

DIAGNOSTIC ENGINEER:

DIAG

THE INFORMATION IN THIS DOCUMENT 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 IN THIS DOCUMENT.

NO RESPONSIBILITY 1S ASSUMED FOR THE USE OR RELIABILITY OF SOF TWARE ON
EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS AFFILIATED COMPANIES.

(C):

1974,1979 BY DIGITAL EQUIPMENT CORPORATION

FOLLOWING ARE

DIGITAL
DEC

TRADEMARKS OF

PDP
DECUS

DIGITAL EQUIPMENT

UNIBUS
DECTAPE

MASSBUS
DECX/11

CORPORATION:

30A(1052)

03-AUG-79

09:23

1
PAGE 2
S€Ea 0002
PAGE

WwWN—=O

STORAGE

OPERATING PROCEDURE
SWITCH REGISTER CONTROL
KEYBOARD CONTROL
CONTROL “*6

—O

STARTING PROCEDURE
STARTING ADDRESS

= OO0 NN
NN —

N -0

OSSN

e
s

ATV BN AN
—

«
o
«

.
.

.
s
.

INITIALIZATION

TEST DESCRIPTIONS
PRINTING TES TS
TESTO
DATA PATH TEST
TEST]
PRINTABLE CHARACTER TEST
TEST2
NON-PRINTABLE CHARACTER TEST
TEST3
CARRIAGE RETURN TEST
TESTS
MULTIPLE LINE FEED TEST
TESTS
SINGLE LINE FEED TEST
BACKSPACE TEST
OVERPRINT TESY
PRINTING FREQUENCY SWEEP TEST
RIBBON FEED TEST
PRINTER BELL TEST
- LIFE TEST
ESTS

—

—_—

b b ot b b ed e b e e O

Yo N Vo No SNV IV 20 IV BN N

PROGRAMS

—=O

PRELIMINARY

LOADING PROCEDURE &

e 8 % ¢ s s s+ 8 e v s s s e e
@

o Re Neo Yo Ko Yo Yo Ne Yo o Yo o Ne Ne e Ne e

&
8
&
»
e
"

CONTENTS

REQUIREMENTS
EQUIPMENT

s e e o

O RN S 1,01, 1,9

TABLE OF

AN N N NN NI PO NIPNU AU RIND b =

MACY11

lo oo aRe Ro Ne e

CILADDO LA36 DH11/DJ11 DIAG
(ILADD.P1Y
03-AUG-79 09:18

TESTS

TEST34

CHARACTER ECHO TEST
LINE ECHO TEST, FAST RATE
LINE ECHO TEST, SLOW RATE
CHARACTER/CODE ECHO TEST
SELECTED PATTERN ECHO TEST
BELL ECHO TEST

SECONDARY CHARACTER SET OPTION
SELECTIVE ADDRESSING OPTION
AUTO ANSWER BACK OPTION
TOP OF FORM OPTION
HORIZONTAL TAB OPTION

CZLADDO LA36 DH11/DJ11

CZLADD.P1Y
106

DIAG

03-AUG-79 09:18

MACY11

30A(1052)

03-AUG-79

09:23

1
PAGE 2
SEQ 0003

6.3.6

TEST3S

= VERTICAL

TAB OPTION

CZLACLO LA36 DH11/DJ11 DIAG
CZLADD.PY
03-AUG-79 09:18

MACY11

30A(1052)

03-AUG-79

09:23

PAGE &
SEQ 0004

107
108
109
}}?

1.0

}}%

THIS DIAGNOSTIC

PAGF
ABSTRACT
IS DIVIDED

INTO FOUR BASIC

SECTIONS:

}}g

A CHECK OF

THE CONSOLE

}}?

A CHECK OF

THE PRINTING CHARACTERISTICS AND CONTROL LOGIC

118

AN ECHO PORTION DESIGNED TO CHECK THE KEYBOARD AND TO AID

};8

}S;

123

124

}55

THE

DIAGNOSIS Of

A CHECK OF

TERMINAL

INTERFACE

TERMINAL PROBLEMS.

THE

1IN

THE VARIOUS LA36 CPTIONS.

PATTERNS USED BY THE PRINTING TESTS WERE CHOSEN
VERIFICATION.

LOGIC

ECHO TESTS WERE

DESIGNED

FOR

EASE

VISUAL

FOR MAXIMUM FLEXIBILITY,

WITH TEST 24 ALLOWING ANY DESIRED PATTERN TO BE USED.
.

27
28
gg

2.0

REQUIREMENTS

2.1

EQUIPMENT

33
34
35
36

THE DIAGNOSTIC 1S WRITTEN TO RUN ON ALL MODELS OF THE PDP-11
(OMPUTER
WITH
EITHER
DH11
OR
DJ11 MULTIPLEXER.
UP TO 16 MULTIPLEXERS + 256
TERMINALS ARE DRIVEN.
THE DIAGNOSTIC IS SET TO TEST THE TERMINALS
AT
300
BAUD.
TO
CHANGE ANY PARAMETERS FOR THE DH11 INTERFACE REFER 10

THE DH11

2.2

PARAMETER

TABLE

IN THE LISTING.

STORAGE

THE DIAGNOSTIC PROGRAM USES ALL Cf
AREA USED BY THE ABSOLUTE LOADER.

2.3

4K OF

MEMORY WITH EXCEPTION OF

THE

PRELIMINARY PROGRAMS

ANY APPLICABLE PDP-11 DIAGNOSTICS SHOULD BE RUN ON THE PROCESSOR.
IF
ANY
ERRORS
ARE
ENCOUNTERED DURING THE INTERFACE CHECK, REFER TO THE
APPROPRIATE INTERFACE DIAGNOSTIC FOR
FURTHER
HELP
IN
LOCATING
THE
PROBLEM IF NEEDED.

CILADDO LA36 DH11/DJ1Y DIAG
CILADD.P11
03-AUG-79 09:18

MACY11

30A(1052)

03-AUG-79

09:23

PAGE

SEQ 000°
PACE

5.0

LOADING PROCEDURF & INITIALIZATION

LOAD THE LA36 DIAGNCSTIC PROGRAM
TAPE
FOLLOWING
NORMAL
PROCEDURES.
BEFORE
STARTING THE PROGRAM, REFER TO THE EXISTING LINE TABLE (ELTAB)

gg\no NN = OO0

~NO W

D O 0 O O O O ~O 00 0o 0o 0o 00 OGO 00000000~~~
N~
P AN OORNO
N

AND CLEAR THE PROPER BITS IN THE TABLE TO INDICATE WHICH TERMINALS ARE
TO
BE
TESTED.
A
DETAILED
DESCRIPTION IS CONTAINED IN THE PROGRAM
LISTING.
ALSO, REFER TO THE DESCRIPTION OF THE ROUTINE
''DLY''.
TIME
DELAYS
USED BY THE PROGRAM ARE A FUNCTION OF THE CPU MODEL AND MEMORY
TYPE AND SHOULD BE SET UP BEFORE RUNNING THE DIAGNOSTIC.
THE
ROUTINE
IS PRESET FOR A PDP-11/40 WITH CORE MEMORY.

IF A HARDWARE SWITCH REGISTER DOES NOT EXIST, THE PROGRAM WILL USE THE
CONTENTS
OF
LOCATION
176 AS THE VALUE OF THE SWITCHES.
THE PROGRAM
WILL PRINT QUT THE PRESENT CONTENTS OF THE
SOFTWARE
SWITCH
REGISTER
WHEN THE PROGRAM 1S STARTED.
IT WILL THEN ASK FOR THE NEW CONTENTS 10
BE INPUT TO THE SOFTWARE SWITCH REGISTER.
TYPE
CARRJAGE
RETURN
10
FINISH INPUT.

4.0

STARTING PROCEDURE

4.1

STARTING ADDRESSES

200(8)
204(8)

4.1.1

EXECUTE WITH DH11
EXECUTE WITH DJ11

EXECUTE WITH DH11

MULTIPLEXER
MULTIPLEXER

MULTIPLEXER

REFER TO SECTION 3.0 AND MAKE SURE

ELTAB

TABLE

THE

PROPER

BITS

THE

(PU

AND

INDICATING WHAT TERMINALS ARE 10 BE TESTED HAVE

BEEN CLEARED AND THE CORRECT DELAY
COUNT
MEMORY TYPE IN USE HAS BEEN SET IN TIMER.

FOR

THE

SETTEHITCH
SWITCH

THE

LOAD

SET THE SWITCH REGISTER BITS 7-0 EQUAL TO THE PAPER WIDTH
N
TERMS
OF
THE
NUMBER
OF COLUMNS (OCTAL).
REFER TO SECTION

AND

PRESS

ADDRESS

5.1.4.

SET SWITCH 8 UP IF
RATHER

~ THAN

BEGIN

IS DESIRED TO SELECT
THE

NORMAL

OTHERWISE, LEAVE SWITCH 8 DOWN,
E.

PRINTING

SPECIFIC

TEST

SEQUENCE.

PRESS THE START SWITCH.
1F BIT 8 WERE ZERC WHEN STARTING THE
NUMBER
OF
DH11'S UNDER TEST WILL BE PRINTED ON ALL EXISTING
TERMINALS AND THE PRINTER TESTS ARE EXECUTED SEQUENTIALLY.

—

CILADDO LA36 DHI1/DJ11 DIAG

CILADD.P1Y

03-AUG-79 09:18

MACY1T

30A(1022)

end
e
o
i
b ad

NN~
O

09:23

1
PAGE ¢
SEQ 0006

208
209

03-AUG~79

PAGE S
F.

1F BIT 8 WERE 1 WHEN STARTING, THE
NUMBER
OF
DH11'S
UNDER
TEST
WILL
BE INDICATED AND THE MESSAGE "'SELECT TEST NUMBER'
WILL BE PRINTED ON ALL EXISTING TERMINALS.
THE PROGRAM
WILL
THEN
BE
WAITING
FOR
A
TEST
SELECTION
VvIA
ANY TERMINAL
KEYBOARD (IF SWITCH 13 IS DOWN), REFER TO SECTION 5.2

CZLADDO LA36 DH11/DJ11 DIAG

03-AUG-79

09:23

o1
PAGE

SEQ 0707

03-AUG-79 09:18

30A(1052)

PAGE

.1.2

EXECUTE WITH DJ11 MULTIPLEXER
A.

5.0

SAME

INSTRUCTIONS AS 4.1.1

EXCEPT

THAT

THE

STARTING

IN
B IS 204 AND THE FIRST MESSAGE PRINTED WILL BE
OF DJ11'S UNDER TEST.

ADDRESS

THE NUMBER

OPERATING PROCEDURE

THE PROGRAM IS GENERALLY CONTROLLED FRCM A MULTIPLEXER TERMINAL, BUT A
FEW
SWITCH
REGISTER
CONTROLS
ARE AVAILABLE.
THE PRINTER TEST WILL
OUTPUT TO ALL TERMINALS OR TO THE ONE UNDER TEST AS A FUNCTION
Of
SR

BIT

13.

TESTI,

ECHO

OR ALL

SWITCH 13.

TESTS

WILL REFERENCE ONLY THE TERMINAL SELECTING THE

TERMINALS DEPENDING ON THE

SPECIFIC

TEST

AND

THE

SETTING

A LAY ST T T, VT VT N ST 1 ST ST Y ST Y. ST )

WWMWWQ&!NNNNNNNNNN—-.‘B
guuuu
oqumbum—-oomwowbww-oomw o

[ ¥

CILADD.P1Y

MACY11

SWITCH REGISTER CONTROL

THE VARIOUS SWITCHES AND THEIR FUNCTIONS ARE LISTED
BELOW.
SWITCHES
MAY
BE
CHANGED
AND
SET
AS DESIRED EXCEPT AS NOTED IN THE SPECIFIC
SWITCH DESCRIPTIONS.
REFER TO THE DETAILED
SWITCH
DESCRIPTIONS
FOR
FURTHER, MORE COMPLETE INFORMATION.

246

SWITCH NUMBER

Al RV 1§

nrorororo roroN
20

5.1

ororororororO
N
AV ARARY TV RV IV 1V 2V ]

ONO
NS ey —

DESCRIPTION

1(upP)

HALT AT END OF

O(DOWN) = CONTINUE

TEST

TEST
SEQUENCE

1(UP)
= DRIVE ONLY SELECTED TERMINAL
0(DOWN) = DRIVE ALL TERMINALS

T(UP)
O(DOWN)

7-0

NUMBER OF

= SELECT TEST (AT START-UP ONLY)
= START NORMAL TEST SEQUENCE
COLUMNS AT

START-UP

CZLADDO LA36 DH11/DJ11 DIAG
CZLADD.P1Y
03-AUG-79 09:18

259
260
261
262
263
264
265
266

MACYTT

30A(1052)

03-AUG-79

09:23

1
PAGE &
SEQ 0008
PAGE

5.1.1

SWITCH 15

WITH SWITCH 15 IN THE UP POSITION, THE PROGRAM WILL HALT AT THE END OF
THE
CURRENT
TEST.
REPLACING
SWITCH
15
TO
THE DOWN POSITION AND
PRESSING CONTINUE WILL CONTINUE THE NORMAL TEST OPERATION.

5.1.2

SWITCH 13

PLACING SWITCH 13 IN THE DOWN POSITION WILL
TERMINALS.
If
SWITCH
13
IS
UP,
ONLY
DRIVEN.

CAUSE THE DRIVING
OF
ALL
THE TERMINAL UNDER TEST IS

NOTE

SWITCH 13 CAN ONLY BE CHANGED

PROGRAM

5.1.3

SWITCH 8 (AT

IS WAITING FOR A TEST

WHEN

THE

SELECTION.

START=UP ONLY)

TO SELECT
A
SPECIFIC
TEST
RATHER
THAN
START
THE
PRINTING
TEST
SEQUENCE,
PLACE
SWITCH
8
UP
BEFORE
STARTING
THE
DIAGNOSTIC.
OTHERWISE, LEAVE SWITCH 8 DOWN TO RUN THE NORMAL TEST SEQUENCE.
THIS
SWITCH IS ONLY EFFECTIVE AT START-UP OF THE PROGRAM.

S.1.4

SWITCHES 7 TO O

(AT

START-UP ONLY)

AT START-UP ONLY, SWITCHES 7 TO O ARE USED TO SET
NUMBER
OF
C(OLUMNS
THE
DIAGNOSTIC IS TO TEST.

THE DESIRED
MAXIMUM
IF THE NUMBER SET IS

GREATER THAN 132(10) OR LESS THAN 30(10), THE PROGRAM WItL DEFAULT
132(10).
THE VALUE SET MUST BE IN OCTAL FORM,

CZLADDO LA36 DH11/DJ11 DIAG
CILADD.PTI
03-AUG-79 09:18

301
302
303
304

MACYT1

30A(1052)

O03-AUG-79

09:23

PAGE 9

SEQ 0009
PAGE

5.2
THE

KEYBOARD CONTROL
PROGRAM WILL ALWAYS BE UNDER KEYBOARD (ONTROL.

C(ONTROL

FROM

THE

SWITCH REGISTER DURING PROGRAM EXECUTION IS ONLY POSSIBLE WiTH SwWITCMS

13 AND 15 AS STATED ABOVE.

TYPING THE ''RUBOUT'" (DEL)
THE
TEST
IMMEDIATELY.
MESSAGE WILL BE TYPED:

SELECT

TEST

KEY ON ANY TERMINAL KEYBOARD WILL
AFTER
TERMINATION OF THE TEST THE

AT THIS TIME, TYPE THE DESIRED
FOLLOWING CONTROL CHARACTERS:

» L8 Lt L

L Lt Lt Lk L AN L PO

QOO
N WO
—=O 00

Lt Lt Lt A4 Gl Lt L L A SN N e e

(PERIOD)

TERMINATE
FOLLOWING

TEST NUMBER FOLLOWED BY ANY ONE OfF

- RUN THE SELECTED TEST ONCE AND RETURN FOR
TEST SELECTION.

= LOOP ON THE
TYPED.

START THE
CONTINUE

SELECTED

TEST

TEST SEQUENCE
TO
LOOP
ON

UNTIL

THE

ANOTHER

‘'RUBOUT''

WITH
THE
SELECTED
TEST.
THE PRINTING TEST SEQUENCE

UNTIL A "'RUBOUT' 1S TYPED.

THE L OR S MAY BE EITHER UPPER OF LOWER CASE, BUT THE TEST NUMBER MUST
ALWAYS BE A 2 DIGIT OCTAL NUMBER.
FOR ALL ECHO TESTS, THE '‘L'' AND ''S"’
WILL ONLY RUN THE TEST ONCE (THE SAME AS IfF TYPING A PERIOD).
FOR ALL

OPTION

TESTS,

THE

''S’"

WILL

ONLY RUN THE TEST ONCE

(THE SAME AS IF

TYPING A PERIOD), HOWEVER, TYPING AN "'L'' WILL
CAUSE
THE
PROGRAM
10
LOOP
ON
THE
SELECTED
TEST.
It
AN
ERROR IS DETECTED IN THE TEST
SELECTION (ILLEGAL TEST NUMBER OR CONTROL CHARACTER) A
QUESTION
MARK
IS PRINTED AND THE MESSAGE WILL BE REPEATED.

5.3
THE

204,

*G FUNCTION
PROGRAM WILL SENSE

CONSOLE

SWITCH

“G COMMANDS WHEN STARTED

LOCATION

START UP TIME AND THE NEW VALUE ENTERED
BY
OPERATOR.
VALUE,
TYPE
“G.
AT THE END OF A TEST THE NEW VALUE
“U ALLOWS INCORRECT DATA TO BE DELETED AND A NEW ENTRY

INPUTS ARE

200

VALUES WILL BE PRINTED ON THE TTY A7

TERMINATED BY CARRIAGE RETURN.

TO
C(HANGE
A
CAN BE ENTERED.
STARTED.
ALL

‘

CILADDO LA36 DHI1/DJ1T DIAG
CILADD.PY
03-AUG-79 09:18

351
352
353
354
355
356
357
353
359
360
361
362
363
364

MACYTT

30A(1052)

03-AUG-79

09:23

1
PAGE

SEQ 0010
PAGE

6.0

TEST DESCRIPTIONS

6.1

PRINTING TESTS

THESE TESTS ARE DESIGNED AS A TEST OF THE PRINTING MECHANISM
AND
THE
ASSOCIATED
CONTROL
LOGIC.
AT
THE BEGINNING OF EACH TEST, THE TEST
NUMBER WILL BE PRINTED INDICATING WHICH TEST 1S BEING EXECUTED AND, IFf
THE TEST 1S A FUNCTION OF THE NUMBER OF COLUMNS, THE NUMBER OF COLUMNS
BEING TESTED WILL BE INDICATED.
A
DETAILED
DESCRIPTION
AND
SAMPLE
PATTERNS FOR EACH PRINTING TEST FOLLOWS:

6.1.1

TEST O - DATA PATH TEST

THIS TEST IS USED TO TEST THE DATA LINES TO AND THROUGH THE
INTERFACE
AND
TO
THE
TERMINAL.
AN ALTERNATING BIT PATTERN IS SENT WHICH WILL

PRINT ALTERNATING «'S AND U'S

IN A CHECKERBOARD PATTERN TO THE MAXIMUM

COLUMN
WIDTH.
THE STARTING CHARACTER
A TOTAL OF FOUR LINES ARE PRINTED.

FOR EACH LINE

IS ALTERNATED AND

WITH THE AUTO LINE FEED OPYION SET TO PRODUCE AN AUTOMATIC
LINE
FEED
AFTER
EVERY
RECEIVED
CARRIAGE
RETURN,
THERE
WILL BE A BLANK LINE
BETWEEN EACH PRINTED LINE.

EXAMPLE:
*UeUrUrUrUsUrUrUrUsUrUrUrUrUry

UryUrUryreleUeUrUeeyrUrUeyeyryr

rUrUsUrUrUrUrUrUsUsrUrUeyrUrUry

UrUrUeUrUeUeleUeUeeeyeeleyr

6.1.2

TEST

TH1S
TEST
CHARACTERS.
WITH THREE

1 - PRINTABLE CHARACTER TEST
PRODUCES
A
CHECK
OF
ALL
94(10)
PRINTABLE
THE
CHARACTERS ARE PRINTED IN GROUPS OF THREE
GROUPS
PER
LINE,
SEPARATED
BY
THREE
SPACES

BETWEEN

GROUPS,

THE

COLUMN WILL

FIRST

COLUMN WILL CONTAIN ALL

ASCI!

CODES FROM 040 TO 077.
COLUMN TWO WILL
CONTAIN ALL
ASCI!I
CODES
FROM
100 TO
137 - PRIMARILY THE CAPITAL LETTER SET.
LAST

CONTAIN ALL

ASCII

176 - PRIMARILY THE SMALL LETTER SET.

CODES

FROM

140 70

WITH THE AUTO LINE FEED OPTION SET TO PRODUCE
AN
AUTOMATIC
LINE
FEED
AFTER EVERY RECEIVED CARRIAGE RETURN, THERE WILL
BE A BLANK LINE BETWEEN EACH PRINTED LINE.

CZLADDO LA36 DH11/DJ11 DIAG
CILADD.P11
03-AUG-79 09:18

MACY11

30A(1052)

03-AUG-79

POPIPOPI
N
b d s
s

WOV~
N

414

1}
10

EXAMPLE:
AAA

AAA

‘"v'

B8BB

BBB

$¢¢
XXX
g8

00D
EEE
FFF

DDD
EEE
FEF

(CC
)))

HHH
111

o3 3

1
PAGE

PAGE

ol 2

SEQ 0011

403
604
405
406
407

P IR EE R

09:23

tee

CCC

666

CCC

GGG

LA SRR VIV
+4+
KKK
so0
LLL
“==
MMM
...
NNN
///
000

NN
KKK
LLL
MMM
NNN
000

222
333

RRR
SSS

000
111
444

PPP
aaa

RRR
SSS
TTT

PPP
QaQ
LA

555

uwuu

777
888
999

WWW
xxx
YYY

W
XXX
yyY

HEH

666

-==

VvV

112

111

]]1]

>>>

777

6.1.3
THIS

TEST 2 - NON-PRINTABLE CHARACTER TEST
TEST

CHECKS ALL NON-PRINTABLE

CHARACTERS

7THAT

HAVE

CONTROL

FUNCTION IN THE LA36 TERMINAL OR THE LA36 OPTIONS (SUCH AS CR, LF, BS,
§ BEL).
FIRST THE ASCI] CODE WILL BE PRINTED FOLLOWED BY THE MNEMONIC

AFTER
A
FEW
SEPARATING
SPACES.
FOLLOWING THE MNEMONIC, THE ACTUAL
CONTROL CHARACTER WILL BE SENT THREE TIMES AND NOTHING
SHOULD
HAPPEN
AT
THE
PRINTER.
THIS
PATTERN
1S REPEATED, THREE TIMES ON A LINE,

UNTIL ALL OF

THE NON-PRINTING CHARACTERS HAVE BEEN TESTED.

WITH THE AUTO LINE FEED OPTION SET TO PRODUCE AN AUTOMATIC
LINE
FEED
AFTER
EVERY
RECEIVED
CARRIAGE
RETURN,
THERE
WILL BE A BLANK LINE

BETWEEN EACH PRINTED LINE.

CZLADDO LA36 DH11/DJ11 DIAG
CILADD.P11
03-AUG-79 09:18
658
459
460
461
462
463

MACY11

30A(1052)

03-AUG-79

n
PAGE

09:23

SEa 0012
PAGE

:
EXAMPLE

000
006
022
025
030
03¢
037

464

465

466
467

468
469
470

NUL
ACK
DC2
NAK
CAN
FS
us

001
020
023
026
031
035
177

soW
DLE
0C3
SYN
EM
6S
DEL

002
021
024
027
032
036

STX
»C!
DC&
ETB
suB
RS

472
473
474
475
476
477

478
479
480
481
482
483
484
485
486
487
4,88
489
490
491
492
493
494
495
496
497
498
499
500
501
502

503
504
505
506
507
508
509
510

6.1.4

TEST

3 - CARRIAGE RETURN TEST

THIS TEST CHECKS THE CARRIAGE RETURN FROM ALL
EVEN
NUMBERED
AND THE SPACING OF THE SOLENOID HEAD FROM THE LEFT MARGIN.
IT
A GOOD CHECK FOR PROPER OPERATION OF THE POSITION DECODER.
THE

TEST

PRINTS A FULL LINE OF

ALTERNATING 0'S

AND

SPACES,

COLUMNS
IS ALSO

STARTING

WITH
A
0.
AT THE END OF THE LINE THE PRINT HEAD IS RETURNED TO THE
LEFT MARGIN WITH A CARRIAGE RETURN.
THE SPACES ARE THEN FILLED IN
BY
SPACING
THE
PRINT
HEAD OUT FROM THE LEFT MARGIN TO THE FIRST SPACE,
PRINTING AN ''X*', AND EXECUTING A CARRIAGE
RETURN.
THIS
PATTERN
IS
REPEATED
UNTIL
THE LINE IS COMPLETED.
C(HECK TO SEE THAT ALL X'S ARE
IN THE MIDDLE OF THE SPACE BETWEEN THE TWO ZEROES ON
EITHER
SIDE
OF
IT.

EXAMPLE:

0X0XOX0OXx0X0X0X0Xx0X0X0X0X0X0X0X
WiTH THE AUTO LINE FEED OPTION SET TO PRODUCE AN AUTOMATIC
LINE
FEED
AFTER
EVERY
RECEIVED CARRIAGE RETURN, THIS TEST WILL PRINT A LINE OF

0'S AND SPACES,
THE

ENCODER,

THE

THEN PRINT A DIAGINAL LINE OF
AUTO LINE

EXAMPLE:
0ooo000000O00O0

X'S.

FEED OPTION SHOULD BE

TO CORRECTLY CHECK

DISABLED.

CILADDO LA36 DH11/DJ11 DIAG

03-AUG-79 09:18

30A(1052)

03-AUG-79

09:23

N1
PAGE

SEQ 0013

VN NN

—O

ANV
IV IV V. TV T SV TV
(V. 3 . a Y LY VAV TV Ty Py

WA = OO 00~y O N

ru —

b 2d° ARV L1V ) VIV IV IV IV IV 'Y W
NN
- -t
i cnrd o ek
—

CILADD.P11

MACY11

PAGE

6.1.5

TEST & - MULTIPLE LINE FEED TEST

THIS TEST CHECKS THE LINE FEED CAPABILITY OF THE
PRINTER
BY
SENDING
VARIOUS
GROUPS
OF
LINE FEEDS INTERSPACED WITH REFERENCE LINES.
THE
NUMBER PRINTED AS THE REFERENCE LINE
INDICATES
THE
NUMBER
OF
LINE
FEEDS
THAT FOLLOW.
THE FIRST AND LAST LINES ALSO CONTAIN A STRING OF
DASHES AS REFERENCE POINTS FOR MEASURING, THE TOTAL DISTANCE 1S 63(10)
LINES BETWEEN THE TWO DASHED LINES.
WITH THE AUTO LINE FEED OPTIQN SET TO PRODUCE AN AUTOMATIC
LINE
FEED
AFTER EVERY CARRIAGE RETURN, THE NUMBER PRINTED WILL IND'CATE ONE LESS
THAN THE NUMBER OF LINE FEEDS (THE NUMBER OF BLANK LINES) THAT FOLLOW.
THE TOTAL DISTANCE BETWEEN THE TWO DASHED LINES WILL THEN BE 69 LINES.

:
EXAMPLE

02
04

540

CZLADDO LA36 DH11/DJ11 DIAG
CILADD.PY1
03-AuUG-79 09:18

555
556
557
558
599
560
561
562
563
564
565
566

MACY11

30A(1052)

03-AUG-79

09:23

PAGE

SEQ 0014
PAGE

6.1.6

TEST 5 - SINGLE LINE FEED TEST

THIS TEST IS DESIGNED TO CHECK THE TIMING OF SINGLE LINE FEEDS AND THE
CAPABILITY
OF
DOING
LINE FEEDS IN ALL COLUMNS.
TWO REFERENCE LINES
ARE USED BY THIS TEST (AND TEST 6) WHICH ALSO CAN BE
USED
TO
EASILY
CHECK THE NUMBER OF COLUMNS THE PRINTER IS PRINTING.
THE

FIRST

REFERENCE

TESTING

WILL CONTAIN
FOLLOWED
BY

FOR 132(10)

LINE

132(10)

CONTAINS

COLUMNS.

130(10)

ZEROES FOLLOWED

LESS THAN

132

COLUMNS,

Tw0 2°'S

THE LINE

0°'S FOR TWO LESS THAN
THE
MAXIMUM
NUMBER
OF
COLUMNS
THE
TWO
2'S.
THIS
REFERENCE
LINE IS A QUICK CHECK

COLUMNS

TESTING THE FULL

132(10)

COLUMNS.

THE

SECOND

REFERENCE LINE PRINTS A STRING OF NUMBERS ( 1
TO
9 & 0 ) REPEATED TO
THE MAXIMUM COLUMN.
THIS LINE, AGAIN, CAN BE USED AS A QUICK CHECK OF
THE NUMBER OF COLUMNS.
THE LINE FEED TEST IS ACCOMPLISHED BY:
PRINTING THE
FIRST
REFERENCE
LINE
OF
0'S
AND
TWO 2°'S;
THEN
EITHER
SENDING
60(10) 3'S, IFf
TESTING 132(10) COLUMNS, OR WAITING 1.8 SECONDS FOR AN LCV, IF TESTING
LESS
THAN 132(10)
COLUMNS.
IF
TESTING
132(10)
COLUMNS, NOTHING
SHOULD HAPPEN, EXCEPT FOR AN LCV, AT THE END OF THE
LINE.
THE
3'S
SHOULD
BE LOST AND NEVER PRINTED.
AFTER THE LCV, WITH THE PRINT HEAD

AT THE EXTREME RIGHT, A CARRIAGE RETURN
LINE
FEED
WILL
BE
SENT
FOLLOWED BY REPEATED BACKSLASHES ''\'' AND LINEFEEDS TO PRINT A DIAGONAL

LINE DOWN THE PAPER.
WHEN A
BACKSLASH
1S
PRINTED
IN
THE
MAXIMUM
COLUMN, A CARRIAGE RETURN WILL BE SENT IMMEDIATELY AFTER THE LINE FEED

AND THE SECOND REFERENCE LINE OF SEQUENTIAL NUMBERS WILL
BE
PRINTED.
AFTER
COMPLETING THE LINE, A CARRIAGE RETURN - LINE FEED WILL BE SENT
AND THE PROGRAM WILL WAIT ONE SECOND FOR THE CARRIAGE RETURN
FUNCTION
TO
COMPLETE.
AFTER
THE DELAY, THE REFERENCE LINE WILL BE REPEATED,
THE LAST LINE BEING GUARANTEED TO BE
CORRECT.
ANY
TIMING
PROBLEMS
DURING
THE
LINE FEEDS WILL SHOW AS MISS PRINTS OR MISSING CHARACTERS

DURING THE FIRST

16(10)

CHARACTERS

ALSO, ANY PAPER FEED PROBLEMS WILL
FORMING THE DIAGONAL LINE.

THE

MIDDLE

REFERENCE

CAUSE MISS-ALIGNMENT OF

THE

LINE,

SLASHES

CZLADDO LA36 DH11/DJ1T DIAG
CZLADD.P1Y
03-AUG-79 09:18

593
594
595
596
597
598
599
600
601
602

MACYTT

30A€1052)

03-AUG-79

09:23

PAGE

SEQ 0015
PAGE

:
EXAMPLE

900000000000000000000000000022

603
604
605
606

123456789012345678901224567890
123456789012345678901234567890

WITH THE AUTO LINE FEED OPTION SET TO PRODUCE AN AUTOMATIC
LINE
FEED
AFTER EVERY RECEIVED CARRIAGE RETURN, THERE WILL BE A BLANK LINE EVERY
PLACE A CARRIAGE RETURN IS EXECUTED.

CIZLADDO LA36 DH11/DJ11 DIAG

CZLADD.P11

639
6460
641
642
643
644
645
646
647
648
649

03-AUG-79 09:18

MACY11

30A(1052)

03-AUG-79

09:23

PAGE

SEQ 0016
PAGE

EXAMPLE:

0000000022

650

651
652
653
654
655
656
657

658
659

660
661
662
663
664

665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684

685

686

687
688
689
690
691
692
693
694

1234567890
1234567890

6.1.7

TEST 6 - BACKSPACE TEST

THIS TEST IS DESIGNED TO TEST THE PRINT TIMING AS IN TEST S AS WELL AS
THE BACKWARD AND FORWARD MOVEMENT OF THE PRINT SOLENOID HEAD.

THE

TEST

CONSISTS OF

CARRIAGE

THE SAME

RETURN-LINE

FOLLOWING PATTERN:

FORWARD SLASH
BACKSPACE

BACK SLASH

FIRST

FEED.

REFERENCE
FULL

LINE

LINE AS
IS

IN TEST

THEN PRINTED USING

THEN
THE

THIS PATTERN PRODUCES A LINE OF ALL X'S.
THE TWO SLASHES SHOULD CROSS
EXACTLY
AT
THE
MIDDLE, PRODUCING THE X CHARACTER.
WHEN THE LINE IS
COMPLETED A CARRIAGE
RETURN-LINE
FEED
IS
SENT
AND
THE
LAST
TwO
REFERENCE
LINES
ARE
PRINTED AS IN TEST 5.
ANY TIMING PROBLEMS WwiLL

SHOW IN THE FIRST 16(10) CHARACTERS
AGAIN AS IN TEST 5.

THE

MiDDLE

REFERENCE

LINE;

WITH THE AUTO LINE FEED OPTION SET TO PRODUCE AN AUTOMATIC
LINE
FEED
AFTER
EVERY
RECEIVED
CARRIAGE
RETURN,
THERE
WILL BE A BLANK LINE

BETWEEN EACH PRINTED LINE.
EXAMPLE:

000000000000000000000000000022

XOOOOCCOCEOCNONO0CC0O0EX
XXX XXX

123456789012345678901234567890
123456789012345678901234567890

CZLADDO LA36 DH11/DJ11 DIAG
CZLADD . PV
03-AUG-79 09:18

695
696
697
698
699

30A(1052)

03-AUG-79

09:23

PAGE

SEQ 0017
PAGE

6.1.8

TEST 7 - OVERPRINT TEST

THIS TEST IS DESIGNED TO CHECK THE
SPACING
AND
REPEATABLE
PRINTING
CHARACTERISTICS
OF
THE
PRINTER.
THREE ROWS OF CHARACTERS ARE EACM
OVERPRINTED TWO TIMES.
THE ROWS CONSIST Of THE
FOLLOWING
CHARACTERS
ALTERNATED ACROSS THE LINE:

ROW 1
ROW 2

M-SP
SP-+

ROW 3

g-SP

THE
RESULTING
PATTERN
OVERPQ%Q;ED
CHARACTERS
CHARA
S.

WILL
BE
A
CHECKERBOARD
PATTERN
AND
THE
SHOULD
BE
ALIGNED PROPERLY WITH THE INITIAL

:
EXAMPLE

D o

NN N N N N N N

Delo - RNTe XV U YV T PN

700
701
702
703
704
705
706
707
708
709
710

MACY1T

e ok

MMMMMMMMMMMMMMM
LN

TR N

TR R

SR I

ggeggpeegeeggee
WITH THE AUTO LINE FEED OPTION SET
AFTER ~ EVERY
RECEIVED
CARRIAGE

TO PRODUCE AN AUTOMATIC
LINE
FEED
RETURN,
THE
LINES
WILL
NOT
BE

OVERPRINTED.
THERE WILL BE THREE LINES OF EACH CHARACTER WITH A BLANK
LINE
BETWEEN
EACH GROUP OF CHARACTERS.
THE CHARACTERS IN EACH GROUP
SHOULD BE IN THE SAME COLUMNS.

EXAMPLE:

EEEEREREARE]
EEEREEREEAREER
gegeeeeese

09:23

2
PAGE

PAGE

6.1.9
THIS

TEST
TEST

10 - PRINTING FREQUENCY SWEEP TEST

PRINTS

THE

CHARACTER ''W'' REPEATEDLY,

30(10)

CHARACTERS

PER

LINE
FOR
FOUR
LINES.
DURING THE FIRST TWO LINES, THE TIME INTERVAL
BETWEEN CHARACTERS 1S INCREASED FROM
30(10)
MILLISECONDS
TO
1.8
SECONDS USING THE FOLLOWING FORMULA TO CREATE A LOGRITHMIC INCREASE:
NEW DELAY

= OLD DELAY

OLD DELAY/16 +

OLD DELAY/128

THE LAST TWO LINES DO JUST THE REVERSE.
THE
TIME
INTERVAL
BETWEEN
CHARACTERS
IS
DECREASED
FROM
1.8
SECONDS TO
30(10) MILLISECONDS
USING THE FOLLOWING FORMULA TO AGAIN CREATE A LOGRITHMIY DECREASE:

NEW DELAY

= OLD DELAY - OLD DELAY/16 - OLD DELAY/128

LOOK FOR POSSIBLE MISS-ALIGNMENT OF THE CHARACTERS OR
CHARACTERS AS AN INDICATION OF TIMING PROBLEMS.

SPACES

BETWEEN

WITH THE AUTO LINE FEED OPTION SET TO PRODUCE AN AUTOMATIC
LINE
AFTER
EVERY
RECEIVED
CARRIAGE
RETURN,
THERE
WILL BE A BLANK
BETWEEN EACH PRINTED LINE.

FEED
LINE

EXAMPLE:
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHM
HHHHHHHHHHHHHHHHHHHHHHEHHHHHHA
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH

6.1.10

TEST

THIS TEST

- RIBBON FEED TEST

CHECKS THE RIBBON FEED MECHANISM BY PRINTING A SINGLE

LINES

X'S DOWN THE LEFT HAND MARGIN OF

CHECK FOR PROPER OPERATION OF
TEST.

THE

RIBBON FEED

THE PAGE.

MECHANISM

COLUMN

VISUALLY

DURING

THIS

WITH THE AUTO LINE FEED OPTION SET TO PRGDUCE AN AUTOMATIC
LINE
FEED
AFTER
EVERY
RECEIVED
CARRIAGE
RETURN,
THERE
WILL BE A BLANK LINE
BETWEEN EACH PRINTED LINE.

EXAMPLE:

775

776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796

03-AUG-79

SEQ 0018

748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774

30A(1052)

741
742
743
744
745
746
747

MACY11

CZLADDO LA36 DH11/DJ11 DIAG
CZLADD.P11
03-AUG-79 09:18

CZLADDG LA36 DH11/DJ11 DIAG
CILADD.PW
03-AUG-79 09:18

MACY11

30A(1052)

03-AUG-79

09:23

PAGE

SEQ 0019

797
798
799

800
801

et el

il o

D ——

O O O 0 0o 00 OO 0o OO oo

R ole JNTo JU W NPT SR o

802
803
804
805
806
807
808
809

PAGE

6.1.11

TEST

12 - PRINTER BELL TEST

THIS TEST CHECKS THE PRINTER BELL BUFFER TO INSURE
THAT
EJGHT
BELLS
ARE
DISTINCTLY
HEARD,
EVEN
WHEN SENT AT THE MAXIMUM TRANSFER RATE.
THE PROGRAM SENDS
B8
BELL CODES AT THE MAXIMUM RATE
TO
THE
PRINTER
THEN WAITS
2.5
SECONDS TO ALLOW THE OPERATOR TO HEAR THE BELLS.

6.1.12

TEST

17 - LIFE TEST

THIS TEST
IT IS NOT

RUNS CONTINUOUSLY AND IS RUN AS AN INDIVIDUAL,
PART OF "HE STANDARD PRINTING TEST SEQUENCE.

SPECIAL

THIS

PRINTS

THEN

TEST

LINES OF

EACH PRINTABLE

CHARACTER

AND

TEST,

REPEATS

CONTINUOUSLY.
THE
SECOND
LINE
OF
EACH CHARACTER 1S OVERPRINTED &
TIMES TO CONSERVE PAPER.
AT THE END OF EACH COMPLETE PASS THROUGH THE
CHARACTER
SET
A
MESSAGE
IS PRINTED INDICATING THE NUMBER OF PASSES
EXECUTED.
IF ANY CHARACTER (EXCEPT '"RUBOUT'') IS TYPED ON THE KEYBOARD
DURING
THIS
TEST, THE PATTERN WILL CHANGE AND RESTART WITH THE TYPED
CHARACTER.

THIS WILL

ONLY

HAPPEN

KEYBOARD

CONTROL

IN USE.

:
EXAMPLE
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

B8BBBBBBBBBBBBBBBBBBBBBBBBBBBBB
B88888B88BBBBBBBBBBBBBBBBBBBBRB

THE

AUTO LINE FEED OPTION

AFTER EVERY RECEIVED CARRIAGE

IS SET

TO PRODUCE

RETURN,

THE

TEST

AN AUTOMATIC LINE
WILL

FEED

SIX LINES OF

EACH CHARACTER WITH A BLANK LINE BETWEEN THE FIRST AND SECOND LINES AS

WELL

AS BETWEEN EACH GROUP OF

EXAMPLE:

AAAAAAAAAAAAAAA
AAAAAAAAAAAAAAA
AAAAAAAAAAAAAAA
AAAAAAAAAAAAAAA
AAAAAAAAAAAAAAA
AAAAAAAAAAAAAAA

BBB8BBBBBBBBBBER
888888888BBB888
BBBBBBBBBBBBBAR
88888B8B8BBBBBBB
8BBBBBBBBBBBBAES

CHARACTERS.

CZLADDO LA36 DH11/DJ11 DIAG
CZLADD.P11
03-AUG-79 09:18

853

MACYTY

30A(1052)

03-AUG-79

09:23

2
PAGE 20

SEQ 0020

BBB3BBBBBBBBBBB

CZLADDO LA36 DH11/DJ11 DIAG
CZLADD.P11
03-AUG~79 09:18

854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903

MACYTT

30A(1052)

03-AUG-79

09:23

2
PAGE 21

St0 002!
PAGE

6.2

ECHO TESTS

THESE TESTS ARE DESIGNED AS A TEST OF
THE
KEYBOARD
AND
AN
AID
1IN
ISOLATING
TROUBLES
WITHIN
THE
TERMINAL.
AT THE BEGINNING OF EACH
TEST, THE TEST NUMBER WiLL BE PRINTED INDICATING WHICH TEST
[S
BEING
EXECUTED.
TYPING
A
"RUBOUT'®
OR
°''DELETE'"
AT ANY TIME, WHETHER IN
KEYBOARD CONTROL OR NOT, WILL EXIT THE CURRENT ECHO TEST AND
PRINT
A
TEST
TERMINATION
MESSAGE.
IF
IN KEYBOARD CONTROL, THE SELECT TEST
MESSAGE WILL BE PRINTED AND THE PROGRAM WILL AWAIT A TEST SELECTION AS
USUAL.
IN SWITCH REGISTER CONTROL, THE PROGRAM WILL HALT (AT SELLHLT)
WAITING FOR CONTROL VIA THE SWITCH REGISTER.
A
DETAILED
DESCRIPTION
OF EACH TEST FOLLOWS:

6.2.1

TEST

20 - CHARACTER ECHO TEST

THIS TEST 1S DESIGNED TO OPERATE THE TERMINAL
IN
MODE.
ANY CHARACTER TYPED ON THE KEYBOARD (EXCEPT
ECHOED TO THE PRINTER.

€.2.2

TEST

- LINE ECHO TEST,

A
SIMULATED
LOCAL
A ''RUBOUT'') wILL BE

FAST RATE

THIS TEST CONTINUALLY SENDS FULL LINES OF
ANY
CHARACTER
UP
T0O
THE
MAXIMUM
COLUMN
WIDTH.
THE TEST PRINTS A ''0'° CHARACTER WHEN STARTED
UNTIL A KEY 1S TYPED ON THE KEYBOARD.
THE PROGRAM WILL THEN SEND
THE
TYPED
CHARACTER
UNTIL
ANOTHER
CHARACTER
IS
TYPED
OR THE TEST IS
TERMINATED BY TYPING A ''RUBOUT''.
THE CHARACTERS
ARE
TRANSMITTED
AT
THE MAXIMUM RATE WITH A CARRIAGE RETURN-LINE FEED INSERTED AFTER EVERY

132(10) PRINTABLE CHARACTERS.

THE LA36 1S IN HALF DUPLEX WHEN RUNNING THIS TEST,

LOST OR GARBLED WHENEVER A CHARACTER

(CHARACTERS

1S TYPED ON THE KEYBOARD.

MAY

WITH THE AUTO LINE FEED OPTION SET TO PRODUCE AN AUTOMATIC
LINE
FEED
AFTER
EVERY
CARRIAGE RETURN, THERE WILL BE A BLANK LINE BETWEEN EACH
PRINTED LINE.

6.2.3

TEST 22 - LINE ECHO TEST,

SLOW RATE

THIS TEST 1S IDENTICAL TO TEST
21
EXCEPT A DELAY OF 1.8
SECONDS
IS
INSERTED
BETWEEN EACH CHARACTER TO ALLOW THE PRINT HEAD TO PERFORM AN
LCV BETWEEN CHARACTERS.

CZLADDO LA36 DH11/DJ11 DIAG
CILADD.P11
03-AUG-79 09:18

MACY11

30A(1052)

03-AUG-79

(9:23

PAGE

SEQ 002¢

904
905

PAGE

6.2.4

TEST 23 - CHARACTER/CODE ECHO TEST

THIS TEST WILL PRINT THE OCTAL CODt RECEIVED BY THE PROCESSOR FOLLOWED
BY
THE CHARACTER OR THE MNEMONIC OF THE CHARACTER EVERY TIME A KEY IS
PRESSED ON THE
INDICATED
AS

KEYBOARD.
THE PARITY OF
EITHER
ODD
OR
EVEN.

CHARACTERS FOR THE LINE TO BE PRINTED.

THE
RECEIVED
C(ODE
wILL
BE
ALLOW
SUFFICIENT TIME BETWEEN

WITH THE AUTO LINE FEED OPTION SET TO PRODUCE AN AUTOMATIC
LINE
FEED
AFTER
EVERY
RECEIVED
CARRIAGE
RETURN,
THERE
WILL BE A BLANK LINE
BETWEEN EACH PRINTED LINE.

EXAMPLE:

301
263
215
240

6.2.5

A
3
(R
SP

00D
00D
EVEN
EVEN

TEST 24 ~ SELECTED PATTERN ECHO TEST

THIS TESY 1S DESIGNED TO GIVE MAINTENANCE THE
FLEXIBILITY
710
CHOOSE
}HE!REO??EPATTERNS FOR ISOLATING ANY SPECIFIC PROBLEMS WHICH MAY ARISE
N TH
LD.
TYPE ANY CHARACTERS (EXCEPT CONTROL-C AND RUBOUT) AND
EACH
CHARACTER
WILL
BE
ECHOED
AS
TYPED.
A
MAXIMUM OF 256(10) CHARACTERS MAY BE

INPUTTED.

NO CARRIAGE RETURNS OR

PROGRAM,
TERMINATE

ALL
THE

WI'EN
ANY
CHARACTER

OPTIONS
ARE
SEQUENCES ARE

LINE

FEEDS

ARE

CHARACTERS
MUST
BE
INPUTTED
BY
INPUT STRING TYPE A CONTROL-C,
THE

INSERTED

THE

THE
OPERATOR.
10
PROGRAM
WILL
THEN
CONTINUALLY
ECHO
THE
INPUTTED
PATTERN.
TO STOP THE PRINTING, TYPE
CONTROL-C.
THE PROGRAM WILL STOP PRINTING THE PATTERN AND
WILL
WAIT
FOR
EITHER
ANOTHER
PATTERN
INPUT TERMINATED BY A CONTROL-C, OR THE
SAME PATTERN MAY BE USED AGAIN BY TYPING CONTROL-C.
TO EXIT THE
TEST
AT ANY TIME, TYPE A ‘'RUBOUT'.

6.2.6

AVAILABLE,
SELECTED.

CAREFUL

(HARACTERS

TEST 25 - BELL ECHO TEST

THIS TEST 1S DESIGNED TO TEST THE BELL ON COLUMN
OCCURED ON THE LINE,
THE TEST PRINTS A MESSAGE:

956
957
958
959

WHAT

TYPE ANY PRINTABLE CHARACTER AND LISTEN FOR BELL
AFTER THE
KEYBOARD.

TYPING

HAS

.sovececaveene

TEST MESSAGE 1S PRINTED, TYPE ANY PRINTABLE CHARACTER ON THE
THE CHARACTER WIiLL BE ECHOED AND THE BELL SHOULD RING.
THE

CZLADDO LA36 DH11/DJ11 DIAG

CZLADD.P1I

960
961

03-AUG-79 09:18

MACY11

30A(1052)

03-AUG-79

09:23

S
PAGE 23

SEQ 0023
MESSAGE WILL THEN BE TYPED AGAIN.
THE TEST AT ANY T]ME.

TYPE

THE "‘RUBOUT'" KEY

TERMINATE

962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988

989
990
991

992
993
994

995

996

997
998
999

1000
1001
1002
1003
1004
1005
1006
1007
1008

MACY11

30A(1052)

03-AUG-79

09:23

PAGE 24

SEQ 007«
PAGE

6.3

OPTION TESTS

THESE TESTS ARE DESIGNED AS A TEST OF THE VARIOUS OPTIONS IN
WHATEVER
COMBINATIONS THEY ARE AVAILABLE IN THE LA36.
AT THE BEGINNING OF EACH

TEST,

THE

TEST

NUMBER wiLL BE

PRINTED

INDICATING WHICH

TEST

EXECUTED.
TYPING
A
'RUBOUT'"
OR
‘'DELETE''
AT ANY TIME,
KEYBOARD CNTROL OR NOT, WILL EXIT THE CURRENT OPTION TEST.
DESCRIPTION OF EACH TEST FOLLOWS:

6.3.1

BEING

WHETHER IN
A DETAILED

TEST 30 - SECONDARY CHARACTER SET OPTION

THIS TEST IS DESIGNED TO TEST
THE
SECONDARY
CHARACTER
SET
OPTION,
TESTING
THE
ABILITY
71O
SELECT
EITHER CHARACTER SET UNDER SOF TWARE
CO:;:?%E;RQEYTHE CPU AND PRINTING THE CORRECT CHARACTERS
WITHIN
EACH
CH
.
A NUMBER 1S PRINTED AT THE LEFT MARGIN INDICATING WHICH CHARACTER
SET
1S
BEING
PRINTED,
#1 INDICATES THE PRIMARY SET AND #2 INDICATES THE
SECONDARY SET (APL).
AFTER THE NUMBER, THE APPROPRIATE SHIFT IN
(SI)
OF
SHIFT
OQUT
(SO)
WILL
BE
SENT
FOLLOWED BY THE ENTIRE PRINTABLE
CHARACTER SET.
IF LESS THAN 98 COLUMNS ARE BEING TESTED,
A
CARRIAGE
RETURN - LINE
FEED
WILL BE INSERTED IN THE APPROPRIATE PLACES.
THIS
WILL BE REPEATED, ALTERNATING BETWEEN PRIMARY AND SECONDARY SETS UNTIL

16
LINES HAVE BEEN PRINTED (1F USING 98 OR MORE COLUMNS).
THERE WILL
BE A BLANK LINE BETWEEN EACH PAIR OF LINES TO SEPARATE EACH
GROUPING.
CHANGE LOCATION ''T30SC'* AT THE END OF TEST30 TO 377 (8) IF USING 8 BIT
SELECTION CODE RATHER THAN THE SI1 AND SO
TO
SELECT
(CHARACTER
SETS.
THE
TEST WILL THEN SET OR CLEAR BIT 8 INSTEAD OF SENDING THE S1 OR SO
TO SELECT CHARACTER SETS.
WITH THE AUTO LINE FEED OPTION SET TO PRODUCE AN AUTOMATIC
LINE
FEED
AFTER
EACH
RECEIVED CARRIAGE RETURN, THERE WILL BE EXTRA BLANK LINES

EVERY PLACE A CARRIAGE RETURN IS SENT.

EXAMPLE:

#1=
#2=

VAR ()........PRIMARY CHARACTER SET..........
!"#8%R' ().......SECONDARY CHARACTER SET.........

#1=
#2=

10880
(). ......PRIMARY CHARACTER SET..........
VIR O)....... SECONDARY CHARACTER SET,.... cees

[So—.

pAR

CZLADDO LA36 DH11/DJ11 DIAG
CILADD.P11
03-AUG-79 09:18

MACY1Y

30A(1052)

O03-AUG-79

09:23

2
PAGE 25

SEQ 0025

1009
1010
1011

PAGE 22

6.3.2

1014
1015
1016
1017
1018
1019
1020
}85;

THIS TEST 1S DESIGNED TO TEST THE VARIOUS FUNCTIONS OF
THE
SELECTIVE
ADDRESSING OPTION.
THE TEST FIRST SENDS AN ''EOT'' <004> TO DISABLE ALL
TERMINALS AND TRIES TC PRINT AN
ERROR
MESSAGE.
THE
ERROR
MESSAGE
SHOULD
NOT
BE
PRINTED ON ANY TERMINAL WITH THE SELECTIVE ADDRESSING
OPTION.
THEN A 'BEL" <007> AND ''STX'' <002> ARE
SENT
T0
SELECT
ALL
TERMINALS.
AT THIS POINT THE TEST NUMBER IS PRINTED ON ALL TERMINALS.
THUS, If AN ERROR MESSAGE IS PRINTED BEFORE THE TEST NUMBER,
THE
EOT
DID NOT DE-SELECT THE TERMINAL WHERE THE MESSAGE WAS PRINTED.

1023
1024
1025
}859

THE TEST NEXT SENDS AN EOT DIRECTLY FOLLOWED BY A STX, WITH NO
SELECT
CHARAACTER.
AGAIN, THE ERROR MESSAGE 1S SENT TO ALL TERMINALS, WHICH
SHOULD NOW BE ALL
DE-SELECTED.
THE
ERROR
MESSAGE
SHOULD
NOT
BE
PRINTED ON ANY TERMINAL WITH THE SELECTIVE ADDRESSING OPTION.

1028
1029
1030
1031
032
033
03
03
03
03
03
03
0

THE NEXT SERIES OF CHECKS ARE MADE ON THE GROUP SELECT
CHARACTER.
A
TABLE
LOCATED
AT
THE
END OF TEST 31 IN THE LISTING IS USED TO TEST
VARIOUS GROUP SELECT CHARACTERS.
THE FIRST ZERO
ENCOUNTERED
IN
THE
TABLE
WILL
INDICATE THE END OF THE TABLE AND THE TEST WILL GO TO THE
NEXT SERIES OF CHECKS ON THE OPTION.
THE
TABLE
IS
PRESET
WITH
A
SINGLE GROUP SELECT CHARACTER, THE LETTER ''G'', BUT ALLOWS ROOM TO TEST
UP TO 8 DIFFERENT SELECT CODES.
THIS
TABLE
SHOULD BE
CHANGED
TO
CONTAIN
THE
VARIOUS GROUP SELECT CHARACTERS DESIRED TO TEST WITH ONE
ASCI1 CODE PER LOCATION.
THE TEST WILL THEN USE
THE
VARIOUS GROUP
SELECT
CHARACTERS
TO SELECT
TERMINALS
AND PRINT A MESSAGE ON EACH
SELECTED TERMINAL INDICATING THE GROUP SELECT CHARACTER
USED.
CHECK
THAT
THE
CORRECT
GROUP
SELECT CHARACTER HAS ENABLED EACH TERMINAL.
ALSO, IT MAY BE HELPFUL TO PLACE
;UNUSED
SELECT
(HARACTERS
IN
THE

P TN EE e lVel. TNl JV W AT
UV

[V d VAV AV AV IV IV IV E 2 2F o

®~

D ol o e
s
sl canld il el el el e
S e
il

[+ BT

d e

D e

d e

e I 1o BT XY

b ok

}8}%

[elelelelelelelelolololalelelololoYal

012

CIZLADDO LA36 DH11/DJ11 DIAG
CILADD.P11
03-AUG-79 09:18

TEST 31 - SELECTIVE ADDRESSING OPTION

TABLE TO CHECK THAT THEY DO NOT SELECT TERMINALS.

AN ERROR MESSAGE

WAS PRINTED BETWEEN THE TEST NUMBER AND THE GROUP SELECT MESSAGE,
THE
TERMINAL
WHERE THE MESSAGE WAS PRINTED WAS SELECTED BY AN EOT AND STX
WITH NO SELECT CHARACTER BETWEEN THEM.

THE LAST SERIES OF CHECKS ARE MADE ON THE UNIQUE SELECT CHARACTER.
A
TABLE
LOCATED
AT
THE
END
OF TEST 31 IN THE LISING IS USED TO TEST
VARIOUS UNIQUE SELECY CHARACTERS.
THE FIRST ZERO ENCOUNTERED
IN
THE
TABLE WILL INDICATE THE END OF THE TABLE.
THE PROGRAM WILL SELECT ALL
TERMINALS USING THE BEL CODE BEFORE EXITING THE TEST.
THE
TABLE
IS
PRESET
WITH
A
SINGLE
UNIQUE
SELECT CHARACTER, THE LETTER 'U'', BUT
ALLOWS ROOM TO TEST UP TO 16
DIFFERENT
UNIQUE
SELECT
CODES.
THIS
TABLE ~ SHOULD
BE
CHANGED
TO
CONTAIN
THE
VARIOUS
UNJQUE
SELECT
CHARACTERS DESIRED TO TEST, WITH ONE ASCI]1 CODE
PER
LOCATION.
MAKE
SURE THAT EACH CHARACTER IN THE TABLE 1S A VALID UNIQUE SELECT CODE OR
THE DIAGNOSTIC WILL HANG DURING THIS PORTION OF THE TEST.
USING
EACH

UNIQUE
SELECT
CHARACTER IN TURN, THE TEST WILL PERFORM THE REMAINING
CHECKS OF THE SELECTIVE ADDRESSING OPTION.

013

CIZLADDO LA36 DH11/DJ11 DIAG
CZLADD.P11
03-AUG-79 09:18
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072

1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083

1084
1085
1086
1087
1088
1089
1090
1091

1092
1093
1094
1095
1096
1097
1098
1099
1100
1101

MACYT1

30A(1052)

03-AUG-79

09:23

2
PAGE 26
SEQ 0026
PAGE 23

THE TEST WILL SEND AN
EOT
FOLLOWED
BY
THE
CURRENT
UNIQUE
SELECT
CHARACTER.
BEFORE
THE
STX
1S SENT, THE TEST WILL TRY TO PRINT THE
ERROR MESSAGE ON ALL TERWINALS.
THEN THE
STX
WILL
BE
SENT
AND
A
MESSAGE
WILL BE PRINTED TO INDICATE THE UNIQUE SELECT CHARACTER USED.
CHECK THAT THE
CORRECT
UNIQUE
SELECT
CHARACTER
HAS
ENABLED
EACH

TERMINAL .

MESSAGE,
THE
STX
OPERATOR

ENABLED.

IF_

ERROR

MESSAGE 1S PRINTED BEFORE THE UNIQUE SELECT

THE TERMINAL WHERE THE MESSAGE WAS PRINTED WAS ENABLED BEFORE
WAS
RECEIVED.
A
MESSAGE WILL THEN BE PRINTED TELLING THE
TO TYPE ANY PRINTABLE CHARACTER TO CHECK THAT THE KEYBOARD IS

WHATEVER CHARACTER

IS TYPED WILL BE ECHOED TO THE TERMINAL.

THE FINAL SECTION OF THE TEST WILL USE A DUMMY SELECT CHARACTER.
THE
ASCI1 CODE FOR THIS SELECT CHARACTER IS LOCATED BETWEEN THE TWO SELECT
CHARACTER TABLE AT THE END OF THE TEST
THIS LOCATION SHOULD
CONTAIN
THE
ASCI1 CODE OF ANY UNUSED SELECT (HARACTER.
THE TEST WILL SEND AN
EOT FOLLOWED BY THE DUMMY SELECT CHARACTER
AND
AN
STX.
THE
ERROR
MESSAGE
WILL
BE LOADED TO ALL TERMINALS AND SHOULD NOT BE PRINTED ON
ANY TERMINALS SINCE ALL SHOULD BE
DE-SELECTED.
NEXT
AN
ETX
<003>
FOLLOWED
BY
THE
CURRENT UNIQYUE SELECT CHARACTER AND AN STX WILL BE
SENT AND A PRINTED MESSAGE WILL INDICATE THE
SELECT
CMARACTER
USED.
ANOTHER
EXT
WILL BE SENT, FOLLOWED BY THE DUMMY SELECT CHARACTER AND
AN STX THIS TIME.
A MESSAGE WILL
AGAIN
BE
PRINTED
INDICATING
THE
CURRENT UNIQUE SELECT CHARACTER.
ALL SELECTED TERMINALS SHOULD REMAIN
SELECTED AND NO OTHER TERMINALS SHOULD GET SELECTED.

6.3.3

TEST 32 - ANSWER BACK OPTION

THIS TEST 1S DESIGNED TO TEST THAT THE ANSWER BACK
OPTION
SENDS
THE
CORRECT
MESSAGE UPON RECEIPY OF AN ENQ (005) OR UPON TYPING CONTROL
-€
OR THE HERE 1S KEY ON THE KEYBOARD.
THE TEST WILL SEND AN ENG
(005),
READ
THE
MESSAGE,
AND
THEN PRINT OUT THE MESSAGE ON THE LA36.
THE
TEST WILL THEN ASK THE OPERATOR TO DEPRESS THE HERE 1S KEY,
READ
THE
MESSAGE,
AND THEN PRINT QOUT THE MESSAGE.
FINALLY, THE TEST WILL TELL
THE OPERATOR TO DEPRESS THE CONTROL-E KEY, READ THE MESSAGE, AND PRINT
OUT THE MESSAGE.
IF THE SELECTIVE ADDRESSING OPTION IS AVAILABLE, THE
AUTO ANSWER BACK OPTION WILL NOT RESPOND
TO
ANOTHER
ENQ
AFTER
THE
FIRST
ONE
RECEIVED.
THUS, YOU MAY HAVE TO DEPRESS THE RUBOUT KEY T0
EXIT THE TEST.

CILADDO LA36 DHY1/DJ11 DIAG

CILADD.PYY

03-AUG-79 09:18

BMACY11

30A(1052)

03-AUG-79

09:23

3
PAGE 27
SEQ 0027

1102

PAGE 24

7
8
9
0
1
2
3

5
6
7
g

6.3.64

TEST 33 - TOP OF FORM OPTION

THIS TEST 1S DESIGNED TO TEST THE FORM FEED CAPIBILITY OF THE
TOP
Of
FORM OPTION.
A
SET
OF INSTRUCTIONS IS PRINTED FOR THE OPERATOR TO
REMIND HIM TO DEPRESS THE TOP Of FORM RESET SWITCH AFTER
MAKING
EACH
SWITCH SETTING.
UPON COMPLETION OF EACH SETTING, AFTER DEPRESSING THE
RESET SWITCH, TYPE ANY CHARACTER (EXCEPT RUBOUT) ON
THE
KEYBOARD
10
TEST
THAT
SWITCH 5 TTING.
THE REFERENCE LINES PRINTED WILL INDICATE
THE LENGTH FORM FEED JUST EXECUTED AND
THE
NEXT
SWITCH
SETTING
10

MAKE.

THE

INCH

FORM

FEED

TESTED

TWICE

BEFORE

TESTING THE

REMAINING POSITIONS.
THE FIRST TIME, 16 OR 17 LINE FEEDS ARE EXECUTED
BEFORE DOING THE FORM FEED, DEPENDING ON HOW THE AUTO LINE FEED OPTION
IS SET UP.
THE DIAGNOSTIC WILL THEN TEST EACH
POSITION
IN
SEQUENCE
FROM 3 TO 14 INCHES.
THE SINGLE STEP POSITION IS NOT CHECKED.

120

121

153

6.3.5

125
126

PREDETERMINED
INTERVALS,
AS
WELL
AS THE ABILITY TO CLEAR ALL TABS.
THE PROGRAM SETS A TAB IN THE PREDETERMINED COLUMN, DOES A
BACKSPACE,

124

127

128
9
0
1

2
3

5
6
7

TEST 34 - HORIZONTAL TAB OPTION

THIS

TEST

AND

PRINTS AN "'0''.

CHECKS THE ABILITY

TO SET

AFTER THE LINE

TAB

EVERY

C(OLUMN

AND

1S PRINTED AND THE TABS ARE SET,

CARRIAGE RETURN IS SENT AND THEN THE PRINT HEAD

POSITIONED

USING

TABS
AND
X'S
ARE PRINTED OVER THE 0°'S.
SINCE THE FIRST LINE Of THE
TEST SETS A TAB IN EVERY COLUMN, THE PRINT HEAD IS
TABED
ACROSS
THE
PAGE
TWICE TO TEST ALL TABS.
THE FIRST PASS (HECKS THE EVEN NUMBERED

COLUMNS WHILE THE SECOND PASS CHMECKS THE ODD
NUMBERED
COLUMNS.
THE
TEST
SETS
TABS
IN EVERY COLUMN, EVERY OTHER COLUMN, AND EVERY &, 8,
16,

32,

64,

128,

132

COLUMNS.

ALL HORIZONTAL

TABS WILL

CLEARED

AT
THE END OF THE TEST IF THE TEST IS RUN TO COMPLETION.
If A RUBOUT
1S USED TO EXIT THE TEST BEFORE COMPLETION, THE
TABS
WILL
STILL
BE
SET.
EXAMPLE:

WHEN THE AUTO LINE FEED OPTION IS SET UP 10O PRODUCE AN AUTOMATIC
FEED
AFTER EVERY RECEIVED CARRIAGE RETURN, THERE WILL BE A BLANK

BEFORE EACH REFERENCE LINE OF
NEXT

LINE

UNDER

THE 0'S.

0'S AND THE X'S WIL BE

THE

FIRST

LINE

0'S WILL

PRINTED
HAVE

X'S UNDER 1T, THE FIRST HAVING X'S IN ALL EVEN
NUMBERED
THE SECOND HAVING X'S IN ALL 0ODD NUMBERED COLUMNS.

LINE
LINE

THE

2 LINES Of

COLUMNS

AND

CILADDO LA36 DH11/DJ11 DIAG
CZLADD.PN
03-AUG-79 09:18

MACYTT

30A(1052)

03-AUG-79

09:23

3
PAGE 23

SEQ 0028

1154

PAGE

1155

1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
117
1172
1173
}};g

6.3.6

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

THIS TEST CHECKS THE VERTICAL TAB OPTION BY TESTING THE ABILITY TO SET
TABS
IN_
VARIOUS
POSITIONS
OF
A
16
INCH FORM.
AN INSTRUCTION IS
PRINTED TELLING THE OPERATOR TO SET A 14 INCH FORM LENGTH AND
DEPRESS
THE
TOP OF FORM RESET SWITCH.
WHEN READY, TYPE ANY CHARACTER (EXCEPT
RUBOUT) ON THE KEYBOARD TO CONTINUE.
THE TEST WILL SEND
LINE
FEEDS,
SET TABS, AND PRINT REFERENCE LINES WHEREVER A TAB IS SET.
AT THE END
OF THE FORM, A MESSAGE WILL INDICATE TO EITHER
REMOVE
THE
REFERENCE
PAGE
(WITHOUT
TOUCHING
THE
KEYBOARD)
OR RESET THE FIRST REFERENCE
LINE.
TO RESET THE REFERENCE PAGE IN
THE
PRINTER,
OPEN
THE
PAPER
TRACTORS AND PLACE THE FIRST REFERENCE LINE INFRONT OF THE PRINT HEAD.
WHEN READY TO CONTINUE, TYPE ANY
CHARACTER
(EXCEPT
RUBOUT)
ON
THE
KEYBOARD.
THE
TEST WILL THEN REPRINT THE REFERENCE LINES, USING THE
TABS INSTEAD OF LINE
FEEDS
TO
ADVANCE
THE
PAPER.
IF
THE
FIRST
REFERENCE
PAGE WAS REMOVED, HOLD IT AGAINST THE SECOND REFERENCE PAGE
TO CHECK FOR PROPER PAPER ADVANCING USING TABS.
IF THE REFERENCE PAGE
WAS
RESET
IN
THE
PRINTER, THE SECOND SET OF REFERENCE LINES SHOULD
HAVE PRINTED DIRECTLY OVER THE FIRST SET
EXCEPT
ON
THE
FIRST
LINE
WHERE
THEY
SHOULD
BE
SIDE-BY-SIDE.
ALLOW FOR A SLIGHT VARIANCE IN

1195
1196
1197

LOOK
FOR
FULL
0,1,2,3,4,5,6,7.8,9,
THAT ORDER.

1194

EXAMPLE:
000000000000
XX xxx x
X X X X XX

000000
X X XX XX
0
X

0
X

o0
X

0
X

TEST

35 - VERTICAL TAB OPTION

PAPER POSITION WHEN CHECKING THAT

THE

REFERENCE

LINES

ARE

CORRECT,

LINE
DIFFERENCES.
THE
TEST
PRODUCES
& 10 BLANK LINES BETWEEN THE REFERNECES LINES, IN

%ELADDO LA36 DH11/DJ11 DIAG

CILADD.PYI

03-AUG-79 09:18

MACY11

30A(1052)

03-AUG-79

09:23

3
PAGE 29

SEQ 0029

1198

PAGE 26

1199
1200
1201
1202

EXAMPLE
:

acecaee- €CLKCLLL

1206

1205
06
1207
1208
209
1210
1211
1212
teda
1214

aeeeece=s <<

eececce= €<LCLLLLCL

mmmmmme- €<
!

i
!

‘oroee FIRST REF.

LINE WITH TABS

ereesses <<CLLLLL

caceecas L L LI LIS

1215

1216
1217
18
1219
1220
1221

cemaemea <LK
THE REFERENCE PATTERN PRODUCED WILL BE DIFFERENT

THE AUTO LINE FEED

1222
1223
}ggg

OPTION
IS
SET
UP
TO PRODUCE
AN
AUTOMATIC
LINE FEED AFTER EVERY
RECEIVED CARRIAGE RETURN.,
THERE WILL, IN
FACT,
BE
ONE
EXTRA LINE
BETWEEN EACH REFERENCE LINE DUE TO THE AUTO LINE FEED.

1226
1227

EXAMPLE:

1228
129
1230

ecccssee= CCKLKKKE

aceccea- <<€

1232
1233
2%
1235
1236
1237

ceceecea= << LKLLLL

1239
1240
1241
1242
2%
1244
1245
1246
1247
1248
1249
1250
1251

122@
12

mmemmmmee <LK

aceecea== <€KLL

esessa=- CCCCLCCLLC

)

JTITLE

CZLADDO LA36 DM11/DJ1Y

DIAG

MACY11

30A€1052)

03-AUG-79

09:23

PAGE

SEQ 0030

N=OOO~NO
L~

CZLADDO LA36 DH11/DJ11 DIAG
¢ ILADD.PYY
C3-AUG-79 09:18

sLA36 TERMINAL DIAGNOSTIC
sDH11 AND DJ11 INTERFACES

;AUTHOR:

ROBERT

;COPYRIGHT

1976,1979,

BAKER

DIGITAL EQUIPMENT

CORP.,

MAYNARD, MASS.

LSBYTL

SWITCH REGISTER OPTIONS

SWITCH

POSITION

FUNCTION

upP (1)
DOWN (0)

HALT AT END OF CURRENT TEST
CONTINUE NORMAL TEST SEQUENCE

uP (1)
DOWN (0)

ORIVE ONLY SELECTED TERMINAL
DRIVE ALL TERMINALS

uP (1)

DOWN (0}

SELECT TEST

(AT START UP ONLY)

START NORMAL TEST SEQUENCE

00 - 07

¥ OF

COLUMNS AT

00 - 05

# OF

TEST SELECTION

.SBTTL

01754

START-UP

SPECIAL OPERTIONAL NOTES

P1.--

BEFORE START UP REFER TO THE DESCRIPTION OF THE ROUTINE ‘‘DLY"
TIMING IS A FUNCTION OF THE PDP11 MODEL AND MEMORY TYPE AND
SHOULD BE SET UP BEFORE RUNNING THE DIAGNOSTIC.

12.==

THE DIAGNOSTIC WILL NOT

RUN UNLESS THE ELTAB TABLE

1S MANUALLY

MAASASASA
SRRt addd]

:3.--

;s CHGD
:CHGD2
:CHGD3
s CHGD4&

s CHGDS
; CHGD6

ECO TABLE
3 ADDITIONAL EMT ROUTINES

ADDED DEFINITIONS
NEW START UP PROCEDURE ALLOWS ENTERING SOFT SWITCH REG
FLAG FOR CHECKING “G FROM KEYBOARD
PREVIOUS DEPO TO ADD & FILL CHARACTERS AFTER EA CARRIAGE RET
PART Of DEPO ON & FILL CHARACTERS

INITIALJZED.

11/DJ11 DIAG
~AUG-79 09:18

MACYT1

30A(1052)
03-AUG-79
09:23
SPECIAL OPERTIONAL NOTES

3
PAGE

SEQ 0031

;CHGD7 - ADDED $CKSWR ROUTINE TO CMECK SWITCH REGISTER, PRINTOUT

CONTENTS, ENTER NEW DATA TO SWITCH REGISTER

:CHGD8 - NEW PRINT MESSAGES FOR “G ADDITION
:CHGDY - EXTENSION OF CHGD3.
WALT AND SEE IF ANY DH OR DJ DEVICES
:CHGD10 - FLAG FOR CHECKING “G DURING PRINT OPERATION
:tt'.'.'t""""""'

.SBTTL

EQUATES

000000
000001
001002
000003
000004
000005
000006
000007
177776

RO=20
R1=21
R2=%2
R3=13
R&=%4
R5=25
SP=%6
PC=%7
PSW=177776

;

000001
000002
000004

000010
000020
000040
000100
000200
000400

SYSTEM EQUATES

8110=1
BIT1=2
B112=4

010000
020000
040000
100000

BIT13=10
BI174=20
B175=40
BI16=100
8177200
B8178=400
8179=1000
81110=2000
B1711=4000
B1112=10000
81713=20000
81714=40000
B1715=100000

000000
022626
000200
005726

OPEN=0
POPSP2-22626
ACRLF=200
POPSP=5726

001000
002000
004000

;POP STACK TWICE

;POP STACK ONCE

CZLADDO (A36 DH11/DJ11 DIAG
CZLADD.P1Y
03-AUG-79 09:18

1356
1357

104000
104001
104002
104003
104004
104005
104006
104007
104010
104011

1367

03-AUG-79

09:23

3
PAGE

%2
SEa 003«

TYPE=EMT+0

CHAIN=ENMT+1
TYPEM=ENT+?2

DELAY=ENT+3

TIYCTL=EM¢4
T
TIVJTL=EMT+5
CRLF=EMT+6
SCRLF=EMT+7

LF=EMT+10

PRINTC=EMT+11
PRTHDR=EMT+12
READ=EMT+13
CR=EMT+14
BTOASC=EMT+15
fORWD=EMT+16

106012

N N N~
= OOV®NC
VN NN —O

1064013
104014
104015
104016
106017
106020
104021
104022
104023
104024
104025

0o 00 0o 0o 00 00 ~N N TMN NSNS

b h e ok i o D b ok b b ek b h e >
(W AY Y IV LS LN LN
W A U U N AN
s d el et

30A(1052)
EQUATES

PROGRAM TRAP EQUATES

1358
1359
1360
1361
1362
1363
1364
1365
1366

e ot h

MACY1T

CLEAN=EMT+17
TESTC=EMT+20
ECHO=EMT+21
INRDY=EMT+22
FOUR=EMT+23
; CHGD1
CKSWR=EMT+24
CNTLU=EMT+25
LSBTTL
TRAP CATCHER & STARTING ADDRESSES

.ENABL

000000
000002

000000

.=0

000000
000000

HALT
HALT

ABS

AMA

;ENABLE ABSOLUTE

ADDRESSING

000004

000030
000032

000046

000052

000174

MACHER:

000030

.=30

003346
000340

EMTINT
340

000046

.=4b

010740

LOGICAL

000052

.=52

010000

00017¢

=174

000000

DISPREG:

.WORD

;SOF TWARE DISPLAY REG

CZLADDO LA36 DH11/DJ11 DIAG

CZLADD.P
N—=OOV~ NV

ol 8

000176

000000

30A(1052)
03-AUG-79
09:23
PAGE %3
TRAP CATCHER & STARTING ADDRESSES

SWREG:

it s
PO

LR 2l i

b st e

ol - Fal ol A

—0-‘—‘-‘..‘_‘—.-‘—.

412

03-AUG-79 09:18

MACY1Y

.WORD

SEQ 0033

sSOFTWARE SWITCH REGISTER

:STARTING ADDRESSES

000200
000204

000137
000137

001276
001266

JAP
JAP

001100

000000

START
START

:RUN

sRUN

DH11

DJ11

TESTS

.=1100
SPBOT:

;BOTIOM OF

STACK

CZLADDO LA36 DH11/DJ11 DIAG
CZLADD.P1Y
05-AUG-79 09:18
1423
1424
1625
1426
16427

MACYTY

LSBTTL

4
4
4

436
4 37
438
4

el el e
ol
el
s

WNO
N
NN =D

el el

(VL AS AV AV SV LV TV IV 1V 3

001260

001262

001264

2%
SEQ 003¢

SYMBOL OEF INITIONS
;1

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
160020
160020
160022

CNTLSW:
RTNNO:
NXTST:
WIDTH:
REPT:

OPEN
OPEN
OPEN
OPEN
OPEN

s CONSOLE TERMINAL CONTROL SWITCH
sCONTAINS CURRENT TEST NUMBER
;CONTAINS ADDRESS OF NEXT TEST
;CURRENT PAPER WIDTH, BINARY
sTEMP STORAGE FOR TESTS E0218ED22

100000

001254
001256

PAGE

554

000000
000000
000000
000000
000000
000000
160010
160014

001246
001250
001252

TIMER:

000000
000000
000000
000001
000010
000100
001000
010000

001244

09:23

000554

SPCNT:
CURTST:

POSI:
TEMP(CH:
PARITY:

PCHAR:
LFCNT:
DHADR:
SCR:
NRCRA:

160024
160026
160030
160032
160036

P alR Bl Sl LIV oIV L35 SN N

30A(1052)
03-AUG-79
SYMBOL DEF INITIONS

160016
177570

177570
000000

000000
000000
000000
000000
000000
000000

LPR:
CARA:
BY(R:
BAR:

SSR:
CNTDH:
LINENO:

000002
000020
000200
002000
020000

000004
000040
000400

OPEN
OPEN

;COUNTER FOR TEST ROUTINE ''PT3"
;ADDRESS OF CURRENT TEST

OPEN
OPEN
OPEN

sPOSITION COUNTER FOR TESTS ED218E0Q22
;TEMP STOR FOR ECHO TESTS
JPARITY FLAG

OPEN
OPEN
160020
160020
160022

;CHAR CODE WITH PARITY BIT
;COUNTER FOR TEST ROUTINE ''PT4"
;ADDRESS OF FIRST DHY1,.(RECALCULATED)
sSYSTEM CONTROL REGISTER
sNEXT RECEIVED CHARACTER REG.

160024
160026
160030
160032

;LINE PARAMETER REG
: CURRENT ADDRESS REGISTER
;BYTE COUNT REG
sBUFFER ACTIVE REG

160036
OPEN
OPEN

;SILO STATUS REG
sNO. OF THE DH11 UNDER TEST
;NO. OF THE TERMINAL UNDER TEST

MASK :
OPEN
BITTAB: 1,2.,4

sMASK OF LINE NO. UNDER TEST
:TABLE OF LINE NO. MASKS

10,20,40

004000
040000

MSEC COUNTER FOR ROUTINE ‘'‘DELAY*

100,200,400
1000,2000,4000
10000,20000,40000
100000

ACTIV:
10SW:
DJCNT:
DHONT:

OPEN
OPEN
OPEN
OPEN

sTEST ACTIVE INDICATOR
:=0,DH11 UNDER TEST=-=1,DJ11
;COUNT OF DJ11'S ON BUS
;COUNT OF DH11'S ON BUS

(SR:

160010

;DJ11

SCR1:
SCR2:
TCR:

TBUF :
SR:

OPEN
OPEN

s TEMP STORAGE USED BY PRINTC
;TEMP STORAGE USED BY PTINTC

160014

160016
177570

srevevkrr

(HGDZ

CONTROL STATUS REG

;DJT1TRANSMITTER CONTROL REG

serevwer

;DJ11 TRANSMITTER BUFFER REG
:SW REG ADDRESS

DISPLAY: 177570

;DISPLAY REGISTER

COUNT:

;LOOP COUNT FOR TEST

TIB:
TEMPST:

OPEN
OPEN

FILL:
MODE:

OPEN
OPEN

(NT:
TIMES:

OPEN

OPEN
OPEN

:""l'ti"tttt""t'l"'l

;TEMP KEYBD BUFFER STORAGE
:TEMP WORK LOCATION
SLERO FILL
sNUMBER OF

SWITCH
DIGITS TO TYPE
;1TERATION COUNT
;COUNTER FOR ELTAB

UNDER TEST

{ ILADDO LA36 DH11/DJNI DIAG
€2z LADD P11
03-AuG-79 09:18

MACY1Y

1477
1478
1479
1480
1481
1482
1483
1484
1485

16486
1487
1488
1489
1490
1491
1492
1493
1494
1495

1496
1497
1498
1499
1500
1501
1502
1503
1504
1505
1506
1507

30A(1052)

03-AUG-79

09:23

3
PAGE 35

PROGRAM INITIALIZATION § CONTROL

.SBTTL

SEQ 003>

PROGRAM INITIALIZATION § CONTROL

:lt't""

*PROGRAM START
.

:I'fit.tt'

001266
001274
001276

012737
000402
005037

001224

START:

001302
001306
001312

012706
013746
013746

001100
000006
000004

STARTX: MOV
Mov

177777

001224

START1:

MOV
BR
(LR

Mov

#177777,10SW
STARTX
10Sw

sSET UP FOR DJ11

TEST

;SET UP FOR DH11

TESTS

#SPBOT,SP
6,-(SP)
4,-(SP)

sSET STACK POINTER
: SAVE CURRENT VECTORS

AL AAARAS
AR RRERE
AS
]

001316
001324
001332
001334
001336
001340
001346
001354
001360
001364
001366
001372

012737
022777
001402
000407

001336

177777

000176
000174
000004
000006

001104

004216

000004
177712

001244
001246

CHGD3:

64%:
65%:

66%:
60%:

000024

MOV

CMP

N64S a0
#-1,aSR

;SET UP LOC 4 FOR NON-EXIS MEM TRAP

;REFERENCE HDWE

SW REG

8ta
BR
cMp
Mov

65%
66$
(SP)+,(SP)+
#SWREG, SR

:1F IT = =1,USE SOFT SW REG
: THEN USE HDWE SWITCH REG
sCORRECT THE STACK, NO HDWE SW REG
;POINT TO SOFT SW REG

MoV

(SP) ¢, a4

;RESTORE VECTORS

MOV

mov

CLEAN
CLR
MoV

#DISPREG,DISPLAY

(SP)+,an6

CNTLSW
FPEAIL, 24

MAALAEAARAARS
SRR AR 2]/

;POINT

T0 SOFT

SW REG

: SAME

;CLEAN UP
;INITIALIZE TERMINAL CONTROL
;SET ADDR POWER FAIL ROUTINE

SWITCH

CZILADDO LA36 DH11/DJ11 DIAG
CILADD.PIN
03-AUG-79 09:18

MACYT11

£k
3
30A(1052)
03-AUG-79
09:23
PAGE %¢
PROGRAM INITIALIZATION & CONTROL

1508

(etatENTRRY

1509
1510
151
1512
1513
}g:g

:
sTHIS NEXT PART (HECKS THE PRESENCE OF Du1l OR DH1I
SSTARTING AT 776010. A MESSAGE WILL BE PRINTED ON
sTHE CONSOLE TERMINAL INDICATING THE NUMBER
sPRESENT. THE PRINTER DIAGNOSTIC WILL ADDRESS EALH OF
;THE TERMINALS IN THE SYSTEM

1516

;tttttt'ttt

1517
1518
1519
1520
1521

001400
001406
001412
001616

1522
1523
}ggg

001420
001424
001430

012737
005037
012700
005710
062700
005237
000772

1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
}gg?

001432
001434
001440
001442
001446
001452
001460
001464
001466
001472
001476

022626
030027
001402
062700
010037
012737
005037
005710
062700
005237
000772

}ggg

001500

022626

1541
1542

001502
001510

032737
001005

1544
1545
1546
1547
1548
1549

001520
001522
0015264
001532
001534
001536

001001
000000
022737
001001
104025

001432
001226
160010

000004
1%:

000010
001226

END3:

000010
000010
001134
001500
001230

000004

2%:

000020
001230

END&:

1940

1543

18:

MOV
(LR
mov
TS7

ADD
INC
B8R

FEND3 ,MACHER
DJCNT
#160010,R0
(RO)

;INIT TIME OUT TRAP
;CLEAR DJ11 COUNTER
;ADDR OF FIRST DU
;REF DU

#10,R0
DJCNT
1%

;SET RO TO NEXT DU
¢ INCREMENT COUNT OF DJ11°'S
:TEST PRESENCE OF NEXT DJ11

POPSP2
81T
BEQ
ADD
MOV
Mov
(LR
187
ADD
INC
BR

RO, #710
1%
#10,R0
RO,DHADR
WEND4 ,MACHER
DHCNT
(RO)
#20,R0
DHONT
2%

; POP 2 FROM STACK
;sCHECK IF RO IS MULTIPLE OF 20
:SKIP If YES
;MAKE RO FIRST DH11 ADDR
:SAVE AS FIRST DH11 ADDRES
;SET TIME OUT TRAP
;CLEAR COUNT OF DH11'S
sTEST 1F DH11 1S PRESENT
:YES, SET RO TO NEXT DHI11
; INCREMENT COUNT OF DH1I1'S
;CHECK IF NEXT ONE 1S PRESENT

POPSP?2

;POP 2 FROM STACK

IARERRERNEIRAT
RN NAN

001512

032737

000077

001230

000077

001226

000176

001244

(HGD9:

20%:
60%:

BIT
BNE
BIT
BNE
HALT
cmp
BNE
CNTLU

#77 ,DHCNT
20%

;ANY DH11'S PRESENT?
;1F YES, BRANCH

:1F YES, BRANCH
;NO DJ11 OR DH11 AT ADDR 160010 OR 20
;1S SOFT SW REG SELECTED?
;1F NOT, SKIP OVER NEXY OPER
sSOFT SWITCH REG INPUT ROUTINE

#77,DJCNT

#SWREG, SR
60%

;ANY DJ11'S PRESENT?

SEQ 00%¢

MACY11

d el et

D ol

e e

ol ol

Al VALY IV IV TV YV

OO
O NN N AMN A
W =OOVOO~NO
NS NN

1550
1951

Sea 0037

;READ THE PAPER WIDTH, NUMBER OF COLUMNS,
;FROM SWITCH REGISTER POSITIONS 0-7. SAVE AND
sCONVERT TO 3 ASCI1 CHARACTERS. A WIDIH GT132

:OR LT30 COLUMNS (DECIMAL) WILL BE ABORTED TO 132.
:'!t'.'tt"

= OOV

001536
001542
001546
001552
001554
001560
001562
001566
001572
001576
001602
001604
001610
001612
001614
001616
001620
001626
001632

OO NNNNNN~NN~NNO
OO

30A(1052)
03-AUG-79
09:25
PAGE 37
PROGRAM INITIALIZATION § CONTROL
:l'.'.'."'

001634
001640
001644
001650

001654
001656

—A—l.—._‘—.—a—._‘—b-—fl_‘_‘_fl—.—._‘—‘—.

NN —=O 000~

1565
1566
APVASAASASD
NOUON N U
AW
N

CZLADDO LA36 DH11/DJ11 DIAG
CILADD P11
03-AUG-79 09:18

001652

177502
177400
000204

000401
000405

Mov

000035

1%:

000204
001112
017654
000003

2%:
3%:

001106

A ¥

5%:

104002

017442
012737
005737

000240
001224

001226

017613
000002

001610

6$:

BIC
CMP
BH]
cmMp
BH1

Mov
MOov
Mov

aSR,R1
#1776400,R1

R1,#204

#204 ,R1
R1,WIDTH
#HDRO,RO
#3,R2

;PUT

(SR)

INTO R

;SAVE ONLY BITS 0-7
;TEST NO. COLUMN GTi32
;COLUMNS GT132, DEFAULT 10 132
;CHECK IF NO. COLUMNS LT 30

;NOT LT 30 NOR GT 132
;COLUMNS LT 30 OR GT 132, DEFAULT
;SAVE NO.

;ADDR

COLUMNS IN WIDTH

TO STORE ASC11

COLUMN VALUE

;00 A 3 CHAR. CONVERSION

5%
6%

; CONVERT NO. COLUMNS TO ASCII
;SET ROUTINE NO = 0
;PRINT TITLE FIRST TIME
:SK1P 1T AFTER FIRST TIME
;PRINT DIAGNOSTIC HEADER

#NOP, 4%

;TAKE

RTNNO

105w
10%
DJCNT,RY
#0J11S,R0
#2,R2

OUT

BRANCH

INSTR

;CHECK IF DJ11 OR DH11 UNDER TEST
;BRANCH IF DH11
;GET NUMBER OF DJ11°'S
:ADDR TO STOR ASCII CHAR
:NO. OF ASCII CHARS (=2)
s CONVERT 10 ASCII

;OUTPUT MESSAGE

CIZLADDO LA36 DH11/DJ11 DIAG
CZLADD P
03-AUG-79 09:18
1585
1586
1587
1588
1589
1590
1591
1592
1593
1594
1595

1596

1597
1598
1599
1600
1601
1602
1603

—O

s D s
s =

—=OOVBNO NN

SEQ 0038

* START ALL DJ11 RECEIVER SCANNERS
;'ll.'t.'

001660
001664
001670
001672
001674
001676
001702
001706
001710
001714
001716
001722
001726
001730
001732
001734
001740
001744
001750
001752
001754
001756

001760

001766
001770
001776
002000
002002
002004
002010
002014
002016

012701
013703
001002
000000
000776
052711
012700
104003

031127
001372
052711
062701
005303
001362
000412
013701

012700

012702
104015
104006
104002

017564
032777
001004
012737
000431

160010
001226

MOv
MOV

7%:

000010
000005

8%:
9%:

000020

000001
000010

001230
017564
000002

10$:

000400

177256

006560

001110

104002

020066
005037
005737
001453
000436

BNE
HALT
BR
B1S
MOV
DELAY
BIT
BNE
BIS
ADD

11%:

12%:

001222
00122¢

NN TONONOMNONIND) —

NN NN

e
s e

n3
30A(1052)
03-AUG-79
09:23
PAGE
PROGRAM INITIALIZATION & CONTROL
;.'!'t..'

DEC
BNE
BR
MoV
MOV
MOV
BTOASC
CRLF
TYPEM

DH11S
BIT
BNE

MOV
BR
TYPEM
MESG3
(LR
187
BEQ
BR

#160010,R1

;ADDR OF

7%
#10,(R1)
#5,R0

;D0 NOT CONTINUE
;CLEAR MOS
;DELAY TIME TO RO

(R1),#20
9%
#,(RY)
#10,R1
R3

;TEST 1F CLEAR STILL BuSY
:BRANCH IF BUSY
:START SCANNER
;ADDR OF NEXT SCR
;:DEC COUNT OF DJ11

DHCNT ,R1
#DH11S RO
#2,R2

:NO. OF DH11'S TO R1
;ADDR TO STORE ASCII CHAR
:NO. OF CHAR TO CONVERT

DJCNT,R3
8%

??$

FIRST DJ11

SCR

:NO. OF DJ11 TO R3
;BRANCH IF COUNT IS NOT ZERO

:NOT ZERO, START NEXT ONE

;CONVERT TO ASCI]
;OUTPUT MESSAGE

#B1T8,ask
12%
#PT0,NXTST
CHAINY
ACTIV

10SW
TIVIA
TIYJA

;CKECK IF WANT TEST SELECTION?
;BRANCH IF BIT 8 IS SET (YES)
;STARTUP PRINTING TESTS
:TYPE
;SET

SELECT

TEST NO.

MESSAGE

TEST ACTIVE STATE NOT

ACTIVE

;DH11 OR DJ11
;WAIT FOR TERMINAL CONTROL FROM DH11
;WAIT FOR TERMINAL CONTROL FROM Du11

;titttt"'t

:CLEAN--INITIALIZES POINTERS BEFORE ENTERING A TEST

i e

b o

D e

o e

b e

—d

ococoocoococoocococoococco0cCoCo00Coco0O

1604
1605
1606
1607
1608
1609

MACY11

[

:""tt"tt

002020
002026
002032

012737
005066
000002

000006
000002

000004

SCLEAN: MOV
CLR
RTI

¥6 ,MACHER

2(SP)

;SET UP MACHINE ERROR VECTOR

;gt?k: PROCESSOR STATUS WORD
:RETURN

1662
1663

1664

Oo 0o 09 Co Oo Oo NNNN~~ NN~
NN
—
1. SU P
VN
= O el

J— e
G
W
T
i
P
S

cococoocoococ>CcCCOC
Oo

)

1665
1666
1667
1668
1669
1670

002066
002070
002074
002076
002100
002104
002106

MACY11 30A(1052)

03-AUG-79

09:23

3
PAGE 3?9

PROGRAN INITIALIZATION & CONTROL

SEQ 0039

CHAINN--IHIS PORTION

FOR ALL

TESTS.

IS THE COMMON RETURN

M AAEAL
A2 ]S

AREERRERNRERRORCEREROONE

:
CHGD4
CHAINN:

106024

CXSWR

JSEE

;t"t't"""""""

032737
001405
005737
001401
104005
104004
022626

000001

001104

811
BEQ

001224

187
BEQ
TTYJTL
TTYCTL

1%:

2%:

#1,CNTLSW
2%
105w
1%

POPSP2

A *“G HAS BEEN GIVEN

sCHECK 1F TERMINAL CONTROL
;BRANCH IF NOT

:DH11 OR DJ11?
;BRANCH IF DH11
sWAIT FOR DJ11 TERMINAL CONTROL
;WAIT FOR DH11 TERMINAL CONTROL

sCORRECT STACK

TR T

TERARRRAAATY

THE SR BIT

15 IS SET,THE CPU WILL HALT HERE WITH

THE TEST NUMBER
RUN NEXT TEST

IN RO.

PRESS CONTINUE

005777
100003
113700
000000
104017
012706
104016
000177

177156

RN ENOAN

CHAINY:

001106
001100

1$:

177006

TS7
BPL
HOV?
HAL
CLEAN
MOV
FORWD
JMP

aSR
1%
RTNNO,RO

;CHECK SW REG.
;BRANCH IF NO HALT
;CURRENT TEST NUMBER T0 RO

#SPBOT,SP

;CLEAN UP
;SET UP STALK POINTER
;SET UP VALUES FOR NEXT TEST

SCURTST

;GO TO TEST

sRANREREENS

TTYJ-- THIS ROUTINE 1S USED WHEN THE DJ11S' ARE UNDER
TEST, OTHERWISE THE COMMENTS
AND INSTRUCTIONS ARE
THE SAME AS FOR TTY1.
'

'
'

253824808
44

’

001222
002500
003106
003214
002174

TTYJ:
TTYJA:

1%:

POPSP2
TST

BEQ
JMP
JSR
JSR
JMP

1
{

sEERRSRCETRYTY

1634
1635
1636
1637
1638
1639
1640
1641
1642
002034
1643
002034
1644
1645
002036
1646
002044
1647
002046
1648
002052
1649
002054
1650
002056
1651
002060
1652
1 653
1
1
1
1
1
1
1 660
1661
002062

CILADDO LA36 DH11/DJ11 DIAG
CZLADD. P11
03-AUG-79 09:18

ACTIV

;CORRECT STACK
;TEST IF ENTRY

PC,SETDY
TTY1B

;LOOK FOR INPUT
;SET TERMINAL AS CONSOLE
:G0 TO CONTROL

1%
1TY16
PC,SCANDJ

:BRANCH IFf NOT

FROM A TEST

CZLADDO LA36 DH11/DJ11 DIAG
C2LADD P11
03-AUG-79 09:18
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704
1705

NS NN —O 0

— —

—2O 00N

RO PO N

N
NN

OOV

M M AN LN N AN AN PO PO NI PO PO N

A
5 BN

OOV

——

) el ekl el el —4—..—.—.—.—‘-—.—‘—‘—‘—..—.—.—.—.—‘—.—-‘—‘—.—D—b-‘_‘d—‘d

NN TN TN TN TN TN TN TN TN N TN SN N NN N N N N N N TN N N SN SN N N N SN N

1708

MACY1T

30A(1052)
PROGRAM

03-AUG-79

09:23

&
PAGE &0

INITIALIZATION & CONTROL

SEQ 0040

;"It"""

STTY-- THIS ROUTINE

IS USED WHEN THE DH11'S ARE UNDER TEST. IT PROCESSES
THE RESPONSE TO THE MESSAGE ''SELECT TEST NO.''. THE RESPONSE
MUST BE THE TWO DIGIT OCTAL TEST NO. FOLLOWED BY:

"L'" TO LOOP ON TEST

ALL

'S'" TO SEQUENCE ON TEST
"." TO EXECUTE TEST ONCE

SPACES

ARE

IGNORED

AND AN

ILLEGAL

INPUT

WILL BE

FLAGED

BY A '?"" AND THE RETYPING OF THE ABOVE MESSAGE. THE FIRST

TERMINAL TO RESPOND 1S THE TERMINAL UNDER TEST. ALL
PRINTER TESTS WILL OUTPUT TO ALL TERMINALS IF SR BIT 13 IS = 1
WHILE THE ECHO TESTS WILL RESPOND TO THE PRINTER UNDER TEST ONLY.
.

:tl"'tlt"

002142
002144
002150
002152

002154
002156
002162
002164
002170
002174
002200
002204
002210
002212
002214
002216
002222
002224
002230
002232
002234
002236
002240

002242
002244
002246
002250
002254
002256
002260
002262
002266
002270
002274
002276
002300
002302
002304
002306

002312

022626
005737
001002

001230

000000

000776
005737
001146
004737
004737
042700
010037
020027
001002

TT1Y1:
TTY1A:

1%:

001222

2$:

002674
002750
177600
001124
000040

TTY1B:
1%:

104013

000773
012700

104003
013700
104021
104020

000036

2%:

001124

000555
060005
104013
020027
001002

MOV

RO, TEMPCH

B1C

3%:

4%:

001124
11%:

000040

5%:

;D0 NOT CONTINUE

ACTIV

#177600,R0

;TEST

ENTRY

CHAR

;GOT ONE
;DELAY FOR HALF

TEMP(H,RO

;GET CHAR
;ECHO CHAR

11%

RO,RS

ASL
ASL
ASL

RS
RS
RS

(mp
BNE

RO, #40
4%

READ

MOv
DELAY
MOV
ECHO
TESTC
BR

ADD

READ

(MpP

BNE

;CHECK IF CHAR IS A SPACE
;BRANCH IF NOT
;SPACE,

LOOP WAITING FOR NEXT

;G0 TEST

;ERROR IN CHAR
;0K,

SAVE DIGIT

;GO WAIT

FOR NEXT

;WAIT

FOR

CHAR

;GET CHAR
;ECHO CHAR

POS 5-3

;60T ONE, ECHO IT

TEMPCH,RO

RO, #40

IN RS,

:CHECK IF A SPACE
;BRANCH IF NOT A SPACE

;DELAY FOR HALF

RO,RS

DUPLEX

CHAR

#30..R0

TEST

:SAVE ONLY CHAR

;GET

1%
#30..R0

DELAY
MoV
ECHO
TESTC

IS FROM A

;BRANCH IF IT IS
;LOOK FOR INPUT
;SET TERMINAL DATA

BR
mMov

READ

000036

;CORRECT STACK
:BE SURE THAT THERE ARE DH11'S
;BRANCH IF YES

RO, #40
2%

Mov

000040

DHONT

cmMp
BNE

010005
006305

104021
104020

TTviG
PC,SCANDH
PC,SETERM

READ

000421

006305
006305
1064013
020027
001002
104013
000773
012700
104003
013700

POPSP2
TST
BNE
HALT
BR
TST
BNE
JSR
JSR

;60 CHECK
;ERROR IN

DUPLEX

CHAR
CHAR

;OK,RS IS NOW OCTAL TEST NO.

;GO WAIT

FOR TERMINATOR

;BRANCH

IF NOT A SPACE

;CHECK

A SPACE

CHAR

CZLADDO LA36 DH11/DJ11 DIAG
CILADD
03-AUG-79 09:18
1742

et
i
el
e
el
e
—

NNNNNN ~N N NN~
o on (VL 1V QY.
OO0 ~No v
e

1743
1744
1745
1746
1747
1748
1749
1750
751

86
87

104013
002314
002316 000773
002320
012700
002324
1064003
002326 013700
104021
002332
002334
062700
002340 020027
002344
001413
002346
020027
002352
001414
002354
023727
002362
001124
002364
012737
002372
000407
002374
012737
002402 000403
002404
012737
104017
002412
002414
012706
002420
010500
002622
020027
002426
103102
002430
020027
002434
103406
002436 020027
002442
103003
002444
012737
002452
006300
4
00245
016037
002462
001464
002464
104016
002466 012737
002474
000177
002500 017700
002504
100040
002506 010004
002510
000300
042700
002512
002516 020037
002522
001366
002524
010400
002526 042700
002532
020027
002536 001360
002540 012706
002544 012737
002552 012700
106003
002556
104002
002560
002562 020066
002564
005037

002570
002574
002576
002602

005737
001402
000137
000137

MACYTT

000036

&
C
30A(1052)
O03-AUG-79
09:23
PAGE 41
PROGRAM INITIALIZATION & CONTROL

6%:

001124
000040
000114

BIC
cmp
BEQ

000123
001124

000056

000001

001104

004001

001104

7%:

000401

001104

8%:
9%:

001100

000040
000020
000030
000001

001104

003246

001110

000001

001222

176420

176434

108:

T1Y1G:

MOV
ASL
MOV
BEQ
FORWD
MOv
JMP
MoV
BPL
MOV
SWAB

B1C

(MP

BNE

MOV

177600

81C

000177

CMP

001104

TTYIN:

BNE

1%:

5%
#30..R0
TEMPCH,RO
#B175,R0
RO.#114

TEMPCH, #56
NG
#1,CNTLSW

9%
#4001, CNTLSW
9%
#4071 ,CNTLSW
#SPBOT,SP

R5,RO
RO, #40

RO,#20
10%
RO,#30
10%
#1,CNTLSW
RO

M1 ACTIV
aCURTST
aNRCRA RO

TIVIL
RO,R4
RO
#177760,R0
RO,LINENO
TTY16
R6 ,RO
#177600,R0

RO, #177
TTY16

#SPBOT,SP
#1,CNTLSW

CLR
181

ACTIV
10SW
1%
TTYJA
TIY1A

BEQ
JMP
JMP

;SPACE ,WAIT

SOME MORE

;GOT ONE , ECHO [T
sDELAY FOR HALF DUPLEX

sGET CHAR
;ECHO CHAR
;ALLOW LOWER CASE OR UPPER CASE
SIS 1T AN 'L
:BRANCH IF YES

;NO,

:NO,

IT A .7

sBRANCH IF

AN *'S"

VYES

;NO, ERROROR
;SET BIT O ONLY IN CNTLSW

JSET BITS 171 AND 0

;SET BITS 8 AND O
;CLEAN UP
;RESET SP
;TEST NO TO RO
;CHECK IF TEST NO. IS EQ OR GT 40
;ERROR IF YES
;CHECK IF THIS IS AN ECHO TEST
;BRANCH IF NOT
;OPTION TEST?

;ALLOW LOOP ON OPTION TEST
:YES, FORCE TO ONE TIME ONLY

¢TEST NO, » 2
PRGTAB(RO) ,NXTST;ADDR OF TEST TO NXTST
NG
sBRANCH IF ILLEGAL TEST

MOV
Mov
MoV
DELAY
TYPEM

MESG3

001222
001224
002114
002144

CMP
BEQ
(mp
BNE
MOv
BR
MOV
BR
Mov
CLEAN
MoV
MOV
CmMp
BHIS
CMP
BLO
CmMpP

BHI1S

177760
001156

001100
000001
000036

READ
BR
Mov
DELAY
MoV
ECHO

SEQ 0041

#30..R0

;SET UP TEST PARAMETERS
SSET TEST ACTIVE IND
;GO 10 TEST
;TEST ACTIVE,CHECK INPUT FROM DM11
;BRANCH 1F

NO DATA

;DATA, SAVE [T
;RIGHT JUSTIFY
¢CLEAR ALL BUT
;CHECK IF LINE
;NOT SAME, SEE
;LINES ARE THE

;SAVE 7 BITS OF

;CHECK

;NOT A
;RESET
;CLEAR
;DELAY

LINE NO.
LINE NO.
NO. IS SAME AS TEST LINE
IF ANY MORE IN SILO
SAME, GET CHAR
CHAR

A RUBOUT

RUBOUT, SEE IF ANY MORE
STACK
BITS 11 AND 8
FOR HALF DUPLEX

;OUTPUT MESSAGE
;CLEAR TEST ACTIVE STATE

:DJ11 OR DK1Y ?
;BRANCH IF DHW
;WAIT

FOR NEXT

TEST FROM D11

;WAIT FOR NEXT TEST FROM DM11

CILADDO LA36 DH11/Dy11 DIAG
CZLADD PN
03-AUG-79 09:18

032737
001403
000002
032737
001744
000137
012700
104003
112700
104021

004000

001104

000400

001106

002062
000036

03-AUG-79

09:23

4
PAGE &2

PROGRAM

INITIALIZATION § CONTROL

T1TviL:

BI1
BEQ

#BITI1,CNTLSW
1%

BI1

#B118,(NTLSW

1s:

RT1

BEQ
JMP

MOV

DELAY
MovB
ECHO
BR

000077

000733

T1Y1H
CHAINY

#30.,R0

#77,RO

TTY1H

;CHECK IF LOOP ON TEST
sBRANCH IF NO LOOP

;6O LOOP ON TEST

;CHECK IF LOOP ON SEQUENCE

sBRANCH [F NO
:GO LOOP ON SEQUENCE
;DELAY

FOR HALF

DUPLEX

;1" T0 TEMPCH
SPRINT A 2
:TRY AGAIN FROM DH11

;"'lt"'t'

;FORWARD=~THIS ROUTINE TRANSFERS THE 2 ARGUMENTS
H
FROM THE TEST ROUTINE. THEY ARE;

H
H

1- ROUTINE NUMBER
2= ADDRESS OF NEXT TEST

;t"t"'t"
002652
002656
002662

002666
002672

$FORWD:

MOV
MOV
Mov
Mov
RTI

NXTST,RS
(R5)+,RTNNO
(R5)+ NXTST
RS,CURTST

:ADDR OF NEXT TEST TO RS
:GET NUMBER OF NEXT TEST
:GET ADDR OF FOLLOWING TEST
;ENTRY POINT TO TEST IN CURTST

JEXIT

:'tt'l’"'*'

:SCANDH = ROUTINE TO SCAN DH CHANNELS LOOKING FOR INPUT

N
AN AN L
(M LM L LN
S A

30A(1052)

NG:

j=l=lelolo]
[ R
SRR
)
QOOMNIMNIWN
oW~
O WININO
NN NN

OV~ \hbwm—‘oom\lowbum—aoom\lombLNN-‘O O

002606
002614
002616
002620
002626
002630
002634
002640
002642
002646
002650

O PO N

0D O 0o 0o Oo 00 0o 00

—

1798
1799
1800
1801

MACY11

;tt"'t't'i
002674
002700
002704
002710
002712
002716
002722
002724
002726
002730
002736
002742
002744
002746

013701
005037
013700
005720
010037
017700
100410

005301
001762
062737
005237
000765

010004

000207

001230
001154
00113¢

SCANDH:

001140
176216

000020
001154

1$:

MOV
CLR
MoV
187

DHCNT ,R1
CNTDH
DHADR,RO
(RO) ¢

:COUNT OF DH11'S TO R
:CLEAR DH11 POSITION COUNTER
:ADDR OF FIRST DH11 10 RO
;ADDR OF NRCRA

Mov

aNRCRA,RO

;GET NEXT CHAR FROM SILO

Mov
BM]
DEC

:BRANCH 1F DATA IS PRESENT
;DECREMENT COUNT OF DH11°'S

ADD

#20 ,NRCRA

:SET UP ADDR FOR NEXT DH11

BR
MoV

1%
RO, R4

INC

2%:

;SET UP NRCRA ADDRESS

2%
R1

BEQ

001140

RO,NRCRA

RTS

SCANDH
(NTDH

;START OVER
:INC DH11

ALL DONE

POSITION COUNTER

;G0 CHECK NEXT DH11 ON BUS
:SAVE LINE NO. AND CHAR
;RETURN

CILADDO LA36 DH11/DJ11 DIAG
CZLADD. P11
03~AUG-79 09:18

PROGRAM

03-AUG-79

09:23

&
PAGE &3

INITIALIZATION & CONTROL

SEQ 0043

SEIERH = THIS ROUTINE IS USED TO SET UP THE REGISTER ADDRESSES OF
THE TERMINAL CURRENTLY UNDER TEST.
[

SETERM:

001136

b N i

001144

001146

001142

001150

) ed N ek

001140

d N et N e N

002750
002754
002756
002762
002764
002770
002772
002776
003000
003004
003006
003012
003014
003020
003022
003026
003032
003036
003042
003044
003050
003054
003056
003062
003064
003066
003072
003076
003102
003104

b d by~

:'Qt'l"t"

1858
1859
1860
1861
1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
1882
1883

30A(1052)

""l.."'

NaOSO
=0 —=ry TM

1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857

MACY11

010
000300
042700
010077
012701
005737
001405
062701
005337
000770
010037
006300
060001
011177
062700
011037
010400
000207

001152
177760

176104
016402
001154

1%:

000020
001154

001156
176050
001162
001160

MOV
TST
MOV
cMp
MOV
TST
MOV
187
MOV
181
MOV
cMP
MOV
SWAB
8iC
MoV
MoV
187

BEQ
ADD

2%:

DEC
BR

MOV

ASL
ADD
MOV
ADD
MOV
MOV
RYS

NRCRA,R1

=(R1)
R1,SCR
(R1)+,(R1)+
R1,LPR
(R1)+
R1,CARA
(R1)+
R1,BYCR
(R1)+
R1,BAR
(R1)+,(R1)+
R1,SSR
RO
#177760.R0
RO,asCR
#DH1100,R1
CNTDH

(NTDH

1%
RO,LINENO
RO
RO,R1
(R1),aLPR

#B817TAB,RO
(RO)
, MASK

R4 ,RO

:GET ADDR OF

sCAL ADDR OF

CURRENT NRCRA

;STORE SCR ADDR
sADD &
;STORE LPR ADDR

;ADD 2

;STORE
;ADD 2

CARA ADDR

;STORE BYCR ADDR
;ADD 2
;STORE BAR ADDR
:ADD &
;STORE SSR ADDR
sRIGHT JUSTIFY LINE NO.
:SAVE ONLY LINE NO,
JSET UP SCR
sGE1 ADDR OF VP TABLE
;CAL WHICH DH11 1S UNDER TEST
;BRANCH IF THIS 1S THE ONE
JREPOSITION RY IN VP TABLE
;DEC DH11 POSITION COUNTER

;SAVE LINE NO.
;CREATE POINTER TO TABLE
;ADD LINE NO. TO VP TAB PNTR
;PUT VP INTO LPR
;CAL PNTR INTO LINE MASK TABLE
:PUT LINE MASK INTO MASK
;RESTORE LINE NO AND CHAR
;RETURN

CZLADDO LA36 DH11/DJ11 DIAG
CZLADD P11
03-AUG-79 09:18

F
4
30A(1052)
03-AUG=79
09:23
PAGE 44
PROGRAM INITIALIZATION £ CONTROL

560 0044

AL
S AAL S

:SCANDJ - ROUTINE TO SCAN CHANNELS LOOKING FOR INPUT
[

:I"Q'I’"

013701
005037

012700
012703
011002
100410

—= O 000

AWWANPURNURNONOPNONONONOUNIND
—
s
OV
NO N
NN =000 ~O W
W

el e ol e

ol o

b o

VOOV OV O0OVOOVOVOVOVOVOOVOVOVOVOOVOVOOO

_._a_a.-og

1884
1885
1886
1887
1888
1889
1890
1891
1892
1893
1894
1895
1896
1897
1898
1899
1900
1901
1902
1903
1904
1905
1906
1907

MACY11

003212

005301
001764
062700
005723
005237
000766
010204
000302
042702
010237
006302
062702
011237
033713
001352
110402
001750
000207

001226
001154
160012

017402

000010
001154

SCANDJ: MOV
(LR
MOV
MOV
1%:
MOV
8M]
2%:
DEC
BEQ
ADD
TS7
INC
BR

3%:

MOV

SWAB
81C

177760
001156

MoV
ASL
ADD
MOV

001162
001160
001160

BIT
BNE

MOVB

BEQ
RTS

AL AEARA

SETDJ
l

DJONT RY
CNTDH
#160012,R0

NELTAB,R3

(RO),R2

b33

R1
SCANDJ
#10,R0
(R3)+
CNTDH
1%
R2.R4
R2
¥#177760,R2
R2.,LINENO
R2

#BITTAB,R2

(R2) ,MASK
MASK, (R3)

R4 ,R2

;COUNT OF DJ11 TO R
;CLEAR POS. COUNTER
:ADDR OF FIRST RECV BUFFER TO RO
:ADDR OFf ELTAB T0 R3
;GET RECV BUFFER
;BRANCH IF DATA
:NO DATA, DEC COUNT OF DJ11

sSTART OVER

ALL

CHECKED

;ADDR OF NEXT RBUF
: INCREMENT ELTAB POINTER
s INCREMENT POS COUNTER
;DO _NEXT DJ11
:GET CONTENTS OF RBUF
sSAVE ONLY THE LINE NO.
s SAVE LINE NO.

sLINE NO.*2

;CAL ADDR OF LINE MASK
;SAVE LINE MASK
;CHECK IF LINE EXISTS
sBRANCH IF NOT
;RESTORE R2 WITH CHAR
;BRANCH IF NuLL

;RETURN

= THIS ROUTINE 1S USED 10 SET UP THE PARAMETERS
FOR THE DJ11 TERMMINAL CURRENTLY UNDER TEST.

‘
IRRNERAERRR

003214
003220
003222
003226
003230
003234
003236
003242
003244

010037
005740
010037
022020
010037
005720
010037
010400
000207

001140
001236

001240
001242

SETDJ:

MOV
18T
Mov
CMP
Mov
181
Mov
MOV
RTS

RO,NRCRA

-(RO)
RO,(SR
(RO)+,(RO)+
RO,TCR
(RO)+
RO, TBUF
R4 RO
PC

:SAVE ADDR FOR READ &
;CAL ADDR OF (SR
:ADDR OF CURRENT (SR
:CAL ADDR OF TCR
;SAVE ADDR OF CURRENT
; CAL_ADDR OF TBUF
:SAVE ADDR OF CURRENT
;GET CONTENTS OF RECV
;RETURN

TTY1H

CSR
TBUF
BUFFER AGAIN

CZLADDO LA36 DHI1/DJ1T

CILADD

1932
1933
1934
1935

1936

1937

1938

1939
1940
1941
1942
1943
1944
1945
1946
1947
1948

DIAG

03-AUG-79 09:18

MACY11

30A(1052)
03-AUG-79
TEST ADDRESS TABLE

LSBTTL

003246
003250
003252
003254
003256
003260
003262
003264
003266
003270
003272
003274
003276
003300
003302
003304

006560
006634
006756
007406
007526
007704
010110
010272
010504
010642
010674
000000
000000
000000
000000
010764

003306
003310
003312
003314
003316
003320
003322
003324

003326
003330
003332
003334
003336
003340
003342
003344

012740
013122
013740

014170
014724

015274

000000
000000

PRGTAB:

PT0
P11

P12
P13
P14

P15

P16

P17

PT10
PTI

PT112

OPEN
OPEN
OPEN
OPEN
PT17

TEST

09:23

&
PAGE &>

SEQ 0045
ADDRESS

TABLE

:DATA PATH TEST

;PRINTER CHARACTER

TEST

;NON=-PRINTING CHARACTER TEST
;CARRIAGE RETURN TEST
sMULTIPLE LINE FEED TEST
sSINGLE LINE FEED TEST
sBACKSPACE TEST
;OVERPRINT TEST
;PRINTING FREQUENCY SWEEP TEST
;RIBBON FEED TEST
;PRINTER BELL TEST
;SPARE FOR ADDITIONAL PRINTER TEST
;SPARE

FOR ADDITIONAL PRINTER

TEST

;SPARE FOR ADDITIONAL PRINTER TEST
;SPARE FOR ADDITIONAL PRINTER TEST
SLIFE TEST

E020
€021
E022
£E023
E024
E025

OPEN
OPEN

sCHARACTER ECHO TEST
;LINE ECHO TEST, FAST RATE
;LINE ECHO TEST, SLOW RATE
: CHARACTER/CODE ECHO TEST
;SELECTIVE PATTERN ECHO TEST
;BELL ECHO TEST
;SPARE FOR ADDITIONAL ECHO TESTS
;SPARE FOR ADDITIONAL ECHO TESTS

TEST30
JEST31
TEST32
TEST33
TEST34
TEST35
OPEN
OPEN

; SECONDARY CHARACTER SET OPTION
;SELECTIVE ADDRESSING OPTION
;AUTO ANSWER BACK OPTION
;FORM FEED OPTION
;HORIZONTAL TAB OPTION
;VERTICAL TAB OPTION
;SPARE FOR ADDITIONAL OPTION TESTS
:SPARE FOR ADDITIONAL OPTION TESTS

CZLADDO LA36 DH11/DJ11 DIAG
CILADD.P1N
03-AUG~79 09:18

2000
2001

2002
2003
2004

2005
2006
2007
2008
2009
2010
20N
2012
2015
2014
2015
2016
2017
2018
2019
2020

30A(1052)
03-AUG-79
EMT TRAP DECODER
.SBITL

EMT

09:23

PAGE 46

SEQ 0046
TRAP DECODER

;'.l'tfi"'t

:EMTINT--SERVICE ROUTINES FOR TRAPS THROUGH LOC. 30 AND 34,
.

003422
003424
003426
003430
003432
003434
003436
003440
003442
003444
003446
003450
003452
003454
003456
003460
003462
003464

003466
003470
003472
003474

—a
G

1
1

SO0~V

) b O

2
0
000000
000776
006116
042716
062716
017616
005046
012746
000002
000136
b

003354
003360
003364
003366
003370
003372
003374
003400
003404
003410
003412
003416
003420

003346
003350

:t""tt'it

ON)
= O —

1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
1981
1982
1983
1984
1985
1986
1987
1988
1989
1990
1991
1992
1993
1994
1995
1996
1997
1998
1999

MACY11

004114
00203¢
004144
006174
002142
002112
004474
004456
004476
004572
004516
003716
004506
004320
002652
002020
004424
003516
003654

003476

015736

015774

000002
000000
000026

EMTINT:

1%:

177001
003422
000000

2%:

MOV
SUB
MOV

(MPB
8LOS

HALT
BR
ROL
BIC

ADD
MoV

003420
3%:
EMTTAB:

asP,=(SP)
#2,asp

a8 (SP) ,asP
asSP, 426
2$
1%
asP

#177001,3SP

:GET SAVED PC
;DECREMENT PC BY TWO
sCHECK

THAT

CALL

sBRANCH IF 0K

SEMT ARGUMENT

;REMOVE 7 MSB

IS WITHIN LIMITS

«2

;FORM EMT RTN ADDRESS

CLR

#EMTTAB,3SP
a(SP) ,asP
=(SP)

JMP

a(SP)+

;GO TO EMT ROUTINE

Mov
RTI

¥3$,-(SP)

TYP
CHAINN
TYPM
DLY
TIY1
v
SCRLF
$SCRLF
SLF
$PRT(
$PRHDR
SREAD
$CR
$BTASC
SFORWD
$SCLEAN
$TESTC

$ECHO
SINRDY
:tttttt't"
CHGD
$FOUR
$CKSWR
$CNTLU

;CLEAR PSW

sMESSAGE OUTPUT

ROUTINE

:COMMON TEST EXIT
;MESSAGE OUTPUT ROUTINE, MULTI
;DELAY ROUTINE

DEVICES

;:DH11 CONSOLE TERMINAL CONTROL
:DJ11 CONSOLE TERMINAL CONTROL

:CARRIAGE RETURN, ALL TERMINALS
;CARRIAGE RETURN, CONSOLE TERMINAL
;LINE FEED ONLY, ALL TERM'S
;PRINT CHAR, ALL TERM'S
;PRINT

TEST

;READ CHAR
;CARRIAGE

HEADER

RETURN ONLY,

:BINARY TO ASCII

12832882224

;ltl'tlll""*""i""i"t"'

ALL

CONVERSION

TERM'S

s CHECK CHAR
;PRINT CHAR, CONSGLE ONLY
;CHECK IF READY

:FOUR FILL CHARACTERS
;CHECK SWITCH REG CONTENTS
sRE-ENTER POINT FOR (KSWR ROUTINE

CZLADDO LA36 DH11/DJ11 DIAG
CZLADD.P1Y
03-AUG-79 09:18

2021
2022
2023
2024
2025
2026
2027
202%
2029
2030
2031
2032
2033
2034
2035

MACY11

30A(1052)
O03-AUG-79
EMT TRAP DECODER
JeesrEEREE

C(HGDS

09:23

¢
PAGE &7

SEQ 0047
teerETERELY

;FOUR°- THIS ROUTINE witt PRINT FOUR FILL CHARACTERS
;'.II"""
;'t'.""""t"""'

003476
003476
003502
003506
003510
003512
003514

012705
012700
104011
005305
101373
000002

000004
000006

CHGDS:
$FOUR:
1%:

MOV

HOW

PR%NYC

DE
BH1

RT}

#46,RS

#6,R0

RS
1%

:l'tt't"'t'l't.t"t'

;PLACE A FOUR INTO RS

JPLACE

THE

: TRANSMIT

;DEC RS
;4 TIMES

ACK

CODE

INTO R6

CZLADDO LA36 DH11/DJ11 DIAG
CZLADD P11
03-AUG-79 09:18

2036
2037
2038
2039
2040
2041
2042
2043
2044
2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
2055
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

BACY1T 30A(1052)

03-AUG-79
COMMON ROUTINES
.SBTTL

09:23

PAGE 43

SEQ 0048

COMMON ROUTINES

:"""."'

;ECHO-- THIS ROUTINE ECHOS CHARACTERS ON THE TERMINAL UNDER TEST.
;""'.""
003516
003522
003524
003532
003534
003540
003546
003554
003562
003570
003576
003600
003606
003614
003620
003622
003626
003630
003634
003640
003642
003646
003652

001224
175420

$ECHO:

001160

000020
001160
001160
000400
175416

110077

110037
000002

:DJ11 OR DH11
;BRANCH 1F DJ11

BNE

$ECHO

JNO,WAIT UNTIL 0K
;CHAR INTO TEMPCH

Mmov

177777

020437
001362

105w
ECHODJ

Bl17

001124
001156
001124

017704
000304
042704

TST
BNE

ECHODJ:
1$:

2%:

175414
177760
001156

#-1,3BYCR
#20,355R
MASK ,aBAR

MOV
BIS

MASK ,aTCR
#B118,aCSR

Mov
SWAB

aTBUF R4
R4

RT1

187
BPL

CMp

BNE
MOVB
MOVB

RY1

;CHECK 1F

RO, TEMP(CH

MOV
MOV
MOV
MOV
BIS

BIC

175374
001124

aBAR ,MASK

L INENO,aSCR
#TEMPCH,aCARA

OK TO SEND TO DM

:SET LINE NUMBER
;0K,PUT ADDR OF CHAR INTO CARA
:SET CHAR COUNT T0 1
;SET SILO OVERFLOW T0 16
;SET TRANSMIT BT
sRETURN
;SET LINE NO. IN TCR
:START TRANSMITTER SCANNER
s CHECK IF OK
;BRANCH IF NOT READY
;GET CONTENTS OF TBUF

a(SR
2%

;RIGHT

#177760,R4

JUSTIFY LINE NO.

:SAVE ONLY THE LINE NO.

R4 ,LINENO

;BE SURE IT'S THE LINE UNDER TEST
;BRANCH IF NOT

1%
RO,aTBUF
RO, TEMPCH

;LOAD CHAR TO PRINT
:SAVE (HAR IN TEMPCH

sRETURN

'.Illt""

INRDY-- CHECKS

;
H
H
H
:
;

ANY

INPUT

FROM TERMINAL UNDER TEST,
VALID CHAR.

RETURN VIA PC IF NO (CHAR OR VIA PC+2 IF
BE IN BITS 6-0 OF TEMPCH.
CALLING SEQUENCE:
INRDY
NO CHAR RETURN
VALID CHAR RETURN

C(HAR WILL

;.l"fl""
003654
003660
003662
003666
003670
003674
003700
003702
003710
003714

175260

$INRDY: MOV
BPL
Mov

001124

SWAB
BIC

177760
001156

000002

177600
000002

cmp

1%:

RO
#177760,R0

RO,LINENO

BNE

$INRDY

ADD
RTI

¥2,35P

BIC

001124

aNRCRA,
RO
1%
RO, TEMPCH

¥177600,TEMP(H

;GET CHAR
JBRANCH 1F NO CHAR
;SAVE (HAR
;RIGHT JUSTIFY LINE NO.
;SAVE ONLY LINE NO,
sCHECK IF SAME AS LINE UNDER TEST
;sBRANCH IF NOT LINE UNDER TESTM
;SAVE ONLY THE CHAR
;SET UP RETURN ADDR.
sRETURN

CILADDO LA36 DH11/DJ11 DIAG
CZLADD P11
03-AUG-79 09:18

MACY11

2090
2091

PAGE «9
SEQ 0049

READ-- THIS ROUTINE READS INPUT FROM THE TERMINAL UNDER TEST ONLY
IF SW13 S SET, OTHERWISE ALL TERMINALS ARE SCANNED FOR INPUT
AND TERMINAL WHERE CHARACTER 1S RECEIVED 1S SET AS THE
TERMINAL UNDER TEST.
RN TEEY

004060

004066
004070

004072
004076
004100
004104
004106
004112

000770
013700
000002

175320

$READ:

175206

BIT
BEQ
MOV

RPL
Mov

177760

001156

1%:

001224
002674
002750

2%:

003106
003214

wNno

—

001130
001130
177400
177600
001124
000011
000377

3s:

004737

012604
012603
012602
012601
010037
113737
062737
042700
010037
012700
062737
005300
001406
106337
103373
105137

020000

—d

032777
001413
017700
100371
010004
000304
042704
020437
001362
000424
010146
010246
010346
010446
005737
001005
004737
004737
000404
004737

003716
003724
003726
003732
003734
003736
003740
003744
003750
003752
003754
003756
003760
003762
003764
003770
003772
003776
004002
004004
004010
004014
004016
004020
004022
004024
004030
004036
004044
004050
004054

—O0O000
b

NS NN = OO0

b e
—

2O 0N

NN NN NN
MO

OORNO NS LN
WNO N

WAL LN AN M LN NN NN

09:23

"l'..""

2092
2093
2094
2095
2096
2097

30A(1052)
03-AUG-79
COMMON ROUTINES

001126

4%:

JSR

MoV
MOv
MoV
MOv
Mov
MOVB

81C
BIC

Mov
Mov

5%:

001127
001126
001124

SWAB
BIC
CMp
BNE
B8R
MoV
Mov
Mov
Mov
1581
BNE
JSR
JSR
BR
JSR

6%:

121113,85R
aNRCRA,RO
$SREAD
R4
#177760,R4
R&,LINENO
$READ
4%
R1,-(SP)
R2.,-(SP)
R3,~-(SP)
R4 ,-(SP)
10SW

PC,SCANDH
PC,SETERM

PC,SCANDJ
PC,SETDY
(SP)+ R4

(SP)+,R3
(SP)+,R2
(SP)+ ,R1
RO,PCHAR
PCHAR,PARITY#]
#177400,PCHAR
#177600,R0

RO, TEMP(H

DEC

#11,R0
#377 .PAR]TY
RO

ASLB

PARITY+1

81C

BEQ

8CC
coms
BR

Mov
RTI

TEMPCH,RO

;SW13 SET?
sBRANCH IF NOT
;GET CHAR
:NO CHAR, WAIT FOR ONE
:VALID DATA

sRIGHT JUSTIFY LINE NO.

;SAVE ONLY LINE NO.
;CHECK IF SAME AS LINE UNDER TEST
;BRANCH IF NOT
; CONTINUE
;SAVE R

;DH OR DJ?
:BRANCH IF DJ
:LOOK FOR INPUT
;SETUP TERMINAL UNDER TEST
s CONTINUE
;LOOK FOR DJ INPUT

;SETUP DJ UNDER TEST
;RESTORE REGS

;SAVE (HAR WITH PARITY BIT
;GET CODE FOR PARITY CHECK
;CLEAR UNWANTED BITS
sSAVE ONLY THE CHAR

;SET SHIFT COUNT

sCLEAR PARITY FLAG
;DECREMENT SHIFT COUNT

;EXIT IF DONE
;ROTATE CODE
¢CONTINUE 1F CARRY BIT WAS A ZERO
;COMPLIMENT PARITY FLAG [F BIT WAS ONE
s CONTINUE
;RESTORE RO

sRETURN

CZLADDO LA36 DH11/DJ11 DIAG
CILADD.P1Y
03-AUG-79 09:18

MACY11

30A(1052)
03-AUG-79
COMMON ROUTINES

5328

SXXXXXNANXAX

2161
2142
2143
2144
2145
5}29

;TYPE-=
:
:
:
:
:

%}28

SO0

2150
2151
2152
2153
2154
2155
2156
2157
2158
2159
S}g?

004114
004116
004122
004124
004126
004130
004132
004134
004136
004140
004142

011601
062716
011101
112100
100402
001003
000002
104007
000772
104021
000770

000002

TYP:
1%:

2%:
3s:

09:23

PAGE 50
SEQ 0050

A COMMON ROUTINE USED TO TYPE MESSAGES ON THE TERMINAL
UNDER TEST ONLY.
THE NULL CHARACTER TERMINATES
THE MESSAGE. CALLED THROUGH AN EMT TRAP.
CALLING SEQUENCE
TYPE
MESG
;ADDRESS OF MESSAGE

X
mov
ADD
MoV
MOvVB
8M]
BNE
RTI
SCRLF
B8R
ECHO
BR

asP,R1
#2,aSP
aR1,R1
(R1)+,R0
2%
3%
1%
1%

;GET POINTER TO ADDR. OF MESG.
;SET UP RETURN ADDRESS
;ADDR. OF MESG TO R!
;GET CHAR
;BRANCH 1F WANT AUTO CR-LF
sPRINT CHAR IF NOT NULL
JEXIT ON NULL CHAR
SSEND A CRLF
;GET NEXT CHAR
;OUTPUT CHAR
;60 GET NEXT CHAR

2162
g}bs

SXXNXXXXXXX

2165
2166
2167
2168
2169
2170

sTYPM==<MULT] TYPE~-A COMMON ROUTINE TO OUTPUT
:
A MESSAGE ON ALL DH11S.
;
THIS ROUTINE 1S USED BY
:
THE PRINTER TESTS TO TYPE MEADINGS.
:
CALLING SEQUENCE;
:
TYPEM

51;3

SXXXXNXAXXNX

g};;

2175

2176
2177
2178

2179

2180
2181
2182

2183
2184

2185

004144

004146
004152
004156

004156

004160
004162
004164

004166
004170

004172

011601

062716
011101
112100

100402

001003
000002
104006

000772
104011

000770

000002

TYPM:

MESGAD

MOV

asP,R1

;GET POINTER TO ADDR OF MESG

BMI]

;BRANCH IF WANT AUTO CR-LF

;GET NEXT CHAR
:PRINT CHAR

1%:

ADD
MoV
MOVB

28:

BNE
RT1
CRLF

3s:

;ADDRESS OF MESSAGE

BR
PRINTC

B8R

#2,asP
arR1,RY
(R1)+,R0
3%

;SET UP RETURN ADDRESS
;ADDR OF MESG T0 R}
;GET CHAR

;CONTINUE IF NOT NULL
;RETURN TO CALLER
:SEND CR-LF

;60 GET NEXT CHAR.

oom~0w»u£d8$3$8

30A(1052)
03-AUG-79
COMMON ROUTINES

09:23

L)
PAGE

SEQ (L%

SRR I

‘Rt RRENOOERY

Q00 OO 00000

—

MACYT1

DELAY--A COMMON ROUTINE TO DELAY PROCESSING
A GIVEN NUMBER OF MSEC.
CALLING SEQUENCE;
MOV~
#5,RO
;RO CONTAINS THE NUMBER OF

;

THE DELAY IS EFFECTED BY THE EXECUTION OF THE LOOP;
1%:

;

DEC

BNE

SINCE THE EXECUTION TIMES OF THE
MACHINE TO MACHINE, THE VALUE AT
[

MSEC DELAY DESIRED

DELAY

PDPI1 LINE DOES VARY FROM
SYMBOLIC LOCATION

"TIMER' MUST BE CHANGED TO THE APPROPRIATE VALUE AS SHOWN BELOW

BEFORE STARTING THE DIAGNOSTIC. "'TIMER' IS
FOR AN PDP-11/40 (TIMER = 554).

sMACHINE

05810

;LOOP: DEC R1
:
BNE LOOP
;
TIME=
; SET TIMER

POPININ)
s md et b e b b b 2

W= OOV~
NN -

2209

oo
NN~no
oo
NN NN no

CILADDO LA36 DH11/Du11 DIAG
CILADD.P11
03-AUG-79 09:18

3.4
2.5
5.9u8
251

35840
.99
1.76
2.75
554

INITIALIZED

15820
2.3
2.6
6.9
314

11745 8 11/70
BIPOLAR

.30
.60
.90USEC
2127

S XXXXXXXXXX

004174
004176
004202
004204
004206
004210
004212
004214

010146
013701
005301
001376
005300
001372
012601
000002

001102

DLY:
1$:

2$:

mov
MOV

DEC
BNE
DEC
BNE

SQY

R1,-(SP)
TIMER,RY

; SAVE R1
;MOV 1MSEC LOOP CNT

(SP)+,R1

sALL DONE

R1
2%
RO
1%

TO R1

;DECREMENT COUNT
;BRANCH IF NOT ZERO
;DEC NO. OF MSEC DELAY
:DELAY AGAIN IF NOT ZERO
RESTORE

MOS

CORE

.51
.90
.98
1.13
1.49USEC
1237
755

2.03USEC

2224
2225
2226
2227
2228
2229
2230
2231
2232
2233
2234
2235
2236

2237
2238
2239

2240
22641
2262
2243
2244
2245
2246
2247
2248
2249
2250
—

oD NN N nN
SN, T, VT N V] N N VY NT NY .Y, no
[e Ko X+ o N SV IV IV IV I
IV AV .
B AN
OOV NIl

CZLADDO LA36 DH11/DJ11 DIAG
CILADD. P
03-AUG-79 09:18

MACY11

30A€1052)
03-AUG-79
COMMON ROUTINES

09:23

&
PAGE 52

SEQ 0052

ttl.'t.'t'

PFA]L--POUER

FAIL ROUTINE

SAVE ALL REGISTERS AND SET RESTART ADDRESS
INTO LOCATION 24

:RESIAR]--POHER FAIL RECOVERY
RESTORE

ALL REGISTERS AND GO TO START

‘AN ERROIRERYY

004216
004220
004222
004224
00: 226
004230
004232
004236
004242
004250

PFAIL:

000024
004252
004254

000024

MOV
Mov
MOV
MOV
MoV
Mov
MOV
Mov

MOV

HALT

004252

SAVR6:

.WORD

004254
004256

RESTRY:

TYPEM

004260
004264
004270
004272
004274
004276
004300
004302
004304
004310
004316

004252

00002¢

001302

053517

051105

18:

RO, -(SP)
R1,-(SP)
R2,=(SP)
R3,-(SP)
R4 ,-(SP)

RS,-(SP)
24,=(SP)
SP,SAVR6

FRESTRT
24

;SAVE STACK POSITION
;STORE RESTART ADDRESS

:TYPE POWER MESG

Mov
MOV
MoV
MOv
Mov
Mov
Mov
MoV
JMP

STARTX

.ASCIZ

<ACRLF>/POWER/<ACRLF>

.EVEN

SAVR6,SP
(SP)+,24
(SP)+,RS

;RESTORE STACK POINTER
;RESTORE PFAIL ADDRESS

(SP)+ R4
(SP)+,R3
(SP)+ ,R?
(SP)+ ,R1

(SP)+,RO

CILADDO LA36 DHI1/DJ1T DIAG
CZLADD P11
03-AUG-79 09:18

MACY11

30A(1052)
03-AUG-79
COMMON ROUTINES

2265
2266
2267
2268
2269

(9:23

5
PAGE 53
SEQ 0053

:"""."'

BINARY TO ASC11 CONVERSION (1 TO S ASC11 CHARACTERS)
SCALLING SEQUENCE
:
:
:
:

Mov
mov
MOV
BTOASC

ADDRESS OF LOC TO STORE FJRST ASC11 CHAR. INTO RO
BINARY NUMBER TO BE CONVERTED INTO R1
NUMBER TO BE CONVERTED AS A POWER OF TEN INTO R2

;'.""t"'

004326
004332
004336
004342
004346
004350
004354
004356
004362
004370
004374
004400
004402

010237
006302
062702
014237
005037
163701
103403
005237
000772
063701
062737
113720
005337
001354
000002

004404
004406
004410

000000
000000
000000

004412
004420

000001
001750

004320
004324

004404

$BTASC:

004412
004410
004406
004410

1%:

ASL
ADv
Mov

2%:

sus

(LR

004406
004410
000060
004406
004404

000012
023420

004406

MOV

3$:

3%
DIGIT

ADD
MOVB
DEC

#60,DIGIT

ADD

TENPWR ,R1

DIGIT,(RO)+
CNVCTR
s

:CALCULATE ADDRESS OF STARTING TEN POWER
:POWER OF TEN VALUE TO TENPWR
sCLEAR CURRENT DIGIT
:SUBTRACT TEN POWER FROM BINARY VALUE

;BRANCH IF

(DIGIT)

TO ASCII

;PUT ASCI] CHAR INTO USER BUFFER
;FINISH ALL CHARS CALLED FOR
;BRANCH IF NOT FINISHED

;RETURN

0
0
0

ADTENP:

.WORD

1.,10.,100.,1000.,10000.

RARS

END

;RESTORE SUBTRACTED VALUE

;CONVERT

.WORD
.WORD
.WORD

:CONVERSION CHARACTER COUNT
;CONVERTED CHARACTER
; CURRENT TEN POWER

TESTC-- CHECKS FOR

INPUTTED OCTAL DIGIT

BETWEEN A G AND A 7 INCLUSIVE

’

.
cHEARRETEY

004424
004430
0044 34
004436
004442
004444
004450
004454

013700
020027
103407
020027

001124
000060

062716
042700
000002

000002
177770

101004

$TESTC:

000067

1%:

MOV
(MP
BLO
CMP
BHl
ADD
B1C
RT]

TEMPCH,RO

:GET

CHAR

RO, #60
1$
RO,#67
1%

;CHECK 1F NUMERIC AND EQ ,GT O
:BRANCH ERROR
SCHECK 1F EQ OR LT 7
:BRANCH ERROR

#177770,R0

;SAVE ONLY THE DIGIT

#2,asP

;SET UP RETURN ADDRESS
;NORMAL RETURN

[Sw—

NO WSNN~
OO0 00

CNVCTR:
DIGIT:
TENPWR:

AV N1 N T ST, CY VY NI, VT N1, V)
[V LW IV IV IV W IV L
b el o

:asvs TEN POWER
-

FADTENP RZ
=(R2), TENPWR
DIGIT
TENPWR,R1

B(S
INC
8R

BNE
RT1

000144

:g,CNVCTR

DO LA36 DHI1/DJI 1 D1 AG
P11
03-AuG=-7 9 09:18
1

MACY11

30A€1052)
03-AUG-79
COMMON ROUTINES

09:23

¢c

PAGE

SEQ 0054

:".Q"t"'

:SCRLF=- A COMMON ROUTINE TO QUTPUT A CR AND LF 10

THE

TEST

TERMINAL ONLY.

;"'Q’.""'
004456
004462
004464
004470
004472

112700

104021
112700
106021
000002

000015
000012

$SSCRLF: MOVB
ECHO
MOVE
ECHO
RTI

#15.R0
#12.R0

:SEND A CR
SWALIT UNTIL PRINTER
SSEND A LF

1S READY

;RETURN TO CALLER

SXXXXXXXXXX

ZCRLF=- ROUTINES TO SEND A CR AND/OR LF TO ALL TERMINALS.
SXXXXXXXXXX
004474
004476
004502
004504
004506
004512
004514

104014

012700
104011
000002

000012

012700

000015

104011
000002

$CRLF:
SLF:

CR
MOV
PRINTC

#12,R0

RTI

$CR:

MOV
PRINTC

;SEND CR
:LF T0 RO
SSEND 1T

*RETURN

#15.R0

RTI

:CR TO RO
SSEND IT

*RETURN

:'tltt"'

‘ROUTINE TO PRINT TEST MEADER
.

:.'l‘tl"'

004516
004520
004522
004526
004530
004532
004534
004540
004544
004546
004552
004556

004562

004564
004566
004570

104002

017642
013700
006200
006200
006200
042700
062700
104011

013700
042700
062700
1064011
104006

1064010
000002

$PRHDR:

001106

177770
000060

001106
177770
000060

TYPEM
HDRMSG
MOV
ASR
ASR
ASR

sPRINT MESG
RINNO,RO
RO
RO
RO

;GET
;GET

#60,R0

sMAKE ASClI

MOV

RINNG,RO

;GET

ADD
PRINTC
CRLF
LF
RTI

#60,R0

BIC

ADD

PRINT(

BI(C

#177770,R0

TEST NUMBER
FIRST DIGIT

;MASK FIRST DIGIT

sPRINT

TEST

NUMBER AGAIN

;MASK LAST DIGIT

JMAKE ASCI]
JPRINT IT
:CR-LF
:BLANK LINE
:RETURN

CZLADDO LA36 DH11/DJ11 DIAG
CILADD P11
03-AUG-79 09:18

MACYT1

30A(1052)
03-AUG-79
COMMON ROUTINES

09:23

5
PAGE 5>
SEQ 0055

;"!'.t""

gPRlNTC--THlS ROUTINE 1S USED TO DRIVE EACH OF THE EXISTING TERMINALS

372

3
3
375

ON EACH OF THE EXISTING DH11°S( AS DEFINED BY THE SET UP IN ELTAB).
1 IN THE MAINTENANCE MODE SR BIT 13 CONTROLS WHETHER OR NOT
ALL DH11°'S ARE DRIVEN OR ONLY THE TERMINAL UNDER TEST.
SET

376
377

BIT

:
:

80
81

13 DCWN TO DRIVE ALL TERMINALS ON ALL DH11'S,

DRIVE ONLY

THE

TERMINAL UNDER TEST.

EACH TERMINAL IS DRIVEN ONE CHARACTER AT A TIME,
PRINTC WILL LOOP WAITING FOR THE FIRST
ENTER WITH CHAR TO PRINT IN RO.

TERMINAL

SET BIT

TC BE

READY

:t'tt'tttt'

004572
004572
0064574
004576
004600
004602
004604
004606
004612
004614
004620
004624
004626
004634
004636
004640
004642

004644
004652
004654
004656

010046
010146
010246
010346
010446
010546
005737
001402
000137
005737
001576
032777
001453
104021

CHGD10:

$PRTC:

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

MOov

R4,
- (5P)

001224

;SAVE RS
;DH11 OR DJ11?

005474
001230

JMP
1587

PRINTJ
DHCNT

;GO TO DJ11 ROUTINE
:ANY DH11'S PRESENT?
;RETURN 1F NONE
;CHECK IF SR BIT13 IS SET
;DRIVE ALL TERMINALS IF NOT SET
;OUTPUT CHAR
;CHECK IF ANY INPUT
;NO,RETURN

020000

BEQ

1%:

174410

BEQ
BIT
BEQ
ECHO

12%
#BIT13,3SR
6%

INRDY
BR

jenexnsexeer

001124

000007

18%

CHOGDIO

CMp

104024
000561

004670
004674
004702
004704
004712
004714
004722
004724
004732
004734
0046742
004744
004752
004754
004760
004764
004772

023727

001402
000137
023727
001004
012766
000543
023727
001004
012766
000533
023727
001004
012766
000523
000137
000137
013737

012705

;SAVE RZ
;SAVE R3
;SAVE R4

R5,-(SP)
10SW

TEMPCH,
#7

BNE

20%

12¢%

CKSWR

wovwrvenne

INERFERETERE

004660
004666

:SAVE RO
;SAVE R1

Mov
18T

104022
000446

023727
001002

MOV
mov
MOV
MOV

001124

000177

20%:

005416
001106

000024

2%:

012224

000014

001106

000021

011234

000014

001106

000022

011314

000014

002540
005432
001134
017402

001232

cMp
BEQ

TEMPCH, #177
2%

CMp
BNE

RINNO, #24
3%

JMP

Mov

3$:

BR
CMp
BNE
MOV

5%:
18%:
6%:

B8R

ENDITR

FTERM,14(SP)

128
RTNNO,#21
4%

#EO21B,14(SP)

12%

cMp

RTNNO, #22

MOV

#EQ22B,14(SP)

JMP
MOV
Mov

ENDIT
DHADR,SCR1
#ELTAB,RS

BNE

BR
JMP

12%
T1YIH

;INPUT, CHECK IF A *6
:1F NOT, BRANCH
;G0 TO SOFT SWITCH REG INPUT
;RETURN TO EXIT TEST PROPERLY

; INPUT,CHECK

13 yP 10

1F A RUBOUT

;N0 RUBOUT, RETURN
;CHECK 1F TEST 24
:BRANCH IF NOT

;SET RETURN ADR

;RETURN TO EXIT TEST PROPERLY

;TEST 212

;BRANCH IF NOT
sSET RETURN TO EXIT TEST PROPERLY

sRETURN

;TESY 227

;CONTINUE IF NOT
;SET RETURN ADR
JRETURN TO EXIT TEST PROPERLY
;G0 WAILT

;INIT ADDR OF FIRST DHI11
SINIT ADDR TO EXISTING TERM TAB

“JLADDO LA36 DHY1/Dull DIAG
CILADD P11
03-AUG~-79 09:18

2426
2627

26428
2629

26430
2431
2632
2433
2634
2635
2436
2637
2638
2439
2640
2441
2442

2443
244
24645
2446
2447

2448
2449
2450
2651
2452
2453
24654
2655
2456
2457
2458
2459
2460
2461
2462
2663
2464
2465
2666
‘ub?
2668
2669

2470
2671
26472
2473
2474
2475
2676
2677
2678
2479
2480
2481

004776
005002
005006

016402
001230
000001

005014
005022
005030
005032
005034
005040
005042
005050
005056
005064
005070
005076
005102
005104
005112

001232
000012

005012

MACYI1

001234
001234

174144
000002
1764132

042737

174124
177600

Mov
Mov
Mov
(LR
MOV
ADD

8%:

023727
001002

001124

09:23

9%:

001234
174156
001234

1581
BPL

001124
001124
000007

cmp

CKSWR
BR

000433

#6,5CR2
#20,3SCR?
#16,5CR2
R1,aSCR2
#2,5(R2

INIT ADDR 10 vP TAB
;INIT DH11 COUNT
INIT CURRENT LINE NO.
sSET UP CURRENT CHANNEL NUMBER
sSET SCR2 = ADDR OF CURRENT DMI11
;SET SCRZ2 = ADDR Of BAR
STEST IF TERMINAL EXISTS
;BRANCH IF NO TERMINAL
;TEST IF OK TO SEND
;TEST ACAIN
:ADDR OF SILO STATUS
:SET SILO OVERFLOW 10 16
;SET SCRZ2 AS ADDR OF SCR
sPUT CHANNEL NO. INTO SCR
;SET CHAR BUF ADR

8SCR2, TEMPCH

;CONTINUE IF NONE
sGET CHAR

s ANY

sMASK CHAR

TEMPCH,
#7

;CHECK

reevevenen

19%

005236
005240
005246
005250
005256

005260
005264

005266
005270
005276

023727
001032
023727
001004
012766
000520
023727
001004
012766
000510
023727
001004
012766
000500
000137

023727
001004
023727
001466
013737
010046
012700
104003

012600
062737
011477
062737
010146
006301
006301
006301

001124

000177

001106

000024

012224

000014

001106

000021

011234

000014

001106

000022

011314

000014

002540
001124

000003

001106

000024

001124

001114

19%:

10%:

11¢:

173732
000002

001234

CMpP

12%

15%:

16%:

TEMPCH
14%

2177

RTNNO, #24
108

#TERM,14(SP)
ENDITD

RINNO, #21

BNE
MOV
BR
cmp

11%
#E021B,14(SP)
ENDITD
RTNNO,#22

MOV
BR
JMP
cMp

#E022B,14(SP)
ENDITD
TTY1H
TEMPCH,#3

BEQ
MoV
mov
MOV
DELAY
MOV
ADD
MOV

ENDITD
TEMPCH,REPT
RO,-(SP)
#30. R0

BNE

BNE
CMpP

000036
000002

Cmp
BNE
cmp
BNE
MOV
BR

ADD

MOV
ASL
ASL
ASL

;BRANCH IF NOT *G
;G0 TO SOFT SWITCH REG INPUT
;RETURN TO EXIT TEST PROPERLY

:ll"l’l’"t**

005134
005142
005144
005152
005154
005162
005164
005172
005174
005202
005204
005212
005214
005222
005224
005230

INPUT?

#177600,TEMPCH

CHGD1(

BNE

104024

SEQ 0056

aSCR2
16%

MOV

BIC

5
PAGE 56

2R5,R2
17¢
aSCR2 ,R2
9%

ADD
MOVB
SUB
MovB
ADD

001234

#DH1100,R¢
DHCNT ,R3
#,R2
R1
SCR1,SCR2
#12,5CR2

BIT
BNE
817
BNE

AL AAARA

005120
005126
005130
005132

03-AUG-79

COMMON ROUTINES

7%:

174174

000004
000020
000016

30A(1052)

138

15%
RTNNQ, #24

(SP)+,RO
#2,5CR2
(R4) ,aSCR2
#2,5CR2
R1,-(SP)
R1
1
R1

JCHECK IF RUBOUT
;BRANCH IF NOT RUBOUT
;TEST 242
;BRANCH IF NOT
;SET RETURN ADR
sRETURN TO EXIT TEST PROPERLY

sTESTZY?

;BRANCH IF NOT
:SET RETURN ADR
;RETURN TO EXIT TEST PROPERLY

:TEST 227

;BRANCH IF NOT
sSET RETURN ADR
JRETURN TO EXIT TEST PROPERLY
: CONTROL
sCHAR = CONTROL=-C ?
;CONTINUE IF NOT

s TEST 247

JEXIT IF TEST 24
;SAVE CHAR FOR TESTS 21 AND 22

;SAVE RO

;DELAY FOR HALF

DUPLEX

:RESTORE RO
;SCR2 EQ ADDR OF LPR
;STORE

INTO LPR

;ADD 2 TO ADDDR IN SCR2
s SAVE R1
;EIND TABLE POINTER
;710 STORE CHAR

;FOR THIS CHANNEL

CZLADDO LA36 DHI1/DJ11 DIAG
CZLADD.PVY
03-AUG-79 09:18

2682
2483
24684
2685
2486
2687
2488
2489
2490
24691
2492
2493

W —-OO

oMM
RN
[V RV RV LU VW LV 10 JV 1V V.1V ]
—.-‘—‘—.—OJ—‘—.—.O

2494
2495
2496
2497
2498
2499
2500
2501
2502
2503
2504

00£320
005322
005324
005330
005332
005336
005340
005346
005354
005362
005366
005370
005372
005374
005376
005400
005402
005410
005412

006301
060301
062701

110011
010177
012601

062737
012777
062737
050277
005724
005201
006302

MACY11

30A(1052)
03-AUG-79
COMMON ROUTINES
ASL

ADD
ADD
move
Mov
mov
ADD
Mov
ADD

006157
173676

000002
177777
000002
173646

001234
173660
001234
17%:

005006

005416
005424
005430

013737

001124

005432
005434
005436
005440
005442
005444
005446
005454
005456
005464
005466
005472

012605
012604
012603
012602
012601
012600
023727
001006
023727
001002
012716
000002

012700
104003

000020

000036

001232

001114

1587

INC
ASL
BCC
DEC
BEQ
ADD
151
JMp

103215

005303
001414
062737
005725
000137

BI1S

001106

Mov
MOV
MOV

(SP)+ RS
(SP)+ R4
(SP)+,R3
(SP)+,R2
(SP)+ R}
(5P)+ ,RO
TEMPCH,#3
1%
RINNO, #24
18
#EQ24R, (SP)

012140

000024
1%:

MOV
RTI

SE@ 0057

;STORE CHAR

;ADDR OF

CHAR

INTO CARA

:SAVE CHAR FOR TESTS 21 & 22
:DELAY FOR HALF DUPLEX

ENDIT
#20,SCR1

ENDIT:

(mpP
BNE
cmp
BNE

(R5)+
7%

R2
as
R3

TEMPCH,REPT
#30.,RO

000003

S
PAGE

;RESTORE R1
;ADD 2 TO ADDR IN SCR?2
;SET CHAR COUNT EQ 1
:ADD 2 TO ADDR IN SCR?2
;SET LINE BIT IN BAR
:INC PTR TO VPTSB FOR NEXT TERM
: INCREMENT CHANNEL NO.
;ROTATE LINE NO. MASK TO NEXT POS.
;D0 NEXT TERM. ON SAME DH11
;DEC COUNT OF DH11'S
sBRANCH IF ALL DONE
;SET UP FOR NEXT DH11
;INC PTR TO EXISTING TERM. TBL.
;DO NEXT DH11

MOV
MOV
DELAY

mov
Mov

R1
R3,R1
#CHARAC-1,R1
RO, (RY)
R1,aSCR2
(SP)+
R1
#2,SCR2
#177777,8S5CR2
#2,SCR2
R2,aSCR2
(R4)
¢
R1

ENDITR:
ENDITD:

Mov

001124

09:23

sCHAR = CONTROL

SEXIT IF NOT
JTEST 242
JEXIT IF NOT
;YES, SET RETURN ADR
;RETURN

CILADDO LA36 DH11/DJ11 DIAG
CILADD P11
03-AUG-79 09:18

MACY11

30A(*052)
03~AUG-79
COMMON ROUTINES
:"""' L & 2

09:23

S
PAGE 58
SEQ 0058

IPRINTJ- -THIS ROUTINE

1S USED TO DRIVE
THE EXISTING DJ11S'

EACH OF THE EXISTING TERMINALS
(AS DEFINED BY THE SET UP IN
ELTAB'"). IF IN THE MAINTENANCE MODE, SR BIT 13 CONTROLS
WHETHER OR NOT ALL DJ11S' ARE DRIVEN OR ONLY THE TERM]NAL
UNDER TEST. EACH TERMINAL IS DRIVEN ONE AT A TIME, PRINTJ
WILL LOOP WAITING FOR THE FIRST ONE TO BE READY TO SEND
ENTER WITH CHARACTER TO SEND IN RO.
ON EACH OF

:tt'l't' LA 24

005510
005512
005514
005516
005520
005526
005530
005536
005540
005546
005550
005556
005560
005566

o000 o (o X o JV IV IV TV IV TV ]
OVB~NO
NS W N — [@2Ve]. 0 )
~ ~oC

—

Y L

AN L N RN L N

NI N1 VT ST T

[V IV TV 3V ] AN LA
AN NNANASANNNANANAND NN

VT V] SI N1, V1, V], ¥], V],V

005570

005576
005600
005606
005610
005614
005622
005626
005632
005636

005640
005646
005654
005656
005660
005664
005672
005676
005700
005706
005714
005722

005730

005732
005740
005742
005750

005737
001754
032777
001441
104021
104022
000745
023727
001333
023727
001004
012766
000726
023727
001004
012766
000716

023727

001004
012766
000706
000137
012737
012705
013703
012702
005001
013737
062737

031502
001124

[el=lelolelolele
e
O—=ONONIN
-0 OO0 —
ORI~
=t
N NN O WO
O NO NONNNNO~N~NN
MO O NI NN NN N I~
VO
B NN NNISNNN
NN N

LR gV IV IV

— OV~ o

005474
005500
005502

001226

PRINTJ:

020000

173534

001124

000177

001106

000024

012224

000014

001106

000021

011234

000014

001106

000022

011314

000014

002540
160010
017402
001226
000001

001232
000004
173350

000004

173336

001232

1%:

2%:

001234

000002
173322
177600
001124

001234
001124
001124
000177

001106

000024

01222¢

000014

BNE

Mov

3s:
4%
5%:

001234
001234

TS7
BEQ
BIT
BEQ
ECHO
INRDY
BR
cmp
BNE
CMP
BNE
MoV
BR
CMp
BNE
MOV
BR
cMp

6%:

BR
JMP
MOV
MOV
Mov
Mov
CLR
MOV
ADD

BIT
BNE

Mov

SuB
1518
BPL
ADD
MoV
BIC
(Mp

BNE

(MpP
BNE
MOV
BR

DJCNT
ENDIT
#BIT13,3SR
3

ENDIY
TEMPCH, #177
ENDITR
RTNNO, #24
1%
#TERM,14(SP)
ENDITD
RTNNO, #21

#EQ21B,14(SP)
ENDITD
RTNNO, #22

3s
#ED22B,14(SP)
ENDITD
TIYIH
#160010,5CR1
#ELTAB,RS

DJCNT,R3

”,R2
R1
SCR1,5CR2
#4,SCR2
aR5,R2
15%

R2,85CR2
¥4 ,5CR2

asCR?
13%

#2,5CR2

aSCRZ, TEMPLH
#177600, TEMPCH
TEMPCH,#177
11%
RTNNO, #26
7%

FTERM,14(SP)

ENDITD

;ANY DJT1S?

:NO, RETURN
;CHECK IF SR 13 IS SET
;CLEAR, DRIVE ALL TERMIINALS
;OUTPUT CHAR TO TERM UNDER TEST
;CHECK IF ANY INPUT
;NO, RETURN
;YES CKECK JF A
RUBOUT
sNO, RETURN

JTEST 242

;BRANCH IF NOT
;SET RETURN ADR
;RETURN 1O EXIT TEST PROPERLY
;TEST 21?
:BRANCH IF NOT
:SET RETURN ADR
;RETURN TO EXIT TEST PROPERLY
sTEST 22?
sBRANCH IF NOT
:SET RETURN ADR
;RETURN TO EXIT TEST PROPERLY

;GO WAIT

sINIT ADDR OF FIRST DJ11
:INIT ADDR OF EXISTING TERM TAB
;COUNT OF DJ11S' TO R3
sINIT CURRENT LINE NO.
sINIT CURRENT CHANNEL NO.

;SET_SCR2=ADDR OF CURRENT DJ11
;SCR2 1S ADDR OF TCR

;TEST

TERMINAL EXISTS

:BRANCH IF NO TERMINAL
sYES,SET LINE NO. IN TCR

:SCR2 1S NOW ADDR OF (SR

:CHECK FOR

INPUTS

;CONTINUE IF NO INPUT
:SET CHAR BUF REG ADR
;GET INPUT CHAR
+MASK

CHAR

;CHECK CHAR

¢BRANCH IF NOT RUBOUT
STEST 242

;BRANCH IF NOT
sSET RETURN ADR
SRETURN TO EXIT TEST PROPERLY

CZLADDO LA36 DH11/DJ11 DIAG
CILADD P11
03-AuG-79 09:18

2575%
2576
2577
2578
2579
2580

2581

2582
2583
2584
2585
2586
2587
2588
2589
2590
2591
2592
2593
2594
2595
2596
2597
2598

2599

2600

2601
2602
2603
2604
2605
2606
2607
2608
2609
2610
2611
2612
2613
2614
2615
2616

006130
006132
006134
006136
006140
006142
006146
006154
006156

023727 001106
001004
012766
011234
000615
023727
001106
001004
012766
011314
000605
000137
002540
023727
001124
001004
023727 001106
001765
013737
001124
010046
012700
000036
104003
012600
162737
000002
052777
000400
173136
005777
100375
000006
062737
173122
017704
000304
177760
042704
020401
001246
173104
110077
005201
006302
103241
005303
001002
000137 005432
062737 000010
005725
000625

006160

000400

005752
005760
005762
005770
005772
006000
006002
006010
006012
006016
006024
006026
006034
006036
006044

006046
006052
006054
006056
006064
006072
006076
006100

006106
006112
006114
006120
006122
006124

MACY11

000021

30AC1052)
O03-AUG-79
COMMON ROUTINES

7%:

000014
000022

cmp
BNE

Mov

8%:

000014

BR
C(mp
BNE

MOV

BR
JMP
CMP
BNE

000003
000024

CMp

BEQ

001114

MOv
MOV
MOV
DELAY
Mov

001234

SuB
BIS
1581
BPL

173142

001234

ADD
Mov
SWAB
BIC
CMp

BNE

15%:

MOVB

INC

ASL

001232

16$:

CHARAC:

B8CC
DEC
BNE
JMP
ADD
187

09:23

S
PAGE

RTNNO,#21

#ED21B,14(SP)

SEQ 0059

sTEST 212

JBRANCH IF

NOT

JSEYT RETURN ADR
JRETURN TO EXIT TEST PROPERLY

ENDITD
RINNO,#22
108
#E022B,14(SP)
ENDITD
TIY1IH
TEMPCH,#3
129
RTNNO, #24
9%
TEMPCH,REPT

JYES, RETURN TO TEST
;SAVE CHAR FOR TESTS 21

#30.,RO

sDELAY FOR HALF DUPLEX

RO,=-(SP)

(SP)+,RO
#2,SCR2
#B118,aSCR2
aSCR2
149
#6,5CR2
aSCR2,R4
R&
#177760,R4
R4 ,R1

RO,aSCR2
R1
R2

R3
16%
ENDIT
#10,SCR1

;TEST 227

JBRANCH IF NOT
;SET RETURN ADR
JRETURN TO EXIT TEST PROPERLY
;G0 T0O CONTROL
;CHAR = (ONTROL-C ?
JBRANCH IF NOT

sTEST 247

;SAVE RO

¢ 22

;RESTORE RO

;RESET PROPER ADR FOR PRINT
;START TRANSMITTER SCANNER
;CHECK STATE OF (SR
:BRANCH IF XMITTER NOT READY
:READY, SCR2 NOW=ADDR OF TBUF
;GET CONTENTS OF TBUF
:SAVE ONLY LINE NO.
;BE SURE SCANNER 1S ON CORRECT LINE
:BRANCH

NOT,

TRY AGAIN

;LOAD TBUF WITH CHAR
; INCREMENT LINE NO.
;SET LINE NO. TO NEXT POSITION
:1F CARRY IS CLEAR DJ11 IS DONE
:DEC COUNT OF DJ11S
;BRANCH IF NOT DONE
;DONE

(R5)+
5%

:SET SCR1 TO ADDR OF NEXT DJ11
sSET RS TO NEXT ELTAB ENTRY
;GO DO NEXT Du11

.BLKB

256.

;CHARACTER STORAGE FOR QUTPUT

CILADDO LA36 DH11/DJ11 DIAG
CZLADD. P11
03-AUG-79 09:18

2617
2618
2619
2620
2621
2622

30A(1052)
PRINTER

03-AUG-79

TESTS

-SBTTL

09:23

5
PAGE €0
StQ 0060

PRINTER TESTS

'XXXXXXKX!X

2623
2624
2625

2626
2627
2628
2629
2630
2631
2632
2633
2634
2635
2636
2637
2638
2639
2640
2641
2642
2643
2644
2645
2646
2647
2648
2649
2650
2651
2652

MACYTT1

,PTO == DATA PATH TEST---FOUR LINES OF ALTERNATING
AND “U'' ARE PRINTED, OUT 10 THE GIVEN PAPER
WIDTH THE PATTERN WILL APPEAR AS FOLOWS.

:
;

syeysyeyrysy

UrUrUsyrUsye

«Yryrysyey
ey
UrUeysyeyeys

SXXXXXXXXXX

006560
006562
006564
006566
006570
006572
006576
006602
006604
006610
006612
006614
006616
006620
006622
006624
006626
006630
006632

000000
006634
104012

P10:

104002

017654
012703
012702
010300
013701
104011
000300
005301

025125
000020

18:

;TEST NUMBER

P11
PRTHDR
TYPEM

HDRO

MOV

SNEXT

;PRINT TEST HEADER
;PRINT COLUMN MESG
#°Us ,R3

001365

MOV
MOV
MOV
PRINTC
SWAB
DEC
BNE
SWAB
CRLF
DEC
BNE

R2
2%

000763

B8R

001374
000303

106006
005302
104001

001112

2%:

CHAIN

TEST

#16..R2
R3,RO
WIDTH,R!
RO
R1
3
R3

;SET FJRST (HAR PAIR
;SET LINE COUNT
;SET CHAR PAIR
:SET COLUMN COUNT
sPRINT CHAR
sSET NEXT CHAR

+DEC COLUMN COUNT
;FINISH LINE

;SET NEXT START CHAR
sCR-LF
sDEC LINE COUNT
;FINISH TEST
JALL DONE, EXIT
;REPEAT TEST

CILADDO LA36 DH11/DJ1Y DIAG
CILADD.P1Y
03-AuG-79 09:18

2653
2654
2655
2656
2657
2658
2659
2660
2661
2662
2663

26646
2665

2666
2667
2668
2669
2670
2671
2672

2673
2674
2675
2676
2677

2678
2679
2680
2681
2682
2683
2684
2685
2686
2687

2688

2689
2690
2691
2692

MACY11

30A(1052)

03-AUG-79

PRINTER TESTS

09:23

5
PAGE &1
SEQ 006!

S XAXXXXAAXX
:PT1

== PRINTER CHARACTER TEST === PRINTS ALL PRINTABLE

SXXXXXXAXXX
006634
006636
006640
006642

006646

006652
006656

006660
006664
006666
006672
006676
006700
006702

006704
006706
006710
006712
006714

000001
006756
104012
012701

012702

012703
010100

004737
010200
004737
012704
010300
104011
005304

001375
104006
122122
105723
020327

PT1:

000040
000100
000140
006726

1%:

2%:

006726
000003

3%:

PRTHDR
MoV

000200

103756
104001
000746

006726
006732
006734
006736

012704
104011
005304
001375

000003

006740
006744

012700
104011

000040

006746
006752
006754

012700
104011
000207

000040

SPSP:
1$:

SP(C:

#40,R1

;PRINT
:SPACE

NUMBER

TEST

TEST HEADER
T0 R

#100,R2
#140,R3
R1,RO
PC,SPSP
R2,RO
PC,SPSP
#3,R4
R3,RO

DEC

CRLF
CMPB
1518
cmp
8LO
CHAIN

(R1)+,(R2)+
(R3)+
R3,#200
2%

;CHECK JF ALL DONE
;BRANCH IF NOT

sREPEAT

MoV
PRINTC
DEC

#3,R4
R&

:SET PRINT COUNT
;PRINT CHAR
;DEC PRINT COUNT

MOV

#40,R0

PRINTC

BNE
SP2:

SNEXT

Mov
Mov
Mov
JSR
MOV
JSR
MOV
MoV

BNE

006720
006722
006724

; TEST

P12

PRINTC

Mov

PRINTC
RTS

#40,R0
PC

:8 T0 R2
:\ TO R}
:FIRST CHAR TO RO
;SEND TWO SPACES
;SECOND CHAR T0 RO
sSEND TWO SPACES
:CHAR COUNT TO R4
:THIRD CHAR TO RO

:PRINT CHAR
: THREE

TIMES

;BRANCH 1F NOT

;CR-LF
:SET NEXT CHARS

;EXIT

TO NEXT

TEST

;FINISH CHAR

;SPACE 1O RO

;PRINT

FIRST

;SPACE 10 RO

SPACE

;PRINT SECOND SPACE
;RETURN

CHARACTERS

CZLADDO LA36 DH11/Du11 DIAG
CZLADD P11
03-AUG-79 09:18

[aS2 V1, V] V1 ST VI N1, V1 V1,91, 07 V1,01, U1, VY, N1, 0T, V1, 971,91 V1, V1, 91 ¥ 1. 07 UT XY ST ST, 1.V, ¢ NN
N N
TNNSNNTNSN
TSN TSNTNTNN SN NN SNNTN NN TN TNTNTN NN NN
NN~
N~~~ ~d ~
BB
MM
A NN
NI
NI N NN N NN PPN
= et s — ol el il ol e el (=
WO DL W=
O VNN NN = OO0 ~NO VNS N=OVBNOWVIWN
OO0

2693
2694
2695
2696
2697
2698
2699
2700
2701
2702
2703

MACY11

30A(1052)

03-AUG-79
PRINTER TESTS

09:23

5
PAGE &2
StQ 00+
¢

SXXXXXXXXXX

P12 -- NON-PRINTING CHARACTER TEST.
PRINTS THE

OCTAL CODE

MNEMONIC,

THE PRINTER

ALL NON-PRINTING CHARACTERS.

FOLLOWING EACH

1S DRIVEN BY

CODE (00C THROUGH 037 PLUS 177).
(INCLUDING THOSE FOR OPTIONS)

REFER

TO THE

DOCUMENT

FOR

THE

WILL BE

A LIST

NON-PRINTING

ALL CONTROL CHARACTERS

SKIPPED.

THOSE

PRINTED.

THIS TEST
FOLLOWED BY THE MNEMONIC

SXXXXAXXXXX

006756
006760
006762
006764
006766
006772
006776
007002
007004
007006
007010
007012
007016
007020
007024
007026
007032
007034
007040

000002
007406
1064012

007144
000003

000010

1%:

2%:
3%:

4%:

000002
000004

000007
000020
000040

5%:

6%:

000003

88
9%:

006740

104006

PRTHDR
(LR
MOV
Mov
Mov
MOovB
PRINTC
DEC
BNE
CHpP
BEQ
CMP

mMov
CMP

BNE
BR
INC
INC

mov
mov
PRINTC

DEC
BNE
INC
DEC
8EQ
JSR

PRINT(

10%:

000003
000177

2
P13

BEQ
CMP
BEQ
CMP
BNE

000033

007042
007046
007052
007054
007056
007060
007062
007064
007070
007072
007074
007076
007100
007102
007104
007110
007112
007114
007116
007120

007124
007130
007132
007134
007136

PT2:

11%:

12%:

BR
CRLF
BR

MOV
Mov
PRINTC

DEC

BNE
CRLF

;TEST NUMBER
JNEXT TEST

FLINEZ2,RY

;PRINT

TEST

HEADER

;NON-PRINTABLE CHAR..NULL

;ADDR OF CHAR STRING 10 RI

IS FIRST

#3,R2
#10,R4
(R1)+,R0

;NO. OF CHAR GROUPS PER LINE
:NO. OF CHARS PER GROUP
:CHAR INTO RO

R4
4%
#2,R3

;9 CHARS. PRINTED?
:BRANCH IF NOT
;CHAR = STX?

7$
¥4 ,R3

6%
#33,R3
7%
#7,R3
5%

#20,R3
¥60,R3

8%
11%
R3

R3
R3,RO
#3,R4

sPRINT CHAR

sYES, SET NEXT
:CHAR = EOT?

CHAR

;YES, SET NEXT CHAR
;CHAR = ESC?
:YES, SET NEXT CHAR
;CHAR = BELL?
;BRANCH IF NOT A BELL

;SET NEXT CHAR
1S IT THE LAST?

+BRANCH IF NO
:YES, OUTPUT LAST
: SKIP CHAR

CHAR

(177)

:SKIP CHAR
:NON-PRINTABLE CHAR 10 RO

;A COUNT OF

3 10 R4

;:DRIVE PRINTER WITH NON-PRINTABLE CHAR

:DECREMENT

COUNTER

9%
R3
R
10%
PC,sP2

;BRANCH IF NOT ZERO (3 TIMES)
: INCREMENT CHAR.CODE
sDEC. GROUPS PER LINE COUNTER
;BRANCH IF ZERO
:SEND 3 SPACES

b33

s CONTINUE

2%
#3,R4

#177,R0
R4

12%

sSEND A CR,LF
;60 _DO NEXT LINE
:A 3 COUNT T0 Ré
;A DEL TO RO

;PRINT CHAR
;DECREMENT

;BRANCH

COUNTER

NOT

;SEND A CR, LF

ZERO

(3)

A BNUNMA
&oerun
=000
N
NN wn o~

~N =~ NSNS

AN TaS 1 V1 S 1 NY, V7,87 VY NY, VY. VY.V NN
NIV

STV NTNYNT ST
NN
N~ N~ ~

CILADDO LA36 DH11/Dy11 DIAG
CILADD P
03-AuUG-79 09:18

IS4

NN NNNSNN~Ny ~N~N~
00~ ~~~ NNSNSN~N ~ooo
OO~
NN [, OV~

766

007140
007142

104001
000710

007144
007152
007160
007166
007174
007202
007210
007216
007224
007232
007240
007246
007254
007262
007270
007276
007304
007312
007320
007326
007334
007342
007350
007356
007364
007372
007400

030060
046125
051440
020062
030060
045503
042040
020061
031060
031103
042040
020064
031060
045501
051440
020067
031460
047101
042440
020062
031460
020123
043440
020066
031460
020123
042040
007406

MACY11

30A(1052)
PRINTER

03-AUG-79

TESTS

CHAIN

020060
030060
044117
051440
020066
031060
062514
062040

020062
031060
031503
042040
020065
031060
047131
062440
020060
031460
020115
051440
020064
031460
020123
051040
020067
033461
046105

0647040
020061
030060
056124
040440
020060
031060
030503
042040
020063
031060
032103
047040
020066
031060
041124
0461440
020061
031460
041125
043040
020065
031460
020123
052440
020067
040

LINE2:

09:22

5
PAGE ¢3
SEQ 00¢

sCHAIN TO NEXT

JREPEAT TEST

ASCII

/000

NULOOT

SOH002

STx/

ASC11

/006

ACx020

DLEO2!

bCY/

LASCII

7022

0C2023

DC3024

DC&/

ASCII

/025

NAKO26

SYNO27

ETB/

LASCIL

/030

CANO3Y

EMm 032

suB/

LASCII

/034

FS 035

GS 036

LASC1]

/1037

us 177

DEL

EVEN

TEST

CZLADDO LA36 DHY1/DJ11 DIAG
CZLADD.PYY
03-AUG-79 09:18

2806
2807

2808
2809
2810
2811
2812
2813
2814
2815
2816
2817
2818
2819
2820

30A(1052)
PRINTER

03-AUG-79

TESTS

09:23

nS
PAGE ¢4
SEQ 0064

SXAXXXXAXNX

TN WA

P13 --

CARRIAGE RETURN TEST -~
THE LINE CONSISTS OF A STRING OF 0'S AND
X'Ss.
FIRST, THE O'S ARE PRINTED OUT TO THE LAST
COLUMN WITH A SPACE SEPARATING EACH.
THEN THE
CARRIAGE IS SPACED TO THE FIRST BLANK SPACE, AND X
PRINTED AND THE RETURNED TO THE MARGIN.
THIS

PROCESS 1S CONTINUE UNTIL ALL
THE ZEROES HAVE BEEN FILLED.

SPACES BETWEEN

s XXAXAXAXXAX

007406
007410
007412
007414
007420
007424
007430

007432

007434
007436
007442
007444
007446
007450
007456

007462
007466
007470
007472
007476
007500
007502
007510
007516

007520

007522
007524

000003
007526
104012
005037
013701
012700
104011
005301
001404
004737
005301
001367
104014
012737
013701
004737
005301
001374
012700
104011
104014
062737

023737
103757
104010
104001

000733

PT13:
1%:

2%:

006746

000001
001116
006746

001116

000130
000002
001116

3%
4%

5%:

0011
oO0OMNM

—

2781
2782
2783
2784
2785
2786
2787
2788
2789
2790
2791
2792
2793
2794
2795
2796
2797
2798
2799
2800
2801
2802
2803
2804
2805

MACY11

P14
PRTHDR
(LR
MOV
MOV
PRINTC
DEC
BEQ
JSR
DEC
BNE
(R
MOV
MOV
JSR
DEC
BNE
Mov
PRINTC
(R
ADD
Cmp

BLO
LFf

CHAIN

SPCNT
WIDTH,R1
#117,R0

R1
3%

PC,SPC

R1
2%

#1,SPCNT

SPCNT,R1

PC,SPC

5%
#130,R0
¥2,SPCNT
SPCNT ,WIDTH
13

s TEST NUMBER
JNEXT TEST
;PRINT TEST HEADER

;CLEAR SPACE COUNTER
;POSITION COUNTER T0 R1
:''0'" T0 RO
;PRINT THE ''0"’

:DECREMENT POSITION COUNTER
;BRANCH IF 0
sPRINT A SPACE
;DECREMENT POSITION COUNTER
:BRANCH IF NOT ZERO
:SEND (R
;SPACE, COUNTER SET T0 1

:NO. OF SPACES T0 R}
;PRINT SPACE
;DECREMENT SPACE COUNTER
;BRANCH IF NOT ZERO
;X" INTO RO

;SEND CR
; INCREMENT SPACE COUNT BY 2
: COMPARE POSITION COUNTER WITH COLM.

;BRANCH IF LOWER

;SEND LF
;CHAIN TO NEXT TEST
sREPEAT TEST

COUNT

CILADDO LA36 DH11/DJ11 DIAG
CILADD.P11
03-AUG-79 09:18

2821
2822
2823
2824
2825
2826
2827
2828
2829
2830
2831
2832
2833
2834
2835

2836
2837
2838
2839
2840
2841

2842
2843
2844

2845
2846
2847
2848
2849
2850
2851
2852
2853
2854
2855
2856
2857
2858
2859
2860
2861
2862
2863
2864

2865
2866
2867
2868
2869
2870
2871
2872

MACY11

30A(1052)

03-AUG-79

PRINTER TESTS

09:23

PAGE &>
SEQ O(+'

'XXXXXKXXXX

P14 == MULTIPLE

LINE

FEED

TEST

-- 63 LINE

SENT WITH A REFERENCE LINE AT

FEEDS

ARE

THE START AND END.

A NUMBER IS PRINTED WHICH INDICATES THE NUMBER OF
FEEDS THAT WILL BE ISSUED BEFORE THE NEXT
NUMBER OR REFERENCE LINE IS PRINTED.

LINE

SXXXXXXXXAX

007526
007530
007532
007534
007542
007546
007552
007556
007562
007564
007566
007570
007574
007602
007604
007606
007610
007612
007614
007616
007620
007624
007630
007632
007634

000004
007704
104012
012737
013701
012702
004737
013701
104010
005301
001375
006337
022737
001406
112200
104011
112200
104011

104014
000757
013701
004737
104010
104001

000001
001112
007666
007636
001132

001132
000100

001132

1%:

2%:
3%

001132

001112
007636

4%:

PRTHDR

Mov

JSR
Mov

OEC
BNE
ASL
cMp
BEQ

(R
BR
MoV
JSR
LF

CHAIN
BR

000137

1$:

LINES:

:TEST

P15

move
PRINTC
MOvB
PRINTC

REF :

030460
034060
030060

Mov
MOV

000737

007636
007640
007642
007644
007646
007650
007654
007656
007660
007662
007664
007666
007674
007702

PT4:

NUMBER

JNEXT TEST

#1,LFCNT
WIDTH,R!

#LINES,R2
PC,REF

LFCNT,RY

LFCNT
#BIT6,LFCNT
43

(R2)+ R0

(R2)+,R0

WIDTH,R?
PC,REF

JPRINT

TEST HEADER

sLINE FEED COUNT TO 1
sCOLUMN COUNT 10 R1
;ADDR OF NUMBER FIELD 1O RZ2
;PRINT REFERENCE LINE
sLINE FEED COUNT TO R
;SEND LF
;OECREMENT COUNTER
JBRANCH 1F NOT YET O
;DOUBLE LINE FEED COUNT
:TEST IF COUNT IS 32
sBRANCH If =32, END
;NUMBER T0 RO
JPRINT IT
;sNUMBER 10 RO
JPRINT IT
;SEND (R
;DRIVE THE LINEFEEDS
;COLUMN COUNT T0 R1
sSEND END REFERENCE LINE
sSEND LF

;REPEAT TEST

Move
PRINTC
MOvVB
PRINTC
18T
Mov
PRINTC
DEC
BNE
(R
RTS

(R2)+,RO

;NUMBER T0 RO
sPRINT IT
:NUMBER 10 RO

LASClI

/01020408163200/

.EVEN

sPRINT

;DECREASE COUNTER BY 2
:DASH (=) TO RO
sPRINT IT
;DECREMENT COLUMN COUNTER
sBRANCH IF NO ZERO
. SEND CR
;RETURN

r—

(ZLADDO LA3G DHI1/DJ1Y DIAG
(2. ADD.P11
03-AUG-79 09:18

007704
007706
907710

007712
097716
007720
007724
007726
007730
007732
007736
007740
007742
007750
007752
007756
007760
007762
007766
007772
007774
007776
010000
010002
010006

010012
10014
il el

001375
012700
104011
104011

023727
001404
012700
104003
000407
012700
12701
104011

005301
001375
104006
013701
012700
106011
1064010

=D okl

=D
el
D
)
il

\v.
~

P15:
001112

i$-

000060

PAGE ¢6
SEQ 0066

SINGLE LINE FEED TEST -TESTS THE LINE
CAPABILITY FROM ALL COLUMNS.

000062
001112

oV
PRINTC
PRINTC
cmMp

000204

BEQ

003410
000063
000100

001112
000134

004737

010052

012700

001750

104003
004737
104006
104001
000720

013701
012700

MOV
DELAY

3%:
4%:

5%:

6$%:

1064011

005301
001407
005200
020027
101771

012700
000766
000207

B8R

Mov
MOV
PRINTC
DEC

BNE
CRLF
Mov
MoV

PRINTC
LF

DEC
BNE
CR
JSR
CRLF

MOv

DELAY
JSR

010052

001112
000661

P16
PRTHDR
MOV
187
MOV
PRINTC
DEC

BNE

005301
00137¢

104006

——
el

000005
010110
104012
013701
0057461
012700
104011
005301

106014

[« )

el
ol
ld
)
D
D
)
s

2919
2920
2921
2922
2923
2924
2925
2926

TESTS

09:23

FEED

DX XXX

)

2918

PRINTER

03-AUG-79

S XXXAXAXXXX

2917

30A(1052)

;P15--

wlelalelelelelelolelolalalalelolalololololelo)

2873
2874
2875
2876
2877
2878
2879
2880
2881
2882
2883
2884
2885
2886
2887
2888
2889
2890
2891
2892
2893
2894
2895
2896
2897
2898
2899
2900
2901
2902
2903
2904
2905
2906
2907
2908
2909
2910
2911
2912
2913
2914
2915
2916

MACY11

CRLF
CHAIN

PT5AL:
1%:

000071
000060

Mov
Mov
PRINT(

DEC
BEQ
INC
Cmp
BLOS

Mov

2%:

RIS

WIDTH,R1

sTEST NUMBER
JNEXT TEST
;PRINT TEST MEADER
;COLUMN COUNT T0 R1
;DECREASE BY 2

=(R1)
#60,R0

;'0°

Ri
2%

JBRANCH IF

¥62,R0

WIDTH, #132.
3%
#3410,R0

N63,RO
#100,R1

R1
4%

WIDTH,R1
#134,R0
R1

6%
PC,PT5AL
#1750,R0
PC,PTSAL

TO RO

sSEND O
sDECREMENT COLUMN COUNTER

;SEND A 2

NOT

ZERO

;SEND A SECOND TWwO
: COMPARE COLUMN COUNT
:BRANCH IF EQ 132
;DELAY 1.8 SEC

;3'S TO RO

;64 TO COUNTER
JSEND CHARACTER
;DECREMENT COUNT
;BRANCH 1F NOT ZERO
JSEND A (CR,LF
;NO. COLUMNS 70 R1
sBACKSLASH T0 RO
;SEND IT
;SEND LF
;DECREMENT COUNTER
sBRANCH IF NOT ZEROQ.
;SEND CR

:SEND REF LINE M1
;SEND A CR,LF
;DELAY 1 SEC

;SEND A SECOND REF. LINE
:SEND A CR,LF
;CHAIN TO NEXT TEST

SREPEAT TEST

;COLUMN COUNT TO R1
;71" 10 RO

;PRINT RO
;DECREMENT COUNTER
;BRANCH IF=0
s INCREMENT CHARACTER

;COMP CHAR 10 ''9''
;BRANCH IF LOWER OR SAME

;RESET CHAR T0 ''0''
s CONTINUE

sPINISHED, RETURN TO CALLER

CIZLADDO LA36 DHI1/DJ11 DIAG
CILADD P11
03-AUG-79 09:18

2927
2928
2929
2930
2931
2932
2933
2934
2935
2936
2937
2938

;PTA=~;

09:23

6
PAGE &7
SEQ 0067

BACKSPACE TEST ~- A REFERENCE LINE SUCH AS IN
TEST P15 1S PRINTED.
THE SECOND LINE CONSISTS

OF PRINTING A BACKSLASH, BACKSPACE AND FORWARD
SLASH COMBINATION OUT TO THE GIVEN COLUMN WIDTH.
THIS LINE IS THEN FOLLOWED BY THE SAME TWO REFERENCE
LINES AS PRINTED IN TEST P15.

s s s e

SXXXXXXAXXX

SrNNOIMNO

NN
3 2

SNSRI

o O

—_—_

000006

PT6:

010272

1064012
013701
005741
012700
104011

005301
001375
012700
104011
106011

023727
001404

012700
104003
000407

012700
012701
104011

001112

R1
2%
#62.R0

R1
4%

MOV

#134,R0

001112
000134

5%:

6%:

PRINTC

MoV

PRINTC

#100.,R1

WIDTH,R1

000010

Mov

#10,R0

000057

MOV
PRINTC
DEC
BNE
LF
(R
JSR
CRLF
MOV
DELAY
JSR
CRLF

#57,R0

010052

PRINTC

CHAIN

JSEND A "2

;3'S 10 RO

DEC
BNE
CRLF

sPRINT TEST HEADER
s COLUMN COUNT T0 R1
;DECREMENT BY 2
;0" 10 RO
;SEND 0
;DECREMENT COLUMN COUNTER
:BRANCH IF NOT ZERO
;2" TO RO

WIDTH,#132.
3%
¥#3410,R0

5%
#63,R0

3%:

NUMBER
TEST

sSEND A SECOND ''2°
;COMPARE COLUMN COUNT
;BRANCH IF EQ 132
;DELAY 1.8 SEC

000063
000100

DELAY

O OO
oroorn

WIDTH,RI
=(R1)
#60,R0

BR
mov
MOV

001750

006712

PRINTC

DEC
BNE
MOV
PRINT(C
PRINTC
cmp

;TEST
JNEXT

003410

010052

norororo
N

270

000204

¢
P17
PRTHDR
MOV
1S7
MoV

8EQ
Mov

o
[

Q==

ARMEAYE
pR O N LB S 1V] >

262
244

2%:

000062

oo o~

OO0~

250

nrorno
N roro o
—
N [o¥1,8]

2973
2974
2975
2976
2977
2978
2979

701
700
011

1%:

000060

005301
001375

2963
2964
2965
2966
2967
2968
2969
2970
297N

2972

30A(1052)
03-AUG-79
FRINTER TESTS
SXXXXXAAXXX

2939

2940
2941
2942
2943
2944
2945
2946
2947
2948
2949
2950
2951
2952
2953
2954
2955
2956
2957
2958
2959
2960
2961
2962

MACYTT

PC.PTS5AL
#1750,R0

;64 TO COUNTER
;SEND CHAR
;DECREMENT COUNTER
sCONTINUE 1F NOT DONE
;SEND A CR,LF
sCOLUMN COUNT T0 R1
sBACKSLASH T0 RO
;SEND IT
sBACKSPACE T0 RO
JSEND IT
;FORWORD SLASH 10 RO
JSEND IT
JEND OF PAPER
;BRANCH IF NO
;SEND LF
;SEND (R

;SEND REF LINE M

;SEND A (R,LF

;DELAY 1 SEC

PC,PTSAL

;SEND SECOND REF LINE

;CHAIN TO NEXT TEST
;REPEAT TEST

;SEND A CR,LF

CZLADDO LA36 DHI1/DJ11 DIAG
CILADD P11
03-AUG-79 09:18

PRINTER

P17--

03-AUG-79

TESTS

09:23

6
PAGE €63
SEQ 0068

OVERPRINT TEST-- A ROW OF ALTERNATING M'S AND
SPACES ARE PRINTED, OUT TO THE LAST COLUMN AND OVERPRINTED TwICE.
A SECOND LINE OF ALTERNATING SPACES AND *'@°S'" IS THEN
SENT 3 TIMES AS THE FIRSY LINE.
THIS IS FOLLOWED
BY A THIRD AND FINAL LINE OF ALTERNATING ‘&'
AND

SPACES.

SXXXXXXXXXX

000007
010504
1064012
012703

013701
012700

104011
005301
001404
004737
005301
001367
022703
001003

000002
001112
000115

P17:

14
PT10

1%:

Mov

2%:
3%:

006746
000002

104014

4%:

5% :

005303
000757

005703
001373

104006

0
0

we
~

0356
0362
0366
0370
0372
0

»~

404
410
—

3021
3022
3023
3024
3025
3026
3027
3028
3029
3030
3031
3032
3033
3034
3035

30A(1052)

SXAXXNXXXXX

PO
o

2980
2981
2982
2983
2984
2985
2986
2987
2988
2989
2990
2991
2992
2993%
2994
2995
2996
2997
2998
2999
3000
3001
3002
3003
3004
3005
3006
3007
3008
3009
3010
301
3012
3013
3014
3015
3016
3017
1018
3019
3020

MACY11

440
442

005723
013701
004737
005301
001405
012700
104011

005301
001367
022703
001003
106014
005303
000757
005703
001373
104006
005723
013701
012700
104011

005301
001404
004737
005301

001112
006746

7%:

8%:

000100

000002

9%:

11%:

006746

12%:
13%:

¥2,R3

MOV
MOV

WIDTH,R1
#115,R0

DEC
BEQ
JSR
DEC

R1
4%
PC,SPC
R1

cMp

¥2,R3

PRINTC

BNE

CR
DE(
BR
151
BNE
CRLF

R3
2%
R3
5%

MOV

WIDTH,R1

183

JSR
DEC

(R3)+

BEQ
Moy

PC,SPC
R1
9%
#100,R0

DEC
BNE

R1
8%

BNE

11%

PRINTC

10%:

001112
000046

PRTHDR

{mMp

#2,R3

DEC

151

BNE
CRLF
TS7
MOV
MOV

(R3)+
WIDTH,RY
#46,R0

DEC
BEQ

R1
14%

PRINT(

JSR

DEC

10%

PC,SPC

:TEST NUMBER
SNEXT TEST
;PRINT TEST HEADER
;2 COUNT T0 R3
;NO. OF COLUMNS TO R1
;PRINT M
JEND OF LINE
;BRANCH 1F YES
JSEND SPACE
JEND OF LINE?
sBRANCH IF NO

;TEST R3

sBRANCH IF NOT FIRST TIME
;SEND CR
sDECREASE LINE COUNTER
JREPEAT LINE

;THIRD TIME?

;BRANCH IF NOT
sNEXT LINE
;REPEAT COUNTER TO R3
;COLUMN COUNT 10 R1
;SEND SPACE
;DECREASE COLUMN COUNT

;BRANCH IF O, END OF LINE
;79 T0 RO

JSEND T
;DECREASE (OLUMN (OUNT
;BRANCH IF NOT 0 (NOT END)
sEND OF LINE, FIRST TIME?
sBRANCH IF NOT
;SEND CR

sDECREASE LINE COUNTER
;REPEAT LINE
;TEST IF THIRD REPEAT

sBRANCH IF NOT
;D0 NEXT LINE
sLINE REPEAT COUNTER T0 R3
;COLUMN COUNT T0 R1
;U8 TO RO
sPRINT 17
;DECREASE COLUMN COUNT
;BRANCH IF END
;SEND SPACE
;DECREASE COLUMN COUN?

CILADDO LA36 DH11/DJ1Y DIAG
CZLADD.P11
03-AuG-79 09:18

3036
3037
3038
3039
30640
3041
30642
30643
3044
3045
3046

0104564
010456
010462
019464
010466
010470
010472
010474
010476
010500
010502

001367
022705
001003
104014
005303
000757
005703

001373
104006

106001
000676

000002

MACYTT

30A(1052)
03-AUG-79
PRINTER TESTS

14%:
15%:
16%:

BhE
cHpP
BNE
(R
DEC
BR
18T

R3
129
R3

CHAIN
BR

BNE
CRLF

13%
¥2,R3
16%

15%

09:23

)
PAGE &9
SEQ 0069

;BRANCH IF NOT END
TEST IF FIRST TIME
;BRANCH IF =2, FIRST TIME
;CARRIAGE RETURN
;DECREASE REPEAT COUNTER
sPRINT LINE AGAIN
:TEST IF END, R3=0
sBRANCH IF NOT END
:SEND (R,LF
;sCHAIN TO NEXT TEST
;REPEAT TESTY

CZLADDO LA36 DH11/DJ11 DIAG
CILADD.PY
03-AUG-79 09:18

MACYT1

3047
3048
3049
3050
3051
3052
3053

30A(1052)
03-AUG-79
PRINTER TESTS

09:23

PAGE

70
SEQ 0070

SXAXXXXXXXX
:
:PT10-- PRINTING FREQUENCY TEST-- 120 H'S ARE PRINTFD ON & LINES
;
30 PER LINE. THE TEST IS SUCH THAT BETWEEN THE FIRST AND SECOND
:
"M A 30 MSEC DELAY IS INTRODUCED. THIS DELAY IS THEN INCREASED
;
BETWEEN CHARACTERS OUT TO 60 CHARACTERS IN AN EXPONENTIAL
;
MANNER. THE DELAY IS THEN DECREASED IN THE SAME MANNER OUT 10 THE

gg;g

120TH CHARACTER. THIS DELAY IS CALCULATED AS FOLLOWS;

gggg

NEW DELAY = OLD DELAY [+ OR -] (OLD DELAY/16 + OLD DELAY/!28 )

3058
3059
3060
3061
3062
3063

SXXXXXXXXXX

3064
3065

3066
3067
3068
3069
3070
3071
3072
3073
3074
3075
3076
3077
3078

010504
010506
010510
010512
010516
010522
010530
010534
010536
010542
010544

000010
010642
104012
012701
012702
012737
012700
104011
012700
104003
005301

3082
3083
3084
3085
3086

010546
010550
010552
010554
010560
010562
010564
010566
010570
010572
010574
010576
010600
010602
010606
010610

001426
005302
001430
013704
006204
006204
006204
006204
010405
006204
006204
006204
060405
022702
003403
160537

3088
3089
3090
3091
3092
3093
3094
3095

010616
010622
010624
010626
010632
01063&
010636
010640

060537
000742
104006
012701
000746
104006
104001
00072¢

3079
3080
3081

3087

010614

000745

PT10:

000036

000170
000036

000110
000036

1$:
010540

28:
3%:

4%:

010540

000074
010540
010540
00003¢

5% :
6%

7%:

10
PT1
PRTHDR
MOV
MoV
MoV
MOV
PRINTC
MoV
DELAY
DEC

BEQ
DEC
BEQ
MOV
ASR
ASR
ASR
ASR
MOV
ASR
ASR
ASR
ADD
CMp
BLE
SUB

B8R

ADD
B8R
CRLF
MoV
BR
CRLF
CHAIN
BR

#36,R1

#120.,R2
#30.,38+2

#110,R0

#30.,R0
R1
6%
R¢
7%
38+2,R4
R4
R4
R4
R&4

R4 ,RS
R4
R4

R4
R4 RS
#60.,R2
5%
RS,38+2

RS,38+2
2%
#36,R1
43
18

;TEST NUMBER
JNEXT TEST
;PRINT TEST HEADER
;SET R1=30
;SET CHAR COUNT = 120
;SET UP DELAY VALUE
W TO RO
JSEND IT

;DELAY
;DEC. COUNT OF CHARS PER LINE
;BRANCH IF 0, END OF LINE
;DECREMENT CHAR COUNTER
;BRANCH IF END
;GET OLD DELAY
;CAL 1/16 OF OLD DELAY

;SAVE 1/16 IN RS
;CAL 1/128 OF OLD DELAY
;1716 +1/128 10 RS
;TEST WHICH HALF OF THE 120 CHARS.
;BRANCH IF LT OR EQ 60
:GT 51, DECREASE DELAY BY 34 MEC.

;GO PRINT AGAIN

;LT HALF WAY, ADD DELAY OF
;60 PRINT AGAIN
JSEND CRLF
:SET R1=30

;SEND CR,LF
JCHAIN TO NEXT TEST
;REPEAT TEST

34 MEC.

CZLADDO LA36 DH11/DulY DIAG
CILADD.PIY
03-AUG=-79 09:18

3096
3097
3098
3099

3105

3106
3107

3108
3109
3110
3111
3112
3113

g}}g

30A(1052)
03-AUG-79
PRINTER TESTS

09:23

6
PAGE

SEQ 0071

SNOOOCXXXNXNXX
:
;PT11-- RIBBON FEED TEST -- THIS TEST PRINTS A SINGLE COLUMN
:
OF X'S (24 LINES) DOWN THE LEFT MARGIN OF THE PAGE.
VISUALLY

3}89

3102
3103
3106

MACY1Y

CHECK THE RIBBON REED MECHANISM FOR PROPER OPERATICN.

SXXXNXXXXXX

010642

010644

010646

010650

010654
010660
010662
010664
010666
010670

010672

000011

PT11:

010674

104012

0127017

012700
104011
104006
005301
001372
104001

000030

000130

1%:

2%:

000766

:TEST NUMBER

PT12

PRTHDR

MOV

mov
PRINTC
CRLF
DEC
8NE
CHAIN

B8R

SNEXT
#30,R1

#130,R0

RY
23

TEST

;PRINT TEST HEADER
:SET R1=2¢4

:SET CHAR = X
;PRINT X
;SEND CR-LF
;DEC COUNT
;BRANCH IF NOT DONE TEST
;CHAIN TO NEXT TEST

;REPEAT TEST

3116

g}}g

XXX X

3119
3120

:PT12-=
PRINTER BELL TEST-- THE LAST TEST IN THE
:
PRINTER TEST SEQUENCE.
THIS TEST OQUTPUTS

3123
3124
3125
3126
3127
3128
3129
3130

SXXXXNXXXXX

g:g;

010674
010676
010700
010702
010706
010712

010722
010726

104012
012701
012700
104011
005301
001373
104010
012700
104003

010730
010734
010736
010740
010742
010744
010746
010750
010752

013700
001405
000005
004710
000240
000240
000240
104001
000753

3131

010714

3133

010720

3132

313
;:;S
6

3137
3138
3139
3140
3141
3142
3143
3144
3145

000012
006560

010716

PT12:
000010
000007

003720

000042

PT12A:
1$:

EIGHT BELL SIGNALS TO THE PRINTER

12
P10

PRTHDR
MOV
MOV
PRINTC
DEC
BNE
LF
MOV
DELAY

MOV
BEQ
RESET
LOGICAL:JSR
NOP
NOP
NOP
HERE:
CHAIN
B8R

[ ALV D
#7.R0

#3720,R0

362 RO
HERE

;THIS TEST
JNEXT TEST
;PRINT TEST HEADER
;COUNTER T0 R1
;BELL TO RO
;SEND IT

;DECREMENT COUNT

;BRANCH IF NOT ZERO

;SEND LF

;DELAY 2 SEC BEFORE RESTARTING

;CHECK IF UNDER ACT11 OR XXDP
;CONTINUE TEST SEQUENCE

PC, (RO)

PT12A

;CHAIN TO NEXT TEST
;REPEAT TEST

CZLADDO LA36 DH11/DJ1Y DIAG
CILADD.PI
03-AUG-79 09:18

PMACY11

30A(1052)
03-AUG-79
PRINTER TESTS

09:23

PAGE

72
SEQ 0072

3146
3147
3148
3149
3150
3151
3152

IXXXXXXXNXX
:
PY17--LIFE TEST
:
THIS TEST PRINTS 2 FULL LINES OF EACH PRINTABLE
:
CHARACTER AND OVERPRINTS THE SECOND LINE & TIMES.
:
THIS TEST IS CONTINUOUS RUNNING ONCE INITIATED,
:
LOOPING AUTOMATICALLY ON ITSELF.

3155
3156
3157
3158
3159
3160
3161
3162
3163
3164
3165
3166
3167
3168
3169
3170
3171
3172
3173
31764

IXXXXXXAXNX

g}gz

3175
3176
3177
3178
3179
2180
3181
3182
3183
3186
3185
3186
3187
3188
3189
3190
3191
;}gg

010756
010756
010760
010764
010766
010770
0107764
010776
011004
011010
011014
011016
011020
011022
011024
011030
011034
011040
011042
011044
011046
011050
011052
011054
011056
011062
011070
011072
011076
011102
011106
011112
011114
011116
011120
011122

005301
001373
104014
005302
001366
104010
005237
022737
001345
005237
012700
013701
012702
104015
104002
017536
104001
000725

3194

011124

000000

000017
010754
000137
000017
010754
005037
104012
012737
013701
013700
104011
005301
001373
104006
012702
013701
013700
104011

PT178:
010776

PI17:

011124
000041
001112
001114

001114

000005
001112
001114

001114
000177

011124
017555
011124
000004

PTI17D:
1$:
28:

3s:
48

001114

END OF PASS COUNT IS CLEARED WHENEVER THE TEST IS RESTARTED.

17
PT178
JMP
17
PI178
CLR
PRTHDR
MOV
MoV
MoV
PRINTC
DEC
BNE
CRLF
MoV
MoV
MoV
PRINTC
DEC
BNE
CR
DEC
BNE
LF
INC
cmp
BNE
INC
MoV
Mov
MOV
BTOASC
TYPEM
ENDPAS
CHAIN
BR

PASCNT: 0

PT17D
PASCNT
#41,REPT
WIDTH,R)
REPT,RO

R1
2%
#5,R2
WIDTH,R1
REPT,RO

R1
X3
R?
3$
REPT
#177 ,REPT
1%
PASCNT
NPASMES RO
PASCNT R
#46 ,R2

PI17D

;TEST NUMBER
SNEXT TEST
; CONTINUE
:TEST NUMBER
sNEXT TEST
;CLEAR PASS COUNT
;PRINT TEST HEADER
;SET START CHAR
;SET COLUMN COUNT
;GET CHAR
;SEND CHAR
;DECREMENT COUNT
;BRANCH IF NOT DONE
;SEND CR-LF
;SET OVERPRINT COUNT
;SET COLUMN COUNT
;GET CHAR
;SEND CHAR
;DECREMENT COUNT
:BRANCH If NOT DONE
;SEND CR
;DONE OVERPRINTS?
;NO, CONTINUE
;SEND LF
;SET NEXT CHAR
;DONE CHAR SET?
;NO, CONTINUE
; INCREMENT PASS COUNT
;SET MESSAGE ADDRESS
:# 10 CONVERT
:# DIGITS
;CONVERT PASS COUNT TO ASCII
;TYPE PASS COUNT

;REPEAT TEST

CZLADDO LA36 DHI1/DJ11 DIAG
CILADD.PY
03-AUG-79 09:18

3195
3196
3197
3198
3199
3200
3201
3202
3203
3204
3205
3206
3207
3208
3209

3222
3223
3224
3225
3226

30A(1052)
03-AUG-79
ECHO TESTS

.SBTTL

09:23

6
PAGE

73
SEQ 0073

ECHO TESTS

S XXXXXKXKXX

gg%?
3212
3213
3214
3215
3216
3217
3218
3219
3220
3221

MACY!T

:E020-:
;
;
:
:

CHMARACTER ECHO TEST-- ALL PRINTABLE AND
NON-PRINTING CHARACTERS TYPED ON THE KEYBOARD
ARE USED TO DRIVE THE PRINTER, ONE CHARACTER AT
A TIME.
A "RUBOUT' WILL CAUSE THE TEST TO BE
TERMINATED.

£020:

20
E021
PRTHDR
READ
MOV
DELAY
MOV
cmp
BEQ
ECHO

SXXXNXANXAXX
011126
011130
011132
0111346
011136
011142
011144
011150
0111564
011156

011160
011162
011164
011166
011170

000020
011172
104012
104013
012700
104003
013700
022700
001402
104021

000765
104002
020017
104001

000761

000036

18:

001124
000177

2%:

B8R
TYPEM
ECOEND
CHAIN

#30.,R0
TEMPCH,RO
#177,R0
28

:TEST NUMBER
SNEXT TEST
;PRINT TEST HEADER
;GO WAIT FOR KEYBOARD INPUT
;DELAY FOR HALF DUPLEX
;GET CHAR
;CHECK IF RUBOUT
;BRANCH IF YES
sNO, CHECK PRINTER READY

;PRINT TERMINATION MESSAGE
;CHAIN TO NEXT TEST
;REPEAT TEST

CILADDO LA36 DH11/DJ11

CZLADD.P1Y

DIAG

03-AUG-79 09:18

3227
3228
3229
3230
3231
3232
3233
3234
3235
3236
3237
3238
3239
32640
3241
32642
32643
3264
32645
32646
g%zg

011172
011174
011176
011200
011206
011214
011220
011222
011226
011230
011232

000021
011244
104012
012737
013737
013700
104011
005337
001372
104006
000765

32649
3250
3251
3252

011234
011236
011240
011242

104002
020017
104001
000756

MACY11

30A(1052)

ECHO TESTS

03-AUG-79

09:23

PAGE

74
SEQ 0074

SXXXAXXXAXX
:
JE021== LINE ECHO TEST, FAST RATE-- THIS TEST WiLL
;
CAUSE THE CONTINUAL PRINTING OF *'0'" AT THE MAXIMUM
:
RATE UNTIL EITHER ANOTHER CHARACTER IS SELECTED
:
BY PRESSING A KEY ON THE XEYBOARD OR TERMINATION BY THE
.
RUBOUT.
:
SAXXXXXXXXX

£021:
000060
001112
001114

001114
001122

EC21A:
2%:
1%:

001122

€E0218:

21
€022
PRTHDR
MOV
MOV
MOV
PRINTC
DEC
BNE
CRLF
BR

TYPEM
ECOEND
CHAIN
B8R

#60,REPY
WIDTH,POS!
REPT RO
POSI
1%

sTEST NUMBER
JNEXT TEST
JPRINT TEST HEADER
;CHARACTER TO BE REPEATED (0)
sSET CHAR COUNT
sCHAR TO TEMPCH
JPRINT CHAR
;DECREMENT POSITION COUNTER
; CONTINUE
JSEND A CR AND LF

:PRINT TERMINATION MESG
€E021A

sCHAIN TO NEXT TEST
JREPEAT TEST

CILADDO LA36 DH11/Du1Y DIAG
CILADD.P11 ~ 03-AUG-79 09:18

3253
3254
3255
3256
3257
3258
3259
3260
3261
3262
3263
3264
3265
3266
3267
3268
3269
3270
3271
3272
gg;g

011244
011246
011250
011252
011260
011266
011272
011276
011300
011302
011306
011310
011312

000022
011530
104012
012737
013737
013700
104011
012700
104003
005337
001367
104006
000762

3275
3276
3277
3278

011314
011316
011320
011322

104002
020017
104001
000753

MACY1Y

30AC1052)
03-AUG-79
ECHO TESTS

09:23

PAGE

7>
SEQ 0075

SO0
:
:E022-= LINE ECHO TEST, SLOW RATE-- SAME AS E021 EXCEPT
;
THAT A DELAY IS INTRODUCED BETWEEN CHARACTERS
:
TO PRODUCE AN LCV ACTION
;
OO
£022:

000060
001112
001114

001114
001122

ED22A:
38:
18:

003410

001122
2%:

£022B:

22
£023
PRTHDR
MOV
MOV
MOV
PRINTC
MOV
DELAY
DEC
BNE
CRLF

TYPEM
ECOEND
CHAIN
BR

#60,REPT
WIDTH,POS]
REPT,RO

;PRINT TEST HEADER
:LOAD 0 AS INITIAL CHARACTER
:SET CHAR COUNT
:READY,CHAR TJ TEMPCH
:0UTPUT CHAR

#3410,R0

POSI
1

:DECREMENT POSITION COUNTER
:BRANCH IF NOT DONE LINE
;SEND A CR AND Lf

;PRINT TERMINATION MESSAGE
E022A

;CHAIN TO NEXT TEST
;REPEAT TEST

CILADDO LA36 DM11/DulY DIAG
CILADD.PI
03-AUG-79 09:18
3279

MACY1T

30A01052)
03-AUG-79
£CHO TESTS

g%g;

3283

iveresnee

3297
3298
3299
3300
3301
3302
3303
3504
3305
3306
3307
3308
3309
3310
3311
3312

3313
3314
3315
3316
gg}g
3319

6
PAGE

76
SEQ 0076

cesesanes

3280

3284
3285
3286
3287
3288
3289
3290
3291
3292
3293
3294
3295
3296

09:23

011324
011330
011334
011340
0113446
011350
01135
011360
011364
011370
011376
011400
011406
0116410
011414
011620
011626
011430
011434
011440
011446
011450
011454
011460
011466
011470
011476
011500

011504
011510
011514
011520
011524

052516
047523
052123
052105
047505
047105
041501
042502
051502
052110
0631146
052126
043106
051103
047523
044523
0646104
041504
041504
041504
041504
040516
054523
052105
040503
046505
052523
051505

051506
051507
051522
051525
050123

020114
020110
020130
020130
020124
020121
020113
020114
020040
020040
020040
020040
020040
020040
020040
020040
020105
020061
020062
020063
020064
020113
020116
020102
020116
020040
020102
020103

020040
020040
020040
020040
020040

MONIC:

THIS FOLLOWING TABLE IS USED BY TEST E023

.ASCII
LASCI]
LASCIT
LASCIL
LASCIL
LASCIT
JASCIT
ASCI1
LASCI1
LASCIT
ASCIL
LASCIL
LASCIL
LASCI1
LASCI1
LASCI1
.ASCI11
LASCIT
ASCIT
LASCIT
LASCIT
LASCI1
JASCIT
LASCI1
LASCIT
LASCI1T
CLASCID
LASCIT

LASCLID
LASCI1
ASCI1
LASCIY
LASCI1
EVEN

/NUL
/SOMW
/ST1x
/B
/EOT
/ENQ
7ACK
/BEL
/BS
/HT
/LF
/vT
/FF
/(R
/SO
/81
/DLE
/DCY
/DC2
/DC3
/DC4
/NAK
/SYN
/ETB
/CAN
/EM
/SuB
/ESC

/78S
/6S
/RS
/US
/SP

/
/
/
7
/
/
/
/
/
/
7/

/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
7
/
/
/
/

CIZLADDO LA36 DH11/DJ11 DIAG
CILADD.P11
03-AUG-79 09:18

MACYTY

30A(1052)
03-AUG-79
ECHO TESTS

g%g?

SOOOXNXXXXX

3322
3323
3324
3325
3326

;E023-~
:
:
:
:

3329
3330
3331
3332
3333
333,

SXXXXXXAXX

ggg;

3335
3336
3337
3338
3339
3340
3341
3342
3343

3344
3345
3346
3347

33648
3349

3350
3361
3352
3353
3354
3355
3356
3357
3358
3359

3360

3361
3362
3363
3364
1365
3366
337

011530
011532
0115346
011536

011540
011544
011546
011554
011556
011562
011566
011570
011572

011576
011602
011604
011606

011610
011616
011620
011626
011630
011634
011640
011644
011650
011654
011660

000023
012052
104012
104013
012700
104003
023727
103015
004737
013700
006300
006300
062700
004737
104000
020046
000753

023727
001421

£023:

001124

011324
011770

001124
012042
001124
000040
000040
000040
011712
012042
011770

011662

011672
011676
011700
011702
011704
011706
011710

004737
104000
020046
104002
020017
104001
000712

011770

012700

000061

011712
001124

012701
113721
112721
112721
112721
004737
012700
004737
000750
004737

011666

1%:

000036

011712

012046

2%:

000177

3§:

09:23

PAGE

77
SEQ 0077

(MARACTER CODE TEST-- ALL CHARACTERS SELECTED
WiLL BE ECHOED ALONG WITH ITS OCTAL CODE.
A MNEMONIC WILL BE PRINTED INSTEAD OF THE CHARACTER
IF 1T IS A NON-PRINTING CHARACTER.
THE PARITY OF THE RECEIVED CODE WiLL BE

INDICATED AS EITHER EVEN OR 0ODD.

23
£024
PRTHDR
READ
MoV
DELAY
CHP
BHIS
JSR
MoV
ASL
ASL
ADD
JSR
TYPE
E023M
BR

#30.,R0
TEMPCH, 841
3s
PC,STRLN
TEMPCH,RO
RO
RO
#MONIC,RO
PC,MOVNUM
1%

;TEST NUMBER
SNEXT TEST
;PRINT TEST HEADER
;GO WAIT FOR CHARACTER

;DELAY FOR HALF DUPLEX

;TEST IF CHAR IS PRINTABLE
;BRANCH IF IT IS
;STORE CODE INTO MESSAGE
;GET CODE AGAIN
;MULT BY 2
JMULT BY &
;ADD ADDR OF MNEMONIC TABLE
;MOV MNEMONIC TO MESSAGE
;TYPE CODE AND MACMON!'
s ADDRESS OF MESSAGE
;G0 WAIT FOR NEXT CHARACTER

CMpP
BEQ
Mov
MOVB
MOVB
MOVB
MOVB
JSR
MoV
JSR
BR

TEMPCH, M 77
6%
MG24 ,R1
TEMPCH, (R1)+
#60,(R1)4
#60,(RY)¢
#40,(R1)¢
PC,STRLN
MG24 ,RO
PC,MOVNUN
2s

;STORE CODE INTO MESSAGE
;ADDR OF CHAR INTO RO
sMOVE CHAR INTO MESSAGE
: TYPE MESSAGE

MoV

mG2s5,R0

;ADDR. OF DEL INTO RO

JSR

JSR
TYPE
E023M
TYPEM
ECOEND
CHAIN
8R

PC,STRLN

PC,MOVNUN

;TEST IF CHAR 1S A RUBOUT
;BRANCH IF RUBOUT

;RUBOUT, CONVERT AND STOR CODE

;MOVE DEL INTO MESSAGE
; TYPE MESSAGE
;ADDR OF MESSAGE
;CHAIN TO NEXT TEST
JREPEAT TEST

RN AMAMNINY
b s

rrOroosrroONO
RO~

e e vl ol o

i s

D oD o

el il i e il i et D D i i e o
SNNNSN NN NNSNSN
NN NN

OCOO0OO0OOOOODOOOOOO

WP —=O O
N
N
= OOV

110041

005302
001407
006237
006237
006237
000760
000207

000003
020050
000003
001130
177770

MACY11

30A(1052)
03-AUG-79
ECHO TESTS

STRLN:
1$:

000060

MovB
DEC

BEQ

001130

ASR
ASR
ASR

001130
001130

2%:
MOVNUM:

1%:

020111

700

2%:
3s:
4%

702

020115
000004

020040

MOV
Mov
ADD
Mov
BIC
ADD

001126

—

012702
012703
062701
013700
042700
062700

020054
000004

nNo

OO0 O0O0ODOODOOOOO

L
Lt L

on OB

b AN L

L L

L L L LM L L0 L L

e A

xrfl~q\ru~u~J\rw~ugn;

CZLADDO LA36 DH11/DJy1I DIAG
CILADD P11
03-AUG-79 09:18

MG24:

RTS

MOV
MOV
MOVB
DEC
BNE
1518
BNE
Mov
BR
Mov
MoV
move

09:23

PAGE

SeQ 0078

#3,R2

FLINES
RY
’3,R1
PCHAR,RO
#177770,R0
#60,R0
RO,-(RY)
R2

PCHAR
PCHAR
PCHAR
1%
PC

;COUNT OF 3 10 R2
;ADDR OF MESG TO R1
;POINT TO LAST SPACE IN MESG
;MOVE OCTAL CODE 1O RO

sSAVE LS OCTAL CHAR.

;MAKE ASCII
:MOVE INTO MESG
;DECREMENT CHAR COUNTER

;BRANCH IF 3 MOVED
;NOT THREE, SHIFT NEXT OCTAL
:CHARACTER

TO THE

RIGHT

:CONVERT AND STORE NEXT CHAR.

*RETURN TO CALLER

FLINESA
R
#6 ,R2
(RO)
¢+, (R1)+
R2
1%
PARITY

FEVEN,RO

;ADDR OF

LINES

IN R1

:COUNT Of 3 T0 R2
;MOV 3 CHARS TO MESG AREA

;DECREMENT COUNTER
;BRANCH IF NOT ALL DONE
;TEST PARITY FLAG
;BRANCH IF ODD PARITY
:SET MESSAGE FOR EVEN PARITY
; CONT INUE

DEC
BNE
RTS

#000,RO
84 ,R2
(RO)
¢+, (R1)+
R2
63
PC

;DEC CHAR COUNT
s CONTINUE
sRETURN

LASCII

; SAVE CHARACTER CODE

/DEL

sMNEMONIC FOR RUBOUT

;SET MESSAGE FOR ODD PARITY
:SET WORD COUNT
;MOVE CHAR TO MESSAGE

.EVEN

012046

0425064

020114

MG25:

LASCII

.EVEN

CZLADDO LA36 DMI1/DJ1Y

C(ILADD.PYY

DIAG

03-AUG-79 09:18

RMACY1Y

30AC1052)

ECHO TESTS

03-AUG-79

09:23

PASE

SEQ 0079

3407
3408
3409
3615
3611
3412
3613

SAXXLXAXAAN
:
;E024== SFLECTED PATTERM ECHO TES1-- SELECT 1 10 256
;
CHARACTERS.
EAZM WILL BE ECHOED
:
AND STORED UNTIL TME CNTL/C 1S SELECTED.
:
AT THAT TIME ALL CHARACTERS WILL BE PRINTED AS
;
A CONTINCUS STRING UNTIL EITHER THE RUBOUT 1§

3415
3616
3417

p
;
.

AGAIN.
A TERMINATING CNTL/L FOLLOWED BY A CNTL/C WILL ALWAYS
CAUSE THE LAST INPUTTED STRING TO BE REPEATED. A TERMINATING
CNTL/C FOLLOWED BY SOME OTHER CHARACTER WILL START A NEW

E024:

24
€025
PRTHDR
CLR
MOV
READ

34614

;

3418
3419
245?

;
STRING.
;
SXXXXXXXXNXX

3622
3423
3424
3425
36426
3427

3428
3429

3430
3431
3432
3433
36346
3435
36436
3437
3438
3,39

gaa?
44

3442
3443
36444
1665

SELECTED TO TERMINATE OR THS CNTL/C IS SELECTED

012052
012054
012056
012060
012062
012066

012070
012074

012076
012104
012106
012114
012116
012122
012126
012130
012132
012134

000024
012636
104012
005001
012702
104013

012700
104003

022737
001447
022737
001416
020127
103361
013700
110022
005201
104021

01213

000753

012140
012144
012146
012150

005037
104006
104010
000743

£E024B:

012234

1%:

000036

000177

001124

000003

001124

#30..RO

sDELAY FOR HALF

#177,TEMPCH
TERM
Y3, TEMPCH
OUTPUT
R1,#256.
1%
TEMPCH,RO
RO, (R2)+
R1

;TEST IF RUBOUT
sBRANCH IF RUBOUT
sTEST IF .CNTL=C
JBRANCH IF CNTL-C
JYES, CHECK IF CHAR CNT IS EQ, GT 256
;BRANCH IF YES, ]IGNORE C(HAR
;GET CHAR
;STORE CHMAR INTO BUFFER
JINCREMENT CHARACTER COUNT
;OUTPUT (HAR

;60 WAIT FOR NEXT

CLR
CRLF
LF

TEMPCH

;CLEAR CONTROL~-C FROM BUFFER
;CONTROL-C RETURN FROM PRINT ROUTINE

CMP
BEQ
of 1
BEQ
4,14
BHIS
MOV
Movs
INC
ECHO

000400
001124

001124

MOV
DELAY

EQ24R:

R1
#BUFR,RZ

;TEST NUMBER
JNEXT TEST
sPRINT TEST MEADER
;CLEAR CHARACTER COUNT
;ADDRESS OF BUFFER TO R?2
;WAIT FOR INPUT

E024B

DUPLEX

CMAR

CZLADDO LA36 DHY1/DJ11 DIAG
CZLADD.PI
03-AUG-79 09:18
34,46

MACY1T

30A(1052)
03-AUG-79
ECHO TESTS

09:23

PAGE R0
SEQ 0080

seasennee

3647

;

?,223

;SECTION TO OUTPUT CONTINOUS STRING

3450

;l'tt'tt'

3451
3652
3453
3656
36455
3456
3457
3458
3659
36460
3661
3462
3463
3464

;465
466

3467
3468
36469

ga;?
[A

3472
3473

012152
012156
012160
012164
012170
012172
012176
012202
012206
012210
012212
012216
012220
012222

020227
001405
113722
005037
104006
012702
005037
121227
001724
112200
020027
001765
104011
000772

012224
012226
012230

104002
020017
104001

012232

000712

012234
012236

000003
000400

012234

OUTPUT:

001124
001124

012234
001124
000003

000003

1%:

2%:

(MP
8taQ
MOvB
CLR
CRLF
MOV
CLR
CMPB
BEQ
MOVB
CMpP
BEQ
PRINTC

TERM:

BUFR:

TYPEM
ECOEND
CHAIN

R2 ,#BUFR
1%
TEMPCH, (R2)+
TEMPCH

#BUFR,R2
TEMPCH
(R2),#3
£0248
(R2)+,R0
RO, #3
1%
2%

sCHECK IF POINTER IS AT START OF BUFFER
sYES, DON'T STORE “C IN TABLE
:STORE “C IN TABLE
;CLEAR CONTROL=-C FROM BUFFER
JSEND A CR LF
;BUFFER ADDRESS T0 R2
;CLEAR CONTROL-C
;FIRST CHAR IN TABLE *C ?
sYES, GO LOOK FOR MORE INPUT
;GET CHAR
;DONE STRING?
JYES, RESTART STRING
;OUTPUT CHAR

;OUTPUT TERMINATION MESSAGE
;CHAIN TO NEXT TEST

E024B

;REPEAT

3
.BLKB

256.

sINITIALIZE FIRST (HAR AS CNTL=-C
;256 (HARACTER BUFFER

TEST

IN TALBE

CZLADDO LA36 DH11/Dy11 DIAG

CILADD.P11

03-AUG-79 09:18

MACY11

3674
3475
3476
377
3478
3479

3480
3481
3482
3483
3484
3485
3486
3487
3488

3489
3490
3491
3492
3493
3496
3495
3496
3497
3498
3499
3500
3501
3502
3503
3504
3505
3506
3507
3508
3509
3510
3511

30A(1052)

ECHO TESTS

03-AUG-79

09:23

7
PAGE R
SEQ 0081

-xxxxxxxxxxx
EOZS-- BELL ECHO TEST-- A MESSAGE 1S PRINTED AND
;
THE TEST WAITS FOR SOME PRINTABLE CHARACTER
:
TO BE SELECTED ON THE XKEYBOARD (GT040).
THIS
;
TEST IS VALID ONLY If THE PAPER WIDTH 1S GT 64
:
COLUMNS.
IF LT64 COLUMNS AN ILLEGAL BELL TEST
;
MESSAGE IS PRINTED.
;
SXXXXAXXXXXX

012636
012640
012642
012644
012652
012656
012656
012660
012662
012664
012666
012670
012674
012676
012702
012706

012710

012714

000025
011126
104012
023727
103424
104002
017672
000402
104000
017672
104013
012700
104003
113700
020027
103767

022700

001405

012716
012720
012722
012726
012726
012730
012732

104021
104007
000757
104002
017772
104002
020017

012736

000742

012734

104001

E025:
001112

000101

1$:

2%:
000036

001124
000040

000177

25
£020
PRTHDR
cHp
BLO
TYPEM
EQ25MA
BR
TYPE
EO25MA
READ
MoV
DELAY
MOVB
cmp
BLO

cmMp

BEQ

4%
5¢:

ECHO
SCRLF
BR
TYPEM
E025MB
TYPEM
ECOEND
CHAIN

#30.,R0

s TEST NUMBER
JNEXT TEST HEADER
sPRINT TEST MEADER
sTEST IF COLUMN COUNTIS EQ,GT 64
;BRANCH IF NOY
;TYPE TEST MESG
;ON ALL TERM'S
sWAIT FOR CHAR
;TYPE TEST MESG ON TERM
;CHARACTER WAS RECEIVED ON
;WAIT FOR OPERATOR RESPONSE
sDELAY FOR HALF DUPLEX

TEMP(H,RO
RO, #40
3%

;CHAR TO RO
;TEST IF PRINTABLE
;BRANCH IF NON-PRINTABLE

WIDTH,#101

49
3%

#177,R0

;CHECK IF CHAR IS RUBOUT

;BRANCH IF

YES

;PRINT CHAR
sSEND A CRLF
;REPEAT
;TYPE ERROR MESSAGE
;PRINT TERMINATION

JEXIT TO NEXT

;REPEAT TEST

TEST

CZLADDO LA36 DH11/Dull DIAG
CILADD.P1Y
03-AUG-79 09:18

3512
3513
3514
3515
3516
3517
3518
3519
3520
3521
3522
3523

3526

012740
012742
012744
012746

000030
012740
104012

012704

013036
013043

021417
017

3555
3556

3557
3558
3559
3560

3561
3562
3563

PAGE R?

SEQ 0082

SECONDARY

CHARACTER SET

OPTION

DXOOOOOONOOONUK

3542
3543
3544
3545
3546
3547

3548

OPTION TESTS

STEST30 -

013010
013012
013016
013020
013022
013024
013030
013032
013034

3549
3550
3551
3552
3553
3554

09:23

SXXXXAAXXXXXXXXX

3532
3533
3534
3535
3536
3537
3538
3539
3540

3841

30A(1052)
03-AUG-79
OPTION TFSTS

.SBTTL

104002
012702
004737
1064002
013702
020227
001403
012700
104011
004737
104006
005304
001353
012700
104011
104001
000741

3525
3526
3527
3528
3529
3530
3531

MACYTY

Q127%2

012756
012762
012766
012772
012776
013002
013004

013050
013052
013056
013062
013066
013070
013072
013074
013076
013100
013102
013104
013106

000010
013036
000177
013050
013043
013120
000377

013114
013116

013120

000177

2%:

013050

38:

000017

036461
031043

30
TEST30

PRTHDR
MOV

TYPEM,

MoV

JSR

000016

177537
001112
000003

001371
104006
013703
000765
104006
000207

013112

TEST30:

000
000075

108:
20%:

30%:

T(PEM,
Mov
CMP
BEQ
MOV
PRINTC

JSR

CRLF
DEC
BNE
MOV
PRINTC
CHAIN
BR

LASCIZ
LASCIZ

.EVEN

MoV
B1C

MOV

31%:

SUB

MOV

PRINTC
INC
cmp
BEQ
DEC

8NE

CRLF
MOV

001112

32%:
130SC:

#8.,R4
10%

77 ,R2
PC,30%
20%
130SC,R2
R2,#377

¥16,R0

PC,308
R4

#17,R0

TEST30

SPRINT

TEST

HEADER

;PRINT

CHAR

SET

:SET PASS COUNT
s INDICATE PRIMARY SET AND SEND ''SI*'
JSET END CHAR

:INDICATE SECONDARY CHAR SET
sSET CHAR SET LIMIT
:USING 8 BITS INSTEAD OF SI?
;BRANCH 1F YES
;SET SO CHAR
;SEND IT7
;PRINT CHAR SET
sBLANK LINE
;DEC PASS COUNT
;FINISH TEST
;SET SI CHAR AGAIN
;MAKE SURE ON PRIMARY (HAR SET
JNEXT TEST SELECTION OR LOOP
;LOOP ON TEST

<17>/#1=/

<17>/42=/

#177537,R1
WIDTH,R3
#3,R3
R1,RO
R1
R1,R2

328

:GET LIMIT CHAR
:GET START CHAR
:GET COLUMN COUNT
;SUBTRACT 3
;GET CHAR
;PRINT IT
sNEXT CHAR
;DONE CHAR SET?
;EXIT 1F DONE
;DEC COLUMN COUNT
;FINISH LINE

RTS

;SEND CR-LF WHEN DONE LINE
;RESET COLUMN COUNT
; CONTINUE
; SEND CR-LF
;RETURN

.WORD

;CHAR SET LIMIT

CRLF

;CHANGE TO 377 WHEN USING 8 BIT CHAR SELECTION

CZLADDO LA3E DMYIT/DU V1AG
CILADD P11
03-AUG=-79 (09:18

3617

3618
3619
3620

013146
013150
01315¢4
013156
013160
013164
013166
013172
013174
013200
013204
013206
013210
3214
3216
3220
222
B
i

£
ing
o0 rO0

242
244
250

b no

254
260
o o

il e
s i
D el
il
e e
el e
e
el e
et
il el el el ol e

3610
3611
3612
3613
3614
3615
3616

013142

s el

3603
3604
3605
3606
3607
3608
3609

013122
013124
013126
013130
013134
013136

b ot

3602

09:23

[

{
PAGE 83

SEQ 0083

SELECTIVE ADDRESSING OPTION

LXXXNXNXNXXXNAKX

wwmuuuwuumwuugwuuuwuuuuuwuu
no
~n
nroroNN

3578
3579
3580
3581
3582
3583
3584
3585
3586
3587
3588
3589
3590
3591
3592
3593
3594
3595
3596
3597
3598
3599
3600
3601

STEST3Y

272
276

L L L M N N e
WMRNIRNINY
=t b —2

3577

30A(1052)
03-AUG-79
OPTION TESTS
SXXXXAAXXKNN
XXX
A

elelololelololealeloleleloleoleloleloleloleleololololalaYetoTo)

3565
3566
3567
3568
3569
3570
3571
3572
3573
3574
3575
3576

MACYTI

000031
013122
104006
013700

013712

012700

015542
000007

012700

000002

013700
104011
012700
104011
106002
012703
005713
001416
013700

013712

104011
104002

104011

104011
104012

104011

011300
104011
012700
104011
104002

012300

TEST31:

CRLF

000002
013542
013670

1¢:

104011
011300
1064011
106002
12700

MoV
PRINTC
MoV
PRINTC
MOV
PRINTC
TYPEM,
MOV
PRINTC

000002
013606

013716

2%:
3%

013712

013542
000002

013614

CRLF
BR
MOV
1§81
BEQ
MoV
PRINTC
MoV
PRINTC
TYPEM,
MOV
PRINTC

000036
001124

34%,R0
108
#7,R0
#2,R0

34%,R0

;SEND CRLF
:SET EOT CHAR
JSEND 1T

sTRY PRINTING ERROR MESG

;SET BEL (HAR
JSEND 17
;SET STX CHAR
JSEND IT
sPRINT TEST HEADER ON ALL TERMINALS
;SET EOT CODE
JSEND 1T
sSET STX CODE
SSEND 1T

10%
#30% ,R3
(R3)
2%
34%,R0

;TRY

(R3),RO

;SEND GROUP SELECT CHAR
;SEND I7
;SEND STX CHAR

14%
(R3)+,RO

;TYPE

ERROR MESG

;SET TABLE POINTER
;CHECK TABLE POINTER
SNEXT PORTION OF TEST
JSEND EOT CHAR

DONE

MESG

:TYPE SELECT CHAR FOR MESG

¥2,RO

;s CR-LF
sCONTINUE - NEXT SELECT CHAR
;SET TABLE ADR
;CHECK SELECT CHAR
;CONTINUE TEST
;SEND EOT CHAR
;ALL TERMS OFF
;GET UNIQUE SELECT (HAR
;SEND 1T - THAT TERM ON
;TRY PRINTNG ERROR MESG
sSEND STX

TYPEM,
MOV
PRINTC

158
(R3),RO

;TYPE SELECT CHAR MESG
;PRINT SELECT CHAR FOR MESG

TYPEM,
READ
MOV

20%

;PRINT MESG

CRLF

013633

000177

MOV
PRINTC
TYPEN,
MOV
PRINTC
MoV
PRINTC
PRTHDR
mov
PRINTC
MoV
PRINTC
TYPEM,
MOV
TS7

8eQ

013712

104011
104006

000760
012703
005713
001517
013700

31
TEST31

DELAY
cmp
BNE

1%
¥40$,R3

(R3)

348 ,R0
(R3),RO

10%

#30..R0

;READ CHAR FROM SELECTED TERM
;DELAY FOR HALF DUPLEX

#177,TEMPCH

; CHECK

JEXIT

CHAR

1F RUBOUT

CZLADDO LA36 DH11/Du1l DIAG
CILADD.P1T ~ 03-AUG-79 09:18

3621

3622
3623
3626
3625
3626
3627
3628
3629
3630
3631
3632

3633
3634
3635
3636

3637
3638
3639
3640
3641
3642
3643
3644
3645
3646
3647
3648
3649
3650
3651
3652
3653
3654
3655

3656
3657
3658
3659
3660
3661
3662
3663
3664
3665

3666

013336

013342
013344
013350
013352
013356
013360
013364
013370
013372
013374
013400

013402
013406
013410
013414

013416
013422
013426
013430
013432
013434
013440
013442
013446
013450
013452
013456
013460
013462
013466
013470
013474
013476
013502

013504
13506
013510
013512
013516
013520
013526
013526
013532
013534

013536

013700

104013
012700
104011
012700
104011
000137
013700
104021
104006
013700
104011

013700
104011
012700
104011

106002
012700
104011
011300
104011

012700

104011
104002
011300
104011

104006
012700
104011
012700
104011
012700
104011
104002
012300

104011
104006
000657
013700
104011
012700
104011
012700
104011
104001

000137

MACYT1

30A(1052)
03-AUG-79
OPTION TESTS

013712

MmOV

000007

000002

002540
001124

5%:

013712

013714

MoV
PRINTC
MOV
PRINTC

000002
013542
000003

TYPEM,
MOV
PRINTC
MOV
PRINTC

000002

MOV

PRINTC
TYPEM,
MOV
PRINTC

013614

CRLF
MOV
PRINTC
MOV
PRINTC
MOV
PRINTC
TYPEM,
MOV

000003
013714
000002

013614

013712
000007

000002

013122

PRINTC
MoV
PRINTC
MOV
PRINTC
JMP
MOV
ECHO
CRLF
MOV
PRINTC

PRINTC
CRLF
BR
MOV
PRINTC
MOV
PRINTC
MOV
PRINTC
CHAIN

JMP

09:23

34$,R0

PAGE B4
SEQ 0084

;ENABLE ALL TERMINALS

27,80

#2,R0

TIVIH
TEMPCH,RO

34$,R0

;60 TO KYBD CONTROL
:GET CHAR
:ECHO CMAR
:SEND (R-LF
:SEND EOT CHAR

35%,R0

;SEND DUMMY SELECT (HAR

#2,R0

;SEND STX

108
#3,R0

;TRY PRINTING ERROR MESSAGE
:SEND ETX

(R3),RO

;SEND UNIQUE SELECT CHAR

#2,R0

;SEND STX

158
(R3),RO

:PRINT SELECT MESG ON SELECTED TERMINAL
:PRINT SELECT CHAR FOR MESG

#3.R0

:SEND CR-LF
:SEND ETX

#35$,R0

:SEND DUMMY SELECT CHAR

#2.RO

SEND STX

15%
(R3)+,RO

:PRINT MESG ON SELECTED TERM
;PRINT SELECT CHAR FOR MESG

38
348 ,RO

:SEND CR-LF
; CONTINUE
:ENABLE ALL LINES
:BEFORE EXITING TEST

#7,R0

#2,R0

TEST31

;CHAIN TO NEXT TEST OR LOOP ON TEST

:LOOP ON TEST

CZLADDO LA36 DHY1/DJUIT DIAG
(ZLADD P11
03-AUG-79 09:18

3667
3668
3669
3670
3671
3672
3673
3674
3675
3676
3677
36/8
3679
3680
3681
3682
3683
3684
3685

051105
040440
051105
051514
046125
047440
051107
042523
041440
020075
124
047101
047111
020105
027040

8%3658

30AC1052)
O03-AUG-79
OPYION TESTS

7
PAGE 8>

SEQ 0085

-ASCIZ

/ERROR, ALL TERMINALS SHOULD BE OFF/<ACRLF>

14%:
15%:

+ASCI1
LASCIZ

/GROUP /
/SELECT CHAR = /

20%:

.ASCIZ

/TYPE ANY PRINTABLE CHAR ...

040516

047510

042502
000200
020120
052103
020122

020105
051120
046102
051101
000040

.EVEN

30%:

013712

000004

36%:

004

013714

000045

35%:

045

3690

09:23

108:

000107
000000
000000
000000
000000
000000
000000
000000
000000

3686
3687
3688
3689

107

;GROUP SELECT CHAR TABLE
;FIRST ZERO - END OF

TABLE

0
0
0
0
0
0

;DESELECT CHAR = "'eOT"

;DUMMY SELECT CHARACTER,

;1F "'%'" 1S USED AS A UNIQUE OR GROUP SELECT
;CHARACTER, REPLACE WITH ANY UNUSED SELECT

~N N~

(=X
P o

720
722
LY

o
B
e
e

VWV LV VIV RV LV ]

d
et

716

732
734
736

VAV

d amd

:CHARACTER
OCOO0OOCOOOOO

3691
3692
3693
3694
3695
3696
3697
3698
3699
3700
3701
3702
3703
3704
3705
3706
3707
3708
3709

047522
046114
044515
051440
020104
043106
052517
042514
040510
000
050131
020131
040524
044103
027056

MACY1Y

000125
000000
000000
000000
000000
000000
000000
000000
000000

40%:

125

8
0
0
0
0
0
0

CODE.

;UNIQUE SELECT

CHAR TABLE

;FIRSY ZERO = END OF

TABLE

CZLADDO LA36 DH11/DJ11 DIAG
CILADD.P1Y
03-AUG~79 09:18

MACYIT1

30A(1052)
03-AUG-79
OPTION TESTS

;;}?

2000000000000

g;}%

sTEST32 -

g;}g

SXXXXXAXAXXXXXXX

3716
3717
3718
3719
3720
3721
3722
3723
3724
3725
3726
g;g;

013740
0V3742
013744
013746
013752
013754
013760
013764
013770
013774
014000
014002

004737
104001
000756

3729
3730
3731
3732

014004
014010
014012
014020

012702
104013
023727
001002

3733

3734
3735
3736
3737
3738

014022

014026
014032
014036
014042
014044

000032
013740
104012
012700
104021
004737
104002
004737
104002

000137

113722
012703
013701
104022
000401

3739
3740

014046
014050

3742
3743
3744
3745
3746

014054
014056
014060
014062
014066

005303
001367
105012
104000
104007

3749
3750
3751
3752
3753
3754
3755
3756
g;gg

014072
014100
01464106
014114
014117
0164124
014132
014140
014142

042504
020123
044440
100131
106
051523
051124
000200
200

§;59
60

014143

000025

3741

g;a;
&4

3761

014052

014070

TEST32:

000005
014004
014072
014004
014117
014004

2%:

014143

001124

10%:

000177

002540

001124
000062
001102

8%:
3%:
4%
5%:

000761
005301

63 :

001373

7%:

014142

000207

051120
042510
020123
000
050105
061440
046117

32
TEST32
PRTHDR
Mov
ECHO
JSR
TYPEM,
JSR
TYPEM,

JSR
CHAIN
BR

MoV
READ
Cmp
BNE

JMP

MOVB
MOV
MoV
INRDY
BR

BR
DEC

BNE

09:23

PAGE 86
SEQ GuBe

AUTO ANSWER BACK OPTION

#5,R0

;PRINT TEST HEADER
;SEND ENQ (HAR

PC,10%
20%
PC,10%
30%

;READ
sTYPE
;READ
;TYPE

PC,10%

TEST32
#STORE ,R2

TEMPCH, #177
3%

TTIY1IH

TEMPCH, (R2)+
#50.,R3
TIMER,R
6%

8%
R1
5%

DEC
BNE
CLRB
TYPE,
SCRLF

R3
43
(R2)
STORE-!

RTS

AND PRINT MESG
INSTRUCTIONS
AND PRINT MESG
INSTRUCTIONS

sREAD AND PRINT MESG
;CHAIN TO NEXT TEST
;LOOP ON TEST

;SET TABLE ADR
;READ FIRST CHAR
;CHAR = RUBOUT?
sCONTINUE IF NOT RuBOUT

;G0 TO KYBD CONTROL
;STORE CHAR
;SEY DELAY COUNT

s ANY INPUT?
;NO, WAIT FOR CHAR
JYES, READ CHAR
;DELAY WHILE WAITING FOR CMHAR

sSET NULL AS TERMINATOR IN TABLE
;TYPE MESG ON TERMINAL RECEIVED ON
;SEND CR-LF
:RETURN TO TEST

051505
042522
042513

20%:

LASCIZ

/DEPRESS HERE IS KEY/<ACRLF>

042522
047117
042455

30$:

ASCIZ

/DEPRESS CONTROL=E/<ACRLF>

LASCI1

<ACRLF>

.BLKB

21.

STORE:

.EVEN

:20 CHAR +

TERMINATOR BUFFER

CZLADDO LA36 DH11/DJ11 DIAG
CILADD.PIY
03-AUG-79 09:18

3762
3763
3764
3765
3766
3767
31768
3769
3770
3771
3772
3773
3774
3775
3776
3777
3778
3779
3780
3781
3782
3783
3784
3789
3786
3787
3788
3789
3790
3791
3792
3793
3794
3795

3796
3797
3798

3799
3800

;TEST3S -

014170
014172
014174
014176
014202
014206
014212
014216
014220
014224
014226
014234
014236
0146242
016244
014246
014250
014252
014256
014260
014264
014266
014270
014272
014274
014300
014304
014306

014312
014314
014322

014324
014330

000033
014170
104012

012705
012704
104002

012701

106013

012700
104003
022737
001002
000137
106014

1064011
113701

005000
104011
005301

001374
104002

010537
104013
012700
104003
022737
001002

000177

PAGE

SEQ 0087

FORM FEED OPTION

13%:
8s:

000014
014626

3813

(014370

104011
112401

005000
104011
005301
001374

022525
010537
104002
000000
104002
104002

9%:

014567
014360

5%:

000036

000177

001124
15%:

118:

014424

014432
014376
014441
014424

TEST33
PRTHDR
MoV
MOV
TYPEM,
MoV
READ
MoV
DELAY

CmHp

001124

002540

000014

104002
104002
000000
104002

014374
014376
016400
016404

000036

002540

106014

014352
014356
014360
014362
014366

014642
014626
014451
000020

000137

3808
3809
31810

014346
014350

TEST33:

104010

005301
001375
012700

012700

3814
3815
1816
1817

09:23

SXXOOOOCKX
XXX XXX X

014332
014336
014340
014342
014344

3811
31812

30A(1052)
O03-AUG-79
OPTION TESTS
X0
XXX XX XX

3801
3802
3803
31804
3805

31806
3807

MACYTT

12%:

3s:
4%:

BNE
JMP
(R
LF
DEC
BNE

MOV
PRINTC
Movs
CLR
PRINTC
DEC

#50% ,RS
#60% R4

408
#16. ,R1

#30.,R0

#177,TEMPCH
13%
TTY1H

R1
8%
#16 R0
60% ,R1
RO
R1

BNE

MOV
READ
MOV
DELAY
CHP
8NE
JMP
CR
MOV
PRINTC
MOVB
CLR
PRINTC
DEC
BNE
TYPEM,

R5,2%

TYPEM,

TYPEM

.WORD

TYPEM,

cmep
MoV

TYPEM
.WORD
TYPEM,

TYPEM,

45%

#30.,R0
#177 ,TEMPCH
15%
TTYIH

#14,R0
(R4)+ ,RY
RO

R
11%

10%

;PRINT TEST HEADER
;SET TABLE POINTER
sSET TABLE POINTER
sPRINT INSTR
;SET LF COUNT 10 16
;WALIT FOR KYBD FLAG
;DELAY FOR HALF DUPLEX

;CHECK FOR RUBOUT
JEXIT IF RUBOUT

;G0 TO KYBD

CONTROL

;SEND (R
JSEND LF
;DEC COUNT
s CONTINUE
JSET FF
JSEND IT
JSET FILL COUNT
JSET NULL
;SEND FILLS
:DEC FILL COUNT

s CONTINUE

sTYPE MESSAGE
:SET MESG
JMALT FOR KYBD FLAG
;DELAY FOR HALF DUPLEX

;CHECK IF RUBOUT
JEXIT IF RUBOUT

;60 T0O XYBD CONTROL

JSEND CR
sSEND FF

JSEND 1T

JGET FILL COUNT
;SET NULL
sSEND FILLS

s CONTINUE
sFINISH NULLS

;PRINT

MESG

20%

(R5)+,(RS)+
RS,6$

0
30%
10%

:INC TABLE POINTER
;SET MESG
;PRINT MESG

CZLADDO LA36 DH11/DJ11 DIAG
CILADD P11
03-AUG-79 09:18

;DONE TEST?
;JNO, CONTINUE
sYES, SEND (R-LF

JSELECT TEST OR LOOP
;LOOP ON TEST

20%:

:
108

LASCIZ
LASCIZ

/' FE/<ST>/7 /

047040
000
050105

054105

30%:

.ASC12

/' NEXT /

042522

40%:

LASCI I

/DEPRESS FORMFEED RESET

.ASCI 1

/TYPE

020105
020105
051040
200
020055
031440
020110
042506
026455

45%:

LASCI 4

/==== SET

010

60%:

.BYTE

2,5,8.,17.,20.,26.,32.,35..50.,56.,68.

3 INCH FORMFEED ==~=/

~~~

508%:

SPACE WHEN READY/<ACRLF>

032
062

000063
000065
000064
000065
000066
000067
000070
000065
000061
000062
000064
000040

020104
020124
044103
051105
020110
044103
044524

005
024
043
104

SWITCH/<ACRLF>/AFTER EACH SWITCH SETTING/<ACRLF>

e ]

042505
062523
05211
052106
041501
052111
052105
200
050131
041501
047105
054504
026455
020124
041516
046522
026440

051117

043040

020040
027063
020040
027065
020040
020040
020040
027070
030440
030440
030440
020040
000000

4(RS)
5%

000055
020057

e N

124

050123
044127
040505
055
042523
044440
047506
042105
000055
002
021
040
070
014642

7
PAGE &3

026455
043106

051523
043115
042522
053523
040600
042440
053523
051440
043516

StEa 0088

TEST3S

s T

026455

09:23

g P

020042
000
042
020124
104

104006
104001

PN P

014424
014432
014440
014441
014446
014451

1581
BNE
CRLF
CHAIN

[ e
N
Y

3864
1865
31866
3867

000662

000004

3863

005765
001333

3851

3852
3853
3854
1855
1856
3857
3858
3859
3860
3861
1862

014410

014414
014416
014420
014422

30A(1052)
03-AUG-79
OPTION TESTS

3818
3819
3820
3821
31822
3823
3824
1825
3826
3827
3828
3829
3830
3831
3832
31833
3834
3835
3836
3837
3838
3839
3840
3841
3842
3843
1844
3845
3846
3847
31848
3849
1850

MACYTT

;END OF

TABLE

CZLADDO LA36 DH11/DJ11 DIAG
CILADD P11
03-AUG-79 09:18

5868
3869
3870
3871
3872
3873
3874
3875
3876
3877
3878
3879

3880
3881
3882
3883
3884
3885
3886
3887
3888
3889
3890
3891
3892
3893
3894
3895
3896
3897
3898
3899
3900
3901
3902
3903
3904
3905
3906

3907
3908
3909

3910

3911
3912
3013
3914
3915
3916
3917
3918
3919
3920
3921
3922
3923

MACYTY

30A(1052)
03-AUG-79
OPTION TFSTS

09:23

PAGE

89
SEa

SHXNXXXAANXXXNXN

HORIZONTAL TAB OPTION
gTEST34 éXXXXXXXXXXlXXXX

014724
014726
014730

000034
014724
1064012

TEST34:

34
TEST34

PRTIHDR

:'."'t"t"'tt"t't'

014732

005004

CHGD6:

(LR

:.lt"'t"'l""""'

014734
014762
014746
014752
014754
014760
014762

012737
0i3703
012700

1064011
012700
104011

015134
001112
000033

015132

28:

Mov

WIDTH,R3
#33,R0

MoV

762 ,R0

PRINTC

000062

PRINTC

104014

#16$,12%¢2

MoV
Mov

;!ttttltttt'ttttt't"

014764

106023

FOUR
;'ttttttt'tt't‘t't"'

016401
000405
012700
104011
005303
001420
005301

015224

3s:

000040

5%:

001371
012700

000033

012700

000061

012700

000010

012700
104011
005303
001350
104014

000117

104011
104011

106011

MoV

208 (R4) ,R1

Mov
PRINTC

#40,R0

#61,R0

JSEND 1 - SET TAB

#10,R0

JSET BACKSPACE

#'0,R0

;PRINT O

sDEC COLUMN COUNT
sCONTINUE IF NOT DONE LINE
;SEND CR

DEC
CR

FOUR
;t.it"til't!"""ii

104011

005000
104011

001112
015224
000001

17%:

015250

118:

00001

148%:

;FOUR FILL CHARACTERS===--

MoV

BNE

MoV

ROV
cMp
BNE
INC
mov
SuB
BLY
MOV

PRINTC

(LR

PRINTC

WIDTH,R3

208 (R4) ,R1
R1,
M
11%
R1
308 (R4) ,R2
R1,R3
12%
#11,R0

7iTME

THRU

;D0 A CARRIAGE RETLRN

R3
6%
R1
4%
#33,R0

;tltwtt""t't"tt't'

013703
016401
020127
001001
005201
016402
160103
002413
012700

SRESET JUMP INSTR OR FIRST
;SET COLUMN COUNT
;CLEAR OLD TABS

DEC
BEQ
DEC
BNE
MoV

PRINTC
MoV
PRINTC
MoV
PRINTC

104023

;SET TABLE POINTER

;GET SPACE COUNT FOR TAB
;SUBTRACT 1 FOR TAB SET
;GET SPACE
JSEND IT
sDEC COLUMN COUNT
;CR IF DONE LINE
:DEC SPACE COUNT
sCONTINUE IF NOT DONE
JSEND IT

B8R

PRINTC

6%:

SPRINT TEST HEADER

sFOUR FILL CHARACTERS===-sRESET COLUMN COUNT

;RESET COLUMN COUNT FOR TAB
sADD 1 IF FIRST LINE
;SET FILL CHAR COUNT
sSUBTRACT TAB FROM COLUMN COUNT
+BRANCH IF TOO MANY COLUMNS
;SET TAB
SSEND IT
sSET NULL CHAR = FILLS
;SEND FILL CHARS

CHGDO

CHGD6

00~
-

CZLADDO LA36 DM11/DJ11

CILADD

3952

395%
3954
3955
31956
3957

3958

104014
104023

012700

104011
013703

000130

FILLS

JSET X (HAR
JSEND 17
s CONT INUE
;SKIP FOLLOWING AFTER FIRSY TIME

Mov

CR
fOUR
Mov
PRINTC
Mov
DEC

SEQ 0090

;DEC FILL COuUNT

BR
JAP

015132

.7
PAGE 90

sCONTINUE

Mov
PRINTC

H e~

o
—

—

104011

000761
000137
012737

DEC
BNE

000130
=)

et e
B 8

NN NI

NOONOEINO SO0 sNoOoOMNOSNIOC O

005302

001374
012700

09:23

;SEND (R
;FOUR FILL CHARACTERS==~=-

' xX,RO

JPRINT

WIDTH,R3
R3
17%

;RESET COLUMNC COUNT

NI
= e s CO~NN~NO
O OO A

3951

30A(1052)
03-AUG-79
OPTION TESTS

104011
104001
000640

000001

000002
000020
000200

000040
000204

000004

:
208

.WORD

1,2,6,8.,16.,32.,64.,128.,132..,0

000001
000005
000044
000000

000002
000011
000107

000003
000022
000111

308:

.WORD

1,2.3,5.,9.,18.,36.,71.,73.,0

f o

3949
3950

03-AUG-79 09:18

MACYTT

~nNo

3924
3925
3926
3927
3928
3929
3930
3931
3932
3933
3934
3935
3936
3937
3938
3939
3940
3941
3942
3043
3944
3945
3946
31947
3948

DIAG

001112

005303
000735
104006
005724
016401
001403
020137

015224

MOV

001112

012700

000033

CMp
8LOS

012700

000062

101657

106011

000010
000100
000000

15%:

BR
CRLF
151

BEQ

13%:

(R4)
¢

208 (R4) R
13%
R1,WIDTH
2%
#33 RO

MOV
PRINTC
Mov
PRINTC
CHAIN

¥62,R0

TEST34

;SUBTRACT ONE FOR FIRST X CHAR
; CONT INUE

s SEND CR-LF
;INC TABLE POINTER

:GET COLUMN COUNT FOR TAB
;EXIT 1F DONE TABLE (0)
;CHECK 1F TOO LARGE
;CONTINUE TEST, 0K
;CLEAR ALL TABS BEFORE EXITING

;SELECT TEST OR LOOP ON TEST
;LOOP ON TEST

THRU

CZLADDO LA36 DH11/DJ11 DIAG
CZLADD
03-AUG-79 09:18

3959
3960
3961
1962
3963
3964
3965
3966
3967
3968
3969
3970
3971
3972
3973
3974
3975
3976
3977
1978
3979
3980
3981
31982

3983
3984

31985
3986
1987
3988

31989
3990
3991
31992
3993
3994
31995
3996
3997
3998
3999

4000
4001
6002
4003
4004
4005
4006
64007
«008
4009
4010
4011
012
401%
4014

MACY11

30A(1052)
03-AUG-79
OPTION TESTS

09:23

PAGE 91

SEQ 0091

SXXXXXXAANKKAXXX

JTEST3S -

VERTICAL TAB OPT]ON

SXOXXXXAAXLANXXX
000035
015274
104012
104002

015615

TEST35:
1$:

104013

2%:

3s:

001375

PRINTC
Mov
PRINTC

#30..RO
#177,TEMPCH
12%
R4
#33,R0

INC
cMp
86T
MOV

LF
DEC
BNE

R4
R4, #13
35%
R4,R1

R1
3s
#33,R0
#63,R0

BR
Mov

2%
#4,R0

;INC LINE COUNT
;CHECK 17
;BRANCH IF DONE REF.

sGET

COUNT

:SEND LF
;DEC LF COUNT
: CONTINUE

:SET TAB FOR THIS LINE

s CONTINUE
;SEND FF

;WAIT

FOR KYBD FLAG

Cmp

#177,TEMPCH

;CHECK CHAR

CLR
¥5:EH

;RESET LF
:TYPE REF

¢ INC LINE COUNT

INC

cMp
BGT
MOV

PRINTC
MOV

SuB

5%:

LINE

#30. ,RO

BtQ
0$:

¢ CHECK CHAR
;EXIT TEST IF RUBOUT
sSET LINE COUNT
;CLEAR VERTICAL TABS

ggVA

LAY

BLE
CLR

DUPLEX

:TYPE MESG

30%

READ

FOR KYBD FLAG

:DELAY FOR MALF

;TYPE REF

MOV
PRINTC
Mov

PRINTC
TYPEM

;WAIT

#64 R0

{;zEH

PRINTC

35%:

;PRINT TEST HEADER
;TYPE INSTR

20%

MoV
DELAY
cHp
BEQ
CLR
MOV

104003

012700
104011
012700
104011
000757
012700
104011
104002
015707

PRTHDR
TYPEM
READ

012700
022737
001505
005004
012700
1064011
012700
104011
104002
015573
005204
020427
003013
010401
104010
005301

35
TEST3S

12%

R4, #13
8$
#13,R0
R4, R

6. R

3]
RO

;DELAY FOR HALF DUPLEX

;EXIT TEST IF RUBOUT
COUNT
LINE

;CHECK T
;:BRANCH IF DONE
sSEND TAB
;SET

FILL COUNT

;SUBTRACT 16

:SKIP NULLS IF COUNT < 0
:SET NULL CHAR

015512
015514
015520
015522
015526
015530
015532
015534
015536
015540
015544
015246
015552
015554
015560
015562
015564
015566

104011
012700
104011
012700
104011
104006
104010
104001
000656
012700
104011
012700
104011
012700
104011
104006
104010
000137

) 5472
O p) 573
O 5 600
01 5 606
01 5614
01 5615
015622
5
015630
5
015636
5
015643
015650

040
055

015506

4039
4060
£061
4062
4043
4066
4045
4046
4047
4048
4049
4050
4051
4052
4053
4054
4055
4056
40S:
«058
6059

015656
8}5666
5672
0 5700
01 5706
01 5707
0 5714
01 5722
01 5730

012700

026455
036074
000
123

020064
0643040
042506
106
051523
047440
0646522
052105
041524
000
001
047515
051040
051040
015736

000033

8$:

10%:
15%:

JASCIT
ASCIZ

<40>
Jemeemeea <L

208:

LASCI1

/SET

.ASCIZ

/DEPRESS TOP Of

ASCIZ

<1><I><I>/REMOVE

002540

020106
0510640
051440
100110

020115
200
042522
050117
047506
051505
044527
005012

000401
042526
051505
043105

042522
027440
052105
000

sCLEAR VERTICAL TABS

;GO KYBD CONTROL

000014

030440
044103

#33,.R0

;SEND NULLS
:DEC COUNT
JFINISH NULLS
; CONT INUE

TIYIH

000064

052105
1
0471 11
0511 17
0421 05
050105
052040

Rl
5%
.3

;SEND FF

12%:

026455
036074
006474

SEQ 0092

¥4, R0

000014

026455
036055
0360 74

MOV

PAGE 92

PRINTC
MOV
PRINTC
MOV
PRINTC
CRLF
LF
CHAIN
B8R
MOV
PRINTC
MOV
PRINTC
MOV
PRINTC
CRLF
LF
JMp

000064

000033

PRINT(
DEC
BNE
BR

30%:

.EVEN

#64 R0

#14,R0

JSEND FF
;SEND (R-LF
;SEND BLANK LINE

TEST3S
#33,R0

JSELECT TEST OR LOOP ON TEST
;LOOP ON TEST
sCLEAR ALL TABS BEFORE EXITING TEST

#64 ,R0

/15>

14 INCH FORM FEED/<ACRLF>

FORM RESET SWITCH/<ACRLF><12><12>

/<57>/ RESET REF/

e lalieatlalalalalealalalalalalalalealealelalsl

6020
64021
6022
6023
64026
6025
6026
6027
6028
4029
6030
4031
6032
4033
6034
6035
4036
48§g

104011
005303
001374
000756

09:23

L )

64019

015476
015500
015502
015504

30A(1052)
O03-AUG-79
OPTION TFSTS

6015
4016
6017
4018

MACY11

e X Y

LILADDO LA36 DH11/Du11 DIAG
CZLADD, PN
03-AUG-79 09:18

CILADDO LA36 DM11/DJ11 DIAG
CILADD.P1Y
03-AUG-79 09:18

MACYT1

6060
4061
4062
4063

PAGE 93

SEa 0093

CHECKS FOR G TO ALLOW

ROUTINE IS ENTERED AT (NTLU FOR START UP PURPOSES.
*CHANGING OF LOC 176.
SMHEN A “G IS GIVEN, THE PROGRAM ENTERS AT (KSWR.
THE PROGRAM
;GETS CONTENTS OF SOFY. SWITCM REG, TYPES IT OUT, AND THEN
:SEEKS NEW DATA FROM OPERATOR.
ONCE DATA IS SUPPLIED, IT INSERTS THIS
:DATA INTO THE SOFT. SWITCH REG. AND RESUMES OPERATION IN THE
MAIN PROGRAM,
INCORRECT ENTRIES (SUCH AS 8,9,LETTERS) ARE DELETED
;AND THE PROCESS RESTARTED.
TYPING *U ALLOWS THE PRESENT ENTRY
;10 BE DELETED AND THE PROCESS RESTARTED.

6068

;XXXXXXXXXXXXXXXXXX!XXXXX
JNEARERRTROEONEOEROAOTOELIOOTY

016116

005726

CHGD7:

$CKSWR:

000007

001124

CNT6
BR

$CNTLU: Mov
OVER:

163234

016222

18:

OO0

— PN

OO
oo~

—

AVl VAV,

001124
177600
000025

il
sl

0137 3
3
3

001254

roron

001252
000007
001124

0
000 4
122 3
0
104 0
022 3
3
3
0
122 3

#SWREG,
SR

out
TEMPCH,
#7
out

RO,-(SP)

R4 ,=(SP)
TEMPCH,RO

000015

001250

000007

001254

000060

001250

000067

001250

3%:
2%:

4%:

NEW
CLR
MOv

INRDY

BR
MOV
PRINTC
MoV
BIC
(MPB
BNE
BR
(MPB
BNE
SCR.F
cmp
BNE
(MPB
BG1
(MPB

;SOFTWARE SW REG PRES?
;NO, GET out
JIS IT A %6
;NO, GET ourt
:SAVE RO
;SAVE R4
;SET UP TO PRINT *G
:TYPE MESSAGE

OVER
RO,-(SP)

ROUTINE

;GET AROUND SAVE RO,R4
: SAVE RO

R&,=(SP;

: SAVE Ré
;ALLOW SWR= TO BE TYPED OUT

asSR,=(SP)
PC.TYPOC

:MOV CONTENTS Of SWR
;OCTAL TYPE OUT ROUTINE
sCORRECT STACK POINTER

TYPEM

000776
013700
104011

MOV
TYPEM
SWR
MoV

JSR
POPSP

[eTele]
QOO

104022

cmp
BNE
(MP
BNE

MOV
MOV
MoV
TYPEM

104002

020143
005037
012737

N NN NN
NN

016124
016126

020130
017746
004737

41146
4115

001124

001244

104002

NONONOONNO
NN

016104
016106
016114

001121
010046
010446
013700
104002
02011
000402
010046
010446

(=)
o

015776
016000
016002
016004
016010
016014
016016
016020
016022
016026
015034
016036
016040
016044
016046
016054
016062
016070
0'%072
016074
016102

000176

[
OO
MO
—

015736
015736
015744
015746
015754
015756
015760
015762
015766
015770
015772
015774

4110
4111
4112

4113

TCHECK SWITCH REGISTER ROUTINE.

6064

09:23

SXXXXXAXXXXX
AN XXX AAX
X

6065
4066
4067

4069
4070
4071
6072
4073
4074
4075
4076
6077
4078
4079
4080
4081
4082
4083
4084
64085
4086
4087
4088

30A(1052)
03-AUG-79
OPTION TFSTS

;ALLOW NEW=

TEMPST
#7,COUNT

1%
TEMPCH,
RO
TEMPCH,TIB

#177600,118
#25,118

OVER
#15,718
31

#7,COUNT

TO BE

TYPED

:CLEAR TEMP STORAGE LOC

sSET UP TO ACCEPT 7 (HAR
: 1S CHARACTER THERE?

SET UP FOR PRINT ROUTINE
;PRINT ROUTINE
:STORE BUFFER
;STRIP OFF GARBAGE
JIS IV A~
:BRANCH IF NOT
:START OVER
J1S 1T A <CR»
;BRANCH If NOT

:WAS <CR> FIRST CMAR
sCHANGE SWREG IF NOT FIRST <(R>
J1S 1T LESS THAN O
;60 10 ? ROUTINE If SO
;1S 11 GREATER THAN 7

cocococoocococoo o

SO~

el
ak »

—h

d o

U SN

140

160

COO0O0ODODVOOOOOOOOO
b el b eed e s D e e

134
136

002003
1064002
020153
000716
006337
006337
006337
142737
153737
005337
001756
000714
013777
012604
012600

2
2
0046

0346
0
0546
3

ol el Y AV LV AV LV AV AV (W LV IV 1V ]

[V IV P o BB ARNANNNINON
b st a 2 OO
[ Y
¥
OO~ OoONOOSTNNOO N

ool

D v

el el el el e

il el e

D ol el

scocoocoococoooocoococococ>>ocCOCO

Y
el LYo

el il el

30A(1052)

5¢%:
001252
001252
001252
000060
001250
00125¢4

001252

69%:

163032

7%:

016364
016366

ouT:

000001
000006
000005

001262

TYPOC:
TYPON:

000006
001260
001256
000012

001260

042703

177770

100012

001256
001261

001261

005003
006105
000404
006105
006105
006105
010503
006103
105337

03-AUG-79

OPTION TESTS

104006

i
el
ll
el
el
il
il

[ P
. Y

——t

[« XV IV, IV IV IV IV IV ]
OOV
YO NI

MACYN]

000002

i o

OOO0O00O0O0O0O0OOOOO0O0OOOOOOODOOOOOOOOO

NIPNIPNINI
NI PONIPIPI Y —
s

_‘-‘—A_—.—O—J—d—‘—‘—.—-‘-—‘—fl —

PR Rl

VO NO NS WO
00~

CZLADDO LA36 DH11/DJ1Y DIAG
CILADD L1
03-AUG-79 09:18

1%:

2%:

3%:

001262

5%:
7%:

8
PAGE 94
SEQ 0094

;GO TO ? ROUTINE If SO
sSET UP FOR > TYPEOUT

COVER
TEMPST
TEMPST
TEMPST
#60,718B
118, TEMPST
COUNT

:START

T(PEN
QUEST

ASL
ASL
ASL

BI(B
B1SB
DEC
BEQ
BR

MOV
Mov
MOV

CRLF
RT1

Mov8s
MOov8
mMove
MoV
MOV
MOV
Mov
MOvB
NEG
ADD
MOvVB
mMovs
Mov
(LR
ROL

5%
1%

TEMPST ,aSR
(SP)+ R4
(SP)+,RO

MOv
PRINTC
DECB

867
BLY
INC
B8R

STRING OVER

;CLEAR OF ASCII

:MOV CHAR TO TEMPST
;ONLY WANT 6 NUMBERS AND <CR>

;1F

= 7 TOO MANY NUMBERS

:GET NEXT CHAR
s CHANGE SWR CONTENTS

:RESTORE
;RESTORE

REG 4
REG 0

: CARRIAGE RETURN

M FILL
#6 ,MODE
+1

#5,CNT
RO,-(SP)
R3,-(5P)
R4, -(SP)

;SET THE ZERO FILL SWITCH
:SET FOR SIX DIGITS
JSET THE ITERATION COUNT
;SAVE REG O
;SAVE R3
;SAVE

RS,=(SP)

;SAVE RS
;GET THE NUMBER OF DIGITS 10 TYPE

#6,R4
R& ,MODE
FILL, R4

sSUBTRACT 1T FOR MAX. ALLOWED
;SAVE 1T FOR USE
;GET THE ZERQO FILL SWITCH
;PICKUP THE INPUT NUMBER
:CLEAR THE OUTPUT WORD
;ROTATE MSB INTO “'C"’
;GO DO MSB

MODE+1,R4
R4

12(%6) ,RS
R3

ROL
ROL
ROL
MoV
ROL
DECB
BPL

BEG
INC
BIS

INPUT

sMULTIPLY BY 10

;RETURN TO PROGRAM

151

000060

BGE

BIC
BNE

4%:

09:23

;FORM THIS DIGIT

;GET LSB OF THIS DIGIT
;TYPE THIS DIGIT?
;BR 1F NO
;GET RID OF JUNK
;TEST

FOR O

;SUPPRESS THIS 0

;BR IF YES

;DON'T SUPPRESS ANYMORE 0°'S
;MAKE THIS DIGIT ASCII

;SETUP FOR PRINT ROUTINE
;COUNT BY 1
;BR IFf MORE 10 DO
;BR If DONE

s INSURE LAST DIGIT

ISN'T A BLANK

;GO DO THE LAST DIGIT

CZLADDG LA36 DHI1/DJ1Y DIAG
CILADD . PN
03-AUG=-79 09:18
4172
G17%
6176
6175
L};?
4

6178
6179
4180
6181
6182

016370
016372
016374
016376
016400

012605
012604
012603
012600
000207

MACY1T

30A(1052)
O03-AUG-79
OPTION TFSTS
6%:

MoV
Mov
Mov
MOV
RIS

09:23

(SP)+ RS
(SP)+ R4
(SP)+ ,R3
(SP)+ RO
PC

8
PAGE 9>
SEQ vt

SRESTORE RS
sRESTORE R4
SRESTORE R3
;RESTORE RO
SRETURN FROM SUBROUTINE

CZLADDO LA36 DH11/DJI 1 D1 AG
CZLADD.P11
03-AuUG-7 9 09 :18

6183
6184
6185
4186
4187
6188
4189
4190
4191
6192
6193
6194
6195
6196
4197
6198
4199
4200
4201
4202
4203
4204
4205
4206
4207
4208
6209
4210
6211
6212
6213
4214
4215
4216

4217

4218
4219
4220
4221

4222
4223

4226
6225
6226
6227
4228
4229

4230
231
6232
4233
4234

4235
4236
4237
6238

MACYT1

30A(1052)

DH11

03-AUG-79

09:23

8
PAGE

VARIABLE PARAMETER TABLE
.SBTTL

DH11

SEQ 0096

VARIABLE PARAMETER

TABLE

:'tl!"""

:DH11 PROGRAMMABLE PARAMETER TABLE

:THIS TABLE 1S PROVIDED 10 ALLOW THE DEGREE OF FREEDOM AVAILABLE
;IN THE DH11

;FOR

PROGRAMMABLE MULTIPLEXER.

EACH OF

;DH11°S.

;

THE

POSSIBLE

LINES

THERE ARE 256 ENTRIES, ONE

ON EACH OF

THE

POSSIBLE

EACH OF THE 256 LINES ARE INITIALIZED AS FOLLOWS:(=16707)

CHARACTER LENGTH

;

NO.

;

PARITY GEN.

H
:
:

STOP BITS

AND DET.

= 8 BITS

NONE

OPERATING MODE
FULL DUPLEX
TRANSMITTER SPEED
= 300 BAUD
RECEIVER SPEED
= 300 BAUD

:1F ANY LINE SHOULD DIFFER, THE APPROPRIATE ENTRY FOR VTHE LINE

;SHOULD BE CHANGED BEFORE RUNNING THE DIAGNOSTIC.
REFER TO THE LINE
;PARAMETER REGISTER IN THE DH11 PROGRAMMING MANUAL FOR INSTRUCTIONS.

"tt!t'ti"t'

016402
016402
016404
016406
016410
016412
016414
016416
016420
016422
016424
016426
016430
016432
016434

000020
016707
016707
016707
016707
016707
016707
016707
016707
016707
016707
016707
016707
016707
016707

016440
016442
016442
016444
016446
016450

016707
000020
016707
016707
016707
016707

016436

016452
016656
016456
016460
016462
016464
016466
016470
016472

DH1100:

.WORD
.WORD
-WORD
.WORD
.WORD
.WORD

016707

016707
016707
016707
016707
016707

016707
016707
016707
016707

.WORD
.WORD
.WORD
.WORD
JWORD
.WORD
.WORD

DH1101:

16707
16707
16707
16707
16707
16707
16707

16707
16707
16707
16707
16707
16707

.WORD
.WORD
.WORD

16707
16707
16707

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

16707
16707
16707
16707
16707
16707
16707

.WORD
.WORD
LWORD
.WORD
LWORD
.WORD

16707
16707
16707
16707
16707
16707

{

CZLADDO LA36 DHI1/Dy11 DIAG
CILADD.P1Y
03-AUG-79 09:18

6239
6240
6261
L2642
6243
4244
6265
42646
62647
62648
6249
4250
4251
4252
4253
6254
6255
4256
6257
4258

4259

4260
64261

6262

016474
016476
016500
016502
016502
016506
016506
016510
016512
016514
016516
016520
016522
016524
016526
016530
016532
016534
016536
016540

016542

016542
016544
016546
016550
016552
016556
016556
016560

016707
016707
016707
000020
016707
016707
016707
016707
016707
016707
016707
016707
016707
016707
016707
016707
016707
016707
016707
016707

000020

016707
016707

016574
016576
016600

016707
016707
016707
016707
016707
016707
016707
016707
016707
016707
016707
016707
016707

4277
6278
4279
4280
4281
4282
4283
4286
4285
4286
4287

016602
016604
016606
016610
016612
016614
016616
016620
016622
016624
016626

016707
016707
016707
016707
016707
016707
016707
016707
016707
016707
016707

4289

016632

016707

6276

4288
“290
4291
6292
4293
4294

016564
016566
016570
016572

016602

016630
016634
016636
016640
016642
016642

000020

DH1102:

DH1103:

.WORD
.WORD
.WORD

16707
16707
16707

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD
LWORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

16707
16707
16707
16707
16707
16707
16707
16707
16707
16707
16707
16707
16707
16707
16707
16707

.WORD
.WORD

16707
16707
16707
16707
16707
16707
16707
16707

.WORD

DH1104:

016707

016707
016707
016707
000020
016707

30AC1052;
03-AUG-79
09:23
PAGE 97
DH11 VARIABLE PARAMETER TABLE

016707

6263
6266
4265
4266
4267
4268
6269
6270
6271
6272
4273
4274
4275

016562

MACY11

LWORD
.WORD
.WORD
.WORD
.WORD
LWORD
.WORD
LWORD
.WORD
.WORD
.WORD
.WORD
LWORD

16707
16707
16707
16707

16707
16707
16707

.WORD
.WORD
.WORD
.WORD
.WORD
LWORD
.WORD
.WORD
.WORD
.WORD
.WORD

16707
16707
16707
16707
16707
16707
16707
16707
16707
16707
16707

LWORD

16707

.WORD

16707

.WORD

DH1105:

16707

LWORD
.WORD
LWORD

16707

16707
16707
16707

SEG 0097

(ZLADDG LA36 DHI1/DJYT DIAG
CZLADD.P1Y
03-AUG-79 09:18
6295
6296
4297
6298
6299

4300

6301
6302
6303
4306
6305
4306
4307
4308
4309
64310
64311
4312
6313
4314
4315
4316
4317
6318
6319
4320
4321
4322
4323

4324
6325
4326
4327
4328
6329
4330
4331

4332

016644
016646
016650
016552

01665
016656

016660
016662
016664
016666
016670
016672
016674
016676
016700
016702
016702
016704
016706
016710
016712
016714
016716
016720
016722
0167264
016726
016730
016732

016734
016736
016740
016742
016742
016744
016746
016750

016752

016707
016707
016707
016707
016707
016707
016707
016707
016707
000020
016707
016707
016707
016707
016707
016707
016707
016707
016707
016707
016707
016707
016707

016707
016707
016707
000020
016707
016707
016707
016707

4347

017006

016707

017010
017212
017014

.WORD

DH1106:

016707
016707
016707
016707

.WORD
.WORD
.MORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

.WORD

DH1107:

016707

016707
016707
016707
016707
016707
016707
016707
016707
016707
016707
016707
000020
016707

4348
4349
4350

.WORD
.WORD
LWORD
.WORD
.WORD

016707

016756
016756
016760
016762
016764
016766
016770
016772
016774
016776
017000
017002
017002

017004

H
8
30A(1052)
O03-AUG-79
09:23
PAGE
DH11 VARIABLE PARAMETER TABLE

016707
016707
016707
016707
016707

4333
6334
4335
4336
4337
4338
4339
4340
4341
6342
4343
4344
4345

4366

MACY1Y

16707

16707
16707
16707
16707

16707

16707
16707
16707
16707

16707

.WORD
.WORD
LWORD
.WORD
.WORD
.WORD
.WORD
LWORD
.WORD
.WORD
LWORD
.WORD
.WORD
LWORD

16707
16707
16707
16707
16707
16707
16707
16707
16707
16707
16707
16707
16707
16707

.WORD
.WORD
.WORD
.WORD

16707
16707
16707
16707

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

16707
16707
16707
16707

16707
16707
16707
16707
16707
16707

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

16707
16707
16707
16707
16707
16707

.WORD

DH1110:

16707
16707
16707
16707
16707

16707

98
SE0 0098

CZLADDO LA36 DHY1/DJ11 DIAG
CILADD.P1Y
03-AUG-79 09:18

4351
6352
64353
4354
4355
4356

4357

4358
4359
4360
4361

017016
017020
017022
017024
(017026
017030

4389
4390

017126
017130

6604

6405

4406

DH11

016707

017032

017042
017044
017046
017050
017052
017054
017056
017060
017062
017064
017066
017070
017072
017074
017076
017100
017102
017102
017104
017106
017110
017112
017114
017116
017120
017122

4391
6392
4393
6394
6395
4396
64397
398
4399
4600
6601
0602
«60%

8
1
03-AUG-79
09:23
PAGE 99
VARIABLE PARAMETER TABLE

30A(1052)

016707
016707
016707
016707

017034
017036
017040
017042

6362
4363
4364
64365
4366
4367
4368
64369
4370
371
6372
«37%
6374
4375
4376
4377
64378
4379
4380
4381
4382
4383
4384
4385
4386
4387

64388

MACY11

017124

017132
017134
017136
017140
017142
017142
017144
017146
017150
017152
017154
017156
017160

017162

017164
017166

DH1111%:

707

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

.WORD

DH1112:
6
6
6
6
6
6

6707
6707

6
6
6
6
6

DH1113:

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

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

.WORD

.WORD
.WORD
.WORD

16707

SEQ 0099

NN~

=~~~ =~~~ NNNNNNSN

NN NN NNNNNNN
OOQOQOO OOO0O0OOO0O0

3
No e
Mo No s e No Ne N

OOOOOOOOOOOOOOS

e
W R

No Mo Fo o R No

N N

N SN N

L
L

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

DH1116:

707

oo oFo o Roo¥o N

707
707
707
707
707
707
707

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

DH1115:

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

.WORD
.WORD
.WORD

.WORD
.WORD
.WORD
.WORD

~N~

.WORD
.WORD
.WORD
.WORD
.WORD

DH1114:

09:23

8
PAGE

VARIABLE PARAMETER TABLE

707
o

03-AUG-79

DH11

6707
6707
6707

——

NNN—‘—‘—‘—‘OO
£SO

b e
d e
—

oo
NN N

it s

o e

[elolaletlole]

N NN SN SN SN SN SN S S N N N Y -

e
ol e
nd

i e
e
il

30A(1052)

(o gl oo R

4661
Gat?

330

6707
6707
6707

NONTNNNNNNNNNTNNNYN NO~

4459
4660

0020

SNNNNNNNNNNNNNSNNN

4458

MACY11

707
707
707
707
707
707
707
707
707
707

[o|=lelaleleolclelalelelelalelele]
gl e K o Ned OOOOOOOOOOOSOO‘OOOOOOOO
oo

L4406

6447
G448
4449
4650
4651
4652
44653
4654
4455
4656
44657

276

016707

—‘ddd-—‘a—‘d-‘—.—‘—.—‘—‘.—.—‘od-—‘—‘—l—.-—.-‘—.—.—.—‘—.-—‘—l—“ o el ek aed o il i vard el b — O0OO0O
rd o
el
oo oo oo

4444

4445

270

016707
016707
016707
016707
016707
000020

elelelalelelololalolalelalelalealoleleleloleleleel
el COO0O0TDOOOOOOOC =lelolelel]

4440
L44
L4y
4643

-‘—‘—.-‘—‘-‘dd—.—‘—d-—.—.—.—.—.—‘—‘—‘q—.—.——.—‘—‘—‘—.—.-‘.—..‘_‘ B el

6463
4432
4433
4634
4435
4436
4437
4638
4439

slelelelelolelelolelololololololeolololalelolelololfoloYololee)] COOQOOODOOOO CQOOOCOOOO

4407
4408
4409
4610
4611
4612
4413
4614
4415
4616
4617
4418
4619
4420
44621
6422
6423
6424
4425
4426
4427
4428
6429
4430

CZLADDO LA36 DHI1/DJ11 DIAG
CZLADD P11
03-AUG-79 09:18

100
StQ Giuvu

NNNNNNNNNNNNNNNN

NN N N N N N N S SN N N SN N

[=leleolelelolelololelelololet
el -]

b
D el
el
il
il
el
D
il
sl

707
707
707
707
707
707
707
707
707
707

)

017356

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

)

017360
017362
017364
017366
017370
017372
017374
017376
017400

DHI117:

4471
6472
4473
4674
4675
4676
4477
4478
4479

670

09:23

8
PAGE

VARIABLE PARAMETER TABLE

017350
017352
017354

DH1Y

O03-AUG-79

4667
6468
4469

000020
016707
016707
6707
707
707
707

30A(1052)

—

017342
017344
017346

cococococoocococcO o

017342

CO0OUO0ODOCOOOOOOO

4463

L4664
6665
L666

MACY11

coococococococoococOCoCo0oo

CZLADDO LA36 DHI1/DJY1 DIAG
CZLADD.PI
03-AUG-79 09:18

101

SEa 0101

CZLADDO LA36 DH11/Dy11

CILADD.PI

DIAG

03-AUG-79 09:18

MACY1T

30A(1052)

03-AUG-79

EXISTING LINE

4480

LSBTTL

6481
64682
4483

L4684

TABLE

09:23

PAGE

102
sea 0102

EXISTING LINE

TABLE

Ieesenanvee

4485

4488
4489
4490

:THIS 16 WORD TABLE, ONE ENTRY FOR EACH OF THE POSSIBLE 16 DH11'S
;OR DJ11'S INDICATES WHICH OF THE LINES HAVE A TERMINAL CONNECTED
:THIS TABLE SHOULD BE INITIALIZED BEFORE RUNNING THE DIAGNOSTIC.
BIT 0

4692
4433

:NOT CONNECTED WHILE
SLINE.

z:gg

;EXISTING LINE TABLE

4691

;1S LINE #0 WHILE BIT 15 IS LINE #15.

4494

A 1

THE

INDICATES THAT A TERMINAL 1S
TERMINAL DOES EXIST ON THE

4495
4496
4497
4433

;EX.
IF THERE ARE TERMINALS ON LINE #0,45,#10 ANDA13
ONLY, ON THE
;FIRST DH11 AND NO OTHER DHI1 EXIST, SET THE FIRST ENTRY IN THIS
;TABLE = 155736 AND ALL OTHER WORDS = 177777.
THE DIAGNOSTIC IS
SINITIALIZED SO THAT NO TERMINALS EXIST.

4500

4501
6502
4503
0504
4505
6506
4507
4508
6509
510
6511
6512
6513
6514
4515
6516
6517
518
4519

A O INDICATES THAT

iENEERRTERY

017602
017404
017406
0V72410
017412
017414
017416

017420
017422
0176264
017426
017430
017432
01743«
017436
017440

177777
177777
177777
177777
177777
177777
177777

177777
177777
177777
177777
177777
177777
177777
177777
177777

ELTAB:

.WORD
.WORD
.WORD
LMORD
.WORD
.WORD
LWORD

.WORD
LWORD
LWORD
LMWORD
LMORD
.WORD
LWORD
LWORD
LWORD

177777
177777
177777
177777
1777177
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777

;FIRST DM

6530
6531
64532
6533
4536
64535
4536
4537
64538
6539
645640
6561
4562
4543
4544
6545
4546
6547
65648
6549

4550
4551
4552
4553
65564
4555
4556
4557
6558
4559
4560
4561
4562
4563
4564
6565
6566
4567
4568
4569
4570
4571
4572
4573
6574
6575

017442
017450
017454
017662
017470
017476
017504
017505
017512
017520
017526
017534
017536
017544
017552
017555
017562
017564
017572
017600
017606
017613
017620
017626
017634
017642

017650
017654
017662
017670
017672
017700
017706
017714
017722
017727
017734
017742
017750
017756
017764
017772
020000
020006
020014
020017
020024
020032
020040
020046
020050

007600
042104
0405146
051105
020114

047516
200
104

020046

0464440
040506

000012
005200
063117
020123
060
000012
030060
023461
042504
052123

060
030461
0642116
051505
007600
020124
030060
052514
000012
054524
054516
052116
0414

03-AUG-79

DIAGNOSTIC MESSAGES

09:23

"8
PAGE

103

SEQ 0103

.SBTTL

DIAGNOSTIC MESSAGES

LASCII

SACRLF><17>/CZLADDO/<ACRLF>

LASClL]

/LA36 TERMINAL DIAGNOSTIC/<ACRLF>

.ASCI1Z

/DH11

055103

040514

033063

052040
040516

052123

041511

030510
045104
052116
042503

020061
030461
051105
100123

047105

020104
051501

ENDPAS:

ASCI1]

<ACRLF><12>/END OF

100060

PASMES:

LASCIZ

/0000/<ACRLF><12>

030510
047125
042524
000
0645104
052640
052040
000012
051505

DH11S:

<ASCIZ

/00 DH11'S UNDER TEST/<ACRLF><12>

DJ11S:

LASCIZ

/00 DJT1'S UNDER TEST/<ACRLF><12>

HDRMSG:

ASCIZ

CACRLF><I?><12>/TEST

047503
100123

HDRO:

+ASCIZ

/000 COLUMNS/<ACRLF><12>

060440
044522
0642514
040522
040
046040
020116
042502
027056
027056
000056
042440
020110
047115

E025MA:

LASCI1

/TYPE

.ASCIZ

/AND LISTEN FOR BELL...cvvvveennens /

E025M8:

-ASCIZ

<CACRLF>/NOT

ENOUGH

COLUMNS/<ACRLF>

ECOEND:

ASCIZ

<ACRLF>/ECHO

TEST

TERMINATED/<ACRLF>

E023M:
LINES:

LASCII
ASCLY

100060

044515
044504

050040
040
030060
042040
020123
020122
005200
020060
051447
051105
100124

052012
000063
020060
047115
042520
050040
041101
040510
051105
062116
042524
020122
027056
027056

027056
052117
043525

052514
000
041505
051505
046522

042105

020040

30A(1052)

020040

STARTM:

043501

047510
020124
067111
000200

& DJ1T

INTERFACES/<ACRLF><12>

PASS

ANY PRINTABLE

4520
6521
6522
6523
6526
6525
6526
4527
6528
6529

MACY1Y

CZLADDO LA36 DH11/DU11 DIAG
CILADD.PYI
03-AUG-79 09:18

CHARACTER /

;MESG FOR TEST E023

—

CILADDO LA36 DHY1/DJUII

CILADD.P11

6576

6577
6578

4579
4580
4581
4582
6583
6584

6585

4586
4587
4588

6589
4590
4591
6592
4593
6594
6595

4596
4597

4598
4599
4600
4601

020054

020062
020066

DIAG

03-AUG-79 09:18

020040

020040
007600

020076
020102
020110

061505
052123
000

02011
020115

105
117

020040
000200
051412
020124
021440

062526
042104

MACY1Y

30A(1052)

O03-AUG-79

09:23

DIAGNOSTIC MESSAGES

PAGE

104

SEQ 0104

020040

L INESA:

.ASCIZ

046105
062524
020040

MESGS:

_ASCIZ

<ACRLF><17><12>/SELECT

EVEN:

LASCI1

116

04C

O0DD:

LASC11

/<ACRLF>
TEST &

/EVEN/

s0DD /

;"ttt'ttt"'ttt""'

;CHGDS

;'."'.""t"t"""

020121
020126
020130
020136
020143
020150
020153

020160

040
000040
007600
051127
040
020075
040

000
020162

000001

057040

020107

NI1G:

ASCIZ

020012
020075
047040
000
037440

051388

SWR:

JASCIZ

<ACRLE>CI?T>C12>/

053505

NEW:

LASCIZ

NEW= /

020040

AQUEST:

LASCIZ

.FVEN

.END

%6/

¢/

SWR= /

2533

1801

2056

2594

1581

1609
36720

3188

2749
3366

2819
3469

2854

3753

4549
1774+

3757
4551
1793

S€0 0105

6565

5829

3839
§569

6044
6576

6048
4578

6524
4591

3510

2914
3539

2978
3665

3045
3726

3094
3821

3113
3948

4027

4526

45351

3144

519

1748

2843

1569

3452

1862+
1860+

2651
3251

1996
16614

26164

3457
2051~
2050«
2679
3277
1803

2404
1665
4167
1843«

2448
1760
1871

1874«

1891«

1900+

1645

1755+«

1757+

1759

1769«

1788«

1798

1801

2849

2866

2907

2971

3005

3022

3039

3781

2367
3044
3599

2648

3090
3614

2674
3093
3630

2741
3110
3647

2748
3170
3657

2900
3246
3820

2909
3272
5938

2913
3643

4025

2960
3456

4035

1745

1790

1805

24673

2505

2591

2893

2911

2953

22954

2806
3908
1610
3010
3560
2056+

-»

1613

(SR
001236
CURTST
001120
DELAY = 104003

2396

4000

= 104006

2099

001254
104014

1798

PO
— P
NN
0

CRLF

002034
002062
006160
004572
001316
002034
003476
014732
015736
001502
104024
104017
001262
001154
020121
001104
104025
004404

2053

1907

WMV
AN

CHAINN
CHAINY
CHARAC
CHGD10
(HGDY
CHGD4
CHGDS
(HGD6
CHGD?
CHGD9
(KSWR =
CLEAN =
(N1
CNTOH
(N1
CNTLSW
CNTLU =
CNVCTR
COUNT
(R
=

2046

3749

NN
NN

BIT1
= 000002
81710 = 002000
81711 = 004000
BIT12 = 010000
BIT13 = 020000
BIT14 = 040000
817115 = 100000
8112
= 000004
B113
= 000010
BIT4
= 000020
BITS
= 000040
BI16
= 000100
BI117
= 000200
8118
= 000400
B119
= 001000
BTOASC= 104015
BUFR
012234
BYCR
001146
CARA
001144
CHAIN = 104001

2280

49545
1707

~NOO

BAR
001150
BITTAB
001162
BIT0
= 000001

14574

3667
45641
1680

— s

001222
004412

2262

4539
1619+
22994
1864+
1880

ACTIV
ADTENP

13548
4536

—~y

= 000200

30A(1052)
03-AUG-79 09:23 PAGE 106
CROSS REFERENCE TABLE -~ USER SYM3CLS

—

ACRLF

BMACY11

CILADDO LA36 DH11/DJ11 DIAG
CZLADD.P
03-AUG-79 09:18

CZLADDO LA36 DH11/DJ11 DIAG
CZLADD.P1Y
03-AUG-79 09:18

DMADR
DHCNT
DHI1S
DH1100
DH1101
DH1102
DH1103
DH1104
DM110S5
DM1106
DH1107
DM1110
DH1111
DH1112
DH1113
DH1114
DMI11S
DH1116

DHI117
DIGIT

DISPLA
DISPRE

001134
001230
017564
016402
016442
016502
016542
016602
016642
016702
016742
017002
017042
017102
017142
017202
(017242
017302

017342
004406

001246
000174

DJCNT
DJ11S
oLY
ECHO
=

001226
017613
004174
104021

ECHODJ
ECOEND
ELTAB
EMTINT
EMTTAB
ENDIT
ENDITD
ENDITR

003600
020017
017402
003346
003422
005432
005424
005416

ENDPAS
END3
END4
£020
£021
£E021A
€0218
€022
E022A
0228
023

017536
001432
001500
011126
011172
011200
011234
011244
011282
011314
011530

E024
E024B
E024R
€025

012052
012060
012140
012636

EVEN
FlLL

020111
001256

E023M

EO25MA
E025MB

020046

017672
017772

2975

16408
14604
1607
1870
42254
62420
42594
62764
62934
43104
43274
L3460
43614
(3784
43954
46128
44294

MACY11

3069

1530+
1532«
1612
2426

30A(1052)
03-AUG=79
09:23
PAGE 107
CROSS REFERENCE TABLE -~ USER SYM30LS

3135

SeEa 0106

3217
2624
1541

3269

3336

3429

3497

3618

1606

1703

1833

2394

2427

2288+

2289

22964

1523«
L5454

1543

1578

1592

1890

2531

2555

1735

1747

1807

2159

2326

2328

3276
25564

45040

3365

3468

3509

65694

2532
2469

2537
2504#

2609
2543

2547

2551

2546
3261

2577

32492

2550
3331

2581

32754

1835
1535«
65414
42084

3117

3796

3972

4000

2398

2535

3221

3439

3503

2574

2578

2582

L4460

L4630

2282+

14684
16114
14594
1579
1998
13754

3629
2045
3224
1893
1398
1987

2423
2456
2409

2507#
2464
2539

3486
32374

65738

346220
3460

34854

L5540
6147

3470

2839

2834

2838

28427

et =

NNN:—'\"\N

e
d ek o

2636

1576

1905«

1631
1909

«099
1620

2853

1647
2904

2970

2843
2049

2062

2085

2053

2055

1734

2391
3664

3782

3986

4026

4146w

33844

1433
1460

1435
1462
1958

1436
1469
1966

3378

3379+

2643
2858

2683
2863
2967
3538
3610
3651
3899
3992

2688
2884
2997

3551
3613
3653
3901
3995

4010

3062

3106

3127

1948

—= 00

2101
—

2080

Pl
o
~ N

1430
1457
1945

1923

—

1820

O
£~ &
vy
¥
N~

1772
1838

2125+
3184«
45394
2124+
22354
4094
1526
3261
19344
2031
2739
2903
3109
3583
3632
3664
3923
6022
2534

1876+

3932

36524

40904

1489+

SEQ 0107

el
—

PRINTY
005474
PRIMDR= 104012

2818

1449
1474
4081

ANAI A

104011

2368

3356
34044
4137«
3343
3357
45934
1754
1776
1615
45844
1428

CoOOWVSHOONO

Pty

NN
AN =t s O =2 N
N 2 RN
O NN

[el=lelelolelole]

POS1
PRGTAB
PRINTC=

005
022626
001122
003246

3737

1781
27534
28694
L5740
45764
31404
1858+«
1518«
1881«
1792

QOO0
~J N~
Ll
[e RV TV e S NIV IV 1V ¥ o

POPSP?2

PARITY
PASCNT
PASME
S
PCHAR
PFAIL
POPSP

2536

3910

001132
001156
007144
LINED
007666
LINES
020050
LINESA
020054
LOGICA
010740
LPR
001142
MACHER
000004
MASK
001160
MESG3
020066
MG24
012042
MG25
012046
MODE
001260
MONIC
011324
MOVNUM
011770
NEW
020143
NG
002634
NRCRA
001140
NXTST
001110
000
020115
OPEN
= 000000

ou?
QuTPULT
OVER

65514

1487+«

LFCNT
L INENO
LINEZ

1773

3888
L5490
2638
31440
2399

INRDY
JOSW
LFf

1667

O g SN

HDRO

HERE

1064016

106023
017642
017656
010750
104022
001224
104010

30A(1052)
03-AUG-=79
09:23
PAGE 108
CROSS REFERENCE TABLE ~- USER SYM30QLS

weo

f ORWD
f OUR
HDRMSG

MACY11

CZLADDO LA36 DH11/DJu1] D! AG
CZLASD.P
03-AUG-79 09:18

2126+
1651
3265+

1702

2340
2800
2944
3167
3591
3636
3789
3934

4030

2362
2846
2949
3243
3595
3641
3805
3947

4034

2366
2848
2957
3267
3598
3643
3883
3977
4102

2963
3464
3605
3646
3885
3979

4166

2671
2860
2965
3532
3607
3649
3893
3990

2707

2833

2880

2940

2993

2691
2883
3017
3575
3622
3656
3903

1439

1472

CZLADDO LA36 DHY1/DJ1Y DIAG
CILADD.P
03-AUG-79 09:18

MACYT1

3214

3239

3263

3333

1934
2635
2992
3061
3105
3145
31602
3158
31640
2660
2706
2795
2832
2912
2879
2939

26348
26594
3060#
31042
31254

3126

3161
3192
27054
27944
28314
28784
29164
29384
2991s

2852
26470+

1727
3998
28574
2503+

3616

3730

3775

3164+

3166

3173

3181«

3182

3240+

3242

3264

3266

2356
2571

2363
2575

2410

2614

2418

2453

2457

2461

2468

2558
2637
2491+
2603

2610
2438
2558

2439
2559«

2640+
2562+

2441
2563+

2443

2564

2475
2566+

24760
2567

2533

4078

4092

4128+

2137
2567+

»
e

2579

2586

2099

2396

1746
2644t

1753
2446

2048+
2651

2050
2466

2065+
2470

3759
3359

3368#

1546

4078

naro

1734

24430

—00

1719

2407

2064+
W~

2059
2055+

303¢
2816

(o] %)

2260

2809
2807+
26824

45240
914

oLl

3495

1661

1500+
2052+

16894

3427

1613

1866

1496

3334

1559

14474

14664

3215

1666

2666
26874

14334

1742

[+
1.]

1663
2544
2252
1841
1897
1869+
3504
2430
2431«
2688+
2595
2119
2116

2803
2797+
2668
2738

26904

1739

2976

[V 1oV ]

19234
18544
1491

3967

2424
2430+
2486+
2594+

3876

1684
1710
164224

1856+
2157

3770

YW P
0O NN e
OO WD

2477
2593«

18904

3718

(VL I

14624

1570+
2540
22474
18334

3581

[aS 1 ST, 01, N

1709
1683
144614
13654
14614

22504

3522

rony

001240
001124

16294

2515
2242+

45954
1715
3970

3487

O~
b wd 3O

003214
002750
001100
006746
001116
006726
006740
001244
001152
001276
(17442
001302
001266
014143
011712
020130
000176
001242

13694
3794
2837
14324
2243

3424

S€a 0108

NI
N —

TCR
TEMPCH

001136
= 104007
001232
001234

1940
1941
4118

— il s et N ANASY —D
OOV N~

SETDJ
SETERM
sP8OT
SP(
SPCNT
SPSP
SP2
SR
SSR
START
STARTM
STARTX
STARTY
STORE
STRLN
SWR
SWREG
18uf

004252
002674
003106

2908

L
X3

SCR
SCRLF
SCR1
SCR2

001106

1936
1937
1938
1939

SAVRG
SCANDH
SCANDJ

007636

001114
004254

1949

3157#
3159

DY AN e o et

RTINNO

010272

020153
= 104013

31284

s et B

REF

REPT
RESTRT

010642
010674
010702
010764
010754
010776
006756
007406
007526
007704
010052
010110

13294
1615
1935
1942
1943
1944

it ot

P17

QUEST
READ

177776
006560
006634
010504

WS BB OWNSSWTm ~
N
O — D NMNI - OD ~N ar—
NN
(Yo
o

PTI
PT12
PT12A
P17
PII7B
PIV7D
P12
P13
P14
P15
PTSAL
P16

PSw
P10
P1Y
PT10

30A(1052)
03-AUG-79
09:23
PAGE 109
CROSS REFERENCE TABLE -- USER SYM3OLS

CZLADDO LA36 DH11/DJ11 DIAG
CILADD.P1Y
03-AUG-79 09:18

MACY11

2568+
3454

2569
3455+

TEMPST
TENPWR
TERM

001252
004410
012224

TESTC = 1046020
TEST30
012740

TEST31
TEST32
TEST33
TES134
TEST3S

1i8
TIMER
TIMES
TTIYCTL=
T1Y)
TTYJA
TTYJTL=

I8AD

TIYIA
TIYIB
T1Y16
TIYIH

013122
013740
014170
014724
015274

001250
001102
001264
104004«
002112
002114
104005

002142

002144
002174
002500

002540

TIYIL
002606
TYp
004114
TYPE
= 104000
TYPEM = 104002

TYPM

TYPOC
TYPON

004144

016222
016236

T30sC
WIDTH

013120
001112

$BTASC
$CKSWR
$CLEAN
SCNTLU
$CR
SCRLF
$ECHO
$FORWD
$FOUR
SINRDY
SLF
$PRHDR
$PRTC

0064320
015736
002020
015774
004506
004474
003516
002652
003476
003654
004476
004516
004572

4084
16700
2281+«
2412
13744

1960
1961
1962
1963
1964
1965

14694
14264
14754
13624
16794
1622
13638

17 027

16 21
16 85
16 82

}; 87#

77
1995
13584
13600

3364
3637

3968
1997

4093
41384

4101
4097¢
0283
2455

1720
35204

35718
37164
37684
38744
39654

4103+
2217

003716

2584
3458+«

2588
3498

3218
3619

3337
3628

3340
375

4121«
2297
2573

4122«

4124+

4128

3431

3467

3540
3666
3727
3822
3949
4028
4105

4108

4113

17764
1808

1782
2422

1786
2465

3362
1583

3493
1611

3745
1617

4103
4120%
2287
2542

1736
3521

3572
3717
3769
3875
3966

4104+
3736

S€a 0109

3348
3734

3351
3778

6115

6123

4124

2552

2583

3627

1791

2250

2354

3430
3797

3432
3973

3436
4001

3733

3780

3799

6037

2637

3189

34420
4080

1999
17034
17114
1708
1802
1798#

21504
3345
1573

3467
3644

3980
21754

1796

1797

3490
3654

3506
372¢

3508
3724

3524
3773

3527
3792

3576
3808

3586
3809

3223

3596
3811

3608
3814

3611
3816

3249

3275

3615
3817

3996

4004

4085

4090

4095

6117

2642
3012

2798
3029

2816
3165

2835
3172

2851
3241

2881
3265

2890
3488

2901
3548

2916
3558

2941
3881

2950
3912

16014

16054

14098

16204

26164

2780

34734

37598

3853%#

41364

3528
164314
%gg;

3563
1566
5393

2008
2016
16314
2017
2007
2001
2012
18204
2015
2013
2003
2005
2004

22784
4078#
2010
4£088#
23434
23384
20440
2009
20294
20804
2339
23544
23854

2099¢

2102

2107

13870

1391

13920

13964

2006

1650

2000
16804
1649

SREAD

30A(1052)
03-AUG-79
09:23
PAGE 110
CROSS REFERENCE TABLE -- USER SYM3OLS

2047

2086

= 020162

S
t

CILADDO LA36 DH11/Dy11 DIAG
CILADD.P1Y
03-AUG-79 09:18

MACY11

40594

45978

ABS.

020162

ERRORS DETECTED:

G
9
30A(1052)
03-AUG-79
09:23
PAGE 111
CROSS REFERENCE TABLE -- USER SYM3OLS

000
O

CZLADD.BIN,CZLADD.LST/CRF/SOL/NL:TOC=CZLADD.P11
RUN-TIMt: 13 28 1 SECONDS
RUN=TIME RATIO: 369/44:8.2
(ORE USED:
7k
(13 PAGES)

SEQ 0110