Digital PDFs

AH-T344A-MC

May 1983

109 pages

Original

48MB

view download

OCR Version

61MB

view download

Document:	CZLNAA0 LN01 PRINTER DIAG MAY 1983 bw
Order Number:	AH-T344A-MC
Revision:	000
Pages:	109
Original Filename:	CZLNAA0__LN01__PRINTER_DIAG__AH-T344A-MC__MAY_1983_gray.pdf

OCR Text

AH-T344A

FICHE 1 OF 1 feanven

USER DOCUMENTATION CZLNAAQ
CZLNAA.PIT
12-JAN-83 08:16

DNMAC X24.07-563

12-JAN-B3

08:16

PAGE 1

SEQ 0001

.REM &
IDENTIFICATION
PRODUCT CODE

AC=T343A=-MC

PRODUCT NAME:

CZULNAAO LNO1 PRINTER DIAG

MAINTAINER:

SMALL SYSTEMS DIAGNOSTICS

PRODUCT DATE:

JAN,

AUTHOR:

GLENN A. PERNA

THE

1983

INFORMATION IN THIS DOCUMENT

NOTICE

AND

SHOULD

SUBJECT

CHANGE WITHOUT

NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL

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

NO RESPONSIBILITY IS ASSUMED

FOR
SOF TWARE ON EQUIPMENT THAT IS NOT

AFFILIATED COMPANIES.

THE
USE
SUPPLIED

RELIABILITY

DIGITAL

THE FOLLOWING ARE

DIGITAL
DEC

TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:

PDP
DECUS

UNIBUS
DECTAPE

MASSBUS

OF
OR ITS

NOWVSWN-O

FLAGS
HARDWARE

ERROR INFORMATION

el il

)
— i

WVWBHNWN—-O

RORONONONOMNONON

DNMAC X24.07-563

USER DO(UHENTAT%ON CIZLNAAQ
CZLNAA.P11
12-JAN-83 08:16

GENERAL

08:16

TABLE OF

CONTENTS

INFORMATION

PROGRAM ABSTRACT

SYSTEM REQUIREMENTS

RELATED DOCUMENTS AND STANDARDS

1.4

DIAGNOSTIC HIERARCHY PREREQUISITES

THIS DIAGNOSTIC IS COMPATIBLE WITH ALL MEMBERS OF THE PDP-11
COMPUTER FAMILY. THE DIAGNOSTIC IS INTERFACED TO THE PDP-11
g£3?ggz;é£'SUPERVISOR THROUGH WHICH IT INTERFACES TO THE
(AN BE USE D IN VARIEIV OF OPERATING SYSTEMS
TO FULFILL DIFFERENT REQU IREMENTS. THE DIAGNOSTIC CAN BE

THE DIAGNOSTIC

SEQ 0003

USER DOCUMENTATION CZLNAAO
CZLNAA P11

12=-JAN=-83 08:16

DNMAC X24.07-563 12-JAN-83 08:16 EPAGE 3-1

SEQ 0004

LOADED USING XXDP IN e FIELD SERV 1CE g OPERATION, LOADED USING
THE APT/ACT/SLIDE DIAGNOSTIC MONI TOR
;N A MANUFACTURING
ENVIRONMENT, OR MANUALLY LOA DED U SIN G PAPER TAPE.
THE APPLICABLE PDP=11

EMORY, AND PERIPHERALS

SHOULD BE
RUN TO VALIDATE PROPER opéaaTION oF T HE SYSTEM BEFORE
RUNNING
CPU

THIS DIAGNOSTIC.

1.5

ASSUMPTIONS
THE PRINTERS UNDER TEST SHOULD HAVE POWER APPLIED AND BE
PLACED ON LINE IN READINESS FOR TESTING. EACH LINE PRINTER

MUST HAVE
ADDRESS.

ITS OWN M7258 CONTROLLER SET UP AT A DIFFERENT DEVICE

THE DIAGNOSTIC PROVIDES A DEFAULT DEVICE ADDRESS OF

777514 WHICH CAN BE USED WHEN A SINGLE LINE PRINTER IS BEING

TESTED OR FOR THE FIRST UNIT WHEN MULTIPLE LINE PRINTERS ARE
UNDER TEST. IT WILL BE NECESSARY FOR THE OPERATOR TO RUN THE
LINE PRINTER OFF LINE IN THE SELF TEST MODE BEFORE RUNNING THE
DIAGNOSTIC.
EACH PRINTER SHOULD BE IN THE 8 BIT MODE

2.0

OPERATING INSTRUCTIONS

THIS SECTION CONTAINS A BRIEF

DESCRIPTION OF

FOR DETAILED INFORMATION, REFER TO THE

2.1

THE

RUNTIME

SERVICES.

XXDP+ USER'S MANUAL

(CHQUS).

COMMANDS

THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES
(SUPERVISOR). = THIS SECTION LISTS THE COMMANDS AND GIVES A VERY

BRIEF DESCRIPTION OF

THEM.

THE XXDP+ USER'S MANUAL HAS MORE DETAILS.

COMMAND

EFFECT

START

START THE DIAGNOSTIC FROM AN INITIAL STATE

CONT INUE

CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER “C)

RESTART

START

PROCEED

THE DIAGNOSTIC WITHOUT

CONTINUE FROM AN ERROR HALT

EXIT
ADD

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

DEACTIVATE A

DROP

UNIT

PRINT STAYlSTlCAL

DISPLAY
FLAGS

TYPE A LIST OF ALL DEVICE INFORMAT
TYPE THE STATE OF ALL FLAGS (SEE SECIION 2.%

SWITCHES

IMPLEMENTED

CLEAR ALL FLAGS (SEE SECTION 2.

A COMMAND CAN BE RECOGNIZED BY THE

YOU MAY, FOR EXAMPLE,

INFORMATION (IF

BY THE DIAGNOSTIC
= SECTION 4.0)

ZFLAGS

2.2

INITIALIZING

FIRST

THREE

CHARACTERS.

TYPE ''STA" INSTEAD OF '‘START',

THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION.
THESE SWITCHES ARE APFENDED TO THE LEGAL COMMANDS.
ALL OF THE LEGAL

USER DOCUHENTAY ON CZLNAAO
CZLNAA.P11
2=-JAN-83 0B:16

DNMAC X24.07-563

12-JAN-83

08:16

PAGE 3-2

SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH

SEQ 0005
B

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER 1S DESIGNATED BY “'DDDDD''.
SWITCH

EFFECT

JTESTS:LIST

EXECUTE ONLY THOSE TESTS SPECIFIED IN
THE LIST.
LIST IS A STRING OF TEST

NUMBERS FOR EXAMPLE = /TESTS:1:5:7=10,

THIS LIST WILL CAUSE TESTS 1,5,7,8,9,10 TO

/PASS :DDDDD

BE RUN.
ALL OTHER TESTS WILL NOT
BE RUN,
EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000)

/EOP:DDDDD

REPORT END OF PASS MESSAGE AFTER EVERY

JUNITS:LIST

TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED

/FLAGS:FLGS

§STSE€$E6§I FLAGS.

DDDDD PASSES ONLY.

FLAGS ARE DESCRIBED

_(DDDDD = 1 TO 64000)

IN THE LIST. LIST EXAMPLE - /UNITS'0'5:10-12
USE UNITS 0,5,10,11,12 (UNIT NUMBERS
= 0-63)

EXAMPLE OF SWITCH USAGE:

START/TESTS:1=5/PASS:1000/E0P:100
THE EFFECT _OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE

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

PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY.
A
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS.
YOU MAY,

FOR EXAMPLE, TYPE "‘/TES:1-5'"" INSTEAD OF '‘/TESTS:1=5"".

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

START
RESTART

CONT INUE

TESTS

PASS

FLAGS

EOP

UNITS

X
X

*
A

X
X

PROCEED

DROP

ADD
PRINT

DISPLAY

X
X

X
®

FLAGS

ZFLAGS
EXIT

2.3

FLAGS

FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS

LOOPING ON ERROR.

ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN

CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH.
FLAGS
ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE
FLAG SWITCH.
THE ZFLAGS COMMAND MAY ALSO BE USED TC CLEAR
ALL FLAGS.
WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS,
NO COMMANDS AFFECT THE STATE OF THE FLAGS;
THEY REMAIN SET OR

USER DOCUMENTATION CZLNAAQ
CZLNAA.P11

DNMAC X24.07-563 12-JAN-83 08:16 GPAGE >3

12-JAN-83 08:16

CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH.
FLAG

EFFECT

HOE

HALT ON ERROR - CONTROL IS RETURNED TO
RUNT IME senvxces COMMAND MODE

LOE
[E]+
1BR*

LOOP ON ERR
INHIBIT ALL ERROR REPORTS
INHIBIT ALL ERROR REPORTS EXCEPT
FIRST LEVEL

ERROR TYPE,

IXR+

(FIRST LEVEL CONTAINS

NUMBER, PC, TEST AND UNIT)

INHIBIT EXTENDED ERROR REPORTS (THOSE

CALLED BY PRINTX MACRGC'S)

PRI
PNT

DIRECT MESSAGES TO LINE PRINTER
PRINT TEST NUHBER AS TEST EXECUTES

UAM
ISR

UNATTENDED nooe (NO MANUAL INTERVENTION)
INHIBIT STATISTICAL REPORTS (DOES NOT
APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT

BOE

"BELL''

ON ERRO

STATISTICAL REPORTING)
INHIBIT PROGRAM DROPPING OF UNITS

IDR

ADR

EXECUTE AUTODROP CODE

LOT
EVL

LOOP ON TEST
EXECUTE EVALUATION (ON DIAGNOSTICS WHICH
HAVE

EVALUATION SUPPORT)

*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1
SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS.
YOU MAY
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH.
FOR EXAMPLE,
T0 CAUSE

THE

PROGRAM TO LOOP CN ERROR,

AND TYPE
A "BELL'* ON ERROR,

INHIBIT

ERROR REPORTS

YOU MAY USE THE FOLLOWING STRING:

/FLAGS:LOE:]ER:BOE

2.4

HARDWARE QUESTIONS

WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT
THE USER FOR HARDWARE INFORMATION BY TYPING '‘CHANGE HW (L) ?''

YOU MUST ANSWER ‘'Y'' AFTER A START COMMAND UNLESS THE HARDWARE

INFORMATION HAS BEEN "‘PRELOADED'' USING THE SETUP UTILITY (SEE

CHAPTER 6 OF THE XXDP+ USER'S MANUAL).
WHEN YOU ANSWER THIS
QUESTION WITH A "'v'", THE RUNTIME SERVICES WILL ASK FOR THE NUMBER
OF UNITS (IN DECIMAL).
YOU WILL THEN BE ASKED THE FOLLOWING
QUESTIONS FOR EACH UNIT,
#UNITS

UNIT 1

(D)

LP11 ADDRESS: (0)
INTERRUPT VECTOR :

(177514) ?
(0)
(200) ?

SEQ 0006

USER DOCUMENTATION CZLNAAQ
12=JAN-83 08:1
CZLNAA.PT1

DNMAC X24.07-563

2.5

SOFTWARE QUESTIONS

12-JAN=-83

08:16

1
PAGE 3-4

SEQ 0007

AFTER YOU HAVE ANSWERED THE HARDWARE QUE STl ONS OR AF TER A REST ART

THE RUNTIME SERVICE S WILL ASK F OR_SOF
S
TWAR 3

OR CONTINUE COMMAND,

PARAMETERS.

THESE PARAMETERS WILL GOVERN SOME DIAGNOSTI C _SPEC IFIC

OPERATION MODES.
YOU WILL BE PROMPTED BY ''CHANGE SW (L)
1f YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING
"'v'',

,IO

THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED

IN THE NEXT PARAGRAPH(S).

RUN MANUAL INTERVE?TION TESTS
TESTING IN U.S.A

AUTODROP ERROR COUNT

2.6

(D)

(N)

5 ?

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

EXTENDED P-TABLE DIALOGUE

WHEN YOU ANSWER THE HARDWARE QUESTIONS,

YOU ARE BUILDING ENTRIES
THE SIMPLEST
IS TO ANSWER ALL QUESTIONS FOR EACH

IN A TABLE THAT DESCRIBES THE DEVICES UNDER TEST.

WAY TO BUILD THIS TABLE

UNIT TO BE TESTED.
A MASS STORAGE

YOU HAVE A MULTIPLEXED DEVICE SUCH AS

CONTROLLER WITH SEVERAL DRIVES OR

A COMMUNICATION

DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF
THE ANSWERS ARE REPETITIOUS.

TO ILLUSTRATE A MORE EFFICIENT METHOD,

A FICTIONAL DEVICE,

THE XY11.

SUPPOSE

YOU ARE

TESTING

SUPPOSE THIS DEVICE CONSISTS OF

A CONTROL MODULE WiTH EIGHT UNITS (SUB-DEVICES) ATTACHED T0
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS 0 THROUGH 7.

IT
TH

IS ONE HARDWARE PARAMETER THAT CAN VARY AMONG UT%TE g?hkfg L:;
G-FACTOR.
THIS Q=-FACTOR MAY BE 0 OR
1.
BELOg
L
TO BUILD A TABLE FOR ONE

# UNITS (D) ?

XY11

UITH EIGHT UNITS.

B<(R>

UNIT 1

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

UNIT 2

160000<CR>

(SR ADDRESS (0) ?
SUB-DEVICE # (0)
Q-FACTOR (0) 1 ?

UNIT 3

CSR ADDRESS

(0)

SUB-DEVICE # (0)
Q=-FACTOR (0) 0 ?

<(R>

160000<CR>

2<CR>

<(CR>

UNIT &

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

UNIT 5

CSR ADDRESS

(0)

160000<CR>

USER DO(UHEN‘A{ ON CZLNAAO
CZLNAA.P11

-JAN=-83 08:16

DNMAC X24.07-563 12-JAN-B3 08:16 lPAGE 3=5

SEQ 0008

4L<(R>
# (0 7
SUB=-DEVICE
Q=FACTOR (0) 0 ?
<(R>

UNIT 6
CSR ADDRESS (0) ?
160000<CR>
5S<(CR>
SUB=DEVICE # (0) ?
Q=FACTOR

(0)

0 ?

<(CR>

UNIT 7
CSR ADDRESS (0) ?

160000<CR>

6<(CR>
SUB=DEVICE # (0) ?
Q=FACTOR (0) 0 ?2
1<(CR>

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

(D)

<(R>

NOTICE THAT THE DEFAULT VALUE FOR THE Q=FACTOR CHANGES W:'EN A
NON-DEFAULT RESPONSE IS GIVEN.
BE CAREFUL WHEN SPECIFYING
MULTIPLE UNITS!
AS YOU CAN SEE

FROM THE

ABOVE

EXAMPLE,

DO NOT VARY SIGNIFICANTLY FROM UNIT
NOT VERY EFFICIENT.
THE RUNTIME

THE HARDWARE PARAMETERS

TO UNIT.

SERVICES CAN TAKE MULTIPLE UNIT

THE PROCEDURE

SHOWN IS

SPECIFICATIONS HOWEVER.

LET'S BUILD THE SAME TABLE USING THE HU TIPLE SPECIFICATION

FEATURE.

# UNITS

(D)

B<(R>

UNIT 1
160000<CR>
CSR ADDRESS (0) ?
O, 1<CR>
SUB-DEVICE # (0) ?
Q=-FACTOR (0) 0 ?
1,0<CR>

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

(0) 0 ?

O0<CR>

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

AS YOU CAN SEE

1<CR>

IN THE ABOVE DIALOGUE,

THE RUNTIME SERVICES WILL

BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY
ONE PASS THROUGH THE QUESTIONS.
IN THE FIRST PASS, TWO ENTRIES
ARE BUILT SINCE TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED.
THE

SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT

WAS SPECIFIED ONLY ONCE.
IN THE SECOND PASS, FOUR ENTRIES WERE
BUILT.
THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED.
THE
Y'='" CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA
FROM THE FIRST NUMBER TO THE

SECOND.

IN THIS CASE,

SUB-DEVICES

USER DOCUMENTATION CZLNAAO
CZLNAA. P11
12-JAN-83 08:16

DNMAC X24.07-563

12-JAN-83

2, 3, & AND 5 WERE SPECIFIED.

(08:16

PAGE 3-6

SEQ 0009

(IF THE SUB=DEVICE WERE SPECIFIED

BY ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST
BE ON AN EVEN BOUNDARY.)
THE CSR ADDRESSES AND Q=FACTORS FOR
THE FOUR ENTRIES

ARE ASSUMED TO BE

160000 AND O RESPECTIVELY

SINCE #HEY WERE ONLY SPECIFIED ONCE.

SPECIFYED IN THE THIRD PASS.
THE

WHOLE

PROCESS

SHOWN BELOW.

# UNITS

THE LAST TWO UNITS AwE

COULD HAVE BEEN ACCOMPLISHED

(D)

IN ONE

PASS AS

B<(R>

UNIT 1
CSR ADDRESS (0) ?
160000<CR>
0=7<CR>
SUB=DEVICE # (0) ?
Q-FACTOR (00 0O ?
0,1,0,,..1,1<CR>
AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIE S ( $0MMAS ENCLOSING
A NULL FIELD) TELL THE RUNTIME SERVICES TO RE PEAT
THE LAST REPLY.

2.7 GUICK START=UP PROCEDURE

(XXDP+)

TO START=UP THIS PROGRAM:

1. BOOT XXDP+

2. TYPE 'R NAME'', WHERE NAME IS THE NAME OF
FILE

FOR

THIS PROGRAM

THE BIN OR BIC

TYPE "'START"

4. ANSWER THE ''CHANGE HW'' QUESTION WITH *'v*'
5. ANSWER ALL THE HARDWARE QUESTIONS

6. ANSWER THE ''CHANGE SW'' QUESTION WITH "'N''
WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE
DEFAULTS FOR FLAGS AND SOF TWARE PARAMETERS.
THESE DEFAULTS
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5.

3.0 ERROR INFORMATION
3.1

TYPES OF ERROR MESSAGES

THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY
A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED.
GENERAL ERROR _MESSAGES

ARE ALWAYS PRINTED UNLESS THE ''IER'' FLAG IS SET (SECTION 2.3).
THE GENERAL ERROR MESSAGE

NAME
TYPE
NUMBER
ERROR MESSAGE

IS OF

THE FORM:

ON UNIT NUMBER

TST NUMBER PC:XXXXXX

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

USER DOCUMENTATION CZLNAAQ
12-JAN-B3 08:16
CILNAA.P11

DNMAC X24.07-563

12-JAN-83

08:16

1
PAGE 3-7

UNIT NUMBER
= 0 = N (N IS LAST UNIT IN PTABLE)

TST NUMBER
= TEST AND SUBTEST WHERE ERROR OCCURRED
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL

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

EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION

SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA.
THESE ARE ALWAYS
PRINTED UNLESS THE °''IER'', "“IBR"' OR ''IXR'' FLAGS ARE SET (SECTION 2.3).

THESE MECSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR

MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES.

3.2 SPECIFIC ERROR MESSAGES
ERROR
1

DESCRIPTION
"PRINTER ERROR''
ERROR CONDITION IN THE PRINTER

"PRINTER NOT READY''

PRINTER NOT READY TG ACCEPT DATA,

“PRINTER DID NOT INTERRUPT"

"LOADING PRINTER BUFFER DOES NOT CLEAR READY"

FAILURE

IN INTERFACE LOGIC.

INTERFACE

LOGIC.

"PRINTER INTERRUPTED AT SAME LEVEL AS THE

PROCESSOR
FAILURE IN INTERFACE LOGIC.

“PRINTER ERROR"
ERROR CONDITION IN THE PRINTER.

"PRINTER NOT READY''
PRINTER NCT READY TO ACCEPT DATA,

"'PAPER QUT INTERLOCK SWITCH FAILURE"

“PAPER TRAY HANDLE

"FRONT DOOR INTERLOCK SWITCH FAILURE''
FAULTY INTERLOCK SWITCH

FAULTY

INTERLOCK SWITCH

INTERLOCK SWITCH FAILURE"

INTERLOCK SWITCH

"'N
ERROR MESCAGES #11 THRU #12 HAVE BEEN ELIMINATED
13

"INTERRUPT SERVICING FOR THE FOLLOWING

DEVICE DID NOT OCCUR"

SEQ 0010

JSER DO(UHEN!AT ON CZLNAAQ
CZLNAA,PI1

DNMAC X24.07-563 12-JAN-83 08:16 LPAGE 3-8

-JAN-BS 08:16

SEQ 0011

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

"PRINTER STATUS ERROR"
GLOBAL ERROR INDICATING PRINTER ERROR
CONDITION.

“OUTPUT TIMEOUT ERROR''

GLOBAL ERROR INDICATING TRANSMISSION
OF LAST CHARACTER DID NOT OCCUR
WITHIN A GIVEN TIME.

4.0 PERFORMANCE AND PROGRESS REPORTS
PERFORMANCE AND PROGRESS REPORTS ARE

5.0 DEVICE
DEVICE

NOT

SUPPLIED.

INFORMATION TABLES

INFORMATION APPEARS

IN THE GLOBAL DATA SECTION.

6.0 TEST SUMMARIES
TEST

INTERFACE LOGIC
VERIFIES OPERATION OF
TEST

INTERFACE LOGIC BETWEEN THE PRINTER AND THE CPU.

DATA TRANSFER PATHS
CHECKS THE DATA TRANSFER PATHS FROM THE PRINTER OUTPUT
THE PRCCESSOR

TEST
PRINTABLE

INTERFACE.

CHARACTERS

CHECKS FOR PRCPER PRINTING OF ALL PRINTABLE CHARACTERS.

TEST 4
NON=PRINTABLE

CHARACTERS

CHECKS FOR PROPER DETECTION OF
TEST 5

ALL NON-PRINTABLE CHARACTERS.

CONTROL

CHECKS THAT CHARACTERS IN EXCESS OF 132 CHARACTERS ON A LINE

ARE DISREGARDED.

TEST 6
MULTIPLE LINE ADVANCE

CHECKS THE MULTIPLE LINE ADVANCE FOR PROPER PAPER MOVEMENT,

TEST 7
OVERSTRIKE

THE HAC? ] NE'S OVERSTRIKE
MITATIO
BUFFER AND LINE BUFFER LIMITATIONS.
THIS

TEST

CHECKS

CAPABILITY AS WELL AS PAGE

©Oo

DNMAC X24.07-563

SURE

USER DOCUMENTATION CZLNAAO
CZLNAA.P11
12-JAN-83 08:16

12-JAN-83

08:16

THAT THE ERROR BIT

WHENEVER

m1
PAGE 3-9

H THE PRINT E R
IN
INTERLOCK SWITCHES ARE TRI PPED

SEQ 0012

CZUNAAD LNO1 DIAGNOST ég 8%??& X24.07=563
12=JANCZLNAA.P11

12=JAN-83

08:16

PAGE 4

SEQ 0013

ANON)
b =D

d D

= OOVONO
N

oo
M

JTITLE
CZLNAAQ LNO1 DIAGNOSTIC
+ENABL AMA
+SBTTL
IDENTIFICATION

622

PRODUCT

CODE:

AC=T343A-M(

;

PRODUCT NAME:

CZLNAAO LNOT

;

MAINTAINER:

SMALL

AUTHORS :

GLENN A, PERNA

DATE

JAN

DIAG

SYSTEMS DIAGNOSTICS

1983

BY
COPYRIGHT (C) 1983,
;DIGITAL EQUIPMENT CORPORATION, MAYNARD MASSACHUSSETTS 01754
THIS SOFTWARE

IS FURNISHED UNDER A LICENSE

FOR USE

ONLY ON

SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE
SION OF

OTHER

THE

ABOVE

COPJES

THIS

SOFTWARE,

ANY

THEREOF, MAY NOT BE PROVIDED GR OTHERW:SE MADE

AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON
AND
TO
ONE WHO AGREES TO THESE LICENSE TERMS.

OWNERSHIP OF

INCLU-

SUCK
TITLE

SYSTEM
TO AND

THE SOFTWARE SHALL AT ALL TIMES REMAIN In DEC.

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL

EQUIPMENT CORPORATION.

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

85 08:

AC X24.07-563
12=JAN-83 08:16
16
IDENTIFICATION

PAGE 5

SEQ 0014

CZLNAAD LNO1 DJAGNOST
12=JANCZLNAA. PN

FUNCTIONAL DESCRIPTION
THIS DIAGNOSTIC PROGRAM VERIF IES PROP
PR
ER OPERATION OF THE LNO1
LINE PRINTER, AND IT'S ASSOCI ATED | N TERFACE MODULE.

A TOTAL OF

16 PRINTERS CAN BE TESTED.

THE PROGRAM CONSISTS OF

T-B-S TESTS,

;:EPPROGRAH IS COMPATIBLE

TO THE PDP=11

DIAGNOSTIC SUPERVISOR,

’.

VERSION

A=0

HISTORY

REV.

JAN
A=0

GLENN A, PERNA

1983

INITIAL RELEASE

ACT/SLIDE, AND

CZLNAAD LNO1 TEST
DNMAC X24.07-563 12-JAN-B3 08:16
CZLNAA.P1Y
12-JAN-83 08:16
IDENTIFICATION
655
gg?
658
659
660
661
66%
66

«MCALL
SVC
sv(
JMCALL
STRUCT
STRUCT
SLSTIN=
SLSTTAG=

000000°*
000000°

ggg

666
667
668
669
g;?

000000
000900
000000
000000
000000

SVCINS=
SVCIST=
sv(sue=
SV(GBL=
SVCTAG=

002000

+ENABL AMA
.ENABL ABS
LENABL LC
.=2000

672
673
674
g;Z
677
g;g

002000
002000

680

002000

(4)
(4)

002000
002001

002000

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

002002
002003
002004
002005
002006
002007
002010

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

092011
00201
002012
002012
002014
022014
002016
002016
002020
002020
002022
002022
002024
002024
002026
002026

(4)
(5)

002030
002032

(4)

(5)

SEQ 0015

LTITLE
CZLNAAD LNOT TEST
.SBTTL PROGRAM HEADER

000000
00000
17777

(4)

PAGE 6

002010

002030

$LOCTAG=

8
0
0
0

sLIST
sLIST
sLIST
sLIST
sLIST

;INITIALIZE SUPERVISOR MA(CROS
sSTRUCTURED MACRO PACKAGE
s LIST ASSY CODE LEFT
s LIST TAGS LEFT

0
0
-1
INSTRUCTIONS
TEST TAGS
SUBTEST TAGS
GLOBAL TAGS
OTHER TAGS

BGNMOD
POINTER BGNSW,BGNSFT

103
132

LSNAME : :

114
116
101
000
000

000
101

060
000000
000060

022140
022220

002222

002234
022370

000000

LSREV::
LSDEPO: :
LSUNIT::
LSTIML::
LSHPCP: :
LSSPCP::
LSHPTP::
LSSPTP::
LSLADP: :

LS$STA::
L$CO::

HEADER

(ZLNA,A,0,60,1,340

JASCII /C/
JASCIT 72/

JASCII
JASCII
LASCII
.BYTE
.BYTE
.BYTE

7L/
/N/
/A7
0
0
0

LASCIT

/A/

LASCIT

70/

WORD

.WORD

LSHARD

.WORD

LSSOFT

.WORD

LSHW

LWORD

L$SW

LWORD

LSLAST

WORD

;DIAGNOSTIC NAME

+REVISION LEVEL
:0
;NUMBER OF UNITS
sLONGEST

TEST

TIME

sPOINTER TO H.W. QUES.
;POINTER TO S.W. QUES.
:PTR,

TO DEF. H.W. PTABLE

:PTR.

TO S.W. PTABLE

:DIAG. END ADDRESS

sRESERVED FCR APT STATS

-+4

> >
))

WEHE VNS VE VS WVESWVWESWVWESWVESWVNESRWVNESWVNESWVESWVNESWVEWVEWVESWONEWMEWVWNESVIWNEWVEWNESWOMEBWOBNESONEWOBESONS

N
N
o
o N
P N
P N
N
N
N
N
o N
N
N
N
N
"
—

OF 7 7

P~~~ T~~~ P~~~ T~~~ P~~~ T~~~

T~~~

T~~~ T~~~

~ ~

(alal
~~

0 LNOY TE%
P11

002032
002034
002034
002036
002036
002040

002040

002065
002042
002044
002044
002046
002046
002050
002050
002051
002052
002052
002054
002056
002056
002060
002060
002062
002062
002064
002064
002066
002066
002070
002070
002072
002072
002074
002074
002076
002076
002100
002100
002102
002102
002104
022104
002106
002106
002110
002110
002112
002112
002114

002114
002116
002116
002120
002120

DNH x24.07-563

JAN=-83 08:1

000000
000001

000000

002132
000340

000000

000200
003
003
000000
000000
000000
002212
000000

000000
000000
000000
000000
000000
002152

104035
000000
005456
007232
002226
002122

000000
000000
000000

12-JAN-83

08 16

PROGRAM HEADER

LSDTYP::
LSAPT::

LSDTP::

LSPRIOD::
LSENV]::

LSEXP1::
LSMREV::
L$EF::
LS$SPC::
LSDEVP::
LSREPP::

LSEXPL::
LSEXPS::

LSAUT::
LSDUT::
LSLUN::
LSDESP::
LSLOAD::
LSETP::

LSICP::
L$CCP::
LSACP::
LSPRT::
LSTEST::

LSDLY::
LSHIME::

D
PAGE 6-1

LWORD

LSDISPATEH

LWORD

340

LMWORD

LWORD

sDIAGNOSTIC TYPE
sAPT EXPANSION

PTR. TO DISPATCH TABLE

:DIAGNOSTIC RUN PRIORITY

sFLAGS DESCRIBE HOW [T WAS SETuUP

sEXPANSION WORD

LWORD
LWORD

sSVC REV AND EDIT #
(SREVISION
CSEDIT
;DIAG. EVENT FLAGS
O
O

LWORD

LSDVTYP

LWORD

WORD

LWORD

.WORD

LSDESC

EMT

ESLOAD

LWORD

.WORD

LSINIT

LWORD

LSCLEAN

.WORD

L$AUTO

.WORD

LS$PROT

.WORD

LWORD

LBYTE
LBYTE

s POINTER TO DEVICE TYPE LIST
sPTR. TO REPORT CODE

sPTR. TO ACD UNIT CODE
;PTR. T0 DROP UNIT CODE
sLUN FCR EXERCISERS TO FILL
sPOINTER TO DIAG. DESCRIPTION
sGENERATE SPECIAL AUTOLOAD [Mmr
;POINTER TO ERRTBL

sPTR, TO INIT CODE
sPTR. TO CLEAN-UP CODE
sPTR. TO AUTO CODE
sPTR, TO PROTECT TABLE
sTEST NUMBER

sDELAY COUNT
sPTR,

TO HICH MEM

SEQ 0016

CZLNAAD %NO\ TEST
CILNAA.PIT

12-JAN-83 08:16

ggk
685

(3)
686
687
688
689

DNMAC x24.07-563 12-JAN-B3 08:16 PAGE 6-5
PROGRAM HEADER
;

;s THE FOLLOWING IS A LOAD PROTECTION TABLE

002122

002122
002122
002126
002126
002130

)

000000
177777
177777

LS$PROT::

BGNPROT

MORD
O
‘WORD
=1
"WORD
=1
ENDPROT

SEQ 0017

CZLNAAO LNOT1 TEST
DNMAC Xx24.07-563
12-JAN=-83 08:16
CZLNAA.PTI
12-JAN-83 08:16
DISPATCH TABLE
231

SBTTL

282

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

(6)
(6)
(6)
(6)

é8$

002130

(3)
(3)
(3)
(3)
(3)
(2)

703
(4)

(3)

vV e

(2)

706

SEQ 0018

DISPATCH TABLE

002130
002132
002132
002134
002136

002140
002142
002144
002146

002150

THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST.
1T

IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST.

!
000010
007426
0107%2
011356

01%020
013050
014302
014770

DISPATCH

.WORD
LSDISPATCH::
LMWORD
.WORD
LWORD

.WORD

LWORD
LWORD
LWORD
LWORD

016522

;8?
702
(4)
(3)

144

694

698

PAGE 7

002160
002166
002174
002202
002210
002212
002212

002212

055103

020060
050040
051105
047107
000103

047114

002220

047114

044514
044522
042040
051517

030460

040501

042516
052116
040511
044524

000

LSDESC::

T4
TS
T6
17

DESCRIP
+ASCIZ

.EVEN
DEVTYP
LSDVTYP::

LASCIZ

.EVEN

TESTS

T
1%
T

sFOR USE ON REVISION C OF
002152
002152
002152

:X= NUMBER OF

THE SUPERVISOR

<CZLNAAQD LINE PRINTER DIAGNOSTIC>
/CZLNAAO LINE PRINTER DIAGNOSTIC/

<LNO1>

/LNOV/

CZLNAAD LNOT TEST
DNMAC X%24.07-563 12-JAN-83 (08:16 PAGE 8
CZLNAA.PI1
12-JAN-83 08:16
DEFAULT HARDWARE P=TABLE
708

.SBTTL

SEQ GO19

DEFAULT HARDWARE P-TABLE

;00

THE DEFAULT HARDWARE P=TABLE CONTAINS DEFAULT VALUES OF

;}2

IS IDENTICAL TO THE RUN=TIME P-TABLE.

712

715

716
(3)
(3)
(3)

002220
002220
002222
002222

;}g

002224

717

002222

000002
177514

002226
002226

726
727

002226

;%g

002226

731
(3)
(3)

002230
002230
002230

;3&

BGNHW
LWORD

DFPTBL
L10001-L$HW/2

LMORD

177514

.WORD

THE STRUCTURE OF

:LP11

200

:LP11

THIS TABLE

INTERRUPT VECTOR

SINTERRUPT VECTOR PRIORITY IS & AND CANNOT BE CHANGED

723
(3)

724
725

L$HW::
DFPTBL::

000200

;%?
722

THE TEST=DEVICE PARAMETERS.

L10001:

002226

L$AUTO: :
000240

104461

ENDHW

BGNAUTO

NOP
L10002:

: NOT USED

ENDAUTO
TRAP

($AUTO

CZUNAAO LNO1
CZLNAA.P1T

TEST

DNMAC X24.07-563

12=JAN-83 08 :16

12-JAN-83

08:16

SOF TWARE P=-TABLE
.SBTTL

PAGE 9

SEQ 0020

SOFTWARE P-TABLE

: THE SOFTWARE P=TABLE CONTAINS THE VALUES OF THE PROGRAM

000002

000900

PARAMETERS THAT

LS$SW::
SFPTBL::
INHINT:

CAN BE CHANGED BY THE OPERATOR.

BGNSW
LWORD

SFPTB%
L10003-L%Sw/2

,WORD

50 IF NO INTERVENTION TESTS
:1

IF MANUAL

INTERVENTION TESTS

sDEFAULT IS NO
002236
002240
002240

000005

MAXERR:

.WORD

AUTODROP ERROR COUNT

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

L10003:

ENDSW

CZLNAAD LNO1
CZLNAA.PTT

TEST

12°JAN-83

x24 07-563

12=JAN-83 (08:16 PAGE 10l

SEQ 0021

170 MACRO DEFINITIONS
.SBTTL

/0 MACRO DEFINITIONS

.MACRO

OgYPUT

:gD+BFCNT ERR,PRINTS

MOV
MoV
ERR
Mov

BF CNT,BUF CNT
#-1,PRINTR

.IF B

LENDC
.IF NB

D,BUFADD

sSAVE THE BUFFER ADDRESS
sBUFFER BYTE COUNT BF(CNT
s OUTPUT TO ALL UNITS

#LPERR,ERRSVC

ERR

MOV

ERR,ERRSVC

-ENDC
.IF B PRINTS
o
MOV

.IF NB PRINTS

#1,BUFREP

PRINT ONCE DEFAULT
SUPPLY PRINT

MOV

PRINTS,BUFREP

.ENDM

QUTPUT

JSR

PC,10CTRL

:CALL THE DRIVER

QUTPUI

ADD,BFCNT,ERR,UNIT,PRINTS

ggx

BF CNT,BUF CNT

MOV

#LPERR,ERRSVC

ERR
MOV

ERR,ERRSV(

’

.MACRO

= g

)

LENDC
.IF NB

MOV

ADD . BUF ADD

.ENDC
.IF B PRINTS
e
MOV

’

—

:SAVE BUFFER ADDRESS

*BUFFER BYTE COUNT BFCNT

#1,BUFREP

PRINT ONCE DEFAULT

MOV

PRINTS,BUFREP

SUPPLY PRINT

MOV

UNIT,PRINTR

: SUPPLY UNIT NUMBER

.IF NB PRINTS
i

COUNT

JSR

PC,10CTRL

COUNT

SCALL THE DRIVER

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

: A TIMEOUT OF 20. SECONDS IS FURNISKED BASED ON THE FOLLOWING ASSUMPT [ONS :

;

A PRINTER SPEED OF 300
L

A REPEAT COUNT OF 88 HAX " PAGE OF LINES AT 8 LPI. )
AN INITIAL BAND STARTUP TIME OF

2.5 SECONDS.

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

TR R

x 4]
O

002240

8
802

CZLNAAD LNO1 TEST
DNMAC Xx24.07-563 12-JAN-83 08:16
12=-JAN-83 0 :16
CZLNAA.PI
GLOBAL AREAS
.SBTTL

806

PAGE 11

SEQ 0022

GLOBAL AREAS

002240

BGNMOD
:00

D e

BIT13==
BIT12==
BIT11==
81T10==
81709==
BIT08==
BIT07==
BIT06==
BIT05==
BIT04==
BIT103==
BIT02:==
BIT01==
BIT00==

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

BI1T9==
BIT8==
BIT7==
BITé==
BITS5==
BIT4==
BIT3==
BIT2==
BIT1==
BIT0==

BIT09
BITO8
BITO7
BIT06
BIT0S
BIT04
BITO03
BIT02
BITO1
BITO0

s EVENT FLAG DEFINITI
EF32:EF17 RESERVE
*

i
D
he

000040

000034

EF.SYAR ss

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

D D i

b o o

D
S

D D D i

P N N S N N N N

D
e
i
D e e e
D
e
e
D e

000001

P~~~ T~

THAN ONE

BIT14== 40000

D D

e o o N N N e N N N N N N N N N N N o N N N N N N

IN MORE

8I1T15== 100000

P~ P

h lh d d
i e

.. .

USED

: BIT DIFINITIONS

001000

N e

ARE

EQUALS

000001

—

THAT

002240

D e

o o ot NN\

T~~~ T~~~ P~~~ PP~ PP~~~ P~~~ ~ ~ 7~ D 00 00

s THE GLOBAL EQUATES SECTION CONTA g? PROGRAM EQUATES

OR SUPERVISOR TO PROGRAM COMMUNICATION

32.

3.
30.
29.

28.

: PRIORITY LEVEL DEFINITIONS

000340
000300
000240

PRIO7== 340

PRI06== 300
PRI0S== 240

: START COMMAND WAS ISSUED
;

RESTART COMMAND WAS

ISSUED

: CONTINUE COMMAND WAS ISSUED
: A NEW PASS HAS BEEN STARTED

: A POWER=-FAIL/POWER=-UP OCCURRED

CZLNAAO LNO1 TEST
CZLNAA.P11
12=-JAN=83

NMAC X24.07-563
12-JAN-83 08:16
08:16
GLOBAL AREAS

KS)

000200

PRIO4== 200

(1)
(1)

000100
000040

PRI02== 100
PRIOT== 40

g};

000140

000000

z};

(1)

PRI00== 0

:OPERATOR FLAG BITS

000004

EVL==

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

T==
ADR==
1DU==
ISR==
UAM==
BOE ==
PNT==
PR]==
IXE==
1BE==
1ER==
LOE==
HOE==

821
822
823
ggg

000012
000014
000015
000177

LF==12
FF==14
CR==15
DEL==177

828
829
830
831
832
833
gglso

SEQ 0023

PRI03== 140

N
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(N
é}%

g%?

K 2
PAGE 11=1

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

GLOBAL ERROR CODES FOR USE BY GENERAL ERROR ROUTINE

000001
000002

&TATER= 1
TIMOUT= 2

000003

NOINTR= 3

;TRANSMITTER STATUS ERROR IN OUTPUT
:TIMEOUT ERROR IN 10 DRIVER MODULE
:THIS ERROR INDICATES THE LAST CHARACTER
:WAS NOT TRANSMITTED WITHIN A GIVEN TIME
:GROSS TIME OUT ERROR. THE SPECIFIED DID NOT
s INTERRRUPT, THEREFORE 10 DRIVER MODULE WAS
:NOT CALLED

-SBTTL GENERAL REGISTER USAGE DEF INITIONS

§§9

838

‘R0

840

‘R2

839

RESERVED FOR USE BY THE MACRO PACKAGES

MAXIMUM NUMBER OF UNITS TO TEST LSUNIT=1

841
842

:
:R3

PRINTER TABLE
TEMPORARY STORAGE

844
845
846
847
848
849
850

:RS
‘R
‘R7
:

STACK POINTER
PROGRAM COUNTER

gg}

853

UNIT NUMBER BY 2. USED TO CALCULATE OFFSET INTO PROPER

: LP STATUS TABLE BIT DEFINITIONS

100000

ERROR
= BIT1S

CZLNAAD LNOT

CZLNAA.PTIT
854

TEST

DNMAC X24.07-563

12-JAN-83 08:16
040000
020000
000377

12-JAN-83

08:16

PAGE 11<2

GENERAL REGISTER USAGE DEFINI
TIONS

DROPED = BIT14
ACTIVE = g;T‘IS
LOBYTE =
377

: BIT MASK FOR CLEARING LOBYTE
(COUNTER)

SEQ 0024

CZLNAAO LNO1 TEST
DNH XZA 07-563 12-JAN-83 (08:16 PAGE 12
CZLNAA.PIT
12=-JAN-83 08:1
GLOBAL DATA SECTION

gg?
X

864
865
866
867
868
869
870
871

872

g;z

SEQ 0025

.SBTTL GLOBAL DATA SECTION

002240
002242
002244
002246
002250
002252
002254
002256

002260

000000
000000
000000
000000
000000
000000
005000
000000

000200

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

LUNIT:

.WORD
,WORD
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD

.WORD

0
O
O
O
0
0
0
0

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

sUNIT COUNTER FOR SINGLE UNIT TESTING

:UNIT _COUNTER FOR ERROR

322RBESTS NOT USING THE OUTPUT

875

002262

000000

PTABAD:

.WORD

SE%E%TED LINE NO.

878

002266

000000

CLKTYP:

.WORD

:CLOCK TYPE CONTROL WORD

g;g
879

880
881
882
883
884
885
886
887
888
889
890
891

gg%

894
ggg

002264

000000

PRINTR: .WORD

002270
002272
002274
002276
002300
002302

000000
000000
000000
000000
000000
000000

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

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

O
O
O
O
O
O

002304
002306

000000
000000

ERRFLG: .WORD
uuT:
WORD

0
0

002310
002312

000000
000000

INDEX:
VFUCMD:

.WORD
.WORD

0
0

¢MACRO

VARIABLES

ggg

P-TABLE ADDRESS RETURNED BY GPHARD

:1= NO_CLOCK AVAILABLE

;2= KW1l=L LINE CLOCK
;3= KW11-P_PROGRAMABLE (CLOCK
: CLOCK P-TABLE ADDRESS
sCLOCK CSR ADDRESS
¢ CLOCK TIME SET REG ADDRESS
;CLOCK VECTOR ADDRESS
sCLOCK ENABLE BITS
sERROR CODE TYPE FOR GENERAL
sERROR ROUT INE
sEXPECTED ERROR INDICATOR
s # UNITS ACTUALLY UNDER TEST
;EXITS BACK TO IO DRIVER EQUAL

:1 IF ERROR WAS EXPECTED.

899
900
gg;

002314

000000

BUFADD: .WORD

002316

000000

BUFCNT: .WORD

sBUFFER ADDRESS OF DATA TO BE SENT
:T0 THE PRINTER
:NUMBER OF BYTES T0 TRANSFER

ggz

002320

0000C0

BUFREP: .WORD

: NUMBER OF TIMES TO PRINT

905
906
ggg

:
.
;LNO1 PARAMETER WORD TABLES

909

002322

000020

LPCSR:

. REPT

912
913

002362

000016

LPVEC:

.REPT
LWORD

915

002416

000020

LPBUF:

910
911
914

.WORD
.ENDR
.ENDR

16.

; ADDRESS OF (SR FOR EACH LP1

16
0

; INTERRUPT VECTOR ADDRESS

.REPT 16,

: DATA BUFFER REGISTER ADDRESS

SEQ 0026

GLOBAL DATA SECTION

0
002456

000020

STATUS: .

16,

: UNIT STATUS

002516

000020

CURADD:

16,

;

CURRENT ADDRESS OF OUTPUT DATA BYTE

002556

000020

MSGCNT:

16.

;

INITIAL BYTE COUNT OF MSG FOR REPEAT RESTORE

002616

500020

REPCNT:

16.

;

NO. OF

002656

000020

MSGADR:

16.

;

ADDRESS OF

002716

000020

CURCNT:

;

CURRENT COUNT REMAINING TO OUTPUT

002756

000020

LFINTR:

+ENDK
.REPT

INTERRUPT ROUTINE ADDRESS

003016

000020

DELCNT:

+ENDR
«REPT

;

TIMEOUT DELAY COUNTER

003056
003060

000000
000020

ERRTBL::

03120

000000
000900

WORK1:

WOR:K:

.WORD
.WORD

.SBTTL

OUTPUT BUFFER

03122

ERRSVC:

0
0

-WORD

.WORD
.ENDR
+WORD

REPT

.WORD
.ENDR

16.

TIMES TO REPEAT MESSAGE
DATA TO PRINT

033124

000226

:
QUTBUF

Vv £

3P
Y I

;

150.

START OF

: ERROR ROUTINE DISPATCH ADDRESS
; ERROR COUNT FOR EACH UNIT

WORK AREA

2150 BYTES IS RESERVED FOR THE OUTPUT BUFFER AREA
M=

928

X24 07-563 12-JAN-83 08 16 PAGE 12-1 .

mwnm

NOWNS WO Yoo~N o

PNONRONINURI
NN b b s ord

VOOV OOVOOOOOO O

CZLNAAO LNO1 TEST
12- JAN-83
CZLNAA P11

DATA

CZLNAAD LNO1 TEST
CZLNAA.PTT
12=JAN-8

NHAC X26.07-563

3 08:1

963

12=-JAN-83 08:16 PAGE 13
GLOBAL TEXT SECTION
.SBTTL

GLOBAL TEXT SECTICN

.NleT BEX
THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,

: MESSAGES, AND ASCII INFORMATION THAT ARE USED IN

NESIONMN
SN &

—ii

A\ S| e

i e \ SN

NOMNON
= NN O NN

[=]elelelelelelelele]
SOV
NN &~ &~
NONNONO —-=OMNN

i \ S} i

PIN O =2 O N = s
SOPNSAN=O
-

- ASY e A ) D

[=]lelelelelelelelele]

NSNS WDNE
OHfOHNNONNN

cP R
N A
I
I
e N e
COOMN=MNINONINININD
N=NNO
SO OOO0O

WWIN NN NN N NN W
NSNOOAWVNWNIES SN
WO VIR NN
= N
N = PSS OWVINON

[olelelalelelele]
[(=lelelelelelele]

~
W

: MORE

THAN ONE

TEST.

CSRERR: .ASCIZ /PRINTER ERROR/

RDYERR:
PAPSWI:

HANSWI:

DOOSWI:
INTER1:
TXERR:

OUTTIM:
TXNOIN:

ugsggo:

.ASCIZ /PRINTER NOT READY/
.ASCIZ /PAPER OUT INTERLOCK SWITCH F AILURE/

INTERLOCK SWITCH FAILURE/
.ASCIZ /FRONT DOOR INTERLOCK SWITCH FAILURE/
.ASCIZ
/TRANSMIT INTERRUPT TIMEOUT/
.ASCIZ /PAPER TRAY WANDLE
.ASCIZ

/PRINTER STATUS ERROR/

.ASCIZ

/UNIT FAILED TO INTERRUPT/

.ASCIZ

JASCIZ

/OUTPUT TIMEOUT ERROR/

/ALL UNITS HAVE BEEN DROPPED..RESTART../

.LIST BEX

993

995

996

004046

j=l=lelelel]

OO O =t
VIO"NNOON

040445

VWAV

004002

[=lelelelele]

992

: FORMAT STATEMENTS USED IN PRINT CALLS
LPDROP:

,ASCIZ

/XALP11 UNIT XD2%A DROPPED FROM TESTIN/

SEQ 0027

CZUNAAD LNO1 TEST
DNMAC X24.07-563 12-JAN-83 08:16
CILNAA.PIT
12-JAN-B3 08:16
GLOBAL SUBROUTINES

PAGE 14
SECTION

)

ggg

.SBTTL

1000
1001
}88

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

1004

N = L

5)
1033
7)
103¢
5)
8)
1035
&)
5)

"
FUNCTIONAL DESCRIPTION:

SUBROUTINE TO PRINT THE GENERAL ERROR INFORMATION.
PRINTS THE ERROR MESSAGE

IN THE

FOLLOWING FORMAT:

“ERROR AT CSR XXXXXX UNIT vy*
WHERE

XxxxxX=
YY=

DEVICE CSR ADDRESS
UNIT NUMBER THAT FAILED

CALLING SEQUENCE
JSR PC,LPERR

REQUIRED PARAMETERS

ERRCOD MUST BE SET TO ONE OF
UNDER ERROR CODES.

THE ERROR CODES DESCRIBED

PR PRPR

PR PRPR PR
PRTR PR
RTR PR
TRTR PR

DR LR 1)

SECTION

PR PR

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

IT PRIOR TO EXITING.

I TA

NN O RO NN AN NI NINININININ)
= = b e b b o b 0 O OO
o o
e OO O N
WN 2 OOV N
VS W =O YO~

WWAN VWA VIR AN
N b o "o o o o o o

—

D e

=D D

e talaieliaiatyei A d=l=leleleleleleleleloleleololelelelelolele
=]

1005
1006

GLOBAL SUBROUTINES

004050
004050
004054
004056
004064
004066
004070
004074
004076
004076
024100
006102
004104

013746
002455
023727
003051
006316
062716
013607

002302

004122
0041264

000003

004076
50000%:

004214
004106
004134
004162

004106
004106

004106
004106
004112
004112
004116
004122

LPERR:

002302

50003$%:
005262

003060

010237
006237

002074
002074

104456
000016

SELECT ERRCOD OF 3 VERIFY
MOV
ERRCOD,=(SP)
BLT
50005%
CMP
ERRCOD,#3
BGT
50005%
ASL
(SP)
ADD
#50000%, (SP)
MOV
a(SP)+,PC
.WORD
.WORD
.WORD
.WORD

sSELECT PROPER MESSAGE FORMAT

50004%
50003%
50002%
50001%

CASE 1

;STATUS ERROR

LET ERRTBL(R2) := ERRTBL(R2) + #
INC
ERRTBL (R2)
LET LSLUN := R2 SHIFT =1
MOV
R2.LSLUN
ASR
LSLUN
ERRHRD
14,TXERR
TRAP
.WORD

CSERHRD
14

SEQ 0028

CZLNAAD LNO1 TEST
DNMAC x24.07-563 12-JAN-83 0B8:16
CZUNAA.P11
12-JAN-83 08:16
GLOBAL SUBROUTINES
(5)

004126

1037
(&)
(5)
1038
(7)
1039
(5)
(8)
1040

0041 %
004132
004134
004134
006134
0043740
004140
004144
004150

(5)
(5)

004152
004154

000017
003654

1042
(4)
(5)
1043
1064
(7)
1045
(5)
(8)
1046
(&)
(5)
(5)
(5)
1047
1048
1049
1050
(3)
(3)
(2)
(3)

004160
004160
004162

000415

004206
006206
004210
006210
006214

1052
(6)
(19)
1053
1054
(4)
1055
(7)

004214
026214
004222
004224
004230
006230
004230
006230

163&

(4)

152%

153%

1056
(4)
1057
(4)
}823
1060

004130

004150

004156

004162
004162
004166
004166
004172
004176

004176
004200
004202
006204

003627

LMORD

WORD

000430

CASE 2
BR

50006%

000000

500028
:

005262

003060

010237
006237

002074
002074

104456

CASE
BR

005262

003060

INC

010237
006237

002074
002074

MOV
ASR

104456
000020
003701
000000

TRAP
MORD
"WORD
WORD

ENDSELECT
BR
50005$:
ADD
50004%:

000402
062706

000002

+ #1

(SERHRD

15
QUTTIM

WORD

50001$:

;0UTPUT TIMEOUT ERROR

LET ERRTBL(R2) := ERRTBL(R2)
INC
ERRTBL (R2)
LET LSLUN := R2 SHIFT =1
MOV
R2,LSLUN
ASR
LSLUN
ERRHRD
15,0UTTIM
;
MORD
.WORD

000000

SEQ 0029

TXERR

TRAP

006214

004236
004236
004242
004242
004250

0.3
PAGE 14=1
SECTION

O
3

50006%
:
NEVER RECIEVED THE INTERRUPT
LET ERRTBL(R2) := ERRTBL(R2) + #1
ERRTBL (R2)
LET LSLUN := R2 SHIFT =1
R2,LSLUN
LSLUN
ERRHRD 16, TXNOIN
CSERHR
16
TXNOIN
O

50006%
#2,SP

500068 :

026237
003402

004737

003060

IF ERRTBL(R2) GT MAXERR THEN
CMP
ERRTBL
(R2) ,MAXERR
BLE
50007$

002236

005314
500078:

042762

100000

005037

002302

012772
000207

000100

002456

JSR PC,DROPIT
ENDIF

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

LET QLPCSR(R?2) := #100
MOV
#100,3LPCSR(R2)
RTS
PC

002322

; MAXIMUM ERROR COUNT EXCEEDED

: CLEAR THE ERROR BIT AND ENABLE

;AND EXIT

S SEES S SSSSSSSSSSSS22SESESSS2ES222s22C2323s3s 32222

INTERRUPTS

CZLNAAO LNO1 TEST
DNMAC X24.07=563 12-JAN-83 08:16
CZLNAA.P11
12-JAN-83 08:16
GLOBAL SUBROUTINES

PAGE 14=2
SECTION

SEQ 0030

1061
106
106
1064
1065

: BIN2DA
;
;
:
;

1067

JS==EZ=EZ==S==SSSSSSSSSSSSSSSSSSSSSSSsSsSSSSSSsSSsssssssssssssssssss

1066

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 AL"I11 STRING. 5 DIGITS WILL BE CONVERTED
LEADING ZErOES WILL BE CONVERTED TO SPACES.

CALL BY JSR

1068
1069
(2)
(3)

004252
006252
004256

010446
010546

(4)

004256

016504

000006

MOV

004262

012705

004444

MOV

004266

005037

004456

CLR

004272

005037

004460

012737

000004

1070

004256

1071

004262

1072

004266

1073

004272

1075
(5)

004276
004276

(4)
(4)

(4)
1074

(7)

(6)
(10)
(7)
(7)
(9)

1076
(4)
(6)

(10)
1077
(7)
1078
(7)
1079
(4)
(3)
1080

1081
(6)
(8)
(6)
(10)

(6)
1082
(7)

1083
(4)
1086
(7)
1085
(4)
(3)
1086

004304

004306
006306
004312
0064312
004316

004320
004320
004320
004324
004326
004326
004332
004332
004336
004336
006349

004340
006340
004344
004346
004352
004354
004354
004354

004362
004362
004366
006366
004372
006372
004374
004374

000402

BIN2DA:

005337

004462

005737
002435

004462

026615
002405

000010

161566

000010

005237

004460

052737

000060

113724

004460

005237

004456

000402

: GET ADDRESS FOR ASCII STRING

LET RS

6(SP) R4

:= #TABLDA

#TABLDA,RS

GET ADDRESS OF

DECIMAL

: LEADING ZERO FLAG

FLAGDA

LET COUNTD := #0

CLR
COUNTD
; 8.(SP) HAS NUMBER TO BE

CONVERTED
DECR DIGITS FROM #4 TO #0 BY #1 ; DO S DIGITS
MOV
#4,DIGITS

004462
500118
:

50010$:

50013$:

500148$:
004460

LET R4 := 6(SP)

LET FLAGDA := #0

000770

005737
003003
005737
003410

PUSH R&,RS
MOV
R4, =(SP)
MOV
RS.=(SP)

PC,BIN2DA

004456
50015$:
004460

50010$

DEC

DIGITS

£31
BLT

DIGITS
50012%
WHILE 8.(SP) GE

(RS) DO

CMP
BLT

8.(SP), (RS)
50014$
LET 8.(SP) := 8.(SP) = (RS)
SU%
(RS),8. (SP)
LET COUNTD
:= COUNTD + #1
INC
COUNTD
ENDDO
BR
50013$
:

CONVERT DIGIT TO ASCII OR SUPPLY A SPACE
IF COUNTD GT #0 OR FLAGDA GT #0 THEN
ST
COUNTD
BGT
50015%
ST
FLAGDA
50016%
BIS

LET COUNTD
#60,COUNTD

:= COUNTD SET.BY #60

LET (R4)+ :B= COUNTD
COUNTD, (R4)+
LET FLAGDA := FLAGDA + #1
INC
FLAGDA
ELSE
BR
50017%
MOVB

50016%:

; CREATE A DIGIT

LET

(R&)+

:B= #40

TABLE

CZLNAAD LNO1 TEST
DNHAC X26.07-563 12-JAN-83 08:16
CZLNAA.PT1
12=JAN=83 08:1
GLOBAL SUBROUTINES
(4)
1087
(4)

1088

1089

(7)
1090

1091
(5)

(&'
1oc§

1093

004374
004400

004400

#40, (R4)+
NDIF

50017%:

LET ks

00 INE
usxt DIGIT

062705

000002

ADD

005037

004460

004410
004412

000736

CLR
COUNTD
ENDDECR

004406
004410

004412

1098
(2)
(3)
1099
(7)

004432
006632
004434
004436
004436

004424

004426

004456

112744

000060

016666

1103

004444

023420

1106
1105

004456
004460

000000
000000

000012

000010

000000

001750

50011$

IF NUMBER WAS A ZERO PRINT A '0°

FLAGDA
50020%
LET =(R4) :B= #60
MOVB
#60,=(R&)
ENDIF
: CLEAN UP THE STACK AND EXIT
LET 8.(SP) := 4(SP)

MOV

RS,.R&
(SP)+ .as
(SP)+.R
:= SP +
aL.S

TABLDA:

.WORD

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

FLAGDA:
COUNTD:

.WORD
.WORD

0
0

RTS

000144

4(SP),8.(SP)

POP
MOV
MOV
LET SP
ADD

000004

000001

:= #0

ST
BNE

012605
012604
062/46
000207

004462

000004

#2,R
LET COUNTD

IF FLAGDA EQ #0 THEN

50020$:

004442

004452

500128
:

005737
001002

1100

}}89

MOVB

004400
004404

006412
004416
004420
006420
004424
004424

000040

006400

(6)
(10)
1094
(4)
1095
(4)
1096
1097
(4)

112724

F_3
PAGE 14-3
SECTION

DIGITS:

.WORD

SEQ 0031

VNI R~ =~ O O~ 000 N0 O = WV I NN = O O 00~

s D D o

= N NINU NI NI NIND b b e
N N S N SN N = N NO AU NI

SBTTL

SEQ 0032

RTI.

:ENTER ROUTINE WITH R2 SET UP TO DESIRE D UNIT #2, R2 IS USED
;70 CALCULATE OFFSET INTO PROPER TABLE.
sR1 EQUALS MAXIMUM NUMBER OF UNITS ON S YSTEM UNDER TEST.

* CHECK FOR ERROR FLAG IN STATUS REG.
004464
004464
004472

032772
001061

100000

002322

f0DRV:

IF #BIT15 NOTSETIN GLPCSR(R2)
#B1T15,aLPCSR(R2)
BIT
BNE
50021%

THEN

* IF CCUNT NOT ZERO SEND NEXT BYTE
004474
004474
004500

005762
003416

002716

117272

002516

005262

002516

IST

004536

04536
004536
004542

004576

052762

020000

005362

00c/16

052772

000100

002456

8IS
BR

002616

005762
003424

002616

016262

002656

002516

MOV

016262

002556

002716

MOV

002416

MOVB

002516

LET STATUS(R2) := STATUS(R2) SET.BY #A(CTIVE
#ACTIVE,STATUS(R2)
LET CURCNT (R2 )

ELSE

DEC
ST

BLE

INC

:= CURCNT(R2) - #1

CURCNT(R2)
LET QLPCSR(R?2) := ALPCSR(R2) SET.BY #100
#100,aLPCSR(R2)

50023%

CURRENT MSG DONE,

005362

005262

+ M

INTERRUPT FOR NEXT BYTE

DEC

@CURADD (R2)

CURADD (R2)

BIS

002322

:B=

3CURADD
(R2) ,aLPBUF (R2)
LET CURADD(R2) := CURADD(R2)

INC

50022%:

002516

CURCNT (R2)

50022%
LET aLPBUF (R2)

mMovBe

002416

000437

117272

IF CURCNT(R2) GT #0 THEN

BLE

ENABLE

NO — = e OO~ ~ 00~ N~ O

1/0 DRIVER

sRETURN

N NN
N BN N
=0 B N

PAGE 15

sTHE 1/0 DRIVER ROUTINE IS INVOKED BY MEANS OF THE INTERRUPT SYSTEM,
sCALL TO IT IS JMP [ODRV

e BN

1146

08:16

500

e P v N

e R
I
e
b
d
T
T
L
B I

- g, - g, D el D

—y
I

D g
-~ P
o,

e
—

—a

——-o~

—

s -

g, wdd o, D

—

D il D i g P, D

D i i e

D A

D e

)

b d e e od ok b O

N B NN = OO

CZLNAAD LNO1 TEST
DNMA( 124.07-563x 12=JAN=-83
12=-JAN-B3 08:16
/0 DRIVER
CZLNAA.P1Y

IF PRINT COUNT NOT ZERO SEND AGAIN

LET REPCNT(RZ2) := REPCNT(R2) - M
REPCNT (R2)
IF REPCNT(R2) GT #0 THEN
REPCNT (R2)

50024%

LET CURADD(R2)

MSGADR(R?2)

;

LET CURCNT(R2)
MSGCNT(R2) , CURCNT (R2)
LET aLPBUF (R2)

MSGCNT(R2)

; RESTORE

MSGADR (R2) , CURADD (R2)

(R2)
@CURADD(R2),aLPBUF
LET CURADD (R2)
CURADD (RQ)
LET CURCNT(R2)

:B= @CURADD (R?)

RESTORE

THE

MSG ADDR

THE BYTE

COUNT

;

RESEND THE MESSAGE

CURADD(R2) + #1

; BUMP THE POINTER

CURCNT(R2) - #1

; DROP BYTE COUNT

CZLNAAD LNO1 TEST
DNMAC x24.07-563 12-JAN=-83
CZLNAA.PI
12-JAN-83 08:16
1/0 DRIVER
(7)
1147
(7)
1148
(4)
1149 49

08:16

004576
00460
004602
004610
004610

005362

002716

052762

020000

002456

BIS

012772

000100

002322

MOV

CURCNT(R2)
LET STATUS(R2)
#ACTIVE,STATUS(R2)
LET QLPCSR(R2)
#100,3LPCSR(R2)

(3)

004616
004620

000406

50025$

1152
(7)
1153
(4)
1154
(4)
1155
(&)

004620
004620
004626
004626
004634
004634
004634
004634

(4)

131

1156
(4)

(3)
1157
1158
1159
(7)
1160
(4)
1161

1162
1163

(4)
1164

[(2)

004616

DEC

H 3
PAGE 15«1

500248
:

020000

002456

BIC

012772

000000

002322

MOV
50025$:
50023$:

004634
004634

000410

004636
004636

052762

100000

002456

004644
004652

012737
004777

000001
176200

002302

004636

004644

004656

004656
004656

004ed6
004660

:= #100

SET.BY #ACTIVE

; RE-ENABLE

INTERRUPTS

LET STATUS(R2)
#ACTIVE,STATUS(R2)
LET ALPCSR(R2)
#00,3LPCSR(R2)
ENDIF

:= STATUS(R2)

CLK.BY #ACTIVE

:= #00

ENDIF
ELSE
BR

50026
50021$:
]
; CLEAR ERROR CONDITION, ENABLE INTERRUPIS
: SET ERROR F.A4G
LET STATUS(R2) := STATUS(R2) SET.BY WERROR
BIS

MOV

50026$:

012602
000002

:= STATUS(R2)

ELSE

: CURRENT MSG DONE, REPEAT COUNT =)
: CLEAR ACTIVE AND DISABLE INTERRUPTS.

042762

SEQ 0033

FERROR, STATUS (R2)
LET ERRCOD := #STATER

;

STATUS ERROR

#STATER ,ERRCOD
JSR PC,aERRSV(
:"ERROR SERVICE SHOULD CLEAR ERROR BIT AND ENABLE
ENDIF

POP R2

MOV
RTI

(SP)+,R2

INTR

CZLNAAD LNO1 TEST
DNMAC X24.07=563 12-JAN-83
CZLNAA.PI
12-JAN-83 08:16
1/0 CONTROL
1167

.SBTTL

1170
nn

:
;

117%

1174

}};2
}};3

1;35

004664

1;3%

1536

FOR ALL TERMINALS

004666
004666
004674
004676
004676
004702
004702
004706
004706
004710
004710
004710
004714
004714
004722

023727
001005

002264

013703

002012

005037

002074

BUFCNT

BYTE COUNT TO TRANSMIT TO PRINTER

ERRSYC

ADDRESS OF

ERROR SERVICE SUBROUTINE

BUFREP IS NO. OF TIMES TO PRINT THE MSG
PUSH R2,R3
MOV
R2,=(SP)

R3,=-(SP)

IF PRINTR IS =1 QUE OUTPUT TO ALL PRINTERS SELECTED

177777

000405

50027%:

012703

000001

013737

002264

004722

002074

50030%:
REPEAT

2
CTLLOP:

005703
001002
000137

005240

004732

IF PRINTR EQ #-1 THEN
CMP
PRINTR,#-1
BNE
50027%
LET R3 := LSUNIT
MOV
LSUNIT,R3
LET LSLUN := #0
CLR
LSLUN
ELSE
BR
€0030%
LET R3 := M
#1,R3
LET LSLUN := PRINTR
MOV
PRINTR,LSLUN
ENDIF
MOV

004722
004722
0024722
004724
004726
004726
004732

50031%:

TILL

=10

IF R3 EQ #0 THEN
ST
R3
BNE
50031%
INLINE <JMP CTLEND>
JMP
CTLEND
ENDIF

: USE R2 AS AN INDEX INTO THE UNIT TABLES
004732
004732
0047%
004740
004740

013702
006302

002074

005037

002302

°N'

ADDRESS OF MESSAGE TO PRINT

: OTHERWISE TO UNIT NUMBER IN PRINTR.

;585
1203
(5)
(8)
1206
(4)

N FOR PRINTER NUMBER

BUFADD

1194

1195
1196
1197
(6)
(10)
1198
(2)
1199

PRINTR

MOV

}}gg

SEQ 0034

010346

1183

1186
(6)
(10)
1187
(4)
1188
(4)
1189
(4)
(3)
1190
(4)
1191
(4)
1192

INPUTS:

I0CTRL:

010246

THE 170 CONTROL SUBROUTINE IS A SINGLE ENTRY QUEUE MANAGER.,
THIS ROUTINE IS INVOKED BY A JSR FROM AN [/0 CALL.

004662
004662

PAGE 16

1/0 CONTROL

177

1180
1181
(2)

08:16

LET R2 :=
LSLUN SHIFT 1
LSLUN,R?
R2
LET ERRCOD := #0
(LR
ERRCOD

MOV
ASL

12-JAN=-83
DNMAC X26.07-563
12-JAN-83 08:16
170 CONTRO L
IF

03276§
00112

040000

08:16

J 3
PAGE 16-1

SEQ 0035

THE UNIT HAS BEEN DROPPED SELECT THE NEXT UNIT

002456

BIT
BNE

I¥ #DROPED NOTSETIN STATUS(R2)
#DROPED,STATUS(R2)

THEN

50032%

grESt FOR DVC ERROR BIT SET

005002

032772
001407

100000

002322

BIT

IF #BIT15 SETIN QLPCSR(R2)
#BIT1S ALPCSR(R2)

012737

000001

002302

MOV

#STATER,ERRCOD

052762

100000

002456

000455

BIS

50033%:
s MAKE

005002
005002

002716
020000

005016

500333‘ ERRCOD = #STATER

LET STATUS(R2)
#ERROR,STATUS(R2)
ELSE
50034%

:= STATUS(R2)

V) REG ERROR BIT 15 SET IN (SR
STATUS
SFT.BY #ERROR

SURE PREVIOUS MSG IS DONE

CURCNT(R2) GT #0 THEN

TST

CURCNT(R2)

BIT

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

BLE
002456

THEN

BNE

50035%

THEN

50036%

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

012737

000003

002302

000442

032762
001436

020000

002456

012762

000144

003016

012727

000002
002116
177772

001367

177756

w—
50040%:

LET ERRCOD

MOV

#NOINTR,ERRCOD

50037%

:= #NOINTR

: NO INTERRUPT

'} SETIN N STATUS(R?
STATU
) DO
ILE #ACTIVE

WHIL

BIT
BtO
MOV
MoV
.WORD
MOV
WORD
DEC
BNE

#ACTIVE,STATUS(R2)
50041%
LET DELCNT(R2)
#100. ,DELCNT(R2)
¥ 3.
#2.,(PC)+
0

BNE

005362

003016

DEC

DELCNT(R2)

005762
001011

003016

TST

DELCNT(R?)

BNE

;s 220 SecC

; 200MS LOOPS

LSDLY,(PC)+

O
=-6(PC)
b
=22(P()
.

DEC

:= #100.

50042%

LET DELCNT(R2)

:= DELCNT(R2) = "

IF CELCNT(R2) EQ #0 THEN

CZLNAAD LNO1 TEST
DNMAC x24.07-563 12-JAN-83
CZLNAA.PIT
12-JAN-83 08:16
170 CONTROL
1231
(&)
1232
(7)
1233
(7)
1234
(4)
1235
(4)
(3)
1236
(&)
1237
(4)
1238
(4)
1239

(6)

005110
005110
005116
005116
005124
005124
005132
005132
005132
005132
005134
oos1ga
005134
005134
005134
005134
005134
005134

005134

1528) 005140

152;

005150

MOV

#TIMOUT ,ERRCOD

042762

020000

002456

BIC

#ACTIVE,STATUS(R2)

052762

100000

002456

BIS

#ERROR,STATUS(R2)
ENDIF

50040%

50042%:
000736

50041%:

001403

004777

1ST

BEQ

50043%:
:

005150
005150
005156
005156
005164
005164
005172
005172

(4)
1254
(6)
(10)

005200
005206
005206
005212

15?6

005200

005214
005514
005222
005222
005222
00522¢
005222

005222

IF ERRCOD NE #0 THEN
ERRCOD
50043%

ELSE
50044%

JSR

PC,3ERRSVC

Q UP THE MESSAGE AND ENABLE

INTERRUPTS

013762

002314

002516

MOV

013762

002314

002656

MOV

013762

002316

002716

MOV

013762

002316

002556

MOV

013762

002320

002616

MOV

005762
003403

002716

012772

000100

TST
BLE

002322

MOV
50045%:
500448:

50032%:

LET CURADD(R2)
BUFADD,CURADD
(R2)
LET MSGADR(R2)
BUFADD ,MSGADR(R2)
LET CURCNT(R2)
BUFCNT,CURCNT
(R2)
LET MSGCNT(R2)
BUFCNT ,MSGCNT(R2)

LET REPCNT(R2)

005222

:= BUFADD

: BYTE ADDRESS

:= BUFADD

: MESSAGE ADDRESS

:= BUFCNT

: OUTPUT COUNT

:= BUFCNT

: BYTE COUNT

:= BUFREP

: PRINT COUNT

BUFREP,REPCNT(R2)
F CURCNT(R2) GT #0 THEN
CURCNT(R?2)
50045%

LET QLPCSR(R2)
#100,3LPCSR(R2)
ENDIF
ENDIF

ENDIF

: CLEAR OUT ANY TIMEOUT COUNT

}52?
1262

ENDDO

; THE 170 DRIVER WILL PICK UP FROM HERE.

1249
(4)
1250
(4)
1251
(4)
1252
(4)

(4)
1257
(4)
1258

:= STATUS(R2) SET.BY #ERROR

REPORT THE ERROR

175710

000425

LET STATUS(R2)

ENDIF

50034%:

002302

:= STATUS(R2) CLR.BY WACTIVE

ENDIF

50035%:

005737

LET STATUS(R2)

ENDIF

50037%:

}52;

1255
(4)
1256

LET ERRCOD := #TIMOUT

002302

1246

1253

SEQ 0036

000002

005142
005146
005146

K_3
PAGE 16-2

012737

}%fi}

1243
1244
(4)

08:16

LET DELCNT(R?)

:= #0

:= #100

; ENABLE

INTERRUPTS

CZLNAAO LNOY T%%T
CZLNAA.PI

152;

005222

DNMAC X24.07-563 12-JAN-83 08:16 PAGE 16-3

-JAN-83 08:16

1/0 CONTROL

003016

CLR

005062

‘%gg
1266

005%26

1267
(7)

005230
005230

1269

005240

(7)

1268

1270
(g)
(3)
1271

1272

005 gb

005303

005234

005237
000137

005240
005240
005242

012603
012502

005244

SEQ 0037

DELCNT(R2)

; SELECT THE NEXT UNIT AND DECRIMENT THE LINECOUNT
DEC

002074
004722

LET R := R3 - M
12

LET LSLUN := LSLUN + M
LSLUN
INC

CTLEND:

000207

JMP

cTLLOP

POP
MOV
MOV

R3,R2
(SP)+,R3
(SP)+,R?

RTS

1273

heee

1276
1277

: THIS SUBROUTINE WILL EFFECTIVLY DELAY UNTIL ALL QUEUED OUTPUT
: 1S FINISHED. THE DELAY IS ACCOMPLISHED BY QUEUEING A NULL

}%gg

me—e-

: SUBROUTINE

}5;?

: MESSAGE TO ALL LINES.

1278

1281

005246

}ggz

005312

1282

QUIET

005310

000240

000207

QUIET:

OUTPUT

#0,40

RTS

NOP

: NULL MESSAGE OUTPUT

CZUNAAD LNOT TEST
DNMAC
CZLNAA.PT1
12-JAN-83 08:16

X24.07-563 12-JAN-83 08:16 PAGE 17M .

SEQ 0038

170 CONTROL

1286

s STSSSSEEESSSISSEISSEIImSIISSSSSCSSSISSSSSSSSssSIsIssSsSSIsSsssZsssssssss

1289

s THIS SUBROUTINE IS USED TO DROP A BAD PRINTER FROM THE TEST

}%g%

;s OPERATOR THAT THE PRINTER WAS DROPPED.

}ggg

: DROPIT

1290

129

1294
(7)
1295
(4)

005314
005314
005322
005322

(4)
1297
(8)
(7)
(6)
(3)
(&)
(4)
1298
(4)
1299
(7)
1300
(6)
(10)
1301
(7)
(6)
(3)

005330
005334
00533¢
005340
005344
005350
005352
005354
005360
005360
005364
005364
005370
005370
005374
005376
005376
005402
005406

1296

(4)
(4)

1302
(3)
1303
(4)
1304
1305
1306
1307

005330

005410
005412

005416
005416
005420
005420
005420

FUNCTIONAL DESCRIPTION :

DISABLE ANY INTERRUPTS FROM THE PRINTER, AND NOTIFY THE

052762

040000

002456

012762

177777

002716

005072

002322

013746
012746
012746
010600
104417
062706

002074
004002
000002
000006

005062

003060

005337

002306

005737
001011

002306

012746
012746
010600
104417
062706

003732
000001

DROPIT: LET STATUS(R2) := STATUS(R2)
BIS
#DROPED ,STATUS(R2)
LET CURCNT(R2) := #-1
MOV
#-1,CURCNT (R2)

SET.BY #DROPED

LET @LPCSR{RZ) := #0

CLR
aLPCSR(R2)
PRINTF #LPDROP, LSLUN
MOV
LSLUN,=(SP)
MOV
#LPDROP,=(SP)
MOV
#2,-(SP)
MOV
SP,RO
TRAP
COPNTF
ADD
#6,5P

LET ERRTBL(R2)

000004

104444
50046$:

000207

:= #0

CLR
ERRTBL (R2)
LET UUT := Wt = M
DEC
uuTt
IF UUT EQ #0 THEN
ST
Uyt
BNE
50046%
FRINTF #UUTEQO
MOV
#UUTEQD,=(SP)
MOV
#1,-(SP)
MOV
SP,RO
TRAP
CEPNTF
ADD
#4,SP
DOCLN
; NOTHING TO TEST
TRAP
C$DCLN
ENDIF

RTS

1308

:::::::::::::::::::=:==::::::::::::::::::::::::::::::::::::::::::::

};98

FAKE

1311

THIS SUBROUTINE IS REQUIRED TO INSURE PROPER PASS COUNT REPORTS

}g}%

1314
1315
(4)
1316
(4)
(6)

005422
005422
005426
005626
005426

1317

005436

(10) 005434

005037

002074

023737

,
002074

002007

IN A MULT] UNIT MODE OF OPERATION.

FAKE:

002012

FUNCTIONAL DESCRIPTION:

50047%:

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

BGE

LSLUN,LSUNIT

50050%

GPHARD

LSLUN, R3

CZLNAAD LNO1 TEST
DNMAC x24.07-563 12-JAN-83
CZLNAA.PI
12-JAN-83 08:16
1/0 CONTROL
(3)

005436

013700

(3)
1318
(7)
1319
(&)
(3)
1320
1321
1322
1323

005444
005446
005446
005452
005452
0054564
005454

01000

(3)

005442

005456

10444;

005237
000765

000207

002074

08:16

MOV

TRAP

MOV
002074
500508
:

N 3
PAGE 17-1

L$LUN,RO

(SGPHRD

RO,R3
LET LSLUN := LSLUN + #
INC
LSLUN
ENDDO
BR
50047%
RTS
ENDMOD

SEQ 0039

o O

sAND CLOCK TYPE.

8GNMOD

005456
005456
005456
005456

BGNINIT
LSINIT::

;RESET EXTERNAL BUS I!F START EVENT FLAG IS SET
:0R POWER FAIL RESTART

012700
104447

000040

103466

012700
104447

000037

s \) = Ow

103462

004737

005422

012700

000000

N N AN

104441

v w O

READEF
#EF .RESTART
MOV
#EF .RESTART,RO
TRAP
(SREFG
SE?"’LE'E;"

;NOW THE RESTARTFLAG

JSR
SETPR]I

PC,FAKE
#PRIOO

TRAP

(S$SPRI

MOV

#PR100,RO

LET OUTBUF

MOVB

#14,0UTBUF

012737

000006

003122

MOV

#6 ,WORK1

DEC

WORK1

cMP

WORK1, #1

005337

003122

023727
002415

003122

50051$:

EITHER START OR POWER FAIL RESTART

;D0 A BUS RESET

: UPDATE PASS COUNT
: PRIORITY ZERO

50051%

50053$

DELAY 250

000250

MOV

002116

MOV

177772

DEC
BNE

-6(PC)
A

ENDDEC
R

50052%

WORD
.WORD

o N

DEC
BNE

50053$:

001304

BLT

177756

104432

;1F

FROM START UP

F
,#
OUTPUT #OUTBU
DECR WORK1 FROM #6 TO #1 By #1

:
500528

000001

:BRANCH IF

INDICATOR

:B= #14

003124

e e e e

sTEST START EF

000014

000462

005640

READEF
#EF.START
MOV
#EF .START,RO
TRAP
(SREFG
gEgHPLET§‘1S

112737

D
OO~

INITIALIZATION SECTION

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

S EWNS

s e
LS LS NLNL LN LN N g ONN=O~NN
LV
P IV TW wflflz
.~~~ o~~~

—

—
——D b

WNANAN
~~ o~

SEQ 0040

STHE INITIALIZE ROUTINE IS EXECUTED AT THE BEGINNING OF EACH SUB=PASS AND IS

~AN S~
PN NN NN NS

-k
b

:§ETTL

-l
b

b ed — B

— ) e D e

wrwn
WA
A~ (NN
NN NN
N
£
LN N N
N N N
N A
N NNN
N N NN
N
NN N

) D

NN = O YO ~NONW

8
CZLNAAD LNO1 TEST
DNMAC X24.07-563 12=JAN=-83 08:16_PAGE 18
12-JAN-83 08:16
CZLNAA P
INITIALIZATION SECTION

#250,(PC)+

LSDLY, (PC)+

=22(PC)
.=20

EXIT INIT
TRAP

WORD

CSEXIT

: ELSE EXIT INIT CODE

L10004~.

SPOWER UP RESTART OR START COMMAND [SSUED

C &
CZLNAAD LNO1 TEST
DNMAC X24.07-563 12-JAN-83 08:16 PAGE 18-1
CILNAA.PT1
12-JAN-B3 08:16
INITIALIZATION SECTION
1352
(3)
1353
(6)
(10)
1354
(7)
(6)
(3)
(&)

00564
005642
005644
005644
005652
005654
005654
005660
005664
005666

1355
(7)
(6)
(3)
(&)
(4)
1356
(4)
1357
(3)
1358
1;33

005674
00567&
005700
005704
005706
005710
005714
005714
005714
005714
005716
005716

(4)

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

1;;3

005670

005720
005720
005724
005730
005732

005734

1%:

104433

023727
003420

002012

012746

006506

012746
010600
104417
062706
012746
012746
010600
104417
062706

000001

000004

000004
50054$:

104450

103024
G12746
012746
010600
104417

062706

1;33

000004

ADD

CHECK FOR UNATTENDED MODE

UNATTENDED BYPASS MANUAL

INSTRUCTIONS

#RESET1
#RESET1,-(SP)
#1,-(sP)
SP,RO
CSPNTF

#4,SP

:WAIT FOR A *'CR" BEFORE GOING ON
005740
005740
005744
005744
005750
005750
005754
005754
005754
035756
005760
005762
005764
005766

005770

005037

002240

005037

002302

005037

002306

104443
000404
002240
000130
006752
100000

1008:

10000$:

LET FLAG := #0
CLR
FLAG
LET ERRCOD := #0
CLR
ERRCOD
LET UUT := #0
CLR
uuT

GMANIL
TRAP
BR
.WORD
"WORD
.WORD
"WORD

READY,FLAG,100000,YES
CSGMAN
10000%
FLAG
TSCODE
READY
100000

*REQUEST P-TABLE FOR PRINTERS UNDER TEST

1372

005770

1373

005776

(5)

#4,SP

MANUAL
TRAP
CSMANI
BNCOMPLE TE
PRINTF
MOV
MOV
MOV
TRAP

006701
000001

sRESET THE BUS

PRINTF “#NRGT17
MOV
#NRGT17,=(SP)
MOV
#1,-(SP)
MOV
SP.RO
TRAP
CSPNTF
ADD
#4,5P
ENDIF

BCC

}%;?

(5)
(7)

BRESET
TRAP
CSRESET
IF LSUNIT GT #16. THEN
CMP
SUNIT,#i6.
BLE
0054%
PRINTF #NRGT16
MOV
#NRGT16,=(SP)
MOV
#1,-(SP)
MOV
SP.RO
TRAP
CSPNTF
ADD

006571
000001

}%2%
1364
(4)
1365
(4)
1366
(4)
1367
1368
(3)
(3)
(&)
(5)
(5)
(5)

000020

SEQ 0041

005770
005774

013701
005301

002012

005776

005037

002074

28:

LET R1 := LSUNIT = M
MOV
DEC

LSUNIT,R1
R1

CLR

LSLUN

INCR LSLUN FROM #0 TO R1 BY #1

:MAXIMUM NUMBER OF UNITS

e
s

000402

005237

002074

023701
003073

002074

013700

002074

10444

500568%:
500558%:

—s
e

W
NN AN N

$L N R1

0057§

GPHARD LSLUN,R3

sREQUEST P=-TABLE ADDRESS

LSLUN,RO

C‘GPNRD

RO,R3

BcC BNCOQELETE 3%

013702
006302

002074

MOV
ASL

005062

003060

CLR

012762

177777

005062

003016

005062

002616

002716

sBRANCH IF DEVICE NOV PRESENT

LET R2 := LSLUN SHIFT 1
LSLUN,R2
R2

LET ERRTBL(R2)
ERRTBL (R2)
LET CURCNT(RZ)

:= #0

LET DELCNT(R2)
DELCNT(R2)
LET REPCNT(R?2)
REPCNT(R2)
CLR

:= #0

MOV

:= #=1

#=1,CURCNT(R2)

(LR

— s b

o W

pa—y

N P

NN NN A~ WN NN

CMP

TRAP

006072

012362

002322

MOV

016262
062762

002322
000092

MOV
ADD

:= #0

LET LPCSR(R2)

:= (R3)+

LET LPBUF(R2)

:= LPCSR(R2) + #2

(R3)+,LPCSR(R2)

sSET UP (SR ADDRESS FOR DEVICE

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

TSET UP VECTOR ADDRESS INTO GIVEN TABLE
006100
006100

012362

Mov

002362

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

TSET UP DEVICE INTERRUPT VECTOR INFORMATION
LET WORK := R2 SHIFT 3

006104

MOV

o
-

LSLUN

SEQ 0042

sLOAD (SR ADDRESS INTO TABLE

o~ ~ N SN~ W

INC

MOV

103062

003120

013762

002756

012746

000003

50055%

MoV

-—

BGT

01000

_—

006002
0

S N S N AN S AN A NS S o

NS S o s~ —
O OO O £ 00000000 w00 £~ 00000000 £~ 00 £~ N & NS NOO W NN NWWNW N O NN = O ~
ONWSs N N OO~ ~0 000000V
P NN = v OwOvivwNwwPRuvWNwww
N
wO~ ~
N
e e
e O
N &S v v o o NN - O OO NOYCr N

D_ &
CZLNAAD LNO TE
DNMAC x24.07-563 12=JAN=-83 08:16 PAGE 18-2
CZLNAA. PN
12-JAN-83 08:16
INITIALIZATION SECTION

006162

062706

000010

R2 ,WORK

ASL
ASL
ASL

WORK
WORK
WORK

ADD

#INT00, WORK

MOV

WORK,LPINTR(R2)

MOV

#PRI04,
= (SP)

TRAP
ADD

($SVEC
#10,5P

LET WORK

:= WORK ¢ #INTOO

LET LPINTR(R2)

:= WORK

SETVEC LPVEC(R2), LPINTR(R2), #PRI04

MOV
MoV
MOov

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

CZLNAAD LNO1 TEST

CZLNAA.PT1

12-JAN=-83

83@?( X26.07-563

}ggg
1400
(7)

}283

006166
006166

006172

006174

1406
(5)
(4)

006202
006202
006204

005237

(4)

1412

(3)
(3)
(3)
1413
(7)
1414
(4)
1415
(4)
1416
(4)
1417
(4)
1418
1419
(4)

1420

(7)
(6)
(5)
(4)
(3)
(2)
1421
(4)
1422
1423
(3)
(3)
(3)

006174

000403

LET UUT := UUT + M
INC
uut

052762

040000

002456

000700

$s:
4%:

500578:

BIS

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

END INC
BR

#DROPED,STATUSR2)
50056%

;GO BACK AND DO IT AGAIN

PP escooPsensesaontnseessecnsenonscsessssescsssssssssenessncessscssssenss

s SETUP 7O HANDLE CLOCK INTERRUP
006204
0062064
006212
006212
006216
006220
006222
006222
006224
006226
006232
006232
006236
006236
006244
006244
006252
006252

006260

006260
006264
006270
006276
006300
026302
006306
006306

006206
006306
006312

006314

1424

006316

126
(4)

006326
006326

(7)
1425
(4)

SEQ 0043

INITIALIZATION SECTION

002306

1408

1409
1410
1411

E_ 4
PAGE 18-3

:INDICATE LSLUN NOT AVAILABLE FOR TESTING

1405

1407

08:16_

: ADD ONE TO UNIT UNDER TEST COUNT

}282
(7)

12-JAN=-83

006316
006320
006320

:
:

012737

000001

012700
104462
010004

000114

002266

103031

012737

000002

010437

002270

017737

174026

002272

012777

000000

174020

016437

000004

002276

012746
012746
013746
012746
104437
062706

000300
007146
002276
000003

012700
104462

002266

IF AN L=CLOCK IS ON THE SYSTEM THEN SETUP A NOOP INTERRUPT
HANDLER BECAUSE LSI SYSTEMS MAY HAVE THE CLOCK ENABLED AT ALL TIMES.
LET CLKTYP := 1
: DEFAULT FOR NO CLOCK ON SYSTEM
MOV
#1,CLKTYP
CLOCK
L R4
: TEST FOR L=CLOCK
MOV
#'L,RO
TRAP
($CLCK
MOV
RO,R4
IFCOND CS THEN
; WE MAVE AN L=CLOCK
BCC
50060%
LET CLKTYP := #2
MOV
#2,CLKTYP
LET CLOCKP := R&
MOV
R&,CLOCKP
LET CLKCSR := @aCLOCKP
MOV
aCLOCKP,CLKCSR
LET @CLKCSR := #00
; TRY TO DISABLE INTERRUPTS
MOV
#00,3CLKCSR
; SETUP THE NOOP HANDLER
LET CLKVEC := 4(R&)
MOV
4(R&),CLKVEC

SETVEC

MOV
MOV
MOV
MOV
TRAP
ADD
ENDIF

000010

50060$:
S IF A P=CLOCK
tx1:
CLOCK
MOV
TRAP
MOV

000120

010004

CLKVEC,#IGNORE ,#PR]06

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

IS ON THE SYSTEM UPGRADE
P R4
#'pP,RO
(SCLCK

RO, RG

IFCOND CS THEN

103016

BCC

012737

000003

010437

002270

002266

50061%
LET CLKTYP := #3
MOV
#3,CLKTYP
MOV

CLOCK TYPE

LET CLOCKP := R&
R&,CLOCKP

: WE HAVE A P=(LOCK

10 3

Fog

LET CLKCSR

:= acLOCKkP

12-JAN=83
08:16
PAGE .18=4
CZLNAAD LNO1 TEST
DNMAC X24.07-563
CILNAA.PII
12=JAN-B83 08:16
INITIALIZATION SECTION
16427

00633

1428
(4)
1429
1430
(&)
16431

006340
006340

(&) 006335 017737 173732 002272

(&)
1632
1433
(6)
(10)
1436
(7)
(6)
(3)
(4)
(4)

1435
(7)
(6)
(3)
(&)
(&)

006346
006346
006354

016437

000004

002276

012777

000000

173716

006354

006354
006354
006362
006364
006364
006370
006374
006376
006400

006404
006404

006410
006414
006416
006420

023727

002266

012746
012746
010600

007007
000001

001920

104417
062706

000004

012746

007051

012746
010600
104417
062706

000001

MOV

SEQ 0044

aCLOCKP,CLKCSR

LET CLKVEC := &4(R4)
4(R4),CLKVEC
s TRY TO DISABLE THE P-(CLOCK
LET @CLKCSR := #00
MOV
#00,aCLKCSR
ENDIF
MOV

500461%:
: IF NO CLOCKS ON THE SYSTEM NOTIFY THE OPERATOR
IF CLKTYP EQ #1 THEN
(MP
CLKTYP,
M
BNE

50062%
PRINTF #NOCLCK
MOV
#NOCLCK ,=(SP)
MOV
#1,=-(SP)
MOV
SP,.RO
TRAP
CSPNTF
ADD
84 ,SP
PRINTF #NOTIM
MOV
#NOTIM, =-(SP)

000001

MOV
MOV
TRAP
ADD

000004

1436
(4)
1437
(3)
(3)
1438
(4)
1439
1440
(3)
(3)

006424
006424
006424
006424
006430
006432
006432
006440
006502
006502
006504

1443

006506

047045

040445

052516

NRGT16:

.ASCIZ

}229

006701

045

022516

051101

RESET1:

,ASCIZ /XNXARESET PRINTER(S) AND PLACE ON L INEZIN/

}22}

1444
1445

006571
006625

50062%:

012700
104441

C€O00000

112737

000014

104432
000440

045
045

1448
1449
1450

006752
007007
007051

042504
045
045

}22%

007142

1454
1455
(3)
(3)

007144
007144
007144

003124

SETPR] #PR100
MOV
#PR100,RO
TRAP
($SPRI]
LET QUTBUF :B= #14
MOVB
#14 ,0UTBUF
OUTPUT #OUTBUF ,#
EXIT INIT
TRAP
CSEXIT
LWORD
L10004~-.
NLIST

022516
022516

051505
044101
040501

NRGT17:
MRESET:

BEX

,ASCIZ
.ASCIZ

/INXANUMBER OF

LINE PRINTERS UNDER TEST EXCEEDS 16./

/XNXAONLY 16 WILL BE TESTED./
/XNXARESET PRINTER(S),
AND PLACE ON LINE.ZN/

READY:
NOCLCK:
NOTIM:

.ASCIZ
,ASCIZ
_ASCIZ

/DEPRESS "'RETURN'' WHEN READY./
/XNXAHARDWARE CLOCK NOT AVAILABLE./
/XINXAAUTO PRINTING SPEED MEASUREMENT

000000

PLOC:

.WORD

104411

.LIST BEX
ENDINIT
L10004:
TRAP

galic

051120
022516
022516

047501
051101

ENDIF

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

R St

SR A

CSINIT

e B

CANNOT BE PERFORMED./

e S

CZLNAAQ LNO1 TEST
DNMAC Xx24.07-563 12-JAN=-B3 08:16 PAGE 18-5
CZLNAA. P
12-JAN-83 08:16
INITIALIZATION SECTION
1459

}22?
146

1463

1464
1465

007146

1‘.68

1469

472
}2;2

3
:

1476
(2)

007120
007150

1477

007154

(4)
1479
(4)
(6)
(10)

007156
007162
007162
007162
007164

013703

007166
007172
007176

012746
016446
016446

(4)
1478

007152

007154
007156

1480

007166

(4)
(3)
(2)
1481
(7)
1482

007202
007206
007210
007214
007214
007220

(7)
(6)
(5)

(7)
1483

(4)
(3)
1484
(2)
(3)
}232

RT]

007220
007222

007222
007224
007224
007226
007226
007230

RESVEC

RESVEC::

010346
010446
005004

50063$:

012746
104437
062706
062704

000200
002756
002362

000003

MOV

LET

R4 := #0

R&
LET RY

:= LSUNIT

1ST
BLE

R3
500648

MOV
MOV
MOV

#PRI0G,=(SP)
LPINTR(R4) ,=(SP)
LPVEC(R4) ,=-(SP)

000010
000002

ADD
DEC

000757

012603
0002¢7

e I

R4 ,=(SP)

LSUNIT,R3
WHILE R3 GT #0 DO

005303

012604

PUSH
R3,R4
R3,=(SP)

MOV

MOV
TRAP
ADD

50064%:

THIS SUBROUTINE WILL SETUP ALL UNITS VECTOR AREAS
TO THE °"NORMAL® INTERRUPT ROUTINES STARTING AT INTQO.

CLR

002012

FUNCTIONAL DESCRIPTION

MOV

005703
003417

INTERRUPT,

; NOOP

s esssasssssassssssssssssas D

}2;9

(3)

IGNORES THE

USED FOR SYSTEMS WHERE CLOCK CANNOT BE TURNED OFF.

I GNORE :

000002

1466
1467

1475

THAT

SEQ 0045

MOV

SETVEC LPVEC(R4), LPINTR(R4), #PRI0G

#3,-(SP)
CSSVEC
#10,SP
LET R4
#2,R4
LET R
ENDDO

50063%

POP R4 ,R3
(SP)+ R4
(SP)+,R3
RTS
PC

:= R4 + #2

:=z R3 - M

)

CZLNAAD LNO1 TEST
DNMAC x24.07-563
12-JAN-83 08:16 PAGE 19
CZLNAA.PIT
12=JAN-B3 08:16
CLEANUP CODING SECTION
1488
1489
(2

.SBTTL
STARS

00723%2

CLEANUP CODING SECTION

;THEY HAVE NOT COME BACK ON LINE.

(07232

§TARS

1500
(3)
1501
(3)
(3)
1502

007232
007232
007232
007232
007236
007240

BGNCLN
LSCLEAN::
SETPR] #PR107
MOV
#PRI07,RO
TRAP
C$SPRI
BRESET

1504
(5)

007242
007242

1506

1507

007240

007246
007250
007250
007254
007256
007256
007262
007262

007266

1508
(5)
(8)
1509
1510
(7)
1511
(4)

007270
007270
007274
007276
007276
007304
007304

(4)

007312

1512

THE DEVICE HAS COME BACK ON LINE

sHAVE TO BE DONE AGAIN IN ORDER TO GET THE DEVICE ACTIVE.

1499

(9)

STESTING WILL BE RESTARTED ON THE DEVICE. THIS INSURES THAT
*IN THE EVENT A PAPER OUT OCCURRED AND THE OPERATOR HAS PUT ADDITIONAL PAPER
:INTO THE UNIT UNDER TEST, THE INITIALIZATION SEQUENCE DOES NOT

}28;

(7)
1505
(5)
(7)
(6)
(10)
(7)
(7)

SEQ 0046

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

1492
1493
1494
1495
1496

,{3)

::"t"tt'."""""‘v"""""""'.'."'...""""'Q"""'.

1490
1491

(2)

007312

1513
(4)
1514
(4)
1515
(5)
(4)
1516

007316
007316
007322
007322
007326
007326
007330
007330

(6)

00733«

:;'."'.".""""""""'."""l'.".Q'.'.'Q"'..Q".."'t"'

012700
104441

000340

104433

TRAP

013701
005301

002012

005037
000602

002074

005237

002074

023701

002074

003020

CLEAN:

50066%:
50065$%:

LET RY := LSUNIT = #1
:NUMRER OF
MOV
LSUNIT,RI
DEC
R1
INCR LSLUN FROM #0 TO R1 BY #1
(LR
LSLUN
BR
50065%
INC

LSLUN

CMP

LSLUN,R1

BGT
:
:

013702
006302

002074

042762

160377

002456

012762

177777

002716

005062

003060

005062

003016

005062

002616

1517 00733

007150

(10) 007342

023727

001006

002266

50067$

DISABLE ALL

UNJTS=1

INTERRUPTS, SELECT ALL LINES

JERO ALL ERROR COUNTS

LET R2 := LSLUN SHIFT 1
LSLUN,R2
R2
: CLEAR ALL BITS IN STATUS EXCEPT DEVICE TYPE
LET STATUS(R2) := STATUS(R2) CLR.BY #ERROR'DFOPED'ACTIVE'LOBYTE
BIC
#ERROR ' DROPED'ACTIVE
' LOBYTE,STATUS(R?)
LET CURCNT(R2) := #=1
MOV
-1, CURCN!(RZ)

MOV
ASL

CLR

000753
004737

CSRESET

50067%:

000003

LET ERRTBL(R%) #0
ERRTBL (R2)

LET DELCNT(R2)
(LR
DELCNT(R2)
LET REPCNT(R2)
(LR
REPCNT (R2)
ENDINC
BR
50066%
JSR

SVEC

(MP

CLKTYP,#3

:= #0

IF chlvp éo 03 THEN

BNE

50070%

:= #0

RESET

THE

VECTORS

X264.07-563 g? JAN-83 08:16_PAGE 191

CZUNAAO LNOY TEST
CZLNAA.P1T - 12=JAN-83

Mov
TRAP

104436

012777

000000

OO
Or
=W
ON
NN

50070%:
002266

MOV

MOV
MOV
TRAP
ADD

ENDCLN

007424
007424

L10005:

007426

ENDMCD
.SBTTL

007426

BGNHOD

oCLKVEC,RO
CSCVEC

LET QCLKCSR := #00
#00,3CLKCSR

IF CLKTYP Eo 02 THEN
(mp
CLKTYP,#2

BNE

000000

CLRVEC aCLKVEC

MOV
ENDIF

MOV

50071s

SETVEC CLKVEC #1GNORE
, #PR] 06

ENDIF

#PR106,=($P)

oxcuoaé -(sp)
CLKVEC,=(SP)
#3,-(SP)
C$SVEC
#10,5P

SETPR] #PRIOO

MOV
TRAP

#PR100,RO
C$SPRI

TRAP

CSCLEAN

INTERFACE LOGIC

THlS TEST VERIFIES THE OPERATION OF THE INTERFACE LOGIC. TESTS ARE
PERFORHED FOR PRINTER ERROR, PRINTER READY, AND CLEARING PRINTER READY

:BV LOADING A CHARACTER INTO THE OUTPUT BUFFER. ALSO IT IS VERIFIED

;THAT THE PRINTER WILL NOT INTERRUPT IF IT IS AT THE SAME PRIORITY LEVEL
:AS THE PROCESSOR, BUT WILL INTERRUPT IF THE PROCESSOR IS AT A LOWER
:PRIORITY LEVEL. THE PRINTER IS AT PRIORITY LEVEL 4.

007426

BGNTST

LET R1

:= LSUNIT = M

T1:

002012

007432

MOV
DEC

a?UNlT.R1

*HARD CODED 1~casnsnnt LOOP

i
D
il

00002

50071%:

007434

D el
—r D

172712

O=0000
COS=I3
NOSSNWWNN
NESENNSNN
OWES LSS
ONNOOONOr

v BN www wwrNOw = w OO N

No o

0177%0

w
Y N

ad
—2
2
s

007344

—>

[

AWV ANV
VAWM
WMVAWNAN A~ e WA VAV AN
VANV
B BN
OOV
NO
VS
WN=O
VO NO
NOWVS
W wN~w =
W
= OOV

Y ——————
P P R
)

N s s NV

s o

N s SN S N AN~
oo

1518

SEQ 0047

UP CODING SECTION

007452

sMAX NUMBER OF

;INCR LUNIT FROM #0 TO R1 BY #1

:START LOOP

UNITS ON SYSTEM

005027
000402

002260

’

CLR

LUNIT

SUNIT T0 0

005237

002260

'1('

INC

LUNIT

;UPDATE UNIT NUMBER

023701
003402

002260

’

CMP

LUNIT,R1

BLE

‘DO COMPARE

;DO COMPARISON OF UNIT NUMBER

sONTO NEXT UNIT

(2 LN AAO LNO1 TEST
DNH?C X264.07-563 12-JAN=83 08:16
2 LN AA PN
12-JAN-83 08:16
INTERFACE LOGIC
1% 5 4
15 p) 5
1556
(5)

007454

000137

557

(6)
(10

5 59

002456

(4!

013737

002260

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

156 2
(4 )

56 3
(4 )

—

1 56 8
(2 )
(2 )
(2 )
(2 )
(2 )
(2 )
(2 )
(2 )
1 56 9
(5 )

LMORD
.WORD

000000

(LR
ENDIF

570
€)
57 1

572
57 3
574

(6 )
a0)

+ #1

;ERROR BIT WAS SET.

SAY SO

1
(SREKR

WORD
0
LET aLPCSR(R2)

002322

SET.BY #ERROR

:= #0

ALPCSR(R2)

50072%:

;TIME DELAY

: IF NOT READY ALLOW 3 SECONDS TO COME UP
IF #BIT7 NOTSETIN QLPCSR(R2) THEN
BIT
#B1T17,3LPCSR(R2)

032772
001027

000200

012737
000402

000014

005337

003122

023727
002415

003122

012727

000250

MOV

002116

MOV

177772

DEC
BNE

001367

002322

BNE

003122

MOV

500758$:
000001

50074%:

50073$

DECR WORK1 FROM #12.
#12. ,WORK1

DEC

WORK1

CMP

WORK1,#1

BLT

5007¢$

DELAY 250

.MORD

177756

DEC
BNE
50076%:

007620

50073$:

TO #1 BY #1

50074$

L.WORD

00C755

(4 )

MOV
LUNIT,LSLUN
ERRHRD 1,CSRERR
TRAP
CSERHRD

—

(6 )
(1 0 ) 007552
(7 )
(7 )
(9 )

Lgfllt.az

BIT
#BIT15,3LPCSR(R2)
BEQ
50072%
LET STATUS(RZ) := STATUS(R2)
BIS
#ERROR, STATUS (R2)
LET ERRTBL(R2) ‘:= ERRTBL(R2)
INC
ERRTBL (R2)
LET LSLUN := LUNIT

002074

5 64
565
5 66
2
(6)
2
(1 0 ) 00756g
1567
(5 )
(7 )

;EXIT LOOP

IF #BIT15 SETIN agpcsn(az) THEN

104456

005072

118

ASL

100000

003060

SEQ 0048

LET R2 := LUNIT SHIFT 1

002322

005262

15 6 1

JMP
MOV

100000

(7)

WWNWNININININ)
b b-

1 5 58
(7)

5 60

002260

(8)

—

010220

J_ &
PAGE 19=2

#250,(PC)+

LSDLY, (P()+

-6(PC)
-4

<22(PC)
=20
ENDDE(
50075%

ENDIF

INOW TEST FOR PRINTER READY
007620
007620
007626

000200

002322

IF #B1T07 NOTSETIN QLPCSR(R2)
BIT
#BIT107,3LPCSR(R?)
BNE
50077%

THEN

sTEST

FOR

THE

READY BIT

K_
&4
PAGE 19-3

CZLNAAO LNO1 TEST
DNMAC X24.07-563 12-JAN-B83 08:16
CZUNAA.P11
12-JAN=83 08:16
INTERFACE LOGIC
1575
(7)
1576
(4)

007630
007630
007636
007636

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

007644
007650
007650
007652
007654
007656

1577

1579

1§ga

007644

007660

052762

100000

002456

013737

002260

002074

005262

003060

WORD
snoxr

007660

007660
007660
007666
007666
007674
007676
007676
007704
007704
007710
007710

(4)

007716

007720
007722
007724
007726
007726
007732
007732

012772

000012

002416

032772
001416

000200

002322

052762

100000

002456

005262

003060

013737

002260

002074

104456

000003
010504
000000
005072

ERRHRD 3,ERR1{

CBERHRD

;REPORT AN ERROR

.MORD
3
.WORD
ERR11
WORD
O
LET aLPCSR(R2) := #0
CLR
ALPCSR(R2)
ENDIF
501008 :

002322

:VERIFY THAT THE PRINTER WILL NOT INTERRUPT j(F
:THE SAME AS THE CPU
007732
007732
027736
007740

012700
104441

000200

(6)

007740

007744

012746

(4)

007750

012746

000200

007754

016246

002362

H L
007766

012746

(

1597
(7)
1598
(5)

007766
007774
0G7774

(6)

010004

(7)

LET QLPBUF(R2) := #12
MOV
#12.3LPBUF
(R2)
IF #BITO? SETIN @LPCSR(R2) THEN
BIT
#B1107,3LPCSR(R2)
BEQ
501008
LET STATUS(R2) := STATUS(R2) SET.BY #ERROR
BIS
#ERROR, STATUS (R2) _
LET ERRTBL(R2) := ERRTBL(RZ) + M
INC
ERRTBL (R2)
LET LSLUN := LUNIT
MOV
LUNIT,LSLUN
TRAP ~

1595
(3)
(3)
1596

(5)

RDYERR

50077%:

1592
}ggz

(7)

;REPORT AN ERROR

:INSURE LOADING CHARACTER CAUSES PRINTER READY TO GD AwWAY

1583
(4)
1584
(6)
(10)
1585
(7)
1586
(7)
1587
(4)

(5)
(5)
(5)
1589
(4)
1590
1;3%

SET.BY #ERROR

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

.WORD

}%g}

1588

LET STATUS(R2) := STATUS(R2)
BIS
#ERROR, STATUS(R2)
LET LSLUN := LUNIT
MOV
LUNIT,LSLUN
INC
ERRTBL (R2)
ERRHRD 2,RDYERR
TRAP
(SERHRD
MORD
2

104456
000002
003370
000000

SEQ 0049

010002

SETPR] #PR10&
MOV
#PR104,RO
TRAP
C$SPRI
SETVEC LPVEC(R2) ,#INTERR,#PR]04

010366

#Pr104,-(SP)

MOV

LPVEC(R2),=(SP)

MOV

000003

MOV

052772

000100

002322

012737

000012

003122

009402

MOV

B8R

IS AT A PRIORITY LEVEL

;CPU TO PRIORITY &

:LP VECTOR SET uP

#INTERR,=(SP)

#3,-(SP)
.

LET @LPCSR(R2) := @LPCSR(R2) SET.BY #100
BIS
#100,3LPCSR(R2)
DECR WORK1 FROM #12 10 #1 BY #1
MOV
#12 ,WORK1
501028:

50101%

;INTERRUPT ENABLE

CZLNAAD LNO1 TEST
DNMAC X24.07-563 12-JAN-83 08:16
CILNAA.PT1
12-JAN-83 08:16
INTERFACE LOGIC
(10) 010004
(7)
010010
(7)
010010

(9)

1759
(2)
(2)
(2)
(2)
(2)

(2)

010016

003122

023727

003122

002415

000001

177756

DEC

010046

001367

010050

000755

BNE

ENDDEC

501038 :

B8R

50103§

010072

012746

(4)
(3)
(2)
1608
(7)

010102
010106
010110
010114
010114

012746
104437
062706

010066

010076

010122
010122

010126

(2)
(2)
(2)
(2)
(2)
(2)
1610
(7)
1611
(4)
1612
(4)
(5)

010130
010134
010136
010142
010144
010150
010152
010152
010156
010156
010164
010164
010166

(5)

010172

010170

1613

010174

1614

010202

042772

000100

012700
104441

000140

012746

000200

016246

002362

.=20

50102%

000010

000100

012727

000030

013727
000000
005367
001375
005367
001367

002116

005262

003060

013737

002260

MOV

#PR104,=(SP)

MOV

LPVEC(R2),=(SP)

MOV

000003

002322

177756

002074

104456

000004

010643

DELAY 30
MOV
#30,(PC)+

010174

012772

000000

002322

010202

062762

160000

002456

THE CPU PRIORITY

SET.BY #100

IS LOWER THAN

END2:

-WORD

JINTERRUPT ENABLE

; ALLOW 3 SEC DELAY

MOV
LSDLY, (PC)+
WORD
O
DEC
-6(PC)
BNE
o
DEC
<22(PC)
BNE
.=20
LET ERRTBL(R2) := FRRIBL(R2)
INC
ERRTBL (R2)
LET LSLUN := LUNIT
MOV
LgNll.LtLUN
ERRHRD & ,ERR1
TRAP
CSERHRD
WORD
&

.WORD

000000

INTERRUPT

#INTHDL ,=(SP)

MOV
#3,-(SP)
TRAP
CSSVEC
ADD
#10,5P
LET QLPCSR(R2) := QLPCSR(RZ2)
BIS
#100,3LPCSR(R2}
MORD

177772

; ALLOW 3 SEC FOR DELAY

LET ALPCSR(R2) := BLPCSR(R2) CLR.BY #100
;CLEAR INTERRUPT ENABLE
BIC
#100,3LPCSR(R2)
SETPR] #PRIO3
:CPU TO PRICRITY 3
MOV
#PR103,R0
TRAP
C$SPRI
SETVEC LPVEC(R2) ,#INTHDL ,#PR]0%

010416

052772
000000

002322

SEQ 0050

INOW TEST THAT THE PRINTER WILL
sTHE PRINTER PRIORITY

(6)

(7)

=22(PC)

005367

010052
010052
010060
010060
010064
010066

(4)

250,
#250.,(PC)+
O
LSDLY, (PC)+
O
-6(PC)

010042

001375

1605
(7)
1606
(3)
(3)
1607

(5)

WORK1,#1

177772

010040

002116

1602
}282

(2)

CMP

BLT

000372

010052

1609
(2)

WORK1

012727
000000
013727
000000
005367

1;3%

(5)

DEC

DELAY
MOV
MORD
MOV
MORD
DEC

010050

(7)

501018:

010020
0100%0
010024
o1oo§6
010032
010034

1600

(5)

005337

L &
PAGE 19<4

+ #1

ERR13

LET BLPCSR(R2)

:= #00

CLEAR THF

MOV

#00,3LPCSR(RS)

BIC

#ERROR ' DROPED 'ACTIVE,STATUS
(R2)

LPCSR

LET SlAlUS(fiZ) := STATUS(R2) CLR.BY #ERROR DROPED'ACTIVE

CZLNAAD LNOT TEST
CZLNAA.PIT
1615

1@?&

DNMAC X24.07-563

12-JAN-83 08:16

010210

005062

CLR

}g}g

sENDINC
010214
010220
010224
010224
010230
010232
010274
010274
010302
010344

(&)

010350

(6)

010350

1631

010360

(10) 010356

(&)
(3)
1632
(3)
1é§§

010360
010362
010362
010362
010364

000137
004737

007442
007150

012700
104441

000000

112737

000014

004737

005246

032772

001001

000200

PAGE 19-5

SEQ 0051

LET DELCNT(R2)
:END OF

1620
1621
1622
(3)
(3)
16%3
1627
(&)
1628
1629

08:16

INTERFACE LOGIC

003016

1617

1630

12-JAN-83

T18:

003124

002322

50104%:

HWARD CODED

EXIT TST

104432

000334

:UPDATE UNIT #
: RESET STANDARD VECTORS

WHILE #BIT7 NOTSETIN @LPCSR(R2) 0O
BIT

BNE
50105$:

INCREMENT LOOP

JMP
T1A
JSR
PC,RESVEC
SETPR] #PRIOO
MOV
#PRI00,RO
TRAP
($SPRI
OUTPUT WINTFAC,#47.
LET OUTBUF :B= #14
MOVB
#14,0UTBUF
OUTPUT #OUTBUF
,#1
JSR PC,QUIET

ENDDO

000773

:= #0
DELCNT (R2)

#B117,3LPCSR(R2)

50105$

50104%

TRAP

CSEXIT

.WORD

:WAIT FOR READY

SEXIT THE TEST

L10006~.

1634

s INTERRUPT HANDLER TO SERVICE FAULTY INTERRUPT FROM LP INTERFACE.

}ggg

STHE CPU AND IS CONSIDERED AN ERROR.

1635

1638

1639

(7)

1640
(4)

1641

(4)
(5)
(5)
(5)
1642
(4)
1663
(3)
1322

*THIS ROUTINE 1S ENTERED ONLY WHEN THE LP INTERRUPTS AT THE SAME LEVEL AS

010366

BGNSRY

010366

010366 005262

003060

013737

002260

010372
010372

010400

010400
010402
010404
010406
010410
010610
010414
010414
010414

104456
000005
010560
000000

012716

010174

000002

}gzg

010416

1649

010416

1650

010422

(3)
(2)

INC

:= ERRTBL(R2) + #1

ERRTBL (R2)

LET LSLUN := LUNIT
MOV
LUNIT,LSLUN

002074

ERRHRD S,ERR12

TRAP
(CSERHRD
MWORD
S
.WORD
ERR12
WORD
O
LET (SP) := WEND2
MOV
#END2, (SP)
ENDSRY
L10007:
RTI

P INTERRUPT HANDLFR FOR EXPECTED INTERRUPT

}222

(4)

INTERR: LET ERRTHL(R2)

BGNSRY

010616

012716

010422
010622

000002

010174

INTHDL: LET (SP) := WEND2
ENDSRV

£10010:

MOV
RT]

#END2, (SP)

CILN AAD

LNO1

CZLNAA.P1T
1651
165%

12%4

TEST

010424

DNMAT X24.07-563

12=-JAN-83 08:16

047111

042524

043122

}g%z

1657

1658
1659
1660
1661
(3)
(3)
1662
1663

1664

12-JAN-B3

08:16

INTERFACE LOGIC
:
«NLIST BEX

INTFAC:

.ASCIZ

N &
PAGE 19-6

/INTERFACE LOGIC TEST 1

SEQ 0052

====

TEST (OMPLETE/<12><12>

sERROR MESSAGES ASSOCIATED WITH THIS TEST

0105064

047514

010720
010720
010720

104401

010560
010643

010722

051120
120
010720

042101

047111
044522

047111

042524
052116

ERR11:

ERR1§:
ERR13:
LEVEN
ENDTST
L10006:

.ASCIZ
+JASCIZ
,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 (PU PRIORITY 3/

CSETST

B S
CZLNAAO LNO1 TEST
DNMAC X24.07-563 12-JAN-83 08:16 PAGE 19-7
CZLNAA.P1Y
12=-JAN-B3 08:16
DATA TRANSFER FATHS
}ggg
1668
1669
1670
1671
167
167
1674
1675
1676
1677
1678
1679
1680

.SBTTL DATA TRANSFER PATHS
010722

BGNMOD
144
STHIS TEST CHECKS THE DATA TRANSFER
;PATHS FROM THE PROCESSOR INTERFACE
:T0 THE PRINTER OUTPUT. AN ALTERNATING
:PATTERN OF ONES AND ZEROES CORRESPONDING
:TO AN ALTERNATING STRING OF ''s'* AND
+"'U'" CHARACTERS ARE TRANSMITTED ON THE
SFULL 132 COLUMNS.
AFTER 16 LINES OF
STHIS PATTERN, THE OUTPUT PATTERN IS
SSWITCHED TO AN ALTERNATING PATTERN
SOF 7' AND ''3'' CHARACTERS FOR ANOTHER
;16 LINES.

1681

1682

1683
(3)
1684
1688
1689
1690
1691

s--

010722
010722
010722

(5)

010764
010764

(6)
(10)
(7)
(7)
(9)
1692
(6)

010774
010774
011000
011000
011006
011010
011010

1693
(4)
1694

011020
011020
011026

(7)

010772

(10) 011016
(4)
(3)

1695
(4)
1696
(4)
1697
(4)

1698
(5)

(7)

011026
011030

012737

000402

000001

023727
003111

011352

000002

023727

011352

900001

001004

112737

000125

0127064

003124

011042

012737

000001

(7)

011056

1699
(4)
1700

011066
011066
011072

011066

000402

005237

002250

023727

002250

003017
113724
105137

011312
011312

011312

50106%

INC

PATTERN

CMP
PATTERN,#2
BGT
50110%
PATTERN EQ #1 THEN
CMP
PATTERN,
#1

BNE

50111%

50112%

LET CHAR :B= #'?
MOVB
#'?,CHAR
ENDIF
50112%:
LET R4 := #OUTBUF
MOV
#OUTBUF
R4

INCR CCNT FROM #1

002250
50114$:

000102

LET CHAR :B= #'U
MOVB
#'U,CHAR
ELSE

50111$:

000077

0131050

501068
:

011312

000403

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

011352

112737

011042

011352

005237

011030
011030
011036
011036
011036
011036

(6)
011052
(10) 011052
(7)
011056

(9)

BGNTST
12::

50113$:

MOV

#1,CCNT

INC

CCNT

CMP

CCNT, #66.

BGT

MOVB

TO #66. BY #1

50113s

LET

50115%

(R4)+ :B= CHAR
CHAR,(R&)+
(OMB CHAR

SEQ 0053

1701
(7)
1702
(4)

011076
811076
011104
011106

1706

011114

1703
(7)

011110
011114

1705
(5)
(&)
1706
(4)
1707
(&)
1708
()

011125
011122
011124
011124
0111;4
011130
011130
011134
01113¢

(6)

011144

(7)

011142

(10) 011144

(7)
(7)
(9)
1709

1710
1711
(5)
(4)
1712
(5)
(4)
1713
(4)
1714
1715
1716

(3)
(3)

1717

1718

};}8
1721
1722
1723
1724
1725
1726
1727
(3)

1;3;

1729

011150
011150
011156
011160

011222
011226
011226
011230
011230
011230
011232
011232
011232

142737

000200

113724

o11§15

105137
142737

000200

COMB CHAR

011312

112724

000015

112714

000012

012737

000001

005237

002242

023727
003024

002242

004737

005246

002242
50117%:

000020

000746

501168
:

501208
:
END INC

000661
112737

000014

004737

005246

011306
011310

104432
000044

011312

000000

011352

000000

040504

BICB
50115$:

011240
011302
011306

011314

BICB

011

000753

000402

LET CHAR :B= CHMAR CLR.BY #200
#200,CHAR
LET (R&)+ :B= CHAR
MOVB
CHAR, (R&)+

011312

040524

003124

052040

END INC
BR

011354
011356

104401

:B= CHAR CLR.BY #200

#200,CHAR
50114$%

LET (R&)+ :B= #15
MOVB
#15,(R4)+
'ET (R&) :B= #12
MOVB
#12,(R4)
INCR LINCNT FROM #1
MOV
#1,LINCNT

50116%

INC

LINCNT

LINCNT,#16.
§0120%
OUTPUT #OUTBUF, #134.
JSR PC,
QUIET
END INC
BR
50117%

BR
50107%
501108
:
LET OUTBUF :B= #14
MOVB
#14,0UTBUF
OUTPUT
#OUTBUF, #1
JSR PC,QUIET
EXIT TST
TRAP
CSEXIT
LWORD
L10011~-,
NLIST BEX
CHAR:
.WORD 0

DATPTH:

.ASCIZ /DATA TRANSFER PATHS TEST 2/ <12><12><12>

.EVEN
PATTERN:

ENDTST
£L10011:
ENDMOD

TO #16. BY #1

CMP
BGT

.EVEN
LLIST BEX
011354
011354

LET CHAR

TRAP

.WORD 0
-EVEN

CSETST

SEQ 0054

C 5
CZLNAAD LNO1 TEST
DNMAC x264.07-563 12-JAN-83 08:16 PAGE 19-8
CZLNAA. P
12-JAN-83 08:16
DATA TRANSFER PATHS

CZLNAAO LNO1 TEST

CZLUNAA.P11
1731

};gg

DNMAC X24.07-563

12-JAN-83 08:16

011356
011356

(6)
(8)
(6)
(7)

011430
011430
011434
011434

(7)

011444

011426

N11442

(6)

011450

(4)
1749
(5)

011450
011454
011454

1748

(7)

011450

011462

(6)
(8)
(6)
(7)

011464
011464
011470
011470

(7)
(6)
1750
(4)
1751
(&)
(4)
1752
(&)
1753
1754
1755
(4)
(4)

011500
011504
011504
011504
011510
011510
011512
011512
011512
011516
011560
011564
011564
011566

(9)

1756
1757
(4)
1758
1759
1760
1761
(3)

011476

IN THE

BGNTST
13::

011356

011420
011420

(9)

SEQ 0055

s THIS TEST WILL PRINT A FULL LINE OF EACH UPPER AND LOWER CASE PRINTABLE CHARACTER

1747
(5)

(7)

;00

};lzg

1746

PRINTABLE CHARACTERS

PAGE 19-9

BGNMOD

1735

};2%

(08:16

.SBTTL PRINTABLE CHARACTERS

011356

173%

1737
1738
(3)

12-JAN-B83

000001
012737

000402

$BRUMP=1
000040

005237

003120

023727

003120

000137

011566

012704

003124

012737

000001

003402

000402

005237

002246

023727

002246

000137

011512

113724

003120

003402

003120
501218
:

000177

501228%:

000012

004737

005246

501258
:

000204

501268$:

000014

50127%:

004737

005246

011704
011706

104432

: PRINT TEST ID
UNITS

INCR WORK FROM #40 TO #177 BY M
MOV
#40, WORK

50122%

INC

WORK

CMP

WORK , #177

JMP

50124%

5012%$

LET R4

:= #OUTBUF

50126%

INC

COUNT

CMP

COUNT,#132.

JMP

501308

MOVB

TO #132. BY #1

50127$

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

ENDINC
50125%

(R&)+ :B= #LF
#LF,(R4)+
OUTPUT #OUTBUF ,#133.
JSR PC,QUIET
ENDINC
BR
50121%

MOVB

003124

CHARACTERS ON ALL

BLE

50124$:

112737

ALL

#OUTBUF ,R4
INCR COUNT FROM #1
MOV
#1,COUNT

002246

000721

011566
011630
011630
011636
011700

OUTPUT #PRTCHR, #30.

MOV

501308
:

112724

BLE
50123$:

000765

177777

7 BIT RANGE

LET

OUTPUT #DONE ,#14,
LET OUTBUF :B= #i4
MOVB
#14.0UTBUF
OUTPUT #OUTBUF ,#1
JSR PC, QUIET

$BRJMP=-1
EXIT 15T
TRAP

CSEXIT

TEST DONE MESSAGE

: EXECUTE

TOF

CZLNAAD LNO1 TEST

CZLNAA.P1I1

DNMAC x24.07-563

12-JAN-83 08:16

1;2)

011706

000110

1763
1766

011710
011747

051120
126

047111
051505

ocosga
020124

1766

012001

141

156

061

1765

1767
1768
1769
(2)
(3)
1770
1771

011765

012016
012016
012016

012020

033

104401

12-JAN-83

PRINTABLE CHARACTERS
-

120

061

08:16

PRTCHR:
DONE:

PORSQ:

aE=°R°

.BYTE

BYTE

TRAP
LLIST BEX

ENDMOD

SEQ 0056

L10012=.

.ASCIZ /PRINTABLE CHARACTERS TEST 3/ <12><12><12>
.ASCI]
/TEST COMPL t£/<1§>
EVEN

ENDTST
L10012:

E 5
PAGE 19-10

33,120,61,73,62,73,61,61,171,124,151,164

141,156,61,60,55,120,5%3,134,%3,183.61,61.,155

(SETST

SEQS TO ASSIGN AND SEI

CZLNAAD LNO1
CZLNAA.P11

F
.5
TEST
NH( X264.07-563
12-JAN=-83 08:16 PAGE 19-11
12-JAN-83
08:1
NON=PRINTABLE CHARACTERS

}?,;2
};;g

SBTTL
012020

SEQ 0057

NON=PRINTABLE CHARACTERS

ecunoo

1777
1778

THIS TEST CHECKS FOR DETECTION OF ALL NON-PRINTABLE CHARACTERS
SEXCEPT FOR HORIZONTAL TAB, LINE FEED,
VERTICAL TAB, FORM

1780
1781
1782

;WOULD BE INTERPRETED AS VALID CONTROL CHARACTERS BY THE LNO1. EACH
;CHARACTER WILL APPEAR ON THE PRINTER OUTPUT IN THE FORM OF ITS OCTAL
:CODE ACCOMPANIED WITH ITS MNEMONIC.
dod

1784
1785
1786

s1F THE CONTROL CODE HAS TAKEN UP A SPACE IN THE BUFFER THE ‘‘@"* CHARACTER
:WILL APPEAR AT THE RIGHT MARGIN OF THE PAGE. IF THE CONTROL CODE HAS NOT
;TAKEN UP SPACE IN THE BUFFER THE ''3'' WILL APPEAR IMMEDIATELY 10 THE RIGHT

1779

:FEED, CARRIAGE RETURN, AND ESCAPE WHICH

1783

:122 OF THE TESTED CODE ARE THEN SENT FOLLOWED BY AN

};gg

:0F

1789
1790
1791
1792
1793

:
:
:
:
:

1795

1794

1797
1798

(3)

}ggg

aeursr

012020

012020
012062
012062

012704

)
012461

1§33

012066

012737

000033

012066

012074
012074
012100
012100

(6)
(10)
(7)
(7)
(9)
1809
15?6

012110
012110
012114
012114
012122
012124
012124

005037

002246

012737

(7) 012106 000402

000001

005237

002242

023737

002242

012703

003124

(6)

CODES.

LET WORK1 := #27.

003122

MOV

#27.,WORK1

003063

LET COUNT == co
CLR
COUN
1~ca LINCNT rnon #1
#1,LINCNT

002242
50132%:
003122

}g}}

(7)

FOR THE 8 BIT CONTROL CODES AS WELL AS THE NORMAL 7 BIT CONTROL

: DO ONE LINE FOR EACH TABLE ENTRY

1807
(4)
1808
(5)

(5)

IF THIS TEST IS ASSEMBLED AS PART OF VERSION 1 LNO1 DIAGNOSTIC
IT WILL ALSO SEND ALL 8 BIT CONTROL CODES.
THE ASSEMBLER
WILL SEE THE CONDITIONAL STATEMENT: **.IF DF VERS.1'',
AND, IFf
VERS.1 IS DEFINED IN SKEL 2 THEN IT WILL ASSEMBLE THE CODE

OUTPUT #NONCHR,#70.
LET R4 := #NONBUF
MOV
#NONBUF R4

}ggz

1813

“NOTE"'

INDICATE TEST CURRENTLY BEING DONE

1801
1802
(4)

1803

THE MNEMONIC FOR THE CONTROL CODE.

012020

50131%:

012130

012136

012140

012737

000402

000001

50{315

INC

LINCNT

CMP

LINCNT ,WORK1

BGT

TG WORK1

BY #1

50133$
LET R3 := WOUTBUF
MOV
#OUTBUF ,R3

: MOVE
012130

'@’ CHARACTER.

003120

CODE AND MNEMONIC TO PRINT BUFFER
MOV

50135$%:

INCR WORK FROM #1
#1,WORK

501348

10 #8. BY #1

DD
NS ONN—

~~O~PA~~~

005237

003120

023727

003120

12-JAN-83 08:16

012152

012154
012154
012156
012156
012160

S LS Db D SN

003002

000010

12-JAN=83

50134%:

012160
012160
A

012166

00 NN NNWWNNSN SN
DO
N~ -

012170

012170
012174
012174

012202

012204
012204
012206
012206
012210

012737

50136%:

000402

000001

005237

(©03120

023727

003120

003002

CMP

WORK ,#8.

SEQ 0058

50134$

LET (R3)+ :B= (R4)+
MOVB
(RG)+,(R3)+
END INC
BR
50135%

MOV

501408
:

501378%:

50141$:

CODE

INTO PRINT BUFFER

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

50137%

INC

WORK

CMP

WORK , #122.

BGT

111423
000770

WORK

PUT 120 BYTES OF

003120

000172

G S
PAGE 19=12

INC

BGT

112423
000770

08:16

NON=PRINTABLE CHARACTERS

VWNWWWWWRI SN SN

S VWU SNNVONN=OANVWN

00 00 0D 000D ~ ~ 00000 ~ 00~ ~ 00 ~ 000000000000 ~ 00~ 0000000000~ ~00 A~~~ A~~~

012140
01%164
012144

°
A

ZZF

~NN

DNMAC X24.07-563

D el
i
—

d D D >
—
e
— i il ol b —nd
—

—
e
e

e
e e

LNO1 TEST

50141%

LET (R3)+ :B= (R&4)
MOVB
(R4) ,(R3)+
END INC
BR
501408

: FOLLOWED BY AN "'@'' CHARACTER AND A LF
012210
012210
012214
012214

112723

000100

112723

000012

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

MOVB

:LF

: PRINT LINE OF OCTAL CODE, MNEMONIC, 120 BYTES(NONPRINTABLE CODE), AND ‘3"
012220

012262
012266
012266
012270
012270
012272
012272
012272
012300
012342

012346
012346
012350

004737

OUTPUT

005246

005204

000707

50133$:

112737

000014

004737

005246

003124

104432

000476

#OUTBUF ,#132.

JSR PC,
QUIET
LET R4 := R4 + #1
R4
INC
END INC
BR
50132%
LET QUTBUF :B= M4
#14,0UTBUF
MOVB
,#
QUTPUT #OUTBUF
JSR PC, QUIET
EXIT
1ST
TRAP
CSEXIT
LWORD
L10013~-.

JAND EXIT TEST

sCHARACTER BUFFER AND TEST HEADER MESSAGE

012352

047516

026516

051120

NLIST BEX

NONCHR: .ASCI1

/NON=PRINTABLE CHARACTERS TEST 4/<12>

m OO©OOO
[
e
l
e
l
e
l
e
l
e
l
e
l
e
l
e
l
e
l
o
l
e
l
e
l
e
l
e
l
e
]
l
e
]
0
0
0
0
0
0
6
5
0
0
5
6
6
1
O O OVO VVO VO VOO O OOOOOO

[e(LOae=Tllae=eOllaeeTllaeOellIaeelTlaeelOaleelIaelleaelTlaeOllebeIlaleOebllaeellOaeellaeeOllaeeCllaeQellaeCelalOeelaOleelOaleeIlaleTleaelOlaeeIllaeIellaeIellaIetel])aYe]l
ee e N N N T i e

—)NT—yeSTROWe"DKSTROeNeTMKTSKMOeTeNMSTeOTeMNLOTeSTTeMOTKNSeTTMOTNLSTTMKOBNITSlaTnVlaMnALN
CZUNAAD LNOT
CZLNAA.P1Y
TEST
12=JAN-83 08:16

012472

013044

020101

000000

DNMAC x24.07-563

052506

12=JAN=83
(0B8:16
PAGE 19-13
NON=PRINTABLE CHARACTERS

046114
+ASCIZ

«O0O0O0O0O0O0O0—OONONONONOMOMOMOM g[=l=lelelelelalelelelelelelelelalelelelelelelelelele
" IRAP

ENDMOD

CSETST

/A FULL LINE OF EACH CODE WILL BE

SEQ 0059

SENT/<12>

CZUNAAD LNO1 TEST
DNMAC X24.07-563
12-JAN-B3 08:16
CZLNAA.P1T
12-JAN-83 08:16
PRINT CONTROL
}32;

}ggg

PAGE 19-14

SEQ 0060

.SBTTL PRINT CONTROL

013050

BGNMOD
MR
X J

1956
1957

;THIS TEST CHECKS THE PRINT CONTROL BY SENDING MORE THAN 132 (HARACTERS
:BEFORE
SENDING A CARRIAGE RETURN AND LINE FEED. ALL CHARACTERS IN EXCESS

1960
}gg;

:THREE LINES ARE PRINTED PER ITERATION, THESE LINES WILL IDENTIFY THE
: COLUMN uusasns ACROSS THE PAGE. EXAMPLE :
)

1963
}ggg

:
1
8
3.. ..... LB BN BN BN BN BN BN BN BN BN )
:123456789012345678901234567890.cccecccee S .

}3&9

;NOTICE

}ggg

STHIS OUTPUT

}823

sOF 132

1970
(3)
1974
(5)
(7)
1975
1976
(5)
(7)
(6)
(8)
(6)
(7)
(9)
(7)
(6)
1977
(5)
(8)
1978

013074
013076
013102
013102
013102
013106
013110

(4)
1980
1981
(4)
1982
(&)
(6)
(8)
(9)
1983
1984
(3)
(3)
1985
(&)

013152
013160
013160
013160
013164
013164
013164
013166
013170
013174
013234
01323&
013236
013236
013236

1979

}ggg

013050
013050
013050
013050
013054

013056
013056
013062
013064

013064
013070
013070

013152

013244

013701
005301
000001

002012

005037
000402

002260

005237

002260

023701
003402
000137

002260

012737

000015

012705

014210

50142%:

50143$%:

501448%:

002246

:= LSUNIT =

LSUNIT,R1
R1

50143$%

INC

LUNIT

CMP
BLE
JMP

LUNIT, R
50144%
50145%

MOV
ASL

LET R2 := LUNIT SHIFT 1
LUNIT R2
R2
OUTPUl #PRTCTL,#56.,.LUNIT

MOV
MoV
50146%:

013236

000753

50147%:

000012

IS REPEATED 13 TIMES.

§
MoV
DEC

003124

ST
BNE
JMP

LET CGUNT := #i3,

#13.,COUNT
1%:
LET RS := #TABLE!
#TABLE1,RS
WHILE (RS) NE #0 DO

(RS)
. *6
50147%
OQUTPUI
ENDDO
50146%

MOVB

LET OUTBUF
#12,0UTBUF

(RS)+,#10.,,LUNIT

:B= #12

OUTPUl #OUTBUF ,#1,,LUNIT

3
012

132 COLUMNS ACROSS THE PAGE.

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

013734

002260

112737

THAT THE PRINTOUT SHOULD IDENTIFY

$BRJMP=1

013702
006302

005715
001002
000137

BGNTST
15::
LET RY1

CHARACTERS SHOULD BE DISREGARDED.

12-JAN-B3
0B:16
CZLNAAO LNO1 TEST
DNMAC x24.07-563
CZLNAA.P1T
12=-JAN-83 08:16
PRINT CONTROL
1988
(4)
1989
(&)
(6)
@
(9)
1990
1991
(3)
(3)
1992

013306
013306
013312
013312
013312
013314
013316
013322
013362
013362
013364
013364

1994
(5)
(7)

013426
013426
013434

199

(6)
(8)
(6)
(7)
(9)
(7)
6)
1995
1996
(4)
(4)
1997
1998
1999
(7)

(4)

(4)
(&)

2008
2009
(3)
(3)

2019

2011
2012
201
2014
2015

013364

JMP

000753

50151%:

012737
000402

000016

005337

002242

023727
002002
000137

002242

TST
BNE

002242

MOV

50152%:

013632
013636
013640

005737
0030Ce
000137

002246

000137

013650
0'2160

TST
BGT
JMP

013650
013650

004737

205246

013654

112737

000014

004737

005246

000137

013064

013654

013662
013726
013730
013730
013734

01373

000001

013522

50153%:

50154%:

000746

50155%:

WHILE

(RS) NE #0 DO

(RS)
. +6

50151%
OUTPUI (RS)+,#10.,,LUN]T

ENDDO
50150%

DECR LINCNT FROM #14.,

#14, L INCNT

cmMP

LINCNT
M

BGE
JMP

50154%
50155%

OUTPUI

MOVB

JMP
50145%:
$BRJMP==1
EXIT T1ST

TO #1 BY M

5015%$

L INCNT

ENDINCR

177777

SEQ 0061

LET RS := #TABLE?
#TABLEZ,RS

DEC

50156%:
003124

F
,#1, ,LUNIT
OUTPUl #OUTBU

DEC

013644
013650

2005
2006
2007

50150%:

002246

2001
2002

2004

MOV

005337

013632

(4)
2003

005715
001002
000137

014244

013436
013436
013442
013442
013450
013452
013456
013456
013520
013520
013522
013522
013564
013626
013626

2000
(6)
(8)
(9)

012705

PAGE 19-15

ENDDECR

#x11,#10.,.LUNIT

50152%

OUTPUI #OUTBUF ,#1,,LUNIT
OUTPUI #QUTBUF ,#1,,LUNIT
LET COUNT := COUNT - #1
COUNT

If COUNT GT #0 THEN
COUNT
. *6
50156%
JMP 1%
ENDIF

JSR PC, QUIEY
LET OUTBUF :B= #14
#14 ,0UTBUF
F
,#1, ,LUNIT
#OUTBU
OUTPUI
JSR PC,QUIET

50142%

013734
013736

104432
000342

013740
013766

051120
044123

047111
052517

020124
042114

.WORD
L10014~-,
.NLIST BEX
57 12>
PRTCTL: LASCII /PRINT CONTROL TEST
PRINTED/<12><12><15>
COLUMNS
132
SHOW
LD
LASCIZ /SHOU

014031
014043

040
040

020040
020040

X0
x1

TRAP

CSEXIT

LASCIL
LASCIL

/7
/7

0/
1/

CZLNAAD LNO1 TEST
CZLNAA.PI
12-JAN-83

NMAC Xx24.07-563 12-JAN-B3 08:16
08:1¢
PRINT CONTROL

K 5
PAGE 19-16

2016
2017
2018
2019
2020
2021
202%

014055
014067
014101
014113
0141%5
014137
014151

040
040
040
040
040
040
040

020040
8 0040
004
02004
8 004
0040
0040

0040
0040
0040
8 0040
0040
020040
020040

x2:
x3:
x&:
x5
x6
x7
x8

LASCIL
LASCIT
JASCIT
LASCIT
JASCIT
JASCII
JASCIT

/
7/
/
7
/
/7
/7

%8%2

016175

061

031462

0324646

11:

LASCIT

71234567890/

2027
2028

014210

014210
014931

014031

LEVEN
TABLE1:

.WwORD

x0,x0,x0,x0,x0,x0,x0,x0,Xx0,x1,x1,x1,x1,0

2031
2032
2033

014300

58%‘

%8%8

(3)
(3)

2034

0146163

014244

014300
014300

014302

040

014043

020040

014055

029040

014067

CASCIT

TABLEZ: .:egz

L10014:

ENDMOD

TRAP

X1,X2,X3,%4,%X5,%X6,X7,%8,%X9,%0,x1,%x2,%3,0

LLIST BEX
ENDTST
104401

/
/
&/
5/
6/
7/
8/

CSETST

SEQ 0062

CZUNAAD LNO1 TEST
CZLNAA.PIT

DNMAC Xx24.07-563

12-JAN-83 08:16

%8%?
gggg

014302

BGNTST

016302

2059
(3)

014352
014352

014352

T6::

002242

014374
014374
014400

(7)

014406

014400

(6)
014410
(10) 014410
(7)
014414

(7)

014414

2064

014424

(&)

2066
(4)

2067
(4)

014422

0144264
014430
014430
014432

014432

014434

(6)

014436

2068

014442

042716
042637

003124

012737

000001

000402

005237

002250

023727

002250

003003

117723

(7)

2070

112723

014446

005204

014450

000170

LET STACHR := #TABSTR
#TABSTR,STACHR
MOV
_

LET LINCNT :B= @STACHR
MOVB
MOV

002250

:GET A CHARACTER TO OUTPUT

LINCNT,=(SP)

BIC
BIC

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

MOV

#1,CCNT

INC

CCNT

CMP

CCNT,#132.

;SET UP OQUTPUT BUFFER
LET R3 := #OUTBUF
MOV
#OUTBUF ,R3
INCR CCNT FRCM #1 TO #132. BY #1
50161%:

000204

@STACHR,LINCNT

:OUTPUT CHARACTERS

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

501608:

BGT

50160$

50162%

LET (R3)+ :B= @STACHR

MOVB
ENDINC
BR

50162%:

LET R4 := #0

005004

014442

2069 014446

)

000767

020437

002242

000007
002242

012703

(19) 014440 001404
(4)

014620

REPEAT
50157%:

013746

2062
(4)
2063

(4)
2065
(5)

014622

014360

0143664
014370

(9)

012737

000242

(7)
(7)

OUTPUT #MUL INE,#86.

117737

014360

SEQUENCE.

;PRINT TEST IDENTIFICATION

014352

2061

(5)

MULTIPLE LINE ADVANCc

SALL 0°S WILL INDICATE THE END OF THE TEST

014344
014344

(7)

SEQ 0063

STHIS TEST CHECKS THE MULTIPLE LINE ADVANCE OF THE LNO1. A LINE OF
*NUMBERS IS SENT AND THEN A NUMBER OF LINE FEEDS ARE SENT. THUS THE
‘NUMBER PRINTED WILL INDICATE THE NUMBER OF BLANK LINES FOLLOWING THAT
SLINE. THE NUMBER OF LINES IS VARIED BETWEEN 2 AND 7 AND A LINE OF

2057
zégé

(4)

?
583
5832 014302

2060

PAGE 19-17

BGNMOD

gg:g

(3)
2049

08:16

MULTIPLE LINE ADVANCE
.SBTTL

2040
2041
2042
2043
2046
2047
2048

12-JAN-83

@STACHR,(R3)+

:PUT CHARACTER

IN OUTPUT BUFFER

50161%

CLR

CMP

R4, L INCNT

WHILE R4 NE LINCNT DO

002242

000012

50163%:

BEQ

50164%

LET (R3)+ :B= #12

MOVB

#12,(R3)+

INC

LET RC := RG + M

ENDDO

sFILL WITH LINE ' EEDS

o SN

014452

014462

W) = v O~ w OO NN~

onnC X26.07-563

JAN=83 08:1

000771

12-JAN-83

08:16

mS
PAGE 19-18

50164$:

014452
014456

013704
062704

002242
000204

014462
014466

005237

014620

004737

005246

005737
001305

002242

014526

014532
014532
014536
014540
014540
014546
014610

112737

000014

50163$

004737

005246

014614
014616

10443
00015

014620

000000

014622
014637
014675

033462
115
116

014614

033062
046125
046525

:NUMBER OF CHARACTERS TO OUTPUT

LET STACHR := srncna . 0

: UPDATE CHARACTER COUNT

LINCNI
#32.,

INC
STACHR
OUTPUT #OUTBUF ,R4

JSR PC,

104401

:OUTPUT THE LINE

UNTIL LINCNT EQ #0
ST
L INCNT
BNE
50157%
LET OUTBUF :B= #14
MOVB
#14,0UTBUF
OUTPUT #OUTBUF ,#1
JSR PC,QUIET
EXIT TST

463
044524
502

QuieT

TRAP
MORD

STACHR:

.WORD 0

TABSTR:
MULINE:

.ASCIZ
.ASCII
.ASCIZ

UNLIST BEX

CSEXIT
L10015-.

/272637463540/
/MULTIPLE LINE ADVANCE TEST 6/<12>
/NUMBERS PRINTED REPRESENT # LINES TO NEXT LINE PRINTED/<12><12>

.EVEN
LIST BEX

014766
014766
014766
014770

(ik

LET R4 := LINCNT ¢ :132.

MOV
ADD

003124

SEQ 0064

MULTIPLE LINE ADVANCE

:NOW OUTPUT THE ACTUA'

P11

COO0O~~

)’

014450
014452

WIWOD 0000 500 ~JNNNNN
NN NV NNSNNWES

(alel
~NN

0 LNOY 153

ENDTST
L10015:
ENDMOD

TRAP

CSETST

12-)AN-83 08:16

CZUNAAD LNO1 TEST
-

o
o

CZLNAA.PT1

DNMAC X24.07-563

101

}85

DVSTRIKE

12-JAN-83

08:16

PAGE

N S
19-19

SEQ 0 006 0065

.SBTTL DVSTRIKE
;MODULE DVSTR1.P11

014770

BGNMOD
‘¢4

2104
2105

:THIS TEST WILL VERIFY CORRECT OPERATION OF THE PRINTER WHILE OPERATING
;JUST WITHIN OVERSTRIKE, LINE BUFFER AND PAGE BUFFER LIMITS.

2107
2108
2109
2110
211

;WE ARE LIMITED WHEN SENDING CHARACTERS TO THE LINE BUFFER.
IF YOU USE THE DEFAULT
:FONT AND PRINT SEQUENTIAL LINES, THE LIMIT IS 148 TOTAL CHARACTERS PER LINE COUNTING
:ALL CHARACTERS THAT ARE ACTUALLY TRANSMITTED FROM THE LP11 HOST INTERFACE.
;THIS LIMIT IS TESTED AS WELL.
.
:THE PAGE BUFFER LIMIT IS 10,000 CHARACTERS AND THIS TEST OPERATES ‘‘JUST’

2106

:A TOTAL OF & OVERSTRIKES ON ONE

%}}g

LINE IS ALLOWED AND IS TESTED.

‘WITHIN THAT LIMIT, USING OVER 9,900 CHARACTERS.

2114
2115

:
;

2118

;

%}59

%}}?

NOTE:

;

2119

THIS TEST IN A SOMEWHAT MODIFIED FORM IS BEING USED ALSO FOR

THE VAX VERSION OF THE LNO1 EXTENDED DIAGNOSTIC.

IN THE PDP=11 FORM (WHICH IS THIS MODULE) THE PAGE BUFFER ENDS UP CONTAINING

;

A TOTAL OF

2122
2123
g}gg

;
:
:

IN THE VAX FORM (WHICH IS USED IN THE VAX PRINTER DIAGNOSTIC) THE PAGE BUFFER
ENDS UP CONTAINING A TOTAL OF 9,949 CHARACTERS. THIS INCLUDES 7 THE EVER PRESENT
CHARALTERS FOR EACH LINE THAT THE PRINTER USES.

2126
2127
2128
2129
2130
2131

3
;
;
;
:
:

NOTE:
ONE THING NOT COUNTED HERE IS THE POSSIBILITY OF THE PRINTER USING ONE EXTRA
SPACE PER LINE FEED IN ITS BUFFER WHEN IN '‘LINE FEED-NEWLINE MODE''.
THE WORST CASE IF THIS SHOULD HAPPEN IS THAT 66 EXTRA CHARACTERS WOULD END
UP ADDED TO THE PREVIOUS PAGE BUFFER TOTAL. I DON'T BELIEVE THAT EVEN THIS
CASE WOULD CAUSE A FAILURE. HOWEVER, THE POSSIBILITY EXISTS BECAUSE THE PAGE BUF

g};g

;

9,939 CHARACTERS.

EACH LINE THAT THE PRINTER USES.

014770
014770

2137
(&)

014770
014770

012704

003124

LET R4
MOV

:= #OUTBUF
#OUTBUF R4

(&)

0147764

112724

000116

MOVB

#116,(R4)+

015000

112724

000132

MOVB

#132,(R4)+

015004
015010
015010

112724

000116

112724

000015

MOVB
#116,(R4)+
LET (R4)+ :B= #(R
MOVB
#CR,(R4)+

015014
015020
015020

112724

000012

112724

000014

MOVB
#LF,(R4)+
LET (R&)+ :B= #FFf
MOVB
#FF,(R&4)+

015024

112724

000040

MOVB

014774

2139

015000

2140

015004

(&)

(4)
2141
(4)

2142

(4)
2143
(&)

2144
(4)

2148

015014

015024

015030

2149 015072

INCLUDES THE EVER PRESENT

7 CHARACTERS FOR

WOULD SLIGHTLY EXCEED ITS LIMIT ON THE PDP11 VERSION AS WELL AS THE YAX VERSION.

2134
2135
2;%&

2138

THIS

BGNTST 7
17::
:

ADDRESS OF BUFFER

LET (R&)+ :B= #116

LET (R4)+ :B= #132

LET (R&)+ :B= #116

LET

(R4)+ :B= #LF

oL
g
CARRIAGE

RET.

: LINE FEED
:

FORM FEED

LET (R&)+ :B= #40

: SPACE

OUTPUT #DVSTR,#15.

: TEST ID WITHOUT LINE FEED

#40, (R&)+

OUTPUT #OUTBUF +6,#1,,4#90,

2 DO 90 SPACES TO TAKE UP LINE BUFFER SP

151

1 i

O1 1;4

015176

1530
81g
4

126
187

01545
015512

159
160

015616
015660

155

158

161

01 408

004737

:
005246

(7)

016040

012737

000402

000001

(9)

2165

016056

005237

002246

023727

002246

003135

501668
:

: DO LINE FEED
*3RD
.

OUTPUT #OUTBUF
¢4, #1
OUTPUT #IN&,#18.

: DO LINE, FEED
S4TH

OUTPUT #OUTBUF
¢4, #1
JSR PC, QUIET
INCR COUNT FROM #1 TO #61. BY #1

: DO LINE FEED

000075

MOV

#1,COUNT

INC

COUNT

CMP

COUNT, #61.

B8R

50165$:

BGT

2166 016120
2167
2i68
(6)

016162
016224
o1ez§a

(10) 016232

2169
2170

016234
016276

%)
(3)
2171

016276
016300
016300

(4)

016342

2172

023727

2175
2176
2177

016350
016412
016416

004737

016416
016420

104432
000100

016422
016424
016426
016430
016450

000000
000000
000000
053104
006532

2178
2179
2180
2181
2182
2183

2184
2185
%}g?
2188
(3)

016350

016453
016462
016476
016520

016520

004737

005246

50167$:

005246

052123
116
006532
006532
055132

EXIT TST

044522

006516
006516
047015

END INC
R

50167$

)

ENDTST

L10016:

: DO 90 SPACES TO TAKE UP LINE BUFFER SP
: 61 LINES OF OVERPRINTING

: LINE OF NZ

OUTPUT #OUTBUF+1,4#2,,436.
IF COUNT EQ #61. THEN

: LINE OF 2N
: IS THIS THE LAST LINE?

COUNT, #61.

50170$
ELSE

; CARRIAGE RET. (NO LF)

OUTPUT #OUTBUF+3,#1

: CARRIAGE RETURN ONLY ON LAST LINE

OUTPUT #OUTBUF+3,#2

50171$%

JSR PC,QUIET
50166%

OUTPUT #OUTBUF +5,#1
JSR PC,QUIET

CR AND LF ON EVERY OTHER LINE

: WHEN DONE FALL THROUGH
: DO FORM FEED

TRAP
LWORD

CSEXIT
L10016~.

JASCIL
JASCII
JASCIT

7227<€15>/N/7<15><40>/N/
/7222/7<15>/N/7<15><40>/N/<15><40><40>/N/
722727<15>/N/7<€15><40>/N/7<15><40><40>/N/<15><40><40><40>/N/

NLIST BEX
INUM:
.WORD
SPANUM: .WORD 0
NEWSPA: .WORD 0
DVSTR:
.ASCIZ /DVSTRIKE TEST 7/
IN1:
JASCIT
72/<15>/N/

IN2:
IN3:
lgeszu

: DO 90 SPACES TO TAKE UP LINE BUFFER SP

QUTPUT WOUTBUF ,#Z,,#36.

ENDIF

50171$:

000635

132
055132
055132

CMP

BNE
50170$:

016342

016342
016346
016346

(3)
(3)

000075

000421

2173
2174
(5)
(4)

002246

: DO 90 SPACES TO TAKE UP LINE BUFFER SP

50165$

OUTPUT OOUTBUHSJ{
001022

90 SPACES

OUTPUT #OUTBUF +6,#1,,#90.
002246

;13t OVERPRINT LINE

: LINE FEED
:2ND
"

OUTPUT #OUTBUF +6,#1,,#90.

815722

016045
016042
016046
016046

OUTPUT #OUTBUF +6,#1,,#90.
OUTPUT #OUTRUF
¢4, #1
OUTPUT #IN3, #12.

15764
o1eo§6
016032

(6)
(10)
(7)
(7)

: DO LINE FEED

OUTPUT #OUTBUF +6,#1,,#90.

015554

016032

OUTPUT #OUTBUF +4,#1
OUTPUT #QUTBUF +4,#1
OUTPUT #IN2,#7.

1e§
16
164

(5)

SEG 0066

OUTPUT #IN1,#3

1
154

B_6
PAGE 19-20

DD
ODODEE@RI>>

150

08:16

e lalatalalal
el Yalal

CZUNAAD LNOY 1531
DNMAC X24.07-563 1¥-JAN-83
CZLNAA.PTY
- JAN-83 08:16
DVSTRIKE

016522

BGNMOD

+SBTTL

sTHIS TEST CHECKS THE OPERATION OF
sPRINTER READY INTETLOCK SWITCHES.
sMANUAL INTERVENTION IS USED TO

sIN THE PRINTER AFTER WHICH THE RESULTANT ERROR

;INDICATION IS VERIFIED.

016522

?GNYSY

016522

sDETERMINE IF MANUAL INTERVENTION IS ALLOWED

2209

016535

104432

(6)
01653
(10) 016536

005737
001002

(3)
(3)

002714

2210

016540

016540
016542

2211

016544

2212

016544

2213

016550

(4)

(5)
(7)

2214
2215
2216

TRAP

.WORD

‘EXIT TEST

002234

LWORD

50172%:

016544

005037

002240

016550
016554

013701
005301

002012

005037
000402

002260

005237

002260

023701
003020

002260

016576
016602

013702
006302

002260

(6)
016604
(10) 016612

032772
001410

100000

2217
(5)

(8)

016576

2218

016604

2219

016614

TRAP

016544

016556

IF MANUAL

INTERVENTION TESTS ARE NOT SPECIFIED

IF INHINT EQ #0 THEN
INHINT

BNE
50172%
EXIT TST

104432

016556
016562
016564
016564
016570
016570
016574

(5)
(7)
(6)
(10)
(7)
(7)
(9)

i1s:

CSEXIT

L10017~-,

ENDIF

CSEXIT

L10017-.

LET FLAG := #0
CLR

LET R1

MOV
DEC

FLAG

:= LSUNIT - #1
R
LSUNIT,
$
R1

sCHECK FOR ERROR 1 N
INCR _LUNIT fRSM
CLR
L N
50 1
BR
50174%:

50173%:

002322

CH PRINTER UNDER TEST
T0 R1 BY #1

LUN

SHIFT 1

aLPCSR(R2)
aLPISR(R?)

RTBL(R2)

THEN

:= ERRTBL(R2)

e e el lealalalalalatalalaYalalalela e e )

002726

016526
016530

CSMANI

103402

016526

TRAP

BCOMPLETE 11%
BCS
11%
EXIT TST

016524

MANUAL

(2)

016524

V-~
D

016522

104450

(3)
(3)
2208

THE

sOPEN THE INTERLOCKS TO PRODUCE FAULTS

016522

2207

TEST 8

14
S

(3)

2206

READY LINE INTERLOCKS

«
2

2204
2205

016522

SEQ 0067

CSETST

~d e
N-—aJM

(3)

TRAP

LLIST BEX
ENDMOD

]
=4

219;
2193
2194
2195
2196
2197
2198
2199
2200
2201
2202
2203

104401

Y B Lo s BT anl N T
MO Nttt
=AZ N
DA N+ et

5190
19

016520

PAGE 19-21

MRV 1w
mMoOom
NC
OC

(3)
2189

08:16

(alalalalalalalalalalalalalalalalal VY lalalalalalalal el o)

8NHA( X24.07-563
12-JAN-B3
CZLNAAD LNOT T E;‘
CZLNAA.PTT
-JAN-83 8:16
DVSTRIKE

+ #1

D_6
CILNAAD LNO1 TEST
DNMAC Xx24.07-563 12-JAN-83 08:16 PAGE 19-2%
CZUNAA.PTT
12-JAN-83 08:16
READY LINE INTERLOCKS
TEST
(7)

016614

005262

(6)

016620

104456

2220

016620

(5)
(5)
(3)

016622
016604
Q16626

000006
003352
000000

(4)

016630

005072

2221

2222
(4)

2223
(5)
(4)

2224
2225

(5)
(7)
(6)
(10)

016630

016634

003060

TRAP

002322

016634

016634
016636

016636

016636
016642
016644
016644

501768
:

50175$:

005037
000402

002260

005237

002260

023701

002260

016650
016650

2226

016656

(8)

016662

006302

016664

013737

002260

(6)
016672
(10) 016700

032772
001006

000200

(7)

016702

005262

003060

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

016706
016710
016712
016714

104456
000007
003370
000000

(4)

016716

(5)

2227
(4)

2228

016656

016664

016672

2229

016702

2230

016706

2231

2232
(5)
(4)

2233
55§§

016716

016716
016720

016720

2240

016762

2241
2262

016766
016772

22643

2264
2245

013702

(SERHRD

6
CSRERR
0

(LR

@LPCSR(R2)

ENDIF
BR

LET SLPCSR(R2)

:= #0

50174$

sCHECK FOR READY IN EACH PRINTER UNDER TEST
INCR_LUNIT FROM #0 TO R1 BY #1

502008:

50177%:

(LR
BR

LUNIT
501778

INC

LUNIT

(MP

LUNIT,R1

BGT

50201$

LET R2 := LUNIT_SHIFT 1

002260

MOV

LUNIT,RZ

ASL

002074

MOV~

LUNIT,LSLUN

002322

BIT
BNE

#B1107,aLPCSR(R2)
02028

LET LSLUN := LUNIT

IF_#B1T07 NOTSETIN @aLPCSR(R2)

INC
TRAP
WORD
.WORD
.WORD

502028:

ENDIF

ENDINC

000752

ERRHRD 6, CSRERR

502018
:

LET ERRTBL(R2)
ERRTBL (R2)

THEN

:= ERRTBL(R2)

+ #1

ERRHRD 7, RDYERR

CSERHRD
7
RDYERR
0

502008

:
s PRINT TEST NAME

223
2237
2238
(4)

003021

ERRTBL(R2)

JMORD
.WORD
WORD

END INC

000753

(7)
(7)

(9)

INC

SEQ 0068

016762

016774

016774
017000

QUTPUT RINTLK,#29.
sVERIFY OPERATION OF PAPER QUT
:HARD CODED INCREMENT LOOP
005037

002304

005237

002260

005037
000405

LET ERRFLG := #0
(LR

002260
28:

(LR LUNIT
BR
1%

ERRFLG

INC LUNIT
LET R2 := LUNIT SHIFT 1

INTERLOCK SWIT(H

E_6
CZLNAAD LNO1 TEST
DNMAC %24.07-563 12-JAN-B3 08:16 PAGE 19-23
CZLNAA.PT1
12-JAN-83 08:16
READY LINE INTERLOCKS
TEST 8
(5)
(8)

017000
017004

013702
00630

002260

017006
017012
017014
017020
017050

023701
003402
000137

002260

017020

005037

002240

o1ro§a

012746

01703¢
017036
017040

010500
104417
062706

2246
2247
2248
2249
2250
2251

017006

2252

017024

(4)

(7)

(6)

(3)
(&)
(4)

2253
(8)
(7)
(6)
(3)

(&)
(4)

225
(7)

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

2255

017030
017044

017044
017050
017054
017060
017062
017064

017070
017070

017074
017100
017102
017106

017110

012746

013746
012746
012746
010600

017546

MOV

#PAPRSW,=(SP)

000004

MOV
TRAP
ADD

SP RO
CSPNTF
#4,SP

TRAP
ADD

012746

020535

MOV

005037

002304

(3)

017136
017290

2261

017204

(7)

(6)
(8)
(6)
(8)
(6)
(10)
(6)

2262
(4)

226%

100008
:
002242

005237

002242

0172064
017212
017214
017222
017254
017232
01723

023727
001410
023727
001404
023727
001024

002242

000101

002242

000202

002242

000303

01723

012737

000014

017242

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

TRAP
BR
.WORD
.WORD
.WORD
"WORD

LET LINCNT := #2

MOV

#2,LINCNT

CLR

ERRFLG

REPEAT

INC

50204$:
003124

CSGMAN
10000%
FLAG
TSCODE
READY
100000

: LINE COUNT WILL ALLOW FOR 3 PAGES OF PAPER

LET ERRFLG := #0

50203$:

017200

01723

#PAPSW2,=(SP)

GMANIL READY, FLAG, 100000, YES

017136

2259
2260

CSPNTF
#6,5P

MOV
MOV
TRAP
ADD

000004

017132

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

PRINTF #PAPSW2

000001

000002

017136

PRINTF #PAPSW1,LUNIT

000006

012746
010600
104417
062706

#1,-(5P)

MOV
MOV
MOV
MOV

104417
062706

012737

2258

MOV

002260
020455
000002

017124

017132

PRINTF #PAPRSW

000001

(4)

LET FLAG := #0

020400

104443
000404
002240
006130
006752
100000

2257

cMP %uuxr.n1
BLE 3%
JMP 48
FLAG

017110
017112
017114
017116
017120
017122
017124

017124

3s:

LgNlT.RZ
R

(LR

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

2256

1%:

MOV
ASL

SEQ 0069

CMP
BEQ
CMP
BEQ
CMP
BNE
MOV

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

IF LINCNT EQ #65. OR LINCNT EQ #130. OR LINCNT EQ #195. THEN
LINCNT,#65.
50204%
LINCNT,#130.
50204%
glN(N!.l19S.
0205%

LET QUTBUF
#14,0UTBUF

:= #14

QUTPUI #QUTBUF ,#1,5%,LUNIT

: FORM FEED

: OUTPUT THE FORM FEED

CZLNAAD LNO1 TEST
CZLNAA.PT1

DNMAC X24.07-563

12-JAN-83 08:16

2264
(&)

017304
017304

(&)
(6)
(&)
(8)
(&)
2266
(6)
(10)

017304
017312
017314
017320
017322
017322
017322
017326

023727
001403
005737
001706
005737
001035

002304

017330

012737

000014

2265

2267
(4)

017304

017330

017336

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

0172400
017402
017404
017406

104456
000010
003412
000000

017410

005262

017414
017420
017420
017422

000137

2270
(7)

2271

(2)
2272
(4)
(3)

2273
(&)

017400

017410

017414

017422

2274
(4)
2275

017426
017426
017426

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

017432
017436
017442
017444
017446

(8)

2276
(4)

2277
(3)
(3)

(4)

(5)

(S)

(3)

017426

017452

017466

017470
017472

2279

017500

553%

012746
012746
010600
1046417
062706

017464

017472

(4)
2280
2281

013746

017456
017460
017462

50206%:

003124

F_6

PAGE_19-24

SEQ 0070

TEST 8

ENDIF

UNTIL LINCNT EQ #260. OR ERRFLG NE #0

CMP
BEQ
1ST
BEQ

LINCNT,#260.
50206%
ERRFLG
50203%

MOV

ERRFLG
50207%

LET OUTBUF := #14

: FORM FEED

QUTPUI #OUTBUF ,#1,58,LUNIT

: OUTPUT THE FF

#14 ,0UTBUF

ERRHRD 8,PAPSWI

TRAP
.WORD
.WORD
WORD

CSERHRD
8
PAPSWI
O

003060

INC

ERRTBL (R2)

017426

JMP
ELSE
BR

50207%:
002304

002260

(LR

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

11002%

LET ERRFLG := #0

ENDIF

MOV
MOV
MOV
TRAP
ADD

ERRFLG

LUNIT,=(SP)

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

LET FLAG := #0

002240

(LR

FLAG

104443
000404

TRAP
BR

000130

.WORD

CSGMAN
10001%
FLAG
TSCODE
READY
100000

GMANIL READY,FLAG,100000,YES

002240

.WORD

006752

10001¢:

013702
006302

002260

017500
017504

005072
000137

002322
016774

11002%>

50210%

MOV

000006

017472
017476

<JMP

11002%: PRINTF #PAPRDY,LUNIT

020577
000002

100000

: UNTIL FOUR PAGES PRINTED OR [N

IF ERRFLG EQ #0 THEN

TST
BNE

50210%:

005037

2278
(5)
(8)

005037

000404

002304

000402

017452

017456

002242

08:16

READY LINE INTERLOCKS
50205%:

2268

2269

12-JAN-B3

.WORD

LET R2 := LUNIT SHIFT 1

MOV
ASL

LUNIT,R2
R2

LET QLPCSR(R2) := #0

CLR
aLPCSR(R?)
JMP 2%
:EXPECTED ERROR HANDLER.

:JUST SET EXPECTED ERROR INDICATOR,

: RESET THE LP (SR

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

(&%)
(&%)

2298
(7)
(6)
(3)
(4)
(&)

2299
(3)
(3)

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

000207
005037
000402

002260

005237

002260

023701
003117

002260

017566
017572

013702
006302

002260

D D

017546
017552
017554
017554
017
017560
017564

017

Q1757¢

D i

7
7
7
7
7
7
7
7
7
7
7636
7642

7644
7646

7652

013737

002260

005037

002240

012746
012746

020796
000001

010600
104417
062706

013746
012746
012746
010600

104417
062706

7652
7656
7662
7664
7666

012746
012746
010600
104417
062706

7672
7674

1044453
000404

7672

7676
7700
7702
7704
7706

002240
000130
006752
100000

SEQ 0071

LET ERRFLG
:

002304

MoV

002456

BlC

#ERROR!ACTIVE,ST

(LR

REPCNT(R2)

" ERRF G

LET ERRCOD
CLR
ERRCOD

LET STAIUS(RZ)

:= STATUS

LET CURCNT(RZ2) := #0
CLR
CURCNT(R2)

RTS PC

R.BY #ERROR!ACTIVE

&nor-

D e
D i
D
D
D D e
D
D
D

017546

OONONONONONONON
O O O YA
WNINNIN
= = OO0 DO NN~V
OO
NOONNOONNO
NN S SNV SOO

2297

002616

017544

(3)
(4)
(4)

005062

017540

(7)
6)

002516

017540

(4)

2296

005062

01753¢

2295

002716

D e

(L)

005062

017530
017530
01753

2296

120000

(5)
(8)

042762

b e

2293

017522

D e

(5)
(7)
(6)
(10)
(7)
(7)
(9)

002302

D i

(4)

2290
2291
2292

005037

017522

(4)

2289

017516

2287
(&)
2288

000001

(7)

012737

D oD ol

(4)

2286

017510

2285

017510

(&)

b o

2284

[elelelelelelelelelelelelalelelelelelelelelelelelelelelelelelelelelelelelelelelelele- B elelelelelelelelelelelele]

G_6
CZLNAAD LNO1 TEST
DNMAC X24.07-563 12=JAN=-83 08:16 PAGE 19-25
READY LINE INTERLOCKS
TEST 8
CZLNAA.PTT
12-JAN-83 08:16

UP THE DRIVER PARAMETERS

;AND RETURN

;VERIFY OPERATION OF PAPER TRAY HANDLE INTERLOCK SWITCH,
is:
I?CR LUNIT FROH #0 T0 R1 BY #1
50212%:

50211%:

50211s

INC

LUNIT

CMP

LUNIT,R1

BGT

50213$

LET R2 := LUNlT SHIFT 1

MOV
ASL

LUNIT,R?
R2

LET LSLUN := LUNIT

002074

MOV
LUN116L$LUN
LET FLAG
CLR
FLAG

PRINTF
MOV
MOV
MOV

#HANRSW
#HANRSW,
= (SP)
#1,-(SP)
SP,RO

ADD
PRINTF
MOV

¥4 ,SP
#HANSW1,LUNIT
LUNIT,=(SP)

TRAP

000004
002260
020770
000002

MOV

MOV
MOV

TRAP

000006

CSPNTF

JHANSU1 -(SP)
#2,-(SP)
SP,RO

CSPNTF

ADD

#6,5P

MOV

#HANSW2 ,=(SP)

MOV
TRAP

PRINTF #HANSW2

021055
000001

MOV

000004

ADD

SP,RO
CSPNTF
06 SP

TRAP

CSGMAN

.WORD

FLAG

#1,-(SP)

GMANIL READV FLAG, 100000, YES

.WORD
.WORD
10002%:

.WORD

10002%

TSCODE
READY

100000

CZLNAAD LNO1
CZUNAA. P11

2300

017706

(10)

(6)

017706

017714

001431

100000

017716

021114

017726

010600

017732

062706

000004

ADD

017736

013746

002260

MOV

017746

012746

000002

MOV

017716

(6)

017722

(3)

(&)
(4)

017730

7646

012746

104417

2302

017736

(7)

017742

(3)
(&)
(4)

017752
0177564
017756

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

017762
017764
017766
017770
017772
017774
017776

104443
000404
002240
000130
006752
100000

017776

000411

(8)

(6)

2303

23064
(&)

(3)

017762

017776

020000

2305

020000

2306
(4)
2307

020004
020006
020012

(7)

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

2308
(4)

2309

(5)
(4)
2310

2311

(5)
(7)
(6)
(10)
(7)
(7)

(9)

2312
(5)
(8)

2313
(4)

2314

020000

020012
020014
020016
020020

020022

01%766

010600
104417
062706

020022
020024

020024

020024
020030
020032
020032
020036
020036

003060

013737

002260

MOV

TRAP

002074

PRINTF #MANRDY
#HANRDY ,=(SP)

#,-(SP}
SP RO

(CSPNTF

84, 5P

PRINTF #HANRD1T,LUNIT
LUNIT,=(SP)

SP,RO
CSPNTF
#6,5P

TRAP
BR
.WORD
.WORD
.WORD
-WORD

ELSE

ENDIF

#2,-(SP)

GMANIL READY, FLAG, 100000, YES
(SGMAN
10003$
FLAG
T$CODE
READY
100000

50215%

LET ERRTBL(R2)
ERRTBL (R2)

:= ERRTBL(R2)

+ #1

LET LSLUN := LUNIT
LUNIT,LSLUN
ERRHRD 9,HANSWI
CSERHRD
9

HANSWI
O

END INC

000654

BR
50212%
50213$:
:VERIFY OPERATION OF FRONT DOOR INTERLOCK SWITCH.

023701

002260

020050

013702
006302

002260

020052

005037

002240

003107

SEQ 0072

,ALPCSR(R2)

MOV
TRAP
ADD

TRAP
MWORD
"WORD
WORD

50215$:

502148

#HANRD1,=(SP)

MOV

003455
000000

08511

MOV

INC

104456
000011

002260

020056

MOV

50214%:

005237

020052

MOV

10003$:

002260

020044
020044

BEO

000006

005037
000402

020042

BIT

021201

020022

002322

000001

005262

IF #BIT1S SETIN SLPCSR(R2) THEN

032772

2301

TEST
DNMAC X24.07=563 12-JAN=83 0B8:16 PAGE 1926
12-JAN-83 08:16
READY LINE INTERLOCKS
TEST 8

INCR LUNIT FROM #0 TO R1 BY #1

50217%:
i
502168
:

CLR
BR

LUNIT
50216%

INC

LUNIT

CMP

LUNIT,R1

8GT

502208

LET R2 := LUNIT SKIFT 1
LUNIT,R2

MOV
ASL

LET FLAG := #0
LR

FLAG

PRINTF #DOORSW,LUNIT

CZULNAAD LNOY1
CZLNAA.PT

TEST
DNMAC
12-JAN=-83 08:16

X24.07-563 12-JAN-B3 08:16 PAGE 191276
READ? LINE

INTERLOCKS

(8)

020056

013746

oozgeo

MOV

(6)
(3)
(4)

0 ooeg
020072
020074

012746
910600
104417

000002

MOV
MOV
TRAP

2315

020102

(7 0%0062 012746 021247
(4)

(7)
(6)
(3)

(&)
(4)

2316
(3)
(3)
(&)

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

2317

020076

020102
020106
020112
020114
020116

020122

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

2322
(7)

020136

020146
020146

020152
020156
020162
020164
020166

LWORD

100048:

032772
001431

100000

013746

002260

012746
012746
010600
104417
062706

104443
000404
002240
000130
006752
100000

020226
020230

000411

020230

005262

003060

02023&

013737

002260

020242
020244
020246
020250

104456
000012
003530
000000

020230

2324

020242

CSPNTF
0, 5P

000004

10005%:
50221$:

TSCODE
READY
100000
#B1115,aLPCSR(R2)
0221%

THEN

PRINTF ooooaov LUNIT
LUNIT,=(5P)

MOV
MOV
MOV
TRAP
ADD

#DOORD1,=(SP)
#1,=(SP)
SP,RO
CSPNTF
#4,5P

TRAP
BR
.WORD
.WORD
.WORD
.WORD

CSGMAN
10005%
FLAG
TSCODE
READY
100000

ELSE

INC

002074

FLAG

MOV

MOV
MOV
MOV
TRAP
ADD

021423
000001

CSGM AN
10004$

IF #BIT1S SETIN @LPCSR(R2)

BIT
BEQ

000C06

020212
020214
020216
020220
020222
02022&
020226

020226

002322

021354
000002

012746
012746
010600
104417
062706

#D00SW1,=(SP)
#1,-(5P)
SP.RO

GHANIL READV FLAG, 100000, YES

002240

020172
020176
020202
020204
020206

020234

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

TRAP
ADD

000004

.WORD
.WORD
.WORD

23%2%
(4)

MOV
MOV
MOV

000120
006752
100000

020212

(&)
(3)

104417
062706

#6,SP

#2.-(5P)
sw ao
CSPNTF

PRINTF #D0OOSW1

020130
020132
020134
020136

020126

2320

2321

021324
000001

ADD

TRAP
BR

020172

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

012746
012746
010600

coooafiu =(SP)

104443
000404

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

000006

LUNIT,=(SP)

MOV

020122
0201264

(6)
020136
(10} 020144

2318
(8)

062706

SEQ 0073

TEST 8

MOV
TRAP
LWORD
.WORD
WORD

#DOORDY,=(SP)
#2,-(5P)
SP,RO
CSPNTF
#6,SP

PRINIF #DOORD1

GMANIL READY, FLAG,

100000, YES

50222%

LET ERRTBL(R?2)
ERRTBL (R2)

:= ERRIBL(R2)

LET LSLUN := LUNIT
LUNIT,LSLUN

ERRHRD 10, DOOSWI
CSERHRD
10
DOOSWI
O

« M

CZUNAAD LNO1

CZLNAA.PTT

TEST

2325

020%5

2326

02025

2327

020%60

&)
(&)

(5)
(&)

012772

020260
020262

000664

020262

012737

000014

004737

005246

2329
2350
233

020%70
020332
0203%6

(3)

(20336

020340

000000

002322

003124

104432

2337
2338
2339

23640

23N

LET QLPCSR(R2)

:= #00

#00,3aLPCSR(R2)

50217%

LET OUTBUF

:= #14

ENDINC

MoV

#14 ,0UTBUF

OUTPUT #OUTBUF
,#1
JSR PC,QUIET
EXIT TST

.WORD

042101
060445

020131
042522

020666

040520

042520

020122

020455
020535
020577

021456

2367
2368
2369
2370

ENDIF

TRAP

042522
047045

z§§2

2357
2358
2359
2360
2361
2362
2363
2364
2365

TEST 8

MOV

001116

020342
020400

021456

5%22

J_ 6
PAGE 19-28

CSEXIT

L10017-,

.NLIST BEX

23641
2362
2363
2366
2345
23646
2347
2348
2349
2350
2351
2352
2353
(3)

0B8:16

READY LINE INTERLOCKS

50220%:

g%gz
2335
2336

12-JAN-B3

502228
:

020252

020262

z§§5

12=JAN-83 08:16

o%o 5

2328
(&)

DNMAC Xx24.07-563

020706
020770
021055
021114
021201
021247
021324
021354
021423

021456

045
045
045

047045
040445
045
047045
045
045
047045
047045
045
021456

053501
052101
022516
040445
047510
052101
040445
041501
022516
040445
040445
047501

052111
020117
051101
U5¢5246
044522
020117
042522
042514
047501
047111
046103
042514

INTLK:
PAPRSW:
PAPSW1:
PAPSW2:
PAPRDY:

LASCIZ
,ASCIZ

HANRSW:
HANSWI:
HANSW2:
HANRDY:
HANRD1:
DOORSW:
DOOSWI:
DOORDY:
DOORD1:
.EVEN

.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
,ASCIZ
.ASCIZ
,ASCIZ
,ASCIZ
.ASCIZ

PAPTST: ,ASCIZ

/XAWITH EXCEPTION OF ONE PER TRAY ON LUNIT ZD2%N/
/XATO CHECK PAPER QUT INTERLOCK.XIN/
/XNXARESTORE PAPER, CLEAR, PLACE LUNIT ZD2%A ON LINE.2ZN/

/PAPER OUT TEST/<12>

/XINXATURN PAPER TRAY HANDLE COUNTER CLOCKWISE TOXN/
/XAHORIZONTAL POSITION UNTIL IT STOPS, ON LUNIT XD23AN/
/XATO CHECK INTERLOCK SWITCH.IN/
/XNXARETURN PAPER TRAY HANDLE TO VERTICAL POSITION,2ZN/
/XACLEAR, PLACE LUNIT XD2XA ON L INE.XIN/
/XNXAOPEN FRONT DOOR ON LUNIT XD2%A TO CHMECK /
/ANXAINTERLOCK SWITCH.IN/
/XNXACLOSE FRONT DOOR ON LUNIT XD2%A, %N/
/XACLEAR, PLACE ON LINE.2IN/

.LIST BEX
ENDTST
104401

L10017:

021460

ENDMOD

021460

BGNSRY

021460

ASCIZ
.ASCIZ
,ASCIZ

/READY LINE INTERLOCK TEST 9/ 2><12>
/XINXAREMOVE ALL PAPER FROM BOIH PAPER TRAYSIN/

.SBTTL

TRAP

CSETST

INTERRUPT SERVICE ROUTINES

:
e
sINTERRUPT VECTORS ARE ESTABLISHED DURING INITIALIZATION
JPOINTING TQ THE BASIC ROUTINES WHICH
2SET UP THE UNIT NUMBER CAUSING THE INTERRUPTS,
sLINE NUMBER IS RETURNED IN R2
:

000000
000020

X=0
INTOO:

L.REPT 16.
SETPR] #PRI04
PUSH
R?
LET R2 := #X

0074

08:16

K_6

PAGE 19-29

(%)

(3)

(&)
(&)

(3)
(%)

(3)

(4)
(&)

(3)

WNNN-‘-‘OOS SOOS OSSO OSSO SOSOOSOSOONSO

&~ orooS~OrOONS

b e cd e o

o o

D o

—b

o e D D o

e i i e e i D e e e

TN AN TV
S S 5~ He
O VOO VI
oo oo
= = O DO NN*
NN &H» BB NWNNININ
H &N

1) )
(4 )
(3 )
(5 )
(3 )
(4 )
(4 )
(3 )
(5 )
(3 )
(& 3
(4 )
(3 )
(5 )
(3 )
(4 )
(4 )
(3 )
(5 )
(3 )
(4 )
(4 )
(3 )
(5 )
(3 )
4)
(4 )
(3 )
(5 )
(3 )
(4 )
(4 3
(3 )
(5 )
(3 )
(4 )
(“
(3 )

(3 )
(5 )
(3 )

.a-c-.-a-o-.-.—.-a—.-.;

))
(4 )

o 00000000000 OO
N
NN LN NSN
nororONY NN
- —

5318
2374

) o e D o o ot

DNMAC X264.07-563 12-JAN=83
CZLNAAO LNO1 TEST
INTERRUPT SERVICE ROUTINES
08:16
83
12-JAN.P1
CZLNAA
I0DRV>
INLINE <JMP
000200

000000
004464
000200
000002
004464
000200

000004
004464
000200
000006
004464
000200
000010
004464
000200

000012
004464
000200
000014
004464
000200
000016
004464
000200

000020
004464
000200
000022
004464
000200

.ENDR
MOV
TRAP

#PR104,RO

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$SPRI
R2,=(SP)
#X,R2
I0DRYV
#PR104,RO
C$SPRI
R2,={SP)
#X,R2
10DRYV
#PR104,RO
C$SPRI
R2,=(SP)
#X,R2
10DRV
#PR104,RO
C$SPRI
R2,=(SP)
#X,R2
I0DRYV
#PR104,RO
C$SPRI
R2,=(SP)
#X,R2
I0DRYV
#PR104,RO
C$SPRI
R2,=(SP)
#X,R2
10DRV
#PR104,RO
C$SPRI
R2,=(SP)
#X,R2
10DRV

TRAP
MOV

C$SPRI
R2,=(SP)

MOV

JMP

#PR104,RO
#X,R2

10DRV

MOV

#PR104,RO

MOV
MOV

R2,=(SP)
#X,R2

MOV

#PR104 RO

MOV
MOV
JMP

R2,=(SP)
#x,R2
10DRV

TRAP
MOV

C$SPRI
R2,=(SP)

TRAP

JMP

TRAP

MOV

C$SPRI

10DRV

C$SPRI

#PR104,RO

SEQ 0075

CZLNAAO LNO1 TE
DNMAC Xx24.07-563 12-JAN=-83 08:16 PAGE 19-30
CZLNAA.PTI
-JAN-83 08:16
INTERRUPT SERVICE ROUTINES

Ta-

(2]

eL<lNM[a=VeOl] XOAPNIXOAPNXOLANXOALANXOANXO

SEQ 0076

M
NMAC X24.07-563 12-JAN-B83 08:16 PAGE 19-316

CZLNAAO LNO1 TEST
D
CILNAA.PT1
12-JAN-83 08:16

2377
2378
2379
2380
2381
2382
2383
2384

.§§TTL CLOCK SERVICE ROUTINE

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

(3)
(3)
2385
(6)

022060
022060
022060
022064
822066
022066

2386

022074

2387

022102

(4)

022106

(7)

022106

005337

022134

(6)
022112
(10) 022120

023727
001003

002266

000002

(4)

012777

000100

160142

012700
104441

000300

(10) 022072

005737

001005

022134

(4)

022074

012737

000074

022102
022106

005237

022132

(7)
2388

2389

022106

2390

022112

2391

022122

2392

022130

(&)

2393
2394
(3)
(2)

2395
2396
2397
2398
2399
2400
2401
2402
2403
2404
2405
2406
2407
(3)
(3)

2408
2409
(4)
(4)
(4)
(4)

2410
(&)

(&)

SEQ 0077

CLOCK SERVICE ROUTINE

022122

BGNSRV
CLKTCK:

BNE
022134

MOV

50224%:

022130

ENDSRYV
L10021:

022132
022134

000000
000000

022136

TICK

50223%
LET TICK := #60.

#60.,TICK
LET TIME := TIME +« M
INC
TIME
ENDIF
LET TICK

:= TICKk - #

DEC

TICK

MOV
ENDIF

#100,9CLKCSR

:60 TICKS PER SECOND

JBACK UP SECOND TIMER

IF CLKTYP EQ #2 THEN
CMP
CLKTYP,
#2
502249
BNE
LET QCLKCSR := #100

022130

000002

#PR106,RO
CSSPRI

IF TICK EQ #0 THEN

TST

50223%:

022130
022130

SETPRI #PRIO06

MOV
TRAP

TIME:

TI1CK:
.SBTTL

BGNMOD

JAND EXIT
RTI

.WORD

.WORD
0
HARDWARE PARAMETER SECTION

sTHIS SECTION INCLUDES THE QUESTIONS WHICH REQUEST

:;U?ggE?STHE HARDWARE

022136

022136
022140

022140

022140
022142
022144
022146

022150
022150

022152

000010

000031
022160
160000
177516
001031

022175

BGNHRD
L$HARD::

.WORD L10022-L$HAR"
/2
GPRMA
.WORD
.WORD
"WORD
"WORD
GPRMA
.WORD
.WORD

THE OPERATOR TO

!NFORMATION NECESSARY TO BUILD THE HARDWARE

GETADR,0,0,160000,177516,YES
TSCODE
GETADR
TSLOLIM
.
TSHILIM
GETVEC,2,0,110,770,YES
T$CODE
GETVEC

DNMAC x24.07-563

-JAN-83 08:16
000110
000770

12-JAN-83

08:16

PAGE 19-32

SEQ 0078

HARDWARE PARAMETER SECTION

ENCHRD

LWORD
LWORD

TSLOLIM
TSHILIM

L10022:
050114
111

030461

052116

040440
051105

.NLIST BEX

GETADR:

.ASCIZ

.SBTTL

SOFTWARE PARAMETER SECTION

GETVEC: .ASCIZ
.Legz BEX

/LP11 ADDRESS/

/INTERRUPT VECTOR/

.'00

sTHIS SECTION INCLUDES THE QUESTIONS WHICH REQUEST THE OPERATOR TO FURNISH
sTHE

SOFTWARE

BGNSF1

000010

LS$SOFT::

INFORMATION NECESSARY

MGTINT,0,1,YES

001052
022276
000377

.WORD
.WORD
.WORD

000377

LWORD

TS$CODE
GE TMAX
377
TSLOLIM
TSHILIM

.WORD
.WORD
LWORD

000001

LWORD

ENDSFT

L10023:
052522
052501

022324
000020
000000
000000
000001

020116
047524

040515
051104

TSCODE
MGTINT
1

.EVEN

LNLIST BEX

MGTINT: _ASCIZ
Gf}g?XéEiASCIZ
ok

/RUN MANUAL INTERVENTION TESTS/
/AUTODROP ERROR COUNT/

.EVEN
PATCH:
LASTAD

LSLAST::
ENDMOD

.END

THE

+WORD L10023-L$S0OFT/2
GPRML

000130
022240
000001

TO BUILD

.BLKW

.EVEN
LWORD
LWORD

O
O

SOf TWARE

P-TABLES.

SEQ 0079

OMONOVe—N NNOAIe~=VNV NNN

Solo1VIVN=ol"BN0"AoNla* LOAlAl

8"888n:8:8a!:83u88:n8:8: OVVLVLVLVLVLVLVLVLOLOVLVLVOLLLLLLL

L.e« NeOe L-"«A =—Ne~Ny

k=3 IE B[ on " en s “«

Lot

- - - —=N ==NN ==NI e — -—

-.-—VN==VN==N=—-——

5611111c.lclqleI-l-l1lqlclclclnlclcl1lcl.1»9505050505569720887Ve

:16 PAGE 2
E%LNAAOP%?01 ‘gglJAN-GS SNHA( X24.07-563 12°JAN-g 3 08:1
LNAA,
8:16
CROSS REFERENCE T ABLE == USER SYMBOLS

08:16

1522

1979+

2000

2168

1090+

k-3

2788+
1254

1295+

1378+

1511«

2287«

1612

1641

2220

2230

2269

2307

2177

2207

2210

2331

2253

2254

2275

2296

1423

680

2277

1578

1588

~NO

1561

—

6594
6594
6594

1046

1040

2299

N
—

Own

2205

N NN

1035

N —
NN

6594
6594
6594
659#

14%8'

—

000016
000015
000377
000007

CSPNTS=
CSPNTX=
(8010 =
($RDBU=

~ 0o

6594
6594
6594
6594
6594
6594
6594
6594
6594
6594
6594
6594
6594
6594
8300

D D

000032
000026
000027
000043
000042
000030
000040
000011
000020
000050
000031
000023
000034
000014
000017

— et NINON
=2 O NI O
WO
NS
VO 00O = = OVNO

C$EXIT=
C$GETB=
($GETW=
CSGMAN=
CSGPHR=
($GPLO=
CSGPRI=
CSINIT=
CSINLP=
CSMANI=
CSMEM =
C$MSG =
C$OPEN=
CSPNTB=
CSPNTF=

C$ESEG= 000005
C$ESUB= 000003
CSETST= 000001

— e e e e [\ ) e

6594
6590
6594
6594

SEQ 0080

~
W

000060
000054
000057
000010

CSERRO=
CSERSF=
C$ERSO=
CSESCA=

88se
8ox
Bers
1073
8230
9714
1198
11964
Al
9338
6594
6394
6594
6594
659%
6594
6590
6594
6594
6594
6590
6590
6594
6394
6594
6594
6594
8300

CLEVEC 002276
CLOCKP 00227
COUNT
46
COUNTD 00446
(R on” 000015
6
CSRERR 003352
CTLEND 00524
CTLLOP 004722
CURADD 002516
CURCNT 002716
C$AU__ = 00005
C$AUTO= 000061
($BRK = 000022
($BSEG= 000004
($85UB= 00000
CSCEFG= 000045
C$CLCK= 000062
CSCLEA= 00001
C$CLOS= 00003
C$CLP1= 000006
C$CVEC= 000036
CSDCLN= 000044
($DODU= 000051
CSORPT= 000024
C$0U = 000053
C$EDIT= 000003
CSERDF= 000055
CSERHR= 000056

CROSS REFERENCE TABLE == USER SYMBOLS

-JAN-83

NMAC X26.07-563 12-JAN-83 08:16 PAGE ZOE1

—t

sgl

CZLNAAD LNOY T
CZLNAA.PIT

2252

004456
000015

—

000020
000040

010504
010560

o
o

=
=

-t A

010643

6594
6594

1530

6594
— e e N\ = NI NI M) b b = ) =

A =2 NINIA)
= b =B ) =
WOW—=O0rRNIN)
—

OHrNONOWOD —-ONON
VIS QO =N = SN0

PO
= =
) —
==00wrornon
VBN
WO O
=00WS WO

PUND
= e e ) =
P
=¥ XV [ ,NT,N}
O 8 NN =~ =
OO
00 OO W

=
WO
WV
N

2255

1084+
1093
1104#

731

1541
1632
1638

727

1647

802

1661

806

.
1231

2276+

1239
65¢

o
*
o
.

2286

hg -~

82#

oo
[=l=]

O
o

PAGE 20-2
(e TABLE == USER SYMBOLS

~
Wty

LY B T
= OO
ONWNOOND
N
ON=—OowW

—

(i,

08:16

1614

&Hw

1510

1615¢

1405

1513«

2374

1294

1622

~N N

1379+«

= PNININNWNNN
N = O
VOSSN0
O
SNV
B
B
BuRunun

N = 2PNONVNVNINY
— -

1262«

A
VI
N

SN
OO

—_——

O WwWwWw

1230

~WwW

S W—O

2251+

2212«

W
VIV
WO Vvannun OOWVES
O 00 N O WWNODWNOD
= WO
L2 T
A

N-‘NNN-‘-‘-‘N—.
NNON=O0N -NO
NWOWNNO S
OO0
OO = NO~N

COONON=ON—=ONO

W=
o

1368

O
oo

N
00

— ) -

1298+

oN
~Nrnn

p—

= D

OMOOOOOOWJ*V'U'J‘OOO\:OOO‘“OOOOOOOOOO o
61

1229+

1719#

1437

NNV
= -

1227«

1420

—

1342

1396

o
[e -}

(AlalATAT
)

ERR11
ERR12
ERR13
NINON)
=

003060 G

- OMWOWWWNOO N OO
OO OO OO O
OWR
WO OO VNIV
—=O N O o 0o OO0
= N = wd e N NN =3 (NN O NN NN VIWAIWIA
~ NN
=4 NN =2 =2 SN 00 = S NN O w r woo oo N = b e d e SN AN
~N OHPNVWVOON—=0NOWON AVl o N WO ~
L
&
& 3 X J
Iz
VR
RN
'S TR - " k23 Rw TM LA
R

005422

()]

ERRTBL

:?KE
»

002302
002304
100000
003056

"noun

ESEND
ESLOAD

DOOSW1
DROPED=
DROPIT
DVSTR
EF .CON=
EF .NEW=
EF .PWR=
EF .RES=
EF.STA=
END2
ERFLG =

o
o
o
o

ERRCOD
ERRFLG
ERROR =
ERRSVC

EVL

mnman

DOORSW
DOOSWI

X24.07-563

FLAGDA

DOORDY
DOORD1

0
01
0
O
0
0
0
040000
005314
016430
000036
000035
000034
000037
000040
010174
000400

-0

002240

FLAG

CZLNAAD LNO1 TEST
D
CZLNAA.PTT
12-JAN-83 08:

SEQ 0081

2384

2285+

1714
1995«
2154
2171

1762«
1997«
2155¢
2175+
1753
1998+
2156e
2236+

559«
1577+
1586+
1610+
1639+

2277
2295+
2299
2303
2313«
2316

gglJAN-SS 08:16

E_7
12-JAN-8 3 08: 1 6 PAGE 20-3
CROSS REFERENCE T ABLE == USER SYMBOLS

SEQ 0082

LalaoMlba=l]

~N N -yt (Y

DNMAC x24.07-563

33334

- e —eNNY

NAM-OITMNO

OPO
NOO O ON O O VDOMIN ONO

(o][a¥]1aV]3ANNYNO3[T

CZUNAAD LNOY T
CZLNAA.P1T

[SEve]ve)

—

v on

wGPveoO0—MhlueVANl —[a-Neo¥n—1N0¥y~eaue]y LN~a-e¥01N—yat¥]oaONnV0O

CZLNAAD %?01 T 3
1

3! JAN-83 08 :16

12-JAN-83

F
4
PAGE 20-4
TABLE == USER SYMBOLS

08 :16_

CROSS REFERENCE

SEQ 0083

)—M[iNVlYLIoNta1VOlal—e[—ewo-o=|eMynuITaoOT~0~—faV]NLaonOdaT8[gg0oo]t][otgggTLOaellTaM-eRol0t5t0S[tN0V0ot0tSt1-—OV}—[(yTaMla=—O1SVDBteteSl6oewegeD

CZLNAA.P

DNMAC X264 .07-563

—e0NeoLt~NNe—e—0—-0yV][aeVolL

kDN“RPwEfPmblRA'WS)C=|O(lDESZ=NaOlSYTm(‘ 2R="-&RWu3n 2"x-LRA R2W-euR Be&-N NLaOlN~-a—Oy"N] N0-oOewloV~—ala N[OYNao~Ol—Yma0—A¥)a*MNl]O['"oa~l"l}a'"a-Io0awVNvag+}Olo—.M
|R

G 7
CZLNAAD LNO1 TEST
DNMAC %24.07-563 12-JAN-83 (08:16 PAGE 20-5
CZLNAA.PIT
12-JAN-83 08:16
CROSS REFERENCE TABLE == USER SYMBOLS
LPINTR
LPVEC
LSTCNT
LUNIT

LSACP
LSAPT
LSAUT
LSAUTO
L$CCP
LSCLEA
L$CO
LSDEPO
LSDESC
LSDESP
LSDEVP
LSDISP
LSDLY
LSDTP
LSDTYP
LSDUT
LSDOVTY
LSEF
LSENVI
LSETP
LSEXPT1
LSEXPL
LSEXP5
LSHARD
LSHIME
LSHPCP
LSHPTP
LSHW
LSICP_
LSINIT
LSLADP
LSLAST
LSLOAD
LSLUN

002756
002362
002244
002260

002110 G
002036 G
002070 G
002226 G
00;1%6 G
007232 G
002032 G
002011 G
002152 G
002076 G
002060 G
002132 G
002116 G
002040 G
002034 G
002072 G
002212 G
002052 G
002044 G
002102 G
002046 G
002064 G
002066 G
022140 G
002120 G
002016 G
002022 G
002222 G
002104 G
005456 G
002026 G
022370 G
002100 G
002074 G

9364
9124
866N
87%‘

1395+
1389+

1396
1396

1480
1480

1596

1607

1547«

1550«

155

1556

1560

1576

2%41'
2297

2244
2302

S%LS
06

2%4
2311+

2%53
2312

2%59
2314

2%63
2318

1346

1568

1599

1609

1039+
1376

1045+
1505+

1188+
1508

1191+
1560«

198

6804
6804
6804
680
6804
680
6804
680#
680
6804
6804
680
6804
6804
6804
6804
680
6804
6807
6804
6804
6804
680#
689
6804
6804
6804
680
€804
680
6804
680
6804

680#
}%S%fi
*

LSMREV
LSNAME
LSPRIO
LSPROT
LSPRT
LSREPP
LSREV_
LSSOFT
LSSPC
LSSPCP
LSSPTP
L$STA
L9SW

002050 G
002000 G
002042 G
002122 G
002112 G
002062 G
002010 G
022220 6
002056 G
002020 G
002024 G
002030 G
002234 6

6804
680#
6804
680
6804
680#
680#
680
6804
6804
6804
6804
680

1986

1990

199

1995

1997

SEQ 0084

1587

1611

1640

1976+

1977

1978

1998

2005

2216

2217

2225+

2226

2227

1203
1576+

1267+
1587+«

1297
1611«

1315«
1640+

1316
2227+«

1317
2294+

1318+
2306+

2%62
232

2275

2278

2292+«

2293

2¢9%

7278
1500#
702#

6984
1228

7034

24078

7164
13334
24364

1034+
1374

6854

2424n

7408

002236

MSGADR
MSGCNT

002656
002556

MGTINT
MRESET

7468

20978
2188#
2210

2055

20894

NOINTR=
NONBUF
NONCHR
NOTIM

000003
012461
012352
007051

8320
1802
1801
1435

14494
1224
18834
1880#
1450#

OUTBUF

003124

NRGT16
NRGT17
NUM
ONEF IL=

006506
006571
013044
000001

21814
1434

1142
1143

1354
1355
19450
L

14438
14440

1542

1974

2213

.2331

2353

1757+

1758

1250+
1252+

599

9580

1343+

1344

1438+

1439

1627+

1628

2062
216l

2076
212

2080+
216

2081
216

2137
217

2149
2169

2150
27

680

OUTTIM
0$APTS=
0$AU =
0$BGNR=
O$BGNS=
0$DU =
OSERRT=
OSGNSW=
0$POIN=

023654
000000
000000
000000
000001
000000
000000
000001
000001

9780
659¢
659%
659¢
659
659¢
659¢
6598
6598

1040
680
680
680
678¢
680
680
6784
6784

PAPRDY
PAPRSW
PAPSWI
PAPSW1

020577
020400
003412
020455

2275
2252
9730
2253

2339
2336w
2269
2337a

0$SE Tu= 000000

1504

1052

014637

016426
007007

1478

26114
2u27H
26294

NEWSPA
NOCLCK

1372

14554

17274
1769#
19484
20334

2625
14450

MULINE

1353

16610

022240
006625

9308
926k

1316

6508

680

1809

680
680
2436

1832

1872«

1873

1985s

AUNONY
==
W=O~
OO
W
[¢ Fe RV
IV

MAXERR

SEQ 0085

(ROSS REFERENCE TABLE == USER SYMBOLS

N = O~
o0
—
~NO
0o &~

2177
2207
23948
2407
2624

2083

AN
— —

016520
021456
022130
022160
022240

014766

7498
1440

P AGE 20-6
-

L10016
L10017
10021
110022
110023

1187
7238

08:16

N0
—

6804
6804
680F
716
7310
740
1348
15250
1632
164 30
16504
1716
1761
1875
2009

12-JAN-83 08:16

12-UAN-83

L
N =0~

002114 G
002014 G
002012 G
002226
002230
002240
007144
007424
010720
010414
010422
011354
012016
013046
014300

L10015

DFAL X24.07-563

NNdd
= O~
[o IV Vol
o]
NOWNL
O

LSTEST
LSTIML
LSUNIT
L10001
L10002
L10003
L10004
L10005
L10006
L10007
L10010
L10011
L10012
L10013
L10014

CZUNAA.PTT

TET

NWO0O
wViIROON
N

LNO1

PO
= b

CZLNAAD

1.7

g
TE 31
:16
PAGE 20-7
08:1
DNMAC x24 .07=563 12=JAN -83
1 -JAN-83 08:16
CROSS REFERENCE T ABLE == USER SYMBOLS

SEQ 0086

CZLNAAD LNOT
CZLNAA.P1T

MO— O v ~ oM O = O ANM NONOM N ~NO N~

>>O~LaN>lkgOlMolIOnAoNVMlnoaleOvoalO=veoleNeIlM=[>gN=oM>VI(21~O5NWwelr-trLa—lar']—oE~](-ETXTXTXalLT.X~DS—au—AkONOJL20xaxdg4gg

L
a
I
T
N
S
I
O
l
&
b
V
M
~
N
a
T
o
(
Y
N
—
e
I
0
t
O
~
—
U
y
T
Y
NEoOBW2“>CO-UMvIVOTND<Ir—WCD- IOTVS=NMI—O3MI~NA\VNDNOIMG oO—N0Va~eTWM=MO@InuOgMN

SEQ 0087

N(N==NN== 0tN((NNN~Ne( ==—r

o~~

16
CZLNAAD LNOT TEST
12-JAN-B3 08:16
PAGE 20-8
DNMAC x24.07-563
12=JAN=-8 3 08: 16
CROSS REFERENCE TABLE
T&
CZLNAA,.P1Y
== USER SYMBOLS

014210

TABSTR

014622

TABLE1
TABLE2

T1CK
TIME

014244

(r—N=v=\N

OO ITMOOVOITOOONON—
MOOITO

022134
022132

TIMOUT= 000002

003627

TXERR

TXNOIN 003701
T$ARGC= 000001
T$CODE

001

TSERRN= 000

17614

e«Ky*R2=<

-—

T$PTNU

000000
T$SAVL= 177777

T$SEGL= 177777

T$SUBN= 000000

2009#

16834

17384

OMONMMNMNG TN0MAONG

1798%

19704

22754

22964

26254
2220#

26264
22304

22694

2307#

2177#

22074

2210#

2331»

1650

1661

1727

1769

1948

2048

22544

20834

o ONMOIN-N—ONONOANO®W

T$LTNO= 000010

1875#

2253

21354

2203%»

2033

K 7
TEST
:16
PAGE 20-9
12-JAN-8 3 08:1
DNMAC %24.07-563
12-JAN-83 08: 16
3
CROSS REFERENCE
TABLE == USER SYMBOLS

SEQ 0088

M OO O =NV OONNO

@ WO MO~ O

[S]S

~Noe—

-0y [aV]LAYYbtety-

N OOV OVOOWVONO—

NON—~No e=-0NyNew=N0Y]12N"ek-—t0eN———ryty--

CZUNAAD LNO1
CZLNAA.P1Y

k¥
:16_ PAGE 20-10
CZUNAAOD LNO1 TEST
DNMAC x24 .07-563 12°JAN-g 3 08:1
12-JAN-83 08:16
CZLNAA.P11
CROSS REFERENCE T ABLE == USER SYMBOLS

N00COC0 NNNN

SEQ 0089

0-N NVO0V O—N—ITMO

O
—
TO\O—=NONOOONO(ND—oO=I=T=N=e—M=N-MO=0~O-Me=WV MINONON—ON

OW3M NO3OT0N

=ONOITNINeENO0~TO —

R—N3INOIMNIWIVNMOVeONO= N TOUIOMIN—IMDONAWIYN RN ON=MIWVONOO~—NININMNiOITNOMe—OyNOMNOITITO—NOTNITVININANITMNMOITN

=\VO= ----

— —— — — —— e—
OeOM—~OON e
=NR
OO(INVTONWONe—eNNAONN=0S
OO NOITINOWINMNDOA
—NVOOMNN=NN—ONS N0 OT2VO~ MSM3N3I3MOi3MNOiTtNbtN

[TVo¥(N1aQIQIa)Ta eB[lublulll

SERFLG= 000400

RN
#
"

$F$AND= 000310

OO e = NONNOIMMN

O
= NN
O

$F $BAD = 000401

VOMWNe—MONO

=SONI

SEQ 0090

12-JAN-83 03:16 PAGE 20-11
DNH?g X24.07-563
CZLNAAD LNO1 TEST
12-JAN-83 08:
CROSS REFERENCE TABLE == USER SYMBOLS
CZLNAA.P11

000200
000160

IACNNOTNONOMNITMe—

1994

1996

e=(-ONtI=NTO—TInNWNV~eNEYND

O 0 N NMIEITVNO NO O—NINININM =N O NIMNO

$F SNAM

N OO 3OO0V~ N\IDON

$F$L00

$F$BLA= 000170
$FSCAS= 000150

N7
DNMAC X24.07-563 12-JAN-8 3 08 :16 PAGE 20-12
TABLE == USER SYMBOLS
16
3
CROSS REFERENCE

AL 13'JAN-83 08:

$FENO

000403

$F SOR

000320

=OMDTUN—OWMNOANI eN-0

SEQ 0091

1319

Lad"alal O—O =0Ll"aa[«oXVa¥
1479

-0y
1483

NSO

1316

*Ll-0yJ
3=0

Valg
] L

— 00— o

1220
1692

1630

1631

1982

e3OVMNWVTWIMJ O~G03NWOF0N OJTN=INOIV0MOeNMTIUN=N emogt eoBTil SIONeNVOIMITMOCVWNITAOVNONOO

eOO&—OOM—eMN—NON0NOO=NNMO=OWVNMOORUONNOWeN—VNNOTTTWVOO

ieelTi

NJDW= =M= =N—=MUNPOVO M

-0

amNnNO

- oO0©-~—5

-L

O3 N eO

-0

ONO VO NO VO V

$FSTRU= 000404

O IMMG T WVWWIWNWON
OONNOOOICOCOeNNIN

000350
000300
000140
000330

OOS

$FSRTI=
$FSRTN=
$FSSEL
$FSTHE

N0
gl el

= Rt -3R-8-RL

EST

T O V —NMNOOTO VO VNOTO
OONMNOOV

CZLNAAO
CZLNAA,

AC X24.07-563

No(—e=IVO

g
B
3
n
I
I
N
ON=-0=NO=—INTV

T—ONOFTON
o¥) SONl alO=eaNl”Oe=lNNoNNVl Db

g“

N-=e MOMIONONONO N=o- N=- =N- ehoaSLAlNtdVe YOe-YOY Ne—VNOUM N- ONNOMOr—

IOOWNAM0DNOO=eIOT=AOTN~MMOITONe—(V~O

T—IOMNM MONUMVN OMN0TONO= IONVTMWN=M OVNQMOWOIMVNON NCITNOMMI
o= = OOMN
SN T OOM=NPO

$L5k0
0G0000
$LSTIN= 000000

F =N 2 O OO=\

ONMIOUNWDONWVOCM OU-OuUMNMN=ON=ONeO—NWVNNFO

SLOCTA= 177777

SEQ 0092

CROSS REFERENCE TABLE == USER SYMBOLS

NANANNOOONMNO

$15x0 = 000001

PAGE 20-13

N UM
o= o= FWN
GO ONNININIMY | ONIM

SIFLEV= 177777

0B:16

WVOONNMSNOO0NOT=—MSN0T~OOMWNOVNNM—= OVNMO MOOMED

EILNAR.PTY" '35 an-83 § 8:16

12-JAN-B3

CZLNAAD

NMAC X24.07-563

\3°Jlfl-83 88:16

12=JAN -83 08:1
:16
PAGE 20-14
CROSS REFERENCE T ABLE == USER SYMBOLS

;

3 g

SEQ 0093

SNESTL= 177777

k3 -i

on
30

$NSK1

000110

0
0
0
0
0
0
7

10504

N -0y
===

000110

R Li3 R /|Ruan /BVNE
=
"
|
¥
R
7
=
&
2
0
<
M
~
O
V
D
I
M
W
3
F
N
.
=
N
V
e
0
=
=
N
0
=
=
O
N
M
O
N
O
W
N
TO3M
on

NI O —
— O OO

$NSKO

ANONNANIO
O NT
O NT VOO0
0
3
3
5
3
L
3
3
L
R
IVg—O& VOWEIIO&MIO&NOD

$LSTTA= 000000

MOON N AN N NN N ON OGOV ~F0 0 O O+ -3 ONEOMIWN

3YNeS~O—Ore—=rM—rA—M-ENNNWO=JOMWNNOV=OG0OOONNOISNOM=

CILNAA.P

NO1 TEST

1254#

1256

—NMOICVONCOMN

CROSS REFEREN

0.8

3! JAN-83 88:16

N OTONe-Ne=NONe—e= OViMNO~ JONOYVON—ONOVO NMN O WNrEe—=N NIMIWVW OV

~ 1““016232957 —OWVoOMPY ONOOO~NMMOO~NMOONN—=U"MRAONOIN OV

VO0OIOOMMeAN—N=MOOINCNITNOOO—ITNONO—INOFVNaEO=NINNON=NM==NOIOOINMOONYNNOIWVWNe=OWVONo—
SEQ 0094
PAGE 20-1 5
08 :16
TABLE
== USER SYMBOLS
ERENCE

12-JAN-83

NMAC %24.07-563
3

CZLNAAD
CZLNAA.P

CZLNAAD LNOT1 TEST
CZLNAA.PTY

NMAC X24.07-563

IMOOCNNUWOVMOO0OMONMW-ND==~OOWNMOoA~NNOONNOO®O=MO
000000
000403

000000
0020001

=VOWVWr~eON= =0= MOMNOIN~O NONONONO

0N —eN

$$FROM= 000000
$SINH
000403

$$LOCN 000000
177777
$SREG
$$RETU= 000000

MO 14

022120

$$L0C

O¢ MO0
Ne=MMaD

oo N0

NO NN-

N N OWN
1808#

1813«

RN 0—N

===\
VOOolOe—Ne—
) MeV=LMlOa Nd eNNk L-k

$SERFL
$$FLAG

17494

NOWNM NoT-E N-y

odVLL]klNIVNVO M0TO-MI OWVOmOTM

on
on

on
w
on
6n

=MNO

NOOIFOM NOTCeD—

$$CASE= (00404
$3DST
000037
$$ELOC= 000402

v=-NOWVaOMOMNO

CO Oy-

(T " "

[VBilN oO0 oOW~

$SARGC
$SBYTE

NU=(V

VU=NM DONWMNIND

o3 = 5
050217

7WV0LYMWMWNONOVO~

$15K1

SEQ 0095

=0=N3OUMOMONNMM=W—
OW=MT0ENON=NIMe—

NONe—r—M=e—NWVONIN
S W 03N0ONOOOOMOOOV
— O OMW=
UMN e— WA=N

12=JAN-83 88:16

12=JAN-83 08:16 PAGE 20-16
CROSS REFERENCE TABLE == USER SYMBOLS

Run

F
8
CZLNAAO P*?°1 ‘gleAN-BB gg??g X24.07-563 12=JAN -83
:16
PAGE 20-17
08:1
g
CZLNAA,
CROSS REFERENCE T ABLE == USER SYMBOLS

1050#

Y~NOUNONO
WY

104624

SEQ 0096

CZUNAAD

LNOT TEST

CZLNAA.PTT
ALLOCA

12-JAN-83 08:16

614

BCOMPL
BEGIN
BGNAUT
BGNCLN
BGNHRD
BGNHW
BGNINI

1337
6614
727
1500
2407
716
1333

BGNPRO
BGNSF T
BGNSRV
BGNSW
BGNiST
BNCOMP
BRESET

685
26%4
1638
740
1541
1358
1352

CASE
(LOCK
CLRVEC
DEALLO
DECLAR
DECR
DECRB

DELAY

BGNMOD

CALL

DESCRI

DEVTYP
DISPAT

NMAC Xx26.07-563

1339

2206

806

1332

1530

1647

2358

2383

1683
1375
1502

1738

1798

6614
1412
1518
6614
6614
6614

1032
1423

1037

1042

1075

1345

lgsg

1346

677

6614

)

12-JAN-83

08:16

PAGE

CROSS REFERENCE TABLE =-- gA(RO NAME S

16458

1732

1775

1954

1970

2048

2135

2203

1567

1598

1994

1568

1599

1609

1085

1138

1149

1156

1189

1215

2038

2102

2193

2399

1225

1244

1694

2170

2272

2304

1234

1236

1237

1238

1696

2002

2172

2065

2174

2223

703

698

DOCLN
Eh%f

1302
gg}:

ENDAUT

731

ENDDEC
ENDDO
ENDHRD
ENDHW

6614
6618
2411
723

1091
1079

1347
1235

1569
1319

1600
1483

1996
1631

1984

1991

2070

1258

6614

1054

1087

1095

1154

1155

1163

1192

1199

2211

1303

2222

2231

2264

2274

2308

2325

2388

2392

1815

1822

1835

2007

1323

1527

1663

1729

1950

2034

2098

2190

2355

2437

ENDIF

END INC

23§}0

ENDINI
ENDLOO

1455
6614

ENDPRO
ENDROU

689
6614

ENDMOD

ENDRT |
ENDRTN

ENDSEL
ENDSFT
ENDSRV
ENDSW

802

6614
6614

6614
2427
1643
749

}ggg

1356

}%};

1050

1650

2394

1421

1705

1431

1711

1436

1712

1520

1751

1523

1755

1563

1570

1579

1590

2321

1256

1257

0097

CZLNAAD LNO1 TEST
DNMAC x24.07-563 12=JAN-83 (08:16 PAGE 21-1
12-JAN-B3 08:16
CILNAA.PI
CROSS REFERENCE TABLE == MACRO NAMES
1769

2299#

2933

2097

2188

2353

1578

1588

1612

1641

2303#

23164

2320#

2220

2230

2269

2307

2207

2210

2331

1813

1820

1976

2324

2425

1698

1708

1747

1749

1808

2063

2164

2216

VOAOO0NMTOSVT—O0ONM—N—ONOT

NO-OY-NOMS0ETYOSGT-eMe—-g=-ONM-NOgMgNIOTT

OOF~NOOI—AOMDOMOMWOON—NIINOFIONOVMAN—OMOMJNOMIIOVODOOTVM—
ONyDON INMNSN=N IT ONUIMV NO

4(OOalndol l=al*=Sa o=ale="-alale-- lo0Va-l=1
(OOe
NNNOOnUWTYNV(YOOM=eO-eN-O-NITOR—
r—r—r—MOVO MINMO O

N Ry

-(FNTVON0ONN0—OTOvNeMNIvONo=CeA-CO-NIo=NN-DN—YMO—r

666%6

1691

—e—0y

—e0N

od¥X [«

22778

1948

SEQ 0098

(v-eYO N2OG3—MASININM M03OJVN=v0 0ION—A0ONV

NIOVN—D~MYOMNOAIONOVNONL -NNTOUMyN~ NAJWUOI=ON0 ONDIONMINIWMN pO—-_Teg\G—_,O—
22974

2298#

2301»
17298

JLl78

CZUNAAD LNOT

CILNAA.P1T

MSDEFA

MSENDE

MSERRI

TEST

DNMAC Xx24.07-563

12-JAN-83 08:16
22554

22778

22994

1948B%

19504

gic

2303

17718

;490

10464

20334

15614

15784

16320
16324

16384

7234

1035#

;§10

10404

24094

24104

24268

MSEXTY
MSGEN

1348#
680#

14400
685#

16324
698#

MSGENB

MSGETS
MSGETT

MEGNGB
MSGNIN

1348
13484

1525#

MSGNTE
MSHAPT
MEHNAP

MSINCR

M$POP

MSPRIN

2409#

20344

20974

15%5:

%gggc

¥§°"

1612¢

2188#

%6420

15884

2098+

15570
1641#

2208

2304

2694

23078

17764
17164

17614
17614

18754
18754

2009«
2009#

%0830
083#

177#
1778

52070
2078

22104
2210#

2331»
33310

16434

16478

16504

16614

16834

17274

1738

17694

1798

1716#
7024

1761#»
703#

18754
716

2009#
723%#

22034
543 ”

2255

22778

689#

7234

73\»

749%

802#

3034

23164

13234

23204

2778

299#

1455#

2083«#
7274
22994
1525#

L1048

31900

1778
731»

23034
1527#

4254

% S3x

22078
7408

23164
16438

L2648

S SSH

22104
76498

23204

16504

1%630

23948

331»
1333

1368#

1455#

23574

23584

23834

16614

19484

19504

20334

20344

20974

20984

21884

21904

23534

2355«

13484

14404

16320

17164

17614

18754

20094

2083#

217784

2207#

22104

2331»

13364

1337#

1338#

1339#

13420

13464

1348#

1352#

13544

1355#

6804
1668#
698#

1375#

13964

21888
22978
2353
13688
723%#
23948

2205#
2298#
2374w
22554
731»
24118

15414
6804
6804

6774

13330

1525#
16434

16834

6854

13364

1423
1541#
1668#
2033
22308

14340
1561#
16834
20384
2252

}%Lz:

685#
1732#
702#

1412#

1561#
16504

2206#
22994
23BLN
2277
749%
2427m
17384

7164

133BF

16204

1568#
16614

702#
1954#
7164

703#
2038#
731#

14234

14340

15784
17164

15884
17274

7164
2102
7408

14354

15954
1761#

727#
2193»
10354

1437#

15964
1769#

7408
2358#
1040#

1440%

1599#
1875#

2324m

19484

63n

19704

17278

1769#

2437a

1500#

2033«

239u»

1729#

948

24118

2427%

1500#
2424w
1301#
13604

1530#
24364
1302#
13684

16384

1357#

1333#
24078
1297#
1358#

16064
19484

16074
20094

1609#
20334

1612#
2083«#

16224
20978

16324
2177#

2033

20974

2188#

2353

13014

13024

8064
23834
10464

1332#
23994
1228#

1455#

1480#

1522#

22304
2307#
24100
23204
1650#

2252#
2314n
2611m

2253
2315#
2424m

2254k
23164
24254

16614

17278

17694

1948#

17988

19704

20484

21354

22034

806#

1035#

1040#

10464

12974

1500#
1607#
1769#
2177»
22778

1501#»
16124
17754
2188#
22964

1502#
16224
17984

21934
22978

1518#
16324
18754
22034
2298Bm

1522#
1638#
1948#
2205#4
22994

15244
16618
19544
22078
23014

15254
1647%
19704
22104
2302#

1530#
1661#
2009#
22208
2303

731#

76408

13524

13554

13578

13604

13684

1374

13964

1317»

14128

22964
2331»

1332#

14204

20484
225%m

164404
1595#
17324
2097#
2255

2102#
22694

1480#
1606#
1761#»
21354
22758

13364

13384

13424

13744

14124

1423

14378

1501#

1518#

15244

1595#

16064

16228

23744

723%#
1771»

731#
1948#

7494
1950#

BO2#
2033#

13234
2034w

14554
2097#

15254
2098#

15274
2188#

16438
21904

16508
2353

16618
23554

16638
23944

17278
PLARY

172G#
L2278

13604

14344

14358

22524

2253

2254m

2275

22964

2297@

2298

2301»

8064
19704

1332#
20384

1333
2048#

1500#
2102#

15304
21354

15414
219%#

1638#
2203#

16478
2358#

1668#
2383

1683#
23998

1522#

15964

1607#

2252#

2538

23154

23164

2318

14554
15964
17384

1354

22778
23248

13748

2220m
23034
2409#
2316
1643

1348

2275
23204
24364

15184

22104
23024
24074
2303
15254

7278

2269m
2319#
24278

1502#

2207#
2301»
2%94m
22998
1455#

13420

2255m
2318#
24268

1501#»

1317»

14374
1588#
17274
20834
2254w

52;::

14354
1578#
17164

698#
17754
7034

17298

24278

17718

6774
16478
6804

17278

24118

gzgg:

MEM(CH]

MSMCLO

23204

21BBa
L27n

255#

SEQ 0099

3164

21354
%6240

1368#

452:

1?2 ”

20974
AR

528;:
M$LDRO

1541%

PAGE 212

20484
24078

1524#
16414

MEGNLS
MSGNTA

14408
14404

08:16

CROSS REFERENCE TABLE == MACRO NAMES

13688

MSEXCP

MBEXIT
MSEXSE

12=-JAN-83

23194

23204

2324w

2331w

2353@

2358w

2374m

2383w

2384w

2399#

659#

459#

6894
lzggz
I'4

1297#

M$PUSH

230248
6778
}Zg;:

MEPUT

1297#

22540

13014

2314
685#
}Z%g:
1301#

22758

13544

23154
7164
1775#
13544

22964

13554

23184
7278
1798#
13554

2297

2319«
7408
19544
1360#

2298

13964

23014

16204

23024

14340

23144

14354

23154

14804

2%18m

2319s

TEST
g
DNMAC x24 .07-563 12-JAN -83
08 :16 PAGE 21-3
12=JAN-83 08:16
CROSS REFERENCE TABLE == MACRO NAMES

(—Ne=~ OeN=~NmVOAMOINNIOSMNTIOVASOITeNO=M—O= La[-0ONel¥V~]OvVNINNV—NWVI—T OVN3TOINV~M— ONMOIN=0MVS

SEQ 0100

OONO—WL-AVlOO—LOnal’Nal~O=D~=O=N(ONDe—eO=NWNNO0~TNOee TN—0VONANN~

0757832’)616103616103616109727856

CIZUNAAD LNO1
CZLNAA.P11

1316

1479

1630

M MO NN IV NN SN =N O ~y0

1226

5
5
0

0
2

L
4

1435

2252

2253

1982

1989

2067

2254

2275

2296

2297

2298

2301

CZLNAAD LNO1 TEST
DNMAC x24.07-563 12=JAN=-83 08:16 PAGE 21-4
12-JAN-83 08:16
CILNAA.PTY
CROSS REFERENCE TABLE == MACRO NAMES

ONMNINWNOVO~NIMOOOMOMOe~NWOO~MOMOOWA

SEQ 0101

1230#
1692#

OVOOTR
NMIWN3OvNOv eNO

V]ggVololLolAVLokt NO O —ONO—0

)N===— NNt~—e~V~ = ==
®

N=-=

RN (-eN OTNUN -NOoONMIWNONON

==N MNO~RN

ey — —

NVOMITIOVNTOINIM—ODVOINMD0NO~OTMNO

NO=3WINM

1820#

MNIONe—N NBaun

:16_ PAGE 21-5
CIZLNAAD LNO1 TE T
12-JAN-83 08:1
D NMAC X24.07-563
ILNAA P
-JAN-83 0 8:16
CROSS REFERENCE T ABLE == MACRO NAMES

28#
674
93s

23
370

W8
L

OWO(0NT3VOI—UWMMCIM vANINTV0IMNWNOIMMNM DvO3—N0TMM~WNIWN NOVT0=IMAOeWNVM~I—OA
NN

3prelee e[Tl

—rmrmrmrmrme=NNONN =~ = = -

O=NMWWYWDOIM ONr-MOYNM TNR V0OvMNNWM~TR= N=-N ONC=ITVRe—=uMm

$IF

OWNON—NO

w\ ®»
oB

- O O O e—0O0OO AWM=

05#
924
on
on

= BB= BR BR R
R
~ O YV OV &|R MOTR—NOOIOWV

740

WSOMVNMWAONTIN-

i#i2e

- = = ~ —r —rmr—rmr=(N N

o7#
o7#
764
04w
758

NN 5b£oI

OOTM —N—OO0 & OO &&& NWWOOMAMNOIMNNMI—OO=NNI—INOONNIDOO—

= O\ = = = = = = = e e e e e e NN OO = e o= o= o= v (O = o= o= o= = o= o= = OO = e e o= O e

69#
98#

SEQ 0102

n8
CZLNAAO LNO 1 TEST
DN MAC x24 .07-563
12-JAN-g 3 08:16 PAGE 21-6
12-JAN-83 08 :16
CZLNAA.P n
CROSS REFERENCE TABLE == MACRO NAMES

OYNO-MNNNMNNMNeNOeWVMNMONMOTNION0ONOeNNWNMO~NONWOVWMMNNMOOVMM=O==G0VNMVOM~M—

SEQ 0103

&ONAM0ONTIMTe—O0OMN—ONONITVOVN<ONO&NOOrNeOONDO~NOWVOYCON

g7(=oNT0)Mg —NO~OINOVIN R|/VANR eN=0(0~ ON-3I=0~ONMIJTNM~3YNVIM0Y TONMe0WAI—ENN0DNINN N=e—-e—Ni0OI=—NMNW3tDODO—~E LMa¥NV©OA@lr=ev=WvIWnNOaNWONINI=TMNOTeI0N—OT~NM0 MNW0Or=—UIGYTANONONIM Y=ONITINWVDNI—N

nTONOWNOOroNeO=NMONMMITNIOTNWNOONNOITTOONIR—MOOoAMyYN«V—ONtMyOONNMIOYM—O0NO—MON
oe—

$1FCOD

eb o Ow

$1FOPR

$INCR

$INHRJ

84#

NMOV

$JLPCN

764

274

LB
9774

20744
22214
2278
23224

1075#
1994#

on
on

on
o

230
3454

]N[V OoVWOolN0oIl oTlOALkNO

04w

L-3

NWO~ RN

o=vvO\MOO==NOM58350396031609107
(O—=MI=rNWIOMNONIMONO)—evv=OO=eN
1B
ONIOWO=ON\O=Ne=Ae~M—NOANNOOVWNO= VOMFOMOTON NOWNMOFTO NONOINO Oe—ON TNON

NONMMO OMO TTONINTOTONGON —.=P=NNN TOMAN
OVM0

14
ox

eOTN=MW0ON~T NOo— .,","‘""fi"'fi"" =NOrTW—IMNN0NIWM~NM LR LeR o(Oe=UO =N(VUOTeINNI3MNDNOINNAON0=WVIMVIM

I====m0yNey0yo (N=N=N—Oo IVON \6O6JTNN8I9OO3‘V=V50N=OO10IeN37SoT=eO95—o—M=O68O=NMI01OOeNT35V—\17ON60(IMN08OO9NMN13=T00eO==V88eMO60VNW31VMOOI1N5eO—O8MOe1IOeNN9IO3VN6O=M8UWM9VN2OVO1M2=N

8340

3n
an
.14

WMGRO—VN0W o\(-==JN D-CNOMOMIWN

RN
"OyOO
rT=W—OOvo= (N—oe== = -

$0PCD2

]oV gV do el Lol

8
CZLNAAO LNO1 TE
ONMAC Xx24 .07=563
12=JAN -83
g
08:16 PAGE 21=7
CZLNAA.PTI1
=JAN-E 3 08 :16
CROSS REFERENCE TA BLE == MACRO NAMES

SEQ 0104

260n 50%0n 5078e 508s osw 5003 o%0se SSiis %1% S3ie

I
9

on
on
on
9%

C~ONM—O IMO—O=NOIOeR

Eft:::?rk?o‘ tgglJA“-as gunnc x24.07-563
12°JAN-g 3 08:1
:16 PAGE 21-8
8:16
CROSS REFERENCE T ABLE == MACRO NAMES

=-OMNUNIITWTSNWOeN=DVO

NMOWVONrONOMOyMOONN—NMOVNTMONie=0yNNN

22264

SEQ 0105

SOPNAN

$OPRID
$OPROT

338
354
678
(VA

$OPRO

P}! WSLMN’U’ SMA(
CHLNAA
8:16

X26.07-563

4 9
12-JAN-83 08:16 PAGE 21-9
CROSS REFERENCE TABLE == MACRO NAMES

SEQ 0106

[1)ao¥rt

gg:

|g5 i
1

0761L+03a1%¥1-a70l OeNMGN~WYO

934
894

NOOMsMPNNOOOICOo00ONGMOR~vO+VO0NOyNMONICVOE0=NNAOv«OVNOOROO OMOO0MR0EPM NNOO=SMO=MO0OAAFWOWMMNVVONOWOMT0VN—SNPMI0ONNONAN—=MOOIOAONOOVMVNNNNYOFOMOWTOOM-

OO VMO0N NNOONOMNNWA=ON~FA0

$OPR1

g‘l

Me.OeOMe=NIT”e3‘7‘6eO(NTNNTODNIOVMO

$OPR?2

“
o
o
#
el

OTWVO ¥

$OPR2A

U0NGIONJM=INWIM o(=-e¢VNUO NRVPBPP/SPR/PR/RE VRuVn 702‘578—O5~73N1O5I93O%
B
~
L
4

n
o

on
on
on

$OPR2B

o
I
L8
on

$OPSHF

L
o

CZLNAAD
CZLNAA,

$op

$OPXOR

$OR

SRANGE

$SUBON

$THEN
SUNTL
SUNTL
SWHILE
$SBASE
$SENDS
$$GEN

JAN- 3

08: 16

SEQ 0107

PAGE 21-10
REF RENCE TABLE == MACRO NAMES

NN MNJermeremrONMNMNJeeNN—e M3~ AN N OOOOOINNUINO~NOO—O ~ TN OONNN

$OPSRE

LR+ APR T

NMAC %24.07-563

=ONIoVTWMIMVNMTNoWIANW WONTO=NNIMTBOINRMSVNTWAVNOOINNIM M=O—VNOAMNON=AONYROYM

3 g
CZLNAAO %?01 'EZIJAN-83 8NHAC x24.07-563 12=JAN=-83 08:16 PAGE 21-11
P
CILNAA
8:16
CROSS REFERENCE TABLE == MACRO NAMES

$SGETS

$SGETY

$$ILPC
$SLPCN

$$POP

$SPUSH

. ABS.

2261#»

Q264N

000

(ON

22658

2272k

2274m

wN(o¢T=gM=UNm~ R"atRnk Oe=—NMDNV0-IWAMaNM~3OITO0—M—

022370

ERRORS DEZTECTED:

REL

GBL

SPMACJ/ML ,SVC33/ML,(ZLNAA.P11T

RUN=T
I ME :

DOCUMENT PAGES:

108

2292

23044

2308#

SEQ 0108

2309#

2311w

2321w

23254

2327#

238G#