Digital PDFs

AH-8903D-MC

November 1979

111 pages

Original

61MB

view download

OCR Version

85MB

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

OCR Text

LA36 DH11 DJ11 DIAG

CZLADDO

AH 8903D M(

NOV 1979

FICHE1 OF

MADE

!fl!nuau
IN

USA

MACY11

30A(1052)

03-AUG-79

09:23

1
PAGE

SEQ 0001
-REM 3

' e

VD NN —=O O~

[T N,

ZLADDO LA36 DH11/DJ11 DIA G
ILADD.PI
03-AUG-79 09:18
1

= OO0V N

WNINUPOTUPURORUPURU
N s et et s e

YyoOuns W

IDENTIFICATION

PRODUCT

CODE:

PRODUCT NAME:

CZLADDO LA36 DH11/DJ11

PRODUCT DATE:

JUNE

MAINTAINER:

AC-8902D-MC

DIAGNOSTIC ENGINEER:

DIAG

1979

ENGINEERING

ROBERT BAKER

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 IS 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

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:
DIGITAL
DEC

POP
DECUS

UNIBUS
DECTAPE

MASSBUS
DECX/11

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

MACYT1

30A(1052)

03-AUG-79

09:23

1
PAGE 2
SEQ 0002

50
51
52
53
54
55
56
57
58
59
g?

PAGE 2

TABLE OF CONTENTS

62
63

2.0

2.1

REQUIREMENTS

EQUIPMENT
STORAGE

PRELIMINARY PROGRAMS

3.0

LOADING PROCEDURE & INITIALIZATION

71
;g

4.0
4.1

STARTING PROCEDURE
STARTING ADDRESS

74
75
76
;;

5.0
5.1
5.2

5.3

OPERATING PROCEDURE
SWITCH REGISTER CONTROL
KEYBOARD CONTROL

79
80
81
82
83
84
85
86

6.0
6.1
€,1.1
6.1.2
§:3.3
6.1.4
b.1.3
6.1.6

TEST DESCRIPTIONS
PRINTING TESTS
TESTO
= DATA PATH TEST
TEST]
= PRINTABLE CHARACTER TEST
TEST?2
= NON-PRINTABLE CHARACTER TEST
TEST3
= CARRIAGE RETURN TEST
TEST4
= MULTIPLE LINE FEED TEST
TESTS
= SINGLE LINE FEED TEST

89
90
91
92

6.1.9
6.1.10
6.1.11
6.1.12

TEST10
TEST11
TEST12
TESTIT

87
88

6.1.7
6.1.8

CONTROL *G

TESTE
TEST?

6.2

ECHO TESTS

96
97
98
99

6.2.3
6.2.4
6.2.5
6.2.6

TEST22
TEST23
TEST24
TEST25

b
95

100
101

102
103
104
105

6.2.1
6.2.2

6.3
6.3.1

6.3.¢2
6.3.3
6.3.4
6.3.5

TEST20
TEST21

= BACKSPACE TEST
= OVERPRINT TEST
= PRINTING FREQUENCY SWEEP TEST
- RIBBON FEED TEST
= PRINTER BELL TEST

= L1EE 'TES)

= CHARACTER ECHO TEST
= LINE ECHO TEST, FAST RATE

=
=
=
=

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

OPTION TESTS
TEST30
= SECONDARY CHARACTER SET OPTION

TEST31
TEST32
TEST33
TEST34

=
=

SELECTIVE ADDRESSING OPTION
AUTO ANSWER BACK OPTION
TOP OF FORM OPTION
HORIZONTAL TAB OPTION

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

MACY11

30A(1052)

03-AUG-79

09:23

1
PAGE 32
SEQ 0003

6.3.6

TEST35

= VERTICAL TAB OPTION
[

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

MACYT1

30A(1052)

03-AUG-79

09:23

PAGE &
SEQ 0004

107
108
109

PAGE 3

1.0

THIS DIAGNOSTIC

ABSTRACT
1S DIVIDED

INTO FOUR BASIC

SECTIONS:

A CHECK OF

THE CONSOLE

}}3

A CHECK OF

THE PRINTING CHARACTERISTICS AND CONTROL LOGIC

118
};g

AN ECHO PORTION DESIGNED TO CHECK THE KEYBOARD AND 10 AID
THE DIAGNOSIS OF TERMINAL PROBLEMS.

}g;

A CHECK OF

123

124

}32

TERMINAL

INTERFACE

THE

THE VARIOUS LA36 OPTIONS.

PATTERNS USED BY THE PRINTING TESTS WERE CHOSEN
VERIFICATION.

LOGIC

FOR

EASE

VISUAL

ECHO TESTS WERE DESIGNED FOR MAXIMUM FLEXIBILITY,

WITH TEST 24 ALLOWING
ANY DESIRED PATTERN 10 BE USED.

127

28
gg

2.0

REQUIREMENTS

2.1

EQUIPMENT

33
3,
35
36

THE DIAGNOSTIC 1S WRITTEN TO RUN ON ALL MODELS OF THE PDP-11
COMPUTER
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 T0

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.
IFf
ANY
ERRORS
ARE
ENCOUNTERED DURING THE INTERFACE CHECK, REFER TO THE
APPROPRIATE INTERFACE DIAGNOSTIC FOR
FURTHER
HELP
IN
LOCATING
THE
PROBLEM IF NEEDED.

MACYT1

30A(1052)

03-AUG-79

09:23

o1
PAGE §

SEQ 0005

VO NO NS WO 0NV

QOO0
~N~N~NN~N~ NNNNOCOCOCTOCOCOC
OO
NN =0V
NO W

bumdoom\nembwm—-gomwow &

-—

NN iVl

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

PACE

3.0

LOADING PROCEDURE & INITIALIZATION

LOAD THE LA36 DIAGNCSTIC PROGRAM
TAPE
FOLLOWING
NORMAL
PROCEDURES.
BEFORE
STARTING THE PROGRAM, REFER TO THE EXISTING LINE TABLE (ELTAB)
AND CLEAR THE PROPER BITS IN THE TABLE TO INDICATE WHICH TERMINALS ARE
T0
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 OUT THE PRESENT CONTENTS OF THE
SOFTWARE
SWITCH
REGISTER
WHEN THE PROGRAM IS STARTED.
IT WILL THEN ASK FOR THE NEW CONTENTS TO
?%N}gPU} ;BTTHE SOFTWARE SWITCH REGISTER.
TYPE
CARRIAGE
RETURN
10
H

4.0

STARTING PROCEDURE

4.1

STARTING ADDRESSES

200(8)
204(8)

4.1.1

EXECUTE WITH DH11
EXECUTE WITH DJ11

MULTIPLEXER
MULTIPLEXER

EXECUTE WITH DH11 MULTIPLEXER

REFER TO SECTION 3.0 AND MAKE SURE THE
PROPER
BITS
IN
THE
ELTAB
TABLE
INDICATING WHAT TERMINALS ARE TO BE TESTED HAVE
BEEN CLEARED AND THE CORRECT DELAY
COUNT
FOR
THE
CPU
AND

MEMORY TYPE

IN USE HAS BEEN SET

gE}nglTCH

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

IN TIMER.

AND

PRESS

THE

LOAD

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.

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

MACYT1

30A(1022)

03-AUG-79

09:23

PAGE &

SEQ 0006 |

VB WNN—-=O

208
209

PAGE 5
fF.

IF BIT 8 WERE 1 WHEN STARTING, THE

NUMBER

DH11'S

UNDER

TEST
WILL
BE INDICATED AND THE MESSAGE "'SELECT TEST NUMBER'
WILL BE PRINTED ON ALL EXISTING TERMINALS.
THE PROGRAM
WwILL
THEN
BE
WAITING
FOR
A
TEST
SELECTION
VIA
ANY TERMINAL
KEYBOARD (IF SWITCH 13 IS DOWN), REFER TO SECTION 5.2

W=
O 000~y o

NN
=
—

oo ~n

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

MACYT1

30A(1052)

ST VT N7 N
NN NN
N NN N

el BaiTe 3 VB WN—=O

1
PAGE

PAGE 6

4.1.2

EXECUTE WITH DJ11 MULTIPLEXER
A.

5.0

09:23

SEQ 0007

SAME

INSTRUCTIONS AS 4.1.1

EXCEPT

THAT

THE

STARTING

ADDRESS

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

224

NN LAV

O03-AUG-79

OPERATING PROCEDURE

THE PROGRAM 1S GENERALLY CONTROLLED FRGM 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,

5.1

ECHO

TESTS

WILL REFERENCE ONLY THE TERMINAL SELECTING THE

OR ALL TERMINALS DEPENDING ON THE

SWITCH 13,

SPECIFIC

TEST

AND

THE

SETTING

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.

SWITCH NUMBER

O~NO
NS w0 —

rorororerorNoro
N

VW
T UV YUY

15
13

DESCRIPTION

1(UP)

= HALT AT END OF

1(UP)

= DRIVE ONLY SELECTED TERMINAL

TEST

O(DOWN) = CONTINUE TEST SEQUENCE
O(DOWN) = DRIVE ALL TERMINALS

1(UP)
= SELECT TEST (AT START=-UP ONLY)
O(DOWN) = START NORMAL TEST SEQUENCE

7-0

NUMBER OF COLUMNS AT START-UP

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

259
260
261
262
263
264

MACYT1

30A(1052)

03-AUG-79

09:23

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 CAUSE THE DRIVING
OF
ALL
TERMINALS.
IF
SWITCH
13
IS
UP,
ONLY
THE TERMINAL UNDER TEST IS
DRIVEN.

NOTE

SWITCH 13 CAN ONLY BE CHANGED

PROGRAM

5.1.3

IS WAITING FOR A TEST

WHEN

THE

SELECTION.

SWITCH 8 (AT 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.

5.1.4

SWITCHES 7 TO O (AT START-UP ONLY)

AT START=UP ONLY, SWITCHES 7 10 O ARE USED TO SET THE DESIRED
MAXIMUM
NUMBER
OF
COLUMNS
THE
DIAGNOSTIC.
IS TO TEST.
IF THE NUMBER SET IS

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

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

301
302
303
304

305
306

MACY11

30A(1052)°

03-AUG-79

09:23

1
PAGE 9

SEQ 0009 |
PAGE 8

5.2

KEYBOARD CONTROL

THE PROGRAM WILL ALWAYS BE UNDER KEYBOARD CONTROL.
CONTROL
FROM
THE
SWITCH REGISTER DURING PROGRAM EXECUTION IS ONLY POSSIBLE WITH SWITCHS

WW
W W
nno -.—._‘—.—.—‘—‘-‘_‘

= OV~
WV NN —

13 AND 15 AS STATED ABOVE.

TYPING THE "‘RUBOUT'* (DEL) KEY ON ANY TERMINAL KEYBOARD WILL
TERMINATE
THE
TEST
IMMEDIATELY.
AFTER
TERMINATION OF THE TEST THE FOLLOWING
MESSAGE WILL BE TYPED:

SELECT TEST #
AT THIS TIME, TYPE THE DESIRED TEST NUMBER FOLLOWED BY ANY ONE OF
FOLLOWING CONTROL CHARACTERS:

(PERIOD)

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

THE

ANOTHER

= LOOP ON THE SELECTED
TYPED.

= START THE TEST SEQUENCE WITH
THE
SELECTED
TEST.
CONTINUE
TO
LOOP
ON
THE PRINTING TEST SEQUENCE

TEST

UNTIL

‘''RUBOUT'

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 IF 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
T0
LOOP
ON
THE
SELECTED
TEST.
IF
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

*G FUNCTION

THE PROGRAM WILL SENSE “G COMMANDS WHEN STARTED

LOCATION

200

204,
CONSOLE
SWITCH REGISTER
VALUES WILL BE PRINTED ON THE TTY AT
START UP TIME AND THE NEW VALUE ENTERED BY
OPERATOR.
TO
CHANGE
A
VALUE,
TYPE
*G.
AT THE END OF A TEST THE NEW VALUE CAN BE ENTERED.
“U ALLOWS INCORRECT DATA TO BE DELETED AND A NEW ENTRY
STARTED.
ALL
INPUTS ARE TERMINATED BY CARRIAGE RETURN.

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

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

MACYT1

30A(1052)

03-AUG-79

09:23

1
PAGE

SEQ 0010 |
PAGE 9

6.0

TEST DESCRIPTIONS

6.1

PRINTING TESTS

THESE TESTS ARE DESIGNED AS A TEST OF THE PRINTING MECHANISM
ASSOCIATED
CONTROL
LOGIC.
AT
THE BEGINNING OF EACH TEST,

AND
THE
THE TEST
NUMBER WILL BE PRINTED INDICATING WHICH TEST IS 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 1S SENT WHICH WILL
PRINT ALTERNATING #'S AND U'S IN A CHECKERBOARD PATTERN TO THE MAXIMUM
COLUMN
WIDTH.
THE STARTING CHARACTER FOR EACH LINE IS ALTERNATED AND
A TOTAL OF FOUR LINES ARE PRINTED.
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:
*UrUrUrUrUrUrUrUrUrUrUrUsryrury

UrUrUrUrUrUrUrUrUrUsUrUrUrUrU
*UrUsUrUryrUrUrUsUrUrUrUrUrUry
UrUrUsUrUrUrUrUrUrUrUsUrUrUrUS

6.1.2

TEST 1 - PRINTABLE CHARACTER TEST

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

BETWEEN GROUPS.
THE
FIRST
COLUMN WILL CONTAIN ALL ASCII
CODES FROM 040 TO 077.
COLUMN TWO WILL
CONTAIN ALL
ASCII
CODES FROM 100 TO 137 - PRIMARILY THE CAPITAL LETTER SET.
THE LAST COLUMN WILL CONTAIN ALL

ASCII

176 - PRIMARILY THE SMALL LETTER SET.

CODES

FROM

140 10

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 DéA?B
CZLADD.P11
03-AUG-79 0

MACY11

30A(1052)

03-AUG-79

09:23

1
PAGE 11

SEQ 0011

403

PAGE

404
405

406
407
408

EXAMPLE:

410

BBB

$%%
%%

DDD
EEE

GGG

JJJ
KKK

409

111

411

412

613

414

1441

415

AAA

cCcc

FFF

AAA

ccc
FFF

416
417
418
419
420
421

(C(C
)))
wer
+44
PP
———

g4y
KKK
o
MMM

MMM

424
425
426
427
428
429
430
431

000
1M1
222
333
444
555
666
777

PPP
QaaQ
RRR
SSS
117
uuu
VW
Wl

PPP
Qaa
RRR
SSS
177
uuu
VW
WWl

422
42%

i
/117

432
433
434
435
436
437
438
439
440

441
442

242
4

445

446

888
999
$e
533
€€
===
>
277

6.1.3

HHH
111

NNN
000

HHM
111

NNN
000

XXX
XXX
vYY
yyy
£ 7 SR 5 1 4
Cce
AW\
]1]

TEST 2 - NON-PRINTABLE CHARACTER TEST

THIS TEST CHECKS ALL NON-PRINTABLE CHARACTERS

THAT

HAVE

CONTROL

FUNCTION IN THE LA36 TERMINAL OR THE LA36 OPTIONS (SUCH AS CR, LF, BS,

W47
448
449
450
625

€ BEL).
FIRST THE ASCII] 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.

453
454
425

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.

456

657

CZLADDO LA36 DH11/DJ11 DIAG

CZLADD.P11

458
459
460
461
462
463

03-AUG-79 09:18

MACYTT

30A(1052)

PAGE

000
006
022
025
030
03¢
037

465

500
501
502
503
504
505
506
507
508
509
510

EXAMPLE:

466
467

478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499

M
PAGE 12

09:23

SEQ 0012

L64

468
469
470
471
472
473
474
475
476
477

03-AUG-79

6.1.4

NUL
ACK
DC2
NAK
CAN
FS
us

001
020
023
026
031
035
177

SOH
DLE

002
021

032

DC3
SYN
GS
DEL

STX
D»C1

024
027

DC4
ETB

036

SuB

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.
A GOOD CHECK FOR PROPER OPERATION OF THE POSITION DECODER.

COLUMNS

IS ALSO

THE TEST PRINTS A FULL LINE OF ALTERNATING 0'S
AND
SPACES,
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.
CHECK TO SEE THAT ALL X'S ARE
}? THE MIDDLE OF

THE SPACE BETWEEN THE TWO ZEROES ON

EITHER

SIDE

EXAMPLE:

0Xx0X0X0X0X0X0x0Xx0X0X0X0X0x0X0X

WITH THE AUTO LINE FEED OPTION SET TO PRODUCE AN AUTOMATIC
AFTER

EVERY

RECEIVED CARRIAGE RETURN,

0'S AND SPACES, THEN PRINT A DIAGINAL LINE OF X'S.
THE ENCODER,

00oO0O0OO0OO0OBOQODO

FEED

TO CORRECTLY CHECK

THE AUTO LINE FEED OPTION SHOULD BE DISABLED.

:
EXAMPLE

LINE

THIS TEST WILL PRINT A LINE OF

CZLADDO LA36 DH11/DJ11 DIA?

CZLADD.P1T

03-AUG-79 09:18

MACY11

30A(1052)

03-AUG-79

09:23

1
PAGE 13
SEa 0013

511
512

513

PAGE

314

6.1.5

516
517
518
519
520
21

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.

523
524
525

WITH THE AUTO LINE FEED OPTIQN SET TO PRODUCE AN AUTOMATIC
LINE
FEED
AFTER EVERY CARRIAGE RETURN, THE NUMBER PRINTED WILL INDICATE ONE LESS
THAN THE NUMBER OF LINE FEEDS (THE NUMBER OF BLANK LINES) THAT FOLLOW.

357

528
529
530
531
532
533
534
535
536

537
538
539

TEST & - MULTIPLE LINE FEED TEST

THE TOTAL DISTANCE BETWEEN THE TWO DASHED LINES WILL THEN BE 69 LINES.

EXAMPLE:
T

540
541
542
543
544

546
547
548
549
550
551
552
553
554

\
/

15 BLANK LINES

31 BLANK LINES
\

00-==-====n= T

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

555
556
557
558
559
560
561
562
563

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
CHECK THE NUMBER OF COLUMNS THE PRINTER IS PRINTING.
THE

FIRST

REFERENCE LINE CONTAINS

IF
TESTING
WILL CONTAIN
FOLLOWED
BY

130(10)

USED

EASILY

ZEROES FOLLOWED

TWwO 2°'S

132(10) COLUMNS.

THE

SECOND

132(10)
COLUMNS.
IF LESS THAN
132
COLUMNS, THE LINE
0°'S FOR TWO LESS THAN
THE
MAXIMUM
NUMBER
OF
COLUMNS
THE
TWO
2°'S.
THIS
REFERENCE
LINE IS A QUICK CHECK

FOR 132(10) COLUMNS IF TESTING THE FULL

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
IS
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
OF
THE
MIDDLE
REFERENCE
LINE.
ALSO, ANY PAPER FEED PROBLEMS WILL CAUSE MISS-ALIGNMENT OF THE SLASHES
FORMING THE DIAGONAL LINE.

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

593
594
595
596
597
598
599
600
601
602
603
604
605
606

MACY11

30A(1052)

03-AUG-79

09:23

PAGE

SEQ 0015
PAGE

EXAMPLE:

900000000000000000000000000022

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.

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

639
640
641
642
643

MACYT1

30A(1052)

03-AUG-79

09:23

PAGE

SEQ 0016
PAGE

:
EXAMPLE

644

645
646
647
648
649
650
651

0000000022
\

652
653
654
655
656
657
658
659
660

\
\

1234567890

661
662

663

664

6.1.7

666

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

665

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

TEST 6 - BACKSPACE TEST

THE TEST CONSISTS OF THE SAME FIRST REFERENCE LINE AS IN TEST 5
THEN
A
CARRIAGE
RETURN-LINE
FEED.
A FULL LINE IS THEN PRINTED USING THE

FOLLOWING PATTERN:

FORWARD SLASH
BACKSPACE

BACK SLASH

''/"

5 0

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 1S

COMPLETED A CARRIAGE
RETURN-LINE
FEED IS
SENT
AND
THE
LAST
TwO
REFERENCE
LINES
ARE
PRINTED AS IN TEST 5.
ANY TIMING PROBLEMS WILL
SHOW IN THE FIRST 16(10) CHARACTERS
OF
THE
MiDDLE
REFERENCE
LINE;
AGAIN AS IN TEST 5.
WITH THE AUTO LINE FEED OPTION SET 10 PRODUCE AN AUTOMATIC
LINE
FEED
AFTER
EVERY
RECEIVED
CARRIAGE
RETURN,
THERE
WILL BE A BLANK LINE
BETWEEN EACH PRINTED LINE.
EXAMPLE:

000000000000000000000000000022

X000
XX

123456789012345678901234567890
123456789012345678901234567890

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

695
696
697
698
699

R ele RNTe RV I YT N

NN N NNNN

700
701
702
703
704
705
706
707

MACY1T

30A(1052)

03-AUG-79

09:23

PAGE

SEQ 0017
PAGE

6.1.8

TEST 7 - OVERPRINT TEST

THIS TEST

1S DESIGNED TO CHECK

THE

SPACING

AND

REPEATABLE

PRINTING

CHARACTERISTICS
OF
THE
PRINTER.
THREE ROWS OF CHARACTERS ARE EACH
OVERPRINTED TWO TIMES.
THE ROWS CONSIST OF THE
FOLLOWING
CHARACTERS
ALTERNATED ACROSS THE LINE:
ROW 1
ROW 2

M-SP
SP=4

ROW 3

g-SP

THE
RESULTING
PATTERN
OVERPRINTED
CHARACTERS
CHARACTERS.

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

EXAMPLE:
MMMMMMMMMMMMMMNM
LR

geegegereceeceegecee
WITH THE AUTO LINE FEED OPTION SET TO PRODUCE AN AUTOMATIC
LINE
FEED
AFTER
EVERY
RECEIVED
CARRIAGE
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:

o0
e

BS I

SR
T

JOK SR O% N

gegeERERiRERE
EeRERBERREE
EEEEEEREER’

CZLADDO LA36 DH11/DJ11 DIAG
CZLADD.P11
03-AUG-79 09:18
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755

756
757
758
759
760
761
762
763
764
765
766
767
768
769

MACYT1

30A(1052)

09:23

2
PAGE

SEQ 0018
PAGE

6.1.9

TEST

10 - PRINTING FREQUENCY SWEEP TEST

THIS 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 LOGRITHMIC 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
FEED
AFTER
EVERY
RECEIVED
CARRIAGE
RETURN,
THERE
WILL BE A BLANK LINE

BETWEEN EACH PRINTED LINE.
EXAMPLE:

HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH

770

6.1.10

TEST 11

THIS TEST

- RIBBON FEED TEST

CHECKS THE RIBBON FEED MECHANISM BY PRINTING A SINGLE

LINES

X'S DOWN THE LEFT HAND MARGIN OF THE PAGE.

%gggK FOR PROPER OPERATION OF

THE RIBBON FEED

MECHANISM

WITH THE AUTO LINE FEED OPTION SET TO PRODUCE AN AUTOMATIC
AFTER
EVERY
RECEIVED
CARRIAGE
BETWEEN EACH PRINTED LINE.

EXAMPLE:

771
772
773
774
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

RETURN,

THERE

COLUMN

VISUALLY

DURING

THIS

LINE

FEED

WILL BE A BLANK LINE

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

MACY11

30A(1052)

03-AUG-79

09:23

PAGE

SEQ 0019

797
798
799

OVE~NC VW

—O

no .
—
D el el D

00 0o 0o Co Co 0o Co Co Oo 00 0o

800
801
802
803
804
805
806
807
808
809

821

PAGE

6.1.11

TEST

THIS TEST

12 - PRINTER BELL TEST

CHECKS THE PRINTER BELL BUFFER TO

INSURE

THAT

EIGHT

BELLS

ARE
DISTINCTLY
HEARD,
EVEN
WHEN SENT AT THE MAXIMUM TRANSFER RATE.
THE PROGRAM SENDS
8
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 RUNS CONTINUOUSLY AND

IS NOT PART OF

IS RUN AS AN INDIVIDUAL,

THE STANDARD PRINTING TEST SEQUENCE.

SPECIAL TEST,

THIS TEST PRINTS 2 LINES OF EACH PRINTABLE CHARACTER AND THEN
REPEATS
CONTINUOUSLY.
THE
SECOND
LINE
OF
EACH CHARACTER IS OVERPRINTED 4
TIMES TO CONSERVE PAPER.
AT THE END OF EACH COMPLETE PASS THROUGH THE
CHARACTER
SET
A
MESSAGE
1S 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

BBBB8B88B8888888BBBBBBBBBBBBBBB
8888888B888888888888B8BBBBBBBBB
IF

THE AUTO LINE FEED OPTION IS SET TO PRODUCE AN AUTOMATIC LINE

AFTER EVERY RECEIVED CARRIAGE RETURN,

THE

TEST WILL PRINT

FEED

SIX LINES OF

EACH CHARACTER WITH
A BLANK LINE BETWEEN THE FIRST AND SECOND LINES AS
WELL AS BETWEEN EACH GROUP OF CHARACTERS.
EXAMPLE :

_
AAAAAAAAAAAAAAA

AAAAAAAAAAAAAAA
AAAAAAAAAAAAAAA
AAAAAAAAAAAAAAA
AAAAAAAAAAAAAAA
AAAAAAAAAAAAAAA

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

853

MACY11

30A(1052)

03-AUG-79

09:23

PAGE 20

SEQ 0020
BBBBBBBBBBBBBBB

CZLADDO LA36 DH11/DJ11 DIAG

CZILADD.P11
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

03-AUG-79 09:18

MACY11

30A(1052)

03-AUG-79

09:23

PAGE 21

SEQ 0021
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
IS
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
A
SIMULATED
LOCAL
MODE.
ANY CHARACTER TYPED ON THE KEYBOARD (EXCEPT A ''RUBOUT') WILL BE
ECHOED TO THE PRINTER.

6.2.2

TEST

21 - LINE ECHO TEST, FAST RATE

THIS TEST CONTINUALLY SENDS FULL LINES OF
ANY
(HARACTER
UP
TO
THE
MAXIMUM
COLUMN
WIDTH.
THE TEST PRINTS A ''0'' CHARACTER WHEN STARTED

UNTIL A KEY

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

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

CHARACTERS

BE LOST OR GARBLED WHENEVER A CHARACTER IS 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.

)9 |

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

904
905
906
907

912

MACYT1

30A(1052)

03-AUG-79

09:23

PAGE 22

SEQ 0022
PAGE 20

6.2.4

TEST 23 - CHARACTER/CODE ECHO TEST

THIS TEST WILL PRINT THE OCTAL CODE RECEIVED BY THE PROCESSOR FOLLOWED
BY
THE CHARACTER OR THE MNEMONIC OF THE CHARACTER EVERY TIME A KEY IS
PRESSED ON THE KEYBOARD.
THE PARITY OF
THE
RECEIVED
CODE
WILL
BE
INDICATED
AS
EITHER
ODD
OR
EVEN.
ALLOW
SUFFICIENT TIME BETWEEN
CHARACTERS FOR THE LINE TO BE PRINTED.
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 TEST 1S DESIGNED TO GIVE MAINTENANCE THE
FLEXIBILITY
TO
CHOOSE
}:E%REO??EPSTTERNS FOR ISOLATING ANY SPECIFIC PROBLEMS WHICH MAY ARISE
H

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
LINE
FEEDS
ARE
INSERTED
BY
THE
PROGRAM,
ALL
CHARACTERS
MUST
BE
INPUTTED
BY
THE
OPERATOR.
10
TERMINATE THE INPUT STRING TYPE A CONTROL-C,
THE
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'.
WHEN
ANY
OPTIONS
ARE
AVAILABLE,
CHARACTER SEQUENCES ARE SELECTED.

6.2.6

CAREFUL

WHAT

CHARACTERS

TEST 25 - BELL ECHO TEST

THIS TEST

1S DESIGNED TO TEST

OCCURED ON THE LINE.

THE BELL ON COLUMN

THE TEST PRINTS A MESSAGE:

TYPE ANY PRINTABLE CHARACTER AND LISTEN FOR BELL

958
959

TYPING

HAS

.evvevvnvnes

AFTER THE TEST MESSAGE IS PRINTED, TYPE ANY PRINTABLE CHARACTER ON THE
KEYBOARD.
THE CHARACTER WILL BE ECHOED AND THE BELL SHOULD RING.
THE

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

e——

MACY11

30A(1052)

03-AUG-79

09:23

2
PAGE 23

SEQ 0023
MESSAGE WILL THEN BE TYPED AGAIN.
THE TEST AT ANY TIME.

TYPE THE "'RUBOUT'' KEY

TERMINATE

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

MACY11

30A(1052)

03-AUG-79

09:23

PAGE 24

SEQ 0024

962

PAGE 21

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

6.3

OPTION TESTS

THESE

TESTS ARE DESIGNED AS A TEST OF

THE

VARIOUS OPTIONS

WHATEVER

COMBINATIONS THEY ARE AVAILABLE IN THE LA36.
AT THE BEGINNING OF EACH
TEST, THE TEST NUMBER WILL BE PRINTED INDICATING WHICH TEST
IS
BEING
EXECUTED.
TYPING
A
‘'RUBOUT' OR
‘"'DELETE''
AT ANY TIME, WHETHER IN

KEYBOARD CNTROL OR NOT, WILL EXIT
DESCRIPTION OF EACH TEST FOLLOWS:

6.3.1

THE CURRENT OPTION TEST.

A DETAILED

TEST 30 - SECONDARY CHARACTER SET OPTION

THIS TEST 1S DESIGNED TO TEST
THE
SECONDARY
CHARACTER
SET
OPTION,
TESTING
THE
ABILITY
TO
SELECT
EITHER CHARACTER SET UNDER SOF TWARE
CONTROL FROM THE CPU AND PRINTING THE CORRECT CHARACTERS
WITHIN
EACH
CHARACTER SET.
A NUMBER IS 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
OUT
(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

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 SI AND SO
TO .SELECT
CHARACTER
SETS.
THE
TEST WILL THEN SET OR CLEAR BIT 8 INSTEAD OF
TO SELECT CHARACTER SETS.

SENDING THE SI

OR SO

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=

"#8%8' ()........PRIMARY CHARACTER SET..........
1"#8%R' ()....... SECONDARY CHARACTER SET....... .o

#l=

98X
'
O)........ PRIMARY CHARACTER SET..........

#2=

!"'MSRR'
) ....... SECONDARY CHARACTER SET.........

012

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

MACY11

30A(1052)

03-AUG-79

09:23

2
PAGE 25

SEQ 0025

009

PAGE 22

10
11

6.3.2

14
15
16
17
18
19

TEST 31 - SELECTIVE ADDRESSING OPTION

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
TO
SELECT
ALL
TERMINALS.
AT THIS POINT THE TEST NUMBER IS PRINTED ON ALL TERMINALS.

THUS,

AN ERROR MESSAGE

IS PRINTED BEFORE

THE

TEST NUMBER,

DID NOT DE-SELECT THE TERMINAL WHERE THE MESSAGE WAS PRINTED.

THE

THE TEST NEXT SENDS AN EOT DIRECTLY FOLLOWED BY A STX, WITH NO

EOT

SELECT

24
25
%g

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.

28
29
30
3
32
3

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 ''6'', BUT ALLOWS ROOM TO TEST

7
8
9
40
41
42
43

UP TO 8 DIFFERENT

CONTAIN

ASCI1

THE

SELECT CODES.

THIS

TABLE

SHOULD

CHANGED

VARIOUS GROUP SELECT CHARACTERS DESIRED TO TEST WITH ONE

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
CHARACTERS
IN
THE
TABLE TO CHECK THAT THEY DO NOT SELECT TERMINALS.
IF 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.

6
47
48
49
50

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 SELECT CHARACTERS.
THE FIRST ZERO ENCOUNTERED
IN
THE
TABLE WILL INDICATE THE END OF THE TABLE.
THE PROGRAM WILL SELECY ALL
TERMINALS USING THE BEL CODE BEFORE EXITING THE TEST.
THE
TABLE
IS

54
55
56
57
8

CHARACTERS DESIRED TO TEST, WITH ONE ASCI1 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.

51
52
53

PRESET WITH A SINGLE UNIQUE
SELECT CHARACTER, THE LETTER 'V, BUT
ALLOWS ROOM TO TEST UP TO 16 DIFFERENT UNIQUE
SELECT
CODES.
THIS
TABLE ~ SHOULD BE
CHANGED TO CONTAIN THE VARIOUS UNIQUE
SELECT

|
|

013

CZLADDO 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

MACY11

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
IS SENT, THE TEST WILL TRY TO PRINT THE
ERROR MESSAGE ON ALL TERMINALS.
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.
IF
AN
ERROR
MESSAGE IS PRINTED BEFORE THE UNIQUE SELECT
MESSAGE, THE TERMINAL WHERE THE MESSAGE WAS PRINTED WAS ENABLED BEFORE
THE
STX
WAS
RECEIVED.
A
MESSAGE WILL THEN BE PRINTED TELLING THE
OPERATOR TO TYPE ANY PRINTABLE CHARACTER TO CHECK THAT THE KEYBOARD IS
ENABLED.
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 CHARACTER.
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 IS DESIGNED TO TEST THAT THE ANSWER BACK
OPTION
SENDS
THE
CORRECT
MESSAGE UPON RECEIPT OF AN ENQ (005) OR UPON TYPING CONTROL-~E
OR THE HERE
1S KEY ON THE KEYBOARD.
THE TEST WILL SEND AN ENQ
(005),
READ
THE
MESSAGE,
AND
THEN PRINT OUT THE MESSAGE ON THE LA36.
THE
TEST WILL THEN ASK THE OPERATOR TO DEPRESS THE HERE IS KEY,
READ
THE
MESSAGE,
AND THEN PRINT OUT 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
FlR?TT 2N$ES?ECEIVED.
THUS, YOU MAY HAVE TO DEPRESS THE RUBOUT KEY TO
EXIT
TH
.

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

MACY11

30AC1052)

03-AUG-79

09:23

PAGE 27
SEQ 0027

1102

PAGE 24

WN—S,O YN VB WN—=O0V0NO VS

110
110

110
110
110
m
M
m
1M1
}}1

THIS TEST IS DESIGNED TO TEST THE FORM FEED CAPIBILITY OF THE
TOP
OFf
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
T0
TEST
THAT
SWITCH S"TTING.
THE REFERENCE LINES PRINTED WILL INDICATE
THE LENGTH FORM FEED JUST EXECUTED AND
THE
NEXT
SWITCH
SETTING
TO
MAKE.
THE
3
INCH
FORM
FEED
IS
TESTED
TWICE BEFORE TESTING THE

11
11
11
1

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.

—=O 0O NS NN —=0O O

REMAINING POSITIONS.

6.3.5

THE FIRST TIME,

16 OR 17 LINE FEEDS ARE EXECUTED

TEST 34 - HORIZONTAL TAB OPTION

THIS TEST CHECKS THE ABILITY TO SET A
TAB
IN
EVERY
COLUMN
AND
AT
PREDETERMINED
INTERVALS,
AS
WELL
AS THE ABILITY TO CLEAR ALL TABS.
THE PROGRAM SETS A TAB IN THE PREDETERMINED COLUMN, DOES A
BACKSPACE,

AND
PRINTS AN *'0''.
AFTER THE LINE IS PRINTED AND THE TABS ARE SET, A
CARRIAGE RETURN IS SENT AND THEN THE PRINT HEAD
IS
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 CHECKS THE EVEN NUMBERED
COLUMNS WHILE THE

SECOND PASS CHECKS THE ODD

NUMBERED

COLUMNS.

THE

TEST__SETS
TABS
IN EVERY COLUMN, EVERY OTHER COLUMN, AND EVERY 4, 8,
16, 32, 64, 128, & 132 COLUMNS.
ALL HORIZONTAL TABS WILL
BE
CLEARED

THE END OF

THE TEST

IS RUN TO COMPLETION.

IS USED TO EXIT THE TEST BEFORE COMPLETION,
SET.

THE

TABS

WILL

A RUBOUT

STILL

:
EXAMPLE

= OOBNO N

A
O
O
o
o
O

i
il

ol el

(W IV TV TV

TEST 33 - TOP OF FORM OPTION

D el el el el el el el e el el

s e

e el e e

T NN
NI N NN rorororonoroN
NN

6.3.4

.—.—a-a_._._.—-—.—b—-—a_._-—a_._._n_-b—.—-_a_-_n_n—‘_a—o_a_.

}}8

WHEN THE AUTO LINE FEED OPTION IS SET UP TO PRODUCE AN AUTOMATIC
LINE
FEED
AFTER EVERY RECEIVED CARRIAGE RETURN, THERE WILL BE A BLANK LINE
BEFORE EACH REFERENCE LINE OF O'S AND THE X'S WIL BE
PRINTED
ON
THE
NEXT
LINE
UNDER THE 0'S.
THE FIRST LINE OF 0'S WILL HAVE 2 LINES OF

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

COLUMNS

AND

CZLADDO LA36 DH11/DJ11 DIAG

CZLADD.P11

1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
166
167
168
69
70
71
72

03-AUG~79 09:18

MACYT1

30A(1052)

03-AUG-79

09:23

3
PAGE 23
SEQ 0028

PAGE 25
EXAMPLE:

000000000000
EEEEE
XXX XXX

0000O00O
X X X X X X
0
X

O
X

0
X

6.3.6

76
77
78
79
80
81
82
83
8

THIS TEST CHECKS THE VERTICAL TAB OPTION BY TESTING THE ABILITY TO SET
TABS
IN
VARIOUS
POSITIONS
OF
A
14
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

—=OVENO
VS

73
;g

TEST 35 = VERTICAL TAB OPTION

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 1T 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
PAPER POSITION WHEN CHECKING THAT THE
REFERENCE
LINES
ARE
CORRECT,

LOOK
FOR
FULL
LINE
DIFFERENCES.
THE
TEST
PRODUCES
0,1,2,3,64,5,6,7,8,9, & 10 BLANK LINES BETWEEN THE REFERNECES LINES, IN
THAT ORDER.

CZLADDO LA36 DH11/DJ11 DIAG

CZLADD.P11

03-AUG-79 09:18

MACY11

30A(1052)

03-AUG-79

09:23

PAGE 29
SEQ 0029

1198

PAGE 26

:
EXAMPLE
-------- 14T

LLL

-------- €<
-------- €<

nbasmm
L CCCCL
al
L

’
¥

‘ecne- FIRST

REF.

LINE WITH

TABS

-------- <

........

........ <

W= OOVEBNO VI WN—=O VNN
LW —=O 0N

EXAMPLE
:.
........ <C<LLLLL

cmcccceel{{{{LLL

........ <<

<<LLLL

-------- ({44 LLLL

rorororoNroNroN
N

NN Wi
N

THE REFERENCE PATTERN PRODUCED WILL BE DIFFERENT IF THE AUTO LINE FEED
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.

........

€<

........ L

L LLLLS

[*]

LTITLE

CZLADDO LA36 DH11/DJ11 DIAG

€2 LADDO LA36 DH11/DJ11 DIAG

CIZLADD.P11
1254
1255
1256
1257
1258
1259
1260
1261

03-AUG-79 09:18

MACY11

30A(1052)

03-AUG-79

09:23

3
PAGE 20

SEQ 0030
'

;LA36 TERMINAL DIAGNOSTIC

;DH11

AND DJ11

INTERFACES

}gg%

;AUTHOR:

1%2;

1266
1267
1268
1269
1270
1271

ROBERT W. BAKER

.SBTTL

SWITCH REGISTER OPTIONS

}5;%

SWITCH

POSITION

FUNCTION

1274

UP (1)

HALT AT END OF CURRENT TEST

1277

’

}%;Z

DOWN (0)

CONTINUE NORMAL TEST SEQUENCE

1278
1279
1280
1281
1282

:
3

uP (1)
DOWN (0)

DRIVE ONLY SELECTED TERMINAL
DRIVE ALL TERMINALS

uP (1)

SELECT TEST

1%%2

;

00 - 07

# OF COLUMNS AT START-UP

1287
1288
1289
1290
1291
‘%35

00 - 05

# OF

}ggz

1595

.SBTTL

DOWN (0’

(AT START UP ONLY)

START NORMAL TEST SEQUENCE

TEST SELECTION

SPECIAL OPERTIONAL NOTES

1296
1297

;1.==
:

BEFORE START UP REFER TO THE DESCRIPTION OF THE ROUTINE ''DLY'
TIMING IS A FUNCTION OF THE PDP11 MODEL AND MEMORY TYPE AND

}%8?

;2.==

THE DIAGNOSTIC WILL NOT RUN UNLESS THE ELTAB TABLE IS MANUALLY INITIALIZED.

1302

;'ltttlttt""t"ltt!t

1303
1304
1305
1306
1307
1308
1309

:3.-;CHGD1
;CHGD2
;CHGD3
;CHGD4
;CHGDS
;CHGD6

}ggg

SHOULD BE SET UP BEFORE RUNNING THE DIAGNOSTIC.

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

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

1310
1311
1312
1313
1314

1322
1323

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

3
PAGE 31
SEQ 0031

;CHGD7 - ADDED SCKSWR ROUTINE TO CHECK SWITCH REGISTER, PRINTOUT
:
CONTENTS, ENTER NEW DATA TO SWITCH REGISTER
;CHGD8 - NEW PRINT MESSAGES FOR “G ADDITION
:CHGD9 - EXTENSION OF CHGD3.
WAIT AND SEE IF ANY DH OR DJ DEVICES
:CHGD10 - FLAG FOR CHECKING *G DURING PRINT OPERATION

1318

1316
1317
1318
1319
1320
1321

MACY11

IERERERRA RN

ERRNRO TR Y

.SBTTL
:

EQUATES

000000
000001
000002
000003
000004
000005
000006
000007
177776

RO=%0
R1=%1
R2=%2

1324
1325
1326
1%27
1528
1329
1330
1331
1332
1333
1334
1335
1336
1337
1338
1339
1340
1341
1342
1343
1344
1345
1346
1347
1348
1349
}gg?

000400
001000
002000
004000
010000
020000
040000
100000

B118=400
8119=1000
81110=2000
B1111=4000
B1112=10000
B1T13=20000
B1T114=40000
BIT15=100000

1352
1353
1354
1355

000000
022626
000200
005726

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

R3=%3
R&=%4
R5=%5
SP=%6
PC=%7
PSW=177776

000001
000002
000004
000010
000020

000040
000100
000200

SYSTEM EQUATES

B8110=1
BIT1=2
Bl1T12=4
BI113=10
B114=20

BIT15=40
BIT6=100
BI117=200

;POP STACK TWICE
;POP STACK ONCE

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

;g;?

MACYT1

30A€1052)
EQUATES

1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
1371
1372
1373
1374
1375
1376
1377
1378

104000
104001
104002
104003
104004
104005
104006
104007
104010
104011
104012
104013
104014
104015
104016
104017
104020
104021
104022
104023
104024

1379
}gg?

03-AUG-79

09:23

PAGE 22
SEQ 0032

PROGRAM TRAP EQUATES
TYPE=EMT+0
CHAIN=EMT+1
TYPEM=EMT+?
DELAY=EMT+3
TIYCTL=EMT+4
TTIYJTL=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
CLEAN=EMT+17
TESTC=EMT+20
ECHO=EMT+21
INRDY=EMT+22
FOUR=EMT+23
; CHGD1
CKSWR=EMT+24
CNTLU=EMT+25
.SBTTL
TRAP CATCHER & STARTING ADDRESSES

104025

1382

1383
1384
}ggg
1387
1388
1389
}gg?
1392
1393
1394
1395
1396
1397
1398
1399
1400
1401
1402
}:83
4

1405
1606
}28;
1409
1410

1411

.ENABL
.ENABL

000000
000002

000000

.=0

000000
000000

HALT
HALT

000004

000030
000032

000046

000052

000174

ABS
AMA

;ENABLE ABSOLUTE ADDRESSING

MACHER:

000030

.=30

003346
000340

EMTINT
340

000046

.=46

010740

LOGICAL

000052

.=52

010000

000174

=174

000000

DISPREG:

.WORD

;SOFTWARE DISPLAY REG

CZLADDO LA36 DH11/DJ11 DIAG

CZLADD.P11

N=OVO~NO
WV

no NN st
s

L e

YOS

> PPP
»

1412

000176

03-AUG-79 09:18

000000

MACYT1

30A(1052)

O03-AUG-79

09:23

PAGE 23

SEQ 0033 |

TRAP CATCHER & STARTING ADDRESSES

SWREG:

.WORD

;SOFTWARE SWITCH REGISTER

;STARTING ADDRESSES
000200
000204

000137
000137

001276
001266

JMP
JMP

001100

000000

START
START1

:RUN
sRUN

DH11
DJ11

TESTS
TESTS

.=1100

SPBOT:

;BOTTOM OF STACK

CZLADDO LA36 DH11/DJ11 DIAG
CZLADD P11
035-AUG-79 09:18
1423
1 424
1 25
1 26
1
1
1
1
1

30A(1052)
03-AUG-79
SYMBOL DEFINITIONS

PEEELESRERESTEERrET

.SBTTL

—=OV®BNO
WV
-

09:23

3
PAGE 3¢
SEQ 0034

SYMBOL DEFINITIONS

000554

TIMER:

554

;1 MSEC COUNTER FOR ROUTINE '‘DELAY'

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
160020
160020
160022
160024
160026
160030
160032
160036

CNTLSW:
RTNNO:
NXTST:
WIDTH:
REPT:
SPCNT:
CURTST:
POS1:
TEMPCH:
PARITY:
PCHAR:

OPEN
OPEN
OPEN
OPEN
OPEN

sCONSOLE TERMINAL CONTROL SWITCH
;CONTAINS CURRENT TEST NUMBER
;CONTAINS ADDRESS OF NEXT TEST
s CURRENT PAPER WIDTH, BINARY
;TEMP STORAGE FOR TESTS EO0218E022
;COUNTER FOR TEST ROUTINE ''PT3"
sADDRESS OF CURRENT TEST
;POSITION COUNTER FOR TESTS E0218E022
;TEMP STOR FOR ECHO TESTS
:PARITY FLAG
;CHAR CODE WITH PARITY BIT
:COUNTER FOR TEST ROUTINE ‘''PT4"

000000
000000
000000
000001
000010
000100
001000
010000

S22 P2k kP o
e
R
A
i
]b
A Al

DT
U—

MACY11

100000

000002
000020
000200
002000
020000

000004
000040
000400
004000
040000

LFCNT:
DHADR:
160020
160020
SCR:
NRCRA:
160022
LPR:
160024
160026
CARA:
160030
BYCR:
:
160032
BAR
SSR:
160036
CNTDH:
OPEN
LINENO: OPEN
:
MASK
OPEN
BITTAB: 1,2,4
10,20,40

160014

TCR:
TBUF:
SR:

001244

001246
001250
001252
001254
001256
001260
001262
001264

177570
000000
000000
000000
000000
000000
000000
000000

;LINE PARAMETER REG

: CURRENT ADDRESS REGISTER
;BYTE COUNT REG
;BUFFER ACTIVE REG
;SILO STATUS REG
:NO. OF THE DH11 UNDER TEST
:NO. OF THE TERMINAL UNDER TEST
:MASK OF LINE NO. UNDER TEST
:TABLE OF LINE NO. MASKS

10000,20000,40000
ACTIV:
10SW:

160016
177570

;ADDRESS OF FIRST DH11.(RECALCULATED)
;SYSTEM CONTROL REGISTER
sNEXT RECEIVED CHARACTER REG.

100,200,400
1000,2000,4000

000000
000000
000000
000000
000000
000000
160010

OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN

DJCNT:
DHCNT:
SCR1:
SCR2:
CSR:

100000

OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
160010
160014

160016
177570

sexwnrenes

(HGDZ

;TEST ACTIVE INDICATOR
:=0,DH11 UNDER TEST=-=1,DJ11 UNDER TEST
:COUNT OF DJ11'S ON BUS
:COUNT OF DH11'S ON BUS
:TEMP STORAGE USED BY PRINTC
:TEMP STORAGE USED BY PTINTC
:DJ11 CONTROL STATUS REG
;DJT1TRANSMITTER CONTROL REG

evevner

DISPLAY:177570

T1B:
TEMPST:
COUNT:
FILL:
:
MODE

CNT:

TIMES:

OPEN

OPEN
OPEN
OPEN
OPEN
OPEN
OPEN

:'.t""l.'t.'t'.'l""I'l

:DJ11 TRANSMITTER BUFFER REG
;SW REG ADDRESS

;DISPLAY REGISTER

:TEMP KEYBD BUFFER STORAGE

;TEMP WORK LOCATION
;LOOP COUNT FOR TEST
sZERO FILL SWITCH
;NUMBER OF DIGITS TO TYPE
;1TERATION COUNT
;COUNTER FOR ELTAB

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

MACY11

}2;;

.SBTTL

1479
1480
1481

JEEEEREEY

1482
1483
1484

:
;PROGRAM START
:

1485

1486
1487
1488

}233

012737
000402
005037

1491
1492
1493

001302
001306
001312

012706
013746
013746

1495
1496
1497
1498
1499

1500
1501
1502
1503
1504
1505
1506
1507

SEQ 0035

PROGRAM INITIALIZATION & CONTROL

IRREREERY

001266
001274
001276

1494

30A(1052)
03-AUG-79
09:23
PAGE 35
PROGRAM INITIALIZATION & CONTROL

001316
001324
001332
001334
001336

001340
001346
001354
001360
001364
001366
001372

012737
022777
001402
000407
022626

012737
012737
012637
012637
104017
005037
012737

177777

001224

START1: MOV
BR
START:
CLR

#177777,108W
STARTX
10Sw

001100
000006
000004

STARTX: MOV
MOV
MOV

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

sSET STACK POINTER
;SAVE CURRENT VECTORS

H64LS AN
#-1,asR
65%
66%
(SP)+,(SP)+

sSET UP LOC 4 FOR NON-EXIS MEM TRAP
sREFERENCE HDWE SW REG
s1F 1T = =1,USE SOFT SW REG
s THEN USE HDWE SWITCH REG
;CORRECT THE STACK, NO HDWE SW REG

001336
177777

000004
177712

000176
000174
000004
000006

001244
001246

001104
004216

000024

CHGD3:

648 :
65%:

MOV
CMP
BEQ
BR
CMP

sSET UP FOR DJ11

TEST

sSET UP FOR DH11

TESTS

T ENRY

Mov
#SWREG, SR
;POINT TO SOFT SW REG
MOV
#DISPREG,DISPLAY
;POINT TO SOFT SW REG
66%:
MoV
(SP) ¢+, a#4
sRESTORE VECTORS
MoV
(SP)+,an6
: SAME
60%:
CLEAN
sCLEAN UP
CLR
CNTLSW
sINITIALIZE TERMINAL CONTROL SWITCH
MOV
#PEAIL,24
;SET ADDR POWER FAIL ROUTINE
RN
RERRR NS

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

MACY11

K
3
30A(1052)
03-AUG-79
09:23
PAGE 326
PROGRAM INITIALIZATION & CONTROL

SEQ 0036

;'.""'."

:THIS NEXT PART CHECKS THE PRESENCE OF DJ11 OR DH11

:STARTING AT 776010. A MESSAGE WILL BE PRINTED ON
:THE CONSOLE TERMINAL INDICATING THE NUMBER
sPRESENT. THE PRINTER DIAGNOSTIC WILL ADDRESS EACH OF
;THE TERMINALS IN THE SYSTEM
.

001400
001406
001412
001416
001420
001424
001430

012737
005037
012700
005710
062700
005237
000772

001432
001434
001440
001442
001446
001452
001460
001464
001466
001472
001476

022626

000772

001500

022626

WHNWNONON
— —=O
oSfrosrroonNoN

:.'tl"""

032737
001005
032737
001001
000000
022737
001001
104025

001432
001226
160010

000004
1%:

000010
001226

END3:

000010
000010
001134
001500
001230

MOV
CLR

000004

18:

2%:

000020
001230

END4:

MOov

001230

000077

001226

000176

001244

CHGD9:

#160010,R0

18T
ADD
INC

(RO)
#10,R0
DJCNT
1%

POPSP2
BIT
BEQ
ADD

RO,#10
1%
#10,R0

MOV
MOV
CLR

187
ADD
INC
BR

(RO)
#20,R0
DHCNT
2%

R TR

BIT
BNE
BI1

BNE
20%:
60%:

RO,DHADR
#END4 ,MACHER
DHCNT

POPSP2

IR AR

000077

#END3 ,MACHER
DJCNT

HALT

CMP
BNE

CNTLU

;INIT TIME OUT TRAP
sCLEAR DJ11 COUNTER
sADDR OF FIRST DJ11
;REF DJ11
;SET RO TO NEXT DJ11
s INCREMENT COUNT OF DJ11'S

;TEST PRESENCE OF

;

NEXT DJ11

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
:TEST IF DH11 IS PRESENT
:YES, SET RO TO NEXT DH11

s INCREMENT COUNT OF DH11'S
sCHECK IF NEXT ONE IS PRESENT

:POP 2 FROM STACK
RN

#77 ,DHCNT
20%
#77,DJCNT

208

#SWREG,
SR
60%

;ANY DH11'S PRESENT?

:1F YES, BRANCH
;ANY DJ11'S PRESENT?
:1F YES, BRANCH

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

MACYTT

W N=O0V0O~NO
NI NN -

. . D ol D ol e e el el st s
—
NN
YWY AW N
o ooV WA
W wn
ol

564
565

—=O VBNV
NN —-=O

D e

o e

e e

:n::n:UNfiU“fiU“fi
NNNNN

566
567
568
69

D e e e e e e
b
A ALY ALY ]
oo 00 00 00 00 ~y

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

30A(1052)
03-AUG-79
09:23
PAGE 37
PROGRAM INITIALIZATION & CONTROL

SEQ 0037

:...'.""'

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

:OR LT30 COLUMNS (DECIMAL) WILL BE ABORTED TO 132.
JERAERRETES

001536
001542
001546
001552
001554
001560
001562
001566
001572
001576
001602
001604
001610
001612
001614
001616
001620
001626
001632
001634
001640
001644
001650
001652
001654
001656

017701
042701
020127
101003
020127
101002
012701
010137
012700
012702
104015
005037
000401
000405

177502
177400

000204
000035

1%:

000204
001112
017654
000003

2%:
3%:

001106

4%:

5%:

104002

017442
012737
005737
001440
013701
12700

000240
001224
001226
017613
000002

001610

6$:

MOV
BIC
CMP
BHI
CMP
BH1
MOV
MoV
MOV
MOV
BTOASC
CLR

BR
BR

TYPEM
STARTM
MOV
187

BEQ

MOV
MOV
MOV
BTOASC

CRLF

TYPEM

DJ11S

aSR,R1
#177400,R1
R‘,'Zo‘

2%
R‘,'SS
3%
#204 ,R1

R1,WIDTH
#HDRO,RO

#3,R2

RTNNO

5%
6%

#NOP, 4%

105w
108
DJCNT,R1
#DJ11S,RO
#2,R2

;PUT

(SR)

INTO RI

sSAVE ONLY BITS 0-7
;TEST NO. COLUMN GT132

;COLUMNS GT132, DEFAULT T0 132
sCHECK IF NO. COLUMNS LT 30

sNOT LT 30 NOR GT 132
;COLUMNS LT 30 OR GT 132, DEFAULT

sSAVE NO. COLUMNS IN WIDTH
;ADDR TO STORE ASC11 COLUMN VALUE

;D0 A 3 CHAR. CONVERSION

s CONVERT NO. COLUMNS TO ASCII
sSET ROUTINE NO = 0
sPRINT TITLE FIRST TIME
;SKIP IT AFTER FIRST TIME
;PRINT DIAGNOSTIC HEADER
:TAKE OUT BRANCH INSTR

sCHECK IF DJ11 OR DH11 UNDER TEST
sBRANCH IF DH11
sGET NUMBER OF DJ11'S
:ADDR TO STOR ASCII CHAR
:NO. OF ASCII CHARS (=2)
:CONVERT TO ASCII

;OUTPUT MESSAGE

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

—=O0VONO VS WN—-O
W

—=O VNS W

WWWWNONNONNNNOMNOMNONIN
=
b
s e s e

—

it ol ol el

B, el e

el el

il el el

D ol

D ol el el

D el

cooooCcoooococococococococococococcoo

D e

1597
1598
1599
1600
1601
1602
1603
1604
1605
1606
1607

MACYTT

30A(1052)
O03-AUG-79
09:23
PAGE 338
PROGRAM INITIALIZATION & CONTROL
;'..""'

: START ALL DJ11 RECEIVER SCANNERS
.

JEREERREY

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
104002
020066

005037
005737
001453
000436

160010
001226

7%:

000010
000005

8%:
9%:

000020

000001
000010

001230
017564
000002

10%:

MOV
MOV
BNE
HALT
BR
BIS

#160010,R1
DJCNT,R3
8%

sADDR OF FIRST DJ11 SCR
sNO. OF DJ11 TO R3
;BRANCH IF COUNT IS NOT ZERO

MOV

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

;DO NOT CONTINUE
;CLEAR MOS

BNE
BIS
ADD
DEC
g:E

(R1),#20
9%
#1,(R1)
#10,R1
R3
??‘

sTEST IF CLEAR STILL BUSY
sBRANCH IF BUSY
;START SCANNER
;ADDR OF NEXT SCR

DELAY
BIT

MOV
MOV
MOV
%;O?SC

DHCNT ,R1
#DH11S,RO
#2,R2

;ngg

000400

177256

006560

001110

11%:

12%:

001222
001224

#B178,aSR
12%
#PT0,NXTST
CHAINY

CLR
187
BEQ

ACTlV
105w
TTYIA

;DEC COUNT OF DJ11
sNOT ZERO, START NEXT ONE
;NO. OF DH11'S TO R1
sADDR TO STORE ASCII CHAR
sNO. OF CHAR TO CONVERT
s CONVERT TO ASCI1I
;OUTPUT MESSAGE

BIT
BNE
MOV
BR

;gggg

;DELAY TIME T0 RO

TTIYJA

sCKECK IF WANT TEST SELECTION?
;BRANCH IF BIT 8 IS SET (YES)
sSTARTUP PRINTING TESTS
sTYPE SELECT TEST NO. MESSAGE

sSET TEST ACTIVE STATE NOT ACTIVE
;DH11 OR DJ11
;WAIT FOR TERMINAL CONTROL FROM DH11

sWAIT FOR TERMINAL CONTROL FROM DJ11

sANKERNATEY

:CLEAN--INITIALIZES POINTERS BEFORE ENTERING A TEST
v

:t't'tl'tii

002020
002026
002032

012737
005066
000002

000006

000002

000004

S$CLEAN: MOV
g%?

#6 ,MACHER
2(SP)

sSET UP MACHINE ERROR VECTOR
:§%$GSNPROCESSOR STATUS WORD

SEQ 0038

CZLADDO LA36 DH11/DJ11 DIAG
CZLADD.P11
03-AUG-79 09:18
1634
1635
1636
1637
1638
1639
1640
1641
1642
1643
1644
1645
1646
1647
1648
1649
1650
1651
1652
1653
1654

MACYT1

30A(1052)

03-AUG-79

09:23

3
PAGE 29

PROGRAM INITIALIZATION & CONTROL

SEQ 0039

JEFERRTEREY

CHA]NN--THIS PORTION 1S THE COMMON RETURN

FOR

ALL TESTS.

AREENY

:C.'.'!"""""t"'

002034
002034

CHGD4:
CHAINN:

106024

CKSWR

AL ARt
stsdd

002036
002044
002046
002052
002054
002056
002060

032737
001405
005737
001401
104005
104004
022626

000001

001104

001224
18:

2%:

BIT
BEQ
187
BEQ
TTYJTL
TTYCTL
POPSP2

#1,CNTLSW

105w
1%

;SEE IF A *G HAS BEEN GIVEN

sCHECK IF TERMINAL CONTROL
;BRANCH IF NOT
;DH11 OR DJ11?
;BRANCH IF DH1T
;WAIT FOR DJ11 TERMINAL CONTROL

;WAIT FOR DH11

;CORRECT STACK

TERMINAL CONTROL

AR RAAEY

THE SR BIT 15 IS SET,THE CPU WILL HALT HERE WITH

THE TEST NUMBER IN RO. PRESS CONTINUE TO
RUN NEXT TEST
AR AERTETY

002062
002066

002070
002074
002076
002100
002104
002106

005777
100003
113700
000000
104017
012706
104016
000177

177156

CHAINY:

001106
001100

1$:

177006

TST
BPL
MOVB
HALT
CLEAN
MOV
FORWD
JMP

SR
1%

;CHECK SW REG.
sBRANCH IF NO HALT
;CURRENT TEST NUMBER TO RO

#SPBOT,SP

:SET UP STALK POINTER
sSET UP VALUES FOR NEXT TEST
;60 TO TEST

RTNNO,RO

sCLEAN UP

AAESRS
A

71YJ-- THIS ROUTINE IS USED WHEN THE DJ11S' ARE UNDER
TEST, OTHERWISE THE COMMENTS
AND INSTRUCTIONS ARE
THE SAME AS FOR TTY1,
TRRREEAREAE

022626
005737
001402
000137
85

004737
004737
000137

001222

002500
003106
003214
002174

TTYJ:

POPSP2

1%:

BEQ
JMP
JSR

TTYJA:

TST

JSR
JMP

ACTIvV

sCORRECT STACK

;TEST IF ENTRY IS FROM A TEST

;BRANCH IF NOT

1TY1B

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

T1Y16
PC,SCANDJ
PC,SETDY

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

}ggg

002142
002144
002150
002152
002154
002156
002162
002164
002170
002174
002200
002204

022626
005737
001002
000000
000776
005737
001146
004737
004737
042700
010037
020027

1729

001002
104013
000773
012700
104003
013700
104021
104020
000421
010005
006305
006305
006305
104013
020027
001002

1731
1732
1733

002260
002262
002266

000773
012700
104003

1730

002256

002270

013700

1736
1737
1738
1739
17640
17641

002276
002300
002302
002304
002306
002312

104020
000555
060005
104013
020027
001002

002274

001230

11¥1:
TTY1A:

1%:

001222

2%:

002674
002750
177600
001124
000040

TTY1B:

1%:

000036

2%:

001124

000040

3%:

104013

1734

1735

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.

;tlttlttt"

002210
002212
002214
002216
002222
002224
002230
002232
002234
002236
002240
002242
002244
002246
002250
002254

1726
1727
1728

&
B
30A(1052)
03-AUG-79
09:23
PAGE 40
PROGRAM INITIALIZATION £ CONTROL
IRERERREREY
:
:TTY1== THIS ROUTINE 1S USED WHEN THE DH11'S ARE UNDER TEST. IT PROCESSES
:
THE RESPONSE TO THE MESSAGE ''SELECT TEST NO.''. THE RESPONSE
3
MUST BE THE TWO DIGIT OCTAL TEST NO. FOLLOWED BY:
L' TO LOOP ON TEST
:
*'S$'" TO SEQUENCE ON TEST
.
"." T0 EXECUTE TEST ONCE
ALL SPACES ARE IGNORED AND AN ILLEGAL INPUT WILL BE FLAGED
:
BY A '"2"" AND THE RETYPING OF THE ABOVE MESSAGE. THE FIRST
:
TERMINAL TO RESPOND IS THE TERMINAL UNDER TEST. ALL

1688
1689
1690
1691
1692
1693
1694
1695
1696
1697

1700
1701
1702
1703
1704
1705
1706
1707
1708
1709
1710
1711
1712
1713
1714
1715
1716
1717
1718
1719
1720
1721
1722
1723
17264
1725

MACYTT

104021

POPSP2
TST
BNE
HALT
BR
TST
BNE
JSR
JSR
BIC
MOV
CMP

BNE
READ
BR
MOV
DELAY
MOV
ECHO
TESTC
BR
MOV
ASL
ASL
ASL
READ
CMpP
BNE

READ

000036

4%:

001124

MOV

ECHO

11%:
000040

BR
Mov
DELAY

5%:

TESTC
BR
ADD
READ
CMP
BNE

DHCNT
2%
1%
ACTIvV
1TY16
PC,SCANDH
PC,SETERM
#177600,R0
RO, TEMPCH
RO, #40
2%

1%
#30..R0
TEMPCH,RO
11%
RO,R5
RS
RS
RS

;CORRECT STACK
;BE SURE THAT THERE ARE DH11'S
sBRANCH IF YES
;D0 NOT CONTINUE
sTEST IF ENTRY IS FROM A TEST
sBRANCH IF IT IS
;LOOK FOR INPUT
sSET TERMINAL DATA
;SAVE ONLY CHAR
:GET CHAR
sCHECK IF CHAR IS A SPACE

:BRANCH 1F NOT
;SPACE, LOOP WAITING FOR NEXT CHAR
;:GOT ONE
;DELAY FOR HALF DUPLEX
;GET CHAR
;ECHO CHAR
;60 TEST CHAR
;ERROR IN CHAR
;0K, SAVE DIGIT IN R5, POS 5-3

RO,#40
4%

;GO WAIT FOR NEXT CHAR
;CHECK IF A SPACE
;BRANCH IF NOT A SPACE

3%
#30..R0

:GOT ONE, ECHO IT
sDELAY FOR HALF DUPLEX

TEMPCH,RO

NG
RO,RS
RO, #40
6%

;WAIT FOR CHAR

sGET CHAR

;ECHO CHAR

;60 CHECK CHAR
;ERROR IN CHAR
;OK,RS 1S NOW OCTAL TEST NO.
;GO WAIT FOR TERMINATOR
;CHECK IF A SPACE
;BRANCH IF NOT A SPACE

SEQ 0040

[

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

—=O VNV
W -0 V00

Oo&owwmwwwmwww;‘;‘

NOWVS WOV
NO VS W —-O

o000 0RO 00 000D ~N~N~NNN~N~N NN

NNNNNNNNNNNNNNN~N~ ~N~

NN NN N NN NI N N N SN N~

_‘—D—.—‘_‘—.-‘—‘—.—A—l_‘d

1743
1744
1745
1746
1747

788

002314
002316
002320
002324
002326
002332
002334
002340
002344
002346
002352
002354
002362
002364
002372
002374
002402
002404
002412
002414
002420
002422
002426
002430
002434
002436
002442
002444
002452
002454
002462
002464
002466
002474
002500
002504
002506
002510
002512
002516
002522
002524
002526

002532
002536
002540
002544
002552
002556
002560
002562
002564
002570
002574
002576
002602

MACYT1

30A(1052)
PROGRAM

104013

000773
012700

000036

013700

001124

104003

104021
042700
020027
001413
020027

001414
023727
001124
012737
000407
012737
000403
012737
104017
012706
010500
020027
103102
020027
103406
020027
103003
012737
006300
016037
001464
104016

012737
000177
017700
100040
010004

000300
042700
020037
001366
010400
042700
020027
001360
012706
012737
012700
104003
104002
020066
005037
005737
001402
000137
000137

6%:

000040
000114

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:

001104

TTY1H:

#30..R0
TEMPCH,RO

#B175,R0
RO.#114

TEMPCH, #56
NG
#1,CNTLSW

9%
#4001, CNTLSW
9%
#4071 ,CNTLSW

Mov
CLEAN
MOov
MOV
CMP
BHIS
CMP
BLO
CMP

#SPBOT,SP

R5,RO
RO, #40

RO,#20
108
RO,#30
108
#1,CNTLSW
RO

MOv
ASL
MOV

FORWD
MOV
JMP
MOV

BPL
MOV
SWAB
B1C
CMP
BNE

BIC
CMP
BNE

MOV
MoV
MOV
DELAY
TYPEM

MESG3
CLR

001222
001224

187

1%:

MOV

177600
000177

002114
002144

READ
BR
MOV
DELAY
MOV
ECHO
BIC
CMp
BEQ
CMP
BEQ
CmMP
BNE
MOv
BR
MOV

BEQ

TTY1G:

09:23

&
PAGE &1

INITIALIZATION & CONTROL

BHIS

177760
001156

001100
000001
000036

O03-AUG-79

BEQ
JMP
JMP

SEQ 0041

sSPACE,WAIT SOME MORE
;GOT ONE , ECHO IT
sDELAY FOR HALF DUPLEX
sGET CHAR
;ECHO CHAR
;ALLOW LOWER CASE OR UPPER CASE
;IS IT AN "L
;BRANCH IF YES
:NO,

sNO,

IS IT A "

IT AN ''s"’

;BRANCH IF YES
;NO, ERROROR

;SET BIT O ONLY IN CNTLSW
;SET BITS 11 AND O
;SET BITS 8 AND 0
;CLEAN UP
sRESET 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
;BRANCH IF ILLEGAL TEST

#1,ACTIV
oCURTST
aNRCRA,RO

TIYIL
RO,R4
RO
#177760,R0
RO,LINENO
T1Y16
R4 ,RO
#177600,R0
RO, #177
T1Y16
#SPBOT,SP
#1,ONTLSW
#30.,R0

:SET UP TEST PARAMETERS
sSET TEST ACTIVE IND
;G0 TO TEST

;TEST ACTIVE,CHECK INPUT FROM DH11
;BRANCH IF NO DATA
;DATA, SAVE IT
sRIGHT JUSTIFY LINE NO.
:CLEAR ALL BUT LINE NO.
;CHECK IF LINE NO. IS SAME AS TEST LINE
:NOT SAME, SEE IF ANY MORE IN SILO
:LINES ARE THE SAME, GET CHAR

;SAVE 7 BITS OF CHAR
;CHECK IF A RUBOUT
:NOT A RUBOUT, SEE IF ANY MORE
;RESET STACK
;CLEAR BITS 11 AND 8
;DELAY FOR HALF DUPLEX

;OUTPUT MESSAGE
ACTIV

10SW
1%

;CLEAR TEST ACTIVE STATE
:DJ11 OR DH11 ?
;BRANCH IF DH11

TTIY1A

;WAIT FOR NEXT TEST FROM DM11

TTYJA

;WAIT FOR NEXT TEST FROM DJ11

CZLADDO LA36 DH11/DJ11 DIAG
CZLADD PN
03-AUG-79 09:18
1798
1799
1800
1801
1802
1803

1804
1805
1806
1807
1808

—

il ol ol ol el el el el T

ol el el el el

S el e

09:23

&
PAGE 42

INITIALIZATION & CONTROL

BIT
BEQ
RT1
BIT
BEQ
JMP
ggVA

TTviL:

000400

001104

1%:

002062
000036

03-AUG-79

PROGRAM

001104

NG:

LAY

000077

MOVB
ECHO
BR

000733

#BIT11,CNTLSW
1%
#B1T8,CNTLSW
TTY1H
CHAINY
#30..R0

#77.R0
TTY1H

SEQ

;CHECK IF LOOP ON TEST
;BRANCH IF NO LOOP
;GO LOOP ON TEST
;CHECK IF LOOP ON SEQUENCE
:BRANCH IF NO
;GO LOOP ON SEQUENCE
;DELAY FOR HALF

DUPLEX

:'"?"" 70 TEMPCH
sPRINT A ?
:TRY AGAIN FROM DH11

B el

sERAEARNERY

FORUARD--IHIS ROUTINE TRANSFERS THE
FROM THE TEST ROUTINE. THEY

1= ROUTINE NUMBER

2 ARGUMENTS
ARE;

2= ADDRESS OF NEXT TEST
RN

002652
002656
002662
002666
002672

jelelelele]
O =t ed s
OOMNNW
owvuniunN
OWWWO
NN~

i el e

D o

112700
106021

30A(1052)

004000

il el

1
1
1
1
1
1

032737
001407
000002
032737
001744
000137
012700
104003

000000 B o
TM
PPN
NI I NN
OOOOOGOOGQOOU‘
“JNJNHUFU&:E:E“S'UE:E: 00 0o 00 0o 00 0o 00 0o

N—=OOVENO
VNI WN OOV NC VWD —-000 NV
—-O

1809
1

002606
002614
002616
002620
002626
002630
002634
002640
002642
002646
002650

MACY11

$FORWD:

MOV
MOV

MOV
:?Y

NXTST,RS
(R5)+,RTNNO

(R5)+ NXTST
R5,CURTST

;ADDR OF NEXT TEST TO RS
:GET NUMBER OF NEXT TEST

;GET ADDR OF FOLLOWING TEST
:EN}?Y POINT TO TEST IN CURTST
JEX

sEARAAATAESY

;SCANDH = ROUTINE TO SCAN DH CHANNELS LOOKING FOR INPUT
;tt'tt"."
002674
002700
002704
002710
002712
002716
002722
002724
002726
002730
002736
002742
002744
002746

013701
005037
013700
005720
010037
017700

001230
001154
001134

062737
005237
000765

000020
001154

100410
005301
001762

010004

000207

SCANDH:

001140
176216

18:

MOV
CLR
MoV

DHCNT ,R1
CNTDH
DHADR,RO

:COUNT OF DH11'S TO R1
;CLEAR DH11 POSITION COUNTER
;ADDR OF FIRST DH11 TO RO

MOV

aNRCRA,RO

;GET NEXT CHAR FROM SILO

SCANDH

:START OVER IF ALL DONE

;GO CHECK NEXT DH11 ON BUS

181
MOV

BM]
DEC

BEQ

001140
2%:

(RO)+
:
RO,NRCRA

2%
R1

ADD
INC

#20 ,NRCRA
CNTDH

MOV

RO,R4

RTS

;ADDR OF NRCRA
;SET UP NRCRA ADDRESS

:BRANCH IF DATA IS PRESENT
;DECREMENT COUNT OF DH11'S

:SET UP ADDR FOR NEXT DH11
:INC DH11 POSITION COUNTER
;SAVE LINE NO. AND CHAR
:RETURN

0042

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

1847

MACY11

30A(1052)
PROGRAM

03-AUG-79

09:23

&
PAGE 43

INITIALIZATION & CONTROL

SEQ

;.'.".'."

:SETERM - THIS ROUTINE IS USED TO SET UP THE REGISTER ADDRESSES OF
H

THE TERMINAL CURRENTLY UNDER TEST.

003026
003032
003036
003042
003044
003050
003054
003056
003062
003064
003066
003072
003076
003102
003104

N e N

d
N

001136
001142

003004
003006
003012
003014
003020
003022

001140

001146

oo~ — N

002750
002754
002756
002762
002764
002770
002772
002776
003000

(=l =]
j=l=l=l=]
SO — D)
O - O—=O—= Nt
O s
o o NOVOWVOWVONO
WK
——
~NWN
N i N e N e e i )
OOW PO NN NN NN W N W SO

;'t"t""'

001150

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

001144

SETERM: MOV
18T
MOV
CMP
MOV
187
MOV
TST
MOV
TST

MOov

CMP
MOV

001152

SWAB
BIC

177760
176104

016402
001154

1%:

000020
001154

001156
176050

001162
001160

MoV
MOV
18T

BEQ
ADD
DEC

2%:

BR
MOv
ASL
ADD
MOV
ADD

MOV
MOV
RTS

NRCRA,R1
=(R1)
R1,SCR
(R1)+,(R1)+
R1,LPR
(R1)+
R1,CARA
(R1)+
R1,BYCR
(R1)+

;CAL ADDR OF SCR
:STORE SCR ADDR
sADD 4
;STORE LPR ADDR
;ADD 2
:STORE CARA ADDR
;ADD 2
;STORE BYCR ADDR
;ADD 2

(R1)+,(R1)+
R1,SSR

;ADD 4
;STORE SSR ADDR

R1,BAR

RO
#177760,R0
RO,aSCR
#DH1100,R1
CNTDH

#20,R1
CNTDH

1%
RO, LINENO
RO
RO,R1
(R1) ,3LPR

#BITTAB,RO

(RO) ,MASK
R4 RO
PC

;GET ADDR OF CURRENT NRCRA

:STORE BAR ADDR

;RIGHT JUSTIFY LINE NO.
:SAVE ONLY LINE NO.

;SET UP SCR

:GET ADDR OF VP TABLE
;CAL WHICH DH11 IS UNDER TEST
:BRANCH IF THIS 1S THE ONE
;REPOSITION R1 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

00473

CZLADDO LA36 DH11/DJ11 DIAG
CZLADD.P1
03-AUG-79 09:18
1884
1885
1886
1887
1888
1889
1890
1891
1892
1893
1894
1895
1896
1897
1898
1899
1900
1901
1902

D 0o

e e OO

o —

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

SEG 0044

JEREREEREEY

:SCANDJ - ROUTINE TO SCAN CHANNELS LOOKING FOR INPUT
.

:'I't""

003106
003112
003116
003122
003126
003130
003132
003134
003136
003142

003144
003150
003152
003154
003156
003162
003166
003170
003174
003200
003204
003206
003210
003212

001226
001154

160012
0174602

SCANDJ: MOV
CLR
MOV
1%:

2%:

000010
001154
3%:
177760
001156

001162
001160
001160

000207

MOV
MOV
BMI

DEC

BEQ
ADD
TS7
INC
BR

MOV

SWAB
BIC
MOV
ASL
ADD
MOV
BIT
BNE
MOVB
BEQ
RTS

DJCNT,R1
CNTDH
#160012,R0
#ELTAB,R3
(RO) ,R2

R1
SCANDJ
#10,RO
(R3)+
CNTDH
1%
R2,R&4
R2
#177760,R2
R2,LINENO
R2

#BITTAB,R2

(R2) ,MASK
MASK, (R3)

R4 ,R2

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

sSTART OVER IF ALL CHECKED
;ADDR OF NEXT RBUF

; INCREMENT ELTAB POINTER
: INCREMENT POS COUNTER
;D0 NEXT DJ11
;GET CONTENTS OF RBUF

;SAVE ONLY THE LINE NO.
sSAVE LINE NO.

sLINE NO.*2

sCAL ADDR OF LINE MASK
sSAVE LINE MASK
sCHECK IF LINE EXISTS
;BRANCH IF NOT
JRESTORE R2 WITH CHAR
;BRANCH IF NULL

sRETURN

S OV®NO NS

RN —=O OB

WWNNMNUNNMNTONONIN
—
—

— o

—h ot

il ol ol

D el el ol ol

D el

D el el el e

VO OVOVOVOVOOVOVOVOVOVOVOOVOVOVOVOOVOOO 0

1903
1904
1905
1906
1907

MACY11

JAEREAEATRRY

SETDJ = THIS ROUTINE

IS USED TO SET UP THE PARAMETERS
.

FOR THE DJ11 TERMMINAL CURRENTLY UNDER TEST.

;ti'tt""'
003214
003220
003222
003226
003230
003234
003236
003242
003244

010037

005740
010037

022020
010037
005720
010037
010400
000207

001140
001236

001240
001242

SETDJ:

MOV

RO,NRCRA

:SAVE ADDR FOR READ & TTY1H

MOV
CMP
MoV

RO,CSR
(RO)+, (RO)+
RO, TCR

;ADDR OF CURRENT CSR
:CAL ADDR OF TCR
:SAVE ADDR OF CURRENT CSR

TST

187

MOV
MOV
RTS

=(R0)

(RO) ¢+

RO, TBUF
R4 ,RO
PC

;CAL ADDR OF

CSR

:CAL ADDR OF TBUF

:SAVE ADDR OF CURRENT TBUF
;GET CONTENTS OF RECV BUFFER AGAIN
;RETURN

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

1932
1933
1934
003246
1935
003250
1936
003252
1937
003254
1938
003256
1939
003260
1940
003262
1941
003264
1942
003266
1943
003270
1944
003272
1945
003274
1946
003276
1947
003300
1948 003302
1949
003304
1950
1951
003306
1952
003310
1953
003312
1954
003314
1955
003316
1956
003320
1957
003322
1958
003324
1959
1960
003326

1961
1962
1963
1964

1965
1966
1967

003330
003332
003334
003336
003340
003342
003344

MACYT1

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

.SBTTL

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

PRGTAB:

PT0
PT1
P12
P13

P14

P15

P16

&
PAGE &5

SEQ 0045

TEST ADDRESS TABLE

:DATA PATH TEST
;PRINTER CHARACTER TEST
;NON-PRINTING CHARACTER TEST
;CARRIAGE RETURN TEST

sMULTIPLE LINE

FEED TEST

;SINGLE 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
E021
E022
E023

£025

s CHARACTER ECHO TEST
;LINE ECHO TEST, FAST RATE
;LINE ECHO TEST, SLOW RATE
;CHARACTER/CODE ECHO TEST
;SELECTIVE PATTERN ECHO TEST
;BELL ECHO TEST

TEST30
TEST31
TEST32
TEST33
TEST34
TEST35
OPEN

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

OPEN
OPEN

000000

P17
PT10
PT11
PT12
OPEN
OPEN
OPEN
OPEN
P117

E024

012740
013122
013740
014170
014724
015274
000000

09:23

OPEN

:SPARE FOR ADDITIONAL ECHO TESTS
:SPARE FOR ADDITIONAL ECHO TESTS

;SPARE FOR ADDITIONAL OPTION TESTS

CZLADDO LA36 DH11/DJ11 DIAG
CZLADD.P11
03-AuUG-79 09:18
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

2000
2001
2002
2003
2004
2005
2006
2007
2008

2009
2010
2011
2012
2013
2014
2015
2016
2017
2018
2019
2020

MACY11

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

.SBTTL

EMT

09:23

PAGE 46
SEQ

TRAP DECODER

;'.t'.""'

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

;t't."""

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

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

000002
000000
000026

EMTINT: MOV
SUB

1%:

177001

2%:

003422
000000
003420
000136

3%:

004114
002034
004144
004174
002142
002112
004474
004456
004476

EMTTAB:

004572
004516
003716
004506
004320
002652
002020
004424
003516
003654

003476
015736
015774

asP,=-(SP)
#2,aSP
a(SP) ,asP
asSP,#26

MOV
CMPB
BLOS

HALT
BR

1%
asSP
#177001,asP
#EMTTAB,aSP
a(SP) ,asP
-(SP)
#3%,-(SP)

ROL
BIC

ADD
MOV
CLR
MoV
RT1

JMP

a(SP)+

TYP

TIY1
1YY

sexxxwrnwry

(HGDY

;CHECK THAT

CALL

:BRANCH IF OK

IS WITHIN LIMITS

;EMT ARGUMENT #2
:REMOVE 7 MSB
;FORM EMT RTN ADDRESS
sCLEAR PSW
:GO TO EMT ROUTINE

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

CHAINN
TYPM
DLY

SCRLF
$SCRLF
SLF
$PRTC
$PRHDR
$READ
$CR
$BTASC
$FORWD
SCLEAN
$TESTC
$ECHO
$INRDY

sGET SAVED PC
;DECREMENT PC BY TWO

: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 HEADER
sREAD CHAR
;CARRIAGE RETURN ONLY, ALL TERM'S
;BINARY TO ASCII CONVERSION

swewwvwvwnw

$FOUR
$CKSWR
$CNTLU
:ttt't""""""l""t"t’t'

;sCHECK CHAR
;PRINT CHAR, CONSOLE ONLY
;CHECK IF READY

:FOUR FILL CHARACTERS
;CHECK SWITCH REG CONTENTS
;RE-ENTER POINT FOR CKSWR ROUTINE

004¢

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

2021
2022
2023
2024
2025
2026
2027
202#
2029
2030
2031

2032
2033
2034
2035

MACYTT

30A(1052)
03-AUG-79
EMT TRAP DECODER
(et EEE RS

CHGDS

09:23

&
PAGE &7
SEQ 0047

ERRERROEY

:FOUR-- THIS ROUTINE WILL PRINT FOUR FILL CHARACTERS
.

:.'."".'.

JERNATERAETERARENRORY

003476
003476
003502
003506
003510
003512
003514

012705
012700
104011
005305
101373
000002

000004
000006

CHGDS:

$FOUR:
18:

MOVMOV,
PRINTC

DE
BHI
RT1

AL E

SRR

#4 RS
#6.RO

RS
18
RRRRRR

sPLACE A FOUR INTO RS
sPLACE THE ACK CODE INTO R6

s TRANSMIT

;DEC RS

;4 TIMES

CODE

5 |

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

MACY11

2036
2037
2038
2039

|SS—

2067
2068
2069
2070
2071
2072
2073
2074
2075
2076
2077
2078
2079
2080
2081
2082
2083
2084
2085
2086
2087
2088
2089

03-AUG-79

COMMON ROUTINES
.SBTTL

09:23

PAGE 48
SEQ 0048

COMMON ROUTINES

;"tt"".'

:ECHO-- THIS ROUTINE ECHOS CHARACTERS ON THE TERMINAL UNDER TEST.

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

30A(1052)

;""'t"'t
003516
003522
003524
003532
003534
003540
003546
003554
003562
003570
003576
003600
003606
003614
003620
003622
003626
003630
003634
003640
003642
003646
003652

005737

001224

$ECHO:

175420

001160

001124
001156
001124
177777
000020
001160

75370
75370
75364
75362
75352

001160
000400
175416

75432
75

MOV
MOV

1$:

2%:

sBRANCH IF DJ11

sCHECK IF OK TO SEND TO DH11
sNO,WAIT UNTIL OK
;CHAR INTO TEMPCH

:SET LINE NUMBER
;OK,PUT ADDR OF CHAR INTO CARA
;SET CHAR COUNT T0 1
sSET SILO OVERFLOW TO 16

BIS

#B1T8,aCSR

sSTART

@ TBUF R4
R4

:GET CONTENTS OF TBUF
sRIGHT JUSTIFY LINE NO.

187
BPL

BIC

MASK ,a@TCR

aCSR
2%

#177760 R4

;SET TRANSMIT BIT

;RETURN

;SET LINE NO.

IN TCR

TRANSMITTER SCANNER

;CHECK IF OK
;BRANCH IF NOT READY

:SAVE ONLY THE LINE NO.

CMP

R& ,LINENO

;BE SURE

MOvVB

RO, TEMPCH

:SAVE CHAR IN TEMPCH

BNE
MovB

175374
001124

LINENO,aSCR
#TEMPCH,@CARA

:DJ11 OR DH1

#-1,3BYCR
#20,3SSR
MASK ,3BAR

MOV
SWAB

177760
001156

105w
ECHODJ
@BAR, MASK
$ECHO
RO, TEMPCH

MOV
MOV
BIS
RTI

ECHODJ: MOV

175414

000002

TST
BNE
BIT
BNE
MOV

RTI

1%
RO,aTBUF

IT'S THE LINE UNDER TEST

;BRANCH IF NOT
;LOAD CHAR TO PRINT
;RETURN

'tt..""'

INRDV-- CHECKS IF

:
H
:
H
:
H

ANY

INPUT FROM TERMINAL UNDER TEST.

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

CHAR WILL

:.I""'II'
003654
003660
003662
003666
003670
003674
003700
003702
003710
003714

017700
100015
010037
000300
042700
020037
001365
042737
062716
000002

175260

$INRDY: MOV

SNRCRA RO

001124

MOV

RO, TEMPCH

BPL

177760
001156

177600
000002

001124
1%:

SWAB
Bl1C
CMP
BNE
BIC
ADD
RTI

RO
#177760,R0
RO,L INENO
$INRDY
#177600, TEMPCH
#2,3sP

:GET CHAR

;BRANCH IF NO CHAR
:SAVE CHAR

sRIGHT JUSTIFY LINE NO.
sSAVE ONLY LINE NO.
sCHECK IF SAME AS LINE UNDER TEST
;BRANCH IF NOT LINE UNDER TEST
;SAVE ONLY THE CHAR
;SET UP RETURN ADDR.
sRETURN

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

09:23

&
PAGE 49

fiomuoi

:READ-- THIS ROUTINE READS INPUT FROM THE TERMINAL UNDER TEST ONLY

IF SW13 IS SET, OTHERWISE ALL TERMINALS ARE SCANNED FOR INPUT

AND TERMINAL WHERE CHARACTER
TERMINAL UNDER TEST.

IS RECEIVED

IS SET

AS THE

:'.t't'l"'

004060

004066

004070
004072
004076
004100
004104
004106
004112

005300
001406
106337
103373
105137

000770
013700
000002

020000

175320

$READ:

175206

177760
001156
1%:

BIT
BEQ
MoV
BPL
MOV
SWAB
BIC
CMP
BNE
BR
MOV

MOV
MOV

001224
002674
002750

003106
003214

3s:

001130
001130
177400
177600
001124
000011
000377

2%:

032777
001413
017700
100371
010004
000304
042704
020437
001362
000424
010146
010246
010346
010446
005737
001005
004737
004737
000404
004737
004737
012604
012603
012602
012601
010037
113737
062737
042700
010037
012700
062737

—

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

wro

WNN =00V
ONOVS NN —=O OB NO WM

30A(1052)
03-AUG-79
COMMON ROUTINES
:'l".'t."

priiry

Zoooooooo

NI NN — OV
VS W

—_—

e
b b
v b
b
L
N WO NN NN
IR NI NI NN

MACY11

(=l
oo

2090
2091
2092
2093
2094
2095
2096
2097
2098
2099
2100
2101
02

roforororooNoroNDNDNDNDNDRDNDNNNDND
DN NN
NN LA LN L L NT ST VT VT ST VY 8
—“dd—“ddd‘dddddddddflddflfldd

|
|

001126

4%:

5%:

001127

JSR
JSR

MOV

MOV
MOV
MOV
MOV
MOVB
BIC
BIC
MOV
MoV
BIC

DEC
BEQ

ASLB

001126
001124

Mov
1871
BNE
JSR
JSR
BR

6%:

BCC
COMB
BR
MOV
RTI

#B1T13,aSR
1%

aNRCRA,RO
$SREAD
RO, R4
R&
#177760,R4
R4 ,LINENO
SREAD
4%
R1,-(SP)

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

10Sw

PC,SCANDH
PC,SETERM

;SW13 SET?

;BRANCH IF NOT

;GET CHAR

:NO CHAR, WAIT

FOR ONE

sVALID DATA
sRIGHT JUSTIFY LINE NO.
sSAVE ONLY LINE NO.
;CHECK IF SAME AS LINE UNDER TEST
sBRANCH IF NOT
s CONTINUE
:SAVE R1

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

PC,SCANDJ
PC,SETDJ
(SP)+ R4

: CONTINUE
;LOOK FOR DJ INPUT
;SETUP DJ UNDER TEST
;RESTORE REGS

RO,PCHAR

;SAVE CHAR WITH PARITY BIT

(SP)+,R3
(SP)+,R2
(SP)+,R1

PCHAR ,PARITY+1
#177400 ,PCHAR

#177600,R0
RO, TEMPCH

#11,R0
#377 ,PARLTY
RO

PARITY#1

TEMPCH,RO

;GET CODE FOR PARITY CHECK

;CLEAR UNWANTED BITS

sSAVE ONLY THE CHAR

;SET SHIFT COUNT

;CLEAR PARITY FLAG

;DECREMENT SHIFT COUNT

;EXIT IF DONE
;ROTATE CODE

;CONTINUE 1F CARRY BIT WAS A ZERO
;COMPLIMENT PARITY FLAG IF BIT WAS ONE
: CONTINUE

sRESTORE RO
sRETURN

MACYT1

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

09:23

&
PAGE 50

SEQ 0050

SXXXXXAXXXX

:TYPE-- A COMMON ROUTINE USED T0 TYPE MESSAGES ON THE TERMINAL

TR TR TR )

UNDER TEST ONLY.
THE NULL CHARACTER TERMINATES
THE MESSAGE. CALLED THROUGH AN EMT TRAP.
CALLING SEQUENCE
TYPE
MESG
;ADDRESS OF MESSAGE

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

s XXXXXXXAXX

004114
004116
004122
004124
004126

004130
004132
004134
004136
004140

004142

000002

TYP:

1%:

MOV
ADD
MOV
MOVB
BMI

asP,R1
#2,asp

aR1,R1
(R1)+,RO
2%
3%

BNE

2%:
104021

3$:

000770

;GET POINTER TO ADDR. OF MESG.
;SET UP RETURN ADDRESS
;ADDR. OF MESG TO R1
;GET CHAR

RTI

SCRLF
BR
ECHO
BR

;BRANCH IF WANT AUTO CR-LF
;PRINT CHAR IF NOT NULL

;EXIT ON NULL CHAR
;SEND A CRLF

:GET NEXT CHAR

;GO0 GET NEXT CHAR

;OUTPUT CHAR

SXXXXNXXAXX

;TYPM==-MULT1 TYPE-A COMMON ROUTINE TO OUTPUT
;

H
:
H

A MESSAGE ON ALL DH11S.

THIS ROUTINE IS USED BY
THE PRINTER TESTS TO TYPE HEADINGS.
CALLING SEQUENCE;
TYPEM

MESGAD

;ADDRESS OF MESSAGE

SXXXXXXXXXX

004144
004146
004152
004154

000002

004156
004160
004162

MOV

asP,R1

;GET POINTER TO ADDR OF MESG

1$:

MOV
MOVB
BMI

aR1,R1
(R1)+,RO
2%

;ADDR OF MESG TO R1
:GET CHAR
;BRANCH IF WANT AUTO CR=-LF

ADD

BNE

004164

004166
004170
004172

TYPM:

2%:

000770

3%:

RTI
CRLF

PRINTC
BR

#2,as5P

1%
1%

sSET UP RETURN ADDRESS

;CONTINUE IF NOT NULL

;RETURN TO CALLER
:SEND CR=LF

;GET NEXT CHAR

;PRINT CHAR
;G0 GET NEXT CHMAR.

2186

30A(1052)
03-AUG-79
COMMON R OUTINES

L)
PAGE

SEQ 0057

00 0 0 0O 0o o 0o
—=OV~N

‘DELAY-- A COMMON ROUTINE TO DELAY PROCESSING
T S

A GIVEN NUMBER OF MSEC.
CALLING SEQUENCE;
ggxh' #5,R0
;RO CONTAINS THE NUMBER OF MSEC DELAY DESIRED

R I

THE DELAY IS EFFECTED BY THE EXECUTION OF
1$:
DEC
R}

BNE

N T T R

OO0 Y0

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

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

— o

THE LOOP;

SINCE THE EXECUTION TIMES OF THE PDP11 LINE DOES VARY FROM
MACHINE TO MACHINE, THE VALUE AT SYMBOLIC LOCATION

PTOPNONUN)
=
et e e e
se

09:23

:'..'." LE A4

~ VSN

Dt
- ——

LSS LN T N N NT Y ST ST VY. ~n

MACY11

sMACHINE

05810

35840

15820

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

3.4
2.5
NS
251

9
1.76
2.1
55

g.3
2.6
4.9
314

BIPOLAR

11745 8 11/70

.30
.60
.90USEC
2127

S XXXXXXXXXX

NS N

1014
1370
0530
001376
005300
001372
012601
000002

— e ON

004174
004176
004202
004204
004206
004210
004212
004214

=i=1=]

= O VB~
W

oo
O N no
oo
NNNDN NN ~nN

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

001102

DLY:
1$:

2%:

Mov
MOV

DEC
BNE
DEC
BNE
:?Y

R1,-(SP)
TIMER,R1

R1
2%
RO
1%
(SP)+,R1

; SAVE R
;MOV 1MSEC LOOP CNT TO R1

;DECREMENT COUNT
;BRANCH IF NOT ZERO
sDEC NO. OF MSEC DELAY
;DELAY AGAIN IF NOT ZERO
sALL DONE RESTORE R1

MOS

CORE

.91
.90
.98
1.13
1.49USEC
1237
755

2.03USEC

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

MACYT1

2224

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

09:23

PAGE 52
SEQ 0052

JErERETERERY

2225
2226
2227

3
sPFAIL--POWER FAIL ROUTINE
:
SAVE ALL REGISTERS AND SET RESTART ADDRESS

2230

sRESTART--POWER FAIL RECOVERY

2233%
2234
2235
2236
2237
2238
2239
2240
2241
2242
2243
2244
2245
2246
2247
2248
2249
2250
2251
2252
2253
2254
2255

slt'tttt'tt

g%gg

%gg;

2256
2257
2258
2259
Sgg?
2262
2263
2264

INTO LOCATION 24

RESTORE ALL REGISTERS AND GO TO START

004216
004220
004222
004224
004226
004230
004232
004236
004242
004250

010046
010146
010246
010346
010446
010546
013746
010637
012737
000000

004252

000000

SAVR6:

004254
004256
004260
004264
004270
004272
004274
004276
004300
004302
004304

104002
004310
013706
012637
012605
012604
012603
012602
012601
012600
000137

RESTRT: TYPEM
1%
MOV
SAVR6,SP
MOV
(SP)+,24
MOV
(SP)+,R5
MOV
(SP)+ R4
MoV
(SP)+,R3
MoV
(SP)+,R2
MOV (SP)+,R1
MOV
(SP)+,RO
JMP
STARTX

004310
004316

050200
000200

PFAIL:

000024
004252
004254

000024

004252
000024

001302
053517

051105

18:

MOV
MoV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
HALT

RO,-(SP)
R1,-(SP)
R2,-(SP)
R3,-(SP)
R4 ,-(SP)
R5,-(SP)
24 ,-(SP)
SP,SAVR6
#RESTRT 24

.WORD

.ASC1Z
.EVEN

sSAVE STACK POSITION
sSTORE RESTART ADDRESS

;TYPE POWER MESG
JRESTORE STACK POINTER
sRESTORE PFAIL ADDRESS

<ACRLF>/POWER/<ACRLF>

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

MACY11

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

2265
2266

(9:23

5
PAGE 53
SEQ 0053

JEREARERERRY

:BINARV TO ASC11 CONVERSION (1 TO 5 ASC11 CHARACTERS)

2267
2268

MOV
MOV
MOV
BTOASC

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

TN I

CALLING SEQUENCE

JEAEAERERRS

004320
004324
004326
004332
004336
004342
004346
004350
004354

163701
103403
005237

004402

000772
063701
062737
113720
005337
001354
000002

004404
004406
004410

000000
000000
000000

004412
004420

000001
001750

004356
004362
004370
004374
004400

rororurororornorOROrO
RO RO N RO NN
N N e L
e N NN N e
NN
— it i it it et et =2 OO OOOO
NOWVMS
W
-0V~ [« VD
R¥

010237
006302
062702
014237
005037

004404

$BTASC: MOV

004412
004410
004406
004410

1%:

2%:

004406
004410
000060
004406
004404

000012
023420

004406

000144

3%:

ASL
ADY

MOV
CLR

SUB
BCS
INC
BR

ADD

ADD
MOVB
DEC
BNE
RTI

:g.cnvcxa

: SAVE TEN POUER
.

#ADTENP ,R2
-(R2) ,TENPWR
DIGIT
TENPWR, R1

DleIT

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

:BRANCH IF END

TENPWR,R1

:RESTORE SUBTRACTED VALUE

DIGIT, (RO)+
CNVCTR
18

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

;CONVERSION CHARACTER COUNT
;CONVERTED CHARACTER
;CURRENT TEN POWER

#60,D1G11

:CONVERT (DIGIT) TO ASCII

:RETURN

CNVCTR:
DIGIT:
TENPWR:

.WORD
.WORD

.WORD

0
0
0

ADTENP:

.WORD

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

sRERATAEEY

TESTC-- CHECKS FOR

INPUTTED OCTAL DIGIT

BETWEEN A G ANDA 7 INCLUSIVE

E'.'.tl"
004424
004430
004434
004436
004442
004444
004450
004454

013700
020027
103407
020027
101004

062716
042700

000002

001124
000060

$TESTC: MOV

CMP
BLO
CMP
BH1
ADD

000067
000002
177770

1%:

B1C
RTI

TEMPCHK,RO

RO, #60
1%
RO, #67
1%
#2,asP

#177770,R0

sGET CHAR

;CHECK IF NUMERIC AND EQ ,GT O
:BRANCH ERROR
;CHECK IF EQ OR LT 7
;BRANCH ERROR
sSET UP RETURN ADDRESS

sSAVE ONLY THE DIGIT
:NORMAL RETURN

»r-

L T ST T T Y e

—

o »

~NS

~e~

et bttt e et LY LV LV NT NT YN T, )
::hu::thJthuhthhJ
NN NN NN
NN LN LN N U N N N U NN U N NN

(]

DDO LA36 DH11/DJ11 DIAG
D.P11
03-AUG-79 09:18

MACYT1

30A(1052)

03-AUG-79

COMMON ROUTINES

09:23

PAGE 54

SEQ 0054

ievERERTREERY

9
0
3

:
;SCRLF=- A COMMON ROUTINE TO OUTPUT A CR AND LF
2
THE TEST TERMINAL ONLY.

E"!."t"t

A L

5
6
7
8
g

004456
004462
004464
004470
004472

112700
104021
112700
104021
000002

000015
000012

$SCRLF: MOVB
ECHO
MOVB
ECHO
RTI

#15,R0
#12,R0

sSEND A (R
sWAIT UNTIL PRINTER IS READY
JSEND A LF

sRETURN TO CALLER

SXOOOOXNNXXX

;CRLF-° ROUTINES TO SEND A CR AND/OR LF TO ALL TERMINALS.

SXOOOOONNONNK

e T e At

004474
004476
004502
004504

104014
012700
104011
000002

004506

012700

004514

000002

ST ST ST N ST ST NT NTST ST VT ST ST ST VT ST N7 TN
L L L Ll L U L i N U ) L L
N NN
e
NN
o 3o 0
e s A AW W AW AW AV IV W AW AV B
N N

8
9
0
;

004512

10401

000012

$CRLF:
$LF:

(R
MOV
PRINTC
RTI

000015

$CR:

MoV

PRINTC

#12.R0

#15,R0

RTI

;sSEND CR
sLF TO RO
JSEND IT
sRETURN

;CR T0 RO
SSEND IT

sRETURN

IERREEEEY

JROUTINE TO PRINT TEST HEADER

2
3
4
5
6
7
8
9
0
1
2
3
4

;ttttt'it
004516

104002

004520
004522
004526
004530
004532
004534
004540
004544
004546

017642
013700
006200
006200
006200
042700
062700
104011
013700

004556
004562
004564
004566
004570

062700
104011
104006
104010
000002

004552

042700

$PRHDR:

001106

177770
000060
001106

177770

000060

TYPEM

HDRMSG
MOV
ASR
ASR
ASR
BIC
ADD
PRINTC
MOV
BIC

ADD
PRINTC
CRLF
LF
R1I

sPRINT MESG

RTNNO,RO
RO
RO
RO
#177770,R0
#60,R0

RTNNO,RO

#177770,R0

#60,R0

sGET TEST NUMBER
:GET FIRST DIGIT

sMASK FIRST DIGIT
sMAKE ASCII
sPRINT 17
sGET TEST NUMBER AGAIN
sMASK LAST DIGIT

sMAKE ASCII
sPRINT IT7
sCR=LF
sBLANK LINE
sRETURN

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

MACYT1 30A(1052) 03-AUG-79 09:23 )] Plgi 55
COMMON ROUTINES

SEQ 0055

JERRYRERERY

NN W
N
EEESEsS
0o 0o 0o
VRNV
W

oo
RO NN NN MdaSia
LAV T VT ST VT N

EPRINTC--IMIS ROUTINE 1S USED TO DRIVE EACH OF THE EXISTING TERMINALS

77
78

390
391
392

ON EACH OF

THE EXISTING DH11°S(

AS DEFINED BY

THE

SET UP IN ELTAB).

1F IN THE MAINTENANCE MODE SR BIT 13 CONTROLS WHETHER OR NOT
ALL DH11'S ARE DRIVEN OR ONLY THE TERMINAL UNDER TEST.
SET
BIT 13 DOWN TO DRIVE ALL TERMINALS ON ALL DH11°S. SET BIT 13 uP 10
DRIVE ONLY THE TERMINAL UNDER TEST.
EACH TERMINAL IS DRIVEN ONE CHARACTER AT A TIME.

PRINTC WILL LOOP WAITING FOR THE FIRST TERMINAL TC BE READY
ENTER WITH CHAR TO PRINT

IN RO.

JEARRAAATEY

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

000446

004644
004652
004654
004656

023727
001002
104024
000561

CHGD10:
$PRTC:
MOV
MOV
MOV
MOV
MOV
MOV

001224

TST

005474
001230
020000

1%:
174410

BEQ
JMP
TS7T
BEQ
BIT
BEQ
ECHO
INRDY
BR

senxenrwwer

001124

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

000007

10SW

1%
PRINTJ

DHONT
12%
#BIT13,3SR
6%
18%

CHGDI)

Cmp

TEMPCH,
#7

BNE

20%

12%

CKSWR

wewevenenn

JARRRRREAREY

004660
004666
004670
004674
004702
004704

004712
004714
004722
004724
004732
004734
004742
004744
004752
004754
004760
004764
004772

023727 001124
001402
000137 005416
023727 001106
001004
012766- 012224
000543
023727 001106
001004
012766 011234
000533
023727 001106
001004
012766 011314
000523
000137
000137
013737 001134
012705 017402

005432

000177

20%:

000024

2%:

000014
000021

3s:

Cmp
BNE

RTNNO, #24
3%

JMP

CMpP

4%:

5%:
18%:
6%:

ENDITR

#TERM,14(SP)

12%

RTNNO,#21

BNE

BR
CMpP
BNE
MOV
BR
JMP

12%
RTNNO,#22
5%
#E022B,14(SP)
12%
TIYIH

MOV

000014

001232

TEMPCH, #177
2%

MOV

000014
000022

CMp
BEQ

JMP
MOV
MOV

#E021B,14(SP)

ENDIT
DHADR,SCR1
#ELTAB,RS

;SAVE RO

;SAVE R1
;SAVE R2
;SAVE R3
;SAVE R4

;SAVE RS
:DH11 OR DJ11?
;GO TO DJ11 ROUTINE
sANY DH11'S PRESENT?
sRETURN IF NONE
sCHECK IF SR BIT13 IS SET
;:DRIVE ALL TERMINALS I1F NOT SET
;OUTPUT CHAR
;CHECK IF ANY INPUT
:NO,RETURN

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

:NO RUBOUT, RETURN
;CHECK IF TEST 24
;BRANCH IF NOT
;SET RETURN ADR
;RETURN TO EXIT TEST PROPERLY

11851 21
;BRANCH IF NOT

;SET RETURN TO EXIT TEST PROPERLY
;RETURN

sTEST 227

;CONTINUE IF NOT
sSET RETURN ADR
sRETURN TO EXIT TEST PROPERLY
;G0 WAIT
;INIT ADDR OF FIRST DHI1]
sINIT ADDR TO EXISTING TERM TAB

[

2426
2427
2428
2429
2430
2431
2432
2433
2434
2435
26436

2637
2438
2439

24640
2441
2442
24L43
244k
2445
2446

2447
2648
2449
2450
2651
2452
2453
2454
2455
2456
2457
2458
2459
2460
2461
2462
2463
2464
2465
2466
2467

2468
2469
2470
247
2472
2473
2474
2475
2476
26177

2478
2479
2480
2481

004776
005002
005006
005012
005014
005022
005030
005032
005034
005040
005042
005050
005056
005064
005070
005076
005102
005104
005112

O
O (et
i =l=l=T]
o= =P —O OWOWO—=O
NNOMNIMNIN
= N e ea D)
N
NN NN N -0 ~N~
WNWNWNOWD W
NNSNNNVN
RN ~N=

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

005777
100072
017737
042737

MACY11

016402
001230
000001

001232
000012

MOV

174144
000002
174132

174124
177600

MOV

7%:

001234
001234

1764174

000004
000020
000016

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

9%:

001234

BIT
BNE
ADD
MOVB
SUB
MCVB
ADD

001124
001124

BPL
MOV
BIC

001234
174156
001234

005120
005126
005130
005132

023727
001002
104024
000433

001124

000007

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

005250
005256
005260
005264
005266

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

118:

000002
173732
000002

001234

16%:

seweresrrnn

12%

:INIT DH11 COUNT

;SET SCR2 AS ADDR OF SCR

;PUT CHANNEL NO. INTO SCR
;SET CHAR BUF ADR

sANY

INPUT?

;CONTINUE IF NONE
;GET CHAR

sMASK CHAR

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

cMP

TEMPCH,
M 77

CMP

RTNNO, #24

MOV

#TERM,14(SP)

sBRANCH IF NOT
sSET RETURN ADR

RTNNO,#21

sTESTZY?

BNE

CMP

14%

108

ENDITD

BNE
MOV
BR
CMP

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

MoV
BR

#E022B,14(SP)
ENDITD

CMP

TEMPCH,
#3

BNE

cMP
BEQ
MOV
MOV

MOV
001234

16%
aSCR2, TEMPCH
#177600,TEMPCH

BNE

000036

;INIT CURRENT LINE NO.
;SET UP CURRENT CHANNEL NUMBER
:SET SCR2 = ADDR OF CURRENT DH11
sSET SCR2 = ADDR OF BAR
sTEST IF TERMINAL EXISTS
;BRANCH IF NO TERMINAL
;TEST IF OK TO SEND
;TEST AGAIN
;ADDR OF SILO STATUS
;SET SILO OVERFLOW 10 16

TEMPCH,#7
19%

JMP

15%:

#1,R2
R1
SCR1,SCR2
#12,5CR2
@R5,R2
17%

CHGD10)

BNE

108:

sINIT ADDR TO VP TAB

cmMp
BNE
S

SEQ 0056

#DH1100,R4

aSCR2

CKSWR

AL EEEE]

5
PAGE 56

aSCR2,R2
9%
#4,5CR2
#20,3SCR2
#16,5CR2
R1,aSCR2
#2,S5CR2

1871

sERRAAAE
AN
R

DHCNT,
RS

MOV
CLR
MOV
ADD
BIT
BNE

8%:

09:23

DELAY
MoV
ADD
MOV
ADD
MOV
ASL
ASL
ASL

138

TIYIH
15%

sCHECK IF RUBOUT
sBRANCH IF NOT RUBOUT

sTEST 247

sRETURN TO EXIT TEST PROPERLY
;BRANCH IF NOT
:SET RETURN ADR
sRETURN TO EXIT TEST PROPERLY
;TEST 227
;BRANCH IF NOT
sSET RETURN ADR
sRETURN TO EXIT TEST PROPERLY
:CONTROL
sCHAR = CONTROL=C ?
sCONTINUE IF NOT

RTNNO,#24
ENDITD
TEMPCH,REPT
RO,=(SP)

#30.,R0

;TEST 247
JEXIT IF TEST 24
sSAVE CHAR FOR TESTS 21 AND 22
;SAVE RO
sDELAY FOR HALF DUPLEX

(SP)+,RO
#2,SCR2

:RESTORE RO
:SCR2 EQ ADDR OF LPR

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

;STORE VP INTO LPR

:ADD 2 TO ADDDR IN SCR2
; SAVE R1
;FIND TABLE POINTER

;70 STORE CHAR
;FOR THIS CHANNEL

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

2482
2483
2484
2485
2486
2487
2488
2489
2490
2491
2492
2493
2494

2495
2496
2497
2498
2499
2500
2501
2502
2503
2504

2505

rororoornoroNroNo
No

AT AN AN AV L
LV LV LV LV ] W
et e e D e e et it
o
NV
NN
OO0 oo

2506
2507

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

005201
006302
103215
005303
001414
062737
005725
000137

005416
005424
005430

013737
012700
104003

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

012605
012604
012603
012602
012601
012600
023727
001006

006301
060301
062701
110011

010177
012601
062737
012777
062737
050277

005724

023727
001002
012716
000002

MACY11

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

006157
173676
000002
177777
000002
173646

000020

001234
173660
001234
17%:

001232

005006

001124
000036

001114

00112¢

000003

001106

000024

012140

BIS
181
INC
ASL
BCC
DEC
BEQ
ADD
187
JMP

09:23

8%
R3

ENDIT
#20,SCR1
(R5)+
7%
TEMPCH,REPT
#30..RO

ENDIT:

(SP)+,R5
(SP)+ R4
(SP)+,R3
(SP)+,R2
(SP)+ R}
(SP)+,RO

MOV
MOV
MOV

CMP
BNE
CMP
BNE

1%:

MoV
RTI

5
PAGE 57

R1
R3,R1
#CHARAC-1,R1
RO, (R1)
R1,aSCR2
(SP)+ ,R1
#2,SCR2
#177777,8SCR2
#2,5CR2
R2,aSCR2
(R4)+
R1
R2

ENDITR: MOv
ENDITD: MOV
DELAY
MOV
MOV
MOV

TEMPCH,#3
1%
?INNO.IZL
#EO24R, (SP)

SE@ 0057

;STORE CHAR

sADDR OF

CHAR

INTO CARA

sRESTORE R1
sADD 2 TO ADDR IN SCR2
;SET CHAR COUNT EQ 1
:ADD 2 TO ADDR IN SCR2
sSET LINE BIT IN BAR
sINC 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
;BRANCH IF ALL DONE
;SET UP FOR NEXT DH11
sINC PTR TO EXISTING TERM. TBL.
;DO NEXT DH11
;SAVE CHAR FOR TESTS 21 & 22
;:DELAY FOR HALF

;CHAR
;EXIT
;TEST
;EXIT
;YES,

DUPLEX

= CONTROL C ?
IF NOT
242
IF NOT
SET RETURN ADR

:RETURN

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

MACY11

2519

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

2529
2530
2531
2532
2533
2534
2535
2536
2537
2538
2539
2540
2541
2542
2543
2544
2545
2546
2547
2548
2549
2550

;tttt.ttttt

005474
005500
005502
005510
005512
005514
005516
005520
005526
005530
005536
005540
005546
005550
005556
005560
005566
005570
005576
005600

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

012702

002540
160010
017402
001226
000001

2551
2552
2553
2554
2555

005606
005610
005614
005622
005626

000706
000137
012737
012705
013703

2557
2558
2559
2560

005636
005640
005646
005654

005001
013737
062737
031502

005632

005656

2562

005660

2564
2565

005672
005676

2563

2566

2567

2568

2569
2570
2571
2572
2573
2574

PAGE 58
SEQ 0058

.
;PRINTJ--THIS ROUTINE 1S USED TO DRIVE EACH OF THE EXISTING TERMINALS
:
ON EACH OF THE EXISTING DJ11S' (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 TERMINAL
:
UNDER TEST. EACH TERMINAL IS DRIVEN ONE AT A TIME. PRINTJ
:
WILL LOOP WAITING FOR THE FIRST ONE TO BE READY TO SEND

sg%g

2561

ierERReRREY

2520
2521
2522
2523
2524
2525
2526

2556

09:23

005664

005700

001124

010277

001124

000177

001106

000024

012224

000014

001106

000021

011234

000014

001106

000022

011314

000014

PRINTJ: TST
BEQ
BIT
BEQ
ECHO
INRDY
BR
CMP
BNE
CMP
BNE
MoV
BR
1%:
cMpP
BNE
MoV
BR
2%:
cMpP
BNE
MoV

001232

3%:
4$:

020000

001232
000004

173350

173534

5%:

001234
001234

162737

0000064

001234

062737

000002

001234

042737

177600

001124

105777
100072

005706

017737

005722
005730
005732
005740
005742
005750

023727
001032
023727
001004
012766
000625

005714

001226

ENTER WITH CHARACTER TO SEND IN RO.

173336

173322

6%:

DJCNT
ENDIT
#BIT13,asR
43

CLR
MoV
ADD
BIT
BNE
MOV

ENDIT
TEMPCH,#177
ENDITR
RTNNO, #24
1%
#TERM, 14(SP)
ENDITD
RTNNO,#21
2%
#E021B,14(SP)
ENDITD
RTNNO,#22
3%
#E022B,14(SP)
ENDITD
TIVIH
#160010,SCR1
#ELTAB,RS
DJCNT ,R3
#,R2
R1
SCR1,SCR2
#4,SCR2
aRS,R2
158
RZ,aSCR2

1STB
BPL

asCR2
13%

2R
JMP
MOV
MOV
MOV
MOV

SUB

ADD

;OUTPUT CHAR TO TERM UNDER TEST

;CHECK IF ANY INPUT
;NO, RETURN
;YES CKECK IF A RUBOUT
:NO, RETURN
:TEST 24?
:BRANCH IF NOT
:SET RETURN ADR
;RETURN TO EXIT TEST PROPERLY
:TEST 212
;BRANCH IF NOT
;SET RETURN ADR
;RETURN TO EXIT TEST PROPERLY
sTEST 22?
:BRANCH IF NOT
;SET RETURN ADR
;RETURN TO EXIT TEST PROPERLY
;60 WAIT
;INIT ADDR OF FIRST DJ11
:INIT ADDR OF EXISTING TERM TAB
;COUNT OF DJ11S* T0 R3
sINIT CURRENT LINE NO.
;INIT CURRENT CHANNEL NO.
;SET SCR2=ADDR OF CURRENT DJ11
;SCR2 1S ADDR OF TCR
;TEST IF TERMINAL EXISTS
;BRANCH IF NO TERMINAL
;YES,SET LINE NO. IN TCR

¥4,5CR2

:SCRé 1S NOW ADDR OF CSR

#2,5CR2

sSET CHAR BUF REG ADR

001124

MoV

SCR2, TEMPCH

001124

000177

001106

000024

012224

000014

CMpP
BNE
cMP
BNE
MoV
BR

TEMPCH #177
11%
RTINNO,#24
7%
#TERM, 14(SP)
ENDITD

BIC

;ANY DJ11S'
;NO, RETURN
;CHECK IF SR 13 1S SET
;CLEAR, DRIVE ALL TERMIINALS

#177600,TEMPCH

;CHECK FOR INPUTS
;CONTINUE IF NO INPUT

;GET INPUT CHAR

:MASK CHAR

;CHECK CHAR
:BRANCH IF NOT RUBOUT
;TEST 242
;BRANCH IF NOT
;SET RETURN ADR
:RETURN TO EXIT TEST PROPERLY

oo
oo

da LoV T VT VT VT N oo

WAV
g\l‘g\fi
©o 0o 0o
TSR NN - 333

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

005752
005760

MACY11

023727
001004
012766
000615
023727
001004
012766
000605
000137
023727
001004
023727
001765
013737
010046
012700

000036

052777
005777

000002
000400
173136

001234
173142

000006
173122

001234

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
006130
006132
006134
006136
006140
006142
006146
006154
006156

062737
017704
000304
042704
020401
001246
110077
005201
006302
103241
005303
001002
000137
062737
005725
000625

006160

000400

104003
012600
162737
100375

001106

000021

011234

000014

001106

000022

011314

000014

002540
001124

000003

001106

000024

001124

001114

30A(1052)
03-AUG-79
COMMON ROUTINES
7%:

8%:

BPL

ADD
MOV
SWAB

177760

BIC
CMP
BNE

173104

005432
000010

CMpP
BNE
MOV
BR
CHp
BNE
MOV
BR
JMP
CMP
BNE
CMp
BEQ
MOV
MOv
MOV
DELAY
Mov
SUB
BIS
1ST

15%:

001232

16%:

S
PAGE 59

RTNNO, #21

#ED21B,14(5SP)
ENDITD
RTNNO,#22
108
#E022B,14(SP)
ENDITD
TTYIH
TEMPCH,#3
12%
RTNNO, #24
9%
TEMPCH,REPT

SEa 0059

sTEST 212
sBRANCH IF NOT
;SET RETURN ADR
SRETURN TO EXIT TEST PROPERLY
sTEST 22?
sBRANCH IF NOT
sSET RETURN ADR
sRETURN TO EXIT TEST PROPERLY
;GO TO CONTROL
sCHAR = CONTROL=C ?
sBRANCH IF NOT
sTEST 242
sYES, RETURN TO TEST
sSAVE CHAR FOR TESTS 21 & 22

RO,=(SP)
#30.,RO

s SAVE RO

(SP)+,RO

;RESTORE RO

#B178,aSCR2

;START

#2,SCR2

aSCR2

14%
#6,5CR2

aSCR2,R4
R&

#177760,R4
R4 ,R1

sDELAY FOR HALF DUPLEX
;RESET PROPER ADR FOR PRINT
TRANSMITTER SCANNER

sCHECK STATE OF (SR
sBRANCH IF XMITTER NOT READY
:READY, SCR2 NOW=ADDR OF TBUF
;GET CONTENTS OF TBUF

ADD
187

6%
RO,aSCR2
R1
R2
6%
R3
16%
ENDIT
#10,SCR1
(R5)+

;SAVE ONLY LINE NO.
;BE SURE SCANNER 1S ON CORRECT LINE
:BRANCH IF NOT, TRY AGAIN
:LOAD TBUF WITH CHAR
s 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
sSET SCR1 TO ADDR OF NEXT DJ11
sSET R5 TO NEXT ELTAB ENTRY
;G0 DO NEXT DJ11

.BLKB

256.

s CHARACTER STORAGE FOR OUTPUT

MOvVB

INC

ASL

BCC
DEC
BNE
JMP
BR

CHARAC:

09:23

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

2617
2618
2619
2620
2621
2622
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

MACYT1

30A(1052)

03-AUG-79

PRINTER TESTS

.SBTTL

09:23

5
PAGE €0
SEaQ 0060

PRINTER TESTS

'XXXXX!!XXX

PIO == DATA PATH TEST-=-FOUR LINES OF ALTERNATING
“'+"' AND "'U'* ARE PRINTED, OUT TO THE GIVEN PAPER
WIDTH THE PATTERN WILL APPEAR AS FOLOWS.

;
;

syrysysyrysy

UsUrU*UsUsU*

sUsUrUsUsUry
UsUsUrUsysys

DXXXXXXXXXX

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

000000
006634
104012

PT10:

104002

017654
012703
012702
010300

013701
104011

000300
005301
001374
000303
104006

005302
001365
104001
000763

025125
000020
001112

1$:

PT1
PRTHDR
TYPEM
HDRO
MOV
MOV

28:

MOV

38:

PRINTC

; TEST NUMBER
sNEXT TEST

;PRINT
;PRINT
#°Us ,R3

#16..R2

R3,RO

MOV

WIDTH,R1

SWAB
DEC
BNE
SWAB
CRLF
DEC

RO
R1
3s
R3

BNE

R2
2%

CHAIN

TEST HEADER
COLUMN MESG

;SET FIRST CHAR PAIR
sSET LINE COUNT
;SET CHAR PAIR
:SET COLUMN COUNT
;PRINT CHAR
sSET NEXT CHAR
sDEC COLUMN COUNT

;FINISH LINE

sSET NEXT START CHAR
sCR=LF
sDEC LINE COUNT
;FINISH TEST
sALL DONE, EXIT
sREPEAT TEST

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

2653
2654
2655
2656
2657
2658
2659
2660
2661
2662
2663
2664
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

PAGE 61
SEQ 0067

SXXAAAAAXXX

EPT1 == PRINTER CHARACTER TEST === PRINTS ALL PRINTABLE CHARACTERS

XXX
006634
006636
006640
006642
006646
006652
006656
006660
006664
006666
006672
006676
006700
006702
006704
006706
006710
006712
006714
006720
006722
006724

020327
103756
104001
000746

000200

006726
006732
006734
006736

012704
104011
005304
001375

000003

006740
006744

012700
104011

000040

006746
006752
006754

012700

000040

000001
006756
104012

012701
012702
012703
010100
004737
010200
004737
012704
010300
104011
005304
001375
104006
122122
105723

104011
000207

000040
000100
000140
006726

P11:

1
P12

1%:

MOV
MOV
MOV
MOV
JSR
MOV
JSR
MOV
MOV

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

DEC
BNE
CRLF
CMPB

2%:

006726
000003

3%:

PRTHDR

PRINTC

;TEST NUMBER
SNEXT TEST
;PRINT TEST HEADER
sSPACE TO R1

;@ T0 R2

A TO RS
sFIRST

CHAR TO RO

;SEND TWO SPACES
:SECOND CHAR TO RO
;SEND TWO SPACES
sCHAR COUNT TO R4

;THIRD CHAR TO RO
sPRINT CHAR

(R1)+,(R2)+

; THREE TIMES ?
;BRANCH IF NOT
sCR=LF
:SET NEXT CHARS

;CHECK IF ALL DONE
;BRANCH IF NOT
JEXIT TO NEXT TEST
;REPEAT TEST

MOV
PRINTC
DEC

#3,R4

;SET PRINT COUNT

BNE

R4
1%

;FINISH CHAR

SP2:

MOV

#40,R0

:SPACE TO RO
sPRINT FIRST SPACE

SPC:

MOV
PRINTC
RTS

#40,R0

:SPACE 70 RO

SPSP:
18:

1818
CMpP
BLO
CHAIN

(R3)+
R3,#200
2%

PRINTC

;PRINT CHAR

;:DEC PRINT COUNT

;PRINT SECOND SPACE
sRETURN

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

2693
2694
2695
2696
2697
2698
2699

MACY11

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

09:23

PAGE 62

SEQ 0062

S XNXXXXNXXX

NN,

P12 -- NON-PRINTING CHARACTER TEST.

%o me

2700
2701
2702

THIS TEST
PRINTS THE OCTAL CODE FOLLOWED BY THE MNEMONIC
OF ALL NON-PRINTING CHARACTERS.
FOLLOWING EACH
MNEMONIC, THE PRINTER 1S DRIVEN BY THE NON-PRINTING

CODE (0OC THROUGH 037 PLUS 177).

ALL CONTROL CHARACTERS

(INCLUDING THOSE FOR OPTIONS) WILL BE SKIPPED.
REFER TO THE DOCUMENT FOR A LIST OF THOSE PRINTED.

rorornofororONNNO
NN N RN NN NN N NN NN NN N N

NN NNNNNNNNNNNNNNNSNNNNNNNNNSN NNN~N NNNNNNNNN
2R 2R 2k 2 ok 2 2k 2k g v v e irrTeivrLA
N NN NN N NN N = —
NV
W —=O OB~
NS W= OOVBNOWVI
NN —=O VN NS NN —=0OO

S XXXXXXXXXX

006756
006760
006762
006764
006766
006772
006776
007002
007004
007006
007010
007012
007016
007020
007024
007026
007032
007034
007040
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

000002
007406

104012
005003
012701

012702
012704

112100
104011
005304
001374
022703
001420
022703
001414

022703
001412
022703
001002
012703
022703
001003
000421
005203
005203
010300
012704
104011
005304
001375
005203
005302
001404
004737
104011

PT2:

007144
000003
000010

005304
001375

104006

4$:

000004

000007

000020
000040

000003

58:

68:
78
8s:
9s:

006740

118:
128:

;TEST NUMBER
INEXT TEST

R3
#LINE2,RI

MOV
MOV

#3,R2
#10,R4

BNE
CHP
BEQ

48
#2,R3
3

MOVB
PRINTC
DEC

CHP
BEQ
CHP
BNE
MOV
CHP
BNE
BR
INC
INC
MOV
MOV
PRINTC
DEC
BNE
INC
DEC

(R1)+,RO

#4,R3
6%

:CHAR = EOT?
IYES, SET NEXT

#33,R3
7%
#7.R3
5%
#20,R3
#40.R3
8s
118
R3
R3
R3,R0
#3.R4
R4

MOV

PRINTC
DEC

BNE

CRLF

:NO. OF CHAR GROUPS PER LINE
:NO. OF CHARS PER GROUP

BEQ
JSR

CRLF
BR
MOV

:PRINT TEST HEADER
:NON=PRINTABLE CHAR..NULL 1S FIRST
:ADDR OF CHAR STRING TO Rl
:CHAR INTO RO
:PRINT CHAR
19 CHARS. PRINTED?

9%
R3
R2
108
PC,SP2

PRINTC

108:

000003
000177

PRTHDR
CLR
MOV

CMP
BEQ

000033

104006

104011

28:
38:

000002

000731

000725
012704
012700

18:

2
P13

28
#3,R4

#177,R0
R4

128

:BRANCH IF NOT
:CHAR = STX?

SYES, SET NEXT CHAR
CHAR

;CHAR = ESC?
SYES, SET NEXT CHAR
:CHAR = BELL?
:BRANCH IF NOT A BELL
:SET NEXT CHAR
:1S 1T THE LAST?
:BRANCH IF NO
:YES, OUTPUT LAST CHAR (177)
:SKIP CHAR
:SKIP CHAR
;NON=PRINTABLE CHAR TO RO
:A COUNT OF 3 10 R4
:DRIVE PRINTER WITH NON-PRINTABLE CHAR
:DECREMENT COUNTER
:BRANCH 1F NOT ZERO (3 TIMES)
: INCREMENT CHAR.CODE
:DEC. GROUPS PER LINE COUNTER (3)

:BRANCH IF ZERO
:SEND 3 SPACES
; CONT INUE

:SEND A CR,LF
:60 DO NEXT LINE
:A 3 COUNT T0 R4

;A DEL T0 RO

:PRINT CHAR
:DECREMENT COUNTER

:BRANCH IF NOT ZERO
SSEND A CR, LF

|S—

OV®NO VSN

OOV~
VI W

N NNNNSNNNNN
[+ J NNNNNNNN

oo
PN NN

NN~ NNNN NN~

LSA LS LS LV T VT ST Y NT TN

mmwmwmme

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

007140
007142

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

MACY11 30A(1052) 03-AUG-79 09:23 LPA%E 63
PRINTER TESTS

104001

CHAIN

000710
030060
046125
051440
020062
030060
045503
042040

020061
031060
031103
042040
020064
031060
045501
051440
020067
031460
047101
0462440
020062
031460
020123
043440
020066
031460
020123
042040
007406

020060
030060
044117
051440
020066

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

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

LINE2:

SEQ 0063

;CHAIN TO NEXT TEST
sREPEAT TEST

.ASCI1

/000

NULOOT

SOH002

STXx/

.ASCI1

/006

ACK020

DLEO21

DC1/

.ASCI1

/022

DC2023

DC3024

DC&/

LASCII

/025

NAK026

SYNO27

ETB/

.ASCI1

/030

CANO31

EM 032

SuB/

.ASCII

/034

FS 035

6S 036

RS /

LASCII

/037

us 177

DEL /

.EVEN

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

PAGE 64

SEQ 0064

CARRIAGE RETURN TEST ==

THE LINE CONSISTS OF A STRING OF 0'S AND
X's.
FIRST, THE 0'S ARE PRINTED OUT 1? g:E'LeSI

COLUMN WITH A SPACE SEPARATING EACH.
H
H
CARRIAGE 1S SPACED TO THE FIRST BLANK SPACE, AND X

PRINTED AND THE RETURNED TO THE MARGIN.
PROCESS IS CONTINUE UNTIL ALL SPACES BETWEEN
THE ZEROES HAVE BEEN FILLED.

S XXXAAANXXX

007406
007410
007412
007414
007420
007424
007430
007432
007434
007436
007442
007444
007446

007456

NN
N

09:23

007450

©o 0o 0o 0o 0o O 0o

03-AUG-79

PRINTER TESTS

:PT3 ==

007462
007466
007470
007472
007476
007500
007502
007510
007516
007520
007522
007524

000003
007526
104012
005037

P13:
1%:

013701
012700

2%:

104011
005301

001404
004737
005301
001367
104014

012737
013701
004737
005301
001374
012700

104011
104014
062737

023737
103757
104010
104001

000733

006746

000001
001116
006746

001116

000130
000002
001116

3%:
4%:

5%:

001 1 6
001 1 2
b

2798
2799
2800
2801
2802
2803
2804

30A(1052)

SO0

—2

2781
2782
2783
2784
2785
2786
2787
2788
2789
2790
2791
2792
2793
2794
2795
2796
2797

MACY11

P14
PRTHDR
CLR
MOV

MOV

PRINTC

DEC
BEQ
JSR
DEC
BNE

MOV

JSR

DEC
BNE
MOV
PRINTC
CR
ADD

CHP
BLO
LF
CHAIN

: TEST NUMBER
SNEXT TEST
SPCNT
WIDTH,
R
#117,R0

PC,SPC

R1
2%

#1,SPCNT
SPCNT ,R1

PC,SPC

5%
#130,R0
#2,SPCNT
SPCNT,WIDTH
i

;PRINT

TEST HEADER

sCLEAR SPACE COUNTER

;POSITION COUNTER TO R1
:''0"" TO RO

;PRINT THE ''0"’

;DECREMENT POSITION COUNTER
:BRANCH IF 0

;PRINT A SPACE

;DECREMENT POSITION COUNTER
:BRANCH IF NOT ZERO
:SEND CR
;SPACE, COUNTER SET T0 1
:NO. OF SPACES TO R1
:PRINT SPACE
sDECREMENT SPACE COUNTER
;BRANCH IF NOT ZERO
;X" INTO RO
sPRINT X"
:SEND CR
: INCREMENT SPACE COUNT BY 2
: COMPARE POSITION COUNTER WITH COLM. COUNT
;BRANCH IF LOWER
:SEND LF
;CHAIN TO NEXT TEST
;REPEAT TEST

CZLADDO LA36 DH11/DJ11 DIAG
CZLADD.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 09:23 N PA%E 65
PRINTER TESTS

SEQ 0065

SXXXXXXXXXX

:PT4 == MULTIPLE LINE FEED TEST -- 63 LINE FEEDS ARE

SENT WITH A REFERENCE LINE AT 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 1S PRINTED.

LINE

s XXXXXXXXXX

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

000004
007704
104012
012737
013701

012702
004737
013701

104010
005301
001375
006337
022737
001406
112200
104011
112200
104011
104014

000757
013701
004737
104010

PT4:

000001
001112
007666
007636
001132

001132
000100

001132

»:

2%:
3%:

001132

BEQ

001112
007636

4%:

000137

1%:

007662
007664

007666
007674
007702

030460
034060
030060

MOV
MOV
JSR
MOV
LF
DEC
BNE

MOvVB
PRINTC
MOVB
PRINTC

REF:

007656
007660

PRTHDR
MOV

ASL
CMP

007634

007636
007640
007642
007644
007646
007650
007654

LINES:

: TEST NUMBER
sNEXT TEST

P15

CR
BR
MoV
JSR
LF
CHAIN

MOovB
PRINTC
MOvVB
PRINTC
18T
MOV
PRINTC
DEC
BNE
CR
RTS

LASCII

.EVEN

#1,LFCNT

R
WIDTH,
FLINE3,R2
PC,REF
LFCNT,RT

LFCNT
#BIT6,LFCNT
4%
(R2)+,R0

;PRINT TEST HEADER
sLINE FEED COUNT TO 1
;COLUMN COUNT TO R1
;ADDR OF NUMBER FIELD TO R2
;PRINT REFERENCE LINE
;LINE FEED COUNT TO RI
sSEND LF
;DECREMENT COUNTER
sBRANCH IF NOT YET 0
;DOUBLE LINE FEED COUNT
;TEST IF COUNT IS 32
;BRANCH IF =32, END
;NUMBER TO RO

;PRINT

2%
WIDTH,R1

:NUMBER T0 RO
sPRINT IT
;SEND CR
;DRIVE THE LINEFEEDS
:COLUMN COUNT TO R
;SEND END REFERENCE LINE
:SEND LF

sREPEAT

TEST

(R2)+,RO

:NUMBER TO RO
:PRINT IT
:NUMBER TO RO
:PRINT IT
:DECREASE COUNTER BY 2
:DASH (=) TO RO
PRINT 1T
:DECREMENT COLUMN COUNTER

(R2)+,RO

PC,REF

(R2)+,RO
=(R1)
#137,R0
R1
1%
PC

/01020408163200/

*BRANCH IF NO ZERO
:SEND CR
RETURN

—

(ZLADDO LA36 DH11/DJ11 DIAG
CZi.ADD P11
03-AUG-79 09:18

03-AUG-79

PRINTER TESTS

09:23

6
PAGE 66

SEQ 0066 |

TXXXXXXX XXX
007704
007706
207710
007712
007716
007720
007724
007726
007730
007732
007736
007740
007742
007750
007752
007756
007760
007762
007766
007772
007774
007776
010000
010002

000005
010110
104012

013701
005741
012700
104011
005301
001375
012700
104011
104011

P15:

001112

000062

003410

000407
012700
012701

000063
000100

104003

104011

005301
001375
104006
013701
012700

001112

001112
000134

el
ekl el
el

104014

010052

012700
104003

001750

004737

010052

013701
012700

001112
000061

104006

el
el el el
il
il
ol
ol ol

000204

104006
104001
000720

104011

005301
001407
005200
020027
101771
012700
000766
000207

P16
PRTHDR
MOV
187
MOV
PRINTC
DEC
BNE
Hov
PRINTC
PRINTC
CMP

BEQ

MOV
DELAY

3%:
4%:

5%:

6%:

005301
001372

004737

1$-

000060

023727
001404
012700

106011
104010

2907
2908
2909
2910
2911
2912
2913
2914
2915
2916
2917
2918
2919
2920
2921
2922
2923
292¢
2925
2926

30A(1052)

S XOOONNXNXXXX
:P15==SINGLE LINE FEED TEST =-TESTS THE LINE FEED
CAPABILITY FROM ALL COLUMNS.

—

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

MACY11

MOv
MOV
PRINTC

DEC
BNE
CRLF

MOV
MOV
PRINTC
LF
DEC

BNE
CR
JSR
CRLF

MOV

PTSAL:
1%:

DELAY
JSR
CRLF
CHAIN
BR

MOV
MOV
PRINTC

DEC

BEQ

000071
000060

2%:

INC
CMP
BLOS
MOV
BR
RTS

WIDTH,
R
=(R1)

#60,R0

sTEST NUMBER
sNEXT TEST
sPRINT TEST HEADER
;COLUMN COUNT TO R1
;DECREASE BY 2
:'0"

TO RO

;SEND 0

;DECREMENT COLUMN COUNTER
;BRANCH 1F NOT ZERO

WIDTH,#132,
3%
#3410,R0

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

#62 ,R0

#63,R0
#100,R1
R1
4%

WIDTH,RI
#134,R0

6%
PC.PT5AL
#1750,R0
PC,PT5AL
1%

WIDTH,R1

#61,R0

;SEND A 2

;3'S T0 RO

;64 TO COUNTER
sSEND CHARACTER
;DECREMENT COUNT
;BRANCH IF NOT ZERO
:SEND A CR,LF
:NO. COLUMNS TO R1
:BACKSLASH TO RO
;SEND IT
sSEND LF
;DECREMENT COUNTER
sBRANCH IF NOT ZERO.
;SEND CR
:SEND REF LINE #1
;SEND A CR,LF

;DELAY 1 SEC

;SEND A SECOND REF. LINE
:SEND A CR,LF
sCHAIN TO NEXT TEST
sREPEAT TEST
;COLUMN COUNT TO R1
;"1 10 RO

;PRINT RO
;DECREMENT COUNTER
;BRANCH [F=0
: INCREMENT CHARACTER
;:COMP CHAR TO ''9"'

;BRANCH IF LOWER OR SAME

;RESET CHAR TO "'0"
; CONTINUE
sFINISHED, RETURN TO CALLER

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

MACYT1

2927
2928
2929
2930
2931

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

:
:

2936
2937
2938
2939
2940
2941
2942
2943
2944
2945
2946
2947
2948
2949
2950
2951
2952
2953
2954
2955
2956

SXOOONOCXXX

gggg

2967
2968
2969

2970
2971
2972
297%
2974

010110
010112
010114
010116
010122
010124
010130
010132
010134
010136
010142
010144
010146
010154
010156
010162
010164
010166
010172

010176
010200
010202
010204
010206
010212
010216
010220
010224
010226

010232
010234
010236
010240
010242
010244
010250
010252

000006
010272
104012
013701
005741
012700
104011
005301
001375
012700
104011
104011
023727
001404
012700
104003
000407
012700
012701

104011
005301
001375
104006
013701
012700
104011
012700
104011
012700

104011
005301
001365

104010
104014
004737
104006
012700

2975
2976
2977

010256
010260
010264

104003
004737
104006

2979

010270

000712

2978

6
PAGE &7
SEQ 0067

S XXX
X
:
;PTh==
BACKSPACE TEST =-- A REFERENCE LINE SUCH AS IN
:
TEST PTS IS PRINTED.
THE SECOND LINE CONSISTS
:
OF PRINTING A BACKSLASH, BACKSPACE AND FORWARD

2932
2933

2957
2958
2959
2960
2961
2962
2963
2964
2965
2966

09:23

010266

104001

PT6:
001112

1$:

000060

2%:

000062
001112

000204

003410

000063
000100

001112

000134

000010
000057

010052

001750
010052

3%:

48:
5%:

6%:

SLASH COMBINATION OUT TO THE GIVEN COLUMN WIDTH.
THIS LINE IS THEN FOLLOWED BY THE SAME TWO REFERENCE

LINES AS PRINTED IN TEST PT5.

3
P17
PRTHDR
MOV
181
MOV
PRINTC
DEC
BNE
MoV
PRINTC
PRINTC
CMP
BEQ
MOV
DELAY
BR
MoV
MOV

PRINTC
DEC
BNE
CRLF

MOV

MOV
PRINTC
MoV
PRINTC
MOV
PRINTC
DEC
BNE
LF
CR
JSR
CRLF
MOV
DELAY
JSR
CRLF
CHAIN

B8R

WIDTH,R1
-(R1)
#60,R0
R1
2%
#62,R0

WIDTH,#132.
3%
#3410,R0

5%
#63,R0
#100.R1
R1
4%
WIDTH,R1

#134,R0

#10,.R0
#57.,R0

R1
6%
PC.PTS5AL

#1750,R0
PC.PTSAL

;TEST NUMBER
sNEXT TEST
sPRINT TEST HEADER
;COLUMN COUNT TO R1
;DECREMENT BY 2
;0" T0 RO
;SEND 0
;DECREMENT COLUMN COUNTER
;BRANCH IF NOT ZERO
;"2
T0 RO
;SEND A 72"
;SEND A SECOND ''2"
;COMPARE COLUMN COUNT
;BRANCH IF EQ 132
;sDELAY 1.8 SEC

:3'S 10 RO
;64 TO COUNTER
;SEND CHAR
;DECREMENT COUNTER
;CONTINUE IF NOT DONE
;SEND A CR,LF
;COLUMN COUNT TO R1
:BACKSLASH T0 RO
;SEND IT
:BACKSPACE TO RO
;SEND IT
;FORWORD SLASH T0 RO

JSEND IT
;END OF PAPER
:BRANCH IF NO

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

;SEND SECOND REF LINE
;SEND A CR,LF
sCHAIN TO NEXT TEST

:REPEAT TEST

CZLADDO LA36 DH11/DJ11 DIAG

CILADD.P11

03-AUG-79 09:18

MACY11

30A(1052)

03-AUG-79

PRINTER TESTS

09:23

6
PAGE 63
SEQ 0068

533?

SXAXXXXXNXX

2982
2983
2984
2985
2986
2987
2988
2989
2990
2991
2992
2993
2994

;PT7-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 ''3'S'’ IS THEN
5
SENT 3 TIMES AS THE FIRST LINE.
THIS IS FOLLOWED
:
BY A THIRD AND FINAL LINE OF ALTERNATING ‘&'
:
AND SPACES.
:
SXONONXXXXXX

2995

2996
2997
2998
2999
3000

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

3025
3026
3027
3028
3029
3030
3031
3032
3033
3034
3035

010272
010274

010276
010300
010304
010310
010314
010316
010320
010322
010326
010330
010332
010336
010340
010342
010344
010346
010350
010352
010354
010356
010362
010366

010370
010372
010376
010400
010402
010404
010410
010412
010414
010416

010420
010422
010424
010426
010430
010434
010440

010442
010444
010446
010452

000007
010504

104012
012703
013701
012700
104011
005301
001404
004737
005301
001367
022703
001003
104014
005303
000757
005703
001373
104006
005723
013701
004737
005301

001405
012700
104011
005301
001367
022703
001003
104014
005303
000757

005703
001373
104006
005723
013701
012700
104011

005301
001404
004737
005301

P17:

000002
001112
000115

1%:
2%:
3%:

006746

000002

4%:
5%:
6%:

001112
006746

7%:
8%:

000100

000002

9%:
108:

11$%:

001112
000046

006746

12%:
13%:

7
PT10
PRTHDR
MOV

MOV

MOV
PRINTC
DEC
BEQ
JSR

DEC
BNE
CMP
BNE
CR
DEC
B
181
BNE
CRLF
1s1
MOV
JSR
DEC
BEQ
MOV
PRINTC
DEC
BNE
CMP
BNE
CR
DEC
BR

187
BNE
CRLF
187
MOV
MOV
PRINTC
DEC
BEQ
JSR
DEC

sTEST NUMBER
JNEXT TEST

#2,R3
WIDTH,R1
#115,R0
R1
4%
PC,SPC
R1
3%
#2,R3
6%

R3
2%
R3
5%
(R3)+
WIDTH,R1
$L.5PC
R

9%
#100,R0
R1
8%

#2,R3
11$%
R3
7%
R3
10%
(R3)+
WIDTH,R1
#46,R0
R1
14%
PC,SPC
R1

;PRINT TEST HEADER
;2 COUNT TO R3
sNO. OF COLUMNS TO R1
;PRINT M

sEND OF LINE
;BRANCH IF YES
:SEND SPACE

;END OF LINE?
;BRANCH IF NO
;TEST R3
sBRANCH IF NOT FIRST TIME
;SEND CR
;DECREASE LINE COUNTER
;REPEAT LINE
;THIRD TIME?
;BRANCH IF NOT
sNEXT LINE
sREPEAT COUNTER TO R3
;COLUMN COUNT TO R1
:SEND SPACE
;DECREASE COLUMN COUNT
;BRANCH IF 0, END OF LINE
;'8 T0 RO
sSEND IT
;DECREASE COLUMN COUNT
;BRANCH IF NOT O (NOT END)
SEND OF LINE, FIRST TIME?
;sBRANCH IF NOT
;SEND CR
sDECREASE LINE COUNTER
sREPEAT LINE

:TEST IF THIRD REPEAT
sBRANCH IF NOT
;DO NEXT LINE
;LINE REPEAT COUNTER TO R3
:FOkUHN COUNT T0 R
:''8' 10 RO
sPRINT IT

sDECREASE COLUMN COUNT
;BRANCH IF END
:SEND SPACE
;DECREASE COLUMN COUNT

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

3036
3037
3038
3039
30640
30641
30642
30643
3044
3045
3046

010456
010456
010462
010464
010466
010470
010472
010474
010476
010500
010502

001367
022703
001003
104014
005303
000757
005703
001373
104006
104001
000676

000002

MACY11

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

14%:
15%:

16%:

BNE
CMP
BNE
(R
DEC
BR
181
BNE
CRLF
CHAIN
BR

13%
#2,R3
16%
R3
12%
R3
15%
1%

09:23

6
PAGE 69
SEQ 0069

;BRANCH IF NOT END
;TEST IF FIRST TIME
;BRANCH IF =2, FIRST TIME
:CARRIAGE RETURN
;DECREASE REPEAT COUNTER
;PRINT LINE AGAIN
;TEST IF END, R3=0
;BRANCH IF NOT END
;SEND CR,LF
;CHAIN TO NEXT TEST
;REPEAT TEST

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

09:23

6
PAGE

SE@ 0070 |

:PT10-= PRINTING FREQUENCY TEST== 120 H'S ARE PRINTED ON & LINES
2
30 PER LINE. THE TEST IS SUCH THAT BETWEEN THE FIRST AND SECOND
:
"H'' 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 TO THE

NEW DELAY = OLD DELAY [+ OR =]

120TH CHARACTER. THIS DELAY 1S CALCULATED AS FOLLOWS;

(OLD DELAY/16 + OLD DELAY/128 )

AT ALV AV

PT10:

000036
000170
000036
000110

j=l=lelelolelolaleloloYeY
el

SXXXAXXXXXX

536

000036

544
546
550

1%:

010540

PT11
PRTHDR
MOV

2%:
3%:

MOV

#30.,R0

PRINTC

DELAY
DEC
BEQ
DEC

BEQ

Mov
ASR

ASR
ASR
ASR

MOV

ASR
ASR
ASR

000074

010540

3090

000036

6%:
7%:

000724

sSET CHAR COUNT = 120
sSET UP DELAY VALUE
;''W" T0 RO
JSEND

R1
6%
R2
7%
3%+2 R4
R4

sDELAY
sDEC. COUNT OF CHARS PER LINE
;BRANCH IF 0, END OF LINE
sDECREMENT CHAR COUNTER
:BRANCH IF END
:GET OLD DELAY
;CAL 1/16 OF OLD DELAY

R4 RS

;SAVE 1/16 IN RS

R4
R4
R4

R&
R4
R4

;CAL 1/128 OF

OLD DELAY

R4 RS

:1/16 +1/128 10 RS

BLE

;BRANCH IF LT OR EQ 60

SuB

5%:

sNEXT TEST
sPRINT TEST HEADER
;SET R1=30

ADD

CmpP

010540

3089

#36,R1

#120.,R2
#30.,3%+2
#110,R0

010540

3085
3086
3087
3088

sTEST NUMBER

MOV
MOV
MOV

4%:

3081
3082
3083
3084

3091
3092
3093
3094
3095

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

SXXXXXXXXXX

edeieleleleoleTe] elelelelelele]

3047
3048
3049
3050
3051
3052
3053
3054
3055
3056
3057
3058
3059
3060
3061
3062
3063
3064
3065
3066
3067
3068
3069
3070
3071
3072
3073
3074
3075
3076
3077
3078
3079
3080

MACYT1

BR
ADD
BR
CRLF
MOV

B8R

CRLF
CHAIN
BR

#60. ,R2

RS,3%+2

2%
RS,38+2
2%

sTEST WHICH HALF OF THE 120 CHARS.
;6T 51, DECREASE DELAY BY 34 MEC.

#36,R1

;G0 PRINT AGAIN
;LT HALF WAY, ADD DELAY OF
;G0 PRINT AGAIN
;SEND CRLF
sSET R1=30

;SEND CR,LF
sCHAIN TO NEXT TEST
sREPEAT TEST

34 MEC.

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

MACYT]

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

09:23

6
PAGE 71

SEQ 0071

ggg$

SO0

3098
3099

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

3102
3103
3104
3105
3106
3107
3108
3109
3110
3111
3112
3113
g}}g

SOOOXNNXNXX

2}8?

010642
010644
010646
010650
010654
010660
010662
010664
010666
010670
010672

000011
010674
104012
012701
012700
104011
104006
005301
001372
104001
000766

PT11:

000030
000130

3116

1$:
2%:

CHECK THE RIBBON REED MECHANISM FOR PROPER OPERATION.

11
PT12
PRTHDR
MOV
MOV
PRINTC
CRLF
DEC
BNE
CHAIN
BR

#30,R1
#130,R0
R1
2%
1%

;TEST NUMBER
sNEXT TEST
:PRINT TEST HEADER
:SET R1=2¢4
sSET CHAR = X
sPRINT X
;SEND CR-LF
;DEC COUNT
;BRANCH IF NOT DONE TEST
;CHAIN TO NEXT TEST
;REPEAT TEST

g}}g

SXXXXXNXXXX

3119
3120

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

g}gz

SXXXXNXXXXX

3}55

3125
3126
3127
3128
3129
3130

010674
010676
010700
010702
010706
010712

3131
3132
3133

000012
006560
104012
012701
012700
104011

PT12:
000010
000007

3134
g;gg

010714
010716
010720

010722
010726

005301
001373
104010

012700
104003

003720

3137
3138
3139

010730
010734
010736

013700
001405
000005

000042

3140
3141
3142
3143
3144
3145

010740
010742
010744
010746
010750
010752

004710
000240
000240
000240
104001
000753

PT12A:
1%:

EIGHT BELL SIGNALS TO THE PRINTER

12
P10
PRTHDR
MOV
MOV
PRINTC

#10,R1
#7.R0

DEC
BNE
LF
MOV
DELAY

R1
1%

MOV
BEQ
RESET

ars? RO
HERE

LOGICAL:JSR
NOP
NOP
NOP
HERE:
CHAIN
5k

#3720,R0

;sTHIS TEST
:NEXT TEST
;PRINT TEST HEADER
sCOUNTER TO R1
sBELL TO RO
;SEND 1T

;DECREMENT COUNT
;BRANCH IF NOT ZERO
sSEND LF

sDELAY 2 SEC BEFORE RESTARTING

sCHECK IF UNDER ACT11 OR XXDP
;CONTINUE TEST SEQUENCE

PC, (RO)

PT12A

;CHAIN TO NEXT TEST
;REPEAT TEST

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

MACY11

3146
3147
3148
3149
3150
3151
3152

PAGE

72
SEG 0077

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

3}22

3183
3184
3185
3186

09:23

SHXAXXXAAXX
:
sPT17-=L1FE TEST
3
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.

g}gz

3157
3158
3159
3160
3161
3162
3163
3164
3165
3166
3167
3168
3169
3170
3171
3172
3175
3176
3175
3176
3177
3178
3179
3180
3181
3182

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

SXXXXXXNXXNX

010754
010756
010760
010764
010766
010770
010774
010776
011004
011010
011014
011016
011020
011022
011026
011030
011034
011040
011042
011044
011046
011050
011052
011054
011056
011062

011070
011072
011076
011102

000017
010754
000137
000017
0107564
005037
104012
012737
013701
013700
104011
005301
001373
104006
012702
013701
013700
104011
005301
001373
104014
005302
001366
104010
005237
022737

001345
005237
012700
013701

3187
3188
3189
3190
3191
g}gg

011106
011112
011114
011116
011120
011122

012702
104015

3194

011124

000000

104002
017536
104001
000725

PT17B:
010776

PT17:

011124

000041
001112
001114

001114

000005
001112
001114

001114
000177

011124
017555
011124

000004

PT17D:
1%:
2%:

3s:
4%:

001114

17
PT178
JMP
17
PT178
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,R1
REPT,RO

R1
2%
#5,R2
WIDTH,R1
REPT,RO
R1
4%
R2
3%
REPT
#177 ,REPT
1%
PASCNT
#PASMES RO
PASCNT ,R1
¥4 ,R2

PT17D

;TEST NUMBER
SNEXT TEST
s CONTINUE
;s TEST NUMBER
sNEXT TEST
;CLEAR PASS COUNT
sPRINT TEST HEADER
;SET START CHAR
;SET COLUMN COUNT
;GET CHAR
;SEND CHAR
;DECREMENT COUNT
sBRANCH IF NOT DONE
;SEND CR-LF
;SET OVERPRINT COUNT
;SET COLUMN COUNT
;GET CHAR
;SEND CHAR
;DECREMENT COUNT
;BRANCH IF NOT DONE
;SEND CR
sDONE OVERPRINTS?
;NO, CONTINUE
sSEND LF
sSET NEXT CHAR
;DONE CHAR SET?

sNO, CONTINUE
: INCREMENT PASS COUNT
;SET MESSAGE ADDRESS
:# T0 CONVERT

:# DIGITS
;CONVERT PASS COUNT TO ASCII
;TYPE PASS COUNT

;REPEAT TEST

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

MACY11

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

3195
3196
3197
3198
3199

.SBTTL

09:23

6
PAGE 73

ECHO TESTS

3200
3201
g%g%

'XXXXXXXXXX

3204
3205
3206
3207
3208
3209

:E020-:
H
:
:
H

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

£E020:

20
E021
PRTHDR
READ
MOV
DELAY
MOV
CMP
BEQ
ECHO
BR
TYPEM
ECOEND
CHAIN
BR

g%l?

3212
3213
3214
3215
3216
3217
3218
3219
3220
3221
3222
3223
3224
3225

3226

SXXXAXAXANXX
011126
011130
011132
011134
011136
011142
011144
011150
011154
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%:

#30..R0

TEMPCH,RO
#177,R0
2%
1%

;TEST NUMBER
sNEXT TEST
sPRINT TEST HEADER
;GO WAIT FOR KEYBOARD INPUT
;DELAY FOR HALF DUPLEX

;GET CHAR
;CHECK IF RUBOUT
;BRANCH IF YES
:NO, CHECK PRINTER READY
;PRINT TERMINATION MESSAGE
;CHAIN TO NEXT TEST
;REPEAT TEST

SEQ 0073

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

MACY11

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

09:23

PAGE 74
SEQ 0074

;ggg

200NN

3229
3230
3231
3232
3233
3234
3235
3236
3237

;E021-= 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 KEYBOARD OR TERMINATION BY THE
3
RUBOUT.
:
SO0
X

3238
3239
3240
3241
3242
3243

011172

011174
011176
011200
011206
011214
011220

000021

011244
104012
012737
013737
013700
104011

3244
3245
3246
;gzg

011222
011226
011230
011232

000765

3249
3250
3251
3252

011234
011236
011240
011242

104002
020017
104001
000756

005337
001372
104006

E021:

000060
001112
001114

001114
001122

EO21A:
2%:
1%:

001122

E022
PRTHDR
MOV
MOV
MOV
PRINTC

DEC
BNE
CRLF

E021B:

TYPEM
ECOEND
CHAIN
BR

sTEST NUMBER

#60,REPT
WIDTH,POSI
REPT,RO
POSI
1%
2%

sNEXT TEST
sPRINT TEST HEADER
;CHARACTER TO BE REPEATED (0)
;SET CHAR COUNT
;CHAR TO TEMPCH
;PRINT CHAR
;DECREMENT POSITION COUNTER
s CONTINUE
sSEND A CR AND LF

;PRINT TERMINATION MESG

E021A

;CHAIN TO NEXT TEST
;REPEAT TEST

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

MACYT1

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

09:23

6
PAGE

75
SEQ 0075

;g;‘?

’llllllllll

3255
3256

:E022-- LINE ECHO TEST, SLOW RATE-- SAME AS E021 EXCEPT
:
THAT A DELAY 1S INTRODUCED BETWEEN CHARACTERS

3259
3260
3261
3262
3263

SO0

gs;g

3266
3265
3266
3267
3268
3269
3270
3271

011244
011246
011250
011252
011260
011266
011272
011274
011300
011302
011306

000022
011530
104012
012737
013737
013700
104011
012700
104003
005337
001367

£022:

000060
001112
001114

001114
001122

E022A:
3$:
18:

003410

001122

3272

011310
011312

000762

104006

2s:

3275
3276
3277
3278

011314
011316
011320
011322

104002
020017
104001
000753

E022B:

gg;z

TO PRODUCE AN LCV ACTION

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

POSI
1$

CRLF

TYPEM
ECOEND
CHAIN
BR

#60,REPT
wIDTH,PCSI
REPT,RO
#3410,R0

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

:DECREMENT POSITION COUNTER
:BRANCH IF NOT DONE LINE

:SEND A CR AND LF

;PRINT TERMINATION MESSAGE
ED22A

;CHAIN TO NEXT TEST
:REPEAT TEST

CZLADDO LA36 DH11/DJ11 DIAG

CIZLADD.P1N

03-AUG-79 09:18

3279

MACY11

30A(1052)

ECHO TESTS
:
=

3283%

JeeRERney

3297
3298
3299
3300
3301
3302
3303
3304
3305
3306
3307
3308
3309

3310
3311
3312
3313
3314
3315
3316
gg}g
3319

09:23

PAGE 76

SEQ 0076

jeesneeee

3280
g%g;
3284
3285
3286
3287
3288
3289
3290
3291
3292
32935
3294
3295
3296

O03-AUG-79

011326
011330
011336
011340
011344
011350
0113564
011360
011364
011370
011374
011400

011404
011410
011414
011420
011424
011430
011434
011440
011444
011450
011454
011460
011464
011470
011474
011500
011504
011510
011514
011520
011524

052516
047523
052123
052105
047505
047105
041501
042502
051502
052110
043114
052126

043106
051103
047523
044523
046104
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 EO023

L_ASCII1
.ASCI1
LASCII
LASCID
LASCI1
LASCI1
LASCII
LASCI1
ASCL11
LASCIL
ALY
LASCIL

LASCI1
LASCIT
LASCII
ASE1l
.ASCI1
LASCII
LASCIT
LASCII
LASCI1
LASCII
LASCI1
LASCI1
LASCI1

LASCI1
LASCII
.ASCI1
JASCEL
LASCI1
LASCII
LASCI1
LASCIL
EVEN

/NUL /
/SOH /
/STXx 7/
/B . 7
/EOT 7/
/ENQ /
/7ACK /
/BEL /
/88
/
/HT
7/
Y
/vY

/FF
/CR
/SO
181
/DLE
/DCY
/DC2
/DC3
/DC4
/NAK
/SYN
/ETB
/CAN
/EM
/SuB
/ESC
J%S
/GS
/RS
/U8
/SP

7/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
{
7/
/
7/
7/

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

MACY11

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

;)259

SXXXXAXAXX

3322
3323
3324
3325
3326

:E023==
H
:
:
:

3329
3330
3331
3332
3333
3336
3335
3336
3337
3338

SXONONONNXXXX

3339

3340
3341

3342
3343
3344
3345
3346
3347
3348
3349
3350
3351
3352
3355
3354
3355
3356
3357
3358
3359
3360
3361
3362
3363
3364
3365
3366
3367

011536
011540
011544
011546
011554
011556
011562
011566
011570
011572
011576
011602
011604
011606
011610
011616
011620
0116264
011630
011634
011640
011644
011650
011654
011660

011662
011666
011672
011676
011700
011702
011704
011706
011710

000023
012052
104012
104013
012700
104003
023727
103015

004737

013700
006300

006300
062700
004737
104000
020046
000753
023727
001421
012701
113721
112721
112721
112721
004737
012700
004737
000750
004737
012700
004737
104000
020046
104002
020017
104001
000712

E023:

1$:

000036
001124

000041

011712

001124

23
E024
PRTHDR
READ
MOV
DELAY
CMP
BHIS

MOV
ASL

011324
011770

2%:

000177

3%:

012042
001124
000040
000040
000040
011712
012042
011770

011712
012046
011770

6$:

6
PAGE

77
SEQ 0077

INDICATED AS EITHER EVEN OR ODD.

JSR

001124

CHARACTER 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

gg%g

011530
011532
011534

09:23

ASL
ADD
JSR
TYPE
E023M
BR
CMP
BEQ
MOV
MOvVB
MOV
MOVB
MOovB
JSR
MOV
JSR
BR
JSR
L
JSR
TYPE
E023M
TYPEM
ECOEND
CHAIN
BR

sTEST NUMBER
sNEXT TEST
;PRINT TEST HEADER

#30.,RO
TEMPCH, #41
3%
PC,STRLN
TEMPCH,RO
RO
RO
#MONIC,RO
PC,MOVNUM

‘

1%
TEMPCH, #1177
4%
MG24 ,R1
TEMPCH, (R1)+
#60,(R1)+
#40,(R1)+
#60,(R1)+
PC,STRLN
#MG24 RO
PC,MOVNUM
2%
PC,STRLN
#MG25,R0
PC,MOVNUM

;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
;MULT BY 4
:ADD ADDR OF MNEMONIC TABLE
:MOV _MNEMONIC TO MESSAGE
;TYPE CODE AND MANEMONIC
:ADDRESS OF MESSAGE
;G0 WAIT FOR NEXT CHARACTER
;TEST IF CHAR 1S A RUBOUT
:BRANCH IF RUBOUT

;STORE CODE INTO MESSAGE
:ADDR OF CHAR INTO RO
:MOVE CHAR INTO MESSAGE
:TYPE MESSAGE
sRUBOUT, CONVERT AND STOR CODE
;ADDR. OF DEL INTO RO
sMOVE DEL INTO MESSAGE
s TYPE MESSAGE
:ADDR OF MESSAGE
;CHAIN TO NEXT TEST
;REPEAT TEST

CZLADDO LA36

MACY11

CZLADD.P11

3396
3397
3398
3399
3400
3401
3402
3403
36404
3405

000003
020050
000003
001130
177770
000060

011746
011750
011754
011760

012034
012036
012040
012042

1%:

DEC
BEQ
ASR
ASR
ASR

2%:

02011
020115
000004

021

MOVNUM:

1%:

001126

L= ——_\N
oo
~
NONWWO
NN
o
OWNONOO

020054
000004

MOV
MOV
ADD
MOV
BIC

ADD
MOVB

001130
001130

011764
011766

011770
011774
012000
012002
012004
012006
012012
012014
012020
012022
012026
012032

STRLN:

001130

Ot
a O -, OOOD
= b s

3376
3377
3378
3379
3380
3381
3382
3383
3384
3385
3386
3387
3388
3389
3390
3391
3392
3393
3394
3395

011712
011716
011722
011726
011732
011736
011742
011744

O—=0000O0—=0O—=00

3368
3369
3370
3371
3372
33735
33764
3375

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

2%:
3%:

4%:

RTS
MOV

MOV
MOvB
DEC
BNE
T1S18
BNE
MOV
BR

MG24:

#3,R2

#LINES,RY

#3,R1

PCHAR, RO

#177770,R0
RO,=(R1)
R2

PCHAR
PCHAR
PCHAR
1%
PC

6
PAGE 78

SEQ 0078 |

:COUNT OF 3 T0 R2
;ADDR OF MESG TO RI

;POINT TO LAST

SPACE

:CONVERT AND STORE NEXT CHAR.

‘RETURN TO CALLER

#LINESA,RY
" ,R2
(RO)+,(R1)+
R2
1%

:ADDR OF LINES IN R1

;COUNT OF 3 TO R2
;MOV 3 CHARS TO MESG AREA

RTS

#00D,RO
¥ ,R2
(RO)+,(R1)+
R2
6%
PC

LASCI1I

:SAVE CHARACTER CODE

/DEL /

;MNEMONIC FOR RUBOUT

MOV
MOV

MOVB
DEC

PARITY

#EVEN,RO

LVEN

012046

020114

MG25:

IN MESG

;MOVE OCTAL CODE T0 RO
sSAVE LS OCTAL CHAR.
sMAKE ASCII
;MOVE INTO MESG
;DECREMENT CHAR COUNTER
;BRANCH IF 3 MOVED
:NOT THREE, SHIFT NEXT OCTAL
;CHARACTER TO THE RIGHT

sDECREMENT COUNTER
;BRANCH IF NOT ALL DONE
;TEST PARITY FLAG
:BRANCH IF ODD PARITY
:SET MESSAGE FOR EVEN PARITY
s CONTINUE
sSET MESSAGE FOR ODD PARITY
:SET WORD COUNT
;MOVE CHAR TO MESSAGE
sDEC CHAR COUNT
: CONT INUE
;RETURN

BNE

020040

09:23

.ASCII
LEVEN

CZLADDO LA36 DH11/DJ11 DIAG

CZILADD.P11

03-AUG=79 09:18

MACY1T

3407
3408
3409
3415
341
3412
3413
3414
3415
3416
3417
3418
3419

3425
3426
3427
3428
3429
3430
3431

012052
012054
012056

012060
012062
012066
012070
012074
012076
012104

012106
012114

3435
3436
3437
3438
3439

012122
012124
012130
012132
012134

012116

000024
012636
104012

005001
012702
104013
012700
104003
022737
001447

022737
001416

020127

103361
013700
110022
005201
104021

gaa?

012136

000753

3442
3443
3444
3445

012140
012144
012146
012150

005037
104006
104010
000743

09:23

PASE 79

SXOOXNONNXXX %X

3432
3433

3434

ECHO TESTS

03-AUG-79

SXXXKXXXXNX
:
;E024-- SELECTED PATTERN ECHO TEST-=- SELECT 1 1O 256
:
CHARACTERS.
EAZH WILL BE ECHOED
:
AND STORED UNTIL THE CNTL/C 1S SELECTED.
:
AT THAT TIME ALL CHARACTERS WILL BE PRINTED AS
:
A CONTINCUS STRING UNTIL EITHER THE RUBOUT IS
:
SELECTED TO TERMINATE OR THE CNTL/C IS SELECTED
:
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
:
STRING.
:

%25?

3422
3423
3424

30A(1052)

E024:
E024B:

012234

1$:

000036

000177

001124

000003

001124

CLR
MoV
READ
MOV
DELAY
CMP
BEQ

cMpP
BEQ

000400

cCMP

BHIS
MoV
MovB
INC
ECHO

001124

24
E025
PRTHDR

EO24R:

R1
#BUFR,R2

sTEST NUMBER
JNEXT TEST
;PRINT TEST HEADER

#30..,RO

;CLEAR ChRARACTER COUNT
;ADDRESS OF BUFFER TO R2
;WAIT FOR INPUT
sDELAY FOR HALF DUPLEX

#177 ,TEMPCH
TERM
¥3,TEMPCH
OUTPUT

;TEST IF RUBOUT
;BRANCH IF RUBOUT
sTEST IF .CNTL=C
;BRANCH IF CNTL=-C

R1,#256.

1%
TEMPCH,RO
RO, (R2)+
R1

;YES, CHECK IF CHAR CNT IS EQ, GT 256

;BRANCH IF YES, IGNORE CHAR
;GET CHAR
;STORE CHAR INTO BUFFER
: INCREMENT CHARACTER COUNT
;OUTPUT CHAR

;GO WAIT FOR NEXT CHAR

CLR
CRLF
LF
BR

TEMPCH

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

ED24B

SEQ 0079

CZLADDO LA36 DH11/DJ11 DIAG

CZLADD.P

03-AUG-79 09:18

3446

MACY11

30A(1052)

ECHO TESTS

03-AUG-79

09:23

7
PAGE B0
SEQ 0080

RIS

3447

3450
3451
36452
3453
36454
3455
3456
3457
36458
3459
3460
3461
3462
3463
3464
;222

;lt'ltt!t

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

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

3467
3468
3469
gz;?

012224
012226
012230
012232

104002
020017
104001
000712

TERM:

3472
3473

012234
012236

000003
000400

BUFR:

%223

sSECTION TO OUTPUT CONTINOUS STRING

012152

020227

012234

OUTPUT:

001124
001124

012234
001124
000003

000003

1%:

2%:

CMP

BEQ
MOVB
CLR
CRLF
MOV
CLR
CMPB
BEQ
MOVB
CMP
BEQ
PRINTC
BR

R2 ,#BUFR

1%
TEMPCH, (R2)+
TEMPCH

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

sCHECK IF POINTER IS AT START OF BUFFER

;YES, DON'T STORE “C IN TABLE
sSTORE “C IN TABLE
sCLEAR CONTROL=-C FROM BUFFER
sSEND A CR LF
;BUFFER ADDRESS T0 R2
sCLEAR CONTROL=-C
sFIRST CHAR IN TABLE *C ?
sYES, GO LOOK FOR MORE INPUT
;GET CHAR
;DONE STRING?
sYES, RESTART STRING
;OUTPUT CHAR

TYPEM
ECOEND
CHAIN
BR

E024B

sCHAIN TO NEXT TEST
;REPEAT TEST

3
.BLKB

256.

sINITIALIZE FIRST CHAR AS CNTL=C IN TALBE
;256 CHARACTER BUFFER

;OUTPUT TERMINATION MESSAGE

CZLADDO LA36 DH11/DJ11 DIAG

CZLADD.P11

03-AUG-79 09:18

MACY11

3474
3475
3476

3500
3501
3502
3503
3504
3505
3506
3507
3508
3509
3510
3511

ECHO TESTS

03-AUG-79

09:23

7
PAGE 21
SEQ 0081

'XXKXXXXXI!!
EOZS-- BELL ECHO TEST=-- A MESSAGE 1S PRINTED AND

3477

3478
3479
3480
3481
3482
3483
3484
3485
3486
3487
3488
3489
3490
3491
3492
3493
3494
3495
3496
3497
3498
3499

30A(1052)

THE TEST WAITS FOR SOME PRINTABLE CHARACTER

E025:

25
E020
PRTHDR

TO BE SELECTED ON THE KEYBOARD (GT040).
THIS
.
TEST IS VALID ONLY IF THE PAPER WIDTH lS GT 64
<
COLUMNS.
IF LT64 COLUMNS AN ILLEGAL BELL TEST
:
MESSAGE IS PRINTED.
:
SXXAXAXXXXXX

012636
012640
012642

012644

012652
012654
012656
012660
012662
012664
012666
012670
012674
012676
012702
012706
012710
012714
012716
012720
012722
012724
012726
012730
012732
012734

012736

000025
011126
104012

023727

103424
104002
017672
000402
104000
017672
104013
012700
104003
113700
020027
103767
022700
001405
104021
104007
000757
104002
017772
104002
020017
104001

000742

001112

000101

1%:

2$%:
000036

3%:

001124
000040

000177

4%:

5%:

CMP

BLO
TYPEM
E025MA
BR
TYPE
EO025MA
READ
MOV
DELAY
MOvB
cMP
BLO
CMP
BEQ
ECHO
SCRLF
BR
TYPEM
E025MB
TYPEM
ECOEND
CHAIN

WIDTH,#101

4%
3%

#30.,R0

TEMPCH,RO
RO, #40
3
#177,R0
5%

sTEST NUMBER
sNEXT TEST HEADER
sPRINT TEST HEADER
sTEST

IF COLUMN COUNTIS EQ,GT 64

;BRANCH IF NOT
sTYPE TEST MESG
;ON ALL TERM'S
sWAIT FOR CHAR
sTYPE TEST MESG ON TERM
;CHARACTER WAS RECEIVED ON
;WAIT FOR OPERATOR RESPONSE
sDELAY FOR HALF DUPLEX
;CHAR TO RO
sTEST IF PRINTABLE
;BRANCH 1F NON-PRINTABLE
;CHECK IF CHAR IS RUBOUT
:BRANCH IF YES
;PRINT CHAR
sSEND A CRLF
:REPEAT
;TYPE ERROR MESSAGE

;PRINT TERMINATION

JEXIT TO NEXT TEST

JREPEAT TEST

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

MACY11

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

.SBTTL

09:23

PAGE B2

SEQ 0082

OPTION TESTS

SXXXXXAAXXXXXAXX

STEST30 -

SECONDARY CHARACTER SET OPTION

LXK

002
3004
3010
3012
3016

000020
012740
104012
012704
104002
012702
004737
104002
013702
020227
001403
012700
104011
004737
104006
005304

001353
012700
104011

TEST30:

000010
013036
000177
013050
013043
013120
000377

2%:

CMP
BEQ

013050

3%:

000017

000741

3564

177537
001112

000003

000
000075

108:
208:

308 :

31%:

072

—t
et OO

#8. R4
108
#77,R2
PC,30%

20%
T30SC,R2
R2,#377
3%

MOV

#16,R0

JSR

PC,30%

PRINTC

CRLF
DEC
BNE
MOV
PRINTC
CHAIN
BR

#17,R0

.ASCIZ
.ASC1Z

<17>/#1=/
<17>/#2=/

MOV
BIC

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

.EVEN

MOV
SuB

MOV

PRINTC

INC
CMP
BEQ
DEC
BNE

TEST30

sPRINT TEST HEADER
;SET PASS COUNT
s INDICATE PRIMARY SET AND SEND ''S1''
;SET END CHAR
sPRINT CHAR SET
s INDICATE SECONDARY CHAR SET
;SET CHAR SET LIMIT

;USING 8 BITS INSTEAD OF S1?

sBRANCH IF YES
:SET SO CHAR
;SEND IT
;PRINT CHAR SET
sBLANK LINE
;DEC PASS COUNT
;FINISH TEST
;SET SI CHAR AGAIN
:MAKE SURE ON PRIMARY CHAR SET
sNEXT TEST SELECTION OR LOOP
:LOOP ON TEST

:GET LIMIT CHAR
sGET START CHAR
sGET COLUMN COUNT

;SUBTRACT 3
;GET CHAR
sPRINT 1T
sNEXT CHAR

104006

32%:

BR
CRLF
RTS

;DONE CHAR SET?
;EXIT IF DONE
;DEC COLUMN COUNT
;FINISH LINE
;SEND CR=LF WHEN DONE LINE
JRESET COLUMN COUNT
: CONTINUE
sSEND CR-LF
;RETURN

000177

T30SC:

.WORD

;CHAR SET LIMIT

076
00

gww\n\n\nwm\n\nmw

NN NN N NN N (N NN
NN
o
oo
VYUYV
YUY UYY UV UY
NPy
— CO®NO NI WN—O

TYPEM,

Mov

JSR

000016

036461
031043

PRTHDR
MOV

TYPEM,
MOV

104001

021417
017

30
TEST30

04006

000207

CRLF
MOV

001112

;CHANGE TO 377 WHEN USING 8 BIT CHAR SELECTION

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

mNNNNNNNN _...n;—._-—.—-_-_n_-_._a_-_o—a.‘
OO VWV
s n
ObObNObOObOONObgObN
Pl
A
Y
[=lele] NNO
oo~ oonvoo O

oo
orNo

ek
d
e
d

-y —

NN NN
N NN

e
g —-—
v NN
N N N N NN N

N ei

N N N
N

rnroroN

L U U U
U

N NN wroron

WM
— = e OO O~N~NO
sQOrO0O0NOOS oo

3618
3619
3620

262
264

3617

242
244

U L U

3613

3614
3615
3616

d—.—.d—.-‘d—‘-fl—.d-‘—.-‘—.—.—.—bd—.-‘—.—.—l—.-—fl—.—..‘

3596
3597
3598
3599
3600
3601
3602
3603
3604
3605
3606
3607
3608
3609
3610
3611
3612

09:23

7
PAGE 83

SEQ 0083

SELECTIVE ADDRESSING OPTION

;XXXXXXXXIXXXXXX

3595

STEST3 -

3577
3578
3579
3580
3581
3582
3583
3584
3585
3586
3587
3588
3589
3590
3591
3592
3593
3594

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

2 0000000000000

(=i=lelelelelelelolelelelolelelolololelelelolelelelelaloYe) j=lelelelololelelele) (=i=lelelalalolelolete)

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

MACYT]

000031
013122
104006
013700
104011
104002
012700
104011

TEST31:
013712
013542

000007

012700

000002

013700
104011
012700
104011

013712

104011
104012

104002

012703
005713
001416
013700
104011

000002
013542
013670

1%:

013712

011300
1064011

012700

104011
104002
012300
104011
104006

000760
012703

000002
013606

2%:
3%:

013716
013712

013542
000002

013614

MOV
PRINTC
TYPEM,
MOV
PRINTC
MOV
PRINTC
PRTHDR
MOV
PRINTC
MOV
PRINTC
TYPEM,
MOV
18T
BEQ
MOV
PRINTC
MOV
PRINTC
MOV
PRINTC
TYPEM,
MoV
PRINTC

CRLF
BR
MOV
187
BEQ
MOV
PRINTC
MOV
PRINTC
TYPEM,
MOV
PRINTC
TYPEM,

MOV

PRINTC
CRLF

013633

TYPEM,
READ
MOV

000036

000177

31
TEST31
CRLF

001124

DELAY
CMP
BNE

34%,R0
108

#7,R0
#2,R0

34%,R0
#2,R0

sSEND CRLF
;SET EOT CHAR
JSEND IT

;TRY PRINTING ERROR MESG

;SET BEL CHAR
sSEND IT
sSET STX CHAR
sSEND IT
sPRINT TEST HEADER ON ALL TERMINALS
;SET EOT CODE
sSEND 1T
:SET STX CODE
JSEND IT

108
#30%,R3
(R3)
2%

;sTRY PRINT

34%,R0

sSEND EOT CHAR

(R3),RO

sSEND GROUP SELECT CHAR
sSEND I7
;SEND STX CHAR

#2,R0

14%
(R3)+,R0
1%
#40$ ,R3

(R3)

34%,R0
(R3) RO

ERROR MESG

sSET TABLE POINTER
;CHECK TABLE POINTER
sNEXT PORTION OF

: TYPE MESG

:TYPE SELECT

TEST

I1F

DONE

CHAR FOR MESG

sCR=LF
;CONTINUE - NEXT SELECT CHAR
;SET TABLE ADR
sCHECK SELECT CHAR
;CONTINUE TEST
:SEND EOT CHAR
;ALL TERMS OFF
;GET UNIQUE SELECT CHAR
sSEND IT = THAT TERM ON

108

:TRY PRINTNG ERROR MESG

15%
(R3),RO

sTYPE SELECT CHAR MESG
;PRINT SELECT CHAR FOR MESG

20%
#30.,R0

sPRINT MESG
¢READ CHAR FROM SELECTED TERM
;DELAY FOR HALF DUPLEX

#177,TEMPCH
5%

;CHECK CHAR
JEXIT 1F RUBOUT

sSEND STX

CZLADDO LA36 DH11/DJ11 DIAG
CZLADD.P11
03-AUG-79 09:18
3621
3622
3623
36264
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
013454
013460
013462
013466
013470
013474
013476
013502
013504
(013506
013510
013512
013516
013520
013524
013526
013532
013534
013536

013700

104011
012700
104011

000137
013700

002540
001124

013700
104011
012700

104011
104002
012700
104011
011300

104011
12700

MOV
PRINTC
MOV
PRINTC
MOV
PRINTC

000007
000002

1046021
104006
013700
104011

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

013712

012700
104011

MACY11

5%:

013712

013714

013542
000003

000002
013614

TYPEM,
Mov
PRINTC
CRLF
MOV
PRINTC
MOV
PRINTC
MOV
PRINTC
TYPEM,
MOov
PRINTC
CRLF

000003

013714
000002

013614

000007
000002
013122

ECHO
CRLF
MOV
PRINTC
MOV

PRINTC
MOv
PRINTC
TYPEM,
MOV
PRINTC
MOv
PRINTC
MOv
PRINTC

000002

013712

JMP

MOV

4%:

MOV
PRINTC
MOV
PRINTC
MOV
PRINTC
CHAIN
JMP

09:23

348 ,R0

PAGE B4

SEQG 0084
SENABLE

ALL

TERMINALS

#7.R0
#2,R0
TIY1H
TEMPCH,RO

348 ,R0

;GO _TO KYBD CONTROL
;GET CHAR
;ECHO CHAR
:SEND CR=-LF
:SEND EOT CHAR

35%.R0

;SEND DUMMY SELECT CHAR

#2,R0

;SEND STX

108
#3,R0

;TRY PRINTING ERROR MESSAGE

(R3),RO

;SEND UNIQUE SELECT CHAR

#2,R0

; SEND STX

15%
(R3),RO

sPRINT

#3,R0

:SEND CR=-LF
;SEND ETX

#35% RO

;SEND DUMMY SELECT CHAR

#2,R0

sSEND STX

15%
(R3)+,R0

;PRINT MESG ON SELECTED TERM

3%
34%.R0
#7,R0

;SEND ETX

sPRINT SELECT MESG ON SELECTED TERMINAL
SELECT

CHAR

FOR MESG

sPRINT SELECT CHAR FOR MESG
;SEND CR=LF
s CONTINUE
sENABLE ALL LINES
;BEFORE EXITING TEST

#2,R0
TEST3

;CHAIN TO NEXT TEST OR LOOP ON TEST
;LOOP ON TEST

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

MACY11

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

09:23

7
PAGE 85

3667
3668
3669
3670
3671
3672
3673
36764
3675
3676
3677
3678
3679
3680
3681
ggg%

013542
013550
013556
013564
013572
013600
013606
013614
013622
013630
013633
013640
013646
013654
013662

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

3684
3685
3686
3687
3688
3689

013670
013672
013674
013676
013700
013702

308:

107
0
0
0
0
0
0
0
0

:GROUP SELECT CHAR TABLE
;FIRST ZERO = END OF TABLE

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

026122
052040
040516
047510
042502
000200
020120
052103
020122
020105
051120
046102
051101
000040

10%:

.ASCIZ

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

14$:
15%:

.ASCI1
.ASCIZ

/GROUP /
/SELECT CHAR = /

20%:

.ASCIZ

/TYPE ANY PRINTABLE CHAR ... /

.EVEN

ggg%

013710

000107
000000
000000
000000
000000
000000
000000
000000
000000

gggg

013712

000004

34%:

004

sDESELECT CHAR = "'EOT''

3696

013714

000045

35%:

045

;DUMMY SELECT CHARACTER,

3690
3691

3697

013704
013706

3698

;CHARACTER, REPLACE WITH ANY UNUSED SELECT

;?38
3701
3702
3703
3704
3705
3706
3707
3708
3709

;1F ""%'" 1S USED AS A UNIQUE OR GROUP SELECT

;CHARACTER CODE.
013716
013720
013722
013724
013726
013730
013732
013734
013736

000125
000000
000000
000000
000000
000000
000000
000000
000000

40%:

125
0
0
0
0
0
0
0
0

;UNIQUE SELECT CHAR TABLE
;FIRST ZERO = END OF TABLE

SEQ 00RS

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

MACY11

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

g;;?

200000000

g;}%

;TEST32 -

g;}g

S X0000NNNNEXX

3716
3717
3718
3719
3720
3721

013740
013742
013744
013746
013752
013754

3724
3725
3726

013770
013774
014000

3722
3723

013760
013764

000032
013740
104012
012700
104021
004737

104002
004737

104002
004737
104001

;;s;

014002

000756

3729
3730
3731
3732
3733
3734

014004
014010
014012
014020
014022
014026

012702
104013
023727
001002
000137
113722

3735
373
3737
3738
3739
3740
3741
3742
3743
3744
3745
3746
g;:g

014032
014036
014042
014044
014046
014050
014052
014054
014056
014060
014062
014066
014070

012703
013701
104022
000401
000761
005301
001373
005303
001367
105012
104000
104007
000207

3749
3750
3751
3752
3753
3754
3755
3756

014072
014100
014106
014114
014117
014124
014132
014140

042504
020123
044440
100131
104
051523
051124
000200

g;sg

014143

000025

§;§§
6

3761

014142

TEST32: 32
TEST32
PRTHDR
MOV
ECHO
JSR

000005
014004
014072
014004
014117
016004

TYPEM,
JSR

2%:

014143
001124

10%:
000177

002540
001124

8$%:

3%:

000062
001102

4%:
5%:

6%:

7%:

014142

051120
042510
020123
000
050105
041440
046117

TYPEM,
JSR
CHAIN

09:23

PAGE B6
SEQ OUB6

AUTO ANSWER BACK OPTION

#5,R0
PC,10%
20%
PC,10%
30%
PC,10%

TEST32

MOV
READ
cMpP
BNE
JMP
MOVB

#STORE ,R2
TEMPCH, #177
3%
TTYIH
TEMPCH, (R2)+
#50.,R3
TIMER,R1

MOV
MOV
INRDY
BR
BR
DEC
BNE
DEC
BNE
CLRB
TYPE,
SCRLF
RTS

6%
8%
R1
5%
R3
4%
(R2)
STORE-1
:
PC

;PRINT TEST HEADER
;SEND ENQ CHAR

;READ AND PRINT MESG
:TYPE INSTRUCTIONS
sREAD AND PRINT MESG
;TYPE INSTRUCTIONS
sREAD AND PRINT MESG
;CHAIN TO NEXT TEST
;LOOP ON TEST

;SET TABLE ADR
:READ FIRST CHAR
;CHAR = RUBOUT?
;CONTINUE IF NOT RUBOUT
;G0 TO KYBD CONTROL
:STORE CHAR

sSET DELAY COUNT

sANY INPUT?
:NO, WAIT FOR CHAR
sYES, READ CHAR
sDELAY WHILE WAITING FOR CHAR

;SET NULL AS TERMINATOR IN TABLE
;TYPE MESG ON TERMINAL RECEIVED ON
;SEND CR=LF
;RETURN TO TEST

051505
042522
042513

20%:

.ASCIZ

/DEPRESS HERE 1S KEY/<ACRLF>

042522
047117
042455

30%:

ASCIZ

/DEPRESS CONTROL=-E/<ACRLF>

LASCI1

<ACRLE>

.BLKB

21.

200

STORE:

EVEN

;20 CHAR + TERMINATOR BUFFER

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

MACYTT

3762
3763
3764
3765

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

09:23

PAGE 87

SEG 0087

5155133 -

FORM FEED OPTION

oo ~N PONIPNINININ
= b s s
R
NN
b
ONN~N~N
N~ o

roowgworwo

it o

il i

8Se
2t 2E 2 aF o

oV
oo

ol 2 oI S

244

LBk

264

270

000033
014170
104012
012705
012704
104002
012701
104013
012700
104003
022737
001002
000137
104014
104010
005301

001375
012700

104011
113701
005000
104011

005301
001374
104002

010537

NN
= -

=lelololeleleleteY) ei=lelololelaToTe
Tt

LOO0OOKNNOOCNNK

104013
012700
104003

TEST33:

014642
014626
014451
000020
000036

000177

104002
104002
000000
104002

022525
010537
104002

000000
104002
104002

9%:

014567
014360

5%:

000036

000014

005301
001374

13%:
8%:

014626

012700

104011
112401
005000
104011

001124

000014

000177

104014

MOV

002540

022737
001002
000137

002540

001124

15%:

014432

014376
014441
014424

DELAY
cmMp
BNE
JMP
CR
LF
DEC
BNE
MOV
PRINTC

MOVB

CLR

PRINTC

DEC
BNE
TYPEM,

MOV

READ
MOV

DELAY
cMP
BNE
JMP
CR
MOV

#508 RS
#60% R4
40%
#16..R1

#30..R0
#177 ,TEMPCH

13%

TTYIH
R1

#14,R0

608 ,R1
RO

R1
9%
45%
R5,2%
#30.,R0

#177,TEMPCH
15%
TIY1IH

PRINIC

11%:

014424

33
TEST33
PRTHDR
MOV
MOV
TYPEM,
Mov
READ

12%:

2%:

sPRINT

TEST HEADER

;SET TABLE POINTER
sSET TABLE POINTER
sPRINT INSTR
;SET LF COUNT TO 16
;WALIT FOR KYBD FLAG

sDELAY FOR HALF DUPLEX
sCHECK FOR RUBOUT

SEXIT IF RUBOUT
;GO TO KYBD CONTROL
:SEND CR
;SEND LF
;DEC COUNT
; CONTINUE
Sk 1F
sSEND IT
sSET FILL COUNT
:SET NULL
sSEND FILLS
:DEC FILL COUNT
s CONTINUE
sTYPE MESSAGE
;SET MESG
sWAIT FOR KYBD FLAG

sDELAY FOR HALF DUPLEX
sCHECK IF RUBOUT

JEXIT IF RUBOUT
260 TO KYBD CONTROL
;SEND CR
;SEND FF
sSEND IT

sGET FILL COUNT
sSET NULL
sSEND FILLS
s CONT INUE

MOVB
CLR
PRINTC
DEC
BNE
TYPENM,
TYPEM

sFINISH NULLS

sPRINT MESG

.WORD

TYPEM,

CMp

3%:

MOV

4%:

.WORD
TYPEM,
TYPEM,

TYPEM

(R5)+,(RS)+
R5,4%

0
308
10%

:INC TABLE POINTER
;SET MESG
;PRINT MESG

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

3866
3867

051523
043115
042522
053523
040600
042440
053523
051440
043516
124
050123
044127
040505
055
042523
044440
047506
042105
000055
002
021
040
070
014642

020040
027065
020040

020040
020040
027070

030440
030440

030440
020040
000000

7
PAGE 83
SEQ 0088

4 (RS)
5%

;DONE TEST?
:NO, CONTINUE

sYES, SEND CR-LF
sSELECT TEST OR LOOP

TEST33

;LOOP ON TEST

000055
020057

20%:

10%:

.ASCIZ
.ASCIZ

/' FEI<S5T>7 /

047040
000
050105
043040

054105

30%:

.ASCI1Z

/" NEXT /

042522

40%:

.ASCI 1

/DEPRESS FORMFEED RESET

.ASCI 1

/TYPE

ASCIZ

/==== SET

042505
042523
0521
052
041
052
052
e \ N et

042

020124

09:23

026455
043106

026455
020042
000

CO—=OO—
O
et ca ON =

181
BNE
CRLF
CHAIN
BR

000662

020040
027063

014716
014722

000004

104001

104

3847
3848
3849
3850
3851
3852
3853
3854
3855
3856

3857
3858
3859
3860
3861
3862
3863
3864
3865

005765
001333
104006

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

051117

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

020104
020124
044103
051105
020110
044103
044524

014424
014432
014440
014441

oo b
LIV TV TV
— OO OV
NN —
oS~ NSO
- oo~

3834
3835
3836
3837
3838
3839
3840
3841
3842
3843
3844
3845
3846

014410
014414
014416
014420
014422

P ek ok aF oF o Rt
aE aE aE

3818
3819
3820
3821
3822
3823
3824
3825
3826
3827
3828
3829
3830
3831
3832
3833

MACY11

050131
041501
047105
054504
026455
020124
041516
046522

020105
020105
051040
200
020055
031440
020110
042506
026455

005
024
043
104

010
032
062

026440

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

45%:

60%:

SPACE WHEN READY/<ACRLF>

3 INCH FORMFEED ====/

2:3.8.,17.,20..26,,5
,50..50.
2..35,
.68,

50%:

;END OF

TABLE

;

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

O03-AUG-79

OPTION TESTS

09:23

PAGE 89

SEQ 0089

TEST34 -

HORIZONTAL

TAB OPTION

DO
014724
014726
014730

000034
014724
104012

TEST34:

014732

34
TEST34

PRTHDR
AL E

005004

SRS

CHGD6:

sPRINT

RS RsRRRRlE

(LR

JERTARRRARRREARAERRNOSTY

014734
014742
014746
014752
014754
014760
014762

012737
013703
012700
104011
012700
104011
104014

015134
001112
000033

015132

2%:

MOV

#16%,12%+2

MOV
MOV

WIDTH,R3
#33,R0

MOV

#62.R0

PRINTC

000062

PRINTC
CR

IR ERERERRERTARETEY

014764

104023

FOUR
IR RREERRRREIARRENSE

016401
000405
012700

i e

lelelelelelelelolelele]

104011

o
i
i

3s:

000040

4%:

MOV
BR

sSET BACKSPACE

MOV

#'0,RO

;PRINT O

DEC
BNE
CR

R3
3%

sDEC COLUMN COUNT
;CONTINUE IF NOT DONE LINE
;SEND CR

PRINTC

6%:

#40,R0

R3
6%
R1
4%

TEERRNREEREATRRENROEY

104023

FOUR
M

— ot i it et &

-t OO0 NN

O onvoo
N

s
e
S
D
et
et
b
b
b

ALAAA S

013703
016401

001112
015224
000001

178:

016402
160103
002413
012700
104011
005000
104011

015250

11$%:

020127
001001
005201

000011
14%:

;FOUR FILL CHARACTERS===-

#10.R0

MOV
PRINTC
MOV

000117

;D0 A CARRIAGE RETURN

JSEND 1 = SET TAB

000061

104011
005303
001350
104014

sRESET JUMP INSTR OR FIRST TiME THRU
sSET COLUMN COUNT
;CLEAR OLD TABS

#61,R0

012700

DEC
BEQ
DEC
BNE

PRINTC

000010

:SET TABLE POINTER

#33,R0

MOV
PRINTC

MOV

5%:

208 (R4) ,R1
5%

TEST HEADER

;GET SPACE COUNT FOR TAB
;SUBTRACT 1 FOR TAB SET
:GET SPACE
sSEND IT
:DEC COLUMN COUNT
;CR IF DONE LINE
sDEC SPACE COUNT
;:CONTINUE IF NOT DONE
:SEND IT

000033

104011
012700
104011
012700

—

015224

005303
001420
005301
001371
012700
104011

VWA
AT
T YL

3887
3888
3889
3890
3891
3892
3893
3894
3895

30A(1052)

S XOOCKNNNOOCKNX

[=l=lelelelelelele
o]

3868
3869
3870
3871
3872
3873
3874
3875
3876
3877
3878
3879
3880
3881
3882
3883
3884
3885
3886

MACY11

dR ]

MOV
MOV
cMp
BNE
INC

WIDTH,R3
208(R4) ,R1
R1
M1
11%
R1

PRINTC
CLR
PRINTC

MOV
SuB
BLY
MOV

308 (R&) ,R2
R1,R3
12%
#11,R0

sFOUR FILL CHARACTERS====-

;RESET COLUMN COUNT
sRESET COLUMN COUNT FOR TAB

sADD 1 IF FIRST LINE

:SET FILL CHAR COUNT
sSUBTRACT TAB FROM COLUMN COUNT
:BRANCH IF TOD MANY COLUMNS
:SET TAB
SSEND 17
sSET NULL CHAR = FILLS
:SEND FILL CHARS

CHGD6

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

39264
3925
3926
3927
3928
3929
3930
3931
3932
3933
3934
3935
3936

015114
015116
015120
015124
015126
015130
015134
015142
015144
015146
015152
015154
015160

005302
001374
012700
104011
000761
000137
012737
104014
104023
012700
104011
013703
005303

3937
3938
3939
39640
3941
3942
3943
3946
3945
3946
3947
3948
gggg

015162
015164
015166
015170
015174
015176
015202
015204
015210
015212
015216
015220
015222

005724
016401
001403
020137
101657
012700
104011
012700
104011
104001
000640

3951

015224

000001

3952
3953
3954
3955
3956
3957
3958

015232
015240
015246
015250
015256
015264
015272

MACYT1

000130
015134
015164

015132

12%:
168:

000130
001112

000735
104006

000010
000100
000000
000001
000005
000044
000000

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

15%:
015224

001112
000033

138:

000062

000002

DEC
BNE
MOV
PRINTC
BR
JMP
MOV
CR
FOUR
MOV
PRINTC
MOV
DEC

BR
CRLF

1871
MoV
BEQ
CMP
BLOS
MOV
PRINTC
MOV
PRINTC
CHAIN
BR

09:23

R2
14%
#'X,RO
11%
aries
¥15%,128+2

¥ X,RO

PAGE 90
SEQ 0090

sDEC FILL COUNT
sCONTINUE FILLS
sSET X CHAR
sSEND 1T
s CONT INUE
:SKIP FOLLOWING AFTER FIRST TIME THRU

:SEND CR

sFOUR FILL CHARACTERS====

sPRINT X

WIDTH,R3
R3

;RESET COLUMNC COUNT
;SUBTRACT ONE FOR FIRST X CHAR

(R&)+
208$(R&) ,R1
13%
R1,WIDTH
2%
#33,R0

:INC TABLE POINTER
;GET COLUMN COUNT FOR TAB
;EXIT IF DONE TABLE (0)
;CHECK IF TOO LARGE
sCONTINUE TEST, OK
;CLEAR ALL TABS BEFORE EXITING

17%

s CONT INUE
:SEND CR-LF

#62,R0

TEST34

;SELECT TEST OR LOOP ON TEST
:LOOP ON TEST

000020
000200

000040
000204

000004

208:

.WORD

000002
000011
000107

000003
000022
000111

30%:

LORD - 1,2.3,5.9..18.,36.,71.,73..0

1,2,4,8.,16.,32.,64.,128.,132.,0

CHGD6

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

3995

3996
3997
3998
3999
4000
4001

4002
4003
4004
4005
4006
4007
4008
4009
4010
4«01
4012
4013
4014

OPTION TESTS

09:23

PAGE 91

SEQ 0091

VERTICAL TAB OPTION

DXXOOONONOOONNONX
000035
015274

104012
104002
015615
104013
012700
104003
022737
001505

005004
012700
104011
012700

104011
104002
015573

005204

TEST35:
1%:

000036
000177

35
TEST3S

PRTHDR
TYPEM

DELAY
cMp
BEQ
CLR
MOV

001124

000033
000064
2%:

000013

000033
000063

PRINTC
MOV
PRINTC

TYPEM
15%
INC
cMP
BGT

MOV

35%:

#30..R0

#177,TEMPCH
12%
R4

#33,R0

R4 ,#3
35%
R4 ,R1

R1
3%
#33,R0

aRr

PRINTC
TYPEM

#14,R0

000036
000177

4002

MOV
DELAY
cMP

001124

BEQ

4%:

000013
000013

CLR
TYPEM
108
INC
{mp
BGT

MOV
PRINTC
MOV

000020
5%:

SUB
BLE
CLR

;EXIT TEST IF RUBOUT
sSET LINE COUNT
;CLEAR VERTICAL TABS

LINE

;INC LINE COUNT
s CHECK IT
:BRANCH 1F DONE REF.
sGET LF COUNT
s SEND LF
;DEC LF COUNT
: CONTINUE
;SET TAB FOR THIS LINE

; CONTINUE
:SEND FF
: TYPE MESG

308

READ

;CHECK CHAR

;TYPE REF

#63,R0

MOV

;WAIT FOR KYBD FLAG
sDELAY FOR HALF DUPLEX

#64,RO

DEC
BNE
MOV
PRINTC
MOV

PRINTC

000014

sPRINT TEST HEADER
:TYPE INSTR

20%

READ
MOV

3%:
—_O0—=0O
O—=O—
SN
orN
NONOONYNONO
osrw
O—=0O0—=0OWN—=0O
—
SO WOWNN—=ON—O
—

3993
3994

03-AUG-79

STEST3S -

W=D SrosrwveerrNn

3970
3971
3972
3973
3974
3975
3976
3977
3978
3979
3980
3981
3982
3983
3984
3985
3986
3987
3988
3989
3990
3991
3992

30A(1052)

2200000000000

-O—=00000—~=000—=0—=0—=—=0
O=O=-=ONO—-=O0O0O0ONO
O =00 —

3959
3960
3961
3962
3963
3964
3965
3966
3967
3968
3969

MACYT1

#30.,R0

:WAIT FOR KYBD FLAG

;DELAY FOR HALF DUPLEX

#1177, TEMPCH
12%

:CHECK CHAR
;EXIT TEST IF RUBOUT
sRESET LF COUNT
:TYPE REF LINE

R4 ,#13
8s
#13,R0

s INC LINE COUNT
sCHECK IT
;BRANCH IF DONE
;SEND TAB

R4 ,R1
#16. ,R1
4%
RO

;SET FILL COUNT
;SUBTRACT 16
;SKIP NULLS IF COUNT < 0
;SET NULL CHAR

4021
6022
4023
40264
4025
4026
4027
4028
4029
4030
4031
4032
4033
4034
64035
4036

104011
005303
001374
000756
012700

015514
015520
015522
015526
015530
015532
015534
015536
015540
015544
015346
015552
015554
015560
015562
015564

012700
104011
012700
104011
104006
104010
104001
000656
012700
104011
012700
104011
012700
104011
104006
104010

015512

104011

48%;

015566

000137

4039
40640
4041
40642
4063
4044
4045
4046
4047
4048
4049
4050
4051
4052
40535
40564
4055
4056
4057
4058
4059

015572
015573
015600
015606
015614
015615
015622
015630
015636
015643
015650
015656
015664
015672
015700
015706
015707
015714
015722
015730

040
055
026455
036074
000
123
020064
043040
042506
106
051523
04746440
046522
052105
041524
000
001
047515
051040
051040
015736

000033

8s:

000064

000014

000033

128:

000064
000014

PAGE 92
SEQ 0092

R1
5%
4%
#33,R0
#64 ,R0

#14,R0

sSEND FF

TEST3S
#33,R0

sSEND CR-LF
sSEND BLANK LINE
;SELECT TEST OR LOOP ON TEST
;LOOP ON TEST
:CLEAR ALL TABS BEFORE EXITING TEST

#64,R0

JMP

TTIYIH

.60 KYBD CONTROL

10%:
15%:

LASCID
ASCIZ

<40>
/=mmeeemee <L

LASCII

/SET

.ASCIZ

/DEPRESS TOP OF FORM RESET SWITCH/<ACRLF><12><12>

LASCIZ

<1><1><1>/REMOVE /<57>/ RESET REF/

026455
036074
006474

052105
047111
051117
042105
050105
052040
020106
051040
051440
100110

030440
044103
020115
200
042522
050117
047506
051505
044527
005012

20%:

000401
042526
051505

042522
027440
052105

30%:

.EVEN

;SEND NULLS
sDEC COUNT
sFINISH NULLS
: CONTINUE
sCLEAR VERTICAL TABS

sSEND FF

026455
036055
036074

000

PRINTC

MOV
PRINTC
MOV
PRINTC
CRLF
LF
CHAIN
BR
MOV
PRINTC
MOV
PRINTC
MOV
PRINTC
CRLF
LF

#¥14 R0

002540

043105

PRINTC
DEC
BNE
BR
MOV

09:23

/<15>

14 INCH FORM FEED/<ACRLF>

e lnlalalalalalalalalalalalalalalalalars

6020

015476
015500
015502
015504
015506

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

)

4015
4016
4017
4018
4019

MACY1T

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

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

09:23

8
PAGE 93
SEQ 0093

;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

;70 BE DELETED AND THE PROCESS RESTARTED.

;XXXXXXX!XKX!XKIX!!XX!XKI
=leleleolelelelelelsle
R NNNNNNNN~N NN~
WHNNINON
— = = OO0~ NN~ A o VNS
B NN
oroovvoosrornNoOoO> ~No o o osrooroco

o>V WYY
YUY YUYW LY

SRR EREAREAARREOOANNAIRERY

000176
001124

001244
000007

163234

016222

001254

000060

001250

000067

001250

ooo

000007

001250

oo
(=1l

000015

rrorno

001124
177600
000025

TYPEM
CNTG
BR
$CNTLU: MOV
MOV
OVER:
TYPEM
SWR
MOV
JSR
POPSP
TYPEM
NEW
CLR
MOV
1%:
INRDY
BR
MOV
PRINTC
MOV

3s:

2%:

[=leleleleTe]
~ ~o
o OCONNNOWVS
o E o~ o sOSNNONOSO

001124

—

CMP
BNE
CMpP
BNE

MOV
MOV
MoV

001124

001252
000007

CHGD7:
$CKSWR:

($:

BIC
CMPB
BNE

CMPB

BNE
SCRLF
CMp
BNE
(MPB
BGT
CMPB

#SWREG,
SR

ouT
TEMPCH
#7
ouT
RO,=(SP)

R4 ,=-(SP)
TEMPCH,RO

OVER
RO,=(SP)

R4 ,-(SP;

aSR,=-(SP)
PC,TYPOC

;SOFTWARE SW REG PRES?
sNO, GET 0uTt
18 1T K76
sNO, GET OUuT

;SAVE RO

sSAVE R4
;SET UP TO PRINT “G

;s TYPE MESSAGE ROUTINE

;GET AROUND SAVE RO,R&

: SAVE RO
;SAVE R4
;ALLOW SWR= TO BE TYPED OUT
:MOV CONTENTS OF SWR
sOCTAL TYPE OUT ROUTINE
sCORRECT STACK POINTER

;ALLOW NEW= TO BE TYPED

TEMPST
#7,COUNT

1%
TEMPCH,RO
TEMPCH,TIB

#177600,118
#25,718
2%

OVER
#15,718
3

#7,COUNT
7$
#60,718B
5%

#67,118

;CLEAR TEMP STORAGE LOC

;SET UP TO ACCEPT 7 CHAR
;1S CHARACTER THERE?

;SET UP FOR PRINT ROUTINE
sPRINT ROUTINE
;STORE BUFFER
;STRIP OFF GARBAGE
218 1V A TM
sBRANCH IF NOT
;START OVER
;IS IT A <CR>
sBRANCH IF NOT
;WAS <CR> FIRST CHAR
;CHANGE SWREG IF NOT FIRST <(R>
215 IT LESS THAN 0
;G0 TO ? ROUTINE IF SO
;1S IT GREATER THAN 7

7D o3 € €3 €3 €3 £ 673 €73 £73 £ £73 5 oo oms oo o

;GETS CONTENTS OF SOFT. SWITCH REG, TYPES IT OUT, AND THEN

s oo = == =

CHECKS FOR “G TO ALLOW

*CHANGING OF LOC 176.
ROUTINE IS ENTERED AT CNTLU FOR START UP PURPOSES.
;WHEN A “G IS GIVEN, THE PROGRAM ENTERS AT CKSWR.
THE PROGRAM

TTMMMMMMMAMMMMMMMM
MMM MMM M
T

SCHECK SWITCH REGISTER ROUTINE.

4081
4082
4083
4084
4085
4086
4087
4088
4,089
4090
4091
4092
4093
4094
4095
4096
4097
4098
4099
4100
4101
6102
4103
4104
4105
4106

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

2 0000000000000

—

4060
4061
4062
6063
4064
4065
4066
4067
4068
4069
4070
4071
4072
4073
4074
4075
4076
4077
4078
4079
4080

MACYTT

001252

nNo

163032

7%:

ouT:

001256
001261

001262

TYPOC:
TYPON:

001261

=D OBV

000006
001260
001256
000012

»~ bbuuuNNm-—---g
w

oOrNNOSrOoorNNOoO
ST NVO

WWN NN NN NN NN NN

OCO®NO VNS W

B
IV IV T T
A
A A A
e

Lol o

R o

ok 2P 2l ol 2

NN —O

6%:
—

001252
001252
000060
001250
001254

000001
000006
000005
—.—.—‘—‘—.—‘—.—.-—D_.—._‘—h—d—.—-l-‘—l—b—.—c

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

5%:

166

002003
106002
020153
000716
006337
006337
006337
142737
153737
005337
001756
000714
013777
012604
012600
104006
000002

MACYT1

o0
0O

o oA
o SO

eP
—

140
142
144

o N NN —
N b e - ==
oo N~ nNO
S

tetetrdrd=lolololotoleYole
oo o)

134
136

oocooo> oocococoo ococococoo

PN NN N N

—=OV®NO
VS NN =00[«

S Ll ol ol ol ol O S
S
D et e o
el il ol D e ol e i

4116
6117

B
—

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

1%:

2%:

001260

3%:

177770

000060

001262

4%:

5%:
7%:

09:23

PAGE 94

SEQ 0094

BGE

;GO TO ? ROUTINE IF SO
;SET UP FOR ? TYPEOUT

CVER
TEMPST
TEMPST
TEMPST
#60,7IB
T1B,TEMPST
COUNT

sSTART INPUT STRING OVER
sMULTIPLY BY 10

T{PEM
QUEST

ASL
ASL
ASL

BICB
BISB
DEC
BEQ
B8R

MOV
MOV
MOV

CRLF
RT1

MOvVB
MOvVB
MOVB
MOV
MOV
MOV
MOV
MOvVB
NEG
ADD
MOvVB
MOovB
MOV
CLR
ROL

ROL
ROL
ROL
MOV
ROL
DECB

BPL
BIC
BNE
1871
BEG
INC
BIS

MOV
PRINTC
DECB

BGT
BLY
INC
BR

5%
1%

TEMPST ,aSR
(SP)+ R4
(SP)+,RO

fLFILL
#6,MODE+1
#5,CNT

sCLEAR OF ASCII
sMOV CHAR TO TEMPST

sONLY WANT & NUMBERS AND <CR>

;1F = 7 TOO MANY NUMBERS
sGET NEXT CHAR
;CHANGE SWR CONTENTS

;RESTORE REG 4
;RESTORE REG 0

sCARRIAGE RETURN
:RETURN TO PROGRAM

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

sSET THE ZERO FILL SWITCH
sSET FOR SIX DIGITS
sSET THE ITERATION COUNT
;SAVE REG 0
;SAVE R3

R5,=(SP)
MODE+1,R4

s SAVE RS
;GET THE NUMBER OF DIGITS 10O TYPE

R4 ,-(SP)

R4
#6,R4
R4 ,MODE
FILL, R4

;SAVE R4

sSUBTRACT IT FOR MAX. ALLOWED
sSAVE IT FOR USE
;GET THE ZERO FILL SWITCH
;PICKUP THE INPUT NUMBER
;:CLEAR THE OUTPUT WORD
;ROTATE MSB INTO ''C"'
;GO DO MSB

MODE

:TYPE THIS DIGIT?

12(%6) ,R5
R3
RS
RS
RS
RS
R5,R3
R3
7%
#177770,R3
4%
R4

5%
R4
#60,R3
R3,RO
CNT
2%
6%
R4

;FORM THIS DIGIT

;GET LSB OF THIS DIGIT

;BR IF 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 IF MORE 10 DO
:BR IF DONE
s INSURE LAST DIGIT ISN'T A BLANK
;G0 DO THE LAST DIGIT

6172
6173
6174
6175
4176
6177
4178
64179
4180
4181
6182

016370
016372
016374
016376

016400

012605
012604
012603
012600

000207

MACY11

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

6%:

MOV
MOV
MOV
MOV
RTS

09:23

(SP)+ RS
(SP)+ R4
(SP)+ ,R3
(SP)+ RO
PC

8
PAGE 95
SEa@ 0095
;RESTORE RS
sRESTORE R4

;RESTORE R3

sRESTORE RO
sRETURN FROM SUBROUTINE PC

COBIB
OB
sl
aiadsm

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

6183
4184
4185
4186
4187
4188
4189
4190
619N
6192
6193
4194

8
PAGE 96

VARIABLE PARAMETER TABLE
DH11

SEQ 0096

VARIABLE PARAMETER TABLE

:THIS TABLE 1S PROVIDED TO ALLOW THE DEGREE OF FREEDOM AVAILABLE

:IN THE DH11 PROGRAMMABLE MULTIPLEXER. THERE ARE 256 ENTRIES, ONE
;:FOR EACH OF THE POSSIBLE 16 LINES ON EACH OF THE POSSIBLE 16
;DH11°S.
EACH OF THE 256 LINES ARE INITIALIZED AS FOLLOWS:(=16707)
:

CHARACTER LENGTH

= 8 BITS

NO. OF STOP BITS
= 2
PARITY GEN. AND DET.
NONE
OPERATING MODE
FULL DUPLEX
TRANSMITTER SPEED
= 300 BAUD
RECEIVER SPEED
= 300 BAUD

:1F ANY LINE SHOULD DIFFER, THE APPROPRIATE ENTRY FOR THE LINE
:SHOULD BE CHANGED BEFORE RUNNING THE DIAGNOSTIC.
REFER TO THE LINE
;PARAMETER REGISTER IN THE DH11 PROGRAMMING MANUAL FOR INSTRUCTIONS.
.

JEREAEAREEY

e
e
o
i e el el el el el e
D el il et () el

NNNNNNNNNNYNY

NNNNNNYNNNNNN

016707
016707
0
0
0
0
0
0
0
0
0
0
0
=l=leleleleleleleloele]

D o

el ol el

016442
016444
0
0
0
0
0
0
0
0
0
0
0

016707
016707
016707
016707
000020

>
»
~

D el el oD el

016432
016434
016436
016440
0

DH1100:

016707
016707
016707
016707
016707
016707
016707
016707
016707
016707
016707

s ol ol o

e e

D e

D o

016404
016406
016410
016412
016414
016416
016420
016422
016424
016426
016430

000020

016707

il ol o

016402

occ>oooo0cr0rOrOrOrOrOrOrOOOCOCOOCOCOCOCOCOOO

016402

4238

09:23

:DH11 PROGRAMMABLE PARAMETER TABLE

=0V~

r,rrrrrrr
oo
wWiwmwmrnororon
~
~
Y

4235
4236
4257

DH11

03-AUG-79

;.'Q"""'

6195

4233

30A(1052)

.SBTTL

6196
4197
4198
4199
4200
4201
4202
4203

4204
4205
4206
4207
4208
6209
4210
4211
4212
6213
4214
4215
6216
4217
4218
6219
4220
4221
4222
4223
4224
6225

MACY11

DH1101:

LWORD
.WORD
LWORD
.WORD
.WORD
.WORD
.WORD

16707
16707
16707
16707
16707
16707
16707

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

16707
16707
16707
16707
16707
16707
16707
16707
16707

.WORD
.WORD
.WORD

16707
16707
16707

.WORD
.WORD
.WORD
.WORD
LWORD
.WORD
.WORD
.WORD
LWORD
LWORD

16707
16707
16707
16707
16707
16707
16707
16707
16707
16707

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

4250
4251
4252
4253
4254
4255
4256
4257
4258
4259
4260
4261
4262
4263
4264
4265
4266
4267
4268
4269
4270
4271
6272

016520
016522
016524
016526
016530
016532
016534
016536
016540
016542
016542
016544
016546
016550
016552
016554
016556
016560
016562
016564
016566
016570
016572

4274
4275

016576
016600

4273

4276
4277
4278
4279
4280
4281
«282
«283

4284
4285
4286
4287
4288
4289
4290
4291
4292
429%
4294

016574

016602
016602
016604
016606
016610
016612
016614
016616

016620
016622
016624
016626
016630
016632
016634
016636
016640
016642
016642

016707
016707
016707
000020
016707
016707
016707
016707

30A(1052)

03-AUG-79

09:23

DH1102:

.wORD
.WORD
.WORD

16707
16707
16707

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

16707
16707
16707
16707
16707
16707
16707
16707

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

707

.WORD
.WORD
DH1104:

.WORD

.WORD
.WORD
.WORD
.WORD
.WORD
-WORD
.WORD
.WORD

.WORD

DH1105:

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

.WORD

707
707
707

PAGE 97

DH11 VARIABLE PARAMETER TABLE

DH1103:

NONNNNNNNNNNNNNNNNONNNNNNN~N~ ~

016474
016476
016500
016502
016502
016504
016506
016510
016512
016514
016516

ONVNOOO0OO0OC0COO0O0O0O0O0O0O0O0OO0OONOO0OO0O =i=l=lole] o

4239
42640
42641
64242
4243
4244
6245
6246
4247
4248
4249

MACY11

SEQ 0097

002
07

.WORD

DH1110:
.WORD

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
SNNSNNSNSN

sNNSNSNNNN

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

COO0O0O0OO0

DH1107:

NSNSNSNSNSNSNSNSN -~

SNSNSNNNNNN~N -4~~~

COCOOO0OOO0O

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

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

e e D o o b e D D o D ad e

DH1106:

016656
016660

wuid and

N N N~~~ N~

16707
16707
NNNNNNNNNN NN~

[=lelelelelelelelel] (=1=1=]

NN N N N

ocrOrOrOrOrOCOCOCOCOCOO o

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

ocrocrCccOrOOCOCOCOOCOOCOCOOO

016707

el e

30A(1052)

— il

732
734
736
740

MACY11

ccoco0cor

016644

COO0CO0OO0OONOOO0OCOO0OO0OOOOCOO
NNNNNNONNNNNNNNNNNNN

—

ocococoocoo

016646
016650
016652
016654

cococoocoocoocooococococococococoo
NNNNNNONNNNNNNNNNNNNN

wwwwwwwsooooooz
o
o

c—‘—.—.dd—‘-fld—‘—‘-‘-.-._—.—.—J—.—.—.—.—.—-.—l—‘—.—.-.

[=lel=]

4295
§296
6297
4298
4299
4300
6301
4302
4303
(=lelelelelelelelelelolelelelelololololelelelelelelolalaleole) edei=l=lrlelelelalelolelele
=)

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

DH11 VARIABLE PARAMETER TABLE

03-AUG-79
09:23

707

H
PAGE 93

8
SEQ 0098

—

——

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

4351
4352
4353
4354
4355
4356
4357
4358
4359

4360
4361

4362
4363
4364
4365
4366
4367
4368
4369
4370
4371
4372
4373
4374
4375
4376
4377
4378
4379
4380
4381
4382
4383
4384
4385
4386
4387

4388
4389
4390
4391
4392
4393
4394
4395
4396
4397
4398
4399
w400
4401
4602
403
4606
4405
406

017016
017020
017022
017024
017026
017030
017032
017034
017036

017040
017042
0170642
017044
017046
017050
017052
017054
017056
017060
017062
017064
017066
017070
017072
017074
017076
017100
017102
017102
0171064
017106
017110
017112
017114
017116
017120
017122

017124
017126
017130
017132
017134
017136
017140
017142
017142
017144
017146
017150
017152
017154
017156

017160
017162
017164
017166

MACY11

016707
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
016707
016707
016707
016707
016707

016707
016707
016707
016707
016707
016707
016707
000020
016707
016707
016707
016707
016707
016707
016707
016707
016707
016707
016707

30A(1052)
03-AUG-79
09:23
PAGE 99
DH11 VARIABLE PARAMETER TABLE

.MORD
WORD
WORD
WORD
JWORD
-WORD
.WORD
WORD
WORD

DH1111:

DH1112:

DH1113:

16707
16707
16707
16707
16707
16707
16707
16707
16707

"WORD

16707

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

16707
16707
16707
16707
16707
16707
16707
16707
16707
16707
16707
16707
167C7
16707
16707
16707

.WMORD
.WORD
.WORD
.MORD
.WORD
.WORD
.MORD
.MORD
.WORD

16707
16707
16707
16707
16707
16707
16707
16707
16707

.MORD
.WORD
.WORD
.WORD
.WORD
.MORD
.WORD

16707
16707
16707
16707
16707
16707
16707

LMORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

16707
16707
16707
16707
16707
16707
16707

.WORD
.WORD
.WORD
.WORD

16707
16707
16707
16707

SEQ 0099

‘

;

CZLADDO LA36 DH11/DJ11 DIAG
CZLADD.P11
03-AUG-79 09:18
4407
4408
4409
4410
4611
4612
4613
4414
4415
4616
4417
4418
4419
4420
4421
4422
4423

4424
4425
4426
4427
4428
4429
46430
4431
4432
4433
4634
44635
4636
4437
4438
4439
4640
4441
4442
4643
L4bk4
46445
4446

4647
4448
4649
4650
4651

017170
017172
017174
017176
017200
017202
017202
0172064
017206
017210
017212
017214
017216
017220
017222
017224
017226

017230
017232
017234
017236
017240
017242
017242
017244
017246
017250
017252
017254
017256
017260
017262
017264
017266
017270
017272
017274
017276
017300
017302

016707
016707
016707
016707
016707
000020
016707
016707
016707
016707
016707
016707
016707
016707
016707
016707
016707
016707
016707
016707
016707
016707
000020

017302
017304
017306
017310
017312

016707
016707
016707
016707
016707

017326
017330
017332
01733
017336

016707
016707
016707
016707
016707
016707

4652
453
4456
4455
4456

017314
017316
017320
017322
0173264

W62

017340

657
4658
4459
4060
4461

016707
016707
016707
016707
016707
000020
016707
016707
016707
016707
016707
016707
016707
016707
016707
016707
016707

016707
016707
016707
016707
016707

MACY11

J
8
30A(1052)
03-AUG-79
09:23 PAGE 100
DH11 VARIABLE PARAMETER TABLE

DH1114:

DH1115:

DH1116:

.MORD
.WORD
.MORD
.MORD
.WORD

16707
16707
16707
16707
16707

.MORD
.WORD
.WORD
.WORD
.MORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.MORD
LWORD
.WORD

16707
16707
16707
16707
16707
16707
16707
16707
16707
16707
16707

16707
16707
16707
16707
16707

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
WORD
.WORD
LWORD
WORD
.WORD
.WORD
WORD
.WORD

16707
16707
16707
16707
16707
16707
16707
16707
16707
16707
16707
16707
1670
16707
16707
16707

LWORD
LWORD
.WORD
.WORD
.WORD

16707
16707
16707
16707
16707

LWORD
.WORD
LWORD
LWORD
.WORD

16707
16707
18707
16707
16707

.WORD

16707

LWORD
.WORD
.WORD
JWORD
.WORD

16707
16707
16707
16707
16707

SEQ 0100

Jpre—

03-AUG=79

09:23

8
PAGE

DH11 VARIABLE PARAMETER TABLE

07
07

~ NNNNNN

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

~ NNNNNNNN

DH1117:

o COO00O0O

30A(1052)

i
T
S S S
—

e
i
e s

i o
i o

017376
017400

000020
016707
016707
016707

—

4478
4479

017342

017342
017344
017346
017350
017352
017354
017356
017360
017362
017364
017366
017370
017372
017374

(=l=lelelelelolotloleleYe)

6663

L6646
4465
L6466
4467
4468
4469
4670
4671
4672
4473
4476
4475
4476
4477

MACYT1

soococococoococoococoocoo

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

707

101

SEa 0107

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

MACYT1

30A(1052)
O03-AUG-79
EXISTING LINE TABLE

4480

LSBTTL

4481
4482
4483
L6484
4485

09:23

PAGE

EXISTING LINE

102
SEQ 010¢

TABLE

RIS
:
JEXISTING LINE TABLE

zzg?
4488
4489
4490
4491
6492

:THIS 16 WORD TABLE, ONE ENTRY FOR EACH OF THE POSSIBLE 16 DH11'S
sOR DJ11'S INDICATES WHICH OF THE LINES HAVE A TERMINAL CONNECTED
;THIS TABLE SHOULD BE INITIALIZED BEFORE RUNNING THE DIAGNOSTIC.
BIT O
;1S LINE #0 WHILE BIT 15 IS LINE #15.
A 1 INDICATES THAT A TERMINAL 1S
sNOT CONNECTED WHILE A O INDICATES THAT THE TERMINAL DOES EXIST ON THE

z“:gz

;LINE.

4495
4496
4497

;EX.
IF THERE ARE TERMINALS ON LINE #0,#5,#10 AND#13
ONLY, ON THE
;FIRST DH11 AND NO OTHER DH11 EXIST, SET THE FIRST ENTRY IN THIS
sTABLE = 155736 AND ALL OTHER WORDS = 177777.
THE DIAGNOSTIC IS

:238

SINITIALIZED SO THAT NO TERMINALS EXIST.

4500

Ettttttt't'

4501
4502
4503
4504
4505
4506
4507
4508
4509
4510
4511
6512
64513
6514
4515
4516
4517
4518
4519

017402
017404
017406
0176410
017412
0174614
017416
017420
017622
0174264
017426
017430
017432
017434
017436
017440

177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777

ELTAB:

.WORD
.WORD
LWORD
LWORD
.WORD
MWORD
WORD
.WORD
LWORD
LWORD
LWORD
LWORD
L.WORD
WORD
LWORD
.WORD

177777
177277
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777

;FIRST DH11

060
000012
030060
023461
042504
052123
060
030461
042116

051505
007600
020124
030060

s P

=]=]
S
-

0545

— O
oo o~

o
"N ~N
»
NNN ~
~
wNo o — A SV

o000 =

v
»

051

047503
100123

020046
020050

200
052040
042524
052101
020040
020040

30A(1052)
03-AUG-79
DIAGNOSTIC MESSAGES

09:23

PAGE 103
SEQ 0103

.SBTTL

DIAGNOSTIC MESSAGES

.ASCII

<ACRLF><17>/CZLADDO/<ACRLF>

055103

040514

044515
044504
052123

033063

052040
040516
043501
04151

LASCII

/LA36 TERMINAL DIAGNOSTIC/<ACRLF>

030510
045104
052116
042503

020061
030461
051105
100123

.ASCIZ

/DH11

047105
050040
040
030060

020104
051501

ENDPAS:

.ASCI1

<ACRLF><12>/END OF

100060

PASMES:

.ASCIZ

/0000/<ACRLF><12>

0462040
020123
020122
005200
020060
051447
051105
100124
052012
000043
020060
047115

030510
047125
042524
000
045104
052440
052040
000012
051505

DH11S:

.ASCIZ

/00 DH11'S UNDER TEST/<ACRLF><12>

DJ11S:

.ASCIZ

/00 DJ11'S UNDER TEST/<ACRLF><12>

HDRMSG:

+ASCIZ

SACRLF><17><12>/TEST #/

047503

HDRO:

.ASCIZ

/000 COLUMNS/<ACRLF><12>

040440
044522
062514
040522
040
046040
020116
042502
027056
027056
000056
042440
020110
047115

EO25MA:

.ASCI1

/TYPE ANY PRINTABLE CHARACTER /

LASC1Z

FAND LISTEN FOR BELL.cccvvvrvensnan /

E025MB:

ASCIZ

<ACRLF>/NOT ENOUGH COLUMNS/<ACRLF>

ECOEND:

LASCIZ

SACRLF>/ECHO TEST

EQ23M:
LINES:

.ASCl1I
LASCII

100060

042520
050040
041101
040510
051105
042116
042524
020122
027056
027056
027056
052117
063525

052514

000
041505
051505
046522
042105
020040

100123

047510
020124
047111
000200

STARTM:

& DJ1T

043117
020123

MACY11

007600
042104
040514
051105
020114
047516
200
104
020046
064440
040506
000012
005200

yoo=SSsss
-t
NO OO

SHrovnosoroonvnioon

COVWVB
NN
OO N~

e
b

e e A

=leleleololelaT-Ta) [eleTeYeYe)

NNNNNNNNNNN~N
o
~

4559
4560
4561
4562
6563
4564
4565
4566
4567
4568
4569
4570
6571
4572
4573
6574
4575

7672

NNNNNNNN

4538
4539
4540
45641
4542
4543
4544
4545
6546
6547
4548
4549
4550
4551
4552
4553
4554
4555
4556
4557
4558

7442
7650
7454

—‘“dddd‘—.fl-‘—l—.—.—.-‘fl-‘—.—.fl—.—.-‘—D-‘d—l

4520
6521
6522
6523
6524
6525
6526
4527
6528
6529
6530
4531
4532
6533
4534
4535
4536
4537

o o 04

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

INTERFACES/<ACRLF><12>

PASS

TERMINATED/<ACRLF>

sMESG FOR TEST EO023

CZLADDO LA36 DH11/DJ11 DIAG
CZLADD
03-AUG-79 09:18
6576
6577
4578
6579
4580
4581
4582
4583
4584
6585
4586
4587
4588
4589
4590
4591
4592
4593
4594
4595
4596
4597
4598
4599
4600
4601

MACY11

30A(1052)
03-AUG=79
DIAGNOSTIC MESSAGES

09:23

PAGE

104

SEQ 0104

020054
020062
020066
020074
020102
020110

020040
020040
007600
041505
052123
000

020040
000200
051412
020124
021440

020040

LINESA:

.ASCIZ

046105
062524
020040

MESG3:

.ASCIZ

<ACRLF><17><12>/SELECT TEST #

020111
020115

105
117

042526
042104

04C

LASCI1

/EVEN/

116

EVEN:

O0DD:

.ASCI1

AL AS AR AL AR

/<ACRLF>

/00D /
RRRd)

: CHGDB

JERRERRARERRCREERORESY

020121
020126

020130
020136
020143
020150
020153
020160

040
000040
007600

051127
040
020075

040
000
020162

000001

057040

020107

(NTG:

.ASCIZ

020012
020075
047040
000
037440

051888

SWR:

ASCIZ

<ACRLF><17><12>/

053505

NEW:

LASCIZ

NEW= /

020040

QUEST:

LASCIZ

FVEN

.END

SWR= /

DELAY =

001236
001120

104003

3753

4569

3839

4044
4576

4048

4578

6524
4591

4526

6531

2819
3469

2978
3665

3045
3726

3094
3821

3113
3948

3144
4027

319

1871

1874+

1891+

1900+

1755+

1757+

1759

1769+

1788+

1798

1801

2849

2866

2907

2971

3005

3022

3039

3177

3781

2367
3044

2648

3599

3090
3614

2674
3093
3630

2741
3110
3647

2748
3170
3657

2900
3246
3820

2909
3272
3938

2913
3643

4025

2960
3456

4035

1745

1790

1805

2473

2505

2591

2893

2911

2953

1864+
1880

2046

2053+

2396

2533

1801

2056

2594

1581

1609
34724

3188

2749
3366

1907

3829

6565

4545
1707

22994

3757

4551
1793«

wno

(SR
CURTST

6549
1774+

1798

2099

1748

1996
16614
26164

2651
3251

N —

1862+
1860+

3457
2051
2050«
2679
3277

1569

3452

1613

2843

1803

2448
1760

s e

5410
3784
3734

NN
N
VO =000
NN OD W =N
NN
=

= 104006

3749

4541
1680

——af)
NOO
WOV
NN

CRLF

3667

4539
1619+

4077n

&~
=

004404

001254
COUNT
(R
= 104014

2262

SEQ 0105

16424

o~
w

CNVCTR

CROSS REFERENCE TABLE =-- USER SYMBCLS

20284
38784

s [\ et e [N e

CNTLSW 001104
CNTLU = 104025

23840
14954

002034
002062
006160
004572
001316
002034
003476
014732
015736
001502
104024
104017
001262
001154
020121

13594
3225
16434
1616
2484

—omo\guubl\)u

CHAINN
CHAINY
CHARAC
CHGD10
CHGD3
CHGD4
CHGDS
CHGD6
CHGD7
CHGD9
CKSWR =
CLEAN =
CNT
CNTOH
CNTG

14444

NN
—

BITTAB
001162
BITO
= 000001
BIT1
= 000002
BIT10 = 002000
BIT11 = 004000
B17112 = 010000
BI1T13 = 020000
BIT14 = 040000
BIT1S = 100000
BIT2
= 000004
B113
= 000010
BIT4
= 000020
B115
= 000040
BIT6
= 000100
BIT7
= 000200
B118
= 000400
B119
= 001000
BTOASC= 104015
BUFR
012234
BYCR
001146
CARA
001144
CHAIN = 104001

s L A PYTND =t ()

001222
004412
001150

ACTIV
ADTENP
BAR

13544
4536
14574
2280
14464
14514
13354
13364
134650
13464
13470
13484
13494
13504
13374
13384
13394
13404
13414
13420
13434
13440
1371#
3426
14454

= 000200

ACRLF

9
MACYT1 30A(1052) O03-AUG-79 09:23 sPAGE
106

wnro
w oo

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

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

DHADR
DHCNT
DH11S
DH1100

DH1101

DH1102
DH1103
DH1104
DH1105
DH1106
DH1107

DH1110
DH1111
DH1112
DH1113
DH1114
DH1115
DH1116
DH1117
DIGIT
DISPLA
DISPRE
DJCNT

DJ11S

001134
001230
017564
016402

016442

016502
016542
016602
016642
016702
016742

017002
017042
017102
017142
017202
017242
017302
017342
004406
001246
000174
001226

017613

DLY
ECHO

004174
= 104021

ECHODY
ECOEND
ELTAB
EMTINT
EMTTAB
ENDIT
ENDITD

003600
020017
017402
003346
003422
005432
005424

ENDITR
ENDPAS
END3

005416
017536
001432

E021
E021A
E021B

011172
011200
011234

E022A
E022B
E023
E023M

011252
011314
011530
020046

END4&
£E020

£E022

E024
E024B
E024R
E02S
E025MA
EO25MB
EVEN
FlLL

001500
011126

011244

012052
012060
012140

012636
017672
017772

0201N
001256

2975

164404
14604
1607
1870
42254
42420
42594
L2764
42934
43104
L3274
L3440
L3614
L3784
L3954
46124
44290

MACY11

3069

1530+
1532+
1612
2426

30A(1052)
03-AUG-79 09:23 PAGE 107
CROSS REFERENCE TABLE =-- USER SYMBOLS

3135

3217
2424

SEQ 0106

3269

3336

3429

3497

3618

1541

1606

1703

1833

2394

2627

2288+

2289

22964

1523«
L5454

1543

1578

1592

1890

2531

2555

1735

1747

1807

2159

2326

2328

3276
2554

45044

3365

3468

3509

45694

2532
2469

2537
25044

2609
2543

2547

2551

2546

2577

3249

2550
3331#
45738
34220
3460

2581

3275¢

1835
1535+
L5410
4208#

3777

3796

3972

4000

2398

2535

3221

3439

3503

2574

2578

2582

LoLoN

LL63H

2282+

14684
14114
14594
1579
1998
1375#

3629
2045

2507#
2464
2539

3486

3237#

3261

3485#
65540
6147

3470

001132
001156
007144
007666
020050
020054
010740
001142

2834
1781

27534
28694

3356
34044
4137«
3343
3357

NEW

45934
1754
1776
1615+
45844
1428
1449
1474

—> =

b et et

OO ~dN~ N
VWO N WO
NN NN
=

—oNoOCoOOWMSroOOoOND

—

jelelelelelelolelels)

NOOO
= —=O — — —
A o
B R o ST, 8
O NN =N s e O — N
NN =N
O VNG

NXTST
00D
OPEN
=

POSI
PRGTAB
PRINTC=

PRINTY
005474
PRTHDR= 104012

2838
1876+

2842+
1905+

2843
2049

2062

2085

2106

2046

2053

2055

1854

1923+

2080

1433
1460
1948

3378+

3379«

2366
2848
2957
3267
3598
3643
3883
3977

2643
2858
2963
3464
3605
3646
3885

2044
3133

[+
Ow

2970

1794

wnro

1647
2904

2391
3444

3782

3986

4081
34524
4090#
2125+
3184+
4539
2124+
22354
4094
1526
3241+
19344
2031

2739
2903
3109
3583
3632
3664
3923
4022
253
2636

4157+

1804#
1842+
1822+

1431
1458
1946

2135

3389

337

3377«

1679
3270+

1702

2344
2813
2948
3174
3593
3639
3802
3945

2362
2846
2949
3243
3595
3641
3805
3947

3979

4032

4034

4102

4166

2796

2833

2880

2940

2101
1436
1469
1966

2671
2860
2965
3532
3607
3649
3893
3990

2683
2863
2967
3538
3610
3651
3899
3992

2688
2884
2997
3551
3613
3653
3901
3995

4010

2993

3062

3106

3127

Dol
o o
N
~o~N

1858«
1518+
1881+
1792

NG
NRCRA

POPSP2=

2853

31404

MODE
MONIC
MOVNUM

PARITY
PASCNT
PASME
S
PCHAR
PFAIL
POPSP =

4099
1620

L5740
L5764

MESG3
MG24
MG25

ouT
OUTPUT
OVER

2818

3737
1576
2839

1489+

—
.
s

MACHER
MASK

104010

2536

Vo~
N
corow

LOGICA
LPR

001224

65514

i —

LINE2
LINE3
LINES
LINESA

010750
104022

3932

LFONT
L INENO

017642
017654

1773
3910

SEQ 0107 i

—

INRDY
105w
LF

1667

3888
L5499
2638
314420
2399
1487+
2368

O S~
(S ale NV
~N -~

HDRO
HERE

104016
104023

30A(1052)
03-AUG=79
09:23
PAGE 108
CROSS REFERENCE TABLE -- USER SYM30LS

S o
~NOo N

FORWD
FOUR
HDRMSG

MACYT1

il
b

CZLADDO LA36 DH11/DJ11 D! AG
CILACD.P11
03-AUG-79 09:18

2691
2883
3017
3575
3622
3656
3903

4026

CZLADDO LA36 DH11/DJ11 DIAG
CZLADD.PI
03-AUG=79 (09:18

MACYT1

3214

3239

3263

3333

1934

26344
26594
3060#
31044
31254

3126

3876

3967

3161
3192
27054
27944

28314

28784
29164
29384
2991#
1727
3998
28574
2503«

1663
2544
2252
1841
1897
1869+
3504
2430
2631
2688+
2595
2119
2116
1666

2972

2976

1730

1739

1742

3215

3334

3427

3495

3616

3730

3775

2588+

3164+

3166

3173

3181«

3182

3240+

32642

3264+

3266

1821+

2356
257

2363
2575

2410
2579

26414
2586

2418

2453

2457

2461

2468

2558
2437
2491+
2603+

2610+
2438+
2558+

2439+
2559«

2440+
2562

2441
2563

2443
2564

24757
2566+

2476
2567

2533

4078

4092

4128+

2548

2115
2118
2049+

3746
2498+
2434
2489
2597+
1761

4110

2553
2436+
2490+
2598
1787

2809
2807+
26824

3000
2808

3013
2815+

3034
2816

1500+
2052+

1546

1559

1613

1661

2099

2396

1746
2444

2446

1753

2048+
2451

2050
2466

2065+
2470

2260

1546
2059
2055+
1719
2407

35684
4078

2064+
1734

244 3e

3759#
3359

3770

~N~N

s B AP =

45240

3718

LAV 1)
Le

164894

3581

1496
1866+

3522

2803
2797+
2668
2738

3487

wire

19234
18544
1491

654

o4n

2157
2424+
2430«
2486+
2594+

!:-OONma

- DN
— 00~

14664
14474

1890#
1856+

001240
001124

2666
2687#

3970
2852
2470
22504
1570+
2540
2247H
18334

TCR
TEMPCH

14334

003214
002750
001100
006746
001116
006726
006740
001244
001152
001276
017442
001302
001266
014143
011712
020130
000176
001242

SETDJ
SETERM
SPBOT
SPC
SPCNT
SPSP
sP2
SR
SSR
START
STARTM
STARTX
START!
STORE
STRLN
SWR
SWREG
TBUF

—

004252
002674
003106
001136
104007
001232
001234

SAVR6
SCANDH
SCANDJ
SCR
SCRLF =
SCR1
SCR2

A DI
=
b e e d
NN =N —N
o~ i Lo AV I S o
VW
o ~NrOW» »
onr
O~NOCOC O oo~
~n
oo
P NN
=N = WO
hd
=wn
LR
£
%
% 3
=

004254
001106

Ny — —

RESTRT
RINNO

—

007636
001114

45954
1715

REF
REPT

3145

31604
3158
31644
2660
2706
2795
2832
2912
2879
2939

A Y. 1V, b

010702
010764
010754
010776
006756
007406
007526
007704
010052
010110
010272
020153
104013

OwWNSSOD ~

PT12A
P117
PI178B
PT17D
P12
P13
P14
P15
PTSAL
P16
P17
QUEST
READ
=

2635
2992
3061
3105

34624

SEQ 0108

nro

010642

010674

PT1

PT112

13294
1615
1935
1942
1943

177776
006560
006634
010504

WSS

[

PSW
P10
P11
PT10

30A(1052)
03-AUG-79
09:23
PAGE 109
CROSS REFERENCE TABLE -- USER SYM30LS

TEMPST
TENPWR

001252
004410

TERM
012224
TESTC = 104020

TEST30
TEST31
TEST32
TEST33
TES134
TEST3S

118

TIMER
TIMES
TIYCTL=
TTYJ
TIYJA
TIYJTL=
T1Y1
TIYIA
TIYIB
TIY16
TIYIH

012740
013122
013740
014170
014724
015274

001250

001102
001264
104004
002112
002114
104005
002142
002144
002174
002500

002540

TTYIL
002606
TYP
004114
TYPE
= 104000
TYPEM = 104002

TYPM
TYPOC
TYPON

130SC

WIDTH

004144
016222
016236

013120

001112

$BTASC
$CKSWR
$CLEAN
SCNTLU
$CR
$CRLF
$ECHO
$FORWD
$FOUR

004320
015736
002020
015774
004506
004474
003516
002652
003476

SLF
$PRHDR
$PRTC
$READ
$SCRLF
$TESTC

004476
004516
004572
003716
004456
0046424
= 020162

$INRDY

003654

4084
14704

2281+
2412

13744
1960
1961
1962
1963
1964
1965
14694
14264
14754
13624
16794

4101
4097«
2283

2455

1721
35204
35718
37164
37684

38744
39654

4103+

2217

1650
2000

1680#
1649

1999
17034
17114
1708
1802
17984

2150#
3345

1573
3467
3644
3980
21754
41364

35634
1566+
2995
3942

2584
3458+
4103
6120+
2287

2542

1736
3521
3572
3717

3769
3875
3966

4104

3736

2588
3498

3218
3619

3337
3628

3340
375

4121«

6122+

L1240

4128

3431

3467

4108

4113

4115

4123«

6124

2552

2583

3627

22974
2573

3348
3734

3430
3797

3432
3973

4001

3733

3780

3799

4037

2354
3576
3808

2637
3586
3809

3189
3596
3811

3223
3608
3814

3249
3611
3816

3275
3615
3817

2950
3912

3853

3436

34420

4080

3540
3666
3727
3822
3949

4028
4105

1796
1797
17764
1808

1782
2422

3362
1583
3490
3654
3996

3493

3506
3722

4004

1791
3524
3773
4090

2250
3527
3792
4095

2642
3012

2798
3029

2835
3172

2851

3241

2881
3265

2890
3488

2901
3548

N —

2569
3455+

SEa 0109 |

2941
3881

164054

1409#

16204

26164

2780#

34738

3759»

1611

4117

oo o

2568+
3454

F
9
30A(1052)
O03-AUG-79
09:23
PAGE 110
CROSS REFERENCE TABLE -- USER SYMBOLS

MACYT1

wno

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

22784
4078#
2010

40884

23434
23384
2044H
2009
2029+
2080#
23394
23544
23854
2099#
23254
23104
1391

2047

2086

2102

2107

1392#

1396#

1401#

;

—

CZLADDO LA36 DH11/DJ11

CZLADD.P11

DIAG

03-AUG-79 09:18

40597
.

ABS.

020162

ERRORS DETECTED:

MACYT1

30A(1052)

O03-AUG-79

CROSS REFERENCE

4597#

000
O

CZLADD.BIN,CZLADD.LST/CRF/SOL/NL:TOC=CZLADD.P11
RUN=TIME: 13 28 1 SECONDS
RUN=TIME RATIO: 369/44=8.2
(ORE USED:
7k
(13 PAGES)

TABLE

09:23

PAGE

111

=-- USER SYMBOLS

SEG 0110