Digital PDFs

AH-S824A-MC

August 1981

78 pages

Original

3.8MB

view download

OCR Version

3.4MB

view download

Document:	CZLXAA0 LXY11,LXY21,LXV11 LXY11-21 - LXV11 DIA AUG 1981 bw
Order Number:	AH-S824A-MC
Revision:	000
Pages:	78
Original Filename:	CZLXAA0__LXY11,LXY21,LXV11__LXY11-21_-_LXV11_DIA__AH-S824A-MC__AUG_1981_bw.pdf

OCR Text

CZLXAAOD

LXY11/21-LXV11l

DIR

E
E}
E}
D@
1981
#a
zigs
cg%b
MC
4A
82
-5
AH
il
FICHE 1 OF 1 weoe N use

YM-7049A~AA

CTUXAA.SRC

(DECSPEC~11-BDFAD=A=D)

12-MAR=-81 10:43

NLIST

SEQ.BIN,LOC

REM_

MA(CY11 30A(1052)

12-MAR-81

11:24

PAGE 1

IDENTIF ICATION

PRODUCT CODE:

AC-S822A-MC

PRODUCT NAME:

CZLXAAO LXY11/21-LXv11

DIA

DATE :

MARCH 11,1981

MAINTAINER:

(SS PRODUCT GROUP DJAGNOSTIC

AUTHOR:

JIM DUPRE

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO (CHANGE
WITHOUT
NOTICE
AND
SHOULD
NOT
BE
(ONSTRUED
AS
A COMMITMENT BY DIGITAL EQUIPMENT
(ORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO
RESPONSIBILITY
FOR ANY ERRORS THAT MAY APPEAR

IN THIS MANUAL.

THE SOF TWARE DESCRIBED IN THIS OOCUMENT IS FURNISHED TO THE

UNDER

PURCHASER

A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND (AN BE COPIED

(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE)

ONLY FOR

USE

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

SUCH

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR
g?%{?fiILITY OF
ITS
SOFTWARE
ON EQUIPMENT
THAT [S NOT SUPPLIED BY
L.

((C)

1981 BY DIGITAL EQUIPMENT CORPORATION

SEQ 0001

YM=-Z2049A=-AA
CZLXAA, SRC

30A(1052) 12-MAR-81c 1}:24 PAGE 2
MACY11
A=D)
11-BDFAD=
(DECSPEC~
10:43
12-MAR-81

TONTENTS

1.0

ABSTRACT

2.0

REQUIREMENTS

2.1

EQUIPMENT

STORAGE

2.3

PREL IMINARY PROGRAMS

3O———BADINGPRCGCEDURE
3.1

ME THOD

4.0

STARTING PROCEDURE

6.1

CONTROL SWITCH SETTINGS

4.2

STARTING ADDRESS OR ADDRESSES

4.3

PROGRAM AND/OR OPERATOR OPERATION

5.0

OPERATING PROCEDURE

5.1

OPERATIONAL SWITCH SETTINGS

5.2

ABSENCE OF HARDWARE SWITCH REGISTER

5.3

10T CHANGES

6.0

ERRORS

6.1

(OMPUTER DETECTED ERRORS

6.2

VISUALLY DETECTED ERRORS

;

SEQ 000¢

(DECSPEC-11-BDFAD=A=D)

YM=-704GA~AA

12-MAR-81 10:43

O
=

TEST 1 CONTROL AND OPERATOR INTERACTION

TEST 1
TEST 1

SECTION 1
SECTION 2

TEST 2

NNNNNNVNNNVNNNNNY

PRINTING TESTS

[]

]

~nN -—

TEST DESCRIPTIONS

PONUMNONUNNONDNNINNDRDNNNND

CZLXAA,SRC

MACY11 30A(1052)

TEST 3

12-MAR-81

DATA TRANSFER PATHS TEST

CHARACTER GENERATOR AND COMPARATOR TESTS

UNDERLINE TEST
LINE EDITING TEST
PRINT CONTROL TEST
MULTIPLE LINE ADVANCE TEST
HIGH SPEED PRINT TEST

2.
2. 0

TEST 10
TEST 11

PROM PATTERN TEST
RIGHT & LEFT HAND WEDGES

2. 2
2. 3

TEST 13 ELONGATED CHARACTERS TEST
TEST 14 UNDERLINED ELONGATED CHARACTERS TEST

[]
— e e =d =D 3 = O OO NN

.2.

5
6

TEST
TEST
TEST
TEST
TEST

TEST 9

SINGLE CHARACTER, ALL COLUMAS TEST

TEST 12

HAMMER TEST

TEST 15 ALTERNATE CHARACTER SET TEST
EVFU CHANNEL SLEWING TEST
PLOT

11:26

PRINTER READY, TESTS POWER UP
MANUAL PRINT SPEED TEST

4
S
6
7
8

.C.
2.
2.
2.
.

TEST

SCOPE DRIVE TEST

PAGE 3

SEQ 0003

\
YM-704GA-AA

CZLXAA . SRC

1.0

(DECSPEC-11-BDFAD=-A-D)

12-MAR-81 10:43

12-MAR-81

MACY11 30A(1052)

11:24

PAGE &

ABSTRACT

INTO

THE LINE PRINTER DIAGNOSTIC PROGRAM IS DIVIDED

THREE

SECTIONS.

INTERNALLY DETECTED ERROR CONDITIONS ARE DISPLAYED ON THE TELEPRINTER,

WHILE BRIEF DESCRIPTIONS OF EACH ERROR ARE PRESENTED IN THE LISTING.
PgéT;IgA}ISSNS USED IN THESE TESTS HAVE BEEN CHOSEN FOR EASE OF VISUAL
.

THE FIRST SECTION IS DESIGNED TO

(CHECK-OUT

THE

PROCESSOR

INTERFACE

IT WILL

CONTROL

ELECTRONICS AND THE INTER=COMMUNICATIONS DATA PATHS.

ITSELF.

THE LAST SECTION IS A SCOPE DRIVER ROUTINE FOR USE IN TROUBLE

ALSO PERFORM ALL TESTS THAT REQUIRE OPERATOR INTERVENTION. THE SECOND
SECTION IS A PRINTING TEST DESIGNED TO TEST THE LINE PRINTER MECHANISM
SHOOTING THE PRINTER INTERFACE.

2.0

REQUIREMENTS

2.1

EQUIPMENT

THIS DIAGNOSTIC SHOULD RUN ON ALL PDP-11 FAMILY (OMPUTERS HAVING LINE
PRINTER (ONTROLS, LINE PRINTERS, AND TELETYPES COMPATIBLE WITH THT
FOLLOWING:

LXY11/21 OR LXV11
LXY11

LINE PRINTER INTERFACE

PRINTRONIX MODEL 300 LINE PRINTER
OR

Lxy21

PRINTRONIX MODEL 600 LINE PRINTER
OR

2.¢

LXV11

PRINTRONIX MODEL 300 LINE PRINTER

TELETYPE

MODEL 33 OR EQUIVALENT CONSOLE UNIT

STORAGE

MEMORY LOCATIONS 0 - TO - 17004 ARE USED BY THIS DIAGNOSTIC.

2.3

SEQ 0004

PRELIMINARY PROGRAMS

ALL APPLICABLE PDP-11 DIAGNOSTICS SHOULD
TELETYPE.

RUN

THE

PROCESSOR

AND

YM=7049A~AA

- CZLXAA,SRC

(DECSPEC~11~BDFAD~A=D)

12-MAR-81 10:43

3.0

LOADING PROCEDURE

3.1

METHOD

MACY11 30A(1052)

12-MAR-81

11:26

PAGE 5

POWER DOWN THE LINE PRINTER
POWER UP THE PROCESSOR ONLY

LOAD THE BOOTSTRAP AND ABSOLUTE LOADERS

LOAD THE LXY11/21 OR LXV11 DIAGNOSTIC PROGRAM TAPE

4.0

STARTING PROCEDURE

4.1

CONTROL SWITCH SETTINGS

SET CONTROL SWITCHES AS DESIRED - (SEE SECTION 5.1 FOR DESCRIPTICN OF
SWITCH FUNCTIONS) MAKE SURE SWITCH O IS DOWN BEFORE STARTING THE TEST.
4.2

STARTING ADDRESS OR ADDRESSES

THE INITIAL STARTING ADDRESS TO RUN THE ENTIRE LXY11/21-LXV11 DIAGNOSTIC IS
TO SKIP THE OPERATOR INTERVENTION TESTS AND START
LOCATION 200(8).
WITH THE PRINTING TESTS, START AT LOCATION 600(8)._ _TO RUN THE SPECIAL
SCOPE DRIVER ROUTINE USE START ADDRESS 700(8) OR 720(8). TO START AT
ANY OTHER TEST USE THE START ADDRESS FROM THE FOLLOWING TABLE:
TEST

START ADDRESS

EVFU CHANNEL SLEW TEST

300

400
404
410

PRINT SPEED TEST USING MANUAL TIMING
PRINT SPEED TEST USING KW11-L
PRINT SPEED TEST USING KW11-P

304

PLOT TEST

SEQ 0005

YM-7049A~AA

CZLXAA,SRC

(DECSPEC-11-BDF AD~A-D)

12-MAR-81 10:43

MACY11 30A(1052)

12-MAR-81

11:24

SEQ 0006

INTERFACE & DATA PATHS TEST

600

TEST 2

610
614
620
624
630
634
640
644
650

TEST 3 (HAR COMPARATOR TEST
TEST & UNDERLINE TEST
TEST S LINE EDITING TEST
TEST 6 PRINT CONTROL TEST
TEST 7 MULTIPLE LINE ADVANCE TEST
TEST 8 HIGH SPEED PRINT TEST
TEST 9 SINGLE CHAR, ALL COLUMNS
TEST 10 DRUM PATTERN CHAR TEST
TEST 11 SPURIOUS HAMMER FIRING TESTS

654
660

TEST 12
TEST 13

700
720

SCOPE DRIVER ROUTINE
SCOPE DRIVER WITHOUT LINE FEEDS

664
670

PAGE 6

(ALSO GENERAL PRINT TEST STARTING ADDRESS)

TEST 14
TEST 15

(LEFT & RIGHT WEDGES)

HAMMER AL IGNMENT
ELONGATED CHARACTERS TEST

‘

UNDERLINED ELONGATED CHARACTER TEST
ALTERNATE CHARACTER SET TEST

THE PROGRAM WILL START THROUGH THE TEST SEQUENCE BEGINNING WITH THE
gE%ECTED Te_T UNLESS SWITCH 12 IS SET TO LOOP ON TEST (SEE SECTION

4.3

PROGRAM AND/OR OPERATOR ACTION

DURING INITIAL START-UP OF THE LINE PRINTER DIAGNOSTIC TEST, THE
LINE PRINTER TEST'' WILL BE TYPED OUT ON THE
HEADER MESSAGE "1LXY11/21-LXV11
TELEPRINTER FOLLOWED BY EXECUTION OF THE PRINTER READY PORTION OF TEST
PRINTING OF THE MESSAGE 'POWER-UP'' ON THE TELEPRINTER FOLLOWING
1.
THE TEST HEADER PRINT~OUT INDICATES START OF THIS TEST SEQUENCE. THIS
TEST IS CARRIED OUT BY AN INTERACTIVE EXCHANGE BETWEEN THE OPERATOR
THE OPERATIONAL DESCRIPTION OF THIS TEST
AND THE TEST PROGRAM.
APPEARS AS PART OF THE TEST DESCRIPTION FOR TEST 1 (SEE SECTION
7.1.1). AFTER SUCCESSFUL COMPLETION OF THIS SECTION OF TEST 1, THE
PRINT SPEED TEST WILL BE PERFORMED.(SEE SECTION 7.1.2) IF THE EVFU IS AVAILABLE
AND SWITCH 14 IS SET, THE EVFU TESTS WILL ALSO BE PERFORMED. AFTER
70 ENTER THE PRINTING
COMPLETION OF ALL OF TEST 1, PRESS CONTINUE
TESTS DIRECTLY.
NO OTHER OPERATOR ACTION WILL BE REQUIRED.
i

YM=Z049A=~AA

CZLXAA.SRC

MACY11 30A(1052)

(DECSPEC-11-8DFAD=A=D)

12-MAR=-81 10:43

5.0

OPERATING PROCEDURE

5.1

OPERATIONAL SWITCH SETTINGS

THE USE OF THIS PROGRAM ON PROCESSORS NOT

HAVING

12-MAR-81

11:24

HARDWARE

PAGE 7

SWITCH

UP
REGISTER NECESSITATES OPERATOR INTERACTION; THE UPERATOR MUST SETWITH
176
N
LOCATION 174 WITH THE SOF TWARE DISPLAY VALUES AND LOCATIO
THE SOF TWARE SWITCH VALUES. (SEE SECTION 5.2)

FUNCTION IN "UP"" POSITION

SWITCH

LOOP ON ERROR (IN TEST 1 ONLY)

TEST EVFU FUNCTION

DOWN - SKIP ALTERNATE CHARACTER SET TEST
= DO ALTERNATE CHARACTER SET TEST
uP

LOOP ON TEST

SEND ONLY ONE CHARACTER TO LINE PRINTER IN

TEST PLOT FUNCTION

USED FOR PRINT SPEED MANUAL TIMING IF NO

SCOPE DRIVER - THEN HALT

CLOCK AVAILABLE

SWITCH -0

TO START PRINTING IN

THE

MANUAL

SPEED

TEST,

PLACE

SWITCH O IN THE UP POSITION. AT THE END OF ONE MINUTE PUT
SWITCH O DOWN. THE APPORXIMATE PRINT SPEED WILL BE PRINTED
ON BOTH THE LINE PRINTER AND THE TELEPRINTER. SWITCH O IS
NOT USED IN ANY OTHER TESTS. MAKE SURE SWITCH O IS DOWN AT

THE START OF THE TEST IF USING MANUAL TIMING OR UP IF USING
AN INTERNAL CLOCK OPTION (KW11-L OR KW11-=P).

SWITCH - 10

SWITCH 10 SHOULD BE SET IN THE UP FOR TESTING THE PLOT FUNCTION.
3.

SWITCH - 11

SWITCH 11 IN THE UP POSITION CAUSES THE (CONTENTS OF THE
SWITCH REGISTER TO BE SENT ONLY ONCE TO THE LINE PRINTER THEN
HALT IN THE SCOPE DRIVER ROUVINE. TO SEND ANOTHER CHARACTER,
RESET SWITCHES AND DEPRESS CONTINUE. WITH SWITCH 11 DOWN,
THE SWITCH REGISTER IS SENT CONTINUOUSLY TO THE LINE PRINTER
WITH A LINE FEED SENT AFTER EVERY 132 (HARACTERS. TO STOP
SENDING CHARACTERS, PUT SWITChH 11 UP,

SEQ 0007

YM=-Z040A-AA

CZLXAA.SRC

(DECSPEC~11-BDFAD~A-D)

12-MAR-81 10:43
L.

12-MAR-81

MACY11 30A(1052)

PAGE 8

11:26

SEQ 0008

SWITCH - 12

SWITCH 12 IN THE UP POSITION IS USED TO AUTOMATICALLY LOOP.ON
THE CURRENT TEST IF IN TESTS 2 TO 15. PLACING SWITCH 12 IN

THE UP POSITION WILL FORCE THE PROGRAM TO CONSTANTLY LCOP ON
THE CURRENT TEST. REPLACING THE SWITCH TO THE DOWN POSITION
WILL MAKE THE PROGRAM RESUME ITS NORMAL TEST SEQUENCE AT THE
COMPLETION OF THE CURRENT TEST.
5.

SWITCH - 12

SWITCH 13 SHOULD BE

SET IS AVAILABLE.

BE DOWN.

SET

THE

ALTERNATE

C(HARA(TER

IF THE ALTERNATE SET IS NOT USED SWITCH 13 SHOULD

SWITCH - 14

SWITCH 14 SHOULD BE SET UP IF THE EVFU IS TO BE TESTED.
7.

SWITCH - 15

WITH SWITCH 15 IN THE DOWN POSITION THE PROGRAM WILL HALT
AFTER AN ERROR TYPE QUT IN TEST 1. WITH SWITCH 15 IN THE UP
FOSITION, THE PROGRAM WILL LOOP ON THE ERROR IN TEST 1.
REFER TO SECTION 6.1 TO CONTINUE AFTER AN
OTHER TESTS.

5.2

ERROR

DURING

ANY

ABSENCE OF HARDWARE SWITCH REGISTER

WHEN THE DIAGNOSTIC IS STARTED AT ADDRESS 200(8),I1T WILL
DETERMINE IF THE PROCESSOR HAS A HARDWARE (H/W) SWITCH
REGISTER (SWR). IF THERE IS NO H/W SWR, THE DIAGNOSTIC WILL
USE THE SOFTWARE (S/W) SWR LOCATED AT ADDRESS 176(8).

THE DIAGNOSTIC WILL PROMPT THE OPERATOR WITH THE MESSAGE:
SWR -

XXXXXX

NEW SWR =

THE FIRST TIME THE SWR VALUE IS NEEDED.ANY TIME THEREAFTER,
THE OPERATOR MAY CHANGE THE VALUE OF THE SWR BY ENTERING A
CONTROL-G (~G) AT THE CONSOLE.

ENTER THE NUMBER 176(8) IN LOCATION 1004(8)

ENTER THE INITJAL VALUE OF THE SWR IN LOCATION 176(8).
AFTER EXECUTION BEGINS, THE OPERATOR MAY CHANGE ,AT ANY TIME,

YM-704FA~AA

CZLXAA.SRC

(DECSPEC~11-BDFAD-A-D)

12-MAR-81 10:43

MACY11 30A(1052)

'2-MAR-81

11:26

PAGE 8-1

THE VALUE OF THE SWR BY ENTERING A CONTROL-G (*G) AT THE CONSOLE.
THE FOLLOWING COMMANDS ALLOW THE OPERATOR TO MODIFY THE

S/W SWR:

CONTROL=-G (“G): ALLOWS MODIFICATION OF THE S/W SWR.
ENTERING A ~G WILL RESULT IN THE FOLLOWING

MESSAGE OUTPUT AT THE CONSOLE

SWR =

XXXXXX

NEW SWR =

THE OPERATOR MAY THEN ENTER UP TO SIX (6) OCTAL DIGITS.
THE DIGITS MAY BE ANY COMBINATION OF :0,1,2,3.4,5.6.7.0R

NO ENTRY AT ALL.

ALL SWR VALUES ENTERED WILL BE TRUNCATED TO THE
LOWER SIXTEEN (1§) BITS.

ENTERING MORE THAN SIX DIGITS OR A CHARACTER OTHER THAN A DIGIT
RESULTS IN A '*2°' QUTPUT ON THE CONSOLE AND A REPEAT OF
THE

PROMPTING MESSAGE.

CARRJAGE RETURN (CR): ENTERS THE NEW SWR VALUE. IF NO
DIGITS hAVE BEEN ENTERED, THE SWR VALUE REMAINS UNCHANGED.
CONTROL-U (“U): ERASES THE SWR VALUE BEING ENTERED.A
CARRJAGE RETURN AND LINE FEED WILL BE OUTPUT AT THE
CCNSOLE. THE CORRECT SWR VALUE MAY THEN BE ENTERED.

ENTERING ANY CHARACTER BEFORE A CONTROL=G (*G) HAS
BEEN ENTERED WILL RESULT IN A ‘*2'' OUTPUT AT THE CONSOLE.
IT IS POSSIBLE FOR THE DIAGNOSTIC TO
NOTE :
THE CONSOLE BEFORE THE NEW SWR
AT
OUTPUT MESSAGES
VALUE HAS BEEN ENTERED. SHOULD THIS HAPPEN, THE
OPERATOR SHOULD ENTER A CONTROL-U ("U) AND THEN
ENTER THE CORRECT SWR VALUE.

5.3

10T CHANGES

THE LINE
THE LINE
THE LINE
THE LINE

PRINTER STATUS IS LOCATION 177514 AS USED BY THE PROGRAM.
PRINTER VECTOR ADDRESS IS LOCATION 200 AS USED BY THE PROGRAM.
PRINTER PSW IS LOCATION 202 AS USED BY THE PROGRAM.
PRINTER BUFFER IS LOCATION 177516 AS USED BY THE PROGRAM.

FOR OTHER THAN THESE, PLACE THE CORRECT STATUS

LOCATION

1000{8) AND THE CORRECT BUFFER LOCATION IN LOCATION 1002(8), THE
CORRECT VECTOR ADDRESS IN LOCATION 1030(8)ANDTHE CORRECT PSW IN

LOCATION 1032(8)

SEQ 0009

MACY11 30A(1052)

(DECSPEC~11-BDFAD-A-D)

YM-Z049A-AA

12-MAR~-81 10:43

CZLXAA . SRC

6.0

ERRORS

6.1

(OMPUTER DETECTED ERRORS

12-MAR-81

THE FOLLOWING DISCUSSION DESCRIBES (IN GENERAL) THE

METHOD

11:26

PAGE 9

USED

FOR

INTERNAL ERROR DETECTION AND ERROR DISPLAY BY THE LINE PRINTER
DIAGNOSTIC PROGRAM. MONITORING OF THE CURRENT CONDITION OF THE READY
LINE AFTER EACH OPERATION IS CARRIED ON CONTINUOUSLY DURING ALL TESTS
WHERE APPROPRIATE AND IS DESCRIBED IN THE FOLLOWING PARAGRAPHS.
HOWEVER,

OF THE

ADDITIONAL

FIRST

TEST.

TESTING 1S PERFORMED ESPECIALLY DURING EXECUTION

FOR

COMPLETE

DESCRIPTION

THE

TESTING

PROCEDURES WUSED IN TEST 1 AND THE CORRESPONDING ERROR CONDITIONS, THE
REQ?ERGIS REFERRED TO THE DESCRIPTION OF THE TEST AND THE TEST
LISTING.

ERROR PRINT-QUTS ARE LIMITED TO THE ERROR NUMBER (ERROK COUNT).
ADDITIONAL INFORMATION MAY BE OBTAINED FROM THE TEST DESCRIPTION OR
TO FIND THE ERROR IN THE LISTING, SEE THE SYMBOL
FROM THE LISTING.
THE LISTING TO FIND THE LOCATION OF THE ERROR.
OF
END
THE
TABLE AT

ERROR TAGS WILL BE LISTED AS "ERRXX'' WHERE XX = ERROR NUMBER.

IN GENERAL, THE TEST PROGRAM MONITORS PROPER OPERATION OF THE LINE
PRINTER AFTER EACH PRINTER OPERATION HAS BEEN COMPLETED, THROUGH THE
PRINTER 'READY'* LINE AND THE SETTING OF THE CHARACTER FLAG OF THE
WITH REGARDS TO THE READY LINE, THE
PRINTER °'DEMAND'' RETURN LINE.
FOLLOWING ERROR (CONDITIONS, IF DETECTED WITHIN THE LINE PRINTER
PAPER OUT OR

FORMS THICKNESS LEVER OPEN (UP).

(o JEV2 B

> SN VN B

1.
A V)

ITSELF, WILL CAUSE THE READY LINE TO DROP:

TORN

RIBBON STALL CONDITION
POWER

SUPPLY FAUJLT

HAMMER BANK FAULT
EVFU ERROR
SWITCHED OFF

LINE

IT SHOULD BE NOTED THAT THE °'DEMAND'' RETURN FROM THE PRINTER IS
CONDITIONAL UPON THE PRINTER ‘READY'' AND THEREFORE THESE ITEMS SHOULD

BE CHECKED FIRST IN CASE OF DIFFICULTY.

SEQ 0010

YM~2049A-AA

CZLXAA.SRC

6.2

MACY11 30A(1052)

(DECSPEC-11-BDFAD-A-D)

12-MAR-81 10:43

12-MAR-81 ,11:24

PAGE 10

VISUALLY DETECTED ERRORS

SINCE THE COMPUTER CAN ONLY DETECT THE CURRENT CONDITION OF THE READY
AND DEMAND RETURN LINES AND DOES NOT RECEIVE ANY ADDITIONAL DATA BACK
FROM THE LINE PRINTER, IT IS NECESSARY TO EXAMINE THE PRINT PATTERNS
PRODUCED BY THE VARIOUS TEST ROUTINES OR RESORT TO MANUAL SCOPING
PROCEDURES, AS PROVIDED BY THE SCOPE DRIVER ROUTINE, TO DETECT AND
DETAILED DESCRIPTIONS OF EACH
DIAGNOSE ADDITIONAL DIFFICULTITIES.
TES;IPQTTERN APPEARS IN THE DESCRIPTION OF THE CORRESPONDING TEST
ROUTINES.

7.0

TEST DESCRIPTIONS

7.1

TEST 1 - CONTROL TESTS AND OPERATOR INTERACTIVE TESTS

TEST 1 IS MADE UP OF TWO SECTIONS LINKED

SEQUENCE

7.1.1

EXECUTED

THE FOLLOWING DESCRIPTIONS TREAT EACH

TEST.

SINGLE

SECTION SPEARATELY.

AND

TOGETHER

TEST 1 - SECTION 1 - COMMWND DECODE, CONTROL INTERFACE

THIS PORTION OF TEST 1 IS DESIGNED AS A

INTERFACE

TEST

AND

INCLUDES

(HECKOUT

COMMAND

THE

DECODE

AND

PRINTER

CONTROL

INTERRUPT

FACILITY. UPON INITIAL ENTRY INTO THIS ROUTINE. MANUAL INTERVENTION
IS REQUIRED TO TEST THE VARIOUS TESTABLE ERROR (NON-READY) CONDITIONS
OF THE PRINTER. THE OPERATING SEQUENCE IS DESCRIBED IN DETAIL BELOW.

NOWVN
IS ANN -

THE PRINTER READY LINE CONTINUOUSLY MONITORS THE FOLLOWING CONDITIONS
WITHIN THE PRINTER AND ITS TRUE STATE AT THE CONTROL ELECTRONICS
INTERFACE IS CONDITIONAL UPON NONE OF THEM EXISTING:

.
.

PAPER OUT OR TORN

FORMS THICKNESS LEVER OPEN (UP).
RIBBON STALL CONDITION

POWER SUPPLY FAULT
HAMMER BANK FAULT
EVFU ERROR

SWITCHED OFF LINE

THE MANUAL-INTERACTIVE TEST SEQUENCE WHICH FOLLOWS IS DESIGNED TO TEST
THE

PROPER OPERATION OF THE READY LINE AS IT APPEARS AT THE INTERFACE

ELECTRONICS WITH RESPECT

THOSE

THE

ABOVE

ITEMS

TESTABLE (I.E. - A,B,F&G) INITIAL MANUAL TEST SEQUENCE:

WHICH

ARE

AFTER "POWER ON - TURN ON LINE'® HAS BEEN TYPED ON THE
TELEPRINTER BRING POWER - UP ON THE LINE PRINTER AND TURN ON
LINE, MAKING SURE THAT THE PAPER IS IN PLACE IN THE TRACTORS
AND THAT THE FORMS THICKNESS LEVER IS CLOSED (DOWN) .

SEQ 0011

CZLXAA,SR(

(DECSPEC~-11-BDFAD-A-D)

12-MAR-81

10:43

12-MAR-81

11:24

PAGE 11

SEQ 0012

DEPRESS CONTINUE, ‘READY SET OK = TRY TORN PAPER SWITCH'' WILL

BE TYPED OUT IF PRINTER IS ON LINE AND NO ERRORS EXIST.
PAPER - TEAR THE PAPER OFF BELOW THE PRINTER FORMS THICKNESS LEVER
USE THE MANUAL TOP OF FORM SWITCH TO DRIVE ALL THE PAPER OUT
OF THE PRINTER AND OBSERVE THAT THE PRINTER READY LIGHT GOES
OUT AND THE CHECK LIGHT GOES ON ON THE PRINTER (ONTROL
THE ON-LINE
PANEL. ATTEMPT TO PLACE THE PRINTER ON LINE.
REMAIN
SHOULD
PANEL
CONTROL
PRINTER
THE
ON
LIGHTS
READY
ANE

AND

OFF.

DEPRESS CONTINUE., AN ERROR TYPE-QUT (ERROR COUNT 2) WILL
OCCUR IF THE PRINTER READY LINE REMAINS HIGH AT THE INTERFACE
ELECTRONICS.

READY - AFTER SUCCESSFUL COMPLETION OF STEPS 3 AND & THE
MESSAGE 'ERROR SE” OK - TURN ON LINE'' WILL BE TYFED. RESTORE
PAPER TO THE TRACTORS, CLOSE THE FORMS THICKNESS LEVER AND PLACE
PRINTER IN THE READY-ON LINE STATE. OBSERVE THAT BOTH THE
gN-EINE AND READY LIGHTS COME ON ON THE PRINTER (ONTROL
ANEL

THE

DEPRESS CONTINUE, AN ERROR TYPE-QUT
OCCUR IF THE PRINTER READY LINE
INTERFACE ELECTRONICS.

(ERROR COUNT &) WILL
DOES NOT GO HIGH AT THE

FORMS THICKNESS LEVER - AFTER SUCCESSFUL COMPLETION OF STEPS 5 & 6 THE
MESSAGE 'READY SET OK-TRY, FORMS THICKNESS LEVER SWITCH'' WILL BE TYPED.
OPEN THE PRINTER FORMS THICKNESS LEVER AND OBSERVE THAT THE ON-LINE AND
READY

LIGHTS GO QUT AND THE CHECK ERROR LIGHT GOES ON ON

THE PRINTER CONTROL PANEL.

DEPRESS CONTINUE, AN ERROR TYPE-QUT (ERROR COUNT 5) WILL
OCCUR IF THE PRINTER READY LINE APPEARS TO REMAIN HIGH AT THE
INTERFACE ELECTRONICS.

READY - AFTER SUCCESSFUL

COMPLETION

STEPS

MESSAGE 'ERROR SET OK - TURN ON LINE'" WILL BE TYPED.
10.

THE

DEPRESS CONTINUE TO COMPLETE THE COMMAND AND REGISTER TESTING
ALONG WITH THE INTERRUPT TESTING. IF ANY ERROR CONDITIONS
EXIST, ERROR TYPE-QUTS GIVING THE ERROR COUNT WILL BE
PRINTED.

& -8

CHECK THE LISTING FOR DESCRIPTIONS OF THESE ERRORS.

SECTION 2 OF TEST 1 WILL BE ENTERED DIRECTLY UPON

OF SECTION 1.

(COMPLETION

YM=-7045A~-AA

MACY11 30A(1052)

(DECSPEC-11-BDFAD=-A-D)

YM=7049A~AA

12-MAR-81 10:43

CZLXAA, SRC

7.1.2

MACY11 30A(1052)

12-MAR-81

~AGE 12

11:24

TEST 1 - SECTION 2 - PRINT SPEED TIMING TEST.

THIS SECTION OF TEST 1 IS DESIGNED TO TIME THE PRINTER

ONE

FOR

FULL

DURING THIS TIME THE PRINTER WILL PRINT THE DIAGNOL OF THE
MINUTE.
PROM PATTERN SO THAT ONLY TWO HAMMERS (MAXIMUM) WILL FIRE AT ANY GIVEN
INSTANT AND MAXIMUM PRINT TIME IS USED FOR EACH LINE.
THE
IF A KW11-L OR KW11-P ARE AVAILABLE THEY WILL BE USED TO TIME
IF BOTH ARE AVAILABLE, THE Kw11-L WILL BE USED. IF NEITHER
PRINTER.
ARE AVAILABLE., MANUAL TIMING WILL BE USED. WHEN MANUAL TIMING IS USED
INSTRUCTIONS WILL BE TYPED ON THE TELEPRINTER. TO START THE TIMING
PLACE SWITCH O IN THE UP POSITION. AT THE END OF ONE FULL MINUTE
PLACE

SWITCH

O IN THE DOWN POSITION 7O STOP THE TIMING.

IF USING AN

INTERNAL CLOCK FOR TIMING, PLACE SWITCH O IN THE UP POSITION BEFORE
STARTING THE TEST. WHICH EVER METHOD OF TIMING IS USED, AT THE END OF
ONE FULL MINUTE THE APPROXIMATE PRINT SPEED WILw BE TYPED ON BOTH THE
TELEPRINTER AND LINE PRINTER.

;

IF BOTH A KWl1-L OR KW11-P ARE AVAILABLE OR IT IS DESIRED TO MANUALLY
TIME THE PRINTER IF EITHER IS AVAILABLE USE THE FOLLOWING START

ADDRESSES TO RUN THE DESIRED PRINT SPEED TIMING TEST:
400
404
410

NOTE:

FOR
FOR
FOR

MANUAL TIMING
.
Kwll-L
KW11-P

IF THE LINE FREQUENCY IS S0 HZ.
....

CHANGE THE CONTENTS OF “MINCNT

REFER TO THE END OF THE PRINTING ROUTINE.

5670(8)

7.2

LINE PRINTER PRINTING TESTS

FOR *MINCNT'' IN THE (ROSS REFERENCE LISTING)

TESTS 2 TO 15 PRODUCE VARIOUS PRINT

PATTERNS

DESIGNED

FOR

(SEARCH

EASE

OFf

THESE TESTS (HECK ALL OF THE VARIOUS PRINTING
VISUAL VERIFICATION.
?SPEéLé OF THE PRINTER. DETAJLED DESCRIPTIONS OF EACH INDIVIDUAL TEST
oLt

7.2.1

TEST 2 = DATA TRANSFER PATHS TEST

(WITH
TTMM,S TEST IS DESIGNED TO TEST THE DATA TRANSFER PATHS
THE
THRU
INTERFACE,
PROCESSOR
THE
FROM
ZEROS),
AND
ONES
Al TERNATING
AN
BUFFER.
S
PRINTER'
THE
INTO
AND
,
LINE PRINTER INPUT REGISTER
THE
'O
TED
TRANSMIT
ARE
RS
(HARACTE
‘U’
AND
‘'«'"
OF
ALTERNATING STRING
SINCE THESE CHARACTERS ARE
PRINTER ON A FULL 132 C(OLUMN BASIS.
A ONES AND ZEROES CHECK OF
BOTH
PROVIDE
THEY
BITWISE,
COMPL IMENTARY
ALL TRANSMISSION LINES. END OF LINE IS SEMSED WITHIN THE PROCESSOR
AND A LINE FEED CHARACTER ]S TRANSMITTED TO PRINT EACH LINE. PRINTING

OF THE TEST LINE
fig?{gggNS OF THE

|S REPEATED 32 TIMES, ALTERNATING THE (OLUMN
‘'«*° AND "VU'' (HARACTERS TO PRODUCE A (HECKER-BOARD

SEQ 0013

YM-Z049A~AA

CZLXAA,SRC

7.2.2

(DECSPEC-11-8BDFAD-A-D)

12-MAR-81 10:43

MACY11 30A(1052)

12-MAR-81

11:24

PAGE 13

TEST 3 - CHARACTER GENERATOR AND COMPARATOR TEST

TEST 3 IS DESIGNED PRIMARILY
TO TEST
THE LINE
PRINTER CHARACTER
GENERATOR AND COMPARATOR LOGIC AND ITS ABILITY TO DETECT AND ACT UPON
BCTH PRINTABLE AND ILLEGAL (NON-PRINTING) CHARACTERS.
A SERIES OF ALL
96 PRINTABLE CHARACTERS ARE TRANSMITTED IN SEQUENCE TO THE LINE
PRINTER AND PRINTED ON A SINGLE
LINE BEGINNING WITH THE__SPACE
CHARACTER.
THIS IS FOLLOWED BY AN ALTERNATE _INE OF ALL 32
ILLEGAL CHARA(CTERS, EACH OF WHICH SHOULD BE CONVERTED TO A SPACE
CHARACTER PRODUCING NO VISIBLE PRINTING.
THIS SEQUENCE OF ALTERNATING
ALL
PRINTABLE
(HARACTERS
REPEATED
10 TIMES
ALONG

FOLLOWED
WITH AN

BY ALL
ILLEGAL
CHARACTERS
IS
EXTRA LINE OF ILLEGAL CHARACTERS

INSERTED AT THE BEGINNING OF THE TEST TO PRODUCE 21 LINES OF PRINT (11

OF WHICH WILL BE BLANK).
7.2.3

TEST 4 - UNDERLINE

TEST

THIS TEST CHECKS THAT ALL 132 PRINT SPACES CAN BE UNDERLINED.

7.2.4

TEST

5 = LINE

THIS TEST CHECKS THE

EDITING TEST

INTERNAL EDITING FOR CORRECT OPERATION.

FULL LINES

OF
E'S ARE PRINTED BY SENDING A PAIR OF
E'S AT A TIME THEN
OVERPRINTING THOSE E'S PRINTED WITH SPACES AND ADDING ANOTHER PAIR OF
E'S TO THE LINE UNTIL THE LINE IS COMPLETED.
THEN A FULL LINE OF M'S

ARE PRINTED FOR COMPARISON.
A TOTAL OF 16 LINES
ARE
PRINTED
DURING
THIS TEST.
THERE IS NO SHUTTLE IN THE LXY11/21-LXV11 LINE PRINTER.
EACH COLUMN HAS A HAMMER.
THE PRINTER LOGIC SELECTS WHICH
HAMMER

TO FIRE.

7.2.5

TEST 6 - PRINT CONTROL

TEST

THIS TEST CHECKS THE PRINT CONTROL LOGIC BY SENDING MORE
THAN
132
CHARACTERS BEFORE
SENDING A PRINT COMMAND.
THE PRINTER SHOULD SAVE
THE FIRST 132 CHARACTERS RECEIVED AND PRINT THEM

CORRECTLY

WHEN

THE

PRINT
COMMAND JS RECEIVED.
ALL CHARACTERS AFTER THE FIRST 132 SHOULD
BE LOST.
THE PROGRAM SENDS A FULL LINE OF 132
ZEROS
THEN
THE
FULL
(HARACTER SET BEFORE
SENDING A LINE
FEED TO PRINT THE LINE.
THE

PRINTED LINE SHOULD CONTAIN ONLY ZEROS.
THIS IS REPEATED USING ONES,
TWOS,
THREES,
FOURS,
AND FIVES.
THEN A LINE OF SPACES ARE SENT AND
THE FULL CHARACTER SET BEFORE THE LINE FEED.
A BLANK LINE
SHOULD
BE
PRINTED.
AFTER THE BLANK LINE, THE NUMBERS 6 TO 9 ARE SENT AS BEFORE.
A TOTAL OF

LINES WILL BE PRINTED WITH THE MIDDLE LINE BLANK.

SEQ 0014

—

YM-Z049A~AA

(ZLXAA.SRC

(DECSPEC-11-BDFAD=A=D)

12-MAR-81 10:43

7.2.6

MACY11 30A(1052)

12-MAR-81

11:24

PAGE 14

SEQ 0015

TEST 7 = MULTIPLE LINE ADVANCE TEST

THE

THIS TEST CHECKS THE MULTIPLE LINE ADVANCE OF

LINE

PRINTER.

LINE OF NUMBERS IS PRINTED THEN THE PAPER IS ADVANCED THAT NUMBER OF
LINES. THUS THE NUMBER PRINTED WILL INDICATE THE NUMBER OF BLANK
LINES FOLLOWING THAT LINE. THE NUMBER IS VARIED BETWEEN 2 AND 9, AND
A LINE OF ALL ZEROS WILL END THE TEST.

7.2.7

TEST 8 = HIGH SPEED PRINT TEST

THIS TEST PRINTS ALL CHARACTERS BY PRINTING 16 CHARACTER GROUPS ON EACH LINE
THIS WILL TEST
THEN SEQUENCING TO THE NEXT LINE WITH THE NEXT GROUP.
AND
SURGE
THE HAMMER SUPPLY FOR MAXIMUM CURRENT
gI%L TESE FOR WORST CASE NOISE SINCE ALL HAMMFRS WILL FIRE AT ONCE ON
ACH LINE.

7.2.8

TEST 9 ~ SINGLE CHAR, ALL COLUMNS TEST
S e

—

e — —

AN ENDURANCE TEST OF THE LINE PRINTER AS WELL
AS A CHARACTER CHECK OF THE PROM. 132 COLUMNS OF EACH OF THE 96

AS
—IHS—FESTISDES
£STGNED
CHARACTERS

ROTATION.

ARE

TRANSMITTED

THE

LINE

A SAMPLE OF THE PRINT OUT FOLLOWS:

PRINTER

AND

PRINTED

77777==mmmmmaan 22222
89a@@=-===-==== 2023
AAAAA====~=====AAAAA
BARBR---=-~=-- -ABRAR

11172----=----- 22222
7.2.9

TEST 10 - PROM PATTERN TEST

THIS TEST IS DESIGNED TO PRODUCE AN IMAGE OF THE ENTIRE PROM PATTERN.
THIS IS A WORST CASE NOISE AND ENDURANCE TEST, AND A CHECK OF THE PROM

PATTERN.

7.2.10

TEST 11 - SPURIOUS HAMMER FIRING TEST

THIS TEST IS DESIGNED TO DETECT SPURIOUS HAMMER FIRINGS AND DEFECTIVE
HAMMER DRIVERS DURING OPERATION OF THE LINE PRINTER. THE PATTERNS
WHICH ARE PRODUCED ARE RIGHT AND LEFT HAND WEDGES, EACH (OM>0SED OF
132 LINES OF PRINT AS FOLLOWS:

LEFT HAND WEDGE - WILL FND EACH LINE WITH A '"2"" CHARACTER.
RIGHT HAND WEDGE - WILL START EACH LINE WITH A ""2'' CHARACTER.

ANY PRINT OUTSIDE OF THE WEDGE wILL BE CAUSED BY A HAMMER

HAMMER BOUNCE.

MISFIRE

YM-Z045A-AA

| CZLXAA.SRC

(DECSPEC-11-BDFAD-A-D)

12-MAR-81 10:43

7.2.11

MACY11 30A(1052)

12-MAR-81

11:24

PAGE 15

TEST 12 - HAMMER ALIGNMENT TEST

TH1S ROUTINE IS DESIGNED TO BE USED AS A DRIVER FOR MANUAL HAMMER
ALIGNMENT AND INTENSITY ADJUSTMEMTS ON THE LINE PRINTER. THIS TEST
PRINTS A FULL 132 COLUMN LINE OF 'E'" CHARACTERS FOR 63 LINES.

7.2.12

TEST 13 - ELONGATED CHARACTERS TEST

THIS TEST INSURE THAT ALL 96 CHARACTERS CAN BE PRINTED IN THE

ELONGATED OR EXPANDED MODE.

7.2.13

TEST 14 ~ UNDERLINED ELONGATED CHARACTERS TEST

THIS TEST CHECKS THAT ELONGATED CHARACTERS CAN BE UNDERLINED.
7.2.14

TEST 15 - ALTERNATE CHARACTER SET TEST

WHEN ENABLED THIS TEST WILL PRINT THE OPTIONAL ALTERNATE CHARACTER
SET IN THE SAME MANNER AS TEST 8.

7.2.15

EVFU TEST - EVFU CHANNEL SLEW COMMAND TEST

THIS TEST IS DESIGNED TO TEST THE EVFU CHANNEL SLEW COMMANDS.

THE

EVFU MEMORY IS FIRST LOADED WITH CHANNEL 1 IN THE FIRST LOCATION
THEN THE SEQUENCE 21-35 OCTAL THROUGHOUT THE REMAINING MEMORY.

CHAMNEL 1 IS USED TO RESET THE POINTER TO THE TOP OF MEMORY THEN EACH
THE SPACING ON
CHANMNEL ,STARTING WITH CHANNEL 2 IS CALLED 10 TIMES.
THE PAPFR SHOULD BE AS SPECIFIED IN THE PRINTED LINE.

7.2.16

PLOT TEST

THIS TCST WILL CHECK THE PLOT CAPABILITIES OF THE LXY11/21-LXV11.
TWO PLOTS 132 X 132 WILL BE PLOTTED THE FIRST WILL CONSIST OF A

FLOATING SPACE STARTING AT THE LEFT AND MOVING

IN THIS TEST

ONE SPACE PER LINE. THE SECOND PLOT WILL BE A FLOATING DOT STARTING AT
THE LEFT AND MOVING ONE SPACE RIGHT PER LINE. AT THE END OF THIS TEST
ALL PRINTING TESTS WILL BE RESTARTED AT TEST 2.

SEQ 0016

YM-704GA~AA

CZLXAA.SRC

7.3

(DECSPEC-11-BDFAD~A-D)

12-MAR-81 10:43

SCOPE DRIVE ROUTINE

MACY11 30A(1052)

12-MAR-81

11:24

PAGE 16

THE PRUPOSE OF THIS TEST SEQUENCE IS TO PROVIDE THE OPERATOR WITH A
SHORT BUT COMPREHENSIVE SCOPE DRIVER ROUTINE FOR USE IN TROUBLE
SCOPE.
SHOOTING THE PRINTER INTERFACE CONTROL MODULE WITH THE
EITHER
WILL
TEST
THIS
11
SWITCH
OF
SETTING
ON THE
DEPENDING
CONTINUALLY SEND WHATEVER CHARACTER IS SET IN THE SWITCH REGISTER TO
(SEE DESCRIPTION Of
THE LINE PRINTER, OR ONLY SEND IT ONCE AND HALT.
SWITCH 11 OPERATION IN SECTION 5.1)

TO INSERT A LINE FEED

CHARACTER

AFTER

132

EVERY

CHARACTERS,

SENDING CHARACTERS CONTINUOUSLY, START AT LOCATION 700(8).
TO LEAVE OUT THE LINE FEED, START AT LOCATION

710(8).

SHOULD BE USEFUL WHEN TROUBLE SHOOTING THE EVFU.

THIS

WHEN

ROUTINE

WHEN SWITCH 11 IS UP, TO SEND ONLY ONE CHARACTER THEN HALT, DEPRESS
CONTINUE TO SEND THE NEXT CHARA(CTER AFTER SETTING THE SWITCH REGISTER
AS DESIRED. TO RESUME SENDING CONTINUOUS CHARACTERS, PLACE SWITCH 11
TO STOP SENDING
DOWN, SET THE SWITCHES, AND DEPRESS (CONTINUE.
CONTINUGUSLY PLACE SWITCH 11 UP.

853

LIST

Se0Q,BIN,LOC

SEQ 0017

YM-Z049A-AA

CZLXAA.SRC

(DECSPEC-11-BDFAD=A=D)

12-MAR~81 10:43

12-MAR-81

MACY11 30A(1052)
.TITLE YM-Z049A-AA

11:24

PAGE 17

SEQ 0018

(DECSPEC=11-BDFAD=-A-D)

855

ggg

saxxxrex

ggg
860
861

866

LYY

868

869

871

;

g;%
874
875
876
877
878
879
880
881
882

000000
000001
000002
000003
000004
000005
000006
000007
000006

000007

RO=%0
R1=%1
R2=%2
R3=%3
R4=%4
R5=%5
R6=%6
R7=%7
SP=R6
PC-R7

885

100000

BITI1S

000400

BIT8

886
887
888
889
890
891

040000
020000
010000
004000
002000
001000

893
894
895
896
897
898
899
38?

000200
000100
000040
000020
000010
000004
000002
000001

902
903
904

000036
00037

ONLY '!!

TEST ALTERNATE CHARACTER SET

LOOP ON TEST

USED TO TEST PRINT SPEED IN TEST 1 IF NO CLOCK IS AVAILABLE

SEND ONLY ONE CHAR TO LINE PRINTER IN SCOPE TEST = THEN HALT
TEST PLOT FEATURE

=100000

=40000
=20000
=10000
=4000
=2000
=1000

8Ir7
BIT6
BITS
8IT4
BIT3
BIT2
BIT1
BITO

=200
=100
=40
=20
=10
-4
-2
=1

)

=400

:START VFU LOAD
;END VFU LOAD
.ENABLE 4BS

908

000000

.~0

910

000100

.REPT

909

TEST EVFU

BIT14
BIT13
BIT12
BIT11
BIT10
BIT9

SL 36
EL=37

LOOP ON ERROR IN TEST 1

.ENABLE AMA

905

906
907

870

892

senees

sLIST OF SWITCH SETTINGS USED IN THIS TEST
DE5SCRIPTION
:SWITCH NO.

gg%
ggé

ggz

[ XY11/21-LXV1T LINE PRINTER/PLOTTER TEST

100

YM=2049A~AA

CZULXAA,SRC

(DECSPEC-11-BDF AD=-A~D)
12-MAR-81 10:43

MACY11 30A(1052)

12-MAR-81

060030

.=30

010744
000340

TYP

000042

.~42

000000

LOGICAL
=52

000052

000046
010566
000052
040000

931
932
933
934
935
936

000060
000062

000060
011172
000300

TKINT

000150

.=100

939
940

000100
000102

003100
000340

LKSRV
340

942
943

000104
000106

003110
000340

CONVRT
340

000174

000174
000000
000000

DISPREG: 0
SWREG:
O

000200

.-200

916

000030
000032

924
925

000042

927
928
929

000046

926

930

946

. 947

951
952

000176

000200
000204

012706
000137

340

.=46

BIT14
.=60

000300
000304

000137
000137

000400
000404
000410

000137
000137
000137

JLINE CLOCK SERVICE ROUTINE

.=174

001000
001100

MOV
JMP

#1000,%6
SETUP

.~300

014660
016222

JMP

DAV?2

PLPRT

;CHANNEL SLEW TEST
;PLOT

TEST

.=400

000400

964
965
966

;KEYBOARD INTERRUPT ROUTINE

300

000300
957
958

PAGE 17-1

HALT
.ENDR

915

920
921
922
923

2
11:26

.42

911
912
913
914

97
918
919

002466
002626
002546

JMP

JMP
JMP

SWTIME

KW11L
KW11P

;1 MINUTE PRINT SPEED CHECK

;START FOR USING SWITCH REG FOR TIMING
JSTART FOR KW11-L LINE CLOCK
;START FOR KW11-P LINE CLOCK

SEQ 0019

MoV

001000
003310
003552

JMP
JMP
JMP
JMP
JMP
JMP
JMP
JMP
JMP
JMP
JMP
JMP
JMP
JMP

004114
004420

004716
005176
005412
005712
006066

006332
007046
007216
007550
010166

012737
000137

016174
01 6052

016220

MGV
JMP

012737
000137

016052
016052

016220

MOV
JMP

b
d

301000

177514

LPS:

177514

WN—=O
NV

SNGCHR
ROTATE
LFTTR

JTEST
JTEST

;JTEST

HSPRT

;TEST

HAMALN

EXPRT
UEXPRT
ACPRT

;JTEST
JTEST
;TEST
JTEST

#LSCA,LOSCOP

s SEND LF AFTER 132 (HARS

#SCOPE ,LOSCOP

;NO LF'S SENT IN SCOPE ROUTINE

SCOPE

;DO SCOPE ROUTINE

;STATUS REGISTER
;BIT 15=ERROR

;BIT 6=INTERRUPT ENABLE

001002

177516

LPB:

177516

;DATA BUFFER REGISTER

;BITS 0-6=7 BIT ASCII CHARACTER BUFFER
;BITS 7-15-NOT USED

ek D

JTEST

;TEST

PRTCTL

;BIT 7=READY

b b b cnd b b

MLF

TEST?
TEST3

;LINE PRINTER HARDWARE REGISTERS

b —

N) =D

ULPRT
OVRPRT

;START OF PRINTING TESTS SEQUENCE
s TEST
;JTEST
s TEST
JTEST

#1000,
%6

.=1000

001000

nd
b
d and wd
b e

cad —md od

(olelelalelelolelelelel

PAGE '7-2

.-720

000720
000720
000726

2
11:24

.=700

000700
000700
000706

VNHWN—=O

000654
000660
000664
C00670

012706
000137
000137
000137
000137
000137
000137
000137
000137
000137
000137
000137
000137
000137
000137

12-MAR-81

.~600

10:43

0004600

O 00 0 00 000 00OV

(DECSPEC-11-BDFAD-A=D)

12-MAR-81

V 00000

8888883288888
88 888888228 ERREIIIIINRNISLEE

YM~-Z049A~AA
CZLXAA .SRC

MACY11 30A(1052)

001004
001006
001010
001012
001014
001016
001020
001022
001024
001026

177570
177570
177776
177566
177562
177564
177560
172542
1725490
177546

177570
SWR:
DISPLAY: 177570
177776
PSW:
177566
TP8:
177562
TKR:
177564
TPS:
177560
TKS:
172542
(SRR:
172540
PLKS:
177546
LKS:

SEQ 0020

YM=-2049A-AA

CZLXAA.SRC

1023
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
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078

001030
001032

(DECSPEC-11-BDF AD~A~D)
12-MAR-81 10:43
000200
000292

000240
000000
000002

MACY11 30A(1052)
PTRVEC:
PTRPSW:

NOP
N

.WORD
.WORD
=240
=0
=2

12-MAR-81

11:24

PAGE 17-3

200
202

:MACRO FOR SETTING UP ERROR (OUNT
LIST ME

.MACR

ERR'X"': MOV ]
N=N+

.ENDM

S$ERROR X
aX,
ERCOUNT

:SET UP ERROR COUNT X

$ERROR

:MACRO FOR PRINTING TEST NUMBER AT START OF TEST
LLIST ME
.MACR

MOV
JSR

M=M+1

.ENDM

$PRINT Y

TNO'Y' ,MES15
%4 ,PRNNT

;SET TEST NUMBER FOR MESSAGE
JPRINT TEST NUMBER

S$PRINT

:MACRO FOR WAITING FOR PRINTER TO PRINT OR SLEW
LIST ME

.MACR

SWAIT

BPL
.ENDM

=6
SWAIT

TSTR

aLPS

:TEST READY

JWAIT FOR READY

:MACRO FOR ENABL ING KEYBOARD INTERUPT [F THERE IS NO
;H/W SWITCH REGISTER AND THERE

IS A S/W SWITCH REGISTER

LIST ME
.MACR

(MP
BNE
BIS
.ENDM

$ENABLE

#176,SWR
.+10
#°00,aTKS
SENABLE

:S/W SWR ?
;NO- CONTINUE
JENABLE KEYBOARD INTERRUPT

;MACRO USED TO LOAD THE PSW WITH THE
;CORRECT PROCESSOR PRIORITY LEVEL

SEQ 0021

YM-Z049A-AA
CZLXAA.SRC

(DECSPEC=11-8BDf AD=A=D)

12-MAR-81

10:43

MACY11 30A(1052)

1079
1080
1081
1082
1083

12-MAR-81

11:24

PAGE 17-4

SEQ 002¢

LIST ME

.MACR

MOV
ADD
RTI

1084
1085

.ENDM

$SETPSW

PC,-(SP)
#6, (SP)

S$SETPSW

sMOVE PRESENT LOCATION TO STACK
;SET UP FOR NEXT INSTRUCTION
;LOAD PSW

:
WORK

SAVE:
:
ERCOUNT
HR:
STRC
STRCNT:
LEGCHR:
NUMCHR:
OFFSET:
DIGITS:
:
SIGNAL
SET:
CHAR:
OCT:

SEGCNT:
CHRCNT:
CHRGEN:
LINCNT:
CYCCNT:

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

[ololelolelelololalelalelololalels
o]

001034
001036
01040
001042
001044
001046
001050
001052
001054
001056
001060
001062

and ed D

D d d

d =D b

elelolols)

—.—l—l—l—l—l—l—ld—l—l—l—l—l—‘—l—d—l_—l—l—d—l—l—l—l—l—l_‘_fl—l-—l—l

NNNNNNNNN—‘—‘-—‘—'—‘—‘—‘—'—‘—'OOOg VNS NN = 3
"’"""—'o‘sm\JO‘\A‘*LNN—‘O‘O@\JO‘\I\“WN—'OO@\‘

;MEMORY LOCATIONS USED AS PROGRAM FLAGS AND COUNTERS

—

o~ o~

b b NN N

b —h o

h o

o o

)

b d D o

JROUTINE TO TEST THE MECH. OPERATION OF THE LXY11/21-LXV11
001100
001104
001106
001112
001116
001124
001130
001132
001132
001140
001146
061150
001154
001165
001160
001166
001170

SETUP:

004437
000005
013746
013746
012737
005777
000407

010726

012737
012737
022626
012637
012637

000176
000174

022737
001003
052777

000176

001004

000100

177622

000004
000006
001132
177654

000004

01004
001006

X4, TYPINT

MOV
MoV
MOV

4,-(SP)
6,-(SP)
#19%,4

TST

1%:

aSWR

;CLEAR WORLD
:SAVE CURRENT VECTORS

“SET UP TIMEOUT VECTOR
“TRY

TO ACCESS HARDWARE

THERE, GO TO 2%

“IF

MOV

#SWREG, SWR

;POINT

(MP
MoV
MOV
SENABLE

(SP)+,(SP)+
(SP)+,6
(SP)+.,4

JRESTORE
JRESTORE

MOV

2%:

000006
000004

JSR

RESET

(Mp
BNE
BIS

TO SOF TWARE

SWR

#DISPREG,DISPLAY ;POINT TO SOF TWARE DISPLAY

#176,SWR
.+10
#100,TKS

STACK
TIMEOUT VECTORS

:S/W SWR ?

sNO~ CONTINUE
JENABLE KEYBOARD INTERRUPT

YM-Z049A-AA

CZLXAA,.SRC
1132

1133

001176

1135

001202

(DECSPEC-11-BDFAD-A=D)

12-MAR-81 10:43
104000

EMT

012147

MES1

1136 001204 012212
1137 001206 104000

MES?2
EMT

1134

001200

104000

1138

001210

012237

1141

001214

005777

MES3

1143

(1)

11446

1145
1146
1147

1148

(1)

001220
001222

100006

STP1:

177560

001222 012737 000000 001052

001230

001234
001236
001242
001244

CO01244

1149 001252
1150 001256
17151

001260

1153

001264

000001

004537

000767
105777
100406
000002

177536

001052

1154

001266

000000

001266 012777 000014

1159

(1)

1160

1161
1162

001302
001306

001310

005777
100406

177472

001310 012737 000002
001316

001322
001324

000003

004537

000761
104000

177506

177442

1166
1167

001332
001336

(1)

001340 012737 000003 001052

1169
1170
1171
1172

001346
001352
001354
001360

004537
000767
105777
100406

001362

012737 000004

1168
1)

1173

(1)

001340

001362

11764 001370
1175 001374
1176 001376

000004

000005

004537
000767
104000

1177 001400 012334

;POWER UP

:DEPRESS CONTINUE WHEN READY TO START TEST

001052

$ERROR

STP?
\N

MOV

#0,

JSR

XS5,STAER

N=N+1

;NO ERROR TEST FOR READY

ERCOUNT

JSR
BR

X5,STAER
STP2

STP4:

$SERROR

N=N+1

EMT

MES4

;SET UP ERROR COUNT O
;REPORT ERROR BIT SET
;GO TEST FOR ERROR
;TEST FOR READY
: READY SET OK

STP1
aLPS
STP3

ERCOUNT

;SET UP ERROR COUNT 1
JREPORT READY NOT SET
;GO TEST FOR READY
s TYPE MESSAGE

;PRINTER OK 'READY SET’' TRY TORN PAPER SWITCH
;DEPRESS CONTINUE WHEN READY

HALT

MOV

414 ,aLPB

JSEND A “FF'' TO THE PRINTER

TST
BM]

aLPS
STPS

;JTEST FOR ERROR
;BRANCH IF ERROR SET

MOV
$SERROR

ERR2:

MOV

JSR

%5,STAER

STPS5:

BR
EMT

STP5A:

N=N+1

;ATTEMPT "FF'' BY SENDING A ‘‘(R"’

415,aLPB
N2,

ERCOUNT

;SET UP ERROR COUNT 2
;REPORT ERROR NOT SET

STP4
+0

;LOOP ON ERROR
: TYPE MESSAGE

TST
BPL

aLPS
STP5B

;TEST FOR ERROR
;NO ERROR CONTINUE

ERR3:

MOV

#3,

STP58:

JSR
BR
TSTB
BM]

X5,STAER
STP5A
aLPS
STPS5C

ERR4:

MOV

#é,

STPS5C:

JSR
BR
EMT

X5,5TAER
STPSB
+0

011142
177420

BPL

;TEST FOR ERROR

al”S

MOV

011142

1163 001326 012415
}}gé 001330 000000
005777
100006

ERR1:

177500

001052

TST

PAGE 17-5

;TYPE RESTART ADDRESS INFO
: TYPE MESSAGE

STP2:

STP3:

104000

1156 001274 01.777 000015
1157
1158

11:24

;TYPE DIAGNOSTIC TITLE

BR
TSIB
8MI

011142

1152 001262 012270
1155

ERRO:

011142

012737 0C0001
004537
000767

HALT

}123 001212 000C00
1142

12-MAR-81

MACY11 30A(1052)

011142

MES6
HALT
$ERROR

N=N+1

$ERROR

N-N+1

MESS

;ERROR SET OK - TURN ON LINE
;WAIT FOR OPERATOR

ERCOUNT

;SET UP ERROR COUNT 3
;REPORT ERROR SET
:LOOP ON ERROR
;TEST READY
JREADY SET OK

ERCOUNT

;SET UP ERROR COUNT &
JREPORT ERROR NOT SET
;LOOP ON ERROR
; TYPE MESSAGE

:READY SET OK = TRY FORMS THICKNESS LEVER SWIT(H

SEQ 0023

YM-Z049A-AA

CZLXAA.SRC

(DECSPEC-11-BDFAD=A=D)

12-MAR-81 10:43
005777
100406

177370

001404
001410

(1)

001412 012737 000005 001052

1182

(1)

1183
1184
1185
1186
1187

001412

001420
001424
001426
001430
001432

000006

004537
000767
104000
012415
00000C

11:24

STP6:

TST
BM]

aLPS
STP?

ERRS:

MOV

"5,

STP7:

JSR
BR
EMT
MES6

%5,STAER
STP6
+0

011142

$ERROR

N=N+1

HALT

PAGE 17-6

;DEPRESS CONTINUE WHEN READY

HALT

}};g 001402 000000
1180
1181

12-MAR-81

MACY11 30A(1052)

;TEST FOR ERROR
;BRANCH IF ERROR SET

ERCOUNT

;SET UP ERROR COUNT 5
;JREPORT ERROR NOT SET
;LOOP ON ERROR
; TYPE MESSAGE
JERROR SET OK - TURN ON LINE

;DEPRESS CONTINUE WHEN READY

SEQ 0024

YM-Z049A-AA

SREC2S8 oo
O

—

— ed o b ) b cnd o =D

2
11:24

PAGE 18

;TEST 1
;PERFORMS PRELIMINARY COMMAND AND REGISTER TESTING.

;1S THE PRINTER FREE OF ERRORS
001434
001436
001442

000005
005777
100006

012737

000006

001452
001456

004537
000766

011142

000007

TEST1:

177336

001444

001460

000005

001466
01470

100406

=2 OVONY YO N

b = ed =D b b e

b =D -—

—-—

W= OO0 N~~~

001462

AN md =2 NN =

ek =Dk —d =B
d e
d
b
—

b
b e

12-MAR-81

MACY11 30A(1052)

001052

ERR6:

RESET

TST
BPL

alLPS
TEST1A

MOV

#6,

JSR
BR

25.STAER
TESTT

$ERROR
N=N+1

;CLEAR THE WORLD
;1S ERROR FLAG CLEAR
JERROR IS CLEAR 0K

;SET UP ERROR COUNT 6

ERCOUNT

;REPORT ERROR SET
;LOOP ON ERROR

;IS READY SET (NO ERRORS EXIST)

N ~AARNININININ
A A~APONININIPNINININININ) ~ AN

b cd

12-MAR-81 10:43

001444

—

-—

—d i cd D d —d d

D —_

CZLXAA.SRC

(DECSPEC~-11-BDFAD~A-D)

1223

105777

177312

001470

012737

000007

001476

004537

011142

001502

000010

000766

TEST1A:

RESET

TST8B

aLPS

$ERROR

8Ml

001052

ERR7:

JREADY SET! PRINTER OK

TEST18B

MOV ]

JSR
BR

%5,STAER
TEST1A

N=N+

;CLEAR THE WORLD
;1S READY SET

;SET UP ERROR COUNT 7

ERCOUNT

;REPORT READY NOT SET
;LOOP ON ERROR

;DOES LOADING THE BUFFER RESET READY
001504

005037

001522
001524

100006

001510
001516

012777
105777

001046

000015
177256

177264

001052

001526

012737

000010

001532
001536
001540
001544

004537
000762
005777
100006

011162

001546

012737

000011

001554

004537

011142

001562
001566
001570
001574

105777
100411
005237
001361

177212

001546

001560

001576
001604
001610

000011

000012

000751

012737

000013
004537
000735

TEST1B: (LR

MOV

T1S1B

BPL

ERR10:
LP1:

177234

001052

ERR11:
LP2:

001046

0060012
011142

001052

ERR1Z:

$ERROR

sCLEAR COUNTER

WORK

;LOAD CARRIAGE RETURN INTO BUFFER

#15,aLPB

;1S READY CLEAR

alLPS

;JREADY IO CLEAR OK!

LP1
\N

#0,

JSR
BR
TST
BPL

X5,STAER
TEST18B
alLPS
LP2

MOV :

JSR
B8R
TST8B
BM]
INC
BNE

X5,STAER
TEST1B
alLP$S
TESTIC
WORK
LP1

nov :

82,

JSR
BR

X5,STAER
TEST18B

=N+

$ERROR

N=N+

$ERROR
=N+

;SET UP ERROR COUNT 10

ERCOUNT

nox :

;REPORT READY STILL SET
;LOOP ON ERROR
;1S THERE AN ERROR
:NO ERROR CONTINUE

;SET UP ERROR COUNT 17

ERCOUNT

;REPORT ERROR OCCURRED
;LOOP ON ERROR
;1S THE PRINTER STILL BUSY
;NO! GO TO NEXT TEST
JYES! GO CHECK FLAGS
JPRINTER STILL BUSY WAIT

;SET UP ERROR COUNT 12

ERCOUNT

;ERROR REPORT TIME OUT
;LOOP ON ERROR

;CHECK INTERRUPT LEVEL OF PRINTER
;THE PRINTER SHOULD BE AT LEVEL &

SEQ 0025

YM=-Z2049A-AA
CZLXAA.SRC

(DECSPEC~11~-BDFAD-A~D)
12-MAR-81 10:43

;TEST

b md ek =D
—

—d —b
—
—_—

A~ PNIN AAPIPNIN
A A~POPNINININ) A~~~ no
N
Ny N
Ty
NN Y A
ot
ad O
OO N
A NE NN v
2

1237
1238
1239
40

1252
1253
1254

001612
001620
001626
001632

001634
001634

001642
001646
001650
001654
001656
001656
001664
001670
001672
C01672

001700
001704
001704
001706
001712
001714
001722
001724

012777
012777
005777

100006

002076
000340
177146

012737

000013

004537

011142

105777

177124

177210
177204

001052

000014

012737

0C0015

012746

000340

010746
062716

000006

052777

000100

177056

042777

000100

177046

000016

001052

N :24

THE PRINTER WILL NOT

PAGE

18-1

SEQ 0026

INTERRUPT AT LEVEL 7

#INT1C,aPTRVEC
#340,3PTRPSW

JSET UP INT VECTOR
sSET PRIORITY

BPL

LP3

;NO ERROR CONTINUE

MOV

”3,

JSR

X5,STAER

;REPORT ERROR SET

TSTB
BM]

alLPS
LP3X

;TST FOR READY
JREADY SET OK

ERR14:

MOV

LP3X:
ERR1S5:

JSR
BR
$ERROR
MOV

JREPORT READY NOT SET
Z5,STAER
TESTIC
;LOOP ON ERROR
\N
”15,
ERCOUNT
;SET UP ERROR COUNT 15

TST

ERR13:

011142
001052

THAT

TEST1C: MOV
MOV

LP3:

012737
000015
004537
000750

12-MAR-81

MACY11 30A(1052)

$ERROR

N=N+1

$ERROR

N=N+1

N=N+1
Mov

alLPS

;SET UP ERROR COUNT 13
;LOOP ON ERROR

;SET UP ERROR COUNT 14

ERCOUNT

#340,-(SP)

$SETPSW
PC,-(SP;
MOV
#6, (SP)
ADD
RTI

;LOCKUP PROCESSOR, NEW PRIORITY

;MOVE PRESENT LOCATION TO STACK
sSET UP FOR NEXT INSTRUCTION

81S

#100,aLPS

8IC

#100,aLPS

NOP

FOR ERROR

ERCOUNT

TEST1C
\N

sTEST

JLOAD PSW

;SET PRINTER INTO ENABLE

JWAIT

;CLEAR PRINTER INT. ENABLE

:TEST THAT THE PRINTER WILL NOT INTERRUPT AT LEVEL 6
1258
(1)

001732
001732

1259
1260
(1)
(1)
(1)
1261
1262
1263

001740
001744
001744
001746
001752
001754
001762
001764

012757
00dV17
012746

010746
062716
000602
052777
000240
042777

$SERROR

#6,

000300

MOV

#300,-(SP)

;SET PROCESSOR PRIORITY LEVEL 6

000006

MOV
ADD

PC,-(SP)
#6, (SP)

2MOVE PRESENT LOCATION TO STACK
JSET UP FOR NEXT INSTRUCTION

000100

177016

8IS

#100,aLPS

000100

17700¢

BIC

#100,aLPS

001052

ERR16:

N=N+1
$SETPSW

RT]

NOP

sTEST THAT THE PRINTER WILL NOT
;PROCESSOR LEVEL 5

012737
000020
012746

010746
062716
000002
052777

;SET UP ERROR COUNT 16

ERCOUNT

MOV

000016

000017

ERR17:

$ERROR

MOV

"7,

000240

MOV

#240,~(SP)

000006

ADD

#6,(SP)

Bl3

#100,8LPS

000100

001052

N=N+1

ERCOUNT

$SETPSW
PC,=(SP)
MOV

176756

RT]

;LOAD PSW
;SET PRINTER INT ENABLE

JWALT

;CLEAR PRINTER INT. ENABLE
INT.

;SET UP ERROR COUNT 17

JSET UP PROCESSOR TO LEVEL S
JMOVE PRESENT LOCATION TO STA(K
JSET UP FOR NEXT

INSTRUCTION

JLOAD PSW
JSET PRINTER INT ENABLE

—

YM-Z049A~AA

(DECSPEC-11-BDFAD=A~D)

CZUXAA,SRC

12-MAR-81

10:43

1272
1273

000240
042777

(00100

002022
002026

MACY11 30A(1052)
NOP

BIC

176746
;JTEST

THAT

12-MAR-81

3
11:26

#100,aLPS
THE PRINTER WILL NOT

PAGE 18-2

JWALT

;CLEAR INT EwABLE PRINTER OK
INTERRUPT

;WHEN THE PROCESSOR IS AT LEVEL 4

1296

—

et
e 2 a2 == OO0
WS
N) = O 000N

WAAWWWAAAWWW§'\

)
d
—t
b

1297
1298
1299
1300
(1)
(1)
1301
1302
1303
1304
1305
(1)

002032
002032

002040

002044
002044
002046
002052
002054
002062

002064
002072

012737
000021

012746
010746
062716
000002
052777
000240

042777
000137

#20,

000200

MOV

#200,-(SP)

;SET PROCESSOR TO LEVEL 4

000006

MOV
ADD

PC,-(SP)
#6, (SP)

;MOVE PRESENT LOCATION TO STACK
;SET UP FOR NEXT INSTRUCTION

001052

ERR20:

$ERROR

MOV :

000020

N=N+

$SETPSW

RTI

ERCOUNT

000100

176716

BIS

#100,aLPS

000100
002110

176706

BIC
JMP

#100,aLPS
TEST1D

NOP

;SET UP ERROR COUNT 20

;LOAD PSW

;SET PRINTER INT. ENABLE

SWAIT

;CLEAR PRINTER INT ENABLE
JPRINTER OK CONTINUE

INTI1C:

ron

022626
004537
000137

—

002076
002100
002104

[0
)

:INTERRUPT HANDLE FOR TEST1C
JRESTORE STACK AND REPORT ERROR
[ele)
O—

—
D ek e nd b e
=D b — ——d d D
— b
A~
AN NN NN POPNIPON) A~~~
— — — Q0 ~ —
O O OO O 00 00 00 00 0o 00000000
=
v
OO0~
SN =200V BWN

1278
(1)

——

—

CMP
JSR
JMP

(6)+,(6)+
%5,STAER
TESTIC

JRESTORE STA(CK
;REPORT ERROR
JRE-ENTER TESTIC

;TEST THE ABILITY OF THE PRINTER TO INTERRUPT
;AT PRIORITY LEVEL 4

002110

012777

002230

176712

TEST1D: MOV
MOV
TST
BPL

#INT1D,@PTRVEC
#340,aPTRPSW
aLPS
LPé

000021

001052

ERR21:

MOV 1

#21,

002140

012737
000022
004537

JSR

%5,STAER

JREPORT PRINTER ERROR

105777
100406

176626

LP&:

TSTB
8M]

aLPS
LPS

;1S READY SET
;YES = PRINTER READY

000022

ERR22:

MOV !

n22.

JSR

X5.,STAER

002116
002124
002130
002132
002132
002144

002146
002152
002154
002154

002162
002166
002170
002174
002174
002176
002202

002204

002212
002214

012777
005777
100006

000761

012737
000023

004537
000750
012746

010746
062716
000002
052777
000240

000340
176650

011142

001052

011142

LPS:

000140
000006

000100

002214

012737

000023

002222

004537

011142

000024

176706

001052

NN+,

$ERROR

N=N+

ERR23:

ERCOUNT

TEST1D
\N

:SET UP ERROR COUNT 21
;LOOP ON ERROR

ERCOUNT

:SET UP ERROR COUNT 22

:REPORT READY NOT SET

MOV

TESTID

#140,-(SP)

:LOOP ON ERROR

MOV
ADD

PC,-(SP)
#6,(SP)

:MOVE PRESENT LOCATION TO STACK
:SET UP FOR NEXT INSTRUCTION

BIS

#100,aLPS

;SET PRINTER INTERRUPT ENABLE

$SETPSW

RT]

176566
,

$ERROR

;SET UP INTERRUPT VECTOR
;LOCK UP PRIORITIES
;1S THERE A PRINTER ERROR
JNO! CONTINUE

NOP
$ERROR

MOV ;

#es,

JSR

%5,STAER

N=N+

ERCOUNT

:SET PRIORITY TO LEVEL 3

;LOAD PSW

JWAIT

;SET UP ERROR COUNT 23
JREPORT ERROR

SEQ 0027

r—

D e e ed ed
D

N
o A%l
o Yols JRNTo NV} P AN

D ) =D b

AN
AAAA2OV
S RNOINIESWN—
RRRRRRRR

OV & NN~

'U'\)l\)’\)’\)—l—a—if\)'\ )_J_) —d e

—

)
ek
i
d
—
D
D
d
d
—

v SO0 00~ »H

NN WIWNIN A~~~ NNWWIWWN NN W

YM=Z045A-AA
CZLXAA.SR(

) b d d e

1365
1366

(DECSPEC-11-BDFAD-A-D)
12-MAR-81 10:43

€02226

MACY11 30A(1052)
BR

000730

12-MAR-81

11 :24

TESTID

PAGE 18-3

SEQ 0028

;LOOP ON ERROR

; INTERRUPT HANDLER FOR TEST1D
002230
002232
002240
002244
002244
002246
002252
00,254
002262

022626
042777
012746
010746
062716
000002
012777
012777

000100
000000

176540

INTID:

MOV

$SETPSW

MOV
ADD
RTI
MOV
MOV

000006

012706
001000

C(CMP

BIC

176546 *
176542

(6)+,(6)+

#100,aLPS
#0,-(SP)

PC,=-(SP)

#6, (SP)

#12706,3dPTRVEC
#1000,aPTRPSW

JRESET STACK

;CLEAR INT.

ENABLE FOR PRINTER

;CLEAR PROCESSOR STATUS

;MOVE PRESENT LOCATION TO STA(K

;SET UP FOR NEXT INSTRUCTION
;LOAD PSW
;RESET INSTRUCTION AT 200

JRESET INSTRUCTION AT 202

; GET INITIAL SWR VALUE
; IF THERE IS NO H/W SWR
02270
002276
002300
002304
002310
002314
002320
002324
002330
002336
002344
002350
062352
002356
002362
002366
002374
202376
002400
002406
002410

022737
001044
005037
005037
005037
005037
013746
013746
012737
012737

005237
104400

005037
012637
012637
012777
000001
000¢40
022737
001772
000240

0060176

001070
001066
001072
001074
000034
000036
011172
000300
001072

001004

(MP
BNE
CLR
CLR
CLR
(LR

#176,SWR
SKIP
SIGNAL
DIGITS
SET
CHAR

INC

#300,36
SET

MOV
MOV
MOV
MOV

000034
000036

176424

000001

001070

WwT:

SKIP:

JINITIALIZE INTERRUPT ROUTINE

;SAVE VECTOR
:SAVE VECTOR

34,~-(SP)
36,-(SP)
#TKINT,
34

;SET UP NEW VECTOR
;SET UP NEW VECTOR
;SET HEADER FLAG

JENTER INTERRUPT ROUTINE

TRAP

MOV
MOV
MoV

(SP)+,36
(SP)+,34

JRESTORE VECTOR

#1,SIGNAL
wT

:SWR VALUE ENTERED ?
JNO- WAIT

CLR

001072
000036
000034
000100

;S/W SWR ?
;NO-~ CONTINUE

WAIT
NOP
CMP

BEQ
NOP

;CLEAR HEADER FLAG

SET

JRESTORE VECTOR

;ENABLE KEYBOARD INTERRUPT

#100,aTKS

;1 MINUTE PRINT SPEED CHECK

JIF A KW11-L OR KW11-P ARE NOT AVAILABLE.
;FOR MANUAL TIMING OF THE PRINTER.
002412
002420
002426
002430
002434
002436
002442
002446
002450

012737
012737
000261
105777
103404
005037
000137
000261
105777

000002
000006

000006
000004

CLCKAV: MOV
MOV

176372
000004
002626
176350

1$:

SEC
TSTB
8(CS
CLR
JMP
SEC
TSTB

THE SR BITO IS USED

ART] ,aN6
#6, 4%

;SET TRAP TO RETURN

aLKS
1%
s

;KW11-L AVAILABLE?

;NO,

aPLKS

;KW11-P AVAJLABLE?

KW11L

BPRANCH

;RESET TRAP VECTOR TQ HALT

JUSE KW11L FOR TIMING

YM-Z045A~AA
CZLXAA .SRC
1367
1368
1369
1370
Q)

)
(1)
1371
1372
1373

(DECSPEC=-11-BDFAD~A-D)
12-MAR-81 10:43

002454
002456
002462
002466
002466
002474
002476
002504
002510
002514
002520
002522
002524
002532
002540
002542

103404

B(CS

005037
000137

600004
002546

022737
001003
052777
005037
004437
005037

000176

001004

000100
001042

176314

104000

011731
012737
032777
001774
000137

MACY11 30A(1052)

SWTIME:

010726
000004

000002
000001

003076
176244

1%:

CLR
JMP
$ENABLE
cMP
BNE
BIS
CLR
JSR
CLR
EMT
MESC
MOV

BIT
BEQ

JMP

002792

12-MAR-81

)

11 :24

SWTIME
A
KW11P

#176,SWR
+10

PAGE 18-4

;NO, USE SWITCH REG FOR TIMING
JRESET TRAP VECTOR TO HALT

;USE KW11-P FOR TIMING
;S/W SWR ?

JNO- CONTINUE

#100,dTKS

;ENABLE KEYBOARD INTERRUPT
;CLEAR LINE COUNT

D4
+0

JRESET TRAP VECTOR TO HALT

L INCNT
X4, TYPINT

#2,DIA

#B1T0,aSWR
1%

STARO

s TYPE MESSAGE

JPRINT SPEED CHECK USING MANUAL TIMING
;SET DUMMY ADDRESS
;START?
;JWAIT FOR START

;START PRINTING

;START FOR KW11-P.....
002546
002546
002554
002556
002564
002570
002574
002600
002606
002614
002622

022737
001003
052777
005037
004437
012706
013777
013737
012777
000137

000176

001004

000100
001042
010726
001000
003072
001024
000105
002702

176234

KW11P:

SENABLE

#176,SWR
.+ 10
#100,aTKS

MoV
MOV
MOV
MoV

#1000,%6
MINCNT ,aCSBR
PLKS,DIA

;STORE PLKS ADDRESS

STARO

;START PRINTING

CLR
JSR

176214

003076
176202

;S/W SWR ?
;NO- CONTINUE

CMP
BNE
BIS

JMP

LINCNT
X4, TYPINT

#105,aPLKS

;ENABLE KEYBOARD INTERRUPT
;CLEAR LINE COUNT
JRESET STACK
:SET CLOCK COUNT
;START CLOCK

;START FOR KW11-L.....

002626
002626
002634
002636
002644
002650
002654
002660
002666
002674

022737
001003
052777
005037
004437
012706
013737
013737
012777

000176

001004

000100
001042
010726
001000
003072
001026
000100

176154

KWl1L:

#176,SWR
.+ 10

#100,aTKS

JSR

003074
003076
176124

MOV
MOV
Mov
MOV

L INCNT
X4, TYPINT
#1000,%6
MINCNT ,CNTR
LKS,DIA
#100,3LKS

:S/W SWR ?
sNG- CONT INUE

;ENABLE KEYBOARD INTERRUPT
JCLEAR LINE COUNT
JRESET STACK
sSET CLOCK COUNT
;STORE LKS ADDRESS
JENABLE CLOCK INTERRUPT

;JPRINTING ROUTINE.....
002702
002702
002710
002716
002724
002732
002740
002746
002754

000200
000140
001060
000204
003270
000021
176102
001042

001060
001062
001054
001036
007054
001044
001040
001040

STARO:
STARCA: MOV

MOV
STAROC: MOV
STAROB: MOV
MOV
MOV
STARA:
MOV
ADD

#200,LEGCHR
#140,NUMCHR

LEGCHR,STRCHR

#132.,CHRCNT
#PATTB,STRCHR
#17.,CYCCNT

@STRCHR, CHRGEN
LINCNT, CHRGEN

sLEGAL CHECK
s #CHARS

;SET FIRST CHAR IF LP14
;SET CHAR COUNT
JINITIALIZE TABLE POINTER
;SET GROUP COUNT
;GET CHAR FROM TABLE
;ADD LINE COUNT

SEQ 0029

WN = O V00~~~ NN
W= OV~

D ad
d
d
ad reed e
d e
—d cnd
b
d
d
d
—

PP 2P oV 2V 2 SR oF o 2 22 2 3 3L IR IR
WNWWNWWIANRNIN
= = VNN NN NONIN) =2 —b =

YM=-Z049A-AA
(ZLXAA .SRC

(DECSPEC-11-BDFAD=-A~D)
12~-MAR-81 10:43

002762
002770
002772
003000
003002
003010
003014
003016
003022
003024
003032

003072
003074
003076

023737
003004
163737

001060

001040

001062

001040

013777
005337

001040
001036

175772

005337
001367
062737
000137
005237
012777

001044

105777
100375
032777
001411
000137

175724

000770

001410

000002
002740
001042
000012

000001

MACY11 30A(1052)
1%:

STAR1:

001C54
175732

MOV
DEC
BEQ
DEC
BNE
ADD

JMP

STARED: INC

002724

MINCNT:
CNTR:
DIA:

s CONT INUE

aLrS

;LOAD BUFFER
;DECREMENT CHAR COUNT
;BRANCH IF DONE LINE
;DECREMENT CYCCLE COUNT
;CONTINUE IF NOT DONE GROUP
JADD 2 TO TABLE POINTER
s INCREMENT LINE COUNT

LINCNT

1ST8

SEQ 0030

;SEND LF

;TEST READY
;WAIT FOR READY
;STOP PRINT?
;YES, BRANCH
; CONTINUE

.4
#B1T0,aSWR
CONVRT
STAROB

’

7020
0
P

IN MINCNT FOR S50 HZ. LINE FREQUENCY .!.

;LINE CLOCK SERVICE ROUTINE FOR KW11-L

005337
001607
000002

PAGE 18-5

STARA

CHRGEN,aLP8B
CHRCNT
STARED
CYCCNT
STAR1
#2,STRCHR

:NOTE == PLACE 5670 (8)

003100
003104
003106

11:24

;LEGAL CHAR?
;YES, BRANCH
;NO, MAKE LEGAL
sRECHECK CHAR

#12.3LPB

BPL
BIT
BEQ
JMP

LEGCHR,CHRGEN
.
STAR1
NUMCHR,CHRGEN
1$

MOV

SWAIT

175720

007020
000000
000002

(MP
BGT
SuB
BR

12-MAR-81

LKSRV:

003074

DEC
BEQ
RTI

;DECREMENT COUNTER
JEXIT IF 1 MINUTE

CNTR
CONVRT

JRETURN

:ROUNTINE TC PRINT NUMBER OF LINES PRINTED IN 1 MINUTE
003110

042777
005037
012703
022737
003006

162737

003222

005237
000766
062737
113723
005037
022737
003006
162737
005237
000766
062737
113723

000100
011056
012775
000144

177760

001042

CONVRT: BIC

#100.aD]1A

:DISABLE CLOCK INTERRUPT IF CLOCK AVAILABLE

MOV

#MES12,%3

-SET MESSAGE POINTER

*CONTINUE CONVERSION

CLR

1%:

000144
011056

001042

000060
011056
011056
000012

011056

2$:

001042

000012
011056

001042

000060
011056

011056

TYPDAT

.CLEAR DIGIT COUNT

CMP
BGT
SUB
INC
BR
ADD
MOVB
CLR
CMP
BGT
SUB
INC

#100..LINCNT
2$
.
. LINCNT
#100
TYPDAT
1%
#60, TYPDAT
TYPDAT, (%3)+
TYPDAT
#10. ,LINCNT
4$
#10. ,LINCNT
TYPDAT

ADD
MOVB

#60, TYPDAT
TYPDAT, (%3)+

B8R

-GREATER THAN 100?
'NO, PRJNT HUNDRED'S DIGIT
:YES, SUBTRACT 100
* INCREMENT HUNDRED'S DIGIT
“CONTINUE CONVERSION
*MAKE ASCII
*STORE DIGIT
*CLEAR DIGIT COUNTER
"GREATER THEN 10?
'NO, PRINT DIGIT
SYES, SUBTRACT 10
INCREMENT TEN'S DIGIT
"MAKE ASCII
;STORE DIGIT

YM-Z049A-AA
CZLXAA .SRC
1468
1469

1470
1471

1472
1473
14764
1475
1476
1477
1478
1479

1480
1481
16482
1483
1484
1485
1486
1487
1488

003226
003234
003242
003246
003250
003252
003260
003264

003270
003272
003274
003276
003300

(DECSPEC-11-BDFAD~A~D)
12-MAR-81 10:43
013737
062737
113723
104000

012736
012737
004437
000137

000040

000117
000076
000055
000134
000113
000072
000051

001042
G00060
011056

011056
011056

012734

010724

010706
003310

MACYT1

30A(1052)
MOV
ADD

MOvB

EMT
MES11
MOV

JSR
JMP

PATTR:

12-MAR-81

11 :24

LINCNT, TYPDAT

#60,TYPDAT

TéPDAT,(13)+

#MEST11A,PRTMSG
X4 ,RINT
TEST?Z

PAGE

18-6

;GET ONE'S DIGIT

sMAKE ASCII

;STORE DIGIT

: TYPE MESSAGE
;TYPE PRINT SPEED

;SET PRINTER MESSAGE ADDRESS

JPRINT PRINTER SPEED ON LINE PRINTER

JNEXT

TEST

SEQ 0031

YM-Z049A-AA

CILXAA.SRC

(DECSPEC-11-BDFAD=A-D)

12-MAR=-B1 10:43

1471

1494

(1)
(1)

(1)

1495

003310

03310
003316

022737
201003

000176

001004

003320 052777 000100

003326

004437

010726

175472

003336

000406

1496
1498

003340

(1)

003346

1501

003354

(1)

004537

003352

003356

000025

004537

011142

013737

014062

000000

004437

010656

1502 003366 012737
1503 003374 012737

1772740
177574

(1)
(1)

1506
1505
1506

1507

003362
003402
003410
003414

003416

000003

013737
005777
100006

003456
175364

001052

013250

001054

001052

1508
1509
1510
1511
1512
1513

003424
003430
003432
003436
003444
003452

004537
000000
000177
013737
012737
000137

1515
1516

003456
003460

003436
003462

1518
1519
1520
1521
1502
1523

003462
003470
003476
003504
003210
003512

013737
012737
013777
005237
001337
012777

003456
000052
001050
001036

001054
001050
175276

000012

003520
003524

105777
100375

175254

(1)
(1)

1525
1526
1527
1528

1529

003520

003526
003534
003540
003542

003550

012737
005237
001356
032777

(01257

ERRZ4:

#100,aTKS

JSR

%5.PRTINT

$ERROR

%4.TYPINT

TST2AX

MOV

#24,

JSR

X5,STAER

N=N+1

TST2AX: $PRINT

MOV

:SET UP ERROR COUNT 24
*HALT ON ERROR

MOV
MOV

#-32.,CYCCNT
A#-132. CHRCNT

SCHRSW,STRCHR
alLPS

- LP2B

ERR25:

MOV

425,
%5,STAER

LP2B:
T2A:

JSR
HAL T
JMP
MOV
MOV
M

N=N+1

;BRANCH IF 0K

;REPORT PRINTER NOT READY

JSR

SERROR

: INITIALIZE PRINTER

;SET TEST NUMBER FOR MESSAGE

TNG2,MES1S

MOV
TST
BPL

T3A:

ENABLE KEYBOARD INTERRUPT

ERCOUNT

%4 PRNNT

M=M+1

:S/W SWR ?
NO- CONT INUE

#176,SWR
.+10

BIS

JSR

001044
001036

012737 000025

1524

(MP
BNE

HALT

003416

000026

SENABLE

B8R

(1)

TEST2:

010602

003340 012737 000024

1499

1500

PAGE 19

WITH ALTERNATING ONES AND ZEROS

003332

1497

11:24

TESTS INTERFACE AND PRINTER DATA PATHS

1492
'A

STEST 2

1690

12-MAR-81

MACY11 30A(1052)

*PRINT TEST NUMBER

:SET UP LINE COUNT FOR 32 LINES
:SET CHAR COUNT TO 132
;SET CHAR. SWITCH TO U
;TEST FOR ERROR
*NO ERROR CONTINUE

:SET UP ERROR COUNT 25

ERCOUNT

@STRCHR
RCHRSW,STRCHR
#125.SAVE
TSA

;REPORT ERROR SET
*HALT ON ERROR
*LOAD CHAR
:RESET CHAR. SWITCH
STORE CHAR
*LOAD CHAR

175262

MOV
MOV
MOV
INC
BNE
MOV

SCHRSW,STRCHR
#S52,SAVE
SAVE,aLPB
CHRCNT
T3A
#12.aLPB

;SET CHAR. SWITCH TO U
*STORE CHAR
*LOAD BUFFER
*INC CHARACTER COUNT
- CONTINUE
“SEND LF

177574
001044

001036

1STB
BPL
MOV

aLPS
=4

;TEST READY
‘WAIT FOR READY

010000

175234

TEST2

:LOOP

011142
175416
003460
000125
003476

001054
001050

SCHRSW: T2A
RCHRSW: T1A

T1A:
TSA:

WAT

INC
BNE
BIT
BNE

#-132.,CHRCNT
CYCONT
TSA
#BIT12,aSWR

:RESET CHAR COUNT
INC_CYCLE COUNT
*CONTINUE IF NOT DONE
:L00P ON TEST?

SEQ 0032

YM-Z049A-AA
CZLXAA.SRC

(DECSPEC-11-BDFAD-A-D)
12-MAR-81 10:43

MACY11 30A(1052)

12-MAR-81

11:24

PAGE 20

SEQ 0033

:TEST 3

N
NON W
v

STy

NN =2 O 000 v

—

O VN

—d md

VAWV~ ~ AN NN NN

b el od —d

—

A A A NN A~ A~

e— N

:TEST CHARACTER COMPARATOR WITH ALTERNATE LINFS OF
;ALL CHARACTERS AND ILLEGAL CHARA(CTERS

1547

003552
003552
003560
003562
003570
003574
003574
003602
003606
003614
003620
003626
003634
003640
003642
003642
003650
003654
003656

003664

003670

003672

003676
003704

003732
003740
003740
003744

003746
003752
003756
003760
003760

\I\IN\J\IO\g
S NNL=00

VIV IV LV I VA

d —dad D ) —d b b —d —d

——

- —d —d -

Yo No XX to XV, 1V
g\hgfi’\\h (oWM
=~~~ OO0

N A~ AN

003706

003714
003716
003720
003726
003730

003766
003772
003774
004002
004006
004014
004016
004024
004026
0V4034

TEST3:

SENABLE
#176,SWR
CMP
.+10
BNE
#100,8TKS
BIS
X4, TYPINT
JSR
\M
$PRINT

022737
001003
052777
004437

000176

001004

000100
(10726

175250

013737
004437

014264
010656

013250

177765
003746
177574
000040
175140

001044

012737
000027
004537
000000
013777
005237
001420
005237
032777
001405
022737
001744
000746
022737
001737
000741
012777

000026

00105¢

105777
100375

175034

aLPS

005037
005777

061040
175022

CHRGEN

012737
000030
004537
000000
013777
005237
022737
001772
022737
001766
022737
001762

000027

000004
012737
000137
012737
012737
005777
100006

100006

001036
0C1040

MOV
JSR

M=M+1

1280:
T2B0A:
T2R1:

ERR26:

011142

001040
001036

001040

175100

000200

001040

000140

001040

000012

175042

T2R2B:

ERR27:

MOV

26,

$ERROR

N-N+1

LP2H

#-132.,CHRCNT
#40,CHRGEN
aLPS

LP2E
\N

ERCOUNT

X5.STAER

12828
#200, CHRGEN
T2B0A
1281
#1640, CHRGEN
T2B0A
1281
#12,3LPB

aLPS
LDCH
\N
827,

175000

001040

000006

001040

000010

001040

LDCH:
T12B4:

;ENABLE KEYBOARD INTERRUPT
;SET TEST NUMBER FOR MESSAGE

JPRINT

TEST NUMBER

JSET 21 LINES

:SEND ILLEGAL CHARS FIRST TO GIVE BLANK LINE
;SET CHAR COUNT FOR 132
;SET FIRST CHAR.

;DOES THE PRINTER HAVE AN ERROR
JBRANCH IF NO ERROR

;SET UP ERROR C(GUNT 26
;REPORT ERROR
JHALT ON ERROR

JPRINT CHARACTER
JINC. CHAR. COUNT
;BRANCH IF LINE IS FINISHED
JNEXT CHAR
;CHECK CHAR SET

;BRANCH IF 64 (HARS
;LEGAL CHAR?
;MAKE SPACE IF ILLEGAL
;CONTINUE IF LEGAL CHAR
;LEGAL CHAR?
sMAKE SPACE IF ILLEGAL
;CONTINUE [F LEGAL (HAR
;ISSUE LINE FEED
;WAIT FOR READY
JFIRST ILLEGAL C(HAR
;TEST FOR ERROR

;BRANCH IF NO ERROR

ERCOUNT

CHRGEN,aLPB

CHRGEN
#5,CHRGEN
T2B4

#6, CHRGEN
1284
#10,CHRGEN

T2R4

;NO- CONTINUE

JTEST READY

X5,STAER

011142

001040
001040
000005

#-13,CYCCNT

#BIT13,aSWR

LP2H:
T12B3:

001052

MOV
JMP
MOV
MOV
TST
BPL

CHRGEN,aLPB
CHRCNT
1282
CHRGEN

175116

020000

TNO3,MEST5

X4 ,PRNNT

:S/W SWR ?

;SET UP ERROR (OUNT 27
:REPORT ERROR SET

:HALT ON ERROR

; TRANSM]T CHARACTER

JNEXT (HAR

,TEST FOR PLOT MODE

JSKIP IF TRUE

:TEST FOR 8 LP!
:SKiP [F TRUE
sJTEST FOR ELONGATED (HAR
;SKIP [F TRUE

YM-Z049A~-AA

CZUXAA.SRC
1575
1576
1577
1578
1579
1580
(1)

(1)

1581
1582
1583

1584
1585

1586

004036
004044
004046
004054

004056
004064
006064

004070

004072
004076
004100

004106
004110
004114

(DECSPEC~11~-BDF AD=A-D)
12-MAR-81 10:43
022737
001756
022737
002747
012777

C00012

001040

000014

001040

000012

174716

105777
100375

174710

005237
001250
032777
001402
000137

MACY11 30A(1052)

T2RS:

003552

rov

SWAlT

TST8
BPL

001044

010000

(MP
BEQ
CMP
BLT

174676
1%:

INC
BNE
BIT
BEQ
JMP

12-MAR-81
#12,CHRGEN

T2R4

#14 ,CHRGEN

LDCH
#12,3LPB

aLPS
-4

CYCCNT

1 :24

PAGE 20-~1

JTEST FOR LIME

;SKIP IF LF

SEQ 0034
FEED

JTEST FOR LEGAL CHARA(TER
sCONTINUE IF STILL ILLEGAL (HAR.

;ISSUE LINE FEED
;JTEST READY
JWAIT FOR READY

; INCREMENT L INE COUNT

#B1T12,aSWR

JCONTINUE IF NOT DONE
;CHECK TO LOOP ON TEST

TEST3

;LOOP

1230
1%

;SKIP

YM-Z049A-AA
CZLXAA.SRC

(DECSPEC-11-BDFAD~A=D)
12-MAR-81 10:43

MACY11 30A(1052)

12-MAR-81

3
11: 24

PAGE 21

SEQ 0035

;TEST 4

JUNDERL INE TEST

OO = = =2 0O \O —

KERTTTRN

VNN
A~ A~~~
N~

004114
004114

004122
004124
004132
004136
004136

004144

004150
004156
004164
004172
004200
004206
004214
004220
004222
004222
004230
004234
004236
004244

004250

i
e
d e
)

N — e}

b
d
—t e d

) e

ad e

e
—

OORA~NOONO

000 NN £ NNy

1611

004252
004256
004264
004266
004274

022737
001003
052777
004437

000176

001004

(00100
010726

174666

013737
004437
000005
012737
012737
012737

014066
010656

013250

000200
000140
000040
000190

001060
00106°
001054
001042
001036
001040

012737
012737
013737
005777
100006

177574
001054
174560

012737
000031
004537
000000
013777
005237
001412
005237
023737
001353
163737
000747
012777

000030

105777
100375
012737
012777
005777

174470

100006

001052

ULPRT:

MOV

JSR

ULOOA:
uL00:
uLO:
uLt:

001040
001060
001062
000015

s
174446

012737
000032
004537
000000
005237
001361
012777

000031

105777
100375
005337
002404
012737
000674

174536

uL?:

JSR
HALT
MOV

174454

001052

ULG:

INC
BEG

#200,LEGCHR
#1460 ,NUMCHR
#40,STRCHR
#64.
,L INCNT

#-132.,CHRCNT
STRCHR, CHRGEN
aLPS

uL?

\N
#30,

;ENABLE KEYBOARD INTERRUPT

;SET TEST NUMBER FOR MESSAGE
;PRINT TEST NUMBER

;LEGAL CHECK

; #CHARS

:SET UP FIRST LINE
;SET LINE COUNT FOR 1 PAGE
;SET CHAR COUNT
:STORE START (HAR
:TEST FOR ERROR
:BRANCH IF NO ERROR

;SET UP ERROR COUNT 30
:REPORT ERROR SET

X5,STAER
CHRGEN,aLP8
CHRCNT

UL4

;HALT ON ERROR
:LOAD BUFFER

: INCREMENT CHAR COUNT
:BRANCH IF DONE LINE

CHRGEN

JNEXT CHAR

HR
, CHRGEN
NUMC
ULl

JMAKE LEGAL

#15,3LPB

uL?7:
uL8:

ERR31:

#31,

UL9:

NG~ CONTINUE

ERCOUNT

aLPS
.~4
#-132. ,CHRCNT
#137,3LPB
aLPS

011142
001036

N=N+1

;S/W SWR ?

TNJ4 ,MES15
X4 ,PRNNT

LEGCHR, CHRGEN
uL1

001040

001036

MOV
MOV
MOV
MOV
MOV
MOV

ERR30:

001040

174476

M=M+1

TST
BPL
$ERROR
MOV

011142
001040
001036

$ENABLE
#176,SWR
(MP
.+10
BNE
#100,aTKS
BIS
X4, TYPINT
JSR
\M
$PRINT

uLs9
\N

;LEGAL CHAR?
:BRANCH AND CONTINUE
: CONT INUE
;SEND CR

;TEST READY
;WAIT FOR READY

JRESET COUNT
;SEND UNDERL INE (UDE
;READY?
;BR=NO ERROR

;SET UP ERROR COUNT 31

ERCOUNT

R5,STAER

;REPORT ERROR SET

CHRCNT

;COUNT A CHARACTER

uL?

;BR=NOT DONE

174410

aLPS

;TEST READY

001042

L INCNT
uLé

;DECREMENT LINE COUNT
JEXIT TEST IF DONE

000012

000040

174416

#12.,aLPB
-4

001054

#40,STRCHR

uLo

IF LEGAL CHAR

;SEND LF

;WAIT FOR READY

;START (HAR A LEGAL (HAR?

;CONTINUE IF LEGAL START (HAR

YM=-2049A-AA

CZLXAA,SRC
1630

1631

1632
1633
1634
1635

004410

004416

(DECSPEC-11-BDFAD=-A=D)

12-MAR-81 10:43
032777

001236

010000

174366

MACY11 30A(1052)
UL6:

BIT

BNE

12-MAR-81
#MIT12,3SWR
ULPRT

17:24

PAGE 21-1

;LOOP ON TEST?

;L OOP

SEQ 0036

—

—_

YM-Z049A~AA

CZLXAA.SRC

(DECSPEC-11-BDFAD-A-D)

12-MAR-81 10:43

1637

12-MAR-81

MACY11 30A(1052)

1638
1639

;TEST 5
;LINE EDITING TEST

}22%

:HAVE BEEN PRINTED,

1644

004420

(1)

004430

1645
1646

(1)

1647

1648

004420
004426

1652
1653
1654
1655
1656
1657

1658

013737 014070 013250

MOV

000006

M=M+1

010726

004437

010656

012737

177760

(04476
004504

004512
004520
004522
004530
004536
004542
004544

012737

013737
062737

012737
000406
012737
013777
005777
100006

177574

1673
1674
1675

1676

004632
004634
004642

004644

001425
032737
001707

012737

004660
006664

1680 004670

1681
1682

004674
004702

005037
005037

000137

012777
000137

CHRCNT ,STRCNT ~ ;NO.
JNO.
#133. ,STRCNT

C(HARS LEFT TO PRINT
SPACES +1

:REPORT ERROR SET

DEC
BGT
8EQ
INC
BEQ
INC
BNE

STRCNT
OVR1
OVR4
CHRCNT
OVR8
CYCCNT
OVR1

:DECREMENT SPACE COUNTER
:BRANCH IF NOT DONE SPACES
:BRANCH IF NOT FIRST E
: INCREMENT CHAR COUNT
:BRANCH IF DONE LINE
s INCREMENT CYCLE COUNT
CONTINUE SENDING E'S IF NOT DONE

aLPS
=4
CHRCNT

:TEST READY
:WAIT FOR READY
;LINE DONE?

MOV

OVREXT
#1,LINCNT
OVR
#115,CHRGEN

:EXIT IF DONE TEST
:WHICH LINE NEXT?
:BRANCH TO SEND E°'S

CLR
CLR

STRCNT
CYCCNT

;CLEAR SPACE COUNT
CLEAR CYCLE COUNT

#12,3LPB
OVR6

:SEND LF
s CONT INUE

001040

OVR3:

001036
OVRS:

001044
174170

OVR6:

001036

001042
000001

001042

000115

001040

000012
004612

N=N+1

HALT

MOV

SWAIT

TSTR
8PL
TST

BEQ
BIT
BEQ

MOV

001056
001044

004536

$ERROR

BNE
INC

1677 004652 012737 177573 00103¢
1678
1679

#40,CHRGEN
OVRZ
#4105, CHRGEN
CHRGEN,aLP8
aLPS
OVR3

MOV
ADD

;SET CHAR COUNT

%5.STAER

174162

001321
005237

sSET CYCLE COUNT FOR A PAIR OF E'S

#-132. ,CHRCNT

JSR

105777
100375
005737

004624
004626

#-2,CYCCNT

32,

000015

1671
1672

MOV

MoV

012777

004612
004616
004620

;SET LINE COUNT FOR 16 LINES

ERR32:

001056

004612

#=-16. . LINCNT

001052

005337
003361
001755
005237
001437
005237
001352

(1)
(1)
1670

MoV

OVR4:
OVR1:
OVR2:

1661 004560
1662 004564
1663 004566
1664 004570
1665 004574
1666 004576
1667 004602
1669

%4 ,PRNNT

001040
174244

1659

004604

JPRINT TEST NUMBER

JSR

000105
001040
1742356

011142

1668

OVRO:

;SET TEST NUMBER FOR MESSAGE

TNOS ,MES15

MOV
BR
MOV
MOV
TST
BPL

000040

004537

000000

OVR:

;ENABLE KEYBOARD [NTERRUPT

#100,aTKS

001056
001056

004552

004556

001036

;S/W SWR ?
sNO- CONTINUE

001036
000205

004544

000033

001042

177776 001044

(1)

1660

%4, TYPINT
\M

BIS

004450
004462

JSR
$PRINT

174362

004437

006456

#176,SWR
.+ 0

000100

052777

012737 000032

PAGE 22

THEN A FULL LINE OF M'S ARE PRINTED.

cMP
BNE

001004

004436
004442

004442

OVRPRT: SENABLE

000176

022737
001003

1649 004470 012737
1650
1651

11:24

SSENDS PAIRS OF E'S, THEN OVER PRINTS THEM WITH SPACES AND ADDS ANOTHER
“PAIR OF E'S TO THE LINE === THIS IS REPEATED UNTIL A FULL LINE OF E'S

1640
1641
(1)
(1)

174100

OVR8:

JMP

MOV
JMP

sSET UP ERROR COUNT 32

ERCOUNT

#15,aLPB

OVRO
L INCNT

#-13%5. CHRCNT
OVR2

s SEND SPACE
sBRANCH
;SEND E
;LOAD BUFFER
:TEST FOR ERROR
:BRANCH IF NO ERROR

:SEND CR

:NO, CONTINUE OVER PRINT
:YES, INCREMENT LINE COUNT
:SET UP TO SEND M'S

:SET CHAR COUNT

:PRINT LINE OF M'S

SEQ 0037

YM-Z04GA-AA

CZLXAA.SRC

1683
1684

004706
004714

(DECSPEC-11-BDFAD-A=D)

12-MAR-81 10:43

032777
0012461

010000

174070

MACY11 30A(1052)
OVREXT: BIT
BNE

12-MAR-81

#BIT12,3SWR
OVRPRT

11:24

PAGE 22-1

;LOOP ON TEST?
;LOOP

SEQ 0038

YM=-Z049A-AA
CZLXAA .SRC

(DECSPEC-11-BDFAD=-A~D)
12-MAR-B1 10:43

MACY11 30A(1052)
;TEST 6

12-MAR-81

sPRINT

IJNTROL TEST

PRTCTL:

SENABLE

11:24

PAGE 23

ULL LINE OF SAME CHARACTER THEN FULL CHAR SET
s SHOULD ONLY PRINT THE FIRST 132 CHARACTERS RECEIVED

s SENDS

004716
004716
004724
004726
004734
004740
004740
004746

004752
004760
004766
004774
005002
005006
005010
005010

VB WN
=00
NOWNES W= OVONO

N NN
=R D D DS Q

—

)

D cmd

e cd

d md

) md

d —d

b —b

NNSNNNNNNNNNNNNNNAANN ~

005016
005022
005024
005032
005036

(MP
BNE

#176,SWR
.+10

JSR
$PRINT

X4, TYPINT
\M

022737
001003
052777
004437

000176

001004

000100
010726

174064

013737
004437
000007
012737
012737
012737
013737
005777

014072
010656

013250

MOV

AS: :

%4 ,PRNNT

001054
001034
001036
001040

PRTO:
PRT?Z:

MOV
MOV
MOV
MOV
ST
8PL

#60,STRCHR
#-95. ,SEGCNT
#-132. ,CHRCNT
STRCHR.CHRGEN
aLPS
PRT4

001052

ERR33:

MOV 1

#33,

JSR

25,STAER

PRT4G:

HALT
MOV

100006

000060
177641
177574
001054
173772

012737

000033

004537

011142

013777
005237

001040
001036

005237
005237

001040
001034

012777

000012

105777
100375

173712

=M+

173750

173720

001054

022737 000065
001422
022737 000071
001423
005237 001054
000137 004760
012737 000041
000137 005002
012737. 000066
000137 004760
012737 000040
000137 004760
032777 010000
001250

001054

001421

PRT3:

$SERROR

N=N+

INC
BLT

:SET TEST NUMBER FOR MESSAGE

TNO6 ,MES15

JPRINT TEST NUMBER
JFIRST START (HAR
;SET OVERFLOW COUNT
S SET CHAR COUNT
:GET START CHAR
*TEST FOR ERROR
'BRANCH IF NO ERROR

:SET UP ERROR COUNT 33

ERCOUNT

CHRGEN,aLPB
CHRCNT

PRT3

:REPORT ERROR SET

*HALT ON ERROR
‘LOAD BUFFER

* INCREMENT CHAR COUNT
*BRANCH IF NOT 132 CHARS

CHRGEN

*START OVERFLOW
*NEXT CHAR

MOV

#12,aLPB

“SEND LF

ISTB
BPL
CMP
BEQ

aLPS
.4

PRTA

INC
BNE

SEGCNT
PRT3

SWAIT

CMP

#40,STRCHR
PRT6
#65,STRCHR

CMP
BEQ
INC

#71,STRCHR
PRT8
STRCHR

#41.THRGEN

BEQ

001054

;ENABLE KEYBOARD INTERRUPT

#100,aTKS

BEQ

INC

000040

022737

81S

;S/W SWR ?
;JNO- CONTINUE

JMP

PRT?

PRTO

001040

PRTA:

MOV

001054

PRT6:

MOV

001054

PRT7:

MOV

#40,STRCHR

173610

PRT8:

BIT

#M3IT12,3a5WR

JMP

JMP
JMP

BNE

PRTS

#66.STRCHR

PRT0

PRTO

PRTCTL

*INCREMENT OVERFLOW COUNT
"CONTINUE IF NOT DONE
:TEST READY
‘WATT FOR READY
"LAST START CHAR SPACE?
*YES, BRANCH

‘LAST START CHAR 5?

SYES,

BRANCH

*DONE?
SYES
NGO, GET NEXT START CHAR

+ CONT INUE

“GET FIRST CHAR IN SET

*START OVERFLOW

“SET START CHAR TO 6

CONTINUE

"SET START CHAR TO SPACE

CONT INUE

;CHECK LOOP ON TEST

. LOOP

SEQ 0039

YM-Z049A-AA

CZLXAA.SRC

(DECSPEC-11-BDFAD~-A-D)

12-MAR-81 1D:43

1729
1730
173
005176

1735
1736

005214
005220

005176
005204
005206
005220
005226

022737
001003
052777

004437

013737
004437
000010

1737
1738

005232
005240

1740
1741
1742

005254
005256
(05262

001452
005777
100006

005264

012737

1739

1743

(1)

N
1744
1745
1746
1747
1748

1749
1750
1751
1752
1753

(1)

(1)
1754
1755
1756

PAGE 24

;PRINTS THE NUMBER OF LINES SKIPPED ON THE LINE PRINTER

1734

(1)
(1)
(1)

MACY11 30A(1052)

;TEST 7
JMULTIPLE LINE ADVANCE TEST
;TESTS MULTIPLE LINE ADVANCES AND TIMINGS

};g%

(1)
(1)
(1)

B &
'
12-MAR-81
11:24

005246

005264

005272
005276
005300
005306
005312

005314
005322
005330
005334
005342

005342

005346
005350
005354
005356

012737
012737
117737

000035
004537
000000
013777
005237
001361

000176

001004

000100
010726

173604

014074
010656

013250

005364
177574

001054
001036

173602

001040

173516

000034

001052

MLF :

MoV
JSR
M=M+1

TNO7 ,MES15
X4 ,PRNNT

JSET TEST NUMBER FOR MESSAGE
JPRINT TEST NUMBER

#TABSTR,STRCHR
#-132.,CHRCNT

FIRST CHAR
;SET CHAR COUNT

MLFO:

BEQ
7ST
BPL

MLF &
aLPS
MLF1

;BRANCH IF DONE
;TEST FOR ERROR
;CONTINUE IF NO ERROR

ERR34:

MOV

#34,

MLF1:

042737
005237
012777

173534
177770
001042
000012

001042
001042

173440

MLF2:

105777

173432

001054

;S/W SWR ?
;NO- CONTINUE
JENABLE KEYBOARD INTERRUPT

MoV
MOV

MLFA:

011142

001042

#176,SWR
.+10
#100,aTKS
X4, TYPINT
M

173474

100375
005337
001367
005237

CMP
BNE
B1S
JSR

SPRINT

001040
001036

117737

SENABLE

MOVB

$ERROR

N=N+1
JSR
HALT
MOV
INC
BNE

MOvB

@STRCHR,CHRGEN

ERCOUNT

X5,STAER
CHRGEN,aLPB
CHRCNT
MLFO

(HAR

;SET UP ERROR COUNT 34
JREPORT ERROR
JHALT ON ERROR
;LOAD BUFFER
s INCREMENT CHAR COUNT
s CONTINUE

BIC
INC
MOV
SWAIT

#177770,LINCNT
LINCNT
#12,3LPB

;GET ASCII LINE COUNT
;MAKE OCTAL
JADD 1
;SEND LF

BPL
DEC
BNE
INC

alLPS

.~
L INCNT
MLF2
STRCHR

;TEST READY

TSTB

@STRCHR,LINCNT

;GET

;WAIT FOR READY
;DECREMENT LINE COUNT
s CONT INUE
;NEXT CHAR

SEQ 0040

—

YM=7049A-AA
CZLXAA.SRC

(DECSPEC-11-BDFAD~A-D)
12-MAR-81 10:43

1760

005362

000726

1762

005364
005372
005400

033462
033064
000

1761

1763
1764
1765

1766
1767

033062
032463

033463
030064

MACY11 30A(1052)

TABSTR:

032777
001272

11:24

MLFA

LASCIZ

7272637463540/

PAGE 27

; CONT INUE

.EVEN

005402
005402
005410

12-MAR-81

010000

173374

MLFé&:

BIT

BNE

#1T12,aSWR

;CHECK LOOP ON TEST
;LOOP

SEQ 0041

—

YM-Z049A-AA
CZLXAA.SRC

—

NNNNAAANNA
NN
oSN
NOWVw
e~ SN A4

1769
1770
1771

(DECSPEC-11-BDFAD=-A~D)
12-MAR-81 10:43

MACY11 30A(1052)

12-MAR-81

11:24

PAGE 28

SEQ 0042

;TEST 8

;HIGH SPEED PRINT TEST
005412
005412
005420
005422
005430
005434
005434
005442
005446
005454
005462
005470
005476
005504
005512
05520
005524
005526
005526

005534
005540
005542
005550
005554
005556
005562
005566
005570

005576
005600
005606
205610
005616
005624
005626
005634

005634
005640
005642

005646
005650
005656
005664
005666
005674

005676
005704

HSPRT:

022737
001003
052777
004437

000176

001004

000100
010726

173370

013737
004437
000011
012737
012737
012737

014076
010656

013250

000200
000140
000040
000177
177574
177757
001054
173254

001060
001062
001054
001042
001036
001044
001040

HSQOA:

000035

001052

ERR35:

012737
012737
012737
013737
005777
100006

012737
000036
004537
000000
013777
005237
001424
005237
005237
061410
023737
001350

163737

000744
013737
012737
000735
012777
105777
100375
005337
002413
162737
022737
003704
063737
000700
032777
001242

001036

173232

;NO= CONTINUE
;ENABLE KEYBOARD INTERRUPT

JSR

JPRINT TEST NUMBER

MOV

HSOO0:

HSO:
HS1:

011142
001040

$ENARLE
#176,SWR
MP
.+10
BNE
#100,aTKS
BIS
X4, TYPINT
JSR
\M
$PRINT

HS2:

001040
001044

001060

001040

001062

001040

001054
177757

001040
001044

HS3:

000012

173146

HS4:

173140

M=M+1

#200,LEGCHR

MOV

#35,

N=N+1
JSR
HALT

#1640, ,NUMCHR
#40,STRCHR
#127. ,LINCNT
#-132.,CHRCNT

#-17.,CYCCNT

STRCHR,CHRGEN
aLPS
sz

000004
000040

001054
001054

001062

001054

010000

173100

HS6:

;LEGAL CHECK

s #CHARS

;JSET UP FIRST LINE

;SET LINE COUNT FOR 2 PAGES
;SET CHAR COUNT
:SET GROUP COUNT
;STORE START (HAR
;TEST FOR ERROR
;JBRANCH IF NO ERROR

;SET UP ERROR COUNT 35

ERCOUNT

%5,STAER
CHRGEN ,aLPB
CHRCNT
HS4
CHRGEN
CYCCNT
HS3
LEGCHR,CHRGEN
HS1
NUMCHR,CHRGEN
HS1
STRCHR,CHRGEN
#-17.,CYCCNT
HS1

#12,3LPB

;REPORT ERROR SET

JHALT ON ERROR

;LOAD BUFFER
; INCREMENT CHAR COUNT
;JBRANCH IF DONE LINE
NEXT CHAR
; INCREMENT GROUP COUNT
;BRANCH IF DONE GROUP
;LEGAL CHAR?
;BRANCH AND CONTINUE IF LEGAL CHAR
;MAKE LEGAL
s CONTINUE
;G=T FIRST CHAR IN GROUP
JRESET CYCLE COUNT
2 CONT INUE
sSEND LF

aLPS
.4

;TEST READY
;WAIT FOR READY

HS6
#4 ,STRCHR
#40,STRCHR
HSO
NUMCHR,STRCHR

JEXIT TEST IF DONE
;SKIP & LINES ON DRUM, FIND START (HAR
;START CHAR A LEGAL CHAR?
;CONTINUE IF LEGAL START (HAR
;MAKE LEGAL AND CONTINUE

LINCNT

001042

;SET TEST NUMBER FOR MESSAGE

TNO10,MES15
X4 ,PRNNT

MOV
MOV
MOV
MOV
MOV
MOV
MOV
TST
BPL

$ERROR

;S/W SWR ?

HSO

#BIT12,aSWR
HSPRT

;DECREMENT LINE COUNT

2 CONT INUE

;LOOP ON TEST?
;LOOP

005706

000137

005712

SNGCHR

;JUMP TO TEST 9 AFTER COMPLETION

N_J_h..a_ag
2 = N

NONY =

b ad

—

= —

v N OV wn

—

YM-2049A-AA
CZLXAA.SRC

(DECSPEC~11-BDF AD-A-D)
12-MAR-81 10:43

1841

12-MAR-81

11:264

PAGE 28-1

SEQ 0043

:TEST 9

;WORST CASE NOISE TEST

;SINGLE CHAR. ACROSS ALL COLS.

005712
00571¢
005720
005722
005730
005734
005734
005742
005746
005754
005762
005770
005774
005776
005776

006004
006010
006012
006020
006024
006026
006034
006034
006040
006042
006046
1840

MACY11 30A(1052)

006052
006054
006056
006064

022737
001003
052777
004437

013737
004437
000012
012737
012737
012737
005777
100006

000176
000100
010726

013250

177640

001042
001040
001036

000040
177574
173004

000036

105777
100375

172740

SNGCHR: SENABLE

173070

014100
010656

012737
000037
004537
000000
013777
005237
001361
012777

001052

S2A:

S1:

ERR36:

001040
001036

XSIX:

000012

172746

S4X2:

032777
001312

010000

#176,SWR

;S/W SWR ?

#100,aTKS

;ENABLE KEYBOARD INTERRUPT

JSR

%4 ,PRNNT

MoV
MOV

#40, CHRGEN

orSsT

aLPS

M=M+1

172762

001040
001042

CMP
BNE
81S
JSR
$PRINT
MOV

011142

005237
005237
002743
001764

001004

MOV
BPL

LPS7:

%, TYPINT
\M

TNO11,MES1S

#-132., CHRCNT
XS1X

sNO- CONTINUE

;SET TEST NUMBER FOR MESSAGE
;JPRINT

TEST NUMBFR

;96 CHAR.
JSET UP SPACE

:SET CHAR COUNT FOR 132
:TEST FOR ERRORS
;BRANCH [F NO ERRORS

$ERROR
MOV
N=N+1

\N
#36,

%5,STAER

;REPORT ERROR

MOV
INC
B8NE
MOV
SWAIT

CHRGEN,aLP8
CHRCNT
S1
#12,aLPB

s INCREMENT CHAR COUNT
;CONTINUE IF NOT DONE LINF
;ISSUE LINE FEED

JSR
HALT

TSTB
BPL

172720

.+10

INC
INC
BLT
BEQ

BIT
BNE

ERCOUNT

aLPS
-4

CHRGEN
LINCNT
S2A
S4X2
#BIT12,3aSWR
SNGCHR

;SET UP ERROR (GOUNT 36

JHALT ON ERROR
;LOAD PRINTER BUFFER

;TEST READY

:WAIT FOR READY
;+1 CHAR.

;+1 LINE COUNT
:CONTINUE IF NOT DONE
;SEND BLANK LINE AT END OF TEST
:CHECK TO LOOP ON TEST

:.00P ON TEST

YM=-Z049A-AA
CZLXAA .SRC

(DECSPEC-11-BDFAD~A~D)
12~-MAR-81 10:43

MACY11 3CA(1052)

12-MAR-81

11: 24

PAGE 29

SEQ 0044

;TEST 10

;PROM PATTERN CHARA(CTER TEST
006066
006066
006074
006076
006104
006110
006110
006116
006122
006130
006136
006144
006150
006154
06160

000176

001004

052777
004437

000100
010726

172714

013737
004437
000013

016102

013250

012737
012737
012737
005037
005237
005037
005237
013737
063737
023737
002403

000177

001042
001060
001062

022737
001003

000200
000140
001044
001044
001040
001040
001040

001042
001054

001054
001054
001060

163737
005777

001062
172556

001054

012737
000040
004537
000000
013777
023727
001341
023727
001331
012777

000037

001052

105777
100375

172500

100006

006326

010656

ROTATE:

SENABLE
#176,SWR
CMP
.+10
BNE
BIS
JSR
$SPRINT
MoV

JSR
M=M+1

ROTO:

ROT1:
ROT?:

MOV
MOV
MOV

CLR

ROT3:

001054
001040
001044

000010

000012

172506

ROTS:

001042
001042

000037

010000

172460

000137

006332

#177 ,LINCNT
#200,LEGCHR
#1640 ,NUMCHR
CYCCNT

CYCONT
CHRGEN
CHRGEN
CHRGEN,STR(HR
LINCNT,STRCHR
STRCHR,LEGCHR

JPRINT

TEST NUMBER

JLAST CHAR
JLEGAL (HK
:#CHARS

:CLEAR CYCLE COUNT
JINC CYCLE COUNT
:CLEAR POINTER
;s INC POINTER
;STORE POINTER

;FIND CHAR
JLEGAL?

:BRANCH IF LEGAL

JMAKE LEGAL

:TEST FOR ERRORS

;BRANCH IF NO ERRORS

;SET UP ERROR COUNT 37 .

ERCOUNT

%5,STAER

;REPORT ERROR

STRCHR,aLPB

;LOAD BUFFER
:DONE GROUP?
;NO GET NEXT CHAR
;DONE LINE?

ROT3

CYCCNT ,48.

JHALT ON ERROR

ROT?

;NO, NEXT GROUP

aLPS
-4

;TEST READY
;WAIT FOR READY

LINCNT ,#37

;DONE?

#12,3LPB

SWAIT
T1STR

;SET TEST NUMBER FOR MESSAGE

TNO12,MES15
X4 ,PRNNT

CHRGEN, #17.

8PL

005337
023727
003313
032777
001260

aLPS
ROTS
\N
437,

011142
172534
000021

X4, TYPINT

ROT4

ERR37:

JENABLE KEYBOARD INTERRUPT

#100,aTKS

NUMCHR,STRCHR

ROTG:

:S/W SWR ?
:NO- CONTINUE

L INCNT

JYES, SEND LF

;DECREMENT LINE COUNT

DEC
(MP
BGT
BIT
BNE

ROT1

#BIT12,aS#R
ROTATE

;NO, NEXT LINE
;LOOP ON TEST?
;LOOP

JMP

LFTIR

;JUMP TO TEST 11 AFTER (OMPLETICN

YM=2049A-AA
CZLXAA. SRC

(DECSPEC-11-BDFAD-A=D)
12-MAR-81 10:43

MACY11 30A(1052)

12-MAR-81

11:24 PAGE 30

1884

sTEST 11 ====- SPURIOUS HAMMER FJRING TEST

}ggg

: STARTING WITH A LEFT TRIANGLE

:LEFT AND RIGHT TRIANGLES

}ggg
1889

006332

(1)

006342

(1)
(1)

1890
1891

006332
006340

022737
001003

000176

001004

006350
006354

052777

004437

000100

010726

172450

(1)
(1)

006354
006362

013737
004437

014104
010656

013250

1892
1893
1894
1895

006366
006374
006402
006410

012737
013737
012737
013737

000204
001042
177757
001036

001042
001036
001044
001040

(1)

1896

006416

1897 (06424
1898 006426
1899

1900
1901
1902
1903
1904

1905

006434

006436
006442
006450
006456
006462
006464

000014

022737

003004
162737
000770

000022

000021

1906
1907
1908
1906
1910
1911
1912
1913
1914
1915
1916
1917
1918

006472
006476
006500
006506
006512
006514
006520
006522
006526
006530
006536
006544
006546

004537
000000
013777
005337
001415
005237
001403
005237
000753
013737
012737
000744
012777

011142

(1)
(1)

006554
006560

105777
100375

172220

1920
1921
1922
1923
}35@

006554

006562
006566
006570
006572
006600

001040

000041

005337
003302
001766
032777
001254

LFT3:

LFT4:

001054
177757

001040
001044

LFTS:

0000312

172226

LFT6:

001044
001040

010000

#176,SWR
.+10

JSR
$PRINT

L4, TYPINT
M

M=M+1

172204

#100,TKS
TNO13,MES1S
%4 ,PRNNT

:S/W SWR ?
:NO- CONTINUE

;ENABLE KEYBOARD INTERRUPT
;SET TEST NUMBER FOR MESSAGE
:PRINT TEST NUMBFR

MOV
MOV
MOV
MOV

#132. L INCNT
LINCNT,CHRCNT
#=17.,CYCCNT
CHRCNT,CHRGEN

;SET LINE COUNT
;STORE CHAR COUNT
:SET GROUP COUNT
;FIND FIRST CHAR ON LINE...

BGT
SUR

LFT?2
#17..,CHRGEN

;BRANCH IF LESS THAN 17
;SUBTRACT 17, IF > 17

(MP

#18. .CHRGEN
LFT1

NEG
ADD
MOV
TST
8PL

CHRGEN
#100, CHRGEN
CHRGEN,STRCHR
aLPS
LFT4

MOV

#40,

JSR
HALT
MOV
DEC
BEQ
INC
BEQ
INC
BR
MOV
MOV
BR
MOV

%5,STAER

TSTR
8PL

aLPS
=4

$ERROR
N=N+1

SWAIT

DEC
BGT
BEQ
BIT
BNE

001042

ERCOUNT

CHRGEN,aLPB
CHRCNT
LFT6
CYCCNT
LFTS
CHRGEN
LFT3
STRCHR,CHRGEN
#-17.,CYCCNT
LFT3
#12,aLPB

L INCNT
LFTO
LFT6
#3]712,3SWR
LFTIR

:MORE THAN 17 CHARS?
: CONTINUE

:NEGATE CHRGEN
:START CHAR IN CHRGEN
;STORE STARTING CHAR
;:TEST FOR ERROR
:CONTINUE IF NO ERROR

:SET UP ERROR COUNT 40
:REPORT ERROR SET
:HALT ON ERROR
:LOAD BUFFER
:DECREMENT CHAR COUNT
:BRANCH IF DONE LINE
: INCREMENT GROUP COUNT
:BRANCH IF DONE GROUP
:NEXT CHAR IN GROUP
: CONT INUE
;GET START CHAR AGAIN
RESET GROUP COUNT
: CONTINUE
:SEND LF
:TEST READY
:WAIT FOR READY
;DECREMENT LINE COUNT
;BRANCH IF NOT DONE
:SEND BLANK LINE AT END OF TEST
;LOOP ON TEST?
:LOOP

STEST 1) ==eeme CONTINUED

1927

1929

LFT2:

172274

001040
001036

1926

1928

LFT1:

001052 “ERR40:

012737

1919

LFT:
LFT0:

001040
001054

006e64

CMP
BNE

MoV
JSR

001040
000100
001040
172316

(1)

$ENASBLE

BIS

005437
062737
013737
005777
100006

000040

(1)

001040

LFTTR:

006602

012737

060001

001042

:RIGHT

TRIANGLE

RTTR:

MOV

#1,LINCNT

JINITIALIZE LINE

SEQ 0045

YM=-Z045A-AA
{ZULXAA,SRC
1930
1931
1932
1933
1934
1935
1936
1937
1938
(1)
(1)

1939

1940
1941
1942

1943

1944
1945
1946
1947
1948
1949
(1
(1)
1950

(DECSPEC-11-BDFAD~A=D)
12-MAR-81 10:43

006610
006616
006624
006632
006640
006646
006650
006654
006656
006656
006664
006670
006672
00670C
006704
006706
006714
006720
006722
006726
006730

006730
006736
006742
006744
006752
006756
006762
006764
006772
007000
007004

007006
007014
007014
007020
007022
007026
007034
07036
007044

012737
013737
012737
012737
163737
001425
005777
100006

000077
001042
177757
000204
001042

000041

012737
000043
004537
000000
013777
005237
005237
001006
012737

000042

001052

000040
001056

172102

177757
001036

001056

172052

001052

RT2A:

RT2AA:

177757
000021
001044

001056
001040

012777

000012

171766

105777
100375

171760

001042
000205

001042

010000

171740

MOV
MOV
MOV
MOV

SuUB
BEG
TST
BPL
$ERROR
MOV

N=N+1
JSR

HALT
MOV
INC
BNE
MOV

DEC
BNE

RT3:

TST
BPL

ERR4Z:

MOV

011142
172030

005237
022737
003265
032777
001256

ERRSYG:

011142

001040
001040
001056

162737
005337
001346

RTY:

RTZ:

172124

012737
000042
004537
000000
012777
005237
201003
012737
005337
001353
005777

100006

001040
001044
001056
001036
001036

MACY11 30A(1052)

RT3A:

$ERROR

N-N+1
JSR
HALT

MoV

INC
INC
BNE

MOV

RT3B:

SuB
DEC
BNE

12-MAR-81

#77,CHRGEN

LINCNT, CYCONT

#-17.,STRCNT
#132.,CHRCNT

L INCNT ,CHRCNT

RT3
alLPS
RT2A
\N
He,

CHARS ON LINE
;SAVE NO.
;SET GROUP COUNT
;NO.

C(HARS PER LINE

;SUBTRACT NO.. OF CHARS ON LINE
*BRANCH IF NO SPACES ON THIS LINE

;SET UP ERROR COUNT 41

ERCOUNT

JREPORT ERROR SET

X5,STAER
#40,aLPB
STRCNT
RT2AA
#=-17.,STRCNT

CHRCNT

RT2
alLPS
RT3A
\N
62,

JHALT ON ERROR
;LOAD BUFFER

; INCREMENT GRCUP COUNT

;BRANCH [F NOT DONE GROUP

JRESET GROUP COUNT
;DECREMENT SPACE COUNT
;BRANCH IF NOT DONE SPACES
;TEST FOR ERROR

;CONTINUE IF NO ERROR

;SET UP ERROR COUNT &2

ERCOUNT

%5,STAER

:REPORT ERROR SET

CHRGEN,aLPB
CHRGEN
STRCONT
RT38
#-17. ,STRCNT
#17.,CHRGEN
CYCONT
RT3

:LOAD BUFFER

TSTR
BPL

aLPS

CMP
BGT

#133 JLINCNT

BIT
BNE

JFIRST CHAR IS A?

:CONTINUE IF NO ERROR

#12,3LPB

INC

PAGE 30-1

;TEST FOR ERROR

MOV

SWAIT

&
11 :24

L INCNT

#81T12 aSWR
RTTR

;HALT ON ERROR

INEXT CHAR
: INCREMENT GROUP COUNT
;BRANCH IF NOT DONE GROUP

:RESET GROUP COUNT

:GET FIRST GROUP (HAR
:DECREMENT CHAR COUNT
:CONTINUE
;SEND LF
;TEST READY

;WAIT FOR READY

; INCREMENT L INE COUNT
;DONE?

;BRANCH IF NOT DONE
;LOOP ON TEST?
.LOOP

SEQ 0046

YM=Z045A~AA
CZUXAA.SRC

(DECSPEC-11-BDf AD-A=D)
12-MAR-81 10:43

12-MAR-81

MACY11 30A(1052)

11:24

PAGE 31

:TEST 12
;HAMMER AL IGMENT

022737

000176

001004

052777
004437

000100
010726

171734

001003

07132
007136
007140
007140
007144
007146
007150
007156

007162

007164
007172
007172
007176
007200
007204
007206
(07214

2, TYPINT

#-63. ,LINCNT
#-132..CHRCNT
aLPS
XHAM1

ERR43:

MOV :

#.3,

JSR

%5.STAER

012737

001052

004537
000000

011142

105777
100375
100375
012777
005237

171634

=M+

XHAMT:

000105
001036

171624

000012

171610

171602

001042
010000

JSR

HAMIX:
HAM? :

000043

005237
001341
032777
001314

SPRINT

MOV
MOV
TST
BPL

001042
001036

105777
100375

#176,SYWR
.+10
#100,aTKS

TNO14 ,MESTS
%4 ,PRNNT

177701
177574
171656

001355
012777

CMP
BNE
BIS

013250

014106
010656

000044

’

SENABLE

MOV
rJqsr’: ,

013737
004437
000015
012737
012737
005777
100006

HAMALN:

171570

$ERROR
N=N+

HALT

SWAIT

TSTR

aLPS

BNE

HAM?

ERCOUNT

:S/W SWR ?
:NO~ CONTINUE
;ENABLE KEYBOARD INTERRUPT

:SET TEST NUMBER FOR MESSAGE
:PRINT TEST NUMBER
:SET UP FOR 63 LINES
;SET CHAR COUNT
:CHECK FOR ERROR
:BRANCH IF NO ERROR

:SET UP ERROR COUNT 43
:REPORT ERROR OCCURRED

;HALT ON ERROR

:TEST READY

.~
=4
#105,aLPB
CHRCNT

;WAIT FOR READY
:WAIT FOR READY
:TRANSMIT E TO PRINTER
:+1 CHAR COUNT

MoV

#12,3LPB

:TRANSMIT LINE FEED

TSTR

aLPS

BPL
BPL
XHAM1X: MOV
INC

SWAIT

BPL
INC
BNE
BIT
BNE

=4
L INCNT
HAM1 X
#RIT12,aSWR
HAMALN

;TRANSMIT ANOTHER (HAR.
:TEST READY

:WAIT FOR READY
:+1 TO COUNT
:GO DO NEXT LINE
:CHECK TO LOOP ON TEST
:LOOP ON TEST

SEQ 0047

YM-704GA~AA
CZLXAA.SRC

(DECSPEC-11-BDFAD-A-D)

12-MAR-81

10:43

MACYT1 30A(1052)

JTEST

12-MAR-81

11: 24

PAGE 32

SEN 0048

;ELONGATED (HARA(TERS TEST
007216
007216
007224
007226
007234
007240
007240
007246

007252
007260
007266

007274
007302
007310
07316
007324
007330
007332
007332
007340
007344

007346

007354
007360
007362
007366
007372
007374
007402
007404
0074612
007414
007422
007430
007432
007440
007440
007444
007446
007452
007454
007454

2035

007462
007466
007470
007476
007476
007502
007504

022737
001003
052777
004437

001004

000100
010726

171564

#100,3TKS

TNO15,MES15
X4 ,PRNNT

014110
010656

013250

000200
000140
000040
000060
177574
177757
0C1054

001060
001062
001054
001042
001036
001044
001040

012737
000045
004537
000000
013777
005237
001424
005237
005237
001410
023737
001350

000044

171450

001052

001040
001036

001062

001040

013737

001054
177757

001040

105777
100375

005777
100006

012737

000010

001044

171342

EX1:

#-17.,CYCCNT
STRCHR, CHRGEN
alLPS

;SET GROUP COUNT
:STORE START (HAR

ERR44:

nel,

EX00:
EXO:

EX2:

0C5337

EX3:
EX4:

001042

;BRANCH IF NO ERROR

;SET UP ERROR COUNT 44

STRCHR, CHRGEN

s CCNT INUE
;GET FIRST CHAR IN GROUP

CHRCNT
EXé
CHRGEN
CYCCNT

HR
, CHRGEN
NUMC
EXT
#=-17.,CYCCNT

EX1

#10,3LPB

000045

171276

:TEST FOR ERROR

(HRGEN ,aLPB

\N
w45,

EX7:

:SET LINE COUNT FOR 48 LINES

JSET CHAR COUNT

JREPORT ERROR SET

sMAKE LEGAL

JRESET CYCLE COUNT

2 CONT INUE
;SEND ELONGATE CODE
JTEST READY

;WAIT FOR READY
;ERROR?
:BR=NO

EX7

171304

;SET UP FIRST LINE

JHALT ON ERROR
;LOAD BUFFER
; INCREMENT CHAR COUNT
;BRANCH IF DONE LINE
JNEXT CHAR
; INCREMENT GROUP COUNT
;BRANCH IF DONE GROUP
;LEGAL CHAR?
JBRANCH AND CONTINUE IF LEGAL (HAR

171326

ERR4S:

:#CHARS

ERCOUNT

Ex3
LF?CHR.CHRGEN

011142

105777
100375

EX2

alLPS
=4
aLPS

000012

TEST NUMBER

JLEGAL CHECK

171334

001052

;SET TEST NUMBER FOR MESSAGE

JPRINT

#200,LEGCHR
#1640 ,NUMCHR
#40,STRCHR
#48. ,LINCNT

EXO00A:

001044

163737

012737
000735
012777

001040
001040

;ENABLE KEYBOARD INTERRUPT

X4, TYPINT

%5,STAER
171426

sNO- CONTINUE

+10

011142

001060

000744

;S/W SWR ?

#176,SWR

000176

013737
004437
000016
012737
012737
012737
012737
012737
012737
013737
005777
100006

EXPRT:

;SET UP ERROR COUNT 45

ERCOUNT

RS,STAER

JREPORT ERROR SET

#12,3LPB

JSEND LF

aLPS
4

JWAIT FOR READY

L INCNT

sTEST

READY

;DECREMENT L INE COUNT

YM=2049A-AA
CZLXAA,SR(C

2036

007510
007512

007520
007526
007530
007536
007540
007546

(DECSPEC-11-BDFAD-A=D)

12-MAR-81 10:43
002413
162737

022737
003665
063737
000661
032777
001223

(00004
000040

001062
010000

MACY11 30A(1052)
BLT

001054
00105«
001054

171236

EX6:

sus
(MP
BLE
ADD
BR

BIT

BNE

12-MAR-81

11:24

PAGE 32-1

EX6

JEXIT TEST IF DONE

#40,STRCHR

;START (HAR A LEGAL (HAR?

NUMCHR,STRCHR
EXO
#BI1T12,aSWR
EXPRT

JMAKE LEGAL AND CONTINUE

#4,STRCHR

EX0

;SKIP 4 LINES ON DRUM, FIND START (HAR
;CONTINUE IF LEGAL START (HAR
s CONTINUE
;LOOP ON TEST?
;LOOP

SEQ 0049

YM-Z049A-AA
CZLXAA .SRC

2049
2050
2051
2052
2053
(1)
(1)
1)

2054
2055
1)
1)
(1)

2056

2057
2058

2059

12-MAR-81 10:43

11: 24

PAGE 33

:UNDERL INED ELONGATED CHARACTERS TEST
007550
007550
007556
007560
007566
007572
007572
007600
007604
007612
007620
007626
007634
007642
C07650
007656
007662
007664
007664

007700

007706
007712
007714
007720
007724
007726
007734

007736

007744
007746
007754
007762
007764
007772
007772

007776
010000

010004
010006
010006

2090

MACY11 30A(1052)

;TEST 14

007672
007676

208y

(DECSPEC-11-BDFAD~A-D)

12-MAR-81

010014
010020
010022
010030
010030
010034
010036

022737
001003
052777
004437

000176

001004

000100
010726

171232

013737
004437
000017
012737
012737
012737
012737
012737
012737

014112
010656

013250

000200
000140
000040
000060
177574
177757
0G105¢4

001060
001062
001054
001042
001036
001044
001040

013737
005777
100006

171116

012737
000047
004537
000000
013777
005237
001424
005237
005237
001410
023737
001350
163737

000046

001052

UEXPRT: S$ENABLE
CMP

BNE
BIS

JSR
$PRINT
MOV
JSR

M=M+1
UEXOOA: MOV

UEXO00:
UEXO:
UEX1:
ERR46:

MOV

001040
001036

.+10

#200,LEGCHR
#1460 NUMCHR

STRCHR, CHRGEN

8PL

UEX2

:BRANCH IF NO ERROR

#-132., CHRCNT

TST

aLPS

$ERROR

\N
#46,

MOV

MoV

001040
001044

013737
012737
000735
012777

001054
177757

001040
001044

UEX3:

MOV

000010

171010

UEX4:

MOV

105777
100375
005777

171002

aLzs

170774

aLPS

012737
000050
004537
000000
012777

000047

105777

170744

012737

177574

100375

MOV

011142

000015

UEX1
NUMCHR, CHRGEN
UEX1
STRCHR, CHRGEN
#=-17.,CYCCNT
UEX1
#10,aLPB

170752

UEX7:

MOV

#7,

JMAKE LEGAL

s CONT INUE
;GET FIRST CHAR IN GROUP
JRESET CYCLE COUNT
s CONT INUE
;SEND ELONGATE (ODE

;ERROR?
sBR=NO

;SET UP ERROR COUNT 47

ERCOUNT

RS,STAER

;REPORT ERROR SET

#15,3LPB

;SEND (R

SLES

001036

JHALT ON ERROR
;LOAD BUFFER
s INCREMENT CHAR COUNT
;BRANCH IF DONE LINE
JNUEXT CHAR
; INCREMENT GROUP COUNT
JBRANCH IF DONE GROUP
;LEGAL (CHAR?
;BRANCH AND CONTINUE IF LEGAL CHAR

;TEST READY
;JWAIT FOR READY

UEX7
ERR47:

;SET UP ERROR COUNT 46
;JREPORT ERROR SET

UEX3
LEGCHR, CHRGEN

001040

:TEST FOR ERROR

ERCOUNT

(CHRGEN ,aLPB
CHRCNT
UEX4
CHRGEN
CYCCNT

001062

001052

;LEGAL CHECK

; #CHARS

#-17. .CYCCNT

MOV

#40,STRCHR
#48. ,LINCNT

001040

100006

JPRINT TEST NUMBER

MOV
MOV

MoV

001060

000744

;SET TEST NUMBER FOR MESSAGE

TNO16,MES15
X4, PRNNT

X5,STAER

UEX2:

:ENABLE KEYBOARD INIERRUPT

#100,3TKS
X4, TYPINT
\M

;SET UP FIRST LINE
:SET LINE COUNT FOR 48 LINES
:SET CHAR COUNT
:SET GROUP COUNT
:STORE START (HAR

MOV

011142
171074

:S/W SWR ?
sNO- CONTINUE

#176,SWR

#-132.,CHRCNT

;TEST READY

JWAIT FOR READY

JRESET COUNT

SEQ 0050

YM-Z049A-AA

CZLXAA.SRC
2091
2092

2093

(DECSPEC-11-BDFAD=A=D)

12-MAR-81 10:43

010044
010052

010056

012777
005777
100006

000137
170722

170730

UEX7A:
UEXS8:

MOV
TST

#137,3LPB
alLP$S

$ERROR

#50,

BPL

010060
E}; 010060 88%82? 000050 00:052 ERR50: nox :

2094

2095

2096

010066 004537
010072

000000

2100

(1)
(1)

2101
2102
2103
2106
2105
2106

2107
2108
2109
2110
2111

2112
2113
2114
2115

010110

010110
010114

105777
100375

010116 005337
010122 002413
010124 162737
010132 022737
010140 003635
010142 063737
010150
010152
010160
030162

010166

000631
032777
001402
000137

=N+

011142

2097 010074 005237 001036
2098 010100 001361
2099 010102 012777 000012

UEX9:
170672

000004 001054
000040 001054
001054

010000

170624

007550

UEX6:
UEX10:

ERCOUNT

PAGE 33-1

;SEND UNDERL INE CODE
JREADY?
;BR=NO ERROR

;SET uP £RROR COUNT 50

RS,STAER

JREPORT ERROR SET

INC
BNE
MOV

CHRCNT
UEX7A
#12,aLPB

;COUNT A (CHARACTER
;BR=NOT DONE
JSEND LF

TSTR
B8PL

alPS
=4

;TEST READY
JWAIT FOR READY

BR
BIT
BEQ
JMP

UEXO
#BI1T12,3SWR

s CONTINUE
;LOOP ON TEST?
;BR=NO
;LOOP

HALT

DEC
BLT
SuB
(MpP
BLE
ADD

001042

UEX9

11:24

JSR

SWAIT

170664

001062

12-MAR-81

MACY11 30A(1052)

LINCNT
UEX6
#4 ,STRCHR
#60,STRCHR
UEXO
NUMCHR,STRCHR
UEX10
UEXPRT

;DECREMENT LINE COUNT
JEXIT TEST IF DONE
;SKIP & LINES ON DRUM, FIND START (HAR
;START CHAR A LEGAL CHAR?
;CONTINUE IF LEGAL START (HAR
;MAKE LEGAL AND CONTINUE

SEQ 0051

W= O 000 ~
A N
NN
o

AN AN NNV n

N
N b d o

PN d D e e

—D.J—JNN_J_J—INNNNNN—J..‘ —

d d ek —

YM=-2049A~AA
CZLXAA +SRC

(DECSPEC-11-BDFAD=-A-D)

12-MAR-81

10:43

MACY11 30A(1052)

12-MAR-81

&
11 :26

PAGE 34

SEQ 0052

TEST 15

;ALTERNATE CHARACTER SET TEST

010166

010174
010176
010202
010202
010210
010212
010220
010224
010224
010232

020000

022737
001003
052777
004437

000176

001004

000100
010726

170€00

013737
004437

014114
010656

013250

000200
000140
000040
000177

001060
001062
001054
001042
001036

010236

010244
010252
010260
010266
010274
010302
010310
010314
010316
010316

010324
010330
010332
010340
010344
010346
010346

170610

032777
001002
000137

010526

177574
177757
001054
170464

C01044

001040

012737
000052
004537
000000
012777
005777

000051

000016
170434

170442

012737

000052

001052

100006

001052

ACPRT:
ACPRTA:

170412

ACOOA:
ACOO:
ACO:
ACOA:

ERRS1:

ACOB:
ACT1:

ERRS2:

AC2:

163737

000744
013737
012737
000735
012777
105777

100375

001060

001040

001062

001040

001054

001040
001044

177757

000012
170320

AC7

170326

;CHECK FOR ALTERNATE CHARACTER SET TEST
;BR [F PRESENT
JEXIT OTHERWISE

.+10

;S/W SWR ?
;NO- CONTINUE

TNO17 ,MES15

;SET TEST NUMBER FOR MESSAGE

#176,SWR

#200,LEGCHR

#140 ,NUMCHR
#40,STRCHR
#127. ,LINCNT
#-132.,CHRCNT
#-17.,CYCCNT

STRCHR, CHRGEN

aLPS

ACOB
\N

#51,

ERCOUNT

;ENABLE KEYBOARD INTERRUPT

JPRINT

AC4:

;LEGAL CHECK
; #CHARS

:SET UP FIRST LINE
:SET LINE COUNT FOR 2 PAGES
;SET CHAR COUNT
:SET GROUP COUNT

;STORE START (HAR
:ERROR?
;BR=NO

;SET UP ERROR COUNT 51
;REPORT ERROR SET

#16,aLPB
alLPS

;TEST FOR ERROR

;SEND SHIFT OUT CODE

;BRANCH IF NO ERROR

AC2
\N

#52,

ERCOUNT

;SET UP ERROR COUNT 52

X5,STAER

:REPORT ERROR SET

CHRGEN ,aLP8
CHRCNT

: INCREMENT CHAR COUNT

AC3
LEGCHR, CHRGEN

AC3:

TEST NUMBER

R5,STAER

AC4
CHRGEN
CYCCNT

001040
001044

023737
001350

ACPRTA

X4, PRNNT

011142

001040
001036

#1713 ,3SWR

#100,aTKS
%4, TYPINT
\M

011142

010354
010360
010362
010370
010374
010376

BIT

AC1
HR
, CHRGEN
NUMC
AC1
STRCHR, CHRGEN
#-17.,CYCCNT
AC1
#12.,aLP8
aLPS
=4

JHALT ON ERROR
;LOAD BUFFER

:BRANCH IF DONE LINEt

:NEXT CHAR
; INCREMENT GROUP COUNT

:BRANCH IF DONE GROUP

;LEGAL CHAR?
;BRANCH AND C(ONTINUE [F LEGAL (HAR
;MAKE LEGAL
;CONTINUE
;GET FIRST CHAR [N GROUP
SRESET CYCLE COUNT

; CONT INUE
;SEND LF

JTEST READY
JWALT FOR READY

YM-Z049A-AA
CZLXAA .SRC

2161
2162

2163
2164
2165
2166

2167
2168
2169

2170

2171
2172
2173
2174
2175
2176
2177
2178
2179
2180
2181
2182
2183
2184
2185
2186
2187

2188

2189
2190

(DECSPEC-11-BDFAD-A=D)
12-MAR-81 10:43

010466

005337
002413

010514
010516
01052¢

022737
003701
063737
000675
032777
001220

010462

010470
010476
010504
010506

010526
010534
010536
010542
010550
010552
C10556
010556
010562
010564
010566
010566
010570
010572
01057¢
010576
010576

MACY11

001042

000004
000040

001054
C01054

001062

001054

010000

17C2€0

AC6:

032777
001402
000137
032777
001402
000137

040000

170250

AC7:

0146122
002000

170234

HAMX:

013700
001405
000005

000042

162737

016222

:
HAMTX

LOGICAL:

004710
000240
000240
000240
000137

30A(1052)

003310

DOAGN:

12-MAR-81

DEC
BLT
SuB
cMP
BLE

LINCNT
AC6

BIT
BNE

#B1712,aSWR

BIT
BEQ
JMP
BIT
BEQ
JMP

#81714,aSWR

ADD
BR

#4,STRCHR

#40,STRCHR
ACOA
NUMCHR,STRCHR
ACOA

ACPRT

HAMX

EVFU
ABI1T10,aSWR
HAMX1
PLPRT

MOV
BEQ
RESET

ak4?l RO

JSR
NOP
NOP
NOP

PC., (RO

JMP

TEST?

1" :24

PAGE 34-1

;DECREMENT LINE COUNT
JEXIT TEST IF DONE
sSKIP & LINES ON DRUM, FIND START (HAR
;START (HAR A LEGAL (CHAR?
sCONTINUE IF LEGAL START (HAR
sMAKE LEGAL AND CONTINUE
s CONTINUE
;LOOP ON TEST?
.LOOP

;EVFU AVAILABLE?
RECYCLE PRINTING TESTS
;NO,
DO EVFU PRINTING TESTS
:YES,
;PLOT TESTS DESIRED?
:BR=NO
;GO DO PLOT TESTS

DOAGN

JRESTART

SEQ 0053

YM-Z049A-AA
CZLXAA.SRC

(DECSPEC-11-BDf AD=A=D)
12-MAR-81 10:43

12-MAR-81

MACY11 30A(1052)

5
11:24

PAGE 35

SEQ 0054

;MISC. ROUTINES

;ROUTINE TO INITIALIZE PRINTER
;ENTER FROM JSR X5, PRTINT
010602
010606
010610
010614
010616
010622
010624
010632
010636
010640
010644
010646
010646
010652
010654

005777
100403

105777
100403
062705

000205
012777

105777
100003
062705
000205
105777
100375
000205

PRTINT:

170172
170164

PRTINO:

000002
000014
170142

170150

RDYOK:

000002
NTRDY:

170126

TST
BM]
TSTB
BM]
ADD

RTS
MOV
TSTB
8PL
ADD
RTS

SWAIT

1ST8
BPL
RTS

alL >S
PRTINO
aL PS
RDYOK
#2,%5

;TEST FOR ERROR
;BRANCH IF ERROR
;TEST FOR READY
JREADY SET OK
;SET UP FOR ERROR REPORT

A#14,3LPB

;ISSUE FORM FEED

;REPORT READY NOT SET

;TEST FOR READY NOT SET

aLPS

NTRDY

sJREADY NOT SET OK

#2,%5

;SET UP FOR REPORT

aLPS
=4
%5

;TEST READY
;WAIT FOR READY
JREADY SET EXIT

JEXIT AND REPORT

:ROUTINE TO QUTPUT ASCII MESSAGES ON THE LINE PRINTER
010656
010664
010670
010672

010672

010700
010704
010706
010714
010722
010724
010726
010734
010742

;PRINT TEST NUMBER
;TEST FOR ERROR
;JBRANCH IF OK

012737
005777

013232

010724

PRNNT:

MOV
TST
8PL

H#MES14,PRTMSG
aLPS
QINT

012737
000054
004537
000000
013737
013737

000053

001052

ERRS3:

MOV

#53,
%5,STAER

RINT:

JSR
HALT
MOY
MOV
EMT

;PRINT

MOV
MOV
RTS

#177564 ,TPS
#177566,TP8B
24

:RESET VECTORS
JFOR TTY
;RETURN

100006

104000

013232
012737
012737
000204

170110

011142
001000
001002

$ERROR

N=N+1

PRTMSG: MES14

177564
177566

TYPINT:

;SET UP ERROR COUNT 53

ERCOUNT

;REPORT ERROR SET
JHALT ON ERROR

LPS,TPS ;SET VECTORS =

LPB,TPB ;TO PRINT ON LINE PRINTER
;MESSAGE

:SUBROUTINE TO OUTPUT ASCI] MESSAGES ON TELETYPE PRINTER
010744
010746
010752
010754
010760
010762
010764
010772
010774

011600
062716
011000
112037
001001
000002
122737
001416
122737

TYP:

000002

TYPA:

011056

000045

011056

000043

011056

TYPC:

MoV

ax6,%0

:GET ADDR. THAT CONTAINS MESS.

#2,3%6

:SET UP EXIT

BNE

(0)+,TYPDAT
TYPC

:GET CHARACTER
:?R??CH 1F NOT DONE

(MPR
8EQ
(MPS

#45, TYPDAT
TYPF
#63,TYPDAT

:CHECK FOR "%''
:BRANCH IF %'
;CHECK FOR "#"'

ADD
MOV
MOVB
RT]

2%0,%0

:ADDRESS OF MESSAGE IN RO
cEX

(DECSPEC~11-8DFAD~A=D)
12-MAR-81 10:43

YM-Z2049A-AA
CZLXAA .SRC

001417
004737
000761
113777
105777
100375
000207
112737
004737
112737
004737
000737
000000

2244
2245
2246
2247
2248

MACY11 30A(1052)

011012
011056
167772

167772

000012
011012
000015
011012

011056

:
TYPF

011056

TYPG:

TYPD:

TYPDO:

TYPDAT:

BEQ
JSR
BR

MOVB
TSTB
BPL
RTS
MOVB
JSR
MOVB
JSR
BR

12-MAR-81

11 :24

TYPG
X7,TYPD
TYPA
TYPDAT ,aTPB
aTPS
. =4

#12,TYPDAT

X7,TYPD

415, TYPDAT
X7,TYPD
TYPA

PAGE 35-1

;BRANCH [F ''&"'

;TYPE CHARACTER IN TYPDAT

JNEXT CHAR [N MESSAGE
;OUTPUT (CHARACTER TO PRINTER

;CHAR. TYPED EXIT
;OUTPUT LF

;GO TYPE C(HAR.
;OUTPUT (R
;GO TYPE (CHAR.

JROUTINE TO CONVERT OCTAL TO ASCII

JENTER R OUTINE AS FOLLOWS
JSR

X5,CONV

I XXXXXX=ADDRESS OF NUMBER TO BE CONVERTED

s XXXXXX=ADDRESS OF ASCII MESSAGE
s XXXXXX=NUMBER OF OCTAL NO.'S TO BE CONVERTED

013537
012501
012502
060201

D
b

d
b

&H WWWNNN—'—‘—‘g
oS~V
OO0NNVO
o

d e

Guar Guur G

b
)
b md

d
md
d o
b

oGy Qs P

b
b

[eleleldleleolololale]

—t

s Gurd

011102

013703
042703
062703
110341

000241
006037
000241
006037
000241
006037
005302
001356
000205

011140

011140
177770

CONV:

ACVN:

MOV
MOV
MoV
ADD
MOV

000060
011140
011140

011140

RTS

ACNVX:

000000

OO
NOON
‘vgfiKOHn\nunntmb
o

b ———
—

b ol

md amd

b
b ad

b
b

D cnd wd
) md

d
—

—

) and emed ed

b —d

QOOOOQOOOO0

;ROUTINE

004537
001052
011570
000003

011060

STAER:

#177770,%3
#60,%3

23,-(1)

ACNVX

;ADDRSS OF NO. TO BE CONVERTED
;ADDRESS OF MESSAGE

JNUMBER OF ASCII CHARACTERS
;FIRST CHAR ADDRESS
:STORE NUMBER

;ISOLATE LEAST SIGNIFICANT BIT
JSET UP ASCII CHARACTER
;STORE CHARACTER
;GET NEXT SIGNIFICANT BIT ...

ACNVX

ACVN

;=1 FROM ASCII CHAR. CNT
;CONVERT NEXT CHARACTER
JEXIT! CONVERSION DONE
;WORK REGISTER

TO REPORT ERROR COUNT
JSR

ERCOUNT

X5,CONV

; CONVERT OCTAL TO ASCII

;TYPE

aSWR
.t

;TEST FOR HALT ON ERROR

HED1

104000

011570
005777
100401
000000
000205

BIC
ADD
MovB
CLC
ROR
cLC
ROR
cLC
ROR
DEC
BNE

a(5)+, ACNVX
(5)+,%1
(5)+,%2
%2.%1
ACNVX,
%3

167620

3
EMT
HED1
TST

BM]

HALT
RTS

ERROR MESSAGE

JBRANCH I+ NO HALT WANTED

JHALT ON ERROR
;JRETURN

SEQ 0055

YM=-Z049A-AA

CZUXAA. SRC

(DECSPEC-11-BDFAD~A-D)

12-MAR-81 10:43

2300

2305

011172

010046

2311
2312
2313
2314
2315
2316
2317
2318
2319

011206
011212
011214
011220
011222
011230
011236
011244
C11246

005737
001130
005737
007477
017737
042737
022737
001456
022737

2306
2307
2308
2309
2310

2320

011174
011176
011200
011202
011204

011254

010146
010246
010346
010446
010546

001530

TKINT:

001072

001070
167566
177600
000015

001074
001074
001074

000025

001074

2321 011256 023727 001074 000060
2322 011264 100001
2323 011266 000466
2324

2325

011270

011276

022737
100001

2326 011300 000461
2327 011302 005237
2328 011306 022737

2329 011314 100453
2330
2331
2332
2333
2334

2335
2336
2337
2338
2339
23,0
2341
2342

011316
011322
011324
011332
011340

011346
011350
011352
011356
011360
011364
011366
011372

2343 011400
2344 011402
2345 011406
2346 011410
2347 011416

105777
100375
013777
162737
022737

001411
000241
006137
000241
006137
000241
006137
063737

000464
005737
001451
013777
000445

000067

001066
000006

001074

001066

001074
000060
000001

TK1:

K2:

167460
001074
001066

001076
001076
001076
001074

001076

TKS:

DGTS:

001066

20,-(5P)

TST
BNE
TST
BEQ
MOV
BIC
CMP
BEQ
CMP

SET
TYPSWR
SIGNAL
CNTRLG
aTXB, CHAR
#177600,CHAR
#15, CHAR
DGTS
#25, CHAR

BEQ

WI2:

167474

MOV

MOV
MOV
MOV
MOV
MOV

167366

2349 011426
2350 011434
2351 011442

042737
022737
001414

177600
000007

011452
011460

013777
104000

001074

2352 011444 105777 167346
2353 011450 100375

001074
001074

WwI3:
167332

%1.-(SP)
¥2.-(SP)
%3.~(SP)
%4 .- (SP)
X5.~(SP)

CMP
BPL
BR

CHAR., #60
X1
WwI3

BPL

CMP

11:24

PAGE 35-2

SEQ 0056

#67 . CHAR

:SAVE REGISTERS

:
:
:
:
:

"INITIAL SWR ENTRY ?
"YES-PRINT HEADER
"PREVIOUS CONTROL=G INPUT ?
LYES=-CONTINUE
‘GET INPUT CHARACTER
:STRIP OFF PARITY BIT
*CARRIAGE RETURN ?
L YES-CONT INUE
*CONTROL-U INPUT ?
L YES—-CONT INUE

"LEGAL CHECK: LESS THAN 60 ?
CYES=-PRINT ‘"'

*NO-CONT INUE

‘LEGAL CHECK: GREATER THAN

*NO-CONT INUE

BR
INC
CMP

Wr3
DIGITS
#6,D1GITS

LYES=PRINT """
'NEXT DIGIT OF SWR INPUT
'MORE THAN SIX DIGITS ?

TSTB
BPL
MOV
SUB
CMP

QTPS
wi2
CHAR,aTPB
#60, CHAR
#1.DIGITS

“TTY PRINTER READY ?
© NO-WAIT
"PRINT CHARACTER
“CONVERT TO OCTAL
‘FIRST DIGIT ?
. YES=CONT INUE
*ROTATE LEFT THREE
STIMES
CTHIS WILL SHIFT
*SWR VALUE ONE
*PLACE LEFT
SOCTAL.
*NEW VALUE OF SWR
"RETURN FROM INTERRUPT
*SWR VALUE CHANGED ?

BM]

BEQ
cLC
ROL
cLC
ROL
cLC
ROL
ADD

BR
TST
BEQ
MOV
BR

5348 011420 017737 167370 001074 CNTRLG: MOV

2354
2355

12-MAR-81

:KEYBOARD INTERRUPT ROUTINE
"FOR ACCESS TO THE S/W SWITCH REGISTER

2301
2302

2303
2304

MACY11 30A(1052)

BIC
CMP
BEQ

ISTR
BPL
MOV
EMT

wis3

ocT
ocT
ocT
CHAR,OCT

K6
DIGITS
K3
0CT.aSwR
K3

aTKB, CHAR

#177600,CHAR
#7.CHAR
TYPSWR

&IPS
WI'3

CHAR,aTPB
+0

SYES-PRINT ‘*2**

*NO-RETURN ,NO CHANC: TO SWR
"YES-ENTER NEW SWF VALUE
‘RETURN FROM INTEF.RUPT

"GET CHARACTER

-STRIP OFF PARITY BIT
*CONTROL-G INPUT ?
LYES-PRINT HEADER

“TTY PRINTER READY ?
'NO-WAIT
"PRINT CHARACTER
"PRINT ‘"'

YM=-Z045A~AA

CZL XAA.SRC
2356

12-MAR~81 10:43

011462

2357 011464
2358 011470
2359 011472
2360 011476
2361 011502
2362

(DECSPEC-11-BDF AD=A=D)

011504

013760

2363 011506 004537

2368
2370

011522

011524

011526

104000

2371 011530
2372 011532

000404
005037

011540

013752

2373 011536
2376

104000

2375 (11542
2376 011546
2377 011552

005037
005037
012605

011566

000002

2378
2379
2380
2381
2382

Sggz
2385
2389

011554
011556
011560
011562
011564

001070

TK3:

0G1066
001076

TK7:

012604
012603
(€12602
012601
012600

020040

2390

011570

2601

012334 042522 042101

2391
2392
2393
2394
2395
2396
2397
2398
2399
26400

011611
011656
01173
012000
012041
012110
012147
012212
012237
012270

105
051105
045
050045
045
051445
045
042522
120
047117

051122
047522
051120
052125
052520
040524
054114
052123
053517
046040
051122

TK&:
TK6:

051117

2408 012526

026455

2612
26413
2614

040
026455
026455

044522
020040

052116
020040

013024
013106

;CLEAR DIGIT COUNT
;CLEAR SWR INPUT
JRESTORE REGISTERS

012526

040
005012
050045

020040

026455
026455

MES21

CLR
CLR
MoV

MOV
MOV
MOV
MOV
MOV

LASCIZ

047524
044440

012623
012734
012736
012775

DIGITS
ocr
(SP)+,%5

EMT

MESS:

020124
020040

2609
2610
2611

JRETURN FROM INTERRUPT
.,CLEAR CONTROL=-G FLAG

020131

042523
020040

2407

K7
SIGNAL

LASCIZ

042522

0126564
012510

BR
CLR

HED1:

012452

2405
2406

051105

020040

026455
026455

(SP)+,%4
(SP)+,%3
(SP)+,%2
(SP)+,%1
(SP)+,%0

; PRINT LINE FEED AND CARRIAGE RETURN

; RETURN FROM INTERRUPT

ERROR COUNTX/

LASCIZ
LASCIZ
LASCII
ASCIi
LASCIZ
.ASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ

/ERROR SET OK - CLEAR & TURN ON LINEZ/
/ERROR SET OK = CLEAR AND TRY NEXT CHANNELZ/
/XPRINT SPEED CHECK USING MANUAL TIMINGX/
/%PUT SWITCH O UP TO START TIMING%/
/%PUT SWITCH O DOWN AT END OF 1 MINUTEZ/
/XSTARTING EVFU PRINTING TESTSX/
\XLXY11/21-LXV11 LINE PRINTER TESTX\
/RESTART ADDRESS 600%/
/POWER ON - TURN ON LINEZX/
/ON LINE OK -~ TRY TORN PAPER SWITCHX/

MES?:

.ASCIZ

/ERROR SET OK = TURN ON LINEX/

MES7A:

.ASCII

/RE/

051117 MESA:
020122 MESB:
047111 MESC:
051440
020124
052122 MESDD:
030531 MESI:
051101 MESZ:
051105 MES3:
047111 MES4:

105

2404

EMT

;PRINT SWR VALUE
;PRINT HEADER

RTI

012415

Stg%

013771

104000

2369

EMT

MES24

011520

;BAD VALUE ?
JYES=PRINT HEADER

;CONVERT SWR VALUE TO ASCII

014010

2367

SEQ 0057

%5, CONV

MES25

000176
014010

PAGE 35-3

JSR

MES23

011060

11:24

JRETURN FROM INTERRUPT
;SET FLAG: CONTROL=-G ENTERED
JPRINT HEADER

000006

011512
011514

011516

001070

SIGNAL
TYPSWR
TK6
#1,SIGNAL
+0

TST
BNE
B8R
TYPSWR: MOV
EMT

176
MES2S
6

2364
2365

2366

MACY11 30A(1052)
MESZ22

013754

005737 001070
001001
000427
012737 000001
104000

12-MAR-81

.EVEN

MES7:
MESS8:

.EVEN

LASCII
LASCIZ

MESY:

LASC]]

MES13:

_AS(]]
ASCI]

MES10:
MEST1A:
MES11:
MES12:

.ASCIZ
ASCII
.ASCII
.ASCIZ

/READY SET OK = TRY FORMS THICKNESS LEVER SWITCHX/
/SET TOP OF FORM SWITCH TO
INCHESX/
7/

/====m—mescccccccsmmmeseooooaoosoooos

INCHES FROM THE LAST LINE
/
<12><12>
/XPRINT SPEED IS APPROXIMATELY /
LINES PER MINUTEZ/
/

THIS LINE SHOULD BE /

======ssss-s-sss-osococososossosso=-

=" /
/~===cs-s=s-eo--o—sooscssossossosmoooososmssse
/
e
o
mmm
s
s ss
eem
s e s
eme
e ssec
/eemee

YM=-7049A-AA

CZLXAA.SRC

(DECSPEC-11-BDFAD~A=D)

12-MAR-81 10:43

%2}2

013170

026455

2617
Sz}g

013232
013250

005012
020040

042524
005012

052123
000012

MES14:
Mgsgz:

2621 013364 026455 026455 026655
.EVEN
013464
2622
2623 013464 026455 026455 026455 MES18:
013556

020040

MESE9:

2626 013672

052040

051505

044524

MES20:

2427

013746

2629
2630
2631
2632

013752
013754
013760
013771

gz%g

014031

2428

2633
2634

014010
(014017

020040

013752

000045
037440
051445
040

000045
051127
020040

105

043126

020040
120

2437 014050 030504
2638
26439
2640
2641
2662
2443
2444
2645
2446
2647
2448
2649
2450
2451
2452
26453
2454
2455
2456
2457
2458

014052
014054
014056
014060
014062
0164064
014066
014070
014072
014074
014076
014100
014102
014104
014106
014110
014112
014114
014116
014120

000

031104
031504
020060
020061
020062
020063
020064
020065
020066
020067
020070
020071
030061
030461
031061
031461
032061
032461
033061
033461

020040
047514

.EVEN

236440
042516
020040
020124

020125

11:24

LASC]?
LASCI]

e mmc
e s s eme
/e=esemms
THERE SHOULD BE
/=-===----sssscs=scssssmmomssmsome=s

LASCIZ

.ASCII

/%/
/ 2%/
/XSWR = /
NEW SWR =
/

MESZ27:

.QSEIZ

XEVFU SLEW TESTX

/
.ASCIZ /
.ASCI1Z /PLOT TEST/
.EVEN

TNDAV1: _ASCII

TNO11:
TNO12:
TNO13:

TNO14:
TNO15:
TNO16:
TNO17:
TNO20:
TNO21:

.ASCII
.ASCII
LASCIT
LASCIT
LASCIDL
JASCIT
LASCIT
CASCIL
CASCIT
LASCIT
.ASCII
ASCII
.ASCII
_ASCII
LASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCI1
.EVEN

======---—=-soscsscocsssosssosoos
BLANK LINES BEFORE THIS LINE
/ TESTING CHANNEL SLEWING USING CHANNEL NO. /
7

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

TNDAV2:
TNDAV3:
TNOO:
TNG1:
TNOZ2:
TNO3:
TNO4 :
TNOS :
TNO6:
TNO?7:
TNO10:

SEQ 0058

msmemmmmmmmmm START=-L INE/
(ASCI] /===—==eo-ssscscossssmoesomooooooomooSeosomso
ecmS /
C oSS S ssmseeee
oS C S Smcm

MES21:
MES22:
MES23:
MES24:

MESZ5:
MES26:

PAGE 35-4

(ASCII
ASCIZ

MES20A: .ASCIZ
.EVEN

/===sescesemmescemsscooccsssssses n/
<12><12>/TEST NUMBER /
2>
/7 /7<A2><12><01

.ésgél

2620 013256 026455 026455 026455 MES16:
stg

12-MAR-81

MACY11 30A(1052)

/D1/

/D2/
/D3/
/0 /
/1 /
72/
/3 7
/6 /
/5 7
76 /
/7 /
/8 /
/9 /
/10/
/11/
/12/
/13/
/14/
/15/
716/
717/

;TEST NUMBERS FOR EVFU TESTS

YM-Z04GA-AA
( ZLXAA .SRC

(DECSPEC-11-BDf AD~A-D)
12-MAR-81 10:43

2468
2669
2470
2471
2472

2673
2474
2475

2476
24677
2478
2479
1)
P

2480
2481

2482
2483

2484
2485
2486

2487
@p)
)

2488
2489
2490
2491
2492
2493
2494
1)
1)

2495

2496

24697
(1)
(1)

2498
24699

2500
2501
2502
2503
2504

11:24

PAGE 36

;TESTS D1 AND D2

sCHECK EVFU LINE COUNT SLEWING

2664

Qb
N
Qb)

;EVFU PRINTING TESTS IF EVFU IS AVAILABLE -~ SET SWITCH 14

2460
24661
2462
24663
2465
26466
2467

12-MAR-81

MACY11 30A(1052)

014122

014126
014126
014134
014136

014144
014150
014156
014160
014762
014170

014176
014204
14210
014216
014222
014224
014224
014232
014236
014240
014244
014252
014260
014264
014266
014266
014272
014274
014300
014306
014314
014320
014324
014326
014326

014334
014340
014342
014342
014346
014350
014356

014406

EVIU:

000137

014660

022737
001003
052777
004437
013737

000176

001004

000100
010726
016050

164654

104000

012110
012737
012737
013737
004437
012737
005777
100010

012737
000055
004537
000000

000220
000221
014050
010656
014606

164556

000054

014210

105777

164506

012737
004437
005777

014216
000002
013256
010706
164454

100006

012737

000056
004537
000000
105777
100375

012737
013737
012737
012737
005777
100006

MOV

EMT

MESDD
MOV

014654
014656
013250
001040

001052

MOV
MOV

164570
000002
164554

000055

001040

001052

164374

010724
001040
007054
001036

TNDAV1 ,MESTS
X4 ,PRNNT

MOV

K54,

DAV1:

$ERROR

N=N+1
JSR

JMP

MoV
ADD
TST

alPS
DAV1
\N

:S/W SWR ?

:NO=- CONTINUE

;ENABLE KEYBOARD INTERRUPT
JINITIALIZE
s TYPE MESSAGE

;STARTING EVFU TESTS

;SET EVFU INSTRUCTIONS

;SET TEST NUMBER FOR MESSAGE
JPRINT

TEST NUMBER

;SET TABLE POINTER

;TEST FOR ERROR

;JBRANCH IF NO ERROR

;SFT UP ERROR COUNT 54

ERCOUNT

X5,STAER

:REPORT ERROR SET

DAVO

JRESTART TEST

;HALT ON ERROR

dCHRGEN ,aLPB

#2,(HRGEN

@CHRGEN
D5

;LOAD EVFU
; INCREMENT TABLE POINTER

:TEST IF DONE LOAD
;CONTINUE IF DONE

JWAIT

T1ST8B
B8PL

aLPS
JRYA

;TEST READY

D5:
DO:

MOV
MOV

#2,CYCCNT
AMES16,PRTMSG

ERRSS:

TST
B8PL
$ERROR
[01Y)

;SET CYCLE COUNT
;SET MESSAGE ADDRESS
;PRINT MESSAGE

#5S5,

JSR

X5,STAER

JREPORT ERROR SET

aLPS
-4

;TEST READY

#TNOO,STRCHR
#16. ,CHRONT

;SET TABLE POINTER

D1:

164432

#220,DAVI1
#221,DAVIZ

ERRS4:

BEQ
SWAIT

001044
010724

#DAVTAB, CHRGEN

HALT

164530

SSSP.MES19»2

MOV
TST
BPL

011142

013464
014654
014056
000020

JSR

OVER TESTS. MAY USE THESE IN THE FUTURE

DAVO:
DAVQU:

011142

000137
017777
062737
005777
001405
100375
000137
012737

013560

DAV?
JMP
;SKIP
SENASLE
#176,SWR
(MP
.+10
BNE
#100,aTKS
BIS
%4, TYPINT
JSR

D2:

JMP

DAVOO

JSR

X4 ,RINT
oLPS
D1

N N+1
HALT

SWAIT

TSTR
B8PL
MOV
MOV
MOV
MOV
TST
BPL

$E RROK

:WAIT FOR READY

;TEST FOR ERROR

;CONTINUE IF NO ERROR

ERCOUNT

;SET UP ERROR COUNT 55
;HALT ON ERROR

#MES18 ,PRTMSG
DAVI1, CHRGEN

;WAIT FOR READY
;SET MESSAGE ADDRESS
;FIRST EVFU INSTRUCTION

aLPS

;TEST FOR ERROR

;SET TABLE COUNT

JCONTINUE IF NO ERRORS

SEQ 0059

YM=-204GA-AA

{ZUXAA,SRC
1)
(1)

2505

2506
2507
2508
(1)
(1)

2509
2510
2511
2512
2513
2514
2515
2516
2517
2518
2519
2520
2521
2522
2523
2524
2525
2526
2527
2528
2529
2530
2531
2532
2533
2534
2535
2536
2537
538
2539
2540
2541
2542
2543
2544
2545
2546
2547
2548
2549
2550

(DECSPEC-11-8BDF AD=A=D)
12-MAR-81 10:43

014406
014414
014420

0144622
014430
014430
014434
014436

014444
014450
014456
014460
014466
014472
014474
014500
014506
014512
C14516
014520
014526
014534
014542
014546
014552
014560
014566

014574
014576
14602

014606
014610
014612
214614
014616
014620
014622
014624
014626

014630
014632
014634
014636
014640
014642

012737
000057
006437
000000
013777

105777
100375

017737
004437
022737
001003
062737
005337
001407
005237
062737
000137
005337
001415
062737
062737
013737
004437
000137
012737
012737
032777
001002
000137
000137

000056

001052

MACY11 30A(1052)
ERRS6:

011142
001040

164352

D3:

164344
164412
010706
000020

013556

000002
001036

001054

001040
000002
014400
001044
000140
000140
014052
010656
014306
000220
000221
010000

014660
014122

N=N+1
JSR

HALT
MOV

SWAIT
TSTB

BPL
MOV
JSR
CMP

001036
D31:

001054
:
D4

DEXO:

#56,

CHRGEN,aLP8
aLzs

@STRCHR,MES19
X4, RINT

#16.,CHRCNT

031

BEQ
INC

CHRCNT
D4
CHRGEN

ADD
JMP

DEC
BEQ

#2,STRCHR

CYCCNT

DEXO
#140,DAVI
#140,DAVI2
TNDAVZ2 ,MES15
X4 ,PRNNT
DO
#220,DAVI1
#221,DAVI2
1%

1%:

000036
000001
000002
000003
000004
000005
000006
000007
000010
000011
000012
000013

DAVTAR:

000220
000221

DAV!1:
DAV]2:

014650
014652

DAVZ2

EVFU

11 :24

PAGE 36-1

;SET UP ERROR COUNT 56

ERCOUNT

%4 ,STAER

BNE

ADD
DEC

#BIT12,aSWR

014644
014646

014654
014656

MOV

12-MAR-81

;REPORT ERROR SET
JHALT OM ERROR

U INSTR.
JSEND Ev/

JWAIT

:TEST READY

:WAIT FOR READY

;SET PRINTER MESSAGE
;PRINT MESSAGE

JCHECK IF JUST DONE O SLEW
;BR IF NOT

;CORRECT FOR AUTO LF

;DEC TABLE COUNT

JEXIT TEST IF DONE

JNEXT EVFU INSTR.

JINC TABLE POINTER
s CONTINUE
;DEC CYCLE COUNT
JEXIT I1F DONE
s CHANGE EVFU INSTR.
; CHANGE EVFU INSTR.
;SET TEST NUMBER FOR MESSAGE
sPRINT

TEST NUMBER

JRETEST LINE COUNT SLEWING
JRESET EVFU INSRT,
JRESET EVFU INSTR.

;LOOP ON TEST?
.LOOP
JNEXT TEST
.LOOP

JEVFU LOAD TABLE

SEQ 0060

YM=2049A~AA

CZUXAA,SRC

(DECSPEC-11-BDFAD=A=D)

12-MAR-81 10:43

2557

014660

(1)
(1)

014660
014666

022737
001003

000176

001004

16412

2563

014670 052777 000100
014676 004437 010726
014702

013737

016050

(1)
25€2

2564

2565

2566
2567
2568
2569
2570
2571
2572
2573
2574

014710

014716

014722
014730
014736
0147446
014752
014760
014766
(14772
014774

012737

004437

012737
012737
017737
012737
012737
017737
005777
100007

014031

010706

014056 015370
016012 015364
000422 001054
014062 015372
015374 015362
000376 001040
164006

014774

2575

015002

004537

2576
2577
2578
2579
(1)
(1)
2580
2581
2582

015006
015010
015012
015020
015020
015024
015026
015032
015034

000000
000760
013777
105777
100375
005777

100010

015034

012737

2583 015042
2584 015046
2585 015050
2586 015054
2587 015062
2588 015070

004537
000000
000137
062737
017737
022737

(1)

Sggg

015076

000061

001345

163762

000060

001052

014752

000002
000274

077777

015362
001040

CMP
BNE

#176,SWR
.+10

SEQ 0061

MOV

SP5P,MES19+2

;S/W SWR ?
:NO- CONTINUE

#MES27 ,PRTMSG

;POINT TO MESSAGE

LOAD:

MoV
MOV
MOV
MOV
MOV
MoV
“ST
BPL

#TNOO ,MTABP
#1TAB,ITABP
@I TABP,STRCHR
#TNO2 ,HTABP
#DTAB,DTABP
aDTABP,CHRGEN
alLPS
DL

;SET MESSAGE TABLE POINTFR
;SET INSTRUCTION TABLE POINTER
;SAT FIRST INSTRUCTION
;SET HEADER MESSAGE TABLE POINTER
;SET DATA TABLE POINTER
;SET FIRST DATA PAIR
:TEST FOR ERROR
;JBRANCH IF NO ERROR

ERR57:

MOV

K57,

JSR

X5,STAER

JSR

DL1:

ERR60:

011142

DL6:

$ERROR

N=N+1

HALT
BR
MoV
SWAIT
1ST8B
BPL
TST
B8PL

$ERROR

MOV

N=N+1

JSR
HALT
JMP

;SET UP ERROR COUNT 57

ERCOUNT

;JREPORT ERROR SET

LOAD
CHRGEN,aLPB
aLPS
.=6
aLPS

DL6
\N

460,

;HALT ON ERROR
JRESTART LOAD
JLOAD EVFU
JWAIT
JTEST READY
;WAIT FOR READY
;TEST FOR ERROR
;BRANCH IF NO ERROR

;SET UP ERROR COUNT 60

ERCOUNT

X5.STAER
LOAD

ADD
MOV

#2 ,DTABP
aDTABP,(HRGEN

BNE

pL1

CMP

001040

R4 ,RINT

477777 ,CHRGEN

;REPORT ERROR SET
JHALT ON ERROR
JRESTART LOAD
;INC DATA TABLE POINTER
;SET NEXT DATA PAIR
;DONE LOAD?

;START OF (HANNEL SLEW TESTS

015100

012777

000020

(1)
(1)

015106
015112

105777
100375

163666

015106

015114

2596 015114
2597 015122
2598 015130
2599 015134
2600 (015142
2601

PAGE 36-2

MOV

163746

2593
2595

11:24

;ENABLE KEYBOARD INTERRUPT
;INITIALIZE

163754

%gg}
25%4

#100,aTKS
X4, TYPINY

011142
001040

SENABLE

BIS
JSR

010724

(1)

000060

DAVZ2:

013560

012737 000057 001052

(1)

12-MAR-81

;TEST D3
;CHECK EVFU CHANNEL SLEW COMMANDS

2558
Sggg
2561

MACY17 30A(1052)

015150

017737 000252
012737 013672
004437 010706
012737 000012
013777 001054

163674

013746
010724

001056
163632

DL8:
DL8A:

DL9A:
DLY:

MoV

#20,3LPB

JSEND CHAN. 1 TO INIT EVFU

TSTB
BPL

alLPS
.~4

;TEST READY
;WAIT FOR READY

MOV
MOV
JSR
MOV
MOV

OHTABP ,MES20A
#MES20,PRTMSG
24 ,RINT
#12,STRONT
STRCHR,aLPB

;SET HEADER MSSG ADDRESS
;SET HEADER MSG ADDRESS
;PRINT HEADER MESSAGE
;SET FOR 10 TRYS
JSEND EVFU INSTRUCTION

SWAIT

JWALT

YM-Z049A-AA
CILXAA «SRC

2603
2604
(1)
1)

2605

2606
2607
2608
2609
2610
2611

2612
2613
2614
2615

2616
2617
2618
2619
2620
2621
2622

2623
2624

2625

015172
015176
015200
015204
015212
015214
015222
015224
015232
015240
015244
015250
015252
015260
015266
015274
015300
015302
015310
015312

015320
015320
015324
015326
015334
015336
015342
015350
015352
015356
015362
015364
015366
015370
015372

105777
100375

005777
100010

012737
000062
004537
000000
000137
022737

001404
013737
000403
017737
012737
004437
005337
001334
062737
062737
062737
005777
001404
017737
001273
012777
105777
100375

032777
001402
000137
032777
001402
000137
000137

000000
000000
000000
000000
000000

TSTR
BPL
TST
BPL

163624

163616
000061

001052

ERR61:

011142
014752
000012

001056

014106

013556

000140
013464
010706
001056

013556
010724

000002
000002
000002

015370
015372
015364

000056

001054

000036

163462

000064

DL10:

DL10A:
DL10B:

014660
002000
016222
003310

CMP

BEQ

MOV
B8R

MOV
MOV

JSR
DEC
BNE

BEQ

MOV

DL12:

BNE

DLEX:

DLEX1:

#61,
X5,STAER

JREPORT ERROR SET

LOAD

JRELOAD EVFU

JHALT ON ERROR

#12,STRCNT

MTABP:
HTARP:

O
O

sFIRST TIME?

DL10A
TNO14 ,MES19
DL10B
aMTABP ,MES19
A#MES18,PRTMSG
X4 ,RINT

;BR=YES
;SET MESSAGE
;BYPASS
;SET MESSAGE
;SET MSG ADDRESS
;PRINT MESSAGE

al TABP
DL1?

;DONE?
;BR-YES

;DEC INSTR COUNT
FINISH TESTING THIS CHANNEL
;INC MSG TABLE POINTER
;INC HEADER MSG TABLE POINTER
;INC INSTR TABLE POINTER

STRCNT
DLY
#2 .MTABP
#2 ,HTABP
#2,1TABP

;GET INSTRUCTION
;CONTINUE [F NOT DONE TEST

DI TABP,STRCHR
DL8

#BIT12,aSWR

O
0

;SET UP ERROR COUNT 61

ERCOUNT

BIT
BEQ
JMP
B8IT
BEQ
JMP

DTABP:
ITABP:

;TURN OFF EVFU

;TEST READY
;WAIT FOR READY

alLPS
=4

;LOOP ON TEST?

DLEX

;LOOP ON TEST
;DO PLOT TESTS?
;BR=ND
;GO DO PLOT TESTS
JRECYCLE PRINTING TESTS

DAVZ2
#81T10,aSWR
DLEX1
PLPRT
TESTZ2

;DATA TABLE POINTER

;INSTRUCTION TABLE POINTER
s INSTR COUNT TABLE POINTER
JMESSAGE TABLE POINTER
;HEADER MESSAGE TABLE POINTER

ICTABP: O

;DATA TABLE FOR EVFU LOAD
015374
015376
015400
015402
015404
015406

000036
000020
000021

:START LOAD
;WORD

;WORD
;WORD

;WORD

015410
015412

015414
015416

DTAR:

000030

PAGE 36-3

;TEST READY
;JWAIT FOR READY
;TEST FOR ERROR
;BRANCH IF OK

#SL ,aLPB

JMP

11:24

aLPS
.~
alLPS
Qh10

MOV
SWAIT

TSTB
B8PL

163450

163434

JSR
HALT
JMP

ADD
ACD
ADD
TST

163454
010000

$ERROR
MOV
N=N+1

:WORD
:WORD
;WORD
:WORD
; WORD

OO0 NN
NN —

2602

015150
015154
015156
015162
015164
015164

12-MAR-81

TR
ER

1)
1)

(DECSPEC-11-BDF AD-A-D)
12-MAR~-81 10:43

MACY11 30A(1052)

SEQ 0062

——

015464
C15466

015470
015472
015474
015476
015500
015502

000024
000025
000026
000027
000030
000031
000032
000033
000034
000035
000021
000022
000023

;WORD
;WORD
;WORD
;WORD

;WORD
;WORD

;WORD
;WORD
:WORD

;WORD
;WORD

:WORD

;WORD

;WORD
;WORD
; WORD
; WORD
;WORD
;WORD

015504

; WORD

015514
015516
015520

;WORD
;WORD

;WORD
:WORD
:WORD

015506
015510
015512

;WORD
; WORD

015522
015524
015526
015530
015532
015534
015536
015540
015542

s WORD
:WORD
;WORD
:WORD

;WORD
;WORD
:WORD

:WORD

;WORD
;WORD
;WORD
;WORD
:WORD
:WORD

;WORD
; WORD
;WORD
;WORD
; WORD

;WORD
;WORD

000034

;WORD

Y
T

;WORD

;WORD
;WORD

000031
000032
000033
000034
000035
000021
000022
000023

PAGE 36-4

T G D

2654
2655
2656
2657
2658
2659
2660
2661
2662
2663
2664
2665
2666
2667
2668
2669
2670
2671
2672
2673
2674
2675
2676

015420
015422
015424
015426
015430
015432
015434
015436
015440
015442
015444
075446
015450
015452
015454
015456
015460
015462

5
11:264
OV NOAWNEWN—2O

2652
2653

[\ NG YOI

CZLXAA,SRC

(DECSPEC~11-BDFAD=-A~D)
12-MAR-81 10:43

12-MAR-81

§\§§§§\§\§§&*Q&&§§§§§\§§*\‘§§§§§§§§‘***\‘Q\‘\&\‘h\k\h&&\

YM=-Z049A-AA

MACY11 30A(1052)

SEQ 0063

—

2763

:WORD

015714
015716
015720
015722
015724
015726
015730

000033
000034
000035
000021
000022
000023

102

NN &S W

;WORD

s WORD
;WORD

b md

;WORD

015674
015676
015700
015702
015704
015706
015710
015712

;WORD

: WORD

;WORD

;WORD
; WORD

s WORD
:WORD
;WORD

;WORD

b e

:WORD
;WORD
;WORD
;WORD
:WORD
;WORD

;WORD

d e ed ek = QOO OOOCO

:WORD
:WORD
; WORD
; WORD

015660
015662
015664
015666
015670
015672

;WORD

=S OV NONWNIS
WY — OV

2760
2761
2762

000034
000035
000021
000022
000023
000024
000025
000026
000027
000030
000031

;WORD

2753
2754
2755
2756
2757
2758
2759

000032
000033

; WORD

e e

2736
2737
2738
2739
2740
2761
27462
2743
2744
2745
2746
2747
2748
27469
2750
2751
2752

015652
015654
015656

000031

ed e

2735

015630
015632
015634
015636
015640
015642
015644
015646
015650

000027
000030

2734

015626

000026

;WORD

PAGE 36-5

b ed e

2733

015614
015616
015620
015622
015624

;WORD
:WORD
:WORD
;WORD
;WORD

5
11:264

2714
2715
2716
N7
2718
2719
2720
2721
2722
2723
2724
2725
2726
2727
2728
2729
2730
2731
2732

015604
015606
015610
015612

000035
000021
000022
000023
000024
000025

PON)

2713

015600
015602

12-MAR-81

\Q&\\\\‘\“Q‘\*\\\Q‘\Q\\*Q\*\\*§\\\*\“\*\Q\Qfi\\\*\\\\&\

2708
2709
2710
2711
2712

MACY11 30A(1052)
NPINLNLPLNO
PNV W
NONWN W) =W

YM-Z049A-AA
CZLXAA.SRC

(DECSPEC-11-BDF AD-A~D)
12-MAR-81 10:43

SEQ 0064

YM-Z049A-AA
CZLXAA

2764
2765
2766
2767
2768
2769
2770
277
2772
2773
2774
2775
2776
2777
2778
2779
2780
2781
2782
2783
2784
2785

2786
2787
2788
2789
2790

27N

(DECSPEC-11-BDFAD=A=D)

12-MAR-81 10:43

015760
015762
015764
015766
015770

015772
015774
015776
016000
016002

016004
016006
016010

12-MAR-81

MACY11 30A(1052)

000025
000026
000027
000030
000031
000032
000033
000034
000035
000035
000037
077777

11:24

PAGE 36-6

:WORD # 122
:WORD # 123
;WORD # 124
:WORD # 125
:WORD # 126
:WORD # 127
:WORD # 128
:WORD # 129
:WORD # 130
:WORD # 131
:WORD # 132
:STOP LOAD!

24
25
26
27
30

000024

3
32
33
34
35
35
EL

77777

:STOP!!

;INSTRUCTION TABLE FOR EVFU CHANNEL SLEW INSTRUCTIONS
016012
016014
016016
16020
016022
016024
016026
016030
016032
016034
016036
016040
016042
016044

000021
000022
000023
000024
000025
000026

016046
016050

020063
020040

000027
000030
000031
000032

000033
000034
000035

34
35

000000
FS:
SPSP:

; CHANNEL 2
;CHANNEL 3
;CHANNEL 4
:CHANNEL 5
; CHANNEL 6
:CHANNEL 7
; CHANNEL 8
:CHANNEL 9
;CHANNEL 10
;CHANNEL M
;CHANNEL 12
;CHANNEL 13
;CHANNEL 14
JEND OF TARLE

21
22
23
24
25
26
27
30
31
32
33

ITAB:

LASCIT
ASCIT

/3 7

/7.7

;SCOPE LOOP ROUTINE

:SET CHARACTER IN SWITCH REGISTER -0.
016052

022737
001003
052777
004437
017737
012737
042737

000176

001004

000100
010726
162704
177574
177400

162730

105777
100375

162656

005777

162650

001050
001036
001050

SCOPE:

$ENABLE

CMP

BNE
BIS

JSR

MOV
LDLPX:

:S/W SWR ?

#176,SWR

:NO- CONTINUE
:ENABLE KEYBOARD INTERRUPT

.+10
#100,3TKS
L4, TYPINT

aSWR, SAVE

;FETCH SWITCHES

21776400, SAVE

‘MASK CHARACTER

#-132. ,CHRCNT

:SET CHAR COUNT

aLPS

;TEST READY

aLPS

*TEST FOR ERROR

*WAIT

FOR READY

SEQ 0065

YM=7049A-AA
CZLXAA -SRC

2810
2811
(1)
1)

2812
2813
2814
2815
2816
2817
2818
2819
2820
2821
2822
2823
1)
(1

2824
2825
2826
2827
2828
2829
2830
2831
2832
2833
2834
(1)
(1)
(1)

2835
2836
2837

(DECSPEC-11-BDf AD=-A=D)
12-MAR-81 10:43
'

016130
016132
016132
016140
016144

016146
016154
016162
016164
016166
016170
016174
016200
016202
016210
016210
016214
016216

MACY1T 30A(1052)

000062

001052

001050
004000

105777
100375
000715

000012

SEQ 0066

62,

JSR

X5,STAER

;JREPORT ERROR SET

LPSCOPE :MOV

SAVE ,aLPB

;LOAD PRINTER BUFFER

LSCO

;NO,

$ERROR

=N+

HALT

BIT

LSCA:

HALT
BR

162564

ERCOUNT

SCOPE
aLOSCOP

JMP

CHRCNT
LDLPX

INC
BNE

MOV
SWAIT
TSTR
BPL

162572

;JBRANCH [F NO ERROR

#81T711,aSWR

BEQ
LSCO:

000024
001036

PAGE 37

mox :

ERREZ:

000000

000731
000177
005237
001346
012777

11:24

LPSCOPE

011142
162626
162622

8PL

100006

012737
000063
004537
009000
013777
032777
001402

12-MAR-81

°*

#12.3LPB
aLPS

.~4
SCOPE

;SET UP ERROR COUNT 62
JHALT ON ERROR

JSEND ONLY ONE CHAR?
BRANCH

JHALT = WAIT FOR OPERATOR
JNEXT CHAR

SSEND LF?

;s INCREMENT (HAR COUNT
JCONTINUE IF NOT DONE LINE
JSEND LF

;TEST READY

JWAIT FOR READY
2 CONT INUE
Ve

016220

016174

LOSCOP:

LSCA

JPLOT TEST

:DRAWS 132 LIMES WITH FLOATING SPACE THEN 132 LINES WITH FLOATING DOT
016222
016222
016230
016232
016240
016246
016252
016260
016260
016264
016266
016274
016300
16306
016312
016320
016322
016326
016334
016342
016350
016356
016362
016370
016372
016376
016402
016404

022737
001003
052777
012737
004437
012777

000176

105777
100375
012737
004737

162514

012737
004737
032777
001362
000137
012737
012737
012737
012737
012701
023737
001027
013703
023703
103422

062703

000100
014017
010706
000012

000240
016326
005101

016326
010000
003310
000001
000001
000001
000001
000077
001042

016562
016560
000006

001004

PLPRT:

162560

010724

BIS

#176,SWR
.+10
#100,aTKS

;S/W SWR ?
sNO- CONTINUE
;ENABLE KEYBOARD INTERRUPT

Mov

#12.,3LPB

;DO 1 BLANK LINE

SWAIT

016450

PLT:

016450

PLZ:

162464

016560

'
BNE
MOV
JSR

162522

001042
016556
016560
016562

S$ENABLE

TSTB
BPL
MOV
JSR
MOV
JSR
BIT
BNE

alLPS
.~4
#240,LGL2
PC,LINGO

MOV
MOV

#1,DRKLIT
#1,8YTPOS

LINGO:

JMP
MOV

LGLO:

MOV

LGL1:

AMES26,PRTMSG
R4 ,RINT

MOV

CMP
BNE
MOV
CMP
BLO
ADD

#5101,LGL2

PC,LINGO
#81T12,3SWR
PL1

TEST2
#1,LINCNT

#1,D0TPOS

#77.R1

LINCNT,BYTPOS
LGL2

DOTPOS,R3
BYTPOS.R3
LGL2
#6,R3

JPRINT

TEST HEADER

s TEST READY
JWAIT FOR READY
;SET SUBROUTINE FOR FLOATING SPACE
;GO DO IT
;SET SUBROUTINE FOR FLOATING DOT
;G0 DO IT
.LOOP ON TEST?
;BR=YES

;G0 TO TEST 2
sSET LINCNT

oSET BYTE POSITION

;SET DOT POSITION

.
’

———

YM=-7049A-AA
CZLXAA .SRC

2857

(DECSPEC-11-BDF AD-A-D)
12-MAR=81 10:43

016410
016414
0164616
016422
016¢£26
016432
016440
016442
016450
016452
016456
016462

016466
016474
016502
016504
016510
016514
016520
015524
016530

01€536
01¢540
016542
016546
016552
016554
016556
016560
016562

023703

103015
043701

005237
006337
032737
001403
012757
000240
042701
052701
004737
062737
023727

103725
012701
004737
012701
004737

005237
023727
001304
000207

010177
105777

100375
000207
000000
000000
000000

000001

(MP
8CC
BIC

016560
016556
016560
016556
000100

016556

000001

016556

INC

177700

000100
016542
000006
016562

000005
016542
000012
016542
061042
001042

12-MAR-81

MACY11 30A(1052)

ASL

BIT
BEQ

LGLZ:

016562
001431

DRKLIT,R1
BYTPOS
DRKLIT

#100,DRKLIT

LGLZ

M ,DRKLIT

ADD
cMp
BLO
MoV

#6,DOTPOS

JSR

MOV

PAGE 37-1

BYTPOS,R3
LGLZ

MOV
NOP
BIC
BIS

JSR

(.
11:24

#177700,R1
#100,R1
PC,PLOT

;NOP IF DRAWINC FLOAT SPACE 5101 'IF NOT
;GO PLOT

DOTPOS ,#793.
LGL1

#5,R1
PC,PLOT
#12.R1
PC,PLOT

L INCNT

, #793.
LINCNT

001431

LGLO

162234

162226

R1,aLPB
aLPS
1%

PLOT:

1%:

DRKLIT:

0
BYTPOS: 0
DOTPOS: 0

.END

;SEND (HARACTER
JWAIT FOR READY

SEQ 0067

CLCKAV
CNTR
CNTRLG
CONV
CONVRT
CSBR
CYCCNT

DAVIT

002412
003074
011420
011060
003110
001022
001044

014654

10974
1650
1895

2132«

10984
1568+
1655
1797+
1902

1583
2168

2122
2174

2851
1335«
2354

1409«
*
1664
1909«

2147

1412%
1569
1676«
1824*
1908

2854
2315«
1419«
1670
1933

2068
2484x

2314

14354
23484
2289

1443+

10204
11004

1853+
2079+
2472+

2860+
2317

28864
2319

2321

2324

2332

1521«
1696+
1945«

1525«
1704
1975«

1540+
1738~
1984«

1548+
1747+

1429
1388+
1411+
1854+

2133+
2499

1416
1575
1707+

1855«

1831
1913+

2062
2483

22674

1840

2514«

2501~
1413#
1571
1697

2023+
24 /6>

13584
1399«

1630
2528

2363

1930«

1444

14504

1421+
1870

1502+

2150~
2521+

1894«

2157«
2526+

2805+

1418
1577
1720*

1856«

1952

2074
26499+

2076+
2507

1526+
1911«
2689
2555#

1538«
1916+
2519+

2820~
1541«
1599«

1739+
1857
1953+
2078+
2516+

CHRGEN

001040

2350

1809

2629

CHRCNT

001036

11124

2843

1766

1877

2626

1726

1428

—_

CHAR

001074

886#
885#
898#
8974
8964
895#
8944
8934
8924
8914
2848+

1683

2158

——

BIT13 = 020000
BiT14 = 040000
BIT15 = 100000
BIT2 = 000004
8IT3 = 000010
BIT4 = 000020
BITS = 000040
BIT6 = 000100
BIT7 = 000200
BIT8 = 000400
BIT9 = 001000
BYTPOS 016560

2155

—

000002
002000
004000
C10000

22854

=
=
=
=

2280«

2169

010446
010516
010526
= 000001

2278+

AC3
AC4
ACS
AC7
BITO
BIT1
BIT10
BIT11
BIT12

2276%-.
2167

SEQ 0068

AC2

ACO
ACOO
ACOOA
AC1

11:264
PAGE 38
12-MAR-81
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS

ACVN

b ed od D

010166
010202
011072
010266
010252
010236
010340
010362
010430

NNV
WD
NHEOOW

ACPRT
ACPRTA

=SNONNNION

010310
010332

ACOA
ACOB

2271
2165
21404
21224
21254
2282

(N b =D

011140

ACNVX

(DECSPEC-11-BDFAD~A~D)
12-MAR-81 10:43
PN
n
n AONLRALNDNINVNUNNLND
—ed e d d D AP\ = O =)
00
© oo
0000 00 00O
—
~
oo
000000 O VON)
—
N n OO VOV
&
x
&
[ Rreuen

YM-Z049A~AA
CZLXAA.SRC

1965

1990

2333+

2348+

2349+

2014+

1606+
1788«
2060+

1622+
1832+

1648+
1893+

2005+

1598+
1779+«

1547

1550+
1608«
1781«
1895+
2007«
2146
2578

1553
1609
1787
1896

1666+

1679+

1605
174C

1868
1957«

2134
2571«

1649+
1958~

2006+

1923

2097+

1561«
1652+

1567
1654*
1795+

1793

1900+

=
1907
2021+
2156+

1791«
2061+

1798+

019
154+

2013
2149+
2587

2017«

2090+

1780~

2026+

2072+

2527+

25564

2530

25614

1400+

16364

SEQ 0069

2628
1450+

2328

2334

2344

2869+
2861+

2870
2862

28874
2864+

2885#

2586+

2587

26344

2327~

WWN—'NuNNNNN
AN
L8 2
13» eeER

b —d —d

1148+
1258«
1700+
*
2094

001672
001732
001772
001310
002032
002132
002154

PAGE 38-1
MACY11 30A(1052)
SYMBOLS
USER
CROSS REFERENCE TABLE ==

2775

001576

001634
001656

6
11:26

2375+«

2589

ERR12
ERR13
ERR14
ERR1S
ERR16
ERR17
ERRZ2
ERR20
ERR21
ERR2Z2

001524
001546

2522+
2534m

9464

ERR10
ERR1T

001222
001244

957
2520
2318
1376~
11094
10144

ERRO
ERR1

015342
015356
015012
015204
015224
015232
015312
15054
015100
015114
015142
015134
010576
016562
016556
015374
015362
014306
014342
0714400
014422
014466
014512
014300
200037
001052

2473
2476
24L76M
24L77H
2478

DLEX
CLEXT
oL
OL10
DL10A
DL10B
DL12
DLE
OL8
DL8A
DLY
DL9A
DOAGN
DOTPOS
DRKLIT
DTAB
DTABP
DO
D1
D2
D3
03
D4
DS
EL
ERCOUN

014656
014606
014219
014216
014244
014660
014552
011402
003076
001066
001006
000174

md el ol

DAVIZ
DAVTAB
DAVO
DAVOO
DAV
DAV2
DEXO
DGTS
DIA
DIGITS
DISPLA
DISPRE

(DECSPEC-11-BDFAD-A-D)
12-MAR~81 10:43

—

YM-Z049A~AA
CZLXAA.SRC

12-MAR-81

1173+
1300+
1828+
2222+

1182+
1305«
1864%

2290

1206+
1498+
1938+

2494>

1216*
1507+
1949«

2504+

1221+
1544+
1978+

2574+

1228+

1564+

2010+
2582+

1241+
1602+

2030+
2604+

YM-Z(049A-AA

CILXAA.SRC

12-MAR-81 10:43

015164
016132
001470

13124
14984
15074
15640
15644
11684
16024
16194
16584
17004
17434
17844
18284
18644
11734
19054
19384
“ 9490
19784
20104
20304
20654
20854
11824
20944
21374
21434
22220
24754
2494
25044
2574
1197#
25824
26044
28114
1206#

007266
007252

20034
20014

ERR23
ERR2G
ERROS
ERRO6
ERR27
ERR3
ERR30
ERR31
ERR32
ERR33
ERR34
ERR3S
ERR36
ERR37
ERRG
ERRGO
ERRG1
ERRG2
ERRG3
ERRGL
ERRGS
ERRGG
ERRG7
ERRS
ERRS0
ERR51
ERRS2
ERRS3
ERR5G
ERR5S
ERRS6
ERRS7
ERRG6
ERR6D

002214
003340
003416
003642
003760
001340
004222
004334
004544
005010
005264
005526
005776
006224
001362
006464
006656
006730
007124
007332
007454
007664
010006
001412
010060
010316
010346
010672
014224
014326
014406
014774
001444
015034

EVFU
EXPRT
EX0

014122
007216
007302

ERRG61
ERR62
ERR7

EX00
EX00A

EX1
EX2

EX3
EX&
EX6
EX7

FS
HAMALN
HAMX
HAMX1
HAMIX
HAM?
HED1

HSPRT

(DECSPEC-11-BDF AD=-A=D)

007324
007346

007414
007432
007540
007470

016046
007046
010542
010556
007110
007116
011570

005412

MACY11 30A(1052)

11:24

PAGE 38-2

(ROSS REFERENCE TABLE =-- USER SYMBOLS

2176
986
20054

24664
19984
2039

2531
2043
2041

20084
2009

2022

2018
2015
2036
2029

2020
20134
20234
2006
20424
20334

1991

979

19714
21774
21804
1989
1985
229
17724

27954
983~
2175
2178
19754
19764
2291

12-MAR-81

23904
1810

2025

SEQ 0070

YM=-7049A~AA

CZLXAA,SRC
HSO

HS00
HSO0A

HS1

HS2

005476

005520
005542

005610

HTABP

015372

HS4
HSé

ICTABP
INTIC
INTID
1TAB

ITABP

kWl1lL
KW1TP
LDCH
LOLPX

12-MAR-81 10:43

005462
005446

HS3

005626
005676

015366
002076
002230
016012

015364

002626
002546
003774
016116

LEGCHR 001060
LFT

LFTTR
LFTO
LFT1
LFT2
FT13
LFT4
LFTS
LFT6
LGLO
LGL]

LGLZ2

006366

006332
006374
006416
006436
006456
006500
006530
006546
016350
016356

016450

LINCNT 001042
LINGO

LKS
LKSRV
LOAD
LOGICA
LOSCOP

LPB

LPS

(DECSPEC-11-BDFAD~A=D)

016326

001026
003100
014752
010566
016220

001002

001000

1806

1808

17824

1794

1796

1799

1792

17974

2618+

26384

1783

1789
1803

2569+

26364
1237
1296
2567

(016146

17874

18004
18094

2596

12894
13184
27804

11:24

PAGE 38-3

2567«

2568

2619»

2620

2622

26354

11064

1406*

2128+

1408

2152

1414

1594~

1609

1775«

982
18934
18964
1897
19034
1904
1912
1910
28494
28504

1880
1921
1899
19004
1914
19084
19154
19184
2878
2871

18894

1924

1099#

1371+

1385+«

2858

2863

28654

1751+
1929«

1754~
1931

965
966
1563
28074
2074
18924

2839+

1647«
1874+

2035+

2840

10224
939
2570
927
990

1008#

1613«
1834«
2068+

2593«

10034
1244
1427
1698
1947

2823

810

1364
1369
1567#
2821

2841+

1672+
1875

2059+

2842

1361
16434
2577
21844
995«

1155+«

1616*
1867+
2081+

2600%

1141

1252«
1505
1711
1961

2100
2497
2838

28144

SEQ 0071

CROSS REFERENCE TABLE == USER SYMBOLS

17794

17774
17754

2092
2492
LPSCOP

MACY11 30A(1052)

12-MAR-81

13954
13844
1578

1793

1851«

1859

2001+

2019

2056+

1453

1455+«

1461

16463~

1468

1597«

1850+
1988+

1626+

1858
2004+

1559+

1567+

1579+

1605+

1917
1922

2852

1674
1892+

2855

1396+

1749«
1893

2101+

2131+«

1400

16401~

2585

2607

2819

28274

1624*
1872+
2088+

1655+
1908+
2091+

28464

1156+

2624+

1146

1254
1524
1741
1976

2135
2502

2882

1213%«

2814+

1157

1261~
1542
1753
1981

2141
2508

1413

1750*
1920+

1425+

1778+
1934

1802+
1962+

2161~

2846+

2851

2876

2877

1418«

1426*

1520*

1523+

1547«

1823«
1963

1837+
19764

1668+
1918+
2099+

1681«
1941+«
2140+

1703%
1952+
2146+

1710«
1960«
2159+

17646+
1983+
2207+

1752«
1986+
2226

1787+
2013+
2483+

1800+
2026
2507+

1831«
2033+
2578«

1166

1180

1195

1204

1214

1219

1226

1239

2822+«

1263+
1560
1782
1987

2160
2572

2837+

1271+
1562
1801
2008

2201
2579

2881w

1273+«
1580
1826
2027

2203
2580

1281+
1600
1835
2028

2208
2594

1283+
1614
1862
2034

2212
2601

1298
1617
1873
2063

2220
2602

1303
1625
1903
2082

2225
2625

1310«
1656
1919
2083

2477
2807

1319«
1669
1936
2089

2487
2808

YM=-7049A~AA

CILXAA.SRC
LPS7

P2
LP2B
LP2E
LPOH
LP3
LP3x

P4
LPS
LSCA
LSCO

12-MAR-81 10:43

006056

18404

001562
003432
003656
003746
001650
001672

1220
1506
1543
1539
1240
1245

001540

LP1

002146
002170
016174
016170

- 000020

MESA
MESB

}8%?'

(12623

24094

MES11
MEST1A
MES12
MES13
MES14

012736
012734
012775
013024
013232

MEST6

1299
1306
G90
2816

013250
013256

13034
13084
2820
28194

2827

;?8}”

I 4

23934
2471
23974

1472
1473
1452
24134
2219

26114
26104
24124

2127«

26204

2228

1537+

15378

2417

1593~

2418

2474+

2490

MES18

0713464

24234

2498

2613

MES2
MES20
MES20A
MES21
MES22
MES23
MES24
MES2S
MES26
MES27
MES3
MES&
MESS
MES6
MES?7
MES7A
MESS8
MESY

012212
013672
013746
013752
013754
013760
013771
014010
014017
014031
012237
012270
012334
212415
012454
012452
012510
012526

1136
246264
24278
2374
2356
2362
2370
2365
2434
24354
1138
1152
1177
1163
24054
2404
24064
24084

23984
2597
2596+
24294
c4304
24314
24324
2368
2835
2564
23994
24004
24014
1186

24334

MLF1
MLF?2
MLF4
MTABP

005300
005334
005402
015370

1742
1752#
1740
2566

MEST9

MINCNT
MLF
MLFA
MLFO

013556

003072
005176
005240
005256

24240

1388
978
17384
17414

26469+

1399
17344
1760
1748

172464
1755
17664
2612

12-MAR-81

11:24

PAGE 38-¢4

SEQ 0072

CROSS REFERENCE TABLE =-- USER SYMBOLS
1227

1375
23964
1134

1507+

MACY11 30A(1052)

12194

12244
15104
15474
15614
12444
12494

23914
23924

011731
012110
012147

MES1S

1215

011617
011656

MESC
MESDD
MEST

MES10

(DECSPEC=11-BDFAD-A-D)

2509«

)

15954

16468

16938

17364

1774

18224

18484

1894

19734

200C4

1646+

1693+

1736+

1774+

1822+

1848+

1891+

973+

2000+

2055¢

2563+

2610+

2612+

2523+

26024

14344
1767

2617+

26374

—

YM=-2049A-AA

(DECSPEC-11-BDFAD=-A=D)

12-MAR-81 10:43
CZLXAA.SRC
10260
= 000063
. N
NOP

NTRDY

= 000240
010646

NUMCHR 001062
ocY

001076

124984
1658+
20854

2209

2212#

11074
2057«

11130

11084
16484
1673

12-MAR-81

11:24

PAGE 38-5

CROSS REFERENCE TABLE -- JSER SYMBOLS
11824
11434 11484 11594 11684 11734 13054
13004

12464
16194
20654
10254

MACY1" 30A(1052)

1407«
2076

2337%

11974

12064

1544k
19784
25824

15644
20104
2604w

16024
20304
28114

12584
17004
2094k

12684
17634
21374

12784
1784n
21434

18284
22228

18644
24794

1416

1595+

1611

1776+

1795

1807

1852+

1861

2002+

2021

2040

2342+

2346

2376

1891

1973

2000

2055

2106

2339«

2129«

2341+

2154

2166

’

OVR4

004522

976
16494
16554
1653
1657
‘6544

C04612
004674

16694
1665

1682
16814

001024
016542
016222
016266

10214
2868
958
28394

1366
2873
2179
2844

1389
2875
2631

1390+
28814
2834w

010656

1501

1537

1593

1646

1693

1736

1774

1822

1848

2498+

2564

2597«

2613+

2835s

2510

2565

2598

2614

2836

OVR3
OVRS

OVR6
OVR8

PATTB

PLKS
PLOT
PLPRT
oL
PL2

PRNNT

004560
004576
003270

016300

16664
1410

28414

PRTA

005130

PRTINT
PRTINO

010602
010616

2127
1706
977
1496
2202

004760
004766
005002

16954
16964
16984

PRTCTL

PRTMSG
PRTO
PRT?2
PRT3

PRT4
PRT6
PRT?7
PRTS8
PSW

PTRPSW
PTRVEC

R(HRSW
RDYOK

RINT

ROTATE

ROTO
ROT1
ROT?2
ROT3
ROT4
ROTS
RTIR
RT1

004716

010724

005024
005142
005154
005166
001010

001032
001030

003460
010624

010706

006066

006122
006144
006150
006160
006216
006240
006602
006610

1473«

16614

14794

2475

1719

1723

2524

1727

2219%

2228

2490«

1705

1709

1721

1238+
1237+

1297«
1296+

1323«
1322+

2221

22258

2491

1511
2204

15164
22074

981

18464

18504
18534
18544
18564
1860
1863
19294
19304

1667
1680

22198
17204
16914
2201
22054

17034
17224
1724M
17264

1474

1684

1663

1699
1713
1715
1717
10154

10240
10234

12284

15074
19494
2574w

OVRPRT
CVRO
OVR1
OVR?

1675
16834
16444
1671
1662
16564

12214

1498#
192384
25044

131c#
19054
2494m

001064
004462
004706
004420
004470
004530
004536

OFFSET
OVR
OVREXT

12164

SEQ 0073
12414

1876
1871
1869
18624
18674
1966
1964

1878

1725

SWREG
SWTIME
S1
S2A
S4x2

TABSTR
TESTT

000176
002466
005770
005762
006026
005364
001434

SEQ 0074

ILVN

obo—'wmw—'wOOA—t

2804+

2806+

28024

2818

2824

1342+

231

2313

2357

2360+

1174
1499
1939

1183
1508

2814

2372+

2642

2495

1950

2505

"N — — —

1169
1313
1906
2480

D
W —
NSO
wv\ownoo

1841

1217
1603

2031
2605

1222
1620
2066

1229
1659
2086

1596
1749
1902+

1599
1756+
1915

2812

1242
1701

2095

1247
1744

2138

PEQEIGERY
| PETY | PRyl gl gier SF)

00 N — N 00 VNN N —= WO O\ W

SO~
=2
O~NONN

00=
61~
OO
NW
NNO o —

—

> =

=000
=N \NO
N &

26*

N) =2 = =2 b NN

— — —

N0 =200~ H

1175

—d ket =AY N

*»X g\ L 3 \g
»x

—OoMNN

EN
NN

SR RAIIR2
2R
& ~

223N [oa
WA

b
b
b
b
d
h
A

— 0 =2 O VN =0V OO
= N=0V0O0OWVHWES
QN = O — SN0
WNIN
L3
L
L X 3

—ad ——d —d

b SN LN
kb

d emd e

b
d
d
b

b ewd el
)

1520

[e
12V}

001004

[on}
oo

SWR

001056

S«

PGNP
GIEFGIEY Y, pirpurgurgary §1, ¥ —d d =d D d and md e b b e
edd D ek
OWN=O0N=20O NN =D

STRCNT

001054

001426

d d

STRCHR

STP?7

002740
003036
002702
002702
002724
002716
003002
001214
001236
001260
001266
001324
001332
001354
001376
001404

STARA
STARED
STARO
STAROA
STAROB
STAROC
START
STP1
STP2
STP3
STP4
STPS
STPSA
STPSB
STPSC
STP6

1331

001050
SAVE
SCHRSW 003456
SCOPE
016052
SEGCNT 001034
001072
SET
001100
SETUP
SIGNAL 001070
002410
°KIP
= 000036
SL
SNGCHR 005712
016050
SPSP
011142
STAER

PAGE 38-6
11:24
12-MAR-81
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS

19364
1937

—

006650
006672
006714
006722
006744
007000

— =

RY2
RT2A
RT2AA
RT3
RT3A
R138

AOND = —b =2 A NN

YM=-7049A-AA
CZLXAA.SRC

(DECSPEC-11-BDFAD=-A~D)
12-MAR~81 10:43

1504
1722%
1858+

2062
2513«
1932+
1370

1683
1965

2346+

2106+
2622+

1956+
1428
1766

2042
2626

“694

1781

2130~

2156

2599+

2615

2053
2629

2122
2804

1494
1772

1535
1820

011302
011532
011536
011372
011552
011542
014050
014052
(14054
014056
014060
014076
014100
014102
0141064
014106
014110
014112
014114
014062

TNOS
TNOb6
TNO7
P8
TPS
TST2AX
TYP
TYPA
TYPC
TYPD
TYPDAT

014070
014072
014074
001012
001016
003354
010744
010754
010764
011012
011056

014116
014120
014064
014066

TYPDO
TYPF
TYPG
TYPINT

011020
011030
011042
010726

TYPSWR
T1A
T2A

011474
003462
003436
003620

1280

11:24

PAGE 38-7

—,

0
2

O OO
W

1370~
1971«

1131»

SEQ 0075

1772+

011270

T2
K3
TK4
TKS
TK6
K7
TNDAV1
TNDAVZ2
TNDAV3
TNOO
TNO1
TNO10
TNO11
TNO12
TNO13
TNO14
TNO15
TNO16
INO17
TNO2
TNO20
TNO21
TNO3
TNO4

03#
124

VIR
N
®x
&%

011172
001020

001014

TKINT
TKS

001460
001504
001612
002110
003310
003552

12-MAR-81

CROSS REFERENCE TABLE == USER SYMBOLS

NN SSANONDNY
WO
W

TESTIA
TESTIB
TESTIC
TESTID
TEST2
TEST3

MACY11 30A(1052)
NN

(DECSPEC-11-BDF AD-A-D)
12-MAR-81 10:43

[ESY \§ YU QI G

YM=2045A~AA
CZLXAA.SRC

2566

2610

2569

2230
2229+

2247
2248

2255
2252
1458«

2254

22461

2251+

1459

2253+

1386
1999

1397
2054
23604

1847

2358

YM-Z049A~AA

CZUXAA,SRC
T2B0A
12B1

003732
003720

12B4

004002

1283

1285
T3A
TSA

UEXPRT
UEXO

UEX0O
UEXOOA

UEX1

UEX10
UEX2
UEX3
UEX&
UEX6
UEX?7
UEX7A
UEX8
UEX9
ULPRT
uLo
yLoo
ULOOA

uLl

uLe
uLé
uLé
uL?
us
uL9
WORK
w7
T2

HAM1
XHAM1X
XS1X

12-MAR-81 10:43

003626
003634

1282
12828

(DECSPEC-11-BDFAD-A=D)

003752

004056
003410
003476

007550
007634

007620
007604

007656

15684

1570

1572

1513
985
20604

1522
15204
2053#
2105

1527
2110
2107

20634

2075

2077

20974
1591
1629

1631

1610

1612

16224
1212+

1226+

2326

2329

23524

2353

9164

9224

9264

1549
1552

15624

15794
15054

20584
20564

004236
004276
004410
004320
004326
004350
001046

1601
1607
1627
16164
16174
1618
11014

011444

2323

007140
007150
006012

= 016564

16004

15594
15564

21114
20684
20784
20814
21084
20884
2098

16054
16134
16304
1623

13464
23304

1349
2331

1977
19834
1827

19814

G084

988#
1591
1835
2053
2487

18314

913

9934
1614
1846
2082
2497

11:24

PAGE 38-8

SEQ 0076

CROSS REFERENCE TABLE == USER SYMBOLS
1557
1558

010166
007700
007746
007764
010152
10022
0°0044
010052
010074
004114
004200
004164
004150

002374
211316

12-MAR-81

1554
1555

15414
156424

2109
2064
2073
2070
2102
2084
20914
20924
2093
975
15984
15964
15944

004214

MACY11 30A(1052)

999%
1625
1873
2089
2508

1574

1576

2080

1131
1644
1889
2100
2561

1370
1669
1919
2125
2579

928#

1384
1691
1961
2160
2594

9324

1395
1711
1971
2212
2601

9374

1427
1734
1981
2249
2625

9454

1694
1753
1982
2296
2802

1524
1764k
1687
26074
2807

955#

152
1772
1998
24224
2823

9614

1560
1801
2027
2628
2834

9704

1580
1820
2034
2467
2838

(DECSPEC-11-BDFAD~A=D)

YM-Z045A-AA

12-MAR-81 10:43
CZLXAA.SRC
1370
SENABL 10684 113°
2053
1998
1971
1148
$ERROR 10334 1143
SPRINT
$SETPS
SWAIT

1258
1784
2479
10434
10834
10544
1981

1268
1828
2494
1501
1251
1427
1987

016564

000

2625

. ABS.

ERRORS DETECTED:

2807

1278
1864
2504
1537
1260
1524
2027
2823

RUN-TIME RATIO: 161/39=4.1
9K

2034

2838

12-MAR-81

11:24

PAGE 39

CROSS REFERENCE TABLE == MACRO NAMES
1644
1591
1535
1494
1395
2834
2802
2561
2467
1206
1197
1182
1173
1168
1305
1938
2582
1646
1280
1580
2082

1312
1949
2604
1693
1309
1614
2089

1498
1978
2811
1736
1321
1625
2100

1507
2010
1774
1669
2160

1544
2030
1822
1711
2212

1691
1216
1564
2065
1848
1753

2487

1734
1221
1602
2085
1891
1801

2497

1772
1228
1619
2094
1973
1835

2508

1820
1241
1658
2137
2000
1873

2579

1846
1246
1700
2143
2055
1919
2594

SEQ 0077
1889
1249

1743
2222
2127
1961
2601

CZLXAA,CZLXAA. SEQ/CRF=CZLXAA. SRC
RUN-TIME: 11 24 4 SECONDS

CORE USED:

1384
2125
1159
1300
1905
2574
1593
1270
1560

MACY11 30A(1052)

(17 PAGES)

e ———