Digital PDFs

AH-E635C-MC

February 1981

126 pages

Original

75MB

view download

OCR Version

121MB

view download

Document:	CZLPLC0 LP25,LP26 LP25 DIAGNOSTIC FEB 1981 bw
Order Number:	AH-E635C-MC
Revision:	000
Pages:	126
Original Filename:	CZLPLC0__LP25,LP26__LP25_DIAGNOSTIC__AH-E635C-MC__FEB_1981_gray.pdf

OCR Text

LP25,LP26

LP}_ -

COPYRIGH TE 79-B0 |m| a !

———1 SHNADES TS AT

—

——————

'USER DOCUMENTATION CZLPLCO
01-0CT-80 12:06

—

——

MACY11 30A(1052)

(czepPLc.P

T——

01-0CT-80

_—

12:06

.REM §

E
»

SEQ 0001

PAGE 1

IDENTIFICATION
PRODUCT CODE

PRODUCT NAME:

AC-E634C-MC
CZLPLCO LP25, LP2% DIAG

MAINTAINER:

SMALL

PRODUCT DATE:

23-SEP-80

AUTHOR:

SYSTEMS DIAGNOSTICS

JOHN CHATALIAN

DON RICE

RALPH SCHAUBER

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

EQUIPMENT CORPORATION.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO

RESPONSIBILITY FOR AN/ ERRORS THAT MAY APPEAR
NO RESPONSIBILITY IS ASSUMED

FOR

SOF TWARE ON EQUIPMENT THAT IS NOT

AFFILIATED COMPANIES.

THE

FOLLOWING ARE

DIGITAL
DEC

(C)

THE

USE

SUPPLIED

IN THIS DOCUMENT.

RELIABILITY

DIGITAL

1979,1980 BY DIGITAL EQUIPMENT CORPORATION

TRADEMARKSTMOF

PDP
DECUS

DIGITAL EQUIPMENT

UNIBUS
DECTAPE

CORPORATION:

MASSBUS

OR ITS

'USER DOCUMENTATION CZL PLCO

NOWVISWN—=LO

ERROR INFORMATION

PERFORMANCE

DEVICE
TEST

S oo

WVSWN-—O

OPERATING INSTRUCTIONS
COMMANDS
SWITCHES

CONTENTS

TABLE OF

12:06

GENERAL INFORMATION
PROGRAM ABSTRACT

SYSTEM REQUIREMENTS

RELATED DOCUMENTS AND STANDARDS

PROJECT PLAN FOR LP25 DIAGNOSTIC PROGRAM

DOCUMENT :
RAS-78-008-00-U
DATE:
6-SEP-78

DIAGNOSTIC ENGINEERING FUNCTIONAL SPECIFICATION
FOR CZLPLAO LP25 DIAGNOSTIC PROGRAM (PRELIMINARY)
DATE:
29-SEP-78

LINE PRINTER, 250 LPM (LP25) PURCHASE SPECIFICATION
(PRELIMINARY)

DATAPRODUCTS 300 LPM LINE PRINTER FIELD MAINTENANCE
GUIDE

(PRELIMINARY)

DATAPRODUCTS 300 LPM LINE PRINTER OPERATOR'S GUIDE
(PRELIMINARY)

1 .4

DIAGNOSTIC HIERARCHY PREREQUISITES
THIS DIAGNOSTIC IS COMPATIBLE WITH ALL MEMBERS OF

THE PDP-11

COMPUTER FAMILY. THE DIAGNOSTIC IS INTERFACED TO THE PDP-11
DIAGNOSTIC SUPERVISOR THROUGH WHICH IT INTERFACES TO THE
ENVIRONMENT.

THE DIAGNOSTIC CAN BE USED IN A VARIETY OF OPERATING SYSTEMS
TO FULFILL DIFFERENT REQUIREMENTS.

THE DIAGNOSTIC

CAN BE

LOADED USING XXDP IN A FIELD SERVICE OPERATION, LOADED USING
THE APT/ACT/SLIDE DIAGNOSTIC MONITORS

IN A MANUFACTURING

ENVIRONMENT, OR MANUALLY LOADED USING PAPER TAPE.

THE APPLICABLE PDP-11 CPU, MEMORY, AND PERIPHERALS SHOULD BE
RUN TO VALIDATE PROPER OPERATION OF THE SYSTEM BEFORE RUNNING
THIS DIAGNOSTIC.

1 .9

ASSUMPTIONS

THE LINE PRINTERS UNDER TEST SHOULD HAVE POWER APPLIED AND BE
PLACED ON LINE IN READINESS FOR TESTING. EACH LINE PRINTER

MUST HAVE ITS OWN M7258 CONTROLLER SET UP AT A DIFFERENT DEVICE
ADDRESS. THE DIAGNOSTIC PROVIDES A DEFAULT DEVICE ADDRESS OF
777514 WHICH CAN BE USED WHEN A SINGLE LINE PRINTER IS BEING
TESTED OR FOR THE FIRST UNIT WHEN MULTIPLE LINE PRINTERS ARE

UNDER TEST. IT WILL BE NECESSARY FOR THE OPERATOR TO RUN THE
LINE PRINTER.OFF LINE IN THE SELF TEST MODE BEFORE RUNNING THE
DIAGNOSTIC IN ORDER TO DETERMINE WHETHER THE 64 OR 96 CHARACTER

'USER DCCUMENTATION CZLPLCO
CZLPLC.P1Y
01-0CT-80 12:06

MACY11

30A(1052)

01-0CT-80

12:06

SEQ 0005

PAGE 3-2

BAND
IS INSTALLED.
A PATCH IS REQUIRED

IN THE DIAGNOSTIC TO CIRCUMVENT AN

INCOMPATIBILITY IN THE DIAGNOSTIC SUPERVISOR. IT IS NECESSARY
TO ADD 11236 TO THE CONTENTS OF THE ADDRESS ''LSLAST'' WHICH
IS FOUND AT THE END OF THE ASSEMBLY LISTING. THIS SUM IS USED
AS THE ADDRESS INTO WHICH 42760 IS DEPOSITED. 177777 IS
DEPOSITED INTO THE SUBSEQUENT MEMORY ADDRESS.

2.0

OPERATING INSTRUCTIONS.

THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES.
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS).

2.1

COMMANDS

THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES
(SUPERVISOR).
THIS SECTION LISTS THE COMMANDS AND GIVES A VERY

BRIEF DESCRIPTION OF
COMMAND

THEM.

THE XXDP+ USER'S MANUAL HAS MORE DETAILS.

EFFECT

EXIT

START THE DIAGNOSTIC FROM AN INITIAL STATE
START THE DIAGNOSTIC WITHOUT INITIALIZING
CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER *()
CONTINUE FROM AN ERROR HALT
RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!)

DROP
PRINT

RESTART

CONT INUE

PROCEED

ADD

DISPLAY
FLAGS
IFLAGS

ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE
CONSIDERED TO BE ACTIVE AT START TIME

DEACTIVATE A UNIT

STATISTICAL

INFORMATION

(IF

BY THE DIAGNOSTIC = SECTION 4.0)
TYPE A LIST OF

ALL DEVICE

INFORMATION

TYPE THE SVATE OF ALL FLAGS (SEE SECTION 2.3)
CLEAR ALL FLAGS (SEE SECTION 2.3)

A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS.

YOU MAY, FOR EXAMPLE, TYPE ''STA" INSTEAD OF ''START"',

2.2

IMPLEMENTED

SWITCHES

THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION.
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS.
ALL OF THE LEGAL

SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH.

IN THE PESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY ''DDDDD'.
SWITCH

EFFECT

/TESTS:LIST

EXECUTE ONLY THOSE TESTS SPECIFIED IN
THE LIST.
LIST IS A STRING OF TESY
NUMBERS, FOR EXAMPLE = /TESTS:1:5:7-10,
THIS LIST WILL CAUSE TESTS 1,5,7,8,9,10 TO
BE RUN.
ALL OTHER TESTS WILL NOT BE RUN.

/PASS:DDDDD
/FLAGS:FLGS

EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000).
SET SPECIFIED FLAGS.
FLAGS ARE DESCRIBED
IN SECTION 2.3.

'USER DOCUMENTATION CZLPLC 0
CZLPLC.PIT

01-0C7-80 12:06

MACY11 30A(1052)

01-0CT-80

12:06

1
PAGE 3-3

SEQ 0606

/EOP:DDDDD

REPORT END OF

PASS MESSAGE AFTER EVERY

JUNITS:LIST

TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED

DDDDD PASSES ONLY.

(DDDDD =

T0 64000)

IN THE LIST.
LIST EXAMPLE = /UNITS:0:5:10-12
USE UNITS 0,5,10,11,12 (UNIT NUMBERS
= 0-63)

EXAMPLE OF SWITCH USAGE:

START/TESTS:1-5/PASS:1000/E0P:100
THE EFFECT _OF

THIS COMMAND WILL BE:

TESTS 1

THROUGH 5 WILL BE

EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF

PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY.
A
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS.
YOU MAY,
FOR EXAMPLE, TYPE ''/TES:1-5"" INSTEAD OF ''/TESTS:1-5"",
BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH
COMMAND
.

START

RESTART

CONTINUE

TESTS

PASS

FLAGS

PROCEED
DROP
ADD
PRINT

EOP

UNITS

X
X

DISPLAY

FLAGS

IFLAGS
EXIT

2.3

FLAGS

FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS

LOOPING ON ERROR.
ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH.
FLAGS

ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE
FLAG SWITCH.
THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR
ALL FLAGS.
WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS,
NO COMMANDS AFFECT THE STATE OF THE FLAGS;
THEY REMAIN SET OR

CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH.
FLAG

EFFECT

HOE

HALT ON ERROR = CONTROL IS RETURNED TO
RUNTIME SERVICES COMMAND MODE

LOE,
IER*
IBR*
IXR+

LOOP ON ERROR
INHIBIT ALL ERROR REPORTS
INHIBIT ALL ERROR REPORTS EXCEPT
FIRST LEVEL

(FIRST LEVEL CONTAINS

ERROR TYPE, NUMBER, PC, TEST AND UNIT)
INHIBIT EXTENDED ERROR REPORTS (THOSE
CALLED BY PRINTX MACRO'S)

L%
'USER DOCUMENTATION CZLPLCO
CZLPLC.PN
01-0CT-80 12:06

MACY11

30A(1052)

01-0CT-80

12:06

1
PAGE 3-4

PRI
PNT

DIRECT MESSAGES TO LINE PRINTER
PRINT TEST NUMBER AS TEST EXECUTES

UAM
ISR

UNATTENDED MODE (NO MANUAL INTERVENTION)
INHIBIT STATISTICAL REPORTS (DOES NOT

BOE

SEQ 0007

"BELL'' ON ERROR

APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT
«.
STATISTICAL REPORTING)

IDR

INHIBIT PROGRAM DROPPING OF UNITS

ADR

EXECUTE AUTODROP CODE.

LCT
EVL

LOOP ON TEST
EXECUTE EVALUATION (ON DIAGNOSTICS WHICH
HAVE EVALUATION SUPPORT)

*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1
SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS.
YOU MAY
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH.
FOR EXAMPLE,

TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS
AND TYPE A "BELL'' ON ERROR, YOU MAY USE THE FOLLOWING STRING:
/FLAGS:LOE:IER:BOE

2.4

HARDWARE QUESTIONS

WHEN A DIAGNOSTIC

IS STARTED,

THE RUNTIME

SERVICES WILL PROMPT

THE USER FOR HARDWARE INFORMATION BY TYPING ''CHANGE HW (L) ?"
YOU MUST ANSWER ''Y'' AFTER A START COMMAND UNLESS THE HARDWARE

INFORMATION HAS BEEN '‘PRELOADED'' USING THE SETUP UTILITY (SEE

CHAPTER 6 OF THE XXDP+ USER'S MANUAL).
WHEN YOU ANSWER THIS
QUESTION WITH A ''Y'', THE RUNTIME SERVICES WILL ASK FOR THE NUMBER
OF UNITS (IN DECIMAL).
YOU WILL THEN BE ASKED THE FOLLOWING
QUESTIONS FOR EACH UNIT.
e
ONITS

UNLE+——

LP11 ADDRESS: (0)
(177514) ?
INTERRUPT VECTOR : (0)
(200) ?
ENTER O IF LP25 OR 1 IF LP26 (0)
96 CHARACTER BAND

2.5

(L)

(0) ?

ANSWER Y OR N.

SOFTWARE QUESTIONS

AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART

OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOF TWARE
PARAMETERS.

THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC

OPERATION MODES.

YOU WILL BE PROMPTED BY ''CHANGE Sw (L) ?"

IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING

"'Y'',
THE SOFTWARE GUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED
IN THE NEXT PARAGRAPH(S).
RUN MANUAL

INTERVENTION TESTS

(N)

DEFAULT

IS NO

'USER DOCUMENTATION CZLPL %g 06

CILPLC.P11

01-0CT-80

MACY11 30A(1052)

01-0CT-B0

12:06

53
PAGE 3-5

DAVFU OPTION INSTALLED (N) ?
DEFAULT IS
NO
PERFORM MANUAL PRINT SPEED MEASUREMENTI (N) ?
DEFAULT

CESIRED TIME INTERVAL FOR PRINT SPEED CALCULATION (60)
TESTING IN U.S.A. (Y) ?
AUTODROP ERROR COUNT (D)

2.6

5 ?

SEQ 0008

IS AUTOMATIC

DEFAULT IS 60 SECONDS

MAXIMUM IS 60 SEC.

MINIMUM IS & SEC.
SELECTS U.S. OR BRITISH BAND PATTERN
DROPS ANY UNIT FROM TEST WHICH EXCEEDS SPECIFIED NO. OF

ERRORS

EXTENDED P-TABLE DIALOGUE

WHEN YOU ANSWER THE HARDWARE QUESTIONS,

YOU ARE BUILDING ENTRIES

IN A TABLE THAT DESCRIBES THE DEVICES UNDER TEST.

WAY TO BUILD THIS TABLE

UNIT TO BE TESTED.

THE SIMPLEST

IS TO ANSWER ALL QUESTIONS FOR EACH

IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS

A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION

DEVICE WITH SEVERAL LINES, THIS BECOMES TSDIOUS SINCE MOST OF
THE ANSWERS ARE REPETITIOUS.

TO ILLUSTRATE A MORE EFFICIENT METHOD, SUP
TESTING
A FICTIONAL DEVICE, THE XY1
HIS DEVICE CONSISTS OF
A CONTROL MO
—MWITH
ETGHT UNITS (SUB-DEVICES) ATTACHED TO IT.

_THE

——
l

—

ARE DESCRIBED BY THE OCTAL NUMBERS O THROUGH 7.

Q-FACTOR.

THIS Q=FACTOR MAY BE 0 OR 1.

BELOW IS A SIMPLE WAY

TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS.
# UNITS

UNIT 1

THERE

"
1S ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE
(D)

TUT___,,,,__.———————””’”“"””’f”f/"
B<CR>

160000<CR>
(SR_ADBRESS T0) ?
0<CR>
?
(0)
#
SUB-DEVICE
Q-FACTOR (0) 0 ?
1<CR>

UNIT 2
160000<CR>
CSR ADDRESS (0) ?
1<(CR>
?
(0)
#
SUB-DEVICE
Q-FACTOR (0)

O0<CR>

UNIT 3
160000<CR>
CSR ADDRESS (0) ?
SUB-DEVICE # (0) ? 2<(R>
Q-FACTOR (0) 0 ?

<(CR>

UNIT &

160000<CR>
CSR ADDRESS (0) ?
3<CR>
SUB-DEVICE # (0) ?

Q-FACTOR (D) 0 ?

<CR>

UNIT 5
160000<CR>
CSR ADDRESS (0) ?
SUB-DEVICE # (0) ? 4<(R>
<(R>
Q-FACTOR (0) 0 ?
UNIT 6
CSR ADDRESS (0) ?

:
160000<CR>

_fl_,_,,._—————""”’

USER DOCUMENTATION CZLPLCO
01-0CT-80 12:06
CZLPLC.P1

MACY11 30A(1052)

01-0CT-80

12:06

1
PAGE 3-6

SEQ 0009

S5<(R>
SUB-DEVICE # (0) ?
<(R>
Q-FACTOR (0) 0 ?

UNIT 7
CSR ADDRESS (0) ?

160000<CR>

6<(R>.
SUB=-DEVICE # (0) ?
1<CR> Q=FACTOR (0) 0 ?

UNIT 8
160000<CR>
CSR ADDRESS (0)
7<CR>
?
(0)
#
SUB-DEVICE
0-FACTOR

(0)

<(CR>

NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A
NON-DEFAULT RESPONSE IS GIVEN.
BE CAREFUL WHEN SPECIFYING
MULTIPLE UNITS!
AS YOU CAN SEE FROM THE ABOVE EXAMPLE,

THE HARDWARE PARAMETERS

DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT~

NOT VERY EFFICIENT.

THE PROCEDURE SHOWN IS
:

THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS #%UEVER.

%E;;SREUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION
# UNITS

(D)

B<(R>

UNIT 1
160000<CR>
CSR ADDRESS (0) ?
0,1<CR>
SUB-DEVICE # (0) ?

Q-FACTOR (0) 0 ?

1,0<CR>

UNIT 3
160000<CR>
CSR ADDRESS (0) ?
SUB-DEVICE # (0) ? 2-5<CR>
Q-FACTOR

(D)

0 ?

O0<CR>

UNIT 7
160000<CR>
CSR ADDRESS (0) ?
SUB-DEVICE # (0) ? 6,7<(R>
1<CR>
Q-FACTOR (0) 0 ?
AS YOU CAN SEE

IN THE ABOVE DIALOGUE,

THE RUNTIME SERVICES WILL

BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY
ONE PASS THROUGH THE QUESTIONS.
IN THE FIRST PASS, TWO ENTRIES
ARE BUILT SINCE TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED.

THE

SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT
WAS SPECIFIED ONLY ONCE.
IN THE SECOND PASS, FOUR ENTRIES WERE
BUILT.
THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED.
THE
"'="" CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA
FROM THE FIRST NUMBER TO THE SECOND.

2, 3, 4 AND 5 WERE SPECIFIED.

IN THIS CASE, SUB-DEVICES

(IF THE SUB-DEVICE WERE SPECIFIED

BY ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST
BE ON AN EVEN BOUNDARY.)
THE CSR ADDRESSES AND Q-FACTORS FOR
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND O RESPECTIVELY
SINCE THEY WERE ONLY SPECIFIED ONCE.
THE LAST TWO UNITS ARE

'USER DOCUMENTATION CZLPLCO
CZLPLC.P1Y
01-0CT-80 12:06

MACY11 30A(1052)

01-0CT-80

12:06

SEQ 0070

PAGE 3-7

SPECIFIED IN THE THIRD PASS.

" THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS
SHOWN BELOW.

# UNITS

(D)

B<(CR>

UNIT 1
160000<CR>
CSR ADDRESS (0) ?
SUB-DEVICE # (0) ? 0=7<CR>
Q-FACTOR () 0 ?
0,1,0,,,,1,1<CR>
AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY.

2.7 QUICK START-UP PROCEDURE

(XXDP+)

10 START=I/P THIS PROGRAM:

1. BOOT XXDP+

2. GIVE THE DATE AND ANSWER THE LSI AND 50HZ (IF THERE
IS A CLOCK)

QUESTIONS

3. TYPE ''R NAME'', WHERE NAME IS THE NAME OF THE BIN OR BIC
FILE

FOR

THIS PROGRAM

TYPE ''START"

5. ANSWER THE ''CHANGE HW'' QUESTION WITH ''v*'
6. ANSWER ALL THE HARDWARE QUESTIONS

s ANSU%P THE ''CHANGE SW'' QUESTION WITH ''N''

WHEN
YOU
FOLLOW
JHIS
PROCEDURE
YOU
WILL
BE
USING
ONLY
LSE///////””——-__‘
DEFAULTS FOR FLAGS AND SOF TWARE PARAMETERS. THESE DEFAULTS
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5.

3.0 ERROR INFORMATION
3.1

TYPES OF ERROR MESSAGES

THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY
A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED.
GENERAL ERROR MESSAGES

ARE ALWAYS PRINTED UNLESS THE ''IER'' FLAG IS SET (SECTION 2.3).
THE GENERAL ERROR MESSAGE

IS OF

THE FORM:

NAME
TYPE
NUMBER
ERROR MESSAGE
LWHERE;

ON UNIT NUMBER

TST NUMBER PC:XXXXXX

NAME = DIAGNOSTIC NAME
TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT)
NUMBER = ERROR NUMBER

UNIT NUMBER = 0 = N (N IS LAST UNIT [N PTABLE)

TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED

USER DOCUMENTATION CZLPLCO

[CZLPLC.P1

01-0C7-80 1

:06

MACY11 30AC1052)

01-0CT-80

e Y

12:06

SEQ@ 0011

PAGE 3-8

PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTALIN SOME ADDITIONAL
- INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS
THE “'IER" OR ''IBR'' FLAGS ARE SET (SECTION 2.3).
THESE MESSAGES
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE.

EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION
THESE ARE ALWAYS
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA.
PRINTED UNLESS THE ''IER', "'IBR'' OR ''IXR'' FLAGS ARE SET (SECTION 2.3).

THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES.
3.2 SPECIFIC ERROR MESSAGES
ERROR

DESCRIPTION

"'PRINTER ERROR"
ERROR CONDITION IN THE PRINTER.

"PRINTER NOT READY"'

PRINTER NOT READY TO ACCEPT DATA.

"PRINTER DID NOT INTERRUPT"

"LOADING PRINTER BUFFER DOES NOT CLEAR READY"

FAILURE

IN INTERFACE LOGIC.

"PRINTER’Q«JERRUPTED AT SAME LEVEL AS THE

PROCESSCR

FAILURE IN INTERFACE LOGIC.

fPRINTER ERROR"'

“PRINTER NOT READY"'

"PAPER LOW INTERLOCK SWITCH FAILURE"

"HAMMER BANK INTERLOCK SWITCH FAILURE"

"'CHARACTER BAND INTERLOCK SWITCH FAILURE'

"DAVFU INCOMPLETE DATA ERROR NOT DETECTED"

ERROR CONDITION IN THE PRINTER.
PRINTER NOT READY TO ACCEPT DATA.

FAULTY INTERLOCK SWITCH.

FAULTY INTERLOCK SWITCH.
FAULTY

INTERLOCK SWITCH.

DAVFU FAILED TO RECOGNIZE RECEIPT OF
INCOMPLETE DATA.

"DAVFU STOP CODE ERROR NOT DETECTED'
DAVFU FAILED TO RECOGNIZE RECEIPT OF
DATA THAT DID NOT INCLUDE A STOP BIT

MACY11

LCo
'USER DOCUMENTATION (Z LPL
CILPLC.P1Y

01-0CT- 80 12:06

30A(1052)

01-0CT-80
(ONE)

12:06

n1
PAGE 3-9

CHARACTER.

"'INTERRUPT SERVICING FOR THE FOLLOWING

DEVICE DID NOT OCCUR"

GLOBAL ERROR INDICATING INTERRUPT FOR
DATA TRANSFER DID NOT OCCUR.
14

"PRINTER STATUS ERROR"
GLOBAL ERROR INDICATING PRINTER ERROR
CONDITION.

"OUTPUT TIMEOUT ERROR'
GLOBAL ERROR INDICATING TRANSMISSION
OF LAST CHARACTER DID NOT OCCUR
WITHIN A GIVEN TIME.

4.0 PERFORMANCE AND PROGRESS REPORTS
PERFORMANCE AND PROGRESS REPORTS ARE NOT SUPPLIED.

5.0 DEVICE
DEVICE

INFORMATION TABLES

INFORMATION APPEARS IN THE GLOBAL DATA SECTION.

6.0 TEST SUMMARIES
TEST

INTERFACE LOGIC

VERIFIES OPERATION OF
TEST

READY LINE

INTERFACE LOGIC BETWEEN THE PRINTER AND THE CPU.

INTERLOCKS

VERIFIES OPERATION OF THE READY INTERLOCK SWITCHES.
TEST

FORMS LENGTH SEL ECTION
VERIFIES ALL POS ITIONS OF
PAPER MOVEMENT.

THE FORM LENGTH SELECT SWITCH FOR PROPER

&
TEST
PRINTING SPEED MEASUREMENT

DETERMINES PRINTING SPEED ON THE BASIS OF THE PRINTING TIME INTERVAL
AND THE NUMBER OF LINES PRINTED.
TEST

DAVFU ERROR DETECTION
CHECKS FOR TWO TYPES OF DAVFU ERRORS:
1.

RECEIPT OF

INCOMPLETE DATA.

2. RECEIPT OF DATA NOT INCLUDING A STOP BIT (ONE) CHARACTER.
TEST
&3

SEQ 0012

Pr—————

S————.

—

S—

'USER DOCUMENTATION CZLPLCO
[CZLPLC.PIT
01-0CT-80 12:06
|
i
|

_
s

-—

SU——

MACY11 30A(1052)

—

01-0CT-80

12:06

SEQ 0013

PAGE 3-10

DAVFU LINE COUNT PAPER CONTROL
VERIFIES LINE COUNT METHOD OF PAPER CONTROL USING THE DAVFU.

TESY

DAVFU CHANNEL SELECTION PAPER CONTROL
CHECKS DAVFU PAPER ADVANCE BY MEANS OF
DAVFU MEMORY.

TEST

STOP BITS LOADED IN

DATA TRANSFER PATHS
CHECKS THE DATA TRANSFER PATHS FROM THE PRINTER OUTPUT TO
THE PROCESSOR

TEST

PRINTABLE

INTERFACE.

CHARACTERS

CHECKS FOR PROPER PRINTING OF ALL PRINTABLE CHARACTERS.

TEST 10
NON-PRINTABLE CHARACTERS
CHECKS FOR PROPER DETECTION OF
TEST

ALL NON=-PRINTABLE

CHARACTERS.

BAND PATTERN
PRODUCES AN IMAGE OF

THE ENTIRE BAND PATTERN.

TEST 12
SPURIOUS HAMMER FIRING
CHECKS FOR SPURIOUS HAMMER FIRI NGS BY TAKING NOTE OF

PRINTING THAT MAY OCCUR OUTSIDE

A WEDGE

PATTERN.

ANY

TEST 13

PRINT CONTROL

CHECKS THAT CHARACTERS IN EXCESS OF

ARE DISREGARCED.

132 CHARACTERS ON A LINE

TEST 14
CRITICAL PATH

CHECKS FOR PROPER PRINTER OPERATION WITH A WORST CASE PATTERN.
TEST 15
CHECKS MULTIPLE LINE ADVANCE

CHECKS THE MULTIPLE LINE ADVANCE FOR PROPER PAPER MOVEMENT.
TEST 16
CHARACTER AL IGNMENT
CHECKS CHARACTER ALIGNMENT BY OVERPRINTING EACH LINE.

'CIZLPLCO LP25, LP26 DIAGNOSTIC
01-0CT-80 12:06
[CZLPLC.PI
|

i
l

705
706
707
708
709
710
(4}
712
713
714
715

716
17
718
719

MACY11 30A(1052)

LTITLE

01-0CT-80

12:06

SEQ.0014

PAGE &

CZLPLCO LP25, LP26 DIAGNOSTIC

.ENABL AMA
.SBTTL
ICENTIFICATION
CODE:

AC-E634A-MC

;

PRODUCT

PRODUCT NAME:

CILPLCO LP25, LP26 DIAG

;

MAINTAINER:

SMALL SYSTEMS DIAGNOSTICS

;

AUTHORS:

JOHN CHATALIAN

DONALD RICE

RALPH SCHAUBER

; DATE
;COPYRIGHT (C)

13-JUN-80
1979, 1980

;:DIGITAL EQUIPMENT CORPORATION, MAYNARD MASSACHUSSETTS 01754
THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON
A
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLU-

SION OF THE ABOVE COPYRIGHT NOTICE.
THIS
SOFTWARE,
OR
ANY
OTHER
COPIES
THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE
AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON
SUCH
SYSTEM
AND
TO
ONE WHO AGREES TO THES® LICENSE TERMS.
TITLE TO AND
OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR

RELIABILITY

ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

'CILPLCO LP25, LP26 DIAGNOSTIC

CILPLC.PT
739
740

741
742
743
744

745

746
47
748
749
750

751

752
753

01-0CT-80 12:06

MACY11 30A(1052)

01-0Ci-80

IDENTIFICATION

12:06

¢ 32

PAGE S

SEQ 0015

; FUNCTIONAL CESCRIPTION

: THIS DIAGNOSTIC PROGRAM VERIFIES PROPER OPERATION OF THE LP25 OR LP26
; LINE PRINTER, AND IT'S ASSOCIATED INTERFACE MODULE.

ANY MIX OF LP25 AND LP26 PRINTERS MAY BE TESTED, UP TO A TOTAL OFf
SIXTEEN UNITS.

THE PROGRAM CONSISTS OF SIXTEEN TESTS, THREE OF WHICH ARE FOR THE DAVFU OPTION.
THREE OF THE PRINTER TESTS INVOLVE MANUAL INTERVENTION. TWO OF THE DAVFU TESTS

REQUIRE

INTERVENTION BY THE OPERATOR.

THE PROGRAM IS COMPATIBLE TO THE PDP=-11 DIAGNOSTIC SUPERVISOR, ACT/SLIDE, AND
XXDP+,

VERSION

A-0

: HISTORY

REV.

27-SEP-T79
A=0

R. SCHAUBER

INITIAL RELEASE

REV=-C SUPERVISOR / XXDP+ COMPATABLE

REV. B=0

REV. (-0

DOCUMENTATION CHANGE 29-NOV-79
CHANGE INIT CODE TO SET PRIO ON NEW PASS

INCLUDE LP26 SUPPCRT

13-JUN-80

INCLUDE TEST MESSAGES TO THE PRINTERS

INCLUDES LINE CLOCK SUPPORT FOR LSI-11

CILPLCO LP25, LP26 TEST MACY11 30A(1052)
01-0CT-80
172:06
(CZLPLC P11
01-0CT-80 12:06
IDENTIFICATION
|
|

774
775
776

B
778

9
780
781
782
783
754
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
(4)
(4)
(4)

N
N
N

000000
000000
177777

000000
000000
000000

000000
000000

002000

SVCINS=
SVCTST=
svcsus=
SVCGBL=
SVCTAG=

SEQ 0016

002000
002000
002000
002001
002002
002003
002004
002005
002006
002007
002010
002010
002011

.=2000

LSNAME : :

L$REV::

060

N
N
N

INSTRUCTIONS
TEST TAGS
SUBTEST TAGS
GLOBAL TAGS
OTHER TAGS

POINTER BGNSW,BGNSFT

000060
041146

;LIST
sLIST
LIST
sLIST
;LIST

;STRUCTURED MACRO PACKAGE
: LIST ASSY CODE LEFT
: LIST TAGS LEFT

0
0
-1

BGNMOD

000000

041324
002254

002272
0
002030
002032

0
0
0
0
0

sINITIALIZE SUPERVISOR MACROS

.ENABL AMA
.ENABL ABS
.ENABL LC

002000
002000

000000"

N~~~ P~~~ PN

CZLPLCO LP2S, LP26 TEST

MCALL
SVC
Sv(
STRUCT
LMCALL
STRUCT
SLSTIN=
SLSTTAG=
$LOCTAG=

000000

PN~

.SBTTL PROGRAM HEADER

(4)
(4)
(4)
(6)
Te 3
wiswnssuwnassonesunssune [V 1V

LTITLE

PAGE 6

041736
000000

LSDEPO::
LSUNIT::
LSTIML::
LSHPCP::

L$SPCP::
LSHPTP::
L$SPTP::
LSLADP::

L$STA::
L$CD::

HEADER

(CZLPL,C,0,60,1,340

JASC1I
LASCII
LASCII
LASCII
LASCIT
.BYTE
.BYTE
.BYTE

7C1
72/
7L/
/P/
7L/
0
0
0

LASCII

/¢/

LASCIT

70/

.WORD

LSHARD

.WORD

L$SOFT

LWORD

LS$HW

.WORD

L$SW

.WORD

LSLAST

.WORD

;DIAGNOSTIC NAME

;REVISION LEVEL

;0
sNUMBER OF UNITS
sLONGEST TEST TIME
;POINTER TO H.W. QUES.

;POINTER TO S.W. QUES.
;PTR. TO DEF. H.W. PTABLE
;PTR,

T0 S.W. PTABLE

;:DIAG. END ADDRESS

sRESERVED FOR APT STATS

§
PAGE 6-1

CZLPLCO LP2S5, LP26 TEST MACY11 30A(1052)
01-0CT-B0 12:06
CZLPLC.P
01-0CT-80 12:06
PRCuRAM HEADER
000000

(4>
(5)
(4)
(5)
(4)
(5)
(4)
(5)
(4)
(5)
(4)
(5)
(4)

002034
002036
002036
002040
002040
002042
002042
002044
002044
002046
002046
002050
002050

000001

(3)
(5)

(4)
(5)
(5)

(4)
(5)
(4)
(5)
(4)
(5)
(4)
(5)
(4)
(5)
(4).
(5)
(4)
(5)

(4)
(5)
(4)
(5)
(4)
(5)
(4)
(5)
(4)
(5)
(4)
(5)
(4)
(5)

(4)
(5)
(4)
(5)
(4)
(5)

égé

002034

002051
002052

002052
002054
002056

002056
002060
002060
002062
002062
002064
002064
002066
002066
002070
002070
002072
002072
002074

002074
002076
002076
002100
002100
002102
002102
002104
002104
002106
002106
002110
002110
002112
002112
002114

002114
002116
002116
002120
002120

000000
002132
000340

000000
000000
003
003

000000
000000
000000
002240

000000
000000
000000
000000
000000

000000
002172
104035
000000
005676
007352
002264

002122

000000
000000

000000

LSDTYFP::
LSAPT::
LSDTP::
L$PRIO::
LSENV]::
LSEXP::

LSMREV: :
LSEF::

L$SPC::
LSDEVP::
LSREPP::
LSEXP4::
LSEXPS::
LSAUT::

L$DUT::
LSLUN::
LSDESP::
LSLOAD::
LSETP::

LSICP::
LSCCP::

LSACP::
LSPRT::
LSTEST::

LSDLY::
LSHIME::

.WORD

.WORD
.WORD

.WORD
.WORD
.BYTE
.BYTE

;DIAGNOSTIC TYPE
;APT EXPANSION

;PTR. TO DISPATCH TABLE
LSDISPATCH
;DIAGNOSTIC RUN PRIORITY
340
;FLAGS DESCRIBE HOW IT WAS SETUP
0
;EXPANSION WORD
0
;SVC REV AND EDIT #
CSREVISION
C(SEDIT

.WORD
.WORD

0
0

.WORD

LS$DVTYP

.WORD

L$DESC

EMT

ESLOAD

.WORD

LSINIT

.WORD

LSCLEAN

.WORD

LSAUTO

.WORD

LSPROT

.WORD

;DIAG. EVENT FLAGS

;

POINTER TO DEVICE

TYPE LIST

;PTR.

TO REPORT (CODE

;PTR.

TO ADD UNIT

;PiR.

TO DROP UNIT CODE

CODE

;LUN FOR EXERCISERS TO FILL
;POINTER TO DIAG.

DESCRIPTION

;GENERATE SPECIAL AUTOLOAD EMT
;POINTER TO ERRTBL

;PTR.

TO INIT CODE

;PTR.

TO CLEAN-UP CODE

;PTR.

TO AUTO CODE

;PTR.

TO PROTECT TABLE

;TEST NUMBER

;DELAY COUNT
:

;PTR.

TO HIGH MEM

ceampr—————

002032

(5)

SEQ 0017

(4)

(CZLPLLO LP2S, LP26 TEST HACYH
CILPLC.PTT

* 01-001-80

/:r/m//
t
|
|

802
803
804
(3)
805
806
807

002124
002126

12:06

PROGRAM HEADER

PAGE 6=2

* THE FOLLOWING IS A LOAD PROTECTION TABLE

002122

002122
002122

QA446527”’”'0c1 80

000000
177777
177777

L$PROT::

BGNPROT

.MWORD
.WORD
.WORD

ENDPROT

0
-1
-1

SEQ 00'8

CZLPLCO LP25, LP26 TEST MACY11 30A(1052)
CZLPLC.
P11

01-0CT-80 12:06

810

01-0CT-80

12:06

DISPATCH TABLE
LSBTTL

PAGE 7

SEQ 0019

DISPATCH TABLE

811
812

g}g

: 1T IS USED BY THE SUPERVISOR TO DISPAT(CH TO EACH TEST.

813

816

817

(4)
(3)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
é?é

: THE DISPATCH TABLE CONTAINS THF STARTING ADDRESS OF EACH TEST.
002130

002130
002132
002132
002134
002136
002140
002142
002144
002146
002150
002152
002154
002156
002160
002162
002164
002166
002170

000020

007546
010726
013704
016162
022330
023716
025422
026672
027304
030132
031464
033776
034446
035604
037306
037764

821

002172

(3)

002172

(3)
(3)

002222
002230

(5)
(3)
(3)

(3)
(2)

002172

041514

051105
047107

042040
051517

040511
044524

002236

000103

(3)

002240

823
824

050114

020060
020054
050040

002240

(3)
(2)

055103

002200
002206
002214

822
{(4)

.WORD
LSDISPATCH::
MORD
.WORD
.WORD
WORD
.WCRD
.WORD
LWORD
.WORD
.WORD
.WORD
MWORD
.WORD
.WORD
.WORD
WORD
MWORD

:X= NUMBER OF TESTS

T
12
13
T4
15
16
17
18
19
110
T11
112
T13
T14
T15
T16

:FOR USE ON REVISION C OF THE SUPERVISOR

358
(4)

DISPATCH

002240
002246

050114
050114
044522

032462
033062
052116

LSDESC::

DESCRIP
LASCIZ

.EVEN

031120

032462

000066

046054

/CZLPLCO LP25, LP26 PRINTER DIAGNOSTIC/

DEVTYP

050114

LSDVTYP::

LASCIZ
.EVEN

<LP25,LP26>
/LP25,LP26/

30A(1052)

12:06 PAGE 8
DEFAULT HARDWARE P=TARLE

01-0CT-80

.SBTTL
i

b g

;
:

THE
THE

835
(3)
(3)
(3)
836
837
838

002252
002252
002254
002254
002254
002256
002260

846

002262

000004

SEQ 0020

DEFAULT HARDWARE P-TABLE

DEFAULT HAPLWARE P~ TABLE CONTAINS DEFAULT VALUES OF
TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE
IDENTICAL TO THE RUN-TIME P-TABLE.

LSHW::

BGNHW
.WORD

DFPTBL::

177514

DFPTBL

L10001-L$HW/2
177514

000200
000000

.WORD
.WORD
.WORD

200
0

LP
LP
; 0

000000

.WORD

noro

CZLPLCO LP2S, LP26 TEST MACY11
CZLPLC.P
01-0CT1-80 12:06

EGISTER ADDRESS
NTERRUPT VECTOR

t 25

P26

64 CHAR BAND
96 CHAR BAND

:INTERRUPT VECTOR PRIORITY IS 4 AND CANNOT BE CHANGED
852
(3)

002264
002264

856
(3)

002264
002264

857

|8581002264
859

860
(3)
(3)

002266
002266
002266

L10001:

e
e

L$AUTO::

000240
104461

EN DHW

BGNAUTO
;

NOP

L10002:

ENDAUTO
TRAP

($AUTO

NCT

USED

‘

CZLPLCO LPZ5, LP26 TEST MACY11 30A(1052)

CILPLC.PTY

01-0CT-80 12:06

01-0CT-80

.& g

;
;

869

(3)
(3)
(3)
870

002270
002270
002272
002272

871

PAGE 9

SOF TWARE P-TABLE
.SBTTL

12:06

SEQ 0021

SOFTWARE P=-TABLE
—_—

THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM
PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR.

BGNSW

SFPT

.WORD

:0 IF NO INTERVENTION TESTS

000006

003-L$SW/?2

SFPTBL::

0000

INHINT:

IF MANUAL

INTERVENTION TESTS

002274

000000

VFUOPT:

.WORD

;DEFAULT IS NO
;0 IF NO DAVFU OPTION

002276

000000

MANSPD:

.WORD

:0 FOR AUTUMATIC PRINT SPEED

|880002500

00007

PERIOD:

.WORD

60.

;OPERATOR TO SELECT TIMING VALUE

873
874
875
876
877
878
879

1 IF DAVFU OPTION INSTALLED
NO DAVFU DEFAULT

:1 FOR MANUAL PRINT SPEED TEST
JAUTOMATIC DEFAULT VALUE

;FROM & TO 60 SECONDS.

INITIAL

;DEFAULT VALUE IS 60 SECONDS.

002302

000001

USA:

.WORD

002304

000005

MAXERR:

.WORD

002306
002306

;

; 1 FOR TESTING IN U.S.A.
0 FOR TESTING IN G.B./EUROPE
a

* DIFFERENT BAND PATTERNS +
AUTODROP ERROR COUNT

IF ERROR COUNT EXCEEDS MAXERR THE UNIT WILL BE DROPPED FROM YESY

L10003:

ENDSW

—/'

,
CZLPLCO LP25, LP26 TEST MACY11 30A(1052)
CILPLC.P1Y

|
.

01-0CT-80 12:06

01-0CT-80

12:06

PAGE 10

SEQ 0022

1/0 MACRO DEFINITIONS

ggz

.SBTTL

1/0 MACRO DEFINITIONS

89S

.MACRO

OUTPUT

ADD,BFCNT,ERR,PRINT

MOV

#LPERR,ERRSV(

ERR
MOV

ERR,ERRSVC

MOV

#1,BUFREP

: PRINT ONCE DEFAULT

MOV

PRINTS,BUFREP

. SUPPLY PRINT COUNT

JSR

PC,10CTRL

;CALL THE DRIVER

OUTPUI

ADD,BFCNT,ERR,UNIT,PRINTS

B9
897
898
899
900
901
902
903
904
905

906

MOV
ADD,BUFADD
MOV
BFCNT,BUFCNT
_MOY— #-1,PRINTR
_.1F
B ERR
JENDC
.IF NB

LENDC
.IF B PRINTS

907
908

JENDC
.IF NB PRINTS

910

JENDC

912
913
914

.ENDM

909
911

915

.MACRO

918
919
920
921
922
923
924

IF B

916
917

9¢5

LENDC
.IF NB

QUTPUT

MOV
MOV
ERR
MOV
ERR

MOV

#1,BUFREP

: PRINT ONCE DEFAULT

MOV

PRINTS,BUFREP

: SUPPLY PRINT COUNT

MOV

UNIT,PRINTR

: SUPPLY UNIT NUMBER

929

LENDC

931

#LPERR,ERRSVC

ERR,ERRSVC

LENDC
.1IF B PRINTS
LENDC
.IF NB PRINTS

930

:SAVE BUFFER ADDRESS
:BUFFER BYTE COUNT BFCNT

MOV

926
927

928

ADD , BUF ADD
BFCNT,BUFCNT

:SAVE THE BUFFER ADDRESS
:BUFFER BYTE COUNT BFCNT
: QUTPUT TO ALL UNITS

JSR

PC,I10CTRL

:CALL THE DRIVER

932

.ENDM

935

: PRINTS IS A PARAMETER CONTROLLING THE NUMBER IF TIMES THE DATA OR

938
939
940
ga;

: A TIMEOUT OF 20. SECONDS IS FURNISHED BASED ON THE FOLLOWING ASSUMPTIONS :
:
1
A PRINTER SPEED OF 300 LPM
:
2
A REPEAT COUNT OF B8 MAX. ( 1 PAGE OF LINES AT 8 LPI. )
;
3
AN INITIAL BAND STARTUP TIME OF 2.5 SECONDS.

33
ggg

. MESSAGE IS TO BE PRINTED (SENT TO THE PRINTER). DEFAULT IS 1.

CILPLCO LP25, LP26 TEST MACY11 30A(1052)

(CZLPLC.P1

(1)
(1)
(1)
(1)

(1)
:};

THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES
THAT

ARE

002306

USED

IN MORE

THAN ONE

TEST.

EQUALS

; BIT DIFINITIONS
100000
040000
020000
010000
004000
002000
001000
000400
000200
0001C0
000040
000020
000010
000004
000002

BIT15==
BIT14==
BIT13==
BIT12==
BIT11==
BIT10==
BIT09==
BIT08==
BITO7==
BIT06==
BIT05==

100000
40000
20000
10000
4000
2000
1000
400
200
100
40

BIT03==
BIT02==
BIT01==
BIT00==

10
&
2
1

001000

BIT9==
BIT8==
BIT7==
BIT6==
BIT5==
BIT4==
BIT3==
BIT2==
BIT1==
BITO==

BIT09
BITO8
BITO7
BIT06
BITOS
BIT04
BITO3
BIT0?
BITO1
BITO0

000001

000400

000200
000100
000040
000020
000010
000004
000002
000001

RITO4== 20

; EVENT FLAG DEFINITIONS
EF32:EF1 7 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION
:
000040
000037
000036
000035
000034

EF .START==
EF .RESTART==
EF.CONTINUE==
EF .NEW==
EF .PWR==

32.
3.
30.
29.
28.

PRIORITY LEVEL DEFINITIONS

000340
000300
000240

nnmn
nnn

(1)
(1)
(1)
(1)
(1)

SEQ 0023

BGNMOD

(1)
(1)
(1)
(1)

PAGE 11

GLOBAL AREAS

002306

o000
WO~

(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)

SBTTL

VO O
o

(1)

01-0CT ~80
12:06
GLOBAL A REAS

—

945
946
947
948
949
950
951
952
953
957
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1
(1
(1)
(1
(1)
(1)
(1)
é};

01-0CT-80 12:06

340

300

240

; START COMMAND WAS I[SSUED
; RESTART COMMAND WAS [SSUED
CONTINUE COMMAND WAS ISSUED

;

A NEW PASS HAS BEEN STARTED
A POWER-FAIL/POWER-UP OCCURRED

'CILPLCO LP25, LP26 TEST MACY11 30A(1052)
(CZLPLC.PT1

" 01-0CT-BO 12:06

(1)
(1)
(1)
(1)
(1)
(1)
1
1)
)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1
(1)
958

000200
000140
000100
000040
000000

964
965
966
967
968
969
970
901
972
973
974
975
976
977
978
979
980
981
982
983
984

000015
000177

SEQ 0024

200

PRI0O3== 140
PRI02== 100
PRIO1== 40

PR100== 0

000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
016000
020000
040000
100000

EVL==
LOT==
ADR==
1Dy==
ISR==
UAM==
BOE==
PNT==
PRI==
IXE==
IBE==
1ER==
LOE==
HOE==

000012
000014

LF==12

000340
000309
000240
000200
000140
000100
000040
000000

4
10
20
s
0
s
100 .~
200
400

1000
2000

4000
10000
20000
40000
100000

FF==14
CR==15

DEL==177

PRI0O7== 340
PRI06== 300

PR10S5==
PRIO4==
PRIO3==
PR102==
PRIO1==
PRI0O0==

240
200
140
100
40
0

;GLOBAL ERROR CODES FOR USE BY GENERAL ERROR ROUTINE

986

000001
000002

STATER= 1
TIMOUT= 2

000003

NOINTR= 3

987
988
989
990
991

.SBTTL
;RO

R
:R2

992

993
994

PRI04==

PAGE 11-1

JPRIORITY LEVEL DEFINITIONS

985

GLOBAL AREAS

12:06

;OPERATOR FLAG BITS

962
963

01-0CT-B0

————

;TRANSMITTER STATUS ERROR IN QUTPUT
sTIMEOUT ERROR IN 10 DRIVER MODULE

;THIS ERROR INDICATES THE LAST CHARACTER
;WAS NOT TRANSMITTED WITHIN A GIVEN TIME

;:GROSS TIME OUT ERROR. THE SPECIFIED DID NOT
sINTERRRUPT, THEREFORE 10 DRIVER MODULE WAS
sNOT CALLED

GENERAL REGISTER USAGE DEFINITIONS
RESERVED FOR USE BY THE MACRO PACKAGES

MAXIMUM NUMBER OF UNITS TO TEST LSUNIT=-1

UNIT NUMBER BY 2. USED TO CALCULATE OFFSET INTO PROPER
PRINTER TABLE

'CZLPLCO LP25, LP26 TEST MACY11 30A(1052)
;(ZLPLC.P\\
i

01-0CT=-80 12:06

995

:R&
;RS
;R6
:R7
:

1001
1002

}88%

12:06

PAGE 11-2

SEQ 0025

GENERAL REGISTER USAGE CEFINITIONS
:R3

996
997
998
999
1000

1006
1007
1008
1009
1010
1011
1012
1013

01-0CT-80

TEMPORARY STORAGE

;

STACK POINTER
PROGRAM COUNTER

; LP STATUS TABLE BIT DEFINITIONS
100000
040000

020000
010000
002000
001000
000377

ERROR = BIT1S
DROPED = BIT14
ACTIVE = BIT13
FLAG96 = BIT12
;BITN
FLAG27 = BIT10
FLAG26 = BIT9
LOBYTE = 377

; 96 CHAR BAND
; FOR EXPANSION
: 0 1F LP25, 1 IF LP2¢
; BIT MASK FOR CLEARING LOBYTE

(COUNTER)

(CZLPLCO
C
LP25, LP26 TEST MACY11 30A(1052)
01-0(T=-80 12:06 PAGE 12
C2LPLC.PIN
01-0CT-80 12:06
GLOBAL DATA SECTION
1015
1016
1017
1018
1019
1020

.SBTTL

GLOBAL DATA SECTION

002306
002310

000000
000000

FLAG:
LINCNT:

.WORD
.WORD

0
0

1022
1023
10264
1025
1026
1027
1028
1029

002314
002316
002320
002322
002324
002326

000000
000000
000000
000000
000000
000000

COUNT:
CCNT:
STRCNT:
CHRGEN:
UNIT:
LUNIT:

.WORD
LWORD
.WORD
.WORD
.WORD
.WORD

0
0
0
0
0
O

1030
}8%}

002330
002332

000000
000000

PTABAD:
PRINTR:

.WORD
.WORD

0
0

1033

002334

000000

CLKTYP:

.WORD

002336

000000

CLOCKP:

.WORD

CLKSET: .WORD

1021

1034
1035

1036
1037

1038

002312

002340

000000

002344

.WORD

000000

CLKCSR: .WORD

000000

CLKVEC:

.WORD

1039 002342 000000
1040

LSTCNT:

000000
000000

CLKENA:
ERRCOD:

002352
002354

000000
000000

ERRFLG:
UuT:

.WORD 0
.WORD
0

1049
}82?

002356
002360

000000
000000

INDEX:
VFUCMD:

.WORD
.WORD

;MACRO

VARIABLES

0
0

002362

000000

BUFADD:

.WORD

}829

002364

000000

BUFCNT:

.WORD

}823

002366

000000

BUFREP:

.WORL

002370

000020

LPCSR:

1067
1068

002430

000016

LPVEC:

1070

002464

000020

LPBUF:

1069

;<CR> FLAG FOR USE BY SUPERVISOR
;LINE COUNTER

;CLOCK TYPE CONTROL WORD
;1= NO CLOCK AVAILABLE
;2= KW11=L LINE CLOCK

;3= KW11-P PROGRAMABLE CLOCK
;

;CLOCK CSR ADDRESS

; CLOCK TIME SET REG ADDRESS
;CLOCK VECTOR ADDRESS

;BUFFER ADDRESS OF DATA TO BE SENT
:T0 THE PRINTER

;NUMBER OF BYTES TO TRANSFER

; NUMBER OF TIMES TO PRINT

.REPT
.WORD

16
0

;

INTERRUPT VECTOR ADDRESS

DATA BUFFER REGISTER ADDRESS

o SO

.,,N*-i

3‘!r\ub+~

. :CLOCK ENABLE BITS
:ERROR CODE TYPE FOR GENERAL
;ERROR ROUTINE
;EXPECTED ERROR INDICATOR
; # UNITS ACTUALLY UNDER TEST
;EXITS BACK TO 10 DRIVER EQUAL
;1 IF ERROR WAS EXPECTED.

; ADDRESS OF CSR FOR EACH LP1

.REPT 16.

CLOCK P-TABLE ADDRESS

16,
0

.ENDR

;P-TABLE ADDRESS RETURNED.BY.GPHARD
;gE%ESTED LINE NO.

.REPT
.WORD

.ENDR

;UNIT COUNTER FOR SINGLE UNIT TESTING
;UNIT COUNTER FOR ERRORS
;AND TESTS NOT USING THE OUTPUT
;MACROS.

:
3
:LP25 PARAMETER WORD TABLES

1064
1065

SEQ 0026

0
0

1054
1055

1066

002346
002350

1060
1061
}8g§

1041
1042
1043
1044
1045
1046
}823

}8§§

.WORD
.WORD

‘\.L‘fi"”'

r,flfl_,-‘fl

'CILPLCO LP2S, LP26 TEST Hscal1 30A(1052)

(CZLPLC.P1Y
|

12:06

GLOBAL DATA SECTION

.WORD
000020

STATUS:

002564

000020

CURADD:

002624

000020

MSGCNT:

002664

000020

REPCNT:

002724

000020

MSGADR:

002764

000020

CURCNT:

003024

000020

LPINTR:

1094
1095
1096
1097
1098
1099

003064

ooooéd-

DELCNT:

003124
003126

000000
000020

ERRSVC(:
ERRTBL::

003166
003170

000000
000000

:
WOR:K

WORK1:

.WORD
LWORD

.SBTTL

OUTPUT BUFFER

1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088

e
D i
i
it

1089
1090
1091
1092
1093

.REPT 16.
WORD
0
.ENDR
.REPT
.WORD
.ENDR
.REPT
.WORD
.ENDR
MEPT
.WORD
.ENDR
LREPT
.WORD
.ENDR
.REPT
.WORD
.ENDR
.REPT
.WORD

.ENDR
.WORD
.WORD
.ENDR

SEQ 0027

; UNIT STATUS

16.
0

;

CURRENT ADDRESS OF OUTPUT DATA BYTE

16.
0

;

INITIAL BYTE COUNT OF MSG FOR REPEAT RESTORE

)
0

;

NO.

16.
0

;

ADDRESS OF

16.
-1

;

CURRENT COUNT REMAINING TO OUTPUT

16.

;

INTERRUPT ROUTINE ADDRESS

;

TIMEOUT DELAY COUNTER

0
LREPT 16.
0

; ERROR ROUTINE DISPATCH ADDRESS
;

ERROR COUNT FOR EACH UNIT

0
0

;

WORK AREA

.ENDR
.REPT 16.

.WORD

002524

1074
1075

PAGE 12-1

e e e e 2 ODOOOOO < o
OWVNEBWN=OVNOWVISW ~N

1071
1072
1073

—

01-0CT7-80
1

01-0CT=-80

TIMES TO REPEAT MESSAGE
DATA TO PRINT

1150 BYTES IS RESERVED FOR THE OUTPUT BUFFER AREA
003172

000226

:
OUTBUF

.EVEN

.REPT
MY

.ENDR

150.
§

START OF

DATA

O (]

—

PN
—

VELDEESSEDDNHWWHWRWWWWWWNRONINONDNNONDNONN
COVB®NONEWN=OOVBVCNE
WA SO OB NCNE W
=000

il
s
B
P
Y——————_—_
S
TY Y
Y
S
S
Y
S
S
S
R
i
-l

& o

0 LP 25,
P11

LP26 TEST MACY11 30A(1052)
01-0CT-80 12:06

01-0CT-80

12:06

GLOBAL TEXT SECTION

.SBTTL

PAGE 13

GLOBAL TEXT SECTION

.NLIST BEX
sy

; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,
; MESSAGES, AND ASCII INFORMATION THAT ARE USED IN
;

003420
003436

051120
051120

047111
047111

042524
042524

004161

00‘5;8

020117

046103

003460
003523
003570
003640
003673
003720
003745
003776
004045
004133

040520
110
044103
051124
120
052517
125
046101
045
045

042520
046501
051101
047101
044522
050124
044516
020114
022516
022516

020122
042515
041501
046523
052116
052125
020124
047125
044501
021101

MORE THAN ONE TEST.

C(SRERR:
RDYERR:

.ASCIZ /PRINTER ERROR/
.ASCIZ /PRINTER NOT READY/

N?S%::

LASCIZ

PAPSWI:
BNKSWI:
BNDSWI:
INTER1:
TXERR:
OUTTIM:
TXNCIN:
UUTEQO:
VFUSEL:
VFUSE1:

.ASCIZ
.ASCIZ
.ASCIZ
,ASCIZ
.ASCIZ
,ASCIZ
.ASCIZ
.ASCIZ
.ASCII
.ASCIZ

/PAPER LOW INTERLOCK SWITCH FAILURE/
/HAMMER BANK INTERLOCK SWITCH FAILURE/
/CHARACTER BAND INTERLOCK SWITCH FAILURE/
/TRANSMIT INTERRUPT TIMEOUT/
/PRINTER STATUS ERROR/
/OUTPUT TIMEOUT ERROR/
/UNIT FAILED TO INTERRUPT/
/ALL UNITS HAVE BEEN DROPPED..RESTART../
/XNXAINSURE THAT VFU-FLS SWITCH ON EACH UNIT IS IN THE /
/XNXA''VFU'' POSITION.XN/

/NO CLOCK AVAILABLE FOR TIMING TESTS/<7><7>

LLIST BEX

: FORMAT STATEMENTS USED IN PRINT CALLS
004230

004236
004244
004252
004260
004266
004274

040445

052440
042045
051104
020104
052040
000116

050114

044516
022462
050117
051106
051505

030461

020124
020101
042520
046517
022524

LPDROP: .ASCIZ

/%ALP11 UNIT XD2XA DROPPED FROM TESTXN/

SEQ 0028

CO LP25, LP26 TEST MACY11 30A(1052)
01-0CT-80 12:06
P11
01-0CT-80 12:06
GLOBAL SUBROUTINES

NN N NN NN~N~N~vyoOOcrOrTOCOTOCOrOrONVNYVNYNWY

—=0O0o~Noy

(Z
AL

.SBTTL

PAGE 14

SEQ 0029

SECTION

GLOBAL SUBROUTINES

SECTION

P44

;

THE GLOBAL SUBROUTINE SECTION CONTAINS THE SUBROUTINES
THAT

ARE

USED BY MORE

THAN ONE

TEST.

;

SUBROUTINE TO PRINT THE GENERAL ERROR INFORMATION.
PRINTS THE ERROR MESSAGE

1191
(6)
1192
(4)
(7)

IN THE

FOLLOWING FORMAT:

"ERROR AT CSR XXXXXX UNIT yy'

NS WOV
ONOWVNSWN SOV
OO

e w e

S OWNE S WNNNWWWOIWES
N XMoo

FUNCTIONAL DESCRIPTION:

WHERE
:

XXXXxXX=
YY=

DEVICE CSR ADDRESS
UNIT NUMBER THAT FAILED

CALLING SEQUENCE
JSR PC,LPERR

REQUIRED PARAMETERS

ERRCOD MUST BE SET TO ONE OF
UNDER ERROR CODES.

IS USED

INTERNAL

TO THE

THE ERROR CODES DESCRIBED

ROUTINE.

THE ROUTINE DOES A SAVE ON R2
AND RESTORES IT PRIOR TO EXITING.

004276
004276
004302
004304
004310
004312
004312
004316
004316
004320
004322
004324
004324

004326
004330
004332
004334
004334
004334
004334

004340
004340
004344

013746
003403
021627
003402

012716

002350

LPERR:

BLE

CMP

000003

000004

006316
060716
063607

50000%:
50001%:

50002%:

000010
000036
000064
000110

50006%:

005262

003126

010237
006237

002074
002074

SELECT ERRCOD OF 3 VERIFY

MOV

ERRCOD,=(SP)

;SELECT PROPER MESSAGE FORMAT

50000%

(SP) ,#3

BLE

50001%

MOV

#4,(SP)

ASL
ADD
ADD

(SP)
PC, (SP)
a(SP)+,PC

.WORD
.WORD
.WORD
.WORD

50006%$-50002%
50005%-50002%
50004%$-50002%
50003%-50002%
;STATUS ERROR

CASE 1

LET ERRTBL(R2) := ERRTBL(R2) + #1
ERRTBL (R2)
INC
LET LSLUN := R2 SHIFT =1

MOV
ASR

R2,LSLUN
LSLUN

CZLPLCO LP25, LP26 TEST MACY11 30A(1052)
12:06
01-0CT-80
CZLPLC.P
01-0CT-80 12:06
GLOBAL SUBROUTINES
1193

004350
004350
004352
004354
004356
004360
004360
004362
004362
004362
004366
004366
004372
004376
004376
00440C
004402
004404
004406
004406
004410
004410
004410
004414
004414
004420
004424
004424
004426

—

NNV
AN AN AN~ NAAANON AN
—
i PN i PN
O - P OON—=0OWO o
OOV~ ~
OO NO v WV
B v NN =

004430
004432

ERRHRD

104456
000016

50005$:

005262

003126

010237
006237

002074
002074

.WORD

TXERR

CASE 2
BR

500038

MOV
ASR

R2,LSLUN
LSLUN

TRAP

(SERHRD

.WORD

QUTTIM

CASE 3
BR

50003

.WORD

50004$:

;OUTPUT TIMEOUT ERROR

LET ERRTBL(R2) := ERRTBL(R2) + #1
ERRTBL (R2)
INC
LET LSLUN := R2 SHIFT =1

.WORD

000412

SEQ 0030

.WORD

ERRHRD

104456
000017
003720
000000

005262

003126

INC

010237
006237

002074
002074

MOV

104456

R2,LSLUN

TRAP

000020
003745
000000

;

15,0UTTIM

NEVER RECIEVED THE INTERRUPT
;
LET ERRTBL(R2) := ERRTBL(R2) + #1
ERRTEL (R2)
LET LSLUN := R2 SHIFT =1

ASR

.WORD
.WORD
.WORD

004434
004434
004434
004434
004442
004444
004450
004450
004450
004450
004456
004456
004462
004462
004470

(SERHRD

JMORD

14, TXERR

TRAP

003673
000000
000425

PAGE 14-1
SECTION

LSLUN
ERRHRD 16, TXNOIN
(SERHRD

16
TXNOIN
0

ENDSELECT

500038

026237
003402
004737

003126

IF ERRTBL(RZ) GT MAXERR THEN
L
(R2) ,MAXERR
ERRTB
CMP
50007%
BLE
JSR PC,DROPIT
; MAXIMUM ERROR COUNT EXCE EDED !

002304

005534
50007%:

042762

100000

005037

002350

012772
000207

000100

ENDIF

:= STATUS(R2) (LR.BY WERROR

LET STATUS(R2)

#ERROR,STATUS(R2)
BIC
LET ERRCOD := #0

002524

CLR

ERRCOD

MOV
RTS

#100,3LPCSR(R2)
PC

LET QLPCSR(R2)

002370

T
P
e

: BIN2DA

:= #100

e
e T
R

——

; CLEAR THE ERR

BLE INTERRUPTS

;AND EXIT

R e
e
S e
S e S S S
e
S e
e
e e W
e
ke
e

BINARY TO DECIMAL ASCIl CONVERSION ROUTINE

CILPLCO LP2S, LF26 TEST MACY11 30A(1052)
01-0CT-80 12:06

NON WV SN WY = o
~r 00~

[ - b

AN AANNONONONNON ~no
SSNOWNONNORONONINOND N

CZLPLC

1229

PAGE 14-2

SEQ 0031

SECTION

ENTER WITH NUMBER TO BE CONVERTED ON THE STACK
FOLLOWED BY THE ADDRESS OF A 5 BYTE BUFFER
FOR THE ASCII STRING. 5 DIGITS WILL BE CONVERTED
LEADING ZEROES WILL BE CONVERTED TO SPACES.
CALL BY JSR PC,BINZDA

e
e
e
R R R
A
e e S
A S
R S S
e e e
e e e
e e e
e e e
e
i
R
R
T
kLke

004472
004472
004474
004476
004476
004502
004502
004506
004506
004512
004512

004560
004560
004564
004566

(4)

12:06

;
;
:
;
:

004516
004516
004524
004526
004526
004532
004532
004536
004540
004540
004540
004544
004546
004546
004552
004552
004556
004556
004560

1244

01-0CT-80

GLOBAL SUBROUTINES

004572
004574
004574
004574
004602
004602
004606
004606
004612
004612
004614
004614
004614

BIN2DA: PUSH R4 ,RS
MOV

010446
010546

R4 ,=(5P)

016604

000006

MOV
LET R4
MoV

012705

004664

MOV

#TABLDA,RS

005037

004676

CLR

FLAGDA

005037

004700

CLR

COUNTD

006402

000004

MOV

#6,DIGITS

005337

004702

DEC

DIGITS

005737
002435

004702

TST

DIGITS

: LEADING ZERO FLAG

LET COUNTD := #0

; 8.(SP) HAS NUMBER TO BE CONVERTED
DECR DIGITS FROM #4 TO #0 BY #1 ; DO 5 DIGIiTS

004702
50011%:
50010%:

000010

SUB

005237

004700

INC

000770

50014%:

50010%

BLT
50013%:

50012%

WHILE 8.(SP) GE

052737

000060

113724

004700

MOVB

005237

004676

INC

50016%:

CREATE A DIGIT

: CONVERT DIGIT TO ASCII OR SUPPLY A SPACE
IF COUNTD GT #0 OR FLAGDA GT #0 THEN
COUNTD

50015%

BGT

004700

;

50013%

004700

50015%:

COUNTD
ENDDO

TST

(RS) DO

\
8.(SP), (RS)
50014%
LET B8.(SP) := B.(SP) = (RS)
(RS) ,8.(SP)
LET COUNTD := COUNTD + #1

CMP
BLT

005737
003003
005737
003410

004676

STRING

LET FLAGDA := #0

161566

000040

GET ADDRESS FOR ASCII

: GET ADDRESS OF DECIMAL TABLE

000010

112724

;

LET RS := #TABLDA

026615
002405

000402

RS,=(SP)
:= 6(SP)
6(SP) R4

TST

FLAGDA

BIS

LET COUNTD := COUNTD SET.BY #60
#60,COUNTD
LET (R4)+ :B= COUNTD

50016%

BLE

BR
MOVB

COUNTD, (R4) +

LET FLAGDA := FLAGDA + M
ELSE

FLAGDA

50017%

LET (R&)+

#40,(R4)+

:B= #40

CZLPLCO LPZS, LP26 TEST MACY11 30A(1052)
01-0CT-80 12:06
cZLpPLC.P
01-0CT-80 12:06
GLOBAL SUBROUTINES
.

1245
(4)

1246
1247
(6)
1248
(4)
1249
(4)

(3)

Lo e AV A 1o QL IV NIV P 4V, | w
= OV~ N~~~ ~

—
—
—

e
i
—

NN
AN A AN AN ~n

1250
1251
(6)
(9)
1252
(4)
1253
(4)

004620
004620
004620
004620
004624
004624
004630
004630
004632

004632
004632
004636
004640

004640
004644
004644

000002

005037

004700

ADD

500128:

004676

112744

000060

001002

062706
000207

000C04

004664
004672
004676
004700
004702

023420
000012
000000
000000
000000

001750
000001

016666

000004

. IF NUMBER WAS A ZERO PRINT A '0'
IF FLAGDA EC #0 THEN

TST

FLAGDA

50020%
LET =(R4) :B= #60

MovB
ENDIF

#60,-(R4)

; CLEAN UP THE STACK AND EXIT
LET B.(SP) := &(SP)

Mov
POP
MOV

MOV
LEY SP

4&(SP),8.(SP)
RS,R4
(SP)+,RS
(SP)+,R4
:= SP + 8¢

TABLDA:

.WORD

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

FLAGDA:

.WORD
.WORD
.WORD

O
0
0

000010

012605
012604

ADD
RTS

000144

:= #0

50011%

BNE

500208%:

004644
004644
004652
004652
004654
004656
004656
004662

; DO THE NEXT DIGIT
LET RS := RS + #2

#2,RS
LET COUNTD
CLR
COUNTD
ENDDECR

000736

005737

SECTION

ENDIF

50017%:
062705

5.3
PAGE 14-3

COUNTD:
DIGITS:

#4,SP
PC

SEQ 0032

CILPLCO LP2S, LP26 TEST MACY11 30A(1052)
01-0CT-B0
CZLPLC.PT
01-0CT=-80 12:06
1/0 DRIVER

PAGE 15

SEQ 0033

1267
1268
1269

1272
1273
1274
1275
1276
}%;g

THE 1/0 DRIVER ROUTINE IS INVOKED BY MEANS OF THE INTERRUPT SYSTEM.
;CALL TO IT IS JMP
IODRV.
:RETURN
RTI.
“ENTER ROUTINE WITH R2 SET UP TO DESIRED UNIT #2. R2 IS USED
;70 CALCULATE OFFSET INTO PROPER TABLE.
;R1 EQUALS MAXIMUM NUMBER OF UNITS ON SYSTEM UNDER TEST.

1279
1280
}%gé

J-:
: CHECK FOR ERROR FLAG IN STATUS REG.

1283

(6)
1;22

.SBTTL

12:06

004704

004704
004712

032772
001061

100000

002370

}%gg
1287
(6)
(9)
1288
(4)
1289

1536

;
004714
004714
004720
004722
004722
004730

004730

005762
003416

002764

117272

002564

005262

002564

=
002464

1298
(6)
1299
(6)
(9)
1300

(4)
1301
(4)
1302
(4)
1303
(6)
1304

#BIT1S5 NOTSETIN @LPCSR(R2)

#BIT15,aLPCSR(R2)
50021%

THEN

COUNT NOT ZERO SEND NEXT BYTE
’

BIT
BNE

18T
BLE
MOVB

INC

}gg;
1293
(6)
1294
(6)
1295
(6)
1296
(4)
(3)
1297

IODRV:

1/0 DRIVER

CURCNT(R2) GT #0 THEN
CURCNT(R2)
50022%
LET @LPBUF (R2) :B= aCURADD(R2)
aCURADD
(R2) ,aLPBUF (R2)
LET CURADD(R2) := CURADD(R2) + #1

TURADD (R2)

: ENABLE INTERRUPT FOR NEXT BYTE
004734
004734
004742
004742
004746
004746
004754
004754
004756

004756
004756
004762
004762
004766
004770

004770
004776
004776
005004
005004
005012
C05012
005016

052762

020000

005362

002764

052772

000100

002524

BIS
DEC

002370

000437

BIS
i

ELSE

LET STATUS(R2) := STATUS(R2)
#ACTIVE,STATUS(R2)
LET CURCNT(R2) := CURCNT(R2)
CURCNT(R2)
LET QLPCSR(R2) := QLPCSR(R2)
#100,3LPCSR(R2)

SET.BY WACTIVE

- #1
SET.BY #100

50023%
50022%:
: CURRENT MSG DONE, IF PRINT COUNT NOT ZERO SEND AGAIN
LET REPCNT(R2) := REPCNT(R2) - #1
DEC
REPCNT(R2)
IF REPCNT(R2) GT #0 THEN
TST
REPCNT(R2)
BLE
5C024%
LET CURADD(R2) := MSGADR(R2)
; RESTORE THE MSG ADDR

005362

002664

005762
003424

002664

016262

002724

002564

016262

002624

002764

MOV

117272

002564

002464

MOVB

005262

002564

MOV

INC

MSGADR(R2) ,CURADD(R2)
LET CURCNT(R2)
MSGCNT(R2) ,CURCNT(R2)
LET SLPBUF (R2)
aCURADD(R2) ,aLPBUF (R2)
LET CURADD(R2)
CURADD(R2)
LET CURCNT(R2)

:= MSGCNT(R2)

; RESTORE THE BYTE COUNT

:B= @CURADD(R2)

; RESEND THE MESSAGE

:= CURADD(R2) + #1
:= CURCNT(R2) - #1

: BUMP THE POINTER
‘
; DROP BYTE COUNT

CILPLCO LP2S5, £P26 TEST MACY11 30A1052)
01-0CT-80
CZLPLC P11
01-0C7-80 12:06
1/0 DRIVER
(6)
1205
(6)
1306
(4)
1307
(4)

(3)

A O8N =
(NS
-2 OO~ 00~ NO WV~
~

Fo PNOND = LS

_—
—

WWWN
A~ N A~ NN A~ o~

1308
1309
1310
(6)
1311

1322

005916
005022
005022
005030
005030
005036
005036
005040

005040
005040
005046
005046
005054
005054
005054
005054
005054
005054
005056

005056
005056
005064
005064
005072

005076
005076
005076
005076
005100

005362

002764

052762

020000

002524

BIS

012772

000100

002370

MoV

DEC

000406

:
500248

042762

020000

002524

012772

000000

002370

100000

002524

012737
004777

000001

002350

STATUS(R2) SET.BY WACTIVE

#100

STATUS(R2)

#00

;

RE-ENABLE

INTERRUPTS

ELSE

#ACTIVE,STATUS(R2)
LET QLPCSR(R2)

MOV

#00,aLPCSR(R2)
ENDIF

CLR.BY AACTIVE

ENDIF

ELSE

50026%

; CLEAR ERROR CONDITION, ENABLE INTERRUPTS
; SET ERROR FLAG
LET STATUS(R2) := STATUS(RZ2) SET.BY #ERROR
BIS

#ERROR,STATUS(R2)

LET ERRCOD := WSTATER
MOV
#STATER ,ERRCOD
JSR PC,aERRSVC

;

STATUS ERROR

: Dlé ERROR SERVICE SHOULD CLEAR ERROR BIT AND ENABLE

50026%:

012602
000002

SEQ 0034

50025%

BIC

50021%:

052762

#100,aLPCSR(R2)

; CURRENT MSG DONE, REPEAT CCUNT =0
; CLEAR ACTIVE AND DISABLE INTERRUPTS.
LET STATUS(R2)

50023%:
000410

i3
PAGE 15-1

CURCNT(R2)
LET STATUS(R2)
#ACTIVE,STATUS(R2)
LET QLPCSR(R2)

50025%:

176026

12:06

2
’

POP R2
MOV
RTI

(SP)+,R2

INTR

1343
1344
(6)

1345

12:06

PAGE 16

3
3

THE 1/0 CONTROL SUBROUTINE IS A SINGLE ENTRY QUEUE MANAGER.
THIS ROUTINE IS INVOKED BY A JSR FROM AN [/0 CALL.

INPUTS:

PRINTR

BUFADD
BUFCNT

=1 FOR ALL TERMINALS
N FOR PRINTER NUMBER ‘N’
ADDRESS OF MESSAGE 7O PRINT
BYTE COUNT TO TRANSMIT TO PRINTER

ERRSVC
ADDRESS OF ERROR SERVICE SUBROUTINE
BUFREP IS NO. OF TIMES TO PRINT THE MSG

TETETETETETE
T
TR
T

SBTTL 1/0 CONTROL

b
-

005102
005102
005104

&WWWWWWWWW\NWWW

p—

D
D
D
D
D i
D
D
D
d
D
D
—

W
WWW
A~ ~
Pk ol ol ¥ 1,8
WWN NN WWNIWN N IN NN OO N ~no
N = O~ VOOV
WA
OO0 ~I100 v

CZLPLCO LP25, LP26 TEST MACY11 30A(1052) 01-0CT7-80
P11
01-0CT-80 12:06
CZLPL(.
i/0 CONTROL

IOCTRL: PUSH R2,R3
MOV
MOV

0246
0346

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

: IF PRINTR IS =1 QUE OUTPUT TO ALL PRINTERS SELECTED
; OTHERWISE TO UNIT NUMBER IN PRINTR.

005106
005106
005114
005116

005116
005122
005122
005126
005126
005130
005130
005130
005134
005134
005142
005142

023727
001005

002332

013703

002012

005037

002074

177777

005144

005146
005146
005152
005152

PRINTR,#-1
50027%
LET R3 := LSUNIT
LSUNIT,R3
MOV
LET LSLUN := #0
LSLUN
CLR
CMP
BNE

ELSE

000405

50027%:

012703

000001

013737

002332

002074

50030%:

LET RY := N
#1,R3
LET LSLUN := PRINTR

MOV
ENDIF

PRINTR,LSLUN

REPEAT TILL R3 =0

CTLLOP:

IF R3 EQ #0 THEN
R3
50031%
BNE
INLINE <JMP CTLEND>
TST

005703

001002

000137

50030%

MOV

005142
005142
005142

IF PRINTR EQ #-1 THEN

005460
50031%:

JMP
ENDIF

CTYLEND

USE R2 AS AN INDEX INTO THE UNIT TABLES
005152
005152
005156
005160
005160

013702
006302

002074

MOV
ASL

005037

002350

(LR

LET R2 := LSLUN SHIFT 1
LSLUN,R2
R2
LET ERRCOD := #0
ERRCOD

SEQ 0035

CZLPLCO LP2S, LP26 TEST MACY11 30A(1052)

CZLPLC.PTY

01-0CT=80 12:06

L1363

}ggg

1366

005164

1;2;

005172

:
005164

032762

001123

040000

1§;z

BIT

1§g$

(4)
(3)
1384
(4)
(6)
1§g;

1386
(4)
1387
(2)
(2)
(2)
(2)
(2)
(2)

(2)
(2)

1388
6)
1389
(6)

SEQ 0036

#DROPED,STATUS(R2)

50032%

;TEST FOR DVC ERROR BIT SET
005174
005174
005202
005204
005204
005212
005212
(05220
005220

005222

032772
001407

100000

002370

BIT
BEQ

012737

000001

002350

MOV

052762

100000

002524

BIS

000455

500338%:

IF #BIT1S SETIN QLPCSR(R2) THEN
#BIT15,aLPCSR(R2)
50033%
LET ERRCOD := #STATER
; STATUS.REG ERROR BIT 15 SET
#STATER,ERRCOD
LET STATUS(R2) := STATUS(R2) SET.BY #ERROR
#ERROR,STATUS(R2)
.
ELSE
50034%

IN (SR

: MAKE SURE PREVIOUS MSG 1S DONE
005222
005222
005226
005230
005230

005236

005762
003452

002764

032762
001004

020000

TST
BLE
002524

BIT
BNE

}%g?
1382
(«)
1383

IF #DROPED NOTSETIN STATUS(R2) THEN

BNE

}%;2
1377
(6)
(9)
1378
(6)

PAGE 16-1

IF THE UNIT HAS BEEN DROPPED SELECT THE NEXT UNIT

002524

}ggg
1370
(6)
(9)
1371
(4)
1372
(6)
1373
(4)

12:06

170 CONTROL
:

(6)

01-0CT-80

IF CURCNT(R2) GT #0 THEN
CURCNT(R2)
50035%
IF #ACTIVE NOTSETIN STATUS(R2)
#ACTIVE,STATUS(R2)
50036%

; OUTPUT WAS QUEUED BUT
005240
005240
005246

005246
005250
005250
005250
005250
005256

005260
005260
005266
005266
005272
005274
005300
005302
005306

005310
005314

012737

000003

002350

000442

500368%:

032762
001436

020000

002524

012762

000144

003064

012727
000000
013727
000000
005367
001375
005367
001367

000002

005316 _
005316 005362
005322
005322 005762

500408
:

002116

177772

177756

003064
003064

THEN

1/0 DRIVER WAS NEVER INVOKED (VIA INTERRUPT)

MOV

LET ERRCOD
#NOINTR,ERRCOD

50037%

:= #NOINTR

NO INTERRUPT

WHILE #ACTIVE SETIN STATUS(R2) DO
BIT
BEQ

#ACTIVE,STATUS(R2)
50041%

MOV

#100.,DELCNT(R2)

MOV
LWORD
MOV
.WORD
DEC
BNE
DEC
BNE

#2..,(PC)+
O
LSDLY, (PC)+
O
-6(PC)
A
=22(PC)
=20

DEC

DELCNT(R2)

LET DELCNT(R2)

:= #100.

DELAY 2.

: 200MS LOOPS

LET DELCNT(R2)

:= DELCNT(R2) - M

IF DELCNT(R2) EQ #0 THEN

: 20 SEC. DELAY MAX

CILPLCO LP25, LP26 TEST MACY11 30A(1052)

(CZLPLC.PTT
(9)
1390

(4)
139
(6)
1392
(6)
1393
(&)
1394
(4)
(3)

005326
005330

005330
005336
005336
005344
005344
005352
005352
005352
005352
005354
005354
005354
005354
005354
005354
005354
005354
005354
005360

01-0CT-80 12:06 PAGE 16E2 :

SEQ 0037

1/0 CONTROL

001011

BNE

50042%

LET ERRCOD

012737

000002

002350

MOV

#TIMOUT ,ERRCOD

042762

020000

002524

BIC

#ACTIVE,STATUS(R2)

052762

100000

002524

BIS

#ERROR,STATUS(R2)

50040%

000736

50041%:

:= STATUS(R2)

CLR.BY #ACTIVE

LET STATUS(R2)

:= STATUS(R2)

SET.BY #ERROR

ENDDO

ENDIF

50035%:

ENDIF

50034%:

002350

LET STATUS(R2)

ENDIF

50037%:

005737
001403

= ATIMOUT

ENDIF

50042%:

TST

BEQ

IF ERRCOD NE #0 THEN

ERRCOD

50043%

REPORT THE ERROR
005362
005366
005366
005370

004777

175536

000425

50043%:
L

01-0CT-80 12:06

;

1414

1416

1417
1418
1419
1420

005370
005370
005376
005376
005404
005404
005412
005412
005420
005420
005426
005426
005432

005434
005434
005442
005442
005442
005442
005442
005442

013762

002362

ELSE
50044$

JSR

Q UP THE MESSAGE AND ENABLE INTERRUPTS
THE 1/0 DRIVER WILL PICK UP FROM HERE.

002564

MOV

013762

002362

002724

MOV

013762

002364

002764

MOV

013762

002364

002624

MOV

013762

002366

002664

MOV

005762
003403

002764

012772

000100

TST
BLE
MOV

002370
50045%:
500448:

50032%:

LET CURADD(RZ2)
BUFADD,CURADD
(R2)
LET MSGADR(R2)
BUFADD ,MSGADR(R?2)
LET CURCNT(R2)
BUFCNT,CURCNT(R2)

:= BUFADD

; BYTE ADDRESS

:= BUFADD

;

:= BUFCNT

; OUTPUT COUNT

LET MSGCNT(R2) := BUFCNT
,MSGCNT(R2)
BUFCNT
LET REPCNT(R2) := BUFREP
BUFREP,REPCNT(R2)
IF CURCNT(R2) GT #0 THEN
CURCNT(R2)
50045%
LET QLPCSR(R2) := #100
#100,aLPCSR(R2)
ENDIF

ENDIF
ENDIF

* CLEAR OUT ANY TIMEOUT COUNT
o

PC,RERRSVC

MESSAGE

ADDRESS

; BYTE COUNT
;

; ENABLE

COUNT

INTERRUPTS

'CZLPLCO LP25, LP26 TEST MACY11 30A(1052)

Q2LPLE.PT
1621

(4)

—_—

PRI

—

S
AN
AT AT
WWIWRONONONONNONNINONONY
=S O~ OOONO~
N WY

01-0CT-80

01-0CT-80 12:06

1/0 CONTROL

003064

(LR

005442
005442

005446
005446
005450
005450
005454
005460
005460
005460
005462
005464

005062

SEQ 0038

PAGE 16-3

LET DELCNT(R2)
DELCNT(R2)

:= #0

SELECT THE NEXT UNIT AND DECRIMENT THE LINECOUNT
LET R3 := P3 - #1
:

005303

005237
000137

12:06

002074
005142

DEC

JMP

CTLLOP

POP
MOV
MOV

R3,R2
(SP)+ ,RY
(SP)+,R2-

LET LSLUN := LSLUN + M
LSLUN
INC

CTLEND:

012603
012602
000207

RTS

;

SUBROUTINE

QUIET

: THIS SUBROUTINE WILL EFFECTIVLY DELAY UNTIL ALL QUEUED OUTPUT
; IS FINISHED. THE DELAY IS ACCOMPLISHED BY QUEUEING A NULL
; MESSAGE TO ALL LINES.
005466
005520

005532

000240
000207

QUIET:

OUTPUT
NOP
RTS

#0,#0
PC

; NULL MESSAGE OuTPULT

01-0CT-80
CILPLCO LP25, LP26 TEST MACY11 30A(1052)
CZLPLC.PTY
01-0CT-80 12:06
170 CONTROL
1445

: DROPIT

1446
1447

SEQ 0039

FUNCTIONAL DESCRIPTION :

it i ittt

ittt i

it ittt it ittt ittt

ittt

DROPIT: LET STATUS(R2)

:= STATUS(R2) SET.BY #DROPED
(R2)
#DROPED,STATUS
BIS
#-1
:=
LET CURCNT(R2)
MoV

#-1,CURCNT(R2)

PRINTF
MOV
MOV
MoV
MoV
TRAP
ADD

“L"DROP, LSLUN
LSLUN,=(SP)

LET QLPCSR(R2) := #0
aLPCSR(R2)
CLR

#LPDROP,=(SP)
#2,-(SP)
SP,RO
CSPNTF
#6,5P

LET ERRTBL(R2) := #0
ERRTBL (R2)
CLR
LET Uur := T - M
UuT
IF UUT EQ #0 THEN

DEC
TST

uut

BNE

50046%

PRINTF #UUTEQO
MOV
#UUTEQOD,~(SP)
MOV
#1,-(SP)
MOV
SP,RO
TRAP
CSPNTF
#4,SP
ADD

DOCLN

500468:

1464

TRAP
ENDIF

CS$DCLN

RTS

;: NOTHING TO TEST

465

1466

1467
1468
1469
1470
1471
1472
1473
1474
(4)

; DISABLE ANY INTERRUPTS FROM THE PRINTER, AND NOTIFY THE
; OPERATOR THAT THE PRINTER WAS DROPPED.

005534
005534 052762 040000 002524
005542
(4)
005542 012762 177777 002764
1455
005550
(4)
005550 005072 002370
1456
005554
(8)
005554 013746 002074 .
(7)
005560 012746 004230
(6)
005564 012746 - 000002
(3)
005570 010600
(4)
005572 v 104417
(&) 025574 062706 000006
1‘7J4§7 005600
N
(4)
005600 005062 003126
1458 005604
(6)
005604 005337 002354
1459 005610
(6)
005610 005737 002354
9)
005614 001011
1460
005616
(7)
005616 012746 003776
(6)
005622 012746 000001
(3)
005626 010600
4a) 005630 104417
(4)
005632 062706 000004
1461
005636
(3)
005636 104444
1462
005640
(4)
005640
1463 005640 000207

;

PAGE 17

: THIS SUBROUTINE IS USED TO DROP A BAD PRINTER FROM THE TEST

1448
1449
1450
14651
1452
1453
(6)
1454

12:06

1475
(4)

(6)
(9)
1476

T
SR W W W W N W S SR W e W
S W W W e e W e e A
W e W
e
P
L L
N
N N
S
N N
N L L L L
S N S T T T S s S S S ST SN TS ST T
T r rT mmmmmmmmomomm-———————

FUNCTIONAL DESCRIPTION:

THIS SUBROUTINE IS REQUIRED TO INSURE PROPER PASS COUNT REPORTS
IN A MULTI UNIT MODE OF OPERATION.

. W

005642

005642
005646
005646
005646
005654
005656

005037
023737
002007

A W N S

LET LSLUN := #0

002074

002012

50047%:

LSLUN
*:
CLR
WHILE LSLUN LT LSUNIT DO

CMP

BGE

“LSLUN,LSUNIT
50050%

GPHARD

LSLUN, R3

)
.

R W

R SR S

e e W

e W

L3 N

!(ZLPLCO LP25, LP26 TEST MACY11 30A(1052) 01-0CT-80 12:06 PAGE 17-1

[CZLPLC.PT

(%)

005656

01-0CT-80 12:06

013700
104442

1/0 CONTROL

002074

MOV
TRAP
Mov

010003

005237

1479

005674

1482

005676

LET LSLUN := LSLUN + #1
LSLUN
INC

002074

000765
000207

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

LSLUN,RO
C$GPHRD
RO,R3

ENDDO

50050%:

50047%

RTS

ENDMOD

SEQ 0040

f
‘E%LPLCO LP25, LP26 TEST MACY11 30A(1052)
(CZLPLC.P1Y
s

}2%@

|
|

1486
1487
1488
1489
}28?
1492
1493
(3)

1494

1495

1496
(3)
(3)
1497

(2)
1498
(3)
(3)

1499
(2)

1500
1501
1502
(3)

01-0CT-80 12:06

LSBTTL

005676
005676
005676

SEQ 0041

INITIALIZATION SECTION

005676
005676
005702
005704

BGNMOD
BGNINIT
LSINIT::

:RESET EXTERNAL BUS IF START EVENT FLAG IS SET

:OR POWER FAIL RESTART

012700
104447

005704
005706
005706
005712

012700
104447

005714

103407

005714

005716
005722

000000

104432
001332

#EF.START
#EF.START,RO
CSREFG
BCOMPLETE 1$

‘

BCS
READEF
MoV
TRAP

1%
#EF .RESTART
#EF .RESTART
RO
CSREFG

BCS

JSR
SETPRI

PC,FAKE
#PRIQO

BCOMPLETE 1%

005642

9005730
005732

005730

000037

004737

(3)
1§31

READEF
MOV
TRAP

000040

103413

012700
104441

MOV
#PRI00,RO
TRAP
C$SPRI
EXIT INIT
TRAP
CSEXIT
.WORD
L10004~-.

;TEST START EF INDICATOR

:BRANCH IF FROM START UP
:NOW THE RESTARTFLAG

:1F EITHER START OR POWER FAIL RESTART
;DO A BUS RESET
: UPDATE PASS COUNT
: PRIORITY ZERO
; ELSE EXIT INIT CODE

:POWER UP RESTART OR START COMMAND ISSUED

}ggg
1507
(3)
1508
(6)
(9)
1509
(7)
(6)
(3)
(4)
(4)
1510
(7)
(6)
(3)
(4)
(4)
1511
(4)

005734
005734
005736
005736
005744
005746
005746
005752
005756
005760
005762
005766
005766
005772
005776
006000
006002
006006
006006

(3)

D06006

1513

PAGE 18

THE INITIALIZE ROUTINE IS EXECUTED AT THE BEGINNING OF EACH SUB-PASS AND IS
:PRIMARILY USED FOR REQUESTING P-TABLE PARAMETERS. INFORMATION REQUESTED FROM
:THE OPERATOR INCLUDE THE NUMBER OF UNITS UNDER TEST, DEVICE ADDRESSES, VECTORS,
;CLOCK TYPE, AUTO OR MANUAL PRINTING SPEED HEASUREHENT AND WHETHER A DAVFU
OPTION IS INSTALLED IN THE SYSTEM.

005722
005726

1512

12:06

INITIALIZATION SECTION
J4e

(3)

1503

01-0CT-80

006006

006010

1%:

104433

023727
003420

002012

012746
012746
010600
104417
062706

006654
000001

012746
012746
010600
104417
062706

006737
002001

000020

000004

00CJ04
50051%:

104450

BRESET
TRAP
CSRESET
IF LSUNIT GT #16. THEN
CMP
LSUNIT,#16.
BLE
50051%
PRINTF #NRGT16
#NRGT16,-(SP)
MOV
MOV
#,-(SP)
MOV
SP,RO
TRAP
CSPNTF
ADD
#4,5P
PRINTF #NRGT17
#NRGT17,-(SP)
MOV
#1.-(SP)
MOV
MOV
SP,RO
CSPNTF
TRAP
#4,5P
ADD
ENDIF

MANUAL
TRAP

COSMANI

BNCOMPLETE

:RESET THE BUS

: WALT FOR CR IF IN MANUAL MODE
100%

CZLPLCO LP2S, LP26 TEST MACY11 30A(1052)
01-0CT-80 12:06 PAGE 18-1
CZLPLC.PN
01-0CT-80 12:06
INITIALIZATION SECTION
1é$z

006010

1515
(7)
(6)
(3)

006012
006012
006016
006022

1;?&

006026

(4)

006024

103016
012746
012746
010600
104417
062706

BCC

100%

006773
000001

PRINTF
MOV
MOV
MOV

#MRESET
#MRESET,=-(SP)
#1,-(SP)
SP,RO

000004

ADD

#4 ,SP

}g}g
1519
(4)
1520
(4)

1521
(4)
1522
1523

(3)
(3)
(4)
(5)
(5)
(5)
1;32

006032
006032
006036
006036
006042
006042
006046
006046

006046
006050
006052
006054
006056
006060
006062

006062
006062
006066
006070
00607C
006074
006076
006076
006102
006102
006106

(3)
(3)
(3)

00611G
006114
006116

1531
(&)

1§§5

005037

002306

005037

002350

005037

002354

104443
000404
002306
000130
007072
100000

1536

CSPNTF

LET FLAG := #0
CLR
FLAG
LET ERRCOD := #0
CLR
ERRCOD
100%:

10000%:

006110

006120
006120
006122
006122

006126

013701
005301

002012

005037
002402

002074

005237

002074

023701
003132

002074

013700
104442
010003

002074

103121

LET UWUT := #0
CLR
uuT

GMANIL
TRAP
BR
.WORD
.WORD
.WORD
.WORD

013702

006302

2%:

READY,FLAG,100000,YES
CSGMAN
10000%
FLAG
T$CODE
READY
100000

50053%:
50052%:

LET R1 := LSUNIT - M
MOV
LYUNIT,RT
DEC
R1
INCR LSLUN FROM #0 TO R1 BY #1
CLR
LSLUN
BR
50052%

INC

L SLUN

CMP
BGT

LSLUN,RT
€0054%

MOV
TRAP
MOV

B~
002074
.

}ggz
1535
(6)
(9)

:PRINT RESET MESSAGE

;GET MANUAL PARAMETERS

:REQUEST P-TABLE FOR PRINTERS UNDER TEST

1527
(4)
(6)
15¢8
(4)
(5)
(4)
(7)
(5)
(5)
(7)

1530
(2)

SEQ 0042

;WAIT FOR A ''CR'' BEFORE GOING ON

}g%g

1529

TRAP

MOV

ASL

:MAXIMUM NUMBER OF UNITS

GPHARD LSLUN,R3

:REQUEST P-TABLE ADDRESS

ENCOMPLETE 3%
3%

;BRANCH IF VEVICE NOT PRESENT

LSLUN,RO
C$GPHRD
RO,R3

LET R2 := LSLUN SHIFT 1
LSLUN,R2

: CLEAR ERROR COUNT, QUTPUT COUNT, GET DEVICE TYPE TO STATUS.
006130
006130
006134

006136

005763
001004

000004

IF 4(R3) EQ #0 THEN
1ST
4L(R3)
BNE
50055%

LET STATUS(R2)

:= STATUS(R2) CLR.BY #FLAG26'FLAG27

E_4&
CILPLCO LP25, LP26 TEST MACY11 30A(1052)
01-0CT-80
12:06 PAGE 18-2
CILPLC.PN
01-0CT-80 12:06
INITIALIZATION SECTION

(6)
1537
(4)
(3)

006136
006144
006144
006146

(6)
(9)
1539
(6)
1540
(6)
1541

006146
006154
006156
006156
006164
006164
006172

(3)
1542
(6)
1543
(4)

006174
006174
006174
006202
006202

1538

(&)

1544
(4)
1545
1546
1547
1548
(6)
(9)
1549
(6)
1550
(4)

(3)
1551

(0)
1552
(4)

1553
(4)
1554
(4)

1555
(4)

1556
(4)
1557
1558
1559
1560
I
1561
(4)
(6)

1562
1563
1564
1565
(4)

006146

006172

042762

003000

002524

000416

50055$:

%{gE

#FLAGZ26'FLAG27 ,STATUS(R2)

50056%

.
IF 4(R3) EQ #1 THEN
4L(R3) .M
CMP

026327
001007

000004

052762

001000

002524

BIS

042762

002000

002524

BIC

000001

000403
052762

BNE

:
500578

002524

003000

500608:

006202
006202

50056%:

50057%

LET STATUS(R2) := STATUS(RZ2) SET.BY #FLAG26
#FLAG26,STATUS(R2)
LET STATUS(R2) := STATUS(R2) CLR.BY #FLAG27
SE#FLAGZ?.STATUS(RZ)

50060%

BIS

LET STATUS(R2) := STATUS(R2) SEF.BY #FLAG26'FLAG27
#FLAG26'SLAG27,STATUS(R2)

ENDIF

* NOW GET THE BAND TYPE
006202
006202
006206
006210
006210
006216
006216
006220
006220
006220
006226

006226
006¢26
006226
006232
000232
006240
006240
(06244
06244

005763
001004

000006

042762

010000

’

000403

052762

BIC
50061%:

002524

010000

003126

012762

177777

005062

003064

005062

002664

002764

BR
BIS

50062%:
005062

TST

64 OR 96 CHARACTER

IF 6(R3) EQ #0 THEN
6(R3)

BNE
0C2524

SEQ 0043

ELSE

50061%
LET STATUS(R2) := STATUS(RZ2) CLR.BY #FLAG96
#FLAG96,STATUS(R2)

50062%
LET STATUS(R2) := STATUS(R2)
#FLAG96,STATUS(R2)

SET.BY #FLAG96

ENDIF

LET. ERRTBL(R2) := #0
CLR - - ERRTBL(R2)
-+ LET CURCNT(R2) := #-1
MOV#-1,CURCNT(R2)

LET DELCNT(R2)
CLR
DELCNT(R2)
LET REPCNT(R2)
‘CLR
REPCNT(R2)

:= #0

“LOAD CSR ADDRESS INTO TABLE
006250

—aeszso"BT’sbz

002370

006254
006262

002370
000002

006270
006270

016262
062762

012362

LET LPCSR(R2) := (R3)+
:SET UP CSR ADDRESS FOR DEVICE
(R3)+,LPCSR(R2)
LET LPBUF(R2) := LPCSR(R2) + #2
MOV
LPCSR(R2) ,LPBUF (R2)
ADD
#2 ,LPBUF (R2)
MoV

‘002464
002464

002430 °

:SET UP VECTOR ADDRESS INTO GIVEN TABLE
LET LPVEC(R2) := (R3)+
:
MOV

(R3)+,LPVEC(R2)

CZLPLCO LP25, LP26 TEST MACY11 30A(1052)
01-0C7-80
12:06 PAGE 18-3
CZLPLC.PN
01-0CT-80 12:06
INITIALIZATION SECTION

(3’
(2)
1573
1574

1575
1576
(6)
1577
1578
1579
1580
1581
(6)
1582
(4)

(3)
1583
1584
1585

1586
1587
(4)

1588

(3)
(3)
(3)

*SET UP DEVICE INTERRUPT VECTOR INFORMATION
.

006274
006274
006300
006304
006310
006314
006314
006322
006322
006330
006330
006334
006340
006344
006350
006352

006356
005356
006362

006364
006364
006372
006372
006374

062737

040466

003166

013762

003166

003024

012746
016246
016246
012746

000200
003024

062706

000010

104437

LET WORK := R2 SHIFT 3

MOV

R2,WORK

ASL
ASL
ASL

LET WORK

WORK
WORK
WORK

:= WORK + #INTOO

ADD

#INTO0,WORK

MoV

WORK,LPINTR(R2)

MOV
MOV

#PR104,-(SP)
LPINTR(R2) ,=(SP)

:= WORK

LET LPINTR(R2)

SETVEC LPVEC(R2), LPINTR(R2), #PRI04

002430
000003

MoV

LPVEC(R2) ,-(SP)

#3,-(SP)

. MOv

TRAP
ADD

005237
000403

C$SVEC
#10,sP

LET UUT

002354

INC

052762

040000

002524

000641

35:

:= uuT + M

uuT
4%

LET STATUS(R?) := STATUS(R2)
#DROPEC,STATUS(R2)
BIS
ENDINC

4%:

50054%:

50053%

SET.BY #DROPED
:GC BACK AND DO IT AGAIN

------------------------------------------------------------------------

S SETUP TO HANDLE CLOCK INTERRUPT

IE R

:
006374
006374

006402
006402
006406
006410
006412
006412
006414
006414
006422

(4)

006442
006442

1594
1595

003166
003166
003166
003166

“INDICATE LSLUN NOT AVAILABLE FOR TESTING

006426
0064 34
006434

(4)

010237
006337
006337
006337

* ADD ONE TO UNIT UNDER TEST COUNT

1589
(6)
1590
(4)
159
(&)
006422
1592 006426

1593

. 4

;

012737

000001

012700
104462
010004

000114

002334

EERERE R

EEEE

RN EEE

IF AN L=CLOCK IS ON THE SYSTEM

HANDLER BECAUSE LSI

;

#1,CLKTYP

L,R&
#'L,RO

CsCLCK
RO,R4 -

500638~

LET CLKTYP := #2

010437

002336

017737

173704

002340

012777

000000

173676

MOV

TEST FOR L=CLOCK

; WE HAVE AN L=-CLOCK

#2,CLKTYP
LET CLGCKP := R&
R4 ,CLOCKP
MOv
LET CLKCSR := @aCLOCKP
oCLOCKP,CLKCSR
MOV

002344

CLOCK
MOV
TRAP
MOV

MOV

000002

000004

; DEFAULT FOR NO CLOCK ON SYSTEM

012737

016437

HEN SETUP A NOOP INTERRUPT
SYSTEMS MAY HAVE THE CLOCK ENABLED AT ALL

IFCOND C5 THEN

002334

LET CLKTYP := #1

BCL

103031

(4)

SEQ 0044

—

1566
1567
1568
1569
(4)
(7)
(7)
(7)
1570
(6)
1571
(4)
1572
(7)
(6)
(5)

LET @CLKCSR := #00
#00,aCLKCSR

;

TRY TO DISABLE

; SETUP THE NOOP HANDLER

LET CLKVEC

:= &(R4)

4L (R4),CLKVEC

INTERRUPTS

TIMES.

CZLPLCO LP25, LPZ6 TEST MACY11
CZLPLC.PN
01-0CT-80 12:06
1596
(7)
(6)
(5)
(4)
(3)
(2)
1597

(4)
1598
1599
1600
1601
(4)
1602

(3)
(3)

1603
(3)
(3)
1604
1605
(3)
(3)
(3)

006450
006450
006454
006460
006464
006470
006472
006476
006476
006476
006502
006504
006504
006512
006512
006516
006520
006520
006522

006524
006524
006530
006532
006534
006534
006536
006536
006544
006544
006550
006550
006556
006556
006564
006564
006572
006572

006572
006572
006600
006602

000010

A0%

012737

000004

012700

000000

104462
010004

SEQ 0045

PAGE 18-4

SETVEC

CLKVEC,#IGNORE,#PRI06

#PR106,=-(SP)
# IGNORE
, = (SP)
CLKVEC,=(SP)
#3,-(SP)

TRAP

CSSVEC

t 0 F

#10,SP

500633
; IF THE UPERATOR WANTS MANUAL SPEED TEST SET CLOCK TYPE
1ST MANSPD

K1
BEQ
LET CLKTYP := #4

002334

MOV

#4,CLKTYP

MOV

#PRI00,RO

SETPRI #PRIOO
TRAP

104432
000542

012700

12:06

INITIALIZATION SECTION
MOV
MOV
MoV
MOV

002276

000120

103016

;

C$SPRI

BCC

002334

50064%

LET CLKTYP

:= #4

LET CLOCKP

:= R4

000004

010437

002336

017737

173562

002340

LET CLKCSR := aCLOCKP
MOV
aCLOCKP,CLKCSR

016437

000004

002344

MOV

012777

00G000

MOV
MOV

#4,CLKTYP
R4 ,CLOCKP

LET CLKVEC
;

173546

50 064%:

MOV
ENDIF

:= &4(R&)

4(R4) ,CLKVEC
TRY TO DISABLE

LET aCLKCSR

;

#00,aCLKCSR

IF NO CLOCKS ON THE SYSTEM NOTIFY THE OFERATOR

IF CLKTYP EQ #1 THEN
#7
CLKTYP,
CMP
50065%
BNE

002334

012746
012746
010600

007127
000001

062706

000004

012746
012746
010600

007171
000001

#1,-(SP)
SP,RO
TRAP
CSPNTF
ADD
¥4 ,SP
PRINTF #NOTIM
MOV
#NOTIM,-(SP)
MOV
#,-(SP)

062706

000004

TRAP
ADD

104417

THE P-CLOCK

:= #0C

023727
001020

000001

START TEST AT PRI 0

EXIT INIT
TRAP
CSEXIT
.WORD
L10004~-.
A P-CLOCK IS ON THE SYSTEM UPGRADE (LOCK TYPE TO 3
P,R&4
CLOCK
MOV
#'P,RO
TRAP
CSCLCK
MOV
RO,R4
IFCOND CS THEN
: WE HAVE A P=CLOCK

012737

104417

006634
006636

01-0CT-80

000300
007266
002344
000003

005737
001410

1044461

30A(1052)

MOV
MOV

PRINTF #NOCLCK
#NOCLCK,=(SP)

MOV

MoV

SP,RO

CSPNTF
¥4 ,SP

CZLPLCO LP2S, LP26 TEST HACY11 30A(1052)
01-0CT-80 12:06 PAGE 18-5
cZLPC.P
01-0C1-80 12:06
INITIALIZATION SECTION
1618
(4)
1619

(3)
(3)

1620

(3)

006642
006642
006642
006642
006646
006650
006650
006652

012700
1044461

000000

50065%:

\
3

>
EXIT

104432
000412

SEQ 0046

ENDIF
SETPRI #PRIOO
MOV
#PR100,
TRAP

(SSPRI

($E

.WORD
LNLIST BEX

—————

/ZNzANUHBER OF LINE PRINTERS UNDER TEST EXCEEDS 16./

006654
006737

006773

047045
045
045

040445
052516
022516
(47501
022516 /051101

NRGT16:
NRGT17:
MRESET:

.ASCIZ
.ASCIZ
.ASCIZ

007072
007127
00717

042504
045
045

051120 | 051505
022516/ 044101
02251¢
040501

READY:
NOCLCK:
NgTéH:

.ASCIZ
.ASCIZ
JASCIZ

/DEPRESS ''RETURN'' WHEN READY./
/%NXAHARDWARE CLOCK NCT AVAILABLE./
/XNXAAUTO PRINTING SPEED MEASUREMENT CANNOT BE PERFORMED./

007262

000000

PLOC:

.WORD

007264
007264
007264

.EVEN

/XNYAONLY 16 WILL BE TESTED./
/X%NYARESET LINE PRINTER(S), DO FORM FEED,

AND PLACE ON LINE.XN/

.LIST BEX

ENDINIT

L10004:

104411

TRAP

CSINIT

;liéhbhé'lll'll'Afi.ifiiéél léii&héé'ibfi.ihé'i:&iéeilO.l..l‘l'lllll'l"l

THAT

;
007266
007266

000102

IGNORE :

RTI

RN
1655

1657
1658

1659

007270
007270
007272
007274
007274
007276
007276
007302
007302
007302
007304
007306

002012

TO THE

MOV
MOV

)
-,
<. MOV
50066%:

; NOOP

THIS SUBROUTINE WILL SETUP ALL UNITS VECTOR AREAS

(LR

005004

013703

RESVEC: :

010346
010446

INTERRUPT.

FUNCTIONAL DESCRIPTION

:\RESVEC
:

xouonss THE

USED FOR SYSTEMS WHERE CLOCK CANNOT BE TURNED OFF.

TST

BLE

'NORMAL'

INTERRUPT ROUTINES STARTING AT

INTOO.

PUSH

R3,R4

R3,-(SP)
Ré.=(SP)

LET

:= #0

LET R3 := LSUNIT
LSUNIT,R3
WHILE R3 GT #0 DO
R3

50067%
SETVEC LPVEC(R4), LPINTR(R4), #PRIO4

CZLPLCO LP2S, LP26 TEST MACY11 30A(1052)
01-0CT-80 12:06 PAGE 18-6
CZLPLC P11
01-0CT-80 12:06
INITIALIZATICN SECTION

1662
(4)

(3)
1663
(2)
(3)
1664
1665

007346
007350

000757

50066¢

012604
012603
000207

50067%:

MOV
MOV

o
s

ENDDO

POP R4 ,R3
(SP)+,R4

(SP)+,R3

RTS

005303

DEC

e
W

000002

C$SVEC

#10,SP

—

062704

ADD

SEQ 0047

#PRI04,=-(SP)
LPINTR(RL) ,=(SP)
LPVEC(R&) ,=(SP)
#3,-(SP)

—

000010

MOV
MOV
TRAP
ADD

MOV
MOV

—
m

1660
(6)
1661
(6)

000200
003024
002430
000003

NSNS

(6)

012746
016446
D16446
012746
104437
062706

(7)

R - M

+ #2

CILPLCO LP25, LP26 TEST MACY11 30A(1052)
01-0CT-80
12:06 PAGE 19
CZLPLC.PN
01-0CT-80 12:06
CLEANUP CODING SECTION
1667
1668
(2)

LSBTTL
STARS

007352

}2;9

THE CLEANUP SECTION IS TO CLEANUP ALL PRINTERS UNDER

sHAVE TO BE DONE AGAIN IN ORDER TO GET THE DEVICE ACTIVE.

007352

STARS

1679
(3)
1680
(3)
(3)
1681

007352
007352
007352
007352
007356
007360

BGNCLN
LSCLEAN::
SETPRI #PRIO7
MOV
#PR107,R0O
TRAP - _($SPRI
BRESET

1683
(4)
(6)
1684
(4)
(5)
(&)
(7)
(5)
(5)
(/)
1685
1686
1687
(4)
(7)
1688

007362
007362
007366
007370
007370
007374
007376
007376
007402
007402
007406

007360

007410
007410
007414

1689
(6)
1690
(4)
1691
(4)
1692
(4)
1693
(4)

007416
007416
007424
007424
007432
007432
007436
007436
007442
007442

(4)

007446

(3)
1695

1696
(6)
(9)

TEST

;AND RETEST ANY UNITS WHICH HAVE BEEN DROPPED FROM
TESTING TO INSURE THAT
sTHEY HAVE NOT COME BACK ON LINE. IF THE DEVICE HAS COME BACK ON LINE
sTESTING WILL BE RESTARTED ON THE DEVICE. THIS INSURES THAT
;IN THE EVENT A PAPER OUT OCCURRED AND THE OPERATOR HAS PUT ADDITIONAL PAPER
sINTO THE UNIT UNDER TEST, THE INITIALIZATION SEQUENCE DOES NOT

1678

1694

SEQ 0048

CLEANUP CODING SECTION

144
;THE PURPOSE OF

1671
1672
1673
1674
1675

1ég%

::""""'.""'"""""""""".""'"""""'."."'."'

1669
1670

(2)

007446

007450
007450

007454
007454
007462

.‘.'".'..".....""""'"""""".'."'Q.'."'.""'..""""

012700
104441

000340

104433

TRAP

0137017
005301

002012

005037
000402

002074

005237

002074

023701
093020

002074

013702
006302

002074

CLEAN:

50071$:
50070%:

LET R1 := LSUNIT - #1
;NUMBER OF
MOV
LSUNIT,R1
DEC
R1
INCR LSLUN FROM #0 TO R1 BY #1
CLR
LSLUN
BR
50070%
INC

160377

002524

BIC

012762

177777

002764

MOV

005062

003126

CLR

005062

003064

CLR

005062

002664

007270

023727
001006

002334

LSLUN

CLR

50072%:

000003

50071%

JSR
PC,RESVEC
IF CLKTYP EQ #3 THEN
CMP
CLKTYP,#3

BNE

TYPE

LET STATUS(R2) := STATUS(RZ2) CLI*.BY #ERROR'DROPED'ACTIVE'LOBYTE
#ERROR'DROPED'ACTIVE!'LOBYTE,STATUS(R?)
LET CURCNT(R2) := #-1
#-1,CURCNT(R2)
LET ERRTBL(R2) := #0
ERRTBL(R2)
LET DELCNT(R2) := #0
DELCNT(R2)
LET REFCNT(RZ2) := #0
REPCNT(R2)

ENDINC

000753

UNITS=-1

CMP
LSLUN,R1
BGT
50072%
: DISABLE ALL INTERRUPTS, SELECT ALL LINES
; LERO ALL ERROR COUNTS
LET R2 := LSLUN SHIFT 1
MoV
LSLUN,R2
ASL
R2
: CLEAR ALL BITS IN STATUS EXCEPT DEVICE

042762

004737

CSRESET

50073%

: RESET

THE VECTORS

01-0CT-80
12:06
PAGE 19-1
CILPLCO LP25, LP26 TEST MACY11 30A(1052)
CZepPLc.P
01-0CT-80 12:06
CLEANUP CODING SECTION
1697

(3)
(3)

1698
(4)
1699
(4)
1700
(6)
(9)
1701
(7)
(6)
(5)
(4)

(3)
(2)
1702

(4)
1703

(3)
(3)

1704

(3)
(3)

1705
1706

007464
007464
007470
007472
007472
007500
007500
007500
007500
007506
007510
007510
007514
007520
007524
007530
007532
007536
007536
007536
007536
007542
007544
007544
007544

007546

017790
104436

172654

012777

000000

MOV
TRAP
172640

50073%:
023727
001013

002334

012746
012746
013746
012746

000300
007266
002344
000003

062706

0000*
"

104437

000002

1044461

104412

LET @CLKCSR := #00

MOV
ENDI¥

MOV

#PR106,=-(SP)

MOV

#3,-(SP)

TRAP

OOQSE?
ENDCLN

L10005:
ENDMOD

#00,aCLKCSR

IF CLKTYP EQ #2 THEN
CLKTYP,#2
CMP
BNE
50074%
SETVEC CLKVEC,#IGNORE ,#PR106
MOV
MoV

50074¢%:

012700

CLRVEC aCLKVEC
aCLKVEC,RO
C$CVEC

ADD
ENDIF

# IGNORE
, = (SP)
CLKVEC,=(SP)

C$SVEC

#10,5P

SETPRI #PRIOO
MOV
#PR100,RO
TRAP

C$SPRI

TRAP

CSCLEAN

SEQ 0049

CZLPLCO LP25, LP26 TEST MACY11 30A(1052)

(CZLPLC.P1T
g

01-0CT-80 12:06

};83
};}?

01-0CT-80

INTERFACE LOGIC
.SBTTL

007546

12:06

PAGE 20

SEC 0050

INTERFACE LOGIC

BGNMOD
;40

1712
1713
1714
1715
1716
};}g

sTHIS TEST VERIFIES THE OPERATION OF THE INTERFACE LOGIC. TESTS ARE
;PERFORMED FOR PRINTER ERROR, PRINTER READY, AND CLEARING PRINTER READY
;BY LOADING A CHARACTER INTO THE OUTPUT BUFFER. ALSO IT IS VERIFIED
:THAT THE PRINTER WILL NOT INTERRUPT IF IT IS AT THE SAME PRIORITY LEVEL
:AS THE PROCESSOR, BUT WILL INTERRUPT IF THE PROCESSOR IS AT A LOWER
:PRIORITY LEVEL. THE PRINTER IS AT PRIORITY LEVEL 4.

1719
1720
1721
(3)
1722
(4)
1;%;

:
i
BGNTST
T1::
LET R1

007546
007546
007546
007546

007552

013701
005301

002012

*;INCR LUNIT FROM #0 TO R1 BY #1

1727
1728
1729
1730
1731
1732
1733
1734

007554
007560
007562
007562
007566
007566
007572
007574

1736
(«)
(7)
1737
(6)
(9)
1738
(6)
1739
(6)
1740
(4)
1741
(4)
(5)
(S)
(5)
1742

007600
007600
007604
007606
007606
007614
007616
007616
007624
007624
007630
007630
007636
007636
007640
007642
007644
007646

1743
(4)
1744

007652
007652

1745
1{2?

007600

007646

007652
007652

005037
000402

002326

005237

002326

023701
003402
000137

002326

013702
006302

002326

032772
001416

100000

002370

052762

100000

002524

005262

003126

013737

002326

T1A:
T1C:

010264

002074

104456
000001
003420
000000

005072

002370

032772. 000200

1%:

:START LOOP

CLR
BR

LUNIT
T1C

;UNIT TO 0
:DO COMPARE

INC

LUNIT

;UPDATE UNIT NUMBER

CMP
BLE
JMP

LUNIT,R1
1%
718

:DO COMPARISON OF UNIT NUMBER
ONTO NEXT UNIT
;EXIT LOOP

LET R2 := LUNIT SHIFT 1
MOV
LUNIT,R2
ASL
R2
IF #BIT1S5S SETIN QaLPCSR(R2) THEN
BIT
#BIT15,aLPCSR(R2)
BEQ
50075%
LET STATUS(R2) := STATUS(R2) SET.BY #ERROR
BIS
#ERROR,STATUS(R2)
LET ERRTBL(R2) := ERRTBL(R2) + #
INC
ERRTBL (R2)
LET LSLUN := LUNIT
MOV
LUNIT,LSLUN
ERRHRD 1,CSRERR
:ERROR BIT WAS SET.
TRAP
CSERHRD
WORD
1
.WORD
CSRERR
.WORD
O
LET @LPCSR(R2) := #0

CLR

ENDIF
50075%:
;TIME DELAY

002370

:MAX NUMBER OF UNITS ON SYSTEM

;HARD CODED INCREMEMNT LOOP

};gz

(4)

:= LSUNIT - M
MOV
LSUNIT,R1

DEC

1724

1735

aLPCSR(R2)

: IF NOT READY ALLOW 3 SECONDS TO COME ULP
IF #BIT7 NOTSETIN aLP§§§(R2) THEN

BIT

#BIT7,aLPCSR(

SAY SO

01-0CT-80
12:06
CILPLCO LP25, LP26 TEST MACY11 30A(1052)
CZLPLC.PTN
01-0CT-80 12:06
INTERFACE LOGIC
(9)

007660
007662
007662
007666
007670
007674
007676
007702
007704
007710
007712
007712

001014
012727

BNE
000036

Mov

002116

Mov

001367

LWORD
DEC
BNE
DEC
BNE

177756

500768%:

SEQ 0051

50076%
DELAY_30.

.WORD

177772

PAGE 20-1

ENDIF

#30.,(PC)+

LSDLY, (PC)+

0
=-6(PC)
.=
=22(PC)
.=20

*NOW TEST FOR PRINTER READY
007712
007712
007720
007722
007722
007730
007730
007736
007736
007742
007742
007744
007746
007750
007752
007752

032772
001014

000200

002370

052762

100000

002524

013737

002326

002074

005262

003126

;TEST FOR THE READY BIT
IF #BITO7 NOTSETIN @LPCSR(R2) THEN
2)
#BIT07,aLPCSR(R
BIT
50077%
BNE
LET STATUS(R2) := STATUS(R2) SET.BY #ERROR
#ERROR, STATUS (R2)
BIS
LET LSLUN := LUNIT

MOV

000003

TRAP

.WORD
.WORD
'WORD

003436
000000

LUNIT,LSLUN

LET ERRTBL(R2) := ERRTBL(R2) + #1
ERRTBL (R2)
INC
ERRHRD 2,RDYERR
:REPORT AN ERROR

ENDIF

CSERHRD

2
RDYERR
0

50077%:

:INSURE LOADING CHARACTER CAUSES PRINTER READY TO GO AWAY
007752
007752

012772

000012

002464

032772

000200

002370

052762

100000

002524

005262

003126

013737

002326

001416

0012
0014
0016
0020

MOV

000003
010511
000000

002370

:= #12

#12.aLPBUF
(R2)

IF #BITO7 SETIN aLPCSR(R2) THEN
#B1707,3LPCSR(R2)
BIT
BEQ
50100%
LET STATUS(R2) := STATUS(R2) SET.BY #ERROR
#ERROR, STATUS (R2)
BIS
LET ERRTBL(R2) := ERRTBL(R2) + #1
ERRTBL (R2)
INC
LET LSLUN := LUNIT
MOV
LUNIT,LSLUN

ERRHRD 3,ERR1{
TRAP

104456

005072

002074

LET @aLPBUF (R2)

CSERHRD

:REPORT AN ERROR

.WORD
3
ERR11
.WORD
WORD
0
LET aLPCSR(R2) := #0
ALPCSR(R2)
CLR

ENDIF
501008:

IVERIFY THAT THE PRINTER WILL NOT INTERRUPT If [T IS AT A PRIORITY LEVEL

'CILPLCO LP25, LP26 TEST MACY11 30A(1052)
01-0CT-80 12:06
'CILPLC.P11 ~ 01-0CT-80 12:06
INTERFACE LOGIC

};;;

010024
010024
010030
010032

012700
104441

000200

(6)

010032

010036

012746

000200

010042

012746

016246

002430

(5)

(&)
(3)
(2)
1775
(6)
1776
(2)
(2)
(2)
(2)
(2)

(2)

(2)
(2)
1777
1778

010046
010052
010054
010060
010060
010066
010066
010072
010076
010100
010102

010106
010110
010114

012746
104437
062706

000003
000010

052772

000100

012727
000000

000036

013727
000000
005367

002116

005367
001367

177756

001375

(6)

010136

(4)
(3)
(2)
1784
(6)
1785
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
1786

(6)

177772

42772

000100

012700
104441

000140

010132

012746

000200

010142

016246

002430

010146
010152
010154
010160
010160
010166
010166
010172
010174
010200
010202
010206
010210
010214
010216

010216

1787
(4)

010222
010222

(&)

010230

1788

002370

|
-

;

‘5

010116
010116
010124
010124
010130
010132

010230

012746

012746
104437
062706

000030

013727
000000
005367
001375

002116

005367
001367

177756

005262

003126

013737

002326

MOV

LPVEC(R2),=(SP)

BNE

DEC
BNE

177772

#INTERR,=(SP)

=22(PC)
.=20

;THE PRINTER PRIORITY

LET aLPCSR(R2) := @'PCSR(R2) CLR.BY #100
;CLEAR INTERRUPT ENABLE
BIC
#100,3LPCSR(R2)
SETPRI #PRIO3
;CPU TO PRIORITY 3
MOV
#PR103,RO
TRAP
C$SPRI
SETVEC LPVEC(R2),#INTHDL ,#PRI04

#PR104,
= (SP)

#INTHDL , = (SP)

LPVEC(R2),=-(SP)

MOV
#3,-(SP)
TRAP
CSSVEC
ADD
#10,5P
LET @LPCSR(R2) := aLPCSR(R2) SET.BY #100
s INTERRUPT ENABLE
BIS
#100,3LPCSR(R2)
DELAY 30
; ALLOW 3 SEC DELAY
MOV
#30, (PC) +
WORD
O
MOV
LSDLY, (PC)+
MORD
O
DEC
-6(PC)
BNE
=
DEC
<22(PC)
BNE
.=20
LET ERRTBL(R2) := ERRTBL(R2) + #1

INC

002074

;LP VECTOR SET UP

*NOW TEST THAT THE PRINTER WILL INTERRUPT IF THE CPU PRIORITY IS LOWER THAN

MOV

002370

;CPU TO PRIORITY &

MOV
#3,-(SP)
TRAP
CS$SVEC
ADD
#10,5P
LET @LPCSR(R2) := @LPCSR(R2) SET.BY #100
s INTERRUPT ENABLE
BIS
#100,aLPCSR(R2)
DELAY
30.
; ALLOW 3 SEC FOR DELAY
MOV
#30.,(PC)+
LWORD
0
MOV
LSDLY, (PC)+
WORD
O
DEC
-6(PC)

MOV

000010

012727
000000

#PR104,-(SP)

MOV

000003

000100

104456

002370

010452

052772

MOV

1781
(6)
1782
(3)
(3)
1783

(5)

SEQ 0052

SETPRI #PR104
MOV
#PR104,RO
TRAP
C$SPRI
SETVEC LPVEC(R2),#INTERR,#PRI04

010422

};gg

(7)

:THE SAME AS THE CPU

1773
(3)
(3)
17764

(7)

PAGE 20=2

ERRTBL (R2)

LET- LSLUN := LUNIT
MOV
LUNIT,LSLUN

ERRFRD &,ERR13
TRAP

CSERHRD

CZLPLCO LP25, LP26 TEST MACY11 30A(1052) 01-0CT-80
[CZLPLC.PT1

" 01-0CT-B0 12:06

12:06

INTERFACE LOGIC

(5
C(5)

010232

000004

JMORD

|
|

010236

010240
010240
010246
010246
010254
010254

000000

"WORD

(5)

1789
(4)
1790
(6)
1791
1;35

010234

010650

.WORD

012772

000000

002370

042762

160000

002524

005062

003064

1793
};gg

1796
1797
1798
(3)
(3)
1799
1800
(4)
(5)
(4)
(7)
(5)

(5)
(7)
1801
(2)
(2)
(2)
(2)
(¢)
(2)
(2)
(2)
1802
(4)
(3)

1803
(3)
1;32

010260
010264
010270
010270
010274
010276
010340
010340
010346

010350
010350

010354
010354
010362
010364
010364
010370
010372
010376
010400
010404
010406
010412
010414
010414
010416

010416
010416
010420

000137
004737

007562
007270

1811
(4)

012700
106441

000000

012737
000402

0000i4

005337

003166

023727
002415

003166

012727
000000
013727
000000
005367
001375
005367
001367

000250

003166
501028:

000001

50101$:

002116
\

177772

177756

000755

501038:

EXIT TST

104432

000304

JMP
T1A
;UPDATE UNIT #
JSR
PC,RESVEC
. RESET STANDARD VECTORS
SETPRI #PRI00
MOV
#PR100,R0
TRAP
($SPRI
OUTPUT WINTFAC,#24.
DECR WORK FROM #12. TO #1 BY #1
MOV
#12. ,WORK
BR
50101$
DEC

WORK

CMP
BLT

WORK
, #1
50103$
DELAY 250
#250,(PC)+
MOV
.WORD
0
LSDLY, (PC)+
MOV
JWORD
0
-6(PC)
DEC
s
BNE
DEC
222(PC)
BNE
-20
ENDDEC
BR
50102$%

TRAP

.WORD

CSEXIT

SEXIT THE TEST

L10006-.

" INTERRUPT HANDLER TO SERVICE FAULTY INTERRUPT FROM LP INTERFACE.
“THIS ROUTINE IS ENTERED ONLY WHEN THE LP INTERRUPTS AT THE SAME LEVEL AS
“THE CPU AND IS CONSIDERED AN ERROR.

010422

010422
010422

010426
010626

1812 010434
(4)
(5)
(5)

ERR13

LET @LPCSR(R2) := #00
. CLEAR THE LPCSR
MOV
#00,3LPCSR(R2)
LET STATUS(R2) := STATUS(R2) CLR.BY WERROR'DROPED'ACTIVE
BIC
#ERROR
' DROPED
'ACTIVE
, STATUS (R2)
LET DELCNT(R2) := #0
DELCNT (R2)
CLR

T1B:

}ggg

1809

SEQ 0053

*END OF HARD CODED INCREMENT LOOP
:ENDINC

1805
1806

1810
(6)

END2:

B. S
PAGE 20-3

010434
010436
0106440

BGNSRV

005262

003126

013737

002326

104456
000005
010565

INTERR: LET ERRTBL(R2) := ERRTBL(R2) + #1
INC
ERRTBL (R2)

002074

LET LSLUN := LUNIT
MOV
LUNIT,LSLUN

ERRHRD S,ERR12
TRAP
WORD
"WORD

CSERHRD
S
ERR12

'CILPLCO LP25, LP26 TEST MACY11 30A(1052)
CZLPLC.P1

NOMNONINMNI
SN =
e
B DB NN =
WN
w2
OV
NN N

—_

_—

1813
00 00 ~ ~ 00 ~ 00 00 00 0o 00 00 ~ ~ 00

1824
1825
1826
1827
1828
1829

010442
010444
010444
010450
010450
010450

000000

012716

LET

010240

(SP)

ENDSRV

L10007:

000002

PAGE 20-4

WORD
0
:= HENDZ2

Mov

#ENDZ, (SP)

RTI

INTERRUPT HANDLER FOR EXPECTED INTERRUPT
BGNSRV

010452

010452
010452
010456
010456
010456

000002

010460
010466
010474
010502
010510

047111
041501
044507
052123
000

012716

INTHDL: LET (SP)

010240

ENDSRV

L1001G:

042524
020105
020103
030440

043122
047514
042524

MoV

:= WEND?

#END2, (SP)

RTI

INTFAC: .ASCIZ

/INTERFACE LOGIC TEST 1/<12><12>

005012

:ERROR MESSAGES ASSOCIATED WITH THIS TEST
114
120

1830
1831

1832
(3)
(3)
1833
1834
1835

01-0CT-80 12:06

01-0CT-80
12:06
INTERFACE LOGIC

051120

104401

010726

044504
052116
042524

NLIST BEX
ERR11:
.ASCIZ
ERR12:
.ASCIZ

EERE3:
.EVEN

ENDTST
L10006:

LASCIZ

TRAP
.LIST BEX
ENDMOD

/LOADING PRINTER BUFFER DOES NOT CLEAR READY/
/PRINTER INTERRUPTED AT SAME LEVEL AS THE PROCESSOR/

/PRINTER DID NOT INTERRUPT AT (PU PRIORITY 3/

CSETST

SEQ 0054

CZILPLCO LP2S, LP26 TEST MACY11 30A(1052)

CILPLC.P1

‘

}ggg

.
I

1839
1840
1841
1842
1843
1844
1845
1846
1847

01-0CT-80 12:06

01-0CT-80

READY LINE

LSBTTL

12:06

PAGE 21

INTERLOCKS

SEQ 0055

TEST 2

READY LINE INTERLOCKS

TEST 2

010726

1848
1849

BGNMOD
X2
:THIS TEST CHECKS THE OPERATION OF THE
:PRINTER READY INTERLOCK SWITCHES.
:MANUAL INTERVENTION IS USED TO
:OPEN THE INTERLOCKS TO PRODUCE FAULTS
:IN THE PRINTER AFTER WHICH THE RESULTANT ERROR
;INDICATION IS VERIFIED.
-

010726

BGNTST

1851

010726

(3)
1850

010726

(3)
1852
(2)
1853
(3)
(3)
1854
1855
(6)
(9)
1856
(3)

010726
010730
010730
010732
010732
010734

1;;;

010746

1858
(4)
1859
(4)
1860
(4)
1;2:

010750
010750
010750
010750
010754
010754
010760

1862
1863
(4)
(5)
(4)
(7)
(5)
(5)
(7)
1864
(4)
(7)
1865

010762
010762
010766
010770
010770
010774
010774
011000
011002
011062
011006
011010

(6)
(9)
1866
(6)
1867

010736
010736
010742
010744
010744

011010
011016
011020
011020
011024

T2::
;DETERMINE

104450

104432
002746

002272

104432
002734

.WORD

ENDIF
501048:
005037

002306

013701
005301

002012

005037
000402

002326

005237

002326

023701
003020

002326

013702
006302

002326

032772
001410

100000

005262

003126

INTERVENTION I5 ALLOWED

TRAP
CSMANI
BCOMPLETE 11%
BCS
1%
EXIT TST
TRAP
CSEXIT
.WORD
L10011-.
:EXIT TEST IF MANUAL INTERVENTION TESTS ARE NOT SPECIFIED
118:
IF INHINT EQ #0 THEN
TST
INHINT
BNE
50104%
EXIT TST
TRAP
CSEXIT

103402

005737
001002

IF MANUAL

MANUAL

002370

L10011-

LET FLAG := #0
CLR
FLAG
LET R1 := LSUNIT - M1
MOV
LSUNIT,RY
DEC
R1

:CHECK FOR ERROR IN EACH PRINTER UNDER TEST
INCR LUNIT FROM #0 TO R1 BY #1
CLR
LUNIT
BR
50105%
501068%:
INC
LUNIT
50105$:
CMP
LUNIT,R?
BGT
50107%
LET R2 := LUNIT SHIFT 1
MOV
LUNIT,R?
ASL
R2
IF #BIT1S SETIN aLPCSR(RZ) THEN

BIT
#BIT15,aLPCSR(R2)
BEQ
501108
LET ERRTBL(R2) := ERRTBL(R2)
INC
ERRTBL (R2)
ERRHRD 6, CSRERR

+ #1

CZLPLCO LP2S, LP26 TEST MACY11 30A(1052)
CZLPLC.P1T
(&)
(5)
(5)
(S)
1868

011024
011026
011030
011032
011034

1869

011040

(4)
(4)

1870

(4)
(3)
1871
1872
(4)
(5)
(4)
(7)
(S)
(5)
(7)
1873
(4)
(7)
1874
(4)
1875
(6)
(9)

1876
(6)
1877
(4)

(%)

(5)
(5)
1878
(4)
1879

(4)
(3)

1880

01-0CT-80 12:06

011034

104456

TRAP
MWORD
.WORD
LMWORD

003429
600000

005072

011040
011042
011042
011042
011046
011050
011050
011054
011054
011060
011062
011062
011066
011070
011070
011076
011076
011104

002370

011106
011106
011112
011112

011114

011116
011120
011122
0311122
011122

011122
011124

000402

50107%:

011124

1887
(4)

011166
011166

1892
(4)
(7)

SEQ 0056

TEST 2

CSERHRD

(SRERR
O
LET QLPCSR(R2)

aLPCSR(R2)

:= #0

50104%

002326

50112%:
50111%:

002326

023701

002326

013702
006302

002326

013737

002326

002074

032772
001006

000200

002370

005262

003126

CLR
BR

LUNIT

CMP

LUNIT R

TRAP

CSERHRD

50111%

BGT
50113%
LET R2 := LUNIT SHIFT 1
MOV
LUNIT,R2
ASL
R2
LET LSLUN := LUNIT
MOV
LUNIT,LSLUN
IF #BIT0O7 NOTSETIN QLPCSR(R2) THEN
BIT
#BIT07,aLPCSR(R2)
BNE
50114%
LET ERRTBL(R2) := ERRTBL(R2) + #1
INC
ERRTBL(R2)
ERRHRD 7, RDYERR

104456

000007

.WORD

RDYERR
.WORD
.WORD
_ 0
ENDIF

003436
000000

50114%:
ENDINC

000752

501123$:

50112%

;

; PRINT TEST NAME

1883
1684
}ggg

1888
1889
1890
1891

PAGE 21-1

:CHECK FOR READY IN EACH PRINTER UNDER TEST
INCR LUNIT FRDOM #0 TO R1 BY #1

005237

003021

ENDIF

ENDINC

000753

1881

1882

CLR

50110%:

005037

12:06

READY LINE INTERLOCKS

000006

011040

01-0CT-80

011172
011176
011200
011200

011204
011204
011210

QUTPUT #INTLK,#29.
:VERIFY OPERATION OF PAPER LOW INTERLOCK SWITCH
:HARD CODED INCREMENT LOOP
005037
005037
000405

002352
002326

005237

002326

013702
006302

002326

LET ERRFLG := #0
ERRFLG
CLR

2%:

CLR LUNIT
BR 1%

INC LUNIT

LET R2 := LUNIT SHIFT 1
MOV
LUNIT,R?
ASL
R2

CZLPLCO LP2S, LP26 TEST MACY11 30A(1052)
CZLPLC.PI
1893
1894
1895
1896
1897
1898
(4)
1899
(8)
(7)
(6)

'
'

(3)
(&)
(4)
1900
(7)
(6)

(3)
(4)
(4)

1901

(3)

(3)
(&)
(5)

(5)

(5)
(3)
1902
(4)
1903

011266
011270

011274

002326

005037

002306

013746
012746
012746

002326
012256
000002

010600
104417
062706

011560

012326
000001

062706

000004

3%:

TRAP

#4,5P

GMANIL READY, FLAG, 100000, YES

104443

000404
002306
000130

TRAP
BR
.WORD
.WORD

CSGMAN

011306
011310
011310
011310
011316

100000

.WORD

100000

007072

.WORD

10000$:

002310

005337

002310

DEC

011370
011374
011376
011402
011404
011404

005737
001403
005737
001747

002310

ST
BEQ
TST
BEQ

(9)
1909

011404

011410
011412

005737

001011

002352

1910
(6)
1911
(2)

011412
011414
011416
011420

011422
011422
011426
011426

104456
000010
003460
000000

(4)
(5)
(5)
(5)

1912

011322
011364

011370

011432

50115%:

50116%:

003126

000137

011440

READY

CLR
REPEAT

: ALLOW FOR AROUT 6 PAGES OF PAPER

ERRFLG

OQUTPUI #PAPTST,#25.,#5%,LUNIT
LET LINCNT := LINCNT = #1
LINCNT

UNTIL LINCNT EQ #C OR ERRFLG NE #0

002352

005262

10000%

FLAG
T$CODE

LET LINCNT := #400.
#400.,LINCNT
MOV
LET ERRFLG := #0

011364

(6)

CSPNTF

ADD

011275
011300
011302

011304

SEQ 0057

TEST 2

MOV
SP,RO
TRAP
CSPNTF
ADD
#6,SP
PRINTF #PAPSW1
MOV
#PAPSW1,=(SP)
MCV
#1,-(SP)
MOV
SP,RO

002352

(&)
(6)
(4)
(7)
(4)
1908

PAGE 21-2

LET FLAG := #0
CLR
FLAG
PRINTF #PAPRSW,LUNIT
MOV
LUNIT,=(SP)
MOV
#PAPRSW,
- (SP)
MOV
#2,-(SP)

005037

907

12:06

CMP LUNIT,R1
BLE 3%
JMP 4$

000006

012746
012746

010600
104417

1$:

011316
011322
011322

t6)

011244
011246
011250
011254
011254
011260
011264

023701
003402
000137

000620

1905
1906

011212
011212
011216
011220
011224
011224
011224
011230
011230
011234
011240

01-nrT-80

READY LiNE INTERLOCKS

012737

(4)
1904
(3)

01-0CT-80 12:06

L INCNT
50116%
ERRFLG
50115%

It ERRFLG EQ #0 THEN

TST

ERRFLG

50117%
ERRHRD 8,PAPSWI
TRAP
CSERHRD
.WORD
8
.WORD
PAPSWI
LWORD
O

BNE

LET ERRTBL(R2) := ERRTIBL(R2) + #!
ERRTBL (R2)
INC
INL INE
<JMP
11002%>
JMP
11002%

ELSE

G_ 5
01-0CT-80
12:06
PAGE 21-3
CILPLCO LP25, LP26 TEST MACY11 30A(1052)
READY LINE INTERLOCKS
TEST 2
CZLPLC.P
01-0CT-80 12:06
(&)
(3)
1913
(4)

1914
(4)
1915

(8)
(7)
(6)
(3)
(&)
(4)

1916

(4)
1917
(3)
(3)
(4)
(5)
(5)
(5)
(3)
1918
(4)
(7)
1919
(4)
1920
1921
1922
1923
19¢4
(4)
1925
(4)
1926
(6)
1927
(4)
1928
(4)
1929
(4)
1930
1931
1932
(4)
(5)
(4)
(7)
(5)
(5)
(7)
1933
(4)

011432
011434
011434
011434

011440
011440
011440

000402
005037
‘

50117%:

002352
50120%:

011440
011444
011450
011454
011456
011460

013746
012746
012746
010600
104417
062706

002326
012404

011464
011470
011470
011472
011474
011476
011500
011502
011504
011504
011504
011510
011512
011512
011516

005037

002306

011464

011522
011522
011530
011530
011534

011534
011542
011542

011546
011546
011552
011552
011556

011560
011560
011564
011566
011566
011572
011572
011576
011600
011600

11002%:

000002

50120%

LET ERRFLG := #C
CLR
ERRFLG

ENDIF

PRINTF #PAPRDY,LUNIT

MOV
MOV

LUNIT,=(SP)
#PAPRDY,=(SP)

TRAP

CSPNTF

MOV
MOV

000006

#2,-(SP)
SP,RO

ADD
#6,SP
LET FLAG := #0
CLR
FLAG
GMANIL READY,FLAG,100000,YES

104443
000404
002306
000130
007072
100000

TRAP

CSGMAN

10001%:

002326

005072
000137

002370
011200

012737

000001

005037

002350

042762

120000

005062

002764

005062

002564

005062
000207

002664

10001%

.WORD

FLAG

.WORD

READY

LET R2
MOV
ASL

:= LUNIT SHIFT 1
LUNIT,R2

.WORD

013702
006302

SEG 0058

.WORD

T$CODE
100000

LET QLPCSR(RS) := #0
CLR
aLPCSR(R2)

;

RESET

THE

JMP 2%

;EXPECTED ERROR HANDLER.
sJUST SET EXPECTED ERROR INDICATOR.
002352

98:

002524

LET
MOV
LET
CLR
LET
BIC
LET
CLR
LET
CLR
LET
CLR

ERRFLG := M
#1 ,ERRFLG

ERRCOD := #0
ERRCOD

STATUS(R2)

:= STATUS(R2) CLR.BY WERROR'ACTIVE

#ERPOR'ACTIVE,STATUS(R2)
: CLEAN UP THE DRIVER PARAMETERS
CURCNT(R2) := #C
CURCNT(R2)

CURADD(R2) := #0
CURADD(R2)
REPCNT(R2) := #0
REPCNT(R2)

RTS °C

:AND RETURN

:VERIFY OPERATION OF HAMMER BANK INTERLOCK SWITCH

005037
000402

002326

005237

002326

023701
003077

002326

013702

002326

LP (SR

4%:

50122%:
50121%:

INCR LUNIT FROM #0 TO R1

CLR
BR

LUNIT
50121%

INC

LUNIT

LUNIT,R1
CMP
50123%
BGT
LET R2 := LUNIT SHIFT 1
MOV
LUNIT,R2

BY M1

01-0CT-80
12:06
PAGE 21-4
CZLPLCO LP2S, LP26 TEST MACY11 30A(1052)
READY LINE INTERLOCKS
CZLPLC.PIN
01-0CT-80 12:06
TEST 2
(7)
1934
(4)
1935
(4)
1936
(8)
(7)
(6)
(3)
(&)
(4)
1937
(7)
(6)
(3)
(4)
(4)
1938
(3)
(3)
(4)
(5)
(5)
(5)
(3)
1939
(6)
(9)
1940
(8)

011604
011606
011606
011614
011614
011620
011620
011624
011630
011634
011636
011640
011644
011644
011650
011654
011656
011660
011664
011664
011666
011670
011672
011674
011676
011700
011700
011700
011706
011710
011710

(6)
(3)
(4)
(4)
1941
(3)
(3)
(4)
(5)
(5)
(5)
(3)
1942
(4)
(3)
1943
(6)
1944
(4)
1945
1946
(4)
(5)
(5)

011720
011724
011726
011730
011734
011734
011736
011740
011742
011744
011746
011750
011750
011750
011752
017752
011752
011756
011756

(7)

011714

011764
011764
011766
011770

006302
013737

002326

005037

002306

013746
012746
012746
010600

002326
013147
000002

062706

000006

012746
012746
010600

013233

062706

000004

104417

ASL
R2
LET LSLUN := LUNIT

002074

MOV

LET FLAG := #0

MOV

MOV
MOV

TRAP
ADD
PRINTF
MOV
MOV
MOV
TRAP
ADD

000001

TRAP

100028

013746
012746
012746
010600

002326
013310

062706

000006

0062370

10003$:

000411

000011
003523

#HAMRDY,LUNIT

LUNIT,=(SP)

#HAMRDY
, = (5P)

#2,-(SP)
SP,RO
CSPNTF
#6,SP

TRAP

CSGMAN

.WORD

FLAG

GMANIL READY, FLAG,

100000

50124%:

002326

100000

MOV
MOV
TRAP
ADD

013737

T$CODE

IF #BIT15 SETIN @LPCSR(R2) THEN
#BIT15,aLPCSR(R2)
BIT
BEQ
50124%
MOV

002306
000130
007072

104456

READY

.WORD

002074

100000, YES

10002%

.WORD

PRINTF

104443
000404

0063126

CSPNTF
#6,SP
WHAMSW
#HAMSWT
, = (SP)
#1,-(SP)
SP,RO
CSPNTF
¥4 ,SP

FLAG

MOV

000002

005262

#2,-(SP)
SP,RO

.WORD

100000

#HAMRSW,
- (SP)

CSGMAN

002306
000130
007072

032772
001421

FLAG
#HAMRSW,LUNIT
LUNIT,=(SP)

GMANIL READY, FLAG,

104443
000404

104417

LUNIT,LSLUN

CLR
PRINTF
MOV

100000

.WORD
.WORD
.WORD
ELSE

100000, YES

10003%

T$CODE
READY

100000
50125%

LET ERRTBL(R2) := ERRTBL(R?) + #1
ERRTBL(R2)
INC
LET LSLUN := LUNIT

MoV

LUNIT,LSLUN

ERRHRD 9, BNKSWI

TRAP
.WORD

.WORD

CSERHRD

BNKSWI

SEQ 0059

5.3
CZLPLCO LP2S, LP26 TEST MACY11 30A(1052) 01-0CT-B0 12:06 PAGE 21-5
CILPLC.PN
01-0CT-80 12:06
READY LINE INTERLOCKS
TEST 2
(5)
1947
(&)
1948
(4)

(3)
1949
.
1950
o
(4)
(5)
(4)
©(7)

011772
011774
011774
011774
011774
011776

L
.

(5)
(5)

011776
011776
012002
012004
012004
012010
012010

L
|

1951
(&)
(7)
1952
(4)
1953
(8)
(7)
(6)
(3)
(&)

012016
012016
012022
012024
012024
012030
012030
012034
012040
012044
012046

()

(&)

000674

005037
000402

002326

005237

002326

023701

002326

003077
013702
006302

002326

005037

002306

013746
012746
012746
010600
104417

002326
013425
000002

062706

000006

012746
012746
010600
104417
062706

013513
000001

(3)

012076

000404

012106
012110
012110
012110
012116
012120
012120
012124
012130
012134

100000

(5)
(3)
1956
(6)
(9)
1957
(8)
(7)
(6)
(3)

‘

(4)

(&)

012074
012074

012100
012102
012104

50126%:

LUNIT,R1

50130%

LET R2 := LUNIT SHIFT 1
MOV
LUNIT,R2
ASL
R2
LET FLAG := #0
CLR
FLAG
PRINTF #BANDSW,LUNIT
MOV
LUNIT,=(SP)
MOV
#BANDSW,
- (SP)
MOV
#2,-(SP)
MOV
SP,RO
TRAP
CSPNTF

ADD

#6,5P

PRINTF #BNDSW1
MOV
#BNDSW1,=(SP)
MOV
#1,-(SP)
MOV
SP,RO
TRAP
CSPNTF
ADD
#4,SP

GMANIL READY, FLAG, 100000, YES
TRAP
CSGMAN

002306
000130
007072

.WORD
.WORD
.WORD

100048
:

013746
012746
012746
010600

002326
013562
000002

012140

062706

000006

012144

104443

104417

CMP

BGT

104443

100000

002370

.WORD

TRAP

ADD

(3)

012146

000404

(5)

012152

000130

.WORD

(4)

012150

002306

FLAG
TSCODE
READY

100000

CSPNTF

1958

(3)

10004%

IF #BIT1S SETIN @LPCSR(R2) THEN
BIT
#BIT15,aLPCSR(R2)
BEQ
50131%
PRINTF #BNDRDY,LUNIT
MOV
LUNIT,=(SP)
MOV
#BNDRDY
, - (SP)
MOV
#2,-(SP)
MOV
SP,RO

012144

50122%
50123%:
;VERIFY OPERATION OF CHARACTER BAND INTERLOCK SWITCH
INCR LUNIT FROM #0 TO R1 BY #1
CLR
LUNIT
BR
501268
50127%:
INC
LUNIT

000004

032772
001421

012136

50125$%:
ENDINC
BR

012054
012054
012060
012064
012066
012070

(4)
(5)
(5)

012050

WORD
ENDIF

1954
(7)
(6)
(3)
(4)
(«)

1955
(3)

012014

000000

TRAP

#6,5P

GMANIL READY, FLAG, 100000, YES

.WORD

CSGMAN
10005%

FLAG

T$CODE

SEQ 0060

3
g
CZILPLCO LPZS, LP26 TEST MACY11 30A(1052)
01-0CT1-80 12:06 PAGE 21-6
READY LINE INTERLOCKS
TEST 2
CZLPLC.P
01-0CT-80 12:06
el csi
D
i
i
il
i
il
D
il e

007072

100000

000411

50131%:

005262

003126

013737

002326

002074

104456
000012
003570
000000

012772

000000

002370

000674

100000

ELSE
BR

50132%

LET ERRTBL(R2) := ERRTBL(R2) + #1 -

.WORD
.WORD
.WORD
ENDIF

BNDSWI

LET QLPCSR(R2)

:= #00

MOV

#00,aLPCSR(R2)

50127%

ENDINC

50130%:

EXIT TST

104432
001464

(3)
(3)
1967
1968

READY

INC
ERRTBL(R2)
LET LSLUN := LUNIT
MOV
LUNIT,LSLUN
ERRHRD 10, BNDSWI
TRAP
CSERHRD

50132%:

(4)
1964
(4)
1965
(4)
(3)
1966

TRAP
.WORD

1984

013562

013702
013702
013702
013704

047045

DOTOF:

LN3EX:

HAMRSW:

HAMSW1:

HAMRDY:

BNDSW1:

. S

BANDSW:

BNDRDY:
.EVEN

PNNINANNNN
NN
NNNNNN

1983

.
.
.
.

St Gt Bt Bt Bt Bt Pt Gt Bt Bt Bt Bt Bt Bt Bt Bt Bt

1982

PAPRDY:
PAPTST:
PAPOUT:
PRINTSG:

PAPSW1:

wvuuummumunumumumununmnnmomom

1979
1980
1981

PAPRSW:

.AS
.AS

1974
1975
1976
1977
1978

INTLK:

1973

020131
042524
020117
042522
020122
054130
051120
046040
050101
052101
042522
042101
052101
047105
047501
041501
046103

040445
047045
040520
054130
047045

042101
040445
052040
040445

042522
047045

fifififififififlfififififififififi

.NLIST BEX

1969
1970
1971
1972

1985
1986
1987
1988
1989
1990
(3)
(3)
1991
1992
1993

10005%:

.WORD
.WORD

)))))))))))))))

(53
(5)
(5)
1963

1960
(6)
1961
(4)
1962
(4)

o N ~wN~woororOrOrOFONONWYWY
o[ W W
o No XSLSTSTe
e le e P

(3)

1959
(4)

(9)
(5)
(3)

[elelelelelolalelelelels]ele)
b D cod b
b b i
D i ol D il D

—0

SEQ 0061

/READY LINE INTERLOCK TEST 2/<12><12>
/XNXATEAR OFF PAPER JUST BELOW LUNIT XD2/
/%A TO CHECK PAPER LOW XNXAINTERLOCK SWITCH.XN/

/XNXARESTORE PAPER, ALARM CLEAR,
AND PLACE LUNIT %D2%A ON LINE.XN/
/PAPER LOW INTERLOCK TEST/<12>
€12
ZXX0000000000CCKCCNK/
/ANXAPRESS ON-LINE SW OF UNIT XD2XA & TIMES /
/, 1 LINE SHOULD BE PRINTED AFTER EACH PRESSIN/
/XNXAPRESS ON-LINE SW OF UNIT XD2XA FORM FEED SHOULD OCCURXN/
/ANXATHE LAST 3 LINES PRINTED SHOULD BE X'SIN/
/XAPRESSING ON-LINE AGAIN SHOULD NOT PRINTXN/
/XNXADISENGAGE HAMMER BANK LATCH SWITCH ON LUNIT XD2/
/XNXATO CHECK HAMMER BANK INTERLOCK SWITCH.XN/

/XNXAENGAGE HAMMER BANK LATCH, ALARM CLEAR,

/ANXACHARACTER BAND INTERLOCK SWITCH.XN/
/XNXACLOSE CHARACTER BAND COVER ON LUNIT ZD2%A, ALARM CLEAR,

.LIST BEX
ENDTST
104401

L10011:
ENDMOD

TRAP

AND PLACE LUNIT Z02X%A ON LI

/XNXAOPEN CHARACTER BAND COVER ON LUNIT XD2XA TO CHECK/

CSETST

AND PLACE ON

LZLPLCO LP2S, LP26 TEST MACY11 30A(1052)
CZLPLC.PTY
1995
1996
1997
1998
1999

01-0CT-80 12:06

01-0CT-80

12:06_

PAGE 22

SEQ 0062

FORMS LENGTH SELECTION

.SBTTL FORMS LENGTH SELECTION

013704

BGNMOD
14

:THIS TEST CHECKS ALL POSITIONS OF THE FORM LENGTH SELECT SWITCH. THE
;PROGRAM INDICATES THE SPECIFIED SETTING OF THE FORM LENGTH SELECT SWITCH
;AND WAITS FOR THE OPERATOR TO SET THE SWITCH ON THE PRINTER. THE PAPER

2000
2001
2002

;1S THEN ADVANCED UNDER PROGRAM CONTROL. THE PRINTER OUTPUT IS VISUALLY
;INSPECTED AFTER ALL SWITCH SETTINGS HAVE BEEN RUN THROUGH BY THE OPERATOR
;2T¥§RéFY THAT THE PROPER PAPER MOVEMENT HAS OCCURRED FOR EACH SWITCH
N

013704
013704

013704
013704
013706
013706
013710
013710
013712
013714
013720
013722
013722
013724

BgNTST

DETERMINE IF MANUAL INTERVENTION IS ALLOWED
MANUAL

TRAP

104450

BCOMPLETE 1%
1%
BCS
EXIT TST

103402

TRAP

104432
002246

005737
001002

CSMANI

.MORD

002272

SEXIT TEST IF MANUAL INTERVENTION TESTS ARE NOT SPECIFIED

1%:

TST

INHINT

BNE 2%

EXIT TST
TRAP

104432

002234

CSEXIT

.WORD

L10012-.

OUTPUT

#FRMLTH,#32.

.PRINT TEST

és.

013726

CSEXIT

L10012-.

IDENTIFICATION

*HARD CODE INCREMENT LOOP
013770
013774
013776
014002
014006
014010
014014
014014
014014
014020
014022
014022
014026
014032
014036
014040
014042
014046
014046

014052

14056

005037
000402
005237
023701
003402
000137

002326
002326

014566

013702
006302

002326

013746
012746
012746
010600
104417
062706

002326
014637
000002

012746
012746
010600

104417
062706

CLR

002326

000006

014723
000001
000004

5%
4$:

6%:

LUNIT

: COMPARE LOOP

BLE

SEXIT ONLY IF GREATER THAN

INC
CMP

JMP

LUNIT
LUNIT,R1

CEXIT

LET R2 := LUNIT SHIFT 1
MOV
LgNlT.RZ
ASL

PRINTF #LINSWI,LUNIT
LUNIT,=(SP)
MOV
#LINSWI,-(SP)
MOV
#2,-(SP)
MOV
MoV
SP,RO
CSPNTF
TRAP
¥6,5P
ADD

PRINTF #LINSWI
MOV
MOV
MOV

TRAP
ADD

#LINSW1,-(SP)
#1,-(SP)
SP,RO
CSPNTF
#4,SP

PRINTF #FLSSEL,LUNIT

;PRINT LUNIT MESSAGE

;SECOND PART OF MESSAGE

;SET TO "'FLS"" POSITION

|
L. 9
’CZLPLCOPLPZS. LP26 TEST MACY11 30A(1052)
01-0CT-B0 12:06 PAGE 22-1
CILPLC.PTY
01-0CT-80 12:06
FORMS LENGTH SELECTION
C(B)
014066
C
(7)) 014072
.
(6)
014076
C o (3) .014102

013746
012746
012746
010600

002326
015003
000002

MOV
MOV
MOV
MOV

LUNIT,=(SP)
#FLSSEL,=(SP)
#2,-(SP)
SP,RO

014106

062706

000006

ADD

#6,5P

014112
014114
014116
014116
014122
014122
014126

005004
000402

CLR
BR

R4
501338

ADD

#2,R4

CMP
BGT

R4 ,#20.
50135$

014130

010403

MOV

R4 ,R3

(&)

014106

. 2031

014112

(4)

(&)
(5)
(&)
(7)
(5)
(5)
(7)

2032
(4)

014130

2033
2034

014132
014134

2035

014146

(&)
(6)

104417

062704

000002

020427
003137

000024

CSPNTF

INCR R4 FROM #0 TO #20. BY #2
501348%:
50133
:

006303

:INDEX INTO SWITCH SETTING TABLE

ASL R3
LET T3SET

:ACTUAL OFFSET FOR SWITCH SETTINGS

015474
014572

(9)
(8)
(7)
(6)
(3)
(&)
(4)
2036
(7)
(6)
(3)
(4)
(4)

014146
014152
014156
014162
014166
014170
014172
014176
014176
014202
014206
014210
014212

013746
013746
012746
012746
010600
104417
062706

014572
002326
015550
000003

012746
012746
010600
104417
062706

015642
000001

000004

MOV
T3SET,=(SP)
MOV
LUNIT,=(SP)
MOV
#FLSMSG,=(SP)
MOV
#3,-(SP)
MOV
SP,RO
TRAP
CSPNTF
ADD
#10,5P
PRINTF #FLSMS1
MOV
#FLSMST,=-(SP)
MOV
#1,-(SP)
MOV
SP,RO
TRAP
CSPNTF
ADD
#4,SP

(4)

014216

005037

002306

CLR

FLAG

014222
014224
014226
014230
014232
014234
014236

104443
000404
002306
000130
007072
100000

TRAP
BR
W0BD
-WORD
.WORD
.WORD

CSGMAN
10000%
FLAG
TSCODE
READY
100000

2038

014222

2039

014236

(3)
(3)
(4)
(5)
(5)
(5)
(3)

014404

2043

014410

(4)

(3)
(3)
(4)
(5)
(5)
(5)

WFFSET,T3SET
R3,T3ISET

PRINTF #FLSMSG,LUNIT,T3SET

000010

100008:

2040 014300
2041 014342
2062

MOV
ADD

:= #FFSET + R3

012737
060337

014216

014572

LET R3 := R4

014134
014142

2037

TRAP

SEQ 0063

:SELECT MESSAGE

LET FLAG := #0

:CLEAR FLAG INDICATOR FOR MANUAL

GMANIL READY,FLAG,100000,YES

;WAIT FOR OPERATOR

OUTPUI #REFLIN,#133.,,LUNIT

:OUTPUT REFERENCE LINE AND TERMINATOR

OUTPUI T3SET,#%, LUNIT :# OF LINES FOR SPACING
OUTPUI #MOVMSG,#130.,,LUNIT
:FINAL REFERENCE LINE

014404

005037

014410
014412
014414
014416
014420
014422

104443
000404
002306

000130
007072

100000

002306

LET FLAG := #0
CLR

FLAG

TRAP
BR
.MORD

CSGMAN
10001$
FLAG
TSCODE
READY
100000

GMANIL READY,FLAG,100000,YES

.WORD
.WORD

.WORD

CZLPLCO LP2S, LP26 TEST MACY11 30A(1052)

(CZLPLC.PIT

(4)

014424
014424

(3)
2045
2046
(8)
(7
(6)
(3)

01-0CT-80

12:06

PAGE 22-2

SEQ 0064

FORMS LENGTH SELECTION

10001§8:
N
ENDINC

000634

50135%:

501348

;SET FORMS LENGTH SELECT SWITCH TO ITS "REGULAR' SETTING

002326
015402
000002

(4)
(4)

013746
012746
012746
010600
104417
062706

(4)

012737

000014

(4)

005037

002306

2047
2048
2049
(3)
(3)

PRINTF #NMLFLS,LUNIT
MOV
LUNIT,=(SP)
#NMLFLS,-(SP)
MOV

MOV
MOV

000006

(4)
(5)
(5)
(5)
(3)

2050
2051
7

012746
012746
010600
104417
062706
000137

(6)

(3)

(4)
(4)

2052

2053
2054
(3)

MOV

#14,0UTBUF

CLk

FLAG

TRAP

CSGMAN

.WORD

FLAG

10002%:

;CLEAR <CR> FLAG

GMANIL READY,FLAG,100000,YES

;AND WAIT FOR RESPONSE

000004
013776

EXIT TST

040445

027063

000040
000065

020070

000040

.WORD

10002%
TSCCDE

READY

100000

UF
,#1, ,LUNIT
OUTPUI #OUTB

PRINTF #PAPCHK

015102
000001

047506

:= #14

LET FLAG := #0

.WORD

001370
000000
000000

CSPNTF
#6,SP

.WORD

104432

014572

TRAP
ADD

100000

#2,-(SP)
SP,RO

LET OUTBUF

003172

104443
000404
002306
000130
007072

b D D d —h D b

|
|

(3)
2044

01-0CT-80 12:06

MOV
MOV
MOV

#PAPCHK ,-(SP)
#1,-(SP)
SP,RO

JMP

TRAP
ADD

TRAP

.WORD
T3SET:
.WORD
T3MOV:
.WORD
.NLIST BEX

CEPNTF
#4,SP

;MAKE SURE MOVEMENT WAS RIGHT

:END OF HARDCODED INCREMENT LOOP

CSEXIT

L100120
0

FRMLTH: .ASCIZ /FORMS LENGTH SELECTION TEST 3/<12><12><12>

020123
051501
033101
040445

LINSWI: .ASCIZ /XNXASET LINES SWITCH ON UNIT XD2XA TO ''6¢'" TO SELECT/
LINSW1: .ASCIZ /XNXA6 LINES PER INCH VERTICAL PRINTING DENSITY./
FLSSEL: .ASCIZ /XN2XASET VFU=-FLS SWITCH ON UNIT XD2XA TO THE ''FLS'' POSITION.ZIN/

042523

NMLFLS: .ASCIZ /XNXASET FORMS LENGTH SELECT SWITCH ON UNIT XD2%A TO 11.%IN/
;SWITCH SETTINGS FOR FORMS LENGTH MESSAGES

PAPCHK: .ASCIZ /XNXAVERIFY PROPER PAPER MOVEMENT FOR EACH SWITCH SETTING./
REFLIN: .ASCII /REFERENCE LINE FOR FORMS LENGTH SELECTION....ccveeecencncnnns /
gssn /
Babsshsssesiohes
s eehisieni
REPLELL ABLIL 1 acionnssnsnnitsEersmtiatebi
REFLIZs

ABIT Fosssennens /1<14>

FFSET:

LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ

/% /
/3.5/
/
/4
/5.5/
/76 /
/7
/8 /

p—

—————

ettt

S—

-—

!
N_ S
CILPLCO LP25, LP26 TEST MACY11 30A(1052)
01-0CT-80 12:0
:06 PAGE 22-3
CZLPLC.P1
01-0CT-80 12:06
FORMS LENGTH SELECTION
2075
2076
2077
2078
2079
2080
2081
2082
2083
2084

015530
015534
015540
015544
015550
015642
015754
016051
016147

2086
(3)

016160
016160

2085

(3)
2087

016160
016162

027070
030461
031061
032061
047045
047045
044440
056
056
016160

104401

000065
000040
000040
000040
040445
040445
041516
027956
027056

042523
042504
042510
027056
027056

FLSMSG:
FLSMS1:
MOVMSG:
MOVAMST:
MOVMS2:

.ASCIZ
LASCIZ
LASCIZ
LASCIZ
.ASCIZ
_ASCIZ
.ASCII
.ASCI]
.ASCIZ
.EVEN

/8.5/
711 /
/12 /
714 /
/XNXASET FORMS LENGTH SELECT SWITCH ON UNIT ZD2ZA TO XTXA,/
/%NXADEPRESS 'ALARM CLEAR'', TOP OF FORM, AND PLACE PRINTER BACK ON LINE.X
/ INCHES SHOULD OCCUR BETWEEN THIS AND THE REFERENCE LINE..... /
/.cececcessossoscssssnconsssoscssssssssssssssscscsssanssscsssns /
/...... /<12>

LLIST BEX

ENDTST
L10012:
ENDMOD

TRAP

SEQ 0065

CSETST

;
’
(CILPLCO LP25, LP26 TEST MACY11 30A(1052)

iCZLPLC.P11
|

2090

01-0CT-80 12:06

01-0CT-B0

144

THE PRINT SPEED TEST WILL REPORT TO THE OPERATOR THE TOTAL NUMBER OF
LINES PRINTED WITHIN A SPECIFIED TIME PERIOD. THE DATA PATTERN USED
IS DESIGNED TO CAUSE PRINTING SPEED TO BE MINIMAL AND IS DEPENDENT
ON PRINTER TYPE AND THE CHARACTER SET (BAND TYPE ) ON EACH PRINTER.
THE TIME PERIOD CAN BE CONTROLLED THRU MANUAL OPERATION, OR IF THE
SYSTEM HAS A CLOCK VIA SUPPLYING A COUNT OF SECONDS. ANY TIME INTERVAL OF
& TO 60 SECONDS MAY SE SELECTED. THIS IS ONE OF THE ''SW'' QUESTIONS .

BGNTST
T4::

016162
013701
005301

002012

005737
001416

002276

- -

nNNONVO
O

NN NN

OOOOOOOO%OOOOOOO
rrororone
&~

MANSPD

50136%

TRAP

CSMANI

TRAP

CSEXIT

TST

INHINT

:NUMBER OF UNITS TO TEST

: DETERMIN IF MANUAL TESTING SELECTED
:DETERMINE IF MANUAL INTERVENTION ALLOWED

BCOMPLETE 1%
1%
BCS
TST
EasT

L10013-.
.WORD
IF INHINT NE #0 THEN

1%:

002272

BEQ
TRAP

000403

50137%:
002300

003166

50140%:

ELSE

000403

501368%:

002300

003166

L10013~-.

50140%
LET WORK

:= PERIOD

MoV
ENDIF

PERIOD,WORK

50741%

LET WORK := PERIOD

ENDIF

PERIOD,WORK

50141%:

013746
003403
021627
003402

002334

012716

000005

OUTPUT #PRTSPD,#36.
SELECT CLKTYP OF & VERIFY
MOV

BLE

CMP

000004

50142%:

50143%:

INTERVENTION INHIBITED

EXIT TST
CSEXIT

.WORD

MOV

: EXIT IF

50137%

ELSE

) —

) o

D e

N
S
BN
N
NP ON S
o o
o o
(

[elelelelelelelelelelelalelelelolelelelel
o]

WWANIWON
NS N = =2 IS N B (NS = S

N N

e S

N
nno
.~~~
b o
g -~ P~ - PN
- P~ P~

TST

BEQ

104432
004122

013737

LSUNIT,RT
R1

MANUAL

103402

013737

MOV
DEC

IF MANSPD NE #0 THEN

104450

005737
001403

LET R1 := LSUNIT - M

104432
004110

SEG 0066

BGNMOD

016162

302

PRINTING SPEED MEASUREMENT

;
;
;
;
;
;
;

6222

PAGE 23

.SBTTL PRINTING SPEED MEASUREMENT

016162

016162
016162
016166
016170
016170
016174
016176
016176
016200
016200
016202
016202
016204
016206
016206

12:06

CLKTYP,=(SP)

50142%

(SP) , #4

BLE

501458

MOV

#5,(SP)

: CLOCK TEST

TImE

;PRINT TEST ID
;SET UP THE RIGHT CLOCK

(CZLPLCO LP25, LP26 TEST MACY11 30A(1052)
CILPLC.P11
L
L
L

~ 01-0CT-80 12:06

(2)
(2)
(2)
(3)

016322
016324
016326
016330

2119
(4)

016342
016342

016342

000137

2122
(4)

016346
016346

000461

2123

016350

(4)
(&)
(4)
(4)
2§?g

%}%?

(4)

(&)

016330
016332
01633¢
016336
016340

016350

006316
060716
063607

501508:

000100

(3)

016356
016356
016362

012700
104441

000340

(7)
(6)
(5)
(4)
(3)
(2)

016364
016370
016374
016400
016406
016406

012746
012746
013746
012746
104437
062706

000300
041066
002344
000003

(3)
2§3g

016412
016416

012700
104441

2129
(4)
(4)
2130

016420
016420
016422
016422

2131
(4)
2132
2133
(3)

016436
016436

2126

016364

2127 016412

(4)
(6)

(3)

2134
(7)
(6)
(5)
(4)
(3)
(2)

2135
(3)
(3)

002346

CASE 3

000434

50147%:

012737

000111

002346

016450

012700
104441

000340

016452
016456
016462
016466
016472
016474

012746
012746
013746
012746
104437
062706

000300
041066
002344
000003

016500
016504

012700
104441

000000

016500

END4
BR

< JUST EXIT TEST NO CLOCK AVAILBLE
50145%

:KW11-L LINE CLOCK SELECTED

MOV

#100, CLKENA

TRAP

C$SPRI

MOV
MOV
MOV
MOV
TRAP
ADD

#PR106,-(SP)
#CLKTCK,=(SP)
CLKVEC,=(SP)
#3,-(SP)
CSSVEC
#10,5P

MOV
TRAP

#PR100,RO
C$SPRI

: INTERRUPT ENABLE/ CLR MONITOR

. SET PRI7 WHILE CHANGING VECTOR ADDRESS
SETPRI #PRIO7
MOV
#PR107,R0

000000

000010

SEQ 0067

:SET UP INTERRUPT VECTOR

SETPRI #PRI00

002342
002342

016452

50151$-50144$
50150$-50144%
50147$-50144%
50146$-50144%
50145$-50144$

LET CLKENA := #100

000010

002340
000002

016444
016444

JWORD
"WORD
"WORD
'WORD
"WORD

SETVEC CLKVEC,#CLKTCK,#PRIO6

013737
062737

016422
016430

(SP)
PC, (SP)
a($P)+,PC

JMP

CASE 2

012737

PAGE 23-1

ASL
ADD
ADD

CASE 1
501518$:

017514

12:06

PRINTING SPEED MEASUREMENT

501448:

000012
000020
000072
000160
000162

016350

2124
2125
(3)

01-0CT-80

50145%

:KW11-P REAL TIME CLOCK

LET CLKSET := CLKCSR + #2
MOV
ADD

CLKCSR,CLKSET
#2,CLKSET

TRAP

C$SPRI

MOV
MOV
MOV
MOV
TRAP
ADD

#PRI06,-(SP)
#CLKTCK,=-(SP)
CLKVEC,=(SP)
#3,-(SP)
CS$SVEC
#10,5P

MOV
TRAP

#PR100,R0
C$SPRI

:SET UP ENABLE BITS
LET CLKENA := #111
CLKENA
#111,
MOV
. RUN, RATE = 10KHZ, REPEAT INTR, DOWN,INT ENABLE
SETPRI #PRIO7
MOV
#PR107,R0

SETVEC CLKVEC,#CLKTCK,#PRI06

SETPRI #PRI00

;INTERRUPT VECTOR

'CILPLCO LP2S, LP26 TEST MACY11 30A(1052)
01-0CT-80 12:06

2142
2143
(&)
2144
(4)

i
D o
D

N
ed e e et 2 OO
oV
OoOOONO

214
(4)

2138
2139
(3)
2140
(4)

(4)

005037

002352

016534

013702

006302

002326

016546
016546

016544

016554
016556
016564

016566
016566
016574

2152
(7)

016602
016602

(6)
(3)
(4)
(4)

2153
2154
2155
(4)
(3)
2156
(4)
2157
(4)
2158
(7)
(6)
(3)
(4)
(4)
2159
2160
2161

SEQ 0068

50145%
;THIS IS JUST A DUMMY

003172

LET OUTBUF :B= #LF
MOVB
#LF ,OUTBUF
LET LUNIT := R1
s
MOV
R1,LUNIT

LET ERRFLG := #0
CLR
ERRFLG
LET R2 := LUNIT SHIFT 1
MoV
LUNIT,R2
ASL

: DETERMIN WHICH BAND, AND SEND APPROPRIATE PATTERN

2150
(4)
2151
(4)

PAGE 23-2

501458%:

002326

016530

12:06

ENDSELECT

010137

2149
(6)
(9)
(6)
(9)

000240

016520
016524
016524
016524
016530

016536
016536

(9)

50146%:
NOP

000012

(7Y
2145
2146
2147
2148
(6)

01-0CT-80

PRINTING SPEED MEASUREMENT

CASE 4

000401

112737

;

—

21%6
21%7

ooororororOrOAON

P
-

[olelelelelelele
-]

[CZLPLC.PIN

032762

001152

032762
001065
032762
001061

010000

002524

001000

(22524

002000

002524

012737

021712

020742

016574

012737

000205

003166

016606
016612
016614
016616

012746
012746
010600
104417
062706

021406
000001

016622
016664
016726
016726
016730
016730
016730
016736
016736
016744
016744
016750
016754
016756
016760
016764
017026
017070

IF #FLAG96 NOTSETIN STATUS(R2) THEN ; 64 CHAR BAND
Bxg
gs%egzb.STATUS(RZ)
N

iF WFLAG26 NOTSETIN STATUS(R2) AND #FLAG27 NOTSETIN STATUS(R2) THEN

RIT
#FLAG26,STATUS
(R2)
BNE
50153%
BIT
#FLAG27,STATUS(R2)
50153%
BNE
LET BNDPAT := #TABAG6L
MOV
#TABAGL, BNDPAT

LET WORK := #133%.

#133. ,WORK
MOV
PRINTF #LPMb4
, - (SP)
#LPM64
MOV
#1,-(SP)
MOV
MOV
TRAP

000460

50153$:

: SHOULD BE 285 LPM.

SP.RO
CSPNTF

#4,5P
ADD
OUTPUI #LPM64+4 ,#42., LUNIT
OUTPUI #OUTBUF ,#1,,LUNIT
ELSE
: IT'S AN LP26

000004

;64 CHARACTER BAND LP2S

; SEND SPEED MSG TO PRINTER TOO

50154$

012737

021712

020742

LET BNDPAT := #TABAG4
#TABAGL ,BNDPAT
MOV

012737

000205

003166

MOV

#133. ,WORK

012746
012746
010600
104417
062706

021550
000001

MOV
MOV

, - (SP)
#L26Mb4
#1,-(SP)

000004

ADD

#4 5P

. LP26 64 CHAR BAND

LET WORK := #13%.
PRINTF #L26Mb4
MOV
TRAP

OUTPUI

: LP26 64 CHAR SPEED MSG. 600 LPM.

SP,RO
CSPNTF

,LUNIT
W#L26M64+4,#42.,

ENS?;PUI #CUTBUF ,#1, ,LUNIT

; SEND SPEED MSG TO PRINTER TOO

CILPLCO LPZS, LP26 TEST
01-0CT-80

(CZLPLC.PY

30A(1052)

|
|

(4)

000551

(6)

(9)
(6)

032762
001065
032762
001061

001000

002524

002000

002524

(4)

012737

022120

020742

(4)

012737

000205

003166

012746
012746
010600

021467
000001

062706

000004

(3)
2163

(9
2164

2165
2166
(7)
(6)
(2)

104417

(4)
(4)

2167
2168
2169

12:06

PAGE 23-3

50152%:

. 96 CHAR BAND

501558

IF #FLAG26 NOTSETIN STATUS(R2) AND #FLAG27 NOTSETIN STATUS(R2) THEN

BIT
#FLAG26,STATUS(R2)
BNE
50156%
BIT
#FLAG27,STATUS(R2)
BNE
50156%
LET BNDPAT := #TABA96
MOV

#TABA96 ,BNDPAT

MOV
MOV
TRAP
ADD

#1,-(SP)
SP.RO
CSPNTF
04 ,SP

OUTPUI
#LPM96+4 ,#42., ,LUNIT
OUTPUI #OUTBUF,#1,,LUNIT

ELSE

(4)

012737

022120

020742

MOV

#TABA96 ,BNDPAT

(4)

012737

000205

003166

MOV

#133. ,WORK

(7)
(6)
(3)
(4)
(4)

012746
012746
010600

021631
000001

MOV

#L26M96,
= (SP)

062706

000004

2172

104417

2173
2174
2175

50156%:

LET BNDPAT

:= #TABA96

PRINTF #L26M9%6

MOV
MOV
TRAP
ADD

#1,-(SP)
SP,RO
CSPNTF
#4,SP

OUTPUI
#L26M96+4,#42.,
,LUNIT
OUTPUI #OUTBUF ,#1,,LUNIT

(4)

50155%:
LET LINCNT := #0
LINCNT
CLR
LET TICK := #60.

2176

SEND SPEED MSG TO PRINTER TOO

: LP26 96 CHAR BAND

: LP26 96 CHAR SPEED MSG. 450 LPM.

; SEND SPEED MSG TO PRINTER TOO

ENDIF

2177
(4)

005037

002310

(4)
2179

012737
004757

000074
017632

(6)

005337

002326

(6)

002402
000137

016524

012737

000014

2178

2180

2181

(4)

017444

(4)

017444
017444
017452

2186

;

ENDIF

50157%:

2184
2185

SHOULD BE 204 LPM.

LET WORK := #133.

(4)

2182
2183

50157%

B8R

000460

21N

:96 CHARACTER BAND

LET WORK := #135.

MOV
#133. ,WORK
PRINTF #LPMI6
MOV
#LPM96,
- (SP)

(4)

(3)
2170

SEQ 0069

PRINTING SPEED MEASUREMENT

50154$:
ELSE

(4)

2162

01-0CT-80

041142

MOV

#60.,T1CK

JSR PC,REPLUP
LET LUNIT := LUNIT - #1
LUNIT
DEC
IFCOND GE THEN
501608
BLT
JMP 11%
ENDIF
501608:

003172

LET OUTBUF

MOV

:= #14

#14,0UTBUF

OQUTPUT #OUTBUF ,#1

:CLEAR LINE COUNTER
:SET UP INITIAL CLOCK VALUE
;D0 THE OUTPUT

NNSNSNSNNNSN
Vi oo

PG
G

2187
2188

(elelelelelelelo
o]

01-0CT-B0
12:06
PAGE 23-4
CZLPLCO LP25, LP26 TEST MACY11 30A(1052)
PRINTING SPEED MEASUREMENT
CZLPLC. 11
01-0C7-80 12:06

002334

012700

000340

MOV

#PR107,RO

013700

002344

MoV
TRAP

CLRVEC CLKVEC
CLKVEC,RO
CSCVEC

012777

000000

104436

000003

TRAP

002334

0127 :0

000340

012746
012746
013746
012746

000300
007266
002344
000003

062706

000010

012777

000000

M
0010
1044461

104437

000002

017626
017626
017630

012700
104441

MOV
ENDIF

MOV

#PRI07,RO
C$SPRI

SETVEC CLKVEC,#IGNORE,#PRI06
#PRI106,=(SP)

MoV
MOV

MOV
TRAP
ADD
162520

000000

EXIT TST

104432

# IGNORE
, = (SP)
CLKVEC,=(SP)

#3,-(SP)
C$SVEC
#10,SP

LET QCLKCSR

MOV
ENDIF

SETPRI
MOV
TRA}
TRAP

.WORD

002476

:= #00

#00,aCLKCSR

IF CLKTYP EQ #2 THEN
CLKTYP,#2
CMP
50162%
BNE
SETPR]I #PRIO7
MOV
TRAP

50162%:

017620
017624

($SPRI

LET @CLKCSR

162572

50161%:

023727

"SEQ 0070

IF CLKTYP EQ #3 THEN
(MP
CLKTYP,#3
BNE
50161%
SETPRI #PRIO7

023727
001011
104441

:= #00

#00,aCLKCSR

#PRIOO
#PR100,RO
C$SPRI

CSEXIT

L10013-.

:THIS IS SUBROUTINED TO DECREASE THE SIZE OF THE INITIAL INCREMENI LOOP.
017632
017632
017632
017640
017642
017642
017646
017652
017654
017656
017662
017662
017666

REPLUP:

IF C_KTYP EQ #4 THEN
¥4
CLKTYP,
CMP

023727
001124

002334

012746
012746
010600

021051
000001

062706

000004

TRAP
ADD

005037

002306

CLR

104417

000004

BNE

50163%

MOV
MOV

#1,-(SP)
SP,RO

PRINTF HOFFLIN
MoV
#OFFLIN,-(SP)
CSPNTF
¥4 ,5P

LET FLAG := #0
FLAG

GMANIL READY,FLAG,100000,YES

;TELL OPERATOR TO PLACE PRINTERS QFFLINE

G 6
CILPLCO LP2S, LP26 TEST MACY11 30A(1052)
01-0CT-80 12:06 PAGE 23-5
PRINTING SPEED MEASUREMENT
CZLPLC P11
01-0CT-80 12:06

017666
017670
017672
017674
017676
017700
017702
017702
017702
017706
017712
017716
017720
017722
017726
017726
017732
017736
017742
017744
017746
017752
017752
017756
017762
017766
017770
017772
017776
017776
017776
020004

020006
020010
020010
020012
020012
020012
020016
020016
020016
020024
020026
020026

020032
020032
020036
020036
020036
020040
020042
020042
020042
020050
020052
020052

104443

000404
002306
000130
007072

100000

TRAP

CSGMAN

.WORD

FLAG

s
10000%:

.WORD
.WORD
.WJRD

013746
012746
012746
010600

002326
021111
000002

062706

000006

ADD

013746
012746
012746
010600
104417
062706

002326
021212
000002

MOV
MOV
MOV

000006

ADD

013746
012746
012746
010600

002326
021310
000002

062706

000006

032772
001402
000240

100000

104417

MoV
MCY
MOV

MOV

TRAP

MOV

TRAP

SEC 0071

10000%

TSCODE
READY
100000

PRINTF #ONLINT,LUNIT

LUNIT,=(SP)
#ONLIN1,=(SP)
#2,-(SP)

;PUT LUNIT

TO TEST ON LINE

SP,RO

CSPNTF

#6,SP
PRINTF #ONLIN2,LUNIT
LUNIT,=(SP)
#ONLIN2,-(SP)
#2,-(SP)
SP,RO

;END OF

TEST.

CSPNTF

#6,SP
PRINTF #ONLIN3,LUNIT
MOV
LUNIT,=(SP)

MOV
MOV

01648
002370

000772

MoV
TRAP
ADD

BIT

BEQ

50165%:

005037

002310

032772
001031

100000

013705

020742

MoV

013703

003166

MOV

S01448
002370

BIT

BNE

50170%:

005703
003417

CLR

501725

TST

BLE

032772
001007

000200

002370

BIT
BNE

032772

100000

002370

BIT

#ONL IN3,-(SP)
#2,-(SP)

SP,RC
CSPNTF
#6,5P
WHILE #BIT15 SETIN QLPCSR(R2)

; WAIT FOR LP SET ON-LINE

#BIT15,aLPCSR(R2)

50165%

NOP
NDDO

50164%

LET LINCNT := #0
L INCNT
WHILE #BIT15 NOTSETIN QLPCSR(R2) DO

;

REPEAT UNTIL LP GOES OFF-LINE

#BIT15,aLPCSR(R2)

50167%
LET RS := BNDPAT
BNDPAT,R5
LET R3 := WORK
WORK ,R3
WHILE R3 GT #0 DO

: PRINT R3 CHARACTERS

50171%
WHILE #BIT7 NOTSETIN QLPCSR(R2) DO

#8117 ,aLPCSR(R2)
50173%
If #BIT15 SETIN QLPCSR(R2) THEN
#BIT15,3LPCSR(R2)

; WAIT FOR READY

CZLPLCO LP25, LP26 TEST MACY11 30A(1052) 01-0CT-80 12:06 PAGE 23§6 .

czLpPLc.P
(9
2224

2225
(4)

2226
(4)

(3)
2227
(4)

2228
(6)

2229
(4)

(3)
2230
(3)
223
(6)

2232
(4)

(3)
2233
(4)
(3)

2234
(6)
(9)

2235
(4)

2236
(4)

01-0CT-80 12:06

020060
020062
020066
020066
020066
020066
020070
020070
020070
020074
020074
020076
020076
020100
020100
020100
020102
020102

020106
020106
020110
020110
020110
020112
020112
020112
020120
020122
020122

020130

2237

001402
000137

020224

000765

50173%:
002464

50172%

Mmove

(R5)+,aLPBU
(R2)
F

000757

50171%:

104422

005237

TRAP

002310

INC

000743

50167%:

000445

50163%:

ELSE
BR

023727
001003

002334

000003

CMP
BNE

012777

003202

162212

MOV

50176%:

002346

(4)

005037

041140

(4)

005037

002310

2240

DEC

013777

2239

50174%

005303

(4)

2238

BEQ

50174%:

112572

162202

MOV

CLR

50177%:

041140

(4)

013705

020742

MOV

(4)

013703

003166

MOV

2242

2243
(4)

2244
(4)
(6)

032772
001002
000240

(9)

2245
2246
(4)

002300

020204

000772

000200

002370

CMP

BGE

502018:

005703
003412

(6)
(9)

LET QLPBUF (R2)

50203%:

TST
BLE

; EXIT LOOF IF OFF=LINE AGAIN

:B= (RS5)+

LET RZ := RY - #

; PUT (MAR INTO LP BUFFER

; DECRIMENT CHAR COUNTER

ENDDO

50170%
;

BREAK
($BRK

ALLOW CTL=-C ABORT

LET LINCNT
L INCNT

:= LINCNT + #1

NDDO

50166%

50175%

IF CLKTYP EQ_#3 THEN
CLKTYP,#3
50176%
LET QCLKSET

:= #1666.

#1666. ,dCLKSET

;

1/60 SEC.

ENDIF

LET QCLKCSR := CLKENA
CLKENA,aCLKCSR

LET TIME
TIME

WHILE

023737
002023

JMP 99%
ENDIF

ENDDO

;ENABLE THE CLOCK TO DO ITS THING
:

:= #0

LET LINCNT
CLR
L INCNT

(4)
(6)
(9)

2241

SEQ 0072

PRINTING SPEED MEASUREMENT

:= #0
;

TIME LT PERIOD DO

REPEAT UNTIL

TIME

EXHAUSTED

TIME,PERIOD

50200%
LET RS := BNDPAT
BNDPAT RS
LET R3 := WORK

WORK ,R3
WHILE R3 GT #0 DO

;

SEND R3 CHARACTERS

50202%
WHILE #BIT7 NOTSETIN QLPCSR(R2) DO

#B117,aLPCSR(R2)

50204%

NOP

ENDDO

50203%

; WAIT FOR READY

CZLPLCO LP25. LP26 TEST MACY11 30A(1052)
CZLPLC P11

(3)
2247
(&)

01-0CT1-80 12:06

020206
020206

2248

112572

002464

(4)

000764

(6)

005237

(3)
2250

225
(&)

020222
020224
020224
020224
020224

50202%:

002310

INC

000751

PAGE 23-7

LET QLPBUF(R2)

F
(R2)
(RS)+,aLPBU

Move

DEC

[
3

50204%:

005303

2249

12:06

SEQ 0073

PRINTING SPEED MEASUREMENT

(6)

01-0CT=80

50200%:

50175%:

:B= (RS)+

;

PUT DATA

[NTO BUFFER

; DECRIMENT CHAR COUNTER

LET R := R} - 1

ENDDO

50201%

LET LINCNT
L INCNT

:= LINCNT + #1

NDDO

50177%

ENDIF

99%:

:1F MANUAL PRINT SPEED TESTS HAVE BEEN PERFORMED INSURE PRINTERS ARE
;BACK ON LINE WHEN DONE

2263

2265
2266
2267
(9)
(8)
(7)
(6)

020224
020224
020232
020234
020234
020240
020240
020244
020250
020252
020254
020260
020260
020262
020264
020266
020270
020272
020274
020274
020274
020274

002334

005037

002306

012746
012746
010600
104417
062706

006773
000001

000004

CMP
BNE
LET FLAG :=
CLR

000004

FLAG

MOV
MOV
TRAP
ADD

#1,-(SP)
SP,RO
CSPNTF
#4,SP

TRAP

CSGMAN

.WORD

FLAG

.WORD

READY

MOV

#00,aCLKCSR

GMANIL READY,FLAG,100000,YES
BR

.WORD

100000

10001%:
ENDIF

000000

,
CLKTYP#4
50205%

PRINTF #MRESET
MOV
#MRESET ,-(SP)

104443
000404
002306
000130
007072

012777

IF CLKTYP EQ #4 THEN

162036

50205%:

.WORD

:CLEAR <(R> FLAG

;WAIT FOR OPERATOR

10001%
T$CODE

100000

REPORT TOTAL NUMBER OF LINES PRINTED
020302

(3)

(4)

(3)

023727
001020

002326
002310
021004
000003
000010

020336

002310
003173

PRINTB
MOV
MOV
MOV
MOV

MOV
TRAP
ADD
PUSH

MOV
MOV

#LINPER,LINCNT,LUNIT

LUNIT,=(SP)
LINCNT,=(SP)

#LINPER,-(SP)
#3,-(SP)

SP,RO
CSPNTB

#10,5P

LINCNT,#OUTBUF +1
L INCNT,=(SP)

#OUTBUF +1,-(SP)

; CONVERT LINE COUNT TO ASCII

CZLPLCO LP25, LP26 TEST MACY11 30A(1052)
CZLPLC.PI

2269
2270
2271
2272
2273
2274
(6)
(8)
(6)
(9)

020342
020346
020410
020414

2275
2276

020476
020540

01-0CT=-80 12:06

004737

004472

004737

005466

020456

023727

00233&

000002

023727
001074

002334

000003

(6)

020466
020474
020476

(2)
(3)

020540
020544

2277
2278
2279
2280
2281
(4)
(3)

2282

2283
(4)
%%gg

020456

020464

020550
020554
020616
020622

020664
020664
020666

001404

002300
003173

004737

005466

07472

(000421

50207%:
50210%:

000207

2289

020740

000207

2292

020742

000000

2297
2298
2299
2300

020744
020767
020773
021003

046040
040
040
014

047111
047111
042523

051505
040
047503

2302
2303

021051
02111

047045

045
045

042045

022463

047045
047045
120
047045
045
047045
045

022516
022516

040445
040445
044522
040445
022516
040445
022516

051120
044124
052116
032066
034501

2304
2305
2306
2307
2308
2309
2310
2311
2312

2313

OUTPUI #SPED2,#4, ,LUNIT
PUSH PERIOD,?OUTBUF
+1
PERIOD,=-(SP)
#OUTBUF +1,=(SP)

, Thi
R
: CONVERT TIME TO ASCII

ELSE
BR

; DISPLAY THE TIME IN SECONDS

: "'SECONDS'" <Fi>

50210%

OUTPUI

#SPED4L,#1, ,LUNIT

ENDIF

: <FF>
:GO BACK AND DO IT AGAIN

:EXPECTED ERROR HANDLER

020732

2301

SEQ 0074

RTS PC

2288

2293
2294
2295
2296

JSR PC,BIN2DA
OUTPUI
#OUTBUF+3,#3, ,LUNIT
JSR
PC.QUIET
#SPED3,#9., ,LUNIT
OUTPUI

%%g?

(4)

PAGE 23-8

JSR
PC,BIN2DA
OUTPUl #OUTBUF
,#6, ,LUNIT
: DISPLAY LINE COUNT ON LP
JSR
PC,QUIET
OUTPUI #SPED1,#19., ,LUNIT
: "LINES PRINTED"
: IF A CLOCK WAS USED DISPLAY THE TIME USED ALSO
IF CLKTYP EQ #2 OR CLKTYP EQ #3 THEN
CMP
CLKTYP,#2
BEQ
50206%
CMP
CLKTYP,#3
BNE
50207%

[0}
MOV

020666

020730
020730
020730

12:06

PRINTING SPEED MEASUREMENT

50206%:

013746
012746

004737

01-0CT-B80

020732

021004

021212
021310
021341
021406
021467
021550
021631

012737

000001

002352

044501
050101

032066
034501

LPERRZ2: LET ERRFLG := #1
MOV

RTS

;:SET ERRCR FOUND

#1,ERRFLG

sAND EXIT

BNDPAT: .WORD

: CONTAINS ADDRESS OF PRINT PATTERN

SPED1:
SPED2:
SPED3:
SPED4:

/ LINES WERE PRINTED/
/ IN/
/ SECONDS/
14

.NLIST BEX
3
;ASSOCIATED MESSAGES
:

.ASCII
.ASCII
.ASCII
.BYTE

LINPER: .ASCIZ

/XNXD3XA LINES PRINTED ON LUNIT XD2XN/

OFFLIN: .ASCIZ /XNXAINSURE PRINTER(S) OFF LINE./
ONLIN1: .ASCIZ/XNXAPLACE LUNIT XD2XA ON LINE TO INITIATE TIME PERIOD FOR MANUAL/

ONLINZ2:
ONLIN3:
PRTSPD:
LPM64:
LPM96:
L26M64:
L26M96:

.ASCIZ /INXAPRINTING SPEED MEASUREMENT AND BACK OFF LINE TO TERMINATE/
.ASCIZ /XNXATHE TIME INTERVAL.IN/
.ASCIZ /PRINTING SPEED MEASUREMENT TEST 4/<12><12><12>
.ASCIZ /XINXA64 CHARACTER BAND SHOULD PRINT AT 285 LPM.IN/
.ASCIZ /XNXA96 CHARACTER BAND SHOULD PRINT AT 204 LPM.XN/

.ASC}%
.ASC

.LIST BEX
.EVEN

/XNXA64 CHARACTER BAND SHOULD PRINT AT 600 LPM.XIN/
/XNXA96 CHARACTER BAND SHOULD PRINT AT 450 LPM.IN/

;64 CHARACTER BAND

PATTERN

285 LPM / 600 LPM.

LPLCO LP2S, LP26 TEST MACY11 30A(1052)
O01-0CT=-8B0 12:06 PAGE 23-9
LPLC.P1N
01-GCT-B0 12:06
PRINTING SPEED MEASUREMENT

2314
%%}2
2317

:
LSBTTL

PRINT SPEED TEST PATTERNS

TABAGL:

.BYTE

105,061,104,075,064,041,103,136,102,060,163

.BYTE

042,062,134,054,124,101,133,101,133,043,135

021712
021715
021720
021723

105
075
103
060

061
064
136
163

104
041
102

?gz

}3?

021733

133

}g;

133

021743
021746

100
041

105
075
056

061
077
136

.BYTE

041,105,061,100,075,077,041,056,136,074,060

2320

021753
021756
021761

076
042
055

042
073
124

073
134
044

.BYTE

076,042,073,042,073,134,055,124,044,133,057

2321

021766
021771
021774

135
072
077

054
100
052

105
050
056

.BYTE

135,054,105,072,100,050,077,052,056,051,056

2322

022001
022004
022007

051
076
045

074
071
055

046
073
053

.BYTE

051,074,046,076,071,073,045,055,053,044,137

2323

022014
022017
022022

057
132
072

070
072
131

054
131
050

.BYTE

057,070,054,132,072,131,072,131,050,067,052

2324

022027
022032
022035

130

051
066
045

o7
125

127

.BYTE

130,051,127,046,066,077,126,045,125,053,065

123

137

BYTE

137,123,137,123,070,122,132,121,131,064,067

117

.BYTE

120,130,117,124,063,066,116,126,115,126,115

065

BYTE

;
125,062,065,114,123,113,122,061,121,112,064

110

.BYTE

111,120,110,117,060,117,060,063,107,116,106,012,015

022040

046
126
053

022045
022050
022053

123
132
064

070
121
067

022060
022063
022066

124
116
126

063
126
115

066
115

114
122
112

123
061
064

113
121

2375

326

022042

022055

022070

2328

022103

NN NN
=00

rorororN

NN NN

Z.07

022073
022076
022101

022106
022111
022114
022117

137

120

125

111

117
060
116
015

065

130

062

120

060
063
106

122
13

117
107
012

96 CHARACTER BAND TABLE
:

204 LPM. / 450 LPM,

MINIMUM PRINT SPEED PATTERN 96 CHARACTER BAND

SEQ 0075

CILPLCO LP25, LP26 TEST MACY11 30A(1052)

(CZLPLC.PI

01-0CT-80 12:06

2333

022120

061

2336

022133

075

758

12:06

PAGE 23-10

PRINT SPEED TEST PATTERNS

144

TABA96: .BYTE

061,055,144,047,143,043,142,041,060,052,100

174

BYTE

075,140,174,176,041,056,054,056,054,
136,042

BYTE

176,134,173,133,175,135,055,164,047,100,043

041

074

.BYTE

077,041,074,041,074,052,062,075,076,174,073

041

053

054

.BYTE

041,053,054,071,042,057,134,072,133,050,133

022207

050

135

051

.BYTE

050,135,051,164,070,100,046,124,045,123,044

2339

022222

122

067

064

.BYTE

122,067,064,137,073,132,073,132,053,131,071

2340

022235

066

057

130

.BYTE

066,057,130,072,127,050,120,151,125,070,065

2341

022250

046

124

046

BYTE

046,124,046,124.045,123,044,122,067,064,137

2362

022263

121

120

BYTE

121,132,120,131,117,066,063,130,116,130,116

126

BYTE

127,115,126,114,125,113,065,062,124,112,123

110

BYTE

111,122,110,064,061,064,061,121,107,102,106,012,015

TRAP

CSETST

N
041
100

S
060

176
05
136

041
056
042

056
054

Rt
022154
022157

1
055
100

18
164
043

18
047

2337 022174
2338

2336

2343

234

2345
2346
(3)
(3)
2347

Y
022126
022131
022136
022141
022146

022161

022253
022256
022267

N
142
052

055

01-0CT-80

077

140

124
044
064

045
122
137

022266
022271
022276

131
063
130

117
130
116

066
116

022301
022304
022307

1164
065
112

125
062
123

113
124

022314
022317
022322
022325

064
061
102
015

061
121
106

022326
022326
022326
022330

104401

022276

022311

127

111

132

115

122

123
067

064
107
012

.EVEN
ENDTST
L10013:

ENDMOD

SEQ 0076

CZLPLCO LP25, LP26 TEST MACY11 30A(1052)
01-0CT-80 12:06 PAGE 24
DAVFU ERROR DETECTION
(CZLPLC.PIY
01-0CT-80 12:06
2349
50
—

N
NN
WA WWWWWINWWN
NN
WO YooYW

362
(6)
(9)

022330

BGNMOD
14

;THIS TEST CONSISTS OF
:THAT

;1. DAVFU WILL NOT ACCEPT INCOMPLETE DATA.
;2. DAVFU WilLL NOT ACCEPT DATA THAT DOES
=

022330
022330
022330

(3)
(3)
2364
(4)

022336
022340
022342
022342

104432
001354

2366

022342

022404

(2)

022406

103402

2372
(3)
(3)

022410
022410
022412

104432
001302

2374
2375

022414
022420

005737
001002

(3)
(3)

022422
022424

104432
001270

022426

2379

022430
022430
022434
022440
022442
022444

(3)
(3)

TEST

CSEXIT

L1004~

IDENTIFICATION

TRAP

CSMANI

BCOMPLETE 1%
BCS
1%

SEXIT TEST IF NEGATIVE DETERMINATION FOR MANUAL
; INTERVENTION IS MADE

002272

EXIT TST
TRAP
CSEXIT
L10014-,
WORD
;DETERMINE IF INTERVENTION IS INHIBITED

is:

TST INHINT

BNE 2%

EXIT TST
TRAP

2%:

15.1:

104402

C SEXIT

.WORD

L 10014~

TRAP

C$BSUB

BGNSUB

:SEND MESSAGE TO OPERATOR TO SET VFU=FLS SWITCH(ES)

005037

002306

022454
022456

104443
000404

022454

.WORD

MANUAL

022450

2382

VFUOPT

TST

ENDIF

004045
000001

022450

(4)

CHARACTER.

BNE
50211%
EXIT TST
TRAP

012746
012746
010600
104417
062706

2381

(ONE)

OUTPUT #VFUERR, #32., LPERR
:DETERMINE IF MANUAL INTERVENTION IS ALLOWED

104450

(3)

INCLUDE A STOP BIT

BGNTST
5
T5:
EXIT TEST IF DAVFU OPTION IS NOT SPECIFIED
IF VFUOPT EQ #0 THEN

;PRINT

022404

022406

002274

NOT

50211%:

(3)

(7)
(6)
(3)
(4)
(4)

TWO PARTS TO VERIFY

THE DAVFU CAN DETECT ERROR CONDITIONS

:OF TWO TYPES:

005737
001002

2369

SEQ 0077

.SBTTL DAVFU ERROR DETECTION

022330
022334

2368

000004

PRINTF
#VFUSEL
MOV
#VFUSEL ,-(SP)
#1,-(SP)
MOV
MOV
SP,RO
C‘PNTF
TRAP
ADD
#4,5P
;WAIT FOR OPERATOR RESPONSE

LET FLAG := #C
CLR

FLAG

TRAP

CSGMAN

GMANIL READY,FLAG,100000,YES
BR

10000%

[CILPLCO LP25, LP26 TEST MACY11 30A(1052)

iClLPLC.P11
(4)

(%)
(%)
(5
(3)

2383
2384

01-0CT-80 12:06

022460
022462
022464
022466
022470

022470

.WORD
.WORD
.WORD
.WORD

100000

005037
0004C2

002326

(7)
(%)
(5)
(7)

005237

002326

023701
003064

002326

(4)

(7)

013702
006302

002326

(4)

005037

002306

(6)

(@)

(L)

2386
2387

2388
2389
2390
(6)
(9)

005737
0010M

002306

(6)

005262

003126

239N

2392

013737

(4)

2393

2394

002326

50213%:
50212%:

,
*

(3)
2396
(3)
(3)

. 2397
2398
(3)
(3)
2399
2400
(4)
(5)
(4)
(7)
(%)

(5)

CLR

LUNIT

INC

LUNIT

022666
022670
022670
022670

022672

50212%

LUNIT,R1
CMP
BGT
50214%
LUNIT SHIFT 1
:=
R2
LET
Mov
LUNIT,R2

ASL
R2
LET FLAG := #0
CLR
FLAG
OUTPUI #INCDAT, #41.,, LUNIT

OUTPUI #INCTBL, #5, #GETFLG, LUNIT
IF FLAG EQ #0 THEN
TST

FLAG

50215%
BNE
LET ERRTBL(R2) := ERRTBL(R2) + #1
ERRTBL (R2)
INC
LET LSLUN := LUNIT
MOV
LUNIT,LSLUN
ERRHRD 11, ERRU6
TRAP
CSERNRD
M
WORD
.WORD
ERRO6
.WORD
0

002074

ENDIF

000707

(4)

100000

:= LSUNIT - "
LSUNIT,R1
R1
INCR LUNIT FROM 00 T0O R1 BY M

(4)

2395

FLAG
T$CODE
READY

LET R1

000013
023563
000000

(%)
(%)
(5)

MOV
DEC

104456

(4)

PAGE 24-1

10000$:
;PERFORM INCOMPLETE DATA ERROR DETECTION TEST

002012

2385

12:06

DAVFU ERROR DETECTION

002306
000130
007072

013701
005301

(4)

01-0CT-80

50213%

104403

TRAP

({$ESUB

104402

BGNSUB
3.2
TRAP

($BSUB

;PERFORM STOP CODE ERROR DETECTION TEST

005037
000402

002326

005237

002326

023701

002326

INCR LUNIT FROM #0 TG R1 BY M

50217%:
50216%:

CLR

LUNIT

INC

LUNIT

CMP

LUNIT,R1

50216%

SEQ 0078

————

——————————

—

——

———————

———————————————————————————————————e——

—

CIL, .CO LP25, LP26 TEST MACY11 30A(1052)
01-0CT-80 12:06 PAGE 24-2
(CZLPLC.PT1 ~ 01-0CT-B0 12:06
DAVFU ERROR DETECTION
L

|
L

(7))

2401

(&)

022710

003163

022712

013702

002326

005037

002306

012737

000200

022712

(7)
26402
(4)

022716
022720
022720

2405

023030

2603
26,04
(4)

(5)

(&)
(7)
(5)
(5)
(7)

2406
(4)

2407
2408
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)

022724
022766
023030

023036

023040
023040
023044
023044
023052
023054

012737

000015

003172

023124
023130
023132
023136
023140
023144
023146
023152

012727
000000
013727
000000
005367
001375
005367
001367

000002

023154
023160

005737
001011

002306

023162

005262

003126

023166

013737

002326

023174
023176
023200
023202

104456
000014
023634
000000

023162

2411

(4)

2612
(4)
(5)
(5)
(5)

2613
(4)

2414
(4)
(3)
2415
(4)

2616
2617
(4)
(3)
2418
(3)
(3)
2619
(3)

50222%:
000213

2610

023166

023174

023204

023206

023214
023256
023256
023260
023260
023260
023262
023264
023264

50221%:

177772
177756

000610
104432
000432

INC

VFUCMD

CMP
BGI

VFUCMD, #213
50223%

50221

LET OUTBUF

50223$:
003172

:= #15

#15,0UTBUF

:"'CR'" TO QUTPUT BUFFER

OUTPUI #OUTBUF, #1, GETFLG, LUNIT
DELAY 2

MOV
WCRD
MOV
WORD
DEC
RME
DcC
BNE

#2,(PC)+
0
LSDLY, (PC)+
O
-6(PC)
=4
<22(PC)
.=20

3
BNE

FLAG
50224%

IF FLAG EQ #0 THEN
:= ERRTBL(R2)

INC

ERRTBL (R2)

MOV

LUNIT,LSLUN

TRAP
LWORD
.WORD
WORD

CSERHRD
12
ERKO7
O

+ M

LET LSLUN := LUNIT

002074

000715
000014

#200,VFUCMD

LET ERRTBL(R2)

50224$:

012737

MOV

002116

023204

023204
023204
023206
023206

INCR VFUCMD FROM #3200 TO #213 BY #1

002360

023062
023124

LUNIT,R2

OUTPUI #NOSTOP, #35.,, LUNIT
OUTPUI #NSTTBL. #6, WGETFLG, LUNIT

023727
003055

023054

MOV

ASL
R2
LET FLAG := #0
CLR
FLAG

002360

023154

(6)

000402

50220%

LET R2 := LUNIT SHIFT 1

005237

2,09
(6)
(9)

006302

BGT

SEQ C079

ERRHRD 12, ERRO7

ENDIF

END INC

50222%

LET QUTBUF := #14

MOV

#14,0UTBUF

EXIT TST
TRAP
.WORD
ENDSUB

CSEXIT
L10014~.

OUTPUI #OUTBUF, #1,,LUNIT
ENDINC
BR
50217%

502208:

L10016:

JU'FF'

TO OUTPUT BUFFER

\CZLPLCO LP25, LP26 TEST MACY11 30A(1052)
01-0CT-80 12:06 PAGE 24=3
| CZLPLC.P1
01-0CT-80 12:06
JAVFU ERROR DETECTION

SEQ 0080

023264

104403

TRAP

CSESUB

*EXPECTED ERROR ROUTINE FOR THIS TEST
023266
023266
023270
023272
023274
023276
023300
023302
023302

GETFLG: GMANIL RESET, FLAG, 100000, YES

104443
000404
002306
000130
023460
100000

10000$:

000207

RTS

023304
023344
023415
023460
023535

040504
040504
104
042524
042

043126
043126
053101
052123
042522

020125
020125
052506
047440
052524

VFUERR:
INCDAT:
NOSTOP:

023563
023634
023700
023705

104
040%04

053101
043126

052506
020125
002

ERRO6:

023714
023714
023714
023716

TRAP

CSGMAN

.WORD
.WORD
.WORD
.WORD

FLAG
T$CODE
RESET
100000

001
000

000

10000%

;RETURN

LNLIST BEX

RESET:

.ASCIZ /DAVFU ERROR DETECTION TEST 5/<12><12><12>
.ASCIZ /DAVFU INCOMPLETE DATA ERROR DETECTION/<12><12><12>
.ASCIZ /DAVFU STOP CODE ERROR DETECTION/<12><12><12>
.ASCII

LASCIZ

/TEST 0.K.

.ASCIZ /DAVFU INCOMPLETE DATA ERROR NOT DETECTED/

FRRO7:

.ASCIZ /DAVFU STOP CODE

NSTTBL:

.2;;5 356, 0, 0, 0, 0, 357

INCTBL:

.BYTE 356, 1, 2, 3, 357

LLIST BEX
ENDTST
104401

= PLACE PRINTER ON LINE AND DEPRESS/

/"'RETURN'' WHEN READY./<12>

L10014:
ENDMOD

TRAP

CSETST

ERROR NOT DETECTED/

CILPLCO LP25, LP26 TEST MACY11 30A(1052)
01-0CT-80 12:06 PAGE 25
CZLPLC.P1Y
01-0CT-80 12:06
DAVFU LINE COUNT PAPER CONTROL
2450
2451
2452
2453
2454
2455

SEQ 0081

.SBTTL DAVFU LINE COUNT PAPER CONTROL
BGNMOD

023716

144

;THIS TEST CHECKS THE LINE COUNT METHOD

:OF PAPER ADVANCE USING THE DAVFU. THE
;DAVFU MEMORY IS LOADED WITH DUMMY
;:DATA, AND THEN EACH OF

THE LINE COUNT

;SLEWING COMMANDS IS TESTED IN SEQUENCE

;IN THE RANGE FROM ZERO TO 15 LINES.
2461
(3)

023716
023716

2463

023716

(6)
(9)

2464
(3)
(3)

2465
(4)

2469
(7)
(6)
(3)
(4)

(4)

2471

(4)

2472
(3)
(3)
(&)
(5)
(5)
(5)
(3)

023716
023722

005737
001002

023724
023726

001472

023724

023730

002274

TST

VFUOPT

50225%

BNE

EXIT TST
TRAP
CSEXIT

104432

.WORD

ENDIF

L10017-.

50225%:

023730

OUTPUT #VFULCT, #40., LPERR

023772

PRINTF

023772
023776
024002
024004

;PRINT

012746
012746

024012

005037

002306

024022
024024
024026

000404
002306
000130
007072
100000

024012

024016
024016
024020

024030
024032

IDENTIFICATION

#VFUSEL
MoV
#VFUSEL ,-(SP)
MOV
#1,-(SP)
MOV
SP,RO
CSPNTF
TRAP
ADD
#4,SP
;WAIT FOR OPERATOR RESPONSE

004045
000001

000004

024006

TEST

:SEND MESSAGE TO OPERATOR TO SET VFU=FLS SWITCH(ES)

010600
104417
062706

LET FLAG := #0
CLR

FLAG

GMANIL READ; FLAE‘100000.YES

104443

.WORD

10000%:

.WORD
.WORD
.WORD

10000%

FLAG

T$CODE
READY

100000

024042

JINITIALIZE PARAMETERS
LET VFUCMD := #200
MOV
#200,VFUCMD
LET R4 := #0
R4
CLR
;LOAD DAVFU MEMORY
OUTPUT #VFUTBL, #18.

024104

OUTPUT #FSTMSG, #29.

024032

2475

024040

(4)

IF DAVFU OPTION IS NOT SPECIFIED

IF VFUOPT EQ #0 THEN

023730

2474
(&)

BGNTST
6
T6::
EXIT TEST

024032

012737

024040

005004

2481

024146

2483
2484

024210
024252

000200

002360

;PRINT FIRST PART OF

ZERO LINE

;sSEND ZERO LINE SLEW COMMAND
OUTPUT #VFUCMD, #1.

SLEW MESSAGE

sPRINT SECOND PART gf ZERO LINE SLEW MESSAGE
OUTPUT #SECMSG, #

LET OUTBUF

:= #15

;"'CR' TO OUTPUT BUFFER

CILPLCO LP25, LP26 TEST MACY11 30A(1052)
01-0CT =80 12:06 PAGE 25-1
C2LPLC.P1Y
01-0CT-80 12:06
DAVFU LI NE COUNT PAPER CONTROL
4)

2435
24B6
2487
(4)
(5)
(4)

(7
(%)
(5)
(7)
2488

2489
2490
(4)

2491
2492
(4)

2493
2494
2495
2496
(6)
2497
(4)

(3)

024252
024260
024322
024322
024330
024332

024344

024346
024410
024410
024416
024460
024460
024466
024530
024572
024572
024576
024576
024600
024600
024600
024606
024650
024650
024652

= OOV
NOWVESWN
=
N

012737

000402

000015

000221

005237

002360

023727
003115

002360

003172

002360

MoV
#15,0UTBUF
OUTPUT NOUTBUF, #1.

; SEND OT HER DAVFU PAPER ADVANCE COMMANDS
INCR VFUCMD FROM #221 TO #237 BY #1

50227%:
000237

012737

000015

003172

016437

024726

003172

50226%:

MoV

#221 ,VEUCMD

INC

VFUCMD

50226%

VFUCMD ,#237
CMP
BGT
50230%
;PERFORM PAPER MOVEMENT
OUTPUT #VFUCMD, #1.
LET OUTBUF := #15
MOV
#15,0UTBUF

OUTPUT #OUTBUF, #1.
LET OUTBUF := LCTTBL(R4)
MoV

LCTTBL
(R&4) ,0UTBUF

OUTPUT #OUTBUF ,#2

;APPEND MESSAGE AND PRINT MOVEMENT MESSAGE

OUTPUT #LCTMSG, #131.

062704

LET R4 := R4 + ¥2
#2,R4
ADD

000002

ENDINC

000655
012737

000014

003172

50227%
BR
502308:
LET OUTBUF := #14
MoV

EXIT TST

104432
000546

#14 ,0UTBUF

OUTPUT #OUTBUF, #1.
TRAP

.WORD

CSEXIT

L10017-.

043126

020125

.NLIST BEX
VFULCT: .Q'EIZ /DAVFU LINE COUNT PAPER CONTROL

024726

040504
024726
030460

031060

031460

LCTTBL:

024765
024774
025002

356
007
015

001

010
016

002
on
017

:
VFUTBL

’33}5356
1é 6
"BYTE 1§ 17 20, 3§

025007

124

044510

020123

FSTMSG:

LASCIZ /THIS LINE SHOULD BE PRINTED /

025044
025110
025206

046101
027056
027056
041040
040
027056
027056

020114
027056
000056
040514
051120
027056
C27056

047117
027056

SECMSG:

LASCII

045516
053105
027056
027056

LCTMSG:

024654

~N
rororornorNoRON
RN NN
WY~ o~ NNV
VA
VWA
POWNWNNUND
b b e
e e
=

012737

SEQ 0082

025402

025420
025420
025420
025422

IAscx1/010203040506070809101112131415/

ASCIl

ASCIZ

/ALL ON ONE LINE

JASCI1
MSIL

.EVEN
.LIST BE X

ENDMOD

SLEWED ZERO LINES/

/.../

7 PREVIOUS LINE ...ccovscvne-sones
Fisscssscsssnnsnsgessscnsctinssninsens /

Vosnvnnonsns / <15

ENDTST
104401

/ucoeenocsccssncsocscsosecsossncescssesssssoscssnessnncsesccanes /

JASCII / BLANK LINES SHOULD OCCUR BETWEEN YHlS LINE AND THE/

MICUL

L10017:

TEST 6/ <12><12><12>

TRAP

CSETST

O WWINWWNIN
N N NN NN VN~n
OV
NN
OV
~NONWD P

N
NN ~N
AN
A NN
AN NI w

CZLPLCO LP2S, LP26 TEST MACY11
CZLPLC.PN
01-0CT1-80 12:06

30A(1052)

01-0CT-80

025422

SEQ 0083

DAVFU CHANNEL SELECTICN PAPER CONTROL

BGNMOD
P4

;THIS

TEST

CHECKS DAVFU PAPER ADVANCE USING

;:STOP BITS LOADED IN DAVFU MEMORY. THE

;DATA FORMAT

IS SELECTED TO PROVIDE AN

;OUTPUT IN A TRIANGULAR PATTERN.
025422
025422

025422
025422
025426
025430
025430
025432
025434
025434

BGNTST
T?..

005737
001002

IF VFUGPT EQ #0 THEN

002274

TST

BNE

104432
001236

TRAP

50231%:
;PRINT

025622
025622
025630
025632
025632
025636

50231%

EXIT TST

ENDIF
TEST

CSEXIT

L10020~-.

IDENTIFICATION

OUTPUT #VFUCHL, #47.

;SEND MESSAGE TG CPERATOR TO SET VFU=FLS SWITCH(ES)

012746
012746
010600

004045
000001

062706

000004

005037

002306

PRINTF

#VFUSEL
MOV
FVFUSEL ,=(SP)

MOV
MOV

CET FLAG := #0
CLR

FLAG

TRAP

CSGMAN

JWORD

FLAG

GMANIL READY.FLAG,100000,YES

"WORD

100000

10000%:

012704
000401
005304
020427
002002
000137

000002

012737
000402

000200

005237

02652¢

#1,-(SP)
SP,RO

TRAP
CSPNTF
ADD
#4,SP
:WAIT FOR RESPONSE FROM OPERATOR

000404
002306
000130
007072

025536
025600
025604
025606
025610
025614
025616

VFUOPT

.WORD

104443

025536

:EiiT TEST IF DAVFU OPTION IS NOT SPECIFIED

104417

VIS S DN S
N
e e N SN

PAGE 26

.SBTTL DAVFU CHANNEL SELECTION PAPER CONTROL

025434

NS AN A SNV

12:06

"WGRD

10000%

TSCODE

READY

100000

;LOAD DAVFU MEMORY
OUTPUT #VFUDAT, #50.
MOV

lg.fik

;SET UP ITERATION COUNTER

2%:

DEC

;BACK UP COUNTER

1%:

000001

CMP

R4, M

;TEST FOR LAST

TIME

THROUGH

BGE
3%
;BRANCH IF LAST TIME THROUGH FALSE
JEXIT TEST
3
JMP
-SEND PAPER INSTRUCTIONS TO ALL 12 CHANNELS

026446

026522

$$: INCR INSTR FROM #200 TO #213 BY #1
50233$:

50232%:

MOV

#200, INSTR

INC

INSTR

50232%

CILPLCO LP2S5, LP26 TEST MACY11 30A(1052)

s
~ SOV~ ONO

czLpPLc.P1

01-0CT-80 12:06

025636

025644

025646
025710
025710
025/16

025760
025760
025764
025770
025770
025770
025772
025774
026036
026036
026040
026040
026042
026042
026104
026104
026112
026154
026154
026156

2575

2576
2577
(4)
(6)
(9)

2578
2579
(6)

2580
(4)

(3)
2581
2582
(4)

2583

026156
026156
026164
026166
026166
026172
026172
026200
026202
026244
026244
026250
026254
026254

026254
026256
026260
026322
026322
026324
026324
026326
026326
026370
026370
026376

023727
003144

026522

012737

000015

013703
142703

026522
000360

G
01-0CT -80 12:06 PAGE 26-1
DAVFU CHANNEL SELECTICN PAPER CONTROL

CMpP

000213

003172

BGT

INSTR, #213

50234$

;PERFORM PAPER MOVEMENT
OUTPUT #INSTR, M
LET OUTBUF := #15

#15,0UTBUF
MOV
OUTPUT #OUTBUF, #1
;GET SPACE COUNT
LET R3 := INSTR
MOV

INSTR, R3

1ST

BICB #360, R3
WHILE R3 NE #0 DO
50235%:

005703
001423

BEQ

50236%

OUTPUT #CHARSP, #

LET R3 := RY - #1
R3
DEC

005303

ENDDO

BR
50235%
50236%:
OUTPUT #CHARX, #1

000753

;SEND PRINT COMMAND TO PRINT SPACES AND X'S

012737

000015

LET OUTBUF := #15
MOV
#15,0U TBUF

003172

OgTPUT #OUTBLF s

ENDI N

000626

502348

012737
000402

000213

005337

026522
026522

026522

50233%

;DUPLICATE TEST TO REVERSE OUTPUT PATTERN
DECR INSTR FROM #213 TO #200 BY #1

50240%:

000200

P15

50237%:

MOV

#213,INSTR

DEC

INSTR

50237%

CMP
INSTR,#200
50241%
BLT
ouTP UT #INSTR, #1.
LET R3 := INSTR

MOV

026522
000360

INSTR,R3

BI(B #360, R3

50242%:

WHILE R3 NE #0 DO
TST

005303

50243%
OUTPUT #CHARSP, #1
LET R3 := R3 - #1
R3
DEC

000753

BEQ

012737

ENDDO

502438%:

000015

003172

50242%

OUTPUT #CHARX, "
LET QUTBUF := s
MOV
#15,0U TBUF
OUTPUT #OUTBUF, ",

SEQ 0084

CILPLCO LP2S, LP26 TEST MACY11
C2LPLC PN
01-0CT-80 12:06
2584

2592
2593
2594
2595
2596

2597
2598
2599
2600

2601

2602
2603
2604

026440
026440
026442
026442
C26446
026446
026454
026516
026516
026520

000137

025606

012737

000014

026604
026605

040
130

026606
026611
026614
026615
026620

026623
026625
026630
026633
026635
026640
026643
026645
026650
026653
026655
026660
026663
026665

2606

026672

003172

O01-0CT-80

12:06

ENDD EC
BR
502409
50241%:
JMP
2%
4%:
LET OUTBUF := #14

TRAP

INSTR:
VFUCHL:

;GO BACK AND TRY [T AGAIN

CSEXIT

L10020~-.

.WORD 0

LASCIZ /DAVFU CHANNEL SELECTION PAPER CONTROL TEST 7/ <12><12><12>

CHARSP:
CHARX:

.EVEN
.BYTE 40
.BYTE 130

VFUDAT:

.BYTE

356, 1,0, 2.0,4, 8

.BYTE

10, 0, 20, 0, 40, 0, 0, 1

.BYTE 0.

2.0.4,0,1,80, 2

.BYTE 0, 40, 0, 40, 0, 20, 0,
.BYTE 0: ‘o
.BYTE 20, 0,

.EVEN
ENDTST

104401

SEQ 0085

Mov
#14 ,0UTBUF
#1
#OUTBUF,
OQUTPUT

.WORD

043126
047101
042523
047511
042520
052116
042524
005012

H 7
PAGE 26-2

DAVFU CHANNEL SELEZTION PAPER CONTROL

EXIT TST

104432
000150

000000
040504
044103
020114
052103
040520
047503
020114
033440

026670
026670
026670

2605

000652

026522
026524
026532
026540
026546
026554
026562
026570
026576

(3)
(3)

30A(1052)

L10020:
ENDMOD

00 2: oo 11 ‘0: 0
10, 0, 4,0,2,0

.BYTE

TRAP

CSETST

CZLPLCO LPZ25, LP26 TEST MACY11 30A(1052)
01-0CT-80 12:06 PAGE 27
CZLPLC PN
01-0CT-80 12:06
DATA TRANSFER PATHS

|
|

2608
2609
2610
2611
2612
2613

2615

.
|

(4)

(5)

(4)
(7)

(5)
(5)
(7)

2630
(6)
(v)

2631

(4)

026672

BGNMOD
D44

;THIS TEST CHECKS THE DATA TRANSFER

;PATHS FROM THE PROCESSOR INTERFACE
;7O THE PRINTER OUTPUT. AN ALTERNATING
;PATTERN OF ONES AND ZEROES CORRESPONDING

;TO AN ALTERNATING STRING OF ''¢'' AND
:"'U"" CHARACTERS ARE TRANSMITTED ON THE

;FULL 132 COLUMNS.
;THIS PATTERN,

AFTER 16 LINES OF

THE OUTPUT PATTERN IS

;SWITCHED TO AN ALTERNATING PATTERN
;OF ""2"" AND ''@'" CHARACTERS FOR ANOTHER
;16 LINES.
8.

026672
026672

BGNTST

026672

OUTPUT #DATPTH,#30.
;PRINT ALTERNATING STRINGS OF

026734
026734
026742
026744
026744
026750
026750
026756
026760
026760
026766
026770

2632

18::

;PRINT TEST

012737
000402

000001

005237

027300

023727
003101

027300

000002

023727
001004

027300

000001

112737

000125

027236

027300

(3)

2633

112737

(4)

2634

50244%:

027236

2635

MOV

#1,PATTERN

INC

PATTERN

CMP

PATTERN,#2

MOvB
ELSE

#'U,CHAR

502448

50250%

Move
ENDIF

502508:

(4)

LET CHAR :B= #'?
#'?,CHAR

LET R4

:= #OUTBUF

#OUTBUF ,R4

(4)

012704

003172

MOV

(4)

012737
000402

000001

MOV

#1,CCNT

005237

002316

INC

CONT

023727
0030M

002316

CMP

CONT, #66.

113724
105137

027236
027236

2636
(5)

(4)

(7)
(5)
(5)
(7)

2637
(4)

2638
2639

027042
027046

INCR CCNT FROM #1 TO #66. BY #1

002316

50252%:
000102

CHARACTERS

50246%
BGT
IF PATTERN EQ #1 THEN
#1
PATTERN,
CMP
50247%
BNE
LET CHAR :B= #'U

50247%:
000077

IDENTIFICATION

INCR PATTERN FROM #1 TO #2 BY M

50245%:

000403

(4)

’

.SBTTL DATA TRANSFER PATHS

2614

2616
2617
2618
2619
2620
2621
2622
2625
2624
2625
(3)
2626
2627
2628
2629

50251$:

50251%

BGT

50253$

(R4)+ :B= (HAR
CHAR, (R4) +
MOovB
CHAR
(OMB
LET (R4)+ :B= CHAR
LET

SEQ 0086

CILPLCO LP2S, LP26 TEST MACY11 30A(1052)
01-CCT-80 12:06
DATA TRANSFER PATHS
CZLPLC.P1
01-0CT-80 12:06
(4)

2640
2641

027046

113724
105137

027236
027236

MOVB

000761

(4)

(3)

2642

50253%:

d 7
PAGE 27-1

CHAR,(R&L)+
CHAR
(OMB

ENDINC
BR

50252%

LET (R&)+ :B= #15

(4)

112724

000015

MOVB

#15,(R4)+

(4)

112714

000012

MOVB

#12,(R4)

(&)

012737
000402

000001

MOV

#1,LINCNT

(7)
(%)
(5)
(7)

005237

002310

INC

LINCNT

023727
003022

002310

CMP
BGT

LINCNT, #16.

(4)

000750

(4)

000671

(4)

112737

2643

264L
(5)
(4)

2645
2646
(3)
2647

(3)
2648
2649
2650
(3)
(3)

2651
2652
2653

2654
2655
2656
2657
2658
2659
2660
(3)
()
2661
2662

027234

104432
000046

027236
027240
027246
027254
027262
027270
027276

000000
042014
051124
051105
051510
020124
000

027300

027300
000000

LET (R&)

INCR LINCNT FROM #1

002310
50255%:
000020

50254%:

50256%:

50256%
OUTPUT #OQUTBUF, #134.

ENDINC
BR

ey
SOL .4‘:

003172

OUTPUT
TRAP

.WORD

027304

104401

50245%

CHAR:

#OUTBUF, #1
CSEXIT

L10021~-.

.WORD 0

DATPTH: .ASCIZ <14>/DATA TRANSFER PATHS TEST 8/ <12><12><12>

.EVEN
PATTERN:

.WORD 0
.EVEN

.EVEN

027302
027302
027302

50255%

IET OUTBUF :B= #14
#14,0UTBUt
MOVB

EXIT TST

052101
047101
050040
052040
005070

TO #16. BY #1

50254%

ENDINC

000014

:B= #12

ENDTST
L10021:
ENDMOD

TRAP

CSETST

SEQ 0087

CILPLCO LP25, LP26 TEST MACY11 30A(1052)
O01-0CT-80
12:06 PAGE 28
PRINTABLE CHARACTERS
CZLPLC.P
01-0CT-80 12:06
2664

>
o
o

2665

SEQ 0083

.SBTTL PRINTABLE CHARACTERS
BGNMOD

027304

3¢9

THIS TEST WILL PRINT A FULL LINE OF

2673

027304

BGNTST

2674

027304

OUTPUT #PRTCHR, #30.

(3)

027304

EACH PRINTABLE

Tq..

: PRINT TEST ID

* PRINT ALL UPPER CASE CHARACTERS ON ALL UNITS
2678
(4)
(5)
(4)
(7)
(5)
(5)
(7)

027346

027346
027354
027356
027356
027362
027362
027370

012737
000402

000040

005237

003166

023727
003045

003166

(4)

027372

012704

003172

(4)
(5)
)

027376
027404
027406

000402

012737

000001

2679

2680

)
)
)

)
1
(4)
2682
(4)
(3)

2683
(4)
2684
2685
<686
(4)
(3)

027372

027376

027406
027412
027412

027420
027422
027422
027426
027426
027430

027430
027430
027434
027476
027502
027502
027504

005237

002314

023727
003003

002314

113724

003166

INCR WORK FROM #40 TO #137 BY #1

003146
50260%:

000137

:
502578

002314

502628:

004737

005466

INC

WORK

CMP
BGT

WORK ,#137
50261%

50257%

LET R4

:= #OUTBUF

#OUTBUF
R4

INCR COUNT FROM #1
#1,COUNT

10 #132. BY M

50262%

INC

COUNT

CMP
BGT

COUNT ,#132.
50264%

MOVB

502648:

000012

#40,W0RK

MOV

50263%:

000767
112724

MOV

000204

LET

(R4)+

WORK
, (R&4) +
END INC

:B= WORK

50263%

BR
MCVB

LET

(R&4)+

:B= WLF

#LF,(R4)+

OUTPUT #OUTBUF ,#133.
JSR PC,QUIET

ENDINC

000725

50261%:

50260%

NOW DO ALL THE LOWER CASE CHARACTERS ON THOSE UNITS

; EQUIPPED WITH 96 CHARACTER BANDS.

; FIRST DETERMIN IF ANY UNITS HAVE 96 CHAR BANDS

2694
(4)
2695
(4)

027504
027504
027510

027510

005037

003166

013737

002012

LET WORK := #0
CLR

003170

CHARACTER.

BAND TYPE IS CHECKED ON A UNIT BY UNIT BASIS.
UNITS WITH 96 CHAR BAND WILL BE SENT THE CHARACTER CODES
140(8) THRU 176(8).

LET WORK1

WORK

; COUNTER FOR 96 CHAR UNITS

:= LSUNIT - #1
LSUNIT,WORK1

MOV

: GET UNIT COUNT

|
CILPLCO LP25, LP26 TEST MACY11 30A(1052)

(CZLPLC.PT

2696
(&)
(5)
(4)
(7)
(5)
(5)
(7)

2697
(&)
(7)

2698
(6)
(9)
2699
(6)
2700
(4)

2701

(&)
(3)

2702
(6)
(9)
2703
(3)
(3)
2704
(4)

27107
(4)
(5)
(4)
(7)
(5)
(5)
(7)

2708
(4)
2709
(4)
(5)
(4)

N BN = PAN
N
N
o ad wr O o S

(&)

N
~n
N
SN AN AN S AN S S

01-0CT-80 12:06

0275

0275
0275

0275
027530
027530
027534
027534
027542

027544

027544
027550

027552
027552
027560
027562
027562
027566

005337

003170

005037
000402

002326

005237

002326

023737
003012

002326

013702
006302

002326

032762
001402

010000

005237

003166

027566
027570

027570
027570
027574
027576
027576
027600
027602
027602

027602

027602
027610
027612
027612
027616
027616
027624

027626
027626
027632
027632
027640
027642
027642
027646
027646
027654
027656
027656
027662
027662
027664
027664

PRINTABLE

003170

502658%:

CH ARACTERS

B
PAGE 28-1

50265%

LUNIT

CMP
LUNIT,WORK1
50267%
BGT
LET R2 := LUNIT SHIFT 1
MOV
nglT.RZ
IF # FLAG96 SETIN STATUS(RZ2)

#FLAG96,STATUS(R2)

BIT

002524

SEQ 0089

1
WORK
#0 TO WORK1 BY #1
LUNIT

ASL

BEQ

:
502708

INC .
ENDI

THEN

: 1S THIS UNIT 96 CHAR ?

50270$
LET WORK := WORK + #1

WORK

BR
50266%
50267%:
IF WORK EQ # 0 THEN

003166

ENDIF

;

TST
BNE

WORK

TRAP

CSEXIT
L100c2-.

EXIT TST

104432
000330

.WOR D

50271%

ANY 96 CHAR UNITS ?

: ALL UNITS 64 CHAR...EXIT

50271%:

; SETUP FOR LOWER CASE CHARACTERS DISPLAY

012737
000402

000140

005237

003166

023727
003073

003166

012704

003172

012737
000402

000001

005237

002314

023727
003003

002314

113724

003166

000767

;

ENDINC

000760

005737
001002

12:06

DEC
INCR LUNIT F ROM
CLR
BR
50266%:
INC

027566

01-0CT-80

003166

50273%:
000176

INCR WORK FROM #140 TO #176 BY #1
#140,WORK
50272%
BR
MOV

50272%:

INC

CMP
BGT
MOV

002314

MOV

50276%:
000204

502758%:

, #176
WORK
50274%
LET R4 := N#OUTBUF
#OUTBUF ,R4

INCR COUNT FROM #1 TO #132. BY #
#1,COUNT

50275%

INC

COUNT

CMP

COUNT,#132.

BGT

50277%:

WORK

50277%

LET (R4)+ :8= WORK
(R4) +
,RK
MovB
WO
ENDINC
50276%
BR
LET (R4)+

:B= #LF

YES ADD 1

TO COUNT

CILPLCO LP25, LP26 TEST MACY11

(CZLPLC.PTY

01-0CT-80 12:06

027664

112724

000012

013737
005337

002012
003170

005037
000402

002326

005237

002326

023737
003031

002326

013702
006302

002326

032762
001421

010000

30A(1052)

O01-0CT-80

PRINTABLE

CHARACTERS

003170

50301%:

003170

50200%:

INC

LUNIT

CMP
BGT

LUNIT,WORK1
50302%
LET R2 := LUNIT SHIFT 1
LUNIT,R2
R2
IF #FLAG96 SETIN STATUS(RZ) THEN
#FLAG96,STATUS(R2)
50303%
OUTPUI #OUTBUF ,#133.,,LUNIT

BIT
BEQ

002524

50302%:

005466

ENDIF

030070
030076
030104
030112
030120
030126

030130
030130
030130

030132

000014

003172

104432
000042

051120
046102
051101
051522
020124
000
030130

ENDINC

50301%

JSR PC,QUIET

ENDINC

000677
112737

BR
50274%:
LET OUTBUF

040524
044103
042524
051505
005012

50273%

:B= #FF
#FF ,OUTBUF
;s EXECUTE TOF
OUTPUT #OUTBUF ,#
EXIT TST
CSEXIT
TRAP

PRTCHR:

L10022-.

.ASCIZ /PRINTABLE CHARACTERS TEST 9/ <12><12><12>

.EVEN

ENDTST
104401

; WAIT FOR ALL DON:t

MOvB

.WORD

047111
020105
041501
052040
005071

SEQ 0090

#LF,(RL)+
LET WORKT := LSUNIT - M
LSUNIT,WORK1
MOV
WORK1
DEC
INCR LUNIT FROM #0 TO WORK1 BY #1
LUNIT
CLR
50300%
BR

MOV
ASL

000741

030014
030022
030064
030064
030066

SEE
PAGE 28-2

MOvVB

50303%:

004737

12:06

L10022:
ENDMOD

TRAP

CSETST

CZLPLCO LP25, LP26 TEST MACY11 30A(1052)
01-0CT-80 12:06 PAGE 29
NON=PRINTABL E CHARACTERS
(CZLPLL.PTN
01-0CT-80 12:06
2734
2735

2736
2737
2738
2739
2740
2741
2742
2743
2744
(3)

2745

.SBTTL

030132

SEQ 0091

NON- PRINTABLE CHARACTERS

BGNMOD
s *®

;THIS TEST CHECKS FOR DETECTION OF

ALL NON-PRINTABLE

CHARACTERS.

;EACH CHARACTER WILL APPEAR ON THE PRINTER OUTPUT IN THE FORM OF ITS OCTAL
;CODE ACCOMP ANIED WITH ITS MNEMONIC.
17123 OF THE TESTED CODE ARE THEN SENT.

030132
030132
030132
030174
C30174
030200
030200

BGNTST
T10::

10.

;INDICATE TE ST CURRENTLY BEING DONE
OUTP UT #NONCHR,#71.

012704

031065

012737

000033

LET R4 := #NONBUF

MOV

LET

003170

MOV

#NONBUF , R4

WORK1 := #27.

#27. ,WORK1

DO ONE LIN E FOR EACH TABLE ENTRY
030206
030206
030212
030214
030214
030220
030220
030226
030230
030230

005037
000402

002310

005237

002310

023737
003061

002310

012703

003172

INCR LINCNT FROM #0 TO WORK1 BY #1

4
50305$:

003170

503045

CLR

L INCNT

INC

LINCNT

50304$%

L INCNT,WORK1
50306%
LET R3 := #OUTBUF
#OUTBUF ,R3
MOV
rmp

86T

: MOVE CODE AND MNEMONIC TO PRINT BUFFER
030234
030234
030242
030244
030244
030250
030250
030256
030260
030260
030262
030262
030264

012737
000402

000001

005237

003166

023727
003002

003166

MOV

50310%:
000010

50307$:

112423

50311%:

012737
000402

000001

50307%

WORK

CMP

WORK
, #8.
50311%

MOVB

000770

#1,WORK

INC

BGT

P
030264
030264
030272
030274

INCR WORK FROM #1 TO #8. BY #1

LET (R3)+ :B= (R4)+

(RG)+,(R3)+
ENDINC

50310%

PUT 120 B YTES OF CODE INTO PRINT BUFFER

003166

MOV

50313$:

INCR WORK FROM #1 TO #'23. BY M1
#1,WORK

50812¢

r————

CILPLCO LP25, LP26 TEST HSC8A1 30A(1052)
01-0CT-80 12:06 PAGE 29-1
NON=PRINTABLE CHARACTERS
01-0C7-80
1

SEQ 0092

(CZLPLC.PTY
‘

;

003166

(7)

023727
003002

003166

(&)

111423

(4)

000770

(5)

2766

030274

005237

2767
(3)
2768
2769

(&)

(4)

2774
2775
2776
2777
2778
(6)

2779
(4)

(3)
2780
2781
2782
2783
2784
2785
2786
(4)

2787

INC

WORK

CMP

WORK , #123.

BGT

MOVB

50314$:

503148

LET (R3)+ :B= (R&)

(R4) ,(R3)+
ENDINC

503138

: FOLLOWED BY CRLF

2770
271N
2772

2773

000173

50312%:

030320

112723

000015

112723

000012

LET (R3)+ :B= #15
#15,(R3)+
LET (R3)+ :B= #12
Mmove
#12,(R3)+
Mmove

: PRINT LINE OF OCTAL CODE, MNEMONIC, AND 120 BYTES(NONPRINTABLE CODE)
030324

030366
030366

030370
030370
030372

OUTPUT

#OUTBUF ,#133.

LET R4 := R4 + M

005204

INC
ENDINC

000711

50306%:

50305%

UNITS WITH 64 CHAR BAND SHOULD STRIP BIT 6 _OF DATA
AND PRINT THE DATA FOR CODES 140(8) THRU 177(8)
AS IF CODES 100(8) THRU 137(8) WERE RECIEVED.
**NOTE=+

030372
030372

012703

003172

012704
000401

000140
:
503168

50315$:

000177

50315$

INC

CMP

R4, 2177

BGT

000772

AR
SS eeR

50%17s

LET (R3)+ :B= R4

MovB
Ré.(RS)*
ENDINCR

50317%:

112723

000012

013737
005337

002012
003166

005037
000402

002326

'_'

LET R3 := #OUTBUF
#OUTBUF ,R3
INCR R4 FROM #140 TO #177 BY #1
MOV
#140,R4

110423

030442
030444

IS PRINTED AS UNDERSCORE

MOV

005204
020427
003002

DELETE

003166

; FILL BUFFER WITH CODES & LF

50316%

LET (R3)+ :B= #LF
#LF,(R3)+
Move
LET WORK := LSUNIT - #1
LSUNIT ,WORK
MOV
WORK
DEC

INCR LUNIT FROM #0 TO WORK BY #1

(LR

50321%:

LUNIT

50320%

: SEND MSG AND BUFFER TO ALL

; UNITS WITH 64 CHAR BAND

CZLPLCO LPZS LP26 TEST MACY11 30A(1052)

(CZLPLC.PT
f

(7)

.
(5)
C(5)

01-0CT-80 12:06

030444

030450
030450

030456

2793 030460

005237

002326

023737

002326

003052

(4)
(7)

030460
030464

013702
006302

002326

(6)
(9)

030466
0304764

032762
001042

010000

2794
2795

2796
2797
(&)

2798
(4)
(3)

2799
2800
(3)
zéa%

030466
030476

003166

2807

LUNIT

CMP

LUNIT,WORK

BIT
BNE

50323$:

030602
030604

000720

030646
030650

104432
000612

50322%

LET R2 := LUNIT SHIFT #1
LUNIT,R2
R2

IF #FLAG96 NOTSETIN STATUS(R2) THEN
#FLAG96,STATUS(R2)
50323%

QUTPUI #AUTCON, #61., ,LUNIT

503228:

ENDIF
ENDINCR

50321%

OUTPUT
EXIT

#SKIP3,#4
TST

TRAP
LMORD

CSEXIT
L10023-.

;AND EXIT TEST

;CHARACTER BUFFER AND TEST HEADER MESSAGE
030652
030713

030762
031060

2810
2811
2812
2813
2814
2815
2816
2817
2818
2819
2820

2833
2834
2835

SEQ 0093

OUTPUI #OUTBUF ,#33. . .LUNIT

030602

030604
030646

c_8
PAGE 29-2

INC

BGT

002524

030602

gggg

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

503208:

030540

030602

12:06

NON-PRINTABLE CHARACTERS

MOV
ASL

%gg%
2804
2805
2806

01-0CT-80

047516
101

026516
043040

051120
046125

047503
005015

042504
005012

031065
031076
031107
031120
031131
031142
031153
031164
031175
031206
031217

040
030040
040
030040
040
030040
040
030040
040
030040
040

030060
030460
030060
031460
030060
032460
030060
033460
030460
030461
030460

020060
051440
020062
042440
020064
0462440
020066
041040
020060
044040
020066

031404
031415

030040
040

031463
031460
032463

042440
020064
043440

031230
031241
031252
031263
031274
031305
031316
031327
031340
031351
031362
031373

031426

030040
040
030040
040
030040
040
030040
040
030040
040
030040
040

030040

033461
031060
030462
031060
031462
031060
032462
031060
033462
031460
030463
031460

020123
000

051440
020060
054040
020062
054040
020064
047040
020066
042440
020060
042440
020062

"NLIST -BEX
NONCHR: .ASCII
JASCIZ

/NON-PRINTABLE CHARACTERS TEST 10/<12>
/A FULL LINE OF EACH CODE WILL BE SENT/<12>

AUTCON:
SKIP3:

.ASCIZ
_ASCIZ

<15<12><12><12>

NONBUF:

.ASCII
LASCII
LASCIT
LASCIT
LASCII
LASCIT
LASCIT
LASCII
LASCII
JASCIT
LASCIT

/
7
7
7
7
7
7
7
7
7
7

JASCIT
LASCIT
LASCID

7 033 ESC/<3%>
7 034 FS /<3&>
7 035 GS /<35>

LASCIT
LASCII
LASCIT
LASCIT
LASCIT
LASCIT
LASCIT
LASCIT
LASCIT
LASCIT
LASCIT
ASCIT

/CODES 140(8) ,.177(8) SHOULD BE CONVERTED TO 100(8)..137(8)/<12><12>
:

7
7
7
7
7
7
7
7
7
7
7
7

000
001
002
003
004
005
006
007
010
011
016

NUL/<0>
SOHW/<1>
STX/<2>
ETX/<3>
EOT/<&4>
ENQ/<5>
ACK/<6>
BEL/<7>
BS /<10>
HT /7<11>
SO /7<16>

017 SI 717>
020 DLE/<20>
021 XON/<21>
022 DC2/<22>
023 XOF/<23>
024 DC4/<24>
025 NAK/<25>
026 SYN/<26>
027 ETB/<2T>
030 CAN/<30>
031 EM /<31>
032 SuB/<32>

D_8
CILPLCO LP25, LP26 TEST HACY11 30A(1052)
01-0CT-80 12:06 PAGE 29-3
a(lLPLC. 11
01-0CT-80 12:06
NON-PRINTABLE CHARACTERS

2836
2837

2838

031437
031450

2839
2840
2841
(3)
2;2%

031462
031462
031462

2843

031464

040
030040

031462

031460
033463

020066
052440

LASCIT
ASCIT

.EVEN

/7 036 RS /<36>
7 037 US /7<37>

.LIST BEX

104401

ENDTST
L10023:
ENDMOD

TRAP

CSETST

SEQ 0094

CZLPLCO LP2S, LP26 TEST MACY11 30A(1052)
CILPLC.PT1

2846
2847
2848

gggg

~ 01-0CT-80 12:06

031464

01-0CT-80

BAND PATTERN

.SBTTL
BGNMOD
144

12:06

PAGE 30

SEQ 0095

BAND PATTERN

:BAND PATTERN TEST

2851

“THIS TEST PRODUCES AN IMAGE OF THE ENTIRE BAND PATTERN. THE PRINT=-CUT

2853
2854

FORMAT:
3

2852

2855

5329

1S ORGANIZED TO LOCATE THE TOUR

QUADRANTS OF THE BAND IN THE FOLLOWING

QUADRANT NO.&

QUADRANT NO.1

QUADRANT NO. 2

QUADRANT NO.1

ETC.

QUADRANT NO.3

8
532
2860

‘THE REASON FOR THIS ARRANGEMENT IS TO FACILITATE VISUAL INSPECTION

gggg

YIN 132 COLUMNS.

2861

2864

2865
2866

%gg;

“OF THE PRINTOUT AS WELL AS TO ACCOMODATE THE 208 CHARACTERS OF THE BAND

:
:
:

STATUS(R2) FLAG96
SOF TWARE SWITCH USA

=1 FOR 96 CHAR BAND

=0 FOR 64 CHAR BAND
=1 FOR AMERICAN PRINT SET

=0 FOR BRITISH

PRINT SET

CILPLCO LP2S, LP26 TEST MACY11 30A(1052)

CZLPLC.P
2871
(3)
%g;%

01-0CT-80 12:06

031464
031464

000014

031526

2881
(4)
2882
(4)
2883
(4)
2884
(4)
2885
(4)
2886
(4)
2887
(4)
2888
(4)
2889
(4)
2890
(4)
2891
(4)
(3)

031534
031534
031540
037540
031546
031546
031552
031552
031560
031560
031564
03'S64
031572
031572
031576
031576°
031604
031604
031610
031610
031616
031616
031620

(4)

031526
031532

031620

002302

105037

033143

112737

000043

105037

033261

113737

000043

105037

033377

112737

000043

105037

033521

112737

000043

105037

033712

112737

000043

112737

000043

105037

033266

112737

000043

105037

033403

112737

000043

031664

105037

033526

(4)

031670

112737

000043

(4)

031676

105037

03377

2901

031626
031626
031632
031632
031640
031640
031644
031644
031652
031652

031656
031656
031664

031670
031676

USA
50324%

: AMERICAN, PRINT SHARP SIGN '#'

LET BP64Q2+18. :B= #0
BP64LQ2+18.
LET BP64Q2+22. :B= #43
MOVB
#43,BP6L02+22.
LET BP64Q3+3S5. :B= #0
CLRB
BP6403+35.
LET BP64Q3+40. :B= 43
MOVB
43,BP6LQ3+40.
LET BP64Q4+53. :B- #0
CLRB
BP64LQ4L+S5T.
LET BP64Q4L+ST7. :B= #43
MOVB
#43,BP6LAL+ST7,
LET BP96G2+13., :B= #0
CLRB
BP96Q2+13.
LET BP96Q2+18. :B= #43
MOVB
#43,BP96Q2+18.
LET BP96Q4+13. :B= #0
CLRB
BP96Q4+13,
LET BP96Q4+18. :B= #43
MOVB
#43%,BP96Q4+18.
ELSE
: EUROPEAN, PRINT POUND STERLING SIGN
BR
50325%
CLRB

033147

033266

033403

033526

033717
50324%:

033147

(4)

SEQ 0096

#BNDTST,#23.

IF USA NE #0 THEN

TST
BEQ

000431

105037

2900

031620

005737
001432

000043

2898
(4)
2899

IDENTIFICATION ON ALL UNITS

OUTPUT

112737

2893
(4)
2894
(4)
2895
(4)
2896
(4)
2897
(4)

PAGE 30-1

: SETUP PATTERNS FCR EUROPEAN OR AMERICAN PRINTERS

2880

2892

PRINT TEST

031464

%g;g
(6)
(9)

BAND PATTERN

12:06

BGNTST
11,
T11::
TOF = 014

53;2

%g;g

01-0CT-80

033143

033261

033377

LET BP64Q2+18. :B= #43

MOVB

#43,BP64LA2+18.

LET BP64Q2+22. :B= #0
CLRB
BP64LQ2+22.
LET BP64Q3+35. :B= #43
MOVB
#43,BP64AT+3S5.
LET BP64Q3+40. :B= #0
CLRB
BP6403+40.
LET BP64LQ4+53, :B= #43
MOVB
#43,BP64A4L+53,
LET BP64LQ4L+ST7. :B= #0
CLRB
BP64Q4L+5T.

033521

LET BP96Q2+13. :B= #43
MOVB
#43,BP9602+13.
LET BP96Q2+18. :B= #0
CLRB
BP96Q2+18.

033712

MOVB

#43 ,BPI6Q4L+13,

CLRB

BP96Q4+18.

LET BP96Q4+13. :B= #43
LET BP96Q4+18. :B= #0

(C1-0CT-80
12:06
(ILPLCO LP25, LP26 TEST MACY11 30A(1052)
CZLPLC.PN
01-0CT-80 12:06
BAND PATTERN

2902
(&)

2903

031702
031702

50325%:

2904

2905
2906

;

(4)
(6)

013701
005301

002012

(4)
(S)
(4)
(7)
(S)
(S)
(7)

005037
000402

002326

005237

002326

023701
003135

002326

(4)
(7)

013702
006302

002326

(9
(6)

032762
001025
032762
001021

001000

002524

002000

002524

2907

2908
2909
(6)
(9)

2910
2911
(6)

(9)

(6)
(9)

2913
2914

032762
001422

50327%:

503268%:

(4)

090421

2916
2917

(3)
2918
2919

:= LSUNIT - M

50326%

INC

LUNET

CMP
BGT
MoV
ASL

001000

002524

002000

002524

010000

IDENTIFICATION MSG.

LET R1

ON EACH PRINTER

LUNIT,RZ
R2

IF #FLAG26 NOTSETIN STATUS(R2) AND #FLAG27 NOTSETIN STATUS(R2) THEN
#FLAG26,STATUS(R2)
50331%
#FLAG27 ,STATUS(R2)
BNE
50331%
OUTPUI
#BPID25.,#6,,LUNIT
; PRINTER IS LP2S
ENDIF

IF #FLAG26 SETIN STATUS(R2) AND #FLAGZ27 NOTSETIN STATUS(RZ2) THEN
#FLAG26,STATUS(R2)
50332%
#FLAG27 ,STATUS(R2)
BIT
BNE
50332%
ENDI?UTPUX
#BPID26,#6, ,LUNIT
: PRINTER IS LP26
BIT
REQ

BIT
BEQ

002524

50333%:

50334%:
000636

R
LUNIT,
50330%
LET R2 := LUNIT SHIFT 1

BIT
BNE
BIT

50332%:

(6)
(9)

SEQ 0097

R
LSUNIT
R1
INCR LUNIT FROM #0 TO R1 BY M
LUNIT
CLR

(4)

2915

PAGE 30-2

PRINT PROPER BAND

50331%:

032762
001425
032762
001021

ENDIF

MOV
DEC

(4)

2912

50330%:

IF #FLAG96 SETIN STATUS(RZ2) THEN
#FLAG96,STATUS(R2)
503338
LSEOUTPUI
¥BP96ID,#22., ,LUNIT

50334%

OUTPUI

ENDIF
END INC

: 96 CHAR BAND

#BP64ID,#22.,,LUNIT

; 64 (HAR BAND

50327%

: NOW PRINT 2_LINE PATTERN 15. TIMES, WITH BLANK LINE BETWEEN PATTERNS
01737

000016

005037

002326

002310

LET LINCNT := M4,
#14, L INCNT

MOV
CLR

INCR LUNIT FROM #0 TO R1 BY #1
LUNIT

; PRINT QUADRANTS 1 & 2

CZLPLCO LP 25,

CZLPLC.PN
(S)
(&)
(7)
(5)
(5)

03223%
03223%
03223%
032242
032242

2927

032250

2928

032256

(7)

(4)
(7)

LP26 TEST MACY11 30A(1052)
01-0CT=-80 12:06
000402
005237

002326

023701

002326

032246 003101
032250
032254

013702
006302

002326

032256
032264

032762
001022

010000

032330
032330
032332

000447

032332
032340

032762
001022

(3)

032404
032404
032406

000421

2935
(4)
2936
(4)
2937
(4)
(3)

032450
032450
032450
032450
032450
032450
032452

2959

032452

(6)
(9)

2929

2930
(&)
(3)

2931

(6)
(9)

2932

2933
(&)

2934

2938
(4)
(5)
(4)
(7)
(5)
(5)

(7)

2940
(4)
(7)

2941

(6)
(9)

2942

2943

032266

032332

032342

(3)

000672

50337%:

032470

002326

032472
032476

013702
006302

002326

032500

032500
032506

032510
(032552

032554

032762
001022

000421

032616

032616
032616

032620

LUNIT

CMP

LUNIT,RT

010000

50345%:

50344%:

50347%:

503468:

50337%

LET R2 := LUNIT SHIFT 1
LUNIT,R2
R2

: INDEX INTO STATUS TABLES

1F #FLAGOE NOTSETIN STATUS(R2) THEN

ELSE
50341%

QUTPUI

#BP64LQT, #121., ,LUNIT

: 64 CHAR PATTERN

IF #FLAG26'FLAG27 NOTSETIN STATUS(R2) THEN

BIT
BNE

#FLAG26'FLAG27 ,STATUS(R2)
50342%

ELSE
50343%

OUTPUI

#BP96Q3,.#121.,,LUNIT

: LP25 96 CHAR PATTERN

CUTPUlI

#BP96Q1,#121.,,LUNIT

: LP26 96 (HAR PATTERN

ENDIF
ENDIF
BR

ENDINC
50336%

: NOW DO QUADRANTS 3 & &
CLR
BR

INCR LUNIT FRO® #0 TO R1 BY #1
LUNIT
50344%

INC

LUNIT

CMP
BGT

LUNIT,R1
50346%

MOV
ASL

LUNIT,R2
k2

oLl

LET R2 := LUNIT SHIFT 1

ELSE

QUTPUl

: INDEX INTO STATUS TABLES

#BP64Q3, #122.,.LUNIT

: 64 CHAR PATTERN

#BP96Q3,#122.,.LUNIT

: 96 CHAR PATTERN

50350%

ENDIF
Kk

: REPEAT FOR ALL UNITS

IF #FLAG96 NOTSETIN STATUS(R2) THEN

#FLAG6,STATUS(R2)
50347%

QUTPU!

50350%:

000720

SEQ 0098

#FLAGY6,STATUS(R2)
50340%

BIT
BNE

002524

BIT
BNE

50341%:

023701
003053

032472

INC

50343%:

002326

032554

2946
(4)

(02524

PAGE 30-3

50335%

MOV
ASL

002524

12:06

BGT

50342%:

005237

2944
(4)

003000

002326

032552

2945

50315%:

50340%:

005037
000402

(4)

(3)

50336%:

032406

032452
032456
032460
032460
032464
032464

01-0CT-80

BAND PATTERN

ENDINC
50345%

CILPLCO LP2S, LP26 TEST MACY11 30A(1052)
01-0CT1-80 12:06
01-0CT-80 12:06
CZLPLC.P
BAND PATTERN

2947
(6)
2948

0 32620
0 32620
0 32624
0 %2626
032632

005337
001402
000137

002310

032230

38:

PAGE 30-4

SEQ 0099

LET LINCNT := LINCNT = 21
DEC
L INCNT
BEQ
3
JMP
2%

1 DO TOF THEN EXIT
032632
032632
032640
032702
032702
032704
032706
032714
032722
032730
032735
032742
032743
032750
032751
032756
032764
032772
032777
033004
033012
033020

112737

000014

EXIT TST

104432

001070
040502
052101
052040
030461
114
040
114

LE! OUTBUF

003172

2967

2968
2969
2970

297

051522
125
054467
034445
026072
036076
040

020040
077
056124
030475
031501
043506

110

046067
034520

#T0F ,OUTBUF

TRAP

CSEXIT

OUTPUT #OUTBUF ..M

L10024~-.

042116
042524
051505
020040
031120

050040
047122
057524
040
020065

BNDTST:

.WORD
LASCII

BPID25:

LASCII

/LP2S

031120

020066

BPIDZ26:

LASCII

/LP26

020064
041040
040520
005116
020066
041040
040520
005116

044103
047101
052124
012
044103
047101
052124

BP64ID:

LASCII

/64 CHAR BAND PATTERN/<12><12>

BP96!D:

LASCII

/96 CHAR BAND PATTERN/<12><12>

64 CHAR BAND PATTERN

BP64Q1:

LP¢S & LP26

LASCII

042103
044510
046462
050464

LASCII

/ABECDTFGOMIJIKL2MN3OP4QRSS/

054127
025537
024052
035455

LASCII

JUVOWXTYZB _+X98)*(:,/<57>/%=;><./

LASCII

055535
021536
023462
042064

LASCII

F7QELT\"'C*#=1'#2"A3BC4DFGS/

045512
047516
051452

LASCII

. /<12>
QR*SU,
VW=-XYZ
/H16JKTLMBNOPI

020040
040
042502
030107
046113
050117
065
033126

020040

020040
0

020040

034132
024446
022057
05¢

/BAND PATTERN TEST_11

012

;

033025
033032
033035
033042
033050
033056
033064
033067

:B= #TOFf

Move

BP64Q2:

01-0CT-80
12:06
CZLPLCO LP2S5, LP26 TEST MACY11 30A(1052)
12:0
PATTERN
BAND
6
01-0CT-80
CZLPLC.P

053526
005056

054055

020040

2974

022505
035060
031076
032135

2975

2972
2973

2976
2977
2978

2979

2980
2981
2982
2983
2984

033310

027115

033312
033320
033322
033330
033336
033344
033352
033354
033362
033370
033376
033404

020040
020040
047516
051522
054061
025463
032450
027472
036076
05547
021454
027047

033410
033416
033420

033426
033434

2985

2986

2987

2989
2990

2991
2992
2993
2994

033477
033500
033503

BP64LO3:

PAGE 30-5

SEQ 0100

LASCII

052046
022057
037474
056133

LASCII

/_+EXRT)(0:/<57>/81;52<23214[\"'5/

036466
040470
025106
026512

033441
041502
044107
046113

LASCII

/*#6="78"'BABCIDF*GH, [J=KLM./

020040

LASCII

050105
052460
031131
032045

052121
053526
057532
024446

LASCII

/NOEPQTRSOUVWIXY2Z
_3+%4R) (5/

022066
037470
025134
026475
005012

033473
056500
057042
0214461

LASCII

_i/6%;7><B2I9[\
" a== 10", _<12><12>

BP64Q4:

' 96 CHAR BAND
BP96Q1: LASCII

LP25 = 03..04

LP26 = Q1..0Q4

020040
020040
041101
043506
045462
050117
032524
053125
057532
024470
035453

020040

042103
044061
046514
032121

042460
04511
031516
051522

LASCII

/ABCDOEFGIHIJ2KLMN3OPQ4LRSTS/

054127
022067
035050

054466
023045
034457

LASCII

{UVWX6YZ
_TSXRB) (:/<57>/9+;>/

037474

100

.BYTE
LASCII
.BYTE

145

020040
020040
055535
174
075
055

020040

LASCII

021134

021454

020452

023443

LASCII
.BYTE
LASCII

8/
/1L \"",
174
/=t 8-/

176
177

.BYTE

175,173,176,136,56,177,140,141,60,142,143,144,61

142

05
141
143

145

164

175
136
140

076

060
144

BP96Q2:

/<?a/
164

12:06
CILPLCO LP25, LP26 TEST H5(521 30A(1052)
01-0C7-80
CZLPLC.P
01-0C7-80
1
BAND PATTERN

2998
2999
3000
3001
3002
3003
3004
3005

3006
3007
3008

3009
3010
3011

3012

3013

3014

3015
3016
3017
(3)
(3)
3018

033601
033606
033611
033616
033624
033625
033626
033632
033633
033640
033643
033650
033656
033664
033672
033675
033702
033705
033712
033713
033714
033722
033725
033730
033733
033736
033737
033742
033745
033750

033753
033756
033761
033764
033766
033771

033774
033774
033774
033776

040
020040
135
043
174
032475
175
136
140
142
on
146
151
153
155
054
162
165
055
171
012

020040
040
041502
034507

146,147,150,151,62,152,153,154,63,155,156

5
5

- e e

147
062
154
156
064
162
165
066
171
012

6
6
6

2997

061
146
151
153
155
157
161
065
167
170
067
:
040
020040
101
043105
112
145
046113
164
117
052123
125
055131
030046
025461
040077

~nN

2996

033545
033546
033551
033554
033557
033561
033564
033567
033572
033574
033577

2995

157,64,160,161,162,163,65,165,166,167,66

.BYTE

170,171,172,67,12

LASCII

/ABCDBEFGIMHIJ/

.BYTE
LASCII
.BYTE
LASCII

145
/KLMN/
164
/0PQ ,RST+/

LASCII

JUVWX=YZ_.$%80) (:/<57>/1+;>2¢<3a3/

LASCII

032042

LASCII

/I0N""4n/

033047

.BYTE
LASCII
.8YTE

174
/=5'4'6/
175,173,176,136,67,177,140,141,70,142,143,144,
7

.BYTE

146,147,150,151,145,152,153,154,164,155,156,157

.BYTE

54,160,161,162,163,52,165,166,167,55,170

.BYTE

171,172,56,12,12

020040

BP960Q3:

034104
044510

047115
050520
052
053526
027137
024051
037073
063
020040
040
056133

021441
173
067
141
143
147
145
154
156
160
163
166
170
172
012

K 8
PAGE 30-6

051054

026530
022444
027472
036062
020049

176

BP96Q4:

033774
104401

CSETST

SEQ 0101

CZLPLCO LPZ5, LP26 TEST MACY11 30A(1052)

CILPLC.P11

01-0CT-80 12:06

ggg?
3022

3031

3033
%8%2

gggg

033776

033776
033776

034040
034046
034050

OUTPUT #HAMFIR,#33.

012737
000402

000001

034050
034054

005237

003166

034062

023727

003123

003166

034054

3043

034064

3044

034070

034064

012704

003172

034070
034076

012737
163737

000204
003166

003166

000204

034400
034400

(4)
(6)

(9)

3049
(4)

3050

034104
034104
034110

034112

034116

005737
001405

WORK

CMP

WORK ,#132.

5035%s

sALSO NUMBER OF PRINTING CHARACTERS

LET R4 := WOUTBUF

:OUTPUT BUFFER POINTER

LET SPCCNT := #132. - WORK

:NUMBER OF SPACES TO FILL IN

MOV

#OUTBUF
R4

MoV
SUB

#132.,SPCCNT
WORK ,SPCCNT

112724

ST
BEQ

SPCCNT
50355%

000040

MOVB

#40, (R4) +

034400

DEC
ENDDO
HR
50355$:

LET SPCCNT := SPCCNT - #1

005037

002316

(4)

034130

012737

000077

002322

034136

012737

000041

002320

034124

034130

3054 034136

:SPACE FILL

LET (R4)+ :B= #40

034124

(4)

INC

BGT

50354$:

034400

(4)

3053

#1,WORK
50351%

WHILE SPCCNT NE #0 DO

034104

005337

3052

50351%:

MOV
fo

;FILL THE OUTPUT BUFFER WITH THE REQUIRED NUMBER OF SPACES

034116
034122
034122
034124

(6)
3051
(4)
(3)

:NUMBER OF LINES TO OUTPUT

INCR WORK FROM #1 TO #132. BY M
50352%:

%82?
3048

12.

:OUTPUT THE ACTUAL WEDGE AT THIS POINT

(7)

(4)
362%

SEQ 0102

SPURIOUS HAMMER FIRING

BGNTST
T12::

033776

(7)
(5)

(«)

:PRINT THE TEST HEADER

034040

ggzg

rue PURPOSE OF THIS TEST IS TO DETECT SPURIOUS HAMMER FIRINGS AND DEFECTIVE
*HAMMER DRIVERS DURING THE OPERATION OF THE LINE PRINTER. THE PROGRAM
:PRODUCES A LEFT WEDGE PATTERN CONSISTING OF 132 LINES OF PRINT WITH EACH
:LINE BEGINNING WITH A '*2'" CHMARACTER. ANY POINT OUTSIDE THE WEDGE
BOUNDARIES IS CAUSED BY HAMMER MISFIRES OR BY HAMMER BOUNCE.

3040

(5)

PAGE 31

BGNMOD

%ggg
(4)
(5)
(&)

12:06

LSBTTL SPURIOUS HAMMER FIRING

3025
3026
3027
3028
gggg
3032
(3)

O01-0CT-80

000770

SPCCNT

:UPDATE FILLER COUNTER

50354%

LET CCNT := #0
CLR

CCNT

MOV

#77,CHRGEN

MOV

#33. ,STRCNT

LET CHRGEN := #77

LET STRCNT := #%3.

:FIRST CHARACTER A '"2*

:# OF CHARACTERS IN GROUP

CZLPLCO LP25, LP26 TEST MACY11 30A(1052)

(CZLPLC.P1T

|
|

01-0CT-80 12:06

3055

034144

(9)

034152 002022

(&)
(&)

3056
(6)

ség;

034144
03146

034154

034160

(&)
3061
(4)
3062
(4)
3063
(&)
3064
(6)

034162
034170
034170
034176
02176
03417
034176
034202

023737

005737

001006

002316

003166

(4)

§8§§

3074

3075

%8;9

50360%:

005337

034220

034374
034374

CHRGEN

INC

CCNT

:UPDATE POINTERS AND COUNTERS

STRCNT

DEC
ENDDO

002320

000752

50357%:

112724

5035¢$

LET (R&)+ :B= #12

000012

MOV3

:OUTPUT THE

OUTPUT #OUTBUF+132.,#1

END INC

000647

50353$:

: SEND THE DATA, NO LF YET

: THIS MAKES SURE OUTPUT S SENT

: BEFORE CHANGING OUTBUF DATA !

50352%

OUTPUT W#SKIP3,#4

034332

034376

#12,(R&)+

LINE

OUTPUT #OUTBUF ,#132.

EXIT TST

104432

CSEXIT

TRAP

L10025-.

WORD

000046

:COUNTERS, POINTERS, TEXT BUFFER,
034400

;TEST HEADER

034402

034410
034416

050123
051525
042515

AND HEADER FOR TEST PRINTOUT

SPCCNT: .WORD 0

000000

3087

3089

INC

LET STRCNT := STRCNT - #1

%8%2

3088

LET (R&4)+ :B= CHRGEN
CHRGEN, (R4) +
MOVB

LET CCNT := CCNT + M

034266

3081
(3)

gggg

#77,CHRGEN

LET CHRGEN := CHRGEN + #1

034224

034330
034330
034332

3635

#33. ,STRCNT
LET CHRGEN := #77

:NOW SET UP LINE TERMINATOR AND OUTPUT THE LINE.

3078
(4)
(3)
3079

3080

LET STRCNT := #23,

MOV
ENDIF

gggg

3071

GROUP POINTERS AND COUNTERS

002322

002316

034216
034220

50360%

000077

005237

034212
034216

STRCNT

BNE

012737

034206

(4)
3623

(6)
3067

50357$

MOV

002322

:NOW FILL IN REST OF BUFFER

IF STRCNT EQ #0 THEN

002320

005237

034212

SEQ 0103

CCNT,WORK

000041

034202

3066

CMP

BGE

012737

002322

034206

(6)

503568

002320

113724

3065

PAGE 31-1

SPURIOUS HAMMER FIRING

:RESET
034162

12:06

WHILE CCNT LT WORK DO

%823
3060

01-0CT-80

051125

044040
020122

047511

046501
044506

HAMFIR: .ASCIZ

MESSAGE

/SPURIOUS HAMMER FIRING TEST 12/<12><12><12>

CZLPLCO LP25, LP26 TEST MACY11 30A(1052) 01-0CT-B0 12:06 PAGE 31-2
(CZLPLC.PT1 " 01-0CT=B0 12:06
SPURIOUS HAMMER FIRINC
034424
034432
034440

044522
051505
005012

04351 6
02012 4
00001 2

0 5 2V 4 0
0 3 10 6 1

.EVEN

034444
034444
034444
034446

ENDTST

104401

L10025:
ENDMOD

TRAP

(SETST

SEQ 0104

———

CZLPLCO LP2S, LP26 TEST MACY11 30A(1052)

(C2LPLC.PTY "

VS W
‘\_a_a_aw_a_a—a_l—o_n_aooogooo
OO NOWNS
NN 20OV
N

034446

SEQ 0105

;TRIS TEST CHECKS THE PRINT CONTROL BY SENDING MORE THAN 132 CHARACTERS

;BEFORE SENDING A PRINT COMMAND. ALL CHARACTERS IN EXCESS OF 132 CHARACTERS
;SHOULD BE DISREGARDED.
; THREE LINES ARE PRINTED PER ITERATION, THESE LINES WILL IDENTIFY THE

D i

; COLUMN NgHBERS ACRgSS THE PASE. EXAMPLE :

D i

123456789012345678901234567890 000 nvvunvnnes

012

; NOTICE THAT THE PRINTOUT SHOULD IDENTIFY 132 COLUMNS ACROSS THE PAGE.

D D

WVISN S DN S NN
o
e r BN NN

]

J4e

PAGE 32

BGNMOD

NN NN NN N N N

oy D i
D i

WINIWN

P
W

-‘—l—.AgAA —_—

NN SSNVWE NN
O NON NI~
BN

-l g~
il
o~ —
T~ T~ T~

PRINT CONTROL

12:06

.SBTTL PRINT CONTROL

B o

3099
3100
310
3102

01-0CT-B0 12:06

01-0CT-80

; THIS OUTPUT IS REPEATED 16 TIMES.

034446
034446

§$§rsr

034445
034510
034510
034516
034516
034516

OUTPUT WPRTCTL, #56.

;PRINT TEST IDENTIFICATION

012737

000020

012705

035512

002314

005715
001421

#16.,COUNT
MoV
1%:
1ET RS := MTABLE1
#TABLE1,RS
MOV
i
WHILE (RS) NE #0 DO
50361%:
TST
(RS)
ENDDO

50362%:

112737

000012

012705

035546

003172

50361%

LET OUTBUF :B= #12
#12,0UTBUF
Mmove
,#1
OUTPUT #OUTBUF

LET RS := WTABLE2
#TABLE2,RS
MOV
WHILE (R5) NE #0 DO
50363%:
(RS)
TST
50364%
BEQ
OUTPUT (RS)+,#10.

005715
001421

ENDDO

000755

50363%

50364$:
OUTPUT #OUTBUF ,#1

034712

034754
034754
034762
034764
034764
034770

LET COUNT := #16.

50362%
BEQ
OUTPUT (R5)+,#10.

000755

034640
034640
034644
034644
034644
034646
034650

13.

012737
000402

000016

005337

002310

DECR LINCNT FROM #14. TO #1 BY M
50366%:

503658

MOV

#14., L INCNT

DEC

L INCNT

50345$

——

—

j .

{

CZLPLCO LP2S, LP26 TEST MACY11 30A(1052)

(CZLPLC.PTY

023727
002422

gufl
NN~

WNNLNWN
S~
O 00 N~~~

|
|

01-0CT-80 12:06

005737
003402
000137

012737

3156

3157
3158
3159

3160
3161

000014

040
020040
040
020040
040
020040
040
020040
040
020040
040
020040
040
020040
040
020040
040

020040
020040

035477

50367%

TST

COUNT

BLE

034516

035333

035434
035441
035446
035453
035460
035465
035472

M
LINCNT

CMP

BLT

IF COUNT GT #0 THEN

002314

047111
052116
042524
005063
052517
047510
020062
047115
047111
006412

3155

,#1
OUTPUT #OUTBUF
LET COUNT := COUNT - #1
COUNT
DEC

002314

051120
047503
020114
030440
044123
051440
031461
052514
051120
005104

3154

PAGE 32-1

- 50366%
BR
50367%:
,#1
OUTPUT #OUTBUF

035242
035250
035256
035264
035270
035276
035304
035312
035320
035326

3153

ENDDECR

104432
000342

3152

12:06

OUTPUT #x11,#10.

035236
035240

315

PRINT CONTROL

000001

000750

005337

3149
3150

002310

01-0CT-80

ENDIF

003172

JMF 18

:
503708
LET QUTBUF

MOV

:= #14

PRTCTL:

042114
020127
047503
020123
042524
000

020040
040
020040

020040

020040
060
020040
061
020040
062
020040
063
020040
064
020040
065
020040
066
020040
067
020040
070
020040
071

061

031462

032464

#14 ,0UTBUF

OUTPUT NHOUTBUF ,#1
EXIT TST
TRAP

020124
047522
052123

50370%

CSEXIT

.WORD

L10026-.

.ASCII

/PRINT CONTROL TEST 13/ <12>

LASCIZ

/SHOULD SHOW 132 COLUMNS PRINTED/<12><12><15>

X0:

LASCIT

X1:

LASCIT

X2:

LASCIT

X3:

LASCIT

Xé:

LASCID

X5:

ASCID

X6:

LASCIT

X7:

LASCIT

X8:

LASCIT

X9:

LASCIT

9/.

X11:

LASCIT

71234567890/

SEQ 0106

CILPLCO LP25, LP26 TEST MACY11 30A(1052)

CLpPLc.P
3162
3163
3164

3165

3166
3167
3168
(3)
(3)

3169

035504

035512
035520
035526
035534
035542
035546
035554
035562
035570
035576
035602
035602
035602

035604

01-0CT-80 12:06
033466
035512
035333

035333
035333
035345
035345
035345
035403
035441
035333
035371

104401

034470

060

035333
035333
035333
035345
000000
035357
035415
035453
035345
000000

035333
035333
035333
035345
035371
035427
035465
035357

01-0CT-80

PRINT CONTROL

12:06

0.9
PAGE 32-2

LEVEN
TABLET1:

.WwORD

x0,x0,x0,x0,x0,x0,x0,x0,x0,x1,x1,x1,x1,0

TABLE2:

.WORD

X1,%2,X3,X&,XS5,X6,X7,%X8,%9,%x0,%1,%x2,%3,0

.EVEN
ENDTST
L10026:
ENDMOD

TRAP

CSETST

SEQ 0107

‘

e
O
T
T
e
e

WNWIWKN

—D

(] W

Oo 0o WOOOOENOOO
N NNNNNNN
own BN~ =200V
o ANl
e

NN
W NN

CILPLCO LP25, LP26 TEST MACY11 30A(1052)
01-0CT-B0 12:06
CILPLC.PTI
01-0CT-80 12:06
CRITICAL PATH

3187

LSBTTL
BGNMOD
STARS

AR AR

PAGE 33

SEQ 0108

CRITICAL PATH
AR R

A A

ARl

s 99

;THIS TEST ATTAINS THE HIGHEST POSSIBLE PRINTING SPEED BY SELECTING
;A DATA PATTERN WHICH EXERCISES THE PRINTER AT THE MAXIMUM DUTY CYCLE OF
;THE HAMMERS,THE TIMING LOGIC, AND THE POWER SUPPLY. A TOTAL OF

;LINES OF A WORST CASE PATTERN ARE PRINTED.
035604

STARS

035604
035604

BGNTST

14.

035604
035646
035646
035654
035660
035660
035664
035666
035666
035672
035672
035700
035702
035702
035706
035710
035710
035716
035720
035726

OUTPUT #CRTPTH,#24.

035730
035730
035736
035740
036002
036002
036004
036004
036046
036046
036046
036046
036050
036050
036050
036056
036060

32 LINES

'.'t.i""i"'."."""'"'"'""'Q.""""Qt""'i"'.l"""'

T14::

013737
005337

002012
003166

005037
000402

002326

005237

002326

023737
003143

002326

013702
006302

002326

032762
001054
032762
001050

001000

002524

002000

002524

032762
001022

010000

002524

003166

LET WORK := LSUNIT = #1
MOV
DEC

LSUNIT,WORK
WORK
INCR LUNIT FROM #0 TO WORK BY #1
LUNIT
CLR

50372%:
003166

000421

50371%:

002524

002000

002524

LUNIT

CMP

LUNIT,WORK

MOV
ASL

LUNIT,R2
R2

IF #FLAG2S NOTSETIN STATUS(R2) AND #FLAG27 NOTSETIN STATUS(R2) THEN

50374%:

001000

INC

BIT
#FLAG26,STATUS(R2)
BNE
50374%
#FLAG27,STATUS(R2)
BIT
BNE
50374%
: UNIT IS AN LP25
IF #FLAG96 NOTSETIN STATUS(R2) THEN
#FLAGY6,STATUS(RZ)
BIT
50375%
BNE
OUTPUI #TAB64,#110.,,LUNIT
432,

50376%:

032762
001453
032762

50371%

50373%
BGT
LET R2 := LUNIT SHIFT #1

50375%:

000457

-BR

ELSE

50376%

OUTPUl #TAB96,#132.,,LUNIT
#32,

ENDIF

ELSE

BIT
BEQ
BIT

50377%

IF #FLAG26 SETIN STATUS(R2) AND #FLAG27 NOTSETIN STATUS(RZ) THEN
#FLAG26,STATUS(R2)
50400%
#FLAG27,STATUS(R2)

CILPLCO LP25, LP26 TEST MACY11 30A(1052)
01-0CT-B0 12:06
CZLPLC.P11
01-0CT-80 12:06
CRITICAL PATH
(9)

036066

001047

(6)
(9)

036070
036070
036076

032762
001022

3202

036142

3199
3200

3201

(4)
(3)

3203
3204
(&)

036100
036142
036144

000421

3207

036206

(3)
3208
(4)
gg?g

036210
036210
036210
036216

036206

504008:
50377:

112737

3211

036260

036262

001022

036264
036272

051103
046101

(3)

3213

3214

036260

036300
036306
036314

g%}g

3217

3218

3219

3220

3221

3222

000014

020110
030440
__ 000
036316

052111
050040
042524
005064

041511
052101

061
1R
060
067
132
115
046
121

036362
036365
036370

115
046
121

045
120
072

055
130
160

066
056
123

123

OUTPUL #T2696,#133., LUNIT,#32.

ENDIF
BR

503728

LET OUTBUF :B= #FF
MOVB
#FF,0UTBUF

;

DO A FORM FEED

OUTPUT #OUTBUF ,#1

CRTPTH:

TRAP

CSEXIT

WORD

[10027-.

.ASCIZ

/CRITICAL PATH TEST 14/<12><12><12>

(EVEN

067
He
045
111
061
137
063
052

036375
036400
036403

504028

;64 CHARACTER BAND PATTERN

036331
okesh
036337
036342
036344
036347
036352
036355

072

OUTPUL #T2664,#133.,
LUNIT, #32.

052123
005012

105
065

106
127

ELSE

ENDIF

EXIT TST

104432

064
104

036372

#FLAG96,STATUS(R2)
504018

ENDIF

003172

101
122

036357

BIT
BNE
BR

50373$:

036316
036321

036326
036327

504008

END INC

000627

SEQ 0109

BNE

504028:

036206

: UNIT IS AN LP26
IF #FLAG96 NOTSETIN STATUS(R2) THEN

504018

036206

036206
036206
036206

(4)

002524

026144
036206

3205
(&)
3206
(4)

010000

PAGE 33-1

126
1M

123

057

TAB64:

CRITICAL HAMMER FIRE PATTERN 64 CHARACTER BAND

.BYTE

101,064,105,122,104,065.106,126,060,127,111

132
188
127

BYTE

067,061,132,114,137,115,045,060,127,111,067

114

BYTE

061,132,114,137,115,045,063,046,120,052,121

057

BYTE

072,123,057,115,045,063,046,120,052,121,072

125

BYTE

123,057,125,055,086,076,130,056,131,100,123

060

045
120

063
052
076
131

3242

— O
Owwn
OoOoOwW

OO
NWN
OO
—=

.BYTE

101,074,102,077,064,105,106,133,065,012,012

012

.EVEN

*96 CHARACTER TABLE

036604
036607
036611

132
042
040

133
045
070

103
5

:
TAB96:

CRITICAL HAMMER FIRE PATTERN 96 CHARACTER BAND
101,064,103,123,060,065,106,126,061,130,111
.BYTE

061

.BYTE

131,062,137,114,044,116,046,061,130,111,131

.BYTE

062,137,114,044,116,046,117,051,121,072,122

.BYTE

071,124,073.116.046,117;051.121.072.122,071

BYTE

124,073,125,145,127,077,066,136,132,133,124

BYTE

073,125,145,127,077,066,136,132,133,067,042

BYTE

045,040,070,075,050,041,132,133,067,042,045

.BYTE

040,070,075,050,041,057,047,053,175,076,176

137
—

064
060
126
11
062
044
061
131
137
116
051
122
124
046
121
on
073
127
136
124
125
077
132
042
040
050

W=
OO

101
123
106
130
131
114
046
11
062
044
117
072
on
116
051
122
124
145
066
133
073
127
136
067
045
075

— D -

036474
036477
036502
036505
036507
036512
036515
026520
036522
036525
036530
036533
036535
036540
036543
036546
036550
036553
036556
036561
036563
036566
036571
036574
036576
036601

3241

073,701,051,136,050,075,054,041,044,062,073

NS
—=
—=ovs

3240

.BYTE

N=N
ONW

3239

-124,071,042,051,136,050,075,054,041,044,062

3238

.BYTE

— D -

3237

053,124,071,042,051,136,131,100,070,135,053

WWNND
RNV

3236

012

.BYTE

TM ]

3228
3229
3230
323
3232
3233
3234
3235

036472

057,125,055,066,076,130,056,131,100,070,042

WO
WOV

3227

.BYTE

OB
N
N=O

3226

125
076
131
042
124
051
100
053
on
136
054
062
101
050
041
073
074
064
133

[ TeTe]

3225

057
066
056
070
053
042
131
135
124
051
075
044
073
136
054
062
101
o77
106

3224

036405
036410
036413
036416
036420
036423
036426
036431
036433
036436
036441
036444
036446
036451
036454
036457
036461
036464
036467

3223

G_9
PAGE 33-2

0O
VS
o

CILPLCO LP25, LP26 TEST MACY11 30A(1052)
01-0CT-80 12:06
czLpLc.P
01-0CT-80 12:06
CRITICAL PATH

SEQ 0110

3256

3257
3258
3259
3260
3261

012

.BYTE

150,012,012

00O

012

036665

: LP26 96 CHAR PATTERN
041501
050463
050116
050116
022537
022137
022132
056477
056477
056164

.ASCII

/ACE1JL3QR1J2NPRSWENP2L36_X) Tv6_$8:+/<145>

LASCIT

/71%8:4>723°'(9>7] #'</<164>/\ «'/<175>

JASCIZ

/72 ,=8/A1755/20/<142><1446><147><175><176><177>

BYTE

60,144,147,62,154,155,60,144,146,151,11%,155,64

.BYTE

162,65,151,153,155,157,161,65,167,171,101,157,161

.BYTE

65,167,170,67,103,105,71,166,170,67,103,105,107

LASCII

/IKNB3GIKNO,TH/<145>/M0,T/<12><12>

T2696:

030505
030522
032522
046062
052051
035070
035070
024042
025040
025040
036454
062142
ooC
144
154
Tak

113

wvioswn

036670
036676
036704
036712
036720
036726
036734
036742
036750
036756
036764
036772
037000
037003
037006
037011
037014
037017
037020
037023
037026
037031
037034
037035
037040
037043
037046
037051
037052
037060
037066
037074

NN N -

3255

040,040,040,060,040,040,040,040,040,040,040

wVowno

3254

.BYTE

3253

040
040
040

—

3252

056,100,140,135,060,134,143,054,061,040,040

nessun

3251

.BYTE

134
061

D D

3246
3247
3248
3249
3250

140

676

— e

3245

074,056,050,041,057,047,053,175,076,776,074

Voo

BYTE

— — —d —D

3244

DODNON

3243

036617
036622
036624
036627
036632
036635
036637
036642
036645
036650
036652
036655
036660
036663

~NO

036614

wviN

01-0CT-80 12:06

To00 P 39%3

CZLPLCO LP2S, LP26 TEST MACY11 30A(1052) 01-0CT-80 12:06
CRITICAL PATH
czLPLc.P

043470
052054
052054

: LP26 64 (HAR FATTERN
037076

042501

030124

046112

12664:

.ASCII

/AETOJLNPQOJKMOQS6XMOQSVXZ
+&SVXZ+9/

SEQ 0111

3262

3263

3264

3265
3266
3267
(3)
(3)

gggg

037104
037112
037120
037126
037134
037137
037144
037152
037160
037166
037174
037202
037207
037214
037222
037230
037236
037244
037252

037257
037264
037272
037300

0501
047
047
02
0

30A(1052)

b-.jo-‘—‘—‘

CILPLCO LP25, LP26 TEST
czepLc.P
01-0C7-80

0
0
0
0
0
043
047
047114
047114
057531
027130
027130
057
027450
035042
005042

LASCIT

PAGE

/78,-Y_9#,$>21):$>7170=;
ET0=#"'B[""! 'BDGI 2/

026471
051120
051120

045
053
053

036073
036073
031061
000012

0230
0320
0320

052105
052105

053

JASCIZ

TRAP

CSETST

.EVEN

ENDTST
104401

33-4

LASCIT /34GIKMNAGHILNG=UJLNPRUWY PRUWX.ETOVX.ET(/

037304

037304
037304
037306

01-0CT-B0
12:06
CRITICAL PATH

L10027:

;

ENDMOD

SEQ 0112

CILPLCO LP2S, LP26 TEST MACY11 30A(1052) 01-0CT-80 12:06 PAGE 34
MULTIPLE LINE ADVANCE
cZLpPLc.P
01-0CT7-80 12:06
3271
3272
3273
3274

.SBTTL

037306

-9

SEQ 0113

MULTIPLE LINE ADVANCE

BGNMOD
2

;THIS TEST

CHECKS THE MULTIPLE

LINE

ADVANCE OF

THE LINE PRINTER.

A LINE OF

sNUMBERS IS PRINTED AND THEN THE PAPER IS ADVANCED THAT NUMBER OF LINES. THUS THE
sNUMBER PRINTED WILL INDICATE THE NUMBER OF BLANK LINES FOLLOWING THAT
;LINE. THE NUMBER OF LINES IS VARIED BETWEEN 2 AND 7 AND A LINE OF
;ALL 0'S WILL INDICATE THE END OF THE TEST SEQUENCE.

037306
037306

BGNTST
T15::

15,

;PRINT TEST IDENTIFICATION
037306
037350
037350

037356
037356
037356
037356
037364

037400
037400
037404
037404
037412
037414
037414
037420
037420
037426
037430
037430
037434

————

037434
037436
037436
037436
037440
037440
037440
037444
037446
037446
037452
037452
037454

OUTPUT MUL
INE ,#86.

012737

037616

037614

LET STACHR

MOV

:= ETABSTR

#TABSTR,STACHR

;OUTPUT (HARACTERS

REPEAT

117737

000232

013746
042716
042627

002310
000007
002310

012703

003172

012737
000402

000001

065237

002316

023727
003003

002316

117723

000160

000767

Move

LET LINCNT
MoV

:B= @STACHR

8lC

L INCNT ,=(SP)

#7,(SP)

(SP)+,LINCNT

LET R3 := WOUTBUF
002316

MoV

#OUTBUF ,R3

MOV

#1,CCONT

INC

CCNT

;SET UP OUTPUT BUFFER

INCR CCNT FROM #1 TO #132. BY M1
50405%:

000204

sGET A CHARACTER TO OuTPUT

@STACHR,LINCNT

:= LINCNT AND #7 ;MAKE THE ASCII TO OCTAL

BIC

:
5046048

50404%

CMP
CONT
, #132.
50406%
BGT
LET (R3)+ :B= @STACHR
MOVB

@STACHR, (R3)+

50405%

ENDINC

50406%:

3
;PUT CHARACTER

IN OUTPUT BUFFER

JFILL WITH LINE

FEEDS

LET R4 := #0

005004

020437
001404

002310

112723

000012

005204

002310

50403%:
LET LINCNT

R4
CLR
WHILE R4 NE LINCNT DO
50407$:
R4 ,LINCNT
CMP

504108
BEQ
LET (R3)+ :B= #12
MOVE

#12,(R3)+

INC

LET R& := R4 + M

ENDDO

CZLPLCO LP25, LP26 TEST MACY11 30A(1052)

CZLPLC.P

(4)

(3)
3303
%ggg

01-0CT1-80 12:06

037454

037456

000771

01-0CT-80

12:06

PAGE 34-1

SEQ 0114

MULTIPLE LINE ADVANCE
50410%:

B8R

50407%

;NOW OUTPUT THE ACTUAL LINE

3306

03745¢

(6)
3307

%ggg

037462
037466
037466
037472

3310
(3)
(6)
3311
(4)
gg}%

037532
037532
037536
037540
037540
037546

3314
(3)
(3)
3315
3316
g%}g

027610
037610
037612

000150

037614

000000

3319

037616

033462

033062

033463

TABSTR: .ASCIZ

7272637463540/

3320

037633

115

046125

044524

MULINE: .ASCII

/MULTIPLE LINE ADVANCE TEST 15/<12>

3321

03767

046525

042502

LASCIZ

/NUMBERS PRINTED REPRESENT # LINES TO NEXT LINE PRINTED/<12><12>

TRAP

CSETST

(4>

(6)

3322
3323
3324
3325
3326
3327
(3)
(3)
gggg

037456

8%;2%3

013704

002310

005237

037614

005737
001307

002310

012737

000014

062704

000204

ADD
#132. ,Ré
LET STACHR := STACHR + #1

; UPDATE CHARACTER COUNT

L INCNT R4

INC

STACHR

003172

TRAP

.WORD

STACHR:
032463

046120
042516
047101
051505
012

020105
040440
042503
020124

037676
037704
037712
037720
037726
037734
037742
037750
037756

051522
052116
050105
052116
047111
020117
046040
051120
005104

050040
042105
042522
021440
051505
042516
047111
047111
000012

030064

044514
053104
052040
(032461

044522
051040
042523
046040
052040
052130
020105
042524

CSEXIT
L10030-.

.WORD 0

.EVEN

037762
037762
037762
037764

104401

;OUTPUT THE LINE

UNTIL LINCNT EQ #0
TST
L INCNT
BNE
50403%
LET OUTBUF := #14
Mov
#14,0UTBUF
OUTPUT #OUTBUF ,#1
EXIT TST

037640
037646
037654
037662
037670

116

;NUMBER OF CHARACTERS TO OuTPUT

Mov

OUTPUT #OUTBUF ,R4

104432

033888

LET R4 := LINCNT + #132,

ENDTST
L10030:
ENDMOD

CZLPLCO LP25, LP26 TEST MACY11 30A(1052)

CZLPLC.PTT

333

gg%g

01-0CT-80 12:06

(3)

3338

BGNMOD

ecutsr

037764

(4)
3342
(6)
(9)
3343
(2)
3344
(4)

040026
040034
040034
040040
040042
040042
040046
040046

CMARACTER ALIGNMENT

040026

040046

T16::

16.

:PRINT TEST IDENTIFICATION

OUTPUT #CHRALN,#30.
: PRINT TEST NAME ON .P
:PRINT 24 LINES OF ALTERNATING "'H'''S AND ''SPACE'"'S

012737

000030

005737
003002

002310

000137

040350

002310

is:
2%:

50411%:

LET LINCNT := #24.

MOV
#24. ,LINCNT
IF LINCNT LE #0 THEN
ST
LINCNT
BGT
50411%
INLINE <JMP 38>
JMP
38
ENDIF

;LOAD BUFFER WITH ALTERNATING STRING OF “‘W'''S AND ''SPACE''S
LET R4 := #OUTBUF

(4)

040046

012704

003172

(4)
(5)
(4)
(7)
(5)
(5)
(7)

040052
040060
040062
040062
040066
040066
040074

012737
000402

000001

005237

003166

023727
003005

003166

(«)

040076

112724

000110

MOVB

040102

112724

000040

MOVB

3347

3348

04005

040076

3349

040102

3350
(4)

040106
040106

000765

040110
040110

112724

(4)

(3)

3351
3§g5

040110

000015

040114
040156

MOV
BP

#1,WORK
50412%

50412%:

INC

WORK

CMP
BGT

WORK
, #66.
50414%

LET (R4)+ :B= #110

: 132 CHARACTERS

: PUT PATTERN INTO BUFFER

#110, (R4)+

LET (R4)+ :B= #40
#40, (R4) +

ENDINCR
BR
50413%

LET (R4)+ :B= #CR
MOVB
#CR, (R4) +

: FOLLOWED BY (R

OUTPUT #OUTBUF ,#132.
OUTPUT #OUTBUF+132..M

; OVERPRINT WITH LINE OF ALTERNATING SPACE AND 'H'

3360
(4)

040220
040220

(4)
3362
3;2;

060224
040230
040230

3364

#OUTBUF ,R4

: SEND BASIC PATTERN

gggg

3361

50413%:
000102

MOV

INCR WORK FROM #1 TO #66. BY #1

003166

50414$%:

gggz
3355
g%gg

SEQ 0115

;00

037764

(037764

3345
3346

:THIS TEST CHECKS CHARACTER ALIGNMENT BY OVERPRINTING LINES OF ALTERNATING
:H'S AND SPACES WITH SPACES AND H'S.

3339
3340

3341

CHARACTER ALIGNMENT

.SBTTL

037764

3334
gg%z
3337

01-0CT-80 12:06 PAGE 35

040224

040234

012704

003376

112724

000110

112724

000012

LET R& := NOUTBUF+132.
MOV
#OUTBUF +132. R4

LET (R&)+ :B= #110

MOVB
#110, (RG)+
LET (R4)+ :B= WLF
MOVB
#LF,(RG)+

OUTPUT

#OUTBUF+1,#132.

: FILL BUFFER WITH REVERSE PATTERN

; H
;: FOLLOWED BY A LINEFEED

; OVERPRINT

CZLPLCO LPZS, LP26 TEST MACY11 30A(1052) O01-0CT=-80ALIGNMENT
12:06 PAGE
3551 .
'

CILPLC.PTY

CHARACTER

01-0CT-80 12:06

040276
040340
040340

005337

002310

000137

040034

012737

000014

#1
OUTPUT #OUTBUF+133.,
= #1
LINCNT
:=
LINCNT
LET
LINCNT
DEC
INLINE <JMP
2%
JMP
2%

003172

104432

3373
3374
(3)
(3)
3375

040462
040464
040464
040464
040466

000042
044103
042524
043511
020124
030440
000
040464
104401

3%:
LET OUTBUF

MOV

:= #14

TRAP

041501
046101
047105
052123
005012

#14 ,0UTBUF

,#1
QUTPUT #OUTBUF
EXIT TST

CSEXIT

]

.WORD

L10031-,

TRAP

(SETST

CHRALN: .ASCIZ /CHARACTER ALIGNMENT TEST 16/<12><12><12>

.EVEN
ENDTST

L10031:
ENDMOD

SEQ 0116

CILPLCO LP2S, LP26 TEST HA(V11 30A(1052)
01-0CT-80 12:06 PAGE 36
01-0CT-80 12:06
(lLPLC P11
INTERRUPT SERVICE ROUTINES
D

3373

.SBTTL
BGNSRV

040466

INTERRUPT SERVICE ROUTINES

; INTERRUPT VECTORS ARE ESTABLISHED DURING INITIALIZATION
;POINTING TO THE BASIC ROUTINES WHICH

;SET UP THE UNIT NUMBER CAUSING THE INTERRUPTS.
;LINE NUMBER IS RETURNED IN R2

3388

040466

X=0

000000
000020

INTOO:

.REPT 16.
SETPRI # PR10&
R2
PUSH

LET R2 = WX

X=X+2

012700
104441

010246

000200
000000
004704
000200
000002
004704
000200

000004
004704
000200

040572

000006
004704
000200

000010
004704
000200

~N
~N

.~~~
T~~~ T~~~ T~~~

(4)

000012
004704
000200

WE B UWWVIWNES

000014
004704
000200

N
N

040654

INLINE < JMP
.ENDR

MOV
TRAP
MoV
MOV
JMP
MOV
TRAP
MOV
MoV

JMP

Mov
TRAP
MOV
MOV

JMP
MOV
TRAP
MOV
MoV

JMP

MOV
TRAP

MoV
MoV
JMP
MOV
TRAP
MOV
MOV
JMP
MOV
TRAP
MOV
MOV

JMP
MOV

TRAP
MOV

I0DRV>

#PRI04,RO
C$SPRI
R2,=(SP)
#X,R2
10DRV
#PR104,RO
($SPRI
R2,=(SP)
#X,R2
I0DRV
#PR104,RO
C$SPRI
R2,=(SP)
#X,R2
I0DRV
#PRI04,RO

C$SPRI

R2,-(SP)
#X,R2
I0DRV
#PRI04,RO
C$SPRI
R2,=(SP)
#X,R2
I0DRV
#PR104,RO

C$SPkI

R2,=(SP)
#X,R2
100RV
#PR104,RO
CS$SPRI
R2,-(SP)
#X,R2
10DRV
#PR104,RO
C$SPRI
R2,-(SP)

SEQ 0117

8 10

CZLPLCO LP25, LP26 TEST MACY11 30A(1052) 01-0CT-80 12:06 PAGE 36-1
01-0CT-80 12:06
INTERRUPT SERVICE ROUTINES
CZLPL( P11
000016
004704
000200

SS S WWWWWWN S

P~ P~~~ P~~~

000020
004704
000200

000022
004704
000200

N
N
N
N
N

000026
004704
000200

N
o
o

000030
004704
000200

N
N
N
N
N
NN
N
N
N
N
N

NN PN

WWMW
S S WS & WWVIHWNES S WWWVHN S

N PN

S WWWVHW S

000024
004704
000200

3395

041016
041022
041026
041032
041034
041036
041042
041046
041052
041054
041056
041062

000032
004704
000200

000034
004704
000200

010246
012702
000137

000036
004704

MoV
JMP
MOV
TRAP

MOV
MOV

JMP
MOV

TRAP
MoV
MOV

JMP

MOV
TRAP
MOV
MoV
JMP
MOV
TRAP
MOV
MoV

JMP

MoV
TRAP
MOV
MOV
JMP
MOV
TRAP
MoV
Mov
JMP
MOV
TRAP
MOV
MOV
JMP
MOV
TRAP
MoV
MOV
JMP

#X,R2
10DRYV
#PR104,RO

C$SPRI

R2,=(SP)
#X,R2
10DRYV
#PR104,RO

WSSPR]

R2,=(SP)
#X,R2
10DRV
#PR104,RO

C$SPRI
R2,=(SP)
#X,R2
I0DRV

#PR104,RO

C$SPRI
R2,=(SP)
#X,R2
I0DRV
#PR104,RO

C$SPRI

R2,=(SP)
#Xx,R2
:
I0DRV
#PR104,RO
C$SPRI
R2,=(SP)
#X,R2
.
I0DRV
#PR104,RO
C$SPRI
R2,=(SP)
#X,R2
I0DRV
#PR104,RO
C$SPRI
R2,=(SP)
#X,R2
I0DRV

SEQ 0118

SEQ 0119

CZLPLCO LP25, LP26 TEST MACY11 30A(1052) 01-0CT-80 12:06 PAGE 36-2
CILPLc.P
01-0CT-80 12:06
CLOCK SERVICE ROUTINE
.SBTTL CLOCK SERVICE ROUTINE

;UPDATES THE COUNTER AT A RATE OF 16.67 MILLISECONDS PER TICK
;AND UPDATES A SECOND COUNTER WHEN THE FIRST OVERFLOWS.
041066

BGNSRV

012700

000300

005737
001005

041142

012737

000074

005237

041140

104441

CLKTCK: SETPRI #PRI06

041142

005337

041142

023727
001003

002334

000002

012777

000100

141202

INC
ENDIF

:60 TICKS PER SECOND

TIME

LET TICK := TICK - #1
DEC

T1CK

;BACK UP SECOND TIMER

IF CLKTYP EQ #2 THEN
#2
CLKTYP,
CMP
50416%
BNE
LET ACLKCSR := #100
MOV
#100,3CLKCSR

041136
041136
041136

ENDSRV

000000
000000

TICK

50415%
LET TICK := #60.
MOV
#60.,TICK
LET TIME := TIME + #1

50416%:

041142

TST

BNE

041136

041140

#PR106,RO
CSSPRI

IF TICK EQ #0 THEN

50415%:

000002

Mov
TRAP

L10033:
TIME:
TICK:

ENDIF

JAND EXIT
RTI

.WORD
.WORD

0
0

CZLPLCO LP25, LP26 TEST H3C811 30A(1052) 01-0CT1-80 12:06 PAGE 37
PN
HARDWARE PARAMETER SECTION
01-0CT-80
1
CZLPLC.
.SBTTL
BGNMOD

0461144

D 10

SE@ 0120

HARDWARE PARAMETER SECTION

;THIS SECTION INCLUDES THE QUESTIONS WHICH REQUEST THE OPERATOR TO

;FURNISH THE HARDWARE
;P=TABLES.

041146
041146
041150
041152
041154
041156
041156
041160
041162
041164
041166
041166
041170
041172
041174
041176
041200
041200
041202
041204
041206

000020

BGNHRD
e

041144
041144
061146

LSHARD::

160000
177516

001031
041223
000110
000770

002032
041244
000003

000000
000003

003130
041300
000001

ENDHRD

L10034:

041206

3436
3437

3438

3439
3443

041206
041214
041222
041223

041230
041236
041244
041252
041260
041266
041274
041300
041306
041314

.WORD
.WORD
.WORD

GETADR,0,0,160000,177516,YES
T$CODE
GETADR
TSLOLIH
TSHIL

GETVEC 2 0,110,770,YES
T$CODE
GETVEC
TSLOLIM
TSHILIM

GETTYP,4,0,3,0,3,YES

T$CODE
gETTYP

TSLOLIM
TSHILIM

GETBND,6,1,YES
T$CODE

?ETBND

.EVEN

050114
042104

030461
042522

040440
051523

GETADR:

LASCIZ

/LP11

051105
053040
000122
020122
046040
030440
050114

GETVEC:

LASCIZ

/INTERRUPT VECTOR/

GETTYP:

LASCIZ

/ENTER O IF LP25, 1

040522
041040

052116
052120
047524
042524
043111
026065
020106
000040
041440
052103
047101

040510
051105
000104

GETBND:

LASCIZ

/96 CHARACTER BAND/

.EVEN

TO BUILD THE HARDWARE

.WORD L10034~L$SHARD/?2
GPRMA
.WORD
.WORD
.WORD
.WORD
GPRMA
.WORD
.WORD
.WORD
.WORD
GPRMD
.WORD
.WORD
.WORD
.WORD
.WORD
GPRML

000031
041206

INFORMATION NECESSARY

ADDRESS/

LP26 /

CILPLCO LP2S, LP26 TEST MACY11 30A(1052)
CILPLC.P1Y

01-0CT-80 12:06

3445

12:06

PAGE 38

E 10

SOF TWARE PARAMETER SECTION

.SBTTL

:
144

§2§8

:THE SOFTWARE INFORMATION NECESSARY TO BUILD THE SOF TWARE P-TABLES.

3451
3452

:THIS SECTION INCLUDES THE QUESTIONS WHICH REQUEST THE OPERATOR TO FURNISH

(3)
(3)

0641322
041322
041324

000026

(4)
(4)
(4)

041324
041326
041330

000130
041400
000001

041334
041336

001130
041436
000001

041340
041342
041344

002130
041465
000001

041346
041350
041352
041354
041356

003052
041537
000377
000004
000074

(4)
(4)
(4)

041360
041362
041364

004130
041624
000001

(4)
(&)
(&)
(&)
(4)
3459

041366
041370
041372
041374
041376

005052
041645
000377
000001
000377

3453

3454
(4)
(4)
(4)

3455
(&)
(&)
(&)

3456
(4)
(4)
(4)
(4)
(&)

3457

3458

3460

3461
(2)
(3)
3462
3463

041324

041332
041332

041340

041346

041360

041366

:
BGNSFT
LSSOFT.:

.WORD L10035-L$SOFT/2

GPRML

MGTINT,0,1,YES

GPRML
.WORD

GETDAV,2,1,YES
T$CODE

.WORD
WORD
LWORD

.WORD
LWORD

GPRML

.WORD
.WORD
LWORD

GPRMD

.WORD
WORD
.WORD
LWORD
LWORD

GPRML
.WORD

041400

ENDSFT
L10035:

GETDAV
1

GETMAN,4,1,YES
T$CODE
GETMAN
1

GETTIM,6,0,377,4,60.,YES
T$CODE
GETTIM

377
TSLOLIM
TSHILIM
GETPLA,10,1,YES
T$CODE

.WORD
LWURD

GETPLA
1

.WORD
.WORD
.WORD
.WORD
LWORD

TS$CODE
GETMAX

GPRMD

041400

T$CODE
MGTINT
1

GETMAX,12,D,377,1,255.,YES
377
TSLOLIM
TSHILIM

LEVEN

NLIST BEX

3ub6h
3465
3466

041400
041436
041465

052522
040504
120

020116
043126
051105

040515
020125
047506

MGTINT: .ASCIZ
GETDAV: .ASCIZ
GETMAN: .ASCIZ

/RUN MANUAL INTERVENTION TESTS/
/DAVFU OPTION INSTALLED/

368
3469

041624
041645

042524
101

052123
052125

047111
042117

GETPLA: .ASCIZ
GETMAX: .ASCIZ

/TESTING IN U.S.A/
/AUTODROP ERROR COUNT/

3467
3470
3471

041537

106

3472

3474

SEQ 0121

SOFTWARE PARAMETER SECTION

3446
3647

3448

O01-0CT-80

051505

051111

GETTIM: .ASCIZ
LLIST BEX
.EVEN

/PERFORM MANUAL PRINTING SPEED MEASUREMENT/
/DESIRED TIME INTERVAL FOR PRINTING SPEED CALCULATION/

041672

000020

PATCH:

.BLkW

CILPLCO LPZ2S, LP26 TEST MACY11 30A(1052)

CZLPLC.PN

3475

(2)
(&)
(&)
(3)
3,76
3477

C1-0CT=-80 12:06

041732
041732
04173%
04173
041736

O01-0CT=-80

000001

PAGE 38-1

SOF TWARE PARAMETER SECTION

LASTAD
000000
000000

12:06

LSLAST::
ENDMOD
.END

.EVEN
.WORD
.WORD

7}
0

F 10

SEQ 0122

CZLPLCO LP25, LP26 TEST MACY11 30A(1052) 01-0CT-80 12:06 PAGE 396 1

100000

000004
000010
000020
000040
000100

LU
L LU

[alalalalalalalalalalalalalalalalalalalalalalalalalal

000010
030762
013425
004472
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000
010000
020000
040000

L I

-t

-b

—

LI L

)

ACTIVE= 020000
ADR
= 000020 G

BUFREP
CONT
CHAR
CHARSP
CHARX
CHRALN
CHRGEN
K1
CLEAN
CLKCSR
CLKENA
CLKSET
CLKTCK
CLKTYP
CLKVEC
CLOCKP
COUNT
COUNTD
CR
=
CRTPTH
CSRERR
CTLEND
CTLLOP
CURADD
CURCNT
($AU
=
C$AUTO=
($BRK =
($BSEG=
($BSUB=
C$CEFG=
C$CLCK=
C$CLEA=
($CLOS=

000043
000042
000030
000040
000011
000020
000050
000031
000023
000034
000014
000017
000016
000015
000377
000007
000047
000033
000003
000021
000025
000046
000041
000037
000013
027240
000177
003064
002254
000000
004702 _
012723
040000
005534
000036
000035
000034
000037
000040
010240
017514
002350
002352

CSGMAN
C$GPHR
($GPLO
($GPRI
CSINIT

100000

Hnn

002364

C$DCLN=
($D0ODU=
C$DRPT=
($0U =
CSEDIT=
=
CSERDF
R=
CSERH
C$ERRO=
CSERSF=
($ERSO=
($ESCA=
(SESEG=
($ESUB=
CSETST=
CSEXIT=
($GETB=
($GE Tw= 000027

oooHoo

C$CLP1=
C$CVEC=

BUFADD
BUF CNT

SEQ 0123

SYMBOL TABLE

003124
003126
023563
023634
010511
010565
010650
000004
002100

000376
000001
000002
000000
000140
000000
000040
000120
000020
GSXFER= 000004
GSYES = 000010
HAMF IR
034402
HAMRDY
013310
HAMRSW
013147
HAMSW1
013233

ESLOAD= 000035

GSOFSI=
GSPRMA=
GSPRMD=
GSPRML=
GSRADA=
G$RADB=
GSRADD=
GSRADL=
GSRADO=

FAKE
=
FF
FFSET
FLAG
FLAGDA

FLAG26=
FLAG27=
FLAG96=

FLSMSG

FLSMS1

FLSSEL
FRMLTH
FSTMSG
FSAU
FSAUTO
F$BGN
FSCLEA
F$DU
FSEND
F$HARD
FSHW
FSINIT
FSJMP
F$MOD
F$MSG
F$PROT
FS$PWR
FSRFT
F$SEG
F$SOFT
F$SRV
F$SUB
FS$SW

HOE

IBE
IDU
IER
IGNORE
INCDAT
INCTBL
INDEX
INHINT
INSTR
INTERR
INTER1
INTFAC
INTHDL
INTLK

INTOO

000014
000001
041206

041300
041436
023266
041465
041645
041624
041537
041244
041223
000200
000372
= 000003
000400
000002
000001
000000
000400

IOCTRL
I0DRV
ISR
IXE
[$AU
I$AUTO
I$CLN
1$0U
I$HRD
ISINIT
1$MOD
[$MSG
I$PROT
I$SPTAB
I$PWR
I$RPT
I$SEG
I$SETU

I$SFT
[$SRV
[$SUB
I$TST

100000

010000
000040
020000
007266
023344
023700
002356
002272
026522
010422
003640
010460
010452
012220
040466
005192
004704
000100
004000
000041
000041
000041
000041
000041
000041
000041
000041
000040
00004
000041
000041
000041
00004|
000041
000041
000041
000041

[T~

01-0CT-80 12:06

[(AX~)

czepLc.P

_r'

CILPLCO LP2S, LP26 TEST MACY11 30A(1052) O01-0CT-8C 12:06
czipPLc.P
01-0C7-80 12:06
SYMBOL TABLE

H 10

SEQ 0124

PAGE 39-1

JSJMP = 000167
LCTMSG 025212
LCTTBL 024726
LF
= 000012 G
LINCNT 002310
LINPER 021004
LINSWI 014637
LINSWY 014723
013017
LN3EX
LOBYTE= 000377
= 040000 G
LOE

LSLADP
LSLAST
LSLOAD
LSLUN
LSMREV
LSNAME
LSPRIO
LSPROT
LSPRT
LSREPP
LSREV_

002026 G
041736 G
002100 G
002074 G
002050 G
002000 G
002042 G
002122 G
002112 G
002062 G
002010 G

MOVMSG 015754
MOVMS1 016051
MOVMS2 016147
MRESET 006773
MSGADR 002724
MSGCNT 002624
MULINE 037633
NMLFLS 015402
NOCLCK 007127
NOCLK
004161
NOINTR= 000003

PRIO4 = 000200 G
PRIOS = 000240 G
PRIO6 = 000300 G
PRIO7 = 000340 6
PRTCHR 030070
PRTCTL 035242
PRTSPD 021341
PTABAD 002330
005466
QUIET
RDYERR 003436
007072
READY

002034 G
002072 G
002240 G
002052 G
002044 G
002102 G
002046 G
002064 G
002066 G
041146 G
002120 G
002016 G
002022 G
002254 G
002104 G
005676 G

L10022
L10023
L10024
L10025
1L.10026
L10027
L10030
L10031
L10033
L10034
L10035
L26M64
L26M96
MANSPD
MAXERR
MGTINT

030130
031462
033774
034444
035602
037304
037762
040464
041136
041206
041400
021550
021631
002276
002304
041400

PAPRSW 012256
PAPSWI 003460
PAPSW1 012326
PAPTST 012506
041672
PATCH
PATTER 027300
PERIOD 002300
007262
PLOC
PNT = 001000 G
= 002000 G
PRI
PRINTR 002332
PRINT4 012572
PRIGO = 000000 G
PRIO1 = 000040 6
PR102 = 000100 G
PRIO3 = 000140 G

TABA96
TABLDA
TABLE1
TABLE2
TABSTR
TAB64
TAB96
TICK

= 000010 G
LOT
002464
LPBUF
002370
LPCSR
LPDROP 004230
004276
LPERR
LPERR2 020732
LPINTR 003024
021406
LPM64
021467
LPM96
002430
LPVEC
LSTCNT 002312
002326
LUNIT
LSACP 002110 G
002036 G
LSAPT
002070 G
LSAUT
LSAUTO 002264 G
002106 G
LSCCP
LSCLEA 007352 G
00203¢ G
L$CO
LSDEPO 002011 G
LSDESC 002172 G
LSDESP 002076 G
LSDEVP 002060 G
LSDISP 002132 G
002116 G
LSOLY
LSDTP 002040 G

LSDTYP
LSOUT
LSOVTY
LSEF
LSENVI
LSETP
LSEXP1
LSEXP4
LSEXPS5
LSHARD
LSHIME
LSHPCP
LSHPTP
LSHW
LSICP
LSINIT

LSSOFT
L$SPC
L$SPCP
LSSPTP
L$STA
LSSW
LSTEST
LS$TIML
LSUNIT
L10001
L10002
L10003
L10004
L10005
L1000€
L10007
L10010
L10011
L10012
L10013
L10014
L10015
L10016
L10017
L10020
L10021

041324 6
002056 G
002020 G
002024 G
002030 G
002272 G
002114 G
002014 G
002012 G
002264
002266
002306
007264
007544
010724
010450
010456
013702
016160
022326
023714
022666
023264
025420
026679
027302

NONBUF 031065
NONCHR 030652
NOSTOP (023415
NOTIM 007171
NRGT16 006654
NRGT17 006737
NSTTBL 023705
OFFLIN 021051
ONEFIL= 000001
ONLINT 021111
ONLIN2 021212
ONLIN3 021310
OUTBUF 003172
OUTTIM 003720
0$APTS= 000000
0$AU = 000000
0$BGNR= 000000
0$BGNS= 000001
0$bU = 000000
O$ERRT= 000000
0$GNSW= 000001
0$POIN= 000001
0$SETU= 000000
PAPCHK 015102
PAPOUT 012540
PAPRDY 012404

REFLIN 015174
REFLIT 015271
REFLI2Z 015366
REPCNT 002664
REPLUP 017632
023460
RESET
RESVEC 007270 G
SECMSG 025044
SFPTBL 002272 G
031060
SKIP3
SPCCNT 034400
020744
SPED1
020767
SPED2
020773
SPED3
021003
SPED4
STACHR 037614
STATER= 000001
STATUS 002524
STRCNT 002320
SvCGBL= 000000
SVCINS= 000000
svcsus= 000000
SVCTAG= 000000
SVCTST= 000000
S$LSYM= 010000
TABAG4 021712

022120
004664
035512
035546
037616
036316
036474
041142
041140
TIME
TIMOUT= 000002
= 000014
TOF
TXERR 003673
TXNOIN 003745
T$ARGC= 000001
T$CODE= 005052
TSERRN= 000014

TSEXCP= 000000
T$FLAG= 000040
T$GMAN= 000000
TSHILI= 000377
T$LAST= 000001
T$LOLI= 000001
T$LSYM= 010000
T$SLTNO= 000020
TSNEST= 000000
T$NSO = 000010
T$NS1 = 000000

T$NS2 = 000005
T$PTNU= 000000
T$SAVL= 177777
T$SEGL= 177777
T$SUBN= 000000
T$TAGL= 177777
T$TAGN= 010036
T$TEMP= 000000
T$TEST= 000020
T$TSTM= 177777
T$7STS= 000001
T$$AUT= 010002
T$$CLE= 010005
T$$HAR= 010034
T$$HW = 010001
T$$INI= 010004
T$$PRO= 010000
T$$S0F= 010035
T$$SRV= 010033
T$$SUB= 010016
T$$SWw = 010003
- T$$TES= 010031
007546 G
T
007562
T1A
010264
118
007566
T1C

110
T
112
113
T14
115
T16
12
12664
12696
13
T3MOV
T3SET
T4
15
5.1

030132 6
031464 G
033776 G
034446 G
035604 G
037306 G
037764 G
010726 6
037076
036670
013704 6
014574
014572
016162 G
022330 6
022426

CZLPLCO LP25, LP26 TEST MACY11 30A(1052)
01-0C7-80 12:06
CZLPLC.P
01-0CT-80 12:06
SYMBOL TABLE

| UAM

o [=lelelelelelele]
v WWWWWWO
O
wn VIV
WNITWNTWNO O
S LS NWN
S NWNO &~
N =ONWVNS WO
NN
= N NWVIWWO
O

‘19

000040

[(alalalal~)

o~
o

022670
023716
025422

15.2

UNIT
USA
uuT

UUTEQD

VFUCHL
VFUCMD
VFUDAT
VFUERR
VFULCT
VFUOPT
VFUSEL

VFUSE1

VFUTBL

WORK

WORK1

026524

002360
026606
023304
024654
002274
004045
004133
024765
003166 G
003170

XSALWA

000040
000000

. ABS.

041736

ERRORS DETECTED:

$BGNLE=
$ERFLG=
$FSAND=
$F$BAD=
$FSBLA=
$FSCAS=
$FSDEC=
$F$DO0 =
$SFSFAL= 000405

000
0

CZLPLC,CZLPLC.SEQ/DOC=SVC/ML,SPMAC/ML,CZLPLC.P1T

RUN-TIME: 390 369 2 SECONDS
RUN-TIME RATIO: 858/762=1.1
(49 PAGES)
25K
CORE USED:
DOCUMENT PAGES:

125

$F$GOC
SFSIF
$FSINC
$FSLOO
$FINAM
$FSNO

1.10

SEQ@ 0125

PAGE 39-2

000400
000110
000210
000200
000160
000403
000320
000350
000300
000140
000330
= 000404
000130
000120
000402
177777
000001
000001
000001

000001
000001
177777
000000

$LSTTA=
SNESTL

$$CASE=
$$DST =
$SELOC=
$SERFL=

$NSKO

$NSK1
$NSK2

$NSK3

$ivSKé
$NSKS
$SAVLE
$5SK0
$TAGLE
$TAGNU
$TEMP
$TSK0
$T5K1
$TSK2
$75k3

000001
000000
000000
050000
041736

T1SKé&

$TSKS
$TSK6
$TSK7

$$ARGC
$SBYTE

000404
000037
000402
000000
000001
000000
041126
000000
177777
000000
000000
000000
000027
050145

000000
000403