Digital PDFs

AH-E635C-MC

February 1981

126 pages

Original

5.2MB

view download

OCR Version

4.6MB

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

OCR Text

LP25,LP26

LP}_ -

COPYRIGH TE 79-B0 |m| a !

———1 SHNADES TS AT

USER DOCUMENTATION CZLPLCO
CZLPLC.PN

MACY1'

01-0C71-80 12:06

230A(1052)

01-0CT-80

12:06

1
PAGE 1

SEQ 0001

.RETM ¢
IDENTIFICATION
PRODUCT

CODE

PRODUCT NAME:

AC-E634(-M(C
(ZLPLCO LP25,

MAINTAINER:

SMALL

PRODUCT DATE:

23-SEP-80

AUTHOR:

LP25 DIAG

SYSTEMS DIAGNOSTICS

JOHN CHATALIAN

DON RICE
RALPH

SCHAUBER

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

EQUIPMENT CORPORATION.
RESPONSIBILITY

FOR AN/

NO RESPONSIBILITY

DIGITAL EQUIPMENT CORPORATION ASSUMES NO

ERRORS

IS ASSUMED

SOF TWARE ON EQUIPMENT THAT

THE

AFFILIATED

COMPANIES.

(C)

FOLLOWING ARE

DIGITAL
DEC

THAT MAY APPEAR

FOR

IS NOT

THE

USE

SUPPLIED

IN THIS DOCUMENT.

RELIABILITY

DIGITAL

1979,1980 BY DIGITAL EQUIPMENT CORPORATIOUN

TRADEMARKSTMOF

PDP
DECUS

DIGITAL EQUIPMENT

UNIBUS
DECTAPE

CORPORATION:

MASSBUS

OR ITS

USER DCCUMENTATION CZLPLCO

01-0CT-80 12:06

30A(1052)

01-0CT-80

OPERATING
COMMANDS
SWITCHES

QUICK

STARTUP PROCEDURE

INFORMATION

FLAGS
HARDWARE

QUESTIONS

£
.

PERFORMANCE

DEVICE

SOF TWARE QUESTIONS
EXTENDED P-TABLE DIALOGUE
ERROR

TEST

AND

PROGRESS

TNFORMATION TABLES

SUMMARIES

CONTENTS

INSTRUCTIGNS

an
.

NOWVNES
NN —=O

ORIV
N
.
.
.
.
.
-

—

12:06

GENERAL INFORMATION
PROGRAM ABSTRA(CT
SYSTEM REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
DIAGNOSTIC HIERARCHY PREREQUISITES
ASSUMPTIONS

W
.

]

)

]

WIS WO

TABLE

o
.

czLpLc.P

MACY11

REPORTS

1
PAGE 2

SEQ 0002

USER DOCUMENTATION CZLPLCO
CZLPLC.PY

01-0C7-80 12:06

MACY11 30A(1052)

1.0

GENERAL

1.1

PROGRAM ABSTRA(T

O01-0CT-80

12:06

SE@ 0003

PAGE 3

INFORMATION
-

THIS DIAGNOSTIC PROGRAM VERIFIES PROPER PROPER _OPERATION OF

THE

LP25 OR LP26 LINE PRINTER AND ITS ASSOCIATED M7258 CONTROL UNIT

WHICH INTERFACES TO THE PDP-11 CPU. THE BROAD RANGE OF TESTS
ASSURES A COMPREHENSIVE TEST OF THE FUNCTIONAL CAPABILITY OFf
THE LINE PRINTER.

FOLLOWS:

TEST

THE

INDIVIDUAL TESTS ARE

IDENTIFIED AS

INTERFACE LOGIC

TEST
2
TEST
3
TEST
&
TEST
S
TEST
6
TEST
7
TEST
8
TEST
9
TEST 10

READY LINE INTERLOCKS
FORMS LENGTH SELECTION
PRINTING SPEED
DAVFU ERROR DETECTION
DAVFU LINE COUNT PAPER CONTROL
DAVFU CHANNEL SELECTION PAPER CONTROL
DATA TRANSFER PATHS
PRINTABLE CHARACTERS
NON-PRINTABLE CHARACTERS

TEST 13

PRINT CONTROL

TEST 11
TEST 12

TEST

TEST 15
TEST 16

BAND PATTERN
SPURIOUS HAMMER FIRING
CRITICAL PATHS

MULTIPLE LINE ADVANCE
CHARACTER AL IGNMENT

ANY MIX OF PRINTER TYPES (LP25 OR LP26) CAN BE TESTED UP T0
A TOTAL OF SIXTEEN UNITS. BAND CONFIGURATION (64 OR 96 (HAR)

IS HANDELED ON A UNIT BY UNIT BASIS. ALL UNITS NEED NOT HAVE

THE

SAME BAND.

THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH (HE DIAGNOSTIC
RUNTIME SERVICES SOFTWARE (SUPERVISOR).
THESE SERVICES PROVIDE
THE INTERFACE TO THE OPERATOR AND TO THE SOF TWARE ENVIRONMENT.
THIS PROGRAM (AN BE USED WITH XXDP¢, ACT, APT, SLIDE AND PAPER
TAPE.
FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER
TO THE XXDP+ USER'S MANUAL.
THERE IS A BRIEF DESCRIPTION OF
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT.
1.2
1.2

SYSTEM REQUIREMENTS
SYSTEM REQUIREMENTS

A TEST STATION IS REQUIRED CONSISTING OF A PDP-11 (PU WITH A
MINIMUM OF 24K WORDS OF MEMORY AND A CONSOLE TERMINAL WITH
INTERFACE AT DEVICE ADDRESS 777560. THE SYSTEM ALSO REQUIRES
AN XXDP SUPPORTED DEVICE SUCH AS AN RKOS/RK11 DISK DRIVE TO
AFFORD A MEANS TO LOAD THE DIAGNOSTIC PROGRAM. A KW1i-L LINE
TIME CLOCK OR A KW11-P PROGRAMMABLE REAL-TIME CLOCK IS NECESSARY
FOR MEASURING THE TIME INTERVAL FROM WHICH PRINTING SPEED IS

DETERMIMED. IF A CLOCK IS NOT INSTALLED IN THE SYSTEM, THE
OPERATOR WILL HAVE TO USE MANUAL MODE TO MANUALLY TIME
PRINTER OPERATION FOR A FIXED TIME INTERVAL TO CALCULATE THE

USER DOCUMENTATION CZLPLCO
CILPLC.PYY
01-0CT-80 12:06

MAC ‘11

30A(1052)

01-0CT-80

12:06

1
PAGE 3-1

SEQ 0004

PRINTING SPEED.

IN A MANUFACTURING tNVIRONMENT WHERE APT/ACT/SLIDE ARE U SED,

THE TEST STATION MUST BE tQUIPPED WITH THE APPROPRIATE
AND A HOST PROCESSOR WITH THE NECESSARY SOF TWARE.
1.

RELATED DOCUMENTS AND

| NTERFACE

STANDARDS

PROJECT PLAN FOR LP25 DIAGNOSTIC PROGRAM

DOCUMENT:

DATE:

RAS-78-008-00-U

6-SEP-78

DIAGNOSTIC ENGINEERING FUNCTIONAL SPECIFICATION
FOR CZLPLAQ 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)

DIAGNOSTIC HIERARCHY PREREQUISITES
THIS DIAGNOSTIC

1S (OMPATIBLE 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 .5

ASSUMPT]IONS

THE LINE PRINTERS UNDER TEST SHOULD HAVE POWER APPLIED AND BE
PLACED ON LINE IN READINESS FOR TESTING. EACH LINE PRINTER
MUST HAVE 1TS OWN M7258 CONTROILER SET UP AT A DIFFERENT DEVICE
ADDRESS. THE DIAGNOSTIC PROVIDES A DEFAULT DEVICE ADDRESS OFf
777514 WHICH CAN BE USED WHEN A SINGLE LINE PRINTER [S BEING
TESTED OR FOR THE FIRST UNIT WHEN MULTIPLE LINE PRINTERS ARE

UNDER TEST. [T 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 DCTUMINTATION CZLPL %g 06
C2LPLC.PN
01-0CT7-80

MACY11
BAND

30A(1052)

A PATCH

(1-0(T-80

12:06

SeEQ 0005

PACE 3-2

INSTALLED.
IS REQUIRED

IN THE

DIAGNOSTIC

TO CIRCUMVENT

INCOMPATIBILITY IN THE DIAGNOSTIC SUPERVISOR. [T 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 1S DEPOSITED. 177777 IS
DEPOSITED

INTO THE

SUBSEQUENT MEMORY ADDRESS.

2.0

OPERATING INSTRUCTIONS

THIS

SECTION CONTAINS A BRIEF

FOR DETAILED

2.1

INFORMATION,

DESCRIPTION OF

THE

RUNTIME

SERVICES.

REFER TO THE XXDP+ USER'S MANUAL

(CHQUS).

COMMANDS

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

BRIEF DESCRIPTION OF

THEM.

THE XXDP+ USER'S MANUAL HAS MORE DETAILS.

COMMAND

EFFECT

START
RESTART

START THE DIAGNOSTIC FROM AN INITIAL STATE
START THE DIAGNOSTIC WITHOUT INITIALIZING
CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER “()

CONTI'WE

PROCEED

EXIT
ADD

DROP
PRINT

DISPLAY
FLAGS

ZFLAGS

CONTINUE

FROM AN ERROR HALT

RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY.)
ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE
CONSIDERED TO BE ACTIVE AT START TIME
DEACTIVATE A UNIT
PRINT STATISTICAL INFORMATION (IF IMPLEMENTED
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

YOU MAY, FOR EXAMPLE,

2.2

THREE CHARACTERS.

TYPE ''STA'" INSTEAD OF ''START''.

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 BkIEF DESCRIPTION OF EACH.

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

EFFECT

/TESTS:LIST

EXECUTE ONLY THOSE TESTS SPECIFIED IN

/PASS:DDDDD
/FLAGS:FLGS

THE LIST,

LIST

IS A STRINC QF

TES?

NUMBERS, FOR EXAMPLE = /TE>TS:1:5:7-10.
THIS LIST WItL CAUSE TESTS 1,5,7,8,9,10 10
BE RUN.
ALL OTHER TESTS WILL NOT BE RUN.
EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000).
SET SPECIFIED FLAGS.
FLAGS ARE DESCRIBED
IN SECTION 2.3.
A}

01-0CT-80 12:06 PAGE 3-3

AGE AFTER EVERY
REPORT END OF PASS MESS
DDDDD PASSES ONLY.
(DDDDD = 1 TO 64000)

/EQP:DDDDD.
LU
JUNITSLIST

" SEQ 0606

TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED

IN THE LIST.

LIST EXAMPLE - /UNITS:0:5:10-12

USE UNITS 0.5,70,11,12

(UNIT NUMBERS
= 0-63)

EXAMPLE OF SWITCH USAGE: TM .
-

gt gopmies oy
e e b

01-0CT- 12:06 °

MACY11 '30A(1052)

‘

START/TESTS:1-5/PASS:1000/E0P:100

THE EFFECT _OF THIS COMMAND WILL BE: 1) 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
5

FOR EXAMPLE, TYPE **/TES:1-5'" INSTEAD OF ''/TESTS:1-5"".

§3~

BELOW IS A TABLE THAT SPECIFIES WHICH SUITCHES CAN BE USED BY EA;H v’
COMMAND.

TESTS

PASS

FLAGS

X
X

;

)

’

‘
E
et can

X
-

- ’w.

”;&t%

FLAGS

R
.

FLAGS ARE USED T0 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 1S RETURNED 10
RUNTIME SERVICES COMMAND MODE
.

. LOE,

LOOP ON ERROR

" IER*

INHIBIT ALL ERROR REPORTS

IBRe

IXR¢

FIRST LEVEL
(FIRST LEVEL CONTAINS
ERROR TYPE, NUMBER, PC, TEST AND UNIT)
INHIBIT EXTEMDED ERROR REPORTS (THOSE-

CALLED BY PRINTX MACRO'S)

e
.

INHIBIT ALL ERROR REPORTS EXCEPT

)
'

sty

2.3

Ts
B

PRINT
DISPLAY
FLAGS
ZFLAGS
EXIT

X
IR

ADD

’

X o

X
X

e 92 Sy o o

‘

. - X

PROCEED
DROP

X
X

- UNITS

START

RESTART
CONTINUE

EOP

CzLpPLC.P1l

’

USER DOCUMENTATION CZL
PLCO

M
*

¥g i

W ok

MACY11 30A(1052)
PNT

BOE
-

UAM

ISR

B
~

DIRECT MESSAGES 10 LINE PRINTER
PRINT TEST NUMBER AS TEST EXECUTES

EXECUTE AUTODROP CODE
LOOP ON TEST

--ADR
Lot
EVL

’

“

oy
e
+

" hen

<!
ay

By
P
|

o
B

3 .

EXECUTE EVALUATION (ON DIAGNOSTICS NHICH*'
HAVE EVALUATION SUPPORT)

gt
<

INHIBIT PROGRAM DROPPING OF UNITS .

IDR

"BELL'' ON ERROR
UNATTENDED MODE (NO MANUAL INTERVENTION)
INHIBIT STATISTICAL REPORTS (DOES NOT
APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT
STATISTICAL REPORTING): .

PAGE 34

PRI

12:06

H-1

”

01-DCT-80

wom

CZLPLC.PIY, . 01-0c1-80 12:06

USER DOCUMENTATION CZLPLCO

e
B

s
~

MIC

*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 .

£
;

SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ONIFLAGS. YOU MAY.

R
¥ !’—fi!

FOR EXAMPLE,
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH.
70 CAUSE THE PROGRAM T0 LOOP ON ERROR, INHIBIT ERROR REPORTS .

¢
*

AND TYPE A "'BELL'' ON ERROR, YOU MAY USE THE FOLLOWING STRING:

/FLAGS :LOE:IER:BOE

“

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
WHEN YOU ANSWER THIS
CHAPTER 6 OF THE XXDP+ USER'S MANUAL).

(177514) 2

(0). (200) ?
(0) ?
'
ENTER 0 IF LP25 OR 1 IF LP26 (0)
ANSWER'Y OR N.
96 CHARACTER BAND (L) ?
SOFTWARE QUESTIONS

2.5

AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART
-

OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWARE TM .
THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC..
PARAMETERS.
OPERATION MODES.

YOU WILL BE PROMPTED BY °'‘CHANGE SW (L) ?''

IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING
IOYIQ
THE SOFTWARE QUESTIONS AND THE DETAULT VALUES ARE DESCRIBED
IN THE NEXT PARAGRAPH(S).

. RUN MANUAL INTERVENTION TESTS

(N) ?

Ry, ke el S

LP11 ADDRESS: (0)
INTERRUPT VECTOR :

DETAULT IS NO

o 5 e

___—-—-""

/'/1':‘

QUESTIONS FOR EACH UNIT.

}“

QUESTION WITH A *'Y*', THE RUNTIME SERVICES WILL ASK FOR THE NUMBER’
YOU WILL THEN BE ASKED THE FOLLOWING
.
OF UNITS (IN DECIMAL).

BUNITS (D) 2 1

Tox - G R

HARDWARE QUESTIONS,

[

2.4

EEE

P-

01-0CT- 80

As“'“?‘j

r1GE«1 3-5
MCTITI0ACfi 105s2) 01-0CT-80 12:$A0651“PA

-.|USER DOCUMENTATION €2 LPL
CILPLC.P1T

%80

“

. DAVFU OPTION INSTALLED (N) ?

DEFAULT Is
(N)

"TESIRED TIME INTERVAL FOR PRINT SPEED CALCULATION (60)
-

TESTING IN U.S.A.

(Y)

MAXINOM 15760 SEC.~

. * MINIMUM IS
4 SEC.
" SELECTS U.S. OR BRITISH BAND PATTERN

AUTODROP ERROR COUNT (D) 5 2

2.6

2 DEFAULT IS 60 SECONDS

- DEFAULT IS AUTOMATIC

EXTENDED P- TABLE DIALOGUE

°
:

DROPS ANY UNIT FROM TEST WHICH EXCEEDS SPECIFIED 'NO. OF ERRORS

}

" WHEN YOU ANSWER THE HARDWARE OUESTIENS, YOU ARE BUILDING ENTRIES .

IN A TABLE THAT DESCRIBES THE DEVICES UNDER TEST.
THE SIMPLEST "
WAY TO BUILD THIS TABLE IS TO ANSWER ALL QUESTIONS FOR EACH
..
,
UNIT TO BE TESTED.
IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS =
-~
A MASS STORAGE CONTRGLLER WITH SEVERAL DRIVES OR A COMMUNICATION: - ...,

DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST oF.

THE ANSWERS ARE REPETITIOUS.

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

‘&L;!\

______;;._%ge

e
-. .

ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE,

Q-FACTOR.
THIS Q-FACTOR MAY BE O OR 1.
BELOW IS A SIMPLE UAY
T0 BUILD A TABLF FOR ONE XY11 WITH EIGHT UNITS PR
.

o
g

=
-

‘

160000<CR>

—

SUB-DEVICE
# (0) -2 Q<CR>, Q-FACTOR (0) 0 2 1<CR>
"
-,

SUB-DEVICE# (0) 2

Q-FACTOR (0) 1 2

"O<CR>-

UNIT 5

CSR ADDRESS (0) ?

I
T

]

’

Tt e ;{’:»1

PPN

]

oo~

*
©

Aol

rk "\4 .
.
K

’

.
.-

E
A

a
-

" )

’

)

Cle

”

’

160000<CR>

. . -

)

<CR>

‘

_CSR Aooness (0) 7 160000<CR>
# (0) ? 4<CR> sua DEVICE

0-FACTOR (0) 0 2

- )

160000<CR>

SUB-DEVICE # (0):? 3<CR>
Q-FACTOR (0) 0 ?
<CR>

UNIT 6

<CR>

UNIT 4
?
CSR ADDRESS (0)

h
e
UNIT 3
R>
160000<C
CSR fiDDRESS (0) ?
# (0) ? 2¢CR> =
SUB-DEVICE
Q-FACTOR (0) 0 2

1<CR>

UNIT 2
‘
CSR ADDRESS (0) ? 160000<CR>

UNITS (D) ? 8<CR>‘
UNIT1

)

.
“
SR

‘

-~ .-~

THERE . =~

ARE DESCRIBED BY THE OCTAL NUMBERS O THROUGH 7.

"
.

Y
AR

SEQ 0008

_ PERFORM MANUAL PRINT SPEED MEASUREMENTI

[T
P
e

o
P

o
o
[

USER DOCUMENTATION CZLPLCO
01-0CT7-80 12:06
cZLpLc.P

MACY11

30A(1052)

01-0CT7-80

SUB-DEVICE # (0)

Q-FACTOR

(0)

0 ?

UNIT 7
CSR ADDRESS (0) ?

12:06

1
PAGE 3-6

SEQ 0009

S5<(R>

<(R>

160000<CR>

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

UNIT 8
CSR ADDRESS (0)
SUB-DEVICE # (0)
Q-FACTOR

(0)

160000<CR>
7<CR>
?
<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

DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNITe~

NOT

VERY

EFFICIENT,

THE

RUNTIME

SERVICES CAN TAKE MULTIPLE UNIT

SPECIFICATIONS HOWEVER.

TABLE USING THE MULTIPLE SPECIFICATION

FEATURE.

(D)

SHOWN IS

LET'S BUILD THE SAME
¥ UNITS

PARAMETERS

THE PROCEDURE

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) ?
2-5<(R>
SUB-DEVICE # (0) ?
Q-FACTOR

(0)

0 ?

0<CR>

UNIT 7
160000<CR>
CSR ADDRESS (0) ?
6,7<(CR>
SUB-DEVICE # (0) ?
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.

IN THIS CASE, SUB-DEVICES

2. 3, 4 AND 5 WERE SPECIFIED.
(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
01-0CT-80 12:06
¢ILpPLC.P

MACY11 30A(1052)

01-0CT-80

SPECITIED

IN THE THIRD PASS,

THE

PROCESS

WHOLE

COULD HAVE

SHOWN BELOW.

# UNITS

(D)

12:06

SEQ 0010

PAGE 3-7

BEEN ACCOMPLISHED

IN ONE

PASS AS

B<(CR>

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

(00

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
10 START=IIP

(XXDP+)

THIS PROGRAM:

BOOT

XXDP+

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

3.
4.

QUESTIONS

TYPE ''R NAME'', WHERE NAME

FILE

FOR THIS PROGRAM

(IF

THERE

IS THE NAME OF THE BIN OR BIC

TYPE ''START"

5. ANSWER THE ''CHANGE HW'' QUESTION WITH "'v"
6.

ANSWER ALL

THE HARDWARE QUESTIONS

ANSU&R THE "'CHANGE SW'' QUESTION WITH 'N'

WHEN YOU FOLLOU‘ HIS PROCEDURE YOU WILL BE USING ONLY TSE////////”’—_—_‘
DEFAULTS FOR FLAGS AND SOF TWARE PARAMETERS.
ARE DESCRIBED
3.0 ERROR
3.1

IN SECTIONS 2.3 AND 2.5.

THESE DEFAULTS

INFORMATION

TYPES OF

ERROR MESSAGES

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

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

GENERAL ERROR MESSAGE

NAME

TYPE

NUMBER

ERROR MESSAGE

IS OF

THE FORM:

ON UNIT NUMBER= TST NUMBER PC:XXXXXX

(WHERE; NAME = DIAGNOSTIC NAME

TYPE = ERROR TYPE (SYS FATAL,
NUMBER = ERROR NUMBER

DEV FATAL, HARD OR SOFT)

UNIT NUMBER = 0 = N (N IS LAST UNIT IN PTABLE)
TST NUMBER =

TEST AND SUBTEST WHERE ERROR OCCURRED

USER DOCUMENTATION CZLPL %g 06

CILPLC.PY

01-0CT1-80

MACY11 30A(1052)

01-0CT-80

PC:XXXXXX = ADDRESS OF

12:06

SEQ 0011

PAGE 3-8

ERROR MESSAGE CALL

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTALN SOME ADDI]TIONAL
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

DESCRIPTION

ERROR

“'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"

"PRINTER’QQ,IFRRUPTED AT SAME LEVEL AS THE

FAILURE

IN INTERFACE LOGIC.

PROCESS(R
FAILURE

IN INTERFACE LOGIC.

"PRINTER 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 YO RECOGNIZE RECEIPT OF
INCOMPLETE DATA.

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

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

MACY11

30A(1052)

01-0CT-80
(ONE)

12:06

SEQ 0012

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

5.0 DEVICE

INFORMATION TABLES

DEVICE

INFORMATION APPEARS

SUPPLIED.

IN THE GLOBAL DATA SECTION.

6.0 TEST SUMMARIES
TEST

INTERFACE LOGIC

VERIFIES OPERATION OF
TEST
2
READY LINE

INTERLOCKS

VERIFIES OPERATION OF
TEST

INTERFACE LOGIC BETWEEN THE PRINTER AND THE CPU.
‘

THE READY

INTERLOCK SWITCHES.

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
AND THE NUMBER OF

LINES PRINTED.

TEST
§
DAVFU ERROR DETECTION
CHECKS FOR TWO TYPES OF DAVFU ERRORS:
1. RECEIPT OF INCOMPLETE DATA,

THE PRINTING TIME

2. RECEIPT OF DATA NOT INCLUDING A STOP BIT
TEST

(ONE) CHARACTER.

INTERVAL

USER DOCUMENTATION CZLPLCO
CILPLC.PVY
C1-0CT-80 12:06

MACY1Y 30A(1052)

01-0CT-80

12:06

PAGE 3-10

SEQ 0013

DAVFU LINE COUNT PAPER CONTROL
VERIFIES LINE COUNT METHOD OF PAPER CONTROL USING THE DAVFU.
TEST
7
DAVFU CHANNEL SELECTION PAPER CONTROL
CHECKS DAVFU PAPER ADVANCE BY MEANS OFf
DAVFU MEMORY.

STOP BITS LOADED

TEST
8
DATA TRANSFER PATHS
CHECKS THE DATA TRANSFER PATHS FROM THE PRINTER QUTPUT TO
THE PROCESSOR

TEST

PRINTABLE

INTERFACE.

CHARACTERS

CHECKS FOR PROPER PRINTING OF

TEST 10
NON-PRINTABLE

CHARACTERS

CHECKS FOR PROPER DETECTION OF

TEST 11
BAND PATTERN
PRODUCES AN IMAGE OF

AL. PRINTABLE

CHARACTERS.

ALL NON-PRINTABLE

CHARACTERS.

THE ENTIRE BAND PATTERN.

TEST 12
SPURIOUS HAMMER FIRING
CHECKS FOR SPURIOUS HAMMER FIRINGS BY TAKING NOTE OF
PRINTING THAT MAY OCCUR QUTSIDE A WEDGE PATTERN.

ANY

TEST 13

CONTROL

CHECKS THAT CAARACTERS 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

CHARACTER AL IGNMENT
CHECKS CHARACTER ALIGNMENT BY OVERPRINTING EACH LINE.

720

721
7¢2

723
724
725
726
727
728
729
730
3

732

733
734
735

736

15Y4

01-0CT-B0

12:06

SEQ.0014

PAGE 4

CILPLCO LP2S, LP26 DIAGNOSTIC

.ENABL AMA
.SBTTL
ICENTIFICATION
.

PRODUCT CODE:

AC-ES634A=M(C

PRODUCT NAME:

CILPLCO LP25,

MAINTAINER:

SMALL

AUTHORS -

JOHUN CHATALIAN
DONALD RICE
RALPH

DATE
; COPYRIGHT

LP26 DIAG

SYSTEMS DIAGNOSTICS

SCHAUBER

13-JuUN-80
(C)

1979,

1980

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

708
709
710
7
712
713
714
715
716
717
718
719

LTITLE

TR E

707

30A(1052)

705
706

MACY11

CILPLCO LPZ5, LP26 DIAGNOSTI ¢
CZLPLC.P
01-0C7-80 12:0 6

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 THESE LICENSE TERMS.,
TITLE TO AND
OWNERSHIP OF THE SOF TWARE SHALL AT ALL TIMES REMAIN IN DEC.
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT 8E CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR
RELIABILITY
ITS SOFTWARE ON EQUIPMENT WHICH IS NCT SUPPLIED BY DEC.

CILPLCO LPZS, LP26 DIAGNOSTIC
czLpLc.P
01-0CT-80 12:06

MACY11

30A(1052)
I DENTI

739
740
7641

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

wsw,
we
e
®s

770
48
772

767
768
769

SEQ 0015

FUNCTIONAL CESCRIPTION

760

761
762
763
764
765
766

2
PAGE 5

47
748
749
750
751
752
753
754
755
756
757
758
759

ANY MIX OF LP25 AND LP26 PRINTERS MAY BE TESTED, UP TO A TOTAL OF
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+,

745

746

CATION

12:06

B e

742
743
744

1-0C7-80

VERSION

A-0

HISTORY

REV.

27-SEP-79
A-0

SCHAUBER

INITIAL RELEASE

REV=-C SUPERVISOR / XXDP+ COMPATABLE

REV. B-0

REV. C-0

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

INCLUDE LP26 SUPPGCRT
13-JUN=80
INCLUDE TEST MESSAGES TO THE PRINTERS
INCLUDES LINE CLOCK SUPPORT FOR LSI-11

CZLPLCO LPZS, LP26 TES T MACY11
c2LpLc PN
01-0CT-8 0 12:06
774
775
776
77
778
779
780
781
782
783
734
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
(4)
(4)

(4)

(4)
(4)
(&)
(0)
(6)

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

(5)
(4)

(5)

(4)

(5)
(4)

(5)

(4)
(%)
(4)

(5)

(4)

30A(1052)

12:06
IDENTIFICATION
01-0CT-80

PAGE 6

SEQ 0016

LTITLE
CILPLCO LP2S, LP26 TEST
.SBTTL PROGRAM HEADER
-MCALL
Sv(C
Sv(
MCALL
STRUCT
STRUCT
SLSTIN=

000000
000000

000000
000000
177777

000000
000000
000000
000000
000000

002000

SLSTTAG=
$LOCTAG=
SVCINS=
SVCTST=
svisuB=
SVCGBL=
SVCTAG=

002022
002024

002024
002026
002026
002030
002030
002032

L 2ST

LIST
LIST
oL IST
oL IST

0
0

;STRUCTURED MACRO PACKAGE

; LIST ASSY CODE LEFT
; LIST TAGS LEFT

INSTRUCTIONS
TEST TAGS
SUBTEST TAGS
GLOBAL TAGS
OTHER TAGS

.ENABL AMA
.ENABL ABS
.ENABL LC

.=2000

002000
002000
002000
002000
002000
002001
002002
002003
002004
002005
002006
002007
002010
002010
002011
002011
002012
002012
002014
002014
002016
002016
002020
002020
002022

0
0
0
0
0

JINITIALIZE SUPERVISOR MA(CROS

BGNMOD

POINTER BGNSW,BGNSFT

LSNAME:

HEADER

CILPL,C,0,60,1,340
;DIAGNOSTIC NAME

/C/
1/

/L/
/P/
L/

LS$REV::
060

000000

000060
041146

041324
002254

002272

041736
000000

:
LSDEPO:
LSUNIT::

LSTIML::
L$SHPCP::

LS$SPCP::
LSHPTP::

LS$SPTP::
L3LADP::

LS$STA::
L$CO::

0
0
0

/¢/

/0/
0

60
LSHARD
LS$SOFT
LSHW

LSSW
LSLAST

;REVISION LEVEL

;0
+NUMBER OF UN]TS

;LONGESY TEST TIME
;POINTER TO H.W. QUES.
;POINTER

TO S.W.

QUES.

;PTR. 1O DEFf. H.W. PTABLE
;PTR, 10 S.W. PTABLE

;DIAG. END ADDRESS
;RESERVED FOR APT

STATS

CZLPLCO LPZS, LP?26 TEST MACY1T
cZLpec PN
01-0CT-80 12:06
(4)

(4)

(5)

N N S
N
N
e S
e N
W
N
. S
e
e
e N
o
O "

" "

v o

e Y eyl e

oo P

e W

e Ye

e ta

Nl o X

V.V JV.F JV.F YV P YV P SV P YV PRV P 2V F i SEVNE

B o W

e W

NSNS NSNS NS NN
M N N N N M e e S
N S S S N

e N

Fan W

Wean

W O

(NSNS DD £ un
S S
S N S e S S St

(&)
(5
(4)

002032
002034
002034
002036
002036
002040
002040
002042

002042
002044
002044
002046
002046
002050
002050
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
00000
000000

002132
000340
000000
000000

003
003
000000
0C0000
000000
002240
000000

000000

000000
000000
000000

000000

002172
104035

000000

005676
007352

002264

002122
000000

000000
000000

30A(1052)

01-3(7-80

12:06

PRCURAM HEADER

LSDTYF:
LSAPT::

L$0TP::
L$PRIO::
LSENV]::

LSEXPY::
LSMREV::
LSEF:-

LESPC::
LSDEVP::
LSREPP::

LSEXP4::

LSEXPS::
LSAUT::

L$DUT::
LSLUN::
L$DESP::
L$LOAD::
LSETP::

L$ICP::
LS$CCP::

LSACP::
L$PRT::
LSTEST::
LSDLY::

LSHIME
::

WORD

3
PAGE 6-1

.WORD

.WORD
.WORD

.WORD

.BYTE
.BYTE
.WORD
.WORD

;DIAGNDSTIC TYPE
;APT EXPANSION

.WORD
.WORD

;PTR.

LSDISPATCH

;FLAGS DESCRIBE HOW IT WAS SETUP

;EXPANSION WORD

.SVC REV AND EDIT #
CSREVISION
CSEDIT

;DIAG. EVENT FLAGS

.WORD

LSDVTYP
;PTR.
0

.WORD
.WORD
.WORD
.WORD
.WORD

EMT
.WORD

(CODE

;PTR.

TO ADD UNIT

;PiR.

TO DROP UNIT

;LUN FOR EXERCISERS TO FILL

L$DESC

ESLOAD

.WORD

LECLEAN

.WORD

L$AUTO

.WORD

L$PROT

.WORD

TO REPORT

LSINIT

.WORD

; POINTER TO DEVICE TYPE LIST

.WORD

TABLE

;DIAGNOSTIC RUN PRIORITY

.WORD

TO DISPAT(H

340

.WORD

SEQ@ 0017

;POINTER

CODE

TO DIAG.

CODE

DESCRIPTION

;GENERATE SPECIAL AUTOLOAD EMT

;POINTER TO ERRTBL
;PTR. TO INIT CODE
;PTR. TO CLEAN-UP CODE
;PIR.

TO AUTO (CODE

;PTR,

TO PROTECT

;TEST

NUMBER

;DELAY COUNT

;PTR.

TO HIGH MEM

TABLE

CILPLCO LPZS, LP26 TEST MACY11 30A(1052)

CILPLC.P11

01-0. 1=80-12706

ggg

002122

805
806
807
808

002122
002124
002126
002130

002122

’

000000
177777
177777

12:06

PROGRAM HEADER
:

804
(3)

01-0CT-80

PAGE 6-2

THE FOLLOWING IS A LOAD PROTECTION TABLE

L$PROT::

BGNPROT
.WORD
0
"WORD
=1
"WORD
-1
ENDPROT

SEQ 00'8

CZLPLCO LPZS, LP26 TEST MACY11 30A(1052)
CZLpPLC.PN

01-0C7-80 12:06

810
811

01-0CT-80

12:06

DISPATCH TABLE
LSBTTL

PAGE 7

SEQ 0019

DISPAT(CH TABLE

812

g}g

: 17T IS USED BY THE SUPERVISOR TO DISPAT(H TO EACH TEST.

813

816

817
(&)
(3)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)

(6)
(6)
(6)
(6)
é?g

; THE DISPATCH TABLE CONTAINS THF STARTING ADDRESS OF EACH TEST.
00230

002130
002132
002132
002134
002136
002140
002142
002144
002146
002150
002152
002154
002156

002160
002162
002164
002166
002170

DISPATCH

000020

.WORD
LSDISPATCH::
.WORD
.WORD
.WORD
.WORD
LWORD
.WORD
.WORD
WORD
.WORD
.WORD
.WORD

007546

010726
013704
016162
022330
023716
025422
026672
027304
030132
031464
033776
034446
(35604
037306
037764

.WORD
.WORD
.WORD
.WORD
.WORD

821

002172

(3)

002172

822

002240

(3)

002240

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

{4&)

(3)
(2)
823
824
825

:X= NUMBER OF TESTS

T2
13
T4
15
16
17
18
19
T10
T
112
T13
T14
115
116

:FOR USE ON REVISION C OF THE SUPERVISOR

g%g
(4)

002172

002200
002206
002214
002222
002230
002236
002240
002246

055103

020060
020054
050040
051105
047107
000103

050114

050114
050114
044522
042040
051517

041514

032462
033062
052116
040511
044524

LSDESC::

DESCRIP
JASCI2

.EVEN

DEVIYP

O05u114

031120

032462

000066

046054

LSDVTIYP::

LASCIZ
.EVEN

<C2LPLCO LP25, LP26 PRINTER DIAGNOSTIC>
/CZLPLCO LP25, LP26 PRINTER DIAGNOSTIC/

<LP25.LP26>
/LP2S,LP26/

CILPLCO LPEZS, LP2O TEST MACY11
CZLPLC.PN
01-0CT1-8GC 12:06

30A(1052)

01-0CT-80
12:06
PAGE 8
DEFAULT HARDWARE P-TAR.E

g%g

LSBYTL

829

830
831

;
;

g%%

834
835
(3)
(3)
(3)

B36
837
838
839
846
24g

;
002252

002252
002254
002254

000004

002254
002256
002260

177514
000200
000000

002262

000000

002264

ggg

002264

860
(3)
(3)

002266
002266
002266

ég;

002264
002264

IS IDENTICAL TO THE RUN-TIME P-TABLE.

LSHW::
DFPTBL::

L10001:

—

002264

LSAUTO::

000240

104461

SEQ 0020

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

BGNHW

DFPTBL

.WORD
.WORD
WORD

177514
200
0

.WORD

LWORD

:INTERRUPT

851
852
(3)
853
854
855
B56

DEFAULT HARDWARE P-TABLE

ggg

LI10001-L$HW/?

;

VECTOR PRIORITY

[S &

B
BGNAUTO

; NOT USED

ENDAUTO
TRAP

C$AUTO

AND CANNOT BE

ENDHW

NOP
L10002:

:LP25 REGISTER ADDRESS
:LP25 INTERRUPT VECTOR
: 0 IF LP2S
;1 IF LP26
; 0 IF 64 CHAR BAND
96 CHAR BAND

(HANGED

//"‘\

CILPLCO LPZS, LP26 TEST MACY11 30A(1052)

CILpPLC.PY

01-0CT-80 12:06

01-0CT-80

12:06

PAGE 9

SOF TWARE P-TABLE
.SBTTL

SEQ 0021

SOFTWARE P-TABLE

:”

/—/

; THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM
;

869
(3)
(3)
(3)

002270

002270
002272
002272

—

002274

BGNSW

SFPT

.WORD

-0 IF NO INTERVENTION TESTS

‘DEFAULT IS NO
‘0 IF NO DAVFU OPTION

000006

003-L$SW/?2

SFPTBL::
0000

874

—_—

PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR.

00000V

INHINT:
VFUOPT:

.WORD

IF MANUAL

INTERVENTION TESTS

DAVFU OPTION

INSTALLED

877

002276

000000

MANSPD:

.WORD

:NO DAVFU DEFAULT
;0 FOR AUTUMATIC PRINT SPEED

880

862500

000074

PERIOD:

.WORD

60.

;OPERATOR TO SELECT TIMING VALUE

881

;1 FOR MANUAL PRINT SPEED TEST
;AUTOMATIC DEFAULT VALUE
;FROM & TO 60 SECONDS.

INITIAL

;DEFAULT VALUE 1S 60 SECONDS.

884

002302

000001

USA:

.WORD

887

002304

000005

MAXERR:

.WORD

890
(s)

002306
002306

; 1 FOR TESTING IN U.S.A.
0O FOR TESTING IN G.B./EUROPE
* DIFFERENT BAND PATTERNS +
AUTODROP ERROR COUNT

; IF ERROR COUNT EXCEEDS MAXERR THE UNIT WILL BE DROPPED FROM Y;ST

L10003:

ENDSW

CZLPLCO LPZS, LP26 TEST MACY11 30A(1052)
CZLPLC.PN

ggz

01-0C7-80 12:06

895

01-0(T-80

12:06

PAGE 10

SEQ 0027

1/0 MACRO DEFINITIONS

.SBTTL 1/0 MACRO DEFINITIONS

LMACRO OUTPUT ADD,BFCNT,ERR,PRINTS/

896
897
B98

MoV
MOV
Moy~

:SAVE THE BUFFER ADDRESS
JBUFFER BYTE COUNT BFCNT
; OUTPUT TO ALL UNITS

899
900
901
902
903
904
905

AF B

907
908

JENDC
.JF NB PRINTS

910

LENDC

912

.ENDM

OUTPUT

915

.MACRO

918

.IfF B

920
921
922
923
924

JENDC
.IF NB

926
927

LENDC
.IF NB PRINTS

929

.ENDC

932

LENDM

915

: PRINTS IS A PAKAMETER CONTROLLING THE NUMBER IF TIMES THE DATA COR

938
939
940
84;

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

ENDC
.1F NB
LENDC

ERR
MOV

.IF B PRINTS

906

909

911

913
914

916
917

9193

928
930
931

25
ggg

#LPEKRR,ERRSV(
ERR,ERRSVC(

MOV

#1,BUFREP

; PRINT ONCE DEFAULT

MOV

PRINTS ,BUFREP

;

JSR

PC,I10CTMRL

;CALL THE DRIVER

OQUTPUI

ADD,BFCNTY,ERR,UNIT,PRINTS

SUPPLY PRINT COUNT

MOV
MOV

ADD,BUFADD
BHCNT,BUFCNT

MoV

#LPERR,ERRSVC

ERR
MOV

ERR,ERRSVC

MOV

#1,BUFREP

; PRINT ONCE DEFAULT

MOV

PRINTS ,BUFREP

: SUPPLY PRINT (OUNT

MOV
JSR

UNIT,PRINTR
PC,IOCTRL

: SUPPLY UNIT NUMBER
:CALL THE DRIVER

tRR

LENDC
.1F B PRINTS

9¢5

;SAVE BUFFER ADDRESS
;BUFFER BYTE COUNT BFCNT

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

..........................................

943

£RR
MOV

ADD,BUFADD
BFONT ,BUFCNT
#-1,PRINTR

—

002306

CILPLCO P25, LP26 TEST MACYI1
CZLPLC.PN
01-0CT-80 12:06
945
946
947
8

30A(1052)

01-0CT-80

GLOBAL AREAS

.SBTTL

002306

12:06

PAGE 11

SEQ 0023

GLOBAL AREAS
BGNMOD

THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES
THAT ARE USED IN MORE THAN ONE TEST.

002306

EQUALS

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

BIT15==
BIT14==
BIT13==
BIT12==
BIT11==
BIT10==
BIT09==
BI1T08==
BIT07==
BIT06==
BIT05==

100000
40000

BI1103==
BIT02==
BIT01==
BIT00==

10
&
2
1

001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

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

BIT09
BITO8
BIT07
BIT06
BITOS
BIT04
BITO3
BIT02
BIT01
BIT00

2000
1000
400
200
100
40

RIT04== 20

o N

d D e

e N

P
P N
— d oD e e e b e e o
" N e e e et e e N

20000
10000
4000

; EVENT FLAG DEFINITIONS

A
D D

Nl W

) e

e Re e b L
R
et L
B
W
N
N
e e R e W N
e i e D D e s oD D D D D e D b i ed D D o D d d D D D e D ed
Nt N N N Nl Wl Nl Nl N Nl i N N o i ot Nt N N i o i N it o i i i

3
957

000040
000037
000036
000035
000034

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

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

32.
3.
30.
29.
28.

" PRIORITY LEVEL DEFINITIONS

000340
000300
000240

PRIO7== 340

PR106== 300
PR10S== 240

:
;
;
;
.

START COMMAND WAS [SSUED
RESTART COMMAND WAS ISSUED
CONTINUE COMMAND WAS ISSUED
A NEW PASS HAS BEEN STARTED
A POWER-FAIL/POWER-UP OCCURRED

994

01-0CT1-80

GLOBAL AREAS

12:06

PAGE 11-1

SEQ 0024

el
A ]
OO

30A(1052)

000200
000140
000100
000040
000000

[

0
0
0

L
T

T2
T

I T
1 e1

[ I
1 A
IO T S

T I
O

T
£ A

]
|

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

100000

d ed et

000012
000014
000015
000177

—S NN

LI
(LI

100000

~
~

¢5, LP26 TEST MACY11
01-0C7-80 12:06

- 0

~re
e

2OV
WM
= O VOO N
W

00O

VOO0 OO O OVOOVOLCOVOVOVOVOVOV
OO OO0

— el ed i e e

D D D D kD sl D e id il i o i D

NO NS WN—=0O000 NN
S W N N Nt N st N st N Nt Nl sl Nt i Nt i Nt Nt i Nt Nt i “wat

—r
v
NN PN P
PN TN PN PN
N PN PN TN PN PN PN TN PN PN
PN PN PN PN

340
300
240
200

000340
000309
000240
000200
000140
000100
000040
000000

140
100
40

ERROR CODES FOR USE BY GENERAL ERROR ROUTINE
000001
000002

000003

STATER= 1

TIMOUT= 2

NOINTR= 3

;TRANSMITTER STATUS ERROR

[N QUTPUT

:THIS ERROR

LAST

s TIMEOUT ERROR IN 10 DRIVER MODULE

;NOT

SBTTL
‘RO
;R

:R2

INDICATES THE

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
PRINTER TABLE

CHARACTER

;WAS NOT TRANSMITTED WITHIN A GIVEN TIME
:GROSS TIME OUT ERROR. THE SPECIFIED DID NOT
: INTERRRUPT, THEREFORE 10 DRIVER MODULE wAS

INTO PROPER

2
01-0C7-80
12:06 PAGE 11-2
CZLPLCO LPZS, LP26 TEST MACY11 30A(105¢)
01-0CT-80 12:06
GENERAL REGISTER USAGF GEFINITIONS
CZLPLC.PN
995
996
997
998
999

:R3

TEMPORARY STORAGE

;RS
;R6
;R7

STACK POINTER
PROGRAM COUNTER

:R&

1000
1001
1002
1003

SEQ 0025

ERROR = BI 11§
DROPED
BIT1
ACTIVE
BIM
FLAG96
BIT1

002000
001000
000377

FLAG27
FLAG26
LOBYTE

100000

;BIT1

BIT1
BIT9
3177

;

040000
020000
010000

O -2 NI\
S~

1 LP STATUS TABLE BIT DEFINITIONS

96 (HAR BAND
FOR EXPANSION

0 IF LP25, 1 IF LP26
; BIT MASK FOR CLEARING LOBYTE

(COUNTER)

1027

002306
002310
002312

o
o

pury

BNN =2 OO0~ N
OV

D e

D o

SOOOOOOOOOO
PINIMNORNININD
=D b =

b oy

CZLPLCO LPS, LP26 TEST MACY11 30A(1052)
01-0CT-80
12:06 PAGE 12
CZLPLC.PN
01-0CT-80 12:06
GLOBAL DATA SECTION

002316
002320
002322
002324

002326

000000
000000
000000
000000
000000
000000
000000
000000

.SBTTL

GLOBAL DATA SECTION

FLAG:

.WORD

000000

LINCNT:
LSTCNT:
COUNT:
CCNT:
STRCNT:
CHRGEN:
UNIT:
LUNIT:

_WORD
.WORD
,WORD
.WORD
,WORD
.WORD
.WORD
.WORD

000000
000000

PTABAD:
PRINTR:

.WORD
.WORD

0
0

1033

002334

000000

CLKTYP:

.WORD

1037

002336

000000

1040
1041
1042

002344
002346
002350

000000
000000
000000

CLKVEC:
CLKENA:
ERRCOD:

.WORD
.WORD
.WORD

1044
1045

002352
002354

000000
000000

ERRFLG:

UuT:

.WORD 0

.WORD

1049
1050

002356
002360

000000
000000

INDEX:
VFUCMD:

.WORD
.WwORD

O
O

:MACRO

VARIABLES

002340
002342

000000
000000

.wWORD

(LKSET: .WORD

CLKCSR: .WORD

SEQ 0026

;<CR> FLAG FOR USE BY SUPERVISOR

O
O
O
0
0
0
O
O

002330
002332

1038
1039

1030
1031

CLOCKP:

;LINE COUNTER

sUNIT COUNTER FOR SINGLE UNIT TESTING
;UNIT COUNTER FOR ERRCRS
;AND TESTS NOT USING THE OUTPUT

;MACROS.

;P-TABLE ADDRESS RETURNED.BY GPHARD
;SELECTED LINE NO.

s MACRO

sCLOCK TYPE CONTROL WORD
;1= NO CLOCK AVAILABLE

;2=

KW11-L LINE CLOCK

CLOCK P-TABLE ADDRESS

;3= KW11-P PROGRAMABLE (LOCK

;CLOCK CSR ADDRESS

: CLOCK TIMF SET REG ADDRESS

0
O
0

;CLOCK VECTOF ADDRESS
.
. sCLOCK ENABLE BITS
" JERROR CODE TYPE FOR GENERAL

;ERROR ROUTINE

;EXPECTED ERROR INDICATOR

; # UNITS ACTUALLY UNDER TEST
JEXITS BACK TO 10 DRIVER EQUAL
;1 IF ERROR WAS EXPECTED.

1054

002362

000000

BUFADD:

.WORD

1056

002364

0000C0

BUFCNT:

.WORD

;BUFFER ADDRESS OF DATA TO BE SENT
;70 THE PRINTER
;NUMBER OF BYTES TO TRANSFER

1058
1059

002366

000000

BUFREP:

.WORL

; NUMBER OF TIMES TO PRINT

1061
1062
1063
1064
1065
1066
1067
1068
1069
1070

'LP25 PARAMETER WORD TABLES
002370

0C0020

LPCSR:

002430

000016

LPVEC:

002464

000020

LPBUF.

.REPT

.MORD

16.

; ADDRESS OF (SR FOR EACH LPY)

LREPT
.WORD

16
O

;

.ENDR

.REPT 16,

INTERRUPT VECTOR ADDRESS

: DATA BUFFER REGISTER ADDRESS

.,‘N >
)

W N

4""

ot
r

CILPLCO LPZS, LP26 TEST MACY11
czLPLC.PNn
01-0C7-80 12:06
107
1072

1073

1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084

1085

1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
11703
1104
1105
1106
}}83

1116

B 3
01-0CT-80
12:06 PAGE 12-1
GLOBAL DATA SECTION

002524

000020

STATUS:

002564

000020

CURADD:

002624

000020

MSGCNT:

002664

000020

REPCNT:

002724

000020

MSGADR:

‘

002764

000020

003024

000020

0C3064

000020

003124
003126

000000
000020

003166
003170

000000
000000

}}?3
1"
1112
1113
1114
1115

30A(1052)

.WORD
.ENDR

.REPT 16.

: UNIT STATUS

.WORD
0
.ENDR
,REPT 16,
MORD
O
.ENDR
.REPT 16.
WORD 0
.ENDR
.REPT
16.
.WORD
0
.ENDR

.REPT

SEQ 0027

16.

WORD
O
.ENDR
CURCNT: .REPT 16.
.WORD
-1
.ENDR
LPINTR: .REPT 16.
.WORD
0
.ENDR
DELCNT: .REPT 16.
.WORD
O
.ENDR
ERRSVC: .WORD
O
ERRTBL::
LREPT
.WORD
O
.ENDR

WORK::
WORK1:

.WORD
.WORD

0
0

.SBTTL

OQUTPUT BUFFER

16.

CURRENT ADDRESS OF

;

INITIAL BYTE

COUNT OF

NO.

TO REPEAT MESSAGE

ADDRESS OF

CURRENT COUNT REMAINING TO QUTPUT

;

INTERRUPT ROUTINE ADDRESS

;

TIMEOUT DELAY COUNTER

:
;:

ERROR ROUTINE DISPATCH ADDRESS
ERROR COUNT FOR EACH UNIT

;

WORK AREA

TIMES

003172

000226

OUTBUF:

150.

MSG FOR REPEAT RESTORE

DATA TO PRINT START QOF DA'A

;150 BYTES IS RESERVED FOR THE OUTPUT BUFFER AREA
LEVEN
.REPT
.BYTE
.ENDR

OUTPUT DATA BYTE

LCO LP25S, LP26 TEST MACY11 30A(1052)

9
¢?

e
d
—d

(O RV RN LV, ]

AL BN BB BB
B B2 NN N N N N N W N N RO NI NI N NOPRININO NN =4 =
OOV NONS NN =00
N NS W =SOVONOWVNSWND—=0O00e

01-0C7-80 12:06

01-0C7-80

12:06

GLOBAL TEXT SECTION
.SBTTL

PAGE 13

GLOBAL TEXT SECTION

.NLIST BEX
bt

; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,
; MESSAGES, AND ASCII
;

003420
003436

003460
003523
003570
003640
003673
003720
003745
003776

004045
004133
004161

051120
051120

040520
110
044103
051126
120
052517
125
046101

045
045
004;;8

047111
047111

042520
046501
051101
047101
044522
050124
0644516
020114

022516
022516
020117

042524

0425246
020122

042515
041501
066523
052116
052125
020124
047125
0644501
021101

046103

MCRE

THAN ONE

TEST.

INFORMATION THAT ARE USED IN

CSRERR: .ASCIZ /PRINTER ERROR/

RDYERR:
PAPSWI:

,ASCIZ /PRINTER NOT READY/
.ASCIZ /PAPER LOW INTERLOCK SWITCH FAILURE/

NgC%K:

JASCIZ

BNKSWI:
BNDSWI:
INTER1:
TXERR:
OQUTTIM:
TXNCIN:
UUTEQO:
VFUSEL:
VFUSE1:
.EVEN

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

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

.LIST BEX

. FORMAT STATEMENTS USED IN PRINT CALLS
004230

004236
004244
004252
004260
004266
004274

040445

052640
042045
051104
020104
052040
000116

050114

044516
022462
050117
051106
051505

030461

020124
020101
042520
046517
0225264

LPDROP: .ASCIZ

/X%ALP11 UNIT XD2XA DROPPED FROM TESTXN/

SEQ 0028

1
1
1
1

]}
1

30A(1052)

01-0CT-80
12:06
GLOBAL SUBROUTINES

i D i D D e nd d =P D e

.SBTTL

.
.

1%3;
1190
(4)

1191
(6)
1192
(4)
(7)

GLOBAL SUBROUTINES

SEQ 0029

SECTION

THE GLOBAL SUBROUTINE SECTION CONTAINS THE SUBROUTINES
THAT

ARE

USED BY MORE

THAN ONE

TEST.

¢ FUNCTIONAL DESCRIPTION:
:
SUBROUTINE TO PRINT THE GENERAL ERROR [NFORMAT]ION,
PRINTS THE ERROR MESSAGE IN THE FOLLOWING FORMAT:
.

s D D Ds

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

PAGE 14
SECTION

;

“ERROR AT CSR XXXXXX UNIT YY"
WHERE

D i
S SN PN N P P P P e e, ) e and cod wad i ol eid i ad nd D D e

PIRIRN NWNNON NS NV

1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1

0000000000000000 NN N NNNNNNNOOCOOOONOONOCON
VNN

CILPLCO LP2S, LP26 TEST MACY11
czepPLc.P
L
01-0CT1-80 12:06

;
;

XXXXXX=
YY=

DEVICE CSR ADDRESS
UNIT NUMBER THAT FAILED

CALLING SEQUENCE

JSR PC,LPERR
REQUIRED PARAMETERS

ERRCOD MUST BE SET TO ONE OF THE ERROR (ODES DESCRIBED
UNDER ERROR CODES.
A}

THE
AND

;

004276
004276
004302

004304
004310
004312
004312
004316
004316
004320
004322
004324
006326

004326
004330

004332

013746
003403

002350

021627
003402

000003

012716

000004

006316
060716
063607

004346

50000%:
50001%:

000110

005262

003126

010237

002074

006237

50001%

MoV

¥4, (SP)

ASL
ADD
ADD

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

.WORD
.WORD
.WORD

50006%-50002%
50005%-50002%
50004%-50002%

002074

CASE

THE

ROUTINE.

;SELECT PROPER MESSAGE FORMAT

50003%$-50002%

;STATUS ERROR

LET ERRTBL(R?2) := ERRTBL(R?2)
INC
ERRTBL (R2)
LET LSLUN := RZ2 SHIFT -1
MOV
R2,LSLUN
ASR

(SP) ,#3

BLE

.WORD
50006$%:

INTERNAL

ROUTINE DOES A SAVE ON R?
RESTORES IT PRIOR TO EXITING.

SELECT ERRCOD OF 3 VERIFY
MoV
ERRCOD,
- (SP)
BLE
50000%

C(MP

50002%:

000010
000036
000064

004334
006334

004334
0064334
004340
004340

LPERR:

IS USED

LSLUN

¢ M}

CILPLCO LPZS, LP26 TEST MACY11
czLpPLc.P
01-0CT-80 12:0¢
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

004430
004432

30A(1052)

ERRHRD

104456
000016

TRAP
MWORD
.WORD

003673
000000
000425

50005$:

005262

003126

010237
006237

002074
002074

104456
000017
003720
000000

b wnd
—
—
-t

b
e
el
—

PONININD
AN AR AN AP
~
—d ed d e L e P b O = LS ek =2 O
O 00 NN o WV r B v W
) =

004462
004470

SEQ 0030

14, TXERR

CSERHRD
14
TXERR

CASE 2
BR

50003

;OUTPUT TIMEOUT ERROR

LET ERRTBL(R2) := ERRTBL(R2)
INC
ERRTBL(R2)
LET LSLUN := R2 SHIFT -1
MOV
R2,LSLUN
ASR
LSLUN
15,0UTTIM
ERRKRD

.WORD

+ #1

CSERHRD

.WORD ~ QUTTIM

.WORD

CASE 3

000412

S0004%:

B8R

50003%
;

005262

003126

INC

010237

002074
002074

MoV
ASR

006237

PAGE 14-1
SECTION

.WORD

TRAP

104456

TRAP

000020
003745
000000

.WORD
.WCRD
WORD

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

01-0CT -80
12:06
GLOBAL SUBROUTINES

NEVER RECItVED THE INTERRUPT
+ #1

LET ERRTBL(RZ) := ERRTBL(RZ2)
ERRTBL(R2)
LET LSLUN := R2 SHIFT -1
R2,LSLUN
LSLUN
ERRHRD 16, TXNOIN
CSERMRD

16
TXNOIN

ENDSELECT

50003$:

026237
003402
004737

003126

IF ERRTBL(RZ2) GT MAXERR THEN
CMP
ERRTBL
(RZ) ,MAXERR
50007%
BLE
JSR PC,DROPIT
: MAXIMUM ERROR COUNT EXCEEDED

002304

005534
50007%:

042762

100000

005037

002350

012772
000207

000100

—

002524

ENDIF

LET STATUS(R2)

BIC

:= STATUS(RZ2) (LR.BY #ERROR

#ERROR,STATUS(R2)

LET ERRCOD := #0
CLR
ERRCOD
LET QaLPCSR(R2) := #1100
MOV
#100,3LPCSR(R2)

002370

RTS

e
; CLEAR THE FRROR Bl1 AND ENABLE INTERRUPTS
“AND EXIT

%:::::::::::::::::::::::::::::::::::::::::::::::::-; BINZDA

‘!

BINARY TO DECIMAL ASCII CONVERSION ROUTINE

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

12:06

GLOBAL SUBROUTINES

(4)

PAGE 14-2

SEQ 0031

SECTION

ENTER WITH NUMBER TO BE CONVERTED ON THE STA(K
FOLLOWED BY THE ADDRESS OF A 5 BYTE BUFFER
FOR THE ASCII STRING. 5 DIGITS WILL BE CONVERTED
LEADING ZEROES WILL BE CONVEPTED TO SPACES.
P{,BINZDA
CALL BY JSR

Y ~)
S NI AN
SN
NSNS WNW B WSS R
NS
NNV

—
—
e

AN
s
NI

—n

NN PO RO NN

AN AN AN AR A~AA~ANIPNOININININ
N nJ

C2LpPLC P

01-0CT-80

P
i

004472
004472
004474
004476
004476
004502
004502
004506
004506
004512
004512
004516
004516
004524
0046526
004526
004532
004532
004536
004540
004540
004540
004544
004546
004546
004552
004552
004556
004556
004560
004560
004560
004564
004566

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

T
A

BIN2DA: PUSH R4 ,RS

010446
010546

MOV
MOV

GET ADDRESS FOR ASCII

LET

;

GET ADDRESS OF

;

LEADING ZERO FLAG

MOV

012705

004664

MOV

005037

004676

005237

004700
000004

005337

004702

005737
002435

004702

RS,=(SP)
:= 6(SP)
, R4
6(SP)
RS := #TABLDA
#TABLDA,RS
FLAGDA := #0

;

000006

012737
000402

R4 ,-(5P)

LET R4

016604

LET
FLAGDA
CLR
LET COUNTD := #0
COUNTD
CLR

004702
50011%:
50010%:

. 8. (SP) HAS NUMBER
DECR DIGITS FROM #4
#6,DIGITS
MOV
50010%
BR
DEC

DIGITS

TST

DIGITS

BLY

50013$:

000010

50014%

COUNTD

NDDO

50013%

: CONVERT DIGIT TO ASCII OR SUPPLY A SPA(E

004700

052737

000060

113724

004700

MovBe

005237

004676

INC

000040

COUNTD GT #0 OR FLAGDA GT #0 THEN

BGT

COUNTD
50015%

BLE

50016%

1ST

FLAGDA

1ST

LET COUNTD := COUNTD SET.BY #60
#60,COUNTD

BIS

500168%:

CREATE A DIGIT

LET COUNTD := COUNTD + #1

005737
003003
005737
003410

000402

:= B.(SP) = (RS)

INC

004700

(RS) DO

(RS),8.(SP)

004700

50015%:

; DO 5 DIG:TS

LET 8.(SP)

005237

004676

CONVERTED

suB

50014%:

DECIMAL

TO #0 BY #1

8.(SP),(RS)

000010

000770

50012%
WHILE 8.(SP)

TO BE

(mMP
BLT

161566

112724

BR
MOove

LET

(R4)+

:B= COUNTD

COUNTD, (R&4) +

LEY FLAGDA := FLAGDA + M
ELSE

FLAGDA

50017%
LET (R4)+

#40,(R&)

:B= #40

STRING
TABLE

CILPLCO LP¢S, LP26 TEST MACY11
CZLPLC P
01-0CT7-80 12:06
1245
(4)
1246
1247
(6)
1248
(4)
1249
(4)
(3)

1250
1251
(6)

(9)
1252
(4)
1253
(4)
1254
1255
(4)

1256
(2)
(3)
1257
(6)

1258
1259
1260
1261

1262
1263
1264
1265

30A(1052)

004620
004620

004620
004620
004624
004624
004630
004630
004632
004632
004632
004636
004640

004640
004644
004644

01-0CT-80
12:06
GLOBAL SUBROUTINES

ENDIF

50017%:
062705

000002

005037

004700

ADD

000736

50012s:

005737
001002

004676

112744

000060

062706
000207

000604

004664
004672
004676
004700
004702

023420
000012
000000
000000
000000

001750
000001

016666

000004

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

#2,RS
LET COUNTD
CLR
COUNTD
CR
ENDDE
50011%
BR

:= #0

IF NUMBER WAS A ZERO PRINT A '0°

IF FLAGDA EC #0 THEN

TST

BNE

500208%:

004644
004644
004652
004652
004654
004656
004656
004662

G_3

PAGE 14-3
SECTION

50020%
LET =(R4) :B= #60
MOvVB
#60,~(R4)
ENDIF

CLEAN UP THE STACK AND EXIT

LET B8.(SP)

:= &(SP)

MOV
PoP
MOV

4L(sP),8.(SP)
RS ,R4
(SP)+,RS

LET SP

:= SP + #4

TABLDA:

.WORD

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

FLAGDA:
COUNTD:

.WORD
.WORD
.WORD

0
0
0

000010

012605
012604

MOV

ADD
RTS

000144

FLAGDA

DIGITS:

(SP)+,R4

nL,SP
PC

SEQ 0032

CILPLCO LPEZS, LP26 TEST MACYY1
CIPLC P11
01-0C7~80 12:06

30A(1052)

01-0CT-80
1/0 DR]VER

— OO0
NRNEWN
O
P o RN WA

o
RVeJo) 00000000
N NNNNNNNNN

ed
e
i
od
e
D
i
D
D
d oD
i
d
—
—

N~ ANINININYN
N NIANINI PO NI NI

.SBTTL

1285
1286
1287
(6)
(9)
1288
(4)

1289
(6)

1290

1291
1292
1293
(6)
1294
(6)
1295
(6)
1296
(4)

(3)
1297
1298

(6)
1299
(6)
(9)
1300
(4)
1301
(4)
1302
(4)

1303
(6)
1304

12:06

PAGE

SEQ 0033

/0 DRIVER

;#0

;THE I/0 DRIVER ROUTINE IS INVOKED BY MEANS OF THE
;CALL TO IT IS JMP
]ODRv.
;RETURN

INTERRUPT SYSTEM,

RTI,

;ENTER ROUTINE WITH R2 SET UP TO DESIRED UNIT 2. R2 IS USED
;70 CALCULATE OQFFSET
;R1

INTO PROPER TABLE.

EQUALS MAXIMUM NUMBER OF

UNITS ON SYSTEM UNDER

TEST.

: CHECK FOR ERROR FLAG IN STATUS REG.
004704
004704
004712

032772
001061

100000

002370

i ODRV:
IF

004714
004714
004720
004722
004722
004730
004730

005762
003416

002764

117272

002564

005262

002564

IF #BIT15 NOTSETIN @LPCSR(RZ)
#BIT15,aLPCSR(R?)
BIT
BNE
50021%

THEN

COUNT NOT ZERO SEND NEXT BYTE
157

IF CURCNT(R2) GT #0 THEN
CURCNT(R2)

BLE

50022%
LET @LPBUF (RZ2)

Move

002464

:B= aCURADD(R?2)

aCURADD
(R2) ,aLPBUF (R2)
LET CURADD(RZ) := CURADD(R?2)

INC

TURADD (R2)

+ #1

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
€05012
005016

052762

020000

005362

002764

052772

000100

002524

’

BIS

002370
50022%:

002664

005762
003424

002¢€64

016262

002724

#ACTIVE,STATUS(R?)
LET CURCNT(R2) := CURCNT(R2) - M
CURCNT(R2)

DEC

000437

005362

LET STATUS(R2) := STATUS(R2) SET.BY #ACTIVE

BIS

ELSE

LET SLPCSR(R?2) := aLPCSR(R2)
#100,aLPCSR(R2)

SET.BY #100

50023%

; CURRENT MSG DONE, IF PRINT COUNT NOT ZERO SEND AGAIN
LET REPCNT(R2) := REPCNT(RZ) - #1
DEL
REPCNT(R2)
IF REPCNT(R2) GT #0 THEN
TST

REPCNT(R2)

002564

Moy

MSGADR(R2) ,CURADD (R2)

016262

002624

002764

MOV

MSGCNT(R2) ,CURCNT(R2)

117272

002564

002464

Movs

005262

002564

3CURADD
(R2) ,8LPBUF (R2)
LET CURADD(R2)
2)
CURADD(R?
LET CURCNT(RZ)

BLE

INC

5C024%

LET CURADD(R2)

:= MSGADR(RZ)

; RESTORE THE MSG ADDR

LET CURCNT(R2)

:= MSGCNT(RZ2)

; RESTORE THE BYTE COUNIT

LET SLPBUF (R2)

:B= @CURADD(R?2)

; RESEND THE MESSAGE

CURADD(R2)

(URCNT(R2) - #1

+ #1

; BUMP THE POINTER

;

DROP BYTt COUNIT

CILPLCO LPZS, tP26 TEST MACY11
czLpec P11
01-0C7-80 12:06
(6)
1205
(6)
1306
(4)

1307
(4)

(3)

1308
1309
1310
(6)
1311
4)

NN N~ o~
n e~ PO
= N S ON = b — (N
~r
P\
= OO~ 00~ NON N

~ (N~ N ANA A~ (N A~

—

1312

1323

005916
005022
00502¢
00593C
005030
005036
005C36
005040

005040
005040
005046
005046
005054
005054
005054
005054
005054
005054
005056

005056
005056
005064
005064
005072

005076
005076
005076
005076
005100

30A€1052)

01-0CT-80
1/0 DRIVER

005362

002764

052762

020000

002524

BIS

012772

000100

002370

MOV

12:06

DEC

000406

500248:

042762

020000

002524

012772

000000

002370

15-1

CURCNT(R2}
LET STATUS(R2)
#ACTIVE,STATUS(R2)
LET BLPCSR(RZ)
#100,aLPCSR(R2)

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

50023$:
50021%:

SEG 0034

STATUS(R2)

:= #100

;

SET.BY WACTIVE

RE-ENABLE

INTERRUPTS

ELSE
50025%

50025%:

000410

PAGE

#00,aLPCSR(R2)
ENDIF

STATUS(RZ)

#09

CLR.BY WACTIVE

ENDIF
ELSE

50026%

; CLEAR ERROR CONDITION, ENABLE INTERRUPTS
; SET ERROR FLAG

052762

100000

002524

BIS

012737
004777

000001

002350

MOY

176026

#STATER,ERRCOD

JSR PC,aERRSVC

; ERROR SERVICE SHOULD CLEAR ERROR BIT AND ENABLE

500268:

012602
000002

LET STATUS(RZ) := STATUS(RZ2) SET.BY #tRROR
#ERROR,STATUS(R2)
. STATUS ERROR
LET ERRCOD := WSTATER

2
ld

ENDIF

POP R2
MOV
RTI

(SP)+,R2

INTR

b
el
e
—
—

L~ o~ AN AN AN AN AN
S ONSO
OV
NTLOW VeYo SV TV, LV, LV, |
—
VNVV—.OOQVN"’ O NN

—
— il il

SN WM AN~

—r

PAGE 16

SEQ 0035

THE

1/0 CONTROL SUBROUTINE

THIS ROUTINE
INPUTS:

,
VeV,

N FOR PRINTER NUMBER 'N’
ADDRESS OF MESSAGE 70 PRINT

BUFADD
BUFCNT

IS A SINGLE ENTRY QUEUF MANAGER.

IS INVOKED BY A JSR FROM AN [/0 CALL.
=1 FOR ALL TERMINALS
PRINTR

BYTE COUNT TO TRANSMIT TO PRINTER

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

—

005102
005102
005104

IOCTRL: PUSH R2,R3
MOV

0246
0346

R2,=(SP)

Mov

R3,-(SP)

: IF PRINTR IS -1 QUE OUTPUT TO ALL PRINTERS SELECTED
; OTHERWISE TO UNIT NUMBER

023727
001005

002332

013703

002012

005037

002074

ELSE

005142
005142

50027%:

012703

000001

013737

002332

[N PRINTR.

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

177777

000405

AN~

12:06

.SBTTL 1/0 CONTROL

[ele]

card mh —
e
D
d
D e
e
D
d e
- e

N AN N~ o~ N U N N AN WU AN N AN N NN N W
B B B W
W AN N N W N NN N AN NI PO N ~nD
N=O~
= 0NV
WNE SO0
~I0 N

CZLPLCO LPZS, LP26 TEST MACY11 30A(1052)
01-0CT-80
01-0C7-80 12:06
i/0 CONTROL
cILPLC.P

MOV
002074

500308

50030%

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

MoV
ENDIF

PRINTR,LSLUN

" REPEAT TILL R3 = 0
00514¢
005142
005142

005144
005146

005146
005152
005152

CTLLOP:

000137

IF R3 EQ #0 THEN

1ST

005703
001002

BNE
005460
50031$:

50031%

INLINE <JMP CTLEND>
CTLEND
JMP
ENDIF

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

013702
006302

002074

005037

002350

’

MoV
ASL

LET R2 := LSLUN SHIFT 1
LSLUN,R?

R2
LET ERRCOD
ERRCOD
(LR

= #0

CILPLCO LP¢S, LP26 TEST MACY11
czLpLc.en
01-0C7-80 12:06

30A(1052)

1363

1367
1368
1369
1370
(6)
(9)
1371
(4)
1372
(6)
1373
(4)
(3)
1374
1375
1376
1377
(6)
(9)
1378
(6)
(9)
1379
1380
1381
1382
(«)

1383
(4)
(3)
1384
(4)

(6)
(9)

1385

1386
(4)
1387
(2)

(2)
(2)
(2)
(2)
(2)
(2)
(2)
1388
6)

1389
(6)

12:06

PAGE

16-1

SEQ 0036

* IF THE UNIT HAS BEEN DROPPED SELECT THE NEXT UNIT

1364

1265
1366
(6)
(9)

01-0CT-80
1/0 CONTROL

005164
005164
005172

040000

002526

’

BIT
BNE

IF #DROPED NOTSETIN STATUS(R2) THEN
#DROPED, STATUS (R2)
50032%

*TEST FOR DVC ERROR BIT SET
005174
005174
005202
005204
005204
005212
005212
005220
005220
005222

’

IF #BIT1S SETIN aLPCSR(R2) THEN

#B1T15,aLPCSR(R2)
50033%
LET ERRCOD := #STATER

032772
001407

100000

002370

012737

000001

002350

MOV

052762

100000

002524

BIS

LET STATUS(RZ)
#ERROR,STATUS(R2)

50034%

000455

50033%:

BIT
BEQ

#STATER,ERRCOD

;

STATUS _REG ERROR BIT 15 SET

IN (SR

:= STATUS(RZ2) SET.BY #ERROR
'

ELSE

; MAKE SURE PREVIOUS MSG IS DONE
005222
005222
005226
005230
005230
005236

005762
003452

002764

032762

020000

001004

TST

BLE

BIT
BNE

002524

IF CURCNT(R2) GT #0 THEN

CURCNT(R2)

50035%

It #ACTIVE NOTSETIN STATUSI{RZ)
#ACTIVE,STATUS(R2)
50036%

THEN

; OUTPUT WAS QUEUED BUT 1/0 DRIVER WAS NEVER [NVOKED (VIA INTERRUPT)
005240
005240
005246
005246
005250
005250
005250
005250
005256

005260
005260
005266

01273%7

000003

002350

000442

50036%:
50040$:

LET ERRCOD

MOV

#NCINTR,ERRCOD

50037¢%
WHILE #ACTIVE

BIT
BEQ

#ACTIVE,STATUS(R2)
50041%

Mov

#100. ,DELCNT(R2)

000002

MOV

#2.,(PC)+

002116

MOV
.WCRD
DEC
BNE

LSDLY, (PC)+
0
=6(P()
.4

032762
001436

020000

002524

012762

000144

003064

012727
000000
013727
000000
005367
001375
005367
001367

7005362

003064

DEC

DELCNT(R?)

005762

003064

DELCNT(R?2)

177772
177756

.WORD

DEC
BNE

; NO INTERRUPT

:= WNOINTR

SETIN STATUS(RZ) DO

LET DELCNT(RZ)

:= #100.

DELAY 2.

;

200MS LOOPS

=22(PC)
.=20

LET DELCNT(R2)

DELCNT(R?) - M

[F DELCNT(R2) EQ #0 THEN

20 SEC. DELAY MAX

01-0CT-80
CILPLCO LPeS, LP26 TEST MACY11 30A(1052)
PIY
12:06
CZLPLC.
01-0C1-89
[/0 CONTROL
(9)
1390
(4)

13N
(6)
1392
(6)
1393
(4)

1394
(4)
(3)
1395
(4)
1396
(4)
1397
(4)

1398
(6)
(9)
1399
1400
1401
1402
1403
(4)

(3)
1404

1405
1406
1407
1408
(4)
1409
(4)
1410
(4)
1611
(4)
1412
(4)
16413
(6)
(9)
1414
(4)

1415
(4)
1416
(4)

1617
(4)
1418

1419
1420

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

00101

PAGE

BNE

50042%

SEQ 0037

16-2

LET ERRCOD

012737

000002

002350

MOV

#T1IMOUT ,ERRCOD

042762

020000

002524

BIC

#ACTIVE,STATUS(R2)

052762

100000

002524

BIS

#ERROR,STATUS(R2)

50040%

000736

50041%:

004777

TST

BEQ

50043%:

CLR.BY #ACTIVE

LET STATUS(RZ2)

:= STATUS(RZ)

SET.BY #ERROR

ENDDO

1F ERRCOD NE #0 THEN

ERRCOD

50043%

THE ERROR

175536

000425

:= STATUS(RZ)

ENDIF

50034%:

REPORT

LET STATUS(R2)

ENDIF

50035$:

002350

#TIMOUT

ENDIF

50037%:

005737
001403

ENDIF

:
500428

005362
005366
005366
005370

12:06

ELSE

JSR

PC,aERRSV(

500448

: Q UP THE MESSAGE AND ENABLE INTERRUPTS
.

005370
005370
005376
005376
005404
005404
005412
005412
005420
005420
005426
005426
005432
005434
005434
005442
005442
005442
005442
005442
005442

THE

1/0 DRIVER WILL PI(K UP FROM HERE.

013762

002362

002564

013762

002362

002724

MOV

013762

002364

002764

MOV

013762

002364

002624

MOV

013762

002366

002664

MOV

005762
003403

002764

012772

000100

MOV

TST
BLE

002370

Mov

50045%:
:
500449

50032%:

BUFADD
LET CURADD(R?) :
(R2)
BUFADD,CURADD
BUFADD
LET MSGADR(R?) :
,MSGADR(R?2)
BUFADD
BUF CNT
LET CURCNT(R?) :
)
URCNT(R2
BUFCNT,C
BUF CNT
LET MSGCNT(R2) :
NT(R2)
BUFCNT,MSGC
BUFREP
LET REPCNT(R2) :
)
BUFREP,REPCNT(R2
IF CURCNT(RZ2) GT #0 THEN
CURCNT(R2)
50045%
LET aLPCSR(R?) := #100
#100,3LPCSR(R2)

ENDILF

ENDIF
ENDIF

é CLEAR OUT ANY TIMEOUT COUNT

. BYTE ADDRESS
; MESSAGE ADDRESS

. OUTPUT COUNT
s BYTE COUNT
: PRINT COUNT

;

ENABLE

INTERRUPTS

CILPLCO LP2S, LP26 TEST MACY11 30A(1052)
cZLpPLC.P

e
nd
—
—
b
d
—

A A
£H
e e AP
N NN WA NI
NNV
nNN=O ~ o OO0~
O s
LD

1621
(4)

1433
1434
1435
1436
1437
1438
1439
1640
1441
16442
16443

01-0CT-80

01-0C7-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 LINFCOUNT
LET R3 := P3 - #1
’
R3
LET LSLUN := LSLUN + M
LSLUN
INC

DEC

005303
005237
000137

12:06

002074
005142

CTLEND:

012603
012602
000207

JMP

CTLLOP

POP
MOV
MOV

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

RTS

Sheee

SUBROUTINE

005466
005520

005532

000240
000207

QUIET

THIS SUBROUTINE WILL EFFECTIVLY DELAY UNTIL ALL QUEUED OUTPUT
IS FINISHED. THE DELAY [S ACCOMPLISHED BY QUEUEING A NULL

MESSAGE

QUIET:

TO ALL LINES.

OuTPUT
NOP
RTS

#0.,#0
PC

; NULL MESSAGE ouTtPuT

CZLPLCO LPZS, LP26 TEST MACY11 30A(1052)
CZLPLC.PM

01-0CT-80 12:06

01-0CT-80

[/0 CONTROL

12:06

PAGE 17

SEQ 0039

“L‘S

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

}229

; DROPIT

FUNCTIONAL DESCRIPTION :

1448
1449

OPERATOR THAT THE PRINTER WAS DROPPED.
SSEESS==SS==SS===IESSSSSSESETISITSSISSIISSSSSSSIIISIIZICICCICIoToo.

1450
12212

1453
(6)
1454
(&)
1455
(&)
1456
(8)
(7)
(6)
(3)
(&)

005534
005534
052762
005542
005542
012762
005550
005550 0C5072
005554
005554
013746
005560
012746
005564
012746
005570
010600
005572
. 104417

1458

005604

040000

002524

177777

002764

002074
004230
000002

062706

000006

005062

003126

(6)
1459
(6)
(9)

005337

002354

005737
001011

002354

012746
012746
010600
104417

003776
000001

005604
005610
005610
005614

1460
(7)
(6)
(3)
(&)

005616
005616
005622
005626
005630

1461
(3;
1462
(&)

005636
005636
005640
005640

(&)

1463
1464
}&65

005632

005640

062706

DROPIT:

002370

(4) 0N5574
L 9437 005600
;E} e
(4)
005600

THIS SUBROUTINE IS USED TO DROP A BAD PRINTER FROM THE TEST
DISABLE ANY INTERRUPTS FROM THE PRINTER, AND NOTIFY THE

LET STATUS(RZ2) := STATUS(RZ2)
BIS
#DROPED,STATUS(R?2)
LET CURCNT(R2) := #-1
MOV
#-1,CURCNT(R2)
LET QLPCSR(R2) := #0
CLR
3LPCSR(R?)
PRINTF “_"DROP, LSLUN
MOV
LSLUN,~-(SP)
MOV
¥LPDROP,-(SP)
MOV
#2,-(SP)
MOV
SP,RO
TRAP
CSPNTF

SET.BY #DROPED

ADD
#6,5P
LET ERRTBL(R2) := #0
CLR
ERRTBL(R2)

LET LUl := WUt - 1

DEC
uut
IF UUT EQ #0 THEN
TST
uut
BNE
50046%

PRINTF #UUTEQO
MOV
#UUTEQQ,-(SP)
MOV
#1,-(SP)
MOV
SP,RO
TRAP
CSPNTF

000004

104444
50046%:

000207

ADD

#4 ,SP

RTS

DOCLN
TRAP
CSOCLN
ENDIF

; NOTMING TO TEST

466
1467

JSITSSSSSSSSs-SZZSSISSSZSTIISSSSIoSTIIISSIIRIISIIISIZTISISSIISISIIIo

1470

: THIS SUBROUTINE IS REQUIRED TO INSURE PROPER PASS COUNT REPORITS

}ng
4

. FAKE
:

: IN A MULTI UNIT MODE OF OPERATION.

}:;;
1473

16474
(&)
1475
(64)
(6)
(9)
1476

FUNCTIONAL DESCRIPTION:

005642
005642
005646
005646
005646
005654
005656

005037

002074

023737
002007

002074

FAKE:

002012

LET LSLUN := #0
CLR LSLUN
WHILE LSLUN LT LSUNIT DO
50047%:
‘
(MP
“LSLUN,LSUNIT
8GE
50050%
GPHARD
LSLUN, R}

?
.

CILPLCO LPZS, LP¢6 TEST MACY11
CZLPLC.PY
01-0CT1-80 12:06
(3)
(3)
(3)
1477
(6)
1478
(&)
(3)
1479
1480
1481
1482

005656
005662
005664
005666
005666
005672
595672
005674
005674
005676

013700
104442
010003

00207«

005237

002074

000765
000207

30A(1052)

01-0CT-80
1/0 CONTROL

12:06

MoV
TRAP
Mov

50050%:

PAGE 17-1

LSLUN,RO
($GPHRD
RO,R3
LET LSLUN := LSLUN + #°
INC
LSLUN
ENDDO
BR
50047%
RTS
ENDMOD

SEQ 0040

CILPLCO LPgS, LP26 TEST MACY11 30A(1052)

C2LPLC.PN
1484
1485
1486
1487
1488
1489
1490
1491
1492
1493
(3)
1494
1495
1496

(3)
(3)

1497

(2)

1498

(3)
(3)

1499

(2)
1500
1501
1502

(3)
(3)
1503
(3)
(3)

1504
1505
1506
1507
(3)
1508
(6)
(9)
1509
(7)
(6)
(3)
(4)
(4)
1510
(7)
(6)

(3)

01-0C7-80 12:06

01-0CT-80

12:06

PAGE 18

(

SEQ 0041

INITIALIZATION SECTIOM
JSBTTL

S td

INITIALIZATION SECTION

;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 MEASUREMENT, AND WHETHER A DAVFU
:OPTION IS INSTALLED IN THE SYSTEM,

BGNMOD
BGNINIT
LSINIT::

005676
005676
005676
005676
005676
005702
005704
005704
005706
005706
005712
005714
005714

005716
005722
005722
005726

005730
205730
005732

SRESET EXTERNAL BUS IF START EVENT FLAG IS SET
:0R POWER FAIL RESTART

012700
104447

READEF #EF .START

MOV

000040

TRAP

READEF

MOV

00c037

TRAP

004737

005642

#EF .RESTART

#EF.RESTART,RO
CSREFG

012700

000000

JSR
SETPRI

MOV

TRAP

PC,FAKE
#PRIOQO

#PR100,RO
CSSPRI

TRAP

104432

.WORD

;NOW THE RESTARTILAG
;IF EITHER START OR POWER FAIL RESTART
;D0 A BUS RESET
. UPDATE PASS COUNT
; PRIORITY ZERO

. ELSE EXIT INIT CODE

EXIT INIT

001332

;TEST START EF INDICATOR
:BRANCH IF FROM START UP

gEgMPLET§s1$

103407

1044461

CSREFG

gEgMPLET§’1S

103413

012700
104447

#EF.START,RO

CSEXIT

L10004-.

:POWER UP RESTART OR START COMMAND ISSUED
005734
005734
005736
005736
005744
005746
005746
005752
005756
005760
005762
005766
005766
005772
005776
006000
006002
006006
006006
006006
006006
006010

1%:

104433

023727
003420

002012

012746
012746
010600
104417
062706

006654
000001

012746
012746
010600

006737
062001

062706

00CJ04

106417

TRAP

CSRESET

TRAP
ADD

CSPNTF
84 ,SP

;RESET THE BUS

IF LSUNIT GT #16. THEN
LSUNIT, #16.
CMp
50051%
BLE
PRINTF #NRGT16
#NRGT16,-(SP)
Mov
#,-(SP)
MOV
MOV
SP,RO

000020

000004

MoV
MoV
MOV

50051§:
104450

BRESET

PRINTF #NRGT17
#NRGT17,-(SP)
#1.-(SP)
SP,RO

TRAP
ADD
ENDIF

MANUAL
TRAP

CSPNTF
ys,SP

CSMANI

BNCOMPLETE

; WALT FOR CR IF

100%

IN MANUAL MODE

CILPLCO LPZS, LP26 TEST MACY11
CZLPLC.PTT 7 01-0CT-80 12:06
,42)

006010

103016

1515
(7)
(6)
(3)
(4)
,{4)

006012
006012
006016
006022
006024
006026

012746
012746
010600
104417
062706

30A(1052)

006773
00000

000004

1817
006032
006032
006036
006036

(4)

1522

1523
(3)
(3)
(4)

(5)
(5)
(5)
,3)

;PRINT RESET MESSAGE

005037

002350

006042

005037

002354

CLR

uuT

006046
006046
006050

104443
000404

GMANIL
TRAP
BR

READY,FLAG,100000,YES
(SGMAN
10000$

000130
007072
100000

.WORD
.WORD
.WORD

T$CODE
READY
100000

006042

006046

006052

006054
006056
006060
006062

LET UUT
1008:

002306

WORD

100008:

:= #0

;GET MANUAL PARAMETERS

FLAG

:REQUEST P-TABLE FOR PRINTERS UNDER TEST

(3)
(3)
(3)
1530
(2)
1531
(4)

00611G
006114
006116
006120
006120
006122
006122

006110

006126

013701
005301

002012

005037
003402

002074

005237

002074

023701
003132

002074

013700
104442
010003

002074

28 :

50053$:

500528:

013702

006302

006136

005763
001004

002074
.

000004

INC

LSLUN

(MP
BGT

LSLUN,
R
€0054$

ASL

;MAXIMUM NUMBER OF

UNITS

BY #1

GPHAID LSLUN,R3

SLUN,RO
($GPHRD
RO,R3
ENCOMPLETE 3%
BC”
3$
LET R2 := LSLUN SHIFT
MOV
LSLUN,R2

006130
006130
006134

LET R1 := LSUNIT - #
MOV
LYUNIT,
R
DE(
R1
INCR LSLUN FROM #0 TO R1
(LR
LILUN
BR
500528

MOV
TRAP
MoV

103121

1533

1536

#MRESET
MMRESET,
- (SP)
#1,-(SP)
SP,RO
CSPNTF
",sP

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

006062
006062
006066
006070
06607G
006074
006076
006076
006102
006102
006106

1535
(6)
(9)

PRINTF
MOV
MOV
MOV
TRAP
ADD

002306

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

(1)

1008

SEQ 0042

005037

1325

1529

BCC

:WAIT FOR A ''CR'* BEFORE GOING ON

1519
(4)
1520
(4)
1521

01-0CT-80
12:06
PAGE 18-1
INITIALIZATION SECTION

JREQUEST

P-TABLE

ADDRESS

;BRANCH IF vEVICE NOT PRESENT
1

CLEAR ERROR COUNT, OUTPUT COUNT, GET DEVICE

IF 4(R3) EQ_#0 THEN
TST
4(R3)
BNE
50055%

LET STATUS(R2)

TYPE

TO STATUS.

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

CILPLCO LP2S5, LP26 TEST MACY1T1
CILPLL P
01-0C7-80 12:06
(6)
1537
(4)

(3)

1538
(6)
(9)
1539
(6)
1540
(6)
1561
(&)
(3)
1542
(6)
1543
(4)
1544
(4)

1545
*546
1547
1548
(6)
(9)
1549
(6)
1550
(4)

(3)
155
(0)

1552
(&)

1553
(4)

1554
(4)

1555
(4)

1556
(4)
557

006136

006144
006144
006146
006146
006146

006154
006156
006156
006164
006164
006172
006172
006174
006174
006174
006202
006202

0462762

30A(1052)

4
E_
01-0CT-B0
12:06
PAGE 18-2
INITIALIZATION SECTION

002524

003000

000416

50055$:

gfge

#FELAGZH'FLAG27,STATUS(R2)

50056%

IF 4(R3) EQ #1
4L(R3) . N
(MpP

000004

052762

001000

00252¢

8IS

042762

002000

002524

BIC c

000001

000403
052762

BNE

50057$:
002524

003000

006202
006202

:
500568

LSE

LET STATUS(R2) := STATUS(R2) SET.BY #FLAG26
¥FLAG26,STATUS(R2)
LET STATUS(R2) := STATUS(R2) CLR.BY NFLAG27
#FLAG27,STATUS(R2)
500608

LET STATUS(R2) := STATUS(R?)
NFLAG26'FLAG27 ,STATUS(R2)

006216

006216
006220
006220
006220
006226
006226
006226
006226
006732
006232
006240
006240
(06244
(06244

005763
001004
042762

’

000006

ENDIF

010000

000403

052762

18T

BIC
50061%:

002524

010000

BR
BIS

50062%:

CLR
.

005062

003126

012762

177777

005062

003064

CLR

005062

002664

CLR

002764

MOV

64 OR 96 CHARACTER

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

BNE

0C2524

SEF.BY NFLAGR6!FLAGZ2?

ENDIF

* NOW GET THE BAND TYPE
006202
006202
006206
006210
006210

.
THEN

50057$

BIS
:
500608

SEQ 0043

50061%
LET STATUS(RZ) := STATUS(R?2)
SE#FLAG96.STATUS(R2)

CLR.BY #FLAGY96

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

SET.BY FFLAGY6

ENDIF

’
LET ERRTBL(R2) := #0
ERRTBL (R2)
LET CURCNT(R2) := #-1
#-1,CURCNT(R2)
LET DELCNT(R2) := #0
DELCNT(R?)

LET REPCNT(R2)
REPCNT(R2)

:= #0

"LOAD CSR ADDRESS INTO TABLE

006250

—

906250 012362
006254
006254
006262

006270
006270

016262
062762

012362

Mov

002370

002370
000002

‘002464
002464

002430 °

MOV
ADD

:= (R3)+

LET LPBUF(R2)

:= LPCSR(R2) + W2

(R3)+,LPCSR(R2)

LPCSR(R2) ,LPBUF (R2)
#2 ,LPBUF (R2)

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

:SET UP (SR ADDRESS FOR DEVICE

LET LPCSR(R2)

(R3)+,LPVEC(R?)

CILPLCO LP¢S, LP26 TEST MACY11
CZLpLC PN
01-0C7-80 12:06
1566
1567
1568
1569
(4)
(7)
(7)
(7)
1570
(6)
157
(&)
1572
(7)

30A(1052)

F_4

01-0CT-80
12:06
PAGE
INITIALIZATION SECTION

SFQ 0044

18-3

;SET UP DEVICE INTERRUPT VECTOR INFORMAT]ON
006274
006274
006300
006304
006310
006314
006314
006322
006322
0063390
006330
006334
006340
006344
006350
006352

LET WORK

:= R2 SHIFT 3

010237
006337
006337
006337

003166
003166
003166
003166

062737

040466

003166

013762

003166

003024

012746
016246
016246
012746

000200
003024

002430

[ 81"
MoV

#3,-(SP)

062706

000010

ADD

#10,SP

104437

MOV
R2,WORK
ASL
WORK
ASL
WORK
ASL
WORK
LET WORK := WORK ¢ #INTO0
ADD
#INT00,WORK
LET LPINTR(R2) := WORK
MOV
WORK ,LPINTR(R2)
SETVEC LPVEC(R2), LPINTR(RZ), #PRI04
MOV
#PR104,-(5P)
MoV
LPINTR(R2),=(SP)

000003

LPVEC(R2),=(SP)

TRAP

CHSVEC

: ADD ONE TO UNIT UNDER TEST COUNT
006356
005356
006362

005237
000403

LET UUT := Yt + M
INC
uut
4%
BR

002354

;INDICATE LSLUN NOT AVAILABLE FOR TESTING
006364
006364
006372
006372
006374

052762

040000

002524

000641

§¢.
4%:

:
500548

BIS

LET STATUS(R2) := STATUS(R2) SET.BY #DROPED

END INC

#DROPEC,STATUS(R2)

;GO BACK AMD DO

50053%

AGAIN

.........

; SETUP TO HANDLE (LOCK INTERRUPT
; IF AN L=CLOCK IS ON THE SYSTEM THEN SETUP A NOOP INTERRUPT
006374
006374
006402
006402
006406
006410
006412
006412
006414
006414
006422
006422
006426
006426
006434
006434
006442
006442

012737

000001

012700

000114

104462

002334

HANDLER BECAUSE

LSI

LET CLKTYP := M
#1,CLKTYP
MoV
cLoCck
L,R&
MOV
#'L,R0
TRAP

cscLcx

BCL

50063$

RO,R4
MOV
IFCOND CS THEN

010004
103031

002334

SYSTEMS MAY HAVE

MOV

LET CLKTYP := #2
#2,CLKTYP

MOV

R4, CLOCKP

012737

000002

010437

002336

017737

173704

002340

MOV

012777

000000

173676

MOV

016437

000004

002344

MOV

LET CLGCKP

THE

CLOCK ENABLED AT

ALL

: DEFAULT FOR NO CLOCK ON SYSTEM
:

TEST FOR L=-CLOCK

WE HAVE AN L-CLOCK

:= R&

LET CLKCSR := aCLOCKP
aCLOCKP,CLKCSR

LET @CLKCSR := #00
; TRY TO DISABLE
#00,3CLKCSR
; SETUP THE NOOP HANDLER
LET CLKVEC := &(R&)
L(R4),CLKVEC

oooooooo

INTERRUPTS

TIMES.

CILPLCO LPZS, LPZ6 TEST MACY11
CZLPLC PN
01-0C1-80 12:06
1596
(7)
(6)
()
(4)

(3)
(2)

1597
(4)
1598
1599
1600
1601
(4)
1602

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

(3)
(3)

1606
(6)
1607
(4)
1608

(4)
1609

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
006602

006606

006612
006614
006616
006622
006622
006626
006632

006634

006636

30A(1052)

01-0CT-80

MOV
MoV
MoV
Moy
TRAP

012737

000004

012700

000000

1044461

1046462
010004

1ST MANSPD

k1
BEQ
LET CLKTYP := #4

002334

MoV

#6 ,CLKTYP

MOV

#PR100,RO

SETPR]I #PR100

TRAP

000120

002334

000004

010437

002336

017737

173562

002340

Mov

016437

000004

002344

MOV

023727
001020

002334

012746
012746
010600

007127
000601

062706

000004

012746
012746
010600
104417
062706

007171
000001

104417

000004

MOV
[0}

000001

L10004-.

A P-CLOCK
CLOCK
MOV
TRAP
MOV
IFCOND

012737

173546

CSEXIT

.WORD

BCC

START TEST AT PRI 0

C$SPRI

TRAP

1F
(x1:

;

INIT

EXIT

006000

#10,5P

50063
; IF THE (PERATOR WANTS MANUAL SPEED TEST SET CLOCK TYPE

103016

012777

CLKVEC,#IGNORE ,#PRI06

#PR106,=-(SP)
# IGNORE
, = (SF)
CLKVEC,=-(SP)
#3,-(5P)
C$SVEC

t W F

104432
000542

012700

SETVEC

ADh

000010

002276

SEQ 0045

PAGE 18-4

INITIALIZATION SECTION

000300
007266
002344
000003

005737
001410

12:06

IS ON THE
P,R&
#'P,RO
CeCLCK
RO,R4
CS THEN

SYSTEM UPGRADE

;

50064%

CLOCK

HAVE

TYPE

A P-CLOCK

CLKTYP := W4
#4,CLKTYP
LET CLOCKP := R4
LET

R4 ,CLOCKP

LET CLKCSR

:= aCLOCKP

LET CLKVEC

:= 4(R&)

aCLOCKP,CLKCSR

;

4(RG),CLKVEC
TRY TO DISABLE

LET aCLKCSR

THE

:= #00C

MOV
ENDIF

#00,a8CLKCSR

(MP

¢
CLKTYP,

P-CLOCK

50064%:
; 1F NO CLOCKS ON THE SYSTEM NOTIFY THE OFERATOR
IF CLKTYP EQ #1 THEN

BNE

50065%

PRINTF #NOCLCK
MOV
#NOCLCK,=(SP)

Mov
MOV

M ,-(SP)
SP,RO

MOV
MOV

#,-(SP)
SP,RO

ADD

re ,sP

TRAP
ADD

CSPNTF
¥ ,SP
PRINTF #NOTINM
MOV
#NOTIM, -(SP)

TRAP

CSPNTF

T0 3

CILPLCO LPZS, LP26 TEST MACY11
ceeec.en
01-0C7-80 12:06
1618

006642
006642
006642
006642
006646
006650
006650
006652

012700
1044461

047045

007072
007127

007171

042504
045
045

007262

000000

007264
007264
007264

045

065

12:06
PAGE 18-5
01-0C7-80
INITIALIZATION SECTIONM

50065$%:

SEQ 0046

ENDIF

SETPR] #PRIO0O
#PR100,
C$SPRI

MOV
TRAP

EXIT

104432
000412

006654
006737

006773

000000

30A(1052)

.NLIST BEX

/XNZANOHBER OF LINE PRINTERS UNDER TEST EXCEEDS 16./

04044 5
47501
02251 6
02251 6 7051101

NRGT16:
NRGT17:

051505

READY:
NOCLCK:
NOTIM:

/XNXAHARDWARE CLOCK NCT AVAILABLE./
/AINXAAUTO PRINTING SPEED MEASUREMENT

PLOC:

05112 0

02251
02251

104411

044101
040501

MRESET:

.
.

/ANXAONLY 16 WILL BE TESTED./
/XNXARESET LINE PRINTER(S), DO FORM FEED,

/DEPRESS ''RETURN'' WHEN READY./

.EVEN

LLIST BEX
ENDINIT
L10004:

CANNOT BE

THAT

IGNORES

THE

INTERRUPT.

USED FOR SYSTEMS WHERE CLOCK CANNOT BE
..............

:
IGNORE

000102

SUBROUTINE WILL

TO THE

1658

1659

RESVEC::

010346
010446

005004

013703
005703
003417

002012

“« e

MOV
MOV

(LR

“. MOV

500668:

TURNED OFF.

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

FUNCTIONAL DESCRIPTION

RESVEC

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

RTI

THIS

TST
BLE

PERFORMED./

CSINIT

"AN INTERRUPT CATCHER FOR THE L=CLOCK

007266
007266

AND PLACE ON LINE.XN/

SETUP ALL UNITS VECTOR AREAS

'NORMAL'

INTERRUPT ROUTINES STARTING AT

PUSH

R3,R4

R3,-(SP)

R4 ,-(S5P)

LET
R&

INTOO.

:= #0

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

50067%
SETVEC LPVEC(R&G), LPINTR(R4), #PRIO&

CILPLCO LPZS, LP26 TEST MACY11 30A(1052)
01-0CT-80 12:06 PAGE 18-6
c2LpLc P
01-0CT-80 12:06
INITIALIZATICN SECTION
(7)
(6)
(5

000200
003024
002430
000003
00001C

Mov
MOv
MOV
MOV
TRAP
ADD

062704

000002

ADD

#PR104,-(SP)

LPINTR(R4L) ,-(SP)

LPVEC(R&L) ,=(SP)

#3,-(SP)
CSSVEC
#10,5°P

LET R4

[

AR NS

(4
(3
(2
16 6
(6)
1661
(6)

012746
016446
N16446
012746
104437
062706

1662
(4)

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

007346
007350

005303

DEC

000757

012604
012603
000207

50067%:

MOV
MOV

:= R4 + &/

LET R :- R3 - M

ENDDO

50066%

POP R4 ,R3
(SP)+ R4

(SP)+,R3

RTS

SEQ 0047

CZLPLCO LPZS, LP26 TEST MACY11
czLpPLc.P
01-0CT1-80 12:06
1667
1668
(2)
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678
(2)
1679
(3)
1680

(3)
(3)
1681
(3)
1682
1683
(4)
(6)

1684
(4)

(5)

(4)
(7)
(5)
(5)
(r)

1685
1686
1687
(4)

(7)
1688
1689
(6)
1690
(4)

1691

(&)

1692
(4)
1693
(4)
1694
(4)

(3)
1695
1696
(6)

30A(1052)

01-0CT-80

PAGE 19

SEQ 0048

CLEANUP CODING SECTION
.SBTYTL
STARS

007352

12:06

CLEANUP CODING SECTION

;;ttt..'ttt'ttt'it""'t"""'ttt'tttttt'ttittt'tttt'."tt"t"'

; THE PURPOSE OF THE CLEANUP SECTION IS TO CLEANUP ALL PRINTERS UNDER TEST
;AND RETEST ANY UNITS WHICH HAVE BEEN DROPPED FROM
TESTING TO INSURE
:THEY HAVE NOT COME BACK ON LINE. IF THE DEVICE HAS (COME BACK ON LINE

THAT

;TESTING WILL BE RESTARTED ON THE DEVICE. THIS INSURES THAT
;IN THE EVENT A PAPER OUT OCCURRED AND THE OPERATOR HAS PUT ADDITIONAL PAPER
;INTO THE UNIT UNDER TEST, THE INITIALIZATION SEQUENCE DOES NOT
;HAVE

TO BE

DONE

AGAIN

IN ORDER

TQO GET

THE

DEVICE

ACTIVE.

007352
;"t'tttt'ttttttt'ttt't"'ti"'it"ti'ttttt'tttl"'t'tt'iitt't""

007352
007352
007352
007352
007356
007360
007360
007362
007362
007366

007370
007370
007374
007376
007376

007402
007402
007406

007410
007410
007414
007416
007416
007424
007424
007432
007432
007436
007436
007442
007442
007446
007446
007450
007450
007454
007454
007462

BGNCLN

012700
1044461

LSCLEAN::
SETPR] #PRI10O7
MOV
#PR107,R0

000340

TRAP

1044633

TRAP

013701
005301

002012

005037
000402

002074

005237

002074

023701
093020

00207¢

CLEAN:

50071%:
50070%:

50070%

INC

LSLUN

CMP

LSLUN,R1

042762

160377

002524

012762

177777

002764

005062

003126

005062

003064

005062

002664

002334

INTERRUPTS,

MOV
ASL

LSLUN,R2
R2

SELECT ALL LINES

MOV

-1, CURCNT(RZ)

; CLEAR ALL BITS IN STATUS EXCEPT DEVICE TYPE
LET STATUS(R2) := STATUS(RZ) CLI*.BY #ERROR!'DROPED'ACTIVE!LOBYTE
8IC
#ERROR'DROPED!ACTIVE.LOBY'E,STATUS(R?)
LET CURCNT(R2) := #-1
LET ERRTBL(R2) := #0
CLR
ERRTBL (R2)
LET DELCNT(R2) := #0
DELCNT(R2)
CLR
LET REFCNT(R2) := #0
REPCNT(R?)
CLR
ENDINC

000753

023727

50072%

DISABLE ALL

UNITS-1

; ZERO ALL ERROR COUNTS
LET R2 := LSLUN SHIFT 1

002074

001006

BGT

013702
006302

007270

CSRESET

LET R1 := LSUNIT - M1
;NUMBER OF
LSUNIT,R1
MoV
R1
DEC
INCR LSLUN FROM #0 T0 R1 BY #1
LSLUN
CLR

004737

($SPRI
BRESET

50072%:

000003

50071%

JSR
PC,RESVEC
lF CLKTYP EQ #3 THEN
CLKTYP, &3
(mp
50073%
BNE

: RESET THE VECTORS

CILPLCO LP¢S, LP26 TEST MACY11
czeeLc.e
01-0C7-80 12:06
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

017700

172654

012777

000000

104436

30A(1052)

K
01-0CT-80
12:06
PAGE 19-1
CLEANUP CODING SECTION
MOV
TRAP

172640

50073%:

CLRVEC aCLKVEC
aCLKVEC,RO
CSCVEC

LET 9CLKCSR

MOv
ENDIF

:= #00

#00,3CLKCSR

JF CLKTYP EQ #2 THEN

023727
001013

002334

012746
012746
013746
012745

000300
007266
002344
000003

MOV

"
0000"

ADD
ENDIF

#10,5P

SETPRI
MoV

#PRI10O
#PR100,RO

TRAP

CSCLEAN

104437
062706

000002

CMP
BNE

012700
1044461

104412

CLKTYP,#2
500749%
SETVEC CLKVEC,#!GNORE,#PRI06

MOV
MOV

MOV

TRAP

50074¢:

000000

TRAP

ENDCLN

L10005:
ENDMOD

#PR106,-(SP)

# I[GNORE
, = (SP)
CLKVEC,=(SP)

#3,-(SP)
($SVEC

C$SPRI

SEQ 0049

CILPLCO LP¢ZS, LP26 TEST MACY11
C2LpPLC PN
01-0C7-80 12:06

30A(1052)

01-0CT-80

INTERFACE

i
i
S
S
o
IO
-

~~ ANNNNNNNSNNNNN
"o AWNPIND B d ed o cd cd D o eed D
~
s = OOV
NN
NN —O

.SBTTL

007546

12:06

LGGIC

PAGE 20

INTERFACE LOGIC

BGNMOD
[ee

sTHIS TEST VERIFIES THE OPERATION OF THE
;PERFORMED

FOR PRINTER ERROR,

INTERFACE LOGIC.

PRINTER READY,

AND

TESTS ARE

CLEARING PRINTER READY

;BY LOADING A CHARACTER INTO THE OUTPUT BUFFER. ALSO IT IS VERIFIED

; THAT THE PRINTER WiLL NOT INTERRUPT IF [T [S AT THE SAME PRIORITY LEVEL
:AS THE PROCESSOR, BUT WILL INTERRUPT IF THE PROCESSOR IS AT A LOWER
;PRIORITY LEVEL. THE PRINTER [S AT PRIORITY LEVEL 4.

007546
007546
007546
007546
007552

é?NTST

LET R1

:= LSUNIT - #1
LSUNIT,R1
MOV
R1
DEC

T1::

013701
005301

002012

"HARD CODED INCREMEMNT LOOP
007554
007560

007562
007562
007566
007566
007572
007574
007600

007600
007600
007604
007606
007606
007614
007616
007616
007624
007624

1744
1745
1746
(6)

SEC 0050

007630
007630
007636
00763¢
007640
007642
007644
007646
007646
007652
007652
007652
007652

005037
000402

002326

005237

002326

023701
003402
000137

002326

013702
006302

00236

032772
001416

100000

002370

052762

100000

002524

005262

003126

013737

002326

-START LOOP

’

CLR

LUNIT

SUNIT TO 0

INC

LUNIT

;UPDATE UNIT NUMBER

CMP

LUNIT,R

JMP

BLE

002074

T1C

‘DO COMPARE

;DO COMPARISON OF

"ONTO NEXT UNIT
“EXIT LOOP

LET R2 := LUNIT SHIFT 1

MOV
ASL

LUNIT,R2
R2

IF #BIT15 SETIN aLPCSR(R2) THEN
#BIT15,aLPCSR(R2)
BIT
50075%
BEQ
LET STATUS(R2) := STATUS(RZ2) SET.BY #ERROR
#ERROR,STATUS(R?2)
BIS
LET ERRTBL(R2) := ERRTBL(R2) + M
INC
ERRTBL(R2)
LET LSLUN := LUNIY
MOV
LUNIT,LSLUN
ERRHRD 1,CSRERR
TRAP

CSERHRD

.WORD
.WORD

CSRERR
0

LWORD

000001
003420
000000

;ERROR BIT WAS SET.

LET @LPCSR(R2) := #0
aLPCSR(R2)
CLR

002370

ENDIF

50075$%:
:TIME DELAY

. IF NOT READY ALLOW 3 SECONDS TO COME UP

032772.

000200

002370

UNITS ON SYSTEM

T1C:

104456

005072

“INCR LUNIT FROM #0 TO R1 BY #1

T1A:

010264

;MAX NUMBER OF

IF #BIT7 NOTSETIN aLPC §§(R2) THEN
#B117,3LPCSR(R
BIT

SAY SO

UNIT NUMBER

—
—

b
b
b e

SNSNSNAASNA
S
S S
S N~
WSS S SOOI
NININON B O
B O~ Q0
o o
o
o N

CZLPLCOP%:ZS. LP26 TEST MACY11
CZLPLC
01-0CT-80 12:06
007660
007662
007662
007666
007670
007674
007676
007702
007704
007710
007712
007712

30A(1052)

0°-0CT-80
12:06
INTERFACE LOGIC

001014

012727
000000
013727
000000
005367
001375
005367
G01367

BNE
000036

177772
177756

BNE

S50076%:

SEQ 0051

50076$%
DELAY 30.

Mov
.WORD
MOV
.WORD
DEC
BNE
DEC

002116

PAGE 20-1

ENDIF

#30.,(PC)+
0
LSDLY,(PC)+
O
=6(P()
.=b
=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

052762

100000

002524

013737

002526

002074

005262

003126

002370

IF #BIT07 NOTSETIN @LPCSR(R2)
#B17107,aLPCSR(R2)
BIT
50077%
BNE

LET STATUS(R2)

#ERROR,STATUS(R2)
BIS
LET LSLUN := LUNIT
MoV
LUNIT,LSLUN
LET ERRIBL(RZ) := ERRTBL(RZ)
ERRTBL(R2)
INC

000002

.WORD

ENDIF
50077%:

;TEST

FOR

THE

READY

BIT

:= STATUS(RZ2) SET.BY #ERROR

ERRHRD 2.RDYERR
TRAP
CSERHRD

003436
000000

THEN

+ M

;REPORT

AN ERROR

RDYERR

;INSURE LOADING CHARACTER CAUSES PRINTER READY TO GO AWAY
007752
007752
007760
007760
007766
007770
007770
007776
007776

012772

000012

002464

032772
001416

000200

002370

052762

100000

002524

005262

003126

013737

002326

LET SLPBUF(R2) := #12
MOV
#12,aLPBUF
(R2)
IF #B1T07 SETIN @LPCSR(RZ) THEN
#81707,8LPCSR(R2)
BIT
BEQ
50100%
LET STATUS(RZ) := STATUS(RZ) SET.BY #ERROR
#ERROR,STATUS(R2)
8IS
LET ERRTBL(RZ) := ERRTBL(RZ2) + M

INC

002074

ERRHRD 3,ERR11

104456

TRAP

002370

CSERHRD

;REPORT AN ERROR

.WORD
3
ERR11
.WORD
.WORD
0
LET SLPCSR(R2) := #0
eLPCSR(R?2)
CLR

000003
010511
000000
005072

ERRTBL(R2)

LET LSLUN := LUNIT
MOV
LUNIT,LSLUN

ENDIF

50100%:

IVERIFY THAT THE PRINTER WILL NOT INTERRUPT [f IT IS AT A PRIORITY LEVEL

CILPLCO LPEgS, LP26 TEST MACYT1 30A(1052)
01-0CT-80
12:06
cZLpPLc P11
01-0CT-80 12:06
INTERFACE LOGIC
mm
1772
1773

(3)
(3)

1774
(N
(6)
(5)
(4)

010024
010024
010030
010032
010032
010036
010042
010046
010052
010054
010060
010060

000200
000200
010422
002430
000003

000100

012727
000000
013727
000000
005367
001375
005367
001367

000036

SETVEC LPVEC(R2),#INTERR,#PRI0G

;LP VECTOR SET UP

MOV
TRAP

#PR104,RO
C$SPRI

MOV

#PR104,-(SP)

MOV

TRAP
ADD

000010

052772

;CPU TO PRIORITY &

MOV

MOV
.WORD
MOV
WORD
DEC
BNE

002116
177772

177756

#INTERR,=(SP)

LPVEC(RS),=-(SP)

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

s INTERRUPT ENABLE
LET aLPCSR(R2) := aLPCSR(R2) SET.BY #100
#100,aLPCSR(R2)
BIS
DELAY
30.
; ALLOW 3 SEC FOR DELAY

002370

DEC
BNE

#30.,(PC)+
0
LSDLY, (PC)+
O
-6(PC)
e

222(PC)
.=20

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

)
e
il
el
)
el
i
b
i
il
el

jelolelelelolels]
L1V1,1,
V], N1, N

Vvh277?

600100

012700
1044461

000140

012746
012746
016246
012746
104437
062706

000200
010452
002430
000003

052772

000100

012727

000G30

000000
013727

[elelelolalelelalelelalelele]

Co £~ 000 [
JaS1aS
1 N1 N1, 8], N
R
UD ~r g~ [« RKRR

-8

—

~ N~ e

—

SEQ 0052

SETPRI #PRIO4

MOV

(&)

PAGE 20-2

; THE SAME AS THE CPU

NN
S~
SNNNNNONRNINNND
OO N
o ~r s

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

000000
005367
001375
005367
001367

#PR103,RO
CS$SPRI

MOV

#PR104,-(SP)

MOV

LPVEC(R2) ,=-(SP)

TRAP

002370

#INTHDL , - (SP)

#3,-(SP)
CSSVEC

ADD

#10,5P

MOV

LSDLY, (PC)+

LET aLPCSR(R2) := aLPCSR(R2) SET.BY #100
s INTERRUPT ENABLE
#100,aLPCSR(R2)
BIS
DELAY 30
; ALLOW 3 SEC DELAY
#30, (PO +
MOV
WORD
O
WORD
0
-6(PC)
DEC
=4
BNE
222(P0)
DEC
=20
BNE
LET ERRTBL(R2) := ERRTBL(R2)

177756

002326

MOV
TRAP

MOV

177772

013737

LET QLPCSR(R2) = a'Pcsn(ag) CLR.BY #100
;CLEAR INTERRUPT ENABLE
#100,3LPCSR(R2
BIC
SETPRI #PRIO3
;CPU TO PRIORITY 3

MOV

002116

003126

PRINTER PRI ORITY

SETVEC LPVEC(R2),#INTHDL,#PRI0G

000010

005262

104456

002370

; THE

002074

ERRTBL (R2)
INC
LET LSLUN := LUNIT

MOV

LUNIT,LSLUN

TRAP.

C(SERHRD

ERRFRD &,ERR13

+ #1

CILPLCO LPZ S, LP26 TEST MACY11 30A(1052)

CILPLC.PT1
(5)

(5)
(5)
1789
(4)
1790

(6)
1791
1;3%

~ 01-0CT-80 12:06

010232

010234
010236
010240
010240
010246

010246
010254
010254

SEQ 0053

012772

000000

002370

042762

160000

002524

005062

003064

&
.WORD
ERR13
WORD
O
LET aLPCSR(R2) := #00
: CLEAR THE LPCSR
MOV
#00,3LPCSR(R2)
LET STATUS(R2) := STATUS(R2) CLR.BY WERROR'DROPED.ACTIVE

END2:

BIC
#ERROR !DROPED ' ACTIVE,STATUS(R2)
LET DELCNT(R2) := #0
CLR
DELCNT(R2)

*END OF HARD CODED INCREMENT LOOP
SENDINC

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

010260
010264
010270
010270
010274
010276
010340
010340
010346
010350

(5)
(5)

010354
010354

1é32

B_S

PAGE 20-3

WORD

010650
000000

};gg

(7)
1801
(2)
(2)
(2)
(2)
(¢)
(2)
(2)
(2)
1802
(&)
(3)
1803
(3)

12:06

INTERFACE LOGIC

000004

1793

(7)

01-0CT-80

010350

010362
010364
010364
010370
010372
010376
010400
0106404
010406
010412
010414
010414
010416
010416
010416

010420

000137
004737

007562
007270

012700
104441

000000

012737
000402

00007«

005337

003166

023727
002415

003166

012727
000000

000250

013727
000000
005367
001375

005367
001367

T1B:

003166
50102%:

000001

:
501018

002116

177772

177756

000755

501038:

EXIT TST

104432

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

CMP
BLT

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

TRAP

.WORD

000304

WORK

CSEXIT

SEXIT THE TEST

L10006-.

1805

" INTERRUPT HANDLER TO SERVICE FAULTY INTERRUPT FROM LP INTERFACE.

}ggg

“THE CPU AND IS CONSIDERED AN ERROR.

“THIS ROUTINE IS ENTERED ONLY WHEN THE LP INTERRUPTS AT THE SAME LEVEL AS

1806
1809

1810
(6)
1811
(4)

010422

010422
010422

010426
010426

1812 0104364
(4)
(5)
(5)

010434
010436
010440

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 5,ERR12
TRAP
WORD
"WORD

CSERHRD
S
ERR12

—

D
o
and
e
—
-

—

00 00 ~ ~ 00 ~ 00 0000 000000 ~ ~ 00~ 00~
PIOPOPNINNI
LN = D
D DI N =
=2 LN
W)~
=2
O D00 NN N~ S v N~

CILPLCO LPeS, LP26 TEST MACY11
cZLpLC.P
01-0CT-80 12:06

1824
1825
1826

1827
1828
1829

1830
1831
1832
(3)
(35)
1833

1834

1835

010442
010444
010444
010450
010450
010450

30A(1052)

000000
012716

01-0C7-80

INTERFACE LOGIC

LET

010240

(SP)

ENDSRV

L10007:

000002

12:06

5
€
PAGE 20-4

.WORD
0
:= WEND?

MoV

#ENDZ, (SP?

RTI

S INTERRUPT HANDLER FOR EXPECTED INTERRUPT
BGNSRV

010452

010452
010452
010456
010456
010456

010460
010466
010474
010502
010510

012716

INTHDL: LET (SP) := WEND2

010240

ENDSRV

L1001G:

000002

047111
041501
044507
052123

000

MOV

RTI

INTFAC: .ASCIZ

042524
020105
020103
030440

REND2, (SP)

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

JERROR MESSAGES ASSOCIATED WITH THIS TEST
016511
010565

010650

010724
010724
010724
010726

046504
052116
062524

NLIST BEX
ERR11:
ASCIZ
ERR12:
ASCIZ

EER;3: ASCIZ
.EVEN

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

/PRINTER DID NOT INTERRUPT AT CPU PRIORITY 3/

ENDTST

L10006:

TRAP

CSETST

SEQ 0054

CILPLCO LPeS, LP26 TEST MACY11 30A(1052)
01-0C7-80
12:06 PAGE 21
READY LINE INTERLOCKS
(ZLPLC.PN
01-0CT-80 12:06
TEST 2
1837
1838
1839
1840
1841
1842
1843
1844

.SBTTL

010726

READY LINE

INTERLOCKS

SEQ 0055
TEST 2

BGNMOD
MR

;THIS TEST CHECKS THE OPERATION OF THE
;PRINTER READY INTERLOCK SWIT(CHES.
;MANUAL INTERVENTION IS USED TO

sOPEN THE INTERLOCKS TO PRODUCE FAULTS

;IN THE PRINTER AFTER WHICH THE RESULTANT ERROR

010726
010726
010726
010726
010730
010730
010732
010732
010734
010736
010736
010742
010744
010744
010746

010750
010750
010750
010750
010754
010754
010760

el el

010762

—

B NP
a2 O

VANV
N
N NN

-—
—

Q0 ~ ~ 00 ~ 00 —~ 00 00

—
b

;INDICATION IS VERIFIED.
BGNTST
T2:

;DETERMINE

104450

TRAP

CSMANI

BCOMPLETE 11%
1%
BCS
EXIT TST

103402

104432
002746

005737
001002

IF MANUAL INTERVENTION > ALLOWED

MANUAL

TRAP

CSEXIT

.WORD

L10011-,

CEXIT TEST IF MANUAL INTERVENTICN TESTS ARE NOT SPECIFIED
11$%:

002272

INHINT EQ #0 THEN

BNE

501048

1ST

INHINT

EXIT TST

104432

TRAP

002734

.WORD

CSEXIT

L10011~,

ENDIF

501048

005037

002306

013701
005301

002012

005037
000402

002326

005237

002326

023701
003020

002326

013702
006302

002326

032772
001410

100000

005262

003126

LET FLAG := #0
CLR

FLAG

LET R1

:= LSUNIT - N

DEC

MOV

{SUNIT,RY

;CHECK FOR ERROR I[N EACH PRINTER UNDER TEST
INCR LUNIT TROM #0 TO R1 BY M
50106%:

50105%:

CLR

LUNIT

INC

LUNIT

CMp

R
LUNIT,

MOV
ASL

LUNIT,R2
R2

50105%

50107%
8GT
LET R2 := LUNIT SHIFT 1

002370

IF #BIT15 SETIN @LPCSR(RZ) THEN
#BIT15,aLPCSR(R2)
BIT
50110%
BEQ
LET ERRTBL(R2) := ERRTBL(R2) + m
ERRTBL (R2)
INC
ERRHRD 6, CSRERR

S
E
TEST
MACY1Y
30A(1052)
01-0CT-80
12:06
PAGE
21-1
LP26
LPZS,
CILPLCO
TEST 2
READY LINE INTERLOCKS
cZLpic.Pn
01-0CT-82 12:06
(&)

(9)
(5)
(5)
1868
(4)
1869
(4)
1870
(4)
(3)
1871
1872
(4)
(5)
(4)
(7)
(5)

(5)
(7)

1873
(&)
(7)
1874

(4)

1875
(6)
(9)
1876
(6)
1877
(&)
(%)

(5)

(5)
1878
(4)
1879
(4)
(3)
1880
1881
1882
1883
1684
1885
1886
1887

(4)
1888
1889

1890

1891

1892
(4)

(7)

011024

011026
011030
011032
011034
011034
011040
011040
011040
011040
011042
011042
011042
011046
011050

011050
011054
011054
011060
011062
011062
011066
011070
011070
011076
011076
011104
011106
011106
011112
011112
011114
011116
011120
011122
011122
011122
011122
011124

104456

TRAP
.WORD

000006
003429
(00000

005072

.WORD
.WORD

CLR

002370

:
501108

ENDIF

ENDINC
BR

000753

SEQ 0056

gSERHRD
CSRERR
0

LET QLPCSR(R2)
aLPCSR(RZ)

:= #0

50104%

50107s:

;CHECK FOR READY IN EACH PRINTER UNDER TEST
INCR LUNIT FROM #0 10 R1 BY M

005037
000402

002326

005237

002326

023701
003021

002326

013702
006302

002326

013737

002326

002074

032772
001006

000200

002370

005262

003126

50112%:
50111%:

CLR
BR

LUNIT
50111%

INC

LUNIT

LUNIT,RT
CMP
50113$%
BGT
LET R2 := LUNIT SHIFT 1
MOV
LUNIT,R2
ASL

MOV

LUNIT,LSLUN

BNE

50114%

INC

ERRTBL(R2)

LET LSLUN := LUNIT

IF #BIT07 NOTSETIN QLPCSR(RZ) THEN
#BIT07,3LPCSR(R?)
BIT

LET ERRTBL(R2)
TRAP

104456
000007

:= ERRTBL(RZ) + M

ERRHRD 7, RDYERR
CSERHRD

.WORD

RDYERR
.WORD
.WORD
__ 0
ENDIF

(03436

000000

50114%:
END INC
BR

000752

50112%

:
501128

: PRINT TEST NAME
OQUTPUT #INTLK, #29.

011124

;VERIFY OPERATION OF PAPER LOW INTERLOCK SWIT(CH
;HARD CODED

011166

011166
011172
011176

005037
005037
000405

002352
002326

011200

005237

002326

011204

013702

002326

011200
u11204

011210

006302

INCREMENT LOOP

LET ERRFLG := #0

CLR
CLR LUNIT

2%:

ERRFLG

INC LUNIT

LET RZ2 := LUNIT SHIFT 1
MOV
ASL

LUNIT,R?
R2

CZLPLCO L ©25.

czLpPLc.Pn
1893
1894
1895
1896
1897

1898
(4)
1899
(8)

)
(6)

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

1902

(&)
1903
(4)
19046
(3)

1905
1906
'6)

907
(4)
(6)
(&)

(7)
(4)
1908
(6)

(9)
1909
(4)
(5)
(5)
(5)

1910
(6)
1911
(2)
1912

LP26 TEST MACY11 30A(1052)

01-0CT-80 12:06

011212
011212
011216
011220
011224

023701
003402
000137

002326

011224
011224
011230

005037

002306

011230

011234
011240

013746

002326

011244
011246
011250
011254
011254
011260
011264
011266
011270
011274
011276
011275
011300
011302
011304
011306
011310

012746
012746

010600
104417
062706

011310

011310
011316
011316
011322

012746
012746
010600
104417
062706

011364

011370
011370
011374
011376

011402
011404
0114064
011404

011410
011412
0114612
011414

011416
011420

011422
011422
011426
011426
011452

1%:

012326
000001
000004

104443
000404

002306

100008
:

005037

002352

002310

005737
001403
005737
001747

002310

005737

002352

0010M

003126

000137

011440

LET LINCNT := #400.
CLR
REPEAT

. ALLOW FOR ABQOUT 6 PAGES OF PAPER

ERRFLG

OUTPUI W#PAPTST
425, ,#58 LUNIT
LET LINCNT := LINONT - M
L INCNT

UNTIL LINCNT EQ #C OR ERRFLG NE #0
L INCNT
TST
BEQ
50116%
50116%:

005262

MOV
SP,RO
TRAP
CSPNTF
ADD
#6,SP
PRINTF #PAPSW1
MoV
#PAPSWT,~(SP)
MCV
#1,-(SP)
MoV
SP,RO
TRAP
CSPNTF
ADD
#4,5P
GMANIL READY, FLAG, 100000, YES
TRAP
CSGMAN
BR
10000%
.WORD
FLAG
.WORD
TS$CODE
.WORD
READY
.WORD
100000

DEC

00352

104456
000010
003460
000000

#PAPRSW,~{(SP)
#2,-(SP)

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

002310

50115%:
005337

LUNIT,=(SP)

MOV
MoV

000006

000620

SEQ 0057

TEST 2

LET FLAG := #0
CLR
FLAG
PRINTF #PAPRSW,LUNIT

MOV

000130
607072
100000

PAGE 21-¢

CMP LUNIT,R1
BLE 3%
JMP 4$

012256
000002

012737

12:06

READY LiNE INTER_OCKS
1%:

011560

011322

011322
011364

01-r77-80

TST
BEQ

ERRFLG

50115¢%

It ERRFLG EQ #0 THEN
TST
ERRFLG

50117%
ERRHRD 8,PAPSWI
TRAP
CSERHRD
.WORD
8
.WORD
PAPSWI
WORD
0

BNE

LET ERRTBL(RZ2) := ERRTBL(RZ) ¢+ #°
ERRTBL (R2)
INC
11002%>
<JMP
INL INE
JMP
11602%

ELSE

CILPLCO LPZS5, LP26 TEST MACYTT
C2LPLC.PM
01-0CT-80 12:06
(&)
(3)
1913
(&)

011432
01143%
011434
011434

(4)
1915
(8)
(7)
(6)
(3)
(4)
(&)
1916
(4)
1917
(3)
(3)
(&)
(5)
(5)
(5)
(3)
1918
(4)
(7)
1919
(&)
1920
1921

0114640
011440
011440
0114644
011450
011454
011456
011460
011464
011464
011470
011470
011472
011474
011476
011500
011502
011504
011504
011504
011510
011512
011512
011516

1914

011440

30A(1052)

000402
005037

50117%:

002352

013746
012746
012746
010600
104417
062706

002326
012404
000002

005037

002306

50120%:
11002%:

000006

1046443
000404
002306
000130
007072
100000

10001$:

013702
006302

002326

005072
000137

002370
011200

(4)
1925
(4)
1926
(6)
1927
(4)
1928
(4)
1929
(&)
1930
1931
1932
(4)
(5)
(4)
(7)
(5)
(5)

(7)

1933
(4)

BR
(LR

SEQ 0058

501208
LET ERRFLG
ERRFLG

:= #C

ENDIF

PRINTF

#PAPRDY,LUNIT

LET R2

:= LUNIT

MOV
LUNIT,=(SP)
MoV
#PAPRDY,
= (SP)
MOV
#2,-(SP)
MOV
SP,RO
TRAP
CSPNTF
ADD
#6,SP
LET FLAG := #0
(LR
FLAG
GMANIL READY,FLAG,100000,YES
TRAP
CSCMAN
BR
10001%
.WORD
FLAG
.WORD
T$CODE
.WORD
READY
.WORD
100000
SHIFT

MOV
LUNIT,R?
ASL
R2
LET QLPCSR(RZ) := #0
(LR
ALPCSR(R2)
JMP 2%
:EXPECTED ERROR MANDLER.

}35%
19¢4

6.5

01-0CT-80
12:06
PAGE 21-3
READY LINE INTERLOCKS
TEST 2

;

RESET

THE

LP CSR

sJUST SET EXPECTED ERROR INDICATOR.
011522

011522
011530
011530
011534
011534
011542
011542
011546
011546
011552
011552
011556

011560
011560
011564
011566
011566
011572
011572

011576

011600
011600

012737

000001

005037

002350

042762

120000

005062

002764

005062

002564

005062

002064

005037
000402

002326

005237

002326

023701

002326

000207

003077
013702

002326

002352

002524

LET ERRFLG

:= M

MOV
#1,ERRFLG
LET ERRCOD := #0
(LR
ERRCOD
LET STATUS(R2) := STATUS(R2) CLR.BY WERROR'ACTIVE
BIC
#ERPOR'ACTIVE,STATUS(R?)
LET CURCNT(R2) := #C
; CLEAN UP THE DRIVER PARAMETERS
CLR
CURCNT(R2)
LET CURADD(R2) := #0
CLR
CURADD(R2)
LET REPCNT(R2) := #0
(LR
REPCNT(R2)
RTS ©(
;AND RETURN
:VERIFY OPERATION OF HAMMER BANK INTERLOCK SWITCH
(3
INCR LUNIT FROM #0 TO R1 BY #1
(LR
LUNIT
BR
50121%
50122%:
INC
LUNIT
501218
CMP
LUNIT,RY

BGY

LET R2
MOV

50123%

:= LUNIT SHIFT
LUNIT,R?

CILPLCO LPZS, LP26 TEST MACY11
CILPLC.PTY ~ 01-0CT-BO 12:06
(7)
193¢
(&)

011604
011606
011606

006302
013737

002326

(&)
1936
(8)
(7)
(6)
(3)
(L)
(&)
1937
(7)
(6)
(3)
(&)
(&)
1938
(3)
(3)
(&)
(5)
(5)
(5)
(3)

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

005037

002306

013746
012746
012746
010600
106417
062706

002326
013147
000002

012746
012746
010600
104417
062706

013233
000001

1935

1939
(6)

(9)

1940
(8)
(7)

(6)
(3)
(&)
(4)
1941
(3)
(3)
(4)
(5)
(5)
(5)
(3)
1942

(4)

(3)
1943
(6)
1944

152%

1946
(&)
(5)
(5)

011614

011700
011700

011706

011710
011710
011714

011720
011724
011726
011730
011734
011734
011736
011740
011742
011744
011746
011750
011750

001421

013746
012746
012746
010600
106417
062706

100028:
100000

062370

000006

106443
000404
002306
000730
007072
100000

100038:

011756

011764
011764
011766
011770

50124$:

063126

013737

002326

104456
000011
003523

IF #BIT15 SETIN aLPCSR(R2)
BIT
#B1T15,aLPCSR(R2)

BEQ

002326
013310
000002

005262

CLR
FLAG
PRINTF #HAMRSW,LUNIT
MOV
LUNIT,=(SP)
MOV
FHAMRSY
, = (SP)
MOV
#2,-(SP)
MOV
SP.RO
TRAP
CSPNTF
ADD
#6,SP
PRINTF #HAMSW?
MOV
FHAMSWT
, = (SP)
MOV
#1,-(SP)
MOV
SP.RO
TRAP
CSPNTF
ADD
86, SP
GMANIL READY, FLAG, 100000,
TRAP
CSGMAN
BR
10002%
WORD
FLAG
"WORD
T$CODE
"WORD
READY
"WORD
100000

PRINTF
MOV
MOV

011750 000411
011752
013752
011752
011756

LET FLAG := #0

000006

000004

002074

SEQ 0059

ASL
R2
LET LSLUN := LUNIT
MOV
LUNIT,LSLUN

002074

104443
000404
002306
000130
007072
100000
032772

H
S
01-0CT-80
12:06
PAGE 21-4
READY LINE INTERLOCKS
TEST 2

30A(1052)

ELSE

THEN

50124$

#HAMRDY,LUNIT
LUNIT,~(SP)
FHAMRDY
, = (5P)

MOV
#2,-(SP)
MOV
SP.RO
TRAP
C$PNTF
ADD
#6,SP
GMANIL READY, FLAG,
TRAP
(SGMAN
BR
10003$
WORD
FLAG
'WORD
T$CODE
.WORD
READY
"WORD
100000

B8R

YES

100000,

50125%

LET ERRTBL(R2) := ERRTBL(R2)
INC
ERRTBL (R2)
LET LSLUN := LUNIT

MOV

YES

LUNIT,LSLUN

ERRHRD 9, BNKSWI
TRAP
CSERHRD
.WORD
.WORD
BNKSWI

+ #1

CZLPLCO LPZS, LP26 TEST MACY1Y
CILPLC.PTY
01-0CT1-80 12:06
(5)

3DA(1052)

1948

(3)

(4)

(7)
(5
()
(7
1951

(4)
(7)
1952
(4)
1953

(8)
(7)
(6)

(3)

(4)
(4)
1954

(7)
(6)

(3)

oO
Yale ¥ Yo ¥ Jalale Yololele
(¥ =Y. ¥ ¥

i
e
rd
o

D e

ad o

d e

D e

b —

B B B WNWANNININ
= 2 2 200 [o]e)

D
b
e
o
e
e
i
o
D
D
h o
o
b
s
d
o

(4)
(5)

1958
(3)
(3)

012076
eolelololelolalalelelalelelelalelalele
)

(&)
(4)

002326

005237

002326

023701
003077

002326

013702
006302

002326

005037

002306

013746
012746
012746
010600
104417
062706

002326
013425
00000¢

50126%:

062706

000004

INC

LUNIT

(Mp
BGT

LUNIT,RY
50130%

ASL

LET FLAG := #0

CLR
PRINTF
MOV
MOV

FLAG
#BANDSW,LUNIT
LUNIT,=(SP)
#BANDSW,=(SP)

TRAP
ADD
PRINTF

CSPNTF
#6,SP
#BNDSW1

MOV
MOV

013513

000001

MOV
MOV
MoV
TRAP
ADD

TRAP

WORD

.WORD

100000

:
100048

002370

.WORD

10004%
FLAG

TSCODE

READY

100000

IF #BIT15 SETIN aLPCSR(R2) THEN
#BIT15,aLPCSR(R2)
BIT
50131$
BEQ

032772
001421

100000

013746
012746
012746
010600

002326
013562
000002

MOV
MOV
MOv

062706

000006

TRAP
ADD

000404
002306
000130

#BNDSW1,=(SP)
#1,-(SP)
SP,RO
CSPNTF
¥4,5P
CSGMAN

002306
000130
007072

1046443

#2,-(SP)
SP,RO

GMANIL READY, FLAG, 100000, YES

104443
000404

104417

LET RZ := LUNIT SHIFT 1
MOV
LUNIT,RZ

000006

012746
012746
010600

1044617

(&)
(&)

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

005037
000402

TEST 2

50125%:
ENDINC
50122%
BR
50123%:
;VERIFY OPERATION OF CHARACTER BAND NTERLOCK SWIT(CH
INCR LUNIT FROM #0 70 R1 BY #1
LUNIT
(LR
BR
50126%
50127%:

1949

1950
(&)
(5)

I
5
PAGE 21-5

INTERLOCKS

.WORD

000674

(4)

12:06

ENDIF

(4)

(&)

READY LINE

000000

1947

1955
(3)
(3)

01-0CT-80

PRINTF #BNDRDY,LUNIT
LUNIT,=(SP)
#BNDRDY ,-(SP)

#2,-(SP)
SP,RO

MOV

TRAP

CSPNTF
#6,5P

GMANIL READY, FLAG, 100000, YES

.WORD
.WORD

CSGMAN

10005%

FLAG
T$CODE

SEQ 0060

(4)
1965
(4)

b
d
D e
D
D
d
s
D
D
D e
D
D
D
D
e
e

(3)

1959
(4)
(3)
1960
(6)
1961
(4)
1962
(4)
(53
()
(5)
1963
(4)
1964

NONININIRNINI
NI NN N NN NI
[0
81,81,
%) PIPIN) oD cd b ced ecd od e ed od ed ed od b
[ ]e o] QOO~NN ~ooron0rONORON
O
PR
o
SO
O0ONNNINOOOO0

(5)
(%)

[eleloleloleleleleolo]lolalalololelolo]
o)

5
J
CILPLCO LPZS, LP26 TEST MACY11 30A(1052)
01-0C1-80 12:06 PAGE 21-6
READY LINE INTERLOCKS
TEST 2
czLpLc PN
01-0C7-80 12:06
100000

10005$:

000411

50131%:

005262

003126

013737

002326

002074

104456

ELSE

LET ERRTBL(R2) := ERRIBL(R2)
ERRTBL(R2)
INC
LET LSLUN := LUNIT

.WORD

002370

ENDIF

LUNIT,L$LUN
CSERHRD

BNDSWI

LET BLPCSR(R2)

MOV

ENDINC

BR
0%:
5013
EXIT TST

104432
001464

+ #1

ERRHRD 10, BNDSWI

.WORD

000000

READY
100000

50132%

TRAP

50132%:

012772

.WORD
.WORD

MOV

000012
003570
000000

000674

(3)

1966
(3)
(3)
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
1981
1982
1983
1984
1985
1986
1987
1988
1989
1990
(3)
(3)
1991
1992
1993

007072

SEQ 0061

TRAP

LWORD

:= #00

#00,3LPCSR(R2)

50127%
CSEXIT

L1001

NLIST BEX

012220
012256
012326
012404
012506
012540
012572
012645
012723
013017
013073
013147
013233
013310
013425
013513
013562

013702
013702
013702
013704

042522
047045
040445
047045
040520
054130
047045
054
065
045

045
045
045
047045
045
045
047045

104401

042101
040445
052040
040445
042520
054130
040445
030440
022516
022516
050101
022516
022516
040445
022516
022516
060445

020131
042524
020117
042522
020122
054130
051120
046040
050101
052101
062522
062101
052101
047105
0647501
041501
046103

INTLK:

PAPRSW:
PAPSW1:
PAPRDY:
PAPTST:
PAPOUT:
PRINT4L:

.ASCIZ

.ASCIZ /XNXATEAR OFF PAPER JUST BELOW LUNIT XD2/
.ASCIZ
/%A TO CHECK PAPER LOW XNXAINTERLOCK SWITCH.XN/
.ASCIZ /XNXARESTORE PAPER, ALARM CLEAR, AND PLACE LUNIT XD2XA ON LINE.XN/
/PAPER LOW INTERLOCK TEST/<12>
_ASCIZ
/ZXXXXXXXOOXXXXXXXXXXXXXX/<12>
ASCIZ
_ASCII
/XNXAPRESS ON-LINE SW OF UNIT XD2XA & TIMES /
LASCIZ
/, 1 LINE SHOULD BE PRINTED AFTER EACH PRESSIN/

.ASCIZ
.ASCII
LASCIZ
HAMRSW: .ASCIZ
DOTOF:
LN3EX:

HAMSW1:

HAMRDY:
BANDS5W:
BNDSW1:
BQDEDY:
.EVEN

.ASCIZ

/XNXAPRESS ON-LINE SW OF UNIT XD2XA FORM FEED SHOULD OCCURXIN/
/XNXATHE LAST 3 LINES PRINTED SHOULD BE X'SXN/
/XAPRESSING ON-LINE AGAIN SHOULD NOT PRINTXN/
/XNXADISENGAGE HAMMER BANK LATCH SWITCH ON LUNIT %D2/
/XNXATO CHECKX HAMMER BANK INTERLOCK SWITCH.XIN/

.ASCIZ /XNXAENGAGE HAMMER BANK LATCH, ALARM CLEAR, AND PLACE LUNIT X[2XA ON LI
.ASCIZ /Xt XAOPEN CHARACTER BAND COVER ON LUNIT XD2X%A TO CHECK/
.ASCIZ /XNXACHARACTER BAND INTERLOCK SWITCH.XN/
JASCIZ/XNXACLOSE CHARACTER BAND COVER ON LUNIT XD2XA, ALARM (LEAR, AND PLACE ON

.LIST BEX
ENDTST
L10011:

TRAP

ENDMOD

/READY LINE INTERLOCK TEST 2/<12><12>

CSETST

CZLPLCO LPZS, LP26 TEST MACY11 30A(1052)
CILPLC.PYY
1995
1996

1997

01-0CT-80 12:06

(3)

2007

gg}g

BGNTST

013704

013706
013710
013710

2012
2013
2014
(3)
(3)
2015

013706

13::

MANUAL
TRAP

104450
103402

BCS
1%
EXIT TST
TRAP
CSEXIT

104432

013712

002246

013714
013720
013722
013722
013724

005737
001902

.MORD

002272

104432
002234

013726
0023%26

2022
2023

013776
014002

005237
023701

002326
002326

(7)

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

2029
(7)
(6)
(3)
(&)
(&)

2030

TST INHINT
BNE 2%
EXIT TST
TRAP
CSEXIT
.WORD
L10012~-.
.PRINT TEST IDENTIFICATION

1¢:

OUTPUT

#FRMLTH,#32.

*HARD CODE INCREMENT LOOP

005037

2027
(&)

L10012-.

CEXIT TEST IF MANUAL INTERVENTION TESTS ARE NOT SPECIFIED

és

013770

2026

C$MANI

BCOMPLETE 1%

20¢0

2024
2025

:DETERMINE IF MANUAL INTERVENTION IS ALLOWED

gg}g

2021

SEQ 0062

FORMS LENGTH SELECTION

SSETTING.
:--

013704

(2)
2010
(3)

2011

TAND WAITS FOR THE OPERATOR TO SET THE SWITCH ON THE PRINTER. THE PAPER
1S THEN ADVANCED UNDER PROGRAM CONTROL. THE PRINTER OUTPUT IS VISUALLY
TINSPECTED AFTER ALL SWITCH SETTINGS HAVE BEEN RUN THROUGH BY THE OPERATOR
270 VERIFY THAT THE PROPER PAPER MOVEMENT HAS OCCURRED FOR EACH SWITCH

013704
013704

(3)

STHIS TEST CHECKS ALL POSITIONS OF THE FORM LENGTH SELECT SWITCH. THE
"PROGRAM INDICATES THE SPECIFIED SETTING OF THE FORM LENGTH SELECT SWITCH

2008
(3)

2009

PAGE 22

Tee

2000
2001
2002
2003

2006

12:06

.SBTTL FORMS LENGTH SELECTION
BGNMOD

013704

1998
1999

2004
2005

01-0CT-80

013774

014006
014010
014016

014014
014014

000402

003402
000137

014566

014020

013702
006302

002326

014022
014026
014032
014036
014040
014042

013746
012746
0127646
010600
106417
062706

002326
014637
000002

014046
014052
014056
014060
014062

012766
012746
010600
104417
062706

014723
000001

014022

014046

0146066

000006

000004

5% :
4%:
6%:

CLR

LUNIT

INC
CMP

LUNIT
LUNIT,R

BLE
JMP

:COMPARE LOOP

6%
7%

EXIT ONLY !F GREATER THAN
JEXIT

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

MOV
MOV
MOV
MOV
TRAP
ADD

LUNIT,=(SP)
SLINSWI,=(SP)
#2,-(SP)
SP,RO
CSFNTF
#6,SP

MOV
MOV
MOV
TRAP
ADD

#LINSWY,=(SP)
#,-(SP)
SP,RO
CSPNTF
#4,SP

PRINTF WLINSWI,LUNIT

:PRINT LUNIT MESSAGE

PRINTE #LINSW1

:SECOND PART OF MESSAGE

PRINTF WFLSSEL,LUNIT

;SET TO "'FLS"" POSITION

d
e
el
ad
D D i

N)mded
3 b e OOO
NSO

e
D s
D
el

2F 2T aF aF ¥

el
D el

W
W

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

2031

(4)
(4)

066
072
076

(3) .

—

(8)
(7)
(6)

OOOOOOCOOOO0O0O o

CILPLCO LPeS, LP2€ TEST MACY11
CZLPLC P
01-0CT-80 12:06

014122

013746
012746
012746
010600
104417
062706

30A(1052)

01-0CT-80

00C00?

020427
003137

000024

MOV
MOV
MOV

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

ADD

#6,SP

CLR

ADD

#2,R4

MOV
TRAP

SEQ 0063

SP,RO
CS$PNTF

INCR R4 FROM #0 TO #20. BY #?2

005004
000402
062704

PAGE 22-1

FORMS LENGTH SELECTION

002326
015003
000002
000006

12:06

50134%:
50133$:

CMP
R4, #20.
86T
50135%
LET R3 := R4
MOV
ASL R3

010403
006303

50133$

SINDEX INTO SWITCP SETTING TABLE

R4 ,R3

LET T3SET

sACTUAL OFFSET

:= #FFSET ¢ R3

012737
060337

015474
014572

013746
013746
012746
012746
010600

014572
002326
015550
000003

062706

000010

ADD

012746
012746
010600

015642
000001

MOV
MOV
MOV

062706

000004

005037

002306

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

104417

014572

MOV
#FFSET,T3SET
ADD
R3,TISET
PRINTF #FLSMSG,LUNIT,T3SET
MOV
T3SET,=(SP)
MOV
LUNIT,=(SP)
MOV
#ELSMSG,
= (SP)
MOV
#3,-(SP)
MOV
SP,RO
TRAP

104443
000404

100000

100008:

CSPNTF

#FLSMS?

TRAP

CSPNTF

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

TRAP

CSGMAN

M0BD

FLAG

"WORD

READY

"WORD

.WORD

104443

000404
002306

000130
007072
100000

002306

;CLEAR FLAG INDICATOR FOR MANUAL
;WAIT FOR OPERATOR

10000%
T$CODE
100000

OUTPUI #REFLIN,#133., LUNIT

:OUTPUT REFERENCE LINE AND TERMINATOR

OUTPUI #MOVMSG.#130.,,LUNIT
LET FLAG := #0
CLR
FLAG
GMANIL READY,FLAG,100000,YES

:FINAL REFERENCE LINE

OUTPUI T3SET,#%, LUNIT

005037

SSELECT MESSAGE

#10,5P

PRINTF

002306
000130
007072

FOR SWITCH SETTINGS

TRAP

CSGMAN

.WORD

FLAG

.WORD

READY

.WORD

10001%
T$CODE
100000

;# OF LINES FOR SPACING

SEQ 0064

01-0CT-80
12:06 PAGE 22-2
CILPLCO LPZS, LP26 TEST MACY11 30A(1052)
FORMS
LENGTH
SELECTIOM
12:06
CZLPLC.P
01-0C7-80
(3)

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

014424
014424
014426

000634

014426
014426
014432
014436

013746
0

2047

014452
014452
014460
014460
014464
014464
014466
014470
014472
014474
014476

(3)
(4)
(4)

10001$:
END INC

014424

501348

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

002326
015402
000002
000006

012737

000014

005037

002306

003172

104443
000404
002306
000130
007072

LET OUTBUF := #14
#14 ,0UTBUF
MOV
LET FLAG := #0

;CLEAR <(CR> FLAG

GMANIL READY,FLAG,100000,YES

;AND WAIT FOR RESPONSE

CLk

FLAG

TRAP

CSGMAN

.WORD

FLAG

.WORD

READY

.WORD

100000

012746
012746
010600
104417
062706
000137

014576
014637

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

0146442
014444
0144646

014572
014574

50135%:

10002%:

7
EXIT TST

104432
001370
000000
000000

T3SET:
T3MOV:

020063
027063
020064
027065
020066
020067
020070

000040
000065
000040
000065
000040
000040
000040

100000

,LUNIT
BUF
,#1,
QUTPU] #OUT
Mov
MOV

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

TRAP
ADD

COPNTF
#4,SP

MOV

000004
013776

040445

T$CODE

PRINTF #PAPCHK

015102
000001

047506
045
045
045
047045
042522
056
027056
047045

.WORD

10002%

JMP

TRAP

.WORD
.WORD
.WORD

.NLIST BEX

;MAKE SURE MOVEMENT WAS RIGHT

SP,RO

;END OF HARDCODED INCREMENT LOOP

CSEXITY

L10012-.
0
0

020123
051501
033101

FRMLTH: .ASCIZ /FORMS LENGTH SELECTION TEST 3/<12><12><12>
LINSWI: .ASCIZ /XNXASET LINES SWITCH ON UNIT XD2XA T0 ''6'" 7O SELECT/
LINSW1: .ASCIZ /XNXA6 LINES PER INCH VERTICAL PRINTING DENSITY./

042526
042522
027056

PAPCHK: .ASCIZ /XNXAVERIFY PROPER PAPER MOVEMENT FOR EACH SWITCH SETTING./
REFLIN: .ASCI] /REFERENCE LINE FOR FORMS LENGTH SELECTION.......vceveveeacnnn /
REFLIT: JASCII /i eueeeeoeasecesoeanssassssasasnssasssssssssssasansssnnnasas /

042523

NMLFLS: .ASCIZ /XNXASEY FORMS LENGTH SELECT SWITCH ON UNIT XD2XA TO 11.%N/

040445

027056

FLSSEL: .ASCIZ /XN2XASET VFU-FLS SWITCH ON UNIT XD2XA TO THE ‘'FLS" POSITION.XN/

REFLIZ2: ASCIZ /..eeeeeens /<16

:SWITCH SETTINGS FOR FORMS LENGTH MESSAGES

FFSET:

.ASCIZ
.ASCIZ2
LASCIZ
LASCIZ
LASCIZ

/3% /
/3.5/
/7
/4
/5.5/
76/
LASCIZ2 /7 Y
LASCIZ /8 /

CILPLCO LPES, LP26 TEST MACY11
czeeec.e
01-0CT-80 12:06

2075
2076
2077
2078
2079
2080
2081

015530
015534
015540
015544
015550
015642
015754

(3)
(3)

016160
016160
016160
016162

2082
2083
2084
2085
2086

2087

016051
016147

027070
030461
031061
032061
047045
047045
044440

056
056
016160

104401

000065
000040
000040
000040
060445
040445
041516

027056
027056

30A(1052)

042523
042504
042510

027056
027056

01-0C7-80
12:06 PAGE 22-3
FORMS LENGTH SELECTIOM

FLSMSG:
FLSMS1:
MOVMSG:

MOVMST:
MTMOVMS2:

LASCIZ
LASCIZ
LASCIZ
LASCIZ
.ASCIZ
.ASCIZ
.ASCII

SEQ 0065

/8.5/
/11 /
/12 /
/14
/
/!NlASET FORMS LENGTH SELECT SWITCH ON UNIT XD2XA TO XTXA,/
/INXADEPRESS ''ALARM CLEARTM, TOP OF FORM, AND PLACE PRINTER BACK ON LINE.Y
/ INCHES SHOULD OCCUR BETWEEN THIS AND THE REFERENCE LINE..... /

ASCI] /..iuuiiriroaeeeoneseneasseooesncenseoasocsosascsasnacossasansans /
.ASCIZ /...... /<12>
.EVEN
.LIST BEX
ENDIST
L10012:
TRAP
CSETST
ENDMOD

CILPLCO LPZS, LP26 TEST MACY11 30A(1052)
cZLpPLC.PN
2090

2091
2092
2093

01-0CT-80 12:06

016162

016162
016162

;

016166

013701
005301

002012

016170
016174

005737
001416

002276

2105
(3)
2106

016176
016176
016200
016200

016202
016202
016204

2108
(6)
(9)
2109

016206
016206
016212
016214

2110
(4)
(3)
2111
(4)
2112
(4)
2113
(4)
(3)

016220
016220
016222
016222
016222
016230
016230
016230
016230
016232

(3)
(3)

2114
(&)

2115
(4)
2116
2117
(2)
(4)
(3)
(6)
(3)
(3)
(3)

THE PRINT SPEED TEST WILL RE PORT TO THE OPERATGR THE TOTAL NUMBER OF
THE DATA PATTERN USED
LINES PRINTED WITHIN A SPEC! FIED TIME PERIOD.

016214
016216

016232

016240
016240
016240
016302
016302
016306
016310

016314
016316
016316
016322

4 TO 60 SECONDS MAY 8E

BGNTST

LET R1

:= LSUNIT - M1

T4::

016162

016170

(2)

SEC 0066

. ON PRINTER TYPE AND THE CHAR ACTER SET (BAND TYPE ) ON EACH PRINTER.
; THE TIME PERIOD CAN BE CONTR OLLED THRU MANUAL OPERATION, OR IF THE
; SYSTEM HAS A CLOCK VIA SUPPL YING A COUNT OF SECONDS. ANY TIME INTERVAL OF

2104

(2)

BGNMOD

;

2102
2103
(&)

2107
(3)

: IS DESIGNED TO CAUSE PRINTING SPEED TO BE MINIMAL AND IS DEPENDENT

016162

(6)
(9)

PAGE 23

PRINTING SPEED MEASUREMENT

;

2095
2096
2097
2098
2099
2100
2101

(6)

12:06

.SBTTL PRINTING SPEED MEASUREMENT

2094

(3)

01-0CT-B0

MANSPD

50136%

BEQ
TRAP

CSMANI

TRAP

CSEXIT

TST

INHINT

THIS IS ONE OF THE ''SW'' QUESTIONS .

;NUMBER Of UNITS TO TEST

; DETERMIN IF MANUAL TESTING SELECTED
;DETERMINE IF MANUAL

INTERVENTION ALLOWED

BCOMPLETE 1%
1%
B(S
TST
EaaT

104432

004122

1%:

002272

L10013-,
.WORD
IF INHINT NE #0 THEN

BEQ
TRAP

104432
004110

50137%:

002300

003166
50140%:
ELSE

000403

EXIT TST
CSEXIT

.WORD

L10013-.

50140%

002300

003166

LET WORK

MoV
ENDIF

BR
501368%:
LET WORK

ENDIF

MOV

:= PERIOD

PERIOD,WORK

50741%
:= PERIOD

PERIOD,WORK

501418

013746
003403
021627
003402

002334

012716

000005

000004

QUTPUT #PRTSPD,#36.
SELECT CLKTYP OF & VERIFY
CLKTYP,=-(SP)
MOV
501428
BLE
(SP) , #4
CMP
50142$:

50143$:

; EXIT IF INTERVENTION INHIBITED

50137%

ELSE

000403

013737

1ST

MANUAL

103402

013737

LSUNIT,RT
R1

IF MANSPD NE #0 THEN

104450

005737
001403

MOV
DEC

SELEC TED.

BLE

5014%$

MOV

#5,(SP)

; CLOCK TEST

TIME

;PRINT TEST 1D
;SET UP THE RIGHT CLOCK

CILPLCO LP2S, LP26 TEST MACY11 30A(1052)

CILPLC.PIY

01-0C7-80 12:06

006316
060716
063607

(2)
(2)

016346
016346
016350
016350
016350
016356
016356
016362
016364
016364
016370
016374
016400
016404
016406
016412
016412
016416
016420
016420
016422
016422
016422
016430
016436
016436

000137

012760
104441

PAGE 23-1

ASL
ADD
ADD

.WORD
.WORD
.WORD

CASE 2

000100

ENDG

JMP

017514

002346

;JUST EXIT TEST NO CLOCK AVAILBLE
;KW11-L LINE CLOCK SELECTED

50145%

MoV

#100, CLKENA

501508:
LET CLKENA := #100

; SET PR17 WHILE CHANGING VECTOR ADDRESS

000340

MOV
TRAP

#PRI0O7,RO
C$SPRI

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

SETVEC CLKVEC,#CLKTCK,#PRIO6
- (SP)
#PR106,
MOV

000300
041066
002344

062706

000010

MOV
MOV
MOV
TRAP
ADD

000000

MOV

#PR100,RO

50145$

012700
104441

000003

TRAP

CASE 3

012737

016444
016444
016450
016452

50147%:
002340
000002
000111

000340

104437
062706

012700
104441

000300
041066
002344
000003
000010

000000

:SET UP INTERRUPT VECTOR

SETPRI #PR100

000434

013737
062737

: INTERRUPT ENABLE/ CLR MONITOR

SETPRI #PRIO07

01¢746
012746
013746
012746
104437

SEQ 0067

.WORD
.WORD

000461

012737

12:06

PRINTING SPEED MEASUREMENT

501448:

000012
000020
000072
000160
000162
016342
016342
016342

01-0CT-80

002342
002342
002346

C$SPRI

;XW11-P REAL TIME CLOCK

LET CLKSET := CLKCSR + #2
MOV
ADD

CLKCSR,CLKSET
#2,CLKSET

MOV

#111, CLKENA

TRAP

($SPRI

MOV
MOV
Mov
MoV
TRAP
ADD

#PR106,-(SP)
#CLKTCK,=(SP)
CLKVEC,-(SP)
#3,-(SP)
CSSVEC
310,SP

Mov
TRAP

#PRI00,RO
C$SPRI

LET CLKENA := #111

;SET UP ENABLE BITS

: RUN, RATE = 10KHI, REPEAT INTR, DOWN,INT ENABLE
SETPRI #PRIO7
MOV
#PR107,RO
SETVEC CLKVEC,#CLKTCK ,#PRIO6

SETPRI #PRIO

s INTERRUPT VECTOR

CILPLCO LPZS, LP26 TEST MACY11 30A(1052)
CILPLC.P1Y
2136
2137
(4)
(4)
2138
2139
(3)
2140
(&)

016506
016506
016510
016510
016512
016512
016512
016512

(&)
2142

016520
016524

2141

2143
(&)
2144
(&)
2{{;

01-0C7-80 12:06

016520

016524
016524
016530

016530
016534

501468%:
NOP

000240

112737

000012

010137

002326

005037

002352

013702
006302

002326

003172

016536
016536

2149

016546

2150
(&)

016544

002524

016546
016554
016556
016564

032762
001065
032762
001061

001000

12524

002000

002524

016566

012737

021712

016574

012737

000205

016602
016606
016612
016614
016616

012746
012746
010600
104417
062706

021406
000001

016726

000460

016566

2152

016602

2153
2154
2155

(&)
(3)

2156
(4)

LET LUNIT

:= R1

MOV

R1,LUNIT

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

016622
016664
016726
016730

016730

IF #FLAG96 NOTSETIN STATUS(R2) THEN ; 64 CHAR BAND
BIT
#FLAG96,STATUS(R2)
BNE

50152%

BIT
BNE
BIT
BNE

#FLAG26,STATUS(R2)
50153%
#FLAG27,STATUS(R2)
50153$

020742

MOV

#TABAGL ,BNDPAT

003166

MOV

#133. ,WORK

MOV
MOV
MoV
TRAP
ADD

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

B8R

501548

000004

iF #FLAG26 NOTSETIN STATUS(R2) AND MFLAG27 NOTSETIN STATUS(R?2) THEN

LET BNDPAT := #TABAG4

PRINTF #LPMb4

OUTPUI WLPME4L+4L,#G2., ,LUNIT
QUTPUI #OUTBUF 1, LONDT
ELSE
. IT'S AN LP26
50153$%:

LET BNDPAT := #TABAGL

012737

021772

020742

MOV

#TABAGL ,BNDPAT

(4)

016736

012737

000205

003166

MoV

#133. ,WORK

(7)

016744

012746

021550

MoV

#L26M64 ,-(SP)

OUTPUI

#L26M64L+4, #42., ,LUNIT

2157 016736
(6)
(3)
(4)
(&)

016744

016750
016756
016756
016760

2159 016764
2160

2161

017026

017070

012746
010600
104417
062706

000001

900004

;64 CHARACTER BAND LP2S

LET WORK := #13%.

016730

2158

SEQ 0068

50145%

MOV
ASL

010000

016574

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

;THIS IS JUST A DUMMY
ENDSELECT
50145$:
LET OQUTBUF :B= #LF
MOVB
#LF,OUTBUF

11$%:

032762
001152

2151

(&)

PAGE 23-2

: DETERMIN WHICH BAND, AND SEND APPROPRIATE PATTERN

2148
(6)
(6)
(9)
(6)
(9)

12:06

PRINTING SPEED MEASUREMENT
CASE &

000401

%}29
(9)

01-0CT-80

; SHOULD BE 285 LPM.

; SEND SPEED MSG TO PRINTER T00

: LP26 64 CHAR BAND

(ET WORK := #13%.
PRINTF #L26Mb4

MOV
MOV
TRAP
ADD

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

OUTPUI #QUTBUF,#1,,LUNIT

ENDIF

; LP26 64 CHAR SPEED MSG. 600 LPM.

; SEND SPEED MSG TO PRINTER TOO

6
E_
CILPLCO LP¢S, LP26 TEST MA Y1 1 30A(1052)
01-0C7-80 12:06 PAGE 23-3
01-0CT1-80 12: 06
PRINTING SPEED MEASUREMENT
CZLPLC PN

SEQ 0069

50154$:
ELSE

(&)

2162

000551

2165
(4)

2166
(?7)
(6)

D
d
d

Gaur S
SurGhnr Snr G

ed
D

(&)

072

—t

2164

v @esr P

(6)
(9)
(6)
(9

[eleleolelelelelelelele)

(3)

2163

ginr

(&)

032762
001065
032762
001061

001000

002524

002000

002524

012737

022120

020742

012737

000205

003166

012746
012746
010600

021467
000001

062706

000004

1044617

(&)
L)

2167
2168
2169

50152%:

. 96 CHAR BAND

§0155%

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

#TABAGG,BNDPAT

ADD

#4,SP

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

ELSE

(&)

012737

022120

020742

MOV

#TABAGG ,BNDPAT

(&)

012737

000205

003166

MOV

#133. ,WORK

012746
012746
010600

021631
000001

062706

000004

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

104417

2173
2174
2175

50156%:

LET BNDPAT

:= #TABA96

PRINTF #L26M96

MOV

¥L26M96
, - (SP)

MOV

#1,-(SP)

ADD

44 ,SP

MOV
TRAP

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

(4)

50155%:
LET LINCNT := #0
LINCNT
CLR
LET TICK := #60.
MOV
#60.,T1CK
JSR PC,REPLUP
LET LUNIT := LUNIT - N

SEND SPEED MSG TO PRINTER TOO

: LP26 96 “HAR BAND

1P26 96 CHAR SPEED MSG. 450 LPM.

;

SEND SPEED MSG TO PRINTER TOO

ENDIF

2177
(4)

005037

002310

(&)
2179

012737
004757

000074
017632

(6)

005337

002326

(6)

002402

2178

2180

2181

(&)

017444

2185

017644
017444
0174652

2186

;

ENDIF

2176

(6)

SHOULD BE 204 LPM,

SP,RO
CSPNTF

50157%:

2184

LET WORK := #133.

(&)

2182
2183

;96 CHARACTER BAND

50157%

B8R

000460

21N

000137

016524

012737

000014

041142

DEC

LUNIT

IFCOND GE THEN
50160%
BLT
JMP 118

ENDIF
50160%:

003172

THEN

LET WORK := #13%.

MOV
#133, ,WORK
PRINTF #LPM96
MOV
NLPMG6
, - (SP)
MOV
#1,-(SP)
MOV
SP,RO
TRAP
CSPNTF

(3
2170

AND #FLAG27 NOTSETIN STATUS(R2)

LET OUTBUF

MOV

:= #14

#14,0UTBUF

2
OUTPUT #OUTBUF

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

CILPLCO LP¢S, LP26 TEST MACY11

cILpPLc.oN
2187
2188
(6)

017514
017514

2189

017524

()

(3)
(3)

2190
(3)
(3)

2191

(&)

2192

01-0C7-80 12:06

30A(1052)

01-0CT-8B0
12:06
PAGE 23-4
PRINTING SPEED MEASURFMENT

017522

023727
001011

002334

017524
017530

012700
104441

000340

IF CLKTYP EQ #3 THEN
(mp
CLKTYP,#3
BNE
50161%
SETPRI #PRIO7
MOV
#PR107,RO

017532
017536

013700
104436

002344

MoV

017540

012777

000000

017532

017540
017546

000003

END&:

TRAP

MOV
ENDIF

#00,aCLKCSR

50161%:

(6)
(9)

017546
017554

023727
001C
"

002334

017556
017562

0127:0
106441

000340

017564
017570
017574
017600
017604
017606

012746
012746
013746
012746
104437
062706

000300
007266
002344
000003

MOV
MoV
MOV
MoV

000010

ADD

017612

01277/

000000

017546

2194

017556

<195

017564

(3)
(3)

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

2196

017612

2197

017620

(4)

017620

(3)
(3)

017620
017624

2198
2199
2200
(3)
(3)

2201
2202
2203
2204
2205
2206
2207
(6)
(9)

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

2209
(4)

2210

017620

017626

017626
017630

000002

TRAP

C$SPRI

SETVEC CLKVEC,#IGNORE ,#PRI06
#PRI0G,-(5P)
# IGNORE
, - (SP)
CLKVEC,-(SP)
#3,-(SP)
CSSVEC

#10,5P
LET aCLKCSR := #00
MOV
#00,aCLKCSR

162520

000000

ENDIF

SETPR] #PRIOO
MOV
#PR100,RO
TRA}

ExIT

104432
002476

:= #00

IF CLKTYP EQ #2 THEN
CMP
CLKTYP,#2
BNE
50162%
SETPR] #PRIQ7
MOV
#PR107,RO
TRAP

50162%:
012700
104441

CLKVEC,RO

CSCVEC

017546

2193

CLRVEC CLKVEC

TRAP

(4)

SEQ 0070

C$SPRI

LET @CLKCSR

162572

¥S1

TRAP

C$SPRI

.WORD

(13 X1

L10013-.

STHIS IS SUBROUTINED TO DECREASE THE SIZE OF THE INITIAL INCREMENT LOOP.
017632
017632

REPLUP:

000004

IF C KTYP EQ #4 THEN
¥4
CLKTYP,
(MP
50163%
BNE

017632
017640

023727
001124

002334

017642
017646
017652
017654
017656

012746
012746
010600
104417
062706

021051
000001

MOV
MOV
MOV

000004

ADD

017662

005037

002306

CLR

017642

017662

017666

TRAP

PRINTF

#OFFLIN

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

¥e ,SP
LET FLAG := #0

FLAG
OMANIL READY,FLAG,100000,YES

;TELL

OPERATOR

TO PLACE

PRINTERS OFFLINE

CILPLLO LPS, LP26 TEST MACY11
czLpLc.Pn
01-0CT-80 12:06
(3)
(3)

017666
017670

(5)
(5)
()
(3)
2211
(8)
(7)

017674
017676
017700
017702
017702
017702
017706

(4)
(4)

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

(&)

(6)
(3)

2212

2213
(8)
(7)
(6)
(3)
(4)
(4)

2214
(4)
(6)
(9)

2¢15
2216
(4)
(3)
2217
(4)

2218
(4)

017672

002306

000130
007072
100000

.
10000%:
002326
021111
000002

017720
017722
017726
017732
017736
017742
017744
017746

013746
012746
012746
010600
104417
062706

002326
021212
000002

017752
017756
017762
017766
017770
017772

013746
012746
012746
010600
104417
062706

002326
021310
000002

017726

017752

017776

017776
017776
020004

020006
020010
020010
020012
020012
020012

020016

032772
001402

000006

002310

100000

(4)

020026

013705

020032

013703

2220
(4)

020032

2221

020036

(6)
(9)

020036
020040

(4)

020042

(4)

2222

020036

020042

002370

BIT
BEQ
BR

50166$:

PRINTF #ONLINT, LUNIT

;PUT LUNIT

PRINTF NONLINZ,LUNIT

;END OF

LUNIT,=(SP)
#ONLIN1,-(SP)
#2,-(SP)
SP,RO
CSPATF
#6.S°P

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

LUNIT,=(SP)
#ONLIN3,-(SP)
#2,-(SP)
SP,RQ
CSPNTF
#6,5P

WHILE #BIT15 SETIN @LPCSR(R2) DO

LET LINCNY

L INCNT

:= #0

WHILE #BIT15 NOTSETIN aLPCSR(R2) DO

BNDPAT RS

003166

MOV

032772
001007

000200

002370

(6)

020052

032772

100000

002370

; WAIT FOR LP SET ON-LINE

NOP
ENDDO
50164%

MoV

501728

TEST.

#BIT15,3aLPCSR(R2)
50165%

020742

005703
003417

TO TEST ON LINE

PRINTF #ONLIN3,LUNIT

#BIT15,3LPCSR(R2)
50167%

50170%:

SEC 0071

T$CODE
READY
100000

BIT
BNE

020042
020050

020052

FLAG

.WORD
.WORD
.wJRD

CLR

(6)
(9)

2223

50164%:

501658%:

032772
001031

020026

002370

000772

020016
020024

.WORD

MoV
MOV
MoV
MoV
TRAP
ADD

000240

005037

CSGMAN
10000%

MOV
MOV
MoV
MOV
TRAP
ADD

000006

100600

TRAP
BR

MoV
MC
Mov
MoV
TRAP
ADD

000006

(6)
(9)

2219

G
6
01-0CT-80
12:06 PAGE 23-5
PRINTING SPEED MEASUREMENT

104443
000404

013746
012746
012746
010600
104417
062706

017712
017716

30A(1052)

; REPEAT UNTIL LP GOES OFF-LINE

LET RS := BNDPAT
LET R3 := WORK
WORK ,R3

WHILE R3 GT #0 DO

TST
BLE

R3
50171%

8l7
BNE

#8117 ,8LPCSR(R2)
50173%

BIT

#BIT15,aLPCSR(R2)

: PRINT R3 CHARACTERS

WHILE #BIT7 NOTSETVIN QLPCSR(R2) DO

If #BIT1S SETIN ILPCSR(RZ) THEN

; WAIT FOR READY

CILPLCO LPZS, LP26 TEST MACY11
czLpLc.Pp
01-0CT1-80 12:06
(9)

020060

(&)

020066

2224
2225
2226
(&)
(3)

2227
(4)

020062
020066
020066

020076
020100

000757

50170%

020100

104422

020102

005237

020106
020110

000743

020110
020112

000445

020100

020106

(4)
(3)

020110

2234
(6)

020112
020112

2235

020122

2236

020130

2237

020130

(9)

(4)

012777

003202

162212

MOV

020130

013777

002346

020136

005037

041140

CLR

005037

002310

CLR

020146

2241

020156

2244
(&)
(6)
(9)

2245
2246
(4)

50176%:

020154

020156

020162
020162
020166

020166
020166
020170

020172

020172
020172

020200

020202
020204
020204

162202

50177%:

LET LINCNT
L INCNT

50166%
50175%

CLKTYP EQ #3 THEN
CLKTYP,#3
50176%

LET QCLKSET

:= #1666.

#1666.,9CLKSET

LET @CLKCSR

:= CLKENA

CLKENA,9CLKCSR

LEY TIME
TIME

LET LINCNT := #0
L INCNT
WHILE TIME LT PERIOD DO

003166

MoV

WORK ,R3

TST
BLE

R3
50202%

BIT

#B1717,3LPCSR(R2)

NOP
ENDDO
50203%

000240
000772

000200

002370

BNE

1/60 SEC.

;ENABLE THE CLOCK TO DO ITS THING

:= #0

013703

001002

;

ENDIF

BNDPAT RS

032772

DECRIMENT (HAR COUNTER

ENDDO

MoV

50203%:

;

; PUT (MAR INTO LP BUFFER

:= LINCNT + M1

020742

50201$:

(RS5)+

ALLOW CTL-C ABORT

013705

005703
003412

c(mp

;

($BRK

041140

BGE

:B=

:= R3 - m

023737
002023

002300

MOV

LET RZ

BREAK

ELSE

020122

020146

(&)
(6)
(9)

50163%:

; EXIT LOOF IF OFF=-LINE AGAIN

ENDDO

020120

(6)

2242
(4)
2243

50167%:

(MP
BNE

020142
020142
020146

(4)

INC

000003

2239
(4)
2240
(9)

002310

JMP 998
ENDIF

LET QLPBUF(R2)

TRAP

002334

020136

(4)

Su171%:

023727
001003

2238
(4)

(R5)+,aLPBUF
(R2)
R3

2232
2233

move
DEC

002464

SEQ@ 0072

ENDDO

005303

020102

(4)
(3)

501728

020074

2231

(6)

112572

020076

(3)

501748

501748
:
50173%:

BEQ

020070

2229
2230

0202264

000765

020074

(4)
(3)

000137

01-0CT1-80
12:06 PAGE 23-6
PRINTING SPEED MEASUREMENT

020066
020070

2228
(6)

001402

30A(1052)

: REPEAT UNTIL TIME EXHAUSTED

TIME ,PERIOD

50200%

LET RS

:= BNDPAT

LET R3 := WORK

WHILE R3 GT #0 DO

; SEND R3 CHARACTERS

WHILE #BIT7 NOTSETIN 3LPCSR(R2) DO

502048

; WAIT FOR READY

CILPLCO LPgS, LP26 TEST MACY11
cZLpPLC.P
01-0C71-80 12:06

30A(1052)

01-0CT-80

12:06

002464

LET aLPBUF(R2)
F
(R2)
(RS)+,aLPBU

(4)

112572

(6)

005303

DEC

(4)

000764

ENDDO
50201%

(6)

005237

INC

LET CINCNT
LINCNT

(&)

000751

2248
2249
(3)
2250

2251
(3)
2252
(4)

2253
2254
2255
2256
2257
2258
(6)
(9)
2259
(4)

2260
(7
(6)

(3)
(&)
4)

2261

(s)

N’
N
N
e

(
(
(
(

W WL

(4)

2262
(4)

2263
2264
2265
2266
2267
(9)
(8)
(7)
(6)
(3)

(4)
(4)

2268
(2)
(3)

SEQ 0073

PRINTING SPEED MEASUREMENT

502048:

(%)
2247

[_6
PAGE 23-7

MOve

5020¢%:

002310
50200%:

50175%:

:B=

(RS)+

PUT DATA INTO BUFFER

; DECRIMENT (HAR COUNTER

LET R3 := R3 - 41

:= LINCONT + #1

NDDO

50177%

ENDIF

99%:

020224

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

020224
020224
020232
020234
020234
020240
020240
020244
020250
020252
020254
020260
020260
020¢62
020264
020266
020270
020272
020274
020274
020274
020274

023727
001020

002334

005037

002306

012746
012746
010600
104417
062706

006773

000004

CMP

BNE
LET FLAG :=
(LR

000001

MOV

000004

50205%
#0
FLAG

CSPNTF
#4,5P

TRAP

CSGMAN

.WORD

FLAG

.WORD

READY

MOV

#00,aCLKCSR

GMANIL READY,FLAG,100000,YES

.WORD

100000

10001$:

162036

ENDIF
50205%:

.WORD

:CLEAR <(R> FLAG

SP,RO

TRAP
ADD

000000

,
CLKTYP24

PRINTF #MRESET
MOV
#MRESET,-(SP)
MOV
#,=-(SP)

104443
000404
002306
000130
007072

012777

1F CLKTYP EQ #4 THEN

:WAIT FOR OPERATOR

10001$
T$CODE

100000

020324
020326
020332
020332
020336

002326
002310
021004
000003
000010

002310
003173

PRINTB
MOV
MOV
Mov
MOV
MOV
TRAP
ADD
PUSH
MoV
MoV

#LINPER,LINCNT
LUNIT

LUNIT,=(SP)
= (SP)
LINCNT

FLINPER,-(SP)
#3,-(SP)

SP,RO
($PNTB

#10,¢P

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

#OUTBUF +1,-(SP)

; CONVERT LINE COUNT TO ASCII

J
6
01-0CT-80 12:06 PAGE 23-8
CILPLCO LPZS, LP26 TEST MACY11 30A(1052)
PRINTING SPEED MEASUREMENT
cZLpLC.P1
01-0CT1-80 12:06

2269
2270
22N
2272
2273
2274
(6)
(8)
(6)
(9)
(6)

2275
2276
(2)
3

2277
2278
2279
2280
2281
4)
(3)

2282
2283
(&)

2284
2285
2286
2287
2288
(4)

2289
22'/0
2291
2292
2293
2294
2295
2296
2297
2298
2299

2300
2301

020342
020346
020410
020414

020456
020456
020464
020466
020474
020476
020476
020540
020540
020544
020550
020554

020616
020622
020664
020664
020666
020666
020730

020730
020730

020732
020732

004737

004472

004737

005466

J SR
OUTPU!
J SR
0 UTPUI

;

023727
001404
023727
001074

002334

000002

002334

000003

002300
003173

004737

005466

50207%:

020740

012737
000207

020742

000000

C MP
B £EQ
( mMP
B NE

000001

002352

DISPLAY LINE

COUNT ON LP

50207%

OUTPUIL #SPEDZ,#4, LUNIT

3 LSE
B8 R

PU SH

+1
PERIOD,#0UTBUF

PERIOD,=(SP)

#OUTBUF +1,-(SP)

ouTPUI

#OUTBUF+3.#3, ,LUNIT

: DISPLAY THE TIME

ouTPUI

. LUNIT
#SPED3.¥9..

; "'SECONDS" <Fi>

#SPEDL,#1, ,LUNIT

BNDPAT: . WORD

;

~FF>

;GO BACK AND DO IT AGAIN

"EXPECTED ERROR HANDLER
LPERR2: LET ERRFLG := #1
M ov
R TS

IN SECONDS

50210%

ou TPUl
ENDIF

NLIST BE X

s UINT
; CONVERT TIME TO ASCII

JS R PC,BIN2DA

50210%:
RTS P ¢

0002¢C7

;

PC,QUIET

#SPEDT,#19,, LUNIT
; "LINES PRINTED"
IF A CLOCK WAS USED DISPLAY THE TIME USED ALSO

MOV
M ov

000421

PC,BIN2DA
#OUTBUF ,#6, ,LUNIT

[f CLKTYP EQ #2 OR CLKTYP EQ #3 THEN
CLKTYP,#2
50206$
CLKTYP,#3

50206%:

013746
012746
004737

SEQ 0074

;SET ERRCR FOUND

#1,ERRFLG

;AND EXIT

;

CONTAINS ADDRESS OF PRINT PATTERN

*ASSOCIATED MESSAGES
020744
020767
020773

046040
040
040
014
047045
045
045
047065
047045

047111
047111
042523

051505
040
047503

042045
022516
022516
060445
060445
044522
060445
022516
040445
022516

022463
064501
050101
051120
044124
052116
032066
034501
032066
034501

SPED1:
SPED?:
SPED3:
SPED&:
L INPER:

/ LINES WERE PRINTED/
LASCI I
/ IN/
.ASCI I
.ASCI 1
<ASEC0NDS/
.BYTE
/XNXD3XA LINES PRINTED ON LUNIT XD2XN/
.ASC] z
OFFLIN: LASCI 4 /XNXAINSURE PRINTER(S) OFF LINE./
ONLIN1: .ASCI 4 /XNXAPLACE LUNIT XD2XA ON LINE TO INITIATE TIME PERIOD FOR MANUAL/
/XNXAPRINTING SPEED MEASUREMENT AND BACK OfF LINZ TO TERMINATE/
ONLINZ: -ASCI I
TIME INTERVAL.XIN/
N3:
/ANXATHE
.ASCI
l
ONLI
/PRINTING SPEED MEASUREMENT TEST 4/<12><12><12>
PRTSPD: .ASCI l
/ANXAG64L CHARACTER BAND SHOULD PRINT AT 285 LPM. XN/
.ASCI 4
LPM64:
/ANXA96 CHARACTER BAND SHOULD PRINT AT 204 LPM.XN/
96:
LASCI 4
LPM
CHARACTER BAND SHOULD PRINT AT 600 LPM.IN/
/ANXA64
:
M64
.ASC{ 4
L26
CHARACTER BAND SHOULD PRINT AT 450 LPM. XN/
/XNXA96
ASC
l
L26M96: .
LLIST BEX
EVEN

;64 CHARACTER BAND

PATTERN

285 LPM / 600 LPM,

CILPLCO LP¢S, LP26 TEST MACY11
CZLPLC.PIN
01-CCT1-80 12:06

30A(1052)

2314
%%}2

2317

:
.SBTTL

PRINT SPEED TEST PATTERNS

TABAG6L:

.BYTE

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

134
101
133

BYTE

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

061
064
136
163
062
124
101
135
105
075
056

104
041
102

061
077
136

BYTE

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

021753
021756
021761

105
075
103
060
042
054
133
043
041
100
04
074
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
on
055

046
073
53

.BYTE

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

2323

022014
022017

057
132

070
072

054
1N

.BYTE

057,070,054.,132.072.131,072,131,050,067,052

022027
022032
022035
022040
022042

046
126
053
137

051
066
045
065
123

127

.BYTE

130,051,12/,046,066,077,126,045,125,053,065

137

BYTE

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

022059
022053

13¢
064

121
067

022060
022063
022066

124
116
126

063
126
115

066
115

117

BYTE

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

125,062.065,114,123,113,122,061,121,112,064

061
064

065
113

BYTE

122
112

062
123

121

120

110

.BYTE

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

2318

2319

2320

2324

23°:

2328

2329
2330
233

2332

021712
021715
021720
021723
021725
021730
021733
021736
021740
021743
021746

O01-0CT-80
12:06 PAGE 23-9
PRINTINC SPEED MEASURFMENT

021751

022022
022025

022045

022055

022070
022073
022076
022101

022103

022106
022111
022114
022117

072
067

130

123
120

125
114

1R R

117
060
116
015

060

131
052

07¢C
130

060
063
106

050

on
125

122
1N

117
107
012

]

;
;96 CHARACTER BAND TABLE

;

204 LPM, / 450 LPM,

MINIMUM PRINT SPEED PATTERN 96 (HARACTER BAND

SEQ 0075

CILPLCO LPZS, LP26 TEST MACY11 30A(1052) 01-0(T-80 12:06 PAGE 23-10
PRINT SPEED TEST PATTERNS
01-0C7-80 12:06

2337

2338

2339

h
)
e
D and
ed
B oD
D
d
nd
e
D
b —
b

2336

NNNON OO VAW S B SN NN
PO N
YP o
Yo B o
Yo JV Eodo JV (&)
NSV PR

2335

—

2334

[eleleolole] QOO0 COO0OO0O00O00O

2333

NN NN OO N
NN MNOINIAIAL
NI AN ANV
NN ANININIANV

cZLpPLC.P

.BYTE

061,055,164,067,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

164

173
135

047

041
074
075

074
052
076

.BYTE

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

053
042

054

.BYTE

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

051

.BYTE

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

.BYTE

122,067,064,137,073,132,073,132,053,131,0M

132

064
132
053

066
072

057
127

130
050

.BYTE

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

070
046

065
124

.BYTE

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

044
064

122
137

046
123

.BYTE

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

061
047

055
143

052
075

100
149

142

176

136
176
133

042
134
175

100

043

174

073

134

072

054

055

077
041
062

041
on

050
050

2342

122
137

067
073

124

2344

2345
2346
(3)
(3)

2347

124
044

071

151

045

043
060

TABAG6:

056
054

057
133

100
045

125

067

121
131

132
117

130
127

116
115

.BYTE

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

122

.BYTE

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

TRAP

CSETST

063
2343

133
135

070

120

2341

056

164

046
123

073

2340

041

144

130

114
065
112

125
062
123

064
061

061
121

102
015

106

ENCTST
106400

L10013:
ENDMOD

SEQ 0076

CZLPLCO LPZS, LP26 TEST MACY11
CZLpec P
01-0C7-80 12:06

30A(1052)

01-0C7-80
12:06 PAGE 24
DAVFU ERROR DETECTION

SEQ 0077

.SBTTL DAVFU ERROR DETECTION

022330

BGNMOD
:00

STHIS
“THAT

TEST CONSISTS OF TWO PARTS TO VERIFY
THE DAVFU CAN DETECT ERROR CONDITIONS

‘0F

TWO TYPES:

*""

NOT

*1. DAVFU WILL NOT ACCEPT INCOMPLETE DATA.
2. DAVFU WiLL NOT ACCEPT DATA THAT DOES

?gNTST

022330
022330
022330
022330
022334
022336
022336
022340
022342
022342

022410
022410
022412

2377

2380
2381
2382
(3)

0226414
022420
022422
022422
022424
022426
022426
022426

022430
022430
022434
022440
022442
022444
022450
022450
022454
022454
022456

A STOP BIT

(ONE)

CHARACTER.

;EXIT TEST IF DAVFU OPTION IS NOT SPECIFIED
005737
001002

002274

IF VFUOPT EQ #0 THEN

104432
001354

TRAP

ENDIF

50211%:
JPRINT

LWORD

TEST

IDENTIFICATION

IF MANUAL

TRAP

INTERVENTION IS ALLOWED

CSMANI

BCOMPLETE 1%
BCS
1%

103402

JEXIT TEST IF NEGATIVE DETERMINATION FOR MANUAL
;INTERVENTION IS MADE
EXIT TST
TRAP
CSEXIT
LWORD
L10014-,

104432

001302

002272

JDETERMINE IF

1%:

TST

INTERVENTION IS INHIBITED

INHINT

BNE 2%

EXIT TST

104432
001270

TRAP

2$:

15.1:

104402

CeEXIT

.WORD
BGNSUB

L10014-.

TRAP

c$BSUB

PRINTF
MOV
MOV

#VFUSEL
#VFUSEL ,-(SP)
M ,-(SP)

;SEND MESSAGE TO OPERATOR TO SET VFU-FLS SWITCH(ES)

012746
012746
010600
104417
062706

004045
000001

005037

002306

104443
000404

CeEXIT

L10014-.

MANUAL

104450

50211%

OUTPUT WVFUERR, #32., LPERR

‘DETERMINE

005737
001002

VFUOPT

TST

BNE

EXIT TST

022342
022404
022404
022406
022406

INCLUDE

000004

MOV
TRAP

SP,RO
CSPNTF

ADD
4 ,5P
;WAIT FOR OPERATOR RESPONSE

LET FLAG := #0
CLR

FLAG

TRAP

CSGMAN

GMANIL READY,FLAG,100000,YES

10000%

CILPLCO LP2S, LP26 TEST MACY11 30A(1052)

CZLPLC.PY

01-0CT-80 12:06

022460
022462
022464
022466
022470

emd

b ced

022470

022654
022654
022656
022660
022662
022664
022664
022664
022664
022666
022666
022666
022666
022670
022670
022670

022672
022672
022476
022700
022700
022704
022704

01-0CT7-80

12:06

SEQ 0078

DAVFU ERROR DETECTION

002306
000130
007072

.MORD
.WORD
.WORD

100000

PAGE 24-1

.WORD

FLAG
TS$CODE
READY

100000

100008
:
;PERFORM INCOMPLETE DATA ERROR DETECTION TEST

013701
005301

002012

005037
0004C2

002326

005237

002326

023701
003064

002326

013702
006302

002326

005037

002306

005737
00101

002306

005262

003126

013737

002326

LET R1

:= LSUNIT - N

DEC

CLR

LUNIT

INC

LUNIT

CMP

LUNIT ,R1

MOV

LgNIT.RZ

MOV

INCR LUNIT FROM #0 TO R1 BY #1
502138
50272%:

50212%

50214%
BGT
LET R2 := LUNIT SHIFT 1
ASL

LET FLAG := #0

CLR
FLAG
OUTPUI #INCDAT, #41.,, LUNIT
OUTPUI WNINCTBL, #5, #GETFLG, LUNIT
1f FLAG EQ #0 THEN
TST

FLAG

50215%
BNE
LET ERRTBL(RZ) := ERRTBL(R2)
ERRTBL(R?2)
INC
LET LSLUN := LUNIT

002074

MOV

104456

TRAP

000013
023563
000000
50215%:

ENDIF

ENDINC

50214%:

+ #1

LUNIT,LSLUN
ERRHRD 11
ERRUL6

.WORD
.WORD
LMWORD

000707

LSUNIT
R1

CSERWRD

"
ERRO6
0

50213%

ENDSUB

L10015:

104403

TRAP

BGNSUB
15.2:

104402

005037
000402

002326

005237

002326

023701

002326

C$ESUB

TRAP

($BSuUB

CLR

LUNIT

INC

LUNIT

(MNP

,
LUNITR

:PERFORM STOP CODE ERROR DETECTION TEST
INCR LUNIT FROM #0 TG R1 BY M1
50217%:
50216%:

50216%

CIL. _CO LPZS, LP26 TEST MACY11
czLpLc.e
01-0CT-80 12:06

20A(1052)

003163

(4)
(7)

022712
022716

013702
006302

002326

022720

005037

002306

023030
023036

012737
000402

000200

005237

002360

023727
003055

002360

000213

012737

000015

003172

012727
000000
013727
000000
005367
001375
005367
001367

000002

MOv

002116

MOV

005737

002306

2402
(4)

2403
2604
2405
(&)
(5)
(&)
(7)
(5)
(5)

022712

022720
0
0

023040
023040
023044
023044

00101

013737

002326

50222%:
50221%:

023256

023260

)
)
?

023260

023260
023262
023264

023264

000610

104432
000432

FLAG

MOV

#200,VFUCMD

INC

VFUCMD

50221%

CMP
86

VFUCMD,#213
50223%
LET OQUTBUF := #15

.WORD
DEL
BME
D.C
BNE
IF
TST

LSDLY, (PC)+

O
=6(PC)
.=4

-22(PC)
.=20
YLAG EQ #0 THEN
FLAG

MOV

LUNIT,LSLUN

TRAP

CSERHRD

50223$:

12
ERKO7
0

ENDIF

ENDINC

50222%

LET QUTBUF

MOV

003172

:= #14

#14,0UTBUF

OUTPUI #OUTBUF, #1,,LUNIT

ENDINC

:
502208
EXIT TST

TRAP

.WORD

ENDSUB

L10016:

+ M

ERRHRD 12, ERRO7

.WORD
.WORD
.WORD

000014

#2,(PC)+

BNE
50224%
LET ERRTBL(RZ) := ERRTBL(R2)
ERRTBL (R2)
INC
LET LSLUN := LUNIT

002074

;"'CR'" TO OUTPUT BUFFER

#15,0UTBUF
OUTPUI #OUTBUF, #1, GETFLG, LUNIT
DELAY 2

.WCRD

000715

)

CLR

MOV

50224%:

)

LUNIT,R2
R2

INCR VFUCMD FROM #3200 TO #213 BY #1

002360

000014
023634
000000

023214
023256

MOV
ASL

OUTPUI #NOSTOP, #35.,, LUNIT
#GETFLG, LUNIT
OUTPUI WNSTTBL. #6,

104456

012737

SEQ CO79

LET FLAG := #0

177756

003126

BGT
502208
LET R2 := LUNIT SHIFT 1

177772

005262

PAGE 24-2

DAVFU ERROR DETECTION

(7)

2401

12:06

01-0C7-80

50217%
CSEXIT

L10014-,

JU'FF'T TO OUTPUT BUFFER

CILPLCO LPZS, LP26 TEST MACY11
CZLPLC PN
01-0CT-80 12:06
(3)
2420

023264

30A(1052)

01-0CT-80

c.7
PAGE 24-3

12:06

SEQ 0080

JAVFU ERROR DETECTION

104403

TRAP

(SESUB

"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
:
100008

000207

RTS

040504
040504
104
042524
042

043126
043126
053101
052123
042522

020125
020125
052506
047440
052524

VFUERR:
INCDAT:
NOSTOP:

023563
023634
023700
023705

104

05310
043126
001

052506
020125
002

ERRO6:

023716

WORD

FLAG

.WORD

RESET

000

.WCRD

10000%
T$CODE

100000

;RETURN

.NLIST BEX

023304
023344
023415
023460
023535

023714
023714
023714

CSGMAN

.WORD

100000

040504
356
356
023714

TRAP

RESET:

FRRO7:

INCTBL:

NSTTBL:

,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>
.ASCI]

LASCIZ

/TEST 0.X.

,ASCIZ

/DAVFU STOP (ODE

.BYTE 356,

1, 2, 3, 357

.?YES 356, 0, 0, 0,
.EV

L10014:
ENDMOD

PRINTER ON LINE

AND DEPRESS/

.ASCIZ /DAVFU INCOMPLETE DATA ERROR NOT DETECTED/

.LIST BEX
ENDTST
104601

= PLACE

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

TRAP

CSETST

[RROR NOT

357

DETECTED/

CZLPLCO LPES, LP26 TEST MACY11 30A(1052)

cZLpPLC.P
2459
2651
2452
24653
2454
2455
2456
2657
2458
26459
2460
2461
(3)
2462
2463
(6)
(9)

2464
(3)
(3)

2465
(4)

2666
2467
2468
2469
(7)
(6)
(3)
(4)
(4)

2670
2471
(&)

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

(3)

2673
2674
(4)

2475
(4)

2476
26477
2478
26479
2480
2481
2482
2483
2684

01-0C7-80 12:06

01-0CT-80

DAVFU LINE

12:06

PAGE 25

SEQ 0081

COUNT PAPER CONTROL

.SBTTL DAVFU LINE COUNT PAPER CONTROL
BGNMOD

023716

;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.
023716
023716
023716
023716

?gursr

;EXIT TEST IF DAVFU OPTION IS NOT SPECIFIED

023722

005737
001002

023724
023726

104432
001472

023724

023730

IF VFUOPT EQ #0 THEN

002274

TST

BNE
TRAP

VFUOPT

50225%

EXIT TST

.WORD

ENDIF

CSEXIT

L10017-.

023730

50225$%:

023730

OUTPUT #VFULCT, #40., LPERR
*SEND MESSAGE TO OPERATOR TO SET VFU=-FLS SWITCH(ES?

023772

023772
023776
024002
024004
024006

024012

012746
012746
010600
104417
062706

024012

005037

024016
024020
024022
0264026
024026
024030

104443
000404
002306
000130
007072
100000

024016

024032

0372737

024040

005004

024042

024104
024146

024210
024252

TEST

IDENTIFICATION

PRINTF

#VFUSEL
MOV
#VFUSEL ,=(SP)
MOV
#,-(SP)

MOv

000004

;WAIT

LET FLAG := #0

002306

SP,RO

CSPNTF
TRAP
#4,SP
ADD
FOR OPERATOR RESPONSE

CLR

FLAG

TRAP

CSGMAN

.WORD
.WORD
.WORD

FLAG
T$CODE
READY

GMANIL READY,FLAG,100000,YES

10000$:

.WORD

10000%

100000

;INITIALIZE PARAMETERS

024032

024040

004045
000001

JPRINT

000200

002360

LET VFUCMD := #200
MoV
#200,VFUCMD
LET R4 := #0
R4
CLR

:LOAD DAVFU MEMORY
OUTPUT #VFUTBL, #18.
;PRINT

FIRST PART OF

ZERO LINE

OUTPUT #FSTMSG, #29.
;SEND ZERO LINE SLEW COMMAND
OUTPUT #VFUCMD, #1.

SLEW MESSAGE

:PRINT SECOND PART Of ZERO LINE SLEW MESSAGE
OQUTPUT WSECMSG, #103.
LET OUTBUF := M5
;"'CR" TO OUTPUT BUFFER

CILPLCO LP25, LP26 TEST MACY11

CZLpPLC.P
(&)

2435
2486
2487

(4)
(5)
(4)
(7)
(5)
(5)
(7)
2488

2489
2490

(4)
2491
2492
(4)
2493
2494

024252

024260
024322

026322
024330
024332
024332
024336
024336
024344

024346
024410

000015

003172

012737
000402

00022'

002360

005237

002360

023727
003115

002360

000237

000015

903172

024460

016437

024726

003172

024460
024466

2497
(4)
(3)
2493

024576
024576
024600
024600

2499
2500

024606
024650

024572

06¢704

12:06

PAGE 25-1

SEQ 0082

DAVFU LINE COUNT PAPER CONTROL
Mmov

#15,0UTBUFf

MOV
BR

#221,veUCmn
50226$

INC

VFUCMD

OUTPUT #OUTBUF, #1,
;SEND OTHER DAVFU PAPER ADVANCE COMMANDS
INCR VFUCMD FROM #221 TO #237 BY #

502268
:

CMP
VFUCMD ,#237
BGT
50230%
;PERFORM PAPER MOVEMENT

OUTPUT #VFUCMD, #1.
LET OUTBUF := M5

MoV
#15,0UTBUF
OUTPUT AOUTBUF, #1.
LET OUTBUF := LCTTBL(R4)
MoV
LCTTBL
(R&) ,0UTBUF
OUTPUT WOUTBUF ,#2
+APPEND MESSAGE AND PRINT MOVEMENT MESSAGE

OUTPUT #LCTMSG, #1371,
LET R4 := R4 + #2

000002

ENDINC

000655

¥2 R4

BR
50227%
502308%:
LET OUTBUF := #14
Mov
#14 ,0UTBUF

012737

(3)
(3)
2501

024650
024652

104432
000546

%gg%

024654

832;82

0643126

020125

VFULCT:

.2’&12 /DAVFU LINE COUNT PAPER CONTROL TEST 6/ <12><12><12>

2504

024726

030460

031060

031460

LCTTBL:

.ASCIZ2/010203040506070809101112131415/

024765

024774

356
007

001

002

VFUTBL:

.BYTE 356

sg}g

025007

124

044510

020123

FSTMSG:

.ASCIZ /THIS LINE SHOULD BE PRINTED /

2512

025044

066101

020114

047117

SECMSG:

.ASCII /ALL ON ONE LINE

045516
053105
027056
027056

LLTMSG:

2507

%ggg 025002
2513
2514
2515
2516
2517
2518
2519
2520

2521

(3)
(3)
2522

025110
025206
025212
025275
025336
025402

015

027056
027056
041040
040
027056
027056

016

027056
000056
040514
051120
027056
C27056

011

017
027056

OUTPUT #OUTBUF, #1.
EXIT TST
TRAP
.WORD
.NLIST BEX

JEVEN

CSEXIT
L10017-.

.EVEN

BYTE 7

, 2.3, 4,5, 6

11, 12, 13,714

BYTE 1§ 6, 17, 20, 357

ENDTST
104401

£10017:
ENDMOD

SLEWED ZERO LINES/

NR 2
ASCIZ
/...1
.ASCII / BLANK LINES SHOULD OCCUR BETWEEN THIS LINE AND THE/
TASCIT
7 FREVIOUS LINE vuvenevnnens wmvnn /
PASCIL
/e e
e
e e e e/
ASCIZ /o 7 5>

LIST BEX

025420

025420
025420
025622

010

003172

ADD

024600

2505
2506

000014

01-0CT-80

50227$:

012737

024530
024572

(4)

012737

024410
024416

2495
2496
(6)

01-0CT1-80 12:06

30A(1052)

TRAP

(SETST

OON NN INININ N IR NN NN NV N 1%}
PN
SN 2O~ fol
L NE N NN
OOV YO
N

025422

01-0C7-80

12:06

PAGE 26

SEQ 0083

DAVFU CHANNEL SELECTICN PAPER CONTROL

BGNMOD
MR
2

sTHIS

TEST

CHECKS

DAVFU PAPER

ADVANCE

:STOP BITS LOADED IN DAVFU MEMORY.

;DATA FORMAT

IS SELECTED TO PROVIDE

;OUTPUT IN A TRIANGULAR PATTERN.
025422
025422

025422
025422
025426
025430
025430
025432
025434
025434

17::

005737
00100¢

025622
025622
025630
025632
025632
025636

IF VFUGPT EQ #0 THEN

002274

TST

BNE

104432
001236

TRAP

VEUOPT

50231%

EXIT TST

.WORD

50231%:
cPRINT

ENDIF
TEST

CSEXIT

L10020~.

IDENTIFICATION

OUTPUT AVFUCHL, #47.

sSEND MESSAGE TG CPERATOR TO SET VFU-FLS SWITCH(ES)

012746
012746
010600
104417
062706

004045
000001

005037

002306

PPINTF

#VFUSEL

MoV

#VEUSEL ,=(SP)

MoV

SP,RO

MOV

000004

;WAIT

#1,-(SP)

TRAP
CSPNTF
ADD
#6,5P
FOR RESPONSE FROM OPERATOR

LET FLAG

:= #0

CLR

FLAG

TRAP"

CHGMAN

JWORD

FLAG

"WORD

READY

GMANIL PEADY.FLAG,100000,YES

"WORD

000130
007072

025536
025600
025604
025606
025610
025614
025616

USING

SEXIT TEST JF DAVFU OPYION [S NOT SPECIFIED

104443
000404
002306

025536

THE

BgNTST

025434

fo S

30A(1052)

.SBTTL DAVFU C(HANNEL SELECTION PAPER C(CNTROL

NON NS
Nt
R )

(29128 1,91, V]
~o
AN A AN NNN AN A

nonO

A AN A

PORNIPIR
N PO NI NN ~nN

NN U NV N

CILPLCO LPeS, LP26 TEST MACY11
(7LPLC.P
01-0C1-80 12:06

100000

:
100008

.WGRD

10000%
T$CODE

100000

.LOAD DAVFU MEMORY

012704
000401
005304
020427
002002
000137

000002

012737

000200

000402

005237

OUTPUT #VFUDAT, #50.
MOV

2%:

000001

1%:

;SET UP

ITERATION COUNTER

DEC

;BACK UP (OUNTER

BGE

b33

:BRANCH If LAST TIME THROUGH FALSE

cMP

JMP

026446

02652¢

#2,R4
B8R

R4, MM

:TEST

FOR LAST

SEXIT TEST

SEND PAPER INSTRUCTIONS TO ALL 12 CHANNELS

026522

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

MOV

#200,INSTR

INC

INSTR

50237%

TIME

THROUGH

s
s

WA~

OO~ [0 Yo W ¥ e Yo JV, ¥ LIV

O
NN
RN
AN AN
A~
NN A~

U LV L VIV, }
=2 OO~ OO~

01-0(CT-80 12:06 PAGE 26-1
CILPLCO LPe5, LP26 TEST MACY11 30A(1052)
DAVFU CHANNEL SELECTION PAPER C(ONTROL
01-0C7-80 12:06
c2LpLc P

2564
2565

(6)
2566
(4)

(3)
2567

2568
2569
(4)

2570
25N
(4)

(3)
2572
2573
(4)
(5)

(4)
(7)

(%)
(5)
(7)

2574
2575
(4)

2576
2577
(4)

(6)
(9)

2578
2579
(6)

2580
(4)

(3)

2581
2582
(&)

2583

025636
025644
025646
025710
025710
025/ 6
025760
025760
025764
025770
025770
025770
025772
025774
026036
026036
026040
026040
026042
026042
026104
026104
026112
026154
026154
026156

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

(Mp

000213

8GT

INSTR, #213

50234$

;PERFORM PAPER MOVEMENT

012737

000015

013703
142703

026522
000360

003172

OUTPUT NTNSTR, M1
LET OUTBUF := #15
#15,0UTBUF
Mov
OUTPUT #0OUTBUF, M
:GET SPACE COUNT
LET RY := INSTR
MOV
INSTR,R3
BICB #360, R3
WHILE R3 NE #0 DO
502358
187

005703
001423

50236%
BEQ
P, #1
#(CHARS
OUTPUT
- 11
Ry
:=
LET RY
R3
DEC

005303

ENDPDO

000753

50235%

50236%:
OUTPUT #CHARX, #1

;SEND PRINT (OMMAND TO PRINT SPACES AND X'S

012737

000015

LET OUTBUF

ENDINC

000626

:= #15

#15,0UTBUF
Mov
OUTPUT #OUTBUF, #1.

003172

502348

50233%

;DUPLICATE TEST TO REVERSE GUTPUT PATTERN

012737
000402

000213

005337

026522

023727
002520

026522

01 370 3
1 4270 3

026522
000360

026522

DECR INSTR FROM #213 T0 #200 BY #1

:
502409

000200

0u5703
001423

50237%:

MOV

#213,INSTR

DEC

INSTR

50237%

cmp
INSTR,#200
50241%
BLT
OUTPUT NINSTR, #1.
LET R3 := INSTR
MOV
INSTR,R3
BICB #360, R3
WHILE R3 NE #0 DO
50242%:
TST
R3

005303

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

000753

012737

BEQ

ENDDO

50243%:

000015

003172

50242%

OUTPUT #CHARX, M
LET OUTBUF := #15
MoV

#15,0UTBUF

OUTPUT #OUTBUF, #1.

SEQ 0084

CILPLZO LPgS, LP26 TEST MACY11
C2LPLC.PI
01-0C7-80 12:06
(4)

(3)
2585
2586
(4)

2587
2588
(3)
(3)

2589

2590
25N

2592
2593
2594
2595
2596

2597
2598
2599

2600
2601

2602
2603
2604
(3)

(3)

2605
2606

026440
026440
026442
026442
C26446
026446
026454
026516
026516
026520

000137

025606

012737

000014

000000
040504
044103
020114
052103
040520
047503
020114
033440

026604
026605

040
130

026606
026611
026614
026615

356
002
000
010
000
000
000

026620
026623
026625
026630
026633
026635

026640

026643
026645
026650
026653
026655
026660
026663
026665
026670
026670
026670
026672

502641%:

003 172

2%
LET OUTBUF

:= #14

Mov

714 ,0UTBUF

TRAP

CSEXIT

:GO BACK AND TRY

L10020-.

.WORD 0

(HARSP:
CHARX:

.EVEN
.BYTE 40
.BYTE 130

VFUDAT:

.BYTE

3%,

020
000

.BYTE

10, 0, 20, 0, 40, 0, O,

000
010

.BYTE 0,2,0,4,0,

000
020

.BYTE 0, 40, 0, 40, 0, 20, 0,

000
001

.BYTE

010
000

.BYTE

20, 0,

.BYTE

1, 0, 357

TRAP

CSETST

000
004

.EVEN
ENDTST

L10020:
ENDMOD

]T AGAIN

OUTPUT #OLTBUF, M

INSTR:

VFUCHL:

SEQ 0085

502408

.WORD

357

104401

JMP
4%

EXIT TST

104432
000150

026522
026524
026532
026540
026546
026554
026562
026570
026576

N7
O01-0CT-80
12:06
PAGE 26-2
DAVFU CHANNEL SELEZTICON PAPER (ONTROL
ENDD EC

000652

NIWRONOON SO

2584

30A(1052)

LASCIZ /DAVFU C-ANNEL SELECTION PAPER CONTROL TEST 7/ <12><12><12>

1,0, 2,0,4,0
1

10,0, 20

10, 0, 4, 0,2, 0

01-0CT-80 12:06 PAGE 27
CILPLCO LPZS, LP26 TEST MACY11 30A(1052)
PN
PLC.
01-0C7-80 12:06
DATA TRANSFER PATHS
cZLp
2608
2609
2610
2611
2612
2613
2614
2615
2616
2617
2618
2619
2620
2621
2622
2628
2624
2625
(3)
2626
2627
2628
2629
(&)

(5)

(4)
(7)
(S)

(5)

(7)

2630
(6)
(v)

2631

(&)

2632
(&)

(3)

2633
(4)

2634
(4)

2635
(&)

2636
(&)

(5)

(4)

”
(5

(5)

(7)

2637
(4)

2638
2639

SEQ 0086

.SBTTL DATA TRANSFER PATHS

026672

BGNMOD
XX

;THIS TEST CHECKS THE DATA TRANSFER

;PATHS FROM THE PROCESSOR INTERFACE
;70 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. AFTER 16 LINES OF
;THIS PATTERN,

THE OUTPUT PATTERN IS

;SWITCHED TO AN ALTERNATING PATTERN

;OF """ AND ''@'" CHARACTERS FOR ANOTHER
;16 LINES.

026672
026672

?SNTST

026672

OUTPUT #DATPTH,#30.

026734
026734
026742

INCR PATTERN FROM #1 TO #2 BY #1

026744
026744

026750
026750
026756
026760
026760

026766
026770
026770
026776
026776
027000
027000
027000
027006
027006
027006
027006
027012
027012
027020
027022
027022
027026
027026
027034
027036
027036
027042
027046

;PRINT TEST IDENTIFICATION
:PRINT ALTERNATING STRINGS OF

012737
000402

000001

005237

027300

023727

027300

000002

023727
001004

027300

000001

112737

000125

027236

003101

027300

50245$:

000403
112737

:
502448

012704

003172

012737
000402

000001

005237

002316

023727
00301

002316

113724
105137

027236
0272326

027236

INC

PATTERN

502448

#°'U,CHAR

Move
ELSE

502508

B8R

LET CHAR :B= #'?

MOovB
IF
END
502508:
LET R4
Mov

#'7,CHAR

:= #OUTBUF
#OUTBUF ,R4

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

002316

50252%:
000102

#1 , PATTERN

CMP
PATTERN,
#2
50246%
BGT
1f PATTERN EQ #1 THEN
PATTERN,
(MP
RNE
50247
LET CHAR :B= #'U

50247$:

000077

MOV

CHARACTERS

50251$:

MOV

#1,CCNT

INC

CONT

CMP

CONT,#66.

50251$

BGT

MovB

5025%$
(R4)+

:B= CHAR

comMB
LET (R4)+

CHAR
:B= CHAR

LET

CHAR, (R4) +

J
01-CCT-80
12:06
PAGE 27-1
CILPLCO LPZS, LP26 TEST MACY11 3CA(1052)
DATA TRANSFER PATHS
CZLPLC.PYY
01-0C7-80 12:06
(&)

2640
2641
(4)

(3)

2642
(4)

2643
(&)

2644
(&)

(&)
(7)

(5)

(5
(7)

2645
2646
(4)

(3)

2647
(4)

(3)

2648
(4)

2649
2650
(3)
(3)
2651

2652
2653

2654
2655
2656

2657
2658
2659
2660
(3)
(2)
266
2662

027046
027052
027056
027056
027060
027060
027060
027064
027064
027070
027070
027076
027100
027100
027104
027104
027112

027114
027156
027156
027160
527160
027160
027162
027162
027162
027170
027232

113724
105137

027236
027236

MOVB

(MAR,(R&4)+

50252%

COMB
END INC

000761

502538:

LET (R&)+ :B= #1S

000015

MOVB

#15, (R4)+

112714

000012

MOVE

#12, (R&4)

012737
000402

000001

005237

002310

023727
00302¢

002310

LET (R&4)

000020

112737

106432
000046

027236
027240
027246
027254
027262
027270
027276

000000
042014
051124
051105
051510
020124
000

027300

027300
000000

502548:

MOV

#1,LINCNT

INC

LINCNT

CMP

LINCNT,#16.

50256%
OUTPUT #OUTBUF, #134.

BGT

50255%

BR
502 Ub:
[ET QUTBUF

50245%

50256%:

ENDINC

000014

003172

:B= #14

MOVB

EXIT

TST

OUTPUT
TRAP

.WORD

052101
047101
050040
052040
005070

020101
0643123
052101
051505
005012

CHAR:

027304

#14,CUTBUY

#OUTBUF, #1
CSEXIT

L10021-.

.WORD 0

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

EVEN

PATTERN:

.WORD 0
.EVEN

.EVEN

104401

1O #16. BY #1

502548

END INC

000671

:B= #12

INCR LINCNT FROM #1

50255%:

000750

027232
027234

027302
027302
02730¢

CHAR

112724

002310

ENDTST
L10021:
ENDMOD

TRAP

(S$ETST

SEQ 0087

CILPLCO LPZ5, LP26 TEST MACY11
cZLpPLC P
01-0C1-80 12:06
2664
2665
2666
2667
2668
2669
2670
267N
2672

2673

3)
2674
2675
2676

2677
2678
%)
(S)
4)
7

&)
(5)
(7)

2679
(4)

2680
(&)

(5)
(4)

7)
(5)
(5)
(r)

2681

(4)

2682
(4)

(3)

2683
(4)

2684
2685
<686
%)
(3)

2687
2688
2689
2690
2691
2692

26973
2694
(4)

2695
(4)

304(1052)

01-0CT-80

PRINTABLE

12:06

CHARACTERS

.SBTTL PRINTABLE
BGNMOD

027304

PAGE 28

SEQ 0083

CHARACTERS

THIS

TEST WILL PRINT

A FULL

! INE

EACH PRINTABLE

CHARA(TER.

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

027304
027304
027304

?gflTST

OUTPUT #PRTCHR, #30.

; PRINT TEST ID

é PRINT ALL UPPER CASE CHARACTERS ON ALL UNITS
027346
027346
027354
027356
027356
027362
027362
027370
027372
027372
027376
027376
027404
027406
027406
027412
027412
027420
027422
027422
027426
027426
027430
027430
027430

027434
027476
027502
027502
027504

C12737
000402

000040

005237

003166

023727
003045

003166

012704

003172

012737
000402

000001

005237

002314

023727
003003

002314

113724

003166

003156

;

50260%:
000137

50257%:

INCR WORK FROM #40 TO #137 BY M

MOov

#40,wORK

INC

WORKX

CMP
86T

WORK ,#137
50261%

MOV

002314

MOV

50263%:
000204

50262%:

50264%:

LET R4

:= #OUTBUF

#OUTBUF
R4

INCR COUNT EROUM #1
#1,COUNT

COUNT

(MP
BGT

COUNT ,#132.
502649

LET (R&4)+ :B= WORK
WORK
, (R4) ¢+
END INC

50263%

LET

(R4)+

:B= #LF

112724

000012

M. VB

004737

005466

JSR PC,QUIET
ENDINC

000725

50261%:

10 #132. BY ¥

50262%

INC

MovB

000767

50267

#LF,(RL)+

OUTPUT #OUTBUF ,#133.

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
027504
027504
027510
027510

005037

003166

013737

002012

LET WORK := #0
003170

. COUNTER FOR 96 CHAR UNITS

CLR

WORK

MOV

LSUNIT ,WORK1

LET WORK1

:= LSUNIT - #1

; GET UNIT COUNT

CILPLCO LPZS, LP26 TEST MACY11 30A(1052)
cZLpPLC.P

01-0C7-80 12:06

(6)

027516

005337

003170

(&)

027522

005037

002326

2696
(S)

(&)
(7)
(5)
(53

(7)
2697
(&)
(7)

027522

027526

027530
027530
027534
027534

005237

002326

023737

002326

013702
006302

002326

027552
027560

032762
001402

010000

027562
027566
027566
027566
027566
027570

005237

003166

027570

005737

027542
027544
027544
027550

2698

027552

2699

027562

(6)
(9)

(6)
2700
(4)
2701
(4)
(3)

2702
(6)

(9)

2703

027570
027574

027576

(3)
(3)
2704
(4)

027576
027600
027602
027602

2ru?

027602

5;82
(4)

(5)

027602

027612
027612
027616

2709

027632

(&)

(5)

003012

001002

012737

000140

023727
003073

003166

012704

003172

027632

012737

000001

027640 000402

(7)

027654

023727

003003

002314

027664

LUNIT

INC

LUNIT

SEQ 0089

50265%

CMP
LUNIT,WORK1
BGT
50267%
LET R2 := LUNIT SHIFT 1
MOV
LUNIT,R2
ASL
R2

BIT
BEQ

#FLAG96, STATUS (R2)
502708

INC
ENDIF

WORK

502668

LET WORK := WORK + #1

WORK

BNE

TRAP
.WORD

; IS THIS UNIT 96 CHAR ?

50271%

CSEXIT
L100.2-.

: ALL UNITS 64 CHAR...EXIT

113724

000767

INCR WORK FROM #140 TO #176 BY M

003166

50273$:

000176

50272%:

#140,WORK

INC

WORK

502768:

502758:

WORK
, #176
50274$
LET R4 := #OUTBUF
, R4
#OUTBUF
MOV

B8R

#1, COUNT

50275%
COUNT

CMP

COUNT, #132.

MOVB
50277%:

INCR COUNT FROM #1 10 #1332, BY M

INC

86T

003166

50272%

CMP
BGT

MOV

002314

000204

MOV

: YES ADD 1 TO COUNT

: ANY 96 (HAR UNITS ?

: SETUP FOR LOWER CASE CHARACTERS DISPLAY

002314

2712

CLR

ENDIF
502718:

027616
027624
027626
027626

027656
027662
027662
027664

WORK1

1f WORK EQ #0 THEN

104432
000330

003166

027656

DEC

EXIT TST

005237

(4)
2711
(4)
(3)

PAGE 28-1

IF #FLAG96 SETIN STATUS(R2) THEN

002526

003166

027642
027642
027646

2710

003170

502658:

502678:

005237

027646

502668:

502708:
ENDINC

(L)
(7)
(5)

(5)

12:06

INCR LUNIT FROM #0 TO WORK1 BY #1

000760

027610 000402

(L)
(7)
(5)

(5)
(7)
2708
(4)

000402

01-0CT-80

PRINTABLE CHARACTERS

50277$

LET (R4)+ :B= WORK

WORK,(R&4)+
ENDINC
50276%

LET (R&)+ :B= #LF

m
7
12:06
PAGE 28-2
01-0(7-80
CZLPLCO LPZS5, LP26 TEST MACY11 30A(1052)
PRINTABLE CHARACTERS
CZLPLC.PI
01-0C7-80 12:06
(&)

2713
(&)
(6)
2714
(4)
(5)
(&)
)
)

)

)
S
)
(7)

2716
(6)
(9)

027664

027670
027670
027676
027702
027702

027706
027710
027710
027714

027714

027722
027724
027724
027730

027732

027732
027740

2717
2718

027742
030004

2719

030004

(4)

(4)
(3)

030004
030006

030006
030012
030012

2722

030014

2723
2724
(5)
(3;

030022
030064
030064
030066

2726

030070
030076
030104
030112
030120
030126

(4)

2727

2729
(3)
(3)

2731

000012

013737
005337

002012
003170

005037
000402

002326

005237

002326

023737

002326

013702
006302

002326

032762
001421

010000

003031

move

003170

030014

50301%:

003170

030132

50200%:

503028%:

005466

000014

003172

INC

LUNIT

(MP

LUNIT,WORK1

MOV

nglT.RZ

BIT
BEQ

IF #FLAG96 SETIN STATUS(RZ) THEN
#FLAGI6,STATUS(R2)
50303%
OUTPUL #OUTBUF ,#133.,,LUNIT

50302%
LET R2 := LUNIT SHIFT 1

ENDIF

ENDINC

50301¢

JSR PC,QUIEY

BR
50274$:
LET OUTBUF
MovB

TRAP

.WORD

047111
020105
041501
052040
005071

040524
044103
042524
051505
005012

PRTCHR:

:B= #FF
#EF,OUTBUF
CSEXIT

LASCIZ /PRINTABLE CHARACTERS TEST 9/ <12><12><12>

.EVEN

L10022:
ENDMOD

. EXECUTE TOF

L10022-.

ENDTST
104401

; WAIT FOR ALL DONt

50273%

OUTPUT #OUTBUF ,#

EXIT TST

104432
000042

051120
046102
051101
051522
020124
000
030130

50300%

ENDINC

000677
112737

LUNIT

ASL

000741

004737

INCR LUNIT FROM #0 TO WORK1 BY #1

BGT

002524

:= LSUNIT - M

LSUNIT,WORK1
WORK1

50303$:

030130

030130
050130

MOV
DEC

FLF,(RG)+

LET WORK1

(LR

030004

2720
2721
(4)
(3)

112724

SEQ 0090

TRAP

CSETST

CILPLCO LPZS, LP26 TEST MACY1Y
CILPLL.PYY
01-0CT-80 12:06

30A(1052)

%;gg
2736
2737
2738
2739
2740

LSBTTL
030132

(3)
%;22

;

030132

030132
030174

2749

030200

(&)

2§§3

030174

012706

031065

030200

012737

000033

030206
030206

030212
030214
030214
030220

(7)

030226

2754

2(4%

(7)
2759
(&)
2760
(&)
(3)
2761
2762

5522

030220

030230

MOV

#NONBUF

,R&

MOV

#27. ,WORK1

005037
000402

002310

005237

002310

023737

002310

003061

012703

50305$:

003170

50304%:

INCR LINCNT FROM #0 TO WORK! BY #1
CLR
LINCNT
BR
50304$
INC

LINCNT

LINCNT,WORKY

86T

003172

MOV

50306%

LET R3 := #OUTBUF
#OUTRUF ,R3

: 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

003166
503108$:

000010

50307%:

112423

MOV
BR
INC

WORK

CMP
BGT

WORK ,#8.
50311$

MOVB

000770

50311$:

INCR WORK FROM #1
#1,WORK
50307%

TO #8. 8Y M

LET (R3)+ :B= (R&)+
(R4)+,(R3)+

END INC

50310%

: PUT 120 BYTES OF CODE INTO PRINT BUFFER

;

030264

(5)

030272

(¢)

TEST CURRENTLY BFING DONE

2765
(&)

10.

LET WORK1 := #27.

003170

5;29

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

THEN SENT.

OUTPUT #NONCHR,#71.
LET R4 := WNONBUF

2758
(&)
(5)

TESTED CODE ARE

; DO ONE LINE FOR EACH TABLE ENTRY

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

(5)

THE

T10::
;INDICATE

%;g;
2753
(&)

SEQ 009N

NON-PRINTABLE CHARACTERS

123 OF

BGNTST

030132

2747
2748

BGNMOD
XX
:THIS TEST CHECKS FOR DETECTION OF ALL NON-PRINTABLE CHARACTERS.
;EACH CHARACTER WILL APPEAR ON THE PRINTER OUTPUT IN THE FORM OF
:CODE ACCOMPANIED WITH ITS MNEMONIC.

5;2;

2743
2744

01-0(CT-80
12:06 PAGE 29
NON-PRINTABLE CHARACTERS

030264
030274

012737

000402

000001

003166

MOV
50313%:

INCR WORK FROM #1 TO #°23. BY
#1,WORK

50812¢

1TS OCTAL

CILPLCO LPZS, LP26 TEST MACY11
CILPLC.PTY ~ 01-0CT-80 12:06
(7)
(5)
(5)
(7)

030276
030300
030300
030306

005237

003166

023727
003002

003166

(&)

030310

030312
030314

2766
2767
(&)
(3)

2768
2769
2770
27N
2772
(&)

2773
2;;2

030310
030312

030314

030320
030320

30A(1052)

INC

WORK

CMP
BGT

WORK ,#123.
50314$

111423

MOVB

(R4),(R3)+

000770

000173

;
:
:

030324
030366

2779

030370

(4)

112723

000015

MOVB

112723

000012

MOVB

030366

005204

030370

000711

030372

INC

50306$ :

%;gg

; *«NOTEwe
030372
030372
030376

012703

003172

(5)

030402

000401

012704

000140

2788
(4)

030376
030404
030404
030406
030406

030412
030414

030414

2789
(4)

030416
030416

2790
(4)
2791

030420
030420
030424

2792

030436

(3)

(4)
(6)
(4)

(5)
(&)

(R&)

503138

LET

(R3)+

:B= #15

#15,(R3)+

LET (R3)+ :B= #12
#12,(R3)+

OUTPUT
LET R4

(CODE)

#OUTBUF,#133.
:= R4 + #1

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.

2786
(4)
2787

(7)

:B=

ENDINC

2782
2783

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

(R3)+

FOLLOWED BY CRLF

2781

(4)

LET

]

: PRINT LINE OF OCTAL CODE. MNEMONIC, AND 120 BYTES(NONPRINTABLE

2777
2778

2§§5

503128
:

503148:

%;;g

(6)

B 8
01-0CT-80
12:06 PAGE 29-1
NON-PRINTABLE CHARACTERS

030420

50316$:

003002

50315$

INC

CMP

RG, 4177

MOVB

000772

50317$:

0304264
030432

013737
005337

002012
003166

030436

005037

002326

000402

BGT

110423

000012

030444

50315$:

000177

112723

030442

LET R3 := #OUTBUF
MOV
#OUTBUF ,R3
INCR R4 FROM #1140 TO #1177 8Y M1
MOV
2140, R4

005204

020427

DELETE IS PRINTED AS UNDERSCORE *'_°

s0%17s

LET (R3)+

:B= R4

R4, (R3)+

; FILL BUFFER WITH CODES & LF

ENDINCR
BR
50316%

LET (R3)¢ :B= #LF
W#LF,(R3)+
LET WORK := LSUNIT - #1

MOVB
003166

MOV
DEC

LSUNIT,WORK
WORK

(LR

LUNIT

INCR LUNIT FROM #0 TO WORK BY #1

50321%:

50320%

; SEND MSG AND BUFFER TO ALL

; UNITS WITH 64 CHAR BAND

SEQ 0092

CILPLCO LPZS, LP26 TEST MACY11
CILPLC.PIY
01-0CT-80 12:06
(7)
(5)
(5)

030444
030450

005237

002326

023737

030460

003052

002326

2793

030456

2794

(30466

(7)

(&)
(7)

(5)
(9)

2795

2796
2797
(4)

2798
(4)
(3)

2799
2800
(3)
Zég%

030450

030460
030464

013702
006302

002326

030466
030474

032762
001042

010000

030476

30A(1052)

003166

2807

INC

LUNIT

CMP

LUNIT,WORK

8GT

002524

BIT
BNE

030540
030602

030602
030602
030604

030604
030646
030646
030650

SEQ 0093

50322%

LET R2

:= LUNIT SHIFT M

LUNIT,RZ
R2

IF #FLAG96 NOTSETIN STATUS(R2)
#FLAG96,STATUS(R2)
50323%

THEN

OUTPUL #AUTCON,#61., ,LUNIT

OUTPUI‘#OUTBUF
,#33., ,LUNIT

030602

50323%:

000720

50322%:

104432
000612

ENDIF
ENDINCR

50321%

OUTPUT
EXIT
TRAP
.WORD

#SKIP3,
44
TST
CSEXIT
L10023-.

;AND EXIT TEST

:CHARACTER BUFFER AND TEST HEADER MESSAGE
030652
030713

gggg

030762
031060

2810
2811
2812
2813
2814
2815
2816
2817
2818
2819

031065
031076
031107
031120
031131
031142
031153
031164
031175
031206

2820
2821
2822
2823
2824
2825
2826
2827
2828
2829
2830
2831
2832
2833
2834
2835

50320%:

[0}
ASL

ggg%
2804
2805
2806

8
c_
01-0CT-80
12:06
PAGE 29-2
NON-PRINTABLE CHARACTERS

031217
031230
031241
031252
031263
031274
031305
031316
031327
031340
031351
031362
031373
031404
031415
031426

047516
1017

047503
005015
040
030040
040
030040
040
030040
040
030040
040
030040

040
030040
040
030040
040
030040
040
030040
040
030040
040
030040
040
030040
0640
030040

026516
043040

042504
005012

030060
030460
030060
031460
030060
032460
030060
033460
030460
03046717

030460
033461
031060
030462
031060
031462
031060
032462
031060
033462
031460
030463
031460
031463
031460
032463

051120
046125

020123
000
020060
051440
020062
042440
020064
042440
020066
041040
020060
0440460

020066
051440
020060
054040
020062
054040
020064
047040
020066
042440
020060
042440
020062
042440
020064
043440

.NLIST -BEX
NONCHR: .ASCII
LASCIZ

AUTCON:
SKIPZ:

.ASCIZ
LASCIZ

NONBUF:

,ASCII
LASCII
LASCIT
LASCIT
LASCII
LASCII
LASCIT
LASCIT
LASCIT
LASCII

LASCIT
LASCIT
LASCIT
LASCIT
LASCIT
LASCIT
JASCIT
LASCIT
LASCIT
LASCIT
LASCIT
LASCIT
LASCIT
LASCIT
ASCIT
LASZIT

/NON-PRINTABLE CHARACTERS TEST 10/<12>
/A FULL LINE OF EACH CODE WILL BE SENT/<12>

/CODES 140(8)

,.177(8) SHOULD BE CONVERTED TO 100(8)..137(8)/<12><12>

<15<A><12><12>
7/
/7
/7
/7
/7
/7
/7
/7
/7
/7

/7
7
/7
/7
/7
/7
/7
/7
/7
/7
/7
/7
/7
7
/7
7

000
001
002
003
004
005
006
007
010
011

016
017
020
021
022
023
024
025
026
027
030
031
032
033
034
035

NUL/<O>
SOH/<1>
STX/<2>
ETX/<®>
EOT/<&>
ENQ/<S5>
ACK/<H>
BEL/<T>
BS /<1D»>
HY /A1

SO /7<ié>
S1 7<AD>
DLE/<20>
XON/<21>
DC2/<22>
XOF/<2®
DC4/<24>
NAK/<25
SYN/<26>
ETB/<2D>
CAN/<30>
EM /<31
SUB/<32>
ESC/<3dD>
FS /7<34>
GS /<35

D
8
CILPLCO LPCS, LP26 TEST MACY11 30A(1052)
O01-0CT-80
12:06 PAGE 29-3%
CILPLC.PNM
01-0CT-80 12:06
NON=-PRINTABLE CHARACTERS

2836
2837
2838
2839
2840
2841
(3)
2;2%

031437
031450

2843

031464

031462
031462
031462

060
030040
031462

104601

031460
033463

020066
052440

LASCIT
LASCIT
.EVEN
LLIST BEX
ENDTST
L10023:
TRAP

EMDMOD

/7 036 RS /7<36>
7 037 US /<37>

CSETST

SEQ 0094

CILPLCO LPgS, LP26 TEST MACY11 30A(1052)
CILPLC.P

2846
2847
2848

031464

01-0C7-80 12:06

01-0CT-80

BAND PATTERN

.SBTTL

BGNMOD
;00

12:06

PAGE 30

SEQ 0095

BAND PATTERN

%ggg

:BAND PATTERN TEST

2851
2852

:THIS TEST PRODUCES AN IMAGE OF THE ENTIRE BAND PATTERN, THE PRINT=-CUT
;1S ORGANIZED TO LOCATE THE ©OUR QUADRANTS OF THE BAND [N THE FOLLOWING

2855

;

2853
2854

5229
%ggg
2860
2861

Sggg
5

2864
2865
2866

%ggg

2869

:FORMAT:
:

:
:

QUADRANT NO.1

QUADRANT NO.3
QUADRANT NO.1

QUADRANT NO.&
ETC.

QUADRANT NO. 2

:THE REASON FOR THIS ARRANGEMENT IS TO FACILITATE VISUAL INSPECTION
:OF THE PRINTOUT AS WELL AS TO ACCOMODATE THE 208 (MARACTERS OF THE BAND
:IN 132 COLUMNS.
;

:
;
;

STATUS(R2) FLAG96

SCF TWARE SWITCH USA

=1 FOR 96 CHAR BAND
=0 FOR 64 CHAR BAND
=1 FOR AMERICAN PRINT SET

=0 FOR BRITISH

PRINT SET

CZLPLCO LPZS, LP26 TEST MACY11 30A(1052)
CZLPLC.PN
2871

(3)

2872
287%

01-0C7-80 12:06

031464

%g;g

T11::

000014

031464

031526

2881
(64)
2882
(&)
2883
(&)
2884
(4)
2885
(4)
2886
(&)
2887
(4)
2888
(4)
2889
(4)
2890
(4)
2891
(4)
(3)
2892
(&)
2893
(4)

031534
031534
031540
037540
031546
031546
031552
031552
031560
031560
031564
03564
031572
031572
031576
031576
031604
031604
031610
031610
(031616
031616
031620
031620
031620
031626
031626

031526
031532

005737
001432

002302

105037

033143

112737

000043

105037

033261

113737

000043

105037

033377

112737

000043

105037

033521

112737

000043

105037

033712

112737

000043

031632
031640
031640

112737

000043

105037

033266

031644

112737

000043

031652

105037

033403

112737

000043

(4)

031656
031644
031664

105037

033526

(4)

031670

112737

000043

031676

105037

03377

(4)

2897
(4)

2898

(4)
2899

2900
2901

(4)

031644

031652

031656

031670
031676

SEQ 0096

IDENTIFICATION ON ALL UNITS

#BNDTST,#23.

; AMERICAN, PRINT SHARP SIGN '#°

USA
50324%

LET BP6LQ2+18. :B= #0
BP64L02+18.
LET BP64A2+22. :B= #43
Move
#43,8P6402+22.
LET BPK4LQ3+3S, :B= #0
CLRB
BP64LQOTZ+3S.
LET BP64Q3+40. :B= 43
MOVB
43,BP6LQAT+40.
LET BP6LQ4L+ST. :B- #0
CLRB
BPO4LQ4L+ST,
LET BP&4LQ4L+ST. :B- #4L3
MOVB
#43 ,BP6LQL+ST,
LET BP96Q2+13. :B= #0
CLRB
BP96Q2+13.
LET BP96Q2+18. :B= #43
MOVB
#43,BP9602+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

2896

IF USA NE #0 THEN

1ST
BEQ

000431

105037

031632

PAGE 30-1

: SETUP PATTERNS FCR EURQOPEAN OR AMERICAN PRINTERS

000043

(4)
2895
(4)

TEST

OUTPUT

112737

2894

12:06

11,

T0F = 014
;
;

2880
(6)
(9)

BAND PATTERN
BGNTST

%g;g

01-0(T-80

LET BP64Q2+18.

#43,8P64Q2+18.

#43

033143

MOVB

033261

MOVB
#43,BP64LQT+3S,
LET BPA4LQ3+40. :B= #0
CLRB
BP64LQAZ+4L0.

033377

MOVB

#43,BP64LAL+ST,

(LRB

BP64LQL+ST.

LET BP64Q2+22. :B= #0
CLRB
BP64LQ2+22.

LET BP64Q3+35,

:B= #43

LET BP64Q4L+ST.

:B= #43

LET BP64Q4+ST7. :B= #0

LET BP96Q2+13. :B= #43

033521

MOVB
#43,8P9602+13.,
LET BP96Q2+18. :B= #0
CLRB
BP96Q2+18.

033712

MOVB

#43,BPI604+13,

(LRB

BP96QL+18.

LET BP96Q4+13, :B= #43
LET BP9cQ4L+18, :B8= #0

(ZLPLCO P25, LP26 TEST MACY11
czeeee.e
01-0C1-80 12:06

2902
2;8%

30A(1052)

031702
031702

50325%:

%ggg

;

2906

031702

(5)

031714

(4)
(6)
2907
(&)
L)
(7)

(5)

(5)
(7)

2908
(4)
(7)

2909
(6)

(9)
(6)
(9)

031702
031706
031710
031710
031716
031716

002326

031734

013702
006302

031736

032762

031730
031730

031736

031744
031746

031754

032020
032026

032030

2913

032040

(4)

032102

(6)

032102

(9)

2916

2917
(4)
(3)

2918
2919
(4)

2920
(4)

2&3;

001025
032762

001021

032036

032762
001021

032110

032112

032154
032154
032156

50326%:

.
0023¢6
001000

002524

002000

002524

001000

002524

002000

002524

032762

001422

010000

032222

010421

50326%

032222

2925
2926

032230
032230

032222

LUNLT
¢
CMP
LUNIT,R1
BGT
50330%
LET R2 := LUNIT
MoV
LUNIT,R2
ASL
R2

BNE

BIT
REQ

000636

50331¢
RFLAG27,STATUS(R2)
50331%

QUTPUl
ENDIF

#FLAG27,STATUS(R?)
50332%

OUTPUl

50330%:

#BPID26,#6,,LUNIT

IF #FLAG96 SETIN STATUS(RZ)
#FLAGI6,STATUS(R?)

50333%

ELSE

OUTPUL

ENDINC

032230

005037

000016
002326

002310

2%:

CLR

THEN

#BP961D,#22.,,LUNIT

: 96 (HAR BAND

#BP64LID,#22.,,LUNIT

: 64 (HAR BAND

50327%

LET LINCNY

MOV

; PRINTER IS LP26

503348

OUTPUI
ENDIF

TIMES, VWITH BLANK LINE BETWEEN PATTERNS

:= M4,

#1464,
, 0 INONT

INCR LUNIT FROM #0 10 RY1 BY M
LUNIT

THEN

: PRINTER IS LP2S

#FLAG26,STATUS(R2)
50332%

BEQ

#BPID25,#6,,LuUNIT

IF #FLAG26 SETIN STATUS(R2) AND #FLAGZ27 NOTSETIN STATUS(RZ)

ENDIF

#FLAG26,STATUS(R2)

BNE

BIT

SHIFT

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

BIT

50334%:

01,737

OGN EACH PRINTER

INC

; NOW PRINT 2_LINE PATTERN 15.

2924

(4)

B8R

BNE
BIT

50333s:

33%%
(&)

:= LSUNIT - 11

BIT

002524

032220
032220

SEQ 0097

IDENTIFICATION MSG.

LET R1

50332%:

032156
032220
032220

PRINT PROPER BAND

50327%:

032102

6_8

30-2

ENDIF

50331%:
032762
001425

PAGE

MOV
LSUNIT, R
DEC
R1
INCR LUNIT FROM #0 TO R1 BY M1
CLR
LUNIT

032020

(6)

2915

002326

023701
003135

032020

2914

005037

000402

031722
031726

2912

(9)

002012

002326

031756
032020

(6)
(9)

013701
00530

005237

031722

2910
2911
(4)

(1-0CT-80
12:06
BAND PATTERN

)
;: PRINT QUADRANIS 1 & 2

THEN

CILPLCO LPZS, LP26 TEST MACY11 30A(1052)
c2LpLC.P1
(5)
(&)
(7)
(5)

(5)

(7)

03223&
032236
032236
0322642

000402

032246

003100

032242

2927

032250

2928

032256

(4)
(7)

6)
(9)

2929

2930
(4)
(%)

2931

(6)
(9)

2932

2933
(&)
(3)

2934

2935
(4)
2936
(4)

01-0CT1-80 12:06

032256
032264

(032762
001022

010000

032330
(32330
032332

000447

032332
032340

032762
001022

032404
032404

000421

032266

032332

032342

032406

032456
032460
032460
032464
032464
032470

(&)
(7)

032472
032476

032472

2941

032500

2942

032510

(&)

032552

2944

032554

(3)

2945

(4)
2946
(&)
(3)

S0340$:

003000

(02524

50342%:

032500
032506

032552

032554

LUNIT

(MP

LUNIT,
RY

005037

0004C2

50337%:
002326

005237

002326

023701
003053

002326

013702
006302

002326

032762
001022

000421

010000

503448

50347%:

ELSE
50341%

BIT
BNE

#ELAG26.FLAG2T,STATUS(R?)
50342%

ELSE
50343%

503468%:

QUTPUL

#BP6LQT,#121.,,LUNIT

: 64 (HAR PATTERN

[F #FLAG26'FLAG27 NOTSETIN STATUS(R2) THEN

OUTPUI

#BP96Q3,.#121.,,LUN:T

. LP25 96 CHAR PATTERN

CUTPUl

#BP96QT,#121.,,LUNIT

: LP26 96 (HAR PATTERN

ENDIF
ENDIF
BR

ENDINC
50336%

; NOW DO QUADRANTS 3 & 4
BR

INCR LUNLIT FROTM #0 TO R1 BY #1
LUNIT

LUNIT

(MP
BGT

LUNIT,RY
50346%

MOV
ASL

LUNIT,R?
ke

B8R

LET R2 := LUNIT SHIFT 1

: INDEX INTO STATUS TABLES

IF #FLAGI6 NOTSETIN STATUS(RZ2) THEN

#FLAGI6,STATUS(R?)
5034/%
ELSE

QUTPUI

., . LUNIT
#BP64LQZ,A#1¢2.

: 64 (HAR PATTERN

#BP96Q3,#122..,.LUNIT

: 96 (HAR PATTtRN

50350%

QUTPU!

ENDIF
BR

: REPEAT FOR ALL UNITS

503448

INC

50350%:

000720

: INDEX INTO STATUS TABLES

IF #FLAGI6 NOTSETIN STATUSIRZ) THEN

BIT
BNE

002524

LUNIT,R2
R2

#FLAGYS,STATUS(R?)
50340%

(LR

50345%:

50337¢%

LET R2 := LUNIT SHIFT 1

BIT
BNE

50341%:

032616

032616
032616
032616
032620

INC

50343%:

000672

SEQ 0098

PAGE 30-3

50335%

MOV
ASL

002524

12:06

BGT

032450

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

2943

50315%:

032450
032450
032450

032452

BAND PATTERN
50336%:

032406

032452

(6)
(9)

002326

2959

2940

023707

013702
006302

032450
032450
032452

(4)

002326

032250
032254

2937
(4)
(3)

2938

005237

01-0CT7-80

ENDINC
50345%

CILPLCO LP¢S, LP26 TEST
CILPLC.PY
01-0C7-80

2947
(6)

2948
2949
2950
2951
2952
2953
954
(&)

2955
2956
(3)
(3)
2957

2958
2959

2960

2961

2962

2963
2964
2965
2966

2967

2968
2969
2970

297

032620
032620
032624
032626
032632

005337
001402
000137

LET LINCNT := LINCNT - ®1
DEC
L INCNT
BEQ
3%
JMP
2%

002310
032230

1%
DO TOF

032632
032632
032640
032702
032702
032704
032706
032714
032722
032730
032735
032742
032743
032750

112737

000014

114
040
114

032751
032756
032764

032772
032777
033004
033012
033020

MOovB

ExIT TST

040
020040
101

043124
030512
031516
051522
125

054467
034445
026072
036076
040
020040
077
056124
030475
031501
043506
110

046067
034520

OuTPUT
TRAP

:B= #T0Ff

#10F ,0UTBUF
#OUTBUF
M

CSEXIT
L10024~.

042116
042524
051505
020040
031120

050040
047122
057524
040
020065

BNDTST:

.WORD
[ASCII

BPID2S:

.ASCII

/LP2S

031120

020066

BPIDZ26:

.ASCII

/.P26

020064
041040
040520
005116
020066
041040
040520
005116

044103
047101
052124

BF64LID:

.ASCII

/664 CHAR BAND PATTERN/<12><1?2>

044103
047101
052124

BP96ID:

.ASCII

/96 (HAR BAND PATTERN/<12>¢12>

012

/BAND PATTERN TEST_11

012

033025
033032
033035
033042
033050
033056
033064
033067
033074
033102

THEN EX]T

LE!I OUTBUF

003172

1044632

001070
040502
052101
052040
030461

SEQ 0099

BAND PATTERN

CHAR BAND PATTERN

LP¢S & LP26

020040
040
042502
030107
046113
050117
065
033126
034132
024446
022057
05¢

020040

BP64LOT: .ASCII

042103
044510
046462
050464

LASCII

/ABECDTIFGONIJTKL2MN3OP4QRSS/

054127
025537
024052
035455

LASCII

JUVEWXTYZB_+X9R)
2 (:,/<57>/8=;>¢./

020040

.ASCII

055535
021536
023462
042064

LASCLI

FTREICTN'CA
=142 A3BL4LDFGS/

045512
047516
051452

LASCII

,
VR-XY] ., /<12>
/HI6JKTLMBNOPIQRSU

BP64Q2:

CILPLCO LP¢S, LP26 TEST MACY11
CILPLC.PIY
01-0CT-80 12:06
026125
055131

053526
005056

054055

020040

022505
035060
031076
032135

033310

020040
(20040
025537
024051
035461
040063
032442
021536
023443
062071
044454
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

2972
2973
2974

2975

2984

2985

2986
2987
2988
2989
2990
2991
2992

2993

2994

0'-0CT-B0
12:06
PATTERN
BAND

BP64LQ3:

SEq 0100

LASCII

/_*EXRT)I(0:/<57>/8";>2¢?3014[\"'S/

036466
040470
025106
026512

033441
041502
0464107
066113

LASCII

/*86="T78'BAB(ODF
*GH, JJ=KLM, /

020040

.ASCII

050105
052460
031131
032045

052121
053526
057532
024446

LASCII

/NOEPQTRSOUVWIXY2Z
_3+X48) (5/

022066
037470
02534
026475
005012

033473

LASCI]

D>
12>N
I90
" m== 10
/6% T><B2R

BP64LQ4L:

056500
057042
021661

020040

042103
044061
046514
032121

054127
022067

LP25 = Q03..04

LP26 = 01..0Q4

042460
045111
031516
051522

LASC!I

/ABCDOEFGTIHIJ2KLMN3OPQ4RSTS/

054466
023045
034457

LASCI]

(:/<57>/9+;>/
_TSXRB)XOYZ
{UVW

.BYTE
LASCII
.BYTE

145

LASCLI]

LASCI1
.BYTE
LASC11

/10 \"', 8/
174
/=t ¥ ALY

.BYTE

175,173,176,136,56,177,1460,141,60,142,143,144,61

033504

020040

021134

021454

020452

023443

055

176
177

141
143

100

035050
076

BP96Q1:

LASCII

037474

164

052046
022057
037474
056133

020040

145

30-5

033410
033416
033420
033426
033434
033442
033450
033452
033460
033466
033474
033477
033500
033503

020040
041101
043506
045462
050117
032524
053125
057532
024470
035453

PAGE

LASCII

. 96 CHAR BAND

— —
S ~N

2980
2981
2982
2983

£
AN N NN
PN
—=OWwWN

2979

LN ANV
AW WAL wN

2978

[=leolalelelelele] o
LN AN N N A AN N AN |V)
LA AN LN AN AN N AN N W

2976
2977

30A(1052)

060
1464

BP96Q2:

/<a/

164

064

2996

162
165

066

2997

020040
040
041502
034507

050520
052
053526
027137
024051
037073
063

O wIN
WO

157,64,160,161,162,163,65,165,166,167,6¢

.BYTE

170,171,172,67.,12

LASCI]

034104

LASCII

/ABCDBEFGIMI
Y/

051054

.BYTE
.ASCII
.BYTE
LASCII

145
/KLMN/
164
/0PQ,RST
e/

LASCII

JUVEX=YZ_.$X80) (:/<57>/1+;>2< a3/

LASCII

020040

BP96Q3:

044510

026530
022444
027472
036062

BP96Q4:

020040

056133

032042

LASCII

/10N\""6n/

021441

033047

.BYTE
LASCII
.8YTE

174
/=5'4'6/
175,173,176,136,67,177,1460,141,70,142,143,144,
71

.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

056

.BYTE

171,172,56,12,12

040

070

144

[ T R

141
143

2 NNV
NONNONNO O

176
177

033774
104401

020040

173

.BYTE

047115

067

146,1467,150,151,62,152,153,154,63,155,156

—.o—.-—.-—.—.—‘
[0 RV Yo SV To JW,]
WA
= NN

b
b ad
D
d
b

NIA)
= O — 5~ —
AN
N SN

135

3009
3010
3011

040
020040

NWVONOM WAV
S
nN iV alVa LS E AV, [V R Yo

3008

033675
033702
033705
033712
033713
033714
033722
033725
033730
033733
033736
033737
033742
033745
033750
033753
033756
033761
033764
033766
033771

040077

—_

3006
3007

o D) b e O

3005

|9,
n)

3001
3002
3003
3004

043105

—

3000

033601
033606
033611
033616
033624
033625
033626
033632
033633
033640
033643
033650
033656
033664
033672

2998
2999

171
012

(e o R

154

156

K
8
PAGE 30-6

— ok ——b

062

01-0CT-80
12:06
BAND PATTERN

OO0
WO

147

2995

30A(1052)

CILPLCO LPZ2S, LP26 TEST MACYY1
czLePLe.P
01-0C7-80 12:06

CSETST

SEQ 0101

CILPLCO LPeS, LP26 TEST MACY11 30A(1052)
01-0C7-80 12:06
cILePLC.P
3020
3021
3022
3023
3024
3025
3026
3027
3028
3029
3030
301
3032
(3)
3033
3034
3035
3036
3037
3038
3039
3040
(&)

(5)
~NWVIVWN
N

~~
o~ o~

(4)
)
)
)

)

3041
3042
3043
(4)

3044
(4)

(6)

3045
3046
3047
3048
(4)

(6)
(9)

3049
(4)

3050
(6)

3051

(4)

(3)

3052
(4)

3053
(4)

3054
(4)

SPURIOUS HAMMER FIRING.

PAGE 31

12:06

01-0CT-80

o1
SEQ o 0102

.SBTTL SPURIOUS HAMMER FIRING

033776

BGNMOD
XX

:THE 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 UEDGE PATTERN CONSISTING OF 132 LINES OF PRINT WITH EACH
;LINE BEGINNING WITH
A **7'" CHARACTER. ANY POINT QUTSIDE THE WEDGE
BOUNDARIES IS CAUSED BY HAMMER MISFIRES OR BY HAMMER BOUNCE.
033776
033776
;PRINT THE

TEST HEADER

OUTPUT #HAMF
IR, #33,

033776

;OUTPUT THE ACTUAL WEDGE AT THIS POINT
034040
034040
034046
034050
034050
034054
034054
034062
034064
034064
034070
034070
034076

012737
000402

000001

005237

003166

023727
003123

003166

012704

003172

012737

000204
003166

163737

003166

INCR WORK FROM #1 TO #132. BY M
503528

000204

034400
034400

50351$:

MOV

#1,WORK

INC

WORK

(mp

UORK 032,

BGT

;NUMBER OF LINES TO OUTPUT

50351%

15%s

;ALSO NUMBER OF PRINTING (HARACTERS

LET R4 := #OUTBUF

;OUTPUT BUFFER POINTER

LET SPCCNT := #132. - WORK

;NUMBER OF SPACES TO FILL

MOV

, R4
#OUTBUF

MOV
suB

#132.,SPCONT
WORK,SPCONT

;FILL THE OUTPUT BUFFER WITH THE REQUIRED NUMBER OF SPACES
034104
034104
034104
034110
034112
034112
034116
034116
034122
034122
034124
034124
034124
034130

034130
034136
034136

005737
001405
112724

005337

WHILE SPCCNT NE #0 DO
50354%:

034400

TST

SPCCNT

move

¢
#40,(RG)

DEC

SPCONT

503548

50355%
:B= #40
(R&)+
LET

BEQ

000040

:SPACE FILL

LET SPCCNT := SPCCNT - N

034400

ENDDO

000770

50355$:

;UPDATE FILLER COUNTER

LET CCNT := #0

005037

002316

012737

000077

002322

012737

000041

002320

CLR

CONT

MOV

#77,CHRGEN

MoV

#33. . STRCNT

LET CHRGEN := #77

SFIRST CHARACTER A ''2"'

LET STRCNT := #%3.

;8 OF CHARACTERS IN GROUP

CILPLCO LPZS, LP26 TEST MACY11 30A(1052)
CLPLC.PY

3055

034144

(9)

034152

(&)
(6)

3056
{6)
362;

01-0CT-80 12:06

034144
034146

034154
034154
034160

(4)

023737

002022

005737

001006

002316

003166

503568%:

(MP

002320

503578

GROUP POINTERS AND COUNTERS
LET STRCNT := #73,

000041

002320

MoV

(4)
3062
(4)
3063
(&)
3064
(6)

034170
034176
0176
03417
034176
034202
034202

012737

000077

002322

MOV
ENDIF

(6)

3065

3066

(6)
3067

(4)
362%

503608%:
113724

002322

005237

002322

034206

005237

002316

034212
034216

005337

002320

034206

034212

0346216
034220

(4)

§8§§

034220

034224
034266

3078

034330

(4)
(3)

3079

3080
3081
(3)

3635

#77,CHRGEN

LET (R4)+ :B= CHRGEN
MOVB
CHRGEN, (R4) +
INC

CHRGEN

INC

CCNT

LET CCNT := CCNT + M

LET STRCNT := STRCNT - #1
STRCNT

DEC
ENDDO

000752

50357%:

5035¢%

034330
034332

034332
034374
034374

034376

112724

LET (R4)+ :B= #12

000012

MOV3

:OUTPUT THE

#12,(R4)+

LINE

OUTPUT #OUTBUF ,#132.
OUTPUT #OUTBUF+132.,#1
END INC

000647

50353%:

44
QUTPUT #SKIP3,
EXIT TST
TRAP

104432

3087

;TEST HEADER

034402

034410
034416

050123

051525
042515

CSEXIT

:COUNTERS, POINTERS, TEXT BUFFER, AND HEADER FOR TEST PRINTOUT

SPCCNT: .WORD 0

3088

: BEFORE CHANGING OUTBUF DATA .

L10025-.

LWORD

000046

: SEND THE DATA. NO LF YET
; THIS MAKES SURE OUTPUT IS SENT

50352%

%8%2
gggz 034400 000000
3089

;UPDATE POINTERS AND COUNTERS

:NOW SET UP LINE TERMINATOR AND OUTPUT THE LINE.

3074
3075

gg;g

#33,,STRCNT

LET CHRGEN := #77

LET CHRGEN := CHRGEN ¢+ M1

gggg
3071

;NOW FILL IN REST OF BUFFER

IF STR(NT EQ #0 THEN
TST
STRCNT
8NE
50360%

012737

034170

SEQ 0103

CCNT,WORK

BGE

034162

3061

PAGE 31-1

SPURIOUS MAMMER FIRING

:RESET
034162

12:06

WHI'E CCNT LT WORK DO

%823
3060

01-0CT-80

051125

044040
020122

047511

046501
044506

HAMFIR: .ASCII

MESSAGE

/SPURIOUS HAMMER FIRING TEST 12/<12><12><12>

CILPLCD LPZS, LP26 TEST MACY11
cZLpLC.P
01-0CT-80 12:06

3090
3091
3092
3093
3094
3095

(3)
(3)
3096
3097

036424
034432
034440

044522
051505
005012

043516
020126
000012

30A(1052)

01-0CT-80
12:06 PAGE 31-2
SPURIOUS HAMMER fIRINC

052040
031061
;
.EVEN

034444
034444

034444

034446

104401

ENDTST
£10025:
ENDMOD

TRAP

(SETST

SEQ 0104

CILPLCO LPZS, LP26 TEST MACY11 30A(1052)
C2LPLC.PTY
3099
3100
%}8;

01-0C7-80 12:06

01-0CT-80

PRINT CONTROL

12:06

PAGE 32

SEQ 0105

.SBTTL PRINT CONTROL

034446

BGNMOD
00

3103
3104

STPIS TEST CHECKS THE PRINT CONTROL BY SENDING MORE THAN 132 (HARACTERS
‘BEFORE SENDING A PRINT COMMAND. ALL CHARACTERS IN EXCESS OF 132 CHARACTERS

3106

. THREE LINES ARE PRINTED PER ITERATION, THESE LINES WILL IDENTIFY THE

3108
3109

:
;

7105

:SHOULD BE DISREGARDED.

: COLUMN NUMBERS ACROSS THE PAGE. EXAMPLE :

3107

0
2.

0
1

0..ovvvnnnonnenncene
S

:123456789012365678901234567890. 0 0vvevveenennnnnn

%}}?

1
3

012

%}}%

: NOTICE THAT THE PRINTOUT SHOULD IDENTIFY 132 COLUMNS ACROSS THE PAGE.

§}}§

;

THIS OUTPUT 1S REPEATED 16 TIMES.

3116
(3)

034446
034446

BGNTST
113::

3118
3119

0346445
034510

OUTPUT #PRTCTL, #56.
LET COUNT := #16.

3117

(&)
3120
3121
(4)
3122
(4)
(6)
(9)

3123
3124

(4)

(3)
3125
(4)
g}%g

034510
034516

034516
034516
034522
034522
034522
034524

034526

034566

034570
034570
034570
034576

;PRINT TEST IDENTIFICATION

012737

000020

012705

035512

000012

012705

035546

034710
034712
034712

313

034754

(5)

034762 000402

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

ENDDO

112737

(&)
(3)
%}%g

MOV
#16.,COUNT
1%:
IET RS := NTABLE?
N
MOV
#TABLE1,RS
WHILE (RS) NE #0 DO
503618$:
TST
(RS)
BEQ
50362%

OUTPUT (RS)+,#10.

000755

034640
034640
034644
034644
034644
034646
034650
034710

002314

005715
001421

3128
(&)
3129
(4)
(6)
(9)
3130
3131

13,

003172

B8R

50361%

50362$:
LET OUTBUF :B= #12
MOVB
#12,0UTBUF
M
OUTPUT #QUTBUF

LET RS := NTABLE?2
#TABLE2,RS
MOV
WHILE (RS5) NE #0 DO
50363$:
(RS)
TST
50364%
BEQ
OUTPUT (RS)+,#10.

005715
001421

ENDDO

000755

50364%:

50363%

OUTPUT #OUTBUF ,#

034754

012737

000016

034764
034764
034770

005337

002310

DECR LINCNT FROM #14. TO #1 BY 1
50366%:
50365%:

MOV

#14, L INCNT

DEC

L INCNT

50365%

CILPLCO LPZS, LP26 TEST H5C621
CILPLC, P11
01-0C7-80
1
NN AN N SN NN~
O 00 N~~~
O N~

)

3149
3150

3151
3152

3153
3154

5155
3156

3157

3158
3159
3160
3161

30A(1052)

023727
002422

035242
035250
035256
035264
035270
035276
035304
035312
035320
035326

051120
047503
020114
030440
044123
051440
031461
052514
051120
005104

047111
052116
042524
005063
052517

020124
047522
052123

020062
047115
047111
006412

047503
020123
0642524
000

035333
035340
035345
035352
035357
035364
0353
035376
035403
035410
035415
035422
035427
035434
035441
035446
035453
035460
035465
035472

040
020040
040
020040
040
020040
040
020040
040
020040
040
020040
040
020040
040
020040
040
020040
040
020040

020040
020040
020040
020040
020040
020040
020040
020040

020040
060
020040
061
020040
062
020040
063
020040
064
020040
065
020040
066
020040

035477

061

031462

12:06

9
C
PAGE 32-1

#
LINCNT,
cmp
BLT
50367%
OUTPUT #x11,#10.

ENDDECR

BR
50366%
50367%:
F
,#
OUTPUT #0OUTBU

000750

005337

002314

005737
003402
000137

002314

012737

PRINT CONTROL

000001

034770
034776
035000
035042
035042
035044
035044
035106
035150
035150
035154
035154
035160
035162
035166
035166
035166
035166
035174
035236
035236
035240

002310

'
01-0C7-80

,#1
OQUTPUT #OUTBUF
LET COUNT := COUNT - M
COUNT
DEC
IF COUNT GT #0 THEN
TST

BLE

034516

000014

COUNT

ENDIF

003172

104432
000342

JMF 18

5037028
LET OUTBUF

MoV

:= #1é4

020040
020040
020040
020040
020040
020040
020040
020040
020040
020040
020040
020040

#14 ,0U7TBUF

OUTPUT NOUTBUF ,#°
EXIT TST
TRAP

047510

50370%

CSEXIY

.WORD

L10026-.

.ASCII

/PRINT CONTROL TEST 13/ <12>

LASCIZ

/SHOULD SHOW 132 COLUMNS PRINTED/<12><12><15>

X0:

LASCID

X1-

LASCIL

X2:

LASCIT

X3:

LASCID

X&:

LASCID

X5:

JASCIT

X6:

LASCIY

X7:

LASCIT

020040
070
020040
on

X8:

LASCIY

X9:

LASCID

032464

X11:

LASCIT

71234567890/

PRTCTL:

042114

020127

067

SEQ 0106

16
16
16

£ N0

CILPLCO LPZS, LP26 TEST MACY11
cLeLc PN
01-0CT-80 12:06
035504

033466

~ 0 NO

NN
N

o~
wd o
b

WWOOAOr

3165

3169

034470

30A(1052)

01-0(CT-80

CONTROL

12:06

0.9
PAGE 32-2

060
LEVEN
TABLET:

.WORD

x0,x0,x0,x0,x0,x0,x0,x0,x0,x1,%1,x1,x1,0

TABLE?Z:

WORD

X1,%X2,%X3,%4,%5,%X6,%X7,%8,%9,x0,x1,x%x2,x%3,0

.EVEN

035602
035602
035602
035604

ENDTST
104401

L10026:
ENDMOD

TRAP

CSETST

SEQ 0107

TN ~
=2OO0D

JSBTTL
BGNMOD
STARS

035604
035604

(9)

(6)

PAGE 33

SEQ 0108

(RITICAL PATH

MAAAALASRAAAR

AAAAAAAMALAAA AR

ALARAALAARS

AR)

;THIS TEST ATTAINS THE HIGHEST POSSIBLE PRINTING SPEED BY SELECTING
;A DATA PATTERN WHICH EXERCISES THE

;THE HAMMERS ,THE

TIMING LOGIC,

PRINTER AT

THE MAXIMUM DUTY

AND THE POWER SUPPLY.

;LINES OF A WORST CASE PATTERN ARE PRINTED.

A TOTAL OF

CYCLE

32 LINES

STARS

035604

;;t.""'.""""""'"""'Q"""'"."t'i"""'..""Q"'Q'

WO
S

b~
D

NN NN
NN

—d

WIWNIN

0000 CONIOOO0
~N ~N~N~NN~ ~N

CILPLCO LP¢S, LP26 TEST MACY11 30A(1052)
01-0(T-80
12:06
cLpPLe.P
01-0C7-80 12:06
CRITICAL PATH

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

T14::

013737
005337

002012
003166

005037
000402

002326

005237

002326

023737
003143

002326

013702
006302

002326

032762
001054
032762
001050

00100G6

0025¢¢4

002000

002524

032762
001022

010000

00252«

003166

LET WORK

50372%:

003166

50371s:

LUNIT

(MP

LUNIT,WORK

LET RZ2
:gv

:= LUNIT SHIFT M
thIT.RZ

BGT

50375%:

000457

50374%:

001000

002524

002000

002524

503738
4

IF #FLAG2S NOTSETIN STATUS(R2) AND #FLAG27 NOTSETIN STATUS(RZ)
BIT
#FLAG26,STATUS(R?)
BNE
50374%
#FLAG27,STATUS(R2)
BIT
503748
BNE
LP25
AN
: UNIT IS
IF #FLAG96 NOTSETIN STATUS(R2) THEN
#FLAGI6,STATUS(RZ)
BIT
50375%
BNE

50376%:

032762
001453
032762

INC

000421

:= LSUNIT - #i

MOV
LSUNIT,WORK
WORK
DEC
INCR LUNIT FROM #0 TO WORK BY #1
LUNIT
CLR
BR
50371%

THEN

OUTPUI #TAB64L,#110.,,LUNIT
#32,
ELSE

50376%

QUTPUL #TAB96,#132.,,LUNIT
#32,

ENDIF
ELSE

BIT
BEQ
BIT

50377%

IF #FLAG26 SETIN STATUS(R?2) AND #FLAG27 NOTSETIN STATUS(RZ) THEN
#FLAG26,STATUS(R2)
50400%
#FLAG27,STATUS(R?Z)

CILPLCO LPZS, LP26 TEST MACY11
CZLPLC.PY
(9)

3199
3200
(6)
(9)

3201
3202
(4)
(3)

3203
3204
(&)

3205
(&)
3206
(&)
3207
(&)
(3)

3208
(&)
3209

036066

036070

036070
036076

036100
036142
036142
036144

032762
001022

036206
036206
036206
036206
036206
036206
036210

036210
036210
036216

3213

036264
036272
036300
036306
036314

%%]‘5
6

010000

000421

503778

112737

051103
046101
020110
030440
_ 000
036316

052111
050040
042524
005064

041511
052101
052123
005012

036331
036334
036337

067
114
045

06!
137
060

036344
036347
036352

061
137
063

132
115
046

Q45
120

036357

072

123

3221

3222

036355

036362
036367
036370

036372

036375
036400
036403

052

104
126
111

067

121

115
046
121

045
120
072

055
130
160

066
056
123

123

504028

OUTPUL #T2696,#133.,
,LUNIT, #32.

ENDIF
BR

503728

LET QUTBUF :B= #FF
MOVB
#FF,OUTBUF

;

DO A FORM FEED

OUTPUT #OUTBUF,
41

CRTPTH:

TRAP
.WORD

(SEXIT
L10027-.

,ASCIZ

/CRITICAL PATH TEST

14/<12>A12><12>

.EVEN

3219

111

OUTPUL #T2664,4133., ,LUNIT,#32,

;64 CHARACTER BAND PATTERN
-

064

122
106
127

ELSE

THEN

ENDIF

EXIT TST

101

03632

#FLAGIS,STATUS(R2)
50401$

ENDIF

003172

104432
001022

SEQ 0109

BIT
BNE
BR

503738
:
000014

504008

ENDINC

000627

PAGE 33-1

BNE

504028
:

504008:

12:06

IS AN LP26
If #FLAGIS NOTSETIN STATUS(R2)

504018
:

036316

3220

CRITICAL PATH

002524

3218

036321
036324
036327

01-0(T-80

: UNIT

036206

036260
036260
036262

3217

001047

026144
036206

3211
(3)
S3)

3214

01-0CT-80 12:06

30A(1052)

057

105

.BYTE

101,064,105,122,104,065 106,126,060,127,111

132
115
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,066,076,130,056,131,100,123

065
060

063
052
076
131

TAB64:

CRITICAL WAMMER FIRE PATTERN 64 CHARACTER BAND

CILPLCO LPgS, LP26 TEST MACY11
cLpLc.P
01-0C7-80 12:06
3223

3224

3225

3226

125
076
10
042

055
130
100

.BYTE

057,125,055,066,076,13C,056,131,100,070,042

036423
036426
036431
036433
036436

042
13
135
124
051

051
100
053
071
136

071

136
070

.BYTE

053,124,071,042,051,136,131,100,070,135,053

042
050

BYTE

-124,071,042,051,136,050,075,0564,041,044,062

062

051
075

.BYTE

073,701,051,136,050,075,054,061,044,062,073

102
105

BYTE

101,074,102,077,064,105,106,133,065,012,012

036420

053

036441

075S

036446
036451

073
136

036444

036457
036461
036464
036472

1264

054

062
101
77

101
050
041
073
074
064

012

054

1056

133

0461

044

065
.EVEN
:
‘96 CHARACTER

%s%%

3234

3235

3236

3237

3238

3239

3240

3241

3242

G 9
PAGE 33-2

057
066
056
070

03€467

3228
3229
3230
3231

O01-0(T-80
12:06
CRITICAL PATH

036405
036410
036413
036416

036454

3227

30A(1052)

036474
036477

036502
036505

036507

101
123

064
060

062

137

106
130

036512
036515
076520

114
046
IR R

036525
036530
036533

044
117
072

036522

036535
036540
036543
036546
036550
036553
036556
036561
036563
036566
036571
036574
036576
036601
026604
036607
036611

071
11¢
051
122
124
145
066
133
073
127
136
067
045
075
132
042
040

103
065

101,064,103,123%,060,065,106,126,061,130,111

137

.BYTE

131,062,137,114,0644,116,046,061,130,111,131

114

BYTE

062,137,114,044,116,046,117,051,121,072,122

073
117
072

.BYTE

071,124,07%,116,046,117,051,121,072,122.07M

125

.BYTE

124,073,125,145,127,077,066,136,132,133,124

145

BYTE

073,125,145,127,077,066,136,132,133,067,042

070

.BYTE

045,040,070,075,050,0641,132,133,067,042,045

075

.BYTE

040,070,075,050,041,057,047,053,175,076,176

061

044
061
1B}

116
130

124

046
121
071

073

046
121

127
136
124

077
132

077
132
042

066
133

050
133
045

0461
067

125

040

070

TAB96:

CRITICAL HAMMER FIRE PATTERN 96 (HARACTER BAND

.BYTE

126
m

116
051
122

TABLE

Sea 0110

CILPLCO LPS, LP26 TEST MACY11 30A(1052)
cZLPLC.P

3257
3258
3259
3260
3261

074,056,050,041,057,047,053,175,076,776,074

.BYTE

056,100,140,135,060,134,143,054,061,040,040

143
040
040

.BYTE

040,040,040,060,040,040,040,040,040,040,040

040
040
150

012

.BYTE

150,012,012

/ACETJL3QRTJ2NPRSWONP2L36_X) TV6_$8.4/<145>

LASCII

1188:4>723°(9>7] «'</<164>/\

LASCIZ

/20, =8/ <A1TS>/28/<142><1446><1467><175><176><177>

.BYTE

60,164,147,62,154,155,60,144,146,151,115,155,64

.BYTE

162,65,151,153,155,157,161,65,167,171,101,157,161

(.l JV Y]

.BYTE

65,167,170,67,103,105,71,166,170,67,103,105,107

LASCI]

/ 1XNB3GIKNO, TH/<145>/M0, T/<12><12>

12696:

107

045511
045511
062510
005012

NN
N -

046062
052051
035070
035070
024042
025040
025040
036454
062142

037000
037003
037006
037011
037014
037017
037020
037023
037026
037031
037034
037035
037040
037043
037046
037051
037052
037060
037066
037074

LASCI]

030505
030522
032522

036756
036764
036772

041501
050463
050116
050116
022537
022137
022132
050477
056477
056164
023536
040136
077576
060

036670
036676
036704
036712
036720
036726
036734
036742
036750

LR o1 <)

; LP26 96 (HAR PATTERN

—

3256

.BYTE

3254

SEQ 0111

DNON

3¢53%

—

3252

176

056
135

VWA N

3¢5

PAGE 33-3

053

QO &~

3246
3247
3248
3249
3250

036667
036663
036665

076
074
06

wn
B~

3245

CRITICAL PATH

12:06

050
047

AORNON

3244

C30614
036617
036622
036624
036627
036632
036635
0346637
036642
036645
036650
036652
036655

(=l=]=]

3243

01-0CT-80 12:06

01-0CT-80

' /<175

; LP26 64 (HAR FATTERN
037076

042501

030124

0466112

12664

LASCII

+RSVX1 +9/
/AETOJLNPQOJKMOQ56XMOQSVXZ

CILPLCO LPZS, LP26 TEST MACY 1
CZLPLC.P1
01-0C7-80 12:06

3262

3263

3264

3265
3266
3267
(3)
(3)

;ggg

037104
037112
037120
037126
037134
037137
037146
037152
037160
037166
037174
037202
037207
037214
037222
037230
037236
N37244
037252
037257
037264
037272
037300

050116
047515
047515
025532
025532
043
021471
024535
052135
052105
055502
043504
063
047115
047114
047114
057531
027130
027130
057
027450
035042
005042

037304
037304
037304

037306

030121
032521
051521
051446
07°
026454
022054
022072
036460
036460
020442
020511
0434646
043464
026471
051120
051120
052105
052105
036073
036073
031061
000012

30A(1052)

01-0(T1-80

CRITICAL PATH

12:06

PAGE

045512
054066
054126
056126

057531

037476
037476
027073
023443
041047
062
045511
0451 10
045125
053525
053525
053060
050

023053
032063

ASCIT

/78,-Y_9#,$>2)):$>7170=;
. ET0=#"8(""! 'BDGI!2/

ASCIT

/34GIKMNAGHILNI=UJLNPRUWY
_PRUWX . ETOVX.ET(/

ASCIZ <S7>/7:<+B8 (/<5757 ;<34 :1234"/7<12><1
2>

032063

.EVEN

ENDTST
"04401

33-4

L10027:

ENDMOD

TRAP

(sLvsy

SEQ 0112

CILPLCO LPZS, LP26 TEST MACY11
czLpLc.P1
01-0C7-80 12:06

30A(1052)

327"

3272
3273
3274
3275
3276
3277
3278
3279
3280
3281
3282
3283
(3)
3284
3285
3286
3287
3288
3289
(4)

3290
3291
(3)
3292
(&)

3293
(6)
(6)
6)

3294
(4)

3¢Y5
(&)
(5)
(&)

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

3296
(4)

3297
(4)

(3)
3298
(&)

3299
(4)

(6)
(9)

3300
(&)

3301
(6)

3302

01-0CT1-80

MULTIPLE

.SBTTL

037306

LINE

12:06

PAGE

ADVANCE

MULTIPLE LINE

SEQ U113

ADVANCE

BGNMOD
Mg

;THIS

TEST

CHE(KS

THE MULTIPLE

LINE

ADVANCE

THE

LINE

PRINTER.

A LINE

OFf

;NUMBERS IS PRINTED AND THEN THE PAPER [S ADVANCED THAT NUMBER OF LINES. THUS THE
¢NUMBER 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

037306
037306

BGNTST
T15::

SEQUENCE.

15,

;PRINT TEST IDENTIFICATION
037306
037350
037350
037356
037356
037356
037356
037364
037364
037370
037374
037400
037400
037404
037404
037412
037414
037414
037420
037420
037426
037430
037430
037434
N37434
037436

037436
037436
037440
037440
037440
037444
037446
037446
037452
037452
037454

OUTPUT SMULINE,#86.
012737

037616

037614

LET STACHR

MOV

:= #TABSTR

#TABSTR,STACHR

;OUTPUT

(HARACTERS

REPEAT

117737

000232

013746
062716
06426%7

002310
000007
00<310

012703

003172

012737
000402

000001

065237

002316

023727
003003

002316

117723

000160

000767

MOVB

LET LINCNT
MOV

:B= QSTACHR

81C

LET R3

MOV

002316

LINCNT ,=(SP)

TO OCTAL

#7,(SP)

(SP)+,LINCNT

:= NOUTBUF

#0OUTBUF ,R3

;SET UP QUTPUT BUFFER

INCR CCNT FROM #1 TO #132. BY M1
504058:

000204

;GET A CHARACTER TO QuUTPUT

aSTACHR,LINCNT

:= LINCNT AND #7 :MAKE THE ASCII

BIC

:
504048

MOV

#1,CCNTY

INC

CCNT

504048

CMP
CONT,#132.
50406%
BGT
LET (R3)+ :B= aSTACHR
mMovs
@STACHR, (R3) +

ENDINC

50406%:

.
;PUT CHARACTER

[N OUTPUT BUFFER

50405%

LET R4 := #0

005004
C20437
001404

002310

112723

000012

005204

002310

50403%:
LET LINCNT

R&
CLR
WHILE R& NE LINCNT DO
50407%:
R4 ,LINCNT
CMP

50410$
BEQ
LET (R3)+ :B= #12
#12,(R3)+
MOVE

LET R4 := R4 + 1
INC

ENDDO

SFILL WITH LINE FEEDS

01-0CT-80
12:06
PAGE 34-1
CILPLCO LPZS, LP26 TEST MACY11 30A(1052)
MULTIPLE LINE ADVANCE
01-0C7-80 12:06
CILPLC.PIY

(&)

(6)

3307
(6)

3308
3309
3310
(3)

037454
037456

000771

50410%:

03745¢
037456
037462
037466
037466
037472

037532
037532
037536
037540
037540
037546

013704
062704

002310
000204

005237

037614

005737
G0i307

002310

012737

000014

027610
037610
037612

000150

037614

000000

037616
037624

033462
033064
000

037632
037633
037640
037646
037654
037662
037670
037671
037676
037704
037712
037720
037726
037734
037742
037750
037756

THE

ACTUAL

LINE

LET R& := LINCNT ¢+ #132,
MOV

R4
LINCNT

#132. ,Ra
ADD
LET STACHR := STACHR + M
STACHR
INC
F
R4
QUTPUT #OUTBU

;NUMBER OF

(HARACTERS TO OUTPUT

; UPDATE (MARALTER (OUNT
;OUTPUT THE LINE

UNTIL LINCNT EQ #0

003172

L INCNY

Mov

#14,0UTBUt

TRAP

CSEXIT

50403%
BNE
#14
:=
LET QUTBUF
,#1
OUTPUT #OUTBUF
EXIT

104432

IST

TST

.WORD

STACHR:

.WORD 0

L10030-.

033062
032463

033463
030064

TABSTR:

.ASCIZ

/272637463540/

044524
044514
053104
052040
C32461

MULINE:

.ASCII

/MULTIPLE LINE ADVANCE TEST 15/<12>

051505

046125
020105
040440
042503
020124

042502
044522
051040

LASCIZ

/NUMBERS PRINTED REPRESEN" # LINES TO NEXT LINE PRINTED/<12><12>

005104

046525
050040
042105
042522
021440
051505
042516
047111
047111
000012

TRAP

CSETST

042523
046040
052040
052130
020105
042524

.EVEN

037762
037762
037762
037764

SEQ 0114

50407%

;NOW QUTPUT

g_n_..-n_nm_oo

(3)
3303
3304
3305
3306

(=l OOOO0O0O
w LS Y RV LV LV IV |
— O
—O
~n &~ — e e
) b () =D b
oo NS OOV

(&)

ENDTST
104401

L10030:
ENDMOD

CILPLCO LPZS, LP26 TEST MACY11

cZLpPLC.P
3334
§§§§

01-0C7-80 12:06

30A(1052)

01-0CT-80

CHARACTER AL IGNMENT
LSBTTL
BGNMOD

037764

12:06

PAGE 35

SEQ 0115

CHARACTER ALIGNMENT

;00

3334
gggz

3337
(3)

3338

STHIS TEST CHECKS CHARACTER ALIGNMENT BY OVERPRINTING LINES OF
TH'S AND SPACES WITH SPACES AND M'S.

037764

BGNTST

037764

T16::

(037764

(4)
3342
(6)
(9)

060026
040034
040034
040040

012737

000030

005737
003002

002310

(2)
3344
(4)

040042
040046
060046

000137

040350

3343

3345

040026

040042

3346

040046

3347

040052

(4)

OUTPUT #CHRALN,#30.
; PRINT TEST NAME CON P
SPRINT 24 LINES OF ALTERNATING'H'''S AND ''SPACE'''S

003172

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

040052
040060
040062
060062
0460066
040066
060074

012737
000402

000001

0065237

003166

023727
003005

003166

(4)
3349
(4)
3350
(4)
(3)
3351
3;25

040076
040102
060102
040106
040106
040110
040110
040110

112724

000110

112724

000040

%%22
335¢
gggg

§§§3

040220

3361

0460224

(4)

(4)
3362
3§2§

3364

000765

2% :

LET LINCNT := #24.

MOV
#24. ,LINCNT
IF LINCNT LE #0 THEN
ST
LINCNT
BGT
504118

INLINE <JMP 3%>

JMP
ENDIF

112724

LET R4

MOV

50413$:
000102

000015

:= #OUTBUF

#OUTBUF
R4

INCR WORK FROM #1

003166

50412%:

MOV
BR

#1,WORK
504128

INC

WORK

CMP
BGT

WORK
, #66.
50414%

MOvB

50414%:

040114
040156

3360

1s:

;LOAD BUFFER WITH ALTERNATING STRING OF ‘'H'''S AND ''SPACE'"S

012704

040076

002310

50411$:

040046

3348

16.

:PRINT TEST IDENTIFIEATION

3339
3340

3341

TO #66. BY #1

LET (R4)+ :B= #110

132 CHARACTERS

: PUT PATTERN INTO BUFFER

#110, (R4)+
LET (R4)+ :B= #40
MOvB
#40, (R4) ¢
ENDINCR
BR
50413$
LET (R4)+ :B= #CR
MOVB
#CR, (RG)+

FOLLOWED BY CR

: SEND BASIC PATTERN

OUTPUT #OUTBUF ,#132.
OUTPUT #OUTBUF+132..M

. OVERPRINT WITH LINE OF ALTERNATING SPACE AND 'H'

LET R4 := #OUTBUF+132.

040220

012704

003376

MOV

060224
040230
040230

112724

000110

112724

000012

MOVB
#110,(R&)+
LET (R&)+ :B= #LF
MOVB
#LF,(RG)+

040234

ALTERNATING

#OUTBUF +132.

LET (R&)+ :B= #110

OUTPUT

WOUTBUF+1,#132.

: FILL BUFFER WITH REVERSE PATTERN

;
; FOLLOWED BY A LINEFEED

: OVERPRINT

no9
01-0CT-80
12:06
PAGE 35-1
(ZIPLCO LPES, LP26 TEST MACY11 30A(1052)
cILPLC.PY
01-0CT-80 12:06
CHARACTER ALIGNMENT

3365
3366
(6)

3367
(2)
3368
3369
(4)

3370
33N
(3)
(3)
3372

3373
3374

(3)
(3)
3375

040276
0460340
040340
040344
040344
040350
040350
040350
040356
040420
040420
040422
040424
040432
040440
040446
040454
040462
040464
040464
040464
040466

005337

002310

000137

040034

012737

000014

.M
OUTPUT #OUTBUF+133,
- #
LIN(NT
:=
LINCNT
LET
LINCNT
DEC
s 3
INLINE < MP
JMP
2%

003172

104432

000042
044103
042524
043511
020124

030440
000
040464
104401

3%:
LET OUTBUF

MOV

:= #14

TRAP

051101
02G122
046516
062524
005066

041501
046101
047105
052123
005012

#14,0UTBUF

, M1
QUTPUT #OUTBUF
EXIT 18T

CSEXIT

.WORD

L10031-.

TRAP

CSETST

CHRALN: .ASCIZ /CHARACTER ALIGNMENT TEST 16/<12><12><12>

.EVEN
ENDTST

:
L1003
ENDMOD

SEQ 0116

CILPLCO LPZ5, LP26 TEST MACY11
cLpPLc.P
01-0C7-80 12:06
3377
3378
3379
3380
3381
3382
3383
3384
3385

30A(1052)

01-0CT-80
12:06 PAGE 36
INTERRUPT SERVICE ROUTINES
.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.
sLINE NUMBER IS RETURNED IN R?

X=0

000000
000020

INTOO:

.REPT 16.
SETPRI #PR104
PUSH
RZ

LET R2 := #X
X=X+2

040466

040472
040474
040476
040502
040506

(5)

(3)
(5)
(3)

(4)
(&)

(3)
(5)
(3)

(4)
(4)

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

(3)

(%)
(3)

(4)
(4)

(3)

040466

(3)
(&)
(4)

040512
040514
040516
040522
040526
040532
040534
040536
040542
040546
040552
040554
040556
040562
040566
040572
040574
040576
040602
040606
040612
040614
040616
040622
040626
040632
040634

060636
040642
040646
040652
040654

012700
104441

010246
012702
000137
012700
104441

01146
012702
000137
012700

104441
010246
012702
000137
012700
104441
010246
012702

000137
012700
1044461

MOV

#PR104,RO

000000
004704
000200

MOV
MGV
JMP
MoV

R2,=(5P)
X ,R2
10DRV
#PRIO4,RO

000002
004704
000200

MOV
MOV
JMP
mMov

R2,-(SP)
#X,R2
[ODRV
#PR104,R0

000004
004704
000200
000006
004704
000<00

000010
004704
000200

010246
012702
000137
012700

000012
004704
000200

104441

010246
012702

000137
012700
106441
010246

.ENDR

[ODRV>

000200

010246
012702
000137
012700
104441

INLINE <JMP

000014
004704
000260

TRAP

C$SPRI

TRAP
MOV
MOV
JMP
MoV
TRAP
MOV
MOV
JMP
MOV

CSSPRI
R2.,-(SP)
#X,R2
I0DRV
#PRI104,RO
C8SPRI
R2.,-(SP)
#X,R2
[0ODRV
#PRI04,RO

MOV
MOV

R2,-(SP)
X, RC

MoV
TRAP
MOV
MOV

#PR104,R0
C$SPKI
R2,-(SP)
#X,R2

MOV
TRAP
MOV
MOV
JMP
MOV

#PR104,RO
CSSPRI
R2,-(SP)
#X,R2
[ODRV
#PR104,RO

MOV

R2.,-(SP)

TRAP

JMP

TRAP

CSSPRI

[ODRV

[OCRV

($SPRI

SEQ 0117

8 10
12:06
PAGE 36-1
CZLPLCO LP2S, LP26 TEST MACY1T 30A(1052)
01-0C7-80
czipLc PN
01-0CT-80 12:06
INTERRUPT SERVICE ROUTINES
(5)
(3)
(4)
(4)

(3)
(%

(3)
(4)
(&)

(3)
9)
(3)
(4)
(4)

(3)
(5)
(3)

(4)
(4)

(3)
(%)
(3)
(4)

(4)

(3)
(5)
(3)

(4)
(&)

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

(3)
(5)
(3)

(4)
(&)

(3)

(5)
(3)

3395

040656
040662
060666
040672
040674
0460676
040702
040706
040712
040714
040716
040722
040726
040732
040734
040736
040742
040746

040752
040754
040756
040762
040766
040772
040774
040776

041002
041006
041012
041014
041016
041022
041026
041032
041034
041036
041042
041046
041052
041054
041056
041062

012702
000137
012700
104441

010246
012702
000137
012700
104441

010246

012702
000137
012700
1044461

010246
012702
000137
012709
104441

010246
012702
000137
012700
104441
010246
012702
000137
012700
104441

000016
004704
000200
000020
004704
000200

000022
004704
000200
000024
004704
000200
000026
004704
000200

000030
004704
000200

010246
012702
000137
012700

000032
004704
000200

012702
000137
012700

000034
004704
000200

010246
012702
000137

000936
004704

104441
010246

104441

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

Y ,R2
I0DRYV
#PR104 RO

C$SPRI

R2,=(SP)
’X,R2
I0DRV
#PRI04L,RO
W S$SPR]
R2,=(SP)
#X,R2
IODRV
#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
#PR104,RO
C$SPRI
R2,-(SP)
X, R2
IODRV

¥PR104.RO
C$SPRI
R2,-(SP)
#X,R2
I0DRV
#PR104,RO
C$SPRI
R2,=(SP)
#x, R2
10DRV

SEQ 0118

CILPLCO LP2S, LP26 TEST MACY11

cILePLe.P

01-0C7-80 12:06

3397
3798
3399
3400
3401
3402
3403
3404
(3)
(3)
3405
(6)

041066
041066
041066
041072
041074
041074

3406

041102

;UPDATES THE COUNTER AT A RATE OF 16.67 MILLISECONDS PER TI(K
:AND UPDATES A SECOND COUNTER WHEN THE FIRST OVERFLOWS.

012700
104441

000300

041100

005737
001005

041142

04N

012737

000074

005237

041140

0411
0411
041

3409
(6)
3410

Q411
0N
0411

3411

041130

(6)
(9)

(&)

3412
(&)

3413
3616
(3)
(2)

3418
34616
3417

0&N

et B

3407
(6)
3408

BGNSRV
CLKTCK:

023727
001003

002334

000002

041130

012777

000100

141202

041120
041126

50416%:

041136

ENDSRV

041140
041142

000000
000000

TICK

50415%
LET TICK := #60.
#60.,TICK

LET TIME

INC
ENDIF

TIME

;60 TICKS PER SECOND

:= TIME + M

LET TICK := TICk - M
DEC

110K

MOV
ENDIF

#100,aCLKCSR

;BACK UP SECOND TIMER

IF CLKTYP EQ #2 THEN
CMP
CLKTYP,#2
BNE
504169
LET @aCLKCSR := #100

061136

000002

TST

Mov

041142

0641136
041136

#PRI06,RO
C$SPRI

BNE

005337

041136

SETPR]I #PRIO6

MOV
TRAP

IF TICK EQ #0 THEN

50415%:

(4)

SEQ 0119

.SBTTL CLOCK SERVICE ROUTINE

2 O

(&)

¢ 10

01-0C7-80
12:06
PAGE 36-2
CLOCK SERVICE ROUTINE
J4e

(9)

30A(1052)

L10033:

TIME:
TI(K:

SAND IXIT
RTI

.WORD
.WORD

0
O

CILPLCO LPZS, LP26 TEST MACY11 30A(1052)
01-0C7-80
12:06 PAGE 37
HARDWARE PARAMETER SE(TION
czLpPLC.PN
01-0CT7-80 12:06
3419
3420
3421
34622
3423
3424
3425
3426
3427
3428

(3)
(3)
3429
3430
(4)
(4)
(4)
(4)

(4)
(4)
(4)
(4)

3432
(4)
(4)
(4)
(4)
(4)

;;U?:éS?STHE HARDWARE
P

041144
041144
061146

041146
041146
041150

041152
041154
041156
041156
041160
041162

041164
041166
041166
041170
041172

(2)
(3)

041206

3435
3436
3437

3438

3439
3643

HARDWARE PARAMETER SECTION

BGNMOD

;THIS SECTION INCLUDES THE QUESTIONS WHICH REQUEST THE OPERATOR TO

(4)
(4)
(4)

3434

SF@ 0120

. ¢

041174
041176
041200
041200
041202
041204

3433

.SBTTL

0461144

0D 10

041206

041206
041214
041222
041223
041230
041236
041244
041252
041260
041266
041274
041300
041306
041314

LES.

BGNHRD

0C0020

LSHARD::

000031
041206

001031

GPRMA
.WORD

GETADR,(0,0,160000,177516,YES
T$CODE

.WORD
GPRMA

TSHILIM
GETVE(,2,0,110,770,YES

.WORD
.WORD
.WORD
.WORD

041223
000110
000770

GPRMD

002032
041244
000003
000000
000003
003130
041300
000001

L10034:

GETADR
TSLOLIM

T$CODE
GETVEC
TSLOLIM
TSHILIM

GETTYP,4,0,3%3,0,3.YES

.WORD
.WORD
.WORD
.WORD
.WORD
GPRML
.WORD

3
TSLOLIM
TSHILIM
GETBND,6,1,YES
T$CODE

.WORD

ENDHRD

T$CODE
GETTYP

GETBND

LEVEN

ADDRESS/

050114
042104

030461
042522

040440

GETADR:

.ASCIZ

/LP11

051105
053040
000122
020122
046040
030440
050114

GETVEC:

.ASCIZ

/INTERRUPT VECTOR/

GETTYP:

.ASCIZ

/ENTER O IF LP25, 1

040522
041040

052116
052120
047524
042524
043111
026065
020106
000040
041440
052103
047101

040510
051105
000104

GETBND:

.ASCIZ

/9% CHARACTER BAND/

051523

.EVEN

TO BUILD THE HARDWARE

.WORD L 10034=-LSHARD/2

.WORD
.WORD

160000
177516

INFORMATION NECESSARY

IF LP26 /

CILPLCO LPZS, LP26 TEST MACY11 30A(1052)

CILpPLC.P

34645
3446
3447
3448
3449
1450
3451
3452
(3)
(3)

3453
(4)
(&)
(4)

3454
(4)
(4)
(4)

3455
(4)
(4)
(4)

3456
(4)
(4)
(4)
(4)
(4)

3457
(4)
(&)

(4)

3458
(4)
(4)
(4)

(4)
(4)

3459
3400
3461
(2)
(3)

3462
3463
3464
3465
3466
3467
3468
3469
3470
3471
3472
3473
3474

01-0C71-80 12:06

01-0(T-80

12:06
PAGE 38
SOF TWARE PARAMETER SECTION

.SBTTL

E 10

SEQ 0121

SOFTWARE PARAMETER SECTION

;THIS SECTION INCLUDES THE QUESTIONS WHICH REQUEST THE OPERATOR TO FURNISH
;THE SOF TWARE INFORMATION NECESSARY TO BUILD THE SOF TWARE P-TABLES.

041322
04132¢
041324
041324
041324
041326
041330
041332
041332
041334
041336
041340
041340
041342
041344
041346
041346
041350
041352
041354
041356
041360
041360
041362
041364
041366
041366
041370
041372
041374
041376

BONSFT

000026

LSSOFT

000130
0461400
000001
001130
041436
000001
002130
041465
000001
003052
041537
000377
000004
000074

004130
041624
000001
005052
041645
000377
000001
000377
ENDSFT

041400

L10035:

052522
040504

515
125
047506

MGTINT:
GETDAV:
GETMAN:

3
5

111
117

GETPLA:
GETMAX:

111

GETTIM:

000020

GETDAV,2,1,YES
T$CODE
?ETDAV

GETMAN,4,1,YES
T$CODE

.WORD
.WORD
.WURD
GPRMD
.WORD
.WORD
.WORD
.WORD
.WORD

T$CODE
GETPLA
1

GETTIM,6,D0,377,4,60.,YES
T$CODE
GETTIM

377

TSLOLIM
TSHILIM

GETPLA,10,1,YES

GETMAX,12,D,377,1,255.,YES
T$CODE
GETMAX

377

TSLOLIM
TSHILIM

.EVEN

.
.

.
LLIST BEX

PATCH:

MGTINT
1

?ETHAN

.EVEN

0461672

MGTINT,0,1,VES
T$CODE

.WORD
.WORD
GPRMD
.WORD
.WORD
.WORD
.WORD
.WORD

LNLIST BEX

6
6
5

041537
041624
041645

GPRML
.WORD
.WORD
.WORD
GPRML
.WORD
.WORD
.WORD
GPRML
.WORD

GPRML

041400

041400
041436
041465

.WORD L10035-L$SOFT/2

.BLKW

/RUN MANUAL INTERVENTION TESTS/
/DAVFU OPTION INSTALLED/

/PERFORM MANUAL PRINTING SPEED MEASUREMENT/
/DESIRED TIME INTERVAL FOR PRINTING SPEED CALCULATION/
/TESTING IN U.S.A/
/AUTODROP ERROR COUNT/

PAGE 38-1

01-0(1-80 12:06
CILPLCO LPZS, LP26 TEST MACY11 30A(1052)
SOF TWARE PARAMETER SECTION
CILPLC.PIY
C1-0CT-80 12:06
3475

06173%¢

(&)
(&)

0641732
046173
0461736
061736

(2)

(3)

3676
3477

LASTAD

000000
000000
000001

LSLAST::
ENDMOD
.END

.EVEN
.WORD
.WORD

0
)

SEQ 0122

000036
000044
000051
000024
000053
000003
000055
000056
000060
000054
000057
000010
000005
000003
000001
000032
000026
000027

EVL
=
ESEND -

[OCTRL
I0DRV
ISR
IXE
I$AU
I$AUTO
I$CLN
1$0U
[$HRD
ISINIT
1 $M0D
I$MSG
I$PROT
I$PTAB
[$PWR
[$RPT

1$SEG
I$SETU
[$SFT

GSOFFS

010452

INTO0

ERRSVC
ERRTBL
ERROG

ERRO7
ERR1
ERR1Z
ERR13

100000

010000
000040
020000
007266
023344
023760
002356
002272
026522
010422
003640
010460

000400

[aX AN~

1]
L
T
L
T
2
O
O
T
S
T

F$SPWR
FSRFT
FSSEG
F$SOFT
FSSRV
F$SUB
FS$SW

FSINIT

FSJMP
F $MOD
FSMSG
FS$PROT

013310
013147
013233

I8BE
IDU
[ER
IGNORE
INCDAT
INCTBL
INDEX
INHINT
INSTR
INTERR
INTER1
INTFAC
INTHDL
INTLK

FSCLEA
FSDU
FSEND
F $SHARD
FSHW

HAMF IR
HAMRDY
HAMRSW
HAMSW1
HOE

FRMLTH
FSTMSG
FSAU
FSAUTO
F$SBGN

000004
000010
034402

012220
040466
005192
004704
000100
004000
000041
000041
000041
000061
000041
000041
000041
000041
009040
00004?
000041
000041
000041
000041
000041
000041
000041
000041

]

FLSMS1
FLSSEL

000376
000001
000002
000000
000140
000000
000040
000120
000020

[AX

C$CLEA=
($CLOS=
($CLP1=
CSCVEC=
CSDCLN=
($DODU=
C$DRPT=
($0U
=
CSEDIT=
CSERDF=
CSERHR=
CS$ERRO=
CSERSF=
C$ERSO=
(SESCA=
(SESEG=
($ESUB=
CSETST=
CSEX]IT=
($GETB=
($GE Tw=

FLSMSG

GS$OFSI=
GSPRMA=
G$FRMD=
O$PRML
=
GSRADA=
GSRADB=
GSRADD=
GSRADL
=
GSRADO=
GSXFER=
GSYES =

000002
000045
000062
000012
000035
000006

FLAG26=
FLAGZ27=
FLAG96=

000004

FAKE
005642
= 000014
FF
FFSET
015474
FLAG
FLAGDA

L LI

T
T
LI

—t B
—

000100
000200
000400
001000
020742
BNDPAT
BNDRDY
013562
003570
BNDSWI
013513
BNDSW1
032706
BNDTST
003523
BNKSWI
BOE
= 000400
BP1D25 032735
BP1D26 032743
032751
BP64ID
Q1
BP64
033025
BP64Q2 033521
BP64Q3 033216
BP64Q4 033312
8P961D 032777
033410
BP96Q1
BP96Q2 033504
BP96Q3 033601
BP96Q4 033675
BUFADD
002362
002364
BUF CNT

SEQ 0123
ESLOAD= 000035

000043
000042
000030
000040
000011
000020
000050
000031
000023
000034
000014
000017
000016
000015
000377
000007
000047
000033

000003
000021
000025
000046
000041
000037
00003
027240
000177
003064
002254
000000
004702
012723
040000
005534
000036
000035
000034
000037
000040

000052
000061
000022

CSAU

G 1

"ot

000004
000010
000020
000040

CURADD
CURCNT

(SGMAN=
(SGPHR=
($GPLO=
(SGPR]=

P
o

100000

002366
002316
027236
026604
026605
040424
0ul3e?
006524
007362
002340
002346
002342
041066
002334
002344
002336
002314
004700
000015
036264
003420
005460
005142
002564
002764

PAGE

[
[ad

L
T
IO I
T
T
T
O
O
I
T
L

000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000
010000
020000
040000

BUFREP
CONT
CHAR
CHARSP
CHARX
CHRALN
CHRGEN
k1
CLEAN
CLKCSR
CLKENA
CLKSET
CLKTCK
CLKTYP
CLKVEC
CLOCKP
COUNT
COUNTD
CR
=
CRTPTH
CSRERR
CTLEND
CTLLOP

12:06
01-0C7-80
SYMBOL TABLE

YTl

T
7
I
T

~O 0o NOWVIBNN
= et
et ad 2 OO O
VIS W) = O
000 ~

020000
000020
000010
030762
013425
004472
000001
000001

30A(1052)

[

T
L
LI

Pt P §
Pt P

g
g
g
R
R
R
I
G
G
U G

et Pun) Pomell P

P
P

el Gt
Pt ot Pt et

o) rt

) Gt Gt e

(ool
e ) [veleokoeRooNeooRvoReoNooHooRooRooNooRooRooRooeRooRvoNoolooRooRoo
ool

[}

ACTIVE=
=
ADR
ASSEMB=
AUTCON

[aXalalalalalalalalalalalalnlnalnalalalalalalalafalalal

CZLPLCO LPZS, LP26 TEST MACYT1
CZLPLC.PIY
01-0C7~80 12:06

SEQ 0124

MRESET
MSGADR
MSGCNTY
MUL INE
NMLFLS
NOCLCK
NOCLK
NOINTR=
NONBUF
NONCHR
NOSTOP
NOTIM

PRTCHR
PRTCTL
PRTSPD

PTABAD

READY

MAXERR
MGTINT

TABLDA

PAPSWI
PAPSWI
PAPTST

TABLE1
TABLE?

TABSTR

PATCH
PATTER
PERIOD
PLOC
PNT
PRI

PRI1GO

PRIO
PR102
PRIO3

TAB64
TAB96
TI1CK
TIME

000000
000040
000100
000140

6
6
G
G

TIMOUT=
=
T0F
TXERR
TXNOIN
TSARGC=
T$CODE=
TSERRN= 000014

4 =t

PAPRDY
PAPRSW

et ot

PAPOUT

ned

PAPCHK

010036
000000
000020

177777
000001

) DIVEEE
O$ERRT=
0$GNSW=
O$POIN=
0$SETU=

O0$BGNS=

——
- et o

SPED4
STACHR
STATER=
STATUS
STRCNT
SVCGBL=
SVCINS=
SVCSuB=
SVCTAG=
SVCTIST=
SSLSYM=
TABAG4
TABA96

T$TAGN=
TSTEMP=
T$TEST=
T$TSTM=
T$T1STS=
T$$AUT=
T$$(LE=
T$SHAR=
T$SHW
T$SINI
T$$PRO=
T$$S0F=
T$$SRV=
T$$5UB=
T8SSW =
T$$TES=
(V1381 N-—l—l—l—)-—.-—-‘—‘—b—l —
OIS WNWNN— O »
o~ O~
WoXe
o~

SKIP3
SPCCNT
SPED1
SPED2
SPED3

ONLIM
ONL IN2
ONL IN3

177777
T$SUBN= 000000
T$TAGL= 177777

T3MoV
T3SET
——

REFLIN
REFLIN
REFLIZ
REPCNT
REPLUP
RESET
RESVEC
SECMSG
SFPTBL

NRGT16
NRGT17
NSTTBL
OFFLIN
ONEFIL=

PRINTR
PRINT4

000377
000001
000001
010000
V00020
000000
000010
000000
000005
000000
177777

QUIETY
RDYERR

QUTBUF
QUTTIM
0$APTS=
=
0$AU
0$BGNR=

022666
023264
025420
026679
027302
030130
031462
033774
034444
035602
037304
037762
040464
041136
041206
041400
021550
021631
002276
002304
041400

TSEXCP= 000000
T$FLAG= 000040
TSGMAN= 000000

15.1

[AaXaYalala¥aKala)

MOVMS2

[aYaYaXal

PRI0&
PRIOS
PRIOG
PRIO7

MOVMSG
MOVMST

L10001
L10002
L10003

a2 A a2k

Il AR alalalalalaln YAl

LSLOAD
LSLUN
LSMREV
LSNAME
LSPRIO
LSPROT
LSPRT
LSREPP
LSREV
LSSOFT
LS$SPC
LS$SPCP
LSSPTP
LS$STA
LSSW
LSTEST
LSTIML
LSUNIT

002026
061736

O—=NNOOOOO

LSLADP
LSLAST

faYn 1212112121212

000167
025212
024726
000012
002310
021004
014637
014727
013017
LN3EX
LOBYTE= 000377
= 040000
LOE
= 000010
LOT
UF
002464
LPB
SR
002370
LPC
OP
004230
LPDR
004276
LPERR
LPERR? 020732
003024
LPINTR
021406
LPM64
021467
LPMI6
002430
LPVEC
002312
LSTCNT
002326
LUNIT
002110
LSACP
002036
LSAPT
002070
LSAUT
LSAUTO 002254
002106
LSCCP
LSCLEA 007352
00203¢
L$CO
L$DEPO 002011
002172
L$DESC
002076
LSDESP
LSDEVP 002060
002132
LSDISP
002116
LSDLY
002040
LSDTP
LEOTYP 002034
002072
LSOUT
002240
LSDVTY
002052
LSEF
002044
LSENVI
002102
LSETP
002046
XP?
LSE
002064
XP4
LSE
LSEXPS 002066
LSHARD 041146
002120
LSHIME
LSHFCP 002016
LSHPTP 002022
002254
L SHW
002104
LSICP
005676
LSINIT

WNIANRND
O WNNND N
WS NOPO

JYIMP =
LCTMSG
LCTIBL
=
Lf
L INONT
L INPER
LINSW]
LINSWY

[a X2 122 ikl lala i
Ialalalalalalalalalal

12:06
01-0CT-80C
CILPLCO LPe¢S, LP26 TEST MACYT1 30A(1052)
SYMBOL TABLE
01-0C7-80 12:06
(2LPL.PIN

110
PAGE 39-2

CZLPLCO LPeS, LP26 TEST MACY11 30A(1052)
01-0(7-80
12:06
cZLPLc.P
01-0CT1-80 12:06
SYMBOL TABLE

SEQ 0125

15.2

022670

X$FALS= 000040

$F$602= 000400

$LSTTA= 000000

17
18
19

025422 6
026672 6
027304 G

X$TRUE= 000020
X0
035333
X1
035345

$FSINC= 000210
$F$L00= 000200
$FSNAM= 000169

$NSK0 = 0060110
$NSK1 = 000120
$NS<2 = 000110

023716 G

UAM
UNIT
USA

= 000200 G
002324
00230¢

VFUCMD

002360

uut
UUTEQO
VFUCHL
VFUDAT
VFUERR
VFULCT
VFUOPT
VFUSEL
VFUSE1
VFUTBL

WORK
WORK1
X
=
X$ALWA=
. ABS.

X$0FFS= 000400

x11
X2
x3

035477
035357
035371

035441

002354
003776
026524

X4
X5
X6

026606
023304
024654
002274
(04045
004133
024765

x8
X9
$BGNLE=
$ERFLG=
$F$AND=
$F$BAD=
$F$BLA=

003166 G
003170
000040
000000
041736

ERRORS DETECTED:

$F$CAS=
$FSDEC=
$F$D0 =
$FSFAL=

035493
035415
035427
035453
035465
177777
000400
000310
000401
000170
000150
000220
000340
000405

000
O

CZLPLC,CZLPLC.SEQ/DOC=SVC/ML,SPMAC/ML,CZLPLC.PT
RUN=-TIME: 390 369 2 SECONDS
RUN-TIME RATIO: 858/762=1.1

CORt USED:

25K

DOCUMENT PAGES:

(49 PAGES)

125

$FSIF

= 000110

$FSNO = 000403
$FSCR = 000320
$FSRTI= 000350

$FSRIN= 0N0300
$FSSEL= 000140
$FSTHE= 000330
$F$TRU= 000404

$FSUNT=
$FSWHI=
$FSYES=
SIFLEV=
$15K0 =
$15k1 =
$15k2 =

$15x3 =
$15k4 =
$LOCTA=
$LSTIN=

000130
000120
000402
177777
000001
000001
000001

000001
000001
177777
000000

$$CASE= 000404

SNESTL= 177777

$$0ST = 000037

$NSK3 = 000110
$1vSK4 = 000110
$NSKS = 000110

$$FROM= 000000
$$LOC = 041126
$$LOCN= 000000

$SAVLE= 177777
$5SSK0 = 0506413
STAGLE= 177777

$TAGNU= 050417

STEMP
$TSKO
$TSK1
$75K2
$TSK3
T1SK&
$TSKS

=
=
=
=
=
=
=

$TSK6 =
$TSK7 =
$$ARGC=
$$BYTE=

050416
050416
050413
050410
050400
050402
050203
050204
050174
000000
000403

$$ELOC= 000402
$SERFL= 000000
$$FLAG= 000001

$SREG = 177777
$SRETU= 000000
$SRTN1= 000000

$SRTN2= 000000

$$SRC =
$$TGSV=
$$7GS1=
$$7652=
$$70 =
$$$7AG=
.
=

000027
050145
000001
000000
000000
050000
041736