Digital PDFs

AH-S824A-MC

August 1981

78 pages

Original

37MB

view download

OCR Version

53MB

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

—————y
-

YM=7049A-AA
-

7LXAA, SRC

(DECSPEC=11-BDFAD=A=D)

12-MAR-81

10:43

NLIST SEQ,BIN,LOC

MACY11 30A(1052)

12-MAR-81

11:24

PAGE1

REM_

IDENTIFICATION

PRODUCT CODE :

AC=-S5822A-MC

PRODUCT NAME:

CZLXAAO LXY11/21-LXV11 DIA

DATE :

MARCH 11,1981

MAINTAINER:

(SS PRODUCT GROUP DIAGNOSTIC

AUTHOR :

JIM DUPRE

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE
WITHOUT NOTICE
AND SHOULD NOT BE
CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT

CORPORATION.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO

FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL.

RESPONSIBILITY

THE SOF TWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE

PURCHASER

UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE
IN SUCH
SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR
g%t}fifiLlTY OF
ITS SOFTWARE ON EQUIPMENT
THAT IS NOT SUPPLIED BY
COPYRIGHT (C)

1981 BY DIGITAL EQUIPMENT CORPORATION

SEQ 0001

[
|

| YM=Z049A=AA

CZLXAA,SRC

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

12-MAR-81 10:43

MACY11 30A(1052)

12-MAR-81

11:24

CONTENTS

1.0

ABSTRACT

2.0

REQUIREMENTS

2.1

EQUIPMENT

c.2

STORAGE

2.3

PREL IMINARY PROGRAMS

+-BADINGPROCEDURE

3.1

ME THOD

4.0

STARTING PROCEDURE

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

COMPUTER DETECTED ERRORS

6.2

VISUALLY DETECTED ERRORS

‘f

PAGE 2

SEQ 0002

YM=Z2049A=AA

CZLXAA.SRC

(DECSPEC=11-BDFAD=A=D)

12-MAR-81 10:43

MACY11 30A(1052)

12-MAR-81

7.0

TEST DESCRIPTIONS

7.1

TEST 1 CONTROL AND OPERATOR INTERACTION

7.1.1
7.1.2

TEST 1
TEST 1

7.2

PRINTING TESTS

7.2.1

TEST 2

DATA TRANSFER PATHS TEST

7.2.3
7.2.4
7.2.5
7.2.6
7.2.7

TEST &4

UNDERLINE TEST

8
TEST 9

SINGLE CHARACTER, ALL COLUMNS TEST

7.2.2

7.2.8

7.2.9
7.2.10

7.2.11

TEST 3
TEST
TEST
TEST
TEST

S
6
7

TEST 10
TEST 11

SECTION 1
SECTION 2

11:24

PRINTER READY, TESTS POWER UP
MANUAL PRINT SPEED TEST

CHARACTER GENERATOR AND COMPARATOR TESTS

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

TEST 12

“PROM PATTERN TEST
RIGHT & LEFT HAND WEDGES

HAMMER TEST

7.2.12

TEST 13 ELONGATED CHARACTERS TEST

7.2.1%
7.2.15

EVFU CHANNEL SLEWING TEST

7.2.13

TEST 14 UNDERLINED ELONGATED CHARACTERS TEST
TEST 15 ALTERNATE CHARACTER SET TEST

7.2.16

PLOT TEST

7.3

SCOPE DRIVE TEST

PAGE 3

SEQ 0003

|
| YM=2049A=AA

CZLXAA.SRC

1.0

'
(DECSPEC-HZ%DFAD-A-D) MACY11 30A(1052)

12-MAR-81

12-MAR-81 10

1
11:24 PAGE 4

ABSTRACT

THE LINE PRINTER DIAGNOSTIC PROGRAM IS DIVIDED

INTO

THREE

SECTIONS.

INTERNALLY DETECTED ERROR CONDITIONS ARE DISPLAYED ON THE TELEPRINTER,

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

THE FIRST SECTION IS DESIGNED TO CHECK-OUT THE PROCESSOR INTERFACE
CONTROL ELECTRONICS AND THE INTER-COMMUNICATIONS DATA PATHS. IT WILL
ALSO PERFORM ALL TESTS THAT REQUIRE OPERATOR INTERVENTION. THE SECOND
SECTION IS A PRINTING TEST DESIGNED TO TEST THE LINE PRINTER MECHANISM
ITSELF. THE LAST SECTION IS A SCOPE DRIVER ROUTINE FOR USE IN TROUBLE
SHOOTING THE PRINTER INTERFACE.

REQUIREMENTS

2.1

EQUIPMENT

THIS DIAGNOSTIC SHOULD RUN ON ALL PDP-11 FAMILY COMPUTERS HAVING LINE
PRINTER CONTROLS, LINE PRINTERS, AND TELETYPES COMPATIBLE WITH THE
FOLLOWING:

LXY11/21 OR LXV11

LXxy11

LINE PRINTER INTERFACE

PRINTRONIX MODEL 300 LINE PRINTER
OR

LXY21

PRINTRONIX MODEL 600 LINE PRINTER
OR

2.2

Lxv11

PRINTRONIX MODEL 300 LINE PRINTER

TELETYPE

MODEL 33 OR EQUIVALENT CONSOLE UNIT

STORAGE

MEMORY LOCATIONS O = 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=Z049A-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:24

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-BDFAD=-A=D)

12-MAR-81 10:43

MACY11 30A(1052)

12-MAR-81

11:24

INTERFACE & DATA PATHS TEST

600

TEST 2

610
614
620
624
630
634
640
644
650

TEST 3 CHAR COMPARATOR TEST
TEST 4 UNDERLINE TEST
TEST 5 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

(ALSO GENERAL PRINT TEST STARTING ADDRESS)

(LEFT & RIGHT WEDGES)

HAMMER ALIGNMENT
ELONGATED CHARACTERS TEST

654
660

TEST 12
TEST 13

700
720

SCOPE DRIVER ROUTINE
SCOPE DRIVER WITHOUT LINE FEEDS

664
670

PAGE 6

TEST 14
TEST 15

UNDERLINED ELONGATED CHARACTER TEST
ALTERNATE CHARACTER SET TEST

THE PROGRAM WILL START THROUGH THE TEST SEQUENCE BEGINNING WITH THE
gf%§CTED TeoT 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 'LXY11/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
COMPLETION OF ALL OF TEST 1, PRESS CONTINUE TO ENTER THE PRINTING
TESTS DIRECTLY.
i

NO OTHER OPERATOR ACTION WILL BE REQUIRED.

SEQ 0006

YM=Z049A~AA

CZLXAA.SRC

(DECSPEC-11-BDFAD=A=D)

12-MAR-81 10:43

MACY11 30A(1052)

5.0

OPERATING PROCEDURE

5.1

OPERATIONAL SWITCH SETTINGS

12-MAR-81

PAGE 7

11:24

THE USE OF THIS PROGRAM ON PROCESSORS NOT HAVING A HARDWARE SWITCH
REGISTER NECESSITATES OPERATOR INTERACTION; THE OPERATOR MUST SET UP

LOCATION 174 WITH THE SOF TWARE DISPLAY VALUES AND
THE SOF TWARE SWITCH VALUES. (SEE SECTION 5.2)

LOCATION

176

WITH

FUNCTION IN 'UP'* POSITION

SWITCH
15

LOOP ON ERROR (IN TEST 1 ONLY)

TEST EVFU FUNCTION

DOWN - SKIP ALTERNATE CHARACTER SET TEST

- DO ALTERNATE CHARACTER SET TEST

LOOP ON TEST

SEND ONLY ONE CHARACTER TO LINE PRINTER IN

TEST PLOT FUNCTION

SCOPE DRIVER = THEN HALT

USED FOR PRINT SPEED MANUAL TIMING IF NO
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 0 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.
SWITCH = 1N

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 ROUTINE. 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 CHARACTERS. TO STOP
SENDING CHARACTERS, PUT SWITCH 11 UP.

SEQ 0007

YM=Z049A-AA

CZLXAA,SRC

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

12-MAR-81 10:43

4.,

MACY11 30A(1052)
-

12-MAR-81

11:24

PAGE 8

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

SWITCH - 12

SWITCH 13 SHOULD BE SET UP IF THE ALTERNATE CHARACTER
IF THE ALTERNATE SET IS NOT USED SWITCH 13 SHOULD
SET IS AVAILABLE.

BE DOWN.

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 OUT IN TEST 1. WITH SWITCH 15 IN THE UP
POSITION, 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),IT 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 INITIAL VALUE OF THE SWR IN LOCATION 176(8).
AFTER EXECUTION BEGINS, THE OPERATOR MAY CHANGE
AT ANY TIME,

YM=Z045A-AA

CZLXAA.SRC

(DECSPEC-11-BDFAD-A-D)

12-MAR-81 10:43

12-MAR-81

MACY11 30A(1052)

11:24

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

CARRIAGE 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
CARRIAGE 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:
OUTPUT MESSAGES AT THE CONSOLE BEFORE THE NEW SWR
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 PRINTER STATUS IS LOCATION 177514 AS USED BY THE PROGRAM.
THE LINE PRINTER VECTOR ADDRESS IS LOCATION 200 AS USED BY THE PROGRAM.
THE LINE PRINTER PSW IS LOCATION 202 AS USED BY THE PROGRAM.
THE LINE PRINTER BUFFER IS LOCATION 177516 AS USED BY THE PROGRAM.
FOR OTHER THAN THESE, PLACE THE CORRECT STATUS LOCATION IN 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

—————
e

MACY11 30A(1052)

(DECSPEC=11-BDFAD-A=D)

YM=-Z2049A=AA

12-MAR-81 10:43

CZLXAA.SRC

6.0

ERRORS

6.1

COMPUTER DETECTED ERRORS

12-MAR-81

11:24

PAGE 9

THE FOLLOWING DISCUSSION DESCRIBES (IN GENERAL) THE METHOD 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, ADDITIONAL TESTING IS PERFORMED ESPECIALLY DURING EXECUTION

OF THE

FIRST

TEST.

FOR

COMPLETE

DESCRIPTION

THE

TESTING

PROCEDURES USED IN TEST 1 AND THE CORRESPONDING ERROR CONDITIONS, THE
E?g?ESGIS REFERRED TO THE DESCRIPTION OF THE TEST AND THE TEST

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

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
ITSELF, WILL CAUSE THE READY LINE TO DROP:
1.

PAPER OUT OR TORN

FORMS THICKNESS LEVER OPEN (UP).

RIBBON STALL CONDITION

POWER SUPPLY FAULT

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=-Z045A-AA
CZLXAA.SRC

6.2

(DECSPEC-11-BDFAD-A-D)

12-MAR-81 10:43

MACY11 30A(1052)
:

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.
FTREISJ}ISQyERN APPEARS IN THE DESCRIPTION OF THE CORRESPONDING TEST

7.0

TEST DESCRIPTIONS

7.1

TEST 1 - CONTROL TESTS AND OPERATOR INTERACTIVE TESTS

TEST 1 IS MADE UP OF TWO SECTIONS LINKED

SEQUENCE

SINGLE

SECTION SPEARATELY.

7.1.1

TEST.

TOGETHER

AND

EXECUTED

THE FOLLOWING DESCRIPTIONS TREAT EACH

TEST 1 - SECTION 1 - COMMAND DECODE, CONTROL INTERFACE

INTERFACE

FACILITY.

CONTROL

COMMAND

DECODE

AND

UPON INITIAL ENTRY INTO THIS ROUTINE.

MANUAL

INTERVENTION

THIS PORTION OF TEST 1 IS DESIGNED AS A

TEST

AND

INCLUDES

CHECKOUT

THE

PRINTER

INTERRUPT

IS REQUIRED TO TEST THE VARIOUS TESTABLE ERROR (NON-READY) CONDITIONS
OF THE PRINTER. THE OPERATING SEQUENCE IS DESCRIBED IN DETAIL BELOW.

THE PRINTER READY LINE CONTINUOUSLY MONITORS THE FOLLOWING C(NDIT'IMS

WITHIN THE PRINTER AND ITS TRUE STATE AT THE CONTROL ELECTRONICS
INTERFACE IS CONDITIONAL UPON NONE OF THEM EXISTING: 1.

\IO‘V!.J\WN

.
.

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 TO THOSE OF THE ABOVE ITEMS WHICH ARE
TESTABLE (I.E. - A,B,FRG) INITIAL MANUAL TEST SEQUENCE:

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

YM=Z045A~AA

CZLXAA.SRC

(DECSPEC-11-BDFAD=A=D)

12-MAR-81 10:43
2.
3.

MACY11 30A(1052)

12-MAR-81

11:24

PAGE 11

SEQ 0012

PAPER SWITCH'' WILL
DEPRESS CONTINUE, ‘READY SET OK = TRY TORNERRORS
EXIST.

BE TYPED OUT IF PRINTER IS ON LINE AND NO

PAPER - TEAR THE PAPER OFF BELOW THE PRINTER FORMS THICKNESS LEVER
USE THE MANUAL TOP OF FORM SWITCH TO DRIVE ALL THE PAPER OUT

AND

OF THE PRINTER AND OBSERVE THAT THE PRINTER READY LIGHT GOES
OUT AND THE CHECK LIGHT GOES ON ON THE PRINTER CONTROL
THE ON-LINE
PANEL. ATTEMPT TO PLACE THE PRINTER ON LINE.
REMAIN
SHOULD
PANEL
CONTROL
PRINTER
THE
ON
LIGHTS
3?? READY

DEPRESS CONTINUE, AN ERROR TYPE-OUT (ERROR COUNT 2) WILL
g(glél?R(lrFu(T:gE PRINTER READY LINE REMAINS HIGH AT THE INTERFACE
L

READY - AFTER SUCCESSFUL COMPLETION OF STEPS 3 AND 4 THE
MESSAGE ‘ERROR SET OK = TURN ON LINE'' WILL BE TYPED. RESTORE
PAPER TO THE TRACTORS, CLOSE THE FORMS THICKNESS LEVER AND PLACE
PRINTER IN THE READY-ON LINE STATE. OBSERVE THAT BOTH THE
%IE.{NE AND READY LIGHTS COME ON ON THE PRINTER CONTROL
DEPRESS CONTINUE, AN ERROR TYPE-OUT
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 OUT AND THE CHECK ERROR LIGHT GOES ON ON
'

THE PRINTER CONTROL PANEL.

THE

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

COMPLETION

STEPS

& -8

THE

READY - AFTER SUCCESSFUL

10.

DEPRESS CONTINUE TO COMPLETE THE COMMAND AND REGISTER TESTING
ALONG WITH THE INTERRUPT TESTING, IF ANY ERROR CONDITIONS
EXIST, ERROR TYPE-OUTS GIVING THE ERROR COUNT WILL BE
PRINTED. CHECK THE LISTING FOR DESCRIPTIONS OF THESE ERRORS.

11.

SECTION 2 OF TEST 1 WILL BE ENTERED DIRECTLY UPON

MESSAGE ‘ERROR SET OK = TURN ON LINE'® WILL BE TYPED.

OF SECTION 1.

COMPLETION

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

YM=7049A-AA

12-MAR-81 10:43

| CZLXAA,SRC

12-MAR-81

MACY11 30A(1052)

11:24

rAGE 12

l
|

7.1.2

TEST 1 = SECTION 2 = PRINT SPEED TIMING TEST.

THIS SECTION OF TEST 1 IS DESIGNED TO TIME THE PRINTER FOR ONE 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.

IF A KW11=L OR KW11-P ARE AVAILABLE THEY WILL

USED

THE

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

WILL

INSTRUCTIONS

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 TO 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 WILK BE TYPED ON BOTH THE
L

TELEPRINTER AND LINE PRINTER.

IF BOTH A KW11-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:

MANUAL TIMING
y
KWll-L
Kw11-P

FOR
FOR
FOR

IF THE LINE FREQUENCY IS SO 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 CROSS REFERENCE LISTING)

TESTS 2 TO 15 PRODUCE VARIOUS PRINT

PATTERNS

DESIGNED

FOR

TRANSFER

PATHS

(SEARCH

EASE

THESE TESTS CHECK ALL OF THE VARIOUS PRINTING
VISUAL VERIFICATION.
?CSIPE&E OF THE PRINTER. DETAILED DESCRIPTIONS OF EACH INDIVIDUAL TEST
7.2.1

THIS

TEST 2 - DATA TRANSFER PATHS TEST

TEST

DESIGNED

TEST

THE

DATA

(WITH

ALTERNATING ONES AND ZEROS), FROM THE PROCESSOR INTERFACE, THRU THE
AN
LINE PRINTER INPUT REGISTER, AND INTO THE PRINTER'S BUFFER.
THE
'O
ED
TRANSMITT
ARE
S
CHARACTER
‘VU''
AND
“'«'"
ALTERNATING STRING OF
SINCE THESE CHARACTERS ARE
PRINTER ON A FULL 132 COLUMN BASIS.
A ONES AND ZEROES CHECK OF
BOTH
PROVIDE
THEY
BITWISE,
COMPL IMENTARY
WITHIN THE PROCESSOR
SENSED
IS
LINE
OF
END
ALL TRANSMISSION LINES.
EACH LINE. PRINTING
PRINT
TO
ED
TRANSMITT
IS
CHARACTER
FEED
AND A LINE
ING THE C(OLUMN
ALTERNAT
TIMES,
32
REPEATED
]S
LINE
OF THE TEST
A CHECKER-BOARD
PRODUCE
TO
S
(HARACTER
‘U’
AND
‘"'
THE
gtz?xtgws OF

SEQ 0013

YM=-Z049A~AA
CZLXAA.SRC

7.2.2

(DECSPEC=11-BDFAD=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

TEST

THE

LINE

PRINTER

CHARACTER

GENERATOR AND COMPARATOR LOGIC AND ITS ABILITY TO DETECT AND ACT UPON
BOTH 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 CHARACTERS, EACH OF WHICH SHOULD BE CONVERTED TO A SPACE
CHARACTER PRODUCING NO VISIBLE PRINTING.
THIS SEQUENCE OF ALTERNATING
ALL PRINTABLE
CHARACTERS
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 & - UNDERLINE TEST

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

7.2.4

TEST 5 = LINE EDITING TEST

THIS TEST CHECKS THE 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 IS 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 IS RECEIVED. ALL CHARACTERS AFTER THE FIRST 132 SHOULD
BE LOST.
THE PROGRAM SENDS A FULL LINE OF 132 ZEROS THEN THE
FULL
CHARACTER 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.

A TOTAL OF

AFTER THE BLANK LINE, THE NUMBERS 6 TO 9 ARE SENT AS BEFORE.
11 LINES WILL BE PRINTED WITH THE MIDDLE LINE BLANK.

SEQ 0014

YM-Z049A~AA

CZLXAA.SRC

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

12-MAR-81 10:43

7.2.6

MACY11 30A(1052)

12-MAR-81

11:24

PAGE 14

TEST 7 = MULTIPLE LINE ADVANCE TEST

THIS TEST CHECKS THE MULTIPLE LINE ADVANCE OF

THE

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
THE HAMMER SUPPLY FOR MAXIMUM CURRENT SURGE
WILL TEST FOR WORST CASE NOISE SINCE ALL HAMMERS WILL FIRE AT ONCE ON
EACH LINE.

7.2.8

TEST 9 - SINGLE CHAR, ALL COLUMNS TEST

AS AN ENDURANCE TEST OF THE LINE PRINTER AS WELL
IHS—FEST-ISDESTGNED
THE 96
S A CHARACTER CHECK OF THE PROM. 132 COLUMNS OF EACH OF
CHARACTERS ARE TRANSMITTED TO THE LINE PRINTER AND

ROTATION.

A SAMPLE OF THE PRINT OUT FOLLOWS:

PRINTED

27777mmmmmmmmee 22222
T 33
AAAAA==========AAAAA
BRRRR--------- -ARARARA
11277---======~ 22112

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 COMPOSED OF
132 LINES OF PRINT AS FOLLOWS:

LEFT HAND WEDGE = WILL END EACH LINE WITH A ''2'' CHARACTER.
RIGHT HAND WEDGE = WILL START EACH LINE WITH A """ CHARACTER.

ANY PRINT OUTSIDE OF THE WEDGE WILL BE CAUSED BY A HAMMER
HAMMER BOUNCE.

MISFIRE

SEQ 0015

YM=-Z049A-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

THiS ROUTINE IS DESIGNED TO BE USED AS A DRIVER FOR MANUAL HAMMER
ALIGNMENT AND INTENSITY ADJUSTMENTS 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

S BE UNDERLINED.
CAN
THIS TEST CHECKS THAT ELONGATED CHARACTER
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.
CHANNEL 1 IS USED TO RESET THE POINTER TO THE TOP OF MEMORY THEN EACH
THE SPACING ON
CHANNEL ,STARTING WITH CHANNEL 2 IS CALLED 10 TIMES.
THE PAPER SHOULD BE AS SPECIFIED IN THE PRINTED LINE.

7.2.16

PLOT TEST

THIS TEST 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

ONE SPACE PER LINE.

IN THIS TEST

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=-Z049A~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
ON THE SETTING
DEPENDING
CONTINUALLY SEND WHATEVER CHARACTER IS SET IN THE SWITCH REGISTER TO
THE LINE PRINTER, OR ONLY SEND IT ONCE AND HALT, (SEE DESCRIPTION OF
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 CHARACTER 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.
CONTINUCUSLY PLACE SWITCH 11 UP.

853

LLIST

SEQ,BIN,LOC

SEQ 0017

[
g

i YM=Z049A-AA

CZLXAA,SRC

(DECSPEC-11-BDFAD=A=D)

12-MAR-81 10:43

12-MAR-81

MACY11 30A(1052)
LTITLE YM=Z049A-AA

11:24

PAGE 17

SEQ 0018

(DECSPEC=11-BDFAD=A=D)

855

ggg

sewwnxx

ggg

LXY11/21=LXV11 LINE PRINTER/PLOTTER TEST

;LIST OF SWITCH SETTINGS USED IN THIS TEST

gg%
ggg

sSWITCH NO

866

868

867

869

870
871

g;%

12
10

874
875

000000
000001

RO=%0
R1=%1

885
886
887
888
889
890
891

100000
040000
020000
010000
004000
002000
001000

BIT1S
BIT14
BIT13
BIT12
BIT11
BIT10
BITY

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

893
894
895
896
897
898
899
28?

000200
000100
000040
000020
000010
000004
000002
000001

BIT7
BIT6
BITS
BIT4
BIT3
BIT?2
BIT1
BITO

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

000036
C00037

SL=36
EL=37

876
877
878
879
880
881
882
ggz

892

902
903
904
905

906
907

000002
000003
000004
000005
000006
000007
000006
000007

000400

DESCRIPTION

LOOP ON ERROR IN TEST 1 ONLY '!!
TEST EVFU
TEST ALTERNATE CHARACTER SET
LOOP ON TEST

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

TEST PLOT FEATURE

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

R2=%2
R3=%3
R4=%4
R5=%5
R6=%6
R7=%7
SP=R6
PC=R7

BIT8

B
.

=400

;START VFU LOAD
;END VFU LOAD

.ENABLE ABS
.ENABLE AMA

908

000000

.=0

910

000100

.REPT

909

w#wwwx

100

——————————

————————————————————————————————————————————

|
{

YM=2049A-AA
CZLXAA,SRC

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

12-MAR-81

10:43

MACY11 30A(1052)

12-MAR-81

2
11:24

PAGE 17-1

.42

911
912

HALT

.ENDR

913
914

915

918
919

000030
000032

000030

.=30

010744
000340

340

TYP

000042
000000

924

000042

927

000046

929

000052

000046
010566
000052
040000

TKINT

000062

000060
011172
000300
0001GO

.=100

934

=46

LOGI CAL

BIT14
.=60

;KEYBOARD INTERRUPT ROUTINE

300

sLINE CLOCK SERVICE ROUTINE

939
940

000100
000102

003100
000340

LKSRV
340

942
943

000104
000106

003110
000340

CONVRT
340

000174
000176

000174
000000
000000

=174
DISPREG: 0
SWREG:
0

000200

.=200

946
. 947

951
952

000200
000204

012706
000137

001
001100

000300
000304

000137
000137

JMP

#1000,%6
SETUP

.=300

000300
957
958

MOV

014660
016222

JMP
JMP

DAV2
PLPRT

;CHANNEL SLEW TEST
;PLOT TEST

.=400

964

000400

000410

000137
000137
000137

002466
002626
002546

JMP
JMP

JMP

',,"'
-~

SWT IME
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

YM-2049A-AA
CZLXAA. SRC

(DECSPEC-11-BDFAD=A=D)

12-MAR-81 10:43

967
968
969
970
971
972
973
974
975

12-MAR-81

PAGE 17-2

TESTZ2

:START OF PRINTING TESTS SEQUENCE
sTESY

ULPRT
OVRPRT

STEST
s TEST

#1000,%6

001000
003310
003552
004114
004420
004716
005176
005412
005712
006066
006332
007046
007216
007550
010166

11:24

TEST3

STEST

PRTCTL
MLF
HSPRT
SNGCHR
ROTATE

= TEST
sTEST
sTESY
s TESY

LFTTR

:TEST

EXPRT
UEXPRT
ACPRT

STESE
sTEST
s TESY
sTEST

#LSCA,LO SCoP

;SEND LF AFTER 132 CHARS

#SCOPE,LOSCOP

;NO LF'S SENT IN SCOPE ROUTINE
;DO SCOPE ROUTINE

HAMALN

000700
012737
000137

016174
016052

016220

SCOPE

000720
012737
000137

MOV
JMP

016220

SCOPE

.=1000

001000

;LINE PRINTER HARDWARE REGISTERS
177514

LPS:

177514

;STATUS REGISTER
;BIT 15=ERROR

;BIT 7=READY
;BIT 6=INTERRUPT ENABLE

i
i
D
i el
e
b o
-

Nele RNTe AV, PNVILVE
]

b
b cld

cnd cld

eolelalelelelelelele]

1009

-l calh

MACY11 30A(1052)

wHwWn—=O

177516

LPB:

177516

;DATA BUFFER REGISTER

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

177570
177570
177776
177566
177562
177564
177560
172542
172540
177546

SEQ 0020

[
|

YM=Z049A~AA

CZLXAA,SRC

1023
1024
1025

1026

1027

1028
1029
1030
1031

001030
001032

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

000240
000000
000002

MACY11 30A(1052)
PTRVEC:
PTRPSW:

NOP
N
M

.WORD
.WORD

=240

12-MAR-81

2
11:24

PAGE 17-3

200
202

=0
=2

JMACRO FOR SETTING UP ERROR COUNT
LLIST ME

.MACR
ERR'X"': nox .

S$ERROR X
X,
ERCOUNT

;SET UP ERROR COUNT X

=N+

.ENDM

$ERROR

;MACRO FOR PRINTING TEST NUMBER AT START OF TEST
LIST ME

.MACR
MOV
;S: .

SPRINT Y
TNO'Y' ,MES15
%4 ,PRNNT

.ENDM

SPRINT

:
sSET TEST NUMBER FOR MESSAGE
sPRINT TEST NUMBER

=M+

‘

JMACRO FOR WAITING FOR PRINTER TO PRINT OR SLEW
.LIST ME

.MACR
T1STB
BPL
.ENDM

SWAIT
aLPS
.~
SWAIT

;TEST READY
;WAIT FOR READY

sMACRO FOR ENABLING KEYBOARD INTERUPT IF THERE IS NO

JH/W SWITCH REGISTER AND THERE IS A S/W SWITCH REGISTER
LLIST ME

.MACR

CMP
BNE
BIS
.ENDM

SENABLE

#176,SWR
.+10
#100,aTKS
SENABLE

:S/W SWR ?
sNO- CONT INUE
;ENABLE KEYBOARD INTERRUPT

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

SEQ 0021

YM=-Z049A-AA

CZLXAA.SRC

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

12-MAR-81 10:43

MACY11 30A(1052)

1079

1080

1083

.MACR

1084
1085
1086

MOV
ADD
RTI

1087

.ENDM

1088
1089
1090
1091

1095

1115

001034
001036
(C01040
001042
001044
001046
001050
001052
001054
001056
001060
001062

001064
001066
001070
001072
001074
001076

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

1122
1123
1124
1125

000000
000000
000000
000000
000000
000000

OFFSET:
DIGITS:
SIGNAL:
SET:
CHAR:
oCT:

SSETPSW

PC,=(SP)
#6, (SP)
S$SETPSW

;MOVE PRESENT LOCATION TO STACK
sSET UP FOR NEXT INSTRUCTION
;LOAD PSW

0
0
0
0
0
0

;ROUTINE TO TEST THE MECH. OPERATION OF THE LXY11/21-LXV11
001100
001104
001106
001112

001116
001124
001130
001132

004437 010726
000005
013746 000004
013746 - 000006

SETUP:

012737
005777
000407

001132
177654

000004

C01004
001006

1126
1127
1128
iig2
1130

001132
001140
001146
001150
001154

012737
012737
022626
012637
012637

000176
000174

(1)
(1)
(1)

001160
001166
001170

Q22737
001003
052777

000176

001004

000100

177622

1131

PAGE 17<4

SEGCNT: 0
CHRCNT: O
CHRGEN: 0
LINCNT: O
CYCCNT: O
WORK:
0
SAVE:
0
ERCOUNT:0
STRCHR: 0
STRCNT: 0
LEGCHR: 0
NUMCHR: 0

!'111167
1118
1119
1120
1121

11:24

;MEMORY LOCATIONS USED AS PROGRAM FLAGS AND COUNTERS

’%83‘%

1108
1109
1110
1111
1112
1113

LLIST ME

1081
1082

1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107

12-MAR-81

001160

000006
000004

1%:

2%:

JSR
RESET
MOV
MOV

4,-(SP)
6,-(SP)

MOV
MOV
CMP
MOV
MOV

#SWREG, SWR
;POINT TO SOF TWARE SWR
#DISPREG,DISPLAY ;POINT TO SOF TWARE DISPLAY
(SP)+,(SP)+
;RESTORE STACK
(SP)+,6
;RESTORE TIMEOUT VECTORS
(SP)+.,4
3

CMP
BNE
BIS

#176,SWR
.+10
#100,aTKS

MOV
TST
BR

SENABLE

X4, TYPINT

#1%,4
aSWR
2%

:CLEAR WORLD
:SAVE CURRENT VECTORS
:

;SET UP TIMEOUT VECTOR
;TRY TO ACCESS HARDWARE SWR
:IF THERE, GO TO 2%

:S/W SWR ?
sNO=-_ CONT INUE
sENABLE KEYBOARD INTERRUPT

SEQ 0022

YM-Z049A-AA

CZLXAA.SRC
1132

001176

104000

1135

001202

104000

EMT

EMT
MES3

TST
BPL

alL”S
STP2

Mo'\a ]

#0,
%5,STAER
STP1
alLPS
STP3

1134 001200 012147

MES1

012212

MES?2

Hzg 001212 000C00

HALT

1136 001204

1137 001206
1138 001210

1143

104000
012237

001214 005777
001220 100006

STP1:

177560

001222

((B 001222 01273; 000000 001052 ERRO:
00000

$ERROR
=N+

ERCOUNT

STP2:

(1)

C01244 012737 0C0001

001052 ERR1:

MOV

”,

STP3:

JSR
BR
EMT

%5,STAER
STP2
+0

(1)

000002

1149 001252 004537 011142
1150 001256 000767
1151 001260 104000

1152 001262 012270
1153 001264
1154

001266

000000

1155

001266 012777 000014

1157
1158

001302
001306

1156 001274 012777 000015
1159

(1)

1160
1161
1162
1163
Hgg

001310

177472

STP4:

001316
001322
001324
001326
001330
001340

000003

004537 011142
000761
104000
012415
000000

STPS:

177442

STP5A:

005777
100006

MES4

000003 001052 ERR3:
g; 001340 012737
OOOOOI.

ERCOUNT

:DEPRESS CONTINUE WHEN READY

MOV

#14 ,3LPB

:SEND A "FF'' TO THE PRINTER

TST
BM]

alLPS
STPS

;TEST FOR ERROR
:BRANCH IF ERROR SET

$ERROR

:ATTEMPT "FF'' BY SENDING A '‘CR"’

#15,aLPB
\N

ERCOUNT

JSR
BR
EMT

%5,STAER
STP4
+0

:REPORT ERROR NOT SET
;LOOP ON ERROR
s TYPE MESSAGE
;ERROR SET OK - TURN ON LINE
;WAIT FOR OPERATOR

TST
BPL

alLPS
STP5B

;TEST FOR ERROR
:NO ERROR CONTINUE

Mox‘ .

#3,
X5,STAER
STP5A
aLPS
STP5C

N=N+1

MES6
HALT
$ERROR
=N+

ERCOUNT

001362 012737 000004

001052 ERR4:

MOV

STP5C:

JSR
BR
EMT

X5,STAER
STP5B
+0

(1)

000005

1174 001370 004537 011142
1175 001374 000767
1176 001376 104000

1177 001400 012334

;SET UP ERROR COUNT 2

MOV

"2,

STP5B:

(1)

:SET UP ERROR COUNT 1

:PRINTER OK 'READY SET'' TRY TORN PAPER SWITCH

1169 001346 004537 011142
1170 001352 000767
1171 001354 105777 177420
1172 001360 100406
001362

:SET UP ERROR COUNT 0

;REPORT READY NOT SET
;GO TEST FOR READY
s TYPE MESSAGE

JSR
BR
TSTB
BM]

1173

s TYPE MESSAGE
;POWER UP

;REPORT ERROR BIT SET
;GO TEST FOR ERROR
;TEST FOR READY
; READY SET OK

HALT

MOV

177500

001310 012737 000002 001052 ERR2:

1166 001332
1167 001336
1168

005777
100406

177506

N=N+1

:TYPE RESTART ADDRESS INFO

;TEST FOR ERROR
:NO ERROR TEST FOR READY

JSR
BR
TSTB
BMI

$ERROR

:DEPRESS CONTINUE WHEN READY TO START TEST

001230 004537 011142
001234 000767
001236 105777 177536
001242 100406
001244

11:24 PAGE 17-5
;TYPE DIAGNOSTIC TITLE

1144
1145
1146
1147

1148

12-MAR-81 10:43

1133

1141
1142

12-MAR-81

(DECSPEC-11-BDFAD=A=D) MACY11 30A(1052)

$ERROR
N=N+1

MESS

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

ERCOUNT

:SET UP ERROR COUNT &
:REPORT ERROR NOT SET
;LOOP ON ERROR
s TYPE MESSAGE

:READY SET OK = TRY FORMS THICKNESS LEVER SWITCH

SEQ 0023

TRARRSTRRBI

D
- o
D
— e

—

D o PN

— D

YM=-Z049A-AA
CZLXAA .SRC

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

001402

000000

001404
001410
001412

005777

001412

001420
001424
001426
001430
001432

100406

012737
000006
004537
000767
104000
012415
000000

MACY11 30A(1052)

12-MAR-81

11 :24

;DEPRESS CONTINUE WHEN READY

HALT

STPé6:

177370

000005

001052

ERRS:

011142
STP?7:

TST
BMI
$ERROR
MOV
N=N+1
JSR
BR
EMT
MES6
HALT

PAGE 17-6

;TEST FOR ERROR

aLPS

;BRANCH IF ERROR SET

STP7

\N
"5,

%5,STAER
STP6
+0

ERCOUNT

;SET UP ERROR COUNT 5
sREPORT ERROR NOT SET
;LOOP ON ERROR
s TYPE MESSAGE

;ERROR SET OK = TURN ON LINE
;DEPRESS CONTINUE WHEN READY

SEQ 0024

YM=-Z049A~AA

CZLXAA.SRC

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

12-MAR-81 10:43

12-MAR-81

MACY11 30A(1052)

1189

sTEST 1

Hg%

;1S THE PRINTER FREE OF ERRORS

1194
1195
1196

001434
001436
001442

000005
005777
100006

001444

01273; 000006

1198
}}g

001452
001456

004537
000766

001444

00000

177336

001052

1206

001460
001462
001466

C01470

001470

1207
}‘2?83

001476
001502

000005
105777
100406

1213
1214
1215

1216

(1)

001504

001510
001516
001522
001524

001524

001546

(1)

001546

1222

001554

(1)

1223

1224
1225

1226
1227
1228

177312

012737

000007

004537
000766

011142

000010

001052

001560

001562
001566
001570
001574

001576

005037

001046

000015
177256

177264

012737

000010

001052

004537
000762
005777
100006

011142

012737

000011

004537

011142

012777
105777
100006

000011

nox .

"6,

JSR
BR

%5,STAER
TEST1

ERR7:

$ERROR
=N+

;SET UP ERROR COUNT 6

ERCOUNT

;REPORT ERROR SET
;LOOP ON ERROR

$ERROR

JSR
BR

X5,STAER
TEST1A

N=N+1

;CLEAR THE WORLD
;1S READY SET
;READY SET! PRINTER OK

aLPS
TEST1B

MOV

000012

000751

105777
100411

005237
001361

177212

MOV
1STB
BPL

ERR10:

001052

ERR11:
LP2:

001046

001576 0127?; 000012

1229
}5%(1)

001604
001610

004537
000735

TESTIB: CLR

LP1:

177234

1232
1233

ERR6:

;CLEAR THE WORLD
;1S ERROR FLAG CLEAR
JERROR IS CLEAR OK

:SET UP ERROR COUNT 7

ERCOUNT

;REPORT READY NOT SET
;LOOP ON ERROR

;DOES LOADING THE BUFFER RESET READY

1217 001532
1218 001536
1219 001540
1220 001544
1221

aLPS
TEST1A

TEST1A: RESET
TSTB
BM]

}%}?
1212

RESET
TST
BPL

;IS READY SET (NO ERRORS EXIST)

(1)

TEST1:

011142

}%812
1203
1204
1205

PAGE 18

:PERFORMS PRELIMINARY COMMAND AND REGISTER TESTING.

11}3(1)

1197

11:24

011142

001052 ERR12:

$ERROR

;CLEAR COUNTER

WORK

;LOAD CARRIAGE RETURN INTO BUFFER
;1S READY CLEAR
;READY 10 CLEAR OK!

#15,aLPB
aLPS
LP1
\N

;SET UP ERROR COUNT 10

ERCOUNT

MOV

#10,

JSR
BR
TST
BPL

%5,STAER
TEST1B
aLPS
LP2

MOV

JSR

X5,STAER

;REPORT ERROR OCCURRED

aLPS
TESTIC

;IS THE PRINTER STILL BUSY
JNO! GO TO NEXT TEST

N=N+1

$ERROR

N=N+1

TSTB
BMI

;REPORT READY STILL SET
;LOOP ON ERROR
;IS THERE AN ERROR
;sNO ERROR CONTINUE

;LOOP ON ERROR

TEST1B

INC
BNE

WORK
LP1

mx .

ne,

JSR
BR

%5,STAER
TEST1B

$ERROR

;SET UP ERROR COUNT 11

ERCOUNT

;YES! GO CHECK FLAGS
;PRINTER 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 4

SEQ 0025

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

YM=-Z049A-AA
CZLXAA. SRC

12-MAR-81 10:43

MACY11 30A(1052)

12-MAR-81

11:24

PAGE 18-1

;TEST THAT THE PRINTER WILL NOT INTERRUPT AT LEVEL 7

1237
1238
1239
26?

001612
001620
001626
001632

012777
012777
005777
100006

002076
000340
177146

177210
177204

)

001634

012737

000013

001052

001642

004537

011142

}246

001650

105777

177124

)

}

000014

1247

001664

004537

011142

(1)

C01672

000015

001700

012737
000016
012746

001704
001706
001712

010746
062716
000002

PN
v v a O~

012737

— —

001656

NN A~~~
NN A~

(1)

001714
001722
001724

052777
000240
042777

TEST1C: MOV
MOV
TST

BPL

ERR13:

LP3:

001052

ERR14:

$ERROR

LP3
N

;SET UP INT VECTOR
;SET PRIORITY

;TEST FOR ERROR

:NO ERROR CONTINUE

sSET UP ERROR COUNT 13

ERCOUNT

MOV

#3,

JSR
BR

%5,STAER
TEST1C

;REPORT ERROR SET
;LOOP ON ERROR

LP3X

sREADY SET OK

N=N+1
TSTB

aLPS

$ERROR
MOV
N=N+1

N
#4,

BMI

JSR

LP3X:
ERR1S:

#INT1C,aPTRVEC
#340,aPTRPSW
alLPS

$ERROR

:TST FOR_READY

;REPORT READY NOT SET

%5,.STAER
TESTIC
\N

;SET UP ERROR COUNT 14

ERCOUNT

;LOOP ON ERROR

;SET UP ERROR COUNT 15

ERCOUNT

#15,

000340

MOV
N=N+1
MOV

#340,-(SP)

;LOCKUP PROCESSOR, NEW PRIORITY

000006

MOV
ADD

PC,=(SP)
#6,(SP)

001052

$SETPSW

000100

177056

BIS

#100,aLPS

;MOVE PRESENT LOCATION TO STACK
sSET UP FOR NEXT INSTRUCTION
;LOAD PSW
;SET PRINTER INTO ENABLE

000100

177046

BIC

#100,aLPS

*CLEAR PRINTER INT. ENABLE

RTI

NOP

sWAIT

;TEST THAT THE PRINTER WILL NOT INTERRUPT AT LEVEL 6

1258

001732

(1)

001732

1259
1260
)
)

001740
001744
001744
001746

001754

1263

001764

—

001752

N
#6,

000300

$ERROR
MOV
N=N+1
MOV

#300,-(SP)

;SET PROCESSOR PRIORITY LEVEL 6

010746
062716

000006

MOV
ADD

PC,=(SP)
#6, (SP)

052777

000100

177016

BIS

#100,3aLPS

sMOVE PRESENT LOCATION TO STACK
sSET UP FOR NEXT INSTRUCTION
:LOAD PSW

;SEYIPRINTER INT ENABLE

042777

000100

177006

BIC

#100,aLPS

;CLEAR PRINTER INT. ENABLE

000002

000016

001052

ERR16:

$SETPSW

RTI

NOP

;SET UP ERROR COUNT 16

ERCOUNT

sWA]

S$SERROR
MOV

\N
"7,

000240

MOV

#240,-(SP)

;SET UP PROCESSOR TO LEVEL 5

000006

MOV
ADD

PC,=(SP)
#6, (SP)

;MOVE PRESENT LOCATION TO STACK
sSET UP FOR NEXT INSTRUCTION

BIS

#100,3LPS

~
~N

sTEST THAT THE PRINTER WILL NOT INT. AT
;PROCESSOR LEVEL 5

001772

002000

2228

—~

NS323F3I2FR

)

;

012737
000017
012746

012737
000020
012746

002004

010746
062716

002014

052777

000017

052797 000100

001052

ERR17:

N=N+1

$SETPSW

176756

RTI

ERCOUNT

sSET UP ERROR COUNT 17

:LOAD PSW

sSET PRINTER INT ENABLE

SEQ@ 0026

YM=Z049A-AA
CZLXAA.SRC

1272
}%;2

(DECSPEC=11-BDFAD=A=D). - MACY11 30A(1052)

12-MAR-81 10:43

002022
002024

000240
042777

000100

002032

8(1)8(7)3¥

000020

1279

002040

012746

000200

(1)
(1)

002044
002046

010746
062716

(1)
1281
1282
1283
}ggg

002044

002052
002054
002062
002064
002072

000002
052777
000240
042777
000137

001052

}gg}

000006
000100

176716

000100
002110

176706

002076
002100

002104

022626
004537

000137

1300

002132

012737

000021

1301
1302
1303
1304
1305

002140
002144
002146
002152
002154

004537
000761
105777
100406

011142

002154

01273;

000022

1306
1307
1308

002162
002166
002170

004537
000750
012746

011142

(1)
(1)

002174
002176

010746
062716

1310
1311
1312
(1)
(1)
1313

002204
002212
002214
002214

052777
000240

000100

176566

012737
000024

000023

001052

(1)

JWAIT
;CLEAR INT ENABLE PRINTER OK

#100,8LPS

$ERROR

#20,

MOV

#200,=(SP)

;SET PROCESSOR TO LEVEL 4

MOV
ADD

PC,=(SP)
#6., (SP)

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

=N+

$SETPSW

ERCOUNT

;SET UP ERROR COUNT 20
‘

'
|

:LOAD PSW
;SET_PRINTER INT. ENABLE
JWAIT
‘
:CLEAR PRINTER INT ENABLE
;PRINTER OK CONTINUE

#100,aLPS

#100,aLPS
TESTID

|
‘

s
;

002130

002174

002202

002222

012777
012777
005777

100006

0000

000002

004537

002230
000340
176650

176712
176706

TEST1D: MOV
MoV
TST

BPL

001052

176626

001052

000140

(6)+,(6)+
X5,STAER
TESTIC

;RESTORE STACK
:REPORT ERROR

;
.

:RE-ENTER TESTIC

SERROR

#INT1D,@PTRVEC
#340,@PTRPSW ~
aLPS

LP4
\N

ERR21:

MOV

#21,

JSR

LP4:

BR
TSTB

X5,STAER
TEST1D
aLPS
LP5
\N

ERR22:

LP5:

000006

011142

(MP
JSR
JMP

;AT PRIORITY LEVEL &

002110
002116
002124

1309

SEQ 0027 ‘

;TEST THE ABILITY OF THE PRINTER TO INTERRUPT

1296
1297
1298

fl;

PAGE 18<2

no'\‘ .

RTI
BIS
NOP
BIC
JMP

INTIC:

011142
001612

}ggg

(1)

11:24

: INTERRUPT HANDLE FOR TEST1(C
;RESTORE STACK AND REPORT ERROR

1293

1299

ERR20:
;

1286
}Sg;
1289
1290

;TEST THAT THE PRINTER WILL NOT INTERRUPT
;WHEN THE PROCESSOR IS AT LEVEL &

((]|;

1280

NOP
BIC

176746

1275
}g;g
1278

12-MAR-81

BMI
$ERROR

Mo'\a .
=N+

JSR
BR

ERCOUNT

PC,=(SP)
#6, (SP)

BIS
NOP
$ERROR
MOV
N=N+1
JSR

#100,3LPS
\N

X5,STAER

:NO! CONTINUE

;SET UP ERROR COUNT 21

:YES = PRINTER READY

MOV
ADD

#23,

:REPORT PRINTER ERROR

MOV

$SETPSW

;SET UP INTERRUPT VECTOR
;LOCK UP PRIORITIES
:1S THERE A PRINTER ERROR

:LOOP ON ERROR
;IS READY SET

X5, STAER
TESTID
#140,~(SP)

RTI

ERR23:

w22,

ERCOUNT

;:SET UP ERROR COUNT 22
:REPORT READY NOT SET
:LOOP ON ERROR
;SET PRIORITY TO LEVEL 3

ERCOUNT

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

:SET_PRINTER INTERRUPT ENABLE
JWAIT

:SET UP ERROR COUNT 23
:REPORT ERROR

;
|

|
.

61-%DFAD-A-D)
(DECSPEC-

YM=Z04GA~AA
CZLXAA.SRC

)

002230
002232
002240
002244
002244
002246
n

000730

12-MAR-81

11:24

TEST1D

PAGE 18-3

SEQ 0028

;LOOP ON ERROR

; INTERRUPT HANDLER FOR TEST1D

(02226

no
n

1
1

WWWA~A
~~ WNWWWWWW

D = d
rnonN — e b (O
~ e OV
W

1314

]

12-MAR-81

MACY11 30A(1052)

022626
042777
012746
010746
062716
000002
012777
012777

000100

000000

INTID:

176540

(6)+,(6)+
#100,aLPS
#0,-(SP)

sRESET STACK
;CLEAR INT. ENABLE FOR PRINTER
:CLEAR PROCESSOR STATUS

MOV
ADD

PC.=(SP)
#6, (SP)

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

MOV
MOV

#12706,@PTRVEC
#1000,3PTRPSW

:RESET INSTRUCTION AT 200
:RESET INSTRUCTION AT 202

$SETPSW

000006
012706
001000

CMP
BIC
MOV

176546
176542

RTI

:LOAD PSW

; GET INITIAL SWR VALUE
; IF THERE IS NO H/W SWR
\"

1330 002270
1331

1332
1333
1334
1335
1336
1337
1338
1339
1340
1341
1342
1343
1344

1345
1346
1347

1348
1349
1350
1351

002276

002300
002304
002310
002314
002320
002324
002330
002336
002344
002350
002352
002356

022737
001044
005037

000176
001070
001066
001072
001074
000034
000036
011172
000300
001072

002362

CLR

CLR
CLR
CLR

000034
000036

176424

002366
002374
002376

cMP
BNE

001004

WwT:

WAIT
NOP

CMP

001070

002400
002406
002410

MOV
MOV
MOV
MOV
INC
TRAP
CLR
MOV
MOV
MOV

SKIP:

BEQ

NOP

:S/W SWR ?
NO- CONT INUE

#176,SWR
SKIP

SIGNAL

DIGITS
SET
CHAR

34 ,-(SP)
36,-(SP)
#TKINT,34
#300,36
SET
+0
SET
(SP)+,36
(SP)+,34
#100,aTKS

:
:

;INITIALIZE INTERRUPT ROUTINE
3

;SAVE VECTOR
:SAVE VECTOR
;SET UP NEW VECTOR
:SET UP NEW VECTOR
:SET HEADER FLAG
ENTER INTERRUPT ROUTINE
:CLEAR HEADER FLAG
RESTORE VECTOR
;RESTORE VECTOR
ENABLE KEYBOARD INTERRUPT

:SWR VALUE ENTERED ?

#1,SIGNAL

;NO- WAIT

:1 MINUTE PRINT SPEED CHECK

SIF A KW11=-L OR KW11-P ARE NOT AVAILABLE,

1357
1358
1359

*FOR MANUAL TIMING OF THE PRINTER.
002412
002420

012737
012737

000002
000006

000006
000004

CLCKAV: :8&

SEC
TSTB

176372

1365
1366

002446

002450

261
105777

000004
002626
176350

BCS

THE SR BITO IS USED

HRTI ,a#6

;SET TRAP TO RETURN

:KW11-L AVAILABLE?
‘NO, BRANCH

"
aLkS

CLR
grévg

A
KW11L

"RESET TRAP VECTOR TQ HALT
‘USE KW11L FOR TIMING

TSTB

aPLKS

;KW11-P AVAILABLE?

YM-Z049A-AA

CZLXAA,SRC

002454

(DECSPEC=11-BDFAD=A=D)

103404

SWTIME
BCS
YA
CLR
KW11P
JMP
SENABLE
SWTIME:

12-MAR-81 10:43

005037
000137

000004
002546

022737
00

000176

001004

000100
001042
010726
000004

176314

000002
000001

S4gtgEoocHERE

)
D

000176

001004

000100
001042
010726
001000
003072

176234

g’ooo
W)
=

- -t =

MESC

1%:

MOV
BIT
BEQ

JMP

KW11P:

SENABLE

11 :24

:NO,

PAGE 18-4

USE SWITCH REG FOR TIMING

JRESET TRAP VECTOR TO HALT
;USE KW11=P FOR TIMING
:S/W SWR ?
sNO=_ CONT INUE

#176,SWR
.+10
#100,aTKS
LINCNT
%, TYPINT

;ENABLE KEYBOARD INTERRUPT
;CLEAR LINE COUNT

: TYPE MESSAGE

#2.DIA
#BI1T0,asSwR
1%

STARO

JRESET TRAP VECTOR TO HALT
;PRINT SPEED CHECK USING MANUAL TIMING
:SET DUMMY ADDRESS
;START?
sWAIT FOR START
;START PRINTING

CMP
BNE
BIS
CLR
JSR

#176.SWR
.+10
#100,3TKS
LINCNT
%4, TYPINT

:S/W SWR ?
sNO- CONT INUE
sENABLE KEYBOARD INTERRUPT
;CLEAR LINE COUNT

MOV
MOV
MOV

MINCNT ,aCSBR
PLKS,.DIA
#105 . aPLKS

:SET CLOCK COUNT
;STORE PLKS ADDRESS
s START CLOCK
;START PRINTING

MOV

176214

003076
176202

JMP

%6
#1000,

STARD

sRESET STACK

:START FOR KW11=L.....

oo~

83 008

BIS
CLR
JSR
CLR
EMT

:START FOR KW11-P.....

i
D cad o
b cd
-

—d
i
b

003076
176244

CMP
BNE

002702

1380

WWWN ~e~ S WNWNWWWNWN

12-MAR-81

MACY11 30A(1052)

022737
001003
052777
005037
004437
012706
013737
013737
012777

000176

001004

000100
001042
010726

176154

003072
001026
000100

KWw11L:

SENABLE

CMP
BNE
BIS
CLR
JSR

#176,SWR
.+10
#100,aTKS
LINCNT
%, TYPINT

MOV

MINCNT,CNTR

MOV

#100,aLKS

MOV

003074
003076

MOV

176124

%6
#1000,
LKS.DIA

:S/W SWR ?
sNG- CONT INUE

;ENABLE KEYBOARD INTERRUPT
COUNT
LINE
AR
;CLE
sJRESET STACK
sSET CLOCK COUNT
;STORE LKS ADDRESS
;ENABLE CLOCK INTERRUPT

:PRINTING ROUTINE.....

012737 000200
012737 000140
013737 001060
012737 000204
012737 00327?
012737 00002
017737 176102
063737 001042

STARO:

STARCA: MOV
MOV
STAROC: MOV
STAROB: MOV
MOV
STARA: MOV
001040

MOV
ADD

#200,LEGCHR
#140,NUMCHR
LEGCHR, STRCHR
2.
, CHRCNT
#13
#PATTB, STRCHR
#17. ,CYCCNT

@STRCHR, CHRGEN
LINCNT, CHRGEN

;LEGAL CHECK

; #CHARS

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

SEQ 0029

YM=-Z2049A-AA

CZLXAA.SRC
1414

(DECSPEC=11-BDFAD=A=D)

12-MAR-81 10:43

002762

023737

001060

001040

002772

163737

001062

001040

003002

013777

001040

175772

003016

005337

001044

003024
003032
003036
003042

062737
000137
005237
012777

000002
002740
001042
000012

003050
003054

105777
100375

175724

003010

003056

005337

032777

000001

000137

002724

003064

001411

003072
003074
003076

007020
000000
000002

003066

001036

001C54
175732

MACY11 30A(1052)
1%:

STAR1:

11:24

PAGE 18-5

;LEGAL CHAR?
LEGCHR,CHRGEN
;YES, BRANCH
“
STAR1
NUMCHR,CHRGEN ~ ;NO, MAKE LEGAL
sRECHECK CHAR
'
1%

DEC
BEQ
DEC

CHRCNT
STARED
CYCCNT

MOV

ADD
JMP
STARED: INC
MOV

SWAIT

TSTB

BPL
BIT
BEQ
JMP

CMP
BGT
sus
BR

BNE

175720

12-MAR-81

CHRGEN,aLPB

:LOAD BUFFER

STAR1

:CONTINUE IF NOT DONE GROUP

SEQ 0030

:DECREMENT CHAR COUNT
:BRANCH IF DONE LINE
sDECREMENT CYCCLE COUNT

:ADD 2 TO TABLE POINTER
s CONT INUE
: INCREMENT LINE COUNT
:SEND LF

#2 ,STRCHR
STARA
LINCNT
#12.,3LPB

s TEST READY

aLPS

sWAIT FOR READY
;STOP PRINT?
;YES, BRANCH
s CONTINUE

.4
#B1T0,aSWR
CONVRT
STAROB

MINCNT: 7020
CNTR:

DIA:

:NOTE == PLACE 5670 (8)

IN MINCNT FOR 50 HZ. LINE FREQUENCY !@!!!

;LINE CLOCK SERVICE ROUTINE FOR KW11-L
003100
003104
003106

005337
001401
000002

LKSRV:

003074

RTI

177760

042777

000100

003122
003126

012703
02%737

012775
000144

162737
005237

000144
011056

001042

003152
003160
003164
003170

062737
113723
005037
022737

000060
011056
011056
000012

011056

2%:

001042

3$:

003200
003206

162737
005237

000012
011056

001042

003214
003222

062737
113723

000060
011056

011056

003136
003144

003212

005037

003006
000

003006

000766

011056

001042

;DECREMENT COUNTER
JEXIT IF 1 MINUTE

CNTR
CONVRT

;RETURN

:ROUNTINE TO PRINT NUMBER OF LINES PRINTED IN 1 MINUTE
:DISABLE CLOCK INTERRUPT IF CLOCK AVAILABLE
#100, BDIA
CONVRT: BIC

003110

003116

DEC
BEQ

CLR

1%:

TYPDAT

MOV

#MES12, 13

INC
BR

TYPDAT
1%

CMP
BGT
SuB

#100. ,LINCNT
2%
#100. ,LINCNT

ADD
MOVB
CLR

#60, TYPDAT
TYPDAT,(%3)+
TYPDAT

BGT

CMP

SUB

INC

4%.

LEAR DIGIT COUNT

ADD
MOvVB

:SET MESSAGE POINTER

:GREATER THAN 100?
'NO. PRINT HUNDRED'S DIGIT
:YES, SUBTRACT 100

* INCREMENT HUNDRED'S DIGIT
*CONTINUE CONVERSION
*MAKE ASCII
:STORE DIGIT
*CLEAR DIGIT COUNTER

#10. ,LINCNT

*GREATER THEN 10?

#10. , LINCNT

:YES,

*NO,

PRINT DIGIT

SUBTRACT 10

TYPDAT

* INCREMENT TEN'S DIGIT

#60, TYPDAT
TYPDAT, (%3)+

*MAKE ASCII
:STORE DIGIT

*CONTINUE CONVERSION

YM=Z045A-AA
CZLXAA .SRC
1468
1469

1470
1471
1472
1473

1474
1475
1476
1477

1478
1479
1480
1481
1482
1483

1484
1485
1486
1487
1488

003264

003270
003272

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

12-MAR=81

10:43

013737
062737
113723

001042
000060
011056

011056
011056

012734
010706
003310

010724

MACY11 30A(1052)
MOV
ADD

MOVB
EMT
MES11

12-MAR-81

3
11 :24

LINCNT, TYPDAT

#60, TYPDAT

TSPDAT,(Z3)¢

#MES11A,PRTMSG

%4 ,RINT
TESTZ

PATTB:

PAGE 18-6

;GET ONE'S DIGIT:
sMAKE ASCII
;STORE DIGIT

; TYPE MESSAGE
s TYPE PRINT SPEED

sSET PRINTER MESSAGE ADDRESS

;PRINT PRINTER SPEED ON LINE PRINTER

JNEXT TEST

SEQ 0031

r
|

YM=-Z049A-AA

CZLXAA .SRC

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

-4

1490
1491
1492
1493
1494

PA————b

BRSSIRIRER/SSC2
SN =0 0O NONAWN=O

i oo
i
RURURURUR) — = = =
s s s
A~ ~
VT T

n AORIRDAD = =
Voo~ Ve~

11:24

PAGE 19

SEQ 0032

;TEST 2

;TESTS INTERFACE AND PRINTER DATA PATHS

;WITH ALTERNATING ONES AND ZEROS

022737

000176

77
“ 000100
0527

e
-

———
PP

—l—.—.—l—l—.-‘—l—l-‘-fl.—b—._‘—l—l—l
e
b
b
el

]

12-MAR-81

MACY11 30A(1052)

001004

010726
010602

012737

000024

004537

011142

013737

014062

013250

012737
012737
013737
005777

177740
177574
003456
175364

001044
001036
001054

004437
000003

100006

012737

000026
004537
000000
000177
013737
012737
000137

010656

000025

001337
012777
105777
100375

:S/W SWR ?

BIS

#100,aTKS .

;ENABLE KEYBOARD INTERRUPT

JSR

%5 ,PRTINT

001052

ERR24:

$ERROR

001052

JSR
M=M+1

001054
001050

LP2B:
T2A:

X5.STAER

MOV

ERR2S5:

TST2AX

JSR

TST2AX: $SPRINT

T3A:

%4, TYPINT

#24,

=N+

MOV
MOV
MOV

sNO- CONT INUE

.+10

:ox .
HALT

JINITIALIZE PRINTER
;BRANCH IF 0K

;SET UP ERROR COUNT 24

ERCOUNT

;REPORT PRINTER NOT READY
JHALT ON ERROR

sSET TEST NUMBER FOR MESSAGE

TNC2 ,MES15

sPRINT

24‘PRNNT

#-32.,CYCCNT
#-132.,CHRCNT
SCHRSW,STRCHR

TEST NUMBER

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

TST
BPL

alLPS
- LP2B

:Ox .

#25,

JSR

%5,STAER

sREPORT ERROR SET

JMP
MOV
MOV
JMP

aSTRCHR
RCHRSW,STRCHR

;LOAD CHAR
;RESET (HAR. SWITCH

$ERROR
=N+

HALT

;SET UP ERROR COUNT 25

ERCOUNT

#125,SAVE
T5A

sHALT ON ERROR

;STORE CHAR
;LOAD CHAR

SCHRSW: T2A

003436
003462

013737
012737
013777
005237

#176,SWR

CMP

JSR

011142

175416
003460
000125
003476

SENABLE

BNE

175472

004437
004537

000000

TEST2:

003456
000052
001050
001036

001054
001050
175276

000012

175262

175254

012737
005237

177574
001044

001036

032777

010000

175234

RCHRSW:

T1A

T1A:

MOV

T5A:

SCHRSW,STRCHR

;SET CHAR. SWITCH TO U

CHRCNT

2 INC CHARACTER COUNT

MOV
MOV

#52,SAVE
SAVE ,aLPB

BNE
MOV

T3A
#12.3LPB

TSTB

alLPS

MOV

#-132.,CHRCNT

BIT
BNE

#BIT12,aSWR
TESTZ2

INC

SWAIT

BPL

INC

cvgcm
TS5

:STORE CHAR
;LOAD BUFFER
s CONT INUE
;SEND LF

sTEST READY

sWAIT FOR READY
JRESET CHAR COUNT
sINC CYCLE COUNT
sCONTINUE IF NOT DONE
;LOOP ON TEST?
;LOOP

—
e

—

YM=Z049A-AA

CZLXAA.SRC

(DECSPEC=11-BDFAD=A=D)

12-MAR-81 10:43

:ALL CHARACTERS AND ILLEGAL CHARACTERS

1535

003552

1536

003570

1537

(1)

(1)
(1)

;

003552 022737 000176 001004
)
003560 001003
003562 052777 000100 175230
003574

004437

TEST3:

003606

1541
1542
1543

003626
003634
003640

012737

177765

001044

012737
005777
100006

000040
175140

001040

T2B0A:
1281:

fl; 003642 01272’2:; 000026 001052 ERR26:
0000

1545
1546
1547
1548

003650
003654
003656
003664

004537
000000
013777
005237

011142

1550

003672

005237

001040

1553
1554
1555
1556
1557
1558
1559

003706
003714
003716
003720
003726
003730
003732

022737
001744
000746
022737
001737
000741
012777

000200

001040

000140

001040

T2B2B:

000012

175042

T12B2:

(1)
(1)

003740
003744

105777
100375

175034

1564

003760

1549 003670 001420

001040
001036

1551 003676 032777 020000
1552 003704 001405

1560

1561
1562
1563

003740

003746
003752
003756

005037
005777
100006

#176,SWR
.+10
#100,aTKS

$PRINT

LP2E:

175116

LP2H:
T2B3:

JSET 21 LINES

MOV
TST
BPL

#40,CHRGEN
aLPS
LP2E

;SET FIRST CHAR.
:DOES THE PRINTER HAVE AN ERROR
;BRANCH IF NO ERROR

nox‘ .

26,

JSR
HALT
MOV
INC

%5,STAER

$ERROR
=N+

001040
001040

001040

T2B4:

ERCOUNT

CMP
BEQ
3R
(MP
BEQ
BR
MOV

T1STB
BPL

aLPsS
.~4

SWAIT

(LR
TST
BPL

$ERROR

LDCH:

LP2H
#-132.,CHRCNT

CHRGEN,aLPB
CHRCNT
1282
CHRGEN
#81T13,aSWR
12828
#200, CHRGEN
T2B0A
1281
#140, CHRGEN
T2B0A
1281
#12,aLPB

000027 001052 ERR27: 'HO'\‘ .
((B 003760 0127%(7)
oooo
=N+
175000

;SET TEST NUMBER FOR MESSAGE

;PRINT TEST NUMBER

#-13,CYCCNT

JMP
MOV

BIT
BEQ

TNO3,MES15

;S/W SWR ?
sNO- CONT INUE
;ENABLE KEYBOARD INTERRUPT

MOV

INC

175100

%4, TYPINT

;

%4 ,PRNNT

BEQ

001040
175022

1565 003766 004537 011142
1566 003772 000000
1567 003774 013777 001040
1568 004002 005237 001040
006 022737 000005
1569
1570 004014 001772
1571 004016 022737 000006
1572 004024 001766
1573 004026 022737 000010
1574 004034 001762

SEQ 0033

JSR

M=M+1

1539 003614 000137 003746
1540 003620 012737 177574 01036 T12B0:
(003642

cMP
BNE
BIS

MOV

003602 004437 010656
000004

SENABLE

JSR

(10726

003574 013737 014064 013250

1538

1544

PAGE 20

:TEST CHARACTER COMPARATOR WITH ALTERNATE LINES OF

}2%2

(1)
(1)
(1)

11:24

;TEST 3

‘

1531

1532

12-MAR-81

MACY11 30A(1052)

JSR
HALT
MOV
INC
(MP
BEQ
CMP
BEQ
(MP
BEQ

;SET UP ERROR COUNT 26
;REPORT ERROR
JHALT ON ERROR
;PRINT CHARACTER
sINC. CHAR. COUNT

;BRANCH IF LINE IS FINISHED

JNEXT CHAR

;CHECK CHAR SET
;BRANCH IF 64 CHARS

;LEGAL CHAR?
sMAKE SPACE IF ILLEGAL
;CONTINUE IF LEGAL CHAR
;LEGAL CHAR?
;MAKE SPACE IF ILLEGAL
;CONTINUE IF LEGAL CHAR
sISSUE LINE FEED

;TEST READY
;WAIT FOR READY

sFIRST ILLEGAL CHAR
sTEST FOR ERROR
;BRANCH IF NO ERROR

CHRGEN
aLPS
LDCH

27,

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

ERCOUNT

X5.STAER

CHRGEN ,aLPB

CHRGEN
#5,CHRGEN
1284
#6, CHRGEN
T2B4
#10, CHRGEN
1284

:SET UP ERROR COUNT 27
;REPORT ERROR SET
JHALT ON ERROR
s TRANSMIT CHARACTER
JNEXT CHAR
.TEST FOR PLOT MODE
:SKIP IF TRUE
;TEST FOR 8 LPI
;SKiP IF TRUE
JTEST FOR ELONGATED CHAR
JSKIP IF TRUE

|
YM=-Z045A-AA
| CZLXAA,.SRC

(DECSPEC=11-BDFAD=A=D)

12-MAR-81 10:43

004036
004044
004046
004054
004056

022737
001756
022737
002747
012777

000012

001040

000014
:
000012

001040

(1) 004064
(1) 004070
1581 004072
1582 004076
1583 004100
1584 004106
1585 004110

105777
100375
005237
001250
032777
001402
000137

174710

1575
1576
1577
1578
1579

1580

1586

004064

004114

174716

003552
:

—

MA(CY11 30A(1052)

T12B5:

001044

010000

174676
1$:

12-MAR-81

CMP
BEQ
CMP
BLT
MOV

#12,CHRGEN
1284
#14 ,CHRGEN
LDCH
#12,3LPB

TSTB
BPL
INC
BNE
BIT
BEQ
JMP

aLPS
.=
CYCCNT
1230
#BIT12,8SWR
1%
TEST3

SWAIT

1 3

11:24

PAGE 20-1

sTEST FOR LIME FEED
sSKIP IF LF
sTEST FOR LEGAL CHARA(CTER
;CONTINUE IF STILL ILLEGAL CHAR.
;ISSUE LINE FEED
sTEST READY
;JWAIT FOR READY
s INCREMENT LINE COUNT
;CONTINUE IF NOT DONE
. ;CHECK TO LOOP ON TEST
;SKIP
;LOOP

SEQ 0034

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

YM=Z045A~AA
CZLXAA,SRC

oo
S

RN
NN
—

i cnld
il

B W= O

2R
o S NS NN - & OO NV

)
e
B

b
b
il
-h oo

% SRS REEKRRRT

s
il o
i

004200

_a_n_aa:_n-n ~A~OOONONOAA~ONONONONON
b b e
e b e cd D i d e cd wd

12-MAR-81

11: 24

PAGE 21

;TEST &
sUNDERL INE TEST

322 2828282 8 8B CRGRCCTUSCST
2 3388 gRRRERRE

1588
1589
1590
1591
1

MACY11 30A(1052)

022737
001003
052777
004437

000176

001004

000100
010726

174666

013737
004437
000005
012737
012737
012737
012737
012737
013737
005777

014066
010656

013250

100006

012737
000031
004537
000000
013777
005237
001412
005237
023737

174560

000030

.+10

001052

uLO:

001040
001060

001040

001062

001040

001036

012777

000015

105777

174470

174476

001036
174446

012737
000032
004537
000000
005237
001361
012777

000031

105777

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

STRCHR, CHRGEN

uLt:

aLPS

ERR30:

\N
#30,

174454

001052

uLe:

sPRINT TEST NUMBER

;LEGAL CHECK
;#CHARS

:SET UP FIRST LINE

;SET LINE COUNT FOR 1 PAGE
;SET CHAR COUNT
:STORE START CHAR

:TEST FOR ERROR

:BRANCH IF NO ERROR

uL2

ERCOUNT

X5,STAER
174536

;SET TEST NUMBER FOR MESSAGE

TNO4 ,MES15
%4 ,PRNNT

011142

001040

:ENABLE KEYBOARD INTERRUPT

%4, TYPINT

uL00:

001040

;S/W SWR ?
:NC= CONTINUE

#176,SWR
#100,aTKS

ULOOA:

000200
000140

001054

ULPRT:

CHRGEN,aLPB
CHRCONT
UL4
CHRGEN
LEGCHR, CHRGEN
uL1
CHRGEN
NUM,CHR

uL1

UL4:

#15,3LPB

UL7:
UL8:

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

ERR31:

#31,

uL9
\N

ERCOUNT

;SET UP ERROR COUNT 30
:REPORT ERROR SET
:HALT ON ERROR
:LOAD BUFFER
; INCREMENT CHAR COUNT
:BRANCH IF DONE LINE
;NEXT CHAR
;LEGAL CHAR?
:BRANCH AND CONTINUE IF LEGAL CHAR
:MAKE LEGAL

: CONT INUE
:SEND CR

:TEST READY

:WAIT FOR READY

;RESET COUNT
;SEND UNDERL INE CODE
sREADY?
;BR=NO ERROR

;SET UP ERROR COUNT 31

R5,STAER

;REPORT ERROR SET

CHRCNT

#12,3LPB

uL?

:COUNT A CHARACTER
:BR=NOT DONE
sSEND LF

174410

m{s

s TEST READY

001042

L INCNT

011142
UL9:

001036

000012

000040

174416

001054

uLé

#40,STRCHR

uLo

;WAIT FOR READY

sDECREMENT LINE COUNT
JEXIT TEST IF DONE
;START (HAR A LEGAL CHAR?
sCONTINUE IF LEGAL START (HAR

SEQ 0035

YM=-Z049A-AA

CZLXAA,SRC

(DECSPEC-11-BDFAD=A=D)

12-MAR-81 10:43

1630 004410 032777 010000

1631

1632
1633
1634
1635

004416

001236

MACY11 30A(1052)

174366 UL6:

BIT
BNE

12-MAR-81

#81T712,aSWR
ULPRT

17:24

PAGE 21-1

;LOOP ON TEST?

;L. OOP

SEQ 0036

YM=Z0459A-AA

CILXAA.SRC

(DECSPEC-11-BDFAD=A-D)

12-MAR-81 10:43

1637

"MAVE BEEN PRINTED,

004420

(1) 004420 022737 000176 001004
(1) 004426 001003

1645
1646

OVRPRT: SENABLE

004437

004436
004442

010726

1648

004462

012737

1650
1651
1652
1653
1654
1655
1656
1657

004476
004504
004512
004520
004522
004530
004536
004542

013737
062737
012737
000406
012737
013777
005777
100006

177574

001036

OVR:

1649 004470 012737 177776 001044 OVRO:

004544

001036 001056
000205 001056
000040 001040
000105

001040

OVR4:

001040 174244 OVR1:
OVR2:

174236

JSR
SPRINT

%, TYPINT
\M

#100,3TKS

TNOS ,MES15

JSR

%4, PRNNT

MOV

#-132_.CHRCNT

M=M+1

000006

1647 004454 012737 177760 001042

#176.,SWR
.+10

MOV

(1) 004450 004437 010656

THEN A FULL LINE OF M'S ARE PRINTED.

CMP
BNE
BIS

004430 052777 000100 174362

(1) 004442 013737 014070 013250

1658

PAGE 22

‘LINE EDITING TEST

}&g

(1)

11:24

:TEST S
SENDS 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

1638
1639
1640
1641
1644

12-MAR-81

MACY11 30A(1052)

MOV
MOV

MOV
ADD
MOV
B8R
MOV
MOV
TST
8PL

$ERROR

:S/W SWR ?
*NO- CONTINUE

“ENABLEKEYBOARD INTERRUPT

:SET TEST NUMBER FOR MESSAGE

*PRINT TEST NUMBER

#-16..LINCNT

:SET LINE COUNT FOR 16 LINES

#-2,CYCONT

:NO. CHARS LEFT TO PRINT
:NO. SPACES +1
*SEND SPACE
*BRANCH
;SEND E
:LOAD BUFFER
*TEST FOR ERROR
*BRANCH IF NO ERROR

CHRCNT.STRCNT
#133. ,STRCNT
#40, CHRGEN
OVR2
#105, CHRGEN
CHRGEN, aLPB
aLPS
OVR3
\N

ERCOUNT

:SET CHAR COUNT

*SET CYCLE COUNT FOR A PAIR OF E'S

:SET UP ERROR COUNT 32

(1)

004544 012737 000032 001052 ERR32:

MOV

#32,

1659

004552

011142

JSR

%5.STAER

:REPORT ERROR SET

DEC
BGT
BEQ
INC

STRCNT
OVR1
OVR4
CHRCNT

:DECREMENT SPACE COUNTER
BRANCH IF NOT DONE SPACES
BRANCH IF NOT FIRST E
: INCREMENT CHAR COUNT

(1)

1660

000033

004556

004537

000000

005337 001056
003361
001755
005237 001036

OVR3:

1666 004576 005237 001044

OVRS:

1661 004560
1662 004564
1663 004566
1664 004570
1665

004574

001437

N=N+1
HALT

BEQ

OVR8

BRANCH IF DONE LINE

BNE
MOV

OVR1
#15,3LPB

CYCCNT

: INCREMENT CYCLE "COUNT

TSTB

aLPS

:TEST READY

001042

INC
BEQ
BIT

1676 004644 012737 000115 001040
1677 004652 012737 177573 001036

MOV
MOV

BEQ

LINCNT
OVREXT
#1,LINCNT
OVR

*YES, INCREMENT LINE COUNT
‘EXIT IF DONE TEST
“WHICH LINE NEXT?
*BRANCH TO SEND E'S

1680 004670 000137 004536
1681 004674 012777 000012 174100 OVR8:
1682 004702 000137 004612

CLR
CLR

JMP
MOV
JMP

STRCNT
CYCCNT

1667 004602 001352
1668 0046064 012777 000015 174170
1669

(1)

004612

105777

174162

(1) 004616 100375
1670 004620 005737 001036
1671 004624 001321

1672 004626 005237 001042
1673 004632 001425
1674 004634 032737 000001
1675 004642 001707

1678 004660 005037 001056
1679 004664 005037 001044

OVR6:

INC

SWAIT

BPL
ST
BNE

=4
CHRCNT
OVRO

#115, CHRGEN
#-13%5.,CHRCNT

OVR2
#12.3LPB
OVRé

“CONTINUE SENDING E'S IF NOT DONE
“SEND CR
‘WAIT FOR READY
*LINE DONE?
*NO, CONTINUE OVER PRINT

:SET UP TO SEND M'S
:SET CHAR COUNT
*CLEAR SPACE COUNT
*CLEAR CYCLE COUNT

SPRINT LINE OF M'S
“SEND LF
* CONT INUE

SEQ 0037

YM=-2049A-AA
CZLXAA.SRC

1683

1684

004706

004714

(DECSPEC~ 11Z§DFAD-A-D)
12-MAR-81 10

032777
001241

010000

174070

MACY11 30A(1052)
_

OVREXT: BIT

12-MAR-81

#BITI2.ASWR
OVRPRT

11:24

PAGE 22-1

P
ON TEST?
:LOO
;LOOP

SEQ 0038

YM=-Z049A-AA

CZLXAA.SRC

(DECSPEC;&'I(-.%DFAD-A-D)

12-MAR-81

004716

(1) 004716 022737 000176 001004
(1) 004724 001003
(1)

1692
1693

PRTCTL: SENABLE

004437

010726

(1) 004740 013737 014072 013250
(1) 004746 004437 010656
000007
1)
1694 004752 012737 000060 001054
1695
1696
1697
1698
1699

004760
004766
004774
005002
005006

012737
012737
013737
005777
100006

177641 001034 PRTQ:
177574 001036 PRT2:
001054 001040

1701

005016

004537

011142

1700

005010

PRT3:

173772

(1) 005010 012737 000033 001052 ERR33:
000034
(1)

1702
1703
1704
1705
1706
1707
1708
1709
1710
1711

(1)

(1)
1712
1713
1714
1715
1716
1717
1718
1719
1720
1721
1722
1723
1726
1725
1726
1727

005022
005024
005032
005036
005040
005042
005046
005052
005054
005062

005062

005066
005070
005076
005100
005106
005110
005116
005120
005124
005130
005136
005142
005150
005154
005162
005166
005174

000000
013777
005237
002761
001433
005237
005237
001353
012777

105777

001040 173750 PRT4:
001036
001040
001034

000012 173720

#176,SWR
.+10

JSR
SPRINT

%, TYPINT
\M

MOV
JSR
M=M+1
MOV

11:24 PAGE 23

001054
001054
001054
001040 PRTA:
001054

PRT6:

001054

PRT7:

173610 PRT8:

TNO6 ,MES15
%4 ,PRNNT

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

MOV
N=N+1

#33,

HALT
MOV
INC
BLT
BEQ
INC
INC
BNE
MOV

CHRGEN,aLP8
CHRCNT
PRT3
PRTA
CHRGEN
SEGCNT
PRT3

ISTB

aLPS

SERROR

JSR

BPL
CMP
BEQ
CMP
BEQ
CMP
BEQ
INC
JMP
MOV
JMP
MOV
JMP
MOV
JMP
BIT
BNE

:S/W SWR ?
*NO- CONTINUE

*ENABLE KEYBOARD INTERRUPT

#100,aTKS

MOV
MOV
MOV
TST
BPL

SWAIT

173712

100375
022737 000040
001421
022737 000065
001422
022737 000071
001423
005237 001054
000137 004760
1
012737
000137 005002
012737.
000137 004760
012737 000040
000137 004760
032777 010000
:
001250

CMP
BNE
BIS

004726 052777 000100 174064

004734
004740

12-MAR-81

:TEST 6
*PRINT ONTROL TEST
“SENDS /ULL LINE OF SAME CHARACTER THEN FULL CHAR SET
“SHOULD ONLY PRINT THE FIRST 132 CHARACTERS RECEIVED

1686
1687
1688
}2898
1691

MACY11 30A(1052)

SSET TEST NUMBER FOR MESSAGE
*PRINT TEST NUMBER
:FIRST START CHAR

:SET OVERFLOW COUNT
:SET CHAR COUNT
:GET START CHAR
*TEST FOR ERROR
*BRANCH IF NO ERROR

:SET UP ERROR COUNT 33

ERCOUNT

%5.STAER

:REPORT ERROR SET

#12,3LPB

*SEND LF

.4
#40,STRCHR
PRT6
#65 ,STRCHR
PRT?
#71,STRCHR
PRT8
STRCHR
PRTO
#41, THRGEN
PRT
#66,STRCHR
PRTO
#40,STRCHR
PRTO
#BI1T12,35WR
PRTCTL

*HALT ON ERROR
*LOAD BUFFER
*INCREMENT CHAR COUNT
*BRANCH IF NOT 132 CHARS
“START OVERFLOW
*NEXT CHAR
* INCREMENT OVERFLOW COUNT
*CONTINUE IF NOT DONE
:TEST READY

‘WAIT FOR READY
*LAST START CHAR SPACE?
*YES, BRANCH
*LAST START CHAR §5?
*YES, BRANCH
DONE?
YES
NO, GET NEXT START CHAR
* CONT INUE
“GET FIRST CHAR IN SET
*START OVERFLOW
“SET START CHAR TO 6
* CONT INUE
*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 19:43

1729
1730
1731
]'_7%%

005176
005176
005204
005206

022737
001003
052777

000176

001004

000100

(1)

005220

013737

014074

005232
005240
005246

000010
012737
012737
117737

(1)

(1)
1737
1738
1739
1740
1741
1742
1743

(1)
(1

1744
1745
1746
1747
1748
1749
1750
1751
1752
1753
(1)
(1)
1754
1755
1756

'
B 4
12-MAR-81 11:24

PAGE 24

,
j

SEQ 0040

;TEST 7
sJMULTIPLE LINE ADVANCE TEST
;TESTS MULTIPLE LINE ADVANCES AND TIMINGS
;PRINTS THE NUMBER OF LINES SKIPPED ON THE LINE PRINTER

1734
(1)
(1)
(1)

1735
1736

MACY11 30A(1052)

005214
005220

005226

005254
005256
005262
005264

005264

005272
005276
005300
005306
005312
005314
005322
005330
005334
005342
005342
005346
005350
005354
005356

004437

001452
005777
100006

010726

010656
005364
177574
173602

173604

SENABLE
CMP
#176,SWR
BNE
. +10
BIS
#100,aTKS

,
:S/W SWR ?
sNO- CONT INUE
;ENABLE KEYBOARD INTERRUPT

013250

MoV

;SET TEST NUMBER FOR MESSAGE

001054
001036
001040

M=M+1
MOV
MOV
MOVB

173516

000034

013777
005237
001361
117737

001040
001036

173474

173534
177770
001042

001042
001042

042737
005237
012777

MLFA:
MLFO:

012737
000035
004537

000000

MLF :

001052

ERR34:

011142

000012

MLF2:

%6, TYPINT
M

JSR

%4 ,PRNNT

BEQ
TST
BPL
$ERROR

MOV
N=N+1

TNO7 ,MES15

#TABSTR,STRCHR
#-132.,CHRCNT
@STRCHR,CHRGEN
MLF 4
aLPS
MLF1
N

#34,

ERCOUNT

JSR

X5,STAER

MOV
INC
BNE
MOvVB

CHRGEN ,aLPB
CHRCNT
MLFO
@STRCHR,LINCNT

HALT

BIC
INC
MOV

SWAIT

105777
100375
005337

001042

TSTB
BPL
DEC

005237

001054

INC

001367

173432

173440

MLF1:

JSR
$PRINT

BNE

;PRINT TEST NUMBER
;FIRST CHAR
;SET CHAR COUNT
;GET CHAR

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

;SET UP ERROR COUNT 34

#177770,LINCNT
LINCNT
#12,3LPB

;REPORT ERROR
sHALT ON ERROR
;LOAD BUFFER
s INCREMENT CHAR COUNT
s CONT INUE
;GET ASCII LINE COUNT
;MAKE OCTAL
sADD 1
sSEND LF

aLPS
.~4
L INCNT

;TEST READY
sWAIT FOR READY
;DECREMENT LINE COUNT

STRCHR

sNEXT CHAR

MLF?2

s CONT INUE

»
i
;

YM=Z049A-AA
CZLXAA.SRC
1760
1761
1762

1763
1764

1765
1766
1767

(DECSPEC=11-BDFAD=A=D)

12-MAR-81 10:43

005362

000726

005364
005372
005400

033462
033064

000

MACY11 30A(1052)
BR

033062
032463

033463
030064

TABSTR: .ASCIZ

032777
001272

11:24

MLFA

PAGE 27

s CONT INUE

7272637463540/

.EVEN

005402
005402
005410

12-MAR-81

010000

173374

MLF4:

BIT
BNE

#BIT12,aSWR
ML~

;CHECK LOOP ON TEST

;LOOP

SEQ 0041

YM=Z049A-AA

CZLXAA. SRC

MACY11 30A(1052)

(DECSPEC-11-BDFAD=A-D)

12-MAR-81 10:43

005412

005412 022737 000176
005420 001003

SENABLE

HSPRT:

001004

(1)
(1)

(1)
1775
1776

005430
005434

004437

010726

1777

005446
005454
005462

000200
000140
000040

001060
001062
001054

1781

005512 013737 001054

001040

1784

005526

012737

0176 SWR
+10

JSR
$PRINT

%4, TYPINT
M

MOV
JSR

005434 013737 014076 013250
005442 004437 010656
000011
012737
012737

CMP
BNE

BIS

(1) 005422 052777 000100 173370

1773
1774

HSOOA:

HS00:

M=M+1
MOV
MOV

MOV

#200,LEGCHR
#1460 ,NUMCHR
#40,STRCHR

MOV

STRCHR,CHRGEN

#127. ,LINCNT
#-132.,CHRCNT
#-17. .CYCCNT

HS1:

TST
BPL

aLPS
HS2

MO'\$1

#35,

JSR
HALT

%5,STAER

INC
BEQ

CHRCNT
HS4

INC
BEQ
CMP
BNE

CYCCNT
HS3
LEGCHR,CHRGEN
HS1

005520
005524

005777
100006

173254

((}; 005526 0127§Z 000035 001052 ERR3S:
005534
005540

004537
000000

011142

$ERROR

1787 005542 013777 001040 173232 HS2:

MOV

1790 005556 005237 001040

INC

1788
1789

1791
1792
1793
1794

005550
005554

005562
005566
005570
005576

005237
001424

005237
001410
023737
001350

001036

001044

001060

001040

005600 163737 001062 001040
005606 000744
005610 013737 001054 001040 HS3:
005616 012737 177757 001044
1799 005624 000735
1800 005626 012777 000012 173146 HS4:

1795
1796
1797
1798
1801

(1)

1802
1803

1804
1805
1806
1807
1808

005634

005640

005642
005646

105777

173140

005337
002413

001042

100375

005650 162737 000004
005656 022737 000040
005664 003704
005666 063737 001062
700
005674

001054
001054
001054

1812

005704

001242

11%112 005706 000137 005712

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

:LEGAL CHECK
:#CHARS
:SET UP FIRST LINE

“SET LINE COUNT FOR 2 PAGES
;SET CHAR COUNT
*SET GROUP COUNT
;STORE START (HAR

:TEST FOR ERROR
:BRANCH IF NO ERROR

:SET UP ERROR COUNT 35

ERCOUNT

CHRGEN,aLPB

:REPORT ERROR SET
;HALT ON ERROR

:LOAD BUFFER

: INCREMENT CHAR COUNT
:BRANCH IF DONE LINE

CHRGEN

:NEXT CHAR

SuB
B8R
MOV
MOV

NUMCHR,CHRGEN
HS1
STRCHR,CHRGEN
#-17.,CYCCNT

:MAKE LEGAL
: CONT INUE
:G=T FIRST CHAR IN GROUP
*RESET CYCLE COUNT

MOV

#12,3LPB

:SEND LF

TSTR

aLPS

:TEST READY

DEC
BLT

LINCNT
HS6

*DECREMENT LINE COUNT
SEXIT TEST IF DONE

BIT

#BI1T12,3SWR

*LOOP ON TEST?

SWAIT

BPL

1809 005676 032777 010000 173100 HS6:
1810

SEQ 0042

:S/W SWR ?
“NO- CONTINUE

TNO10,MES1S
%4 ,PRNNT

MOV
MOV
MOV

1785
1786

PAGE 28

noo aTksS

1778 005470 012737 000177 001042
1779 005476 012737 177574 001036 HSO:
1780 005504 012737 177757 001044
1782
1783

11:24

:HIGH SPEED PRINT TEST

};;?
(1)
(1)

:TEST 8

1769

1772

12-MAR-81

SuB
CMP
BLE
ADD
BR
BNE

JMP

HS1

#4 ,STRCHR
#40,STRCHR
HSO
NUMCHR,STRCHR
HSO
HSPRT

SNGCHR

: INCREMENT GROUP COUNT
*BRANCH IF DONE GROUP
;LEGAL CHAR?
*BRANCH AND CONTINUE IF LEGAL CHAR

:CONTINUE

:WAIT FOR READY

S FIND START CHAR
ON DRUM,
“SKIP4 LINE
“START CHAR A LEGAL CHAR?
“CONTINUE IF LEGAL START CHAR
:MAKE LEGAL AND CONTINUE
: CONT INUE
:LOOP

‘

:JUMP TO TEST 9 AFTER COMPLETION
-

[
l

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

D o

[@ Ve 1o
BNTo
AV, }

D ) e

8@@ oonfifloog

—d i
NN
= 2=
W
o
) =
o
O~~~ OV

N = =N

D
—

———
PSS

12-MAR-81

MACY11 30A(1052)

11:24

PAGE 28-1

;TEST 9

;WORST CASE NOISE TEST
;SINGLE CHAR. ACROSS ALL COLS.

—

~ ~ ~~ 00 00 00 00 00 0o

YM=Z049A-AA
CZLXAA.SRC

022737

001003
052777
004437

SNGCHR: SENABLE

001004

000100
010726

173070

#100,aTKS

TNO11,MES15

013737
004437
000012
012737
012737
012737
005777

014100
010656

013250

17764

001042

012737

000036

001040
001036

100006

001052

.+10

%4, TYPINT
\M

%4 ,PRNNT

S2A:

852

ERR36:

MOV

IS¢

MOV

012777

000012

172746

Séx2:

MOV

105777
100375

172740

aLPS

001040
001042

CHRGEN
LINCNT

ERCOUNT

CHRCNT
S1
#12,aLPB
-4

LPS7:

BIT

S2A
S4X2
#BIT12,aSWR
SNGCHR

:SET CHAR COUNT FOR 132
:BRANCH IF NO ERRORS

CHRGEN,aLPB

MOV

172720

sPRINT TEST NUMBER

:TEST FOR ERRORS

XS1X:

010000

;SET TEST NUMBER FOR MESSAGE

aLPS
XS1X
\N
#36,

#-132., CHRCNT

172762

001764
032777
001312

;ENABLE KEYBOARD INTERRUPT

:96 CHAR.
;SET UP SPACE

001040
001036

005237
005237
002743

;S/W SWR ?
sNO- CONT INUE

,L INCNT
#-96.
#40 . CHRGEN

X5,STAER

011142

1830

#176,SWR

000176

;SET UP ERROR COUNT 36
;REPORT ERROR
JHALT ON ERROR
;LOAD PRINTER BUFFER
s INCREMENT CHAR COUNT

sCONTINUE IF NOT DONE LINE

;ISSUE LINE FEED
;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
:LOOP ON TEST

SEQ 0043

YM=Z049A-AA
CZLXAA,SRC

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

RIZSRR=2ZR

—

1845

-d

11:24

PAGE 29

;TEST 10
:PROM PATTERN CHARACTER TEST

1843
1844

12-MAR-81

MACY11 30A(1052)

022737

013737
004437
000013

012737
012737
012737
005037
005237
005037
005237
013737
063737
023737
002403

163737
005777
100006

012737
000040
004537

000000
013777

105777
100375

000137

000176

001004

000100
010726

172714

014102
010656

013250

001042
001060
001062

001054
001054
001060

001062
172556

000037

001054

001052

ROTATE: SENABLE
CMP
BNE
BIS
JSR
$PRINT
MOV

JSR
M=M+1

ROTO:

ROT1:
ROTZ2:

ROT3:

;S/W SWR ?
sNO-_CONT INUE

TNO12 ,MES15

JSET TEST NUMBER FOR MESSAGE

ROT4:

ERR37:

001054
001040

000021

001044

000010

000012

172506

172500

001042
001042

000037

010000

172460

ROTS:

sPRINT TEST NUMBER

%4 ,PRNNT

#177 ,LINCNT
#200,LEGCHR
#1460 ,NUMCHR
CYCCNT
CYCCNT
CHRGEN
CHRGEN
CHRGEN, STRCHR

ROT4
NUMCHR, STRCHR
aLP$S
ROTS
\N

%5,STAER
172534

;ENABLE KEYBOARD INTERRUPT

LINCNT,STRCHR
STRCHR,LEGCHR

011142

006332

#176,SWR
.+10
#100,aTKS
%4 ,TYPINT

STRCHR ,aLPB

CHRGEN,#17.
ROT3
CYCCNT ,#8.

;LAST CHAR
;LEGAL CHK

;#CHARS

:CLEAR CYCLE COUNT
sINC CYCLE COUNT
:CLEAR POINTER
;s INC POINTER
{STORE POINTER
;FIND CHAR
;LEGAL?
:BRANCH IF LEGAL
;MAKE LEGAL
;TEST FOR ERRORS
:BRANCH IF NO ERRORS

;SET UP ERROR COUNT 37 .
;REPORT ERROR

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

ROT2

;NO, NEXT GROUP

aLPS
-4
LINCNT

sWAIT FOR READY

#12,aLPB

;YES, SEND LF
;TEST READY

sDECREMENT LINE COUNT

ROTATE

;DONE?
sNO, NEXT LINE
;LOOP ON TEST?
;LOOP

LFTTR

;JUMP TO TEST 11 AFTER COMPLETICN

LINCNT ,#37

ROT1

#BIT12,aSWR

SEQ 0044

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

YM=Z045A~AA
CZLXAA,SRC

000100

172450

013737
004437

014104
010656

013250

012737
013737
012737
013737
022737

000204
001042
177757
001036
000022

001042
001036
001044
001040
001040

%
o

162737

000021

001040

006436
006442
006450
006456

005437
062737
013737
005777

001040
000100
001040
172316

001040
001054

000040

001052 ~ERR40:

W
ny

001004

006340
v
W
o

006342

&
n

006354

000014

100006

012737

006506
006512
006514

000041
004537
000000
013777
005337
001415
005237

006522

005237

001040
001054

006472

b ch

LFT:
LFTO:

LFT1:
LFT2:

LFT3:

012777

000012

172226

LFT6:

105777

172220

006562

005337

001042

006572

032777

010000

purd

001044

177757

LFTS:

JSR

X4, TYPINT
M

=M+

001040

006600

#176,SWR
.+10

MOV
JS: .

LFT4:

006546

CMP
BNE

$PRINT

011142
001040
001036

$ENABLE

BIS

172274

010726

W
~
W
~

006366
006374
006402
006410
006416

;

8883 228

000176

OO NV

WN—=O

A~ VOOV
OO0V O00

LFTTR:

022737
001003
052777
004437

OO
O
OO OO

11: 24

PAGE 30

; STARTING WITH A LEFT TRIANGLE

b o
-

:TEST 11 =eeee SPURIOUS HAMMER FIRING TEST

-~~~
223233 ennanns COAANA~0000
(Vo PPy 2V ) — b ~r
e
38
D
vav_ag
338332832322
[T ———————
e
P

12-MAR-81

;LEFT AND RIGHT TRIANGLES

1885
1886
1887

1629

MACY11 30A(1052)

001044

TNO13,MES15
%4 ,PRNNT

;ENABLE KEYBOARD INTERRUPT
;SET TEST NUMBER FOR MESSAGE
JPRINT TEST NUMBER

MOV
MOV
MOV
MOV

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

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

BR
NEG
ADD
MOV
TST
BPL

;
LFT1
CHRGEN
#100, CHRGEN
CHRGEN,STRCHR
alLPS
LFT4

s CONT INUE
sNEGATE CHRGEN
;START (CHAR IN CHRGEN
;STORE STARTING (CHAR
sTEST FOR ERROR
;CONTINUE IF NO ERROR

(MP
BGT
SUB

$ERROR

#18.,CHRGEN
LFT2
#17.,CHRGEN

ERCOUNT

:ox :

#40,

JSR

%5,STAER

MOV
DEC
BEQ
INC
BEQ
INC

CHRGEN,aLPB
CHRCNT
LFT6
CYCCNT
LFTS
CHRGEN

MoV
MOV

STRCHR,CHRGEN
#-17. ,CYCCNT

=N+

HALT

BR
MOV

SWAIT

TSTB

BPL
DEC
BGT
BEQ
BIT
BNE

172204

#100,aTKS

;S/W SWR ?
sNO- CONT INUE

LFT3

LFT3
#12,aLPB
alLPS

.4
L INCNT
LFTO
LFTé
#B1T12,3SWR
LFTTR

;MORE THAN 17 (HARS?
;BRANCH IF LESS THAN 17
;SUBTRACT 17, IF > 17

;SET UP ERROR COUNT 40
;REPORT ERROR SET

JHALT ON ERROR

;LOAD BUFFER
;DECREMENT CHAR COUNT
;BRANCH IF DONE LINE
s INCREMENT GROUP COUNT
;BRANCH IF DONE GROUP
sNEXT CHAR IN GROUP
2 CONT INUE

;GET START CHAR AGAIN
sRESET GROUP COUNT
2 CONT INUE
sSEND LF

sTEST READY

;WAIT FOR READY
sDECREMENT LINE COUNT
;BRANCH IF NOT DONE
;SEND BLANK LINE AT END OF TEST
;LOOP ON TEST?
;LOOP

JTEST 11 eweee CONTINUED
JRIGHT TRIANGLE

006602

012737

000001

001042

RTTR:

MOV

#1,LINCNT

JINITIALIZE LINE

SEQ 0045

—————

YM=Z049A-AA
CZLXAA.SRC
1930
1931
1932
1933
1934
1935
1936
1937
1938
(1)
(1)
1939

1940
1941
1942
1943
1944
1945
1946
1947
1948
1949

(DECSPEC-11-%DFAD-A-D)

12-MAR-81 10:4

012737
013737
012737
012737
163737

001425
005777
100006

012737
000042
004537
000000
012777
005237

000077
001042
177757
000204
001042

001040
001044
001056
001036
001036

000041

012737
000043
004537
000000
013777
005237
005237
001006
012737

MACY11 30A(1052)
RT1:

001052

ERR&1:

#77 ,CHRGEN

MOV
MOV

#-17.,STRCNT
#132. ,CHRCNT

MOV

000040
001056

172102

177757
001036

001056

001052

RT2A:

RT2AA:

172030

:CONTINUE IF NO ERROR

sTEST FOR ERROR

aLPS
\N

#a61,

CHRCNT

ERR4Z2:

\N
#42,

177757
000021
001044

001056
001040

012777

000012

171766

105777

RT3B:

;SET UP ERROR COUNT 41

ERCOUNT

#40,3LPB
STRCNT
RT2AA
#-17.,STRCNT
RT2
aLPS

RT3A:

sFIRST CHAR IS A ?

RT2A

L INCNT, CHRCNT

JREPORT ERROR SET
sHALT ON ERROR

;LOAD BUFFER
s INCREMENT GROUP COUNT
:BRANCH IF NOT DONE GROUP
:RESET GROUP COUNT

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

:CONTINUE IF NO ERROR

RT3A

;SET UP ERROR COUNT 42

ERCOUNT

%5,STAER

001040
001040
001056

PAGE 30-1

RT3

RT3:

011142

:24

CHARS ON LINE
*SAVE NO.
:SET GROUP COUNT
CHARS PER LINE
:NO.
sSUBTRACT NO.. OF CHARS ON LINE
:BRANCH IF NO SPACES ON THIS LINE

LINCNT,CYCCNT

%5,STAER

011142

000042

12-MAR-81

MOV

SuB

RT2:

172124

172052

162737
005337
001346

§2288238g

CHRGEN ,aLPB
CHRGEN
STRCNT
RT38
#-17. ,STRCNT
#17.,CHRGEN
CYCCNT
RT3

sREPORT ERROR SET

sHALT ON ERROR
:LOAD BUFFER
sNEXT CHAR

; INCREMENT GROUP COUNT
*BRANCH IF NOT DONE GROUP
JRESET GROUP COUNT
:GET FIRST GROUP CHAR

;DECREMENT CHAR COUNT
2 CONT INUE

#12,aLPB

;SEND LF

171760

alLPS

001042
000205

001042

010000

171740

LINCNT
#133 .LINCNT
RT1

sTEST READY
:WAIT FOR READY

-4

#B1T12,aSWR
RTTR

s INCREMENT LINE COUNT
:DONE?

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

SEQ 0046

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

12-MAR-81

11:24

PAGE 31

sTEST 12

022737

013737
- 004437
000015
012737
012737
005777
100006

012737
07132
007136
007140
007140
007144
007146
007150
007156
007162
007164
007172

000044

000176

001004

000100
010726

171734

014106
010656

013250

177701
177574
171656

001042
001036

000043

004537
000000

011142

105777
100375
100375
012777
005237
001355

171634

001052

171624

012777

000012

171610

105777

171602

001042
171570

C MP
BNE
BIS

JSR

$PRINT

HAM1X:
HAMZ :
ERR43:

#176,SWR
.+10
#100,aTKS

MOV
MOV
TST
BPL

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

Mox ‘

8.3,

JSR

%5,STAER

XHAM1
\N

BPL
BPL
XHAM1X: MOV
INC
BNE
MOV

SWAIT
TSTB

BPL
INC
BNE
BIT
BNE

aLPS

~4
.~4
#105,aLPB
CHRCNT
HAM?
#12,3LPB
aLPS

.~4
LINCNT
X
HAM1
#BIT12,aSWR
HAMALN

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

;SET UP ERROR COUNT 43

ERCOUNT

=N+

HALT
SWAIT
TSTB

sNO- CONT INUE
JENABLE KEYBOARD INTERRUPT

TNO14 ,MES15
%4 ,PRNNT

$ERROR

;S/W SWR ?

%4, TYPINT

MOV
JSR

M=M+1

XHAM1:

000105
001036

010000

HAMALN: SENABLE

:HAMMER AL IGMENT

SEQ 0047

————————————

YM=Z049A-AA
CZLXAA,SRC

MACY11 30A(1052)

;REPORT ERROR OCCURRED

JHALT ON ERROR

;TEST READY
JWAIT FOR READY
;WAIT FOR READY

;TRANSMIT E TO PRINTER

:+1 CHAR COUNT
s TRANSMIT ANOTHER CHAR.
sTRANSMIT LINE FEED
;TEST READY

;WAIT FOR READY
;+1

TO COUNT

;GO DO NEXT LINE

;CHECK TO LOOP ON TEST
;LOOP ON TEST

p—_——

e ——

YM-Z7049A-AA

CZLXAA,.SRC

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

MACY11 30A(1052)

12-MAR-81

11:24

PAGE 32

;TEST 13

*ELONGATED CHARACTERS TEST

S SZIS3S
3
CNE W=
~O :

007216

022737

000176

001004

000100
010726

171564

013250

007240
007246

013737
004437

014110
010656

007252
007260
007266
007274
007302
007310
007316
007324

012737
012737
012737
012737
012737
012737
013737
005777

000200
000140
000040
000060
177574
177757
001054

007332

01273;

000044

007340

004537

011142

007346

013777

001040
001036

000016

100006

00004

000000

171450

EXPRT:

MOV

EXO0A:

EX00:
EXO:

001040

001052

171426

EX2:

001040

001054
177757

001040
001044

EX3:

171342

EX4:

171334

007454

012737

000046

001052

ERR4S:

171276

001042

171304

EX7:

;ENABLE KEYBOARD INTERRUPT

;SET TEST NUMBER FOR MESSAGE
sPRINT TEST NUMBER

;LEGAL CHECK

;s #CHARS

sSET UP FIRST LINE

:SET LINE COUNT FOR 48 LINES
:SET CHAR COUNT

:SET GROUP COUNT
;STORE START (HAR
;TEST FOR _ERROR
;BRANCH IF NO ERROR

;SET UP ERROR COUNT 44

ERCOUNT

%5,STAER

;REPORT ERROR SET

CHRGEN ,aLPB
CHRCNT
EX4
CHRGEN
CYCCNT

;LOAD BUFFER
: INCREMENT CHAR COUNT
;BRANCH IF DONE LINE

STRCHR, CHRGEN
#-17. ,CYCCNT
EX1

#10,3LPB

w45,

sHALT ON ERROR

:NEXT CHAR

s INCREMENT GROUP COUNT
*BRANCH IF DONE GROUP
;LEGAL CHAR?
:BRANCH AND CONTINUE IF LEGAL CHAR
:MAKE LEGAL
s CCNT INUE

:GET FIRST CHAR IN GROUP

tRESET CYCLE COUNT
s CONT INUE

:SEND ELONGATE CODE
:TEST READY

:WAIT FOR READY

:ERROR?

;BR=NO

EX7

011142
000012

aLPS
.~
alLPS

171326

000045

EX2

EX3
LEGCHR, CHRGEN
EX1
gg?CHR.CHRGEN

001062

105777
100375
005777
100006

#-132., CHRCNT

#44,

001040

007440
007444
007446
007452

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

ERR&44:

001060

000010

MOV

:S/W SWR ?
:NO- CONT INUE

TNO15 ,MES15
%4 ,PRNNT

EX1:

001044

012777

JSR
M=M+1

#-17. . CYCCNT
STRCHR, CHRGEN
aLPS

001040

007432

$ENABLE
0176 SWR
CMP
+10
BNE
0100
aTKS
BIS
%4, TYPINT
JSR
\M
$PRINT

;SET UP ERROR COUNT 45

ERCOUNT

R5,STAER

:REPORT ERROR SET

#12,3LP8

;SEND LF

aLPS
.4

TEST READY

L INCNT

WAIT FOR READY

DECREH&NT L INE COUNT

SEQ 0048

YM=Z049A-AA

CZLXAA,SRC

(DECSPEC=11-BDFAD=A=D)

12-MAR-81 10:43

MACY11 30A(1052)

2036 007510 002413

2037 007512 162737 000004 001054

2038 007520 022737 000040 001054

2039 007526 003665
2040 007530 063737 001062 001054
2041 007536 000661
2042 007540 032777 010000 171236 EX6:
2043

2044
2045
2046

007546

001223

BLT

SuB

CMP

BLE
ADD
BR

BIT

BNE

12-MAR-81

11:24

PAGE 32-1

EX6

JEXIT TEST IF DONE

EXO
NUMCHR,STRCHR

sCONTINUE IF LEGAL START (CHAR
;MAKE LEGAL AND CONTINUE

#4 ,STRCHR

#40,STRCHR
EX0

#B1T12,aSWR
EXPRT

;SKIP 4 LINES ON DRUM, FIND START (HAR

;START CHAR A LEGAL CHAR?
s CONT INUE

;LOOP ON TEST?

;LOOP

SEQ 0049

YM=Z049A-AA

CZLXAA.SRC

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

12-MAR-81 10:43

2049

(1)

2054
2055

(1)

007550

007550 022737 000176
007556 001003

001004

UEXPRT: SENABLE

004437

#176,SWR
.+10

JSR
$PRINT

X4, TYPINT
M

BIS

007560 052777 000100 171232

007566
007572

CMP
BNE

010726

MOV

007572 013737 014112 013250

JSR

007600 004437 010656

MOV

007642 012737 177757 001044
007650 013737 001054 001040
VEX1:
007656 005777 171116
007662 100006
2065 007664
fl ; 007664 01273; 000046 001052 ERR&46:

MOV
MOV
TST
BPL

#-17. ,CYCCNT
STRCHR,CHRGEN
aLPS
UEX2

zox .

#46,

JSR
HALT
MOV
INC
BEQ
INC
INC
BEQ
CMP
BNE
Sus
BR
MOV
MOV
BR
MOV

X5,STAER

2060 007634 012737 177574 001036 UEX0:
2061
2062
2063
2064

2077

2078
2079
2080
2081

2082

(1)
(1)

004537
000000
013777
005237
001424
005237
005237
001410
023737
001350
163737

007746
007754
007762
007764

013737 001054 001040 UEX3:
012737 177757 001044
000735
012777 000010 171010 UEX4:

007744

007772

007772
007776

000744

105777
100375

2083 010000 005777
2084 010004 100006
2085

(1)

011142

007672
007676
007700
007706
007712
007714
007720
007724
007726
007734
007736

001040
001036

UEX2:

001040 .

001044

001060

001040

001062

001040

010020

2089
(1)

010030
010030

000050

004537 011142

2088 010022 012777 000015
010034

105777
100375

2090 010036 012737

170752 UEX7:

170744

177574

SWAIT

TST
BPL

170774

010006

2087

$ERROR

TSTB
BPL

171002

010006 012737 000047 001052 ERR47:

2086 010014

(1)

171074

MOV

001036

$ERROR

;SET TEST NUMBER FOR MESSAGE

TNO16 ,MES15

2059 007626 012737 000060 001042

2056 007604 012737 000200 001060 UEXO00A: MOV
MOV
2057 007612 012737 000140 001062
2058 007620 012737 000040 001054 UEX00: MOV

;ENABLE KEYBOARD INTERRUPT
sPRINT TEST NUMBER

%4 ,PRNNT

M=M+1

2066
2067
2068
2069
2070
2071
2072
2073
2074
2075
2076

SEQ 0050

;S/W SWR ?
*NO= CONTINUE

#100,3TKS

000017

(1)

PAGE 33

WDERLINED ELONGATED CHARACTERS TEST

%8%12
(1)
(1)

12-MAR-81

11: 24

sTEST 14

2050

2053

MACY11 30A(1052)

#200,LEGCHR
#140,NUMCHR
#40,STRCHR

#48. ,LINCNT

#-13?..CHRCNT
N

LEGAL CHECK
; #CHARS
:SET UP FIRST LINE

“SET LINE COUNT FOR 48 LINES

SET CHAR COUNT

:SET GROUP COUNT
;STORE START CHAR
sTEST FOR ERROR
;BRANCH IF NO ERROR

;SET UP ERROR COUNT 46

ERCOUNT

CHRGEN,aLPB
CHRCNT
UEX4
CHRGEN
CYCCNT
UEX3
LEGCHR,CHRGEN
UVEX1
NUMCHR, CHRGEN

;REPORT ERROR SET
JHALT ON ERROR
;LOAD BUFFER
; INCREMENT CHAR COUNT
BRANCH IF DONE LINE
*NUEXT CHAR
: INCREMENT GROUP COUNT
*BRANCH IF D(NE GROUP
;LEGAL CHAR
BRANCH AND CMTIMJE IF LEGAL CHAR
:MAKE LEGAL

STRCHR, CHRGEN
#-17. ,CYCCNT
UEXT
#10,aLPB

GET FIRST CHAR IN GROUP
*RESET CYCLE COUNT
s CONT INUE
*SEND ELONGATE CODE

alLPS
.~

;TEST READY
JWAIT FOR READY

UVEX1

;ERROR?
:BR=NO

aLPS
UEX7
\N

2 CONT INUE

;SET UP ERROR COUNT 47

ERCOUNT

MOV

w7,

JSR

RS5,STAER

;JREPORT ERROR SET

MOV

#15,3LPB

;SEND CR

BPL

aLPS
.~

;TEST READY
UAIT FOR READY

N=N+1

HALT
SWAIT
TSTB

MOV

#-132. ,CHRCNT

*RESET COUNT

YM=-Z049A~AA

CZLXAA.SRC

(DECSPEC~11-BDFAD-A-D)

12-MAR-81 10:43

2091 010044 012777 000137 170730 UEX7A:
UEX8:
2092 010052 005777 170722
2093 010056

2094

010060

100006

MOV
TST

#137,aLPB
alLPS

$ERROR

#50,

BPL

((B 010060 0127¥ 000050 00i052 ERR50: nox .

2095 010066 004537 011142
2096

010072

2100

010110

000000

2097 010074 005237 001036
2098 010100 001361
2099 010102 012777 000012
(1)

010110

105777

UEX9:
170672

170664

CHRCNT
UEX7A
#12,3LPB

;COUNT A CHARACTER
;BR=NOT DONE
;SEND LF

TSTB

aLPS

s TEST READY

BLT

UEX6

“SKIP 4 LINES ON DRUM, FIND START CHAR
“START CHAR A LEGAL CHAR?

SWAIT

D
D e

—

VIS WN=O

d e

—

d e

000631

001054

SUB
CMP

ADD
BR

08 010152 032777 010000 170624 UEX6: BIT
BEQ
09 010160 001402
JMP
010162 000137 007550
UEX10:
-l

LSLSTNTST.NT,NT,N1,8]

010150

010166

;SET LP%RROR COUNT 50

INC
BNE
MOV

HALT

BLE

2107

ERCOUNT

;SEND UNDERL INE CODE
sREADY?
;BR=NO ERROR
;REPORT ERROR SET

2105 010140 003635

2106 010142 063737 001062

11:24 PAGE 33-1

R5,STAER

(1) 010114 100375
2101 010116 005337 001042

2103 010124 162737 000004 001054
2104 010132 022737 000040 001054

UEX9

JSR

BPL
DEC

2102 010122 002413

12-MAR-81

MACY11 30A(1052)

=4
LINCNT

#4 ,STRCHR
#40,STRCHR
UEXO0

NUMCHR,STRCHR
UEX0

#BIT12,aSWR
UEX10
UEXPRT

‘WAIT FOR READY
*DECREMENT LINE COUNT
“EXIT TEST IF DONE

“CONTINUE IF LEGAL START CHAR

-MAKE LEGAL AND CONTINUE
* CONT INUE

ON TEST?
*LOOP
*BR=NO
*LOOP

SEQ 0051

YM=Z049A-AA

CZLXAA.SRC

(DECSPEC=11-BDFAD=A=D)

12-MAR-81 10:43

2117
2118

MACY11 30A(1052)

12-MAR-81

11:24 PAGE 34

;TEST 15

2119

:ALTERNATE CHARACTER SET TEST

%}%?

2122 010166 032777 020000 170610 ACPRT: BIT

#BIT13,aSWR

ACPRTA
BNE
2123 010174 001002
AC7
JMP
2124 010176 000137 010526
ACPRTA: SENABLE
2125 010202
#176,SWR
CMP
(1) 010202 022737 000176 001004
.+10
BNE
(1) 010210 001003
#100,aTKS
BIS
(1) 010212 052777 000100 170600
2126
2127

(1)
(1)

(1)

010220
010224

004437

((B

000020

010316

010316 8&2)(7);; 000051

#200,LEGCHR
#140 ,NUMCHR
#40,STRCHR

;LEGAL CHECK
s #CHARS
sSET UP FIRST LINE

MOV
MOV
MOV
TST
BPL

#-132. ,CHRCNT
#-17. ,CYCCNT
STRCHR,CHRGEN
aLPS
ACOB

;SET CHAR COUNT
:SET GROUP COUNT
;STORE START (HAR
;ERROR?
;BR=NO

MOV

$ERROR

001052 ERRS1: . nox .
=N+

#127. ,LINCNT

#51,

ERCOUNT

sSET LINE COUNT FOR 2 PAGES

:SET UP ERROR COUNT 51

MOV
TST
BPL

#16,aLPB
alLPS
AC2

;SEND SHIFT OUT CODE
;TEST FOR ERROR
;BRANCH IF NO ERROR

010346 012737 000052 001052 ERRS2:

MOV

#52,

JSR

%5,STAER

2143

010346

2144 010354

010360
010362

010370
010374
010376
010402
010406
010410
010416
010420
010426
010430

2157 010436
2158 010444

000000

011142

010454
010454
010460

170442

000053

004537 011142

000000
013777

005237
001424
005237
005237
001410
023737
001350
163737
000744
013737
012737
000735

001040

105777
100375

170412

AC2:

HALT

$ERROR

N=N+1

HALT
MOV .

ERCOUNT

;SET UP ERROR COUNT 52
:REPORT ERROR SET

CHRGEN.aLPB

sHALT ON ERROR
;LOAD BUFFER

#-17. ,CYCCNT
ACT

; INCREMENT CHAR COUNT
;BRANCH IF DONE LINE
JNEXT CHAR
; INCREMENT GROUP COUNT
‘
;BRANCH IF DONE GROUP
CHAR?
;LEGAL
;BRANCH AND CONTINUE IF LEGAL CHAR
;MAKE LEGAL
s CONT INUE
;GET FIRST CHAR IN GROUP

001054 001040 AC3:

INC
BEQ
INC
INC
BEQ
CMP
BNE
SuB
BR
MOV

CHRCNT
AC4
CHRGEN
CYCCNT
AC3
LEGCHR,CHRGEN
AC1
NUMCHR,CHRGEN
ACT
STRCHR,CHRGEN

170326 AC4:

MOV

#12,3LPB

JRESET CYCLE COUNT
2 CONT INUE
sSEND LF

aLPS
.~b

;TEST READY
JWAIT FOR READY

001036
001040
001044
001060

001040

001062

001040

177757

2159 010446 012777 000012
2160
(1)
(1)

MOV
MOV
MOV

ACOB:
AC1:

010330

2147
2148
2149
2150
2151
2152
2153
2154
2155
2156

001036 ACO:
C01044
001040
ACOA:

;SET TEST NUMBER FOR MESSAGE
;PRINT TEST NUMBER

;REPORT ERROR SET

2139

2145
2146

001042

TNO17 ,MES15
%4 ,PRNNT

R5,STAER

004537

2140 010332 012777 000016
2141 010340 005777 170434
2142 010344 100006
(1)

001060 ACOOA:
001062
001054 AC00:

M=M+1

X4, TYPINT
WM

:S/W SWR ?
sNO- CONT INUE
;ENABLE KEYBOARD INTERRUPT

JSR

2138 010324

(1)

MOV
JSR

010224 013737 014114 013250
010232 004437 010656

2128 010236 012737 000200
2129 010244 012737 000140
2130 ©10252 012737 000040
2131 010260 012737 000177
2132 010266 012737 177574
2133 010274 012737 177757
2134 010302 013737 001054
2135 010310 005777 170464
2136 010314 100006
2137

JSR
$SPRINT

010726

;CHECK FOR ALTERNATE CHARACTER SET TEST

:BR IF PRESENT
JEXIT OTHERWISE

170320

001044

MOV
BR

SWAIT
1STB
BPL

SEQ 0052

YM=Z049A-AA

CZLXAA.SRC

(DECSPEC=11-BDFAD=A=D)

12-MAR-81 10:43

2161 010462
2162 010466
2163 010470

005337
002413
162737

2165
2166
2167
2168
g}gg

010504
010506
010514
010516
010524

003701
063737
000675
032777
001220

2174
2175
2176
2177
2178
2179
2180
2181

010526
010534
010536
010542
010550
010552
010556
010556

2185

010566

004710

MACY11 30A(1052)

001042
000004

001054

2164 010476 022737 000040 001056
001054

010000

17C2¢0

AC6:

032777
001402
000137
032777
001402
000137

040000

170250

AC7:

014122
002000

170234

HAMX:

013700
001405
000005

000042

11:24

PAGE 34-1

SEQ 0053

DEC
BLT
SUB

LINCNT
AC6
#4 . STRCHR

:DECREMENT LINE COUNT
“EXIT TEST IF DONE
“SKIP 4 LINES ON DRUM, FIND START CHAR

BLE
ADD
BR
BIT
BNE

ACOA
NUMCHR,STRCHR
ACOA
#BIT12,aSWR
ACPRT

*CONTINUE IF LEGAL START CHAR
-MAKE LEGAL AND CONTINUE
* CONT INUE
*LOOP ON TEST?
*LOOP

CMP

001062

12-MAR-81

#40,STRCHR

*START CHAR A LEGAL CHAR?

2171

2182
2183
2184

2186
2187
2188

2189

2190

010562
010564
010566

016222

LOGICAL:

010570 000240
010572 000240
010574 000040

010576

000137

1:
HAMX

003310

DOAGN:

BIT
BEQ
JMP
BIT
BEQ
JMP

#BIT14,aSWR
HAMX
EVFU
#BIT10,aSWR
HAMX 1
PLPRT

MOV
BEQ
RESET

a#62 RO
DOAGN

JSR

PC., (RO)

NOP
NOP
NOP

JMP

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

1
|
-

TEST2

:RESTART

8178

YM=-Z049A-AA
CZLXAA.SRC

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

MACY11 30A(1052)

12-MAR-81

11 :24

PAGE 35

SEQ 0054

;MISC. ROUTINES

2192
2193
2194
2195
2196
2197
2198

;ROUTINE TO INITIALIZE PRINTER
SJENTER FROM JSR X5, PRTINT

2199

2200
2201
2202
2203

005777

PRTINT:

170172

TSTB
8MI

170164

PRTINO: ADD

000002
000014
170142

170150

RDYOK:

000002
105777
100375
000205

TST
BMI

NTRDY:

170126

RTS
MOV
TSTB
BPL
ADD
RTS

SWAIT

TST8
BPL
RTS

aL”S
PRTINO
aLPS

;TEST FOR ERROR

#2,%5
%5

;SET UP FOR ERROR REPORT
*REPORT READY NOT SET
;ISSUE FORM FEED
:TEST FOR READY NOT SET

;BRANCH IF ERROR
sTEST FOR _READY
*READY SET OK

RDYOK

#14,3LPB
aLPS
NTRDY
#2,%5

:READY NOT SET OK

:SET UP FOR REPORT
sEXIT AND REPORT

aLPS
.4

s TEST READY
;WAIT FOR READY
;READY SET EXIT

;ROUTINE TO OUTPUT ASCI] MESSAGES ON THE LINE PRINTER
010656
010664
010670
010672

010672
010700
010704
010706
010714
010722
010724
010726
010734
010742

012737
005777

013232

012737
000054
004537
000000

000053

100006

170110

010724

PRNNT:

ERRS3:

011142

RINT:

001000
001002

MOV

#MES14 ,PRTMSG

8PL
$ERROR

RINT
\N

TST

nox .
=N+

#53,

;TEST FOR ERROR
;BRANCH IF OK

;SET UP ERROR COUNT 53

ERCOUNT

;REPORT ERROR SET

JSR

%5.STAER

MOV

LPS,TPS ;SET VECTORS -

HALT

MOV

EMT

PRTMSG: MES14

TYPINT: MOV
MOV

177564
177566

aLPS

sPRINT TEST NUMBER

RTS

;HALT ON ERROR

LPB,TPB ;TO PRINT ON LINE PRINTER
+0

sPRINT

#177564 ,TPS
#177566,TP8B

;FOR TTY

+ME SSAGE
sRESET VECTORS

:RETURN

;SUBROUTINE TO OUTPUT ASCII MESSAGES ON TELETYPE PRINTER
010744
010746

TYP:

000002

TYPA:

011056

010774

000045

011056

000043

011056

TYPC:

MOV
ADD

MOV

MOVB

a%6,%x0
#2,3%6

;GET ADDR. THAT CONTAINS MESS.

(0)* TYPDAT

;GET CHARACTER
:BRANCH IF NOT DONE
JEXIT

2%0,%0

BNE

TYPC

(MPB
BEQ
CMPB

#45, TYPDAT
TYPF
#43, TYPDAT

RTI

;SET UP EXIT

:ADDRESS OF MESSAGE IN RO

sCHECK FOR ‘%'’
*BRANCH IF %'
sCHECK FOR "#''

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

gooooooo
8
WNINON)
= =
O“‘ON&OO‘ SsSonvosN

011056
167772

167772

12-MAR-81

11:24

PAGE 35-1

SEQ 0055

011012

olele]

i cad
)

D
D
D

sl
i

d
d
D

)
)
-

—_—d

sl cald

OOOOOOOOOOOOg
d

YM=-Z049A-AA
CZLXAA.SRC

MACY11 30A(1052)

TYPD:

TYPDO:

011056

TYPF:

011056

TYPG:
:

TYPG
X7.TYPD
TYPA
TYPDAT,aTPB

:BRANCH IF '#'"
‘TYPE CHARACTER IN TYPDAT
*NEXT CHAR IN MESSAGE
“OUTPUT CHARACTER TO PRINTER

RTS
MOVB
JSR

=4
%7
#12,TYPDAT
X7.TYPD

:CHAR. TYPED EXIT
“OUTPUT LF
‘GO TYPE CHAR.

JSR
BR

%7.TYPD
TYPA

BEQ
JSR
BR
MOVB
TSTB

BPL

MOVB

TYPDAT: 0

QTPS

#15,TYPDAT

*OUTPUT CR

‘GO TYPE CHAR.
‘

;ROUTINE TO CONVERT OCTAL TO ASCII

;ENTER ROUTINE AS FOLLOWS
%5,CONV
JSR
:
s XXXXXX=ADDRESS OF NUMBER TO BE CONVERTED
I XXXXXX=ADDRESS OF ASCII MESSAGE

o
3fifin¢0~b<>owv<>83uouuc>

011140

011140
177770

CONV:

ACVN:

000060

MOV

MOV
ADD
MOV
BIC
ADD
MOVB

CLC

—

011140

DEC
BNE
RTS

ACNVX:

MOV

ROR
CLC
ROR
CLC
ROR

011140

)
e

—

-d

—

013537

)

) —d

e D D

) —d —

[elelelélelelelolelelelololalolele)
P i -

e D d D i =

s XXXXXX=NUMBER OF OCTAL NO.'S TO BE CONVERTED
a(5)+, ACNVX
(5)+,%1

(5)+,%2

%2.%1

ACNVX,
%3
#177770,%3
#60,%3
23,-(1)
ACNVX

;ADDRSS OF NO. TO BE CONVERTED
;ADDRESS OF MESSAGE
sNUMBER OF ASCII CHARACTERS
;FIRST CHAR ADDRESS

:STORE NUMBER
s ISOLATE LEAST SIGNIFICANT BIT
sSET UP ASCII CHARACTER
:STORE CHARACTER
;GET NEXT SIGNIFICANT BIT ...

ACNVX
ACNVX

%2
ACVN
%5

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

—A—l—d-—l-‘—.-—l—.-‘:
~
v
s

—

o wilh ol ah b culd wnld b
i e e i o
e cd cd

b
b

(elelelelelelelelele)

;ROUTINE TO REPORT ERROR COUNT
004537
001052
011570

011060

;

011570
005777
100401
000000
000205

167620

STAER:

JSR

%5,CONV

;CONVERT OCTAL TO ASCII

sgg1

;TYPE ERROR MESSAGE

TST

aSWR

HALT
RTS

ERCOUNT
gED1

BMI

;TEST FOR HALT ON ERROR

JBRANCH IF NO HALT WANTED
JHALT ON ERROR
sRETURN

YM=-Z049A-AA

CZLXAA, SRC
2300
2301
2302
2303
2304

2305
2306
2307
2308
2309
2310

2311
2312
2313
2314

12-MAR-81 10:43

011172
011174
011176
011200
011202
011204

011206
011212
011214

011220

011222
011230
011236

2319

(011246

2320

2321

2322
2323

2324

2325
2326

2327
2328
2329
2330
2331
2332
2333
2334

2335
2336
2337
2338
2339
2340
2341

2342

2343

2344
2345
2346
2347

2348
2349
2350

2351
2352
2353

2354

2355

12-MAR-81

5
11:24

PAGE 35<2

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

2315
2316
2317

2318

MACY11 30A(1052)

(DECSPEC=11-BDFAD=A=D)

011244
011254

011256

011264
011266

011270

011276
011300

011302
011306
011314
011316
011322
011324
011332
011340

011346
011350
011352
011356
011360
011364
011366

011372

011400

011402
011406
011410
011416

011420
011426
011434

011442
011444
011450

011452

011460

010046
010146
010246
010346
010446
010546

TKINT:

MOV
MOV
MOV

005737
001130
005737

001072

017737
042737
022737

167566
177600
000015

001074
001074
001074

022737

000025

001074

023727

001074

000060

001477

001456

001530

100001
000466

022737
100001
000461

005237
022737
100453
105777
100375
013777
162737
022737

001411
000241
006137
000241
006137
000241
006137

063737
000464

005737
001451
013777
000445

017737
042737
022737

001414
105777
100375

013777

104000

MOV
MOV
MOV

TST

BNE

001070

000067
001066
000006

TST
BEQ

MOV

BIC
CMP
BEQ
CMPBEQ
CMP
BPL

001074

001074
000060
000001

#177600, CHAR
#15, CHAR
DGTS
#25,CHAR
TK4

CHAR,#60
X1

WwT3

WwT3
DIGITS

TK2:

167474

TYPSWR
SIGNAL
CNTRLG
aTKB, CHAR

#67,CHAR
K2

TM1

001066

%0,=(SP)
%1,-(SP)
%2.=(SP)
%3,=(SP)
%4 ,=(SP)
%5,=(SP)
SET

167460
001074
001066

;INITIAL SWR ENTRY ?

s YES=PRINT HEADER

;PREVIOUS CONTROL=G INPUT ?
s YES=CONT INUE
;GET INPUT CHARACTER
;STRIP OFF PARITY BIT
;CARRIAGE RETURN ?
; YES=CONT INUE

sCONTROL=U INPUT ?

: YES=CONT INUE

JLEGAL CHECK: LESS THAN 60 ?
sNO-CONT INUE
;YES=PRINT ‘7"

‘LEGAL CHECK: GREATER THAN

sNO-CONT INUE

:YES=PRINT '?*'

sNEXT DIGIT OF SWR INPUT

#6,DIGITS

sJMORE THAN SIX DIGITS ?

aTPS
w72

;TTY PRINTER READY ?
; NO-WAIT

wrs

wT2:

;SAVE REGISTERS

CHAR,QTPB

#60, CHAR
#1,DIGITS

sYES=PRINT '’

“PRINT CHARACTER

*CONVERT TO OCTAL

TKS

sFIRST DIGIT ?
: YES=CONT INUE

001076

ocT

s TIMES

001076

ocr

001076
001074

001076

TKS:

001066

DGTS:

001076

167366

167370
177600
000007

001074
001074
001074

167346

001074

167332

wr3:

sTHIS WILL SHIFT

:SWR VALUE ONE
sPLACE LEFT
;OCTAL.
sNEW VALUE OF SWR
JRETURN FROM INTERRUPT
sSWR VALUE CHANGED ?

sNO-RETURN ,NO CHANCE TO SWR

aTKB, CHAR
#177600, CHAR
#7,CHAR

CNTRLG:

;ROTATE LEFT THREE

TSTB

EMT

TYPSWR

aTPS
wr3
(HAR,aQTPB

;YES-ENTER NEW SWF VALUE
JRETURN FROM INTEFRUPT

;GET CHARACTER
;STRIP OFF PARITY BIT
sCONTROL=G INPUT ?
s YES=PRINT HEADER
;TTY PRINTER READY ?
JNO-WAIT
sPRINT CHARACTER

SEQ 0056

————

[}

013754
005737 001070
001001
000427

|
230 011474 012737 000001 001070
|
2361 011502 104000
2362 011504 013760
2363 011506 004537 011060
000176
014010

2367 011520

104000

2366

2368

011516

011522

2369 011524
2370

011526

011540

2385
2389

5390

2391
5302
2393
2394
2395
2396
2397
2398

2399
2400
2401

TK&:

013752

012604
012603
012602
012601

011566

000002

011570

020040

012237
012270
012334

gzg% 012415

2404

012452

2405 012454
2406 012510
2407

EMT

:PRINT SWR VALUE
:PRINT HEADER

BR
CLR

TK7
SIGNAL

;RETURN FROM INTERRUPT
;CLEAR CONTROL-G FLAG

CLR
CLR
MOV

DIGITS
ocT
(SP)+,%5

:CLEAR DIGIT COUNT
“CLEAR SWR INPUT
"RESTORE REGISTERS

MOV

(SP)+.%0

013771

011554
011556
011560
011562

011611
011656
011731
012000
012041
012110
012147
012212

ME 524

2382 011564 012600

§§32

EMT

176
MES25

014010

K7:

2375 (11542 005037 0C1066
2376 011546 005037 001076
2377 011552 012605
2378
2379
2380
2381

:CONVERT SWR VALUE TO ASCII

JSR

MES25

2373 011536 104000
2374

%5, CONV

EMT

TK3:

105
051105
045
050045
045
051445
045
042522

120
047117
042522

:
020040

051122
047522
051120
052125
052520
040524
054114
052123

053517
046040
042101

105 051122

042522

042523
020040
012526

TK6:

020124
020040

(SP)+. %
(SP)+.%3
(SP)+.%2
(SP)+.%1

MOV
MOV
MOV
MOV

051117
020122
047111
051440
020124
052122
030531
051101

051105
047111
8%?}?}

HED1:

MESA:
MESB:
MESC:
MESDD:
MES1:
MES2:
MES3:
MES4:
MESS:

.ASCIZ I

.ASCIZ I
.ASCIZ 1
.ASCII 1
ASC Ii
)|
I
I
1
1
|
I
I

Mgsga

.ASC

MES7A:

.ASC 1

047526 MES7:
044440 MES8:

.EVEN

.ASC 1
.ASC 1

2408 012526 026455 026455 026455 MES9:

.ASC I

MES11:
MES12:

.ASC I
.ASC |

2409
2410

012623
012734

040
005012

020040

2411
2612

012736
012775

050045
040

044522
020040

052116
020040

24614

013106

026455

2613

013024

026455

MES10: .ASC )
MEST11A: .ASC I
MES13:

.ASC I

LASC I

“SET FLAG: CONTROL=G ENTERED
|

; PRINT LINE FEED AND CARRIAGE RETURN

EMT

MES21

RTI

051105

SEQ 0057

‘PRINT HEADER

2371 011530 000404
2372 011532 005037 001070

PAGE 35-3

+0’

#1,SIGNAL

MES23

104000

11:24

:BAD VALUE ?
“YES-PRINT HEADER
“RETURN FROM INTERRUPT

TYPSWR: MOV

000006

S 1GNAL
TYPSWR
K6

NININININININI
N = b NN

011512
011514

2364
2365

" MES22
ST
BNE
3R

011462
011464
011470
011472

——
N e e Ny e

2356
2357
2358
2359

'alalnlalalalal

|
|

12-MAR-81 10:43

)))))))

| CZLXAA.SRC

(DECSPEC=11-BDFAD=A=D)

nhunuvunnuvmn

| YM=Z049A-AA

12-MAR-81

MACY11 30A(1052)

:
:
:
:

* RETURN FROM INTERRUPT

ERROR COUNTX/

/ERROR SET OK - CLEAR & TURN ON LINEX/
/ERROR SET OK = CLEAR AND TRY NEXT CHANNELZ/
/XPRINT SPEED CHECK USING MANUAL TIMINGX/
/%PUT SWITCH O UP TO START TIMINGX/
7%PUT SWITCH O DOWN AT END OF 1 MINUTE%/
/%STARTING EVFU PRINTING TESTS¥/
\ZLXY11/21-LXV11 LINE PRINTER TESTX\
/RESTART ADDRESS 600%/
/POWER ON - TURN ON LINEX/

/ON LINE OK = TRY TORN PAPER SWITCHZ/
/READY SET OK = TRY FORMS THICKNESS LEVER SWITCHZ/

/ERROR SET OK = TURN ON LINEX/
/RE/

/SET TOP OF FORM SWITCH TO
INCHESZ/
/

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

;

THIS LINE SHOULD BE /

LINES PER MINUTEX/

—

'
| YM=Z049A-AA
|

| CZLXAA.SRC

!
,

(DECSPEC-11-BDFAD=A=D)

12-MAR-81 10:43

gz}g 013170 026455 026455 026455

MES14:
2617 013232 005012 042524 052123 Mgega:
Sz}g 013250 020040 005012 000012
2620 013256 026455 026455 026455 MES16:
2621 013364 026455 026455 026455
.EVEN

013464

2422

.ASCII

2427

2428

2429
2630
2631
2632

2433
2434
gz%g

013746

013752
013754
013760
013771

014010
(14017
014031

020040

013752

000045
037440
051445
040

020040
120
105

2437 014050 030504
2438
2439
2440
2441
2442
2443
2444
2445
2446
2447
2448
2449
2450
2451
2452
2453
2454
2455
2456
2457
2458

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

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

020040

020040 Mgegz:

000045
051127
020040
020040
047514
043126

LASCIZ

MES20A: .ASCIZ

000

.EVEN

036440
042516
020040
020124
020125

MES21:
MES22:
MES23:
MES24:

MES25:
MES26:
MES27:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

PAGE 35-4

SEQ 0058

/7<12><12><12>

——

S
———

—

/========-

—

BLANK LINES BEFORE THIS LINE

THERE SHOULD BE 7/
=====-

/ TESTING CHANNEL SLEWING USING CHANNEL NO.

/%/
/ ?%/
/XSWR = /
NEW SWR =
/

/
/
.ASCIZ /
.ASCIZ /PLOT TEST/
.ésgbl XEVFU SLEW TESTX

TNDAV1: .ASCII
TNDAV2:
TNDAV3:
TNOO:
TNO1:
TNO2:
TNO3:
TNO4:
TNO5:
TNO6:
TNO7:
TNO10:
TNO11:
TNO12:
TNO13:
TNO14:
TNO15:
TNO16:
TNO17:
TNO20:
TNO21:

.ASCII /
WR

2626 013672 052040 051505 044524 MES20:

020040

5
11:24

JASCII <12><12>/TEST NUMBER /

ASCIZ

L.ASCII

013556

S"/
.gsgfil Ay

2623 013464 026455 026455 026455 MES18:
Szgé

12-MAR-81

MACY11 30A(1052)

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

/D1/

/D2/
/D3/
/0 /
/1 /
/2 /
/3 7/

/4 /

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

/5 7
/6 /
/7 /
/8 /
/9 /
/10/
/11/
/12/
/13/

.ASCII

717/

.ASCII
LASCII
.ASCII
.EVEN

;TEST NUMBERS FOR EVFU TESTS

/14/
715/
/16/

;

START=L INE/
/
-

YM=2049A-AA

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

MACY11 30A(1052)

12-MAR-81

11:24

PAGE 36

SEQ 0059

CZLXAA.SRC

2460

;EVFU PRINTING TESTS IF EVFU IS AVAILABLE == SET SWITCH 14

2464

;TESTS D1 _AND D2
;CHECK EVFU LINE COUNT SLEWING

5
|

{

2461
2462
24663

2465

2466

2467
1)
1
(1)

24638
2469
2470
2471
2472
2473
2474

2475

2476
24L77
2478
2479
1)
1

2480
2481

2482
2483

2484
2485
2486

2487
1)
1)

2488
2489
2490
2491
2492

2493

2494
(1)
1)

2495
2496
2497
1)
(1)

2498
2499

2500

014122
014126
014126
014134
014136

014660

022737

000176

001004

000100
010726
016050

164654

014144
014150
014156
014160

DAV?2

EVFU:

000137

013560

(MP
BNE
BIS
JSR
MOV
EMT

#176,SWR
.+10
#100,aTKS
%4, TYPINT
SPSP ,MES19+2
+0

MOV
MOV
MOV
JSR
MOV

#220,DAVI1
#221,DAVI2
TNDAV1 ,MES15
%4 ,PRNNT
#DAVTAB, CHRGEN

BPL

DAV1

MOV

#54,

ME SDD

014654
014656
013250

;SKIP OVER TESTS. MAY USE THESE IN THE FUTURE
:S/W SWR ?

:NO= CONTINUE

:ENABLE KEYBOARD INTERRUPT
sINITIALIZE
; TYPE MESSAGE
;STARTING EVFU TESTS

;SET EVFU INSTRUCTIONS

014162
014170
014176
014204
014210
014216
014222
014224
014224

000220
000221
014050
010656
014606

014232
014236
014240
014244
014252
014260
014264
014266
014266
014272
014274
014300
014306
014314
014320
014324
014326
014326

011142

-JSR

%5,STAER

;REPORT ERROR SET

014210
164570
000002
164554

JMP
MOV

DAVO
@dCHRGEN ,aLPB

sJRESTART TEST

164556

000054

100375

001040

001052

164530

001040

DAVO:
DAVOU:

ERRS4:

DAV1:

000055

001044
010724

DS:
DO:

001052

ERRSS:

105777
100375

012737
013737
012737
012737
005777
100006

D1:

164432

013464
014654
014056
000020
164374

010724
001040
001054
001036

D2:

alLPS

ERCOUNT

#2,CHRGEN
@CHRGEN

SWAIT
TSTB

aLPS

BPL
JMP
MOV
MOV
JSR

sPRINT TEST NUMBER

;SET TABLE POINTER
sTEST FOR ERROR

sBRANCH IF NO ERROR

ADD
TST

TST

011142

014334

$ERROR

BEQ

164506

014216
000002
013256
010706
164454

TST

;SET TEST NUMBER FOR MESSAGE

o
DAVOO0
#2,CYCCNT
#MES16,PRTMSG
%4 ,RINT
alLPS$

;SET UP ERROR COUNT 54
;HALT ON ERROR
;LOAD EVFU

s INCREMENT TABLE POINTER
sTEST IF DONE LOAD

sCONTINUE IF DONE
SWAIT
sTEST READY
;JWAIT FOR READY

;SET CYCLE COUNT _
*SET MESSAGE ADDRESS
*PRINT MESSAGE

*TEST FOR ERROR
*CONTINUE IF NO ERROR

BPL
$ERROR
MOV

D1
\N
#55,

JSR

X5.STAER

;REPORT ERROR SET

TSTB

aLPS
.4

JWAIT FOR READY

ERCOUNT

MOV
MOV
MOV
MOV

#MES18,PRTMSG
DAVI1,CHRGEN
#TNOO,STRCHR
#16. ,CHRCNT

BPL

TST

$ERROR

aLPS

;SET UP ERROR COUNT 55
sHALT ON ERROR

;TEST READY

sSET MESSAGE ADDRESS

sFIRST EVFU INSTRUCTION

sSET TABLE POINTER
sSET TABLE COUNT
sTEST FOR ERROR

;CONTINUE IF NO ERRORS
>

YM=-Z049A-AA
CZLXAA,SRC
90
(1)

2505
2506
2507
2508
(1
(1)

2509
2510

(DECSPEC- 11-%DFAD-A-D)

12-MAR-81

014406
014414
014420
014422
014430
014430
014434

014436
014444
014450
014456

014460
014466
014472

10:4

012737
000057
004437
000000
013777

000056

105777

164344

001040

164412
010706

000020

000002
001036

164352

D3:

013556

001036
001054

D31:

014654
014656
013250
DEXO:

164210

014660
014122

1%:

DAVTAR:

014644
014646
014650
014652
014654
014656

N=N+1
JSR
HALT
MOV

SWAIT
TSTB

BNE

D4:

014654
014656

MOV

BPL
MOV
JSR
CMP

001054

014566

014606
014610
014612
014614
014616
014620

ERRS6:

011142

014474
014500
014506
014512
C14516
014520
014526
014534
014542
014546
014552
014560
014574
014576
014602

001052

MACY11 30A(1052)

DAV!1:
DAVI]Z2:

ADD
DEC

BEQ
INC

ADD
JMP
DEC
BEQ
ADD
ADD
MOV
JSR
JMP
MOV
MOV
BIT

12-MAR-81
#56,

5
11 :24

PAGE 36-1

;SET UP ERROR COUNT 56

ERCOUNT

%4 ,STAER

;REPORT ERROR SET
:HALT OM ERROR

CHRGEN,aLPB

*SEND EviU INSTR.

aLPS
.~4

:TEST READY

@STRCHR ,MES19
%4 ,RINT
#16. ,CHRCNT

TWAIT

;sWAIT FOR READY
sSET PRINTER MESSAGE
:PRINT MESSAGE

sCHECK IF JUST DONE O SLEW

D31

:BR_IF NOT

CHRCNT
D4
CHRGEN

DEC TABLE COUNT

#2,STRCHR

#2.,STRCHR

CYCCNT

;CORRECT FOR AUTO LF
SEXIT TEST IF DONE

:NEXT EVFU INSTR.

s INC TABLE POINTER
: CONT INUE

:DEC_CYCLE COUNT

TNDAV2 ,MES15

;EXIT IF DONE
;CHANGE EVFU INSTR.
s CHANGE EVFU INSTR.
*SET TEST NUMBER FOR MESSAGE

*RETEST LINE COUNT SLEWING

DEXO
#140,DAVIT
#140,DAVI2
%4 ,PRNNT

#220,DAVI1
#221,DAVI2

#81T12,3SWR
1%

DAVZ2

EVFU

:PRINT TEST NUMBER

JRESET EVFU INSRT.
:RESET EVFU INSTR.

;LOOP ON TEST?

;LOOP

:NEXT TEST
;LOOP

;EVFU LOAD TABLE

SEQ 0060

YM=2049A-AA

| CZLXAA.SRC

——
s
e
e

(DECSPEC=11-BDFAD=A=D)

12-MAR-81 10:43

2557

MACY17 30A(1052)

12-MAR-81

2561

014660

(1)

014666

DAV2:

SENABLE

#176., SWR

BIS

#100,aTKS

MOV

#MESé?.PRTHSG

015370
015364
001054
015372
015362 LOAD:
001040

MOV
MOV
MOV
MOV
MOV
MOV

#TNOO,MTABP
#1TAB,ITABP
@l TABP,STRCHR
#TNOZ2 ,HTABP
#DTAB,DTABP
aDTABP, CHRGEN

(1)

014774 012737 000057 001052 ERRS7:

MOV

#57,

2575
2576
2577
5578
2579

015002
015006
015010
015012
015020

004537 011142
000000
000760
013777 001040 163762

JSR
HAL T
BR
MOV
SWAIT

%5,STAER

2581

015032

100010

001003

014670 052777 000100

014676
014702

004437
013737

010726
016050

BNE

164122

JSR
MOV

013560

2564 014710 012737 014031 010724
2565

014716

004437

010706

014766
014772

005777
100007

164006

2566
2567
2568
2569
2570
2571

014722
014730
014736
014744
014752
014760

2574

014774

2572
2573
(1)

(1)
(1)
2580
2582

01§020
015024
015026
015034

012737
012737
017737
012737
012737
017737

014056
016012
000422
014062
015374
000376

000060

105777
100375
005777

DL1:

163754

163746

2};

015034

01273; 000060 001052 ERR60:

2583
2584

015042
015046

004537
000000

()0()()6

011142

2585 015050 000137 014752

2586 015054
2587 015062
2588

gggg

015070
015076

062737 000002
017737 000274
022737
001345

077777

015362
001040

2595

ST
BPL

$ERROR
N=N+1

%%, TYPINT
SPSP,MES19+2
R4 ,RINT

aLPS
DL1
\N

ERCOUNT

LOAD
CHRGEN,aLPB

1STB
BPL
TST
BPL

aLPS
=4
alLPS

"°x :

#60,

JSR
HAL T

%5.STAER

$ERROR
=N+

JMP

:POINT TO MESSAGE
:SET MESSAGE TABLE POINTER
:SET INSTRUCTION TABLE POINTER
:SAT FIRST INSTRUCTION
:SET HEADER MESSAGE TABLE POINTER
;SET DATA TABLE POINTER
:SET FIRST DATA PAIR
*TEST FOR ERROR
:BRANCH IF NO ERROR

:SET UP ERROR COUNT 57
;REPORT ERROR SET
*HALT ON ERROR
*RESTART LOAD
*LOAD EVFU
SWAIT
*BRANCH IF NO ERROR

DL6
\N

:ENABLE KEYBOARD INTERRUPT

SINITIALIZE

:TEST READY
*WAIT FOR READY
:TEST FOR ERROR

ERCOUNT

LOAD

ADD
MOV

#2.DTABP
aDTABP, CHRGEN

BNE

CMP

015106

015106
015112
015114

105777
100375

163674

DL8:

163666
DL8A:

2596 015114 017737 000252 013746
2597 015122 012737 013672 010724
2598 015130 004437 010706
2599 015134 012737 000012 001056 DL9A:
5600 015142 013777 001054 163632 DL9:
2601

JSR

.+10

;NO= CONT INUE

#77777.CHRGEN

:SET UP ERROR COUNT 60
:REPORT ERROR SET
*HALT ON ERROR

*RESTART LOAD

“INC DATA TABLE POINTER
:SET NEXT DATA PAIR
:DONE LOAD?

:START OF CHANNEL SLEW TESTS

2593 015100 012777 000020
(1)
(1)

DL6:

001040

%gg}
259,

SEQ 0061

:S/W SWR ?

CMP

(1) 014660 022737 000176 001004

2562
2563

PAGE 36-2

:TEST D3
:CHECK EVFU CHANNEL SLEW COMMANDS

2558
sggg

(1)

11:24

015150

MOV

#20,3LPB

:SEND CHAN. 1 TO INIT EVFU

ISTB
BPL

aLPS
.~4

:TEST READY
‘WAIT FOR READY

MOV
MOV
JSR

AHTABP.MES20A
#MES20 PRTMSG
% RINT

:SET HEADER MSSG ADDRESS
:SET HEADER MSG ADDRESS
- “PRINT HEADER MESSAGE

MOV
SWAIT

'STRCHR, aLPB

*SEND EVFU INSTRUCTION
TWAIT

SWAIT

MOV

#12,STRCNT

“SET FOR 10 TRYS

YM-Z049A-AA

CZILXAA.SRC
(1)

(DECSPEC=11-BDFAD=A=D)

12-MAR-81 10:43

015150

105777

(1) 015154 100375

2602 015156 005777
2603 015162 100010
2604

163624

((}; 015164 853525 000067

2605

2606
2607
2608
2609
2610
2611

015172

015176
015200
015204
015212
015214
015222

001052 ERR61:

004537 011142

000000
000137 014752
022737 000012 001056
001404
013737 014106 013556
000403

DL10:

0107264

DL10B:

2625

(1)

015320

015324

105777

100375

015334

015362
015364
015366
015370
015372

2645

2646

015374
015376
015400

000036
000020
000021

015404

000023

015410

000025

015402 000022

2647 015406 000024
2648

*TEST FOR ERROR
*BRANCH IF OK

"0'\3 .

#61,

JSR

%5.STAER

$SERROR
=N+

‘WAIT FOR READY

T COUNT 61
UP ERROR
:SE

ERCOUNT

:REPORT ERROR SET

HAL T
JMP
CMP
BEQ
MOV
B8R

#12,STRCNT

DL10A
TNO14 ,MES19
DL108

*HALT ON ERROR
*RELOAD EVFU
‘FIRST TIME?
*BR=YES
“SET MESSAGE
‘BYPASS

MOV
JSR
DEC

#MES18,PRTMSG
%4 ,RINT
STRCNT

;SET MSG ADDRESS
*PRINT MESSAGE
*DEC INSTR COUNT

LOAD

;SET MESSAGE

000002 015364
000064

ADD
TST

#2,1TABP
ol TABP

000056 001054
000036 163462 DL12:

MOV
BNE
MOV

@ITABP,STRCHR
DL8
#SL,aLPB

163454

TSTB

aLPS

:TEST READY

BIT

#BIT12,3SWR

ON TEST?
:LOOP

JMP
BIT

DAV?2
#BIT10,aSWR

:LOOP ON TEST
:DO PLOT TESTS?

JMP
JMP

PLPRT
TEST?2

:GO DO PLOT TESTS
*RECYCLE PRINTING TESTS

ADD

000002 015372

163434

BEQ

SWAIT

BPL
:

DLEX:

DLEX1:

BEQ

#2 ,HTABP
pL12

DLEX

DLEX1

:WAIT FOR READY

*BR=NO

:DATA TABLE POINTER
:INSTRUCTION TABLE POINTER
SINSTR COUNT TABLE POINTER
*MESSAGE TABLE POINTER
:HEADER MESSAGE TABLE POINTER

DTABP: 0
ITABP: 0
ICTABP: 0
MTABP: 0
HTASP: 0
:DATA TABLE FOR EVFU LOAD

52?
2642
2643

aLPS
DL10

000002 015370

001402

000000
000000
000000
000000
000000

ST
BPL

HNISH TESTING THIS CHANNEL
:INC MSG TABLE POINTER
*INC HEADER MSG TABLE POINTER
INC INSTR TABLE POINTER
DONE"
*BR=YES
;GET INSTRUCTION
:CONTINUE IF NOT DONE TEST
:TURN OFF EVFU

2631 015352 000137 016222
gggg 015356 000137 003310

2634
2635
2636
2637
zzggg

:TEST READY

DLY
#2 ,MTABP

2028 015336 000137 014660
2629 015342 032777 002000

2630 015350 001402

aLPS

BNE
ADD

2626 015326 032777 010000 163450
2627

2649 015412 000026
2650 015414 000027
2651 015416 000030

PAGE 36-3

aMTABP ,MES19

012737 013464
004437 010706
005337 001056

2616 015250 001334
2617 015252 062737
2618 015260 062737
2619 015266 062737
2620 015274 005777
2621 015300 001404
2622 015302 017737
2623 015310 001273
2624 015312 012777

11:24

MOV

2612 015224 017737 000140 013556 DL10A:
2613 015232
2614 015240
2615 015244

1STB

B8PL

163616

015164

12-MAR-81

MACY11 30A(1052)

DTAB:

SL
20
21
22
23
24
25
26
27
30

:START LOAD
:WORD # 1
:WORD # 2
:WORD # 3
:WORD # 4
:WORD # 5
:WORD # 6
:WORD# 7
:WORD # 8
:WORD# 9

SEQ 0062

YM=-Z049A~AA

CZLXAA.SRC
2652
2653
2654
2655
2656
2657
2658
2659
2661
2662
2663
2664
2665
2667
2668
2669
2670
2671
2672
2673
2674
2675
2676
2677
2678
2679
2680
2681
2682
2683
2685

(DECSPEC-11-BDFAD=A=D)

12-MAR-81 10:43

015420
015422
015424
015426
015430
015432
015434
015436
015440
015442
015444
015446
015450
015452
015454

015456
015480
015462
015464
015466
015470
015472
015474
015476
015500
015502
015504
015506
015510
015512
015514
015516

015520

015522

MACY11 30A(1052)

12-MAR-81

11:24

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

31
32
33
3
35
21
22
23
24
25
26
27
30
31

:WORD #
‘WORD #
‘WORD #
WORD #
‘WORD #
‘WORD #
‘WORD #
‘WORD #
:WORD #
‘WORD #
‘WORD #
‘WORD #
‘WORD #
‘WORD #

10
11
12
13
14
15
16
17
18
19
20
21
22
23

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

33
3%
35
21
22
23
24
25
26
27
30
31
32
33
3
35
21

‘WORD #
‘WORD #
‘WORD #
“WORD #
:WORD #
‘WORD #
‘WORD #
:WORD #
‘WORD #
‘WORD #
‘WORD #
#
‘WORD
:WORD#
:WORD#
#
:WORD
#
:WORD
#
:WORD

25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41

:WORD # 43

000032

000022

000023

015524

000024

015530

000026

015566

000030

:WORD #

‘WORD #

# 45
WORD

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

27
30
31
32
33
3
35
21
22
23
24
25
26
27

#
‘WORD
‘WORD #
WORD #
‘WORD #
‘WORD #
‘WORD #
:WORD #
‘WORD #
:WORD #
‘WORD #
:WORD#
:WORD #
‘WORD #
:WORD #

2704 015570 000031
2705 015572 000032
2706 015574 000033

31
3
3

# 62
:WORD
# 63
‘WORD
# 64
‘WORD

2687 015526 000025
2689
2690
2691
2692
2693
2694
2695
2696
2697
2698
2699
2700
2701
2702
2703

2707

015532
015534
015536
015540
015542
015544
015546
015550
015552
015554
015556
015560
015562
015564

015576

000034

‘WORD #

WORD #

‘WORD #

47
48
49
50
51
52
53
54
55
56
57
58
59
60
61

PAGE 36-4

SEQ 0063

YM=-Z049A-AA

CZLXAA.SRC

(DECSPEC-11-BDFAD=A=D)

12-MAR-81 10:43

MACY11 30A(1052)

12-MAR-81

11:24
66
67
68
69
70
71
72
73

000035
000021
000022
000023
000024
000025
000026
000027

35
21
22
23
24
25
26
27

:WORD #
:WORD #
:WORD #
:WORD #
:WORD #
:WORD#
:WORD #
:WORD #

2717 015622 000031
2718 015624 000032
2719 015626 000033
2720 015630 000034
2721 015632 000035
2722 015634 000021
2723 015636 000022
2724 015640 000023
2725 015642 000024
2726 015644 000025
2727 (15646 000026
2728 015650 000027
2729 015652 000030
2730 015654 000031
2731 015656. 000032

31
32

:WORD # 75
:WORD # 76

2708
2709
2710
2711
2712
2713
2714
2715

015600
015602
015604
015606
015610
015612
015614
015616

2716 015620 000030

2732 015
2733 015662
2734 015664
2735 015666

000033
000034
000035
000021

2736 015670 000022

2737 015672 000023
2738 015674 000024

34
35
21
22
2

25
26
27
30
3
32
33
34
35
21

23
24

2739 015676 000025
2740 015700 000026
2741 015702 000027
2742 015704 000030

25
26
27
30

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

35
21
22
23
24
25
26
27
30
31
32
33

27643
2744
2745
2746

2747
2748
2749
2750
2751
2752
2753
2754
2755
2756
2757
2758

015706
015710
015712
015714

015716
015720
015722
015724
015726
015730
015732
015734
015736
015740
015742
015744

000031
000032
000033
000034

3
32
33
34

PAGE 36-5

:WORD # 74

:WORD # 77
:WORD #
:WORD #
:WORD #
:WORD #
:WORD #

78
79
80
81
82

:WORD #
:WORD #
:WORD #
:WORD #
:WORD #
:WORD #
:WORD #
:WORD #
:WORD #
:WORD #

84
85
86
87
88
89
90
91
92
93

:WORD # 83

:WORD # 94

SEQ 0064

'
|

:WORD # 95
:WORD # 96

*
'

101
102
103
104

g
:
:
{

:WORD # 97
:WORD # 98
:WORD # 99
:WORD # 100

:WORD #
:WORD #
:WORD#
:WORD #

:WORD #
:WORD #
:WORD #
:WORD #
:WORD #
:WORD#
:WORD #
:WORD#
:WORD #
:WORD#
:WORD #
:WORD #
#
:
:

:
:

#
#

105
106
107
108
109
110
111
112
113
114
115
116
117
118

119

120
121

YM=-Z049A-AA
CZLXAA,SRC

(DECSPEC=11-BDFAD=A=D)

12-MAR-81 10 143

12-MAR-81

MACY11 30A(1052)

2764

11:24

24
25
26
27
30
31
32
33
3%
35
35

:WORD #
‘WORD #
SWORD #
‘WORD #
‘WORD #
‘WORD #
:WORD #
:WORD #
‘WORD #
:WORD #
‘WORD #

77777

SSTOP!!

PAGE 36-6

122
123
124
125
126
127
128
129
130
131
132

:STOP LOAD'

:INSTRUCTION TABLE FOR EVFU CHANNEL SLEW INSTRUCTIONS

FS:
SPSP:

016046

; CHANNEL 2
:CHANNEL 3
:CHANNEL 4
*CHANNEL S
;CHANNEL 6
;CHANNEL 7
:CHANNEL 8
*CHANNEL 9
*CHANNEL 10
;CHANNEL 11
SCHANNEL 12
*CHANNEL 13
*CHANNEL .14
:END OF TABLE

21
22
23
24
25
26
27
30
31
32
33
34
Sadt

ITAB:

016012
016014
016016
016020
016022

ASCIT
.ASCII

/3 7
/ ./

:SCOPE LOOP ROUTINE

:SET CHARACTER IN SWITCH REGISTER =0.
000176

001004

000100
010726

162730

162704
177574
177400

105777
100375

005777

162656
162650

SCOPE:

SENABLE

CMP
BNE

BIS

JSR

MOV
LDLPX:

#176.SWR
.+10

#100,3TKS
%, TYPINT

aSWR, SAVE

:S/W SWR ?
:NO- CONTINUE

*ENABLE KEYBOARD INTERRUPT

:FETCH SWITCHES

MOV
BIC

#-132, ,CHRCNT
#177400,SAVE

:SET CHAR COUNT
:MASK CHARACTER

ISTB

aLPS

:TEST READY

aLPS

“TEST FOR ERROR

SWAIT

BPL

‘WAIT FOR READY

SEQ 0065

YM=2049A-AA

CZLXAA. SRC
2810
2811

(DECSPEC-11-BDFAD=A=D)

12-MAR-81 10:43

016130
016132

100006

E};

016132

01273;

000062

2812

016140

004537

011142

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

gggg

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

000000
013777
032777
001402
000000
000731
000177
005237
001346
012777
105777
100375

016216

000715

2827
2828
2829
2830
2831

016220

016174

2834
(1)
(1)
(1)
2835
2836

016222
016222
016230
016232
016240
016246

2838
(1)
(1)

016260
016260
016264

2826

001050
004000

001052
162626
162622

000024
001036

000012

162572

162564

2844
2845
2846
2847
2848
2849

6
11:24

PAGE 37

JSR

%5,STAER

HALT
LPSCOPE :MOV
BIT
BEQ
HALT
BR
LSCO:
JMP
LSCA:
INC
BNE
MOV
SWAIT

:REPORT ERROR SET

SCOPE
aLOSCOP
CHRCNT
LDLPX
#12,3LPB

;HALT ON ERROR
:LOAD PRINTER BUFFER
:SEND ONLY ONE CHAR?
;sNO, BRANCH
:HALT - WAIT FOR OPERATOR
;NEXT CHAR
:SEND LF?
: INCREMENT CHAR COUNT
:CONTINUE IF NOT DONE LINE
;SEND LF

aLPS
A

:TEST READY
:WAIT FOR READY

SAVE ,aLPB
#B1T11,aSWR
LSCO

SCOPE

SEQ 0066

: CONT INUE
‘

LOSCOP: LSCA

:PLOT TEST

:DRAWS 132 LINES WITH FLOATING SPACE THEN 132 LINES WITH FLOATING DOT
022737
001003
052777

012737
004437
105777
100375

016266
016274
016300
(016306

012737
004737
012737
004737

016320
016322
016326
016334
016342
016350

001362
000137
012737
012737
012737
012737

016312

032777

2850 016356 012701

2851
2852
2853
2854
2855
2856

LPSCOPE
:BRANCH IF NO ERROR
\N
62,
ERCOUNT
;SET UP ERROR COUNT 62

B8R

000176

001004

000100
014017
010706

162560
010724

2837 016252 012777 000012

2843

ERR62:

12-MAR-81

BPL
$ERROR
zox .

TSTB
BPL

%%%%

2839
2840
2841
2842

MACY11 30A(1052)

016362
016370
016372
016376
016402
016404

023737
001027
013703
023703
103422
062703

PLPRT:

162522

MOV

162514

000240
016326
005101
016326

016450

PL1:

016450

PL2:

162464

003310
000001

001042

000001
000001
000001

000077
001042

016562
016560
000006

016556
016560
016562

016560

S$ENABLE
CMP
BNE
BIS
MOV
JSR

LINGO:
LGLO:

LGL1:

#176,SWR
.+10
#100,aTKS

#MES26,PRTMSG
4 ,RINT

12.3LPB

SWAIT
TSTB
BPL

aLPS
=4

BIT

#BI1T12,aSWR

MOV
JSR
MOV
JSR

BNE
JMP
MOV
MOV
MOV
MOV

MOV

CMP
BNE
MOV
CMP
BLO
ADD

#240,LGL2
PC,LINGO
#5101,LGL2
PC,LINGO
PL1
TEST2
#1,LINCNT
#1,DRKLIT
#1,8YTPOS
#1,DOTPOS

l77.R1

LINCNT ,BYTPOS
LGLZ2
DOTPOS ,R3
BYTPOS ,R3
LGL2
#6,R3

:S/W SWR ?
:NO- CONTINUE
:ENABLE KEYBOARD INTERRUPT

:PRINT TEST HEADER
‘

:DO 1 BLANK LINE
:TEST READY
:WAIT FOR READY

:SET SUBROUTINE FOR FLOATING SPACE
:GO DO IT
:SET SUBROUTINE FOR FLOATING DOT
;GO DO IT

:LOOP ON TEST?
:BR=YES
:GO TO TEST 2
;SET LINCNT

;SET BYTE POSITION
;SET DOT POSITION

YM=7049A-AA
CZLXAA.SRC

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

023703
103015

016560

016556
016560
016556
000100

016556

000001

016556

177700

000100
016542
000006
016562

016502
016504
016510
016514
016520
015524
016530
016536
01€540
016542
016546
016552
016554
016556
016560
016562

MACY11 30A(1052)

~—a

LGL2:

CMP
B8CC
BIC
INC
ASL

BYTPOS,R3
LGL2
DRKLIT,R1

BEQ

LGL2

BIT

MOV
NOP
BIC

BIS
JSR

016562
001431

ADD

6
11:24

PAGE 37-1

BYTPOS
DRKLIT
#100,DRKLIT
#1,DRKLIT

#177700,R1
#100,R1
PC,PLOT

#6 ,D0TPOS

:NOP IF DRAWING FLOAT SPACE 5101 'IF NOT
;GO PLOT

DOTPOS,#793.
LGL1

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

000005

001042

12-MAR-81

LINCNT

LINCNT ,#793.

001431

LGLO

010177

105777
100375
000207
000000
000000
000000

000001

162234

162226

R1,aLPB
aLPS
1$

PLOT:

1%:

DRKLIT: O
BYTPOS: 0
DOTPOS: 0

.END

;SEND CHARACTER

;WAIT FOR READY

SEQ 0067

YM=-Z0459A~AA

CZLXAA.SRC

12-MAR-81 10:43

21324
21304
21284

010266
010252
010236

ACO
ACO0
ACOOA

21414

010340

ACl

010362
AC2
010430
AC3
010446
AC4
010516
ACé
010526
AC7
BITO = 000001
BIT1 = 000002
BIT10 = 002000
BIT11 = 004000

BIT12 = C10000
BIT13 = 020000
BiT14 = 040000

= 100000
= 000004
= 000010
= 000020
= 000040
= 000100
= 000200
= 000400
= 001000

016560

001074
(HAR
CHRCNT 001036

CHRGEN 001040

CLCKAV

CNTR
CNTRLG
CONV
CONVRT
CSBR

002412

003074
011420
011060
003110
001022

CYCCNT 001044
DAVIT

21354
2136
986
2123
22718

010310
010332
010166
010202
011072

ACOA
ACOB
ACPRT
ACPRTA
ACVN

BYTPOS

2267+

011140

ACNVX

BIT15
BIT2
BIT3
BIT4
BITS
BIT6
BIT7
BIT8
BIT9

(DECSPEC-11-BDFAD=A=D)

014654

-—

2271

2165
21404
21228
21254
2282

2153

MACY11 30A(1052)

12-MAR-81

2276%-. 2278+

2280+

2167

2155

2177
2815

2629

2042
887#
8864

2108
1551
929

2168
2122
2174

885#
898#
8974
8964
895#
8944
8934
8924
8914

2851

1650
1895

1664%
1909%

2132«

10984

1428

1583

1630

1766

1809

1840

1877

1923

1965

1990

2319
1525%

2321
1540%

2324
1548+

2332
1598+

2333«
1606*

2342
1615+

2348+
1622%

2349+
1648+

2514«

2805+

2820+

1575
1707«
1855+
1930«
2074
2499+

1577
1720
1856%
1952
2076%
2507

1599+
1739«
1857
1953«
2078+
2516

1547

1605
174C
1868
1957«
2134+
2571«

1550«

1553

1556

1526%

1538+

1581+

1649+

2489+

2519+

1726

1683

2857

2860+

1670 1933«

1677%
1934x

1696*
1945+

}%é{'
1409*

2315~
1419%

2147+«

2501«

1412%

1413«

14354
23484
2289
1429
1388+

1443+

2472%

2158

2854

1399«
2314
2267k
942
10204

1853«

2626

1571
1697+
1831
1913«
2068
24B4*

2079+«

2528

1569
1676
1824«
1908
2062«
2483

11004

22854

1568+
1655
1797+
1902
2023+
2476%

13584

SEQ 0068

2843

2848+

5%;5#
1097#

PAGE 38

2169

21464
21564
21554
21684
21744
1377

1528

11:24

CROSS REFERENCE TABLE == USER SYMBOLS

2142
2151
2148
2162
2124
9004
8994
8904
88%+

8884

2316+
1503«
25 1
141

};63
3
18 36«
1915«
2071~
2485

2363
1444

14504

1411+

1421+

1502+

2133«

2150%

1854+«

2499

1870

2521+

189+

2157+

2526%

2317
1521%

1416

1911+

25554

28864

1704*
1975*

1418

1916+

1738+
1984+

1541

1931+

1747+
2005+

1958+

1779+
2014*
1608+
1781«
1895«
2007+
2146
2578

1666+

2006+
:

1788+«
2060*
1609
1787
1896
2013
2149+«
2587+«

1679+

2017+

1825+«
2069+
1611+
1790
1898+
2016+
2152
2588

1780+

2024+

1832+ = 1893«
2090 2097+

1561«

1652+
1793
1900«
019
154

1791+

2061+

1567

1654+
1795+
1901+
2021+
2156+

1798+

2072+

YM=2049A-AA
CZLXAA.SRC
DAVI2

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

014656

2473+

2522+

2527%

25564

o466

2530

25614

1389+

1400*

DAVIAB
DAVO
DAVOO
DAVI

014606
014210
014216
014244

2476
L76K
2L77H
2478

2534
2482
2488
24834

DEXO
DGTS

014552
011402

2520
2318

25264
2344

DAV2

DIA

DIGITS

DISPLA
DISPRE
DLEX
DLEX1
DL1
DL10
DL10A
DL10B
pL12
DL6
DL8
DLBA
DL
DLO9A
DOAGN

DOTPOS
DRKLIT
DTAB

014660

003076

001066

001006
000174
015342
015356
015012
015204
015224
015232
015312
C15054
015100

015114
015142
015134
010576

016562
016556
015374

DTABP

015362

D1
D2

014342
0714400

D3
D31
D4
DS
EL

ERCOUN

ERRO
ERR1T
ERR10
ERRT1T
ERR12
ERR13
ERR14
ERR1S
ERR16
ERR17
ERR2
ERR20
ERR21
ERR22

014306

014422
014466
014512
014300
= 000037

001052

001222
001244
001524
001546
001576
001634
001656
001672
001732
001772
001310
002032
002132
002154

957

1376*

1700#

1014#
9ueH
2627
2630
2573
2603
2609
2611
2621
2581
2593¢

25954
26004
25994
2182

1333«

1127+
1127
2629
2632#
25784
26084
2612#
26134
2624
25864
2623

2327+

1436#

1450+

2328

2334

2344

2885H

2616
2189#

2869+
2861%

2870
0862

2887#
2864r

2570%

2571

2586%

2587

2634

2642

2525

2493
2502#¢

24O7H
2518

9034

2551

2503
2512
2515
2486

11034

1246+
1619+
gesw
11434
1148#
12164
12214
12284
12414
12464
12494
12584
12654
11594
12784
13004
13054

2375+

2589

2853
0859

24904

SEQ 0069

2628

2849+
2847+
2570

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

2507
2514#
2519#
248

1143

12649%
1658+
2085+

2775

1148%

1258+
1700%
2094

1159+

1268+
1743*
2137%

1168+

1278+
1784+
2143«

1173*

1300
1828+

2222*

1182+

1305+
1864*
2290

1197+

1312«
1905+
2479+

1206+
1498+
1938+

>
2494

1216+
1507+
1949+

2504+

1221+
1544+
1978«

2574+

1228+

1564+

2010+
2582+

1241+
1602+

2030+
2604+

——

YM=Z049A-AA

CJLXAA.SRC

(DECSPEC=11-BDFAD=A=D)

12-MAR-81 10:43

MACY11 30A(1052)

002214
003340
003416
003642
003760
001340
004222
004334
004544
005010
005264
005526
005776
006224
001362

13128
14984
15074
15648
15644
11684
16024
16194
16584
17004
174 3%
17844
18284
18644
11734

EVFU
EXPRT
EXO

014122
007216
007302

2176
984,
2005#

24664
19984
2039

2531
2043
2041

2008#
2009
2018
2015
2036
2029

2020

20134
20234
20264
20424
20334

2022

983 °
2175
2178
1975¢
19764
291

19714
21774
21804
1989
1985
209

1991

EX00
EX00A

EX1

EX2
EX3
EX&
EX6
EX?7
FS

HAMALN
HAMX
HAMX1
HAMIX
HAM2
HED1
HSPRT

006464
006656
006730
007124
007332
007454
007664
010006
001412
010060
010316
010346
010672
014224
014326
014406
014774
001444
015034
015164
016132
001470

007266
007252

007324

007346
007414
007432
007540
007470

016046

007046
010542
010556
007110
007116
011570
005412

19054
19384
19494
19784
20104
20304
20654
20854
11824
20944
2137#
21434
22224
2479
2494
25044
2574M
11974
25824
26044
28114
12064

20034
20014

27954

979

17724

11:24

PAGE 38-2

CROSS REFERENCE TABLE == USER SYMBOLS

ERR23
ERR2G
ERR2S
ERR26
ERR7
ERR3
ERR30
ERR31
ERR32
ERR33
ERR34
ERR3S
ERR36
ERR37
ERRG

ERRGD
ERRG1
ERRG2
ERRG3
ERRGG
ERRGS
ERRGG
ERRG7
ERRS
ERRS0
ERRS1
ERR52
ERRS53
ERRS4
ERR5S
ERRS6
ERRS7
ERRG6
ERR6D
ERR61
ERR62
ERR7

12-MAR-81

2390w

2025

SEQ 0070

- YM=2049A-AA

' CZLXAA.SRC

. WSO

17828

1794

1796

1799

015372

2569

2596

2618«

2638#

1296
2567

128%#
1318#
27804

965
966

2568

1364
1369

2619

2620

2622

26354

15674

1578

1408

1414

1594+

1609

1775«

1924

2858

2863

28654

1751%
1929«

1754~
1931

015366
002076
002230
016012

LDLPX

015364

002626
002546

003774

LFT

LGL2

LPB

LPS

1783
1792
1789
1803

‘

26364
1237

2567+
1563

13954
13844

2807#

006366

2074
18924

2128+

2152

982
18934
18964
1897
1903#
1904
1912
1910
28494
28504

1880
1921
1899
19004
1914
19084
19154
19184
2878
2871

18894

10994

1371«

1385+

006332
006374
006416
006436
006456
006500
006530
006546
016350
016356

016450

016326
001026
003100
014752
010566
016220

001002

001000

1106#

2839«

1647«
1874~

2035+

2840
1022#
939
25704
927
990+

10084
1613«
1834+

(016146

1406

2841+

1672«
1875

2059

2842
1361
14434
2577
21844
995«

1155+«

1616*
1867+

2068+

2081+

10034

1141

2852

1674
1892+

2101+

28464
1400

1396+

1749«
1893

1851+

1859

2001«

2019

2056+

1453

1455+

1461

1463+

1468

1597«

1626+

2851

2876«

2877

1850+
1988+«

1858
2004+

1520%

1523+

1547+«

1559+

1567+

1579«

1605+

2140+

2146+

2159+

2207+

2226

2483

2507

2578+

"M~Nn

1180

1195

1204

1214

1219

1224

1239

1213+

1418+

1426%

2091+

2099+

1157

1166

1624
1872+

1655«
1908+

1254%
1524
1741
1976

Sé?%

533;

1146

2135

Sggg

1778+«
1934
g

1401+

28274

2088+

1750«
1920«

1425+

2846

2819

1156+

1413

2161+

2131«
2607

1252+
1505
L, 1711
1961
28144

2855

2585

1244
1427
1698
1947

2810

1793

1922

2624

2100

SEQ 0071

1917

2600+

2593%

2092
LPSCOP

17874
1797#
1800#
1809#

016116

LINCNT 001042
LINGO
LKS
LKSRY
LOAD
LOGICA
LOSCOP

1777#
1775#

2821

LEGCHR 001060
LFTTR
LFTO
LFT1
LFT2
1LFT3
LFT4
LFTS
LFT6
LGLO
LGL1

11:24 PAGE 38-3

CROSS REFERENCE TABLE == USER SYMBOLS

005520

ICTABP
INTIC
INTID
1TAB

LDCH

G 6

1808

005542
005610
005626
005676

kKW1lL
KW11P

12-MAR-81

1806

HS2
HS3
HS&
HSE

ITABP

MACY11 30A(1052)

17794

005462
005446

HTABP

12-MAR=-B1 10:43

005476

I HSOO0
HSO0A

HS1

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

2814«

1261+
1542
1753
1981

2141

2508

1668+
1918+

2822+«

1263+
1560
1782
1987

2160

2572

1681+
1941+

2837+

1271+
1562
1801
2008

2201

2579

1703«
1952+

2881«

1710«
1960«

1802«
1962«

1746+
1983~

1281+«
1600
1835
2028

1283~
1614
1862
2034

2580

2594

2601

2208

1837«
1974+«

1273~
1580
1826
2027

2203

1823+«
1963

2212

1752+«
1986+

1787+«
2013+

1298
1617
1873
2063

1303
1625
1903
2082

2607

2625

2220

2225

1800+
2026+

1831+
2033+

1310
1656
1919
2083

1319«
1669
1936
2089

2807

2808

2477

24LB7

| YM=Z2049A~AA

| CIZLXAA,SRC

12-MAR-81 10:43

006056

| LPS7

001540

I LP1

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

1215

[ LP2
LP2B
LP2E
LP2H
LP3
LP3X

001562
003432
003656
003746
001650
001672

1220
1506
1543
1539
1240
1245

LSCO

016170

2816

011611
011656
011731
012110
012147
C12623
012736
012734
012775
013024
013232

23914
23924
1375
23964
1134
24094
1472
1473
1452
24134
2219

002146
002170
016174

LP4
LPS
LSCA

= 000020

ME SA
ME SB
MESC
MESDD
MES1
MES10
MES11
MES11A
MES12
MES13
MES14

MES15S

013250

1299
1304
$90

;8%;:

1501+

1227

1303#
13084
28204

2827

12?(317:

15374

28194

2228

1537%

24184
2490
2498

MES2
MES20
MES20A
MES21
MES22
MES23
MES24

012212
013672
013746
013752
013754
013760
013771

1136
426K
2427
2374
2356
2362
2370

23984
2597
2596%
24294
24304
24314
24324

MES26
MES27
MES3
ME S4
MESS5
MES6
MES7
MES7A
MES8
MES9
MINCNT
MLF
MLFA
MLFO

014017
014031
012237
012270
012334
212415
012454
012452
012510
012526
003072
005176
005240
005256

2434k
24354
1138
1152
1177
1163
24054
24044
24064
24084
1388
978
1738# 17414

2835
2564
23994
24004
24014
1186

MLF2

005334

MES25

MLF1

MLF&
MTABP

014010

005300

005402
015370

2365

1742

17524

1740
2566*

11:24

PAGE 38-4

SEQ 0072

15954

16464

16934

17364

17744

18224

18484

18914

19734

20004

1646+

1693+

1736+

1774+

1822+

1848+

1891+

1973+

2000+

2055+

2563+

2610+

2612+

24114
24104
24124

2127+
24208
24234

2424

23934
2471
23974

013256
073464

013556

12-MAR-81

CROSS REFERENCE TABLE == USER SYMBOLS

1219#

12244
1510#
15474
15614
12444
1249#

MES16
MES18

MES19

MACY11 30A(1052)

2469+

2368

1399
17348
1760
1748

24174

1593=

2474+

2613

2509+

24334

24024

14344
1767

17464

17664
2612

2617+

1755

2523+

26374

......

———

———
e
——
e ———

YM=Z045A-AA

CZLXAA,.SRC
N -

= 000063

(DECSPEC-11-BDFAD=A=D)

12-MAR-81 10:43

1026%

126468
1619#
20654

1025#
2209

= 000240
NOP
010646
NTRDY

1907

NUMCHR 001062
ocT

001076

OVR
OVREXT
OVRPRT
CVRO
OR1
OVR2
OVRG

004462
004706
004420
004470
004530
004536
004560
004522

OVR6
OVR8
PATTB

(04612
004674
003270

OFFSET

OVR3
OVRS

PLKS
PLOT
PLPRT
o1
PL2

PRNNT

2057+

004576

1249#
16584
20854
22124

7407+
2076

11130

2337%

16484
1673
976
16494
1655¢
1653
1657
16544

1675
1683#
16444
1671
1662
1656#
16614
1663

16694
1665
1410

1682
16814
1479%

11084

001064

1143%#

16664

MACY1' 30A(1052)

1148%

11824

11734

11974

12064

16024
20304
28114

13004
18284
22228

13054
18644
2479k

1416

1595%

1611

1776+

1795

1807

1852«

1861

2002+

2021

2040

2346

2376+

1891

1973

2000

2055

2106

2339+

2129+

2341»

2154

2342+

2166

1684

1667
1680

1390%
28814
2834#

010656

1501

1537

1593

1646

1693

1736

1774

1822

1848

2498+

2564%

2597x

2613x

2835+

2510

2565

2598

2614

2836

PRTO

004760

1719

1723

PRT3

005002

1698#

005130

004716

004766

1473%

16964

2490«

1705

1709

1721

1238+
1237*

1297*
1296+

1323+
1322+

2221

22258

2491

17034
17224
17244
1726

005024
005142
005154
005166
001010

RCHRSW
RDYOK

003460
010624

1511
2204

1516
22074

981

18464

RINT

010706

ROTO
ROT1
ROT2
ROT3
ROT4
ROTS
RTTR
RT1

006122
006144
006150
006160

006066

006216
006240
006602
006610

10244
1023#

1474

18504
1853¢
1854#
18564

1860
1863

19294
19304

1727

22288

PRT4
PRT6
PRT7
PRT8
PsWw

001032
001030

2524

2219%

1699
1713
1715
1717
1015#

1876
1871
1869
18624
18674
1966
1964

12414

1564#
20104
2604w

1389
2875
2631

2844

12284

15444
19784
25824

1366
2873
2179

2839%
28414

12214

15074
19494
2574k

10214
2868
958

016266
016300

12164

14984
1938¢
2504w

1278#
1784#
21438

16954

ROTATE

1168¢

001024
016542
016222

PRTMSG 010724

PTRPSW
PTRVEC

1159%

SEQ 0073

12684
17434
21378

010602
010616

PRT2

PAGE 38-5

12584
17004
2094

2475

PRTINT
PRTINO

11:24

13124
19054
2494w

2219
17204
16914
22014
22054

PRTA

CROSS REFERENCE TABLE == USER SYMBOLS

2127
1706
977
1496
2202

PRTCTL

12-MAR-81

1878

1725

= o4
——— e
e —

YM=2049A-AA

CZLXAA,SRC

(DECSPEC=11-BDFAD=A=D)

12-MAR-81 10:43

MACY11 30A(1052)

12-MAR-81

006650
006672
006714

19364
1937
1943

1946
19414
19454

SAVE

001050

1102#

1512«

1519«

1520

2804+

2806+

995

996

28024

2818

2824

1334+

1340+

1342+

2311

1332+«

1348

2313

2357

SCHRSW

SCOPE

SEGCNT

006722
006744
007000

003456

016052

1935
1948
1955

1504

991

19474
19524
1958#

1959

1515#

1518

001034

10964

1695+«

001100

952

1118#

1111#

1708+

SET

001072

SIGNAL

001070

11104

= 000036
SL
SNGCHR 005712

9024
980

2534
1813

2624
18204

2642
1841

1144

1149

1160

1169

1174

22894

2480

SETUP

SKIP

SPSP

STAER

002410

016050

011142

1331

2469

1290
1785

2144

14118
1420
1379

13504

2563

1301
1829

2223

1424
14254
1391

STARA
STARED
STARQO

002740
003036
002702

STAROB

002724

14094

1430

003002

1415

14184

STAROA

STAROC

STAR1T

STP1
STP2
STP3
STP4
STPS
STPSA
—STPSB
STPSC
STP6
STP7

002702

002716

001214
001236
001260
001266
001324
001332
001354
001376
001404
001426

STRCHR 001054

14064

14084

11414
1142
1147
11544
1158
1166#
1167
1172
11804
1181

-1104#
1697
1797

2023

STRCNT 001056
001004
SWR
SWREG
SWTIME
s1

000176
002466
005770

S4x2

006026

S2A

TABSTR
TEST1T

005762
005364
001434

1145
11464
11514
1161
11624
1170
1174
11764
1184
11854

27964

1306
1865

1198

2495

1423«

1207

1217

2505

2575

1565
2011

1603
2031

1620
2066

1504

1510

1511«

1518+

1596+

2583

2605

1412

2037«

2038

2040

2058+

2062

2078

2103«

2104

1650+«
1123

1651+
1126«

1661+
1131

1678+
1330

1932+
1370

1942+
1377

1944+
1384

1954+
1395

1712
1804*

1714
1805

2166+

13704

2834

1838

1839

17624
1199

1222

1545
1979

1508
1950

1410+

1126
1367
1833

1737
119#

1183

1499
1939

1408+

1591
1877
2174

18344

2372+

2812

1229

1242

1247

1659
2086

1701
2095

1744
2138

1599

1628+

"694+

1175

1583
1846
2168

18254

2360

}

1150

1551
1840
2125

%78
964
18264

1313
1906

2814

1422

2164

2815

SEQ 0074

14054

2163«

11054
10134

PAGE 38-6

CROSS REFERENCE TABLE == USER SYMBOLS

RT2
RT2A
RT2AA

RT3
RT3A
RT38

11:24

2843

1716
1807«

2500+

1630
1889
2177

1718«
1857+

2509

1644
1923
2295

1724«
1859

1722«
1858+

2517«

2513«

1683
1965
2346+

1691
1971
- 2467
5

s
'

1737«
1861~

2568+

1726
1990
2528

1739
1867

2600

1734
1998
2561

2106

1756«
1915

2130+

1777«
2003+

2134

1781
2007
2156

1956+
1428

2599+
1494

2608
1528

2615+
1535

1749
1902+«

2622+

1766
2042
2626

1772
2053
2629

1809
2108
2802

1820
2122
2804

YM=-Z049A-AA

CZLXAA.SRC
TESTIA

TESTIB
TESTIC
TESTID
TEST2
TEST3
TKB
TKINT

TKS

TK1
TK2

(DECSPEC=11-BDFAD=A=D)

12-MAR-81 10:43

001460

001504
001612
002110
003310

003552
001014
011172

1196

1205
1225
1284
973

974
10174
933

001020

1019#

011270
011302

2322
2325

1820%

1203#

1212#
12378
12964
1475
1535#
2315
1338

1131+«

1846+

23244
23274

MACY11 30A(1052)
1208

1218
1243
1302
1494#

1585
2348
23054

1345+

1889*

011532
011536
011372
011552
011542
014050
014052

2345
2320
2335
2343
2371
24378
2438#

2347
23734
23424
2359
23754
2474
2523

23724

TNOO

01405¢€

24404

2500

2566

TNO10
TNO11
TNO12
TNO13
TNO14
TNO15
TNO16
TNO17
TNO2
TNO20
TNO21
TNO3
TNO4
TNOS
TNO6
TNO7

014076
014100
014102
014104
014106
014110
014112
014114
014062
014116
014120
014064
014066
014070
014072
014074

1774
1822
1848
1891
1973
2000
2055
2127
1501
24564
24L57HK
1537
1593
1646
1693
1736

24484
24494
24504
24514
24528
24534
24540
24554
24428

2610

1497
918

2239

15014
22354
2246
22414

1451+

1456+

TNO1

P8
TPS

TST2AX
TYP
TYPA
TYPC

TYPD

(14054

014060

001012
001016
003354
010744

24414

10164
1018¢

010754

2238%

011012

2245

010764

TYPDAT 011056
TYPDO
TYPF

24394

T1A
T2A
1280

011474

003462
003436
003620

2845

1370%

1384*

1798+

1395%

2053+

1494*

2247+
2248

2332+
2330

2354+
2352

1460*

1464

1536

1971+

2230%
2229+

2253+«

22564

2244

22514
2253n

1372

1386

1397

1495

2351

2358

1516
15114
15404

1972

15184
1515
1582

2467+

2561+

2802+

2834+

1691+

1734+

1772+

1466

1467

1468+

1469+

1470

2238

2241

1692

1735

1773

1821

1847

1644+

2255

2251«

1890

‘

2125+

1591+

1535+

2569

2247

2312

SEQ 0075 .

23774

2243

1118

TYPSWR

2632

2254

TYPINT 010726

PAGE 38-7

1230
1291
1314
2190

2252

22484
2242

011042

2226+
2225+

11:24

1223
1248
1307
1529

2247#

011020
011030

TYPG

24434
24444
24454
24464
24474

CROSS REFERENCE TABLE == USER SYMBOLS

K3
K4
TKS
TKé
K7
TNDAV1
TNDAV2

TNDAV3

12-MAR-81

1458+

1999

1459

2054

23604

2126

22298

1592

2468

1645

2562

2803

YM-Z049A~AA

CZLXAA,SRC

(DECSPEC=11-BDFAD=A=D)

12-MAR-81 10:43

T2B0A
1281

003626
003634

15414
1542#

1283

003752

15624

004056
003410

15794
15054

1282
12828

1284

1285
T3A
TSA
UEXPRT

UEXO

UEX00
UEXOOA

UEX1

UEX10
UEX2
UEX3
UEX4
UEX6
UEX?7
UEX7A
UEX8
UEX9
ULPRT
uLo
uL00
ULOOA

003732
003720

004002

003476
007550
007634
007620

007656

20634

007604

010166
007700
007746
007764
010152
€10022
010044
010052
010074
004114
004200
004164
004150

uL8
uL9
WORK

011444

w1
T2

AHAM1
XHAM1X
XS1X

15684

1513
985
20604
20584

004214
004236
004276
004410
004320
004326
004350
001046

uLl
uL2
uLé
uLé
uL?

1549
1552

002374
011316

007140
007150
006012

= 016564

20564

2109
.
2073
2070
2102
2084
20914
2092#
2093
975
15984
15964
15944

MACY11 30A(1052)
1557
1558

1570

1572

1522
15204
2053#
2105

1527
2110
2107

2075

2077

20974
15914
1629

1631

21114
20684
20784
20814
2108#
2088#
2098

1574

1612

16224
1212+

1226+

2323

2326

2329

23524

2353

9164

9224

9264

1977
19834
1827

9084

9884
1591
1835
2053
2487

19814

18314

913

9934
1614
1846
2082
2497

SEQ 0076

2080

1610
16054
16134
16304
1623
1349
2331

11:24 PAGE 38-8

1576

1600#
1601
1607
1627
16164
16174
1618
11014

13464
23304

CROSS REFERENCE TABLE == USER SYMBOLS

1554
1555

1559#
15564

12-MAR-81

99%
1625
1873
2089

2508

1131
1644
1889
2100

2561

1370
1669
1919
2125

2579

9284

1384
1691
1961
2160
2594

9324

1395
1711
1971
2212
2601

9374

1427
1734
1981
2249
2625

9454

1494
1753
1982
2296
2802

9494

1524
17648
1987
26078
2807

9554

152
1772
1998
24228
2823

9614

1560
1801
2027
2428
2834

9704

1580
1820
2034
2467
2838

(DECSPEC=11-BDFAD=A=D)

YM-Z049A-AA

12-MAR-81 10:43
CZLXAA.SRC
1370
SENABL 10684 1131
1971
1998
2053
1148
1143
SERROR 10334

. ABS.

1258

1268

1278

1
1300

2479

2494

2504

1981

1987

2027

2034

1784

SPRINT
$SETPS
SWAIT

1828

10434
1083#
1054#

1501
1251
1427

2625

2807

016564

000

ERRORS DETECTED:

1864

1537
1260
1524

2823

1905

1593
1270
1560
2838

MACY11 30A(1052)

11:24 PAGE 39

1305

1312

1646
1280
1580

1693
1309
1614

1938

2082

1498

1978

1949

1736
1321
1625

2100

2089

1507

2010

1774
1669

2160

1544

2030

1822
1711

2212

1691

1734

2065

2085

1216
1564
1848
1753

2487

1221
1602
1891
1801

2497

1772

1820

1846

SEQ 0077
1889
1249

2094

2137

2143

2222

1228
1619
1973
1835

2508

1241
1658

2000
1873

2579

1246
1700

2055
1919
2594

1743

2127
1961
2601

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

CROSS REFERENCE TABLE == MACRO NAMES
1644
1591
1535
1494
1395
1206
1197
1182
1173
1168

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

CORE USED:

12-MAR-81

(17 PAGES)

pp—