Digital PDFs

AH-8899F-MC

November 1979

103 pages

Original

54MB

view download

OCR Version

74MB

view download

Document:	CZLACF0 LA36 LA36 TERM DL11 KL11 NOV 1979 bw
Order Number:	AH-8899F-MC
Revision:	000
Pages:	103
Original Filename:	CZLACF0__LA36__LA36_TERM_DL11__KL11__AH-8899F-MC__NOV_1979_gray.pdf

OCR Text

LA36 TERM DL & KLY

CZLACFO

A 8899F M

sevmign:

LICHE

ESEOAD
MADE

(ISA

JUACED LASG

»
s

—_

5B » B

e N N e e e NN U RO N POMNUPOPUNUNY
— e
et s et e s e

WO = OOV VNS W —-D 0D WE W OO0~y & iy —~ OO0~
N

JUACE P1Y

TERM

(DLTY

13=-JUN=79

R ki11)

15:33

MACY11

30A(1052)

13-JUN=79

15:35

PAGE

SEG 0007
.REM_

IDENTIFICATION

PRODUCT

CODE
:

AC-8898F
-M(

PRODUCT

NAME
:

CZILACFO LA36

DATE:

AUGUST

MAINTAINER:

DIAGNOSTIC

TERM

(DL11

& KL11)

1978
GROUP

THE INFORMATION IN THIS DOCUMENT 1S 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 APPFAR IN THIS MANUAL.
THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE
PURCHASER
UNDER
A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR
USE
IN
SUCH

SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.

DIGITAL EQUIPMENT

RELIABILITY

DIGITAL.

CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR

IT1S

(C)

SOFTWARE

EQUIPMENT

THAT

1974,1979 BY DIGITAL EQUIPMENT

IS NOT

SUPPLIED BY

CORPORATION

CZLACFO LA36 TERM (DL £ KL i
CZLACE.P1Y
13-JUN-79 1 S: 33

MACY11

30AC1052)

13-JUN-79

15:35

PAGE

2
SEQ 0002

PAGE

)

47
48

HISTORY

50
51
52
53
54
%S
56
57
58
59
60
61
62
63

DECO CZLAC-F-0
CLOSED PROBLEM REPORT

IT WAS REPORTED THAT

FAILURE
IN
THE
NOT OF SUFFICIENT

AA3318

DL11-A

OPERATED

110

BAUD

AREAD ROUTINE BECAUSE THE 200 MSEC.
DURATION TO ALLOW
SETTING
OF
THE

STATUS
THE TIME

CAUSED

DELAY IS
RECEIVER

''DONE'*
BIT
THROUGH
THE
MAINTENANCE
BIT
DELAY WAS INCREASED FROM 200 TO 600 MSEC.

CLOSED PROBLEM REPORT

AA3643

TESTS 56,57,60,61,62,63,64,65,AND 66 DO NOT RUN
PROPERLY
WHEN
RUN
ON
AN
LSI-11.
THIS PROBLEM WAS RESOLVED BY CHANGING THE
BRANCH AFTER THE CHAIN COMMAND TO
GO
BACK
TO
TEST
FOR
THE
Eié-l}ES?UITCH IN ORDER TO EFFECT THE APPROPRIATE ACTION
DURING
H

SECOND TIME-OUT

RESPONSE.

THE

IN TEST 64 ALLOWS EXCESSIVE WAIT

FOR

OPERATOR

TIME DELAY WAS REDUCED FROM '*177777'' 10 "'600'.

COMMON ROUTINE TYPE DOES NOT SAVE THE CONTENTS OF RO
RESULTING
IN
THE
LOSS
OF
THIS
INFORMATION
AND
CONSEQUENT
FAILURE.

INSTRUCTIONS WERE INCLUDED TO SAVE THE CONTENTS OF
INTO THE ROUTINE AND TO RESTORE THEM UPON EXIT.

RO ON

ENTRY

LOSS
OF
STACK
CONTENTS
FOR
NON-LSI-11
COMPUTERS
DUE
TO
INCORRECT SEQUENCE OF INSTRUCTIONS IN TEST 65 WAS ALSO REPORTED
IN PROBLEM REPORT AA3803.
REFER TO 1.3.1.
CLOSED PROBLEM REPORT AA3803
TESTING OF

NON-LSI=11

COMPUTERS RESULTS

iN THE PROGRAM

HANGING

UP
BECAUSE
THE STACK GETS POPPED AWAY IN TEST 65.
THE BRANCH
AFTER THE TEST FOR THE LSI-11 SWITCH IN TEST 65
SHOULD
GO
10

THE
CHAIN COMMAND FOR PROPER EXIT FROM THE TEST FOR NON-LSI-11
MACHINES. THIS CHANGE SUPERSEDES THE CHANGE RELEASED
IN
DEPO
D-11-DZLAC-D-1.
PROBLEM REPORT

AA2390

PROCESSORS WITHOUT HARDWARE

LOOP

ERROR

PER?}T
(HANGING
TESTING.

WITH

THIS

SWITCH

SWITCH REGISTERS ARE

PROGRAM.

NOT

ABLE

INSTALLED “G FUNCTION TO

SETTING

DURING

DIAGNOSTIC

MACYTT

30A(1052)

13-JUN=79

15:35

PAGE

SEQ 0003
PAGE

ABSTRACT

0
1
2
3

EQUIPMENT
STORAGE

PRELIMINARY

ADDITIONAL

LOADING PROCEDURE

STARTING PROCEDURE
STARTING ADDRESSES
SWITCH REGISTER CONTROL WITH 1/0 TESTS
SWITCH REGISTER CONTROL WITHOUT 1/0 TESTS

REQUIREMENTS

CONTENTS

SNV IV IV IV N N N
.

—_—

TABLE

Z
3

PROGRAMS
PRCGRAMS

AND

INITIALIZATION

0
1
2
3

OPERATING PROCEDURE
SWITCH REGISTER CONTROL
KEYBOARD CONTROL
CONTROL G

KEYBOARD CONTROL WITH I/0 TESTS
KEYBOARD CONTROL WITHOUT 1/0 TESTS

(e
SN

" L]

.
e
&0

(o MV B

o
.

2
2
2
2
2
2
2

1
1

1
1
1
1

1
1

et =2 OO0 NO N
N=O

1
1
1
1

NN —

N N6 e W No Ne No o N

AND ASSIGNMENTS

.0
1

oaioae e aleple oo oo gl e o e R

CZLACFO LA36 TERM (DL 2 KL 1M
CZLACF.P1
13-JUN-79 1 5: 33

TEST DESCRIPTIONS
PRINTING TESTS
TESTO
DATA PATH TEST

TEST!

= PRINTABLE CHARACTER TEST

TEST?2

= NON-PRINTABLE CHARACTER TEST

TEST3
TESTS

TESTS

= CARRIAGE RETURN TEST
= MULTIPLE LINE FEED TEST
= SINGLE LINE FEED TEST

TEST?7

= OVERPRINT TEST

TEST6

= BACKSPACE

TEST

TEST10
TEST1

=
=
=

TEST20
TEST?1
TEST22

= CHARACTER ECHO TEST
= LINE ECHO TEST, FAST RATE
= LINE ECHO TEST, SLOW RATE

TEST24
TEST25
STANDARD

= SELECTED PATTERN ECHO TEST
= BELL ECHO TEST

TEST12
TEST17
ECHO TESTS

TEST23

PRINTING FREQUENCY SWEEP TEST
RIBBON FEED TEST

PRINTER BELL TEST
LIFE TSI

= CHARACTER/CODE ECHO TEST

1/0 TESTS

MACYTT

30AC1052)

13-JUN-79

15:35

PAGE

SEQ 0004

N—=00VE~NC UV W= O 000NV

e lo (R NEs NV

NNNNNN~N

—

NN~NoocoocooO el

D e

ALY ALY ALY IV TV N

CZLACFO LA36 TERM (DL11 g KL 1)
CZLACF.P11
13-JUN-79 1 52 33

PAGE

1.0

ABSTRACT

THIS DIAGNOSTIC

IS DIVIDED

INTO THREE

BASIC

SECTIONS:

A CHECK OF

THE CONSOLE

A CHECK OF

THE PRINTING CHARACTERISTICS AND CONTROL LOGIC.

AN ECHO PORTION DESIGNED TO CHECK THE KEYBOARD AND 10 AID
THE

DIAGNOSIS OF

TERMINAL

INTERFACE

LOGIC.

TERMINAL PROBLEMS.

PATTERNS USED BY THE PRINTING TESTS WERE CHOSEN
FOR
EASE
OF
VISUAL
VERIFICATION.
THE
ECHO TESTS WERE DESIGNED FOR MAXIMUM FLEXIBILITY,
WITH TEST 24 ALLOWING ANY DESIRED PATTERN TO BE USED.

2.0

REQUIREMENTS

2.1

EQUIPMENT AND ASSIGNMENTS

THE DIAGNOSTIC IS WRITTEN TO RUN ON ALL MODELS OF THE PDP-11
COMPUTER
WITH EITHER A KL11 OR DL11 CONSOLE TERMINAL INTERFACE.
THE DIAGNOSTIC
1S PRESET TO TEST UP _TO 16 ADDITIONAL TERMINALS (ON
DL11'S)
ASSIGNED

BETWEEN

ADDRESSES

776500

AND 776676.

THIS PRESET QUANTITY

(16)

AND

PRESET ADDRESS (776500) CAN BE CHANGED BY DEPOSITING THE
QUANTITY
IN
DLNR
AND THE STARTING ADDRESS IN DLADR.
FOR EXAMPLE, TO ALLOW FOR UP

TO 31

ADDITIONAL TERMINALS,

THE ADDRESS 775610 COULD

PLACED

INTO

DLADR
AND THE OCTAL EQUIVALENT OF 31, 1.E., (37) WOULD BE PLACED INTO
DLNR.
THE
NUMBER
OF
ADDITIONAL
DL11'S
ACTUALLY
TESTED
WILL
BE
ADJUSTED
AUTOMATICALLY
DOWNWARD
BASED
UPON
THE FIRST DL11 ADDRESS
(WITHIN THE IMPLIED RANGE) FOUND TO BE UNRESPONSIVE.
THUS IF THERE !S
NO
DL11
PRESENT
TO
MATCH
THE
ADDRESS
IN
DLADR ONLY THE CONSOLE
TERMINAL WILL BE TESTED.
THEREFORE,
ALL
OL11'S
IN
EXCESS
OF
THE
CONSOLE
TERMINAL
MUST
HAVE
CCNTIGUOUS ADDRESS ASSIGNMENTS WITH THE
LOWEST ADDRESS CORRESPONDING TO THE VALUE IN DLADR.
THE CONSOLE TERMINAL (ASSIGNED STANDARD) CAN BE REASSIGNED BY
PLACING
THE
ADORESS
OF
ITS
RECEIVER
STATUS
REGISTER
INTO CONADD AND TS
RECEIVER INTERRUPT VECTOR INTO CONVEC.
THIS REASSIGNMENT CAN BE
MADE
TO
A
TERMINAL
WITHIN THE SET OF TERMINALS IMPLIED BY DLNR AND DLADR
WITHOUT ADVERSE EFFECT.
NOTE THAT A TERMINAL WITH A SLOWER SPEED
(IFf

197

198

199
200

201
202
203
204

ANY)

WILL

DETERMINE

THE

SPEED

WHICH

ALL

THE

TERMINALS ARE

TESTED.
SUCH A TERMINAL SHOULD GENERALLY BE EXCLUDED FROM
THE
TEST,
OR TESTED SEPARATELY.
(RERER TO THE SYMBOL DEFINITIONS IN THE LISTING
FOR THE ABOVE MENTIONED LOCATIONS.)

2.2

STORAGE

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

4K OF

MEMORY WITH EXCEPTION OF

THE

CZLACFO LA36 TERM (DL11 £ KL 1M
CZLACF.P1
i3-JUN-79 1 1 33

OO NV

NN
N W N Wi

rorororoNOrNOrONY rororororoNNO
N

L LV LV L VT T ST YT VT . 9) no

W=D 000~ O\fibuN—AOCQNOmwa_.Q o
O

205
206
207
208

MACYTT

13-JUN-79

ol
15:35

PAGE

SE@ 0005
PAGE

2.3

2.4

PRELIMINARY PROGRAMS

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

IF
THE
THE

ADDITIONAL PROGRAMS

THIS DIAGNOSTIC IS FOR VERIFICATION OF BASIC TERMINAL FUNCTIO
NS
ONLY.
1F
THE
TERMINALS
UNDER
TEST
HAVE
HARDWARE
OPTIONS INSTALLED RUN
DIAGNOSTIC MAINDEC-11-DZLAF-A , THE LA36 TERMINAL OPTIONS TEST.

3.0

LOADING PROCEDURE AND INITIALIZATION

LOAD THE LA36 DIAGNOSTIC PROGRAM
TAPE
FOLLOWING
NORMAL
BEFORE
STARTING
THE PROGRAM, REFER TO THE DESCRIPTION OF

“DLY'".

TIME DELAYS USED BY THE PROGRAM ARE

FUNCTION

PROCEDURES.
THE ROUTINE

THE

CPU

MODEL
AND
MEMORY
TYPE
AND
SHOULD
BE
SET-UP
BEFORE
RUNNING THE
DIAGNOSTIC.
THE ROUTINE 1S PRESET FOR A PDP-11/05 WITH
CORE
MEMORY.
REFER
TO
SECTION
2.1
FOR
NON-STANDARD
TERMINAL ADDRESSES AND FOR
TESTING MULTIPLE DL11 INTERFACES.

1F A HARDWARE SWITCH REGISTER DOES NOT EXIST, THE PROGRAM WILL USE THE
CONTENTS
OF
LOCATION
176
AS
THE
VALUE OF THE SWITCHES.
WHEN THE
PROGRAM SYARTS UP, IT WILL ASK FOR A VALUE TO BE
ENTERED
BEFORE
THE
PROGRAM WILL PROCEED.
1F

rorurnunuNUns
N N
NSNS
WO N wny
—

30A(1052)

THE

CPU IS AN LSI=11,

SPECIAL

11/03 BE

TESTS ARE RUN ON THE

4.0

STARTING PROCEDURE

4.1

STARTING ADDRESSES

SURE

TO SET

DLV11

SWITCH REGISTER BIT 9 T0

INTERFACE.

200(8)

= RUN WITH SWITCH REGISTER CONTROL

204(8)

= RUN WITH SWITCH REGISTER CONTROL

210(8)

= RUN WITH KEYBOARD CONTROL

- PERFORM CONSOLE

- SKIP CONSOLE

TERMINAL

= PERFORM CONSOLE

/0 TESTS.

1/0 TESTS.

TERMINAL

[/0 TESTS.

214(8) = RUN WITH KEYBOARD CONTROL
= SKIP CONSOLE TERMINAL 1/0 TESTS.

CZLACFO LA36 TERM (DL1YT R KL M)
CZLACF.P11
i3-JUN-7G 15:33
5:

259
260
261
262
263
264
265
266
267
268
269

MACY11

30AC1052)

13-JUN=79

15:35

PAGE

SEQ 0006
. PAGE

4.2

SWITCH REGISTER CONTROL WITH
A.

EEI1ZHE
W

1/0

TESTS

SWITCH REGISTER TO 200(8)

AND PRESS THE

SET SWITCH REGISTER BIT 9 TO A
1
IF
THE
LSI=-11, 11/03.
REFER TO SECTION 5.1.5.

LOAD

ADDRESS

PROCESSOR

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

3.1.8.

SET THE SWITCH REGISTER BIT 8 EQUAL TO 1 OR 0 AND
PRESS
THE
START
SWITCH.
A
MESSAGE
WILL
BE
PRINTED INDICATING THE

NUMBER OF

DL11'S BEING

TESTED.

REFER

TO SECTION 5.1.6.

IF BIT 8 WERE ZERO
WHEN
STARTING,
THE
EXECUTED
SEQUENTIALLY,
AFTER THE ENTIRE
ARE EXECUTED.

PRINTER
TESTS
ARE
SERIES OF 1/0 TESTS

WAS

BIT 8 WAS SET WHEN

THE

START

SWITCH

PRESSED,

ENTIRE
SERIES OF 1/0 TESTS WILL BE EXECUTED AND THE
HALT AT LOCATION SELHLT.
THE PROGRAM WILL
THEN
BE
FOR CONTROL VIA THE SWITCH REGISTER.

4.3

SWITCH REGISTER CONTROL = WITHOUT

1/0 TESTS

SAME

SET

204(8).

SECTION 4.2 EXCEPT

IN STEP

THE

SWITCH

THE

CPU WILL
WAITING

CZLACFO LA36 TERM (DL1T
CZLACF.P11
13=JUN-79 1

30AC1052)

12-JUN-79

15:35

PAGE
L.4

KEYBOARD CONTROL

s I
PN

1/0

TESTS

gE}TEHE
WITCH.

SET THE SWITCH REGISTER BITS 7-0 EQUAL TO THE PAPER WIDTH
IN
;E?Hg
OF
THE
NUMBER
OF COLUMNS (OCTAL).
REFER TO SECTION

SET

SWITCH REGISTER

TO 210(B)

SWITCH REGISTER BIT 9

LSI=11,

11/03.

TO A

AND PRESS

REFER TO SECTION S.1. 5

THE

LOAD

PROCESSOR

ADDRESS

SET SWITCH 8 AND PRESS THE START SWITCH.
A MESSAGE
WILL
BE
PRINTED
INDICATING THE NUMBER OF DL11'S BEING TESTED.
REFER
TO SECTION 5.1.6.

IF BIT 8 WAS
ZERO
WHEN
STARTING,
THE
EXECUTED
SEQUENTIALLY
AFTER
THE ENTIRE
ARE EXECUTED.

- WITH

BIT

B WERE

SET

WHEN THE

START

PRINTER
TESTS
ARE
SERIES OF 1/0 TESTS

SWITCH

WAS

PRESSED,

THE

ENTIRE
SERIES
OF 1/0 TESTS WILL BE EXECUTED FOLLOWED BY THE
SELECT TEST MESSAGE.
THE PROGRAM WILL THEN BE WAITING FOR
A

gEgT

SELECTION

VIA ANY

rorno L

PAGE

SEQ

N—=OoOCONT
Vs N — o

wmuuwuuwuwu

293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309

MACYT1

4.5

KEYBOARD CONTROL = WITHOUT

B?HE

(8).

5.0

SECTION 4.4 EXCEPT

TERMINAL

KEYBOARD.

REFER

TO SECTION

[/0 TESTS

IN STEP

SET

THE

SWITCH

OPERATING PROCEDURE

THE PROGRAM CAN BE CONTROLLED
IN
EITHER
OF
TWO
METHODS:
BY
THE
CONSOLE
SWITCH REGISTER OR FROM THE KEYBOARD OF THE TERMINAL(S) UNDER
TEST.

0007

CZLACFO LA36 TERM (DLI11 £ KL 1)
CZLACF.P11
13-JUN-79 1 5: 33

336
337
338
339
340
341
342
343
344

345
346
347
348
349
350

MACYT1

3DAC1052)

13-JUN-79

15:35

PAGE

SEQ 0008
PAGE

5.1

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

351
352
353
354
355
356
357
358
359

DESCRIPTION

1(UP)
HALT AT END OF TEST
O(DOWN) = CONTINUE TEST SEQUENCE

1(UP)

O(DOWN)

5.1.1

1(UP)
O(DOWN)

1(UP)

= CONTINUE

ON ERROR

= HALT ON ERROR

= DRIVE ONLY CONSOLE TERMINAL
= DRIVE ALL TERMINALS
= LOOP ON

INDIVIDUAL

TEST

0(DOWN)

= NORMAL TEST SEQUENCE

1(UP)
0(DOWN)

= CPU TYPE IS AN LSI-11,
= ALL OTHER PDP-11'S

1(UP)
O(DOWN)

= RUN TEST ONCE AND HALT
= LOOP ON TEST SEQUENCE

5-0

TEST NUMBER SELECTION

7-0

NUMBER OF

11/03

COLUMNS AT START-uP

SWITCH 15

WITH SWITCH 15 IN THE UP POSITION, THE PROGRAM WILL MALT AT THE END OF
THE
CURRENT
TEST.
REPLACING
SWITCH
15
10
THE DOWN POSITION AND
PRESSING CONTINUE WILL CONTINUE THE NORMAL TEST OPERATION.
DURING THE
HALT, ANY OF THE CONTROL SWITCHES MAY BE CHANGED OR SET AS DESIRED.

5.1.2

SWITCH 14

PLACING SWITCH 14 IN
THE
UP
POSITION
WILL
CAUSE
THE
PROGRAM
10
CONTINUE
ON
ERRORS DURING ANY OF THE 1/0 TESTS ONLY.
WITH SWITCH 14

DOWN,

TESTS

THE PROGRAM WILL HALT
WITH

THE

(AT ERRHLT)

LOCATION OF

THE

ERROR

ON ANY ERRORS DURING
IN RO.

THE

PRESSING CONTINUE

CAUSE THE PROGRAM TO CONTINUE IF SWITCH 14 IS DOWN.
WITH
SWITCH
UP, PRESSING CONTINUE WILL CAUSE THE PROGRAM TO LOOP ON THE ERROR.

1=0

WILL

CZLACFO LA36
CZLACF.P1?

S
—(=R

Pl
ol o Bkl
2l 2 o N Pl 2F o F O F
s s
LT
ST TN N
— e e
o

e - NT, WY DWW
-o

390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409

TERM

(DL1

£ KL 1m
i13-JUN-79 1 o 1 33

MACYT1

30A(1052)

13-JUN-79

15:35

PAGE

SEQ 0009
PAGE

NOTE

ERROR HALTS CAN OCCUR
ONLY
DURING
THE
1/0 TESTS.
THE TERMINAL IS CONNECTED TO
A SERIAL LINE
AND
THERE
IS
NO
ERROR
INFORMATION RETURNED TO THE PROGRAM FROM
THE
TERMINAL.
THEREFORE
THE
PROGRAM
CANNOT
REPORT
ERRORS
OCCURRING IN THE
TERMINAL.
ERRORS
DETECTED
DURING
THE
INTERFACE
TESTS WILL RESULT IN HALTS AS
DESCRIBED ABOVE.

5.1.3

SWITCH 13

PLACING SWITCH 13 IN THE DOWN POSITION WILL
MULTIPLE TERMINALS DURING THE PRINTER TESTS
ONLY THE CONSOLE TERMINAL IS DRIVEN.

** NOTE:
SWITCH 13 SHOULD ONLY
FOR A TEST SELECTION.

5.1.4

CAUSE
ONLY.

THE
IF

CHANGED WHEN THE

DRIVING
OF
ALL
SWITCH 13 IS UP,

PROGRAM

IS WAITING

SWITCH 11

PLACING SWITCH

UP AT

ANY

TIME

WILL

CURRENT
TEST
AS
LONG
AS SWITCH
DOWN WILL
CAUSE
THE
PROGRAM
TO
COMPLETION OF THE TEST.

CAUSE

THE

PROGRAM TO LOOP ON

THE

11 REMAINS UP.
REPLACING SWITCH 11
RESUME
NORMAL
OPERATION
AT
THE

425
426

431
432
433
434
435
436
437
438
439
440
441
442
443

5.1.5

SWITCH 9

PLACING
CHANGE
TESTS.
TO HANG

5.1.6

SWITCH 9 UP AT THE START OF THE TEST WILL CAUSE
AN
AUTOMATIC
IN
THE
DELAY
TIMING, AND THE EXECUTION OF SPECIAL DLv1l [/0
THE DLVI1 HAS NO MAINTENANCE MODE AND WILL CAUSE
THE
PROGRAM
IF TESTED AS A DL11,

SWITCH 8

WITH SWITCH 8 IN THE DOWN POSITION THE PROGRAM WILL CONTINUE
T0
LOOP
THROUGH THE PRESENT TEST SEQUENCE.
PLACING SWITCH 8 UP WILL CAUSE THE
PROGRAM TO HALT (AT SELHLT) AT THE COMPLETION
OF
THE
CURRENT
TEST.
AFTER

THE

HALT,

SET

THE

CONTROL

SWITCHES AS DESIRED AND SET

TO G 7O THE NEXT DESIRED TEST NUMBER,

THE

TEST.

SWITCHES

AND THEN PRESS CONTINUE

TO START

428
429
430

427

CZLACFO LA36 TERM (DL 2 KL 1)
CZLACF.P11
i3-JUN-79 1 § 33

MACYT1

30A(1052)

13-JUN-79

15:35

PAGE

SEQ 0010

444

PAGE

445

446

447
448
449
450
451
452
453

454

455
456
457
458
459
460
461
462
463

WHEN STARTING THE DIAGNOSTIC THE OPERATOR CAN SELECT A
SPECIFIC
TEST
RATHER
THAN
AUTOMATICALLY
STARTING
THE
PRINTING
TEST SEQUENCE BY

SETTING SWITCH 8 UP BEFORE STARTING THE DIAGNOSTIC.

UPON

COMPLETION

OF
THE
1/0 TEST SEQUENCE (IF BEING RUN) THE PROGRAM WILL EITHER
HALT
AT SELHLT WAITING FOR A TEST SELECTION
VIA
THE
SWITCH
REGISTER
OR
PRINT
THE
SELECT TEST MESSAGE AND WAIT FOR A TEST SELECTION FROM ANY
KEYBOARD.
REFER TO SECTION & FOR FURTHER INFORMATION.

5.1.7

SWITCHES S 10 0

SWITCHES 5

TO O ARE USED TO SELECT

CONTROL.

TEST

NUMBERS

SPECIFIC

ARE

ALWAYS

TESTS

WHEN

IN OCTAL.

UNDER

SWITCH

L64

5.1.8

466

AT START-UP ONLY, SWITCHES 7 TO 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
T0

465

467
468
469
470

SWITCHES 7 TO O

132(10).

THE

CPERATION LEAVE

VALUE

(AT START=UP ONLY)

SET

MUST

IN OCTAL FORM.

SWITCHES 7 TO O DOWN TO TEST

THE

FULL

THUS, FOR NORMAL
132(10)

COLUMNS.

CZLACFO LA36 TERM (DL11 £ KL 1M
CZLACE.P11
13-JUN=79 1 52 33
471
472
473
474
475
476
477
478
479
480
481
482
48%
484
485
486
487
488
489
490
491
492
49%
494
495
496
497
498
499

MACYT1

13-JUN-79

15:35

PAGE

SEQ 0011

5.2
THE

PAGE

DIAGNOSTIC

KEYBOARD CONTROL
PROGRAM WILL BE UNDER KEYBOARD CONTROL WHENEVER

STARTED

LOCATION

210

214.

SWITCHES

THE

ON THE CONSOLE SWITCH

REGISTER WILL HAVE NO EFFECT WHEN UNDER TERMINAL
CONTROL
EXCEPT
FOR
23&;33
15.
THE
1/0
TESTS
CANNOT
BE SELECTED WHEN UNDER KEYBOARD
L.

TO STOP A TEST AT ANY TIME, TYPE THE "RUBOUT'' OR "'DELETE'' KEY
ON
ANY
KEYBOARD.
ANY TERMINAL MAY STOP THE TEST AND SELECT THE NEXT TEST If
SWITCH 13 1S DGWN.
WHEN A TEST IS STOPPED BY
TYPING
A
"RUBOUT"" OR

;DSESIE".
Y

THE

TEST

WILL TERMINATE AND THE FOLLOWING MESSAGE WILL BE
.

SELECT

TEST NUMBER

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.

500
501
502
503

LOOP ON

TYPED.

THE

= START THE
CONTINUE

SELECTED

TEST

WUNTIL

THE

ANOTHER

‘''RUBOUT'

TEST SEQUENCE WITH
THE
SELECTED
TEST.
TO
LOOP
ON
THE PRINTING TEST SEQUENCE

UNTIL A "RUBOUT'' IS TYPED.

)
=

= OO0~
WV
W
=D e de
T

[« RV
5W

AYWGN PO

L L

ARl A

AN AV IV T

TV TV IV TV

VUL

e
% PNOPRONON
s s s
s a
leleolele]

505

THE L'’ OR ''S"" MAY BE EITHER UPPER OR LOWER CASE, BUT THE

TEST

THE ''L'' AND

NUMBER

MUST ALWAYS BE A 2 DIGIT OCTAL NUMBER.
THE TEST NUMBER AND TERMINATOR
ARE ECHOED BY THE PROGRAM, THUS EACH CHARACTER WILL BE
PRINTED
TWICE

THE

TERMINAL

IS IN HALF DUPLEX.

“S'* WILL ONLY RUN THE TEST ONCE

FOR ALL ECHO TESTS,

(THE SAME AS IF TYPING A PERICD).

FOR

ALL
OPTION TESTS, THE ''S'" WILL ONLY RUN THE TEST ONCE (THE SAME AS IFf
TYPING A PERIOD), HOWEVER, TYPING AN '‘L'' WILL
CAUSE
THE
PROGRAM
TO
LOOP
ON
THE
SELECTED
TEST.
IF
AN
ERROR 1S 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 OR 204.
CONSOLE
SWITCH
REG.
VALUES WILL BE ENTERED FROM THE TTY AT START UP
TIME WITH THE OLD VALUE INDICATED.
TO CHANGE A
VALUE
TYPE
*G.
If
TEST
WAS
STARTED @ LOC 200, AT THE END OF A PRINT TEST THE NEW VALUE
CAN BE ENTERED.
IF TEST WAS STARTED AT LOC 204, DATA CAN
BE
CHANGED

BEFORE

TEST FINISHES.

AND A NEW ENTRY

STARTED.

“U ALLOWS

INCORRECT DATA ENTRIES TO BE DELETED

|S———

30A€1052)

CZLACFO LA36 TERM (DL11

CZILACF.P11
527
528
529
2%?

& KL 1)

13-JUN-79 15:33

MACY11

30A(1052)

13-JUN=79

L
15:35

PAGE

SEQ 0012 |
PAGE

6.0

TEST DESCRIPTIONS

532
533
ggg

6.1

536
537
538
539
540
gz;

THESE TESTS ARE DESIGNED AS A TEST OF THE PRINTING MECHANISM
AND
THE
ASSOCIATED
CONTROL
LOGIC.
AT
THE BEGINNING OF EACH TEST, THE TEST
NUMBER WILL BE PRINTED INDICATING WHICH TEST IS BEING EXECUTED AND, IF
THE TEST IS 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:

543
544
245

6.1.1

547
548
546
550
gg;

THIS TEST IS USED TO TEST THE DATA LINES TO AND THROUGH THE
INTERFACE
AND
TO THE
TERMINAL.
AN ALTERNATING BIT PATTERN IS SENT WHICH WILL
PRINT ALTERNATING *'S AND U'S IN A CHECKERBOARD PATTERN TO THE MAX IMUM
COLUMN WIDTH.
THE STARTING CHARACTER FOR EACH LINE IS ALTERNATED AND

553
554
555
556
557

ggg

TEST O - DATA PATH TEST

A TOTAL CF

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 :

560

561
562
265
64
565
566

PRINTING TESTS

tutUtUtUtUtUtU'UtU'UtUtUtUtUtU

UrUrUrUrUsUtUrUeUrUrUrUryrUrye
*UrUrUsUrUrUeUrUrUrUryrUsyeyry
UrUrUsUsUrUrUrUsUrUrUeleUsyryr

gbg

6.1.2

569
570
571
572
573
574

THIS TEST PRODUCES A CHECK OF ALL 94(10)
PRINTABLE
CHARACTERS.
THE
CHARACTERS ARE PRINTED IN GROUPS OF THREE WITH THREE GROUPS PER "INE,
SEPARATED BY THREE SPACES BETWEEN GROUPS.
THE
FIRST
COLUMN WILL
CONTAIN ALL ASCI] 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 CODES FROM 140 TO 176 = PRIMARILY

2;5
6

577
578
579

TEST 1 = PRINTABLE CHARACTER TEST

THE SMALL LETTER SET.

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.

i
!

30A(1052)

13-JUN-79

i
15:35

PAGE

SEG 0013
PAGE

:
EXAMPLE
33

aaa

AAA

]

‘"""

B8BB

BBB

$$$
XX%
B8R

DDD
EEE
FFF

Fey

CCC

666

GGG

((C
)))

HHH
111

e
+44

I R
KKK

KKK

eee
===
<«
///

AEET
MMM
NNN
006

UL
MMM
NNN
000

111

Qaa

TTT

000
222
333

555

i 5

d
o~ TM
—d
TM

xxx
y¥y

.
Ase

RRR
55§

wuw

HEE

A,
Ave .

PPP

RRR
8§88

Vvw
WWW

888
999

HHH
111

PPP

666
777

It
Il

Vv
WWW
Xxxx
Ny
o 1

580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598

MACYT1

DV
DWWV

CZLACFO LA36 TERM (DL11 £ KL 1)
CZLACF.P1
13-JUN-79 1
33

6.1.3

TEST 2 - NON-PRINTABLE CHARACTER TEST

THIS TEST CHECKS ALL NON-PRINTABLE CHARACTERS
THAT
HAVE
NO
FUNCTION IN THE LA36 TERMINAL OR THE LA36 OPTIONS (SUCH AS CR,

€ BEL).

CONTROL
LF, BS,

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.
WITH THE AUTO LINE FEED OPTION SET TC PRODUCE AN AUTOMATIC
LINE
FEED
AFTER
EVERY
RECEIVED
CARRIAGE
RETURN,
THERE
WILL BE A BLANK LINE

BETWEEN EACH PRINTED LINE.

CZLACFO LA36
CILACF P11

635
636
637
638
639

TERM (DL1T R kL11)
13=JUN-79 15:33

MACYT1

30A(1052)

15:35

PAGE

SEQ 0014
PAGE

EXAMPLE
:

640
641

001

020
023
026
031
035

642
643
64k

645

64b

647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663

13-JuUN-79

177

6.1.4

TEST

SOH

DLE
DC3
SYN
EM
G6S

DEL

002

021
024
027
032
036

STx

DC1
DC&
ETB
SUB
RS

006

022
025
030
034
037

ACK

DC2
NAK
CAN
FS
usS

3 - CARRIAGE RETURN TEST

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

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
OF

664

665

666

667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687

EXAMPLE:

0XOXOX0X0OXOXOXOXOXOX0X0XOX0X0X
WITH THE AUTO LINE FEED OPTION SET TO PRODUCE AN AUTOMATIC
LINE
FEED
AFTER
EVERY
RECEIVED CARRIAGE RETURN, THIS TEST WILL PRINT A LINE Of

0'S AND SPACES, THEN PRINT A DIAGONAL LINE OF
THE

ENCODER,

THE

X'S.

AUTO LINE FEED OPTION SHOULD BE

EXAMPLE:
0o0o0O0O0O0O0ODO0OO0

TO CORRECTLY CHECK

DISABLED.

CZLACFO LA36 TERM (DL11 £ KL 1)
CZLACF.P1
13-JUN-79 1 5 33

OOQNO\J‘J\WN—OO

N—a—.—.—-—._-..a_._._.

NNNNVNNNNNN

688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709

MACYTT

30A(1052)

13-JUN-79

15:35

PAGE

SEQ 0015
PAGE

6.1.5

TEST & - MULTIPLE LINE FEED TEST

THIS TEST CHECKS THE LINE FEED CAPABILITY OF THE
PRINTER
BY
SENDING
VARIOUS
GROUPS
OF
LINE FEEDS INTERSPACED WITH REFERENCE LINES.
THE
NUMBER PRINTED AS THE REFERENCE LINE
INDICATES
THE
NUMBER
OF
LINE
FEEDS
THAT FOLLOW.
THE FIRST AND LAST LINES ALSO CONTAIN A STRING OFf
DASHES AS REFERENCE POINTS FOR MEASURING THE
TOTAL
DISTANCE
BETWEEN
THE TWO DASHED LINES, 1.E., 63(10) LINES.
WITH THE AUTO LINE FEED OPTION SET TO PRODUCE AN AUTOMA
TIC
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.
THE TOTAL DISTANCE BETWEEN THE TWO DASHED LINES WILL THEN BE
69 LINES.

:
EXAMPLE

16
\

/
\

15 BLANK LINES

31 BLANK LINES

CZLACFO LA36 TERM (DL11 £ KL M
CZLACF.P1
13-JUN-79 1 S: 33
732
733
734
735
736
737
738
739
740
741
7642
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

MACYTT

30A(1052)

13-JUN-79

15:35

PAGE

SEQ 0016
PAGE

6.1.6

TEST

5 - SINGLE LINE FEED TEST

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

THE

FIRST REFERENCE

LINE CONTAINS

130(10)

ZEROES FOLLOWED

TW0 2°'S

IF
TESTING
132(10)
COLUMNS.
IF LESS THAN
132
COLUMNS, THE LINE
WILL CONTAIN
0'S FOR TWO LESS THAN
THE
MAXIMUM
NUMBER
OF
(COLUMNS
FOLLOWED
BY
THE
TWO
2'S.
THIS
REFERENCE
LINE IS A QUICK CHECK
FOR 132(10) COLUMNS IF TESTING THE FULL
132(10) COLUMNS.
THE
SECOND

REFERENCE LINE PRINTS A STRING OF NUMBERS ( 1
TO
9 & 0 ) REPEATED 10
THE MAXIMUM COLUMN.
THIS LINE, AGAIN, CAN BE USED AS A QUICK CHECK OFf
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 MISPRINTS OR MISSING CHARACTERS
DURING THE FIRST
16(10) CHARACTERS
OF
THE
MIDDLE
REFERENCE
LINE.
ALSO,
ANY
PAPER FEED PROBLEMS WILL CAUSE MISALIGNMENT OF THE SLASHES
FORMING THE DIAGONAL LINE.

CZLACFO LA36 TERM (DL11 £ KL 1)
CZLACF.P1
13=JUN=79 15:33

770
44
772
773
774
;;2

81
812
%13

815

30A(1052)

13-JUN-79

15:35

PAGE

SEQ 0017

PAGE

EXAMPLE
:
Q00000000000000000000000000022

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

800
801
802
803
804
805
806

MACYT1

\
}§§456?89012345678901234567890
456789012345678901234567890

WITH THE AUTO LINE FEED OPTION SET
AFTER EVERY RECEIVED CARRIAGE

1O PRODUCE AN AUTOMATIC

RETURN,

PLACE A CARRIAGE RETURN IS EXECUTED.

THERE

WILL BE

LINE

A BLANK LINE

FEED

EVERY

CZLACFO LA36 TERM (DL11 R KL11)
CZLACF.P1Y
i13-JUN-79 15:33

MACY11

30A(1052)

13-JUN-79

2
15:35

PAGE

SEQ 0018
PAGE

PRINT TIMING AS IN TEST 5 AS WELL
OF THE PRINT SOLENOID HEAD.

EXAMPLE:

0000000022

1234567890
1234567890
6.1.7

TEST

6 - BACKSPACE

TEST

THIS TEST 1S DESIGNED TO TEST THE
THE BACKWARD AND FORWARD MOVEMENT
THE TEST CONSISTS OF THE
A
CARRIAGE
RETURN-LINE

FOLLOWING PATTERN:

SAME FIRST REFERENCE LINE AS IN TEST S
THEN
FEED.
A FULL LINE IS THEN PRINTED USING THE

FORWARD SLASH
BACKSPACE
BACK SLASH

THIS PATTERN PRODUCES A LINE OF ALL X'S.
THE TWO SLASHES SHOULD CROSS
EXACTLY
AT
THE
MIDOLE, PRODUCING THE X CHARACTER.
WHEN THE LINE IS
COMPLETED A CARRIAGE
RETURN-LINE
FEED
1S
SENT
AND
THE
LAST
TWC
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 TO PRODUCE AN AUTOMATIC
LINE
FEED
AFTER
EVERY
RECEIVED
CARRIAGE
RETURN,
THERE
WILL BE A BLANK LINE

BETWEEN EACH PRINTED LINE.
:
EXAMPLE

867
868
869

000000000000000000000000000022

JOOCK0C000C0C0CC0000000C0X
XX

123456789012345678901234567890
123656789012345678901234567890

889
890
891
892
893

MACYTT

3D0AC1052)

13-JUN-79

15:35

PAGE

SEG 0019
PAGE

6.1.8

TEST

7 - QOVERPRINT

TEST

THIS TEST 1S DESIGNED 10 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-a

ROW 3

g-sP

THE
RESULTING
PATTERN
nggp?%gggb
CHARACTERS
CHARA
.

WILL
BE
A
C(HECKERBOARD
PATTERN
AND
THE
SHOULD
BE
ALIGNED PROPERLY WITH THE INITIAL

EXAMPLE:
MMMMMMMMMMMM MMM

00dddadddaddaaddaa

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

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

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

THE

SAME

COLUMNS.

:
EXAMPLE
===

870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888

TERM (DL11 R KL 1)
i3=JUN-79 1 + & 33

===

CZLACFO LA36
CZLACF.PIN

962
963

964
965

966
967
968

15:35

PAGE

TEST
TEST

10 - PRINTING FREQUENCY SWEEP TEST

PRINTS

THE

CHARACTER ''M'' REPEATEDLY,

30(10)

CHARACTERS

PER

THE

LAST

NEW DELAY

= OLD DELAY

+ OLD DELAY/16 + OLD DELAY/128

TWO LINES

DO JUST

REVERSE.

NEW DELAY

= OLD DELAY

THE

TIME

INTERVAL

BETWEEN

CHARACTERS
IS
DECREASEC
FROM
1.8
SECONDS TO
30(10) MILLISECONDS
USING THE FOLLOWING FORMULA TO AGAIN CREATE A LOGARITHMIC DECREASE:
- OLD DELAY/16 - OLD DELAY/128

LOOK FOR POSSIBLE MISALIGNMENT OF THE
(HARACTERS
CHARACTERS AS AN INDICATION OF TIMING PROBLEMS.

SPACES

BETWEEN

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

BETWEEN EACH PRINTED LINE.

FEED
LINE

EXAMPLE:
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH

6.1.10
THIS

TEST

(HECK
1851,

- RIBBON FEED TEST

CHECKS THE RIBBON FEED MECHANISM BY

LINES

PRINTING A SINGLE

X'S DOWN THE LEFT HAND MARGIN OF

FOR PROPER OPERATION OF

THE RIBBON FEED

THE PAGE.

MECHANISM

COLUMN

VISUALLY

DURING

THIS

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

FEED
LINE

BETWEEN EACH PRINTED LINE.

EXAMPLE:
4

960
961

LINE
FOR
FOUR
LINES.
DURING THE FIRST TWO LINES, THE TIME INTERVAL
BETWEEN CHARACTERS
1S
INCREASED
FROM
30(10)
MILLISECONDS
T0
1.8
SECONDS USING THE FOLLOWING FORMULA TO CREATE A LOGARITHMIC INCREAS
E-

958
959

THIS

943
944
945
946
947
948
949
950
951
952
953
954
955
956
v57

6.1.9

942

13-JUN=79

PAGE

922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941

30A(1052)

SEQ 0020

916
917
918
919
920
921

MACYT1

CZLACFO LA36 TERM (DL11 R K L 1M
CZLACF
. P11
13-JUN=-79 *5: 3 3

CZLACF.P11

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

= OO0 NN
—
W

PNURURNIND
— s b s s et
2

el ol
el el
D ol
. ol
—

jelelelslelalelelelelelele]

1010

08 |

CZLACFO LA3S TERM (DL11

% KL 1)
13-JUN-79 1
33

MACYT1

30A(1052)

13-JUN=79

15:35

PAGL

SEQ 0021
PAGE

6.1.11

TEST

12 - PRINTER BELL

TEST

THIS 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

THIS TEST
IT IS NOT

17 = LIFE TEST

RUNS CONTINUOUSLY AND 1S RUN AS AN INDIVIDUAL,
PART OF 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 &
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.
1F 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 IF KEYBOARD CONTROL IS IN USE.
:
EXAMPLE
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

888B8BB888BBB88BBB8B8BBBBBBRBBB
8BBBBBBBBBBBBBBB88BBBBBBBBBBBBB

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

FELD

AFTER EVERY RECEIVED CARRIAGE RETURN, THE TEST WILL PRINT 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

88B8888BB8BBBBBB
88B8B88BBBBBBBRBB
B8B8BBBBBBB
.88
F
88B888B8B8888BBBBB
B8BB3BBBBBBBBBEB

209

CZLACFO LA36 TERM (DL 2 KL 1)
CZLACF.P1T
13-JUN-79 1 5: 33
1024
1025
1026
1027
1028
1029
1030

1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068

MACY11

30A(1052)

13=JUN=79

15:35

PAGE

SEQ 0022
PAGE

6.2

ECHD TESTS

THESE TESTS ARE DESIGNED AS A TEST OF
THE
KEYBOARD
AND
AN
AID
IN
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
MODE.
ANY CHARACTER TYPED ON THE KEYBOARD (EXCEPT
ECHOED TO THE PRINTER.

THE LA36 TERMINAL

1S IN HALF

DUPLEX WITH THE AUTO LINE FEED

AVAILABLE,
TYPING
A
CARRIAGE
THE TERMINAL DURING THIS TEST.

6.2.2

TEST

A
SIMULATED
LOCAL
A "RUBOUT'') WILL BE

RETURN MAY

CAUSE

OPTION

A GARBLED RESPONSE

21 - LINE ECHO TEST, FAST RATE

THIS TEST CONTINUALLY SENDS FULL LINES OF
ANY
CHARACTER
UP
10
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
CMARACTER
IS
TYPED
OR THE TEST IS
TERMINATED BY TYPING A 'RUBOUT''.
THE CHARACTERS
ARE
TRANSMITTED
AT
THE MAXIMUM RATE WITH A CARRIAGE RETURN=LINE FEED INSERTED AFTER EVERY

132(10) PRINTABLE CHARACTERS.

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

LOST OR GARBLED WHENEVER A CHARACTER

WITH THE AUTO LINE FEED OPTION SET
AFTE?E EV%RE
PRINTED LINE.

6.2.3
THIS

CARRIAGE

RETURN,

TEST

IDENTICAL

TEST

TO PRODUCE AN AUTOMATIC

THERE

TEST 22 - LINE ECHO TEST,

INSERTED
BETWEEN EACH CHARACTER
LCv BETWEEN (HARACTERS.

CMARACTERS

IS TYPED ON THE KEYBOARD.

WILL BE

A BLANK

LINE

MAY
FEED

LINE BETWEEN EACH

SLOW RATE
21

EXCEPT

A DELAY

TO ALLOW THE

1.8

SECONDS

HEAD TO PERFORM AN

lelelelolololelelele)

i
G

WWAWWIVRON NN
— =
s
s s e s

e e

D e

e e et D ol
D e
D

e e ol e e e

S el el ot D el el el e

D ot B D el it D e
e

) el o

ol Sl ol et B ol

e e T

N=OOVENO
NS W =0 VN VNS W —=O VBNV
W —O

1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099

— vt —

010

CZLACFO LA36 TERM (DL11 £ KL )
CZLACF.P11
13-JUN-79 1 52 33

MACYT1

30A(1052)

13-JUN=79

15:35

PAGE

SEQ 0025

|
[|

PAGE

6.2.4

TEST

23 - CHARACTER/CODE ECHO TEST

THIS TEST WILL PRINT THE OCTAL CODE RECEIVED BY THE PROCES
SOR FfOLLOWED
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

CHARACTERS FOR

EITHER
THE

LINE

ODD

TO BE

EVEN.

PRINTED.

ALLOW

SUFFICIENT TIME BETWEEN

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

EXAMPLE:

301
263
215
240
6.2.5
THIS

A
3
(R
SP

00D
00D
EVEN
EVEN

TEST 24 - SELECTED PATTERN ECHO TEST
TEST

1S DESIGNED

}:E%REOrTEPSTTERNS FOR
H

TO GIVE MAINTENANCE

LD.

THE

FLEXIBILITY

CHOOSE

ISOLATING ANY SPECIFIC PROBLEMS WHICH MAY ARISE

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

C(HARACTERS

TEST 25 - BELL ECHO TEST

THIS TEST 1S DESIGNED TO TEST THE BELL ON COLUMN
OCCURRED ON THE LINE.
THE TEST PRINTS A MESSAGE:

TYPE ANY PRINTABLE CHARACTER AND LISTEN FOR BELL

TYPING

HAS

vvveveununnn

AFTER THE TEST MESSAGE 1S PRINTED, TYPE ANY PRINTABLE CHARACTER ON THE
KEYBOARD.
THE CHARACTER WILL BE ECHOED AND THE BELL SMOULD RING.
THE
MESSAGE WILL THEN BE TYPED AGAIN.
TYPE THE ''RUBOUT' KEY TO
TERMINATE
THE TEST AT ANY TIME.

]

;

0011

CZLACFO LA36

CILACF.P11

TERM

(DL1!

i13-JUN-79

& KL11)

MACY11

15:33

30AC1052)

13-JUN-79

15:35

PAGE

SEQ

1133
1134
6.4

1138
1139

STANDARD

THE SWITCH REGISTER CONTROLS MAY BE USED.
A DESCRIPTION OF EACH
TEST
IS
GIVEN
IN
THE PROGRAM LISTING.
ANY ERRORS ENCOUNTERED DURING THE

}}zg

170 TESTS WILL CAUSE A MALT AT LOCATION “ERRHLT" IF

}}Zg

LTITLE

}}:g
1148

:AUTHORS:

}}gg

1157
1158
;}53

1172

11;3

ROBERT W.

:
:
:

}};9

1174

1175

11;6
177
1178
1179
1180
1181
1182

1183

1S DOWN.

CZLACFO LA36 TERM (DL11 & KL11)

1150
1151
1152

1163
1%og
116
1166
}}6;
6
1169

SWITCH 14

ILA36 DIAGNOSTIC (DL11 & KL11 INTERFACE)

1149

1/0 TESTS

THESE TESTS ARE DESIGNED AS A BRIEF
CHECK
OF
THE
CONSOLE
TERMINAL
INTERFACE
LOGIC.
EACH CHECK IS STRUCTURED AS AN INDEPENDENT TEST AND

1140
141

6
}}o;
o

0024

PAGE 24

1135
}}gg

;
SSWITCH
:

tos
:
;
P
:
.
oy

o
:
:

;

&
09

:
:
P08
:
:
: 05-00
;

t 07-00

BAKER

R. QUENNEVILLE
RALPH A. SCHAUBER
JOHN V. CHATALIAN

.SBTTL

DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754

SWITCH REGISTER OPTIONS
POSITION

FUNCTION

uP (1)
DOWN (0)

HALT AT COMPLETION OF CURRENT
CONTINUE NORMAL TEST SEQUENCE

DOWN (0)

(1)

HALT ON ERROR

(1)

DRIVE ONLY CONSOLE

DOWN (0)

uP (1)

DOWN (0)

P (1)

CONTINUE ON ERROR

DRIVE ALL TERMINALS

TERMINAL

LOOP ON INDIVIDUAL TEST

NORMAL TEST SEQUENCE

CPU TYPE IS AN LSI-11, PDP-11/03

DOWN (0)

ALL OTHER PDP-11

MALT TO SELECT TEST AT END OF

(1)

DOWN (0)

TEST

CPU'S$

LOOP ON TEST SEQUENCE

CURRENT

TEST

TEST # SELECTION

# OF COLUMNS AT START-UP

i
|

]
0012

CZLACFO LA36 TERM (DL11

CILACF.P1T

& KL11)

MACY11

13-JUN-79 15:33

30A(1052)

15:35

SPECIAL OPERATIONAL INFORAATION

}}gg

.SBTTL

1186

:1.==

1187
1188

PAGE 25

SEQ 0025

SPECIAL OPERATIONAL INFORMATION

THE_STANDARD CONSOLE TERMINAL INTERRUPT VECTOR AND REGISTER

:
:

ADDRESSES ARE USED. TO REDEFINE THE LOCATION OF THE CONSOLE
TERMINAL THE SYMBOLIC LOCATIONS ''CONADD'* AND ‘‘CONVEC'* SHOULD

;}gg

BE CHANGED BEFORE START UP.

1191

:2.--

BEFORE START UP REFER TO THE DESCRIPTION OF THE ROUTINE "DLY'".

}}gz

SHOULD BE SET UP BEFORE RUNNING THE DIAGNOSTIC.

1195

:3.==

1192

}}gg

1198

;;gg

1201

1202
1203

;ggg

1206

1207
1208
1209
1210

THE PDP-11 MODEL AND MEMORY TYPE AND

1F CPU IS A PDP-11/03 , LSI-11 SET SWITCH REGISTER

BIT 09 TO A 1. SPECIAL TESTS ARE RUN ON THE DLV11.

4.==

SYSTEMS WITHOUT A HARDWARE SWITCH REGISTER SHOULD USE

MEMORY LOCATION 176 AS A SOF TWARE SWITCH REGISTER.

:5.==

THIS DIAGNOSTIC IS FOR VERIFICATION OF BASIC TERMINAL

:
:

FUNCTIONS ONLY. IF THE TERMINAL UNDER TEST HAS HARDWARE
OPTIONS INSTALLED RUN DIAGNOSTIC MAINDEC-11-DILAF-A. THE

:6.--

CONTROL G FUNCTION PERMITS CHANGING THE SOFTWARE SWITCH REGISTER

LA36 TERMINAL OPTIONS TEST.

:
;
:
:

;

1213

1215
1216
1217
1218
1219
1220
1221
152§
122

:
;CHGF1
;CHGF2
;CHGF3
;CHGF4
:CHGFS
;CHGF6
;CHGF7

1224

TIMING IS A FUNCTION OF

}g}g
1214

;

13-JUN-79

AT ANY TIME AFTER A
TEST.
ALSO, AT TEST START, IF
NO HARDWARE SWITCH REGISTER, A MESSAGE WILL ASK FOR
SWITCH REGISTER SETTINGS WHICH MUST BE PROVIDED VIA
CONTROL U ALLOWS RESTARTING THE PROCESS IF AN ERROR

THE NUMBER MUST BE A SIX DIGIT OCTAL VALUE.

=
=
=

THERE IS
SOF TWARE
TTY KEYBOARD.
WAS MADE
.

ECO HISTORY
NEW STORAGE LOCATIONS FOR REFERENCE IN “G MODE.
CHANGE START UP FOR ENTERING SOF TWARE SWITCH REGISTER INFO.
CHECK FOR “G BETWEEN TESTS.
CLEAR INTERRUPT ENABLE BIT TO PREVENT PREMATURE INTERRUPIS.
ROUTINE TO CHECK PRINTOUT, UPDATE SOFTWARE SWITCH REG.
NEW MESSAGES FOR SOF TWARE SWITCH REG ROUTINES.
COMBINING LSI-11 TESTS TO ELIMINATE CLEARING DONE BIT IN 1KS

000000
000001
000002
000003
000004
000005
000006
000007
177776

15:35

PAGE

SEQ 0026
SYSTEM EQUATES

R1=%1
R2=%2
R3=%3
R4=%4
R5=%5
SP=%6
PC=%7
PSW=177776

A D

nunn P
B
L
Dt
[=d=l=]
o
(=l=l=l]
o
(=l{=l=l=]
o

i
P

e g

VOO NO WV
WN—=O N
0

e L L

001000
002000
004000
010000
020000
040000
100000
000000
040000
004000
005726
022626
000340
000200
000200
001000

NN —=O
N

SYSTEM EQUATES

D e

000001
000002
000004
000010
000020
000040
000100
000200
000400

2000
4000
10000

20000

4=40000

81715100000
OPEN=0
SCOPSW=BIT14
NITRSW=BIT11

POPSP=5726
POPSP2:22626
PRTY7=340
PRTY4=200
ACRLF =200
LSI11=B119
H

104003
104004
104095
104006
104007
104010
106011
1040612

RO=%0

104000
104001
104002

13-JUN-79

—

1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280

1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250

.SBTTL

~—-_--~_~—-

1225
1226
1227
1228
1229

MACY11 30A(1052)
SYSTEM EQUATES

D 0D Cd 00 O T CD T CO 0D 0D D O 0

()

0013

CZLACFO LA36 TERM (DL1 £ KL i
ILACF P11
13-JUN-79 1 5: 33

PROGRAM TRAP EQUATES
TYPE=EMT+0

ERROR=EMT+1
EHALT=EMT+?2
STRDRV=EMT+3
STPCHV=EMT
+4
CHAIN=EMT+5

CHALT=EMT+6
TYPEM=EMT+7

DELAY=EMT+10

TTIYCTL=EMT+11
CRLF=EMT+12

:SCOPE SWITCH

;TEST

LOOP SWITCH

;POP STACK ONCE

:POP STACK

TWICE

;PRIORITY LEVEL DEFINITIONS

:FLAG FOR LSI-11,11/03

CZLACFO LA36 TERM (DL11
CZLACF P
13=JUN=79 1

1281
1282
1283
1284
1285
1286
1287

1288
1289
1290
1291

104013
104014
104015
104016
104017
104020
104021

104022
104023
104024

104025

MACYT1 30AC1052)
SYSTEM EQUATES

13-JUN-79

SCRLF=EMT+13
LF=EMT+14
PRINTC=EMT+15
PRTHDR=EMT+16
PRNT=EMT+17

READ=EMT+20
AREAD=EMT+21
CR=EMT+2?2

BTOASC=EMT+23

FORWD=EMT+24
READC=EMT+25

15:35

PAGE

SEQ 0027

CZLACFO LA36 TERM (DL11 & KL 11
CZLACF P11
13-JUN-79 15:33
1292
1293
1294
1295

1296

NN NN N L

N—‘O*OWNOU‘J*;,‘N-‘0.0

—-_._._a_._‘_.._.—o_.._.-n—n—n—o—-_.—-_.—a_a—o_a—a_‘_a
N NN U
AN NN
N NN NN NN NN
W
NN N
P I W WO
N NN
— b
e
OOC®NO
NS W =00
NO VNS W

1297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307
1308
1
1
1
11
1
1

000000
000002
000004
000006
000010
000012
000014
000016
000020
000022
000024
000026
000030
000032

000042

000046

000052

MACYT1
TRAP

CATCHER

13-JUN-79

(

15:35

STARTING ADDRESSES

PAGE

SEQ 0028

-SBTTL

TRAP CATCHER & STARTING ADDRESSES

000000

.ENABL
LASECT

ABS,AMA

000000

.=0

000002
000000
000006
000000
000012
000000
000016
000000
000022
000000
000026
000000
003010
000340

.42

MACHER:

.42

;TRACE

RY.

;TRAP TO CALL

;POWER FAIL

EMTINT
PRTY7

;EMT

HALT
HALT

HALT

000046

.46

011524

LOGICAL

000052

552

010000

000174

=14
DISPREG:
SWREG:

001026
000754
000772
001010

000000

.WORD
.WORD

JMP
JMP

JMP

000600

START
STARTI

START?2

START3

0
O

TRAP
IOx

TRAP

;SOF TWARE DISPLAY
;SOFTWARE SWITCH REGISTER

sSTART UP WITH 1/0 TESTS RUNNING
;START UP, SKIP ALL I/0 TESTS

sSTART UP TERMINAL CONTROL WITH 1/0 TES'S
sSTART UP TERMINAL CONTROL WITHOUT

.=600
SPBOT:

TRAP

;RESERVED INSTRUCTION TRAP

000137
000137
000137
000137

BUS ERROR

.42

HALT

000000

000200
000204
000210
000214

;SP OVERFLOW,

HAL

=42

000000
000000

JUNASSIGNED TRAP

HALT
.;21

000042

000174
000176

000600

30A(1052)

;BOTTOM OF

STACK

1/0 TESTS

CZLACFO LA36 TERM (DL11 K KL )
CZLACF P11
13-JUN=79 1 5: 33

0
o

AN N NN N N U U N N U

N N N NN N N N

00 00 00 00 00 00 00 00 00~~~ ~ ~ N~~~ ~y
BN NS W —=O VNV
W —O

A N

1341
1342
1343
1344
1345
1346
1347

1391
1392
1393
1394
1395

1396

MACY11 30A(1052)
13-JUN-79
SYMBOL D EFINITIONS

-SBTTL

000602
000604
000606

000610
000612
000614
000616
000620
000622
000624
000626
000630
000632
000634
000636
000640
000642
000644
000646
000650
000652
000654
000656
000660
000662
000664
000666
000670
000672
000674
000676
000700
000702
000704
000706
000710
000712
000714
000716

177560
000060
176500

000020
177560
177562
177564

177566
000060

000200
000064
000200
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000251
000000
000000
000000
000000
000000
000000
000000
000000.
177570

000000
177570
€00000

000000
000000
000000
000000
000000

15:35

DLNR:
%S:
TKB:
TPS:
TPB:
TKVIR:
TKLVL:
TPVIR:
TPLVL:
FSTDL:
CNTLSW:
RTNNO:
NXTST:
SCOPTR:
PRGID:
:
CRBUF
CTRA:
WIDTH:

LEVEL:
DLCNT:
ICTR:

REPT:
BRCTR:

COUNT3:

;ADDR OF CONSOLE RECEIVER STATUS REG
:CONSOLE TERMINAL INTERRUPT VECTOR
:ADDRESS OF FIRST DL11, DEFAULT TO DL11-A,B

176500

;SET TO 175610 FOR FIRST 16 (OF 31) OR
;SET TO 176000 FOR LAST 16 (OF 31)
;OR SET OTHER DESIRED START ADDRESS
:# OF DL11'S TO BE INITIALLY ASSUMED
;CONSOLE RECEIVER STATUS REG
;CONSOLE RECEIVER BUFFER
;CONSOLE TRANSMITTER STATUS REG

16.
177560
177562
177564
177566
60

;CONSOLE TRANSMITTER BUFFER
:C.T. RECEIVER INTERRUPT VECTOR
;C.T. RECEIVER PRIORITY LEVEL
:C.T. TRANSMITTER INTERRUPT VECTOR
:C.T. TRANSMITTER PRIORITY LEVEL
;ADDRESS OF FIRST ACTIVE DL11
;CONSOLE TERMINAL CONTROL SWITCH
;CONTAINS CURRENT TEST NUMBER
;CONTAINS ADDRESS OF NEXT TEST
:CONTAINS ADDRESS OF TEST SCOPE ENTRY

PRTY4

64
PRTYS
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN

(HGF
)

DISPLAY: 177570
TIB:
OPEN
TEMPST: OPEN
COUNT:
OPEN
FILL:
OPEN
:
MODE
GPEN
(NT:
OPEN

SYMBOL DEFINITIONS

XCSR:
TIMER:
251
SPCNT:
OPEN
CURTST: OPEN
TEMPCH: OPEN
PARITY: OPEN
PCHAR:
OPEN
LFCNT:
OPEN
INCHK:
OPEN
TEMP:
OPEN
177570
SR:
CNTR:
OPEN

PAGE

SEQ 0029

CONADD: 177560

:
CONVEC
DLADR:

seveneer

000720
000722
000724
000726
000730
000732
000734

;CONTAINS TEST PROGRAM INDICATORS
: CURRENT PAPER WIDTH, BINARY
;LEVEL OF EXECUTION

:# OF

MULTIPLE

:1/0 TEST

DL11S

ITERATION COUNT

:TEMP STORAGE FOR TESTS E021 & EO022
:COUNTER FOR ROUTINE ‘'AREAD'
:COUNTER FOR ROUTINE "‘PRINTC"
;ADDRESS OF MULTIPLE DL11 STATUS
:1 MSEC COUNTER FOR ROUTINE ''DELAY''
:COUNTER FOR TEST ROUTINE ''PT3'
:ADDRESS OF CURRENT TEST
:TEMP STOR FOR ECHO TESTS

:PARITY FLAG FOR RECEIVED CHAR

TERTRTRNIERAORYE

:CHAR CODE WITH PARITY BIT
;COUNTER FOR TEST ROUTINE "'P14'"
:CHECK FOR INPUT FLAG
: TEMPORARY WORKING STORAGE
:SW REG ADDRESS
;:TIME COUNTER FOR LSI=11 TESTS
:DISPLAY REGISTER
: TEMPORARY KYBD BUFFER STORAGE

: TEMPORARY WORK LOCATION

:LOOP COUNT FOR TEST
;ZERO FILL SWITCH
sNUMBER OF DIGITS TO TYPE
;1TERATION COUNT

"l’l""i"""""."'l""l"".

CZLACFO LA36 TERM (DL11 £ KL m
CZLACF P11
i13=JUN-79 1 p - 33

1397

MACY11
SYMBOL

30A(1052)
13-JUN-79
DEFINITIONS

15:35

PAGE

SEQ 0030

FASSE IR

CZLACFO LA36 TERM (DL1! £ KL 1M
CZLACF.P
i3-JUN-79 15:33

F
3
MACYT1 30A(1052)
13-JUN-79
15:35
PROGRAM INITIALIZATION & CONTROL

}ggg

.SBTTL

1600

16403

ill,g;,

000736
000742
000744

005737
001403
011600

1409
1410
1411
1412
1413
1414
1415
1416
1417
1418
1419
1420
16421
1422
1423

000746
000750
000752
000754
000762
000770
000772
001000
001006
001010
001016
001024
001026
001034
001042

005740
000000
000002
012737
012737
000424
012737
012737
000415
012737
012737
000406
012737
012737
012706

1425
1426
16427

001046
001052
001056

013746
013746
012737

1429
1430
1431
1432
1433
1434
1435
1436
1437
1438
1439
1440
1441
1442
1443
1444
1445
1446
1447
1448
1449
1450
1451
1452
1453

IN SWITCH REGISTER

CONTROL

THE

WILL BE ADVANCED TO THIS COMMON HALT WHERE

CPU

A NEW TEST WILL BE EXPECTED TO BE STARTED

IrERREEYYE

16428

SEQ 0031

PROGRAM INITIALIZATION & CONTROL

; COMMON HALT==--WHEN

1602

1424

1401

16406
1407
1408

PAGE

001064
001072
001074
001076
001100
001106
001114
001122
001126
001132
001140
001142
001146
001152
001156
001162
001166
001174
001200
001206
001212
001216
001222
001230

022777
001405
000412
022626
012737
012737
012737
012637
012637
022737
001002
004737
013701

012721

013721
005777
012777
005037

012737

005037
005037

005037
012737
004737

000654

CHLT:

SELHLT:
START1:

177777
104006

005356
001772

104011
005406

001772
005356

START2:

104011
177777

001772
005356

START3:

005406
104006
000600

005356
001772

START:
STARTX:

1871
BEQ
MOV

LEVEL
SELHLT
aSP,RO

ST
HALT
RTI]
MOV
MOV
BR
MOV
MOV
BR
MOV
MOV
BR
MOV
MOV
MOV

#177777 ,AT0X
#CHALT ,WAITF
STARTX
FTTYCTL ,WAITF
#ATT,ATOX
STARTX
#TTYCTL ,WALITF
#177777,A10x
STARTX
FAT1,ATOX
#CHALT ,WALTF
#SPBOT,SP

MoV
MOv
MOV

6,-(SP)
4,-(SP)
LT T 12

CMP
BEQ
B8R
(MP
Mov
MOV
MOV
MOV
MOV
CMP
BNE
JSR
MOV

#-1,aSR
sREFERENCE HARDWARE SWITCH REGISTER
65%
JIF IT = =1,USE SOFT SW REG
66%
: THEN USE HARDWARE SW REG
(SP)+,(SP)+
;CORRECT THE STACK, NO HDWE SW REG
#202,TIMER
;ADJUST TIMER FOR LSI-11
#SWREG, SR
;POINT TO SOFT SW REG
¥DISPREG,DISPLAY
;POINT TO SOFT DISP REG
(SP)+,ans
;RESTORE VECTORS
(SP)+,a#6
#SWREG, SR
;1S SOFT SWREG SELECTED
60%
:1F NOT,BR OVER NEXT OPER
PC,CNTLU
;SOFT SW REG INPUT ROUTINE
TKVIR,R1

-(RO)

JRRRRERRRERRENONRY

000006
000004
001076

CHGF2:
000004

177777

177622

000202
000176
000174
000004
000006
000176

000672
000714
000720

013752
000622
014176
000624
177426
000100
000710
000006
000644
000634
000654
003546
003776

000714

64%:

65%:
66%:

67%:
60%:

MOv
177416

000004

MOV
187

MOV
CLR

MOV
CLR
CLR

000024

sTEST CURRENT LEVEL
;BRANCH IF 0, DO NOT HALT
:PUT ADDRESS OF CALLER INTO RO

CLR
MOv
JSR

"'t"".""l"l

FTTINTS,(R1)+

TKLVL, (R1)+
aTkB

sRETURN FROM INTERRUPT
;FORCE END OF 1/0 TESTS
;FORCE SR CONTROL
;FORCE TERMINAL CONTROL
;FORCE ALL 1/0 TESTS

;FORCE TERMINAL CONTROL
;FORCE END OF 1/0 TESTS

;FORCE ALL 1/0 TESTS
:FORCE SR CONTROL
sSET STACK POINTER
;SAVE CURRENT
sSET UP LOC.

;MEMORY TRAP

VECTOR
& FOR NON-EXISTANT

:VECTOR ADDRESS T0 LOC 60

;PRIORITY TO LOC 62
:CLEAR DONE FLAG

#100,37K$
INCHK

:SET TTY INTERRUPT ON
;ALLOW INPUT CHECKING

PRGID
C(NTLSW

:INITIALIZE PROGRAM FLAGS
SINITIALIZE TERMINAL CONTROL

#6 ,MACHER

LEVEL
FPEAIL,24
PC,CONIT

;CLEAN UP

SWIT(H
SINITIALIZE LEVEL
;SET ADDR POWER FAIL ROUTINE
;SET UP CONSOLE TERMINAL ADDRESS

CZLACFO LA36 TERM (DL11 % KL 1)
CZLACF P11
13-JUN-79 1 $: 33

1454
1655
1456
16457
1458
1459
1460
1461
1462

1463
1464
1465
1466

1467

1468
1469
1470
1471

1472
1473

1474
1475
1476
1477
1478
1479
1480

MACY11 30A(105 2)
13-JUN-T79
15:35
PROGRAM INITIALIZATION & CONTROL

PAGE

SEQ 0032

;'.'."""

:READ THE PAPER WIDTH, NUMBER OF

;FROM SWITCH

COLUMNS,

POSITIONS 0-7.

SAVE

AND

:CONVERT TO 3 ASCII CHARACTERS. A WIDTH GT13?

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

:THE SWITCHES MAY BE CHANGED ONCE THE PROGRAM TITLE OR THE DL11

sMESSAGE

HAS

;"""""

001234
001240
001244
001250
001252
001256
001260
001264
001270
001274
001300
001302
001304
001306
001312
001314
001316
001320

017701
042701
020127
003003
020127

177454
177400

000204
000035

1%:

000204
000652
014627
000003

2%:
3%:

TO PRINT,

MOV
BIC
CMP

aSR,R1
#¥177400,R1
R1,#204

CMP

R1,#35

BGT

’%
3%

#204 ,R1
R1,WIDTH
#HDRO,RO

¥#3,R2
4%:

000000
104007
014376
012737

STARTED

5%:

5%
6%

sPUT

(SR)

sNOT

30 NOR GT

sADDR

TO STORE

ASC11

COLUMN VALUE

;D0 A 3 CHAR. CONVERSION

s CONVERT NO.
;TRANSMIT

#NOP 4%

132

;COLUMNS LT 30 OR GT 132, DEFAULT
;SAVE NO. COLUMNS IN WIDTH

:TYPE

001302

INTO R1

;SAVE ONLY BITS 0=-7
sTEST NO. COLUMN 67132
;COLUMNS GT132, DEFAULT 10 132
sCHECK IF NO. COLUMNS LT 30

:NULL CODE

000240

COUNT

COLUMNS TO ASCII

PROGRAM

TITLE

FIRST

TIME

RUN

CZLACFO LA36 TERM (DL11 £ KL 1)
CZLACF P
13-JUN-79 1 y §- 33
1481
16482
1483
1484
1485
1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500

—=O O oo
NS W
VS WN—=O VN

ot et

el el et e

D e

Al L LV LV LV LV LV IV TV IV TV n

PROPONUMNINUNON)
—
s
s =
——
L OO

1501
1502
1503
1504
1505
1506
1507

MACY11 30A(1052)
13-JUN-79
15:35
PROGRAM INITIALIZATION & CONTROL

PAGE

SEQ 0033

cEERERENRRY

:THIS NEXT

PART

CHECKS

THE

PRESENCE

DL11-A OR DL11-C

:STARTING AT 776500. A MESSAGE WILL BE PRINTED INDICATING THE NUMBER
;PRESENT. THE PRINTER DIAGNOSTIC WILL ADDRESS EACH OF
:THE MULTIPLE DL11S IN THE SYSTEM [t SWITCH 13 IS DOWN (0).
:i".!""'

001326
001334
001340
001344
001350
001352
001360
001364

001366
001370
001374

001400
001402
001404
001406
001410
001412
001416
001420
001422
001426
001432
001436
001440
001442

001406
000606
000610
000656

000004

001420
000632

00004

104023
104007
014551

END3:

1%:

000010
000656

000770
005301
001404
062700
000754
022626
013701
012700
012702

6%:

2%:

END2A:

000010

END2:

000656
014564
000002

END4:

MOV

WEND2A MACHER

MOV
MOV
CLR

DLADR,RO
DLNR,R1
DLCNT

MOv
MOV

NEND2 ,MACHER
RO,FSTDL

TST

BR
187
ADD
INC
DEC
BEQ
BR
DEC

BEQ

(RO)

2%
(RO)
#10,R0
DLCNT
R1
END4
1%
R1

;INITIALIZE

TIME OUT

;YES, RESET TIME OUT TRAP
:STORE ADDRESS OF FIRST DL11
; CONTINUE
215 DL11 PRESENT

;POINTER AND DL11

END4&

JYES, EXIT

sNO, CHECK NEXT
: CONTINUE

MOV

DLCNT ,R1

SGET # DL11'S

¥2,R2

:# OF ASCI] CHARS
; CONVERT NUMBER
: TYPE MESSAGE

MOv

ADDRESS

: INCREMENT COUNT OF DL11'S
;DECREMENT DL CHECK COUNT, DONE?
:BRANCH IF DONE
;CHECK PRESENCE OF NEXT DL11
:DONE DL CHECK?

#10,R0
END3

MOV
BTOASC
TYPEM
DL11S

TO RO

;1S DL PRESENT?

ADD
BR

POPSP2

TRAP

;ADDRESS OF FIRST DL11
:SET DL CHECK COUNT
sINITIALIZE DLCNT

#DLT11ST,RO

;DL11 NOT PRESENT

:ADR OF ASCII

CHAR STORAGF

cRERRRREORY

;EXECUTE THE STRING OF

:THEN EITHER HALT
:PRINTER TESTS AS
:".ll"."

001444
001450

000636
000654
005356

001454
001462
001464
001472
001474

005354

000177

177176

177777

000640

CLR
(LR

(MP

BEQ
MoV

FORWD
JMP

CONSOLE TERMINAL

1/0 TESTS

AT LOCATION SELHLT OR CONTINUE
A FUNCTION OF SR BIT 8.

RTNNO
LEVEL

WITH

:SET ROUTINE NO = 0
;SET LEVEL = 0

A1OX, #177777

sSEE

aCURTST

;ADDRESS OF FIRST 1/0 TEST
:SET UP TEST PARAMETERS
;60 10 1/0 TEST ROUTINE

SKIP
FATO NXTST

1/0 1S 10 BE SKIPPED

CZLACFO LA36 TERM (DL11 R KL (A D)
CZLACF P13
13=JUN-79 15:33
1527

MACYT1

PROGRAM

1531

3
15:35

PAGE 34
SEQ 0034

THIS PORTION 1S THE COMMON RETURN

FOR ALL THREE CLASSES OF TESTS.

1==1F

1532
1533

1534

SETTING THE

}22?

1538
1539
1540

15642

1541

1543
1544

001524
001532
001534
001542
001544

001550
001552
001560

001564
001566
001574
001576
001600
001604
001606
001610
001616
001620
001626
001626
001630
001634
001636
001642

001644
001650
001652

004737
032737
001401
104011
005737
100016

032777
001407
022737
001403
017716

000002
042737
005737

001405
032777
001405
000002
005337
001407
000002
032777
001402
000137
022626
000240
005777
100003
113700
000000

005737
001420
012737

013700
000001

000634

000644

040000

177162

177777

000642

177072
100000
000654

000644

004000

177120

000660
000400
001772
177060
000636
000654

000006

(#14)

ON THE

SR=1.

IT STILL EXISTS.

2==1F THE OPERATOR IS IN THE MAINTENANCE MODE, (Bli 8=1
AT START UP TIME), AND BIT 11=1, THE SELECTED PROGRAM WILL
FIRST HALT. THEN HIT CONTINUE AND PROGRAM WILL LOOP CONTINUOUSLY.
IF

BIT 8=0,

AND BIT

11=0,

THE SELECTED PROGRAM WILL BE

ADVANCED TO THE NEXT TEST IN ITS CLASS.

8 AND 11 = 0, THE CLASS OF
UOSLY SEQUENCED THROUGH.

AS LONG AS BITS

TESTS SELECTED WILL BE

CON-

:
IF BIT 8=1, AND BIT 11=0, THEN THE CPU WILL HALT AT LOC
z
SELHLT AND WAIT FOR THE NEXT TEST NUMBER 79 BE SET IN
:
THE SWITCH REGISTER.
IERERRERRYY
CHGF 3:
CHAINN: JSR
PC,CKSWR
:SEE IF A “G HAS BEEN GIVEN
BIT
#1,CNTLSW
sCHECK IF TERMINAL CONTROL
BEQ
1%
;BRANCH IF NOT
TTYCTL
;GO TO TERMINAL CONTROL
1%:
151
PRGID
;TEST ERROR BIT IN PRGID
BPL
3%
sBRANCH IF ERROR BIT NOT SET
BIT
#SCOPSW,aSR
;ERROR, CHECK IF SCOPE OPTION ON
BEQ
2%
sBRANCH IF NO SCOPING
cmp
#-1,SCOPIR
;YES, CHECK IF OK TO SCOPE THIS TEST
BEQ
2%
;BRANCH IF NOT 0K
MOV
aSCOPTR,aSP
:PUT ADDR OF SCOPE ENTRY INTO STACK
RT]
;GO TO SCOPE ENTRY IN TEST
2%:
BIC
#B1T15,PRGID
:CLEAR ERROR IND. IN PRGID
3%:
1S1
LEVEL
;CHECK LEVEL
BEQ
4%
;sBRANCH IF LEVEL=0
BIT
INITRSW,aSR
;TEST LOOP SWITCH ON (=1)
BEQ
5%
;BRANCH IF NO LOOP TEST
R11
;60 BACK TO TEST

DEC
BEQ
RT1
S$%:
BIT
BEQ
JMP
6%:
POPSP2
CHAINY: NOP
157
BPL
MOVB
HALT
1$:

000004

THE

14 70 0 WILL ALLOW THE

ERROR HALT TO OCCUR AGAIN IF

4%:

177076

"‘SCOPE'' BIT

RESETTING SR BIT

3
:

001500
001500
001504
001512
001514
001516
001522

AN ERROR OCCURRED DURING AN 1/0 TEST

OPERATOR CAN CAUSE THAT TEST TO BE LOOPED
WITHOUT ANY FURTHER ERROR HALTS BY

1535

1577
1578
1579
1580
1581
1582

INITIALIZATION & CONTROL

;s CHAINN-~-

}2%8

1568
1569
1570
1571
1572
1573
15974
1575
1576

13-JUN-79

cerrerveene

1528

1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561
1562
1563
1564
1565
1566
1567

30A(1052)

151
BEQ
MOV

ICTR
6%

#B178,aSR
6%
WAITF
asSRk
1%
RTNNGC,RO
LEVEL
3%
#6 ,MACHER

;DECREMENT TEST ITERATION COUNT
;BRANCH IF COUNT=0
;NOT ZERO, REPEAT TEST
;TEST IF SEQUENCE TEST (BIT8)
sBRANCH TO NEXT TEST IF BIT8=0
;GO WAIT FOR MORE INPUT
7
;POP 2 OFF STACK
;THIS FORMERLY WAS RESET
;CHECK SR
sBRANCH IF NO HALT WANTED
;CURRENT TEST NUMBER T0 RC
sHALT (NOT FOR TEST SELECTION)

;TEST THE CURRENT LEVEL
sBRANCH IF O
;CLEAN UP

S >

L
A

%ASb TERM (DL11 & kL11)
1
13=-JUN=-79 15:33

001660
001664
001666
001674
001676
001704
001706
001712
001720
001722
001750
001732
001749
001746
001754
001760
001762
001766

012706
106024

022737
001004

000600
177777

005354
176764
177777

000400
000200
007374
000006
000600
000177
005237

MACYT1 30A(1052)
13-JUN-79
15:35
PROGRAM INITIALIZATION & CONTROL
MOV
FORWD
CMpP

000640

BNE

000640
000640
176764

000644
000640
000004

2%:
3%:
SKIP:

MOV
FORWD

JMP
cMpP

BNE
BIT
BNE
BIS
MOV
MOV
MOV

FORWD

176710
000654

NEXT1:

JMP
INC

#5SPBOT,SP
#=1,NXTST

¥ATO NXTST

PAGE

SEQ 0035

sSET UP STACK POINTER

;SET UP VALUES FOR NEXT TEST

;END OF

1/0 TESTS

;BRANCH IF NOT END
;RESET NXTST

TO FIRST

;GO TO TEST
;END OF 1/0 TESTS
;BRANCH IF NOT

NEXT1

;BRANCH IF

NOT

;BYPASS SCOPING

¥6 ,MACHER
¥SPBOT,SP

:CLEAN UP
;SET UP STACK

aCURTST
LEVEL

(==1)

;TEST IF WANT TEST SELECTION RIGHT AWAY

#BI1T17,PRGID
#PT0, NXTST

1/0 TEST

:SET UP VALUES FOR NEXT TEST

@CURTST
#-1,NXTST
NEXT

#B1718,asR

(==1)

:PROD TESTING,

GO TO PRINTER TESTS

POINTER

;SET UP NEXT TEST PARAMETERS

;GO TO ROUTINE

:""f.""

N
S
e

rono L T

D e

cococoo>ococoO cooco

—

N—=OVBN
WV
WM —

e %

B Be we

;WAIT

FOR FURTHER

INSTRUCTIONS:

-LOAD PROGRAM NUMBER INTO BITS 0-5 OF THE SR
=SET SR BIT 11=1 70 LOOP ON SELECTED TEST
=SET SR BIT 11=0 AND BIT 8=0 TO LOOP THROUGH
SEQUENCE OF SELECTED TESTS.
=SET SR BIT 11=0 AND BIT 8=1 TO HALT AGAIN AFTER
EXECUTING TEST ONCE

M AASLEEEE
RS

001772
001774
002002
002006
002012
002016
002022
002024
002030
002032
002040
002042
002044
002052
002060
002062
002064

104006
012737
012706

017700
042700
02C027
101403

005037
000403
052737
000241
006100
016037
023727
001744
104024

000177

000006
000600
176702
177700
000037

000004

WAITF:

000644
000200

002614
000640
176606

000644

000640
001772

1%:

2%:

CHALT
MOV
MOV
MOV

#6 ,MACHER
#SPBOT,SP

aSR,RO

sOR TTYCTL iF
;CLEAN UP
:SET UP STACK

START

WAS AT

210

POINTER

:GET CURRENT SW REG

k177700,R0
RO,#37
1$
S:GID

;TEST IF PROG NO. IS 1/0 TEST
:BRANCH I1F EQ OR LT 37. AN ECHO OR PRINTER
:1/0 TEST, CLEAR PRGID

BIS

#B117,PRGID

:BYPASS SCOPING

ROL
MOV
CMp

RO
:GET PROGRAM ADDRESS OUuT OF
PRGTAB(RO) ,NXTST;PROGRAM ADDRESS TABLE

NXTST

FORWD
JMP

aCURTST

BIC
cMpP
BLOS
CLR
BR
cLc

BEQ

;CLEAR C BIT

WALTFH

#WAITF

;TEST

LEGAL

TEST NO.

;BRANCH IF ILLEGAL
;SET UP TEST PARAMETERS
;GO TO TEST

CZLACFO LA36 TERM (DL11 £ KL m
CZLACF.PIY
i13-JUN-79 1 $: 33

MACY11 30A(1052)
13-JUN-79
15:35
PROGRAM INITIALIZATION & CONTROL

PAGE

SEQ 0036

;I'.tt""'

;TTY1-= THIS SECTION 1S USED WHEN THE DIAGNOSTIC IS BEING CONTROLLED BY

:
:
:
:

:
:

THE CONSOLE TERMINAL. IT IS EFFECTIVE ONLY WHEN THE DIAGNOSTIC
STARTING ADDRESS 1S 210 AND SR BIT 8 WAS SET AT START TIME.
THE RESPONSE TO THE MESSAGE ''SELECT TEST NO.'' MUST BE THE 2
DIGIT OCTAL TEST NUMBER FOLLOWED BY :
“L'' TO LOOP ON TEST
"'S'' T0 LOOP ON SEQUENCE
", TO EXECUTE TEST ONCE

ALL

SPACES WILL BE

AND THE RETYPING OF

IGNORED.

:'t..t""'

002070
002072
002076
002100
002104
002110
002114
002116
002124
002126
002134
002136
002140
002146
002150
002154
002162
002166
002170

002172
002174

002200
002202
002210
002212
002216
002220
002222
002230

002234
002236
002240
002242
002244
002246
002250
002256
002260
002264
002266
002270
062276
002302

022626
105777
100013
017705
042705
020527
001004
042737
000413
032737
001401
000002
032737
001402

000137
012737
012700
104010
104007

015041
005037
104020

023727
001773
012700
104010
104017
117777

004737
000541
010005
006305
006305
006305
104020
023727
001773
012700
104010
104017
117777

004737
000516

TTY1:

176514

176510
177600

BIC
CMP
BNE
BIC

000177
0044C0

000634

004000

000634

1%:

000400

000634

2%:

000710

TTY1B:

001626

177777
000036

POPSP2
1STB
BPL
MOv

BR
BIT
BEQ
RTI

BIT
BEQ
JMP

MOV
MOV

aTKS
1%
aTKB,RS

#177600,R5
RS .77
1%
#4600, CNTLSW

TTY1B
NITRSW,CNTLSW
2%

#BIT8,CNTLSW
TTY1B
CHAINY

ILLEGAL

THE ABOVE MESSAGE.

INPUT

WILL

:POP 2 FROM STACK
;TEST IF ANY INPUT
:BRANCH IF NOT
:GET CHAR

;MASK BITS
;CHECK IF RUBOUT
;BRANCH IF NOT
;:CLEAR LOOP BITS

;CHECK IF LOOP ON TEST
:BRANCH IF NO LOOP ON TEST
;LOOP ON TEST

:TEST IF LOOP ON SEQUENCE
:BRANCH IF NO LOOP ON SEQUENCE
;CHAIN TO NEXT TEST

#-1,INCHK
#30.,R0

:STOP INPUT CHECKING
;DELAY FOR HALF DUPLEX

MESG3
CLR

INCHK

: TYPE MESSAGE
;ALLOW INPUT CHECKING AGAIN

CMpP

TEMPCH, #40

DELAY

TYPEM

000710
000700

000040

18:

BEQ
MOV
DELAY
PRNT

000036
176366
002552

000700

176370

000040

176322

2%:

1%
#30.,R0

MOvVB

a1kB,aTPB

JSR

000036
176320
002552

READ

PC,TESTC

;WAIT

FOR

INPUT

;TEST IF CHAR 1S A SPACE

;BRANCH IF YES
sDELAY FOR HALF

;ECHO CHAR
;CHECK

:NO, ERROR

CHAR 1S 0K

RO,RS
RS
RS
RS

CMP

TEMPCH, #40

sCHECK

MOv
DELAY

#30.,R0

;DELAY FOR HALF

MOVB

aT1kB,alPB

BEQ

PRNT

JSR
BR

PLTESTC
8%

DUPLEX

sREADY?

MOV
ASL
ASL
ASL

READ

FLAGGED BY

;0K, PUT CHAR INTO RS
;SHIFT INTO POSITION 5-3

;WAIT FOR NEXT CHAR
IF

;BRANCH IF

A SPACE

SPACE

DUPLEX

;READY?

:ECHO CHAR

sCHECK
;ERROR

IF CHAR
IN CHAR

1S Ok

A '*'

1685
1686
1687
1688
1689
1690

1691
1692

1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704

e
L=}

1708

VNN WN—=O0O
N VI NP — o0

—.—.d—‘—.—.—‘d—.—.—lfl—.fld—.dd—.—‘
NNNSNNNNNNNNN NNNNSNNNN~N
RNV
— -

124

CZLACFO LA36 TERM (DL11 £ KL 1M
CZLACF P11
13-JUN-79 1 5:3%

002304
002306
002310
002316
002320
002324
002326
002330
002336
002344
002352
002354
002362
002364
002372
002374
002402
002404
002412
002414
002422
002424
002432
002440
002444
002450
002452
002456
002460
002464
002466
002474
002476
002502
002510
002512
002514
002522

002530

002532
002534
002540
002542
002550

060005
104020
023727
001773
012700
104010

000700

023727
001052
012737
000403
012737
012737
012706
020527
103033
020527
103007
020527
103404

012737
000402
004737
052737
000241
006105
016537
023727
001403
104024
000177
104017
112777

000601

000040

3%:

000634
000114

000700

000154

000700

000123

000700

000163

MOvB
MOV

CMP

BEQ
CMP

BEQ

CMP
BEQ
CMP
BEQ

000056

000001

000634

000401
000006
000600
000040

000634
000004

CMP
BNE

4%:

5%:

000030
000020
000001

000634
000644

002614
000640

000640
001772

176050

#30.,R0
aTKB,aTPB
#6001,CNTLSW

TEMPCH, #1164

MOV
CMP
BHIS
CMP
BHIS

PAGE

SEQ 0037

;0K,R5 NOW = OCTAL
;CHECK

;BRANCH IF

SPACE

;DELAY FOR HALF

DUPLEX

;READY?

;ECHO CHAR
;SET BITS 11

sNO,

& 0

IS IT AN "'L"" ?

;BRANCH IF YES
;CHECK LOWER CASE

ZEHPCH,'123

:NO, IS IT
sBRANCH IF

TEMPCH,#163

4%
TEMPCH,#56

#6 ,MACHER

#SPBOT,SP
RS, #40
8%
RS, #30
6%

RS5,#20

TEST NO.

;WAIT FOR TERMINATION CHARACTER

5%
TEMPCH, #154

#6401,CNTLSW

MOV

AN ''s"
YES
;CHECK LOWER CASE

s, 1501 A" 7
sNO, ERROR
sYES SET ONLY BIT 0 IN CONTROL WD
;SET BITS 8¢R O

;CLEAN UP

JINIT SP
;1S THIS AN 1/0 TEST
;BRANCH IF YES;1S THIS AN OPTION TEST?
:SKIP IF YES

;1S THIS AN ECHO TEST

BLO

;BRANCH IF NOT

BR
JSR

7%
PC,CONIT

;LEAVE THIS TERMINAL AS CONSOLE
sRESET CONSOLE TERMINAL ADDRESS

BIS
CLC
ROL
MOV
cMp

BEQ

8%:

MOV

FORWD

176136

TEMPCH, #40

gl.cuusu

MOV

68:
7%:

RO,RS

ggv

CmMp

003776
000200

000077

CMP

MOv
DELAY
PRNT

176262

004001
000700

000700

ADD

READ
BEQ

000036
176260

MACYT1 30A(1052)
13-JUN=79
15:35
PROGRAM INITIALIZATION & CONTROL

JMP
PRNT
MOvB
BR

#1,CNTLSW

#B177,PRGID

;sFORCE ECHO TEST

TO A SINGLE RUN

;BYPASS SCOPING
:CLEAR C BIT

R5
PRGTAB(RS) ,NXTST;ADDR OF TEST 10 NXTST
NXTST WAL TF
sCHECK IF TEST EXISTS

aCURTST
#77,31PB
TTviB

;BRANCH IF NOT

sSET

UP TEST

PARAMETERS

;60 TO TEST
:CHECK IF PRINTER 1S READY
:SEND A ‘"2
: TRY AGAIN

——

MACYI1 30A(1052)
13-JUN=79
15:35
PROGRAM INITIALIZATION & CONTROL

PAGE

SEQ 0038 |

;TESTC--CHECKS THAT THE INPUTTED CHARACTER 1S BETWEEN 0 AND 7 INCLUSIVE
NNNN~N NNNNN

£ NN NN
OO0 NO
S

125

CZLACFO LA36 TERM (DL11 & KL 1M
CZLACF.P11
13-JUN-79 15:33

002552
002560
002562
002564
002572
002574
002576
002602
002606
002612

023727

103001
000207
023727
101401
000207
062716
013700
042700
000207

C00700

000700

000002
000700
177770

000060

000067

TESTC:

1%:

2%:

(MP

BHIS
RTS
(MP
BLOS

RTS

TEMPCH, #60

1%
PC
TEMPCH, #67
2%

ADD

#2,aspP

BIC

#177770,R0

MOV
RTS

TEMPCH,RO

;CHECK

NUMERIC

;BRANCH IF Ok
;ERROR RETURN
;CHECK IF EQ OR LY
;BRANCH IF 0K

AND EQ OR GT

;ERROR RETURN

;SET UP RETURN ADDRESS
;GET

CHAR

sSAVE ONLY THE DIGIT

sNORMAL RETURN

PAGE 39
SEQ 0039

;DATA PATH TEST

sPRINTER CHARACTER TEST

;NON=PRINTING CHARACTER TEST
sCARRIAGE RETURN TEST

P13
P14

sMULTIPLE LINE FEED TEST
sSINGLE LINE FEED TEST
sBACKSPACE TEST
sOVERPRINT TEST
sPRINTING FREQUENCY SWEEP TEST
sRIBBON FEED TEST

sPRINTER BELL

;s SPARE
: SPARE

TEST

; SPARE
; SPARE

; SPARE
; SPARE
s SPARE

:L1FE TEST
sCHARACTER ECHO TEST
sLINE ECHO TEST, FAST RATE
sLINE ECHO TEST, SLOW RATE
:CHARACTER/CODE ECHO TEST
sSELECTIVE PATTERN ECHO TEST
;BELL ECHO TEST
; SPARE
: SPARE

:PRARE

: SPARE

; SPARE

P
S
T
R

;1/0 TEST NO.
;170 TEST NO.
;170 TEST NO.
;1/0 TEST NO.
;1/0 TEST NO.
:1/0 TEST NO.
;170 TEST NO.
;1/0 TEST NO.
;1/0 TEST NO.
;1/0 TEST NO.
;1/0 TEST NO.
;1/0 TEST NO.
:1/0 TEST NO.
:1/0 TEST NO.
;1/0 TEST NO.
:1/0 TEST NO.
;1/0 TEST NO.
;1/0 TEST NO.
;1/0 TEST NO.
;1/0 TEST NO.
;LSI TEST NO.
; SPARE
; SPARE

: SPARE

40
41
42
43
44
45
46
47
50
51

(o Xo JV LV IV [V IV IV ]
—_ONOWVS
LN

: SPARE
:SPARE

002650
002652
002654
002656
002660
002662
002664
002666
002670
002672
002674
002676
002700
002702
002704
002706
002710
002712
002714
002716
002720
002722
002724
002726
002730
002732
002734
002736
002740
002742
002744
002746
002750
002752
002754
002756
002760
002762
002764
002766
002770
002772 001772

PT0

PT1
P12

ONOWVES
W
—=O

010464

PRGTAB:

]
] ) ] )

007374

007450
007572
010166
010306

[

80
81
82
83
84

002614
002616
002620
002622
002624
002626
002630
002632
002634
002636
002640
002642
002644
002646

N
3
MACY11 30A(C10 52)
13-JUN-79
15:35
PROGRAM INITI ALIZATION & CONTROL

>
> P 3

NNNNNSNNNNN

[ X+ AV IV IV AV AV AV IV IV
—=OV®NO
VIS W

— d e e e e D e
D D e
NNN~N NNNNNN~NN~N

1741
1742
1743
1744
1745
1746
1747

Oo 0o
oW

026

CZLACFO LA36 TERM (DLI1 g KLID)
CZLACF P11
13-JUN-79 15:33

62
63
64

CZLACFO LA36 TERM (DL11 B KL 1)
CILACF.P1
13-JUN=79 15:123
1797
1798
1799

1800
1801
}gg%

002774
002776
003000

003002
003004
003006

WAITF
WAITF
WAITF

001772
001772
001772

1841
1842

1843
18644
18645
1846
1847
1848
1849
1850
1851

1852

PAGE 40

SEQ 0040

s SPARE
; SPARE
; SPARE

JEERERERESESY

SEMTINT ---ccccccaaa SERVICE ROUTINE FOR TRAPS
:
LOCATION 30.

1807

1829
1830
1831
1832
1833
1834
1835
1836
1837
1838
1839
18640

—

: SPARE
; SPARE
; SPARE

WALTF
WAITF
WAITF

1805
1806

1825
1826
1827
1828

MACYT1 30A(1052)
13-JUN-79
15:35
PROGRAM INITIALIZATION & CONTROL

001772
001772
001772

1804

1808
1809
1810
1811
1812
1813
1814
1815
1816
1817
1818
1819
1820
1821
1822
}ggz

THROUGH

IEERAERREESE

003010
003012
003016
003022
003026
003030
003032
003034
003036
003042
003046
003052
003054
003060
003062

011646
162716
017616
121627
101402
000000
000776
006116
042716
062716
017616
005046
012746
000002
000136

003064
003066
003070
003072
003074
003076
003100
003102
003104
003106
003110
003112
003114
003116
003120
003122
003124
003126
003130
003132
003134
003136
003140
003142
003'44
003146
003150

003164
003406
003434
003444
003474
001500
000736
003252
003524
002070
003302
003230
003304
004412
003324
004402
004200
003726
003314
004074
003650
004272
003160
003160
003160
003160
003160

003152

003160

000002
000000
000035

177001
003064
000000

003062

EMTINT: MOV
SUB
MOV
(MPB
BLOS
1%:
HALT
BR
2%:
ROL
BIC
ADD
MOV
CLR
MOV
RTI
2%:
JMP
EMTTAB:

TYP
ERR
EHLT
STLSRv
STLSPV
CHAINN
CHLT
TYPM
DLY
TTv1
SCRLF
$SCRLF
SLF
SPRTC
$SPRHDR
$PRNT
SREAD
$SAREAD
$CR
$BTASC
$FORWD
$READC
SPARET
SPARET
SPARET
SPARET
SPARET

SPARET

asSP,-(SP)
#2,aSP
a(SP) ,asP
asSP,#35
2%
1%
asSP
#177001,asP

#EMTTAB,aSP
a(SP) ,asP
=(SP)
#3%,-(SP)
a(SP)+

:PUSH STACKED PC TO GET A WORK COPY.
(Q)
:SUB 2 TO POINT TO CALLING TRAP INSTR.
:PLACE TRAP INSTR INTO THIS STACK WORK AREA.
;EXAMINE ITS RIGHT SIDE.
(Q)
;BRANCH IF WITHIN RANGE OF ESTABLISHED TABLE.
;ELSE HALT.
sMULT INSTR BY 2 TO GET WORD DISPLACEMENT.
;STRIP OFF OP CODE AND LS BIT.
;ADD IN STARTING ADDRESS OF TABLE.
;FROM TABLE GET OUT DESIRED POINTER.
sPUSH A ZERO PSW.
;PUSH A PC = TO #3% OF THIS ROUTINE.
;00 RT1 (POP-POP) TO ESTABLISH THE ZERO PSW.
;JMP TO ROUTINE LEAVING STACK AS FOUND.

sMESSAGE OUTPUT ROUTINE
:1/0 TEST ERROR ROUTINE
:UNCONDITIONAL HALT
;KEYBOARD VECTOR/PRIORITY SETUP
sPRINTER VECTOR/PRIORITY SETUP
;COMMON TEST EXIT
;SR BIT 15 HALT
;MESSAGE OUTPUT ROUTINE, MULTI DEVICES
:DELAY ROUTINE
;CONSOLE TERMINAL CONTROL
;CARRIAGE RETURN-LINE FEED TO ALL DL11'S
;CARRIAGE RETURN=-LINE FEED TO CONSOLE
:LINE FEED ONLY (TO ALL)
sPRINT CHAR
sPRINT TEST HEADER
sPRINTER READY
;READ (HAR
;1/0 TEST READ ROUTINE
;CARRIAGE RETURN ONLY (TO ALL)
;BINARY TO ASCII CONVERSION
;FORWARD ROUTINE ( BETWEEN TESTS )
sREAD CONSOLE KYBD ONLY
;SPARE EMT
;SPARE EMT
;SPARE EMT
:SPARE EMT
;SPARE EMT

:SPARE EMI

—

CZLACFO LA36 TERM (DL1Y B kL 1)
CZLACF P11
13-JUN-79 15:33
1853
1854
1855
1856
1857
1858
1859
1860
1861
1862
1863
1864
1865

003154
003156
003160
003162

003160
003160
000000
000776

SPARET:

1887
1888
1889
1890
1891
1892
1893
1894
1895
1896
1897
1898

PAGE

SEQ 0041

SPARET
SPARET
HALT
BR

SPARET

.SBTTL

COMMON ROUTINES USED BY LA36

;SPARE EMT
:SPARE EMT
SHALT IF TRAP TO UNDEF INED
JEMT IS ATTEMPTED.

TESTS

:THIS SECTION CONTAINS MOST ROUTINES CALLED BY
:THE

1867
1868
1869
1870
1871
1872
1873
1874
1875

1882
1883
1884
1885
1886

MASEEESEEE

1866

1876
1877
1878
1879
1880
1881

MACYTT 30A(1052)
13-JUN-79
15:35
PROGRAM INITIALIZATION & CONTROL

VARIOUS TESTS EITHER BY

TRAPPING

THROUGH LOCATION

:30 OR BY SUBROUTINE CALLS (JSR PC,*ee)
.

:t't"'!"'

:TYPE=- A COMMON ROUTINE USED TO TYPE MESSAGES ON
:
CONSOLE TERMINAL ONLY. THE NULL CHARACTER

:
:
H
.

MAAEE

003164
003166
003172
003200
003202
003204
003206
003210
003212
003214
003216
003220
003222
003226

003230
003232
003240
003242
003250

010046
016601
062766
011101
112100
100403
001004
012600

000002
000002

000002
18:

104013
000771

000765

1064017
112777
104017
112777

000002

RSS2

TYP:

000002

104017
110077

THE MESSAGE. CALLED THROUGH AN EMT
CALLING SEQUENCE
TYPE
MESG
;ADDRESS OF MESSAGE

2%:

3%:

175372

000015

000012

175360
175350

$SCRLF:

TRAP.

THE
TERMINATES

MOV
MOV
ADD
MOV
MOvB
BM]
BNE
MOv
RT1
SCRLF

PRNT

MOVB
BR

PRNT

MOvVB
PRNT
MOvB
RTI

RO,=-1SP)
2(SP) ,R1

¥2,2(SP)
(R1) R
(R1)+,RO
2%
3%
(SP)+,RO

RO,a7PB
1%

#15,31PB
¥12,37PB

:SAVE RO
:GET POINTER TO ADDR.

MESG.

:ADDR. OF MESG 10 R}
;GET CHAR
;BRANCH IF WANT AUTO CR-LFf
;PRINT CHAR IF NOT NuLL
;RESTORE RO
SEXIT IF NULL CHAR

:YES,

;GET

SEND CR-LF

CHAR

:PRINTER READY?

;LOAD PRINTER BUFFER WlTH (HAR
;GO GET NEXT CHAR

;PRINTER READY?

; SEND (R

;PRINTER READY?
;SEND LF
;RETURN 10 CALLER

CZLACFO LA36 TERM (DL11 £ KL 1M
CZLACF P11
i3-JUN-79 1 I 33

O 00

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

O 0000V VOO0

rororno no R
R
—
wno —OV®NC
VIS LN —

1899
1900
1901
1902
1903
1904
1905
1906
1907
1908
1909

MACY11 30AC1052)
13-JUN=79
COMMON ROUTINES USED BY LA36

15:35
TESTS

PAGE

SEQ 0047

S XXX
XX

:TYPM===MULT] TYPE-A COMMON ROUTINE TO OUTPUT
:
A MESSAGE ON ALL DL11S IF THE MULTI TEST

SWITCH (BIT 13) IS RESET. THIS ROUTINE IS USED BY
THE PRINTER TESTS TO TYPE HEADINGS.
IF A UNIT
IS NOT READY, THE CHARACTER WILL NOT BE TYPED.

s XXXXXXAXXX

003252
003254
003260
003262
003264
003266

TYPM:

000002

1%:

003270
003272
003274
003276
003300

000770

003302
003304
003310
003312

104022
012700
104015
000002

003314
003320
003322

012700

2%:

104015
000002

3%:

MOV
ADD
MOV

MOvVB
BMI
BNE
RTI
CRLF
BR

PRINTC

000012

$CRLF:
SLF:

(R
MOV
PRINTC
RT1

000015

$CR:

MOV

PRINTC
RTI

(SP) ,R1
#2,asP
(R1),R1
(R1)+,RO

;GET

POINTER

10 ADDR OF

;ADDR OF MESG TO R1
;GET CHAR
;BRANCH IF WANT AUTO CR=-LF
;CONTINUE IF NOT NULL
sRETURN
:YES, SEND CR-LF
JNEXT CHAR

;60 GET NEXT

2%
3%

#12,R0

#15,R0

;PRINT CHAR

CHAR.

:SEND (R
;SET LF CHAR
SSEND IT
;RETURN TO CALLER
;SET

CR CHAR

JSEND [T
:RETURN

;'tt""t'l

EROU!INE TO PRINT TEST HEADER
.

:'.""""

003324
003330
003332
003334
003336
003342
003344
003346
003350
003354
003360
003362

003366
003372
003376
003400
003402
003404

00
15

000000

013700

000636

062700
062700

177770
000060

013700
042700
062700

000636
177770
000060

$PRHDR:

MOV
PRINTC

TYPEM
HDRMSG
MOV
ASR
ASR
ASR

BIC

ADD
PRINTC
MOV

BIC

ADD
PRINTC
CRLF
LF
RT1]

MESG

#0,R0

; TRANSMIT
sNUL CODE.
;PRINT MESSAGE

RTNNO,RO
RO
RO
RO

sGET
sGET

#60,R0

sMAKE ASCII
sPRINT DIGIT
sGET TEST NUMBER AGAIN

#177770,R0

RTNNO,RO

#177770,R0

#60,R0

TEST NUMBER
FIRST DIGIY

sMASK FIRST DIGIT

sMASK LAST DIGIT

;sMAKE ASCII
JPRINT DIGIT
sCR=LF
sBLANK LINE

sRETURN

CZLACFQ LA3S TERM (DL £ KL )
CZUACF P11
13=JUN=79 1 5:33%

MACY11 30A(1052)
13-JUN-79
IS 35
(OMMON ROUTINES USED BY LA36 TESTS

1954
1955
1956

2000
2001
2002
2003
2004
2005
2006

SEQ 0043

."".""

ERRA-- COMMON ERROR RETURN FROM 1/0 TESTS. HALTS
WITH ADDRESS OF ERROR IN RO. TO CONTINUE
ON SAME TEST BUT NOT HALTING ON ERROR,
SET THE SCOPE BIT (14) = 1 AND PRESS CONTINUE

;l""'.t"
003406
003414
003416
003422
003424
003426
003434
003436
003440
003442

032777
001404
005737
100001
000002
052737

011600
005740

040000

175300

ERR:

000644

BIT
BEQ
TST

#¥SCOPSW,aSR
1%

100000

000644

18:
EHLT:

ERRHLT:

;CHECK SCOPE SWITCH
;BRANCH IF NO SCOPE
:SCOPING WANTED, FIRST

PRGID

BPL

000000
000002

RTI
BIS
MOV
TiTT

HALT

;ADDRESS OF

CALL

INTO RO

;SCOPE EXIT
:SET ERROR INDICATOR

#BIT15,PRGID
asP,RO
=(RO)

HAL

RT]

ERROR?

;BRANCH AND

;RETURN T0 TEST

FIRST

STLSRV*--

H
)
h

THIS ROUTINE

SETS UP KEYBOARD

VECTOR AND PRIOITY.
STRDRvV
AT20C

:LOCATION OF

INTERRUPT

CALLING SEQUENCE

NEW

INTERRUPT

VECTOR

;'.."""'
003444
003452
003456
003462
003466
003472

017637
062716
013701
012721
013721
000002

000000
000002
000622
000000
000624

003464

STLSRvV:

STPRA:

MOV
ADD
MOv
MOV
MOV
RTI

@(SP),STPRA+2
#2,asP
TKVIR,R1
#0,(R1)+
TKLVL, (R1)+

;SET

RETURN ADR AND VECTOR

seERERREREY

jSTLSPV-- THIS ROUTINE SETS UP PRINTER INTERRUPT
é
VECTOR AND PRIORITY CALLING SEQUENCE
:
i%gggv ;LOCATION OF NEW INTERRUPT VECTOR
.

;"""t"'

003474
003502
003506
003512
003516
003522

000000
000002
000626
000000
000630

003514

STLSPv:
STPPA:

MOV
ADD
MOV
MOV
MOV
RTI

@(SP),STPPA+2
#2,asP
TPVIR,
R
#0,(R1)+
TPLVL, (R1)+

;SET

RETURN ADR AND VECTOR

;RETURN

ERROR

FOLLOWING CALL

t"'t"."

[=d=l=lele]le]
O=ttt
s O —=
OSwWwNuwWrn
N
O N NN
ONNNO
— N
N
e et N~y

1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
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

PAGE

TO CALLER

CZLACFO LA36 TERM (DL11 R KL 1)
CZLACF.P11
13=JUN=79 15:33

MACY11 30A(1052)
13-JUN=79
15:35
COMMON ROUTINES USED BY LA36 TESTS

2007

PAGE

SEQ 0044

JErEErRERORTSE

2008
2009
2010
2011
2012

:
-

CALLING SEQUENCE;
MOV
#5,R0
;RO CONTAINS THE NUMBER OF MSEC DELAY DESIRED

2015

THE DELAY

:
:DELAY=--A COMMON ROUTINE TO DELAY PROCESSING
3
A GIVEN NUMBER OF MSEC.

2016

2017
2018
2019
2020
2021
2022

1$:

5852

:
2
:
:
:
:

2025

sMACHINE

585?

THE LOOP;

FOR AN 11/05,11/10(=251).

05810

35840

;LOOP: DEC R1
56
.99
:
BNE LOOP 2.5
1.76
:
TIME=
5.9USEC 2.75

5823
2033
2034
2035
2036
2037
2038
2039
2040
2041
2042

BNE

SINCE THE EXECUTION TIMES OF THE PDP11 LINE DOES VARY FROM
MACHINE TO MACHINE, THE VALUE AT SYMBOLIC LOCATION
""TIMER'" MUST BE CHANGED TO THE APPROPRIATE VALUE AS SHOWN BELOW
BEFORE STARTING THE DIAGNOSTIC. "'TIMER' 1S INITIALIZED

2028
2029
2030

IS EFFECTED BY THE EXECUTION OF

DEC

; SET TIMER

251

554

15820
2.5
2.6
4.9

314

LSIR03

Fil

202

BIPOLAR

117645 8 11/70

.30
.60
.90USEC

2127

SXXXXXAXXXNXX
003524
003526
003532
003534

003536
003540
003542
003544

010146
013701
005301
001376

005300
001372
012601
000002

000672

DLY:
1%:
2%:

MOV
MOV
DEC
BNE
DEC
BNE
MOV
RTI

R1,-(SP)
TIMER,R
R1
2%
RO
1%
(SP)+ ,R1

;SAVE R1
sMOV 1 MSEC LOOP CN7 70 RI
sDECREMENT COUNT
;BRANCH IF NOT ZERO

;DEC NO. OF MSEC DELAY
;DELAY AGAIN IF NOT ZERO
JALL DONE RESTORE R1

MOS

CORE

=51
.90
.98
1-13
1.49USEC

1237

755

2.03USEC

CZLACFO LA36 TERM (DL11 R KL IR P
CZLACF . P
13-JUN=7G 15:33
2043

2044
2045
2046
ggk;

2049

&
G
MACY11 30A(1052)
13-JUN=79
15:35
(OMMON ROUTINES USED BY LA36 TESTS

PAGE

JErREERRL LY

:
;PFAIL--POWER FAIL ROUTINE
:
SAVE ALL REGISTERS AND SET RESTART ADDRESS

INTO LOCATION 24

IRESTART--POWER FAIL RECOVERY

SEQ 0045

CZLACFO LA36 TERM (DL1T R KL11)
CZUACE.P1
13=-JUN=-79 15:33

2050

MACYTT 30A(1052)
13-JUN-79
(OMMON ROUTINES USED BY LA36

RESTORE

15:35
TESTS

PAGE

ALL REGISTERS AND G0 TO START

SEG

004¢

CZLACFO (A3 TERM (DL11 & KL 4 ¢
CZLACF P
13=JUN=79 15:3%

2051
2052
2053
2054
2055
2056
2057
2058
2059
2060
2061
2062
2063
2064
2065
2066
2067
2068
2069
2070
2071
2072

2073
2074
2075
2076
2077

2078
2079

MACYTT

30AC1052)

13-JUN=79

(OMMON ROUTINES USED BY

LA36

15:35

PAGE

TESTS

5S¢0

:'."'."t'

003546
003550
003552
003554
003556
003560
003562

003566
003572
003600
003602
003604
003606
003610
003614
003620
003622
003624
003626
003630
003632

PFAIL:

000024
003602
003604

003602
000024

000137

001026

003640
003646

050200
000200

053517

051105

1%:

RO,=-(SP)

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

H2v1

#RESTRT,24

MOV

000024
SAVR6:
RESTRT:

003634

MOV

MOV
MOV
MOV
MOV
MOV
MOV

HAL

_WORD
TYPEM

SP,SAVRé6

;SAVE

;STORE

RESTART

ADDRESS

1%
MOV
MOV
MOV
MOV
MOV
MOV
MOV
Mov
JMP

SAVR6,SP
(SP)+,24
(SP)+ RS
(SP)+ R4
(SP)+,R3
(SP)+ ,R2
(SP)+,R1
(SP)+,RO
START

<ASCIZ

<ACRLF>/POWER/<ACRLF>

.EVEN

STAZK POSITION

JRESTORE
;RESTORE

STACK POINTER
PFAIL ADDRESS

CZLACFO LA36 TERM (DL11 & Ki 1)
CZLACF.P
13=-JUN=79 15:33

MACYT1

30A(1052)

13-JUN-79

4
15:35

COMMON ROUTINES USED BY LA36 TESTS

PAGE

2080
2081
2082
sggz

;"t'tt"'t
:
;FORWARD--THIS ROUTINE TRANSFERS THE 2 OR & ARGUMENTS
:
FROM THE TEST ROUTINE. THEY ARE;

2085
2086
2087

s
a
-

1- ROUTINE NUMBER
2- ADDRESS OF NEXT
3- ITERATION COUNT

gggg

2090

;tttttlt'tt

2091
2092
2093
2094
2095
2096
2097
2098
2099
2100
2101
2102
2103

003650
003654
003660
003664
003670
003672
003676
003702
003706
003710
003716
003724

013705
012537
012537
105737
100407
012537
012537
©€10537
000002
012737
012737
000766

000640
000636
000640
000644

000660
000642

000676

177777
00000!

000642
000660

TEST
(1/G TESTS ONLY)

4= SCOPE ENTRY ADDRESS (1/0 TESTS ONLY)

$FORWD: MOV
MOV
MOV
1S18
BM1
MOV
MOV
FORWDA: MOV
RT11
FORWDB: MOV
MOV
BR

NXTST,RS
(RS)+ ,RTNNO
(RS)+ NXTIST
PRGID
FORWDB
(RS)+,ICTR
(R5)+,SCOPTR
RS,CURTST

#-1,SCOPTR
#1,1CTR
FORWDA

;ADDR OF NEXT TEST 10 RS
:GET NUMBER OF NEXT TEST
;GET ADDR OF FOLLOWING TEST
sCHECK IF 1/0 TEST
;SKIP THE FETCH OF ITER CNT AND SCOPE
;GET ITERATION COUNT
;GET SCOPE ENTRY POINT
sENTRY POINT TO TEST IN CUR T1ST
JEXIT
;FORCE NO SCOPE
;FORCE INTERATION COUNT OF 1

SEQ 0045

CZLACFO LA36 TERM (DL11 B KL 1M
CZLACF . P
i13-JUN-79 15:33
2104

PAGE 49
SEQ 0049

JEERTERRRRTY

2105

2106
2107
2108
2109
2110

:AREAD--A ROUTINE WHICH, THROUGH THE FACILITY OF
:
THE MAINTENANCE BIT, OUTPUTS 10 THE
2
PRINTER BUFFER AND READS THE KEYBOARD
2
STATUS DONE. IF THE DONE 1S NOT SET
WITHIN 600 MSEC, THE CPU WILL HALT WITH

21
S}}%

2114

:'ttott"tt

003726
003734
003742
003746
003752
003754
003760
003762
003766
003770
003772
003774

012737
052777
005077
105777
100410
012700
104010
005337
001367
104002
000755
000002

000600
000004
174652
174640

000664
17465¢

000001

000664

2129

THE LOCATION OF THE ERROR IN RO. PRESS
CONTINUE TO CONTINUE WITH TESTS.

$SAREAD: MOV
BIS
CLR
1%:
TST1B
BMI
MOV
DELAY
DEC
BNE
EHALT
BR
2%:
RTI

#600,BRCTR
#4,9TPS
oTPB
aTKS
2%
#1,R0

BRCTR
1%
$SAREAD

sSET UP 600 MSEC DELAY
sSET MAINTENANCE BIT
;LOAD PRINTER BUFFER
;CHECK DONE BIT
;BRANCH 1F DONE
;ONE T0 RO
;DELAY 1 MSEC.
;600 MSEC OVER
;BRANCH IF NO

;TRY AGAIN
sRETURN T0O TEST

JEEEREAREEY

2130
2131
2132
2133

3
sCONIT==THIS ROUTINE SETS UP THE DEVICE ADDRESSES
AND INTERRUPT VECTORS FOR THE CONSOLE
:
TERMINAL.

;tllttttt"

004016

013700
010037
005720
010037
005720

013737

004024
004030
004032
004040
004044
004052
004060
004066

010037
005720
013737
010037
013737
013737
062737
000207

004070
004072

000000
000000

000602
000612
000614
000616

000616

000620
000620
000604
000604
000004

004070

CONIT:
MOV
CONSET: MOV
181
MOV
181

CONADD RO
RO, TKS
(RO)+
RO,TKB
(RO)+

;CONSOLE KEYBOARD STATUS ADDR TO RO
:KEYBOARD STATUS ADDRESS (777560’ T10 T1KS
s INCREMENT RO BY TWO
;KEYBOARD DATA ADDR (777562) 10 1kB
s INCREMENT RO BY TWO

MOV
187
MOV
MOV
MOV
MOV
ADD
RTS

RO,TPS
(RO)+
T1PB,TPBS
RO,7PB
CONVEC,TKVIR
CONVEC,TPVIR
#6,TPVIR
PC

;PRINTER STATUS ADDR(777564) 10 TPS
s INCREMENT RO BY TwO
sSAVE TPB OF LAST TERMINAL
:PRINTER DATA ADDR (777566) 10 1PB
;KEYBOARD INTERRUPT VECTOR (60) T9 TKkVIR

WORD
WORD

O
0

sLAST TERM STATUS REG ADR
sLAST TERM BUFFER REG ADR

MOV

004072
000622
000626
000626
T1PSS:
TPBS:

T1PS,TPSS

sSAVE TPS OF

LAST TERMINAL

;PRINTER INTERRUPT VECTOR (64)

TO TPVIR

003776
004002
004006
004010
004014

[S—

2115
2116
2117
2118
2119
2120
2121
2122
2123
2124
2125
2126
g}sg

MACY11 30A(1052)
13-JUN=79
15:35
COMMON ROUTINES USED BY LA36 TESTS

CZLACF 0 LA36 TERM (DL 1 R KL 11)
CZLACF, P "
13=JUN=79 1 > 33

&
L
MACY11 30A(1052)
13-JUN=79
15:35
COMMON ROUTINES USED BY LA36 TESTS

PAGE

SEQ 0050

:BINARY T0 ASCI] CONVERSION (1 TO 5 ASCI1 CHARACTERS)

VNEWN—=O0O0V~NoWN
S NN~N~wococococ>ocOoCOCO>

mNdoomwowbwmgggmzo

[ IV IV

RN
NP
N S LA LAV 1 N T VT VT VT N
L L LS LN L VT ST Y ST ST Y.V
e D e e e e
D e e
00 0D 00 00 00 00~~~
~I~~ —a—a-d-a—n—a—l.—-—b—‘—d—‘_._._‘_n_‘-d

MLALEEE SRS

:CALLING SEQUENCE

:
:
:

MOV
MOV

:?gASC

ADDRESS OF LOC. TO STORE FIRST ASCII CHAR.
BINARY NUMBER 70 BE CONVERTED INTO R1

NUMBER

TO BE

CONVERTED AS A POWER OF

TEN

INTO RO

INTO R2

:."l’"'i"

004074
004100
004102

010237
006302
062702

004106
004112
004116
004122
004124
004130
004132
004136
004144
004150
004154
004156
004160
004162
004164
004166
004174

014237
005037
163701
103403
005237
000772
063701
062737
113720
005337
001354
000002
000000
000000
000000
000001
001750

004160

$BTASC:

MOV
ASL
ADD

R2,CNVCTR
R2
#ADTENP,R2

;SAVE TEN POWER
:R2*2
sCALCULATE ADDRESS OF

1%:

MOV
CLR

=(R2) , TENPWR
DIGIT

;POWER OF TEN VALUE TO TEN PWR
;CLEAR CURRENT DIGIT

004166

004164
004162
004164

2%:

004162
004164
000060
004162
004160

004162

3%:

SUB
BCS
INC
BR
ADD

ADD
MOvB
DEC

BNE

CNVCTR:

RT1
.WORD

TENPWR:
ADTENP:

.WORD
.WORD

DIGIT:

000012
023420

000144

.WORD

TENPWR ,R1
3%

DIGIT
2%

TENPWR,R1

#60,DIGIT
DIGIT,(RO)+
CNVCTR

0
8

;STARTING TEN POWER

;SUBTRACT TEN POWER FROM BINARY VALUE
:BRANCH IF END

;RESTORE SUBTRACTED VALUE

s CONVERT (DIGIT) TO ASCII
:PUT ASCI]1 CHAR INTO USER BUFFER
;FINISHED ALL CHARS. CALLED FOR

sBRANCH IF NOT FINISHED

JYES,

EXIT

:CONVERSION CHARACTER COUNT
:CONVERTED CHARACTER
sCURRENT TEN POWER

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

PAGE

SEQ 0051

:READ-- A COMMON ROUTINE WHICH CHECKS THE KEYBOARD

;

—

DONE

FLAG & SETS A FLAG

INDICATING CHAR PARITY

SXXXXXXXXXX

004200
004204
004210
004212
004220
004226
004232
004234
004240
004244
004246
004252
004254
004262
004264
004270
004272

004276
004300
004306
004314
004322
004330
004336
004344
004346
004352
004360
004362
004364
004370
004372
004376
004400

004737
005737

001430

013737

013737
105777

100005
013700
004737
000415
005337
001404
062737
000761

003776
000656
000656
000632
174436

000666
000670

$READ:

JSR

1%:

BEQ
MOV

2%:

000670
004002

000666
000010

38:
000670

174322

174314

1764310
000700
177400
000700
177600
000700
000011
000377

000700
000704
000704
000703
000700
000004

000702

MOV

1STB
BPL

MOV
JSR
BR

DEC
BEQ

ADD
BR
4%:
1STB
BPL
SREADC: TSTB
BPL
READ1:
MOVB
MOVB

BIC
MOvVB

BIC

CMP

BEQ
MoV

1$:

000703
000702
000002

1§71

2%:

BIC

PC,CONIT

DLCNT

SREADC
DLCNT,COUNT3

;ADDRESS OF

XCSR,RO
PC,CONSET
READ1

:SET

COUNT3
4%

#10,XCSR
2%
aTKS
1%
aTKS
SREADC
9TKB,TEMPCH
TEMPCH,PCHAR

#1776400,PCHAR
TEMPCH,PARITY+1
#177600, TEMPCH
TEMPCH, #4

SREAD
#11,R0

FIRST

THIS DL11

INTO XCSR

;READ CHAR AND RETURN

;DECREMENT DL11 COUNT
;:TEST CONSOLE WHEN DONE DLI1'S

sNEXT DL11 ADDRESS
s CONTINUE
;CHECK CONSOLE
;WAIT, NO INPUT
;CHECK KEYBOARD DONE

;BRANCH IF NOT SET

FLAG

:SAVE CHARACTER
:SAVE CODE WITH PARITY BIT

;MASK UNWANTED BITS
;SAVE CHAR WITH PARITY BIT

;MAKE

IT 7 BIT ASCIl]

:DISREGARD EOT

sSET SHIFT COUNT

;EXIT IF DONE

PARITY+1
1%
PARITY
1%

INPUT

AS CONSOLE

sCLEAR PARITY FLAG

ASLB
BCC
(OMB
BR

DL'1

;TEST IF ANY INPUT
;CONTINUE IF NO INPUT

#377,PARITY

RTI

sCHECK IF MULTI DL11'S AVAILABLE

;NONE, WAIT FOR CONSOLE
sSET DL11 COUNT

FSTDL,XCSR

aXCSR
3%

DEC

BEQ

;RESET CONSOLE ADR AND VECTORS

:DECREMENT SHIFT COUNT

sSHIFT CODE
;CONTINUE IF BIT WAS ZERO
:CHANGE PARITY FLAG IF BIT WAS ONE
s CONTINUE

:SET, RET.

TO CALLER

SXXXXAXXXXX

;PRINT== A COMMON ROUTINE TO CHECK THE PRINTER READY FLAG
SXXXXXXXXXX

004402
004406
004410

105777
100375

000002

174210

$PRNT:

TSTB
BPL
RT1

aTP$
$PRNT

:CHECK PRINTER READY FLAG
sBRANCH IF NOT SET
:SET,

RETURN

|SS—

— OV ~NO VIS~ W

L)
MACY11 30A(1052)
13-JUN=79
15:35
COMMON ROUTINES USED BY LA36 TESTS

SXXXAXXXXXX

OO O 00O OO0 D 0o 0o 0o
[e ]
NV®NP
NS NN =D D00~ o

RN
NN N NN
NN
N

CZLACFO LA36 TERM (DL £ KL 1M
C IL ACF.P11
13-JUN=79 1 ¥ 33

039

CZLACFO LA36 TERM (DL11 £ KL 11)
CZLACF P11
13=-JUN=-79 1 1 33

2237
2238
2239
2240
2241
2242
2243
2244
2245
2246

N
&
MACY11 30A(1052)
13-JUN-79
15:35
COMMON ROUTINES USED BY LA36 TESTS

PAGE

52
SEQ 0052

JEFRTRTERERY

*PRINTC- =SENDS A CHARACTER AT A TIME FIRST TO THE
.
.

.
.

CONSOLE
DL11 THEN TO ALL MULTIPLE DL11S IF
SR BIT 13 IS = 0. IF THE REFERENCED PRINTER

READY BIT 1S NOT SET,
SENT TO THAT PRINTER.
CALL:
PRINTC

THE CHARACTER WILL NOT BE
ENTER WITH CHARACTER IN RO.

JEEEEEERY

004412
004420
004426
004432
004434
004442
004446
004454
004456
004462
004464
004470
004476
004504
004510
004512
1004520
004522
004530
004532
004536
004540
004546
004554
004562
004570
004572
004600
004602
004606
004614
004616
004624
004626
004632
004634
004642
004644
004652
004654
004662
004664
004672
004674
004702

013737
062737
105777
100375

062737
010077
032777
001003
005737
001002
000137
013737
013737
005737
001140
023727
002004
022737
001130
105777
100125

062737
017737
042737
023727
001006
023727
001002
000137
023727
001427
023727
001003
013703
000461
023727
001004
013737
000451
023727
001056
013737
000441
023727
oo1on

000602
000004
174260

000712
000712

000002

000712

174244
020000

$PRTC:
1%:

174240

000656
005122
000656
000632
000710

000636
104011

000666
000670

177600

000700
000636
005226
000700

000636

4%:

000020

001772

1764132

000002
1764116

2%:
3%:

5%:

000670
000700
000700
000003

BIT
BNE
18T
BNE
JMP

Mov
MOV
187

BNE
CMP
BGE
CMP
BNE

1518

BPL
ADD

MOV

B1C

CMP

000024
000177

MOV
ADD
1STB
BPL
ADD
MOV

6%:

000017

000700

BNE
CMP
BNE
JMP
CMP
BEQ
CMP
BNE

MOV

000636

000021

000700

000662

000636

000022

000700

000662

000636

000021

7%:

8%:

BR
CMP
BNE
MOV
BR
CMP
BNE

MOV

9%:

CMP
BNE

CONADD, TEMP

¥4, TEMP

aTEMP
1%
#2,TEMP
RO,ITEMP
#BIT13,3SR

DLCNT

3%
18%
DLCNT,COUNT3
FSTDL,XCSR

INCHK
13%

RTNNO, #20

FTTYCTL WALTF

138

aXCSR

13%
#2,XCSR
aXCSR,TEMPCH
#177600,TEMPCH
TEMPCH,#3

RTNNO, #24

6%
20%

TEMPCH,

RTNNO,#17
7%
TEMPCH,R3
12%
RTNNO, #21

TEMPCH,REPT
12%
RTNNO,#22
14%
TEMPCH,REPT
12%
RTNNO, #21
10%

;SET CONSOLE ADR
;WAIT FOR CONSOLE READY
;SET ADR
:LOAD CONSOLE PRINTER BUFFER
sCHECK SW 13
;SEND ALL TERMS IF SW13 DOWN
;CHECK IF MULTIPLE DL11'S
:CHECK FOR INPUT IF THERE

;PUT NO. DL11'S INTO COUNT3
;ADDR OF FIRST DL INTO XCSR
;CHECK FOR INPUT?
;PRINTING TEST?
:BRANCH IF NOT
:KEYBOARD CONTROL?
;SKIP INPUT CHECK IF NOT
:TEST IF ANY INPUT
;CONTINUE IF NO INPUT
sSET BUFFER ADDRESS

sCHECK IF
;CONTINUE
;CHECK IF
;CONTINUE

CONTROL=-C
IF NOT
TEST 24
IF NOT CONTROL-C

;CHECK 1F RUBOUT

;YES, CHECK TEST NUMBER
<1858 171?
sBRANCH IF NOT
:SAVE CHARACTER
; CONTINUE

;TESY 211

;BRANCH IF NOT
s SAVE CHARACTER
: CONTINUE
:TEST 227
;CONTINUE IF NOT
;SAVE CHARACTER
s CONTINUE
;CHECK IF TEST 21

sNO, CHECK IF

TEST 22

CZLACFO LA36 TERM (DL11 B KL 1
CILACF.P1T
13-3UN=79 15-35

$59% Q0croe 935988 000036

3395
2296

3297
2298
2299
2300
2301
3302
2305
3304
3305
3306
3307
2308
2309
2310
2311
2312
2313
2314
2315
2316
2317
2318
2319
2320
2321
2322
2323
2324
2325
2326

2337
3328
2329
2330
2331
2332
2333
233,
2335
2336
2337
2338
2339
33,0
2341
2342
2343
2344
2345
3346
3347
2348

004712
004714

004716
004720
004722
004726
004734
004736
004740
004744
004746
004750
004752
004756
004760
004766
004770
004772
004776
005002
005006
005010
005012
005020
005026
005034
005042
005050
005052
005056
005060
005066

005072
005076
007100
005106
005112
005120
005122
005126
005130
005136
005140
005146
005150
005156
005156
005164
005172
005200
005206
005214
005216
005224

o
Voo

104010
106007

014772
104005
000137
023727
001011
022626
012700
104010
104007
014772
104005
000137
023727
001133
022626
000137
012700
104010
013700
000403
062737
062737
013737
062737
023737
001420
105777
100375
062737
010077

005337
001411
062737
000137
062737
000764
005737
001111
023727
002004
022737
001101
105777
100076
013737
062737
117737
042737
023727
001013
023727
001007

012176
000636

DELAY
TYPEM

000022

108:

000036

012234
000636

000024

013156
000036

11:

126:

000700

000002
000002
000602
000006
000712

MACYTT 30A(1052)
13-JUN-79
15:35
COMMON ROUTINES USED BY LAZS TESTS

000670
000670
000712
00071
000670

173612

13%:
14S:

158:

000002
173576

000670

000002
004504
000002

000670

000666

16$:

000670

178:

000710

188:

000636

000020

104011

001772

173426

;

19$:

000602
000002
173514
177600
000700

000712
00071
000700
000700
000003

000636

000024

ECOEND
CHAIN
P
(MP
BNE
POPSP2
MOV .
DELAY
TYPEM
ECOEND
CHAIN
JMP .
(MP
BNE
POPSP2
P
MOV
DELAY
MOV
BR
ADD
ADD
MOV
ADD
CMP
BEQ
TSTB
BPL
ADD
MOV

DEC
BEQ
ADD
MP
ADD
BR
TST
BNE
CMP
BGE
CMP
BNE
1STB
BPL
MOV
ADD
MOVE
BIC
CMP
BNE
P
BNE

9.8

PAGE

53
SEQ 0053

SOELAT FOR A

#30..R

“DELAY

E021A
RTNNO,#22
118

“PRINT TERMINATION MESSAGE
“CHAIN TO NEXT TEST
“REPEAT TEST IF LOOP ON TEST SW SET
"CHECK IF TEST 22
INO, CHECK IF TEST 24
"ADJUST STACK
“DELAY FOR HALF DUPLEX

SYES,

#3G..R0

FOR WALF

DUPLEX

TEST 21

;YES, PRINT TERMINATION MESSAGE

TERM
#30..RO

;CHAIN TO NEXT TEST
“REPEAT TEST IF LOOP ON TEST SW SET
STEST 247
“WAIT FOR NEXT TEST IF NOT TEST 24
“RESET STACK
" TERMINATE TEST
“DELAY FOR HALF DUPLEX

TEMPCH.RO

:SET NEW CHARACTER

E022A
RTNNO.#24
228

143
42 XCSR
#3.XCSR
CONADD,TEMP
N4, TEMP
TEMP.XCSR
17%
@XCSR
158
#2.XCSR
RO.DXCSR
COUNT3
18%
#2,XCSR
48
#2.XCSR
168
INCHK
268
RTNNO,#20
198
WTTYCTLLWAITF
268
SCONADD
268
CONADD,TEMP
H2,TEMP
BTEMP.TEMPCH
#177600,TEMPCH
TEMPCH,#3
218
RTNNO,#26
218

* CONT INUE
“SET STATUS ADDRESS IN XCSR

:CHECK IF CONSOLE TERMINAL
“IS THIS DL
;TEST PRINTER READY
‘WAIT FOR READY
“SET XCSR TO PRINTER BUFFER
“LOAD CHARACTER INTO BUFFER
“DECREASE COUNT OF DL11'S
“ALL DONE,EXIT
SSET XCSR'TO NEXT DL11 PRINTER STATUS
“G0 TEST NEXT DL11 READY FLAG
SET XCSR TO PRINTER BUFFER
DO NOT LOAD BUFFER
“WANT INPUT CHECK?
*NO, BRANCH
“PRINTING TEST?
“BRANCH IF NOT
-KEYBOARD CONTROL?
SKIP INPUT CHECK 1F NOT
“TEST IF ANY INPUT
“BRANCH IF NONE
-SET ADR

:MASK UNWANTED BITS
“CHARACTER = CONTROL=C?
CONTINUE 1f NOT
STEST 247
“CONTINUE IF NOT

|
|

CZLACFO LA36 TERM (DL11 & kL11)
CILACF.P11
13=JUN=-79 15:33

2349
2350
2351
2352
2353
2354
2355
2356
2357
2358
2359
2360
2361
2362
2363
2364
2365
2366
2367
2368
2369
2370
2371
Sg;%

005226
005232
005234
005236
005240
005244
005252
005254
005256
005264
005270
005272
005276
005300
005302
005310
005312
005316
005324
005326
005334
005342
005344
005352

012700 000036
104010
104012
022626
000137
013030
023727
000700
001006
000607
012737
000001
000137
002154
010046
012700
000036
104010
012600
023727 000636
001002
013703 000700
023727
C00636
001003
013737
000700
023727 000636
001003
013737
000700
000002

MACYT1 30A(1052)
13-JUN=79
15:35
COMMON ROUTINES USED BY LA36 TESTS

20%:

000177

Fd i 3

000634

22%:

23%:

000017
000021

24%:

000662
000022

25%:

000662

26%:

MOV
DELAY
CRLF
POPSP2
JMP
CMp
BNE
BR
MOV
JMP
MOV
MOV
DELAY
MOV
CMP
BNE
MOV
CMP
BNE
MOV
cMP
BNE
MOV
RT1

#30.,R0

£0248B
TEMPCH, #177
23%
9%
#1,CNTLSW
T1Y1B
RO,=(SP)
#30.,R0
(SP)+,R0O
RTNNO,#17
24%
TEMPCH,R3
RTNNO,#21
25%
TEMPCH,REPT
RTNNO,#2?2
26%

TEMPCH,REPT

PAGE

sDELAY FOR HALF

SEQ 0054

DUPLEX

sSEND CR-LF
JRESET STACK
SRETURN TO TEST
;CHECK IF RUBOUT
;BRANCH IF NO

;
;CLEAR LOOP AND SEQUENCE BITS
;GO WAIT FOR NEXT TEST
;SAVE RO
;DELAY FOR MALF DUPLEX

;RESTORE RO
;CHECK IF TEST 17
sBRANCH IF NOT TEST 17
;STORE INPUTTED CHARACTER
sCHECK IF TEST 21
sBRANCH IF NOT TEST 21
;STORE INPUTTED CHARACTER
sCHECK IF TEST 22
;sBRANCH IF NOT TEST 22
:STORE INPUTTED CHARACTER
;RETURN TO TEST

CZLACFO LA36 TERM (DL1Y R kL11)
CZLACF . P
i13=JUN-79 15:33

2374

MACY11 3DA(1052)
13-JUN-79
15:35
COMMON ROUTINES USED BY LA36 TESTS

PAGE

SEQ 0055

CZLACFO LA36 TERM (DL11 & KL 1)
CZLACF P11
i13-JUN-79 15:33

MACY11

30A(1052)

13-JUN-79

170 LOGIC TESTS

15:35

PAGE

56
SEQ 0056

.SBTTL

170 LOGIC

TESTS

;"'l"""

:ONLY THE CONSOLE TERMINAL IS TESTED.
:UPON COMPLETION, THE CPU WILL EITHER HALT

:BIT8 IS = 1 AND AWAIT FUTHER INSTRUCTIONS OR CONTINUE

:AND

2
2
2
2
2387
2
2
2 390

EXECUTE

THE

PRINTER

TESTS

CONTINOUSLY

;1F AN 1/0 TEST FAILS, THE CPU WILL HALT AT ERRMLT

:WITH THE ADDRESS OF

THE ERROR

IN RO

(LOC

777700).

:THE CONTINUE SWITCH WILL CAUSE THE 1/0 TEST 10
;CONTINUE WITH THE NEXT TEST. HOWEVER IF SWITCH 14
:WERE SET, OR IS SET BEFORE THE CONTINUE SWITCH IS
;PRESSED, THE FAILED TEST WILL LOCP ON ITSELF

:WITHOUT

PRESSING

FURTHER HALTS

;t"l'i."'

;ATO=-=
»

TEST #40--TESTS THE ABILITY TO REFERENCE THE
RECEIVER STATUS WORD (TKS) WITHOUT TRAPPING.

"""'.""

005354
005356
005360
005362
005364
005372
005376
005400
005402
005404

000040
005406
000012
00537¢
012737
005777
104005
000774
104001
000774

ATO:
ATOX:

005402
173214

000004
1%:
2%:

3%:

40
AT1

10.
1%
MOV
187

CHAIN
BR
ERROR
BR

;TEST NUMBER
sNEXT TEST
:ITERATION COUNT

#3% MACHER

aTksS
1%

:SCOPE ENTRY
:SET UP MACHINE ERROR TRAP

;REFERENCE RECEIVER STATUS WORD
;CHAIN TO NEXT TEST

;REPEAT

TEST

;ERROR TRAPPED WHEN REFERENCING

;RECEIVER STATUS WORD

(TKS)

MAEA
RSRS
SAS

;AT1-=TEST W41--TESTS THE ABILITY TO
.

RECEIVER BUFFER

(TKB)

:.'t""t'l

005406
005410
005412
005414
005416
005424
005430
005432
005434
005436

000041
005440
000012
0N5424
012737
005777

104005
000774
104001
000774

AT1:

005434
173164

000004

1%:
2%:

3%:

41
AT2
10.
1%

MOV

REFERENCE

THE

TRAPPING.

*TEST NUMBER
JNEXT TEST

#3% MACHER

1S1
CHAIN
BR

aTKB

ERROR

WITHOUT

sITERATION COUNT
;SCOPE ENTRY

:SET UP MACHINE ERROR TRAP

;REFERENCE

RECEiVER BUFFER

;CHAIN TO NEXT
;REPEAT TEST

TEST

: TRAPPED WHEN REFERENCING

;RECEIVER BUFFER

(1kB)

CZLACFO LA36 TERM (DL11 & KL 1)
CZLACF P11
13-JUN-79 15:33

24622
2423
24624
2425
2426
2627
2428
2429
2630
2631
2632
2433
24634
2435
2636
2637
2438
2639
2440
2441
2442
2443
2444
2445
2446
2447
2448
2449
2450
24651
2452

MACYT1

30A(1052)

13-JUN-79

170 LOGIC TESTS

5
15:35

PAGE

SE@ 0057

;I't"""'

;AT2-=TEST
:

#42--TESTS THE

TRANSMITTER

STATUS

ABILITY
WORD

;"""""

005440
005442
005444
005446
005450
005456
005462
005464
005466
005470

000042
005472
000012
005456
012737
005777
104005

AT2:

005466
173134

000004

1%:

2%:

000774

104001
000774

3%:

4
AT3
10.
1%
MOv
187

CHAIN
BR
ERRCR

TO REFERENCE

(TPS)

WITHOUT

THE
TRAPPING.

;TEST NUMBER
SNEXT TEST
:1TERATION COUNT
;SCOPE ENTRY
:SET UP MACHINE ERROR TRAP
;REFERENCE TRANSMITTER STATUS

#3% ,MACHER
alPs

;CHAIN TO NEXT TEST
sREPEAT TEST
: TRAPPED WHEN REFERENCING

1%
2%

; TRANSMITTER

STATUS WORD

;"t."""

;AT3==
:

TEST W43--TESTS THE ABILITY TO REFERENCE THE

TRANSMITTER BUFFER

;"t't""'

005472
005474
005476
005500
005502
005510

005514

005516
005520
005522

000043
005524
000012
005510
012737
005777
104005
000774
104001

000774

AT3:

000004

;NEXT

10.
1%

1%:

2%:

3%:

WITHOUT

TRAPPING.

;TEST NUMBER

AT4

005520
173104

(TPB)

TEST

;ITERATION COUNT
: SCOPE ENTRY

MOv
187

#3% ,MACHER
aTPB

:SET UP ERROR TRAP
;REFERENCE TRANSMITTER BUFFER

;REPEAT

CHAIN

ERROR
BR

:CHAIN TO NEXT
TEST

TEST

: TRAPPED WHEN REFERENCING
:TRANSMITTER BUFFER.

CZLACFO LA36 TERM (DL g KL 1)
CZLACF P11
13-JUN=79 1 9: 33

2453
2454
2455
2456
2457
2458
2459
2460
2461
2462
2463
2464
2465
2466
2467
2468
2469
2470

2471

2472
2473

2474
2475
2476
2477
2478
2479
2480
2481
2482
2483
2484
2485
2486
2487
2488
2489
2490
2491
2492
2493
2494
2495
2496
2497

MACYT1

30A(1052)

13-JUN=79

170 LOGIC TESTS

15:35

PAGE

SEG 0058

;l'.'l""'

;AT4==
-

TEST W44=-TESTS THE ABILITY

RECEIVER

INTERRUPT

;tl".""'

005524
005526
005530
005532

005534
005540
005544
005546
005554
005562
005564
005566
005570
005576
005604
005606
005610
005612

000044
005614
000012
005546
012746
012746
000002
052777
032777
001002
104001
000410
042777
032777
001401
104001

AT4:

ATS
10.
1%

000340
005546

000100
000100

MOv

173036
173030

1%:

173014
173006

BIS

#BI1T16,a7KS

BIC
BIT

BEQ

6%:

104005
000755

#1%,-(SP)

BNE
ERROR
BR

3%:

ERROR

5%:

HPRTY7,-(5P)

:?Y

BIT

2%:
000100
000100

ENABLE

CHAIN

#BIT6,3TKS

#BIT6,aTKS
#B1T16,3TKS
5%

TO SET AND CLEAR THE

BIT.

: TEST

NUMBER

;SET

PRIORITY

;SET

INTERRUPT

SNEXT TEST
;ITERATION COUNT
:SCOPE ENTRY

;CHECK

BIT

ENABLE BI1T

SET

;BRANCH IF SET
;NOT SET, ERROR
;CHAIN TO NEXT TEST

;CLEAR INTERRUPT ENABLE BIT
;CHECK IF BIT IS CLEARED
:BRANCH IF
:NOT

CLEARED

CLEARED,

;CHAIN TO NEXT

;DO TEST AGAIN

ERROR

TEST

;'tl"""'

;ATS5==
AL

005614
005616
005620
005622
005624
005630
005634
005636
005644
005650
005652
005654
005662
005664
005666

005670

000045
005672
000012
005636
012746
012746
000002
052777
105777
001775
000005
032777
001401
104001
104005

000762

ATS:

TEST #45--CHECKS THAT THE RECEIVER INTERRUPI
ENABLE BIT CAN BE CLEARED WITH RESET INSTRUCTION.

EEERS

;TEST NUMBER

AT6

10.
1%
MOv

000340
005636

000100
172746

000100

172746

1$:

3%:

MOv
RT1
BIS

1S1B
BEQ

RESET
BIT
BEQ

172730

2%:

ERROR

(HAIN

JNEXT

#PRTY7,=(SP)
#1%,-(SP)
#BI16,3T7KS

alPs$
3%

#B176,a7kS
2%
%

TEST

;1TERATION COUNT
;SCOPE ENTRY
:SET PRIORITY 10 7
;SET

INTERRUPT ENABLE

BIT

:BE SURE PRINTER IS DONE WITH DL11S1 MESSAGE
;BEFORE ALLOWING FOLLOWING RESET,

sRESET
;TEST INTERRUPT ENABLE BIT
;BRANCH IF CLEARED

sSTILL SET,ERROR

;CHAIN TO NEXT ROUTINE

JREPEAT

TEST

CZLACFO LA36 TERM (DL11 & XL M)
CZLACF
. P11
13=JUN=-79 15:33

2498
2499
2500
2501
2502
2503
2504
2505
2506

30A(1052)

13-JUN-79

1/70 LOGIC TESTS

15:35

PAGE

;"."'.'.'

;ATO==
:

TESTN46--TESTS THE ABILITY TO SET
TRANSMITTER INTERRUPT ENABLE BIT.

AND

CLEAR

;""'.""

NONOPNON)
—
—J—.—‘—l—‘—.—.
—-OCOO NO WV
NN — o

005672
005674
005676
005700
2507 005702
2508. 005706
2509 005712
005714
005722
005730
005732
005734
005736
005744
005752
005754
005756
005760

AN LAS LT VT VT VY W rroroNO
NN N n
NN
NN NN VLV
L
)W

MACY11

000046
005762
000012
005714
012746
012746
000002
052777
032777
001002
104001
000410
042777
032777
001401
104001

AT6:

AT7
10.
1%
MOV
HOY

000340
005714
000100
000100

172674
172666

1%:

000100
000100

172652
172644

2%:

104005

3%:

000755

BIS
BIT
BNE
ERROR

BR
BIC
BI1
BEQ
ERROR
CHAIN
BR

s TEST

#PRTY7,-(SP)
s, -(SP)

#B176,aTPS
#B176,aTPS
2%

3%
#B116,aTPS
#B1T16,aTPS
3%
%

NUMBER

SNEXT TEST
;ITERATION COUNT
: SCOPE ENTRY
;SET PRIORITY 10

;SET INTERRUPT ENABLE BIT
;CHECK THAT BIT IS SET
;BRANCH IF SET
:NOT SET, ERROR

:CHAIN TO NEXT TEST
;CLEAR INTERRUPT ENABLE BIT
;CHECK IF BIT IS CLEARED
;BRANCH IF CLEARED
:NOT CLEARED, ERROR
;CHAIN TO NEXT TEST
;D0 AGAIN

SRS
RR S

;AT7==
-

TEST #47--TESTS THE ABILITY TO .LEAR TRANSMITTER
INTERRUPT ENABLE BIT WITH RESFI INSTRUCTION.

;'l""'t"

005762
005764
005766
005770
005772
005776
006002
006004
006012
006014
006022
006024
006026
006030

000047
006032
000012
006004
012746
012746
000002
052777
000005
032777
001401
104001
104005
000765

AT7:

47
AT10

; TEST NUMBER
sNEXT TEST

10.
1%

000340
006004

MOv

000100

172604

000100

172574

1%:

RTI
BIS
RESET

BIT

2%:

BEQ
ERROR

CHAIN

:1TERATION COUNT
:SCOPE ENTRY

#PRTY7,-(SP)

:SET

¥B116,3TPS

;SET INTERRUPT
JRESET

#1%,-(SP)

#B116,aTPS

PRIORIiY

:CHECK

IF BIT

BIT

IS CLEARED

:BRANCH IF CLEARED
:ERROR, RESET DID NOT

:CHAIN TO NEXT ROUTINE

;REPEAT

TEST

CLEAR BIT

CZLACFO LA3 TERM (DL11 R KL 1)
CZLACF P11
13=-JUN=-79 15:33

30A(1052)

170 LOGIC

13-JUN=79

TESTS

15:35

PAGE

SEQ 0060

:"""C"'

;AT10== TEST
:

READY

#50--CHECKS THAT
BIT

AND

THAT

;."l."'l'

006032
006034
006036
006040
006042
006050
006052
006054
006060
006062
006064
006066

000050
006070
000012
006042
032777
001005
000005

105777
100401
104001
104005
000765

AT10:

001000

172644

1%:

172536

2%:

A laS LV T VT VY VY VY no

A ALY ALY ALV TV I W

wn LA
Al]
wn NP
—

2561
2562
2543
2564
2545
2546
2547
2548
2549
2550

MACY11

50
AT11
10.
1%
BIT
BNE
RESET

1STB
BM]
ERROR
CHAIN
BR

RESET

THE

READY

SETS
BIT

THE

TRANSMITTER

(AN BE

READ

RELIABLY.

:TEST NUMBER
JNEXT TEST
;1TERATION COUNT
: SCOPE ENTRY
;SKIP TEST IF AN LSI=-11

#LSI11,aSR
2%

;RESET

aTPsS
2%

;CHECK TRANSMIT READY BIT
;BRANCH IF SET
;ERROR, RESET DID NOT SET READY BIT
;CHAIN TO NEXT TEST
;D0 AGAIN

AL EEEERESE]

;AT11==

TEST

BY LOADING THE

#51--TESTS THAT

:lll.'l""

006070
006072
006074
006076
006100
006104
006106
006110
006114
006120
006122
006124
006126

000051
006130
000012
006100
012700
104010

000005
005077
105777

100001
104001
104005
000764

AT11:

000226

1%:

51
AT12

10.
1%
MOv
DELAY
RESET
(LR

172504
172476

2%:

1STB
BPL
ERROR
CHAIN

THE

TRANSMITTER READY RESETS

TRANSMITTER BUFFER.

:TEST NUMBER
SNEXT TEST

¥226 ,R0
alPB
alP$S
2%

;ITERATION COUNT
: SCOPE ENTRY

;DELAY 150 MSEC.
;RESET
;LOAD TRANSMITTER BUFFER
:CHECK TRANSMIT READY BT
;BRANCH IF CLEARED
:NOT CLEARED, ERROR

;CHAIN TO NEXT

;REPEAT

TEST

r—

“H

CZLACFO LA36 TERM (DL11 B KL 1)
CZLACF.P1Y
13=JUN-79 15:33

2577
2578
2579
2580
2581
2582
006130
2583 006132
2584
006134
2585 006136
2586 006140
2587 006142
2588 006144
2589 006146
2590 006152
006154
2591
2592
006160
2593 006162
2594
006170
2595
006172
2596
006174
2597 006176
2598 006200
2599 006202
2600
2601
2602
2603
2604
2605
2606
006204
2607 006206
2608
006210
2609 006212
2610 006214
006216
2611
2612
006220
2613 006224
006230
2614
006232
2615
2616
006236
2617 006244
2618
006246
2619 006252
2620 006254
006256
2621
2622 006260
2623
006262

MACYT1 30A(1052)
1/0 LOGIC TESTS

13-jUN-79

15:35

PAGE

¢1
St0 0061

;'.."""'

AT12=-- TEST #52-=CHECKS THAT
CAUISE AN INTERRUPT

THE

TRANSMIT READY BIT

(AN

JERRREREEREY

000052
006204
000012
006144
104004
006200
000005
005077
005046
012746
000002
052777
000240
104001
104005
000762
022626
000774

AT12:

1%:

172444

006162
000100

172426

2%:

3%:
4%:

AT13
10.
1%
STPCHV
4%
RESET
CLR
CLR
MoV
RTI
BIS
NOP
ERROR
CHAIN
BR
POPSP2
BR

;TEST NUMBER
SNEXT TEST

sITERATION COUNT
;SCOPE ENTRY
;SET UP TRANSMITTER INTERRUPT VECTOR

;10 4%

:SEE CHAINY COMMENT

aTPS
=(SP)
#2%,-(SP)

;DISABLE TRANSMIT INTERRUPI
;SET PRIORITY TO ZERO

#BIT16,aTPS

;ENABLE

TRANSMIT

;TRANSMIT

READY

:CHAIN TO NEXT

;REPEAT

;CHAIN TO NEXT

TEST

INTERRUPT
DID NOT

TEST

CAUSE

INTERRUPT

: INTERRUPT OCCURRED, CLEAN STACK
TEST

AT STARROTY

;AT13== TEST#53-=TESTS

THAT

THE

TRANSMIT READY DOES NOT

INTERRUPT WHEN THE PROCESSOR 1S AT

:"l'.l""

000035
006264
000012
006220
104004

006256
013746
012746
000002
005077
052777
000240
005077
104005

000761
022626
104001

000771

AT13:

000630
006232

1%:

172360
000100

2%:

172344

172352

3%:
4%:

AT14
10.
1%
STPCHV
4%
MOv
MOV

IPLVL ,~{SP)
#2%,-(SP)

CLR

alPs$

RT1

B1S

NOP
CLR
CHAIN
BR
POPSP?
ERROR
BR

THE

;TEST

NUMBER

;SET

PROCESSOR

CAUSE

SAME LEVEL

SNEXT TEST
sITERATION COUNT
:SCOPE ENTRY
sSET UP TRANSMIT INTERRUPT
JVECTOR 10 4%
TO SAME

LEVEL AS XMITTER

;DISABLE TRANSMITTER INTERRUPTS

#B116,aTPS

;ENABLE

alP$S

:0K, NO INTERRUPT OCCURRED
:CHAIN TO NEXT TEST

TRANSMITTER

INTERRUPTS

SREPEAT TEST
: INTERRUPT OCCURRED,ERROR,(CLEAN

;CHAIN TO NEXT

;UP STACK

TEST

149

CZLACFO LA36 TERM (DL g KL 1)
CZLACF P11
13-JUN-79 1 - - 33

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

MACY11 30A(1052)
170 LOGIC TESTS

13-JUN=79

15:35

PAGE

SEC 0067

M ASELEER
RS

;AT14==
;

TESTHS4==TESTS
INTERRUPT WHEN

ONE

.'l"".."'

006264
006266
006270
006272
006274
006276
006300
006304
006310
006314
006320
006322
006330
006332
006334
006336
006340
006344
006346

000054
006350
000012
006300
106004
006336
005077
013746
162716
012746
000002
052777
000240
104001
000401

022626
005077
104005
000754

AT14:

THAT THE TRANSMIT READY DOES CAUSE AN
THE PROCESSOR IS AT A PRIORITY LEVEL

LOWER THAN THE

54
AT1S

172312
000630
000040
006322

000100

172252

18:

(LR
MOV

3%:

4%:

:VECTOR TO 3%

INTERRUPT

:DISABLE TRANSMIT INTERRUPTS
:SET_PROCESSOR PRIORITY ONE
;LEVEL LOWER THAN TRANSMITTER

Eég

#BIT6,aTPS

;ENABLE TRANSMITTER INTERRUPTS

ERROR
BR

;NO INTERRUPT, ERROR
;CHAIN TO NEXT TEST

SUB

2%:

:1TERATION COUNT
:SCOPE_ENTRY
;SET UP TRANSMIT
aTPS
TPLVL,=(SP)
#40, (SP)

MOov

172266

INTERRUPT REQUEST LEVEL

;TEST NUMBER
INEXT TEST

10.
18
STPCHY

TRANSMIT

RTI

POPSP?2

CLR
CHAIN
BR

#2%,-(SP)

aTPs
1%

: INTERRUPT OCCURED, OK, CLEAN STA(CK

;DISABLE TRANSMITTER
;CHAIN TO NEXT TEST
;REPEAT TEST

INTERRUPTS

)50

CZLACFO LA36 TERM (DL £ KL 1M
CZLACF P11
13-JUN-79 1 5: 33

2649
2650
2651
2652
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
2693
2694
2695
2696
2697
2698

MACY11 30A(i052)
170 LOGIC TESTS

13-JUN-79

15:35

PAGE

SEQ 0063

AR RRREERTY

;AT15== TEST#55-=TESTS THAT THE TRANSMIT READY DOES
NOT
REINTERRUPT AFTER AN RTi WHEN THE READY BIT HAS
NOT BEEN RESET.

"l""""'

006350
006352
006354
006356
006360
006362
006364
006370
006372
006376
006400
006406
006410
006412
006416
006420
006422
006430
0064 34
006436
006440
006442
006444
006446

000055
006450
000012
006360

AT15:

104004

006422
005077
005046
012746
000002
052777
000240

104001
005077
104005
000757
012777
012716
000002
000240
000764
022626

aTPS
-(SP)
#2%,-(SP)

gé;

#B116,3TPS

;ENABLE

CLR

alPS

;DISABLE TRANSMITTER INTERRUPTS

4%:

BR
MOV
MOV

1%
#6%,aTPVIR
#5%,35P

JREPEAT TEST
s INTERRUPT OCCURRED, CHANGE INTERRUPT
sVECTOR TO 6% AND RETURN T0 5%

5%:

NOP

172226

006400
172210

172200

006442
006436

2%:

3%:
172176

6%:

104001

;TEST NUMBER
JNEXT TEST

10.
1%
STPCHY
4%
CLR
CLR
:?Y

1%:

000100

55§
AT16

000761

ERROR
CHAIN

RTI

POPSP?2

s1TERATION COUNT
;SCOPE ENTRY

;ERROR1,

TRANSMITTER

INTERRUPTS

TRANSMITTER FAILED TO INTERRUPT

sCHAIN TO NEXT

TEST

;RETURN FROM INTERRUPT

ERROR

sSET TRANSMIT INTERRUPT VECTOR
;10 4%
;sDISABLE TRANSMITTER INTERRULPTS
;SET PROCESSOR PRIORITY TO ZERO

;CHAIN TO NEXT

TEST

;ERROR2, TRANSMITTER REINTERRUPTED

sAFTER RTI

WITH READY BIT

LEFT ON.

sCLEAN STACK, CHAIN TO NEXT TEST.

;'.."""'

;AT16-=TEST#56--CHECKS THAT
:'tt"""'

006450
006452
006454
006456
006460
006466
006470
006474
006476
006500
006502
006506
006510
006512
006514

000056
006516
000012
006460

032777
001011
012700

104010
104021
000005
105777
100001
104001
104005
000761

AT16:

001000

172226

1%:

000226

2%:

172104
3%:

56
AT17
10.
1%
BIT
BNE
MOV
DELAY
AREAD
RESET

1§18
BPL
ERROR
CHAIN
BR

#LSIN1,aSR
3%
#226,R0

aTKs$
3%
1%

RESET

CLEARS THE

RECEIVER DONE BIT

;TEST NUMBER
SNEXT TEST
:1TERATION COUNT
: SCOPE _ENTRY
:SKIP TEST IF LSi-11
;DELAY 150 MSEC.
;ENABLE RECEIVER

sRESET

:TEST DONE BIT
;BRANCH IF DONE 1S CLEARED
:NOT CLEARED, ERROR
;CHAIN TO NEXT TEST
;REPEAT TEST

051

CZLACFO LA36 TERM (DL1 £ KL 1)
CZILACF .P11
13-JUN-79 1 S: 33

MACY11

30A(1052)

13-JUN=79

1/0 LOGIC TESTS

2699
2700
2701
2702

15:35

PAGE 64

SEQ 0064

;""'.""

;AT17-= TESTHS57--CHECKS THAT REFERENCING THE RECEIVER BUFFER
-

CLEARS

:.".."'I'

006516
006520
006522
006524
006526
006534
006536
006542
006544
006546
006552
006556
006560
006562
006564

000057
006566
000012

006526
032777

001012
012700
104010
104021
105777
105777
100001

AT17:

001000

172160

18:

;TEST NUMBER

AT20
10.
1%

BIT
BNE
MOV
DELAY

000226

2%:

172042
172034

THE DONE BIT.

#LSI11,aSR
3%
#226,R0

1STB

aTKB

aTKS$
3%

ERROR

3%:

;CHECK FOR LSI-11
;SKIP TEST IF SET

;DELAY

AREAD

1STB
BPL

104001
104005
000760

SNEXT TEST
;1TERATION COUNT
;SCOPE ENTRY

150 MSEC.

;ENABLE RECEIVER

;REFERENCE RECEIVER BUFFER

;TEST DONE BIT
;BRANCH IF NOT SET

:DONE BIT

CHAIN

IS SET,

ERROR

;CHAIN TO NEXT TEST

;REPEAT

TEST

AL SRS

;AT20-= TESTW#60--CHECK THAT THE RECEIVER DONE BIT IS ABLE 10

006566
006570
006572
006574
006576
006600
006602
006610
006612
006616
006620
006622
006626
006630
006634
006636
006644
006646
006650
006652
006654
006656

000060
006660
000012
006602
104003
006652

032777
001021

012700
104010
104021
005077
005046

012746
000002
052777
000240
104001
000401
022626
104005
000751

CAUSE

INTERRUPT,

A SRS

AT20:

60
AT21
10.
1%

:TEST NUMBER
SNEXT TEST
;1TERATION COUNT
:SCOPE ENTRY

STRDRvV

001000

172104

1%:

171764

2%:

006636

FLSITT,QSR

MOV
DELAY
AREAD

#226,R0

CLR

3%:

6%:

5%:

aTKs$

:VECTOR TO 4%

sCHECK FOR LSI-1

;SKIP TEST

IF SET

sDELAY 150 MSEC
:ENABLE RECEIVER

:DISABLE RECEIVER INTERRUPTS

-(SP)

:SET PROCESS STATUS T0 ZERO

Bég

#B1T6,3TkS

;ENABLE RECEIVER INTERRUPT

ERROR
BR

;ERROR ,RECEIVER FAILED TO INTERRUPT
;CHAIN TO NEXT TEST

HOY
171746

;SET UP RECEIVER INTERRUPT

BIT

BNE

000226

000100

POPSP2

CHAIN
BR

#38%,-(SP)

:0K,

CLEAN STACK

;CHAIN TO NEXT TEST
sREPEAT TEST

S Ao

MACYT1

30A(1052)

170 LOGIC TESTS

13-JUN-79

15:35

PAGE 65

SEQ 0065

:'..'."".

:AT21-= TEST#61--TESTS THAT
:

NN
N NN ~nN
NN~ NNNNN
-~
A ALY ALY IV IV AV T
0N
VIS W

052

CZLACFO LA36 TERM (DL11 £ KL 1)
CZLACF P11
13-JUN-79 1 $: 33

THE RECEIVER DONE DOES NOT CAUSE AN

INTERRUPT WHEN THE PROCESSOR

1S AT

THE

THE RECEIVER'S INTERRUPT REQUEST LEVEL.

SAME

LEVEL AS

"tl."""'

006660
006662
006664
006666
006670
006672

006674
006700
006706

006710
006714
006716
006720
006724
006730
006734
006736
006744
006746
006752
006754
006756
006760
006762

000061
006764
000012
006700

AT21:

61
AT22
10.
ADD2
igg?flv

CHGF4:
ADD2:

(LR
BIT
BNE
MOv
DELAY
AREAD

104003

006756
005077
032777
001017
012700
104010
104021
005077
013746
012746
000002
052777
000240
005077
104005
000751
022626
104001

000771

171712
001000

172006

000226

171666
000624
006736

000100
171640

2%:

171646

CLR

;TEST NUMBER
JNEXT TEST
:1TERATION COUNT
:SCOPE _ENTRY
;SET RECEIVER VECTOR TO ADD1
aTkK$S
FLSITT, QSR
ADD3
#226,R0

aTKS$

:DISABLE INTERRUPTS

;CHECK FOR LSI-11
;SKIP TEST IF SET

sDELAY 150 MSEC
;ENABLE RECEIVER

:DISABLE RECEIVER INTERRUPTS

MOV
=?¥

TKLVL ,=(SP)
#3%,-(SP)

:SET PROCESSOR PRIORITY TO SAME LEVEL AS RECEIVER

3%:

33;

#B116,aTKS

:ENABLE RECEIVER INTERRUPTS

ADD3:

(LR
CHAIN

aTKS$

:0K, NO INTERRUPT OCCURRED
;CHAIN TO NEXT TEST

ADD1:

:2:3:2

ADD?
ADD3

;REPEAT TEST

;ERROR,

RECEIVER

:BRANCH ADD3

INTERRUPTED,

CLEAN STACK

0 LA36 TERM (DL11

£ KL xkL11)
13-JUN=-79 1 . ¥ 33

MACYT1

30A(1052)

170 LOGIC

13-JUN-79

TESTS

15:35

PAGE

SEQ 0066

TR ERTRRRREY

;AT22--

;

TEST#62--TESTS

REQUEST
MA
LSS S S
S S]]

006764
000062
006766 007072
006770
000012
006772
07000
006774
104003
006776 007060
007000 032777
007006 001025
007010 012700
104010
007014
007016
104021
007020 005077
007024
013746
007030
012746
007034
000002
007036
162737
007044
052777
007052
000240
104001
007054
007056 000401
007060 022626
007062
005077
104005
007066
007070 000743

AT22:

THAT

171706

1%:

000226

171566
000624
007036

000040
000100

2%:

177776
171540

3%:

62
AT23
10.
1%

:TEST NUMBER
SNEXT TEST
:1TERATION COUNT
:SCOPE ENTRY

3]
BIT
BNE
MOV
DELAY
AREAD

;VECTOR 10 4$
;CHECK FOR LSIM
:SKIP TEST IF SET

CLR
MOov

4%:

5%:

CAUSE

;SET RECEIVER INTERRUPT

#LSI11,2SR
5%
#226,R0

;DELAY 150 MSEC
;ENABLE RECEIVER

=$¥

aTk$S
TKLVL,=(SP)

#3%,-(SP)

:DISABLE READER INTERRUPTS
:SET PROCESSOR PRIORITY ONE LEVEL

SUB
Bé;

#40,PSW
#BIT6,aTKS

;LOWER THAN READER
;ENABLE INTERRUPTS

ERROR
BR

;FAILED TO INTERRUPT
;CHAIN TO NEXT TEST

CLR

?TKS

171524

DOES

LEVEL

STRDRvV

001000

THE RECEIVER DONE

INTERRUPT WHEN THE PROCESSOR iS AT A PRIORITY ONE
LEVEL LOWER THAN THE RECEIVER'S INTERRUPIT

POPSP2

CHAIN

:0K,

CLEAN STACK

;DISABLE RECEIVER INTERRUPTS

:CHAIN TO NEXT

;REPEAT

TEST

CZLACFO LA36 TERM (DL11 R KL 1
CZLACF.PIN
i3-JUN-79 15:33

2808
2809
2810
2811
2812
2813
2814
007072
2815
007074
2816
007076
2817 007100
2818
007102
2819
007110
2820 007112
2821
007116
2822
007120
2823 007122
2824
007124
2825
007126
2826 007132
2827 007140
2828 007142
2829
007144
2830 007150
2831
007152
2832
007154
2833 007156
2834
007164
2835
007170
2836 007172
2837 007174
2838 007176
2839 007200
007202
2840

MACYT1

30AC1052)

13-JUN=79

170 LOGIC TESTS

15:35

PAGE

SEQ 0067

:".'.""'

;AT23-- TESTH#63--CHECKS THAT THE RECEIVER DONE
DOES NOT
:
REINTERRUPT AFTER RTI INSTRUCTION WHEN DONE

BIT

:fi'.'.""'

000063
007204
000012
007102
032777
001015
012700
104010
104021
104003
007156
005077
052777

000240
104001

005077
000005

AT23:

001000

171604

000226

1%:

2%:

104001
000760

63
AT24
10.
1%
BIT
BNE

MOV

DELAY
AREAD

#LSI11,aSR
3%

#226,R0

171460
000100

171452

171442

gég

3%:

ERROR
CLR
RESET

;SET RECEIVER INTERRUPT

aTKS

#B176,aTkS

aTKS

CHAIN

007176

007172

171436

4%:

5%:

6%:

BR
MOV
MOV
RTI

NOP
BR

POPSP?2

ERROR
BR

sTEST NUMBER
SNEXT TEST
sITERATION COUNT
;SCOPE ENTRY
sCHECK FOR LSI-11
sSKIP TEST IF SET
sDELAY 150 MSEC
JENABLE RECEIVER

STRDRvV

4%
CLR

104005

000752
012777
012716
000002
000240
000763
022626

IS LEFT SET.

1%
#6%,3TKVIR
#5%,3SP

3%
3%

;VECTOR T0 4%
;DISABLE RECEIVER INTERRUPTS
JENABLE

RECEIVER

INTERRUPT

sNO INTERRUPT, ERROR
:DISABLE RECEIVER INTERRUPTS

SRESET AFTER LAST INTERRUPT
sCHAIN TO NEXT TEST

sREPEAT TEST
;INTERRUPT, OK, CHANGE VECTOR
;CHANGE RET ADDR 10 5%
sRETURN

0K, NO ADDITIONAL

;ERROR, ADDITIONAL
sCHAIN TO NEXT

TEST

INTERRUPT

T0 6%

CZLACFO LA36 TERM (DL11 & KL 1
CZLACF.PIN
13-JUN=79 15:33
2841

MACY11

30A(1052)

1/0 LOGIC TESTS

13-JUN-79

15:35

PAGE 68

SEQ 0068

JrErrERreYeY

2842

;AT24==TEST#64--HAVE OPERATOR TYPE A CHARACTER ON THE

2844

;

2843

2845
2846
gg:g

2849

2850

2851
2852
2853
2854
2855
2856
2857
2858
2859
2860
2861
2862
2863
2864
2865
2866
2867
2868
2869

2870
2871

2872

2873
2874
2875
2876
2877
2878
2879
2880
2881
2882

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

i
=

007204
007204
007206
007210
007212
007214
007222
007224
007230
007232
007234
007240
007246
007250
007252
007254
007260
007262

007266
007270

007274

007276

007300
007302
007304
007312
007314
007316
007320
007322
007330
007334
007336
007340
007342
007344
007352
007354
007356
007362
007364
007366
007370
007372

KEYBOARD, THEN CHECK FOR RECEIVER DONE.

:
:
:

WHEN BIT 6 (INTERRUPT ENABLE) IS SET.
CHECK THAT READING TKB CLEARS DONE BIT AND
THAT DONE CLEARED DOES NOT CAUSE AN INTERRUPT.

;

ALLOW 12 SECONDS FOR OPERATOR RESPONSE.

(HECK THAT RECEIVER DONE CAUSES AN INTERRUPT

JEEREEERRERETYE

000064
177777
000001
007214
032777
001455
005777
001401
104001
012700
012737
104000
015101
104010
105777
100407
005337

001403
012700

000766

CHGF7:
AT24:

001000

171472

1%:

171362
000600
000030

000716

2%:

3%:

171332
000716

000600

104001

104003
007322
052777
000240
000240
104001
022626
017737
105777
100001
104001
104003
007366
052777
000240
000240
005077
104005
000713
104001
022626
000771

5%:
000100

171300

6% :

171266
171256

000716

7$:
8%:

9%:
000100

171230

171240

108:
11%:

64
-1
1
1%
BIT

BEQ

181
BEQ
ERROR
MOV
Mov
TYPE
OPMSG
DELAY
TSTB
BMI
DEC
BEQ
MOV
BR
ERROR

#LSI11,aSR
108

aTks
2%
#600,R0
#30,CNTR

aTKs$
5%
CNTR
4%
#600,R0
3%

STRDRV
8%
BIS
#BIT6,aTKS
NOP
NOP
ERROR
POPSP2
MOV
aTKB,CNTR
1518
alKS
BPL
9%
ERROR
STRDRvY
11%
;
BIS
#B1T6,3TKS
NOP
NOP
(LR
aTk$
CHAIN
BR
1%
ERROR
POPSP2
BR
10%

;TEST NUMBER
JLAST TEST
:1TERATION COUNT
:SCOPE ENTRY
sSKIP TEST IF NOT AN LSI-11

: SHOULD BE i LEAR
;RECEIVER STATUS NOT =0
:1/2 SEC DELAY
sSET UP FCR 12 SEC WAIT

;MESSAGE TO TYPE A CHARACTER
:1/2 SECOND
;CHECK DONE BIT
;SET - EXIT LOOP

;TIME HAS RUN OUT...
;ANOTHER 1/2 SEC

;CONTINUE WAIT

:NO RECEIVER DONE, OR
;OPERATOR DID NOT RESPOND
;SET RECEIVER INTERRUPT
;10 8%
:ENABLE INTERRUPT
sRECEIVER DID NOT INTERRUPT

;:CLEAN UP THE STACK
;READ DATA BUFFER
;CHECK THE DONE BIT
;0K
:READING DATA BUFFER DID NOT CLEAR DONE
;SET RECEIVER INTERRUPT
;VECTOR 10 118
;ENABLE INTERRUPT

;0K, CLEAN UP
SEXIT TESTS
;DLV INTERRUPTED WITH DONE CLEARED
;CLEAN UP THE STA(K
SEXIT TESTS

CZLACFO LA36 TERM (DLI £ KL 1
CZLACE.PIN
i13=JUN-79 1 5: 33

2897
2898

MACY11

30A(1052)

170 LOGIC

TESTS

13-JUN-79

15:35

PAGE

SEQ 0069

CZLACFO LA36 TERM (DL11 & KL M
CZLACF.P11
13=JUN=-79 15:33

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

2919
2920
2921
2922
2923
2924
2925
2926
2927
2928
2929
2930
2931
2932
2933
2934
2935
2936
2937

2938
2939
2940
2941
2942

MACY11

30A(1052)

LA36 PRINTER TESTS
.SBTTL
;THE

13-JUN-79

6
15:35

PAGE

Sta 0070

LA36 PRINTER TESTS

LA36 PRINTER

TESTS WILL BE EXECUTED

IN A

:CONTINOUS LOOP OUTPUTTING TO ALL MULTIPLE DL11'S
:1F SR BIT 8 IS SET TO ZERD AT START UP TIME.
IFf
;BIT B 1S SET TO 1 AT START UP THEY MAY BE EXECUTED
:INDIVIDUALLY ONCE OR CONTINUALLY LOOPED, OR
:BECOME THE FIRST OF THE ENTIRE SEQUENCE OF PRINTER

;TESTS.

REFERENCE

INTRUCTIONS

:FOR PROPER MODE OF OPERATION.

THE

INTRODUCTION

SXXXXXXXXXX

:PTO == DATA PATH TEST-==FOUR LINES OF ALTERNATING
:

“e'' AND ''U'" ARE PRINTED,

WiDTH.

>
2

*yryryryryry
UrUrUryeyeye
sUsysUryeyey

OUT

TO THE

;TEST
JNEXT

NUMBER
TEST

GIVEN PAPER

THE PATTERN WILL APPEAR AS FOLLOWS.

UrUeUryeyeye

SIOONONXX
XX

007374
007376
007400
007402
007404
007406
007412
007416
007420
007424
007426
00743C
007432
007434
007436
007440
007442
007444
007446

000000
007450
104016
104007
014627
012703
012702
010300
013701
104015
000300
005301
001374
000303
104012

005302
001365
104005

000757

P10:

025125
000004
000652

1%:

2%:

3%:

0
P11
PRTHDR
TYPEM
HDRO

MOV
MOV

MOV
MOy

3
sPRINT

#''ys R3

#4 ,R2

R3,RO

WIDTH,R!

sSET

COLUMN # MESG

FIRST

CHAR PAIR

sSET

LINE

sSET

COLUMN COUNT

;SET

COUNT

CHAR PAIR

PRINTC
SWAB

;PRINT CHAR
sSET NEXT CHAR

BNE

sFINISH LINE

DEC

SWAB
CRLF
DEC
BNE
(HAIN

R3
R2
2%
1%

;DEC COLUMN COUNT

sSET NEXT LINE START
sSEND CR=-LF
;DEC LINE COUNT
sFPINISH TEST
;ALL DONE, EXIT

sREPEAT

TEST

(HAR

CZLACFO LA36 TERM (DL £ KL IRD
CZLACF.P1Y
13=JUN=79 1 5: 33

MACYT1

30AC1052)

LA36 PRINTER TESTS

2943

SXOOOOONON0X

2945
2946

‘P11 -- PRINTER

2944

2947
2948
2949
2950
2951
2952

2953
2954
2955
2956
2957
2958
2959
2960
2961
2962
2963
2964
2965
2966
2967
2968
2969
2970
2971
2972
2973
2974
2975
2976
2977
2978
2979

13-JUN-79

15:35

PAGE

SEQ

(HARACTER

TEST

=== PRINTS ALL

PRINTABLE

(MARA(CTERS

TOOOONONKX
007450
007452
007454
007456
007462
007466
007472
007474
007500
007502
007506

007512
007514
007516
007520
007522
007524
007526
007530
007534
007536
007540
007542
007546
007550
007552
007554
007560
007562
007566
007570

PT11:

702
703

000040
000100
000140

737

007542

4737

007542

2704

1%:

2%:

000003
3%:

327

012704
104015

005304
001375
012700
104015

012700
106015
000207

000200

000003

000040
000040

SPSP:

1%:

SP2:

SPC(:

P12
PRTHDR
MOV

MOV
MOV

MOVP

JSR
MOVB
JSR
MOV
MOVB

PRINTC

DEC
BNE
CRLF
CMPB
1S18B
cMp
BLO
CHAIN
BR
MOV
PRINTC
DEC
BNE

MOV

PRINTC

MOV

PRINTC
RTS

;TEST
JNEXT

#40,R1
#100,R2
#140,R3

R1,R0

SPsSP

R2,RO

PC,SPSP

#3,R4
R3,RO
R4

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

1%
#3,R4
R4

#40,RO

#40,RO
PC

NUMBER
TEST

;SPACE T0 R1
;9 10 R2
;\ TO R3

;CHAR T0 RO
:SEND TWO SPACES
;NEXT CHAR TO RO
;SEND TWO SPACES
;PRINT COUNT T0 R4
:THIRD CHAR TO RO

;PRINT
;THREE

THE (HAR
TIMES ?

:BRANCH IF NOT
;CARRIAGE RETURN LINE
;NEXT CHARACTERS

sCHECK IF ALL DONE
;BRANCH IF NOT

JEXIT

TO NEXT

;THREE

TIMES?

.SPACE

T0 RO

TEST

sREPEAT TEST
sPRINT COUNT 10 R4
;PRINT CHAR

sBRANCH IF NOT

JSEND A SPACE
;SPACE 10 RO
sSEND ANOTHER
;RETURN

FEED

0071

CZLACFD LA36 YERM (DL11 R xL11)
CZLACE P
13=JUN=-79 15:33

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

007700
007706
007714
007722
007730
007736
007744
007752
007760
007766
007774
010002

30AC1052)

LA36 PRINTER TESTS

13-JUN=79

15:35

PAGE

SE0 0077

2 XO0000CN00X

P12 -- NON-PRINTING CHARACTER TEST.
H

PRINTS THE

THWIS TEST

OCTAL CODE FOLLOWED BY

THE MNEMONIC

OF ALL NON=-PRINTING CHARACTERS.
FOLLOWING EACH
MNEMONIC, THE PRINTER 1S DRIVEN BY THE NON=-P
RINTING

(ODE

(00C THROUGH 037 PLUS 177)

ALL CONTROL CHARACTERS
?ég%egf SKIPPED, REFER

(INCLUDING THOSE FOR OPTIONS
TO THE DOCUMENT FOR A LIST OF

THOSE

X000

000002
010166
104016
2701
703
702
704
327
—=OOO—=ON)
— i i

—= OO0 —=—=0O—-=0000

2980
2981
2982
298%
2984
2985
2986
2987
2988
2989
2990
2991
2992
2993
007572
2994
007574
2995
007576
2996
007600
2997 007604
2998 007610
2999
007614
3000
007620
3001
007624
3002
007626
3003
007630
3004
007632
3005
007634
3006
007636
3007 007640
3008 007644
3009 007646
3010 007650
3011
007652
3012
007654
3013 007656
3014
007662
3015
007664
3016
007666
3017 007670
3018 007672
3019 007674
3020
007676

MACYT1

P12:

007700
010141
000003

1%:

2%:
55

000010
000055

4%:

5%:

005304
001375
005302

104015
000753
104012

007554

;TEST

6%:

104012
104005
000740

7%:

020060
030060
046117
051440
020066
031060
042514

042040
020062
031060
031503
042040

047040
020061
030060
054124
040440
020060
031060
030503
042040
020063
031060
032103

IDEZ:

JNEXT

WIDEZ,RI
#NPCODE ,R3

MOV
MOV

#3,R2
#10,R4

BEQ

CMPB

BNE
MOVB
MOV
PRINTC
DEC
BNE
DEC
BEQ
JSR
PRINTC

000747

030060
046125
051440
020062
030060
045503
042040
020061
031060
031103
062040
020064

PRTHDR
MOV
MOV .

MOVB
PRINT(
DEC

000003

001404
004737

P13

(R3),#55

(R1)+,R0

R4
4%
(R3)+,RO
#3,R4

NUMBER

TEST

;PRINT TEST HEADER
;ADDR OF IDENT T0 R1
;ADDR OF NON-PRINT-CODES

sNO. OF
sNO. OF

;ZERO TERMINATOR

;BRANCH IF

YES

IN NP

TABLE?

;GET ID CHARACTERS
;AND PRINT A
:GROUP OF

R4
5%
R2
6%
PC,SP2

;8 CHARACTERS
sGET NP CODE FROM TABLE
; AND
;TRY TO PRINT |1
s THREE
;TIMES
sMORE TO GO ON THIS LINE
sBRANCH IF NO
sSEND 3 SPACES

BR
CRLF
BR

;BRANCH TO CONTINUE LINE

P 3

;GO DO NEXT LINE

LASCIT

7000

NuLQO!

SOMO02

STX/

LASCI1

/7006

ACKk020

DLEC2Y

DC1/

LASCIT

7022

DC2023

DC3024

D(&/

CRLF
CHAIN

T0 R3

ID'S PER LINE TO R2
CHARS PER ID 10 R&4

sCHAIN TO NEXT

TEST

CZLACFO LA36 TERM (DLI1 B kL11)
CZLACF.P1
i13-JUN-79 15:33

3036
3037
3038
3039
3060
3041
3042
30643
30644
30645
3046
3047
3048
3049
3050
3051
3052
3053
3054
3055
3056
3057
3058
3059

010010
010016
010024
010032
010040
010046
010054
010062
010070
010076
010104
010112
010120
010126
010134
010141
010144
010147
010151
010154
010157
010161
010164

031060
045507
051440
020067
031460
047101
042440
020062
031460
020123
043440
020066
031460
020123
042040
000
020
023
025
030
034
036
055
010166

020065
031060
047131
042440
020060
031460
020115
051440
020064
031460
020123
051040
020067
033461
046105
002
021
024
025
031
035
037

MACY11 30AC1052)
13-JUN=79
LA36 PRINTER TESTS

047040
020066
031060
041124
041440
02006!
031460
041125
04304C
020065
031460
020123
052440
020067
040
006
022

15:35

PAGE

73
SE0 0073

LASCIT

7025

NAK026

SYND27

ETR/

-ASCIT

7030

CANO31

EM 032

SuB/

LASCI1T

/034

#S 035

GS 03

RS /

LASCIT

/037

usS 177

DEL

.BYTE

0,2,6,20,21,22,23,24

027
032

.BYTE

25,25,27,30,31,32,3¢4,35

177

BYTE

36,37,177.55

NP(ODE:

LEVEN

CZLACFO LA36 TERM (DL11 B KL 1
CZLACF.P1Y
13-JUN=-79 15:33

MACYTT 30AC1052)
13-JUN=79
LA36 PRINTER TESTS

3060
3061
ggg%

SXXXXXXNXXX
:
:F13 == CARRIAGE RETURN TEST

3064
3065
3066
3067
3068
3069
gg;?

5
z
:
5
3
3
;

3072
3073
3074
3075
3076
3077
3078
3079
3080
3081
3082
3083
3086
3085
3086
3087
3088
3089

SXXXXXXXXXX

3090

3091
3092
3093
3094
3095
3096
3097
3098
3099
3100

010166
010170
010172
010174
010200
010204
010210
010212
010214
010216
010222
010224
010226
010230
010236
010242

010246

010250
010252
010256
010260
010262
010270
010276
010300
010302
010304

000003
010306
104016
005037
013701
012700
104015
005301
001404
004737
005301
001367
104022
012737
013701
004737

005301

001374
012700
104015
104022
062737
023737
103757
104014
104005
000733

PT13:

000674
000652
000117

1%:
2%:

007562

000001
000674
007562

000674

000130
000002
000674

000674
000652

3%:

4%:
5%:

6
15:35

PAGE

74
SEQ 0074

THE LINE CONSISTS OF A STRING GF 0'S AND
X'S.
FIRST, THE 0'S ARE PRINTED OUT TO THE LAST
COLUMN WITH A SPACE SEPARATING EACH.
THEN THE
CARRIAGE IS SPACED TO THE FIRST BLANK SPACE, AN X
IS PRINTED AND THEN RETURNED 7O THE MARGIN.
THIS
PROCESS 1S CONTINUE UNTIL ALL SPACES BETWEEN
THE ZEROES HAVE BEEN FILLED.

3
P14
PRTHDR
CLR
MOV
MOV
PRINTC
DEC
BEQ
JSR
DEC
BNE
(R
MOV
Mov
JSR

DEC

BNE
MOV
PRINTC
CR
ADD
CMP
BLO
LF
(HAIN
BR

SPCNT
WIDTH,RI
#117,R0
R1
3%
PL.SPC
R1
2%
#1,SPCNT
SPCNT ,RI
PC,SPL

5%
#130,R0

#2,SP(NT
SPCNT,WIDTH
4%

;TEST NUMBER
JNEXT TEST
;TYPE HEADER
;CLEAR SPACE COUNTER
;POSITION COUNTER 10 Ri
;0" T0 RO
;PRINT THE 'O
;DECREMENT POSITION COUNTER
;BRANCH IF 0
;SEND SPACE
;DECREMENT POSITION COUNTER
;BRANCH IF NOT ZERO
;SEND A CR
;SPACE, COUNTER SET 10 1
;NO. OF SPACES 10 R1
s SEND SPACE

sDECREMENT SPACE COUNTER

sBRANCH IF NOT ZERO
;U INTO RO
sPRINT "'x"'
;PRINT (R
s INCREMENT SPACE COUNT BY 2
s COMPARE POSITION COUNTER WITH COLM.
sBRANCH IF LOWER
JSEND LF
sCHAIN TO NEXT TEST
JREPEAT TEST

COUNT

LACFO LA36 TERM (DL11

ACF.PIY

13=JUN-79

& KL 1)

15:33

MACY11

30A(1052)

LA36 PRINTER

TESTS

13-JUN=79

6
15:35

PAGE

75
SEQ 0075

;83

OO0

103
104
105
106

;P14 == MULTIPLE LINE FEED TEST =-- 63 LINE FEEDS ARE
:
SENT WITH A REFERENCE LINE AT THE START AND END.
:
A NUMBER 1S PRINTED WHICH INDICATES THE NUMBER OF
;
FEEDS THAT WILL BE ISSUED BEFORE THE NEXT

}8;

}?8

SXXXXXXXXXX

111

112
113
114
115
116
117
118

119
120
121
122
123
126
125
126
127
128
129
130
131
132
133
136
135
136
137
138
139
140
141
142
143

146
145
}4?
&

148
149
150

010306

010310
010312
010314
010322
010326
010332
010336

010342
010344
010346
010350
010354
010362
010364
010366
010370
010372
010374
010376
010400
010404
010410
010412
010414
010416
010420
010422
010424
010626
010430
010434
010436

000004

010464
104016
012737
013701
012702
004737
013701

104014
005301
001375
006337
022737
001406
112200
104015
112200
104015
104022
000757
013701
004737
104014
104005
000737
112200
104015
112200
104015
005761
012700
104015
005301

010440
010442
010444

001375
104022
000207

010446
010454
010462

030460
034060
030060

PT4&:
000001
000652
010446
010416
000706

000706

1%:

2%:

3%:

000706
000100

000706

000652
010416

4%:

REF :

000137

031060
033061

1%:

032060
031063

LINE3:

LINE

NUMBER OR REFERENCE LINE 1S PRINTED.

P15
PRTHDR
MOV
MOV
MoV
JSR
MOV

LF
DEC
BNE
ASL
CMP
BEQ
MOVB
PRINTC
MOVB
PRINTC
(R
BR
MOV
JSR
'
LF
CHAIN
BR
MOVB
PRINTC
MOVB
PRINTC
181
MOV
PRINTC
DEC

;TEST NUMBER

#1,LFCNT
WIDTH,R1
#LINE3,R2
PC,REF
LFCNT,R?

R1
3%

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

2%
WIDTH,RI
PC,REF

1%
(R2)+,R0
(R2)+,R0
-(R1)
#137.R0

BNE
(R
R1S

.ASCII

/01020408163200/

NEXT TEST
;TYPE HEADER
sLINE FEED COUNT 1O 1
;COLUMN COUNT T0 R1
;ADDR OF NUMBER FIELD TO R2
sPRINT REFERENCE LINE
;LINE FEED COUNT TO R1

;SEND LF
;DECREMENT COUNTER
sBRANCH IF NOT YET 0

;DOUBLE LINE FEED COUNT
;TEST IF COUNT IS 32
;BRANCH IF =32, END
;NUMBER T0 RO
;PRINT IT
;NUMBER T0 RO
:PRINT IT
:PRINT (R
;DRIVE THE LINEFEEDS
;COLUMN COUNT T0 R1
;SEND END REFERENCE LINE
;ADVANCE PAPER
sREPEAT TEST
;NUMBER 10 RO
;PRINT IT
;NUMBER T0 RO
;PRINT 17
sDECREASE CUUNTER BY 2
:DASH (=) T0 RO
;PRINT 1T
sDECREMENT COLUMN COUNTER

;BRANCH IF
sPRINT (R
:RETURN

NO ZERO

CZLACF P13}

& KL 1)

13-JUN=79 15:33

3151
3152
3153
g}g‘so
3156
3157

3199
3200
3201
3202
3203
3204

30A(1052)

LA36 PRINTER TESTS

13-JUN-79

6
15:35

PAGE

SEQ 0076

SXXXXAAXXXX
iPT5==
SINGLE LINE FEED TEST ==
TESTS THE LINE
:
CAPABILITY FROM ALL COLUMNS.
SXOO00NNXX
010464
010466

000005
010670

3158 010470
104016
3159 010472
013701
3160
010476
005741
3161
010500 012700
3162
010504
104015
3163 010506 005301
3164
010510
001375
3165 010512 012700
3166 010516
104015
3167
010520
104015
3168 010522
023727
3169 010530 001404
3170 010532 012700
3171
010536
104010
3172 010540 000407
3173 010542 012700
3174
010546
012701
3175
010552
104015
3176 010554
005301
3177 010556 001375
3178 010560
104012
3179 010562
013701
3180 010566 012700

3181
3182
3183
3184
3185
3186
3187
3188
3189
3190
3191
3192
3193
3194
3195
3196
3197
3198

MACYT1

010572
010574
010576
010600
010602
010604
010610
010612
010636
010620
010624
010626
010630
010632
010636
010642
010644
010646

010650
010652
010656
010660
010664
010666

104015
104014
005301
001372
104022
004737
104012
012700
104010
004737
104012

104005
000720
013701
012700
104015
005301
001407
005200
020027
101771
012700
000766
000207

PIS:

000652

1$:

000060

28:

000204

003410
000063
000100

000652
000134

33:
4$:

5%
6%:

010632
001750

010632

000652
000061

PRTHDR
MOV
ST
MOV
PRINTC
DEC

BNE

000062
000652

5
P16

PTSAL:
1$:

000071
000060

. PR

MOV
PRINTC
PRINT(
(WP
BEQ
MOV
DELAY
BR
MOV
MOV
PRINTC
DEC
BNE
CRLF
MOV
MOV
PRINTC
LF
ML
BNE
(R
JSR
CRLF
MOV
DELAY
JSR
CRLF
CHAIN
BR
MOV
MOV
PRINTC
DEC
BEQ

INC
(MP
BLOS
MOV
BR
[T

FEED

:TEST NUMBER
INEXT TEST

#62,R0

: TYPE_HEADER
:COLUMN COUNT 10 R1
:DECREASE BY 2
:'0' 10 RO
:SEND 0
:DECREMENT COLUMN COUNTER
:BRANCH 1F NOT ZERO
iSEND A 2

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

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

WIDTHW,RI
-(R1)
#60,R0

59
#63,R0
#100,R
Rl
48
WIDTH,RI
#134,R0

M
68
PC,PTSAL
#1750.R0

PC,PTSAL

1%
WIDTH,R!
#61,R0
Rl
28
RO
RO, #71
1%
#60,R0
13

:3'S_10 RO
;64 T0 COUNTER
: SEND CHARACTER
:DECREMENT COUNT
:BRANCH IF NOT ZERO
:SEND A CR,LF
iNO. COLUMNS TO R1
;BACKSLASH T0 RO
:SEND IT
:PRINT LF
:DECREMENT COUNTER
:BRANCH 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

:CHAIN TO NEXT TEST
:REPEAT TEST
:COLUMN COUNT TO R1
;1"
10 RO
iPRINT RO
:DECREMENT COUNTER
:BRANCH 1F=0
; INCREMENT CHARACTER
:COMP CHAR TO '9
iBRANCH IF LOWER OR SAME
:RESET CHAR 10 "0
: CONTINUE
;FINISHED, RETURN TO CALLER

|S—

CZLACFO LA36 TERM (DL11

3205
3206
3207
3208
3209
3210
3211

13-JUN-79

L
15:35

PAGE

SEQ 0077
TEST

== A REFERENCE

LINE

SUCH AS

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

SXXXNXXXXXX

3213

3214

000006
011056
104016
104007
014627

013701
005741
012700

106015
005301

001375
012700
104015
104015

023727
001404
012700
104010
000407
012700
012701
104015

(eleleloleleleloleloleleTe)

3252
3253
3254
3255
3256
5257

30A(1052)

LA36 PRINTER TESTS

:
3
:
3

3212

3215
3216
3217
3218
3219
3220
3221
3222
3223
3224
3225
3226
3227
3228
3229
3230
3231
3232
3233
3234
3235
3236
3237
3238
3239
3240
3241
3242
3243
3244
3245
3246
3247
3248
3249
3250
3251

MACY11

S XXXXXXXXXX
:PT6=BACKSPACE

&~ NN
NN = - - o
o oroosrNnNOoOoNNO
S

You |

CZLACFO LA36 TERM (DL11 £ KL )
CZLACF P11
13-JUN-79 1 3: 33

044

005301
001375
104012
013701
012700
104015

PT6:

000652

2%:

000062
000652

000204

003410
000063
000100

000652
000134

012700
104015
005301
001365
104014
104022
004737
104012
012700
104010
004737
104012

000057

104005

1%:

000060

000010

000712

;sTEST NUMBER

PRTHDR
T;:gn
H
MOV
181

sPRINT
sPRINT

P17

012700
104015

MOV

PRINTC

DEC
BNE
MOV
PRINTC
PRINTC
ggz
MOV
DELAY

3%:
4%:

5%:

6%:

BR
MOV

MOV
PRINTC
DEC

BNE
CRLF

MOV

PRINTC
MOV
PRINTC
MOV
PRINTC
DEC

BNE

010632

001750

010632

LF
CR

JSR
CRLF
MOV

DELAY

sNEXT

TEST

HEADER
COLUMN ¥ MESG

WIDTH, R
-(R1)
#60,R0

;COLUMN COUNT 10 R1
;DECREMENT BY 2
910 RO

R1
2%
#62,R0

sDECREMENT COLUMN COUNTER
;BRANCH IF NOT ZERO
;2" 10 RO
;sSEND A ‘72"

SEND 0

g}DTH.lliz.

;sSEND A SECOND ''2''
; COMPARE COLUMN COUNT

#3410,R0

;DELAY

5%
#63,R0

:3'S T0 RO

#100,R1

R1
4%

WIDTH, R
#134,R0

#10,R0

#57,R0
R1
6%

PC,PTSAL

#1750,R0

1.8 SEC

;64 T0 CHAR COUNT
;SEND CHAR

sDECREMENT CHAR COUNT
sCONTINUE IF NOT DONE
sSEND A CR,LF

:COLUMN COUNT TO F1
sBACKSLASH T0 RO

SEND IT
sBACKSPACE T0 RO
sSEND 17
;FORWORD SLASH TO RO
JSEND IT
sEND OF PAPER

;BRANCH IF NO

sSEND LF
sSEND CR

sSEND REF LINE #
sSEND A CR,LF
DELAY 1 SEC

JSR
CRLF

PC,PT5AL

sSEND SECOND REF LINE
sSEND A CR,LF

sREPEAT TEST

CHAIN

:CHAIN TO NEXT

1EST

CZLACFO LA36 TERM (DL11 & KL 1)
CZLACF.P11
13-JUN=79 15:33

MACY11 30A(1052)
13-JUN-79
LA36 PRINTER TESTS

6
15:35

PAGE

78
SEQ 0078

gg;g

SXXXXXXXXXX

3260
3261
3262
3263
3264
3265
3266
3267
3268
3269
011056
3270 011060
3271
011062
3272
011064
3273 011070
3274
011074
3275 011100
3276
011102
3277 011104
3278 011106
3279 011112
3280 011114
3281
011116
3282 011122

;PT7-=
OVERPRINT TEST-- A ROW OF ALTERNATING M'S AND
:
SPACES ARE PRINTED, OUT TO THE LAST COLUMN AND OVFRPRINTED TWICE.
3
A SECOND LINE OF ALTERNATING SPACES AND ''3'S'' IS THEN
:
SENT 3 TIMES AS THE FIRST LINE.
THIS IS FOLLOWED
:
BY A THIRD AND FINAL LINE OF ALTERNATING ‘&'
:
AND SPACES.
)
SXXOXNXXXXX

3283
3284
3285
3286
3287
3288
3289
3290
3291
3292
3293
3294

3295
3296
3297
3298
3299
3300
3301
3302
3303
3304
3305
3306

3307
3308

011124
011126
011130
011132
011134
011136
011140
011142
011146
011152
011154
011156

011162
011164
011166
011170
011174
011176
011200
011202
011204
011206
011210
011212

011214
011220

000007
011270
104016
012703
013701
012700
104015
005301
001404
004737
005301
001367
022703
001003

104022
005303
000757
005703
001373
104012
005723
013701
004737
005301
001405
012700

104015
005301
001367
022703
001003
104022
005303
000757
005703
001373
104012
005723

013701
012700

3309
gg}o

011224
011226

104015
005301

3312
3313

011230
011232

001404
004737

P17:

000002
000652
000115

1%:
2%:
33:

007562
000002

4%:

5%:
6%:

000652
007562

7%:
8%:

000100

000002

9%:
10%:
118:

000652
000046

007562

128%:
13%:

7
PT10
PRTHDR
MOV
MOV
MOV
PRINTC
DEC
BEQ
JSR
DEC
BNE
CMP
BNE

CR
DEC
BR
181
BNE
CRLF
187
MOV
JSR
DEC
BEQ
MOV
PRINTC
DEC
BNE
cMp
BNE
CR
DEC
BR
TS1
BNE
CRLF
1871

MoV
MOV

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

R3
2%
R3
5%

(R3)+
WIDTH,R1
PC,3PC
R1
9%
#100,R0

R1
8s
#2,R3
118

R3
7%
R3
108
(R3)+
WIDTH,RI
#46,R0

;TEST NUMBER
SNEXT TEST
;PRINT MESSAGE
;2 COUNT TO R3
sNO. OF COLUMNS TO R1
M T0 RO
JSEND IT
sEND OF LINE
;BRANCH IF YES
sSEND SPACE
JEND OF LINE?
;BRANCH IF NO
:TEST R3
;BRANCH IF NOT FIRST TIME

;SEND CR
:DECREASE LINE COUNTER
sREPEAT LINE
;THIRD TIME?
;BRANCH IF NOT
sNEXT LINE
sREPEAT COUNTER T0 R3
:COLUMN COUNT TO R
:SEND SPACE
;DECREASE COLUMN COUNT
sBRANCH IF 0, END OF LINE
;'8 TO0 RO

;SEND IT
;DECREASE COLUMN COUNT
;BRANCH IF NOT O (NOT END)
;END OF LINE, FIRST TIME?
;BRANCH IF NOT
sSEND CR
;DECREASE LINE COUNTER
sREPEAT LINE
;TEST IF THIRD REPEAT
sBRANCH IF NOT
;D0 NEXT LINE
;LINE REPEAT COUNTER T0 R3

:COLUMN COUNT TO R1

8" T0 RO
:SEND 1T

PRINTC
DEC

;DECREASE COLUMN COUNT

BEQ
JSR

14%
PC,SPC

;BRANCH IF END
;SEND SPACE

CZLACFO LA36 TERM (DL11 & KL (RY
CZLACF.P
13=JUN-79 15:33

3314
3315
3316

3317
3318
3319
3320
3321
3322
3323
3324
3325

011236
011240
011242

011246
011250
011252
011256
011256
011260
011262
011264
011266

005301
001367
022703

001003
104022
005303
000757
005703
001373
104012
104005
000676

(00002

MACYT]

30AC1052)

LA36 PRINTER

14%:

15%:
16%:

DEC
BNE
cmp

BNE
(R
DEC
BR
151
BNE
CRLF
CHAIN
BR

TESTS

13-/UN-79

R1
13%
¥#2,R3

16%

R3
12%
R3
15%
1%

15:35

PAGE

SEQ 0079

sDECREASE COLUMN COUNT
sBRANCH IF NOT END
STEST IF FIRST TIME

;BRANCH IF =2, FIRST TIME
SSENT (R
;DECREASE REPEAT COUNTER
sPRINT LINE AGAIN
;TEST IF END, R3=0
;sBRANCH IF NOT END
;SEND CR,LF
sCHAIN TO NEXT TEST
sREPEAT TEST

CZLACFO LA36 TERM (DL!1 R KL 1)
CZLACF.P1
13=JUN=79 15:33

MACYT1 30A{1052)
13-5UN-79
LA36 PRINTER TESTS

§§§$

3328
3329
3330
3331
3332

s"410-:
.
2
:

gggz

XXX
X

3346
3347

3348
3349
3350
3351
3352
3353
3354
3355
3356
3357
3358
3359
3360
3361
3362
3363
3364

3365
3366
3367
3368

3369
3370
3371
3372
3373
3374

011334
011336
011340
011344
011346
011350
011352
011354
011356
011360
011362
011364
011366
011372

011374
011400
011402
011406

011410
011412
011416
011420
011422
011424

104015
012700

104010
005301
001426
005302
001430
013704
006204
006204
006204
006204
010405
006204
006204
006204
060405
022702
003403

160537
000745
060537
000742

104012
012701
000746
104012
104005
000724

000036
000170
000036
000110
000036

1%:
011324

2%:
3%:

4%:
011324

000074

011324
011324
000036

5%:
6%:

7%:

SEQ 0080

_120TH CHARACTER. THIS DELAY IS CALCULATED AS FOLLOWS;

3337
3338
3339
3340
3341
3342
3343
3344
3345

PT10:

PAGE 80

PRINTING FREQUENCY TEST-- 120 H'S ARE PRINTED ON & LINES
30 PER LINE. THE TEST IS SUCH THAT BETWEEN THE FIRST AND
SECOND
“H' A 30 MSEC DELAY IS INTRODUCED. THIS DELAY IS THEN INCREA
SED
BETWEEN CHARACTERS OUT TO 60 CHARACTERS IN AN EXPONENTIAL
MANNER. THE DELAY IS THEN DECREASED IN THE SAME MANNER OUT
TO THE

000010
011426
104016
012701
012702
012737
012700

15:35

%%gg

011270
011272
011274
011276
011302
011306
011314
011320
011322
011326
011330
011332

NEW DELAY = OLD DELAY [+ OR =] (OLD DELAY/16 + OLD DELAY/128 )
10
PT1
PRTHDR
MOV
MOV
MOV
MOV

PRINTC
MOV

DELAY
DEC
BEQ
DEC
BEQ
MOV
ASR
ASR
ASR
ASR
MOV
ASR
ASR
ASR
ADD
cMP
BLE

SUB
BR
ADD
BR

CRLF
MOV
BR
CRLF
CHAIN
BR

#36,R1
#120. ,R2
#30.,3%42
#110,R0
#30.,R0
R1
6%

R2
7%
3%+2,R4
R4
R4
R4
R4
R4 RS
R&

R4
R4
R4 ,RS
#60. ,R2
5%

RS,38+2
2%
RS,3%¢2
2%
#36,R1
4%

;TEST NUMBER
JNEXT TEST
;TYPE MESSAGE
;SET R1=30
sSET CHAR COUNT = 120
sSET UP DELAY VALUE
;W' TO RO
:SEND IT

;DELAY
;DEC. COUNT OF CHARS PER LINE
sBRANCH IF 0O, END OF LINE
;DECREMENT CHAR COUNTER
;BRANCH IF END
:GET OLD DELAY
;CAL 1716 OF OLD DELAY

sSAVE 1/16 IN RS
;CAL 1/128 OF OLD DELAY
:1/16 +1/128 10 RS
;TEST WHICH HALF OF THE 120 CHARS.
;BRANCH IF LT OR EQ 60

:GT
;GO
;LT
;GO

51, DECREASE DELAY BY 34 MEC.
PRINT AGAIN
HALF WAY, ADD DELAY OF 34 MEC.
PRINT AGAIN

sSEND CRLF
;SET R1=30

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

CZLACFO LA36 TERM (DL11 R KL 1)
CZLACF.P11
13=JUN=79 15:33

MACYT1 30A(1052)
13-JUN-79
LA36 PRINTER TESTS

15:35

PAGE 81

g%;g

3377
3378

:PT11-- RIBBON FEED TEST-- THIS TEST PRINTS A SINGLE COLUMN
OF
2
(24 LINES) DOWN THE LEFT MARGIN OF THE PAGE.

gggg

3381
3382
3383
3384
3385
3386
3387

3388
3389
3390
3391
3392
3393
3394
3395
3396
3397
3398
3399
3400
3401
3402
3403
3404
3405
3406

3407

3408
3409
3410
3411
3412
3413
3414
3415
3416
36417
3418
3419
3420
3421
3422
3423
3424
3425
3426

011426
011430
011432
011434
011440
011444
011446
011450
011452
011454
011456

000011
011460
104016
012701
012700
104015
104012
005301
001372
104005
000766

‘
SEQ 0081

X'S

VISUALLY CHECK THE RIBBON FEED MECHANISM FOR PROPER OPERATION.

‘
:

SXXXXXXXXXX

PT11:

000030
000130

1%:
2%:

", .
¢a v

1N
P112
PRTHDR
MoV
MoV
PRINTC
CRLF
DEC
BNE
CHAIN
BR

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

;TEST NUMBER
sNEXT TEST
: TYPE MESSAGE
;SET R1=24(10), LINE COUNT
;SET CHAR = X
sPRINT X
;SEND CR-LF
;DECREMENT LINE COUNT
;CONTINUE IF NOT DONE TEST
;CHAIN TO NEXT TEST
;REPEAT TEST

:
'

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

011460

011462
011464
011466
011472
011476
011500
011502
011504
011506
011512
011514
011520
011522
011524
011526
011530
011532
011534
011536

.
EIGHT BELL SIGNALS TO THE PRINTER
:
2
SXXXXXXNXXX
-

000012

007374
104016
012701
012700
104015
005301
001375
104014
012700
104010
013700
001405
000240
004710
000240
000240
000240
104005
000753

PT12:

000010
000007

003720
000042

P10
PRTHDR
PT12A:
MOV
MoV
1$:
PRINTC
DEC
BNE
LF
MOV
DELAY
MoV
BEQ
NOP
LOGICAL:JSR
NOP
NOP
NOP
HERE:
(HAIN
BR

;THIS TEST

R1
1%

sNEXT TEST
;TYPE HEADER
;COUNTER 10 R1
;BELL TO RO
;SEND IT
;DECREMENT COUNT
;BRANCH IF NOT ZERO

#3720,R0

;DELAY 2 SEC BEFORE RESTARTING

ars? RO
4ERE

;CHECK IF UNDER ACT11 OR XXDP
;CONTINUE TEST SEQUENCE
;A RESET WAS FORMERLY MERE

#10,R1
#7,RO

PC,(RO)

P112A

;CHAIN TO NEXT TEST
;REPEAT TEST

.
2

CZLACFO LA36 TERM (DL1N £ KL 1)
CZLACF.P11
13=JUN=79 1 5: 33

3439
3,40
36441
3442
34643
3444
36445
3446
3447
3448
3449
3450
3451
3452
36453
3654
3455
3456
3457
3458
3459
3460
3461
3462
3463
3464
3465

3466
3467
3468
3469
3470
3671
3472
3473
36474
3475
3476
3477
3478
3479
3480
3481
3482

LA36 PRINTER TESTS

13-JUN-79

15:35

PAGE

Sta 0082

;PT17-= LIFE TEST

THIS TEST PRINTS 2 FULL LINES OF EACH PRINTABLE
CHARACTER AND OVERPRINTS THE SECOND LINE & TIMES.
THIS TEST IS CONTINUOUS RUNNING ONCE INITI
ATED,
LOOPING AUTOMATICALLY ON ITSELF.
END OF PASS COUNT 1S CLEARED WHENEVER TEST IS RESTAR
TED

SXO0O0NNNXNX

000017
011540
000137
000017
011540
005037
013704
012737
1064016

0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
01
01
01
01
01
01

01
01
01
01
01
O
01
01
01
01
01
01
01
01
O
01
01

PT17B:

011600
012116
000652
000001

PT17:

012114

104007

014627
012703
005237

700
702

000041
012116
012116

000001
014542
012116
000002
000652

104015

005301
003372
004737
104012

NNNNNNNNNNNNNN~N

3438

30A(1052)

SXXXXXXAAXXNX

PRl
L N N
TM 1=
oNOSsfNNO
SO SSNNO SN

3427
3428
3429
3430
3431
3432
3433
3434
3435
3436
3437

MACYT1

012702
013701
010300
004737
104015
005301
003372

011766

104014
005203

022703
001341
004737
004737

000031
012116

CLR
MOV
MOV
PRTHDR
TYPEM
HDRO
MOV
INC

cmMp
BNE

20%:

1%:

2%:

012034
000005
000652
011766

3%:

4%:

MOV

012034
012034

PT17D

PASCNT
WIDTH,RS
#1,DIRTN

sCLEAR PASS COUNT
JINITIALIZE R4
sAND DIRECTION OF PRECESS

JNEXT TEST

sPRINT

#41,R3
PASCNT

PASCNT ,#31
20%

#1,PASCNT

#PASMES RO

;SET

COLUMN # MESG

START

CHAR

;DO 31 TIMES
sBRANCH IF NOT DONE

;START

OVER

;SET MESG ADDR

PASCNT,R1
#2,R2

;# TO CONVERT
:# DIGITS

MoV

WIDTH,R!

sSET

BTOASC

; CONVERT PASCNT

T0 ASCII

COLUMN COUNT

MOV
JSR

R3.RO
PC,CKPOS

DEC
BGT
J:RF
CRL
MOV

R1
2%
PC,ADJRSG

;DECREMENT COUNT
;BRANCH IF NOT DONE
sADJUST R4 POINTER

"5,R2
WIDTH,RT

R3,RO
PC,CKPOS

;SET OVERPRINT COUNT
sSET COLUMN COUNT
sGET CHARACTER
sTIME TO INSERT PASS # ?

DEC
BGT

R1
4%

;DECREMENT COUNT
;BRANCH IF NOT DONE

DEC

;DONE OVERPRINTS ?

JSR
LF
INC
Cmp

PC,ADJRG

sADJUST R4 POINTER
sSEND LF
sSET NEXT CHAR
;DONE CHAR SET ?

MOV

MOV
JSR

000177

NUMBER

sNEXT TEST
s CONTINUE
;TEST NUMBER

MOV
MOV

PRINTC

012034

;TEST

PT178B

PRINTC

104022

005302
001365
004737

PT17D:

PT17B
JMP
17

BNE

JSR
JSR

R3
#177 ,R3
1%
PC,ADJRS
PC,ADJRS

;GET CHARACTER
;TIME TO INSERT PASS # 2

;SEND CHAR

;SEND CR

sNO. CONTINUE

;OFFSET POINTER 3 PLACES
;10 RETAIN VISUAL AL IGNMENT

3483
3484
3485
3486
3487
3488

on
on

004737
104007
014523
104005
000705

012034

MACYT1

30A(1052)

LA36 PRINTER TESTS
JSR

T(PEM

13-JUuN-79

PC,ADJRS

ENDPAS

CHAIN
BR

PT17D

N
|

CZLACFO LA36 TERM (DL11 & KL11)
CZLACE P11
13=-JUN=79 15:33

:35

PAGE 83

SEQ 0083

: THROUGH END OF PASS
;TYPE END OF PASS MESG
;REPEAT

TEST

CZLACFO LA3 TERM (DL1T 8 KL 1"
CZLACE.PIN
13-JUN=-79 15:33

3489
3490
011766
3491
011770
3492
011772
3493
011776
3494
012000
3495
012004
3496
012006
3497
012012
3498
012014
3499
012020
3500
012022
3501
012026
3502
012032
3503
3506
012034
3505
012040
3506
012042
3507
012044
3508
012050
3509
012052

3510
3511
3512

3513
3514
3515
3516

3517
3518
3519
3520
3521
3522
3523

012056
012060
012066

012070
012072
012076
012100

020407
001020
012700

104015
113700
104015
113700
104015
012700
104015
162701
062716
000207

005737
001013
005204
020437

101420
013704
005304
012737
000411
005304

020427
002401
000404

012102
012106
012112

012704
005037
000207

012114
012116

MACYT1

30A(1052)

LA36 PRINTER TESTS

(KPOS:

000040

CMP

BNE

MOV
PRINTC
MOVB
PRINTC
MOvVB
PRINTC
MOv
PRINTC

014542
014543
000040
000003
000002

SUB

1%:

012114

ADJRSG:

ADD
RTS

000652

187
BNE
INC
CmMp

000652

MOv

000001
000004
000005
012114

BLOS

012114
1%:

DEC
MOv
BR
DEC
CMP
BLT
BR

13-JUN=79

7
15:35

PAGE B84
SEG 0084

R4 R
1%
#40,R0

1S IT TIME TO INSERT PASS #
sBRANCH IF NO
JPRINT A SPALE

PASMES,RO

sPRINT

MSG OF

#40,R0

sPRINT

#3,R1

;ADJUST R1

PASS COUNT

PASMES+1,R0O

:E.(SP)

SPACE

3 POSITIONS

sADJUST RETURN PC OVER PRINTC

DIRTN
1%

;TEST DIRECTION OF
sBR IF LEFT

R4&,WIDTH
3%

;1S R4 > WIDTH ?
;BR 1F NOT GREATER

s INCREASE

WIDTH,R4
R4
#1,DIRTN

2%
3%
#5,R4

JLESS

;DECREASE
THAN 4 ?

POSITION

CNTR

;BR IF YES
SELSEEXLT
;SET R4 10 POS 5

2%:

MOV

3%:

CLR
RTS

SEXIT

000000

DIRTN:

.WORD

;DIRECTION OF

000000

PASCNT:

.WORD

DIRTN

CNTR

;CHANGE DIRECTION
5
10
3
LEFT.

R&
R4, ¥4

POSITION

PRECESS

;CHANGE DIRECTION TO RIGHT

PRECESS

(O=LEFT)

CZLACFO LA3Z6 TERM (DL 4 KL 1M
CZLACE P
i3-JUN=79 1 %: 33

3524

MACYT1

30AC1052)

LA36 PRINTER TESTS

13-jUN-79

15:35

PAGE

SEc 0085

CZLACFO LA36 TERM (DL1Y R xL 1M
CZLACF.PIN
13=JUN=-79 15:33

3525
3526
3527
3528
3529
3530
3531
3532
3533
3534
3535
3536
3537
3538
3539
3540
35641
3542

3543
35644
3545
3546
3547
3548
3549
3550
222;

012120
012122
012124
012126
012130
Gi2134&
012136
012144
012146
012150
012156
012160
012162
012164
012166

000020
012170
104016
104020
012700
104010
022737
001405
104017
117777
000763
104007
014772
104005
000757

0C0036

000177

000700

166440

166442

3565
3566
3567
3568
3569
3570
3571
3572
3573

012170
012172

012174
012176
012204

012210

012214
Q12216
012220
012222
012224

15:35

PAGE

SEC 00B6

CMP
BEQ
PRNT
MOVB
BR
TYPEM
ECOEND
CHAIN
BR

#177,TEMPCH
2%

aTKB,aTPB
1%

;CHECK IF RUBOUT
;BRANCH IF YES
sNO, CHECK PRINTER READY
sREADY, ECHO CHARACTER

;PRINT
1%

TERMINATION MESSAGE

sCHAIN TO NEXT TEST
;REPEAT TEST

SO
:
;ED21-= LINE ECHO TEST, FAST RATE== THIS TEST WiLL
2
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
;
RUBOUT.
3
SHXXXXXXXXX
:
E021:
21
;TEST NUMBER
E022
JNEXT TEST

000021
012226

104016
012737
013702
013700
104015
005302
003373
104012
000767

13-JUN=79

LSBTTL
LA36 ECHO TESTS
:
SXXXXXXRNXX
:
;E020-- (HARACTER 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' wlLL CAUSE THE TEST TO BE
H
TERMINATED.
X000X
:
£E020:
20
;TEST NUMBER
E021
JNEXT TEST
PRTHDR
;s TYPE HEADER
1%:
READ
;G0 WAIT FOR <EYBOARD INPUT
MOV
#30.,R0
;sDELAY FOR HALF DUPLEX
DELAY

2%:

3553
3554
3555
3556

3557
3558
3559
3560
3561
3562
3563
3564

MACYTT 30AC1052)
LA36 ECHD TESTS

000060
000652
000662

000662

ED21A:
1%:
2%:

PRTHDR
MOV
MOV
MOV
PRINTC
DEC
BGT
CRLF
BR

#60 ,REPT
WIDTH,R2
REPT,RO
R?
2%
1%

s TYPE HEADER
;CHARACTER TO BE REPEATED (0)
sSET COLUMN COUNT

:GET CHAR

;PRINT CHAR
;DEC COLUMN COUNT
;FINISH LINE
JSEND A CR AND LF

CZLACFO LA TERM (DL11 B KL 1)
CZLACF . P1N
13-JUN=-79 15:33

3574
3575
3576
3577
3578
3579
3580
3581
3582
012226
3583
012230
3584
012232
3585
012234
3586 012242
3587
012246
3588
012252
3589
012254
3590
012256
3591
012260
3592
012264
3593
012266
3594
012270
3595
012272

000022
012500
104016
012737
013702
013700
104015
005302
001404
012700
104010
000767
104012
000763

000060
000652
000662

003410

000662

MACYT1

30A(1052)

LA36 ECHD TESTS

13-JUN=79

15:35

PAGE

SXOOOONNNNXX
:
:E022-= LINE ECHO TEST, SLOW RATE=-- SAME AS E021 EXCEPT
:
THAT A DELAY IS INTRODUCED BETWEEN C(HARACTERS
:
TO PRODUCE A LCv ACTION
:
SXO000XXX
3
E022:
22
E023
PRTHDR
;TYPE HEADER
E022A:
MOV
#60,REPT
sLOAD O AS INITIAL CHARACTER
1%:
MOV
WIDTH,R2
;SET COLUMN COUNT
2%:
MOV
REPT,RO
;GET CHAR
PRINTC
;PRINT CHAR
DEC
R?
;DEC COLUMN COUNT
BEQ
3%
;BRANCH IF DONE LINE
MOV
#3410,R0
DELAY
;DELAY 1.8 SEC.
BR
2%
;OUTPUT NEW C(HAR.
3%:
CRLF
;SEND A CR AND (F
BR
1%

SEQ 0087

CZLACFO LA36 TERM (DL11 R KL 1M
CZLACF.P11
13-JUN-7% 15:33
3596

MACYTT 30A4(1052)
LA36 ECHO TESTS

%233

3600
3601
3602
3603
3604
3605
3606
3607
3608
3609
3610
3611
3612
3613
3614
3615
3616
3617

:".".t"t

3619
3620
3621
3622
3623
3624
3625
3626
3627
3628
3629
3630
3631
3632
3633
3634
3635
3636

15:35

PAGE

SEQ 0088

(reseeseney

3597

3618

13-JUN-79

012274
012300
012304
012310
012314
012320
012324
012330
012334
012340
012344
012350
012354
012360
012364
012370

012374

012400
012404
012410
012414
0126420
012424
012430
012434
012440
012444
012450
012454
012460
012464
012470
012474

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

046104

041504
041704
041504
041504
040516
054523
052105
040503
046505
052523
051505
051506
051507
051522
051525
050123

029114
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

.ASCI1
LASCI1
LASCII
LASCII
LASCII
LASCI1
LASCI1
LASCI1
.ASCI1
LASCII
LASCIDT
+ASCEY
LASCII
LASCII
LASCI1
JASCIY

LASCI1

LASCII
LASCII
LASCI1
LASCII
LASCII
LASCI]
LASCI1
LASCI]
LASCI1
.ASCI1
LASCI]
ASCLY
LASCII
LASCI1
LASCIT
LASCII
.EVEN

/NUL
/SOM
/STXx
/ZETX
/EOT
/ENQ
/ACK
/BEL
/BS
/HT
/LF
/vY
/FF
/CR
/50
781

/
/
7/
7/
/
/
/
/
/
¢/
7
7
7/
7/
7/
¢/

/DCY
/DC2
/DC3
/DC4
/NAK
/SYN
/ET1B
/CAN
/EM
/SuB
/ESC
7§88
/GS
/RS
/us
/5P

7/
/
¢/
/
/
/
/
/
/
/
7
7
/
7/
7/
/

/DLE /

—

CILACFC LA36 TERM (DL1Y R KL 1)
CZLACF.PIN
13=JUN=79 15:33

3637
3638
3639
3640
3641
3642
3543

MACYT1 30A(1052)
LA36 ECHO TESTS

15:35

PAGE

89
SEQ 0089

SIOOONNXX
XX
:
:E023-= CHARACTER CODE TEST-- ANY CHARACTER SELECTED
:
WILL BE ECHCED ALONG WITH ITS OCTAL CODE.
A MNEMONIC WILL BE PRINTED INSTEAD OF THE CHARACTER
:
IF IT IS A NON-PRINTING CHARACTER.
:
THE PARITY OF THE RECEIVED CODE WILL ALSO BE

%22;

3646
3647
3648
3649
3650
3651
3652
3653
3654
3655
3656
3657
3658
3659
3660
3661
3662
3663
3664

SXXXXXXXAXX
:
E023:
23
ED24
PRTHDR
1%:
READ
MOV
DELAY
cMP
BHIS
JSR
MOVB
ASL
ASL
ADD
JSR
2%:
TYPE
E023M
BR

012500
012502
012504

000023

013022
104016

3665
3666
3667
3668
3669
3670
3671
3672
3673
3674
3675
3676
3677
3678
3679
3680
3681
3682
3683
3684
3685
3686
3687
3688

012506
012510
012514
012516
012524
012526
012532
012536
012540
012542
012546
012552
012554
012556
012560
012566
012570
012574
012600
012604
012610
012614
012620
012624
012630
012632

104020
012700
104010
023727
103015
004737
113700
006300
006300
062700
004737
104000
015021
000753
023727
001421
012701
113721
112721
112721
112721
004737
012700
004737
000750
004737

012642
012646
012650
012652
012654
012656
012660
012662
012666
012672
012676

004737
104000
015021
104007
014772
104005
000712
012702
012701
062701
013700

3690
2691
3692

(012706
012712
012714

3689

13-JUN-79

012636

012702

012700

042700

062700
110041
005302

000036

000700

000041

012662
000700
012274
012740

000700

000177

3$:

013012
000700
000040
000040
000040
012662
013012
012740

012662
013016
012740

000003
015023
000003
000704

177770

000060

4%:

STRLN:
1%:

INDICATED AS EITHER EVEN OR 0ODD.

cmp
BEQ
MOV
MOVB
MOVB
MOVB
MOVB
JSR
MOV
JSR
BR
JSR
MOV
JSR
TYPE
E023M
TYPEM
ECOEND
CHAIN
BR
MOV
MOV
ADD
MOV

BIC

ADD
MOVB
DEC

;TEST NUMBER

#30.,R0

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

1%
TEMPCH, 177
4%
#MG24 R
TEMPCH, (R1)+
#640,(R1)+
#40,(R1)+
#40,(R1)+
PC,STRLN
#MG24 ,RO
PC,MOVNUM
2%
PC,STRLN
#MG25,R0
PC,MOVNUM

JNEXT TEST
s TYPE HEADER
;GO WAIT FOR CHARACTER
;DELAY FOR HALF DUPLEX

sTEST IF CHAR IS PRINTABLE
sBRANCH IF IT IS
sSTORE CODE INTO MESSAGE
;GET CODE AGAIN
sMULT BY 2
sMULT BY &
;ADD ADDR OF MNEMONIC TABLE
MOV MNEMONIC TO MESSAGE
;TYPE CODE AND MNEMONIC
s ADDRESS OF MESSAGE
;G0 WAIT FOR NEXT CHARACTER
sTEST IF CHAR IS A RUBOUT
;BRANCH IF RUBOUT

:STORE CODE INTO MESSAGE
;ADDR OF CHAR INTO RO
sMOVE CHAR INTO MESSAGE
:TYPE MESSAGE
;RUBOUT, CONVERT AND STOR CODE
;ADDR. OF DEL INTO RO
sMOVE DEL INTO MESSAGE
s TYPE MESSAGE
;ADDR OF MESSAGE

1%
#3,R2
#LINES,R!
#3.R1
PCHAR,RO

sCHAIN TO NEXT TEST
sREPEAT TEST
;COUNT OF 3 10 R2
sADDR OF MESG 10 K1
;POINT TO LAST SPACE IN MESG
sMOVE OCTAL CODE 10 RO

#60,R0
RO,=-(R1)
R?

sMAKE ASCII
;MOVE INTO MESG
;DECREMENT CHAR COUNTER

l1777?0.fl0

;SAVE LS OCTAL CHAR

CZLACFO LA36 TERM (DL11 B KL 1)
CZLACF P11
13-JUN-79 15:33

3693

3694
3695
3696
3697
3698
3699

3700
3701
3702
3703
37064
3705
3706
3707
3708

3709
3710
3711
3712
3713
3774
3715
3716
3717
3718
3719
3720
3721

012716

012720
012724
012730
012734
012736
012740

012744
012750
012752
012754
012756
012762
012764
012770
012772

001407
006237
006237
006237
000760
000207
012701
012702
112021

005302
001375
105737
001003
012700
000402
012700
012702

012776
013002
013004
013006
013010

005302
001375
000207

013012

020040

112021

MACY11

BEQ

2%:

MOVNUM:

1%:

000702
015071

015075
000004

020040

13-JUN-79

LA36 ECHO TESTS

000704
000704
000704
015027
000004

30A(1052)

2%:
3%:

4%:

MG24:

PCHAR
PCHAR
PCHAR

RTS

MOV
MOV

MOVB
DEC
BNE
1STB
BNE
MOV
BR
MOV

15:35

PAGE 90

SEQ 0090

ASR
ASR
ASR

;BRANCH IF

3 MOVED

:NOT THREE, SHIFT NEXT OCTAL
;CHARACTER TO THE RIGHT
H

;CONVERT AND STORE NEXT CHAR

FLINESA R
¥ ,R2

:ADDR OF LINES IN R1
;COUNT OF 4 TO R2

(RO)+,(R1)+
R2
1%
PARITY
2%
#EVEN,RO
3%
#0DD,RO

;RETURN TO CALLER

sMOV & CHARS TO MESG AREA
;DECREMENT COUNTER
;BRANCH IF NOT ALL DONE
;TEST PARITY FLAG
:BRANCH IF ODD PARITY
;SET ADDRESS FOR EVEN PARITY MESG
s CONTINUE
:SET ADDRESS FOR ODD PARITY MESG

MoV

¥4 ,R2

:COUNT OF 4 TO R2

DEC
BNE

R2
4%

;DECREMENT COUNTER
:BRANCH IF NOT DONE

MOVB

(RO)+,(R1)+

:MOVE & CHARS

RTS

LASCI1

:SAVE

JOEL

;MNEMONIC

TO MESG AREA

;RETURN

CHARACTER (ODE

.EVEN

013016

042504

020114

MG25:

ASCIY

.EVEN

FOR RUBOUT

3722
3723
3724
3725
3726
3727
3723
3729
3730
3731
3732
3733
373
3735
3756
3737

MACYT1

30A(1052)

13-JUN=79

LA36 ECHO TESTS

15:35

PAGE 91

SEQ 0091

SXXXXAANNXX

;E024~-- SELECYED PATTERN ECHO TEST-- SCLECT 1 TO 256
.

CHARACTERS.
EACH WILL BE ECHOED
AND STORED UNTIL THE CNTL/C 1S SELECTED.
AT THAT TIME ALL CHMARACTERS WILL BE PRINTED AS
A CONTINOUS STRING UNTIL EITHER THE RUBOUT IS
SELECTED TO TERMINATE OR THE CNTL/C IS SELECTED

AGAIN.

A TERMINATING CNTL/C

FOLLOWED BY ANOTHER

CNTL/C WILL ALWAYS CAUSE THE LAST INPUTTED STRING TO
BE PRINTED.
A TERMINATING CNTL/C FOLLGWED BY A CHARACTER OTHER THAN A
RUBOUT WILL CAUSE A NEW STRING TO BE INPUTTED.

S XXXXXXXXXXX

000024
013570
104016
005001
012702
104020
012700
104010
022737
001440
022737
001413
020127
103361
113722
005201
104017
113777
000751

3738
3739
3740
3741
3742
374%
3744
3745
3746
3747
3748

E024:
E024B:

013166

18:

000036
000177

000700

000003

000700

PRTHDR

(LR

MOV
READ
BgVA
LAY

CMP
8EQ
CMP

BEQ

000400

000700
000700

24
E025

#BUFR,R2

#30..RO
#177,TEMPCH
TERM
#3,TEMPCH

OUTPUT

CMP
BHIS

R1,#256.
1%

INC
PRNT
MOVB

MOvVB

165506

;TEST NUMBER
SNEXT TEST

TEMPCH, (R2) ¢+

TEMPCH,31PB
1%

sTYPE TEST HEADER

;CLEAR CHARACTER COUNT

;ADDRESS OF BUFFER TO R2
;WAIT FOR INPUT
:DELAY FOR HALF DUPLEX

;TEST IF RUBOUT
:BRANCH IF RUBOUT

;TEST IF CNTL-C
;BRANCH IF CNTL-C
:YES, CHECK IF CHAR CNT IS EQ, GT 256

:BRANCH IF

YES,

IGNORE CHAR

:STORE CHAR INTO BUFFER

: INCREMENT CHARACTER COUNT
sCHECK IF PRINTER READY
;ECHO CHAR

;GO WAIT FOR NEXT CHAR

013166

012702

013166
000003

104013

OUTPUT: CHP

000700

€00003

1%:

2%:

TERM:

000400

BUFR:

BEQ
MOvVB
SCRLF
MOV

CMP
BEQ
MOVB

CMP
BEQ
PRINTC

R2 ,#BUFR
1$

TEMPCH, (R2)+

#BUFR,R2

(R2) ,#3
E0248
(R2)+,RO

RO,#3
1%

TYPEM
ECOEND
CHAIN
BR

ED24B

.BLKB

256.

:CHECK IF POINTER IS AT START OF
:YES, BRANCH
:NO, STORE “C IN TABLE
sSEND A CR LF

TABLE

;BUFFER ADDRESS TO R2

:CHECK IF FIRST CHAR IS “C
:YES, LOOK FOR INPUT AGAIN
sGET CHARACTER

:DONE STRING?
:YES, RESTART STRING
;PRINT CHAR

s CONTINUE

;OUTPUT TERMINATION MESSAGE
;CHAIN TO NEXT
;REPEAT TEST

TEST

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

S———

020227
001403
113722

e N

Dettt
Y N
S N U
—

el cd) w—
il
i
D
el

e L
U

il el ol
il
=
D ol
il
el

LA L L U U U U L

NOOOOWVWVINIWIE
oo nN) —
oorVOoOOCSTNOSMNNO OO S

:SECTION TO OUTPUT CONTINOUS STRING
jelelelelelelelolelolelelelelelelate)

)78 |

CILACFO LA36 TERM (DL11 £ KL 1)
CZLACF P11
i3-JUN-79 1 3: 33

CZLACFO LA36 TERM (DL1T R Ki 1M
CZLACF.P
13=-JUN=79 15:33
3775

3776
3777
3778
3779
3780
3781
3782
378%
3784
3785
3786
3787
3788
3789
3790
3791

3792
3793
3794
3795

3796

3797
3798
3799
3800
3801
3802

3803

3804
3805
3806
3807
3808
3809
3810
3811
3812

MACYT1

30A(1052)

113-JUN-79

LA36 ECHO TESTS

15:35

PAGE 92

SEQ 0092

X000X

013570
013572
013574
013576

000025
012120
104016
023727

013604
013606
013610
013612
013614
013616

103427
104007
014645
000402
104000
014645

013622
013626
013630
013636
013640
013646

012700
104010
023727
103770
022737
001410

013652
013660
013662
013664
013666
013670
013672
013674
013676

113777
104013
000754
104007
014745
104007
014772
104005
000737

013620

013650

104020

104017

000652

000101

g
:E025-~ BELL ECHO TEST=-- A MESSAGE 1S PRINTED AND
:
THE TEST WAITS FOR SOME PRINTABLE CHMARACTER
s
10 BE SELECTED ON THE KEYBOARD (GT040).
THIS
z
TEST IS VALID ONLY IF THE PAPER WIDTH IS GT 64
:
COLUMNS.
IF LT64 COLUMNS AN ILLEGAL BELL TEST
:
MESSAGE IS PRINTED.
:
SUXXXXXXXXXX
:
E025:
25
sTEST NUMBER
E020
sNEXT TEST HEADER
PRTHDR
sPRINT HEADER
1%:
CMP
WIDTH,#101
;TEST IF COLUMN COUNTIS EQ,GT 64
BLO
4%
;BRANCH IF NOT
TYPEM
sTYPE TEST MESG

2%:
3%:

000036
000700

000040

000177

000700

164740

E025MA
BR
TYPE
E025MA

READ

MOV
DELAY
CMP
BLO
CMp
BEQ
PRNT

4%:
5%:

MOVB
SCRLF
BR
TYPEM
E025MB
TYPEM
ECOEND
(HAIN
BR

;WAIT FOR CHAR
sTYPE TEST MESG ON TERM CHAR RCVD ON
;WAIT FOR OPERATOR RESPONSE

#30.,R0

;DELAY FOR HALF DUPLEX

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

TEMPCH,aTPB
2%

sTEST IF PRINTABLE
;BRANCH IF NON-PRINTABLE
sCHECK IF CHAR 1S RUBOUT
;BRANCH IF YES
sCHECK IF PRINTER IS READY
;PRINT CHAR. (BELL SHOULD SOUND)
;SEND A CRLF
:REPEAT
;TYPE ERROR MESSAGE
;PRINT TERMINATION

SEXIT TO NEXT TEST
JREPEAT TEST

CZLACFO LA36 TERM (DL11 & KL 1)
CZLACF.PIN
13=-JUN=79 15:33

MACY11 30A(1052)
LA36 ECHO TESTS

13-JUN-79

15:35

SEG 0093

333112

SXOOOCKXXXXX XXX

3815
gg}?

;CHECK SWITCH REGISTER ROUTINE.
:CHANGING OF LOC 176.

3818
3819

S X000

3820

3821
3822
3823
3824
3825
3826
3827
3828
3829
3830
3831
3832
3833
3834
3835
3836

3837
3838
3839
3840
3841
3842
3843
3844
3845
3846
3847
3848
3849
3850
3851
3852
3853
38564
3855
3856
3857
3858
3859
3860
3861
3862
3863

3864
3865

3866
3867
3868

013700
013700
013706
013?10
013714
013716
013726
013732
013740
013742
013744
013746
013752
013754
013756
013762

013766
013770
013772
013774
014000
014006
014012
014014
014022
014026
014030
014036
014044
014052
014054
014056
014064
014066
014070
014076
014100
014106
014110
014116
014120
014122
014124

014126
014132

014136
014142
014150

PAGE 3

CHECKS FOR “G T0 ALLOW

XXX XX

IRRERAENERNOICRORISETY

022737
001132
105777
100127
017737
042737
022737
001115
104000
015200
005077
104000
015206
017746
004737

022600
104000
015216
005037
012737
105777
100375
117737
105777
100375
113777
042737
122737
001001
000736
122737
001005
104013
022737
001033
122737
003004
122737
002003
104000
015226
000753
006337
006337
006337
142737
153737

000176

000714

CHGFS:
CKSWR:

164676

164672
177600
000007

000722
000722
900722

164646

CNTLU:

164732
014214

000724
000007
164600

000726

164574
164570

000722

000722
177600
000025

164562
000722
000722

;
000015

000722

000007

000726

000060

000722

002067

000722

1%:
8%:

3%:
2%:

4$:

5%:

000724
000724

000724
000060
000722

6%:
000722
000724

CMP
BNE
1STB
BPL
MOV
BIC
CMP
BNE
TYPE
CNTG
CLR
TYPE
SWR
MOV
JSR

CMP
TYPE
NEW
CLR
MOV
1STB
BPL
MOVB
1STB
BPL
MOVB
BIC
CMPB
BNE
BR
'‘CMPB
BNE
SCRLF
CMP
BNE
CMPB
BGT
CMPB
BGE
TYPE
QUEST
BR

ASL
ASL

ASL
BICB
BISB

#SWREG, SR
out
aTK$S
ouTt
oTKB,TIB
#177600,718B
#7,71B
ourt

alPB

;SOF TWARE SW REG PRES?
sNO,GET OQuT
JYES, IS CHARACTER READY?
;1F NOT, GET OuT
;STORE BUFFER
sSTRIP OFF GARBAGE
JIS IT A %6
;1F NOT GET OuTt
;ECHO *G

;ALLOW SWR= TO BE TYPED

aSR,-(SP)
PC,TYPOC
(%6)+,R0

MOV CONTENTS OF SWR
;OCTAL TYPE OUT ROUTINE
;CORRECT STACK POINTER
sALLOW NEW= TO BE TYPED

TEMPST
#7,COUNT
aTKS
1%
a1kB,TIB
alPs
8%
T1B,a1PB
#177600,1718
#25,718B
2%
CNTLU
#15,118B
6%

;CLEAR TEMP STORAGE LOC
sSET UP TO ACCEPT 7 CHAR
;1S CHARACTER THERE?
;1F NOT,TRY AGAIN
;PICKUP CHARACTER
;sCHECK PRINTER STATUS
:NOT READY, TRY AGAIN
sPRINT IT
;STRIP OFF GARBAGE
;IS IT A~
;BRANCH IF NOT
sSTART OVER
SIS IT A <CR>
;BRANCH IF NOT

#7,COUNT
7%
#60,718
5%
#67,118
6%

sWAS <CR> FIRST CMAR
; CHANGE SWREG IF NOT FIRST <(CR>
;1S 1T LESS THAN O
;60 T0 ? ROUTINE IF SO
:1S 1T GREATER THAN 7
;G0 TO ? ROUTINE IF SO
sSET UP FOR ? TYPEOUT

3%
TEMPST
TEMPST
TEMPST
#60,718B
TIB,TEMPST

sSTART INPUT STRING OVER
;MULYIPLY BY 10
sCLEAR OFF ASCII
MOV CHAR 10 TEMPST

CZLACFO LA36 TERM (DL11 & kL11)
CZLACF P11
13=JUN-79 15:33

3869
3870
3871
3872
3873
3874
3875
3876
3877
3878

3879
3880
3881
3882
3883
3884
3885
3886
3887
3888
3889
3890
3891
3892
3893
3894

3895
3896
3897

3898
3899
3900
3901

3902
3903
3904
3905
3906
3907
3908
3909
3910
3911
3912
3913
3914
3915
3916
3917
3918
3919
3920
3921
3922
3923

0142)2

016214
014222
014230
014236
014240
014242
014244
014250
014252
014256
014262
014266
014272
014274
014276
014300

005337
001756
000710
013777
000207
010046
010146
004737
012601
012600
000002

MACYT1

DEC
BEQ

164520

013700

000001
000006
000005

000730
000733
000734

7%:
ouT:

005003
006105
000404
006105
006105
006105
010503
006103
105337
100015
042703
001002
005704
001403

005204
052703

105777
100375
110377
105337
003350
002402

005204
000745
012605
012604

012603
000207

MFILL
#6.MOD+1
E

TYPON:

1%:

CLR
ROL
BR

2%:

ROL

3%:

Mov
ROL
DECB

ROL

BPL
BIC
BNE

177770

187

000060
164252

1646246
000734

TYPOC:

000006
000732
000730
000010

000732

COUNT

TEMPST ,asR
PC
RO,=(SP)
R1,=(5P)
PC,CKSWR
(SP)+,R1
(SP)+,R0O

MOVB
MOVB
MOVB
MOv
MOov
MOv
MOvB
NEG
ADD
MOVB
MOvVB
MOV

4%:

5%:
7%:

6%:

BEQ
INC
BIS

1518
BPL
MOvB

DECB

BGT
BLT
INC
BR

MOv
MOV
MOv
RTS

.'""l""l""'

15: 35

PAGE 9¢
SEQ

MOV
RTS
TTINTS: MOV
MOV
JSR
MOV
MOV
RT1

000733
110437
113704
016605

13-JUN-79

LA36 ECHO TESTS

000726
00072¢

30A(1052)

;ONLY WANT 6 NUMBERS AND <(R>

:1F = 7 T00 MANY NUMBERS
;GET NEXT CHAR
: CHANGE SWR CONTENTS
;RETURN TO PROGRAM
: INTERRUPT SERVICE ROUTINE
;SAVE RO AND R1
;GO TO SUBR TO SERVICE TTY INTERRUPT

;RESTORE

sRETURN FROM

¥5,(NT

AND

INTERRUPT

;SET THE ZERO FILL
SWITCH
;SET FOR SIX(6) DIGITS
;SET THE ITERATION COUNT

R3,-(SP)

:SAVE R3

RS ,=(SP)
MODE+1,R4

; SAVE

;GET THE NUMBER OF

R4 ,MODE
FILL,RG

;SUBTRACT IT FOR MAX. ALLOWED
:SAVE 1T FOR USE
;GET THE ZERO FILL
SWITCH

R& ,=(SP)

10(%6) ,RS
R3
RS
3%
RS
RS
RS

MODE

7%
#177770,R3
4%

R&
#60,R3

aTPs

R3,31PB
(N®

2%
6%
R4

(SP)+ RS
(SP)+ R4

(SP)+,R3
PC

:SAVE Ré
RS

;PICKUP THE

INPUT

DIGiTS TO TYPE

NUMBER

;CLEAR THE OUTPUT WORD
:ROTATE MSB INTO ''C**
;G0 DO MSB

;FORM THIS DIGIT

;GET LSB OF THIS DIGIT
;TYPE THIS DIGIT?
;BR IF NO

:GET RID OF JUNK

;TEST

FOR 0

: SUPPRESS THIS 0
:BR IF YES
:DON'T SUPPRESS ANYMORE 0°'S
;MAKE THIS DIGIT ASCII
;1S PRINTER READY FOR (MARA(TER?
;1F _NOT, TRY AGAIN

;1YPE OUT NUMBER

;COUNT BY 1
;:BR IF NORE T0 DO
:BR 1F DONE
: INSURE LAST DIGIT | ?N'Y A BLANK
;G0 DO THE LAST DIGI

;RESTORE RS
JRESTORE R4

;RESTORE R3

;RETURN FROM

INTERRUPT

0094

CZLACFO LA36 TERM (DL1' & KL 1)
CZLACF P11
13-JUN=-79 15:33

3924
3925
3926
3927
3928
3929
3930
3931

3932
3933
3934

3935
3936

3937
3938
3939
3940
3941
3942
3943
3944
3945
3946
3947
3948
3949
3950
3951

3952
395%
3954
3955
3956
3957
3958
3959
3960
3961
3962
3963
3964
3965
3966
3967
3968
3969
3970
3971
3972
3973
3974
3975

3976
3977
3978
3979

014376
014404
014412
014420
014426
014434

001007
040514
040514

014442
014450
014456

014464
014472

014473
014500
014506
014514
014522
014523
014530
014536
014542
014550
014551
014556
014564
014572
014600

014606
014613
014620
014626
014627
014634
014642
014645
014652
014660
014666
014674
014702
014710
014716
014724
014732
014740
014745
014752
014760
014766
014772
015000

015006
015014
015021
015023

007600
043103
033063
020115
020061
030461
033063
vks515
044504
052123

055103
020060
052040
042050
020046
100051
05204C
040516
043501
04151

030514
046113
052116
042503

020061
030461
051105
005200

042412
020106
020040
030060

047503
020105
042040
020123
020122
005200
100002

052123

030060
0646525
000
050131
020131
040524
044103
042524

047105

041440

051516
042600
042524
051105
042524
040
040

MACYT1 30A(1052)
13-JUN-79
MISC. DIAGNOSTIC MESSAGES

020104
047105
041040
027056
027056
027056
047516
052517
046117
000200
044103
052123
044515

100104
040
020040

STARTM:

8
15:35

PAGE 95
SEG

.SBTTL

MISC.

LASCII

<7><2><ACRLF><17>/CZLACFO LA36

LASCI]

/LA36 TERMINAL DIAGNOSTIC/<ACRLF>

LASCIZ

/DLTT

DIAGNOSTIC MESSAGES

& KL11

TERM

INTERFACE/<ACRLF><12>

042116

ENDPAS:

LASCII

<ACRLF><12>/END

005200

PASMES
:

ASCIZ

/0000/<ACRLF><12>

051516
020046
030514
047125
042524
000
005017
021440

DL11S:

LASCII

<ACRLF>/CONSOLE

DL11S1:

<ASCIZ

/00 DL11'S UNDER

HDRMSG:

.ASCIZ

<T><2><ACRLE>CI7><12>/TEST

041440
051516

HDRO:

.ASCIZ

/0C0 COLUMNS/<ACRLF><12>

020105
051120
046102
051101
020122
044514
043040
046105
027056
027056
000
020124
044107
046525

EO25MA:

LASCII

/TYPE

LASCIZ

FAMD LISTEN FOR BELL .ov
s iuisvins
ii /

EO025MB:

LASCIZ

<ACRLF>/NOT

ENOUGH

COLUMNS/<ACRLF>

ECOEND:

LASCIZ

<CACRLF>/ECHO

TEST

TERMINATED/<ACRLF>

EQ23M:
LINES:

LASCII
LASCII

040520

020117
052040
040516
000
040

ANY

PASS

TEST/<ACRLF><12>

PRINTABLE

(HARACTER

JMESG

FOR

TEST

EQ24

(DL11

§ KL11)/7<ACRLF>

0095

CZLACFO LA36

CZLACF.P1

TERM

(DL11

R kL11)

MACYTT

13=JUN=79 15:33

3980
3981
3982
3983
3984
3985
3986
3687
3988
3989
3990
3991
3992
3993
3994
3995
3996
3997
3998
3999
4000
4001
4002

015027
040
015034
020040
015041
200
015046
042514
015054
051505
015062
041115
015070
000
015071
105
015075
117
015101
1264
015106 047101
015114
051101
015122
000122
015124
051525
015132
052106
015140 051440
015146
020110
015154
052101
015162
051117
015170
051104
015176
000007

4004

015200

020040
100040
005017
052103
020124
051105

042526

042704

MISC.

020040
000
042523
052040
052516
020040

116

04C

4005
4006
64007
4008
60?8
40

4011

015206
015214
015216
0152264
015226

020040
000040
020040
000040
037440

MESG3:

.ASCIZ

CACRLE>QI7><12>/SELECT

EVEN:

0DD:

JASCII

.ASCI1

/<ACRLF>

047523
042522
041524
020107
046505
042101
033067

NOSWR:

LASCIZ

JCHGF6

043536

000040

trreevnscrevenes

036527

000040

JASCYT -

/TYPE

/USE

ANY CHARACTER/

SOFTWARE

SWR:

LASCIZ

NEW:

JASCLIL.

“NEM=7

QUEST: " ASCIZ

.END

TEST NUMBER

/EVEN/

/00D /

020105
040527
044527
042522
046440
020131
030440

CNTG:

SEQ 0096

.ASCIZ

042516

PAGE

.ASCIZ

OPMSG:

036522

8
15:35

LiNESA:

020105
044103
042524

053523

DIAGNOSTIC MESSAGES

JeNSERETRRCRERRTY

000001

13-JUN-79

050131
020131
041501

4003

020040

30AC1052)

SWR=

SWITCH REG AT MEMORY ADDR

176/<7>

ACRLF

000200

3926

3932

3937

3942

ADD1
ADD?2
ADD3

006756
006700
006746
012034
004166

2773
2776
3481

3482

3483

35048

2735
239¢6#

2764

2794

2397

1421«

1522
2412#

2397«

2470
2665

2471
2740

2489
2769

2418
2697
3256

2633
2717
3324

(HAINN
(HAINY

104005

001500
001626

3949

3953

3956

2493
2800

2510
2826

2511
2877

¢515

2449
2745
3373

2474
2772
3393

2496
2806
3625

31970

3974

2534

2536

2539
2892
3550

2556
2941

2575
2965
§2Nn

2822

1968

2466
2641
1621
1592

1718
1654

—al

83
84

25464
25644
2582#
2606#
26304
2655#
26841
27044
24274
2725#
27534
2784#
2814#
28534
26430
2658#
2482
2503
2527#

3947

3457

37738
2402
2669
3192

o0
QO oy —
O -0

(HAIN

104023

013166

1773
1419«
1774

3945

SEQ 0097

».,
-

P-]

@
=

BRCTR
BTOASC

000200
000400
001000
000664

2712

—ON NN
WS OO —=r
SfNN—OW

WS
W
-0

et Bt Bt Gt

e g
o
o

Bt Bt Bt Bt et Bt Bt Bt
——

— ol

ol o

0o
mDom

AT7

104021

005354
005356
005406
006032
006070
006130
006204
006264
006350
006450
006516
005440
006566
006660
006764
007072
007204
005472
005524
005614
005672
005762
000001
000002
002000
004000
010000
020000
040000
100000
000004
000010
000020
000040
000100

WO RNy — N

ATO
AT0X
AT1

NN NNN~N~ NNNNNN
O O O 0o =~ 00 Oc 0o 0o
N—=O
WO Voo ~NOor W

ADJR4
ADTENP
AREAD =

(ROSS REFERENCE

13-JUN-79
15:35
PAGE 98
TABLE =-- USER SYMBOLS

wihy

30A(1052)

ron

MACY1T

wro
o

al
]

CZLACFO LA36 TERM (DL1?
CZLACE.PI
i13=JUN-79 1

5683

CZLACFO LA36 TERM (DL £ xL11)
CZLACF.P11
13=JUN=79 1 5:33%

(HGFG

DL11ST
ECOEND
EHALT =
EMLT
EMTINT
EMTTAB
ENDPAS

END?2

004162
012114
000720
000174
000606
000656
000610
003524
014551

014564
014772
104002
003434
003010
003064
014523

001420

END2A
END3
END&
£020
ED21
EO21A

001406
001350
001422
012120
012170
012176

E022A
E023

01223
012500

£E022

012226

13874

2165+

13454
1452

21384
13460
13924
13754
1288#
13674
1280#
3255
13684
1379#
12784
2711
3592
2170+

3445«

1389#
1329#
13474
1371#
no

104010

1440

0D (N
=N NOO
-N

000676

13624

=t e et

000650

CURTST

3831

CTRA

104022
000646
104012

1550
1395#

s ed e

000666

3460

1606#

COUNT3

000736
011766
013700
000734
015200
000634
013752
000716
004160
000602
003776
004002
000604
000726

—

(NTG
CNTLSW
CNTLU
CNTR
CNVCTR
CONADD
CONIT
CONSET
CONVEC
COUNT

DIGIT
DIRTN
DISPLA
DISPRE
DLADR
DLCNT
DLNR
oLy
pL11S

27594
3821
28524

013700
007204

CHLY
(kPOS
(KSWR
CNT

DELAY

001046
001500

006574

CHGFS
CHGF7

(R
CRBUF
CRLF

12764
14254
15492

mcnm\u:wmmw B3

(HGF2
CHGF3

104006

oo O 00—
(=
XV

Pl
o £ 00 w00 MU NV WY

C(HALT

14924
1500
1757
1758

2299
1759

2308
1760

MACYTT

30AC1052)

(ROSS REFERENCE

16413

1831

1422

3469
38224
3885+

34904
3876
3914+

38334
2863+
2178+
2137
1717

3851
2869+
2181#»
2248
2137

1921

2148
3855
2203+
3086

1916

4004w
1449

2201
2147
3841
2196+

13-JUN=79

TABLE

15:35

PAGE

=-- USER SYM3OLS

S5tQ 0098

1612

1551

1651

1654

2339

2341

2327+
3129

1693«

1704+

3145

3185

1715

2357«

3249

3300

3318

3673

3018
3465

3187
3594

3191

3238

5251

2350
3253

2361
3348

2569
3617

2691
3542

3288

1951

3305

2938
3369

2964
3372

3016
3390

1526
1659

1589
1667

1628

1725
2122
2866

2099«

2295
5NN

2304
3189

2259

2734
3653
2173«
3504

1435«
1435
1489
1491
1490

2035#
39478
39494
2306

2125
19694
1809#
1825#
39424
15064
1502#
1505
1503
3537#
3538

35664
3564
3585#
3583

1690
2821

2763
3742
2176+
3511«

2182#
3521#

1498+

2194

2196

2256

3770

3810

3974m

3549

15074

3787
3563#
3582#
3648

3682

1706+

MONIC
MOVNUM
NEW
NEXT
NEXTI

015041
013012
013016
000732

012274
012740
015216
001746
001766

NITRSW= 004000
NOSWR
015124

NPCODE
NXTST

obD
OPEN

OPMSG
out
OUTPUT

PARITY
PASCNT
PASMES
PCHAR

010141
000640

015075
= 000000
015101
014174
013114

000702
12118
014542
000704

1598

1627

1724

2197

2260

3218

3448

1568«

2097+

2102+

1446
1406
1952

1657+
16450+

3098
3118

1551s

3119
3122+

2688

2708

2731

1661

3667
3677

1394#

36024
3661
3839

1591
1593
12604

39934
2997
13644

3708

1258#
1373
1390

2865
3823
3746

13814

34430
3454

1382#

16447

3982#
3673
3719#
3884+
3660
3674
4007
15964
1600#
1565

3051
1524+
3988#
1361
1374
1391

39894
3825
3757#
2214
3450+
3494
2212+

1488+

1493+

~Nw

2538
2828

2555
2839

2857
26400+

2416+

2631

24647

—_—

-~ &S

2518
2802

2574

2861

1582+

2760

1596+

39564

3114
31480
39794
39804
34210
2550

3893

30244

1321
12664
13024

1707+

1588

2996

3116
3686
3699

2818

1584

2928
34254

13844
13704
12824
13834

3477

2468
2696

3419

13724

3415

2451
2677

— VN

13614
1939
1471

2435
2667
2894

00
00 N
O
W

2096

2420
2643
2885

2790

1613

37154

3889

3892+

3678

3699#

3903

1651
1585

1587+

1590

1595+

1624

1625

1721

1722

2092

2094+

1362
1375
1392

1363
1376
1393

1364
1378
1394

1365
1379
1395

1366
1380

1367
1381

1382

1368

1369
13872

1370
1384

1385

3829

3873#

2219
3451
3496
2213

2222+
3453
39454
3688

2224+
3455

3704
35234

3694+

3695

5696+

1371

MESG3
MG24
MG25
MODE

1393
1290#
20994

2495
2742

2404
2622
2880
39874
3883+
1525
2103
2101#»
1494
3953

000004

2595
2873
3706

1963#

—

MACHER

1826
1972#
12714

3772

SEG 0099

(15027

3792
3808

3978#
3735#
3763
37864
3956

LINESA

LOGICA
011524
LSI11 = 001000

1762

3680
3649
3738#
3736
3795
39704

NNy

ICTR
000660
IDEZ
007700
INCHK
000710
LEVEL
000654
LF
= 104014
LFCNT
000706
LINEZ
010446
LINES
015023

2353

100

NN
N —

015071

000730
104024
003702
003710
000632
014613
014627
011534

1761

(ROSS REFERENCE

|
8
13=JUN-79
15:35
PAGE
TABLE == USER SYMBOLS

WO
O

EVEN

FILL
FORWD =
FORWDA
FORWDB
FSIDL
HDRMSG
HDRO
HERE

3663

30A(1052)

NN —IN
— e V
\ N

E023M
01502!
£024
013022
£E0264B
013030
£025
013570
EO25MA
014645
EO025MB
014745
ERR
003406
ERRHLT
003442
ERROR = 104001

MACY11

none

CZLACFO LA36 TERM (DL1T B KL11)
CZLACF.P1N
13=JUN=79 15:33

CZLACFO LA36
CZLACE.P11

PFAIL

POPSP

003546

005726

POPSP2= 022626
PRGID
PRGTAB
PRINTC=

000644
002614
104015

16451

12614

12628

2774

13664
1624
12838

3003

3175

PRNT

PRTHDR=
PRTY4
PRTY7
PSW
P10
PT1
PT10
PT1

P112
PT12A
P117
PT178
PT17D0
P12
P13

P16
P17
QUEST
READ
=
READC =
READT
REF
REPT
RESTRT
RTNNO

SAVR6
SCOPSW=
SCOPTR
SCRLF =
SELMLT

SKIP

SPARET
SPBOT
SPC
SPCNT
SP

104016

= 000200
= 000340
= 177776
007374
007450
011270
011426

P14

P15
PTSAL

104017

011460
011466
011550
011540
011600
007572
010166

010306

010464
010632

010670
011056
(15226
104020
104025
004300
010416
000662
003604
000636

003602
040000
000642
104013
000752

€0172¢2

003160
000600
007562
000674

TERM (DL1Y & xL11)
i3-JUN-79 15:33

3346

12854

128640

3539

12648
12638

12388
1595
1742
1749
1750
1751
36108

1756
3438¢
3440

1743
1744
1745

1746
3186

1747
1748
3862
12864
12914
2202
3117
13730
2062
13638

2309
2061«

1259#
13654
12814
1407

1523

MACYTT1 30A(1052)
13-JUN-79
15:35
PAGE
(ROSS REFERENCE TABLE =-- USER SYM3OLS

101

SEQ 0100

2054
1506

2804

1448+«
1721
1477

3008

3181

3389
1668

2926

3565

1358
1313
2799+
1741
2925
3270
3340

3385
3426
34614
3439
346494
2950
2994
3075

3112
3190

3157
3215
4009#
1663

22114
3132
2285+
20654
1520«

2335
2064#
1556
1558
1888
14114

1574

2838

1554
17414
1918

3014

3196

3412
1681

2951

3584

1360
2662

29240
29494
33394
33840
34074

1642

2293

2302

231

2352

2598

2621

2645

1562+

1594+

1619«

1621«

1718+

1965

1968+

2095

1950

2933

2961

2881

1923

3080

3222
3461

1691

2995

2895
1927

3093

3226

3470

1726

1937

3126

3227

3493

1890

3650

3737

3076

3113

2486

2507

2531

5788

1946

3128

3137

3235

3241

3495

3497

1894

1896

3158

3216

3796

3139

3243

3499
3545

327%

3142

3245

3569
3751

3341

2676

274t

2972

2976

2978

3275

3295

3309

3386

3409

2287

2291

2300

1615
5872+

1963

2256

3162

3588

3166
3767

3167

3803

3408

3442
3487
29934
3074#
3111#

31564
31944

3250

325«

1676

1686

3540

3651

3740

31364
2289+

2368¢

;
2371+

3566+

3568

32144
3269#

1578

2347
2067

1940

1947

2363

2366

1963
1560
3760

2098+
5805

2101«
3854

‘

3585+

3587

2093

2263

2274

2279

2283

2369

1592#

1847
13400
29778
1578¢

1848
1423
3083
3077«

1849
1583
3089
3087«

1850
1597
3278
3088

1851
1614
3291
5095+«

1852
1708
3313
3096

1853

1854

18554

1856

13864
2550

1429
2688
1421

1634+
2708
2075

1438
2731

1463
2760

1556
2790

1565
2818

1571
2857

1576
5822

1592
5835

000714

STAR?

001026

1332

STARTM
STARTX
START1
START2

START3
STLSPV
STLSRV
STPCHV=
STPPA
STPRA
STRDRv=
STRLN
SWR

SWREG
TEMP
TEMPCH

TEMPST
TENPWR
TERM
TESTC

014376
001042
000754
000772

001010
003474
003444
104004
003512
003462

104003
012662
015206

000176
000712
000700

1479
1614
1333
1334

39264
1417
16124
14154

1335
1829
1828
12744
2001+
1984~
12738
3656
3834

14184
2001#
19844
2586
2004#
19874
2729
3672
4005#

1330
13854
13804

1434
2248+
1664

2212
2344
3749

2214
2345
3752

1420

1623

2610

2634

2659

2757
3676

2788
36854

2823

2875

2886

1438
2249+
1677

3822
2250
1687

2252+
1694

2253«
1696

2319+
1698

2215+
2354
3759

2216
2365
3799

13914
2169+
2312
1670
1390
13778
;gzzfi

3840+
217
3744
1683
3826+
1433«
1444

3864+
2175
37694
1731#

3865+
21834

3827+
2036
1645

3828

000724
004164
013156
002552
000722
000672
000614

TRLVL
TKS

000624
000612

13584
13538

1443
1445+

1988
1643

TIB
TIMER

TKVIR
1PB
TPBS

TPLVL

1PS

000622
000620
004072

000630

000616

2493
2826+
13574
13564

3546

2145

13604
1355#

%gsg
'A

TPSS
TPVIR
TTINTS
TTYCTL=
TV
TTY1B
TYP
TYPE
=
TYPEM =
TYPM
TYPOC
TYPON

004070
000626
014176
104011
002070
002154
003164
104000
104007
003252
014214
014230

WA]TF

001772

wiDTH

000652

2142«
1359
1442
12794
1642¢
1650
1825
12700
1277#

3681

1832
3836

2694
2829+
1441
1669+

3752+

2153#

2005
2117«

%3;;

2152#
2003
38740
1415
1834
1655
18794
2864
1478

3769

1909#
38834

2714
2859

1986
1682+

3804*
2612
2142

2589+

2270«
2368
3801
3866+

2271«
237
3804

2272
3543

2320+
1700

2277
3654

2321
1702

2281
3657

23641«
1731

2285
3665

2342+
1734

2289
3668

2 343
1 738
2 315
3 743

2211«
2343
3745

3B68+

3872

3844

3847

3848+

3849

3852

3857

3859

3867+«

3868

1669

1682

1692

21640+

2211

2417

2713

2882

3546

3826

2766
2119

2796
2138+

2209

2401

2736+
2867

2147
1692+

3832+

2207

26465

2466

26470

2471

248G«

2740
2877+

2759+
2883

2765+
2888+

2769+
2891+«

2771+
382¢

2795+
3842

2800+

2B805¢

2825+

3847+

3913«

1891«

1895+

1897«

2118«

2145

21460

2448

2571

2234

2432

2490

2510«

2511

2515«

2516

2536+

253

2833«
1727+«

2637
2163«

2593+

2615+

2h16*

2618+

2636%

2641e

2646+

2661%

2665

2668+

2148

2149«

2671

1418

1553

2265

1657#

1728

2358

3662
1511

3679
1660

5794
1938

3830
2065

3833
2296

3838
2305

3861
2927

3217

3647

3484

3548

1422+
1766
1800
3078

157%
1767
1801
3096

16124
1768
1802
3115

1625
1769
2265
3131

1626
1770
2337
3159

1722
177

1752
1772

1753
1794

1754
1795

3168

3179

3194

3219

175%
1796
:
3228

3791

3807

3809

2337

3885#

1413
1763
1797
136G

1415«
1764
1798
1470+

1418+
1765
1799
2932

102
w

K
8
MACYT1 30A(1052)
13=JUN=79
15:35
PAGE
CROSS REFERENCE TABLE =-- USER SYMBOLS

CZLACFO LA36 TERM (DL11 & kL11)
CZLACF.P1
13-JUN-79 15:33

CZLACFEQ LASG

C7CACF P

XCSR

TERM

(DL11

13=JUN=79 15:33

3239

000670

13764

2325+

$AREAD
$BTASC
$CR
$CRLF
$FORWD
SLF
$PRHDR
$PRNT

003726
004074
003314
003302
003650
003304
003324
004402
$PRTIC
004412
$READ
004200
SREADC
004272
$SCRLF
003230
.
= 015232

ABS.

R kL11)

01523%2

ERRORS DETECTED:

1842
1844
1843
1835
1845
1837
1839
1840
1838
1841
1846
1836
12984

30594

3290
2198
2329+
2126

USED:

2217
2209#

2210

1302

1304

000

(13 PAGES)

3307
2200
2331«

103

SEQ 010/

3444
2205+

3458
2260+

3467
2267

3507
2269+

3509
2270

3567
2317«

3586
2318+

3789
2321

2323

1306

1308

1310

1314

1315#

1319#

13234

13278

1338#

2235

CZLACF .BIN,CZLACF.LST/CRF/SOL/NL:TOC=CZLACF.P11
RUN=-TIME: 12 25 1 SECONDS
RUN=TIME RATIO: 142/40=3.5

CORE

MACY11 30A(1052)
13-JUN-79
15:35
PAGE
(ROSS REFERENCE TABLE =-- USER SYMBOLS