Digital PDFs

AH-E635D-MC

August 1981

114 pages

Original

56MB

view download

OCR Version

82MB

view download

Document:	CZLPLD0 LP07-25-26 LP25-26-07 DIAG AUG 1981 bw
Order Number:	AH-E635D-MC
Revision:	000
Pages:	114
Original Filename:	CZLPLD0__LP07-25-26__LP25-26-07_DIAG__AH-E635D-MC__AUG_1981_gray.pdf

OCR Text

LPO7/25/26

LP25/26/07 DIAG

SOEEPEBOESI

: E

PHERE3T0RC, it
o QIROMET
SD w HC

AUG 1981

MACRO M1113

JSER DOCUMENTATION CZLPLDO

30-DE(-80 09:36

PAGE

B
3

.REM &

IDENTIFICATION
PRODUCT CODE :

AC-E634D=-M(

PRODUCT NAME:

C(ZLPLDO LP25/26/07 DIAG

MAINTAINER:

SMALL SYSTEMS DIAGNOSTICS

PRODUCT DATE:

12=JAN-81

AUTHOR :

JOHN CHATAL IAN

DON RICE
RALPH SCHAUBER
GLENN PERNA

THE INFORMATION IN THIS DOCUMENT IS

NOTIC £

AND

SHOULD

SUBJECT

CHANGE WITHOUT

NOT BE CONSTRUED AS A COMMITMENT BY DIG.TAL

DIGITAL EQUIPMENT CORPORATION ASSUMES NO
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.

EQUIPMENT CORPORATION.

NO RESPONSIRILITY IS ASSUMED FOR
SOF TWARE ON EQUIPMENT THAT IS NOT
AFFILIATED COMPANIES.

THE USE
SUPPLIED

OR
BY

RELIABILITY OF
DIGITAL OR ITS

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:

DIGITAL
DEC

PDP

DECUS

UNIBUS

DECTAPE

MAS SBUS

5.3

MACRO M1113

USER DOCUMENTATION CZLPLDO

30-DEC-80 05:36

WVNHWN—=O
NOWVEBWN—=O
O
O

PERFORMANCE AND PROGRESS REPORTS

ERRUR INFORMATION

DEVICE INFORMATION TABLES

e
—

OPERATING INSTRUCTIONS

TEST SUMMARIES

.
.

CONTENTS

GENERAL INFORMATION

rorurorRUrONO
PO N

TABLE OF

PAGE 4

PROGRAM ABSTRACT

SYSTEM REQUIREMENTS

RELATED DOCUMENTS AND STANDARDS

PROJECT PLAN FOR LP25 DIAGNOSTIC PROGRAM

DOCUMENT :
DATE:

RAS-78-008-00-U

6-SEP-78

DIAGNOSTIC ENGINEERING FUNCTIONAL SPECIFICATION
FOR CZLPLAO LP25 DIAGNOSTIC PROGRAM (PREL IMINARY)
DATE:

29-SEP-78

LINE PRINTER, 250 LPM (LP25) PURCHASE SPECIFICATION
(PREL IMINARY)

DATAPRODUCTS 300 LPM LINE PRINTER FIELD MAINTENANCE
GUIDE (PRELIMINARY)

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

LINE PRINTER,LP-07 PURCHASE SPECIFICATION (PRELIMINARY)
1.4

DIAGNOSTIC HIERARCHY PREREQUISITES

THIS DIAGNOSTIC IS COMPATIBLE WITH ALL MEMBERS OF THE PDP-11
COMPUTER FAMILY. THE DIAGNOSTIC IS INTERFACED TO THE PDP-11
DIAGNOSTIC SUPERVISOR THROUGH WHICH IT INTERFACES TO THE
ENVIRONMENT.

THE DIAGNOSTIC CAN BE USED IN A VARIETY OF OPERATING SYSTEMS
TO FULFILL DIFFERENT REQUIREMENTS. THE DIAGNOSTIC CAN BE
LOADED USING XXDP IN A FIELD SERVICE OPERATION, LOADED USING
THE APT/ACT/SLIDE DIAGNOSTIC MONITORS IN A MANUFACTURING
ENVIRONMENT, OR MANUALLY LOADED USING PAPER TAPE.
THE APPLICABLE PDP-11 (PU, MEMORY, AND PERIPHERALS SHOULD BE
RUN TO VALIDATE PROPER OPERATION OF THE SYSTEM BEFORE RUNNING

THIS DIAGNOSTIC.

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 ITS OWN M7258 (ONTROLLER SET UP AT A DIFFERENT DEVICE
ADDRESS. THE DIAGNOSTIC PROVIDES A DEFAULT DEVICE ADDRESS OF
777514 WHICH CAN BE USED WHEN A SINGLE LINE PRINTER IS BEING
TESTED OR FOR THE FIRST UNIT WHEN MULTIPLE LINE PRINTERS ARE
UNDER TEST. IT WILL BE NECESSARY FOR THE OPERATOR TO RUN THE

LINE PRINTER OFF LINE IN THE SELF TEST MODE BEFORE RUNNING THE
DIAGNOSTIC IN ORDER TO DETERMINE WHETHER THE 64 OR 96 CHARACTER
BAND IS INSTALLED.

FORMS LENGTH MUST BE PRESET TO 11 INCHES. VERTICAL PRINTING

MUST BE PRESET TO 6 LINES PER INCH.

IF PRINTER IS LPO7,I1T MUST BE EQUIPPED WITH SPECIAL DiAG.

SEQ 0003

~ USER DOCUMENTATION CZLPLDO

MACRO M1113

30-DEC-80 09:36

SEQ 0004

PAGE 5=2

TCVFU PAPER TAPE.

A PATCH IS REQUIRED IN THE DIAGNOSTIC TO CIRCUMVENT AN

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

2.0

CPERATING INSTRUCTIONS

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

COMMANDS

THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES
(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS.
COMMAND

EFFECT

START
RESTART

START THE DIAGMOSTIC FROM AN INITIAL STATE
START THE DIAGNOSTIC WITHOUT INITIALIZING

CONT INUE

PROCEED

EXIT
ADD

DROP

DISPLAY
‘FLAGS
. ZFLAGS

CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER *()
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
‘
8Y THE DIAGNOSTIC = SECTION 4.0)

TYPE A LIST OF ALL DEVICE INFORMATION
TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3)
CLEAR ALL FLAGS (SEE SECTION 2.3)

A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS.
YOU MAY, FOR EXAMPLE, TYPE ''STA"' INSTEAD OF "'START''.
2.2

SWITCHES

THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION.
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH.

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

EFFECT

/TESTS:LIST

EXECUTE ONLY THOSE TESTS SPECIFIED IN

/PASS :DDDDD
/FLAGS :FLGS

NUMBERS, FOR EXAMPLE = /TESTS:1:5:7-10,
THIS LIST WILL CAUSE TESTS 1,5.7,8,9,10 TO
BE RUN. ALL OTHER TESTS WILL NOT BE RUN.
EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000)
SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED

/EOP:DDDDD

THE LIST.

LIST IS A STRING OF TEST

;
IN SECTION 2.3.
EVERY
AFTER
MESSAGE
PASS
REPORT END OF

USER DOCUMENTATION CZLPLDO

MACRO M1113

30-DEC-80 09:36

/UNITS:LIST

PAGE 5-3
(DDDDD = 1 TO 64000)

DDDDD PASSES ONLY.

TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED

IN THE LIST.

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

USE UNITS 0,5,10,11,12 (UNIT NUMBERS = 0-63)

EXAMPLE OF SWITCH USAGE:

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

THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE

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

PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY,
FOR EXAMPLE, TYPE ''/TES:1=5'' INSTEAD OF '‘/TESTS:1-5"".

BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EA(H
COMMAND.

TESTS
START

RESTART

€ INT INUE
PROCEED

DROP
ADD

PASS

FLAGS

X
X

EOP

UNITS

X
x
X

DISPLAY
FLAGS

ZFLAGS
EXIT

2.3

FLAGS

FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS

LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS
ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE

FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR
ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS,
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH.
FLAG

EFFECT

HOE

HALT ON ERROR = CONTROL IS RETURNED TO

L OE

IER*
IBR*

IXR*
'K}
PNT

RUNTIME SERVICES COMMAND MODE
LOOP ON ERROR

INHIBIT ALL ERROR REPORTS
INHIBIT ALL ERROR REPORTS EXCEPT

FIRST LEVEL

(FIRST LEVEL CONTAINS

ERROR TYPE, NUMBER, PC, TEST AND UNIT)

INHIBIT EXTENDED ERROR REPORTS (THOSE

CALLED BY PRINTX MACRO'S)
DIRECT MESSAGES TO LINE PRINTER
PRINT TEST NUMBER AS TEST EXECUTES

SEQ 0005

MACRO M1113

JSER DOCUMENTATION CZ2LPLDO

30-DEC-80 09:36

SEQ 0006

PAGE 5-4

"BELL'' ON ERROR

BOE

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

UAM
ISR

APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT
STATISTICAL REPORTING)

INHIBIT PROGRAM DROFPPING OF UNITS

IDR

EXECUTE AUTODROP CODE
LOOP ON TEST

ADR
LOT

EXECUTE EVALUATION (ON DIAGNOSTICS WHICH

EVL

HAVE EVALUATION SUPPORT)

*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1

SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE,
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS
AND TYPE A 'BELL'' ON ERROR, YOU MAY USE THE FOLLOWING STRING:
/FLAGS
: LOE : IER:BOE

2.4

HARDWARE QUESTIONS

WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT
THE USER FOR HARDWARE INFORMATION BY TYPING '‘CHANGE HW (L) ?'
YOU MUST ANSWER '*Y'' AFTER A START COMMAND UNLESS THE HARDWARE
INFORMATION HAS BEEN '‘PRELOADED'' USING THE SETUP UTILITY (SEE
CHAPTER 6 OF THE XXDP+ USER'S MANUAL). WHEN YOU ANSWER THIS
QUESTION WITH A '*Y'', THE RUNTIME SERVICES WILL ASK FOR THE NUMBER
OF UNITS (IN DECIMAL). YOU WILL THEN BE ASKED THE FOLLOWING
QUESTIONS FOR EACH UNIT.

#UNITS (D)

? 1

UNIT 1

(177514) ?
LP11 ADDRESS: (0)
(200) ?
INTERRUPT VECTOR : (0)

ENTER O IF LP25, 1 IF LP26, 2 IF LPO7 (O)
96 CHARACTER BAND (L) ?
2.5

(0) ?

ANSWER Y OR N.

SOFTWARE QUESTIONS

AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART
OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOF TWARE
PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC

OPERATION MODES.

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

IF YOU WISH TO CHANGE ANY PARAMETERS., ANSWER BY TYPING
THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED
“y'*.
IN THE NEXT PARAGRAPH(S).

RUN MANUAL INTERVENTION TESTS (N) ?

DEFAULT IS NO

PERFORM MANUAL PRINT SPEED MEASUREMENTI (N) ? ~ DEFAULT IS AUTOMATIC

DESIRED TIME INTERVAL FOR PRINT SPEED CALCULATION (60)

DEFAULT IS 60 SECONDS

JSER DOCUMENTATION CZLPLDO

MACRO M1113

TESTING IN U.S.A.

30-DEC-80 09:36

SEQ 0007

PAGE 5-5
MAXIMUM IS 60 SEC.
MINIMUM IS & SEC.

SELECTS U.S. OR BRITISH BAND PATTERN

(Y) ?

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

AUTODROP ERROR COUNT D) 5 ?
2.6

EXTENDED P-TABLE DIALOGUE

WHEN YOU ANSWER THE HARDWARE QUESTIONS, 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 CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF
THE ANSWERS ARE REPETITIOUS.

TO ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING

A FICTIONAL DEVICE, THE XY11.

SUPPOSE THIS DEVICE CONSISTS OF

A CONTROL MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT.
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS O THROUGH 7. THERE
IS ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE
BELOW IS A SIMPLE WAY
THIS Q=-FACTOR MAY BE 0 OR 1.
TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS.

Q-FACTOR.

# UNITS (D)

B8<(R>

UNIT 1

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

Q-FACTOR (0) 0 ?

UNIT 2

CSR ADDRESS (0) ?

1<CR>

160000<CR>

.
1<(R>-.
SUB-DEVICE # (0) ?
O<CR>
1 ?

Q=-FACTOR (0)

UNIT 3

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

Q-FACTOR (0) 0 ?

<(R>

UNIT &

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

UNIT 5

CSR ADDRESS (0) ?

SUB-DEVICE # (0) ?

Q-FACTOR (0) 0 ?

<(R>

160000<CR>
4<(R>

<(R>

UNIT 6

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

Q-FACTOR (0) 0 ?

UNIT 7

(SR ADDRESS (0) ?

<(CR>

160000<(R>

USER DOCUMENTATION CZLPLDO

30-DEC-B0 09:36

MACRO M1113

SUB-DEVICE # (C> ?

Q=FACTOR (0) 0 ?

PAGE 5-6

6<(R>

1<(R>

UNIT 8

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

Q-FACTOR (0) 1

<(R>

NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A
NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING
MULTIPLE UNITS!

AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS
DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS
NOT VERY EFFICIENT.

THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER.
LET*'S BUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION
FEATURE.

# UNITS (D2

8<(R>

UNIT 1

CSR ADPRESS (0) ? 160000<CR>
SUB-DEVICE # (0) ? 0,1<(R>

Q-FACTOR (0) 0 ?

1,0<CR>

UNIT 3

CSR ADDRESS (0) ? 160000<CR>
SUB-DEVICE # (0) ? 2-5<(R>

Q-FACTOR (0) 0 ?

O<CR>

UNIT 7

160000<CR>
CSR ADDRESS (0) ?
SUB-DEVICE # (0) ? 6,7<(R>

Q-FACTOR (0) 0 ?

1<CR>

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 SFECIFIED 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
IN THIS CASE, SUB-DEVICES
FROM THE FIRST NUMBER TO THE SECOND.

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 “N 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
SPECIFIED IN THE THIRD PASS.

THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS

SHOWN BELOW.

# UNITS (D)

B8<(R>

SEQ 0008

USER DOCUMENTATION CZLPLDO

30-DEC-80 09:36

MACRO M1113

PAGE 5-7

UNIT 1

CSR ADDRESS (0) ? 160000<CR>
SUB=DEVICE # (0) ? 0<7<CR>
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.
(XXDP+)

2.7 QUICK START=UP PROCEDURE
TO START=UP THIS PROGRAM:
1. BOOT XXDP+

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

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

TYPE ''START"'

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

7. ANSWER THE ‘‘CHANGE SW'‘ QUESTION WITH "N
WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE

DEFAULTS FOR FLAGS AND SOF TWARE PARAMETERS.

ARE DESCRIBED IN SECTIONS 2.3 AND 2.5.

THESE DEFAULTS

3.0 ERROR INFORMATION

3.1 TYPES OF ERROR MESSAGES

THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY

A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR_MESSAGES
ARE ALWAYS PRINTED UNLESS THE ‘‘IER'' FLAG IS SET (SECTION 2.3).
THE GENERAL ERROR MESSAGE IS OF THE FORM:

TYPE

NAME

NUMBER

ERROR MESSAGE

ON UNIT NUMBER

TST NUMBER PC:XXXXXX

NUMBER

onn

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

UNIT NUMBER = 0 = N (N IS LAST UNIT IN PTABLE)
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL

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

SEQ 000%

" USER DOCUMENTATION CZLPLDO

MACRO M1113

SEQ 0010

30-DEC-80 09:36 PAGE 5-8

EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS
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.
1

3.2 SPECIFIC ERROR MESSAGES
ERROR

DESCRIPTION

"PRINTER ERROR''

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

"PRINTER DID NOT INTERRUPT''
FAILURE IN INTERFACE LOGIC.

*LOADING PRINTER BUFFER DOES NOT CLEAR READY''
FAILURE IN INTERFACE LOGIC.

"PRINTER INTERRUPTED AT SAME LEVEL AS THE
PROCESSOR"'
FAILURE IN INTERFACE LOGIC.
"PRINTER ERROR''

ERROR CONDITION IN THE PRINTER.
"PRINTER NOT READY''

PRINTER NOT READY TO ACCEPT DATA.

‘PAPER LOW INTERLOCK SWITCH FAILURE"'

FAULTY INTERLOCK SWITCH.

"HAMMER BANK INTERLOCK SWITCH FAILURE''

FAULTY INTERLOCK SWITCH.
10

"“'CHARACTER BAND INTERLOCK SWITCH FAILURE'
FAULTY INTERLOCK SWITCH.

ERROR MESSAGES #11 AND #12 HAVE BEEN ELIMINATED
13

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

"DUTPUT TIMEOUT ERROR''
GLOBAL ERROR INDICATING TRANSMISSION
OF LAST CHARACTER DID NOT OCCUR

MACRO M1113

USER DOCUMENTATION CZLPLDO

30-DEC-80 09:36 PAGE 5-9
WITHIN A GIVEN TIME.

"VFU INTERLOCK FAILURE'

"BAND GATE LATCH INTERLOCK FAILURE''

FAULTY INTERLOCK SWITCH ON VFU TAPE READER COVER

———

FAULTY INTERLOCK SWITCH

4.0 PERFORMANCE AND PROGRESS REPORTS

PERFORMANCE AND PROGRESS REPORTS ARE NOT SUPPLIED.
5.0 DEVICE INFORMATION TABLES

DEVICE INFORMATION APPEARS IN THE GLOBAL DATA SECTION.
6.0 TEST SUMMARIES
TEST 1

INTERFACE LOGIC

VERIFIES OPERATION OF INTERFACE LOGIC BETWEEN THE PRINTER AND THE CPU.
TEST
2
READY LINE INTERLOCKS

VERIFIES OPERATION OF THE READY INTERLOCK SWITCHES.
TEST
3
FORMS LENGTH SELECTION

VERIFIES ALL POSITIONS OF THE FORM LENGTH SELECT SWITCH FOR PROPER

PAPER MOVEMENT.
TEST

PRINTING SPEED MEASUREMENT

DETERMINES PRINTING SPEED ON THE BASIS OF THE PRINTING TIME INTERVAL
AND THE NUMBER OF LINES PRINTED.
5
TEST
DATA TRANSFER PATHS

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

TEST

PRINTABLE CHARACTERS

CHECKS FOR PROPER PRINTING OF ALL PRINTABLE CHARACTERS.

TEST 7
NON-PRINTABLE CHARACTERS

CHECKS FOR PROPER DETECTION OF ALL NON-PRINTABLE CHARACTERS.
ALSO, ON PRINTERS WITH 64 CHARACTER BANDS, IT CHECKS TO MAKE SURE
. THAT CODES (140 THRU 177) ARE CONVERTED TO CODES (100 THRU 137).

';E 4 gATTERN ‘s

SEQ 0011

‘

USER DOCUMENTATION CZLPLDO

MACRO M1113

N 1

30-DEC-80 09:36

PRODUCES AN IMAGE OF

PAGE 5-10

THE ENTIRE BAND PATTERN.

TEST 9
SPURIOUS HAMMER FIRING
CHECKS FOR SPURIOUS HAMMER FIRINGS BY TAKING NOTE OF ANY

PRINTING THAT MAY OCCUR OUTSIDE A WEDGE PATTERN.

TEST 10

PRINT CONTROL

CHECKS THAT (HARACTERS IN EXCESS OF 132 CHARACTERS ON A LINE
ARE DISREGARDED.
TEST

CHECKS MULTIPLE LINE ADVANCE
CHECKS THE MULTIPLE LINE ADVANCE FOR PROPER PAPER MOVEMENT.
TEST 12
(HARACTER AL IGNMENT

CHECKS CHARACTER AL!GNMENT BY OVERPRINTING EACH. LINE.

SEQ 0012

C2LPLDO LP2S, LP26, LPO7 DIAGNO MACRO M1113

30-DEC-80 09:36

SEQ 0013

PAGE 7

.TITLE

CZLPLDO LP25, LP26, LPO7 DIAGNOSTIC

.SBTTL

IDENTIFICATION

.ENABL AMA

; PRODUCT CODE:

AC-E634D=-M(

; PRODUCT NAME:

CZLPLDO LP25, LP26, LPO7 £1AG

; MAINTAINER:

SMALL SYSTEMS DIAGNOSTICS

AUTHORS :

JOHN CHATALIAN

DONALD RICE

RALPH SCHAUBER

GLENN A. PERNA

; DATE

12=-JAN-81

TRTE
TRIR

R T

R
T T )

:DIGITAL EQUIPMENT CORPORATION, MAYNARD MASSACHUSSETTS 01754
TH1S SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION 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 BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY
ITS SOF IWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

¢ 2

>&
CZLPLDO LP25, LP26, LPO7 DIAGNO MACRO M1113
IDENTIFICATION

PAGE 8

;
~
n

30-DEC-80 09:36

SEQ 0014

FUNCTIONAL DESCRIPTION

- THIS DIAGNOSTIC PROGRAM VERIFIES PROPER OPERATION OF THE LP25,

LP26, LPO7

730

- ANY MIX OF LP25, LP26, LPO7 PRINTERS MAY BE TESTED, UP TO A TOTAL OF

: LINE PRINTER, AND IT'S ASSOCIATED INTERFACE MODULE.

; THE PROGRAM CONSISTS OF TWELVE TESTS,
: THREE OF THE PRINTER TESTS INVOLVE MANUAL INTERVENTION.

; SIXTEEN UNITS.

: TQEPPROGRAM IS COMPATIBLE TO THE PDP=11 DIAGNOSTIC SUPERVISOR, ACT/SLIDE, AND
;

27-SEP=-79

R. SCHAUBER

; VERSION

A-0

: HISTORY

REV. A-0

INITIAL RELEASE

;

REV. B=0

DOCUMENTATION CHANGE

SL. % 8.8,
8,

749

XXDP+,

;

REV=C SUPERVISOR / XXDP+ COMPATABLE

29-NOV=79

CHANGE INIT CODE TO SET PRIO ON NEW PASS

REV. C-0

13-JUN-80
INCLUDE LP26 SUPPORT
THE PRINTERS
TC
MESSAGES
INCLUDE TEST
FOR LSI-11
SUPPORT
CLOCK
INCLUDES L.NE

REV. D=0

INCLUDE LPO7 SUPPORT

12-JAN-81

C L L PLDO LP2S, LP26, LPO7 TEST
! D ENTIFICATION

758
759

MACRO M1113

30-DEC-80 09:36

SEQ 0015

PAGE 9

JTITLE

CZLPLDO LP2S, LP26, LPO7 TEST

.MCALL

SVC

.MCALL

STRUrT

.SRTTL PROGRAM HEADER

760

761
762

Sv(C

763

764

STRUCT
$LSTIN=
$LSTTAG=

000000
000000

765

766

768
769

770

771
772
773
774
775
776 €00000
777
778
779
780 002000
781 002000
782

000000
000000
000000
000000
000000

002000

sINITIALIZE SUPERVISOR MA(CROS
0
0

$LOCTAG=

177777

767

SVCINS=
SVCTST=
svcsuB=
SVCGBL=
SVCTAG=

0
0
0
9
0

;LIST
;LIST
;LIST
;LIST
:LIST

: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

BGNMOD

POINTER BGNSW,BGNSFT

783 002000

LONAME : :

HEADER
JASCII

(ZLPL,D,0,60,1,340
:DIAGNOSTIC NAME

/C/

JASCII 72/
JASCII 7L/

JASCII /P/
ASLIE ALY

L$REV::
060

000000
000060
036700
037072
002244

002262
037450

002032
002032
e

000000
000000

L$DEPO: :

LSUNIT::

L$TIML::

L$HPCP: :
L$SPCP: :
L$HPTP: :

L$SPTP::

LSLADP: :
LS$STA::
L$CO::

.BYTE
BYTE
BYTE

0
0
0

JASCII

/D/

LASCII

70/

.WORD

LS$HARD

.WORD

L$SOFT

.WORD

L$HW

.WORD

L$SW

.WORD

LSLAST

WORD

.WORD

;REVISION LEVEL
;0

:NUMBER OF UNITS

:LONGEST TEST TIME

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

:PTR, TO S.W. PTABLE

:DIAG. END ADDRESS
;RESERVED FOR APT STATS

000340
C00000

000000
003
003

000000
000000
000000

002222

000000
000000
000000
000000

000000
000000

002162
104035

000000

POND = = ed e

s —d e =

[=TaTo Ne P J‘NNOO?

002106

784

785

786

005754
010064

002254

002122

000000
000000

000000

L$DTP::
L$PRIO::

LSENVI::

.WORD
.WORD

.WORD

LSEXP1::

LSMREV::
LSEF::
L$SPC::
:
LSDEVP:
LSREPP::

LSEXP4::

LSEXPS::
LSAUT::
L$DUT::
LSLUN::

LSDESP::
LSLOAD::

LSETP::
LSICP::
L$CCP::

LSACP::
L$PRT::

LSTEST::
LSDLY::

LSHIME::

—

:
Sk

:SVC REV AND EDIT #

LSDVTYP

.WORD
.WORD

.WORD
.WORD
.WORD

.WORD

LSDESC
ESLOAD
0

.WORD

LSINIT

.WORD

L$CLEAN

.WORD

| SAUTO

.WORD

.WORD
.WORD
.WORD

:DIAG. EVENT FLAGS

.WORD

EMT

:DIAGNOSTIC RUN PRIORITY

CSREVISION
CSEDIT

.WORD

T0O DISPATCH TABLE

:EXPANSION WORD

.WORD

:APT EXPANSION

:FLAGS DESCRIBE HOW IT WAS SETUP

.WORD

.WORD
.WORD

:DIAGNOSTIC TYPE

:PTR.
L$DISPATCH

.WORD

.BYTE
.BYTE

SEQ 0016

PAGE 9-1

002132

.WORD

000000

LSAPT::

000001

L$DTYP::

002034
002034
002036
002036

MACRO M1113

PROGRAM HEADER

| CZLPLDO LP25, LP26, LPO7 TEST

30-DEC-80 09:36

L$PROT

. POINTER TO DEVICE TYPE LIST
;PTR.

TO REPORT CODE

;PTR.

TO ADD UNIT CODE

;PTR.

TO DROP UNIT CODE

;LUN FOR EXERCISERS TO FILL

:POINTER TO DIAG. DESCRIPTION
;GENERATE SPECIAL AUTOLOAD EMT
;POINTER TO ERRTBL
;PTR.

TO INIT CODE

;PTR.

TO CLEAN-UP (ODE

;PTR.

TO AUTO CODE

;PTR.

TO PROTECT

;TEST NUMBER

;DELAY COUNT

;PTR.

TABLE

TO HIGH MEM

* THE FOLLOWING IS A LOAD PROTECTION TABLE

CZLPLDO LP2S, LP26, LPO7 TEST

PROGRAM HEADER

787
788 002122

002122

789 002122
790 002124
791 002126

792 002130

000000

177777
177777

MACRO M1113

30-DEC-80 09:36

L$PROT::

BGNPROT
0

ol|
.WORD
-1
.WORD
ENDPROT

PAGE 9=2

SEQ 0017

6
DISPAT(H TABLE

30-DEC-80 09:36

.SBTTL

SEQ (018

PAGE 10

DISPAT(CH TABLE

s $®

* THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST.

: 1T 1S USED BY THE SUPERVISOR TD DISPATCH TO EACH TEST.

002130

DISPAT(CH

000014

802
803

.WORD
.WORD
.WORD

T
T2
T3

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

15
T6
T
T8
T9
T10
TM
T12

.WORD

:X= NUMBER OF TESTS

:FOR USE ON REVISION C OF THE SUPERVISOR

& R

Bk E NIASAVL B O o o

DESCRIP
JASCIZ

.EVEN

DEVTYP

806
114
120

002236

054
060

120

054
062
114

067

<CZLPLDO LINE PRINTER DIAGNOSTIC>
/CZLPLDO LINE PRINTER DIAGNOSTIC/

O=—m—mmaaaO——
W
o N= =N =N =
(@ F Yo
Bl
pV] oo~

_.n_a_a_u._n_ao_ng_n_a

805 002162
002162

807
808
809

.WORD

LSDISPATCH::

010260
011550
014542
017650
025256
025702
026600
030320
033020
033476
035034
035512

OoONOOC
T 282000
WWNHL
2O —=20OO0W

MACRO M1113

062

114
066

000

L$DVTYP::

LASCIZ

.EVEN

<LP25.,LP26,LPO7>
/LP25,LP26,LP07/

MACRO M1113

| CZLPLDO LP2S, LP26, LPO7 TEST

. DEFAULT HARDWARE P-TABLE

30-DEC-80 09:36

g}}

.SBTTL

8“&3

;00

SEQ 0019

PAGE 11

DEFAULT HARDWARE P-TABLE

. THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF
. THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE
: 15 IDENTICAL TO THE RUN-TIME P-TABLE.

814
815
g}g
818

819 002242

002242

000004

820 002244
821 002246
822 002250
823
824
830 002252

177514
000200
000000

002244
002244

g%}

BGNHW

DFPTBL

JWORD
.WORD
.WORD

177514
200
0

.WORD

LOHW::
DFPTRL::

000000

.WORD

L10001=L$HW/2

:LP25 REGISTER ADDRESS
:LP25 INTERRUPT VECTOR
: 0 IF LP25S
;1 IF LP26
: 2 IF LPO7
: 0 IF 64 CHAR BAND
1 IF 96 CHAR BAND

S INTERRUPT VECTOR PRIORITY IS & AND CANNOT BE CHANGED

ggz
835

836 002254
002254

837

L10001:

838
839

840 002254
- 002254
1

gz% 002254

LSAUTO: :

002256

104461

BGNAUTO

: NOT USED

NOP

000240

844 002256

ENDHW

L10002:

ENDAUTO
TRAP

($AUTO

I
|

CZLPLDO LP2S, LP26, LPO7 TEST
SOF TWARE P=TABLE

MACRO M1113

30-DEC-80 09:36¢

.SBTTL

846

SEQ 0020

PAGE 12

SOF TWARE P-TABLE

S99

;

000005

THE

SOF TWARE P-TABLE

PARAMETERS

BGNSW

THAT

(ONTAINS

(AN BE

VALUES OF
THE

THE PROGRAM

OPERATOR.

SFPTBL

LWORD

L10003-L$Sw/2

INHINT:

.WORD

MANSPD:

.WORD

PERIOD:

.WORD

60.

LESW::

THE

(HANGED BY

SFPTBL::

000074

;0 IF NO INTERVENTION TESTS
;1 IF MANUAL INTERVENTION TESTS
;DEFAULT IS NO
;0 FOR AUTOMATIC PRINT SPEED
;1 FOR MANUAL PRINT SPEED TEST

sAUTOMATIC DEFAULT VALUE

;OPERATOR TO SELECT TIMING VALUE
sFROM & TO 60 SECONDS. INITIAL

;DEFAULT VALUE IS 60 SECONDS.

865 002270
7

868 002272
869

870

871 002274
© 002274

87¢

000001

USA:

WORD

;1 FOR TESTING IN U.S.A.

000005

MAXERR:

.WORD

;

; O FOR TESTING IN G.B./EUROPE
; * DIFFERENT BAND PATTERNS =
AUTODROP ERROR (OUNT

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

L10003:

ENDSW

| CZLPLDO LP25, P26, LPO7 TEST
1/0 MACRO DEFINITIONS

————

MACRO M1113

30-DEC-80 09:36

/0 MACRO DEFINITIONS

.MACRO

ggTPUT

.JF B
.ENDC

ADD ,BF CNT ,ERR ,PRINTS
ADD ,BUF ADD

;SAVE THE BUFFER ADDRESS

#-1,PRINTR

; OUTPUT TO ALL UNITS

MOV

BF CNT ,BUF CNT

ERR
MOV

#LPERR ,ERRSV(

MOV

SEQ 0021

PAGE 13

.SBTTL

;BUFFER BYTE COUNT BFCNT

ERR
MOV

ERR,ERRSVC

MOV

#1,3UFREP

; PRINT ONCE DEFAULT

MOV

PRINTS ,BUFREP

; SUPPLY PRINT COUNT

.ENDM

JSR

QUTPUT

PC.,I0CTRL

;CALL THE DRIVEP

.MACRO

OUTPUI
MOV
MOV

ADD,BFCNT,ERR,UNIT,PRINTS
;SAVE BUFFER ADDRESS
ADD ,BUF ADD
BYTE COUNT BFCNT
;JBUFFER
BF CNT ,BUF CNT

.IF NB

LENDC
.IF B PRINTS
.ENDC

.IF NB PRINTS

—

.IF B
.ENDC
.IF NB
.ENDC

ERR
MOV

#LPERR ,ERRSV(

ERR

ERR,ERRSVC

MOV

.1F B PRINTS
.ENDC

#1 ,BUFREP

: PRINT ONCE DEFAULT

MOV

PRINTS ,BUFREP

; SUPPLY PRINT COUNT

MOV

UNIT,PRINTR

; SUPPLY UNIT NUMBER

MOV

.IF NB PRINTS

JSR

PC,IOCTRL

sCALL THE DRIVER

: PRINTS IS A PARAMETER CONTROLLING THE NUMBER IF TIMES THE DATA OR
: MESSAGE IS TO BE PRINTED (SENT TO THE PRINTER). DEFAULT IS 1.

: A TIMEOUT OF 20. SECONDS IS FURNISHED BASED ON THE FOLLOWING ASSUMPTIONS :
1

A PRINTER SPEED OF 300 LPM

AN INITIAL BAND STARTUP TIME OF 2.5 SECONDS.

2
9

924 002274

A REPEAT COUNT OF 88 MAX. ( 1 PAGE OF LINES AT 8 LPI.
------

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

)

—————

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

—

|
|

CZLPLDO LP25, LP26, LPO7 TEST

MACRO M1113

30-DEC-80 09:36

SEQ 0022

PAGE 14

GLOBAL AREAS

.SBTTL

926

927
928 002274

GLOBAL AREAS
BGNMOD

929

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

EQUALS

938 002274

; BIT DIFINITIONS
BIT15== 100000
BIT14== 40000
BIT13== 20000
BIT12== 10000
BIT11== 4000
BIT10== 2000
BIT09== 1000
BIT08== 400
BIT07== 200
BIT06== 100
BIT05== 40
BIT04== 20
BIT03== 10
BIT02== 4

BIT01== 2
BiT00== 1

000400

BIT9==

BIT8==
BIT7==
BITé==
BITS==
BIT4==

BIT3==

BIT2==
BIT1==

BITO==

BIT09
BIT08
BITO07
BIT06
BITOS
BIT04
BITO3
BITO2
BITO1
BITO00

; EVENT FLAG_DEFINITIONS

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

EF .START==
EF .RESTART==

EF.CONTINUE==
EF .NEW==
EF .PWR==

>
31.

30.
29.
28.

* PRIORITY LEVEL DEFINITIONS

PRIO7== 340

PRIO6== 300
PRI0S== 240
PRI04== 200

; START COMMAND WAS ISSUED
; RESTART COMMAND WAS ISSUED

; CONTINUE COMMAND WAS ISSUED
: A NEW PASS HAS BEEN STARTED
; A POWER-FAIL/POWER-UP OCCURRED

CZLPLDO LP2S, LP26, LPO7 TEST

GLOBAL AREAS

000140
000100
000040
000000

MACRO M1113

30-DEC-80 09:36

PRI03==
PRI02==
PRIO1==
PRI00==

SEQ 0023

PAGE 14~1

140
100
40
0

;OPERATOR FLAG BITS
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000

EVL==

000012
000014
000015
000177

LF==12

100000

LOT==

20
40
100
200
400
1000

ADR==
IDy==
ISR==
UAM==
BOE==
PNT==
PRI ==

IXE==
IBE==
IER==
LOE==
HOE==

2000

4000
10000
20000
40000

100000

FF==14

CR==15
DEL==177
JPRIORITY LEVEL DEFINITIONS

000340
000300
000240
000200
0001°0
000100
000040
000000

PRI0O7==
PRIO6==
PRIOS==
PRI04==
PRI03==
PRI02==
PRIO1==
PRI00==

340
300
240
200
140
100
40
0

*GLOBAL ERROR CODES FOR USE BY GENERAL ERROR ROUTINE
000001
000002

STATER= 1
TIMOUT= 2

;TRANSMITTER STATUS ERROR IN QUTPUT
*TIMEOUT ERROR IN I0 DRIVER MODULE

000003

NOINTR= 3

:GROSS TIME OUT ERROR. THE SPECIFIED DID NOT
; INTERRRUPT. THEREFORE 10 DRIVER MODULE WAS

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

"SBTTL
RO

:
:R3

GENERAL REGISTER USAGE DEFINITIONS
RESERVED FOR USE BY THE MACRO PACKAGES

MAXIMUM NUMBER OF UNITS TO TEST LSUNIT-1
UNIT NUMBER BY 2. USED TO CALCULATE OFFSET INTO PROPER
PRINTER TABLE
TEMPORARY STORAGE

e
s

MACRO M1113
CZLPLDO LP25, LP26, LPO7 TEST
INITIONS
DEF
USAGE
GENERAL REGISTER
:RS
:R6
:R7

978
979
980

981
982
983
984
985

987

SEQ 0024

PAGE 14~2

STACK POINTER

PROGRAM COUNTER

* LP STATUS TABLE BIT DEFINITIONS
100000
040000
020000
010000

002000

000377

ERROR = BIT1S
DROPED
ACTIVE
FLAG96

FLAGO7
FLAG26
LOBYTE

;

96 CHAR BAND

;SEE DEVICE CODE BELOW
;SEE DEVICE CODE BELOW

: BIT MASK FOR CLEARING LOBYTE (COUNTER)
DEVICE CODE

BITS 9 AND 10 ARE A DEVICE CODE , SUCH THAT:
BIT 10

BIT 9

—-O—=0

986

30-DEC-80 09:36

YY)

DEVICE

LP25
LP26
LPO7

RESERVED FOR FUTURE EXPANSION

CZLPLDO LP2S, LP26, LPO7 TEST

GLOBAL DATA SECTION

1008

1009

MACRO M1i13

30-DEC-80 09:36

SEQ 0025

PAGE 15

.SBTTL

GLOBAL DATA SECTION

1012 002274
1013 002276
1014 002300
1015 002302
1016 002304
1017 002306
1018 002310
1019 002312
1020 002314

000000
000000
000000
000000
000000
000000
000000
000000
000000

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

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
WORD
.WORD

0
O
C
O
O
O
0
O
O

1022
1023 002316
}8%? 002320

000000
000000

PTABAD:
PRINTR:

.WORD
.WORD

0
O

;MACROS.
;P-TABLE ADDRESS RETURNED BY GPHARD
:gE%SSTED LINE NO.

1026 002322

000000

CLKTYP:

.WORD

;CLOCK TYPE CONTROL WORD

1021

1027

1028
1029
1030 002324
1031 002326

002330
002332
002334
002336

000000
000000
000000
000000
000000
000000

CLOCKP:
CLKCSR:
CLKSET:
CLKVEC:
CLKENA:
ERRCOD:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

O
O
O
O
O
O

1037 002340

000000

ERRFLG:

.WORD

1032
1033
1034
1035

1036

1038 002342
1039
}82?

1042 002344

}822 002346

000000

}822

UUT:

.WORD

;MACRO

VARIABLES

.WORD

sUNIT COUNTER FOR SINGLE UNIT TESTING
JUNIT COUNTER FOR ERRORS
JAND TESTS NOT USING THE OUTPUT

:1= NO CLOCK AVAILABLE

2= KW11=L LINE CLOCCK
.3— KW11=-P PROGRAMABLE CLOCK
; CLOCK P-TABLE ADDRESS
;CLOCK CSR ADDRESS
; CLOCK TIME SET REG ADDRESS
;CLOCK VECTOR ADDRESS
;CLOCK ENABLE BITS
:ERROR CODE 1YPE FOR GENERAL

;ERROR ROUT INE

;EXPECTED ERROR INDICATOR

INDEX:

VFUCMD:

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

; # UNITS ACTUALLY UNDER TEST

JEXITS BACK TO 10 DRIVER EQUAL
:1 IF ERROR WAS EXPECTED.

1047 002350
1048
}8?8 002352

000000

BUFADD:

.WORD

000000

BUFCNT:

.WORD

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

%82} 002354

000000

BUFREP:

.WORD

; NUMBER OF

1053
1054
;822

1057 002356
1058

1059
106G 002416

1061

1062

1063 002452

10464

TIMES TO PRINT

:
2
;LP25 PARAMETER WORD TABLES

000020

LPCSR:

000016

LPVEC:

000020

LPBUF:

.REPT
.WORD

16.
O

: ADDRESS OF CSR FOR EACH LPM

.WORD

;. INTERRUPT VECTOR ADDRESS

.ENDR
LREPT
.ENDR

_REPT 16.

.WORD

’

;

DATA BUFFER REGISTER ADDRESS

[

m——

e
m
e

——

B 3
| C2LPLDO LP25, LP26, LPO7 TEST

| GLOBAL DATA SECTION

1065

|
1

1068

MACRO M1113

30-DEC-80 09:36

SEQ 0026

PAGE 15-1

.ENDR

1066 002512
1067

000020

STATUS: .REPT 16,
0
.WORD

: UNIT STATUS

1069 002552

000020

CURADD: .REPT 16,

; CURRENT ADDRESS OF OUTPUT DATA BYTE

1072 002612

000020

MSGCNT: .REPT 16.

; INITIAL BYTE COUNT OF MSG FOR REPEAT RESTORE

1075 002652

000020

REPCNT: .REPT

1078 002712

000020

MSGADR: .REPT

1070
1071

1073
1074
1076
1077

1079

1080

.ENDR

.WORD
.ENDR

.WORD 0
.ENDR

16,

; NO. OF TIMES TO REPEAT MESSAGE

16.

: ADDRESS OF DATA TO PRINT START OF DATA

.WORD
.ENDR

.WORD

.ENDR

1081 002752

000020

CURCNT: .REPT 16.

: CURRENT COUNT REMAINING TO OUTPUT

1084 003072

000020

LPINTR: .REPT 16.

: INTERRUPT ROUTINE ADDRESS

000020

.ENDR
DELCNT: .REPT 16,

1082
1083
1085

:
1086
1087 003052

1088

1089

1090 003112
1091 003114
1092

000000
000C20

109

000000
000000

b =D

BRIRARGRSSE

il
il
il wid

b —d

)

1098
099

.WORD

; TIMEOUT DELAY COUNTER

0
.REPT 16,

: ERROR ROUTINE DISPATCH ADDRESS
: ERROR COUNT FOR EACH UNIT

0
0

; WORK AREA

ERRSVC: .WORD
ERRTBL : :

.WORD

.ENDR

1095 003154
109 003156

.WORD

.ENDR

1093

—d et

.WORD
.ENDR

WORK::
WORK1:

.WORD
.WORD

.SBTTL

OUTPUT BUFFER

1150 BYTES IS RESERVED FOR THE OUTPUT BUFFER AREA
003160

000226

.EVEN

OUTBUF: .REPT

BYTE

.ENDR

150.

IS
AP

—

i CZLPLDO LP2S, LP26, LPO7 TEST
GLOBAL TEXT SECTION

MACRO M1113

30-DEC-80 09:36

.SBTTL

}}}}

PAGE 16

GLOBAL TEXT SECTION

NLIST BEX

1113

3 +%

1114

: THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,

1115

: MESSAGES, AND ASCII INFORMATION THAT ARE USED IN
: MORE THAN ONE TEST.

1116
}}}g
1119 003406
1120 003424
1121 003446
1122 003511

120
120
120
110

122
122
107
101

1125 003661
1126 003706
1127 003733
1128 003764

120
117
125
101

122
125
116
114

1123 003556
1124 003626

103
124

1129 004033

045

1131 004147

116

1130 004121

1132 004215

1133 004257

1134

1135
1136
1137
1138

045

102

126

111
111
120
115

CSRERR:
RDYERR:
PAPSWI:
BNKSWI:

.ASCIZ /PRINTER ERROR/
.ASCIZ /PRINTER NOT READY/
.ASCIZ /PAPER LOW INTERLOCK SWITCH FAILURE/
.ASCIZ /HAMMER BANK INTERLOCK SWITCH FAILURE/

BNDSWI: .ASCIZ
INTER1: .ASCIZ

116

101
101
111
1246
111
114
045

VFUSEL:

/CHARACTER BAND INTERI.OCK SWITCH FAILURE/
/TRANSMIT INTERRUPT TIMEOUT/
.ASCIZ /PRINTER STATUS ERROR/
.ASCIZ /0UTPUT TIMEOUT ERROR/
.ASCIZ /UNIT FAILED TO INTERRUPT/
.ASCIZ /ALL UNITS HAVE BEEN DROPPED..RESTART../
.ASCII /XNXAINSURE THAT VFU=FLS SWITCH ON EACH UN'T IS IN THE /

117

040

NOCLK:

.ASCIZ

106

125

VFUINF: _ASCIZ

110
122

116

101

045

116

TXERR:
OUTTIM:
TXNOIN:
UUTEQO:

XN/
VFUSE1: .ASCIZ /%NXA'‘'VFU'® POSITION.

BGTSWI: .ASCIZ
.EVEN

/NO CLOCK AVAILABLE FOR TIMING TESTS/<7><7>
/BAND GATE LATCH INTERLOCK FAILURE/

/VFU INTERLOCK FAILURE/

.
:

1139

Hz(])

LLIST BEX

};2%

: FORMAT STATEMENTS USED IN PRINT CALLS

1144

1145 004306

1146
1147
1148
1149

004311
004314
004317
004322
004325
004330
004333
004336
004 341
004344
004347
004352

045

120
040
m
045
045
104
120
104
122
040
123
116

101

061
125
124
104
101
122
120
040
117
124
12¢
000

114

061
116
040
062
040
117
105
106
115
105
045

LPDROP: .ASCIZ

/XALP11 UNIT %D2%A DROPPED FROM TESTZN/

SEQ 0027

[

SRARLESHIFRRAK
S

—

(0 0o QAN ALY LV IV, IV V. IV ] wn

il —

D i
D i

GLOBAI

SEC 0028

PAGE 17

SUBROUTINES

SECTION

;
;

THE GLOBAL SUBROUTINE SECTION CONTAINS THE SUBROUTINES
THAT ARE USED BY MORE THAN ONE TEST.

P+t

; FUNCTIONAL DESCRIPTION:
:
SUBROUTINE TO PRINT THE GENERAL ERROR INFORMATION.
PRINTS

THE ERROR MESSAGE

IN THE

FOLLOWING FORMAT:

" o

"ERROR AT (SR XXXXXX UNIT vy
WHERE

XXXXXX=
YY=

DEVICE CSR ADDRESS
UNIT NUMBER THAT FAILED

NN NN VNN NNNO

CALLING SEQUENCE
JSR PC,LPERR

REQUIRED PARAMETERS

ERRCOD MUST BE SET TO ONE OF
UNDER ERROR CODES.

THE ERROR CODES DESCRIBED

R2 1S USED INTERNAL TO THE ROUTINE.
THE ROUTINE DOES A SAVE ON R2
AND RESTORES IT PRIOR TO EXITING.

Wh
=

0o
0o 0o

D il il il il il
D D e i e
)

.SBTTL

D el il il
D e i i

SECTION

D e
D i

GLOBAL SUBROUTINES

) i D i il
D D D e e

D
D

30-DEC-80 09:36

D D o
D e e

MACRO M1113

i D il il
i o e i

CZLPLDO LP25, LP26, LPO7 TEST

- i el i
e i e

013746
002454
023727
003050
006316
062716

013607

SELECT ERRCOD OF 3 VERIFY

002336

MOV

BLT
MP
BGT

000003

ASL

004402
50000%:

004512
004412
004440
004466

50003%:
005202

003114

010237
006237

002074

104456

004432

000016
003061

002074

ERRCOD,=(SP)

;SELECT PROPER MESSAGE FORMAT

50005%
ERRCOD,#3
50005%
(SP)

ADD
MOV

#50000%, (SP)
a(SP)+,PC

.WORD
.WORD
.WORD
.WORD

50004%
50003%
50002%
50001%
;STATUS ERROR

CASE 1

LET ERRTBL(R2) := ERRTBL(R2) + #1
ERRTBL (R2)
INC
LET LSLUN := R2 SHIFT =1
MOV
RZ.LSLUN
ASR

LSLUN

.WORD

ERRHRD
TRAP

.WORD

14, TXERR
C$ERHRD

TXERR

C2LPLDO LP2S, LP26, LPO7 TEST

| GLOBAL SUBROUTINES
004434

1189
1190 004436

004436
004440
19N 004440
004440
1192 004444
004444

004450
1193 004454
004454
004456
004460
004462

1198

1200
1201
1202
1203
1204
1205

1206

1207

1208

—

el —d
—
—
—
—
— o

il il cld =l

SLISLINI
NS LN 1N 1]

—

1209

MACRO M1113

30-DEC-80 09:36
.WORD

000000

CASE 2

000425

50002%:

0052¢2

003114

010237
006237

002074
002074

O
50005%

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

MOV
ASR
ERRHRD
TRAP

104456

.WORD

000017

R2,LSLUN
LSLUN
15,0UTTIM
(C$ERHRD

004464
004464
004466

000412

CASE 3
BR

50005%

004466

005262

003114

INC

010237

002074
002074

MOV
ASR

50001%:

TRAP
.WORD
.WORD
.WORD

104456
000020

003733

000000

QUTTIM
0

006237

;OUTPUT TIMEOUT ERROR

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

.WORD
.WORD

004472
004472
004476
004502
004502
004504

SEQ 0029

PAGE 17-1

003706
000000

1196
1197 004466
©

SECTION

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

ERRTBL (R2)
LET LSLUN := R2 SHIFT =1
R2,LSLUN
LSLUN
ERRHRD 16,TXNOIN
C$SERHRD
16
TXNOIN
O

ENDSELECT
50004%:
50005%:

026237
003402
004737

003114

IF ERRTBL(R2) GT_MAXERR THEN
,MAXERR
TBL
(R2)
ERR
50006%

CMP
BLE

002272

ENDI#SR PC.DROPIT

005612

500068:
042762

100000

005037

002336

012772

000100

000207

002512

002356

; MAXIMUM ERROR COUNT EXCEEDED '

LET STATUS(R2) := STATUS(RZ2) CLR.BY #ERROR
#ERROR, STATUS (R2)
BIC
LET ERRCOD := #0
CLR

ERRCOD

MOV
RTS

#100,aLPCSR(R2)
JAND EXIT
PC

LET QLPCSR(R2) := #100

: CLEAR THE ERROR BIT AND ENABLE INTERRUPTS

BINARY TO DECIMAL ASCII CONVERSION ROUTINE
ENTER WITH NUMBER TO BE CONVERTED ON THE STACK

FOLLOWED BY THE ADDRESS OF A 5 BYTE BUFFER
FOR THE ASCI] STRING. 5 DIGITS WILL BE CONVERTED
LEADING JEROES WILL BE CONVERTED TO SPACES.

| CZLPLDO LP25. LP26, LPO7 TEST

| GLOBAL SUBROUTINES

SECTION

MACRO M1113

004554

no
no
P

004550
004552

004560

004574
004602

012737
000402

000004

004604

005337

004760

004610
004614

005737
002435

004760

004616
004622

026615
002405

000010

004624

161566

004630

005237

004634

000770

1241

005237

004754

004670
004672

000402

004676

50010%:

50007%:

COUNTD

MOV

#4 ,DIGITS

DEC

DIGITS

50012%:

COUNTD
ENDDO

50012%

IF COUNTD GT #0 OR FLAGDA GT #C THEN
COUNTD

50014%

FLAGDA

TST

50015%

BLE

LET COUNTD := COUNTD SET.BY #60

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

BIS

004756

COUNTD, (R&) +

MOvB
INC

000040

:= 8.(SP) = (RS)

LET COUNTD := COUNTD + #1

TST

50015%:

000002

LET 8.(SP)

: CREATE A DIGIT

; CONVERT DIGIT TO ASCII OR SUPPLY A SPACE

BR
MOVR

50016%:

062705

50011$
WHILE 8.(SP) GE (RS) DO

BGT
50014%:

50007%

BLT

004754

004676

1242 004676

004760

004756

004664

112724

CLR

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

50013%:

004756

004672

CLR
LET COUNTD := #0

INC

113724

1240 004676

; LEADING ZERO FLAG

FLAGDA

004756

004660

1239 004672

LET FLAGDA := #0

(RS) ,8.(SP)

000060

1238 004670

; GET ADDRESS OF DECIMAL TABLE

SuB

052737

1237 004664

LET RS := ATABLDA

000010

004652

1236 004660

; GET ADDRESS FOR ASCII STRING

8. (SP), (RS)
50013%

005737
003003
005737
003410

ST ST
eSS
S mEm S EmEm—Sms s S—e-smSmsR

LET R4 := 6(SP)

CMP
BLT

004636
004642
004644
004650
004652

1235 004652

e e Em

MOV

004742

004756

1234 004636

#TABLDA,RS

012705

P(,BINZDA

CALL BY JSR

AR S

MoV

000006

005037

004636

016604

004570

1232 004634

e S

6(SP) ,R4

004754

1231 004630

—

gttt

010446
010546

005037

1230 004624

SEQ 0030C

PAGE 17<2

BINZDA: PUSH R4 ,RS
R4 ,=(SP)
MOV
RS,=(SP)
MOV

004564

1229 004616
004616

30-DEC-80 79:36

ADD

LET FLAGDA :=
ELSE

FLAGDA

FLAGDA + #1

50016%

LET (R&)+ :B= #40

#4640, (R4)+
ENDIF

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

CZLPLDO LP2S, LP26, LPO7 TEST
. GLOBAL SUBROUTINES SECTION
1243 004702

004702

1244 004706
1245
1246 004710
1247 004716
1248 004722

005037

MACRO M1113

004756

ENDDECR

000736

50011%:

005737
001002

004754

112744

000060

004722
1251 004730

004730
004732

1252 Q04734
004734
1253 004740
1254

1255
1256 004742

004750

1257 004754

1258 004756
1259 004760
1260

000004

023420
000012
000009
000000
000000

001750
000001

500108

: IF NUMBER WAS A ZERO PRINT A *0°
IF FLAGDA EQ #0 THEN

BNE

MOvVB

FLAGDA

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

ENDIF

#60,=(R&)

; CLEAN UP THE STACK AND EXIT

LET 8.(SP) := 4(SP)
4(SP) ,8.(SP)
MOV
RS ,R4
POP
(SP)+ RS
MOV

000010

012605
012604

062706
000207

TST

50017%:
016666

PAGE 17-3

LET COUNTD := #0
COUNTD
(LR

004722

1249
1250 004722

30-DEC=-80 09:36

MOV

(SP)+ R4

ADD

#4,SP

TABLDA:

.WORDP

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

FLAGDA:

.WORD
.WORD
.WORD

0
0
O

LET SP := SP + #4
RTS

000144

COUNTD:
DIGITS:

SEQ 0031

CZLPLDO LP2S, LP26, LPO7 TEST
{70 DRIVER

MACRO M1113

.SBTTL

1262

1263
1264
1265
1266
1267

;THE

JRETURN

005006
1285
1286
1287
1288 005012

005012
1289 005020
005020
1290 005024
005024
1291 005032
005032
005034
1292
1293 005034
005034
1294 005040
1295

1296

1297

1298
1299

RTI.

IS INVOKED BY MEANS OF

IODRV.

THE

INTERRUPT SYSTEM.

;ENTER ROUTINE WITH R2 SET UP TO DESIRED UNIT 2. R2 IS USED
;7O CALCULATE OFFSET INTO PROPER TABLE.
;R1

EQUALS MAXIMUM NUMBER OF UNITS ON SYSTEM UNDER TEST.

1 CHECK FOR ERROR FLAG IN STATUS REG.

1276
1277

1284 005006

1/0 DRIVER ROUTINE

sCALL TO IT IS JMP

1270
1271
1272
1273
1274
1275

1283

1/0 DRIVER

c+e

1268

1279
1280
1281
1282

SEQ 0032

PAGE 18

1269

1278

30-DEC-80 09:36

032772
001061

100000

002356

1ODRV:

IF #BIT15 NOTSETIN @LPCSR(R2) THEN
#BIT15,aLPCSR(R2)
50020%

BIT

BNE

* IF COUNT NOT ZERO SEND NEXT BYTE
005762
003416

002752

117272

002552

005262

002552

TST
BLE

002452

IF CURCNT(R2) GT #0 THEN

CURCNT(R2)
50021%
LET QLPBUF (R2) :B= @CURADD(R2)
(R2)
DD
(R2) ,aLPBUF
aCURA

MOvB

LET CURADD(R?2)
CURADD (R2)

INC

:= CURADD(RZ2) + #1

* ENABLE INTERRUPT FOR NEXT BYTE
052762

020000

005362

002752

052772

000100

002512

DEC

002356

000437

BIS

50021%:
;

LET STATUS(R2)

:= STATUS(R2) SET.BY AACTIVE

LET CURCNT(R2)
CURCNT (R2)
LET aLPCSR(R2)

:= CURCNT(R2) = #1

#ACTIVE,STATUS(R2)

BIS

#100,aLPCSR(R2)

:= QLPCSR(R2) SET.BY #100

50022%

CURRENT MSG DONE,

PRINT COUNT NOT ZERO SEND AGAIN

LET REPCNT(R2)

:= REP(NT(R2) - #1

005362

002652

DCC

REPCNT (R2)

005762
003424

002652

TST

REPCNT (R2)

016262

002712

002552

MOV

MSGADR
(R2) , CURADD (R2)

016262

002612

002752

MOV

MSGCNT(R2) ,CURCNT (R2)

117272

002552

002452

~MovB

005262

002552

INC

005362

002752

DEC

(R2)
DD
(R2) ,aLPBUF
@CURA
LET CURADD(R2)
CURADD (R2)
LET CURCNT(R2)

BLE

IF REPCNT(R2) GT #0 THEN

50023%

LET CURADD(RZ)

:= MSGADR(RZ)

; RESTORE THE MSG ADDR

LET CURCNT(R2)

:= MSGCNT(RZ2)

; RESTORE THE BYTE COUNT

LET QLPBUF (R2)

:B= @(URADD(R2)

; RESEND THE MESSAGE

(URCNT(R2)

:= CURADD(R2)

+ #1

:= CURCNT(RZ) - #1

; BUMP THE POINTER
; DROP BYTE COUNT

|
.

CZLPLDO LP25, LP26, LPO7 TEST
170 DRIVER

1300 005100

005100
1301 005106
005106
1302 005114

MACRO M1113

1303

002512

BIS

012772

000100

002356

MOV

WACTIVE,STATUS(R2)
LET QLPCSR(R2)
#100,aLPCSR(R2)

50024$

042762

020000

002512

005126

012772

000000

002356

1307 005132

500248:

005132

500228:

1308 005132

1310
1311

05132
005134

1312 005134
005134

1313 005142
005142
1314 005150
1315

000410

052762

100000

002512

012737

000001

002336

1316 005154

005154

1317 005154

005154

1318 005156

500208:
:
;

004777

175736

000002

BIC

WACTIVE ,STATUS (R2)

MOV

#00,aLPCSR(R2)

LET @LPCSR(R2)

; RE-ENABLE INTERRUPTS

‘

:= STATUS(RZ)

CLR.BY #A(CTIVE

:= #00

ENDIF

ENDIF
ELSE

50025%

CLEAR ERROR CONDITION,
SET ERROR FLAG

BIS
MOv

LET ERRCOD := #STATER
ASTATER,ERRCOD
JSR PC,ERRSVC

ENDIF

POP R2

MOV
RTI

ENABLE

INTERRUPTS

LET STATUS(R2) := STATUS(R2) SET.BY #ERROR
MERROR,STATUS(R2)

500258:
012602

:= #100

SET.BY #A(CTIVE

ELSE

CLEAR ACTIVE AND DISABLE INTERRUPTS.
LET STATUS(R2)

005132

1309 005132

:= STATUS(RZ2)

500238:
; CURRENT MSG DONE, REPEAT COUNT =0

005116

1306 005124

LET STATUS(R2)

020000

005116

1304
1305 005116

SEQ 0033

PAGE 18=1

052762

005114 000406

30-DEC-80 09:36

ERROR SERVICE

(SP)+,R2

;

STATUS ERROR

SHOULD CLEAR ERROR BIT AND ENABLE

INTR

| CZLPLDO LP25, LP26, LPO7 TEST

170 CONTROL

‘
|
|

1320
1327
1898
1323

PAGE 19

.SBTTL 1/0 CONTROL
‘44

]

: THE 1/0 CONTROL SUBROUTINE IS A SINGLE ENTRY QUEUE MANAGER.

1324

(%%

30-DEC-80 09:36

THIS ROUTINE IS INVOKED BY A JSR FROM AN 1/0 CALL.

PRINTR

INPUTS:

(PR TR TE TR IR

MACRO M1113

19F

1328

1334 005160

005160
005162

BUFADD
BJU-CNT

=1 FOR ALL TERMINALS

N FOR PRINTER NUMBER ‘N’
ADDRESS OF MESSAGE TO PRINT
BYTE COUNT TO TRANSMIT TO PRINTER

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

IOCTRL: PUSH R2,R3

R2.=(SP)

MOV

010246
010346

R3,=(SP)

MOV

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

005164
005172

023727
001005

002320

005174

013703

002012

005200

005037

002074

005204
1343 005206

50026%:

005206

012703

005212

013737

002320

1345 005220

ELSE

000405

000001

1344 005212

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

177777

MOV

002074
50027%:

1346

50027%

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

ENDIF

PRINTR,LSLUN

* REPEAT TILL R3 = C

1347

1348

1349 005220
1350 005220

CTLLOP:

005220
005222

005703
001002

005224

000137

1351 005224

1352 005230

IF R3 EQ #0 THEN
TST

BNE

005536
50030%:

1353

50030%
INLINE <JMP CTLEND>

JMP
ENDIF

CTLEND

* USE R2 AS AN INDEX INTO THE UNIT TABLES

1356 005230

005230
005234

013702
006302

002074

005236

005037

002336

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

CLR

LET ERRCOD := #0
ERRCOD

SEQ 0034

K
|
1

CZLPLDO LP2S, LP26, LPO7 TEST
170 CONTROL

MACRO M1113

SEQ 0035

PAGE 19-1

30-DEC-80 09:36

: IF THE UNIT HAS BEEN DROPPED SELECT THE NEXT UNIT

1359
1360

1361 005242
1362
1363
1364

005242
005250

032762
001123

040000

BIT

002512

IF #DROPED NOTSETIN STATUS(RZ) THEN

BNE

(R2)
#DROPED,STATUS
50031%

:TEST FOR DVC ERROR BIT SET

1365 005252
005252
005260

BIT

002356

032772
001407

100000

012737

000001

002336

MOV

005270

052762

100000

002512

BIS

005276
005300

000455

1366 005262
005262
1367 005270
1368 005276

BEQ

50032%:

IF #BIT1S SETIN @LPCSR(RZ) THEN

#RIT15,aLPCSR(R2)
50032%

LET ERRCOD := #STATER

: STATUS REG ERROR BIT 15 SET IN (SR

#STATER,ERRCOD
LET STATUS(R2) := STATUS(RZ2) SET.BY #ERROR

#ERROR,STATUS(R2)
ELSE

50033%

: MAKE SURE PREVIOUS MSG IS DONE
005762
003452

002752

032762

020000

001004

012737

1380

1381 005336
1382 005344

012762

000003

020000

002336

1385 005406

002512

50037%:

MOV

LET ERRCOD := #NOINTR
lNOINTR,ERREOD

50036%

WHILE #ACTIVE SETIN STATUS(RZ2) DO

BIT

BEQ

#ACTIVE ,STATUS(R2)
50040%

MOV
.WORD
MOV
.WORD
DEC

#2.,(PC)+
O
LSDLY, (PC)+
O
-6(P(C)

DEC
BNE

=22(PC)
.=20

003052

DEC

DELCNT(R2)

003052

TST
BNE

DELCNT(R2)

000002

003052

: NO INTERRUPT

#100. ,DELCNT(R2)

177756

005404

50035%

MOV

000144

177772

1384 005400

BNE

50035%:

002116

1383 005374

BIT

IF #ACTIVE NOTSETIN STATUS(RZ2) THEN
#ACTIVE ,STATUS(R2)

50034%

: OUTPUT WAS QUEUED BUT 1/0 DRIVER WAS NEVER INVOKED (VIA INTERRUPT)

000442

032762
001436

CURCNT (R2)

BLE

002512

IF CURCNT(R2) GT #0 THEN

TST

BNE

LET DELCNT(R2) := #100.
DELAY 2.

: 20 SEC. DELAY MAX

: 200MS LOOPS

.~4

50041%

LET DELCNT(R2) := DELCNT(R2) = #1
IF DELCNT(R2) EQ #0 THEN
LET ERRCOD := #TIMOUT

L
|

CZLPLDO LP25, LP26, LPO7 TEST
170 CONTROL

005406

012737

(000002

MACRO M1113

1386 005414
005414 042762 020000 002512
1387 005422
005422

1388 005430

052762

100000

002512

005432
1390 005432
005432
1391 005432
005432
1392 005432
005432

1393 005432

005432

9% 005436

MOV

#T1MOUT ,ERRCOD

BIC

#ACTIVE,STATUS(R2)

BIS

(R2)
: #ERROR,STATUS

000736

50040%:

’

ENDIF

50033%:

005737

;

ENDIF

500348%:

001403

ENDDO

50037%

50036%:

TST

002336

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

ENDIF

50041%:

005430

1389 005430
005430

PAGE 19-¢

30-DEC-80 09:36

002336

SEQ 0036

BEQ

IF ERRCOD NE #0 THEN

ERRCOD

50042%

; REPORT THE ERROR

}ggg

1397 005440

1398 005444
005444
1999 005446

004777

175446

000425

50042%:

1403 005446

005446

013762

002350

002552

MOV

005454

013762

002350

002712

MOV

1404 005454

1405 005462
005462 013762 002352 002752
1406 005470
005470 013762 002352 002612
1407 005476
005476
1408 005504
005504

005510

1409 005512

005512

1410 005520
005520
1411 005520
005520

013762

002354

005762
003403

002752

012772

000100

ELSE
50043%

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

1400
}28}

PC.@ERRSVC

JSR

MOV
MOV
MOV

002652

TST
BLE

MOV

002356
500448:

LET REPCNT(R2) := BUFREP

LET @LPCSR(R2) := #100

; ENABLE INTERRUPTS

BUFREP ,REPCNT (R2)
IF CURCNT(R2) GT #0 THEN
CURCNT (R2)
50044%

#100,aLPCSR(R2)
ENDIF

ENDIF

%18 005520

50031%:

;2}%

; CLEAR OUT ANY TIMEOUT COUNT

1416 005520
1P 005520

005062

003052

CLR

; BYTE ADDRESS
; MESSAGE ADDRESS
; OUTPUT COUNT

: BYTE COUNT
; PRINT COUNT

T
(R2)
BUF CNT ,MSGCN

ENDIF

50043%:

1412 005520

LET CURADD(R2) := BUFADD
BUFADD, CURADD (R2)
LET MSGADR(R2) := BUFADD
(R2)
,MSGADR
BUFADD
LET CURCNT(R2) := BUFCNT
T
(R2)
BUF CNT, CURCN
LET MSGCNT(R2) := BUFCNT

LET DELCNT(R2) := #0
DELCNT(R2)

CZLPLDO LP25, LP26, LPO7 TEST
170 CONTROL

1422 005532
1423 005536
1424 005536

1425 005542

1426
1427

005303

DEC

005237
000137

INC
JMP

CTLEND:

PAGE 19-3

POP
MOV
MOV

LET R3 := R3 - M
R3

LET LSLUN := LSLUN + #1
LSLUN
CTLLOP

R3.R2

RTS

000207
MR2

1 SUBROUTINE

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

QUIET

OUTPUT
* THIS SUBROUTINE WILL EFFECTIVLY DELAY UNTIL ALL QUEUEDNULL
: IS FINISHED. THE DELAY IS ACCOMPLISHED BY QUEUEING A

1431

; MESSAGE TO ALL LINES.

1432

1438

002074
005220

012603
012602

1428
1429
1430

1433
1434
1435 005544
1436 005606
1437 005610

30-DEC-80 09:36

: SELECT THE NEXT UNIT AND DECRIMENT THE L INECOUNT

1418
1419

1420 005524
52
1421 005526

MACRO M1113

SEQ 0037

000240
000207

QUIET:

OUTPUT
NOP
RTS

#0,4#0
PC

; NULL MESSAGE OUTPUT

N
CZLPLDO LP2S, LP26, LPO7 TEST
170 CONTROL

MACRO M1113

1440
1441
1442

SEQ 0038

PAGE 20

TS
S
S
S S
S L
S S
S S S
S S L
L S S
S S
L
L S
S
S
S
L S S S
S
S T
S S S
S S
S
S
S
S
s
SS S s
ssmsmsm===r

FUNCTIONAL DESCRIPTION :

DROPIT

THIS SUBROUTINE IS USED TO DROP A BAD PRINTER FROM THE TEST
DISABLE ANY INTERRUPTS FROM THE PRINTER, AND NOTIFY THE
OPERATOR THAT THE PRINTER WAS DROPPED.

1443

1444

1445

1446
1447

1448 005612

005612

052762

040000

002512

005620

012762

177777

002752

005626
1451 005632
005632
005636
005642
005646
005650
005652

005072

002356

013746
012746
012746
010600
104417
062706

002074
004306
000002

005656

005062

003114

005662

005337

002342

005666
005672

005737
001011

002342

005674
005700
005704
005706
005710

012746
012746
010600
104417
062706

003764
000001

005714

104444

1449 005620

1450 005626

1452 005656

1453 005662

1454 005666

1455 005674

1456 005714

1457 005716
005716
1458 005716

1459
1460
1461
1462
1463

DROPIT: LET STATUS(R2) := STATUS(R2) SET.BY #DROPED
(R2)
#DROPED,STATUS
BIS
LET CURCNT(R2) := #-1
MOV
#-1,CURCNT
(R2)
LET QaLPCSR(R2) := #0
aLPCSR(R2)
CLR
PRINTF #LPDROP,

MOV
MOV

TRAP
ADD

000006

LSLUN

LSLUN,=(SP)
#LPDROP,~(SP)

#2,-(SP)
SP,RO

CSPNTF
#6,SP

LET ERRTBL(R2) := #0
ERRTBL (R2)
CLR
LET UUT := wT - 7
uuT
DEC
IF UUT EQ #0 THEN
TST

BNE

uuT

50045%

PRINTF AUUTEQO

MOV
MOV
MOV

TRAP
ADD

000004

50045%:

000207

#UUTEQO,~(SP)
#1,-(SP)
SP.RO

CSPNTF
#4,SP
DOCLN
TRAP
C$DCLN
ENDIF

RTS

; NOTHING TO TEST

———————

F AKE

1464

FUNCTIONAL

DESCRIPTION:

: THIS SUBROUTINE IS REQUIRED TO INSURE PROPER PASS COUNT REPORTS

1465

1466

30-DEC-80 09:36

1467
1468
1469 005720

005720

1470 005724

005724
005724
005732
1471 005734

005734

;
B

005037

002074

023737
002007

002074

013700

002074

IN A MULTI UNIT MODE OF OPERATION.

——————————————————————————
T
—
T
——————— ———————
L
S
L
S
S
S
S
S
S
S
S
S
S
S
L
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
T
S
S
S
S
S
S
S
s
S
S
s
mSsmemsmmmm=m==—- _——=====

FAKE :

002012

50046$:

LET LSLUN := #0
CLR
LSLUN
WHILE LSLUN LT LSUNIT DO

CMP

BGE

LSLUN,LSUNIT

5004
7%

GPHARD
LSLUN, R3
LSLUN,RO
MOV

CZLPLDO LP25, LP26, LPO7 TEST
170 CONTROL

005740
005742

1472 005744

005744
1473 005750
005750
005752
1474 005752

1475
1476
1477 005754

MACRO M1113

30-DEC-80 09:36
TRAP

104442

000765
000207

PAGE 20-1

($GPHRD

RO,R3
LET LSLUN := LSLUN ¢+ #1
LSLUN
INC

MOV

010003
005237

002074

ENDDC

-50047%:

50046%

RTS

ENDMOD

SEQ 0039

CZLPLDO LP2S, LP26, LPO7 TEST
INITIALIZATION SECTION

MACRO M1113

30-DEC-80 09:36

JSBTTL

12;8

SEQ 0040

PAGE 21

INITIALIZATION SECTION

1481
1482
1483

AND IS
“THE INITIALIZE ROUTINE IS EXECUTED AT THE BEGINNING OF EACHIONSUB-PASS
D FROM
REQUESTE
INFORMAT
RS.
PARAMETE
*PRIMARILY USED FOR REQUESTING P-TABLE
VECTORS,
,
ADDRESSES
DEVICE
TEST,
UNDER
*THE OPERATOR INCLUDE THE NUMBER OF UNITS

1487 005754
1488 005754
005754

BGNMOD
BGNINIT
LSINIT::

1490

:OR POWER FAIL RESTART

;40

SCLOCK TYPE, AUTO OR MANUAL PRINTING SPEED MEASUREMENT, AND WHETHER A DAVFU
:OPTION IS INSTALLED IN THE SYSTEM.

1484
}232

sRESET EXTERNAL BUS IF START EVENT FLAG IS SET

1489

1491 005754

005754

005760

1492 005762

012700
104447

005762

103466

005764

012700

1493 C05764

005770

1494 005772

00577

1495
1496 005774
1497 006000

104447

000014

003160

1500 006056
006056
006064

012737
000402

000006

003156

006066

005337

003156

006072
006100
1501 006102
006102
006106
006110
006114
006116
006122
006124
006130

(23727
002415

003156

012727
000000
013727
000000
005367
001375
005367
001367

000250

006132

000755

006134

1503 006134

006134

001640

1505 «

1506

50051%:

000001

50050%:

002116
177772

177756

CSREFG

JSR
SETPRI
MOV

PC,FAKE
#PRIOO
#PRI00,RO

DEC

WORK1

CMP
BLT
MOV
.WORD
MOV
.WORD
DEC
BNE
DEC
BNE

1 ,#1
WORK
50052¢%
DELAY 250
#250, (PC)+
O
LSDLY, (PC)+
O
-6(PC)
=4
=22(PC)
=20

50052%:

50051%

:TEST START EF INDICATOR
:BRANCH IF FROM START UP
:NOW THE RESTARTFLAG

:1F EITHER START OR POWER FAIL RESTART
:DO A BUS RESET
: UPDATE PASS COUNT
: PRIORITY ZERO

C$SPRI
TRAP
LET OUTBUF :B= #14
#14 ,0UTBUF
MOVR
OUTPUT #OUTBUF ,#1
DECR WORK1 FROM #6 TO #1 BY #1
#6,WORK1
MOV
50050%
BR

ENDDEC

EXIT INIT
TRAP

104432

1504 006136

TRAP

,RC
#EF .RESTART

BCS

112737

1502 006132

#EF .RESTART

BCOMPLETE 1%

000000

006072

READEF
MOV

000037

012700

006066

CSREFG

BCS

103462

104441

TRAP

#EF .START RO

BCOMPLETE 1%

005720

006000

#EF.START

MOV

(00040

004737

006004
1498 006006
006006
1499 006014

READEF

.WORD

CSEXIT

: ELSE EXIT INIT CODE

L10004~-.

:POWER UP RESTART OR START COMMAND [SSUED

CZLPLDO LP2S, LP26, LPO7 TEST
INITIALIZATION SECTION
1507 006140

006140

1508 006142

ADD

006172
006176
006202
006204
006206

012746
012746
010600
104417
062706

007241
000001

MOV

-l
e

#NRGT16,~(SP)
#1,-(SP)

SP,RO

MOV

TRAP

006216
006222
.+ 006226
006230
006232

012746
012746
010600
104417
062706

007374
000001

006236
006242
006246
006250
006252

012746
012746
010600
104417
062706

007467
000001

CSPNTF

#4 ,SP
PRINTF ANRGT17

MOV

TRAP
ADD
ENDIF
MANUAL

TRAP

103034

000~

MOV

50053%

PRINTF ANRGT16

MOV

50053%:

006214

#NRGT17,-(SP)
#1,-(SP)

SP.RO

CSPNTF
#4,SP

CSMANI

BNCOMPLETE
2%
BCC

CHECK FOR UNATTENDED MODE

IF UNATTENDED BYPASS MANUAL INSTRUCTIONS

PRINTF #RESET1

MOV
MOV

H#RESET1,-(SP)
#1,-(SP)

MOV

#RESETZ2,=(SP)

MOV
TRAP

SP.RO
CSPNTF

MOV
SP,RO
CSPNTF
TRAP
#4,SP
ADD
PRINTF #RESETZ2

000004

MOV
ADD

000004

#1,-(SP)

#4,SP

SWAIT FOR A '‘CR'' BEFORE GOING ON

1520 006256

006256

005037

002274

006262

005037

002336

006266

005037

002342

1521 006262

1522 006266

1523 006272
1524 006272

~NO D

BLE

000004

104450

rnornorno

000020

000004

1516 006236

b i

LSUNIT #16.

006272
006274
006276
006300
006302
006304
006306

104443
000404
002274
000130
007603
100000

THE BUS

IF LSUNIT GT #16. THEN

007156
000001

1514
1515 006216

CMP

012746
012746
010600
104417
062706

00621c

JRESET

CSRESET

006152
006156
006162
006164
006166

1513 006214

104433

SEQ 0041

PAGE 21-1

BRESET
TRAP

002012

006212
C
1512 006212

V.1V,

1%:

023727
003420

1510 006172

30-DEC-80 09:36

006142
006150

1509 006152

1511

MACRO M1113

LET FLAG := #0
CLR

FLAG

CLR

ERRCOD

CLR

uuT

GMANIL

READY,FLAG,100000,YES

LET ERRCOD := #0

LET UUT := #0
100%:

TRAP

10000%

.WORD

FLAG

.WORD

READY

.WORD

100008%:

C$GMAN

.WORD

T$CODE

100000

"XEQUEST P-TABLE FOR PRINTERS UNDER TEST

CZLPLDO LP2S, LP26, LPO7 TEST
1528 006306

1529

1530

013701
005301

002012

005037
000402

002074

005237

002074

023701
003135

002074

013700

002074

1044472

006302

guww
WS W

i
i

013702

001004

1537

042762

1538

1540

1541

1542

50055%:
50054%:

1544

1545

LSLUN
50054%

INC

LSLUN

LSLUN,R1
50056%
GPHARD LSLUN,R3
LSLUN,RO
MOV

CMP
BGT

RO,R3

MOV

0C207¢4

ASL

LET R2 := LSLUN SHIFT 1
LSLUN,R2
RZ

ERROR COUNT, OUTPUT COUNT, GET DEVICE TYPE TO STATUS.
IF 4(R3) EQ_#0 THEN
4 (R3)
TST

000004

BNE

BIC

002512

50057%

LET STATUS(R2) := STATUS(R2) CLR.BY #FLAG26'!FLAGO7
(R2)
S6
G2
! FLAGO7,STATU
#FLA

ELSE

50057%:
000007

50060%

(MP
BNE

IF 4(R3) EQ #1
)
4(R311
50061%

026327
001007

000004

052762

001000

002512

BIS

042762

002000

002512

BIC
50061%:

THEN

LET STATUS(R2) := STATUS(R2) SET.BY A#FLAG26

#FLAG26,STATUS(R2)

LET STATUS(R2) := STATUS(R2) CLR.BY #FLAGO7

ELSE

#FLAGO7,STATUS(R2)
50062%

LET STATUS(R2) := STATUS(R2) CLR.BY #FLAG26

042762

001000

002512

BIC

#FLAG26,STATUS(R2).

052762

002000

002512

BIS

(R2)
#FLAGO7,STATUS

1546

50060%:

1547

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

ENDIF

NOW GET THE BAND TYPE

1548
1549

005763

001004

006442

;BRANCH IF DEVICE NOT PRESENT

orc BNCO??LETE 3%

50062%:

1550 0064 34

JREQUEST P-TABLE ADDRESS

C$GPHRD

TRAP

000406

1543

CLR
BR

042762

TST

000006
010000

JMAXIMUM NUMBER OF UNITS

INCR LSLUN FROM #0 TO R1 BY #1

000421

1539

MOV
DEC

LSUNIT,R1
R1

MoV

003000

SEQ 0042

PAGE 21-2

LET R1 := LSUNIT = #1

2%:

CLEAR

005763

1551

30-DEC-80 09:36

103124

1532

MACRO M1113

010003

1531

wvioavan

INITIALIZATION SE CTION

¢4

BNE
002512

BIC

64 OR 96 (HARACTER

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

50063%

LET STATUS(R2) := STATUS(R2) CLR.3Y #FLAG96
#FLAGY6,STATUS(R2)

C2LPLDO LP2S, LP26 LPO7 TEST
INITIALIZATION SECTION

1552 006450

006450

006452

1553 006452
006452
1554 006460

006460
1555 006460

006460
1556 006464
006464
1557 006472
006472
1558 006476
- 006476

MACRO M1113

000403

052762

30-DEC-80 09:3¢

50063%:

010000

BIS

002512
500648:

005062

003114

012762

177777

005062

003052

005062

002652

ELSE

SEQ 0043

PAGE 21-3

50064%

LET STATUS(R2) := STATUS(R2) SET.BY #FLAG96
#FLAG96,STATUS(R2)

ENDIF

LET ERRTBL(R2) := #0
ERRTBL (R2)
LET CURCNT(R2) := #-1
#-1,CURCNT(R2)
MOV
LET DELCNT(R2) := #0
DELCNT(R2)
CLR
LET REPCNT(R2) := #0
REPCNT(R2)
CLR

(LR

002752

:LOAD CSR ADDRESS INTO TABLE

}22?

1562 C06502

006502
1563 006506
006506

e 006514

012362

002356

016262

002356

062762 000002

LET LPCSR(R2) := (R3)+

:SET UP (SR ADDRESS FOR DLVICE

(R3)+,LPCSR(R2)
LET LPBUF (R2) := LPCSR(R2) + #?2
LPCSR(R2) ,LPBUF (R2)
MOV

MOV

002452

ADD

002452

#2.,LPBUF (R2)

:SET UP VECTOR ADDRESS INTO GIVEN TABLE

1522

1567 006522
‘os8 006522

012362

MOV

002416

LET LPVEC(R2) := (R3)+
(R3)+,LPVEC(R2)

:SET UP DEVICE INTERRUPT VECTOR INFORMATION

1298
1571 006526
006526
006532
006536
006542

1572 006546
006546
1573 006554
006554
1574 006562
006562
006566
006572
006576
006602
— 006604

010237

}gg}
1583 006616

ASL
ASL
ASL

006337
006337
006337

003154
003154
003154

062737

036220

003154

013762

003154

003012

012746
016246
016246
012746

000200
003012
002416
000003

104437
062706

000010

WORK
WORK
WORK

LET WORK := WORK + #INTOQ0
#INT0O,WORK
ADD
LET LPINTR(R2) := WORK
WORK ,LPINTR(R2)
MOV
SETVEC LPVEC(R2), LPINTR(R2), #PRI04
#PR104 ,-{SP)
MOV
LPINTR(R2) ,=(SP)
MOV
LPVEC(R2) ,-(SP)
MOV
#3,-(SP)
MOV
C$SVEC
TRAP
#10,SP
ADD

: ADD ONE TO UNIT UNDER TEST COUNT

%g;g
1578 006610
006610
}ggg 006614

LET WORK := R2 SHIFT 3
R2,WORK
MOV

003154

005237
000403

002342

LET UUT := WwuT + #1
uuTt
INC
BR 4%

:INDICATE LSLUN NOT AVAILABLE FOR TESTING
LET STATUS(R2) := STATUS(R2) SET.BY #DROPED
3g:

CZLPLDO LP2S, LP26, LPO7 TEST
INITIALIZATION SECTION

006616
1584 006624
006624
006626

052762

040000

MACRO M1113

002512

000636

PAGE 21-4

30-DEC-80 09:36

BIS

#DROPED, STATUS (R2)

50055%

END INC

4%:
50056%:

1592
1593

1594
1595
1596
1597

1598

1599
1600
1601
1602
1603
1604

1605
1606
1607

"".".".'.".'

'Ol..".l..'

LTSETUPT TO HANDLE CLOCK INTERRUPTS
012737

000001

012700

000114

104462
010004

1609
1610 006776

002322

MoV
CLOCK
MOV
TRAP
MOV

010437

002324

017737

173440

50065%
LET CLKTYP := #2
#2,CLKTYP
MOV
LET CLOCKP := R4

002322

MOV

002326

MOV
MOV

012777

000000

173432

016437

000004

002332

000010

002264

012737

000004

aCLOCKP,CLKCSR

LET @CLKCSR := #00
#00,3CLKCSR

MOV
MOV
MOV
MOV
TRAP
ADD
ENDIF

CLKVEC,#IGNORE ,#PRI06

#PRI06, -(SP)
- (SP)
#1GN,ORE
CLKVEC,=(SP)

#3,-(SP)

CS$SVEC
#10,SP

TST MANSPD

K1
BEQ
LET CLKTYP := #4

002322

MOV

#4,CLKTYP

MOV

#PR]100,R0O

SETPR] #PRI00

000000

TRAP

; START TEST AT PRI 0

C$SPRI

EXIT INIT
TRAP

CSEXIT

.WORD

L10004~-.

(LOCK
MOV

P,Ré&
#'P.RO

010004

MOV

RO,R4

103016

BCC

001022

012737

; TRY TO DISABLE INTERRUPTS

: IF THE OPERATOR WANTS MANUAL SPEED TEST SET CLOCK TYPE = 4

104432

012700

: WE HAVE AN L=CLOCK

R4 ,CLOCKP
LET CLKCSR := aCLOCKP

SETVEC

000300
010000
002332
000003

005737
001410

; TEST FOR L=CLOCK

; SETUP THE NOOP HANDLER
LET CLKVEC := 4(R4)
4(R4) ,CLKVEC
MOV

50065%:

104441

#°'L,RO
C$CLCK
RO,R4

BCC
000002

012700

#1,CLKTYP
L,Ré4

IFCOND CS THEN

012737

012746
012746
013746
012746
104437
062706

'SYSTEM THEN SETUP A NOOP INTERRUPT

" HANDLER BECAUSE LS! SYSTEMS MAY HAVE THE CLOCK ENABLFD AT ALL TIMES.
; DEFAULT FOR NO CLOCK ON SYSTEM
LET CLKTYP := #1

103031

104462

1608

;GO BACK AND DO IT AGAIN

----------------------------------------------------------------------O'll'.""0".'0"""..".

* IF AN L-CLOCK IS EN_THE

1591

SEQ 0044

: IF A P=CLOCK IS ON THE SYSTEM UPGRADE CLOCK TYPE TO 3
(k1:

000120

TRAP

($CLCK

IFCOND (S THEN

000003

002322

50066%
LET CLKTYP := #3
#3,CLKTYP
MOV
LET CLOCKP := R&

: WE HAVE A P=CLOCK

CZLPLDO LP2S, LP26, LPO7 TEST
INITIALIZATION SECTION
1611

MACRO M1113

010437

(02324

007002

017737

173316

002326

MOV

007010

016437

000004

002332

MOV

007016

012777

000000

173302

MOV

007002

1613
1614 007016
1615 007024

007024

1616
1617 007024

50066%:
:

007024
007032

023727
001020

002322

007034
007040
007044
007046
007050

012746
012746
010600
104417
062706

007640
000001

007054
007060
007064
007066
007C70

012746
012746
010600
104417
062706

1618 007034

1619 007054

1620 007074
007074

50067%:

007102

112737

000014

007152
007154

104432
000622

1627 007156

045

116

1629 007275
1630 007374

045
045

1633 007603
1634 007640
}2%2 007702

104
045

}2?5 007774

000000

1622 007102

1623 007110
1624 007152

1628 007241

}g;} 007467

1639
1640 007776
007776

1641

1642

007776

045

104411

LET CLKVEC

:= 4(R4)

: TRY TO DISABLE THE P=(CLOCK
LET QCLKCSR := #00

#00,aCLKCSR

ENDIF

21
CLKTYP,
50067%

MOV
MOV
MOV
TRAP
ADD

000004

000000

:= @CLOCKP

4(R&4) ,CLKVEC

CMP
BNE

007702
000001

012700
104441

LET CLKCSR

aCLOCKP,CLKCSR

MOV
MOV
MOV
TRAP
ADD

007074

PRINTF #NOCLCK

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

PRINTF

ENDIF
SETPR]I

LET OUTBUF

#NOTIM

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

#PRIOO

MOV
TRAP

003160

PAGE 21-5

IF NO CLOCKS ON THE SYSTEM NOTIFY THE OPERATOR
IF CLKTYP EQ #1 THEN

000004

007074
007100

;ggg

000001

SEQ 0045

R4, CLOCKP

MOV

006776

1612 007010

1621

30-DE(C-80 09:36

#PR100,R0O
C$SPR]

:B= #14

MOVR

#14 ,0UTBUF

OUTPUT #OUTBUF ,#1
EXIT INIT

TRAP
.WORD
NLIST BEX

CSEXIT
L10004~-.

045

NRGT16:

.ASCIZ

/INXANUMBER OF LINE PRINTERS UNDER TEST EXCEEDS 16./

116
116

045
045

MRESET:
RESET1:

.ASCIZ
/XNXARESET LINE PRINTER(S), DO FORM FEED,
AND PLACE ON LINE.Z%N/
.ASCIZ /XNXARESET LINE PRINTER(S),SET FORMS LENGTH TO 11 INCHES,2%N/

105
116
116

120
045

READY:
NOCLCK:
Ngrén:

.ASCIZ
.ASCIZ

LASCIZ

/DEPRESS 'RETURN'' WHEN READY./
/XZNXAHARDWARE CLOCK NOT AVAILABLE./
/INXAAUTO PRINTING SPEED MEASUREMENT CANNUT BE PERFORMED./

PLOC:

. WORD

116

101

045

123

045

NRGT17:

RESET2:

.EVEN

_ASCIZ

TRAP

16 WILL BE

TESTED./

.ASCIZ /XASET VERTICAL DENSITY TO 6 LINES PER INCH,DO FORM FEED AND PLACE ON L INEZN/

LLIST BEX
ENDINIT
L10004:

/XNXAONLY

CSINIT

R R

R R R

R R

P25, LP26, LPO7 TEST
(2 LPLDO
IN ITIALILATION SECTION

MACRO M1113

;

1643
1644
1645

30-DEC-80 09:36

AN INTERRUPT CATCHER FOR THE _=(CLOCK

1GNORE

THAT

1647

1648 010000
1649 010000
1650
1651

I GNORE :

000002

IGNORES

THE

INTERRUPT.

USED FOR SYSTEMS WHERE CLOCK CANNOT BE TURNED OFF.

1646

SEQ 0046

PAGE 21-6

RTI

. NOOP

1652

1653
1654
1655
1656
1657
1658
1659
1660
1661

8888§§

wd
i
D
s

N)
= = - b b wuib
oo HHOO0

888

1665

1664

R —d

16€3

OO0 olelalelels]

1662

FUNCTIONAL DESCRIPTION

; RESVEC

013703

1670 010062
1671

°'NORMAL'

MOV

PUSH
R3,R4
R3,-(SP)

CLR

MOV

002012
50070%:

005703
003417

TST

BLE

012746
016446
016446
012746

000200
003012
002416
000003

062706
062704

SETUP ALL UNITS VECTOR AREAS

TO THE

MOV

005004

MOV

INTERRUPT ROUTINES STARTING AT

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

50071%
SETVEC LPVEC(R4), LPINTR(R4), #PR104
#PRI04 ,-(SP)

000010

LPINTR(R4) ,-(SP)
LPVEC(R4) ,=-(SP)
#3,-(SP)
C$SVEC
#10,SP

000002

ADD

#2 R4

005303

DEC

000757

50070%

012604
012603
000207

50071%:

MOV

INTOO.

R4 ,=-(SP)

MOV
MOV
MOV
TRAP
ADD

104437

1669 010056

RESVEC::

010346
010446

THIS SUBROUTINE WILL

LET R4

:= R4 + #°2

LET R3

:= R3 - #1

ENDDO

POP R4 ,R3
(SP)
+ ,R4

(SP)+ _,R3

RTS

CZ2LPLDO LP2S, LP26, LPO7 TEST

CLEANUP CODING SECTION

MACRO M1113

30-DEC-80 09:36

.SBTTL

1673

SEQ 0047

PAGE 22

CLEANUP CODING SECTION

1674 010064

STARS

1675

:THE PURPOSE OF THE CLEANUP SECTION IS TO CLEANUP ALL PRINTERS UNDER TEST
SAND RETEST ANY UNITS WHICH HAVE BEEN DROPPED FROM TESTING TO INSURE THAT
STHEY HAVE NOT COME BACK ON LINE. IF THE DEVICE HAS COME BACK ON LINE
TESTING WILL BE RESTARTED ON THE DEVICE. THIS INSURES THAT
:IN THE EVENT A PAPER OUT OCCURRED AND THE OPERATOR HAS PUT ADDITIONAL PAPER

.'.'l".'t"'.!"'.'.t"'l""fi'."'.'t""i"t'.Q'*'.'Q.Q'Q'...Qi.

1676
1677
1678
1679

1680
1681

}23%

:INTO THE UNIT UNDER TEST, THE INITIALIZATION SEQUENCE DOES NOT
:HAVE TO BE DONE AGAIN IN ORDER TO GET THE DEVICE ACTIVE.

1684 010064

STARS

1685 010064
010064

BGNCLN
L$CLEAN::

1686 010064

""'.'t'fi"'"’fit"'.fi.fi'"'Q'""QQ.QfiQ'.Q""Q.Q.Q'.'Q"Q""'."'

010064
C10070

012700
104441

. 010072

104433

1687 010072

1689 010074

C©13701
005301

002012

005037
000402

002074

005237

002074

010114
010120

023701
003020

002074

1692
1693 010122
010122
010126

013702
006302

002074

1695 010130
C10130

042762

1691

1694

1696 010136
010136
1697 010144
010144
1698 010150
010150
1699 010154
010154
1700 010160

CSRESET

CLEAN:

50073%:
50072%:

LET R1T := LSUNIT - M

:NUMBER OF UNITS-1

R
LSUNIT,
MOV
R1
DEC
INCR LSLUN FROM #0 TO R1 BY #1
LSLUN
CLR
50072%
BR
LSLUN

INC

LSLUN,R1
CMP
50074%
BGT
: DISABLE ALL INTERRUPTS, SELECT ALL LINES
: ZERO ALL ERROR COUNTS
LET R2 := LSLUN SHIFT 1
LSLUN,R2
MOV
R2
ASL

: CLEAR ALL BITS IN STATUS EXCEPT DEVICE TYPE

160377

002512

012762

177777

002752

MOV

005062

003114

005062

003052

005062

002652

000753

1701 010162
1702 010166
010166
010174

004737

0210002

023727
001006

002322

1703 010176

BRESET

LET STATUS(R2) := STATUS(R2) CLR.BY #ERROR'!DROPED'!ACTIVE'!LOBYTE
#ERROR 'DROPED 'ACTIVE 'LOBYTE ,STATUS(R2)
BIC

010160
010162

#PR107,R0O
C$SPRI

TRAP

010074
010100
1690 010102
010102
010106
010110
010110
010114

SETPR] #PRI0O7

MOV
TRAP

000340

LET CURCNT(R2) := #-1
#-1,CURCMT(R2)
LET ERRTBL(R2) := #0
ERRTBL (R2)
(LR
LET DELCNT(R2) := #0
DELCNT(R2)
CLR
LET REPCNT(R2) := #0
REPCNT (R2)
(LR
END INC

50074%:

000003

50073%

PC,RESVEC
JSR
IF CLKTYP EQ #3 THEN
#3
CLKTYP
(MP
50075%
BNE
CLRVEC @CLKVEC

: RESET THE VECTORS

CZLPLDO LP2S, LP26, LPO7 TEST

CLEANUP CODING SECTION

MACRO M1113

PAGE 22-1

aCLKVEC,RO

010176
010202

017700
104436

172130

MOV

010204

012777

000000

LET @CLKCSR := #00
#00,aCLKCSR
MOV

1704 010204

1705 010212

TRAP

172114

50075%:

010212

1706 010212

010212, 023727
010220 001013

002322

012746
012746
013746
012746
104437
062706

000300
010000
002332
000003

1707 010222

010222
010226
010232
010236
010242
010244

1708 010250
010250
1709 €10250

010250
010254

1710 010256

010256

171

30-DEC-B0 09:36

010256

1712 010260

000002

50076%:

012700
104441
104412

ENDIF

IF CLKTYP EQ #2 THEN
CLKTYP,#2
CMP
50076%
BNE
SETVEC CLKVEC,#IGNORE,#FPRI06
#PR106,~(SP)
MOV
MOV
MOV
MOV
TRAP
ADD

000010

000000
ENDCLN

L10005:
ENDMOD

CS$CVEC

ENDIF

#1GNORE ,=(SP)
CLKVEC,=(SP)
#3,-(SP)
C$SVEC
#10,SP

SETPRI #PR100
MOV
#PR100,RO
TRAP

C$SPRI

TRAP

($CLEAN

SEQ 0048

FWN
=20 00NN &~

——— -

NNNNNNYVYVNY ~
NIRININIAY
— -3 — b —b

| C2LPLDO LP2S, LP26, LPO7 TEST
| INTERFACE LOGIC

30-DEC-80 09:36

MACRO M1113

SBTTL

SEQ 0049

PAGE 23

INTERFACE LOGIC

BGNMOD

010260

‘44

.
*THIS TEST VERIFIES THE OPERATION OF THE INTERFACE LOGIC. TESTS ARE
READY
PRINTER
CLEARING
AND
READY,
PRINTER
*PERFORMED FOR PRINTER ERROR,

IT IS VERIFIED
:BY LOADING A CHARACTER INTO THE OUTPUT BUFFER.AT ALSO
THE SAME PRIORITY LEVEL

STHAT THE PRINTER WILL NOT INTERRUPT IF IT IS
*AS THE PROCESSOR, BUT WILL INTERRUPT IF THE PROCESSOR IS AT A LOWER
;PRIORITY LEVEL. THE PRINTER IS AT PRIORITY LEVEL 4.
-

010260
010260
010260
010260
010264

BGNTST

LET R1

:= LSUNIT - M

T1:¢

013701
005301

002012

MOV
DEC

LSUNIT,R1
R1

*HARD CODED INCREMEMNT LOOP

“INCR LUNIT FROM #0 TO R1 BY #1

010342
010350
010350
010352
010354
010356
1748 010250
010360
1749 010364
010364

010364
010372

SUNIT TO O

r1c.

INC

LUNIT

:UPDATE UNIT NUMBER
:DO COMPARISON OF UNIT NUMBER

005237

002314

023701
003402
000137

002314

032772

100000

002356

052762

100000

002512

005262

003114
002314

ASL

LUNIT,R1
1%
T8

*DO COMPARE

“ONTO NEXT UNIT
“EXIT LOOP

003406

LET LSLUN := LUNIT
LUNIT,LSLUN
MOV
ERRHRD 1,CSRERR

“?

002356

IF #BIT15 SETIN @LPCSR(R2) THEN
#81T715,aLPCSR(R2)
BIT
50077%
BEQ
R2) := STATUS(RZ2) SET.BY #ERROR
STATUS(
LET
, STATUS (R2)
#ERROR
BIS
LET ERRTBL(R2) := ERRTBL(R2) + #1
ERRTBL (R2)
INC

002074

000000

005072

TIC

LET R2 := LUNIT SHIFT 1
LUNIT,R2
MOV

013702
006302

013737

BLE
JMP

TRAP
.WORD
.WORD

($ERHRD
1
CSRERR

.WORD

CLR

aLPCSR(R2)

;ERROR BIT WAS SET. SAY SO

LET @QLPCSR(R2) := #0

ENDIF

50077%:

;TIME DELAY

1750
1751

1752 010364

LUNIT

002514

001416

:START LOOP

CLR

005037
000402

011052

;MAX NUMBER OF UNITS ON SYSTEM

: IF NOT READY ALLOW 3 SECONDS TG COME UP

032772 000200
001027 -

002356

IF #BIT7 NOTSETIN QLPCSR(RZ) THEN
#B1T7 ,aLPCSR(R2)
BIT
BNE

50100%

INTERFACE LOGIC
1753 010374

010374
010402

012737
000402

000014

010404

005337

003156

010410
010416

023727
002415

003156

010620
010424
010426

012727
000000
013727

000250

010434
010440
010442
010446

005367
001375
005367
001367

177772

010404

010410

1754 010420

010432

1755 010450

£10450
010452

000000

MACRO M1113

50102%:

000001

002116

177756

000755

1761

000200

002356

010462

052762

100000

002512

010470

013737

002314

002074

010476

005262

003114

010502
010504
010506
010510

104456
000002
003424
000000

1763 010476

1764 010502

1765 010512
1766
1767
1768

032772

010460

1762 010470

#12. ,WORK1
50101%

DEC

WORK1

CMP

1 ,#1
WORK
50103%

BLT

MOV
.WORD
MOV
.WORD
DEC
- BNE
- DEC
BR

DELAY 250
#250, (PC)+
0
LSDLY, (PC)+
O
-6(PC)
=4
=22(PC)

ENDDEC

50102%

*NOW TEST FOR PRINTER READY
001014

010462

DECR WORK1 FROM #12. TO #1 BY #1

50100%:

1757

010452

S0101¢%:

50103%:

1756 010452
010452

1758
1759
1760 010452

MOV

003156

SEQ 0050

PAGE 23~1

CZLPLDO (P25, LP26, LPO7 TEST

30-DEC-80 09:36

IF #81T07 NOTSETIN @LPCSR(R2) THEN
#BI1T07 ,aLPCSR(R2)
BIT
BNE

50104%

LET STATUS(R2) := STATUS(R2) SET.BY #ERROR
S
(R2)
#ERROR,STATU
BIS
LET LSLUN := LUNIT

LUNIT,LSLUN
MOV
LET ERRTBL(R2) := ERRTBL(R2) + #1
ERRTBL (R2)
INC
;REPORT AN ERROR
ERRHRD 2,RDYERR
TRAP

.WORD

ENDIF
50104%:

010512

;TEST FOR THE READY BIT

CSERHRD

RDYERR

:INSURE LOADING CHARACTER CAUSES PRINTER READY TO GO AWAY

1769 010512

010512

012772

000012

002452

010520
010526

032772
001416

000200

002356

010530

052762

100000

010536
1773 010542
010542
1774 .010550
77010550

005262

003114

013737

002314

1770 010520

1771 010530

1772 010536

104456

002512

002074

LET QLPBUF (R2)

:= #12

F
(R2)
#12 ,aLPBU
MOV
THEN
Z)
@LPCSR(R
SETIN
IF #8]1T707
#81707,aLPCSR(R2)
BIT
BEQ

50105%

INC

ERRTBL (R2)

LET STATUS(R2) := STATUS(RZ2) SET.BY #ERROR
#ERROR, STATUS (R2)
BIS
2) := ERRTBL(R2) + #1
ERRTBL(R
LET
LET LSLUN := LUNIT
LUNIT,LSLUN
MOV.

ERRHRD 3,ERR11
TRAP

C$ERHRD

;REPORT AN ERROR

—

e AR

N
CZLPLDO LP2S, LP26, LPO7 TEST
INTERFACE LOGIC

010552
010554
010556
1775 010560
010560
1776 010564

000003
011332
000000

005072

002356

MACRO M1113

30-DEC-80 09:36

SEQ 0051

PAGE 23-2

LWORD
3
.WORD
ERR11
WORD
0
LET @LPCSR(R2) := #0
CLR
aLPCSR(R2)

ENDIF

o 010564

501058$:

1778

;VERIFY THAT THE PRINTER WILL NOT INTERRUPT IF IT IS AT A PRIORITY LEVEL

};gg

;THE SAME AS THE

1781 010564

010564
010570

012700
104441

000200

010572
010576

012746
012746

000200
011214

012746
104437
062706

000003

1782 010572

010602

010606
010612
010614

1783 010620

016246

052772

000100

002356

010626

012737

000012

003156

023727
002415

003156

000001

012727

000372

010634 000402
010636
010636 005337 003156

010642
010642
010650
1785 010652
010652
010656
010660
010664
010666
010672
010674
010700
1786 010702

000000
013727
000000
005367
001375
005367
001367

;CPU TO PRIORITY &

SETVEC LPVEC(R2),#INTERR,A#PRI04

:LP VECTOR SET UP

MOV
TRAP

#PR104 ,RO
C$SPRI]

MOV
MOV

#PR104 ,~(SP)
#INTERR, - (SP)

MOV
TRAP
ADD

#3,-(SP)
CSSVEC
#10,SP

BIS

#100,aLPCSR(R2)

MOV

010620

1784 010626

SETPR] #PRI04

002416

000010

CPU

LPVEC
(R2) ,=(SP)

LET QLPCSR(R2)
DECR WORK1

MOV

B8R
50107
:
DEC

501068%:

002116

177772
177756

:= aLPCSR(R2)

s INTERRUPT ENABLE

FROM #12 TO #1 BY #1

#12 ,WORK 1

50106%
WORK1

cMP
BLT
DELAY
MOV
.WORD
MOV
.WORD
DEC
BNE
DEC
BNE

WORK
1, #1
50110%
250.
#250., (PC)+
0
LSDLY, (PC)+
O
-6(PC)
=4
:
222(PC)
.=20

B8R

50107%

ENDDEC

SET.BY #100

: ALLOW 3 SEC FOR DELAY

010702 000755
e 010704

501108 :

1788

:NOW TEST THAT THE PRINTER WILL INTERRUPT [F THE CPU PRIORITY IS LOWER THAN

};gg

“THE PRINTER PRIORITY

1791 010704
010704
1792 010712
010712
010716

042772

000100

012700
104441

000140

010720

012746

000200

010730
010734

016246
012746

002416
000003

1793 010720

010724 012746 011244

002356

LET @LPCSR(R2) := @LPCSR(R2)
BIC
#100,aLPCSR(R2)
SETPRI #PRI03
i
MOV
#PRI03:R0
TRAP
(S$SPRI

CLR.BY #100

;CLEAR INTERRUPT ENABLE

:CPU TO PRIORITY 3

SETVEC LPVEC(R2),#INTHDL ,#PRI04

MOV

#PR104
- (SP)

MOV
MGV -

LPVEC (R2) ,=(SP)
#3,-(SP)

MOV
-

#INTHDL , = (SP)

104437
062706

000010

052772

000100

010754
010760

012727
000000

000030

010766
010770
010774
010776
011002
1796 011004
011004

000000
005367
001375
005367
001367

010740
010742

1794 010746
010746
1795 010754

005262

011022
011024
1799 011026
011026
1800 011034
011034
1801 011042
s 011042

TRAP
ADD

(S$SVEC
#10,5P

MOV
.WORD

#30, (PC)+
C

:INTERRUPT ENABLE
LET @LPCSR(R2) := QLPCSR(R2) SET.BY #100
#100,3LPCSR(R2)
BIS
: ALLOW 3 SEC DELAY
DELAY 30

00235%

MOV

LSDLY, (PC)+

O
.WORD
-6(PC)
DEC
.4
BNE
222(PC)
DEC
.=20
BNE
LET ERRTBL(R2) := ERRTBL(R2) + #1
ERRTBL (R2)
INC

177772

177756
003114

LET LSLUN := LUNIT

MOV

011010 013737 002314 002074

1798 011016
011016
011020

SEQ 0052

MACRO M1113 30-DEC-80 09:36 PAGE 23-3

010762 013727 002116

1797 011010

104456
000004

011471
000000

012772

000000

002356

042762

160000

002512

005062

003052

LUNIT,LSLUN

ERRHRD &4 ,ERR13
CSERMRD
TRAP.
&
LWORD

ENDZ:

ERR13
.WORD
0
"WORD
: CLEAR THE LPCSR
LET @LP(SR(R2) := #00
#00,aLPCSR(R2)
MOV
LET STATUS(R2) := STATUS(R2) CLR.BY #ERROR'DROPED 'ACTIVE
#ERROR ' DROPED 'ACT IVE , STATUS (R2)
BIC
LET DELCNT(R2) := #0
DELCNT (R2)
CLR

‘

“END OF HARD CODED INCREMENT LOOP
sENDINC

1803
}ggg

1806 011046
1807 011052

1808 011056
011056
011062
1809 011064
1810 011126
011126
1811 011134

000137
004737

010274
010002

012700
104441

000000

112737

000014

T18B:

003160

1812 011176

011176

032772

011204 001001

1813 011206

011206

011210

1814 011210

011210
id 011212

000773
104432
000334

000200

50111%:

002356

JMP
JSR

:UPDATE UNIT #
; RESET STANDARD VECTORS

SETPR]I #PRIOO
#PR100,RO
MOV
($SPRI
TRAP
OUTPUT #INTFAC,#47.
LET OUTBUF :B= #14
#14,OUTBUF
MOVB
OUTPUT #OUTBUF ,#1
WHILE #BIT7 NOTSETIN @LPCSR(R2) DO

BIT

BNE

ENDDO

50112%:

T1A
PC,RESVEC

EXIT TST

:WAIT FOR READY

#B1T7,aLPCSR(R2)

50112$

50111%

TRAP
LWORD

CSEXIT
L10006-.

;EXIT THE TEST

1816
1817
;g}g

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

1820 011214

BGNSRV

CZLPLDO LP2S, LP26, LPO7 TEST
INTERFACE LOGIC

1821 011214

011214

005262

003114

011220

013737

002314

011226
011230
011232
011234

104456
CO0005
011406
000000

1822 011220

1823 011226

1824 011236

011236

012716

011242
1826 011242

000002

1825 011242

MACRO M1113

30-DEC-80 09:36

PAGE 23-4

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

ERRTBL (R2)

MOV

LUNIT,LSLUN

TRAP
.WORD
.WORD
.WORD

C$ERHRD
5
ERR12
O

MOV

#END2, (SP)

LET LSLUN := LUNIT

002074

ERRHRD 5,ERR12

LET (SP) := WEND?2

011026

ENDSRV

L10007:

RTI

xgsg

:INTERRUPT HANDLER FOR EXPECTED INTERRUPT

}ggg 011244

BGNSRV

1831 011244

011244

1832 011250
1833

011250
011250

1834

1%%2 011252

012716

INTHDL: LET (SP) := #END?2

011026

ENDSRV

L10010:

000002

116

124

1839 011332
1840 011406
}gfi; 011471

114
120
120

#END2, (SP)

RTI

NLIST BEX

INTFAC: .ASCIZ

/INTERFACE LOGIC TEST 1

011546
011546

1845 011550

117
122
122

101
111
m

ERR11:
ERR12:
E?R;B:

.ASCIZ
.ASCIZ

====

TEST COMPLETE/<12><12>

CASCIZ

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

/PRINTER DID NOT INTERRUPT AT CPU PRIORITY 3/

ENDTST

1843 011546

1846

MOV

*ERROR MESSAGES ASSOCIATED WITH THIS TEST

}ggg

1844

SEQ 0053

104401

L10006:

TRAP
.LIST BEX

ENDMOD

CSETST

| CZLPLDO LP2S, LP26, LPO7 TEST

| READY LINE INTERLOCKS

TEST 2

MACRO M1113

30-DEC-80 09:36

1848

.SBTTL

1850 011557
1851

BGNMOD

1849

SEQ 0054

PAGE 24

READY LINE INTERLCCKS

TEST 2

THIS TEST CHECKS THE OPERATION OF THE
*PRINTER READY INTERLOCK SWITCHES.
*MANUAL INTERVENTION IS USED TO
;OPEN THE INTERLOCKS TO PRODUCE FAULTS

1852

1853
1854
1855
1856
1857
1858
1859

:IN THE PRINTER AFTER WHICH THE RESULTANT ERROR

INDICATION IS VERIFIED.
?SNTST

1860 011550
011550

:DETERMINE IF MANUAL INTERVENTION IS ALLOWED

1861

1862 011550
011550
1863 011552
11552
1864 011554

MANUAL

011560
011564

005737

011566
011570

104432
002750

1868
1869 011572

001002

EXIT TST
CSEXIT
TRAP
L10011-.
LWORD

SEXIT TEST IF MANUAL INTERVENTION TESTS ARE NOT SPECIFIED
IF INHINT EQ #0 THEN
118:

1872
1873
1874 011604

INHINT

TST

002262

BNE

50113%

.WORD

L10011~-.

EXIT TST
CSEXIT
TRAP

ENDIF

50113%

011572

1870 011572
011572
1871 011576
011576
011602

CSMANI

BCOMPLETE 11%
1%
BCS

103402

104432
002762

1867 011566

TRAP

104450

011554
011556

1865
1866 011560

005037

002274

013701
005301

002012

LET FLAG := #0
CLR

LET R1

MOV
DEC

FLAG

:= LSUNIT - #1
LSUNIT,R1
R1

;CHECK FOR ERROR IN EACH PRINTER UNDER TEST
INCR LUNIT FROM #0 TO R1 BY #1
CLR
BR

LUNIT
50114%

INC

LUNIT

11604
011610
011612
011612
011616
011616
011622
1875 011624
011624
011630
1876 011632
011632
011640

005037
000402

002314

005237

002314

023701
003020

002314

013702
006302

002314

LUNIT R
CMP
50116%
BGT
LET R2 := LUNIT SHIFT 1
MOV
LUNIT ,R2

032772
001410

100000

IF lBIT15 SETIN @LPCSR(R2) THEN
#BI1T15,aLPCSR(R2)
BIT

011642
1878 011646
011646

005262

003114

1877 011642

104456

50115%:

50114%:

002356

BEQ

50117%

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

TRAP

ERRTBL (R2)

ERRHRD 6, CSRERR
C$ERHRD

| CZLPLDO LP25, LP26, LPO7 TEST
READY LINE INTERLOCKS
011650
011652
011654

000006

011656

005072

1879 011656

1880 011662

TEST 2

MACRO M1113

.WORD
.WORD

003406
000000

.WORD

CLR

002356

50117%:

011662

1881 011662

011662
011664

1883 011664
011664

011670
011672
011672

1884 011704
1885 01171%

1886 011720
1887 011730

1888 011734

30-DEC-80 09:36

ENDINC

000753

50116%:

6
CSRERR

0
LET QLPCSR(R2)
aLPCSR(R2)

:= #0

507115%

005037
000402

002314

005237

002314

023701
003021

002314

013702
006302

002314

INCR LUNIT FROM #0 TO R1 BY #1

50121%:
50120%:

013737

002314

002074

032772

000200

002356

001006

005262

CLR

LUNIT

INC

LUNIT

50120%

LUNIT R
CMP
50122%
BGT
LET R2 := LUNIT SHIFT 1
MOV
ASL

LUNIT,R2
R2

LET LSLUN := LUNIT

LUNIT,LSLUN
MOV
IF #BITO7 NOTSETIN QLPCSR(R2) THEN
#R1T07,aLPCSR(R2)
BIT
BNE

50123%

INC

ERRTBL (R2)
ERRHRD 7, RDYERR

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

003114

TRAP

104456

.WORD
.WORD
.WORD

50123%:

1890

SEQ 0055

PAGE 24-1

:CHECK FOR READY IN EACH PRINTER UNDER TEST

000007
003424
000000

1889

ENDIF

ENDINC

000752

50122%:

1891

C$ERHRD

RDYERR
0

50121%

* PRINT TEST NAME
OQUTPUT #INTLK,429.

:VERIFY OPERATION OF PAPER LOW INTERLOCK SWITCH

;HARD CODED INCREMENT LOOP

1899 012014

1900 012020

005037
005037
000405

002340
002314

1902 012022

005237

002314

012026

013702

002314

1905 012034

023701

002314

904

012032

006302

LET ERRFLG := #0

2%:

CLR
CLR LUNIT
1%
BR

INC LUNIT

ERRFLG

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

INTERLOCKS

1906 012040

1907 012042

005037

002274

013746
012746
012746
010600

002314
013416
000002

OOON08
SLS S STale P otV
el

MACRO M1113

30-DEC-80 09:36

1919

3%:

MP 4%

012256

1924 012256

FLAG

MOV
MOV
MOV
MOV

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

MOV

SP,RO

062706

000004

TRAP
ADD

000006

CSPNTF
#4 ,SP

GMANIL READY, FLAG, 100000, YES
C$GMAN

TRAP

104443

000404
002274
000130
007603

.WORD
.WORD
.WORD

100000

10000%:

012737

000310

005037

002340

002276

50124%:

005337

002276

005737
001403
005737
001747

002276

.WORD

REPEAT

FLAG
T$CODE
READY

1000C0

DEC

; ALLOW FOR ABOUT 3 PAGES OF PAPER

ERRFLG

OUTPUI #PAPTST.#15.,#5%,LUNIT
LET LINCNT := LINCNT - #1
L INCNT

UNTIL LINCNT EQ #0 OR ERRFLG NE #0
TST

L INCNT

ERRFLG

50125%

BEQ

002340

50125¢%:

50124%

BEQ

IF ERRFLG EC #0 THEN

002340

ERRFLG

50126%

BNE

ERRHRD 8,PAPSWI
TRAP
C$ERHRD

000010
003446
000000

.WORD

005262

003114

INC

000137

012262

000402

10000%

LET LINCNT := #200.
.
,L INCNT
#200
MOV
LET ERRFLG := #0
CLR

104456

1922

CLR

PRINTF #PAPRSW,LUNIT

013466
000001

001011

1921

LET FLAG := #0

012746
012746
010600

005737

1920

PAGE 24=2

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

104417

SEQ 0056

BLE 3%

[

1918

1923

012402

DR AR

—b b =3 =2
BB WNNWNWW PONONIND

D wud

) —

il
i
wd

) e
)

) i

i
D
)

1916
1917

—

1915

)

1914

D el

1913

18912

-l

SLSLSLSLNLSTNLNLSTNN
NN
TR LS L LS

TEST 2

003402
000137

104417
062706

(ololelololslololololalelololalolelslo]

PAPSWI

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

INL INE
11002%
JMP
ELSE

50126%:

<JMP

50127%

LET ERRFLG := #0

11002%>

C2LPLDC LP2S, LP26, LPO7 TEST

READY LINE

INTERLOCKS

012256

1825 012262

0 262
1926 012262

306

o8P

il
—

1928

D e il el sl

1927

T NTAN 1N 1y
rononY ASIASTAN
WWWW
(RS 1AN 1,V

S cnld

el
(o]lele] oleololelelelelelsle

1929 012326
012326

1932

013746
012746
012746
010600

013535
000002

104417
062706

000006

005037

002274

012352

005037

002336

042762

120000

005062

002752

005062

002552

005062
000207

002652

012402
012406
012410
012410
012414
012414
012420

300602

002314

005237

002314

023701
003137

002314

012422
012426

013702
006302

002314

012430

013737

002314

1945 012430

1946 012436

TRAP

C$GMAN

.WORD

FLAG

.WORD

READY

.WORD

10001%
TS$CODE

100000

LET R2 := LUNIT SHIFT 1
LUNIT ,R2

MOV
ASL

LET @LPCSR(R2) := #0
aLPCSR(R2)
CLR
JMP 2%
JEXPECTED ERROR HANDLER.

;

RESET

THE

LP CSR

;JUST SET EXPECTED ERROR INDICATOR.
000001

1944 012422

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

10001$:

012737

1943 012402

CS NTF
#6,SP

TRAP
ADD

100000

012344

1941 012400
1942

ERRFLG

#2,-(SP)
SP,RO

.WORD

002356
012022

SEQ 0057

PAGE 24-3

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

005072
000137

1939 012370

CLR
ENDIF

MOV
MOV

104443
000404
002274
000130
007603

012340

1937 012356
012356
1938 012364

11002%:

002314

012332

1936 012352

30-DEC-80 09:36

50127%:

002314

1933
1934
1935 012344

MACRO M1113

002340

013702
006302

1930 012334
012334
1931

005037

TEST ¢

002340

§s:

LET ERRFLG := #1

MOV

#1,ERRFLG

CLR

ERRCOD

LET ERRCOD := #0

LET STATUS(R2) := STATUS(R2) CLR.BY #ERROR!ACTIVE
#ERROR!ACTIVE,STATUS(RZ2)
BIC

002512

LET CURCNT(R2) := #0

CLR
LET
CLR
LET
CLR

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

: CLEAN UP THE DRIVER PARAMETERS

RTS PC

sAND RETURN

;VERIFY OPERATION OF HAMMER BANK INTERLOCK SWITCH ON LP25,26 -OR- @%RIFY BAND GATE LATCH ON

4%:

50131%:
50130%:

INCR LUNIT FROM #0 10 R1 By #1
(LR
BR

LUNIT

INC

LUNIT

LUNIT,R1
(MP
50132%
BGT
LET R2 := LUNIT SHIFT 1

MOV
ASL

002074

50130%

LUNIT,R2

LET LSLUN := LUNIT
MOV
LUNIT,LSLUN

LET FLAG := #0

INTERLOCKS

012436

1947 012442
012442
012450
012452
012460
1948 012462
012462
012466
012472
012476
012500
012502

005037

C02274

032762
001417
032762
001013

002000

002512

001000

002512

013746
012746

002314
013644
000002

012534

062706

000006

012746
012746
010609
104417
062706

013721
000001

1952 012554
1953 012554

1955 812600

1956 012624

012640

BIT
BEQ
BIT
BNE

#FLAGO7,STATUS(R2)
50133%
#FLAG26,STATUS(R2)
50133%

MOV
MOV
MOV

MOV

TRAP
ADD

MOV

000004

50134%:
104443
000404
002274

MOV
MOV
TRAP
ADD
ENDIF

032772
001421

100000

013746
012746
012746
010600
104417
062706

002314
013762
000002

002356

104443
000404
002274
000130
007603

PRINTF #HAMRSW,LUNIT

LUNIT,=(SP)
= (SP)
#HAM,RSW
#2,-(SP)

SP,RO

CSPNTF
#6,SP
PRINTF #HAMSWI1

1
, = (SP)
#HAMSW

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

.WORD

FLAG

.WORD

READY

.WORD

10002%
T$CODE
100000

IF #31T15 SETIN @aLPCSR(R2) THEN
#B1T15,aLPCSR(R2)
BIT
50135%
BEQ
MOV

PRINTF #HAMRDY,LUNIT
LUNIT,=(SP)

MOV
MOV
TRAP
ADD

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

TRAP

CSGMAN

= (SP)
#HAM,RDY

GMANIL READY, FLAG, 100000, YES
10003$

.WORD

FLAG

.WORD

READY

.WORD
10003%:

50134%

C$GMAN

MOV

000006

LUNIT,=(SP)

#BGTLCH,=(SP)
#2,-(SP)
SP.,RO
CSPNTF
#6,SP

TRAP

.WORD
10002¢%:

PRINTF #BGTLCH,LUNIT

GMANIL READY, FLAG, 100000, YES
BR

100000

FLAG

MOV
MOV
MOV
TRAP
ADD
ELSE

000130
007603

0
1954 012570

(LR

MOV

002314
014255
000002

013746
012746
012746
010600

PAGE 24=4

IF #FLAGO? SETIN STATUS(R2) AND #FLAG26 NOTSETIN STATUS(R2) THEN

50133s:

104417

1951

30-DEC~-80 09:36

000006

1949 012506

012506
012510
1950 012510

TEST 2

MACRO M1113

.WORD

TS$CODE

100000

SEQ 0058

|
|
|

C2LPLDO LP25, LP26, LPO7 TEST

READY LINE

INTERLOCKS

1957 012640

012642

005262

003114

o 012646

013737

002314

002074

MOV

012654
012662
012664
012672

032762
001411
032762
001005

002000

002512

007000

002512

BIT
BEQ
BIT
BNE

#FLAGD7STATUS (R2)
50137$
#FLAG26, STATUS (R2)
50137%

012674
012676
012700
012702

104456
000021
004215
000000

TRAP
JWORD
.WORD
.WORD

($ERHRD
17
BGTSWI
0

012704
012706

000404

501408

012706
012710
012712
012714

104456
000011
003511
000000

L1961 012654

1962 012674

1963 12704

ELSE

1964 012706

1965 012716

50135%:

INC

501378

TRAP
.WORD
.WORD
.WORD

012716

501408
:

012716

50136$:

1966 012716

1967 012716

1968

012716
012720

1969 012720
012720
012724
012726
012726
012732
012732
012736

1971

501328
:

002314

023701
003162

002314

012740
012744

013702
006302

002314

012746

005037

002274
002000

002512

012762
012770

032762
001417
032762
001013

001000

002512

012772
012776
013002
013006

013746
012746
012746
010600

1973 012772

:= ERRTBL(R2)

ERRTBL (R2)

LET LSLUN := LUNIT

LUNIT,LSLUN

+ #1

IF #FLAGO7 SETIN STATUS(R2) AND #FLAG26 NOTSETIN STATUS(R2)

THEN

ERRHRD 17,BGTSWI

ELSE

ERRHRD 9,BNKSWI

(SERHRD
9
BNKSWI
0
ENDIF

ENDIF

50131%

INCR LUNIT FROM #0 TO R1 BY #1
(LR
LUNIT
BR
501418
501428
INC
LUNIT
501418:
cMP
LUNIT,R1
BGT
501438

005237

1972 012752
012752
012760

LET ERRTBL(R2)

:VERIFY OPERATION OF CHARACTER BAND INTERLOCK SWITCH ON LP25,26 - OR = VFij INTERLOCK ON LPO7

002314

012746

50136$

END INC

000634

005037
000402

1970 012740

SEQ 0059

PAGE 24=5

000426

1959 012646

|
|

30-DEC-80 09:36

012640
012642

1958 012642

TEST

MACRO M1113

002314
014355
000002

LET R2

MOV
ASL

:= LUNIT SHIFT

LET FLAG

LUNIT,R2
R2

:= #0

(LR

FLAG

BIT
BNE

#FLAG26, STATUS (R2)
50144$

MOV
MOV
MOV
MOV

LUNIT,=(SP)
#VFUINT
= (5P)
#2,~(SP)
SP.RO

IF #FLAGO7 SETIN STATUS(R2) AND #FLAG26 NOTSETIN STATUS(R2)
BIT
#FLAGO?, STATUS (R2)
BEQ
50144%
PRINTF

#VFUINT,LUN'T

THEN

. CZLPLDO LP25, LP26, LPO7 TEST

READY LINE INTERLOCKS

013010
013012

1974 013016

013016

013020
1975 013020
013020
013024
013030
013034
013036
013040
1976 013044
013044
013050
013054
013056
013060

1977 C13064

013064
1978 013064

013064

104417
062706

002314
014046
000002

012746
012746
010600

014134
000001

104443

000404

013076

100000

013100

000006

000004
50145%:

10004%:

002356

013110
013116
013120
013126
1981 013130

032762
001417
032762
001013

002000

002512

001000

002512

013130
013134
013140
013144
013146
013150

013746
012746
012746
019600
104417
062706

002314
014447
000002

013154

000412

1983 013156
013156
013162
013166
013172

013174
013176

1984 013202

013746
012746
012746
010600
104417
062706

013202

50147%:

.WORD
.WORD
.WORD

FLAG
TS$CODE
READY

000006

104443

10004%

100000

IF #8IT15 SETIN QLPCSR(R2) THEN
#81T15,aLPCSR(R2)
BIT
BEQ

50146%

BIT
BEQ
BIT
BNE

#FLAGO7 ,STATUS(R2)
50147%
#FLAG26,STATUS(R2)
50147%
PRINTF #VFURDY,LUNIT

212t
MOV
MOV
MOV
MOV
TRAP
ADD

002314
014164
000002

CSPNTF
#4,SP

C$GMAN

MOV
MOV
MOV
MOV
TRAP
ADD

000006

PRINTF #BANDSW,LUNIT
LUNIT,=(SP)
= (SP)
#BANDSW,
#2,-(SP)
SP,R0O
CSPNTF
#6,SP
PRINTF #BNDSW1
#BNDSW1,=(SP)
#1,-(SP)
SP,RO

TRAP

.WORD

SEQ 0060

PAGE 24=6

GMANIL READY, FLAG, 100000, YES

50150¢%:

013202

1985 013202

ENDIF

100000

013156

50145%

TRAP
ADD

032772

1982 013154

ERt

MOV
MOV
MOV

1979 013100
013100
013106

1980 013110

($PNTF
#6,SP

MOV
MOV
MOV
MOV
TRAP
ADD

002274
000130
007603

001444

TRAP
ADD
ELSE

50144%:

013746
012746
012746
010600
104417
062706

104417
062706

30-DE(-80 09:36

000006

000422

013066
013070
013072
013074

TEST 2

MACRO M1113

TRAP

IF #FLAGO7 SETIN STATUS(R2) AND #FLAG26 NOTSETIN STATUS(R2) THEN

LUNIT,=-(SP)
#VFURDY ,=(SP)
#2,-(SP)
SP,RO
CSPNTF
#6,SP
ELSE

50150%

PRINTF #BNDRDY,LUNIT
LUNIT,=-(SP)
#BNDRDY ,=(SP)
#2,-(SP)
SP,RO
CSPNTF
#6,SP
ENDIF

GMANIL READY, FLAG, 100000, YES
($GMAN

’

| CZLPLDO LP25, LP26, LPO7 TEST_
READY LINE INTERLOCKS

013204

013206
013210
013212
013214

013216
1986 013216

013216

013220

1987 013220

TEST 2

MACRO M1113

30-DEC-80 09:36 PAGE 24-7
BR

000404

002274
900130
007603
100000

10005%:

000426

50146%:

.WORD
.WORD
.WORD
.WORD

ELSE

10005%

FLAG
T$CODE
READY
100000

50151%

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

013220
1988 013224
© 013224

005262

003114

013737

002314

002074

MOV

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

013232

032762

002000

002512

BIT

US
#FLAGO7,STAT(R2)

032762

001000

002512

BIT

US
#FLAG26,STAT(R2)

104456
000020
004257
000000

TRAP
.WORD

CSERHRD
16

.WORD

000404

50153%

1989 013232

013240

001411

013250
1990 013252
013252

001005

-013242

013254
013256
013260
1991 013262

013262

013264

1992 013264

013264
013266
013270
013272
1993 013274
013274

104456
000012
003556
000000

1995 013274
013274

_
012772

013302

000611

1994 013274
013274

1996 013302

013304
1997 013304
013304
1998 013312
1999 013354
013354
013356
2000

INC

2003 013360

2004 013416
2005 013466

2006 013535
2007 013624
2008 013644
2009 013721
2010 013762

BNE

.WORD

50152%:

TRAP
.WORD
.WORD
.WORD

50153%:

012737

50151%:

000000

002356

000014

003160

50152%

ERRHRD 16,VFUINF

VFUINF
ELSE

C$ERHRD
10
BNDSWI
O
ENDIF

ERRHRD 10, BNDSWI

LET @LPCSR(R2) := #00
#00,aLPCSR(R2)
MOV

ENDINC

50142%

50143%:
LET OUTBUF := #14
#14 ,0UTBUF
MOV

OUTPUT #OUTBUF ,#1
EXIT TST

TRAP
.WORD

104432
001162

IF #FLAGO7 SETIN STATUS(R2) AND #FLAG26 NOTSETIN STATUS(RZ) THEN

ENDIF

CSEXIT
L10011-.

.NLIST BEX

2001

2002

BEQ

122

105

045
120
045
045
045

116
101
116
116
116

045
045

116
101

.ASCIZ

101

INTLK:

045
120
045
045
045

PAPRDY: .ASCIZ
PAPTST: .ASCIZ
HAMRSW: .ASCIZ
HAMSW1: .ASCIZ
HAMRDY: .ASCIZ

SEQ 0061

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

045 PAPRSW: .ASCIZ /%NXATEAR OFF PAPER JUST BELOW LUNIT D2//
040 PAPSW1: .ASCIZ /%A TO CHECK PAPER LOW XNXZAINTERLOCK.ZXN

/XNXARESTORE PAPER, CLEAR, PLACE LUNIT XD2%A ON LINE.ZN/
/PAPER LOW TEST/<12>
/XNZADISENGAGE HAMMER BANK LATCH ON LUNIT ZD2/
/%NXATO CHECK INTERLOCK SWITCH.ZN/
/XNYAENGAGE LATCH,CLEAR,PLACE LUNIT XD2XA ON LINE.ZN/

k.9

CZLPLDO LP25, LP26, LPO7 TEST

READY LINE INTERLOCKS

2011 014046
2012 014134
2013 014164
2014 014255
2015 014355
gg}g 014447
2018

2019
2020 014540
014540

oy 014540
"4

2022 014542
2023

045
045
045
045
045
045
v

104401

TEST 2

116
116
116
116
116
116

MACRO M1113

045
045
045
045
045
045

30-DEC-80 09:36 PAGE 24-8

SEQ 0062

BANDSW: .ASCIZ /XNXAOPEN CHARACTER BAND COVER ON LUNIT %D2%A TO CHECK/
BNDSW1: .ASCIZ /XINZAINTERLOCK SWITCH.XN/
E ON LINE./
BNDRDY: .ASCIZ/XNYACLOSE BAND COVER ON LUNIT %D2%A,CLEAR,PLAC
ZD2%A TO CHECK MICROSWITCH.ZN/
BGTLCH: .ASCIZ /¥NYAOPEN BAND GATE LATCH ON LUNIT
XN/
CHECK MICROSWITCH.
VFUINT: .ASCIZ /XNXALIFT VFU COVER ON LUNIT ¥D2XA TO EAR,PLAC
E ONLINE.XN/
v;uggv: .ASCIZ /%NYACLOSF VFU COVER ON LUNIT ZD2%A,CL
- .v

.LIST BEX
ENDTST
L10011:

TRAP

ENDMOD

(SETST

g
| CZLPLDO LP25S, LP26, LPO7 TEST
|

FORMS LENGTH SELECTION

SEQ 0063

it
25
PAGE
09:36
0
30-DEC-8
M1113
MACRO
.SBTTL FORMS LENGTH SELECTION

2025

5859 014542
2028
2029
2030
2031
2032
2033

BGNMOD
LENGTH SELECT SWITCH. THE
STHIS TEST CHECKS ALL POSITIONS OF THE FORM
SWITCH
*PROGRAM INDICATES THE SPECIFIED SETTING OF THE FORM LENGTH SELECT
PAPER
THE
PRINTER.
SAND WAITS FOR THE OPERATOR TO SET THE SWITCH ON THE OUTPUT IS VISUALLY
©1S THEN ADVANCED UNDER PROGRAM CONTROL. THE PRINTERTHROUGH BY THE OPERATOR
RUN
:INSPECTED AFTER ALL SWITCH SETTINGS HAVE BEENOCCURRED
FOR EACH SWITCH
HAS
>TO VERIFY THAT THE PROPER PAPER MOVEMENT

2036 014542

BGNTST

SSETTING. ALL LPO7'S WILL BE TESTED ON ALL TCVFU CHANNELS AND LINE COUNTS.

%8%2

2037

133

014542

2038 014542
014542

2039 014544
014544
2040 C14546
014546
014550

2041

:DETERMINE IF MANUAL INTERVENTION IS ALLOWED
MANUAL
TRAP

CSMANI]
BCOMPLETE 1%
1%
BCS
EXIT TST
CSEXIT
TRAP
L10012-.
.WORD

104450

103402
104432
003076
005737
001002

013701
005301
000001

002012

014572
014576

005037
000402

002314
g

014600
014604
014604
014610
014612
014616

005237

002314

023701
003402
000137

002314

014616

013702

014600

2048 014616

014622

2049 014624

014626

014632
014634

2050 014640

014640
014644
014650
014654
014656
014660

2051 014664

014664

SEXIT TEST IF MANUAL INTERVENTION TESTS ARE NOT SPECIFIED
1%:

002262

2042 014552
2043 014556
2044 014560
014560
014562
2045 014564
014564
014570
2046

2047 014572

104432
003064

006302

032762

001402
000137
013746
012746
012746
010600
104417
062706

012746

2%:
$BRIMP=1
50154%:

50155%:

016366

50156%:

TST INHINT |
BNE 2%
EXIT TST
CSEXIT
TRAP
L10012-.
.WORD
LET R1 := LSUNIT - #1
LSUNIT,R1
MOV
R1
DEC

INCR LUNIT FROM #0 TO R1 BY #1

CLR
BR

LUNIT
50155%

INC

LUNIT

CMP
BLE
JMP

R1
LUNIT
50156%
50157%

LET R2 := LUNIT SHIFT 1
LUNIT,R2

002314

MOV

002000

BIT

#FLAGO7,STATUS(R2)

000006

MOV
MOV
MOV
MOV
TRAP
ADD

LUNIT,=(SP)
#LINSWI ,=(SP)
#2,-(SP)
SP,RO
CSPNTF
#6,SP

016520

MOV

#L INSW1,=(SP)

015304
002374
016434
000002

ASL

002512

v -

BEQ
JMP

IF #FLAGO7 NOTSETIN STATUS(R2) THEN

.46
50160%

PRINTF #LINSWI,LUNIT

PRINTF #L INSW1

CZLPLDO LP2S, LP26, LPO7 TEST

FORMS LENGTH SELECTION

014670
014674
014676
014700
2052 014704
014704
014710
014714
014720
014722
014724
2053 014730
014730
014734
014740
014744
014746

014750
2054 C14754
014754
014760
014764
014770
014772
014774
2055 015000
015000
015002
015004

000004

MOV
MOV
TRAP
ADD

013746
012746

002314
016600

MOV
MOV

000006

MOV
MOV
TRAP
ADD

PRINTF #FLSSEL,LUNIT
LUNIT ,=(SP)
#FLSSEL ,~(SP)

013746
012746

002314
016677

MOV
MOV

LUNIT,=(SP)
#FLS1,-(SP)

010600
104417
062706

000006

ADD

#6,SP

MOV
MOV
MOV
MOV
TRAP
ADD

CLR
BR

LUNIT,=(SP)
#FLSMS1,-(SP)
#2,-(SP)
SP,RO
CSPNTF
#6,SP
INCR R3 FROM #0 TO #50 BY #4
R3
50162%

ADD

#4 ,R3

CMP
BLE
JMP

R3,#50
50163%
50164%

MOV
ADD

#FFSET,T3SET
R3,T3SET

MOV

T3SET,=-(SP)

012746
010600
104417
062706

012746

013746
012746
012746
010600
104417
062706

000002

000006

005003
000402

020327
003402
000137

000050

012737
060337

017225
016372

015034

013746

016372

015044
015050
015054
015056
015060
2058 015064
015064
015070
015074
015076
015100

012746
012746
010600
104417
062706

017301
000003

013746

50161%:

50162%:

015300

002314

000010

50163%:
016372

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

PRINTF AFLST1,LUNIT

#2,-(SP)
SP,RO
CSPNTF

MOV

PRINTF AFLSMS1,LUNIT

#F LSMSG,~-(SP)
#3,-(SP)
SP,RO
CSPNTF
#10,SP

#FLSMS1,=(SP)
#1,-(SP)
SP,RO
CSPNTF
#4,SP
FLAG

017373
000001
000004

MOV
MOV
MOV
TRAP
ADD

005037

002274

CLR
TRAP
Bk

LET T3SET := #FFSET + R3

PRINTF #FLSMSG,LUNIT,T3SET

LUNIT,=(SP)

MOV
MOV
MOV
TRAP
ADD

012746
012746
010600
104417
062706

104443
000404

#1,-(SP)
SP,RO
C$PNTF
#4 ,SP

MOV
MOV
TRAP

002314
017373
000002

000004

2059 015104
015104
2060 015110
015110
015112

PAGE 25-1

000001

062703

015040

30-DEC-B0 09:36

SEQ 0064

012746
010600
104417
062706

015004
015010
015010
015014
015016
015022
2056 015022
015022
015030

2057 015034

MACRO M1113

( $GMAN
10000%

PRINTF #FLSMS1

LET FLAG := #0

GMANIL READY,FLAG,100000,YES

CZLPLDO LP2S, LP26

LPO7 TEST

MACRO M1113

30-DEC-80 09:36

—

2082

100000

100008:

OUTPUI #REFLIN,#62.,,LUNIT

OUTPUI T3SET,#3, LUNIT

004737

000137

2081

PAGE 25-2

T$CODE

005544

000642

2069 015352
2070 015414
015414
2071 015422
015422
2072 015430
015430
015436
015440
015440
015444
015444
015452
015454
015460
015460
2073
2074 015522
2075 015564
015564
2076 015570
015570
015572
2077 015572
015572
2078 015600
015642
2080 015704

SEQ 0065

READY

wonrnoronY

geRe

OS#A‘NBOJ‘

FLAG

-t b

(W AW RV LV LV, LV, LV RV RN
N = b ad cd e e e

FORMS LENGTH SELECTION

— —

— ol

004737
012737

012737
012737

000402

50164%:

016072

000052

003156
003160

000001

003154

023727
003402
000137

003154

MOV

ELSE

50165%

QUTPUI AREFLIN,#30.,,LUNIT

;TEST ID

. LUNIT
OUTPUI “#CHNSEC,#13..,

sSECTION ID

000014

50167%:

50170%:

003160

000723

LET WORK1 := #52

:CHANNEL CODE

LET OUTBUF := #200

50171%:

003160

MOV
BR

#1, WORK

INC

WORK

(MP
BLE
JMP

501708
50171%

INCR WORK FROM #1 TO #12. BY #1 ;REPEAT FOR ALL 12 CHANNELS

50167%

OUTPUI #OUTBUF
.41, ,LUNIT
OUTPUI #WORK1,#1,,LUNIT,WORK

LET OUTBUF

INC

OUTBRUF

50166%

MOV

#14,0UTBUF

000052

012737

000220

005037
000402

003154

005237

003154

023727
003402
000137

003154
016072

003156

003160

50172%:

000017

50173%:

50174%:

sNEXT CHANNEL

:= OUTBUF + #1

END INC

LET OUTBUF

:= #14

F
41, ,LUNIT
OUTPUI AOUTBU

OUTPUI #_INSEC.#15., LUNIT

012737

:CODE FOR ASTERISK

#52 ,WORK 1

#200,0UTBUF

50166%:

015572

000014

END INC

OUTPUI AMOVMSG,#62., LUNIT
JSR PC,QUIET

JSR PC,QUIET

000200

003154

012737

JMP

50161%

005544

005237

:
501608

:TEST ID + REF. LINE

LET WORK1 := #52

MOV

#52,WORK1

MOV

#220,0UTBUF

CLR

WORK

INC

WORK

CMP
BLE
JMP

WORK
, #15.
50174$
50175%

LET OUTBUF := #220
INCR WORK FROM #0 TO #15. BY #1

50173%

;SECTION ID

:CODE FOR ASTERISK
:CODE FOR VFU

SEQ 0066

| CZLPLDO LP25. LP26, LPO7 TEST MACRO M1113°S
30-DEC-80 09:36 PAGE 25-3

| FORMS LENGTH SELECTION

|
!

2083 015746

2084 016010
016010

~.
005737

003154

016016 000137

016064

016014

00300

2085 016022

005237

003160

016070 000716

JMP

50176%

IF WORK. GT #0 THEN

L +6

ENDIF

INC

OUTBUF

B8R

501728

OUTPUI #WORK1,#1,,LUNIT,.WORK

ENDINCR

50175$:

016072

501658:
SSET FORMS LENGTH SELECT SWITCH TQ ITS 'REGULAR'® SETTING

2091 016072
016072

032762

002000

016102
2092 016106
016106
016112
016116
016122

000137
013746
012746
012746
010600

016252
002314
017133
000002

ENDF

BIT

IF #FLAGO7 NOTSETIN STATUS(R2) THEN
#F LAGO7, STATUS (R2)

JMF
MOV
MOV
MOV
MOV

000006

TRAP
ADD

501778
PRINTF ANMLFLS,LUNIT
LUNIT,=(SP)
ANMLFLS,=(SP)
#2,-(SP)
SP.RO

016132
016136
016142
016146

013746 002314
012746 017373
012746 000002
010600

MOV
MOV
MOV
MOV

LUNIT,=(SP)
#FLSMS1,=(SP)
#2.-(SP)
SP.RO

016152

062706

ADD

#6,SP

MOV

#14 ,0UTBUF

CLR

FLAG

TRAP

(SGMAN

.WORD
"WORD
"WORD
.WwORD

FLAG
TSCODE
READY
100000

C16100

016124
016126

2093 016132

016150

2094 016156

001402

104417
062706

104417

002512

BEQ

TRAP

000006

016156 012737 000014 003160

2095 016164
016164
2096 016170
016170

005037

002274

104443

016172 000404
016174
016176
016200
016202

016204

002274
000130
007603
100000

100018:

2097 016204
2098 016246

016246 000137 016322

016252
2099 016252

016252 012737 000014

2100 016260
2101 016322
016322
2102 016322
016322

50177%:

003160

JMP
MOV

016772

L +6

CSPNTF
#6,SP

MOV

PRINTF AFLSMST,LUNIT

CS$PNTF

LET OUTBUF

:= #14

LET FLAG := #0

;CLEAR <(CR> FLAG

GMANIL READY,FLAG,100000,YES

;AND WAIT FOR RESPONSE

10001$

ELSE

OUTPUI #OUTBUF
,#1, ,LUNIT

502008
LET OUTBUF

#14,0UTBUF
ENDIF

502008:
012746

;PRINT ASTERISX

LET OUTBUF := OUTBUF + #1

016072

2089 016072

2090

WORK

50176%:

016064

016064
016064
2088 016070

TST

BGT

2086 016064

2087

OUTPUI #OUTBUF
41, ,LUNIT

:= #14

OUTPUI #OUTBUF ,#1,,LUNIT

PRINTF #PAP(HK
#PAP(HK
, = (SP)

;MAKE SURE MOVEMENT WAS RIGHT

MACRO M1113

LPO7 TEST

FORMS LENGTH SELECTION

—

NN LS

100028*

0
0
0
0
0
017271
017275
0
0
0
0

SP,RO
CSANTF

#4 ,SP

50157%:
$RRIMP==1
EXIT TSTT

READY

100000

50154%

RAP
CSEXIT
L10012~-.
.WORD
T3SET:
.WORD
0
0
T3MOV:
.WORD
.NLIST BEX
CHNSEC: .ASCIZ /CHANNEL 1-12/<12>

LINSEC:
LINSWI:
LINSW1:

FLSSEL:
FLST:
PAPCHK:
REFLIN:
NMLFLS:

.ASCI
.ASC
.ASC
.ASC
.
.
.
.

;SWITCH SETT

FLSMSG:
FLSMS1:
FLSMS2:

MOVMSG:

Bt bt b

b ple)
Ne Yo o

—d

d
d
d
D

END INC
JMP

=y lalnln)

045

104432
001256
000000
000000

045
045
045
045

#1,-(SP)

.WORD
.WORD
.WORD
.WORD

> > >

014600

177777

103
114
045

PAGE 25-4

;WAIT FOR RESPONSE

nwnhnoumn

100000

FFSET:

2140 017650
2141

002274
000130
007603

[o SaNTo o

016677
016772
017034
017133

104443
000404

000137

.ASC

.ASC
.ASC
.ASC
.ASC
LASC
.ASC
LASC
.ASC
LAS(
LASC
.ASC
.ASC
.ASCI
.ASCIZ
EVEN
.EVEN

/LINE COUNT 0-15/

/ANXASET LINES SWITCH ON UNIT ZD2%A TO ''%6¢'' TO SELECT/
/AIN%A6 LINES PER INCH VERTICAL PRINTING DENSITY./

JIN2XASET VFU-FLS SWITCH ON UNIT XD2XA TO THE 'FLS'' POSITION.ZN/
/INYASET FORMS LENGTH SELECT SWITCH ON UNIT %D2%A TO “8'".IN/
/%NXAVERIFY PRGPER PAPER MOVEMENT./

/FORMS LENGTH SELECTION TEST #3---REFERENCE LINE.............. /<14>
/UNYASET FORMS LENGTH SELECT SWITCH ON UNIT ZD2%A TO 11.%N/

GS_FOR FORMS LENGTH MESSAGES
/
/3
/3.5/

/14 /

/XNYASET FORMS LENGTH SELECT SWITCH ON UNI T 3 XD2%A TO XTXA,/
‘', AND PLACE ONL%L?E.2IN/
/XNXADEPRESS ‘‘CLEAR'',''TOF
. ON LUNIT ZD2%N/
/%NXADEPRESS '‘CLEAR'',"'TOF'',AND PLACE ON
FERENCE LINE..... /<12>
R
HE
3
/ INCHES SHOULD OCCUR BETWEEN THIS AND T

LIST BEX
ENDTST
104401

SEQ 0067

TRAP
BR

D e —d e

016600

CLR

016520

002274

016414
016434

005037

016376

000004

010600
104417

C16366
016366
016370
016372
016374

062706

MOV
MOV
TRAP
ADD

— e

016366

000001

N W NN
N AN NN NN

e D b

NNNNNNNNN—-—A-...._;_Q_._Q—;_.g

Lt S L LS LS LS
LS LN LN LN LN LN LN N TN LN TN LN LN LN LN e A
o d b o b D D D e b D D d e d e e d D D D

016356
016360
016362
2105 016362
016362

012746

—

016326
016332
016334
016336
2103 016342
016342
2104 016346
016346
016350
016352
016354

30-DEC-80 09:36

B By By g Bt Bt g Bt g Bt B By g Bt By g B

CZ2LPLDO LP2S, LP26

L10C12:
ENDMOD

TRAP

CSETST

CZLPLDO LP2S, LP26, LPO7 TEST

PRINTING SPEED MEASUREMENT

30-DEC-80 09:36

MACRO M1113

SEQ 0068

PAGE 26

LSBTTL PRINTING SPEED MEASUREMENT

BGNMOD

0317€¢50

SN —=O

: THE PRINT SPEED TEST WILL REPORT TO THE OPERATOR THE TOTAL NUMBER OF

USED
: LINES PRINTED WITHIN A SPECIFIED TIME PERIOD. THE DATAIS PATTERN
NT
DEPENDE
AND
MINIMAL
; 1S DESIGNED TO CAUSE PRINTING SPEED TO BE
: ON PRINTER TYPE AND THE (HARACTER SET (BAND TYPE ) ON EACH PRINTER.
IF THE
: THE TIME PERIOP CAN BE CONTROLLED THRU MANUAL OPERATION, OR
INTERVAL OF
TIME
ANY
.
SECONDS
OF
COUNT
A
: SYSTEM HAS A (LOCK VIA SUPPLYING
: 4 TO 60 SECONDS MAY BE SELECTED. THIS IS ONE OF THE *'SW'' QUESTIONS .

BGNTST

017650
017650

017650
017650
017654
017656
017656
017662
017664
017664
017666
017666
017670
017670
017672
2161 017674
017674
017700
2162 017702
017702
017704
2163 017706
017706
017710
2164 017710
017710
2165 017716
017716
2166 077716
017716
017720
2167 017720
017720
2168 017726
017726
2169 017726
2170 017770
017770
017774
017776
020004
020006
020010
020014
020016

162

013701
005301

005737
001416

TST

002264

MANSPD

50201%

BEQ

MANUAL

TRAP

CSMAN]

:DETERMINE [F MANUAL INTERVENTION ALLOWED

BCOMPLETE 1%
1%
B(S
EXIT TST
TRAP

005362
002262

CSEXIT

LWORD

L10013-.

18T

INHINT

IF INHINT EQ #0 THEN

1%:

BNE

50202%

.WORD

L10013-.

50203%

; EXIT IF INTERVENTION INHIBITED

EXIT TST
CSEXIT
TRAP

104432

005350

ELSE

000403

50202%:
002266

MOV

003154

50203%:

ELSE

000403

013746
002501

“: DETERMIN IF MANUAL TESTING SELECTED

IF MANSPD NE #0 THEN

104432

013737

E?UNIT.R1

ggg

002012

103402

013737

;NUMBER OF UNITS TO TEST

LET RT1 := | SUNIT - #1

104450

005737
001003

50201%:
002266

003154

ENDIF

B8R

50204%

LET WORK := PERIOD

ENDIF
50204$%

MOV

PER]IOD ,WORK

OUTPUT #PRTSPD ,#36.
SELECT CLKTYP OF 4 VERIFY

002322

LET WORK := PERIOD
PERIOD,WORK

000004

MOV
BLT

CLKTYP,=(SP)
50213%

BGT

50213%

(MP

ASL

ADD

020016

502058%:

,
CLKTYP#4
(SP)

#50205%, (SP)
a(SP)+,PC

: CLOCK TEST

TIME

;PRINT TEST ID
:SET UP THE RIGHT CLOCK

CZLPLDO LP2S, LP26, LPO7 TEST
PRINTING SPEED MEASUREMENT
020016
020020

020022
020024
020026

2 020030
020030

3 020030

5 020034
020034
020036
2176 020036

020052
020056
020062
020066
020072
020074

012746
012746
013746
012746
104437
062706

00C300
036620
002332
000003

020100

012700

(000000

2182 020106
020106
2183 C20

020116
2184 020124
2185 020124
2186 020132

020132

020136
2187 020140

104441

002330
002330

012737

000111

002334

012700

000340

020162

20166

012700

000000

2190 020174
020174
020176
2191 020176

104441

000401

000240

TRAP

C$SPRI]

MOV
MOV
MOV
MOV

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

:SET UP INTERRUPT VE(TOR

CSSVEC

MOV

#PR]100,RO

]3]

50213%

TRAP

002326
000002

000010

#100, CLKENA

TRAP

013737
062737

062706

MOV

:INTERRUPT ENABLE/ CLR MONITOR

#10,SP
ADD
SETPRI #PR]I00

50207%:

012746
012746
013746
012746

;KW11=L LINE CLOCK SELECTED

SETVEC CLKVEC,#CLKTCK,#PRI06

000434

104441

50213%

: SET PR]7 WHILE (HANGING VECTOR ADDRESS
:
SETPR] #PRIO7
#PRI07,.RO
MOV

CASE 3

020140
020144
020150
020154

020172

002334

;JUST EXIT TEST NO CLOCK AVAILBLE

50210%:
LET CLKENA := #100

000010

000300
036620
002332
000003

2188 020166
2189

000461

000340

020104

PAGE 26~1

END4

JMP

CASE 2

012700
104441

2180 020100

CASE 1
50211%:

(21554

020044
20050

2179 020052

2181

020036
020110
020176

000137

SEQ 0069

.WORD
.WORD
.WORD
.WORD

000190

2178 020044

39-DE(-80 09:36

020200
020030

012737

020036

MACRO M1113

($SPRI]

:KW11=P REAL TIME (CLOCK

LET CLKSET := CLKCSR + #2
CLKCSR,CLKSET
MOV
#2,CLKSET
ADD
:SET UP ENABLE BITS
LET CLKENA := #1711
#111,CLKENA
MOV
: RUN, RATE = 10KHZ, REPEAT INTR, DOWN,INT ENABLE
SETPR] #PR107
#PR]107,R0O
MOV
TRAP

($SPR1

MOV
MOV

#PR106,-(SP)
#CLKTCK,=(SP)

MOV

#3,-(SP)

SETVEC CLKVEC,#CLKTCK,#PR]06
MOV

TRAP
ADD

:INTERRUPT VECTOR

CLKVEC,=(SP)

C$SVEC
#10,SP

SETPR] #PRI00O
MOV
#PR]100,RO
(ASE 4
50206%:

NOFP

TRAP

($SPRI

50213%

;THIS IS JUST A DUMMY

C2LPLDO LP2S, LP26, LPO7 TEST
PRINTING SPEED MEASUREMENT

MACRO M1113

2194

2195

2196

2197
2198
2199
2200
2201

020222

2202 020224
020224
020232
020234
2203 020240
020240
020246
020250
2204 020254
020254
2205 020262
020262
02026€
2206 020266

020266
2207 020274

020274
2208 020274
020274
2209 020302
020302

2210

020344
020346
2211 020352
2212 020414
2213 020456
020456
020462
2214 020462
020462
020470

SEQ 007C

PAGE 26-2

ENDSELECT
50212%:
50213%:

2192 020200
020200
2193

30-DEC-80 09:36

112737

000012

010137

002314

005037

002340

013702
006302

002314

003160

LET OUTBUF :B= #LF
#LF ,OUTBUF
MOVB
LET LUNIT := R1
RT,LUNIT
MOV
"8

LET ERRFLG := #0
CLR

ERRFLG

MOV

LUNIT,R2

LET R2 := LUNIT SHIFT 1
ASL

: DETERMINE WHICH BAND, AND SEND APPROPRIATE PATTERN
$BRIMP=1

000001

032762
001402
000137

010000

BIT

BEQ
JMP

020772

032762
001402
000137

002000

012737

024224

000137

020274

012737

002512

IF #FLAG96 NOTSETIN STATUS(R2)

002512

BEQ

023040

023040
50216%:

003154

032762
001402
000137
032762
001402
000137

001000

002512

020462
002000

023503
000001

062706

000004

104417

000137
032762
001002

50216%

MOV
ENDIF

#TB0764 ,BNDPAT

BIT

#FLAG26,STATUS(R2)

JMP

50217%

#FLAGO7,STATUS(R2)

JMP

50217%

BEQ

.46

PRINTF #LPM64

MOV

#LPM6ES ,-(SP)

MOV

SP,RO

TRAP
ADD

ELSE

50217%:

. +6

BIT

MOV

002512

LET BNDPAT := #TB(0764

LET WORK := #133.
#133. ,WORK
MOV
BEQ

002512

020766

001000

JMP

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

020462

012746
012746
010600

.+6

MOV

ELSE

50215%:

000205

.+6
50214%

50215%
LET BNDPAT := #TABA6S
#TABAGSL ,BNDPAT

JMP

012737

THEN ; 64 (HAR BAND

1F #FLAGO7 NOTSETIN STATUS(RZ2) THEN
#FLAGO7,STATUS(R2)
BIT

020266

024640

#FLAG96,STATUS(R2)

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

LUNIT
E4+4
B42.,
OUTPUI #LPM

OUTPU! #0OUTBUF ,#1,,LUNIT

JMP

50220%

BIT

#+LAG26,STATUS(R2)

BNE

;SEND SPEED MESSAGE TO CONSOLE

;SEND SPEED MESSAGE TO PRINTER

sLINEFEED

IF #FLAG26 SETIN STATUS(R2) AND #FLAGO7 NOTSETIN STATUS(RZ) THEN
. +6

CZLPLDO LP2S, LP26, LPO7 TEST

PRINTING SPEED MEASUREMENT

020472
020476
020504
020506
2215 020512
020512
020516
020522
020524
020526
2216 020532
2217 020574
2218 020636
020636
2219 020642
020642
020646
020652
020654
020656
2220 020662
2221 020724
2222 020766

000137
032762
001402
000137

(20642
002000

MACRO M1113

021026
2231 021034
021034
021042
021044
021050
021056
021060
2232 021064
021064
021070
021074
021076

JMP

002512

020642

MOV
MOV
MOV

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

000004

TRAP
ADD

000137

020766

JMP

012746
012746
010600
104417
062706

024007
000001

50221%:

MOV
MOV
MOV

TRAP
ADD

000004

50222%:

032762
001402
000137

50220%:
ELSE

021520

002000

50214%:

024432

000137

021026

012737

025046

PRINTF #L26M64

CS°NTF
#4,SP

ELSE

+4
42, , ,LUNIT
OUTPUI #L26ME4L
OUTPUI #OUTBUF ,#1, ,LUNIT

50222%
PRINTF #L07M64

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

ENDIF

, ,LUNIT
842, L+4
OUTPU] #LO7M6
,#1,,LUNIT
#OUTBUF
OUTPU]

ENDIF

JMP

50223%

002512

1F #FLAGO7 NOTSETIN STATUS(RZ2) THEN
#FLAGO7,STATUS(R2)
BIT

023040

MOV

#TABA96 ,BNDPAT

JMP

50225%

MOV

LET BNDPAT := #TB(79¢
#1B0796 ,BNDPAT

BEQ
JMP

021020

012737

50221%

#FLAGO7,STATUS(R2)
. +6
50221%

023645
000001

000137

PAGE 26-3

BIT
BEQ
JMP

012746
012746
010600
104417
062706

2223 820766

2224 020766
020766
020772
2225 020772
020772
021000
021002
2226 021006
021006
2227 021014
021014
021020
2228 021020
21020
021026
2229
021026
2230 021026

30-DEC-B0 09:36

ELSE

50224%:

023040

50225%:

ENDIF

.+6
50224%

LET BNDPAT := #TABA96

012737

000205

003154

LET WORK := #133.
#133. ,WORK
MOV

032762
001402

001000

002512

BIT

#FLAG26,STATUS(R2)

021214
002000

002512

BIT

#FLAGO7,STATUS(R2)

000137
032762
001402
000137
012746
012746
010600
104417

021214
023564
000001

IF #FLAG26 NOTSETIN STATUS(R2) AND #FLAGO7 NOTSETIN STATUS(RZ2) THEN

BEQ
JMP
BEQ

JMP

MOV

MOV
MOV
TRAP

. +6
50226%

.+6
50226%

PRINTF

#LPM96

#LPM96 ,-(SP)

#1,-(SP)
SP,RO
C®PNTH

SEQ 0071

CZLPLDO LP2S, LP26, LPO7 TEST

PRINTING SPEED MEASUREMENT

062706

000137

021520

021214

032762

001000

021224
021230

000137
032762

021374
002000

021240
2237 021244
021244

000137

021374

012746
012746
010600
104417

023726
000001

021222

021236

021250

021254
021256

ADD

001002

001402

50226%:

ELSE
JMP

#4,SP
OUTPUI #LPMOG+4
842, , ,LUNIT
OUTPUl #OUTBUF ,#1, ,LUNIT

50227%

IF ®BFLAG26 SETIN STATUS(R2) AND #FLAGO7 NOTSETIN STATUS(R2) THEN

002512

BIT

#FLAG26,STATUS(R2)

002512

JMP
BIT

50230%
#FLAGO7,STATUS(R2)

JMP

50230%

BNE

BEQ

MOV
MOV
"V
., AP
DD

)

.*6

PRINTF #L26M96
#L26M96 ,~(SP)
#1,-(SP)
SP,RO
CSPNTF
#4 ,SP

0C0004

000137

021520

021400
021404

012746
012746
010600

024070
000001

MOV
MOV
MOV

PRINTF #L07M96
#L07MS6,~(SP)
#1,-(SP)
SP,RO

021410

062706

000004

ADD

#4 ,SP

2238 021264
2239 021326
2240 021370

021370
021374
2241 021374
021374

021406

2242 021414
2243 021456

104417

50230%:

TRAP

2244 021520

021520
2245 021520
021520
2246 021520
021520
2247 021520
021520
2248
2249 021524
021524
2250 021530
021530
2251 021536
2252 021542
021542
2253 021546
021546

2254 021550
2255 021554
021554
2256
2257
2258 021554

021554

JMP

50231%:

50227%:

ELSE

OUTPUI #L26MS6+4
442, , ,LUNIT
OUTPUI #OUTBUF ,#1,,LUNIT

50231%

CSPNTF

ENDIF

QUTPU] A#LO7M96+4
442, , ,LUNIT
OUTPUl #OUTBUF
,#1, ,LUNIT

ENDIF

ENDIF
50223%:

005072
177777

002356

005037

002276

012737

000074

005337

002314

004737

002402

021742

000137

020212

023727

002322

036674

'
LET QLPCSR(R2) := #0
CLR
aLPCSR(R2)
$BRUMP==1
LET LINCNT := #0
CLR
L INCNT
LET TICK := #60.

000003

MOV

#60.,TICK

BLT

50232%

JSR PC,REPLUP
LET LUNIT := LUNIT - #1
DEC
LUNIT
IFCOND GE THEN
ENDIF
50232%:

END4 :

SEQ 0072

PAGE 26=4

062706

21260

30-DEC-80 09:36

(00004

021100
2233 021104
223 021146
2235 021210
021210
021214

22% 021214

MACRO M1113

JMP 118

IF CLKTYP EQ #3 THEN
CMP
C(LKTYP,
43

:DISABLE INTERRUPTS IN CASE OF MANUAL TEST C(ASE
;CLEAR LINE COUNTER

;SET UP INITIAL CLOCK VALUE
;D0 THE OQUTPUT

C2LPLDO P25, LP26, LPO7 TEST

PRINTING SPEED MEASUREMENT

021562
2259 021564
021564
021570
2260 021572
021572
021576
2261 021600
021600
2262 021606
2263 021606

021606

021614
2264 021616

000340

013700
104436

002332

MOV

012777

000000

TRAP

023727

001021

002322

021624
021630
021634
021640
021644
021646

012746
012746
013746
012746
104437
062706

0C0300
010000
002332
000003

021652
2267 021660

012777

000000

160520

112737

000014

CLKTYP,#2
50234%

BNE

SETPR] #PRIO7
#PRI07 ,RO
MOV
TRAP

C$SPRI

MOV
MOV
MOV

E
, = (SP)
#1GNOR
CLKVEC,=(SP)
#3,-(SP)

ADD

#10,SP

SETVEC CLKVEC,#]GNORE ,#PR]06
#PR106,-(SP)
MOV

TRAP

C$SVEC

LET @CLKCSR := #00
#00,aCLKCSR

MOV

160446

ENDIF

SETPRI #PRIOO
#PR100,RO
MOV
TRAP

003160

LET OUTBUF

($SPR]

:B= #14

#14 ,0UTBUF
MOVB
,#1
OUTPUT AOUTBUF
EXIT TST

104432
003314

TRAP

.WORD

CSEXIT

L10013-.

*THIS IS SUBROUTINED TO DECREASE THE SIZE OF THE INITIAL INCREMENT LOOP.
REPLUP:

002322

021742
021750
2279 021752
» 021752
021756

023727
001124
01 5746
012746

023146
000001

021764
021766
2280 021772
021772
2281 021776
021776
022000

104417
062706

000004

005037

002274

021762

#00,aCLKCSR

IF CLKTYP EQ #2 THEN

CMP

000002

2274
2275
2276

2277 021742
2278 021742

($CVEC

MOV
ENDIF

50234%:

000000

CLRVEC CLKVEC
CLKVEC,RO

TRAP

000010

012700
104441

($SPRI

LET @CLKCSR := #00

50233$%:

000340

2268 021660
021660
021664
2269 021666
021666
2270 021674
2271 021736
021736
021740
2272
2273

PAGE 26~5

502338
SETPR] #PRI07
#PR107,RO
MOV

012700
104441

SEQ 0073

BNE

012700
104441

2266 021652

30-DEC-80 09:36

001011

021616
021622

2265 021624

MACRO M1113

104443

000404

000004

IF CLKTYP EQ #4 THEN

(MP
BNE

MOV

PRINTF #OFFLIN

MOV MOV
TRAF
ADD

CLR
TRAP

CLKTYP,#4
50235%

#OFFLIN,=(SP)

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

LET FLAG := #0
FLAG

GMANIL READY,FLAG,100000,YES
( $GMAN

10000%

:TELL OPERATOR TO PLACE PRINTERS OFFLINE

K
|

CZLPLDO LP25, LP26, LPO7 TEST

PRINTING SPEED MEASUREMENT

MACRO M1113

30-DEC-B0 09:36
.WORD

2282

10000%:

0
0

013746
012746
012746
010600

002314
023206
000002

062706

C00006

013746
012746

002314
023307
000002

104417

2283

2284

2285

2286
2287

2288
2289

2290
2291

2292

2293

2294

2295
2296 022176

MOV
MOV
MOV
MOV

002314
023405
000002

032772
001402
000240

100000

MOV
MOV
MOV
MOV

TRAP
ADD

000006

002356

50236%:

50237%:
002276

002356

:
502408

BIT
BEQ
BR

100000

LUNIT,=(SP)
#ONL IN1,=(SP)
#Z,=(SP)
SP,RO
CSPNTF
w6, SP

BIT
BNE

10000C

013705

023040

MOV

013703

003154

MoV
50242%:

005703
003417

TST

BLE

032772
001007

000200

002356

032772
001402
000137

100000

002356

50244%:

;PUT LUNIT TO TEST ON LINE

JEND OF TEST.

CSPNTF
#6,SP
PRINTF #ONLIN3,LUNIT

LUNIT,=(SP)
#ONLIN3,-(SP)
#2,-(SP)
SP,RO
CSPNTF
#6,SP

WHILE #BIT15 SETIN QaLPCSR(R2) DO

; WAIT FOR LP SET ON-LINE

#BI1T15,aLPCSR(R2)
50237%

NOP
ENDDO

50236%

LET LINCNT := #0
L INCNT
CLR
WHILE #BIT15 NOTSETIN @LPCSR(R2) DO

032772
001031

022334

T$CODE

READY

PRINTF AONLINZ,LUNIT
LUNIT,=(SP)
#ONLIN2 ,=(SP)
MOV
#2,=(SP)
MOV
SP.RO
MOV

000772

005037

FLAG

MOV

TRAP
ADD

SEQ 0074

PAGE 26-6

PRINTF AONLINT,LUNIT

TRAP
ADD

0CC006

013746
012746
012746
010600
104417
062706

.WORD
.WORD
.WORD

#B1T15,aLPCSR(R2)
50241%
LET RS := BNDPAT
BNDPAT RS
LET R3_:= WORK
WORK ,R3
WHILE R3 GT #0 DO

; REPEAT UNTIL LP GOES OFF=LINE

; PRINT R3 CHARACTERS

50243%
WHILE #BIT7 NOTSETIN aLPCSR(R2) DO

BIT

#B1T7 ,aLPCSR(R2)

BIT

IF #BIT15 SETIN @LPCSR(R2) THEN
#B1T15,aLPCSR(R2)

BNE

BEQ

; WAIT FOR READY

50245%

50246%

JMP 99%
ENDIF

; EXIT LOOP IF OFF=LINE AGAIN

LP26, LPO7 TEST
CZLPLDO LP25,
1 PRINTING
SPEED MEASUREMENT

MACRO M1113

022176
|
2297 022176
022176
2298

2299
2300

2301

2302
2303

DEC

000757

50242%

000743

002452

50243%:

INC

002276

50241%:

023727
001003

50235%:
002322
003202

2308

2309
2310

2311

2312
0

0
5
231 2

L INCNT

ENDDO

50240%

ELSE

50247%

000003
160070

MOV

LET QCLKSET := #1666.

#1666. ,aCLKSET

LET @CLKCSR := CLKENA
CLKENA,aCLKCSR
LET TIME := #0

005037

036672

CLR

005037

002276

CLR

023737
002023

036672

013705

023040

MOV

013703

003154

MOV

TIME,PERIOD
50252%
LET RS := BNDPAT
BNDPAT ,R5
LET R3_:= WORK
WORK ,R3

TST

002266

50251%:

50253%:

005703

000200

002356

50255%:

50256%:
112572

002452

;ENABLE THE CLOCK TO DO ITS THING
:

TIME

LET LINCNT := #0
L INCNT

; REPEAT UNTIL TIME EXHAUSTED

WHILE TIME LT PERIOD DO

CMP
BGE

BLE

003412

: 1760 SEC.

ENDIF

002334

2316 022312
2317

2319 022322

LET LINCNT := LINCNT + #1

013777

032772

2318

C$BRK

; ALLOW CTL=C ABORT

IF CLKTYP EQ_#3 THEN
CLKTYP,#3
CMP
50250%
BNE

160060

; DECRIMENT CHAR COUNTER

LET R3 := R3 - #1

BREAK

502508%:

; PUT CHAR INTO LP BUFFER

ENODO

TRAP

000445

012777

2307

2314

005303

LET @LPBUF (R2) :B= (RS)+

(R2)
(R5) +,aLPBUF

005237

ENDDO

50244%

MOVB

112572

2306

2313

50245%:

104422

2304
2305

000765

SEQ 0075

PAGE 26~7

30-DEC-80 09:36

50246%:

BIT
BNE
BR

mMovB

WHILE R3 GT #0 DO

; SEND R3 CHARACTERS

50254%

WHILE #BIT7 NOTSETIN @LPCSR(R2) DO

; WAIT FOR READY

#8117 ,aLPCSR(R2)
50256%
NOP

ENDDO

50255%

LET @LPBUF (R2) :B= (R5)+

(R2)
(R5)+,aLPBUF

LET R3 := R3 - #

: PUT DATA INTO BUFFER

; DECRIMENT (HAR COUNTER

CZLPLDO LP25, LP26, LPO7 TEST

PRINTING SPEED MEASUREMENT

022322
2320 0223264
022324
022326
6
02232
2321
022326
2322 022332
022332
022334
2323 022334
022334
2324 022334

MACRO M1113

30-DEC-80 09:36

005303

DEC

000764

005237

50254%:

INC

002276

000751

SEQ 0076

PAGE 26-8

R3
ENDDO

50253%

LET LINCNT := LINCNT + M
L INCNT

NDDC

50251%

50252%:
50247%:

99%:

*IF MANUAL PRINT SPEED TESTS HAVE BEEN PERFORMED INSURE PRINTERS ARE
;BACK ON LINE WHEN DONE

023727
001020

2332 822370

022376
022400
022402
022404
2333 022404
022404
2334 022404
2335
2336
2337
2338 022412
022412
022416
022422
022426
022432
022434
022436

2339 022442
022442
022446

2340 022452
2341 022456

022456
022456
022464

002322

005037

002274

012746
012746
010600
104417
062706

024151
000001

000004

1F CLKTYP EQ #4 THEN
CMP
BNE

LET FLAG := #0

FLAG
CLR
PRINTF #RESTOR

TRAP

CSGMAN

GMANIL READY,FLAG,100000,YES

104443
000404
002274
000130

007603

100000

012777

TRAP
ADD

#RESTOR,=(SP)
#1,-(SP)
SP.RO
CSPNTF
#4,SP

MOV
MOV
MOV

000004

10001$:
ENDIF

000000

#4
CLKTYP,
50257%

157714

50257%:

:CLEAR <CR> FLAG

:WAIT FOR OPERATOR

10001$

BR
.WORD
"WORD
"WORD
"WORD

FLAG
T$CODE
READY

MOV

#00,3CLKCSR

100000

* REPORT TOTAL NUMBER OF LINES PRINTED
013746
013746
012746
012746

PRINTB

MOV

002314
002276
023101
000003

013746
012746
004737

002276
003161
004550

032772
001001

000200

LINCNT,=(SP)
- (SP)
#LINPER,
#3,-(SP)
SP,RO

ADD

#10,SP

MOV
MOV
JSR

.= (SP)
LINCNT
#OUTBUF +1,-(SP)
PC ,BIN2DA

TRAP

PUSH

e
002356

LUNIT,=(SP)

MOV
MOV
MOV

MOV

000010

,LUNIT
PER
L INCNT
#LIN

CSPNTB

+1
LINCNT,#OUTBUF

: CONVERT LINE COUNT TO ASCII

WHILE #BIT? NOTSETIN aLPCSR(R2) DO
BIT
BNE

#B1T7.aLPCSR(R2)
50261%

:WAIT FOR READY

MACRO M1113

CZLPLDO LP2S, LP26, LPO7 TEST

PRINTING SPEED MEASUREMENT

023727

002322

000002

002322

000003

004737

005544

013746
012746
004737

002266
003161
004550

004737

005544

004737

005544

SEQ 0077

PAGE 26-9

50260%

OUTPUI

#OUTBUF
,#6, ,LUNIT

. DISPLAY LINE COUNT ON LP

OUTPUI

#SPED1,#19., ,LUNIT

; "LINES PRINTED''

JSR PC,QUIET
JSR PC,QUIET

JSR PC,QUIET

; IF A CLOCK WAS USED DISPLAY THE TIME USED ALSO
IF CLKTYP EQ #2 OR CLKTYP EQ #3 THEN

50262%:

CLKTYP,
#2
50262%
.
CLKTYP,#3
.
502638

CMP
BEQ
CMP
BNE

OUTPUI #SPEDZ2,#4, ,LUNIT
MOV
MoV

JSR PC,QUIET
PUSH PERIOD,#0UTBUF
+1
PERIOD,-(SP)
#OUTBUF +1,-(SP)

OUTPUI

000207

ENDI

"t
;

CONVERT TIME TO ASCII

JSR PC,BIN2DA
,LUNIT
+3 43, UF
#OUTB
OUTPUI
JSR PC,QUIET

50263%:

#SR PC,QUIET

#SPED3 ,48., ,LUNIT

; DISPLAY THE TIME IN SECONDS
; ''SECONDS''

;GO BACK AND DO IT AGAIN

RTS PC

"EXPECTED ERROR HANDLER
012737
000207

000001

002340

LPERR2: LET ERRFLG := #1
MOV
RTS

BNDPAT: .WORD

000000

.NLIST BEX

:SET ERROR FOUND

#1,ERRFLG
PC

SAND EXIT

: CONTAINS ADDRESS OF PRINT PATTERN

jelelele) [eleDHelelelelel
N T 2T F
=
SO S
Vi WV
=i
o —

Yo No Na¥To Yo Yo Yo Yo JVIELE o
(o Yo No Ne e

d e

D d A ) -

D
e

e
B )

e
d
d

045

d e

*ASSOCIATED MESSAGES

2381 023503
2382 023564
2383 023645
2384 023726
238
2386 024070
2387 024151

005544

022676
022702
2353 022706
2354 022712
2355 022754
2356 022760
2357 023022
2358 023026
023026
2359 023026
2360
2361
2362
2363 023030
023030
2364 023036
2365
2366
2367 023040
2368
2369
2370
2371
2372 023042
2373 023065
2374 023071
2375 023101
2376 023146
2377 023206
2378 023307
2379 023405
2380 023436

004737

2352 022676

005544
005544

— e

2350 022630
2351 022672

50261%:

004737
004737

wvivvunwnununun
o v

022616
022620
022626
022630

ENDDO

000773

RRRERRRRUKKRR

2342 022466
022466
022470
2343 022470
2344 022532
2345 022536
2346 022542
2347 022604
2 348
2349 022610
022610

30-DEC-80 09:36

SPED1:
SPED2:
SPED3:

.ASCII
.ASCII
.ASCII

k?é?%fi:
:

LASCIZ
/AN%A96 (HARACTER BAND SHOULD PRINT AT 888 LPM.IN/
JASCIZ /XNXACLEAR PRINTER(S) AND PLACE ON LINE.XN/

LINPER:
OFFLIN:
ONLIN1:
ONLIN2:
ONL IN3:
PRTSPD:
LPM64:
LPM96:
L26M64:
L26MI6:
LO7M64:

/ LINES WERE PRINTED/
/ IN/
/ SECONDS/

.ASCIZ /ZNXD3XA LINES PRINTED ON LUNIT XD2%N/
.ASCIZ /XNXAINSURE PRINTER(S) OFF LINE./
.ASCIZ/ZNAXAPLACE LUNIT ZD2XA ON LINE TO INITIATE TIME PERIOD FOR MANUAL/
.ASCIZ /XNXAPRINTING SPEED MEASUREMENT AND BACK OFF LINE TO TERMINATE/
.ASCIZ /ZNXATHE TIME INTERVAL.2IN/
.ASCIZ /PRINTING SPEED MEASUREMENT TEST 4/<12><12><12>
.ASCIZ /XNXA64 CHARACTER BAND SHOULD PRINT AT 285 LPM.ZN/
.ASCIZ /INXA96 (CHARACTER BAND SHOULD PRINT AT 204 LPM.ZN/
ASCIZ /ANXA64 CHARACTER BAND SHOULD PRINT AT 600 LPM.ZN/
.ASCIZ /AINXA96 CHARACTER BAND SHOULD PRINT AT 450 LPM.XN/
.ASCIZ /XNXA64 (CHARACTER BAND SHOULD PRINT AT 1220 LPMIN/

CZLPLDO LP2S,

LP26, LPO7 TEST

| PRINTING SPEED MEASUREMENT

MACRO M1113

PAGE 26-10

30-DEC-80 09:36

LI ST 8E x
EV EN

C HARACTER

.SBTTL

BAND

PATTERN

285 LPM / 60C LPM.

PRINT SPEED TEST PATTERNS

I OMN—
— =N 3 OMe—e

2397 024265
2398 024300
2399 024313
2400 024326
2401 024341
2402 024354
2403 024367
2404 024402
2405 024415

—O00—00000~0

“135647750

2396 024252

:96 CHARACTER BAND TABLE 204 LPM / 450 LPM,
MINIMUM PRINT SPEED PATTERN 96 CHARAC
061, 055,144,047, 163,043,142
6.05
075. 140,174,

2410 024432
2611 024445

176

2412 024460

077
041
050,
122
06
4

2
2
1

124
111
076
063

050
134
121

106

073
060
045

o - ~N o — w
.

WOTNMVIN0 ONUM—OI
ON

—e—— OO~ = O00—

137

—OMOWNNINMOWNANIN

2413 024473
2414 024506
2415 024521
2616 024534
2417 024547
2418 024562
2419 024575
2420 024610
2421 024623
2422
2423
2424
2425 024640
2426 024653
2427 024666
2428 024701
2429 024714
2430 024727
2431 024742
2432 024755
2433 024770
2434 025003
2435 (25016
2436 025031
2437
2438
2439
2440 025046
2441 025061
2642 025074
2443 025107
2444 025122

SEQ@ 0078

loaVlaVil

o— o o— [
.

- vast

-— e

MACRO M1113

30-DEC-80 09:36

PAGE 26=11

Sy OWnoy
NN

MOoOWN INOMO

2452
2453

2454 025254
2455 025256

.EVEN
LIST BEX
ENDTST

L10013:
ENDMOD

TRAP

CSETST

SEQ 0079

CZLPLDO LP2S, LP26, LPO7 TEST

DATA TRANSFER PATHS

BGNMOD

2463

THIS TEST CHECKS THE DATA TRANSFER
:PATHS FROM THE PROCESSOR INTERFACE

2464
2465
2466
2467
2468
2469
2470
2471
2472

:TO THE PRINTER QUTPUT. AN ALTERNATING
:PATTERN OF ONES AND ZEROES CORRESPONDING
;TO AN ALTERNATING STRING OF ''+'' AND

:"U'* CHAPACTERS ARE TRANSMITTED ON THE

AFTER 16 LINES OF
sFULL 132 COLUMNS.
;THIS PATTERN, THE OUTPUT PATTERN IS

:SWITCHED 10, AN ALTERNATING PATTERN

?g ”;QEQND ‘@' CHARACTERS FOR ANOTHCR

247%

2674

2484

2485
2486

2487
2488

2489

2490 025426
2491 025432
025432

PAGE 30

.SRTTL DATA TRANSFER PATHS

2460
2461
2662 025256

2475
2476
2477 025256
£25256
2478
2479 025256
2480
2481 025320
025320
025326
025330
025330
025334
025334
025342
2482 025344
025344
025352
2483

30-DEC-80 09:36

MACRO M1113

?gNTST

JPRINT TEST IDENTIFICATION

025676

012737
000402

000001

005237

025676

023727
003107

025676

000002

023727

025676

000001

112737

000125

025636

001004

50265%:

000403
112737

OUTPUT #DATPTH, #29.
;PRINT ALTERNATING STRINGS OF CHARACTERS
INCR PATTERN FROM #1 TO #2 BY #1
#1,PATTERN
MOV
50264%
BR
50264%:

PATTERN, #2
CMP
50266%
BGT
IF PATTERN EQ #1 THEN
#1
PATTERN,
CMP
50267%
BNE
LET CHAR :B= #'U

025636

003160

012737
000402

000001

005237

002304

023727
003017

002304

113724

105137

025636
025636

142737

000200

LET CHAR :B= #'?
#'?,CHAR
MOVB
LET R4
MoV

:= #0UTBUF
#OUTBUF ,R4

MOV

#1,CCNT

INC

CCNT

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

002304
50272%:

000102

50271%:

CMP

BGT

MOVRB

025636

50270%

ENDIF

50270%:
012704

#'U,CHAR

MOVB
ELSE

50267$:

000077

PATTERN

INC

BICB

50271%

CCNT ,#66.

5027%$

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

(OMB (HAR

LET (HAR :B= CHAR CLR.BY #200
#200,CHAR

SEQ 0080

~
|

C2LPLDO LP25, LP26, LPO7 TEST

DATA TRANSFER PATHS

2692 025440
025440
2693 025444
2494 025450
025450
2495 025455
025456
025460
2496 025460
025460
2497 025464
025464
2498 025470
025470
025476
025500
025500
025504

625504
025512
025514
025556
025556
025560
025560
025560
025562
025562
025562
025570
025632
025632
025634

025636
025640

025676

113724
105137

142737

MACRO 1113 30-DEC-80 09:36 PAGE 30-1
MOvB

025636
025636
000200

50273%:

112724

000015

112714

000012

012737
000402

006001

005237

002276

023727
003022

002276

50275%:

003160

000000

MOV
BR

#1,LINCNT
50274%

INC

LINCNT

(MP
BGT

, #16.
LINCNT

50274%:

50276%
OUTPUT #OUTBUF, #134.

50275%

50265%

LET OUTBUF
EXIT TST

104432
000044

104

#15,(R4)+

50266%:

000014

:B= #14

MOVB
QUTPUT

#14 ,0UTBUF
#OUTBUF, #1

TRAP

CSEXIT

.WORD

NLIST BEX

101

124

CHAR:

2516

2517 025702

L10014~-.

.WORD 0

DATPTH: .ASCIZ /DATA TRANSFER PATHS TEST 5/ <12><12><12>
.EVEN

.WORD 0

PATTERN:

.EVEN
LIST BEX

025700
025700
025700

50272%

LET (R&)+ :B= #15

50276%:
END INC

000663

#200, CHAR

MOVR

END INC

000750

112737

BI(B
END INC
BR

LET (R4) :B= #12
#12,(R4)
MOvVB
INCR LINCNT FROM #1 TO #16. By #1

002276

000020

CHAR, (R&4) +
(OMB (HAR

LET CHAR :B= (HAR (CLR.RY #200

025636

000753

LET (R4)+ :B= (HAR

.EVEN

ENDTST
104401

L10014:
ENDMOD

TRAP

CSETST

SEQ 0081

C2LPLDO LP2S, LP26, LPO7 TEST
PRINTABLE (HARACTERS

MACRO M1113

30-DEC-80 09:36

SEQ 0087

PAGE 31

.SBTTL PRINTABLE (HARACTERS

2519
2520 025702

BGNMOD

521

*+e

THIS TEST WILL PRINT A FULL LINE OF EACH PRINTABLE (HARACTER.
BAND TYPE IS CHECKED ON A UNIT BY UNIT BASIS.

UNITS WITH 96 CHAR BAND WILL BE SENT THE (HARACTER CODES :
140(8)

2
2528 025702
025702
2529 02570¢
2530
2531
2532
2533 025744
025744
025752
025754
025754
025760
025760
025766
2534 025770
025770
2535 025774
025774
026002
026004
026004
026010
026010
026016
2536 026020
026020
2537 026024
026024
026026
2538 026026
026026
2539 026032
2540 026074
2541 026100
0<7100
026102
2542
2543
2544
2545
2546
2547
2548
2549 026102
026102
2550 026106
026106
026114

?GNTST
6::

THRU 17¢(8).

: PRINT TEST ID

OUTPUT #PRTCHR, #30.

* PRINT ALL UPPER CASE CHARACTERS ON ALL UNITS
012737
000402

000040

005237

003154

023727

003154

012704

003160

012737
000402

000001

005237

002302

023727
003003

002302

113724

003154

003045

INCR WORK FROM #40 TO #137 BY #1

003154

50300%:

000137

50277%:

50303%:

50302%:

:
503048
000012

004737

005544

INC

WORK

50277%

WORK ,#137
50301$
LET R4 := #OUTBUF
#OUTBUF ,R4
MOV

CMP
BGT

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

50302%

INC

COUNT

(MP
BGT

COUNT ,#132.
50304%
LET (R4)+ :B= WORK

000767
112724

#40, WORK

MOV

002302

000204

MOV

BR
MOVB

(R4) +
, RK
WO
END INC

50303%

LET (R4)+ :B= #LF
#LF,(R4)+

OUTPUT #OUTBUF ,#133.
JSR PC,QUIET

END INC

000725

50301%:

503008

* NOW DO ALL THE LOWER CASE CHARACTERS ON THOSE UNITS
; EQUIPPED WITH 96 (HARACTER BANDS.

: FIRST DETERMINE IF ANY UNITS HAVE 96 (HAR BANDS

LET WORK := #0
CLR

005037

013737
005337

003156

WORK

: COUNTER FOR 96 CHAR UNITS

LET WORK1 := LSUNIT - #1
LSUNIT,WORK1
MOV
WORK1
DEC

: GET UNIT COUNT

C2LPLDO LP2S, LP26, LPO7 TEST

PRINTABLE

C(MARACTERS

2551 026120
026120
026124
026126
026126
026132
026132
026140
2552 026142
026142

026146
2553 026150
026150
026156
2554 026160
026160
026164
255%
026164
2556 26164
026164
026166
2557 026166
026166

026172

2558 026174
026174
2559 026202
2560 026244
026244
026246
2561 026250
026250
2562
2563
2564 026250
026250
026256
026260
026260
026264
026264
026272
2565 026274
026274
026300
2566
026300
026306
026310
026310
026314
026314
026322
2567 026324
026324
2568 026330
026330
026332

005037
000402

002314

005237

002314

023737
003012

002314

013702
006302

002314

032762
001402

010000

005237

003154

MACRO M1113

001026

112737

50306%:

003156

50305%:

PAGE 31-1

(IR
BR

LUNIT
50305%

INC

LUNIT

(MP

LUNIT,WORK1

50307%
BGT
LET R2 := _LUNIT SHIFT 1
LUNIT,R2
MOV

ASL
R2
IF #FLAG96 SETIN STATUS(R2)

#FLAG96,STATUS(R2)

BIT

002512

BEQ

50310%:
END INC

50307%:

INC
ENDIF

WORK

512

50306%

WORK

LET OUTBUF

EXIT TST
TRAP

ENDIF
50311%:

:B= #14

.WORD

CSEXIT

: ALL UNITS 64 CHAR...EXIT

L10015~-.

: SETUP FOR LOWER CASE CHARACTERS DISPLAY

012737
000402

000140

005237

003154

023727
003073

003154

012704

003160

012737
000402

000001

005237

002302

023727
003003

002302

113724

003154

000767

003154
50313%:

000176

50312¢%:

INCR WORK FROM #140 7O #176 BY #1
p
#140,WORK
MOV
50312%
BR
INC

WORK

CMP

WORK ,#176

BRGT

50314%

LET R4 := #OUTBUF
#OUTBUF ,R4
MOV

MOV

002302
50316%:

000204

50315%:

50317%:

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

50315%

INC

COUNT

CMP

COUNT ,#132.

MOVBR

, (R&) +
WORK

BGT

: YES ADD 1 TO COUNT

: ANY 96 (CHAR UNITS ?

#14 ,0UTBUF
MOVB
UF ,#1
#QUTB
OUTPUT

003160

IS THIS UNIT 96 (HAR ?

50311¢%

BNE

104432
000330

THEN

50310%
LET WORK := WORK + #1

IF WORK EQ #0 THEN

003154
000014

SEQ 0083

INCR LUNIT FROM #0 TO WORK1 BY #1

000760

005737

30-DEC-80 09:36

50317%
LET (R&)+ :B= WORK

END INC

50316%

| C2LPLDO LP25, LP26, LPO7 TEST
PRINTABLE (HARACTERS

2569 026332
026332
2570 026336
026336
026344

112724

000012

013737
005337

002012
003156

026350
026354

005037
000402

002314

026356
026362
026362
026370

005237

002314

023737
003031

002314

026372
026376

013702
006302

002314

2571 026350

026356

2572 026372

2573 026400

026400
026406

2574 026410
2575 (026452
026452
2576 026452

032762
001421

000741

2577 026454

004737

026460

000677

2578 026460

026462

2579 026462
026462
2580 026470

112737

026532
026534

104432
000042

%ggz 026536

120

2581 026532

2582

2585

2587
2588 026600
2589

003156

50321%:

INCR LUNIT FROM #0 TO WORK1 BY #1
LUNIT
50320%

(LR
BR

LUNIT

INC
L
503c0%:

(MP
BGT

LUNIT ,wORK1
50322%

MOV
ASL

LUNIT R2
R2

002512

BIT
BEQ

003156

LET R2 := LUNIT SHIFT 1

IF #FLAG96 SETIN STATUS(R2) THEN

#FLAG96,STATUS(R2)
50323%

OUTPUI #0OUTBUF ,#133., ,LUNIT

ENDIF

50322%:

50321%

JSR PC,QUIET

END INC

50314%:

003160

111

104401

: WAIT FOR ALL DONE

50313%

LET OUTBUF :B= #14
#14 ,0UTBUF
MOVB
: EXECUTE TOF
,#1
OUTPUT #OUTBUF

EXIT TST

122

ENDINC

TRAP
.WORD

NLIST BEX

CSEXIT
L10015~-.

PRT(CHR: .?Sgll /PRINTABLE (HARACTERS TEST 6/ <12><12><12>
.EVEN

ENDTST

2586 026576

026576
026576

LET (R&)+ :B= #LF
#LF,(RG)+
LET WORKT := LSUNIT = #1
LSUNIT ,WORK1
MOV
WORK1
DEC

MOVB

005544

00001«

SEQ 0084

PAGE 31-2

30-DEC-80 09:36

50323%:

026452
026454

070000

MACRO M1113

L10015:

TRAP

LLIST BEX
£ NDMOD

(SETST

(2LPLDO LP2S, LP26, LPO7 TEST

| NON-PRINTABLE CHARACTERS

LSBTTL

2591
2592
. 2593 026600
" 2594
2595
2596
2597

.-00

SEACH (HARACTER WILL APPEAR ON THE PRINTER OUTPUT IN THE FORM OF I7S OCTAL
;CODE ACCOMPANIED WITH ITS MNEMONIC.
;123 OF THE TESTED CODE ARE THEN SENT.

;ALSO,ON PRINTERS WITH 64 CHARACTER BANDS,IT (HECKS TO

*MAKE SURE THAT CODES 140 THRU 177 ARE CONVERTED TG CODES 100 THRU 137.

BGNTST
17::

026666
026666

026674
2613 026676
026676
2614
2615
2616
2617 026702
026702
026710
026712
026772
026716
026716
026724
2618 026726
026726

2619 026730

2620
2621
2622

026730
026732

2624 026732
026732
026740

;INDICATE TEST CURRENTLY BEING DONE

2604

2609
2610
2611
2612 026654

NON=-PRINTABLE CHARA(TERS

:THIS TEST CHECKS FOR DETECTION OF ALL NON-PRINTABLE C(HARACTERS.

2598

2608 026646

PAGE 32

BGNMOD

- 2599
2600
2601
2602
2603 026600
2605
2606 026600
2607 026642

30-DEC-B0C 09:36

MACRO M1113

OUTPUT #NONCHR ,#71.

012704

027721

012737

000033

LET R4 := ANONBUF
R4
#NONBUF
MOV

LET WORK1 := #27.
#27. ,WORK1
MOV

003156

: DO ONE LINE FOR EACH TABLE ENTRY
005037
000402

002276

005237

002276

023737
003061

002276

012703

003160

INCR LINCNT FROM #0 TO WORK1 BY #1

50325%:

003156

50324%:

CLR
BR

L INCNT
50324%

INC

L INCNT

CMP

LINCNT ,WORK1

BGT

MOV

50326¢%
LET R3 := #OUTBUF

#OUTBUF ,R3

: MOVE CODE AND MNEMONIC TO PRINT BUFFER
012737
000402

000001

005237

003154

023727
003002

003154

003154
50330¢%:

000010

50327%:

MOV
BR

WORK

(MP
BGT

WORK ,#8.
50331%

MOVB

000770

15123

:
012737

000402

000001

003154

50327%

INC

112423

50331%:

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

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

END INC

50330%

PUT 120 BYTES OF CODE INTO PRINT BUFFER
MOV
BR

INCR WORK FROM #1 TO #123. BY #1
#1,WORK

503328

SEQ 0085

" | C2LPLDO LP2S, LP26, LPO7 TEST
'

NON=PRINTABLE CHARACTERS

026742
026742
026746

MACRO M1113

30-DEC-80 09:36

50333%:

INC

WORK

(MP
BGT

WORK ,#123.
50334%
LET (R3)+ :B= (R4)
(R&4) ,(R3)+

005237

003154

026746
026754
2625 026756
026756

023727
003002

003154

111423

MOVR

026760

000770

2626 026760
2627
2628

026762

000173

50332¢%:

50334%:

SEQ 0086

PAGE 32-1

END INC

503533%

: FOLLOWED BY CRLF

2629
2630

2631 026762
026762
2632 026766
2633 026766

112723

000015

112723

000012

> PRINT LINE OF OCTAL CODE, MNEMONIC, AND 120 BYTES(NONFRINTABLE CODE’

%g%g
2636 026772
2637 027034

027034
2638 027036

027036

299 027040

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

MOVR

OUTPUT #OUTBUF ,#133.
LET R4 := R4 + M

INC
END INC

005204

000711

50326%:

DELETE IS PRINTED AS UNDERSCORE '_'

; **NOTE=»

5222
2646 027044

027044
027050
027052
027052
027054
027054
027060

2647 027062

012703

003160

012704
000401

000140
50336%:

005204

020427
003002

50335%:

000177

LET R3 := #OUTBUF
#OUTBUF ,R3
MOV
INCR R4 FROM #140 TO #177 BY #1
#140,R4
MOV
50335%
BR
INC

CMP
BGT

R 2177
50337%

027062

110423

MOVR

027064
027066
2649 027066
027066

000772

2648 027064

2650 027072

027072
027100

2651 027104

027104

027110
027112

50325%

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

264
2641
2642

2645 027040
027040

112723
013737
005337
005037

000402

LET (R3)+ :B= R4

END INCR

50337%:

R4, (R3)+

; FILL BUFFER WITH CODES & LF

50336%

000012

LET (R3)+ :B= #LF
#LF,(R3)+
MOVB

002012
003154

MOV
DEC

LSUNIT,WORK
WORK

(LR

LUNIT

LET WORK := LSUNIT - M1

003154

INCR LUNIT FROM #0 TO WORK BY #

002314
50341%:

50340%

: SEND MSG AND BUFFER TO ALL
: UNITS WITH 64 CHAR BAND

CZLPLDO LP2S, _P26, LPO7 TEST

. NON-PRINTABLE CHARA(TERS

005237

002314

023737

002314

013702
006302

002314

027134 032762
027142 001063
2654 027144
2655 027206
2656 027250

010000

027126 003073

50343%:

000677

IF #FLAG96 NOTSETIN STATUS(R2) THEN
#F_AG96,STATUS(R2)
50343%
OUTPUI #AUTSEC,#77.,,LUNIT
OUTPUI #AUTCON,#61.,,LUNIT
OUTPUI #OUTBUF ,#33.,,LUNIT

BIT
BNE

002512

50342%:

ENDIF

ENDINCR
50341%
BR

LET OUTBUF :B= #14

MOVB

#14,0UTBUF

EXIT

TST

OUTPUT #OUTBUF ,#1

2666 027370
2667 027431

116 NONCHR: .ASCII
CASCIZ
106

Sg;? 027714

015

012

SKIP3:

2672 027721
2673 027732

040
040

060
060

NONBUF: .ASCI
1

;AND EXIT TEST

062
063
063
063

S
S
O
o
o
R

e
Sy
S

e |
o
de

NOYOYO
O
]

s bt
e L

OOOOOONO [

Sy
S

>>>>

wmwunhnumnm
wn

.
LASC

000 NUL/<0>
001 SOH/<1>

060
060
060
060

062
062
062
062
062
062

<15><12><12><12>

040
040
040
040

060
060
060
060
060
060

061
061
061
062

.
.ASC

WITH 64 CHARACTER BAND
/THIS SECTION CHECKS AUTOMATIC CONVERSIONED ONTOPRINTERS
100(8)..137(8)/<12><12>
/CODES 140(8) ..177(8) SHOULD BE CONVERT

040
040
040
040
040
040

060
060
060
060

060
060
060
060
060
060
061

.ASCIZ

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

2691 030174
2692 030205
2693 030216
2694 030227

040
040
040
040

060
060
060
060
060
060
060

111 AUTSEC: .ASCIZ
104 AUTCON: .ASCIZ

2685 030106
2686 030117
2687 030120
2688 030141
2689 030152
2690 030163

040
040
040
040
040
040
040

110
117

[

2681 030042
2682 030053
2683 030064
2684 030075

124
103

NNINN
-

.NLIST BEX

117
040

2674 027743
2675 027754
2676 027765
2677 027776
2678 030007
2679 030020
2680 030031

:CHARACTER BUFFER AND TEST HEADER MESSAGE

116
101

2668 027500
2669 027616

CSEXIT
L10016~-.

TRAP
.WORD

104432
000730

5222
2665

503428

ASL

2660 027322

027364
- 027366

LUNIT,WORK

LET R2 := LUNIT SHIFT 1
LUNIT,R2
MOV

027314 112737 000014 003160

2661 027364

cMP

BGT

e L L]

2657 027312
027312
2658 027312
027312
027314
2659 027314

LUNIT

Y Y S

2653 027134

INC

g w—y w— ———

027132

50340%:

2652 027126
027126

003154

SEQ 0087

30-DEC-80 09:36 PAGE 32-2

[

027112
027116
027116

MACRO M1113

>>>>rerrrEr>r>>> >
LLnLLILLILLHLLHLLULLOLOD

;

002 STXx/<2>
003 ETX/<3>

004 EOT/<4>
005 ENQ/<5>
006 ACK/<6>
007 BEL/<7>
010 BS /<10>

011 HT /<11>
016 SO /<16>
017 SI /17>
020 DLE/<20>

021 XON/<21>
022 DC2/<22>
023 XOF /<23>
024 DC4/<24>
025 NAK/<25>
026 SYN/<26>
027 ETB/<27>
030 CAN/<30>
031 EM /<31>
032 SuB/<32>

.
|

| CZLPLDO LP2S, LP26, LPO7 TEST
| NON=-PRINTABLE CHARACTERS

.
|

c695 030240
2696 030251
2697 030262
2698 030273
2699 030304
2700
2701
2702

2703 030316
030316
030316
2704
2705 030320
2706

040
040
040
040
040

104401

060
060
060
060
060

MACRO M1113

30-DEC-80 09:36
LASC
LASC
LASC
LASC
LASC

063
063
063
063
063

.LIST BEX
ENDTST
L10016:

TRAP

ENDMOD

CSETST

PAGE 32-3

SEQ 0088

CZLPLDO LP2S, LP26, LPO7 TEST

BAND PATTERN

MACRO M1113

30-DEC-80 09:36

.SBTTL

2708

BGNMOD

2709 030320

SEQ 0089

PAGE 33

BAND PATTERN

2710
2711
2712

;BAND PATTERN TEST

LP26. IT DOES NOTHING ON LPO7.
*THIS TEST ONLY EXECUTES ON LP25 OR ENTIRE
BAND PATTERN. THE PRINT-QUT
*THIS TEST PRODUCES AN IMAGE OF THE
:ggRgx$ANIZED TO LOCATE THE FOUR QUADRANTS OF THE BAND [N THE FOLLOWING
QUADRANT NO.1
QUADRANT NO.3

QUADRANT NO. 2
QUADRANT NO.4

QUADRANT NO.1

ETC.

*THE REASON FOR THIS ARRANGEMENT 15 TO FACILITATE VISUAL INSPECTION

:?z ggs ?SizgggT AS WELL AS TO ACCOMODATE THE 208 CHARACTERS OF THE BAND
:

:
:
.

2733 030320
1030320
2734
2735

BGNTST

2743 830346

2744 030352
2745 830360

2746 030364
030
2747 030372
0

2748 830376
2749 030404

SOF TWARE SWITCH USA

=1 FOR 96 CHAR BAND

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

T8::
TOF = 014

000014

: PRINT TEST IDENTIFICATION ON ALL UNITS

2736 |

|
2737
2738 030320
030320
030324
030330
030332
030334
2739
2740
2741
2742 030340

STATUS(R2) FLAG96

012746

PRINTF #NOO7
#N007 ,=(SP)
MOV
#1,-(SP)
MOV
SP,RO
MOV

031652
000001

TRAP
ADD

000004

: SETUP PATTERNS FOR EUROPEAN OR AMERICAN PRINTERS
; AMERICAN, PRINT SHARP SIGN '#°
IF USA NE #0 THEN
TST

002270
105037

032166

112737

000043

105037

032304

113737

000043

105037

032422

112737

000043

105037

032544

CSPNTF
#4 ,SP

BEQ

032172

032311

032426

USA

50344%

LET BP6402+18. :B= #0
BP64Q2+18.
CLRB
LET BP64Q2+22. :B= #43
#43 ,BP64Q2+22.
MOVB
35. :B= #0
BP64Q3+
LET
35.
BP64Q3+
CLRB
:B= 43
+40,
BP64Q3
LET
43,BP64Q3+40.
MOVB
LET BP64Q4+53. :B= #0
BP640Q4+53.,
CLRB
+57, :B= #43
BP640QL
LET
#43 ,BP6404+57,
MOvVB
LET BP96Q2+13, :B= #0
BP96Q2+13.
CLRB

CZLPLDO LP2S, LP26, LPO7 TEST

BAND PATTERN

2750 030410
030410
2751 030416
030416
2752 030422

112737

000043

105037

032735

030402 112737
2753 030430
030430 | 000431
030432
2754 030432
030432 |112737
2755 030440
030440 105037
2756 030444
030444 112737
2757 030452
030452 105037
2758 030456
30456 112737
2759 030464
030464 105037
2760 030470
030470 112737
2761 030476
030476 105037
2762 030502
030502 112737
2763 030510

000043

030510
2764 030514

105037

MACRO M1113

30-DEC-80 09:36

032551

032742
503448:

000043

032166

032172
000043

032304

032311
000043

032422

032426
000043

032544

032551
000043

032735

032742

17gs 030514

503458 :

2766

2768 030514
030514

030520

2769 030522
030522
030526

030530
030530
030534
030534

030540
2770 030542
030542
030546

2771 030550
030550
030556
2772 030560
2773 030622
030622
030630
030632
030640

SEQ 0090

PAGE 33-1

LET BP96Q2+18. :B= #43
MOVB _ #43,BP9632+18.
LET BP96Q4+13, :B= #0
CLRB _ BP96Q4+13,
LET BP96Q4+18, :B= #43
MOVB
#43,BP9604+18.
ELSE
; EUROPEAN, PRINT POUND STERLING SIGN
BR
50345%
LET BP6402+18. :B= #43
MOV
#43,BP6402+18.
LET BP6402+22. :B= #0
CLRB_
BP6402+22.
LET BP64Q3+35. :B= #43
MOVB
#43,BP6423+35.
LET BP6403+40, :B= #0
CLRB__
BP6403+40.
LET BP6404+53. :B= #43
MOVB
#43,BP6404+53.
LET BP6404+57, :B= #0
CLRB
BP6404+57.
LET BP96Q2+13. :B= #43
MOVB
#43,BP9602+13.
LET BP9602+18, :B= #0
CLRB_ _ BP96Q2+18.
LET BP96Q4+13. :B= #43
MOVB
#43,BP96Q4+13.
LET BP96Q4+18, :B= #0
CLRB.
ENDIF

BP96Q4+18.

PRINT PROPER BAND IDENTIFICATION MSG. ON EACH PRINTER

LET R1

013701
005301

002012

005037
000402

002314

005237

002314

023701
003162

002314

013702
006302

002314

032762
001152

002000

002512

BIT
BNE

032762
001025
032762
001021

001000

002512

002000

002512

BIT
BNE
BIT
BNE

503478:

:= LSUNIT - #1

MOV
LSUNIT,R
DEC
Rl
INCR LUNIT FROM #0 TO R1 BY #1
CLR
LUNIT
BR
50346$

INC
503468:
.
(MP
BGT

MOV
ASL

LUNIT

LUNIT,RI
503508

LET R2 := LUNIT SHIFT 1
LUNIT.R2
R
IF #FLAGO7 NOTSETIN STATUS(R2) THEN
= WFLAGO7,STATUS(R2)
50351%
OUTPUI #BNDTST,#23., ,LUNIT
IF #FLAG26 NOTSETIN STATUS(R2) AND #FLAGO7 NOTSETIN STATUS(RZ) THEN
WFLAG26,STATUS(R2)
503528
AFLAGO7,STATUS(R2)
50352%

CZLPLDO LP25, LP26, LPO7 TEST

BAND PATTERN

MACRO M1113

ENDI?UTPUI

775 030;04

2779 030766

2784

2785 0

FRRRRRR

2782 €3104
2783 03

032762
001425
032762
001021

001000

002512

002000

002512

032762
001422

010000

000421

50353%
#F LAGO7 ,STATUS (R2)
50353%

END]?UTPUI

50350%:

: PRINTER IS LP26

; 96 CHAR BAND

50355%

ENDX(F)UTPUI

50355%:

000611

IF #FLAG9S SETIN STATUS(RZ) THEN
#FLAG96,STATUS(R2)
50354%
ELSEOUTPUI #BPO6ID , #22., ,LUNIT

BEQ

50351%:

#BPID26,46, ,LUNIT

BIT

50354%:

: PRINTER IS LP2S

#FLAG26,STATUS(R2)

BIT

BEQ
BIT
BNE

002512

#BPID2S 46, ,LUNIT

IF #FLAG26 SETIN STATUS(RZ2) AND #FLAGO7 NOTSETIN STATUS(R2) THEN

50353%:

2780 030776
2781 031040

50352%:

SEQ 0091

PAGE 33-2

30-DEr=-80 09:36

774 030642

030704
2776 030704
030704
030712
030714
030722
2777 030724
2778 030766

#BP64LID , #22. ., ,LUNIT

: 64 CHAR BAND

ENDIF
END INC

50347%

2793 03
2794 031

Wil
s3
oo

2792 03

REKRENNSRRRER

* NOW PRINT 2_LINE PATTERN 15. TIMES, WITH BLANK LINE BETWEEN PATTERNS

2795 031162
2796 031224
0

2797 831226
0

2798 031236

012737

000016

005037
000402

002314

005237

002314

023701
003105

002314

013702
006302
032762
001075
032762
001022

002276

2%:

CLR

50357%:

#14. ,LINCNT

INCR LUNIT FROM #0 TO R1 BY #1
50356%

LUNIT

(MP
BGT

LUNIT,R1

002314

MOV

nglT.RZ

002000

002512

BIT

#FLAGO7 ,STATUS (R2)
50361%

010000

002512

BIT
BNE

#F LAG96,STATUS(R2)
50362%

50363%

ASL

BNE

:
503628

003000

002512

BIT
BNE

; PRINT QUADRANTS 1 & 2

LUNIT

INC

50356%:

000447
032762
001022

LET LINCNT := #14.

MOV

50360%

LET R2 := LUNIT SHIFT 1

; INDEX INTO STATUS TABLES

IF #FLAGO7 NOTSETIN STATUS(RZ) THEN
IF #FLAG96 NOTSETIN STATUS(RZ2) THEN

OUTPUl #BP64QT ,#121., ,LUNIT

; 64 (HAR PATTERN

IF #FLAG26'!FLAGO7 NOTSETIN STATUS(R2) THEN

#FLAG26!FLAGO7,STATUS(R2)
503648

OUTPUl #BP96Q3, #121., . LUNIT

: LP2S 96 CHAR PATTERN

e
— =y

| CZLPLDO LP2S, LP26, LPO7 TEST

| BAND PATTERN

|
|
x

c 8
MACRO M1113 30-DEC-80 09:36 PAGE 33-3

2799 031300
031300 000421

503648:

031302

2800 031302

2801 031344
031344
2802 031344
031344
2803 031344
031344
2804 031344
031344

2805

031346

2806 031346

031346
031352
031354
C31354
031360
031360
031364

2807 031366

031366

031372

2808 031374

031374

031402

2809 031404

031404

031412

2810 031414

2811 031456
031456
031460

031524
2817 031530
2818 031532
53;3 031536

CLR
BR

INCR LUNIT FROM #0 TO R1 BY #1
LUNIT
50366$

023701
003057

002314

013702

002314

MOV
ASL

002000

002512

BIT

7
STATUS (R2)
#FL,AGO

002512

BIT

#FLAG96, STATUS (R2)

50373

006302

032762

001047

032762

001022

010000

503668:

000421

INC

LUNIT

CMP
BGT

LUNIT,R1
50370%

LUNIT,R2
50371%

000714
005337
001402
000137

503708:

002276

031114

IF #FLAG96 NOTSETIN STATUS(R2) THEN

50372%

ELSE

2.,
. LUNIT
OUTPUI #BP6403,4#12

. 64 CHAR PATTERN

OUTPUI #RP96Q3,#122...LUNIT

: 96 CHAR PATTERN

ENDIF

503738:

ENDIF

END INC

50367%

LET LINCNT := LINCNT = #1

DEC
BEQ
JMP

LINCNT
3$
2%

DO TOF THEN EXIT ON ALL UNITS EXCEPT LPO7'S
112727

000014

031544
031550
031552
031552

005037
000402

002314

005237

002314

LET #OUTBUF :B= #14

003160

MOVB

#14,#OUTBUF

CLR
BR

LUNIT
50374%

INC

LUNIT

INCR LUNIT FROM #0 TO R1 BY #1

50375%:

: INDEX INTO STATUS TABLES

IF #FLAGO7 NOTSETIN STATUS(R2) THEN

BNE

503718%:

: REPEAT FOR ALL UNITS

LET R2 := LUNIT SHIFT 1

BNE

50372%:

031536

2823 031544

. NOW DO QUADRANTS 3 & 4

0C2314

2821

2822 031536

END INC
50357%

005237

2813 031522

2816 031524

002314

2812 031400

031522
2814 031522
031522
2815 031522
031522
031524

ENDIF

005037
000402

50367%:

; LP26 96 CHAR PATTERN

ENDIF

503638:
_
503618:
503608:

OUTPUI #BP96Q1.#121.,.LUNIT

ENDIF

503658:

000666

ELSE

50365%

SEQ@ 0092

CZLPLDO LP2S, LP26, LPO7 TEST

BAND PATTERN

2826 031602
2827 031644
031644
031644
2828
031644
031646
2829
2830 031646
031646
031650
2831
2832 031652
2833 03173
2834 031760
2835 031766
2836 031774
2837 032022
2838
2839
2840
2841 032050
2842 032060
2843 032112
2844
2845 032144
2846 032154
2847 032206
2848
2849 032241
2850 032251
2851 032303
2852
2853 032335
2854 032345
2855 032377
2856
2857
2858
2859 032433
2860 032443
2861 032475
2862 032522
2863 032523
2864 032526
2865
2866 032527
2867 032537
2868 032545

MACRO M1113

30-DEC-80 09:36

50374%:

(MP
BGT

023701
003031

002314

0137C2
006302

002314

MOV
ASL

002000

BIT

032762
001021

002512

50377%:
50376$:
EXIT TST

BNDTST:
BPID25:
BPID26:
BP64ID:
BP96ID:

50376%

LET R2 := LUNIT SHIFT 1
nglT.RZ

1F #FLAGO7 NOTSETIN STATUS(R2) THEN

#FLAGO7 ,STATUS (R2)

50577%

50375%

TRAP

CSEXIT
L10017=-.

LASCIZ

/INXABAND PATTERN TEST DOES NOTHING ON LPO7'SZIN/

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

/BAND PATTERN TEST 08
/.
/LP2S
/LP26

040

BP64Q1: .ASCII

040
105

BP64Q2:

040
053
043

040
105
066

040
117

040

057

103
127

077

100

133

040
134

LP25 & LP26

JASCII
LASCI

LASCII
LASCII
LASCII

BP640Q3:

LASCII
LASCII
LASCII

/ +E%RT)(0:/<57>/%1:>2<?23a]4[\"''S/
*GH, ] J=KLM. /
/X#6="78"'8ABCODF

BP64Q4:

LASCII
LASCII
LASCII

/NOEPQTRSOUVWIXY2Z 3+%4R) (5/

066

102
6

/ABECDTFGOHIJ1KLZ2MN30P4QRSS/
/UV6UX7YZS_¢Z9&):(:,/<57>/s-;><./

/2AEICT\" 0#=1'4#2"“A3BC4LDF G5/

/H16JK7LMBNOPIQR*SU, VW=XYZ./<12>

_:/68;7><82]9[\*'® #==14",_<12><12>

1 96 CHAR BAND
040

/64 CHAR BAND PATTERN/<12><12>
/96 CHAR BAND PATTERN/<12><12>

: 64 CHAR BAND PATTERN

100
m

OUTPUI #0UIBUF ,#1, ,LUNiT

. WORD
.NLIST BEX

NOO7 :

LUNIT,R1

ENDIF

END INC

SEQ 0093

PAGE 33-4

BP96Q1:

BP96Q2:

.ASCII
LASCII
LASCII
.BYTE
LASCII
.BYTE
LASCII
LASCII

LP25 = Q3..04
/

LP26 = Q1..04

/ABCDOEFGIH]J2KLMN30PQ4RSTS/
42¥UX6Y2_75128)(:/<S7>/9o;>/
/<?a/

164

%/
/10N,
174

;
'

CZLPLDO LP2S, LP26, LPO7 TEST

BAND PATTERN

MACRO M1113

30-DEC-80 09:36 PAGE 33-5
ASCII

/=x'#'</

2869 032546

075

052

041

gg;z 032617
9875 032626

170
040

171
040
102

‘BYTE 170.171,172.67.12
172
/
040 BP96Q3: .ASCII /
EFGOHIJ/

2878 032651
2879 032655
2880 032656

12
164
117

114

115

125

126

120

121

2883 032720
2884 032730
2885 032736
2886 032737

040
135
174
075

040
133

040
134

065

041

2890 033011

171

172

056

.
|

|
|

2870 037554
2871 032571
2872 032604

2876 032634
2877 032650

sgg} 032666

2887 032745
2888 032762
2889 032776
2891
2892
2893 033016
033016

033016

28%4 033020

17%
146
157

101
145

175
146
054

104401

173
147
064

173
147
160

176
150 .BYTE
160

"BYTE 175.173,176,136,56.377.140,141,60,142,143,144,61
146,147,150.151.62.152.153.154.63,155.156
BYTE “157.64,160.161.162.163.65.165,166,167,66

103

"ASCII
BYTE

TASCII
‘BYTE
"ASCII

/KLMN/
164
/0PQ,RST#*/

TASCI] /UVWX=YZ_.$%80) (:/<57>/1+;>2<2a3/

127

176
150
161

/ABCDB
145

BP96Q4: .ASCII
TASCIT
BYTE
TASCII

"BYTE
BYTE
‘BYTE

‘BYTE

.LIST BEX
EVEN
ENDTST
£10017:
ENDMOD

TRAP

/
/
/7JC\''%#/
174
/=S'#'6/

175.173.176.136.67,177,140,141,70,142,143,144,71
146.1-’.7,150,151,145.152.153.154,164,155,156,157
54.160,161,162.163.52,165,166,167,55,170

171.172.56.12.12
($ETST

SEQ 009«

| CZLPLDO LP2S, LP26, LPO7 TEST
SPURIOUS HAMMER
f IRING

MACRO M1113

SEQ 0095

PAGE 34

LSBTTL SPURIOUS HAMMER FIRING

2896
2897

2898 033020
2899

BGNMOD

2900
2901
290
290
2904
2905
2906
2907
2908 033020
033020
2909
2910

.'00

:THE PURPOSE OF THIS TEST IS TO DETECT SPURIOUS HAMMER FIRINGS AND DEFECTIVE
JHAMMER DRIVERS DURING THE OPERATION OF THE LINE PRINTER. THE PROGRAM

:PRODUCES A LEFT WEDGE PATTERN CONSISTING OF 132 LINES OF PRINT WITH EACH
:LINE BEGINNING WITH A “*2'* (HARACTER. ANY POINT OUTSIDE THE WEDGE
:BOUNDARIES IS CAUSED BY HAMMER MISFIRES OR BY HAMMER BOUNCE.

;PRINT

2911

012737
000402

000001

033072

005237

003154

033076
033104

023727
003123

003154

2917
2918
2919 033106

033106
2920 033112
033112
120

TEST HEADER

THE

F
IR, #33.
OUTPUT #HAM

2912 033020
2913
2914
2915
2916 033062
3
033070

2921

30-DEC-80 09:36

;OUTPUT THE ACTUAL WEDGE AT THIS POINT

012704

003160

012737

000204

163737

003154

50401%:

000204

50400%:

Mgv

#1,WORK

INC

WORK

CMP
BGT

WORK ,#132.
50402%

LET R4

MOV

033430
033430

;NUMBER OF LINES TO OUTPUT

INCR WORK FROM #1 TO #132. BY #1
50400%

;ALSO NUMBER OF PRINTING CHARACTERS

;OUTPUT BUFFER POINTER

:= AOUTBUF

#OUTBUF ,R4

;NUMBER OF SPACES TO FILL IN

LET SPCCNT := #132. - WORK
#132.,SPCCNT
MOV
K
, SPCCNT
WOR
SuB

:FILL THE OUTPUT BUFFER WITH THE REQUIRED NUMBER OF SPACES
WHILE SPCCNT NE #0 DO
50403%:

2924 033126

033126

33132

005737
001405

023430

033134

112724

000040

033140

005337

033430

033144

000770

033146
033
033152
2930 033160
033160
2931 033166

005037

002304

012737

000077

012737

TST

BEQ

50404%

LET (R4)+ :B= #40
#4640, (R4) +
MOVB
LET SPCCNT := SPCCNT = #1

DEC
ENDDO
50404%:

000041

SPCCNT

;SPACE FILL

;UPDATE FILLER TOUNTER

SPCCNT

50403%

LET CCNT := #0
(LR

CCNT

002310

LET CHRGEN := #77
MOV
#77, CHRGEN

002506

#33.,STRONT

LET STRCNT := #33,
MOV

WHILE

CCNT LT WORK DO

:FIRST CHARA(CTER A """
:# OF

(HARACTERS

:NOW FILL

IN GROUP

IN REST OF BUFFER

CZLPLDO LP2S, LP26, (P07 TEST

SPURIOUS HAMMER F IRING

033166
033166
033174

2932 033176
033176
2933 033202

023737

002304

005737
001006

002306

002022

MACRO M1113
003154

%ggg

50405%:

033204
2937 033212
033212

2938 033220
033220
2939 033220
033220

012737

000077

002310

MOV
ENDIF

50407%:

002310

033230

005237

002304

033234

005337

002306

033240
Saas 033242

000752

2943 033240

5323

112724

INC

CCNT

DEC

STRCNT

50405%

ENDDO

50406% :

:UPDATE POINTERS AND COUNTERS

LET (R4)+ :B= #12
#12,(R4)+
MOVB

(00012

:OUTPUT THE LINE

OUTPUT #OUTRUF ,#132.
OUTPUT #CQUTRUF +132. 41

033352
033354
2955 033354
033354
2956 033362

2058 033426

000046

112737

: SEND THE DATA, NO LF YET
: THIS MAKES SURE OUTPUT IS SENT

: BEFORE CHANGING OUTBUF DATA !

END INC

000014

003160

104432

50401%
BR
50402%:
LET QOUTBUF :B= #14
#14 ,0UTBUF
MOVB
,#1
QUTPUT #OUTBUF
EXIT TST
CSEXIT
TRAP

.WORD

L10020~-.

:COUNTERS, POINTERS, TEXT BUFFER,

gggg
000000

:TEST HEADER

123

AND HEADER FOR TEST PRINTOUT

SPCCNT: .WORD O

2963

2964
gggg 033432

CHRGEN

:NOW SET UP LINE TERMINATOR AND OUTPUT THE LINE.

000647

ggg} 033430

INC

LET STRCNT := STRCNT - #1

Sggg

2957 033424
033424

LET (R4)+ :B= CHRGEN
CHRGEN, (R4) +
MOVR

LET CCNT := CCNT + #1

2950 033246
2951 033310
2954 033352

#77 ,CHRGEN

LET CHRGEN := CHRGEN + #1

3322
2947 033242
033242

#33. ,STRCNT LET CHRGEN := #77

MOV

005237

2942 033234

LET STRCNT := #33.

002306

033224

2941 033230

GROUP POINTERS AND COUNTERS

000041

002310

2940 033224

CCNT ,WORK

CMP

012737

113724

SEQ 009¢

PAGE 34-1

50406%
BGE
IF STRCNT EQ #0 THEN
STRCNT
ST
50407%
BNE
:RESET

2936 033204

2967
2968

30-DE(C-80 09:36

120

125

NLIST BEX
HAMFIR: .ASCIZ
$

LLIST BEX

MESSAGE

/SPURIOUS HAMMER FIRING TEST 09/<12><12><12>

i
|

C2LPLDO LP2S, LP26, th? TEST

SPURIQUS HAMMER FIR]

MA(RO M1113

30-DEC-80 09:36

LEVEN

2972 033474
033474
033474
2973
2974 033476

104401

{16030
L

ENDMOD

TRAP

CSETST

PAGE 34<2

SEQ 0097

C2LPLDO LP2S, LP26, LPO7 TEST

PRINT CONTROL

30-DEC-80 09:36

SEQ 0098

PAGE 35

.SBTTL PRINT CONTRCL

033476

BGNMOD
A

;THIS TEST CHECK3 THE PRINT CONTROL BY SENDING MORE

THAN 132 (HARA(CTERS

;BEFORE SENDING A PRINT COMMAND. ALL CHARACTERS IN EXCESS _OF 132 CHARACTERS
;SHOULD BE DISREGARDED. THIS TEST DOES NOTHING ON ALL LPO7°S.
THREE LINES ARE PRINTED PER ITERATION, THESE LINES WILL
COLUMN NgHBERS ACRSSS THE PAGE. EXAMPLE :

IDENTIFY THE
1

3
012

1
2
3
123456789012345678901234567890

NOTICE THAT THE PRINTOUT SHOULD IDENTIFY 132 COLUMNS ACROSS THE PAGE.

;

THIS OUTPUT

IS REPEATED 13 TIMES.

MACRO M1113

2996

033476
033476
033476
033476
033502
033506
033510
033512
033516
033516
033522

2997 033524
033524
033530
033532
033532
033536
033536
033542
033544
033550
2998 033550

2999

3001
3002
3003

3004

BGNTST

110::
PRINTF #NOLPO7

MOV

#NOLPO7,=-(SP)

ADD

#4,SP

012746
012746
010600

034503
000001

062706

000004

013701
005301
000001

002012

005037
000402

002314

005237

002314

023701
003402
000137

002314

013702
006302

002314

LET R2 := LUNIT SHIFT 1
MOV
LUNIT,R2

032762
001402
000137

002000

IF #FLAGO7 NOTSETIN STATUS(RZ2)
#FLAGO7,STATUS(R2)
BIT

012737

000015

012705

034742

104417

005715
001002
000137

MOV
MOV
TRAP

LET-R1

#1,-(SP)
SP,RO
CSPNTF

:= LSUNIT - #1
R
LSUNIT
MOV
R1
DEC

$BRUMP=1

INCR LUNIT FROM #0 TO R1 BY #1

50410%:
50411%:

034406

50412%:

LUNIT
50411%

INC

LUNIT

CMP

LUNIT,R1

BLE
JMP

ASL

002512

BEQ

JMP

034402

MOV

002302

50415%:

033720

CLR
RR

50412%
50413%

50414%
OUTPUI #PRTCTL,#56..,,.LUNIT
LET COUNT := #13.
:;3..COUNT

MOV

LET RS := #TABLE1
#TABLE1,RS
WHILE (RS) NE #0 DO

TST

(RS)

BNE
JMP

THEN

.*6
50416%

CZLPLDO LP25, LP26, LPO7 TEST

PRINT CONTROL

3005 033656
3006 033716
033716
033720
3007 033720
033720
3008 033726

3009
3010 033770
033770
3011 033774
033774
033774
033776

3012 034004
3013 034044

MACRO M1113

3025 034332
3026 034340
3027 034402

3028 034402

3029
3030 034406

PAGE 35-1

30-DEC-80 09:36

OUTPUI (RS)+,#10.,,LUNIT

000753

50416%:

112737

000012

012705

034776

005715
001002
000137

034046

000753

50420%:

000016

005337

002276

023727
002002
000137

002276

002276
50421%:
000001

034204

50422%:

50423%:

000746

50424%:

TST
BNE
JMP

, #1
L INCNT
50423%
50424%

OUTPUI #x11,#10.,,LUNIT
E
ENDDCR
50421%

104432

LET COUNT := COUNT - #1
COUNT

1F COUNT GT #0 THEN

COUNT

. +6
50425%

P 1%

ENDIF

50425%:

177777

L INCNT

50422%

OUTPUI #OUTBUF ,#1,,LUNIT
OUTPUI #OUTBUF ,#1, LUNIT

JMP

MOVB

:
504148

DECR LINCNT FROM #14. TO #1 BY #1

CMP
BGE
JMP

BGT

ENDINCR

50417%

LINCNT

TST

003160

(R5)+ #10.,,LUNIT

ENDDO

DEC

002302

034332
033642

(RS)
.+6
50420%
OUTPUI

#14.

005737
003002
000137
000137

033532

CUTPUI #OUTBUF ,#1, ,LUNIT

MOV

DEC

000137

LET OUTBUF :B= #12

#12,0UTBUF

OUTPUI #OUTBUF ,#1,,LUNIT

002302

112737

50415%

#TABLEZ2,RS
WHILE (R5) NE #0 DO

005337

000014

ENDDO

LET RS := #TABLEZ2

50417%:

012737
000402

mMovB

003160

3014 034046
3016 034110
034110
034116
034120
034120
034124
034124
034132
034134
034140
3017 034140
3018 034202
034202
034204
3019 034204
3020 034246
3021 034310
034310
3022 034314
034314
034320
034322
3023 034326
3024 034332

ENDIF

LET OUTBUF

#14 ,0UTBUF

OUTPUI

JMP

50410%

TRAP

CSEXIT

50413%:
$BRIMP==1
EXIT TST

:B= #14

F
,LUNIT
TBU
#OU,#1,

SEQ 0099

MACRO M1113

| CZLPLDO LP25, LP26, LPO7 TEST

PRINT CONTROL

30-DEC-80 09:36
.WORD

PAGE 35-2

L 10021-.

034410

000422

3032 03412

120

122

110
T

111

PRTCTL: .ASCII /PRINT CONTROL TEST 10/ <12>

LASCIZ ~/SHOULD SHOW 132 COLUMNS PRINTED/<12><12><15>
117
05 NOLPO7: .ASCIZ /XINYAPRINT CONTROL TEST DOES NOTHING ON LPO7°S.IN/

3036 034566
3037 03576
3038 034610
3039 034622

040
040
040
040
040
040
040
040
040
i a5

040
040
040
040

XO:
X1:
Xo:
X3:

ASCIT
JASCID
LASCIT
.ASCII

040
040
040
040
B0 L

040
040
040
040
NS

XS:
Xé:
X7:
X8:
ey

JASCID
.ASCIT
(ASCIT
JASCIT
(ASCIT

3031

3033 03440
L oksos

3040 034634

3041 034646
3042 036660
3043 036672
3044 0364704
A3 056736
3049

3050 034742

3051 034776

3052

123
o5

034564

034576

3053

3054
3055 035032
035032

035032

3056 035034

104401

040

034564

034610

040

NLIST BEX

Xé:

JASCIL

034564

034622

.EVEN

TABLE1: .WORD

TABLE2: .WORD

.EVEN

LLIST BEX
ENDTST
L10021:
ENDMOD

0/
1/
2/
3/

7
7
7
/7
7

5/
6/
7/
8/
9/

71234567890/

7
7
7
/7

TRAP

Xx0,X0,x0,X0,x0 .X0,x0,x0,x0,Xx17,x1,x1,x1,0

X1,X2,X3,X&4,X5,X6,X7,X8 X9,%0,x1,x2,%3.,0

CSETST

SEQ 0100

ety

CZLPLDO LP25, LP26, LPO7 TEST

MULTIPLE LINE ADVANCE

30-DEC-80 09:36

MACRO M1113

.SBTTL

3059
3060
3061 035034

SEQ 0101

PAGE 37

MULTIPLE LINE ADVANCE

BGNMOD
;e

STHIS TEST CHECKS THE MULTIPLE LINE ADVANCE OF THE LINE PRINTER. A LINE OF

THAT NUMBER OF LINES. THUS THE
*NUMBERS IS PRINTED AND THEN THE PAPER IS ADVANCED LINES
FOLLOWING THAT

3064

*NUMBER PRINTED WILL INDICATE THE NUMBER OF BLANK
: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

3071 035034
035034
3072
3073
3074
3075 035034
3076
3077 035076
035076
3078
3079 035104
035104
3080 035104
035104
3081 035112
035112
035116
035122
3082 035126
035126
3083 035132
035132
035140
035142
035142
035146
035146
035154
3084 035156
035156
3085 035162
035162
035164
3086 035164
035164
3087 035166
035166
035166
035172
3088 035174
035174
3089 035200
035200
3090 035202
035202

BGNTST
Ttz

SEQUENCE.

11.

;PRINT TEST IDENTIFICATION

L
INE ,#86.
OUTPUT #MU
012737

035344

035342

LET STACHR := #TABSTR
MOV

#TABSTR,STACHR

:OUTPUT CHARACTERS

REPEAT

50426%:

117737

000232

013746
042716
042637

002276
000007
002276

012703

003160

012737
000402

000001

005237

002304

023727
003003

002304

117723

000160

000767

112723

005204

000771

MOVB

@STACHR,LINCNT

MOV
BIC
BIC

LINCNT ,=(SP)
#7,(SP)
(SP)+ ,LINCNT

LET LINCNT := LINCNT AND #7 ;MAKE THE ASCII TO OCTAL

LET R3 := #OUTBUF
002304

50430%:
000204

:SET UP OUTPUT BUFFER

#OUTBUF ,R3
(017
INCR CCNT FROM #1 TO #132. BY #1

50427%:

MOV

#1,CCNT

INC

CCNT

CMP
BGT

CCNT ,#132.
50431%

MOVB

(R3) +
@STACHR,

50430%

50427%

LET (R3)+ :B= @STACHR

ENDINC

50431%:

:PUT CHARACTER

IN OUTPUT BUFFER

LET R4 := #0
R4
CLR

005004

020437
001404

002276

:GET A CHARACTER TO OUTPUT

LET LINCNT :B= @STACHR

002276
000012

WHILE R4 NE LINCNT DO
50432%:
R4 L INCNT
CMP

BEQ

50433%

LET (R3)+ :B= #12

#12,(R3)+
MOVB
LET R4 := R4 + #
INC

50432%

ENDDO

sFILL WITH LINE FEEDS

CZLPLDO LP25, LP26, LPO7 TEST

MULTIPLE LINE ADVANCE
3091

MACRO M1113

SEQ 0102

PAGE 37-1

50433%:

035204

sNOW OUTPUT THE ACTUAL LINE

%83%

3094 035204

035204
035210

3095 035214

035214

%83? 035220
3098 035260
035260
035264
3099 035266
035266
%}8? 035274
3102 C35336
035336

013704
062704
005237

002276
000204
035342

005737
001307

002276

112737

000014

003160

3105 035342

000000

3107 035344

062

067

062

%}?g 035417

116

125

115

3106

3108 035361

115

31N
3112
3113
3114
3115

;NUMBER OF (CHARACTERS TO OUuTPUT

LET STACHR := STACHR + #1

; UPDATE CHARACTER COUNT

MOV
ADD

L INCNT R4
#132. R4

INC

STACHR

TRAP
.WORD

CSEXIT
L10022-.

035510
035512

104401

STACHR: .WORD 0

125

114

.NLIST BEX

TABSTR: .ASCIZ

MULINE: .ASCII

LASCIZ

/272637463540/

/MULTIPLE LINE ADVANCE TEST 11/<12>

/NUMBERS PRINTED REPRESENT # LINES TO NEXT LINE PRINTED/<12><12>

.EVEN
.LIST BEX

3116 035510
035510

;OUTPUT THE LINE

UNTIL LINCNT EQ #0
L INCNT
TST
50426%
BNE
LET OUTBUF :B= #14
#14 ,0UTBUF
MOvVB
,#1
OUTPUT #OUTBUF
EXIT TST

035340

3104

LET R4 := LINCNT + #132.

R4
OUTPUT AOUTBUF

104432
000150

3103

30-DEC-80 09:36

ENDTST
L10022:
ENDMOD

TRAP

CSETST

CZLPLDO LP2S, LP26, LPO7 TEST

CHARACTER AL IGNMENT

3133

JH'S AND SPACES WITH SPACES AND H'S.
BGNTST
T12::

012737

000062

005737
003002

002276

000137

036076

3137

3139

—a =

wvvun
HSWwWN

035636
3141
3142
3143
3144 035642
3145 035704
3146
3147
3148
3149 035746
035746
3150 035752
035752
3151 035756
035756

035762
036024

2%:

L INCNT
#50.
MOV
IF LINCNT LE #0 THEN
TST

LINCNT

504349
INLINE <JMP 3%>
3%
JMP

BGT

ENDIF

;LOAD BUFFER WITH ALTERNATING STRING OF "H'''S AND ‘'SPACE'"S

012704

003160

112737

000007

005237

003154

023727
003005

003154

112724

000110

112724

000040

000765

3140

12.

;PRINT TEST IDENTIFICATION
; PRINT TEST NAME ON LP
OUTPUT #CHRALN,#30.
i:RINT 24 LINES OF ALTERNATING "H''S AND "'SPACE'"S
LET LINCNT := #50.

50434%:

000402

3138

002276

035574

3134
3135 035574
035574
3136

CHARACTER AL IGNMENT

3129

3132

PAGE 38

;THIS TEST CHECKS CHARACTER ALIGNMENT BY OVERPRINTING LINES OF ALTERNATING

2125
3126 035512
035512
3127
3128 035512
3130 035554
035554
313

30-DEC-80 09:36

.SBTTL
BGNMOD

3120
3121 035512
3122

INWNWN

MACRO M1113

SEQ 0103

112724

50436%:
50435%:

MOV

#1,WORK

INC

WORK

CMP

WORK
, #66 .

MOVB

#40, (R4) +

50436%

ENDINCR

LET (R4)+ :B= #(R

MOVB

; 132 CHARACTERS

50435%

50437%
LET (R4)+ :B= #110
#110, (R4)+
MOVB
LET (R4)+ :B= #40
BGT

50437%:
000015

:= AOUTBUF
#OUTBUF ,R4

INCR WORK FROM #1 TO #66. By #1

003154

0001C2

LET R4
MOV

#CR, (R4)+

; PUT PATTERN INTO BUFFER

; FOLLOWED BY (R

* SEND BASIC PATTERN
OUTPUT #OUTBUF ,#132.

OUTPUT #OUTRUF +132. ,#1

* OVERPRINT WITH LINE OF ALTERNATING SPACE AND 'H'
012704

003364

112724

000110

112724

000012

LET R4 := #OUTBUF+132.

. FILL BUFFER WITH REVERSE PATTERN

#OUTBUF +132. .Ré4
LET (R4)+ :B= #1710 : W
#110,(R4)+
MOVB
LET (R&)+ :B= #LF
. FOLLOWED BY A LINEFEED
MOV

MOVB

#LF.(R4)+

OUTPUT

#OUTBUF +1,#132.

OUTPUT #OUTBUF +135%. .41

: OVERPRINT

8
CZLPLDO LP2S, LP26 f
(HARACTER AL {GNMEN

3155 036066
036066
75
3156 0
03607
3157 036076

LPO7 TEST

005337

002276

000137

035562

112737

000014

004737

005544

MACRO M1113

3%:

003160

3167 036220

104401

JMP

JSR PC,QUIET
EXIT TST

LET OUTBUF :B= #14
MOVB
#14,0UTBUF
OUTPUT #OUTBUF ,#1

TRAP
LWORD

110

PAGE 38-1

LET LINCNT := LINCNT = #1
L INCNT
DEC
%>
INL INE <JMP

104432
000042
103

30-DEC=-80 09:36

NLIST BEX

CSEXIT
L10023-.

CHRALN: .ASCIZ /CHARACTER AL IGNMENT TEST 12/<12><12><12>

.EVEN
LIST BEX
ENDTST

L10023

" TRAP

CSETST

SEQ 0104

| CZLPLDO LP25, LP26,

LPO7 TEST

INTERRUPT SERVICE ROUTINES
169

MACRO M1113

30-DEC-80 09:36

LSRTTL

170 036220

BGNSRY

PAGE 39

INTERRUPT SERVICE ROUTINES

:00

:INTERRUPT VECTORS ARE ESTABLISHED DURING INITIALIZATION
:POINTING TO THE BASIC ROUTINES WHICH
:SET UP THE UNIT NUMBER CAUSING THE INTERRUPTS.

2174
3175

:LINE NUMBER IS RETURNED IN R2

%};(7’

3178

3179

2180 036220
3181

;==

000000

000020

INTO0:

3182

2183
3184
3185
2186

.REPT 16.
SETPR] #PR]04

PUSH
X=X+2

LET R2 := #X
INLINE <JMP
.ENDR

10DRV>

36220
036224

012700
104441

000200

MOV
TRAP

#PR104 RO
C$SPR]

036230
036234
036240
036244
036246
036250
036254
036260
036264
036266
036270
036274
036300

012702
000137
012700
104441
010246
012702
000137
012700
104441
010246
012702
000137
012700

000000
004762
000200

MOV
JMP
MOV
TRAP
MOV
MOV
JMP
MOV
TRAP
MOV
MOV
JMP
MOV

#X,R2
10DRYV
#PR]104 RO
C$SPR]
R2.=(SP)
#X,R2
10DRYV
#PR]04 ,RD
($SPR]
R2,-(SP)
#X,R2
10DRV
#PR]04 ,RO

036226

036304
036306

010246

036310
036314
036320
036324
036326
036330
036334
036340
036344
036346
036350
036354
036360
036364
036366
036370
036374
036400

104441
010246
012702
000137
012700
104441
010246
012702
000137
012700
104441
010246
012702
000137
012700
104441
010246
012702
000137
012700

036406
036410

010246
012702

036404

104441

000002
004762
000200
000004
004762
000200

MOV

000014
004762
000200

TRAP
MOV
MOV
JMP
MOV
TRAP
MOV
MOV
JMP
MOV
TRAP
MOV
MOV
JMP
MOV
TRAP
MOV
MOV
JMP
MOV

000016

MOV
MOV

000006
004762
000200
000010
004762
000200
000012
004762
000200

TRAP

R2.=(SP)

C$SPRI
R2.=(SP)
#X,R2
10DRYV
#PR]104 RO
C$SPRI
R2,=(SP)
#X,R2
10DRYV
#PR104 ,RO
C$SPR]
R2,-(SP)
#X,R2
ICDRV
#PR104 ,RO
($SPRI]
R2,=(SP)
#X,R2
10DRY
#PR]104 ,RO
C$SPRI]

R2,=(SP)
#X,R2

SEQ 0105

CZLPLDO LP25, LP26, LPO7 TEST
INTERRUPT SERVICE ROUTINES
004762
000200
000020
004762
000200

000022
004762
000200

30-DEC-80 09:36
JMP

MOV
TRAP
MOV
MOV
JMP
MOV

TRAP
MOV
MOV

000024
004762
000200

JMP
MOV
TRAP
MOV
MOV
JMP
MOV

000026
004762
000200

MOV
MOV
JMP
MOV

000030
004762
000200

MOV
MOV
JMP
MOV

000032
004762
000200

3187

MACRO M1113

TRAP

TRAP
MOV
MOV

JMP

000034
004762
000200

MOV
TRAP
MOV
MOV
JMP
MOV

000036
004762

MOV
MOV
JMP

TRAP

PAGE 39-1

10DRY
#PR104 RO

C$SPRI
R2.=(SP)
X, R2

10DRY
#PR]104 RO

($SPRI

R2,=(SP)
#X,R2
10DRV
#PR]104,RO

C$SPRI

R2,=(SP)
#X,R2
10DRV
#PR]04 ,RO

($SPRI

R2.-(SP)
#X,R2
I0DRV
#PR104 ,RO

C$SPRI
R2,-(SP)

X ,R2

10DRV
#PR104,RO
C$SPRI
R2.=(SP)
#X ,R2
I0DRV
#PR104 ,RO
C$SPRI

R2,-(SP)
#X,R2
I10DRV
#PR]104 ,R0O

C$SPRI
R2,=(SP)
#X,R2
10DRY

SEQ 0106

C2LPLDO LP2S, LP26, LPO7 TEST

:UPDATES THE COUNTER AT A RATE OF 16.67 MILLISECONDS PER TICK
:AND UPDATES A SECOND COUNTER WHEN THE FIRST OVERFLOWS.
BGNSRV

036620

012700
104441

005737
001005
012737
005237

C(LKTCK: SETPRI #PRIO6
#P3106,R0
MOV

000300

TRAP
1ST

036674
000074

3204 036670

BNE

MOV

136674

036672

005337

036674

023727
001003

002322

000002

012777

000100

143436

3208 036672
3209 036674

TICK

50440%

LET TICK := #60.
#60.,TICK

LET TIME := TIME +

INC
ENDIF

TIME

LET TICK := TICK = #1
DEC

TICK

(MP

#2
CLKTYP,

;BACK UP SECOND TIMER

50441%
LET @CLKCSR := #100
#100,aCLKCSR
MOV

BNE

ENDIF

JAND EXIT

ENDSRV
000002

;60 TICKS PER SECOND

IF CLKTYP EQ #2 THEN

50441%:

3205
3206 036670

($SPRI

IF TICK EQ #0 THEN

50440%:

3207

PAGE 40

30-DEC-80 09:36

SEQ@ 0107

LSBTTL CLOCK SERVICE ROUTINE

OO0

Bkt
i
—

NN N

MACRO M1113

VOO

N NN

. CLOCK SERVICE ROUTINE

L10025:

TIME:

TI(k:

RT]

.WORD

MACRO M1113

C2LPLDO LP2S, LP26, LPQ7 TEST

RIKKKIKKIRIRIK

HARDWARE PARAMETER SECTION

30-DEC=-80 09:36

.SBTTL

B8GNMOD

036676

SEQ 0108

PAGE 41

HARDWARE PARAMETER SECTION

*he

STHIS SECTION INCLUDES THE QUESTIONS WHICH REQUEST THE OPERATOR 10
:FURNISH THE HARDWARE INFORMATION
sP=TABLES.

BGNHRD

000020

:
LSHARD:

NECESSARY TO BUILD THE HARDWARE

.WORD L10026=L$HARD/2
GETADR,0,0,160000,177516,YES
T$CODE
GETADR

000031
036740

T$CODE

GETVEC

‘

TSLOLIM
TSHILIM
GETTYP,4,0,3,0,3,YES
T$CODE
GETTYP

000110
000770

002032
036776
00C003
000000
000003

IM
TSLOL
IM
TSHIL

GETBND,6,1,YES
T$CODE

003130
037045
000001

?ETBND
ENDHRD

il el

N -

ooonO

L10026:

—

3226

GETVEC,2,0,110,770,YES

001031
036755

[]
No—l-l

3223

TSLOLIM
TSKILIM

160000
177516

NLIST BEX
GETADR: .ASCIZ
GETVEC: .ASCIZ
GETTYP: _ASCIZ
GETBND: .ASCIZ

/LP11 ADDRESS/
/INTERRUPT VECTOR/

/ENTER O IF LP25, 1 IF LP26, 2 IF LPO7 /
/96 (HARACTER BAND/
FOR FUTURE EXPANSION

: ENTER 3 |F LPYY
LIST BEX
.EVEN

C2LPLDO LP25, LP26, LPO7 TEST

SOF TWARE PARAME TER SCCTION

MACRO M1113

236

LSBTTL

37
3238

:
iee

2239
3352?
324
3243

30-DEC-B0 09:36

PAGE 42

SOF TWARE 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.

037070

037072

32«4 037072
037072
037074
037076
3245 037100
037100
037102

037104
3246 C37106
037106
037110
037112
037114
037116

2247 037120
037120
037122
037124

2248 037126
037126

037130
037132
037134
037136
3249 037140

:
BGNSFT

000023

LS$SOFT::

000130
037140
000001
001130
037176

3252 037176

3253 037250
3254 037335

3255 037356
2256
3257
3258
3259
3260 037404
3261 037444

037444
037446
037450
3262 037450
3263

GPRML
. WORD
.WORD
.WORD
GPRML
.WORD

MGTINT,0,1,YES
T$CODE
MGTINT
1
GETMAN,2,1,YES
T$CODE

.WORD
GPRMD
.WORD
.WORD
.WORD
.WORD
.WORD

1
GETTIM,4,D,2%77,4,60.,YCS
TS$CODE
GETTIM
377
TSLOL IM
TSHILIM

.WORD

000001

002052
037250
000377

000004
000074

003130
037335
000001

GPRML
.WORD
.WORD
.WORD

004052
037356
000377
000001
000377

.WORD
.WORD
WORD
.WORD

GPRMD
.WORD

ENDSFT

037140

3250
3251 037140

.WORD L10027-L$S0FT/2

GETMAN

GETPLA,6,1,YES
TS$CODE
GETPLA
1

GETMAX,10,D,377,1,255..YES
T$CODE
GETMAX
377
TS$LOLIM
T$SHILIM

L10027:

122
120

125
105

101

125

104
124

(000000
000000

000001

105
105

116
122

123
123
126

NLIST BEX
MGTINT: _ASCIZ
GETMAN: .ASCIZ

GETTIM: .ASCIZ
GETPLA: .ASCIZ

/RUN MANUAL INTERVENTION TESTS/
/PERFORM MANUAL PRINTING SPEcD MFASUREMENT/

/DESIRED TIME INTERVAL FOR PRINTING SPEED CALCULATION/
/TESTING IN U.S.A/

GETMAX: _ASCIZ
LLIST BEX
.EVEN
:

/AUTODROP ERROR COUNT/

PAT(H:
LASTAD

LSLAST::
ENDMOD
.END

.BiLkw
.EVEN

.WORD
LWORD

O
O

SEQ 0109

BIT3

BI18
BITO

BIT4
BITS
BIT6
BIT7

BNDPAT
BNDRDY
BNDSWI
BNDSW1
BNDTST
BNKSWI
=
BOE

BPID25
BPID26
BP641D
BP64Q1

($GPHR= 000

002352
002354

($GPLO=
($GPR]=
C$INIT=
($INLP= 000020

END2

END4
ERFLG =
ERRCOD
ERRFLG
ERROR =
ERRSVC
ERRTBL

ERR11
ERR12
ERR13
EVL

¢ey

DIAGMC=
DIGITS
DROPED=
DROPIT
EF .CON=
EF .NEW=
EF .PWR=
EF .RES=
EF.STA=

<-—ze=
Wi nnnnnn

BIT14
BIT1S
BIT2

CURCNT
=
($AU
C$AUTO=
($BRK =
C$BSEG=
($8SUB=
C$CEFG=
C$CLCK=
C$CLEA=
C$CLOS=
C$CLP1=
C$CVEC=
CS$DCLN=
C$DODU=
C$DRPT=
=
(DU
C$EDIT=
C$ERDF=
C$ERHR=
C$ERRO=
CS$ERSF=
C$ERSO=
C$ESCA=
($ESEG=
C$ESUB=
C$ETST=
CSEXIT=
C$GETB=
C$GETW=
C$GMAN=

(SPNTB= 000014
(SPNTF= ¢00017
(SPNTS= 000016
CSPNTX= 000015
($QI0 = 009377
C$RDBU= 000007
C$REFG= 000047
C$RESE= 000033
C$REVI= 000003
C$RFLA= 000021
C$RPT = 000025
($SEFG= 000046
($SPRI= 000041
($SVEC= 000037
C$TPRI= 000013
DATPTH 025640
DEL
= 000177
003052
DELCNT
002244
DFPTBL

BIT13

CURADD

CSOPEN= 00003

DT"MmMmMmYD

BINZDA
BITO
BIT00
BITON
BITO2
BIT03
BITO4
BITOS
BITO6
BIT07
BITO8
BITO9
BIT1
BIT1C
BITi1
BIT12

F SAU

016609
016677
000015
000020
000040
000007

BANDSW
BGTLCH
BGTSWI

027616
027500
014046
014255

FLSSEL
FLST

= 000050
(SMAN]
(SMEM = 000031
($MSG = 000022

g b

AUTSEC

gl aaAaaal ala Il a2 1)

|
|

AUTCON

|
|

= 000020

1
ASSEMB= 000010

2l Il i

ADR

BYTE(O= 000403
002304
CCNT
025636
CHAR
016376
CHNSEC
CHRALN 036156
(HRGEN 002310
006756
K1
010074
CLEAN
CLKCSR
(LKENA
CLXSET
CLKTCK
CLKTYP
CLKVEC
CLOCKP
COUNT
COUNTD
=
CR
CSRERR
CTLEND
CTLLOP

g Bt bt bt Bt Pt

ACTIVE= 020000

L] PAAAAAANAN
— nwunuuunao

SYMBOL TABLE

30-DEC-80 09:36

—— St

MACRO M1113

[afalalala]

CZLPLDO LP2S, LP26, LPO7 TEST

SEQ 0110

PAGE 42-1

ESEND =
ESLOAD=
FAKE
FF
FFSET
FLAG
FLAGDA

FLAGO?7=
FLAG26=
FLAG96=
FLSMSG

FLSMS1
FL3MS?2

010000 G
000040 G

002254 G

CZLPLDO LP2S, LP26, LPO7 TEST

SYMBOL TABLE

L$CCP
LSCLEA
. L$CO
LSDEPO
. LSDESC
| LSDESP
. LSDEVP
. LSDISP
LSOLY
LSDTP
LSDTYP
L$DUT
LSDVTY
LSEF
LSENVI
LSETP
LSEXP1
LSEXPS
LSEXPS
LSHARD
LSHIME
LSHPCP
LEHPTP
L SHW
L$ICP
LSINIT

LSLADP
LSLAST
LSLOAD
LSLUN
LSMREV
LSNAME
LSPRIO
LSPROT
LSPRT
LSREPP
LSREV
LS$SOFT
L$SPC
LSSPCP
L$SPTP
LSSTA
LESW
LSTEST
LSTIML
LSUNIT
LO7M64
LO7M96
L10001
L10002
L10003
L10004
L10005
L10006
L10007
L10010
L10011

002106 G
010064 G
002032 G
002011 G
002162 G
002076 G
002060 G
002132 G
002116 G
002040 G
002034 G
002072 G
002222 G
002052 G
002044 G
002102 G
002046 G
002064 G
(02066 G
036700 G
002120 G
002016 G
002022 G
002244 G
002104 G
005754 G

002026 G
037450 G
002100 G
002074 G
002050 G
002000 G
002042 G
002122 G
002112 G
002062 G
002010 G
037072 G
002056 G
002020 G
002024 G
002030 G
002262 G
002114 G
002014 G
002012 G
024007
024070
002254
002256
002274
007776
010256
011546
011242
011250
014540

L1OC1i
L10013
L10014
L10015
L10016
L10017
L10020
L10021
L10022
L10023
L10025
L10026
L10027
L26M64
L26MI6
MANSPD
MAXERR
MGTINT
MCVMSG
MRESET
MSGADR
MSGCNT
MUL INE
NMLFLS
NOCLCK
NOCLK

MACRO M1113

017646
025254
025700
026576
030316
033016
033474
035032
035510
036216
036670
036740
037140
023645
023726
002264
002272
037140
017546
007275
002712
002612
035361
017133
007640
004147

NOINTR= 000003
NOLPC7 034503
NONBUF 027721
NONCHR 027370
NOTIM 007702
031652
NOO7
NRGT16 007156
NRGT17 007241
OFFLIN 023146
ONEF IL= 000001
ONL IN1 023206
ONLIN2 023307
ONLIN3 023405
OUTBUF 003160
OQUTTIM 003706
0$APTS= 000000
0$AU = 000000
0$BGNR= 000000
0$BGNS= 000001
0os$bU = 000000
O$ERRT= 000000
OSGNSW= 000001
0$POIN= 000001
0$SETU= 000000
PAPCHK 016772
PAPRDY 013535
PAPRSW 013416
PAPSW] 0C3446
PAPSW1 013466
PAPTST (013624
PATCH 037404

30-DE(-B0 09:36

SEQ 011

PAGE 42-2

PATTER 025676
PERIOD 002266
007774
PLOC
001000 G
=
PNT
PRI = 002000 G
PRINTR 002320
PRIOO = CO00CDQ G
PRIO1 = 000040 G
PRIO2 = 000100 G
PRIO3 = 000140 G
PRIO4 = 000200 G
PRIOS = 000240 G
PRIO6 = 000300 G
PRI0O7 = 000340 G
PRTCHR
PRTCTL
PRTSPD
PTABAD
QUIET
RDYERR
READY
REFLIN
REPCNT
REPLUP
RESET1
RESET?2
RESTOR
RESVEC
SFPTBL
SKIP3
SPCCNT
SPED1
SPED2
SPED3
STACHR
STATER=
STATUS
STRCNT
SVCGBL=
SVCINS=
Sv(SuB=
SVCTAG=
SVCTST=
SYM =
SYMD =
SYMS =
SSLSYM=
TABAG4
TABA96
TABLDA 004742
TABLE1 034742
TABLE2 034776
TABSTR 035344
TB0764 024640
TB0796 025046
036674
TICK
036672
T IME

TIMOUT= 000002
TOF = 000014
TXERR 003661
TXNOIN 003733
T$ARGC= 000001
T$CODE= 004052
T$SERRN= 000012
T$SEXCP= 000000
T$FLAG= 000040
T$GMAN= 000000
TSHILI= 000377
TSLAST= 000001
T$SLOLI= 000001
T$LSYM= 010000

G
0
01
01
01
T
G
033
T
035034 G
T
035512 G
T
011550 G
T
014542 G
T
T3MOV 0163
016372
T3SET
017650 G
T4
025256 G
TS
025702 G
16
026600 G
17
030320 G
T8
033020 G
9
UAM = 000200 G

002312
UNIT
002270
USA
002342
wT
UUTEQD 003764
VFUCMD 002346
VFUINF 004257
VFUINT 014355
VFURDY 014447
VFUSEL 004033
VFUSET 004121
003154 G
WORK
WORK1 003156
= 000040
X
X$SALWA= 000000
x$FALS= 000040
X$OFFS= 000400
X$TRUE= 000020
034564
X0
034576
X1
034730
x11
034610
X2
034622
X3
034634
wa
034646
X5
034660
X6
034672
X7
034704
X8
034716
X9
$RGNLE= 177777
$BRUMP= 177777
$ERFLG= 000400
$F $SAND= 000310
$F $BAD= 000401
$F$BLA= 000170
$FSCAS= 000150
$FSDEC= 000220
$FSDO = 000340
$FSFAL= 000405
$F $G00= 000400
$FSIF = 000110
$FSINC= 000210
$F$L00= 000200
$F SNAM= 000160
$FSNO = 000403
$FSOR = 000320
$FSRTI= 000350
$FSRTN= 000300
$FSSEL= 000140
$FSTHE= 000330
$FS$TRU= 0004
$FSUNT= 000130
$FSWHI= 000120
$FSYES= 000402
$IFLEV= 177777
$15k0 = 000001
$15k1 = 000001
$15k2 = 000001

’
.

CZLPLDO LP25, LP26, LPO7? TEST

SYMBOL TABLE

STEMP = 050441

$NSK2 = 000110

SE@ 0112

30-DEC-80 09:36 PAGE 42-3

$NSK3 = 000110
$NSK4 = 000110
$NSKS = 000110
$SAVE = 000001
$SAVLE= 177777
$SELLE= 177777
$55K0 = 050436
$55k1 = 000402
STAGLE= 177777
$TAGNU= 050442

$15k3 = 000001
. $15k4 = 000001
. $L0 _ = 000000
$LOCTA= 177777
| $LSKO = 000000
$LSTIN= 000000
$LSTTA= 000000
SNESTL= 177777
$NSKO = 000110
$NSK1 = 000120

037450
00000¢
ERRORS DETECTED:

MACRO M1113

$TSKO = 050441
$T5k1 = 050436
$T5k2 = 050433
$15k3 = 050425
$T5k4 = 050424
$T5kS = 050255
$T5K6 = (50256
$TSK7 = 050246
= 000403
$U
$$ARGC= 000000

$$8YTE= 000403
$SCASE= 000404
$$DST = 000037
$SELOC= 000402
$SERFL= 000000
$$FLAG= 000001
$$FROM= 000000
$SINH = 000403
$$L0C = 036660
$$LOCN= 000000

000

. ABS.

001

VIRTUAL MEMORY USED:

58808 WORDS

DYNAMIC MEMORY: 21870 WORDS
ELAPSED TIME: 02:09:22

( 230 PAGES)

( 84 PAGES)

CZLPLD.CZLPLD/-SP=LB1:[1.1JSVC/ML.DB1:[205.121JSPMACJ/ML,DB1:[205,10]CZLPLD.P11

$SREG = 177777
$$RE TU= 000000
$SRTN1= 000000
$SRTN2= 000000
$$SRC = 000027
$$TGSV= 050213
$$7G51= 000001
$$7G52= 000000
$$70 = 000000
$$$TAG= 050000