Digital PDFs

AH-E635D-MC

August 1981

114 pages

Original

4.7MB

view download

OCR Version

4.3MB

view download

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

OCR Text

LPO7/25/26

LP25/26/07 DIAG

SOEEPEBOESI

: E

PHERE3T0RC, it
o QIROMET
SD w HC

AUG 1981

MACRO M1113

-SER DOCUMENTATION CZLPLDO

30-DE(-B0 09:36

PAGE 3
.REM ¢

IDENTIFICATION
PRODUCT CODE :

AC-E634D-M(

PRODUCT NAME:

(ZLPLDO LP25/26/07 DIAG

MAINTAINER:

SMALL SYSTEMS DIAGNOSTICS

PRODUCT DATE:

12-JAN-81

AUTHOR :

JOHN CHATALIAN

DON RICE
RALPH SCHAUBER

GLENN PERNA

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

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

THE USE
SUPPLIED

OR
BY

RELIABILITY OF
DIGITAL OR IT5

THE FOLLOWING ARE TRADEMARKS Of DIGITAL EQUIPMENT CORPORATION:

DIGITAL
DEC

PDP

DECUS

UNIBUS

DECTAPE

MAS SBUS

MACRO M1113

USER DOCUMENTATION CZLPLDO

30-DEC-80 05:36

D
—d
—h
d
b

GENERAL INFORMATION

PROGRAM ARSTRA(T

SYSTEM REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS

DIAGNOSTIC HIERARCHY PRERIQUISITES

.
O

ERRUR INFORMATION
PERFORMANCE AND PROGRESS REPJORTS

DEVICE
TEST

. . . . . . L] NOWVMSBWNH—=O

roronororonurong

OPERATING JNSTRUCTIONS

L)
O

ASSUMPT JONS

.
O

—

C(ONTENTS

[]
O

[) . . . .
VB WN—=O

TABLE OF

PAGE &

COMMAND S

FLAGS

SWITCHES

HARDWARE QUESTION

SOF TWARE QUESTIONS

EXTENDED P-TABLE DIALOGUE

QUICK STARTUP PROCEDURE

INFORMATION TABLES

SUMMARIES

SEQ 0001

MACRO M1113

USER DOCUMENTATION CZLPLDO

30-DEC-80 09:36

1.0

GENERAL INFORMATION

1.1

PROGRAM ABSTRA(Y

SEQ 0002

PAGE 5

THIS DIAGNOSTIC PROGRAM VERIFIES PROPER PROPER OPERATION OF THE

LINE PRINTER AND ITS ASSOCIATED M7258 CONTROL UNIT

¢ LP25, LP26, OR LPO7

WHICH INTERFACES TO THE PDP=11 (PU. T {E BROAD RANGE OF TESTS
ASSURES A COMPREMENSIVE TEST OF THE FUNCTIONAL CAPABILITY OF
THE LINE PRINTER. THE INDIVIDUAL TESTS ARE IDENTIFIED AS

FOLLOWS:

TEST
TEST

1
2

INTERFACE LOGIC
READY LINE INTERLOCKS

TEST

PRINTING SPEED

TEST

BAND PATTERN

TEST 10

PRINT CONTROL

TEST
TEST
TEST
TEST

TEST

5
6
7
9

TEST 11
TEST 12

FORMS LENGTH SELECTION

DATA TRANSFER PATHS
PRINTABLE CHARACTERS
NON-PRINTABLE CHARACTERS
SPURIOUS HAMMER FIRING

MULTIPLE LINE ADVANCE
CHARACTER AL IGNMENT

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

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

1.2

SYSTEM REQUIREMENTS

A TE T STATION 1S REQUIRED CONSISTING OF A PDP=11 (PU WITH A
MINIMUM OF 16K WORDS OF MEMORY AND A CONSOLE TERMINAL WITH

INTERFACE AT DEVICE ADDRESS 777560. THE SYSTEM ALSO REQUIRES

AN XXDP SUPPORTED DEVICE SUCH AS AN RKO5/Rk11 DISK DRIVE TO
AFFORD A MEANS TO LOAD THE DJAGNOSTIC PROGRAM. A KW11-L LINE
TIME CLOCK OR A KW11-P PROGRAMMABLE REAL-TIME CLOCK IS NECESSARY
FOR MEASURING THE TIME INTERVAL FROM WHICH PRINTING SPEED IS
DETERMINED. IF A CLOCK IS NOT INSTALLED IN THE SYSTEM, THE
OPERATOR WILL HAVE TO USE MANUAL MODE TO MANUALLY TIME
PRINTER OPERATION FOR A FIXED TIME INTERVAL TO CALCULATE THE
PRINTING SFEED.

IN A MANUFACTURING ENVIRONMENT WHERE APT/ACT/SLIDE ARE USED,
THE TF<T STATION MUST BE EQUIPPED WITH THE APPROPRIATE INTERFACE

AND # HOST PROCESSOR WITH THE NECESSARY SOF TWARE.

MACRO M1113

JSER DOCUMENTATION CZLPLDO

1 .3

30-DEC-80 09:36

PAGE 5-1

TAGS

.=2000

BGNMOD

POINTER BGNSW,BGNSFT

783 002000
002000

::
LONAME

002000

HEADER

002001
002002
002003
002004
002005
002006

002007
202010

——

T INSTRUCTIONS
T TEST TAGS
T SUBTEST TAGS
T GLOBAL TAGS

.ENABL AMA
.ENABL ABS
.ENABL L(C

002000

002010
002011
002011
002012
02012
002014
002014
002016
002016
002020
002020
002022
002022
002026
002024
002026
002026
002030
002030
002032
002032

0
0
0
9§
O

wnmnnnumon

770
771
772

SVCINS=
SV(TST=
Svisus=
SVCGBL=
SVCTAG-

St bt bg Pg

000000
000000
000000

769

-1

708

;STRUCTURED MACRO PACKAGE

; LIST ASSY CODE LEFT
; LIST TAGS LEFT

0
0

$LSTIN=
$LSTTAG$LOCTAG=

000000
000000

177777

767

;INITIALIZE SUPERVISOR MACROS

STRUFT

f-f_f_f-“f-

766

Sv(

JMCALL
Sv(
MCALL

762 000000
763
764 000000
765

PAGE 9

30-DEC-80 09:36

761

782

SEQ 0015

.TITLE

758
759
760

781

:
LSREV:
:
L$DEPO:

000000

000060
036700
037072
002244

002262

037450
000000
000000

LSUNIT::

::
LSTIML

L$HPCP::
L$SP(P::
LSHPTIP::

L$SPTP::
LSLADP::
L$STA::
L$CO::

LASCII
LASCII
LASCII
JASCII
JASCII
BYTE
.BYTE
BYTE

/C/
/1/
/L/
/P
/L/

0
0
0

:DIAGNOSTIC NAME

;REVISION LEVEL

JASCII

/D/

LASCII

/0/
0

:NUMBER OF UNITS

:LONGEST TEST TIME

.WORD
.WORD

.WORD

L $SHARD

.WORD

L$SOFT

.WORD

L $HW

.WORD

L$SW

.WORD

LSLAST

.WORD
.WORD

;POINTER TO H.W.

QUES.

:POINTER TO S.w. QUES.
;PTR.

10 DEF.

H.W.

PTABLE

:PTR.

TO S.W.

PTARLE

:DIAG. END ADDRESS
:RESERVED FOR APT STATS

CZLPLDO LP2S, LP26, LPO7 TEST

PROGRAM HEADER

002034
002034
002036
002036
002040
002040
002042
002042

002044
002044
002046
002046
002050
002050
002051
002052

002052
002054
€02056
002056
002060
002060
002062
002062

002064
002064
002066

002066
002070
002070
002072
002072
002074
002074
002076
002076
002100
002100
002102
002102

000001

000000

002132
000340
C0C000

000000

003
003
000000
000000
000000

002222
000000
000000
000000
000000
000000
000000

002162
104035

000000

005754
010064

002254
002122
000000

00212
784
785
78¢€

000000
000000

MACRO M1113

30-DEC-80 J9:36

LSDTYP:.

L$APT::
LSDTP::
L$PRIO::

LSENV]::

L$EXPY::
LSMREV::
L$EF::

.WORD
.WORD
.WORD

.WORD
.WORD

.WORD
.BYTE
.BYTE

L$SP(::
:
LSDEVP:

L$REPP::
:
LSEXPS:

L$EXPS::
LSAUT::

L$DUT::
LSLUN::
L$DESP::

:
L$LOAD:
:
LSETP:

LSICP::
L$CCP::

LSACP::
:
L$PRT:

LS$TEST::
LSDLY::

::
LSHIME

.WORD
.WORD

;DIAGNOSTIC TYPE

;APT EXPANSION

;PTR.
L$DISPATCH

;DIAGNOSTIC RUN PRIORITY

;FLAGS DESCRIBE HOW [T WAS SETUP

;EXPANSION WORD
;SVC REV AND EDIT #

CSREVISION
CS$EDIT

LEDVTYP

.WORD

L$DESC
ESLOAD

.WORD

LSINIT

.WORD

L$CLEAN

.WORD

| SAUTO

.WORD

L$PROT
0

.WORD
.WORD

;DIAG. EVENT FLAGS

.WORD

T0O DISPAT(H TABLE

340

.WORD

SEQ 0016

PAGE 9-1

.WORD

EMT

; POINTER TO DEVICE TYPE LIST
;PTR.

TO REPORT

(CODE

;PTR.

TO ADD UNIT CODE

;PTR.

10 DROP UNIT CODE

;LUN FOR EXERCISERS TO FILL

;POINTER TO DIAG. DESCRIPTION

;GENERATE SPECIAL AUTOLOAD EMT

;POINTER TO ERRTABL
;PTR. TO INIT CODE

;:PTR, TO CLEAN-UP (ODE
;PTR.

TO AUTO CODE

;PTR.

TO PROTECT

TABLE

;TEST NUMBER

;DELAY COUNT

;PTR.

TO HIGH MEM

1 Tt FOLLOWING 1S A LOAD PROTECTION TABLE

CZLPLDO LP2S, LP26, LPO7 TEST

PROGRAM HEADER

30-DEC~80 09:36

;

787

788 002122
002122
789 002122
790 0021246
791 002126
792 002130

MACRO M1113

000000
177777
177777

LSPROT::

BGNPROT
.WORD
.WORD
.WORD

ENDPROT

O
=1
=1

PAGE 9-2

SEQ 0017

6
DISPAT(H TABLE

MACRO M1113

SEQ (018

PAGE 10

DISPAT(CH TABLE

c 44

796

)

797
798

: 1T 1S USED BY THE SUPERVISOR TN DISPAT(H TO EACH TEST.

799

00216¢
002170
002173

002176
002201
002204
002207
202212

002215
002220

010260
011550
014542
017650
025256
025702
026600
030320
(33020
033476
035034
035512

T1
T2
T3

.WORD
.WORD

.WOKD
.WORD
.WORD
.WORD

. WORD

.WORD

17
T8
19
T10
T
T?12

:FOR USE ON REVISION C OF THE SUPERVISOR

LSDESC

DESCRIP
JASCIZ

.EVEN

DEVTYP

806 002222

002222
002222
002225
002230
002233
002236

.WORD
.WORD
.WORD

.WORD

b —b

002162

:X= NUMBL@ OF TESTS

120

054
052
114

067

<CZLPLDO LINE PRINTER DIAGNOSTI(>
/C2LPLDO LINE PRINTER DIAGNOSTIC/

b =

802
803
804
805 002162
002162

.WORD

L$DISPAT(CH::

A (D) =

002144
002146
002150
02152
002154
002156
002160

000014

— = OQOHRNNHO
O —
—_y = O SN

002130
002132
002132
002134
002136
002140
002142

DISPATCH

—d

800
801 002130

807
808
809

30-DEC-80 09:36

.SBTTL

794
795

Ot
2
20— —
O
= =N =)=
=W
OHrON=2NOROONO
NN

CZLPLDO LP2S, LP26, LPO7 TEST

062
114

LS$DVTIYP::

LASCIZ

066
000

.EVEN

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

CZLPLDO LP25, LP26, LPO? TEST
WArY

SEQ 0019

PAGE 11

DEFAULT HARDWARE P-TABLE

: THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES Of
: THE TEST-DEVI{E PARAMETERS. THE STRUCTURE OF THIS TABLE
: IS IDENTICAL TO THE RUN-TIME P-TABLE.

000

D nd ed =D

30-DEC-80 09:36

.SBTTL
O\ N

00 00 0o 0o 0o 00 00 0o 00

d =D

DEFAULT HARDWARE P-TABLE

MACRO M1113

_—

002242
002242
002244
002244
820 002244
821 002246
822 002250
823

824
830 002252
831
832
833
834
835
836 002254
002254
837
838
839
840 002254
002254
84t
842 002254
843
844 002256

002256
202256

000004

177574

BGNHW

LSHW::

::
DFPTRL

L10001-L$HW/2

.WORD

177514

.WORD
.WORD

000200
000000

WORD

000000

DFTMTBL

.WORD

:LP25 REGISTER ADDRESS

;LP25 INTERRUPT VECTOR
: 0 IF LP2S

200
O

IF LP26

: 2 IF LPO7

; 0 IF 64 CHAR BAND

96 CHAR BAND

*INTERRUPT VECTOR PRIORITY IS & AND CANNOT BE CHANGED
L10001:

L$AUTO::

BGNAUTO

; NOT USED

NOP

00040
1046461

ENDHW

L10002:

ENDAUTO

TRAP

C$AUTO

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

MACRO M1113

30-DE(-BO 09:36

.SBTTL

846
847
848

PAGE

SEQ 0020

1¢

SOFTWARE F-TABLE

R
2 4

;

THE

SOFTWARE

P-TAB_E

(ONTAINS

THE

VALUES OF

THE

; PARAMETERS THAT (AN BE (HANGED BY THE OPERATOR.
002260
002260
002262

000005

002262

000000

002262

002264

BGNSW

LSSW::

PRCGRAM

SFPTBL

.WORD

L10003-L$Sw/2

WORD

SFPTIBL::

000006

INHINT:
MANSPD:

.WORD

: O IF NO INTERVENTION TESTS
1

MANUAL

DEFAULT

[NTERVENTION

IS NO

TESTS

O FOR AUTOMATI(C PRINT

SPEED

FROM 4

INITIAL

1 FOR MANUAL PRINT SPEED TEST
AUTOMATIC DEFAULT VALUE
: OPERATOR TO SELECT TIMING VALUE
.

002266

000074

PERIOD:

.WORD

60.

TO 60 SECONDS.

DEFAULT VALUE
002270

000001

USA:

.WORD

002272

000005

MAXERR:

.WORD

002274
002274

;

:
;
;
.

FOR

IS 60 SECONDS.

TESTING

IN U.S.A.

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

(OUNT

IF ERROR (OUNT EXCEEDS MAXERR THE UNIT WILL BE DROPPED FROM TEST

L10003:

ENDSW

CZLPLDO LP2S, P26, LPO7 TEST
1/0 MACRO DEF IR]ITIONS
.
874
875
876
877

30-DEC-80 09:36

MACRO M1113

.SBTTL

.MACRO

878

879~

880
881
882
883
884
885
886
887
888
889
890
8N
89¢
893
894
895
896
897

.IF B
.ENDC

.IF NB
.END(

SEQ 0021

PAGE 13

i/0 MACRO DEF INITIONS

QUTPUT

MOV
MOV
MOV

ADD,BFCNT,ERR,PRINTS
ADD ,BUF ADD
BF CNT ,BUF CNT
#-1,PRINTR

ERR

;SAVE THE BUFFER ADDRESS
;BUFFER BYTE COUNT BF(NT
; OUTPUT TO ALL UNITS

#LPERR,ERRSV(

MoV

ERR

ERR,ERRSV(

MOV

.IF B PRINTS

#1,3UFREP

; PRINT ONCE DEFAULT

[0}

PRINTS ,BUFREP

; SUPPLY PRINT COUNT

.ENDM

JSR

QuUTPUT

PC.IOCTRL

;CALL THE DRIVE®

.MACRO

O0UTPUI

ADD,BF (NT ,ERR,UNIT ,PRINTS

.ENDC

MOV

.IF NB PRINTS
LENDC

.IfF

LEND(
.IF NB
.ENDC

BF CNT ,BUF (NT

MOV

#LPERR,ERRSV(

ERR

MoV

.IF NB PRINTS
.ENDC
.ENDM

MOV

JSR

;SAVE BUFFER ADDRESS

JBUFFER BYTE COUNT BFCNT

ERR,ERRSV(

MOV

.IF B PRINTS
.ENDC

ADD ,BUF ADD

MoV
MOV

#1 ,BUFREP

; PRINT ONCE DEFAULT

PRINTS ,BUFREP

;

UNIT,PRINTR

PC.,10CTRL

SUPPLY PRINT COUNT

; SUPPLY UNIT NUMBER

;CALL THE DRIVER

: PRINTS IS A PARAMETER (ONTROLLING THE NUMBER IF TIMES THE DATA OR

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

* A TIMEOUT OF 20. SECONDS IS FURNISHED BASED ON THE FOLLOWING ASSUMPTIONS :
A PRINTER SPEED OF 300 LPM
1
;

924 002274

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

AN INITIAL BAND STARTUP TIME OF 2.5 SECONDS.

CZLPLDO LP2S. LP26, LPO7? TEST

GLOBAL AREAS

MACRO M1113

30-DEC-80 U9:36

SEQ 0022

PAGE 14

.SBTTL GLOBAL AREAS

?
g%
928 002274

BGNMOD

929
930

s+t

: THE GLCSAL EQUATES SECTION CONTAINS PROGRAM EQUATES

931

: THAT ARE USED IN MORE THAN ONE TEST.

33_25

934

EQUALS

938 002274

: BIT DIFINITIONS

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

BIT15== 100000
BIT14== 40000
BIT13== 20000
BIT12== 10000
BIT11== 4000
BIT10== 2000
B81T09== 1000
BIT08== 400
BIT07== 200
BIT06== 100
BIT05== 40
BIT04== 20
B81T03== 10
BIT02== 4
BIT01== 2
BiT00== 1

0C1000

BIT9==

BIT09

000200
000100
000040
000020
000010
000004
000002
000001

BIT7==
BIT6==
BITS==
BIT4-=
BIT3==
BIT2==
BIT1=BIT0==

RITOQ7
BIT06
BITO0S
BITO04
BIT03
BITQ2
BITN
BIT00

000400

BIT8==

BIT08

; EVENT FLAG DEFINIT]ONS

;

000040
000037
000036
000035
000034

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

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

32.
31.
30.
29.
28.

: PRIORITY LEVEL DEFINITIONS

000340
000300
000240
000200

PRIO7==
PR106==
PR]0S==
PRI0O4 =

340
300
240
200

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

CZLPLDO LP2S, LP26, LPO7 TEST

GLOBAL AREAS

MACRO M1113

30-DEC-80 09:36

SEQ 0023

PAGE 14=1

PRI03== 140
PRI02== 100
PRI01== 40

000140
000100
000040
000000

PRIOO== 0

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

EVL==

000012
000014
000015
000177

LF==12

10
20
40
100
200
400

LOT==
ADR==
[DU==
ISR-=
UAM-=
BOE-—
PNT==
PR]==

IXE-=
IBE-~
1ER==
LOE==
HOE==

100000

1000
2000

4000
10000
20000
40000

100000

FF==14

==1§

DEL“177

"PRIORITY LEVEL DEFINITIONS
PRIO7-=
PRI06=PRIQS==
PR104==

000340
000300
000240
000200
00010
000100
000040
000000

PRI03==
PRI02==
PRI01==
PRI00=-

340
300
240
200
140
100
40
0

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

STATER- 1

000003

NOINTR-

; TRANSMITTER STATUS ERROR IN QUTPUT
:TIMEOUT ERROR IN 10 DRIVER MODULE

TIMOUT= 2

;THIS ERROR INDICATES THE LAST CHARA(CTER
*WAS NOT TRANSMITTED WITHIN A GIVEN TIME
;GROSS TIME OUT ERROR. THE SPECIFIED DID NOT
; INTERRRUPT. THEREFORE 10 DRIVER MODULE WAS
INOT CALLED

"sBTTL

GENERAL REGISTER USAGE DEFINITIONS

‘RO
;R1
:R2

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

‘R3

TEMPORARY STORAGE

;R4

PRINTER

TABLE

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

978
979
980

981
982
983
984
985

988

SEQ 0024

PAGE 14-2

STACK POINTER

PROGRAM (OUNTER

* LP STATUS TABLE BIT DEFINITIONS
100000

040000
020000
010000
002000
001000
000377

ERROR = BIT1S
DROPED
ACTIVE
FLAG96

FLAGO?7
FLAG26
LOBYTE

;

96 CHAR BAND

;SEE DEVICE CODE BELOW
;SEE DEVICE CODE BELOW

; BIT MASK FOR CLEARING LOBYTE (COUNTER)
DEVICE CODE

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

—_O=0O

986

987

30-DEC-80 09:36

DEVICE

LP25
LP26
LPO7

RESERVED FOR FUTURE EXPANSION

CILPLDO LP2S, LP26, PO7 TEST

GLOBAL DATA SECTION
1008

MACRO M1i113

30-DEC-80 09:36

GLOBAL DATA SECTION

000000
000000
000000
000000
000000
000000
000000
000000
000000

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

.WORD
.WORD
.WORD
.WORD
LWORD
.WORD
.WORD
.WORD
_.WORD

0
O
C
O
O
O
0
0
0

000000
000000

PTABAD:
PRINTR:

.WORD
.WORD

0
O

000000

CLKTYP:

.WORD

002324
002326
002330
002332
002334
002336

000000
000000
000000
000000
000000
000000

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

.WORD
.WORD
.WORD
.WORD
_WORD
.WORD

0
0
0
0
0
0

1037 002340
1038 002342
1039
182?

000000
000000

ERRFLG:
uuT:

.WORD
.WORD

0
0

1042 002344

000000

_WORD

1011

1012 002274
1013 002276
1014 002300
1015 0023G2
1016 002304
1017 002306
1018 002310
1019 002312
1020 002374

1021
1022
1023 002316
1026 002320
1025
1026 C02322
1027
1028

1029
1030
1031
1032
1033
1034
1035

1036

}822 002346

000000

}822

INDEX:

vFUCMD:

.WORD

;MACRO

VARIABLES

SEQ 0025

PAGE 15

.SBTTL

1009

;<CR> FLAG FOR USE BY SUPERVISOR
JLINE COUNTER

JUNIT CCUNTER FOR SINGLE UNIT TESTING
SUNIT COUNTER FOR ERRORS
JAND TESTS NOT USING THE OUTPUT
JMACROS.
;P-TABLE ADDRESS RETURNED BY GPHARD
JSELECTED LINE NO.
;MACRO
;CLOCK TYPE CONTROL WORD
;1= NO CLOCK AVAILABLE
;2= KW11=L LINE CLOCK

;3= KW11=-P PROGRAMABLE CLOCK

;. CLOCK P-TABLE ADDRESS
;CLOCK CSR ADDRESS
. CLOCK TIME SET REG ADDRESS
;CLOCK VECTOR ADDRESS
;CLOCK ENABLE BITS
;ERROR CODE 1YPE FOR GENERAL

;ERROR ROUTINE

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

1047 002350

000000

BUFADD:

.WOKD

:BUFFER ADDRESS OF

}8?8 002352

0006000

BUFCNT:

.WORD

;NUMBER OF BYTES TO TRANSFER

%82; 002354

000000

BUFREP:

.WORD

1048

1053
1054
}822

;
;LP25 PARAMETER WORD

1057 002356

(000020

LPCSR:

.REPT

106G 002416

000016

LPVEC:

.REPT

1063 002452

000020

LPBUF:

1058
1059
1061
1062
10¢.4

;TO THE PRINTER

: NUMBER OF

., INTERRUPT

.WORD
.ENDR

. WORD

_REPT 16,

TIMES TO PRINT

TABLES

16.

WORD
.ENDR

DATA TO BE SENT

)

;

ADDRESS OF

(SR FOR EACH LPI11
VECTOR ADDRESS

DATA BUFFER REGISTER ADDRESS

CZLPLDD LP2S, LP26, LPO7 TEST

GLNBAL DATA SECTION
1065
1066 002512

1067

1068
1069 002552
"070
1071

1072 002612
1073

1074
1075 002652
1076
1077
1078 002712
1079
1080

1081 002752
1082
1083
1084 00307¢
1085
1086

“087 003052

OOD\«ShfiSEUU\LAEB
slelololeololaie o]

wad —nd

d
)

o
e

b e
B

D nd ed e

— ed
b

—r

1088
1089
1090
1091
1092
1093
1094

MACRO M1113

30-DEC-80 09:36

000C20

STATUS:

000020

:
CURADD

000020

MSGCNT:

000020

REPCNT:

000020

MSGADR:

00002C

CURCNT:

000020

LPINTR:

000020

DELCNT:

000000
000C20

ERRSV(:
:
ERRTBL

.ENDR
.WORD
.ENDR
.REPT
.WCRD
.ENDR
.REPT
.WORD
.ENDR
.REPT
.WORD
.ENDR
.REPT
.WORD
.ENDR
.REPT
. WORD
.ENDR
.REPT
.WORD
.ENDR
.REPT

.WORD
.ENDR
.WORD

" _WORD

"ENDR

003154
003156

000000
000000

SFQ 0026

PAGE 15-1

16.

; UNIT STATUS

; CURRENT ADDRESS OF OUTPUT DATA BYTE

; INITIAL BYTE COUNT OF MSG FOR REPEAT RESTORE
; NO. OF

TIMES TO REPEAT MESSAGE

; ADDRESS OF DATA TO PRINT START OF DATA

: CURRENT COUNT REMAINING TO OUTPUT

0
.REPT 16.
¢

INTERRUPT ROUTINE ADDRESS

;

TIMEOUT DELAY COUNTER

; ERROR ROUTINE DISPATCH ADDRESS
; ERROR (CUNT FOR EA(H UNIT

; WORK AREA

WOR:K:

WOR1K:

.WORD
.WORD

.SBTTL

OUTPUT BUFFER

1150 BYTES IS RESERVED FOR THE OUTPUT BUFFER AREA

003160

000226

.EVEN
: .REPT
OUTBUF
.BYTE
.ENDR

150.

CZLPLDO LP2S, LP26, LPO? TEST

GLOBAL TEXT SECTION

MACRO M1113

30-DEC-80 09:36

LSRTTL

}}}}

PAGE 16

GLOBAL TEXT SECTION

NLIST BEX

1113
1114

1116

: MESSAGES, AND ASCII INFORMATION THAT ARE USED IN

; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,

1115

: MORE THAN ONE TEST.

}}}g
1119 003406
1120 003424

1121 003446
1122 003511
1123 003556
1124 003626
1125 003661
1126 003706
1127 003733
1128 003764
1129 C04033
1130 004121

1131 004147
1132 004215

1133 004257
1134

1135

1136
137
1138
1139

120
120

122
122

116

120
110
103
124
120
117
1¢5
101
045
045

102

126

111
111

(SRERR: .ASCIZ /PRINTER ERROR/
RDYERR: .ASCIZ /PRINTER NOT READY/

120
115
1017
101
111
126
111
114
045
045

DPAPSWI:
BNKSWI:
BNDSWI:
INTER1:
TXERR:
OUTTIM:
TXNOIN:
UVUTEQQ:
VFUSEL:
VFUSE1:

101

116

BGTSWI: .ASCIZ

106

040
125

NOCLK:

VFUINF: _ASCIZ
.EVEN

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

/VFU INTERLOCK FAILURE/

LLIST BEX

116

1143

1142

; FORMAT STATtMENTS USED IN PRINT CALLS

1144

101

114

1145 004306

045

120
040
mm

061
125
124

061
116
040

004336
004 341
004 344
004347
004352

104
122
040
123
116

040
117
124
124
000

106
115
105
045

004311
004314
004317

1148
1149

.ASCIZ

:
:

1140

1146
1147

.ASCIZ /PAPER (OW INTERLOCK SWITCH FAILURE/
.ASCIZ /HAMMER BANK INTERLOCK SWITCH FAILURE/
.ASCIZ /CHARACTER BAND INTERI.OCK SWITCH FAILURE/
.ASCIZ /TRANSMIT INTERRUPT TIMEOUT/
.ASCI1Z /PRINTER STATUS ERROR/
_ASCIZ /0UTPUT TIMEOUT ERROR/
.ASCIZ /UNIT FAILED TO INTERRUPT/
.ASCIZ /ALL UNITS HAVE BEEN DROPPED..RESTART../
.ASCII] /XNYAINSURE THAT VFU=~FLS SWITCH ON EACH UN'T IS IN THE /
.ASCIZ /XNXA'VFU'" POSITION.XN/

107
10
110
122
122
125
116
114
116
116

LPDROP: .ASCIZ

/%ALP11 UNIT XD2X%A DROPPED FROM TESTAN/

SEQ 0027

Ggagoooo\flwmmmmmmm
WA
— OO@\IO‘\I\J\WN—‘OO&V
WA
= O V00 NON N S WNRY
—

d
d

SUBROUTINES

D o
e ad

THE

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

) il

D i e
)

SECTION CONTAINS
THAN ONE TEST.

PRINTS

WHERE

b o

00000000~
N NN NN NVNR

1184

THE

ERROR MESSAGE

THE

FOLLOWING FORMAT:

"ERROR AT (SR XXXXXX UNIT Yv''

SECTION

D e

SUBROUTINES

THE GLOBAL SUBROUTINE
THAT ARE USED BY MORE

XXXXXX=
YY=

DEVICE CSR ADDRESS
UNIT NUMBER THAT FAILED

CALLING SEQUENCE
JSR PC,LPERR

D d

SEC 0028

PAGE 17

c+
e

RFQUIRED PARAMETERS

D ad

GLOBA!

ERRCOD MUST BE SET
UNDER ERROR (ODES.

d oD wd vd

.SBTTL

b el e

d ed
D
)
e

30-DEC-80 09:36

D cand el el el
—d el e

— ed i e

MACRO M1113

cosd

e —d

CZLPLDO LP25, LP26, LPO7 TEST
GLOBAL SUBROUTINES
SECTION

TO ONE OF

THE ERROR (CODES DESCRIBED

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

004354
004354
004360
004362
004370
004372
004374
004400
04402
004402
004404
004406
004410

013746
002454
023727
0032050
006316
062716
013607

002336

MOV

BLT
(€'
BGY

000003

ASL

004402

50000%:

004512
004412
004440

004466

1185 004412

004412
1186 004412
004412
1187 004416
004416
004422
1188 004426
004426
004430
004432

SE_LECT ERRCOD OF

002336

50003%:

0052u2

003114

010237
006237

002074

104456

000016
0030661

002074

3 VERIFY

ERRCOD ,-(SP)

50005%
ERRCOD ,#3
50005%
(SP)

ADD

#50000%, (SP)

WORD
.WORD
.WORD
.WORD

50004%
50003%
50002%
50001%

MOV

a(SP)+,PC

;STATUS ERROR

(ASE 1

LET ERRTBL(R?2) := ERRTBL(RZ2)
ERRTBL (R2)
INC
RZ2 SHIFT =1
LET LSLUN :

MOV
ASR

R2,LSLUN
LSLUN

TRAP

CSERHRD

ERRHRD
.WORD
.WORD

JSELECT PROPER MESSAGE fORMAT

14, TXERR
14
TXERR

+ #1

CZLPLDO LP2S, LP26, LPO7 TEST
GLOBAL SUBROUTINES SECTION
004434

1189
1190 004436

004436
004440
11N 004440
004440
004444

.WORD

CASE 2

000425

50002%:
003114

004450

010237
006237

002074
002074

004454
004456
004460
004462

000017
003706
000000

1193 004454

004464
004464
004466
004466
004466

004472
004472
004476
1169 004502
004502
004504
004506
004510

1200
1201
1202
1203 004512

-—

b
e
=D
ek o
—t ——d o

00 NN
NN —

—

d cad

AN
N1, N1, AN 1,0

) =D and —D

—

004512
004520
1206 004522
1207 004526
004526
1208 004526
004526
1209 004534
004534
004540
004540
004546

SEQ 0029

PAGE *7-1

50005%

:OUTPUT TIMEQUT ERROR

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

104456

ASR
ERRHRD
TRAP

LSLUN
15,0UTTIM
(SERHRD

.WORD
.WORD

QUTTIM
0

.WORD

CASE 3

000412

50001%:

005262

003114

INC

010237
006237

002074
002074

MOV
ASR
TRAP

104456

.WORD
.WORD
.WORD

000020
003733

000000

50005%

: NEVER RECIEVED THE INTERRUPT
LET ERRTBL(R2) := ERRTBL(R2) + #i
ERRTBL (RZ)
LET LSLUN := R2 SHIFT =1
R2.,LSLUN
LSLUN

ERRHRD 16,TXNOIN
($ERHRD

16
TXNOIN
0

ENDSELECT
50004%:
50005%:

004512
004512

1204
1205 004512

30-DF(-80 09:36

000000

0052¢2

004444

MACRO M1113

026237
003402
004737

003114

IF ERRTBL(R2) GT MAXERR THEN
,MAXERR
TBL
(R2)
ERR

(MP
BLE

002272

005612
500068%:

042762

100000

005037

002336

012772
000207

000100

50006%

END]#SR PC.DROPIT

002512

: MAXIMUM ERROR (OUNT EXCEEDED !

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

ERRCOD

MOV
RTS

#100,aLPCSR(R?2)
PC

LET aLPCSR(RZ) := #100

002356

BINZDA

: CLEAR THE ERROR BIT AND ENABLE INTERRUPTS
JAND EXIT

BINARY TO DECIMAL ASCII CONVERSION ROUTINE

ENTER WITH NUMBER TO BE CONVERTED ON THE STACK

FOLLOWED BY THE ADDRESS OF A 5 BYTE BUFFER
FOR THE ASCII STRING. 5 DIGITS WitL BE CONVERTED

LEADING 2EROES WILL BE CONVER'ED TO SPACES.

-~ CILPLDO LP2S, LP26, LPO7 TEST
. GLOBAL SUBROUTINES SECTION

MACRO M1113

30-DEC-80 N9:36

1223 004554

BINCZDA: PUSH R4 ,RS
R&4 ,~(SP)
MOV
R5,-(SP)
MOV

010446
010546

004554

016604

000006

004560

012705

004742

1224 004560
1225 004564

LET R4 := 6(SP)

MOV

LET RS
MoV

004754

004570

005037

004756

"228 004574
004574
004602

012737
000402

000004

004604

005337

004760

004610
0064614

005737
002435

004760

02€615
002405

000010

161566

000010

suB

004630

005237

004756

INC

004634
004636

000770

004610

1229 004616

004616

004616
004622

1230 004624
004624
1231 004630

33
34 004636

noRY

)

1232 004634

004636
004642
004644

004650
004652

1235 004652

003470

113724

004756

004664

005237

004754

004670
004672

000402

1239 004672

004672

1240 004676

112724

004676

50007%:

COUNTD

#4,DIGITS

DEC

DIGITS

TST

DIGITS

50012%:

: LEADING ZERO FLAG

; CREATE A DIGIT

LET 8.(SP) := 8.(SP) = (R5)
(R5),8.(SP)
LET COUNTD := COUNTD + #1

COUNTD
ENDDO

50012%

; CONVERT DIGIT TO ASCII OR SUPPLY A SPACE
TST

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

50014%

FLAGDA

TST

50015%

BLE

LET COUNTD := COUNTD SET.BY #60

#60, COUNTD
LET (R&)+ :B= (COUNTD

BIS

004756

’

8. (SP), (RS)
50013%

BGT

COUNTD, (R&) +

MovB
INC

000040

000002

; GET ADDRESS OF DECIMAL

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

(MP
BLT

BR
MCvR

50016%:

062705

; GET ADDRESS FOR ASCII STRING

50007%

BLT

50015%:

004676

1242 004676

50010%:

50014%:

004660

1238 004670

004760

004754

000060

CLR

PC(.BINZDA

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

004756

052737

1237 004664

CLR
LET COUNTD := #0

50013%:

004652

1236 004660

1241

005737
003003
005737

:= ATABLDA
#TABLDA,RS
FLAGDA

005037

C04604

6(SP) ,R4

LET FLAGDA := #0

004564

1226 004570

SEQ 003C

PAGE 17-2

CALL BY J4SR
22 004550
004550
004552

ADD

LET FLAGDA :=
ELSE

FLAGDA

FLAGDA + #1

50016%

LET (R&)+ :B- #40

#60,(R4)+
ENDIF

: DO THE NEXT DIGIT
:- RS ¢+ #2
RS
LET
#2,RS5

TABLE

CZLPLDO tP2S, LP26, LPO7 TEST

GLOBAL SUBROUTINES

1243 004702
004702
1244 004706

004706
004710

1245
1246 004710

004710
004714
1247 004716
004716
1248 004722
004722

SECTION

005037

MA(RO M1117

112764

004756

ENDDECR

50011%:

004722
004730
004730
C04732
1252 VUL 734
004734

1251

004754

BNE
MOVB

000060

1253 004740
“25

1255
1256 004742

004750

1257 004754

1258 004756
1259 004760
1260

000004

: IF NUMBER WAS A ZERQ PRINT A '0°
IF FLAGDA EQ #0 THEN

50017%:
016666

50010%

B8R

FLAGDA

TST

1249

1250 004722

50017%

LET =(R4)

ENDIF

; CLEAN UP THE STACK AND EXIT

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

000010

R5,R&

POP

012605
012604

MoV

000004

023420
000012
000000
000000
000000

001750
000001

LET SP
ADD
RTS

000144

:B- #60

#60,=(R4)

(SP)+,RS

MOV

062706
000207

PAGE 17-3

LET COUNTD := #0
COUNTD
CLR

000736

005737
001002

30-DE(~80 09:36

¢+ ,R4
(SP)

SP + #4

#6,SP
PC

TABLDA:

.WORD

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

FLAGDA:

MWORD
LWORD
.WORD

O
O
O

COUNTD:
DIGITS:

SEa 0031

H
€2 LPLDO LP2S, LP26, LPO7 TEST
s O DRIVER

MACRO M1113

30-DEC~80 09:36

.SBTTL

1262

1263

SEQ 0032

PAGE 18

/0 DRIVER

1264

1265

1266

1268
1269

JRETURN

‘44

;THE

1/0 DRIVER ROUTINE IS
;CALL TO IT IS Ump IODRV.

1267

INTERRUPT

SYSTEM,

RTI.

;70 CALCULATE

1271
1272

;R1

1273
1274

1275
1276
1277

OFFSET

INTO PROPER

EQUALS MAXIMUM NUMBER OF

TABLE.

UNITS ON SYSTEM UNDFR

TEST.

* CHECK FOR ERROR FLAG IN STATUS REG.

1278 004762

004762
C04770

032772
001061

100000

002356

10DRV:

IF #8]T15 NOTSETIN @LPCSR(RZ)
#31T15,aLPCSR(R2)
BIT
50020%
BNE

THEN

* IF COUNT NOT ZERO SEND NEXT BYTE

*282 004772
004772
004776
1283 005000

005000
1284 005006
005006
1285
1286
1287
1288 005012

1292

THE

SJENTER ROUTINE WITA R2 SET UP TO DESIRED UNIT «2. R2 IS USED

1270

1279
1280
1281

INVOKED BY MEANS OF

005012
005020
005020
005024
005024
005032
005032
C05034

1293 005034

005762
003416

002752

117272

002552

005262

002552

1ST

BLE
002452

MovB

INC

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

50021%
LET aLPBUF (R2) :B= @CURADD (R2)
aCURADD
(R2) ,aLPBUF (R2)
LET CURADD(R?) := CURADD(R2) + #1
CURADD (R2)

' ENABLE INTERRUPT FOR NEXT BYTE
052762

020000

005362

002752

052772

000100

002512

8IS
DE(

002356

000437

BIS

LET STATUS(RZ2) := STATUS(RZ2) SET.BY #A(TIVE
#ACT]IVE ,STATUS(R2)
LET CURCNT(R2) := CURCNT(RZ) - m
CURCNT(R2)

LET SLPCSR(R2)

SE#100.8LPCSR(RZ)

LET REPCNT(R2)

005362

002652

DLC

REPCNT (R2)

005040
005044
1295 005046
005046
1296 005054

005762
003424

002652

TST

REPCNT(R?2)

016262

002712

002552

MOV

005054
1297 005062
005062
1298 0050790
005070

016262

002612

002752

MOV

117272

002552

00245°2

MOVB

00526¢

002552

INC

005074

005362

002752

DEC

129% 005074

SET.BY #100

BR
50022%
50021%:
; CURRENT MSG DONE, [F PRINT COUNT NOT ZERO SEND AGAIN

005034

1294 005040

:= QLPCSR(RZ)

BLE

:- REP(NT(RZ) - #1

IF REPCNT(RZ) GT #0 THEN

50023%

LET CURADD(RZ)
MSGADR
(R2) , CURADD (R2)
LET CURCNT(R2)
MSGCNT(R2) ,CURCNT(R?2)
LET aLPBUF (R2)

:= MSGADR(RZ2)

. RESTORE

THE MSG ADDR

:= MSGCNT(RZ2)

; RESTORE

THE BYTE COUNT

LET CURADD(R2)
CURADD (R2)
LET CURCNT(R2)
(URCNT(R2)

:= CURADD(RZ2)

+ #1

; BUMP THE POINTER

- #1

;

@CURADD
(R2) ,aLPBUF (R2)

:B= a(URADD(RZ2)

(URCNT(RZ)

; RESEND THE MESSAGE

DROP BYTE

(OUNT

CLPLDO LP2S, LP26, LPO7 TEST
{70 DRIVER

1300 005100
005100
1301 005106
005106
1302 005114

1303

005114
005116

1304
1305 005116

MACRO M1113

020000

002512

BIS

012772

000700

002356

MOV

LET STATUS(R2)
#ACTIVE,STATUS(R2)
LET SLPCSR(R2)
#100,aLPCSR(R2)

500249

000406

;

020000

002512

005124

012772

000000

002356
50024$:

005132

50022%:

1308 005132

1310
13N

05132
005134

000410

50020%:
;
:

BIC

NACTIVE,STATUS(R2)

MoV

#00,aLP(SR(R2)

BIS

005142

012737

000001

002336

MoV

005154

005156

1318 005156

175736

50025%:
012602

000002

:= STATUS(RZ)
:

(LR.BY #A(T]VE

#00

50025%

CLEAR ERROR CONDITION,
SET ERROR FLAG

002512

1317 005154

INTERRUPTS

ENDIF

ELSE

100000

004777

LET aLPCSR(R2)

(052762

1314 005150
1315
1316 005154

; RE-ENABLE

ENDIF

“312 005134
005134

1313 005142

:= #7100

ELSE

CLEAR A(CTIVE AND DISABLE INTERRUPTS,
LET STATUS(R2)

005132

1309 005132

:= STATUS(RZ2) SET.RY #A(TIVE

50023%:
; CURRENT MSG DONE, REPEAT COUNT =0

042762

1307 005132

SEQ 0033

PAGt 18-1

052762

005116

1306 005124

30-DE(-80 09:36

ENABLE

LET STATUS(R2) := STATUS(RZ2)
#ERROR,STATUS
(R2)
LET

ERRCOD

:= #STATER

#STATER,ERRCOD

JSR PC,aERRSVC(
; ERROR SERVICE
ENDIF

POP RZ2

MOV
RT]

INTERRUPTS

(SP)+ ,R?

SHOULD

SET.BY #ERROR
;.

STATUS

ERROR

CLEAR ERROR BIT

AND ENABLE

INTR

CZLPLDO LP2S, LP26, LPO7 TEST
170 CONTROL

MACRO M1113

30-DEC-80 09:36

.SBTTL

PAGE 19

1/0 CONTROL

c 44

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

[

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

PRINTR

INPUTS:

BUFADD
BJ CNT

ORI
WWWWW%WWWWW
VY SN

=1 FOR ALL TERMINALS

N FOR PRINTER NUMBER 'N'
ADDRESS Orf MESSAGE TO PRINT

BYTE COUNT TO TRANSMIT TO PRINTER

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

IOCTRL: PUSH R2,R3

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

MOV
MoV

010246
010346

IF PRINTR IS -1 QUE OUTPUT TQ ALL PRINTERS SELECTED

OTHERWISE TO UNIT NUMBER IN PRINTR.
005164
005164
005172

005174
005174

005200

005204
005204
005206
005206
005206
005212
005212
205220
005220

023727
001005

002320

013703

002012

005037

002074

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

177777

ELSE

000405

50026%:

012703

000001

013737

002320

50027%

MOV

LET R3 := M

#1,R3
LET LSLUN :- PRINTR
PRINTR,LSLUN
MOV

002074
50027%:

ENDIF

. REPEAT TILL R3 = C
005220
005220
005220
005222
005224

CTLLOP:

000137

IF RY EQ #0 THEN
TST

005703
001002

BNE
JMP

005536
500308

50030%
INLINE <JMP CTLEND>

ENDIF

CTLEND

* USE R2 AS AN INDEX INTO THE UNIT TABLES

1357
1358

013702
006302

002074

005037

002336

LET R2 :- LSLUN SHIFT 1
LSLUN,RZ
MOV
ASL

CLR

LET ERRCOD :- #0
ERRCOD

SEQ 0034

C2LPLDO LP2S, LP26, LPO? TEST
170 CONTROL

MACRO M1113

;%28
1361 005242
005262
132 005250

032762
001123

040000

.
00512

}%gz

1365 005252
005252

005260

032772
001407

100000

002356

005262

012737

000001

002336

1366 005262

1367 005270

005270

052762

005276

000455

1368 005276

1365 005300

100000

30-DEC-80 09:36

SEQ 0035

PAGE 19-1

; IF THE UNIT HAS BEEN DROPPED SELECT THE NEXT UNIT
JF #DROPED NOTSETIN STATUS(RZ) THEN
BIT
BNE

#DROPED,STATUS(R2)
50031s

;TEST FOR DvC ERROR BIT SET
iF #B]1T15 SETIN @LPCSR(R2) THEN
#R]1T15,3LPCSR(R2)
BIT
50032%
BEQ

002512
50032%:

LET ERRCOD := #STATER

MOV

#STATER,ERRCOD

BIS

(R2)
#ERROR,STATUS

50033%

: STATUS REG ERROR BIT 15 SET IN (SR

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

ELSE

; MAKE SURE PREVIOUS MSG IS DONE

1%;?

1372 005300
005300
005304
1373 005306
005306
1374 005314

005762
003452

032762
001004

002752

TST
BLE

020000

BIT
BNE

002512

005316
1378 005324
005324
005326

012737

000003

005326

000442

1180 005334

1381 005336

005336

1382 005344

032762

001436

012762

MOV

002336
50035%:

1379 005326

005326

IF #ACTIVE NOTSETIN STATUS(RZ) THEN
N#ACTIVE ,STATUS(R2)
50035%

* OUTPUT WAS QUEUED BUT [/0 DRIVER WAS NEVER INVOKED (VIA INTERRUPT)

%%;Z
1377 005316

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

020000
000144
000002

002512
003052

50037%:

LET ERRCOD :

#NOINTR ,ERRCOD
ELSE
50036%

BIT

BEQ

#ACTIVE,STATUS(RZ)
500409

MOV

#100. ,DELCNT(R2)

MOV
.WORD
MOV
.WORD
DEC
BNE
DEC
BNE

2., (PC)+
O
LSDLY, (PC)+
O
=-6(PC)
.~b
=22(PC)
.~20

012727
000000
013727
000000
005367
001375
005367
(01367

005374

005362

003052

DEC

DELCNT(R2)

005400
005404

005762
001011

003052

TST
BNE

DELCNT(R2)
50041%

1383 005374

1384 005400

“385 005406

177772

177756

; NO INTERRUPT

WHILE #ACTIVE SETIN STATUS(RZ2) DO

005344
005350
005352
005356
005360
005364
005366
005372

002116

#NOINTR

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

; 20 SEC. DELAY MAX

: 200MS LOOPS

LET DELCNT(R2) := DELCNT(RZ2) - #1
IF DELCNT(R2) EQ #0 THEN
LET ERRCOD := #T]MOUT

CZLPLDO LP25, LP26, LPO7 TEST
170 CONTROL

005406
1386 005414
005414
1387 005422
005422
1388 005430
005430
1389 005430

005430
005432
1390 005432
005432
1391 005432
005432
1392 005432
005432
1393 005432
005432
005436

1394
1395
1396
1397 005440
1398 005444

1399

005444
005446

MACRO M1113

00002

002336

MoV

4T IMOUT,ERRCOD

042762

020000

002512

BIC

#ACTIVE,STATUS(R2)

052762

100000

002512

BIS

#ERROR, STATUS (R2)
ENDIF

50037%

50041%:

000736

50040%:

005454
1405 005462
005462
1406 005470
005470
1407 005476

005476

1408 005504

1412

1413

005504
005510
005512
005512
005520
005520
005520
005520
005520
005520

1414
1415
1416 005520

14617

STATUS(R2) CLR.BY WA(CTIVE

LET STATUS(RZ)

STATUS(RZ) SET.BY #ERROR

‘

ENDDO

ENDIF

50033s:

002336

ENDIF

50034%:

005737
001403

LET STATUS(R2)

“ST
BEQ

IF ERRCOD NE #0 THEN

ERRCQD

50042%

* REPORT THE ERROR
004777

175446

000425

50042%:

ELSE

PC.RERRSV(

JSR

5004 3%

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

14602
1403 005446
005446
1404 005454

1411

50036%:

1401

1410

PAGE 19~

30-DEC-80 09:36

012737

1400

1409

SEQ 0036

005520

013762
013762
013762

013762
013762
005762
003403

012772

002350

002350
002352

002352
002354

002552
002712

002752
002612
002652

002752
000100

MUV

BUFADD, CURADD (R2)

MOV

BUF ADD ,MSGADR(R2)

MOV

NT
BUF CNT, CURC(R2)

MoV

(R2)
BUF CNT ,MSGCNT

MOV

(R2)
BUFREP,REPCNT

TST

CURCNT (R2)

BLE

002356

LET CURADD(R2) :- BUFADD

MOV

50044%:

LET MSGADR(RZ)

LET CURCNT(RZ2) :

BUFREP

; PRINT COUNT

LET REPCNT(R2) :

IF CURCNT(R2) GT #0 THEN

50044%

LET @LPCSR(R2)

#100,aLPCSR(R2)
ENDIF

é (LEAR ouT ANY TIMEOUT COUNT
005062

003052

CLR

; OUTPUT COUNT

; BYTE COUNT

ENDIF

50031s:

BUFCNT

; MESSAGE ADDRESS

LET MSGCNT(RZ2) :— BUFCNT

ENDIF

50043%:

:- BUFADD

; BYTE ADDRESS

LET DELCNT(R2)
DELCNT(RZ)

#4100

; ENABLE INTERRUPTS

mo3
CZLPLDO LP25. LP26, LPO7? TEST
170 CONTROL

1421 005526

005526

1422 005532

1423 005536

1424 005536
005536
005540
1425 005542

1426

30-DEC-80 09:36

PAGE 19-3

: SELECT THE NEXT UNIT AND DECRIMENT THE L INETOUNT

}21%
1420 005524
005524

MACRO M1113

005303

DEC

005237

INC

000137

002074

005220

CTLEND:

012603
012602

LET LSLUN := LSLUN + #1
LSLUN

(TLLOP

JMP

POP
MOV
MOV
RTS

000207

LET R3 :- R3 - M
R3

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

1427

Teees

1430

: THIS SUBROUTINE WILL EFFECTIVLY DELAY UNTIL ALL QUECED OuTPUT

; SUBROUT INE

}2%3

> IS FINISHED. THE DELAY IS ACCOMPLISHED BY QUEUEING A NULL

1431

: MESSAGE TO ALL LINES.

1632

Jm———

1433
1434

1435 005544

1436 005606

1437 005610
1438

QUIET

000240

000207

QUIET:

OuTPUT

#0.#40

RTS

NOP

: NULL MESSAGE OUTPUT

SEQ 0037

CZLPLDO LP25, LP26, LPO7 TEST
1/0 CONTROL

MACRO M1113

1440

.
30-DEC-80 09:36

SEQ 0038

PAGE 20

":::::::::::::::::::::::::::::::::.’::::::::::-::::":":'::':’

FUNCTIONAL DESCRIPTION :

-TIT e

1441

: DROPIT

1443

‘1‘229

.‘:::::::::::::::::::::::::::::::::::::::::::‘::::::_=: """""" =TT e T

1444
1445

*
:

1448 005612

IS USED TO DROP A BAD PRINTER FROM THE TEST

DROPIT: LET STATUS\R2)

:= STATUS(R2)

005612

052762

040000

002512

005620

012762

177777

002752

005626

005072

002356

013746
012746

002074
004306

062706

000006

005062

003114

005337

002342

ADD
N6,SP
LET ERRTBL(R2) := #0
CLR
ERRTBL(R2)
LET UUT := WUT ~ #1
DEC _ OUT

005737

002342

TST

1449 005620

1450 005626
1451

THIS SUBROUTINE

DISABLE ANY INTERRUPTS FROM THE PRINTER, AND NOTIFY THE
OPERATOR THAT THE PRINTER WAS DROPPED.

005632
005632

005636
05642
05646
005650
005652

1452 005656
005656
1453 005662
005662
1454 005666
005666

005672

1455 005674
005674
005700
005704
005706
005710
1456 005714
005714
1457 005716
005716
1458 005716

1459
1460
1461

012746
010600
104417

012746
012746
010600
104417
062706
104444

#DROPED,STATUS(R2)

MOV

#-1,CURCNT(R2)

CLR __

@LPCSR(R2)

MOV
MOV
TRAP

#2,-(SP)
SP.R0
CSPNTF

LET CURCNT(R2)

:= #-1

LET SLPCSR(R2)

:= #0

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

000002

001011

BIS

SET.BY #DROPED

BNE

003764
000001
000004

0458
:

000207

UUT EQ #0 THEN

uuT

50045$

PRINTF #UUTEQD
MOV
#UUTEQO,-(SP)
MOV
#1.-(SP)
MOV
SP.RO
TRAP
(SPNTF
ADD
#4,SP
DOCLN
: NOTHING TO TEST
TRAP
(SDCLN
ENDIF
RTS

1462

":‘:::_“:::::::::::"::::::.‘-:: ---- =T T-

1463

FAKE

1465

THIS SUBROUTINE

1468
1469 005720

FAKE:

}229

;

005720

005037

002074

005724
005724
005732

023737
002007

002074

005734

013700

002074

1470 005724

1471

005734

002012

FUNCTIONAL

ZTIZI=ZTTZ-T

===

DESCRIPTION:

IS REQUIRED TO INSURE PROPER PASS COUNT REPORTS

IN A MULTI UNIT MODE OF OPERATION.

500468:

LET LSLUN

'
:

:= #0

CLR

LSLUN

(MP
BGE

LSLUN,LSUNIT
5004 7%

WHILE LSLUN LT LSUNIT DO

MOV

GPHARD

LSLUN,RO

LSLUN,

CZLPLDO LP2S, LP26, LPO7 TEST
{70 CONTROL

005740
005742
1472 005744
005744
1473 005750
005750
005752
1474 005752
1475
1476

1477 005754

MACRO M1113

30-DEC-80 09:36

MOV

010003

005237

000765
000207

INC

002074

RO,R3

LET LSLUN :- LSLUN ¢+ &7
LSLUN

ENDDG

50047%:

PAGE 20-1

($GPHRD

TRAP

104462

50046%

RTS

ENDMOD

SEQ 0039

CILPLDO LP2S. LP26, LPO7 TEST
INITIALIZATION SECTION

MACRO M1113

30-DEC-80 09:36

LSBTTL

12;8

PAGE 21

INITIJALIZATION SECTION

AND S
STHE INITIALIZE ROUTINE IS EXECUTED AT THE BEGINNING OF EACH SUB-PASS
D FROM
REQUESTE
ION
INFORMAT
RS.
PARAMETE
*PRIMARILY USED FOR REQUESTING P-TABLE
VECTORS,
,
ADDRESSES
DEVICE
TEST,
UNDER
UNITS
*THE OPERATOR INCLUDE THE NUMBER OF
DAVFU
A
WHETHER
AND
NT,
MEASUREME
SPEED
:CLOCK TYPE, AUTO OR MANUAL PRINTING
;OPTION IS INSTALLED IN THE SYSTEM,

1432

BGNMOD

1487 005754

1488 005754
005754

BGNINIT
LSINIT::

1490

;OR POWER FAIL RESTART

;RESET EXTERNAL BUS IF START EVENT FLAG IS SET

1489

1491 005754

005754

005760

1492 005762

005762
1493 C05764
005764

005770

1494 005772

00577

1495
1496 005774

012700
104447

104447

000037

005720

012700

000000

112737

000014

003160

012737
000402

000006

003156

206066

005337

(003156

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

(€23727
002415

003156

012727
000000
013727
000000
005367
001375
005367
001367

000250

006132

000755

006066
006072

1502 006132

006134

1503 006134
(V2P
800

006134
006136

104432
001640

TRAP

(SREFG

,RO
#EF .START

BCS
READEF
MOV
TRAP

1%
HEF .RESTART
,RC
HEF .RESTART

BCS

JSR
SETPR]I
MOV

PC,FAKE
#PRIOO
#PR100,RO

DEC

WORK1

(MP
BLT
MoV
WORD
MoV
.WORD
DEC
BNE
DEC
BNE

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

S0051%

CSREFG

BCOMPLETE 1$

103462

104441

#EF .START

BCOMPLETE 1%

103466

012706

READEF

MOV

(00040

004737

1497 006000
006000
006004
1498 006006
006006
1499 006014
1500 006056
006056
006064

VIV

SEG 0040

1481
1482
1483
1484

—lt
= —d

¢4

50051%:

000001

50050%:

002116

177772

177756

;BRANCH IF FROM START UP
;NOW THE RESTARTFLAG

:1F EITHER START QR POWER FAIL RESTART
;DO A BUS RESET
; UPDATE PASS (OUNT
; PRIORITY ZERO

C$SPRI
TRAP
LET OUTBUF :B= #14
#14,0UTBUF
MOVB
F
,#1
OUTPUT #OUTBU
DECR WORK1 FROM #6 10 #1 BY #1
46, WORK 1
MOV
50050%
BR

ENDDEC

50052%:

:TEST START EF INDICATOR

EXIT INIT
TRAP
.WORD

CSEXIT
L10004~.

; ELSE EXIT INIT CODE

‘POWER UP RESTART OR START COMMAND [SSUED

CZLPLDO LP2S, LP26, LPO7 TEST
INITIALIZATION SECTION
1507 006140
006140
1508 006142

006142
006150

1509 006152

006152
006156
006162

1510

1511

15812
1513

006164
006166
006172
006172
006176
006202
006204
006206
006212
C06212
006212
00621¢
006214
006214

1514
1515 006216

006216
006222

OV~

k=D
—

(O LV, RV, LV, ]
N b b =2

1516 006236

1521

006262

1523 006272
1524 006272

~NONWN

W16 1)

1%:

104433

BRESET
TRAP

002012

012746
012746

007156
000001

MOV
MOV
MOV

000004

ADD

007241
000001

MOV
MOV

000004

ADD
ENDIF

010600
104417
062706
012746

012746
010600
104417
062706

PAGE 21-1

PRINTF

TRAP

ANRGT16

CSPNTF

k4 ,SP
PRINTF ANRGTI7

MANUAL

TRAP

104450

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

CSMANI

BNCOMPLETE
2%
BCC

193034

007374
000001

012746
012746
010600
104417
062706

007467
000001

; CHECK FOR UNATTENDED MODE
2%

; IF UNATTENDED BYPASS MANUAL INSTRUCTIONS

PRINTF HRESET
H#RESET1,-(SP)
MOV
#1,-(SP)
MOV
MOV
SP,RO
($PNTF
TRAP
#4,SP
ADD
PRINTF #RESET?

000004

MOV

MoV
MOV
TRAP
ADD

000004

005037

002274

005037

002336

005037

002342

THE BUS

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

MOV
TRAP

50053%:

012746
012746
010600
104417
062706

JRESET

CSRESET

IF LSUNIT GT #16. THEN
LSUNIT #16.
(MP
50053%
BLE

000020

023727
003420

HRESETZ2,~(SP)

#1,-(SP)
SP.RO
CSPNTF
#é,SP

LET FLAG :- #0
CLR

FLAG

CLR

ERRCOD

(LR

uuTt

GMANIL

READY,FLAG,100000,YES

BR
.WORD
.WORD
.WORD

10000%
FLAG

LET ERRCOD :- #0

LET UuT
100%:

TRAP

104443
000404

002¢74
000130
007603
100000

30-DEC-80 09:36

SEQ 0041

‘WAIT FOR A '‘CR'' BEFORE GOING ON

1522 006266

—

MACRO M1113

:
100008

.WORD

:= 40

C$GMAN

TS$CODE

READY

100000

"<EQUEST P-TABLE +OR PRINTERS UNDER TEST

CZLPLDO LP2S, LP26, LPO7 TEST
INITIALIZATION SECTION
1528 Q06306

006306
006312

&
W

LIV, IV,
NN WIWN

N
e

1529 006314
006314
006320
006322
006322
006326
006326
006332
1530 006334
006334
006340
006342
1531 006344
006344
1532 006346
C06346
006352

013701
005301

002012

005037
000402

002074

005237

002074

023701
003135

002074

013700

10444
¢

MACRO M1°13

30-DEC-80 09:36

2%:

50055%:
50054%:

002C74

001004

006362

042762

006370
006372
1539 006372
006372

000421

1538 006370

MOV
DEC

LSUNIT,RT
R1

CLR
BR

LSLUN
50054%

INC

LSLUN

(Mp
BGT

R
LSLUN,
50056%

LSLUN,RO

TRAP

($GPHRD

RO,R3

;BRANCH [f DEVICE NOT PRESENT

BCC BNCO??LETE 3%
MOV
ASL

0C2074

LET R2 :

LSLUN SHIFT 1

LSLUN,RZ
RZ

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

TST

000004

003000

BNE

BIC

002512

50057%

LET STATUS(R2) := STATUS(RZ2) CLR.BY #FLAG26.FLAGO?
#FLAG26.FLAGO7,STATUS(R2)

ELSE

50057%:

50060%

CMP
BNE

IF 4(R3) EQ #1
4(R3) ,m
50061%

THEN

026327
001007

000004

006402
1541 006410
006410

052762

001000

002512

BIS

(R2)
#FLAG26,STATUS

042762

002000

002512

BIC

SE#FLAGO?,STATUS(RZ)

006416
06420
1543 006420
006420
1544 006426
0C6=26
1545 006434

000406

006400

1540 006402

1542 006416

00000"

50061%:

LET STATUS(R2) := STATUS(R2) CLR.BY WFLAGO7
50062%

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

#FLAG26,STATUS(R2)

001000

002512

BIC

052762

002000

002512

BIS ENDI:FLAGO?,STATUS(RZ)
50062%:
:
500608

1547

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

ENDIF

" NOW RET THE BAND TYPE

1548
1549

006434
006440
1551 006442
006442

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

042762

006434
1546 006434
006434

1550 006434

005763
001004

000006

042762

010000

;MAXIMUM NUMBER OF UNITS

JREQUEST P-TABLE ADDRESS

GPHARD LS$LUN,R3

MOV

103124

005763

PAGE 21-2

LET R1 := LSUNIT - #1

MOV

CLEAR

006354
006354
006360
1537 006362

SEQ 0047

INCR LSLUN FROM #0 TO R1 BY #1

010003

013702
006302

TST

BNE
002512

BI(

64 OR 96 C(HARACTER

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

50063%

LET STATUS(R2) := STATUS(R2) (LR.3Y #FLAG96
#FLAGI6,STATUS(RZ)

CILPLDO P25, LP26, LPO? TEST
INITIALIZATION SECTION

1552 006450

006450
006452

1553 006452

006452

1554 006460
006460

MACRO M1113

000403

052762

30-DEC-80 09:36

50Nn63%:

010000

BIS

002512
50064%:

005062

003114

012762

177777

006472

005062

003052

(LR

002652

CLR

1558 006476

1559 006476

005062

SEQ 0043

PAGE 21-3

500648

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

#FLAGD6G,STATUS(RS)

ENDIF

LET ERRTBL(R2) := 40
ERRTBL(RZ2)
LET CURCNT(R2) := #-1
(R2)
#-1,CURCNT
MOV

1555 006460
006460
1556 006464
006464
1557 006472

ELSE

(LR

002752

LET DELCNT(R2)

DELCNT(R2)

:- #0

LET REPCNT(R2) := #0

REPCNT(R2)

:LOAD (SR ADDRESS INTO TABLE

122?

1562 C06502

006502
1563 006506
006506
5 006514

012362

002356

016262
062762

002356
000002

LET LPCSR(R2) := (R3)+

;SET UP (SR ADDRESS FOR DLVICE

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

002452
002452

:SET UP VECTOR ADDRESS INTO GIVEN TASBLE

1522

1567 006522

1568 006522

012362

MOV

002416

LET LPVEC(R2) :- (R3)+

(R3)+ ,LPVEC(R?2)

;SET UP DEVICE INTERRUPT VECTOR INFORMATION

1299

1571 006526
006526

006532
006536
206542

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

010237

003154

062737

036220

003154

013762

003154

003012

012746
016246
016246
012746
104437
062706

000200
003012
002416
000003

006337
006337
006337

;gg}

1583 006616

WORK
WORK
WORK

LET WORK := WORK + #INT00
#INT0O,WORK
ADD
LET LPINTR(R2) := WORK
WORK ,LPINTR(R?2)
MOV
SETVEC LPVEC(R2), LPINTR(R2), #PR104
#PR104,-{SP)
MOV
LPINTR(R2) ,~(SP)
MOV
LPVEC(R2) ,-(SP)
MOV
#3,-(SP)
MoV
C$SVEC
TRAP
#10,SP
ADD

; ADD ONE TO UNIT UNDER TEST COUNT

12;9
1578 C06610
006610
;ggg 006614

ASL
ASL
ASL

003154
003154
003154

000010

LET WORK := R2 SHIFT 3
R2,WORK
MOV

005237

000403

002342

LET UUT :- wul + #
uuT
INC
BR 4%

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

G
c

ILPLDO LP2S, LP26, LPO7 TEST

: NITIALIZATION SECTION

006616

052762

006624

000636

006624

006626

(40000

MACRO M1113

002512

30-DEC-80 09:36

A ¥
500568%:

006626
006634
006634
006640
006642

006644
006644
1592 006646
006646

1591

012737

000001

012700
104462
010004

000114

BIS

#DROPED,STATUS(R?2)

50055%

ENDINC

INTERRUPTS

010437

002324

006660

017737

173440

“595 006666
006666

#1,CLKTYP
L,R&

TRAP
MOV

C$CLCK
RO,R4

002322

MOV

002326

MOV

12777

000000

173432

006674
1598 006702
006702
006706
006712
006716
006722
006724
1599 006730
006730

016437

000004

002332

MOV

012746
012746
013746
012746
104437
062706

000300

1601 006730

1602 006734

005737
001410

002264

06736

012737

000004

1600

1603 006736

1604 006744
006744

006750
1605 006752
006752
006754

1606
1607 006756

006756
006762
006764
1608 006766
006766
1609 006770
006770
1610 006776

104441

002332
000003
000010

4 (R4) ,CILKVEC
SEVEC CLKVEC.,#IGNORE,#PR]06
#PR106,-(SP)

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

ENDIF

K1
BEQ
LET CLKTYP := #4
#4,CLKTYP
MOV

002322

: START TEST AT PRI O

SETPR] #PR]00

#PR]100,RO

MOV

000000

TRAP

C$SPRI

INIT

EXIT

TRAP

.WORD

C$EXIT

L10004~-.

: IF A P=CLOCK IS ON THE SYSTEM UPGRADE (LO(K TYPE 10 3
(k1:

000120

(LOCK

P.R4

MOV

#'P,RO

MOV

RO,R4

}

($CLCK

TRAP

)

IFCOND (S THEN

50066%
LET CLKTYP : #3
#3,CLKTYP
MOV

BCC

103016

012737

; TRY TO DISABLE INTERRUPTS

#00,aCLKCSR
THE NOOP HANDLER
SETUP
:
:- 4(R&)
CLKVEC
LET

TST MANSPD

001022

104462
010004

aCLOCKP,CLKCSR
LET @CLKCSR := #00

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

104432

012700

LET CLKCSR := aCLOCKP

MOV

010000

; WE HAVE AN L=-CLOCK

R4,CLOCKP

MOV
MOV
MOV
TRAP
ADD

50065%:

012700

#'L RO

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

MOV

1596
1567 006674

: TEST FOR L-CLOCK

BCC

006654

1594 006660

MOV
CLOCK
MOV

103031

000002

;GO BACK AND DO IT AGAIN

: IF AN L=CLOCK ]S ON THE SYSTEM THEN SETUP A NOOP INTERRUPT
© HANDLER BECAUSE LS! SYSTEMS MAY HAVE THE (LOCK ENABLFD AT ALL TIMES.
: DEFAULT FOR NO CLOCK ON SYSTEM
LET CLKTYP = M1

IFCOND CS THEN

012737

1593 C06654

00232¢

SEQ 0044

PAGE 21-4

: SETUP TO HANDLE CLOIs
006626

000003

0023%2¢

LET

CLOCKP

; WE HAVE A P=(CLBD(K

MACRO M1113

CZLPLDO LP2S, LP26, LPO7 TEST
INITIALIZATION SECTION

(02324

017737

173316

002326

007010

016437

000004

002332

1614 007016

007016

1615 007024

07241
007275
007374
007467

1633 007603
1634 007640
1635 007702
1636
1637 007774

1638
1639
1640

1641

1642

173302

007776

BNE

500679%

MCV
MOV

#1,-(SP)
SP,RO

w6, SP

007792
000001

MoV

062706

000004

TRAP

112737

000014

104447

ENDIF

CSPNTF

N6, SP

SETPR] #PR100

#PR[00,RO
C$SPk]

MOVB

#14,0UTBUF

:B= #14

OQUTPUT #OUTBUF ,#1
INIT
TRAP

045
045
045
045
123

NRGT16:

120

READY:
NCCLCK:
N?Té”:
.EVEN

NRGT17:
MRESET:
RESETT:
RESET2:

PLOC:

CSEXIT

.WORD

L10004-.

.ASCIZ

/INYANUMBER OF LINE PRINTERS UNDER TEST EXCEEDS 16./

.NLIST BEX

045
045

SP,RO

MOV
TRAP

LET OUTBUF
EXIT

104

000000

#1,-(SP)

ADD

003160

ANOTIM

T
M, ~(SP)
#NO

TRAP

000622

045
045

PRINTF

MOV

104432

045
045
045
0465
045

CSPNTF

MOV

50067%:
0000060

_ASCIZ
/XNZAONLY 16 WILL BE TESTED./
_ASCIZ
/XNXARESET LINE PRINTER(S), DO FORM FEED,
AND PLACE ON LINE.XN/
.ASCIZ /XNXARESET LINE PRINTER(S),SET FORMS LENGTH TO 11 INCHES,%N/
.ASCIZ /%ASET VERTICAL DENSITY TO 6 LINES PER INCH,DO FORM FEED AND PLACE
,ASCIZ
.ASCIZ
LASCIZ

/DEFRESS "RETURN'' WHEN READY./
/XNYAHARDWARE CLOCK NOT AVAILABLE./
/7XINXAAUTO PRINTING SPEED MEASUREMENT

. WORD

LLIST BEX
ENDINIT
106611

P=(CLOCK

PRINTF ANOCLCK
MNOCLCK ,~(SP)
MOV

012746
012746
010600

012700

THE

:= #00

50066%:
; IF NO CLOCKS ON THE SYSTEM NOTIFY THE OPERATOR
IF CLKTYP EQ #1 THEN
A1
CLKTYP,
CMP

000004

104417

TO DISABLE

#00,aCLKCSR

062706

007776

000001

TRY

MOV
ENDIF

ADD

1046417

1627 007156

;

LET @CLKCSR

007640
000001

1625
1626

R4, CLOCKP
LET CLKCSR := @(LOCKP
8CLOCKP,CLKCSR
MOV
LET CLKVEC := &4(R&)
MOV
4(R&) ,CLKVEC

012746
012746
010600

007102
1623 007110
1624 007152
207152
007154

002322

1622 007102

023727

001020

SEQ 0045

PAGE 21-5

MOV

007024

1€17 007024
007024
007032
€18 007034
007034
007040
007044
07046
0070590
1679 007054
007054
007060
007064
007066
00770
1620 007074
007074
1621 007074
007074
007100

1628
1629
1630
1631
1632

000000

1616

012777

QO —bt b —d —2

1613

010437

——a O

1612

006776
007002

—

1611

30-DE(-80 09:36

L1000¢4:

TRAP

(SINIT

CANNUT BE

PERFORMED,/

ON _ [NEIN/

I
C2LPLDO
225, LP26, LPO7 TEST
IN] TIALI<ATION SECTION

MACRO M1113
;

1643

.
:

1644

1645

1646

1647

1648 010000
1649 010000
1650
1651
1652
1653
1654
165¢S
1656

30-DEC-80 09:36

1GNORE

IGNORE :

000002

1660

1661

RESVEC::

010346
010446

013703
10014

1666

1667

"668

1670
1671

;. NOOP

RT]

FUNCTIONAL

002012

50070%:

005703
003417

SUBROUTINE WILL

'NORMAL'

MOV

PUSH
R3.R4
R3,~(SP)

CLR

R4 ,-(SP)

LET

MOV
MOV
MOV
MoV

#PR]04,-(SP)
LPINTR(R4) ,=-(SP)
LPVEC(R&G) ,-(SP)
#3,-(SP)

000010

TRAP
ADD

062704

000002

ADD

#2 R4

005303

DEC

000757

B8R

50070%

MOv

INTOO.

500718
SETVEC LPVEC(R4), LPINTR(RS), #PRI04

000200
003012
002416
000003

MOV

UNITS VECTOR AREAS

:= #0

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

012746
016446
016446
012746
104437
062706

0212604
012603
000207

SETUP ALL

[NTERRUPT ROUTINES STARTING AT

MOV

BLE

50071%:

DESCRIPTION

TO THE

MOV

005004

PAGE 21-6

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

THIS

1658
1659

SEQ 0046

AN INTERRIPT CATCHER FOR THE . =(LOCK

RESVEC

1657

CSSVEC
#10,SP

LET R4

LET RS :- R3 - »

ENDDO

POP R4 R3
(SP)
+ R4

(SP)+ R}

RTS

:= R4 + #2

C2LPLDO LP2S, LP26, LPO7? TEST

CLEANUP CODING SECTION

MACRO M1113

30-DEC-80 09:36

SBTTL

1673

SEQ 0047

PAGE 22

CLEANUP (CODING SECTION

1674 010064

STARS

1675

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

".‘..'fi..."“"t.'t""Q"'Qfit'fitt'.t!tfifiQQ'..Q.Q'QQ'Q'Q'..'Q."‘

I+

1676
677
1678

1679
1680
1681
}gg%

;IN THE EVENT A PAZER QUT OCCURRED AND THE OPERATOR HAS PUT ADDITIONAL FAPER
JINTO THE UNIT UNDER TEST, THE INITIALIZATION SEQUENCE DOES NOT
:HAVE TO BE DONE AGAIN IN ORDER TO GET THE DEVICE ACTIVE.

1684 010064

STARS

1685 010064

BGNCLN

"""'fi'*'Q‘Q*t"""k"'iit"""'fi"i'itt"fittfi't'tt't'ifi""""

L$CLEAN::

010064

1686 010064
010064
C10070
*687 010072
1688 010072

689 010074

012700
104441

TRAP

104433

010074
010100
1690 010102
010102
010106
010110
010110

C13701
005301

002012

005037
000402

002074

005237

002074

010114
010120

023701
003020

002074

1693 010122
010122
010126
1694

013702
006302

002074

010114

1691

SETPR] #PR107
#PR107 ,R0O
MOV
($SPRI]
TRAP

00030

CLEAN:

50073%:
50072%:

1692

1695 010130
C10130
1696 010136

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

010160

010162
1701 010162
1702 010166
010166
010174
1703 010176

BRESET
CSRESET

LET R1 := LSUNIT - #

;NUMBER OF UNITS-1

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

INC

LSLUN,R]
CMP
50074%
BGT
: DISABLE ALL INTERRUPTS, SELECT ALL LINES
: IERO ALL ERROR COUNTS
LET R2 := LSLUN SHIFT 1
LSLUN,R?
MOV
R2
ASL

: CLEAR ALL BITS IN STATUS EXCEPT DEVICE TYPE

160377

002512

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

012762

177777

002752

MOV

005062

003114

005062

003052

005062

002652

042762

"10002

023727
001006

002322

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

000753
004737

LET CURCNT(R2) := #=1

50074%:

000003

50073%

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

: RESET "HE VECTORS

CZLPLDO LP2S, LP26, LPO7 TEST

CLEANUP CODING SECTION

010176
010202

017700
104436

172130

010204

012777

000000

1704 010204

1705 8}0212

010212, 023727
010220 001013

002322

012746
012746
013746
012746
104437
062706

000300
010000
002332
000003

010222
010226
010232
010236
010242
010264

1708 010250

1709 C10250

010250
010254

1710 010256
171

010256
010256

1712 010260

TRAP

172114

000002

000010
500/6%:

012700
104441
104412

000000
ENDCLN

L10005:
ENDMOD

PAGE 22-1

aCLKVEC,RO

MOV

50075$:

1706 010212

1707 010222

MACRO M1113

30-DEC-80 09:36

C(S$CVEC

LET SCLKCSR :- #00

MOV
ENDIF

#00,aCLKCSR

IF CLKTYP EQ #2 THEN
CLKTYP,#2
(Mp
50076%
BNE
SETVEC CLKVEC,#]GNORE ,#FR]06
MOV
MOV
MOV
MOV
TRAP
ADD
ENDIF

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

SETPR] #PRI0O0
#PR100,RO
MOV
TRAP

($SPRi

TRAP

CSCLEAN

SEQ 0048

C2LPLDO LP25, LP26, LPO7 TEST
INTERFACE LOGIC

MACRO M1113

30-DEC-80 09:36

};}g

JSBTTL

};}9 010260

BGNMOD

SEQ 0049

PAGE 23

INTERFACE LOGIC

2 J
MR

1778
1719
1720
1721
1722

STHIS TEST VERIFIES THE OPERATION OF THE INTERFACE LOGIC. TESTS ARE
*PERFORMED FOR PRINTER ERROR, PRINTER READY, AND CLEARING PRINTER READY
*BY LOADING A CHARACTER [NTO THE OUTPUT BUFFER. ALSO IT IS VERIFIED
STHAT THE PRINTER WILL NOT INTERRUPT IF IT IS AT THE SAME PRIORITY LEVEL
*AS THE PROCESSOR, BUT WILL INTERRUPT IF THE PROCESSOR IS AT A LOWER

1725
1726

;
PR

:PRIORITY LEVEL. THE PRINTER IS AT PRIORITY LEVEL 4.

};gz

BGNTST
T1::

1727 010260
010260

1728 010260

010260
1729 010264

013701
005301

LET R1 := LSUNIT - &
MOV
DEC

002012

T
LSUNIR
R1

:HARD CODED INCREMEMAT LOOP

1730

ZINCR LUNIT FROM #0 TO R1 BY #1

1;%;
1733 010266

1734 010272

1735 010274

1736 010274

1737 010300

005037
000402

005237

002514
002314

T1C:

17640 010306

1741 010312

1742 010312
010312
010316
1743 010320
010320
010326
1744 010330
010330
1745 010336
010336
1746 010342
010342

1747 010350

010350
010352
010354
010356
1748 010350
010360
1749 010364

000137

011052

1¢:

013702
006302

002314

032772
001416

100000

002356

052762

100000

002512

005262

003114

013737

002314

002074

104456
000001
003406
000000

005072

010372

JUNIT TO O

T1C

:DO COMPARE

INC

LUNIT

:UPDATE UNIT NUMBFR

CMP
BLE

LUNIT.R1
1%

:DO COMPARISON OF UNIT NUMBER
sONTO NEXT UNIT

T18

(EXIT LOOP

LET R2 := LUNIT SHIFT 1
LUNIT,R2
MOV
R2
ASL
IF #81T1S SETIN QLPCSR(R2) THEN
#81715,3LPCSR(R2)
BIT
5S0077%
BEQ
LET STATUS(R2) := STATUS(R2) SET.BY #ERROR
H#ERROR,STATUS(RS)
BIS
LET ERRTBL(R2) := ERRTIBL(R2) + #1
ERRTBL (R2)
INC
LET LSLUN := LUNIT
LUNIT,LSLUN
MOV

ERRHRD 1,(CSRERR

C$ERHRD
TRAP
1
.WORD
(SRERR
.WORD
O
.WORD
LET QLPCSR(R2) := #0
aLPCSR(R2)
CLR

;ERROR BIT WAS SET. SAY SO

ENDIF

50077%:

010364

1751
1752 010364
010364

:START LOOP

LUNIT

JMP

’

002356

:MAX NUMBER OF UNITS ON SYSTEM

CLR

T1A:

1738 010300 023701 002314
1739 010304 003402

1750

;TIME DELAY

032772
001027

000200

002356

: IF NOT READY ALLOW 3 SECONDS TG (OME UP
IF #B]T7 NOTSETIN @LPCSR(R2) THEN
#3]T7,8LPCSR(R2)
BIT
BNE

50100%

CZLPLDO LP2S, LP26, LPO7 TEST
INTERFACE LOGIC
1753 010374

010374
010402
010404
010404

010410
010410
010416
1754 010420
010420
010424
010426
010432
010434
010440
010442
010446

1755 010450

C10450
010452
1756 010452

012737
000402

000014

005337

003156

023727
002415

003156

012727

000250

013727

002116

000000

000000
005367
001375
005367
001367

MACRO M1113

010452
010460
1761 010462
010462
1762 010470
010470

1763 010476
010476
1764 010502
010502
010504
010506
010510
1765 010512
010512

1766
1767
1768
1769 010512

:
501028
000001

177772

177756

000755

50103$:
501008

032772
001014

000200

002356

052762

100000

002512

013737

002314

002074

005262

003114

DEC

WORK 1

(MP
BLT

MOV
.WORD

WORK1,#1
50103$
DE.AY 250
#250, (PO) +
0

.WORD
DEC
BNE
DEC
BNE

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

LSDLY, (PC)+

ENDDEC

50102%

ENDIF

IF #81707 NOTSETIN @LPCSR(R2) THEN

LET LSLUN := LUNIT
LUNIT,LSLUN
MOV

LET ERRTBL(R2)
INC

TRAP

00005
24

.WORD
.WORD
.WORD

0034
000000

;TEST FOR THE READY BIT

#B1707 ,aLPCSR(R2)
BIT
50104$
BNE
LET STATUS(R2) := STATUS(R2) SET.BY WERROR
#ERROR, STATUS (R2)
BIS

:= ERRTBL(R2) + #1

ERRTBL (R2)

ERRHRD 2,RDYERR

ENDIF
50104%:

(SERHRD

;REPORT AN ERROR

2
RDYERR
0

P INSURE LOADING CHARACTER CAUSES PRINTER READY TO GO AWAY
002452

032772

000200

002356

010530

052762

100000

002512

010536

005262

003114

010542
1774 010550
010550

013737

002314

1773 010542

50101$

#12. ,WORK1

:NOW TEST FOR PRINTER READY

000012

1772 010536

501018$:

SEQ 0050

PAGE 23-1

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

MOV

012772

010512
1770 010520
010520
010526
177 010530

MOV

003156

010452

1757
1758
1759
1760 010452

30-DEC-80 09:36

001416

104456

002074

LET QLPBUF (R2) := #12
UF
#12,aLPB(R2)
MOV
2) THEN
@LPCSR(R
SETIN
IF #81T07
R2)
8LPCSR(
#81707,
BIT
50105%
BEQ
LET STATUS(R2) := STATUS(R2) SET.BY #ERROR
#ERROR, STATUS (R2)
BIS
(R2) := ERRTBL(R2) + #1
ERRTBL
LET
(R2)
ERRTBL
INC
LET LSLUN := LUNIT
MOV

LUNIT,LSLUN

TRAP

(S$ERHRD

ERRHRD 3,ERR11

;REFORT AN ERROR

CZLPLDO LP25, LP26, LPO7 TEST
INTERFACE LOGIC

010552
010554
010556

000003
011332
000000

010560

005072

1775 010560
1776 010564

17277

MACRO M1113

30-DEC-B0 09:36

SEQ 0051

PAGE 23-2

.WORD
3
ERR11
.WORD
.WORD
0
LET QLPCSR(R2) := #0
aLPCSR(R2)
CLR

002356

ENDIF

501058:

010564

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

1778
1779

:THE

1780
1781 010564

010564
010570
1782 010572
010572
010576
010602
10606
010612
010614
1783 010620
010620
1784 010626
010626
010634
010636
010636
010642
010642
010650
1785 010652

010652

010656

010660
010664
010666
010672
010674
010700
1786 010702
010702
010704

1787
1788
1789
1790
1791 010704
010704
1792 010712

010712
010716
1793 010720
010720
010724
010730
010734

012700

104441

000200

012746
012746
016246
012746

000200
011214
002416
000003

062706

000010

052772

000100

002356

012737
000402

000012

003156

005337

003156

023727
002415

003156

012727
000000
013727
000000
005367

000372

104437

001375
005367
001367

SAME

(CPU

;CPU TO PRIORITY 4

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

;LP VECTOR SET UP

TRAP

CSSPRI

MOV
MOV

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

LPVEC(R2) ,-(SP)
MOV
#3,-(SP)
MOV
TRAP
CSSVEC
#10,SP
ADD
LET aLPCSR(R2) := alLPCSR(R2)

SET.BRY #°00
BIS
#100,aLPCSR(R2)
DECR WORK1 FROM #12 TO #1 BY #1
MOV
#12,WORK1

50106%:

B8R

50106%

DEC

WORK1

CMP
BLT

1, #1
WORK
50110%

MOV
.WORD
MOV

#250.,(PC)+
0
LSDLY, (PC)+

DEC
BNE
DEC

-6(PC)
~4
=22{(PC)

DELAY

002116

.WORD

177772
177756

BNE

ENDDEC

000755

THE

SETPR]I #PR]04
MOV
#PR]104 RO

50107%:
000001

50110%:

250.

; ALLOW 3 SEC FOR DELAY

.=20

50107%

;NOW TEST THAT THE PRINTER WILL INTERRUPT IF
;THE PRINTER PRIORITY

042772

000100

012700

000140

104441

012746
012746
016246
012746

000200
011244
002416
000003

002356

LET QLPCSR(RZ2)

:= alLPCSR(RZ2) CLR.BY #100

BIC

#100,8LPCSR(R2)

MOV

#PR103:RO

SETPR] #PRI03
TRAP

THE CPU PRIOCRITY IS LOWER THAN
;CLEAR INTERRUPT ENABLE

:CPU TO PRIORITY 3

CSSPRI

SETVEC LPVEC(R2) ,#INTHDL ,#PRI04
(SP)
,=
#PR104
MOV
MOV
MOV
MGV

;INTERRUPT ENABLE

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

#3,-(SP)

)

CZLPLDO LP2S, LP26, LPO7 TEST
INTERFACE LOGIC

010740
0107642

1794 010766
010746
1795 010754

010754
010760
010762
010766
010770

010774
010776
011002
1796 011004
011004

1797 011010

011010
1798 011016
£11016
011020
011022
011024
1799 011026
011026

1800 011034
011034

1801 011042
1802 011042

104437
062706

000010

052772

000100

012727
000000
013727
000000
005367

000030

001375
0053¢7
001367

005262
013737

MACRO M1113

30-DEC-80 09:36

SEQ 0052

PAGE 23-3

TRAP
ADD

CS$SVEC
#10.5P

MOV
LWORD
MOV
WORD
DEC

#30, (PL)+
C
LSDLY, (PC)+
O
-6(PC)

;INTERRUPT ENABLE
LET @LPCSR(R2) := aLPCSR(R2) SET.BY #100
CSRIR2)
#100,3LP
RIS
: ALLOW 3 SEC DELAY
DELAY 30

00235%

002116
177772

.=
BNE
222(PC)
DEC
.=20
BNE
LET ERRTBL(R2) := ERRTBL(R2) + #1
ERRTBL (R2)
INC

177756
003114
002314

LET LSLUN :- LUNIT

LUNIT,LSLUN
MOV
ERRHMRD &.ERR13
CSERHRD
TRAP.
&
WORD
ERR13
.WORD
O
WORD
LET 8LPLSR(R2) := #00
END2:
¥00,3LPCSR(R2)
MOV

002074

104456

000004

011471
000000

€12772

000000

002356

042762

160000

002512

005062

003052

: CLEAR THE LPCSR

LET STATUS(RZ) .= STATUS(R2) CLR.BY #ERROR'DROPED'ACTIVE
#ERROR'DROPED 'ACT]IVE,STATUS(R?)
8IC
LET DELCNT(R2) := #0
DELCNT(R2)
CLR

"END OF HARD CODED INCREMENT LOOP
“ENDINC

1803
}ggg

1806 011046
1807 011052

1808 011056
011056
011062
1809 011064
1810 011126
011126
1811 011134

000137
004737

010274
010002

012700
106441

000000

112737

000014

T18R:

011176

032772

011204 001001
011206 000773

1813 011206

011210

1814 011210

011210

1815 011212

104432

000200

501118:

002356
.

501128:

BIT

#BIT7,aLPCSR(R2)

TRAP

CSEXIT

BNE
ENDDO
B8R

EXIT TST

.WORD

000334

T1A
PC,RESVEC

:UPDATE UNIT &
: RESET STANDARD VECTORS

SETPR] #PR]OO
#PR100,R0
MOV
C$SPRI
TRAP
OUTPUT #INTFAC.#47.
LET OUTBUF :B= #14
14, 0UTBUF
MOVB
,#1
OUTPUT #OUTRUF
WHILE #8]T7 NOTSETIN @LPCSR(R2) DO

003160

1812 011176

011176

JMP
JSR

:WAIT FOR READY

50112
50111$

SEXIT THE TEST

L10006~.

1816
1817

1~rennupr HANDLER TO SERVICE FAULTY INTERRUPT FROM LP INTERFACE.
“THIS ROUTINE 1S ENTERED ONLY WHEN THE LP INTERRUPTS AT THE SAME LEVEL AS

1820 011214

BGNSRV

}g}g

“THE CPU AND IS CONSIDERED AN ERROR.

CZLPLDO LP2S, LP26, LPO7 TEST
INTERFACE LOGIC
011214

005262

003114

011220

013737

002314

011226
011230
011232
011234

00005
011406
000000

011236

012716

011242
011242

000002

011546

1844
1845 011550

1846

ENDSRV

L10010:

000002
111

116

124

MOV

#END2, (SP)

RT]

"NLIST BEX

INTFAC: .ASCIZ

/INTERFACE LOGIC TEST 1

TEST COMPLETE/<12><12>

"ERROR MESSAGES ASSOCIATED WITH THIS TEST
) —a

1840 011406
1841 011471
1842
1843 011546

INTHDL: LET (SP) :~ REND2

0110c6

—

1839 011332

012716

_——

1833
1834
1835 011252
1836
1837
1838

BGNSRV

—a

1832

RTI

“INTERRUPT HANDLER FOR EXPECTED INTERRUPT

1828
1829 011244
1830
1831 0112644

ENDSRV

L10007:

—

1826
1827

ERRHRD S,ERR1?
TRAP
C$ERHRD

5
LWORD
ERR1?
.WORD
0
WORD
LET (SP) := #ENDZ2
#ENDZ, (SP)
MOV

011026

rnony
—
NN

1825 011242

(alel
o

1824 011236

PAGE 23-4

ERRTBL (R2)
INC
LET LSLUN :- LUNIT
LUNIT,LSLUN
MOV

002074

104456

-3

1823 011226

—

1822 011220

30-DEC~80 09:36

SEQ 0053

INTERR: LET ERRTBL(R2) := ERRTBL(FR2) + #*

[
Y

011214

N
—

1821

MACRO M1113

ERR11:

ERR12:
ERR13:

.EVEN
ENDTST
1044601

L10006:

.ASCIZ

.ASCIZ
.ASCIZ

TRAP
LLIST BEX

ENDMOD

/LOADING PRINTER BUFFER DOES NOT CLEAR READY/

/PRINTER INTERRUPTED AT SAME LEVEL AS THE PROCESSOR/
/PRINTER DID NOT INTERRUPT AT CPU PRIORITY 3/

CSETST

CILPLDO LP2S, LP26, LPO7 TEST
TEST 2
READY LINE INTERLOCKS

MACRO M1113

30-DEC~80 09:36

.SRTTL

1848
1849

SEQ 0054

PAGE /4

READY LINE INTERLCCKS

TEST 2

1850 011557

BGNMOD

1853
1854
1855
1856
1857
1858
1859
1860

*PRINTER READY INTERLOCK SW]TCHES.
*MANUAL INTERVENTION IS USED TO

1851
1852

poorQiusr G

MANUAL

TRAP

104450

103402

EXIT TST
TRAP

104432
002762

001002

.WORD

104432

002750

3
FW

—_

50113%:

005037
013701
005301

002274

002314

011616
011622

023701
003020

002314

011624
011630

013702
006302

002314

011632

011640

032772

001410

100000

011642

005262

003114

011646

104456

1877 011642

1878 011646

L10011-.

LET FLAG :~ #0
CLR

LET R
MOV

002012

005237

1876 011632

.WORD

ENDIF

011612

1875 011624

BNE

50113%

EXIT TST
CSEXIT
TRAP

011610
011616

INHINT

1ST

002262

002314

011612

CSEXIT

L10011~.

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

b
b
el

005737

CSMAN]

BCOMPLETE 11%
11%
B(CS

005037
000402

1872
1873
1874

—

1871

—d wd ed o

1870

OOOOOOO0OO

1868
1869

:DETERMINE IF MANUAL INTERVENTION IS ALLOWED

b ——d

—

1867

1865
1866

OOO0O0O0O0O

1864

?SNTST

P N
—t ) d cd d emd —d
— ) md
b amd
RV IV A Al vV
[0 3V,
LV, AV, ][V TV TV IRV TV AV LV LV AV
VNN Vi
N OOy
o NNN NNN
OO
OSSO
O
no ovonrorornun
OO

s Gaur Pusd

;INDICATION IS VERIFIED.

1863

;OPEN THE INTERLOCKS 70 PRODUCE FAULTS
:IN THE PRINTER AF ER WHICH THE RESULTANT ERROR

QOOOOOO

1861
1862

THIS TEST CHECKS THE OPERATION OF THE

DEC

FLAG

LSUNIT - #

LSUNIT,R1
R1

;CHECK FOR ERROR IN EACH PRINTER UNDER TEST
INCR LUNIT FROM #0 TO R BY #1
50115%:
50114%:

CLR
BR

LUNIT
50114%

INC

LUNIT

LUNIT R
CMP
501165
BGT
LET R2 := LUNIT SHIFT 1
LUNIT,R2
MOV
ASL

002356

I[F #1715 SETIN SLPCSR(RZ) THEN
JBIT15,3LPCSR(R2)
BIT
50117°%
8EQ
LET ERRTBL(R2) := ERRTBL(RZ) + &'
INC

TRAP

ERRTBL (R2)

ERRHRD 6, CSRERR
(SERHRD

CZLPLDC LP2S, LP26, LPO7 TEST

READY L INE

INTERLOCKS

TEST 2

MACRO M1113

30-DEC-80 09:36
.WORD
.WCRD
WORD

000006
003406
000000

005072

CLR

002356
50117$%:

ENDIF

eNDINC

000753

50116%:

-y

PAGE 24-1

6
CSRERR
O

LET @LPCSR(R2)
aLPCSR(R2)

:- #0

50115%

:CHECK FOR READY IN EACH PRINTER UNDER TEST

1884

005037
000402

002314

005237

002314

023701
003021

002314

013702

002314

006302

" 885
1886

50120%:

002314

002074

032772

000200

002356

005262

1888

50121%:

013737
001006

1887

INCR LUNIT FROM #0 TO R1 BY #1

ASL

(017

LUNIT,LSLUN

BNE

50123%

INC

ERRTBL (R2)

ERRHRD 7, RDYERR

.WORD

.WORD
.WORD
ENDIF

END INC

000752

50122%:
;

C$ERHRD

RDYERR
0

50121%

TEST NAME

OJTPUT #INTLK,429.

;VERIFY OPERATION OF PAPER LOW INTERLOCK SWITCH

JHARD C(ODED INCREMENT LOOP

1897

1898 012010

1904
1905

LUNIT,R1
(MP
50122%
BGT
LET R2 :- LUNIT SKHIFT 1
LUNIT,R2
MOV

TRAP

1895
1896

1901
1902
1903

LUNIT

LET ERRTBL(R2) := FRRTBL(R?2) + #1

003114

1891
1892
1893
1894

1899

INC

IF #B1T07 NOTSETIN QLPCSR(R2) THEN
#R1T07,aLPCSR(RZ)
8IT

50123¢%:

1890

LUNIT
501208

LET LSLUN := LUNIT

104456
000007
003424
000000

1889

CLR
BR

012010
012014
012020
012022
012022
012026
012026
012032
012034
012034

005037
005037
000405

002340
002314

005237

002314

013702

002314

023701

002314

006302

LET ERRFLG := #0
ERRFLG
CLR

2%:

(LR LUNIT
1%
BR

INC LUNIT
LET R2 :- LUNIT SHIFT

MOV

1%:

ASL

(MP LUNIT,RT

LUNIT,RZ

SEQ 0055

CZLPLDO LP2S, LP26, LPO7 TEST

READY LINE

INTERLOCKS

1906 012040

1907 012042
1908 012046

1909 012046

1910

003402
000137

1917

—

—h

1918

bbeONNNOObNOOONOg
8bl\bbl‘wwwwf\)'\)f\)f\)—‘—'—‘-‘

1916

sty G

1915

Gy s

1914

1913

s 4

SIS LS LSS, N1, ST, NY, S 1, V1, S LN 1,0 1, U 1,0 1 U 1aN LoV LV ¥
A IANIAY) [N
(AN IASI1\V 1oV LNLNTN1,N -—d b D ed D B =D D D b b D b e =D b b =D
NNV
—
=0
]e
NSO J a8

OO0 [oleldlolololololololololololalelololalelolols)

191¢

1919

1922
1923
1924

3%:

Mp L%

Y]
n
~
H

LET FLAG := #0
CLR

FLAG

062706

000006

012746
012746
010600

013466
00001

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

062706

000004

TRAP
ADD

CSPNTF
n6 ,SP

TRAP

C$GMAN

.WORD

FLAG

.WORD

READY

PRINTF

MOV
MOV

GMANIL READY, FLAG, 100000, YES

000404
002274
000130
007603

.WORD

100000

10000%:
000310

005037

002340

00227¢

50124%:

005337

002276

005737
001403
005737
001747

002276

L INCNT

TST

L INCNT

TST

ERRFLG

50125%

501248

BEQ

IF ERRFLG EQ #0 THEN
BNE
TRAP

ERRFLG

50126%
ERRHRD 8,PAPSWI

.WORD
.WORD
.WORD

012262

; ALLOW FOR ABOUT 3 PAGES OF PAPER

IT
T
#58,LUN
PTS
#15,
OUTPUI #PA
LET LINCNT := LINCNT - #1

TST

002340

000137

100000

REPEAT

BEQ
50125%:

003114

T$CODE

LET LINCNT :=
#200. ,LINCNT
MO/
LET ERRFLG :=
ERRFLG
(LR

DEC

003446
000000

000402

.WORD

10000%

UNTIL LINCNT EQ #0 OR ERRFLG NE #0

002340

005262

LUNIT,=(SP)
#PAPR3W,=(SP)

SP,RO

MOV

104443

012737

#PAPRSW,LUN]T

#2,-(SP)
SP,RO

MOV
MOV

104456
000010

]
e

BLE 2%

012402

002314
013416
000002

1046417

SEQ 0056

PAGE 24-2

013746
012746
012746
010600

001011

1921

30-DEC-80 09:36

002274

005737

1920

MACRO M1113

005037

104417

TEST 2

($ERHRD

8
PAPSWI]
O

LET ERRTBL(R2) :- ERRIBL(R?) + #1

ERRTBL (R2)
<JMP
INL INE
11002%
JMP
INC

ELSE

501268%:

B8R

50127%
LET ERRFLG

11002%>

(2LP.DC (P25, LP26, LPO7 TEST

READY LINE

INTERLOCKS

e
mnd

0
0
0
0

19¢8 0

—

1927 G

—ad —ud

012256
1925 012262
0
1926 012262
0
0
0
0
0
0 12302

005037

TEST 2

MACRO M1113

02340
50127%:

013746
012746
012746
010600

000006

005037

002274

1930 012334
1931 012340
1932

1933
1934
1935 012344

LET FLAG :- #0

002314

005072
000137

002356
012022

000001

012352
1957 012356
012356

005037

002336
120000

012364

005062

002752

012370

005062

002552

012374

005062
000207

002652

012402
012406
012410
012410
012414
012414
012420

300602

002314

005237

002314

023701
003137

002314

012422
012426
1945 012430
072430

013702
006302

002314

013737

002314

1939 012370
1940 012374

1941 012400
1942
1943 012402

1944 012422

1946 012436

FLAG

TRAP

( $GMAN

.WORD

FLAG

.WORD
.WORD
.WORD

10001%

T$CODE
READY

100000

LET R2 := LUNIT SHIFT

MOV
ASL

LUNIT,R2
R2

(LR
JMP 2%

aLPCSR(R2)

LET QLPCSR(R2)

; RESET THE LP (SR

:= #0

JEXPECTED ERROR HANDLER.
;JUST

042762

CLR

GMANIL READY,FLAG,100000,YES

10001$:

012737

1938 012364

CS$TMNTF
#6,SP

TRAP
ADD

012344

1936 012352

#2,-(SP)
SP,RO

MOV
MOV

104443
000404
002274
000130
007603

013702
006302

ERRF LG

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

MOV
MOV

002314
013535
000002

104417
062706

CLR
ENDIF

SEQ 0057

PAGE 24-3

11002%: PRINTF #PAPRDY,LUNIT

100000

1929 012326

30-DEC-80 09:36

SET EXPECTED ERROR INDICATOR.
LET ERRFLG := #1

002340

MoV

LET
CLR
LET
8IC
LET
CLR
LET
CLR
LET
CLR

002512

#1,ERRFLG

ERRCOD := #0
ERRCOD

STATUS(R2)

:= STATUS(RZ2) CLR.BY #ERROR'ACTIVE

CURCNT(R2)

:= #0

#ERROR'ACTIVE ,STATUS(R?2)

: CLEAN UP THE DRIVER PARAMETERS

CURCNT (R2)
CURADD(R2) :- #0
CURADD (R2)
REPCNT(R2) :
#0
REPCNT (R2)
RTS PC

:AND RETURN

igERIFYIO?ERATION OF HAMMER BANK INTERLOCK SWIT(H ON LP?2 5,26 -OR- YERIFY BAND GAT[ LATCH ON
:

50131%:
50130%:

(LR
BR

LUNIT FROM #0 TO R1 BY #1
LUNIT

50130%

INC

LUNIT

cMp

LUN]IT ,R1
50132%
:= LUNIT SHIFT
LUNIT,R2

BGT
LET R2
MOV

ASL

002074

LET LSLUN := LUNIT

MoV

LET

LUNIT LSLUN

FLAG :- #0

C2LPLDO LP2S, LP26, LPO7 TEST
READY LINE INTERLOCKS
TEST 2

012436

005037

C02274

012462
0126450
012452
012460

032762
001417
032762
001013

002000

002512

001000

002512

012462
012466
012472
012476
012500
012502

013746
012746
012746
010600
104417
062706

002314
0146255
000002

2506

000422

1947 012442

1948 012462

1649 G12506

FLAG

BIT
BEQ
BIT
BNE

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

MOV
MOV
MOV

LUNIT,=(SP)
= (SP)
#8LTLCH,
#2,~(SP)
SP,RO

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

MOV
TRAP
ADD
ELSE

000006
50133$:

PRINTF #HAMRSW,LUNIT
LUNIT,=(SP)
= (SP)
#HAMRSW,
#2,-(SP)

012534
012540

012746
012746

013721
000001

012546
012550

104417
062706

000006

TRAP
ADD

d
d
d
d

1952 012554
1953 012554

012554
012556
012560
012562
012564
012566

1954 012570

.WORD
.WORD
.WORD

10002%:

012600
012604
012610
012614
012616
012620

013746
012746
012746
010600
104417
062706

012624
012626
012630
012632
012634
012636

104443
000404
002274
000130
007603
100000

1956 012624

012640

002350

.WORD

(SP)
- W1
#HAMS
P)
#1,-(S
SP,RO
CSPNTF
w4, SP

CSGMAN

10002%

FLAG
TS$CODE
READY

100000

TRAP
ADD

PRINTF #HAMRDY ,LUNIT
LUNIT,=(SP)
Y
, = (SP)
#HAMRD
#2,-(SP)
SP,RO
CSPNTF
#6,SP

TRAP

CSGMAN

.WORD
.WORD
.WORD

10003$%:

CEPNTF
#6,SP
PRINTF #HAMSW1

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

000006

SP,RO

GMANIL READY, FLAG, 100000, YES
BR

002314
013762
000002

001421

TRAP
ADD
ENDIF
TRAP

104443
000404
002274
000130
007603
100000

100000

1955 012600

MOV
MOV
MOV

50134%:

032772

12570
012576

MOV

000004

CEPNTF
N6,SP

50134%

MOV
MoV
MOV

010600

PRINTF #BGTLCH,LUNIT

002314
013644
000002

012544

PAGE 24-4

(LR

013746
012746
012746
010600
104417
062706

—

1951

30-DEC-80 09:36

510
5146
520
2524
2526
2530

1950

MACRO M1113

.WORD

GMANIL READY, FLAG, 100000, YES
10003¢

FLAG
TSCODE
READY

100000

SEQ 0058

CZLPLDO LP25, LP26, LPO? TEST

READY LINE

INTERLOCKS

1957 012640

~ TEST

MACRO M1113

30-DEC-80 09:36
ELSE

012640
012662

000426

012642

005262

003114

060 012646

013737

002314

002074

MOV

032762
001611
032762
001005

002000

002512

007000

002512

BIT
BEQ
BIT
BNE

1958 012642

1959 012646

1961 012654
012654
012662
012664
012622
1962 012674
012674
012676

50135%:

PAGE 24=5

50136%
LET ERRTBL(R2)

:= ERRTBL(R2)

ERRTBL (R2)

INC

LET LSLUN := LUNIT

LUNIT,LSLUN

+ #1
,

104456
000021
004215
000000

TRAP
.WORD
.WORD
.WORD

012704
012706

000404

501408

012706
012710
012712
012714

104456
000011
003511
000000

1963 12704

1964 012706

1965 012716

501378:

TRAP
.WORD
.WORD
.WOKD

012716

:
501408

012716

50136$:

1966 012716

196/ 012716

012716
012720

1969 012720
012720
012724
012726
012726
012732

012732

012736

1970 012740

005037
000402

002314

005237

002314

023701

002314

003162

(SERHRD
9
BAKSW]
0
ENDIF

ENDIF

(mpP

BGT
LET

002314

012746
1972 012752

005037

002274

012752
012760
012762
012770

032762
001417
(32762
001013

002000

002512

001000

002512

012772
012776
013002
013006

013746
0127646
012746
010600

1973 012772

ERRHRD 9 ,BNKSW]

BR
50131$
50132$:
:VERIFY OPERATION OF CHARACTER BAND INTERLOCK SWITCH ON LP25,26 - OR = VFu INTERLOCK ON LPG7
INCR LUNIT FROM #0 TG R1 BY #1
(LR
LUNIT
*
BR
501418
£01428:
INC
LUNIT
50141$:

013702
006302

012746

]

002314
014355
000002

THEN

ELSE

ENDINC

000634

012740
012744

1971

SEQ 0059

IF #FLAGO? SETIN STATUS(R2) AND #FLAG26 NOTSETIN STATUS(R2)
HFLAGO7 ,STATUS(RZ)
50137%
#FLAG26,STATUS(R?Z)
50137%
ERRHRD 17,BGTSW!
($ERHRD
17
BGTSWI
0

012700
012702

1968

MOV
ASL

LUN]IT,RT

501438

:= LUNIT

LET FLAG

LUNIT ,R2
R2

SHIFT

:- #0

CLR
FLAG
IF #FLAGO7? SETIN STATUS(R2) AND #FLAG26 NOTSETIN STATUS(R2)

BIT
BEQ
BIT
BNE

#FLAGO?,STATUS(RZ)
501443
#FLAG26,STATUS(R2)
50144$

MOV
MOV
MOV
MOV

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

PRINTF

#VFUINT,LUNTT

THEN

CZLPLDO LP2S, LP26, LPO7 TEST

READY LINE

INTERLOCKS

o OO0O0O0O [@lele)
W nINDNIN) Saa
o S, 000 oo

—

d
D
D
O

AN NN NN AN AN N N AN N N AN NN NN NN NN NN

"G84

1985

000006
5014648

062706
012746
012746
010600

MOV
MOV
MOV
TRAP

000006

ADD

- (SP)
#BANDSW,
n2,-(SP)
SP,R0O
CSPNTF

016134
00001

MOV

#BNDSW1,~(SP)

MOV
MOV

TRAP
ADD

000004

OOOO0
OO0

g
o
L
A
S

10004%:

100000

002356

002000

002512

001000

002512

013746
012746
012746
010600
104417
062706

002314
014447
000002

000412

.WORD

FLAG

.WORD

READY

.WORD

T$CODE

100000

#B31T15,aLPCSR(R?)
50146%

BIT

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

MOV

PRINTF #VFURDY,LUNIT
LUNIT,~(SP)

B8R
MOV
MOV
MOV
MOV
TRAP
ADD

50150%:
104443

IF #BIT15 SETIN aLPCSR(R2) THEN

TRAP
ADD

000006

100048

BIT
BEQ

MOV
MOV
MOV

002314
014164
000002

CSPNTF
¥4 ,SP

CSGMAN

BNE

50147%:

#1,-(SP)
SP,RO

TRAP

BEQ

000006

#6,SP
PRINTF #BNDSW!

GMANIL READY, FLAG, 100000, YES

.WORD

032762
001417
032762
001013

013746
012746
012746
010600
104417
062706

ENDIF

L
L
L
L
A

PRINTF #BANDSW,LUNIT
LUNIT,=(SP)

MOV

001444

(SPNTF
#6,SP

50145%

002314
014046
000002

SEQ 006C

PAGE 24=6

013746
012746
012746
010600

032772

b
b
b cd

b
b
) ed
D —d
D —d
d
)
b e
)
— —d

) e

d e

1983

el cnd

1982

TRAP
ADD
ELSE

104443
000404
002274
000130
007603
100000
(oleololelelolololalalololololelalels) [e]ololelele
—_—

1981

30-DEC-80 09:36

50145%:

1978

1980

MACRO M1113

000422

104417
062706

1977

1979

104417
062706

104417

D e

1975

1974

WN WWNWWN WWNW

[eolololololololololololnliele)

013010

TEST 2

TRAP

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

50147%

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

50150%

PRINTF #8NDRDY,LUN]T
LUNIT,=(SP)
#BNDRDY ,=-(SP)
#2,~(SP)
SP,RO
CSPNTF
#6,SP
ENDIF

GMANIL READY, FLAG, 100000, YES
( $GMAN

CZLPLDO LP25, LP26, LPO7 TeST
TEST 2
READY LINE INTERLOCKS
013204
013206
013210
013212
013214
013216

000404
002274
900130
007603
100000

013216

000426

1986 013216

013220
1987 013220

MACRO M1113

30-DEC-80 09:36
BR

10005¢%:

FLAG

"WORD

READY

50146%:

"WwORD
ELSE

SEQ 0061

PAGE 247

10005%

WORD

"WORD

T$CODE

100000

50151$

LET ERRTBL(R2)

:- ERRTBL(R2) + #1

013220

005262

003114

013224

013737

002374

002074

MOV

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

013232
013240
-013262
013250

032762
001411
032762
001005

002000

002512

BIT

(R2)
#FLAGO7.STATUS

001000

002512

BIT

#FLAG26,STATUS(R2)

TRAP

(S$ERHRD

1988 013224

1989 013232

1990 (13252

013252
013254
013256
013260

1991 013262
013262
013264
1992 013264

013264
013266
013270
013272

1993 013274

013274
1994 013274
013274
1995 013274

000404

50151¢%:

2000

2001
2002

012737

000000

000014

003160

104432
001162

50152%

50152$

16
VFUINF
O

50153$

ERRHRD 16, VFUINF

ELSE

TRAP

CSERHRD

"WORD
"WORD

BNDSWI
0

ERRHRD 10, BNDSWI

ENDIF

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

END INC

BR
50143$:
LET OUTBUF
MOV

50142%

:= #14

#14 ,0UTBUF

OUTPUT #OUTBUF ,#1
EXIT TST
TRAP

.WORD

CSEXIT

L10011-.

_NLIST BEX

2003 013360
2004 013416
2005 013466

122
045
045

105
116
101

2007 013624
2008 013644
2009 013721
2010 013762

120
045
045
045

101
116
116
116

2006 013535

002356

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

JWORD
<WORD
"WORD

JWORD

50153¢%:

000611

013354
013356

501528:

104456
000012
003556
000000

013302
013304
1997 013304
1998 013312
1999 013354

BNE

004257
000000

012772

013304

BEQ

104456
000020

013274

199¢ 013302

INC

045

116

101
045
040
045
120
045
045
045

INTLK:

.ASCIZ

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

PAPRSW: .ASCIZ /YNYATEAR OFF PAPER JUST BELOW LUNIT %D2/
PAPSW1: .ASCIZ /YA TO CHECK PAPER LOW XNYAINTERLOCK.XN/
/INXARESTORE PAPER, CLEAR, PLACE LUNIT XD2XA ON . INE.ZN/
PAPRDY: .ASCIZ

PAPTST: .ASCIZ
HAMRSW:

.ASCIZ

HAMRDY:

.ASCIZ

HAMSW]: .ASCIZ

/PAPER LOW TEST/<12>

AD HAMMER BANK LATCH ON LUNIT ¥XD2/
] SENGAGE
/INY
/YINYATO CHECK INTERLOCK SWITCH.IN/
/INYAENGAGE LATCH,CLEAR,PLACE LUNIT XD2%A ON L INE.ZN/

CZLPLDO LP2S, LP26, LPO7 TEST

READY LINE INTERLOCKS

TEST 2

045
045
045
045
045
045

116
116
11¢
116
116
11%

201 014046
2012 0164134
2013 014164
2014 014255
2015 014355
5819 0164647
2018

2019
2020 014540
014540
014540
2021

2022 014542
2023

106600

MACRO M1113

045
045
045
065
045
045

30-DEC-80 09:36

PAGE 24-8

SEQ 0062

BANDSW: .ASCIZ /XNYAOPEN CHARACTER BAND COVER ON LUNIT XD2XA TO CHECK/
BNDSW1: .ASCIZ /INXAINTERLOCK SWITCH.ZN/
EAR,PLACE ON LINE./
BNDRDY: .ASCIZ/XNYACLOSE BAND COVER ON LUNIT XD2XA,CL
TO (HECK MICROSWIT(H,IN/
XD2XA
LUNIT
ON
LAT(H
GATE
BAND
EN
/Y¥NYAOP
BGTLCH: .ASCIZ
TO CHECK MICROSWITCH.IN/
VFUINT: .ASCIZ /XNYALIFT VFU COVER ON LUNIT XD2XA
v;u?gv: CASCIZ /YINYACLOSF VFU COVER ON LUNIT XD2%A,CLEAR,PLACE ONLINE.2ZN/
EvV

.LIST BEX
ENDTST
L10011:
TRAP
ENDMOD

CSETST

M5
-

CILPLDO LP2S, LP26, LPO7 TEST

FORMS LENGTH SELECTION

MACRO M1113

30-DEC-80 €9:36

SEQ 0063

PAGE 25

.SBTTL FORMS LENGTH SELECTION

2025
2026 014542

BGNMOD

2027

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

JAND WAITS FOR T HE OPERATOR TO SET THE SWITCH ON THE PRINTER. THE PAPER
;1S THEN ADVANCE D UNDER PROGRAM CONTROL. THE PRINTER QUTPUT IS VISUALLY
R
JINSPECTED AFTER ALL SWITCH SETTINGS HAVE BEEN RUN THROUGH BY THE OPERATO

“TO VERIFY THAT THZ PROPER PAPER MOVEMENT HAS OCCURRED FOR EACH SWITCH
;SETTING. ALL LP 07'S WILL BE TESTED ON ALL TCVFU CHANNELS AND LINE COUNTS.

BGNTST

014542
014542

014544
014544
C14546
014546

T3::

:DETERMINE IF MANUAL INTERVENTION IS ALLOWED
MANUAL

005737

014644
014650

014654
014656
014660

2051 014664
014664

EXIT TST
CSEXIT
TRAP

104432

014552
014556
2044 014560
014560
014562
2045 014564
014564
014570
2046
2047 014572
014572
014576
014600
014600
014604
014604
014610
014612
014616
2048 014616
014616
014622
2049 014624
014624
014632
014634
2050 014640

001002

.WORD

1%:

002262

002012

005037
000402

002314

005237

002314

023701
003402
000137

002314

2%:
$BRUMP=1

50154%:

50155%:

016366

013702
006302

002314

032762
001402
000137

002000

012746

TST INHINT
BNE 2%
EXIT TST
TRAP

013701
005301
000001

015304

002374
016434
000002

L10012-.

SEXIT TEST IF MANUAL INTERVENTION TESTS ARE NOT SPECIFIED

104432
003064

013746
012746
012746
010600
104417
062706

(SMAN]

BCOMPLETE 1%
1%
BCS

103402

003076

014640

TRAP

104450

014550

2041

50156%:

.WORD

LET R1

:= LSUNIT - #1

DEC

MOV

R
LSUNIT.

INCR LUNIT FROM #0 TO R1 BY #1

CLR
BR

LUNIT
50155%

INC

LUNIT

cMP
BLE
JMP

LUNIT,R1
50156%
50157%

MOV

LET R2 := LUNIT SHIFT 1
LUN]T,R2

BIT

IF #FLAGO7 NOTSETIN STATUS(RZ2) THEN
#FLAGO7,STATUS(R?2)

JMP

50160%

ASL

002512

C$EXIT

L10012-.

BEQ

MOV
(017

. +6

PRINTF #LINSWI,LUNIT
LUNIT,=-(SP)
#LINSW] ,-(SP)

MOV

#2,-(SP)

000006

TRAP
ADD

CSPNTF
#6,SP

016520

MOV

SP,RO

PRINTF #L INSWI1
#L INSW1,~(SP)

C2LPLDO LP25, LPZ6, LPO7 TEST

FORMS LENGTH SELECTION

014670
014674
014676
014700
2052 014704
014704
014710
014716
014720
014722
014724
2053 014730
014730
014734
014740
0147644

014746

014750
20564 147564
014754
(14760
014764
014770
014772
014774
015000
2055
015000
015002
015004
015006
015010
015010
075014
015016
015022
2056 015022
015022
015030
2057 015034
015034
£15040
015044

015050
015054

2058

2059

2060

012746
010600
104417
062706

MACRO M1113

30-DEC-B0 09:36

600001
000004

Mov
MOV
TRAP
ADD

#1,-(SP)

LUNIT ,=(SP)

PRINTF

013746
012746
012746
010600
062706

000006

MOV
MOV
MOV
MOV
TRAP
ADD

013746
012746
012746

002314
016677
000002

MoV
MOV
MOV

#FLST1,-(SP)

000006

ADD

#6,SP

104417

010600
104417
062706
013746
012746
012746
010600
104417
062706

MOV
TRAP

002314

MOV
MOV
MOV
MoV
TRAP
ADD

017373

€00002

000006

005003
000402

062703

000004

020327
003402
0001327

000050

012737
060337

017225
016372

013746
013746
012746
012746
010600
104417
062706

016372
002314
017301
000003

012746
012746
010600
104417
062706

017373
000001

005037
104443
000404

50161%:

50162%:

015300

50163%:
016372

SP,R0O
CSPNTF

#6,SP

PRINTF

LUNIT,=(SP)

CSPNTF

PRINTF AFLSMS1,LUNIT
LUNIT,=(SP)

#FLSMS1,-(SP)
#2,-(SP)

SP.RO
CSPNTF

#6,SP

INCR R3 FROM #0 TO #50 BY #4

ADD

#4 ,R3

cMP
BLE
JMP

R3,450
50163%
50164%

MOV
ADD

MFFSET,T3SET

MoV

T3SET,~(SP)
LUNIT,=(SP)

50162%

R3,T3SET

LET T3SET := WFFSET + R3
PRINTF #FLSMSG,LUNIT,T3SET

#FLSMSG,
= (SP)

#3,-(SP)

HFLSMS1,-(SP)
#1,-(SP)

000004

MoV
MOV
MOV
TRAP
ADD

002274

(LR

FLAG

TRAP

( $GMAN

AFLST,LUNIT

#2,~(SP)

MOV
MoV
TRAP
ADD

000010

#FLSSEL,LUNIT

#FLSSEL ,~(SP)
#2,-(SP)

CLR
BR

MOV
i%

SEQ 0064

PAGE 25-1

002314
016600
000002

SP,RO
CSPNTF

#10,SP

PRINTF

#FLSMST

SP.RO
CSPNTF

#4,SP

0000

LET FLAG := #0
GMAN]L READY,FLAG,100000,YES

CZLPLDO LP2S. LP26, LPO7 TEST
FORMS LENGTH SELECTION

015114

015116
015120
015122
015124

.WORD

002274

000130
007603
100000

100008:

2065 015276
015276

000642

015320

000137

015300
2066 015300

015304

2067 0153C4

.WORD
.WORD
.WORD

FLAG

T$(ODE
READY
100000

OUTPUI #REFLIN, #62.,,LUNIT

,
A3, ,LUNIT
OUTPU] T3SET
,
OUTPUI #MOVMSG,#62. LINIT

.
004737

005544
501648:

016072

50160%:

B8R

JMP

50161%

ENDINC

OQUTPU] AREFLIN,#3C., LUNIT

SJTEST 1D

OUTPU] #CHNSEC,#13., LUNIT
LET WORK1 := #52

JSECTION ID
;CODE FOR ASTERISK

JSR P ,QUIET

005544

015414

012737

000052

003156

MOV

#52 ,WORK1

012737

000200

003160

MOV

#200,0UTBUF

(12737
000402

000001

003154

MOV
BR

#1,WORK
50167%

(05237

003154

INC

WORK

023727
003402
000137

003154

(MP
BLE
JMP

WORK ,#12.
50170%
50171%

015422

2072 015430

015430
015436

015440
015440
015444

015444
015452
015454

C15460

50166%:

000014

015572

015564
2076 015570
015570
015572

2077 015572

15572

2078 015600
2079 015642

2080 015704

015704

2081 015712

005237

003160

000723
012737

012737

50171%:

000014

000052

015712

012737

000220

015720

005037

003154

2082 015720

015724
015726
015726
015732

015732
015740
015742
015746

000402

50167$:

50170$:

2073 015460
2074 015522

2075 015564

005237

003154

023727
003402
000137

003154
016072

JSR PC,QUIET

50165%

004737

2071 015422

003160

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

LET OUTBUF := OUTBUF + #1

INC

OUTBUF

50166%

MoV

#164 ,0UTBUF

LET OUTBUF := #14

OUTPUI #OUTBUF .41, ,LUNIT
OUTPUl #_INSEC,415.,,LUNIT

LET WORK1 := #52

MOV

#52,WORK1

003160

MOV

#220,0UTBUF

CLR

WORK

INC

WORK

CMP
BLE
JMP

, #15,
WORK
501748
50175%

000017

50173%:

50174%:

sNEXT CHANNEL

ENDINC

003156

50172%:

s CHANNEL CODE

LET OUTBUF := #200

F
A1, ,LUNIT
OUTPUI #OUTBU
RK1
41, ,LUNIT,WORK
OUTPUI AMWO

TEST ID ¢ REF. LINF

ELSE

2068 015345

2069 015352
2070 G15414

SEQ 0065

MACRO M1113 30-DEC-80 09:36 PAGE 25-2

2061 015124

2062 015166
2063 015230
2064 015272

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

50173%

;SECTION [D
;CODE FOR ASTERISK

;(ODE FOR VFU

CZLPLDO LP25. LP26, LPO? TEST

FORMS LENGTH SELECTION

.
MACRO M1113° 30-DEC-80 09:36
>

2083 015746

9084 016010

016010
016014
016016

2085 016022

2086 016064
016064
2087 076064
016064
2088 016070
016070
016072
2089 016072
016072
2090
2091 016072
016072

16100

016102
2092 016106

ad
005737
003002
000137

OUTPUI #OUTBUF
&1, ,LUNIT
ST
867
IMP

003154

016064

F WORE. GT #0 THEN

WORK
.46
501768

ENDIF

501768
005237

003160

000716

501758:

INC

OUTBF

50172%

002000

000137

016252

013746
012746
012746
010600
104417
062706

002314
017133
000002

001402

002512

OUTPUI #WORKT,#1,.LUNIT.WORK

LET OUTBUF

:= OUTBUF + #1

ENDINCR

CSET FORMS LENGTH SELECT SWITCH TC ITS 'REGULAR'® SETTING
1F #FLAGO7 NOTSETIN STATUS(RZ2) THEN
BIT
#FLAGO7
., STATUS (R2)
BEQ

IMF

.46

50177%

000006

MOV
MOV
MGV
MOV
TRAP
ADD

PRINTF MNMLFLS,LUNIT
LUNIT,=(SP)
ANMLFLS,=(SP)
#2,-(SP)
SP.RO
CSPNTF
#6.SP

013746

002314

MOV

LUNIT,=(SP)

062706

000006

ADD

X6, SP

012737

000014

C16164

005037

002274

016170
016172
016174
016176
016200
016202
016204

104443
000404
002274
000130
007603
100000

016106
016112
016116
016122
016124
016126

2093 016132
016132
016136
C16142
016146
016150
016152

2094 016156
016156
2095 016164
2096 116170

012746
012746
010600
104417

017373
000002

MOV
MOV
MOV
TRAP
003°60

MOV
CLR

10001$:

2097 016204

5098 016246

016246 000137 016322

016252
2099 016252
016252
2100 016260
2101 016322
016322

2102 016322

016322

012737

000014

50177%
003160

TRAP
BR
.WORD
"WCRD
"WORD
WORD

JMP
MOV

502008:
072746

016772

;PRINT ASTERISX

END.F

501658:

032762

SEQ 0066

PAGE 25-3

MOv

PRINTF #FLSMST,LUNIT

RELSMS1
.= (SP)
#2.-(SP}
SP.RO
CSPNTF
LEY QUTLUF

:= #14

#14 ,0UTBUF
LET FLAG :- #0
FLAG
GMANIL READY,FLAG,100000,YES
( $GMAN
10001
FLAG
TSCODE
READY
100000
ELSE

:CLEAR <CR> FLAG
;AND WAIT FOR RESPONSE

OUTPUI #OUTBUF
A1, LUNIT

502008

LEYT OUTRUF := #14
#14,0UTBUF
OUTPUI #OUTBUF
. #1, LUNIT
ENDIF

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

:MAKE SURE MOVEMENT WAS RIGHT

MACRO M1113

CZLPLDO LP2S, LP26, LPO? TEST

FORMS LENGTH SELECTION

016360

100000

103

b o

n—

D b —d
b od d

d
d

b wd
d b

b
b

~\OW SANN 20O

016376

STV
ST, ST, ST N L ST, U eV 1,0

104432
G01256
000000
000000

016520
016600
016677
016772
017034
017133

114
045

045
045
045
045
106
045

2121 017225
2122 017231
2123 017235

063
063
064

2131 017275

061

2124 017241
2125 017245
2126 017251
2127 017255
2128 017261
2129 017265
2130 017271

2132 017301
2133 017373
2134 017453
S}%g 017546
2137
2138
2139 017646
017646

017646

2140 017650

2141

065
066
067
070
070
061
061

045
045
045
040

104401

(SGMAN
10302%
FLAG
T$CODE
READY
100000

T3SET:
T3MOV:

040
056
040

040
065
040

056
040
040
040
056
061
062
064

116
116
116
m

END INC

JMP

50154%

LWORD
.WORD
.WORD

CSEXIT
L10012~.
O
O

50157%:
$RRUMP-=]
EXIT TST
TRAP

177777

016370
2108 016372
2109 016374
016414
016434

014600

=SCOIOO0OO——
NSO
-20
NN NNOVINON—

016366
2106
2107 C16366
016366

000137

10002%:

AN
OO
= O

016362

007603

b —d =D

016362
2105 0°6362

FLAG

GMANIL READY,.FLA,,100000,YES

TRAP
BR
.WORD
.WORD
.WORD
. -WORD

D —d

016356

045

NLIST BEX

CHNSEC: .ASCIZ )

LINSEC:
LINSWI:
LINSW1:
FLSSEL:

FLST:
PAPCHK:
REFLIN:

045
045
045
116

.ASCI
.ASC}
ASCIZ

LASCIZ I
LASCIZ 1
LASCIZ 1
LASCIZ ]
LASCIZ I
LASCIZ |
LASCIZ |

065
049
0+
€40
065
040
040

040

.ASCI
.ASCI
_AS(CI
.ASCI

.ASCI
.ASCI
,ASCI
NMLFLS: .ASCI
;SWITCH SETTI

FFSET:

LASLIZ 1

FLSMSG: .ASCIZ 1
FLSMS1: .ASCIZ )|
FLSMS2: .ASCIZ I
MOVMSG: .QSEI

.EVEN

.EVEN
LIST BEX
ENDTST
L10¢12:

ENDMOD

PAGE 25-6

LET FLAG :- #0

N N NN N

104443
000404
002274
000130

TRAP

SEQ 0067

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

NIRRT NI NN NI NI N NI NI NN N 2 NN

016346
016350
016352
016354

002274

2104 016346

005037

CLR

b ad

016342

000004

MOV
MOV
TRAP
ADD

(00001

e
S
S
e

2103 016342

012746
010600
104417
062706

—b

016326
016332
016334
016336

30-DEC-80 09:36

:WAIT FOR RESPONSE

/CHANNEL 1-12/<12>
/LINE COUNT 0-15/

/XNXASET LINES SWITCH ON UNIT %D2XA 1O "'6'" TO SELECT/
/INZA6 LINES PER INCH VERTICAL PRINTING DENSITY./

/AN2XASET VFU=FLS SWITCH ON UNIT X¥D2%A TO THE "FLS'" POSITION.XN/
/INYASET FORMS LENGTH SELECT SWITCH ON UNIT XD2%A TO “8''.IN/
/XNXAVERIFY PRGPER PAPER MOVEMENT./

/FORMS LENGTH SELECTION TEST #3---REFERENCE LINE.............. /<16>
/INXASET FORMS LENGTH SELECT SWITCH ON UNIT XD2%A TO 11.%N/

G?}FOB FORMS LENGTH MESSAGES
/3.5/

/74 /
/5.5/
/76 /
/7 /
/8 /
/8.5/
711 /
712 /
/14 /

/INYASET FORMS LENGTH SELECT SWITCH ON UNIT ID2XA TO XT2A./
', AND PLACE ON LINE.IN/
/XNYADEPRESS '‘CLEAR'',*'TOF
/X¥NYADEPRESS '‘CLEAR',"'TOF'‘,AND PLACE ON LINE,ON LUNIT XD2XN/
/ INCHES SHOULD OCCUR BETWEEN THIS AND THE REFERENCE LINE..... /<12>

CSETST

CILPLDO LP2S, LP26, LPO? TEST

PRINTING SPEED MEASUREMENT

MACRO M1113

30-DEC-80 09:36

SEQ 0068

PAGE 26

.SRTTL PRINTING SPEED MEASUREMENT

2143

g:zé 017¢50

BGNMOD

2146

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

2151
5155

: LINES PRINTED WITHIN A SPECIFIED TIME PERIOD. THE DATA PATTERN USED
: IS DESIGNED TO CAUSE PRINTING SPEED TO BE MINIMAL AND IS DEPENDENT
: ON PRINTER TYPE AND THE (HARA(CTER SET (BAND TYPE ) ON EACH PRINTER.
: THE TIME PERIOP CAN BE (ONTROLLED THRU MANUAL OPERATION, OR IF THE

: SYSTEM HAS A (_0L(K VIA SUPPLYING A COUNT OF SECONDS. ANY TIME INTERVAL Of
S 4 TO 60 SECONDS MAY BE SELECTED. THIS IS ONE OF THE “'Sw'* QUESTIONS .

X
2

2147
2148
2149
2150
p)

2154 017650

BGNTST

2155

LET R :

T4::

017650

2156 017650

017650
017654

2157 017656

017656

017662

2158 017664

017664
2159 017666
017666
2160 017670
017670
017672

2161 017674

017674
017700
2162 017702
017702
017704
2163 017706
0317706
017710
2164 017710
017710

2165 017716
017716
2166 077716

017716

017720

2167 017720

017720
2168 017726
017726

;

013701
005301
005737

001416

002012
002264

104432
005362

1%:

002262

000403
002266

020006

006316

020014

013¢07

020010
020016

50203%:
ELSE

50201%:

002266

003154

003075

062716

002322
002322

000004

INHINT
50202%
EXIT TST
CSEXIT
TRAP
L10013-.
.WORD
ELSE
50203%
BR

END]F
502048

BR
MOV

PER]IOD,WORK

#PRTSFD, #36.
(MP

BGTY
ASL

ADD

502058%:

" : DETERMIN IF MANUAL TESTING SELECTED

:DFTERMINE IF MANUAL INTERVENTION ALLOWED

; EXIT IF INTERVENTION INHIBITED

502048

SELECT CLKTYP GF 4 VERIFY
CLKTYP,=-(SP)
MOV
50213%
BLT

020016

SNUMBER OF UNITS TO TEST

LET WORK :- PERIOD
PERIOD,WORK
MOV
ENDIF

LEYT JORK :- PER]OD

QUTPUT

017776

020004

IF INHINT EQ #0 THEN

003154
*

50201%

TST
BNE

50202%:

000403

013746
G02501
023727

MANSPD

{ $MAN|
TRAP
BCOMPLETE 1%
1%
B(S
EXIT TST
(SEXIT
TRAP
L10013-.
.WORL

104432
005350

013737

TST

BEQ

103402

013737

LSUNIT,RI
R1

MANUAL

104450

005737
001003

| BUNIT - #1

MCv
DeC

IF MANSPD NE #0 THEN

2169 017726

2170 017770
017770
017774

CLKTYP,#4

50213%
(SP)

#502C5%, (SP)
P(
a(SP)+,

: CLOCK TEST
;PRINT TEST ID

TIME

;SET UP THE RIGHT (LOCK

—

NNYV
VIS W

) ——b

ST, SLS I

N1,V

o g

NV
N

(2LPLDO LP2S, LP26, LPO7 TEST
PRINTING SPEED MEASUREMENT
020016
020020
020022
020024
020026
020030
020030

020030
020034

020034
020036
2176 020036

.WORD
.WORD
.WORD
.WORD
.WORD

000137
000461

:
502108

012700
104441

000340

012746
012746
013746
012746
104437
062706

00C300
036620
002332
000003

020100

0127CG0

020106
2183 20110

020110
220116

2184 020124
020124
2185

2186 020132
20132

020136
2187 020140

020140
020144
020150
020154
020160
020162
2188 020166
20166
020172
2189

2190 020174
020174
020176
2191 020176

104441

002334

; INTERRUPT ENABLE/ CLR MONITOR

LET CLKENA := #100

#100, CLKENA
MOV
: SET PR]7 WHILE (HANGING VECTOR ADDRESS
SETPR] #PRID7
#PR107,R0
MOV
#PR106,~(SP)
#CLKTCK,=(SP)

MOV

#3,-(SP)

000010

ADD

#10,SP

(00000

1 (01Y)

#PRI00,RO

50213%

MOV

TRAP

CASE 3
50207%:

000111

002334

000300
036620
002332
000003

(012700

000000

000010

CLKVEC,=(SP)
CSSVEC

(S$SPRI]

;KwWl11=P REAL TIME (LOCK

LET CLKSET :- CLKCSR + #2
CLKCSR,CLKSET
MOV
#2,(LKSET
ADD
:SET UP ENABLE BITS
LET CLKENA :- #1011
#117,CLKENA
MOV
: RUN, RATE = 10KHZ, REPEAT INTR, DOWN,INT ENABLE
SETPR] #PRIO7

MOV

000340

012746
012746
(13746
012746
104437
062706

;SET UP INTERRUPT VE({TOR

SETPR] #PR]00

012737

000240

;Kwll=L LINE CLOCK SELECTED

MOV
MOV

002330
002330

000401

50213%

($SPR]

002326
000002

10446461

;JUST EXIT TEST NO CLOCK AVAILBLE

TRAP

013737
062737

104441

50212%
50211%
502108
50207%
50206%

SETVEC CLKVEC,#CLKTCK,#PRIO6

000434

012700

SEQ 0069

PAGE 261

ENDS

JMP

CASE 2

020044
620050
020052
2179
020052
020056
020062
020066
020072
020074
020104

CASE 1
50211%.:

C21554

000130

2178 020044

3)=-DE(~-80 09:36

020200
020030
020036
020110
020176

012737

2177 020036

MA{RO M1113

TRAP

#PR]107,RO
($SPRI

SETVEC CLKVEC,#CLKTCK,#PR]06
MOV
MOV
MOV

#PRI06,-(SP)
#CLKTCK,=(SP)
CLKVEC,=(SP)

TRAP
ADD

CS$SVEC
#10,SP

MOV

s INTERRUPT VE(CTOR

#3,-(SP)

SETPR] #PRI00

MOV

TRAP

CASE &

50206%:

NOF

#PR]00,RO
($SPKI

502138
;THIS

IS _UST A DUMMY

cILPLDO LP2S, LP26, LPOY TEST
PRINTING SPEED MEASUREMENT

MACRO M1113

2154

2195

2196 020212

SeEa 007C

PAGE 26~2

ENDSELECT
50212%:

<192

2193

30-DE(~80 09:36

50213%:

112737

000012

010137

002314

020212 005037
2197 020216
020216 013702
020222 006302
2198
2199
2200
000001
2201
2202 020224
032762
(20224
020232 001402
020234 000137
2203 020240
020240 032762
001402
020246
020250 000137
2204 020254
012737
020254
2205 020262
020262 000137
02026€
2206 020266
020266 01273%7
2207 020274
020274
8
220 020274
012737
020274
9
020302
220
020302 032762
020310 001402
000137
020312
20316 032762
0014902
020324
020326 000137
2210 020332
020332 012746
020336 012746
020342 010600
104417
020344
020346 062706
2211 020352
2212 020414
2213 020456
020456 000137
020462
2214 020462
020462 032762
020470 001002

003160

LET OUTBUF :B= #LF
ALF ,OUTBUF
MOVB

LET LUNIT - R
R1,LUNIT
MOV
1vg

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

002340
002314

ASL

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

010000

002512

1F #FLAGY6 NOTSETIN STATUS(RZ2) THEN ; 64 CHAR BAND
#FLAG96,STATUS(R2)
BIT

020772
002000

02304C

MOV

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

JMP

50216%

MOV

#TRO764 ,BNDPAT

ELSE

50215%:
023040

50216%:

000205

063154

001000

002512

020462
002000

ENDIF

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

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

BIT

#FLAG26,STATUS(R2)

JMP

50217%

BEQ

002512

000001

#FLAGO?7,STATUS(R2)

MOV
MOV
MOV

PRINTF #LPM64
L,
- (SP)
#LPM64
#1,-(SP)
SP,RO

TRAP
ADD

000004

ELSE

50217%:
002512

.+6

BIT

BEQ
JMP

023503

020766

LET BNDPAT :- #TRQ764

MOV

0c046”

001000

8f£Q
JMP

002512

020274

024640

.+6
50214%

1F #FLAGO7 NOTSETIN STATUS(R?2) THEN
#FLAGO7,STATUS/RZ)
BIT

020266
024224

BEQ
JMP

. +6
50217%

CSPNTF
#4 ,SP

, ,LUN]T
E4L4
RG22,
OUTPU] #LPM

OUTPU] #OUTBUF ,#1, ,LUNIT

JMP

50220%

BIT

# LAG26,STATUS(R?2)

BNE

;SEND SPEED MES>AGE TO CONSOLE

;SEND SPEED MESSAGE TO PRINTER

SLINEFEED

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

CULPLDO P2S, LP26, LPO7 TEST

PRINTING SFEED MEASUREMENT
020472
020476
020504
020506
225 020512
020512
020516
020522
020526
020526
2216 020532
€217 020574
2218 020636
020636
020642
2219 020642

2220
2221
2222
2223

020642
020646
£20652
020654
020656
020662
020724
020766
020766
020766

MA(RO M1113

020766

020772
2225 020772

020772
021000
021002
2226 021006
021006
2227 021014
021014

021020

2228 021020
21020
021026
2229

021026
223" 021034
021034
021042
021044
021050
021056
021060
2232 021064

—

021064
021070
021074
C21076

50221%

(20642
002000

012746
012746

023645
00000

MGV

Mov
MOV

#1,-(SP)
SP,RO

000004

ADD

n6 ,SP

020766

JMP

010600
104417
062706

000137
012746
012746
010600
104417
062706

002512

50221%:

ELSE

021520

50214%:

024432

000137

021026

012737

025046

.+6

PRINTF #L26M64
L
- (SP)
mL2OMO4
(S$TMNTF

ELSE

, ,LUNIT
MOGL
+4 842,
OUTPU] RL2O
UF
&1, ,LUNIT
QUTPUI #QUTB

50222%

MOV

PRINTF
#.07M64 ,-(SP)
#1,-(SP)

TRAP
ADD

CS$PNTF
#6 ,SP

#LO7M64

SP,RO

ENDIF

,LUNIT
#42.,L+4
QUTPU] #LO7MGE
,LUNIT
BUF
,#1,
QUTPU] #OUT

END!

JMP

50223%

002512

IF #FLAGO? NOTSETIN STATUS(R?) THEN
#FLAGO7,STATUS(R2)
BIT

023040

MOV

LET BNDPAT :- #TARA96
#TABAGG ,BNDPAT

JMP

50225%

MOV

#TB(0796,BNDPAT

BEQ
JMP

021020

012737

50221%

MOV

000004

002000

JMP

MOV

024007
000001

50220%:

032762
001402
000137

#7 LAGO7,STATUS(R2)

TRAP

50222%:

000137

BIT

BEQ

020642

ELSE

50224%:

023040
50225%:

021026

2230 021026

JMP

SEQ 0071

PAGE 26-~3

000137
032762
001402
000137

020766

2224 020766

30-DEC-B0 09:36

ENDIF

.+6
50224%

LET BNDPAT

#TR(79¢

LET WORK := #133.

012737

000205

003154

MOV

#133. ,WORK

032762
001402
000137

001000

002512

8I7

NFLAG26,STATUS(RZ)

021214

JMP

50226%

(001402
000137

021214

032762

012746
012746
010600
104417

002000

023564
000001

002512

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

BEQ

. *6

8IT

#FLAGO7,STATUS(R?)

JMP

50226%

BEQ

MOV
MOV
MOV
TRAP

.*6

PRINTF

#LPM9Y6

(SP)
- G,
#LPMI
#1,-(SP)
SP,RO
CPPNT?

C2LPLDO LP2S, LP26, LPO7 TEST

PRINTING SPEED MEASUREMENT

021100
2233 021104
22% 021146
2235 021210
021210
021214

062706

(00004

000137

021520

021214

032762

001000

000137
032762

021374
002000

000137

021374

012746
012746
010600
104417

023726
000001

22% 021214

021222

001002

021236

001402

021224
021230

021240
¢237 021244
021246

021250

021254
021256

062706

0C0004

021370
021374
2241 021374
021374

000137

021520
024070
000001

021406
021410

012746
012746
010600

104417
062706

£21260

2238 021264
2239 021326

2240 021370

021400
021404

22472 021414
2243 021456

MACRO M1113

ADD
ELSE

224L8

2249 021524
021524
2250 021530
021530
2251 021536
2252 021542
021542

2253 021546

021546
2254 021550

2255 02155¢

2256
2257

002512

BIT

#FLAG26,STATUS(R2)

002512

JMP
BIT

502308
#FLAGO7,STATUS(R2)

JMP

50230%

BEQ

MOV
MOV
"V
AP
ADD

502308:

JMP
MOV
MOV
MOV

TRAP
ADD

000004

IF #FLAG26 SETIN STATUS(R2) AND #FLAGO7 NOTSETIN STATUS(R?) THEN
.0

.+6

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

OUTPUI #L26MSG+4
#462., .LUN]T
OQUTPUI #OUTBUF
,#1, ,LUNIT

50231%
PRINTF #LO7M96

#L07M96,~(SP)
#1,-(SP)
SP,RO
CSPNTF
6 ,SP
ENDIF

50231%:

QUTPU] #LO7MOG+4 ,R4L2., ,LUNIT
OUTPUI #OUTBUF
.41, ,LUNIT

ENDIF
50227%:
ENDIF
50223%:

005072

002356

005037

002276

012737

000074

005337

002314

177777

004737

002402
(000137

021742

LET aLPCSR(R2) := #0
(LR
aLPCSR(R2)

$BRIMP=-1

036674

LET LINCNT := #0
CLR
L INCNT
LET TICK := #60.
MOV
#60.,TICK
JSR PC,REPLUP
LET LUNIT := LUNIT = M
DEC
LUNIT
IFCOND GE

020212

ENDIF

021554

2258 021554
021554

# ,SP
OUTPU] #LPMIG+4 #62., ,LUN]T
OUTPU] #OUTBUF
., #1,,LUNIT

50227%

BNE

THEN

BLT
50232%
JMP 11%

50232%:

(023727

002322

000003

END4 :

SEQ 0077

PAGE 26-4

JMP

50226%:

22644 021520
021520
2245 021520
021520
2246 021520
021520

2247 021520
021520

30-DEC-B80 09:36

IF CLKTYP EQ #3 THEN
cTMMP
C(LKTYP
&3

:DISABRLE INTERRUPTC IN CASE OF MANUAL TEST (ASE
;CLEAR LINE COUNTER

:SET UP INITIAL CLOCK VALUE
:DO THE QUTPUT

CZLPLDC (P25, LP26, LPO? TEST

PRINTING SPEED MEASUREMENT

021562
2259 021564
021564

013700
104436

002332

021600
2262 021606
021606
2263 021606
021606
021614
2264 021616
021616
021622

012777

000000

21624
021630
021634
021640
021644
021646
2266 021652
021652
)

2265 021624

2267 021660
021660

2268 021660
021660

021664
2269 021666
021666
2270 021674

271 021736
321736

2272

021740

10444

SEQ 0073

PAGE 26-5

50233%
SETPR] #PR]0O7
#PR]107,RO
MOV

BNE
000340

2261 021600

30-DEC-80 09:36

001011
012700

021570
2260 021572
021572
021576

MACRO M1113

($SPRI
CLRVEC CLKVEC
CLKVEC,RO
MOV
CSCVEC
TRAP
LET aCLKCSR := #00
#00,aCLKCSR
MOV
TRAP

160520
50233%:

023727
001021

002322

012700
104441

000340

012746
012746
013746
012746
104437
062706

0C0300
010000
002332
000003

012777

000000

000002

ENDIF

IF CLKTYP EQ #2 THEN
#2
CLKTYP,
(TMMP
50234%
BNE
SETPR] #PRI0O7
#PRI07 ,RO
MOV
C(SSPRI
TRAP

000010

160446
50234%:

012700
104447

000000

112737

000014

003160

003314

ENDIF

SETPR] #PRI0O0O
#PRI00,R0O
MOV
($SPR]
TRAP
LET OUTBUF :B= #14
#14 ,0UTBUF
MOVB
&1
OUTPUT #OUTBUF
EXIT TST

104432

SETVEC CLKVEC,#]GNORE ,#PR]06

#PR106,-(SP)
# 1GNORE ,-(SP)
CLKVEC,-(SP)
#3,-(SP)
C$SVEC
#10,SP
LET aCLKCSR := #00
#00,aCLKCSR
MOV

MOV
MoV
MOV
MOV
TRAP
ADD

;

TRAP

.WORD

CSEXIT

L10013-.

;

2273

“THIS 1S SUBROUTINED TO CECREASE THE SIZE OF THE INITIAL INCREMENT LOOP.

52;2

.
:

[4
2276

REPLUP:

2277 021742

2278 021742
021742
021750

023727
001124

002322

- 021752
021756
021762
021764

012746
012746
010600
104417

023146
000001

2279 021752

021766

2280 021772

021772

2281 021776

021776

022000

062706

000004

005037

002274

1044453

000404

000004

IF CLKTYP EQ #4 THEN
#4
CLKTYP,
(MP
50235%
BNE

MOV
MOV
MOV
TRAF

PRINTF MOFFLIN

ADD

(LR
TRAP

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

LET FLAG := #0
FLAG

GMANIL READY,FLAG,100000,YES
($GMAN

10060%

:TELL OPERATOR TO PLACE PRINTERS OFFLINE

(ZLPLDO LP25, LP26, LPO7 TEST

PRINTING SPEED MEASUREMENT

022002
022004
022006
022010
022012
2282 022012
022012
022016
022022
022026
022030
022032
2283 022036
022036
022042
022046
022052
022054
22056
2284 022062
022082
022066
022072
022076
022100
022102
2285 022106
022106
022106
022114
2286 022116
2287 022120
022120
022122
2288 022122
022122
2289 022126
022126
022126
022134
2290 022136
022136
2291 022142
022142
2292 022146
022146
022146
022150
2293 022152
022152
022152
022160
2294 022162

022162
022170
2295 022172
2296 022176

MACRO M1113

100000

013746

012746
012746
010600
104417

10000%:

002314
023206
000002

062706

00006

013746
012746
012746
010600

002314
023397
000002

062706

0C0006

013746
012746
012746
010600

002314
023405
000002

104417

104417
062706

032772
001402
000240

MOV
MOV
MOV
MOV
TRAP
ADD

TSCODE

READY

100000
#ONLIN1,LUNIT

LUNIT,=(SP)

JPUT LUNIT TO TEST ON LINE

#ONL INT,~(SP)
#Z,-(SP)

SP,RO

CSPNTF

#6,SP

PRINTF HONLINZ,LUNIT
LUNIT,=(SP)

;END OF

TEST.

#ONL IN2,-(SP)
#2,-(SP)

SP,RO
CSPNTF
#6,SP
PRINTF AONLIN3,LUNIT
MOV
LUNIT ,=(SP)
#ONL IN3,~(SP)
MOV
MOV
MOV
TRAP
ADD

002356

50236%:

BIT

BEQ

#2,-(SP)

SP,RO
CSPNTF

#6,SP

WHILE #BIT1S SETIN @LPCSR(RZ2) DO

; WAIT FOR LP SET ON-LINE

#8IT15,aLPCSR(R?)
50237%
NOP

NDDO

000772
005037

FLAG

PRINTF
MOV
MOV
MOV
MOV
TRAP
ADD

000006
100000

.WOR D
.WOR D
.WOR D
.WOR D

SEQ 0074

PAGE 26~6

30-DEC-B0 09:36

002274
000130
007603

50237%:
002276

(LR

002356

50240%:

BIT
BNE

032772
001031

10000¢C

013705

023040

MOV

013703

003154

MoV

:
502428

005703
003417
032772
001007

000200

002356

032772
001402
000137

100000

002356

022334

50244%:

50236%

LET LINCNT

L INCNT

:= #0

WHILE #BIT15 NOTSETIN &LPCSR(R2) DO
#B1T15,aLPCSR(R2)
502418
LET RS := BNDPAT
BNDPAT RS
LET R3_:= WORK

WORK ,R3
WHILE R3 GT #0 DO

TST
BLE

BIT
BNE

#B177 ,3LPCSR(R2)
50245%

BIT

#31T15,aLPCSR(R2)
50246%
JMP 998

BEQ

; REPEAT UNTIL LP GOES OFF-LINE

: PRINT R3 CHARACTERS

50243%

WHILE #BIT7 NOTSETIN aLPCSR(RZ2) DO

; WAIT FOR READY

IF #BIT1S SETIN aLPCSR(RZ) THEN

ENDIF

; EXIT LOOP [F OFF~LINE AGAIN

C2LPLDO LP2S, LP26, LPO7 TEST

PRINTING SPEED MEASUREMENT

MACRO M1113

2297 022176
02217€¢

022200

000765

50245%:

2298 022200
022200 112572 002452
2299 022204
022204
022206
2300

022206

022210

2301 022210

104422

022212
2303 022216
022216
022220
2304 ($22220

005237

022220
022222

2305 022222
022222
022230

2306 022232

50243%:

R3
ENODOQ

50242%

BREAK

C$8RK

TRAP
INC

002276

000743

50241%:

000445

023727
001003

; PUT (HAR INTO LP BUFFER
LET QLPBUF (R2) :B= (R5)+
(R2)
BUF
(RS) +,aLP
; DECRIMENT CHAR COUNTER
LET R3 :~- R3 - M

DEC

000757

022210

2302 022212

ENDDO
50244$

MOVB

005303

50235%:

002322
003202

L INCNT
ENDDO
50240%

ELSE

000003
160070

MGV

; ALLOW (TL=C ABORT

LET LINCNT :- LINCNT + #1

50247%

CMP
BNE

IF CLKTYP EQ_#3 THEN
43
CLKTYP
50250%

LET @CLKSET := #1666.

#1666. ,aCLKSET
ENDIF

022232
2307 022240
022240

012777

022240
2309 022246
022246

013777

002334

005037

036672

CLR

022252

005037

002276

CLR

023737
002023

036672

013705

023040

MoV

013703

003154

MOV

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

TST
BLE

R3
502548

BIT

#3177 ,aLPCSR(R2)

NOP
ENDDO
50255%

MOVB

(R2)
(RS)+,8LPBUF

2308 022240

2310 022252

2311 022256

022256
022256

022264
2312 022266
022266
2313 022272
022272

2314 022276

022276
022276

022300

2315 022302

022302

022310
2316 022312
2317 022314
022314

022316

2318 022316

022316

2319 022322

50250%:

002266

001002
000240

000200

000772

112572

50251%:

50253%:

005703
003412

032772

MOV

160060

002356

50255%:

002452

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

. 1/60 SEC.

;ENABLE THE CLOCK TO DO ITS THING

TIME

LET LINCNT := #0
LINCNT

; REPEAT UNTIL TIME EXHAUSTED

WHILE TIME LT PERIOD DO

(MP
BGE

BNE

50256%:

SEQ 0075

PAGE 26-7

30-DEC-80 09:36

50246%:

022176

TIME,PERIOD
50252%

WHILE R3 GT #0 DO

; SEND R3 (HARACTERS

WHILE #BIT7 NOTSETIN 3LPCSR(R2) DO

. WAIT FOR READY

50256%

LET @LPBUF (R2) :B= (RS5)+
LET R3 := R3 - M

; PUT DATA [NTO BUFFER
; DECRIMENT (HAR COUNTER

SEQ 0076

CZLPLDO LP25. LP26, LPO7 TEST MACRO M1113 30-DEC-80 .09:36 PAGE 26-~8

PRINTING SPEED MEASUREMENT

022322
2320 022324
022324

022326

2321 022326

022326
022332
2322
022332
022334
2323 022334

DEC

005303
000764
005237

002276

50254$:

R3
ENDDQ
50253$

LET LINCNT := LINCNT + #1

INC _ LINCNT
ENDDO

000751

50252
502475:

022334

50251%

ENDIF

2324 022334

59s:

g3er

:BACK ON LINE WHEN DONE

2326

*IF MANUAL PRINT SPEED TESTS HAVE BEEN PERFORMED INSURE PRINTERS ARE

2329 022334
022334
22342

iF CLKTYP EQ #4 THEN
CLKTYP,#4
(MP
50257%
BNE

2330 022344

022344
2331 022350

022350
022354
022360
022362
022364

2332 022370

022370
022372
022374
022376
022400
022402
022404

.
2533 022404
" 022404

2334 022404

002322

023727
001020
005037

002274

012746
012746
010600

024151
000001

104417
062706

000004

LET FLAG := #0

__FLAG
CLR
PRINTF #RESTOR -

MOV
MOV
MOV

TRAP
ADD _

000004

002274
000130
007603

100000
012777

:
'

000000

157714

022416
022422
022426
022432

022434
022436

013746
013746
012746
012746
010600

10001$:
ENDIF
502575:

002314
002276
023101
000003

2341 022456

022456

022456
022464

TRAP
BR
.WORD
-WORD
WORD
_WORD

CSGMAN
10001$
FLAG
TSCODE
READY
100000

MOV

#00,3CLKCSR

MOV
MOV
MOV
MOV
MOV

LUNIT,-(SP)
LINCNT,-(SP)
ALINPER,-(SP)
#3,-(SP)
SP,RO

PUSH
MOV

LINCNT,#QUTBUF+1
LINCNT,-(SP)

C$PNTB
#10,SP

104414
062706

000010

TRAP
ADD

012746
004737

003161
004550

MOV
JSR

AOUTBUF+1,~(SP)
PC,BIN2DA

032772

000200

BIT

#BIT7,3LPCSR(R2)

2339 022442
022442 013746 002276
022446
2340 022452

CSPNTF #4,SP

001001

;WAIT FOR OPERATOR

: REPORT TOTAL NUMBER OF LINES PRINTED
L
INCNT ,LUNIT
#LINPER,
PRINTB

2336
2338 022412
022412

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

GMANIL READY,FLAG,100000,YES

104443
000404

:CLEAR <CR> FLAG

002356 -

502608:

: CONVERT LINE COUNT TO ASCII
‘

WHILE #BIT7 NOTSETIN ALPCSR(R2) DO
BNE

50261%

;WAIT FOR READY

MACRO M1713

(ZLPLDO LP2S, LP26, LPO7 TEST
PRINTING SPEED MEASUREMENT
2342 022466
022466
022470
2343 022470
2344 022532
2345 022536
2346 022542
2347 022604
2348
2349 022610
022610
022616
022620
022626

022630

022630
022672
022676
022676
022702
022706
022712
022754
022760
023022
023026
023026
023026

ENDDO

000773

50261%:

004737
004737

005544
005544

004737

005544

023727

002322

000002

002322

000003

001404
023727
001077

30-DEC~80 09:36

SEQ 0077

PAGE 26-9

50260%

; DISPLAY LINE COUNT ON LP

,LUNIT
BUF
46,
#OUT
OUTPUIl
JSR PC,QUIET
JSR PC,QUIET
#SPED1,#419., LUNIT
OUTPUI
JSR PC,QUIET

;

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

cMP

50262%:

CLKTYP,#2

BEQ
CMP
BNE

50262%
CLKTYP,#3
.
502638°
OUTPUI #SPEDZ,
44, ,LUNIT
JSR PC,QUIET

CONVERT TIME

013746
012746
004737

002266
003161
004550

MOV
MoV

004737

005544

004737

005544

JSR PC,QUIET
#SPED3,48., ,LUNIT
OUTPU]
PC,QUIET
JSR
ENDIF

50263%:

PERIOD,#0UTBU+1
F
PERIOD,~(SP)
#OUTBUF +1,-(SP)

005544

PUSH

004737

000207

"“LINES PRINTED"'

JSR PC,BINZ2DA
#OUTBUF +3,43, ,LUNIT
OUTPUI

TO ASCII

;

DISPLAY THE TIME

"'SECONDS"'

IN SECONDS

;GO BACK AND DO IT AGAIN

RTS PC

"EXPECTED ERROR HANDLER
023030
023030
023036

012737
000207

023040

000000

000001

002340

LPERR2: LET ERRFLG :- #1

BNDPAT:

MoV
RTS

#1,ERRFLG
PC

.WORD

NLIST BEX

sSET ERROR FOUND
JAND EXIT

;

CONTAINS ADDRESS OF PRINT PATTERN

Y 0

(=) QOOOOOO=OOOOO———
H P O
P
9
9.7 TP
9
9
U
Y
e
w VIV
NN = AN NN NN O —

S
S
S

IY |\ P gi gl G S
IR

(oo Yo Yoo Yo No Xa¥To Ne Yo Yo Yo QUL o

045

040
045
045
045
045
045
120
045
045
045
045
045

[

023436
023503
023564
023645
023726
024007
024070
024151

040

[ PN

023042
023065
023071
023101
023146
023206
023307
023405

)

JASSOCIATED MESSAGES
SPED1:
SPED2:
SPED3:

.ASCIl
.ASLII
.ASCI]

OFFLIN:
ONLIN1:
OMLINZ:
ONLIN3:
PRTSPD:

.ASCIZ /XINXAINSURE PRINTER(S) OFF LINE./
_ASCIZ/INAAPLACE LUNIT XD2XA ON LINE TO INITIATE TIME PERIOD FOR MANUAL/
.ASCIZ
/XNXAPRINTING SPEED MEASUREMENT AND BACK OFF LINE TO TERMINATE/
_ASCIZ /XNXATHE TIME INTERVAL.ZN/
.ASCIZ
/PRINTING SPFED MEASUREMENT TEST 4/<12><12><12>

LINPER:

LPM64:
LPM96:
L26M64:
L26MS6:
LO7M64:
LO7M96:
RESTOR:

_ASCIZ

.ASCIZ
.ASCIZ
ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/ LINES WERE PRINTED/
/ IN /
/ SECONDS/

/%NZD3XA LINES PRINTED ON LUNIT XD2XN/

/XNZA64
/INYA96
/INXA64
/%NXA96
/INYA64
/AIN%A96

CHARACTER
CHARACTER
CHARACTER
(HARACTER
(HARACTER
(HARACTER

BAND
BAND
BAND
BAND
BAND
BAND

.AS(CIZ /XNXACLEAR PRINTER(S)

SHOULD
SHOULD
SHOULD
SHOULD
SHOULD
SHOULD

PRINT
PRINT
PRINT
PRINT
PRINT
PRINT

AT
AT
AT
AT
AT
AT

285 LPM,. XN/
204 LPM_ XN/
600 LPM.XN/
450 LPM. XN/
1220 LPMIN/
888 LPM.IN/

AND PLACE ON LINE.XN/

C2LPLDO LP2S, LP26, LPO7 TEST

PRINTING SPEED MEASUREMENT

MACRO M1113

3C-DEC-80 09:36

LLIST BEX
.EVEN

2388
2389

sgg?

64 CHARACTER BAND

2392

‘SBTTL

2393

2394 024224
2395 0264237
2396 024252
2397 024265
2398 024300
2399 024313
2600 024326
2601 026341
2602 024354
2403 024367
2404 024402

5482 024415
4

105
042
0461
076
135
051
057
130
137
120
125

061
062
105
042
054
074
070
051
123
130
062

120

104 TABAGL: .BYTE
BYTE
134
.BYTE
061
.BYTE
07%
.BYTE
105
BYTE
046
"BY'E
054
BY'E
127
BYTE
137
"BYTE
117
LBYTE
065

24607

2408
24609

2610 024432
2611 024445
24612 024460
2613 024473
2614 024506
2415 024521
2616 024534

061
075
176
077
041
050
122

055
140
134
041
053
135
067

144
174
173
074
054
051
064

2419 024575
2420 024610
Szg} 024623

121
127
m

132
115
122

120
126
110

2617 024547
2618 024562

066
046

057
124

130
046

2623

2424

2425 024640
2426 024653
2427 024666
2428 024701
24629 024714
24630 024727
2431 024742
2632 024755
24633 024770
24634 025003
2435 (25016
Sz%g 025031
2440 025046
2441 025061

2642 025074

24643 025107
2444 025122

rABA96 .BYTE
BYTE
BYTE
.BYTE
.BYTE
.BYTE
.BYTE

‘BYTE
.BYTE

BYTE
CBYTE
.BYTE

177
164

176
163

175
162

136
123

135
122

134
121

150

PATTERN 285 LPM / 6CC LPM,

105,061,104,075,064,041,103,136,102.,060,163
062,062.,134,054,124,101,133,101,133,043,135
0
0471.105,061,100,075,077,041,056,136.074,06
076.042.073.042.073,1364,055,124,064,133,057
135,054,105,072,100,050,077,052.056,051,056
051.074,046,076,071,073,045,055,053,044,137
057.070.054.132.072. 131.072.131.050.067.052
130,051,127.046,066,071,126,065,125,053,065
137.123,137.123,070,122.,132,121,131,064,067
120.130.117.124.063.066.116,126,115,126,115
125.062,065.1146,123,113,122,061,121,112,064

111.120.110.117.060, 117.060.063.107.116.106.012,015

96 CHARACTER BAND TABLE 204 LPM, / 450 LPM,
MINIMUM PRINT SPEED PATTERN 96 CHARACTER BAND

135 TR0764: .BYTE
.BYTE
122
CBYTE
107
.BYTE
074
.BYTE
061
_BYTE
046
BYTE
132
BYTE
117
_BYTE
104
BYTE
071
.BYTE
056
CBYTE
043

151

PAGE 26-10

061.055,144,047,143,043,142,041,060,052,100
075.,140,174.,176,041,056,054,056,054,136,042
176.134,173.133,175,135,055,164,047,100,043
077.041,074.,041,074,052,062,075,076,174, 073
041,053,054,071,042.057,134, 072.133 050,133
050,135,051,164,070,100, 046.124 045,123,044
122.,067.,064,137, 073.132 073.132.053.131 C71

066.057.130.072. 127.050.120.151.125.070,065
137
046.124.040.124.045.123,044.122.067.064 116

121,132,120,131,117,066,063,130,116,130,
127.115,126.114,125,113,065,062,124.,112,123
111.122.110.064.061.064.061 121,107 102,106,012,015

: 64 CHARACTER BAND PATTERN FOR LPQ7, 1220 LFM

2438

2439

"RYTE

136
123
110
075
062
047
133
120
105
072
057
044

137
124
111
076
063
050
134
121
106
073
060
045

SEQ 0078

PRINT SPEED TEST PATTERNS

NLIST BEX

110

147

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

: 96 CHARACTER BAND PATTERN FOR LPQ7

T1B(0796: .BYTE
BYTE

.BYTE

CBYTE
CBYTE

888 LPM

177,176,175,174,173,172,171,170,167,166,165
164,163,162.161,160,157,156,155,154,153,152
151.150,147,146,145,1464,163,1462,161,140,157
136,135,134,133,132,131,130,127,126.125,124
123,122.121,120,117,1%6,115,114,113,112,111

(JLPLDO LP2S, LP26, LPO7 TEST

PRINT SPEED TEST PATTERNS

2645 025135
2646 025150
2647 025163
2448 025176
2649 025211
2450 025226
2451 025237
2652

2453
2654 025254
025254
025256
2455 025256

110
075
062
047
3
160
145

104401

107
074
061
046
17¢
157
144

MACRO M1113

30-DEC-80 09:36

PAGE 26-11

110,107,70%£,105.104,

106

LBYTE

BYTE
BYTE

075,074,073,072,071,
062,061,060,057,056,

7
156
143

BYTE
BYTE
BYTE

173,172,171,170,167,
160,157,156,155,154,
165,1464,1643,142,141,

TRAP

CSETST

073
060

.EVEN
LLIST BEX
ENDTST

L10013:
ENDMOD

SEQ 0079

CILPLDO LP25, LP26, LPO7 TEST

DATA TRANSFER PATHS

MACRO M1113

2661
2662 025256
2663

BGNHOD

YHIS TEST CHE(KS THE DATA TRANSFER
SPATHS FROM THE PROCESSOR INTERFACE

2464
2465
2666
2667

;70 THE PRINTER OUTPIT. AN ALTERNATING
*PATTERN OF ONES AND ZEROES CORRESPONDING
;TO AN ALTERNATIAG STRING OF ‘‘'«"" AND
2*\'* CHAPACTERS ARE TRANSMITTED ON THE

2468
2669
2470

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

2471
2472

:SWITCHED TO AN ALTERNATING PATTERN
;OF **2'" AND '‘@'' CHARACTERS FOR ANOTHLR
116 LINES.

2673
2474

2475
2476
24677 025256
C25256
2478
2479 025256
025320
025326
025330
025330
025334
025334
025342
24L8¢ 025344
025344
025352
2483 025354
025354
2484 925362
025362
025364
2485 025364
025364
2486 025372
025372
2487 025372
025372
2488 025376
025376
025404
025406
025406
025412
025612
025420
2489 025422
025422
2490 025426
2491 025432
0254352

PAGE 30

.SBTTL DATA TRANSFER PATHS

2460

2480
2481 025320

30-DEC-80 09:36

?gNTST

JPRINT

TEST

IDENTIFICATION

OUTPUT H#DATPTH, #29.
;PRINT ALTERNATING STRINGS OF (HARACTERS
12737

000001

005237

025676

023727

025676

000002

023727
001004

025676

000001

112737

000125

025636

000402

00310?

025676

50265%:

000403
112737

INCR PATTERN FROM #1 TO #2 BY #1

:
502648

025636

003160

012737
000402

000001

005237

002304

023727
003017

002304

113724
105137

025636
025636

142737

000200

INC

PATTERN

PATTERN,#2

MovB
ELSE

#'U, (HAR

50270%

B8R

MOVB

LET (HAR :B= #'?
#°'?,CHAR

ENDIF

50270$:

012704

#1,PATTERN
50264$

50266%
8GT
If PATTERN EQ #1 THEN
PATTERN,#1
CMP
50267%
BNE
LET (HAR :B- #'U

50267%:
000077

MOV
BR

LET R4

MOV

:
502728

502718$:

MOV

#1,CCNT

INC

CCNT

CCNT #66.

50271%

BGT

MovB

025636

,R4
#OUTBUF

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

002304

000102

:= #OUTBUF

BI(RB

LET

5027%$

(R4)+ :B= (HAR
(HAR, (RG) +

(OMB (HAR

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

SEQ 0080

r1.PLDO LP2S, LP26, LPO7 TEST

DATA TRANSFER PATHS

2492 025640
025440
2693 025444
2694 025450
025450
2695 025456
025456
025460
2496 025460
025460
2497 025464
025464
2498 025470
025470

025476
025500
025500
025504
025504
025512
0255164
025556
025556
025560
025560
025560
025562
025562

113724
105137
142737

200200

BI(B

025636

000753

000012

012737
000402

000001

005237

002276

023727
003022

002276

002276
50275%:

000663

104432
000044

02£536
925640

000000
104

000000

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

INC

L INCNT

(mMP

L INCNT #16.

LET (R&) :B= 412
#12,(RG)
MOVB
INCR LINCNT FROM #1 TO #16. BY ¥
#1,LINCNT
MOV
50274%
B8R

50274%:

BGT

50276%:
ENDINC

50276%
OUTPUT #QUTBUF, #1364,

B8R

50275%

50265%

502¢€6%:

000014

003160

LET OUTBUF :B- #14
214 ,0UTBUF
MOVR
F, #1
#QUTRU
OQUTPUT
Ex]T

TST

TRAP

.WORD

NLIST BEX

101

124

(HAR:

025702

104401

CSEX]IT

L10014-,

.WORD 0

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

PATTERN:

.WORD 0O

.EVEN
LLIST BEX

025700
025700
025700

50272%

MOVR

END INC

000750

112737

LET (HAR :B= (HAR (LR.RY #200
#200, CHAR

000020

(R4)+ :B= (MAR
(HAR, (R&) +
(OMB (HAR

LET

END INC

50273%:

112714

025562
025570
025632
025632
025634

025676

025636
025636

000015

MACRO M1113 30-DEC~80 09:36 PAGE 30-1
:

MOv8

112724

ENDTST
L1004
ENDMOD

TRAP

.EVEN

($ETST

SEQ 3081

CoLPLDO LP2S, LP26, LPO7 TEST
INTABLE

(HARACTERS

MA(RO M1113

30-DEC-80 09:36

SEQ 0087

PAGE 31

.SBTTL PRINTABLE (HARA(TERS

BGNMOD

025702

R
X 4

THIS TEST WILL PRINT A FULL LINE OF EACH PRINTABLE (HARA(TER.
BAND TYPE IS CHECKED ON A UNIT BY UNIT BASIS.
UNITS WITH 96 (HAR BAND WlLL BE SENT THE (HARA(TER (ODES :
140(8)

BGNTST

025702
025702
02570«

025744

000040

005237

003154

023727
003045

003154

026020
2537 926024
026024
026026

026102
2550 026106

026106
026114

; PRINT TEST ID

i PRINT ALL UPPER CASE CHARACTERS ON ALL UNITS

012737
000402

2538 026026
026026
2539 026032
2540 026074
2541 026100
0</100
026102
2542
2543
2544
2545
2546
2547
2548
2549 026102

68;;UT #PRT(CHR, #30.

025744
025752
$25754
025754
025760
025760
025766
2534 025770
025770
2535 025774
025774
026002
026004
026004
026010
026010
026016
2536 026020

THRU 17¢(8).

003154

;

:
503008

000137

50277%:

INCR WORK FROM #40 TO #137 BY #1

MOV
BR

#40, WORK
50277%

INC

WORK

(MP
BGT

#4137
WO,RK
50307%

003160

MOV

012737
000402

000001

MOV

005237

002302

023727
003003

002302

113724

003154

012704

002302
50303%:
000204

50302%:

LET R4

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

50302%

INC

COUNT

(MP

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

BGT

MOvVB

000767

50304%:

:= #CUTBUF

R4
#OUTBUF

WORK, (R&4) +

END INC

50303%

LET (R4)+

:B= #LF

MLF ,(RG)+

112724

000012

MOVR

004737

005544

JSR PC,QUIET
ENDINC

000725

50301%:

OUTPUT #OUTBUF ,#133.

50300%

: FIRST DETERMINE IF ANY UNITS HAVE 96 (HAR BANDS

095037

013737
005337

{ET WORK := #0

00315«

002012
003156

003156

: COUNTER FOR 96 C(HAR UNITS

CLR

WORK

MoV
DEC

LSUNIT,WORK1
WORK*

LET WORKT := LSUN]T - #1

; GET UNIT COUNT

C2LPLDC (P25, LP26, LPO7 TEST
PRINTABLE (HARACTERS
2551 026120

026120
026124
026126
026126
026132
026132
026140
2552 026142
026142
026146

2553 026150
026150
026756
2554 026160
026160
2555 026164
026164
2556 26164

026164
026166
2557 026166
026166

026172
2558 026174
026174
2559 026202
2560 026244
026244

026246

2561 026250
026250
2562
2563

2564 026250
926250
026256
026260
026260
026264
026264
026272
2565 026274
026274
2566 026300

026300
026306
026310
026310
026314
026314
026322
2567 026324
026324
2568 026330
026330
026332

005037
000402

002314

005237

002314

023737
003012

002314

C13702
006302

002314

032762
001402

010000

005¢37

003154

MACRO M1113

30-DEC-80 09:36

503068%:

003156

50305%:

000014

LUNIT

INC

LUNIT

LUNIT ,WORK1

ASL

BIT

JFLAG96,STATUS(R2)

50305%

BEQ

50307%:

112737

(IR
BR

IF #FLAG96 SETIN STATUS(R?) THEN

002512

000760

003154

PAGE 31-1

50307$
BGT
LET R2 := _UNIT SHIFT 1
MOV
LUNIT,R2

50310%:

001026

SEQ 0083

INCR LUNIT FROM #0 TO WORK! BY #1

£ND INC

005737

50310%
LET WORK := WORK + #1

INC
ENDIF

WORK

B8R

50306%

[F WORK EQ #0 THEN

WORK

TST

#14,0UTBUF
MOVB
,#1
BUF
#QUT
OUTPUT
: ALL UNITS 64 CHAR...EXIT
TST
EXIT
TRAP

ENDIF

.WORD

CSEXIT

L10015-.

50311¢%:

: SETUP FOR LOWER CASE CHARACTERS DISPLAY

01273%7
000402

000140

005237

003154

023727
003073

003154

012704

003160

012737
000402

200001

005237

002302

023727
003003

002302

113724

000767

003154
50313%:

000176

50312%:

INCR WORK FROM #140 TO #176 BY #1
#140,WORK
MOV
50312%
BR
INC

WORK

(MP

WORK ,#176
50314%

86T

MOV

002302
50316%:

000204

: YES ADD 1

: ANY 96 (HAR UNIT'S ?

50311%
BNE
LET OUTRUF :B= #14

003160

1044 3¢
000330

: 1S THIS UNIT 96 (HAR ?

50315%:

LET R4

:= #OUTBUF

R4
#OUTBUF

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

50315$

INC

COUNT

CMP

COUNT #4132,

BGT

50317%
LET (R4)+

, (R&) +
WORK
MOVR
END INC

003154
50317%:

B8R

50316%

:B- WORK

TO COUNT

C2LPLDO LP2S, LP26, LPO7 TEST

PRINTABLE

(MARACTERS

2569 026332

026336
026344

013737
005337

002012
023156

026350
026354

005037
000402

002314

005237

002314

026362
026370

023737
003031

002314

026372
026376

0137202
006302

002314

MOV
ASL

070000

BIT
BEQ

2571 026350

026356
026356
026362

2572 026372

2573 026400

026400
26406

2574 026410

2575 (026452
026452
2576 026452
026452
026454

032762
007621

026460
026462
2579 026462
026462
2580 026470

000677

026532
026534

1064432
000042

gggz 026536

120

2581 026532

112737

2585

2587
2588 026600

003156

0000%«

LSUNIT,WORK]
WORK1

INCR LUNJT FROM #0 TO WORK1 By #1
LUNIT
50320$%
LUNIT

LUNIT ,wORK1
50322$%

(MP
BGT

50322$:

LET R2 := LUNIT SHIFT 1
LUNIT ,RZ
R2

IF WMFLAG96 SETIN STATUS(R2) THEN

(R2)
#FLAG96,STATUS
50323%

. LUNIT
BUF
. #133.,
OUTPU! #OUT

ENDIF

ENDINC
50321%

003160

111

104401

: WAIT FOR ALL DONE

JSR PC,QUIET

ENDINC

50313%
BR
50314%:
LET OQUTBUF :B= #14
#14 ,0UTBUF
MOVB

A1
OUTPUT #OUTBUF

EXIT TST

122

NLF,(R&G)
LET WORK1 :- LSUNIT - m

50321%:
INC
.
503c0%:

002512

005544

LET (R&)+ :B= #LF

TRAP
.WORD

NLIST BEX

: EXECUTE TOF

CSEX]T
L10015~-.

PRT(CHR: .ASEIZ /PRINTABLE CHARACTERS TEST 6/ <12><12><12>
.EVEN

ENDTST

2586 06576

026576
026576

(LR
BR

(C00741

004737

2578 026460

MOV
DEC

003156

50323%:

2577 026454

2589

MOvVB

000012

SEQ 2084

PAGE 31-2

30-DEC-B0 09:36

112724

026332
2570 026336

2582

MACRO M1113

L1001S:

TRAP

LA IST BEX
ENDMOD

(S$ETST

CZLPLDO LP2S, LP26, LPO7 TEST

NON~PRINTABLE C(HARACTERS

MACRO M1°13

.SBTTL

25N
2592
2593 026600
" 2594
2595
2596
2597
2598
2599
2600
2601
2602
2603 026600

026600
2604
2605
2606 026600
2607 026642
$2664°2
2608 026646
026646
2609
2610
2611
2612 026654
026654
026660
026662

026662

026666
026666
026674
2613 026676
026676
2614
2615
2616
2617 026702
026702
026710
026712

026772
026716
026716
026724
2618 026726
026726
2619 026730
026730
026732
2620
2621
2622
2623
2624 026732
026732
026740

30-DEC-80 09:36

PAGE 32

NON-PRINTABLE C(HARA(CTERS

BGNMOD
bR
2 J

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

SEACH (HARACTER WILL APPEAR ON THE PRINTER OUTPUT [N THE FORM OF TS OCTAL
:CODE ACCOMPANIED WITH ITS MNEMONIC.

;123 OF THE TESTED CODE ARE THEN SENT.
sALSO,ON PRINTERS WITH 64 CHARACTER BANDS,IT (HECKS TO

"MAKE SURE THAT CODES 140 THRU 177 ARE CONVERTED TG (ODES 100 THRU 137.

ggnrsr

SINDICATE TEST CURRENTLY BEING DONE
OUTPUT ANONCHR,#71.
012704

07721

012737

000033

005037
000402

00276

005237

002276

023737
003061

002276

012703

003160

012737
000402

000001

005237

003154

023727
003002

003154

003156

LET R4 := ANONBUF
R4
MNONBUF
MOV
LET WORK1 := #27.
MOV

> DO ONE LINE FOR EACH TABLE ENTRY

INCR LINCNT FROM #0 TO WORK1 BY #1

’
50325%:
003156

003154

503248%:

CLR
BR

L INCNT
503249

INC

L INCNT

L INCNT ,WORK1
5032¢%
LET R3 := #OUTBUF
MOV
#OUTBUF ,R3

CMP
86T

* MOVE CODE AND MNEMONIC TO PRINT BUFFER
INCR WORK FROM #1 TO #8. BY #1
’
50330%:

000010

50327%:

MOV

#1,WORK

INC

WORK

(MP

WORK ,#8.

B8R

BGT

MOVB

112423

000770

#27. ,WORK1

503318

50327%

50331
LET (R3)+ :B
(R4)+,(R3}»

(R&)+

END INC

503308

PUT 120 BYTES OF CODE INTO PRINT BUFFER
012737

000402

000001

003154

MOV

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

50%32%

SEQ 0085

CILPLDO LP2S, LP26, LPO7 TEST

NON-PRINTABLE C(HARACTERS
026742
026742
026746
026746
026754
2625 026756
026756
2626 026760
026760
026762
2627

005237

003154

023727
003002

003154

MACRO M1113

000173

:
503328

INC

WORK

(MP
BGT

WORK
, #1273,

111423

MOVB

000770

50334$:

SEQ 0086

PAGE 32-1

30-DEC-80 09:36

50333%$:

503348
LET (R3)+ :B- (R&)
(RG) ,(R3)+

ENDINC

50533%

FOLLOWED BY C(RLF

2631 026762
026762
2632 026766
026766
2633
2634
2635

112723

000015

MOVR

112723

000012

MOVB

#12,(R3)+

OUTPUT #OUTBUF ,#133.
LET R4 := R4 + #1
R4
INC

005204

END INC

000711

50326%:

B8R

50325%

; UNITS WITH 64 (HAR BAND SHOULD STRIP BIT 6 _OF DATA
: AND PRINT THE DATA FOR CODES 140(8) THRU 177(8)
: AS IF CODES 100(8)

264¢2

2643
2644
2645 027040
027040
2646 027044
027044
027050
027052
027052
027054
027054
027060
2647 027062
027062
2648 027064
027064
027066
2649 027066
027066
2650 027072
027072
027100
2651 027104
027104
027110
027112

#15,(R3)+

LET (R3)+ :B- #1?

: PRINT LINE OF GCTAL CODE, MNEMONIC, AND 120 BYTES(NONFRINTABLE CODE.

026772

2637 027034
027034
2638 027036
027036
027040
2639
2640
2641

LET (R3)+ :B= #15

THRU 137(8) WERE RECIEVED.

DELETE IS PRINTED AS UNDERSCORE '_°

; w*NOTE*~»
012703

003160

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

012704
000401

000140

MOV

#140,R4

INC

MpP
BGT

R4 X177
50337%

INCR R4 FROM #140 TO #177 BY #1

50336%:

005204

020427
003002

50335%:

000177

110423

MOvVB

000772

B8R

112723

50335%

LET (R3)+ :B= R4

ENDINCR

50337%:
000012

013737
005337

002012
003154

005037
000402

002314

R4, (R3)+

; FILL BUFFER WITH CODES & LF

50336%

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

LET WORK := LSUNIT - #1

003154

MOV
DE(

LSUNIT,WORK
WORK

(LR

LUNIT

INCR LUNIT FROM #0 TO WORK BY #?

£03418%:

B8R

50340%

; SEND MSG AND BUFFER TO ALL

; UNITS WwiTH 64 CHAR BAND

26, LPO7 TEST

NON-PRINTABLE CHARACTERS

023737

002314

013702
006302

00231¢

2653 027134
027134 032762 010000
027142

2654 027144
2655 027206
2656 027250

2657 027312
027312
2658 027312
027312
027314
2659 527314
027314
2660 027322

2661 027364

027364

2662 027366

001063

112737

LUNIT ,WORK

ASL

IF #FLAG96 NOTSETIN STATUS(RZ2) THEN
US
#F _AG96,STAT(R2)
BIT
50343$

BNE

503428:

003160

QUTPUI #AUTSEC ,#77.,,LUNIT
OUTPUI #AUTCON, #61.,,LUNIT
OQUTPUI #OUTBUF ,#33.,,LUNIT

ENDIF
ENDINCR

LET OUTBUF :B= #14

Movs

#14 ,0UTBUF

EXIT

TST

.NLIST BEX

2666 027370
2667 027431

116 NONCHR: .ASCII
LASCIZ
106

Sg;? 027714

015

012

SKIP3:

2672 027721

040

060

NONBUF:

eyLl
e )
[

IO
O OIOIOIDIO O C,
OO0

.
.
L]
[]
.
L]
.
.
.
.
L]
.
.
[]
L]
L]
.
.
L]
L]

062
062
062
062
062
062
062
062
063
063
063

060
060
060
060
060
060
060
060
060
060
060

061
061
061

040
040
040
040
040
040
040
040
040
040
040

060
060
060

060
060
060
060
060
060
060
061

.ASCIZ
PO
D

2684 030075
2685 030106
2686 030117
2687 030120
2688 030141
2689 030152
2690 030163
2691 030174
2692 030205
2693 030216
2694 030227

040
040
040

060
060
060
060
060
060
060
060

111 AUTSEC: .ASCIZ
104 AUTCON: .ASCIZ
NOLLOLLLLLLLLLOLLOLOOLOUVLLLOO

2681 030042
2682 030053
2683 030064

040
040
040
040
040
040
040
040

110
117

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

JAND EXIT TEST

:CHARACTER BUFFER AND TEST HEADER MESSAGE

117
040

124
103

L10016-.

.WORD

116
101

2668 027500
2669 027616

CSEXIT

TRAP

000730

503418

OUTPUT #OUTBUF ,#1

104432

Sggz
2665

CMP

50342%
LET R2 := LUNIT SHIFT 1
LUNIT R2
MOV

50343%:

000014

LUNIT

BGT

002512

000677

SEQ 0087

PAGE 32-7

INC

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

WITH 64 CHARACTER BAND
/THIS SECTION CHECKS AUTOMATIC CONVERSION ONTO PRINTERS
/<12><12>
.137(8)
100(8).
D
CONVERTE
BE
SHOULD
..177(8)
/CODES 140(8)
<15><12><12><12>
N N NN NN N NNNRNNNNOONNNNNNNN

003073

003154

50340%:

NN
N N —

0271264
2652 027126
027126
027132

(02314

il el enian)

027116
027116

005237

30-DEC-8C 09:36

027112

MACRO M1113

i Ay Wy Sy Wy Sy iy Sy Sy e

CZLPLDO P25,

000 NUL/<0>
001

SOH/<1>

002 STXx/<2>
003 ETX/<3>
004 EOT/<&>

00S ENQ/<5>
006 ACK/<6>
007 BEL/<7>
010 BS 7<10>

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

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

FZLPLDO LP25, LP26, LPO? TEST

NON-PRINTABLE (HARACTERS

<695 030240
2696 030251
2697 030262
2698 030273
2699 030304
2700

040
040
040
040
040

2701

2702
2703 030316
030316
030316
2704

2705 030320
2706

104401

060
060
060
060
060

MACRO M1113

30-DEC-80 09:36 PAGE 32-3
LASCII
LASCIT
LASCII
LASCIT
LASCIT

063
063
063
063
063

.EVEN

LLIST BEX
ENDTST
L10016:

TRAP

ENDMOD

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

CSETST

SEQ 0088

CZLPLDO LP2S, LP26, LPO7 TEST

BAND PATTERN

MACRO M1113

BGNMOD

2709 030320
2710
271
272
2713

BAND PATTERN

o te

;BAND PATTERN TEST

‘THIS [EST ONLY EXECUTES ON LP2S OR LF26. IT DOES NOTHING ON LPO7.
“THIS TEST PRODUCES AN IMAGE OF THE ENTIRE BAND PATTERN,

2714
2715
2716

27¢0
2721

N—

:FORMAT:

QUADRANT NO.
QUADRANT NO.

QUADRANT NO.1

2722

THE PRINT-0OUT

QUADRANTS OF THE BAND IN THE FOLLOWING

2717
<718
2719

QUADRANT NO. 2
QUADRANT NO.4
ETC.

*THE REASON FOR THIS ARRANGEMENT 5 TO FACILITATE VISUAL INSPECTION

2723
2724

“OF THE PRINTOUT AS WELL AS TO ACCOMODATE THE 208 CHARACTERS OF THE BAND
JIN 132 COLUMNS.

2733 030320
030320
2734\

2735

STATUS (R2) FLAG96

SOF TWARE SWITCH USA

BGNTST

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

=0 FCR BRITISH

000014

. PRINT TEST IDENTIFICATION ON ALL

2738 030320

030320
030324
030330
030332
030334

012746
012746
010600

031652
000001

062706

000004

104417

FOR 96 CHAR BAND

PRINT SET

18::
TOF = 014

2736
2737

2739
2740
2741

SEQ 0089

PAGE 33

30-DEC-80 09:36

.SBTTL

2708

’

UNITS

PRINTF #N0O07

MOV
MOV
MOV

TRAP
ADD

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

* SETUP PATTERNS FOR EUROPEAN OR AMERICAN PRINTERS

2742 030340

030340
030344

005737
001432

002270

030346

105037

032166

112737

000043

105037

032304

113737

000043

105037

032422

112737

000043

105037

032544

2743 030346

2744 030352
030352
2745 030360
030360
2746 030364
030364
2747 030372
030372
2748 030376
030376
2749 030404
030404

: AMERICAN, PRINT SHARP SIGN '#°

IF USA NE #0 THEN

TST

USA

MOVB

#63 ,BP640QZ+22.

MOvVB

#43 ,BP64Q4+57,

50344%
LET BP64Q2+18. :B- #0
BP64Q2+18.
CLRB
22. :B- #43
BP64Q2+
LET

BEQ

032172

0323M

032426

LET BP64Q3+35, :B= #0
BP64Q3+35.
CLRB
40. :B= 43
BP64Q3+
LET
43 ,BP64Q3+40.
MOVB
LET BP64Q4+53. :B- #0
BP64Q4+53,
CLRB
LET BP64Q +57. :B #G63

LET BP9602+13, :B=
BP96Q2+13.
CLRB

N
.

CZLPLDO LP2S, LF26, LPO7 TEST

BAND PATTERN

750 030410

~30410

2751 030416
030416
2752 030422
030422
2753 030430
030430
030432
2754 030432
030432
2755 030440

030440
2756 030444
030444
2757 030452
030452
2758 030456
G30456
2759 030464
030464
2760 030470
030470
2761 030476
030476
2762 030502

030502
2763 0305 0

030510
2764 030514
030514
2767
2768 030514
030514
030520
2769 030522

030522
030526

030530
030530
030534
030534
030540
2770 030542
030542
030546
2771 030550
030550
030556
2772 030560
2773 030622
030622
030630
030632
030640

112737

000043

105037

032735

112737

000043

MACRO M1113

032742

000431

50344%:

LET BP96Q2+18.

:B= #43

LET BP64Q2+18.

:B= #43

LET BP64Q3+35,

:B= #43

LET BP64Q4+53.

:B= #43

MovB
#43_BP96Q2+18,
LET BP96Q4+13. :B= #0
CLRB
BP96Q4+13.
LET BP96Q4+18. :B= #43
Movs
#43,BP96Q4+18,
ELSE
; EUROPEAN, PRINT POUND STERLING SIGN
50345%
BR

032166

MovB
#43 BP64LQ2+18,
LET BP64Q2+22. :B= #0
CLRB
BP64Q2+22.

032304

03231

MOvB
#43,BP64Q3+35,
LET BP64Q3+40, :B- #0
CLRB
BP64Q3+40.

112737

0C0043

032422

MovR

105037

032426

112737

000043

105037

032551

112737

000043

105037

032742

112737

000043

105037

032172

112737

000043

105037

LET
CLRB
LET
mMovs
LET
CLRB
LET

032544

032735

SEQ 0090

PAGE 33-1

30-DEC-80 09:36

032551

MOVB

#43,BP64Q4+53,

BP64Q4+57. :B= #0
BP64Q4L+57.
BP96Q2+13. :B- #43
#43,8BP96Q2+13.
BP96Q2+18. :B= #0
BP96Q2+18.

BP96Q4+13,

:B= #43

#43 ,BP96Q4+13,

LET BP96Q4+18. :B= #0
(LRB
BP96Q4+18.

50345%:

ENDIF

* PRINT PROPER BAND
LET R1

IDENTIFICATION MSG.

ON EACH PRINTER

:= LSUNIT - M
R
LSUNIT
R1

013707
005301

002012

MoV
DEC

005037
000402

002314

CLR

LUNIT

005237

002314

INC

LUNIT

023701
003162

002314

(MP

LUNIT,R1

013702
006302

002314

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

032742
001152

002000

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

032762
001025
032762
001027

001000

002512

002000

002512

INCR LUNIT FROM #0 TO R1 BY M

50347%:
50346%:

BGT

002512

BNE

BIT
BNE
BIT
BNE

50346%

50351%

OUTPUI #BNDTST,#23., LUNIT
IF #FLAG26 NOTSETIN STATUS(RZ2) AND #FLAGO7 NOTSETIN STATUS(RZ) THEN
(R2)
#FLAG26,STATUS
50352%
#FLAGO7,STATUS(R2)
5035¢2%

C2LPLDO LP2S, LP26, LPQ7 TEST

BAND PATTERN

MACRO M1113

OUTPUl #8PIDZ2S5,#6,,L.NIT

2775 030704

2777 030724

032762
001425
032762
001021

001000

002512

002000

002512

2778 030766

030766

032762

030774

001422

2781 031040
031040

000421

2780 030776

031042

010000

2783 031104
031104
2784 031104

051104

2786 031106

031106

2790 031114

2791 031114

000611

50350%:

012737

000016

005237

002314

031126
031132

023701
003105

002314

031134

013702

002314

2792 031134

031140

2793 031142

000402

006302

002276

031152
031160

032762
001022

010000

002512

2797 031226

031226

031234

2798 031236

ELSE
50355%

OUTPUI

D
. LUNIT
I6I
#BP., #22.,

; 96 (HAR BAND

OUTPU]

LUNIT
., #22., . ID
#BP64L

: 64 (HAR BAND

ENDIF

ENDIF
END INC

B8R

000447

032762
001022

503628:

003000

MOV

50347%

002512

.
L INCNT
#14

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

(MpP
BGT

LUNIT ,R1
50360%

MOV

LUNIT,RZ

: INDEX INTO STATUS TABLES

LET R2 := LUNIT SHIFT 1
R2

IF #FLAGO7 NOTSETIN STATUS(RZ2) THEN

BIT
BNE

#FLAGO7 ,STATUS(RZ2)
50361%

BIT
BNE

#FLAG9D6,STATUS(R2)
50362%

50363%

BIT

NFLAG26'FLAGO7,STATUS(R?Z)

BNE

: PRINT QUADRANTS 1 & 2

50350%

INC

ASL

002000

031226

2%:

50356%:

032762
001075

2796 031224
031224

50354%

LET LINCNT := #14,

50357%:

031142
031150

2795 031162

#FLAG96,STATUS(R2)

CLR

002512

2794 031152

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

002314

031122
031122
031126

: PRINTER [S LP26

IF #FLAGOS SETIN STATUS(RZ) THEN

BIT

503518:

005037

031114

031120

ENDIF

50355%:

%;gg
2789 031106

OUTPU] W#BPID26.46, ,LUNIT

BEQ
503548%:

2782 C3104¢

031104
2785 031104

#FLAGSE,STATUS(RS)
50353%
(R2)
#FLAGO7,STATUS
50353%

BIT
BEQ
BIT
BNE

002512

; PRINTER IS LP2S

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

50353%:

030766

2779 030766

ENDIF

50342%:

030704

030704
030712
030714
030722

PAGE 33-2

30-DEr-80 09:36

2774 030642

2776 030704

SEQ 0091

IF #FLAG96 NOTSETIN STATUS(RZ2) THEN

503648

ELSE

QUTPU]

#RP640T,#121,, ,LUNIT

: 64 (HAR PATTERN

IF #FLAG26'FLAGO7 NOTSETIN STATUS(RZ) THEN

OUTPU]

#BRPS6Q3, #4127, LUNIT

: LP2S 96 (HAR PATTERN

CZLPLDO LP2S, LP26, LPO7 TEST

BAND PATTERN

2799 031300

031300
031302
2800 031302
2801 031344
031344
2802 0313446
031344
2803 031344

031344
2804 031344
031344
031346
2805
2806 031346
031346
031352
031354
C31354
031360
031360
031364
2807 031366
031366
031372
2808 031374
031374
031402
2809 031404
031404
031412
2810 031414
2811 031456
031456
031460
2812 031400
2813 031522
031522
2814 031522
031522
2815 031522
031522
031524
2816 031524
031524
30
17
0315
28
2818
2819
2820
2821
2822

2823

MACRO M1113

000421

PAGE 33-3

30-DE(-80 09:36

503648

QUTPUI

ENDIF

50365%:

005037

002314

005237

GC2314

023701
003057

002314

C13702
006302

000402

032762
001047
032762
001022

50367$:

END INC

50357%

; NOW DO QUADRANTS 3 € &
(LR
BR

INCR LUNIT FROM #0 TO R1 By #1

cMP
BGT

LUNIT,R1
50370%

002314

mov

LUNIT,R2

002000

002512

BIT

IF #FLAGO? NOTSETIN STATUS(RZ) THEN
#FLAGO7,STATUS(RZ)

002512

BIT

IF #FLAG96 NOTSETIN STATUS(RZ) THEN
US
#FLAG96,STAT(R2)

010000

LET R2 := LUNIT SHIFT 1

ASL

50371%

BNE

50372%

BNE

50372%:

50373$

000714

50370%:

002276
031114

3¢:

ELSE

OUTPU]

A#BP64C3,#122., LUNIT

; 64 (HAR PATTERN

OUTPUI

#RP96Q3, #122., ,LUNIT

;

ENDIF

50371$:

END INC

50367%

LET LINCNT := LINCNT - #1

DEC
BEQ
JMP

L INCNT
33
2%

* DO TOF THEN EXIT ON ALL UNIiT3 EXCEPT LPO7'S
112727

000014

005037
000402

002314

005237

002314

LET #OUTBUF

003160

:B= #14

MovB

#14 ,#0UTBUF

CLR
BR

LUNIT
50374%

INC

LUNIT

INCR LUNIT FROM #0 TO R1 BY #i

50375$:

; INDEX INTO STATUS TABLES

50373%:

005337

REPEAT FOR ALL UNITS

LUNIT

000421

001402
000137

;

LUNIT
50366%

INC

50366%:

; LP26 96 (HAR PATTERN

ENDIF

50361%:
:
503608

#8BP96QT, A4121., ,LUNIT

ENDIF

50363%:

000666

ELSE

50365%

SEQ@ 009/

96 (HAR PATTERN

CZLPLDO LP2S, LP26, LPO7 TEST

BAND PATTERN

031556
031556
0315€2
031564
031564
031570
031572
031572
031600
031602
031644
031644
031644
031644
031646

031646
031646
C31650
031652
031731
031760
031766
031774
032022

:
503748

R
LUNIT,
50376%

002314

MOV
ASL

thIT,RZ

002000

BIT

002314

0137C2
006302

002512

000742

50376$:
EXIT TST

104432

0037146

045

102
114
114

066
071

116
101

120

120
064
066

045
176

062

062
040
040

LET R2 := LUNIT SHIFT 1

1¥ #FLAGO? NOTSETIN STATUS(R2) THEN

#FLAGO7,STATUS(R2)

50577%

BNE

50377%:

END INC
BR

"RAP

50375%

CSEXIT

.WORD
.NLIST BEX
NOO7:
LASCIZ
BNDTST: ASCII

L10017-.

BP64ID:
BP96ID:

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

BPID2S:
BPID26:

.ASCI!
.
.
.

040

126

066

032144
032154
032206

040

110

100
m

032241
032251
032303

040
137
136

040
053
043

040
105
066

BP640Q3:

032335
032345
032377

040

040
117
957

040
105
066

BP64Q4:

077

116

072

105
066

LAS(
“ASC

BP6402:

.ASC

JAS(
ASC

Sy
by Doy

040
1017
125

g Pup By

BP640T: .ASC

032050
032060
032112

105

/INYABAND PATTERN TEST DOES NOTHING ON LPO7°'SIN/
/BAND PATTERN TEST 08
/
/LP2S
/LP26

.ASC

040
101
125

040
102

040
03

074

077

100

032527
032537
032545

040
135

040

164

174

126

133

134

LP25 & LP26

/ABECDTFGOHIJ1KL 2MN30P4QRSS/

)
;><./
_+X9R
% (:,/<57>/8=
/UVGWX7YZB
/

/23EI0T\ O~#=1"'#2*“AZBC4LDFGS/

/H]16JK7LMSNOPOQRSU, VW=XYZ./<12>
/

/ +EXRTY(0:/<57>/%1:>2<?3aJ4[\"''S/

*GH, | J=KLM./
/Xn6="'74'8ABCODF
ASCII
LASCII
LASCI1

BP96Q1:

.ASCII
LASCII

LASCII
.BYTE
LASCII

.BYTE
BP96Q2:

.ASCII
LASCII
.BYTE

/NOEPQTRSOUVWIXY2Z T+%48) (5/

_:/6%;7><87319[\«'®
#==14", _<12><12>

1 96 CHAR BAND
032433
032443
032475
032522
032523
032526

,LUNsT
BUF
A1,
OUTPUI #QU!

ENDIF

: 64 CHAR BAND PATTERN
102

SEQ 0093

PAGE 33-4

(MP
BGT

023701
003031

032762
001C21

MACRO M1113

30-DEC-80 09:36

LP25 = Q3..Q¢
/

LP26 = Q1..0Q4

/ABCDOEFGIH] J2KLMN30PQ4LRSTS/
;2¥UX6Y2_7SZt8)(:/<S7>/94;>/
/<?a/

164

&/
/JON,
174

C2LP.DO LP2S, LP26, LPO7 TEST

BAND PATTERN

075
175

052

173
147
064

BYTE

171

BP96Q3:

,162,1463,144,61

.BYTE

1 57°64,160.161

167,66

.AS(II

.BYTE
LASC1I
LASCII

/OPQ,RSTe/

]175.173.,176,13
146,147, 50.151.62,152

LASCII
.BYTE

040
133

8P9604:

065

LASCI]
.BYTE
.BYTE
.BYTE
.BYTE
LLIST BEX
.EVEN
ENDTST

173
147
160

032745
032762
032776
033011

172

104401

L10017:
ENDMOD

PAGE 33-5

[=n'Q=/

114

120
126

SEQ 00%¢

LASCII

——h —d —a
nN—=ON—
VNN

040
'02

032737

033016
033016
033016
033020

30-DE(-80 09:36

_.._a?
~NGd
H O

2869 032546
2870 037554
2871 032571
2872 032604
2873 032617
2874
2875 032624
2876 032634
2877 032650
2878 03¢651
2879 032655
2880 032656
2881 032666
2882
03¢720
032730
032736

MACRO M1113

1 70.171,172.67

/ABCDBEFGIHI
I/

/UVWX=YZ _.$%80) (:/<57>/1+;>2<?33/

.ASCII
JASCII

TRAP

($ETST

CLPLDO LP2S, LP26, LPO7 TEST

SPURIOUS HAMMER f RING

MA(RQO M1113

30-DEC~B0 09:36

SEQ 0095

PAGE 34

gggg

.SBTTL SPURIOUS HAMMER fIRING

2898 033020

BGNMOD

2900

2899

STHE PURPOSE OF THIS TEST IS TO DETECT SPURIOUS HAMMER FIRINGS AND DEFECTIVE
“HAMMER DRIVERS DURING THE OPERATION OF THE LINE PRINTER. THE PROGRAM
“PRODUCES A LEFT WEDGE PATTERN CONSISTING OF 132 LINES OF PRINT WITH EACH
SLINE BEGINNING WITMH A '*2'" (HARACTER. ANY POINT OQUTSIDE THE WEDGE
BOUNDARIES 1S CAUSED BY HAMMEK M]SFIRES OR BY HAMMER BOUNCE.

2901
2902
2903
2904

5382

2907

2908 033020
033020

BGNTST
19::

1?
53
531% 033020

IR, #33,
OQUTPUT #HAMF

%g}g

;OUTPUT THE ACTUAL WEDGE AT THIS POINT

2916 033062

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

:PRINT THE TEST HEADER

2909

033062
033070
033072
033072
023076

Sg}g

033076
033104

2919 033106

033106

2920 033112

033112
2921 033120

012737
C00402

000001

005237

003154

023727
003123

003154

012704

003160

012737
163737

000204
003154

003154

50401%:

000204

504008:

MOV
RR

#1,WORK
50400%

INC

WORK

(MP
8GT

WORK ,#132,
50402%

;NUMRER OF LINES TO OUTPUT

;ALSO NUMBER OF PRINTING CHARA(CTERS
:OUTPUT BUFFER POINTER

LET R4 :- HOUTRUF
033430
033430

MOV

#OUTRUF ,R4

MOV
SuB

#132.,SPCONT
WORK , SPCCNT

LET SPCCNT :

:NUMBER OF SPACES TO FILL IN

#132. - WORK

;FILL THE OUTPUT BUFFER WITH THE REQUIRED NUMBER OF SPACES

335%

WHILE SPCCNT NE #0 DO

2924 033126

£33126
033126
033132

005737
001405

023430

033134

112724

000040

033140
2927 033144

005337

033430

2925 033134

2926 033140
033144

033146

2928 033146

50403%

#4460, (RG)+

DEC
ENDDO

000770

:
504049

:SPACE FILL

#40

SPCCNT

;UPDATE FILLER TOUNTER

50403%

LET CCNT :- #0

002304

033152

012737

000077

002310

033160

012737

000041

002306

2931 033166

MOVR

LET SPCCNT :- SPCCNT - #1

005037

2930 033160

SPCCNT
504048

LET (R4)+ :B

033146

2929 033152

1ST
BEQ

(LR

CCNT

MOV

#77 ,CHRGEN

MOV

#33,, >IR(NY

LET CHRGEN := #77

;FIRST CHARACTER A '

LET STRCNT := #33.

;4 OF CHARACTERS IN GROUP

wHILE CCNT LT WORK DO

:NOW FILL IN REST OF BUFFER

G
P26, LPO7 TEST

C LPLDO
SPUR [0S

2932

2933
2934
2935
2936

29%7

FIRING

023737
002022

002304

005737
001006

002306

00315¢

50405%:

2939
2940 033224
(33224
2941 033230
033230
2942 033234
033234
2943 033240
033240
033242
2944
2945
2946
2947 033242
033242

000041

002306

012737

000077

0€2310

002310

005237

0C2310

005237

002304

005337

002306

2962
2963

2965 033432
2966
2967
2968

LET STRCNT :- #33,
#33, ,STRCNT
LET CHRGEN :- #77
#77 ,CHRGEN
MOV

MOV

ENDIF

LET (R&)+ :B- (HRGEN
CHRGEN, (R&) +
MOVB

LET CHRGEN := (HRGEN ¢ #1
INC

CHRGEN

DEC

STRONT

50405%

LET CCNT := CCNT + #1
CCNT
INC
LET STRCNT :- STR(NT - #1
ENDDO

000752

50406%:

JUPDATE POINTERS AND COUNTERS

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

2948

2949
2950 033246
2951 033310
2952
2953
2954 033352
033352
033354
54
0333
2955
033354
2956 033362
2957 033424
033424
033426
2958
2959
2960
2961 033430

50407%

GROUP POINTERS AND (OUNTERS

50407%:
113724

STRCNT

TST

012737

SEQ 009¢

PAGE 34-1

(CNT ,WORK
(mP
504069
BGE
[F STRCNT EQ #0 THEN
BNE

;JRESET

2938

2964

MACRO M1113

30-DEC-80 09:36

LET

(R&)+

:B- 417

412, (R4)+
MOvVB
LINE
THE
;OUTPUT

C00012

OUTPUT #0UTBUF ,#132.
OUTPUT #CUTRBUF +132. M1
END INC

000647
112737

504028:

000014

003160

504018

LET OUTBUF :B- #14
#14,0UTBUF
Move
,#1
QUTPUT #OUTBUF
EXIT TST

104432
000046

: SEND THE DATA, NO LF YET
; THIS MAKES SURE OUTPUT IS SENT
; BEFORE C(HANGING OUTBUF DATA .

CSEXIT

TRAP

L10020-.

.WORD

:COUNTERS, POINTERS, TEXT BUFFER,
SPCCNT:

000000

;TEST

123

120

125

AND HEADER FOR TEST PRINTOUT

.WORD 0

HEADER

NLIST BEX

HAMFIR: _ASCIZ

TLIST BEX

MESSAGE

/SPURIOLS HAMMER FIRING TEST 09/<12><12><1¢>

C2LPLDO LP2S, LP26, LPO7 TEST

SPURIOUS HAMMER f JRING

2969

30=-DE(~80 09:36

.EVEN

2970
297

2972 03374
2973

MA(RO M1113

03374
033474

2974 033476

ENDTST
104601

L10020:
ENDMOD

TRAP

($ETS?

PAGE

34<2

SEQ 0097

I
(ZLPLDO LP2S, LP26, LPO7 TEST
PRINT (ONTROL

MACRO M1°13

30-DEC-80 09:36

PAGE

SEQ 0098

.SBTTL PRINT (ONTRCL

2976
2977
2978 033476

BGNMOD
X
R

;THIS TEST (HE(KS THE PRINT (ONTROL BY SENDING MORE THAN 132 (HARACTERS

;BEFORE SENDING A PRINT (OMMAND, ALL (HARACTERS [N EXCESS OF 132 CHARA(TERS
;SHOULD BE DISREGARDED.

THIS TEST DOES NOTHING ON ALL LPO7°'S.

LINES ARE PRINTED PER ITERATION, THESE LINES WILL
COLUMN NgMBERS A(RSSS THE PAGE. EXAMPLE :
THREE

THAT THE PRINTOU! SHOULD IDENTIFY 132 COLUMNS ACROSS THE PAGE.

THIS OUTPUT

033476
033476
033476
033476
033502
033506
033510
033512
2995 033S16
033516
033522

2996

2997 033524
033524
033530
033532
033532
033536
033536
033542
033544
033550
2998 033550
£33550
033554
2999 033556
033556
033564
033566
3000 033572
3001 033634
033634
3002 033642
3003 033642
033642
3004 033646
033646
033646
033650
033652

??STST

012746
012746
010600

034503
000001

062706

000004

013701
005301
000001

002012

005037
000402

002314

005237

002314

023701
003402
000137

002314

013702
006302

002314

032762
001402
000137

002000
034402

012737

000015

012705

034742

104417

005715
001002
000137

PRINTF

LET RY

ANOLPO7

MOV
MOV
MOV

TRAP
ADD

#NOLPO7 ,-(SP)
#1,-(SP)
SP,RO
CSPNTF
#6,SP

:= LSUNIT MOV
DEC

RT
LSUNIT
R1

INCR LUNIT FROM #0 TO R1 BY #1

50410%:
504118%:

03440¢

50612%:

CLR
BR

LUNIT
504118

INC

LUNIT

(mp
BLE
JMP

LUNIT,R1
506128
504138

LET R2 := LUNIT SHIFT 1

MOV
ASL

LUNIT,R2

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

002512

BEQ

002302

50415%:

033720

IS REPEATED 13 TIMES.

70.

$RR_MP=1

3
012

1
2
123456789012345678901234567890

NOTICE

IDENTIFY THE

.*6

THEN

JMP

50414%
OUTPUI #PRTCTL #56., LUNIT

MOV

?;3.,cou~r

MOV

#TABLE1,RS
WHILE (RS) Nt #0 DO

TST
BNE
JMP

(RS)
. +6
504169%

LET COUNT := #i3.

LET RS := #TABLE]

CILPLDG LP2S, LP26, LPO7 TEST

CONTROL

3005 033656
3006 033716

000753

033720
3008 033726

112737

000012

012705

034776

50416%:

BR
mMOvB

003160

3009

3010 033770

033770

3011 033774
033774
033774
033776

034000
3012 034004
3013 034044
034044
034046
3014 034046
3015
3016 034110
034110
034116

50417%:

50420%:

034120

005337

002276

034124
034132
034134

023727
002002
000137

002276

034124

034140

3017 034140
3018 034202
034202
034204
3019 934204
3020 034246
3021 034310
034310
3022 034314
C343'4
034320

034322
3023 034326
3024 034332
034332
3025 034332
034332
3026 034340
3027 034402
034402
3028 034402
034402

034406

3030 034406
034406

JMP

000753

012737
000402

TST

BNE

0340%6

000016

034120

3029

005715
001002
000137

MOV

002276
50421$:

000001

034204

50422%:

:
504238

000746

:
504248

(RS)+ #10.,,LUNIT

177777
104432

033532

(RS)+,#1C., LUNIT

QUTPUI

ENDDO

504178

DECR LINCNT FROM #14.

TO #1 BY M1

L INCNT

cMP
BGE
JMP

, #1
L INCNT
50423%
506249

OUTPUI #x11,#410., ,LUNIT
ENDDECR
50421%

BGT

JMP

,LUNIT
BUF
,#1,
OUTPUI #OUT
F
,#1, ,LUNIT
OUTPUI #OUTBU
#1
LET COUNT := COUNT
COUNT

IF COUNT GT #0 THEN

COUNT

.+6
50425%

P 1$

ENDIF

50425%:

000137

(RS)
.+6
50620%

DEC

TST

MOvB

50414%:
ENDINCR

LETM RS := #TABLE?
RS
ATABLEZ
WHILE (RS5) NE #0 DO

50422%

002302

003160

,LUNIT
BUF
,#1,
CUTPUI #OUT

005737
003002
000137

112737

#12,0UTBUF

814,
L INCNT

DEC

000014

:B= #1?2

LET QUTBUF

MOV

002302

000137

ENDDO
50415%

F
,#1, ,LUNIT
OUTPUl #OUTBU

005337

034332
033642

SEQ 0099

PAGE 35-1

30-DEC-80 09:36

OUTPUI

033716

033720
3007 033720

MACRO M1113

ENDIF

LET QUTBUF

414 ,0UTBUF

OUTPUl

JMP

50410%

TRAP

CSEXIT

50413%:
$8R JMP=~1
EXIT TST

:B= #14

UF
41, ,LUNIT
#OQUTB

CILPLDO LP2S, LP26, LPO7 TEST

PRINT CONTROL

3031
3032 034412

3033 034440
3034 034503
3035
3036 034564
3037 034576
3038 034610
3039 034622
30«0 034634
3041 034646
3042 034660
3043 034672
3044 034704
3045 034716
3046
3047 034730
3048
3049
3050 034742
3051 034776
3052
3053

000422

. WwORD
NLIST BEX

PAGE 35-2

L10021-.

.ASCII /PRINT CONTROL TEST 10/ <12>
/SHOULD SHOW 132 COLUMNS PRINTED/<12><12><15>
JASCIZ
/INXAPRINT CONTROL TEST DOES NOTHING ON LPO7'S.2IN/
NOLPO7: .ASCIlZ

120
123

11
117
045

PRTCTL:

045

122
110
116

040
040
040
040
040
040
040
040
040
040

040
040
040
04V
040
040
040
040
040
040

040
040
040
040
040
040
040
040
040
040

x0:
X1:
X2:
x3:
X4 :
X5:
X6:
X7:
X8:
X9:

JASCII
.ASCI]
LASCII
LASCII
JASCII
LASCII
LASCI1
JASCII
JASCII
LASCII

061

062

063

X11:

JASCII

/12345678907

034564
034576

034564
034610

034564
034622

.WORD
.WORD

x0,x0,x0,x0,x0,x0,x 0.x0,x0,x1,x1,x1,x1,0
X1,X%2.%X3,X4,X5,%X6,X 7.%x8,%9,x0,x1,x2,x3,0

.EVEN

TABLE1:
TABLEZ:

.EVEN

LIST BEX
ENDTST

3054
3055 035032

035032
035032
3056 035034

30-DEC-80 09:36

NN NN NNNNNNN

034410

MACRO M1113

104401

L10021:
ENDMOD

TRAP

CSETST

0/
1/

2/
3/
4/

S/
6/
7/
8/
9/

SEQ 0100

CZLPLDO LP2S, LP26, LPO7 TEST

MULTIPLE LINE ADVANCE

30-DE(-80 09:36

MA{RO M1113

3059

LSBTTL

3061 035034

BGNMOD

3060

SEQ 0101

PAGE 37

MULTIPLE LINE ADVANCE

STHIS TEST CHECKS THE MULTIPLE LINE ADVANCE OF THE LINE PRINTER. A LINE OFTHUS THE
OF LINES.
*NUMBERS IS PRINTED AND THEN THE PAPER |S ADVANCED THAT NUMBER
G THAT
FOLLOWIN
LINES
BLANK
OF
NUMBER
THE
INDICATE
WILL
PRINTED
:NUMBER

3062

3063
3064
3065

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

3066

;ALL 0°'S WILL INDICATE THE END OF THE TEST

%82;
2009
3070

BGNTST

3071 035034
3072

T11::

035034

11,

%8;2

:PRINT TEST IDENTIFICATION

%8;2 035034

INE ,#86.
OUTPUT AMUL

3077 035076

3078 035076

012737

035344

035342

3080 035104

035104

117737

000232

035112

013746

002276

3081 035112

035116
035122

3082 035126

035126
3083 035132

035132
035140
035142
035142
035146

035146
035154

3084 035156

042716
042637

003160

012737
000402

000001

005237

002304

023727
003003

002304

117723

035162

000767

035164

3086 035164
035164
2087 035166
035166
035166
035172

3088 035174

035174
3089 035200

035200
3090 035202

035202

000160

MOV

#TARSTR,STACHR

;OUTPUT (HARACTERS

001404

112723
005204

000771

MOVB

002276

000012

QSTACHR,LINCNT

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

BIC
B]C

LINCNT,=-(SP)

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

LET R3 := #OUTBUF
002304

;SET UP QUTPUT BUFFER

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

50430%:

000204

:GET A CHARACTER TO OUTPUT

LET LINCNT :B- @STACHR

50427%:

MOV
BR

#1,CCNT
50427%

INC

CCNT

(MP
BGT

CCNT #4132,
50431%

MOVB

aSTACHR, (R3) +

50430%

LET (R3)+ :B= @STA(CHR

END INC

50431%:

005004
020437

002276

000007
002276

012703

035156

3085 035162

LET STACHR := #TARSTR
REPEAT
50426%:

3079 035104
035104

SEQUENCE.

LET R4 :- #0
Ré&
CLR
WHILE R4 NE LINCNT DO
50432%:
R4, LINCNT
(MP
50433%
BEQ

LET (R3)+ :B= #1?2

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

INC
ENDDO

504328

;PUT CHARACTER

IN OUTPUT BUFFER

SFILL WITH LINE FEEDS

CZLPLDO LP2S, LP26, LPO7 TEST

MULTIPLE LINE ADVANCE

MACRO M1113

30-DEC-80 09:36

PAGE 37-1

3091 035204

50433%:

%83%

:NOW OUTPUT THE ACTUAL LINE

LINCNT + #132.

3094 035204

LET R4 :

3095 035214

LET STACHR := STACHR + #°

%83? 035220

R4
OUTPUT #0OUTBUF

3098 035260
035260
035264
3099 035266
035266
%}8? 035274

UNTIL LINCNT EQ #0
L INCNT
TST
50426%
BNE
LET QUTBUF :B- #14
#14,0UTBUF
MOVB
OUTPUT #OUTBUF ,#1

3102 C35336
035336

EXIT TST

MOV
ADD

035204
035210

INC

035214

3103
3104

.WORD

035340

3107 035344

062

%}?8 035417

115

3108 035361

NN
3112
3113
3114
3115

LINCNT R4
#132.,R4
STACHR

: UPDATE CHARA(TER COUNT
;OUTPUT THE LINE

CSEXIT

L10022-.

114

NLIST BEX

TABSTR: .ASCIZ

MULINE: .ASCII

_ASCIZ

/272637463540/

/MULTIPLE LINE ADVANCE TEST 11/<12>

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

.EVEN
LLIST BEX

3116 035510
035510

ENDTST
L10022:

035512

ENDMOD

035510

:NUMBER OF (HARA(CTERS TO OUTPUT

STALHR: .WORD 0O

3105 035342
3106

TRAP

SEQ 0102

TRAP

CSETST

C2LPLDO LP2S, LP26, LPO7 TEST

(HARACTER AL IGNMENT

MACRO M1113

30-DEC-80 09:36

.SBTTL
BGNMOD

035512

SEQ 0103

PAGE 38

CHARACTER AL IGNMENT

;THIS TEST CHECKS CHARACTER ALIGNMENT BY OVERPRINTING LINES OF ALTERNATING
JH'S AND SPACES WITH SPACES AND H'S.

035512
035512

BGNTST

035512

OUTPUT #(CHRALN,#30.
; PRINT TEST NMME ON LP
;PRINT 24 LINES OF ALTERNATING 'H''*S AND ''SPACE'"S
1%:
LET CINCNT := #50.

035554
035554
035562
035562
035566
035570
035570
€35574
035574

3137

3138

3139
3140

035574
035574
035600
035600
035606
035610
035610
035614
035614
035622
035624
035624
035630
035630
035634
035634
035636
035636
035636

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

3152
3153 035762
354 036024

T12::

12.

JPRINT TEST IDENTI"ICATION

012737

000062

005737
003002

002276

000137

036076

002276

2%:

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

L INCNT

504348
INLINE <JMP 3%>
3$
JMP

BGT

50434%:

ENDIF

;LOAD BUFFER WITH ALTERNATING STRING OF "H'''S AND ''SPACE'"S
LET R4
MOV

:= #OUTBUF
#OUTBUF ,R4

MOV

#1,WORK

INC

WORK

CMP

WORK
, #66.

012704

003160

Ni2r37
000402

00500

005237

003154

023727
003005

003154

112724

000110

MOVB

112724

000040

MovB

000765
112724

INCR WORK FROM #1 TO 466. By #1

0CG3154

50436%:
0001C2

50435%:

000015

LET

506437%
(R4)+ :B- #110

PUT PATTERN INTO BUFFER

:B~ #40

#4640, (R4)+

50436%

LET (R&4)+

MOVB

;

#4110, (R4)+

LET (R4)+

ENDINCR

50437%:

132 CHARACTERS

50435%

BGT

; FOLLOWED BY (R

:B- #(R

#CR, (R4)+

* SEND BASIC PATTERN
OUTPUT #OUTBUF ,#132.

OUTPUT #OUTRUF +132. .41

: OVERPRINT WITH LINE OF ALTERNATING SPACE AND 'H°
LET R4 := #OUTBUF+132.
#OUTBUF +132. R4
LET (R4)+ :B= #1710 . H

012704

003364

MoV

112724

000110

112724

000012

#110, (R4) +
MOVB
LET (R4)+ :B= #Lf
#LF,(RG)+
move

OUTPUT

#OUTBUF +1,#132,

OUTPUT #QUTRUF+135. a1

; FILL BUFFER WITH REVERSE PATTERN

s FOLLOWED BY A LINEFEED

: CVERPRINT

CZLPLDO LP2S, LP26, LPO7 TESTY

{ HARACTER AL IGNMENT

3155

005337

000137

MACRO M1113

004737

005564

003160

L INCNT

JMP

LET QUTBUF

171

N4 ,0UTBUF

F
OUTPUT #OUTBU&1
TRAP

110

’%>

:R= #14

MOVR

JSR PC,QUIET
EXIT TST

104432
000042

104401

DEC

INL INE <JMP

035562

020014

PAGE 38-1

LET LINCNT := LINCNT = ®

002276

112737

103

30-DEC-80 09:36

. WORD
NLIST BEX

(SEX]T
L10023-.

CHRALN: .ASCIZ /CHARACTER Al IGNMENT TEST 12/<12><12><1>

LEVEN
.LIST Bt X
ENDTST

L10023:
ENDMOD

TRAP

CSETST

SEQ 0104

(2LPLDO LP2S, LP26, LPO7 TEST
INTERRUPT SERVICE ROUTINES

MACRO M1113

30-DEC~80 09:36

PAGE 39

3169
3170 036220

JSRTTL
BGNSRY

3173
3174
3175

;INTERRUPT VECTORS ARE ESTABLISHED DURING INITIALIZATION
JPOINTING TO THE BASI( ROUTINES WHI(CH
:SET UP THE UNIT NUMBER CAUSING THE INTERRUPTS,

7171
3172

:
JXX

;LINE NUMBER IS RETURNED [N R?

%1;9

3178

3179
3180 036220
318
3182
2183
3184
3185

000000
000020

£36220
036224
036226
036230
036234
036240
036244
036246
036250
036254
036260
036264
036266
036270
036274
036300

012700
104441
010246
012702
000137
(12700
1044461
010246
012702
000137
012700
104441
010246
012702
000137
012700

2186

INTERRUPT SERVICE ROUTINES

036304
036306
036310
036314

036320
036324
036326
036330
036334
036340

036344
036346
036350

036354
036360
036364
036366
036370
036374
036400
036404
036406
036410

x=0
INTO0:

X X+2

104441
010246
012702
000137
012700
104447
010246
012702
000137
012700
104441
010246
012702
000137
012700
104441
(010246
012702
000137
012700
104441
010246
012702

000200
000000
00476
000200
000002
(004762
000200

000004
004762
000200
000006
004762
006200
000010
004762
000200
000012
004762
000200
000014
004762
000200

000016

LREPT

16.

SETPR] #PR]104
PUSH
R2
LET R2 :- #X
INLINE <.MP
.ENDR

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

TRAP
MOV
MOV
JMP
MOV
TRAP
MOV
MOV
JMP
MOV
TRAP
MOV
MOV
JMP
MOV
TRAP
MOV
MOV
JMP
MOV
TRAP
MOV
MOv

[ODRV>

#PR]04
RO
($SPR]
R2,~-(SP)
#X ,R2
10DRV
#PR104 ,RD
($SPR]
R2.,~(SP)
X, R2
10DRV
#PRI04 ,RD
($SPR]
R2,-(SP)
X ,R2
10DRV
#PR]04
RO

($SPRI]
R2.,~-(SP)
#X,R2
J10DRV
#PR]04
RO
($SPRI]
R2.,-(SP)
#X ,R2
J10DRV
#PR104 ,RO
($SPR]
R2,-(SP)
#X,R2
1CDRV
#PR]04
RO
($SPR]
R2,-(SP)
#X,R2
10DRYV
#PR]104 ,RO
($SPR]
R2,=-(SP)
#X,R2

SEQ 0105

{2LPLDO LP2S, LP26, LPO7 TEST
INTERRUPT SERVICE ROUTINES
036414
036620
036424
036426
036430
036434
036440
036444
036446
036450
036454
036460
036464
036466
036470
036474
036500

000137
012700

G36506
036510
036514
036520
036524
036526
036530
036534
036540
036544
036546
036550
036554
036560
036564
036566
036570
036574
036600
036604
036606
036610
C36614

010246
012702
000137
012700

000026
004762
000200

012702
000137
012700

000030
004762
000200

010246
012702
000137
012700

000032
004762
000200

036504

2187

1046461

010246
012702
000137
012700
1044641

010246
012702

000137
012700
1044461

01C246
012702
000137
012700
104441

104441
010246

104441

010246

012702
000137
012700
104441

010246

012702
000137

(06762
000200

000020
004762
000200
000022
004762
000200
000024
004762
000200

000034
004762
000200

000036
004762

MACRO M1113

30-DEC-80 09:36

PAGE 39-1

JMP

10DRYV
#PR]04
RO

MOV

R2.=-(SP)
X, R2
10DRYV
#PR]04,RD

MOV
TRAP

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

C$SPR]

($SPRI

R2,-(SP)
X, R2
10DtV
#PR]104
RO

C$SPR]

R2.~(SP)
”X,R2
JODRYV
#PR]04
RO

($SPR]

R2.-(SP)
#X,R2
10DRV
#PR]I04
RO

C$SPRI]
R2.-(SP)

#X,R2

JODRV
#PR104 ,RO
C$SPRI
R2.-(SP)
#X,R2
10DRV
#PR104
RO
($SPRI
R2.-(SP)
#X,R2

10DRY
#PR]0&
RO
C$SPR]
R2.=-(SP)
#X,R2
10DRYV

SEQ 0106

C2LALDO LP2S, LP26, LPO7 TEST

CLOCK SERVICE RIUTINE

MACRO M1113

c4é

;UPDATES THE COUNTER AT A RATE OF 16.67 MILLISELONDS PER TI(K
:AND UPDATES A SECOND COUNTER WHEN THE FIRST OVERFLOWS.

036620
036624
3197 036626
£36626
036632

0127C0
1044461

000300

005737
001005

036674

036636

012737

036642

005237

3198 036634

3200 036645
3201

PAGE 40

30-DEC-80 09:36

KRR

N NN NN

3190
1

SEQ 0107

LSBTTL CLOCK SERVICE ROUTINE

3189
1

036646

036646
3202 036652
036652
036660
3203 036662

036662
3204 036670
036670
5
320
3206 036670
036670
036670
3207
3208 036672
209 036674

000074

BGNSRV
(LKT(CK:

SETPR] #PR]06

#P1]106,R0

MOV

TRAP

TICK EQ #0 THEN

BNE

504408
LET TICk := #60.

TST

[0}

36674

036672
50440%:

005337

036674

023727
001003

002322

000002

012777

000100

143436

($SPR]

TICK

#60.,T1CK

LET TIME

INC
ENDIF

TIME

TICK

ENDIF

JAND EXIT

ENDSRV

900000
000000

;BACK UP SECOND TIMER

IF CLKTYP EQ #2 THEN
&2
CLKTYP,
(mP
50464198
BNE
LET @(LKCSR :- #100
#100,aCLKCSR
MOV
504418

000002

:- TIME + M1

LET TICK := TI(K - #
DEC

;60 TI(KS PEP SECOND

L10025:

TIME
Ti(k:

RT]

.WORD
LWORD

0
O

71.PLDC P25, LP26, LPQ7 TEST

HARDWARE PARAME TER SECTION

MACRO M1113

30-DEC-80 09:36

.SRTTL

8GNMOD

3212 0%6676

3213
214

HARDWARE PARAMETER SECTION

STHIS SECTION INCLUDES THE QUESTIONS wWwHICH REQUEST THE OPERATOR 10
:FURN]SH THE HARDWARE INFORMATION NECESSARY TO BUILD THE HARDWARE
;P=TABLES.

3217

3218

;==

219

3220 036676

036676
3551 036700

BGNHRD

000020

{ SHARD : :

3222 036700

036700
036702
036704
036706

000031
036740
160000
177516

036210
C36712
036714
036716

001031
036755
000110
000770

036720
036722
036724
036726
036730
3225 03673¢
036732
036734
03673%

002032
036776
00C003
000000
000003

7223 036710

3224 036720

3226 036740

3230 036776
3231 037045
3232

105

GPRMA

GETADR,0,0,160000,177516,YES

GPRMA

GETVE(,2.0,110,770,YES

.WORD
.WORD
.WORD
.WORD

GPRMD

003130
037045
000001

114
111

.WORD L10026~-L$KARD/?2
.WORD
. WORD
.WORD
.WORD

ENDHRD

036740

3228 036740
3229 036755
7233
323

PAGE 41

see

325
3216

3227

120
116

116

066

061
124

126

040

.WORD
.WORD
.WORD
.WORD
.WORD
GPRML
.WORD
.WORD
.WORD

T$CODE
GETADR
T$LOLIM
TSHILIM

T$CODE
GETVEC
TSLOLIM
TSHILIM

GETTYP,4,0.3%3,0.3,YES
T$CODE
GETTYP
3
TSLOL IM
TSHILIM
GETBND,6,1,YES
T$CODE
GE TBND
1

.EVEN

L10026:
.NLIST BEX

GETADR: .ASCIZ
GETVEC: .ASCJZ

GETTYP: .ASCIZ

/LP11 ADDRESS/
/INTERRUPT VECTOR/

/ENTER O IF LP2S, 1 IF LP26, 2 IF LPO7 /

GETBND: .ASC]Z /96 (HARACTER BAND/
FOR FUTURE EXPANS]ON
: ENTER % [F LPYY
.LIST BEX
.EVEN

SEQ 0108

CLPLDO (P25, LP2E, LPO7” TEST

SOF TWARE PARAMETER SLITION

MA(CRO M11'3

30-DEC-B0 09:36

;ggg

LSRTTL

3238

Tee

ggzg

:THE

X239

SEQ 0109

PAGE <2

SOF TWARE PARAMETER SECTION

JTHIS SECTION INCLUDES THE QUESTIONS WHICH REQUEST THE OPERATOR TO FURNISH

3262
3243 037070

037070
037072
32«4 037072
037072
037074
037076
3245 037100
037100

000023

037104
3246 £37106
037106
037110
037112
037114
037116
2247 037120
057120

000001

037102

LS$SOFT::

037176

004052
037356

037136
3249 037140

000377

2256
3257
3258
3259
3260 037404
3261 037444

037444
037446
037450
3262 637450
3263

L10027:
122
120
104
124
101

(G00000
000000

000001

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

1
GETTIM,4,D,%77,4,60.,YCS
TS$CODE
GETTIM
377
TSLOLIM
TSHILIM
GETPLA,6,1,YES
T$SCODE

.WORD
.WORD

037140

3251 037140
3252 037176
3253 (37250
3254 037335
3255 037356

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

GPRMD

ENDSFT

125
105
105
105
125

116
122
123
123
124

TO BUILD

GPRML
. WORD
.WORD
.WORD
GPRML
.WORD

.WORD
.WORD

000377
000001

INFORMATION NECESSARY

THE

SOF TWARE

P-TABLES.

.WORD L10027~L$50FT/2

.WORD

002052
037250
000377
000004
(00074

037126
037130

037132
037134

:
BGNSFT

001130

003130
037335
000001

2248 037126

SOF TWARE

000130
037140
000001

037122
037126

3250

.WORD
.WORD
.WORD

GETMAN

GETPLA
1

GETMAX,10,D,377,1,255.,YES

TS(ODE
GE TMAX

377
TSLOLIM
TOHILIM

.EVEN

NLIST BEX

MGTINT:
GETMAN:
GETTIM:
GETPLA:
GETMAX:

_ASCIZ
.ASCIZ
_ASCIZ
,ASCIZ
._ASCIZ

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

PAT(H:
LASTAD

.BLkWw

.LIST BEX
.EVEN
:

LSLAST::
ENDMOD
.END

.EVEN

L.WORD
.WCRD

O
O

CILPLDO LP2S, LP26, LPO7 TEST

SYMBOL TAB.E

ACTIVE= 020000

ADR = 000020 G
ASSEMB= 000010
AUTCON 027616
AUTSEC 027500
BANDSW 014046
B8GTLCH 014255
BGTSWI 004215
BINZDA 004550
- BITO = 000007 G
BIT00 = 000001 G
BITO1 = 000002 G
BIT02 = 000004 G
81703 = 000010 G
81704 = 000020 G
BITOS = 000040 G
B8I1106 = 000100 G
BI707 = 000200 G
BITO8 - 000400 G
BITO9 = 001000 G
BIT1 - 000002 G
BIT1C = 002000 G
8ITi1 = 004000 G
BIT12 = 010000 G
811713 - 020000 G
BIT14 = 040000 G
BITIS = 100000 G
BIT2 = 000004 G
BIT3 = 000010 G
BIT4 = 000020 G
BITS = 000040 G
BIT6 - 000100 G
BIT7 - 000200 G
BI18 = 000400 G
BIT9 - 001000 G
BNDPAT 023040
BNDRDY 014164
BNDSWI 003556
BNDSWT 014134
BNDTST 031731
BNKSWI C03511
= 000400 G
BOE
BPID2S 031760
BPID26 031766
BP64ID 031774
BP64Q1 032050
BP64Q?2 032144
BP64Q3 (032241
BPo4Q4 032335
BP96ID 032022
BP96Q1 032433
BP96Q2 032527
BP96Q3 (032624
BP96Q4 032720

BUFADD 002350
BUF CNT 002352
BUFREP 002354

MACRO M1113

BYTECO= 000403

002304
CCNT
025636
CHAR
CHNSEC 016376
(HRALN 036156
(HRGEN 002370
006756
(K1
CLEAN 010074
CLKCSR 002326
(LKENA 002334
CLXSET 002330
CLKTCK 036620
CLKTYP 002322
CLKVEC 002332
(. OCkP 002324
002302
COUNT
COUNTD 004756
= 000015 G
(R
CSRERR 003406
CTLEND 005536
CTLLOP 005220
CURADD (02552
CURCNT 002752
($AU - 000052
($AUTO= 000061
($BRK = 0000¢2
($BSEG= 000004
cs8suB= 000002
C$CEFG= 000045
C$CLCK= 000062
C$CLEA= 000012
C$CLOS= 000035
C$CLP1= 000006
C$CVEC= 000036
C$DCLN= 000044
C$DODU= 000051
C$DRPT= 000024
($DU = 000053
CSEDIT= 000003
C$ERDF= 000055
C$ERHR= 000056
C$ERRO= 000060
C$ERSF= 000054
C$ERSO= 000057
C$ESCA- 000010
($ESEG= 000005
($ESUB= 000003
CSETST= 000001
C$EXIT~- 000032
(S$GE TB= 000026
($GETW= 000027
C$GMAN- 000043
($GPHR= 000042
($GPLO= 000030
C$GPRI= 000040
C$INIT= 00001
(SINLP 000020

30-DE(-80 09:36

SEa 0110

PAGE 42-1

($MAN]= 0CC050
CSMEM = 000031
($MSG = 000023
CSOPEN= 000034
C$SPNTB= 000014

FLSSE.

016609
016677
FLST
FSAU = 000015
FSAUTO= 000020
FSBGN = 000040

= 020000 G
JER
IGNORE 010000
INDEX 002346
INHINT 002262
INTERR 011214

DATPTH 025640
= 000177 G
DEL
DELCNT 003052
DFPTRL 002244 G
DIAGMC= 000000
DIGITS 004760
DROPED= 040000
DROPIT 005612
EF.CON= 000036 G
EF .NEW= 000035 G
EF .PWR= 000034 G
EF .RES= 000037 G
EF.STA= 000040 G
011026
END2
021554
END4
ERFLG 000400
ERRCOD 002336
ERRFLG 002340
ERROR = 100C00
ERRSVC 003112
ERRTBL 003114 G
011332
ERR11
ERR12 011406
ERR13 011471
— 000004 G
EVL
ESEND = 002100
E$LOAD= 000035
005720
FAKE
000014 G
FF
017225
FFSET
002274
FLAG
FLAGDA Q04754
FLAGO7= 02000
FLAG26= C01000
FLAGS6= 010000
FLSMSG C17301
FLSMST 017373
FL3MS2 017453

F$SRY = 000010
F$sSuB = 000002
F$SWw = 000014
FSTEST= 000001
GETADR 036740
GETBND 037045
GETMAN 037176
GETMAX 037356
GETPLA 037335
GETTIM 037250
GETTYP 036776
GETVEC 036755
GSCNTO= 000200
G$DELM= 000372
G$DISP= 000003
GSEXCP= 000400
GSHILI= 000002
G$LOLI= 000001
GSNO = 000000
G$OFFS= 000400
G$OFSI= 000376
G$PRMA= 000001
G$PRMD= 000002
GS$PRML= 000000
GSRADA= 000140
G$SRADB= 000000
G$RADD= 000040
GSRADL= 000120
G$RADO= 000020
GSXFER= 000004
GSYES = 000010
HAMF IR 033432
HAMRDY 013762
HAMRSW 013644
FAMSWT 013721
= 100000 G
HOE
- 010000 G
IRE
Ipu - 000040 G

I$INIT= CO0041
I$MOD = 000041
1$MSG = 000041
1$PROT= 000040
1$PTAB= 000041
I$PWR = 000041
ISRPT = 000041
I1$SEG = 000041
I$SETU= 000041
I$SFT = 000041
1$SRV = 000041
1$SUB = 000041
I$TST = 000041
J$IMP = 000767
- 000012 G
LF
LINCNT 002276
LINPER 023101
LINSEC 016414
LINSWI 016434
LINSW! 016520
LOBYTE= 000377
= 040000 G
LOE
= 000010 G
LOT
002452
LPBUF
LPCSR 002356
LPDROP 004306
LPERR 004354
LPERR2 023030
LPINTR 003012
LPMO64 023503
LPM96 023564
002416
LPVEC
LSTCNT 002300
002314
LUNIT
LSACP 002110 G
LSAPT 002036 G
LSAUT 002070 G
LSAUTO 002254 G

(SPNTF= (G00017
CSPNTS= C00016
CSPNTX= 000015
($QJ0 = 000377
C$RDBU= 000007
CSREFG= 000047
C$RESE= 000033
C$SREVI= 000003
($RFLA= 000021
C$RPT = 000025
($SEFG= 000046
C$SPRI= 000041
($SVEC= 000037
C$TPRI= 000013

FSCLEA= 000007
F$DU = 000016
FSEND = 000041
F $HARD= 000004
FSHW = 000013
FSINIT= 000006
F$JMP = 000050
F$MOD = 000000
FSMSG = 000011
F$PROT= 000021
FSPWR = 000017
FSRPT = 000012
F$SEG = 000003
T= 000005
F$SOF

INTERT 003626
INTFAC 011252
INTHDL 011244
INTLK 013360
INTOO 036220
IOCTRL 005160
IODRV 004762
ISR = 000100 G
IXE = 004000 G
I1SAU = 000041
I1$AUTO= 000041
I$SCLN = 000041
I$DU = 000041
I$SHRD = 000041

CILPLDO P25, LP26, LPOT TEST

SYMBOL

TABLE

L$CIP
.SCLEA
L$CO
LSDEPO
LSDESC
LSDESP
LSDEVP
LSOISP
L$OLY
L$OTP
(80TYP
LSOUT
LSDVTY
LSEF
LSENVI
LSETP
LSEXP1
LSEXPSL
LSEXPS
LSHARD
LSHIME
LSHPCP
LEHPTP
L SHW
_$I1CP
LSINIT

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

L$SLADP
LSLAST
LSLOAD
LSLUN
LSMREV
LSNAME
LSPRIO
L$PROT
LSPRT
LSREPP
LSREV
L$SOFT
L$SPC
L$SPCP
LSSPTP
L$STA
LSSW
LSTEST
LSTIML
LSUNIT
LO7M64
LO7MI6
L 10001
L10002
L10003
L10004
L10005
L10006
L10007
L10010
L10011

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

L10C12
L10013
L1004
L10015
110016
L10017
L10020
10021
£10022
L10023
L10025
L10026
L10027
L26MESL
L26MIE
MANSPD
MAXERR
MGTINT
MCVMSG
MRESET
MSGADR
MSGCNT
MUL INE
NMLFLS
NOCLCK
NOCL

MACRO M1113

017646
(2525¢
025700
02657¢
030316
033016
033474
035032
035510
036216
036670
036740
037140
023645
023726
002264
002272
037140
017546
007275
002712
002612
035367
017133
007640
004147

NOINTR= 000003
NOLPC? 034503
NONBUF 027721
NONCHR 027370
NOT M 007702
031652
NOO?7
NRGT16 007156
NRGT17 007241
OFFLIN 02314¢€
ONEF IL= 000001
ONLIN1 023206
ONLINZ 023307
ONL IN3 023405
OUTBUF 003160
oUTTIM 003706
0$APTS= 000000
0sAU - 000000
O$BGNR- 000000
0$8GNS= 000001
osbu = 000000
O$ERRT= 000000
O$GNSW= 000001
0$POIN= 000001
0$SETU= 000000
PAPCHK 016772
PAPRDY (13535
PAPRSW 013416
PAPSW] (0C3446
PAPSW1 013466
PAPTST (013624
PAT(H 037404

30-DE(=-80 09:36

SEQ 0111

PAGE 42-2

PATTER 025676
PERIOD (002266
007774
PLOC
001000 G
=
PNT
= 002000 G
PRI
PRINTR 002320
PRIQO = CO00CO G
PRi01 = 000040 G
PRI02 = 002100 G
PRI03 = 000140 G
PR]04 = 000200 G
PRI0S = 000240 G
PRICG = 000300 G
PR]I07? = 000340 G
PRTCHR 026536
PRTCTL 0344612
PRTSPD 023436
PTABAD 002316
QUIET 005544
RDYERR 003424
READY 007603
REFLIN 017034
REPCNT 002652
REPLUP 021742
RESETYT 007374
RESET2 007467

RESTOR (24151
RESVEC 010002 G
SFPTIBL 002262 G
SrIP3 027714
SPCCNT 033430
023042
SPED1
SPEDZ2 023065
SPED3 023071
STACHR 035342
STATER= 000001
STATUS
STRCNT
SV(GBL=
SVCINSSv(SuUBSVCTAG=
SV(TST=
SYM =
SYMD =
SYMS =
SSLSYM=
TABAGSL
TABA96
TABLDA
TABLE1
TARLE?
TABRSTR
TB0764
TB0796
036674
T1(K
036672
TIME

TimouT- 000002
= 000014
TOF
TXERR 003661
TXNOIN 003733
T$ARG(= 000001
T$CODE= 004052
T$ERRN= 000012
T$SEXCP= 000000
T$FLAG= 000040
rsaMman= 000000
T$SHILI= 000377
T$LAST= 000001
T$LoLI= 000001
T$LSYM= 010000
T$LTNO= 000014
TSNEST= 000000
TSNSO = 000010
TSNS1 = 000000
T$NS2 = 000005
T$PTNU= 000000
T$SAVL= 177777
T$SEGL= 177777
T$SUBN= 000000
T$TAGL= 177777
T$TAGN= 010030
T$TEMP= 000000

TSTEST= 000014
T$TSTM= 177777
T$7STS= 000001
T$SAUT- 010002
T$$CLE= 010005
T$$+AR= 010026
T$s$Hw = 010001
T$$INI= 010004
T$$PRO= 010G00
T$$S0F= 010027
010025
010003
010023
010260 G
010274
011052
010300
033476 G
035034 G
035512 G
011550 G
014542 G
016374
016372
017650 G
025256 G
025702 G
026600 G
030320 G
033020 G
- 000200 G
JAM

002312
UNIT
002270
USA
002342
wTt
WTEQD 003764
VFUCMD 002346
VFUINF 006257
VFUINT 014355
VFURDY 014447
VFUSEL 004033
VFUSE!l 004121
003154 G
WORK
003156
WORK 1
= 000040
X
X$SALWA= 000000
Xx$FALS= 000040
X$0FFS= 000400
X$TRUE= 000020
034564
x0
034576
X1
034730
X11
034610
X2
034622
x3
034634
X4
034646
X5
034660
(o)
034672
X7
034704
X8
034716
X9
$RGNLE= 177777
$S8RUMP= 177777
$SERFLG= 000400
$F$AND= 000310
$F$8AD= 000401
$F$BLA= 000170
$FSCAS= 000150
$F$DEC= 000220
$F$DO0 = 000340
SFSFAL= 000405
$F$G00= 000400
$FSIF = 000110
$FSINC= 000210
$F$L00= 000200
$FSNAM= 000160
$FSNO = 000403
$FSOR = 000320
$FSRTI= 000350
$FSRTN= 000300
$FS$SEL= 000140
$FSTHE= 000330
$FSTRU= 000404
$FSUNT= 000130
$FSwWHI= 000120
$FSYES= 000402
SIFLEV= 177777
$1Sk0 = 000001
$1Sk1 = Q00001
$15k2 - 000001

CZLPLDC P25, LP26, LPO7 TEST

SYMBOL TABLE

MACRO M1113

30-DEC-80 09:36

$NSk3 = 000110
$NSK4 = 000110
$NSKS = 000110
$SAVE = 000001
$SAVLE= 177777
$SELLE= 177777
$SSK0 = 050436
$SSK1 = 000402
$TAGLE= 177777
$TAGNU= 050442

$15x3 = 000001
$15ké4 = 000001
%0 = 000000
$LOCTA= 177777
L Sx0 = 000000
$L STIN= 000000
$L STTA= 000000
SNESTL= 177777
$NSKO = 000110
$NSK1 = 000120

STEMP = 050641

$NSKk2 = 000110

037450
00000¢
ERRORS DETECTED:

SEa 0117

PAGE 4c-3

$75K0 = 050641
$T7SK1 = 050636
$75k2 = 050433
$7SK3 = 050425
$TSK4 = 050424
$TSKS = 050255
$7SK6 = (50256
$TSK7 = 050246
= 003403
U
$$ARGC= 000000

$SBYTE- 000403
$$CASE= 000404
$$DST = 000037
$SELOC= 000402
$SERFL= 000000
$$FLAG= 000001
$$FROM= 000000
$$INH = 000403
$$L0C = 036660
$$LOCN= 000000

000

. ABS.

001

VIRTUAL MEMORY USED: 58808 WORDS ( 230 PAGES)
DYNAMIC MEMORY: 21870 WORDS ( 8& PAGES)
ELAPSED TIME:

02:09:22

C2LPLD,CZLPLD/=SP LB1:[1.1JSVC/ML.DB1:[205.121]SPMACJ/ML.DB1:[205,1OJCZLPLD.°11

$SREG = 177777
$SRETU= 000000
$SRIN1= 000000
$SRTIN2= 000000
$SSRC = 000027
$$TGSV= 050213
$$7GS1= 000001
$$7G52= 000000
$$70 = 000000
$$$T7AG= 050000