Digital PDFs

AH-E635F-MC

October 1985

117 pages

Original

49MB

view download

OCR Version

61MB

view download

Document:	CZLPLF0 LP25,LP26,LP27,LP07 LP25,26,27,07 DIAG OCT 1985 bw
Order Number:	AH-E635F-MC
Revision:	000
Pages:	117
Original Filename:	CZLPLF0__LP25,LP26,LP27,LP07__LP25,26,27,07_DIAG__AH-E635F-MC__OCT_1985_gray.pdf

OCR Text

LP25 LP26
LP27 LPO7

AH-E635F-MC

LP25,26,27,07 DIAG
CZLPLFO

;

10F1

OCT 1985

EIEIEII :

-0

SEQ 000

'SER DOCUMENTATION CZLPLFO

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 3

.REM &
IDENTIFICATION
..............

PRODUCT CODE

PRODUCT NAME:

AC-E634F-MC

CZLPLFO LP25/26727/07 DIAG

MAINTAINER:

SMALL

PRODUCT DATE:

10-APR-8S

AUTHOR :

SYSTEMS DIAGNOSTICS

JOHN CHATALIAN

DON RICE

RALPH SCHAUBER

GLENN PERNA

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

NO RESPONSIBILITY IS ASSUMED
FOR
SOFTWARE 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

POP
DECUS

UNIBUS
DECTAPE

MASSBUS

USER DOCUMENTATION CZLPLFO

MACRO Y05.02

wWednesday 10-Apr-85 09:07

Page 4

SEQ 0002

UlbuNH.O
NOVNBWN O

MRV

NMNN

e ps ps pa

TABLE OF CONTENTS

GENERAL INFORMATION
PROGRAM ABSTRACT

SYSTEM REQUIREMENTS

RELATED DOCUMENTS AND STANDARDS
DIAGNOSTIC HIERARCHY PREREQUISITES
ASSUMPTIONS

OPERATING INSTRUCTIONS

COMMANDS
SWITCHES

FLAGS

HARDWARE QUESTIONS
SOF TWARE QUESTIONS

EXTENDED P-TABLE DIALOGUE
QUICK STARTUP PROCEDURE

DEVICE INFORMATION TABLES

TEST SUMMARIES

PERFORMANCE AND PROGRESS REPORTS

ERROR INFORMATION

USER DOCUMENTATION CZLPLFO

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page S

SEQ 0003
1.0

GENERAL INFORMATION

1.1

PROGRAM ABSTRACT

THIS DIAGNOSTIC PROGRAM VERIFIES PROPER PROPER OPERATION OF THE
LP25, LP26, LP27 OR LPO7
LINE PRINTER AND ITS ASSOCIATED M7258
CONTROL UNIT WHICH INTERFACES TO THE PDP-11 CPU.THE BROAD RANGE
OF TESTS ASSURES A COMPREHENSIVE TEST OF THE FUNCTIONAL CAPABI-

LITY OF THE LINE PRINTER.THE INDIVIDUAL TESTS ARE IDENTIFIED AS

FOLLOWS:

TEST
1
TEST
2
TEST
3
TEST
4
TEST
S
TEST
6
TEST
7
TEST
8
TEST
9
TEST 10
TEST 11
TEST 12

INTERFACE LOGIC
READY LINE INTERLOCKS
FORMS LENGTH SELECTION
PRINTING SPEED
DATA TRANSFER PATHS
PRINTABLE CHARACTERS
NON-PRINTABLE CHARACTERS
BAND PATTERN
SPURIQUS HAMMER FIRING
PRINT CONTROL
MULTIPLE LINE ADVANCE
CHARACTER ALIGNMENT

ANY MIX OF PRINTER TYPES (LP25, LP26, LP27, LPO7) CAN BE TESTED
UP TO
A TOTAL OF SIXTEEN UNITS. BAND CONFIGURATION (64 OR 96 CHAR)
IS HANDELED ON A UNIT BY UNIT BASIS. ALL UNITS NEED NOT HAVE
THE SAME BAND.

THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC
RUNTIME SERVICES SOFTWARE (SUPERVISOR).
THESE SERVICES PROVIDE

THE INTERFACE TO THE OPERATOR AND TO THE SOF TWARE ENVIRONMENT.
THIS PROGRAM CAN BE USED WITH XXDP+, ACT, APT, SLIDE AND PAPER
TAPE.
FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER
TO THE XXDP+ USER‘'S MANUAL.
THERE IS A BRIEF DESCRIPTION OF
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT.

1.2
1.2

SYSTEM REQUIREMENTS
SYSTEM REQUIREMENTS
A TEST STATION IS REQUIRED CONSISTING OF A PDP-11 CPU WITH A
MINIMUM OF 16K WORDS OF MEMORY AND A CONSOLE TERMINAL WITH
INTERFACE AT DEVICE ADDRESS 777560. THE SYSTEM ALSO REQUIRES
AN XXDP SUPPORTED DEVICE SUCH AS AN RKOS5/RK11 DISK DRIVE TO
AFFORD A MEANS TO LOAD THE DIAGNOSTIC PROGRAM. A KW11-L LINE
TIME CLOCK OR A KWil-P PROSRAMMABLE REAL-TIME CLOCK IS NECESSARY
FOR MEASURING THE TIME INTERVAL FROM WHICH PRINTING SPEED
IS
DETERMINED. IF A CLOCK IS NOT INSTALLED IN THE SYSTEM, THE
OPERATOR WILL HAVE TO USE MANUAL MODE TO MANUALLY TIME
PRINTER OPERATION FOR A FIXED TIME INTERVAL TO CALCULATE THE
PRINTING SPEED.
IN A MANUFACTURING ENVIRONMENT WHERE APT/ACT/SLIDE ARE USED,
THE TEST STATION MUST BE EQUIPPED WITH THE APPROPRIATE INTERFACE
AND A HOST PROCESSOR WITH THE NECESSARY SOFTWARE.

USER DOCUMENTATION CZLPLFO

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page S5-1

SEQ 0004

1.3

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 (PRELIMINARY)

DATE:

29-SEP-78

LINE PRINTER, 250 LPM (LP25) PURCHASE SPECIFICATION

(PRELIMINARY)

DATAPRODUCTS 300 LPM LINE PRINTER FIELD MAINTENANCE
GUIDE (PRELIMINARY)

DATAPRODUCTS 300 LPM LINE PRINTER OPERATOR'S GUIDE

(PRELIMINARY)

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 CPU, MEMORY, AND PERIPHERALS SHOULD BE
RUN TO VALIDATE PROPER OPERATION OF THE SYSTEM BEFORE RUNNING
THIS DIAGNOSTIC.

1.9

ASSUMPTIONS

THE LINE PRINTERS UNDER TEST SHOULD HAVE POWER APPLIED AND BE
PLACED ON LINE IN READINESS FOR TESTING. EACH LINE PRINTER
MUST HAVE ITS OWN M7258 CONTROLLER SET UP AT A DIFFERENT DEVICE
ADDRESS. THE DIAGNOSTIC PROVIDES A DEFAULT DLVICE 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,IT MUST BE EQUIPPED WITH SPECIAL DIAG.

USER DOCUMENTATION CZLPLFO

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 5-2

SEQ 0005
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 “LS$LAST” WHICH
IS FOUND AT THE END OF THE ASSEMBLY LISTING. THIS SUM IS USED
AS THE ADDRESS INTO WHICH 42760 IS DEPOSITED. 177777 1S
DEPOSITED INTO THE SUBSEQUENT MEMORY ADDRESS.

2.0

OPERATING INSTRUCTIONS

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

2.1

COMMANDS

THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES

(SUPERVISOR).
THIS SECTION LISTS THE COMMANDS AND GIVES A VERY
BRIEF DESCRIPTION OF THEM.
THE XXDP+ USER'S MANUAL HAS MORE DETAILS.
COMMAND

EFFECT

START
RESTART

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

CONTINUVE

PROCEED
EXIT
ADD

DROP
PRINT

DISPLAY

FLAGS

ZFLAGS

CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER +C)

CONTINUE FROM AN ERROR HALT
RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!)
ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE
CONSIDERED TO BE ACTIVE AT START TIME

DEACTIVATE A UNIT
PRINT STATISTICAL INFORMATION (IF IMPLEMENTED
BY THE DIAGNOSTIC - SECTION 4.0)
TYPE A LIST OF ALL DEVICE INFORMATION
TYPE THE 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 OPERATIO
N.
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

/PASS:DDDDD

EXECUTE ONLY THOSE TESTS SPECIFIED IN
THE LIST.
LIST IS A STRING OF TEST
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 F0 64000)

/EQP :DDDDD

IN SECTION 2.3.
REPORT END OF PASS MESSAGE AFTER EVERY

/FLAGS:FLGS

SET SPECIFIED FLAGS.

FLAGS ARE DESCRIBED

USER DOCUMENTATION CZLPLFO

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 5-3

SEQ 0006
DDDDD PASSES ONLY.

/UNITS:LIST

(DDDDD = 1 TO 64000)

TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED

IN THE LIST.
LIST EXAMPLE - /UNITS:0:5:1(-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 S5 WILL BE
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY.
A
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS.
YOU MAY,
FOR EXAMPLE, TYPE "/TES:1-5" INSTEAD OF "/TESTS:1-5*.

BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH
COMMAND.

START
RESTART

CONTINUVE

TESTS

PASS

FLAGS

X
X

S
X

X
X

PROCEED
DROP
ADD
PRINT
DISPLAY

EOP

UNITS

X
X

X
X
X

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
LOE
IER=

HALT ON
RUNTIME
LOOP ON
INHIBIT

IXR#

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

PRI
PNT

DIRECT MESSAGES TO LINE PRINTER
PRINT TEST NUMBER AS TEST EXECUTES

IBR#+

ERROR - CONTROL IS RETURNED TO
SERVICES COMMAND MODE
ERROR
ALL ERROR REPORTS

INHIBIT ALL ERROR REPORTS EXCEPT

CALLED BY PRINTX MACRO'S)

USER DOCUMENTATION CZLPLFO

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 5-4

SEQ 0007

BOE
UAM
ISR
IDR

"BELL” ON ERROR
UNATTENDED MODE (NO MANUAL INTERVENTION)
INHIBIT STATISTICAL REPORTS (DOES NOT
APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT
STATISTICAL REPORTING)
INHIBIT PROGRAM DROPPING OF UNITS

LOT
EVL

LOOP ON TEST
EXECUTE EVALUATION (ON DIAGNOSTICS WHICH

ADR

EXECUTE AUTODROP CODE

HAVE EVALUATION SUPPORT)

*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1

SEE THE XXDP+ USER’'S MANUAL FOR
SPECIFY MORE THAN ONE FLAG WITH
TO CAUSE THE PROGRAM TO LOOP ON
AND TYPE A "BELL” ON ERROR, YOU

MORE DETAILS ON FLAGS.
YOU MAY
THE FLAG SWITCH.
FOR EXAMPLE,
ERROR, INHIBIT ERROR REPORTS
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 INFCRMATION 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
LP11 ADDRESS: (0)
(177514) ?
INTERRUPT VECTOR : (0)
(200) ?
ENTER O IF LP25, 1 IF LP26, 2 IF LPO7,
96 CHARACTER BAND (L)

2.5

3 IF LP27 (0)
ANSWER Y OR N.

(O) ?

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) ?2*
IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING
"Y".

THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED

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

USER DOCUMENTATION CZLPLFO

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 5-5

SEQ 0008

TESTING IN U.S.A. (Y) ?
AUTODROP ERROR COUNT (D) S ?
2.6

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

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

Q-FACTOR.
THIS Q-FACTOR MAY BE O OR 1.
BELOW IS A SIMPLE WAY
TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS.
# UNITS (D)

B8<CR>

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

160000<CR>

SUB-DEVICE # (0) ?
2<CR>
Q-FACTOR (0) 0 ?
<CR>
UNIT 4

CSR ADDRESS (0) ?

160000<CR>

Q-FACTOR (0) 0 ?

<CR>

SUB-DEVICE # (0) ?

3<CR>

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

Q-FACTOR (0) 0 ?

<CR>

UNIT 7
CSR ADDRESS (0) ?

160000<CR>

OF ERRORS

USER DOCUMENTATION CZLPLFO

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 5-6

SEQ

SUB-DEVICE & (0) ?
€<CR>
Q-FACTOR (0) 0 ?
1<CR>

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

Q-FACTOR (0) 1 ?

<CR>»

NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A
NON-DEFAULT RESPONSE IS GIVEN.
BE CAREFUL WHEN SPECIFYING
MULTIPLE UNITS!
AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS
DO _NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT.
THE PROCEDURE SHOWN IS
NOT VERY EFFICIENT.
»
THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER.
%EI}&%UILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION
& UNITS (D)

8<CR>

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

Q-FACTOR (0) 0 ?

0<CR>

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

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-FACTURS WERE SPECIFIED.
THE
SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT

WAS SPECIFIED ONLY ONCE.

1IN THE SECOND PASS,

FOUR ENTRIES WERE

BUILT.
THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED.
THE
“-* CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA

FROM THE FIRST NUMBER TO THE SECOND.

IN THIS CASE,

SUB-DEVICES

2, 3, 4 AND 5 WERE SPECIFIED.
(IF THE SUB-DEVICE WERE SPECIFIED
BY ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST
BE ON AN EVEN BOUNDARY.)
THE CSR ADDRESSES AND Q-FACTORS FOR
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND O RESPECTIVELY
SINCE THEY WERE ONLY SPECIFIED ONCE.
THE LAST TWO UNITS ARE
SPECIFIED IN THE THIRD PASS.
THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS
SHOWN BELOM.
& UNITS (D)

8<CR>

0009

USER DOCUMENTATION CZLPLFO

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 5-7
SEQ 0010

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

2.7 QUICK START-UP PROCEDURE

(XXDP+)

TO START-UP THIS PROGRAM:

BOOT XXDP+

GIVE THE DATE AND ANSWER THE LSI AND SOHZ (IF THERE
IS A CLOCK) QUESTIONS

TYPE "R NAME”,

TYPE

WHERE NAME IS THE NAME OF THE BIN OR BIC

FILE FOR THIS PROGRAM

"START”

ANSWER THE “CHANGE HW” QUESTION WITH “Y*
ANSWER ALL THE HARDWARE QUESTIONS
ANSWER THE

“CHANGE SW” QUESTION WITH “N*

WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE

DEFAULTS FOR FLAGS AND SOFTWARE 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:
NAME
TYPE
NUMBER
ERROR MESSAGE

ON UNIT NUMBER

TST NUMBER PC:XXXXXX

+WHERE; NAME = DIAGNOSTIC NAME

TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT)
NUMBER = ERROR NUMBER
UNIT NUMBER = O - 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
THE “IER” OR “IBR” FLAGS ARE SET (SECTION 2.3).
THESE MESSAGES
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE.

USER DOCUMENTATION CZLPLFO

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 5-8

SEQ 0011

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.
3.2 SPECIFIC ERROR MESSAGES
ERROR
1

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.

“CHARACTER BAND INTERLOCK SWITCH FAILURE"”

FAULTY INTERLOCK SWITCH.

“NOTE"
ERROR MESSAGES #11 AND #12 HAVE BEEN ELIMINATED

"INTERRUPT SERVICING FOR THE FOLLOWING
DEVICE DID NOT OCCUR*”
GLOBAL ERROR INDICATING INTERRUPT FOR
DATA TRANSFER DID NOT OCCUR.

“PRINTER STATUS ERROR”
GLOBAL ERROR INDICATING PRINTER ERROR

CONDITION.

“OQUTPUT TIMEOUT ERROR”
GLOBAL ERROR INDICATING TRANSMISSION
OF LAST CHARACTER DID NOT OCCUR

USER DOCUMENTATION CZLPLFO

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 5-9

WITHIN A GIVEN TIME.
16

"VFU INTERLOCK FAILURE"
FAULTY INTERLOCK SWITCH ON VFU TAPE READER COVER

"BAND GATE LATCH INTERLOCK FAILURE”

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
4
PRINTING SPEED MEASUREMENT
DETERMINES PRINTING SPEED ON THE BASIS OF THE PRINTING TIME INTERVAL
AND THE NUMBER OF LINES PRINTED.

TEST
S
DATA TRANSFER PATHS
!
CHECKS THE DATA TRANSFER PATNS FROM THE PRINTER OUTPUT TO
THE PROCESSOR INTERFACE.
TEST
6
PRINTABLE CHARACTERS

CHECKS FOR PROPER PRINTING OF ALL PRINTABLE CHARACTERS.

NON-PRINTABLE CHARACTERS
TEST 7

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

TEST 8
BAND PATTERN

.
SEQ 0012

USER DOCUMENTATION CZLPLFO

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 5-10

SEQ 0013

PRODUCES AN IMAGE OF 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 CHARACTERS IN EXCESS OF 132 CHARACTERS ON A LINE
ARE DISREGARDED.
TEST 11

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

Maaa
i
nasie

CILPLFO LP2S, LP26, LPO7, LP27

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 7
SEQ 0014

688
689
690
691
692
693
694
695
696
697
698
699

700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715

716

717
718
719
720
721

.TITLE

CZLPLFO LP2S, LP26, LPO7, LP27

.ENABL AMA
.SBTTL
IDENTIFICATION

DIAGNOSTIC

PRODUCT CODE:

AC-E634F
-MC

PRODUCT NAME:

CZLPLFO LP25/26/27/07 DIAG

MAINTAINER:

SMALL SYSTEMS DIAGNOSTICS

AUTHORS:

JOHN CHATALIAN

DONALD RICE

RALPH SCHAUBER
GLENN A. PERNA

DATE

10-APR-85

:COPYRIGHT (C) 1979, 1983, 1985 BY
:DIGITAL EQUIPMENT CORPORATION, MAYNARD MASSACHUSSETTS 01754
THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON
A
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE.
THIS
SOFTWARE,
OR
ANY
OTHER
COPIES
THERECF, 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 SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

CZLPLFO LP2S, LP26, LPO7, LP27

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 8
SEQ 0015

IDENTIFICATION
723
724
725
726
727
728

FUNCTIONAL DESCRIPTION
THIS DIAGNOSTIC PROGRAM VERIFIES PROPER OPERATION OF THE LP2S,
LINE PRINTER, AND IT'S ASSOCIATED INTERFACE MODULE.

729

730
731
732
733
734
735
736
737
738
739

740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762

ANY MIX OF LP25,

SIXTEEN UNITS.

LP26,

LP27,

LPO7 PRINTERS MAY BE TESTED,

LP26, LP27. LPO7

UP TO A TOTAL OF

THE PROGRAM CONSISTS OF TWELVE 1ESTS,
THREE OF THE PRINTER TESTS INVOLVE MANUAL INTERVENTION.

THSPPROGRAH IS COMPATIBLE TC THE PDP-11 DIAGNOSTIC SUPERVISOR,

XXDP

: VERSION
; HISTORY

A-0

27-SEP-79

R. SCHAUBER

REV. A-0

INITIAL RELEASE

REV.

B-0

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

REV.

C-0

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

REV.

0-0

INCLUDE LPO7 SUPPORT

12-JAN-81

REV.

E-0

INCLUDE LP27 SUPPORT

7-APR-83

REV.

F-0

MODIFIED CODE TO WORK ON PDP 11/73

REV-C SUPERVISOR / XXDP+ COMPATABLE

ACT/SLIDE,

H
:

10-APR-85 BY HOWARD MARSHALL

11/83

AND

CZLPLFO LP2S, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 9
SEQ 0016

IDENTIFICATION
764
765

766
767
768 000000

769
770
771

.TITLE
CZLPLFO LP25, LP26, LP27, LPO7 TEST
.SBTTL PROGRAM HEADER
.MCALL
SVC
SvC
ASSEMBLY
DIAGMCALLS
.MCALL
STRUCT

000005
020005

_7’;.‘3! 000000

SELECT,LET,IF,PUSH,DECR, INCR,WHILE,ELSE,POP,UNTIL,INLINE

-MCALL
000000
000000

781
782
783
784
;gs

6
787
788 0C0000
789

790

791
792 002000

000000
000000
000000
000000
000000

002000

SVCINS=
SVCTST=
SvCsuB=
SVCGBL=
SVCTAG=

103
132
114
120
114
000
000
000
106

060

002014

000060

002016

037646

002020

040060

002022

002250

002024

002266

002022
002024

INSTRUCTIONS
TEST TAGS
SUBTEST TAGS
GLOBAL TAGS
OTHER TAGS

.=2000

BGNMOD

000000

002020

;LIST
;LIST
;LIST
;LIST
;LIST

POINTER BGNSW,BGNSFT

002012

002016

0
0
0
0
0

-1

+ LIST ASSY CODE LEFT
: LIST TAGS LEFT

.ENABL AMA
.ENABL ABS
.ENABL LC

795 002000

002014

0
0

$LOCTAG=

:l’gz 002000

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

IFCOND,ENDINC,ENDSELECT,ENDDO,ENDDE
,ENDIF
CR,CASE
,REPEAT

SLSTIN=
SLSTTAG=

177777

s INITIALIZE SUPERVISOR MACROS
sDON'T CALL ALL MACROS. 883
¢
.
”
o

sSTRUCTURED MACRO PACKAGE

-MCALL

;:’Ig

’7!79
80

S
5

STRUCT

774

7
778

.
-

LSNAME: :

LS$REV::

L$DEPO::
L$UNIT::
LSTIML::

L$HPCP: :
L$SPCP::

LSHPTP::
L$SPTP::

HEADER

CZLPL,F,0,60,1,340

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.BYTE
.BYTE
.BYTE

/C/
72/
/L/
7P/
/L/
0
0
0

.ASCII

/F/

.ASCII

70/

.WORD

L$HARD

.WORD

LS$SOFT

.WORD

L$HW

.WORD

Ls$SW

;DIAGNOSTIC NAME

sREVISION LEVEL

HY
:NUMBER OF UNITS
;LONGEST TEST TIME

;POINTER TO H.W. QUES.
;POINTER TO S.W. QUES.

:PTR. TO DEF. H.W. PTABLE
iPTR. TO S.W. PTABLE

;$$$

;888

CZLPLFO LP25, LP26, LP27, LPO?

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 9-1

SEQ 0017

PROGRAM HEADER

002132
000340
000000

000000

003
003
000000
000000

000000

002222
000000
000000
000000
000000
00C000
000000
002162
104035
000000
006016
010154
002260

002122
000000

L$DTYP::
LSAPT::

L$PRIO::

LSEXP1::

L$SMREV::
L$EF::

L$SPC::

L$SDEVP:
:

LSREPP::
L$EXP4::
L$EXPS::
L$AUT::
L$DUT::
L$LUN::

L$DESP::
L$SLOAD::

L$ETP::

L$ICP::
L$CCP:
:

L$ACP::

L$PRT::
L$TEST::

LS$DLY::

.WORD
.WORD

L$DTP::

L$ENVI::

.WORD

.WOR

:RESERVED FOR APT STATS

0
A

:DIAGNOSTIC TYPE

:APT EXPANSION

;PTR. TO DISPATCH TABLE

L$DISPATCH

;DIAGNOSTIC RUN PRIORITY

.WORD

+FLAGS DESCRIBE HOW IT WAS SETUP

.WORD

;EXPANSION WORD

.WORD

;SVC REV AND EDIT ¢

.BYTE
.BYTE

CSREVISION
C$EDIT

.WORD
.WORD

0
0

.WORD

LSOVTYP

.WORD

000000

L$CO::

iDIAG. END ADDRESS

.WORD

000001

.WORD

LSLAST

.WORD

000000

L$STA::

.WORD

.WORD
.WORD

000000

LSLADP::

©O

002052
002052
0C2054
002056
002056
002060
002060
002062
002062
002064
002064
002066
002066
002070
002070
002072
002072
002074
002074
002076
002076
002100
002100
002102
002102
002104
002104
002106
002106
002110
002110
002112
002112
002114
002114
002116

040436

002026
002026
002030
002030
002032
002032
002034
002034
002036
002036
002040
002040
002042
002042
002044
002044
002046
002046
002050
002050
002051

.WORD

L$DESC

EMT

ESLOAD
o

.WORD
.WORD

LS$INIT

.WORD

L$CLEAN

.WORD

L$AUTO

.WORD

L$PROT
o

.WORD

:DIAG. EVENT FLAGS

+ POINTER TO DEVICE TYPE LIST
iPTR.

TO REPORT CODE

:PTR.

TO ADD UNIT CODE

;PTR. TO DROP UNIT CODE
iLUN FOR EXERCISERS TO FILL

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

TO INIT CODE

iPTR.

TO CLEAN-UP CODE

;PTR. TO AUTO CODE
;PTR. TO PROTECT TABLE
: TEST NUMBER

:DELAY COUNT

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 9-2
SEQ 0018

PROGRAM HEADER

796
797
798
799

002116
002120
002120

800 002122
002122
801 002122
802 002124
803 002126
804 002130

000000
000000

LSHIME::

.WORD
.WORD

;

iPTR. TO HIGH MEM

: THE FOLLOWING IS A LOAD PROTECTION TABLE

000000
177777
177777

L$PROT::

BGNPROT
.WORD
0
.WORD
-1
.WORD
-1
ENDPROT

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 10
SEQ 0019

DISPATCH TABLE
806
807
808
809
810
811
812
813 002130
002130
002132
002132
002134
002136
002140
002142
002144
002146
002150
002152
002154
002156
002160
814
815
816
817 002162
002162
002162
002165
002170
002173
002176
002201
002204
002207
002212
002215
002220
818 002222
002222
002222
002225
002230
002233
002236

002241
002244

819
820
821

.SBTTL

DISPATCH TABLE

i THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST.
+ IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST.
‘--

DISPATCH
.WORD
12

000014

L$DISPATCH:
:
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

010350
011640
014612
017720
026006
026432
027330
031050
033756
034434
036002
036460

:X= NUMBER OF TESTS

T1
T2
T3
T4
TS5
T6
T7
T8
T9
T10
Ti1
T12

:FOR USE ON REVISION C OF THE SUPERVISOR

103
120
111
040
111
105

107
123
103

114
065
120
062
114
067

132

114
040
116
120
116
122
111
116
124
000

120
062
114
067
120
000

114

pow—
DESCRIP
<CZLPLFO LINE PRINTER DIAGNOSTIC>
$
]
.ASCIZ
/CZLPLFO LINE PRINTER DIAGNOSTIC/

114
105

122

124
040
101
117
111

062
114
066
120

.EVEN
DEVTYP
L$DVTYP:
:
.ASCIZ

060
.EVEN

<LP25,LP26,LP27,LP07>

%LP25,LP26,LP27,LPO7%

CZLPLFO LP2S, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 11
SEQ 0020

DEFAWLT HARDWARE P-TABLE
823
824
825
826
827
828
829
830
831 002246
002246
002250
002250
002250
002252
002254

.SBTTL

DEFAULT HARDWARE P-TABLE

‘.""-—1--.

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

000004

177514
000200
000000

L$HW:
:
DFPTBL::

BGNHW
.WORD

DFPTBL
L10001-L $HW/2

.WORD
.WORD
.WORD

177514
200
0

;LP25 REGISTER ADDRESS
iLP25 INTERRUPT VECTOR
: 0 IF LP2S

s 1 IF LP26
: 2 IF LPO7

¢ 3 IF LP27
002256

000000

.WORD

;

0 IF 64 CHAR BAND
1 IF 96 CHAR BAND

; INTERRUPT VECTOR PRIORITY IS 4 AND CANNOT BE CHANGED
002260
002260

L10001:

002260
002260

L$AUTO::

002260
002262
002262
002262

000210

104461

ENDHW

BGNAUTO

NOP
L10002:

: NOT USED

ENDAUTO

TRAP

C$AUTO

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednescdcv _“-Apr-85 09:07

Page 12
SEQ 0021

SOFTWARE P-TABLE

855
856
857
858

.SBTTL

SOFTWARE P-TABLE

jee
i THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM

:23

i PARAMETERS THATM CAN BE CHANGED BY THE OPERATOR.
gue

861
862 002264
002264

002266
osd 002266
864 002266

865
866

867 002270

868
869

000005

874 002274
875
876
877 002276
:;3

000001

880 002300

881

002300

000005

.WORD

;0 IF NO INTERVENTION TESTS

.WORD

:0 FOR AUTOMATIC PRINT SPEED

PERIOD:

.WORD

60.

;OPERATOR TO SELECT TIMING VALUE
;FROM 4 TO 60 SECONDS. INITIAL
;:DEFAULT VALUE IS 60 SECONDS.

USA:

.WORD

:
:
:

INHINT:

:
.

000000
000074

SFPTBL
L10003-L$SW/2

L$SW::
SFPTBL::

000000

870 002272
871
:;g

BGNSW
.WORD

MANSPD:

:1 IF MANUAL INTERVENTION TESTS
;DEFAULT IS NO

:1 FOR MANUAL PRINT SPEED TEST
sAUTOMATIC DEFAULT VALUE

1 FOR TESTING IN U.S.A.
0 FOR TESTING IN G.B./EUROPE
* DIFFERENT BAND PATTERNS #
MAXERR: .WORD
S
; AUTODROP ERROR COUNT
i IF ERROR COUNT EXCEEDS MAXERR THE UNIT WILL BE DROPPED FROM TEST

L10003:

ENDSW

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 13

SEQ 0022

I70 MACRO DEFINITIONS
::3

.SBTTL

885

.MACRO

886

887
888
889

890

.IJF B

I/0 MACRO DEFINITIONS

OUTPUT

ADD,BFCNT,ERR,PRINTS

MOV

BFCNT,BUFCNT

MOV
MOV
ERR

ERR,ERRSVC

MOV

#1 ,BUFREP

: PRINT ONCE DEFAULT

PRINTS ,BUFREP

;

JSR
OUTPUT

PC,IOCTRL

;CALL THE DRIVER

OUTPUI
MOV
MOV
ERR
MOV

ADD,BFCNT,ERR,UNIT,PRINTS
ADD,BUFADD
;SAVE BUFFER ADDRESS
BFCNT,BUFCNT
;BUFFER BYTE COUNT BFCNT

.ENDC

.IF NB PRINTS
MOV

900
901
902

.ENDC
‘
.ENDM

905
906
907
908
909

.MACRO

903
904

910

9211

.IJF B
.ENDC

.IJF NB

OUTPUT TO ALL UNITS

ERR
MOV

897

898
899

;

#LPERR ,ERRSVC

.ENDC
.IF B PRINTS

896

#-1,PRINTR

:SAVE THE BUFFER ADDRESS

:BUFFER BYTE COUNT BFCNT

MOV

891
892
893
894
895

.ENDC
.IF NB

ADD,BUFADD

ERR

SUPPLY PRINT COUNT

#LPERR,ERRSVC

912
913
914
915
916
917
918
919
920
921
922

.ENDC
.IF B PRINTS
MOV
.ENDC
.IF NB PRINTS
MOV
.ENDC
MOV
JSR
.ENDM

925
923
92
928
929
930
931
932
933 002300

i PRINTS IS A PARAMETER CONTROLLING THE NUMBER IF TIMES THE DATA OR
i MESSAGE IS TO BE PRINTED (SENT TO THE PRINTER). DEFAULT IS 1.
:
i A TIMEOUT OF 20, SECONDS IS FURNISHE. BASED ON THE FOLLOWING ASSUMPTIONS :
3
1
A PRINTER SPEED OF 300 LPM
3
2
A REPEAT COUNT OF 88 MAX. ( 1 PAGE OF LINES AT 8 LPI. )
3
3
AN INITIAL BAND STARTUP TIME OF 2.5 SECONDS.
R
R
R R R R R R R R R R R R R R R R R R R RN R R R RN R R RSN RS RINIYTY
ENDMOD

%04

MOV

ERR,ERRSVC

#1 ,BUFREP

;

PRINT ONCE DEFAULT

PRINTS ,BUFREP

SUPPLY PRINT COUNT

UNIT,PRINTR
PC,IOCTRL

;+ SUPPLY UNIT NUMBER
;CALL THE DRIVER

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 14

SEQ 0023

GLOBAL AREAS
935
936
937 002300
938
939

.SBTTL

GLOBAL AREAS

BGNMOD
jee

940
941
942
943
947 002300

: THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES
s THAT ARE USED IN MORE THAN ONE TEST.
'--

EQUALS
:

: BIT DIFINITIONS
i

BIT15== 100000
BIT14== 40000

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

BIT13==
BIT12==
BITil==
BIT10==
BIT09==
BITO8==
BITO7==
BITO6==
BITOS==
BITO4==
BITO3==
BITO2==
BITOl==
BITO0==

001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

BIT9==
BIT8==
BIT7==
BIT6==
BITS==
BIT4==
BIT3==
BIT2==
BITi==
BITO==

20000
10000
4000
2000
1000
400
200
100
40
20
10
4
2
1

BITO09
BITO8
BITO7
BITO06
BITOS
BITO4
BITO3
BITO2
BITO1
BITOO

;

: EVENT FLAG DEFINITIONS
i
EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION
000040
000037
000036
000035
000034

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

32.
31.
30.
29.
28.

i PRIORITY LEVEL DEFINITIONS
000340

000300
000240

[

PRIO7== 340
PRIO6== 300
PRIOS== 240

BIT POSITION IN SECOND STATUS WORD
(100000) START COMMAND WAS ISSUED
(040000) RESTART COMMAND WAS ISSUED
(020000) CONTINUE COMMAND WAS ISSUED
(010000) A NEW PASS HAS BEEN STARTED
(004000) A POWER-FAIL/POWER-UP OCCURRED

CZLPLFO LP2S, LP26, LP27, LPO7

MACRO Y0S5.02

Wednesday 10-Apr-85 09:07

Page 14-1
SEQ 0024

GLOBAL AREAS
000200

PRIO4==
PRIO3==
PRIO2==
PRIO1==
PRIOO==

000140
000100
000040
000000

200
140
100
40
0

;OPERATOR FLLAG BITS
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000
100000
000012
000014
000015
000177

EVL==
LOT==
ADR==
IDU==
ISR==
UAM==
BOE==
PNT==

4
10
20
40
100
200
400
1000
2000
4000
10000
20000
40000
100000

PRI==
IXE==

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

LF==12

FF==14

CR==15
DEL==177
B

;PRIORITY LEVEL DEFINITIONS
000340
000300
000240
000200
000140
000100
000040
000000

;

PRIO7==
PRIO6==
PRIOS==
PRIO4==
PRIO3==
PRIO2==
PRIO1==
PRIOO==

340
300
240
200
140
100
40
0

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

STATER= 1
TIMOUT= 2
.

000003

NOINTR= 3 .

s TRANSMITTER STATUS ERROR IN OUTPUT
;sTIMEOUT ERROR IN IO DRIVER MODULE

;THIS

ERROR

INDICATES

THE

LAST

CHARACTER

sWAS NOT TRANSMITTED WITHIN A GIVEN TIME

:GROSS TIME OUT ERROR.

THE SPECIFIED DID NOT

: INTERRRUPT. THEREFORE IO DRIVER MODULE WAS

978
979
980

982
983
984
985

.SBTTL
;

;RO
iR1
iR2

iR3

;NOT CALLED
GENERAL REGISTER USAGE DEFINITIONS

RESERVED FOR USE BY THE MACRO PACKAGES
MAXIMUM NUMBER OF UNITS TO TEST LSUNIT-1
UNIT NUMBER BY 2. USED TO CALCULATE OFFSET INTO PROPER

PRINTER TABLE

TEMPORARY STORAGE

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 14-2
SEQ 0025

GENERAL REGISTER USAGE DEFINITIONS

986
987
988

;R4
;RS
;:R6

989

iR7

STACK POINTER

PROGRAM COUNTER

990

993
zg

:
; LP STATUS TABLE BIT DEFINITIONS

991
992

996
997
998
989
1000
1001
1002

igi
1005

100000
040000
020000
010000

002000
001000

000377

ERROR = BIT1S
DROPED = BIT14
ACTIVE = BIT13
FLAG96 = BIT12
;BIT11
FLAGO7 = BIT10
FLAG26 = BIT9
LOBYTE = 377

1006

1823

;

1007
1008

1011
1012
1013
1014
1015

:
3
:
3
:

; 96 CHAR BAND

;SEE DEVICE CODE BELOW
:SEE DEVICE CODE BELOW

: BIT MASK FOR CLEARING LOBYTE C(COUNTER)

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

BIT 9
0
1
0
1

DEVICE
LP25S
LP26
LPO7
LP27

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Pege 15
SEQ 0026

GENERAL REGISTER USAGE DEFINITIONS

1017
1018
1019
1020
1021
1022 002300
1023 002302
1024 002304
1025 002306
1026 002310
1027 002312
1028 002314
1029 002316
1030 002320
1031

.SBTTL

GLOBAL DATA SECTION

FLAG:
LINCNT:
LSTCNT:

.WORD
.WORD
.WORD

O
O
O

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

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

002324

002322

000000
000000

PTABAD:
PRINTR:

.WORD
.WORD

O
©

002326

000000

CLKTYP:

.WORD

0C2330
002332
002334
002336
002340
002342

000000
000000
000000

CLKCSR:

CLOCKP:

.WORD

CLKSET:
CLKVEC:

.WORD
.WORD

ERRCOD:

.WORD

000000

CLKENA:

.WORD

O
©

002344
002346

000000
000000

ERRFLG:
Wwr:

.WORD
.WORD

002350
002352

000000
000000

INDEX:
VFUCMD:

.WORD
.WORD

O
O

i<CR> FLAG FOR USE BY SUPERVISOR
sLINE COUNTER

sUNIT COUNTER FOR SINGLE UNIT TESTING
:UNIT COUNTER FOR ERRORS
sAND TESTS NOT USING THE OUTPUT
sMACROS.
iP-TABLE ADDRESS RETURNED BY GPHARD
+SELECTED LINE NO.
:MACRO
:CLOCK TYPE CONTROL WORD
i1= NO CLOCK AVAILABLE
;2= KW1il-L LINE CLOCK
i3= KW11-P PROGRAMABLE CLOCK
+ CLOCK P-TABLE ADDRESS
:CLOCK CSR ADDRESS
+ CLOCK TIME SET REG ADDRESS
+CLOCK VECTOR ADDRESS
;CLOCK ENABLE BITS
;ERROR CODE TYPE FOR GENERAL
:ERROR ROUTINE
+EXPECTED ERROR INDICATOR
i @ UNITS ACTUALLY UNDER TEST
;EXITS BACK TO IO DRIVER EQUAL
i1 IF ERROR WAS EXPECTED.

:HACRO VARIABLES
002354

000000

002356
002360

000000

BUFADD:

.WORD

BUFCNT:

.WORD

1BUFFER ADDRESS OF DATA TO BE SENT
:TO THE PRINTER
sNUMBER OF BYTES TO TRANSFER

BUFREP:

.WORD

i NUMBER OF TIMES TO PRINT

iLP25 PARAMETER WORD TABLES
002362

1069
1070 002422
1071
1072
1073 002456

000020

LPCSR:

000016

LPVEC:

000020

LPBUF:

.REPT
.HORD
.ENDR

16.
©

: ADDRESS OF CSR FOR EACH LP11

.MORD

: INTERRUPT VECTOR ADDRESS

.REPT

_REPT 16

i DATA BUFFER REGISTER ADDRESS

CILPLFO LP2S, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 15-1
SEQ 0027

GLOBAL DATA SECTION
1074
1075
1076 002516
1077
1078
1079 002556
1080

1081
1082 002616
1083
1084
1085 002656
1086
1087
1088 002716
1089
1090
1091 002756
1092
1093
1094 00301€
1095
1096
1097 0C3056
1098
1099
1100 003116
1101 003120
1102
1103
1104
1105 003160
1106 003162
1107
1108
1109
1110
1111
1112

000020

000020
000020
000020

000020

000000
000020

000000
000000

1118
1119

UNIT STATUS

CURRENT ADDRESS OF OUTPUT DATA BYTE

.WORD
.ENDR
REPCNT: .REPT
.WORD
.ENDR
MSGADR: .REPT
.WORD
.ENDR
CURCNT: .REPT
.WORD
.ENDR
LPINTR: .REPT
.WORD
0
.ENDR
DELCNT: .REPT 16.
.WORD
0
.ENDR
ERRSVC: .WORD
0
ERRTBL::
.REPT 16.
.#WORD
0
.ENDR
WOR;K:
WORK1:

.WORD
.WORD

.SBTTL

OUTPUT BUFFER

0
0

INITIAL BYTE COUNT OF MSG FOR REPEAT RESTORE
NO.

OF TIMES TO REPEAT MESSAGE

ADDRESS OF DATA TO PRINT START OF DATA

CURRENT COUNT REMAINING TO OUTPUT
INTERRUPT ROUTINE ADDRESS

TIMEOUT DELAY COUNTER

: ERROR ROUTINE DISPATCH ADDRESS
i ERROR COUNT FOR EACH UNIT

WORK AREA

:150 BYTES IS RESERVED FOR THE OUTPUT BUFFER AREA

1113

1114
1115
1116 003164
1117

.WORD
.ENDR
STATUS: .REPT
.WORD
.ENDR
CURADD
: .REPT
.WORD
.ENDR
MSGCNT
: .REPT

000226

OUTBUF
:

.EVEN
.REPT
.BYTE
.ENDR

150.
0

CZLPLFO LP2S, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 16
SEQ 0028

GLOBAL TEXT SECTION
1121
1122
1123
1124
1125
1126
1127
1128
1129 003412
1130 003430
1131 003452
1132 003515
1133 003562
1134 003632
1135 003665
1136 003712
1137 003737
1138 003770
1139 004037
1140 004125
1141 004153
1142 04221
1143 004262
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155 004212
004315
004320
004323
004326
004331
0v4334

1156
1157
1158
1159

004337
004342
004345
004350
004353
004356

.SBTTL

GLOBAL TEXT SECTION

.NLIST BEX
A

THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,

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

120
120
120
110
103
124
120
117
125
101

045
045
116
102
126

122
122
101
101
110
122
122
125
116
114
116
116
117
101
106

111
111
120
115
101
101
111
124
111
114
045
045
040
116
125

CSRERR:

ROYERR:
PAPSWI:
BNKSWI:
BNDSWI:
INTERL1:
TXERR:
OQUTTIM:
TXNOIN:
WTEQO:
VFUSEL:
VFUSEL1l:
NOCLK:
BGTSWI:
VEUE:F:
.EV

.ASCIZ /PRINTER ERROR/

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCII
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/PRINTER NOT READY/
/PAPER LOW INTERLOCK SWITCH FAILURE/

/HAMMER BANK INTERLOCK SWITCH FAILURE/
/CHARACTER BAND INTERLOCK SWITCH FAILURE/
/TRANSMIT INTERRUPT TIMEOUT/
/PRINTER STATUS ERROR/
/0OUTPUT TIMEOUT ERROR/
/UNIT FAILED TO INTERRUPT/
/ALL UNITS HAVE BEEN DROPPED..RESTART../
/#NSAINSURE THAT VFU-FLS SWITCH ON EACH UNIT IS IN THE /
/#NsA“VFU” POSITION.%N/
/NO CLOCK AVAILABLE FOR TIMING TESTS/<7><7>
/BAND GATE LATCH INTERLOCK FAILURE/
/VFU INTERLOCK FAILURE/

.LIST BEX
FORMAT

045
120
040
111
045
045
104
120
122
040
123
116

101

061

125
124

101
122
120
040
117
124
124
000

114

061
116
040
062
040

117
105

115
105

045

LPDROP:

STATEMENTS USED IN PRINT CALLS

.ASCIZ

/#ALP11 UNIT %D2%A DROPPED FROM TEST®N/

CZLPLFO LP25, LP26, LP27, LPO7
GLOBAL SUBROUTINES
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193 004360
004360
004264
004366
004374
004376
004400
004404
004406
004406
004410
004412
074414

1194
1195 004416
004416
1196 004416
004416
1197 004422
004422
004426
1198 004432
004432
004434

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 17
SEQ 0029

SECTION
.SBTTL

GLOBAL SUBROUTINES

SECTION

: THE GLOBAL SUBROUTINE SECTION CONTAINS THE SUBROUTINES

THAT ARE USED BY MORE THAN ONE TEST.

HA A

+ FUNCTIONAL DESCRIPTION:

SUBROUTINE TO PRINT THE GENERAL ERROR INFORMATION.
PRINTS THE ERROR MESSAGE IN THE FOLLOWING FORMAT:
“ERROR AT CSR XXXXXX UNIT YY*
WHERE XXXXXX=
YY=

DEVICE CSR ADDRESS

UNIT NUMBER THMAT FAILED

CALLING SEQUENCE
JSR PC,LPERR

REQUIRED PARAMETERS
ERRCOD MUST BE SET TO ONE OF THE ERROR CODES DESCRIBED
UNDER ERROR CODES.

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

013746
002455
023727
003051
006316
062716
013607

SELECT ERRCOD OF 3 VERIFY
MOV
ERRCOD, -(SP)

002342
002342

BLT
CMP
BGT

000003

ASL
ADD

004406

MOV
50000¢:

004524
004416

50003¢:
005262

003120

010237
006237

002074
002074

104456
000016

.WORD

.WORD
.WORD

004472

50005%
ERRCOD#3
,
50005$
(SP)
#50000¢, (SP)
a(sP)+ ,PC

i DISPATCH TABLE

.WORD

004444

:SELECT PROPER MESSAGE FORMAT

CASE 1

£7004%

50003%

50002¢
50001$¢

; CASE 0

;

CASE 1

; CASE 2
; CASE 3
iSTATUS ERROR

LET ERRTBL(R2) := ERRTBL(R2)
INC
ERRTBL(R2)
LET LSLUN := R2 SHIFT -1
MOV
R2,LSLUN
ASR
LSLUN
ERRHRD
14,TXERR
TRAP
CS$ERHRD
.WORD
14
\

+ #1

CZLPLFO LP25, LP26, LP27, LPO?
GLOBAL SUBROUTINES
004436
004440

1199
1200 004442
004442
004444
1201 004444
004444
1202 004450

004450
004454
1203 004460
004460
004462
004464
004466
1204
1205 004470
004470
004472

1206
1207 004472
004472
1208 0C4476
0C4476

004502
1209 004506
004506
004510
004512
004514
1210
1211
1212
1213 004516
004516
004520
004520
004524
004524
1214
1215 004524
004524
004532
1216 004534
1217 004540
004540
1218 004540
004540
1219 004546
004546
1220 004552

004552
1221 004560
1222
1223
1224

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 17-1

SEQ 0030

SECTION

003665
000000

.WORD
.WORD

000430

CASE 2

50002
:

005262

003120

010237
006237

002074
002074

TXERR
O

;OUTPUT TIMEOUT ERROR

500064

LET ERRTBL(R2)

:= ERRTBL(R2)

INC
ERRTBL(R2)
LET LSLUN := R2 SHIFT -1
MOV
R2,LSLUN

104456
000017
003712
000000

ASR
ERRHRD
TRAP
.WORD
.WORD
.WORD

L$LUN
15,0UTTIM
C$ERHRD
15
OUTTIM
O

000415

CASE 3
BR

500064

50001§:

005262

003120

INC

010237
006237

002074
002074

MOV
ASR

104456
000020
003737
000000

TRAP
.WORD
.WORD
.WORD

ENDSELECT
BR
50005%:
ADD
50004$:
500064:

000402

062706

000002

026237
003402
004737

003120

50007¢:
100000

005037

002342

012772
000207

000100

NEVER RECIEVED THE INTERRUPT

LET ERRTBL(R2) := ERRTBL(R2) + #1
ERRTBL(R2)
LET LSLUN := R2 SHIFT -1
R2,LSLUN
LSLUN
ERRHRD 16, TXNOIN
C$ERHRD
16
TXNOIN
O

50006$
#2,SP

IF ERRTBL(R2) GT MAXERR THEN
CMP
ERRTBL(R2) ,MAXERR
BLE
S0007¢

002276

005654

042762

+ #1

JSR PC,DROPIT
ENDIF
LET STATUS(R2)

002516

MAXIMUM ERROR COUNT EXCEEDED

:= STATUSCR2) CLR.BY #ERROR

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

002362

MOV

RTS

#100,8LPCSR(R2)

;

CLEAR THE ERROR BIT AND ENABLE INTERRUPTS

;AND EXIT

‘...---.-.'-.-.....-'..--..'..'.--.-

.-..-.--.....'..'.'..’-..-.’

; BIN2DA

BINARY TO DECIMAL ASCII CONVERSION ROUTINE

CZLPLFO LP25, LP26, LP27, LPO7
GLOBAL SUBROUTINES

MACRO Y05.02

1233 004566

1234 004572
1235 004576
1236 004602
1237
1238 004606

1239 004630

1240 004636
1241 004642
1242 004646

1243
1244 004650

1245 004664
1246 004672

1247 004676
1248 004702

1249 004704
1250 004710

Page 17-2

SEQ 0031

SECTION

1225
1226
1227
1228

1229
1230
1231
1232 004562

Wednesday 10-Apr-85 09:07

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

010446
010546

016604

000006

012705

004754

005037

004766

005037

004770

012737
000402

000004

005337

004772

005737
002435

004772

026615
002405

000010

161566

000010

005237

004770

004772

000770

005737
003003
005737
003410

004770

052737

000060

113724

004770

005237

004766

000402

112724

000040

004770

BIN2DA: PUSH R4,RS
MOV
MOV
LET R4 : = 6(SP)
i GET ADDRESS FOR ASCII STRING
MOV
6(SP),R4
LET RS : = #TABLDA
+ GET ADDRESS OF DECIMAL TABLE
MOV
#TABLDA,RS
LET FLAG DA := &0
i LEADING ZERO FLAG
FLAGDA
CLR
LET COUN T := #0
CLR
COUNTD
; 8.(SP) HAS NUMBER TO BE CONVERTED
DECR DIG ITS FROM #4 TO #0 BY #1 ; DO S DIGITS
MOV
#4 ,DIGITS
BR
50010¢
500115$:
DEC
DIGITS
50010%:
TST
DIGITS
BLT
500124
WHIL E 8.(SP) GE (R5) DO
i CREATE A DIGIT
50013$:
CMP
8.(SP),(RS)
BLT
50014
LET 8.(SP) := 8.(SP) - (RS)
sus
(R5),8.(SP)
LET COUNTD := COUNTD + &1
INC
gOUNTD
ENDD
BR
50013$
50014¢:
; CON VERT DIGIT TO ASCII OR SUPPLY A SPACE
IF C OUNTD GT #0 OR FLAGDA GT #0 THEN
TST
COUNTD
BGT
500154
FLAGDA
TST
BLE
500164
50015s:
LET COUNTD := COUNTD SET.BY #60
BIS
#60, COUNTD
LET (R4)+ :B= COUNTD
MOve
COUNTD,(R4)+
LET FLAGDA := FLAGDA + #1
FLAGDA
INC
ELSE
BR
50017
50016%:
LET (R4)+ :B= #40
#40,(R4)+
MOvB
ENDI F

CZLPLFO LP25, LP26, LP27, LPO7
GLOBAL SUBROUTINES
004710
1251
1252 004710
004710
1253 004714
004714
1254 004720
004720
004722
1235
1256 004722
004722
004726
1257 004730
004730
1258 004734
004734
1259
1260 004734
004734

1261 004742
004742
004744
1262 0C4746
004746
1263 004752
1264
1265
1266 004754
004762
1267 004766
1268 004770
1269 004772
1270

MACRO Y0S5.02

Wednesday 10-Apr-85 09:07

Page 17-3

SEQ 0032

SECTION

50017¢:
062705

000002

005037

004770

000736

50012%:

005737
001002

004766

112744

000060

50020¢:

016666

000004

023420
000012
000000
000000
000000

001750
000001

: IF NUMBER WAS A ZERO PRINT A 'O’

IF FLAGDA EQ #0 THEN
TST
FLAGDA
BNE
500204
LET -(R4) :B= 460
MOvB
#60, -(R4)
ENDIF

: CLEAN UP THE STACK AND EXIT

LET 8.(SP) := 4(SP)
MOV
4(SP),8.(SP)

000010

POP
MOV

012605
012604
062706
000207

; DO THE NEXT DIGIT

LET RS := RS + %2
ADD
#2,R5
LET COUNTD := #0
CLR
COUNTD
ENDDECR
BR
50011

MOV
LET SP
ADD

RTS

000144

RS,R4
(SP)+,RS5

(SP)+,R4
:= SP + 44
#4,5P
PC

TABLDA:

.WORD

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

FLAGDA:

.WORD
.WORD
.WORD

COUNTD:
DIGITS:

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 18
SEQ 0033

170 DRIVER
1272
1273

.SBTTL

1275
1276

:
jee

1274

I/0 DRIVER

1277
1278
1279
1280
1281
%g:g

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

1284
1285

goe

{g:g

; CHECK FOR ERROR FLAG IN STATUS REG.

1288 004774
004774
o 005002

IODRV:

032772
001061

100000

002362

ig:o

1
1292 005004
0C5004
005010
1293 005012
005012
1294 005020
sagn 005020

005762
003416

002756

117272

002556

005262

002556

1300 005036
005036
1301 005044
005044
005046
1302
1303 005046
005046
1304 005052
005052
005056
1305 005060
005060
1306 005066
005066
1307 005074
005074
1308 005102
005102
1309 005106
005106

COUNT NOT ZERO SEND NEXT BYTE

IF CURCNTC(R2) GT #0 THEN
CURCNT(R2)
500224
LET SLPBUF(R2) :B= @CURADD(R2)
MOVB
8CURADD(R2),8LPBUF
(R2)
LET CURADD(R2) := CURADD(R2) + #1
INC
CURADD(R2)
TST
BLE

002456

1233

12
1298 005024
005024
1299 005032
005032

IF #BIT1S NOTSETIN 8LPCSR(R2) THEN
BIT
#B8IT15,8LPCSR(R2)
BNE
500214

: ENABLE INTERRUPT FOR NEXT BYTE

052762

020000

005362

002756

052772

000100

002516

BIS
DEC

002362

BIS

000437
50022%:

ELSE

LET STATUS(R2) := STATUSCR2) SET.BY #ACTIVE
#ACTIVE,STATUSCR2)
LET CURCNT(R2) := CURCNT(R2) - #1
CURCNT(R2)
LET 8LPCSR(R2) := SLPCSR(R2) SET.BY #100
#100,3LPCSR(R2)

50023

; CURRENT MSG DONE, IF PRINT COUNT NOT ZERO SEND AGAIN
LET REPCNT(R2) := REPCNT(R2) - #1

005362

002656

005762
003424

002656

016262

002716

002556

MOV

016262

002616

002756

MOV

117272

002556

002456

MOVB

005262

002556

INC

REPCNT(R2)
IF REPCNT(R2) GT #0 THEN
REPCNT(R2)
500244
LET CURADD(R2) := MSGADRCR2)
; RESTORE THE MSG ADDR
MSGADR(R2),CURADD(R2)
LET CURCNT(R2) := MSGCNT(R2)
; RESTORE THE BYTE COUNT
MSGCNT(R2),CURCNT(R2)
LET SLPBUF(R2) :B= SCURADD(R2)
; RESEND THE MESSAGE
8CURADD(R2),8LPBUF(R2)
LET CURADD(R2) := CURADD(R2) + #1 ; BUMP THE POINTER
CURADD(R2)

005362

002756

DEC

CURCNT(R2)

DEC

TST
BLE

LET CURCNT(R2) := CURCNTC(R2) - #1

; DROP BYTE COUNT

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 18-1

SEQ 0034

170 DRIVER

1310 005112
005112
1311 005120
005120
1312 005126
005126
005130
1313
1314
1315 005130
005130
1316 005136

005136
1317 005144
005144
1318 005144
005144
1319 005144
005144
005146
1320
1321
1322 005146
0C5146
1323 005154
005154
1324 005162
1325
1326 005166
005166
1327 005166
005166
1328 005170

052762

020000

002516

BIS

012772

000100

002362

MoV

LET STATUS(R2)
@ACTIVE,STATUS(R2)
LET SLPCSR(R2)
#100,3LPCSR(R2)

50025$

000406
500245
:

i CURRENT MSG DONE, REPEAT COUNT =0
i CLEAR ACTIVE AND DISABLE INTERRUPTS.
042762

020000

002516

BIC

012772

000000

002362

MOV
50025¢:
50023s:

000410

50021%:

LET STATUS(R2)
®ACTIVE,STATUS(R2)
LET 8LPCSR(R2)
#00, 8LPCSR(R2)
ENDIF

:= STATUS(R2) SET.BY #ACTIVE

:= 4100

; RE-ENABLE INTERRUPTS

:= STATUS(R2) CLR.BY #ACTIVE
:= #00

ENDI®
ELSE
BR

50026¢

i CLEAR ERROR CONDITION, ENABLE INTERRUPTS
i SET ERROR FLAG

052762

100000

002516

012737
004777

000001
175730

002342

LET STATUS(R2) := STATUS(R2) SET.BY #ERROR
#ERROR,STATUS(R2)
LET ERRCOD := &STATER
i STATUS ERROR
MOV
#STATER, ERRCOD
JSR PC,8ERRSVC

BIS

50026%:
012602
000002

; ERROR SERVICE SHOULD CLEAR ERROR BIT AND ENABLE INTR
ENDIF

POP R2
MOV
RTI

(SP)+,R2

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 19
SEQ 0035

I70 CONTROL

1330
1331
1332
1333
1334
1335
1336
1337
1338
1339
1340
1341
1342
1343
1344 005172
005172
005174
1345
1346
1347
1348
1349 005176
005176
0C5204
1350 005206
005206
1351 005212
005212
1352 005216
005216
005220
1353 005220
005220
1354 005224

005224
1355 005232
005232
1356
1357
1358
1359 005232
1360 005232
005232
005234
1361 005236
005236
1362 005242
005242
1363
1364
1365
1366 005242
005242

005246
1367 005250
005250
1368

.SBTTL I/70 CONTROL
HA
4

H
B

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

: THIS ROUTINE IS INVOKED BY A JSR FROM AN I/0 CALL.
i INPUTS:
PRINTR
-1 FOR ALL TERMINALS

i
:

BUFADD
BUFCNT

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

H
i
-

IOCTRL: PUSH R2,R3

010246
010346

MOV

R2,-(SP)

R3,-(SP)

+ IF PRINTR IS -1 QUE OUTPUT TO ALL PRINTERS SELECTED
i OTHERWISE TO UNIT NUMBER IN PRINTR.
i

023727
001005

002324

013703

002012

005037

002074

177777

000405

50027

012703

002021

013737

002324

IF PRINTR EQ #-1 THEN
CMP
PRINTR,&-1
BNE
50027¢
LET R3 := LSUNIT
MOV
LSUNIT,R3
LET LSLUN := &0
CLR
L$LUN
ELSE
BR
50030
LET R3 := &1
#1,R3
LET LSLUN := PRINTR
MOV
PRINTR,LSLUN
ENDIF

MOV

002074

50030¢:
;

: REPEAT TILL R3 = 0
i

CTLLOP:
005703
001002
000137

IF R3 EQ #0 THEN
TST

BNE
005600

S0031¢:

S50031¢
INLINE <JMP CTLEND>
JMP
CTLEND
ENDIF

;

i USE R2 AS AN INDEX INTO THE UNIT TABLES
H

013702
006302

002074

MOV
ASL

005037

002342

CLR

LET R2 := LSLUN SHIFT 1
LSLUN,R2
R2
LET ERRCOD := 40

ERRCOD

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 19-1

SEQ 0036

I70 CONTROL

1369
1370
1371 005254
005254
005262
1372
1373
1374
1375 005264
005264
005272

1376 005274
005274
1377 005302
005302

1378 005310
005310
005312
1379
1380
1381
1382 005312
005312
0C5316
1383 005320
005320
005326

1384
1385
1386
1387 005330
005330
1388 005336
005336
005340
1389 005340
005340
005340
005346
1390
1391 005350
005350
1392 005356
005356
005362
005364
005370
005372
005376
005400
005404
1393 005406
005406
1394 005412
005412
005416
1395 005420

i IF THE UNIT HAS BEEN DROPPED SELECT THE NEXT UNIT
:

032762
001123

040000

002516

BIT
BNE

IF ®DROPED NOTSETIN STATUSCR2) THEN
®DROPED, STATUS(R2)
50032%

:TEST FOR DVC ERROR BIT SET
:

032772
001407

100000

002362

BIT
BEQ

012737

000001

002342

MOV

052762

100000

002516

BIS

000455

S50033s:

IF #BIT1S SETIN SLPCSR(R2) THEN
#BIT15,8LPCSR(R2)
50033$
LET ERRCOD := &STATER
i STATUS REG ERROR BIT 1S SET IN CSR
@STATER, ERRCOD
LET STATUS(R2) := STATUS(R2) SET.BY JERROR
#ERROR,STATUS(R2)
ELSE
50034

i MAKE SURE PREVIOUS MSG IS DONE
:

005762
003452

002756

032762
001004

020000

TST
BLE

002516

BIT
BNE

IF CURCNT(R2) GT #0 THEN
CURCNT(R2)
50035¢
IF @ACTIVE NOTSETIN STATUS(R2) THEN
@ACTIVE,STATUS(R2)
50036$

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

012737

000003

002342

MOV

000442

50036
:
032762
001436

020000

002516

012762

000144

003056

012727
000000
013727
000000
005367
001375
005367
001367

000002

005362
005762
001011

50040
:

LET ERRCOD := #NOINTR
#NOINTR,ERRCOD
ELSE
50037¢

WHILE #ACTIVE SETIN STATUS(R2) DO

BIT
BEQ

#ACTIVE,STATUS(R2)
50041

MOV

#100. ,DELCNT(R2)

MOV
.WORD
MOV
.WORD
DEC
BNE
DEC
BNE

#2.,(PC)+
O
L$DLY,(PC)+
O
-6(PC)
.-4
-22(PC)
.-20

003056

DEC

DELCNT(R2)

003056

TST
BNE

DELCNT(R2)
500428

002116
177772

177756

; NO INTERRUPT

LET DELCNT(R2)
DELAY 2.

LET DELCNT(R2)

:= #100.
; 200MS LOOPS

:= DELCNT(R2)

IF DELCNT(R2) EQ 40 THEN
LET ERRCOD

:= 4TIMOUT

- #1

20 SEC.

DELAY MAX

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y0S5.02

Wednesday 10-Apr-85 09:07

Page 19-2

SEQ 0037

I70 CONTROL
005420

012737

000002

002342

MOV

#TIMOUT,ERRCOD

005426
1397 005434
005434
1398 005442
005442
1399 005442
005442
005444
1400 005444
005444
1401 005444
005444
1402 005444
005444
1403 005444
005444
005450
1404
1405
1406
1407 005452
1408 0C5456
005456
005460
1409
1410
1411
1412
1413 005460
005460
1414 005466
005466
1415 005474
005474
1416 005502
005502
1417 005510
005510
1418 005516
005516
005522
1419 005524
005524
1420 005532
005532
1421 005532
005532
1422 005532
005532
1423
1424 005532
005532
005536
005540
005544

042762

020000

002516

BIC

@ACTIVE,STATUS(R2)

052762

100000

002516

8IS

OERROR.STATUS(RZgN

1396 005426

50042
:
000736

50041%:

LET STATUS(R2)

:= STATUS(R2) SET.BY #ERROR

DIF

ENDIF
ENDIF

50035s:

ENDIF

50034
002342

:= STATUS(R2) CLR.BY #ACTIVE

ENDDO

500404

S50037s:

005737
001403

LET STATUS(R2)

IF ERRCOD NE #0 THEN
ERRCOD

TST

BEQ

50043

; REPORT THE ERROR
004777

175440

000425

50043s:

ELSE
50044

JSR

PC,8ERRSVC

Q UP THE MESSAGE AND ENABLE INTERRUPTS
THE I70 DRIVER WILL PICK UP FROM HERE.
013762

002354

002556

MOV

013762

002354

002716

MOV

013762

002356

002756

MOV

013762

002356

002616

MOV

013762

002360

002656

MOV

005762
003403

002756

012772

000100

LET CURADD(R2) := BUFADD
BUFADD,CURADD(R2)
LET MSGADR(R2) := BUFADD
BUFADD ,MSGADR(R2)
LET CURCNT(R2) := BUFCNT
BUFCNT,CURCNT(R2)
LET MSGCNT(R2) := BUFCNT
BUFCNT ,MSGCNT(R2)
LET REPCNT(R2) := BUFREP
BUFREP ,REPCNT(R2)
IF CURCNT(R2) GT #0 THEN
CURCNT(R2)
50045
LET SLPCSR(R2) := #100
€100,8LPCSR(R2)
ENDIF

TST
BLE

002362

MOV
50045
:

500445
50032%:
012727
000000
013727
000000

000001
002116

: BYTE ADDRESS
i

MESSAGE ADDRESS

OUTPUT COUNT

i BYTE COUNT
i PRINT COUNT

; ENABLE INTERRUPTS

ENDIF

DELAY

MOV
.WORD
MOV
.WORD

@1,(PC).
0
LS$DLY,(PC).
©

+PAUSE 100 MICRO-SECONDS TO ALLOW THE LINE $$$

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 19-3
SEQ 0038

I70 CONTROL
005546
005552
005554
005560

1425
1426
1427
1428
1429 005562
005562

1430
1431
1432
1433 005566
005566
1434 005570
005570
1435 005574
1436 005600
1437 005600
005600
005602
1438 005604
1439

005367
001375
005367
001367

177756

-6(PC)
.-4
-22(PC)
.-20

;PRINTER TO INTERRUPT.

$$$

; CLEAR OUT ANY TIMEOUT COUNT
:

005062

003056

CLR

LET DELCNT(R2)

DELCNT(R2)

:= #0

i SELECT THE NEXT UNIT AND DECRIMENT THE LINECOUNT
i

005303
005237
000137

LET RS := R3 - @1
R3
LET LSLUN := LSLUN + 01
INC
LSLUN
JMP
cTLLOP

DEC

002074
005232

CTLEND:

012603
012602
000207

POP
MOV
MOV
RTS

R3,R2
(SP)+,R3

(SP)+,R2

jheee

: SUBROUTINE

QUIET

1443
1444
1445

+ THIS SUBROUTINE WILL EFFECTIVLY DELAY UNTIL ALL QUEUVED OUTPUT
+ IS FINISHED. THE DELAY IS ACCOMPLISHED BY QUEUEING A NULL
: MESSAGE TO ALL LINES.

1446

1447

1451

DEC
BNE
DEC
BNE
:

1440
1441
1442

1448 005606
1449 005650
1450 005652

177772

000240
000207

QUIET:

ag;PUT

RTS

+ NULL MESSAGE OUTPUT

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesdsy 10-Apr-85 09:07

Page 20
SEQ 0039

170 CONTROL
1‘53

....--...-...

: DROPIT
FUNCTIONAL DESCRIPTION :
H
s THIS SUBROUTINE IS USED TO DROP A BAD PRINTER FROM THE TEST

1457

s DISABLE ANY INTERRUPTS FROM THE PRINTER, AND NOTIFY THE

1458

; OPERATOR THAT THE PRINTER WAS DROPPED.

1460

'...-...........-...--.....-....

005670

-.---.......--...-.-..-..-.-..--

1461 005654
005654
1462 005662
005662
1463 005670

'-...........-..-...-.-....-..-..---..----..-.---.--.-

1454
1456

1464 005674
005674
005700

005704
005710

005712
005714

1465 005720
005720
1466 005724
005724
1467 005730
005730
005734
1468 005736
005736

052762

040000

002516

012762

177777

002756

005072

002362

013746

002074

012746
010600

000002

012746

000006

005062

003120

005337

002346

005737
001011

002346

012746

005742

012746

005746
005750
005752

010600
104417
062706

005756

104444

1469 005756

1470 005760

005760

1471 005760
1472
1473
1474

CLR

8LPCSR(R2)

MOV

GLPDROP, -(SP)

PRINTF OLPDROP, LSLUN
MOV
LSLUN, -CSP)

MOV
MOV

#2,-(SP)
SP.RO

TRAP
ADD

COPNTF
96,SP

000001

MOV

@1,-(SP)

000004

MOV
TRAP
ADD

SP.RO
CS$PNTF
4,SP

TRAP

CSDCLN

RTS

]

003770

DOCLN

500464 :

000207

ENDIF

s NOTHING TO TEST

TOuR

'..-.-..........-.-...............-....-...--.........

1476

: FAKE

1478
1479

...-.........

FUNCTIONAL DESCRIPTION:

|
‘

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

‘“o

'......................-...............-..............

............-

005037

002074

005766
005774

023737
002007

002074

005776

013700

002074

005766

1484 005776

LET ERRTBLCR2) := 0
CLR
ERRTBL(R2)
LET WUT := WUT - o1
DEC
WT
IF UUT EQ 90 THEN
ST
W
BNE
500464
PRINTF SUUTEQO
MOV
OUUTEQO, -(SP)

1‘75

1481
1482 005762
005762
1483 005766

DROPIT: LET STATUS(R2) := STATUSCR2) SET.BY SOROPED
BIS
ODROPED,STATUSCR2)
LET CURCNT(R2) := @-1
MOV
@-1,CURCNTCR2)
LET SLPCSR(R2) := 0

004312

104417
062706

..-

FAKE:

002012

50047:

LET LSLUN := 0
CLR
LSLUN
WHILE LSLUN LT LSUNIT DO
CMP
8GE
MOV

LSLUN,LSUNIT
500504

GPHARD

LSLUN,RO

LSLUN, R3

CILPLFO LP2S, LP26, LP27, LPO?

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 20-1

SEQ 0040

I/0 CONTROL

006002
026004
1485 006006
006006
1486 006012
006012
006014

1487 006014
1488
1489

1430 006016

104442
010003

005237

TRAP
MOV

002074

000765
000207

50050$:

C$GPHRD
RO,R3
LET LSLUN := LSLUN + 21
INC
LSLUN
ENDDO
BR
50047%
RTS

ENDMOD

CILPLFO LP2S, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 21
SEQ 0041

INITIALIZATION SECTION

1::§

.SBTTL

1494

:THE INITIALIZE ROUTINE IS EXECUTED AT THE BEGINNING OF EACH SUB-PASS AND 1S

1495

1496
1497
1:23
1
1500 006016
1501 006016
006016
1502
1503
1504 006016
006016
006022
1505 006024
006024
1506 006026
006026
006032
1507 006034
006034
1508
1509 0C6036
1510 006042
006042
006046
1511 006050
006050
1512 006056
1513 006120
006120
006126
006130
006130
006134
006134
006142
1514 006144
006144
006150
006152
006156
005160
006164
006166
006172
1515 006174
006174
006176
1516 006176
006176
- 006200
1
218
1519

INITIALIZATION SECTION

:PRIMARILY USED FOR REQUESTING P-TABLE PARAMETERS.

01270C
104447

000040

103466
012700
104447

000037

103462

004737

005762

012700
104441

000000

112737

000014

003164

012737
000402

000006

003162

005337

003162

023727
002415

003162

012727
000000
013727
000000
005367
001375
005367
001367

000250

INFORMATION REQUESTED FROM

:THE OPERATOR INCLUDE THE NUMBER OF UNITS UNDER TEST, DEVICE ADDRESSE
S, VECTORS,
:CLOCK TYPE, AUTO OR MANUAL PRINTING SPEED MEASUREMENT, AND WHETHER A DAVFU
;OPTION IS INSTALLED IN THE SYSTEM.
§g=BGNMOD
BGNINIT
LSINIT::
+RESET EXTERNAL BUS IF START EVENT FLAG IS SET
;OR POWER FAIL RESTART
READEF
#EF.START
sTEST START EF INDICATOR
MOV
#EF .START,RO
TRAP
CSREFG
BCOMPLETE 1
;:BRANCH IF FROM START UP
BCS
1s
READEF
®EF .RESTART
;NOW THE RESTARTFLAG
MOV
#EF .RESTART,RO
TRAP
CSREFG
BCOMPLETE 1
:IF EITHER START OR POWER FAIL RESTART
BCS
1s

50052%:
50051s:

000001

JSR
PC,FAKE
SETPRI
#PRIOO
MOV
#PRIOO,RO
TRAP
C$SPRI
LET OUTBUF :B= #14
MOVB
#14,0UTBUF
OUTPUT #0UTBUF ,#1
DECR WORK1 FROM #6 TO #1 BY #1
MOV
#6 ,WORK1
BR
50051
DEC

WORK1

CMP
BLT

WORK1,
&1
50053
DELAY 250
#250,(PC)O
LS$DLY,(PC)-

MOV
.WORD
MOV

002116
177772
177756
.

000755
50053s:

.WORD
DEC
BNE
DEC
BNE
ENDDEC
BR

O
-6(PC)
.-4
-22(PC)
.-20

50052

EXIT INIT

104432
001666

TRAP
.WORD

;

;D0 A BUS RESET
: UPDATE PASS COUNT
; PRIORITY ZERO

CSEXIT
L10004-.

; ELSE EXIT INIT CODE

;POWER UP RESTART OR START COMMAND ISSUED
H

CILPLFO LP2S, LP26, LP27, LPO7

MACRO Y05.02

Wednesday

10-Apr-85 09:07

Page 21-1

SEQ 0042

INITIALIZATION SECTION

1520 006202

036202
1521 006204
006204
006212
1522 006214
006214
006220
006224
006226
006230
1523 006234
006234
006240
006244
006246
006250
1524 006254
006254
1525 006254
006254
1526 006256
006256
1527
1528 006260
006260
006264
006270
006272
006274
1529 006300
006300
006304
006310
006312
006314

1530
1531
1532
1533 006320
1534
1535
1536
1537

1538
1539
1540

006320
006324
006324
006330
005330
006334
006334
006334
006336
006340
006342
006344
005346
006350

18:

104433

023727
003420

002012

012746
012746
010600
104417
062706

007246
000001

012746
012746
010600
104417
062706

BRESET
TRAP
CSRESET
IF LSUNIT GT @16. THEN
CHP
LSUNIT,@16.
BLE
50054

000020

MOV
MOV
MOV
TRAP
ADD

000004
007331
000001

000004

500545

104450
103034

012746
012746
010600
104417
062706
012746
012746
010600
104417
062706

;RESET THE BUS

PRINTF &ONRGT16
#NRGT16, -(SP)

SP,RO
CS$PNTF

#4,5P
PRINTF 4NRGT17
MOV
ONRGT17, -(SP)
MOV
e1,-(SP)
MOV
SP,RO
TRAP
CSPNTF
ADD
4,5P
ENDIF

MANUAL
TRAP
C$MANI
ggEOHPLE;E
$

CHECK FOR UNATTENDED MODE

IF UNATTENDED BYPASS MANUAL INSTRUCTIONS

PRINTF #RESET1
MOV
®RESET1, -(SP)
MOV
MOV
SP,RO
TRAP
CS$PNTF
ADD
#4,SP
PRINTF #RESET2
MOV
#RESET2, -(SP)
MOV
#1,-(SP)
MOV
SP,RO
TRAP
CSPNTF
ADD
4 ,SP

007464
000001

000004

007557
000001

000004
:

;WAIT FOR A “CR” BEFORE GOING ON
:

005037

002300

005037

002342

005037

002346

100s$:
104443
000404
002300
000130
007673
100000

10000¢:
i

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

CLR

wrt

GMANIL
TRAP
BR
.WORD
.WORD
.WORD
.WORD

READY,FLAG,100000,YES
C$GMAN
10000¢
FLAG
T$CODE
READY
100000

;REQUEST P-TABLE FOR PRINTERS UNDER TEST

CZLPLFO LP25, LP26, LP27, LPO?

MACRO Y05.02

We dnesday 10-Apr-85 09:07

Page 21-2

SEQ 0043

INITIALIZATION SECTION

1541 006350

006350
006354
1542 006356
006356
006362
006364
006364
006370
006370
006374
1543 006376
006376
006402
006404
1544 006406
006406
1545 006410
006410
006414
1546
1547
1548
1549

1550
1551

1552
1553

1554
1555

1556

1557
1558

1559

013701
005301

002012

005037
000402

00207«

005237

2%:

500564
:

002074

023701
003150

002074

013700
104442
010003

002074

50055%:

103137
013702
006302

1562

500554

INC

LSLUN

002074

sMAXIMUM NUMBER OF UNITS

CMP
BGT

LSLUN,R1
50057¢
GPHARD L$LUN,R3
MOV
LSLUN,RO
TRAP
C$GPHRD
MOV
RO,R3
ace BNCO;PLETE 3
$
LET R2 := LSLUN SHIFT 1
MOV
L$SLUN,R2
ASL
R2

;REQUEST P-TABLE ADDRESS

:BRANCH IF DEVICE NOT PRESENT

i CLEAR ERROR COUNT, OUTPUT COUNT, GET DEVICE TYPE TO STATUS.
005763
001004

000004

042762

003000

002516

000434

50060
:

IF 4(R3) EQ #0 THEN
TST
4(R3)
BNE
500604
LET STATUS(R2) := STATUS(R2) CLR.BY #FLAG26!FLAGO7
BIC
#FLAG26!FLAGO7,STATUS(R2)
ELSE
BR
50061¢

026327
001007

000004

052762

001000

002516

BIS

042762

002000

002516

BIC

CcMP

000001

IF 4(R3) EQ #1 THEN

4(R3),#1

BNE

000421
50062$:

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

000002

CMP
BNE

042762

001000

002516

BIC

052762

002000

002516

BIS

50064
:
052762

001000

002516

BIS

052762

002000

002516

BIS
50065%:

50063

000004

000406

ELSE

50062$
LET STATUS(R2) := STATUS(R2) SET.BY #FLAG26
#FLAG26,STATUS(R2)
LET STATUS(R2) := STATUS(R2) CLR.BY #FLAGO7
#FLAGO7,STATUS(R2)

IF 4(R3) EQ #2 THEN
4(R3),#2
50064¢
LET STATUSC(R2) := STATUS(R2) CLR.BY #FLAG26
#FLAG26,STATUS(R2)
LET STATUS(R2) := STATUS(R2) SET.BY #FLAGO?
#FLAGO7,STATUS(R2)
ELSE
50065¢

026327
001007

1560
1561

LET R1 := LSUNIT - @1
MOV
LSUNIT,R1
DEC
R1
INCR LSLUN FROM 40 TO R1 BY #1
CLR
LSLUN
:

LET STATUS(R2) := STATUS(R2) SET.BY #FLAGO7
g§52g07.STATUS(R2)

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 21-3

SEQ 0044

INITIALIZATION SECTION

1563 006524

006524

1564 006524
006524
1565
1566
1567
1568 006524

006524
006530
1569 006532
006532
1570 006540
006540
006542
1571 006542
006542
1572 006550
006550
1573 006550
006550
1574 006554
006554
1575 0C6562
006562
1576 006566
006566
1577
1578
1579
1580 006572
006572
1581 006576
006576
006604
1582
1583
1584
1585 006612
006612
1586

1587
1588
1589 006616

005616
006622
006626
006632
1590 006636
006636
1591 006644
006644
1592 006652
006652
006656
005662
006666

;

: NOW GET THE BAND TYPE
005763
001004

000006

042762

010000

64 OR 96 CHARACTER

IF 6(R3) EQ #0 THEN
6(R3)
500664
LET STATUS(R2) := STATUS(R2) CLR.BY #FLAG96
BIC
#FLAG96,STATUS(R2)

TST
BNE

002516

000403

500664:
052762

010000

002516

50067%:

005062

003120

012762

177777

005062

003056

005062

002656

LET STATUS(R2) := STATUS(R2) SET.BY #FLAG96
BIS ENDI:FLAGgs.STATUS(Rz)
LET ERRTBL(R2) := 40
ERRTBL(R2)
LET CURCNT(R2) := #-1
MOV
#-1,CURCNT(R2)
LET DELCNT(R2) := #0
CLR
DELCNT(R2)
LET REPCNT(R2) := #0

CLR

002756

CLR

REPCNT(R2)

;LOAD CSR ADDRESS INTO TABLE
012362

002362

016262
062762

002362

000002

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

MOV

002456
002456

+SET UP CSR ADDRESS FOR DEVICE

+ #2

;SET UP VECTOR ADDRESS INTO GIVEN TABLE
012362

002422

MOV

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

sSET UP DEVICE INTERRUPT VECTOR INFORMATION
010237
006337
006337
006337

003160
003160
003160
003160

062737

037166

003160

013762

003160

003016

012746
016246
016246
012746

000200
003016
002422
000003

LET WORK := R2 SHIFT 3
MOV
R2,WORK
ASL
WORK
ASL
WORK
ASL
WORK
LET WORK := WORK + #INTOO
ADD
#INTO00, WORK
LET LPINTR(R2) := WORK
MOV
WORK,LPINTR(R2)
SETVEC LPVEC(R2), LPINTR(R2),
MOV
#PRIO4, -(SP)
MOV
LPINTR(R2),-(SP)
MOV
LPVEC(R2), -(SP)
MOV
#3,-(SP)

#PRIO4

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 21-4

SEQ 0045

INITIALIZATION SECTION
006672
006674

1593
1594
1595
1596 006700
006700
1597 006704
1598
1599
1600
1601 006706
006706
1602 006714
006714
006716
1603
1604
1605
1606
1607 006716
006716
1608 006724
0C6724
006730
006732
1609 006734
006734
1610 006736
006736
1611 006744
006744
1612 006750
006750
1613 006756

006756
1614
1615 006764
006764
1616 006772
006772
006776
007002
007006
007012
007014
1617 007020
007020
1618
1619 007020
1620 007024
1621 007026
007026
1622 007034
007034
007040
1623 007042

104437
062706

TRAP
ADD

000010

C$SVEC
#10,5P

;

i ADD ONE TO UNIT UNDER TEST COUNT
;

005237
000403

LET WT := UWUT + @1
INC
wrTt
43
BR

002346
i

: INDICATE LSLUN NOT AVAILABLE FOR TESTING
;

052762

040000

002516

000623

3s:

BIS

4s:

50057¢:

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

ENDINC
BR

#DROPED, STATUS(R2)

;GO BACK AND DO IT AGAIN

500564

R R

RN R

i SETUP TO HANDLE CLOCK INTERRUPTS
¢ IF AN L-CLOCK IS ON THE SYSTEM THEN SETUP A NOOP INTERRUPT
: HANDLER BECAUSE LSI SYSTEMS MAY HAVE THE CLOCK ENABLED AT ALL TIMES.
012737

000001

012700
104462
010004

000114

LET CLKTYP := #1
MOV
#1,CLKTYP
CLOCK
L,.R4
MOV
¢'L,RO
TRAP
CsCLCK
MOV
RO,R4
IFCOND CS THEN

002326

103031

B8CC

500704

000002

010437

002330

017737

173354

002332

MOV

012777

000000

173346

MOV

002336

LET CLKVEC := 4(R4)
MOV
4(R4),CLKVEC

016437

000004

012746
012746
013746
012746
104437
062706

000300
010070
002336
000003

MOV

000010
50070¢:

005737
001410

002270

012737

000004

012700

000000

104441

DEFAULT FOR NO CLOCK ON SYSTEM

TEST FOR L-CLOCK

i WE HAVE AN L-CLOCK
S~

LET CLKTYP := #2
#2,CLKTYP
LET CLOCKP := R4
R4 ,CLOCKP
LET CLKCSR := 8CLOCKP
8CLOCKP, CLKCSR
LET 8CLKCSR := #00
; TRY TO DISABLE INTERRUPTS
#00, 8CLKCSR

012737

002326

: SETUP THE NOOP HANDLER

SETVEC
CLKVEC,#IGNORE,#PRIO6
MOV
#PRIO06,-(SP)
MOV
#IGNORE, -(SP)
MOV
CLKVEC,-(SP)
MOV
#3,-(SP)
TRAP
C$SVEC
ADD
#10,SP
ENDIF

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

002326

TST MANSPD

BEQ
CK1
LET CLKTYP := &4
MOV
@4 ,CLKTYP

SETPRI #PRIOO

MOV

“»

#PRIOO,RO

TRAP
C$SPPI
EXIT INIT

i START TEST AT PRI 0

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 21-5

SEQ 0046

INITIALIZATION SECTION

007042
007044

1624
1625 007046
007046
007052
007054
1626 007056
007056
1627 007060
007060
1628 007066
007066
1629 007072
007072
1630 007100
007100
1631
1632 007106
007106
1633 007114
007114
1634
1635 0C7114
007114
007122
1636 007124
007124
007130
007134
007136
007140
1637 007144
007144
007150
007154
007156
007160
1638 007164
007164
1639 007164
007164
007170
1640 007172
007172
1641 007200
1642 007242
007242
007244
1643
1644
1645 007246
1646 007331
1647 007365
1648 007464
1649 007557
1650

hoe

104432
001022

TRAP
.WORD

CS$EXIT
L10004-,

: IF A P-CLOCK IS ON THE SYSTEM UPGRADE CLOCK TYPE TO 3

012700
104462
010004

CK1:

000120

103016

012737

000003

010437

002330

017737

173232

002332

016437

000004

002336

002326

CLOCK
P,.R4
MOV
#'P,RO
TRAP
C$CLCK
MOV
RO,R4
IFCOND CS THEN
; WE HAVE A P-CLOCK
BCC
50071
LET CLKTYP := #3
.
MOV
#3,CLKTYP
LET CLOCKP := R4
MOV
R4,CLOCKP
LET CLKCSR := 8CLOCKP
MOV
8CLOCKP, CLKCSR
LET CLKVEC := 4(R4)
MOV
4(R4),CLKVEC

; TRY TO DISABLE THE P-CLOCK

012777

000000

173216

50071¢:

LET 8CLKCSR := #00
MOV
#00,8CLKCSR
ENDIF

; IF NO CLOCKS ON THE SYSTEM NOTIFY THE OPERATOR
023727
001020

002326

012746
012746
010600

007730
000001

104417
062706
012746

012746
010600

104417
062706

IF CLKTYP EQ #1 THEN

000001

CMP
BNE

CLKTYP,#1
500723
PRINTF #NOCLCK
MOV
#NOCLCK, -(SP)
MOV
#1,-(SP)
MOV
SP,RO
TRAP
CS$PNTF
ADD
#4,5P

000004

PRINTF #NOTIM

007772
000001

000004

50072%:

012700
104441

000000

112737

000014

003164

116
116
116
116
101

045

104432
000622
045
045

045

045
045

045

123

MOV
MOV
MOV
TRAP
ADD
ENDIF

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

SETPRI #PRIOO
MOV
#PRIO00,RO
TRAP
C$SPRI
LET OUTBUF :B= #14
MOVB
#14,0UTBUF
OUTPUT #0UTBUF ,#1
EXIT INIT
TRAP
CSEXIT
W
L10004
-,
.NLIST BEX
NRGT16:

NRGT17:
MRESET:
RESET1:
RESET2:

.ASCIZ

/#NsSANUMBER OF LINE PRINTERS UNDER TEST EXCEEDS 16./

.ASCIZ
/%N#AONLY 16 WILL BE TESTED./
.ASCIZ
/#N#ARESET LINE PRINTER(S), DO FORM FEED,
AND PLACE ON LINE.®%N/
.ASCIZ /#N®ARESET LINE PRINTER(S),SET FORMS LENGTH TO 11 INCHES,s®N/
.ASCIZ /%ASET VERTICAL DENSITY TO 6 LINES PER INCH,DO FORM FEED AND PLACE ON LINESN/

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 21-6
SEQ 0047

INITIALIZATION SECTION

010066
1659
1660
1661
1662
1663
1664
1665
1666 010070
1667 010070
1668
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678
1679 010072
010072
010074
1680 010076
010076
1681 010100
010100
1682 010104
010104
010104
010106
1683 010110

1684

1685

1686
1687

010110
010114
010120
010124
010130
010132
010136
010136
010142
010142
010144
010144
010146
010146
010146

104
045
045

105
116
116

120

045
045

READY:

.ASCIZ

000000

NOCLCK:
NOTIM:
.EVEN
PLOC:

104411

.LIST BEX
ENDINIT
L10004:
TRAP

/DEPRESS “RETURN” WHEN READY./

.ASCIZ
.ASCIZ

/#N#AHARDWARE CLOCK NOT AVAILABLE./
/#N$AAUTO PRINTING SPEED MEASUREMENT CANNOT BE PERFORMED./

.WORD

U i

1651 007673
1652 007730
1653 007772
1654
1655 010064
1656
1657
1658 010066
010066

CS$INIT

38333!383333353383133333383333333533333333333333

3533333333333!31333]3338

; IGNORE

AN INTERRUPT CATCHER FOR THE L-CLOCK

USED FOR SYSTEMS WHERE CLOCK CANNOT BE

THAT IGNORES THE INTERRUPT.

333'33333‘3”33333il:l33llll33li3'll3“33333333333

TURNED OFF.

3333”3353333333338'33

IGNORE :

000002

; NOOP

RTI

RIS

; RESVEC

FUNCTIONAL DESCRIPTION

THIS SUBROUTINE WILL SETUP ALL UNITS VECTOR AREAS

TO THE
R

RESVEC::

010346
010446
005004
013703

MOV
MOV
CLR

002012

MOV
S50073¢:

005703
003417

TST
BLE

ADD

012604

aiaige)

PUSH
R3,.R4
R3,-(SP)
R4,-(SP)
LET
R4 := &0
R4
LET R3 := LSUNIT
L$UNIT,R3
WHILE R3 GT #0 DO

POP R4,R3
(SP)+,.R4

000002

DEC

S0074$:

MOV

062704

000757

INTERRUPT ROUTINES STARTING AT INTO0.

000010

MOV
MOV
MOV .
MOV
TRAP
ADD

005303

R3
50074
SETVEC LPVEC(R4), LPINTR(R4), #PRIO4
#PRIO04,-(SP)
LPINTR(R4),-(SP)
LPVECCR4),-(SP)
#3,-(SP)
C$SVEC
#10,SP
LET R4 := R4 + #2
#2,R4
LET R3 := R3 - #1
R3
ENDDO
S0073$

012746
016446
016446
012746
104437
062706

000200
003016
002422
000003

‘NORMAL'

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

SEQ 0048

INITIALIZATION SECTION

010150
16:3 010152
16

012603
000207

Page 21-7

MOV

(SP)+,R3
RTS
PC

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 22
SEQ 0049

CLEANUP CODING SECTION
1691
1692 010154

§¥2;;L

CLEANUP CODING SECTION

1693
1694
1695
1696
1697
1698
1699

Y T

T T

Y rrrrrrrere

: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
s THEY 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
+INTO THE UNIT UNDER TEST, THE INITIALIZATION SEQUENCE DOES NOT
;HAVE TO BE DONE AGAIN IN ORDER TO GET THE DEVICE ACTIVE.

1700
1701
1702 010154

,o-

STARS
FiARRAARAARARARA
AR AR
RRRA
AR
AbRARAR
Rt bt b hbbhibtib
ARRR
bitits
AR

1703 010154

010154
1704 010154
010154
010160
1705 010162
010162
1706
1707 010164
010164
010170
1708 010172
010172
010176
010200
010200
010204
010204
010210

1709
1710
1711 010212

012700

104441

010220

000340

104433
013701
005301

002012

005037
000402

002074

005237

002074

023701
003020

CLEAN:

50076%:

50075s:

002074

LSLUN

CMP
BGT

LSLUN,R1
50077

MOV

i CLEAR ALL BITS IN STATUS EXCEPT DEVICE TYPE

160377

002516

012762

177777

002756

010234

005062

003120

010240
1717 010244
010244
1718 010250
010250
010252
1719 010252
1720 010256
010256
010264
1721 010266

005062

003256

005062

002656

1716 010240

INC

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

002074

042762

1714 010226
010226
1715 010234

LET R1 := LSUNIT - #1
;NUMBER OF UNITS-1
MOV
LSUNIT,R1
DEC
R1
INCR LSLUN FROM #0 TO R1 BY #1
CLR
LSLUN
BR
S50075¢

i DISABLE ALL INTERRUPTS, SELECT ALL LINES
: ZERO ALL ERROR COUNTS

010212
010216

1713 010220

BGNCLN
L$CLEAN:
:
SETPRI #PRIO7
MOV
#PRIO7,RO
TRAP
C$SPRI
BRESET
TRAP
CSRESET

000753

004737

010072

023727
001006

002326

50077¢
000003

LET STATUS(R2) := STATUS(R2) CLR.BY #ERROR!DROPED!ACTIVF'LOBYTE
8IC
#ERROR !DROPED!ACTIVE!LOBYTE,STATUS(R2)
LET CURCNT(R2) := #-1
MOV
@-1,CURCNT(R2)
LET ERRTBL(R2) := #0
CLR
ERRTBL(R2)
LET DELCNT(R2) := #0
CLR
DELCNT(R2)
LET REPCNT(R2) := #0
CLR
REPCNT(R2)
ENDINC
BR
50076%
JSR
PC,RESVEC
IF CLKTYP EQ #3 THEN

CcMP

BNE

CLKTYP,#3

50100¢
CLRVEC aCLKVEC

: RESET THE VECTORS

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y0S.02

Wednesday 10-Apr-85 09:07

Page 22-1

SEQ 0050

CLEANUP CODING SECTION
010266
010272
1722 010274
010274
1723 010302
010302
1724 010302
010302
010310
1725 010312
010312
010316
010322
010326
010332
010334
1726 010340
010340
1727 010340
010340
010344
1728 010346
010346
010346
1729
1730 010350

017700
104436

172044

012777

000000

MOV
TRAP

172030
50100%:

023727
001013

002326

012746
012746
013746
012746
104437
062706

000300
010070
002336
000003

000002

000010
50101s:

012700
104441

104412

000000
ENDCLN
L10005:

ENDMOD

8CLKVEC,RO
C$CVEC
LET 8CLKCSR := 400
MOV
#00, 3CLKCSR
ENDIF

IF CLKTYP EQ #2 THEN
cMP
CLKTYP%2
,
BNE
50101$
SETVEC CLKVEC, #IGNORE, #PRI06
MOV
#PRIO6, -(SP)
MOV
#IGNORE, -(SP)
MOV
CLKVEC, -(SP)
MOV
#3,-(SP)
TRAP
ADD
ENDIF

C$SVEC
10,5P

SETPRI #PRIOO
MOV
#PRIO0O0,RO
TRAP
C$SPRI
TRAP

CSCLEAN

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 23
SEQ 0051

INTERFACE LOGIC

1732
1733
1734 010350
1735
1736
1737
1738
1739
1740
1741
1742
1743
1744
1745 010350
010350
1746 010350
010350
010354
1747
1748
1749
1750
1751 010356
1752 010362
1753 010364
1754 010364
1755 010370
1756 010370
1757 010374
1758 010376
1759 010402
1760 010402
010402
010406
1761 010410
010410
010416
1762 010420
010420
010426
010426
1764 010432
010432
1765 010440
010440
010442
010444
010446
1766 010450
010450
1767 010454
010454
1768
1769
1770 010454
010454
010462

1763

.SBTTL

INTERFAC E LOGIC

BGNMOD
e

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

013701
005301

gGNTST
1
1::
LET R1 := LSUNIT - @1

MOV
DEC

002012

sMAX NUMBER OF UNITS ON SYSTEM

LSUNIT,R1
R1

;sHARD CODED INCREMEMNT LOOP
sINCR LUNIT FROM €0 TO R1 BY @1
005037

000402

002320

005237

002320

023701
003402
000137

002320
011142

032772
001416

100000

002362

052762

100000

002516

005262

003120

002074

104456

000001
003412
000000

005072

CLR

LUNIT

sUNIT TO O

INC

LUNIT

;UPDATE UNIT NUMBER

CcMP
BLE

LUNIT,R1
1s

;00 COMPARISON OF UNIT NUMBER
;ONTO NEXT UNIT

JMP

TiC

;00 COMPARE

T18

sEXIT LOOP

LET R2 := LUNIT SHIFT 1

002320

013702
006302

013737

;START LOOP

MOV

LUNIT,R2

BIT
BEQ

#BIT1S,8LPCSR(R2)
50102%

INC

ERRTBL(R2)

MOV

LUNIT,LSLUN

TRAP
.WORD

CSERHRD
1

CLR

S8LPCSR(R2)

ASL
R2
IF #BIT1S SETIN SLPCSR(R2) THEN

LET STATUS(R2) := STATUSC(R2) SET.BY #ERROR
BIS
SERROR,STATUS(R2)
LET ERRTBL(R2) := ERRTBL(R2) + @1
LET LSLUN := LUNIT
ERRHRD 1,CSRERR

;ERROR BIT WAS SET. SAY SO

.WORD
CSRERR
.WORD
O
LET SLPCSR(R2) := &0

002362

ENDIF
50102%:

;TIME DELAY
3 IF NOT READY ALLOW 3 SECONDS TO COME UP
032772
001027

000200

002362

IF @BIT7 NOTSETIN SLPCSR(R2) THEN

BIT
BNE

#BIT7,8LPCSR(R2)
50103

)

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 23-1
SEQ 0052

————

INTERFACE LOGIC

1771 010464
010464
010472

012737
000402

000014

010474

005337

003162

010500
010506
1772 010510
010510
010514
010516
010522
010524
010530
010532
010536
1773 010540
010540

023727
002415

003162

012727
000000
013727
000000
005367
001375
005367
001367

000250

010474

010500

010542

003162

50105s%:

501044

000001

002116
177772
177756

000755

501064:

1774 010542
1775
i;;g

010542

50103%:

MOV
BR

DECR WORK1 FROM #12. TO #1 BY o1
012. ,WORK1
50104

DEC

WORK1

CHP
BLT

WORK1, @1
501064

DELAY 250
MOV
9250,(PC)+
.WORD
0
MOV
LSOLY,(PC).
.WORD
©
DEC
-6(PC)
BNE
.-4
DEC
-22(PC)
BNE
.-20
ENDDEC
BR
501054
ENDIF

i
sNOW TEST FOR PRINTER READY

1778 010542

010542
010550

032772
001014

000200

002362

010552
1780 010560
010560
1781 010566
010566
1782 010572
010572
010574
010576
010600
1783 010602

052762

100000

002516

013737

002320

002074

005262

003120

1779 010552

BIT
BNE

@8IT07,8LPCSR(R2)
501074

sTEST FOR THE READY BIT

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

BIS
@ERROR,STATUS(R2)
LET LSLUN := LUNIT
MOV
LUNIT,LSLUN
LET ERRTBL(R2) := ERRTBL(R2) + o1
INC
ERRTBL(R2)
ERRHRD 2,RDYERR
;REPORT AN ERROR
TRAP
C$ERHRD
.WORD
2
.WORD
RDYERR
.WORD
O
ENDIF

104456
000002
003430
000000

— 010602

501074:
:

i;gz
1787 010602
010602
1788 010610
010610
010616
1789 010620
010620
1790 03”526
010626
1791 010632
010632
1792 010640
010640

IF #BITO7 NOTSETIN SLPCSR(R2) THEN

:INSURE LOADING CHARACTER CAUSES PRINTER READY TO GO AWAY

012772

000012

002456

032772
001416

000200

002362

052762

100000

002516

005262

003120

013737

002320

104456

002074

LET SLPBUF(R2) := 012
MOV
#12,8LPBUF(R2)
IF @BITO7 SETIN SLPCSR(R2) THEN
BIT
#BIT07,8LPCSR(R2)
BEQ
501108
LET STATUS(R2) := STATUS(R2) SET.BY #ERROR
BIS
®ERROR ,STATUS(R2)
LET ERRTBL(R2) := ERRTBL(R2) + 01
INC
ERRTBL(R2)
LET LSLUN := LUNIT
MOV
LUNIT,LSLUN
ERRHRD 3,ERR11
sREPORT AN ERROR
TRAP
CS$ERMRD

CZLPLFO LP2S, LP26, LP27, LPO?

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 23-2

SEQ 0053

INTERFACE LOGIC

010642
010644
010646

000003
011422
000000

010650

005072

1793 010650
1794 010654

010654
1795
17
1797
1798
1799 010654
010654
010660
1800 010662
010662

010666
010672
010676
010702
010704
1801 010710
010710
1802 010716
010716
010724
010726
010726
010732
010732
010740
1803 010742
010742
010746
010750
010754
010756
010762
010764
010770
1804 010772
010772
010774
1805
1806
1807
1808
1809 010774
010774
1810 011002
011002
011006
1811 011010
011010
011014
011020
011024

.WORD
3
.WORD
ERR11
.WORD
O
LET SLPCSR(R2) := @0
" _CLR
SLPCSR(R2)
ENDIF
50110¢:

002362

:VERIFY THAT THE PRINTER WILL NOT INTERRUPT IF IT IS AT A PRIORITY LEVEL
:THE SAME AS THE CPU
SETPRI 4PRIOA4
MOV
OPRIO4,RO
TRAP
C$SPRI

012700
104441

000200

012746
012746
016246
012746
104437
062706

000200
011304
002422
000003
000010

052772

000100

002362

012737
000402

000012

003162

005337

003162

023727
002415

003162

012727
000000
013727
000000
005367
001375
005367
001367

000372

:CPU TO PRIORITY 4

SETVEC LPVEC(R2),0INTERR,2PRIO4
MOV
4PRIO04, -(SP)
MOV
@INTERR, -(SP)
MOV
LPVEC(R2), -(SP)
MOV
#3,-(SP)
TRAP

:LP VECTOR SET upP

CsSVEC

ADD
#10,5P
LET SLPCSR(R2) := SLPCSR(R2) SET.BY @100
BIS
€100,8LPCSR(R2)
DECR WORK1 FROM #12 TO @1 BY &1
MOV
#12,WORK1
BR
50111
S0112s:
DEC
WORK1
50111s:

000001

cMpP
BLT
DELAY

MOV
.WORD

002116

MOV

.WORD
DEC
BNE
DEC
BNE
ENDDEC
BR
50113s:

177772
177756

000755

WORK1,
&1
50113
250.

#250.,(PC).
O

s INTERRUPT ENABLE

ALLOW 3 SEC FOR DELAY

Ls$OLY,(PC).

O
-6(PC)
.-4
-22(PC)
.-20

S0112¢

:NOW TEST THAT THE PRINTER WILL INTERRUPT IF THE CPU PRIORITY IS LOWER THAN
:THE PRINTER PRIORITY
;
042772

0C0100

012700
104441

000140

012746
012746
016246
012746

000200
011334
002422
000003

002362

LET SLPCSR(R2) := SLPCSR(R2) CLR.BY #100
BIC
#100,3LPCSR(R2)
SETPRI ¢PRIO3
MOV
®PRIO3,RO
TRAP
C$SPRI

SETVEC LPVEC(R2),4INTHOL ,4PRIO4
MOV
#PRIO4, -(SP)
MOV
MOV

#INTHDL, -(SP)
LPVEC(R2), -(SP)

;CLEAR INTERRUPT ENABLE

:CPU TO PRIORITY 3

CILPLFO LP2S, LP26, LP27, LPO?

MACRO Y05.02

We dnesday

10-Apr-85 09:07

Page 23-3

SEQ 0054

INTERFACE LOGIC
011030
011032
1812 011036
011036
1813 011044
011044

011050

011052
011056
011060
011064
011066
011072
1814 011074
011074
1815 011100
011100
1816 011106
011106
011110
011112
011114
1817 011116
011116
1818 011124
011124
1819 011132
011132
1820
1821
1822
1823
1824 011136
1825 011142
1826 011146
011146
011152
1827 011154
1828 011216
011216
1829 011224
1230 011266
011266
011266
011274
1831 011276
011276
011300
1832 011300
01130c
011302
1833
1834
1835
1836
1837
1228 011304

104437
062706

000010

052772

000100

012727

000030

013727
000000
005367
001375
005367
001367

002116

005262

003120

013737

002320

002074

012772

000000

002362

042762

160000

002516

005062

003056

000000

002362

177772

177756

104456
000004
011561
000000

TRAP
C$SVEC
ADD
#10,5P
LET SLPCSR(R2) := BLPCSR(R2) SET.BY #100
; INTERRUPT ENABLE
BIS
€100,8LPCSR(R2)
DELAY 30
s ALLOW 3 SEC DELAY
MOV
€30,(PC)»
.WORD
0
MOV
LS$OLY,(PC).
.WORD
0
DEC
-67PC)
BNE
.-4
DEC
-22(PC)
BNE
.-20
LET ERRTBL(R2) := ERRTBL(R2) + &1
INC
ERRTBL(R2)
LET LSLUN := LUNIT
MOV
LUNIT,LSLUN
ERRH RD 4,ERR13
TRAP
CSERHRD
4
.WORD
.WORD
ERR13
.WORD
0
END2:
LET 8LPCSR(R2) := #00
: CLEAR THE LPCSR
MOV
€00, 8LPCSR(R2)
LET STATUS(R2) := STATUS(R2) CLR.BY #ERROR!DROPED!ACTIVE
8IC
#ERROR !DROPED!ACTIVE,STATUS(R2)
LET DELCNT(R2) := #0

CLR

DELCNT(R2)

:END OF HARD CODED INCREMENT LOOP
sENDINC
000137
004737

010364
010072

012700
104441

000000

112737

000014

032772

001001

000200

Ti8:

003164

50114s:

002362

000773

.CA37Z
00334

50115$:
EXIT TST

JMP
T1A
JSR
PC,RESVEC
SETPRI #PRIOO
MOV
#PRIO0O0,RO
TRAP
C$SPRI
OUTPUT QINTFAC,#47.
LET OUTBUF :B= #14
MOVB
#14,0UTBUF
OUTPUT #CUTBUF,#1

;UPDATE UNIT ¢
; RESET STANDARD VECTORS

WHILE #BIT7 NOTSETIN @LPCSR(R2) DO

BIT
BNE
ENDDO
BR

50114

TRAP
.WORD

CSEXIT
L10006-.

;WAIT FOR READY

#8IT7,3LPCSR(R2)
50115

:EXIT THE TEST

;INYERRUPT HANDLER TO SERVICE FAULTY INTERRUPT FROM LP INTERFACE.

;THIS ROUTINE IS ENTERED ONLY WHEN THE LP INTERRUPTS AT THE SAME LEVEL AS
:THE CPU AND IS CONSIDERED AN ERROR.
;

BGNSRV

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 23-4
SEQ 0055

INTERFACE LOGIC

1839 011304
011304
1840 011310
011310
1841 011316
011316
011320
011322
011324

1842 011326
011326
1843 011332
011332
011332
1844
1845

1846
1847 011334
1848
1849 011334
011334
1850 011340
011340
011340
1851
1852

i:gi 011342

005262

003120

013737

002320

002074

104456
000005
011476
000000
012716

LET (SP)

011116

ENDSRV
L10007:

000002

012716

011116

000002

111

116

124

.WORD

+ #1

:= &END2
MOV
$END2,(SP)

RTI
:
;INTERRUPT HANDLER FOR EXPECTED INTERRUPT
3
BGNSRYV
:
INTHDL: LET (SP) := #END2
MOV
#END2, (SP)
ENDSRYV
L10010:
RTI
:
.NLIST BEX
INTFAC: .ASCIZ
/INTERFACE LOGIC TEST 1
:

{:gz
1857
1858
1859
1860
1861

INTERR: LET ERRTBL(R2) := ERRTBL(R2)
INC
ERRTBL(R2)
LET LSLUN := LUNIT
MOV
LUNIT,LSLUN
ERRHRD S,ERR12
TRAP
CS$ERHRD
.WORD
S
.WORD
ERR12

TEST COMPLETE/<12><12>

;ERROR MESSAGES ASSOCIATED WITH THIS TEST
011422
011476
011561

114
120
120

011636
011636
011636

104401

1862
1863 011640
1864

117
122
122

101
111
111

ERR11:
ERR12:
ERR13:
.EVEN
ENDTST
L10006:

.ASCIZ
.ASCIZ
_.ASCIZ

TRAP
.LIST BEX
ENDMOD

-9
B

/LOADING PRINTER BUFFER DOES NOT CLEAR READY/
/PRINTER INTERRUPTED AT SAME LEVEL AS THE PROCESSOR/
/PRINTER DID NOi INTERRUPT AT CPU PRIORITY 3/

CSETST

CZLPLFO LP25, LP26, LP27, LPO7
READY LINE INTERLOCKS

1866
1867
1868 011640
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878 011640
011640
1879
1880 011640

011640
1881 011642
011642

1882 011644
011644
011646
1883
1884 011650
011650
011654
1885 011656
011656
011660
1886
1887 011662
011662
1888 011662
011662
1889 011666
011666
011672

1890
1891
1892 011674
011674
011700
011702
011702

1893
1894

1895

1896

011706
011706
011712
011714
011714
011720
011722
011722
011730
011732
011732
011736
011736

MACRO YO05.02 Wednesday 10-Apr-85 09:07

Page 24
SEQ 0056

TEST 2

.SBTTL

READY LINE INTERLOCKS

TEST 2

BGNMOD
HA
4

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

BGNTST
12::

;DETERMINE IF MANUAL INTERVENTION IS ALLOWED
MANUAL
TRAP
C$MANI
BCOMPLETE 11

104450
103402

BCS
11%
EXIT TST

104432
002742

TRAP
.WORD

CSEXIT
L10011-.

;EXIT TEST IF MANUAL INTERVENTION TESTS ARE NOT SPECIFIED

005737
001002

118:

002266

104432
002730

ENDIF
50116%:
005037

002300

013701
005301

002012

IF INHINT €Q #0 THEN
TST
INHINT
BNE
50116%
EXIT TST
TRAP
CSEXIT
.WORD
L10011-.

LET FLAG := &0
CLR
FLAG
LET R1 := LSUNIT - #1
MOV
LSUNIT,R1
DEC
R1

;CHECK FOR ERROR IN EACH PRINTER UNDER TEST
005037
000402

002320

005237

002320

023701
003020

002320

013702
006302

002320

032772
001410

100000

005262

003120

104456

INCR LUNIT FROM 40 TO R1 BY #1
CLR
LUNIT
BR
50117¢
50120%:
INC
LUNIT
50117s:

CcMP

002362

LUNIT,R1

BGT
50121%
LET R2 := LUNIT SHIFT 1
MOV
LUNIT,R2
ASL
R2
IF #BIT1S SETIN SLPCSR(R2) THEN
BIT
#BIT15,8LPCSR(R2)
BEQ
501224
LET ERRTBL(R2) := ERRTBL(R2) + #1
INC
ERRTBL(R2)
ERRHRD 6, CSRERR
TRAP
CSERHRD

CZLPLFO LP25, LP26, LP27, LPO?
READY LINE INTERLOCKS

011740
011742
011744
1897 011746
011746
1898 011752
011752
1899 011752
011752
011754
1900
1901 011754
011754
011760
011762
011762
011766
011766
011772
1902 011774
011774
012000
1903 012002
012002
1904 012010
012010
012016
1905 012020
012020
1906 012024
012024
012026
012030
012032
1907 012034
012034
1908 012034
012034
012036
1909
1910
1911
1912 012036
1913
1914

1915
1916 012100
1917
1918
1919
1920
1921
1922
1923

012100
012104
012110
012112
012112
012116
012116
012122
012124
012124

MACRO Y05.02

Page 24-1

SEQ 0057

TEST 2

000006
003412
000000

005072

Wednesday 10-Apr-85 09:07

.WORD
.WORD
.WORD
002362

CLR
ENDIF

50122%:
ENDINC
BR
50121%:

000753

6
gSRERR
LET SLPCSR(R2)
8LPCSR(R2)

:= #0

50120¢

;CHECK FOR READY IN EACH PRINTER UNDER TEST
005037
000402

002320

005237

002320

023701
003021

002320

013702
006302

002320

013737

002320

002074

032772
001006

000200

002362

005262

003120

INCR LUNIT FROM 40 TO R1 BY #1
CLR
LUNIT
BR
501234
50124
INC
LUNIT
50123s:
CMP
LUNIT,R1
BGT
50125%
LET R2 := LUNIT SHIFT 1
MOV
LUNIT,R2
ASL
R2
LET LSLUN := LUNIT
MOV
LUNIT,LS$LUN
IF #BITO7 NOTSETIN SLPCSR(R2) THEN
BIT
#BIT07,8LPCSR(R2)
BNE
501264
LET ERRTBL(R2) := ERRTBL(R2) + #1
INC
ERRTBL(R2)
ERRHRD 7, RDYERR
TRAP
C$ERHRD
.WORD
7
.WORD
RDYERR
.WORD
O
ENDIF
50126¢%:
ENDINC
BR
50124
50125%:

104456

000007
003430
000000

000752

; PRINT TEST NAME
OUTPUT #INTLK, #29.

;:VERIFY OPERATION OF PAPER LOW INTERLOCK SWITCH
;HARD CODED INCREMENT LOOP
5

002344

005037
005037
000405

002320

005237

002320

013702
006302

002320

023701

002320

2%:

LET ERRFLG := #0
CLR
ERRFLG
CLR LUNIT
1%
BR
INC LUNIT
LET R2 := LUNIT SHIFT 1

MOV

1$:

ASL

CMP LUNIT,R1

LUNIT,R2

CZLPLFO LP25, LP26, LP27, LPO7
READY LINE INTERLOCKS
1924
1925
1926
1927

012130
012132
012136
012136
012136
1928 012142
012142
012146
012152
012156
012160
012162
1929 012166
012166
012172
012176
012200
012202
1930 012206
012206
012210
012212
012214
012216
012220
012222

1931 012222
012222
1932 012230

012230
1933 012234
012234

1934 012234
1935 012276
012276
1936 012302
012302
012306
012310
012314
012316
1937 012316
012316
012322
1938 012324
012324
012326
012330
012332

1939 012334
012334
1940 012340
012340
1941 012344
012344
012346
1942 012346

003402
000137

MACRO Y05.02

SEQ 0058

BLE 3§

012472

005037

002300

013746
012746

002320
013466

012746
012746
010600
104417
062706

JMP 4§

000002
000006
013536
000001
000004

104443
000404
002300
000130
007673
100000

1000 0$:
012737

000310

005037

002344

002302

501 27%:
005337

002302

005737
001403
005737
001747

002302

002344

501 30¢:
005737
001011

Page 24-2

TEST 2

3s:

012746
010600
104417
062706

Wednesday 10-Apr-85 09:07

002344

104456
000010
003452

000000

005262

003120

000137

012352

000402

501 31s:

LET FLAG := #0
CLR
FLAG
PRINTF &PAPRSW,LUNIT
MOV
LUNIT, -(SP)
MOV
®PAPRSW, -(SP)
MOV
#2,-(SP)
MOV
SP,RO
TRAP
C$PNTF
ADD
#6,SP
PRINTF #PAPSW1
MOV
#PAPSW1, -(SP)
MOV
@1,-(SP)
MOV
SP,RO
TRAP
CSPNTF
ADD
4 ,SP
GMANIL READY, FLAG, 100000,
TRAP
C$GMAN
BR
10000$
.WORD
FLAG
.WORD
T$CODE
.WORD
READY
.WORD
100000

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

YES

; ALLOW FOR ABOUT 3 PAGES OF PAPER

OUTPUI #PAPTST,#15.,45$,LUNIT
LET LINCNT := LINCNT - #1
DEC
LINCNT
UNTIL LINCNT EQ #0 OR ERRFLG NE #0
TST
LINCNT
BEQ
50130¢
ST
ERRFLG
BEQ
50127
IF ERRFLG EQ #0 THEN
TST
ERRFLG
BNE
50131
ERRHRD 8,PAPSWI
TRAP
CSERHRD
.WORD
8
.WORD
PAPSMWI
.WORD
0
LET ERRTBL(R2) := ERRTBL(R2)
INC
ERRTBL(R2)
INLINE
<JMP
“P1002$>
JMP
11002$
ELSE
BR
50132¢

)

LET ERRFLG
->

+ #1

CZLPLFO LP25, LP26, LP27, LPO7
READY LINE INTERLOCKS
012346
1943 012352
012352
1944 012352
012352
012356
012362
012366
012370
012372
1945 012376
012376
1946 012402
012402
012404
012406
012410
012412

012414
012416
1947 012416

012416
012422
1948 012424
012424
1949 012430

1950
1951
1952
1953 012434
012434
1954 012442
012442
1955 012446
012446
1956 012454
012454
1957 012460
012460
1958 012464
012464
1959 012470
1960
LPO7 OR LP27.
1961 012472
012472
012476
012500
012500
012504
012504
012510
1962 012512
012512
012516
1963 012520
012520
1964 012526

005037

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 24-3

SEQ 0059

TEST 2

002344

013746
012746
012746
010600
104417
062706

000006

005037

002300

CLR
ENDIF

ERRFLG

.WORD

READY

:= LUNIT SHIFT 1
LUNIT,R2

50132¢:
11002¢: PRINTF #PAPRDY,LUNIT
MOV
LUNIT, -(SP)
MOV
#PAPRDY, -(SP)
MOV
#2,-(SP)
MOV
SP,RO
CS$PNTF
TRAP
ADD
#6,SP
LET FLAG := #0
CLR
FLAG
GMANIL READY,FLAG,100000,YES
TRAP
C$GMAN
BR
10001
.WORD
FLAG
.WORD
T$CODE

002320
013605
000002

104443

000404
002300
000130
007673
100000

.WORD

10001$:

100000

013702
006302

002320

LET R2
MOV

005072
000137

002362
012112

LET SLPCSR(R2) := #0
CLR
8LPCSR(R2)
JMP 2%

ASL

000001

005037

002342

042762

120000

005062

002756

005062

002556

005062
000207

002656

005037
000402

002320

005237

002320

023701
003127

002320

013702
006302

002320

013737

002320

;

RESET THE LP CSR

;EXPECTED ERROR HANDLER.
;JUST SET EXPECTED ERROR INDICATOR.
3

012737

002344

S$:

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

002516

ERRFLG := #1
#1,ERRFLG
ERRCOD := #0
ERRCOD
STATUS(R2) := STATUS(R2) CLR.BY #ERROR'ACTIVE
#ERROR!ACTIVE,STATUS(R2)
CURCNT(R2) := #0
: CLEAN UP THE DRIVER PARAMETERS.
CURCNT(R2)
CURADD(R2) := #0
CURADD(R2)
REPCNT(R2) := #0
REPCNT(R2)
PC
;AND RETURN

;VERIFY OPERATION OF HAMMER BANK INTERLOCK SWITCH ON LP25,c<6 -OR- VERIFY BAND GATE LATCH ON
4s:

INCR LUNIT FROM #0 TO R1 BY #1

501345%:
50133$:

002074

CLR
BR

LUNIT
50133

INC

LUNIT

CMP
LUNIT,R1
BGT
50135%
LET R2 := LUNIT SHIFT 1
MOV
LUNIT,R2
ASL
R2
LET LSLUN := LUNIT
MOV
LUNIT,L$LUN
LET FLAG := #0

CZLPLFO LP25, LP26, LP27, LPO7
READY LINE INTERLOCKS
012526
1965 012532
012532
012540
1966 012542

012542
012546
012552
012556
012560
012562
012566
012566
012570
1968 012570
012570
012574
012600
012604
012606
012610
1969 012614
012614
012620
012624
012626
012630
1970 012634
012634
1971 012634
012634
012636
012640
012642
012644
012646
012650
1972 012650
012650
012656
1973 012660
012660
012664
012670
012674
012676
012700
1974 012704
012704
012706
012710
012712
012714
012716
012720
1975 012720
012720

MACRO Y05.02

Wednesday 10-Apr-85 09:07

SEQ 0060

TEST 2

005037

002300

032762
001413

002000

013746
012746
012746
010600
104417
062706

002320
014325
000002

002516

000006

000422
50136%:
013746
012746
012746
010600
104417
062706
012746
012746
010600
104417
062706

002320
013714
000002

000006

013771

MOV

000001

MOV

000004

104443

000404
002300
000130
007673
100000

10002$:

032772
001421

100000

013746
012746
012746
010600
104417
062706

002320
014032
000002

CLR
FLAG
IF @FLAGO7 SETIN STATUS(R2)
THEN
BIT
#FLAGO7,STATUS(R2)
BEQ
50136%
PRINTF #BGTLCH,LUNIT
MOV
LUNIT, -(SP)
MOV
#BGTLCH, -(SP)
MOV
#2,-(SP)
MOV
SP,RO
TRAP
CSPNTF
ADD
@6 ,SP
ELSE
BR
S0137s
MOV
MOV
MOV
MOV
TRAP
ADD

50137s:

002362

000006

104443
000404
002300
000130

007673

100000
10003$:

000422

Page 24-4

MOV
TRAP
ADD
ENDIF

PRINTF &HAMRSW,LUNIT
LUNIT, -(SP)
®HAMRSM, -(SP)
#2,-(SP)
SP,RO
CSPNTF
#6,SP
PRINTF #HAMSW1
#HAMSW1, -(SP)
@1,-(SP)
SP,RO
CS$PNTF
@4 ,SP

GMANIL READY, FLAG,
TRAP
C$GMAN
BR
10002$
.WORD
FLAG
.WORD
T$CODE
.WORD
READY
.WORD
100000

100000,

YES

IF #BIT1S SETIN SLPCSR(R2) THEN
BIT
#BIT15,8LPCSR(R2)
BEQ
50140
PRINTF &HAMRDY ,LUNIT
MOV
LUNIT, -(SP)
MOV
@HAMRDY, -(SP)
MOV
#2,-(SP)
MOV
SP,RO
TRAP
CS$PNTF
ADD
#6,SP
GMANIL READY, FLAG, 100000,
TRAP
C$GMAN
BR
10003
.WORD
FLAG
.WORD
T$CODE
.WORD
READY
.WORD
100000
ELSE
BR

50141

YES

CZLPLFO LP25, LP26, LP27, LPO7
READY LINE INTERLOCKS
012722
1976 012722
012722
1977 012726
012726
1978
1979 012734
012734
012742
1980 012744
012744
012746
012750
012752
1981 012754
012754
012756
1982 012756
012756
012760
012762
012764
1983 012766
012766
1984 012766
012766
1985 012766
012766
012770
1986
OR LP27.
1987 012770
012770
012774
012776
012776
013002
013002
013006
1988 013010
013010
013014
1989 013016
013016
1990 013022
013022
013030
013032
013040
1991 013042
013042
013046
013052
013056
013060
013062
1992 013066
013066

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 24-5

SEQ 0061

TEST 2
50140%:

005262

003120

013737

002320

002074

MOV

032762
001405

002000

002516

BIT
BEQ

INC

104456
000021
004221
000000

TRAP
.WORD
.WORD
.WORD

000404

50142%:

TRAP
.WORD
.WORD
.WORD

104456
000011
003515
000000

50143s:

ENDIF
S01415$:
ENDINC
BR
50135%:

000644

LET ERRTBL(R2) := ERRTBL(R2) + #1
ERRTBL(R2)
LET LSLUN := LUNIT
LUNIT,L$LUN

IF #FLAGO7 SETIN STATUSCR2)
#FLAGO7,STATUS(R2)
501424
C$ERHRD
17
BGTSWI
O
ELSE
50143

C$ERHRD
9
BNKSWI
O
ENDIF

THEN

ERRHRD 17,BGTSWI

ERRHRD 9,BNKSWI

501344

;VERIFY OPERATION OF CHARACTER BAND INTERLOCK SWITCH ON LP25,26 - OR - VFU INTERLOCK ON LPO7
INCR LUNIT FROM #0 TO R1 BY #1
CLR
LUNIT
BR
50144
50145$:

005037
000402

002320

0035237

002320

023701
003162

002320

013702
006302

002320

005037

002300

032762
001417
032762
001013

002000

002516

001000

002516

013746
012746
012746
010600
104417
062706
000422

002320
014425
000002
000006

"
INC
501448:

‘

LUNIT

CcMP

LUNIT,R1

ASL

MOV

@VFUINT, -(SP)

BGT
501464
LET R2 := LUNIT SHIFT 1
MOV
LUNIT,R2
LET FLAG := &0
CLR
FLAG
IF #FLAGO7 SETIN STATUS(R2) AND #FLAG26 NOTSETIN STATUS(R2) THEN
BIT
#FLAGO7,STATUS(R2)
BEQ
50147%
BIT
@FLAG26, STATUS(R2)
BNE
S50147%
PRINTF #VFUINT,LUNIT
MOV
LUNIT, -(SP)

MOV
MOV
TRAP
ADD
ELSE
BR

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

50150¢

CZLPLFO LP25, LP26, LP27, LPO7
READY LINE INTERLOCKS

MACRO Y05.02

SEQ 0062

013074
013100
013104
013106
013110
1994 013114
013114

013120
013124
013126
013130
1995 013134

50147s:
013746
012746
012746
010600
104417
062706

012746
012746
010600
104417
062706

002320
014116
000002

MOV
MOV
MOV
MOV
TRAP
ADD

000006

014204
000001
000004

013134

1996 013134
013134
013136
013140
013142
013144
013146

013150

1997 013150
013150
013156
1998 013160
013160
013166
013170
013176
1999 013200
013200
013204
013210
013214
013216
013220
2000 013224
013224

013226

2001 013226
013226
013232
013236
013242
013244
013246
2002 013252

50150%:
104443
000404
002300
000130
007673
100000
100000

002362

032762
001417
032762
001013

002000

002516

001000

002516

002320
014517
000002

000006

000412
013746
012746
012746
010600
104417
062706

013252

2003 013252
013252
013254
013256
013260
013262

100045:

032772
001444

013746
012746
012746
010600
104417
062706

50152%:
002320
014234
000002

MOV
MOV
MOV
TRAP
ADD
ENDIF

100000,

YES

IF #BIT15 SETIN SLPCSR(R2) THEN
BIT
#BIT15,8LPCSR(R2)
BEQ
50151
IF #FLAGO7 SETIN STATUS(R2) AND #FLAG26 NOTSETIN STATUSC(R2) THEN
BIT
#FLAGO7,STATUS(R2)
BEQ
S50152$
BIT
#FLAG26,STATUS(R2)
BNE
50152$
PRINTF #VFURDY,LUNIT
MOV
LUNIT, -(SP)
MOV
@VFURDY, -(SP)
MOV
@2,-(SP)
MOV
SP,RO
TRAP
CS$PNTF
ADD
#6,5P
ELSE
BR
50153s
MOV
MOV
MOV
MOV
TRAP
ADD

000006

PRINTF &BANDSW,LUNIT
LUNIT, -(SP)
®BANDSW, -(SP)
#2,-(SP)
SP,RO
CS$PNTF
#6,SP
PRINTF #BNDSW1
®BNDSW1, -(SP)
@1,-(SP)
SP,RO
CSPNTF
@4,SP

GMANIL READY, FLAG,
TRAP
CS$GMAN
BR
10004
.WORD
FLAG
.WORD
T$CODE
.WORD
READY
.WORD
100000

50153s:
104443
000404
002300
000130
007673

Page 24-6

TEST 2

013070

1993 013070
013070

Wednesday 10-Apr-85 09:07

TRAP
BR
.WORD
.WORD
.WORD

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

GMANIL READY, FLAG,
CS$GMAN
10005$
FLAG
T$CODE
READY

100000,

YES

CZLPLFO LP25, LP26, LP27, LPO7
READY LINE INTERLOCKS
013264
013266
2004 013266
013266
013270
2005 013270
013270
2006 013274
013274
2007 013302
013302
013310
013312
013320
2008 013322
013322
013324
013326
013330
2009 013332
013332
013334
2010 013334
013334
013336
013340
013342
2011 013344
013344
2012 013344
013344
2013 013344
013344
2014 013352
013352
013354
2015 013354
013354
2016 013362
2017 013424
013424
013426
2018
2019
2020
2021 013430
2022 013466
2023 013536
2024 013605
2025 013674
2026 013714
2027 013771
2028 014032
2029 014116
2030 014204
2031 014234
2C32 014325

MACRO Y05.02

Wednesday 10-Apr-85 09:07

SEQ 0063

TEST 2

100000

10005¢%:

000426

S0151:

.WORD

100000

ELSE
BR

50154

005262

003120

013737

002320

002074

MOV

032762
001411
032762
001005

002000

002516

001000

002516

BIT
BEQ
BIT
BNE

INC

104456
000020
004263
000000

TRAP
.WORD
.WORD
.WORD

000404

50155%:

104456

50156¢:

50154

000000

002362

000014

003164

000611
012737

BR
TRAP
.WORD
.WORD
.WORD

000012
003562
000000

012772

Page 24-7

104432

001162

LET ERRTBL(R2) := ERRTBL(R2) + #1
ERRTBL(R2)
LET LSLUN := LUNIT
LUNIT,LS$LUN
IF 4FLAGO7 SETIN STATUS(R2) AND #FLAG26 NOTSETIN STATUSCR2) THEN
#FLAGO7,STATUS(R2)
50155
#FLAG26,STATUS(R2)
50155
C$ERHRD
16
VFUINF
O
ELSE

ERRHRD 16, VFUINF

501564%

C$ERHRD
10
BNDSWI
O

ERRHRD 10,

BNDSWI

ENDIF

LET SLPCSR(R2) := #00
MOV
#00,8LPCSR(R2)
ENDINC
BR
50145
50146%:
LET OUTBUF := 914
MOV
#14,0UTBUF
OUTPUT #0UTBUF ,#1
EXIT TST
TRAP
CSEXIT
.WORD
L10011-.
.NLIST BEX

105
116
101
116

101
116
116
116
116
116
116
116

101

INTLK:

.ASCIZ

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

045
040
045
120

PAPRSW:
PAPSW1:
PAPRDY:
PAPTST:

.ASCIZ /#N#ATEAR OFF PAPER JUST BELOW LUNIT sD2/
.ASCIZ
/#A TO CHECK PAPER LOW #N#AINTERLOCK.%N/
.ASCIZ
/#N#ARESTORE PAPER, CLEAR, PLACE LUNIT #D2%A ON LINE.®#N/
.ASCIZ
/PAPER LOW TEST/<12>

045
045
045
045
045
045

HAMSW1:
HAMRDY:
BANDSW:
BNDSW1:
BNDRODY:
BGTLCH:

.ASCIZ
.ASCIZ

045

HAMRSW:

.ASCIZ

/#N#ADISENGAGE HAMMER BANK LATCH ON LUNIT %D2/

/#Ns#ATO CHECK INTERLOCK SWITCH.®N/
/#N#AENGAGE LATCH,CLEAR,PLACE LUNIT #D2#A ON LINE.®N/

.ASCIZ
/%NSAOPEN CHARACTER BAND COVER ON LUNIT #%D2#A TO CHECK/
.ASCIZ
/%NsSAINTERLOCK SWITCH.®N/
.ASCIZ/¥N%ACLOSE BAND COVER ON LUNIT %D2%A,CLEAR,PLACE ON LINE./
.ASCIZ /%N®AOPEN BAND GATE LATCH ON LUNIT #D2%A TO CHECK MICROSWITCH.%N/

CZLPLFO LP25, LP26, LP27, LPO7
READY LINE INTERLOCKS

2033 014425
2034 014517
2035
2036
2037
2038 014610
014610
014610

2039
2040 014612
2041

045
045

104401

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 24-8

SEQ 0064

TEST 2

116
116

045
045

VFUINT:
VESESY:

.ASCIZ /#N#ALIFT VFU COVER ON LUNIT #D2%A TO CHECK MICROSWITCH.SN/
-ASCIZ /%N#ACLOSE VFU COVER ON LUNIT %D2%A,CLEAR,PLACE ONLINE.®%N/

.LIST BEX
ENDTST
L10011:
TRAP
ENDMOD

CSETST

CZLPLFO LP2S, LP26, LP27, LPO7

MACRO Y05.02

Wednesdey 10-Apr-85 09:07

Page 25
SEQ 0065

FORMS LENGTH SELECTION

2043

.SBTTL FORMS LENGTH SELECTION

2044 014612

BGNMOD

2046
2047
2048
2049
2050
2051
2052

sTHIS TEST CHECKS ALL POSITIONS OF THE FORM LENGTH
SWITCH. THE
sPROGRAM INDICATES THE SPECIFIED SETTING OF THE FORMSELECT
LENGTH
SWITCHM
sAND WAITS FOR THE OPERATOR TO SET THE SMITCH ON THE PRINTER.SELECT
THE
PAPER
sIS THEN ADVANCED UNDER PROGRAM CONTROL. THE PRINTER OUTPUT IS VISUALLY
sINSPECTED AFTER ALL SWITCH SETTINGS MAVE BEEN RUN THROUGH BY THE OPERATOR
1TO_VERIFY THAT THE PROPER PAPER MOVEMENT MAS OCCURRED FOR EACH SWITCH
sSETTING. ALL LPO7'S OR LP27'S WILL BE TESTED ON ALL TCVFU CHANNELS AND LINE COUNTS.

2054 014612

BGNTST

2055

;DETERMINE IF MANUAL INTERVENTION IS ALLOWED

2045

jee

‘--

014612

2056 014612
014612
2057 014614

T73::

MANUAL
TRAP
CSMANI
BCOMPLETE 14

104450

014614 103402

BCS

014616
014620

104432
003076

TRAP
MORD

COEXIT
L10012-.

2060 014622
2061 014626
2062 014630
014630
014632
2063 014634
014634
.
014680

005737
001002

2058 014616

2059

2064

2065 014642
014642

014654
014660
014662

014666

2066 014666
014666

JEXIT TEST IF MANUAL INTERVENTION TESTS ARE NOT SPECIFIED

002266

104432
003064

013701
005301

002012

005037

002320

2s:

000001

014646 000402

014650
014650
014654

EXIT TST

$BRUMP=1

005237

002320

023701
003402
000137

002320

TST INHINT
BNE 2§
EXIT TST
TRAP
CSEXIT
MORD
L10012-.
LET R1 := LSUNIT - o1
MOV
LSUNIT,R1
DEC
R

INCR LUNIT FROM 0 TO R1 BY o1
CLR
LUNIT

B8R

501574:
INC
501608:

016436

501618:

CMP
BLE
JMP

501638

014674

032762

002000

014704
2068 014710
014710
014714
014720
014724
014726
014730
2069 014734
014734

000137

015354

013746
012746
012746
010600
104417
062706

002320
016504
000002

MOV
MOV
MOV
MOV
TRAP

000006

ADD

012746

016570

MOV

MOV
ASL
002516

LUNIT.RI
S01614
501623

BIT

014672

002320

014702 001402

LUNIT

LET R2 := LUNTT SHIFT 1
LUNIT,R2
R2
IF OFLAGO7 NOTSETIN STATUSCR2) THEN
OFLAGO7,STATUS(R2)

013702
006302

2067 014674

501608

8EQ

PRINTF OLINSMI,LUNIT
LUNIT,-(SP)
OLINSWI, -(SP)
#2,-(SP)
SP.RO
CSPNTF
#6,SP

PRINTF OLINSW1
OLINSMI,-(SP)

CILPLFO LP2S, LP26, LP27, LPO?

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 25-1

SEQ 0066

FORMS LENGTH SELECTION
014740
014744
014746
014750

012746
010600
104417
062706

014754
014760
014764
014770
014772
014774
2071 015000
015000
015004
015010
015014
015016
015020
2072 015024
015024
01503C
015034
015040
015042
015044

013746
012746
012746
010600
104417
062706

2070 014754

2073 015050

2074
2075

2076

2077
2078

015050
015052
015054
015054
015060
015060
015064
015066
015072
015072
015072
015100
015104
015104
015110
015114
015120
015124
015126
015130
015134
015134
015140
015144
015146
015150
015154
015154
015160
015160
015162

013746
012746
012746
010600
104417
062706

000001

MOV
MOV
TRAP
ADD

000004
002320
016650
000002

MOV
MOV
MOV
MOV
TRAP
ADD

000006
002320
016747
000002

MOV
MOV
MOV
MOV
TRAP
ADD

000006

002320
017443
000002

MCV
MOV
MOV
MOV
TRAP
ADD

000006

005003
000402

062703

000004

020327
003402
000137

000050

012737
060337

017275
016442

013746
013746
012746
012746
010600
104417
062706

016442
002320
017351
000003

012746
012746
010600
104417
062706

017443
000001

005037
104443
000404

501645%:
50165¢:

015350

000010

50166%:
016442

SP,RO
CSPNTF
04,5P

PRINTF &FLSSEL ,LUNIT

LUNIT, -(SP)

OFLSSEL, -(SP)

SP ,RO
CSPNTF
06,5P

PRINTF @FLS1,LUNIT
LUNIT, -(SP)
oFLS1, -(SP)
#2,-(5P)

CSPNTF
6 ,5P

PRINTF &FLSMS1 ,LUNIT
LUNIT, -(SP)
OFLSMS1, -(SP)
#2,-(SP)
SP,RO

CSPNTF
©6,SP

INCR R3 FROM #0 TO 450 BY #4

CLR
BR

R3
50165

ADD

#4 ,R3

CMP
BLE
JMP

R3,450

MOV
ADD

OFFSET, T3SET
R3,T3SET

MOV
MOV
MOV
MOV
MOV
TRAP
ADD

T3SET, -(SP)
LUNIT, -(SP)
#FLSMSG, -(SP)

50166%
50167$

LET T3SET

:= 4FFSET

+ R3

PRINTF &FLSMSG,LUNIT,T3SET

SP,RO
C$PNTF
#10,5P
@FLSMS1, -(SP)

000004

MOV
MOV
MOV
TRAP
ADD

002300

CLR

FLAG

TRAP
BR

C$GMAN
10000¢

PRINTF #FLSMS1

SP,RO
CSPNTF
#4,5P

LET FLAG

:= 40

GMANIL READY,FLAG,100000,YES

CILPLFO LP2S, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 25-2
SEQ 0067

FORMS LENGTH SELECTION
015164
015166
015170
015172
015174
2079 015174
2080 015236
2081 015300
2082 015342
2083 015346
015346
015350
2084 015350
015350
015354
2085 015354
2086 015416
2087 015422
2088 015464
015464
2089 015472
015472
209¢ 015500
015500
015506
015510
015510
015514
015514
015522
015524
015530
2091 015530
2092 015572
2093 015634
015634
2094 015640
015640
015642
2095 015642
015642
2096 015650
2097 015712
2098 015754
015754
2099 015762
015762
2100 015770
015770
015774
015776
015776
015002
016002
016010
015012
016016

002300
000130
007673

.WORD
.WORD
.WORD
.WORD

100000

100008
:

004737

50164

501678:
016142

50163s:

004737

T$CODE
READY
100000

005606

000642

000137

FLAG

ENDINC

QUTPUI ®REFLIN,#62.,,LUNIT
OUTPUI T3SET,43, ,LUNIT
OUTPUI &MOVMSG,#62., ,LUNIT
JSR PC,QUIET

JMP

ELSE
50170¢

OUTPUI #REFLIN,#30.,,LUNIT
JSR PC,QUIET
OUTPUI &CHNSEC,#13., ,LUNIT
LET WORK1 := #52
52, WORK1

005606

012737

000052

003162

MOV

012737

000200

003164

MOV

LET QUTBUF
€200,0UTBUF

012737
000402

000001

003160

MOV

@1, WORK

005237
023727
003402
000137

S0171s:

003160
003160

000014

50172s:

015642

50173s:

« REF.

LINE

s TEST ID
;SECTION ID
;CODE FOR ASTERISK

:= 4200

INCR WORK FROM &1 TO #12.

;TEST ID

;CHANNEL CODE

BY #1

;REPEAT FOR ALL 12 CHANNELS

S50172¢

INC

WORK

CMP
BLE
JMP

WORK, #12.
50173s
S0174s

OUTPUI #0UTBUF,#1, ,LUNIT

005237

003164

000723
501745

012737

000014

003164

OUTPUI #WORK1,#&1,,LUNIT,WORK
LET OUTBUF := QUTBUF + #1

INC

OUTBUF

50171

MOV

LET QUTBUF
€¢14,0UTBUF

DINC

OQUTPUI #OUTBUF,#1, ,LUNIT

000052

003162

MOV

012737

000220

003164

MOV

#220,0UTBUF

005037
000402

003160

CLR

WORK

INC

WORK

cMP
BLE
JMP

WORK, #15.
50177¢

005237
023727
003402
000137

003160
003160

000017

50176%:

016142

50177s:

:= 214

OUTPUI #LINSEC,#15.,,LUNIT
LET WORK1 := #52

012737

50175s:

sNEXT CHANNEL

€52, WORK1
LET OUTBUF

502004

:= 4220

INCR WORK FROM #0 TO #15.

501764

:SECTION ID
:CODE FOR ASTERISK

:CODE FOR VFU
BY #1

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 25-3
SEQ 0068

FORMS LENGTH SELECTION
<101 016016
2102 016060
016060
016064
016066
2103 016072
2104 016134
016134
2105 016134
016134
2106 016140
016140
016142
2107 016142
016142
2108

2109 016142

016142
016150
016152
2110 016156
016156
016162
016166
016172
016174
016176
2111 016202
016202
016206
016212

016216
016220
016222
2112 016226
016226
2113 016234
016234
2114 016240
016240
016242
016244
016246
016250
015252
016254
2115 016254
2116 016316
016316
016322
2117 016322
016322
2118 016330
2119 018372
016372
2120 016372
016372

005737
003002
000137

003160

TST
BGT
JMP

016134

OUTPUI #0UTBUF,#1, ,LUNIT
IF WORK GT #0 THEN

WORK
.+6
50201¢

ENDIF

50201%:

005237

003164

000716
50200¢:

INC

OUTBUF

50175¢

OUTPUI 4WORK1,#&1,,LUNIT,WORK

LET OUTBUF

;PRINT ASTERISK

:= QUTBUF + #1

ENDINCR

ENDIF

50170¢:

032762
001402
000137

002000

002516

;SET FORMS LENGTH SELECT SWITCH TO ITS "REGULAR” SETTING
IF #FLAGO7 NOTSETIN STATUS(R2) THEN
BIT
#FLAGO7,STATUS(R2)
BEQ
JMP

016322

TRAP
BR
.WORD
.WORD
.WORD
.WORD

PRINTF &NMLFLS,LUNIT
LUNIT, -(SP)
ONMLFLS, -(SP)
#2,-(SP)
SP,RO
C$PNTF
@6,SP
PRINTF &FLSMS1,LUNIT
LUNIT, -(SP)
#FLSMS1, -(SP)
#2,-(SP)
SP,RO
C$PNTF
#6,SP
LET QUTBUF := #14
#14,0UTBUF
LET FLAG := 40
FLAG
GMANIL READY,FLAG,100000,YES
C$GMAN
10001$
FLAG
T$CODE
READY
100000

JMP

ELSE
50203

013746
012746
012746
0106C.
104417
062706

000006

MOV
MOV
MOV
MOV
TRAP
ADD

013746
012746
012746

002320
017443
000002

MOV
MOV
MOV

010600
104417

002320
017203
000002

062706

(00006

012737

000014

005037

002300

MOV
TRAP
ADD

003164

000137

012737

MOV

CLR

104443
000404
002300
000130
007673
100000

10001
016372

;

000014

50202
:
003164

.+6
50202%

;CLEAR <CR> FLAG
;AND WAIT FOR RESPONSE

OUTPUI #0UTBUF,#1, ,LUNIT

LET QUTBUF

:= #14

MOV

@14, 0UTBUF
OUTPUI #0UTBUF,#1, ,LUNIT
ENDIF

MOV

#PAPCHK, -(SP)

50203%:
012746

017042

PRINTF #PAPCHK

iMAKE SURE MOVEMENT WAS RIGHT

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 25-4

SEQ 0069

FORMS LENGTH SELECTION

016376
016402
016404
016406
2121 016412
016412
2122 016416
016416
016420
0156422
016424
016426
016430
016432
2123 016432
016432
016436
2124
2125 016436
016436
016440
2126 016442
2127 016444
2128
2129 016446
2130 016464
2131 016504
2132 016570
2133 016659
2134 016747
2135 017042
2136 017104
2137 017203
2138
2139 017275
2140 017301
2141 017305
2142 017311
2143 017315
2144 017321
2145 017325
2146 017331
2147 017335
2148 017341
2149 017345
2150 017351
2151 017443
2152 017523
2153 017616
2154
2155
2156
2157 017716
017716
017716
2158 017720
2159

012746
010600
104417
062706

000004

MOV
TRAP
ADD

005037

002300

CLR

000001

MOV

104443
000404
002300
000130
007673
100000
10002$
:

000137

014650

501625
:

17mm

045
045
045
045
106
045

110
111
116
116
116
116
116
117
116

101
116
045
045
062
045
045
122
045

063
063
064
065
066
067
070
070
061
061
061
045
045
045
040

040
056
040
056
040
040
040
056
061
062
064
116
116
116
111

040
065
040
065
040
040
040
065
040
040
040
045
045
045
116

104401

4 ,SP
LET FLAG

FLAG

.WORD
.WORD

CHNSEC:
LINSEC:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.NLIST BEX

LINSWI:
LINSW1:

FLSSEL:

FLS1:
PAPCHK:

REFLIN:
NMLFLS:

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

;WAIT FOR RESPONSE

FLAG

T$CODE
READY
100000

ENDINC
JMP

T3SET:
T3MOV:

:= #0

GMANIL READY,FLAG,100000,YES
C$GMAN
10002¢

TRAP
BR
.WORD
.WORD
.WORD
.WORD

5(157s

$BRUMP=-1
EXIT TST
TRAP
.WORD

104432
001256
00C000
000000
103
114
045

SP,RO
C$PNTF

CSEXIT
L10012-.
0
0
/CHANNEL 1-12/¢12>
/LINE COUNT 0-15/
/%NSASET LINES SWITCH ON UNIT %D2%A TO “6”

TO SELECT/
/%N%A6 LINES PER INCH VERTICAL PRINTING DENSITY./
/%N2%ASET VFU-FLS SWITCH ON UNIT %D2%A TO THE “FLS” POSITION.#N/
/%NSASET FORMS LENGTH SELECT SWITCH ON UNIT sD2%A TO “8“.%N/
/%N%AVERIFY PROPER PAPER MOVEMENT./
/FORMS LENGTH SELECTION TEST #3---REFERENCE LINE..............
/<14>
/%NSASET FORMS LENGTH SELECT SWITCH ON UNIT %D2%A TO 11.%N/

;SWITCH SETTING SSFOR FORMS LENGTH MESSAGES

FFSET:

FLSMSG:
FLSMS1:
FLSMS2:
MOVMSG:

.ASCIZ /

.ASCIZ /3.5/
/
.ASCIZ /4
.ASCIZ /5.5/
.ASCIZ n
¢
.ASCIZ 7/
.ASCIZ /8

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/8.5/
/11 7
/712 /
/14 /
.ASCIZ /%N®ASET FORMS LENGTH SELECT SWITCH ON UNIT %D2%A TO %Ts%A,/
.ASCIZ /%N%ADEPRESS "CLEAR”,"TOF”, AND PLACE ON LINE.%N/
.ASCIZ /%N%ADEPRESS “CLEAR”,“TOF“,AND PLACE ON LINE,ON LUNIT %D2%N/
.ASCIZ / INCHES SHOULD OCCUR BETWEEN THIS AND THE REFERENCE LINE.....

.EVEN
.EVEN
.LIST BEX
ENDTST
L10012:
TRAP
ENDMOD

CSETST

/<12>

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 26

SEQ 0070

PRINTING SPEED MEASUREMENT

2161
2162 017720
2163
2164
2165
2166
2167
2168
2169
2170
2171
2172 017720
017720
2173
2174 017720
017720
017724

2175 017726
017726
017732
2176 017734
017734
2177 017736
017736
2178 017740
017740
017742
2179 017744
017744
017750
2180 017752
177
017754
2181 017756
017756
017760
2182 017760

017760
2183 017766
017766
2184 017766

2185
2186

2187
2188

017766
017770
017770
017770
017776
017776
017776
020040
020040
020044
020046
020054
020056
020060
020064

.SBTTL PRINTING SPEED MEASUREMENT
BGNMOD
e

i
+
:
¢+
:
+
:

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

goeo

BGNTST
T4::

013701
005301

002012

005737
001416

002270

LET R1

:= LSUNIT - #1
MOV
L$UNIT,R1
DEC
R1
IF MANSPD NE #0 THEN
TST
MANSPD

BEQ

MANUAL
TRAP

104450

104432

006042

1s:

002266

104432
006030
000403

50205%:

013737

002272

003160
50206%:
ELSE

000403

013737

013746
002502
023727
003076
006316
062716
013607

502044

:DETERMINE IF MANUAL INTERVENTION ALLOWED

C$MANI

002272

003160

002326
002326
020066

000004

.WORD

L10013-.

IF INHINT EQ #0 THEN
87
INHINT
BNE
50205¢
EXIT TST
TRAP
CSEXIT

.WORD
ELSE
BR

EXIT IF INTERVENTION INHIBITED

L10013-.

50206

LET WORK := PERIOD
MOV
PERIOD,WORK
ENDIF

BR
50207¢
5020454
:
LET WORK := PERIOD
MOV
PERIOD,WORK
ENDIF
50207%:
#PRTSPD, #36.
OUTPUT
SELECT CLKTYP OF 4 VERIFY
MOV
CLKTYP, -(SP)
BLT
50216$

CcMP

BGT
ASL
ADD
MOV

CLKTYP,#4

502164
(SP)
#502108, (SP)
8(SP)+,PC

i DISPATCH TABLE

i DETERMIN IF MANUAL TESTING SELECTED

BCOMPLETE 1%
BCS
13
EXIT TST
TRAP
CSEXIT

103402

005737
001003

:NUMBER OF UNITS TO TEST

: CLOCK TEST

TIME

;PRINT TEST ID
:SET UP THE RIGHT CLOCK

CZLPLFO LP2S, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 26-1

SEQ 0071

PRINTING SPEED MEASUREMENT

020066
020066
020070

020072
020074
020076

2189
2190 020100

50210%:

020256
020100

020106
020160
020246

020142
020144
2198 020150
020150
020154
2199
2200 020156
020156
020160
2201 020160
020160
020166
2202 020174
020174
2203
2204 020202
020202
020206
2205 020210
020210
020214
020220
020224
020230
020232
2206 020236
020236
020242
2207
2208 020244
020244
020246

000137

.WORD

CASE 1
50214
JMP

022142

CASE 2

000464
012737

502158

50214%
50213%

50212%

.WORD

020100

2191 020100
2192
2193 020104
020104
020106
2194 020106
020106
2195
2196 020114
020114
020120
2197 020122
020122
020126
020132
020136

.WORD

.WORD
.WORD

000100

002340

50211%

;

CASE 0

;
;

CASE 1
CASE 2

;

CASE 4

;

CASE 3

END4

50213s:
LET CLKENA
MOV

+JUST EXIT TEST NO CLOCK AVAILBLE

50217¢

iKW11-L LINE CLOCK SELECTED

:= #100
€100, CLKENA

: INTERRUPT ENABLE/ CLR MONITOR

i SET PRI7 WHILE CHANGING VECTOR ADDRESS

012700
104441

000340

012746
012746
013746
012746

000300
037566
002336
000003

104437
062706

000010

012700

000000

104441

SETPRI #PRIO7
MOV
#PRIO7,RO
TRAP
C$SPRI
SETVEC CLKVEC, #CLKTCK, #PRI06
MOV
#PRIO06, -(SP)
MOV
#CLKTCK, -(SP)
MOV
CLKVEC, -(SP)
MOV
@3,-(SP)
TRAP
C$SVEC
ADD
#10, 5P
SETPRI #PRIOO
MOV
#PRIO00,RO
TRAP
C$SPRI

CASE 3

000437

013737
062737

002332
000002

002334
002334

012737

000111

002340

50212%:
LET CLKSET
MOV

ADD
LET CLKENA
MOV

50217¢

:SET UP INTERRUPT VECTOR

;KW11-P REAL TIME CLOCK

:= CLKCSR + #2
CLKCSR,CLKSET

#2,CLKSET
:= #111
#111,CLKENA

:SET UP ENABLE BITS

i RUN, RATE = 10KHZ, REPEAT INTR, DOWN,INT ENABLE

012700
104441

000340

012746
012746
013746
012746
104437
062706

000300
037566
002336
000003

012700
104441

000404

000010
000000

SETPRI #PRIO7
MOV
#PRIO7,RO
TRAP
C$SPRI
SETVEC CLKVEC, #CLKTCK, #PRI06
MOV
#PRIO06, -(SP)
MOV
#CLKTCK, -(SP)
MOV
CLKVEC, -(SP)
MOV
#3,-(SP)
TRAP
C$SVEC
ADD
#10,SP
SETPRI #PRIOO

CASE 4
50211%:

MOV
TRAP

#PRIO0O0,RO
C$SPRI

50217¢

: INTERRUPT VECTOR

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 26-2

SEQ 0072

PRINTING SPEED MEASUREMENT

2209 020246
2210 020250
020250
020252
020252
020256
020256
2211 020256
020256
2212 020264
020264
2213 020270
2214 020270
020270
2215 020274
020274
020300

2216
2217
2218
2219
2220 020302
020302
020310
020312
2221 020316
020316
020324
020326
2222 020332
020332
2223 020340
020340
020344
2224 020344
020344
2225 020352
020352
2226 020352
020352
2227 020360
020360
020366
020370
020376
020400
020400
2228 020404
020404
020410
020414
020416
020420
2229 020424
2230 020466
2231 020530
020530

000240
000402

062706

000002

112737

000012

010137

002320

005037

002344

013702

002320

006302

003164

NOP
; THIS IS JUST A DUMMY
ENDSELECT
BR
50217¢
50216¢4:
ADD
#2,SP
50215¢%:
50217s$:
LET OUTBUF :B= #LF
MOVB
#LF ,OUTBUF
LET LUNIT := R1
MOV
R1,LUNIT
11s:
LET ERRFLG := #0
CLR
ERRFLG
LET R2 := LUNIT SHIFT 1
MOV
LUNIT,R2
ASL
R2
:

: DETERMINE WHICH BAND, AND SEND APPROPRIATE PATTERN
3

000001

032762
001402
000137

010000

002516

021214

032762
001402
000137

020344

012737

024754

000137

020352

012737

025370

023426

012737

000205

003160

032762
001004
032762
001402

001000

002516

002000

002516

000137

020534

012746
012746
010600
104417
062706

024071
000001

000004

000137

021210

002000

002516

023426

$BRUMP=1
IF #FLAG96 NOTSETIN STATUSCR2) THEN ; 64 CHAR BAND
BIT
#FLAG96,STATUS(R2)
BEQ
.+6
JMP
502204
IF #FLAGO7 NOTSETIN STATUSCR2) THEN
BIT
#FLAGO7,STATUS(R2)
BEQ
.+6
JMP
50221
LET BNDPAT := #TABA64
MOV
#TABA64,BNDPAT
ELSE
JMP
502224
50221%:
LET BNDPAT := #TB0764
MOV
#TB0764,BNDPAT
ENDIF
50222%:
LET WORK := #133,
MOV
#133. ,WORK
IF @FLAG26 NOTSETIN STATUS(R2) AND #FLAGO7 NOTSETIN STATUS(R2) THEN
BIT
#FLAG26,STATUS(R2)
BNE
50223
BIT
#FLAGO7,STATUS(R2)
BEQ
.+6
50223%:
JMP
50224
PRINTF #LPM64
;:SEND SPEED MESSAGE TO CONSOLE
MOV
#LPM64, -(SP)
MOV
#1,-(SP)
MOV
SP,RO
TRAP
CS$PNTF
ADD
#4,5P
OUTPUI #LPM64+4,#42.,,LUNIT
:SEND SPEED MESSAGE TO PRINTER
OUTPUI #0UTBUF,#1, ,LUNIT
;LINEFEED
ELSE
JMP
502254

—

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y0S.02

Wednesday 10-Apr-85 09:07

Page 26-3

SEQ 0073

PRINTING SPEED MEASUREMENT

020534
2232 020534
020534

020542
020544
020552
020554
020554
2233 020560
020560
020564
020570
020572
020574
2234 020600
2235 020642
2236 020704
020704
020710
2237 020710
020710
020716
020720
020726
020730
020730

2238 020734
020734
020740
020744
020746
020750
2239 020754

502245
:
032762
001404
032762
001402

001000

002516

002000

002516

000137

020710

012746
012746
010600
104417
062706

024233
000001

502264
:

000004

BIT
BEQ
BIT
BEQ

IF 9FLAG26 SETIN STATUS(R2) AND #FLAGO7 NOTSETIN STATUSCR2) THEN
#FLAG26,STATUS(R2)
502264
#FLAGO7,STATUS(R2)
.+6

JMP

50227

MOV

PRINTF #L26M64
#L26M64, -(SP)

MOV
TRAP
ADD

SP,RO
CSPNTF
@4,5SP
-

000137
032762
001004
032762
001002

021210

50227%:

001000

002516

002000

002516

000137

021064

012746
012746
010600
104417
062706

024375
000001

50231%:

000004

OUTPUI #L26M64+4,#4
,LUNIT
2.,

OUTPUI #OUT
,#1,
BUF
,LUNIT

JMP

50230¢

BIT
BNE
BIT
BNE

IF #FLAG26 NOTSETIN STATUS(R2) AND #FLAGO7 SETIN STATUSCR2) THEN
#FLAG26,STATUS(R2)
502314
®FLAGO7,STATUS(R2)
.+6

JMP

50232$

MOV
MOV
MOV
TRAP
ADD

#LO7M64, -(SP)
#1,-(SP)
SP,RO
CS$PNTF
#4,SP

2240 021016

2241 021060
021060
021064
2242 021064
021064
021070
021074
021076
021100
2243 021104
2244 021146
2245 021210
021210
2246 021210
021210
2247 021210
021210
2248 021:10
021210
021214
2249 021214
021214
021222

000137

021210
50232%:

012746
012746
010600
104417
062706

024537
000001

50233¢

MOV
MOV

#L27M64, -(SP)
#1,-(SP)

MOV
TRAP
ADD

000004

ENDIF

022106

50220%:

032762
001402

002000

002516

PRINTF #L27M64

OUTPUI #L27M64+4,442., ,LUNIT
OUTPUI #0UTBUF,#1, ,LUNIT

ENDIF

50230%:

000137

OUTPUI #LO7M64+4,#42., ,LUNIT
OUTPUI #0UT
,#1,
BUF
,LUNIT

SP,RO
CSPNTF
#4,5P

50233%:

50225%:
ELSE

ELSE

JMP

PRINTF #LO7M64

JMP

50234

IF &FLAGO7 NOTSETIN STATUSCR2) THEN

gé;

0F2A607.STATUS(R2)
.

CZLPLFO LP25, LP26, LP27, LPOV

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 26-4

SEQ 0074

PRINTING SPEED MEASUREME
T

021224
000137
2250 021230
021230
012737
2251 021236
021236
000137
021242
2252 021242
021242
012737
2253 021250
021250
2254 021250
021250
012737
2255 021256
021256
032762
021264
001004
021266
032762
021274
001402
021276
021276
000137
2256 021302
021302
012746
021306
012746
021312
010600
021314
104417
021316
062706
2257 021322
2258 021364
2259 021426
021426
000137
021432
2260 021432
021432
032762
021440
001404
021442
032762
021450
001402
021452
021452 - 000137
2261 021456
021456
012746
021462
012746
021466
010600
104417
021470
021472
062706
2262 021476
2263 021540
2264 021602
021602
000137
021606

2265 021606
021606
021614
021616
021624
021626
021626
2266 021632
021632

021242
025162

JMP

023426

021250
025576

50235¢:

023426
50236%:

000205

003160

001000

002516

002000

002516
50237¢:

021432

024152
0000C1

MOV
ELSE
JMP
MOV
ENDTF

000004

022106

ELSE
JMP

001000

002516

002000

002516
:
50242

021606
024314
000001

BIT
BEQ
BIT
BEQ

022106

50243

032762
001004
032762
001002

001000

002516

002000

002516

000137

021762

012746

024456

50245%:

LET BNDPAT := #TB0796
#TB0796,BNDPAT

502404
PRINTF #LPM96
#LPM96, -(SP)
#1,-(SP)
SP,RO
C$PNTF
#4,5P
OUTPUI #LPM96+4,#42.,,LUNIT
OUTPUI #0UTBUF,#1, ,LUNIT
502414
IF #FLAG26 SETIN STATUS(R2) AND #FLAGO7 NOTSETIN STATUS(R2) THEN
#FLAG26,STATUS(R2)
50242%
#FLAGO7,STATUS(R2)
.+6
50243

JMP

PRINTF #L26M96
#L26M96, -(SP)
#1,-(SP)
SP,RO
CS$PNTF
#4 ,5P
OUTPUI #L26M96+4,#42., ,LUNIT
OUTPUI #0UTBUF,#1, ,LUNIT
ELSE
502444

BIT
BNE
BIT
BNE

IF #FLAG26 NOTSETIN STATUS(R2) AND #FLAGO7 SETIN STATUSC(R2) THEN
#FLAG26,STATUS(R2)
50245
#FLAGO7,STATUS(R2)
.+6

JMP

502464

MOV

#LO7M96, -(SP)

MOV
MOV
MOV
TRAP
ADD

000004

502364

LET WORK := #133.
MOV
#133. ,WO0RK
IF #FLAG26 NOTSETIN STATUS(R2) AND #FLAGO7 NOTSETIN STATUS(R2) THEN
BIT
#FLAG26,STATUS(R2)
BNE
502374
BIT
#FLAGO7,STATUS(R2)
BEQ
.+6

MOV
MOV
MOV
TRAP
ADD

50240
:

502354
LET BNDPAT := #TABA96
#TABA96,BNDPAT

PRINTF #LO7M96

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 26-5

SEQ 0075

PRINTING SPEED MEASUREMENT

021636
021642
021644
021646
2267 021652
2268 021714
2269 021756
021756
021762
2270 021762
021762
021766
021772
021774
021776
2271 022002
2272 022044
2273 022106
022106
2274 022106
022106
2275 022106
022106
2276 022106
022106
2277 022106
022106
2278
2279 022112
022112
2280 022116
022116
2281 022124
2282 022130
022130
2283 022134
022134
2284 022136
2285 022142
022142
2286
2287
2288 022142
022142
022150
2289 022152
022152
022156
2290 022160
022160
022164
2291 022166
022166
2292 022174
022174
2293 022174
022174

012746
010600
104417
062706

000137

000001

MOV
MOV
TRAP
ADD

000004

022106

50246
:
012746
012746
010600
104417
062706

024620
000001

000004

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

50247

MOV
MOV
MOV
TRAP
ADD

#L27M96, -(SP)
#1,-(SP)
SP,RO
CS$PNTF
@4 ,SP

ENDIF

50247s:

002362

005037

002302

012737
004737

000074
022330

005337

002320

002402
000137

020270

023727
001011

002326

012700
104441

000340

013700
104436

002336

012777

037642

ENDIF
502415%:
ENDIF
502345
:
LET SLPCSR(R2) := 40
CLR
8LPCSR(R2)
$BRJUMP=-1
LET LINCNT := 40
CLR
LINCNT
LET TICK := 460.

MOV
JSR PC,REPLUP

END4 :

160136

50251%:

023727

IF CLKTYP EQ #3 THEN

CMP
BNE

CLKTYP,#3
502514
SETPRI #PRIO7
MOV
#PRIO7,RO
TRAP
C$SPRI
CLRVEC CLKVEC
MOV
CLKVEC,RO
TRAP

000000

002326

#60. ,TICK

LET LUNIT := LUNIT - &1
DEC
LUNIT
IFCOND GE THEN
BLT
50250¢
JMP 11
ENDIF
502504
:

000003

000002

PRINTF #L27M96

OUTPUI #L27M96+4,442., ,LUNIT
OUTPUI #0UT
,#1,
BUF
,LUNIT

ENDIF

502445

005072
177777

ELSE

JMP

OUTPUI #LO7M96+4,#42., ,LUNIT
OUTPUI #0UT
,#1,
BUF
,LUNIT

C$CVEC

LET 8CLKCSR := #00
MOV
#00,8CLKCSR
ENDIF
IF CLKTYP EQ #2 THEN
CMP
CLKTYP,#2

;DISABLE INTERRUPTS IN CASE OF MANUAL TEST CASE
;CLEAR LINE COUNTER

:SET UP INITIAL CLOCK VALUE
;D0 THE OUTPUT

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 26-6

SEQ 0076

PRINTING SPEED MEASUREMENT
022202
2294 022204
022204
022210
2295 022212
022212
022216
022222
022226
022232
022234
2296 022240
022240
2297 022246
022246
2298 022246
022246
022252
2299 022254
022254
2300 022262
2301 022324
022324
022326
2302
2303

2305
2306
2307 022330
2308 022330
022330
022336
2309 022340
022340
022344
022350
022352
022354
2310 022360
022360
2311 022364
022364
022366
022370
022372
022374
022376
022400

2312 022400
022400
022404

022410
022414
022416
022420
2313 022424

001021

BNE

012700
104441

000340

012746
012746
013746
012746
104437
062706

000300
010070
002336
000003
000010

012777

000000

502524
SETPRI #PRIO7
MOV
#PRIO7,RO
TRAP
C$SPRI
SETVEC CLKVEC, #IGNORE, #PRI06
MOV
#PRIO06, -(SP)
MOV
@IGNORE, -(SP)
MOV
CLKVEC, -(5P)
MOV
#3,-(SP)

TRAP
ADD

160064
50252%:

012700
104441

000000

112737

000014

003164

104432
003456

C$SVEC
#10,SP
LET 8CLKCSR

MOV
ENDIF

:= 400
€00, 8CLKCSR

SETPRI #PRIOO
MOV
#PRIOO,RO
TRAP
C$SPRI
LET OUTBUF :B= #14
MOVB
@14,0UTBUF
OUTPUT #OUTBUF ,#1
EXIT TST
TRAP
CSEXIT
, -WORD
L10013-.
i
i

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

REPLUP:

023727
001124

002326

012746
012746
010600
104417
062706

023534
000001

005037

002300

000004

104443
000404
002300
000130
007673
100000
013746
012746
012746
010600
104417
062706

000004

10000¢:
002320
023574
000002
000006

IF CLKTYP EQ #4 THEN
CMP
CLKTYP,#4
BNE
50253$
PRINTF &OFFLIN
;TELL OPERATOR TO PLACE PRINTERS OFFLINE
MOV
#0FFLIN, -(SP)
MOV
@1,-(SP)
MOV
SP,RO
CSPNTF
TRAP
ADD
4 ,5P
LET FLAG := #0
CLR
FLAG
GMANIL READY,FLAG,100000,YES
TRAP
C$GMAN
BR
10000¢
.WORD
FLAG
.WORD
T$CODE
.WORD
READY
.WORD
100000
MOV
MOV
MOV
MOV
TRAP
ADD

PRINTF @ONLIN1,LUNIT
LUNIT, -(SP)
O®ONLIN1, -(SP)
@2,-(SP)
SP,RO
CSPNTF
6,5P

PRINTF @ONLIN2,LUNIT

;PUT LUNIT TO TEST ON LINE

:END OF TEST.

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 26-7
SEQ 0077

PRINTING SPEED MEASUREMENT

022424
022430
022434
022440
022442
022444
2314 022450
022450
022454
022460
022464
022466
022470
2315 022474
022474
022474
2316
2317
2318

2319

2320
2321
2322

2323

2324

2325
2326

2327
2328
2329
2330

2331

013746
012746
012746
010600
104417
062706

013746
012746
012746
010600
104417
062706
032772
001402
000240

MOV
MOV
MOV
MOV
TRAP
ADD

002320
023675
000002
000006

000006

100000

——

002362

000772

005037

MOV
MOV
MOV
MOV
TRAP
ADD

002320
023773
000002

BIT

BEQ

502554
:

002302

——

002362

CLR

LUNIT, -(SP)
QONLIN2, -(SP)
#2,-(SP)
SP,RO
CS$PNTF
96 SP

PRINTF QONLIN3,LUNIT

LUNIT, -(SP)
QONLINS, -(SP)
#2,-(SP)
SP,.RO
CSPNTF
#6,SP

WHILE #BIT1S SETIN SLPCSR(R2) DO

502554

NOP
ENDDO

502544

LET LINCNT

LINCNT

:= &0

WHILE #BIT1S NOTSETIN SLPCSR(R2) DO

100000

013705

023426

MOV

BNDPAT ,RS

013703

003160

MOV

WORK ,R3

TST

BIT

502604:

005703
003417

...

032772
001007

000200

002362

032772
001402
000137

100000

002362

BLE

50257

LET RS

:= BNDPAT

LET R3

:= WORK

WHILE R3 GT #0 DO

502614

WHILE #BIT7 NOTSETIN SLPCSR(R2) DO

BIT

IF @BIT1S SETIN SLPCSR(R2) THEN
#B8IT15,8LPCSR(R2)

502644

JMP 993

MOVB

(RS)+,8LPBUF(R2)

005303

DEC

000757

502604

104422

502614:

TRAP

WAIT FOR READY

: EXIT LOOP IF OFF -LINE AGAIN

ENDIF

502624

002456

;

502634

112572

; PRINT R3 CHARACTERS

#BIT7,8LPCSR(R2)

BEQ

50263

REPEAT UNTIL LP GOES OFF -LINE

#B8IT1S,8LPCSR(R2)

5026454
:

000765

;

BIT

BNE

022722

WAIT FOR LP SET ON-LINE

#BIT15,8LPCSR(R2)

032772
001031

BNE

;

LET SLPBUF(R2)
LET R3

:B= (RS).

:= R3 - #1

ENDDO

BREAK
C$BRK

:+ ALLOW CTL-C ABORT

: PUT CHAR INTO LP BUFFER

: DECRIMENT CHAR COUNTER

CZLPLFO LP25, LP26, LP27, LPO7T

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 26-8
SEQ 0078

PRINTING SPEED MEASUREMENT

2332 022600
022600
2333 022604
022604
022606
2334 022606
022606
022610
2335 022610
2336 022620

2337 022626
2338 022626

2339 022634
2340 022640
2341 022644

005237

002302

000743
50257%:

000445

2343 022660
2344 022664

2345 022670

ELSE

023727
001003

002326

000003

CMP
BNE

012777

003202

157506

MOV
502664 :

002340

005037

037640

005037

002302
037640

2342 022654

50253%:

013777

157476

MOV

002272

50267%:

CcMP
BGE
MOV

013703

003160

MOV

50271$:

005703
003412
002362

S0273%:

000772

502744

112572

002456

005303

005237

000751

TST
BLE

BIT
BNE

LET SCLKSET := #1666.
€1666. ,8CLKSET
ENDIF

+ 1760 SEC.

LET 8CLKCSR := CLKENA

;ENABLE THE CLOCK TO DO ITS THING

CLKENA
, 8CLKCSR

S0272%:
002302

50270 :
502654 :

99s:

+ REPEAT UNTIL TIME EXHAUSTED

TIME ,PERIOD

502704

LET RS := BNDPAT

BNDPAT ,RS
LET R3 := WORK
WORK ,R3

WHILE R3 GT #0 DO

i SEND R3 CHARACTERS

R3
502723
WHILE #8IT7 NOTSETIN SLPCSR(R2) DO

®BIT7,8LPCSR(R2)
50274
NOP
ENDDO
502738

MOVB

LET SLPBUF(R2) :B= (RS).
(RS)+,8LPBUF(R2)

LET R3 := R3 - 01
R3
ENDDO
50271

INC

LET LINCNT := LINCNT « @1
LINCNT

502673

DEC

000764

IF CLKTYP EQ 3 THEN

LET TIME := @0
TIME LET LINCNT := &0
CLR
LINCNT
WHILE TIME LT PERIOD DO

023426

000200

5C265¢

CLR

013705

032772
001002
000240

LET LINCNT := LINCNT + @1
LINCNT
ENDDO
502564

INC

ENDI

i WAIT FOR READY

-3 PUT DATA INTO BUFFER
+ DECRIMENT CHAR COUNTER

CILPLFO LP2S, LP26, LP27, LPO7

MACRO Y05.02

Wednesday

10-Apr-85 09:07

Page 26-9

SEQ 0079

PRINTING SPEED MEASUREMENT

2356
2357
2358
2359 Q22722
022722
022730
2360 022732
022732
2361 022736
022736
022742
022746
022750
022752

2362 022756
022756
022760

022762
022764
0c2766
0c277C

022772

2363 022772
022772
2364 022772
2365
2366
2367
2368 023000
023000
023004
023010
023014
023020
023022
023024
2369 023030
023030
023034
2370 023040
2371 023044
023044
023044
023052
2372 023054
023054
023056
2373 023056
2374 023120
2375 023124
2376 023130
2377 0231 2
2378
2379 023176
023176
023204
023206

+IF MANUAL PRINT SPEED TESTS MAVE BEEN PERFORMED INSURE PRINTERS ARE
:BACK ON LINE WHEN DONE
:

023727
001020

002326

005037

002300

012746
012746
010600
104417
062706

024701
000001

000004

IF CLKTYP EQ o4 THEN
cMP
CLKTYP,
%4
BNE
50275%
LET FLAG := @0
CLR
FLAG

PRINTF @RESTOR
MOV
ORESTOR, -(SP)
MOV
@1,-(SP)
MOV
SP,RO
TRAP
CSPNTF
ADD
o4,5P
GMANIL READY,FLAG,100000,YES
TRAP
C$GMAN

000004

104443

000404

002300
000130
007673
100000

012777

000000

;CLEAR <CR> FLAG

157332

10001s:
ENDIF
S0275s:

BR
.WORD
.WORD
.WORD
.WORD

10001
FLAG
Ts$CODE
READY
100000

MOV

#00,8CLKCSR

;WAIT FOR OPERATOR

: REPORT TOTAL NUMBER OF LINES PRINTED
013746
013746
012746
012746
010600
104414
062706

000010

013746
012746
004737

002302
003165
004562

PRINTB
MOV
MOV
MOV
MOV

002320
002302
023467
000003

MOV

TRAP
ADD
PUSH
MOV
MOV
JSR

sarte

032772
001001

000200

002362

000773
50277s:

004737
004737

005606
005606

004737

005606

SLINPER, LINCNT ,LUNIT
LUNIT, -(SP)
LINCNT,-(SP)
#LINPER, -(SP)
#3,-(SP)
SP,RO
CSPNTB
#10,5P
LINCNT ,20UTBUF «1
LINCNT,-(SP)
#0UTBU
+1, -(SP)
F
PC.BIN2DA

CONVERT LINE COUNT TO ASCII

WHILE #BIT7 NOTSETIN SLPCSR(R2) DO

BIT
BNE
ENDDO
BR

;WAIT FOR READY

#BIT7,8LPCSR(R2)
50277

502764

OUTPUI
&OUTBUF,#6,,.LUNIT
JSR PC,QUIET
JSR PC,QUIET
OUTPUI
#SPED1,#19.,,LUNIT
JSR PC,QUIET

DISPLAY LINE COUNT ON LP

;

"LINES PRINTED"”

; IF A CLOCK WAS USED DISPLAY THE TIME USED ALSO

023727
001404
023727

002326
002326

000002
000003

IF CLKTYP EQ #2 OR CLKTYP EQ #3 THEN

CcMP

BEQ
cMP

CLKTYP,
&2
503004
CLKTYP,
&3

CILPLFO LP2S, LP26, LP27, LPO7

MACRO Y05.02

Wednesday

10-Apr-85 09:07

Page 26-10

SEQ 0080

PRINTING SPEED MEASUREMENT

023214
023216
2380 023216
2381 023260

2382 023264
023264
2383
2384
2385
2386
2387
2388

023270
023274
023300
023342
023346
023410
023412

001077

S0300s:

004737

005606

013746
012746
004737

002272
003165
004562

004737

005606

004737

005606

2418 024620
2419 024701
2420
2421
2422

2423
2424
2425
2426 024754
2427 02477
2425 025002
2429 025015
2430 025030

OUTPUI @#SPED2,o4,
JSR PC,QUIET

PUSH

MOV
MOV

02341«

2389 023414
2390
2391
2392
2393 023416
023416
2394 023424
2395
239¢
2397 023426
2398
2399
2400
2401
2402 023430
2403 023453
2404 023457
2405 023467
2406 023534
2407 023574
2408 023675
2409 023773
2410 024024
2411 024071
2412 024152
2413 024233
2414 024314
2415 024375
2416 024456
2417 024537

50301

BNE

50301s:

000207

,LUNIT

PERIOD,&40UTBUF
+1

(SP)

;

: CONVERT TIME TO ASCII

#0UTBUF «
JSR PC,BIN2D A
OUTPUI
QOUTBUF .3, @3, ,LUNIT
JSR PC,QUIET
#SPED3, #8.
OUTPUI
JSR PC,QUIET
ENDIF

RTS PC

INu

; DISPLAY THE TIME IN SECONDS
“SECONDS"

;GO BACK AND DO IT AGAIN

;EXPECTED ERROR HANDLER
012737
000207

000001

002344

LPERR2: LET ERRFLG := #1
MOV

RTS
3

BNDPAT: .WORD
.NLIST BEX

000000

1 ,ERRFLG
PC

;SET ERROR FOUND
;AND EXIT

: CONTAINS ADDRESS OF PRINT PATTERN

sASSOCIATED MESSAGES
040
040
040
045
045
045
045
045
120
045
045
045
045
045
045
045
045
045

114
111
123
116
116
116
116
116
122
116
116
116
116
116
116
116
116
116

111
116
105
045
045
045
045
045
111
045
045
045
045
045
045
045
045
045

SPED1:

SPED2:
SPED3:
LINPER:
OFFLIN:
ONLIN1:
ONLIN2:
ONLIN3:

PRTSPD:

/ LINES WERE PRINTED/
.ASCII
/ IN /
.ASCII
.ASCII
/ SECONDS/
.ASCIZ
/%N%D4&%A LINES PRINTED ON LUNIT %D2#N/
.ASCIZ /%N#AINSURE PRINTER(S) OFF LINE./
.ASCIZ/%N%APLACE LUNIT %D2%A ON LINE TO INITIATE TIME PERIOD FOR MANUAL/
/%NSAPRINTING SPEED MEASUREMENT AND BACK OFF LINE TO TERMINATE/
.ASCIZ
.ASCIZ /#N$ATHE TIME INTERVAL.%N/

.ASCIZ

/PRINTING SPEED MEASUREMENT TEST 4/<12><12><12>

/%N%A64 CHARACTER BAND SHOULD PRINT AT 285 LPM. %N/
LPM64:
.ASCIZ
/%N%A96 CHARACTER BAND SHOULD PRINT AT 204 LPM. %N/
LPM96:
.ASCIZ
/%N%A64 CHARACTER BAND SHOULD PRINT AT 600 LPM.%N/
L26M64: .ASCIZ
/%N%A96 CHARACTER BAND SHOULD PRINT AT 450 LPM. %N/
L26M96: .ASCIZ
/%N%A64 CHARACTER BAND SHOULD PRINT AT 1220 LPMsN/
LO7M64: .ASCIZ
/%N%A96 CHARACTER BAND SHOULD PRINT AT 888 LPM.%N/
LO7M96: .ASCIZ
/%N%A64 CHARACTER BAND SHOULD PRINT AT 1200 LPMs%N/
L27M64: .ASCIZ
/%N%A96 CHARACTER BAND SHOULD PRINT AT 800 LPM.%N/
L2796: .ASCIZ
RESTOR: .ASCIZ /%N%ACLEAR PRINTER(S) AND PLACE ON LINE. sN/
.LIST BEX
.EVEN

;64 CHARACTER BAND
;

105

042
041
076

135

061
062
105
042
054

104
134
061
073

105

PATTERN

285 LPM / 600 LPM.

.SBTTL
PRINT SPEED TEST PATTERNS
.NLIST BEX
TABA64: .BYTE
105,061,104,075,064,041,103,136,102,060,163
.BYTE
042,062,134,054,124,101,133,101,133,043,135
.BYTE
041,105,061,100,075,077,041,056,136,074,060
.BYTE
076,042,073,042,073,134,055,124,044,133,057
.BYTE
135,054,105,072,100,050,077,052,056,051,056

CZLPLFO LP2S, LP26, LP27, LPO7

MACRO Y05.02

Wednesday

10-Apr-85 09:07

Page 26-11

Q2 0081

PRINT SPEED TEST PATTERNS

2431
2432
2433
2434
2435
2436
2437
2438
2439
2440

025043

025056

025071
025104
025117
025132
025145

051
057
130
137
120
125
111

074
070
051

123
130
062
120

046

127
137
117
065
110

2442 025162
025175
025210
025223

025236
025251
025264
025277
025312
2451 025325
2452 025340
2453 025353
2454
2455

2456
!
2457
2458 025370
2459 025403
2460 025416
2461 025431
2462 025444
2463 025457
2464 025472
2465 025505
2466 025520
2467 025533
2468 025546
2469 025561
2470
2471
2472
2473
2474 025576
2475 025611
2476 025624
2477 025637
2478 025652
2479 025665
2480 025700
2481 025713
2482 025726
2483 025741
2484 025754
2435 025767

2486
2437

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

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

130,051,127,046,066,071,12¢,045,125,053, 065
137,123,137,123,070,122,132,121,131, 064.067

120,130,117,124,063,066,116,126,115,126,115
125,062,065,114,123,113,122,061,121,112,064
111,120,110,117,060,117,060,063,107,116,106,012,015

:96 CHARACTER BAND TABLE

2441

2443
2444
2445
2446
2447
2448
2449
2450

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

061
075
176
077
041
050
122
066
046
121

127
111

055
140
134
041
053
135
067
057
124

132
115
122

144
174
173
074
054
051
064
130

;

TABA96:

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

046

120
126
110

204 LPM., / 450 LPM,

MINIMUM PRINT SPEED PATTERN 96 CHARACTER BAND
.BYTE
061,055,144,047,143,043,142,041,060,052, 100
.BYTE
075,140,174,176,041,056,054, 056,054, 136,042
.BYTE
176,134,173,133,175,135,055,164,047,100,043
.BYTE
077,041,074,041,074,052,062,075,076,174,073
.BYTE
041,053,054,071,042,057,134,072,133,050,133

050,135,051,164,070,100,046, 124,045,123, 044
122,067,064,137,073,132,073,132,053,131,071
066,057,130,072,127,050, 120,151, 125,070,065
046,124,046,124,045,123,044,122,067,064,137
121,132,120,131,117,066,063,130,116,130,116
127,115,126,114,125,113,065,062,124,112,123
111,122,110,064,061,064,061,121,107,102,106,012,015

i 64 CHARACTER BAND PATTERN FOR LPO7 AND LP27, 1220 LPM / 1200 LPM
137
124
111

076
063
050

134
121

073
060
045

13
110
075
062
047

133
120
105

072
057
044

135
122
107
074
061

TB0O764:

046

132
117
104

071

043

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

137,136,135,134,133,132,131,130,127,126,125
124,123,122,121,120,117,116,115,114,113,112
111,110,107,106,105,104,103,102,101,100,077
076,075,074,073,072,071,070,067, 066, 065, 064
063,062,061,060,057,056,055,054,053,052,051
050,047,046,045,044,043,042,041,137,136,135
134,133,132,131,130,127,126,125,124,123,122
121,120,117,116,115,114,113,112,111,110,107
106,105,104,103,102,101,100,077,076,075,074
073,072,071,070,067,066,065,064,063,062,061
060,057,056,055,054,053,052,051,050,047,046
045,044,043,042,041,137,136,135,134,132,131,012,015

i 96 CHARACTER BAND PATTERN FOR LPO7 AND LP27,
177
164
151
123
110
075
062
047
173
160
145

176
163
150
135
122
107
074
061
046
172

073
060
045
171

144

143

157

175
162
147
134
121

T80796:

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

.BYTE
.BYTE
.BYTE
.BYTE

.EVEN
.LIST BEX

888 LPM / 800 LPM

177,176,175,174,173,172,171,170,167, 166, 165

164,163,162,161,160,157,156,155,154,153,152

151,150,147,146,145,144,143,142,141,140,137
136,135,134,133,132,131,130,127,126,125,124
123,122,121,120,117,116,115,114,113,112,111
110,107,106,105,104,103,102,101,100,077,076

075,074,073,072,071,070,067,066, 065,064,063
062,061,060,057,056,055,054,053,052,051,050
047,046,045,044,043,042,041,177,176,175,174
173,172,171,170,167,166,165,164,163,162, 161
160,157,156,155,154,153,152,151,150,147,146
145,144,143,142,141,140,137,136,135,134,133,012,015

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 26-12

’

~ |

PRINT SPEED TEST PATTERNS

2488 026004

026004

026004
2489 026006

SEQ

ENDTST

104401

L10013:
ENDMOD

TRAP

CSETST

0082

CZLPLFO LP25, LP26, LP27, LPO7

MACRO 705.02

Wednesday 10-Apr-85 09:07

Page 27
SEQ 0083

DATA TRANSFER PATHS

2491
2492
2493 026006
2494
2495

.SBTTL DATA TRANSFER PATHS

BGNMOD
HA A

:THIS TEST CHECKS THE DATA TRANSFER
:PATHS FROM THE PROCESSOR INTERFACE
:TO_THE PRINTER OUTPUT. AN ALTERNATING

2496
2497
2498
2499

2500
2501
2502
2503
2504
2505
2506
2507
2508 026006
026006
2509
2510 026006
2511
2512 026050
026050
026056
026060

026060
026064
026064
026072
2513 026074
026074
026102
2514 026104
026104
2515 026112
026112
026114
2516 026114
026114
2517 026122
026122
2518 026122
026122
2519 025126
026126
026134
026136
026136
026142
026142
026150
2520 026152
026152
2521 026156
2522 026162
026162

;PATTERN OF ONES AND ZEROES CORRESPONDING

:TO AN ALTERNATING STRING OF “&" AND
:"U” CHARACTERS ARE TRANSMITTED ON THE
;FULL 132 COLUMNS.
AFTER 16 LINES OF
:THIS PATTERN, THE OUTPUT PATTERN IS
:SWITCHED TO AN ALTERNATING PATTERN
i.F "2" AND "@" CHARACTERS FOR ANOTHER
:16 LINES.
‘--

BGNTST
15::

;PRINT TEST IDENTIFICATION

OUTPUT #DATPTH,#29.

;PRINT ALTERNATING STRINGS OF CHARACTERS

012737
000402

000001

005237

026426

023727
003107

026426

023727
001004

026426

000001

112737

000125

026366

112737

000077

026366

012704

003164

012737
000402

000001

005237

002310

023727
003017

002310

113724
105137

026366
026366

026426

000002

000403

142737

000200

002310

000102

INCR PATTERN FROM #1 TO #2 BY 41
MOV
#1 ,PATTERN
BR
50302¢
50303s:
INC
PATTERN
50302%:

CMP

PATTERN,
#2

BGT
50304%
IF PATTERN EQ #1 THEN
CMP
PATTERN,
#1
BNE
S50305¢
LET CHAR :B= #'V
MovB
#' U, CHAR
ELSE
BR
503064
50305¢:
LET CHAR :B= #'?
Move
#' 7,CHAR
ENDIF
503064
:
LET R4 := #OUTBUF
MOV
#0UTBUF
, P4
INCR CCNT FROM #1 T0 #66.
MOV
#1,CONT
BR
50307¢
50310%:
INC
CCNT
50307%:
CMP
CCNT, #66.
BGT
50311
LET (R4)+ :B= CHAR
MOVB
CHAR,(R4)+

COMB CHAR

026366

BY #1

LET CHAR :B= CHAR CLR.BY #200
BICB
#200,CHAR

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 27-1

SEQ 0084

DATA TRANSFER PATHS
2523 026170
026170
2524 026174
2525 026200
026200

2526 026206
026206
026210
2527 026210
026210

2528 026214
026214
2529 026220
026220
026226
026230
026230
026234

026234
026242
2530 026244
2531 026306
026306
026310
2532 026310
026310
026312
2533 026312
026312
2534 026320
2535 026362
026362
026364

2536
2537 026366
2538 026370
2539
2540
2541 026426
2542
2543
2544
2545
2546 026430
025430
026430

2547
2548 026432

113724
105137

026366
026366

142737

000200

026366

000753

50311¢:
112724

000015

112714

000012

012737
000402

000001

005237

002302

023727
003022

002302

50313s:
000020

50312$:

000750

50314s:
ENDINC

000663

112737

000014

003164

000000

101

124

LET (R4)+ :B= #15
#15,(R4)+
MOVB
LET (R4) :B= #12
MOVB
#12,(R4)
INCR LINCNT FROM #1 TO #16. BY #1

MOV
BR

#1 ,LINCNT
50312

INC

LINCNT

cHP
BGT

LINCNT,#16.
50314
OUTPUT #0UTBUF, #134.
ENDINC
BR
50313¢

BR
503045
:
LET OUTBUF

50303
:B= #14

MOvVB

EXIT TST

104432
000044
000000
104

MOovB

OUTPUT

TRAP
CSEXIT
.WORD
L10014-.
.NLIST BEX
CHAR:
.WORD 0
DATPTH: .ASCIZ /DATA TRANSFER PATHS TEST 5/ <12><12><12>

.EVEN
PATTERN:
.EVEN
.LIST BEX

104401

#14,0UTBUF

#OUTBUF,

.WORD 0
.EVEN

ENDTST
L10014:
TRAP

ENDMOD

CSETST

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 28
SEQ 0085

PRINTABLE CHARACTERS

2550
2551 026432
2552
2553
2554
2555
2556
2557
2558
2559 026432

.SBTTL PRINTABLE CHARACTERS
BGNMOD
e

+
:
i
:

iT;ENTST

026432
2560 026432

2561
2562
2563
2564 026474
026474

026502
026504
026504
026510
026510
026516
2565 026520
026520
2566 026524
026524
026532
026534
026534
026540
026540
026546
2567 026550
026550
2568 026554
026554
026556
2569 026556
026556
2570 026562
2571 026624
2572 026630
026630
026632
2573
2574
2575
2576
2577
2578
2579
2580 026632
026632
2581 026636
026636
026644

THIS TEST WILL PRINT A FULL LINE OF EACH PRINTABLE CHARACTER.
BAND TYPE IS CHECKED ON A UNIT BY UNIT BASIS.
UNITS WITH 96 CHAR BAND WILL BE SENT THE CHARACTER CODES :
140(8) THRU 176(8).
6

OUTPUT #PRTCHR, 430.

; PRINT TEST ID

i+ PRINT ALL UPPER CASE CHARACTERS ON ALL UNITS
:

012737
000402

000040

005237

003160

023727
003n45

003160

012704

003164

012737
000402

000001

005237

002306

003160

50316%:
S0315¢:

000137

INCR WORK FROM #40 TO #137 BY #1
MOV
#40, WORK
BR
50315
INC

WORK

CcMP

WORK, #137

:gv

#1,COUNT
50320¢

INC

COUNT

CMP

COUNT, #132.

BGT

023727
003003

002306

113724

003160

503174
LET R4 := #OUTBUF
MOV
#0UTBUF ,R4
INCR COUNT FROM #1 TO #132.

002306

50321%:
50320%:

000204

BGT

000767

50322%:

112724

000012

004737

J05606

BY #1

503224
LET (R4)+ :B= WORK
MOve
WORK,
(R4 )+
ENDINC
BR
503214

LET (R4)+ :B= 4LF
#LF,(R4)+
OUTPUT #OUTBUF ,#133.
JSR PC,QUIET
ENDINC
BR
503164
MOve

000725
S50317s:

NOW DO ALL THE LOWER CASE CHARACTERS ON THOSE UNITS
EQUIPPED WITH 96 CHARACTER BANDS.

+ FIRST DETERMINE IF ANY UNITS HAVE 96 CHAR BANDS
;

005037

003160

013737
005337

002012
003162

LET WORK

003162

:= &0

CLR
WORK
LET WORK1 := LSUNIT - &1
MOV

DEC

COUNTER FOR 96 CHAR UNITS

i GET UNIT COUNT

LSUNIT,WORK1 ~

WORK1

‘

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

We dnesday 10-Apr-85 09:07

Page 28-1

SEQ 0086

PRINTABLE CHARACTERS

2582 026650

026650
026654
026656
026656
026662
026662
026670
2583 026672
026672
026676
2584 026700
026700
026706
2585 026710
026710
2586 026714
026714
2587 026714
026714
026716
2588 026716
026716
026722
2589 026724
026724
2590 026732
2591 026774
026774
026776
2592 027000
027000
2593

2594
2595 027000

027000
027006
027010
027010
027014
027014
027022
2596 027024
027024
2597 027030
027030
027036
027040
027040
027044
027044
027052
2598 027054
027054
2599 027060
027060
027062

005037
000402

002320

005237

002320

023737
003012

002320

013702
006302

002320

032762
001402

010000

005237

003160

003162

002516

000760

005737
001026

003160

112737

000014

003164

104432
000330

INCR LUN IT FROM €0 TO WORK1 BY #1
CLR
LUNIT
BR
503234
503245:
INC
LUNIT
50323%:
CMP
LUNIT, WORK1
BGT
50325¢
LET R2 := LUNIT SHIFT 1
MOV
LUNIT,R2
ASL
R2
IF 4FLAG96 SETIN STATUS(R2) THEN
; IS THIS UNIT 96 CHAR ?
BIT
#FLAG96,STATUS(R2)
BEQ
503264
LET WORK := WORK + #1
i YES ADD 1 TO COUNT
INC
WORK
ENDIF
503264
:
ENDINC
BR
503244
50325%:
IF WORK EQ #0 THEN
i ANY 96 CHAR UNITS ?
TST
WORK
BNE
50327¢
LET OUTBUF :B= #14
MOvB
#14,0UTBUF
OUTPUT #OUTBUF ,#1

ENDIF
50327%:

EXIT TST
i
TRAP
CSEXIT
.WORD
L10015-.

ALL UNITS 64 CHAR...EXIT

: SETUP FOR LOWER CASE CHARACTERS DISPLAY

012737
000402

005237

000140

003160

012704

003164

012737
000402

000001

005237

002306

023727

002306

113724

003160

003003

50331%:

003160

023727
003073

INCR WORK FROM #140 TO #176 BY #1
MOV
#140, WORK

003160

000176

50330¢:

50330¢

INC

WORK

CcMP

WORK, #176

BGT

002306

503345
000204

50333s$:

503324
LET R4 := SOUTBUF
MOV
#0UTBUF ,R4
INCR COUNT FROM #1 TO #132.
MOV
#1,COUNT
BR
50333¢

INC

COUNT

CMP
BGT

COUNT, #132.
50335¢
LET (R4)+ :B= WORK

MOove

000767
50335%:

WORK, (R4 )+

ENDINC
50334

BY #1

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Pege 28-2

SEQ 0087

PRINTABLE CHARACTERS

2600 027062

027062
2601 027066
027066
027074
2602 027100
027100
027104

027106
027106
027112
027112
027120
2603 027122
027122
027126

2604 027130
027130
027136

2605 027140
2606 027202
027202
2607 027202
027202
027204
2608 027204

2609 027210

027210
027212
2610 027212
027212
2611 027220
2612 027262
027262
027264
2613
2614 027266
2615
2616
2617 027326
027326
027326
2618
2619 027330
2620

112724

000012

013737
005337

002012
003162

005037
000402

002320

005237

002320

023737
003031

002320

013702
006302

002320

032762
001421

0©10000

LET (R4)+ :B= 4LF
OLF,(R4)+
LET WORK1 := LSUNIT - #1
MOV
LSUNIT,WORK1
DEC
WORK1
INCR LUNIT FROM #0 TO WORK1 BY #1
CLR
LUNIT
BR
503364

Move

003162

50337s:
003162

50336¢$:

INC

LUNIT

CcMP

LUNIT, WORK1

BGT

MOV
ASL

002516

BIT
BEQ
503415

000741

004737

50340¢:

005606

000677
112737

000014

003164

104401

EN_INC
50337s

JSR PC,QUIET
ENDINC
BR
50331

122

1i1

i WAIT FOR ALL DONE

50332%:
LET OUTBUF :B= #14
MOve
#14,0UTBUF
OUTPUT #0UTBUF,#1
; EXECUTE TOF

EXIT TST

104432
000042

120

50340%
LET R2 := LUNIT SHIFT 1
LUNIT,R2
R2
IF #FLAG96 SETIN STATUS(R2) THEN
#FLAG96,STATUS(R2)
50341
OQUTPUI #0UTBUF,#133.,,LUNIT
ENDIF

TRAP
CSEXIT
.WORD
L10015-.
.NLIST BEX
PRTCHR: .esgfiz /PRINTABLE CHARACTERS TEST 6/ <12>¢12><12>
.EV

ENDTST
L1001S:

TRAP
.LIST BEX
ENDMOD

CSETST

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 29
SEQ 0088

NON-PRINTABLE CHARACTERS
2622
2623

2624 027330
2625
2626
2627
2628
2629
2630
2631
2632
2633
2634 027330
027330
2635
2636
2637 027330
2638 027372
027372
012704
2639 027376
027376
012737
2640
2641
2642
2643 027404
027404
005037
027410
000402
027412
027412
005237
027416
027416
023737
027424
003061
2644 027426
027426
012703
2645
2646
2647
2648 027432
027432
012737
027440
000402
027442
027442
005237
027446
027446
023727
027454
003002
2649 027456
027456
112423
2650 027460
027460
000770
027462
2651
2652
2653
2654
2655 027462
027462
012737
027470
000402

.SBTTL

NON-PRINTABLE CHARACTERS

BGNMOD
e

:THIS TEST CHECKS FOR DETECTION OF ALL NON-PRINTABLE CHARACTERS.
;EACH CHARACTER WILL APPEAR ON THE PRINTER OUTPUT IN THE FORM OF ITS OCTAL
;CODE ACCOMPANIED WITH ITS MNEMONIC.
:123 OF THE TESTED CODE ARE THEN SENT.
;ALSO,ON PRINTERS WITH 64 CHARACTER BANDS,IT CHECKS TO
sMAKE SURE THAT CODES 140 THRU 177 ARE CONVERTED TO CODES 100 THRU 137.

8--

?gNTST

s INDICATE TEST CURRENTLY BEING DONE
OUTPUT #NONCHR,#71.
LET R4 := 4NONBUF
MOV
#NONBUF
, R4
LET WORK1 := #27.
MOV
@27. ,WORK1

030451
000033

003162
:

; DO ONE LINE FOR EACH TABLE ENTRY
:

002302

50343s:

002302
002302

50342%:

003162

INCR LINCNT FROM #0 TO WORK1 BY &1
CLR
LINCNT
BR
50342¢
INC

LINCNT

CcMP

LINCNT,WORK1

BGT

50344
LET R3 := 4OUTBUF
MOV
#0UTBUF ,R3

003164
;

i MOVE CODE AND MNEMONIC TO PRINT BUFFER
;

000001

003160

503464
:

003160

50345s:

000010

MOV
BR

INC

WORK

CcMP

WORK
, #8.

BGT

50347s:
H

50347%
LET (R3)+ :B= (R4).
Move
(R4)+,(R3)+
ENDINC
BR
503464

PUT 120 BYTES OF CODE INTO PRINT BUFFER

000001

003160

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

MOV
BR

INCR WORK FROM &1 TO #123. BY #1
#1,WO0RK
50350¢

CZLPLFO LP2S, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 29-1

SEQ 0089

NON-PRINTABLE CHARACTERS

027472
027472
027476
027476
027504
2656 027506
027506
2657 027510
027510
027512
2658
2659
2660
2661
2662 027512
027512
2663 027516
027516
2664
2665
2666
2667 027522
2668 027564
027564
2669 027566
027566
027570
2670
2671
2672
2673
2674
2675
2676 027570
027570
2677 027574
027574
027600
027602
027602
027604
027604
027610
2678 027612
027612
2679 027614
027614
027616
2680 027616
027616
2681 027622
027622
027630
2682 027634
027634
027640
027642

005237

023727
003002

50351¢:

003160
003160

50350%:

000173

111423
000770

50352%:

INC

WORK

CMP
BGT

WORK
, #123.
50352$
LET (R3)+ :B= (R4)
Move
(R4),(R3).
ENDINC
BR
50351¢

FOLLOWED BY CRLF

112723

000015

112723

000012

LET (R3)+ :B= @15
#15,(R3).
LET (R3)+ :B= #12
Move
12,(R3)+

Move

: PRINT LINE OF OCTAL CODE, MNEMONIC, AND 120 BYTESCNONPRINTABLE CODE)

005204
000711

503445

OUTPUT &4OUTBUF, #133,
LET R4 := R4 + 01
INC
R4
ENDINC
BR
50343

;

i UNITS WITH 64 CHAR BAND SHOULD STRIP BIT 6 OF DATA
AND PRINT THE DATA FOR CODES 140(8) THRU 177(8)

i AS IF CODES 100(8) THRU 137(8) WERE RECIEVED.
#sNOTE+»

012703

003164

012704
000401

000140

50353s:

000177

110423
000772

50355%:
000012

013737
005337

002012
003160

005037
000402

002320

e Sl

INC

CMP
BGT

R4,0177
S50355¢

MOvVB

112723

' _'

LET R3 := S0UTBUF
MOV
@OUTBUF ,R3
INCR R4 FROM 9140 TO #177 BY &1
MOV
@140,R4
BR
50353s

005204
020427
003002

DELETE IS PRINTED AS UNDERSCORE

50357s%:

:B= R4

R4,(R3).

s FILL BUFFER WITH CODES & LF

ENDINCR
BR
50354

LET (R3)+ :B= oLF
MOV
OLF,(R3).
LET WORK := LSUNIT - @1

MOV

003160

LET (R3)+

LSUNIT,WORK

DEC
WORK
INCR LUNIT FROM 40 TO WORK BY @1
CLR
LUNIT
BR
50356

i SEND MSG AND BUFFER TO ALL
; UNITS WITH 64 CHAR BAND

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 29-2

SEQ 0090

NON-PRINTABLE CHARACTERS

023737
003073

002320

013702
006302

002320

032762
001063

503564
:

003160

010000

002516

50360
:
000014

003164

104432

000730

LUNIT

CMP
BGT

LUNIT, WORK
50360%
LET R2 := LUNIT SHIFT 1
MOV
LUNIT,R2
R2

IF OFLAG96 NOTSETIN STATUSCR2) THEN
BIT
OFLAG96,STATUS(R2)
BNE
503614
OUTPUI &AUTSEC,#77.,,LUNTT
OUTPUI @AUTCON,#61., ,LUNIT
OUTPUI QOUTBUF,#33., ,LUNIT
ENDIF

000677

112737

INC

ASL

50361%:

ENDINCR
BR
S0357¢

LET OUTBUF :B= #14
MOVB
014, 0UTBUF
OUTPUT @OUTBUF ,#1
EXIT
TST
TRAP
CSEXIT
.WORD
L10016-.

sAND EXIT TEST

;

:CHARACTER BUFFER AND TEST HEADER MESSAGE

117

116
106
111

33333333333
333333 34333

(7]

—

O
800

i.,_

2700 030346
2701 030444
2702
2703 030451
2704 030462
2705 030473
2706 030504
2707 030515
2708 030526
2709 030537
2710 030550
2711 030561
2712 030572
2713 030603
2714 030614
2715 030625
2716 030636
2717 030647
2718 030660
2719 030671
030702
2721 030713
2722 030724
2723 030735
2724 030746
2725 030757

002320

§888288228323828282882382¢ 2

2696
2697 030120
2698 030161
2699 030230

005237

[

027642
027646
027646
027654
027656
027656
027662
2684 027664
027664
027672
2685 027674
027736
2687 030000
2688 030042
030042
2689 030042
030042
030044
2690 030044
030044
2691 030052
2692 030114
030114
030116
2693
2694

110
012

-NLIST BEX

AUTSEC:

.ASCII
.ASCIZ
.ASCIZ

/NON-PRINTABLE CHARACTERS TEST 07/¢12»
/A FULL LINE OF EACH CODE WILL BE SENT/<12>
/THIS SECTION CHECKS AUTOMATIC CONVERSION ON PRINTERS WITH 64 CHARACTER BAND

104
012

AUTCON:
SKIP3:

.ASCIZ
.ASCIZ

/CODES 140(8) ..177(8) SHOULD BE CONVERTED TO 100(8)..137(8)/<12>¢12>
<15>¢12>¢12>¢12>

060
060
060
060
060
060
060
060

NONBUF:

.ASCII
.ASCII
LASCII
LASCII
.ASCII
.ASCII
.ASCII
LASCII

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

000 NUL/<0>
001 SOM/<1>
002 STX/<2>
003 ETX/<3>
004 EOT/<4>
005 ENQ/<S>
006 ACK/<6>
007 BEL/<7>

061
061
061
062
062

JASCII
.ASCII
.ASCII
.ASCII
LASCII

/7
/
7/
/
7/

011
016
017
020
021

062
062

.ASCII
.ASCII

/ 023 XOF/<23>
7/ 024 DC4/<24>

LASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII

/
7/
7/
7/
7/
/

061

vé62

062
062
062
063
063
063

NONCHR:

ASCII

.ASCII

7/ 010 BS /<10

HT /<1i1>
SO /<16>
SI /<17
DLE/<20>
XON/<21>

/ 022 DC2/<22>
025
026
027
030
031
032

NAK/<25>
SYN/<26>
ETB/<27>
CAN/<30>
EM /<31»
SuB/<32>

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

SEQ 0091

NON-PRINTABLE CHARACTERS

2726 030770
2727 031001
2728 031012
2729 031023
2730 031034
2731
2732
2733
2734 031046
031046
— 031046
2736 031050
2737

040
040
040
040
040

104401

Page 29-3

060
060
060
060
060

063
063
063
063
063

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.EVEN
.LIST BEX
ENDTST
L10016:
TRAP
ENDMOD

/ 033 ESC/<33»
7/ 034 FS /<34>
/ 035 GS /<35>
/ 036 RS /<36>
7/ 037 US /<37>

CSETST

CILPLFO LP2S, LP26, LP27, LPO7T

MACRO Y05.02

Wednesdsy 10-Apr-85 09:07

Page 30
SEQ 0092

BAND PATTERN

2739
2740 031050

.SBTTL
BGNMOD

2741

'00

2742

1BAND PATTERN TEST

2743

‘

' 2744

2745
2746
2747
2748
2749
2750
2751
2752
2753
2754
2755
2756
2757
2758
2759
2760
2761
2762
2763
2764 031050
031050
276S
2766
2767
2768
2769 031050
031050
021054
031060
031062
031064

2770

2771
2772
2773 031070
031070
031074
2774 031076
031076
2775 031102
031102
2776 021110
031110
27717 031114
031114
2778 031122
031122
2779 021126
031126
2780 031134
0z1l

BAND PATTERN

s THIS TEST ONLY EXECUTES ON LP25 7/ LP26 / LP27. IT DOES NOTHING ON LPO7.
s THIS TEST PRODUCES AN IMAGE OF THE ENTIRE BAND PATTERN. THE PRINT-OUT
c;%fl&:?lNIZED TO LOCATE THE FOUR QUADRANTS OF THE BAND IN THE FOLLOWING
:

[
:
H

QUADRANT NO.1
QUADRANT NO.3

QUADRANT NO. 2
QUADRANT NO.4

QUADRANT NO.1

ETC.

:THE REASON FOR THIS ARRANGEMENT IS TO FACILITATE VISUAL INSPECTION

sg: Ygg :gls;ggT AS WELL AS TO ACCOMODATE THE 208 CHARACTERS OF THE BAND
H
1
L
.
H

STATUS(R2) FLAG96

SOFTWARE SWITCH USA

=1 FOR 96 CHAR BAND

=0 FOR 64 CHAR BAND

=1 FOR AMERICAN PRINT SET

=0 FOR BRITISH

PRINT SET

H
goo

BGNTST
000014

s
:

C12746
012746
010600
104417
062706

T8::
TO0F = 014

032600
000001

PRINT TEST IDENTIFICATION ON ALL UNITS
PRINTF &NOO7

MOV
MOV

MOV
TRAP
ADD

000004

#N0O07, -(SP)
e1,-(SP)

SP,RO
CSPNTF
4,5P

i SETUP PATTERNS FOR EUROPEAN OR AMERICAN PRINTERS
005737
001432

002274

105037

033123

112737

000043

105037

033241

113737

000043

105037

033357

1127%7

000043

105037

033501

IF USA NE {0 THEN

TST

BEQ

033127

033246

50362%
LET BP64Q2+18.

:B= #0

LET BP64Q3.35.

:B= #0

CLRB
BP64Q2.18.
LET BP64Q2+.22. :B= #43
MOvB
#43,8P64Q2.22.

CLRB
BP64Q3.35.
LET BP64Q3.40. :B= 43

MOvB
43,8P64Q3+40.
LET BP64Q4+53, :B= #0

CLRB

033363

; AMERICAN, PRINT SHARP SIGN ‘&'

USA

BP64Q4 .53,

LET BP64Q4.57. :B= #43
MOvB
#43,8P6404 .57,
LET BP96Q2+13. :B= #0
CLRB
BP96Q2+13.

CILPLFO LP2S, LP26, LP27, LPO?

MACRO Y05.02

Wednesday

10-Apr-85 09:07

Page 30-1

SEQ 0093

BAND PATTERN
<781 031140
031140
2782 031146
031146
2783 031152
031152
2784 031160
031160
031162
2785 031162
031162
2786 031170
031170
2787 031174
031174
2788 031202
031202
2789 031206
031206
2790 031214
031214
2791 031220
021220
2792 021226
031226
2793 031232
031232
2794 (71240
031240
2795 031244
031244
2796
2797
2798
2802 031244
031244
031250
2803 031252
031252
031256
031260
031260
031264
031264
031270
031272
031276
2804 031276
031276
031302
2805 031304
2806 031312
2607 031314
2808 031322
2809 031324
2810 031330
2811 031330

112737

000043

105037

033672

112737

000043

033506

033677

000431
503628
:
112737

000043

105037

033127

112737

000043

105037

033246

112737

000043

105037

033363

112737

000043

105037

033506

112737

000043

105037

033677

033123

033241

LET BP96Q2+18. :B= 043
MOve
#43,8P960Q2+18.
LET BP96Q4.13. :B= 40
CLRB
BP96Q4 .13,
LET BP96Q4+18. :B= #43
MOVB
©43,BP9%Q4+18.
ELSE
:+ EUROPEAN, PRINT POUND STERLING SIGN
BR
50363
LET
MOVB
LET
CLRB
LET
MOvB
LET
CLRB

LET
MOve
LET
CLRB
LET
MOvB
LET

033357

033501

CLRB

033672

50363s:

BP64Q2-18. :B= #43
943,8P64Q2+18.
BP64Q2+22. :B= %0
BP64Q2.22.
BP64Q3+35. :B= 243
943,BP64Q3.35.
BP64Q3+.40. :B= #0
BP64Q3+40.
BP64Q4+53. :B= #43
943,B8P64Q4 .53,
BP64Q4+.57. :B= #0
BP64Q4.+57.
BP96Q2+13. :B= #43
©43,BP96Q2+13.
BP96Q2+18. :B= #0

BP96Q2+18.

; PRINT PROPER BAND IDENTIFICATION MSG. ON EACH PRINTER
:

013701
005301

002012

005037
000402

002320

005237

002320

023701
003402
000137

503645%:

50365

002320
031764

50366
:

013702
006302
032762
001406
032762
001002
000137

002320
002000

002516

001000

002516

LET R1 := LSUNIT - &1
MOV
L$UNIT,R1
DEC
R1
INCR LUNIT FROM 20 TO R1 BY 21
CLR
LUNIT
BR
50365

INC

LUNIT

CMP
BLE

LUNIT,R1
503664

JMP

MOV
ASL

031760
1000¢:

50367

LET R2 := LUNIT SHIFT 1
LUNIT,R2
R2
BIT #FLAGO7,STATUS(R2)
BEQ 1000%
BIT #FLAG26,STATUS(R2)

BNE 1000$
JMP 1010

OUTPUI #BNDTST,#23.,,LUNIT

CZLPLFO LP2S, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 30-2

SEQ 0094

BAND PATTERN

2812 031372
031372

031400

031402
031410
031412
031412
2813 031416
2814 031460
031460
2815 031460
031460
031466
031470
031476
031500
031500
2816 031504
2817 031546
031546
2818 031546
031546
021554
021556
031564
031566
031566
2819 031572
2820 031634
031634
2821 031634
031634
031642
031644
2822 031650

2823 031712
2824
2825
2826
2827

031712
031716
031716
031760
031760
031760
031760
031760
031764

2831
2832
2833
2834 031764
031764
2835 031772
2836 031772
031772
031776
032000
032000
032004

032762
001004
032762
001402
000137

001000

002516

002000

002516
50370$:

031460

BIT
BNE
BIT
BEQ

IF &FLAG26 NOTSETIN STATUSCR2) AND #FLAGO7 NOTSETIN STATUSC(R2) THEN
#FLAG26,STATUS(R2)
503704
#FLAGO7,STATUS(R2)
.+6

JMP

50371

BIT
BEQ
BIT
BEQ

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

JMP

50373

50371s:

032762

001404
032762
001402

001000

002516

002000

002516

000137

031546

50372s:

50373s:

032762
001404
032762
001002

002000

002516

001000

002516

000137

031634

503745

010000

000137

031716

000137

031760

001002

002516

50376%:

50377%:
1010s:

000137

031260

50367$:

OUTPUI
ENDIF

005037
000402

002320

005237

002320

002302
24:

50401%:
50400%:

;

PRINTER IS LP2S

PRINTER IS LP26

JMP

S0375¢

BIT
BNE
JMP

IF #FLAG96 SETIN STATUS(R2) THEN
#FLAG96,STATUS(R2)
.+6
S0376¢
ELSEOUTPUI
#BP961ID,#22.,,LUNIT

JMP

50377¢

OUTPUI
ENDIF

ENDINC
JMP

#BPID27,#6.,,LUNIT

#BP64ID,#22.,,LUNIT

;

PRINTER IS LP27

;

96 CHAR BAND

;

64 CHAR BAND

503644

; NOW PRINT 2_LINE PATTERN 15.
000016

#8BPID26,#6.,,LUNIT

;

IF #FLAGO7 SETIN STATUS(R2) AND #FLAG26 SETIN STATUSC(R2) THEN
#FLAGO7,STATUS(R2)
50374
#FLAG26,STATUS(R2)
.+6

012737

#BPID2S,#6, ,LUNIT

BIT
BEQ
BIT
BNE

50375s:
032762

OUTPUI
ENDIF

TIMES, WITH BLANK LINE BETWEEN PATTERNS

LET LINCNT := #14.
MOV
#14. ,LINCNT
CLR
BR
INC

INCR LUNIT FROM #0 TO R1 BY #1
LUNIT
504004
LUNIT

;

PRINT QUADRANTS 1 &€ 2

CZLPLFO LP2S, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 30-3

SEQ 0095

BAND PATTERN
032004
032010
2837 032012
032012
032016
2838 032020
032020
032026
032030
032036
2839 032040
032040
2840 032044
032044
032046
2841 032046
032046
- 032054
2842 032056
2843 032120
032120
032122
2844 032122
032122
032130
2845 032132
2846 032174
032174
032176
2847 032176
2848 032240
032240
2849 032240
032240
2850 032240
032240
2851 032240
032240
032242
2852
2853 032242
032242
032246
032250
032250
032254
032254
032260
2854 032262
032262
032266
2855 032270
2856 032276
2857 032300
2858 032306
2859 032310
2860 032314

023701
003114

002320

cHP
BGT

013702
006302

002320

MOV

032762
001407
032762
001003

002000

002516

001000

002516

005037

002306

ASL

CLR

000475

032762
001022

50403s:
010000

002516

000447

032762
001022

BIT
BEQ
BIT
BNE

BIT
BNE

50405%:
003000

002516

000421

50407%:

LUNIT,R1
50402$

LET R2 := LUNIT SHIFT 1
ngIT.RZ

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

@FLAGO7,STATUS(R2)
50403
#FLAG26,STATUS(R2)

50403
LET COUNT
COUNT
ELSE
50404

504045
:

000657

50402%:

:= #0

IF #FLAG36 NOTSETIN STATUS(R2) THEN
#FLAG96, STATUS(R2)
50405$
ELSgUTPUI
#BP64Q1,#121., ,LUNIT

504064

BIT
BNE

#FLAG26!FLAGO7,STATUS(R2)
50407
. SEOUTPUI
#BP96Q3,#121., ,LUNIT
L

OUTPUI
ENDIF

#BP96Q1,#121.,,LUNIT

ENDINC
50401

; NOW DO QUADRANTS 3 & 4

005237

002320

LUNIT

023701
003065

002320

013702
006302
032762
001406
032762
001002
000137

002320

LUNIT,R1
50413$
LET R2 := LUNIT SHIFT 1
LUNIT,R2
R2
BIT
#FLAGO7,STATUS(R2)
BEQ
1100¢
BIT
#FLAG26,STATUS(R2)
BNE
1100¢
JMP
1110

001000

002516

032432

1100%:

i LP26 96 CHAR PATTERN

ENDIF

002320

002516

LP25 96 CHAR PATTERN

ENDIF

INCR LUNIT FROM #0 TO R1 BY #1
LUNIT
50411

002000

50410¢

005037

000402

; 64 CHAR PATTERN

IF @FLAG26!FLAGO7 NOTSETIN STATUS(R2) THEN

50410¢:
504064
:

: INDEX INTO STATUS TABLES

: REPEAT FOR ALL UNITS

INDEX INTO STATUS TABLES

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 30-4

SEQ 0096

BAND PATTERN
2861 032314
032314
032322
2862 032324
2863 032366
032366
032370

2864 032370
2865 032432
032432
2866 032432
2867 032432
032432
032434

2868 032434
032434
2869 032440
2870 032442
2871 032446
2872
2873
2874 032446
032446
2875 032454
032454
032460
032462
032462
032466
032466
032472
2876 032474
032474
032500
2877 032502
032502
032510
032512
032520
2878 032522
032522
2879 032526
032526
032530
2880 032530
2881 032572
032572
2882 032572
032572
032574
2883
2884 032574
032574
032576
2885
2886 032600
2887 032660

032762
001022

010000

002516

IF ®FLAG96 NOTSETIN STATUS(R2) THEN
#FLAG96,STATUS(R2)
504145
OUTPUI
#BP64Q3,#122., ,LUNIT
;
ELSE
50415$

BIT
BNE

.
000421
50414

OUTPUI
ENDIF

50415s$:
1110s%:
000706

50413s:
005337
001402
000137

002302
031772

112727

000014

005037
000402

002320

005237

002320

023701
003040

002320

013702
006302

002320

032762
001407
032762
001003

002000

002516

001000

002516

005037

002306

003164

;

96 CHAR PATTERN

ENDINC
50412

LET LINCNT := LINCNT - #1
DEC
LINCNT
BEQ
3
JMP
2%

3s:
3
; DO TOF THEN EXIT ON ALL UNITS EXCEPT LPO7'S
LET #0UTBUF :B= #14
MOVB
#14, #0UTBUF
INCR LUNIT FROM #0 TO R1 BY #1
CLR
LUNIT
BR
50416¢
50417%:
INC
LUNIT
50416%:
CMP
LUNIT,R1
BGT
504204
LET R2 := LUNIT SHIFT 1
MOV
ASL

BIT
BEQ
BIT
BNE

CLR

000421
S50421%:

LUNIT,R2
R2

IF 4FLAGO7 SETIN STATUS(R2) AND #FLAG26 NOTSETIN STATUSCR2) THEN
#FLAGO7,STATUS(R2)
50421%
#FLAG26,STATUS(R2)
504214
LET COUNT := #0
COUNT
ELSE
S50422%
ENDIF

504228
:
000733
50420%:

ENDINC
BR

OUTPUI #OUTBUF,#1, ,LUNIT

50417

:
EXIT TST

104432
001156
045
102

#8P96Q3,#122., ,LUNIT

64 CHAR PATTERN

116
101

045
116

TRAP
.WORD
.NLIST BEX
NOO7:
.ASCIZ
BNDTST: .ASCII

CSEXIT
L10017-.

/%N%ABAND PATTERN TEST DOES NOTHING ON LPO7'S.%N/
/BAND PATTERN TEST 08
/

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 30-5
SEQ 0097

BAND PATTERN

2888 032707
2889 032715
2890 032723
2891 032731
2892 032757
2893
2894
2895
2896 033005
2897 033015
2898 033047
2899
2900 033101
2901 033111
2902 033143
2903
2904 033176
2905 033206
2906 033240
2907

2908 033272

2909 033302
2910 023334
2911
2912
2913
2914 033370
2915 033400
2916 033432
2917 033457
2918 033460
2919 033463
2920
2921 033464
2922 033474
2923 033502
2924 033503
2925 033511
2926 033526
2927 033541
2928 033554
2929
2930 033561
2931 033571
2932 033605
2933 033606
2934 033612
2935 033613
2936 033623
2937
2938 033655

2939 033665

2940
2941
2942
2943
2944

033673
033674
033702
033717
033733

114
114
114
066
o7l

120
120
120
064
066

062
062
062
040
040

BPID25:

BPID26:
BPID27:
BP64ID:

BP96ID:

.ASCII

.ASCII
.ASCII
.ASCII

.ASCII

/LP25
/LP26

7/
/

/LP27

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

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

: 64 CHAR BAND PATTERN
[

040
101
125

040
102
126

040
105
066

BP64Q1:

040
077
110

040
100
111

040
105
066

BP64Q2:

.ASCII
.ASCII
.ASCII

040
137
136

040
053
043

040
105
066

BP64Q3:

040

04¢

040

BF64Q4:

116
072

117
057

105
066

.ASCII
.ASCII
.ASCII

/UVONXTYZ8 _+%9E)#(:,/<57>/8-;>¢<./
/

.ASCII
.ASCII
.ASCII

/
/
/NOEPQTRSOUVWIXY2Z _3+%4E)(5/

/2QE][T\"0t#=1142' A3BCADFGS/
/HI6JK7LMBNOP9QR4SU, VW-XYZ./<12>
/_+E%ET)(0:/<57>/%1;>2<239]4[\
"5/

/t%6="74'8ABCIDF
+GH, IJ-KLM. /

_:/68;7><829)9[\x"
&=-184', _<12><12>
t,

: 96 CHAR BAND

040
135
174
075
175
146
157
170

040
102
126

040
103
127

077

100

040
133

040
134

052
173
147
064
171

041

040
101
145
113
164
117
125

040
102

040
103

114

115

120
126

121
127

040

174
075
175
146
054

040
134

065
173
147
160

041
176

135

133

176
150
160
172

150
161

BP96Q1:

BP96Q2:

.BYTE

BP96Q3:

BP96Q4:

/ABECDTFGOHIJ1KL2MN30P4QRSS/

040
101
125
145
074
164

LP25 & LP26 & LP27

.ASCII
.ASCII
.ASCII
.BYTE
.ASCII
.BYTE

.ASCII
.ASCII

LP25 = Q3..Q4

LP26 & LP27 = Q1..Q4

/
/
/ABCDOEFGIHIJ2KLMN30PQ4RSTS/
JUVHX6YZ_7$%E8)(:/<57>/9+;>/

145

/<28/

164
/

7IN",
8/

.BYTE
174
/=819
-/
.ASCII
.BYTE
175,173,176,136,56,177,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
.BYTE
170.171.172.67.12

.ASCII
.ASCII
.BYTE
.ASCII
.BYTE
.ASCII
.ASCII
.ASCII
.ASCII
.BYTE
.ASCII
.BYTE
.BYTE
.BYTE

/
/
/RBCDBEFG9HIJ/

145

/KLMN/

164
/0PQ,RST#+/

JUVHX-YZ_. $%E0)(:/<57>/1+;>2<283/
/

/1(\"4%/
174
/=514'6/
175,173,176,136,67,177,140,141,70,142,143,144,71
146,147,150,151,
145,152,153, 154, 164, 155,156,157
54,160,161,162,163,52,165,166,167,55,170

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

SEQ 0098

BAND PATTERN
2945 033746
2946
2947
2948 033754
033754
033754
2949 033756

Page 30-6

171

104401

172

056

.BYTE
.LIST BEX
.EVEN
ENDTST
L10017:
TRAP
ENDMOD

171,172,56,12,12

CSETST

CZLPLFO LP2S, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 31
SEQ 0099

SPURIOUS HAMMER FIRING
gggé

.SBTTL SPURIOUS HAMMER FIRING

2953 033756
2954
2955
2956
2957
2958
2959
gggg

BGNMOD
jee
:THE PURPOSE OF THIS TZST IS TO DETECT SPURIOUS HAMMER FIRINGS AND DEFECTIVE
:HAMMER DRIVERS DURING THE OPERATION OF THE LINE PRINTER. THE PROGRAM
;PRODUCES A LEFT WEDGE PATTERN CONSISTING OF 132 LINES OF PRINT WITH EACH
;LINE BEGINNING WITH A “?” CHARACTER. ANY POINT OUTSIDE THE WEDGE
;BOUNDARIES IS CAUSED BY HAMMER MISFIRES OR BY HAMMER BOUNCE.
:--

2962
2963 033756
033756
2964

BGNTST
T9::

2966
23:: 033756
2

OUTPUT #HAMFIR,#33.

2965

;PRINT THE TEST HEALER

gggg

2971 034020
0324020
034025
034030
034030
034034
034034
034042

gg;g

2974 034044
034044
2975 034050
034050

034056
2976

;OUTPUT THE ACTUAL WEDGE AT THIS POINT
012737
000402

000001

005237

003160

023727
003123

003160

000204

INCR WORK FROM #1 TO #132.
MOV
#1 ,WORK
BR
50423
504245
:
INC
WORK
50423%:
CMP
WORK ,#132.
BGT
504254

BY #1

:NUMBER OF LINES TO OUTPUT

;ALSO NUMBER OF PRINTING CHARACTERS
012704

003164

012737
163737

000204
003160

034366
034366

29;;

29
2979 034064
034064
034064
034070
2980 034072
034072
2981 034076
034076
2982 034102
034102
034104
2983 034104
034104
2984 034110
034110
2985 034116
034116
2986 034124

LET R4 := #OUTBUF
MOV
#0UTBUF ,R4
LET SPCCNT := #132. - WORK
MOV
#132.,SPCCNT
SsuB

;OUTPUT BUFFER POINTER
;NUMBER OF SPACES TO FILL IN

WORK ,SPCCNT

;FILL THE OUTPUT BUFFER WITH THE REQUIRED NUMBER OF SPACES

005737
001405

024366

112724

000040

005337

034366

000770

005037

002310

012737

000077

002314

012737

000041

002312

WHILE SPCCNT NE #0 DO
504264
:
TST
SPCCNT
BEQ
50427
LET (R4)+ :B= #40
:SPACE FILL
MOVB
#40,(R4)+
LET SPCCNT := SPCCNT - #1
;UPDATE FILLER COUNTER
DEC
SPCCNT
ENDDO
BR
50426
50427%:
LET CCNT := #0
CLR
CCNT
LET CHRGEN := 477
;FIRST CHARACTER A "?2*
MOV
#77,CHRGEN
LET STRCNT := #33,
:# OF CHARACTERS IN GROUP
MOV
#33. ,STRCNT
WHILE CCNT LT WORK DO
;NOW FILL IN REST OF BUFFER

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 31-1

SEQ 0100

SPURIOUS HAMMER FIRING
034124
034124
023737
034132
002022
2987 034134
034134
005737
034140
001006
2988
2989
2990
2991 034142
034142
012737
2992 034150
034150
012737
2993 034156
034156
2994 034156
034156
113724
2995 034162
034162
005237
2996 034166
034166
005237
2997 034172
024172
005337
2998 034176
034176
000752
034200
2999
3000
3001
3002 034200
034200
112724
3003
3004
3005 034204
3006 034246
3007
3008
3009 034310
034310
000647
034312
3010 034312
034312
112737
3011 034320
3012 034362
034362
104432
034364
000046
3013
3014
3015
3016 034366
000000
3017
3018
3019
3020 034370
123
3021
3C22
3c23

002310

504304
:

003160

002312

;RESET
000041

002312

000077

002314

CMP
CCNT
, WORK
BGE
50431
IF STRCNT EQ #0 THEN
TST
STRCNT
BNE
50432

GROUP POINTERS AND COUNTERS
LET STRCNT := #33,
#33. ,STRCNT
LET CHRGEN := #77
MOV
#77,CHRGEN
ENDIF
MOV

50432%:

002314
002314

LET (R4)+ :B= CHRGEN
MOVB
CHRGEN,(R4)+
LET CHRGEN := CHRGEN + #1

LET CCNT := CCNT + #1
INC
CCNT
LET STRCNT := STRCNT - #1
DEC
STRCNT
ENDDO
BR
504304
50431$:

002310

002312

:UPDATE POINTERS AND COUNTERS

:NOW SET UP LINE TERMINATOR AND OUTPUT THE LINE.
LET (R4)+
MOvB

000012

;OUTPUT THE

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

LINE

OUTPUT #OUTBUF,#132.
OUTPUT #0UTBUF+132.,41

i SEND THE DATA, NO LF YET
i THIS MAKES SURE OUTPUT IS SENT
i BEFORE CHANGING OUTBUF DATA !

ENDINC

000014

003164

BR
50424
50425%:
LET OUTBUF :B= #14
MOVB
#14,0UTBUF
OUTPUT #0UTBUF,#1
EXIT TST
TRAP
CSEXIT
.WORD
L10020-.

;COUNTERS, POINTERS, TEXT BUFFER,
SPCCNT:

120

125

.WORD O

;TEST HEADER
-NLIST BEX

HAMFIR:
i

AND HEADER FOR TEST PRINTOUT

.ASCIZ

.LIST BEX

MESSAGE

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

CZLPLFO LF25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

SEQ 0101

SPURIOUS HAMMER FIRING

3024
3025
3026
3027 034432
034432
034432
3028
3029 034434

.EVEN

ENDTST

104401

Page 31-2

L10020:

TRAP
ENDMOD

CSETST

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 32
SEQ 0102

PRINT CONTROL

3031
3032
3033 034434
3034
3035
3036
3037
3038
3039
3040
3041
3042
3043
3044
3045
3046
3047
3048 034434
034434
3049 034434
034434
034440
034444
034446
034450
3050 034454
034454
034460
3051
3052 034462
034462
034466
034470
034470
034474
034474
034500
034502
034506
3053 034506
034506
034512
3054 034514
3055 034522
3056 034524
3057 034532
3058 034534
3059 034540
3060 034540
3061 034602
034602
3062 034610
3063 034610
034610
3064 034614
034614
034614

.SBTTL PRINT CONTROL

BGNMOD
s

;THIS TEST CHECKS THE PRINT CONTROL BY SENDING MORE THAN 132 CHARACTERS
;BEFORE SENDING A PRINT COMMAND. ALL CHARACTERS IN EXCESS OF 132 CHARACTERS
:SHOULD BE DISREGARDED.

THIS TEST DOES NOTHING ON ALL LPO7'S.

THREE LINES ARE PRINTED PER ITERATION,

THESE LINES WILL IDENTIFY THE

; COLUMN NUMBERS ACROSS THE PAGE. EXAMPLE :
:

sdis vrsubans R

:
1
2
Bu.vevnns P
———
;123456789012345678901234567890......... PR
:

3
012

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

;

THIS OUTPUT IS REPEATED 13 TIMES.

goo

BGNTST
T10::

012746
012746
010600
104417
062706

035451
000001

013701
005301
000001

002012

005037
000402

002320

005237

002320

023701
003402
000137

002320

013702
006302
032762
001406
032762
001002
000137

035354
002320
002000

002516

001000

002516

035350

000015

012705

035710

005715

PRINTF #NOLPO7
MOV

000004

012737

10.

#NOLPO7, -(SP)
MOV
#1,-(SP)
MOV
SP,RO
TRAP
CSPNTF
ADD
o4 ,SP
LET R1 := LSUNIT - &1
MOV
LSUNIT,R1
DEC
R1
$BRUMP=1
INCR LUNIT FROM #0 TO R1 BY #1
CLR
LUNIT
BR
50434
50433s:
INC
LUNIT
504345
CMP
LUNIT,R1
BLE
50435%
JMP
504364
50435s:
LET R2 := LUNIT SHIFT 1
MOV
LUNIT,R2
ASL
R2
BIT
#FLAGO7,STATUS(R2)
BEQ
1200
BIT
#FLAG26,STATUS(R2)
BNE
1200%
JMP

1210¢

MOV

OUTPUI #PRTCTL,#56.,,.LUNIT
LET COUNT := &13.
:}3..COUNT

MOV

LET RS := &TABLEL
#TABLEL1,RS

TST

(RS)

1200%:
002306

50437s:

WHILE (RS) NE 40 DO

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wwednesday 10-Apr-85 09:07

Page 32-1
SEQ 0103

PRINT CONTROL

034616
034620
3065 034624

001002
000137

3066 034664
034664

000753

3067 034666
034666

112737

000012

012705

035744

034666

ggg 034674

3070 034736
I

034736

1034742
034742
034742
034744

005715
001002

034746

000137

035012
035014
gg;; 035014

000753

3072 034752
3073 035012

3076 035056

50442%:

005337

002302

035072

023727

002302

035102

000137

035152

035106

3077 035106
3078 035150

MOV

035014

000016

002002

Move

504415s:

012737
000402

035100

003164

TST
BNE

MOV
BR

50443s:

504445:

50445s:

JMP

50446

005737

002306

TST

BGT
JMP

034610

035300

3085 035300
035300
3086 035306

000014

3087 035350

000137

3089

177777

3090 035354

034470

OUTPUI X11,410.,,LUNIT
ENDDECR

50443

OUTPUI 4OUTBUF,#1, ,LUNIT
OUTPUI @OUTBUF,@1, ,LUNIT
LET COUNT := COUNT - @1

COUNT

IF COUNT GT #0 THEN
COUNT

.+6
504474

JMP 1%

MOVB

LET QUTBUF :B= #14
€14, 0UTBUF
OUTPUI
@OUTBUF,#1,,LUNIT

JMP

50433

+210%:

3088 035350
035350

035354

003164

TO @1 BY @1

50445

ENDIF

50447s:
112737

@14, ,LINCNT
50444

LINCNT, &1

504465
:

DECR LINCNT FROM #14.

CMP

DEC

000137

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

LINCNT

002306

3083 035274
3084 035300

(RS)
.+6

DEC
BGE

035300

WHILE (RS) NE 40 DO

50441

005337
003002
000137

#TABLE2,RS

035256

035266
035270

LET RS := @#TABLE2

504424

000746

3082 035262
035262

:B= @12

OUTPUI @OUTBUF
,#1, ,LUNIT

JMP

035150
035152

3079 035152
3080 035214
3081 035256

LET OUTBUF
12, 0UTBUF

OUTPUI @OUTBUF
,&1, ,LUNIT

002302

000001

.+6
504404
OUTPUI (RS5)+,#10., ,LUNIT

ENDDO
50437s

504405
:

035056
035064
035066
035066

035072

BNE
JMP

034666

ENDINCR

504364
:
$BRUMP=-1

EXIT TST

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 32-2
SEQ 0104

PRINT CONTROL

3102 035626

122

PRTCTL:

116

NOLPO7:

.ASCII /PRINT CONTROL TEST 10/ <12>
.ASCIZ
/SHOULD SHOW 132 COLUMNS PRINTED/<12><12><15>
/¥NSAPRINT CONTROL TEST DOES NOTHING ON LPO7'S.%N/
.ASCIZ

X0:
X1:

X2:
X3:
X4 :
XS:
X6:
X7:
X8:
X9:

.ASCII
.ASCII

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

X11:

.ASCII

71234567890/

.WORD
.WORD
.EVEN

X0,X0, X0,X0,X0,X0, X0,X0,X0,X1,X1,X1,X1,0
X1,.X2,X3,X4,X5,%X6,X7,X8,X9,X0,X1,%X2,X3,0

040
040
040
040
040
040

040

3103 035640
040
3104 035652
040
3105 035664
040
3106
3107 035676
061
3108
3109
3110 035710 035532
3111 035744
035544
3112
3113
3114
3115 036000
036000
036000
104401
3116 036002 |

CSEXIT

L10021-.

063

035532
035556

035532
035570

.EVEN
TABLE1:
TABLE2:

.LIST BEX
ENDTST
L10021:
TRAP
ENDMOD

CSETST

3099 035570
3100 035602
3101 035614

120
123
045

TRAP
.WORD
.NLIST BEX

3091
3092 035360
3093 035406
3094 035451
3095
3096 035532
3097 035544
3098 035556

104432
000422

NNNNNNNNNNSN

035354
035356

CILPLFO LP2S, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 34

SEQ 0105

MULTIPLE LINE ADVANCE

3119
3120
3121 036002
3122
3123
3124
3125
3126

.SBTTL

MULTIPLE LINE ADVANCE

BGNMOD
‘00

sTHIS TEST CHECKS THE MULTIPLE LINE ADVANCE OF THE LINE PRINTER. A LINE OF
:NUMBERS IS PRINTED AND THEN THE PAPER IS'ADVANCED THAT NUMBER OF LINES. THUS THE
tNUMBER PRINTED WILL INDICATE THE NUMBER OF BLANK LINES FOLLOWING THAT

sLINE. THE NUMBER OF LINES IS VARIED BETWEEN 2 AND 7 AND A LINE OF
sALL 0'S WILL INDICATE THE END OF THE TEST
SEQUENCE.

3127
3128
3129
3130

‘--

3131 036002

BGNTST

036002

3132
3133
3134
3135 036002
3136
3137 036044
036044
3138
2139 026052
026052
3140 036052
036052
3141 036060
036060
036064
036070
036074
036074
036100
026100
036106
036110
036110
036114
036114
036122
038124
036124
036130
036130
035132
0%61%2
036132
2147 0356134
036134
036134
036140
035142
035142
035146
036146
025150
025150

Til::

11.

;PRINT TEST IDENTIFICATION
OUTPUT #MULINE,#86.

012737

036312

036310

LET STACHR := #TABSTR
MOV
#TABSTR,STACHR

;:OUTPUT CHARACTERS

REPEAT

117737

000232

013746
042716
042637

002302
000007
002302

012703

003164

012737
000402

000001

005237

002310

023727
003003

002310

117723

000160

000767

005004

000204

MOVB
@STACHR, (R3).
ENDINC
BR
50452
S0453s:
LET R4 := &0

CLR

002302

112722

000012

000771

002310

WHILE R4 NE LINCNT DO

020437
001404

005204

002302

50450s:
LET LINCNT :B= @STACHR
;GET A CHARACTER TO OUTPUT
MOVB
SSTACHR,LINCNT
LET LINCNT := LINCNT AND 47 ;MAKE THE ASCII TO OCTAL
MOV
LINCNT,-(SP)
BIC
#7,(SP)
BIC
(SP)«,LINCNT
LET R3 := &0UTBUF
;SET UP OUTPUT BUFFER
MOV
#0UTBUF ,R3
INCR CCNT FROTM &1 TO #132. BY 21
MOV
#1,CCONT
BR
50451
50452%:
CCNT
I"C
50451s:
cMP
CCNT,#132.
50453
BST
LET (R3)+ :B= @STACHR
;:PUT CHARACTER
1IN OUTPUT BUFFER

50454

cMP
R4 ,LINCNT
BEQ
50455
LET (R3). :B= #12
MOVB
#12,(R3).
LET R4 := R4 . #1
INC
R4
ENDDO
50454
BR

sFILL WITH LINE FEEDS

CILPLFO LP2S, LP26, LP27, LPO?

MACRO Y05.02

Wednesday

10-Apr-85 09:07

Page 34-1

SEQ 0106

MULTIPLE LINE ADVANCE
036152
3151
3152
3153
3154 036152
036152
036156
3155 036162
036162
3156 036166
3157
3158 036226
036226
036232

3159 036234
036234
3160 036242
3161
3162 036304
036304
3163
3164
3165
3166
3167
3168
3169
3170
3171
3172
3173
3174
3175
3176

50455
:

;NOW OUTPUT THE ACTUAL LINE
013704
062704

002302
000204

005237

036310

005737
001307

002302

112737

000014

000150

036310

000000

036312
036327
036365

062
115
116

036456
036456
036456
2177 036460
3178

:NUMBER OF CHARACTERS TO OUTPUT

LET STACHR := STACHR « #1
INC
STACHR
OUTPUT #0UTBUF ,R4

: UPDATE CHARACTER COUNT

ADD

003164

062
114

115

TST

LINCNT

MOvB

€14, 0UTBUF

TRAP
.WORD

CSEXIT
L10022-.

OUTPUT #0UTBUF ,#1

STACHR: .WORD 0
.NLIST BEX

TABSTR:
MULINE:

.ASCIZ
.ASCII

.ASCIZ

7272637463540/
/MULTIPLE LINE ADVANCE TEST 11/¢<12>

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

.EVEN
.LIST BEX

104401

;OUTPUT THE LINE

BNE
50450
LET OUTBUF :B= #14

EXIT TST

067
125
125

0132..R4

UNTIL LINCNT EQ 90

104432

03630€

LET R4 := LINCNT . 0132,
MOV
LINCNT,R4

ENDTST
L10022:

ENDMOD

TRAP

CSETST

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 35

SEQ 0107

CHARACTER ALIGNMENT
3180
3181 036460
3182
3183
3184
3185
3186 036460
036460
3187
3188 036460
3189
3190 036522
036522
3191 036530
036530
036534
3iv. 036536
036535
3193 036542
036542

3195 036542

026542
3196 036546
036546
036554
036556
036556
036562
036562
036570

3197 036572
036572
3198 036576
036576
3199 036602
036602
036604
3200 036604
036604
3201
3202
3203
3204 036610
3205 035652
3206
3207
3208
3209 036714
036714
3210 036720
036720
3211 036724
036724
3212
3213 035730
3214 036772

.SBTTL
BGNMOD

CHARACTER ALIGNMENT

+THIS TEST CHECKS CHARACTER ALIGNMENT BY OVERPRINTING LINES OF ALTERNATING
iH'S AND SPACES WITH SPACES AND H'S.
‘--

BGNTST
Ti2::

12.

;PRINT TEST IDENTIFICATION

OUTPUT &CHRALN,#30.

012737

000062

005737
003002

002302

000137

037044

002302

;PRINT 24 LINES OF ALTERNATING
1s:
LET LINCNT := #50.

s PRINT TEST NAME ON LP

“H“'S AND

"SPACE"'S

MOV
#50. ,LINCNT
IF LINCNT LE #0 THEN

2$:

TST

BGT

504564
:

LINCNT

50456$
INLINE <JMP 38>
JMP
3
ENDIF

:LOAD BUFFER WITH ALTERNATING STRING OF “H”'S AND “SPACE”'S
012704

003164

012737
000402

000001

005237

003160

023727
003005

003160

112724

000110

112724

000040

LET R4

003160

50460%:

000102

50457
:

MOV
BR

&1, WORK
50457%

INC

WORK

CcMP

WORK
, #66 .

BGT

000765
50461$:

112724

000015

:= &4OUTBUF

MOV
#0UTBUF ,R4
INCR WORK FROM #1 TO #66.

BY #1

50461
LET (R4)+ :B= #110
Move
#110,(R4)+
LET (R4)+ :B= #40
MOVB
#40,(R4)+
ENDINCR
BR
504604
LET (R4)+ :B= &CR
MOvB
#CR,(R4)+

132 CHARACTERS

PUT PATTERN INTO BUFFER

FOLLOWED BY CR

: SEND BASIC PATTERN
;

OUTPUT
#0UTBUF, #132.
OUTPUT #0UTBUF+132.,4#1
;

: OVERPRINT WITH LINE OF ALTERNATING SPACE AND 'H'
;

012704

003370

112724

000110

112724

000012

LET R4 := #0UTBUF.132.
MOV
#0UTBUF +132. ,R4
LET (R4)+ :B= #110
MOVB
#110,(R4).
LET (R4)+ :B= &LF
MOvB
#LF,(R4)+

OUTPUT
&OUTBUF+1,#132.
OUTPUT #0UTBUF +133.,#1

FILL BUFFER WITH REVERSE PATTERN

;

FOLLOWED BY A LINEFEED

; OVERPRINT

CZLPLFO LP2S, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 35-1

SEQ 0108

CHARACTER ALIGNMENT
3215 037034
037034
3216 037040

037040
3217 037044
3218 037044
037044
3219 037052
3220 037114
3221 037120
037120
037122
3222
3223 037124
3224
3225
3226 037164
037164
037164
3227 037166

005337

002302

000137

036530

112737

000014

004737

005606

LET LINCNT := LINCNT
DEC
LINCNT
INLINE <JMP
24>

003164

104432
000042

103

104401

110

101

JMP

Bé:oao

L10023-.

" TRAP

CSETST

- &1

3$:
LET OV TBUF :B= #14
MOVE
#14,0UTBUF
QUTPUT SOUTB,UF
81
JSR PC L QUIET
EXIT T ST
TRAP
C$EXIT
.NLIST
CHRALN : .ASCIZ /CHARACTER ALIGNMENT TEST 12/¢12><12><12>
.EVEN
LIST BEX
ENDTST
L10023
ENDMOD

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 36

SEQ 0109

INTERRUPT SERVICE ROUTINES
3229
3230 037166

3231
3232
3233
3234
3235
3236
3237
3238
3239
3240 037166
3241
3242
3243
3244
3245
3246
037166
037172
037174
037176
037202
037206

037212
037214
37216
037222
037226
037232
037234
037236
037242
037246
037252
037254
037256
037262
037266
037272
037274
037276
037302
037306
037312
037314
037316
037322
037326
037332

037334
037336
037342
037346
037352
037354
037356

.SBTTL
BGNSRV

INTERRUPT SERVICE ROUTINES

;
‘00

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

sLINE NUMBER IS RETURNED IN R2
H
’--

000000
000020

X=0
INTOO:

X=X+2

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

000200

000000
004774
000200

000002
004774
000200

000004
004774
000200

000006
174

000200

000010
004774
000200

000012
004774
000200

000014
004774
000200

000016

.REPT 16.
SETPRI 4PRIO4
PUSH
R2
LET R2 := &X
INLINE <JMP
.ENDR
MOV
TRAP
MOV
MOV
JMP
MOV
TRAP
MOV
MOV
JMP
MOV
TRAP
MOV
MOV
JMP
MOV
TRAP
MOV
MOV
JMP
MOV
TRAP
MOV
MOV
JMP
MOV
TRAP
MOV
MOV
JMP
MOV
TRAP
MOV
MOV
JMP
MOV
TRAP
MOV
MOV

I0DRV>

4PRI0O4 ,RO
C$SPRI
R2,-(SP)

#X,R2

IODRV

#PRIO04,RO
C$SPRI
R2,-(SP)
#X,R2
IODRV
#PRIO04 ,RO
C$SPRI
R2,-(SP)
#X,R2
IODRV
¢PRIO4 ,RO
C$SPRI
R2,-(SP)
*X,R2
190RV
#FRI04,RO
C$5PRI
R2,-(SP)
#X,R2
IODRV
#PRIO4 ,RO
C$SPRI
R2,-(SP)
#X,R2
IODRV
#PRIO4,RO
C$SPRI
R2,-(SP)
#X,R2
IODRV
#PRIO4 ,RO
C$SPRI
R2,-(SP)
#X,R2

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

SEQ 0110

INTERRUPT SERVICE ROUTINES

3247

037362
037366
037372
037374
037376
037402
037406
037412
037414
037416
037422
037426
037432
037434
037436
037442
037446
037452
037454
037456
037462
037466
027472
037474
037476
037502
037506
037512
037514
037516
037522
037526
037532
037534
037536
037542
037546
037552
037554
037556
037562

000137
012700
104441
010246
012702
000137
012700
104441

010246
012702

000137
012700
104441
010246
01270c
000137

012700
104441
010246

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

004774
000200

000020
004774
000200

000022
004774
000200

000024
004774
000200

000026
004774
000200

000030
004774
000200

000032
004774

Page 36-1

JMP
MOV
TRAP
MOV
MOV
JMP

MOV

TRAP
MOV
MOV
JMP
MOV
TRAP
MOV
MOV
JMP
MOV
TRAP
MOV
MOV
JMP
MOV
TRAP
MOV
MoV
JMP
MOV
TRAP
MOV

IODRV
#PRIO4,RO
C$SPRI
R2,-(SP)

X ,R2

IODRV

#PRIO4 ,RO

C$SPRI

R2,-(SP)
#X,R2

IODRV

#PRIO4 RO

C$SPRI

R2,-(SP)
X ,R2
IODRV
#PRIO04 ,RO

C$SPRI
R2,-(SP)
#X,R2
IODRV
#PRIO04 ,RO
C$SPRI
#X.R2
IODRV
#PRIO4,RO

C$SPRI

000200

#X,R2
IODRV
#FRIO04,RO

000034
004774
000200

#X,R2
IODRV
#PRIO04 ,RO

000036
004774

R2,-(SP)
#X,R2
IODRV

C$SPRI

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 37

SEQ 0111

CLOCK SERVICE ROUTINE
3249
3250
3251
3252
3253
3254
3255 037566
3256 037566
037566
037572

3257 037574
037574
037600
3258 037602
037602
3259 037610
037610
3260 037614
037614
3261 037614
037614
3262 037620
037620
037626
3263 037630
037630
3264 037636
037636
3265
3266 037636
037636
037636
3267
3268 037640
3269 037642

| S—

.SBTTL CLOCK SERVICE ROUTINE
e

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

012700
104441

000300

005737
001005

037642

012737

000074

005237

037640

BGNSRV
CLKTCK:

037642

50462%:
005337

037642

023727
001003

002326

012777

000100

000002
000000
000000

SETPRI #PRIO6
MOV
#PRI06,RO
TRAP
C$SPRI
IF TICK EQ #0 THEN
TST
TICK
BNE
50462¢
LET TICK := #60.
MOV
#60.,TICK
LET TIME := TIME +
INC
TIME
ENDIF
LET TICK := TICK - #1
DEC
TICK
IF CLKTYP EQ #2 THEN

CcMP

000002

BNE

142474

:60 TICKS PER SECOND
#1

:BACK UP SECOMD TIMER

CLKTYP,#2

50463$
LET 8CLKCSR := #100
“MOV
#100,8CLKCSR
ENDIF
50463%:
ENDSRV
L10025:

TIME:

TICK:

:AND EXIT
RTI
.WORD
.WORD

0
O

CZLPLFO LP2S, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 38
SEQ 0112

HARDWARE PARAMETER SECTION

3271
3272 037644
3273
3274
3275
3276
3277
3278
3279
3280 037644
037644
037646
3281
3282 037646
037646
037650
037652
037654
3283 037656
037656
037660
037662
027664
3284 037666
037666
037670
037672
037674
037676
3285 037700
037700
037702
037704

3286 037706
3287
3288
3289
3290
3291
3292
3293
3294

.SBTTL
BGNMOD
e

s THIS SECTION INCLUDES THE QUESTIONS WHICH REQUEST THE OPERATOR TO
;FURNISH THE HARDWARE INFORMATION NECESSARY TO BUILD THE HARDWARE
;P-TABLES.
:
;-BGNHRD
.WORD L10026-L $HARD/2
L$HARD:
:

000020

GPRMA
.WORD
.WORD
.WORD
.WORD
GPRMA
.WORD
.WORD
.WORD
.WORD
GPRMD
.WORD
.WORD
.WORD
.WORD
.WORD
GPRML
.WORD
.WORD

000031
037706
160000
177516

001031
037731
000110
000770
002032
037752
C€00003
000000
000003

003130
040034
000001

ENDHRD

037706

037706
037731
037752
040034

HARDWARE PARAMETER SECTION

114
111
105
071

120
116
116
066

061
124
124
040

.WORD

GETADR,0,0,160000,177516,YES
Ts$CODE
GETADR
TS$LOLIM
TS$HILIM
GETVEC,2,0,110,770,YES
T$CODE
GETVEC
TSLOLIM
TS$HILIM
GETTYP,4,0,3,0,3,YES
T$CODE
GETTYP
3
TSLOLIM
TS$HILIM
GETBND,6,1,YES
T$CODE
GETBND
1

.EVEN
L10026:
.NLIST BEX
GETADR: .ASCIZ
.LP11/LPV11 ADDRESS.
GETVEC: .ASCIZ
/INTERRUPT VECTOR/
GETTYP: .ASCIZ
.ENTER O IF LP25, 1 IF LP26,
GETBND: .ASCIZ
/96 CHARACTER BAND/
; ENTER 3 IF LPYY
FOR FUTURE EXPANSION
.LIST BEX
.EVEN

2 IF LPO7,

3 IF LP27

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 39
SEQ 0113

SOFTWARE PARAMETER SECTION

3296
3297
3298
3299
3300
3301
3302

.SBTTL

SOFTWARE PARAMETER SECTION

P
e

s THIS SECTION INCLUDES THE QUESTIONS WHICH REQUEST THE OPERATOR TO FURNISH
:THE SOFTWARE INFORMATION NECESSARY TO BUILD THE SOF TWARE P-TABLES.
‘--

3303 040056
040056
040060
3304 040060
040060
040062
040064
3305 040066
040066
040070
040072
3306 040074
040074
040076
040100
040102
040104
3307 040106
040106
040110
040112
3308 040114
040114
040116
040120
040122
040124
3309 040126

BGNSFT

000023

L$SOFT::
000130
040126
000001
001130
040164
000001
002052
040236
000377
000004
000074

003130
040323
000001
004052
040344
000377
000001
000377

ENDSFT

040126

3310
3311 040126
3312 040164
3313 040236
3314 040323
3315 040344
3316
3317
3318
3319
3320 040372
3321 040432
040432
040434
040436
3322 040436
3323

122
120
104
124
101

125
105
105
105
125

116
122
123
123
124

.WORD L10027-L$SOFT/2
GPRML
.WORD
.WORD
.WORD
GPRML
.WORD
.WORD
.WORD
GPRMD
.WORD
.WORD
.WORD
.WORD
.WORD
GPRML
.WORD
.WORD
.WORD
GPRMD
.WORD
.WORD
.WGRD
.WORD
.WORD

.EVEN
L10027:
.NLIST BEX
MGTINT: .ASCIZ
GETMAN: .ASCIZ
GETTIM: .ASCIZ
GETPLA: .ASCIZ
GETMAX: .ASCIZ
.LIST BEX
.EVEN

MGTINT,0,1,YES
T$CODE
MGTINT
1
GETMAN,2,1,YES
TS$CODE
GETMAN
1
GETTIM,4,0,377,.4,60.,YES
T$CODE
GETTIM
377
TSLOLIM
TSHILIM
GETPLA,6,1,YES
T$CODE
GETPLA
1
GETMAX,10,D,377,1,255.,YES
T$CODE
GETMAX
377
TSLOLIM
TSHILIM

/RUN MANUAL INTERVENTION TESTS/
/PERFORM MANUAL PRINTING SPEED MEASUREMENT/
/DESIRED TIME INTERVAL FOR PRINTING SPEED CALCULATION/
/TESTING IN U.S.A/
/AUTODROP ERROR COUNT/

PATCH:
LASTAD

000000
000000

000001

L$LAST::
ENDMOD
.END

.BLKW

.EVEN
.WORD
.WORD

0
0

CZLPLFO LP2S, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 39-1
SEQ 0114

CHNSEC

a2l d T

Mo T I e

T2 T 121212 2 12 12 X 2

CHRALN
CHRGEN

002360
000403
002310
026366
016446
037124
002314
007046
010164
002332
002340
002334
037566
002326
002336
002330
002306

CK1
CLEAN
CLKCSR
CLKENA
CLKSET
CLKTCK
CLKTYP
CLKVEC
CLOCKP
COUNT
004770
COUNTD
CR
= 000015
CSRERR
003412
CTLEND
005600
CTLLOP
005232
CURADD 002556
CURCNT
002756
CSAU
= 000052
C$AUTO= 000061
C$BRK = 000022
C$BSEG= 000004
CsBSuB= 000002
C$CEFG= 000045
CsCLCK= 000062
C$CLEA= 000012
CsCLOS= 000035
CsCLP1= 000006
C$CVEC= 000036
C$DCLN= 000044
C$00DU= 000051
$DRPT= 000024
CsDU
= 000053
CS$EDIT= 000003
CSERDF
= 000055
CSERHR= 000056
C$ERRO= 000060
CS$ERSF= 000054
C$ERSO= 000057
CSESCA= 000010
CSESEG= 000005
CSESUB= 000003
CSETST= 000001
CSEXIT= 000032
CSGETB= 000026
CSGETW= 000027
CSGMAN= 000043
C$GPHR= 000042
CSGPLO= 000030
CSGPRI= 000040
CSINIT= 000011

CSINLP=
C$MANI=
CSMEM =
CS$MSG =
C$OPEN=

000020
000050
000031
000023
000034
C$PNTB= 000014
C$PNTF= 000017
CSPNTS= 000016
C$PNTX= 000015
C4QI0 = 000377
C$RDBU= 000007
CS$REFG= 000047
CSRESE= 000033
CSREVI= 000003
CSRFLA= 000021
CSRPT = 000025
C$SEFG= 000046
C$SPRI= 000041
C$SVEC= 000037
C$TPRI= 000013
DATPTH
026370
DEL
= 000177 G
DELCNT
003056
DFPTBL
002250
DIAGMC= 000005
DIGITS
004772
DROPED= 040000
DROPIT
005654
EF .CON= 000036
EF .NEW= 000035
EF .PUR= 000034
EF .RES= 000037
EF.STA= 000040
END2
011116
END4
022142
ERFLG = 000400
ERRCOD
002342
ERRFLG
002344
ERROR = 100000
ERRSVC
003116
ERRTBL
003120
ERR11
011422
ERR12
011476
ERR13
011561
EVL
= 000004
ESEND = 002100
ESLOAD= 000035
FAKE
005762
FF
= 000014
FFSET
017275
FLAG
002300
FLAGDA
004766
FLAGO7= 002000
FLAG26= 001000
FLAG96= 010000
FLSMSG
017351
FLSMS1
017443

(21212121~

BUFREP
BYTECO=
CCNT
CHAR

212l

ACTIVE= 020000
ADR
= 000020
ASSEMB= 000005
AUTCON
030346
AUTSEC
030230
BANDSW
014116
BGTLCH
014325
BGTSWI
004221
BIN2DA
004562
BITO
000001
BITOO
000001
BITO1
000002
BITO2
000004
BITO3
000010
BITO4
000020
BITOS5
000040
BITO6
000100
BITO?
000200
BITO8
000400
BITO09
001000
BIT1
000002
BIT10
002000
BIT11
004000
BIT12
010000
BIT13
020000
BIT14
040000
BIT1S
100000
BIT2
000004
BIT3
000010
BIT4
000020
BITS
000040
000100
BITé
000200
BIT?
BIT8
000400
BIT9
001000
BNDPAT
023426
BNDRDY
014234
003562
BNDSWI
BNDSW1
014204
BNDTST
032660
BNKSWI
003515
= 000400
BOE
BPID2S
032707
BPID26
032715
BPID27
032723
BP641ID
032731
BP64Q1
033005
BP64Q2
033101
BP64Q3
033176
BP64Q4
033272
BP961D
032757
B8P96Q1
033370
BP96Q2
033464
BP96Q3
033561
BP96Q4
033655
BUFADD
002354
BUFCNT
002356

FLSMS2
FLSSEL
FLS1
FSAU
=
F$AUTO=
F$BGN =
F$CLEA=
F$DU
=
F$END =
F$HARD=
F$HW
=
F$INIT=
F$JMP =
F$MOD =

017523
016650
016747
000015
000020
000040
000007
000016
000041
000004
000013
000006
000050
000000
F$MSG = 000011
F$PROT= 000021
F$PWR = 000017
F$RPT = 000012
F$SEG = 000003
F$SOFT= 000005
F$SRV = 000010
F$SUB = 000002
F$SW
= 000014
F$TEST= 000001
GETADR
037706
GETBND
040034
GETMAN
040164
GETMAX
040344
GETPLA
040323
GETTIM
040236
GETTYP
037752
GETVEC
037731
GSCNTO= 000200
G$DELM= 000372
G$DISP= 000003
GSEXCP= 000400
G$HILI= 000002
GSLOLI= 000001
GSNO
= 000000
GS$OFFS= 000400
G$OFSI= 000376
G$PRMA= 000001
G$PRMD= 000002
G$PRML= 000000
G$RADA= 000140
G$RADB= 000000
G$RADD= 000040
G$RADL= 000120
G$RADO= 000020
GS$XFER= 000004
GS$YES = 000010
HAMF IR
034370
HAMRDY
014032
HAMRSW
013714
HAMSW1
013771
HOE
= 100000 G
IBE
= 010000 G

IV
= 000040
IER
= 020000
IGNORE
010070
INDEX
002350
INHINT
002266
INTERR
011304
INTER1
003632
INTFAC
011342
INTHOL
011334
INTLK
013430
INTOO
037166
IOCTRL
005172
IODRV
004774
ISR
= 000100
IXE
= 004000
ISAU
= 000041
ISAUTO= 000041
ISCLN = 000041
Ispu
= 000041
ISHRD = 000041
ISINIT= 000041
I$MOD = 000041
I$MSG = 000041
IS$PROT= 000040
ISPTAB= 000041
ISPWR = 000041
ISRPT = 000041
I$SEG = 000041
I$SETU= 000041
ISSFT
000041
I$SRV
000041
IssuB
000041
I$TST
000041
JS$JMP
000167
LF
000012
LINCNT
002302
LINPER
023467
LINSEC
016464
LINSWI
016504
LINSW1
016570
LOBYTE= 000377
LOE
= 040000
LOT
= 000010
LPBUF
002456
LPCSR
002362
LPDROP
004312
LPERR
004360
LPERR2
023416
LPINTR
003016
LPM64
024071
LPM96
024152
LPVEC
002422
LSTCNT
002304
LUNIT
002320
L$ACP
002110
LSAPT
002036
L$SAUT
002070

2121~

Symbol table

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 39-2
SEQ 0115

L10010

002062

002010
040060
002056
002020
002024
002030
002266
002114
002014
002012
024375
024456
002260
002262
002300
010066
010346
011636
011332
011340

MRESET
MSGADR
MSGCNT
MULINE
NMLFLS

002270
002276

040126
017616
007365
002716
002616

036327
017203
007730
NOCLCK
NOCLK
004153
NOINTR= 000003
035451
NOLPO7
030451
NONBUF
030120
NONCHR
007772
NOTIM
032600
NOO?7
NRGT16
007246
007331
NRGT17
OFFLIN
023534
ONEFIL= 000001
ONLIN1
023574
ONLIN2
023675
ONLIN3
023773
OUTBUF
003164
OUTTIM 003712
O$APTS= 000000
= 000000
O$AU
O0$BGNR= 000000
0$BGNS= 000001
= 000000
OsDU
OSERRT= 000000
O$GNSW= 002001
O$POIN= 000001
0$SETU= 000000
PAPCHK
017042
PAPRDY
013605
PAPRSHW
013466
PAPSMI
003452

QUIET

RDYERR
READY
REFLIN

REPCNT
REPLUP
RESET1
RESET2
RESTOR
RESVEC
SFPTBL
SKIP3
SPCCNT
SPED1
SPED2
SPED3
STACHR
STATER=
STATUS
STRCNT
SVCGBL
=
SVCINS=
SvCsuB=
SVCTAG=
SVCTST=
SYMD
=
SYML
=
SYMS
=

SYyx

S$LSYM=
TABA64
TABA96
TABLDA

TABLEL
TABLE2
TABSTR

780764
TB0796
TICK
TIME

025370
025576
037642
037640

17
T8
T9
UAM
UNIT
USA

TIMOUT= 000002

013536
013674
040372
026426
002272
010064
001000
002000
002324
000000
000040
000100
000140
000200
000240
000300
000340
027266
035360
024024
002322
005606
003430
007673
017104
002656
022330
007464
007557
024701
010072
002266
030444
034366
023430
023452
023557
036310
000001
002516
002312
000000
000000
000000
000000
000000
000007
000005
000007
050215
010000
024754
025162
004754
035710
035744
036312

nnen

PAPSW1
PAPTST
PATCH
PATTER
PERIOD
PLOC
PNT
=
PRI
=
PRINTR
PRIOO
PRIO1
PRIO2
PRIO3
PRIO4
PRIOS
PRIO6
PRIO7
PRTCHR
PRTCTL
PRTSPD
PTABAD

1
e I I
Ea Y A A T T2 T I
I
T

014610
017716
026004
026430
027326
031046
033754
034432
036000
036456
037164
037636
037706
040126
024233
024314
024537
024620

TOF
= 000014
TXERR
003665
TXNOIN
003737
T$ARGC= 000001
T$CODE= 004052
TS$ERRN= 000012
T$EXCP= 000000
T$FLAG= 000040
T$GMAN= 000000
TSHILI= 000377
TSLAST= 000001
TSLOLI= 000001
T$LSYM= 010000
TSLTNO= 000014
TSNEST= 000000
T$NSO = 000010
T$NS1 = 000000
T$NS2 = 000005
T$PTNU= 000000
T¢LAVL= 177777
SEGL= 177777
TsSUBN= 000000
T$TAGL= 177777
T$TAGN= 010030
T$TEMP= 000000
T$TEST= 000014
T$TSTM= 177777
T$TSTS= 000001
T$$AUT= 010002
T$$CLE= 010005
T$$HAR= 010026
T$$HW = 010001
T$S$INI= 010004
T$$PRO= 010000
T$$SOF= 010027
T$$SRV= 010025
T$$SW = 010003
T$$TES= 010023
T1
010350
T1A
010364
T18
011142
T1C
010370
T10
034434
T11
036002
T12
036460
T2
011640
T3
014612
T3MOV
016444
T3SET
016442
T4
017720
15
026006
T6
026432

wrT
UUTEQO
VFUCMD
VFUINF
VFUINT
VFURDY
VFUSEL
VFUSE1
WORK

:ORKI

X$ALWA=
X$FALS=
X$OFFS=
X$TRUE=
X0
X1
X11
X2
X3
X4
XS
X6

027330 G
031050 G
03375€ G
000200 G
002316
002274
002346
003770
002352
004263
014425
014517
004037
004125
003160 G
003162
000040
000000
000040
000400
000020
035532
035544
035676
035556
035570
035602
035614
035626
035640
035652
035664
000403

X8
X9
SAAFLA=
SAFLAG= 000403
$BGNLE= 177777

$BRUMP=
$ERFLG=
$FLAG =
$F$AND=
$F $BAD=
$FSBLA=
$FSCAS=
$F SDEC=
$FSDO =
$FSEXI=

212121217

LS$HW

L$ICP
L$INIT
L$LADP
LSLAST
L$LOAD
L$LUN
LS$MREV
L $NAME
L$PRIO
L$PROT
L$PRT
L$REPP
L$REV
L$SOFT
L$SPC
L$SPCP
L$SPTP
L$STA
L$SW
LSTEST
LSTIML
LSUNIT
LO7M64
LO7M96
L10001
L10002
L10003
L10004
L10005
L10006
L100C?

002034
002072
002222
002052
002044
002102
002046
002064
002066
037646
002120
002016
0C2022
002250
002104
006016
002026
040436
002100
002074
002050
002000
002042
002122
002112

L10011
L10012
L10013
L10014
L10015
L10016
L10017
L10020
L10021
L10022
L10023
L10025
L10026
L10027
L26M64
L26M96
L27M64
L27M96
MANSPD
MAXERR
MGTINT
MOVMSG

(2121~

L$HPCP
L$HPTP

002011
002162
002076
002060
002132
002116
002040

Tl a ol ol el 2l T

L$HIME

002260
002106
010154
002032

i1 d 2121212 2 a1 122l 2l 2l 2l 2

L$AUTO
LsCCP
LSCLEA
LsCO
L$DEPO
L$DESC
L$DESP
L$DEVP
L$DISP
LSDLY
L$DTP
L$DTYP
L$DUT
LSDVTY
LSEF
LSENVI
LS$ETP
L$EXP1
L$EXP4
LSEXPS
L $HARD

1212121212 12 1 2

Symbol table

177777
000400
000330
000310
000401
000170
000150
000220

000340
000101
SFSFAL= 000405
$F $GOO= 000400
$FSIF = 000110
$FS$INC= 000210
$FSLOO= 000200
$F SNAM= 000160
$FSNO = 000403
$FSOR = 000320
$FSRTI= 000350
$SFSRTN= 000300
SFERTT= 000360
$SF$SEL
= 000140

CZLPLFO LP25, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 39-3
SEQ 0116

Symbol table
$F¢THE=
$FSTRU=
$FSUNT=
$FSWHI=
$FSYES=
$IFLEV=
$INH
=
$ISKO =
$ISK1 =
$ISK2 =
$ISK3 =
$ISK4 =
L0
=
SLOCTA=

ABS.

000330
000404
000130
000120
000402
177777
000403
000001
000001
000001
000001
000001
177777
177777

040436
000000
Errors detected:

SLSI1l1=
$LSKO =
$LSK1 =
S$LSTIN=
$LSTTA=
$NESTL=
$NSKO =
$NSK1 =
$NSK2 =
$NSK3 =
$NSK4 =
$NSKS =
$SAVE =
$SAVE2=

000
001
O

177777
000000
000000
000000
000000
177777
000110
000120
000110
000110
000110
000110
050215
050216

$SAVLE=
$SELLE=
$SS0
=
$SS1
=
$SS2
=
$SYMD =
$SYMS =
$TAGLE=
$TAGNU=
$TEMP =
$TSO
=
$TS1
=
$7S2
=
$TS3
=

177777
000001
050460
000402
050216
000070
000007
177777
050464
050463
050463
050460
050455
050446

(RW,I,GBL,ABS,OVR)
(RW,I,LCL,REL,CON)

s++ Assembler statistics

Work
file
reads: 12716
Work
file writes: 6950
Size of work file: 58520 Words
( 229 Pages)
Size of core pool: 19714 Words
( 75 Pages)
Operating system: RSX-11M/PLUS (Under VAX/VMS)
Elepsed time: 00:38:50.19
CZLPLFO,CZLPLFO/NL:TOC/-SP=SVC34/ML,SPMACJ/ML,CZLPLFO.P11

$TS4
=
$1SS
=
$TS6
=
$TS7
=
sV
=
$$ARGC=
$$BYTE=
$$CASE=
$3DST =
$SELOC=
$$ERFL=
$$FLAG=
$$FROM=

050432
050273
050274
050264
000403
000000
000000
000404
000037
000402
000000
000001
000000

$$INH =
$3LOC =
$$LOCN=
$SREG =
$SRCTU=
$$RTN1=
$SRTN2=
$3SRC =
$8TGSV=
$$TGS1=
$$TGS2=
$$TO
=
$$$TAG=

000403
037626
000000
177777
000000
000000
000000
000027
050217
050216
000000
000000
050000