Digital PDFs

AH-E635A-MC

January 1980

123 pages

Original

5.0MB

OCR Version

4.1MB

Document:	CZLPLA0 LP25 LP25 DIAG. JAN 1980 bw
Order Number:	AH-E635A-MC
Revision:	000
Pages:	123
Original Filename:	CZLPLA0__LP25__LP25_DIAG.__AH-E635A-MC__JAN_1980_bw.pdf

OCR Text

LP25 DIAG

CZLPLAO

JAN 1980

AH-E635A-MC

copvriGHT 1980
FICHETOE1L .

-

=DRO0E0

MADE IN USA

MACY1T
~0(7=79 09:25

G

30A(1052)

01-0C"-79

09:27

8

PAGE
1

SEQ 0001

.REM §
IDENTIF]CATION
PRODUCT

(ODE:

AC-E634A-M(

PRODUCT NAME:

CZLPLAQO LP25

MAINTAINER:

SMALL

AUTHORS :

JOHN (HATAL AN

DIAG

SYSTEMS DIAGNOSTICS

DONALD RICE

27-SEP-/9

DATE :

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

COPYRIGHT

(C)

FOLLOWING ARE

TRADEMARKS Of

DIGITAL

PDP
DECUS

EQUIPMENT

VS
W
— O

b

.
—d

.
.

o

]
)

L]

RELIABILITY
DIGITAL
OR

GENERAL

(ORPORATION:

UNIBUS
DE(CTAPE

TABLE

—

OR
B8Y

1979 BY DIGITAL EQUIPMENT CORPORATION

DIGITAL
DEC

L]

THE

AFFILIATED

THE
USE
SUPPLIED

OF

C(ONTENTS

INFORMAT jON

PROGRAM ABSTRACT

SYSTEM REQUIREMENTS

RELATED DOCUMENTS AND

STANDARDS

DIAGNOSTIC HIERARCHY PREREQUISITES

ASSUMPT IONS

MAS SBUS

OF
ITS

SFArWWWNH—=-—220

30A(1052)

.1
.2

HOW TO CREATE A CHAINABLE

¢

PAGE 1-7

FILE

O
O

PERFORMANCE

O

DEVICE

O

DETAILS OF COMMANDS AND SYNTAX
TABLE OF COMMAND VALIDITY
COMMANC SYNITAX
EXTENDED P-TABLE DIALOGUE
ERROR INFORMATION

TEST

o

09:27

OPERATING INSTRUCTIONS
HOW TO RUN THIS DJAGNOSTIC
THE SIX STEPS OF EXECUTION
SAMPLE RUN-THROUGH

TRV B

~no

.1

01-0(T=-79

[

NV R AS AN 1AV NI S 1,0 1,0 1N [V

(2LPLAC LP2S DIAG
MACY11
(2LPLA.P1T
01-0CT-79 09:25

AND PROGRESS REPORTS

INFORMATION TASBLES

SUMMARIES

SEQ 0007

MACY11
CZLPLAQ LPZS DIAG
CZLPLA.P11
U1=-0CT-79 09:25

30A(1052)

01-0(7-79

1.0

GENERAL

INFORMATION

1.

PROGRAM ABSTRA(CT

09:27

PAGE 2

D

SEQ 0003

THIS DIAGNOSTIC PROGRAM VERIFIES PROPER PROPER OPERATION OF

LP25 LINE PRINTER AND ITS ASSOCIATED M7258 CONTROL UNIT

THE

WHICH INTERFACES TO THE PDP-11 (CPU. THE BROAD RANGE OF TESTS
ASSURES A COMPREHENSIVE TEST OF THE FUNCTIONAL CAPABILITY Of
THE

LINE PRINTER.

FOLLOWS:

TEST

TEST

TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST

TEST
TEST
1EST
TEST
TEST

1

THE

INDIVIDUAL

TESTS ARE

INTERFACE LOGIC

2

READY LINE

12
13
14
15
16

SPURIOUS HAMMER F IRING
PRINT CONTROL
CRITICAL PATHS
MULTIPLE LINE ADVANCE
CHARACTER ALIGNMENT

3
&
S
6
7
8
O
10
N

IDENTIFIED AS

INTERLOCKS

FORMS LENGTH SELECTION
PRINTING SPEED
DAVFU ERROR DETECTION
DAVFU LINE COUNT PAPER CONTROL
DAVFU CHANNEL SELECTION PAPER (ONTROL
DATA TRANSFER PATHS
PRINTABLE CHARACTERS
NON-PRINTABLE CHARA(TERS
BAND PATTERN

TEST 1 VERIFIES OPERATION OF THE INTERFACE LOGIC. TESTS 2 AND
3 ARE MANUAL INTERVENTION TESTS TO CHECK PRINTER MANUAL

FUNCTIONS. TEST 4 DETERMINES THE TIME INTERVAL AUTOMATICALLY
FOR CALCULATION OF THE PRINTING SPEED BY MEANS OF THE INTERNAL

CLOCK.

PROVISION IS INCLUDED TO PERFORM THE PRINTING SPEED

MEASUREMENT MANUALLY

IF

A CLOCK

IS NOT

INSTALLED

IN THE

SYSTEM.

TESTS 5, 6, AND 7 VERIFY PROPER OPERATION OF THE DAVFU (DIREC(T
ACCESS VERTICAL FORMAT UNIT) OPTION. TESTS 5 AND 6 OF THE DAVFU
GROUP INVOLVE MANUAL INTERVENTION. THE DAVFU TESTS ARE OMITTED

IF

THE PRINTER UNDER TEST DOES NOT HAVE A DAVFU.

'6 COMPRISE THE PRINTING TESTS.

TESTS 8 THROUGH

THIS DIAGNOSTIC IS INTERFACED TO A FRONT-END PIECE OF SOF TWARE
KNOWN AS THE DIAGNOSTIC RUNTIME SERVICES (DRS) MODULE WHICH

BRINGS TOGETHER ALL THE CODE FORMERLY INCLUDED WITHIN THE
DIAGNOSTIC FOR INTERFACING TO THE ENVIRONMENT. THE DIAGNOSTIC
SUPERVISOR ALLOWS THE OPERATOR TO SPECIFY HARDWARE/SOF TWARE

PARAMETERS AND TO PERFORM TEST AND UNIT SELECTION. IN THE DRS
COMMAND MODE, THE OPERATOR CAN ISSUE COMMANDS TO CONTROL THE

OPERATION OF THE DIAGNOSTIC AND CAN, BY MEANS OF SWITCHES ON
THESE COMMANDS, INVOKE DIFFERENT FLAGS WHICH REPLACE THE
HARDWARE

SWITCH REGISTER WHICH

SUPERVISOR.
SINCE

THE PROGRAM ONLY MONITORS

READY AND DEMAND LINES AND

IS NOT ACCESSIBLE

THE

DOES NOT

UNDER

THE

CURRENT CONDITION OF

RECEIVE

ANY

OTHER

THE

STATUS

MACY1?
CZLPLAQ LP25 DIAG
CZLPLA.P1Y
C1-0CT=-79 09:25

30A(1052)

01-0CT-79

09:27

E

INFORMATION FROM THE LINE PRINTER,

THE

SEQ (0004

PAGE 2-1

PRINT PATTERNS PRODUCED 8Y

THE OPERATOR MUST EXAMINE

THE VARJOUS

VERIFY PROPER PRINTER OPERATION.
THIS DIAGNOSTIC PROGRAM HAS
PRINTERS AT THE SAME TIME.
1.2

THE

CAPABILITY

TEST ROUTINES

TO

TO TEST UP TO 16 LINE

SYSTEM REQUIREMENTS
A TEST STATION IS REOCUIRED CONSISTING OF A PDP=11 CPU WITH A
MINIMUM OF 16K WORDS OF MEMORY AND A CONSOLE TERMINAL WITH

INTERFACE Al 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 KW11-L LINE
TIME

CLOCK OR A KW'1-P PROGRAMMABLE REAL-TIME

FOR MEASURING

THE

TIME

INTERVAL

CLOCK

IS NECESSARY

FROM WHICH PRINTING SPEED

DETERMINED. IF A CLOCK IS NOT INSTALLED IN THE SYSTEM,
OPERATOR WILL HAVE TO USE MANUAL MODE TO MANUALLY TIME

PRINTER OPERATION FOR A FIXED
PRINTING SPEED.

TIME

INTERVAL

THE

TO CALCULATE

IS

THE

IN A MANUFACTURING ENVIRONMENT WHERE APT/ACT/SLIDE ARE USED,

THE

TEST

STATION MUST BE

EQUIPPED WITH

AND A HOST PROCESSOFR WITH THE
1.3

RELATED DOCUMENTS AND

NECESSARY

THE

APPROPRIATE

SOF TWARE.

INTERFA(CE

STANDARDS

PROJECT PLAN FOR LP25 DIAGNOSTIC PROGRAM

DOCUMENT :

DATE :

RAS~78-008-00~-U

6-SEP-78

DIAGNOSTIC ENGINEERING FUNCTIONAL SPECIFICATION
FOR CZLPLAQ LP25 DIAGNQOSTIC PROGRAM (PREL IMINARY)
DATE:
29-SEP-78

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

DATAPRODUCTS 300 LPM LINE PRINTER FIELD MAINTENANCE
GUIDE (PRELIMINARY)
DATAPRODUCTS 300 LPM LINE PRINTER OPERATOR'S GUIDE
(PREL IMINARY)

1.4

DIAGNOSTIC HIERARCHY PREREQUISITES
THIS DIAGNOSTIC

COMPUTER FAMILY.

IS COMPATIBLE WITH ALL MEMBERS OF

THE DIAGNOSTIC

THE PDP-11

IS INTERFACED TO THE PDP-11

DIAGNOSTIC SUPERVISOR THROUGH WHICH IT
ENVIRONMENT
.

INTERFACES

TO THE

THE DIAGNOSTIC CAN BE USED IN A VARJETY OF OPERATING SYSTEMS
TO FULFILL DIFFERENT REQUIREMENTS. THE DIAGNOSTIC (AN BE

3

MACY11
CZLPLAQ LP25 DIAG
CZLPLA.P11
01-0CT7-79 09:25

30A(1052)

01-0CT-79

09:27

SEQ 0005

PAGE 2-2

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

DIAGNOSTIC MONITORS

LOADED USING

IN A MANUFACTURING

ENVIRONMENT, OR MANUALLY LOADED USING PAPER TAPE.

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

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 DEVICE ADDRESS OF

777514 WHICH CAN BE USED WHEN A SINGLE LINE PRINTER IS BEING
TESTED OR FOR THE FIRST UNIT WHEN MULTIPLE LINE PRINTERS ARE

UNDER TEST. IT WILL BE NECESSARY FOR THE OPERATOR TO RUN THE
LINE PRINTER OFF LINE IN THE SELF TEST MODE BEFORE RUNNING THE
DIAGNOSTI. IN ORDER TO DETERMINE WHETHER THE 64 OR 96 CHARACTER
BAND IS INSTALLED.
A PATCH

IS REQUIRED

IN

THE

DIAGNOSTIC

TO CIRCUMVENT AN

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

2.0

OPERATING

2.1

HOW TO RUN THIS DIAGNOSTIC

2.1.1

THE SIX STEPS OF

THIS

DIAGNOSTIC

PROCEDURES.
THE

wHEN

INSTRUCTIONS

DIAGNOSTIC

THE

SHOULD

HAS

START
THE

THIS DIAGNOSTIC

IS

EXECUTION
BE

LOADED

AND

STARTED

USING

NORMAL

COMMAND SHOULD NOT SPECIFY AN ADDRESS,

PROPER

TRANSFER

STARTED,

THE

ADDRESS

XxXDF

BECAUSE

CODED

INTO

IT.

FOLLOWING STEPS

WJILL

OCCUR:

(AS

[N EUROPE?

RARN
AT AARAL

*

STEP

1

»

AARNNRRARSN

A SHORT SERIES OF

"HARDCORE

QUESTION

L=CLK

(L)

N ?

P=lLK (L) N ?
S0HZ (L) N ?
LSl (L) N7

QUESTIONS'® WILL BE ASKED:
MEANING

IS THERE AN L-CLOCK?

"
" P=(LOCK?
IS
THE POWER 50 CYCLES
IS MACHINE AN LSI?

CZLPLAO LP25 DIAG
MACY11 30A(1052)
"ILPLA.P11
01-0CT=-79 09:25
LPT

(L) N ?

MEM
THE

DEFAULTS

01-0C"-79

(K)

(D)

09:27

P-CLOCK QUESTION WILL

SEQ 0006

IS THERE A LINE PRINTER?

16 ?

HOW MANY ~ OF

(SHOWN AFTER EACH QUESTION)

CARRIAGE RETURN.
IT
ASKED:
FOR EXAMPLE,

1

G

PAGE 2-3

MEMORY ARE

CAN BE

THERE?

SELECTED

BY

HITTING

IS POSSIBLE THAT NOT ALL OF THE QUESTIONS wilLl BE
IF YOJ SAY 'YES''
TO THE
L-CLOCK
QUESTION,
THE
NOT BE

ASKED.

LA 288l
RN

«

STEP 2

+

NN ARRNNAY

WHEN YOU HAVE

ISSUE

THE

ANSWERED ALL

PROMPT

THE

‘DS-B>'".

HARDCORE

QUESTIONS,

THE

DIAGNOSTIC WILL

FROM THIS POINT UNTIL THE TIME WHEN vOJ

RESTART XXDP. YOU WILL BE TALKING TO THE
DIAGNOSTIC,
NOT
XXDP,
WE
WILL
REFER
TO
THE
PRESENCE
OF
THIS PROMPT AS BEING IN DIAGNOSTIC
COMMAND MODE, AS OPPOSED TO XXDP COMMAND MODE.

AT THIS POINT YOU WILL ENTER A "'START'' COMMAND.
THIS IS NOT THE
SAME
AS
THE
XXDP ''START'' COMMAND, WHICH YOU ALREADY ISSUED IN RESPONSE TO
THE XXDP DOT PROMPT.
THIS
''START'' (OMMAND
(AN
TAKE
A NUMBER
OFf
SWITCHES
AND
FLAGS
(ALL
OPTIONAL) AND THE DETAILS OF THESE ARE SET
FORTH

USE

IN ‘2.3 DETAILS

THE PROGRAM,

ALL

OF

COMMANDS AND

YOU NEED TO SAY

SYNTAX''.

HOWEVER,

IS SOMETHING LIKE

IN

ORDER

10

(COMMAND AT

THE

THIS:

STA/PASS:1/F
LAGS :HOE
THINGS

TO NOTE

1.

ONLY

HERE:

THE

FIRST

THREE

2.

PASS

3.

(ONSISTS

1S

OF

SPECIFIED

RUNNING

(THIS wilLL

IN

THE

THE

ABOVE

BE

FULL

THE

MAIN USEFUL

L OE

ONES

LOOP ONE

HALT

IER

YOU

EXPLAINED

ARE:

DESIRE.

A

DIAGNOSTIC AGAINST ALL

EXAMPLE.

THE 'FLAGS'' SWITCH MAY SPECIFY ANY OF

HOE

SHORTLY).

A NUMRER OF

FLAGS,

ONE

BUT

ERROR

ON ERROR

INHIBIT ERROR PRINTOUT

THE HOE FLAG
SHORTLY)
.

*

THIS OR ANY

TYPED.

THE "PASS'' SWITCH SPECIFIES HOW MANY PASSES

PASS

UNITS BEING TESTED

AR

CHARACTERS OF

‘DS-B>"" LEVEL NEED TO BE

IS

SPECITIED

IN

THE

ABOVE

EXAMPLE

(WE'LL

SEE

WHY

RN ARNA

STEP 3 =

A28

2888

RN

WHEN YOU HAVE

TYPED

IN A "'START'' COMMAND,

THE

DIAGNOSTIC

WILL

C(OME

C2LPLAO LP25 DIAG
CILPLA.PY

MACY11

01-0(T=7% 09:25

30A(1052)

01-0C"-79

09:27

WITH

QUESTION

"%

BACK

TYPING

THE

iN THE NUMBER OF

A WORD OF

DEVICES

SEQ 0007

PAGE 2-4

UNITS?'"

TO WHICH YOU SHOULD RESPOND BY

YOU WISH TO TEST.

ON

THE

THE

NUMBER

OF

DETERMINED BY INSPECTING THE "HEADER'' STATEMENT NEAR THE BEGINNING

OF

DEVICE

OF

WARNING HERE:

H

THE NUMBER OF

THE DIAGNOSTIC.

AT A DISK DRIVE,

UNITS

FOR EXAMPLE,

THEN THE NUMBER OF

IF

UNITS

DEPENDS

TARGET

THE DIAGNOSTIC IS DIRECTED

WOULD

BE

DRIVES
T0 BE
TESTED.
WHEREAS IF THE DIAGNOSTIC WAS DIRECTED AT THE
DiSK CONTROLLER, THEN THE NUMBER OF
UNITS
WOULD
BE
THE
NUMBER
Of
CONTROLLERS.
THE
TARGET
DEVICE
OF
A
DIAGNOSTIC
CAN ALWAYS
BE
THE
SOURCE
CODE.
ONE
OF
SHOULD RE THE DEVICE TYPE OF
LA AR R

*
AR

AR

RS

STEP 4
RN

THIS 'HEADER'' STATEMENT

4

«

RNEN

WHEN YOU HAVE

TYPED

DIAGNOSTIC

WILL

$E£??BES“.

ONE

THESE

THE
OPERANDS OF
THE DJAGNOSTIC.

IN

ASK

QUESTIONS ARE

YOU

USED

THE

THE

NUMBER

TO BUILD

HARDWARE

OF

UNITS

TO

'HARDWARE QUESTIONS''.
TABLES

P-TABLE

IN

WILL BE E

CORE,

THIS

REPRESENTS

A

WILL

NEW

IN

STANDARD ADDRESSES.

PHILOSOPHY

THE

INFORMATION THEY NEED

IN

TESTED,

THE

THE ANSWERS TO

CALLED

'HARDWARE

ILT FOR EACH UNIT TO BE

THERE ARE SEVERAL HARDWARE QUESTIONS AND THE
ENTIRE
POSED N TIMES, WHERE N IS THE NUMBER OF UNITS.

DIAGNOSTICS

BE

SERIES

DIAGNOSTIC

WILL

BE

ENGINEERING.

FUTURE NOT BE WRITTEN TO AUTOSIZE OR ASSUME

INSTEAD,

TO TEST

THEY WILL

ASK

THE DEVICE.

THE

OPERATOR FOR

ALL

THE

ARRAARATYANR

* STEP 5

=

AN ANARRARAR

AFTER YOU HAVE

ANSWERED ALL

THE

HARDWARE

SOF TWARE

QUESTIONS FOR ALL

THE

UNITS,

YOU
WILL
BE
ASKED ''CHANGE SW?'' IF YOU WANT TO BE ASKED THE SOF TWARE
QUESTIONS THAT DETERMINE THE BEHAVIOR OF THIS PROGRAM, TYPE
'*¥'',
IF
YOU
WANT
TO
TAKE ALL THE DEFAULTS TO THESE QUESTIONS, TYPE 'N''.
IF
YOU TYPE "Y'’ YOU WILL BE ASKED THE SOF TWARE QUESTIONS, AND THE ANSWERS
WILL
BE
PUT INTO THE SOFTWARE P-TABLE IN THE PROGRAM.
THE SERIES OF
?8Eggl?g§7géLL BE ASKED JUST ONCE, REGARDLESS OF THE NUMBER
OF
UNITS

AR ARAN S AN

*

STEP 6

*

AR
AR AR

AFTER

YOU HAVE

ANSWERED

THAT

CAN HAPPEN

NEXT,

BEGIN

TO

EXECUTE

THE

THE

HARDWARE

DEPENDING

QUESTIONS,

TEST
ON

(CODf.

wHETHER

ENCOUNTERED
AND
ALSO ON WHAT SWITCH VALUES
(OFYWAND.
(ONSIDER THE POSSIBILITIES:

THE

DIAGNOSTIC

THERE ARE
A

SEVERAL

HARDWARE

WILL

THINGS

ERROR

YOU SELECTED ON THE

[S

START

MACY11
CZLPLAQ LP25 DIAG
C2LPLA.P11
01-0C7-79 09:25

30A(7052)

1.

IF

01-0CT-79

NO ERROR

SEQ 0008

PAGE 2-5

IS ENCOUNTERED,

EXECUTE
THE
DESIRED
MODE (PROMPT DS-B>).

2.

I

09:27

THEN THE DJAGNOSTIC

WILL

SIMPLY

NUMBER OF PASSES AND RETURN TO (OMMAND

IF AN FRROR IS ENCOUNTERED, THEN ONE OF THREE THINGS HAPPENS,
DEPENDING ON THE SETTINGS OF THE HOE AND LOE FLAGS.
HOE

SET:

LOE

SET:

THE ERROR WILL BE REPORTED ON THE CONSOLE AND
THE DIAGNOSTIC WILL RETURN TO COMMAND MODE.

THE DIAGNOSTIC WILL LOOP ENLESSLY ON THE BLOCK
Of CODE THAT DETECTED THE ERROR.

NEITHER HOE NOR LOE

SET:

THE

IN A

REAL

ERROR WILL BE REPORTED ON

THE CONSOLE AND NORMAL EXECUTION WILL
AS IF NO ERROR HAD OCCURED.

RESUME

2.1.2 SAMPLE RUN-THROUGH
LET'S SEE HOW ALL

ENTERED
TYP]JCAL

THE

WAY

THIS WORKS

COMMAND

TQ RUN

géi}l(SEEEEDREQU[STED
UED.

THE

SITUATION.

‘'STA/PASS:1/FLAGS:HOE''.

PASS

DIAGNOSTIC.

WILL

BE

1F

NO ERRORS

EXECUTED

AND

THIS

ARE

THE

RECALL

THAT

WE

WOULD BE A VERY

ENCOUNTERED,

PROMPT

THE

WILL BE

IF AN ERROR 1S ENCOUNTERED, THE ERROR WILL BE REPORTED AND THE
PROMPT
WwILL
BE
REISSUED (BECAUSE THE HOE FLAG IS SET).
AT THIS POINT THERE
ARE FOUR DIFFFRENT WAYS YOU CAN GET THE PROGRAM GOING AGAIN.
1.

2.
3.

ISSUE ANOTHER ''START'' COMMAND

2.

3. 4.

5., AND 6 AGAIN)

ISSUE A 'RESTART'' COMMAND

THE

HARDWARE

(SAME AS START COMMAND EXCEPT
NOT ASKFD)

THAT

ISSUE A "PROCEED'' COMMAND:
EXECUTION
WILL
RESUME
AT
THE
INSTRUCTION
FOLLOWING
THE
ERROR
REPORT (THIS IS A SPECIAL
COMMAND AND CAN BE ISSUED ONLY AT A HALT ON ERROR).

PRO/FLAGS:]ER:LO
:HOE-0
E

WILL

STEPS

NO QUESTIONS ASKED.

THE MOST TYPICAL THING TO DO HERE IS TO ISSUE THE
DIFFERENT FLAG SETTINGS.
PROBABLY YOU WOULD WANT

THIS

OF

ISSUE A ''CONTINUE'' COMMAND
(EXECUTION
WILL
RESUME
AT
THE
BEGINNING
OF
THE PARTICULAR HARDWARE TEST (MOST DIAGNOSTICS
CONSIST OF A NUMBER OF THESE) THAT IT WAS IN WHEN
THE
ERROR
HALT OCCURED.

4.

QUESTIONS ARE

(THUS GOING THRU ALL

DO

THE

FOLLOWING:

PROCEED,
TO SAY

BUT

WITH

MACY11
CZLPLAD LP2S DIAG
C2LPLA.PI1
01-0CT-79 09:25

30A(1052)

01-0CT-79
JER

09:27

1.

TURN ON THE

2.

TURN ON THE LOE FLAG

3.

TURN OFF

4.

RESUME

J

3

SEQ 0009

PAGE 2-6

(INHIBIT ERROR PRINTOUT)

FLAG

THE HOE FLAG

EXECUTION AT

INSTRUCTION AFTER ERROR REPORT

THE DIAGNOSTIC WILL NOW LOOP ON THE BLOCK OF CODE
REPORTED
THE
ERROR,
BUT NO ERROR PRINTOUT WILL

THAT
OCCUR.

DETECTED
AND
THUS YOU CAN

STUDY THE ERROR OR SCOPE

IT OR WHATEVER.

WHEN YOU'VE SEEN ENOUGH,
OUT
OF
THE
LOOP
AND

YOU MAY HIT CONTROL/C.
THIS
WILL
TAKE
YOU
PUT YOU BACK INTO COMMAND MODE.
YOU NOW HAVE

THREE

CHOICES:

1.

START

2.

RESTART

3.

CONTINUE

LET'S SAY YOU'VE REPAIRED
RUNNING

THE

DIAGNOSTIC.

THE DEFECT FOUND ABOVE AND

YO WOULD

TYPE

WANT

TO

FINISH

AND

RESUME

CON/FLAGS
:HOE : JER=0:LOE-0
THIS WILL

RESTORE

THE

FLAGS

TO

THEIR

ORIGINAL

VALUES

EXECUTION
AT
THE BEGINNING OF THE HARDWARE TEST YOU WERE IN.
ERROR DOES NOT RECUR, THE EXECUTION WILL FLOW RIGHT
ON
THRU

NEXT

ERROR OR

IFO?EEEND OF

PASS.

PASS YOU WANT TO RUN THE DIAGNOSTIC AGAIN,

:

CH

TO END OF

1.

START

2.

RESTART

YOU WOULD CHOOSE ONE, DEPENDING ON WHETHER
HARDWARE QUESTIONS AGAIN.

YOU WANTED

THE

MIGHT

FULL

PRINT=-QUT

FROM

IF
TO

THE

ABOVE

DIALOGUE

LOOK

YOU

THE
THE

HAVE

TwO

TO

ANSWER

THE

LIKE

THIS:

BY

WHOM

R CZLPLA

CZLPLA
L=CLK (L) N2
SOHZ (L) N ?
LSI (L) N ?

LPT

MEM

(L) N ?
(K)

(D.

16

SNTFRED:
D
0.0
D
D

Y

?

D
D

CZLPLAO LP25 DIAG
MACY11 30A(1052)
CZLPLA.P11
01-0CT1-79 09:25

01-0C7-79

1

K

09:27

PAGE 2-7

SEQ 0010

DS-B>STA/PASS:1/FLAGS :HCE

0.0

# UNITS

0.0

(D)

21

UNIT 1

D

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

D
D

CHANGE SW (L)

0.0

? Y

RUN MANUAL INTERVENTION TESTS (L) ? Y
96 CHARACTER BAND (L) ? N
CAVFU OPTION INSTALLED (L) N ?
PERFORM MANUAL PRINTING SPEED MEASUREMENT

DESIRED TIME

0.0
(L)

N ? Y

INTERVAL FOR PRINTING SPEED CALCULATION (D)

TESTING IN U.S.A.

(L)

D
D,0
D

4 ?

? Y

LP25 HRD ERR
00009 TST 004 SuB 000 PC: 003604
ERROR AT CSR 177514 UNIT
1

D
D

DS-B>PRO/FLAGS: IER: LOE : HOE=0

D

ERR HLT

D

L340 832003d0d0 030 200d0R2d0032282308200¢82¢80R2222202¢2222222/

AT

THIS POINT

THE

DIAGNOSTIC

IS LOOPING ON THE

ERROR WITHOUT PRINTING ANYTHING.
THE

ERROR UNTIL

1822220228000

YOU HAVE

LOCATED

YOU CAN SCOPE

IT,

THEN “C

OUT.

dd0d0 022 dfd00R2dtdRR0020R2aR2SRR
SRR

OOV OO0O

*C

DS-B>CON/FLAGS :HOE : IER:LOE=0
CHANGE SW (L) ? N
CILPLA EOP 1
DS-B>RESTART/PASS:1
CHANGE SW (L) ? N

2.2

HOW TO CREATE A (HAINABLE FILE

THE

DIAGNOSTIC AS RECEIVED FROM RELEASE

CHAIN MODE.

T&EJR\E/EI(S;OIT\ WAY,
YOU'
.

HOWEVER,

TO

CREATE

IT CONSISTS OF RUNNING THE PROGRAM

ISSUED
DS-8>.

A

CHAINABLE

RUN

IN

WITH

THE

PROGRAM

SPECIAL

FROM

COMMAND

WHAT

‘'‘CCI'’

WHERE
YOU WOULD NORMALLY ISSUE A START COMMAND (TO THE PROMPT
THIS
COMMAND
C(AUSES
THE
DIAGNOSTIC
TO
GO
THRU
ALL
THE

QUESTIONS AND ANSWERS AND THEM

10 HALT,

EHEENE?&‘GRAQICAS

C(ORE

BEGIN EXECUTION OF
X

ENGINEERING CANNOT BE

THAT IS WHY IT BEARS THE EXTENSION 'BIN'' INSTEAD OF ‘BIC''.

L]

li'

THE HARDWARE

IT

SITS

IN

JUST WHERE

TEST CODE.

'O THE

IT WOULD ORDINARILY

AT THIS POINT YOU CAN DUMP
LOAD MEDIUM,

WITH THE NEW

CZLPLAQ LP25 DIAG
MACY11
CZLPLA.P1T
01-0CT-79 09:25

30A(1052)

HERE

01-0CT-79

IS A SAMPLE DIALOGUE

.R UPD2

RESTART:
*CLR

09:27

L

SEQ 0011

PAGE 2-8

TO ACCOMF_ISH THIS:

XXXXXX

*L0OAD D]AG.BIN

XFER:200
CORE:0,60602
*START 200
L=CLK (L) N ?

DS-B>(CC(I

# UNITS

(D)

? 4

CHANGE SW (L) ? N
PTAB END:
60632
12082884303223
F2 202022800t
2R2RR22E2]]

*AT THIS POINT THE MACHINE HALTS AND*
*YOU MUST RESTART AT ADDRESS
XXXXXX*
1382228822822

28028000030200002

80 R

00

S

*HICORE 60632
CORE:
0,60632
*DUMP DKO: DJAG.BIC
THE

RESULT OF

DOING THIS

1S

CONTAINING THE XXDP COMMAND

THAT

YOU CAN NOW BUILD AN XXDP CHAIN

FILE

-R DIAG.BIC
AND THE DIAGNOSTIC WILL EXECUTE WITHOUT MANUAL INTERVENTION,
ANSWERS THAT YOU GAVE IT WHEN YOU DID THE CCI COMMAND.

2.3

DETAILS OF

2.3.1

TABLE OF COMMAND VALIDITY

THERE

ARE

SUBSETS OF

COMMANDS AND SYNTAX

FOUR WAYS OF

ENTERING DIAGNOSTIC

COMMAND MODE,

AND DIFFERENT

THE DIAG COMMAND SET ARE AVAILABLE WITH EACH:

HOW ENTERED

1.

OPERATOR ENTERED

LEGAL

'RUN DIAG'

COMMANDS

START
PRINT
DISPLAY
FLAGS

ZFLAGS

2.

USING THE

DIAGNOSTIC HAS FINISHED ALL
ITS REQUESTED PASSES

START
RESTART
PRINT

MACY11
CZLPLAO LP25 DIAG
CZLPLA.P11
01-0CT-79 09:25

30A(1052)

01-0CT-79

09:27

1

M

PAGE 2-9

SEQ 0012
DISPLAY
FLAGS

ZFLAGS

3.

OPERATOR INTERRUPTED THE
DIAGNOSTIC WITH CTRL/C

START
RESTART
CONTINUE

PRINT
DISPLAY
FLAGS

ZFLAGS

4.

AN ERROR WAS ENCOUNTERED
WITH THE HOE FLAG SET SET

START
RESTART

GONT INUE

PROCEED
PRINT

DISPLAY
FLAGS

ZFLAGS

2.3.2 COMMAND SYNTAX
| 2228242283320

200

80200023802 R2R022222222223222222
3228202232

STA(RT)/TESTS:TEST=LIST/PASS :PASS~CNT/FLAGS :FLAG~LIST/EOP:EOP-INCR
AAANAANARAARAARARN AR A AN A R AAARAARANARRAARRAARAARRAAARARNNARRANRANNRRANRAR

THE

DIAGNOSTIC

SPECIFIED.

IN CORE

IS EXECUTED IN

ACCORDANCE

THE MESSAGE '# UNITS?'' IS PRINTED.

WITH

THE

SWITCHES

THE START COMMAND MAY

BE ISSUED WHEN DIAGNOSTIC COMMAND MODE HAS BEEN ENTERED VIA ONE OF THE
FOLLOWING:
A)
OPERATOR TYPED 'RUN DIAGNOSTIC'' B) DIAGNOSTIC FINISHED
EXECUTING C) ERROR WAS ENCOUNTERED
WITH HOE
FLAG
SET
D)
OPERATOR
ENTERED CONTROL/C.

AFTER THE OPERATOR RESPONDS TO ‘# UNITS?'',

INITIATED.

WHEN

IT

IS

ISSUED, AND THE ANSWERS,

COMPLETED,

THE

THE

HARDWARE

QUESTIONS

DIALOGUE

IS

‘'CHANGE SW?'' IS

IF GIVEN, BECOME THE NEW DEFAULTS.

THEREFORE

II)gFAlIJETSNECESSARY TO RELOAD THE PROGRAM IN ORDER TO RETURN TO THE LOAD
THE

SWITCH ARGUMENTS ARE AS

FOLLOWS:

"TEST-LIST'' IS A SEQUENCE OF DECIMAL NUMBERS (1:2 ETC.) OR
RANGES
OF
DECIMAL NUMBERS (1-5:8-10 ETC.) THAT SPECIFY THE TESTS TO BE EXECUTED.
THE NUMBERS ARE SEPARATED BY COLONS.
THE NUMBERS RANGE FROM 1 TO
THE
LARGEST
TEST
NUMBER IN THE DIAGNOSTIC.
THEY MAY BE SPECIFIED IN ANY
ORDER.
TESTS WILL BE EXECUTED IN NUMERICAL ORDER REGARDLESS
ORDER OF SPECIFICATION.
THE DEFAULT IS TO EXEC''TE ALL TESTS.
"PASS-CNT'' ISA

DECIMAL

NUMBER

INDICATING

THE

DESIRED

OF

NUMBER

THE

OF

PASSES.
A
PASS
IS
DEFINED AS THE EXECUTION OF THE FULL DIAGNOSTIC
(ALL SELECTED TESTS) AGAINST ALL
UNITS
SUMBITTED.
THE
DEFAULT
IS

NON-ENDING

EXECUTION.

MACY11
CZLPLAO LP25 DIAG
CZLPLA.P11
01-0C7-79 09:25

30A(1052)

01-0CT-79

N1

09:27

PAGE 2-10

SEQ 0013

"FLAG-LIST'' IS A SEQUENCE OF ELEMENTS OF THE
FORM <FLAG>, <FLAG=1>, OR <FLAG=0>, SEPARATED BY (OLONS, WHERE
HAS ONE OF THE FOLLOWING VALUES:

HOE

HALT ON ERROR, CAUSING COMMAND MODE TO BE

ENTERED

<FLAG>

WHEN

AN

ERROR IS ENCOUNTERED
LOOP ON ERROR, CAUSING THE DIAGNOSTIC TO LOOP
CONTINUOUSLY
WITHIN
THE
SMALLEST
DEFINED
BLOCK
OF
CODING
(SEGMENT,
SUBTEST, OR TEST) CONTAINING THE ERROR
INHIBIT ERRJR REPORTING
INHIBIT BASIC ERROR REPORTS
INHIBIT EXTENDED ERROR REPORTS

LOE
IER
IBE
IXE

PR]
PNT
BOE

DIRECT ALL MESSAGES TO A LINE PRINTER
PRINT NUMBER OF TEST BEING EXECUTED
BELL ON ERROR

ISR
IDU

INHIBIT STATISTICAL REPORTS
INHIBIT DROPPING OF UNITS BY DIAGNOSTIC

UAM

RUN IN UNATTENDED MODE, BYPASSING MANUAL INTERVENTION TESTS

THE FLAGS NAMED OR EQUATED TO1 ARE
SET,
CLEARED.
A FLAG NOT SPECIFIED IS CLEARED.
GIVEN ALL FLAGS ARE CLEARED.

THOSE
EQUATED
TO
O
ARE
IF THE FLAGS SWITCH IS NOT

"EOP-INCR'' IS A DECIMAL NUMBER

HOW

PASSES)

DEFAULT

IT

IS AT

1228224220022

IS

DESIRED

THE END OF

dd0

THAT

INDICATING

THE

END OF

EVERY PASS.

0222322322020

0002

OFTEN

PASS MESSAGE BE

(IN

TERMS

PRINTED.

OF

THE

R300R 22223323320032300022000802¢c000ZR2RRRRRRERRDNS2
D]

RES(TART) /TEST:TEST-LIST/PASS :PASS~CNT/FLAGS:FLAG~-LIST/EOP:EOP=-INCR/UNITS:UNIT~LIST
L3232

R0dRR2d2

0002

280222200

THE

DJAGNOSTIC

IN CORE

THE

SWITCH ARGUMENTS ARE AS

2008

IS EXECUTED

IN

0000800

R0

ACCORDANCE

Rt

R

WITH

AR

0 R2R0dd3020cddf0RdRdRRRd

THE

SWITCHES

SPECIFIED.
HOWEVER, NEW P-TABLES ARE NOT BUILT.
INSTEAD, THE ONES IN
CORE ARE USED.
THE QUESTION “'CHANGE SW?'' IS ASKED,AND THE ANSWERS IF GIVEN BECOME THE
NEW
DEFAULTS.
THE
COMMAND
MAY BE ISSUED WHEN COMMAND MODE HAS BEEN
ENTERED VIA A) DIAGNOSTIC IS FINISHED B) HALT ON ERROR C) CONTROL/C.

1.

IN THE

START

"UNIT=LIST'' IS A SEQUENCE OF

COMMAND EXCEPT:

LOGICAL

UNIT

NUMBERS

RANGING

FROM
1
THRU N (N = NUMBER OF UNITS BEING TESTED) SPECIFYING
WHICH UNITS ARE
TO
BE
TESTED.
THE
LOGICAL
UNIT
NUMBER
DESIGNATES
THE POSITION OF THE P-TABLE IN CORE, ACCORDING TO
THE ORDER IN WHICH THEY WERE BUILT.
THE UNITS SPECIFIED MUST
NOT
HAVE
BEEN
DROPPED
BY
THE OPERATOR DROP COMMAND.
THE

UNIT-LIST DEFAULTS TO “ALL THAT HAVE
NOT BEEN DROPPED BY
OPERATOR
COMMAND''.
THE EFFECT OF THE UNIT-LIST LASTS UNTIL
THE NEXT START

(WHERE

THE NEXT RESTART.

2.

IT IS AUTOMATICALLY RESET TO "ALL')

ALL UNSPECIFIED FLAG SETTINGS ARE UNCHANGED.

OR

)

MACY11
CZLPLAO LP25 DIAG
01-0CT-79 09:25
CZLPLA.P1

[ 2E32

3CA(1052)

01-0(T-79

09:27

B 2
PAGE 2-11

2222222222822 22220222R2dd22RidRllll

SEQ 0014

]

CON(TINUE) /PASS : <PASS~CNT/FLAGS
: <FLAG=LIST>
2238232222220
222822 232222022222 0RRdlsddd]

COMMAND MODE MUST HAVE BEEN ENTERED DUE
TO
A
HALT
ON
ERROR
OR
A
CONTROL/C.
THE EFFECT OF THE COMMAND IS TO GO TC THE BEGINNING OF THE
TEST THAT WAS BEING EXECUTED WHEN THE HALT OR
(CONTROL/C
TOOK
PLACE.
SOF TWARE
DIALOGUE
MAY OPTIONALLY BE REEXECUTED.
HARDWARE PARAMETERS

MAY NOT BE
THE

CHANGED.

SWITCH ARGUMENTS ARE

AS

IN

IS

START

DEFAULT

2.

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

START OR RESTART

THE

COMMAND EXCEPT:

1.

PREVIOUS

FOR PASS-CNT

THE

UNSATISFIED

PASS-CNT

FROM

THE

LAAS SRS RARARRRRRRRRd
Al

PRO(CEED)
/FLAGS : <FLAG=LIST>
L2220

RSRRaRRdRd

Rl

])

COMMAND MODE MUST HAVE SEEN ENTERED VIA A HALT ON ERROR.
THE
EFFECT
OF
THE
COMMAND
IS
TO BEGIN EXECUTION AT THE LOCATION FOLLOWING THE
ERROR CALL.
NEITHER HARDWARE NOR SOF TWARE PARAMETERS MAY BE ALTERED.
THE

SWITCH ARGUMENTS ARE

1.

THE

SAME AS

THE

START

(COMMAND EXCEPT:

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

ARR AN RRANA AR RAARAANRNRARARARAARARARAANRANARAAARNRARAARNARA
AN AR AR NN

CCI/TEST:TEST=LIST/PASS:PASS=CNT/FLAGS :FLAG=LIST/EOP:EOP=INCR
LA 22042040

RRRdR2dRRRRRRRR2REARARRRARRRRRRRRRRRRRRE

S

THE DIJAGNOSTIC EXECUTES THRU ALL OPERATOR DIALOGUE AND
HALTS
AT
HARDWARE
TEST
(ODE.
NOW THE OPERATOR (AN DUMP THE (ORE IMAGE TO
MEDIUM WITH A BIUC EXTENSION.

THE
THE

CZLPLAQ LP2S DIAG
MACY11
C2LPLA.P1T
01-0CT=79 09:25

30A(1052)

01-0(T-79

09:27

PAGE 3

C

SEQ 0015

THE BIC FILE MUST BE HANDLED DJFFERENTLY DEPENDING ON
WHETHER
IT
IS
RUN
MANUALLY
OR
IN
C(HAIN
MODE.
IF RUN MANUALLY IT CAN BE INVOKED

EITHER WITH A ''START'' (IN WHICH CASE IT WILL BEHAVE LIKE THE BIN FILE:

THE
PRE~GENERATED
ANSWERS
TO OPERATOR QUESTIONS WILL BE [GNORED) OR
U{TH SE.REEB?RT” (IN WHICH CASE
THE
PRE-GENERATED
OPERATOR
ANSWERS
wiLL

v

.

IF RUN IN CHAIN MODE, AUTOMATIC EXECUTION WILL
COMMENCE
IMMEDIATELY
FROM ST?S XXDP COMMAND ‘‘.R DIAG''.
THE COMMAND PROMPT 'DS-B>'" WILL NOT

Bt

ISSUED.

ANY SWITCHES SPECIFIED ON THE
FILE
WILL

IS
NOT

CCI

COMMAND WILL

CARRY OVER WHEN THE BIC

RUN
IN CHAIN MODE (EXCEPT THAT UAM IS ALWAYS
CARRY OVER WHEN IT IS RUN MANUALLY.

SET

THERE)

BUT

TO DO A CCl] ON A FULL SIZED DIAGNOSTIC (14.5K WORDS), A
MACHI'E
SIZE
LARGER
THAN
16K IS REQUIRED.
THE EXACT SIZE NEEDED DEPENDS ON WHICH
UTILITY IS USED TC EXECUTE THE DIAGNOSTIC AT CCI TIME.
FPRAAANARRAARARAANA
RN AN AN

DRO(P) /UNITS:UNIT=LIST
ARRRARNRRARNAAA
AN AR AN NS

THIS

COMMAND

IS NOT UTILIZED

IN

THIS

DIAGNOSTIC.

IN

THIS

DJAGNOSTIC.

(2222228222022
2R

ADD/UNITS:UNIT-LIST
L2222 2222020230
d RS

THIS

COMMAND

L2288

444

IS NOT

UTILIZED

PRI(NT)
ANRRP
AR

THIS

COMMAND

IS NOT UTILIZED

IN THIS DIAGNOSTIC.

NERARARRRRAAARNA gAY

)
<UNIT-LIST>
PLAY
/UNITS:
DIS(
(A8t

RRdRRARRR2R

2R

S

THE HARDWARE P-TASLES FOR ALL UNITS UNDER
FORMAT IN WHICH THEY WERE ENTERED.

TEST

OPERATOR "DROP'' COMMAND ARE SO DESIGNATED.
AR

FLA(GS)
L8228

THE

244

CURRENT

AARRR

AN

ZFL (AGS)

L24842231

.

SETTINGS OF

ALL

FLAGS ARE

PRINTED.

ARE

PRINTED OUT

IN

THE

MACY11
CZLPLAO LP25 DIAG
CZLPLA.P1?
01-0CT-79 09:25

30A(1052)

ALL FLAGS ARE

2.4

01-0C"-79

09:27

D

2

PAGE 3-1

SEQ 0016

CLEARED.

EXTENDED P-TABLE DIALOGUE

THE FULL CAPABILITY OF
FOLLOWING DISCUSSION OF

THE
HARDWARE
DIJALOGUE
WHAT HAPPENS INTERNALLY.

AS SOON AS THE QUESTION ‘4 UNITS?'' IS ANSWERED

1S

REVEALED

(WITH

THE

BY

NUMBER

THE

N,

SAY)
SPACE
IN (CORE IS ALLOCATED FOR N P-TABLES.
ALL OF THE P-TABLES
ARE CGF THE SAME FCRMAT,
AND
THERE
IS
A
ONE-TO-ONE
CORRESPONDENCE
BETWEEN
THE HARDWARE PARAMETER QUESTIONS AND THE SLOTS IN THE P-TABLE
FORMAT
.

ON THE FIRST TRIP THRU THE QUESTIONS, ALL OF
P-TABLES

ARE

FILLED.

IF

THE SLOTS IN ALL

THE OPERATOR TYPES

IN LESS

OF

THE

THAN N EXPLICIT

VALUES IN RESPONSE TO A PARTICULAR QUESTION, THESE VALUES
ARE
PLACED
IN
THE P-TABLES (ONE VALUE GOING INTO THE PROPER SLOT OF EACH P-TABLE
?EGAN@%?S WITH THE FIRST P-TABLE)
UNTIL
THE
STRING
OF
VALUES
IS
XHAU

.

ON SUBSEQUENT TRIPS THRU THE QUESTIONS, THE SAME
PROCESS
IS
CARRIED
OUT, EXCEPT THAT THE EARLIEST P-TABLE NOT TO HAVE RECEIVED AN EXPLICIT
VALUE IN ANY OF ITS SLOTS NOW AoSUMES THE ROLE THAT TABLE
NUMBER
ONE
PLAYED

IN

THE

FIRST

TRIP.

THE SERIES OF QUESTIONS IS REISSUED UNTIL AT LEAST
RECEIVED N EXPLICIT VALUES FROM THE OPERATOR.

ONE

QUESTION

HAS

IN GIVING A STRING OF VALUES, COMMAS WITHOUT INTERVENING VALUES MAY BE
USED TO INDICATE A REPETITION OF THE LAST NAMED VALUE.
A STRING OF

VALUES MAY BE GIVEN AS A RANGE

VALUES
REPRESENT
PURE NUMERICAL DATA,
THE STRING
6,7,8,9,10
(AN
INCREMENT

ADDRESSES,
THE
INCREMENT OF 2).

SAMPLE

RANGE

NOW LET US SEE HOW WE COULD USE

OF P-TABLES.

TRANSLATES

THESE

FOLLOWING DIALOGUE

» ??1¥S
UN

(D)

TO

THE

IF

STRING 6,8,10 (AN

CAPABILITIES TO CONSTRUCT A

SLOTS

WOULD ACCOMPLISH

THIS

IN

THE

TRANLATES TO
VALUES
ARE

ASSUME THAT WE HAVE & LP25'S, AND THAT THERE ARE TWO

HARDWARE PARAMETERS FOR
EACH
(TWO
HARDWARE QUESTIONS IN THE DIALOGUE).
THE

(6-10 FOR EXAMPLE).

THIS SAMPLE RANGE
OF
1).
IF
THE

THE P-TABLE,

SET

TWO

GOAL:

2 4

LP11 ADDRESS: (0)
INTERRUPT VECTOR:
THE DIALOGUF IS
FXPLICIT
VALUES

? 177514, 177520, 177524,
(0) ? 200, 210, 220, 230

177539

TERMINATED
WHEN
THE
SCFTWARE
RECOGNIZES
THAT
HAVE
BEEN
GIVEN
FOR
AT LEAST ONE QUESTION.

4

MACY11
CZLPLAQ LP25 DIAG
CZLPLA.P1T
01-0CT=-79 (09:2S

30A(1052)

01=-C(T=-79

09:27

E

SEQ 0017

PAGE 3-2

3.0 ERROR INFORMAT]ON

ERRORS ARE REPORTED ON THE CONSOLE TERMINAL WHEN AN ERROR IS DETECTED
THE NATURE OF

THE DEVICE ADDRESS OF THE FAILING UNIT AND
THE ERROR IS GIVEN IN THE ERROR MESSAGE. OTHER

ADDRESS WHERE

THE

BY THE DIAGNOSTIC.

INFORMATION INCLUDED ARE THE TEST NUMBER AND THE PROGRAM (OUNTER

THE

ERROR OCCURRED.

ERROR MESSAGES AID

IN

IDENTIFYING

LIST PROVIDES A BRIEF DESCRIPTION OF
ERROR
1

THE

PROBLEM.

EACH OF

THE

FOLLOWING

THF ERRORS.

DESCRIPTION
"PRINTER ERROR''

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

PRINTER NOT READY

TO ACCEPT

"PRINTER DID NOT

INTERRUPT"'

FAILURE

IN

INTERFACE

DATA.

LOGIC.

"LOADING PRINTER BUFFER DOES NOT CLEAR READY''
FAILURE

IN

"PRINTER

LOGIC.

INTERRUPTED AT

PROCESSOR'’
FAILURE

INTERFACE

IN

INTERFACE

SAME

LEVEL

AS

THE

LOGIC.

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

PRINTER NOT READY

TO ACCEPT

DATA,

"PAPER LOW INTERLOCK SWITCH FAILURE"'
FAULTY

INTERLOCK

SWITCH.

"HAMMER BANK INTERLOCK SWITCH FAILURE"'
FAULTY

10

I

INTERLOCK

SWITCH.

"'CHARACTER BAND INTERLOCK SWITCH FAILURE"’
FAULTY

INTERLOCK

SWITCH.

"DAVFU INCOMPLETE DATA ERROR NOT DETECTED''

DAVF) FAILED TO RECOGNIZE RECEIPT OF
INCOMPLETE DATA.

‘DAVFU STOP CODE ERROR NOT DETECTED''
DAVFJ FAILED TO RECOGNIZE RECEIPT OF
DATA THAT DID NOT INCLUDE A STCP BIT
(ONE)

CHARACTER.

"INTERRUPT SERVICING FOR THE FOLLOWING
DEVICE DID NOT OCCUR"’

F

MACY11
CZLPLAO LP25 DIAG
CZLPLA.P11
01-0CT-79 09:25

30A(1052)

01-0("-79

09:27

SEQ 0018

PAGE 3-3

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

"PRINTER STATUS ERROR''

GLOBAL ERROR INDICATING PRINTER ERROR
CONDITION.

15

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

4.0 PERFORMANCE

AND PROGRESS REPORTS

PERFORMANCE

AND PROGRESS REPORTS ARE

5.0 DEVICE

INFORMATION TABLES

DEVICE

INFORMATION APPEARS

6.0 TEST

TEST

2

LINE

INTERLOCKS

VERIFIES OPERATION OF

THE READY

VERIFIES ALL

POSITIONS OF

PAPER MOVEMENT.

TEST

4

IN THE GLOBAL DATA SECTICN.

INTERFACE LOGIC BETWEEN THE PRINTER AND

TEST
3
FORMS LENGTH SELECTION

PRINTING

SUPPLIED.

SUMMARIES

TEST 1
iNTERFACE LOGIC
VERIFIES OPERATION OF
READY

NOT

THE

FORM LENGTH SELECT

RFECEIPT OF

THE PRINTING

DATA NOT

INCLUDING A STOP BIT

(ONE)

TIME

(CHARACTER.

6

DAVFU LINE COUNT PAPER CONTROL
VERIFIES LINE COUNT METHOD OF PAPER (ONTROL

TEST

SWITCH FOR PROPER

SPEED MEASUREMENT

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

7

(PJ.

INTERLOCK SWITCHES.

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

2.

THE

DAVFU CHANNEL

SELECTION PAPER C(ONTRO.

USING THE DAVFU,

INTERVAL

CZLPLAO LP25 DIAG
CZLPLA.P1

MACY11 30A(1052)

01-0CT-79

01-0CT=79 09:25

09:27

6

PAGE 3-4

(HECKS DAVFU PAPER ADVANCE BY MEANS OF

¢

SEQ 0019

STOP BITS LOADED IN

DAVFU MEMORY.

TEST
8
DATA TRANSFER PATHS

CHECKS THE DATA TRANSFER PATHS FROM THE PRINTER QUTPUT
THE

PROCESSOR

TEST
9
PRINTABLE

INTERFACE.

CHARACTERS

CHECKS FOR PROPER PRINTING OF ALL PRINTABLE

CHARA(CTERS.

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

TEST 1N
BAND PATTERN
PRODUCES AN

TEST

IMAGE

OF

THE

(HARACTERS.

ENTIRE BAND PATTERN.

12

SPURIOUS HAMMER F IRING
CHECKS FOR SPURIOUS HAMMER FIRINGS BY

PRINTING

THAT MAY

OCCUR OUTSIDE

TEST 13
PRINT CONTROL

CHECKS THAT (HARACTERS

ARE

TO

DJSREGARDED.

TEST 14
CRITICAL

TAKING NOTE OF

A WEDGE

IN EXCESS OF

PATTERN.

ANY

132 CHARACTERS ON A LINE

PATH

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

LINE

ADVANCE

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

CZLPLAO LP25 DIAGNOSTIC( MACY11
(ZLPLA.PTT

1021
1002
1023
1024
1025
1026
1027
1028

01-0CT7-79 09:25

30A(1052)

01-0CT-79

09:27

H

SEQ 0020

PAGE 3-5

LTITLE

C2LPLAO LP25 DIAGNOSTIC

.SBTTL

IDENTIFICATION

-ENABL AMA

;

PRODUCT CODE
:

AC-E636A-M(

PRODUCT NAME:

CZLPLAV LP25 DIAG

SMALL SYSTEMS DIAGNOSTICS

: MAINTAINER.

AUTHORS .

;

JOHN CHATAL IAN

DONALD RICE
RALPH SCHAUBER

DATE

.

27=SEP=79

;COPYRIGHT (() 1979
;DIGITAL EQUIPMENT CORPORATION, MAYNARD MASSACHUSSETTS 01754

: THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON
;
;

A

SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE.
THIS
SOFTWARE,
OR
ANY

; GTHER (OPIES
THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE
; AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM
; AND
TO ONE WHO AGREES TO THESE LICENSE TERMS.
TITLE TO AND
OWNERSHIP OF

THE

SOFTWARE SHALL AT ALL

TIMES REMAIN IN DEC.

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT 8Y DIG!TAL

EQUIPMENT CORPORATION.

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

Of

CZLPLAO LP25 DIAGNOSTIC MACY11
CZLPLA.P11
01-0CT=-79 09:¢5

30A(1052)

01-0CT-79 09:27
IDENTIFICATION

PAGE 4

I

2

SEQ 0021

+¢

* FUNCTIONAL DESCRIPTION
THIS DIAGNOSTIC PROGRAM VERIF]ES PROPER OPERATION OF THE LP25 LINE PRINTER
AND [TS ASSOCIATED M7258 CONTROL UNIT WHICH IS INTERFACED TO A PDP-11 (PU.
THE

DIAGNOSTIC HAS PROVISION TO TEST UP TO SIXTEEN UNITS AT A TIME.

THE PROGRAM CONSISTS OF SIXTEEN TESTS, THREE OF WHICH ARE FOR THE DAVFU OPTION.
THREE OF THE PRINTER TESTS INVOLVE MANUAL INTERVENTION. TWO OF THE DAVFU TESTS
REQUIRE INTERVENTION BY THE OPERATOR.
THE PROGRAM
XXDP+,

[S

COMPATIBLE

TO

THE

PDP-1

DIAGNOSTIC

.

; VERSION

A-0

;

REV. A-0
INITIAL
REvV=C SUPERVISOR /

HISTORY

27-SEP=-79

R. SCHAUBER
RELEASE
XXDP+ (OMPATABLE

SUPERVISOR,

ACT/SLIDE,

AND

MACY1?
CZLPLAQ LP2S TEST
CZLPLA P
01-0C7-79 09:25

01-0CT-79

IDENTIFICATION

.MCALL

0000G0*

Sv(

G
G
S
G
G
G

o
O
oo~
b

b

CRERS=8

S

G

S

PAGE 5

J

SEQ 0022

SVC

STRUCT
.MCALL
STRUCT
$LSTIN=
SLSTTAG=
SVCINS=
SVCTST=
SsvCSuB=
SVCGBL=
SVCTAG=

1
1
1
1
1

.ENABL

ABS ,AMA

JINITIALIZE SUPERVISOR MACROS
;STRUCTURED MACRO PACKAGE

1
1

sLIST INSTRUCTIONS
sLIST TEST TAGS
;LIST SUBTEST TAGS
sLIST GLOBAL TAGS
;LIST OTHER TAGS

4
’
4
[4

SHIFTED
SHIFTED
SHIFTED
SHIFTED
SHIFTED

RIGHT
RIGHT
RIGHT
RIGHT
RIGHT

.=2000

BGNMOD

D —d

POINTER BGNSW,BGNSFT

b

HEADER

o~

B

09:27

CZLPLAO LP25 TEST
LTITLE
.SBTTL PROGRAM HEADER

33323333

1082
1083
1084
1085
1086
1087
1088
1089

30A(1052)

%)

(ZLPL,A,0,60,1,340

::
LENAME

LSREV::
LS$DEPO::

00000C

000060
032276

032356

002232
002244

0330¢0
000000
000000

002034

000001

LSUNIT::
LSTIML::
LSHPCP::
:
LSSPCP:
LOSHPTP::

LSSPTP::

LSLADP::
L$STA::
L$CO::
LSDTYP::

LASCII
LASCI1
LASCII
LASCI1
ASCII
.BYTE
.BYTE
.BYTE

/C/

2/
/L/

/P/
/L/

LASCII

/A/

LASCII

/0/

.WORD

0

.WORD

60

.WORD

L SHARD

.WORD

T
LSSOF

. WORD

LSHW

. WORD

LSSW

-WORD

LSLAST

. WORD

0

.WORD

0

.WORD

1

CZLPLAO LP25 TEST
CZLPLA.P11
(5)
(&)
(5)
(4)
(5)
(&)
(5)
(4)
(5)
(4)
(5>
4)
(3)
(5)
(4)
(5)
(5)
(4)
(5)
(&)
(5)
&)
(5)
(4)
(5)
(4)
(5)
(4)
(5)

(4)
(5)

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

(4)
(5)
(4)

(5)
(4)
(5)

(4)
(5)
(4)

1105
1106
}}8;

002036
002036
002040
002040
002042
002042
002044
002044
002046
002046
002050
002050
002051
002052
002052
002054
002056
002056
002060
002060
002062
002062

002064
002064
002066
002066
002070
002070
002072

002072
002074

002074
002076
002076
002100
002100
002102
002102
002104
0021046
002106
002106
002110

002110
002112
002112
002114
002114
002116

002116
002120
002120

MACY11 30A(1052)

01-0CT~79 09:25

01-0CT-79

09:27

PROGRAM HEADER

K

PAGE 5-1

2

SEQ 0023
LSAPT::

000000

L$DTP::

002132

L$PRIO::

000340

LSENVI]::

000000

LSEXPT::

0000CO

LSMREV::

003
003

LSEF::

000000
000000

L$SPC::

000000

LSDEVP::

002222

LSREPP::

000000

LSEXP4::

000000

LSEXPS::

000000

LSAUT:
:

000000

LSDUT::

000000

LSLUN::

000000

LSDESP::

002172

LSLOAD:
:

104035

LSETP::

000000

LSICP::

005020

LSCCP::

006266

LSACP::

002236

LSPRT::

002122

LS$TEST::

000000

LSDLY::

000000

LSHIME
::

000000
;
.

THE FOLLOWING IS A LOAD PHOTECTION TABLE

.WORD

O

.WORD

LSDISPAT(CH

.WORD

340

.WORD

O

.WORD

O

.BYTE
.BYTE

(CSREVISION
CSEDIT

.WORD
.WORD

O
O

.WORD

O

.WORD

LS$DVTYP

.WORD

O

WORD

O

WORD

O

WORD

O

WORD

O

JWORD

O

.WORD

LSDESC

EMT

ESLOAD

.WORD

O

.WORD

LSINIT

.WORD

LSCLEAN

. WORD

LSAUTO

.WORD

LSPROT

.WORD

O

.WORD

O

.WORD

O

CZLPLAQ LP2S TEST

CZLPLA.PII
1109

(3)
1110

1111

1112

1113

MACY11 30A(1052)

01-0CT=-79 09:25

002122

01-0CT=79

(09:27

PROGRAM HEADER

BGNPROT

002122
002122

000000

.WORD

O

002126

177777

.WORD

-1

002124

002130

177777

.WORD

ENDPROT

=1

L
PAGE 5-2

2

SEQ 0024

L$PROT: :

CZLPLAO LP25 TEST
CZLPLA. PN

MACY11 30A(1052)

01-0CT-79 09:25

111§
1116
117
1118

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

(6)

&)
(6)
(6)
(6)
(6)
(6)
(6)

(6)
(6)
(6)
(6)
(6)
1%3;

;
002130
002130
002132
002132

002134
002136

002140
002142
002144
002146
002150
002152
002154
002156
002160
002162
002164
002166
002170

002222
002222
002222

SEQ 0025

CONTAINS THE STARTING ADDRESS OF EACH TEST.

16

:X= NUMBER OF

006406

007404
011452

TESTS

.WORD
LSDISPATCH::
.WORD
.WORD

WORD

013646
016330
017634
021226
022360
022736
023246
024614
026330
026712
027334
030212
030636
;FOR USE ON REVISION C OF

002172
002172
002172
002200
002206
002214

2

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

000020

PAGE 6

DISPATCH TABLE

s+t
: THE DISPAT(H TABLE

}}Sé

1126
4)
(3)
(3)
(3)
(3)
2)
1127
(4)
(3)
2)
1128
1129
1130

09:27

DISPATCH TABLE
LSBTTL

}};g

1121
1122

01-0CT-79

M

DESCRIP
050114
044522
042040
051517

032462
052116
040511
044526

032462

000

<LP25>

T1

T2
T3

WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD

T4
TS
T6
17
T8
19
T10
TN
T12
T13
T14
T15S
T16

LASCIZ

/LP25 PRINTER DI

SUPERVISOR

<LP25 PRINTER DIAGNOSTIC>

050040
051105
047107
000103
DEVTYP

050114
002230

THE

16

LSDESC::

.EVEN
LSDVTYP::
JASCIZ
.EVEN

/7LP2S/

CZLPLAO LP25 TEST
MACY11 30A(1052)
01-0CT-79 09:27 PAGE 7
CZLPLA.P11
01-0CT~79 09:25
DEFAULT HARDWARE P-TABLE
.SBTTL

DEFAULT HARDWARE

2

SEQ 0026

P-TABLE

P

)

NN

vvmbwmv—-oomvVo"mbur\a—-vtdvoomwgwgw

}132

N

s+t

s B
o

;

®

002230
002230
002232
002232
002232

S

S

b d d d

i

;
;

]

1

e

}

VN INAVVLES BN ES BN IS 8 I IS BN NN B W

1
1

N NN N

P

1

000002
177514
000200

IS IDENTICAL TO THE RUN-TIME P-TABLE.
BGNHW

WORD
.WORD

DFPTBL
LSHW::
DFPTBL::
;LP2S REGISTER ADDRESS
:LP25 INTERRUPT VECTOR

177514
200

.WORD

L10001-L$HW/?2

TRAP

C$AUTO

I

I

S INTERRUPT VECTOR PRIORITY IS 4 AND CANNOT BE CHANGED

P

R

WAN VTN

I

— el b b

e

—r v

et

d

W

N

e

R

o

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

002236
002236

ENDHW

002236
002236

BGNAUTO

002236
002240
002240
002240

000240

NOP
ENDAUTO

104461

L10001:

’

LSAUTO::

; NOT USED
L10002:

CZLPLAQ LP2S TESY
MACY11
CZLPLA. P
01-0(1=-79 09:25
1157
1158
1159
1160
}
}

.SBTTL

=D

1

2
3

O~

D o

PAGE 8

8

3

SEQ 0027

SOFTWARE P-TARBLE

XX
; THE
;

d e

OV

D

%

ONOWVEWN

b
—ad ad

b

d

d

D e
e

d d d

ed
e
d

D ed e
d

d md
D
d

)

O01-01T=-79 09:27
SOF TWARE P-TARLE

002242

002242
002244

SOFTWARE P-TABLE (ONTAINS THE VALUES OF THE
PARAMETERS THAT (AN BE (HANGED BY THE OPERATOR.
BGNSW

000007

PROGRAM

SFPTBL
LSSW::

002244

002244

.WORD

SFPTBL::

000000

INHINT:

.WORD

0

:0 IF NO INTERVENTION TESTS
;1

IF MANUAL

INTERVENTION TESTS

002246

000001

(HRBND:

.WORD

1

sDEFAULT IS NO
;0 IF 64 CHARACTER BAND

002250

000000

vFUOPT:

.WORD

O

;0 IF NO DAVFU OPTION

002252

000000

MANSPD:

.WORD

O

:0 FOR AUTOMATIC PRINT SPEED

002254

000004

PERIOD:

.WORD

4

d e
b
b

D e
e

d ad e

ed e
e

)

D e e
—

—

N

b

b e e

d

D

o P

D e

1163

1

3CA(1052)

;1 IF 96 CHARACTER BAND

296 CHARACTER BAND DEFAULT

;1 IF DAVFU OPTION INSTALLED
;NO DAVFU DEFAULT
;1 FOR MANUAL PRINT SPEED TEST

sAUTOMATIC DEFAULT VALUE

sOPERATOR TO SELECT TIMING VALUE
JFROM 4 TO 60 SECONDS. INITIAL

;DEFAULT VALUE IS & SECONDS.
002256

000001

USA:

002260

000005

MAXERR:

002262
002262

;

.WORD

1

;2
:

1 FOR TESTING IN U.S.A.
O FOR TESTING IN G.B./EUROPE

; * DIFFERENT BAND PATTERNS «
. AUTODROP ERROR COUNT
IF ERROR COUNT EXCEEDS MAXERR THE UNIT WILL BE DROPPED FROM TEST
.WORD

ENDSW

5

L 10003:

L10003-L%Sw/2

CZLPLAO LP2S TEST
MACY11
CZLPLA.P1I
01-0CT=-79 09:25

B8R FRIV-SGLIR NP v

il
D
nd

.MACRO

ouTPUT
MOV

B

Y

WO

.MACRO

N

JF

Y

B

VNN

- G- i QR

.ENDC
.IF NB
.ENDC

.ENDM

[\ P Y

C

[/70 MACRO DEF INITIONS

. ENDM

002262

PAGE 9

.SBTTL

.ENDC

NBNNN

D
D
oD
e
d e
D
)
d
el
—

0
1221

09:27

SEQ 008

[/0 MACRO DEF INITIONS

-ENDC
.IF NB

PNOLIIPNIN)

D e
D
D
d
)

d

NONIALALNNNINININI
PO

01-0CT-79

1fF

=

d

D rd o

e

D s b et cd =D

—d =D

1191
1192

30A(1052)

MOV
MOV

ADD ,BF CNT ,ERR
ADD ,BUFADD

(NT
BF CNT ,BUF
#-1,PRINTR

ERR
MOV

#LFERR ,ERRSV(

ERR
MOV

ERR,ERRSV(

JSR

PC.,I10CTRL

QUTPUI
MOV
MOV
ERR
MG

ADD ,BF CNT ,ERR,UNIT
ADD ,BUFADD

ouTPUT

ER%
MOV
MoV

JSR

ENDMOD

CNT
BF CNT ,BUF

;SAVE THE BUFFER ADDRESS
JBUFFER BYTE COUNT BF(NT
;

OUTPUT

TO ALL UNITS

;CALL THE DRIVER

s SAVE BUFFER ADDRESS
JBUFFER BYTE COUNT BF(NT

#LPERR,ERRSV(

ERR,ERRSV(
UNIT,PRINTR

PC,I0OCTRL

;

SUPPLY UNIT NUMBER

sCALL

THE DRIVER

CZLPLAD LP25 TEST
CZLPLA. P11

01-0CT=79 09:25

1223

1226
1225
1226

MACY11 30A(1052)

01-0CT=79

GLOBAL AREAS
.SBTTLL

D+t

1230

;==

Q)
(M)
§P)
Qp)
(1
QP
1

;
;

EQUALS

:

;
:

BIT

DIFINITIONS

100000
040000
020000
010000
004000
002000
001000

BIT15==
BIT14==
BIT13==
81T12==

000200
000100

BIT07== 200
B8I1T106== 100

000400

@GP

000040

(1)

000020

100000
40000
20000
10000
BIT11== 4000
B8IT10== 2000
BI1T09== 1000

BIT08== 400

BI1T05== 40
BIT04== 20

000010

BIT03== 10

(1
(1
1
N
oy

001000
000400
000200
000100
000040

BITS==
BIT78==
BIT7==
BIT6==
BIT5==

BIT09
BITO8
BIT07
RBIT06
BIT0S

1
(n

000010
000004

BIT3==
BIT2==

BIT03
BIT02

(1
‘1)
(1)
(:;
(

(1)

(1)
(1)

000004
000002
000001

000020

000002
000001

BIT02== 4
BITQ1== 2
BI1T00== 1

BIT4==

BIT1==
8170==

BIT04

BIT01
BIT00

(13

;

(n
(})
1
P

s EVENT FLAG DEFINITIONS
;
EF32:EF17 RESERVED FOR
:
EF .START==
3c.

(1)
1)
iy
(;)

000040

000037
000036
00003<
000034

(1)

EF .RESTART==
EF .CONTINUE="
EF .NEW==
EF .PWR==
:
;

(1)

K

(1

SUPERVISOR

3.
30.
29.
28.

;

(1
(})

(1
‘1)

SEQ 0079

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

002262

1

(1
(1N

D

BGNMOD

1228
1229

QD]

PAGE 10

GLOBAL AREAS

002262

1227

1231
12??
(
(1)

09:27

000340
000300

000240

PRIORITy LEVEL

PR107== 340
PR]106== 300
PRI0S-= 240

DEFINITIONS

TO PROGRAM COMMUNICATION
;.

;
;
;
;

START

(OMMAND WAS

[SSUED

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

000200
000140
000100

000040
000GCO

000004
000010

GLOBAL AREAS
PRI04==
PRIO3==
PRI02==
PRIO1==
PRI00==

E.
3
PAGE 10-1

09:27

SEQ 0030

200
140
100
40
0

4
10
20

EvL==
LOT==
ADK==

40

ISR==
UAM==
BOE==
PNT==

e
N

S

100
200
400
1000

s

S

PR]-=

2000

IXE==
IBE-=

o

S
S
e

01-0(T=-79

IDU==

100000

P S S
PO

D
b
—

PUONUNY A

1242

30A(1052)

;OPERATOR FLAG BITS

e o

A o

s

S
B
R
e
N N N N S N N N

N A

N

e
e
N e N S

MACY11
CZLPLAQ LP25 TEST
CZLPLA.P1T
01-0CT-79 09:25

IER-=
LOE==

4YoeE==

4000
10000

20000
40000

100000

SPRIORITY LEVEL DEFINITIONS
000340
000300
000240
000200
000140
000100
000040
000000
ERROR (ODES FOR USE BY GENERAL

000001
000002

2

000003

3

1

ERROR ROUTINE

;TRANSMITTER STATUS ERROR

[N OUTPUT

;THIS

ERROR

LAST

JNOT

CALLED

;TIMEOUT ERROR IN 10 DRIVER MODULE
INDICATES

THE

;WAS NOT TRANSMITTED WITHIN A GIVEN TIME
;GROSS TIME OUT ERROR. THE SPECIFIED DID NOT
s INTERRRUPT. THEREFORE IO DRIVER MODULE WAS

GENERAL REGISTER USAGE DEFINITIONS

1265

RESERVED FOR USE BY

THE MACRO PACKAGES

MAXIMUM NUMBER OF UNITS TO TEST LSUNIT-1

UNIT NUMBER BY 2. USED TO CALCULATE OFFSET

PRINTFR TABLE
TEMPORARY

1272

CHARA(TER

STORAGE

STACK POINTER

INTO PROPER

CZLPLAQ LP25 TEST
CZLPLA.P11

01=0CT=79 09.25

1273
1274
1275
1276
1277
15;8
1280
1281
1282

1283

MACY11 30A(1052)

01-0(T=79

;
;

000100

F

PAGE 10-2

3

GENERAL REGISTER USAGE DEF INITIONS
:R7
;:

100000
000200
002000

09:27

PROGRAM COUNTER

LP STATUS

TABLE BIT DEFINITIONS

ACTIVE = 100000
DROPED = 000200
ERROR
= 002000

ovFLO

= 000100

SEQ 0031

1285
1286

L INCNT:
LSTCNT:
CCNT:
STRCNT:
CHRGEN:
UNIT:
LUN]T:
PTABAD:

002306

000000

.
.

G

SEQ@ 0032

J<CR> FLAG FOR USE BY SUPERVISOR
JLINE COUNTER

JUNIT COUNTER FOR SINGLE UNIT TESTING
JUNIT COUNTER FOR ERRORS

JAND TESTS NOT USING THE OuTPUT

PRINTR:

.
.

QO

000000
000000

.

(LKTYP:

.

o

002302
02304

PAGE N

GLOBAL DATA SECTION

;MACROS.

;P-TABLE

ADDRESS RETURNED BY

JSELECTED LINE NO.
:MACRO
;CLOCK TYPE CONTROL WORD

GPHARD

;1= NO CLOCK AVAILABLE

;2= KWll=L LINE CLOCK
000000
000000
000000
000000
000000
000000

CLOCKP:
CLKCSR:
CLKSET:

.
.
.

ERRCCD:

.

002324
002326

000000
000000

ERRFLG:
uuT:

.

002330
002332

000000
000000

INDEX:
vFUCMD:

.WORD
.WORD

sMACRO

VARIABLES

CLKVFC:
CLKENA:

.
.

elelelelele]

002310
002312
002314
002316
002320
002322

;3= KW11=-P PROGRAMABLE (CLOCK
;. CLOCK P-TABLE ADDRESS
;CLOCK CSR ADDRESS

; CLOCK TIME SET REG ADDRESS
;CLOCK VECTOR ADDRESS

;CLOCK ENABLE BITS
;ERROR CODE TYPE FOR GENERAL
;ERROR ROUTINE
JEXPECTED ERROR INDICATOR
;

#

UNITS

ACTUALLY

UNDER

TEST

JEXITS BACK TO [0 DRIVER EQUAL
;1 IF ERROR WAS EXPECTED.
0
0

002334

000000

BUFADD:

.WORD

0

;BUFFER ADDRESS OF DATA TO BE SENT

002336

000000

BUF CNT :

.WORD

0

JNUMBER OF BYTES TO TRANSFER

;70 THE

LP2S

1LP25 PARAMETER WORD TABLES
000020

LPCSR:

002400

000016

LPVEC:

0024 34

000020

:
LPBUF

002474

000020

STATUS:

16.
.REPT
.WORD
.ENDR
.REPT
.WORD
.ENDR
.REPT 16.
.wORD
0
.ENDR
.REPT 16.
O

002340

o=

2000 OB
W —=O 3e8RIRERES
SV SNV W= O VO NARAWNDBWN

»
D
h =D
D
e
)
D
)
d
d
)
e
D e
)
e e
e
)
D
d
D
)
) e
D
) —d
D e
) e
)
— wd e

09:27

GLOBAL DATA SECTION

FLAG:

002300

——

01-0(T=79

.SBTTL

1287
1288
1289
1290

A N N U O NN N AN N AN AN AN AN N NN N NN NN
rww AN N Ul N WWWWNINNROPNONNNINN
= 2 oo s

30A(1052)

QOOO0O0OOOO

MACY1T1
CZLPLAQ LP2S TEST
CZLPLA PN
01-0CT1=-79 09:25

. ADDRESS OF CSR FOR EACH LP1
.

INTERRUPT VECTOR ADDRESS

: DATA BUFFER REGISTER ADDRESS

. UNIT STATUS

CZLPLAQ (P25 TEST
MACY11
CZLPLA.P1T
01-0C"=79 09:25

30A(1052)

01-0(*=79

(. OBAL

DATA SECTION

.WORD

NI WV~ V] N = OO0
= OV

TEEEERER
o

b

d

d ok

D

D

D

—

d

d

o

B e

)

D

)

D

WWIWN
W
ggwwwwww
VLIV
IV, IV TV IV 1%, (VL RV IV,] PRRRRE

O NN

1341

W
~

09:27

PAGL

000020

(URADD:

002574

060020

CURCNT:

002634

000020

LPINTR:

002674
002676

000000
000020

ERRSV(C:

002736

000000
G00000

WORK::
WORK1:

.WORD
_.WORD

.SBTTL

OUTPUT BUFFER

002740

::
FRRIBL

.REPT 16.
.WORD
0

.ENDR
_REPT 16.
-1
.WORD
.ENDR

.REPT 16.
.WORD
0

.WORD
.ENDR

5

SEQ 0033

0

002534

.ENDR
.WORD

H

11-1

0
LREPT
0
O
0

16.

;

CURRENT ADDRESS OF OUTPUT DATA

;

CURRENT (COUNT TO OUTPUT

;

INTERRUPT ROUTINE ADDRESS

;
;

ERROR ROUTINE DISPATCH ADDRESS
ERROR COUNT FOR EACH UNIT

;

WORK AREA

2140 BYTES 1S RESERVED FOR THE OUTPUT BUFFER AREA
002742

000226

OUTBUF: .REPT
.BrTE

.ENDR

150.
0

MACY11
CZLPLAQ LP25 TEST
CZLPLA P
01-0CT1-79 09:25

30A(1052)

01-0CT-79

09:27

PAGE 12

TEXT

SECTION

GLOBAL TEXT SECTION
.SBTTL

GLOBAL

3

I

SEQ 0034

.NLIST BEX
4+

.

.

THE

GLOBAL

TEXT

SECTION CONTAINS FORMAT

STATEMENTS,

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

051120
051120
040520
110

NN
—
BEEERE
00‘08

044103
051124
120

052517
125
046101
045
045
003732

WNIANANWN

—_

1380

047111
067111
042520
046501

051101
047101
044522
050124
044516
020114
022516
022516

042524
042524
020122
042515
041501
046523
052116
052125
020124
047125
044501
021101

CSRERR: .ASCIZ /PRINTER ERROR/

RDYERR:
PAPSWI:

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

TXERR:

.ASCIZ

TXNOIN:

.ASCIZ

BNKSW]:
BNDSWI:
INTERT:
OUTTIM:

WTEQOD:

VFUSEL:
VFUSE1:
.EVEN

.ASCIZ
_ASCIZ

.ASCIZ

.ASCII
.ASCIZ

/TRANSMIT INTERRUPT TIMEOUT/
/PRINTER STATUS ERROR/
/OUTPUT TIMEOUT ERROR/
/UNIT FAILED TO INTERRUPT/
/ALL UNITS HAVE BEEN DROPPED..RESTART../
/XINXAINSURE THAT VFU~FLS SWITCH ON EACH UNIT
/XNZA'VFU'' POSITION.ZN/

LLIST BEX

. FORMAT STATEMENTS USED IN PRINT CALLS

1404
1405
1406
1407

003732
003740
003746
003754
003762
003770
003776

040445
052440
042045
051104
020104
052040
000116

050114
044516
022462
050117
051106
051505

030461
020124
020101
042520
046517
022524

LPDROP:

.ASCIZ

/XALP11

UNIT

XD2%A DROPPED FROM TESTIN/

IS

IN

THE

/

CZLPLAO LP25 TEST
MACY1?
CZLPLA.P11
01-0CT-79 09:25

D

D —

Y 0 o »H

)

J

SUBROUTINES

3

SEQ 0035

SECTION

S

;
:

P

d

GLOBAL

PAGE 13
SECTION

THE GLOBAL SUBROUTINE
THAT ARE USED BY MORE

SECTION CONTAINS
THAN ONE TEST.

THE

SUBROUTINES

D4+

; FUNCTIONAL DESCRIPTION:
;
SUBROUTINE TO PRINT THE GENERAL ERROR INFORMATION.
PRINTS THE ERROR MESSAGE IN THE FOLLOWING FORMAT:
;

b o

o

Pl YW W

W

d ad

W

d e

¥

D

01-0CT-79 09:27
GLOBAL SUBROUTINES
.SBTTL

NN
= = b b eV b e D 2 —
n =S OV NN
(NN = o

1409

30A(1052)

"ERROR AT (SR XXXXXX UNIT YY"’

1423

14624

:

WHERE XXXXXX=

1427
1428
1429

;
;
;

CALLING SEQUENCE
JSR PC,LPERR
REQUIRED PARAMETERS

1436
1437
1438

:
;
;

1425

:

1430
1431

1441
(2)

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

(3)

;
;

004000
004000

004004
004006
004012
004014
004014
004020
004020
004022
004024

004026

(4)
(4)
(4)

004026
004030
004032

1443
(4)
1444
(6)
1445
(4)
(7)

004036
004036
004036
004036
004042
004042
004046

122%

004034

013746
003403
021627
003402

002322

012716

000004

LPERR:

DEVICE CSR ADDRESS

YY=

UNIT NUMBER THAT FAILED

ERRCOD MUST BE SET TO ONE OF
UNDER ERROR CODES.

THE ERROR CC"ES DESCRIBED

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

3 VERIFY

;SELECT PROPER MESSAGE

000003
500008:
50001$:

006316
060716

063607

50002%:

000010
000036
000064

000110

FORMAT
MoV

BLE
cMP
BLE

ERRCOD,-(SP)
500008
(SP) ,#3
50001%

MOV

#4, (SP)

ASL
ADD
ADD

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

.WORD
.WORD
.WORD

500063-50002%
50005%-50002%
500043-50002%

INC

ERRTBL (R2)

MOV
ASR

RZ,LSLUN
LSLUN

.WORD

CASE
005262

002676

010237
006237

002074
002074

1

JSTATUS ERROR

LET ERRTBL(R2)

LET LSLUN

:= ERRTBL(RZ)

:- R2 SHIFT -1

+ #1

50003%-50002%

50006%:

MACY?1
CILPLAQ LP2S T EST
CZLPLA.PI1
01-0CT-79 09:25
144¢
(&)
(5)
(5)
(5)
1447
1448
(4)
(4)
1449
(6)
1450
(4)
(7)
1451
(4)
(5)
(8)
(5)
1452
1453
(4)
(4)
1454
1455
(6)
1456
(4)
(7)
1457
(4)
(S)
(5)
(5)
1458
1459
1460
16461
(3)
1462
1463
(6)
(9)
1464
1465
(4)
1466
(6)
1467
(4)
1468

004052
052
004US54
004056
004060

004062
0046062
004064
004064
0046064
004070
004070
004074
004100
004100
004102
004104
004106
004110
004110
004112
004112
0046112
004116
004116
004122
004126
004126

004130
004132
004134

30A(1052)>

004136
004144

004146
004152

0046152
004152
004152
004160
004160
004164

09:27

GLOBAL SUBROUTINES
ERRHRD

104456
000016

K

PAGE 13-1

3

SEQ 0036

SECTION

14,TXERR

TRAP

N3443
0,(V)
;OUTPUT TIMEOUT ERROR

CASE 2

000425

005262

002676

010237
006237

002974
002074

LET ERRTBL(R2)
LET LSLUN
ERRHRD

104456
000017
003470

:= ERRTBL (R2)

+ M1

50005%:

:= R2 SHIFT -1

15,0UTTIM

000000

CASE 3

000412

005262

002676

010237
006237

002074
002074

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

50004%:

LET LSLUN := R? SHIFT -1
ERRHRD

104456
000020

16,TXNOIN

003515
000000

004136
004136
004136

01-0CT-79

ENDSELECT

026237
003402
004737

002676

002260

004656

042762

002000

005037
000207

002322

IF ERRTBL(R2)

LET STATUS(R2)
LET ERRCOD
RTS

14

0

BR

50003s

INC

ERRTBL (R2)

MOV
ASR

R2,LSLUN
LSLUN

TRAP

CSERHRD

TXERR

.WORD
. WORD
. WORD

15
QUTTIM
0

BR

50003s%

INC

ERRTBL (R2)

MOV
ASR

R2,LSLUN
LSLUN

TRAP
.WORD
. WORD

16
TXNOIN

CSERHRD

.WORD

0

CMP
BLE

ERRTBL
(R2) ,MAXER

8IC

#ERROR, STATUS(R?

CLR

ERRCOD

50003%:

GT MAXERR THEN

JSR PC,DROPIT
ENDIF

002474

CSERHRD

. WORD
.WORD
. WORD

PC

;

MAXIMUM ERROR COUNT

:= STATUS(RZ)

CLR.BY #ERROR

:= #0

JAND EXIT

tXCEEDED

.

50007%

50007$%:

CZLPLAO LP25 TEST
CZLPLA.P11

MACY11 30A(1052)

01-0CT-79 09:25

1470
1471
1472
1473
1474
1475
1476
1477
1478
1479

004166
004166
004174

032772
001045

100000

002340

IODRV:

.

004176
004200
004200
004204
004206

1493

004214

000240
005762
003417

002574

004206

117272

002534

004214

005262

002534

1/0 DRIVER

1497
(6)
1498

004220
004220
004226

052762

100000

1499

004226
004232

005362

000240

002574

004234
004234

052772

000100

004244
004244
004250
(004252
004252
004256
004256
004262
004262

004270

004270
004272

002574

105072

002434

005362

002574

052772

000100

000406

NOP

Xttt

IF

CURCNT(R2)

ENABLE

kAR

BIT
BNE

#BIT15 ,LPCSR(R2
50010%

TST
BLE

CURCNT(R2)
50011%

Move

aCURADD
(R2) ,aLPB

INC

CURADD (R?2)

BIS

#ACT]IVE ,STATUS(R

DEC

CURCNT(R2)

BIS

#100,3LPCSR(R2)

BR

50012%

AN R R AN AR N R R RN AN R R AR A AR RN AR AR AR AR

GT #0 THEN

LET aLPBUF (R2)

:B= aCURADD(RZ2)

LET

:= CURADD(R?2)

CURADD(R2)

+ M1

INTERRUPT FOR NEXT BYTE
LET STATUS(RZ2)

:=

STATUS(RZ)

SET.BY #A(CTIVE

LET CURCNT(R2)

:=

CURCNT(R2)

-~ m

NOP

002340

THEN

COUNT NOT ZERO SEND NEXT BYTE

002474

000421
005762
001010

IF #BIT15 NOTSETIN aLPCSR(R2)

002434

.

004242
004242
006244

IF

‘

}232

1502
(6)
(9)
1503
(4)
1504
(6)
1505
(6)
1506
1507
(4)
(3)

SEQ 0037

; CHECK FOR ERROR FLAG IN STATUS REG.

1491
(6)
(9)
1492

1501
(4)
(3)

3

:

1490

1500
(6)

L

-

}223

(6)

PAGE 14

;RT EQUALS MAXIMUM NUMBER OF UNITS ON SYSTEM UNDER TEST.

12%%

1282

09:27

:
:
J++
;THE 1/0 DRIVER ROUTINE IS INVOKED BY MLANS OF THE INTERRUPT SYSTEM,
JCALL TO IT IS UMP
IODRV.
JRETURN
RTI.
JENTER ROUTINE WITH R2 SET UP TO DFSIRED UNIT =2, RZ2 IS USED
;TO CALCULATE OFFSET INTO PROPER TABLE.

1482
1483

(&)

1/0 DRIVER
.SBTTL

}zg?

1486
(6)
122;

01-0CT-79

SAERR RN AR AR AR NAR NN R R AR RARR AN

LET @LPCSR(RZ2)

:= aLPCSR(R2)

RN AR RN RN

SET.RY #100

ELSE

1F

CURCNT(RZ)

002340

ELSE

EQ #0Q THEN

50011%:

TST
CURCNT (R2)
BNE
50013%
LET QLPRBUF (RZ2) :B= #0
; PAD WITH TRAILING NUL
(LRB
aLPBUF (R2)
LET CURCNT(R2) := CURCNT(R2) - #1
DEC
CURCNT (R?2)
LET @LPCSR(R2) :- @LPCSR(R?2) SET.BY 4100
BIS
#100,aLPCSR(R?)
; INTERRUPT ONE MORE TIME

50013s:

BR

500143

MACY11
CZLPLAQ LP25 TEST
CZLPLA P
01-0CT=-79 09:25

(4)

1512
(4)
1513
(4)

(3)

1514
1515
1516
(6)
1517
(4)
1518
(4)
1519
(2)
1520

004272
004272
004300
004300
004306

09:27

01-0(T-79

170 DRIVER

M

PAGE 14- 1

SEQ 0038

; ALL DONE, CLEAR

042762

100000

002474

042772

000100

002340

ACTIVE & DISABLE INTERRUPITS

LET STAT US(R2)

:=

LET aLPC SR(R2)

:= @LPCSR(RZ)

STATUS(RZ)

CLR.BY #ACTIVE
CLR.BY #100

ENDIF

ENDIF

052762

002000

002474

012772

000100

002340

012602
000002

; CLEAR ERROR (ONDITION, ENABLE INTERRUPTS
: SET ERROR FLAG
LET STATUS(RZ) := STATUS(RZ2) SET.BY #ERROR
LET aLPCSR(R2)

#ACTIVE ,STATUS(R

8IC

#100,a8LPCSR(R2)

BR

50015%

50012$:

ELSE

000406

BIC

50014%:

50010%:

#ERROR,STATUS(R?2

:= #100

#100,aLPCSR(R2)

ENDIF

50015%:

POP R2

(SP) +,R2

RTI

Y 4

1508
1509
(6)
1510
(6)
151

30A(1052)

CZLPLAO LP25 TEST
MACY11 30A(1052>
01-0CT-79
CZLPLA.P1T
01-0CT=-79 09:25
170 CONTROL
1522

.SBTTL

09:27

PAGE 15

N

3

SEQ 0039

1/0 CONTROL

s

H
H

004330
004330
004332

BYTE COUNT TO TRANSMIT TO PRINTER

ERRSVC

ADDRESS OF

ERROR SERVICE

SUBROUTINE

IOCTRL: PUSH RZ2.R3

010246
010346

W
&~

o

N

004342
004344
0043446
W

N
e
)
N N (N

A

—h

—

—

NAASNA\N
A~

004356
004356

004350
004354
004354
004356
004362

(4)
1546
(4)
1547
1548

004362
004370
004370

1550
1551
(6)
(9)
1552
(2)
1553
1;?2

004370
004370
004370
004372
004374
004374
004400
004400

023727
001005

002304

013703

002012

005037

002074

IF PRINTR EQ #-1

177777

012703

000001

013737

002304

MOV
MoV

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

CMP

PRINTR, #-1

MOV

LSUNIT ,R3

(LR

LSLUN

BR

50017%

MOV

#1,R3

MOV

PRINTR,LSLUN

TST
BNt

R3
50020%

ELSE
LET R3
002074

ENDIF

JMP

CTLEND

MOV
ASL

LSLUN,R?
R2

CLR

ERRCQD

50016%

50017%:

REPEAT TILL R3 =0

CTLLOP:

004650

:= #

50016%:

LET LSLUN :- PRINTR

:

000137

BNE

LET LSLUN :- #0

:
;

005703
001002

THEN

LET R3 := LSUNIT

000405

}ggg

1;26

BUFCNT

; OTHERWISE TO UNIT NUMBER IN PRINTR,

1544
*(4)
1545

1557
(4)
(7)
1558

N FOR PRINTER NUMBER ‘N’
ADDRESS OF MESSAGE TO PRINT

BUFADD

: IF PRINTR IS -1 QUE OUTPUT TO ALL PRINTERS SELECTED
004334

1549

THE 1/0 CONTROL SUBROUTINE [S A SINGLE ENTRY QUEUE MANAGER.
THIS ROUTINE IS INVOKED BY A JSR FROM AN 1/0 CALL.
INPUTS:
PRINTR
=1 FOR ALL TERMINALS

W

x\&m\.fl
e vt
HUF BRI
EERY
[@1Vs]

;
;
;

WS
00

——

s

—

e

d

b

)

d

d

d

b

1525
1526

IF

.
R3 EQ #0 THEN
INLINE <JMP CTLEND>

ENDIF

50020%:

; USE R2 AS AN [NDEX INTO THE UNIT TABLES
004400
004400
004404
004406

004406

013702
006302

002074

005037

002322

LET R2

:- LSLUN SHIFT 1

LET ERRCOD

:- #0

CZLPLAQ LP2S TEST
CILPLA.P1Y

MACY11 30A(1052)

C1-0C7-79 09:25

}gg?
004412

1;2%

004420

004612

032762

001103

000200

004422
0046422
004430
004432
004432

(4)
1;2&

004440
004442

004440

032772

001404
012737

100000
000001

1;?2

004456

(4)
1578
(4)
(3)

1579
(4)

(6)
(9)
1580
(2)
(2)
(2)
(2)
(2)
(2)
(2)
1;5%

005762
002445

002574

032762

100000

012737

004470
004476
004500
004500
004504
004506
004512
004514
004520
004522
004526

032762
001431

100000

012727
000000
013727

000144

005367
001375
005367
001367

177772

000003

MAKE

THEN

:= #STATER

CURCNT(RZ)

;

WMACTIVE NOTSETIN STATUS(RZ)

OUTPUT WAS QUEUED BUT

[/0 DRIVER WAS NEVER
LET ERRCOD

INVOKED

:- #NOINTR

THEN

(VIA

DELAY

:

NO

100.

177756

000002

002322

50023%

TST
BLT

CURCNT (R2)
50024%

BIT

W#ACTIVE ,STATUS(R

50025%

L 1Y

#NGCINTR,ERRCOD

BR

50026%

BIT
BEQ

MACTIVE ,STATUS(R
500308

MOV
WORD
MOV
.WORD
DEC
BNE
DEC
BNE

#100.,(PC)+
O
LSDLY, (PC)+
0
-6 (PC)
.4
=22(P(C)
.=20

ALLOW APPROX 2.5 SEC FOR BAND STARTUFP

LET STATUS(R2)

012737

50022%
15 SET IN (SR
#STATER,ERRCOD

BR

INTERRUPT

50025%:
SETIN STATUS(R2) D0
50027%:

002116

002474

50021%

INTERRUPT)

ELSE

002474

000100

#BIT1S ,ALPCSR(RZ

BEQ
STATUS REG ERROR BIT
MOV

GE #0 THeN

WHILE #ACTIVE

032762
001406

BIT

BNE

000435

002474

#DROPED,STATUS
(R

IS DONE

IF

002322

005262

BIT

SET

SURE FREVIOUS MSG

002474

;

004530
004530
004534
004534
004542
004544
004564

ERROR BIT

IF

}ggg

1584
(6)
1585
(6)
(9)
1586
(4)

FOR DVC

50022%:

004460
004466
004466
004470
004470
004470

THEN

ELSE

;
004460

#DROPED NOTSETIN STATUS(R2)

LET ERRCOD

000450

001004

SEQ 0040

IF #BIT15 SETIN aLPCSR(R2)

;
0044472
004442
004446
004450
004450

¢4

BNE

002322

}2;2
1577

[F

002340

}g;?
1572
(6)
(9)
1573
(6)

B

PAGE 15-1

THE UNIT HAS BEEN DROFPED SELECT THE NEXT UNIT

;TEST

1566
(6)
(9)
1567
(4)
1568

IF

002474

}ggg

09:27

170 CONTROL
:

1562

(6)

01-0CT-79

:= STATUS(RZ)

IF #OVELO SETIN STATUS(R2)
LET ERRCOD

:- #TIMOUT

+ M1
INC
THEN
BIT
8tQ
MOV

STATUS(R?2)
#OVFLO,STATUS(R2
500318
4T IMOUT ,ERRCOD

MACY11
CZLPLAQ LP25 TEST
CZLPLA,
01-0(T-79 09:25
(6)
1588

(4)
1589
(4)

(3)

042762

100000

01-0(T-79
[/0 CONTROL

09:27

000743

005737
001403

002322

004777

176100

1615
1616
1617
(6)
1€18
(6)
1619
1620
1621
(2)

50027%

TST
BEQ

ERRCOD

BR

50033%

MOV

BUF ADD , CURADD
(R2

MOV

BUF CNT, CURCNT
(R2

50026%:
:
500248

50023$:

ERRCOD NE #0 THEN

ELSE

000415

JSR

50032%

PC,aERRSV(

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

013762

002334

002534

013762

002336

002574

042762
000240

000177

002474

052772

000100

002340

LET CURADD(R?Z)

:

BUFADD

LET CURCNT(R2)

:

BUF CNT

LET STATUS(RZ)

:

LET @LPCSR(RZ)

:- @LPCSR(R2)

NOP

STATUS(R2) CLR.BY #177

:tttt.tttttt!tttttitttt'tttt't't?ittt

ENDF

ENDIF

SET.BY #100

C

8l

s

8177 ,STATUS(R2)

#100,a8LPCSR(R?2)

50033s:
50021s:

: CLEAR OUT ANY TIMEOUT COUNT

1611
1612

1614

BR

: REPORT THE ERROR

1610

1613
(6)

50030$:

ENDIF

IF

CLR.BY #A(CTIVE
W#ACTIVE ,STATUS(R
8IC

50031s:

ENDIF

(4)

1608
(4)
1609
(4)

:= STATUS(RZ)

ENDDO

1593
(6)
9
1594
1595
1596
1597

1607
(6)

SEQ 0041

ENDIF

ENDIF

1599
1600
1601
1602
1603
(4)
1604
(4)
1605
(6)
1606

4

LET STATUS(RZ)

1592

(3)

15-2

002474

1590
(4)
1591
(4)

1598
(&)

C_

PAGE

1]

1587

30A(1052)

042762

000177

012603

'

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

: SELECT THE NEXT UNIT AND DECRIMENT THE LINECGUNT
LET K3 := R3 = #1
'

005303
005237
000137

002474

002074
004370

LET LSCUN = LSLUN + #i
CTLEND:

JMP
POP

CTLLOP
R3,R2

8IC

#177 ,STATUS(R?2)

DEC

R3

INC

LSLUN

MOv

(SP)+ R3

MACY11
CZLPLAQ LP25 TEST
(ZLPLA.PIY
0'-0(T-79 09:25
(3)

1622

004652

004654

012602

000207

30A(1052)

01-0(T=79

09:27

RTS

PC

1/0 CONTROL

D_

PAGE 15-3

4

SEQ 0042
MOV

(SP)+,R2

MACY 11
CILPLAQ LP2S TEST
CZLPLA.PYI
01-0CT1-79 09:25

4)
1633
(&)

1634
(4)

1635
‘8)
(7)
(6)

(3)

(4)
(&)
1636
4)

1637
(6
1638
(6)
(9
1639
(7)
(6)
(3
4)
%)

1640

(%

1641
(4)
1642
1643

(4)

1654
(4)
(6)
(9)

1655

09:27

[/0 CONT ROL
@

M

e

am

am

m

e

e

e

=

e

=

: DROPIT

PAGE 16
S

e

T

S

e

T

S

e

E

G

SEQ 0043
-

T

4

M

e

e

b

m

W

e

am

FUNCTIONAL DESCRIPTION

A

-

:

: THIS SUBROUTINE 1S USED TO DROP A BAD PRINTER FROM THE
;

DISABLE ANY INTERRUPTS FROM THE PRINTER, AND NOTIFY THE

TEST

; OPERATOR THAT THE PRINTER WAS DROPPED.
004656
004656

012762

000200

002474

664

012762

177777

002574

005072

002340

013746
012746
012746
010600

00575

004672
004672
004676
004676
004702
004712
004714
004716
004722
004722
004726
004726
004732
004732
004740
004740
004744
004750
004752
004754
004760
004760
004762
004762
004762

LET STATUS(RZ2}

:= #DROPED

LET CURCNT(RS)

:- #-1

IET ALPCSR(RZ)

:= #0

PRINTF

LSLUN

#LPDROP,

000006

005062

002676

005337

002326

005737
0010M

002326

012746
012746
010600

003546
000001

LET ERRTBL(RZ2)

#=-1,CURCNT(R2)

aLPCSR(R2)

LSLUN,-(SP)

LET WUt

©

:- #0

WT - M

IF WUT EQ #0 THEN
PRINTF

000004

#UUTEQO

DOCLN

104444

; NOTHING TO TEST

ENDIF

000207

RTS

004770
004770
004770
004776
005000

002074

023737
002007

002074

FAKE
:

PROPER PASS

COUNT

LSLUN LT

CLR

ERRTBL (RZ)

DEC

it

TST
BNE

v

MOV
MOV
MOV
TRAP
ADD

#UUTEQD,~(SP)

TRAP

CSDCLN

50034$
#1,-(SP)

SP,RC
CSPNTF

ns ,SP

REPORTS

LET LSLUN := #0
WHILE

SP,RO
CSPNTF
#6,SP

DES(RIPTION

THIS SUBROUTINE IS REQUIRED TO INSURE
IN A MULTI UNIT MODE OF OPERATION.

005037

TRAP
ADD

50034%:

PC

FUNCTIONAL

004764
004764

#DROPED,STATUS
(R

000002

104417
062706

104417
062706

DROPIT:

#LPDROP,-(SP)
#2,-(SP)

1644
1645
1646
1647
1648
1649
1650

1651
1652
1653

01-0CT=79

LSUNIT

DO

002012

LSLUN

50035%:
nr-

1624
1625
1626
1627
1628
1629
1630
1631
1632

30A71052?

GPHAPD

LSLUN, R>

SLUN,LSUNI"
003%6%

(ZLPLAQ LP25 TEST
MACY1T
{ZLPLA P
01-0CT=79 09:25
3
(3)
(3)

1656
(6)
1657
&)

(3)

1658

1659

1660
1661

013700
104442

30A(1052)

01-0(7=79

170 CONTROL

09:27

000207

F

16-~1

&

SEQ Q044

002074

MOV

M

T

ENDDO

+

N

RTS

ENDMOD

b

50036$%:

LSLUN,RO

MOV

( $GPHRD
RO,R3

INC

LSLUN

B8R

50035%

TRAP

010003

000765

PAGE

MACY11
C(ZLPLAQ LP25 TEST
CZLPLA.P11
01-0CT=-79 09:25

304(1052)

1663
1664
1665
1666
1667

1668
1669
1670
1671
1672
(3)
1673
1674
1675

.SBTTL

(4)
(4)
1688
(72

(6)
(3)

(4)
(4)

1689

(4)
1690

(3)

1691
(2)
1692

‘693

INITIALIZATION SECTION

;CLOCK TYPE, AUTO OR MANUAL PRINTING SPEED MEASUREMENT, AND WHETHER A DAVFU
;OPTiON IS INSTALLED IN THE SYSTEM.

BGNMOD

005020
005020
005020

(3)
(3)

1682
1683
1684
1685
(3)
1686
(6)
(9
1687
(7)
(6)
(3

SEQ 0045

sPRIMARILY USED FOR REQUESTING P-TABLE PARAMETERS. INFORMATION REQUESTED FROM
;THE OPERATOR INCLUDE THE NUMBER OF UNITS UNDER TEST, DEVICE ADDRESSES, VECTORS,

005040
005044
005044
005046

1679
1680
1681

6

STHE INITJALIZE ROUTINE 1S EXECUTED AT THE BEGINNING OF FACH SUB-PASS AND IS

(3)
(3)
1678
(2)

(3)
1676
(2)
1677

17

R
2 4

005020
095020
005024
005026
005026
005030
005030
005034
005036
00503¢

(3)

01-0C7-79 09:27 PAGE
INITIALIZATION SECTION

BGNINIT
JRESET

EXTERNAL BUS

IF

;OR POWER FAIL RESTART

012700

1046447

READEF

000040

012700

104447

READEF

000037

004737

004764

JSR
EXIT

104432

FLAG

IS

1%

LSINIT::

SET

;sTEST

START

JBRANCH [F

#EF .RESTART

BCOMPLETE

103404

EVENT

#EF.START

BCOMPLETE

103410

START

;NOW THE

1%

;IF

EF

INDICATOR

FROM START UP

RESTARTFLAG

.
;

TRAP

BCS

MOV

TRAP

#EF .START
RO
CSREFG
s

#EF _.RESTART
RO
CSREFG

EITHER START OR POWER FAIL RgiTART
BCS

;DO A BUS RESET

PC,FAKE
INIT

MOV

UPDATE PASS COUNT
ELSE EXIT INIT CODE

001134

TRAP

CSEXIT

.WORD

L10004~.

TRAF

CSRESET

(MP

LSUNIT #16.

MOV
MOV
MOV

TRAP
ADD

#NRGT16,-(SP)
#1,-(SP)
SP,RO
CSPNTF
w6 ,SP

MOV

MNRGT17,-75P)

TRAP
ADD

CSPNTF
#4,SP

TRAP

(SMAN]

BCC

100%

;POWER UP RESTART OR START (OMMAND ]SSUED
0C5050
005050
005052
005052
005060
005062
005062
005066
005072
005074
005076

1$:

104433

023727
003420

002012

012746
012746
010600
104417
062706

005612
000001

012746
012746
010600

005675
000001

062706

000004

104417

104450

103016

000004

000020

BRESET

IF

JRESET

LSUNIT GT #16.
PRINTF

PRINTF

THE

BUS

THEN

BLE

#NRGT16

ANRGT17

MOV
MOV
ENDIF
MANUAL

;

BNCOMPLETE

100%

PRINTF

#MRESET

WAIT

FOR

(R

IF

IN MANUAL

JPRINT

MODE

RESET

506373

#1,-(SP)
SP,RO

50037%:

MESSAGE

MACY11
CZLPLAO LP25 TEST
CZLPLA.P1T
01-0C7-79 09:25
(7)
6)
)
(&)
4)

1694
1695
1696
1697
&)

1698
(&)
1699
4)
1700
1701
3

3
4)

(5)
(5)
(5
(3
1702

1703
1704
1705
4)
(6)
1706
(4)
5)
)
(7)

(5)
(S)
(7)
1707
(3

005126
005132
005136
005140
005142

012746
012746
010609

005731
000007

062706

000004

104417

30A(1052)

H

01-0CT=79 09:27 PAGE 17-1
INITIALIZATION SECTION

4

SEQ 0046
MMRESET ,-(SP)
#1.-(5P)

MOV
MOV
MOV
TRAP
ADD

#4,SP

(LR

FLAG

(LR

ERRCOD

(LR

wT

TRAP

CSGMAN

SP,RO
CSPNTF

‘WAIT FOR A '‘CR'* BEFORE GOING ON
005146
0CS146
005152
005152
005156
005156
005162
005162
005162
005164
005166
005170
005172
005174
005176

005037

002262

005037

002322

005037

002326

LET FLAG := #0

LET ERRCOD
LEY
100%:

104443
000404
002262
000130
006010

UUT

GMANIL

:= #0

:= #0
READY,FLAG,100000,YES

;GET MANUAL

PARAMETERS

100000

10000%:

BR
.WORD
.WORD
.WORD
.WORD

10000%

FLAG

T$CODE

READY

100000

;REQUEST P-TABLE FOR PRINTERS UNDER TEST
005176
005176
005202
005204

013701
005301

€J32012

005037

002074

005237

002074

023701
003071

002074

013700
104442
010003

002074

000402

éS:

:= LSUNIT - #

JMAXIMUM NUMBER OF

UNITS

INCR LSLUN FROM #0 TO R1 BY #1
:
500418
50040%:

GPHARD LS$LUN,R3

JREQUEST

P-TABLE

ADDRESS

R1

CLR
BR

LSLUN
500408

INC

LSLUN

CMP
BGT

R
LSLUN
50042%

MOV

MOV

LSLUN RO
CSGPHRD
RO.R3

BCC

3%

JBRANCH [F DEVILE NOT PRESENT

BNCOMPLETE 3%
LET R2

002074

:- LSLUN SHIFT

1

R1
LSUNIT

MOV
DEC

TRAP

103060

013702
006302

LET RY

MOV

LSLUN,R?

ASL

R2

CLR

STATUS(R?2)

(LR

ERRTBL (R2)

MOV

#-1 CURINT(R?)

$CLEAR STATUS WORD IN TABLE, CLEAR ANY ERROR (OUNT, OUTPUT COUNT
005062

002474

005062

002676

012762

177777

002574

LET STATUS(R2)

:= #0

LET ERRTBL(R2)

:= #0

LET CURCNT(R?Z)

:- #-1

MACY11
CZLPLAQ LP25 TEST
CZLPLA.PT
01-0C7-79 09:25
1717
1718
1719
(&)
1720
(4)
(6)
1721
1722
1723
1724
(4)
1725
1726
1727
1728
(4)

(7)
(7)
(7)
1729

005262
005262
005266
005266
005274

005302
005392

1742
1743
1744
1745
1746
1747

1748
1749
1750
1751
1752

09:27

I_&

PAGE 17-2

SEQ 0047

INITIALIZATION SECTION

012362

002340

016262
062762

002340
000002

012362

LET

LPCSR(R2)

LET LPBUF(R2)

002434
002434

:=

(R3)+

SSET UP (SR ADDRESS FOR gSVICE

:= LPCSR(R2)

v

+ A2

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

002400

(R3)+,LPCSR(R2)

MOV
ADD

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

MOV

(R3)+,LPVEC(R2)

MOV

ASL

R2, WORK
WORK
WORK
WORK

ADD

#INTO0, WORK

MOV

WORK ,LPINTR(R2)

MOV
MOV
MOV
MOV

#PR104 ,~(SP)

'SET UP DEVICE INTERRUPT VECTOR INFORMATION
005306
005306
005312
005316
005322

010237

’

006337
006337
006337

002736
002736
602736
002736

062737

031616

002736

013762

002736

002634

012746
016246
016246
012746

000200
002634
002400
000003

062706

000010

104437

(2)

(3)

01=-0{T1=79

;LOAD (SR ADDRESS INTO TABLE

(6)
1730
(4)
1731
(7)
(6)
(5)
(4)
(3)

1732
1733
1734
1735
(6)
1736
1737
1738
1739
1740
(6)
1741
(4)

30A(1052)

LET WORK :- R2 SHIFT 3

ASL
ASL

LET WORK

:

WORK + #INTQO

LET LPINTR(R2)

:- WORK

SETVEC LPVEC(R2),

LPINTR(R2),

#PKRIO4

TRAP

ADD

LPINTR(R2) ,-(SP)
LPVEC(R2) ,-(SP)

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

> ADD ONE TO UNIT UNDER TEST COUNT
005370
005374

005237

000403

LET WUT

002326

BR

:= WUT + #1

INC

4$

"INDICAIE LSLUN NOT AVAILABLE FOR TESTING
005376
005376
005404
005404
005406

052762

000200

000702

002474

LET STATUS(R2)
48

:

END INC

STATUS(R2)

SET.BY #DROPED
;GO BACK AND DO

:

IT

AGAIN

500428%:

BIS

#DROPED ,STATUS(R

500419

;DETERMINE IF MANUAL PRINT SPEED TO BE DONE AND PROCESS ACCORDINGLY
.

:THIS IF STATEMENT HAS BEEN HARD CODED BECAUSE OF
;NON-LOCAL SYMBOLS IN THE LOOP

“IF MANSPD EQ #0 THEN
005406
005412
005414

005737
001405

002252

TST

MANSPD

(K1
BEQ
LET CLKTYP := #4

;

IF 0 AUTO MATIC PRINT SPEED TEST

JBRAN(H [F AUTOMATIC "EST TO BE RUN

MACY11
CZLPLAO LP2S TEST
CZLPLA L1
01-0CT-79 09:25
(4)
1753
(3)

(3)

1754
1755
1756
1757
1758
1759
1760

(3)
(3)
(3)

1761
1762
(6)
1763
1764

(3)
(3)
(3)

1765
1766

6)
1767
(4)
1768

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

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

(4)
1770
(4

(3)
1771

1772
(4)
1773
(4)
1774
(4)

(3)
1775
1776
(4)

1777
(4)

1778

005414
005422
005422
005424

012737

0C0004

30A(1052)

01-0("=-79

09:27

J_

PAGE 17-3

&

SEQ 0048

INITIALIZATION SECTION

0C2306

#6 CLKTYP

INI T

EXIT

104432
000556

&K1:
012700
104462
010004

005436
005436

103435

005440
005440
005444
005446

012700
104462
010004

005450
005450
005452
005452
005460
005460
005464
005470
005472
005474
005500
005500
005504
005510
005512
005514
005520
005520
0055¢°2
005522
005522
005530
005530

005530
005530
005532
005532
005532
005540
005540
005540

000120

. SEE IF THFRE
cLock P, R4

CARRY (LEAR

.IF

IFCOND CC

.

'

CLOCK DOESN'T EX]ST

*

IF CARRY CLEAR THEN ‘L' CLOCK DOESN'T EXIST

IFCOND CC THEN

000001

012746
012746
010600

006045
000001

062706

0C0004

012746
012746
010600

006107
000001

062706

000004

LET CLKTYP ¥ A

002306

PRINTF

PRINTF

BCS

500433

MOV
TRAP
MOV

#'L RO
RO.R4

BCS

500448

000002

'L°

LET CLKTYP :- #2

002306

(LOCK

END] F

sWE

000003

002306

HAVE A

50044%:

MOV
MOV
MOV
TRAP
ADD

#NOCLCK ,=(SP)
#1,-(SP)

MOV
MOV
MOV

#NOT IM,-(SP)
#1,-(SP)

SP,RO
CSPNTF

#4 ,SP

SP,RO
CSPNTF

TRAP
ADD

#4,SP

BR

50045%

#2.,CLKTYP

'P*'

(LOCK

50043%:

LET CLKTYP :~ #3
ENDIF

IF

C$CLCK

50045%:

ELSE

000403

($CLCK

RO,R4

#1,CLKTYP

ANOTIM

;WE HAVE AN

012737

#'P,RO

ANOCL(K

E.SE

000403

012737

MOV
TRAP
MOV

{LoCK

CLOCK L,R4

000114

012737

104417

THEN

'P!

IS &

TYPE OF (LOCK

. SO TEST FOR AN ‘L' (CLOCK

103424

104417

CSEXIT
L 10004~-.

. WORD

JEND OF INITIAL SET UP SECTION. NOW FIND OUT WHAT
JAVAILABLE IF ANY.
005426
005426
005426
005432
005434

TRAP

CLKTYP EQ #2 GR CLKTYP EQ #3 THEN

BR

500469

#3,CLKTYP

50046%:

CZLPLAO LP25 TEST
CZLPLA.P11

005540
005546

023727
001404

(9)
(6)

005556
005560

001010

1779

(4)

1780
(&)
1781
1782
(4)
1783

(3)
(3)
1784
(3)
(3>
;;gg

005550
005560

005560

005564
005564
005572
005600
005600
005600

30A(1052)

002306

000002

002306

000003

01-0C7-79 09:25

(6)
(8)

(6)

MACY11

023727

010437

002310

017737
012777

174520
000000

01-0CT=-79

K

09:27

PAGE 17-4

&

SEQ 0049

INITIALIZATION SECTION

cMP
BEQ

002312
174512

MOV
ENDIF

LET

CLOCKP

:- R4

LET

CLKCSR

:= aCLOCKP

50047$:

.

#0,3CLKCSR

005600
005604
005606
005606
005610

012700
104441

1787
1788

005612
005675

047045
045

040445
022516

052516
047501

NRGT16:
NRGT17:

.ASCIZ
._ASCIZ

/XINXANUMBER OF LINE PRINTERS UNDER
/XNXAONLY 16 WILL BE TESTED./

1791
1792

006010
006045

042504
045

057120
022516

051505
044101

READY:
NOCLCK:

.ASCIZ
.ASCIZ

/DEPRESS 'RETURN'' WHEN READY./
/XNXAHARDWARE CLOCK NOT AVAILABLE./

.WORD

O

};gg

};gz

005731

006107

};gg

006200

1797
1798
(3
(3)
1799

006202
006202
006202

EXIT

104432
000372

045

045

022516

000000

051101

040501

MRESET:

NgTéM:
.EVEN

PLOC:

LASCIZ

1805
1389

.
:

RESVEC::

010346
010446

005703
003417

et S S TS S

002012

R4, CLOCKP

MOV

aCLOCKP,CLKCSR

MOV
TRAP

#PRI00,R0O
C$SPR]

TRAP
.WORD

CSEXIT
L10004-.

16./

et D

TRAP
,

CS$INIT

ittt

FUNCTIONAL DESCRIPTION
THIS SUBROUTINE WILL SETUP ALL UNITS VECTOR AREAS
TC THE °'NORMAL' INTERRUPT ROUTINES STARTING AT INTOO.

PUSH
LET

005004
013703

RESVEC

MOV

500508

/7XNXAAUTO PRINTING SPEED MEASUREMENT CANNOT BE PERFORMED./

L10004:

e

CLKTYP
43

/XNXARESET LINE PRINTER(S) AND PLACE ON LINE.ZN/

104417
R
;
.

006204
006204
006206
006210
006210
006212
006212
006216
006216
006216
006220
006222

.ASCIZ

TEST EXCEEDS

.LIST BEX
ENDINIT

1800
1801
1802
1382

1808
1809
(2)
(3)
1810
(4)
1811
(4)
1812
(4)
(6)
(9)
1813

INIT

.NLIST BEX

022516

(Mp

BNE

50050%:

SETPR] #PRIOO

000000

CLKTYP,
&2
50047%

R3,R4
R4

LET R3

:= #0
:= LSUNIT

WHILE R3 GT #0 DO

SETVEC (PVEC(R&4),

50051%:
LPINTR(R4),

#PR]04

MOV
MOV

R3,-(SP)
R4 ,-(SP)

CLR

R4

MOV

LSUNIT ,R3

TST
BLE

R3
50052%

CZLPLAQ LP25 TEST
CZLPLA.P11

(7)

(6)
(5)
(4)
(3)
(2)
1814
(6)
1815
(6)
1816
(4)
(3)
1817
(2)

(3)

818

819

006222

006226
006232
006236
006242
006244
006250
006250
006254
006254
006256
006256
006260
006260
006260

006262
006264

MACY11

01-0CT=-79 09:25

012746

016446
016446
012746
104437
062706
062704

005303
000757
012604

012603
000207

30A(1052)

01-0CT-79

09:27

L

PAGE

17-5

INITIALIZATION SECTION

4

SEQ 0050

000200

002634
002400
000003
000010
000002

LET R4

:

R4

LET R3

:- R3 - M

RTS

PC

#PR104 ,-(SP)

ADD

#2 R4

DEC

R3

BR

50051%

MOV

(SP)+ R4

MOV
MoV
MOV
TRAP
ADD

+ 42

-ENDDO
POP R4 ,R3

MOV

50052%:

MOV

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

(SP)+,R3

MACY11
CZLPLAQ LP25 TEST
CZLPLA.PTT
01-0CT-79 09:25

30A(1052)

01-0{T-79

PAGE 18

M

SEQ 0051

CLEANUP CODING SECTION

.SBTTL

006266

09:27

STARS

CLEANUP CODING SECTION

RN AR AR R A AR

R R AR A R R A RN R R AR AR AR AR R R R AR

KR E AN AR R AN

AR R NN

AR R AN

;++

s THE PURPOSE OF THE CLEANUP SECTION IS TO CLEANUP ALL PRINTERS UNDER TEST
JAND RETEST ANY UNITS WHICH HAVE BEEN DROPPED FROM TESTING TO INSURE THAT
;THEY HAVE NOT

COME BACK ON LINE.

IF

THE

DEVICE HAS (COME BACK ON LINE

;TESTING WILL BE RESTARTED ON THE DEVICE. THIS INSURES THAT
JIN THE EVENT A PAPER OUT OCCURRED AND THE OPERATOR HAS PUT ADDITIONAL PAPER
JINTO THE UNIT UNDER TEST, THE INITIALIZATION SEQUENCE DOES NOT
JHAVE TO BE DONE AGAIN IN ORDER TO GET THE DEVICE ACTIVE.
STARS
R

AN R R

AR AN AR AR R RN AR AR AR A AR R R AN R RN A AR AR AR R AR

AR AR ANRNRRARR AN CR

BGNCLN

LSCLEAN::

BRESET

104433

013701
005301

002012

005037
000402

002074

005237

002074

023701
003013

002074

013702
006302

002074

005062

002474

012762

177777

005062

002676

CLEAN:

LET RT

:

LSUNIT - M

JNUMBER OF UN]JTS-1

INCR LSLUN FROM #0 TO R1 BY #1
50054%:

50053s:

002574

LET STATUS(RZ2)

:= #0

LET CURCNT(R2)

:- #-1

LET ERRTBL(RZ2)

:= #0

1

END INC

000760

004737

006204

023727
001404
023727
001006

002306

000002

002306

000003

017700
104436
012777

173722

00000C

:= LSLUN SHIFT

JSR

PC,RESVEC

CLRVEC aCLKVEC

173706

;

RESET THE

IF CLKTYP EQ #2 OR CLKTYP EQ #3 THEN

MOV

ENDIF

#0,aCLKCSR

CSRESET

MOV
DEC

LSUNIT,R1
R1

CLR

LSLUN

INC

LSLUN

CMP

LSLUN,R1

MOV
ASL

LSLUN,R2
R2

CLR

STATUS(R?2)

MOV

#-1_,CURCNT(R2)

CLR

ERRTBL(RZ)

BR

500549

MP
BEQ
CMP
BNE

CLKTYP,
#2
50056%
CLKTYP,
43
50057%

MOV

aCLKVEC ,RO

BR

BGT

; DISABLE ALL INTERRUPTS, SELECT ALL LINES
; ZERO ALL ERROR COUNTS
LET R2

TRAP

50055%:

50053%

50055%

VECTORS

:
500568

TRAP

CSCVEC

MACY11
CZLPLAQO LP25S TEST
01-0CT=79 09:25

CZLPLA.PT
(4)
1850

(3)
(3)

1851
1852

006404
006404
006404
006404
006406

30A(1052)

01-0CT=79 09:27 PAGE
CLEANUP CODING SECTION
ENDCLN

104412

ENDMCD

N

4

SEQ 0052

18-1
50057%:
L10005:

TRAP

C$SCLEAN

MACY11
CZLPLAO LP25 TEST
CZLPLA P11
01-0CT~79 09:25
1854
1855
1856
1857

30A(1052)

01-0CT-79 09:27
INTERFACE LOGIC
.SBTTL

006406

PAGE 19

8

SEQ 0053

INTERFACE LOGIC

BGNMOD
24

JTHIS 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 [F IT IS AT THE SAME PRIORITY LEVEL
;AS THE PROCESSOR, BUT WILL

;PRIORITY LEVEL.

013701
005301

002012

INTERRUPT

002300

005237

002300

023701
003402
000137

002300

BONTST

1

LET R1

:= LSUNIT - #1

013702
006302

0023500

032772
001416

100000

002340

052762

002000

002474

005262

002676

013737

002300

"

JMAX NUMBER OF UNITS ON SYSTEM
MOV
DEC

LUNIT
T1C

JUNIT TO O
;DO COMPARE

11c

INC

LUNIT

JUPDATE UNIT NUMBER

(MP

LUNIT,R1

JMP

T1B

BLE

LET R2

JONTO NEXT UNIT

JEXIT LOOP

:= LUNIT SHIFT 1

THEN

LET STATUS(R2)

:= STATUS(RZ) SET.BY #ERROR

LET ERRTBL(R2)

:= ERRTBL(RZ)

+ M

LET LSLUN := LUNIT
ERRHRD 1,CSRERR

JERROR BIT WAS SET.

SAY SO

MOV
ASL

LUNIT ,R2
R2

8IT
BEQ

#BIT15,aLPISR(R?
50060%

BIS

#ERROR,STATUS
(R?

INC

ERRTBL (R2)

MOV

LUNIT,LSLUN

TRAP

CSERHRD

.WORD

(CSRERR

.WORD

003170
000000

LET aLPCSR(R2)

002340

000200

:- #0

ENDIF
;TIME

032772

;DO COMPARISON OF UNIT NUMBER

1%

IF #8]1715 SETIN aLPCSR(R2)

002074

002340

DELAY

LSUNIT,RI
R1

;START LOOP

CLR
BR

104456
000001

005072

IS AT A LOWER

1A

s

007116

THE PROCESSOR

THE PRINTER IS AT PRIORITY LEVEL 4.

sHARD CODED INCREMEMNT LOOP
JINCR LUNIT FROM 40 TO R1 BY M
005037
000402

[F

. IF NOT READY ALLOW 3 SECONDS TO (OME ULP
IF #8177 NOTSETIN aLPCSR(R2) THEN

1

.WORD

O

CLR

aLP(SR(R2)

BIT

#B1T7,8LP(SR(R?)

€0060%:

CZLPLAO LP2S TEST
CZLPLA.PI
(9)
1893
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)

1894
(&)
1895
}ggg

MACYT1 30A(1052)

01-0CT-79 09:25

006520
006522
006522
006526
006530
006534
006536
006542
006544
0046550
006552
006552

012727
000000
013727
000000
0058367
001375
005367
001367

000036

177772

177756
ENDIF

002340

052762

002000

002474

(4)

006570

013737

002300

002074

(6)
1902
(4)
(5)
(5)
(5)
1903

006576
006602
006602
006604
006606
006610
006612

005262

002676

1;82

104456
000002
003206
000000

#30..,(PC)+
0
LSDLY, (PC)e
O
-6(P(C)
=4
=22(P()
=20

:- ERRTBL(R2)

+ #1

:REPORT AN ERROR

MOV

LUNIT, LSLUN

INC

ERRTBL (R2)

TRAP
.WORD
.WORD
. WORD

CSERHRD
2
RDYERR
0

MOV

#12,aLPBUF
(R2)

BIT
BEQ

#BIT07,aLPCSR(R?
50063%

BIS

#ERROR,STATUS(R?

INC

ERRTBL (R2)

MOV

LUNIT,LSLUN

TRAP
.WORD
.WORD
LWORD

CSERHRD
3
ERRM
O

(LR

aLPCSR(R2)

50062%:

. INSURE LOADING CHARACTER CAUSES PRINTER READY TO GO AWAY
006612
006612
006620
006620
006626
006630
006630
006636
006636
006642

1912

006650

'916

:= LUNIT

LET ERRTBL(R2)

MOV
.WORD
MOV
.WORD
DEC
BNE
DEC
BNE

;TEST FOR THE READY BIT
BIT
#BIT07 ,aPCSR(R?
BNE
50062%
SET.BY #ERROR
)
BIS
#ERROR,STATUS
(R¢

ENDIF

006612

1907
(4)
1908
(6)
(9)
1909
(6)
1910
(6)
1911

(4)
(5)
(5)
(5)
1913
(4)
1914
13?3

LET LSLUN

500618

THEN

:= STATUS(R2)

ERRHRD 2,RDYERR

}382

(4)

IF #31T07 NOTSETIN aLPCSR(R2)
LET STATUS(R2)

BNE

50061%:

;
:NOw TEST FOR PRINTER READY

000200

006576

SEQ 0054

002116

032772
001014

1901

(I
PAGE 19-1

DELAY 30.

006552
Q06552
006560
006562
006562

006570

09:27

INTERFACE LOGIC

001014

1898
(6)
(9)
1899
(6)
1900

01-0CT=79

012772
]
032772
001416

000012

002434

000200

002340

052762

002000

002474

005262

002676

006642

013737

002300

006650
006652
006654
006656
006660
006660
006664
006664

104456
000003
007172
000000
005072

002340

002074

LET SLPBUF(R2)
IF

:= #12

#BITO7 SETIN aLPCSR(R2)

THEN

LET STATUS(R2)

:= STATUS(R2)

SET.RY #ERROR

LET ERRTBL(R2)

:- ERRTBL(R2)

+ #1

LET LSLUN

:= LUNIT

ERRHRD 3,ERR11

LET @LPCSR(R2)
ENDIF

:REPORT AN ERROR

:= #0
50063$:

IVERIFY THAT THE PRINTER WILL NOT INTERRUPT IF [T [S AT A PRIORITY (EVEL

MACYT11
C(ZLPLAQ LP25 TEST
01-0CT-79 09:25
CZLPLA P11

30A(1052)

(3)
(3)

1920
(7)
(6)
(S)
(4)

(3)
(2)
1921
(6)
1922
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
1923
1924
1925
1926
1927

(6)
1928

006664
006664
006670

006672
006672
006676
006702
006706
006712
006714
006720
006720
006726
006726
006732
006734
006740
006742
006746
006750
006754

SEQ 0055

012700
104441

000200

012746
012746
016246
012746
104437
062706

000200
007134
002400
000003

052772

000100

012727
000000
013727
000000

000030

001367

;CPU TO PRIORITY 4

SETPR] #PRIO4

SETVEC LPVEC(RZ) ,#INTERR,#FR]04

000010

LET alLP(SR(R2)

002340

DELAY

:= aLPCSR(RZ)

30

JLP VECTOR SET UP

SET.BY #4100

;

ALLOW 3 SEC

MOV

#PR]04 RO

MOV
MOV
MOV
MOV
TRAP
ADD

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

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

BIS

#100,3LPCSR(R2)

MOV
. WORD
MOV
.WORD
DEC

630,(PC)¢

TRAP

; INTERRUPT ENABLE
FOR DELAY

002116
177772

BNE

177756

DEC

BNE
;ThE

006756
006756

042772

000100

012700

000140

1046441

1929
(7)
(6)

(5)

(4)

012746
012746
016246
012746

000200
007164
002400
000003

062706

000010

052772

000100

104437

(3)
(2)
1930
(6)
1921
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
1932
(6)
1933

002340

($SPRI

LPVEC(R2) ,=(SP)

bsDLv,(PC)o

-6(PC)
{

222(PC)
.=20

CPU

LET aLPCSR(RZ)

:= @LPCSR(RZ)

CLR.BY #10C

;CPU TO PRIORITY 3

SETPRI #PRIO3

002340

I ET dLPCSR(RZ2?

:= @LPCSR(R2)

DELAY 30

SET.BY #100
;

007070

177756

002676

013737

002300

104456

LET ERRTRL(R2)

002074

:= ERRTBL(RZ)

LET LSLUN := LUNIT

ERRHRD 4 ,ERR13

#100,aLPCSR(R2)

MOV

#PR103,RO

MOV
MOV
MOV
MOV
TRAP
ADD

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

BIS

#100,aLPCSR(R2)

MOV
.WORD
MOV
.WORD
DEC
BNE
DEC
BNE

#30, PO+

INC

ERRTBL (R2)

MOV

LUNIT,LSLUN

TRAP

C3ERHRD

JINTERRUPT ENABLE

ALLOW 3 SEC DELAY

177772

005262

BIC

TRAP

002116

001367

;CLEAR INTERRUPT ENABLE

SETVEC LPVEC(R2) ,#INTHDL ,#PR]04

000030

(&)

(4)

INTERFACE LOGIC

ENO: TEST THAT THE PRINTER WILL INTERRUPT IF THE PRIORITY IS LOWER THAN

(3)
(3)

1934

D_5
PAGE 19-2

09:27

:THE SAME AS THE (PU

1917

1918
1919

01-0(7-79

+ #1

CSSPRI

C
,=(SP)
VE
LP(R2)

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

LSDLY, (PC) ¢

~6(PC)
=4

~22(P0)
.=20

MACY11
CILPLAO LP25 T EST
CZLPLA.P1T
01-0CT-79 09:25

(&)
1937
1938

007072
007074
007076
007100
007100
007106
007106

000004
007331
000000
042772

000100

005062

000474

002340

1947
1948
1949

007112
007116
007122
007122
007126
007130
007130
007132

000137
004737

006422
006204

012700

000000

104441

ENDZ:

SEQ 0056

LET aLPCSR(RZ)

:

aLPCSR(RZ2)

LET STATUS(R2)

:

#0

CLR.BY #4100

JMAKE

4
.WORD
.WORD
ERR13
. WORD
0
SURE INTERRUPT ENABLE IS C
#100,aLPCSR(R2)
8IC

JMP
JSR

T18:

EXIT

104432

T1A
PC,RESVEC

SETPR] #PR]100

.

RESET

CLR

STATUS(R2)

MCV
TRAP

#PR]100,RC

TST

.UPDATE UNIT #

STANDARD

JEXIT

THE

VECTORS

TEST

TRAP

.WORD

000250

: INTERRUPT HANDLER TO SERVICE FAULTY INTERRUPT FROM LP INTERFACE.
sTHIS ROUTINE IS ENTERED ONLY WHEN THE
cTHE CPU AND IS CONSIDERED AN ERROR.

BGNSRY

007134
007134
007134
007140
007140
007146
007146
007150

(4)

007156

012716

007162

0000C2

(3)
(2)

INTERFACE LOGIC

E.S
PAGE 19-3

SENDINC

1950
1951
(6)
1952
(4)
1953
(4)
(5)

(5)
(5)

09:27

“END OF HARD CODED INCREMENT LOOP

1939

1940
1941
19642
1943
(3)
(3)
1944
(3)
(3)
1945
1946

01-0(T=-79

007152
007154
007156

007162
007162

005262

002676

013737

002300

INTERR: LET ERRTBL(R2)

THE

SAME

+ #1

(SP)

LEVEL

INC

TRAP
.WORD
.WORD

;- WEND?

MOV

ENDSRV

CSEXIT

L 10006-.
AS

ERRTBL (R2)
LUNIT,LSIUN

ERRHRD 5,ERR1?2

LET

007100

INTERRUPTS AT

LET LSLUN := LUNIT

002074

104456
000005
007246
000000

:= ERRTBL(RZ2)

LP

C$SPR]

L 10007:

CSERHRD
W

(5)
(5)
(5)
1935
(6)
1936

30A(1052)

ERR12
0
#ENDZ, (SP)

RTI

L INTERRUPT HANDLER FOR FXPECTED INTERRUPT
007164

INTHDL: LET (SP)

007164

012716

007170
007170

000002

007170

007100

1= #END?2

ENDSRV

MOV

L10C10:

RTI

“ERROR MESSAGES ASSOCIATED WITH THIS TEST
——d —

047514
051120

——

007172
007246

—_ QO

(3)

BGNSRV

(=]
N
~NnN

(4)

007164

047111
042524

"NLIST BEX

ERR11:
ERR12:

.ASCIZ
.ASCI2

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

#ENDZ, (SP)

CZLPLAQ LP25 TEST
MACYTT
CZLPLA PN
01=-0CT=-79 09:25
1970

007331

(3)
(3)

007402
007402
007402

1971
1972

1973

1974
1975

007404

120

007402
104401

044522

30A(1052)

052116

01=-C(T=79

09:27

INTERFACE LOGIC

ERR13:

.EVEN
ENDTST

,ASCIZ

L]ST BEX
ENDMOD

F

PAGE 19-4

/PRINTER DID NOT

SEQ 0057
INTERRUPT AT PRIORITY

3/

L 10006:

TRAP

CS$ETST

CZLPLAO LP25S TEST
CZLPLA.P1i

MACY11

01-0CT7-79 09:25

30A(1052)

}g;g
1979

01-0(T=-7G

READY LINE

.SBTTL
007404

09:27

PAGE 20

G

5

SEQ 0058

INTERLOCKS

READY LINE

INTERLOCKS

8GNMOD

1981
1982
1983

:THIS TEST CHECKS THE OPERATION OF
:PRINTER READY INTERLOCK SWITCHES.
JMANUAL INTERVENTION IS USED TO

1985
1986
1987

:IN THE PRINTER AFTER WHICH THE RESULTANT ERROR
JINDICATION IS VERIFIED.
-

1984

1988
1989
(3)
1990
1991
(3)
1992
(2)

1993
(3)
(3)

199¢
1995
(6)
(9)
1996
(3)

1&3;

;OPEN THE

007404
007404
007404
007404

007406
007406

007410
007410
007412

007414
007414
007420
007422
007422

007424

BGNIST

103402

EXIT

104432
002036
(€02244

007426

005037

002262

(4)

007432

013701

002012

2002
2003

007440

(7)
(5)
(5)
(7)
2004
(4)
(7)
2005
(6)
(9)
(6)

268%

(4)
(5)
(4)

2006
2007

007432

007436

007440
007444
007446

005301

002300

007446
007452
007452
007456
007460
007460
007464
007466
007466
007474

005237

002300

023701
003020

002300

013702
006302

002300

032772
001410

100000

007476

005262

002676

007502

12::

IS ALLOWED

11%

TST

IF MANUAL INTERVENTION
INHINT EQ #0 THEN

TESTS ARE

NOT

SPECIFIED

TST

LET

FLAG

LET R1

:

:=

{SUNIT

- 1

)

IF

8CS

118

TRAP
. WORD

CSEXIT
L10011~,

TST
BNE

INHINT
50064%

500658%:

:= LUNIT SHIFT

1

#81715 SETIN aLPCSR(R2)

LET ERRTBL(R2)
ERRHRD 6,

CSEXIT

.WORD

L10011-,

CLR

FLAG

MCV

50066%:

002340

CSMAN
|

500648
:

#0

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

LET R2

TRAP

TRAP

ENDIF

005037
000402

007476

INTERVENTION

002024

(4)

2000

TEST
IF

EXIT

104432

007426
007426

007426

CEXIT
11%:

FAULTS

2

BCOMPLETE

1998
(4)

1999

TO PRODUCE

:DETERMINE IF MANUAL
MANUAL

104450

005737
001002

INTERLOCKS

THE

THEN

:- ERRTBL(R2)
(SRERR

+ #

LSUNIT,R1

DEC

R1

(LR
BR

LUNIT
50065%

INC

LUNIT

cMP
BGT

LUNIT
R
50067%

MOV
ASL

LUNIT.R2
R2

8IT
BEQ

#BIT15,8LPCSR(R?
50070%

INC

ERRTBL (R2)

MACY11
CZLPLAO LP2S TEST
01-0CT-79 09:25
CZLPLALPTY
(6)
(5)
(5)
(5)

2008
(4)
2009

007502
007504
007506
007510

007512
007512
007516

(4)

007516

(3)

007520

2010
(4)

007516
007516

2011
2012
(4)
(5)

007520
007520
007524

(7)
(5)
(5)
{(7)
2013

007526
007532
007532
00753
007540

(&)

(4)
(7)

007526

007540
007544

2014
2015
(6)
(9)
2016
(6)
2017
(4)
(5)
(5)

007546
007546
007554
007556
007556
007562
007562
007564
007566

2018

007572

(5)

007570

(4)

007572

(4)
(3)

007572
007574

2019

2020
2021
2022
2023
(4)
2024
2025
2026

2027
2028
(4)
(7)

2029
2030
2031
2032
2033

007572

007574

007574

007600
007604
007606
007606
007612
007612
007616

007620
007620
007624
007626
007632

30A(1052)

H

01-0CT=79 09:27 PAGE 20~1
READY LINE INTERLOCKS

104456
000006
003170
000000

005072

5

SEQ 0059

LET QLP(SR(R2)

002340

:- #0

ENDIF

C$ERHRD
6
CSRERR
0

(LR

aLPCSR(R2)

BR

50066%

CLR
BR

LUNIT
500718

INC

LUNIT

CMP
BGT

R]
LUNIT
50073%

50070%:

ENDINC

000753

005037
000402

002300

005237

002300

023701
003016

002300

013702
006302

002300

032772
001006

000200

005262

202676

;CHECK FOR READY IN EACH PRINTER UNDER TEST
iNCR LUNIT FROM #0 TO R1 BY #1

50G7"$:

LET R2

:- (UNIT SHIFT

1

IF #BITO7 NOTSETIN QLPCSR(R2)

002340

LET ERRTBL(R2,

:

ERRTBL(R2)

MOV

THEN

+ #1

ERRHRD 7. RDYERR

ENDIF
END INC

000755

SVERIFY OPERATION OF PAPER LOW INTERLOCK SWITCH
“HARD CODED INCREMENT LOOF
005037

002374
002300

005237

002300

013702
006302

002300

023701
003402
000137

002300
010110

50067%:

50C '2%:

104456
000007
003206
0000CO

005037
000405

.WORD
.WORD
.WORD

TRAP

)
2%:

1%:

3%

LET ERRFLG := #0
(LR LUNIT
1%
BR
INC LUNIT
LET R2 := LUNIT SRIFT 1

R2

BNE

B1T

#B1T107,PCSR(R2
50074%

INC

ERRTBL (R2)

TRAP

CSERHRD
4

. WORD
. WORD
.WORD

RDYERR

BR

50072%

(LR

ERRFLG

0

50074%.

50073$:

MOV
ASL

(MP LUNIT,R1
BLE 3%
M LS

LUNIT,R2

ASL

LUNIT,R2

R2

-

(2LPLAQ LP2S TEST
CILPLA.PIT

2034

(&)
2035
(8)
(7)
(6)
(3)
(&)
(&)

MACY1T 30A(1052)

01-0CT=79 09:25

0C7632

007632
007636
007636
00764c
007646
007652
007654
007656

005037

00226¢

013746
012746
012746
010600
104417
062706

002300
010542
000002

(7)

007662

012746

010612

2037

007702

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

007662

007666
007672
007674
007676

(3)

007702

(4)

007706

(3)
(5)

000006

000004

007714

007716

100000

012737

000014

(3)
2041

007730
007720

(6)

007764

005237

002264

(4)
(6)
(4)
(7)
(4)
2044
(6)
(9)

007770
007776
010000
010004
010006
010006
010006
010012

023727
001403
005737
001751

002264

005737
9001006

002324

(6)

010014

005262

002676

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

010020
010022
010024
010026

104456
000010
003230
000000

(4)

010030

(8)
(7)

010030
070034

(6)
(3)
(&)

MOV
MOV
MOV
MOV
TRAP
ADD

LUNIT,=(SP)
NPAPRSW,-(SP)
n2,-(SP)
SP,RO
CSPNTF
#6,SP

MOV

#PAPSW1 ,-(SP)

1RAP

CSGMAN

.WORD

FLAG

. WORD

READY

(LR

L INCNT

MOV

#14 ,0UTBUF

INC

L INCNT

CMP
BEQ
TST
8EQ

LINCNT
#3
50076%
ERRFLG
50075%

TST
BNE

ERRFLG
50077%

INC

ERRTBL (R2)

TRAP
.WORD
.WORD
.WORD

(SERHRD
8
PAPSWI
O

MOV
MOV

LUNIT ,-(SP)
#PAPRDY ,-(SP)

. WORD

007722

2048

YES

006010

(4)

2047

100000,

FLAG

000130

0022¢4

2046

FLAG,

(LR

MOV
MOV
TRAP
ADD

002262

005037

2045

GMANIL READY,

104443

007716

2043

PRINTF #FAPSWI

000001

(4)

2042

PRINTF #PAPRSW,LUNI]T

007710

007716

2040

LET FLAG := #0

B8R

(3)

2039

SEQ 0060

INTERLOCKS

000404

007712

2038

READY LINE

S
1
PAGE 20-2

09:27

007704

(S)

(5)

012746
010600
104417
062706

01-0("=79

007722

007730

007764

(007770

010014

010020

010030

010030
010040
010044
010046

002742

LET LINCNT

:

#0

LET OUTBUF

:

#1¢4

100008:

REPEAT
OUTPUI #QUTRUF
,#1 4SS, LUNIT

013746
012746

012746
010600
104417

LET LINCNT
000003

UNTIL LINCNT EQ #3 OR ERRFLG NE #0

002324

LET ERRIBL(R2)

:- ERRIKL(RZ2)

002300
010670
000002

50076%:

+ m

ERRHRD 8, PAPSWI

ENDIF

PRINTF #PAPRDY,LUNIT

100008
T$CODE

100000

50075%:

:= LINCNT + M

IF ERRFLG EQ #0 THEN

.WORD

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

50077%:

MOV
MOV
TRAP

#2,-(SP)
SP,RO
COPNTF

MACY11
(ZLPLAO LP2S5 TEST
CZLPLA P
01-0CT1-79 09:25
(4)

2049
(4)

2050
(3)
(3)
(&)

(5)
(5
(5)
(3)
2051
2052

010050
010054
010054
010060
010060
010062
010064

010070
010072
010074
010074

062706

000006

005037

002262

30A(1052)

888
a-a—

010

(o Yo ¥Yol

2056
2057
2058

010

— PourQuor
Qhnr

(4)

100000

000137

007606

012737
000207

000001

002300

013702
006302

002300

(4)

013737

002300

(4)

005037

002262

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

013746
012746

002300
010753
000002

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

012746
012746
010600
104417
062706

o [olele]

e

023701
003077

— paur Gaur Ghrd

002300

o QOO

005237

(&)

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

2060
2061

2062

000006

2063

(4)

2064
(3)
(3)
(4)

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

2065

016210
010214
010214
010216
010220
010222
010224
010226
010230
010230

104443

10001%:

JMP 2%

(LR

FLAG

TRAP
BR

CSGMAN

.WORD
. WORD
.WORD
. WORD

10001%

FLAG

T$CODE

READY

100000

:EXPECTED ERROR HANDLER.
*JUST SET EXPECTED ERROR INDICATOR.
002324

8¢:

LET ERRFLG :- #1
RTS PC

#1 ERRFLG

;AND Rt TURN

:VERIFY OPERATION OF HAMMER BANK INTERLOCK SWITCH

002300

(5)

ADD

GMANIL READY,FLAG,100000,YES

104443
000404
002262
000130
006010

005037
000402

(4)

SEQ 0061

LET FLAG := #0

2053

2054
2055

J_
5
01-0CT-79 09:27 PAGE 20-3
READY LINE INTERLOCKS

011037
006001
000004

i$:

INCR LUNIT FROM #0 TC R1

BY #1

LUNIT
50100%

50101%:

LUNIT

50100%:

LUNIT,R1
50102%

LET R2 := LUNIT SHIFT 1

002074

LUNIT ,R2

R2

LET LSLUN := LUNIT
LET FLAG
PRINTF

LUNIT,LSLUN

:= #0

FLAG

AHAMRSW,LUNIT

LUNIT,=(SP)

#HAMRSW,
- (SP)

#2,-(SP)

PRINTF

TRAP
ADD

AHAMSWI1

100000,

YES

000404
002262
000130
006010
100000

IF #81T15 SETIN BLPCSR{R2)

THEN

10002%:

#6,SP

MOV
MOV
MOV

#HAMSW1T
, - (SP)
#1.-(SP)

ADD

46 ,SP

TRAP

CSGMAN
1000°%

TRAP

CMANIL READY, FLAG,

SP,R0O
CSPNTF

BR
. WORD
.WORD
.WORD
.WORD

SP,RO
CSPNTF

FLAG

T$CODE
READY

100000

MACY11
(ZLPLAQ LP25 TEST
CZLPLA.P11
01-6CT-79 09:25
(6)
(9)

2066
(8)
(7)
(6)

(3)
(4)
(4)

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

(5)
(5)
(3)

2068
(4)

(3)
2069
(6)
2070
(&)

207
2072
(4)

(5)
(%)
(5)

2073
(4)

2074
(4)

(3)
2075
2076

010230
010236
010240
010240
010244
010250
010254
010256
010260
010264
010264
010266
010270
010272
010274
010276
010300
010300
010300
010302
010302
010302
010306
010306

010314
010314
010316
010320
010322
010324
010324
010324
010324
010326
010326
010326
010332
010334
010334
010340
010340

032772
001421

100000

013746
012746
012746
010600

002300

062706

000006

104417

005262

002676

013737

002300

100000,

TRAF
ADD

YES

TRAP

002074

LET LSLUN

+ #1

LUNIT

(4)

005037

002262

013746
012746

002300
011212
000002
000006

#2,-(SP)

SP,RO
CSPNTF
#6,SP

CSGMAN
10003$

FLAG

T$CODE

READY

100000

BR

501048

INC

ERRTBL (R2)

TRAP

50102%:

50106%:
50105%:

:~ LUNIT SHIFT

1

LET FLAG := #0
PRINTF

LUNIT ,=(SP)

#HAMRDY
, - (SP)

(SERHRD

.WORD
-WORD
.WORD

9
BNKSWI

B8R

50101%

CLR

LUNIT
50105%

INC

LUNIT

CMP
BGT

T
LUNIR1
50107%

MOV
ASL

RZ

CLR

FLAG

MOV
MOV
MOV
MOV

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

0

50104%:

JVERIFY OPERATION OF CHARACTER BAND INTERLOCK SWITCH
INCR LUNIT FROM #0 TO R1 BY #1

LET R2

BR
.WORD
.WORD
.WORD
.WORD

#BIT15,8LPCSR(RZ
50103%

LUNIT,LSLUN

ENDINC

002300

104417
062706

ERRTBL(RZ)

ENDIF

000674

010600

=

:=

50103s%:

ERRHRD 9, BNKSWI

000011
003273
000000

N2746

10003%:

LET ERRTRL (R2)

104456

013702
006302

(4)
(4)

MOV
MOV
MOV
MOV

El SE

(4)
(7)

(6)
(3)

WHAMRDY ,LUNIT

GMANIL READY, FLAG,

000411

002300

2079
(8)
(7)

PRINTF

100000

023701
003074

2078

BIT
8EQ

002262
000130
006010

002300

2077

SEQ 0062

INTERLOCKS

002340

104443
000404

005237

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

READY LINE

K
5
PAGE 20-4

09:27

-

002300

(5)

01-0CT-79

011114
000002

00503/
000402

(4)

30A(1052)

#BANDSW,LUNIT

TRAP
ADD

LUNIT,R2

#2,-(SP)

SP,RO
CSPNTF
#6,SP

MACY11
CZLPLAC LP2S TEST
CZLPLA P11
01-0C7-79 09:25
2080
(7)
(6)
(3)

012746
012746
010600
106417
062706

(&)
(4)

2081
(3)
(3)

30A(1052)

5
L
01-0CT=-79 09:27 PAGE 20-5
READY LINE INTERLOCKS
PRINTF

011300
000001
000004

(4)
(5)

#8NDSW1

MOV
MOV
MOV

GMANIL READY, FLAG,

104443
000404
002262

SEQ 0063

100000,

YES

000130
006010

(9
(5)
(3)
2082

100000

(6)
(9)

032772

(8)
(7
(6)
(3)

013746
012746
012746
010600

001421

2083

100000

IF #BIT15 SETIN @LPCSR(R2)

002340

PRINTF

002300
011347
000002

100048
:

THEN

104417

(&)
(4)

062706 -000006

2084
(3)
(3)

GMANIL READY, FLAG,

104443

100000,

YES

000404
002262
000130
006010

(4)

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

10005%:

ELSE

000411

005262

002676

013737

002300

LET ERRTBL(RZ}

002074
.

ERRHRD

104456

:= ERRTBL(R2)

+ M

10,

BNDSWI

ENDIF
END INC

000677

EXIT TST

104432
000710

047045

CSGMAN

0460445 _042524

PAPRSW:

.ASCIZ /XINXATEAR OFF PAPER JUST BELOW LUNIT ¥D2/

T$CODE
READY

100000

#8IT1S,aLPCSR(R2
501108

MOV
MoV
MOV
MOV
TRAP
ADD

LUNIT,=(SP)
(SP)
, - DY
#BNDR
#2,-(SP)

TRAP

CSGMAN
10005%

-WORD

SP,RO
CSPNTF

#6,SP

FLAG

T$CODE

READY

100000

50111¢%
INC

ERRTBL (R2)

MOV

LUNIT,LSLUN

TRAP
-WORD

-WORD
50111s:

50107%:

10004$

FLAG

BIT

B8R
TRAP

.WORD

.NLIST BEX

010542

TRAP

BR
.WORD
-WORD
. WORD
. WORD

50110%:

LET LSLUN :- LUNIT

000012
003340
000000

010540

w6 ,SP

BR
.WORD
.WORD
.WORD

100000

SP,RO
CSPNTF

TRAP
ADD

BEQ

AB8NDRDY,LUNIT

#BNDSW1,-(SP)

#1,-(SP)

CSERHRD

10
BNDSWI
0

MACY11
CZLPLAQ LP2S TEST
CZLPLA.PT
01-0CT-79 09:25
010612
010670
010753
011037
011114
011212
011300

SIRLLIER

o

Py i S-S
Gl S

[aN1aV 1,81

2104

011347

011450
011450
011450
011452

040445
047045

045

045
047045
047045
047045
045

052040
040445
022516
022516
040445
0404465
040445
022516

30A(1052)
020117
042522
042101
052101
047105
050117
044103
041501

01-0CT=79

READY LINE

PAPSW1:

:
PAPRDY
HAMRSW:

HAMSW:

:
HAMRDY
BANDSW:

BNDSW1:
BNDRDY:
.EVEN

ENDMOD

PAGE 20-6

5

SEQ 0064

INTERLOCKS

/XA TO CHECK PAPER LOW XNXAINTERLOCK SWITCH.ZN/
LASCIZ
/INXARESTORE PAPER AND PLACE LUNIT XD2XA ON LINE.XN/
LASCIZ
/XNXAD
] SENGAGE HAMMER BANK LATCH SWITCH ON LUNIT XD2/
LASCIZ
/INXATO CHECK HAMMER BANK INTERLOCK SWITCH.ZXIN/
LASCIZ
/XNTAENGAGE HAMMER BANK LATCH AND PLACE LUNIT XD2XA ON L INE.IN/
LASCIZ
/INXAOPEN CHARACTER BAND COVER ON LUNIT XD2XA TO CHECK/
LASCIZ
/XINXACHARACTER BAND INTERLOCK SWITCH.XIN/
LASCIZ
.ASCIZ/XNXACLOSE CHARACTER BAND COVER ON LUNIT XD2XA AND PLACE ON LINE./

.LIST BEX
ENDTST
104401

09:27

M

L10011:

TRAP

CSETST

CZLPLAQ LP2S TEST
MACY11 30A(1052)
01-0CT-79 09:27 PAGE 21
CZLPLA.PI
01-0CT-79 09:25
FORMS LENGTH SELECTION
2112
g}lz

N

S

SEQ 0065

.SBTTL FORMS LENGTH SELECTION
8GNMOD

011452

XX

2115

:THIS TEST CHECKS ALL POSITIONS QF

2117
2118
2119
2120
2121
2122
2123
(3)
2124
2125

JAND WAITS FOR THE OPERATOR TO SET THE SWITCH ON THE PRINTER. THE PAPER
;1S THEN ADVANCED UNDER PROGRAM CONTROL. THE PRINTER OUTPUT IS VISUALLY
:INSPECTED AFTER ALL SWITCH SETTINGS HAVE BEEN RUN THROUGH BY THE OPERATOR
:TO VERIFY THAT THE PROPER PAPER MOVEMENT HAS OCCURRED FOR EACH SWITCH
;SETTING.
s
BGNTST
3
T3::
:CETERMINE IF MANUAL INTERVENTION IS ALLOWED
MANUAL

2116

011452
011452

(3)
2126

011452
011452
011454

2127

011456

(2)

(3)
(3)

2128
2129
2130
2131
(3)
(3)
2132
Slgz

104450

011454

103402

011456
011460

104432
002164

011462
011466
011470
011470
011472

005737
001002

BCOMPLETE

002244

104432
002152

JHARD CODE

011530
011534
011536
011542
011546
011550
011554
011554

2145

011562

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

2147

005037
000402
005237
023701
003402
000137

002300

011554
011560

013702
006302

002300

011562
011566
011572
011576
011600
011602
011606
011606
011612
011616
011620
011622

013746
012746
012746
010600
104417
062706

002300
012340
000002

012746
012746
010600
104417
062706

012424
000001

011626

INTERVENTION TESTS ARE NOT SPECIFIED

JPRINT TEST IDENTIFICATION
2%:
OUTPUT #FRMLTH, #25.

011474

2137
2138
2139
2140
2141
2142
2143
2144

1%

JEXIT TEST IF MANUAL
1%:
TST INHINT
BNE 2%
EXIT TST

002300
002300
012276

000006

000004

5%:
4%:
6%.

CLR
BR
INC
(MP
BLE
JMP

THE

THE FORM LENGTH SELECT SWITCH

EXIT TST

%}%2

(4)
(7)

THE FORM LENGTH SELECT SWITCH.

:PROGRAM INDICATES THE SPECIFIED SETTING OF

TRAP

CSMAN]

B(CS

1%

TRAP
-WORD

CSEXIT
L10012~-.

TRAP
.WORD

CSEXIT
L10012-.

INCREMENT LOOP

LUNIT
43
LUNIT
LUNIT,R1
6%
7%

:COMPARE LOOP
CEXIT ONLY IF GREATER THAN
JEXIT

LET RZ2 := LUNIT SHIFT 1

PRINTF #LINSWI,LUNIT

sPRINT LUNIT MESSAGE

PRINTF #LINSW1

;SECOND PART OF MESSAGE

PRINTF #FLSSEL,LUNIT

JSET TO "FLS'' POSITION

MOV
ASL

LUNIT,R2
R2

MOV
MOV
MOV
MOV
TRAP
ADD

LUNIT,~(SP)
#LINSWI ,~(SP)
#2,~(SP)
SP.RO
CSPNTF
#6,SP

MOV
MOV
[0}
TRAP
ADD

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

MACY11
CZLPLAQ LP2S TEST
CZLPLA PN
01-0CT-79 09:25

013746
01746
012746

(8)
(7)
(6)

(3)
(4)
(&)

2148

30A(1052)

01-0("=79

B 6
PAGE 21-1

09:27

SEQ 0066

FORMS LENGTH SELECTION

002300
012504
000002

MOV
MOV
MOV

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

000006

TRAP
ADD

CSPNTF
#6,SP

CLR

R&

ADD

#2,R4

MOV

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

(4)

(S)

(4)

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

50113s:

00000¢

50112%:

000024

AS.

2150
2151
(4)
(6)

012737
060337

013175
012302

(9
(8)
(7)
(6)

013746
013746
012746
012746
010600

012302
002300
013251
000003

062706

000010

012746
012746
010600

013343
000001

062706

000004

005037

002262

2152

(3

104417

(4)
(4)

(4)

2160
(3)
(3)
(4)

(5)
(%)
(5)

Gour G
Gy G
itar G
-Gt

756
762

FREERXRN

(3)
2156
2157
2158
2159

s Ginr Ghisr

(%)

G

(5)

(5)

i Grunsiesr Guur Ganr

(4)

Ghuy Pt

2155
(3)
(3)

Qe G

(4)

i

2154

PNONUNONONVMNVPONINDNUN)
VN D D
DD
D D
D
—r i
)
) o
)
) —b = QO NNNNNNYN ~
~
o
WA
NONY
n
OOV
NO
o

(3)

&)
(4)

[elelolelololeolelalolelalalolololololololololeolole]

(7)
6)

Guurd

2153

104417

104443

012302

LE'

R3

T3SET

:= WFFSET + R3

MOV
MOV
MOV
MOV

#FLSMS1

GMANIL READY,FLAG,100000,YES

;WAIT FOR OPERATOR

100000

MOV
MOV
MOV

#FLSMS1,-(SP)
M ,-(SP}
SP,RO

CL

002262

CSPNTF

CSPNTF
#6 ,SP

100008:

LA

G

TRAP

CSGMAN

.WORD

FLAG

.WORD

READY

.WORD

WORD

10000

TSCODE

100000

OUTPUI #REFLIN,#133.,
. LUNIT

;OUTPUT REFERENCE LINE AND TERM] NATOR

EE}P?{AE"OV"ES"13°'"LU"IT

:FINAL REFERENCE LINE

OUTPUI T3SET.
43, . LUNIT

000130
006010

#10,SP

BR

100000

104443
000404
002262

ADD

;CLEAR FLAG INDICATOR FOR l;ANUALF

000404
002262
000130
006019

005037

#3,-(SP)
SP,RO

TRAP
ADD

:= #0

T3SET,~(SP)

LUNIT,~(SP)
WFLSMSG,-(SP)

MOV
MOV

TRAP

LET FLAG

MFFSET, T3SET

R3,T3SET
ADD
JSELECT MESSAGE

PRINTF AWFLSMSG,LUNIT T3SET

PRINTF

501128

[
R4 420,
501148
BGT
JINDEX INTO SWITCH SETTING TABLE
MOV
R4 ,R3
JACTUAL OFFSET FOR SWITCH SETTINGS

LET R3 := R4

(4)

B8R

SP,RO

;# OF LINES FOR SPACING

GMANIL READY,FLAG,100000,YES

FLAG

CSGMAN
10001$%

FLAG

T$CODE

READY
100000

CZLPLAOQ LP2S TEST
CZLPLA.P1T
(3)

012142

(4)
(3)

012142
012144

2163

012144

2161

2162

012142

MACY11

01-0CT=79 09:25

013746

(3)
(4)
(64)

012160
012162
012164

010600
104417
062706

2164
(4)
2165
2166

(7)
(6)
(3)
(64)
(4)
2167
(4)

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

012170
012170
012176
012232

012746
012746

000006

012232
012236
012242
012264
0122646
012252
012252

012746
012746
010600
104417
062706

012603
000001

005037

002262

012256
012260
012262
012264
012266
012270
012272

104443
000404
002262
000130
006010
100000

000004

000137

2172
2173
2174
2175
2176
2177
2178
2179
2180

012302
012304

000000
000000

012306
012340
012424
012504
012603
012675

047506
047045
047045
047045
045
122

046522
040445
040445
022462
022516
043105

020123
042523
020066
051501
053101
051105

013067
013103

056
045

027056
022516

027056
051501

063
063
064
065
066
067
070

020040
032456
020040
032456
020040
020040
020040

2182
2183
2184
2185
2186
2187
2188
2189
2190
2191

012772

013175
013201
013205
01321
013215
013221
013225

011536

7$:
EXIT TST

104432
001344

027056

LET OUTBUF

002742

012272
012276
012276

2181

10001$.
501148%:

027056

027056

000
000
000
000
000
000
000

REFLIZ2:
NMLFLS:
;SWITCH
FFSET:

MoV

#14 ,0UTBUF

JMAKE SURE MOVEMENT WAS RIGHT

LET FLAG

;CLEAR <CR> FLAG

:= 40

LUNIT,=(SP)

MNMLFLS ,=(SP)
#2,-(SP)

MoV
TRAP
ADD

:- #14

501138

MOV
MOV

QUTPUI WOUTBUF
,#1, ,LUNIT
PRINTF #PAP(HK

SP,RO
CSPNTF
#6,SP

MOV
MoV
MOV
TRAP
ADD

#PAPCHK ,~(SP)
#1,-(SP)
SP,RO
LEPNTF
N6 ,SP

CLR

FLAG

TRAP
BR
.WORD
.WORD
.WORD
.WORD

CSGMAN
100023
FLAG
T$CODE
READY
100000

TRAP
.WORD

CSEXIT
L10012-.

GMANIL READY,FLAG,100000,YES

JAND WAIT FOR RESPONSE

JMP

100028
:
JEND OF HARDCODeD INCREMENT LOOP

T35ET:
.WORD
T3MOV:
.WORD
.NLIST BEX
FRMLTH: .ASCIZ
LINSWI: .ASCIZ
LINSW1: _ASCIZ
FLSSEL: .ASCIZ
PAPCHK: .ASCIZ
REFLIN: .ASCII

REFLIT:

BR

MOV

013103
000002

000014

012276
012300

SEQ 0C67

PRINTF AMNMLFLS,LUNIT

2169
2170
2171
(3)
(3)

c_6

PAGE 21-2

FORMS LENGTH SELECTION

002300

012737

012256

09:27

JSET FORMS LENGTH SELECT SWITCH TO ITS 'REGULAR'' SETTING

012146

012150
012156

01-0CT=-79

END INC

000645

(8)

(7)
(6)

30A(1052)

LASCII

5%

0
O

/FORMS LENGTH SELECTION/<12><12><12>
/XINXASET LINES SWITCH ON UNIT XD2XA TO "'6'' TO SELECT/
/XINXAG6 LINES PER INCH VERTICAL PRINTING DENSITY./
/XN2XASET VFU-FLS SWITCH ON UNIT XD2XA TO THE 'F¥LS'' POSITION.XN/
/XNXAVERIFY PROPER PAPER MOVEMENT FOR EACH SWITCH SETTING./
/REFERENCE LINE FOR FORMS LENGTH SELECTION........ccvvveuennn. /
/uuuuieneneenaueseeeueeasaaueaasoaeannoaeecosnsasanasancannsns /

.ASCIZ /.......... /<14>
.ASCIZ /XNXASET FORMS LENGTH SELECT SWITCH ON UNIT ¥D2XA TO 11.%N/
SETTINGS _FOR FORMS LENGTH MESSAGES
ASCIZ /3 /
LASCIZ /3.5/
LASCIZ /4
/
LASCIZ /5.5/
LASCIZ /76 /
LASCIZ /7 7/
LASCIZ /78
/

MACY11
CZLPLAQ LP2S TEST
CZLPLA PN
01-0CT~/9 09:25

2192
2193
2194
2195

2196
2197
2198
2199
2200
2201
2202
2203
(3)
(3)
2204
2205

01323
013235
013241
013245
013251
013343
013440
013535
013633
013644
013644
013644
013646

070

061
061
061

045
045

044440
056
056
013644

032456
020061
020062
020064
022516
022516
041516
027056
027056

30A(1052)

01-0(T~79

FLSMSG:

FLSMST:
MOVMSG:

1:
MOVMS
MOVMS?:

SEQ 0068

.ASCI Z
.ASC] 2
LASC] 4
.ASCI 4
.AS(CI 4
LASCI 4
.ASCI I
LASCI 1
4

/1 7
/12 /
/14 /
/INXASET FORMS LENGTH SELECT SWITCH ON UNIT ID2XA

TO XTXA,/
/XNXADEPRESS ''ALARM (LEAR'’, AND PLACE PRINTER BACK ON LINE.ZN/
/

INCHES

SHOULD OCCUR BETWEEN

THIS AND

THE

REFERENCE

LINE

/eeeunn /<12>

.LIST BEX

ENDTST

104401

D
PAGE 21-3

FORMS LENGTH SELECTION

000

027056

(09:27

ENDMOD

L10012:

TRAP

CSETST

MACY11
CZLPLAO LP25 TEST
CZLPLA.P11
01-0CT-79 09:25

2207
2208
2209
2210
2211
2212
2213
2214
2215
2216
2217
2218
(3)
2219
2220
(4)

(6)

2221

(6)
(9)

2222
(3)
2223
(2)
2224
(3)
(3)
2225

(&)

(3)

2228
(6)

2229
(4)

2230
(4)

(3)

2231
(4

2232
(«)

2233
2234
(4)

(5)

(4)

(7)
(5)
(5)
(75

01-0(7=79

09:27

PAGE 22

E

SEQ 0069

PRINTING SPEED MEASUREMENT

.SBTTL PRINTING SPEED MEASUREMENT

013646

BGNMOD
2
R

;PRINTING SPEED IS MEASURED BY OPERATING THE LINE PRINTER FOR A GIVEN PERIOD
;OF

TIME AND ON THE BASIS OF

THE

TIME DURATION AND THE NUMBER OF LINES PRINTED,

sWHICH WILL BE PRINTED ON THE CONSOLE TERMINAL, THE PRINTING SPEED IS

;CALCULATED. AVAILABILITY OF A KW11-L OR A KW11-P CLOCK ALLOWS PROGRAMMED
:DETERMINATION OF

THE TIME INTERVAL WHICH CAN BE SPECIFIED BY THE OPERATOR TO BE

;SYSTEM,

OPERATOR (AN PERFORM

JANY VALUE

BGNTST

013646
013646
013646
013646
013652
013654
013654
013660

013701
005301

002012

005737
001416

00225¢

013772
013772
013776

1%:

002244

000402

JDEERMINE

1F MANUAL

IF

1%

005237

002300

023701
003161

002300

MANSPD

INHINT EQ #0 THEN

LET WORK

002736

CSMANI]

B(CS

19

BNE
TRAP

S0116%:

:= PERIOD

ENDIF

002736

LET WORK

50115%

TRAP

.WORD

CSEXIT

L10013~.
INHINT

50116%
CSEXIT

.WORD

L 10013~

BR

50117%

MOV

PERIOD, WORK

B8R

50120%

MOV

#60. ,WORK

CLR

LUNIT

INC

LUNIT

o

R?
LUNIT

50117%:

ELSE

002300

TST

BEQ

TRAP

ELSE

000074

LSUNIT,R]
R1

INTERVENTION ALLOWED

EXIT TST

002254

MOV
DEC

TST

000403

005037

JNUMBER OF UNITS TO TEST

EXIT TST

000403

012737

T4::

BCOMPLETE

104432
002424

013737

IF A CLOCK IS NOT INSTALLED IN THE

THE PRINTING SPEED MEASUREMENT MANUALLY.

&

MANUAL

104432
002436

013700
013702
013704
013704
013706
013706
013706
013714
013714
013714
013714
013716
013716
013716
013724
013724
013724
013760
013760
013764
013766
013766

THEN THE

IF MANSPD NE #0 THEN

103402

005737
001003

IN THE RANGE FROM &4 TO 60 SECONDS.

LET R1 :- LSUNIT - #1

104450

(6)
(9)

2226
(3)
(3)
2227

30A(1052)

50115%:

= #60.

ENDIF

QUTPUT
#PRTSPD ,#29.
INCR LUNIT FROM #0 TO R By M

JPRINT

TEST

ID

:
501208

50122%:
50121%:

B8R

8G7

50121%

50123%

CZLPLAQ LP25 TEST
CZLPLA P11

2235

014000

2236

014004

(4)

(4)
(7)
2237
(2)
(4)
(3)
(6)
(3)
(3)
(%)
(2)
(2)
(2)
(3)
(4)
(4)
(4)
(4)

~§§é
<l

01-0CT=79 09:25

014000

005037

002324

014006
014010
014012
014012
014016
014020
014026
014026
014026
014032
014032
014036
014036

013702
006302

002300

013746
003403
021627
003402

002306

012716

000005

014040
014040
014042
014044
014046

014050

014052

000137

2242
(4)

014056
014056

000457

2243

014060

2244
(4)
2245
(4)
22646
(7)
(6)
(5)

014066
014066
014072
014072
014100
014100
014104
01464110

(4)

(4)
(3)
252%

2248
(&)
(4)

2249
(4)
(6)

2250
(&)

0146060

014060

014114
014120

014122

014126

50124%:
50125%:

50176%:

CASE
014454

012737

000100

013704

002310

016437

000004

012746
012746
013746
012746
104437
062706

000300
032216
002316
000003

LET R4

:= CLOCKP

LET CLKVEC

002316

;JUST EXIT

:= 4(R&)

SETVEC CLKVEC ,#CLKTCK,#PR106

CLR

ERRFLG

MOV
ASL

LUNIT,R2
R2

MOV
BLE
cMP
BLE

CLKTYP,=(SP)
501248
(SP) ,#4
50125%

MOV

#5,(SP)

ASL

PC, (SP)
a(SP)+
PC

.WORD
.WORD
. WORD
.WORD
.WORD

50133%-50126%
50132$-50126%
50131%8-50126%
50130%-50126%
50127%-50126%

50133s:

CLOCK SELECTED
BR
50132%:

JINTERRUPT ENARLE/ (LR MONITOR
MOV

MOV
GET VECTOR FROM P-TABLE
MOV
:SET UP INTERRUPT VECTOR
MOV
MOV
MOV

:

000010

012737

000111

002320

013704

002310

3

LET CLKSET

;KW11-P REAL

50131%:

:= CLKCSR + #2

LET CLKENA := #1711

TIME CLOCK

JSET UP ENABLE BITS

: RUN, RATE = 10KHZ, REPEAT INTR, DOWN,INT ENABLE
LET R4 := CLOCKP
LET CLKVEC

:= 4(R4G)

;

50127%
#100,CLKENA

CLOCKP
R4
4(R4) ,CLKVEC

ADD

#PRI06,~(SP)
#CLKTCK,=(SP)
CLKVEC ,~(SP)
#3,-(SP)
CSSVEC
#10,SP

BR

50127%

MOV
ADD

CLKCSR,CLKSET
#2,CLKSET

MOV

#1171 ,CLKENA

MOV

CLOCKP R4

MOV
TRAP

CASE

(SP)

ADD
ADD

TEST NO CLOCK AVAILBLE

JKWT1T=L LINE

LET CLKENA :- #100

002320

014144

014156

END4

CASE 2

002314
002314

014152

1
JMP

002312
000002

2¢53

:SET UP THE RIGHT {LOCK

000004

013737
062737

014152

(&)

SEQ 0070

PRINTING SPEED MEASUREMENT

SELECT CLKTYP OF & VERIFY

014130
014136

2251
2252

6

LET R2 := LUNIT SHIFT 1

000433

014144

PAGE 22-1

LET ERRFLG :~ #0

0146126
014130

014130

F

09:27

000012
000020
000070
000154
000156

552?

(47

01-0(T=79

060716
063607

01405¢
014052

30A(1052)

006316

2239
(4)

MACY?1

GET VECTOR FROM P-TABLE

MACY11
CZLPLAQ LP25 TEST
CZLPLA.PTT
01-0CT1-79 09:25
(&)

22564
(?7)
6)
(S)
%)

(3
(2)
2255
2256
(&)

(%)

2257
2258
(3)
2259
(4)

2260
(&)

2261

(4)

2262
(6)
(9)

2263
(&)

2264
(&)

2265
7)
(6)
(3)
(4)
(&)

2266
(&)

(3
2267
(&)

2268
(4)

2269
(7)
6)

(3)
(%)
(4)

2270
(4)

2271
2272
(4)

(3)

2273
2274
2275

014156
014164
0146164
014170
014174
014200
0146204
0146206
014212
014212
014214
014214
014216
014216
014216
014216
014222
0146222
016226
014226
014234
014234
014240
014242
014242
014250
014250
014256
014256
014262
014266
014270
014272
014276
014276
014300
014300
014300
014306
014306
014314
014314
014320
014324
014326
014330
014334
014334
014334
014340
014340
014342

016437

000004

012746
012746
013746
012746

000300
032216
002316
000003

062706

000010

104437

30A(1052)

G_ 6
PAGE 22-2

09:27

SEQ 0071

PRINTING SPEED MEASUREMENT

002316

SETVEC

CLKVEC,#CLKT(K,#PR]06

JINTERRUPT VECTOR

CASE ¢

000401
000240

ENDS?EECY
002264

005037

032270

012737

000074

005737
001017

002246

012737

018712

015152

012737

000205

002736

012746
012746
010600

015547
000001

032272

000004

012737

016120

015152

012737

000205

002736

012746

015630
000001

014514

50130%:

4(R&),CLKVEC
MOV
MOV
MOV
MOV

#PR]106,-(SP)
HCLKTCK,=(SP)

TRAP
ADD

CLXVEC,=(SP)
#3,-(SP)
CS$SVEC
#10,SP

BR

50127%

CLR

L INCNT

CLR

TIME

MOV

#60.,TI1CK

TST

(CHRBND

IS JUST A DUMMY

50127%.

i~ #0

JCLEAR LINE COUNTER

LET

TIME

:

#0

JPRESET SECOND COUNTFR TO O

LET

TICK

:

#60.

JSET UP INITIAL

IF

CLOCK VALUE

CHRBND EQ #0 THEN
LET BNDPAT

LET WORK
PRINTF

:- ATABAG4

;64 (HARA(CTER BAND

-- #133,

;

aLPM64

SHOULD BE 285 LPM.

ELSE

000416

000004

cTHIS

LET LINCNT

005037

104417
062706

01-0CT=79

LET BNDPAT

LET WORK
PRINT:

:

#TABA96

50134%:

BNE
MOV

#TABAGL ,BNDPAT

MOV

#133. ,WORK

MOV
MOV
MOV
TRAP
ADD

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

#4,SP

BR

50135%

;96 CHARACTER BAND

;DO THE OuUTPUT

JSR PC,REPLUP
END INC

#133. ,WORK

; SHOULD BE 204 LPM,

ENDIF

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

6, SP

BR

50122%

*1F MANUAL PRINT SPEED TESTS HAVE BEEN PERFORMED INSURE PRINTERS ARE
WHEN DONE

SP.RO
CSPNTF

TRAP
ADD

50135%:

50123%:
JBACK ON LINE

SP,RO
CSPNTF

#TABASE ,BNDPAT

:~ #133,

#LPM9Y6

50134%

CLLPLAO LP2S TEST
CILPLA.P11

2276
2277

0146342

(9)
2278

014350
014352

(6)

(4)

MACY11 30A(1052)

01-0CT=-79 09:25

014342

001020

002306

2279
(7)
(6)

014356
014356
014362

005037

002262

012746
012746

005731
000001

(43

0164370

104417

3)

(4)

014352

023727

01436

014372

062706

014376

104443

2280

014376

(3)

014400

(3)

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

2281
(&)

2282
2283
(&)

010600

014402
014404
014406
0164410
014412

000004

)

000004

000404

002262
000130
006010
100000

002306

000002

002306

000003

(3)
(3)

014474
014500

013700
104436

(&)

014510

2287
2288
2289
2290
2291
(3)
(3)

5595
%Sgg

014474

014502
014510
014510

014510
014512

2296
2297
2298

014514
014514

2299

014524

(6)
(9)
(7)

(6)
(3)

012777

10000%:

LET QUTBUF

:

#14

OUTPUT #OUTBUF ,#1

END& :

IF

CLKTYP EQ #2 OR CLKTYP EQ #3 THEN

000000

50137%:

CLRVEC CLKVEC
165602

MOV
ENDIF

#0,a3CLKCSR

FLAG

MOV
MOV

MMRESET,-(SP)
a1 ,=-(SP)

023727
001124

002306

014524

012746

015221

000001

000004

CSPNTF

ADD

4 ,SP

TRAP

CSGMAN

.WORD
.WORD
.WORD
.WORD

FLAG
TS$CODE
READY
100000

MOV

#14 ,0UTBUF

CMP
BEQ
cMP
BNE

CLKTYP,
&2
50137%
CLKTYP
43
50140%

MOV
TRAP

CLKVEC,RO
C$CVEC

TRAP
LWORD

CSEX]T
L10013-.

cMP
BNE

CLKTYP,
#4
501418

MOV

#OFFLIN,=(SP;

-JTHIS
'
IS SUBROUTINED TO DECREASE THE SIZE OF THE INITIAL INCREMENT LOOP.
:
REPLUP:

SP,RO

10000%

50140%:

;
EXIT TST

104432
001614

012746
010600

(LR

50136%

50136%:

002316

014514
014522
014530
014534

CLKTYP,
#4

B8R

ENDIF

023727
001404
023727
001006

014454

:WAIT FOR OPERATOR

’

014454
014462
014464
014472
014474

(6)
(8)
(6)
(9)
(6)

;CLEAR <(R> F_AG

GMANIL READY,FLAG, 100000, YES

002742

2286

LET FLAG :- #0

(MP

BNE

TRAP

000014

014420

SEu 0072

PRINTING SPEED MEASUREMENT

MOV

012737

gggé

H_6

PAGE 22-3

PRINTF #MRESET

014412
014412

09:27

;
IF CLKTYP EQ #4 THEN

014412

014412

01-0(T-79

IF CLKTYP EQ #4 THEN
PRINTF HOFFLIN

:TELL OPERATOR TO PLACE PRINTERS OFFLINE
‘

MOV
MOV

#1,-(SP)
SP.RO

MACY11
CZLPLAO LP2S TEST
CZLPLA.P11
01-0C7-79 09:25
(6)
4)

014536
014540

(4)

014544
014550
014550
014552
014554
014556
014560
014562
014564
014564
014564
014570
014576
014600
014602
014604
014610
014610
014614
014620
014624
014626

2300
2301

(3)
W3
4)

(S)
(5)

(5)

(3)
2302
(8)
(7)
(6)
(3)
4)
(4)

2303
(8)
(7)
6)

3

4)
(4)

2304
(8)
(7)
6)
(3)
(4)
(4)

2305
(%)

014544

014630

014634
014634
014640
014644
014650
014652
014654
014660
014660
014660
014666
014670
014672
014672
014674
014674
014674
014700
014700
014700
014706
014710
014710
014714
014714
014720
014720
014720
014722
014724

164417

062706

000004

005037

002262

30A(1052)

01-0("=79

09:27

I

PAGE 22-4

6

SEQ 0073

PRINTING SPEED MEASUREMENT

LET FLAG :- #0
GMANIL READY.,FLAG, 100000, VES

104443
000404
002262
000130
006010

002300
015261

062706

000006

013746
012746
012746
010600

002300
015362

062706

000006

013746
012746
012746
010600

002300
015460
000002

104417
062706

032772
001402
000240

ADD

4 ,SP

CLR

FLAG

TRAP

C SGMAN

.WORD
.WORD
.WORD

FLAG
TS(CODE
READY

. WORD

013746
012746
012746
010600

104417

CSPNTF

8R

100000

104417

TRAP

PRINTF

AONLINT,LUNIT

sPUT

LUNIT

T0

10001%:
TEST ON LINE
MOV

MOV
MOV
MOV

000002

PRINTF

MONL IN2.LUNIT

JEND OF

TRAP
ADD

TEST.

MOV

MOV
MOV
MOV

000002

PRINTF

WHILE #BIT15

SETIN aLPCSR(R2)

DO

;

000772

005037

002264

032772
001031

100000

013705

015152

013703

002736

:

MOV
MOV

#2,-(SP)
SP.RO

WHILE #8]T15 NOTSETIN @LPCSR(R2)

DO

:- BNDPAT

LET R3 :- WORK
WHILE R3 GT #0 DO

.

PRINT R3 CHARACTERS
50146%:

WHILE #B]T7 NOTSETIN aLP(SR(RZ)

CSPNTF
#6,SP

#BiT15,8LPCSR(R2
501432

CLR

L INCNT

BIT
BNE

#MIT1S,al PCSR(R?
50145%

MOV

BNDPAT
RS

MOV

WCRK ,R3

REPE§612?;IL LP GOES OFF-LINE

(002340

LET RS

#ONL IN3,-(SP)

50142%

50143%:

#0

LUNIT,=-(SP)

INZ .= (SP)
#ONL
#2,-(SP)
SP,RO

LUNIT,=(SP)

BIT
8tQ

LET LINCNT

CSPNTF
#6,SP

MOV

WAIT rogogzzgsr ON~L INE

NOP
ENDDO

LUNIT,=(SP)

#ONL IN1,-(SP)
#2,-(SP)
SP,RO

CSPNTF
#6,SP

TRAP
ADD

002340

100000

TRAP
ADD

MOV

000006
100000

#ONL IN3,LUNIT

100018

DO

;

TST
R3
50147%
BLE
WAIT FOR READY

MACY11
CZLPLAQ LP25 T EST
CZLPLA.P1T
01-0CT-79 09:25
(&)
(6)
(9)
2314

014724
014724
014732
014734

2315
2316

014744
014750

(6)
(9)

014734
014742

(4)

014750

(4)

014750

2318

014752

2317
(3)

014750

014752

032772
001007

000200

032772
001402
000137

130000

112572

(6)

014756

05303

(4)
(3)

014760
014762

000757

(3)
2322
(6)

014762
014764
014764

104422

005237

(4)

014770

000743

2319
2320
2321

2323

014756
014760
014762

014770

014772
014772
014772
014774
014774

014774

015002
015004
015004
015012
015012
015012
015012
015020
015020
015024
015024
015024
015032

015034
015034
015040
015040
015044
015044
015044
015046
015050
015050
015050
015056

01-0(T-79

09:27

SEQ 0074
501508$:

002340
IF #BIT15 SETIN @LPCSR(R2)

002340

JMP 99%
ENDIF

015102

.

LET QSLPBUF(R2)

002434

:B-

LET R3 := R - 41
ENDDO

BREAK

;

LET LINCNT

002264

THEN

000063

012777

003202

165302

013777

002320

005037

002264

023737
002023

032270

013705

015152

013703

002736

165272

IF

S50147%:

ALLOW CTL-C ABQORT

:= LINCNT + #1

CLKTYP EQ #3 THEN
LET aCLKSET

:= #1666.

ENDIF

LET aCLKCSR

:- CLKENA

LET LINCNT

:= #0

WHILE

LT PERIOD DO

1IME

50146%

TRAP

($8RK

INC

L INCNT

JENABLE

50153%

CMP
BNE

CLKTYP,
43
50154%

MOV

#1666. ,aCLKSET

501548:
THE CLOCK TO DO ITS THING
MOV

CLKENA,aCLKCSR

;

.

1760 SEC.

REPEAT UNTIL

CLR

T%ggsgfiHAUSTED

:- BNDPAT

LET R3 := WORK
WHILE R3 GT #0 DO

)

501448

TM

LET RS

002340

BR

50141%:

;

SEND R3 CHARACTERS

WHILE #BIT7 NOTSETIN aLPCSR(RZ)

000200

#BIT1S5,aPCSR(R?2
50152%

50145S:

002254

005703
003412

8T
BEQ

501518

BR
50150%
50151%:
(RS)+
; PUT CHAR INTO LP BUFFER
(R2)
(RS) +,aLPBUF
MOvVB
; DECRIMENT CHAR (OUNTER
DEC
R3

ELSE

002306

#B117,3LPCSR(R2)

EXIT LOOP IF OFF-LINE AGAIN

ENDDO

023727
001003

BIT

BNE

50152%:

ENDDO

000443

032772
001002

J
6
PAGE 22-5

PRINTING SPEED MEASUREMENT

000765

014752

(4)

30A(1052)

50157%:

DO

;

TIME ,PERIOD

BGE

50156%

MOV

RS
BNDPAT

MOV

WORK ,R3

TST

R3

BLE

WAIT FCR READY

50161%:

L INCNT

BIT
BNE

50160%

#8177 ,a8LP(SR(R?2,
50762%

MACY11

C(ZLPLAO LP2S TEST
CZLPLA P
01-0(T-79 09:25

2335
2336
(&)

(2)
2337

015060
015062
015062
015064

09:27

(6)

005303

(4)

000764

005237

K

PAGE 22-6

6

SEQ 0075

PRIMTING SPEED MEASUREMENT

NOP
ENDDO

000772
112572

2339

01-0CT=79

000240

(4)

2338

30A(1052)

LET @LPBUF (R2)

002434

LET RY :=

:B~

501618
B8R
50162%:
;. PUT DA;S éNTO BUFFER
(R2)
(RS) +,aLPBUF
VI

(RS5)+

R - M

. DECRIMENT CHARDE?UNTEP

ENDDO

LET LINCNT

002264

50160$:

:=~ LINCNT + M#1

ENDDO

000751

012777

000000

165202

9G%:
;.

013746
013746
012746
012746
010600

002300
002264
015154
000003

062706

000010

104414

000207

50157%

INC

LINCNT

50155%

50153$:

MOV

REPORT

B8R

501568%:

ENDIF

TOTAL

PRINTR

#0,aCLKCSR
NUMBER OF

LINES PRINTED

#LINPER,LINCNT ,LUNIT

MOV
MOV
MOV
MOV
MOV

TRAP

RTS

R3

PC

;GO BACK AND

DO

IT

AGAIN

LUNIT,=(SP)
L INCNT ,-(SP)

#L INPER,-(SP)

#3,-(SP)

SP,RO
CSPNTB

ADD

#10,sP

MOV

#1,ERRFLG

"EXPECTED ERROR HANDLER
015142
015142
015150

012737
000207

015152

000000

000001

002324

{PERR2: LET ERRFLG :
RTS

BNDPAT: .WORD
NLIST BEX

#1

;SET ERROR FOUND

JAND EXIT

PC

O

;

CONTAINS ADDRESS OF PRINT PATTERN

*ASSOCIATED MESSAGES
015154
015221
015261
015362
015460
015511
015547
015630

047045

042045
022516
022516

040445
040445
044522
022516
040445

015712

022463
044501
050101
051120
044124
052116
033101
033071

LINPER:
OFFLIN:

ONL IN1:
ONLINZ:
ONL IN3:
PRTSPD:

LPM6E4:
LPM96:

LASCIZ
/XNXD3XA LINES PRINTED ON LUNIT XD2XN/
LASCIZ /XNXAINSURE PRINTER(S) OFF LINE./
CASCIZ/XINXAPLACE LUNIT XD2XA ON LINE TO INITIATE TIME PERIOD FOR MANUAL/
LASCIZ
/XINXAPRINTING SPEED MEASUREMENT AND BACK OFF LINE TO TERMINATE/
LASCIZ /XINXATHE TIME INTERVAL.IN/
.ASCIZ
/PRINTING SPEED MEASUREMENT/<12><12><i2>
LASCIZ
/XNXAG4 CHAFACTER BAND SHOULD PRINT AT 285 LPM.IN/
LASCIZ
/XINXA96 (CHARACTER BAND SHOULD PRINT AT 204 LPM. XN/

.LIST BEX
.EVEN

;64 (CHARACTER BAND

PATTERN

285 LPM

L

CZLPLAO LP25 TEST
MACY11 30A(1052)
01-0CT=79 09:27 PAGE 227
CZLPLA.P1T
01-0C7=-79 09:25
PRINTING SPEED MEASUREMENT
2373
2374
2375
2376

2377

015712
015715
015720

105
075
103
060

015723

015725
015730

015753
015756
015761
015764
015766
015771
015774
015777
016001

076
042
055
133
135
072
077
051
051

2382

2383

2384

2385

2386

2387

2388
2389
2390
2391

076
045
044
057
132
072

016025
016G27

016032
016035
016040
016042
016045
016050
016053
016055
016060

016063
016066
016070
016073
016076
016101
016103
016106
016111
016114
016117

067
130

-

.BYTE

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

134

BYTE

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

105

061

.BYTE

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

042
073
124
057
054
100
052
056
074

072
134
044

.BYTE

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

105
050
056

.BYTE

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

046
073
053

.BYTE

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

054
131
050

BYTE

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

127
071
125

.BYTE

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

137
122
130

.BYTE

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

117
066
115

.BYTE

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

065
113
121

BYTE

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

110
117
107
012

.BYTE

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

163

075
056
060

2379

016004
016007
016012
016014
016017
016022

TABAG4:

061
064
136

100
041
074

015740

2381

.
PRINT SPEED TEST PATTERNS

062
124

2378

015743
015746
015751

:
.SBTTL

042
054

133
043
041

2380

015733
015736

046
126
053
137
123
13¢
064
120
124

116
126
125
114
122
112
m
117
060
116
015

6

101
135

0N
055
137
070
072
131

052
051

066
045
065
123
070
121
067
130
063

126
115
062
123
061
064
120
060
063
106

104
041
102
101
133
077
136

.EVEN

.EVEN
:

SEQ 0076

.

L)

CZLPLAO LP25 TEST
MACY11 30A(1052)
01-0CT-79 09:27 PAGE 22-8
CZLPLA.P11
01-0CT=?9 09:25
PRINT SPEED TEST PATTERNS

Sggg
2594
2395

2396

2397

2398

2399

2400

2401

:96 CHARACTER BAND TABLE
016120

061

055

016126
016131

162
052

061
100

176
054
136

041
056
042

056
054

016151
016154
016157
016161
016164
016167
016172

133
055
100
077
041
062
174

175
164
043
041
074
075
073

135
047

016177
016202
016205
016207
016212
016215
016220
016222
016225

071
134
050
050
164
046
123
122
137

2
0r2
133
135
070
124
044
067
073

057
133

016123

016133

075

016146

176

016136
016141
016144

016174

016230

2602

2403

2404

2405

2406

2407
2408
2409
2410

0647

016233
016235
016240
016243
016246
016250
016253
016256
016261
016263
016266
016271
016274
016276
016301
016304
016307
016311
016314
016317
016322

016325

041

073

131
066
072
120
070
046
124
044
064
121
131
063
130
127
114
065
112
MM
064
061
102

015

143

140

134

053

132

071
057
127
151
065
124
045
122
137
132
117
130
116
115
125
062
123
122
061
121
106

144

043

:
MINIMUM PRINT SPEED PATTERN 96 CHARACTER BAND
TABA96: .BYTE
061,055,144,047.143,043,142,041,060,052,100

060

174

BYTE

075.140,174,176,041,056,054,056,054,136,042

173

.BYTE

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

074

BYTE

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

054

BYTE

041,053,054.071,042,057,134,072,133,050,133

051
100
045

.BYTE

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

064
132

BYTE

122,067,064,137,073,132,073,132,053,131,072
«

130
050
125

.BYTE

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

046
123
067

BYTE

046.124,046,124,0645,123,044,122,067,064,137

120
066
116

BYTE

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

126
113
124

BYTE

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

110
064
107
012

BYTE

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

052

076

053

.EVEN
016326

204 LPM.

ENDTST

SEQ 0077

CZLPLAO LP25 TEST
MACY11
CZLPLA.PT
01-0CT=-79 09:25
(3)

016326

2611

016330

(3)

016326

104401

30A(1052)

N

01-0CT-79 09:27 PAGE 22-9
PRINT SPEED TEST PATTERNS

6

SEQ 0078
L10013:

ENDMOD

TRAP

CSETST

MACY11
CJLPLAO LP2S TEST
CZLPLA P11
01-0CT1=-79 09:25

2613

2614
2615
2616
2617
2418
24619

2420
2421
2622
2423
2424

(3)
2425
24626
(6)
(9)

2427
(3)

(3)
2628
(4)

2429
2430
24631
2432

30A(1052)

01-0C7-79

09:27

PAGE 23

8

SEQ 0079

DAVFU ERROR DETECTION

.SBTTL DAVFU ERROR DETECTION

016330

BGNMOD
M24

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

;OF TWO TYPES:

:1.

DAVFU WILL NOT ACCEPT

;

NOT

INCOMPLETE DATA.

;2. DAVFU WILL NOT ACCEPT DATA THAT DOES

016330
016330

016330
016330
016334
016336
016336

016340
016342
016342

005737
001002

002250

016402
016402
C16404

016406
016412
016414
016414
016416
016420
016420
016420
016422
016422
016426

016432
016434
016436

016442
016442
016446
016446
016450

BGNTST

S

SEXIT

TEST

IF

104432
001272

(ONE)

CHARACTER.

DAVFU OPTION IS NOT SPECIFIED

1S5::

1€ VFUOPT EQ #0 THEN

TST

VFUOPT

TRAP
.WORD

CSEXIT
L10014~.

BNE

TST

EXIT
ENDIF

OUTPUT MVFUERR,

50163¢

50163$:

JPRINT TEST IDENTIFICATION

016342
016376
016376
016400
016400

INCLUDE A STOP BIT

#25.,

LPERR

JDETERMINE 1F MANUAL INTERVENTION S ALLOWED
MANUAL

104450

BCOMPLETE

103402

JEXIT TEST IF NEGATIVE DETERMINATION FOR MANUAL
;INTERVENTION IS MADE
EXIT TST

104432

001226

005737
001062

002244

;DETERMINE
1%:

001214

2%:

104402

012746
012746
010600

003615
000001

062706

000004

005037

002262

104443
000404

TST

IF

TRAP

.WORD

INTERVENTION IS INHIBITED

INHINT

BNE 2%

EXIT TST

104432

104417

1%

TRAP

.WORD

BGNSUB

15.1:

;SEND MESSAGE TO OPERATOR
PRINTF
#VFUSEL

TO SET

VFU=FLS SWITCH(ES)

cs8suB
#VFUSEL ,~(SP)
#1,-(SP)

SP,RO
CSPNTF

JWAIT

FOR OPERATOR RESPONSE

LET FLAG

:= #0

GMANIL READY,FLAG,100000,YES

#4,SP

FLAG

CSGMAN

100008

MACY11
CZLPLAQ LP25 TEST
CZLPLA P11
01-0CT=~79 09.25
016452

30A(1052)

01-0CT=79

09:27

c 7
PAGE 23-1

SEQG 0080

DAVFU ERROR DETECTION

002262
000130
006010
100000

JPERFORM

013701
005301

002012

005037
000402

002300

005237

002300

023701
003056

002300

013702
006302

002300

005037

002262

005737
001011

002262

005262

002676

013737

002300

INCOMPLETE DATA ERROR DETECTION
1= LSUNIT - M

LET R1

INCR LUNIT FROM #0 TO R1 BY #1
50165%:

50164%:
LET RZ

:=

LUNIT

SHIFT

1

OUTPUI #INCDAT, #41.,, LUNIT
OUTPUI HINCTBL, #5, AGETFLG, LUNIT
IF FLAG EC #0 THEN

LET ERRTBL(R2)
002074

:= ERRTRL(R2)

+ &1

LET LSLUN := LUNIT

END INC

000715

ENDSUB

016644

104403

016646

016646
016646

016650
016650
016654
016656
(5

016656
016662
016662

BGNSUB

104402

002300

005237

002300

023701

002300

100000

LSUNIT ,R1

CLR
BR

LUNIT
501648

INC

LUNIT

(Mp
BGT

LUNIT,R1
50166%

R1

LUNIT ,R2

ASL

R2

CLR

FLAG

TST
BNE

FLAG

INC

ERRTBL (R2)

TRAP

50167%

CSERHRD
1

.WORD
.WORD
.WORD

ERRO6
0

BR

50165%

TRAP

($ESUB

TRAP

cs8sus

CLR
B8R

LUNIT
501708

INC

LUNIT

cmp

LUNIT,RY

50167%:

50166%:
L10015:

15.2:

;PERFORM STOP CODE ERROR DETECTION TEST

005037
000402

T$CODE

READY

LUNIT,LSLUN

ERRHRD 11, ERRO6

ENDIF

FLAG

MOV
DEC

MOV

LET FLAG := #0

104456

000013
017502
000000

1EST

10000$:

. WORD
.WORD
. WORD
. WORD

INCR (UNIT FROM #0 TO R1 BY #1

50171%:

501708%:

MACY11
CZLPLAQ LP2S TEST
CZLPLA P11
01-0CT-79 09:25
7

2665
(&)

(?
2466
(4)

2467
2468
2469

016666
016670
016670

016674
016676
016676
016702
016736
016772
014772

30A(1052)

013702
006302

002300

005037

002262

LET R2

(7)

023727
003052

002332

000213

(4)

012737

000015

002742

012727
000000
013727
000000
005367

000002

2473

DELAY 2

002676

(4)

013737

002300

(4)

104456
000014
017553
000000

(4)

000720

()

012737

(4)

000624

2480
2481
(3)
2482
(3)
(3)
2483
(3)

FLAG

MOV
B8R

#200, VFUCMD

INC

VFUCMD

104432

000422

LUNIT,R2

;'CR'' TO QUTPUT BUFFER

:= #15

WOUTBUF, #1,

GETFLG,

5017%s

VFUCMD ,#213
50175%
#15,0UTBUF

LUNIT

£2, (PO

IF FLAG EQ #0 THEN

LET ERRTBL(R2)

:= ERRTBL(R2)

002074

ERRTBL (R2)
LUNIT,LSLUN

LET OUTBUF

CSERHRD
12

ERRO7
0
50176$:

ENDINC

002742

501768

+ #1

ERRHRD 12, ERRO7

ENDIF

000014

FLAG

LET LSLULN := LUNIT

(4)

(3)
2479

CLR

177756

005262

2478

R2

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

(6)

(5)
(5)
(5)
2677

50173s:

OUTPUI

MOV
ASL

177772

002262

2476

501748

LET OUTBUF

50172%

RGETFLG, LUNIT

INCR VFUCMD FROM #300 TO #2i3 By #1

002332

BGT

LSDLY. (PO

005737
00101

2475

1

002116

(6)
(9)

2474

:= LUNIT SHIFT

OUTPUI #NSTTBL. #6.

002332

2471
2472
(2)
)
(2)
(2)
)
(2)
(2)
)

SEQ 0081

OUTPUI #NOSTOP. #35.,. LUNIT

005237

2470

D_7
PAGE 23-2

LET FLAG := #0

000200

(7)
(5)
(5)

09:27

CAVFU ERROR DETECTION

003147

012737
000402

(%)
(5)
(&)

01-0CT-79

:= #14

JFF'T
TO OUTPUT BUFFER

OUTPUI #OUTBUF, #1,,LUNIT
ENDINC
EXIT

TST

ENDSUB

501743

501758:
MOV

50171%

50172%:
TRAP

.WORD

L10016:

#14 ,0UTBUF

CSEXIT

L10014~.

MACY1T
CZLPLAQ LP2S TEST
CZLPLA.P1T
01-0C7-79 09:25

(3)
2684
2685
2486

2487

(3)
(3)
(4)

(5
(5)
(5)

(3)
2488
2489

017212

30A(1052)

01-0CT=79

09:27

3

PAGE ?23-3

7

SEQ 0082

DAVFU ERROR DETECTION

104403

TRAP

(SESL8

TRAP

CSGMAN

.WORD

FLAG

.WORD

RESET

"EXPECTED ERROR ROUTINE FOR THIS TEST
017214
017214
017216
017220
017222
017224
017226
017230
017230

GETFLG: GMANIL RESET, FLAG, 100000, YES

104443

Bk

.WORD

RTS

P(

;JRETURN

10000$:

.WORD

10000$
TSCODE

100000

2490

2491
2692
2493
2494
2495

2496
2497
2498
2499
2500
2501
2502
2503
2504
2505

2506
2507
2508
2509
2510
(3)

(3)
2511
2512

017232
017263
017334
017377
017454

017502
017553
017617
017624

017632
017632
017632
017634

051042
040504

104

356
356

043126
053101
043126
051505
052105

020125
052506
020125
020124
051125

043126
053101

020125
052506
002
000

001
000

.NLIST BEX
VFUERR: .ASCIZ /DAVFU ERROR DETECTION/<12><12><12>
INCDAT: _ASCIZ /DAVFU INCOMPLETE DATA ERROR DETECTION/<12><12><12>
NOSTOP: .ASCIZ /DAVFU STOP CODE ERROR DETECTION/<12><12><12>
RESET:

ERRO6:
ERRO7:
INCTBL:
NSTTRL:

.ASCII

LASCIZ

/TEST O.K.

.ASCIZ /DAVFU
.ASCIZ /DAVFU
.BYTE 356, 1,
.BYTE 356, 0,
.EVEN

= PLACE

PRINTER ON LINE AND DEPRESS/

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

INCOMPLETE DATA ERROR NOT DETECTED/
STOP (CODE
ERROR NOT DETECTED/
2, 3, 357
0. 0, 0, 357

LLIST BEX

ENDTST
104401

ENDMOD

L10014:

TRAP

CSETST

MACY11
CZLPLAO LP2S TEST
CZLPLA.PT
01=-0CT1=-79 09:25

2514
2515

2516

2517
2518
2519

30A(1052)

F

7

StQ 0083

DAVFU LINE COUNT PAPER (CONTROL
.SBTTL DAVFU LINE

017634

PAGE 24

09:27

01-0("=79

COUNT PAPER (ONTROL

BGNMOD
R
R 4

;THIS

TEST

CHECKS

THE

LINE

COUNT METHOD

;OF PAPER ADVANCE USING THE DAVFU.

;DAVFYU MEMORY 1S LOADED WITH DUMMY
;DATA, AND THEN EACH OF

THE

THE LINE COUNT

;SLEWING COMMANDS IS TESTED IN SEQUENCE
:IN THE RANGE FROM ZERO TO 15 LINES.

017634
017634

017634
017634
017640
017642
017642
017644
017646
017646

BGNTST

JEXIT TEST
005737
001002

IF

002250

2537
(&)

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

2538
2539
(4)

2540
(4)

2541

2542
2543
2544
2545
2546
2547
2548

017722
017722
017726
017726
017730
017732
017734
017736
017740
017742
017742
017742
017750
017750

IF DAVFU OPTION IS NOT SPECIFIED

104432
001360

TST

PRINT TEST IDENTIFICATION
OUTPUT #VFULCT, #33., LPERR
s SEND MESSAGE

012746
012746
010600
104417
062706

003615
000001

005037

002262

000004

.WAIT

GMANIL

TO OPERATOR

AVFUSEL

005004

TO SET

VFU=FLS

CSEXIT
L10017~.

MOV
MOV
MOV
TRAP

#VFUSEL ,-(SP)
#1,-(SP)

SWITCH(ES)

:- #0

READY,FLAG, 100000, YES

100C0$:

000200

002332

LET VFUCMD

LET R4

#4,SP

(LR

FLAG

TRAP

CSGMAN

OUTPUT #FSTMSG, #29.

020042

OUTPUT #VFUCMD, #1.

FIRST PART QF

(LR

ZERO LINE

SLEW MESSAGE

JSEND ZERO LINE SLEW COMMAND

JPRINT SECOND PART OF
QUTPUT #SECMSG, #103.

10000%

FLAG

T$CODE
READY
1000C0O

#200, vFUCMD

:= #0

020006

JPRINT

.WORD

:- %200

017752

SP,RO
CSPNTF

ADD

BR
.WORD
. wORD

;LOAD DAVFU MEMORY
OUTPUT #VFUTBL, #18.

020076

TRAP

50177%

50177%:

JINITIALIZE PARAMETERS

012737

VFUOPT

FOR OPERATOR RESPONSE

LET FLAG

104443
000404
00226¢
000130
006010
100000

TST
BNE

. WORD

ENDIF

PRINTF

T6::

VFUOPT EQ #0 THEN
EXIT

017646

017702
017702
017706
017712
017714
017716

6

ZERQ LINE

SLEW MESSAGE

R4

(ZLPLAQ LP2S TEST

CZLPLA. P11

2549
(4)

2550
2551
2552
(4)

(5)

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

2553
2554
2555
(4)

2556
2557
2558
(4)

2559
2560
2561
2562
(6)

2563
(4)

(3)
2564
(4)

2565

2566
(3
(3)
2567
2568
2569
2570

2571
2572
2573
2574
2575
2576
2577
2578
2579
2580
2581
2582
2583
2584
2585
2586
2587
2588

MACY11
01-0C1=-79 09:25

020132
020132

020140

020174
020174
020202

020204
020204
020210
020210
020216

020220
020254
020254
020262
020316
020316
020324

020360
020414
020414
020420
020420
020422
020422
020422
020430
020464
020464
020466

012737

000015

30A(1052)

002742

09:27

01-0(CT=79

6

PAGE 24-1

SEQ 0084

DAVFU LINE COUNT PAPER CONTROL

LET OUTBUF

:= ”15

J'CR*"
TO OUTPUT BUFFER

;SEND OTHER DAVFU PAPER ADVANCE COMMANDS

01273%7
000402

000221

005237

002332

023727
00310°

002332

012737

002332

INCR VFUCMD FROM #221

TC #237 BY »1

50201%:
50200%:

000237

;PERFORM PAPER MOVEMENT
00015

002742

MOV
B8R

#221,VFUCMD

INC

VFUCM

c(MP

VFUCMD #4237
50202%

BGT

OUTPUT #VFUCMD, #1.
LET OUTBUF = #15

502008

#15,0UTBUF

, ”.
OUTPUT AOUTBUF

s INSERT PAPER MOVEMENT VALUE
016437

020¢32

002742

LET OUTRUF

:= LCTTBL(R4)

OUTPUT MOUTBUF
42

JAPPEND MESSAGE

AND PRINI!

MOVEMENT MESSAGE

QUTPUT #LCTMSG, #131.

062704

LET

000002

000014

:= R4

¢+ 2

END INC

000671

012737

R4

,0UTBU
TBL
(R4)
LCT

002742

1046432

LET OUTBUF

:

50202%:

neé

OUTPUT #OUTBUF, .
EXIT TSI

ADD

#2 R4

BR

502018

MOV

#14 ,0UTBUF

TRAP

000536

. WORD

020470

040504

043126

020125

NLIST BEX
VFULCT: .éS(lZ

020532

030460

031060

031460

LCTTBL:

020571
020600
020606

356
007
015

010
016

001

002
011
017

VFUTBL:

020613

124

044510

020723

FSTMSG:

.ASCIZ /THIS LINE SHOULD BE PRINTED /

020650
020714
021012
021016
021101
021142
021206

046101
027056
027056
041040
040
027056
027056

020114
027056
000056
040514
051120
027056
027056

047117
027056

SECMSG:

.ASCI1]
CASCII

045516
053105
027056
027056

LCTMSG:

LASCII / BLANK LINES SHOUID OCCUR BETWEEN THIS LINE
/ PREVIOUS LINE
LASCI1
B
O
/
ASCIZ
/eeeea....

021224

#15,0UTBUF

n.

OUTPUT #OUTBUF,

/DAVFU LINE

COUNT PAPER CONTROL/ <12><12><12>

IAsc1zxo1020304050607080910111 131415/
.BYTE 356

1. 2

3,4,

12,

5, 6

BYTE 15 1? 20, 357

BYTE

ASCIZ

.EVEN
LLIST BEX
ENDTST

/ALL

ON ONE

/.../

13

LINE

IF

SLEWED

ZERO LINES/

AND

THE/

CSEXIT

L10017-

MACY11
CZLPLAQ LP25 TEST
C2LPLA.P1T
01=-0(T=79 09:25
(3)
(3)
2589
2590

021224
021226
021226

30A(1052

01-0("=79

DAVFU LINE

09:27

H

PAE 242

4

SEQ 0085

TOUNT PAFER (ONTROL

L10017:

104401
£ NDMOD

TRAP

CSETST

MACY11
CILPLAD LP2S TEST
CZLPLA.PTIT
01-0(1-79 09:25
2592
2593
2594
2595
2596
2597
2598
2599
2600
2601
2602
(3)
2603
2604
6)
(9)

2605
(3)
(3)
2606
(4)

2607
2608
2609
2610
(7)
(6)
(3)
(4)

30A(1052)

I

SEQ 0086

01-0(T-79 09:27 PAGE 25
DAVFU CHANNEL SELECTION PAPER CONTROL
.SBTTL DAVFU CHANNEL SELECTION PAPER (ONTROL

02122¢

BGNMOD
‘44

;THIS

TEST

CHECKS DAVFU PAPER ADVANCE

;STOP BITS LOADED IN DAVFU MEMORY.
;DATA FORMAT

]S SELECTED

THE

USING

TO PROVIDE AN

;OUTPUT IN A TRIANGULAR PATTERN.
021226
021226
021226
021226
021232
021234
021234
021236
021240
021240

005737
001002

BGNTST

7

,

SEXIT

TEST

IF

DAVFU OPTION IS NOT

I[F VFUOPT EQ #0 THEN

002250

104432
001120

ENDIF
;PRINT

TEST

PRINTF

021422

021426

VFUOPT

TRAP

CSEXIT
L10020-.

MOV
MOV
MOV
TRAP
ADD

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

CLR

FLAG

TRAP

CSGMAN
10000%

50203

50203$:

IDENTIFICATION

021274
021274
021300
021304
021306
021310

021412
021412
021420
021422

TST
BNE

.WORD

OQUTPUT #VFUCHL, #40.

021334
021370
021374
021376
021400
021404
021406

SPECIFIED

EXIT TST

021240

021314
021314
02132C
021320
021322
021324
021326
021330
021332
021334

T7::

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

012746
012746
010600

003615
000001

062706

000004

005037

002262

104417

#VFUSEL

:WAIT FOR RESPONSE FROM OPERATOR

LET FLAG

:= #0

GMANIL READY,FLAG,100000,YES

104443

000404
002262
000130
006010
100000

8R
.WORD
. WORD
-WORD

100008:

:LOAD DAVFU MEMORY

012704
000401
005304
020427

OUTPUT #VFUDAT, #50.
MOV
gs,a4
s

000002

2$:

000001

1%:

000200

005237

022216

CMP

R4

R4 &1

022216

4, SP

FLAG

T$CODE

READY
100000

SSET UP ITERATION COUNTER

BGE
3%
JMP
A 3
:SEND PAPER INSTRUCTIONS TO ALL

022150

012737
000402

DEC

SP,RO
CSPNTF

;BACK UP COUNTER
JTEST

FOR LAST

TIME

*BRANCH IF LAST TIME
CEXIT TEST
12 CHANNELS

THROUGH

THROUGH FALSE

$6: INCR INSTR FROM #200 TQ #213 BY #1

50205$:
:
502048

MOV
BR

#200, INSTR
502048

I

INSTR

(ZLPLAQ LP2S TEST
MACY11
CZLPLA P
01-0CT1-79 09:25
(5)
(7)

2624
2625
2626
(4)

2627
2628
2629
(4)
2630
2631
(&)
(6)
(9)
2632
2633

021426

02143

021436
021472
021472
021500

021534
021534
021540
021544
021544
021544
021546
021550

023727
003125

012737

013703

142703

(&)

000756

(4)

2638
2639
(4)

(3)
2640
2641
(4
(5)
(4)
(7)
(5)
(%)

(7)
2642

2643
(4)

2644
2645

021710
021710
021716

021720
021720
021724
021724
021732
021734
021770
021770
021774

012737

OUTPUT #OQUTBUF,

iNSTR #213
50206%

#15,0UTBUF

#1

BICB #360, R3

WHILE R3 NE #0 DO

50207%:

LET R3 := R3 - m
ENDDO

000015

005337

022216

023727
002504

022216

013703
142703

022216
000360

(4)

000756

(4)

:= #15

OUTPUT #(HARSP, #1

000213

005303

2651

LET OUTBUF

JGET SPACE COUNT
LET R3 := INSTR

022216
000360

012737
000402

(6)

(3)
2649
2650

002742

002742

000645

005703
001420

2648

000015

50210s:

OUTPUT #CHARX, #1

(4)
(6)
(9)

2646
2647

(MP
BGT

;PERFORM PAPER MOVEMENT

021610
021644
021644
021652
021706
021706
021710

SEQ 0087

000213

005703
001420
005303

(3)
2635
2636
2637

7
J
01-0CT-79 09:27 PAGE 25-1
DAVFU CHANNEL SELECTION PAPER CONTROL

OUTPUT #INSTR, #i

(6)

2634

022216

30A(1052)

012737

022216

;SEND PRINT COMMAND TO PRINT SPACES AND X'S
LET OUTBUF := #15
OUTPUT #OUTBUF,
ENDINC

#1.

sDUPLICATE TEST TO REVERSE OUTPUT PATTERN
DECR INSTR FROM #213 TO #4200 BY #1

50206%:

50212%:
502118:

000200
OUTPUT AINSTR, #1.
LET R3 := INSIR

INSTR,R3

BEQ

TST

R3
50210%

DEC

R3

BR

50207%

MOV

#15 ,0UTBUF

BR

50205%

MOV

#213,INSTR
502118

DEC

INSTR

CMP
BLT

INSTR,#200
50213
INSTR,R3

BI(B #360, R3

WHILE R3 NE #0 DO

50214%:

ENDDO

002742

OUTPUT #CHARX, 41
LET OUTBUF :- #15
OUTPUT #CUTBUF, 41.

TST

R3

DEC

R3

BR

502148

BEQ

OUTPUT #(CHARSP, #1
LET R3 := R3 - #1

00001S

Mov

50215%:

50215%

#15,00TBUF

K

7

CZLPLAO LP25 TEST
MACY11 30A(1052)
01-0CT-79 09:27 PAGE 25-2
CZLPLA. P
01-0CT=79 09:25
DAVFU CHANNEL SELECTION PAPER CONTROL
2652
(&)
(3)
2653
2654

022142
022142
022144

020666

000137

021376

2655
2656
(3)
Zég%

022150

022156
022212
022212
022214

012737

000014

2658
2659

022216
022220
022226
022234
022242
022250
022256
022264

(4)

2660
2661
sgg%
2664

2665
2666

2667
2668
2669
2670
2671
2672
(3)
2é;%
2674

022144
022150

ENDDEC

002742

JMP
(%:
EXIT TST

104432

2%
LET OUTBRUF

50213$:
;GO BACK AND TRY IT AGAIN

:- #14

OUTPUT #0QUTBUF, #1

000000
040504
044103
020114
052103
040520
047503
005114

0463126
047101
042523
047511
042520
052116
005012

020125
04251
042514
020116
020122
047522
000

CHARSP:
CHARX:

.EVEN
.BYTE 40
.BYTE 130

VFUDAT:

.BYTE 356,

001
000

000
004

000
040
001
002

020
000

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

000

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

022321
022323
022326
022331
022333
022336
022341
022343
022346
022351
022353

000
000
040
000
000
002
040
020
000
002
001

020
040
000
010
004
000
000
000
004
000
000

000
020

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

000
001

.BYTE 0, 4, 0,2, 0,1, 40,0

010
000

.BYTE 20, 0,

022360

#14 ,0UTBUF

.WORD O
.ASCIZ /DAVFU CHANNEL SELECTION PAPER CONTROL/ <12><12><12>

356
002
000
01C
000
000
000

022356
022356

MOV

INSTR:
VFUCHL:

022274
022277
022302
022303
022306
02231
022313

022356

50212%

.WORD

022272
040
130

004

BR

TRAP

000142

022272
022273

022316

SEQ 0088

000

010

357

.EVEN

ENDTST
104401
ENDMOD

BYTE 1, 0,

1,

0,

CSEXIT

L10020-.

2, 0, 4, 0

1

10, 0, 20

10

10, 0, 4, 0, 2, O
357
i

L10020:

TRAP

CSETST

CZLPLAC LP25 TEST
CZLPLA. P11

2676
2677

MACY11

01-0CT=-79 09:25

30A(1052)

01-0CT=-79

09:27

DATA TRANSFER PATHS

PAGE 26

L

SEQ 0089

.SBTTL DATA TRANSFER PATHS

022369

BGNMOD
P44

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

:TO THE PRINTER OUTPUT. AN ALTERNATING
JPATTERN OF

ONES AND ZEROES CORRESPONDING

:TO AN ALTERNATING STRING OF '‘'«'' AND
;'U'’ CHARACTERS ARE TRANSMITTED ON THE
JFULL 132 COLUMNS. AFTER 16 LINES OF
;THIS PATTERN,

THE OUTPUT PATIERN S

JSWITCHED TO AN ALTERNATING PATTERN

;?g '7';2ND ‘@' CHARA(CTERS FOR ANOTHER
N

022360
022360

BGNTST

022360
022414
022414
022422
022424
0226424
022430
022430
022436
022440
022440
022446
022450
022450
022456
022456
022460
022460
022460
022466

022526

LINES.

012737
000402

000001

022732

022732

023727

022732

000002

023727
001004

022732

000001

112737

000125

022702

000403
112737

000077

012704

002742

012737
000402

000001

005237

002270

023727
003011

002270

113724
105137

022702
022702

PRINT TEST IDENTIFICATION
OUTPUT #DATPTH, #22.
JPRINT ALTERNATING STRINGS OF CHARACTERS
INCR PATTERN FROM #1 TO #2 BY #1

T8::

50217%:

005237

003076

8.

022702

502168%:

IF PATTERN EQ #1

LET CHAR :B= #'U
ELSE

LET CHAR

:B- #'?

ENDIF

LET R4

002270

THEN

INC

PATTERN

CMP
BGT

PATTERN
42
502208

cMP
BNE

PATTERN,
#1

movB

#'U,CHAR

50216%

50221%

50222%

50221%:
mMovB

#'?,CHAR

R4
#OUTBUF

TO #66. BY #1

502248%:

50223$%:

000102
LET

#1,PATTERN

50222%:

:= #OUTBUF

INCR CCNT FROM #1

MOV
B8R

(R4)+

:B= (HAR

coMs
LET (R4)+

CHAR
:B= (HAR

MOV

#1,CONT

INC

CCONT

CMP
BGT

CCNT #66.
50225%

mMovB

CHAR, (R4) +

502238

MACY11
CZLPLAC LP25 T EST
CZLPLA.P11
01-0CT=~79 09:25
(&)
2708
2709

022526

113724

105137

000761

(4)

112724

000015

112714

000012

012737
000402

000001

005237

002264

023727
003017

002264

2711
(4)

2712
(4)

(S)

(4)

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

2713
2714
(4)

(3)
2715
(4)

(3
2716
(4)

2717
2718
(3
(3)
2719
2720
2721

2722
2723
2724
2725
2726
2727
2728
(3)
(3)
2729
2730

022544
022544
022550
022550
022556
022560
022560
022564
022564
022572
022574
022630
022630
022632
022632
022632
022634
022634
022634
022642
022676
022676
022700

01-0CT=-79

022732

000000

022736

:B= #12
TO #16. BY #1
50227%:

502268%:

000020
OUTPUT #OUTBUF, #134.
END INC

50230%:

ENDINC

000014

002742

LET OUTBUF
EXIT

052101
047101
050040
005012

020101
043123
052101
000012

TST

CHAR:
DATPTH:

.EVEN
PATTERN:

.EVEN

022734
022734
022734

(R4)

INCR LINCNT FROM #1

002264

104432
000034

000
104
051124
051105
051510

50225%:

LET (R4)+ :B= #15
LET

SEQ 0090

CHAR

END INC

000674

022702
022703
022710
022716
022724

M

PAGE 26~1

cCoOMB

000753

112737

09:27

DATA TRANSFER PATHS

022702
022702

(4)

(3)
2710

30A(1052)

ENDTST
104401
ENDMOD

:B= #14

OUTPUT

50220%:

#OQOUTBUF, #1

MOVB

CHAR, (R4) +

BR

50224%

MOVB

#15,(R4)+

MOVB

#12, (R&)

MOV
B8R

#1,LINCNT

INC

L INCNT

BGT

CMP

LINCNT ,#16.
502308

B8R

50227%

BR

50217%

MOVB

#14 ,0UTBUF

TRAP
- WORD

CSEXIT
L10021-.

TRAP

CSETST

50226%

.BYTE O
.ASCIZ /DATA TRANSFER PATHS/ <12><12><12>

.WORD 0
.EVEN

L10021:

CZLPLAO LP2S TEST
MACY11 30A(1052)
01-0CT-79 09:27 PAGE 27
CZLPLA.P11
01-0CT-79 09:25
PRINTABLE CHARACTERS
2732
2733
273‘0
2735
2736
2737
2738
2739
2740
2741
27642

022736

BGNTST

2743
2764

022736
022772

OUTPUT WPRTCHR, #23.
IF CHRBND EQ #0 THEN

(3)

(6)
(9)

2745
(4)

022736

022772
022776

005737
001004

002246

023000

012737

000137

2746
(4)
(3)
2747

02 3006
023006
023010
023010

2748
(&)
2749

023016
023016
023016

(4)

(&)

(S)

023010

023016

023024

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

023026
023026
023032
023032

2750

023042

(7)

023040

012737

€12737

000402

000176

000040

005237

022702

023737

022702

003042

023042

012704

002742

(4)

023046

012737

000001

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

023056
023056
023062
023062
023070

005237

002270

023727
003003

002270

(4)

023072

113724

022702

(&)

023076

000767

2754

023100

2755

023104

(5)

2752
2753
(3)

(4)

023046

023054

023072
023076

023100

000402

023100

112724

000015

(4)

023104

112724

000012

(4)
(3)

023144
023146

000730

2756
2757

023110
023144

002736

000403

(&)

2751

7

SEQ 0091

.SBTTL PRINTABLE CHARACTERS
BGNMOD
:00
“THIS TEST CHECKS FOR PROPER PRINTING
:OF ALL PRINTABLE CHARACTERS. A ROW
SOF EACH PRINTABLE CHARACTER WILL
"APPEAR AS OUTPUT ON THE LINE
*PRINTER.
;==

022736

023000

N

002736

022702

9.

LET WORK :=

19::

#137

ELSE
LET WORK

:=

50231$:

#176

ENDIF
INCR CHAR FROM #40 TO WORK BY #1

502338:
LET R4

002270

TO #132. BY #1
50237$

50236$:

000204

LET

(R4)+

:B= CHAR

END INC
LET

(R4)+ :B= #15

LET (R4)+

MOV

#137 ,WORK

BR

50232%

MOV

#176
., WORK

MOV

#40, CHAR

INC

CHAR

cMP

CHAR , WORK

MOV

#OUTBUF ,R4

MOV

#1,CCNT

INC

CCNT

cMP
BGT

CCNT ,#132.
502408

MOVB

CHAR, (R4)+

B8R

8GT

:= NOUTBUF

INCR CCNT FROM #1

CHRBND
50231%

502328:

502348
:

002736

ST
BNE

502408:

:B= #12

OUTPUT #OUTBUF, #134.
END INC
50235%:

BR

50233s

50235$

50236%

BR

50237%

MOVB

#15,(R4)+

MOVB

#12,(R4)+

8R

50234%

MACY11
CZLPLAO LP2S TEST
CZLPLA.P1Y
01-0CT1-79 09:25

2758
(4)

2759

2760
(3)
(3)

2761
2762

2763

2764

2765
(3

(3)
2766
2767
2768

023146
023146
023154
023210
023210
023212

000032

023214
023222
023230
023236

051120
046102
051101
051522

023244
023244
023244
023246

112737

000014

30A(1052)

002742

01-0CT =79

CHARA(TERS

LET OUTBUF

:B= #14

067111
020105
041501
005012

040524
044103
042524
000012

PAGE 27-1

SEQ 0092

OUTPUT #OUTBUF, #1
EXIT

104432

09:27

PRINTABLE

TST

PRT(HR:

MOv8

24, 0UTBUF

TRAP

. WORD

CSEXIT
L10022-.

TRAP

CSETST

LASCIZ /PRINTABLE (HARA(CTERS/ <12><12><1?2>

.EVEN

ENDTSTM
104401
£ NDMOD

L100c2:

CLLPLAQ LP25S TEST
CZLPLA.P1Y

MACY11 30A(1052)

01-0CT=-79 09:25

S;;?
S;;%

01-0CT=79

PAGE 28

c

8

SEQ 0093

NON-PRINTABLE CHARACTERS
.SBTTL

023246

09:27

NON-PRINTABLE CHARA(TERS

BGNMOD
;00

2774

;THIS TEST CHECKS FOR DETECTION OF

2775
S;;g

2778
2779
(3)

5;3?
2782
2783
2;32

023246

BGNTST

023246

023246
023302
023302

(6)
(9)

012704

023306

002246

(4)

023314

012737

000040

(4)
(3)

023322
023324

000403

2790
(&)
2791
(4)
2792

023314

023322

023324
023324
023332
023332

012737

000033

IF

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

2796
2;3;

023332

023332
023336
023340
023340
023344
023344
023352

023354
023354

#NONBUF R4

TST
BNE

CHRBND
50241%

MOV

#32. ,WORK1

LET WORK1

50241%:

BR

502428

:= #27.

)y

#27. ,WORK1

ENDIF

CLR
BR

L INCNT
502433

INC

L INCNT

cMmP
BGT

L INCNT ,WORK 1
50245%

MOV

#OUTBUF ,R3

MOV

#1 ,WORK

INC

WORK

(MP
BGT

WORK ,#8.
50250%

502428:

:

005037
000402

002264

005237

002264

023737
0C3056

002264

012703

002742

INCR LINCNT FROM #0 TO WORK1 BY #1
502448
50043$%:

002740

LET R3

:- #OUTBUF

; MOVE CODE AND MNEMONIC TO PRINT BUFFER
023360

(5)

023366

2807

MOV

: DO ONE LINE FOR EACH TABLE ENTRY

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

:- #32.

ELSE

002740

S;gg
(&)

T10::

CHRBND EQ #0 THEN
LET WORK1

002740

S;gz
2795

[TS OCTAL

: SETUP LINE COUNT ACORDING TO (HRBND SWIT(H
005737
001004

2789

CHARACTERS.

QUTPUT #NONCHR,#64
.
LET R4 := ANONBUF

024737

023306
023312

2788

10.

:INDICATE TEST CURRENTLY BEING DONE

S;gg
2787

ALL NON-PRINTABLE

:EACH CHARACTER WILL APPEAR ON THE PRINTER OUTPUT IN THE FORM OF
:CODE ACCOMPANIED WITH ITS MNEMONIC.

023360

023370
023370
023374
023374
023402

023404

012737

000402

000001

005237

002736

023727
003002

002736

002736

INCR WORK FROM #1

TO #8. BY #1
50247%:

50246%:

000010

LET

(R3)+

:B

(R4)+

B8R

50246%

C(ZLPLAO LP25 TEST
CZLPLA.P11

01-0C7-79 09:25

(4)

023404

112423

(&)
(3)

02306
023410

000770

2802

2803
2804
5382

023406

MACY11

012737
000402

00G 01

(7)

023420

005237

002736

(7)

02332

023727

002736

2808
(4)
2809
(4)
(3)

2810
2811
2812
2813
2814
(4)
2815
2§?é

023424
0234264

023434
023434
023436

023436
023440

023440
023440
023444
023444

003002

2821

023506

(6)

(4)

2535

000174

LET

000770

112723

000075

112723

000012

005204

023506

000714

023510

(9)

2828
2829

023552
(023606

2830

023612

2827 023516
(&)

012703

002742

(4)

023612

012737

000141

(4)
(7)

023622
023622

(5)
(5)

023620
023626
023626

000402

(R3)+

:R= #15

LET

(R3)+

:R= #12

PRINT LINE OF OCTAL

005237

002736

023727

002736

CODE, MNEMONIC, AND 120 BYTES(NONPRINTABLE

#SK1P3, #4

#AUTCON,#46.,
:= #OUTBUF

INCR WORK FROM #141

: SKIP 3 LINES

; PRINT CONVERTED

MOV
BR

#1, WORK
50251%

INC

WORK

P

WORK , #124
.

MOVB

(R4),(R3)+

BR

50252%

MOVB

#15,(R3)+

MOVB

12, (R3)+

502538

CODE)

INC

R4

BR

50244%

TST
BNE

CHRBND
50254$

MOV

#OUTBUF ,R3

MOV

#1417, WORK

INC

WORK

CMP

WORK
, #172

MSG

TO #172 BY #}
502568:

000172

50247%

CHARACTERS BY THE PRINTER.

ouTPUT
LET R3
002736

BR

IF 64 CHAR BAND TEST FOR AUTO CONVERSION FROM LOWER CASE

TO UPPER CASE

OuUTPUT

023606

(5)

LET

IF CHRBND EQ #0 THEN

002246

(R4&)+,(R3)+

FOLLOWED BY CRLF

50245%:
.

005737
001073

(R4)

ENDINC

.

10
023514

:B-

GUTPUT #OUTBUF ,#134.
LET RG := R4 + #1

Sgsg

023510

(R3)+

50253$:

:
:
;

MOvB

BGT

END INC

2823

2826

502518:

111423

023504

TO #124. BY #1
502528:

:

023450
023504

SEQ 0094

PUT 120 BYTES OF CODE INTO PRINT BUFFER
INCR WORK FROM #1

002736

%g}g

2819
2820

D 8
PAGE 28-1

NON-PRINTABLE (HARACTERS

:
>

023620

09:27

502508:

023410
023410
023416

(5)
(S)

01-0CT-79

END INC

2807
(&)
(5)
(&)

30A(1052)

50255$:

BR

50255$

MACY11
CZLPLAQ L P25 TEST
CZLPLA, P11
0i-0CT-79 09:25

023634

113723

(&)

000767

(4)

112713

(3)
2833

(RY)

:R

OUTPUT #QUTRUF ,#27.

023704

50257%:

#12

ENDIF

. LINE OF ALPHABET

(L(C)

BGT

50257%

MOV8

K+
, (R3)
WOR

B8R

50256%

Mov8

72, (R

MOov8

#14 ,0UTBUF

:
502548

> DO A TOP OF FCRMS
023704
023704
023712
023746
023746
023750

112737

000014

:B- #14

LET QUTBUF

002742

OUTPUT

EXIT

104432

,#1
#0UTBUF
TST

JAND EXIT

00064c

TEST

TRAP

. WORD

N

Y e
DY
Y
N

e
S

T

e

o

ENQ/<5>

S
e
e

ACK/<6>

= 2
—

BEL/<7>
0 85 /<10>
1

6
7
0
1
2

o
PNOPNUN)

Y
R

e

e

e
i

T
T

Y

e L L

R

O

S

N

R

EOT/<4>

HT /<A11>

SO /<12>
SI1 /7<17>
DLE/<20>
XON/<21>

bC2/<22>
XOF /7<23>
DC4/<24>
NAK/<25>
SYN/<26>
ETR/<27>
CAN/<30>

EM /<31>
SuB/<32>
ESC/<33>

Y

020066

NUL/<0>
SOH/<1>
STX/<2>
ETX/<3>

FS /<34>

A

031460

042440
020060
042440
020062
042440
020064
043440

:AS

[

030040
040
030040
040
030040
040
030040
040
030040
040
030040
040
030040
040
030040
040
030040
040

L

040
030040
040

C
C
C
.AS C
C
.AS C
.AS C
C
-AS C
-AS C
_AS C
C
.AS C
SC
C
.AS (
ASC
(
.AS C
(
C
(
(
(
C
C
C

e

.

Y

NONBUF:

e

020060
051440
020062
042440
020064
042440
020066
041040
020060
044040
020066
051440
020060
054040
020062
054040
020064
047040
020066

/NON-PRINTABLE CHARACTERS/<12>
/A FULL LINE OF EACH CODE WILL BE SENT/<12><12>
/LOWER CASE SHOULD BE CONVERTED TO UPPER CASE/<12><12>
<15><12><12><12>

S

030060
030460
030060
031460

AUTCON:

wnunnn

040
030040
040
030040

SKIP3:

.AS C
.AS C
.AS C
.AS C

7

040

030040

NONCHR:

>> >
>

005015

051120
046125
051105
000

n

101
114

"NLIST BEX

026516
043040
053517
005012

>

024137
024150
024161
024172
024203
024214
024225
024236
024247
024260
024271
024302
024313
024324
02¢ 335
024346
024357
024370
024401
024412
0246423
024434
024445
024456
024467
024500
024511

047516

n

0237¢<2
024003
024053
024132

MLV LY

*CHARACTER BUFFER AND TEST HEADER MESSAGE

>

2840
2841
(3)
(3)

LET

000012

wn

(4)

END INC

o)c

2836
2837
2838
2839

002736

nhuon

(4)

SEGC 0095

(HARACTERS

LET (R3)+ :B= WORK

- P 2. 0.2. 0.2+

2834
2835

MON-PRINTABLE

E_8
PAGE 28-~2

09:27

003003

(4)

832

01-0(T1=79

LU

(77

28N

30A(1052)

RS /<36>

GS /<35>

MACY11
(ZLPLAQ LP2S TEST
(ZLPLA P11
01-0C7-79 09:25

2878
2879
2880
2881
2882
2883
2884
2885
2886
2887
2888
2889
2890
2891
2892
2893
(3
(3)
2894
2895
289¢

024522
026533
026543
026544
0264554
024555
024565
024566
024576
024577
024607
024610

024612
024612
024612
024614

30A(1052)

030040
040

033463
032061

052440
020060

C30440

031467

020040

033461

020064

032467

020040

033461

020066

140

173
040
174

030440

175
040
176

01-0("=79

NON-PRINTABLE

09:27

LASCII
LASCII
.BYTE
LASCII
.BYTE
LASCII
.BYTE
LASCII
.BYTE
LASCII
.BYTE
.BYTE
.EVEN

000
024612

LIST BEX
ENDTST
104401
ENDMOD

PAGE 28-3

SEQ 0096

(HARA(TERS

/ 037 US /<37>
/ 140
140

/173
173
/ 174
174
/175
175
/ 176

/
/

/
/

176

0

L10023:

TRAP

(SETST

MACY'1
CZLPLAO LP25 TEST
(ZLPLA P11
01-0CT=-79 09:25

30A(1052)

BAND PATTERN
.SBTTL

024614

09:27

01-0(1=-79

BGNMOD

PAGE 29

6

SEQ 0097

BAND PATTERN

cee

JBAND PATTERN TEST

STHIS TEST PRODUCES AN IMAGE OF THE ENTIRE BAND PATTERN. THE PRINT-QUT
;1S ORGANIZED TO LOCATE
;FORMAT:

;
.

THE FOUR

QUADRANTS OF

QUADRANT NO.1

QUADRANT NO. 2

QUADRANT NO.1

ETC.

QUADRANT NO.3

THE BAND [N THE FOLLOWING

QUADRANT NO.4

:THE REASON FOR THIS ARRANGEMENT IS TO FACILITATE VISUAL INSPECTION
THE PRINTOUT AS WELL

AS TO ACCOMODATE

TIN 132 COLUMNS.

CHRBND

1

|

* SWITCHES TESTED ARE:

B

;OF

LU

USA

1

THE 208 CHARA(CTERS OF

THE BAND

FOR 96 (HAR BAND

0 FOR 64 CHAR BAND

FOR AMERICAN PRINT

0 FOR BRITISH

SET

PRINT SET

’

2924

2925

2928
(6)
(9)

2929
2930
(&)

(3)

2931
2932
(4)

2933

2935

2936
(6)

(9)

293%7
(4)

(4)

2939
(4)

2940
(4)

2941

BGNTST

024614
024614

11.

T11::

*PRINT OUT THE TEST HEADER ACCORDING TO SWITCH CHRBND
024614

024614
024620
024622
024656
024656
024660
024660
024714
024714

005737
001017

IF

002246

CHRBND EQ #0 THEN

ELSE

000416

TS”

BNE

OUTFUT #BPG4ID,#23.

OUTPUT #BP96ID,#23.

ENDIF

50260%-

(HRBND

50260%

BR

50261%

(MP
BNE

USA, #1

CLRB

BPGLA

MOvB

#043,BP64B

CLRB

BP64(

MOVR

#043,8P64D

50061%:

® FIX THE BAND PATTERN ACORDING TO SWITCH "USA'
024714
024714
024722
024724
024724
024730
024730

024736
024736
024742
024742
024750

0237¢7
001032

002256

105037

025466

112737

000043

105037

025606

112737

000043

000001

’

IF USA EQ #1 THEN
LET BP64A

025472

025613

:B

#0

LE1 BP64B :B= #043
LET BP64C

:B- 40

LET BP64D

:B

LET BP64t

:B- 40

#043

50262%

CZLPLAQ LP2S TEST
CILPLA.P11

MACY11 30A(1052)

01-0CT=79 09:25

(&)

024750

105037

025724

(&)

024754

112737

000043

105037

026051

024766

112737

000043

024774

105037

026244

(&)

025000

112737

000043

(4)
(3)

025006
025010

000431

2942
2963
(&)
2964
(64)

2945
(4)

2946
2947
2948
2949
(&)

024754

024762
024762
024766
024774

025000
025006

025010

112737

000043

(4)

025016

105037

025472

(4)

025022

112737

000043

025030

105037

025613

112737

000043

025042

105037

025730

025046

112737

000043

105037

026056

025060

112737

000043

025066

105037

026251

2951

2952
(&)

2953
(4)
2954
(4)

2955
(4)

2956
(4)
2957
(4)

2958
(4)

2959

025016

025022
025030

025034
025034
025042
025046

025054
025054
025060
025066

025072

(4)

025072

2961

025072

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

2962
(6)
(9)

2963
2964

025072
025100
025102
025102
025106
025106
025114

012737
000402

000001

005237

002264

023727
003041

002264

025116
025122

005737
001017

002246

025116

025124
025160

(4)

025160

2965
2966

025162
025216

(3)

(4)

025162

025216

BAND PATTERN

025730

026056

026251

000416

025466

09:27

H

PAGE 29-!

8

LET BP64LF

:BR- #0463

LET BP96A

:B- #0

LET BP96C

:B- #0

LET BP96D

:B- #043

E.SE
SETUP FDOR POUND STERLING SIGN
LeT BP64LA :B= #4043

025606

025724

026051

026244

LET BP64LB

:B- #0

LET BP64(C

:B= #043

LET BP64D

:B- #0

LET BP64E

:B= #043

JET BP64LF

:B

#0

LET BP96A

:B

#4043

LET BP96B

:R- #0

LET BP96C

:B

LET BP96D

:B= #0

502628
:

#4043

ENDIF

002264

SEQ 0098

LET BP96B :B= #043

;

025010

2950

01-0(7=79

"0 #18. BY #1

:1 PAGE OF

50264%:

000022

CHRBND EQ #0 THEN

ENDIF

mMOov8

#043,BP64LF

CLRB

BP96A

MOVR

#043,8BP968

CLRB

BPI6(

MOVR

#043,8BP96D

BR

50263%

MOVB

#043 ,BP6SLA

CLRB

BP648B

MOVB

#043,8P64(

CLRB

8P64D

MCvB

#0643 ,BP6O4LE

CLRB

BP6O4LF

MOVB

#04
3 ,BPI6A

CLRB

BP96GB

MOVB

#043,8P96(

CLRB

BPY6D

THE PATTERN

50265%:

ELSE

BP64E

50263%:

INCR LINCNT FROM #1

IF

CLRB

OUTPUT #BP64L
, MBNDCNT

OUTPUT #BP96,#BNDCT?

50267%:

5027C$:

MOV
BR

#1 ,LINCNT
50264%

INC

L INCNT

CMP
BGT

LINCNT #18.
50266%

TST
BNE

CHRBND
50267%

BR

50270%

(ZLPLAO LP2S TEST
MACY17
CZLPLA.PI11
01-0C7-79 09:25
2967
(4)
(3)
2968
2969
(4)
2970
2971
(3)
(3)

2972
2973
Sg;g

025216
025216
025220

025220
025220
025226
025262

30A(1052)

025262
025264

104432
001042

025266
025316

033071
032066

502668%:

000014

041440
041440

002742

040510
040510

53;9
025346
025435
025466
025472
025541

020040
057
036443
031043
040

020040
026444
020461
040447
020040

2984
2985
2986
2987
2988
2989
2990
2991

(25613
025701
025724
025730
025735

043
072
036443
023443
000

034047
033057
020455
005056

025606

033043

020475

020040
037073
041063
020040

067

041101
035446

012

000367

2992

025736
026011

020040
137

020040
022067

2998
2999
3000
3001
3002
3003

026030
026033
026034
026051
026053
026056

037474
164
020040
043
075
043

100

3006
3007
3008
3009
3010
3011
3012

026124
026131
026157
026160
026164
026165
026174

3015
3016
3017

026265
026301
026315

3013
3014

OUTPUT #OUTBUF
41
EXIT TST
.NLIST BEX
BP9SID: .ASCIZ
BP64ID: ,ASCIZ

BP64:
BP64LA:
BP64B:

BP64C:
BP64D:

026027

026073
026107

026244
026251

145

020040
0232045

020040
154
020452
047

020040

170
040
145
046113
164
117
052452

171
020040

172
020040

050520
053526

051054
026530

142
164
167

143
155
055

144
156
170

143
155

030443
043

144
156

055

061
157

041
066

50265%

MOV

#14 ,0UTBUF

TRAP
.WORD

CSEXIT
L10024~.

: 64 CHARACTER BAND

.ASCII
TASCIT
.ASCII
.ASCII
ASCII

/
ABE CDTF GOH1J 1KL 2MN30P4QRS SUVGWX7YZ8_+%98)» ( :
'/8-:><.
23EJ[T\'DA°
<063>'-1!"
<043>/2°A38(4DF GSHIGIK7LMBNOPIQR*SU, VW=XYZ./<12>
C+EXRT) (0:/81;>2<233]4
[\ 5"

.ASCII
LASCIT
.ASCII
.ASCII
.BYTE

<043>/'8ABCODF
=GH, ] J=KLM.
*:/68:7><B7a]90\w"."
<043>%=<043>/'./<12><12>
O

.ASCII

<043>'6=!7'"

NOEPOIRSOUVU1XY2Z_3024&)(5/

BP6LE:
BP64F:
ENDP64:
"EVEN
BNDCNT
ENDP64~BP6G4

BP96:

.ASCII
CASCI]

BYTE

BP96A:

BP96B:

047115

032475
047

BR

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

; BAND PATTERN TABLE

2995
2996

3004
3005

:= #14

;

gggz

2997

LET OUTBUF

;BAND PATTERN TABLE

2978
2979
2980
2981
2982

2983

SEQ 0099

END INC

000731

012737

I_8
PAGE 29-2

G1-0CT=79 ($9:27
BAND PATTERN

BP96C:
B8P96D:

°
'

:

96 (HAR BAND

ABCDOEF GTHI J2KLMN3OPQ4RS
TSUVWX6YZ
7%%88) (:/9+;>"

1Z5

)

ASCIT
BYTE
JASCIT
.BYTE
LASCIT
.BYTE

‘<2
164
*
N,
43,154
'=at?
043.47.55,175.173,176.136.56.177.140,141,60,142

BYTE
ASCIT
BYTE
JASCIT
BYTE
JASCI1
JASCIT

170.171.172.67.12
ABCDSEFGIHI
"
145
'KLMN'
164
‘OPQ,RST'
' =UVWX- YZ_.$XR0) (:/14;52<233

BYTE
BYTE

.ASCII
.BYTE

BYTE
.BYTE
BYTE

143.144.61,146,147,150,151,62,152.15%.,154.63%
155.156.157.64.160.161.162.16%.65.165.166.167.66

I\ %
<043>'1=ST
043.47,66. 175 173,176,136,67,177,140,141,70

142145.144.71,146.1647,150,151.145,152,163.154
4 155°156°158.54.160-161.162-.163.52.165. 166
7°55.170.171.172.56.12.,12

-

MACY1"
CZLPLAD LP25 TEST
CZLPLA P11
01-0CT=79 09:25
3018

9

026325

000

00367
026326
026326
026326
026330

3CA(1052)

01-0C"-79

BAND PATTERN

ENDP96:
.EVEN

.BYTE

09:27

J

SEQ 0100

PAGE 29-3

0

BND( T2=ENDPI6~-RPI6
.EVEN
LLIST BEX
ENDTST

104401

£ NDMOD

L10024:

TRAP

(SETST

(ZLPLAC LP25 TEST
MACY11
CZLPLA.PLF— 01-0(T-79 09:25

30A(1052)

3096

3007
3028
3009
3030
3037
3032
3033

01-0(T-79 09:27 PAGE 30
SPURIOUS HAMMER FIRING

K

8

SEQ 0101

.SBTTL SPURIOUS HAMMER F iRING

026330

BGNMOD
M22

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

;PRODUCES A LEFT WEDGE PATTERN CONSISTING OF

132 LINES OF

PRINT WITH EACH

;LINE BEGINNING WITH A '*?"' CHARACTER. ANY POINT OQUTSIDE THE WEDGE
;BOUNDARIES IS CAUSED BY HAMMER MISFIRES OR BY HAMMER BOUNCE.
026330
026330

026330

SGNTST

12.

JPRINT

THE

T12::
TEST

HEADER

OUTPUT #HAMF
IR, #25.

;OUTPUT THE ACTUAL WEDGE AT THIS POINT

026410
026410
026414
026414

026422

012737
000402

000001

005237

002736

023727
003077

002736

012704

002742

012737

000204

163737

002736

062736

INCR WORK FROM #1

502718%:

cMP
WORK ,#132.
BGT
50273%
JALSO NUMBER OF PRINTING CHARACTERS
LET R4

026654

LET SPCCNT

000040

005337

026654

;OUTPUT BUFFER POINTER

MOV
;JNUMBER OF SPACES TO FILL IN
MOV

:= #132. - WORK

THE OUTPUT BUFFER WITH THE REQUIRED NUMBER OF

WHILE

112724

:= #OUTBUF

026654

026430

026654

JNUMBER OF LINES TO OUTPUT
MOV
#1 ,WORK
BR
50271%
50272%:
INC
WORK

000204

sFILL

005737
001405

TO #132. BY M1

(R4)+

LET SPCCNT

50274%:

:B= #40
:=

JSPACE FILL

SPCCNT - #1

ENDDO

000770

LET CCNT

005037

002270

012737

000077

002274

012737

000041

002272

50275%:

LET STRCNT

#77

:- #33,

JFIRST CHARACTER A *'7*
;# OF

WORK
, SPCCNT

TST
BEQ

SPCCNT
50275%

MOvB
JUPDATE FILLER COUNTER
DEC

:= #0

LET CHRGEN :=

#132.,SPCCNT

suB

SPACES

SPCCNT NE #0 DO

LET

#OUTBUF ,R4

CHARACTERS IN GROUP

#40, (R4)+

SPCCNT

B8R

502748

CLR

CCNT

MOV

#77,CHRGEN

MOV

#33. ,STRCNT

MACY11
CZLPLAQ LP25 TEST
CZLPLA.P11
01-0C7-79 09:25
3061

(4)
(6)

9)
3062
(6)
(9)

3063
3064
3065
3066
(4)

3067
(4)

3068
(4)

3069
(4)

3070
(6)
307
(6)
3072
(6)
3073
(4)
(3
3074

3075
3076
3077
(4)

3078
3079
3080
3081
3082
(4)

(3)
3083
3084
(4)

3085
3086
3)
(3)
3087
3088
3089
3090
3091
3092
3093
3094

026470
026470
026470
026476
026500
026500
026504

30A(1052)

01-0CT~79

002270

005737

002272

001006

002272

012737

000077

002274

005237

002274

005237

002270

005337

002272

8

SEQ 0102

LT WORK DO

JNOW FILL

IN REST OF BUFFER

50276%:

CMP

CCNT, WORK

TST

STRCNT

MOV

#33.,STRCNT

MOV

#77.,CHRGEN

MOVB

CHRGEN, (R4)+

BGE

STRCNT EQ 40 THEN

BNE

000041

002274

CCNT

IF

012737

113724

PAGE 30-1

002736

JRESET

026506
026506
026514
026514
026522
026522
026522
026522
026526
026526
026532
026532
026536
026536
026542
026542
026544

L

-

SPURIOUS HAMMER F IRING
WHILE

023737
002022

09:27

50300$

GROUP POINTERS AND COUNTERS

LET STRCNT

:= #33.

LET CHRGEN := 477
ENDIF

50300%:

:B- (HRGEN

(R4)+

LET

LET CHRGEN := CHRGEN + #1

INC

:= CCNT + #?

LET CCNT

CLET STRCNT

:= STRCNT - 1

;UPDATE

ENDDO

000752

50277%

CHRGEN

CCNT
INC
POINTERS AND COUNTERS
STRCNT
DEC

50277%:

BR

50276$

MOVB

#12.(R4)+

BR

50272%

MOV

#14,0UTBUF

TRAP

CSEXIT

:NOW SET UP LINE TERMINATOR AND OUTPUT THE LINE.
026544
026544

112724

LET

000012

026606
026606
026614
026650
026650
026652

:B= #1°2
LUINE

;OUTPUT THE

026550
026604
026604
026606

(R4)+

OUTPUT AOUTBUF ,#133.
ENDINC

000673

012737

50273$:

000014

002742

104432

LET OUTBUF

:= #14

OUTPUT #OUTBUF ,#1
EXIT TST

000036

.WORD

;COUNTERS, POINTERS, TEXT BUFFER,
026654

000000

SPCCNT:

051125
044040
020122

047511
046501
044506

HAMF IR:

AND HEADER FOR TEST PRINTOUT

.WCRD 0

;TEST HEADER

026656
026664
026672

JEND OF TEST FORMFEED

.ASCIZ

MESSAGE

/SPURIOUS HAMMER FIRING/<12><12><12>

L10025~-.

MACY11
CZLPLAO LP25 TEST
CZLPLA.P1T
01-0CT-79 09:25

3095
3096
3097
3098
3099
3100
(3
(3)
3101
3102

026700
026706

044522
000012

043516

30A(1052)

01-0(T-79

09:27

M

PAGE 30-2

8

SEQ 0103

SPURIOUS HAMMER F IRING

005012

.EVEN

026710
026710
026710
026712

ENDTST
104401

ENDMOD

L10025:

TRAP

CSETST

MACY11
CZLPLAQ LP25 TEST
01-0C7-79 09:25
CZLPLA P11

30A(1052)

01-0CT=-79

PRINT

CONTROL

09:27

PAGE 31

N

SEQ 0104

.SBTTL PRINT CONTROL

026712

BGNMOD

O\/vvvvvvm\)o«mvbwm_‘ogm

;SHOULD BE DISREGARDED. EACH LINE OF THE OUTPUT CONSISTS OF THE SEQUENCE OF
sNUMBERS ''123456789"' FOLLOWED BY A SERIES OF UNDERSCORES AND SHOULD END IN THE

D
D ed rd

D ek N =D e

13.

026712

;PRINT

TEST

OUTPUT #PRTCTL, M6.

026746
026746
026754
026756
026756
026762
026762
026766

DECR LINCNT FROM #31.

i P

BGNTST

—_=,NWVINANS NS b

*SEQUENCE '012°* IN COLUMNS 130 THRU 132.
026712
026712

—d

N

PN S

e PN

d

D o

WWWW

;BEFORE SENDING A PRINT COMMAND. ALL CHARACTERS IN EXCESS OF 132 CHARACTERS

b b

d ah

b

(&)

WIWWWWWW

s

:THIS TEST CHECKS THE PRINT CONTROL BY SENDING MORE THAN 132 (HARACTERS

;PRINT 32 LINES,

012737
000402

000037

005337

002264

005737
002417

002264

002264

T13::

IDENTIFICATION

CHARACTER STRING ON EACH LINE

TO #0 BY #

SHOULD END

IN 123

50302%:
50301%:

MOV
BR

#31.
L INCNT

DEC

L INCNT

TST
BLT

L INCNT

BR

50302

MOV

#14,0UTBUF

TRAP
.WORD

L10026~.

503018

50303%

; LOAD THE PRINT BUFFER WITH 139 CHARACTERS AND A LINEFEED
; ONLY THE FIRST 132 CHARACTERS SHOULD PRINT.

026770
027024
027024

027026

027026
027026
027034
027070
027070
027072

027074
027102
027110
027115
027122
027130

A

3132

027136
027144
027152
027160
027166
027174
027202
027210
027216
027223
027230
027236

ENDDEC

000754
012737

000014

002742

104432
000240
051120

047503
005114
061
033466
057537
057537
057537

057537
057537
057537
057537
057537
057537
057537
137

057537
057537

047111
052116
005012
031462
034470

057537
057537
057537
057537
057537
057537
057537
057537
057537
057537
057537
057537
057537

020124
047522
000
032464
057460
057537
057537
057537
057537
057537
057537
057537
057537
057537
137

057537
057537
057537

OUTPUT #CTLBUF, #140,

LET OQUTBUF

50303%:

:= #14

OUTPUT #QUTBUF, #1
EXIT TST

PRTCTL:

.ASCIZ /PRINT C(ONTROL/ <12><12><12>

CTLBUF:

.ASCII

/1234567890 __________ _______ ________ /

ASCIL

/7

LASCIT

7

e

e

e/

/

CSEXIT

CZLPLAQ LP2S TEST
MACY1Y
-79
(2LPLA. PN
01-0{1
09:25

SSRLTYRAR

027266
027274
027302

027310
027316
027324

057537
057537
057537
057537
057537
057537
057537
030460
033466

057537
057537
057537
057537
057537
057537
057537
031462
034470

01-0(1=-79

PRINT

CONTROL

057537
057537
057537
057537
057537
057537
057537
032664

09:27

8

PAGE 31-1

SEQ 0105

0123456789/<12>

000012

EVEN

PR

N NN

S

i

i

AN NN

3133

027244
027252
027260

30A(1052)

027332
027332
027332
027334

ENDTST
106401

£ NDMOD

L10026:

TRAP

(SETST

CZLPLAO LP2% TEST
MACY11
CZLPLA.F11
01-0CT=-79 09:25
3142
2143
3144
(2)

30A(1052)

SBTTL
BGNMOD
STARS

02733
027334

(2)

3153
315
3155
(3)
2156
3157
3158
(6)
(9)

3159
(4)

3160
(4)

(3)

3161

(4)

3162
4)

2163
3164
3165
3166

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

3168
(6)
(9)

3169
3170
(4)
(3)

3171
3172
(4)

3173
(4)

(3

PAGE 32

C

SEQ 0106

CRIiTICAL PATH

"’-tt"tttttttttt't.tt'tt't'.ttt't.fit.ttt.ttt.t-'tt'ntttnnfi‘Qt.t.t

3145
3146
3147
3148
3149
3150
3191
3152

01-0CT-79 09:27
CRITICAL PATH

D

sTHIS TEST ATTAINS THE HIGHEST POSSIBLE PRINTING SPEED BY SELECTING
;A DATA PATTERN WHICH EXERCISES THE PRINTER AT THE MAXIMUM DUTY (YCLE

;THE HAMMERS,THE

TIMING LOGIC, AND THE POWER SUPPLY.

JLiINES OF A WORST CASE PATTERN ARE PRINTED.

:;ttltt'tt'ttfittt.'QtfiflttttfifitttttQlfittltfitttttttfitttttttQQQQQQQQ

:
‘=~
BGNTST

027334
027334

027404
027404
027406
027406
027406
027414
027414

027414

:

005737
001004

002246

012737

027634

012737

030014

000001

005237

002264

023727
003041

002264

027440
027444

005737
001017

002246

027504

027610

14,

T14::

QUTPUT #CRTPTH
. #16.
IF CHBND EQ #0 THEN
LET PTHPNT

JFIRST TEST FOR 64 (HARACTER BAND

1~ NMTARGSG

JSET UP PATTERN TABLE

ELSE

LET PTHPNT

: = #TARG6

503048

TST
BNE

CHRBND

MOV

#TABGS ,PTHPNT

BR

50305%

503049

JELSE SET UP *OR 96 CHARACTER BAND

ENDIF

MOV

#TABSG ,PTHPNT

MOV
BR

#1

INC

L INCNT

BGT

L INCNT ,#32.
503108

TST
BNE

CHRBND
503118

BR

50312%

BR

503G7%

50305$:

:
;OUTPUT 32 LINES OF WORST CASE PATTERN
:
012737
000402

027446
027502
027502

027610

000403

027414
027422
027424
027424
027430
027430
027436

027440

OF

32 LINES

;
STARS

027334

027334
027370
027370
027374
027376
027376

A TOTAL OF

000416

002264

INCR LINCNT FROM #1

TO #32. BY #1
50307%:

50306%:

000040
IF

CHRBND EQ #C THEN

ELSE

OUTPUT PTHPNT ,#110.

027504
027540

OUTPUT PTHPNT ,#124.
ENDIF

027540
027540
027542

ENDINC

027540

000731

50311s:

[ INCNT

505063

50312%:
5C310s:

MACY11
CILPLAQ LP2S TEST
CZLPLA P11
01-0CT=79 09:25
(4)

3175
3176
3177
(3)

(3)
3178
3179
3180
38

3182
3183
3184
3185

3186

5187

3188

3189

3190

3191

3192

3193

3194

3195

027542
027542
027550

012737

027604
027604
027606

104432

000402

027610

000000

027612
027620
027626

051103
046101
005110
027634

027634
027637
027642
027645
027647
027652
027655
027660
027662
027665
027670
027673
027675
027700
027703
027706
027710
027713
027716
027721
027723
027726
027731
027734
027736
027741
027744
027747
027751
027754
027757
027762
027764
027767
027772
027775
027777

030005

OO-—!O—'O—Ag—-—h—-J
NN =N
= N — NNOVN)
Ngmo
NN
=

3174

000014

30A(1052)

01-0CT~79 09:27
CRITICAL PATH
LET OUIBUF

002742

0

PAGE 32-1

9

:= #14

OUTPUT #OUTBUF 41

EXIT TST

SEQ 0107

MOV

TRAP

. WORD

052111
050040
005012

041 S11
052 101
000

PTHPNT: .WORD

O

CRTPTH: .ASCIZ

/CRITICAL PATH/<12><12><12>

.EVEN

;64 CHARACTER BAND PATTERN

:

%A864:

(RITICAL HAMMER FIRE PATTERN 64 CHARA(CTER BWD

.BYTE

101,064,105,122,106,065,106,126,060,127,111

.BYTE

067,061,132,114,137,115,045,060,127,111,067

.BYTE

061,132,114,137,115,045,063,046,120,052,121

BYTE

072,123.057,115,045,063,046,120,052,121,072

.BYTE

123,057,125.,055.,066,076,130,056,131,100,123

.BYTE

057,125,055.066,076,130,056,131,100,070,042

BYTE

053,124,071,042,057,136,131,100,070,135,053

.BYTE

124,071,042,051,136,050,075,054,041,044,062

.BYTE

073,101,051,136,050,075,054,041,044,0462,073

.BYTE

101,074 ,102.077,064,105,106,133,065,015,012,000

#1464 ,0UTBUF

CSEXIT

L10027-.

MACY'1
(2L PLAQ LP2S TEST
C2LPLA PN
01-0C7-79 09:25

030010

015

000
.EVEN

030203
030205

b
—
N
880
Ui
N

(RITiCAL HAMMER FIRE PATTERN 96 CHARACTER BAND

101,064,103,123,060,065,106,126,061,130,11°

.BYTE

131,062.137,114,0646,116,066,061,130,111,1%1

.BYTE

062,737,114,064,116,046,117,051,121,072,122

BYTE

071,124,073,116,046,117,057,121,072,122,071

BYTE

1264,073,125,145,127,077,066,136,132,133,124

.BYTE

073,125.145,127,077,066,136,132,133,067,042

BYTE

045,040,070,075,050,041,132,133,067,042,045

BYTE

040,9070,075,050,041,057,047,053,175,076,176

<. BYTE

074,056,050,041,057,047,053,175,076,176,074

BYTE

056,100.140,135,060,134,143,054,061,040,040

BYTE

040,040,040,060,040,040,040,040,040,040,040

BYTE

150,015,012

—

.BYTE

OO

030076
030101
030103
030106
030111
030114
030116
030121
030124
030127
030131
030134
030137
030142
030144
030147
030752
030155
030157
030162
030165
030170
030172
030175
030200

TAR96:

—=O

3212

E

32-¢

—Io—l

3’1

PATH

PAGt

——=

3207

3210

CRITICAL

09:27

)—
WO PNV
WNN O~
NN —_
NS
WOWV
NUNW
=20

s
G

[@ R Y o JEE RS BT I Y
O = 2N 2N
=N
=0

044

3206

3209

01-0("=79

196 CHARACTER TABLE

3205

3208

c12

J30014

KU2

3196
3197
3198
3199

30A(1052)

040
012
.EVEN

SEQ 0108

MACY1T
CZLPLAQ LP25S TES)
(ZLPLA.PIY
01=0(T1=-79 09:25
3218
(i)

030210
030210

3219

030212

(3)

30220

030210

30A(1052)

01-0(T=79

CRITICAL PATH
ENDTST

104401

ENDMOD

09:27

PAGE

F_

32-3

9

SEQ 0109

L10027:

TRAP

(st TST7

3222
3223
32264
3225
3226
3227
3228
3229
3230
3231
3232
3233
3234
(3)
3235
3236
3237
3238
3239
3240
(4)

3241
3042
(3)
3243
(4)

3244
(6)

(6)
(6)

3245
(4)

3246
(4)

(5)

(&)
(7)

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

3248

030212

09:27

PAGE

MLLTIPLE LINE ADVANCE

33

G

9

SEQ 0110

MULTIPLE LINE ADVANLE

BGNMOD
MR
R 4

.

;THIS

TEST

CHECKS THE MULTIPLE LINE ADVANCE OF

THE

LINE PRINTER.

A LINE Of

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

:N?Q?ER PRINTED WILL INDICATE THE NUMBER OF BLANK L INES FOLLOWING THAT
. THE NUMBER OF LINES IS VARIED BETWEEN 2 AND 7 AND A LINE OF
;L
JALL

030212
030212

030246
030246

030254
030254
030254
030254
030262
030262
030266
030272
030276
030276
030302
030302
030310
030312
030312
030316
030316
030324
030326
030326

012737

030500

117737

000216

013746
042716
042637

002264
000007
002264

012703

002742

012737
000402

000001

005237

002270

023727
003003

002270

117723

000144

3250

020437
001404

002264

(4)

112723

000012

3252
030352

JPRINT

TEST

030476

LET STACHR

THE END OF

THE

TFST

SEQUENCE.

T1S::
IDENTIFICATION

:= #TARSTR

;OUTPUT (HARACTERS

005204

002264

LET LINCNT

:B= aSTA(HR

LET LINCNT

:= LINCNT AND #7 :MAKE

LET R3 :- #OQUTBUF
002270

INCR CCNT FROM #1

;GET A CHARACTER

THE ASCII

TO GCTAL

MOV

TO OUTPUT
MOVB

MmO

"o

TO #132. BY #1

50314%:

LET

(R3)+

:B- aSTA(CHR

END INC

LET

ENDDO

LINCNT DO

(R3)+

:B- #12

:

R4&G + M1

LET R4

)"

R,
L INCNT
aSTACH

L INCNT ,-(SP)

#7,(SP)
(SP)
+ L INCNT

#OUTBUF ,R3

MOV
BR

#1,CCNT

INC

CCNT

503143

o
CCNT 4132,
503163
8GT
IN OUTPUT BUFFER
MOVB
@STACHR, (R3) +

50315%

50316%:

:= #0
R4 NE

JPUT CHARACTER

v

8IC
BIC

;SET UP QUTPUT BUFFER

000204

#TABSTR,STACHR

50313%:

50315%:

WHILE

(&)
(6)
2

3251

15,

LET R4

005004

(4)

BGNTST

INDICATE

REPEAT

000767

3249

O°'S WILL

THUS THE

OUTPUT #MUL
INE . #78.

030212

(3

(6)

01-0C"-79

LSBTTL

(4)

5253

30A(1052)

50317%:

JFILL WITH LINE FEEDS

(LR

R4

CMP
BEQ

R4

MOVR

#12,(R%)

INC

R4

L INCNT

505208

_

MACY11
CZLPLAQ (P25 1 £S T
o -0L{7-79 09:25
C2LPLA. P11

MACY1T
CILPLAO LP25 TEST
CZLPLA.P1T
01-0CT-79 09:25
(4)

$2
3254
3255
3256
3257

030352
030354

062704

(6)

0Cs237

030476

(6)

005737
001332

002264

(&)

012737

000014

3258

3259
3260
3261
(3)
3262
3263
3264
3265
(3)
(3)
3266
3267
3268
3269
3270

PAGE

MULTIPLE LINE ADVANCE

JNOW QUTPUT

03035¢

(09:27

H

33-'

9

SEQ 011

503208%:

002264
000204

LET

R&

THE ACTUAL
:-

LINCNT

LET STACHR

« #1372,

JNUMBER OF

:= STA(HR + #°

.
JOUTPUT

(HARA(TERS

TO OUTPUT

UPDATE (HARA(TER (OUNT

THE LINE

UNTIL LINCNT EQ #0

002742

LET OUTBUF
OUTPUT

EXIT

:- #°4

#OUTBUF ,#1

TST

115

046120
042516
047101

3272

116

051522
052116
050105
052116
047111
020117
046040
051120
005104

INC

STACHR

TST

L INCNT

MOV

214 ,0UTBUF

TRAP

STACHR:

.WORD 0O

R4
L INCNT

2132, R4

. WORD

000000

50317%

ngv
ADD

BNE

000140

033462
033064
000

B8R

LINE

QUTPUT #OUTBUF
R4

104432

3271

3273
3274
3275
3276
3277
3278
(3)
(3)
3279
3280

01-0("-79

000771

013704

()
(6)

30A(1052)

50313s

(SEXIT

L10030-.

033062
032463

033463
030064

TABSTR:

.ASCIZ

/272637463540/

046125
020105
040440
042503

044524

MULINE:

.ASCII

/MULTIPLE LINE ADVANCE/<12>

LASCIZ

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

046525

044514
053104

012

042502
044522
051040
042523
046040
052040
052130
020105
042524

.EVEN

030634
030634
030634
030636

ENDTST

104401

ENDMOD

L10030:

TRAP

rETST

MACY11
CILPLAO LP2S TEST
C2LPLA.P1T
01=-0CT1=-79 09:25

3282
3283
3284
3285
3286
3287
3288
3289
(3
3290
3291
3292
3293

o

K

PAGE

34

I

9

SEQ 0112

CHARACTER AL IGNMENT

4

TEST

(HECKS

JE'S AND SPACES.

(HARA(CTER ALIGNMENT

BY QOVIRPRINTING L INES OF

THE STARTING (HARA(CTER OF

;PRODUCE A CHECKERBOARD PATTERN.,

BGNTST

16.

JPRINT

TEST

EACH LINE

:

ALTERNATING

[S ALSO ALTERNATED T0O

T16::

IDENTIFICATION

OUTPUT #CHRALN #22.

:PRINT 48 LINES OF ALTERNATING "E''*S AND ‘‘SPACE''S

000030

(6)

005737
003002

002264

000137

031312

3294
(9)

(4)

09:27

CHARACTER AL JGNMENT

JTHIS

012737

3297
3298
3299

01-0("-79

.SBTTL
BGNMOD

030636

(4)

3295
(2)
3296

30A(1052)

002264

031044

031052

012737

000015

002742

012737

000012

002742

031142
031150

031204
031240
031240
031246
031302
031302
031306
031306

031312
031312
031312
031320
031354
031354
031356

031360

LINCNT LE #0 THEN

OUTPUT
#ESPSTR,#132.
JPRINT LINE
LET OUTBUF := #15

THE

L INCNT
824,

TSTY
8GT

L INCNT
503218

JMP

33

MOV

#15,0UTBUF

MOV

#12,0UTBUF

MOV

#15,0UTBUF

MOV

#12 ,0UTEBUF

DEC

L INCNT

JMP

2’3

MOV

#14 ,0UTBUF

50321%:

41
OUTPUT AOUTBUF
ALTERNATE

MOV

"E'''S AND ‘'SPACE’"S

F
41
OUTPUT #OUTBU
;OVERPRINT LINE
OQUTPUT
#ESPSTR,#132.
LET OUTBUF := #12
JNOW

PATTERN

JLOAD BUFFER WITH ALTERNATING STRING OF "E'"S AND "‘SPACE'"S

031106
031142

IF

;1 OAD BUFFER WITH ALTERNATING STRING OF

031010
031044

2%:

:= #24.

ENDIF

030712

030746
030754

LET LINCNT

INLINE <JMP 3%>

030712

030746

1%:

JPRINT

01273/

000015

002742

012737

000012

002742

005337

002264

000137

030700

012737

000014

051101

HESPSTR+1,4#132.

LET OUTBUF

002742

041501

:= #15

41
OUTPUT #OUTBUF
;OVERPRINT LINE
OUTPUT #ESPSTR+1,#132.
LET OUTBUF := #1°2

-

41
OUTPUT #OUTBUF
LET LINCNT := LINCNT - ¥
INLINE <UMP

104432

000236
044103

OUTPUT

LINE

3%:
LET OUTBUF

2%>

:= #14

,41
OUTPUT #OUTBUF
EXIT TST

CHRALN:

.ASCIZ /CHARACTER ALIGNMENT/<12><12,<12>

TRAP

.WORD

CSEX]T

L10031-.

CZLPLAQ LP2S TEST
MACY11
(ZLPLA.P11
01-0CT-79 09:25

3323

3224

3325

3326

3327

3328

3329

3330

3331
3332
(3)
(3)
3333

031366
031374
031402
031407
031412
031415
031420
031423

C31426
03143
031434
031437
031442
031445
031450
031453
031456
031461
031464
031467
031472
031475
031500
031503
031506
031511
031514
031517
031522
031525

031530
031533
031536
031541
031544

031547
031552
031555
031560
031563
031566
031571
031574

031577
031602
031605
031610
031613
031614
031614
031614
031616

042526
06351
005126
105
040
105
040
105
040
105
040
105
040
105
040
105
040
105
040
105
040
105
040
105
040
105
040
105
040
105

040
105
040
105
040

105
040
105
040
105
040
105
040
105
040
105
040
105

104401

020122
046516
005012

040
105
040
105
040
105

040
105

040
105
040
105
040
105
040
105
040
105
040
105
040
105
040
105
040
105
040
105
040
105
040
105
040
105
040
105
040
105
040
105
040
105
040
105

30A(1052)

046107
047105
000

105
040
105
040
105
040
105
040
105
040
105
040
105
040
105
040

01=-0(T=79

09:27

(HARA(CTER AL IGNMENT

9
J
PAGE 34-1

SEQ 0113

ESPSTR:

.BYTE

105.40,105,40,105,40,105,40,105,40,105,40,105,40,105,40,105,40

ESPSTY:

BYTE

105,40,105,40,105,40,105,40,105,40,105,40,105,40,105,40,105,40

ESPST?:

BYTE

105,40,105,40,105,40,105,40,105,40,105,40,105,40,105,40,105,40

ESPST3:

BYTE

*05,40,105,40.105,40,105,40,105,40,105,40,105,40,105,40,105,40

ESPST4:

.BYTE

105,40,105,40,105,40,105,40,105,40,105,40,105,40,105,40,105,40

ESPSTS:

BYTE

105,40,105,40,105,40,105,40,105,40,105,40,105,40,105,40,105,40

ESPST6:

BYTE

105.40,105,40,105,40,105,40,105,40,105,40,105,40,105,40,105,40

ESPST7:

.BYTE

105.49,105,40,105,40,105

105

040
105
040
105
049
105
040
105
040
105
040
105
040
105
040
105
040
105
040
105
040
105
040
105
040
105
040

.EVEN
ENDTST
ENDMOD

L1003%1:

TRAP

(SETST

CZLPLAO (P25 TEST
CZLPLA.PN

3335
3336
3337
3338
3339
4340

MACY'1

01-0CT=79 09:25

PAGE 35

K

9

SEQ 0114

INTERRUPT SERVICE ROUTINES

;LINE NUMBER IS RETURNED IN RZ2

3343
3344
031616

;
==

000000
000020

Xx=0
INTOO:

3348

.REPT 16.

SETPR] #PR]O4

PUSH

2349

R?2

LET R2 := #X

3250
3351

335
(4)
(4)
(3)
(5)
(3)
(&)
(4)
(3)
(5)
(3)
(4)
(4)
(3)
(52
(3)
4)
(4)
(3)
(5)
(3)
(&)
(4)
(3)
(5)
(3)
(4)
(4)
(3)
(5)
(3)
(&)
(4)
(3)
(5)
(3)
(4)
(4)
(3)

09:27

JSET UP THE UNIT NUMBER CAUSING THE INTERRUPTS.

2342

3347

01-0C"-79

.SBTT.
INTERRUPT SERVICE ROUTINES
BGNSRV
;
I+
JINTERRUPT VECTORS ARE ESTABLISHED DURING INITIALIZATION
JPOINTING TO THE BASIC ROUTINES WHICH

031616

2341

3345
3346

30A(1052)

X=X+2
031616
031622
031624
031626
031632
031636
031642
031644
031646
031652
031656
031662
031664
031666
031672
031676
031702
031704
031706
031712
031716
031722
031724
031726
031732
031736
031742
031744
031746
031752
031756
031762
031764
031766
031772
031776
032002
032004

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

000200

000000
004166
000200
000002
004166
000200
000004
004166
000200
000006
(004166
000200
000010
004166
000200
000012
004166
000200

000014
004166
000200

INLINE <JUMP
.ENDR

10DRV>
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

#PR]04 ,RO
($SPRI
R2,-(SP)
#X,R2
10DRYV
#PR]04 ,RO
($SPR]
R2,=-(SP)
#X,R2
10DRV
#PRI04
RO
C$SPRI
R2.~-(SP)
#X,R2
10DRV
#PR104 RO
($SPRI
R2.-(SP)
X, R2
[ODRV
#PR]I04 RO
C$SPRI
R2.,=-(SP>
X, R2
10DRV
#PRI04,RO
C$SPR]
R2,-(SP)
#X,R2
[ODRYV
#PR104
RO
CS$SPR]
R2.~(SP)
#X_ R2
10DRV
#PR]104
RO
($SPR]
R2,=(SP,

.

CZLPLAOPLPZS TEST
MACY11
CZLPLA.P11
01-0CT=-79 09:25
(5)
(3)
(4>
(64)
(3)
(5)
(3)
(&)
(4)
(3)
(5)
(3)
(4)
(&)
(3)
(5)
(3)
(4)
(4)
(3)
(5)
(3)
(4)
(4)
(3)
(5)
(3)
(4)
(4)
(3)
(5)
(3)
(4)
(4)
(3)
(5)
(3)
(4)
(4)
(3)
(5)
(3)

3353

032006
032012
032016
032022
032026
032026
032032
032036
032042
032044
032046
032052
032056
032062
032064
032066
032072
032076
032102
032104
032106
032112
032116
032122
032124
032126
032132
032136
032142
032144
032146
032152
032156
032162
032164
032166
032172
032176
032202
032204
032206
032212

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

30A(1052)

L 9
01-0CT=79 09:27 PAGE 35-1
INTERRUPT SERVICE ROUTINES

SEQ (115

000016
004166
000200
000020
004166
000200

000022
004166
000200
000024
004166
000200
000026
004166
000200
000030
004166
000200

000032
004166
000200
000034
004166
000200
000036
004166

-

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

#X,R2
I0ODRvV
#PR104
RO
($SPRI
R2,=(SP)
#X,R2
[0ODRV
#PRI104 RO
C$SPRI
R2,=(SP)
#X,R2
I0ODRV
#PR104 RO
($SPR]
R2,-(SP)
#X,R2
I0DRV
#PR]104,RO
($SPR]
R2,=(SP)
#X,R2
I0DRV
#PR104,RO
($SPRI
R2,-(SP)
#X,R2
IODRV
#PR]104 ,RO
CSSPRI
R2.-(SP)
#X,R2
I0DRV
#PR104,RO
C$SPR]
R2.=-(SP)
#X,R2
IODRV
#PR104 RO
C$SPR]
R2,~(SP)
#X ,R2
I0DRV

MACY11
CZLPLAO LP25 TEST
CZLPLA.PTI
01-0CT=-79 09:25

30A(1052)

01-0CT-79 09:27 PAGE
CLOCK SERVICE ROUTINE

M9
35-¢

SEQ 0116

.SBTTL CLOCK SERVICE ROUTINE
M

.

A 4

;UPDATES THE COUNTER AT A RATE OF 16.67 MILLISECONDS PER TICK
JAND UPDATES A SECOND COUNTER WHEN THE

032216
032216
032216

032222
032224
0322264
032230
032232
032232
032240

032240
032244
032244
032244
032244
032250
032250
032256
032260
032260
032266
032266

012700
104441

BGNSRV
CLKTCK:

000300

005737
001005

032272

012737

000074

005237

032270

023727
001003

002306

000002

012777

000100

150024

000002

032270
032272

000000
000000

LET TICK

:= #60.

LET TIME

:= TIME + 41

:- TICK = M

LET TICK

032272

MOV
TRAP

TICK EQ #0 THEN

ENDIF

005337

032266
032266
032266

SETPRI #PRI06

IF

032272

FIRST OVERFLOWS.

;60 TICKS PER SECOND

503228
;BACK UP SECOND TIMER

IF CLKTYP EQ #2 THEN
LET @CLKCSR

:= #4700

ENDIF

JAND EXIT

TICK:

.WORD
.WORD

0
0

L10033:

C$SPRI
TICK

503228
#60.,TICK

INC

TIME

DEC

TICK

MP
BNE

CLKTYP,
42
50323

MOV

#100,aCLKCSR

50323s:

ENDSRV

TIME:

TST
BNE

#PR]06,R0O

RTI

MACY11
CZLPLAO LP2S TEST
CZLPLA P11
01-0CT1=-79 09:25

3377

30A(1052)

01-0(T-79

PAGE 36

N

9

SEQ 0117

HARDWARE PARAMETER SECTION

.SBTTL

032274

09:27

BGNMOD

HARDWARE PARAMETER SECTION

R
2

.

JTHIS SECTION
sFURNISH

THE

;P-TABLES.
032274
032274
032276
032276

032306
032306
032310
032312
032314

001031
032333
000110
000770

QUESTIONS WHICH REQUEST

GPRMA

GETADR,0,0,160000,177516,YES

GPRMA

GETVEC,2,0,110,770,YES
:

3395
3396
3397

032332
032333
032340
032346

11
052522

041505

.WORD L 10034~L $HARD/?2

.WORD
.WORD
.WORD
.WORD

.WORD

.WORD
.WORD

L10034:
050114
042104
000

TO

HARDWARE

ENDHRD

032316

032324

OPERATOR

THE

.WORD

032316

032316

THE

TO BUILD

:
L $HAR:D

000031
032316
160000
177516

THE

INFORMATION NECESSARY

BGNHRD

000010

032304

INCLUDES

HARDWARE

030461

040440

GETADR:

LASCIZ

/LP11

052116
052120
047524

051105
053049
000122

GETVEC:

LASCIZ

/INTERRUPT

042522

051523

.EVEN

ADDRESS/

VECTOR/

EVEN

T$CODE
GE TADR
IM
TSLOL
M
TSHIL

T$CODE

GETVEC
TSLOLIM

TSHILIM

MACY11
(ZLPLAO LP25 TEST
CZLPLA PN
01-0(T1-79 09:25

STHIS SECTION INCLUDES THE QUESTIONS WHICH REQUEST THE OPERATOR 70 FURNISH
:THE

032354
032354
032356

000031

(4)
(4)
(4)

001130

(4)

(4)
(4)

313
(&)
(&)

(&)
(4)
(&)

3414
(4)

SOF TWARE

INFORMATION NECESSARY

TO BUILD

THE

SOFTWARE

P-TABLES.

BGNSF 7T
MGTINT,0,1,YES

GPRML

LSSOFT::

.WORD

000001

032370
032372
032372
032374
032376
032400
032400
032402
032404
032406
032406
032410
032412
032414
032416
032420
032420
032422
032424
032426
032426
032430
032432
032434
032436

GETBND,2,1,YES

GPRML

002130
032520
000001

003130
032547
000001

GPRML

GETDAV,4,1,YES

GPRML

GETMAN,6,1,YES

004052
032621
000377

.WORD
.WORD
.WORD

006052
032727
000377

GPRML

GETPLA,12,1,YES

GPRMD

GETMAX,14,D,377,1,255..Y

. 10035:

104

.NLIST BEX
MGTINT: .AS |
GETBND: .AS I
GETDAV: .AS 1
GETMAN: ,AS I
GETTIM: .AS 1
GETPLA:
5C1

IN U.S.A/

TS$CODE

GETTIM

377

TSLOLIM

.WORD
.WORD
.WORD

TSCODE
GETPLA
1

TSCODE

.WORD

GETMAX

.WORD
.WORD

TSLOLIM
TSHILIM

.EVEN

/RUN MANUAL INTEKVENTION TESTS/
/96 CHARACTER BAND/
/DAVFU OPTION INSTALLED/
/PERFORM MANUAL PRINTING SPEED MEASUREMENT/
/DESIRED TIME INTERVAL FOR PRINTING SPEED CALCULATION/
/TESTING

1

TSHILIM

.WORD

ENDSFT

TSCODE

GE TMAN

.WORD

.WORD

000377

042524

TS$(CODE
GETDAV
1

.WORD

005130
032706
000001

052522
03307
040504
120

.WORD
.WORD
.WORD

.WORD

000074

TSCODE

GETBND
1

.WORD

GETTIM,10,D,377,4,60..,Y

GPRMD

TSCODE

MGTINT
1

.WORD
.WORD

.WORD

032440

032440
032476
032520
032547
032621
032706

.WORD

032476
000001

032440

.WORD L10035-L8SOfFT/?2

.WORD
.WORD

NNINRNINN

3412

SOF TWARE PARAMETER SE(CTION

X4
MR

3408
3409

(&)
(&)

SEQ 0118

SOF TWARE PARAMETER SECTION
.SBTTL

000130
032440

(4)

8 10

PAGE 37

.

(&)
(4)
(4)

3410
3411

09:27

01~-0CT-79

flfiflfififi

3399
3400
3N
3402
3403
3404
3405
3406
(3)
(3)
307

30A(1052)

377

3429

032727

101

3431
3432

032754
033014

000020

(4)
(&)

033014
033016

000000
000000

3423
3434

033020

(3)

033020

000001

052125

€ 10

30A(1052)

01-0(7-79 09:27 PAGE 37-1
SOF TWARE PARAMETER SECTION

042117

GETMAX: _ASCIZ
LIST BEX
EVEN

/AUTODROP ERROR COUNT/

PAT(H:

20

LASTAD

LSLAST::
ENDMOD
LEND

,BLkw

SEC 0119

.EVEN
. WORD

lole]

MACY11
CILPLAO LP2S TEST
(ZLPLA.PIT
C1=-0CT1=79 09:25

CILPLAQO LP2S TEST
CZLPLA.P1Y

01-0CT~-79 09:25

ACTIVE= 100000
ADR
= 000020 G
ASSEMB= 000010

AUTCON
BANDSW
B8I1T0 =
81700 =
BIT01 =
BITO2 =
BIT03 =
BITO4 =
BITO5 =
BITO6 =
BIT07 =
81708 =
BITO9 =
BIT1
=

024053
011212

000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002

G
G
G
G
G
G
G
6
G
G
G
G

BIT10 = 002000 G
BIT11 = 004000 G
81712 = 010000 G

BIT13 = 020000 G

BIT14 =
BIT15 =
BIT2
BIT3
=
BIT4
=
BITS
=
BIT6
=
BIT7 =
BIT8
=
BIT9 =
BNDCNT=
BNDCT2=
BNDPAT
BNORDY
BNDSWI
BNOSW1
BNKSWI
BOE
=
BP64
BP6uA
BP64B
BP64C
BP64D
BPG4E
BPO4LF

BP64ID
BP96
BP96A
BP96B
BPY6C
BP9OD
BPYOIL

040000
100000
000004
000010
000020
000040
000100
000200
000400
001000
000367
000367
015152
011347
003340
011300
003273
000400
025346
025466
025472
025606
025613
025724
025730

025316
025736
026051
026056
026244
026251
025266

MACY11

G
G
G
G
G
G
G
G
G
G

G

30A4(1052)

01-0(T-79

SYMBOL

TABLE

09:27

PAGE

38

0D 10

BUFADD
BUFCNT
CONT

002334
002336
002270

CSGMAN= 000043
CSGPHR= 000042
C$GPLO= 000030

CHARX
CHRALN
CHRBND
CHRGEN
(K1
CLEAN
CLKCSR
CLKENA
CLKSET
CLKTCK
CLKTYP
CLKVEC
CLOCKP
CRTPTH
CSRERR
CTLBUF
CTLEND
CTLLOP
CURADD
CURCNT
CSAU =
C$AUTO=

022273
031360
002246
002274
005426
006270
002312
002320
002314
032216
002306
002316
002310
027612
003170
027115
00465C
004370
002534
002574
000052
00006

CS$INLP=
CSMANI=
CSMEM =
CSMSC =
CSOPEN=
CSPNTB=
CSPNTF=
CSPNTS=
CSPNTX=
C$QJ0 =
C$RDBU=
CSREFG=
CSRESE=
CSREVI=
CSRFLA=
CSRPT =
C$SEFG=
C$SPRI=
C$SVEC=
C$TPRI=
DATPTH
DFPTBL

000020
000050
000031
000023
000034
000014
000017
000016
000015
000377
000007
000047
000033
000003
000021
000025
000046
000041
000037
000013
022703
002232 G

000045
000062
000012
000035

EF.CON=
EF .NEW=
EF .PWR=
EF .RES=

G
G
G
G

CHAR
CHARSP

022702
022272

($BRK = 000022
C$BSEG= 000004
c$8sUB= 000002

CSCEFG=
($CLCK=
CSCLEA=
C$CLOS=
C$CLP1=
($CVEC=
CSDCLN=
C$00DU=
CSDRPT=
C$OU =
C$EDIT=
CSERDF=
C$ERHR=
C$ERRO=
CSERSF=
C$ERSO=

C$ESCA=
C$ESEG=
C$ESUB=
C$ETST=
CSEXIT=
C$GETB=
( $GE TwW=

Q00006
000036

000044
000051
000024
000053
000003
000055
000056
000060
000054
000057
000010
000005
000003
00000?
000032
000026
000027

ESPST4
ESPSTS
ESPSTé

C$GPRI= 000040
C$INIT= 000011

DIAGMC= 000000
DROPED= 000200
DROPIT
004656

000036
000035
000034
000037
EF.STA= 000040
ENDP64
025735
ENDP96 026325
END2
007100
END4
014454
ERRCOD
002322
ERRFLG 002324
ERROR = 002000
ERRSVC
002674
ERRTBL
002676
ERRO6
017502
ERRO7
017553

ERR11
ERR12
ERR13
ESPSTR
ESPST1
ESPST2
ESPSTZ

007172
007246
007331
031407
031431
031433
031475

SEQ 0120

G

6

ESPST7
EVYL
=
ESEND =
ESLOAD=
FAKE
FFSET
FLAG
FLSMSG
FLSMS1
FLSSEL
FRMLTH
FSTMSG
FSAU =
F$AUTO=
F$BGN =
FSCLEA=
F$DU =

FSEND =

031517
031541
031563

GS$OFSI= 000376
GSPRMA= 000001
GSPRMD= 000002

002100
000035
004764
013175
002262
013251
(013343
012504
012306
020613
000015
000020
000040
000007
000016
000041
000004
000013
000006
000050
000000
000011

GSRADB=
GSRADD=
GSRADL=
GSRADO=
GSXFER=
GSYES =
HAMF IR
HAMRDY
HAMRSW
HAMSW1
HOE
=
IBE
=
IDU
=
IER
=
INCDAT
INCTBL
INDEX
INHINT
INSTR
INTERR
INTERT
INTHDL

000000
000040
000120
000020
000004
000010
026656
011114
010753
011037
100000
010000
000040
020000
017263
017617
002330
002244
022216
007134
003410
007164

ISR
=
iXE
=
ISAU =
I$AUTO=

000700 G
004000 G
000041
000041
000041
000041
000041
000041
000041
000041
000040
000041
000041
000041
000041
000041

031605
000C04 G

F $HARD=
F$HW =
FSINIT=
F$JMP =
FSMOD =
FSMSG =
F$PROT= 000021
F$PWR = 000017
FSRPT = 000012
F$SEG = 000003
F$SOF
T= 000005
FS$SRYV = 000010
F$SUB = 000002
F$SW
= 000014
FSTEST= 000001
GETADR 032316
GETBND
032476
GETDAV
032520
GETFLG
017214
GETMAN 032547
GETMAX
032727
GETPLA 032706
GETTIM 032621
GETVEC
032333
GSCNTO= 000200

GSDELM=
GS$DISP=
GSEXCP=
GSHILi=
GSLOLI=
GSNO
GSOFFS

000372
000003
000400
000002
000001
000000
000400

GSPRML= 000000
GSRADA= 000140

INTOO
IOCTRL
IODRV

ISCLN =
I$0U
=

I$HRD =
I$INIT=
ISMOD =
iMSG =
I$PROT=
ISPTAB=
[$PWR =
ISRPT =
I$SEG =
I$SETU=

I$SFT =
I$SRV =
[$SUB =
I$TST =
JSJMP =
LCTMSG
LCT BL

031616
004330
004166

000041
000041
000041
00004°
000167
021016
020532

G
G
G
G

OFFLIN
ONEFIL=

ONL IN1
ONL IN?

ONL IN3

OUTBUF
OUTTIM
OVFLO =
O$APTS=
=
0SAU
0$BGNR=
O0$BGNS=
osOuU
=
OSERRT=
OSGNSW=
O$POIN=
0OS$SETU=

W
n
o

o
[p¥]
o

PATCH
PATTER
PERIOD
PLOC

PNT

005731
030515
013103
006045

NOINTR- 000003

PRTCHR
PRTCTL
PRTSPD
PTABRAD
PTHPNT
RDYERR
READY

REFLIN
REFLI

nhoan

MRESET
MUL INE
NMLFLS
NOLLCK

(013440
073535
(13633

e

002260
032440

SECMSG
SFPTBL

002254
006200
001000
002000
002304
000000
000040
000100
000140
000200
000240
000300
000340
023214
027074
015511
002302
027610
003206
006010
012675
012772

TSSHAR=
T$SHW =
T$SINI=
T$$PRO=
T$$50F=
T$$SRV=
T$SSUB=
T$$SW =
T$STES=

SKIP3

SPCCNT
STACHR
STATER=
STATUS
STRCNT

11
T1A
118
T1C
110
11
112
13
14
115
116
12
13
T3MOv
T3SET
T4
15

Sv(GBL=
SVCINS=
Sv(suB=

SVCTAG=
SVCTST=
SSLSYM=
TABAGS
TABA96

TABSTR

TAB64
TAB96

TICK
TIME
TIMOUT=
TXERR
TXNOIN

022732

PR]
PRINTR

PRIOS
PRI06
PRIO7

005612
005675
017624
015221
000001
015261
015362
015460
002742
003470
000100
000000
000000
000000
000001
000000
000090
000001
009001
000000
012603
010670
010542
003230
010612
032754

T$SAUT= 010002
T$SCLE= 010005

REPLUP
RESET
RESVEC

T$SARGC=
T$CODE=
TSERRN=
TSEXCP=
T$FLAG=
TSGMAN=
TSHILI=
TSLAST=

T6

T7
T8
T9

UAM
UNIT
USA
w7

WTEQO

T$SEGL=
TS$SUBN=
T$TAGL
=
TSTAGN=
TSTEMP=
T$TEST=
T$TSTM=
T$TSTS=

000000
000005
000000
177777
172777
00000C
177777
010036
000090
000020
177777
000001

010034
010007

010004
010000
010035
010033
010016
010003
010031
006406
006422
007116
006426
023246
024614
026330
026712
027334
030212
030636
007404
011452
012304
012302
013646
016330

017634

02122¢
022360
022736

= 000200
002276
002256
002326

VFUCHL
VFUCMD
VFUDAT
VFUERR
VFULCT
VFUOPT
VFUSEL
VFUSE1
VFUTBL
WORK
WORK1
X
=

003546

022220
002332
022274
017232
020470
002250
003615
03703
020571
002736
002740
000040

XSALWA= 000000
X$FALS= 000040

[2Ialalalalalalalal

NSTTBL

PR]04

REFLIZ2

oo

NRGT17

SEQ 0121

024137
023752

017334
006107

NRGT16

PRICO
PRIO1
PRI02
PRIO3

E

38-1

(2T IAT2T A

NONBUF
NONCHR
NCSTOP
NOT IM

PAPSW1

QOO
NN
PN
NN
H—_0
oo

jolololelelolololalolelololelele)
NnooOoC rlelelelelslelelolaleleleolelele]
VNWNW WWRLONDNONNNONON)
(= AV P N WY =S ONC
VIS WN=O0O

PAGE

FAPCHK
PAPRDY
PAPRSW
PAPSWI

gr‘r—
080

(ol el el aull nll ll el ol ol all nd el el e od o

b — N
N
P U

S

0

002042
002122
002112
002062
0020790
032356
002056
002020
002024
002030
002244
002114
002014
002012
002236
002240

TABLE

09:27

[Aalatalalalala BN AT Al

SYMBOL

MAXERR
MGTINT

MOVMSG
MOVMS1
MOVMS?2

01-0(7-79

[(SlIalalalalaTalalalalalalalal

30A(1052)

LSPRIC
L$PROT
LSPRT
LSREPP
LSREV
LSSOFT
LSSPC
L$SPCP
LSSPTP
L$STA
LSSW
LSTEST
LSTIML
LSUNIT
L10001
L10002

—

002264
015154
012340
012424
040000
000010
002434
202340
0C3732
004000
015142
002634
015547
015630
002400
002266
002300
002110
002036
002070
002236
002106
006266
002032
002011
002172
002076
002060
002132
002116

[alalalalalalalalalalalalalalalalalalalalalalnlialalalalalalalalalalalalal

LINCNT
L INPER
LINSW]
L INSWY
LOE
LOY
L PRUF
LPCSR
LPDROP
LPERR
LPERRZ
LPINTR

"

MACY11
(ZLPLAO LP?5 TEST
(ZLPLA.P1
01-0(T1-79 09:25

SFEWH]
= 000129

000402

1772777
000001
000001
000001
000001
000001

000110
= 00010
000200
000160
033020
ERRORS DETECTED:

000

0

(IZLPLA, CZLPLA.SEQ/DOC=SVC/ML
,SPMAC/ML ,"7LPLA

RUN-TIME: 3°9 295 2 SECONDS
RUN-TIME RAT.O: 1091/617=1.7
(47 PAGES)
24K
CORE USED:
DOCUMENT PAGE":

122

10

SEQ (0122

T
T I
L
T
T I

$$SRC = 00002

$$TGSvV=
$$7GS
=

TR

177777

000110
000120
000110
000120
000110
000110
177777
050320
177777
050324
050323
050323

$$LOCN= 00000V
$SREG =
$S$RL TU=
$SRIN1= 000000
$SRTN2= 000000

1}

1727777
000001
000001
x

$LOCTA
SLSTIN

F

38-¢

W

$F SNO
000403
$FSOR
$FSRT]
$FSRTN=
$FSSEL=
SFSTHE=
$FSTRU=
$FSUNT=

PAGF

—

000400
0003510
000401
000170
= 00015C
000220

01-0CT=79
09:27
SYMBOL TARLE

w

000400
X$TRUE= 0000 20
177777

Y$OF
F S=

30A(1052)

o

MACY11
( JLPLAQ LP2S TEST
(ZLPLA.PTY
01=0CT=79 09:25

$87G52=

$$70
=
$887AG= 050000

033020

032256

Site structure and layout ©2025 Majenko Technologies