Digital PDFs

AH-T344A-MC

May 1983

109 pages

Original

5.0MB

view download

OCR Version

4.1MB

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

OCR Text

AH-T344A

FICHE 1 OF 1 feanven

USER DOCUMENTATION CZLNAAQ
CZLNAA. P
12-JAN=-B3 08:16

DNMAC X26.07-563

12-JAN-83

08:16

PAGE 1

SEQ 0001

.REM &
IDENTIFICATION
PRODUCT

CODE

AC=T343A-M(

PRUDUCT NAME:

CZ_.NAAO LNO1

MAINTAINER:

SMALL SYSTEMS DIAGNOSTICS

PRODUCT DATE:

JAN,

AUTHOR:

GLENN A.

THE

PRINTER DIAG

1983
PERNA

INFORMATION IN ThHIS DOCUMENT

CUBJECT

(CHANGE W]ITHOUT

NOTICE
AND
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
NO RESPONSIBILITY IS ASSUMED

FOR
SOF TWARE ON EQUIPMENT THAT IS NOT
ASFILIATED

THE FOLLOWING ARE

DIGITAL
DEC

COMPANIES.

(()

THE
USE
SUPPLIED

RELIABILITY

DIGITAL

1983 BY DIGITAL EQUIPMENT CORPORATION

TRADEMARKS OF

PDP
DECUS

DJGITAL EQUIPMENT CORPORATION:

UNIBUS
DECTAPE

MASSBUS

OF
OR ITS

USER DOCUMENTATION (ZLNAAQ
12-JAN-83 08:16
CZLNAA P

DNMAC X24.07-563

12-JAN-83

VWHWN—O
NOWVESsWNI—O

OPERATING INSTRUCTIONS
COMMANDSS
SWITCHES
FLAGS

ERROR INFORMAT]ON

GENERAL

SYSTEM REQUIREMENTS

TAGS

SUBTEST TAGS
GLOBAL TAGS
OTHER TAGS

POINTER BGNSW,BGNSFT

NE NSNS o T e W ol

JINITIALIZE SUPERVISOR MA(ROS

.=2000

LSREV::

NS NE N

.
P

TEST

BGNMOD

002000
002000

002030
002032

JLIST
sLIST
LISt
JLISY
JLIST

0
O
0
0
0

SEQ 0015

.ENABL AMA
.ENABL ARS
LENABL LC

002000
002000

CZLNAA 0 LNOY1
LTITLE
LSBTTL PROGRAM HEADER

664

PNE NN

PAGE 6

000000

LS$DEPO::
LSUN]T::
LSTIML::
LSHP(P::
LSSP(P::

LSHPTIP::
LSSPIP::
LSLADP::

LSSTA::

L$CO::

HEADER

(ZILNA, A,0,60,1,340

LASCIT
LASCIL
LASCIY
JASCIL
LASCLI

/C/
72/
/07
/N/
/A7

.BYTE

LASCII

/A/

ASCII

/0/

.WORD

.'4ORD

LSHARD

.WORD

LSSOFT

.WORD

LSHW

.WORD

LOSW

.WORD

LSLAST

.WORD

:DIAGNOSTIC NAME

;REVISION LEVEL
H

:NUMBER OF UNITS
;LONGEST TEST T|ME
sPOINTER TO H.W. QUES.

SPOINTER TO S.W. QUES.
sPTR, TO DEF. H.W. PTABLE
PTR.

10 S.W.

PTABLE

;DIAG. END ADDRESS
JRESERVED FCR APT

STATS

»>»

—r

Waur N

NSNS NSNS NS NSNS

W
W

VRN

et ia ke katakalate e ta e te e Rate Ra Lo le Re Ve Ve X

002032

00000C

)
)
)

00203¢
002036
002036

000001

)
)
)
)
)
)
)

002040
002042
002042
002044
002044
002046
002046

002132

000900

)

002050

003

)

Y e e et

e ki

NSNS NSNS NE NSNS NSNS NSNS NS WNEWNESWNSNES NN

TEST
ONMA( X24.07-563
12-JAN=-B3
(0B8:16
12-JAN=-83 08:16
PROGRAM HEADER

)

)
>
)
)
)
)
)
)
)y
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)

WE AN

P~~~

AQ LNOY
A.P11

)

)
;

002034

002040

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
032104
002106
002106
002110
002110
002112
002112
002114
002114
002116
002116

002120
002120

000000

000340
000000

LS$DTYP::
LSAPT::

LSDTIP::
LSPRIOD::
LSENV]::

LSEXPT::

LSMREV: :

003

000000

000000
002212

000000
000000

000000
000000
000000
000000
002152

104035
000000
005456
007232
002226
002122
000000
000000

000000

L$EF::

LSSPC::
LSDEVP::
LSREPP::
LSEXP4::

LSEXPS::

LSAUT::
L$DUT::

LSLUN::
LSDESP::
LSLOAD::
LSETP::
LSICP::

LSCC(P::
LSACP::
L$PRT::
LSTEST::

LSDLY::

LSHIME : :

PAGE 6-1

SEQ 0016

LMORD

LWORD

.MORD

.WORD

LMORD

LSDISPAT(H
;DIAGNOSTIC RUN PRIORITY
340
sFLAGS DESCRIBE HOW IT WAS SETUP
O
JEXPANSION WCRD
O

BYTE

CSREVISION

MWORD
LWMORD

;DIAGNOSTIC TYPE
;APT EXPANS]ION

;PTR.

TO DISPAT(CH TABLE

;SVC REV AND EDIT #

.BYTE

C$EDIY

LMWORD

.WORD

LWORD

.WORD

LSDVTYP

LMORD

MORD

WORD

LMWORD

LMORD

.MORD

.WORD

LS$DESC

EMT

ESLOAD

LMORD

.WORD

LSINIT

.WORD

LSCLEAN

.WORD

L$AUTO

.WORD

L$PROT

.WORD

LMORD

LMWORD

:DIAG.

EVENT FLAGS

POINTER TO DEVICE

;PTR,

10 REPORT

;PTR,

TO ACD UNIT

;PTR,

10 DROP UNIT

TYPE

LIST

(CODE

CODE
C(CODE

cLUN FOR EXERCISERS

TO FIJLL

JPOINTER

T0O DIAG.

DESCRIPTION

JGENERATE

SPECIAL

AUTOLOAD [MT

;POINTER

TO ERRTBL

;PTR,

INIT

sPTR,

TO CLEAN-UP (ODE

:PTR.

TO AUTO CODE

sPTR,

TO PROTECT

;TEST

NUMBER

;:DELAY

(COUNT

;PTR,

TO HICH MEM

CODE

TABLE

CILNAAO LNO1
CILNAA.P1Y

MAC X24.07-563 12-JAN-83 08:16 PAGE 6-5

TEST
DN
12- JAN-B3 08:16

682

232
685

(3)
686
687
488
689

PROGRAM HEADER
:

: THE FOLLOWING IS A LOAD PROTECTION TABLE

002122

002122
002122
002126
002126
002130

’

000000
177777
177777

LSPROT:;

BGNPROT

WORD
O
'WORD
=1
"WORD
=1
ENDPROT

SEQ 0017

CZLNAAD LNO1
CZLNAA. P

TEST
DNMAC Xx26.07-563
12-JAN-83
(08:16
12-JAN-83 08:16
DISPATCH TABLE

691
692
693
694

.SBTTL

697

698
(4)
(3)

002130
002130
002132

(6)
(6)
(6)

002132
002134
002136

007426
010722
011356

(6)

002142

013050

002146

014770

(6)

éga

002140

002144

002150

702
(&)
(3)

012020

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

014302

016522

~—
T

~N
-~ -~

oon

(4)
(3)

706

002212
002212
002212

055103
020060
050040
051105
047107
000103

047114
002220

@
T2
T3

.WORD

047114
044514
044522
042040
051517

030460

040501
042516
052116
040511
044524

000

L$DESC::

.WORD

DESCRIP

EVEN
DEVTYP
LSDVTYP:
:
LASCIZ
.EVEN

TESTS

ON REVISION C OF

JASCIZ

:X= NUMBER OF

.WORD

LWORD

002152

002160
002166
002174
002202
002210

.WORD
LWORD
MWORD

.WORD

:FOR USE
002152
002152

SEQ 0018

CONTAINS THE STARTING ADDRESS OF EACH TEST.

DISPATCH
.WORD
8
L$DISPAT(CH:;

;8?

17T IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST.

000010

DISPATCH TABLE

R
¢ THE DISPAT(H TABLE

232

PAGE 7

THE

SUPERVISOR

<CZLNAAO LINE PRINTER DJAGNOSTIC>
/C2ULNAAO LINE

<LNO1>
/7LNOV/

PRINTER DIAGNOSTIC/

-n

CZLNAAOD LNO1
CZLNAA.PYT

TEST
12-JAN-83
DN M AC X24.07-563
(08:16
PAGE 8
12-JAN-83 08 16
DEFAULT HARDWARE P-TABLE

~ =t OO0 F NN NN

(3)

.SBTTL

SEQ (019

DEFAULT HARDWARE P-TABLE

:
¢
[elololalele

=2 OO 00 N~~~

2Ve]
AWV S an — [

ANSNNNANNNN ANNNNNYNNA
A A NN NN ~N~
-0
NN NN
NN N AD N INPUAUADND
=2 a2 NN =D b b b b

708

000002
177514
000200

THE

DEFAULT

HARDWARE

BGNHW

DFPTBL

.WORD
.WORD

177514
200

P-TABLE

CONTAINS DEFAULT

THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF
IS IDENTICAL TO THE RUN-TIME P-TABLE.

L3HW::

DFPIBL::

LWORD

VALUES OF

THIS TABLE

L10001-L8HW/?
:LP11 REGISTER ADCRESS
sLP11 INTERRUPT VECTOR

{INTERRUPT VECTOR PRIORITY [S 4 AND CANNOT BE CHANGED
L10001:

002226
002226

002226

002230
002230
002230

LSAUTO:;

000240

1046461

ENDHW

BGNAUTO
NOP

L10002:

ENDAUTO
TRAP

($AUTO

NOT USED

CZLNAAO LNOYV

CZLNAA.PI

12-JAN-83 08:16

TEST

PAGE 9

83 08:16

SOF TWARE P-TABLE
.SBTTL

SEQ 0020

SOF TWARE P-TABLE

000002

THE SOFTWARE P-TABLE CONTAINS THE VALUES OF

PARAMETERS

BGNSW

LOSW::

THAT

CAN BE

CHANGED BY

THE

THE PROGRAM

OPERATOR.

SFPTBL

.WORD

L10003-L%Sw/2

_WORD

SFPIBL::

000900

INHINT:

;0 IF NO INTERVENTION TESTS
;1

MANUAL

INTERVENTION

JDEFAULT IS NO
002236
002240
002240

000005

MAXERR:

.WORD

;

AUTODROP ERROR COUNT

ERROR COUNT EXCEEDS MAXERR THE UNIT WILL BE DROPPED FPOM TEST

L10003:

ENDSW

TESTS

CZLNAAO LNO1
CILNAA. P

TEST
DNMC x264.07- 563
12=JAN-83 (08:16 PAGE 10
12-JAN-83 08:1
1/0 MACRO DEFINITIONS

;g%

SBTTL

754

MACRO

755
756
757
758
759
760
761
762
763

.JF

ENDC
LIF NB

LENDC

764
765
766
767

.IF

769
770

.ENDC

144

772

773
774
775
776
777
778
779

OQuUTPUT

MOV
MOV
MOV
ERR
MOV
ERR

MOV

ERR,ERRSVC(
#1 ,BUFREP

PRINT ONCE

MOV

PRINTS ,BUFREP

SUPPLY PRINT

:CALL

9JUTPUl
MOV
MOV
ERR
MOV

ADD,BFCNT,ERR,UNIT,PR]INTS
ADD ,BUFADD
JSAVE BUFFER ADDRESS
BFCNT ,BUFCNT
JBUFFER BYTE COUNT BF(CNT

ERR

MOV

794

;

797

;A TIHEOUT OF

;gg

#LPERR,ERRSV(

#1,BUFREP

;

PRINTS ,BUFREP

SUPPLY PRINT

UNIT,PRINTR
PC,IOCTRL

: SUPPLY UNIT NUMBER
;CALL THE DRIVER

IS A PARAMETER CONTROLLING THE NUMBER

ONCE

DEFAULT

TIMES

COUNT

THE

DATA OR

; MESSAGE IS 10 BE PRINTED (SENT TO THE PRINTER). DEFAULT S 1

798
799
88?
8
80¢

PRINTS

DRIVER

ERR,ERRSVC

‘
789
790
79N

798

(COUNT

.MACRO
B

THE

DEFAULT

PC,I0CTRL

MOV
LENDC
.1F NB PRINTS
ENDC
MOV
.EN
MOV
JSR
.ENDM

786
Zgg

;SAVE THE BUFFER ADDRESS
JBUFFER BYTE COUNT BF(CNT
: OUTPUT TO ALL UNITS

#LPERR,ERRSVC

LENDC
.JF B PRINTS

784
785

ADD ,BUFADD
BFCNT ,BUFCNT
#-1,PRINTR

JSR

.JF

782
783

ADD,BFCNT,ERR,PRINTS

QUTPUT

LENDC

781

SEQ 0021

LENDM

780

1/0 MACRO DEFINITIONS

B PRINTS
MOV
ENDC
1F NB PRINTS

768

:
:
:

002240

2
3

20.

SECONDS IS FURNISHED BASED ON THE FOLLOWING ASSUMPTIONS

A PRINTER SPEED OF 300 LPM
A REPEATY COUNT OF 88 MAX. ( 1 PAGE OF LINES Al 8 LPl.
AN INITIAL BAND STARTUP TIME OF 2.5 SECONDS.

d 00000
ENDMOD

)

CZLNAAQ LNOY 114 S 1
1 2=JAN-83
CZLNAA.PI

Y talalalalatatatalalalalalalalelatalaleatetalatatetatay
* Lo Lo ]
Y
Y
Y

GLOBAL AREAS

002240

08:16

PAGE 11

SEQ 0022

GLOBAL AREAS

BGNMOD
;00

D o0
e o "

e o e e o o o S M M

N W W N W e Nt e N W W o N Nl S N N Nt N Nl N o o N o S Nt N o it N o ot N\

—l-‘-l...-‘-._._._._._‘—._‘_..—l.—l—.—.a—l—.—.—l—l-‘—l—.—.—.—ld_‘-.—l—.—l—.-‘-‘—‘—D—.—l-‘_‘.‘—l—l—l_‘

116

12-JAN-83

.SBTTL

pat=t

[+ ]

804
805
806
807
808

( %x24.07-563

THE GLOBAL EQUATES SECT l ON CONTAINS PROGRAM EQUATES
THAT

002240

ARE

USED

IN MORE

T HAN ONE

TEST.

EQUALS

: BIT DIFINITIONS
B81715== 100000
B8IT14==
BIT13==
BIT12==
BIT11==
B8I1T10==
B8I1109==
BIT08==
BIT07==
BI706==
BI1705==
BIT04==

40000
20000
10000
4000
2000
1000
400
200
100
40
20

B81703== 10
BIT02== &
BJj101== 2

000001

81700== 1

001000

BI19==
B81718==
BIT7==
BIT6==
BITS5==
BIT4==
8113==
8IT12==
BIT1==
B110==

000001

BIT09
BJT08
81707
B8]T106
BJT05
B]T04
BIT03
BIT02
BITON
81700

; EVENT FLAG DEFINITIONS

.
000040
000037
000036
000035
000034

EF .START==

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

000340
000300
000240

EF32:EF17 RESERVED ¢ OR SUPERVISOR TO PROGRAM (OMMUNICATION
32.

3.
20.
29.
28.

PRIORITY LEVEL DEFINITIONS

PRIO7== 340
PRI06== 300
PRI0S== 240

START

COMMAND WAS

ISSUED

RESTART

COMMAND WAS

ISSUED

A POWER-FAIL/POWER=-UP OCCURRED

¢ CONTINUE COMMAND WAS [SSUED
: A NEW PASS HAS BEEN STARTED

-83

»2

mrv
)

[ P21

COO0O0O
O =MW

REAS

08:16

K
2
PAGE 111

SEG 0023

200

Houuwnhn

St Bt ot Pt

(2]

Nt S

140
100
40

o S

nwwn
1 b

MMODMMie
=M T OC 20—
B0 0
unnenao

X
otor e VD OMC rette P
M
OOMIXDVD20P>PNOTO T

unnnun

40
100

200

400
1000

2000

4000
10000

20000

40000
100000

~
~

—S\LUnEaN

~annn

000012

QN
MO

e N N N
o W N W N N

100000

=2 N %r "ol "ol ol W

VOVOVOODO
VDO
D O

—2Z

>»>»

> >
. O
©

o Nt

—r

:OPERATO R FLAG BITS

000177

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

STATER= 1

TIMOUT= 2

sTRANSMITTER STATUS ERROR IN QUTPUT

s TIMEOUT ERROR

IN 10 DRIVER MODULE

:THIS ERROR INDICATES THE LAST CHARA(CTER

832

NN
SS IS SN SS
AN N NN N NN
W= OV
NO VB WN=O Yele VT JV. F YWY

[ - Jo o To Jo To -Jo To Jo To To Jo Jo -To Yo .}00 00 0o OO 00 0o 00

X26.07-563

000003

NOINTR= 3

sWAS NOT

TRANSMITTED WITHIN A GIVEN

GENERAL REGISTER USAGE DEF INITIONS
RESERVED FOR USE BY THE MACRO PACKAGES
MAXIMUM NUMBER QOF UNITS TO TEST LSUN]T=1

UNIT NUMBER BY 2. USED TO CALCULATE OFFSET

PRINTER TABLE
TEMPORARY S TORAGE

STACK POINTER

PROGRAM COUNTER

100000

TIME

;GROSS TIME OUT ERROR. THE SPECIFIED DID NOT
: INTERRRUPT, THEREFORE [0 DRIVER MODULE WAS
sNOT CALLED

PLP STA TUS TABLE BIT DEFINITIONS
ERROR = BIT1S

INTO PROPER

CZLNAAD LNOT1
CILNAA. P

854
855
’59’

558

L
2
08:16
PAGE 11-2
ISTER USAGE DEFINITIONS

TEST
DNMAC x24.07-563
12-JAN-83
12-JAN-83 08:16
GENERAL REG

040000
020000

000377

DROPED = BIT14
ACTIVE = B]JT113

LOBYTE

377

BIT MASK

FOR CLEARING LOBYTE

SEQ 0024

(COUNTER)

DN M X24 07-563
12-JAN-B83
08:16
PAGE 12
CZLNAAO LN01 TEST
CZINAA.P1Y
12-J#N-83 08:1
GLOBAL DATA SECTION

gg?
5

002240
002242
002244
002246
002250
002252
002256
002256
002260

000000
000000
000000
000000
00)000
002000
005000
000000
000900

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

.WORD
_WORD
.WORD
.WORD
,WORD
.WORD
.WORD
.WORD
.WORD

0
0
O
0
0
0
0
0
O

875
g;g

002262
002264

000000
000000

PTABAD:
PRINTR:

.WORD
.WORD

0
0O

878
879

002266

000000

CLKTYP:

.WORD

882
883
884
885
886
887
888
889
890
891
gg%

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
0
O
O
O
0

002304
002306

000000
000000

ERRFLG:
UuT:

WORD
.WORD

0
O

002310
002312

000000
000000

INDEX:
VFUCMD:

.WORD
.WORD

0
O

¢MACRO

VARIABLES

880
881

894
ggg

SEQ 0025

.SBTTL GLOBAL DATA SECTION

864
865
866
867
868
869
870
871
872
873
874

ggg

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

sUNIT COUNTER FOR SINGLE UNIT TESTING
;UNIT COUNTER FOR ERRORS
sAND TESTS NOT USING THE OUTPUT
sMACROS.

;P=-TABLE ADDRESS RETURNED BY GPHARD
aE%ESTED LINE NO.
:CLOCK TYPE CONTROL WORD
:1= NO CLOCK AVAILABLE

:2= KW11-L LINE CLOCK
3= KW11-P_PROGRAMABLE (LOCK

: CLOCK P-TABLE ADDRESS
:CLOCK CSR ADDRESS
s CLOCK TIME SET REG ADDRESS
;CLOCK VECTOR ADDRESS
;CLOCK ENABLE BITS
;ERROR CODE TYPE FOR GENERAL

:ERROR ROUTINE
:EXPECTED ERROR INDICATOR
: # UNITS ACTUALLY UNDER TEST

;EXITS BACK TO 10 DRIVER EQUAL
:1 IF ERROR WAS EXPECTED.

899

002314

000000

BUFADD:

.WORD

;BUrFER ADDRESS OF DATA TO BE SENT

38}

002316

000000

BUFCNT: .WORD

sNUMBER OF BYTES 10 TRANSFER

382

002320

000000

BUFREP:

: NUMBER OF TIMES TO PRINT

900

905
906

.WORD

:
.

ggg

:LNO1 PARAMETER WORD TABLES

909

002322

000020

LPCSR:

.REPT

912
913

002362

000016

LPVEC:

.REPT
MORD

915

002416

000020

LPBUF:

910
911
914

.TO THE PRINTER

.WORD
.ENDR

-ENDR

16,

; ADDRESS Of (SR FOR EACH LP11

16
O

LREPT 16,

INTERRUPT VECTOR ADDRESS

; DATA BUFFER REGISTER ADDRESS

CZLNAAO LNO1
CZLNAA. P11

N 2
12-JAN-83
08:16
PAGE 12-1
TEST
DN MAC Xx24.07-563
12-JAN-83 08:16
GLOBAL DATA SECTION

916

917

918

919
920
921

92?2

923
924
925
926
927
928
929
930
931
932
933
934
935
936

937
938
939
32?
942
943
944

MORD
002456

000020

STATUS:

002516

(00020

CURADD:

002556

000020

MSGCNT:

002616

00020

REPCNT:

002656

200020

MSGADR:

002716

000020

002756

000020

003016

000020

DELCNT:

003056
003060

000000
060020

ERRSVC: .WORD
ERRTBL::

)
.

CURCNT:
LFINTR:

000000
000900

MWORD

.ENDR
.REPT 16.
.WORD 0
.ENDR
.REPT
16,
WORC
O
.ENDR
.REPT
16,
MORD
O
+ENDR
.REPT 16.
LMWORD
-1
ENDk
.REPT 16, -

.WORD
0
+ENDR
.REPT 16.
.gggg
0

O
LREPT
0

WORK::
WORK1:

.WORD
.JORD

32%

LSBTTL

OUTPUT BUFFER

ggg

2150 BYTES

950
951

956
957
958
959
960

023124

000226

OUTBUF:

: UNIT STATUS

.WORD
O
ENDR
,REPT 16,

+ENDR
(23120
€J3122

.REPT 16,

.WORD

322
947
gzg

.ENDR

16.

0
O

IS RESERVED FOR

-EVEN
.REPT
BYIE
.ENDR

SEQ 0026

150.
O

THE

CURRENT ADDRESS OF

INITIAL BYTE

NO,

ADDRESS OF

CURRENT COUNT REMAINING TO OUTPUT

INTERRUPT ROJTINE ADDRESS

TIMEQUT DELAY COUNTER

:
s

ERROR ROQUTINE DISPATCH ADDRESS
ERROR COUNT FOR EA(H UNIT

WORK AREA

OUTPUT DATA BYTE

COUNT OF MSG FOR REPEAT RESTORE

TIMES TO REPEAT MESSAGE
DATA TO "RINT START OF

DATA

OUTPUT BUFFER AREA

’

CZLNAAD {NO1
CILNAA.PT

12-JAN-83
08:16
PAGE 13
TEST
DNMAC X24,07-563
12-JAN-83 08:16
GLOBAL TEXT SECTION

322

.SBTTL

965

968

967

003352
003370
003412
003455
003530
(03574
003627
003654
003701
003732

051120
051120
040520
120
051106
051124
120
052517
125
046101
004002

047111
047111
042520
050101
047117
047101
044522
050124
044516
020114

042526
042524
020122
0S110S
020126
046523
052116
052125
020124
047125

993
994
995
996

GLOBAL TEXT SECTICMN

MESSAGES, AND ASCI!
MORE

THAN ONE

(SRERR:
RDYERR:
PAPSWI:
MHANSW]:
DOOSW]:
INTER1:
TXERR:
OUTTIM:
TXNOIN:
UUTEQO:

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

.EVEN

TEST,

INFORMATION THAT ARE USED

/PRINTER ERROR/
/PRINTER NOT READY/
/PAPER QUT INTERLOCK SWITCH FAILURE/
/PAPER TRAY HANDLE INTERLOCK SWITCH FAILURE/
/FRONT DOOR INTERLOCK SWITCH FAILURE/
/TRANSMIT INTERRUPT TIMEOUT/
/PRINTER STATUS ERROR/
/0UTPUT TIMEOUT ERROR/
/UNIT FAILED TO INTERRUPT/
/ALL UNITS HAVZ BEEN DROPPED..RESTART../

:
:

.LIST BEX

333

991

SEQ 0027

; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,

398

992

NLIST BEX

966

971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
ggg

004002
004010
006016
006024
004032
004040
004046

040445
052440
042045
051104
020104
052040
000116

050114
044516
022462
050117
051106
051505

030461
020124
(20101
042520
046517
022524

FORMAT

LPDROP:

STATEMENTS USED

.ASCIZ

IN PRINT

CALLS

/XALP11 UNIT XD2XA DROPPED FROM TESTIN/

CZLNAAD LNO1
CILNAA.P11

TEST
DNMAC X24.07-563
12-JAN-83 (08:16
12=-JAN-B3 08:16
GLOBAL SUBROUTINES

998
999
1000
1001

LSBTTL

=« PN ale P W

SEQ 0028

SECTION

TTVeOe O
0002000V
T2
BI

TO PRINT THE GENERAL ERROR INFORMAT]ION.

THE

ERROR MESSAGE

IN THE

FOLLOWING FORMAT:

ERROR AT (SR XXXXXX UNIT vy*
WHERE

XxXXXxX=

YY=

DEVICE

UNIT

CSR ADDRESS

NUMBER

THAT

FAILED

CALLING SEQUENCE
JSR PC,LPERR

REQUIRED PARAMETERS

ERRCOD MUST BE SET
UNDER ERROR CODES.

TO ONE OF

THE ERROR (ODES DESCRIBED

THE SUBROUTINES

0.0

004104

004162

£ N 0D N LN

PRINTS

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

013746

)
1035
)
5)

DESCRIPTION:

SUBROUTINE

004050

002455
023727
003051
006316
062716
013607

1033
)
1036
)
e

004050

004054
004056
004064
004066
004070
004074
004076
004076
0J4100

1032
)

s
FUNCTJONAL

)
)
)
)
)
)
)
)
)

)

GLOBAL SUBROUTINES

02 8.

d il

) e

d il

D e

)

D el

Y atalata ot P N elalelelalelelelololololololelololelelelols]

AN AN AN N ANUA N NNV AN D SN O PO NN AU N AN NN NI RV A «d b cd b cd ocd b od b 2 O
OV
NN WN=2OOVBNPONSWN—-OP

1004
1005
1006
1007
1008

se
. THE GLOBAL SUBROUTINE SECTION CONTAINS
: THAT ARE USED BY MORE THAN ONE TEST.

}88%

)

PAGE 14
SECTION

004102

002302

006116
124122
004122
004124

000003

004076
50000%:

004214
004106
C04134

50003$:

005262

003060

010237

002074

006237

104456
000016

SELECT ERRCOD OF 3 VERIFY

MOV

ERRCOD,-(SP)

.WORD
WORD
.WORD

5G004$
50003%
50002%

BLT
(MP
86T
ASL
ADD
MOV

002074

CASE

sSELECT PROPER MESSAGE FORMAT

50005%
ERRCOD,#3
50005%
(SP)
#50000%, (SP)
a(SP)+,P(

.WORD

006106
004106

004106
004106
004112
004112

LPERR:

002302

50001%

:STATUS ERROR

LET ERRTBL(R2) := ERRTBL(RZ)
INC
ERRTBL (R2)
LET LSLUN := RZ2 SHIFT =1
MOV
R2,LSLUN
ASR
ERRHRDP
TRAP
.WORD

LSLUN
14,TXERR
CSERHRD
14

¢+ M

Z2Z

—r

-—

-— b

> >

004132

004134

CNDCD,.C”NCDA“D’\CND‘\fldD<>fl~fi4\‘\fld:c:c":‘\flu&‘\ch\’\Ch\:)Chfl’\C":fl\fl“fll\CDfl”fiC)fld:‘\fl“DC)f\fl
ONJ“A‘\\n‘\NAQQUwafign—N)\h\hU‘VflULNUNJNF“tflfi\h\hl‘l‘fib\fll‘\Jt~b\fi“t"Wfi&flhfll"\Obhflvi\nflufltfliflfl\fl\fl

004126

)
)

)
9
)
)

—

2
)
)

-t

ad
-

k=
mp
b

LWORD

00.332
004134

000430

00413
004340
004140
004144

005262

003060

010237
006237

002074
002074

004150
004152
004154

104456
000017
003654

004150

004156
0046160

004160
004162
004162
004162
004166

004176

)
)

)
)
)
;

000000

LMWORD
CASE 2

50002%:

TXERR

JOUTPUT TIMEOUT ERROR

50006%

:= ERRTBL(R2)

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

ERRHRD
TRAP
LMORD
.WORD

000000

.MWORD

CASE 3

000415

50001%:

15,0UTTIM

CSERHRD
15
QUTTIM

+ M

50006%
LLT ERRTIBL(R2) := ERRIBL(RZ)
ERRTBL (R2)
LET LSLUN := R2 SHIFT =1

003060

INC

0064166
004172

010237
006237

002074
002074

MOV
ASR

004176
004200
004202

104456
000020
003701

TRAP
.WORD
.WORD
LMORD

000000

SEQ 0029

SECTION

LET ERRTBL(R2)

005262

004204

0,3

PAGE 14-1

NEVER RECIEVED

THE

INTERRUPT

+ #

R2.LSLUN
LSLUN
ERRHRD 16,TXNOIN
CSERHRD
16
TXNOIN

g
0

004206

)
)
)
%

004210
004210
004214
004214

2
)

003627

004130

&
)
S

)

004206

004214

ENDSELECY

000402

062706

003060

004224

004737

005314

5
)
6

004230
004230
004236

4
)

)

006230
004230

003402

100000

004236

005037

002302

004242

012772

000100

004250

50006%

ADD

#2,SP

002236

CMP

BLE
50007%:

042762

004242

500048
:

50006%:
026237

0) 004222

50005%:

000002

024214

)

TEST
12-JAN-83 08:16
DNMAC X24.07-563
12-JAN-83 08:16
GLOBAL SUBROUTINES

)

)
)
)

—

‘alm)

AQO LNOY
AP

000207

002456

002322

ERRTBL(R2) GT MAYERR THEN
ERRTBL
(R2) ,MAXERR

50007%

JSR PC,DROPIT

ENDIF

;

MAXIMUM ERROR COUNT EXCEEDED

LET STATUS(R2) :- STATUS(R?)
BIC
#ERROR,STATUS(R?)

CLR.BY WERROR

LET ERRCOD := #0
(LR

ERRCOD

MOV

#100,8LPCSR(R?)

LET SLPCSR(R2)
RTS

P S TN I NI T T

:= #100

: CLEAR THE ERROR BIT AND ENABLE
JANC EXIT

I It TIRETsIIIIIIIosZIZIzzzzazzzz2z

-4

- -

INTERRUPTS

CZLNAAO LNOY
CZLNAA.PT1

TEST
DNMAC X264.07-563
12-JAN-83 08:16
12-JAN-83 08:16
GLOBAL SUBROUTINES

1061
1062

:
;

1063

;

1065

1064

1066

004254
004256
004256

BIN2DA:

010546
016504

000006

FOR THE AL"1]

STRING.

CALL BY JSR

PC,BIN2DA

5 DIGITS WILL BF

CONVERTED

R F

LEADING ZErOES WILL BE CONVERTED TO SPACES.

010446

CONVERSION ROUTINE
CONVERTED ON THE STA(CK

FOLLOWED BY THE ADDRESS OF A S BYTE BUFFER

;
004252
004252

SEQ 0030

BINARY TO DECIMAL ASCII
ENTER WITH NUMBER TO BE

;

1067

1068
1069
(2)
(3)
1070
(4)

8IN2DA

PAGE 14=2
SECTION

A E E E

P R

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

MOV
LET R4

RS.=(SP)
:= 6(SP)
6(SP).R4

GET ADDRESS FOR ASCII

LET

;

GET

MOV

1071

004262

(4)

004262

012705

004444

MOV

006266
004272
006272

005037

004456

005037

006460

012737

000004

CLR
FLAGDA
LET COUNTD := #0
CLR
COUNTD
: B.(SP) HAS NUMBER TO BE CONVERTED
DECR DIGITS FROM #4 TO #0 BY #1 ; DO 5 DIGITS
MOV
#4,DIGITS

1072

(4)
1073
(4)
1674
1075
(S)

(7)

004266

004276
004276

004304

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

004306
004306
006312
0064312

1076
(&)

006320
006320

(9)

(6)
(10)
1077
(73
1078
(7)
1079
(4)
(3)
1080
1081
(6)
(8)
(6)
(10)
(6)
1082
(7)

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

004316

004320
004324
004326
006326
004332
004332
004336
004336
006349

006340
004340
024344
006366
004352
004354
004354
004354
004362
006362
004366
006366
004372
004372
004374
006374

000402

005337

004462

005737

004462

002435
026615
002405

000010

161566

000010

005237

004460

50011$:
50010$:

50013$:

50014$:

006460

052737

000060

113724

006460

005237

004456

000402

#TABLDA

#TABLDA,RS

B8R

500108

DEC

DIGITS

BLTY

000770

005737
003003
005737
003410

LET FLAGDA := #0

004462

006456
50015$:

004460

50012¢

CMP
BLT

8.(SP), (RS)
50014$
LET 8.(SP)
SUZ
(RS),8.(SP)
LET COUNTD
INC
COUNTD
ENDDO
BR
50013$

:
ST
BGT
ST
L

ADDRESS

DECIMAL

: LEADING ZERO FLAG

WHILE 8.(SP) GE

BIS

(RS)

:= 8.(SP)

;

CREATE A DIGIT

(RS)

:= COUNTD + #1

CONVERT DIGIT TO ASCII OR SUPPLY A SPACE
IF COUNTD GT #0 OR FLAGDA GT #0 THEN
COUNTD
$0015$
FLAGDA
50016$
LET COUNTD
#60, COUNTD

:= COUNTD SET.BY #60

LET (R4)* :B= COUNTD
COUNTD, (R&4)+
LET FLAGDA := FLAGDA ¢ #1
INC
fLAGDA
ELSE
BR
50017%
MOVB

50016%:

LET

(R&)+

:B:= #40

STRING
TABLE

CZLNAAO LNO1

CZULNAA.PI
(4)

1087
(&)

1088
1089
~

—

OO0
NOWVNME

b od wd b

— el cnd e

— el s

—

-—

-t

-tk e A DA ADOAOCAODAANOOAND

OOOCONOWNOSTOOHTOVNOV200N0 Y78V P
W22 O
O
w0
YO
N
SO
NN <
=-

(7)
1050

TEST

004374
004400
004400
004400
004400
004404
004404
004410
004410
004412

004412
004412
004416
006420
004420
006424
004424

006424
004424
004432
004432
004434
004436
004436
004442
0044446
004452
004456
004460
004462

12-JAN-83
0B8:16
ONMAC x24.07-563
12-JAN-83 08:16
GLOBAL SUBROUTINES
112724

000040

Mov8

50017¢%:

PAGE 14 3
SECTION

#40,(R&)+

ENDIF

00 THE NEXT DIGIT

LET fiS := RS + #2

062705

0000v2

ADD

005037

004460

(LR
COUNTD
ENDDECR

000736

50012%:

005737
001002

006456

112744

000060

016666

000004

023420

001750
000001

000012
000000
000000
000000

MOvB

50011$

FLAGDA

50020%
LET =(R4) :8= #60

ENDIF

#60,-(R&)

: CLEAN UP THE STACK AND EXIT
:= &(SP)

LET 8.(SP)

MOV

000010

POP
MOV
MOV
LET

ADD

000144

:= #0

s IF NUMBER WAS A ZERO PRINT A *'0°
IF _FLAGDA EQ #0 THEN

1ST

012605
012604
062756
000207

#2,RS

LET COUNTD

BNE

50020%:

4L(SP),B8.(SP)

RS ,R4
(SP)+,RS
(SP)+ R4

#4,SP

¢+

RTS

]

TABLDA:

.WORD

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

FLAGDA:

.WORD
WORD
.WORD

0
0
0

COUNTD:
DIGITS:

SEQ 0031

B N NI NN S W NANN S AN S AW =2 ONNONUNIA) =2 N PNIPNININIAIND o d ol e cd b e b e b (=]
2w OOV~ NN
U
2w OO
OO NOO~ NN =2 OO0 NP NN
OO
uF oF 2l Yo 0 3 N B AN
Fo

1144
(&)

1145
(7)
1146

)

08:16

PAGE 15

SEQ 0032

1/0 DRIVER

.SBTTL

LX 4

:THE

sCALL

Iv E
1/0 DRIVER
ROUTINE IS INVOKED BY MEANS OF
TO I7

IS S JM

R Tl.

sRETURN

10DRV,

THE

[NTERRUPT SYSTEM,

SENTER ROUT INE 3 WIT H R2 SET UP TO DESIRED UNIT «2, R2 S USED
;70 CALCULA TE OFFS 3 #NEO PROPER TABLE.

sR1

EQUALS MAXIMUM NUMBER OF

UNITS ON SYSTEM UNDER

TEST,

E CHECK FOR ERROR FLAG IN STATUS REG.
004464
004464

032772
001061

100000

002322

i ODRV:

JF #BIT15 NOTSETIN SLPCSR(R2)
#B1175,aLPCSR(R2)
BIT
BNE
50021%

THEN

P IF CCUNT NOT ZERO SEND NEXT BYTE
004474
004474

) 004500

N AN O

ad
b
—

pur
e

—
vy
.
o~ b o, b o~ o~

TEST
12-JAN-83
DNMAC Xx24.07-563
12-JAN 83 08:16
1/0 DRIVER

) 004472

b — o S e o

- e

b ok

-—

— el

—d

) caad e

d end ed

)

D p

g i oy D i il ol v, iy, D P P il il D e g o D e D e D e i e D o o D oD el i d —

CILNAAQ LNO1
.P
CZLNAA

004502
004502
004510
0064510

005762
003416

002716

117272

002516

005262

012516

1ST

BLE

MovBe

002416

INC
ENABLE

004514
004514
004522
004522
004526
004526
004534
004534
004536

052762

020000

005362

00c:16

052772

000100

THEN

LET aLPBUF (R2)

:B= aCURADD(RZ2)

LET CURADD(R2)
CURADD (R2)

:= CURADD(RZ)

50022%

ICURADD
(R2) ,aLPBUF (R2)

BIS

002616

006546

005762
003424

002616

016262

002656

+ Ml

BIS

LET STATUS(R2) := STATUS(R2) SET.BY #ACTIVE
OA(TIVE.STAiuS(RZ)
LET CURCNT(R2) := CURCNT(R2) - #1
CURCNT(R2)
LET SLPCSR(R?2) := @LPCSR(R?2) SET.BY #100
SEO100.8LPCS (R2)

50023%

DEC

LET REPCNT(R?2) := REP(NT(R2) - M
REPCNT(R?)
IF REPCNT(R2) GT #0 THEN

50022%:
; CURRENT MSG DONE,

005362

004550
004550
004556
004556
004564
004564
004572
004572
004576

0023¢2

CURCNT(R2) GT #0
CURCNT(R2)

INTERRUPT FOR NEXT BYTE

DEC

000437

034536
004536

004542
004542

002456

TST

BLE

PRINT COUNT NOT ZERC SEND AGAIN

REPCNT(R2)

500249

CURADD(R?2)

:= MSGADR(R?)

; REST ORE

LET CURCNT(R2)

:= MSGCNT(RZ2)

; REST ORE THE BYTE COUNT

LET SLPBUF(R2)

:B= @CURADD(R?)

; RE SEND THE MESSAGE

LET

002516

MOV

MSGADR(R2) ,CURADD (R?2)

MSGCNT(R2) ,CURCNT (R2)

8CURADD
(R2) ,8LPBUF (R2)

016262

002556

002716

MOV

117272

002516

002416

MOVB

005262

002516

INC

LET CURADD(RZ)
CURADD(R?)

LET CURCNT(RZ)

:= CURADD(R2)

+ #1

:= CURCNT(RZ) - &1

THE MSG ADDR

; BUMP THE POINTER

; DROP BYTE COUNI

CZUNAAD LNO1
CZLNAA, PIN
(7)
1147
(7)
1148
(&)
1149
(4)
(3)
1150
1151
1152
(7)
1153
(&)
1154
(4)
1155
(4)
1156
(4)

(3)

1157
1158
1159
{(7)

TEST
DNMAC X24.07=563
12-JAN-83
1
[/0 DRIVER
12-JAN-83 08:16

004576
004602
004602
004610
004610
004616
004616
004620

004620
004620
004626
004626
004634
004634
004634
006634
004636
004634

004634
004636

1160
(&)
1161

004636
004644
004644
004652

1163
(4)
1164
(2)

004656
004656
004656
006656

1162

1165

004660

005362

002716

052762

020000

002456

BIS

012772

000100

002322

MOv

DEC

000406

042762

020000

002456

012772

000000

002322

000410

CURCNT(R2)
LET STATUS(R2)
SACTIVE,STATUS(R?)
LET QLPC(SR(R2)
#100,aLPCSR(R?)
ELSE
50025%

SEQ 0033

STATUS(RZ)

:= #100

;

SET.BY #ACTIVE

RE-ENABLE

STATUS(R2)

INTERRUPTS

(LK.BY #A(CTIVE

:= #00

500218:

052762

100000

002456

012737
004777

000001
176200

002302

CLEAR ERROR CONDITION, ENABLE INTERRUPIS
SET ERROR F' aQ
LE" STATUS(R2) := STATUS(RZ2) SET.BY #ERROR
BIS
#ERROR,STATUS(R?)
Mov

LET

ERRCOD := #STATER
#STATER,ERRCOD
JSR PC,aERRSV(

;

50026%:

000002

PAGE 15-1

BR
50024%:
. CURRENT MSG DONE, REPEAT COUNT =)
s CLEAR ACTIVE AND DISABLE INTERRUPTS,
LET STATUS(R2)
8IC
#ACTIVE,STATUS(RZ)
LET SLPCSR(RS)
MOv
#00,aLPCSR(R2)
ENDIF
50025%:
ENDIF
50023$%:
ELSE
BR
50026%

¢
¢

012602

08:16

ENDIF
POP R2
MOv

RYI

STATUS ERROR

ERROR SERVICE SHOULD CLEAR ERROR BIT AND ENABLE

(SP)+,R2

INTR

CZLNAAO LNOY1

CIULNAA. P11

TEST

DN MAC X26.07-563

12-JAN-8 3 08:16

12-JAN=83
1/0 CONTROL
LSBTTL

NOO VB WA~~~ =000 NAWVNSWN =00
O

OWE 005000000000 0000C0NNAIO000 N~ NN NNNN~NNO

2w O
=~ O~ O~ 00 O NOWVMEB W

ONO=P OVOOVOOS OO

INPUTS:

SEQ 0034

IS A SINGLE
S]
ENTRY QUEUE MANAGER.

INVOKED BY a
A JSR F ROM AN

PRINTR

BUFADD
BUFCNT

FOR

1/0 (ALL.

ALL TERMINALS

N FOR PRINTER NUMBER ‘N’
ADDRESS
S
OF MESSAGE TO PRINT
BYTE COUNT TO TRANSMIT TO PRINTER

ERRSVC
ADDRESS OF ERROR SERVICE SUBROUTINE
BUFREP [S NO. OF TIMES TO PRINT THE MSG
004662
004662
004664

I0CTRL: PUSH R2,R3

0
O

MoV
MOV

RZ,=(SP)
R3,-(SP)

IF PRINTR IS =1 QUE QUTPUT TO ALL PRINTERS SELECTED

OTHERWISE

004666
004666

004676
004676
004702
004702
004706
004706
004710
004710
004710
004714
004714
004722
004722

002264

013703

002012

MOV

005037

002074

CLR
ELSE

177777

000405

50027%:

012703

000001

013737

002264

IN PRINTR,

IF PRINTR EQ #-1 THEN
PRINTR,#-1
(MP
BNE
50027%

023727

001005

TO UNIT NUMBER

50030%:

LSUNIT ,R3

LET LSLUN := #0
LSLUN

MOV

002074

LET R3 := LSUNIT

£0030%

LET R3 := m
#1,R3

LET LSLUN := PRINTR

MOV
ENDIF

PRINTR,LSLUN

* REPEAT TILL R3 = 0
004722
004722
036722

) 004724

&~ COWVMODOOOIrN

/0 CONTROL SUBROUTINE

THIS ROUTINE

) 0046764

= B

b
b
b
s el

D D i o e

emd
b
b
— nd el e ad
— e e
D D o
—
—
i el wdd
— wnd b
-—
A m PURINUND b o md o oy b b e ad b s o
D o PN e o e o
o o D e D e o o D b d o D d e

PAGE

170 CONTROL

+ ¢+

THE

08:16

004726
004726
00473¢

CTLLOP:

005703

BNE

001002

000137

IF R3 EQ #0 THEN

1ST

005240

004732

50031%:

50031$
INLINE <JMP CTLEND>

JMP
ENDIF

CTLEND

1 USE R2 AS AN INDEX INTO THE UNIT TABLES
006732
004732
0047%

013702
006302

002074

004740G

005037

002302

004740

MOV
ASL
(LR

LET R2 := LSLUN SHIFT 1
LSLUN,R?
R2

LET ERRCOD := #0
ERRCOD

N = OO0 ~ 00~

T
e
d il

TEST

004744
004744

004754
004756

SN
Y v N
OO N
OO

12-JAN-83 08:1

032762

001123

040000

005002
005002

005010
005010

) 005016

(08:16

PAGE

16-1

SEQ 0035

THE UNJT HAS BEEN DROPPED SELECT

BIT

BNE

THE NEXT UNIT

1¥ #DROPED NOTSETIN STATUS(RZ2)
#DROPED,STATUS(R2)

THEN

50032%

032772
001407

100000

002322

BIT
BEQ

012737

000001

002302

MOv

052762

100000

002456

BIS

000455

50033$:

005762

002716

032762

020000

003452

001004

MAKE

IF #BIT15 SETIN BLPCSR(R2) THEN
#BIT1C ,LPCSR(RZ)
50033%
LET ERRCOD := #STATER
: STATUS REG ERROR BIT
USTATER,ERRCOD
LET STATUS(RZ) := STATUS(R2) SFT.BY #ERROR
#ERROR,STATUS(R2)
ELSE
500349

BR
SURE

PREVIOUS MSG

TST

BLE

002456

BIT

BNE

I
Oww oo wwww W NOYPR
v N

005106

012737

000003

002302

000442

50036%:

032762
001436

020000

002456

012762

000144

003016

012727
000000
013727
000000
005367
001375
005367
001367

000002

005362

003016

005762

003016

oO010M

Mov

002116
177772

177756

50040%:

15 SET

IS DONE

IF CURCNT(R2)
CURCNT (R2)

GT #0 THEN

50035$

[F #ACTIVE NOTSETIN STATUS(RZ)
#ACTIVE,STATUS(R2)

THEN

50036%

s OUTPUT WAS QUEUED BUT

005020
005020
005026
005026
005030
005030
065030
005030
) 005036
005040
005040
025046
005046
005052
005054
005060
005062
005066
005070
005074
005076
005076
005102
005102

= O

002456

) 005006

)

12-JAN-83
[/0 CONTROL

;TEST FOR DVC ERROR BIT SET

) 004762
004764
004764
004772
004772
005000
005000
005002

DN HXZL 07-563

) 004752

—d

b
-—
—

o DD
NIAD NI

— ad el b

p—y
— ) b b
-—
AN A NIRONIND A AN
—t

N
AR

b
-—

AN
A
AP AN A

-—
b

P11

DD o D) o~
N[LS ], 1 NP N N1 G,V AN
N ~INIRURIAURIAIRINIALND
5 A0 = O SN AN S I SN NIRININD et N —a O8 = b — 2 N IS — N= et P =t =2 D= P OOOQ

"~~~

0 LNO1

1/0 DRIVER WAS NEVER INVOKED (VIA INTERRUPT)

LET ERRCOD
#NOINTR,ERRCOD
ELSE
50037¢%

:= #NOINIR

: NO INTERRUPT

WHILE #ACTIVE SETIN STATUS(R?2) DO
8IT
8t 0
MOov

MOV
MORD
MOV
.MORD
DEC
BNE
DEC
BNE
DEC
ST

BNE

#ACTIVE,STATUS(R2)
50041%
LET DELCNT(R2) := #100.
.
#100.,DELCNT(R2)
DELAY 2.
: 200MS LOOPS
n2.,(PC)e
0
LSOLY, (PC)+
O
=6(P()
b
=22(PC)
.=20
LET DELCNT(R2) := DELCNT(R2) - M
DELCNT(R?2)
If CELCNT(R2) EQ #0 THEN
DELCNT(R?)
50042%

.
220 se¢

IN (SR

CILNARD_LNOT
CILNAA
. PIY
1231
(&)
1232
(7)
1233

(7)
1234
(4)
1235
(4)
(3)
1236
(&)
1237
(&)
1238
(&)
1239
(6)
,$10)

12-JAN-83
TEST
DN MAC X24.07-563
12-JAN-83 08:16
170 CONTROL

005110
005110
005116
005116
005124
005124
005132
005132
005132
005132
005134
005134
005134
005134
005134
005134
005134
005134
005134
003140

(31

005150

005222

1260

6
1262

#TIMOUT,ERRCOD

042762

020000
.
100000

002456

BIC

#ACTIVE,STATUS(R2)

002456

BIS

WERROR,STATUS(R2)
ENDIF

500408

052762

500428:
000736

500418:

004777

THE

500438:

ELSE
500448

:= STATUS(RZ)

SET.BY #ERROR

ENDDO

JSR

PC,BERRSVC

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

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

LET CURADD(R2) := BUFADD
BUFADD,CURADD
(R2)
LET MSGADR(RZ) := BUFADD
BUFADD,MSGADR(R2)
LET CURCNT(R2) := BUFCNT
BUFCNT, cuncnr(nz)
LET MSGCNT(R2) := BUFCNT
BUFCNT,MSGCNT(R2)
LET REPCNT(R?) := BUFREP
BUFREP,REPCNT(R2)
If CURCNT(R2) GT #0 THEN
CURCNT (R2)

1S
BLE

002322

50045$

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

MOV
50045%
500448:

500328:
;

LET STATUS(RZ)

ERROR

175710

000425

(LR.BY #A(T]VE

If ERRCOD NE #0 THEN
ERRCOD
5004 3$

1T
BEQ
REPORT

:= STATUS(RZ)

ENDIF

500348:

002302

LET STATUS(RZ2)

ENDIF

50035$:

005737
001403

:: #TIMOUT

ENDIF

500375:

*
005222

LET ERKCOD

MOV

:
:
005150
005150
005156
005156
005164
005164
005172
005172
005200
005200
005206
005206
005212
005214
005214
005222
005222
005222
00522¢
005222

SEQ 0036

002302

1246
1247
1249
(4)
1250
(&)
1251
(&)
1252
(4)
1253
(&)
1254
(6)
(10)
1255
(&)
1256
(&)
1257
(&)
1258

16-=2

000002

005142
005146
005146

K_3

PAGE

012737

152}

1243
1264
(4)

08:16

ENDIF

CLEAR OUT ANY

TIMEOUT COUNT

LET DELCNT(R?)

:= #0

:= #100

BYTE

MESSAGE

OUTPUT

BYTE

PRINT COUNT

ENABLE

ADDRESS
ADDRESS
COUNT

COUNT

INTERRUPTS

2-JAN-83
DNMAC X24.07-563 12-J
CILNAAO LNOY TEST
1/0 CONTROL
12-JAN-83 08:16
CZLNAA.PY1
122%

005222

005062

003016

}%gg
1266

005226

1268

005234

(7)
1267
(7)

1269

1270
(2)
(3)
1271

1272

005226
005230
005230
005240

005240
005240
005242
005244

005237
000137

002074
004722

PAGE 16-3

SEQ 0037

DELCNT (R2)

CLR

* SELECT THE NEXT UNIT AND DECRIMENT THE LINECOUNT
)

005303

08:16

CTLEND:

012603
012502

000207

DEC

LET R3 := R3 = #

R3
LET LSLUN := LSLUN ¢ #1
CSLUN
INC

JMP

CTLLOP

POP
MOV
MOV

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

RTS

1273

1heee

1276

THIS SUBROUTINE WILL EFFECTIVLY DELAY UNTIL ALL QUEUED OUTPUT

1278

P MESSAGE T0 ALL LINES.

SUBROUTINE

}%;g

1S FINISHED. THE DELAY IS ACCOMPLISHLD BY QUEUEING A NULL

1277

1580

1281

005246

}%gz

005312

1282

QUIET

005310

femms

000240

000207

QUIET:

OUTPUT

#0,40

RTS

NOP

: NULL MESSAGE QUTPUT

CZLNAAO LNO1
CZLNAA. P11

TEST

X24.07-563

12-JAN-83

PAGE 17

FUNCTIONAL DESCRIPTION
:

* THIS SUBRCJTINE IS USED TO DROP A BAD PRINTER FROM THE TEST

052762

040000

0C2456

012762

177777

02716

005072

002322

013746

002074

012746

A
d

(AL

IV IV LU LV LU LV

[oleleleolelalelalelolelolw]
[elelololololalelelelelole]

U IV, IV, 1V, ]

*
1

005412
005416
005416
005420
005420
005420

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

PRINTF
MoV
Mov
MOV
MOV
TRAP
ADD

0u0002
000006

005062

0032060

005337

002306

005737
001011

002306

012746

003732
000091

062706

000004

LPCS

OLPDROP LSLUN
LSLUN,=(SP)
#LPDROP ,=(SP)
#2,-(SP)
SP,RO
CSPNTF
#6,5

LET ERRTBL(RZ) := #0
CLR
ERRTBL (R2)
LET UUT := Wt - M
DEC
uuTt

IFTUUT
EQ #0 THEN

BNE
500463
FRINTF #UUTEQQ
MOV
MOV
MOV
TRAP
ADD

104444

500468:

000207

#UUTEQD,=(SP)
#1,-(SP)
SP,RO
COPNTF
#6,SP
DOCLN
s NOTHING TO TEST
TRAP
CSDCLN
ENDIF

RIS

FAKE

FUNCTIONAL DESCRIPTION:

: THIS SUBROUTINE 1S REQUIRED TO INSURE PROPER PASS COUNT REPORTS
o

~—

NO > w O

PENESY,

1/0 CONTROL

(0Ff:16

: DROPIT

—
—
md
D
—d
— e e el D e g D wmd S ol
—
—
W~~~ NAANINNWNWNUNAWWWNWNNINWN
S W S N A A
N S AWWNARD - N A A s

—

—-—

—

D e

D el D od -

A AR AR AN A~ NIRONIROADNIND no

QI QuE e
Y OQOOOOPLOWOL
B UWOENO-2CONOSH O S WONIOS O SN OO OOV O000[o -]
NS W= OOV NO VNS Y NN
v cad (D
O o O
00 o v o
v oy N
VN e 5 N = O O 00 ~

1286

12=-JAN=83

005422
005422
005426
005426
005426
0054 34
005436

fAKe :

002074
002074

IN A MULT] UNIT MODE OF OPERATION.

002012

50047%:

LET LSLUN

:= #0

CLR

LSLUN

CMP
BGE

LSLUN,LSUNIT

WHILE L$LUN LT LSUNIT DO

50050

GPHARD

LSLUN, R3

SEQ 0 0038

CZLNAAQ LNO1
CZLNAA.P1Y
(3)
(3)
(3)
1318
(7)
1319
(4)
(3)
1320
1321
1322
1323

TEST
DNMAC Xx24.07-563
12-JAN-83
12-JAN-83 08:16
1/0 CONTROL

005436
005642
005444
005446
005446
005452
005652
005454
005454
005456

01370C
104442
010003

002374

005237

002074

000765
000207

08:16

Mov
TRAP
Mov

$00508:

PAGE 17-1

LSLUN,RO
CSGPHRD
RO,R3
LET LSLUN := LSLUN » M
INC
LSLUN
ENDDO
BR
50047%
RTS
ENDMOD

SEQ 0039

0 LNOT TEST
DNMAC X264.07-563
12-JAN-83 08:16 PAGE 18
PN
12-JAN-83 08:16
INITIALIZATION SECTION
JSBTTL

SEQ 0040

INITIALIZATION SECTION

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

sPRIMARILY USED FOR REQUESTING P=-TABLE PARAMETERS. INFORMATION REQUESTED FROM
;Ing ?fg?:!?spéN(LUDE THE NUMBER OF UNITS UNDER TEST, DEVICE ADDRESSES, VECTORS,

005456
005456
005456
005456
0056456
005462
005464
005664
005466
005666
005472
005474

BGNMOD
BGNINIT
LSINIT::

SRESET EXTERNAL BUS !F START EVENT FLAG I35 SET
‘OR POWER FAIL RESTART

012700
104447

READEF
#EF.START
MOV
#EF .START,RO
TRAP
CSREFG
BCOMPLETE 1%
B(S
1%
READEF #EF .RESTART
MOV
#EF .RESTART,RO
TRAP
CSREFG
BCOMPLETE 18

000040

103466
012700
106447

000037

005474

103462

005476

004737

005422

012700
104441

000000

112737

000014

003124

012737

000006

003122

005502
005502
005506
005510
005510

005516
005560
005560

005566

005570
) 005570
005574
005574

005602

005604
005604
005610
005612
025616
005620
005624
005626
005632
005534
005634
005636
005636
005636

005640

0004G2

005337

003122

023727

003122

002615

012727
000000
013727
000000
005367
001375
005367
001367

000755
104432
001304

JSR

PC,FAKE

SETPRI
#PR100
MOV
#PR100,RO
TRAP
(SSPR]
LET OUTBUF :B= #14
MOVB
#14.0UTBUF

;BRAN(CH

INDICATOR

FROM START ypP

;NOW THE RESTARTFLAG
S1F

EITHER START OR POWER FAIL RESTART

;D0 A BUS RESET
P UPDATE PASS COUNT
:

PRIORITY ZERO

OUTPUT #OUTBUF
, #1
DECR WORK1 FROM #6 T0 #1 By
MOV
#6,WORK1

$0052$:
000001

B8(S

STEST START EF

50051$:

50051$

DEC

WORK1

CMP

WORK1,#1

8LT

000250
002116
)
17777¢

177756

50053$:

MOV
WMORD
MOV
LMORD
DEC
BNE
DEC
BNE
ENDDEC
BR

50053$

DELAY 250
8250, (PCi+
O
LSDLY, (PC)+
O
-6(PC)
.4
<22(PC)
.=20

50052%

EXIT INIT
TRAP
CSEXIT
MORD
L10004-.

: ELSE EXIT

:POWER UP RESTART OR START COMMAND ISSUED

INIT CODE

CZUNAAD LNOY
CZLNAA.PYY

&
.
TEST
12-JAN-83
08:16
PAGE 18-1
DNMAC X24.07-563
12-JAN-83 08:16
INITIALIZATION SECTION

1352
(3)
1353
(6)
(10)
1354
(7)
(6)
(3)
(&)
(&)
1355
(7)
(6)
(3)

005642
005642
005644
005644
005652
005654
005654
005660
005664
005666
005670
005674
005674
005700
005704

(&)
1356
(4)
1357
(3)
1358
(2)
1359
1360
(7)
(6)
(3)
(&)
(4)
1361
1362
1363
1364
(&)
1365
(&)
1366
(4)

005710
005714
005714
005714
005714
005716
005716

367
(
(
(
{

—

—d

(
(
(

3
3
3
3
(
(

3
(

NN NN WAV
S NN

368

AN N

—

(4)

Q05706

005720
005720
005724
005730
005732
00573&

1%:

1046433

023727
003420

002012

012746
012746
010600
104417
062706

006506
000001

012746
012746
010600
104417
062706

006571
000001

CSRESEY

(mp

LSUNIT, #16.

BLE

50054%

ADD

#6,5P

MOV
MOV
TRAP
ADD

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

PRINTF #NRGT17
MOV
#NRGT17,=(SP)

000004

104450

ENDIF

MANUAL

TRAP

CSMANI

8C(C

BNCOMPLETE

103024

006701
000001

(062706

000004

THE BUS

PRINTF #NRGT16
Mov
#NRGT16,-(SP)
MOV
#1,-(SP)
MOV
SP,RO
TRAP
CSPNTF

000004

(12746
012746
010600

JRESET

TRAP

IF_ LSUNIT GT #16, THEN

000020

50054%:

104417

BRESET

SEQ 0041

PRINTE
MOV
MoV
MOV
TRAP
ADD

CHECK FOR UNATTENDED MODE

If UNATTENDED BYPASS MANUAL

INSTRU(CTIONS

WRESET
#RESET1,=-(SP)
#1,-(SP)

SP,RO

(SPNTF
ne,SP

‘WAIT FOR A "'CR" BEFORE GOING ON
005740
005740
005744
005744
005750
005750

005754
005754
005754
0J5756
005760
005762
005764
005766
005770

005037

002240

005037

002302

005037

002306

104443
000404
002240
000130
006752
100000

LET FLAG := #0
CLR

FLAG

(LR

ERRCOD

(LR

uut

GMANIL

READY,FLAG,100000,YES

LET ERRCOD := #0
LET UuT
100%:

TRAP

B8R

CSGMAYN

10000%

LWORD

FLAG

.WORD

READY

.WORD
10000%:

:= #0

.WORD

TSCODE

100000

:REQUEST P-TABLE FOR PRINTERS UNDER TEST
005770
005770
005774
005776
005776

013701
005301

002012

005037

002074

2%:

LET RT
MOV
DEC

:= LSUNIT - m
R
LSUNIT,
R1

INCR LSLUN FROM #0 TO R1 BY M1

(LR

LSLUN

sMAXIMUM NUMBER OF

UNITS

CZUNAAD LNOY
CIUNAA.PTY

¢
D_
12-JAN-83
(08:16
PAGE 18-2
TEST
DN MAC %24.07-563
12-JAN-83 08:16
INITIALJZATION SECTION

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

006002
006004
006004
006010
006010

13764
(3)
(3)
(3)
1375
(2)
1376
(S)
(8)
1377
(4)
1378
(4)
1379
(4)
1380

006016
006016
006022
0060246
006026
006026
006030
006030
006034
006036
006036
006042
006042
006050
006050
006054

(9)

1;;{

006014

006054

000402
005237

002074

023701

002074

003073
013700
1046442
010003

50056%:

50055%:

103062
002074

005062

003060

012762

177777

005062

003016

005062

002616

002716

006060
006060

012362

002322

(5)
1;;&

006064
006072

016262
062762

002322
000022

006064

002416
002416

}ggg
006100
006100

006104

1394
(7)
1395
(4)
1396
(7)
(6)
(5)
(4)

006124
006124
006132
006132
006140
006140
006144
006150
006154

(3)

LSLUN,R1

50057$

GPHARD LSLUN,R3
MOV
LSLUN,RO
TRAP
C$GPHRD
MOV
RO,R3
BNCOMPLETE 3%
BCC
3$
LET R2 := LSLUN SHIFT
MOV
LSLUN,R?
ASL
R2
LET ERRTBL(R2)
:= #0
(LR
ERRTBL(RZ)
LET CURCNT(R?)
:= #=1
MOV
#-1,CURCNT(R)
LET DELCNT(R?2)
:= #0
(LR
DELCNT(R2)
LET REPCNT(R?2)
:= #0

;REQUEST P=-TABLE

;BRANCH

]
DEVILE

ADDRESS

NOT PRESENT

REPCNT(R2)

MOV

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

MOV
ADD

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

LET LPBUF(R2)

:= LPCSR(R2)

:SET UP (SR ADDRESS FOR DEVICE

+ #2

012362

002362

MOV

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

:SET UP DEVICE INTERRUPT VECTOR INFORMATION

1393

1§g;

(MP

:SET UP VECTOR ADDRESS INTO GIVEN TARLE

}%3}
(5)
(8)
(8)
(8)

LSLUN

:LOAD (SR ADDKESS INTO TABLE

1384
(4)

1389
1%36

INC

CLR

}%g%

1385

50055%

BGT

002074

013702
006302

SEQ 0042

006104
006110
026114
006120

006160

006162

LET WORK

003120
003120
003120
003120

062737

021460

003120

013762

003120

002756

012746
016246
016246
012746

000200
002756
002362
000003

LET WORK := WORK ¢ #INTOQO
ADD
# INT00,WORK
LET LPINTR(R?2) := WORK
MOV
WORK,LPINTR(R2)
SETVEC LPVEC(R2), LPINTR(R2), #PR]04
MOV
#PR104 ,=(SP)
MOV
LPINTR(R2) ,=(SP)
MOV
LPVEC(R2),=-(SP)
MOV
#3,-(SP)

062706

000010

ADD

104437

MOV
ASL
ASL
ASL

:= R2 SHIFT 3

010237
006337
006337
006337

TRAP

R2.,WORK
WORK
WORK
WORK

C$SVEC

#10,5P

CZLNAAO LNO1
CZUNAA P11

TEST

8gMAC
16
12-JAN-83

X26.07-563

1398

S VNOA NN
NONNNWNCUNI SRR

A
Aps

—
-—

s A

—

A~ AN

el
b

—

S = s D S D N

AR A

s N 2

—

Y D NNN = S
-

1425

1626
(&)

08:16

PAGE

INITIALIZATION SECTION

18-3

SEQ 0043

006166
006166
006172

0052
0004

OW
W~

. ADD ONE TO UNIT UNDER TEST COUNT

’

002306

LET UUT := UUT + o
INC

uut
4$

TINDICATE LSLUN NOT AVAILABLE FOR TESTING
006174
006174
006202
006202
006204

052762

040000

002456

000700

$s:
4%:

500578:

BIS

LET STATUS(R2) := STATJUS(R2) SET.BY WDROPED

ENDINC

#OROPED,STATUSR2)

;G0 BACK AND DO

50056%

AGAIN

—

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo

006204
006204
006212
006212
006216
006220
006222
006222
006224
006224
006232

006232

006236
006236
006244
006244

012737

000001

012700

000114

1046462

010004

MOV

RO,RS

103031

B8C(

50060%

IFCOND CS THEN

012737

000002

010437

002270

017737

174026

002272

Mov

012777

000000

174020

MOV

006252
006252
006260
006260
006264
006270
006274
006300
0)6302
706306
006306

000004

HEN SETUP A NOOP [NTERRUPT
HAVE THE CLOCK ENABLED AT ALL

TEST

;

WE HWAVE

002266

MoV
MOV

002276

MOV

000300
007146
002276
000003

LET CLKTIYP

50060%:

DEFAULT FOR NO CLOCK ON SYSTEM
FOR L=-CLOCK

AN L-(LO(K

#2,CLKTYP

LEY CLOCKP := R&
R4, CLOCKP

LET CLKCSR

:= aCLOCKkP

aCLOCKP,CLKCSR

LET QCLKCSR := #00
#00,aCLKCSR

;

TRY TO DISABLE

INTERRUPTS

; SETUP THE NOOP HANDLER

LET CLKVEC

:= &4(R&)

4(RG) ,CLKVEC

SETVEC

CLKVEC,#IGNORE ,#PR]06

#PR106,-(SP)

MOV

000010

—“Ne

e e

AAANAP AR

p =D

b de o

AR~

2 2 000 S NONO OO0 0O ~NO

1399

12-JAN-83

MOV
MOV
TRAP
ADD
ENDIF

#1GNORE ,-(SP)

CLKVEC,=(SP)
#3,-(SP)
CSSVEC
#10,5P

: IF A P=CLOCK IS ON THE SYSTEM UPGRADE CLOCK TYPE 10 3

012700
1044672

(x1:

000120

010004

103016

012737

000003

010437

002270

002266

C(LOCK

MOV
TRAP
MOV

P‘RL

#'P,R0O
($CLCK
RO,R4

[FCOND CS THEN
B8CC
50061%
LEY CLKTYP := #3%
MOV

MOV

#3,CLKTYP
LET CLOCKP := R&
R4, CLOCKP

: WE HAVE A P=(CLOCK

TIMES.

TEST
12-JAN-83
08:16
PAGE 18-4
DN MAC x24.07-563
12-JAN-83 08:16
INITIALIZATION SECTION

(3)
1456
1457
1458

MOv

012777

000000

173716

MOV

023727
001920

002266

Q012746
012746
010600

007007
000001

062706

000004

012746
012746
010600
104417
062706

007051
000601

104417

C00000

112737

000014

007142
007144
007144
007144

045

000000

P=(LOCK

#00,3CLKCSR

SP,RO
CSPNTF

MOV

SP,RO

ADD

84 ,5P

TRAP

ENDIF

SETPR] #PRI0O
MOV
#PR100O,RO
TRAP

003124

CSPNTF

LET QUTBUF

($SPRI]

:B= #14

MOVB
#14,0UTBUF
OUTPUT #OUTBUF
M

EXIT

INIT
TRAP

CSEXIT

LWORD

L10004-.

.ASCIZ

/INXANUMBER Of

RESET1:

ON LINE.XIN/
,ASCIZ /XNXARESEYT PRINTER(S) AND PLACE ON L INEIN/

.NLIST BEX

NRGT16:

READY
NOCLCK:
Nglé":

LASCIZ
.ASCIZ
LASCIZ

/DEPRESS ‘'RETURN'’ WHEN READY./
/XNXAHARDWARE (LOCK NOT AVAJLABLE./
/7XINXAAUTO PRINTING SPEED MEASUREMENT

PLOC:

.WORD

NRGT17:
MRESET:

VEN

_ASCIZ
.ASCIZ

L10004:

TRAP

LINE PRINTERS UNDER TEST EXCEEDS 16./

/XINXAONLY 16 WILL BE TESTED./
/XNXARESEY PRINTER(S),
AND PLACE

LIST BEX
ENDINIT
1044611

THE

#4,SP
PRINTF #NOTIM
MOV
ANCTIM, =(SP)
MOV
#1,=-(SP)

— b b O

042504
045

045

TO DISABLE

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

ADD

- bY
\ \

006752
007007
007051

MOV
TRAP

— b \Y

047045
045
0645

TRY

LET 9CLKCSR := #00

MOV
MoV

006506
006571
006625

:= &(R4&)

&(R4),CLKVEC

OO0O-—

104432
000440

aCLOCKP,CLK(SR

LET CLKVEC

50041%:
¢ IF NO CLOCKS ON THE SYSTEM NOTItY THE OPERATOR
IF CLKTYP EQ #1 THEN
M
(LxtyP,
(MP
BNE
500629

000004

012700
104441

LET CLKCSR := QCLOCKP

ENDIF

50062%:

006502
006502
006504

006701

000001

NN == \N

1450
1451
1452
1453
1654
1455
(%)

002276

SEQ 0044

OO0

1647

1648
16449

00000¢

1446

016437

16440
(3)
(3)
1641
1442
1443
1444
1445

006424
006430
006432
006432
006440

MOV

Or—=

(3)
(%)
1438
(&)
1439

Q06376

002272

[eleleliNelelele)

006400
005404
006404
00646410
006414
006416
006420
006424
006424
006424

006354
006354
006362
006364
006364
006370
006374

173732

ooorwn

(4)
1435
(7)
(6)
(%)
(&)
(&)
16436
(&)
16437

(4)

006346
006346
006354
006354

017737

006332
006332
006340
006340

O00O0O

1427
(&)
1428
(4)
1429
1430
(4)
1431
(&)
16432
1433
(6)
(10)
1636
(7)
(6)
(3)

OO0

CZUNAAQ LNOT
CILNAA.P1

(SINIT

CANNOT Bt

PERFORMED./

TEST

CZUNAAG LNOY

NM X26.07-563

1¢2-JAN=-83
08:1
0

CZLNAA,. P

12-JAN=-83

08:16

THAT

o»

=] [ea]8g)
(] v

I GNORE:

000002

IOV

OOOIPE

;

IOROIOP O LI LI

ORI

IOOOINONOELSI RN

NOOP

oB o

007146

S~ £ NWAI
N NN
~ 0o ~ N~
NN

* RESVEC

—-—

ol oW ol S

TO THE

007154

005004

007156

013703

010346
010446

€0
007150
007152

RESVEC::

002012

Mov

062704

007220

Qo
(=]

005303

007222

000757

00722¢
007230

012604
012603
0002C7

000002

£
s
N
O

~nNo
~N

~
~N

007224
0J7224
007226

PYSH
R3,=(S

R3,R4

#PR104,=(SP)

DEC
BR
MOV
MOV

[NTOO.

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

MOV
MOV
MOV
MOV

ADD

50064%:

INTERRUPT ROUTINES STARTING AT

007214

SETUP ALL UNITS VECTOR AREAS

°*NORMAL®

1SY
BLE

TRAP
ADD

v e

e e

MO\
Mov

CLR

e e

00 00 NN 00 L £ 00 ~y 00 ~ 00NN &~

FUNCTIONAL DESCRIPTION
THIS SUBROUTINE WILL

o
o

WS
Y
I S S

00714¢

O POV

T
-

alaRaW ol oW W
- PaR

—
—
—

INTERRUPT,

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

OO OO

50063$%:

-—

IGNORES THE

USED FOR SYSTEMS WHERE CLOCK CANNOT BE TURNED OFF,

1460
1461

—

SEQ 0045

18-5

INITIALIZATION SECTION

1459

1462

PAGE

50064$
SETVEC LPVEC(R4), LPINTR(R4G), #PR]0G

LPINTR(R&L) ,=(SP)

LET R4

:= R4 + ¥

LET RY :: RY - M

CZUNAAD LNOY

(IULNAA.P
1488
1489
(2)

TEST

DNMAC

12-JAN=-8B3 08:16

Xx24.07-563

12-JAN-83

PAGE 19

SEQ 0046

CLEANUP CODING SECTION
LSBYTL
STARS

007232

(08:16

(CLEANUP CODING SECTION

;.'"".Q'."""""" A A2 2222222222 )] ]

1490
1491
1492

i e
s THE PURPOSE OF THE CLEANUP SECTION IS TO CLEANUP ALL PRINTERS UNDER TEST
sAND RETEST ANY UNITS WHI(CH HWAVE BEEN DROPPED FROM
TESTING TO INSURE THAT

1496
}23;

sINTO THE UNIT UNDER TEST, THE INITIALIZATION SEQUENCE DOE>
sHAVE TO BE DONE AGAIN [N ORDER TO GET THE DEVICE ACTIVE.

1493
1494
1495

sTHEY HAVE NOT COME BACK ON LINE. IF THE DEVICE HAS (OME BACK ON LINE
STESTING WILL BE RESTARTED ON THE DEVICE. THIS INSURES THAT
sIN THE EVENT A PAPER QUT OCCURRED AND THME QPERATOR HAS PUT ADDITIONAL

1499

(07232

STARS

1500

007232

BGNCLN

(2)

(3)

1501
(3)
(3)
1502

1{2%

007232

007232
007232
007236
007240

007240

1504

007242

(7)

007246

(5)

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

(9)

1506
1507
1508
(5)
(8)
1509
1510
(7)
1511
(&)
1512
(4)
1513
(4)
1516
(64)
1515

(5)

(4)

1516
1517
(6)

(10)

0072642

007250
007250
007256
007256
007256
007262
007262

012700
104441

104433
013701

005301

005037
000402

002074

005237

002074
.
002074

023701

CLEAN:

002012

50066%:
50065%:

007270
007¢70
007274

013702

002074

062762

160377

002456

012762

177777

002716

005062

003060

005062

003016

005062

002616

006302

000753

007330
00733
007336

004737

007150

023727

002266

001006

TRAP

CSRESET

LET RY

.= LSuNIT - 1

DEC(

MOV

INC

LSLUN

CMP

LSLUN R

867

TO R1

:NUUMRER OF

UN]TS-1

By M

50067$

DISABLE ALL INTERRUPTS, SELECT ALL LINES
JERO ALL ERROR COUNTS
LET R2 := LSLUN SHIFT 1
MOV
LSLUN,R2
ASL
R2
¢ CLEAR ALL BITS IN STATUS EXCEPT DEVICE TYPE
LET STATUS(R?) := STATUS(RZ) (LR.BY #ERROR'DFOPED'ACTIVE:LOBYTE
BIC
#ERROR'UROPED'ACTIVE!LOBYTE,STATUS(R?)
LET CURCNT(R2) := #-1
MOV
#-1,CURCNT(R2)
LET ERRIBL(R2) := #0
CLR
ERRTBL (R2)
LET DELCNT(R2) := #0
(LR
DELCNT(R2)
LET REPCNT(R?2) := #0
(LR
REPCNT(R?)
END INC

50067%:

000003

LSUNIT,RY

INCR LSLUN FROM #0
(LR
LSLUN
BR
50065%

.
s

007326

007342

SETPR] #PRIQ7
MOV
#PRI07,R0
TRAP
($SPR]
BRESET

000340

003020

007330

PAPER

LSCLEAN::

007266

007276
007276
007304
007304
007312
007312
007316
007316
007322
007322
007326

NOT

B8R

50066%

JSR
PC,RESVEC
IF CLrFTYP EQ #3 THEN
(MP
CLKTYP,#3

BNE

50070%

RESET

THE

VECTORS

CZLNAAD (NOY
CILNAA.P1I

017700
104436

172726

012777

000000

SRNIyW
WAV IV IV P o ¥ 3R aF o o ol

TRAP

172712

MOV

—b N)

002266

000002

MOV
MOV
TRAP
ADD

ENDCLN

L10005:

007424

007426

ENDMCD
.SBTTL

007426

BGNMOD

SEQ 0047

(SCVEC

LET @aCLKCSR := #00
#00,3CLKCSR

CLKTYP,
#2
50071$
SETVEC CLKVEC,#IGNORE ,#PR]06

MOV

000000

CLKTYP EQ #2 THEN

MOV

50071%:

19-1

CLRVEC @CLKVEC
aCLKVEC,RO

ENDIF

CMP
BNE

ONOOCONON

O=0000
Ot
NIENIWNNIND

~
[V
J

OO
or
=N

:
500708

ENDIF

#PR106,-(SP)

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

SETPR] #PR100

MOV
TRAP

#PR100,RO
($SPRI

TRAP

CSCLEAN

INTERFACE

LOGIC

;00

STHIS TEST VERIFIES THE OPERATION OF
‘PERFORMED FOR PRINTER ERROR,

U TV T TV

0073%4

o
o

LN ST SN IVITV L NTOI TV S P o 1 ST NIV Y XV, Te L NTNETo NoUP L1 N Y L BRIV

and
ey
——

) nd
el
]
e
il
D
i
)
)
)
el
i
b
—
P

—

D ol

i =

VAWMV
AL a ARV A VWA
NWAWNUNNNAWVIA AWNWNNWN
A AN A AN AN A

s s

N A AN AN AN -

1518
3)

TEST
DNM?( X26.07-5¢€3 12-JAN-83 08:16 PAGE
12-JAN=-83 08:16
CLEANUP CODING SECTION

THE

INTERFACE LOGIC. TESTS ARE

PRINTER READY,

AND CLEARING PRINTER READY

:BY LOADING A CHARACTER INTO TME OUTPUT BUFFER, ALSO IT IS VERIFIED

STHAT THE PRINTER WILL NOT INTERRUPT IF IT IS AT THE SAME PRIORITY LEVEL
*AS THE PROCESSOR, BUT WILL INTERRUPT IF THE PROCESSOR IS AT A LOWER
sPRIORITY LEVEL. THE PRINTER IS AT PRIORITY LEVEL 6.

007426
007426
027426
007426
007432

BGNTST
t"..

0
0

002012

R1 := LSUNIT = #
LET
MOV

DEC

k?UNlT.Rl

"HARD CODED INCREMEMNT (0OP

s INCR LUNIT FROM #0 1O R1 BY M

007434
007440
007442
007442
007446
007446
007452

005027
000402

002260

005237

002260

023701
003402

002260

T1A:
11C:

sMAX NUMBER Of

UNITS ON SYSTEM

:START LOOP

(LR
B8R

LUNIT

JUNIT T0 0

INC

LUNIT

;UPDATE UNIT NUMBER

CMP
BLE

LUNIT, R

;DO COMPARISON OF UNIT NUMBER

T1C

.00 COMPARE

SONTO NEXT UNIT

AN AN
N AN

s
s 5o o
o o 2o
o AN o
2 A o
Ao ATV

[

2
D
AN

OO VNS NSO NNNN
=L N0 VWY
N
N~ o o
S
O OO~ NPV

\m N m

o \SINDN

2O OO
OOV

o o AS
NIV P

O NNNNENS VNNV
ONN=IA NN
e O
w O
wwwaw wewr w O
wO v
[
X3 PWN

[alal

P~~~

— o
AN NN
—
-

ol
ek
—

)
—
= ]
-—
—
) el
—

LNO1

P11

TEST

0074564
007460
007460
007460
007464
007466
007466
007474

007476
007476

0075046

007504
007510
007510
007516
007516
007520
007522
007524
007526
007526
007532
007532

007532
007532

007540

007542
007542
007550

007552
007552
007556
007556

007564

007566
007566
007572
0075764
007600
007602
027606
007610
007614
007616
007616
007620
007620

DNMAC X24.07-563

12-JAN-83 08:16

000137

010220

013702
006300

002260

032772
001416

100000

002322

052762

100000

,
032456

005262

003060

013737

002260

08:16

JMP

T18

INTERFACE

1%:

002074

104456
000001
003352
000000
005072

12-JAN-83

002322

BIS

000200

002322

012737
000402

000014

,
003122

005337

003122

023727

003122

001027

002415

012727
000000
013727
000000
005367
001375
005367
001367

50074$:

002116
)
177772
177756

50076$:

JNOW

000200

002322

50073$

DEC

WORK1

CMP

WORK1,#1

DECR WORK1 FROM #12.
MOV
#12. ,WORK1
BR
50074$

THEN

TO #1 BY #1

5007¢$

DELAY 250
MOV
8250, (P()+
.WORD
O
MOV
LSDLY, (PC)+
MORD
O
DEC
-6(PC)
BNE
=4
DEC
<22(PC)
BNE
.~20
ENDDE(
BR
50075%

ENDIF

TEST

SAY SO

NOT READY ALLOW 3 SECONDS TO COME UP

BNE

BLT

50073$:

032772
001014

SET.BY WERROR

;ERROR BIT WAS SET.

IF #8117 NOTSETIN QaLPCSR(R2)
817
#8117 ,3LPCSR(R2)

000250

00C755

SEXIT LOOP

#ERROR,STATUS(R2)

INC
ERRTBL (A2)
LET LSLUN := LUNIT
MOV
LUNIT,LSLUN
ERRHRD 1,(SRERR
TRAP
CSERHRD
JMORD
1
.WORD
{SREKR
WORD
0
LET aLPCSR(R2) := #0
CLR
ALPCSR(R2)
ENDIF
500728:

50075$:

000001

SEQ 0048

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

032772

LET R2 := LUNIT SHIFT 1
MOV
LUNIT,R2
ASL
R2
IF #BIT1S SETIN SLPCSR(R2) THEN
BIT
#BIT15,3LPCSR(R2)
BEQ
50072%
LET STATUS(RZ) := STATUS(RZ)

;TIME DELAY

007620

007620
007620
007626

LOGC

PAGE 19-2

FOR PRINTER READY

#BJT07 NOTSETIN SLPCSR(RZ)
811
#BIT07,3LPCSR(R?)
BNE
50077%

THMEN

JVEST FOR THE READY BI7

CILNAAO LN01
CZLNAA.P
1575
(7)
1576
(4)
1577
(7)

S \J

s WA = O

00 £ 00000000 S

O o o o

.-a

00245¢

BIS

: = $TA TUS(R2)
#ERROR,STATU S(R2)

013737

002260

002074

MoV

LUNIT,LSLUN

005262

003000

LET STATUS(R2)

SET.BY #ERROR

LET LSLUN := LUNIT

LET ERRIBL(R2) := E RRTBL(R2)
ERRTBL (R2)
INC
ERRHRD 2,RDYERR

000063

TRAP

+ M

;REPORT

(SERHRD

.WORD

003370
000000

AN ERROR

RDYERR
0

.WORD
.WORD
ENDIF

50077$:

002416

NVO

032772
001416

000200

002322

052762

100000

002456

005262

003060

013737

002260

000012

N
wr 0

LET QLPBUF(R2) := #12
#12,3LPBUF (R2)
MOV
IF #BIT07 SETIN QLPCSR(R2)

501

STAT US(R2)

SET.BY #ERROR

ERRTB L(RZ)

+ M

ERRTBL (R2)
(
LET LSLUN := LUNIT

002074

MOV

LUNIT,LSLUN

TRAP

(BERHRD

ERRHRD 3,ERR1{
.MWORD

JREPORT

AN ERRNR

ERR1
.WORD
WORD
O
LET @LPCSR(R2)

010504
000000

,STATUS(R 2)

10445¢

005072

THEN

#B1107,aLPCSR(R 2)

0000C3

O
NS NN =2

SEQ 0049

“INSURE LOADING CHARACTER CAUSE S PRINTER READY TO GJ AwAY

007660
007660
007666
007666
) 007674
007676
007676
0077064
007704
007710
007710
007716

o NN O
O PN B N O ~ O NN
e
QD
NN W e o
oO

——bd

-—

~ o

K_
&
19-3

100000

012772

O OO O W 800 5 COWANLA LSS D S 00~ 00 ~y 00 —

-—bd

—

d e

—

A AN ADWNANN AN A~

b
b
el

N AN AN A

-—
—-—

A NWNA A N AN A A s

007650
007650
007652
007654
007656
007660
007660

PAGE

052762

002322

:= #0
aLPCSR(R2)

DlgLR

501008:

007732

SVERIFY THAT THE PRINTER WILL NOT INTERRUPT {F [T IS AT A PRIORITY LEVEL
‘THE

007732

SAME

THE

(PU

SETPR] #PRIO4
MOV

TRAP

#PR104,RO
($SPRI

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

O
Y

007630
007630
007636
007636
007644
007644

MOV

-nd

12-JAN-83
(8:16
TEST
DNMAC X%24.07-563
12-JAN-83 08:16
INTERFACE LOGIC

MOV

007754
007760
007762
007766
007766
007774
0C777¢4
010002
010004

MOV

002322

052772

012737
009402

000012

003122

#PR104,-(SP)

sCPU TO PRIORITY &

:LP VECTOR SET UP

#INTERR,-(SP)

LPVEC(RS) ,=(SP)

MOV
TRAP
ADD

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

MOV
BR

#12 ,WOPK1

LET SLPCSR(R2) := @aLPCSR(R2) SET.BY #100
#100,aLPCSR(R2)
BIS
DECR WORK1 FROM #12 10 #1 BY #1
50102%:

501018

;INTERRUPT ENABLE

CZUNAAO LNOY
CILNAA. P

TEST
DNMAC x24.07-563
12-JAN-83
08:16
12-JAN-B3 08:16
INTERFACE LOGIC

(10)
(7).
(7)

010006
010010
010010

1769

010020

(9)

(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)

010016

003122

023727

003122

002415

010020
010024
010026
010032
010034
010040
0100642
010046

012727
000000
013727
©00000
005367
001375
005367
001367

210050

000755

1600

010050

1é8%

010052

(5)

005337

000001

177772
177756

50103$:

B8R

4
L
19-4

50103¢
250,

8250, ,(PC)e
O
LSDLY, (PC)e
O
-6(PC)
.=
<22(PC)
.=20

(&)
(3)
(2)
1608
(7)
1609
(2)

010102
010106
010110
010114
010114
010122
010122

012746
104437
062706

000010

052772

000100

012727

000030

(2)
(2)
(2)
(2)
(2)
(2)
1610
(7)
1611
(4)
161¢
(4)
(5)

010730
01013¢
010136
010142
010144
010150
610152
010152
010156
010156
010164
010166
010166

013727
000000
005367
001375
005367
001367

002116

005262

003060

013737

002260

042772

000100

012700
104441

000140

010066

012746

000200

010076

016246

002362

010126

010170

010172
010174
010174
010202
010202

012746

000000

002322

MOV

#PR104,-(SP)

MOV

LPVEC(R2),=(SP)

MOV

002322

177756

002074

104456
000004

010643

012772

000000

002322

062762

160000

002456

INTERRUPT

FOR DELAY

THE

CPU PRIORITY

IS LOWER

#INTHOL ,=(SP)

MOV
LSDLY, (PC)
.MORD
O
DEC
-6(PC)
BNE
=4
DEC
222(PC)
BNE
.=20
LET ERRTBL(R2) := FRRIBL(R2)
INC
ERRTBL (R2)
LET LSLUN := LUNIT
MOV
LUNLT,i SLUN
ERRHRD & ,ERR13
TRAP'
CSERHRD
LWORD
&

.WORD

000000

ALLOW 3 SEC

MOV
#3,-(SP)
TRAP
($SVEC
ADD
#10,5P
LEY BLPCSR(R2) := aLPCSR(R2) SET.BY 4100
JINTERRUPT ENABLE
BIS
#100,aLPCSR(R2}
DELAY 30
; ALLOW 3 SEC DELAY
MOV
#30,(PC)+
MORD

177772

;

LET SLPCSR(R2) := BLPCSR(RZ) CLR.BY #100
JCLEAR [INTERRUPT ENABLE
BIC
#100,3LPCSR(R2)
SETPR] #PR103
:(PU TO PRIGRITY 3
MOV
#PR103,RO
TRAP
C$SPR]
SETVEC LPVEC(R2) ,#INTHDL ,#PR]0%

010416

000003

SEQ 0050

50102%

:NOW TEST THAT THE PRINTER WILL
;THE PRINTER PRIOR;:TY

010072

(5)
1613
(4)
1614
(7)

WORK1,#1

ENDDEC

(6)

(5)

CMP

MOV
.WORD
MOV
.MORD
DEC
BNE
OE(
BNE

002116

010082
010052
010060
010060
0100646
010066

(2)

WORK1

BLT

000372

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

(5)

DEC

DELAY

1602
}282

(7)

501018

PAGE

END2:

ERR13

+ W1

WORD
O
LET @LPCSR(R2) := #C0
: CLEAR THE LPCSR
MOV
#00,aLPCSR(RS)
LET STATUS(R?) := STATUS(R?2) CLR.BY #ERRQOR DROPED'ACTIVE
BIC
SERROR'OROPED
'ACTIVE ,STATUS(R2)

THAN

CZLNAAO LNO1

CZUNAA.P11
1615

1&?&

TEST

DNMAC X26.07-563

12-JAN-83 08:16

010210

005062

CLR

SEND OF

SENDINC

}g}g
1620
1621
1622
(3)
(3)
1623
1627
(&)
1628
1629

010214
010220
010224
010224
010230
010232
010274
010274
010302
0103464

(&)

010350

(6)

010350

1631

010360

(10) 016356

(&)
(3)

1632
(3)

1é§§

000137
004737

007442
007150

012700
106441

000000

112737

000014

004737

005246

032772

001001

010360
010362

000773

010362

106432

010362

010364

000200

003126

002322

1641

(4)
(5)

(5)
(5)
1642
(4)

1663
(3)

1éfi

50104%:

INCREMENT LOOP

EXIT TIST

000334

;UPDATE UNIT #
: RESET $TANDARD VECTORS

WHILE #BIT7 NOTSETIN BLPCSR(R2) 0O
BIT

BNE
50105$:

:WAIT FOR READY

¥B117,3LPCSR(R2)

50105$

50104%

TRAP

CSEXIT

.WORD

SEXIT THE TEST

L10006~-.

*INTERRUPT HANDLER TO SERVICE FAULTY INTERRUPT FROM LP INTERFACE.
STHIS ROUTINE 1S ENTERED ONLY WHEN THE LP INTERRUPTS AT THE SAME LEVEL AS
STHE
010366

010366
010366
010372
010372

010400
0106400
010402

010404
010406
010410
010610
010414
010414

010414

CPU AND

IS CONSIDERED AN ERROR.

BGNSRV

005262

003060

013737

002260

104456
000005

010560
000000

012716

002074

INTERR: LET ERRTHI (R2) := ERRTBL(R2) + #1
INC
ERRTBL (R2)
LET LSLUN :- LUNIT
MOV
LUNIT,LSLUN

ERRHRD 5,ERR12
TRAP
.MORD

010174

000002

CSERHRD
S

.WORD
ERR12
WORD
0
LET (SP) := #END2
MOV
NEND2, (SP)
ENDSRV
£L10007:

RT]

P INTERRUPT HANDLFR FOR EXPECTED INTERRUPT

}gzg
}gzg

010416

1649
(4)

010416
010416

012716

(3)
(2)

010422
010422

000002

1650

HARD CODED

ENDDO

}239

1639
(7)
1640
(4)

SEQ 0051

:= #0
DELCNT(R2)

JMP
T1A
JSR
PC,RESVEC
SETPRI #PRIO0
MOV
#PRI00,RO
TRAP
($SPRI
OUTPUT #INTFAC, #47,
LET OUTBUF :B= #14
MOVR
#14,0UTBUF
OUTPUT #OUTBUF
,M
JSR PC,QUIET

118:

1634
1535
1638

PAGE 19-5

LET DELCNT(R2)

003016

1617

1630

12-JAN-83 08:16
INTERFACE LOGIC

010422

BGNSRV

010174

INTHDL: LET (SP) := WEND2
MOV
NEND2, (SP)

ENDSRV

L10010:

RT]

22
DD
D>

D:'MAT

X24.07-563

047111

042524

043122

=JAN-83 0&:16

il
— nd nd o
-—d
) el

12-JAN-83

0B8:16

INTERFACE LOGIC
NLIST BEX
INTFAC: ,ASCIZ

PAGE

&
N
19-6

SEQ 0052

/INTERFACE LOGIC TEST 1

====

TEST (OMPLETE/<12><12>

*ERROR MESSAGES ASSOCIATED WITH THIS TEST

) el

) el el e

ocoor~~0r0r0r0r
OO O O O OO
OO WHNO ONNNINNANNWY,
B RNN
2O YO NPOWNE W~

047514
051120
120

010720
104401

042101
047111

0446522

047111
042524

052116

ERR11:
ERR12:
ERR13:

LEVEN
ENDTST
L10006:

_ASCIZ
.ASCIZ

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

TRAP

CSETST

_ASCIZ

LIST BEX
ENDMOD

/PRINTER DID NOT

INTERRUPT AT

(PU PRIORITY

CZLNAAO LNOYV
CZLNAA. P

B.S
TESY
DNMAC X%24.07-563
12-JAN-83 (8:16 PAGE 19-7
12-JAN-83 08:16
DATA TRANSFER FATHS

}ggg
1668
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678

LSBTTL DATA TRANSFER PATHS
010722

BGNMOD
e
STHIS TEST CHECKS THE DATA TRANGFER
*PATHS FROM THE PROCESSOR INTERFACE
110 THE PRINTER OUTPUT. AN ALTERNATING
:PATTERN OF ONES AND ZEROES CORRESPONDING
:TO AN ALTERNATING STRING OF "'¢*' AND
2'U'" CHARACTERS ARE TRANSMITTED ON THE
SFULL 132 COLUMNS.
AFTER 16 LINES OF
STHIS PATTERN, THE OUTPUT PATTERN IS
SSWITCHED TO AN ALTERNATING PATTERN

1679

1680
1681
1682
1683
(3)
1684

TOF

''3'° AND "'a‘'' CHARACTERS FOR ANOTHER

216 LINES.
=

010722
010722

BGNTST
12::

1689
1690
1691
(5)

010722

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

sPRINT

TEST

IDENTIFICATION

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

010774
010774
011000
011000
011006
011010
011010

50106%

005237

011352

INC

PATTERN

023727

011352

000002

CMP

PATTERN,#?

023727

011352

100001

(4)

011020

112737

000125

011312

MOVB

#'U,CHAR

1688

(7)

(10)
1693

1694
(&)
(3)

1695
(4)
1696
(4)
1697
(4)
1698
(5)

(7)

(6)
(10)

(7)
(7)

(9)

1499
(4)
1700

010764
010764

010772

011016
011020

011026
011026
€11030

011030
011030
011036
011036
011036
011036
011042
011042

013050
011052
011052

011056
011056

011064

011066
011066
011072

012737

000402

003111

001004

000001

011352

50107$:

000403
000077

012704

003124

012737

000001

005237

002250

023727

002250

003017
113724
105137

50111$:

112737

000402

50106%:

011312
011317

9011312

002250

ELSE
BR

50112%

LET CHAR :B= #*?
MOVB
#'7,CHAR
ENDIF
50112%:
LET R4 := #OUTBUF
MOV
#OUTBUF
, R4
INCR CCNT FROM #1 TO #66. BY #1
MOV
#1,CCNT
501148

000102

BGT
50110%
PATTERN EQ #1 THEN
CMP
PATTERN,#1
BNE
50111%
LET CHAR :B= #'U

50113$:

sof13s

INC

CCNT

CMP

CONT,#66.

8GT

MOVB

LET

50115%

(RG)+ :B= CHAR
CHAR,(R&L)+
(OMB (HAR

SEQ 0053

CILNAA.PI1Y
1701
(7)
1702
(&)
1703
17206
(7)

TEST

011076
011076
011104
011104
011110
011114
0114

1705
(5)
(&)
1706
(&)
1707
(6)
1708
(5)
(7)

011122
011122
011124
011124
011124
011130
011130
011134
011134
011142

(10)

DNMA

12-JAN=83 08:1
142737

000200

113724
105137

011312
011312

1427%7

000200

X24.07-563

2 N-83

DATA

08:16

NSFER PATHS

LET CHAR éB=RCHAR CLR.BY #200

011312
MOVB

011312

000753

50115%:

(R&G)

:B= M2

MOVB

012737
000402

000001

011144

005237

002242

011150
011156

023727
003024

002242

004737

005246

1715
1716
(3)
‘;?;

011222
011226
011226
011230
011230
011230
011232
011232
011232
011240
011302
011306
011306
011310

1718

011312

000000

011352

000000

(3)
1728
1729

005246

003124

04052¢

011354

011356

(MP

LINCNT

052040

216,

501208
OUTPUT #OUTBUF, #134.

50117%

50107%

QUIET

:B= #14

TRAP

(s ExlT

L1 oon
LWORD
.NLIST BEX
(HAR:
.WORD 0

DATPTH:

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

.EVEN

p 17 RN:

4
104401

LINCNT

TO #16. BY #1

MOVB
#14,0UTBUF
OUTPUT
#OUTBUF, #1
JSR FC,QUIET

EXIT TST

104432
000044
040504

INC

.WORD 0

004737

50{165

501108:
LET OQUTBUF

VE
IS

——

(3)

011314

ENDINC

000661

..om

1719
1720
1721
1722
1723
1724
1725
1726
1727

50120%:

000014

B8R

L INCNT

JSR PC,
ENDINC

000746

1127%7

#12,(R4)

MoV

BGT

)

1714

011160

50116%:

'"""

1710
1711
(5)
(&)
1712
(5)
(4)
1713
(4)

50117%:

1709

¢
#15,(R4)

INCR LlN(NT FROM #1

002242

000020

#200, CHAR

'ET

000012

(7)
(9)

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

:B= #15

112714

011150

:B= (MAR

(R&)+

MOVB

(7)

(R4)+

CHAR, (RG)
¢
COMB CHAR

LET

000015

011144

LET

501148

112724

(6)

¢
5
PAGE 19-8

ENDMOD

EVEN

BEX

TRAP

CSETST

SEQ 0054

CZUNAAQ LNOT

CZLNAAD LNO1

TEST

CZULNAA. P
1731

};g%

DNMAC

12-JAN-83 08:16

x24.07-563

;;2%

011356
011356

;

011420
011420

(6)

011430

(7)

(8)
(6)
(7)

(9)

(7)
(6)
1748

(4)
1749
(5)

(7)

003120

023727

003120

011446
011450
011450

000137

011566

012704

003124

012737

000001

011462

(9)

011476

1753
1754

1755
(4)
(4)

1756
1757
(4)
1758
1759

1760
1761
(%)

000040

005237

011464
011466

(7)
(6)
1750
(4)
1751
(&)
(4)
1752
(&)

012737

011430
011434
011434

011450
011454
011454

011470
011470

011500
011504
011504
011504
011510
011510
011512
011512
011512

011516
011560

011564
011564
011566

IN THE

003402

000402

005237

002246

023727

002246

000137

011512

113724

003120

003402

003120
50121%:

000177

50122%:

SEQ 0055

CHARACTERS

002246

000012

004737

005246

000204

50126%:

000014

004737

005246

011704
011704

104432

50122%

INC

WORK

CMP

WORK , #177

JMP

50124$

5012%$

LET

:= #OUTBUF

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

INC

COUNT

CMP

COUNT,#132.

JMP

50130%

161

50127$

LET (R4)+ :B= WORK
WORK,(R4)+
ENDINC
50125%

LET

(R4)+

:B= #LF

#Lf,(R&L)+

OUTPUT #OUTBUF ,#133.
JSR PC,QUIET

END INC
BR

50121%

OUTPUT #DONE,#14.
LET OUTBUF :B:= #i4
MOVB
#14,0UTBUF
OUTPUT #OUTBUF ,#
JSR PC, QUIET
TRAP

TO #132. BY #1

50126%

$BRIMP=-1
EXIT

CHARACTERS ON ALL UNITS

MOVB

003124

; PRINT TEST

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

MOVB

50124%:

112737

ALL

BLE
50127%:

000721

011566
011630
011630
011636
011700

OUTPUT #PRTCHR, #30.

MOV

$0125%:

EACH UPPER AND LOWER CASE PRINTABLE C(MARACTER

MOV

50130$:

112724

7 BIT RANGE

BLE
50123$:

000765

1772777

$8RUMP=1

000402

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

000001

011426

N11442

THIS TEST WILL PRINT A FULL LINE OF

BGNTST
13::

011356

1747
(5)

PAGE 19-9

;00

};215.

1746

PRINTABLE CHARACTERS
BGNMOD

1735

1738
(3)

08:16

.SBTTL PRINTABLE

011336

1734

1737

12-JAN-83

CSEXLT

TEST DONE MESSAGE

: EXECUTE

TOf

CZUNAAD LNOY

CILNAA.PI1Y

TEST

MAC X26.07-563 12-JAN-83 08:16 PAGE 19510 5

12-JAN-83 08:16

(3)
1762
1763

011706

000110

011710

051120

047111

040526

1765

011765

033

120

061

1764

1766

1767

1768
1769
(2)
(3)
1770

1771

011747

012001

012016
012016
012016

012020

124

141

106401

051505

156

SEQ 0056

PRINTABLE CHARACTERS

020124

061

JWORD
NLIST BEX
PRT(CHR: ,ASCIZ
DONE:

PORSQ:

.ASCII

.BYTE

BYTE

.EVEN
ENDTST
L10012:

TRAP
LIST BEX

ENDMOD

L10012-.
/PRINTABLE
/TEST

CHARACTERS

COMPLETE/<12>

TEST

3/ <12><12><12>

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

141,156,61,65,55,180,5%3,134.%3,183.61,61.155

CSETST

SEQS TO ASSIGN AND SEI

CZULNAAQ LNOY

CZILNAA.P1Y

TEST

DNMA( X24.07-563

12=-JAN=-83 08:16

};;2
};;2

12-JAN-83

F..5

PAGE 19-11

SEQ 0057

NON=-PRINTABLE CHARACTERS
LSBTTL

012020

0B:16

NON=PRINTABLE (HARA(CTERS

BGNMOD
1ee

1777
1778
1779
1780
1781
1782

sTHIS TEST CHECKS FOR DETECTION OF ALL NON=PRINTABLE CHARACTERS
;EXCEPT FOR HORIZONTAL TAB, LINE FEED, VERTICAL TAB, FORM
:FEED, CARRIAGE RETURN, AND ESCAPE WHICH
;WOULD BE INTERPRETED AS VALID CONTROL CHARACTERS BY THE LNO1. EACM
;CHARACTER WILL APPEAR ON THE PRINTER OUTPUT IN THE FORM OF ITS OCTAL
:CODE ACCOMPANIED WITH [TS MNEMONIC.
o

1783
1784
1785
1786
};gg

;122 OF THE TESTED CODE ARE THEN SENT FOLLOWED BY AN ''3'' THAPACTER.
;1F THE CONTROL CODE HAS TAKEN UP A SPACE IN THE BUFFER THE ''a"" CHARACTER
;WILL APPEAR AT THE RIGHT MARGIN OF THE PAGE. JF THE CONTROL CODE HAS NOT
JTAKEN UP SPACE IN THE BUFFER THE ‘@' WILL APPEAR IMMEDIATELY 10 THE RIGHT
:0F THE MNEMONIC FOR THE CONTROL CODE.

1789

“'NOTE"’

BGNTST

1790
1791
1792
1793
1794
1795
1796
1797
1798
(3)
}ggg

:
:
;
:
N
;
tee
012020

012020

16::
:INDICATE

1801
1802
(&)

012020
012062
012062

012704

]
012461

1é82

012066

012737

000033

1803

012066

012074
012076
012100
012100

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

012110
612110
012114
012114
012122
012124

012106

01212¢

005037

002246

012737

000001

MOV

#27. ,WORK1

000402

005237

002242

023737
003063

002242

012703

003124

LET COUNT := #0
CLR
COUNT
INCR LINCNT FROM #1
MOV
#1,LINCNT

002242

50132%:
003122

50131$:

1813
(5)

012130
012130

(6)

012140

012136

012737

000402

000001

MOVE

003120
50135%:

TG WORK1

50131¢

INC

L INCNT

(MP
BGT

L INCNT ,WORK1
50133$
R3 := #OUTBUF

MOV

13}}

(7)

LET WORK1 := #2°7.

003122

: DO ONE LINE FOR EACH TABLE ENTRY

1807
(&)
1808
(5)

15?6

CURRENTLY BEING DONE

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

}ggg

(7)

TEST

IF THIS TEST IS ASSEMBLED AS PART OF VERSION 1 LNO1 DIAGNOSTIC
1T WILL ALSO SEND ALL 8 BIT CONTROL CODES.
THE ASSEMBLER
WILL SEE THE CONDITIONAL STATEMENT: "'.1F DF VERS.1°°.
AND, IF
VERS.1 IS DEFINED IN SKEL 2 THEN IT WiLL ASSEMBLE THE CODE
FOR THE 8 BIT CONTROL CODES AS WELL AS THE NORMAL 7 BIT (ONTROL
CODES.

LET

#OUTBUF ,R3

CODE

AND MNEMONIC

MOV

INCR WORK FROM #1
#1, WORK

50134

TO PRINT BUFFER
10 #8. BY m!

-—

— d il nd D o ek d

MNORNIPVNINININLAJND

005237

003120

023727
003002

003120

INC

WORK

cMP

WORK , #8.

112423

MOVB

LET (R3)+ :B=
(R4)+, (R3)»

000770

000010

50134%:

86T

50136%:

=S OOOOONNNNOOO
(a1
X W ¥ J NP¥ Halale Yola)

NINLNIRLNUALNONL NNV
PONIPINININD
=P b o cd od o b

i
o
e
b e
D e
b

012737
000402

000001

005237

003120

023727
003002

003120

(R&)e

END INC

MOV
501408:

50137%:

111623

000770

SEQ 0058

50135%

PUT 120 BYTES OF CODE INTO PRINT BUFFER

003120

000172

50134$

501418

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

50137¢

INC

WORK

cMpP
86T

WORK , #122.
501418

MOV

LET (R3)¢ :B= (R&)
£g4),(n3)o

50140%

¥
N ela]

D b
—

b
b
-t

rnornorON
(S 1N 1, O 1,8

. FOLLOWED BY AN ''3'* CHARACTER AND A LF
OO0

112723
112723

000100
.
000012

MOVB

LET

(R3)+

:B= #100

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

SLF

QO NOMNINNOOOONNO

&S ONNNNY ooy

D
i
il Bl
D ad
el ol
) ol
— o

b =D

NORLAININLALAINLNINLNLNINOND
NN AL NL N NONIND
WA WWLAINNL

: PRINT LINE OF OCTAL CODE, MNEMONIC, 120 BYTES(NONPRINTABLE CODE), AND '%3'
[elelelelelelelnlelalelale
e

=~ v O
NOOWVN BN~ ~ N
O
AN 2 OO
e N
NI
DOWNP ~ r NN

cod o

[elelelelolelolelolelelele]

N W N AN WIS NSNS NS NNO NN
N N N B SNBSSV
00 N N N NN

[0 JVL IV IV IV DU, P i o o
(oo Yo W oW o SF P Y

—r-

—-.z
i

) i D D il )

OOO0OO0OO0OO

4
PP
PP
. O

DD =S 2 S NS
= ONN—
OOWOONP
P
N PO

Del
—-—
il
el
)
—
-—
—

b
b
o
e
—
-—

-—
—

b
e
—

12-JAN=83
08:16
PAGE 19-12
DNMAC x24.07-563
EST
12-JAN-83 08:16
NON-PRINTABLE C(HARACTERS

004737

OUTPUT #OUTBUF ,#132.
QUIET
JSR PC,
+ M
RG
:=
RG
LET

005246

00520«

INC
END INC

000707

50133$:

112737

000014

004737

005246

003124

50132%

LET OUTBUF :B= M4
#14,0UTBUF
MOVB
,M
OUTPIT #OUTBUF

JSR PC, QUIET

EXIT

TRAP

1046432

.WORD

000476

157

CSEXIT

sAND EXIT TEST

L10013-,

*CHARACTER BUFFER AND TEST HEADER MESSAGE
067516

026516

051120

NLIST BEX

NONCHR:

LASCIT

/NON=-PRINTABLE CHARACTERS TEST &/<12>

gO4YPYV—OWoSYg=WL—O=YWg0JOUSgOLU§=WSSLB—aUregOOLtUoN=N)SOTWSMN=WPSIW}OTGMLNIGTOgLNSTgIMOS~tMSTnSMglOSTMLMBTSOGTMMgl=OSS=egAMgANBOoggAL0gL=So0
e=sO[LMNI)el'alNeYOVelolOAeNYea0lo—IlYeVelTalOO¥LooellaOOeeIollOTeeVobVllOeeaolIlOMooTelalNboIVoloNlaOoOIelOloNolaOoTIleolaoVelIaMIloOVelOloaN.elIOleaeoOlleVeMll.OaeaOllQooeOllVooe,OllOeaOollIeelVblTeVOeolaloOoIlleOaIoell0eVIl)o
eOWDN0[ITyoN)CglNUeVIglLITPOlyIUSeLgVl2|INNlG0lATqIeNIStlTIPeTUtlIONgNWlIVOSITlJN$eOSeIUFflBVTmi)IlONSVPTlIIOBUTlVgSoOITIlVTGIMlNgONoNIINlGNgeOVIlLA—SSoTTDlGIOIoMlVTSNeNISGOlrDeWgoTNOIlSNeIOlSToeNlOSe
gL
elejelelelelolLLN elelelolelololalelolololeololelvlolel
CZUNAAQ LNOT
CILNAA P

945

1948

1949
1950

(3)
(3)

H
S
TEST
12-JAN-83
DNMAC x24.07-563
(B:16
PAGE 19-13
12-JAN-83 08:16
NON=PRINTABLE CHARACTERS

012672

~OTNU=O—MN

767
000
on

022
033

013044

013046
013046

013050

020101

000000

052506
046114
60

+ASC 4

NUM

104401

" IRAP

ENDMOD

/A FULL LINE

NCNBUF:

04
03004
04

03004
04

013046

CSETST

SEQ 0059

EACH (ODE WILL BE

SENT/<12>

CILNAAO LNOY
CILNAA.PYY

TEST
DNMAC x24.07-563
12-JAN-B3
08:16
12-JAN-83 08:16
PRINT CONTROL

}gg%
}ggg

PAGE 19-14

SEQ 0060

.SBTTL PRINT CONTROL
013050

BGNMOD
'00

1956
1957

sTHIS TEST (HECKS THE PRINT CONTROL BY SENDING MORE THAN 132 (HARA(CTERS
‘BEFORE SENDING A CARRIAGE RETURN AND LINE FEED. ALL CHARACTERS IN EXCESS

1960

,IHREE

1963
}ggg

:
1
2
. 27
:123456789012345678901234567890. 0 0ececcns cecrcens

}323

:NOTICE

}323

VHIS OUTPUT

}ggg

}gg;

013050
013050
013050
013050
013054

(6)
(7)
(9)
(7)
(6)
1977
(5)
(8)

013070
013070
013074
013076
013102
013102
013102
013106

1979
(4)
1980
1981
(&)
1982
(&)
(6)
(8)
(9)
1983

013152
013152
013160
013160
013160
013164
013164
013164
013166
013170
013174

1978

1984
(3)

(3)
1985

(&)
}ggg

LINES ARE

PRINTED PER

ITERATION,

;COLUMN NUMBERS ACROSS THME PAGE. EXAMPLE

1970
(3)
1974
(5)
(7)
1975
1976
(9)
(7)
(6)

(8)

132 CHARACTERS SHOULD BE DISREGARDED.

013056

013056
013062
013064

013064

013110

013234
013234

013236
013236

013236
013244

0137017
005301
000001

002012

005037
000402

002260

005237

002260

023701
003402
000137

002260

013702
006302

002260

012737

000015

012705

014210

005715
001002
000137

BGNTST
15:
LEY R1

50143%:

013734

50144%:

002246

50147%:

003124

IDENTIFY

MOV
DEC

1S REPEATED 13 TIMES.

LSUNIT ,R1
R1

BY M

INC

LUNIT

(MP
BLE
JMP

LUNIT
R1
501448
50145%

MOV
ASL

LET R2 := L(UNIT SHIFT 1
LUNIT,
R2
RZ
OUTPU]l #PRT(CTL,#56.,,LUNIT

197
BNE
JMP
BR

MOvVB

LET CGUNT := #13,
#13.,COUNT
1%:
LET RS := #TABLE?
#TABLE1
RS
WHILE (RS) NE #0 DO
(RS)
.*6
50147%
QUTPUI

(RS)+,#10.,,LUNIT

LEY OUIBUV

:B= #12

ENDDO
50146%

#12 ,0UTBUF
QUTPUI #OUTBUF ,#1, LUNIT

LINES WILL

IDENTIFY

THE

3
012

132 COLUMNS ACROSS THE PAGE.

:= LSUNIT - 1

MOV

013236

MOV

501646%:

000012

THE PRINTOUT SHOULD

$BRIMP=1
INCR LUNIT FROM #0 TO R1
(LR
LUNIT
BR
50143%
50142%:

000753

112737

THAT

THESE

CZUNAAO LNO1
CILNAA.PTI

TEST
DNMA
12-JAN-83 08:1

X24.07-563

12-JAN-83 08:16
PRINT CONTROL

1988
(&)
1989
(&)
(6)
(8)
(9)
1990
1991
(3)
(3)

013306
013306
013317
013317
013312
013314
013316
013322
013367
013362
013364

1994
(5)

013426
013426

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

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

005337

002246

DEC

013632
013636
013640

005737
0030C¢
000137

002246

ST
BGT
JMP

}gg%

(7)

013434

013632

2001
2002

013644
013650

(4)

005715
001002
000137

014244
501508:
013364

000753

50151$:

013650

01273

000402

000016

005337

002242

023727
002002
000137

002242

000137

0'2160

(4)

013654

112737

000014

004737

005246

000137

013064

(&)
(4)

2008
2009
(3)
(3)

013730
013734

013734

50154%:

013650

05246

013662
013724
013730

000001

50153$:

501558
:

004737

2005
2006
2007

501528:

000746

013650

013654

002242

013522

2003

2004

MOV

013364

2000
(6)
(8)
(9)

012705

ST
BNE
JMP

50145$:

172777

LET RS := #TABLE?
#TABLE2.RS
WHILE (RS) NE #0 DO
(RS)
.+6
§0151%
OUTPUI
ENDDO
50150%

(RS)+,#10.,,LUNIT

MOV

DECR LINCNT FROM #14.
814, L INCNT

DEC

LINCNT

CMP
BGE
JMP

LINCNT,
#1
$0154%
50155%

OUTPUI #x11,#10., ,LUNIT
ENDDE
CR
50152%

TO #1

BY #1

5015%¢

OUTPUI #OUTBUF,#1, .LUNIT
OUTPUI #OUTBUF .#1,.LUNIT
LET COUNT := COUNT’'= m
COUNT

COUNT GT #0 THEN

COUNT
. +6
50156%

ENDIF

JMP 18

JSR PC, QUIET

MOVB

ENDINCR

SEQ 006!

OUTPUIl #QUTBUF ,#1,,LUNIT

50156%:

003124

5
J
PAGE 19-15

JMP

$BRIMP=
-1
EXIT TST

#14,0UTBUF

:B= #14

OUTPUI
#OUTBUF
,#1, ,LUNIT
JSR PC,QUIET
501428

013734
013736

104432
000342

2011
gg}g

013740
013766

051120
044123

047111
052517

020124
042114

PRTCTL:

.ASCII /PRINT CONTROL TEST
S/ <12>
"ASCIZ /SHOULD SHOW 132 COLUMNS PRINTED/<12><12><15>

2014
2015

014031
014043

040
040

020040
020060

020040
020040

X0:
x1:

ASCIT
JASCID

2010

TRAP
LWORD

LET OUTBUF

NLIST eex

CSEXIT
L10014-,

7
7

0/
1/

CZUNAAO LNO1

DN MAC
12-JAN-83 08: 1¢

X24.07-563

12=-JAN-83

CONTROL

(08:16

PAGE 19-16

SEQ 0062

o[=w]QL.o—4_LVo—]tV_1o0oV]1o4>SVYTo)>-O&o«W]ol0[«VToVTNT]~-Q[y—VVRTyoNN(eTIoTUVVoTYIVWVosNuIoSVWYT4V0oVToT0[aVoVT5IAaoV0UTa4NV0To

CZILNAA.P

TEST

MMMNN-—OQCer—r—r—cr—r—

[OelooslOeleN] o———7 NM— VMNeO— —MOWNDIMW=NY
]ZEV¥ V—-Zi( —0 Y=JgPwYdw[~a2¢ -~— 2N>yMgIg3FlKNO3Ml3NOl3O

SBuGBP—tmg %[.aJoV]RJtvoVXelyoeST~

Loandd -L -b a[lVa0L).

(=O[o0]e)0lel0]e0IATIN7LSIIT

O[elLela) oCO0O0O0O0O0O O37CO0O0OCO0OoOOO0O0O OoC-O0O0OO0O COo00000 4OLNOOS0OO]0Q(OO@0O0 @.oeO Lb4[osoo)_o
aJd

DNMAC X24.07-563

12-JAN-83 08:16

CZLNAAO LNO1 TEST
CILNAA.PT

2036
2037
2038
2039
2040
2041
2042
2043

(3)
2049
2050
2051

2055
2056
2057
(4)

014302

BGNMOD
s b

014302

014344

014360

012757

014622

000242

014360
014364
014370
014374
014374
014400

013746
042716
042637

002242

012703

003124

012737
000402

000001

005237

002250

014414
014422

023727
003003

002250

014424

117723

000170

0G14430
014432

000767

014432

005004

(4)
014434
014436
(6)
(19) 014440

020437
001404

002242

(4)

014442

112723

000012

014446

005204

014410
014614

2064

014424

2065
(5)
(6)

2066
(4)

2067

2068

2069
(7)

2070

014430
016432

014434

014442

014446

014450

TEST

IDENTIFICATION

LET STACHR := #TABSITR
#TABSTR,STA(CHR
MOV

50157%:

117737

(10)
(7)

¢PRINT

:OUTPUT

(CHARACTERS

REPEAT

014352

(64)

014620

014352

014400
014406
014410

SEQUENCE.

OUTPUT #MUL INE,#86.

014302

014344

BGNTST
16::

014302

2061

(7)
(9)

MULTIPLE LINE ADVANCe

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

014352

(5)
(7)
(6)

ADVANCE

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

2060
(7)
(7)
(7)
2062
(4)
2063

SEQ 2 006 0063

PAGE 19-17

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

014352

(4)

LINE

08:16

;THIS TEST CHECKS THE MULTIPLE LINE ADVANCE OF

2058
2059
(3)

MULTIPLE

.SBTTL

2044
2045
2046

2047
2048

12-JAN-83

002242

LET LINCNY
movs

aSTACHR,LINCNTY

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

B81C

000007
002242

BIC

LINCNT ,=(SP)

#7,(SP)

(SP)+ ,LINCNT

LET R3 := #QUTBUF
002250

MOV

#OUTBUF ,R3

MOV

#1,CCNT

INC

CCNT

CMP
BGT

CCNT,#132.
50162%

MOVB

aSTACHR,(R3)+

50161%

JSET UP OUTPUT BUFFER

INCR CCNT FRCM #1 TO #132. BY M1
50161%:

000204

JGET A CHARACTER T0O OQUTPUT

:B= aSTACHR

50160%:

s0160$

LET (R3)% :B= @aSTACHR

ENDINC

50162%:

:PUT CHARACTER

IN OUTPUT BUFFER

SFILL WITH LINE

EEDS

LET R4 := #0
R4
(LR

WHILE R4 NE LINCNT DO
50163%:
R4, L INCNT
CMP

BEQ

50164$

MOVB

#12,(R3)+

INC

LET (R3)+ :B= #12

LET Re := RL + M

ENDDO

> >

WWOO000 S 00NN NNNNNNVNNUNNWWES

ZzZ
>

AAOOO~AOAA~AOO0O0O0
A0~ ~0O000O0 ~~

NIV
n
nONOND

[ la]

NINONOND

LNO1 TEST

P11

014450
014452

DNMA( X26.07-563

12-JAN-83 08:16

00077

12-JAN-83

08:16

M5
PAGE 19-18

50164%:

50163%

sNOW CUTPUT THE ACTUA'
014452
016452
014456
014462
014462
014466
014526
014532
014532
014536
014540
014540
014546
014610
014614

013704
062704

002242
000204

005237

014620

004737

005246

005737
001305

002242

112737

000014

004737

005246

014614
014616

1044732
000150

014620

000000

014622
014637
014675

033462
115
116

033062
046125
046525

EXIT

033463
0446524
042502

104eM

;NUMBER OF CHARACTERS TO QUTPUT
s

UPDATE CHARACTER COUNT

;OUTPUT

THE LINE

UNTIL LINCNT EQ #0
157
L INCNT
BNE
50157%
LET OUTBUF :B= #14
MovBe
#14 ,0UTBUF
OUTPUT #OUTBUF ,#1
JSR PC,QUIET
TSTY

TRAP
.WORD

STACHR:

.WORD 0

TABSTR:
MULINE:

,ASCIZ
.ASCII
CASCIZ

.NLIST BEX

CSEX]T
L10015-.

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

LLIST BEX
014766
014766
014766
014770

Lihc

LET R4 := LINCNT + m132,
MOV
L INCNT,
R4
ADD
#132. R4
LET STACHR := STACHR + #i
INC
STACHR
QUTPUT #OUTBUF ,R4
JSR PC,
QUIET

003124

SEQ 0064

MULTIPLE LINE ADVANCE

ENDTST
L10015:

ENDMOD

TRAP

(SETST

CZUNAAD LNO1
CILNAA.PTY

2100
2101

%}85

TEST
DNMAC x24.07-563
12-JAN-83
12-JA%-83 08:16
DVSTRIKE

08:16

N
S
PAGE 19-19

SEQ 0065

.SBTYTL DVSTRIKE
;MODULE DVSTRI.P

014770

B8GNMOD
:00

2106
2105

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

2107
2108
2109

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

2106

2110

+A TOTAL OF

& OVERSTRIKES ON ONE LINE

sTHIS LIMIT

TESTED AS WELL.

:THE PAGE BUFFER LIMIT

%H%

IS ALLOWED AND

IS 10,000 CHARACTERS AND

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

2114
2115

:
:

2118

5}59

5}}?

NOTE

THIS TEST

2119

THIS

TESTED.

TEST OPERATES ''JusT"

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)

A TOTAL OF

2122
2123
%}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

;
:
:
:
:
:

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 S THAY 66 EXTRA CHARACTERS WOULD END
UP ADDED TO THE PREVIOUS PAGE BUFFER TOTAL. ] DON'T BELIEVE THAT EVEN THIS
CASE WOULD CAUSE A FAILURE. HOWEVER, THE POSSIBILITY EXISTS BECAUSE THE PAGE BUF

S}%%

2134
J135
2;%2

014770
014770

2137

014770

2138

014774

2139

015000

21640

015004

(4)
(4)

(4)

(&)
2141
(4)

21642

(&)
2143
(4)

2164
(6)

2148

2149

9,939 CHARACTERS.

THIS

EACH LINE THAT THE PRINTER USES.

INCLUDES

THE PAGE BUFFER END5 UP CGNTAINING

LET R&

:= #OUTBUF

MUV

014776

112724

000116

MOVB

015000

112724

000132

MOVB

015006
015010
015010

112724

000116

112724

000015

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

015014
015020
015020

112726

000012

11272¢

000014

MOVB
#LF,(R4)
LET (R&)+ :B= #FF
MOVB
#6F,(RG)e

;

015026

112724

000040

MOVB

015072

#OUTBUF

: ADDRESS OF BUFFER

003124

015030

7 CHARACTERS FOR

BGNTST 7
17::
012704

015024

EVER PRESENT

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

014770

015014

THE

LET (R&)+ :B= #{16

LET

[

#116,(R4)
¢

(R4)+ :B= #132
#132,(RG) ¢

LET (R&)+

:B= #116

LET (R4)e :8= mLf

CARRJAGE

RET.

: LINE FEED
FORM FEED

LET (R&)+ :B8= #40

: SPACE

ouTPUT #OVSTR,#15.

: TEST ID WITHOUT LINE FEED

#40, (RG)
¢

OUTPUT #OUTBUf «6,81,,890.

: DO 90 SPACES TO TAKE UP LINE BUFFER SP

SEG 0066

OUTPUT #OUTBUF +4,#1

: DO LINE FEED

240

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

1 90 SPACES

176

OUTPUT #IN1,#3

302
344

OUTPUT #OUTBUF +&.#1
OUTPUT #IN2,#7.

406

040

056

005246

012737

000001

000402

005237

002246

023727

002246

003135

QUTPUT #OUTBUF+6,#1,,#90.
OUTPUT #OUTBUF +4.#1
OUTPUT #IN4L, 218,
OUTPUT #OUTBUF+6,#1,,#90,
OUTPUT #QUTBUF
+4 . #1
JSR PC, QUIETY
INCR COUNT FROM #1 TO #61. BY #1
MOV
#1,COUNT

002246
$0166$:

000075

50165$:

50165$

INC

COUNT

CMP

COUNT, #61.

BGT

120

232

%;g
276
300
300
342
342
342
346
346
350
350

023727

001022

004737

416
420

106432
000100

422
424
426
430
450
453

000000
000000
000000
053104
006532
132

476

055132

520

000075

055132

CMP

BNE
50170$:

50167$:
005246

EXIT

TST

END INC
BR

FEED

90 SPACES TO TAKE UP LINE BUFFER SP
LINE #EED
'
'
90 SPACES 7O TAKE UP LINE BUFFER SP
LINE FEED

: 61

LINES OF OVERPRINTING

LINE OF NZ

OUTPUT WOUTBUF+1.42,,436.

LINE OF

IF COUNT EQ #61. THEN
COUNT, #61.

50170$

ELSE
L

OUTPUT W#OUTBUF+3,#1

50171%

JSR PC,QUIET
50166%

OUTPUT NQUTBUF
+5, M1
JSR PC,QUIET

OUTPUT WOUTBUF +3,#2

17D0
P DO
JGTH
: DO
* DO

;

ENDIF

50171$:

005246

000635
004737

462

002246

000421

412

416

50167$

DO LINE

:3RD

OUTPUT WOUTBUF ,#Z,,#36.

OUTPUT #OUTBUF+3,
a1

162

224
224

OUTPUT #IN3.#12.

004737

2"D0 90 SPACES TO TAKE UP LINE BUFFER SP

OUTPUT #OUTRUF
+4 .41

9512

042
042
046
046

* LINE FEED
* 2ND
"

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

450

554
616
660
722
7€4
026
032
032

*1ST OVERPRINT LINE

: CARRIAGE RET. (NO LF)
P

IS THIS THE LAST LINE?

; CARRIAGE RETURN ONLY ON LAST LINE

CR AND LF ON EVERY OTHER LINE

: WHEN DONE FALL
;

THROUGH

DO FORM FEED

TRAP
CSEXIT
.WORD
L10016~.
NLIST BEX
INUM:
.WORD 0
SPANUM: .WORD 0

052123
116
006532
006532

055132

044522
006516
006516

047015

NEWSPA:
DVSTR:
INT:
IN2:
IN3:

ZEME:N
.tV

ENDTST

L10016:

.WORD 0
.ASCIZ
CASCIT
CASCIT
TASCIT

JASCID

JNaTel

19-20

[oedootectoeocertooRoeRoohoooeRoodoodoodochoodooQoodooRoodoodoodooQoeoodoodoodocdooh
B B

PAGE

/DVSTRIKE TEST 7/
71/<15>/N/
772/<15>/N/<15><40>/N/
7212/<15>/N/<15><40>/N/<15><40><40>/N/

722127<15>/N7¢15><40>/N/7<15><40><460>/N/<15><40><40><40>/N/

N ANNNON PO

08:16

OTM ONON

ooororOrO o X5J e Yo Yo Yo Yo Yo Yo Neo Yo Yo Xo Yo Xo Yo Yo Yo Yo Vo No To Fo To Yo Yo o Yo Yo Yo Yo No Jo IV IV IV IV IV, [V 1V W IV IV IV (V IV, ]

TEST
DNMAC X24.07-563
12-JAN=8B3
12-JAN-83 08:16
DVSTRIKE

134

[l Wl eleleleloleclaloc B alelelalelalelelelelalelelolalolelelolalolelalalalololalalololalalslelalololelalalelo
Lo B ol
—
— e and amd b e d
— il e cnd el e el b ad i D ) il ) D i e D D end S ad i A el D ) d D d D D i D e e D D i el ) B
_.z

r
O
b/

w S AN=20O00ONONESWNI
O

O =T
ONN 2O NN IO
NN NANNIWVWNUWY.

v OOV

= O D00~ NO N~

WO D000 NOOODAO N NWW NN NS WNNNES NYNNWE

=~ 0NV

ol g

D P
o
)
D S
) d
D il
i
) e
)
P

P~y

22
el i)

V1,1, V1S I

NN
nn
[ASIS TN NT ST NI NI, ST NI ST,
N
D P o, . ad el D S PN PN PN Ny, D e i il e i D e el i o

nroNY
o, P
b
— gy gy, S DD G

LSLNL NSNS LN NN LSS V)

[alal

(3)
2189
2190
%}g}

016520

2193

016522

2195
2196
2197
2198
2199
2200
2201
2202
2203
(3)

2204

BGNTST

016522

016530

016532
016532

;DETERMINE

104432

002726

(3)
(3)

016540
016542

104432
002714

(4)

016544

2212

016544

2213

016550

(4)

(5)

25?2
2215

016550

013701

002012

(6)
(10)

016564
0156564

002260

005237

002260

(9) 016576 003020

002260

(5)

002260

(7)

016570
016570

2217

016576

(8)

016602

016576

2218

016604

2219

016614

(6)
016604
(10) 016612

.WORD

L10017=-,

IF MANUAL

INTERVENTION TESTS ARE NOT SPECIFIED

JF INHINT EQ #0 THEN
1S7T
INHINT

BNE

50172¢%

TRAP
.WORD

C$EXIT
L1001 7-

ENDIF

LET FLAG := #0
(LR

FLAG

LET R1

:= LSUNIT - #1

DEC

MOV

LSUNIT
R

;CHECK FOR ERROR IN EACH PRINTER UNDER TEST
005037
0030402

(7)

016556
016562

CSMANI

TEST

50172%:

005301

TRAP

ExIT 1ST

002240

016556

11%:

002234

005037

2216
(5)
(7)

SEXIT

016544

016554

INTERVENTION IS ALLOWED

BCOMPLETE 11%
B(CS
11%
ExIT TST
TRAP
CSEXIT

103402

005737

IF MANUAL

MANUAL

104450

001002

016540

T18::

016536

2211

TEST 8

c4e

(10)

2210

023701

013702

006302

032772
001410

100000

INCR LUNIT FROM #0 T0O R1 BY #1

50174%:

50173%:

(LR
BR

LUNIT
50173%%

INC

LUNIT

BGT

LUNIT

MOV

LUNIT,
R?

(MP

501 7s£

LET R2 := LUNIT SHIFT 1
ASL

002322

IfF #B1T15 SETIN QLPCSR(RZ2) THEN

BIT
BEQ

#BIT1S5,aLPISR(R?Z)
50176%

LET ERRIBL(R?2)

~~r~

SEQ 0067

BGNMOD

016522

016524
016524
016526
016526

2209
(6)

DVSTRIKE

€.
6
PAGE 19-21

TRAP
CSETST
LLIST BEX
ENDMOD
LSBTTL
READY LINE INTERLOCKS

016522

2206
(2)
2207
(3)
2208

(08:16

;THIS TEST CHECKS THE OPERATION OF THE
:PRINTER READY INTERLOCK SWITCHES.
:MANUAL INTERVENTION IS USED 10
JOPEN THE INTERLOCKS YO PRODUCE FAULTS
JIN THE PRINTER AFTER WHICH THE RESULTANT ERROR
:INDICATION IS VERIFIED.
=

016522

(%)

104401

016522

2205
(3)

12-JAN-83 08:1

12-JAN-83

P Y

2194

NMA( X26.07-563

(alalalalalalealealfalalalalalnlialalal YalalalalalaYaYala Yo

CZLNAA. P

TEST

Yt etealalealealatealalealaSelnlinialalata Y o)

CILNAAQ LNO1

:= ERRIBL(R2) ¢« M

—

Sy4
o

ococococococococococooco
ooococorO-cON
O
oo

e P

e S Pur i

Par G S

S g

jelelololalelalolelalololalalalelololalololelalelalelolec B olalelololalololalololale]

005262

(03060

INC

106456

000006
003352
000000

005072

.WORD
.WORD
.WORD

Q02322

000753

(LR
ENDIF

ERRHRD 6,
(SERHRD

6
8SRERR

LEY SLP(SR(R?)
aLP(SR(R?)

005237

002260

023701
003021

002260

013702
006302

002260

MOV
ASL

LUNIT,RS
R2

013737

002260

MOV

LUNIT,LSLUN

032772
001006

000200

005262

003060

50200%:
50177%:

(LR

LUNIT

INC

LUNIT

(MP

LUNIT R1

50177%

B8GT

50201$

LET R2 := LUNIT SHIFT

LET LSLUN := LUNIT

IF #BIT07 NOTSETIN aLPCSR(R?) THEN
BIT
#B81107,aLPCSR(R?)
BNE
50202%
LET ERRTBL(RZ) := ERRTIBL(R2)
INC
ERRTBL(R?)
ERRHRD 7, RDYERR

000007
003370
000000

TRAP

CSERMHRD

.WORD

RDYERR

.WORD
.WORD

ENDIF

50202%:
END INC
BR
50201%:

:= #0

50176%:
END INC
BR
S0174%
S0175$%:
JCHECK FOR READY IN EACH PRINTER UNDER TEST
INCR LUNI]T FROM #0 TO R1 BY #1

002260

000752

SEQ 0068

C(SRERR

005037
000402

ERRTBL (R2)

TRAP

104456

M) =t

~N)
o

» >
.
O
©

»>» 3>

VEN]

o ()

NV L VIV T IV, ¥ X

D o N o~ o

~NJ

X LUV L

nony

ARIND
=N~ LY

N
~)
N
NN
~
rORURLNLAL
NURNLNLNLNLPLNLAD
AURNLRNURNOLND ARNINDNDRLMNUNINUIND
A AR AN A A A AN AN A AR AR A AR A A
BB
N ANANNNNES NN
NN NDD
NN
NSO NNIO NN

D_.6
12=-JAN-83
DNMA(C x24.07-563
(0B8:16
PAGE 19-22
READY LINE INTERLOCKS
-JAN-83 08 :16
TEST 8
1

+ M

50200%

. PRINT TEST NAME
QUTPUT WINTLK,#29.
;VERIFY OPERATION OF PAPER QUT
*HARD

005037
005037
000405

002304
002260

005237

002260

CODED

LOOP

LET ERRFLG := #0

)
2%:

INCREMENT

CLR

L R Ly NIT
18
R

ERRFLG

LUNIT
:-= LUNIT SHIFT
£ R

INTERLOCK SWIT(M

CZLNAAQ LNOT
CIUNAA.P11
(5)
(8)

E__6
TEST
DNMAC x24.07-563
12-JAN-83
08:16 PAGE 19-2 3
12-JAN-§3 08:16
READY LINE INTERLOCKS
TEST 8

017000
017004

013702
006302

002260

023701
003402
000137

002260
017546

017020

005037

002240

017024

012746

020400

01703&
017036

010500
104417

22646
22647
2248
2249
2250
2251

017006
017006
017012
017014
017020
017020

2252

017024

(4)

(7)

(6)

(3)
(&)

(&)

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

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

017030
017040

017044

017044
017050
017054
017060
017062
017066

017070

0127646

000004

013746
012746
012746
010600

002260
020455
000002

LUNIT,R2
R?

(MP LUNIT,R1
BLE 3%
JMP &S
LET FLAG := #0
(LR

FLAG

PRINTF #PAPRSW

MOV

000001

062706

104417
062706

1%:

MOV
ASL

NPAPRSW,=(SP)

MOV

#1,-(SP}

ADD

#,5P

MOV
MOV
MOV
MOV

TRAP
ADD

LUNIT,=(SP)
SPAPSW1,=(SP)
#2,-(SP)
SP,RO
(SPNTF
#6,SP

MOV
MOV
MOV
TRAP
ADD

#PAPSW2,=(SP)
#1,-(SP)
SP,RO
CSPNTF
¥ ,SP

MOV
TRAP

SP,RO
CSPNTF

PRINTF #PAPSW1,LUNIT

000006

PRINTF #PAPSW2

017070
017074
017100
017102
017106

012746
012746
010600
104417
062706

(3)
(3)
(&)

017110
017112
017114

104443
000404
002240

TRAP
BR
.WORD

C$GMAN
10000%
FLAG

(5)
(5)
(3)

017120
017122
017124

006752
100000

.WORD
"WORD

READY
100000

2255

(5)

2256
(&)

017110

017116

017124

002304

2259
2260

017136
017299

(7)

(6)

017200

017204

005237

002242

023727

002242

000101

002242

000202

002242

000303

001410
023727
001404
023727
001024

(&)

01723

012737

017234

017242

LET LINCNY

003124

:= #2

MOV

#2,LINCNT

CLR

ERRFLG

REPEAT

INC

cMpP

50204$:
000014

T$CODE

: LINE COUNT WILL ALLOW FOR 3 PAGES OF PAPER

LET ERRFLG := #0

50203%:

017212
017214
017222
017224
017232
017234

2263

002242

0172136

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

2262

100008:

005037

017136

2261

"WORD

017132

2258

GMANIL READY, FLAG, 100000, YES

006130

000002

017132

(3)

000004

012737

2257
(&)

020535
000003

017124

SEQ 0069

BEQ
cMP
BEQ
CMP
BNE
MOV

QUTPUI #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%
LINCNT, #195,
50205

LET QUTBUF

#14 ,0UTBUF

:= #14

OUTPU] #OUTBUF ,#1,58,LUNIT

: FORM FEED

: OUTPUT THE FORM FEED

CIUNAAQ LNOT1 TEST
CILNAA.PYI
2264

017304

2265

017304

(4)

(«)
(6)
(&)
(8)

DNM( x26.07-563

12-JAN-83 08:1

017304

002242
_
002304

(6)
017322
(10) 017326

005737
001035

002304

(&)

012737

000014

017322

2266

017322

2267

017330

2268

0173%3%

(&)

0176400

2270

017410

2269
(5)
(5)
(5)

(7)

017330

017400

000010
003412
000000

017410

005262

017414

000137

017420

000402

2271

017414

2272

017420

(3)

017422

(2)

(4)

2273
(4)

017422

50206%:

005037

012746

017446

062706

000006

017452

005037

002240

017456

017460
0176464

(&)

(4)

2277
(3)
(3)
(4)

(5)

($)
(3)

2278
(5)
(8)

2279

(4)
2280
2281
Sgg%

017452

017456
017462

017466

017470
017472

017472

; OUTPUT THE F¥F

ERRHRD B.PAPSUI

013746

(002260

012746
010600
1044617

000002

LET ERRTIBL(R2)
INLINE

11002%

ELSE

(LR

50210%:

ENDIF

ERRFLG

MOV

LUNIT,=(SP)

MOV

#PAPRDY,=(SP)

ADD

#6,SP

MOV
MOV
TRAP

#2,-(SP)
SP,RO
CSPNTF

LET FLAG 1= #0

104443
000404

TRAP
BR

CSGM

000130

.WORD

GMANIL READY FLAG 100000, YES

002240

006752

10001¢:

002260

017500
017504

005072
000137

002322
016774

11002%>

LET ERRFLG := #0

LAG

013702
006302

<JMP

50210%

(LR

100000

:= ERRTBL(R2) ¢+ m1

11002%: PRINTF #PAPRDY,LUNIT

020577

017472
017476

017500

QUTPUL #QUTBUF ,#1,5%,LUNIT

JMP

017432

2276

: FORM FEED

#14 ,0UTBUF

017426

(7)

017436
017442
0176444

LET OUTBUF := #14

ERRTBL (R2)

2275
(6)
(3)
(&)

ERRFLG
50207%

INC

017426

: UNTIL FOUR PAGES PRINTED OR IN

If ERRFLG EQ #0 THEN

003060

017426

LINCN L#260.
50206
ERRFLG
50203%

CSERHRD
8
PAPSWI
0

002304

SEQ 0070

TEST 8

.WORD
.WORD
.WORD

017426

(8)

(MP
BEQ
1ST
BEQ

MOV

50207%:

UNTIL LINCNT EQ #260. OR ERRFLG NE #0

ST
BNE

003124

PAGE 19-24

ENDIF

TRAP

2274
(4)

000404

104456

017402
017404
017406

(08:16

READY LINE INTERLOCKS
50205%:

023727
001403
005737
001706

(&)

017304
017312
017314
017320

12-JAN-83

1ooo1s

.WORD

FLAG

.WORD

READY

LWORD

T$CODE
100000

LET R2 := LUNlT SHIFT 1

MOV
ASL

LUNIT,R?
R2

LET aLP(SR(RZ) := #0

CLR
aLPCSR(R?)
JMP 2%
JEXPECTED ERROR HANDLER
JUSI SET EXPECTIED ERROR INDICATOR,

: RESET THE LP (SR

CZLNAAQ {NO1
CZUNAA.PTA

2284

017510

2285

017516

(&)

2286
(7)

017510

012737

000001

017516

005037

002302

017522

042762

120000

01753C

005062

002716

017536

005062

002516

017540

005062

002616

017522

2287

017530

2285

017534

2289

017540

2290
22N

017544

(5)

017546

(4)

(&)
(4)

2292

017546

(7)

017552

(6)

017554

(10)

017554

(9)

017564

(7)
(7)

2293
(5)
(8)

2294
(L)

2295
(4)

TEST
DNMAC X24.07-563
12-JAN-83
0B:16
PAGE 19-25
12-JAN-83 08:16
READY LINE INTERLOCKS
TEST 8

017560
017560

017566

000207
005037

000402

005237

002260

023701

002260

003117

017566
017572

013702
006302

002260

017574

013737

002260

017602

005037

002240

017606
017612

012746
012746

020796
000001

017574

017602

MOV

#1,ERRFLG

CLR

ERRCO

BIC

#ERROR'ACTIVE.STATUS(R2)

LET ERRCOD

002456

== STATUS(R2)

LET

CURCNT(R2)

:= #0

LET CURADD(R2)

:= #0

LET REPCNT{R2)

:= #0

(LR

CURADD(R2)

CLR

REPCNT (R2)

RTS PC
;VERIFY OPERATION OF

i%:

50212%:
50211$:

LUNIT

INC

LUNIT

CMP

LUNIT,R1

LET R2

:= LUNlT SHIFT

8GT

MOV
ASL

LUNIT,LSLUN

CLR

FLAG

MOV
MOV
MOV
TRAP
ADD

FHANRSW,
= (SP)
#,-(SP)
SP,RO
CSPNTF
N ,SP

MOV
MOV
MOV
MOV
TRAP
ADD

LUNIT,=(SP)
FHANSW1,
= (SP)
#2,-(SP)
SP,RO
CSPNTF
#6,SP

MOV
MOV
MOV
TRAP
ADD

FHANSW2, = (SP)
#1,-(SP)
SP RO
CSPNTF
#,5P

CSGMAN
10002%

002260
020770
000002

017652
017656
017662
017664
017666

012746
012746
010600
104417
062706

021055
000001

017672
017674

104443
000404

TRAP
BR

017700

000130

"WORD

2299
(3)
(3)
(&)

(5)
(5)
()
(35

017672

017676

017702
017704
017706

PRINTF #HANRSW

000004

PRINTF #HANSWI,LUNIT

000006

PRINTF #HANSW?2

000004

GMANIL READY, FLAG, 100000, YES

002240

006752
100000

LUNIT,R2
R2

LET FLAG := #0

013746
012746
012746
010600
104417
062706

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

50213$

MOV

017626
017632
017636
017642
017644
017646

017652

50211%

LET LSLUN := LUNIT

002074

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

2298

CLEAN UP THE

PAPER TRAY HANDLE

(LR

B8R

017616
017620
017622

017626

CLR.BY WERROR'ACTIVE

INCR LUNIT FROM #0 TO R1 BY #1

(3)
(&)
(&)

2297

CURCNT(R2)

CLR

017606

010600
104417
062706

:= ao

LET SYAIUS(RZ)

2296
(7)
(6)

SEQ 0071

LET ERRFLG := #1

002304

002260

10002%
:

.WORD

FLAG

.WORD
"WORD

READY
100000

TSCODE

DRIVER PARAME TERS

;AND RE TURN
INYERLOCK SWIT(CH.

CZLNAAQ LNOYV
CILNAA.PYY

H
6
TEST
DNMAC Xx24,07-563
12-JAN-83
08:16
PAGE 19-2 6
12-JAN=-83 08:16
READY LINE INTERLOCKS
TEST 8

2300

017706

2301

017716

(&)

017732

(6)
(10)

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

2302
(8)
(7)

032772
001431

100000

017716
017722
017726
017730

012746
012746
010600
104417

021114
000001

062706

000004

017736
017742

013746
012746

002260
021201

MOV
MOV

017752
017754
017756

010600
104417
062706

000006

MOV
TRAP
ADD

017762
017764
017766
017770
017772
017774
017776

104443
000404
002240
000130
006752
100000

017776

000411

(6)

017746

2%03

017762

(3)
(&)
(4)

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

2304

017776

(3)

020000

(&)

2305

020000

(7)
2306
(4)
2307

020000
020004
020004
020012

2308

020022

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

2309
(5)
(4)

2310
2311

020012
020014
020016
020020

020022
020022
020024

020024

020024
020030
020032
020032
020036
020036

2312

020044

(5)
(8)

2313
(&)

2314

012746

003060

013737

002250

002074

TRAP
BR
.MWORD
.WORD
.WORD
.WORD

ELSE

MOV

50215%:

ENDIF

ENDINC
BR

000654

50213%:

005237

002260

023701

002260

020044
020050

013702
006302

002260

020052

005037

0062240

020056

#HANRDY ,=(SP)
#1,-(SP)
SP,RO
CSPNTF

TRAP
.MORD
LWORD
LMWORD

002260

020052

MOV
MOV
MOV
TRAP

INC

104456
0000
003455
000000

003107

381115 SLP(SR(R2)
502148

MOV

502164%:

00526¢

811
BEO

ADD

10003$:

005037
000402

020042

002322

000002

020022

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

(9)

xr #BIT1S SETIN SLPCSR(R?2)

017706
017714

017736

SEQ 0072

THEN

PRINTF #MANRDY

#4,SP

PRINTF #HANRD1,LUNIT
LUNIT,=(SP)
#HANRDT,=(SP)
#2,-(SP)

SP,RO
CSPNYF
#26,5P

GMANIL READY, FLAG,
CSGMAN
10003$
FLAG
T$CODE
READY
100000

100000,

YES

50215%

LEY ERRTBL(R2)

:- ERRTBL(R2)

ERRTBL (R2)
LET LSLUN := LUNIT
LUNIT,LSLUN
ERRHRD 9,HANSWI

+ m

(SERHRD
9
HANSWI]
O

50212%

JVERIFY OPERATION OF FRONT DOOR INTERLOCK SWITCH.
INCR LUNIT FROM #0 TO R1 BY M

50217%:
50216%:

(LR
8R

LUNIT
50216%

INC

LUNIT

(MP

LUN]IT R

861

502208

LET R2 := LUNIT SKItT 1

MOV
ASL

LUNIT,R2
R?

LET FLAG := #0
(LR

PRINTF

FLAG

#DOORSW,LUN]T

CZUNAAQ LNOY
CILNAA P
(8)

1_.6

TEST
DNMA( X26.07-563
12-JAN-B3
08:16
PAGE 19-27
12~-JAN-83 (8:16
READ’ LINE INTERLOCKS
TEST 8

020056

013746

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

020062
020066
020072
020074
020076

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

020102
020106
020112
020114
020116

012746
012746
010600
104417
062706

020122
020124
020126
020130
020132
020136
020136

104443
000404
002240
000120
006752
100000

020136

032772

2315

2316
(3)
(3)
(4)
(5)
(9)
(5)
(3)

2317
(6)

(10}

020102

020122

020136
020144

2318
(8)

020146
020146

(3)
(6)
(4)

020162
020166

(7)
(6)

020152
020156

(%)
(3)

2321

(4)
(3)

2322
(7)

020212

020212
020214

104443
000404

0202264
020226

100000

020216
020220
020222

020226

#D00SW1,~(5P)
#1,-(SP)
SP,RO
(SPNTF
8, SP

TRAP
B8R
.WORD
.WORD
.WORD
.WORD

CSGMAN
100048
FLAG
T$CODE
READY
100000

IF #BIT15 SETIN aLPCSR(R2)
#B1115,3LPCSR(R2)

MOV

PRINTF #DOORDY,LUNIT
LUNIT,=(5P)

eta

021354
000002

000004

SP,RO
CSPNTF
#6,5P

MOV
MOV
MOv
TRAP

#DOORD1,=(SP)
#1,=(SP)
SP,RO
CSPNTF

TRAP
BR

MWORD
.WORD
.WORD

10005%:

.WORD

ELSE

020230

005262

003060

020234

013737

002260

020242

104456

TRAP

003530
000000

.WORD
.WORD

020230

020242

(9)

020244

020246
020250

000012

502218%:

INC
002074

50221%

MOV
MOV
MOV
TRAP
ADD

ADD

002240
000130
006752

THEN

BIT

000411

2324
(5)
(5

MOV
MOV
MoV
TRAP
ADD

020226
020230

020234

(&)

062706

002322

002260

021423
000001

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

GMANIL READY, FLAG, 100000, YES

100048

012746
012746
010600
104417

2323
(64)

010600
104417

000004

100000

LUNIT,=(SP)

MOV
MOV
MOV
TRAP
ADD

PRINTF #D00SW1

021324
000001

020172
020176
020202
0202064
020206

(4)
(5)
(5)

012746
012746

)
0000u6

000C06

(4)

(3)
(3)

013746

MOv

021247
000002

062706

020172

2320

001431

002260

020166

2319
(7)
(6)
(3)
(&)

012746
012746
910600
104417
062706

SEQ 0073

MOV

.WORD

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

PRINTF

#DOORD1Y

6, 5P

GMANIL READY, FLAG,
(SGMAN
10005%

100000, YES

FLAG
T$CODE
READY

100000

50222%

LEY ERRIBL(R?)
ERRTBL (R2)

:= ERRIBL(R?)

LET LSLUN := LUNIT
LUNIT,LSLUN

ERRHRD 10, DOOSWI
CSERHRD

DOOSW!
O

¢+ #1

£ NANN OO O OO NNV
OO NIONININLOONINININY

AN WNIANIANND
NN NN NI AU NNV

OCOCOOO0QOOO0OOOO
RUNINONVNDNOANINONONOMNONINOND

©o

—

08:16

X%264.07-563

012772

000000

12-JAN-83
(08:16
PAGE 19-28
READY LINE INTERLOCKS
TESiI 8

002322

000664
012737

00001¢

004737

005246

003124«

SEQ 0074

ENDIF

LET aLPCSR(R2)

MOV

:= #00

#00,3LPCSR(R2)

END INC

BR
50220%:
LET OUTBUF
MOV

50217%
:= #1¢4

#14 ,0U"BUF

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

106432
001116

TRAP

CSEXIT

(10017

JMORD

b \ Y =

OO =N = PNININYO — = NN
SN =2 = SO NN B PD) = N =) —

2 \ NSV b e cead
B \ NN
b
A

NIV,

NI NNV
O NI = OMNNVO

DOOOOO

WP SV 1
[l

kLW W

COO0O0OOOOC

o0 [=]lelelaleleleles]le
% (VL
F Wo Y NIV TV B o o
- N ~NONIMNVNIWNON
AN LS cd NS NN\ N IS —

NIV F ), ]

NLIST BEX
Pt OO
=200 NO
[V 1V, To IV P Yl
o Y. P PRIV, P

2 OO0~ 0~~~ N
AW~
o OO NN
—

DN MAC

50222%:

NPV
NN =O OO ~NO VIS AN =2 OOV
W =00V~ NS

NT NN, V1, V1,V L, S [, V]

[ ]

N AW AN AN AN N AN AN
S AN
N WA S SN~ N —~
N NN NN NN N INWNN AN £ N SN0 S »

LS IA AN S LN L NT T N1, NT, ST N1 NI ST

WM AN AN LN LA AN LN L
N AN AN LN LN AN AN AN N~ o~ AN AN NN N AN AN AN AN AN WA AN AN U
O OO O NNV WNWVNAWNMWNVWA
N S0 f &5 55 £ BN £
~NN oo

ALRLAUNLAINLALALNL
AL NVNUAL AL NI

(A
SV
—e

OCOO0O0COO0OO0OO0OOO0O0O00O

2325

e laal

-ar
2

(ZUNAAQ
CILNAA
P

INTLK:

.ASCIZ

/READY LINE

PAPSWI:
PAPSW2:
PAPRDY:

.ASCIZ
.ASCIZ
.ASCIZ

/Y%AWITH EXCEPTION OF ONE PER TRAY ON LUNIT ZD2IN/
/X%ATO CHECK PAPER OUT INTERLOCK.IN/
/XNYARESTORE PAPER,
CLEAR, PLACE LUNIT ID2%A ON LINE.IN/

HANRSW:
HANSW1:
HANSW2:
HANRDY:
HANRD1:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/INYATURN PAPER TRAY HANDLE COUNTER CLOCKWISE TOXIN/
/XAHORIZONTAL POSITION UNTIL IT STOPS, ON LUNIT XD2IN/
/XATO CHECK INTERLOCK SWITCH.IN/
/YINYARETURN PAPER TRAY HANDLE TO VERTICAL POSITION,IN/
/XACLEAR, PLACE LUNIT ¥D2%A ON L INE.3IN/

000SW1:
DOORDY:
DOORD1:

.ASCIZ
.ASCIZ
.ASCIZ

PAPRSW:

PAPTST: .ASCIZ

DOORSW:

.EVEN

104601

.ASCIZ

.LIST BEX
ENDTST
L10017:

TRAP

/INYAREMOVE

INTERLOCK TEST 9/

ALL

2><12>

PAPER FROM BOiW PAPER

TRAYSIN/

/PAPER OUT TEST/<1d>

/INYAOPEN FRONT DOOR ON LUNIT XD2%A TO CHECK /

/INXAINTERLOCK SWITCH.YN/
/YINXACLOSE FRONT DOOR ON LUNIT ¥D2%A,IN/
/%ACLEAR, PLACE ON LINE.IN/

(SETST

ENDMOD

LSBTTL

021460

BGNSRV

INTERRUPT SERVICE ROUTINES

sINTERRUPT VECTORS ARE ESTABLISHED DURING INITIALIZATION
sPOINTING

THE

BASIC

ROUTINES WHICH

JSET UP THE UNIT NUMBER CAUSING THE

LINE NUMBER IS RETURNED IN R?

021460

000000
000020

§:5

INT00:

LREPT 16.
SETPR] #PR104

PUSH

LET R2 :- #x

INTERRUPTS,

08:16 PAGE 19-29
DNMAC X26.07-563 12-JAN=83SERVIC
E ROUTINES

(ZLNAAO LNO1 TEST
12-JAN-B3 08B:16
CILNAA. P
2372
2373
2374

012700 000200
104461
010246
0127C2 000000

#PR104,RO
C$SPR]
R2,=(SP)
X, R2

000200

MOV

#PR104,RO

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

#PR104,RO
C$SPRI
R2,=(SP)
#x,R2
JODRV
#PR104,RO
C$SPRI
R2,=(SP)
#X,R2
10DRV
RO
#PR104
($SPRI
R2,=(SP)
#X,R2
]0DRYV
#PR104 RO
C$SPRI
R2,=(SP)
’x,R2
10DRY
#PR104,RO
($SPR]
R2,=(SP)
#X,R2
10DRY
#PR104,RO
($SPRI
R2,=(SP)
#X,R2
10DRY

(&)

021500 012700

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

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

(3)

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

(4)
(3)

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

(3)

(4)
(3)

(5)
(3)
(4)
(4)
(3)
(5)
(3)
(&)
(&)
(3)
(5)
(3)
(&)
(4)
(3)
(5)
(3)
(4)
(6)
(3)

021504
021506
021510
021514

021520
021524
021526
021530
021534

021540
021544
021546
021550
0215564
021560
021564
021566
021570
021574
021600
0216064
021606
021610
021614
021620
021624
021626
021630
021634
021640
021644
021646
021650
021654
021660
021664
021666
021670
021674

021700
0217064
021706
021710
021714
021720
021726
021726

.ENDR

10DRV>

MOV
TRAP
MOV
MOV

021460
021464
021466
021470
0214764

INTERRUPT
INLINE <JMP

X=X+2

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

(3)

K_6

000137

104461
010246
012702
000137

004466

000002
004464
012700 000200
104661
010246
012702 000006
000137 004464
012700 000200
104441
010246
012702 000006
000137 004464
012700 000200
104441
010246
012702 000010
000137

012700
104441
010246
012702
000137
012700
104461
010246
012702
000137
012700

104461
010246
012702
000137

004464

000200
000012
004464
000200
000014
004464
000200

000016
004464
012700 000200
104441
010246
012702 000020
000137 004464

012700
104441
010246
012702
000137
012700
104441
010246

000200
000022
004464
000200

JMP

TRAP
MOV
MOV
JMP
MOV
TRAP
MOV
MoV
JMP

MOV
TRAP
MOV
MOV
JMP
MOV
TRAP
MOV

10DRV

C$SPRI
R2,~(SP)
#X,R2
10DRYV
#PR104,RO
($SPRI
R2,=(SP)
#X,R2
10DRV

#PR104 ,RO
C$SPRI]
R2,=(SP)
nx,R2
10DRY
RO
#PR104
($SPRI
R2,=(SP)

SEQ 0075

TEST

CZLNAAO LNO1
CZUNAA.P1Y

[a"]

DNMAC X24.07-563

12-JAN-83 08:16

N
M
O
N
eNTONIWMONNVONMAMNOAO—S eANIR[g~iL1t052

[al]oNSeileleeedolelelleeele

000034

2700

000200

137

6
50
54

010246
012702
000137

004464

000036
004464

12-JAN-83
08:16
PAGE 19-30
INTERRUPT SERVICE ROUTINES

SEQ 0076

[aXem]

LNAAOQ LN01 TEST
LNAA.P1Y

DNMA(C X24.07-563

12-JAN-B83 08:16

12-JAN-83

(08:16

m_6

PAGE 19-31

SEQ 0077

CLOCK SERVICE ROV INE

%%;g

SBTTL CLOCK SERVICE ROUTINE

2379
%%g?

UPDATES THE COUNTER AT A RATE OF 16.67 M]L ISEC NDS PER TICK
sAND UPDATES
A SECOND COUNTER WHEN THE FIRST OVERFLOWS.

2382
2383
2384

022060
022060

2385

022066

2386

022074

2387

022102

2388

022106

2387

022106

(3)
(3)

(6)
(10)
(4)

(7)

(4)

(7)

022060
022064

012700
104441

000300

022066
022072

005737
0019005

022134

022074

012737

000074

0221J2

005237

022132

005337

022134

022112

023727

002266

000002

000100

160142

022120

001003

(&)

022122

012777

022122

50224%:

022130

ENDSRV

2§g%

022130

000002

2396
2397
2398
2399
2400

022132
02213&¢

000000
000000

022136

L10021:

TIME:
TIdK:
.SBTTL
BGNMOD

LET TICK

:= #60.

LET

:= TIME

LET TICK

LET ICLKCSR := #100

ENDIF

JAND EX]T
RT]
.WORD
O
WORD
O
HARDWARE PARAMETER SECTION

INCLUDES THE QUESTIONS WHICH REQUEST

(022136

022136
022140

26410

022150

000010

022140
022142
022144
022146

000031
022160
160000
177516

022150

00103%1

022152

02275

BGNHRD
LSHARD::

.WORD L10022-L$HAR"
/2

GPRMA

GETADR,0,0,160000,177516,YES

GPRMA

GETVEC(C,2,0,110,770,YES

.WORD
.WORD
.WORD
.WORD

.WORD

T$CODE
GETADR
TSLOLIM
TEHTL M

T$CODE

GETVEC

YHE OPERATOR

INFORMATION NECESSARY 10 BuUILD THE HARDWARE

(022140

(&)

#100,aCLKCSR

tee

2409

(«)

;BACK UP SECOND TIMER

CLKTYP,
#2

;P=-TABLES.

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

+ #1

:= TI(k - #1

50224%

24604

(3)
2£3é

;60 TICKS PER SECOND

T1(K

sFURNISH THE HARDWARE

2405

2407

TIME

BNE

she
JTHIS SECTION

2406

TIME

CLKTYP EQ #2 THEN

2401
2402

2403

#60.,TICK

MOV

022130

TICK EQ #0 THEN

ENDIF

CMP

2393
2394

022130

T1CK
50223%

DEC

022130

(3)

TST
BNE
MOV

2392
(4)

#PR106,R0
(SSPRI

INC

022106

(10)

2391

022134

50223%:

(22112

SETPR] #PRI06

MOV
TRAP

022106

2390
(6)

BGNSRvV
CLKTCK:

CZLNAAQ LNO1
CILNAA.PYT

TEST
DNMA( Xx24.07-563
12-JAN-83 (08:16
PAGE 19-32
12=-JAN=-83 08:16
HARDWARE PARAMETER SECTION

(&)
(4)

022154
022156

(2)
(3)

022160

2611

2412
2413
2614
2415

022160

00011C
000770

ENCHRD
L10022:

050114
111

030461
052116

24616

O
0

.SBTTL

2419

gz%;

JTHE

2420

2423
2624
(3)
(3)

2425
(64)
(6)
(4)

022216

022216
022220

000010

022220
022222
022224

000130
022240
000001

022226
022230

001052
022276

022234
022236

000001
000377

022220

022226

(&)

022232

(4)
(&)

2427
(2)

(3
2428
2429

2430
2631
2432
2433
2434
2435
2436
(2)
(4)
(4)

(3)

2L3?7

2438

/LP11 ADDRESS/
/INTERRUPT VECTOR/

SOFTWARE PARAMETER SECTION

JTHIS SECTION INCLUDES THE QUESTIONS WHICH REQUEST THE OPERATOR TO FURNISH

2626
(4)
(4)

TSLOL IM
TSHILIM

.NLIST BEX
GETADR: .ASCIZ
GETVEC: .ASC1Z
.LIST BEX

LEVEN

gz}g

LMWORD
WORD

SEQ 0078

022240

SOF TWARE

.
BGNSF1
LSSOFT::

052522
052501

022324
000020
000000
000000

000001

GPRML

MGTINT,0,1,YES

GPRMD

GETMAX,2,0,377,1,255.,YES

.WORD
.WORD

.WORD

ENDSFT

020116
047524

.WORD
LWORD

GE TMAX:
SCIZ
LLIST BEX
.EVEN
:

LSLAST::

ENDMOD
LEND

THE

T$CODE
MGTVINT
1

T3CODE
GE TMAX

377

TSLOLIM
TSHILIM

.EVEN

1L10023:
NLIST BEX
MGTINT:
SCIZ

PAT(H:
LASTAD

TO BUILD

.WORD L10023-L%S0fFT1/2
LWORD
.WORD
LMORD

000377

INFORMATION NECESSARY

/RUN MANUAL INTERVENTION TESTS/
/AUTODROP ERROR COUNT/

.BLkWw

.EVEN
.WORD
MWORD

0
O

SOfFTWARE

P-TABLES.

T}TRTRTRTRI VBTTTTTTTOTTLTTTTTTTTLI nnan
[

NODO =M OGO — MM r— — ~

1| —ONONIN —ONININY =AY = e o

COrbroEdOad0TedOo0IMOTNO]o]oDO)(OeNO2teOtoOteOGOS00eOPtSOt0QgOG0teOt0)Ogt=~tAetNGItTBtO=tOeOtO5t05Oto0tOotO40O)(/0OC
CZUNAAD LNOY1
CZLNAA.PYI

8
TEST
PAGE 20
-83
DNMAC X%24.07-563 12-JAN
4
(8 116
12-JAN-83 08:16
S
CROSS
REFERENCE TABLE == USER SYMBOLS

SEQ 0079

OO OOWVO O

-«&8

TEST

12-JAN-83 08:16

DNMA(C x24.,07-56

}

GE 20-1

2000

1578

1588

1090«

bl o

z
(R
CSRERR
CTLEND
creLop
CURADD
CURCNT

L 2N 2

B [\ § e e e

COUNTD

SeEa 0080

1522

CLKVEC
CLOCKP
COUNT

== USER SYMBOLS

- et NIPIAN
=2 O~ I
PN OO
—
WO 00O = = QOO
O

CILNAAD LNOYV
CZILNAA.P1Y

[V, [, %]
oo

(54X

—

($AU
=
C$AUTO= 000
($8RK =

1623

¢80

2097

o~ 00

~NO

—

nNO

—

&S~
L2l
o~

000060
000054
000057
000010
000005
000003
000001
000032
000026
000027
000043

1040

—

($ERRO=
(SERSF=
C$ERSO=
(SESCA=
(SESEG=
($ESUB=
(SETST=
CeEX]T=
($GE 18=
($GE TW=
C(SGMAN=
($GPHR=
($GPLO=
($GPR]=

1035

1875

- )
(V1
N]
~NW
Hun

000056

2316

N
—a

Own

M) =

—tn

oo~

~n) —

000016
000015
000377
000007

—

($PNTS=
(SPNTX=
(%010 =
($RDBU=

N
b
NN

000014
000017

(SOPEN
(SPNTB
CSPNTE

N =
NN

2205

FSAUTO
F $BGN
FLAGDA
FSAU

ERR1Y

010504
010560

=z 000004
EvL
ESEND = 002100

f AKE
fF
FLAG

ESLOAD= 000035
005422

000014
002240

004456
000015
000020
000040
X

ERR13
003060

ERR12

ERRTBL

010643

1632

—

)

— e e (N =2 PN\

2255

1084+

1093
11044

727
1638
1647

802
%

1377«
1512+
1559
1610+

2276
2277
2295+

2313

1661

806

——

9,19,

RPN

&Hon

—

oo
OO
~NO~

—

OO OO OO0
OO OTM

OO N OO
OVOOOL OOVO0O
RER
Bz
aa

1239

1558
1623+
1983+«

1575
1628+«
1986+
1585
1689+
199Q¢

'\JN

2155
2175+

1231«

NSNS WO
200N
NO

NINVND)
— —

GE 20-2
== USER SYMBOLS

—

2152¢
2167+

1224«

2151«
2166+

1615

2150
2165+

1513«

~IA

®»

1614

1622

—

[2N
J

OHNONO
WO
OO
VB OO =) =
O

2149«
2162+«

1510
1439«
1978«

2284+

—

1213

[eal".]

2273+

—d

WHS NN
»

1510

PUN)
= b 2
=
==200WwWMNonoN)

b
O

— e b

O W
IV V]
MNOOD

LE X R X X

1405

BN =AUV
= wd =2 ) =b
WO
= O 00NININY
—

»>

0000
OO = WO ~NO

N =ARUNIN)
= ed b)) b
O
—=2ON —=NO
NWONWNNO SV

N —

1294

1379«

—

1230

b ok =B 1) =

O WWOOWNGD
= NOO

2251

O 00

2212+

1368

OO MNOMN =ON—ONO
(W I TV L NIV T NV IV IV To XV ¥ XV I

OV
NONY

1541
M=
WO

W= NO
o0
SswW—20O

727

1298¢

o
oo

—

00305¢

[o )

874

OO0 0000000000
= OO0 WO WWWNNOO

DNM
12-JAN-83 08:

TEST

ERRSVC(

ERROR

—

000

-0

ad ol

= 000

COWEENO
RO O WVNNON—=O
T ST LSV U PP X 2« - BVY SV [V,
OHNLWVNVOOONI
-0 O

[aTaTAaTal~)

B AP e

[elalelele)
NO NN

CZUNAAQ LNOY
CIULNAA. P
SEQ 0081

2374

17420
1997+

CILNAAC LNOY
CZULNAA. P

TEST

n:
x26.07-563
ONMA(
12-JAN-83 08:16

-83

08 :16

FERENCE

PAGE 20-3

TABLE

== USER

SEQ 008¢

SYMBOLS

A[1]elTbeoBelIeIlGolLAelTbieeITolYboleToleLolelbe1]leTAleeTleLileI) OoOb0-"

[O~N«eNleOolraoVle0rlOoOliOOelrVeNOlOe—lMoOleRAlaNOlOWeVleNNOlOoMOleA)OV]OMOMNV0OO3—0NO0NO

—-oa0M]o[-L>eleleo0-~lN—e-cloBolol~e—loNOoMVlJy\NaeAlMoTOeNoM(o-el=N—TalelTe[l~0YOVNoMtl—OOyrN-M—aNe[O@—N10e[OVMo—y=Ylel«a)0a~¥TNDaoVOwy]M[—~~aNd

RPAAANAARA —CVa<I-BAWIDOZXOEZDOICwwV—O&oXax0v~Vdu>0 [=[eleaaeBNlleooeololol)ls] 0—oNyN SeRyN —N-er—0N~y NOSM~ONMI0NEN [NTeO)~o2—wel0-[eaoVO—l~30l]XV.a 0o—-N0y YNO[VLalJoa—g¥A]lVaDl

022160
022276
022175
000200
000372
G$DISP
000003
GSEXCP= 000400
G$HILI= 000002
Gs$LOoLI= 000001
GSNO
000000
0CJ400
GSOFFS
63$0fFSI= 000376
G$PRMA= 000001
G$SPRMD= 000002
000000
GSPRML
GSRADA= 00140
GSRADB= 0600000
000040
GSRADD
GSRADL= 000120
GSRADO 000020
GHXFER
000004
GSYES
000010
HANRDY
HANRD1

HANSW
]
HANSW1

HOE

0 IOOMNM

GETADR
GETMAX
GETVEC
GSCNTO=
GSDELM

1346

1568

1599

1609

2277

2299

2303

2316

2320

24625

2299

2303

236

2520

2425

2299

2303

2316

2320

2409

2277

2410

2625

2426

TEST

DNMAC Xx24.07-563

12-JAN-B3 08:16

122=JAN-83

:16
08:1

FERENCE
SS
REFE
CROSS

F
7
PAGE 20-4

TABLE

== USER

SEQ 0083

SYMBCLS

- R K& &N

—Ae—0=uny—M0oy ([o¥]V-]0y[ -O0M\ O~yNtON——

OoQO1Mla20—V0a"Oo[a¥L0NL0al’~s¥)(-O=]oWQMOONo]oo[9W¥]-0OVo0YWV,MOa(~Vn1

CIUNAAD LNO1
CIULNAA. PN

L2k3-Rz%A

Pe[0lN)OoQ]—~eMNo ealOraNM=—aLVlY[oe-~0FOweLlV—.ala NVO~o)aN—OM0et—NOWsV~NlA[a0go¥d]-0ew—,)
%u

CZULNAAD LNO1
CILNAA.P1Y

LPINTR
LPVEC
LSTONT
LUNIT

002756
002362
002244
002260

9364
9124
866N
8728

1983

L$ACP
LSAPT
L$AUT
LSAUTO
Le$CCP
LSCLEA
L$CO
LSDEPO
L$DESC
LSDESP
LSDEVP
L$DISP
L$OLY
L$DTP
L$DTYP
LSOUT
LSDVIY
LSEF
LSENV]
LSETP
LSEXP1
LSEXPL
LSEXPS
LSHARD
LSHIME
LSHPCP
LSHPTP
LSHW

002110
002036
002070
002226
002106
007232
002032
002011
002152
002076
002060
002132
002116
002040
002034
002072
002212
002052
002044
002102
002046
002064
002066
022140
002120
002016
002022
002222

LSINIT

005456 G

LSICP

LSLADP

LSLAST
LSLOAD

LSLUN

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

002104 G

002026 G

022370 G
002100 G

002074 G

2261
2297
680#
680#

680#
680
6804
680
6804
680#
680
6804
6804
680
6804
6804
6804
680#
680
680#
6802
6804
6804
680
680#
689
6804
6804
680#
680
6804
680
680#
680
o80#

6804
}g;%-

1395s
1389+

1396
1396

1480
1480

1596

1607

1547+

1550«

15§52

1556

1560

1576

22440
2302

2245
2306

2%47
2511

2%53
2372

2%59
23514

2%63
2518

1346

1568

1599

1609

1039«
1376

1045+
1505«

1188+
1508

1191«
1560

1986

G02050
002000
002042
002122
002112
002062
002010
022220
002056
002020
002024
002030
002234

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

6804
680#
680#
680
6804
680#
680#
680
6804
5804
6804
680#
680

1990

1992

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+

2268
2323

2275

2278

2292«

2293

2¢9

7274
1500#
702#
6984
1228

7034

24L07H

7164

33
24364

1034+
1374

LSMREV
LSNAME
LSPRIO
L$PROT
L$PRT
LSREPP
LSREV
LSSOFT
L$SPC
LSSPCP
LSSPTP
L$STA
L9SW

116
PAGE 20-5
TEST
DNMAC Xx24.07-563
12-JAN-83
08:1
12-JAN-83 0B:10o
(ROSS REFERENCE TABLE == USER SYMBOLS

685#

26248

7408

CILNAAD LNOY
CILNAA. P

TELT

unmAL X24,07-563
12=J AN-83
08:16 PAGE 20-6
12--JAN -83 08:16
tRUSS REFEREN (t TABLE == USER SYMBOLS

QO00000aaa222220JELEZTIASDAADDADDADD-t

SEQ 0085

1187

®r

745
1440

1316

1353

1272

1478

1504

1542

1974

2213

14
9
1

1455#

15614

17274
17694
19484

7
3

14
4

8
5

9
5

TEST

DN MAC X24.07-563
12=-JAN -83 08 :16

:16
08:1

RENCE

PAGE 20-7

T ABLE

== USER SYMBOLS

SEQ 0086

o4%eLLQ--(LLO&ea=u3nOO(UMMIONVOOMMNNOMMJNNI©Y|—NquO-MVnS—0«-a~«O~-sN—O0O0O0Oe0—yN0[Oo~=]0OC¥LO0O0—O0saONNsOOAe«Ne—«—W0—OOC—O»uNunn

CZUNAAD LNO1
CZUNAA. P

>> > >—=>Or—rw—WLwihibwXXE=DXTI 0X A2

OINSOOWNWNOMNOM0OOr—=MunON[—a¥1MaV]WN~ToMyawOMNN—OONGOo

—OXLQA-N>eomAeLdteAa~wCreLCepLCLmXwW>w[2BWOUIMdDNZMwNO«0A~2T—Cdr—DT"N1[U]R) ReBRP&2-¢RsIR_NkReERR V.oegIOlWNOAOroIal0VMOVeYI—]ON—N

9OVIOV «-.sea T)-R cs-

(daLXRolgaVkL—~lATEeRES L2FOIoVWaVMlIaN®l—)N N-SOICgN—LOuM0aN

TEST

DNMAC x24.07-563

12-JAN-83 08:16

TABLE1
TABLE2

TABSTR
T1(K
TIME

014210
014244
014622

022134
022132

TIMouT= 000002

TXERK

003627

TXNOIN
T$ARGC

000001

003701

T$CODE

001052

TSEXCP
TSFLAG
TSGMAN
T$HILI=
TSLAST=
T$LOLI=

000000
000040
000000

TSERRN= 000072

TSLSYM

000377
000001
000001

010000

000010

1$L INO
TSNEST=

(J0000

TENSO

000010

TENST

000000

TENS2
T$PINU
T$SAVL

000005
000000

1$SEGL=

177777
177777

T$SUBN= 000000

974

SEQ 0087

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

O—NMVO0

22784
7314

2188«

17614

1875«

AWONI0NV—

1541#

16834

1738#

1798#

19704

2254#

22758

2009

2083«

21778

2207#»

2210#

2331»

1643

1650

1e61

1727

1769

1948

2048#

2135#

OCO2MODMOD<2A

e(OI—N=rO

O N N — eMO

CZLNAAQ LNOT
CZLNAA. P

22968

2033

000001

T$1STS =
1$8AUT=
T$S _LE
TSSHAR
TSSHW

010005
010022
010001

T$$PRO

010000

010002

T$SINI= 010004

OMU—M veCU=—NJINYONY

S#
n

B l » RPR E R =

Ny oN- e~=N-

M
wMMMo
~o-

MII Y
8 NMMOOOOOI
ITVONNM OAI
OCOOCO MANOMN

0—=O\
R
k
=N-\

16834

17384

1798#

O3NFTO—

So#

SEQ 0088

OO —
MM

000000

TSTEMP

:16
PAGE 20-9
08:1
12-JAN-83
D NMA{ X264.07-563
12-JAN-83 08:
8:16
(ROSS R EFE
FERENCE TABLE == USER SYMBOLS

1 $ TAGL= 177777
1 $TAGN
010024

TEST

NN
Rk

CZLNAAQ LNOY
CILNAA.PI

[¥—]0—

LaNoJVRTaX)T

TEST

DNMAC 224.07-563

12-JAN-83 08:16

SEQ 0089

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

OSNUM

NOOMWUNONO

R0O—UMONIW NOMOWNOM.

O—\NWN—
O MO
OJOJO\ — ev == -

Oe0N—=MNOIVNWN

L£1R

3—Ne——ONFIWNM0NA~I—N L2.233 eNO-—~ L-03.3.35.030-23 OINeEE~N OTA=NINM—yNMN

$ERFLG- 000400

$FSAND= 000310

$F $BAD = 000401

A
— OO OON NN

Le=O~NNMNeONN(MNNOVNIeD—eO~eINee=—eMO=eWOMe—-VNV
0N—e— N= = -

WO~ANIMNONIWNINON

"nn

O
O
v
0
O
0
O
0
O
0
O
a
G
O
0
V
0
o
S
Y
f
R
}
N
o
Y
V
N
o
[
T
a
T
T
]
o
V
I
g
T
o
T
a
ONOMP=M

O
e
—
M
N
M
I
N
O
N
O
N
—
N
OOO0OMOOOR
0RI~
MTNIe—NOMIMNNOOGNNOYINOTPONNM—2A0NNINNOMN~FONTO0E
VNAOOMNN e ~ NOe—aD RNOeRMVOVFNOMRNRIRCPTPBNOO ROIPMNE_INRNROAIORSNEO=RTN NNO OO
TOO

V]oVTooVVToVIR[ogVTNVToTVaoVTVTa

CZUNAAD LNO1
CZILNAA. P

R®tk

n
R
N

n
"
»
N

eOWVAMWN

gPe—

SEQ 0090

DNMAC Xx24.07-563 12-JAN-83 0.:16 PAGE 20-11
CZLNAAO LNO1 TEST
12-JAN-83 08:16
CROSS REFERENCE TABLE == USER SYMBOLS
CZLNAA.PI

ONTNA~

)

$f€L00- 000200

$F INAM

6614

TONIOOR—=ONMODTONMNONAN

ONN— eOM O
000170
000150
000220
000340
000405
$f $G00= 000400

000160

O
NN O OO OONIN

[a¥] dVele BX S Tanl. oRVe RN JoVT o], ¢ JoV]

$F $BLA=
$FSCAS
$F $DEC
$F$D0
$SFSFAL

eTO0MNO—0 OWNIOSN—=WIONIMN WMO0N O-eV
—ONWVMNMN0

CZLNAAO LNO1
CILNAA.PI

TEST

DN M?g X26.07-563

12- JAN-83 08:

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

1316

[o4IV [ — 0\J

0—N

1220
1692

1630

1631

1982

gO—MUNOMNONOWVNA—ONIR T 3[e ad
— 0ol[iVaY, aNnO

]oAVLl

V] g Val Ll

— —0 OMe— -0 O¥~

— — 00— o

1319

1483

OsctLargodNLa.SItaNtlIodMofal’NLol«e£LalkXO<Val

MOINMNNN N~IN2OWFA0D ONISNOIrINUI—MN NO—IUOMeNWC=OALO gPeG—p~r(NO—I=ImFONIMOMOTDIAN=MUWN qgPG— TaL&1PB2l-KoNVaXRtlol,a ONCIWIWV
1479

—O2O—OO=MNDNINN=NMO=FS MNMAINIONPINMODTvVOvAOWNA

3> X[¥9] v— oOoO[g4 [&aV)IN

-0\

OO rm e — ON ONINIMPM I S NN O
NOOO

$FSTRU = 000404
$FSUNT= 000130

N0
o2Ve} ["aXaV¥]

000140

$FSTHE= 000330

$FSSEL

M N ON— O ONINAN OO
N TN

$FSRTI= 000350
$FSRTN= 000300

adad Lod
xsRk

ODMOO NVOTNIOMO POF VWOM OON TOON IVNOIMIMNOONITON

MOOWNAI~NOYTNO 0NNV D=~AITNMO0=NI=OOAORNNO~M

oggeGgPP—g—gg—gggg OMO—UNO—NOWNIOMOMN’OOOMMO~M

«]w[w(2Z]oz[o4« o[(=4o(=} (-NT=—ev) 0MNAMNONe—T0IONONMI~N0IO MVN—O0IAOWVNON=VIN

SEQ 0091

TEST

12-JAN-8
PAGE 20-13
-83
DN MAC X26.07-563
08 116
12=JAN-83 08: 16
FERENCE TABLE == USER SYMBJLS
CROSS R EFE

— OIS o= e =O~—Y

0&O= 85.e5-3.t2.3.. - ~

—[e@]de[] )OC)_OoetON-tN[o=]—~

QNONM0N=MO~NAIWN—ANO0N— O—=ON [=] ~

[l ok AV IaVTa N Ta Vg NTg ¥ g V]

—e NI eN —e— N

— e ONO NIONIOUOUON N~ = = OOV~ o= = (U O\d

gNO2—

— e NN e NI —— O

O~ N ANIM O=N=Iv =NANN\IO=N~W=V(OMv—~=eN =OVOe~(UM.2eNO (ONN IM~OO eOO=evNeeNINeIM33N O
N- D=NN

OMNIAOOON0N (UMOA0N—IRD~NMIVN.

SEQ 0092

NN0W4JVNOo0RKVoO¥TeeLOte—Ne&-RNNro—IVAeoO]=Y.[aM¥—]Vra-T~e 0o—-

CZLNAAD LNO1
CILNAA. P

L>-4 [OO=~CO]N &N=® NO~\=2eVMO—O
8

OM—NIO2 2ON0IANVTMOWMN
ONo¥)IeARV 3 oTVe2 loONMIVAYYOo VLVOLA
OOO—MNCF
=N O WA ONNOMN
IO O NP M=M OMVO NY O —

R&N O0VMMNUIM

M GOM T OO OO OO0 I P —

-Oe=v—V IMONON S0NOOTM—E ONO~NOr ~ON—=oJ\OU WNOVeNM~ O—N=2 [R4o¥JXVaT0NF.VaY

O UM SN OO N

IOO-—MyONNA—OeNOO —IN O-

oY) N RVe]oX. VYo A oalad [

L392|0.5.3-R3

OVNIeNINIMN O—FVeNOWe qgpG—rSNOmQIeIN—IM=

DNMAC

12-JAN-83 08:16

x24,07-563

rOe—NCI0MWI~VNMINAM —OeNrIVO—N=IN~rININrIN

®R
Ruxax R
&n Rk
R

3.8 8. 3 LL

Oa000~

bY
]§
In
I8

L
1»
I
14

bYJ

4
19

Y
byJ

-0y0ye-g-

L3Stt SRty R -(NJe—vOUONY —WNONPO~NOM LX12ER8B (\J—o=O\JO\J

NN MO O NI ONIMN OO NN

SNESTL= 177777

SEQ 0093

AN OONNINONIM O—MANAYIDONIMN

$LSTTA= 000000

12-JAN-83
(08:1
116
PAGE 20-14
4
CROSS
S
REFERENCE TABLE == USER SYMBOLS

NIOMO0OOIPO —VOO0
—OMMIAAMNnNeO=NOP
=O4]XAloV=ed«X4T oRERNRNNOVION[=IBVeooXa4Ul&lakRoVeXaa&llo

TEST

—r—ON OANOe—MNOI MOAONTITM—OCWNN.

CZUNAAQ LNOY
CZIULNAA.P

020110

»
=
®
&
R
&
X
i
a
u
k
=
®
|
B
m
R
NO0VWDO~ MONIWVNeE—e—OMON NUeOM—T [oaVXgIkaN}T COMODNIO——ONO—N oO"U—=\yJ ®BR&|k —NMOIVCNHOTNM

NNO0DNAOOTOW0MNVW=MNOOTMMVNOeOUIO—0A~
OUMMWV OM

$NSK1

[_al

9[VaYe
] 30 [

000110

-0

$NSKO

.
[
l

- [=] o ]

L
ol o ') ~

[JV[LalValYe w—_N—

-— o ~y »

[
ad [aV] 0

15674
19964

1598#

20078

TEST

DNMAC Xx24.07-563

12-JAN-83 08:16

0.8

SEQ 0094

12=JA N-83
08 :16 PAGE 20-15
FERENCE TABLE == USER SYMBOLS
CROSS R EFE

lO—aTMWMlVIM~IOSNTI=NNINYAMANOT]ON

0 0 O I NN \ NW

2e—0ONNOOONMeO—M~AO2—TOCVAHONOOON=M—2SO0MNeNERIINOONMUOONOOMeMAOO—NOON—POOOVMOMN°o]L0al

CIUNAAQ LNO1
CZUNAA. P

”
»

8»
¥ i

% =&

on
an
44
54
14

e
14

DNMAC Xx24.07-563

$SCASE
$$0S7

$SERFL= 000000
$$FLAG
000001

-0N—ey

$$L0C

$$LOCN
$SREG
$SRETU

022120

000000

177777

000000

—ONa0a0"O~y—O —

OWNWVNN&wn

NOe—0 R%kN ONWY ONMN ]bl

1691#

2225#

614
61

3-1

OOMOONONO=M O—e—

$$FROM= 000000
$3INH
000403

~9el=]Lal’al

$$ARGC= 000000
$$BYTE= 000403

(00404
000037
$$ELOC= 000402

e(rO—=V~NeOUMNOMOMOIDOMOIOIMON

b=N UWO—NMY

—Nr—

"
y
N
n

L
O

n
"

V]o lod o oVdo ol [l
r— Cy e\~ —

O=O0) O£00&o&CSO oO[-V"alERS oom

Rgxwkax

0O—eNONr—

— 3NN ON N

[ARAA [%VXa2Vl [ONWV

SEQ 0095

OONIMOMNO
N
OO r——
YO TN 0N WVNe—e—
4Lala
ol AR odoD ls t
NOMOMON
N

b&d%

= 050217

$15x1

4OJ\NVNATOVNAT—VL—Y—ViV—gr(A
O0NNy—ee—— O —e—-

12-JAN-83 08:16

12-JAN
-83
PAGE 20-16
g
(8 :16
CROSS REFERENCE TABLE == USER SYMBOLS

- —e—0N y

TECT

]O O~ ONIWsVNlOMO~MNODOMOoMONOW=MNO

CZUNAAQ LNOY
CILNAA. P

L
LE

1698#

2292#»

o8o)Oa0—B%R

17474

1749

1808«

1813#

CZUNAAD LNOY
CZLNAA. P

TEST
12-JAN
PAGE 20-17
-83
DNMAC x264.07-563
g
08 :16_
12-JAN-B3 08:16
(ROSS REFERENCE TABLE == USER SYMBOLS

WMo0N = — 1111—1N1—11

$$RIN1= 000000
000000

$ERIN?
$OSR(

v\ = —

$$STAC

10374

10424

1050#

b
2
3
3
0
2

5
2
4
6
0
6

2
3

9
1

SEQ 0096

DECLAR
DECR
DECRB
DECRU
DE CRUB
DEFAUL
DELAY
DESCRI
DEVTYP
DISPAY

DOCLN
EL%E
N

ENDAUT
ENDCLN
ENDDEC
ENDDO

ENDHRD
ENDHW

ENDIF

ENDINC

SEQ 0097

== MACRO NAMES

=
"

6614

1258
2211

23%}0

802

6614

ENDPRO
ENDROU

689
6614

ENDRTN

6614

ENDSFT

2427

ENDSRV
ENDSW

TABLE

2206

806

1332

1530

2358

2383

1738

1798

1037

1042

1075

1345

1346

731
1525
6614
6614
2611
723

ENDMOD

ENDSEL

PAGE 21

-—
N

1302
gg}:

1455

ENDRT |

1339

1648

1732

1775

1954

1970

2048

2135

2203

1567

1598

1994

1568

1599

1609

1085

1138

1149

1156

1189

1215

1091
1079

1347
1235

1569
1319

1600
1483

1996
1631

1054
1303
2222
}ggg

1087
1356
2231
}g};

1095
1421
2264
1705

1154
143
2274
1711

1323

1527

1663

1729

6614
6614
6614
6614
6614
6614
1228
702
703
698

ENDINI

ENDLOO

08:16_

2038

2102

2193

2399

1225

1244

1694

2170

2272

2304

1984

1991

2070

1155
1436
2308
1712

1163
1520
2325
1751

1192
1523
2388
1755

1199
1563
2392
1815

1234
1570

1236
1579

1237
1590

1238
1696

2002

2172

1822

1835

2007

2065

2174

2223

1950

2034

2098

2190

2355

2437

BNCOMP
BRESET
CALL
CASE
(LOCK
CLRVEC
DEALLO

BONHW

BGNINI
BGNMGD
BGNPRO
BGNSHT
BONSRY
BGNSW
BGNiST

—

ALLOCA

gcomPL
BEGIN
BGNAUT
BGNCLN
BGNHRD

TEST
DNMAC x24.07=-563%
12-JAN-B3 08:16
(R

O WVNE O P NWANNNO
O ONMAN S NI
O = 2 ONOMNNN
B
NN 00 NN = O ONIOMANON
=S OON) = =1V 00 =2 O 00 S NNWONNO
N =~ —

CZUNAAD LNOY
CILNAA.PTT

6614

6618

1050

1643
749

1650

2394

1256

1257

TEST

ONMAC X%26.,07-563

12-JAN-83 08:16

H
8
12=-JAN-83
(8:16
PAGE 21-1
CROSS REFERENCE TABLE == MACRO NAMES

SEQ 0098

B"oTAXnCL~(]O"K"AR"ANo—DoDOONOO~2NOONIMANMAORATZN2ZP2ySXPCyw=Tov—LLlLl-—=owMyuB0T4TGZPG0Ga&=xTx=x2E]L0[.P0V

CZUNAAD LNOY
CIULNAA.P1Y

RL] 'WBR

Nu -

LadiatTM ~N O\,YYN\o ggg—T ~y -ty

x[XT-O«“RANB&waVDoOx+2—@o<,MUwg [oONU-O—=]yNuOIlM L=MOo<F[—~O4.MNA—l0ONOY [¢aODLVIN~1—glVOM] [O(NaD.VJSOMY1~NAg9N]VIN

LaN

1
8
TEST
DNMAC x24.07 =563
12-JAN-83 0 B:16 PAGE 21=?
12-JAN-83 08:16
F
CROSS REFERENC
ENCE TABLE == MACRD NAMES

SEQ 0099

23554

s9La

1727%
26118

24278

16614

1798#

13424

19704

13740

20484

14128

14340

2135«

1623

14358

1729

17274

17694

1948«

2033«

2097#

2188#

2353

O—N

1518

15244

15954

16068

16228

23748

16434

21904

17268

2254m

22034

14374

22528

1S01a

2253

-0yoFel[Vol)(=1

al Lok’

CZUNAAQ LNOY
CILNAA. P

-0

16634

2394»

-0 ~ N NN

26278

22758

22964

22978

2298#

23018

16078

22528

22538

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

SEQ@ 0100

OOO(O(ON—NBUO\NONI——O0UeNO=——MIOVOODOINUV—MOOMO((ON(VUVNIO~NNMMOe=—O=~~NO=vINNMOMO =IeNMMAONO(MOI= ~AIMWNONN—OOO=NIeIO=MNMMMOI=ONW\NMNAM~OIOONNN~\IMMOMOeO=eNMON~WPN———3M—OM
Oe—O O O MAOIOOWVNAM0VMA0P

ONP2GNe~OMJ=OQOMONPMBVNIVO OC0NIOSWDAMUYM OINNV—NI (oUON—e=VI~NO0VNVW~2Nr— NeVTIO—PN~IVT

16074

22528

2253«

16838

2399#»

1226

1316

1479

1630

1435

2252

2253

1982

1989

2067

2254

OO M

CZUNAAO LNOY
CILNAA. P

2275

2296

2297

2298

2301

K
8
TEST
12-JAN-8 3
DN n:g X24.07-563
08:16
PAGE 21-4
12-JAN-83 08:
CROSS REFE RENCE TABLE == MA(CRO NAMES

CZLNAAQ LNO1
CILNAA. P

[=1a¥)Oe—MaooyOND—MOMONONINONIMOfNODW=OW

w—0NCv\oO\Jr—o=»—xEUev0Ne—rTM"VRV—e—X0@—0NyXNe20NN—r—

o<a&DwQ O—MNUNMO3FVO0=NUIMIU—MJNrIYAM—O -e(+r\ONJ—=lI—~YJ}\e0N— O[aoUVla0NO[vIWMa]—Vi1OVNDyaSROle,l—N

SEQ 0101

bYJ
7

e
I{]

YJ
Y

CILNAAD LNOV TEST
DN MAC X24.07-563
12-JAN-83 08: 16
ILNAA P
L

08:16
PAGE 21-5
EN CE TABLE == MACRO NAMES

S€Q 0102

OO~3—OVN—OTTO—MOWNOPOANIOWNPMO~TIO

on
on
on
on

14
8#
o#
54

3
on
I
1#

$GENBR

8
oN

$IDCHK

O O V WO
ON = e = e g= -

$GENTA

OMON~V
O=
e—N IO OIM AN
OME

6N
on

X
$1DF

=I-O—\ LOYIONAMIF L30.3.38. -oNe—= =MD"OW oI=eOV RERER e=vYO 0—OWNIO-WN3L233535
17084

17478

17494

18084

18134

18208

19764

1708#

174768

17494

1808#

1813#

18204

19764

15694

16004

16314

1705#

17118

17128

17518

$If
1
9%

1515¢#

12-JAN-8 3
CZUNAAO LNO1 TEST
DNMAC Xx24.07-563
08 :16 PAGE 21-6
12-J2N-83 08:16
CILNAA. PN
CROSS REFE RENCE TABLE == MACRO NAMES

17494

1808#

18134

18204

19764

20634

21644

22164

22254

1698#

17084

17474

17494

1808«

18134

18204

19764

NOSMNIO —TN OIM Or—e—

17474

—0RNe—(OeMNNOONOOeeSeOeeNIreVrO0eeO——-—e rNO

O
N
—
Y
O
T
N
C
I
N
I
M
O
~
VN] OgWaV NolWeNkAoNlToOlN[Ol WTINOWNONOAOVMONONITOR—
ORAIRNORMUMNOMe—

3gvaleal:
Too X JoyTal o

YOoONOMONINOM

SEQ 0103

R
N
0
O
N
O
=
M
N
O
r
—
e
—
O
N
M
I
T
W
N
O
M
N
I
D
O
—
O
N
eO=-—~VO RN
7

4]
4

1
9

3
5
1

6
9

17474

N0OEND Rk

17494

3
8
5
6
0

3
9
5
6
0

0
3
6

0
7
6

7
0

7
1

18084

1813#

18204

3
8
S
4

9
7
S
1

0
2

6
1
6

7
1

19764

N_8
CILNAAO LNO1 TEST
:16
PAGE 21-7
DNMAC Xx24.07-563
122=JAN-8
-83 08:1
12-JAN-E3 08:16
CILNAA.P1I
FERENCE TABLE == MACRO NAMES
SS
REFE
CROSS

0OAONNIMN=~NIOMOONMNWAN=AORNIWMONOOWNNON—OOOONINNINMIMOOONIONNMOITNNANSIONNOINNVUIIVMMM=e—D—TMOONIMOONMOINKNAINONONOMNO

SEQ 0104

O0—DO0e1=2MN3O4VOW5N&6T7IM89N0Q12NO230135692 YOAIT—NMNSUVMNNVMVNCNIMNANMRNRONO OINMTMTNIWNVYFNT~INDV—

—ONINIOIMOMOWvM TVOONVMD—NAOIOMONOOwnwoCNEOeMONOro—ne

$0PCD2

$OPDEF

6n
b1
974
L94

’,R”

OVMNO ANONOVO

21N
88«
654
N

$OPEQU

$OPE X0

$0PID8S

¥
I£ ]
70

OWMN-DMNr—MrOeAOr=M—

y
l
l

l
”
»
,

w
54
6”
o8
8»
3
1,

Fa-d

w
on

SH
I
s
”
"
»
»

#
"
[

TEST
DNMAC %24.07-563 12=JAN=-83 08:16 PAGE 21-8
12-JAN-83 08:16
CROSS REFERENCE TABLE == MA(PO NAMES

SEQ 0105

eOA—M0\AOWNITOMANONOW-N—r—rmrM—eO—NveMOe———OIoMNm—re—rm—rmoreMe—v~MON-

CIUNAAQD LNOY
CILNAA P

SOPNAN

$OPNOR

$OPNOT

$OPOR

$OPRO

ONIMIWIKUAVMRWLRAM. OVNMT2eMEe—AME~eVA0T=MANM WNV=MO—SWTIVNWAVINM

CZUNAAD LNOT
CILNAA.PTY

TEST
DNMA( x24.07=-563
12 =JAN-83 08 :16 PAGE 21-9
12-JAN-83 08:16
CRGSS REFERENCE TABLE == MACRO NAMES

SEQ 0106

628

~y3

ELR.5

54
S
N

o
un
X

$OPR2A

$0PR?2B

$OPSHF

OAN0ICMNWI—OOAI0NWVND—MFTONCANMIDNONOVWOMNMA~MIYNNVY

MO73956975090871"0 —PO—N

$OPR?

OFN'>er—

N—OWOIMOAOA

3.3.5.5.53.3.03.0-2-3.5. L3R

$OPRY

n
“h
14

e
“n
4

TEST

ONMAC x24.07-563

12-JAN-83 08:16

JAN=8
-83

1
08:16

0.9

PAGE 21-10

RE: v € ERENCE | TA BLE == MACRO NAMES

SEQ 0107

N—ve-O_=—CI0N=MOIWGVOEMNeA—OM0APYNVE FWNO=—YIN(MFIWNAPEMNONIM

O\JN\=g=o e~N —rN—NeeIe—ON

NoOVOMMMONONMIOW0VION~O0M—NYINDOMOENNOM—ONMOM—rO—MMeOOMOONMNeI-NNOOMOOMNOrmNeOr—ye—

CZUNAAND LNO1
CZLNAA.P

SOPSRE

$NPSUB

$OPXOR

$OR

SRANGE

$SUBON

$THEN

SUNTL?
SUNTLS

SWHILE
$SBASE
$SENDS
$$GEN

E..9

TEST
DNMAC X24.07-563 12-JAN=-8 3 08 :16 PAGE 21-11
12-JAN-83 08:16
CROSS REFE RENCE TABLE == MACRO NAMES

2264

2265

2272#

22744

OND NP OM

15984

16914

16G84

0O3SIO—OMe—AN

1567#

2304

O—MAWNNIN

L3523.

ABS.

022370

ERRORS Dz TECTED:

000

(ON

REL

GBL

CZUNAA,CZLNAA, SEQ/CRF /DOC SPMACJ/ML ,SVC33/ML,(ZLNAA P
RUN=-TIME
: 73 70 6_SECONDS
RUN=TIME RAT]O: 176/149 =1 .1
(59 PAGES)
CORE USED:
30k

DOCUMENT PAGES:

108

23084

23094

OO OO
AN

O=MWUNANONO
O—MNMNONO

N—e~ OWOVRN bSB -Or=—\ N—rr\ XoRgV[T1al.aliel

2292#

SEQ 0108

17084

18084

23114

23214

23254

OV
N— 3¢LUVToNaaliToVESoFX-ANS~elo gl

CZUNAAQ LNOY
CIULNAA P

d-tb-tutded hRkxt

18134

18204

20634

23274

238.4

21644

22164