Digital PDFs

AH-E635F-MC

October 1985

117 pages

Original

4.5MB

view download

OCR Version

4.2MB

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

OCR Text

LP25 LP26
LP27 LPO7

AH-E635F-MC

LP25,26,27,07 DIAG
CZLPLFO

;

10F1

OCT 1985

EIEIEII :

fe w

1
SER DOCUMENTATION C2LPLFO

SEQ

MACRO ¥05.02

Wednesday

10-Apr-85 09:07

Page 3

.REM &
IDENTIFICATION
PRODUCT

CODE

PRODUCT

NAME:

AC-E634F-MC

CZLPLFQ LP25 26/27/07 DIAG

MAINTAINER:

SMALL

PRODUCT

10-APR-85

DATE:

AUTHOR :

SYSTEMS DIAGNOSTICS

JOHUN CHATALIAN

DON RICE

RALPH SCHAUBER
GLENN PERNA

THE INFORMATION IN THIS DOCUMENT IS
SUBJECT
TO
HANGE WITHOUT
NOTICE
AND
SHOULD
NOT BE CONSTRUED AS A COMMITMEMT 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

RELIAB1.ITY

DIGITAL

1979,1983,1985 BY DIGITAL EQUIPMENT CORPORATION

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:

DIGITAL
DEC

POP
DECUS

UNIBUS
DECTAPE

MASSBUS

OR ITS

000

LSER DOCWMENTATION CZLPLFO

MACRO Y05.02

Wednesday

10-Apr-85 09:07

Page 4

SEQ 0002

e e e po pa pe

WVBWNLO

RPNV MNON

NOUVMBWMHHO

PERFORMANCE

DEVICE INFORMATION TABLES
TEST

[s,]

ERROR INFORMATION

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

AND PROGRESS REPORTS

SUMMARIES

LSER DOCLTMMENTATION CZLPLFO

MACRO Y05.02

Wednesday

10 Apr 85 09:07

Page S

SEQ 0003
1.0

GENERAL

1.1

PROGRAM ABSTRACT

INFORMATION

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 CAPABILITY OF THE LINE PRINTER.THE INDIVIDUAL TESTS ARE IDENTIFIED AS

FOLLOWS:

TEST

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
SPURIOUS 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 DESTRIPTION OF
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT.

1.2

SYSTEM REQUIREMENTS

SYSTEM REQUIREMENTS
R TEST STATION IS REQUIRED CONSISTING OF A POP-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 RKOS/RK11 DISK DRIVE TO
AFFORD A MEANS TO LOAD THE DIAGNOSTIC PROGRAM. A KW1l-L LINE
TIME CLOCK OR A KW11-P PROSRAMMABLE REAL-TIME CLOCK IS NECESSAR
Y
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 S-1

SEQ 0004

1.3

RELATED DOCUMENTS AND STA“IDARDS
PROJECT PLAN FOR LP2S DIAGNOSTIC PROGRAM

DOCUMENT ;
DATE:

RAS-78-008-00-U

6-SEP-78

DIAGNOSTIC ENGINEERING FUNCTIONAL

FOR

CZLPLAO LP25

DATE:

DIAGNOSTIC

29-SEP-78

LINE PRINTER,

(PRELIMINARY)

250 LPM

SPECIFICATION

PROGRAM

(PRELIMINARY)

(LP25) PURCHASE SPECIFICATION

DATAPRODUCTS 300 LPM LINE PRINTER FIELD MAINTENANCF
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.5

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 DULVICE 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 TC KUN 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.
MUST BE PRESET TO 6 LINES PER INCH.

VERTICAL PRINTING

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.
DEPOSITED INTO THE SUBSEQUENT MEMORY ADDRESS.

2.0

177777 IS

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
CONTINUE
PROCEED
EXIT
ADD

DISPLAY

START THE DIAGNOSTIC FROM AN INITIAL STATE
START THE DIAGNOSTIC WITHOUT INITIALIZING
CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER tC)
CONTINUE FROM AN ERROR HALT
RETURN TO XXDP+ MONITGR (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

ZFLAGS

CLEAR ALL FLAGS (SEE SECTION 2.3)

DROP

FLAGS

TYPE THE

STATE OF

ALL FLAGS

(SEE SECTION 2.3)

A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS.

YOU MAY,

2.2

FOR EXAMPLE,

TYPE

“STA”

INSTEAD OF

“START".

SWITCHES

THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION
.
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS.
ALL OF THE LEGAL
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH.
IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY "DDDDD".
SWITCH

EFFECT

/TESTS:LIST

EXECUTE ONLY THOSE TESTS SPECIFIED IN
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 FO 64000)

/PASS:000DD

/FLAGS :FLGS

/EQP :DDDDD

SET

SPECIFIED FLAGS.

IN SECTION 2.3.

FLAGS

REPORT END OF PASS MESSAGE

ARE

DESCRIBED

AFTER EVERY

USER DOCUMENTATION CZLPLFO

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 5-3

SEQ 0006
DODDD PASSES ONLY.

/UNITS:LIST

TEST/ADD/DROP ONLY

(ODDDD =

1 TO 64000)

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

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

START
RESTART
CONTINUE
PROCEED
DROP
ADD
PRINT
DISPLAY

TESTS

PASS

FLAGS

EOP

UNITS

X
X

X
X
X

X
X
X
X

X
X
X

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

ESFECT

HOE

HALT ON
RUNTIME
LOOP ON
INHIBIT
INHIBIT

IXRs

ERROR - CONTROL IS RETURNED TO
SERVICES COMMAND MODE
ERROR
ALL ERROR REPORTS
ALL ERROR REPORTS EXCEPT
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

TM L]

LOE
IER«
IBRs

CALLED BY PRINTX MACRO'S)

USER DOCUMENTATION CZLPLFO

MACRO Y05.02

wWednesday 10-Apr-85 09:07

Page 5-4

SEQ 0007
BOE
UAM
ISR

“BELL" CN ERROR
UNATTENDED MODE (NO MANUAL INTERVENTICN)
INHIBIT STATISTICAL REPORTS (DOES NOT
APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT
STATISTICAL REPORTING)
INHIBIT PROGRAM DROPPING OF UNITS
EXECUTE AUTODROP CODE
LOOP ON TEST
EXECUTE EVALUATION (ON DIAGNOSTICS WHICH
HAVE EVALUATION SUPPORT)

IDR
ADR
LOT
EVL

*ERROR MESSAGES ARE DESCRIBED

IN SECTION 3.1

SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS.
YOU MAY
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH.
FOR EXAMPLE,
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS

AND TYPE A

“BELL" ON ERROR,

YOU MAY USE THE FOLLOWING STRING:

/FLAGS:L
: IER:BO
OE
E

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 XXDPe« 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)

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

2.5

(L)

ANSWER

3 IF LP27
Y OR N,

(0)

SOFTWARE QUESTIONS

AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART
OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOF TWARE
PARAMETERS.
THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC
OPERATION MODES.
YOU WILL BE PROMPTED BY “CHANGE SW (L) ?*
IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING
"Y".
THE SOFTWARE 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 ScCONDS

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) S5 ?

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

AR 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 0 OR 1.
BELOW IS A SIMPLE WAY
TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS.
# UNITS (D)

8<CR>

UNIT 1
CSR ADDRESS (0) ?
160000<CR>
SUB-DEVICE ¢ (0) ?
0<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) ?
SUB-DEVICE ¢ (0) ?

Q-FACTOR (0) 0 ?

160000<CR>
2<CR>
<CR>

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

Q-FACTOR (0) 0 ?

160000<CR>
4<CR>
<CR>

UNIT 6
CSR ADDRESS (0) ?
160000<CR>
SUB-DEVICE & (0) ?
5<(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 0009
SUB-DEVICE # (0)
Q-FACTOR (0) 0 ?

€<CR>
1<CR>

UNIT 8
CSR ADDRESS (0)
160000<CR>
SUB-DEVICE ¢ (0) ?
7<CR>
Q-FACTOR (0) 1 2
<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.
LET'S BUILD THE SAME TABLE USING THE MULLTIPLE SPECIFICATION
FEATURE.
# UNITS

(D)

8<CR>

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

(0)

SUB-DEVICE & (0)
Q@-FACTOR (0) 0 ?

160000<CR>

2 S<CR»
O0<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 FITM T 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

THE

SECOND.

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 BELOW.
¢ UNITS

(D)

8<CR>

USER DOCUMENTATION CZLPLFO

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 5-7

SEQ 0010

UNIT 1
CSR ADDRESS (0) ?
SUB-DEVICE @ (0) ?

Q-FACTOR (0> 0 ?

160000<CR>
0-7<CR>

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
TO START

(XXDP+)

JP THIS PROGRAM:

BOOT XXDP.

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

TYPE

"R NAME",

THERE

WHERE NAME IS THE NAME OF THE BIN OR BIC

FILE

FOR

TYPE

"START”

ANSWER THE

“CHANGE HW

ANSWER ALL

THE HARDWARE QUESTIONS

ANSWER THE

“CHANGE SW" QUESTION WITH

THIS

(IF

PROGRAM

QUESTION WITH

"Y*

“N*

WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE

DEFAULTS FOR FLAGS AND SOF TWARE PARAMETERS.

ARE DESCRIBED IN SECTIONS 2.3 AND 2.5.

THESE DEFARULTS

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
+WHERE;

ON UNIT NUMBER

NAME

TYPE

= ERROR TYPE (SYS FATAL,

TST

NUMBER PC:XXXXXX

DIAGNOSTIC NAME

DEV FATAL,

NUMBER = ERROR NUMBER
UNIT NUMBER = 0 - N (N IS LAST UNIT

HARD OR SOFT)

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

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

SWITCH.

"HAMMER BANK INTERLOCK SWITCH FAILURE"

FAULTY

INTERLOCK

SWITCH.

“"CHARACTER BAND INTERLOCK SWITCH FAILURE"
FAULTY INTERLOCK SWITCH.
“NOTE
ERROR MESSAGES ¢11 AND 912 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.

“OUTPUT 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

SEQ 0012
WITHIN A GIVEN TIME.

"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 OPERATICN OF THE READY INTERLOCK SWITCHES.
TEST
3
FORMS LENGTH SELECTION
VERIFIES ALL POSITIONS OF THE FORM LENGTH SELECT SWITCH FOR PROPER
PAPER MOVEMENT.

TEST

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

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

CHECKS FOR PROPER PRINTING OF ALL PRINTABLE CHARACTERS.

TEST 7
NON-PRINTABLE CHARACTERS

CHECKS FOR PROPER DETECTION OF ALL NON-PRINTABLE CHARACTERS.

ALSO, ON PRINTERS WITH 64 CHARACTER BANDS, IT CHECKS TO MAKE SURE
THAT CODES (140 THRU 177) ARE CONVERTED TO CODES (100 THRU 137).

TEST 8
BAND PATTERN

USER DOCUMENTATION CZLPLFO

MACRO Y05.02

Wednesdsy

10-Apr-85 09:07

Page 5-10

SEQ 0013
PRODUCES AN IMAGE OF THE ENTIRE BAND PATTERN.
TEST

SPURIOUS HAMMER FIRING
CHECKS FOR SPURIOUS HAMMER FIRINGS BY TAKING NOTE OF ANY
PRINTING THAT MAY OCCUR OUTSIDE A WEDGE PATTERN.
TEST 10
PRINT CCNTROL

CHECKS THAT CHARACTERS IN EXCESS OF 132 CHARACTERS ON A LINE

ARE DISREGARDED.
TEST

CHECKS MULTIPLE LINE ADVANCE
CHECKS THE MULTIPLE LINE ADVANCE FOR PROPER PAPER MOVEMENT.

TEST 12
CHARACTER ALIGNMENT
CHECKS CHARACTER ALIGNMENT BY OVERPRINTING EACH LINE.

* d—

CILPLFO LP2S, LP26, LPO7, LP27

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 7
SEQ 0014

6838
689
690
691
692
693
694
695
696
697
698
099
700
701

LTITLE
CZLPLFO LP25,
.ENABL AMA
.SBTTL

705
706

707
708
709
710
711
712
713
714
715

16
17
718

719
720
721

LPO7,

LP27

DIAGNOSTIC

IDENTIFICATION

PRODUCT CODE:

AC-E634F
-MC

PRODUCT

CZLPLFO LP25/26/27/07 DIAG

NAME:

MAINTAINER:

SMALL

AUTHORS:

JOHN CHATALIAN
DONALD RICE
RALPH SCHAUBER
GLENN A. PERNA

DATE

10-APR-85

702

703
704

LP26,

SYSTEMS DIAGNOSTICS

;COPYRIGHT (C) 1979, 1983, 1985 BY
:DIGITAL EQUIPMENT CORPORATION, MAYNARD MASSACHUSSETTS 01754
:

THIS

:
;
:
;
i
:

SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE.
THIS
SOFTWARE,
OR
ANY
OTHER
COPIES
THEREC
", 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 8Y DIGITAL
EQUIPMENT CORPORATION.

;
;

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

SOFTWARE

IS FURNISHED UNDER

A LICENSE FOR USE

ONLY

CZLPLFO LP2S, LP26, LPO7, LP27

MACRO Y05.02

Wednesday 10 Apr-85 09:07

Page 8
SEQ 0015

746
747
748
749
750
751
752

753
754
755
756
757
758

759

760
761
762

THIS DIAGNOSTIC PROGRAM VERIFIES PROPER OPERATION OF THE LP2S,
LINE PRINTER, AND IT'S ASSOCIATED INTERFACE MODULE.
ANY MIX OF LP25,
SIXTEEN UNITS.

LP26,

LP27,

LPO7 PRINTERS MAY BE

TESTED,

LP26,

LP27,

LPO7

TO A TOTAL OF

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

INTERVENTION.

®e

®s

FUNCTIONAL DESCRIPTION

THE PROGRAM IS COMPATIBLE
XXDP
.

THE PDP-11

DIAGNOSTIC

SUPERVISOR,

ACT/SLIDE,

729

730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745

723
724
725
726
727
728

IDENTIFICATION

VERSION

A-0

HISTORY

REV. A-0
INITIAL RELEASE
REV-C SUPERVISOR / XXDPs COMPATABLE

27 SEP-79

SCHAUBER

REV.

B-0

REV.

C-0

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

REV.

L-0

INCLUDE LPO7 SUPPORT

12-JAN-81

REV.

E-O

INCLUDE LP27 SUPPQORT

7-APR-83

REV.

F-0

MODIFIED CODE TO WORK ON PDP 11/73
10 APR-85 BY HOWARD MARSHALL

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

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
772 000000
773
174
775
776
777
778
779
780
8.
782
783
784
785
786
787
788 0C0000

789
790
791
792 002000
793 0020G0
794
795 002000

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

.TITLE
CZLPLFO LP25,
.SBTTL PROGRAM HEADER

LP26,

.MCALL
SvC
SvC
ASSEMBLY
DIAGMCALLS
.MCALL
STRUCT
STRUCT

5
S

000005
020005

-MCALL

000000
000000
000000

000000
000000

002000

.ENABL AMA
.ENABL ABS
.ENABL LC
.=2000

0
0
O
O
O

1 INITIALIZE SUPERVISOR MACROS
;DON'T CALL ALL MACROS. s
P
"
"
.
"
:STRUCTUPED MACRO PACKAGE

IFCOND,ENDINC,ENDSELECT,ENDDO,
CASE ,ENDIF
ENDDEC
,REPEAT
R,

SLSTIN=
SLSTTAG=
$LOCTAG=

SVCINS=
SVCTST=
SsvCsus=
SVCGBL=
SVCTAG=

LPO? TEST

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

-MCALL

000000
000000
177777

=
=

LP27,

0
0
-1

;LIST
;LIST
;LIST
;LIST
;:LIST

;
;

LIST ASSY CODE LEFT
LIST TAGS LEFT

INSTRUCTIONS
TEST TAGS
SUBTEST TAGS
GLOBAL TAGS
OTHER TAGS

BGNMOD
POINTER BGNSW,BGNSFT

103
132
114
120
114
00C
000
000
106
060

000000
000060
037646
040060
002250

002266

LS$NAME: :

LSREV: :
L$DEPO::

L$UNIT::
LSTIML::

LSHPCP::

L$SPCP::

LSHPTP: :
L$SPTP::

HEADER

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

CZLPL,F,0,60,!,340

/C/
72/
/L/
/p/
/L/
0
0
0

.ASCII

/F/

.ASCII

.WORD

L $HARD

.WORD

L$SOFT

.WORD

LSHW

.WORD

L$SW

;DIAGNOSTIC NAME

;sREVISION LEVEL
;0

;:NUMBER OF UNITS
;LONGEST

TEST

TIME

;POINTER TO H.W.

QUES.

;POINTER TO S.W.

QUES.

sPTR.

TO DEF.

H.W.

;PTR.

TO S.W.

PTABLE

;$$$
;888

CZLPLFO LP25,

LP26.

LP27,

LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 9-1
SEQ 0017

PROGRAM HEADER

002026
002026
002030
002030
002032
002032
002034
002034
002036
002036
002040
002040
002042
002042
002044
002044
002046
002046
002050
002050
002051
002052
002052
0C2054
0C2056
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
0021156

040436
000000

000000

000001
000000

002132
000340
000000

000000

003
003
000000
000000

000000
002222

000000
000000

000000
000000
002162

104035
000000
006016
010154
002260
002122

000000

L$SLADP::

L$LAST

.WORD

L$DISPATCH

.WORD

340

.WORD

.BYTE
.BYTE

CSREVISION
C$EDIT

.WORD
.WORD

0
0

.WORD

L$OVTYP

.WORD

L.$DESC

EMT

E$LOAD

.WORD

L$INIT

.WORD

L$CLEAN

.WORD

L$AUTO

.WORD

L$PROT

.WORD

L$STA::
Ls$CO::

L$DTYP::
LS$APT::

L$DTP::

LS$PRIO::
LSENVI::
LSEXPL::

L$MREV::

LSEF::

L$SPC::
LSDEVP:
:
LSREPP::

LS$EXPS:
:
LSEXPS::

L$AUT::
L$DUT:
:
L$LUN:
:

L$DESP:
:
L$LOAD::
LSETP:
:
L$ICP::

LS$CCP::
L$ACP:
:
L$PRT::

L$TEST::

L$OLY:

:DIAG.

.WORD

END ADDRESS

:RESERVED FOR APT STATS

;:DIAGNOSTIC TYPE
;APT EXPANSION

iPTR.

TO DISPATCH TABLE

;DIAGNOSTIC RUN PRIORITY

;FLAGS DESCRIBE HOW IT WAS SETUP
;EXPHANSION WORD
:SVC REV AND EDIT #

;DIAG.

EVENT FLAGS

POINTER TO DEVICE TYPE LIST

;:PTR.

TO REPORT CODE

;PTR.

TO ADD UNIT CODE

;PTR.

TO DROP UNIT CODE

:LUN FOR EXERCISERS TO FILL

;POINTER TO DIAG.

DESCRIPTION

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

TO INIT CODE

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
N

000000

000000
1771777
177777

.WORD

LS$HIME:

;PTR.

TO HIGH MEM

: THE FOLLOWING IS A LOAD PROTECTION TABLE
L$PROT::

BGNPROT

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

CZLPLFO LP25,

LP26.

LPZ7, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 10
SEQ 0019

DISPATCH TABLE
806
807
808
809

.SBTTL

3o
i THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST.

gig

812
813 002130
002130
002132
002132
002134
002136
002140
002142
002144
002146
002150
002152

814
gig

002154
002156
002160

IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST.

DISPATCH
.WORD
12
L$DISPATCH::
.WORD
T1
.MORD
T2
.MORD
T3
.WORD
T4
.MORD
TS
.WORD
T6
LWORD
T7
.WORD
T8
.WORD
T9

000014

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

.WORD
LWORD
.WORD

:X= NUMBCR OF TESTS

T10
Tii
Ti12

H
;FOR USE ON REVISION C OF THE SUPERVISOR

817 002162
002162
002162
002165
002170
002173
002176
002201
002204
002207
002212
002215
002220
818 002222
002222
002222
002225
002230
002233
002236
002241

0022434

819
820
821

DISPATCH TABLE

103
120
060
111
040
111
105
104
107
123
103

114
065
120
054
062
114

067

132
114
040
116
120
116
122
111
116
124
000

120
054
062
114
067
120

000

114
106
114
105
122
124
040
101
117
111

062
114
066
120
054
060

L$DESC::

DESCRIP
.ASCIZ

.EVEN
DEVTYP
L$DOVTYP::
.ASCIZ

.EVEN

<CZLPLFO LINE PRINTER DIAGNOSTIC>
/CZLPLFO LINE PRINTER DIAGNOSTIC/

<LP25,LP26,LP27,LP0O7>

9HLP25,LP26,LP27,LPO7%

CZLPLFO LP25, LP26,

LP27,

LPO7

MACRO Y05.02

Wednesdsy 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
832 002250
833 002252
834 002254
835
836
837
838
839 002256
840
841
842
843
844
845 002260
002260
846
847
848
849 002260
002260
850
851 002260
852
853 002262
002262
002262

.SBTTL

DEFAULT HARDWARE P-TABLE

e
S

THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF

; THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE
: IS IDENTICAL TO THE RUN-TIME P-TABLE.
BGNHW
.WORD

DFPTBL
L10001-L$HW/2

000200
000000

.WORD
.WORD
.WORD

177514
200
0

sL P25 REGISTER ADDRESS
iL P25 INTERRUPT VECTOR
H 0 IF LP25
i 1 IF LP26
2 IF LPO7
: 3 IF LP27

000000

.WORD

000004

177514

L$HW::
OFPTBL::

0 IF 64 CHAR BAND
1 IF 96 CHAR BAND

;INTERRUPT VECTOR PRIORITY IS 4 AND CANNOT BE CHANGED
L10001:

L$AUTO::

0002 10

104461

ENDHW

BGNAUTO
NOP

L10002:

; NOT USED

ENDAUTO
TRAP

C$AUTO

CZLPLFO LP25,

LP26,

LP27,

LPO7

MACRO Y05.02

Wednes.u:v

“-Apr-85 09:07

Page 12
SEQ 0021

SOFTWARE P-TABLE
855
856
857
858
859
860
861
862 002264
002264
002266
002266
863
864 002266
865
866
867 002270
868
869
870 002272
871
872
873
874 002274
875
876
877 002276
878
879
880 002300
002300
881

.SBTTL

SOFTWARE P-TABLE

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

BGNSHW

000005
L$SW::
SFPTBL::
000000

INHINT:

SFPTBL

.WORD

L10003-L$SW/2

.WORD

;0 IF NO INTERVENTION TESTS

:1 IF MANUAL INTERVENTION TESTS
000000

000074

MANSPD:

PERIOD:

.WORD

60.

;DEFAULT IS NO

:0 FOR AUTOMATIC PRINT SPEED

i1 FOR MANUAL PRINT SPEED TEST
;AUTOMATIC DEFAULT VALUE

;OPERATOR TO SELECT TIMING VALUE

:FROM 4 TO 60 SECONDS. INITIAL
:DEFAULT VALUE IS¢ 60 SECONDS.

000001

000005

USA:

MAXERR:

.WORD

1 FOR TESTING IN U.S.A,

AUTODROP ERROR COUNT

i O FOR TESTING IN G.B./EUROPE
: & DIFFERENT BAND PATTERNS &

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

I/0 MACRO DEFINITIONS
883
884
885
886
887
888
889
890
891
892
893

OUTPUT
MOV
MOV
MOV
ERR
MOV

.ENDC

898
899

.ENDC

901
902

.ENDM

.MACRO

.IF B
.ENDC
.IF NB

922

.ENDM

925

923
924

926
927
928
929

930
931
932
933 002300

i
:
;
;

#LPERR ,ERRSVC

MOV

#1,BUFREP

PRINT ONCE DEFAULT

PRINTS ,BUFREP

SUPPLY PRINT COUNT

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

ERR
MOV

.ENDC
.IF 8 PRINTS
MOV
.ENDC
.IF NB PRINTS
.ENDC

iSAVE_THE BUFFER ADDRESS
:BUFFER BYTE COUNT BFCNT
; OUTPUT TO ALL UNITS

ERR, ERRSVC

.IF NB PRINTS
MOV

900

ADD,BFCNT,ERR,PRINTS
ADD, BUFADD
BFCNT, BUFCNT
#-1,PRINTR

ERR
MOV

.ENDC
.IF B PRINTS

896

918
919
920
921

.MACRO

.ENDC
.IF N8

897

913
914
915
916
917

I/0 MACRO DEFINITIONS

.IF B

894
895

903
904
905
906
907
908
909
910
911
912

.SBTTL

#LPERR ,ERRSVC

ERR, ERRSVC

#1,BUFREP

PRINT ONCE DEFAULT

MOV

PRINTS ,BUFREP

;

SUPPLY PRINT COUNT

MOV
JSR

UNIT,PRINTR
PC,IOCTRL

i SUPPLY UNIT NUMBER
;CALL THE DRIVER

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

A TIMEOUT OF 20.
1

SECONDS IS FURNISHE.

A PRINTER SPEED OF

300 LPM

BASED ON THE FOLLOWING ASSUMPTIONS

;
2
A REPEAT COUNT OF 88 MAX. ( 1 PAGE OF LINES AT 8 LPI.
;
3
AN INITIAL BAND STARTUP TIME OF 2.5 SECONDS.
Pdiddidicisiistiiiiiississsisisisessises
ENDMOD

)

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
940

.SBTTL

GLOBAL AREAS

BGNMOD
X

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

941
942
943
947 002300

EQUALS

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

BIT15==
B8IT14==
BIT13==
BIT12==
BITi1==
BIT10==
B8IT09==
B8ITO8==
BITO7==
B8IT06==
BITOS==
BITO4==
BIT03==
BIT02==
BITO1==
B8IT00==

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

001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

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

BITO09
BITO8
BITO7
BITO06
BITOS
BITO04
BITO3I
BITO2
BITO1
BITOO

: EVENT FLAG DEFINITIONS

:
000040
000037
000036
000035

000034

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

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

32.
31.
30.
29.
28.

; PRIODRITY 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
(020C00) CONTINUE COMMAND WAS ISSUED
(010000) A NEW PASS HAS BEEN STARTED
(004000) A POWER-FAIL/POWER-UP QOCCURRED

CZLPLFO LP25,

LP26,

LP27,

LPO7T

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 14-1
SEQ 0024

GLOBAL AREAS
000200
000140
000100
000040
000000

PRI0O4== 200
PRIO3== 140
PRIO2=- 100
PRIO1=- 40
PRIOO== 0

;:OPERATOR FI AG BITS

948
952
953
954

955
956
957
958
959
960
961
962
963
964

965
966
967

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

978

979
980
981
982
983
984
985

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

LF==12
FF=214

CR==15
DEL==177

;PRIORITY LEVEL DEFINITIONS
000340

000300
000240
000200
000140
000100
000040
000000

968

969
970
971
972
973
974
975
976
977

EVLs==

LOT==
ADR==
IDU==
ISR==
UAM==
B0E==
PNT==
PRI==
IXE==
IBE==
IER==
LOE==
HOE==

PRIO7==
PRI0O6==
PRIOS==
PRIO4==
PRIC3==
PRIO2==
PRIO1==
PRIOO==

340
300
240
200
140
100
40
O

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

000003

STATER= 1
TIMOUT= 2

NOINTR=

: TRANSMITTER STATUS ERROR IN OUTPUT
: TIMEOUT ERROR IN IO DRIVER MODULE

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

;GROSS TIME OUT ERROR.

; INTERRRUPT.
;NOT CALLED

-SBTTL

;RO

:R1
;R2

;

iR3

THE SPECIFIED DID NOT

THEREFORE IO DRIVER MODULE WAS

GENERAL REGISTER USAGE DEFINITIONS

RESERVED FOR USE BY THE MACRO PACKAGES

MAXIMUM NUMBER OF UNITS TO TEST LSUNIT-i
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
"

:R6
:R7

STACK POINTER
PROGRAM COUNTER

; LP STATUS TABLE BIT DEFINITIONS
100000
040000
020000
010000

002000
001000
000377

ERROR = BIT1S
OROPED = BIT14
ACTIVE = BIT13

FLAG96

= BIT12

;BIT11

FLAGO7 = BIT10
FLAG26 = BIT9
LOBYTE = 377

;

96 CHAR BAND

;SEE DEVICE CODE BELOW
;SEE DEVICE CODE BELOW
i BIT MASK FUR CLEARING LOBYTE

(COUNTER)

DEVICE CODE

BITS 9 AND 10 ARE A DEVICE CODE
BIT 10

BIT 9

O rO0

1006
1007
1008
1009
1010
1011
1012
1013
1014
1015

;R4

;RS

986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005

SUCH THAT:

DEVICE
LP25
LP26
LPO?
LP27

CZLPLFO LP2S,

LP26, LP27, LPO7

MACRO Y0S.02

Wednesday 10-Apr-85 09:07

Pege 1S

SEQ 0026

GENERAL REGISTER USAGE DEFINITIONS

.SBTTL

GLOBAL DATA SECTION

000000
000000
000000
000000
000000
000000
000000
000000
000000

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

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

OO0O0O0OO0O000

000000
000000

PTABAD:
PRINTR:

.WORD
.WORD

002326

000000

CLKTYP:

.WORD

0C2330
002332
002334
002336
1044 002340
1045 002342
1046
1047 002344
1048 002346
1049
1050
1051
1052 002350
1053 002352
1054
1055
1056
10;7 002354
1058
1053 002356
106
1061 002360
1062
1063
1064
1065
1066
1067 002362
1068
1069
1070 002422
107¢
1c72
1073 002456

000000
000000
000000
000000
000000
000000

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

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

000000

ERRFLG:

.WORD
.WORD

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

INDEX:
VFUCMD:
H
+MACRO

.WORD
.WORD

O
O

VARIABLES

000000

BUFADD :

.WORD

000000

BUFCNT :

WORD

+BUFFER ADDRE®S OF DATA TO BE SENT
:TO THE PRINTER
:NUMBER OF BYTES TO TRANSFER

000000

BUFREP;
H
H
;

.WORD

000000

000000
000000

WT:

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

$MACRC5S.

(2]

:P-TABLE ADDRESS RETURNED BY GPHARD
:SELECTED LINE NO.
:MACRO
;CLOCK TYPE CONTROL WORD
;1= NO CLOCK AVAILABLE
i2= KW11-L LINE CLOCK
:3= KW11-P PROGRAMABLE CLOCK
: CLOCK P-TABLE ADDRESS
;CLOCK CSR ADDRESS
i 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
iEXITS BACK TO IO DRIVER EQUAL
;1 IF ERROR WAS EXPECTED.

OO0OO0O0OO0OO0

1036
1037
1038
1039
1040
1041
1042
1043

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

NUMBER OF TIMES TO PRINT

;LP25S PARAMETER WORD TABLES

000020

H
LPCSR:

000016

LPVEC:

000020

LPBUF;

.REPT
.WORD
.ENDOR
.REPT

16.
O

; ADDRESS OF CSR FOR EACH LP11

.WORD
O
.ENDR
.REPT 16.

INTERRUPT VECTOR ADDRESS

; 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
10°4
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
1°07
1108
1109
1110
1111
1112
1113
1114
1115
1116 003164
1117
1118
1119

000020

000000
000020

.WORD
.ENDR
STATUS: .REPT
.WORD
.ENDR
CURADD: .REPT
.WORD
.ENOR
MSGCNT: .REPT
.WORD
.ENDR
REPCNT .REPT
.WORD
.ENDR
MSGADR: .REPT
.WORD
.ENDR
CURCNT: .REPT
.WORD
.ENDR
LPINTR: .REPT
.WORD
.ENDR
DELCNT: .REPT
.WORD
.ENDR
ERRSVC: .WORD
ERRTBL
::
."O0RD
.ENDR

000000
000000

UNIT STATUS

CURRENT ADDRESS OF OUTPUT DATA BYTE

.REPT
0

WORK
::
WORK1:

.WORD
.WORD

.SBTTL

OUTPUT BUFFER

0
0

16.

INITIAL BYTE COUNT

NO.

;

ADDRESS OF DATA TO PRINT

;

CURRENT COUNT REMAINING TO OUTPUT

;

INTERRUPT ROUTINE ADDRESS

;

TIMEOUT DELAY COUNTER

TIMES TO REPEAT MESSAGE

QUTBUF
:

.EVEN
.REPT
.BYTE
.ENDR

150.
0

START OF DATA

ERROR ROUTINE DISPATCH ADDRESS

ERROR COUNT FOR EACH UNIT

;

WORK AREA

;150 BYTES IS RESERVED FOR THE OUTPUT BUFFER AREA
000226

OF MSG FOR REPEAT RESTORE

CZLPLFO LP25,

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
112;
112
1129
1130
1131
1132

1133
1134
1135
1136
1137
1138
1139
1140
114,
1142
1143
1144
1145
1146
1147
1148

.SBTTL

.NLIST BEX
AN

003412
003430
003452
003515
003562
003632
003665
003712
003737
003770
004037
004125
004152
0C4221
004262

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
17
101
106

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

i THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,
; MESSAGES, AND ASCII INFORMATION THAT ARE USED IN
; MORE THAN ONE TEST.
$-CSRERR: ,ASCIZ /PRINTER ERROR/
RDYERR: .ASCIZ /PRINTER NOT READY/
PAPSWI: .ASCIZ /PAPER LOW INTERLOCK SWITCH FAILURE/
BNKSWI: .ASCIZ /HAMMER BANK INTERLOCK SWITCH FAILURE/
BNOSWI: ,ASCIZ
/CHARACTER BAND INTERLOCK SWITCH FAILURE/
INTER1: _ASCIZ
/TRANSMIT INTERRUPT TIMEQUT/
TXERR:
L.ASCIZ
/PRINTER STATUS ERROR/
QUTTIM: .ASCIZ
/QUTPUT TIMEOUT ERROR/
TXNOIN: ._ASCIZ
/UNIT FAILED TO INTERRUPT/
WTEQO: .ASCIZ
/ALL UNITS HAVE BEEN DROPPED..RESTART../
VFUSEL: .ASCII /sNSAINSURE THAT VFU-FLS SWITCH ON EACH UNIT IS IN THE /
VFUSEl: .ASCIZ /«#NsA“VFU" POSITION.®N/
NOCLK:
.ASCIZ
/NO CLOCK AVAILABLE FOR TIMING TESTS/<7><7>
BGTSWI: .ASCIZ
/BAND GATE LATCH INTERLOCK FAILURE/
VFUINF: _ASCIZ
/VFU INTERLOCK FAILURE/
.EVEN

:
;

149

1150
1151
1152
1153
1154
1155 004212
004315
004320
004323
004326
004331
0La334
004337
004342

1156
1157
1158
1159

GLOBAL TEXT SECTION

004345
004350
004353
004356

.LIST BEX
H
: FORMAT STATEMENTS USED IN PRINT CALLS

045

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

101

061
125
124
104
101
122
120
040
117
124
124
900

114

061
116
040
062
040
117
105
106
115
105
045

LPDROP:

.ASCIZ

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

CILPLFO LP25,

LP26,

GLOBAL SUBROUTINES

LP27, LPO7

MACRO Y05.02

Wednesday

10-Rpr-85 09:07

Page 17
SEQ 0029

SECTION

1161
1162

.SBTTL

1163

GLOBAL

SUBROUTINES

SECTION

HEXS

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
04414

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

THE GLOBAL SUBROUTINE SECTION CONTAINS THE SUBROUTINES

THAT

ARE USED BY MORE

THAN ONE

TEST.

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

THE ERROR MESSAGE IN THE FOLLOWING FORMAT:

"ERROR AT CSR XXXXXX UNIT
WHERE

XXXXXX=
YY=

YY*

DEVICE CSR ADDRESS
UNIT NUMBER THYAT FAILED

CALLING SEQUENCE
JSR PC,LPERR

REQUIRED PARAMETERS
ERRCOD MUST BE SET
UNDER ERROR CODES.

TO ONE OF

THE ERROR CODES DESCRIBED

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

013746
002455
023727
003051
006316
062716
013607

LPERR:

002342

BLT

000003

CMP
BGT
ASL
ADD
MOV

004406

50000
:

004524
004416
004444
004472

;

005262

003120

010237
006237

002074
002074

;SELECT

500054

ERRCOD43
,
500054
(SP)
€50000¢, (SP)
(SP). ,PC

DISPATCH TABLE

.WORD
.WORD
.WORD

.WORD
500035
:

104456
000016

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

CASE 1

£2004$
S0003$
50002$

50001%

;
;
;

;

CASE 0
CASE 1
CASE 2

CASE 3

:STATUS ERROR

LET ERRTBL(R2) := ERRTBL(R2)
INC
ERRTBL(R2)
LET LSLUN := R2 SHIFT -1
MoV
R2,L SLUN
ASR
LSLUN
ERRHRD
14, TXERR
TRAP
C$ERHRD
.WORD
14
N

PROPER MESSAGE FORMAT

CZLPLFO LP25,

LP26, LP27, LPO7

GLOBAL SUBROUTINES

1199

004436
004440

1200 004442
004442
004444
1201 004444
004444
1202 004450
004450
004454
1203 004460
004460
004462
004464
004466
1204
1205 004470
004470
004472
1206

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 17-1
SEQ 0030

SECTION

003665
000000

.WORD
.WORD

TXERR
0

000430

CASE 2
B8R

500064

S0002%:

;OUTPUT TIMEOUT ERROR

104456
000017
003712
000000

LET ERRTBL(R2) := ERRTBL(R2)
INC
ERRTBL(R2)
LET LSLUN := R2 SHIFT -1
MOV
R2,L$LUN
ASR
LSLUN
ERRHRD
1S,0UTTIM
H
TRAP
CS$ERHRD
.WORD
15
.WORD
OUTTIM
.WORD
0

000415

CASE 3
BR

500064

005262

003120

010237
006237

002074
002074

S0001$:

1208 0Ca476
0C4476
004502

005262

003120

INC

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

010237
006237

002074
002074

MOV
ASR

LET LSLUN
R2,LSLUN
L$SLUN

004506
004510
004512
004514

104456
000020
003737
000000

1207 004472
004472

1209 004506

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

TRAP
.WORD
.WORD
.WORD

ENDSELECT
BR
50005$:
ADD
S0004;
50006
:

000402

062706

000002

026237
003402
004737

003120

:= R2 SHIFT

-1

ERKHRD 16, TXNOIN

CS$ERHRD
16
TXNOIN
0

500064

82,5P

IF ERRTBL(R2) GT MAXERR THEN
cMpP
ERRTBL(R2),MAXERR
BLE
S0007¢
JSR PC,DROPIT
; MAXIMUM ERROR COUNT EXCEEDED
ENDIF

002276

005654

50007
:

042762

100000

005037

002342

012772
000207

000100

LET STATUS(R2) := STATUS(R2) CLR.BY #ERROR
BIC
#ERROR,STATUS(R2)
LET ERRCOD := @0
CLR
ERRCOD
LET 8LPCSR(R2) := 100
;: CLEAR THE ERROR BIT AND ENABLE INTERRUPTS
MOV
#100,8LPCSR(R2)
RTS
PC
:AND EXIT

002516

002362

1223

(S EEEE

1224

SIS AN SIS

BIN2DA

S S SIAEEAEESII2ISSEZISESETIISEISSETIIERRTSTITARITS

BINARY TO DECIMAL ASCII CONVERSION ROUTINE

CZLPLFO LP25,

LP26. LP27,

GLOBAL SUBROUTINES

LPO7

MACRO Y05.02

1233 004566
004566
1234 004572

004572
1235 004576
004576

1236 004602
004602
1237
1238 004606
004606
004614
004616
0C4616
004622
004622
004626

1239 004630

004630
004630

004634
1240 004636

004636
1241 004642
004642
1242 004646
004646
004650

1243
1244 004650
004650
004654
004656
004662
004664
1245 004664
004664
1246 004672
004672
1247 004676
004676
1248 004702
004702
004704
1249 004704
004704
1250 004710

Page 17-2
SEQ 0031

SECTION

1225
1226
1227
1228
1229
1230
1231
1232 004562

004562
004564

Wednesday 10-Apr-85 09:07

:
:
;
:
H
:

ENTER WITH NUMBER TO BE CONVERTED ON THE STACK
FOLLOWED BY THE ADDRESS OF A S5 BYTE BUFFER
FOR THE ASCII STRING. S DIGITS WILL BE CONVERTED
LEADING ZEROES WILL BE CONVERTED TO SPACES.

CALL BY JSR

PC,BIN2DA

Ol!""l.:”.’.l.’..."."

BIN2DA:

0104346
010546

016604

000006

012705

004754

005037

004766

005037

004770

012737
000402

000004

005337

004772

005737
002435

026615

002405

.I."..'-’.'I'l”””I”-’

I”’."8’,”

PUSH R4,RS
MOV
R4, -(SP)
MOV
RS,-(SP)
LET R4 := 6(SP)
MOV
6(SP),R4
LET RS := OTABLDA
MOV
#TABLDA,RS
LET FLAG DA := &0

i GET ADDRESS OF DECIMAL TABLE
i

FLAGDA
CLR
LET COUN T0 := 80
CLR
COUNTD

004772

50011%:
50010%:

004772

000010

DEC

DIGITS

000010

sus

005237

004770

INC
50014¢:

DIGITS
50012$
WHIL € 8.(SP) GE (RS) DO

cMP
BLT

161566

000770

LEADING ZERO FLAG

: 8.(SP) HAS NUMBER TO BE CONVERTED
DECR DIG ITS FROM #4 TO 40 BY 1 ; DO S DIGITS
MOV
#4 ,0IGITS
BR
50010

TST
BLT

50013¢:

GET ADDRESS FOR ASCII STRING

;

CREATE A DIGIT

8.(5P),(RS)

50014

LET 8.(SP)

:= 8.(SP)

(RS)

LET COUNTD
COUNTD
ENOD 0
50013

:= COUNTD

(R5),8.(SP)

CON VERT DIGIT TO ASCII OR SUPPLY A SPACE
IF C OUNTD GT #0 OR FLAGDA GT #0 THEN
TST
COUNTD
8GT
50015
FLAGDA
TST
BLE
500164
;

005737
003003
005737
003410

004770

004766

50015%:
052737

000360

113724

004770

005237

004770

004766

LET FLAGDA

INC

50016%:
000040

COUNTD,(R4).

MovB

000402

112724

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

BIS

MOVB

ELSE

FLAGDA

:= FLAGDA

50017
LET (R4)+
©40,(R4).

ENDI F

:B= #40

CZLPLFO LP25,

LP26,

GLOBAL SUBROUTINES

LP27,

LPO7

MACRO Y05.02

004710
1253 004714
004714
1254 004720
004720
004722
1255
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

Page 17-3
SEQ 0032

SECTIONM

004710

1251
1252 004710

Wednesday 10-Rpr-85 09:07

S0017s:

; DO THE NEXT DIGIT

062705

000002

005037

004770

000736

50012¢$:

005737
001002

004766

112744

000060

50020
:

016666

000004

023420
000012
000000
000000
000000

001750
000001

000010

000144

;

IF NUMBER WAS A ZERO PRINT A

;

CLEAN UP THE STACK AND EXIT

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

LET 8.(SP) := 4(SP)
MOV
4(SP),8.(SP)
POP
RS,.R4
MOV
(SP)+,R5
MOV
(SP)+,R4
LET SP := SP + &4
ADD
#4,5P
RTS
PC

012605
012604
062706
000207

LET RS := RS + &2
ADD
#2,RS
LET COUNTD := 40
CLR
COUNTD
ENDDECR
BR
50011

TABLDA:

.WORD

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

FLAGDA:

.WORD
.WORD

O
O
O

COUNTD:
DIGITS:

.WORD

‘0

CZLPLFO LP25,

LP26,

LP27,

LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 18
SEQ 0033

I/0 DRIVER
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
1284
1285
1286
1287
1288 004774
004774
005002
1289
1290
1291
1292 005004
0C5004
005010
1293 005012
005012
1294 005020
005020
1295
1296
1297
1298 005024
005024
1299 005032
005032
1300 005036
005036
1301 005044
005044
005046
1202
1303 005046
005046
1304 005052
005052

1305
1306
1307
1308

1309

005056
005060
005060
005066
005066
005074
005074
005102
005102
005106
005106

.SBTTL

I/0 DRIVER

xx:

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

; CHECK FOR ERROR FLAG IN STATUS REG.
032772
001061

100000

002362

I0DRV:

IF #BIT1S NOTSETIN SLPCSR(R2) THEN

BIT
BNE

#BIT15,8LPCSR(R2)
50021

; IF COUNT NOT ZERO SEND NEXT BYTE
005762
003416

002756

117272

002556

005262

002556

IF CURCNT(RZ) GT #0 THEN
CURCNT(R2)
BLE
500224
LET 8LPBUF(R2) :B= 8CURADD(R2)
Move
8CURADD(R2
3LPBUF (R2)
),
LET CURADD(R2) := CURADD(R2) + #1
INC
CURADD(R2)
TST

002456

: ENABLE INTERRUPT FOR NEXT BYTE
052762

020000

005362

002756

052772

000100

002516

BIS
DEC

002362

BIS

C00437

500224
:

;

ELSE

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

500234

CURRENT MSG DONE,

005362

002656

DEC

005762
003424

002656

TST
BLE

016262

002716

002556

MOV

016262

002616

002756

MOV

117272

002556

002456

Move

005262

002556

INC

005362

002756

DEC

IF PRINT COUNT NOT ZERO SEND AGAIN

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

CZLPLFO LP25,

LP26,

LP27,

LPO?

MACRO Y05.02

Wednesday

10-Apr-85 09:07

Page 18-1

SEQ 0034

I70 DRIVER
1310 005112
005112
1311 005120
005120
1312 005126
05126
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

000406

500244
:

LET STATUS(R2)
@ACTIVE,STATUS(R2)
LET 8LPCSR(R2)
#100,8LPCSR(R2)
ELSE
50025

STATUS(R2) SET.BY #ACTIVE

:= #100

;

RE-ENABLE INTERRUPTS

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

020000

002516

8IC

012772

000000

002362

MoV

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

50025¢:

50023
000410

50021:

;
;
052762

100000

002516

012737
004777

000001

002342

175730

STATUS(R2) CLR.BY @#ACTIVE

:= 200

ENDT”
ELSE
BR

500264

CLEAR ERROR CONDITION,
SET ERROR FLAG

ENABLE INTERRUPTS

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

BIS

;

500264
:
012602
000002

ENDIF

ERROR SERVICE SHOULD CLEAR ERROR BIT AND ENABLE INTR

POP R2

MOV
RTI

(SP)+,R2

CZLPLFO LP25,

LP26,

LP27,

LPO7

MACRO Y0S5.02

Wednesday 10-Apr-85 09:07

Page 19
SEQ 0035

I70 CONTROL

1330
1331
1332
1333

.SBTTL I/0 CONTROL
R
:
; THE I/0 CONTROL SUBROUTINE IS A SINGLE ENTRY QUEUE MANAGER.

1335
1336
1337

:
:

iggg

1334

;

1340

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
136;
136
1366 005242
005242
005246
1367 005250
168 005250
1

;

:
:
:
023727
001005

002324

013703

002012

005037

002074

177777

50027s:
002091

013737

002324

005703
001002

000137

005600

BUFCNT

BYTE COUNT TO TRANSMIT TO PRINTER

ERRSVC

ADDRESS OF ERROR SERVICE SUBROUTINE

OF TIMES TO PRINT THE MSG

PUSH R2.R3
MOV
R2,-(SP)
MOV
R3,-(SP)

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

000405

012703

-1 FOR ALL TERMINALS
N FOR PRINTER NUMBER ‘N’
ADDRESS OF MESSAGE TO PRINT

BUFREP IS NO.

IOCTRL:

010246
010346

PRINTR

BUFADD

;

ig:;
1343
1344 005172
005172
345 005174
134
1346
1;47
1348
1349 005176
005176
0C5204
1350 005206
005206
1351 005212
005212
1352 005216
005216

THIS ROUTINE IS INVOKED BY A JUSR FROM AN I/O CALL.

INPUTS:

IF PRINTR EQ #-1 THEN
CMP
PRINTR,#-1
BNE
500274
LET R3 := LSUNTT
MOV
L$UNIT,R3
LET LSLUN := 20
CLR
LSLUN
ELSE
BR
500304

LET R3 := &1
#1.R3
LET LSLUN := PRINTR
MOV
PRINTR,L $LUN
ENDIF

MOV
002074

50030$:
:
; REPEAT TILL R3 = 0
:
CTLLOP:
IF R3 £EQ #0 THEN
TST
R3
BNE
50031
INLINE <JMP CTLEND>
JMP
CTLEND
ENDIF
50031

H
:
H
013702
006302

002074

005037

002342

USE R2 AS AN INDEX INTO THE UNIT TABLES
LET R2 := LSLUN SHIFT 1
L$LUN,R2
R2
LEY ERRCOD := 80
CLR
ERRCOD
MOV
ASL

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

;
032762
001123

040000

002516

1390
1391 005350
005350
1392 005356
005356
005362
005364
005370
005372
005376
005400
005404

1393 005406
005406
1394 005412
005412
005416
1395 005420

BIT
BNE

IF 4DROPED NOTSETIN STATUS(R2) THEN
#DROPED, STATUS(R2)
500324

;TEST FOR DVC ERROR BIT SET
032772
001407

100000

002362

BIT
BEQ

012737

000001

002342

MOV

052762

100000

002516

BIS

000455

50033s:

;
005762
003452

002756

032762
001004

020000

IF 4BIT15 SETIN 8LPCSR(R2) THEN
#BIT15,8LPCSR(R2)
50033
LET ERRCOD := &4STATER
i STATUS REG ERROR BIT
#STATER, ERRCOD
LET STATUS(R2) := STATUS(R2) SET.BY JERROR
#ERROR,STATUS(R2)
ELSE
50034

15 SET IN CSR

MAKE SURE PREVIOUS MSG IS DONE
TST

BLE
002516

8IT

BNE

IF CURCNT(R2) GT 40 THEN

CURCNT(R2)

50035%

IF @ACTIVE NOTSETIN STATUS(R2)
#ACTIVE, STATUS(R2)

THEN

50036%

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

000003

002342

MOV

000442

50036%:

1389 005340
005340
005340
005346

IF THE UNIT HAS BEEN DROPPED SELECT THE NEXT UNIT

032762
001436

020000

002516

012762

000144

003056

012727
000000
013727
000000
005367
001375
005367
001367

000002
002116
177772
177756

LET ERRCOD
#NOINTR, ERRCOD
ELSE
50037¢

:= &NOINTR

;

NO INTERRUPT

WHILE #ACTIVE SETIN STATUS(R2) DO

500405
:
BIT
BEQ

#ACTIVE, STATUS(R2)
50041

MOV

#100. ,DELCNT(R2)

MOV
.WORD
MOV
.WORD

#2.,(PC)e
0
L$DLY,(PC).
O

OEC
BNE
DEC
BNE

LET DELCNT(R2)
DELAY 2.

#100.

;

200MS LOOPS

DELCNT(R2)

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

005362

003056

DEC

DELCNT(R2)

005762
001011

003056

TST
BNE

DELCNT(R2)
50042

LET DELCNT(R2)

IF DELCNT(R2) EQ 40 THEN

LET ERRCOD

#TIMOUT

20 SEC.

DELAY MAX

CZLPLFO LP25,

LP26,

LP27,

LPO?

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 19-2

SEQ 0037

I70 CONTROL
005420
1396 005426

012737

000002

002342

MOV

#TIMOUT, ERRCOD

005426

042762

020000

002516

8I1C

QACTIVE,STATUS(R2)

005434

052762

100000

002516

BIS

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

1397 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 0CS5456
005456
005460
1409
1410
1411
1412

50042:
000736

ENDIF

50035s:

ENDIF

50034
:
002342

TST
BEQ

004777

175440

000425
50043:

002354

002556

MOV

013762

002354

002716

MOV

005474
005502
005502
005510
005510
GC5516
005516
005522
005524
005524
005532
005532
005532
005532
005532
005532

013762

002356

002756

MOV

013762

002356

002616

MOV

013762

002360

002656

MOV

005762
003403

002756

012772

000100

1418

1419

1420
1421

1422

1423
1424 005532
005532
005536
005540
005544

JSR

PC, SERRSVC

THE I/0 DRIVER WILL PICK UP FROM HERE.

013762

1417

ELSE
50044

Q@ UP THE MESSAGE AND ENABLE INTERRUPTS

005460
1414 005466
005466

1416

IF ERRCOD NE #0 THEN
ERRCOD
50043

: REPORT THE ERROR

1413 005460

1415 005474

:= STATUS(R2) SET.BY #ERROR

ENDIF

50037%:

005737
001403

:= STATUS(R2) CLR.BY @ACTIVE

ENDDQ

50040

500414
:

LET STATUS(R2)

TST
BLE

002362

MOV
500455

50044
:
50032%4:

012727
000000
013727
000000

000001
002116

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 40 THEN
CURCNT(R2)
50045%
LET 9LPCSR(R2) := #4100
€100,8LPCSR(R2)
ENDIF

;

BYTE ADDRESS

;

MESSAGE ADORESS

OUTPUT COUNT

;

BYTE COUNT

;

COUNT

ENARBLE INTERRUPTS

ENDIF

DELAY
1
MOV
@1,(PC).
.WORD
O
MOV
Ls$OLY,(PC).
.MORD
O

iPAUSE

100 MICRO-SECONDS TO ALLOW THE LINE

$$$

CZLPLFO LP2S,

LP26,

LP27,

LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 19-3
SEQ 0038

I7/0 CONTROL
005546
005552
005554
005560

1425
1426
1427
1428
1429 005562
005562
1430
1431
1432
143% 005566
005566
1434 C05570
005570
1435 005574
1436 005600
1437 005600
005600
005602
1438 005604
1439
1440
1441
1442
1443
1444
1445
1446
1447
1448 005606
1449 005650
1450 005652
1451

005367
001375
005367
001367

177772

DEC
BNE
OEC
BNE

177756

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

;PRINTER TO INTERRUPT.

$$$

: CLEAR OUT ANY TIMEOUT COUNT
005062

003056

CLR

LET DELCNT(R2)

DELCNT(R2)

; SELECT THE NEXT UNIT AND DECRIMENT THE LINECOUNT
005303

005237
000137

LET R3 := R3 - ¥
R3
LET LSLUN := LSLUN
INC
LSLUN
JMP
CTLLOP

DEC
002074
005232

CTLEND:

POP
MOV
MOV
RTS

012603
012602
000207

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

seeee

SUBROUTINE

QUIET

; THIS SUBROUTINE WILL EFFECTIVLY DELAY UNTIL ALL QUEUVED QUTPUT
i IS FINISHED. THE DELAY IS ACCOMPLISHED BY QUEUEING A NULL
; MESSAGE TO ALL LINES.

000240
000207

QUIET:

Og;PUT

N
RTS

€0,¢0
PC

;

NULL MESSAGE OUTPUT

CZLPLFO LP25, LP26,

LP27, LPO7

MACRO Y0S5.02

Wednesdesy 10-Apr-85 09:07

Page 20
SEQ 0039

I/70 CONTROL
1453
1454
1455
1456
1457
1458
1459
1460
1461 005654
005654
1462 005662
005662
1463 005670
005670
1464 005674
005674
005700
005704
005710
005712
005714

1465 0C5720
005720
1466 0C5724
005724
1467 005730
005730
005734
1468 005736
005736
005742
005746
005750
005752
1469 005756
005756
1470 005760
005760
1471 005760
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482 005762
005762
1483 005766

005766
005766
005774
1484 005776
005776

DROPIT

FUNCTIONAL DESCRIPTION

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

052762

040000

002516

012762

17771

002756

005072

002362

013746
012746
012746
010600
104417
062706

002074
004312
000002

000006

005062

003120

005337

002346

005737
001011

002346

012746
012746
010600
104417
062706

003770
000001

DROPIT:

LET STATUS(R2) := STATUS(R2) SET.BY &DROPED
8IS
@DROPED, STATUS(R2)
LET CURCNT(R2) := @-1

MOV
#-1,CURCNT(R2)
LET 8LPCSR(R2) := @0
CLR
8LPCSR(R2)
PRINTF €LPDROP, LS$LUN
MOV
L$LUN, -(SP)
MOV
#LPDROP, -(SP)
MOV
€2,-(SP)
MoV
SP,RO
TRAP
C$PNTF
ADD
6 ,5P

LET ERRTBL(R2) := @0
CLR
ERRTBL(R2)
LET WT := UUT - o1
DEC
wrTt
IF UUT EQ #0 THEN
TST
wT
BNE
500464
PRINTF #UWTEQO
MOV
QUUTEQO, -(SP)
MOV
#1,-(SP)
MOV
SP,RO
TRAP
CSPNTF
ADD
04SP

000004

104444
500464:

000207

DOCLN
TRAP
C4DCLN
ENDIF
RTS

;

NOTHING TO TEST

‘......l'..-...ll...ll...l.....l.-ll

.'II..I.I..--...-.............'

FAKE

FUNCTIONAL DESCRIPTION:

: THIS SUBROUTINE IS REQUIRED TO INSURE PROPER PASS COUNT REPORTS
i IN A MULTI UNIT MODE OF OPERATION.
;-..li...lll.-....--l...l..l.l'..l‘.

...l..'.......I..-....-.“-....

005037

002074

023737
002007

002074

013700

002074

FAKE :

002012

5004/%:

LET LSLUN

CLR
LSLUN
WHILE LSLUN LT LSUNIT DO

cHp
8GE

LSLUN,LSUNIT
S0050
GPHARD
LSLUN,
MOV
LSLUN,RO

CILPLFO LP2S, LP26,

LP27, LPOT

MACRO YO0S5.02

Wednesday

10-Apr-85 09:07

Page 20

SEQ 0040

I/0 CONTROL
036002
026004
1485 006006
006006
1436 006012
006012
006014

1437 006014
1458

1489
1430 006016

104442
010003

005237

TRAP
MOV

LET LSLUN
INC
LSLUN
ENDDO

002074

000765
00020~

C$GPHRD
RO,R3

500504

500473

RTS

E£NDMOD

:= LSLUN

CILPLFO LP2S, LP26, LP27, LPOT

MACRO Y0S5.02

Wednesday 10 Apr-85 09:07

Page 21
SEQ 0041

INITIALIZATION SECTION
149§

.SBTTL

149

1494

INITIALIZATION SECTION

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

1495

;PRIMARILY USED FOR REQUESTING P-TABLE PARAMETERS.

INFORMATION REQUESTED FROM

1496
1497
1‘23

;sTHE OPERATOR INCLUDE THE NUMBER OF UNITS UNDER TEST, DEVICE ADOPESSES, YECTORS,
;CLOCK TYPE, AUTO OR MANUAL PRINTING SPEED MEASUREMENT, AND WHETHER A DAVFU
;OPTION IS INSTALLED IN THE SYSTEM.

1500 006016
1501 006016
006016
1502
1503
1504 006016
006016
006022
1505 006024
006024
1506 006026
006026
006032
1507 006034

BGNMOD
BGNINIT
L$INIT::
;RESET EXTERNAL BUS IF START EVENT FLAG IS SET
;OR POMWER FAIL RESTART
READEF
QEF .START
:TEST START EF INDICATOR
MOV
&EF .START,RO
TRAP
CSREFG
BCOMPLETE 1
;:BRANCH IF FROM START UP
BCS
1s
READEF
OEF ,RESTART
;sNOW THE RESTARTFLAG
MOV
QEF _RESTAPT,RO
TRAP
CSREFG
BCOMPLETE 1
;IF EITHER START OR POWER FAIL RESTART

01270¢
104447

000040

103466
012700
104447

00003

006C34
1508
1509 0C6036
1510 006042
006042
006046

004737

005762

012700
104441

000000

006050

112737

000014

1511 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
116 006176
005176
€17 006200

151
Elg
11

103462

012737
000402

000006

005337

003162

023727
002415

003162

012727
000000
013727
00000C
005367
001375
005367
001367

000250

003162
50052
:
S00S51s:

002116
177772
177756

50053s:

001666

JSR
SETPRI
MOV
TRAP

PC.FAKE
#PRIOO
#PRIOO,RO
C$SPRI

MOVB

214, 0UTBUF

DEC

WORK1

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

WORK],
&1
50053
DELAY 250
#250,(PC).
0
LsOLY,(PC).
0
-6(PC)
.-4
-22(PC)
.-20

500528

;00 A BUS RESET
; UPDATE PASS COUNT
; PRIORITY ZERO

:B= #14

QUTPUT &0QUTBULF,21
DECR WORKL FROM @6 TO 21 BY o1
MOV
26 ,WORK1
B8R
50051

ENODEC

000755

104432

LET QUTBUF

003164

000001

8CS

EXIT INIT
TRAP
CS$EXIT
.WORD

L10004 -,

;

H
;POWER UP RESTART OR START COMMAND ISSUED
:

ELSE EXIT INIT CODE

CILPLFO LP25,

LP26,

LPZ7, LPO7

MACRO Y05.02

Wednesday 10 Apr 85 09:07

Page 21 1
SEQ 0042

INITIALIZATION SECTION

1520 006202
006202
1521 006204
006204
006212
1522 006214
006214

1$:

104433
023727
003420

002012

006220
006224
006226
006230

012746
012746
010600
104417
062706

007246
000001

006234
006240
006244
006246
006250

012746
012746
010600
104417
062706

1523 006234

1524 006254
006254
1525 006254
006254

1526 006256
006256
1527
1528 0C6260
006260

000004
007331
000001

MOV
MOV
MOV
TRAP

000004

#1,-(SP)
SP,RO
CSPNTF
24,5P

PRINTF ONRGT17

ADD

ENDIF

ONRGT17,-(SP)
1,-(sP)
SP,RO
CS$PNTF
44 ,5P

MANUAL

104450

TRAP

006300
006304
006310
006212
006314

012746
012746
010600
104417
062706

007464
000001

000004

007557
000001

000004

005037

002300

005037

002342

007037

002346

104443
000404
002300
000130
007673
100000

C$MANI

BNCOMPLETE
8CC
23

103034

006264
006270
006272
006274

s
1530
1331
1532
1533 006320
006320
1534 006324
006324
1535 006330
005330
1536 006334
1537 006334
006334
006336
006340
006342
006244
005346
006350
1538
1239
1540

MOV
MOV
TRAP
ADD

;RESET THE BUS

500544

012746
012746
010600
104417
062706

1529 006300

000020

BRESET
TRAP
CSRESET
IF LSUNIT GT €¢16. THEN
cMpP
LSUNIT,&16.
BLE
50054
PRINTF ONRGT16
MOV
eNRGT16, (SP)

;

CHECK FOR UNATTENDED MODE

IF UNATTENDED BYPASS MANUAL INSTRUCTIONS

PRINTF @&RESET1
MOV
AMESETY, -(SP)
MOV
1,-(SP)
MOV
SP,RO
TRAP
CS$PNTF
ADD
04 ,SP

PRINTF &RESETZ2

MOV
MOV
MOV
TRAP
ADD

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

:
sWRIT FOR A “CR” BEFORE GOING ON
H
LET FLAG := &0
CLR
FLAG
LET ERRCOD := 20
CLR
ERRCOD
LET WT := &0
CLR
uwT
100s:
GMANIL
READY,FLAG, 100000, YES
TRAP
C$GMAN
BR
10000
.WORD
FLAG
.WORD
T$CODE
.WORD
READY
.WORD
100000
10000
:
H
;REQUEST P-TABLE FOR PRINTERS UNDER TEST
:

CZLPLFO LP25,

LP26,

LP27,

LPO?

MACRO Y05.02

Wednesday 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

002012

005037
000402

00207«

005237

002074

023701
003150

002074

013700
104442
010003

002074

006406

103137

006410
006414

013702
006302

1545 006410
s
1546

013701
005301

1547
1548
1549 0C6416
006416

006424

042762

003000

006432

000434

006452
1555 006460
006460
006462

1556 006462
006462
006470
1557 005472
006472
1558 006500
006500
1559 006506
006506
006510
1560 006510
006510
1561 000516
006516
1562 006524
006524

INC

LSLUN

cMP
8GT

LSLUN,RL
500574

MOV
TRAP
MOV

GPHARD L $LUN,R3
LSLUN,RO
C$GPHRD
RO,R3
BNCOMPLETE 3¢

MOV
ASL

;
:

006422

006434
1552 006434
006434
006442
1553 006444
006444
1554 006452

S0055%:

002074

000004

1551 006432

50056
:

LET Rl := LSUNIT - &1
MOV
LSUNIT,R1
DEC
R1
INCR LSLUN FROM #0 TO R1 BY &1
CLR
LSLUN
BR
500554

8CC

005763
001004

1550 006424

2%:

500604
:

:= LSLUN SHIFT 1

000004

000001

cMP
BNE

052762

001000

002516

BIS

042762

002000

002516

8IC
BR

500624
:

026327
001007

000004

000002

cMP
BNE

042762

001000

002516

BIC

052762

002000

002516

BIS

000406

50064
:

052762

001000

002516

BIS

052762

002000

002516

8IS
50065%:

OUTPUT COUNT,

GET DEVICE TYPE TO STATUS.

IF 4(R3) EQ 40 THEN
TST
4(R3)
BNE
500604
LET STATUS(R2) := STATUS(R2) CLR.BY &FLAG26!FLAGO7
BIC
HF LAG26!'FL AGO7,STATUSCR2)
ELSE
BR
500614

026327
001007

000421

;BRANCH IF DEVICE NOT PRESENT

LSLUN,R2
R2

CLEAR ERROR COUNT,

002516

:REQUEST P-TABLE ADDRESS

LET R2

;MAXIMUM NUMBER OF UNITS

IF 4(R3) EQ &1 THEN

4(R3),
81
500624
LET STATUS(R2) := STATUS(R2) SET.BY &FLAG26
&FLAG26,STATUS(R2)

LET STATUS(R2)

ELSc

:= STATUSCR2) CLR.BY OFLAGO?

#FLAGO7,STATUS(R2)
500634

IF 4(R3) EQ #2 THEN
4(R3),
%2
50064
LET STATUS(R2) := STATUS(R2) CLR.BY O#FLAG26
FLAG26,STATUS(R2)
LET STATUS(R2) := STATUS(R2) SET.BY OFLAGO?
FLAGO7,STATUS(R2)
ELSE
500654

LET STATUS(R2) := STATUS(R2) SET.BY oFLAG26
#FLAG26,STATUS(R2)
LET STATUS(R2) := STATUSC(R2) SET.BY #FLAGO?7
#FLAGO7,STATUS(R2)
ENDIF

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
1263
156
1568 006524
006524
006530
1569 006532
006532
1570 006540
006540
006542
1571 006542
006542
1572 006550

ENDIF
50063
:

:
:
H

005763
001004

000006

042762

010000

002516

000403
50066
:
052762

010000

002516

005062

003120

012762

177777

005062

003056

005062

002656

CLR

002756

;

ENDIF

LET ERRTBL(R2)

:= 90

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

012362

002362

016262
062762

002362
000002

012362

MOV

LET LPCSR(R2)

:= (R3).

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

002456
002456

:SET UP CSR ADDRESS FOR DEVICE
+

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

002422

1587

:= STATUS(R2) SET.BY #FLAG96

#F LAG96,STATUS(R2)

;:LOAD CSR ADDRESS INTO TABLE

1580 006572

1588
1589 006616
005616
006622
006626
006632
1590 006636
006636
1591 006644
006644
1592 006652
006652
006656
006662
006666

LET STATUS(R2)

50067
:

12;3

006572
1581 006576
006576
s
006604
1582
1283
1584
1585 006612
006612
1586

64 OR 96 CHARACTER

IF 6(R3) EQ &0 THEN
6(R3)
50066
LET STATUS(R2) := STATUSCR2) CLR.BY #FLAG96
BIC
#FLAGY6,STATUS(R2)
ELSE
BR
50067

BIS

1573 006550

1577

NOW GET THE BAND TYPE
TST
BNE

006550

006550
1574 006554
006554
1575 0C6562
006562
1576 006566
s
006566

ENDIF

50061$:

;SET UF DEVICE INTERRUPT VECTOR INFORMATION
:

010737
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 := WGRK + #INTOO
ADD
#INTO0, WORK
LET LPINTR(R2) := WORK
MOV
WORK ,LPINTR(R2)
SETVEC LPVEC(R2), LPINTR(R2),
MOV
4PRIO4, -(SP)
MOV
LPINTR(R2),-(SP)
MOV
LPVEC(R2), -(SP)
MOV
23,-(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
010, 5P

: ADD ONE TO UNIT UNDER TEST COUNT
005237
000403

)

002346

LET UUT := UUT + &1
INC

wuT
4%

;INDICATE LSLUN NOT AVAILABLE FOR TESTING
052762

040000

002516

3s:
4

000623

S0057s:

LET STATUS(R2) := STATUS(R2) SET.BY ¢DROPED
BIS
#DROPED,STATUS(R2)
ENDINC
:60 BACK AND DO IT AGAIN
BR
50056

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

000002

010437

002330

017737

173354

002332

012777

000000

173346

LET CLKTYP := &1
i DEFAULT FOR NO CLOCK ON SYSTEM
MOV
@1,CLKTYP
CLOCK
L.R4
: TEST FOP L-CLOCK
MOV
#'L,RO
TRAP
C$CLCK
MOV
RO,R4
IFCOND CS THEN
; WE HAVE AN L-CLOCK
8CC
50070$
~
LET CLKTYP := #2
MOV
&2 ,CLKTYP
LET CLOCKP := R4
MOV
R4 ,CLOCKP
LET CLKCSR := 8CLOCKP
MoV
aCLOCKP, CLKCSR
LET 8CLKCSR := ¢00
; TRY TO DISABLE INTERRUPTS
MOV
%00, 8CLKCSR

002336

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

012737

000001

012700
104462
010004

000114

002326

103031
002326

016437

000004

012746
012746
013746
012746
104437
062706

000300
010070
002336
000003
000010

005737
001410

002270

012737

000004

012700
104441

000000

002326

500705
:

SETUP THE NOOP HANDLER

SETVEC
CLKVEC,®IGNORE,#PRIO6
MOV
OPRI0
- (SP)
6,
MOV
OIGNORE, -(SP)
MOV
CLKVEC
- (SP)
,
MOV
83, -(SP)
TRAP
C$SVEC
ADD
010, 5P
ENDIF

IF THE_OPERATOR WANTS MANUAL SPEEC TEST SET CLOCK TYPE - 4
TST MANSPD
BEQ
K1
LET CLKTYP := 04
MOV
04, CLKTYP
SETPRI #PRI0O

MOV

4PRI0O,RO

TRAP
C$SPPI
EXIT INIT

;

START TEST AT PRI 0

CZLPLFO LP2S,

LP26,

LP27, LPO?7

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

1643
1644
1645
1646
1647
1648
1649
1650

104432
001022

;

012700
104462
010004

000003

010437

002330

CLOCK

P,R4

MOV
&'P,RO
TRAP
C$CLCK
MOV
RO,R4
IFCOND CS THEN
0T
50071

103016
012737

C$EXIT
L10004-.

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

CK1:

000120

TRAP
.WORD

002326

MOV
MOV

017737

173232

002332

016437

000004

002336

MOV

000000

R4 ,CLOCKP

LET CLKCSR

002326

012746
012746
010600

007730
000001

104417
062706
012746
012746
010600
104417
062706

173216

50071%:

IF CLKTYP EQ #1 THEN

000001

007772
000001

000004

000014

003164

116
116
116
116
101

045
045
045
045

045
045
045
045
045

MOV
MoV

#1,-(SP)
SP,RO

TRAP
ADD

000004

112737

007246
007331
007365
007464
007557

CLKTYP,#1

50072$
PRINTF 4NOCLCK
MOV
#NOCLCK, -(SP)

000000

104432
000622

CtMpP

BNE

012700
104441

007244

TRY TO DISABLE THE P-CLOCK

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

IF NO CLOCKS ON THE SYSTEM NOTIFY THE OPERATOR

50072%:

007242

:= CLOCKP

8CLOCKP, CLKCSR
LET CLKVEC := 4(R4)
MOV
4(R4), CLKVEC

:
023727
001020

WE HAVE A P-CLOCK

LET CLKTYP := 43
#3,CLKTYP
LET CLOCKP := R4

;

012777

;

123

CS$PNTF
#4,5P
PRINTF 4#NOTIM
MOV
ONOTIM, -(SP)
MOV
#1,-(SP)
MOV
SP,RO
TRAP
CSPNTF
ADD
#4 ,5P
ENDIF

SETPRI #PRIOO

MOV
4PRIOO,RO
TRAP
C$SPRI
LET OUTBUF :B= #14
Move
#14,0UTBUF
OUTPUT 40UTBUF ,#1
EXIT INIT
TRAP
C$EXIT
.WORD
L10004-,
.NLIST BEX
NRGT16:
NRGT17:
MRESET:
RESET1:
RESET2:

.ASCIZ
/#N#ANUMBER 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 /#NSARESET LINE PRINTER(S),SET FORMS LENGTH TO 11 INCHES,®N/
-ASCIZ /%ASET VERTICAL DENSITY TO 6 LINES PER INCH,D0 FORM FEED AND PLACE ON LINESN/

LP26,

LP27,

LPO7

MACRO Y0S5.02

Wednesday 10-Apr-85 09:07

Page 21-6

SEQ 0047

INITIALIZATION SECTION
1651
1652
1653
1654
1655
1656
1657
1658

007673
007730
007772

104
045
045

010064

000000

READY:
NOCLCK:
NOTIM:
.EVEN
PLOC:

104411

.LIST BEX
ENDINIT
L10004:
TRAP

010066
010066
010066

1659
1660
1661
1662
1663
1664
1665
1666 010070
1667 010070
1668
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678

105
116
116

;

:
;

1680
1681
1682

1683

1684

1685
1686

1687

IGNORE

IGNORE :

000002

,ASCIZ
.ASCIZ
.ASCIZ

/DEPRESS "RETURN” WHEN READY./
/%NsAHARDWARE CLOCK NOT AVAILABLE./
/%NsAAUTO PRINTING SPEED MEASUREMENT CANNOT BE PERFORMED./

.WORD

;

RTI

THE

MOV
MOV

CLR
002012

MoV

RSN

NN E R

R R

Noop

TST
BLE

R3,R4

STARTING

INTOO.

R3,-(SP)
R4,-(SP)
LET
R4 :=

&0
R4
LET R3 := LSUNIT
L$SUNIT,R3

MOV

POP R4 ,R3
(SP)+,R4

062704

000002

ADD

DEC

S0074:

PUSH

ROUTINES

000010

MOV
MOV
MOV
MOV
TRAP
ADD

000757

INTERRUPT

R3
S00744
SETVEC LPVEC(R4), LPINTR(R4),
#PRIOS,
- (SP)
LPINTR(R4),-(SP)
LPVEC(R4),-(SP)
#3,-(SP)
C$SVEC
#10,5P
LET R4 := R4 + #2
#2,R4
LET R3 := R3 - #1
R3
ENDDO
50073

000200
003016
002422
000003

005303

'NORMAL‘'

WHILE R3 GT 40 DO

50073s:

012746
016446
016446
012746
104437
062706

012604

FUNCTIONAL DESCRIPTION

RESVEC::

005703
003417

THAT IGNORES THE INTERRUPT,
USED FOR SYSTEMS WHERE CLOCK CANNOT BE TURNED OFF.

005004

013703

AN INTERRUPT CATCHER FOR THE L-CLOCK

THIS SUBROUTINE WILL SETUP ALL UNITS VECTOR AREAS

010346
010446

CS$INIT

; RESVEC

1679 010072

010072
010074
010076
010076
010100
010100
010104
010104
010104
010106
010110
010110
010114
010120
010124
010130
010132
010136
010136
010142
010142
010144
010144
010146
010146
010146

120
045
045

#PRIO4

,’v_ . -

CZLPLFO LP2S,

CZLPLFO LP25,

LP26,

LP27,

LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

SEQ 0048

INITIALIZATION SECTION
010150
1688 010152
1689

012603
000207

Page 21-7

MOV

(SP)+,R3

RTS

CZLPLFO LP2S,

LP26,

LP27,

LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 22
SEQ 0049

CLEANUP CODING SECTION
1691
1692 010154

.SBTTL
STARS

CLEANUP CODING SECTION

1693
1694
1695

1696

:THEY HAVE NOT COME BACK ON LINE.

1697
1698

rur

rrare

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

1699
i;go
1
1702 010154

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

1703 010154
010154
1704 010154
010154
010160
1705 010162
;
010162
1706
1707 010164
010164
010170
1708 010172

BGNCLN
L$CLEAN:
:
SETPRI 4PRIO7
MOV
#PRIO7,RO
TRAP
C$SPRI
BRESET
TRAP
CS$RESET

010172
010176
010200
010200
010204
010204
010210

1709
1710
1711 010212

012700
104441

000340

104433

013701
005301

002012

005037
000402

002074

005237

002074

023701
003020

CLEAN:

50076
:

50075

002074

013702
006302

002074

010220

042762

160377

002516

012762

177777

002756

005062

003120

005062

003056

005062

002656

1714 010226
010226
1715 010234
010234
1716 010240

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

010072

023727
001006

002326

INC

LSLUN

cMpP
B8GT

LSLUN,RL
50077¢

DISABLE ALL INTERRUPTS, SELECT ALL LINES
ZERO ALL ERROR COUNTS
LET R2 := LSLUN SHIFT 1

MOV
ASL

000753

004737

LET R1 := LSUNIT - #1
:NUMBER OF UNITS-1
MOV
LS$UNIT,R1
DEC
R1
INCR LSLUN FROM #0 TO R1 BY 21
CLR
LSLUN
BR
50075

;:
;

010212
010216

1712
1713 010220

TM~

jee
: THE PURPOSE OF THE CLEANUP SECTION IS TO CLEANUP ALL PRINTERS UNDER TEST
;AND RETEST ANY UNITS WHICH HAVE BEEN DROPPED FROM
TESTING TO INSURE THAT

S0077%:

000003

L$LUN,R2
R2
; CLEAR ALL BITS IN STATUS EXCEPT DEVICE TYPE
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) := 40
CLR
DELCNT(R2)
LET REPCNT(R2) := &0
CLR
REPCNT(R2)
ENDINC
B8R
500764

JSR
PC ,RESVEC
IF CLKTYP EQ @3 THEN
cMP
CLKTYP,
&3
BNE
50100
CLRVEC QCLKVEC

;

RESET THE VECTORS

CZLPLFO LP25,

LP26,

LP27,

LPO7

MACRO Y05.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¢:

8CLKVEC,RO
C$CVEC
LET 9CLKCSR := 900
MOV
€00, 8CLKCSR
ENDIF

IF CLKTYP EQ €2 THEN
CHP
CLKTYP,#2
BNE
50101
SETVEC CLKVEC,9IGNORE, #PRI06

023727
001013

002326

012746
012746
013746
012746
104437
062706

000300
010070
002336
000003

MOV
MOV
MOV
MOV

000010

TRAP
ADD
ENDIF

000002

50101%:
012700
104441

104412

000000
ENDCLN
L10005:

C$SVEC

10,5P

SETPRI @PRIOO
MoV
¢PRIOO,RO
TRAP
C$SPRI

TRAP

ENDMOD

OPRIO6
- (SP)
,
#IGNORE, -(SP)
CLKVEC, -(SP)
@3,-(SP)

C$CLEAN

CZLPLFO LP25, LP26,

LP27,

LPOT

MACRO Y05.02

Wednesday 10-Aur-85 09:07

Page 23
SEQ 0051

INTERFACE LOGIC

l;gg

.SBTTL

1
173; 010350

B8GNMOD

173

see

1736
1737
1738
1739
1740
i;:l

2
1743
1744
1745 010350
010350
1746 010350
010350
010354
1747
1748
1;;8
1
1751 010356
1752 010362
1753 010364
1754 010364
175S 010370
1756 010370
1757 010374
1758 010376
1759 010402
1760 010402
010402
010406
1761 010410
010410
010416
1762 010420
010420
1763 010426
010426
1764 010432
010432
176S 010440
010440
010442
010444
010446
1766 010450
010450
1767 010454
010454
1768
1769
1770 010454
010454
010462

INTERFACE LOGIC

; 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
;THAT THE PRINTER WILL NOT INTERRUPT IF IT IS AT THE SAME PRIORITY LEVEL
:AS THE PROCESSOR, BUT WILL INTERRUPT IF THE PROCESSOR IS AT A LOWER
;PRIORITY LEVEL. THE PRINTER IS AT PRIORITY LEVEL 4.

H
:
i--

013701
005301

002012

;

005037
000402

002320

005237

002320

023701
003402
000137

013702
006302
032772
001416

BGNTST
T1::
LET R1

011142

002320

052762

100000

005262

003120

013737

002320

002362

002516

002074

104456
000001
003412
000000
005072

002362

032772
001027

000200

:= LSUNIT - &1
MOV
LSUNIT ,RL
OEC
R1

sHARD CODED INCREMEMNT LOQOP
;INCR LUNIT FROM €0 TO R1 BY o1
H
CLR
LUNIT
BR
T1C
T1A:
INC
LUNIT
T1C:
CHP
LUNIT,R1
BLE
1s
JMP
T18
1s.
LET R2 := LUNIT SHIFT 1
MOV
LUNIT,R2

002320

100000

ASL

8EQ

S0102%

;START LOOP
sUNIT 70 O
;00 COMPARE
.

;UPDATE UNIT NUMBER
:00 COMPARISON OF UNIT NUMBER
;ONTO NEXT UNIT
;EXIT LOOP

IF @BIT1S SETIN BLPCSR(R2) THEN
BIT
MBIT1S,3LPCSR(R2)
LET STATUS(R2) := STATUS(R2) SET.BY &ERROR
8IS
S#ERROR,STATUS(R2)
LET ERRTBL(R2) := ERRTBL(R2) + @1}
INC
ERRTBL(R2)
LET LSLUN := LUNIT
MOV
LUNIT,LSLUN
ERRHRD 1,CSRERR
;ERROR BIT WAS SET.
TRAP
CSERMRD
.WORD
1

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

002362

;MAX NUMBER OF UNITS ON SYSTEM
.

ENDIF
S0102%:
;TIME DELAY
: IF NOT READY ALLOW 3 SECONDS TO COME UP
IF &BITTM NOTSE IN @LPCSR(R2) THEN
BIT
#MIT7,8LPCSR(R2)
BNE
S0103s

SAY SO

CZLPLFO LP25, LP26, LP27, LPO?

MACRO Y05.02

Wednesday

10-Apr-85 09:07

Pege 23-1

SEQ 0052

INTERFACE LOGIC

1771 010464
010464
010472
010474
010474
010500
010500
010506

1772 010510
010510
010514
010516
010522
010524
010530

010532
010556
1773 010540
010540
010542
1774 010542
010542
1775
1776
1777
1778 010542
010542
010550
1779 0105S2
010552
1780 010560
010560
1781 010566
010566
1782 010572
010572
010574
010576
010600
1783 010602

012737
000402

000014

005337

003162

023727

002415

012727
000000
013727
000000
005367
001375
005367
001367

003162

003162
50105%:
50104%:

000001

1788

1789
1790

1791

010602
010610
010610
010616
010620
010620
01”526
010626
010632
010632

1792 010640
010640

DECR WORK1 FROM #12.
912. ,WORK1
501044

DEC

WORK1

CHP

WORK1#1
,

BLT

000250
002116

177772
177756

000755

50106%:
50103%:

TO @1 BY o1

501064
DELAY 250
@250,(PC).
0

MOV
.WORD
MOV
L$OLY,(PC).
.WORD
O
DEC
-6(PC)
BNE
.-4
DEC
-22(PC)
BNE
.-20
ENDDEC
BR
50105%

ENDIF

:NOW TEST FOR PRINTER READY
032772
001014

000200

002362

052762

100000

002516

013737

002320

002074

005262

003120

IF #BITO7 NOTSETIN SLPCSR(R2) THEN
;TEST FOR THE READY BIT
BIT
#8IT07,8LPCSR(R2)
BNE
501074
LET STATUS(R2) := STATUS(R2) SET.BY @ERROR
8IS
OERROR,STATUS(R2)
LET LSLUN := LUNIT
MOV
LUNIT,LSLUN
LET ERRTBL(R2) := ERRTBL(R2) + @1
INC
ERRTAL(R2)
ERRHRD 2,RDYERR
;REPORT AN ERROR
TRAP
C4ERHRD
.WORD
2
.WORD
RDYERR

104456
000002
003430
000000

.WORD

ENDIF
50107%:

010602

1784
1785
1786
1787 010602

MOV
BR

: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 SLPCTI(R2) THEN

8IT
®BITO07,8LPCSR(R2)
BEQ
501108
LET STATUS(R2) := STATUS(R2) SET.BY #ERROR
8IS
®ERROR ,STATUS(R2)
LET ERRTBL(R2) := ERRTBL(R2) - @1
INC
ERRTBL(R2)
LET LSLUN := LUNIT
MOV
LUNIT,LSLUN
ERRHRD 3,ERR1L
;REPORT AN ERROR
TRAP
CSERHRD

CZLPLFO LP2S, LP26, LP27, LPO?

MACRO ¥05.02

Wednesday

10 Apr-85 09:07

Page 23 2

SEQ 0053

INTERFACE LOGIC
010642
010644
010646
1793 010650
010650
1794 010654
010654
179S
17

000003

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

011422

000000

005072

002362

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

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

:THE SAME AS THE CPU

012700

104441

SETPRI 4PRIOA4
MOV
9PRIO04.RO
TRAP
C$SPRI

000200

SETVEC LPVEC(R2),#INTERR,2PRIOS

012746
012746
016246
012746
104437
062706

000010

052772

000100

002362

012737
000402

000012

003162

005337

003162

023727
002415

003162

012727
000000
013727
000000
005367
001375
005367
001367

000372

000200
011304
002422
000003

000001

.WORD
DEC
BNE
DEC
BNE
ENDOEC
BR
50113s:

177756

000755

1805
1806

1307
1808
1809 010774
010774
181¢C 012002

011002
011006
1811 011010
011010
011014
011020
011024

; INTERRUPT ENABLE

DECR WORK1 FROM :12 TO &1 BY &1
MOV
€12, WORK1
BR
50111
501128:
DEC
WORK1
50111s:
cHp
WORK1,
&1
BLT
50113
DELAY
250.
; ALLOW 3 SEC FOR DELAY
MoV

177772

;LP VECTOR SET uP

MOV
#PR104, -(SP)
MOV
@INTERR, -(SP)
MOV
LPVEC(R2), -(SP)
MOV
03,-(5P)
TRAP
CsSVEC
ADD
910,5P
LET GLPCSR(R2) := 8LPCSR(R2) SET.BY #100
BIS
€100,8LPCSR(R2)

MOV
.WORD

002116

;CPU TO PRIORITY 4

4250.,(PC).
O

Ls$OLY,(PC).

50112

: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 3LPCSR(R2) := a@LPCSR(R2) CLR.BY #100
;:CLEAR INTERRUPT ENABLE
8IC
€100,3LPCSR(R2)
SETPRI ¢PRIO3
;CPU TO PRIORITY 3
MOV
OPRIO3,RO
TRAP
C$SPRI
SETVEC LPVEC(R2),2INTHOL ,&PRIO4
MOV
4PRIO04, -(SP)
MOV
@INTHDL, -(SP)
MOV
LPVEC(R2), -(SP)
MoV
e3,-(SP)

CILPLFO LPS, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr 85 09:07

Page 23 3
SEQ 0054

INTERFACE LOGIC
011030
011032
1812 011036
011036
1813 011044
011044
011050
011052
011056
011060
021064
011066
011072
1814 011074
011074
1815 011100
011100
1816 011106
011106
011110
011l
011114
011116
011116
011124
011124

011132
011132

104437

062706

000010

052772

000100

012727
000000
013727
000000
005367
001375
005367
001367

000030

TRAP
C$SVEC
ADD
#10,5pP
LET SLPCSR(R2) := SLPCSR(R2) SET BY 4100
;INTERRUPT ENABLE
8IS
#100,3LPCSR(R2)
DELAY 30
: ALLOW 3 SEC DELAY
MOV
€30,(PC)»
.WORD
O
MoV
L$OLY,(PC).
.WORD
O

002362

002116

177772
177756

00526

003120

013737

002320

002074

012772

000000

002362

042762

160000

002516

005062

003056

104456
000004
011561
000000

DEC

-67PC)

CLR

DELCNT(R2)

BNE
.-4
DEC
-22(PC)
BNE
.-20
LET ERRTBL(R2) := ERRTBL(R2) . #1
INC
ERRTBL(R2)
LET LSLUN := LUNIT
MOV
LUNIT,LSLUN
ERRHRD 4,ERR13
TRAP
CSERHRD
4
.WORD
.WORD
ERR13
.WORD
0
END2:
LET LPCSR(R2) := @00
; CLEAR THE LPCSR
MOV
€00, LPCSR(R2)
LET STATUS(R2) := STATUS(R2) CLR.BY #ERROR!DROPED!ACTIVE
BIC
4ERROR tDROPED!ACTIVE,STATUS(R2)
LET DELCNT(R2) := #0

:END OF HARD CODED INCREMENT LOOP
;ENDINC

1827
1828
1829
123C

1831

1832

011136
011142
011146
011146
011152
011154
011216
011216
011224
011266
011266
011266
011274
011276
011276
011300
011300
01130+
011302

1833
1334
1835
1836
1837
1828 011304

000137
004737

010364
010072

012700
10444)

005000

112737

000014

T18:

003164

JMP
T1A
JSR
PC,RESVEC
SETPRI &PRIOO
MOV
4PRIOO,RO
TRAP
C$SPRI
OQUTPUT QINTFAC,247.
LET OUTBUF :B> 214
MOV
414,0UTBUF
QUTPUT QQUTBU
, 41
F
WHILE

032772
001001

000200

002362

50114%:

000773

.CA37.
00334

5011Ss:
EXIT TST

;

RESET

#BIT7 NOTSETIN 3LPCSR(R2)

817
BNE
ENDDO
BR

#BIT7,8LPCSR(R2)
50115

TRAP
.WORD

C$EXIT
L10006

;UPDATE UNIT @
STANDARD VECTORS

;WAIT

FOR

READY

50114

;EXIT THE TEST
.

;INTERRUPT HANDLER TO SERVICE FAULTY INTERRUPT FROM LP INTERFACE.

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

BGNSRV

CZLPLFO LP2S, LP26, P27, 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
1523 011342
1854
1325
1856
1857 011422
1858 011476
1859 011561
1860
1861 011€36
011636
011636
1862
1863 011640
1864

005262

003120

013737

002320

INTERR:

002074

104456
000005
011476
000000

012716

01ille

000002

012716

011116

000002

111

114
120
120

104401

116

117
122
122

124

101
111
111

LET ERRTBL(R2) := ERRTBL(R2)
INC
ERRTBL(R2)
LET LSLUN := LUNIT
MOV
LUNIT,L$LUN
ERRHRD S,ERR12
TRAP
CSERHRD
.WORD
S
.WORD
ERR12
.WORD
0
LET (SP) := @END2
MOV
QEND2, (SP)
ENDSRYV
L10007:
RTI

3
;:INTERRUPT HANDLER FOR EXPECTED INTERRUPT
H
BGNSRYV
H
INTHDL: LET (SP) := #END2
MOV
#END2, (SP)
ENDSRV
L10010:
RTI
:
.NLIST BEX

INTFAC:

.ASCIZ

H
;ERROR MESSAGES
;
ERR11:
.ASCIZ
ERR1Z2:
-ASCIZ
ERR13:
.ASCIZ
.EVEN
ENDTST
L10006:
TRAP
.LIST BEX

ENDMOD

/INTERFACE LOGIC TEST 1

TEST COMPLETE/<12><12>

ASSOCIATED WITH THIS TEST
/LOADING PRINTER BUFFER DOES NOT CLEAR READY/
/PRINTER INTERRUPTED AT SAME LEVEL AS THE PROCESSOR/
/PRINTER DID NU. INTERRUPT AT CPU PRIORITY 3/

CSETST

CZLPLFOQ 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 01165€
011656
011660
1886
1887 011662
011662
1888 011662
011662
1889 011666
011666
11672
1890
1891
1892 011674
011674
011700
011702
011702
011706
011706
011712
1893 011714
011714
011720
1894 011722
011722
011730
189S 011732
011732
1896 011736
011736

MACRO YOS.Oé’ Wednesday 10-Apr-85 09:07

Page 24
SEQ 0056

TEST 2

.SBTTL

READY LINE INTERLOCKS

TEST 2

BGNMOD
;00

:THIS TEST CHECKS THE OPERATION OF THE
;PRINTER READY INTERLOCK SWITCHES.

;MANUAL

INTERVENTION IS USED

;OPEN THE INTERLOCKS TO PRODUCE FAULTS
;IN THE PRINTER AFTER WHICH THE RESULTANT ERROR
:INDICATION IS VERIFIED.
?GNTST
2::

;DETERMINE IF MANUAL INTERVENTION IS ALLOWED
MANUAL

104450

TRAP
C$MANI
BCOMPLETE 11
BCS
11
EXIT TST
TRAP
C$EXIT
.WORD
L10011-.

103402
104432
002742

;EXIT TEST IF MANUAL INTERVENTION TESTS ARE NOT SPECIFIED

005737
00100

11s:

002266

104432
002730

IF INHINT ©Q #0 THEN
TST
INHINT
BNE
S0116%
EXIT TST
TRAP
CSEXIT
.WORD
L1001t .

ENDIF
50116%:
005037

002300

013701
005301

002012

LET FLAG := 40
CLR
FLAG
LET Rl := LSUNIT MOV
L$UNIT,RL
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

002362

INCR LUNIT FROM #0 TO Rl BY #1
CLR
LUNIT
BR
50117
50120%:
INC
LUNIT
50117s:
CMP
LUNIT,R1
BGT
50121
LET R2 := LUNIT SHIFT 1
MOV
LUNIT,R2
ASL
R2
IF 4BIT15 SETIN SLPCSR(R2) THFN
BIT
#8IT15,8LPCSR(R2)
BEQ
50122¢
LET ERRTBL(R2) := ERRTBL(R2) + #1
INC
ERRTBL(R2)
ERRHRD 6, CSRERR
TRAP
CSERHRD

CZLPLFO LP25, LP26, LP27, LPO7
READY LINE INTERLOCKS
011740
011742
011744
1897 011746
011746
1898 011752
011752
1899 011752
011752
011754

MACRO Y05.02

SEQ 0057

000006
003412
000000
005072

1902

1903
1904

190S
1906

012026
012030
012032

1907 012034
012034
1908 012034
012034
012036

1909
1910
1911
1912 012036
1913
1914
1915
1916 012100
012100
1917 012104
1918 012110
1919 012112
1920 012112
1921 012116
012116
012122
1922 012124
1923 012124

Page 24-1

TEST 2

.WORD
.WORD
.WORD
002362

CLR
ENDIF

50122%:
ENDINC
BR
50121¢:

000753

1900
1901 011754

011754
011760
011762
011762
011766
011766
011772
011774
011774
012000
012002
012002
012010
012010
012016
012020
012020
012024
012024

Wednesday 10-Apr-85 09:07

6
CSRERR
©
LET 8LPCSR(R2)
SLPCSR(R2)

:= 90

501204

;CHECK FOR READY IN EACH PRINTER UNDER TEST
005037
000402
005237

INCR LUNIT FROM 40 TO R1 BY #1
CLR
LUNIT

002320

50124:

002320

50123$:

023701
003021

002320

013702
006302

002320

013737

002320

002074

032772
001006

000200

002362

005262

003120

B8R

50123

INC

LUNIT

CMP
LUNIT,R1
BGT
50125%
LET R2 := LUNIT SHIFT 1
MOV
LUNIT,R2
ASL
R2
LET LSLUN := LUNIT
MOV
LUNIT,L$LUN
IF 9BITO7 NOTSETIN SLPCSR(R2) THEN
BIT
#B8IT07,8LPCSR(R2)
BNE
501264
LET ERRTBL(R2) := ERRTBL(R2) + #1
INC
ERRTBL(R2)
ERRHRD 7, RDYERR
TRAP
C$ERHRD
WORD
7
.WORD
RDYERR
.WORD
©
ENDIF

104456

000007
003430
000000

50126¢:
ENDINC

000752

50125%:

50124

: PRINT TEST NAME
OUTPUT #INTLK,#29,

; VERIFY OPERATION OF PAPER LOW INTERLOCK SWITCH
;HARD CODED INCREMENT LOOP
005037
005037
000405

002344
002320

005237

002320

013702
006302

002320

023701

002320

2%
:

1$:

LET ERRFLG := &0
CLR
ERRFLG
CLR LUNIT
BR
1

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

CMP LUNIT,R1

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
1642 012346

003402
000137

MACRO Y05.02

Page 24-2
SEQ 0058

TEST 2

012472
3s:

005037

002300

013746
012746
012746
010600
104417
062706

002320
013466
000002

012746
012746
010600
104417
062706

Wednesday 10-Apr-85 09:07

BLE 3
JMP 44
LET FLAG

CLR

:= 20

FLAG

PRINTF #PAPRSW,LUNIT
MOV
LUNIT, -(SP)
MOV
APAPRSMW, -(SP)
MOV
#2,-(5P)
MOV
SP,RO
TRAP
C$PNTF
ADD
#6,5SP
PRINTF 4PAPSW1
MOV
PAPSW1, -(SP)
MoV
#1,-(SP)
MOV
SP,RO
TRAP
CSPNTF
ADD
4 ,5P

000006
013536
000001

000004

GMANIL READY,

104443
000404
002300
000130
007673
100000

10000¢:
012737

000310

005037

002344

TRAP
BR
.WORD
.WORD
.WORD
.WORD

C$GMAN
100004
FLAG
T$CODE
READY
100000

FLAG,

LET LINCNT := £200.
MOV
#200. ,LINCNT
LET ERRFLG := %0

002302

CLR

REPEAT

100000,

YES

; ALLOW FOR ABOUT 3 PAGES OF PAPER

ERRFLG

50127¢:
005337

002302

005737
001403
005737
001747

002302
002344

50130¢:
005737
001011

002344

104456
000010
003452
000000
005262

003120

000137

012352

000402
50:31%:

OUTPUI &PAPTST,&1S.,453,LUNIT
LET LINCNT := LINCNT - #1
DEC
LINCNT
UNTIL LINCNT EQ #0 OR ERRFLG NE 90
TST
LINCNT
BEQ
50130
TS7
ERRFLG
BEQ
50127
IF ERRFLG EQ 40 THEN
TST
ERRFLG
BNE
50131
ERRHRD 8,PAPSWI
TRAP
C$ERHRD
.WORD
8
.WORD
PAPSWI
.WORD
O
LET ERRTBL(R2) := ERRTBL(R2)
INC
ERRTBL(R2)
INLINE
<JMP
“?1002$>
JMP
11002
ELSE
BR
501324

LET ERRFLG

:= #0

CZLPLFO LP25,

LP26,

LP27,

READY LINE INTERLOCKS

012346
1943 012352
012352
1944 012352
012352
012356
012362
012366
012370
012372
1945 012376
012376

1946 012402
012402

012404

012406
01241n
012412
012414
012416
1947 012416
012416
012422
1948 012424
012424
1949 012430
1950
1931
1952
1953 012434
012434

1954 012442

012442
1955 012446
012446

1956 012454
012454
1957 012460
012460
1958 012464
012464
1959 012470

0%982

p27

L
.
1961 012472
012472
012476
012500
012500
012504
012504
012510
1962 012512
012512
012516

1963 012520

012520
1964 012526

005037

LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 24-3

SEQ 0059

TEST 2

002344

013746
012746
012746
010600
1044'7
062706

000006

005037

002300

CLR
ENDIF

ERRFLG

50132%:
11002¢: PRINTF #PAPRDY,LUNIT
MOV
LUNIT, -(SP)
MOV
#PAPRDY, -(SP)
MOV
#2,-(SP)
MOV
SP,.RO
TRAP
CSPNTF
ADD
#6,SP
LET FLAG := &0
CLR
FLAG

002320
013605
000002

104443

GMANIL READY,FLAG,100000,YES
TRAP
C$GMAN

002300
000130
007673
100000

.WORD
.WORD
.WORD
.WORD

000404

B8R

10001

FLAG
T$CODE
READY
100000

10001
:

013702
006302

002320

005072
000137

002362
012112

012737

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

002344

002516

LET R2 := LUNIT SHIFT 1
MOV
LUNIT,R2
ASL
R2
LET 8LPCSR(R2) := #0
;: RESET THE LP CSR
CLR
aLPCSR(R2)
JMP 2%
;EXPE"TED ERROR HANDLER.
;JUST SET EXPECTED ERROR TINDICATOR.
;
5$:
LET ERRFLG := #1
MOV
41 ,ERRFLG
LET ERRCOD := &0
CLR
ERRCOD
LET STATUS(R2) := STATUS(R2) CLR.BY #ERROR'ACTIVE
BIC

LET
CLR
LET
CLR
LET
CLR
RTS

SERROR'ACTIVE,STATUS(RR)

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

;

;VERIFY OPERATION OF HAMMER BANK

4s:

002074

INCR
CLR
BR
50134
INC
50133%:
cMP
BGT
LET
MOV
ASL
LET
MOV
LETM

CLEAN UP THE DRIVER PARAMETERS

LUNIT FROM #0 TO R1 BY #1
LUNIT
50133s
LUNIT
LUNIT,R1
50135
R2 := LUNIT SHIFT
LUNIT,.R2
R2
LS$LUN := LUNIT
LUNIT,LSLUN
FLAG := &0

;AND RETURN

INTERLOCK

SWITCH ON LP2S,<6

-OR-

VERIFY BAND GATE LATCH ON

CZLPLFO LP25,

LP26, LP27, LPO7

READY LINE INTERLOCKS

TEST 2

012526

005037

002300

012532
012540
1966 012542
012542
012546
012552
012556
012560
012562
1967 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

032762
001413

002000

013746
012746
012746
010600
104417
062706

002320
014325
000002

1965 012532

MACRO Y05.02

Wednesday 10-Apr-85 09:07

SEQ 0060

CLR
FLAG
1F #FLAGO7 SETIN STATUS(R2)
THEN
BIT
#FLAGO7,STATUS(R2)
BEQ
50136%
PRINTF 4BGTLCH,LUNIT
MOV
LUNIT, -(SP)

002516

000006

000422

501364
:
013746
012746
012746
010600
104417
062706
012746
012746
010600
104417
062706

002320
013714
000002

013771
000001

000004

50137¢:

SC137$

MOV
MOV
MOV
MOV

rRINTF OHAMRSW,LUNIT
LUNIT, -(SP)
#HAMRSHW, -(SP)
&2,-(SP)
SP,RO

MOV
MOV
MOV
TRAP
ADD
ENDIF

#BGTLCH, -(SP)
42,-(SP)
SP,RO
CSPNTF
#6,5P

C$PNTF
@6 ,SP
PRINTF #HAMSW1
#HAMSW1, -(SP)
&1,-(SP)
SP,RO
CSPNTF
#4,SP

GMANIL READY, FLAG,
TRAP
C$GMAN

104443
000404
002300
000130
007673
100000

BR
.WORD

10002$
:

100000

013746
012746
012746
010600
104417
062706

002320
014032
000002

002362

000006

104443
000404
002300
000130
007673
100000
10003s:

000422

MOV
MOV
MOV
TRAP
ADD
ELSE
BR

TRAP
ADD

000006

032772
001421

Page 24-4

.WORD
.WORD
.WORD

100000,

YES

10002¢
FLAG
T$CODE
READY
100000

IF 4BIT1S5S SETIN 8LPCSR(R2) THEN
BIT
#B8IT15,8LPCSR(R2)
BEQ
501408
PRINTF &#HAMRDY,LUNIT
MOV
LUNIT, -(SP)
MOV
¢HAMRDY, -(SP)
MOV
#2,-(SP)
MOV
SP,RO
TRAP
C$PNTF
ADD
#6,5P
GMANIL READY, FLAG, 100000,
TRAP
C$GMAN
BR
10003
.WORD
FLAG
.WORD
T$CODE
.WORD
READY
.WORD
100000

ELSE

50141

YES

CZLPLFO LP25,

LP26,

LP27,

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

LPO7

MACRO Y05.02

Wednesday

SEQ 0061

005262

003120

013737

002320

002074

MOV

032762
001405

002000

002516

BIT
BEQ

INC

104456
000021
004221
000000

TRAP
.WORD
.WORD
.WORD

000404

50142

104456
000011
003515
000000

TRAP
.WORD
.WORD
WORD
50143s:

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

IF &FLAGO7 SETIN STATUS(R2)
AFLAGO7,STATUS(R2)
50142¢
ERRHRD 17,BGTSWI
C$ERHRD
17
BGTSWI
O
ELSE
50143¢

THEN

C$ERHRD
9
BNKSWI
O
ENDIF

ERRHRD 9,BNKSWI

ENDIF
50141
ENDINC
BR
50134
50135%:
;VERIFY OPERAIION OF CHARACTER BAND INTERLOCK SWITCH ON LP25,26

000644

005037
000402

002320

005237

002320

50145s:
50144
;

002320

013702
006302

002320

005037

002300

032762
001417
032762
001013

002000

002516

001000

002516

002320
014425
000002

000006

VFU INTERLOCK ON LPO?

INCR LUNIT FROM 40 TO R1 BY &%

023701
003162

000422

Page 24-S

TEST 2

50140%:

013746
012746
012746
010600
104417
062706

10-Apr-85 09:07

CLR
BR

LUNIT
50144

INC

LUNIT

CMP
8GT
LET R2
MOV

LUNIT,R1
501464
:= LUNIT SHIFT 1
LUNIT,R2
ASL
R2
LET FLAG := @0
CLR
FLAG
IF 9FLAGO?7 SETIN STATUS(R2) AND #FLAG26 NOTSETIN STATUS(R2)
BIT
#FLAGO7,STATUS(R2)
BEQ
50147
BIT
OFLAG26,STATUS(R2)
BNE
501474
PRINTF &#VFULNT,LUNIT
MOV
LUNIT, -(SP)
MoV
MOV
MoV

TRAP
ADD
ELSE
BR

QVFUINT, -(SP)
2,-(SP)
SP,RO

CSPNTF
€6,5P

50150¢

THEN

CZLPLFO LP25, LP26,

LP27, LPO7

READY LINE INTERLOCKS

013070
1993 013070
013070
013074
013100
013104
013106
013110
1994 013114
013114
013120
013124
013126
013130
1995 013134
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
013252
2003 013252
013252
013254
013256
013260
013262

MACRO Y05.02

Wednesdasy 10-Apr-85 09:07

Page 24-6
SEQ 0062

TEST 2

50147
013746
012746
012746
010600
104417
062706
012746
012746
010600
104417
062706

002320
014116
000002

MOV
MOV
MOV
MOV
TRAP
ADD

000006
014204
000001

000004

50150%:

GMANIL READY, FLAG,
TRAP
C$GMAN

104443
000404
002300
000130
007673
100000

B8R

10004:

032772
001444

100000

002362

032762
001417
032762
001013

002000

002516

001000

002516

013746
012746
012746
010600
104417
062706

002320
014517
000002

000006

000412
S0152%:
013746
012746
012746
010600
104417
062706

MOV
MOV
MOV
TRAP
ADD
ENDIF

002320
014234
000002

.WORD
.WORD
.WORD
.WORD

MOV
MOV
MOV
MOV
TRAP
ADD

000006

000404
002300
000130
007673

100000,

YES

10004

FLAG
Ts$CODE
READY
100000

IF #BIT1S SETIN 3LPCSR(R2) THEN
8IT
#B81IT15,9LPCSR(R2)
BEQ
S0151s
IF 9FLAGO7 SETIN STATUS(R2) AND 9#FLAG26 NOTSETIN STATUSC(R2) THEN
81T
#FLAGO7,STATUS(R2)
BEQ
50152
BIT
ALAG26,STATUS(R2)
BNE
50152
PRINTF &VFURDY,LUNIT
MOV
LUNIT, -(SP)
MOV
SVFURDY, -(SP)
MOV
82,-(sP)
MOV
SP,RO
TRAP
C$PNTF
ADD
#6,SP
ELSE
BR
50153

50153s:

104443

PRINTF @BANDSW,LUNIT
LUNIT, -(SP)
#BANDSH, -(SP)
®2,-(SP)
SP,RO
CSPNTF
#6,5P
PRINTF #BNDSW1
#BNDSW1, -(SP)
#1,-(SP)
SP.RO
CS$PNTF
44,5P

PRINTF 4BNDRDY,LUNIT
LUNIT, -(SP)
#BNDRDY, -(SP)
#2,-(SP)
SP,.RO
CSPNTF
#6,5P
ENDIF

TRAP

GMANIL READY,
C$GMAN

.WORD

FLAG

B8R

.WORD
.WORD

100054

T$CODE
READY

FLAG,

100000,

YES

CZLPLFO LP25,

LP26,

LP27,

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
2013

2014
2015
2016
2017

2018
2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029
2030
2C31
2C32

013344
013344
013344
013352
013352
013354
013354
013354
013362
013424
013424
013426

LPO7

MACRO Y05.02

Wednescay 10-Apr-85 09:07

SEQ 0063

TEST 2

100000

10005:

000426

.WORD

100000

ELSE
BR

50154

50151¢:

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
000012
003562
000000

50154¢:
000000

002362

000611

012737

000014

003164

104432
001162

LET ERRTBL(R2) := ERRTBL(R2) + &1
ERRTBL(R2)
LET LSLUN := LUNIT
LUNIT,LS$LUN
IF @FLAGO7 SETIN STATUS(R2) AND #FLAG26 NOTSETIN STATUS(R2) THEN
ALAGO7,STATUS(R2)
501554
oFLAG26,STATUS(R2)
501554
ERRHRD 16, VFUINF
C$ERHRD
16
VFUINF
O
ELSE

50156$

TRAP
.WORD
.WORD
.WORD

501564:

012772

Page 24-7

C$ERHRD
10
BNDSWI
0
ENDIF

ERRHRD 10,

BNDSWI

ENDIF

LET
ngv
ENDI N

SLPCSR(R2) := #00
€00, 3LPCSR(R2)

BR
50146%:
LET OUTBUF

50145
:=

@14

MOV
@14,0UTBUF
ouTP UT &0UTBULF,
&1
EXIT TST
TRAP
CSEXIT
.WORD
L10011-.

.NLIST B £X

013430
013466
013536
013605
013674
013714
013771
014032
014116
014204
014234
014325

122
045
045
045
120
045
045
045
045
045
045
045

105

116
101
116
101
116
116
116
116
116
116
116

101

045
040
045

120
045
04s

045
045
045
045
045

INTLK:
PAPRSU:
PAPSW1:
PAPRDY:
PAPTST:
HAMRSM
:
HAY" 11

HAMRDY;
BANDSMW:
BNDSW1
:
BNDRDY:
BGTLCH:

/READY LINE INTERLOCK TEST 2/¢12><12>
.ASCIZ
.ASCIZ /¥NSATEAR OFF PAPER JUST BELOW LUNIT wD2/
/%A TO CHECK PAPER LOW #NSAINTERLOCK.®N/
.ASCIZ
/%NSARESTORE PAPER, CLEAR, PLACE LUNIT %D2%A ON LINE.®%N/
.ASCI2Z
/PAPER LOW TEST/<12>
.ASCIZ
/%NSADISENGAGE HAMMER BANK LATCH ON LUNIT wD2/
.ASCIZ
/%N$ATO CHECK INTERLOCK SWITCH.sN/
.ASCIZ
/%NSAENGAGE LATCH,CLEAR,PLACE LUNIT wD2%A ON LINE.%N/
.ASCIZ
.ASCIZ
/%N$AOPEN CHARACTER BAND COVER ON LUNIT #D2#A TO CHECK/
.ASCIZ
/%NSAINTERLOCK SWITCH.®N/
.ASCIZ/%N%ACLOSE BAND COVER ON LUNIT w%D2%A,CLEAR,PLACE ON LINE./
.ASCIZ /¥NWAOPEN BAND GATE LATCH ON LUNIT #D2#A TO CHECK MICROSWITCH.SN/

CZLPLFO LP25,

LP26,

LP27,

READY LINE INTERLOCKS

2033 014425
2034 014517
2035
2036
2037
2038 014610
014610
014610
2039
2040 014612
2041

045
045

104401

LPO7

MACRO Y05.02

Wednesdsy

10-Apr-85 09:07

Page 24-8

SEQ 0064

TEST 2
116
116

045
045

VFUINT:
VFURDY:
.EVEN

_ASCIZ /#NSALIFT VFU COVER ON LUNIT #D2%A TO CHECK MICROSWITCH.®%N/
.ASCIZ /#N®ACLOSE VFU COVER ON LUNIT %D2%A,CLtAR,PLACE ONLINE.®N/

.LIST BEX
ENDTST
L10011:
TRAP
ENDMOD

CS$ETST

CZLPLFO LP25, LP26,

LP27, LPO7

MACRO Y05.02

Wednesday

10-Apr-85 09:07

Page 25

SEQ 006S

FORMS LENGTH SELECTION

2043
2044 014612
2045
2046
2047
20498
2049
2050
2051
2052
2053
2054 014612
014612
2055
2056 014612
014612
2057 014614
014614
2058 014616
014616
014620

2059

2060 014622
2061 014626
2062 014630
014630
014632
2063 014634
014634
014640

2064
2065 014642
014642

2066

2067

2068

2C69

014646
014650
014650
014654
014654
014660
014662
014666
014666
114666
014672
014674
014674
014702
014704
014710
014710
014714
014720
014724
014726
014730
014734
014734

.SBTTL FORMS LENGTH SELECTION
B8GNMOD
;oo

;THIS TEST CHECKS ALL POSITIONS OF THE FORM LENGTH SELECT SWITCH. THE
sPROGRAM INDICATES THE SPECIFIED SETTING OF THE FORM LENGTH SELECT SWITCH
;AND WAITS FOR THE OPERATOR TO SET THE SWITCH ON THE PRINTER. THE PAPER
;IS THEN ADVANCED UNDER PROGRAM CONTROL. THE PRINTER OUTPUT IS VISUALLY
;INSPECTED AFTER ALL SWITCH SETTINGS HAVE BEEN RUN THROUGH BY THE OPERATOR
;7O _VERIFY THAT THE PROPER PAPER MOVEMENT HAS OCCURRED FOR EACH SWITCH
;SETTING. ALL LPO7'S OR LP27'S WILL BE TESTED ON ALL TCVFU CHANNELS AND LINE COUNTS.

BGNTST 3
T3::

;DETERMINE IF MANUAL INTERVENTION 1S ALLOWED
MANUAL
TRAP

104450

C$MANI
BCOMPLETE 1
8CS
14
EXIT TST
TRAP
CS$EXIT
.WORD
L10012-.

103402
104432
003076
005737
001002

sEXIT TEST IF MANUAL INTERVENTION TESTS ARE NOT SPECIFIED

002266

14:

104432
003064

013701
005301
000001

002012

005037
000402

002320

005237
023701
003402
000137

2$:

$BRUMP=1

S0157%:

002320

S0160%:

002320
016436

S0161%:

013702
006302

002320

032762
001402
000137

002000
015354

TST INHINT
BNE 2%
EXIT TST
TRAP
CSEXIT
.WORD
L10012-.
LET Rl := LS$UNIT - o1
MOV
LSUNIT,R1
DEC
R1

INCR LUNIT FROM #0 TO R1 BY &1
CLR
LUNIT

B8R

50160

INC

LUNIT

CMP
BLE
JMP

LUNIT,R1
S01614
501624

8IT

LET R2 := LUNTT SHIFT 1
LUNIT,R2
R2
IF #FLAGO7 NOTSETIN STATUS(R2)
#FLAGO7,STATUS(R2)

JMP

50163

MOV
ASL

002516

B8EQ

013746
012746
012746

002320

062706

000006

MOV
MOV
MoV
MOV
TRAP
ADD

012746

016570

MOV

010600
104417

016504

000002

.+6

PRINTF SLINSWI,.LUNIT
LUNIT, -(SP)
OMLINSWI, -(SP)
®,-(SP)
SP.RO
CSPNTF
&6, 5P
PRINTF @LINSH1
S®LINSWL, -(SP)

THEN

CILPLFO LP2S, LP26, LP27, LPO7

MACRO Y05.02

Wednesdsy 1U Apr 85 09:07

Page 25 1
SEQ 0066

FORMS LENGTM SELECTION
014740
014744
014746
014750
2070 014°54
014754
014760
014764
01470
014772
024774
2071 015000
015000
015004
015010
015014
015016
015020
2072 015024
015024
01503C
015034
015040
015042
015044
2073 015050
015050
015052
015054
015054
015060
015060
015064
015066
015072
2074 015072
015072
015100
2075 015104
015104
015110
015114
015120
015124
015126
015130
2076 015134
015134
015140
015144
015146
015150
2077 015154
015154
2G78 015160
015160
015162

012746
010600

104437
062706
013746
012746
012746
010600
104417
062706
013746
012746
012746
010600
104417
062706

000001

TRAP
ADD

000004

MOV
MOV
MOV
MOV
TRAP
ADD

000002

000006

002320
016747
000002

MOV
MOV
MOV
MoV
TRAP
ADD

000006

002320

017443
000002

062706

0000C6

MCV
MOV

MoV
MOV
TRAP
ADD

005003
000402
062703

000004

020327

000050

003402
000137

017275
016442

013746
0137436
012746
012746
010600
104417
062706

016442
002320
017351
000003

012746
012746
010600
104417
062706

017443
000001

005037

104443
000404

501648

50165¢:

015350

012737
060337

000010

(sP)

SP,RO
CSPNTF

#4,5P

PRINTF

002320
016650

013746
012746
012746
010600

104417

MOV
MOV

50166¢:
016442

OFLSSEL,LUNIT

LUNIT, -(SP)
OFLSSEL, -(SP)
&82,-(SP)

SP,RO

CSPNTF

6,5P

PRINTF &FLS1,LUNIT
LUNIT, -(SP)
oFLS1, -(SP)
82,-(sP)
SP,RO
CSPNTF
#6,5P
PRINTF &FLSMS1,LUNIT
LUNIT, -(SP)
&FLSMS1, -(SP)
&2,-(SP)
SP,RO

CSPNTF

96,5P

INCR R3 FROM #0 TO 450 BY #4

CLR

R3
50165¢

ADD

¢4 ,R3

BLE
JMp

cHP

R3, 850
501663
501673

MoV
ADD

OFFSET,T3SET
R3,T3SET

MOV
MOV
MOV
MOV
MOV
TRAP
ADD

T3SET, -(SP)
LUNIT, -(SP)
OFLSMSG, -(SP)

LET T3SET

PRINTF

&FFSET

&FLSMSG,LUNIT,T3SET

SP,RO
CSPNTF

910,5P

000004

MOV
MOV
MOV
TRAP
ADD

&FLSMS1, -(SP)
e1,-(5P)
SP,RO
CSPNTF

002300

CLR

FLAG

TRAP
BR

C$GMAN

PRINTF AFLSMS1

o4,5pP

10000

LET FLAG

¢0

GMANIL READY,FLAG,100000,YES

—

CILPLFO LP2S, LP26, LP27, LPO?

MACRO Y05.02

Wednesday 10 Apr 85 09:07

Page 25-2
SEQ 0067

FORMS LENGTH SELECTION
015164
015166
015170
015172
015174
2979 015174
2080 015236
2981 015300
29082 015342
2083 015346
015346
015350
2084 015350
015350
015354
2085 015354
2086 015416
2087 015422
2088 015464
015464
2089 015472
015472
2090 015500
015500
015506
015510
015510
015514
015514
015522
015524
015530
2091 015530
2092 015572
2C93 015€34
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
016012
016016

002300
000130
007673
100000

.WORD
.WORD
.WORD
.WORD

100008:

004737

S0167%:
016142

50163s:
004737

50164

JMP

ELSE
50170%

000052

003162

MOV

012737

000200

003164

MoV

012737
000402

000001

003160

MOV
BR

023727
003402
000137

S0171s;

003160
003160

ENDINC

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

OUTPUI 4REFLIN,®30.,,LUNIT

005606

012737

005237

T$CODE
READY
100000

005606

000642

000137

FLAG

006014

50172¢:

015642

50173s:

TO #12.

REF.

LINE

;SECTION ID
;CODE FOR ASTERISK
;CHANNEL CODE

€200,0UTBUF

INCR WORK FROM @1

;TEST ID

JSR PC,QUIET
OUTPUI OCHNSEC,#13., ,LUNIT
LET WORK1 := &52
452,W0RK1
LET QUTBUF := 2200

o
@1 ,WORK

;TEST ID

;REPEAT FOR ALL

12 CHANNELS

50172¢

INC

WORK

cHp
ELE
JMP

WORK, 812,

50173s
50174

OUTPUI Q0UTBUF,&1,,LUNIT

005237

003164

000723
50174

012737

000014

003164

OUTPUI &WORK1,®1,,LUNIT,WORK
LET QUTBUF := QUTBUF . &1

INC

OUTBUF

50171s

MOV

LET
€14,0UTBUF

ENDINC

000052

003162

MoV

012737

000220

003164

MoV

#220,0UTBUF

005037
000402

003160

CLR

WORK
50176

005237

003160

INC

WORK

cHP
BLE
JMp

WORK,#15.
50177
502008

023727
003402
000137

003160

000017

50176%:

016142

50177s:

OUTBUF

#14

OUTPUI &QUTBUF,&1, ,LUNIT
OUTPUI &LINSEC,#1S.,,LUNIT
LET WORKL := 452
452, WORK1
LET QUTBUF := #4220

012737

50175s:

;NEXT CHANNEL

INCR WORK FROM #0 TO #15.

;SECTION ID
;CODE FOR ASTERISK
;:CODE FOR VFU
BY @1

CILPLFO 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
005737
016064
003002
016066
000137
2103 016072
2104 016134
016134
2105 016134
016134
005237
2106 016140
016140
000716
0:6142
210° 016142
06142
2108
2109 016142
016142
032762
016150
001402
016152
000137
2110 01615€
016156
013746
016162
012746
016166
012746
016172
0106¢C.
016174
10447
016176
062706
2111 016202
016202
013746
016206
012746
016212
012746
016216
010600
016220
104417
016222
062706
2112 016226
016226
012737
2113 016234
016234
005037
2114 016240
016240
104443
016242
000404
002300
016244
016246
000130
016250
007673
015252
100000
016254
2115 016254
2116 016316
016316
000137
016322
2117 016322
016322
012737
2118 015330
2119 016372
016372
2120 015372
016372
012746

003140

157

WORK

JMP

502014

B8GT

016134

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

.+6

ENDIF

502018

003164

502008
:

INC

oUTBUF

B8R

50175

LET OUTBUF

002516

BIT
BEQ
JMP

016322

002320
017203
000002

MOV
MOV
MOV
MOV
TRAP
ADD

000006
002320
017443

MOV
MoV
MOV
MOV
TRAP
ADD

n0002

V00026
000,14

003164

Mov

002300

10001s:

016372

502028
000014

003164

FLAG

TRAP
BR
.WORD

CS$GMAN
10001
FLAG

.WORD
.WORD
.WORD

T$CODE
READY
100000

JMP

ELSE
50203

50203¢:
017042

MoV

"REGULAR” SETTING

IF AFLAGO7 NOTSETIN STATUS(R2)
#FLAGO7,STATUS(R2)
.+6
502024
PRINTF ONMLFLS,LUNIT
LUNIT, -(SP)
ONMLFLS, -(SP)
@2,-(SP)
SP,RO
CSPNTF
6,5P
PRINTF &FLSMS1,LUNIT
LUNIT, -(SP)
#FLSMS], -(SP)
#2,-(SP)
SP,RO
CSPNTF
*,5P
LET OQUTBUF := #14
414,0UTBUF
LET FLAG := 40

CLR

MOV

:= QUTBUF

;PRINT ASTERISK

ENDINCR

ENCIF
S0170s:
;SET FORMS LENGTH SELECT SWITCH TO ITS

002000

OUTPUI 4WORK1,&1,,LUNIT,WORK

THEN

;:CLEAR

GMANIL READY,FLAG,100000,YES

<CR> FLAG

;AND WAIT FOR RESPONSE

OUTPUI #0UTBUF,#1,,LUNIT

LET OUTBUF := #14
#14,0UTBUF
OUTPUI QOUTBUF,#1, ,LUNIT
ENDIF
PRINTF #PAPCHK
#PAPCHK, -(SP)

:MAKE SURE MOVEMENT WAS RIGHT

CZLPLFO LP2S, 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 016650
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
2133 017616
2154
2155
2156
2157 017716
017716
017716
2158 017720
2159

012746
010600
104417
062706

000004

MOV
MoV
TRAP
ADD

005037

002300

CLR

000001

104443
000404
002300
000130
007673
100000

10002s
:
000137

014650

501624
:

1771777

ENDINC
JMP

SC157¢

$BRIMP=-1
EXIT TST
TRAP
.WORD
T3SET:
.WORD
T3MOV:
.wORD
.NLIST BEX

104432
0012%6
00C000
000000

103
114
045
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

TRAP
BR
.WORD
.WORD
.WORD
.WORD

e1,-(SP)
SP,RO
C$PNTF
94 ,SP
LET FLAG := 40
FLAG
GMANIL READY,FLAG, 100000,YES
C$GMAN
10002
FLAG
T$CODE
READY
100000

;WAIT FOR RESPONSE

CSEXIT
L10012-.
O
O

CHNSEC: .ASCIZ /CHANNEL 1-12/¢12>
LINSEC: .ASCIZ /LINE COUNT 0-15/
LINSWI: .ASCIZ /#N¥ASET LINES SWIICH ON UNIT %D2%A T0O “6" ;0 SELECT/
LINSW1: .ASCIZ /%Nw%A6 LINES PER INCH VERTICAL PRINTING DENSITY./
FLSSEL: .ASCIZ /#N2%ASET VFU-FLS SWITCH ON UNIT %02%A TO THE “FLS' POSITION.®N/
FLS1:
-ASCIZ /%NSASET FORMS LENGTH SELECT SWITCH ON UNIT %D2%A TO “8".%N/
PAPCHK: .ASCIZ /%N®AVERIFY PROPER PAPER MOVEMENT./
REFLIN: .ASCIZ /FORMS LENGTH SELECTION TEST 43---REFERENCE LINE.............. /<14>
NMLFLS: .ASCIZ /#N®ASET FORMS LENGTH SELECT SWITCH ON UNIT %D2%A TO 11.%N/
; SWITCH SETTINGS FOR FORMS LENGTH MESSAGES
FFSET:
.ASCIZ /3
7/
.ASCIZ /3.5/
.ASCIZ /74
/
.ASCIZ /5.5/
.ASCIZ /6
/
.ASCIZ 77
/
.ASCIZ /8
/
.ASCIZ /8.5/
.ASCIZ /711 /
.ASCIZ r12 /
.ASCIZ /14 /
FLSMSG: .ASCIZ /#N®ASET FORMS LENGTH SELECT SWITCH ON UNIT %D2%A TO %TsA,/
FLSMS1: .ASCIZ /#N¥ADEPRESS “CLEAR"”,“TOF”, AND PLACE ON LINE.%N/
FLSMS2: .ASCIZ /%NADEPRESS “CLEAR",“TCF”,AND PLACE ON LINE,ON LUNIT %D2%N/
MOVMSG: .ésgiz / INCHES SHOULD OCCUR BETWEEN THIS AND THE REFERENCE LINE..... /<12>
EV
.EVEN
.LIST BEX
ENDTST
L10012:

ENDMOD

TRAP

CSETST

CZLPLFO LP25,

LP26,

LP27,

LPO7

MACRO Y0S5.02

Wednesday 10-Apr-85 09:07

Page 26

SEQ 0070

PRINTING SPEED MEASUREMENT
2161
2162 017720
2163
2164
2165
2166
2167
2168
2169
51;0
171
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
Ci77Se
017754
2181 017756
017756
017760
2182 07760
017760
2183 017766
017766
2184 017766
017766
017770
2185 017770
017770
2186 017776
017776
2187 017776
2188 020040
020040
020044
020046
020054
020056
020060
020064

.SBTTL PRINTING SPEED MEASUREMENT
BGNMOD
jee
i

:
i
:
:

013701
005301

002012

005737
001416

002270

104450
103402
104432
006042
005737
001003

002266

104432
006030
000403

013737

002272

003160

013746
002502
023727
003076

006316
062716
013607

i SYSTEM HAS A CLOCK VIA SUPPLYING A COUNT OF >ECONDS. ANY TIME INTERVAL OF
i 4 TO 60 SECONDS MAY BE SELECTED. THIS IS ONE OF THE "SW' QUESTIONS .
i-BGNTST
4
14::
:
LET R1 := LSUNIT - &1
;NUMBER OF UNITS TO TEST
MOV
L$UNIT,R1
DEC
R1
IF MANSPD NE #0 THEN
: DETERMIN IF MANUAL TESTING SELECTED
ST
MANSPD
BEQ
50204
MANUAL
;DETERMINE IF MANUAL INTERVENTION ALLOWED
TRAP
C$MANI
BCOMPLETE 1
BCS
14
EXIT TS7
TRAP
CSEXIT
.WORD
L10013-.
1s:
IF INHINT EQ 40 THEN
: EXIT IF INTERVENTION INHIBITED
TST
INHINT
BNE
502054
EXIT TST
TRAP
CeEXIT
.WORD
L10013-.
ELSE
B8R
502063
50205¢:
LET WORK := PERIOD
MOV
PERIOD,WORK
ENDIF

002272

003160

002326
002326

020066

000004

BR
50204
:
LET WORK
MOV
ENDIF

50207
:= PERIQD
PERIOD,WORK

50207%:
OQUTPUT A&PRTSPD, #36.
SELECT CLKTYP OF 4 VERIFY
MOV
CLKTYP,-(SP)
BLT
502163
CcMP
CLKTYP,
%4
8GT
502164
ASL
(se)
ADD
#502108,(SP)
MOV
8(SP)+,PC

;

TO THE OPERATOR THE TOTAL NUMBER OF

50206:
ELSE

000403

013737

THE PRINT SPEED TEST WILL REPORT

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

DISPATCH TABLE

;

CLOCK TEST

TIME

;PRINT TEST ID
;SET UP THE RIGHT CLOCK

b
.

CZLPLFO LP25,

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
89 020076

21
2190 020100
020100
2131 020100
2192
2193 020104
020104
020106
2194 020106
020106
2195
2196 020114
020114
020120
2197 020122
020122
020126
020132
020136
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

50210¢:

020256
020100
020106
020160
020246

000137

.WORD
.WORD
.WORD
.WORD
.WORD
CASE 1
502144
:
JMP

022142

CASE 2

000464

012737

000100

012700
104441

000340

012746
012746
013746
012746
104437
062706

000300
037566
002336
000003

012700
104441

002340

000010

000000

013737
062737

002332
000002

002334
002334

012737

000111

002340

012700
104441

000340

012746
012746
013746
012746
104437
062706

000300
037566
002336
000003

012700
104441

000404

000010

000000

END4

;
;
;
;
;

CASE
CASE
CASE
CASE
CASE

0
1
2
3
4

: JUST EXIT TEST NO CLOCK AVAILBLE

50217

iKW11-L LINE CLOCK SELECTED

50213s:
LET CLKENA := #100
; INTERRUPT ENABLE/ CLR MONITOR
MoV
2100, CLKENA
: SET PRI7 WHILE CHANGING VECTOR ADDRESS
SETPRI #PRIO7
MoV
APRIO7,RO
TRAP
C$SPRI
SETVEC CLKVEC, #4CLKTCK, #PRI06
:SET UP INTERRUPT VECTOR
MOV
@PRI06, -(SP)
MOV
#CLKTCK, -(SP)
MOV
CLKVEC, -(SP)
MoV
@3,-(SP)
TRAP
C$SVEC
ADD
#10, 5P
SETPRI 4PRIOO
MOV
4PRIOO0,RO
TRAP
C$SPRI

CASE 3

000437

50215¢
50214%
50213¢
50212$
50211$

;KW1i-P REAL TIME CLOCK

50212¢4:
LET CLKSET := CLKCSR + #2
MOV
CLKCSR,CLKSET
ADD
2 ,CLKSET
LET CLKENA := #111
;:SET UP ENABLE BITS
MOV
#111,CLKENA
i RUN, RATE = 10KHZ, REPEAT INTR, DOWN,INT ENABLE
SETPRI #PRIO7
MOV
®PRIO7,RO
TRAP
C$SPRI
SETVEC CLKVEC,#CLKTCK, #PRIO6
; INTERRUPT VECTOR
MOV
¢PRIO6
- (SP)
,
MoV
¢CLKTCK, -(SP)
MOV
CLKVEC, -(SP)
MOV
#3,-(SP)
TRAP
C$SVEC
ADD
#10,5P
SETPRI 4PRIOO
MOV
#PRIOO,RO
TRAP
C$SPRI
CASE 4
50211¢:

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
02032
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
006302

002320

003164

NOP
; THIS IS JUST A DUMMY
ENDSELECTY
BR
50217¢
50216
ADD
#2,SP
502154
50217
LET QUTBUF :B= 4LF

MOvVB

#LF,QUTBUF

LET LUNIT := R}
MOV
R1,LUNIT
11
LET ERRFLG := #0
CLR
ERRFLG
LET R2 := LUNIT SHIFT 1
MOV
LUNIT,R2
ASL
R2

: DETERMINE WHICH BAND,
000001
032762
001402
000137

010000

002516

$BRUMP=1
IF 4FLAG96 NOTSETIN STATUS(R2)
BIT
#FLAGI96,STATUS(R2)

002000

012737

024754

000137

020352

002510

020344

023426

025370

023426

502224
:
012737

000205

003160

032762
001004
032762
001402

001000

002516

002000

002516

000137

020534

012746
012746
010600
104417
062706

024071
000001

000137

MOV

LET BNDPAT := #TABA64
#TABA64,BNDPAT

JMP

50222

ELSE

50221%:
012737

THEN

;

64 CHAR BAND

BEQ
.+6
JMP
502208
IF FLAGO7 NOTSETIN STATUS(R2) THEN
BIT
MLAGO7,STATUS(R2)
BEQ
.+6
JMP
50221

021214

032762
001402
000137

AND SEND APPROPRIATE PATTERN

50223$:

MOV
ENDIF

LET BNDPAT := 4780764
#780764 ,BNOPAT

LET WORK := #133.
MOV
#133.
. WORK
IF #FLAG26 NOTSETIN STATUS(R2) AND 4FLAGO7 NOTSETIN STATUS(R2) THEN
817
#FLAG26,STATUS(R2)
BNE
502233
BI7
#FLAGO7,STATUS(R2)
BEQ
.+6
JMP

000004

MOV
10V
MOV
TRAP
ADO

021210

ELSE
JMP

50224
PRINTF 4LPM64
:SEND SPEED MESSAGE TO CONSOLE
#LPM6
- (SP)
4,
#1,-(SP)
SP,RO
CSPNTF
#4,5pP
OUTPUI 4LPM64+4,842.,,LUNIT
:SEND SPEED MESSAGE TO PRINTER

QUTPUI 40UTB
&1,UF,
,LUNIT
50225

;LINEFEED

——

CZLPLFO LP2S,

LP26,

LP27,

LPO7

MACRO Y05.02

Wednesday

10-Apr-85 09:97

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
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
02110
2248 021 10
021210
valz214
2249 021214
021214
021222

502244
:
032762
001404
032762
001402

001000

002516

002000

002516

000137

020710

012746
012746
010600
104417
062706

024233
000001

000137

502264
:

000004

021210

001000

002516

002000

002516

000137

021064

012746
012746
010600
104417
062706

024375
000001

IF OFLAG26 SETIN STATUS(R2) AND #FLAGO7 NOTSETIN STATUSCR2) THEN
#FLAG26,STATUS(R2)
50226%
@FLAGO7,STATUS(R2)
.+6

JMP

502274

MOV

PRINTF #&L26M64
MH.26M64, -(SP)

MOV

SP,RO

TRAP
ADD

50227%:
032762
001004
032762
001002

BIT
BEQ
BIT
BEQ

50231%:

000004

CSPNTF
&4 ,SP

QUTPUI 9L26M64+4,042., ,LUNIT
OUTPUI &0UTBUF,#1, ,LUNIT

JMP

ELSE
502304

BIT
BNE
BIT
BNE

IF @FLAG26 NOTSETIN STATUS(R2) AND #FLAGO7 SETIN STATUS(R2)
#FLAGR26,STATUS(R2)
502314
@FLAGO7,STATUS(R2)
.+6

JMP

502324

MOV
MOV
MOV
TRAP
ADD

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

PRINTF #LO7M64

OUTPUI #LO7M64+4,442., ,LUNIT

000137

021210
502325

012746
012746
010600
104417
062706

024537
000001

000004

502334

MOV
MOV
MOV
TRAP
ADD

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

ENDIF

50233%:

000137

022106

50220%:

032762
001402

002000

002516

PRINTF #L27M64

QUTPUI #L27M64+4,442.,
,LUNIT
QUTPUI 40UTBUF,#1, ,LUNIT

ENDIF

50230
50225%:
ELSE

ELSE

JMP

OUTPUI #0UTBUF,#1, ,LUNIT

ENDIF

JMP

50234

IF &FLAGO7 NOTSETIN STATUS(R2) THEN
BIT
&#FLAGO7,STATUS(R2)
BEQ
.+6

THEN

CZLPLFO LP2S, LP26, LP27, LTO/

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 26-4
SEQ 0074

PRINTING SPEED MEASUREMF
T

021224
2250 021230
021230
2251 021236
021236
021242
2252 021242

2253
2254
2255

2256

2257
2258
2259

2260

2261

2262
2263
2264

2265

2266

021242
021250
021250
021250
021250
021256
021256
021264
021266
021274
021276
021276
021302
021302
021306
021312
021314
021316
021322
021364
021426
021426
021432
021432
021432
021440
021442
021450
021452
021452
021456
021456
021462
021466
021470
021472
021476
021540
021602
021602
021606
021606
021606
021614
021616
021624
021626
021626
021632
021632

000137

(21242

012737

025162

000137

021250

012737

025576

JMP
023426

502354
023426

502364:
012737

000205

003160

032762
001004
032762
001402

0010¢0

002516

002000

002516

000137

021432

012746
012746
010600
10441~
062706

024150
0000C1

50237%:

MOV
ELSE
JMP

MOV
ENDTF

50235¢
LET BNOPAT := 4TABA96
9TABA96,BNDPAT
502364
LET BNDPAT := #TB0796
4TB0796,BNDPAT

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

JMP

502404

PRINTF ALPM9I6
HLPMI6, -(SP)
e1,-(SP)
SP,RO
CS$PNTF
&4 ,5P
OUTPUI 4LPM96+4,442., ,LUNIT

000004

MOV
MOV
MOV
TRAP
ADD

000137

022106

ELSE
JMP

50241

032762
001404
032762
001402

001090

002516

002000

002516

BIT
BEQ
BIT
BEQ

IF OFLAG26 SETIN STATUS(R2) AND #FLAGO7 NOTSETIN STATUS(R2) THEN
#FLAG26,STATUS(R2)
50242$
®FLAGO7,STATUS(R2)
.+6

JMP

50243

000137

021606

012746
012746
010600

024314
000001

502408
:

50242¢:

JMP

PRINTF #L26M96
#M.26M96, -(SP)
#1,-(SP)
SP,RO
CS$PNTF
#4,SP
OUTPUI #L26M96+4,442., ,LUNIT
OUTPUI #0UTBUF
,#1, ,LUNIT
ELSE
502444

BIT
BNE
BIT
BNE

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

JMP

502464

MOV

M O7M96, -(SP)

MOV
MOV
MOV
TRAP
ADD

104417
062706

200004

000137

022106

032762
001004
032762
001002

001000

002516

002000

002516

000137

021762

012746

024456

OUTPUI &0UTBUF,&1, ,LUNIT

50243

:
50245

PRINTF #LO7M96

CZLPLFO LP25,

LP26,

LP27,

LPO7

MACRO Y0S5.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
502465
:

012746
012746
010600
104417
062706

024620
000001

000004

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

50247

MOV
MOV
MOV
TRAP
ADD

M 27M96, -(SP)
#1,-(SP)
SP,RO
CS$PNTF
4 ,5pP

ENDIF

50247

50244
:

005072
1777117

002362

005037

002302

012737
004737

000074
022330

005337

002320

002402
000137

020270

023727
001011

002326

012700
104441

000340

013700
104436

002336

012777

000000

037642

LET LUNIT := LUNIT - &1
DEC
LUNIT
IFCOND GE THEN
BLT
50250
JMP 11
ENDIF
S0250%$:

000003

END4 :

160136

002326

000002

PRINTF #L27M96

OUTPUI #L27M96+4,442.
LUNIT
,
OUTPUI 40UTBUF,#1, ,LUNIT

ENDIF

ENDIF
50241
ENDIF
502344
LET QLPCSR(R2) := #0
CLR
SLPCSR(R2)
$BRUMP=-1
LET LINCNT := %0
CLR
LINCNT
LET TICK := #60.
MOV
#60. ,TICK
JSR PC,REPLUP

50251%:
023727

ELSE

JMP

OUTPUL 9LO7M96+4,442., ,LUNIT
OUTPUI #0UTBUF,#1, ,LUNIT

IF CLKTYP EQ #3 THEN
CMP
CLKTYP,
&3
BNE
50251
SETPRI #PRIO?
MOV
#PRIO7,RO
TRAP
C$SPRI
CLRVEC CLKVEC
MOV
CLKVEC,RO
TRAP
CsCVEC
LET Q9CLKCSR := 400
MOV
400, 8CLKCSR
ENDIF

IF CLKTYP EQ #2 THEN
CHP
CLKTYP,
82

;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

2297

2298

2299
2300

BNE

022204
022210

012700
104441

000340

MOV
TRAP

022212
022216
022222
022226
022232
022234
022240
022240
022246
022246
022246
022246
022252
022254
022254
022262

012746
012746
013746
012746
104437
062706

000300
010070
002336
000003

MOV
MOV
MOV
MOV
TRAP
ADD

012777

000000

2295 022212

2296

001021

2301 022324
022324
022326
2302

160064

012700
104441

000000

112737

000014

003164

022372
022374
022376
022400

2312 022400
022400
022404
022410
022414
022416
022420

2313 022424

TRAP
.WORD

CSEXIT
L10013-.

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

2306

022354
2310 022360
022360
2311 022364
022364
022366
022370

SETPRI #PRIOO
MOV
#PRIOO,RO
TRAP
C$SPRI
LET OUTBUF :B= #14
MOVB
€14 ,0UTBUF
OUTPUT 40UTBUF
, &1

EXIT TST

104432
003456

2307 022330

022352

SETVEC CLKVEC,#IGNORE, ¢PRI06

502528

gggg

022330
022336
2309 022340
022340
022344
022350

#PRIO7
RO
C$SPRI

#PRIO6, -(SP)
#IGNORE, -(SP)
CLKVEC,-(5P)
#3,-(SP)
C$SVEC
#10,5P
LET 8CLKCSR := 800
MOV
400, 8CLKCSR
ENDIF

000010

2303

2308 022330

50252
SETPRI &PRIO?

REPLUP:
023727
001124

002326

012746
012746
010600
104417
062706

023534
000001

005037

002300

000004

CLKTYP,
#4
50253
PRINTF #OFFLIN
MOV
#OFFLIN, -(SP)
MOV
#1,-(5P)
MOV
SP,RO

000004

013746
012746
012746
010600
104417
062706

000006

CSPNTF

.WORD
.WORD
.WORD

T$CODE
READY
100000

;TELL OPERATOR TO PLACE PRINTERS OFFLINE

04 ,5P
LET FLAG := @0
CLR
FLAG
GMANIL READY,FLAG,100000,YES
TRAP
C$GMAN
BR
100003
.WORD
FLAG

10000¢:
002320
023574
000002

TRAP

ADD

104443
000404
002300
000130
007673
100000

IF CLKTYP EQ 94 THEN

CMP
BNE

MOV
MOV
MOV
MOV
TRAP
ADD

PRINTF QONLIN1,LUNIT

;PUT LUNIT TO TEST ON LINE

PRINTF &ONLIN2,LUNIT

sEND OF TEST.

LUNIT, -(SP)
QONLINL, -(SP)
92,-(SP)
SP,RO
CSPNTF
46 ,5P

CZLPLFO LP2S,

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
022502
2316 022504
2317 022506
0c2506
022510
2318 022510
022510
2319 022514
022514
022514
022522
2320 022524
022524
2321 022530

022530
2322 022534
022534
2323

2324
2325
2326
2327

2328
2329
2330

2331

022534
022536
022540
022540
022540
022546
022550
022550
022556
022560
022564
022564
022564
022564
022566
022566
022566
022572
022572
022574
022574
022576
022576
022576

013746
012746
012746
010600
104417
062706
013746
012746
012746
010600
104417
062706

032772
001402
000240

002320
023675
000002

MOV
MOV
MOV
MoV
TRAP
ADD

000006
002320
023773
000002

000006

100000

002362

000772

005037

502544

50255%:
002302

LUNIT, -(SP)
Q0NLINZ, -(SP)
82, -(SP)
SP,RO
CSPNTF
&6 SP
PRINTF QONLIN3,LUNIT
MOV
LUNIT, -(SP)
MOV
QONLIN3, -(SP)
MOV
@2,-(SP)
MOV
SP,RO
TRAP
CS$PNTF
ADD
6, 5P
WHILE @BIT15 SETIN 8LPCSR(R2) DO
BIT
8EQ

CLR

002362

502564
:

032772
001031

100000

8IY
BNE

013705

023426

MoV

013703

003160

MOV

005703
003417

032772
001007

000200

002362

032772
001402
000137

100000

002362

502624
:

112572

50263%:
002456

005303
000757

104422

LET LINCNT := &0
LINCNT
WHILE #BIT15 NOTSETIN SLPCSR(R2) DO

REPEAT UNTIL LP GOES OFF -LINE

#81IT15,8LPCSR(R2)
502574
LET RS := BNDPAT
BNDPAT RS
R3

WORK

WORK ,R3
WHILE R3 GT &0 DO

;

PRINT R3 CHARACTERS

502614

8IT
BNE

#8IT7,8PCSR(R2)
50263
IF @BIT1S SETIN 8LPCSR(R2) THEN
#81IT15,8LPCSR(R2)
5026434
JMP 99
: EXIT LOOP IF OFF-LINE AGAIN
ENDIF

WHILE

@BIT7

NOTSETIN SLPCSR(R2)

ENDDO
502624

Move

LET 8LPBUF(R2)
(RS)+,8LPBUF(R2)

DEC

502614
:

;

TST

502644
:

00076°

ENDDO
502544

BLE

BIY
BEQ

022722

WAIT FOR LP SET ON-LINE

IT15,9LPCSR(R2)
50255
NOP

LET

502604:

;

TRAP

LET R3
R3
ENDDO
502604
BREAK
C$BRK

;

:= R

:B8=

(RS).

ALLOW CTL-C ABORT

;

PUT

;

WAIT

FOR READY

CHAR INTO LP BUFFER

DECRIMENT CHAR COUNTER

CZLPLFO LP2S, LP26, LP27,

PO?

MACRO Y0S5.02

Wednesdey 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
022610
022616
2336 022620
022620
2337 022626
022626
2338 022626
022626
2339 022634
022634
2340 022640
022640

2341 022644

005237

002302

000743

50257%:
000445

50253%:
023727
0v1003

002326

000003

012777

003202

157506

002340

005037

037640

005037

002302

.66%:

157476

ELSE

SC265%

IF CLKTYP EQ #3 THEN
CLKTYP,#3
BNE
502664
LET OCLKSET := 91666.
MOV
01666. ,9CLKSET
ENDIF

MOV

WHILE

023737
002023

037640

013705

023426

MOV

013703

003160

MOV

002272

CMP
8GE

50271s:

18T
BLE

032772
001002
000240

000200

002362

000772

:= &0

TIME LT

PERIOD DO

WHILE

8IT
BNE

#BIT?

MOvVB

(RS)+,BLPBUF(R2)

005303

DEC

000764

002456

S0272%:
005237

002302

INC

000751
S0270%:
50265

99s;

REPEAT

UNTIL

TIME

EXMHAUSTED

SEND R3 CHARACTERS

NOTSETIN

SLPCSR(R2)

;

WAIT

PUT DATA INTO BUFFER

FOR

READY

®IT7,8LPCSR(R2)
502744
NOP
ENDOO

502734

112572

R3
S02723

B8R

S0274%;

1760 SEC.

;ENABLE THE CLOCK TO DO ITS THING

TIME ,PERIOD
502704
LET RS := BNDPAT
BNDPAT RS
LET R3 := WORK
WORK ,R3
WHILE R3 GT #0 DO

50273

;

LET 8CLKCSR := CLKENA
CLKENA,B8CLKCSR
FET TIME := &0

TIME
LET LINCNT
CLR
LINCNT

50267

005703
003412

+ 81

502564

B8R

CLR

022644

022644
022652
2342 022654
022654
2343 022660
022660
2344 022664
022664
022664
022666
2345 022670
022670
022670
022676
2346 022700
2347 022702
022702
022704
2348 022704
022704
2349 022710
022710
2350 022712
022712
022714
2351 022714
022714
2352 022720
022720
022722
2353 022722
022722
2354 022722
2355

B8R

:= LINCNT

CMP

S
013777

LET LINCNT
LINCNT
ENDDO

INC

LET SLPBUF(R2)

:B8*

LET R3

@&}

:= R3

(RS).
;+

ENDDO
50271

LET LINCNT
LINCNT
ENDDOO
50267

ENDIF

:= LINCNT

+ @1

DECRIMENT CHAR COUNTER

CILPLFO LP2S, LP26, LP27, LPO?

MACRO 105.02

Wednesday

10 Apr

85 09:07

Page 26-9

SEQ 0079

PRINTING SPEED MEASUREMENT
2356
2357
2358
2359 022722
022722
022730
2360 022732
022732
2361 022736
022736
022742
022746
022750
002752
022756
022756
022760
022762
C22764
0c2766
0c277C
022772
022772
022772
022772

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

023727
001020

0Gc326

005037

002300

012746
012746
010600
104417
062706

024701
000001

000004

IF CLKTYP EQ @4 THEN
CMP
CLKTYP,
04
8NE
502753
LET FLAG :+ &0
CLR
FLAG

000004

ADD
#4,5P
GMANIL READY,FLAG, 100000, YES
TRAP

100000

000000

157332

10001
:
ENDIF
50275$:

;

2369

2370
2371

2372

2373
2174
2375
2376
2177
2378
2379

023000
023060
023004
023010
023014
023020
023022
023024
023030
023030
023034
023040
023044
023044
023044
023052
023054
023054
023056
023056
023120
0223124
023130
0231

023176
023176
023204
023206

012746
013746
012746
012746
010600
104414
062706

002320
002302
023467
000002

013746
012746
004737

002302
003165
004562

032772
001001

004737

005606

400, 8CLKCSR

TOTAL

PUSH

002362

502768
:

50277%:

005606
005606

MOV

MOV
MOV

000773

004737
004727

10001
FLAG
TsCODE
READY
100000

REPORT

002326

NUMBER OF

LINES PRINTED

SLINPER, LINCNT,LUNIT
LUNIT, -(SP)
LINCNT, -(SP)
QL INPER, -(SP)
93,-(SP)
SP.RO
CSPNTB
£10,5P

LINCNT,&0UTBULF »1
LINCNT,-(SP)
QQUT
«1,
BUF
-(SP)

81T
BNE
ENDDO
BR

000003

CONVERT LINE COUNT TO ASCII

:WAIT FOR READY

#MIT7,3LPCSR(R2)
502774
502763

OUTPUI
@QUTBU
@6, ,LUNIT
F,
JSR PC,QUIET
JSR PC,QUIET
OUTPUI
&SPEDL1,019., ,LUNIT
JSR PC,QUIET

000002

JSR
PC.BIN2DA
WHILE #8IT7 NOTSETIN 3LPCSR(R2) DO

;

023727
001404
023727

;WAIT FOR OPERATOR

C$GMAN

BR
.WORD
.WORD
.WORD
.WORD

PRINTB
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

000010

000200

<CR> FLAG

PRINTF ORESTOR
MOV
#RESTOR, -(SP)
MOV
e1,-(SP)
MOV
SP.RO
TRAP
CIPNTF

104443
000404
002300
000130
007673

012777

;CLEAR

DISPLAY LINE COUNT ON LP

"LINES PRINTFD"”

IF A CLOCK WAS USED DISPLAY THE TIME USED ALSO

IF CLKTYP EQ 42 OR CLKTYP EQ &3 THEN

(o, [

BEQ
o[

CLKTYP,
02

50300
CLKTYP,
83

CILPLFO LP2S,

LP26,

LP27,

LPOT

MACRO Y05.02

Wednesday

10 Apr 85 09:07

Page 26

SEQ 0080

PRINTING SPEED MEASUREMENT

2380
2381
2382

2383
2384
2385
2386
2387
2388

023214
023216
023216
023260
023264
023264
023270
023274
023300
023342
023346
023410
023417
02341,

5389 023414
0

2391
2392
2393 023416
0c3416
2394 023424
2395
239¢
2397 023426
2398
2399
2400
2401
2402 023430
2403 023453
2404 023457
2405 02346
2406 023534
2407 023574

50300¢:

004737

005606

013746
012746
004737

002272
003165
004562

004737

005606

004737

005606

BNE

S0301s

QUiPUI OSPED2,04, ,LUNIT
JSR PC,QUIET

MOV
MOV

PUSH

PERIOQD,&0UTBUF
«1
PERIOD, -(SP)
Q0UTBUF
«1, -(SP)
JSR PC,BIN2DA

"IN

;

CONVERT

oUTPUI
QQUTBUF +3,43, ,LUNIT
JSR PC,QUIET
oUTPUI
ASPED3,48.,,.LUNIT
JSR PC,QUIET
ENDIF

S0301s:
RTS PC

000207

TIME

TO ASCII

;

DISPLAY THE TIME IN SECONDS

;

‘' SECONDS”

;GO BACK

AND DO

AGAIN

000001

002344

040
040
040
04S
045
045

114
111
123
116
116
116

111
116
105
045
045
045

023773
024023
024071
024152
024233
024314
024375
024456
024537
024620
024701

045
120
045
045
04S
04s
045
045
045
045
045

116
122
116
116
116
116
116
116
116
116
116

045
111
045
045
045
045
045
045
045
045
045

023754
0247¢”
025002
025015
025030

105
042
041
076
135

061
062
105
042
054

104
134
061
073
105

2408 023675

2409
2410
2411
2412
2413
2414
2415
2416
2417
2418
2419
2420
2421
2422
2423
2424
2825
2426
2427
2825
2429
2430

0C1077

012737
000207

000000

C45S

116

045

;EXPECTED ERROR HANDLER
;
LPERR2: LET ERRFLG := 21
;:SET ERROR FQUND
MOV
01 ,ERRFLG
RTS
2C
sAND EXIT
H
:
BNDPAT: .WORD
0
; CONTAINS ADDRESS OF PRINT PATTERN
.NLIST BEX
H
;ASSOCIATED MESSAGES
:
SPED1:
.ASCII
7/ LINES WERE PRINTED/
SPED2:
.ASCII
/ IN /
SPED3:
.ASCII
/ SECONDS/
LINPER: ,ASCIZ
/#Ns0D4%A LINES PRINTED ON LUNIT «D2%N/
OFFLIN: .ASCIZ /#NSAINSURE PRINTER(S) OFF LINE./
ONLIN1: .ASCIZ/#NwAPLACE LUNIT #D2%A ON LINE TO INITIATE TIME PERIOD FOR MANUAL/

ONLIN2:

.ASCIZ

/#NSAPRINTING SPEED MEASUREMENT AND BACK OFF L_INE TO TERMINATE~/

ONLIN3: .ASCIZ /#NSATHE TIME INTERVAL.%N/
PRTSPD: .ASCIZ
/PRINTING SPEED MEASUREMENT TEST 4/¢12>¢125¢12>
LPM64:
_ASCIZ
/#N¥A64 CHARACTER BAND SHOULD PRINT AT 285 LPM.¥N/
LPM96:
.ASCIZ
/%N#A96 CHARACTER BAND SHOULD PRINT AT 204 LPM.#N/
L26M64: .ASCIZ
/#NwA64 CHARACTER BAND SHOULD PRINT AT 600 LPM.%¥N/
L26M96: .ASCIZ
/%NwA96 CHARACTER BAND SHOULD PRINT AT 450 LPM.%¥N/
LO7M64: .ASCIZ
/%N#A64 CHARACTER BAND SHOULD PRINT AT 1220 LPMsN/
LO7M96: .ASCIZ
/#NsA96 CHARACTER BAND SHOULD PRINT AT 888 LPM.%N/
L27M64: .ASCIZ
/#N#A64 CHARACTER BAND SHOULD PRINT AT 1200 LPMsN/
L27M96: .ASCIZ
/%N#A96 CHARACTER BAND SHOULD PRINT AT 800 LPM.%N/
RESTOR: .ASCIZ /#N#ACLEAR PRINTER(S) AND PLACE ON LINE.%N/
.LIST BEX
.EVEN
;64 CHARACTER BAND
PATTERN
285 LPM 7 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

CILPLFO LP2S, LP26, LP27, LPO7
PRINT

SPEED

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 26-11
1 0081

TEST PATTERNS

<431 025043
2432 025056
2433 025071
2434 025104
2435 025117
2436 025132
2437 025145
2438
2439
2440
2441
2442 025162
2443 025175
2444 025210
2445 025223
2446 025236
2447 025251
2448 025264
2449 025277
2450 0c5312
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 025712
2482 025726
2483 025741
2484 025754
2485 025767
2486
2457

051
057
130
137
120
125
111

061
07S
176
077
041

050
122
066
046
121
127
111

074
070

051
123
130
062
120

055
140

134

041

053
135
067
057
124
132
115
122

046
054
127
137
117
065
110

144
174
173
074
054
051
064

130

046
120
126
110

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

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
204 LPM, / 450 LPM,
MINIMUM PRINT SPEED PATTERN 96 CHARACTER BAND
TABA96 .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
077,041,074,041,074,052,062,075,076,174,073
.BYTE
.BYTE
041,053,054,071,042,057,134,072,133,050,133
.BYTE
050,135,051.,164,070,100,046, 124,045,123,044
.BYTE
122,067,064,137,073,132,073,132,053,131,071
.BYTE
066,057,130,072,127,050,120,151, 125,070,065
.BYTE
046,124,046,124,045,123,044,122,067,064,137
.BYTE
121,132,120,131,117,066,063,130,116,130,116
.BYTE
127,115,126,114,125,113,065,062,124,112,123
.BYTE
111,122,110,064,061,064,061,121,107,102,106,012,015

; 64 CHARACTER BAND PATTERN FOR LPO7 AND LP27,
137
124
111
076
063
050
134
121
106
073
060
045

136
13
110
075
062
047
133
120
105

072

057
044

135
122
107
074
061

TB0764:

046

132
117
104
071
056
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

: 96 CHARACTER BAND PATTERN FOR LPO7 AND LP27,
177
164
151
136
123
110

075
062
047
173

160
145

176
163

150
135
122
107
074
061

175
162
147
134
121
106
073
060

046

045

172
157
144

171
156
143

780796:

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

.EVEN
LIST BEX

1220 LPM / 1200 LPM

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

CILPLFO LP25,
PRINT

LP26,

SPEED TEST

2488 026004
026004
026004
2489 026006

LP27,

LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

SEQ 0082

PATTERNS

104401

Page 26-12

ENDTST
L10013:
ENDMOD

TRAP

C$ETST

CZLPLFO LP2S,

LP26,

LP27,

LPO7

MACRO v05.02

Wednesday 10-Apr-85 09:07

Page 27
SEQ 0083

DATA TRANSFER PATHS
2491
2492
2493 026006
2494
2495
2496
2497
2498
2499
2500
2501
2502
2503
2504
2505
2506
2507
2508 026006
026006

.SBTTL DATA TRANSFER PATHS
BGNMOD

i THIS TEST CHECKS THE DATA TRANSFER

;PATHS FROM THE PROCESSOR INTERFACE

:TO THE PRINTER OUTPUT.

;PATTERN OF

;TO AN ALTERNATING STRING OF “&" AND
:"U” CHARACTERS ARE TRANSMITTED ON THE
;FULL 132 COLUMNS.
AFTER 16 LINES OF
:THIS PATTERN, THE QUTPUT PATTERN IS
;SWITCHED TO AN ALTERNATING PATTERN
i.F "2" AND "8" CHARACTERS FOR ANOTHER
;16 LINES.
BgNTST
1S::

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
522 026162
026162

AN ALTERNATING

ONES AND ZEROES CORRESPONDING

;PRINT TEST IDENTIFICATION

QUTPUT &DATPTH,#29.

;PRINT ALTERNATING STRINGS OF CHARACTERS

012737
000402

000001

005237

026426

023727
003107

026426

023727
001004

026426

000001

112737

000125

026366

026426

000002

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

CcMP

CMP
BNE

000403

50305$:
112737

000077

012704

003164

012737
000402

000001

005237

002310

023727
003017

002310

113724
105137

026366
026366

142737

000200

026366

002310

000102

MOvB
ELSE
BR

PATTERN,
#1
50305$
LET CHAR :B= #'U
#'U,CHAR

50306

LET CHAR :B= #'?
MOVB
#'?,CHAR
ENDIF
S0306%:
LET R4 := SOUTEUF
MOV
#0UTBU
, P4
F
INCR CCNT FROM &1 Tu #66.
MOV
#1,CCNT
BR
S0307s
S0310$:
INC
CCNT

50307¢:

cHP
BGT
Move

026366

PATTERN,
#2

BGT
50304
IF PATTERN EQ #1 THEN

BY #1

CCNT,%66.
50311
LET (R4)+ :B= CHAR
CHAR,(R4).

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

CZLPLFO LP2S,

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
006210
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

50312s:

000014

003164

101

124

104432

000044
000000
104

000000

INC

#134.

50313¢

BR
50303
503045
LET OUTBUF :B= #14
MOVB
2#14,0UTBUF
OUTPUT
40UTBUF, #1
EXIT TST
TRAP
CSEXIT
.WORD
L10014-.
.NLIST BEX
CHAR :
.WORD ©
DATPTH: .ASCIZ /DATA TRANSFER PATHS TEST 5/ <12><12>¢12>
.EVEN
PATTERN:
.EVEN
.LIST BEX

104401

BY &t

LINCNT

LINCNT,%16.
50314
OUTPUT 20UTBUF,
ENDINC
50314s:
ENDTINC

000663

LET (R4). :B= 215
MOVB
€15,(R4).
LET (R4) :B= #12
Move
#12,(R4)
INCR LINCNT FROM #1 TO #16.
MOV
21 ,LINCNT
BR
503124

cMP
BGT

000750

112737

LET (R4)+ :8= CHAR
CHAR,(R4).
COMB CHAR
LET CHAR :B= CHAR CLR.BY 4200
8ICB
€200, CHAR
ENDINC
BR
50310
MOve

.WORD 0
.EVEN

ENDTST
L10014:

TRAP

ENDMOD

CS$ETST

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
255°
2556
2557
2558
2559 026432
026432
2560 026432
2561
2562
2563
2564 026474
026474
026502
026504
0c6504
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
025632
2573
2574
2575
2576
2577
2578
2579
2580 026632
026632
2581 026636
026636
026644

.SBTTL PRINTABLE CHARACTERS
BGNMOD
e

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

BGNTST
6
T6::
QUTPUT &4PRTCHR,

#30.

;

PRINT TEST ID

; PRINT ALL UPPER CASE CHARACTERS ON ALL UNITS
012737
000402

000040

005237

003160

023727
003n45

003160

012704

003164

012737
000402

000001

005237

002306

023727

003003
113724

002306

003160

INCR WORK FROM 440 TO 2137 BY #1

50316¢:

000137

50315%:

#40, WORK
50315

INC

WORK

CMP
BGT

002306
50321%:

000204

MOV
BR

50320¢:

WORK, 137
50317
LET R4 := QOUTBUF
MoV
Q0UTBUF ,R4
INCR COUNT FROM #1 TO #132.
MoV
#1,COUNT
BR
50320¢

INC

BY #1

COUNT

cMp
8GT

003160

000767

50322%:

COUNT, #132.
503224
LET (R4)+ :B= WORK
Move
WORK
, (R4 )+
ENDINC
BR
50321%

LET (R4)+

:B= &LF

112724

000012

MOVB

004737

105606

JSR PC,QUIET
ENDINC

000725
S0317s:

OLF,(R4).
QUTPUT #0QUTBUF ,#133.

B8R

503164

; NOW DO ALL THE LOWER CASE CHARACTERS ON THOSE UNITS
: EQUIPPED WITH 96 CHARACTER PANDS.

: FIRST DETERMINE IF ANY UNITS HAVE 96 CHAR BANDS
005037

003160

013737
005337

002012
003162

LET WORK := 90
003162

CLR
WORK
LET WORKL := LSUNIT

; COUNTER FOR 96 CHAR UNITS
&1

MOV

LSUNIT,WORK1 ~

DEC

WORK1

;
.

GET UNIT COUNT
‘

CZLPLFO LP2S,

LP26,

LP27,

LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 28-1

SEQ 0086

PRINTABLE CHARACTERS
2582 026650
026650
026654
026656
026656
026662
026662
2583

2584

2585

2586

026670
026672
026672
026676
026700
026700
026706
026710
026710
026714
026714

005037
000402

002320

005237

002320

023737
003012

002320

013702

002320

032762
001402

010000

005237

003160

006302

003162

2590 026732
2591 026774

026774
026776
2592 027000
027000

503264
:
ENDINC

000760

005737
001026

003160

112737

000014

2596 027024

027024
2597 027030
027030
027036
02704C
027040
027044
027044
027052

2598 027054
027054
2599 027060
027060
027062

40 TO WORK1 BY #1
LUNIT
50323

LUNIT

LUNIT,WORK1

503253

LET R2 := LUNIT SHIFT 1
MOV
LUNIT,R2
ASL
R2
IF #FLAG96 SETIN STATUSCR2) THEN
BIT
#FLAGI6,STATUS(R2)
BEQ
503264
LET WORK := WORK + #1
INC
WORK
ENDIF

BR
503248
50325¢:
IF WORK EQ #0 THEN
TST
WORK

OUTPUT 40UTBUF ,01

104432
000330
ENDIF
50327¢:

;+
01273
00C%02

000140

005237

003160

023727
003073

003160

012704

003164

012737
000402

000001

005237

002306

023727
003003

002306

113724

003160

50331s:
5S0330¢$:

;

EXIT TST
;3
TRAP
CSEXIT
.WORD
L1GO1S-.

ALL UNITS 64 CHAR...EXIT

INCR WORK FROM #140 TO #176 BY ¢1
MOV
£140,WORK
BR
50330
INC

WORK

CMP
BGT

002306
50334

000204

IS THIS UNIT 96 CHAR

SETUP FOR LOWER CASE CHARACTERS DISPLAY

003160

000176

ANY 96 CHAR UNITS

;

BNE
50327
LET OUTBUF :B= #14
MOVB
#14 ,0UTBUF

003164

2593
2594
2595 027000

027000
027006
027010
027010
027014
027014
027022

CcMP

B8GT

002516

2587 026714

026714
026716
2588 026716
026716
026722
2589 026724
026724

INCR LUNIT FROM
CLR
BR
50324
INC
50323

50333s:

WORK
, #4176
50332
LET R4 := &0UTBUF
MOV
#0UTBUF
R4
INCR COUNT FROM &1 TO #132.
MOV
£1,COUNT
BR
S0333s

INC

CMP
BGT

000767

S0335s:

COUNT

COUNT, #132.
50335
LET (R4)+ :B8= WORK
MOVB
WORK,(R4)+»
ENDINC
BR
503343

BY ¢1

YES ADD 1

TO COUNT

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

023757
003031

002320

013702
006302

002320

032762
001421

€10000

Move

003162

MOV

LET (R4)+ :8= &LF
4LF,(R4).
LET WORK1 := LSUNIT
LSUNIT,WORK1

DEC

503 37¢:

003162

503 364%:

WORK1
INCR LUNIT FROM 20 TO WORK1 BY #1
CLR
LUNIT
BR
S03363
INC

LUNIT

CMP

LUNIT, WORK1

B8GT

50340

LET R2 := LUNIT SHIFT 1
LUNIT,R2
R2
IF &FLAG96 SETIN STATUS(R2) THEN
HFLAGI6,STATUS(R2)
50341
OUTPUI 4OUTBUF,#133.,,LUNIT
ENDIF

MOV
ASL

002516

BIT
BEQ

503 41%:
000741

004737

503 40¢:

005606

112737

000014

003164

104432
000042

120

104401

B8R

EN_.NC

.WORD

111

;

WAIT FOR ALL DONE

503 32%:
LET QUTBUF :B= #14
MOVB
#14,0UTBUF
0¥TPUT SOUTBUF , &1
; EXECUTE TOF
EXIT
ST
TRAP

122

50337

JSR PC,QUIET
ENDINC
BR
S0331s

000677

- &1

CSEXIT
L10015-.

.NLI ST BEX
PRTCHR: .ASCIZ /PRINTABLE CHARACTERS TEST 6/
.EVEN
ENDT ST
L100 15:

TRAP
.LIS T BEX
ENDM 00

CSETST

<12><¢i2><12>

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
HEX4

;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
;MAKE SURE THAT CODES 140 THRU 177 ARE CONVERTED TO CODES 100 THRU 137.
BGNTST
T17::

:INDICATE TEST CURRENTLY BEING DONE
OUTPUT ANONCHR,#71.
LET R4 := {NONBUF
MOV
4NONBUF
, 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 40 TO WORK1 BY #1
CLR
LINCNT
BR
503424
INC

LINCNT

CMP
BGT

LINCNT,WORK1
503445
LET R3 := QOUTBUF
MOV
#0UTBUF ,R3

003164

; MOVE CODE AND MNEMONIC TO PRINT BUFFER
000001

003160

)
50346
:

003160

503455

000010

:
003160

INC

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

WORK

CMP
BGT

50347%:

000001

MOV
BR

WORK, #8.
50347
LET (R3)+ :B8=
MOV8
(R4)+,(R3).
ENDINC
BR
503464

(R4).

PUT 120 BYTES OF CODE INTO PRINT BUFFER
MOV
BR

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

50350

CZLPLFO LP25,

LP26,

LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Fage 29-1
SEQ 0089

NON-PRINTABLE CHARACTERS

027472
027472
005237
027476
027476
023727
027504
003002
2656 027506
027506
111423
2657 027510
027510
000770
027512
2658
2659
2660
2661
2662 027512
027512
112723
2663 027516
027516
112723
2664
2665
2666
2667 027522
2668 027564
027564
005204
2669 027566
027566
000711
027570
2670
2671
2672
2673
2674
2675
2676 027570
027570
012703
2677 027574
027574
012704
027600
000401
027602
027602
005204
027604
027604
020427
027610
003002
2678 027612
027612
110423
2679 027614
027614
000772
027616
2680 027616
027616
112723
2681 027622
027622
013737
027630
005337
2682 027634
027634
005037
027640
000402
027642

50351%:

003160
003160

000173

503504
:

INC

WORK

CcMP

WORK, 4123,

BGT

Move

503524

503524
LET (R3)+

(R4),(R3).

:B= (R4)

ENDINC
50351

: FOLLOW D 8Y CRLF
000015

MOvB

000012

Move

LET (R3)+

:B= #15

LET (R3)+

:B= #12

#15,(R3).

912,(R3)+

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

503444
:

OUTPUT
4QUTBUF, #133.
LET R4 := R4 .+ &1
INC
R4
ENDINC
BR
503433

UNITS WITH 64 CHAR BAND SHOULD STRIP BIT 6 OF DATA
AND PR INT THE DATA FOR CODES 140(8) THRU 177(8)
AS IF CODES 100(8) THRU 137(8) WERE RECIEVED.
+aNOTE ss

000140

50354
:
50353%:

000177

AS UNDERSCORE

' _°

50353

INC

cMP
BGT

503554

R4,8177
503554
LET (R3). :B= R4
MoV
R4 ,(R3).
ENDINCR
BR
503543

LET (R3)+

000012

003160

IS PRINTED

LET R3 := SOUTBUF
MOV
Q0UTBUF ,R3
INCR R4 FROM 9140 TO @177 By @&t
MOV
#140,R4

003164

002012

DELETE

002320

50357s:

FILL BUFFER WITH CODES & LF

:Bs &oLF

MOVB
oLF,(R3).
LET WORK := LSUNIT MOV
LSUNIT, WORK

003160

DEC
WORK
INCR LUNIT FROM #0 TO WORK By &1
CLR
LUNIY
BR
503564

SEND MSG AND BUFFER TQ ALL

UNITS WITH 64 CHAR BAND

CZLPLFO LP2S5,

LP26,

LP27,

LPO?

MACRO Y05.02

Wednesday

10-Apr-85 09:07

Page 29-2

SEQ 0090

NON-PRINTABLE CHARACTERS

027642
027646
027646
027654
2683 027656
027656
027662
2604 027664
027664
027672
26385 027674
2686 027736
2687 030000
2688 030042
030042
2689 030042
030042
030044
2690 030044
030044
2691 030052
2692 030114
020114
030116
2693
2694
2695
2696
2697 030120
2698 030161
2699 030230

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

005237
023737
003073

002320
002320

013702
006302

002320

032762
001063

010000

003160

503564
:

INC

LUNIT

cMp

LUNIT, WORK

B8GT

MOV
ASL

002516

8IT
BNE

“0361s:
000677

50360%:
112737

000014

503604

LET R2 := LUNIT SHIFT 1
LUNIT,R2
R2
IF @FLAG96 NOTSETIN STATUS(R2)
@FLAG96,STATUS(R2)
50361
OUTPUI QAUTSEC,@77., ,LUNTT
OUTPUI #AUTCON,®61., ,LUNIT
OQUTPUI #0UTBUF ,#33., LUNIT
ENDIF

ENDINCR
BR
50357
LET QUTBUF :B= 214
MOVB
€14, 0UTBLF
QUTPUT @QUTB,
UF
&1
EXIT
TST
TRAP
CSsEXIT
.WORD
L10016-.

003164

104432
000730

THEN

;AND EXIT TEST

:CHARACTER BUFFER AND TEST HEADER MES3SAGE
116
101
124

117
040
110

116
106
111

103
015

117
012

040
040
040
040
040
040
049
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040

060
060
060
060
060
060
060
060
060
060
060
960
060
060
060
060
060
060
060
060
060
060
060

INLIST BEX

NONCHR:
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)
«<15><12>¢12>¢12>

060
060
060
060
060
060
060
060
061
061
061
061
062
062
vb2
062
062
062
062
062
063
063
063

NONBUF:

_ASCII
.ASCZI
LASC.I
ASUITI
LASZII
ASZITI
.A-CII
.A>CII
.ASCII
LASCII
LASCII
LASCII
.ASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII

7/ 000 NUL.<0>
7 001 SOW/<}>
7 002 STX/<2>
/7 003 ETX/<¢3>
7/ 004 EQT/<4>
/7 00S ENQ/ <S>
7 006 ACK/<6>
7 007 BEL/<?>
/ 010 B8S /<10>
7/ 011 HT /<1)>
7 016 SO /<16>
7 017 SI /<1 ?»
/ 020 DLE/<20>
/ 021 XON/<21>
7 022 DC2/<22>
7/ 023 XOF/<23>
7 024 DCA/c24>
7/ 025 NAK/<25>
/ 026 SYN/<26>
7/ 027 ETB/<27>
7 030 CAN/<30>
/ 031 EM /<3)1>
7/ 032 SUB/<32>

SHOULD BE CONVERTED TO

100(8)..137(8)/¢12>¢12>

CZLPLFO LP2S, LP26, LP27, LPO7

MACRO Y0S.02

Wednesday 10-Apr-85 09:07

SEQ 0091

NON-PRINTABLE CHARACTERS

2726 030770
2727 031001
2728 031012
2729 031023
2730 031034
2771
2°32
2733
2734 031046
031046
031046
2735
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>

/ 034 FS /<34>
/ 035 GS /7<¢35>
/ 036 RS /<36>

/7 037 US /<¢37>

CSETST

CoLPLFO LP2S, LP26, LP27, LPOT

MACRO Y105.02

Wednesday 10 Apr 8% 09:07

Page 30
SEQ 0092

SAND PATTERN
s 1
2740 0%1050
2741

.SBTTL
BGNMOD
joe

27:§

:BAND PATTERN TEST

2°
2744
2748

:
s THIS TEST ONLY EXECUTES ON LP25 / LP26 7 LP27. IT DOES NOTHING ON LPO7?.
;THIS TEST PRODUCES AN IMAGE OF THE ENTIRE BAND PATTERN. THE PRINT-OUT

46
2747

;IS ORGANIZED TO LOCATE THE FOUR
:FORMAT:

QUADRANTS OF THE BAND IN THE FOLLOWING

2748
2’49
2750
2751
gzgg

2754
2755
2756
2757
2758
2759
2760
2761

; THE REASON FOR THIS ARRANGEMENT IS TO FACILITATE VISUAL INSPECTION
sOF THE PRINTOUT AS WELL AS TO ACCOMODATE THE 208 CHARACTERS OF THE BAND
;IN 132 COLUMNS,
H
H
STATUS(R2) FLAG96
=] FOR 96 CHAR BAND
H
=0 FOR 64 CHAR BAND
:
SOFTWARE SWITCH USA
=] FOR AMERICAN PRINT SET
H
=0 FOR BRITISH
PRINT SET

2763
2764 031050
031050
2°6S
2766
2767
2768
2769 031050
031050
021054
031060
031062
2770 031064

iBGNTST
8,
18::
TOF = 014
:
s PRINT TEST IDENTIFICATION ON ALL UNITS
H
PRINTF &NQO7
MOV
ONQ0O7, -(SP)
MOV
e1,-(5p)
MOV
SP,RO
TRAP
CSPNTF
ADD
&4,5P

:
:
H
i

2762

000014

C12746
012746
010600
104417
062706

032600
000001

000004

;

772

277% 031070
031070

031074
2774 031076
031076
277S 031102
031102
2776 021110
031110
2777 031114
031114
2778 031122
031122
2779 0%1126
031126
2780 031134
031:34

QUADRANT NO.1
QUADRANT NO.3

QUADRANT NO. 2
QUADRANT NO.4

QUADRANT NO.1

ETC.

57;1

&b-

BAND PATTERN

005737
001432

002274

105C37

033123

112737

L0004%

105037

033241

113737

000043

105037

033357

112737

000043

105037

033501

033127

033246

033363

SETUP PATTERNS FOR EUROPEAN OR AMERICAN PRINTERS

IF USA
TST
8EQ
LET
CLRB
LET
MOVB
LET
CLRB
LET
MOvVB
LET
CLRB
LET
MOVB
LET
CLR8

NE Q0 THEN
USA

;

503628
8P64Q2-18. :B= &0
BP64Q2.18.
BP64Q2.22. :B= 243
#43,8P64Q2.22.
BP64Q3.35. :B= 90
8P64Q3.35.
8P64Q3.40. :B8= 43
43 ,8P64Q3.40.
BP64Q4+.53. :B= @0
B8P64Q4 .S3.
BP64Q4.57. :B= 843
043 ,8P64Q4
.57,
BP96Q2-13. :8= 40
B8P96Q2-13.

AMERICAN, PRINT SHARP SIGN ' &

CILPLFO LP2S, LP26, LP27, LPO?

MACRO

105.02

Wednesdasy

Apr

85 09:07

Page

SEQ 0092

BAND PATTERN
<781 031140
031140
2782 031146
031146
2783 031152
0311582
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 (21240
031240
2795 031244
031244
2796
2797
2798
2802 031244
031244
031250
2803 031252

2804

2805
2806
2807
2808
2829
2810
28l

31252
031256
031260
031260
031264
031264
031270
031272
031276
031276
031276
031302
031304
031312
031314
031322
031324
031330
031330

11273~

000043

105037

033672

1127%°

000043

LET BP96Q2.18. :B- 043
Move
443,8P96Q2-18.
LET B8P96Q4.13. :B8s2 20

033506

CLRB

03367

000431
503628
:

112737

000043

105037

033127

112737

000043

105037

033246

112737

000043

105037

033363

1127%7

000043

105037

033506

112737

000043

10503

033677

033123

033241

LET
Move
LET
CLRB
LET
MOVB
LET

CLRB
LET

033357

Move
LET

CLRB
LET

033501

MOvB
LET

CLRB

033672

50363

BP96Q4 .13,

PRINT POUND STERLING SIGN

BP64Q2.-18. :B= 243
43,BP64Q2-18.
BP64Q2+22. :B= 20
BP64Q2.22.
B8P64Q3.35. :8= 243
943,8P64Q3.35,
BP64Q3.40. :B= @0
BP64Q3.40.
BP64Q4.53. :B= 243
943,8P64Q4 .53,
BP64Q4+57. :8= 20
BP64Q4.57.
8P96Q2+13. :B= 443
©43,BP96Q2+13,
BP96Q2.18. :B= #0

BP96Q2.18.

LET BP96Q4.13. :B= 243
MOVB
#43,B8P96Q4.13,
LET BP96Q4.18. :B= {0
CLRB
BP96Q4+18.
ENDIF

: PRINT PROPER BAND IDENTIFICATION MSG. ON EACH PRINTER
013701
005301

002012

005037
000402

002320

005237

002320

023701
003402

002320

000137

031764

LET R1

MOV

50364

S0365s:

503664
:

013702
006302
032762
001406
032762
001002
000137

002320
002000

002516

001000

002516

1000¢:

LS$UNIT ,R1

DEC
R1
INCR LUNIT FROM 20 TO Rl BY @1
CLR
LUNIT
BR
50365%

INC

LUNIT

CHP
BLE
JMp

LUNIT,R1
50366%
503674

MOV
ASL

031760

:= LSUNIT

LET R2 := LUNIT SHIFT
LUNITM,R2
R2

BIT
BEQ
BIT
BNE
JMP

&LAGO7,STATUS(R2)
1000%
&FLAG26,STATUS(R2)
10004
10108
OUTPUI &BNDTST,#23.,,LUNIT

CILPLFO LP2S, LP26, LP27, LPO?

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
031712
031716
2824 031716
2825 031760
031760
2826 031760
2827 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

8IT
BNE
BIT
BEQ

IF OFLAG26 NOTSETIN STATUS(R2) AND 4FLAGO7 NOTSETIN STATUS(R2)
&FLAG26,STATUS(R2)
50370
AFLAGO7,STATUS(R?2)
.+6

JMP

50371

OUTPUI
ENDIF

50371$:

032762
001404
032762
001402

001000

002516

002000

002516

000137

031546

50372%:

8IT
BEQ
BIT
BEQ

IF 4FLAG26 SETIN STATUS(R2)
HFLAG26,STATUS(R2)
503724
AFLAGO7,STATUS(R2)
.+6

JMP

50373

OUTPUI
ENDIF

50373s:

032762
001404
032762
001002

002000

002516

001000

002516

000137

031634

50374%:

010000

000137

031716

001002

000137

031760

PRINTER IS LP2S

AND #FLAGO7 NOTSETIN STATUS(R2) THEN

#8PID26,%6.,,LUNIT

;

PRINTER IS LP26

IF &FLAGO7 SETIN STATUS(R2) AND &FLAG26 SETIN STATUS(R2) THEN
SFLAGO7,STATUS(R2)
S03744
OFLAG26,STATUS(R2)
.+6

JMP

50375

QUTPUI
ENDIF

#BPID27,46.,,LUNIT

IF &FLAG96 SETIN STATUS(R2) THEN
#FLAGI6,STATUS(R2)
+6
S0376$
OUTPUI
#BP96ID,#22.,,LUNIT
ELSE
S0377s

8IT
BNE
JMP

002516

;

BIT
BEQ
BIT
BNE

50375s:

032762

4BPID2S5,46, ,LUNIT

JMP

;

PRINTER IS LP27

;

96 CHAR BAND

;

64 CHAR BAND

S0376%$:

OUTPUI
ENDIF

50377%:
1010s:
000137

031260

50367¢%:

ENDINC
JMP

#BP64ID,#22.,,LUNIT

50364

; NGW PRINT 2_LINE PATTERN 15. TIMES, WITH BLANK LINE BETWEEN PATTERNS
012737

000016

005037
000402

002320

005237

002320

LET LINCNT := %14,
MOV
#14. ,LINCNT

002302
2%:

50401$:
504004
:

CLR
BR
INC

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

;

THEN

PRINT QUADRANTS 1 € 2

CZLPLFO LP2S,

LP26,

LP27,

LPO?

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
2546 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
28560 032314

023701
003114

002320

cHP
BGT

013702
006302

002320

MoV
ASL

032762
001407
032762
001003

002000

002516

001000

002516

005037

BIT
BEQ
BIT
BNE

002306

CLR

000475

50403s:
032762
001022

010000

002516

50405
003000

IF 4FLAGI6 NOTSETIN STATUS(R2) THEN
OFLAGI6, STATUS(R2)
50405¢
QUTPUI
48P64Q1,4121.,,LUNIT

BIT
BNE

000447

032762
001022

LUNIT,R1
504024
LET R2 := LUNIT SHIFT 1
: INDEX INTO STATUS TABLES
kUNIT.R?
2
IF @FLAGO7 SETIN STATUS(R2) AND #FLAG26 NOTSETIN STATUS(R2) THEN
#FLAGO7,STATUS(R2)
50403
#FLAG26,STATUS(R2)
50403¢
LET COUNT := 40
COUNT
ELSE
504044

002516

000421

50407$:

50406¢

8IT
BNE

#FLAG26!FLAGO7 ,STATUS(R2)

So407¢
50410¢

002320

005237

002320

023701
003065

002320

013702
006302
032762
001406
032762
001002
000137

002320

50412%:
504118:

002000

002516

001000

002516

1100s:

4BP96Q1,#121.,,LUNIT

i LP25 96 CHAR PATTERN
;

LP26 96 CHAR PATTERN

ENDIF

ENDINC
504014
;

NOW DO QUADRANTS

3 € 4

INCR LUNIT FROM 40 TO R1 BY #1
CLR
LUNIT
BR
50411
INC

LUNIT

CHP
BGT

LUNIT,R1
50413
LET R2 := LUNIT SHIFT 1
LUNIT,R2
R2
BIT
@FLAGO7,STATUS(R2)
BEQ
1100

MOV
ASL

032432

64 CHAR PATTERN

ENDIF

50404
:

005037
000402

FLsE

OUTPUI #BP96Q3,#121., ,LUNIT

OQUTPUI
ENDIF

50406:

50402%:

;

IF 4FLAG26!FLAGO7 NOTSETIN STATUS(R2) THEN

50410¢:

000657

ELSE

BIT
BNE

#FLAG26,STATUS(R2)
1100¢

JMP

1110s

;

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
022446
2875 032454
032454
032460
032462
032462
032466
032466
032472
2876 032474

032474

022500
2877 032502
032502
032510

032512

032520
2878 032522
032522
28179 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)
50414
£ SEOUTPUI
#8Po4Q3,#122., ,LUNIT
L
50415

BIT
BNE

000421
50414

QUTPUI
ENDIF

50415s:
1110¢:
000706

50413s:
005337
001402
000137

002302
031772

3s:

#BP96Q3,4122.,,LUNIT

;

64 CHAR PATTERN

96 CHAR PATTERN

ENDINC
50412%

LET LINCNT := LINCNT
DEC
LINCNT
BEQ
3
JMP
24

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

000014

005037
000402

002320

005237

002320

Move

50417¢:
50416%:

023701
003040

002320

013702
006302

002320

032762
001407
032762
001003

002000

002516

001000

002516

005037

LET QOUTBUF

003164

INC

LUNIT

CMP
BGT

LUNIT,R1
50420
LET R2 := LUNIT SHIFT 1
LUNIT,R2
R2
IF 4FLAGO7 SETIN STATUS(R2) AND #FLAG26 NOTSETIN STATUSC(R2) THEN
#FLAGO7,STATUS(R2)
504214
OFLAG26,STATUS(R2)
504214
LET COUNT := #0
COUNT
ELSE
504224

BIT
BEQ
BIT
BNE

CLR

000421

50421%:

ENDIF

50422
:
000733

50420:

EXIT TST

104432

001156
045
102

116
101

045
116

014

INCR LUNIT FROM 40 TO R1 BY 21
CLR
LUNIT
BR
504164

MOV
ASL

002306

:B=

9414, 40UTBUF

ENDINC
BR

TRAP
.WORD
.NLIST B EX
NOO7:
.ASCIZ
BNDTST: .ASCII

OUTPUI #0UTBUF,#1, ,LUNIT

50417

CS$EXIT
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
2889
2890
2891
283%
28
gggg

032707
032715
032723
032731
032757

114
114
114
066
071

120
120
120
064
066

062
062
062
040
040

BPID2S:
BPID26:
BPID27:
BP64ID:
BP96ID:

2896
2897
2898
2899
2900
2901

033005
033015
033047

040
101
125

040
102
126

040
105
066

BP64Q1:

.ASCII
.ASCII
LASCII

/
/
/ARBECDTFGOHIJ1KL2MN3OP4QRSS/
/UVOWXTYZ8_+%9E)a(:,/<57>/8-;><./

033101
033111

040
100

040
105

BP64Q2-

.ASCII
LASCII

7/
/
/?28E])(T\"0Ot#=1142' A3BCADFGS5/

Sggg 033143

040
077
110

111

066

ASCII

/HI6JK7LMBNOPIQRaSU,VK-XY2./<12>

2904 033176
2905 033206

040
137

040
053

040
105

BP64Q3:

.ASCII
LASCII

/
/
/_+EwET)(0:/¢57>/%1;>2<?38)4[\"S/

2908 033272
2909 033302
2910 023334
2911
231%
291
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
23;? 033623
2
2938 033655
2939 033665
2940 033673

040
116
072

04¢
117
057

040
105
066

BF64Q4:

.ASCII
.ASCII
LASCII

/
/
/NOEPQTRSOUVMIXY2Z_3+%4E)(5/
_:/6%;7><820)9[\a"t,8=-18',
_<12><12>

;

gggg 033240

2941 033674
2942 033702

2943 033717
2944 033733

136

040
101
125
145
074
164

043

040
103
127

077

100

040
133

040
134

052
173
147
064
171

041
176
150
160
172

040
101
145
113
164
117
125

040
102

040
103

114

115

120
126

121
127

040
135
174
075
175
146
054

040
133

040
134

065
173

041
176

040
135
174
075
175
146
157
170

147
160

150
161

/LP2S5
7/
/LP26
/
/LP27
/
/64 CHAR BAND PATTERN/<12><¢12>
/96 CHAR BAND PATTERN/<12><12>

64 CHAR BAND PATTERN

066

040
102
126

.ASCII
.ASCII
.ASCII
.ASCII
.ASCIT

.ASCII

H
; 96 CHAR BAND
H
BP96Q1: .ASCII
.ASCII
LASCII
.BYTE
LASCII
.BYTE
BP96Q2:

.BYTE

LP2S & LP26 & LP27

/t862!78'8ABCIDF sGH,IJ-KLM./

LP25 = Q3..Q4

LP26 & LP27 = Q1..Q4

/
/
/ABCDOEFG1HIJ2KLMN3OPQ4RSTS/
/UVWX6YZ_73%E8)(:/7<57>/9+;>/
145
/<?8/
164

.ASCII
/
/
LASCITI
/)(\",&/
.BYTE
174
LASCII
/=410’
-/
.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

B8P96Q3:

.ASCII
.ASCII
.BYTE
.ASCII
.BYTE
.ASCII
LASCII

/
/
/ABCDBEFG9HIJ/
145
/KLMN/
164
/0PQ,RSTs/
JUVMX-YZ_.$%E0)(:/<S57>/1+;>2<?33/

BP96Q4:

.ASCII
LASCII
.BYTF
LASCITI
.BYTE
.BYTE
.BYTE

/
/
/)(\" 4%/
174
/=518'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 LP25,

LP26,

LP27,

LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 31

SEQ 0099

SPURIOUS HAMMER FIRING
2951
2952
2953 033756
2954

.SBTTL SPURIOUS HAMMER FIRING

B8GNMOD

2955

2956
2957
2958

: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

2959
3360
61
2962
2963 033756
033756

2964
2965
2966
2967 033756
2968
29?9
2970
2971 034020
024020
03402
034030
034030
034034
034034
034042
23;%
2
2974 034044
034044
2975 034050
034050
034056
2976
2977
2978
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

;LINE BEGINNING WITH A "?” CHARACTER. ANY POINT OUTSIDE THE WEDGE
;BOUNDARIES IS CAUSED BY HAMMER MISFIRES OR BY HAMMER BOUNCE.
i--

BGNTST
19::

;PRINT THE TEST HEALER

OUTPUT #HAMFIR,#33.
;OUTPUT THE ACTUAL MWEDGE AT THIS POINT

012737
000402

000001

005237

003160

023727
003123

003160

000204

INCR WORK FROM #1 TO #132.
MOV
#1 ,WORK
B8R
50423
50424
:
INC
WORK
50423
:
ctMP
WORK ,#132,
8GT
504254

BY #1

:NUMBER OF LINES TO QUTPUT

:ALSO NUMBER OF PRINTING CHARACTERS
012704

003164

012737
163737

000204
003160

034366
034366

LET R4 := 40UTBUF
MOV
#0UTBUF ,R4
LET SPCCNT := 132, - WORK
MOV
#132.,SPCCNT
sus
WORK ,SPCCNT

;OUTPUT BUFFER POINTER
;:NUMBER OF SPACES TO FILL IN

sFILL THE OQUTPUT BUFFER WITH THE REQUIRED NUMBER OF SPACES

005737
001405

024366

112724

000040

005337

034366

WHILE SPCCNT NE #0 DO
504264
:
TST
SPCCNT
BEQ
50427
LET (R4)+ :8= 840
MOVB
#40,(R4)

000770

005037

002310

012727

000077

002314

012737

000041

002312

LET SPCCNT := SPCCNT
DEC
SPCCNT
ENDDO
BR
S0426%
50427¢:
LET CCNT := 40
CLR
CCNT
LET CHRGEN := #77
MOV
#77,CHRGEN
LET STRCNT := 833,
MOV
#33. ,STRCNT
WHILE CCNT LT WORK DO

;SPACE FILL
-

;UPDATE FILLER COUNTER

:FIRST CHARACTER A

;% OF CHARACTERS IN GROUP
: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
034132
2987 034134
034134
034140
2988
2989
2990
2991 034142
034142
2992 034150
034150
2993 034156
034156
2994 034156
034156
2995 034162
034162
2996 034166
034166
2997 034172
024172
2998 034176
034176
034200
2999
3000
3001
3002 034200
034200

3003
3004
3005 034204
3006 034246
3007
3008
3009 034310
034310
034312
3010 034312
034312

3011 034320
3012 034362
034362
034364
3013
3014
3015
3016 034366
3017
3018
3019
3020 034370
3021
3C22
3C23

023737
002022

002310

005737
001006

002312

003160

50430
:
CMP
CCNT,WORK
BGE
50431
IF STRCNT EQ 40 THEN
TST
STRCNT
BNE
504324

;RESET
012737

000041

002312

012737

000077

002314

005237

002314

005237

002310

005337

002312

LET STRCNT := 433,
#33. ,STRCNT
LET CHRGEN := 477
MOV
977, CHRGEN
ENDIF
MOV

50432%:
113724

GROUP POINTERS AND COUNTERS

LET (R4)+ :B= CHRGEN
MovB
CHRGEN, (R4)+
LET CHRGEN := CHRGEN + &1
INC
CHRGEN
LET CCNT := CCNT + &1
INC
CCNT
LET STRCNT := STRCNT - &1

OEC
ENDDO
BR
50431¢:

000752

iLPDATE POINTERS AND COUNTERS

STRCNT

50430

;NOW SET UP LINE TERMINATOR AND OUTPUT THE LINE.
112724

LET

000012

(R4)+
MOVB

;:OUTPUT THE

:B= 912
#12,(R4)+

LINE

QUTPUT #0UTBUF ,#132.

OUTPUT #0UTBUF +132.,41

;
;

000014

003164

104432
000046

BEFORE CHANGING OUTBUF DATA

BR
504245
50425%:
LET OUTBUF :B= #14
MOVB
€14, 0UTBUF
OUTPUT #0OUTBUF ,#&1
EXIT TST
TRAP

CSEXIT

.WORD

L10020

;COUNTERS, POINTERS,
000000

SPCCNT:

120

125

.NLIST BEX
HAMFIR:

TEXT BUFFER,

AND HEADER FOR

TEST PRINTOUT

.WORD ©

;:TEST HEADER
123

NO LF YET

ENDINC

000647

112737

SEND THE DATA,

THIS MAKES SURE OQUTPUT IS SENT

.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

SPLRIOUS HAMMER FIRING
3024
3025
3026
3027 034432
034432
034432
3028
3029 034434

.EVEN

104401

Page 31-2

ENDTST
L10020:
TRAP

ENOMOD

CS$ETST

CZLPLFO LP2S,

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
§O4§
04

.SBTTL PRINT CONTROL
B8GNMOD
see
;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 :
H
0
0
L
1
H
1
2
.2
3
:123456789012345678901234567890. ........ch v
012
:

gg:g

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

3046

3047
3048 034434
034434
3049 034434
034434
034440

024444
034446
034450
3050 034454
034454
034460
3051
3052 034462
034462
034466
034470
024470
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

;

THIS QUTPUT IS REPEATED 13 TIMES.

i-BGNTST
T10::
PRINTF

012746
012746
010600
104417
062706

035451
000001

000004

013701
005301
000001

002012

005037
000402

002320

005237

002320

023701
003402
000137

002320

035354

013702
006302
032762
001406
032762
001002
000137

002320

012737

000015

012705

(35710

005715

002000

002516

001000

012516

035350

002306

10.

&NOLPO?
MOV
ANOLPO7, -(SP)
MOV
#1,-(SP)
MOV
SP,RO
TRAP
CS$PNTF
ADD
#4,SP
LET R1 := LSUNIT - @&}
MOV
L$UNIT ,R1
DEC
R1
$BRUMP
=]
INCR LUNIT FROM ¢0 TO R1 BY #1
CLR
LUNIT
BR
50434
50433
INC
LUNIT
504343
cMP
LUNIT,R1
BLE
504353
JMP
504364
50435%:
LET R2 := LUNIT SHIFT 1
MOV
LUNIT,R2
ASL
R2
BIT
OFLAGO7,STATUS(R2)
BEQ
1200
BIT
OF LAG26,STATUS(R2)
BNE
1200
JMP
12104
1200%:
OUTPUI &PRTCTL,456., .LUNIT
LET COUNT := 813,
MOV
#13. ,COUNT
1$:
LET RS := &TABLE1L
MOV
4TABLEL,RS
WHILE (RS) NE «O0 DO
S0437s:

T1S7

(RS)

CZLPLFO LP2S,

LP26,

LP27,

LPO7T

MACRO Y05.02

wednesday 10-Apr-85 09:07

Page 32-1
SEQ 0103

PRINT CONTROL

3065
3066

3067

034616
034620
034624
034664
034664
034666
034666
034666
034674

3068
3069
3070 034736
034736
. 034742
034742
034742
034744
034746
3072 034752
3073 035012
035012
035014
3074 035014
3075
3076 035056
035056
035064
035066
035066
035072
035072
035100
035102
035106
3077 035106
3078 035150
035150
035152
3079 035152
3080 035214
3081 035256
035256
308° 035262
035262
035266
035270
3083 035274
3084 035300
035300
3085 035300
035300
3086 035306
3087 035350
3088 035350
035350
035354
3C89
3¢90 035354

001002
000137

BNE
JMP

034666

000753

:
50440

112737

000012

003164

Move

.+6

50440
OUTPUI (RS5)+,410., ,LUNIT
ENDDO
50437
LET OUTBUF

412,0UTBUF

:B= #12

OUTPUI QOUTBUF
&1, ,LUNIT

012705

005715
001002
000137

035744

S0441:

035014

000753

504424:

012737
000402

000016

005337

002302

023727
002002
000137

002302

000001

035152

50444

S0445%:

000746

S0446%:

TS7
BNE
JMP

(RS)

B8R

LINCNT,
%)
50445

1S7
8GY
JMP

S0447%:
HOVB
2210¢:

177777

034470

504464

OUTPUI &x11,¢10.,,LUNIT

002306

000137

TO #1 BY #1

504444

CcMP
B8GE
JMP

005737
003002
000137
000137

003164

914, ,LINCNT

LINCNT

DEC

000014

(R5).,€10., ,LUNIT

DECR LINCNT FROM &14.

DEC

002306

112737

.+6

50442
OQUTPUI
ENDDO
50441

OUTPUI #0UTBUF
,&1, ,LUNIT

005337

035300
034610

:= OTABLE?2

#TABLE2,RS
WHILE (RS) NE @0 DO

MOV

50443
:

LET RS

MoV

ENDDECR
504434

OUTPUI @OUTBUF
, &1, ,LUNIT
OUTPUI #0UTBUF
,&1, ,LUNIT
LET COUNT := COUNT - o1
COUNT
IF COUNT GT #0 THEN
COUNT
.+6
504474
JMP 14
ENDIF
LET OUTBUF

€14,0UTBUF

OUTPUI

ENDINCR

JHP
504364
:
$BRJMP
=-1
EXIT TST

504334

:B=

014

#0OUTBUF,
@1, ,LUNIT

CZLPLFO LP2S, LP26, LP27, LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 32-2

SEQ 0104

PRINT CONTROL

036000
036000
3116 036002

TRAP
CSEXIT
.WORD
L10021-.
NLIST BEX
PRTCTL: .ASCII /PRINT CONTROL TEST 10/ <12>
.ASCIZ
/SHOULD SHOW 132 COLUMNS PRINTED/<125><12>¢15>
NOLPO7: .ASCIZ
/¥NSAPRINT CONTROL TEST DOES NOTHING ON LPO7'S.%N/

120
123
045

122
110
116

11
117
045

040
040
040
040
040
040
040
040
040
040

X6:
X7:
X8:
X9:

.ASCII
.ASCII
.ASCII
.ASCII

061

062

063

X11:

.ASCII

71234567890/

035532
035544

035532
035556

035532
035570

.WORD

X0, X0, X0,X0, X0,X0,X0,X0,X0,X1,X1, X1,x1,0
.

104401

X0:
X1:
X2:
X3:
X4 :

XS5:

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

.ASCII

w
~

3091
3092 035360
3093 035406
3094 035451
3095
3096 035532
3097 035544
3098 035556
3099 035570
3100 035602
3101 035614
3102 035626
3103 035640
3104 035652
3105 035664
3106
3107 035676
3108
3109
3110 035710
3111 035744
3112
3113
3114
3115 036000

104432
000422

NNNNNNNNNN

035354
035356

.EVEN

TABLE1:

TABLE2:

.WORD
.EVEN

.LIST BEX
ENDTST
L10021:
TRAP
ENDMOD

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

CS$ETST

CILPLFO LP2S, LP26, LP27, LPO?

MACRO Y05.02

Wednesday

10 Apr

85 09:07

Page

SEQ 0105

MULTIPLE LINE ADVANCE
3119
3120
3121 036002
3122
3123
3124
3125

3126
3127
3128
3129
3130
3131 036002
036002
3132
3133
3134
3135 036002
3136
3137 036044
036044
3138
1139 026052
026052
3140 036052
036052
3141 036060
036060
036064
036070
.42 036074
036074
1143 036100
036100
036106
036110
036110
036114
0361i4
036122
036124
036124
C36130
036130
035132
03%61%2
036132
035134
036134
036134
036140
(35142
035142
036146
036145
035150
025150

.SBTTL

MULTIPLE LINE ADVANCE

BGNMOD
‘00

sTHIS

TEST

CHECKS

THE MULTIPLE LINE

ADVANCE OF

THE LINE PRINTER.

A LINE

iNUMBERS IS PRINTED AND THEN THE PAPER IS'ADVANCED THAT NUMBER OF LINES.

:NUMBER PRINTED WILL INDICATE THE NUMBER OF BLANK LINES FOLLOWING THAT

sLINE.
;ALL

THE NUMBER OF LINES IS VARIED BETWEEN 2 AND 7 AND A LINE OF

0'S WILL

BGNTST
Ti1::

INDICATE

THME END OF

THE

TEST

SEQUENCE.

11,

;PRINT TEST IDENTIFICATION
OUTPUT &MULINE,086.

012737

036312

036310

ET STACHR

MOV

&TABSTR
@TABSTR,STACHR

;:OUTPUT CHARACTERS

REPEAT

11773~

000232

013746
042716
042637

002302
000007
002302

012703

003164

012737
000402

000001

005237

002310

02372~
003003

002310

117723

000160

05004

020427
001404

002102

112727

000012

000771

8IC
BIC

LET R3 :=
MOV

002310

504528
:
50451%:
000204

:8= QSTACHR
SSTACHR, LINCNT
:= LINCNT AND 47
LINCNT, -(SP)

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

Q0UTBUF
S0UTBUF ,R3

INCR CCNT FROTM @1 TO #132.
MOV

81 ,CCNT

I'c

CCNT

B8R

MOvVB

;:GET A CHARACTER TO OQUTPUT
;MAKE THE ASCII TO OCTAL

:SET UP QUTPUT BUFFER

BY a1

50451

cMP
CCNT
., #132.
50453
857
LET (R3). :8= @STACHR
ENDINC

006767

005204

002302

504508
LET LINCNT
MOVB
LET LINCNT
MOV

aSTACHR, (R3).

BR
50452
£0453s:
LET R4 := &0
CLR
R4
WHILE R4 NE LINCNT DO
50454
cMP
R4 ,LINCNT
BEQ
50455
LET (R3). :B= 012
MOVB
#12,.(R3).
LET R4 := R4 . &1
INC
R4
ENDOQ
BR
50454

;PUT CHARACTER

IN OUTPUT BUFFER

sFILL WITH LINE FEEDS

THUS THE

CILPLFO LPSS,

LP26,

LP27,

LPOY

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
036306
3163

3164
3165
3166
3167
3168
3169
3170
31
3L72
3173
3174
3175
3176

504554
:

;NOW QUTPUT THE ACTUAL LINE
013704
062704
005237

o]}

002302

112737

000014

ADD

036312
036327
036365

062
115
116

:NUMBER OF CHARACTERS TO QuUTPUT

e132. ,R4

.«

UPDATE CHARACTER COUNT

;OUTPUT THE LINE

UNTIL LINCNT £Q @0

003164

157
LINCNT
BNE
504504
LET OUTBUF :B= 414
Move
€14,0UTBUF
QUTPUT #0UTBUF
, &1

EXIT TST

067
125
125

062
114

115

TRAP

CSEXIT

.WORD

L10022-.

STACHR: .WORD ©
.NLIST BEX
TABSTR: .ASCIZ
/272637463540/
MULINE: .ASCII
/MULTIPLE LINE ADVANCE TEST 11/<12>
.ASCIZ
/NUMBERS PRINTED REPRESENT & LINES TO NEXT LINE PRINTED/<12><12>

.EVEN
.LIST BEX

104401

0132,

LINCNT,R4

STACHR := STACHR
INC
STACHR
OUTPUT &0OUTBUF ,R4

104432
000150

000000

:= LINCNT

LET

036310

005737
001307

036310

036456
036456
036456
3177 036460
3178

LET R4

002302
00004

ENDTST
L10022:

ENDMOD

TRAP

CSETST

CILPLFO 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
036514
036536

036535
3193 036542
036542
3194
3195 036542
026542
3196 026546
036546
036554
036556
036556
036562
036562
036570
3197 036572
036572
3198 026576
036576
3199 036602
036602
036604
3200 036604
036604
3201
3202
3203
3204 036610
3205 035652
3206
3207
3208
3209 0356714
0356714
3210 036720
035720
3ei1 035724
036724
3212
3213 036730
3c14 036772

.SBTTL
BGNMOD

CHARACTER ALIGNMENT

iee

:THIS TEST CHECKS CHARACTER ALIGNMENT BY OVERPRINTING LINES OF ALTERNATING
:H'S AND SPACES WITH SPACES AND H'S,

BGNTST

12.

T12::

:PRINT TEST IDENTIFICATION

QUTPUT @CHRALN,#30.

;

PRINT TEST NAME ON LP

;PRINT 24 LINES OF ALTERNATING “H"'S AND "“SPACE"'S

012737

000062

005737
003002

002302

000137

002302

1$:

LET LINCNT := #50.
MOV
450. ,LINCNT
IF LINCNT LE 90 THEN
TS7
LINCNT

2s:

B8GT

037044

50456

504563

INLINE
JMP
3s
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

003160
50460
:

000102

50457
:

INC

WORK

cMp

WORK,
66 .

BGT

000765

50461
:

112724

LET R4 := oQUTBUF
MOV
@0UTBUF ,R4
INCR WORK FROM &1 TO ¢66.
MOV
91 ,UWO0RK
BR
504574

000015

BY &1

504614
LET (R4). :B= 2110
MOvB
#110,(R4).
LET (R4)+ :B= 440
MoV
¢40,(R4).
ENDINCR
BR
504604

LET (R4)+

Move

:B= 4CR

4CR,(R4).

;

132 CHARACTERS

;

PUT PATTERN INTO BUFFER

;

FOLLOWED BY CR

: SEND BASIC PATTERN
OUTPUT #OUTBUF, 8132.

OUTPUT @0UTBUF +132., o1

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

003370

112724

000110

112724

000012

LET R4 := Q0UTBUF.132.
MOV
Q0UTBUF +132. ,R4
LET (R4)+ :B= #4110

MOovB

#110,(R4).

LET (R4)+ :B= &LF
MOV8
oLF,(R4).

OUTPUT
4&OUTBUF+1,4132.
OUTPUT QOUTBUF+133.,21

FILL BUFFER WITH REVERSE PATTERN

;

FOLLOWED BY A LINEFEED

;

OVERPRINT

CZLPLFO LP25,

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
2%>
JMP
2%

003164

104432
000042
1C3

104401

110

101

3
LET OUTBUF :B= 414
MOvVB
#14,0UTBUF
QUTPUT &0UTBUF ,#1
JSR PC,QUIET
EXIT TST
TRAP
CSEXIT
.WORD
L10023-,
.NLIST BEX
CHRALN: .ASCIZ /CHARACTER ALIGNMENT TEST
.EVEN
.LIST BEX
ENDTST
L10023:
TRAP
CSETST
ENDMOD

12/<12><12><12>

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

027202
037206
037212
05214
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

; INTERRUPT VECTORS ARE ESTABLISHED CURING INITIALIZATION
;POINTING TO THE BASIC ROUTINES WHICH
:SET UP THE UNIT NUMBER CAUSING THE INTERRUPTS.
;LINE NUMBER IS RETURNED IN R2

X=0

000000
000020

INTO0O0:

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
001137
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
004774
000200

000010
004774
000200

000012
004774
000200

000014
004774
000200

000016

.REPT 16.
SETPRI #PRIO4
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

IODRV>

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

i1JORV
#FRIO4 ,RO
C$5SPRI
R2,-(SP)
X ,R2

IODRV
4PRIO4 RO
C$SPRI
R2,-(SP)
9X,R2
IODRV
4PRIO4,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
037362
037366
037372
037374

037376

037402

037406
037412
037414
037416
037422
037426
037432
037434
037436
037442
037446
037452
037454
037456
037462
037466
027472
027474
037476

037502
037506
037512
037514
037516
037522
037526
027532
037534
037536
037542
037546
037552
037554
037556
037562
1247

000137
012700
104441
010246

004774
000200

012702

JMP
MOV
TRAP
MOV

000020

MOV

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

000200

MOV
TRAP
MOV
MOV
JMP
MOV
TRAP
MOV
MOV
JMP
MOV
TRAP
MOV
MOV
JMP
MOV
TRAP
MOV
“ov

000137

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

004774

000022
004774
000200

000024
004774
000200

000026
004774
000200

000030
004774
000200

000032
004774
000200

000034
004774
000200

000036
004774

Page 36-1

JMP

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

IODRYV
4PRIO4 ,RO
C$SPRI
R2,-(SP)
4x,R2
IODRV
4PRIOA4 ,RO
C$SPRI
R2,-(SP)
#X,R2
IODRV
#PRIO4 ,RO
C$SPRI
R2,-(SP)
X ,Re
IODRV
¢PRIO4 RO
C$SPRI
R2,-(SP)
X ,R2
IODRV
4PRI04,RO
C$SPRI
R2,-(SP)
X ,Re
IODRV
#PRIO4 RO
C$SPRI
R2,-(SP)
X, R2
IODRV
#-RI04,RO
C$SPRI
R2,-(SP)
X, R2
JODRV
4PRIO4 ,RO
C$SPRI
R2,-(SP)
X, R2
IODRV

CZLPLFO LP25,

LP26,

LP27,

LPO?7

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
027620
037626
3263 037630
037630
3264 037636
037636
3265
3266 037636
037636
037636

000002

3268 037640
3269 037642

000000
000000

3267

.SBTTL CLOCK SERVICE ROUTINE
1o

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

012700
104441

000300

005737
001005

037642

012737

000074

005237

037640

CLKTCK:

037642

504624
:
005337

037642

023727
001003

002326

000002

012777

000100

142474

504634
:

SETPRI #PRIO6
MOV
#PRIO6,RO
TRAP
C$SPRI
IF TICK EQ 40 THEN
TST
TICK
BNE
504624
LET TICK := #60.
MOV
#60.,TICK
LET TIME := TIME
INC
TIME
ENDIF

:BACK UP SECOMD TIMER

;AND EXIT

RTI

TICK:

LET TICK := TICK - &1
DEC
TICK
IF CLKTYP EQ 42 THEN
CMP
CLKTYP,#2
BNE
50463¢
LET QCLKCSR := 2100
MOV
#100,3CLKCSR
ENDIF

ENDSRV
L10025:

iIHE:

160 TICKS PER SECOND

.WORD
.WORD

0
O

CZLPLFO LP25,

LP26,

LP27, LPO?7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 38
SEQ 0112

HARDWARE PARAMETER SECTION

3271
3272 03764«
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 027706

3287
3288
3289
3290
3291
3292
3293
3294

.SBTTL
BGNMOD

i
;:THIS SECTION INCLUDES THE QUESTIONS WHICH REQUEST THE OPERATOR TO
;FURNISH THE HARDWARE INFORMATION NECESSARY TO BUILD THE HARDWARE
;P -TABLES.
H

i-BGNHRD

000020

L$HARD::

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 L10026-L$HARD/2

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

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

.EVEN
L10026:
.NLIST BEX
GETADR: .ASCIZ
.LP11/LPV11 ADDRESS.
GETVEC: .ASCIZ
/INTERPYPT VFCTOR/
GETTYP: .ASCIZ
ENTER O IF LP2S, 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

SOF TWARE PARAMETER SECTION
3296
3297
3298
3299
3300
3301
3302
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

3310
3311
3312
3313
3314
3315
3316
3317
3318
3319
3320
3321

.SBTTL
R

;THIS SECTION INCLUDES THE QUESTIONS WHICH REQUEST THE OPERATOR TO FURNISH
i THE SOFTWARE INFORMATION NECESSARY TO BUILD THE SOFTWARE P-TABLES.

BGNSFT

000023

L$SOFT::

001130
040164
000001
002052
040236
000377
000004
000074

.WORD

004052
040344
000377
000001
000377

ENDSFT

040372
040432

040432
040434
040436
3322 040436
3323

125
105
105
105
125

116
122
123
123
124

.WORD
GPRML
.WORD
.WORD
.WORD
GPRMD
.WORD
.WORD
.WGRD
.WORD
.WORD

TS$HILIM
GETPLA,6,1,YES
Ts$CODE
GETPLA
1
GETMAX,10,0,377,1,255.,YES
TS$CODE
GETMAX
377
TSLOLIM
T$HILIM

000001

LSLAST::
ENDMOD
.END

TS$LOLIM

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

.BLKW

.EVEN
.WORD
.WORD

O
O

LASTAD
000000
000000

TS$CODE

GETTIM
377

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

PATCH:

MGTINT,O0,1,YES
T$CODE
MGTINT
1
GETMAN,2,1,YES
TS$CODE
GETMAN
1
GETTIM,4,0,377,4,.60.,YES

.WORD
.WORD

.WORD

003130
040323
000001

122
120
104
124
101

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

000130
040126
000001

040126
0406126
040164
040236
040323
040344

SOFTWARE PARAMETER SECTION

CZLPLFO LP2S,

LP26,

LP27,

LPO?

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 39-1

SEQ 0114

Symbol table
ACTIVE= 020000
ADR
= 000020 G
ASSEMB= 000005
AUTCON
030346
AUTSEC
030230
BANDSW
014116
B8GTLCH
014325
BGTSWI
004221
BIN2DA
004562
BITO
= 000001 G
81700 = 000001 G
BITO01 = 000002 G
81702 = 000004 G
BITO3 = 000C10 G
B8IT04 = 000020 G
BITOS = 000040 G
8IT06 = 000100 G
BITO7 = 000200 G
B81T08 = 000400 G
BIT09 = 001000 G
BIT1
= 000002 G
BIT10 = 002000 G
BIT11 = 004000 G
BIT12 = 010000 G
BIT13 = 020000 G
81T14 = 040000 G
EIT1S = 100000 G
BIT2
= 000004 G
BIT3
= 000010 G
8IT4
= 000020 G
8IT5S
= 000040 G
B8IT6
= 000100 G

BIT?7
BIT8
8IT9

BNDPAT
BNDRDY
BNDSWI
BNDSW1
BNDTST
BNKSWI

B80€E

BPID2S
8PID26
BPID27
BP64ID
8P64Q1
BP64Q2
BP64Q3
BP64Q4
BP96ID
8P96Q1
BP96Q2
B8P96Q3
BP96Q4
BUFACD
BUFCNT

= 000200 G
= 000400 G
= 001000 G
023426
014234
003562
014204
032660
003515

= 000400 G
032707
032715
032723
032731
033005
033101
033176
033272
032757
033370
033464
033561
033655
002354
002356

BUFREP
002360
BYTECO= 000403
CCNT
002310
CHAR
026366
CHNSEC
016446
CHRALN
037124
CHRGEN
002314
CK1
007046
CLEAN
010164
CLKCSR
002332
CLKENA
002340
CLKSET
002334
CLKTCK
037566
CLKTYP
002326
CLKVEC
002336
CLOCKP
002330
COUNT
002306
COUNTD
004770
CR
= 000015
CSRERR
003412
CTLEND
005600
CTLLOP
005232
CURADD
002556
CURCNT
0n275S6
C$AU
= (L0052
C$AUTO= 000061
C$BRK = 000022
C$BSEG= 000004
csBsuB= 000002
C$CEFG= 000045
CsCLCK= 000062
C$CLEA= 000012

C$CLOS=
CsCLP1=
CsCve-i=
renTM N=
-000U=
<$DRPT=
C$DU
=
C$EDIT=
CS$ERDF=

000044
000051
000024
000053
000003
000055

C$ERRO=
C$ERSF=
C$ERSO=
C$ESCA=
CS$ESEG=
CSESUB=
C$ETST=
C$EXIT=
CsGETB=
C$GETMW=
C$GMAN=
C$GPHR=
C$GPLO=
C$GPRI=
CS$INIT=

000060
000054
000057
000010
000005
000003
000001
000032
000026
000027
000043
000042
000030
000040
000011

000035
000006
000036

CS$ERHR= 000056

C$INLP= 000020
C$MANI= 000050
C$MEM = 000031
C$MSG = 000023
C$OPEN= 000034
C$PNTB= 000014
C$PNTF= 000017
C$PNTS= 000016
C$PNTX= 00001S
C$QI0 = 000377
C$RDBU= 000007
C$REFG= 000047
CS$RESE= 000033
CS$REVI= 000003
CSRFLA= 000021
CSRPT = 000025
C$SEFG= 000046
C$SPRI= 000041
C$SVEC= 000037
C$TPRI= 000013
DATPTH
026370
OEL
= 000177 G
DELCNT
003056
DFPTBL
002250 G
OIAGMC= 000005
DIGITS
004772
DROPED= 040000
DROPIT
005654
EF .CON= 000036 G
EF .NEW= 000035 G
EF .PWR= 000034 G
EF .RES= 000037 G

EF .STA= 000040 G
END2
011116
END4
022142

ERFLG =
ERRCOD
ERRFLG
ERROR =
ERRSVC
ERRTBL

ERR11

ERR12
ERR13
EVL
=
ESEND =
ESLOAD=
FAKE
FF
=
FFSET
FLAG
FLAGDR
FLAGO?=
FLAG26=
FLAG96=
FLSMSG
FLSMS1

000400
002342
002344
100000
003116
003120 G

011422

011476
011561
000004 G
002100
000035
005762
000014 G
017275
002300
004766
002000
001000
010000
017351
017443

FLSMS2
017523
FLSSEL
016650
FLS1
016747
F$AU
= 000015
F$AUTO= 000020
F$BGN = 000040
F$CLEA= 000007
F$DU
= 000016
F$END = 000041
F$HARD= 000004
F$SHW
= 000013
FSINIT= 000006
F$JMP = 000050
F$MOD = 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

G$CNTO= 000200
G$DELM= 000372
G$DISP= 000003

GSEXCP=
GS$SHILI=
G$LOLI=
GSNO
=
G$OFFS=
GS$OFSI=

000400
000002
000001
000000
000400
000376

G$PRMD=
GSPRML=
G$SRADA=
G$RADB=
G$RADD=
GSRADL=
GS$RADO=
GSXFER=
GSYES =
HAMFIR
HAMRDY
HAMRSW
HAMSW]1
HOE
=
IBE
=

000002
000000
000140
000000
000040
000120
000020
000004
000010
034370
014032
013714
013771
100000 G
010000 G

G$PRMA= 000001

10V
= 000040
IER
= 020000
IGNORE
01007C
INDEX
002350
INHINT
002266
INTERR
011304
INTER1
003632
INTFAC
011342
INTHDL
011334
INTLK
013430
INTOO
037166
IOCTRL
005172
IODRY
004774
ISR
= 000100
IXE
= 004000
IS$AU
= 000041
I$AUTO= 000041
ISCLN = 000041
IsDU
= 000041
I$HRD = 000041
I$INIT= 000041
ISMOD = 000041
I$MSG = 000041
I$PROT= 000040
ISPTAB= 000041
ISPWR = 000041
ISRPT = 000041
I$SEG = 000041
I$SETU= 000041
IS$SFT = 000041
ISSRV = 000041
IsSUB = 000041

IS$TST =
JSJMP =
LF
=
LINCNT
LINPER
LINSEC
LINSWI
LINSW1
LOBYTE=

002302
023467
016464
016504
016570
000377

LoT
=
LPBUF
LPCSR
LPDROP
LPERR
LPERR2
LPINTR
LPM64
LPM96
LPVEC
LSTCNT
LUNIT
LSACP
LSAPT
LSAUT

000010
002456
002362
004312
004360
023416
003016
024071
024152
002422
002304
002320
002110
002036
00207C

LOE

G
G

000041
000167
000012 G

= 040000 G
G

G
G
G

CZLPLFO LP25,

LP26,

LP27,

LPO7

MACRO Y05.02

Wednesday 10-Rpr-85 09:07

Page 39 2
SEQ 0115

Symbol table

L$PRIC
L$PROT
L$PRT
LSREPP
L$SREV
L$SOFT
L$SPC
L$SPCP
L$SPTP
L$STA

002042
002122
002112
02062
002010
040060
002056
002020
002024
002030

L$TIML
LSUNIT
LO7M64
LOTMM96
L10001
L10002
L10003
L10004
L1000S
L10006
L100C?
L10010

002014 G
002012 G
024375
024456
002260
002262
002300
010066
010346
011636
011332
011340

L$SW
L$TEST

G
G
G
G
G
G
G
G
G
G

002266 G
002114 G

L10026

L10027
L26M64
L26M96
L27M64

014610
017716
026004
026430
027326
031046
033754
034432
036000
036456
037164
037636
037706
040126

024233
024314
024537
L27M96
024620
MANSPD
002270
MAXERR
002276
MGTINT
040126
MOVMSG
017616
MRESET
007365
MSGADR
002716
MSGCNT
002616
MULINE
036327
NMLFLS
017203
NOCLCK
007730
NOCLK
004153
NOINTR= 000003
NOLPO7
035451
NONBUF
030451
NONCHR
030120
007772
NOTIM
NOO?
032600
NRGT16
007246
NRGT17
007331
OF FLIN
023534
ONEFIL= 000001
ONLIN1
023574
023675
ONLIN2
023773
ONLIN3
003164
OUTBUF
003712
OUTTIM
O$APTS= 000000
O$AU
= 000000
0$BGNR» 000000
0$BGNS= 000001
osDU
= 000000
OSERRT= 000000
O$GNSW= 0CN001
O$POIN= 000001
0$SETU= 000000
PAPCHK
017042
PAPRDY
013605
PAPRSH
013466
PAPSWI
003452

PAPSW1
PAPTST
PATCH
PATTER
PERIOD
PLOC
PNT
=
PRI
=
PRINTR
PRIOO =
PRIO1 =
PRI0O2 =
PRIO3 =
PRIO4 =
PRIOS =
PRIO6 =
PRIO7 =
PRTCHR
PRTCTL
PRTSPD
PTABAD
QUIET
RDYERR
READY
REFLIN
REPCNT
REPLUP
RESETL
RESET2
RESTOR
RESVEC

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

SKIP3
SPCCNT

030444
034366

SFPTBL

SPED1
SPED2
SPED3
STACHR
STATER=
STATUS
STRCNT
SvCGBeL=
SVCINS=
SVCSuB=
SVCTAG=
SVCTST=
SYMD
=
SYML
=
SYMS
=
SYx
=
S$LSYM=
TABA64
TABA96
TABLDA
TABLE1
TABLE2
TABSTR

780764
780796
TICK
TIME
TIMOUT=
TOF
=
G
G

G
G
G
G
G
G
G
G

G
002266 G

023430
023452
022357
036310
000001
002516
002312
000000
000000
000000
000000

000000
000007
000005
000007

050215
010000
024754
025162
004754
035710
035744
036312

025370
025576
037642
037640
000002
000014

TXERR
003665
TXNOIN
003737
T$ARGC= 000001
T$COOE= 004052
T$ERRN= 000012
T$EXCP= 000000
T$FLAG= 000040
T$GMAN= 000000

T$HILI=
T$LAST=
T$LOLI=
T$LSYM=
T$LTNO=
T$NEST=
T$NSO =
T$NS1 =
T$NS2 =
T$PTNU=
T¢ AVL=
SEGL=
T+SUBN=
T$TAGL=
T$TAGN=
T$TEMP=
T$TEST=
T$TSTM=
T$TSTS=

000377
000001
000001
010000
000014
000000
000010
000000
000005
000000
177777
177777
000000
177777
010030
000000
000014
177777
000001

T18
T1C
T10
T11

T12
T2
13
TIMOV
T3SET
T4
75
T6

010005
010026
010001
010004
010000
010027
010025
010003
010023
010350
010364
011142
010370
034434
036002
036460
011640
014612
016444
016442
017720
026006
026432

X$ALWA=
X$FALS=
X$0FFS=
X$TRUE=
X0
X1
X11
X2
X3
x4
XS
X6
X7
X8
X9
SAAFLA=
$AFLAG=
$BGNLE
=
$BRUMP
=
$ERFLG=
$FLAG =
$FSAND
=
$F$BAD=
$F$BLA=»
$FS$CAS=
$F SOEC=
$FS$DO =
$FSEX]I=

T$$AUT= 010002

T$$CLE=
T$$HAR=
T$$HW =
T$$INI=
T$$PRO=
T$$SOF=
T$$SRV=
T$$SW =
T$$TES=
T1
T1A

17
T8
T9
UAM
s
UNIT
USA
wTt
WTEQO
VFUCMD
VFUINF
VFUINT
VFURDY
VFUSEL
VFUSE1
WORK
WORK1

$FS$FAL=

$F $GOO>»
2N

002050 G
002000 G

L10011
L10012
L10013
L10014
L10015
L10016
L10017
L10020
L10021
L10022
L10023
L10025

$FSIF

$SFSINC=
$FSLCO$F SNAM=

027330
031050
033756
000200
002316
002274
002346
003770
002352
004263
014425
014517
004037
004125
003160
003162
000040
000000
000040
0u0400
000020
035532
035544
035676
035556
035570
035602

035614
035626
035640
035652
035604
000403
000403
177
177777
000400
000330
000310
000401
000170
000150
000220
000340
000101
000405
000400
000110
000210
000200
000160
000403
000320

(2 X2 RN

L$MREV
L$NAME

002260 G
002106 G
010154 G
002032 G
002011 G
002162 G
002076 G
002060 G
002132 G
002116 G
002040 G
002034 G
00207 G
002222 G
002052 G
002044 G
002102
002046 G
002064 G
002066 G
037646 G
002120 G
002016 G
0C2022 G
002250 G
002104 G
006016 G
002026 G
040436 G
002100 G
002074 G

$FINQ

[2 X212

L$AUTO
L$CCP
L$CLEA
LsCO
LsDEPO
L$DESC
L$DESP
L$DEVP
L$DISP
L$DLY
L$DTP
L$DTYP
L$DUT
L$OVTY
LSEF
LSENVI
L$ETP
L$EXP1
L$SEXP4
LSEXPS
L$HARD
L$HIME
L$HPCP
L$HPTP
L SHW
L$ICP
L$INIT
L$LADP
L$LAST
L$LOAD
LSLUN

$FSOR =
$FSRTI= 000350
$FSRTN= 000300
$FixTTa 000360
$F$SFL= 000140

G
G
G
G

CZLPLFO LP25,

LP26,

LP27,

LPO7

MACRO Y05.02

Wednesday 10-Apr-85 09:07

Page 39-3
SEQ 0116

Symbol table
$F¢Tme=
$F$TRU=
$FSUNT=
$F $WHI=
$FS$YES=
$IFLEV.
$INH
=
$ISKO =
$ISK1 =
$ISK2 =
$ISK3 =
$I15k4 =
$LO0
=
$LOCTA=
.

ABS.

000130
000120
000402
177777
000403
000001
000001
000001
000001
000001
177777
177777

040436
000000

Errors detected:
sss

Work
Work

$LSI11=
$LSKO =
$LSK1 =
$LSTIN=
$LSTTA=
SNESTL=
$NSKO =
$NSK1 =
$NSK2 =
$NSK3 =
$NSK4 =
$NSKS =
$SAVE =
$SAVE2=

000330
000404

Agsembler

000
001
0

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

$SAVLE=
$SELLE=
$550
$SS1
=
$5S2
=
$SYMD =
$SYMS =
$TAGLE=
$TAGNU=
$TEMP =
$TSO
=
$7S1
=
$7S52
=
$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)

statistics

file
reeads:
file writes:

Size of work file:
Size of core pool:
Operating
systenm:

12716
6950
58520 Words

19714 Words

RSX-11M/PLUS

(
(

229 Pages)
75 Pages)

(Under

VAX/VMS)

Elapsed time: 00:38:50.19
CZLPLFO,LZLPLFO/NL:TOC/-SP=SVC34/ML ,SPMACJU/ML,CZLPLFO.P11

$TS4
$1S5
$756
$TS7
$U
$$ARGC=

$$BYTE=
$$CASE=
$30ST =
$$ELOC=

050432
050273
050274
050264
000403
000000
000000
000404
000037
000402
000000

$S$ERFL=
$$FLAG= 000001
$$FROM= 000000

$SINH = 000403
$3LOC = 037626
$3LOCN= 000000
$$REG
177777
$$RCTU= 000000
$SRTN1
= 000000
$SRTN2
= 000000
$$SRC = 000027
$8TGSV= 050217
$37GS1+ 050216
$$7GS2+ 000000
$$70
= 000000
$$$TAG= 050000