Digital PDFs

AH-T344D-MC

July 1984

172 pages

Original

103MB

view download

OCR Version

146MB

view download

Document:	CZLNAD0 LN01 LN01 PRINTER DIAG JUL 1984 bw
Order Number:	AH-T344D-MC
Revision:	000
Pages:	172
Original Filename:	CZLNAD0__LN01__LN01_PRINTER_DIAG__AH-T344D-MC__JUL_1984_gray.pdf

OCR Text

LNO1 PRINTER DIAG
CZLMADO

Eprall ey s
AH-T3490-10
FIGHE 01 OF 01

EnEngEn

USER DOCUMENTATION CZLNADO
ZLNAD.P11
10-APR-84 08:55

DNMAC x24.07-563

10-APR-84

09:07

PAGE

SEQ 0001

.REM £
IDENTIFICATION
PRODUCT CODE
PRODUCT

NAME:

AC-T343D-MC
CZLNADO LNO1 DIAG

MAINTAINER:

SMALL SYSTEMS DIAGNOSTICS

PRODUCT

FEBRUARY

1984

GLENN A,

PERNA

DATE:

AUTHOR
:

THE

INFORMATION IN THIS DOCUMENT

SUBJECT

CHANGE WITHOUT

NOTICE
AND
SHOULD
NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
CQUIPMENT CORPORATION.
DOIGITAL EQUIPMENT CORPORATION ASSUMES NO

RESPONSIBILITY

FOR ANY

ERRORS

THAT

NO RESPONSIBILITY IS ASSUMED
FOR
SOFTWARE ON EQUIPMENT THAT IS NOT
AFFILIATED COMPANIES.

THE

FOLLOWING ARE

DIGITAL

DEC

(C)

MAY

APPEAR

THE
USE
SUPPLIED

OR
By

THIS DOCUMENT.

RELIABILITY
OF
DIGITAL
OR ITS

1984 BY DIGITAL EQUIPMENT CORPORATION

TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:

POP

DECuUS

UNIBUS

DECTAPE

MASSBUS

C1
DOCUMENTATION

DNMAC

X24.07

563

10-APR-84 08:55

10-APR-84

VBWNE-O

GENERAL

~NONDBUWNFO

OPERATING INSTRUCTIONS
COMMANDS
SWITCHES

FLAGS
HARDWARE

ERROR INFORMATION

CONTENTS

PERFORMANCE AND PROGRESS REPORTS

09:07

DEVICE INFORMATION TABLES

OCO

NNV

e e e e o pe

TABLE

CZLNAD. 11

CZUNADO

USER

INFORMATION

TEST

PROGRAM ABSTRACT

SYSTEM REQUIREMENTS

TAGS

iLIST GLOBAL TAGS
{LIST OTHER TAGS

002000

'EufiaL Cgs

. =2000

766
767

002000
002000

BGNMOD
POINTER BGNSW,BGNSF
T

769

002000

MEADER

(43

002001

CZLNA,D,0,60,1,340

(4) 003000

103

ittt e DRSS

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

002002
002003
002008
002005
002006
002007

114
116
101
000
000
000

JASCII 7L/
ASCIT /N/
"ASCII 7A/
‘8YTE
©
BYTE
O
BYTE
©

(5)
(3)

002011
002011

060

52;

8858%:

gz;

885812

EE;

53;

LIST ASSY CODE LEFT

.ENABL AMA

;2%

52;

TEST

STRUCT

SLSTIN=

756

757

SEGQ 0016

SvC

SLSTTAG=

177777

755

PAGE 6

,TITLE
CZLNADO LNO1
PROGRAM HEADER

746

748
749

8858{8

8838{5

132

"ASCII /27

LSREV:
LSOEPO::

LSUNIT::

LASCII

70/

sREVISION LEVEL
10

{NUMBER OF UNITS

LtTIHL::.“oRD

{LONGEST TEST TIME

LQHPCP::.HORD

sPOINTER TO M.W. QUES.

oozogg

LSSPCP: :

sPOINTER TO S.W. QUES.

gz;

gggggg

LSHPTP: :

52;

ggggg:

—

LSSPTP: ;

52;

883352

LSLADP: :

Eg;

gggggg

Zal

L$STA::

(S)

002022

L$CO;:

;PTR.

TO DEF. M.W. PTABLE

;PTR.

TO S.W. PTABLE

.WORD

L$SH

{DIAG. END ADDRESS
\RESERVED FOR APT STATS

000340

1DIAGNOSTIC TYPE

L$APT:;

$1APT EXPANSION

L$DTP::

PTR.
L$DISPATCH

L$PRIO::
LSENVI::
LSEXP1::

LSMREV::
LS$EF::

LS$SPC::
LS$DEVP:
:

LSREPP::

ORD

. m

.BYTE

LSEXPA::

LSEXPS::
LS$AUT::

L$DUT::
LSLUN::
002202
104035

005516
007266

002256
002122

000000

LS$DESP::

LSLOAD:
:
LSETP::
LSICP::
L$CCP:
:

LSACP::

LSPRT::

TO DISPATCH TABLE

340

sDIAGNOSTIC RUN PRIORITY

1FLAGS DESCRIBE HOW IT WAS SETUP

tEXPANSION WORD

1SVC REV AND EDIT ¢

CSREVISION
C3EDIT

1DIAG. EVENT FLAGS

LSOVTYP
(=]

002132

+ POINTER TO DEVICE TYPE LIST
sPTR.

TO REPORT CODE

:PTR.

TO ADD UNIT CODE

;PTR.

TO DROP UNIT CODE

©O

000000

LS$DTYP::

SEQ 0017

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

000001

PAGE 6-1

002042

000000

g XZG.07-SGSPRASéfigRRERDES9=O7

002032
002034
002034
002036
002036
002040
002040
002042

10-APR-84 08:5

TEST

55 EEEEEIEN

N NN NN NN NN NN NN NN NN 0N PN NN 0N NN NN N NN N PN NN PN N 5 PN P

O PN P

N P P

PN\,

~bdUasavabauvauvauvnbdunbunbunibuiduibuiaunbnbnNnaunanbng VBN WHBVNBUNBULLNLVLBUIAND
o\JV\—‘\JVUVUVV\JV\JV\JUVVVUVVUV\JV\'UVUVVUVVVVVV\J\J\JV\J\JVVVVVU\JV\J N

CZLNAD.P11

CZLNADO LNO1

{LUN FOR EXERCISERS TO FILL
L$DESC
ESLOAD

LSINIT
LSCLEAN
LSAUTO
L$PROT

;POINTER TO DIAG. DESCRIPTION
sGENERATE SPECIAL AUTOLOAD EMT

;POINTER TO ERRTBL

;PTR. T0 INIT CODE
:PTR. TO CLEAN-UP CODE
;PTR.

TO AUTO CODE

{PTR.

TO PROTECT

LSTEST::

s TEST NUMBER

LSOLY::

sDELAY COUNT

LSHIME:;

{PTR.

TO MIGH MEM

TABLE

CZLNADO L.NO1
CZLNAD.P11

OWNWNDONWWHNWNWD

8@@0
Voo~

002122
002122
002122
002124
002126
002130

PAGE

. 6-2‘

SEQ 0018

THE FOLLOWING IS A LOAD PROTECTION TABLE

LSPROT::

000000

09:07

177777
177777

.SBTTL

BGNPROT

0
.WORD
.WORD
-1
.WORD
-1
ENDPROT
DISPATCH TABLE

:
:
g

:X= NUMBER OF TESTS

007456
011226
011774
013204
015154
016516
017316

020440
023476

025724
027356
033354
037460
045074
050422
052016
054072
063606
070254
101616

002166
002170
002172
002174
002176
002200

DISPATCH
.WORD
20
LSDISPATCH:
:
.WORD
T1
.WORD
T2
.WORD
T3

000024

002154
002156
002160
002162
002164

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

THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST.
IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST.

33333333333300838

"t "

o N

AN A A -~
NN
Y NNV SNSNSNN AAAAAA AP
Lol
e e 0 e e R e
e e e e A
T
e Y
)b

783
784
785
786

7S
776
Tr7
778
779
780
781
782

10-APR-84

PR&GRAH HEADES

(3)

DNMAC X24.07-563

10-APR-84 08:55

771
772
773
774

TEST

15
16
17
78
19
T10
T11
T12
713
T14
715
T16
117
T18
T19
T20

:FOR USE ON REVISION C OF THE SUPERVISOR
002202
002202
002202
002210
002216
002224
002232
002240
002242
002242
002242

DESCRIP
055103
020060
050040
051105
047107
000103

047114
044514
044522
042040
051517

042101
042516
052116
040511
044524

.ASCIZ

<CZLNADO LINE PRINTER DIAGNOSTIC>
/CZULNADO LINE PRINTER DIAGNOSTIC’/

.EVEN

DEVTYP

047114
002250

030460

LSDVTYP:;
.ASCIZ

<LNO1>
/LNOl/

CZLNADO LNO1
CZUNAD.P11

TEST
10-APR-84 O

793
794
795
796
797
798
799

800
801
802

803
(3)
(3
(3)
804
805
806
807
808
809
810
(3)
811
812
813
814
(3)
815
81o
817
818
(3)
(3
819
820
821
822
823
824
825
826
(3)
(3)
(3)
827
828
829
830
831
832
833
834
835
(3)
836
837

g xza'07-S6SDI§8AAPR-?38L89=07
TCH

.SBTTL

Ge
PAGE 6-3

SEQ 0019

DEFAULT HARDWARE P-TABLE

:
:

:+
002250
002250
002252
002252

002252
002254

000002

177514

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

IS IDENTICAL TO THE RUN-TIME P-TABLE.

LSHW:
:
DFPTBL::

000200

BGNMW
.WORD

DFPTBL
L10001-L$HW/2

.WORD
.WORD

177514
200

sLP11 REGISTER ADDRESS
;LP11 INTERRUPT VECTOR

; INTERRUPT VECTOR PRIORITY IS 4 AND CANNOT BE CHANGED
002256
002256

L10001:

002256
002256

LSAUTO:
:

002256
002260
002260
002260

BGNAUTO

NOP

000240

104461

ENDHW

L10002:

.SBTTL

s+ NOT USED

ENDAUTO
TRAP

C$AUTO

SOF TWARE P-TABLE

’e

: THE SOF TWARE P-TABLE CONYAINS THE VALUES OF THE PROGRAM
+ PARAMETERS THAT CAN BE CHANGED BY
002262
002262
002264
002264

000002

002264

002266

002270
002270

000005

THE OPERATOR.

BGNSW
.WORD

SFPTBL
L10003-L$SW/2

INHINT:

.WORD

10 IF NO INTERVENTION TESTS
311 IF MANUAL INTERVENTION TESTS
sDEFAULT IS NO

MAXERR:

.WORD

3+ AUTODROP ERROR COUNT

L$SM::
SFPTBL:
:

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

L10003;

.SBTTL

ENDSW

I/0 MACRO DEFINITIONS

He
CZLNADO LNO1

CZLNAD.P11
838

TEST

DNMAC

10-APR-84 os:sg

X24.07-563_

10-APR-

839

.MACRO

841
842
843
844

.IF B

846

.ENDC

848

.IF B

850
851

.ENDC
.IF N8B

853
854

.ENDC
.IF B PRINTS

856
857

.ENDC
.IF NB PRINTS

859

.ENDC

861

.ENDM

864

.MACRO

860

.IF B

840

845
847

849
852

855

858

860
862
863

865
867
868
869

870

.ENDC
.IF NB

871
872

.ENDC
.IF B

874

.ENDC

873

875

876

877

878

879

.IF NB

.ENDC

OUTPUT

MOV

01 ,BUFCNT

BYTE COUNT DEFAULT OF

MOV

BFCNT ,BUFCNT

SUPPLY BYTE COUNT

MOV

#-1,PRINTR

OUTPUT

MOV

OLPERR,ERRSVC

BFCNT

ERR
ERR

MOV

&1 ,BUFREP

+ PRINT ONCE DEFAULT

MOV

PRINTS ,BUFREP

JSR

PC,IOCTRL

sCALL THE DRIVER

OUTPUT

OQUTPUI

MOV

BFCNT
MOV

ERR

MOV

ERR

MOV

.IF B8 PRINTS

: SAVE BUFFER ADDRESS

3 DEFAULT BYTE COUNT OF 1

BFCNT ,BUFCNT

sBUFFER BYTE COUNT BFCNT

OLPERR,ERRSVC
ERR,ERRSVC
s PRINT ONCE DEFAULT

MOV

01 ,BUFREP

MOV

PRINTS ,BUFREP

i SUPPLY PRINT COUNT

PC,IOCTRL

i SUPPLY UNIT NUMBER
;:CALL THE DRIVER

886

.ENDM

891
892
893

SUPPLY PRINT COUNT

ADD,BFCNT,ERR,UNIT,PRINTS

ADD ,BUFADD

MOV @1,BUFCNT
BFCNT

MOV

JSR

TO ALL UNITS

ERR,ERRSVC

.ENDC

890

THE BUFFER ADDRESS

MOV

883
884
887
888
889

ADD,BFCNT,ERR,PRINTS

SEQ 0020

1SAVE

BFCNT
MOV

.ENDC
.IF NB PRINTS

885

ADD,BUFADD

880
881

882

» 1/6 nncflo“fler?fl:?lo~§“°‘ il

:
UNIT,PRINTR

PRINTS IS A PARAMETER CONTROLLING THE NUMBER IF TIMES THE DATA OR

:
:
:

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

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

CZLNADO LNO1

EZinab P

TEST

153" apr 84 OB-5S

894
895
396

002270

900

002270

ggl

X24.07-563

0-APR-84

SRS

905

903
904

:
:
002270

BRI BB B

BRI R BRI RN

(1)
(1)
(1)

000010
000004
000002

B8IT03== 10
BITO2== 4
BITO1== 2

000020

000001

BITO9
BITO08
BITO7
BITO06

€3

000020

B8IT4==

BITO4

000040

000010
000004
000002
000001

BITS==

B8IT3==
BIT2==
B8ITi==
B8ITO==

BITOS

BITO3
BITO02
BITO1
BITOO

(1)

: EVENT FLAG DEFINITIONS

g{;

1)
(1)
(1)

S B Ss0S0ss0ssEBs.0s55585535545

8ITOO== 1
BIT9==
BIT8==
B8IT7==s
BIT6==

51)

BB BB RSB

BIT04== 20

001000
000400
000200
000100

(1)
(1)
(1)
(1)

B BB BB B

100000
40000
20000
10000
4000
2000
1000
400
200
100
40

(1)
(1)
(1)
(1)

(1)
¢1)
(1)
g{;

BB R BB

;s BIT DIFINITIONS

BIT1S==
BITi4==
B8IT13==
BIT12==
BITil==
8IT10==
8IT09==
BIT08==
BITO07==
81T106==
BITOS==

(1)

)

EQUALS

100000
040000
020000
010000
004000
002000
001000
000400
000200
000100
000040

(1)

SEQ oo

A REPEAT COUNT OF 88 MAX, ( 1 PAGE OF LINES AT 8 LPI.
AN INITIAL BAND STARTUP TIME OF 2.5 SECONDS.

ENDMOD
GLOBAL .'REAS

(1)
(1)
(1)
£))
(1)
1)
€1)
(1)
(1)
(1)
(1)

(1)

’

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

él;
1

PAGE 6-

BGNMOD
3o

(91(;

2
3

.SBTTL

900

1/8%HACRO OEF
INE T TONS
F
3

897
898

899

DNMAC

:
000040
000037
000036
000035

000034

EF32:EF17 RESERVED FOCR SUPERVISOR TO PROGRAM COMMUNICATION

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

EF .PWR==
:
:
;s

2.
5.
30.
29.

28.

PRIORITY LEVEL DEFINITIONS

:+
:+
:
:+

START COMMAND WAS ISSUED
RESTART COMMAND WAS ISSUED
CONTINUE COMMAND WAS ISSUED
A NEW PASS HAS BEEN STARTED

: A POWER-FAIL/POWER-UP OCCURRED

D NI NP NS IS ~
N Nl N Nl N N NN N N NN NP N N

P8 10 Pt e et et b et e (b et b o e e e e

NP NI NN

b et P e Pt et Pt P —

ENINININONONCNONONONT
NN\
ONCONON\NON\ NN\ P\ P -~

CZLNADO LNO1
CZLNAD.P11

TEST
ONMAC X24.07-563
10-APR '-‘84
09:07
GLOBAL AREAS
10-APR-84 08:55
000340
000300
000240
000200
000140
000100
000040
000000

PAGE 6-6

SEQ 0022

PRIO7== 340
PRIO6== 300

PRIOS==
PRIO4==
PRIO3==
PRIO2==
PRIO1==
PRIOO==

240
200
140
100
40
0

1OPERATOR FLAG BITS

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

[}

4
10

EVL==
LOT==

ADR==
IDU==
ISR==

20
40
100

UAM= =
BOE==

200
400

PNT==
PRI==

1000
2000

IBE==

10000

IXE==

4000

IER==

20000

HOE==

100000

LOEs==

40000

LF==12
FFasi4

CR==15
DEL==177
VERS.1e= 1
3

;:GLOBAL ERROR CODES FOR USE BY GENERAL ERROR ROUTINE
5

000001
000002

STATER= 1
TIMOUT= 2

000003

NOINTR= 3

s TRANSMITTER STATUS ERROR IN OQUTPUT
s TIMEOQUT ERROR IN IO DRIVER MODULE

s THIS ERROR INDICATES THE LAST CHARACTER
$1WAS NOT TRANSMITTED WITHIN A GIVEN TIME
tGROSS TIME OUT ERROR.

THE SPECIFIED DID NOT

: INTERRRUPT., THEREFORE IO DRIVER MODULE WAS
sNOT CALLED

.SBTTL
:

:RO
:R1
iR2
H
:R3
3R‘

sR6
sR7

GENERAL REGISTER USAGE DEFINITIONS

RESERVED FOR USE BY THE MACRO PACKAGES
MAXIMUM NUMBER OF UNITS TO TEST LSUNIT-1
UNIT NUMBER BY 2. USED TO CALCULATE CZUFSET INTO PROPER
PRINTER TABLE
TEMPORARY STORAGE
”

STACK POINTER

PROGRAM COUNTER

CZLNADO LNO1
CZLNAD.P11

TEST
DNMAC Xx24.07-563
10-APR -84 08:55

944
945

; LP STATUS TABLE BIT DEFINITIONS

947

948
949

100000
040000
020000
000377

950
951
952
953
954
955
956

957

961
962
963
964
965
966
967
968
969
970

971
972
973
974
975
976
977
978
979
980

981

982
983
984
985
986

987

988

289
990
991
992
993
994
995
996
997
998
999

SEQ 0023

GERERAL REGIS TERCUSAGE CBEE TNITIONS
i

958
959
960

1<2

002270
002272
002274
002276
002300
002302

ERROR = BIT15
DROPED = BIT14
ACTIVE

= BIT13

.SBTTL

GLOBAL DATA SECTION

FLAG:

.WORD

CCNT:

.WORD

LOBYTE

LINCNT:
LSTCNT:
COUNT:
STRCNT:
CHRGEN:

377

.WORD
.WORD
.WORD

.WORD
.WORD

0
0
0

0
©

002304
002306
002310

UNIT:

002312
002314

PTABAD:
PRINTR:

.WORD
.WORD

002316

CLKTYP:

.WORD

002320
002322
002324
002326
002330
002332

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

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

0
O
0
O
O
O

002334
002336

ERRFLG:

WT:

.WORD

002340
002342

VFUCMD:

LUNIT:

INDEX:
5

.WORD
.WORD

. WORD

.WORD

0
0
0

BIT MASK FOR CLEARING LOBYTE (COUNTER)

s<CR> FLAG FOR USE BY SUPERVISOR
sLINE COUNTER

sUNIT COUNTER FOR SINGLE UNIT TESTING
sUNIT COUNTER FOR ERRORS

lNO TESTS NOT USING THE OUTPUT
IP TABLE ADDRESS RETURNED BY GPHARD
tSElé'E‘gTED LINE NO.

tCLxK TYPE CONTROL WORD

s1= NO CLOCK AVAILABLE
;2= KW1l-L LINE CLOCK
3= KW11l-P PROGRAMABLE CLOCK

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

Em ROUTINE

IEXPECYED ERROR INDICATOR

; ® UNITS ACTUALLY UNDER TEST
tEXITS BACK TO IO DRIVER EQUAL
311 IF ERROR WAS EXPECTED.

:MACRO

VARIABLES

002344

BUFADD:

.WORD

002346

BUFCNT:

.WORD

1BUFFER ADDRESS OF DATA TO BE SENT
:TO THE PRINTER
iNUMBER OF BYTES TO TRANSFER

BUFREP:

,WORD

(¢]

: NUMBER OF TIMES TO PRINT

002350

000000

CZLNADO LNO1
CZLNAD.P11

1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049

1050
1051
1052
1053
1054
1055

TEST
DNMA
10-APR-84 08:5

§ X24-07-36% 8RalPBATA 0210w PACE ©-8

SEQ 0024

:LNO1 PARAMETER WORD TABLES
4

002352

000020

LPCSR:

002412

000016

LPVEC:

002446

000020

LPBUF:

002506

000020

STATUS:

002546

000020

CURADD:

002606

000020

MSGCNT:

002646

000020

REPCNT:

002706

000020

MSGADR:

002746

000020

CURCNT:

003006

000020

LPINTR:

.REPT

.WORD

UNIT STATUS

CURRENT ADDRESS OF OUTPUT DATA BYTE
INITIAL BYTE COUNT OF MSG FOR REPEAT RESTORE

16.

NO.

OF TIMES TO REPEAT MESSAGE

ADDRESS OF DATA TO PRINT START OF DATA

CURRENT COUNT REMAINING TO OUTPUT

-1

.ENDR
.REPT 16.
O
.WORD
.ENDR

INTERRUPT ROUTINE ADDRESS

.REPT 16,

TIMEOUT DELAY COUNTER

.WORD

.MORD

ERROR ROUTINE DISPATCH ADDRESS
ERROR COUNT FOR EACH UNIT

WORK::
WORK1:

.WORD
.WORD

O
0

.SBTTL

OUTPUT BUFFER

ERRSVC:

ERRTBL : :

.WORD
.ENDR

.ENDR
003110
003112

DATA BUFFER REGISTER ADDRESS

XE)
333

000020

INTERRUPT VECTOR ADDRESS

O
.MORD
.ENDR
.REPT
16.
O
WORD
.ENDR
.REPT 16.

s 3 sDELCNT:
003046
003050

ADDRESS OF CSR FOR EACH LP11

.REPT
16.
O
.MORD
.ENDR
.REPT
16
O
.WORD
.ENDR
.REPT 16.
O
.MORD
.ENDR
.REPT 16.
O
.WMORD
.ENDR
.REPT 16.
O
.WORD
.ENDR
.REPT 16.
O
.WORD
.ENDR

.REPT 16.

WORK AREA

:150 BYTES IS RESERVED FOR THE OUTPUT BUFFER AREA

003114

000226

OUTBUF
:

.EVEN
.REPT
.BYTE
.ENDR

150,
©

M2
LNADO LNO1

TEST

NMAC

EZENABPIY! "33 aPr-84 08755

X24.07-563_

1056

10-APR-84_

09:07

outBU P BUPFER""

PAGE

6-9

S0 ooas

1057

.SBTTL

1060
1061
1062
1063

s
: THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,
: MESSAGES, AND ASCII INFORMATION THAT ARE USED IN
: MORE THAN ONE TEST.

1058
1059

1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081

.NLIST BEX

‘--

003342
003360
003402
003503
003556
003622
003655
003702
003727
003760
004027
004031
004036
004043
004046
004052

1082
1083
1084
1085
1086
1087
1088
108S
1092

1093
1094
1095
1096

051120
051120
040520
120
051106
051124
120
052517
125
046101
033
033
033
015
015
033

047111
047111
042520
050101
047117
047101
044522
050124
044516
020114
143
133
133
012
012
133

004060

042524
042524
020122
051105
020124
046523
052116
052125
020124
047125
062
067
000
012
061

CSRERR: .ASCIZ
RDYERR: .ASCIZ
PAPSWI: .ASCIZ
HANSWI: .ASCIZ
DOOSWI: .ASCIZ
INTER1: .ASCIZ
TXERR:
.ASCIZ
OUTTIM: .ASCIZ
TXNOIN: .ASCIZ
UUTEQO: .ASCIZ
REINIT: .BYTE
SELDEC: .BYTE
SELPIX: .BYTE
ACRLF:: .BYTE
SKIP3:: .BYTE
DECFIN:: .BYTE
.EVEN

/PRINTER ERROR/
/PRINTER NOT READY/
/PAPER OUT INTERLOCK SWITCH FAILURE - MAKE SURE PAPER IS RESTORED/
/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 HAVE BEEN DROPPED..RESTART../
33,143
;+ RESETS DEFAULT CONDITIONS IN LNO1
33,133,62,40,111
s SELECT DECIPOINTS AS PARAMETER
33,133,67,40,111
:+ SELECT PIXELS AS PARAMETER
15,12,0
15,12,12,12
33,133,61.,41,175
; SEQUENCE FOR TOGGLING PAPER OF

:
:
.LIST BEX

FORMAT STATEMENTS USED IN PRINT CALLS
004060
004066
004074
004102
004110
004116
004124

040445
052440
042045
051104
020104
052040
000116

050114
044516
022462
050117
051106
051505

1097

1098
1099
1100
1101
1102
1103
1104
1105

GLOBAL TEXT SECTION

030461
020124
020101
042520
046517
022524

LPDROP:

.ASCIZ

/#ALP11 UNIT #D2%A DROPPED FROM TESTeN/

.SBTTL

GLOBAL SUBROUTINES

SECTION

;e
; THE GLOBAL SUBROUTINE SECTION CONTAINS THE SUBROUTINES
; THAT ARE USED BY MORE THAN ONE TEST.
-~

CZLNADO LNO1
CZLNAD.P11

LA
D
S A

N0 (I

ot5LV, DN b N

wuuund

e lelalal A
el

PAGE 6-10
SECTION

SEQ 0026

FUNCTIONAL DESCRIPTION:

SUBROUTINE TO PRINT THE GENERAL ERROR INFORMATION.

PRINTS THE ERROR MESSAGE IN THE FOLLOWING FORMAT:

“ERROR AT CSR XXXXXX UNIT YY"

WHERE XXXXXX=

YY=

DEVICE CSR ADDRESS

UNIT NUMBER THAT FAILED

CALLING SEQUENCE
JSR PC,LPERR
REQUIRED PARAMETERS

ERRCOD MUST BE SE”

UNDER ERROR CODES.

TO ONE OF THE ERROR CODES DESCRIBED

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

013746
002455
023727
003051
006316
062716
013607

LPERR:

002332
002332

000003

S0000$:

004272
004164
004212
004240

50003%:

005262

003050

010237
006237

002074
002074

SELECT ERRCOD OF 3 VERIFY
MOV
ERRCOD, -(SP)
BLT
S0005$
cMP
ERRCOD,
#3
BGT
S0005¢
ASL

004154

€50000¢,(SP)

.MORD
.MORD
"MORD
.MORD

50004$
50003
50002%
50001$

MOV

000430

CASE 2

003050

:STATUS ERROR

LET ERRTBL(R2) := ERRTBL(R2) + &1
INC
ERRTBL(R2)
LET LSLUN := R2 SHIFT -1
MOV
R2,L$LUN

104456
000016
003655

005262

8(SP)+,PC

CASE 1

ASR

50002%:

sSELECT PROPER MESSAGE FORMAT

(SP)

ADD

ERRHRD
TRAP
.WORD
.WORD
.WORD

WU VITVTUTNI
IV DI WO n

T
s AAAAAAAAAAA ~

1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
1116
1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129

TEST
DNMAC X24.07-563
10-APR-84
09:07
GLOBAL SUBROUTINES
10-APR-84 08:55

LSLUN

14, TXERR
C$ERHRD
14
TXERR
O

sOUTPUT TIMEOUT ERROR

500064

LET ERRTBL(R2) := ERRTBL(R2) + 01
INC
ERRTBL(R2)
LET LSLUN := R2 SHIFT

-1

O
O v
BN

BNy

Y. I

004236
004236

000415

004240
004240
004240
004244
004244
004250
004254
004254

2:ul\|°ufl
Uluu-oug

N NSNS

VONO

.8 JUAV AV

104456
000017
003702
000000

(PLPIMIVIZ R R

~’

010237
006237

004216
004222
004226
004226
004230
004232
004234

004264
004264
004266
004266
004272
004272

s
s
—
e
i

TEST
owg X24.07-56 3
10-APR-84 08:5

004256
004260
004262

el alal od odalnl ol clalelalalel ded ol

e lalalal

ot TN P

—r

e SN PN N P e A

SBNBLLNNNBWOWL

CZLNADO LNO1
CZLNAD.P11

004272
004272
004300
004302
004306
004306
004306
004306
004314
004314
004320
004320
004326

10-APR-84

MOV

ASR

ERRHRD

TRAP
.WORD

LMORD
.MORD

CASE 3

50001¢:

003050

INC

010237
006237

002074
002074

MOV

15,0UTTIM

OQUTTIM
O

500064

ERRTBL(R2)

:= ERRTBL(R2)

LET LSLUN := R2 SHIFT

R2,LSLUN

CSERHRD
16
TXNOIN

ADD

S0004$:

026237
003402
004737

003050

005037

002332

012772
000207

000100

-1

50006

02,5P
:

IF ERRTBL(R2) GT MAXERR THEN

S0007$:
100000

ERRTBL(R2),MAXERR
cHe
S00074%
BLE
smti’sa PC.DROPTTY
3 MAXIMUM ERROR COUNT EXCEEDED !

002266

005354

042762

ERRHRD 16, TXNOIN

50006% :

LET STATUS(R2) := STATUS(R2) CLR.BY QERROR

8I1C

002506

OERROR,STATUS(RZ)

LET ERRCOD := 00

CLR
ERRCOD
LET SLPCSR(R2) := 0100

MOV

002352

RTS
I E X

ER AR

3+ BIN2DA
3
:
:
;
3

9100,8LPCSR(R2)

RERRENRERRERE R

BIN2DA:

RN R

: CLEAR THE ERROR BIT AND ENABLE
sAND EXIT
RRRRRERE

RERERERERDE RN

]

BINARY TO DECIMAL ASCII CONVERSION ROUTINE
ENTER WITH NUMBER TO BE CONVERTED ON THE STACK
FOLLOWED BY THE ADDRESS OF A S BYTE BUFFER
FOR THE ASCII STRING. S DIGITS WILL BE CONVERTED
LEADING ZEROES WILL BE CONVERTED TO SPACES.
CALL BY JUSR PC,BIN2DA

004330

NEVER RECIEVED THE INTERRUPT

LET ERRTBL(R2)

TRAP
.WORD
.WORD

ENDSELECT
BR
50005¢:

CS$ERHRD
15

LSLUN

.WORD

000002

LSLUN

ASR

104456
000020
003727
000000

e e7

R2,LSLUN

005262

062706

PAGE 6-11

GLOBAL SUBROUTINES SECTION

002074
002074

000402

09:07

PUSH R4 ,RS

INTERRU®TS

CZUNADO LNO1
CZLNAD.P11

(2)

€3)
1169
(4)
1170
(4)
1171
(4)
1172
(4)

NAENBEYNNNARD
YO
N
-qgahbg (¥,
P
Jbouubg~unbaru00u-oouag
(LTI TR
» DN
[V DRNEY , TNENTY, ¥« NRLT, NI IY - T
N
W

e
=
el
o
=
b et AN
NP FN N
TN s FN s

N s SN\

NN s P

[ad

s PN

B SN s PN\

s NN ~

1173
1174
(5)

1189
1190

TEST
DNMAC X24.07-563
10-APR-84
09:07
GLOBAL SUBROUTINES
10-APR -84 08:55

004330
004332
004334
004334
004340
004340
004344
004344
004350
004350

004354
004354
004362
004364
004364
004370
004370
004374
004376
004376
004376
004402
004404
004404
004410
004410
004414
004414
004416
004416
004416
004422
004424
004430
004432
004432
004432
004440
004440
004444
004444
004450
004450
004452
004452
004452

004456

010546
016604

000006

012705

004522

005037

004534

005037

004536

012737
000402

CLR

005337

004540

005737
002435

004540

865403

000010

161566

000010

005237

004536

500118:
50010%:

50013$:

500144
:

DEC

DIGITS

TST

DIGITS

50012$
WHILE 8.(SP) GE

500154
:

B8R

TST
BLE

004536

(RS)

FLAGDA
500164

INC

005037

CREATE A DIGIT

COUNTD

004534

000002

50015¢

005237

ELSE

MOVB
50017%;

(R5) DO

; DO S DIGITS

IF COUNTD GT @0 OR FLAGDA GT 00 THEN

MOVB

00C040

s+ CONVERY DIGITV TO ASCII OR SUPPLY A SPACE

004536

500164
:

TO 00 BY

50013

8IS

004536

062705

GET ADDRESS OF DECIMAL

8.(SP),(RS5)
500144
LET 8.(SP) := 8.(SP)
SuB
(R5),8.(SP)
LET COUNTD := COUNTD
INC
COUNTD
ENDDO

113724

112724

cMP
BLT

B8GTY

004534

000402

GET ADDRESS FOR ASCII STRING

COUNTD

TST

004536

052737

3+ LEADING ZERO FLAG

DECR DIGITS FROM 04
MOV
24 ,0IGITS
50010¢
BR

BLT

000770

005737
903003
005737
003410

R4, -(SP)
RS, -(SP)
R4 := 6(SP)
6(SP),R4
RS := @TABLDA
@TABLDA ,RS
FLAGDA := @0
FLAGDA
COUNTD := @0

SEGQ 0028

1 8.(SP) HAS NUMBER TO BE CONVERTED

004540

004456

004456
004456
004462
004462
004466

MOV
MOV
LET
MOV
LET
MOV
LET
CLR
LET

010446

PAGE 6-12
SECTION

LET COUNTD := COUNTD SET.BY 060
#60,COUNTD
LET (R4). :8= COUNTD
).
COUNTD,(R4
LET FLAGDA := FLAGDA +« @1
FLAGDA
S0017%

LET (R4).
040,(R4).
ENDIF

:B= 040

3 DO THE NEXT DIGIT
LET RS := R5 +» 02
02,R5
ADD
LET COUNTD := 00
CLR
COUNTD
ENDDECR

TABLE

CZLNADO LNO1
CZUNAD.P11
(5)
(4)
1191
1192
(6)
(10)
1193
(4)
1194
(4)
1195
1196
(4)
1197
(2)
<3)
1198
(7)
1199
1200
1201
1202
1203
1204
iggg

TEST
DNMAC X24.07-563
10-APR-84
09:07
10-APR-84 08:55
GLOBAL SUBROUTINES

004466
004470
004470
004470
004474
004476
004476
004502
004502

000736

500128
;

005737
001002

004534

112744

000060
50020:

004502
004502
004510
004510
004512
004514
004514
004520

062706
000207

000004

004522
004530
004534
004536
004540

023420
000012
000000
000000
000000

001750
000001

016666

000004

000010

012605
012604

000144

PAGE 6-13
SECTION

SEQ 0029

50011%

: IF NUMBER WAS A ZERO PRINT A
IF FLAGDA EQ 00 THEN
ST
FLAGDA
BNE
50020
LET -(R4) :B= 060
MOVB
060, -(R4)
ENDIF

+ CLEAN UP THE STACK AND EXIT
LET 8.(SP) :» 4(SP)
MOV
4(SP),8.(SP)
POP
RS,R4
MOV
(SP)+,RS
MOV
(SP)+,R4
LET SP := SP + 04
ADD
04,SP
RTS
PC

TABLDA:

.WORD

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

FLAGDA:
COUNTD:
DIGITS:

.WORD
.WORD
.WORD

0
0
O

.SBTTL

I/0 DRIVER

1207
1208
1209
1210
1211
1212
1213
1214
1215
1216

3
H
goe
sTHE I7/0 DRIVER ROUTINE IS INVOKED BY MEANS OF THE INTERRUPT SYSTEM.
sCALL TO IT IS uMP
IODRV.
sRETURN
RITI.
sENTER ROUTINE WITH R2 SET UP TO DESIRED UNIT 2. R2 IS USED
: 70 CALCULATE OFFSET INTO PROPER TABLE.

1219
1220

3=
3

1223
004542
(6)
004542
1352) 004550

IODRV:

{gi;

:R1 EQUALS MAXIMUM NUMBER OF UNITS ON SYSTEM UNDER TEST.
H

%ggé

3+ CHECK FOR ERROR FLAG IN STATUS REG.
§

032772
001061

100000

002352

(7)

THEN

11»332
1227
(6)
(10)
1228
(4)
1229

IF OBIT1S NOTSETIN @LPCSR(R2)
BIT
BIT1S,8LPCSR(R2)
BNE
50021¢

s IF COUNT NOT ZERO SEND NEXT BYTE
004552
004552
004556
004560
004560
004566

004566

005762
003416

002746

117272

002546

005262

002546

IF CURCNT(R2) GT @0 THEN
CURCNT(R2)
500224
LET SLPBUF(R2) :B= 8CURADD(R2)
MOVB
SCURADD(R2),8LPBUF (R2)
LET CURADD(R2) := CURADD(R2) . @1
787
BLE

002446

INC

CURADD(R2)

CZLNADO LNO1
CZLNAD.P11

1230
1231
1232
1233
(7))

TEST
O-APR-al
DNHAg X24.07-563
170
DRIVE
10-APR -84 08:5

09:07

PAGE 6-14

SEQ 0930

i ENABLE INTERRUPT FOR NEXT BYTE

004572
004572
004600
004600
004604
004604
004612
004612
004614

1234
(7
123
(4)
1236
(4)
3)
1237
1238
004614
7
004614
1239
004620
(6)
004620
(10) 004624
1240
004626
004626
(4)
1241
004634
(4)
004634
1242
004642
(4)
004642
1243
004650
(7
004650
1244
004654
7)
004654
1245
004660
(7)
004660
1246
004666
(4)
004666
1247
004674
(4)
004674
004676
£3)
1248
1249
1250
004676
(7)
004676
1251 . 004704
(a)
004704
1252
004712
(4)
004712
1253
004712
(4)
004712
1254
004712
(4)
004712
(3)
004714
1255
1256
1257
004714
(7)
004714
004722
1258
(4)
004722
1259
004730
1260

052762

020000

005362

002746

012772

000100

BIS

002506

DEC
MOV

002352

000437

50022%:

ELSE

LET STATUS(R2) := STATUS(R2) SET.BY #ACTIVE
OACTIVE,STATUS(R2)
LET CURCNT(R2) := CURCNT(R2) - 01
CURCNT(R2)
LET 8LPCSR(R2) := 2100
2100,8LPCSR(R2)

50023¢

+ CURRENT MSG DONE,

IF PRINT COUNT NOT ZERO SEND AGAIN

LET REPCNT(R2) := REPCNT(R2)
REPCNT(R2)
IF REPCNT(R2) GT 00 THEN

005362

002646

DEC

005762
003424

002646

1ST
BLE

016262

002706

002546

MOV

016262

002606

002746

MOV

117272

002546

002446

MOV8

SCURADD(R2) ,8LPBUF (R2)

005262

002546

INC

CURADD(R2)

005362

002746

OEC

052762

020000

002506

8IS

012772

000100

002352

MOV

000406

500244:

REPCNT(R2)
500244

LET CURADD(R2) :* MSGADR(R2)
; RESTORE THE MSG ADDR
MSGADR(R2),CURADD(R2)
LET CURCNT(R2) :* MSGCNT(R2)
; RESTORE THE BYTE COUNT
MSGCNT(R2),CURCNT(R2)
LET BLPBUF(R2) :B* SCURADD(R2)
; RESEND THE MESSAGE
LET CURADD(R2)

LET CURCNT(R2)
CURCNT(R2)
LET STATUS(R2)
OACTIVE,STATUS(R2)
LET 8LPCSR(R2)
0100,8LPCSR(R2)
ELSE
500254

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

042762

020000

012772

002506

8IC

002352

MOV
50025%:
50023:

000410

500218
:

- o1

:
LET STATUS(R2)
QACTIVE,STATUS(R2)

:* CURADD(R2) +» @1
:* CURCNT(R2)

- @1

; BUMP THE POINTER
; DROP BYTE COUNT

:= STATUS(R2) SET.BY @ACTIVE
:= €100

; RE-ENABLE INTERRUPTS

:= STATUS(R2) CLR.BY @ACTIVE

LET SLPCSR(R2) 1= 000
900,8LPCSR(R2)
ENDIF

ENDIF
ELSE
BR

50026

: CLEAR ERROR CONDITION, ENABLE INTERRUPTS
s SET ERROR FLAG

052762

100000

002506

BIS

012737
004777

000001

002332

MOV

176112

LET STATUS(R2) := STATUS(R2) SET.BY QERROR
QERROR, STATUS(R2)
s STATUS ERROR
LET ERRCOD := OSTATER
@STATER,ERRCOD

JSR PC,8ERRSVC

3 ERROR SERVICE SHOULD CLEAR ERROR BIT AND ENABLE INTR

CZUNADO LNO1
CZLNAD.P11

(3)

1287
(4)
1288
(4)
1289
(4)
1290
1291
1292
1293
1294
(4)

(6)
(10)
1295
1296
1297
1298
(5)
(8)

SEQ 0031

RTI

(SP)+,R2

.SBTTL I/O CONTROL
THE I/0 CONTROL SUBROUTINE IS A SINGLE ENTRY QUEUE MANAGER.
THIS ROUTINE IS INVOKED BY A JSR FROM AN I/0 CALL.

INPUTS:

PRINTR

BUFADD
BUFCNT

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

BYTE COUNT TO TRANSMIT TO PRINTER

004740
004740
004742
004744

ERRSVC
ADDRESS OF ERROR SERVICE SUBROUTINE
BUFREP IS NO. OF TIMES TO PRINT THE MESSAGE

IOCTRL: PUSH
MOV
MOV
MOV

010246
010346
010446

R2.R3,R4
R2,-(SP)
R3,-(SP)
R4, -(SP)

: PRINTR CONTAINS THE UNIT NUMBER., IF

: PRINTR = -1, THEN QUEVE TO ALL PRINTERS.

004746

004746
(65
(10) 004754

1284
(4)
1285
1286
(4)

POP R2

MOV

012602
000002

PAGE 6-15

ENDIF

®e

1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
(2)
(3)
(4)
1279
1280
1281
1282
1283

50026%:

(2)
1263
1264
1265

004734
004734
004734
004734
004736

09:07

1261
(4)
1262

TEST
DNMAC X24.07-563
10-APR-84
I/0 DRIVER
10-APR-84 08:55

004756
004756
004762
004766
004766
004770
004770
004770
004774
004774
005002
005002

023727
001005

002314

013703
005037

002012
002074

177777

000405

500278
LET R3 := LSUNIT
MOV
LSUNIT,R3
CLR LSLUN
ELSE
BNE

50027¢:

012703

000001

013737

002314

IF PRINTR EQ #-1 THEN
cHp
PRINTR,®-1

002074

S0030$
;

B8R

500304

LET R3 := 01
MOV
01.R3
LET LSLUN :* PRINTR
MOV
PRINTR,LSLUN
:
ENDIF

: DO FOR SELECTED PRINTER(S)
005002
005004

S0031$:

005703
003534

WHILE R3 GT @0 DO
TST

BLE

50032

i USE R2 AS AN INDEX INTO THE UNIT TABLES
005006
005006
005012

;

013702
006302

0020/4

MOV
ASL

LET R2 := LSLUN SHIFT
LSLUN,R2
R2

CZLNADO LNO1

EEE AR
1299

TEST

NMAC

YO T83 apr-8a DB e

005014

005037

X24.07-563_

X24-0

CLR
H

1303
005020
(6)
005020
(10> 005026

032762
001117

040000

G3
)

PAGE 6-16

SEG 0032

ERRCOD

002506

BIT
BNE

IF ODROPED NOTSETIN STATUS(R2)
@DROPED, STATUS(R2)
500338

THEN

i TEST FOR DVC ERROR BIT SET

1307
C6)
(10)
1308
(4)
1309
(7)

005030
005030
005036
005080
005040
005046
005046

(a)
($3)

005058
005056

005054

032772
001407

100000

002352

BIT
BEQ

012737

000001

002332

MOV

052762

100000

002506

BIS

000451

50034
:

IF 0BIT1S SETIN SLPCSK(R2) THEN
0BIT15,8LPCSRCR2)
50034$
LET ERRCOD := OSTATER
; STATUS REG ERROR BIT
#STATER, ERRCOD
LET STATUSCR2) := STATUSCR2) SET.BY GERROR
OERROR, STATUS(R2)

15 SET IN

ELSE

560353

1312
1314
(6)

IF THE UNIT MAS BEEN DROPPED SELECT THE NEXT UNIT

1305

1310

09:07

1-8%:0R9-80 ©09:07

002332

1301

1306

10-APR-84

: MAKE SURE PREVIOUS MESSAGE IS DONE
005056
005056

(10) 005064
1315
005066

032762
001437

020000

002506

BIT
8EQ

(4) 005066 012704 047040

1316
(3)
(6)
(10)
1317
(2)
(2)
(2)
(2)
(2)
(2)
(2)

005072
005072
005072
005100
005102
005102
005106
005110
005114
005116
005122
005128

1318
1319
(7)
1320
(4)
1321
1322
1353
(4)
1324
(4)
(3)
1325
(4)
(3)

005132
005134
005134
005136
005136
005144
005152
005160
005160
005160
005160
005162
005162
005162
005164

032762
001430

020000

012727
000000
013727
000000
005367
001375
005367

000002

(2) 005130 001367

MOV
002506

500375

MOV
JMORD
MOV
LMORD
DEC
BNE
DEC

002116
177772
177756

BNE

005304

001011
012737
042762
052762

000002
020000
100000

BIT
8EQ

002332
002506
002506

IF OACTIVE SETIN STATUS(R2) THEN
OACTIVE,STATUSCR2)
5003¢€
¢
LET R4 := 020000.

020000. ,R4

000406

50040;

500365
:

TIMEOUT COUNTER

WHILE @ACTIVE SETIN STATUSCR2) DO

OACTIVE,STATUSCR2)
50040
DELAY 2.
02..(PC)e
O
LSDLY,(PC)s
O
-6(PC)
et
l22(PC)

.“30

DEC R4
IFCOND EQ THEN

BNE

50041$

MOV

0T IMOUT
, ERRCOD

ENDIF

50041$:

000744

50037$

ELSE
500428

ENDDO

LET ERRCOD
BIC
8IS

WAIT 200 MICROSECONDS

DEC TIMEOUT COUNTER

:= @TIMOUT

QACTIVE,STATUSCR2)
OERROR, STATUSCR2)

1326
(6)
(10)
1327
1328
1329
1330

TEST
DNMAC X24.07-563
10-APR-84 08:55

005164
005164
005170

05172
(4)
005172
1331
005200
(4)
005200
005200
1332
(4)
005200
1333
005200
(4)
005200
1334
005200
(6)
005200
(10) 005204
005206
1335
(3)
005206
005212
1336
(4)
005212
(3)
005214
1337
1338
1339
1340
1341
005214
(4)
005214
1342
005222
(4)
005222
1343
005230
(4)
005230
1344
005236
(4)
005236
1345
005244
(4)
005244
1346
005252
005252
(6>
(10) 005256
005260
1347
(4)
005260
1348
005266
(4)
005266
1349
005266
(4)
005266
135C
005266
(4)
005266
1351
1352
1353
1354
005266
1355
005270
1356
005274
(4)
005274
(3)
005276

1357

005762
003403

10-APR-84

/0 CONTROL

ST
BLE

002746

09:07

PAGE 6-17

SEQ 0033

IF CURCNT(R2) GT 90 THEN

CURCNT(R2)
5004 3$

+ OUTPUT WAS QUEUED BUT I/0 DRIVER WAS NEVER INVOKED (VIA INTERRUPT)
:

012737

000003

MOV

002332

50043¢:

ENDIF

50035s:
002332

004777

175634

TST

BEQ
JSR

000425

500445
:

:= #NOINTR

ENDIF

500428:

005737
001403

LET ERRCOD
ONOINTR,ERRCOD
ENDIF

IF ERRCOD NE 40 THEN

ERRCOD

¢
50044
CALL SERRSVC
PC,8ERRSVC
ELSE
50045¢

;+ REPORT THE ERROR

QUEUE THE MESSAGE AND ENABLE INTERRUPTS

: THE I/0 DRIVER WILL PICK UP FROM HERE.
LET CURADDCR2)

013762

002344

002546

MOV

BUFADD
, CURADD(R2)

013762

002344

002706

MOV

BUFADD ,MSGADR(R2)

013762

002346

002746

MOV

BUFCNT ,CURCNT(R2)

013762

002346

002606

MOV

CZLNADO LNO1

CZLNAD.P11

013762

002350

002646

MOV

005762
003403

002746

012772

000100

ST
BLE
MOV

002352

S0046%:

:
50045
S0033s:

:= BUFADD

LET MSGADR(R2) := BUFADD

s MESSAGE ADDRESS

LET CURCNT(R2) := BUFCNT

;s OUTPUT COUNT

LET MSGCNT(R2)
BUFCNT ,MSGCNT(R2
LET REPCNT(R2)
BUFREP ,REPCNT(R2)

:= BUFCNT

: BYTE COUNT

:= BUFREP

: PRINT COUNT

IF CURCNT(R2) GT 00 THEN
CURCNT(R2)
500464
LET SLPCSR(R2) := #1700
9100,8LPCSR(R2)
ENDIF

ENDIF
ENDIF

: SELECT THE NEXT UNIT AND DECREMENT THE LINECOUNT

005303
005237
000642

002074

500324
:

;s BYTE ADDRESS

DEC R3
INC LSLUN
ENDDO
500314
BR

: ENABLE INTERRUPTS

C ZLNADO LNO1
C ZLNAD.P11

X24.07-563_

bOBPDUWON

Sufibbmfiflawa‘mflg
O
RO UNVOII VNI v
~

el
»

allnlalalnial’
aial’
i
i lalalaln e

(8)

09:07

012603
0126C2
000207

R4 ,R3,R2

RTS

SEQ 0034

(SP)+,R4
(SP)+,R3
(SP)+,R2

LR RN

SUBROUTINE

QUIEY

®s

PAGE

POP

MOV
MOV
MOV

012604

005306
005350
005352

THIS SUBROUTINE WILL EFFECTIVLY DELAY UNTIL ALL QUEUED OUTPUT

IS FINISHED.

THE DELAY IS ACCOMPLISHED BY QUEUEING A NULL

MESSAGE TO ALL LINES.

QUIET:

00240
000207

1374
1375

1376
1377
1378
1379
1380
1381
(7)
1382

10-APR-84

I/b CON?RBL

005276
005276
005300
005302
005304

DNMAC

10-APR-84 OB:Sg

1358
(2)
(3)
(4)
1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
1371
1372
1373

TEST

OUTPUT
NOP
RTS

: DROPIT

s NULL MESSAGE OUTPUT

0,40
PC

FUNCTIONAL DESCRIPTION :

: THIS SUBROUTINE IS USED TO DROP A BAD PRINTER FROM THE TEST
: DISABLE ANY INTERRUPTS FROM THE PRINTER, AND NOTIFY THE
: OPERATOR THAT THE PRINTER WAS DROPPED.
005354
005354
005362
005362
005370
005370
005374

005374

005400
005404
C05410
005412
005414
005420
005420
005424
005424

005430
005434
005436
005436
005442
005446
005450
005452
005456
005456
005460
005460

052762

040000

002506

012762

177777

002746

005072

002352

013746
012746
012746
010600
104417
062706
005062

003050

005337

002336

005737
001011

002336

012746
012746
010600
104417
062706

003760
000001

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

MOV

#-1,CURCNT(R2)

CLR

SLPCSR(R2)

002074
004060
000002

MOV
MOV

LSLUN, -(SP)
SLPDROP, -(SP)

000006

ADD
#6,5P
LET ERRTBL(R2) := 40
CLR
ERRTBL(R2)

TRAP

CSPNTF

LET WT

:= WT

TST

LET SLPCSR(R2)

:= @0

PRINTF OLPDROP, LSLUN

- 01

T
DEC
IF WT EQ 0 THEN
BNE

50047%

PRINTF SUUTEQO

MOV

MOV
MOV
TRAP
ADD

104444
50047%:

QUWTEQO, -(SP)

01,-(SP)
SP,RO
CSPNTF
o4 ,5SP
DOCLN
+
TRAP
Cs$DCLN
ENDIF

G TEST
NOTHINTO

CZLNADO LNO1

CZLNAD.P11
1391

1392
1393
1394

TEST

005460

DONMAC X24.07-563

10-APR-84 08:55

10-APR-84

09:07

RTS

I/0 CONTROL

000207

PAGE 6-19

SEQ 0035

1395

i..ll.llI..II-Il....l...l............II-I..II'--I---.-.IIl---l'.'II

lggg

: FAKE

13%8
1399

:
;

1‘00

1401

005462
005462
005466
005466
005466
005474

(3)
(3)
(3)
1405
(7)
1406
(4)
(3)
1407

005476
005502
005504
005506
005506

1408
1409
1410
%:{é

THIS SUBROUTINE IS REQUIRED TO INSURE PROPER PASS COUNT REPORTS
IN A MULTI UNIT MODE OF OPERATION.

;ll..‘l....l.-I.IIDI.IIIIIIIIOIIIIIIII‘III..IIII.IIlllllll.'l'.llll

1402
(4)
1403
(4)
(6)
(10)

1404

FUNCTIONAL DESCRIPTION:

005476

005512
005512
005514
005514

005037

002074

023737
002007

002074

013700
104442
010003

002074

005237

002074

000765

FAKE :

002012

S0050¢
:

50051¢$:

000207

005516

.SBTTL

LET LSLUN := @0
CLR
LSLUN
WHILE LSLUN LT LSUNIT DO

cMP
BGE

LSLUN,LSUNIT
S50051$
GPHARD
LSLUN, R3
MOV
LSLUN,RO
TRAP
C$GPHRD
MOV
RO,R3
LET LSLUN := LSLUN « &1
INC
LSLUN
ENDDO
BR

50050¢

RTS

ENDMOD
INITIALIZATION SECTION

1413
1414
1415
1416
1417
1418
1419
(3)
1420
1421
1422
(3)
(3)
1423
(2)
1424
(3)
(3)
1425

(2)
1426
1427
1428
(3)

005516
005516
005516
005516
005516
005522
005524
005524
005526
005526
005532
005534

012700
104447

000040

103466
012700
104447

000037

005534

103462

005536
005542
005542

004737

005462

012700

000000

;THE INITIALIZE ROUTINE IS EXECUTED AT THE BEGINNING OF EACH SUB-PASS AND IS
:PRIMARILY USED FOR REQUESTING P-TABLE PARAMETERS. INFORMATION REQUESTED FROM
:THE OPERATOR INCLUDE THE NUMBER OF UNITS UNDER TEST, DEVICE ADDRESSES, VECTORS,
;AND CLOCK TYPE.
giaos
BGNMOD
BGNINIT
LSINIT::
.
sRESET EXTERNAL BUS IF START EVENT FLAG IS SET
sOR POWER FAIL RESTART
:
READEF
@EF .START
sTEST START EF INDICATOR
MOV
@EF .START
,RO
TRAP
CSREFG
BCOMPLETE 18
:BRANCH IF FROM START uP
BCS
18
READEF
OEF ,RESTART
;NOW THE RESTARTFLAG
MOV
OEF .RESTART
RO
TRAP
CS$REFG
BCOMPLETE 1%
1IF EITHER START OR POMER FAIL RESTART

BCS

JSR
SETPRI
MOV

PC,FAKE
4PRIOO
0PRIOO,RO

100 A BUS RESET
: UPDATE PASS COUNT
:+ PRIORITY ZERO

CZLNADO LNO1 TEST

CZLNAD.P11

DNMAC X24.07-563

10-APR-84 08:55

(3)

005546

104441

(4)

005550

112737

000014

005620

012737

000006

1429
1430
1431

(5)

(7)
(6)

005550

005556
005620

005626
005630

000402

10-APR-84

TRAP

C$SPRI

003114

MOVB

14 ,0UTBUF

003112

MOV

46 ,WORK1

DEC

WORK1

CMP

WORK1, 41

LET OUTBUF

50053¢:

003112

(7)

005634

023727

003112

(2)

005644

012727

000250

MOV

(2)

005652

013727

002116

MOV

005367
001375
005367
001367

177772

DEC
BNE
DEC
BNE

(9)
1432

005642
005644

(2)

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

1433
(5)
(4)

005650
005656

005660
005664
005666
005672

002415
000000

000000

005674
005674
005676

000755

005676

104432

1434

005676

12;%

005700

(3)

000001

50052$ :

:B= #14

50052

BLT

177756

50054

500544
DELAY 250

001300

#250,(PC)+

.WORD

LSDLY,(PC).

ENDDEC
BR
EXIT

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

50053%

INIT

TRAP

.WORD

CSEXIT

:POWER UP RESTART OR START COMMAND ISSUED
:

104433

(6)
005704
(10) 005712

023727
003420

002012

(7)
(6)

005714
005720

012746
012746

006542
000001

MOV
MOV

005726
005730

104417
062706

000004

TRAP
ADD

CSPNTF
#4,.SP

ONRGT17, -(SP)
o1, -(SP)
SP,RO

005704

1440

005714

(3)

005724

1441

005734

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

(4)

1442

(4)
1443
(3)

1444

1: i’%

1446

(7)

INIT CODE

L10004-.

005702
005702

1439

ELSE EXIT

i:gg
1438
(3)

SEQ 0036

QUTPUT @OUTBUF , &1
DECR WORK1 FROM #6 TC #1 BY #

005337

005634

IK3

PAGE 6-20

INITIALIZATION SECTION

(10) 005630

(7)

09:07

010600

1$:

BRESET
TRAP

CSRESET

cMP
BLE

LSUNIT,016.
300554

IF LSUNIT GT #16.

000020

012746
012746
010600

006625
000001

MOV
MOV
MOV

005750

062706

000004

ADD

005754

104417

ONRGT16, -(SP)
01,-(SP)

ENDIF

005754
005754
005754

104450

MANUAL
TRAP

005756

103024

8CC

005756

005760

012746

SP,RO

PRINTF ONRGT17

TRAP

50055¢:

CSPNTF
o4,SP

C$MANI
BNCOMPLETE

006735

PRINTF ORESET1

MOV

THEN

PRINTF ONRGT16

MOV

005734
005740
005744

005746

+RESET THE BUS

; CHECK FOR UNATTENDED MODE

ORESET1, -(SP)

IF UNATTENDED BYPASS MANUAL INSTRUCTIONS

CZLNADO LNO1

TEST

ONMAC

EINAB PTYO! T63 apr
84 DB-0S
(6)

005764

012746

X24.07-563_

MOV

1448

WAIT

1450
(3)
1451
(3)
1452
(3)

006000
006000
006004
006004
006010
006010

1454
{3)
(3)

006014
006014
006016

(5)
(5)
(5)

006022
006024
006026

1453

(3)

[(3)

006014

006020

006030

002270

005037

002332

005037

002336

100008:

006030

1459
(5)

006036
006036

(5) 006030 013701 002012
(7) 006034 005301

(7) 006082
(6)
006044
(10) 006044
(7)
006050
(7) 006050
(9)
006054
1460 006056
(3) 006056
(3)
(3)
1461

006062
006064
006066

1463

006076

1464

006102

005037

000402
005237 002074
023701 002078

006076

006110

1468

1470

“CR"

BEFORE

GOING ON

LET FLAG := 00
CLR
FLAG
LET ERRCOD := 00
CLR
ERRCOD
LET WUT := 00
CLR
ouT

GMANIL
TRAP
BR

READY,FLAG, 100000, YES
CSGMAN
10000$

WORD
WORD
"WORD

T$CODE
READY
100000

FLAG

003071

013700 002074
104442
010003

005062

LET R1

MOV
DEC

:= LSUNIT

LSUNIT,R1
R1

- 21

sMAXIMUM NUMBER OF UNITS

B8R
INC
500568:
cMe

50057%:

50056$
LSLUN
LSLUN,R1
8GT
500604
GPHARD LS$LUN,R3
MOV
LSLUN,
RO

;REQUEST P-TABLE ADDRESS

TRAP
CS$GPHRD
MOV
RO.R3
BNCOMPLETE 38

B8CC
s
LET R2 := LSLUN SHIFT 1
MOV
LSLUN,
R2
ASL
R2

003050

(4) 006102 012762 177777 002746
1465

1469

SP.RO
04,5P

INCR LSLUN FROM @0 TO R1 BY 01
CLR
LSLUN

002074

(2) 006066 103060
1462
006070
(5) 006070 013702 002074
(8) 006078 006302

8 0087

iREQUEST P-TABLE FOR PRINTERS UNDER TEST

1458

1466

CSPNTF

WORD

1456

(4)

FOR

1008
:

104443
000404
002270
000130
007006
100000

PAGE 6-2

01,-(SP)

MOV
TRAP
ADD

005037

09:07

AL
T 2R T TON 28T
ON

000001

(3) 005770 010600
(a)
005772
104417
[(4) 005778 062706 000004
1

10-APR-84

CLR

the

002646

MOV
CLR

LET ERRTBL(R2)

:+ 20

LET CURCNT(R2)

:= #-1

LET REPCNTCR2)

ERRTBL(R2)

:BRANCH IF DEVICE NOT PRESENT

@-1,CURCNT(R2)
LET DELENTCR2) := €0
REPCNT(R2)

:LOAD CSR ADDRESS INTO TABLE
H

006114

LET LPCSR(R2)

:= (R3).

:SET UP CSR ADDRESS FOR DEVICE

CZLNADO LNO1
CZLNAD. P11
(4)
1471
(5)
(7)
1472
1473
1474
1475
(4)
1476
1477
1478
1479
(5)
(8)
(8)
(8)

763" apr-8a 3888 *24-07-363
19: AT 7R 10R° &84 1 1BRCE ©-22

006114
006120
006120

006126

012362

002352

016262
062762

002352
000002

MOV

002446
002446

SEG 0038

(R3)+ ,LPCSR(R2)

LET LPBUF(R2) := LPCSR(R2) + @2

LPCSR(R2),LPBUF
(R2)

ADD

02,LPBUF(R2)

:SET UP VECTOR ADDRESS INTO GIVEN TABLE
006134
006134

012362

MOV

002412

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

:SET UP DEVICE INTERRUPT VECTOR INFORMATION
006140
006140
006144
006150

006154
006160
006160
006166
006166
006174
006174
006200
006204
006210
006214
006216

LET WORK := R2 SHIFT 3
, WORK
R2
MOV

010237
006337
006337
006337

003110
003110
003110
003110

062737

104624

003110

013762

003110

003006

012746
016246

000200
003006
002412
000003

016246
012746

104437
062706

ASL
ASL
ASL

WORK
WORK

TRAP
ADD

C$SVEC
010,5P

WORK

LET WORK := WORK + #INTOO
ADD
@INTOO, WORK
LET LPINTR(R2) := WORK
MOV
WORK,LPINTR(R2)
SETVEC LPVEC(R2), LPINTR(R2), OPRIO4
MOV
OPRIOA, -(SP)
MOV
LPINTR(R2), -(SP)
MOV
LPVEC(R2), -(SP)
MOV
e3,-(SP)

000010
:

: ADD ONE TO UNIT UNDER TEST COUNT
006222
006222
006226

005237
000403

LET WT := WT + 01
INC
wr

002336

; INDICATE LSLUN NOT AVAILABLE FOR TESTING

006230
006230
006236
006236
006240

]

052762

040000

002506

000702

3¢:
4s:
50060%:

LET STATUS(R2) := STATUS(R2) SET.BY 4DROPED
8IS
#DROPED,STATUS(R2)
ENDINC
:GO BACK AND DO IT AGAIN
500574
BR

$sisssisatdBssRasaRERtReBBRRRBRBRIRNIGRINSIIBIICIININIGNISIIGIIOCICIIINIIGOICICRISIORIIRnna

006240
006240
006246

006246
006252
006254
006256
006256
006260
006260

+ SETUP TO HANDLE CLOCK INTERRUPTS
; IF AN L-CLOCK IS ON THE SYSTEM THEN SETUP A NOOP INTERRUPT
; HANDLER BECAUSE LSI SYSTEMS MAY HAVE THE CLOCK ENABLED AT ALL TIMES.
012737

000001

012700
104462
010004

000114

002316

103031
012737

LET CLKTYP := #1
o1,CLKTYP
MOV
CLOCK
L,R4
MOV
#'L,RO
CsCLCK
TRAP
RO,R4
MOV
IFCOND CS THEN
8CC

000002

002316

50061$
LET CLKTYP := &2
#2,CLKTYP
MOV

s+ DEFAULT FOR NO CLOCK ON SYSTEM
+ TEST FOR L-CLOCK

i WE HAVE AN L-CLOCK

CZLNADO LNO1 TEST
10-APR-84
CZLNAD.P11
1501
(4)

1502
(4)
1503

006266
006266
006272
006272
006300
006300

006306
006306
006314
006314
006320
006324
006330
006334
006336
006342
006342
006342
006342
006346
006350
006352
006352
006354
006354
006362
006362
006366

006366
006374
006374

AUIAAAAAUAAAS
SBNLBPDUNNNNNEBUNON
D ¥ RN
LN T
D
NN

006402
006402
006410
006410
006410
006410
006416
006420
006420

006424
006430

006432
006434
006440
006440
006444
006450
006452
006454
006460
006460

08755

X24.07-563_

10-APR-84_

09:07

PAGE 6-23

SEQ 0039

INITIALIZATION SECTION

010437

002320

017737

174022

002322

LET CLOCKP := R4
R4 ,CLOCKP
LET CLKCSR := &CLOCKP
MOV
8CLOCKP
, CLKCSR

012777

000000

174014

MOV

016437

000004

012746
012746
013746
012746

000300
007202
002326
000003

104437
062706

MOV

002326

000010
50061¢:

LET 8CLKCSR := #00
€00, 8CLKCSR

;

TRY TO DISABLE INTERRUPTS

i+ SETUP THE NOOP HANDLER

LET CLKVEC := 4(R4)
MOV
4(R4),CLKVEC
SETVEC
CLKVEC, #IGNORE, #PRIO6
MOV
OPRI06, -(SP)
MOV
#IGNORE, -(SP)
MOV
CLKVEC, -(SP)
MOV
#3,-(SP)
TRAP
C$SVEC
ADD
©10,5P
ENDIF

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

012700
104462
010004

CK1:

000120

103016
012737

000003

010437

002320

017737

173726

002322

016437

000004

002326

012777

000000

002316

: TRY TO DISABLE THE P-CLOCK

173712

500624%:
:

023727
001020

002316

012746
012746
010600
104417
062706

007043
000001

012746
012746
010600
104417
062706

007105
000001

P,R4
2'P,RO
TRAP
C$CLCK
MOV
RO,R4
IFCOND CS THEN
: WE HAVE A P-CLOCK
8cC
50062$
LET CLKTYP := &3
#3,CLKTYP
MOV
LET CLOCKP := R4
R4 ,CLOCKP
MOV
LET CLKCSR := 8CLOCKP
MOV
SCLOCKP ,CLKCSR
LET CLKVEC := 4(R4)
MOV
4(R4),CLKVEC

CLOCK
MOV

LET 8CLKCSR := @00
MOV
900, 8CLKCSR
‘
:
ENDIF

IF NO CLOCKS ON THE SYSTEM NOTIFY THE OPERATOR

IF CLKTYP EQ o1 THEN

CLKTYP0,1
cHe
BNE
50063$
PRINTF ONOCLCK
MOV
ONOCLCK,, -(SP)

000001

MOV
MOV

TRAP

01,-(SP)

MOV
MOV

TRAP

50063
:

SP,RO

CS$PNTF
“.9
PRINTF ONOTIM

ADD
ENDIF

o1, -(SP)
SP,RO

CSPNTF

%4 ,5P

CZLNADO LNO1
CZLNAD.P11

1523
(3
(3)
1524
(4)

1525
1526
(3)
(3)
1527
1528
1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
(3)
(3)
1542
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552
1353
1554
1555
1556
1557
1558
1559
1560
1561
1562
(2)
(3)
1563
(4)
1564
(4)

1565
(4)
(6)

TEST
DNMAC X24.07-563
10-APR-84

08:55

10-APR-84

09:07

PAGE 6-24

INITIALIZATION SECTION

SETPRI oPRIOO

006460
006460
006464
006466
006466
006474
006536
006536
006540

000440

006542
006625
006661
006735

047045
045
045
045

040445
022516
022516
022516

052516
047501
051101
051101

NRGT16:
NRGT17:
MRESET:
RESET1:

.ASCIZ
/#NeANUMBER OF LINE PRINTERS UNDER TEST EXCEEDS 16./
.ASCIZ
/#NsAONLY 16 WILL BE TESTED./
.ASCIZ
/#NsSARESET PRINTER(S),
AND PLACE ON LINE.sN/
.ASCIZ /#NeARESET PRINTER(S) AND PLACE ON L INEsN/

007006
007043
007105

042504
045
045

051120
022516

051505
044101

READY:
NOCLCK:

.ASCIZ
.ASCIZ

/DEPRESS "RETURN" WHEN READY,~/
/#NwAHARDWARE CLOCK NOT AVAILABLE.”

007176

000000

5LOC=

.WORD

007200
007200
0C7200

012700
104441

000000

112737

000014

MOV

003114

@PRIOO,RO

TRAP
OUTBUF :8=

LET

CS$SPRI
014

MOvVB

@14 ,0UTBUF

OUTPUT @OUTBUF ,21
EXIT INIT
TRAP

104432

CSEXIT

.WMORD
.NLIST BEX

022516

040501

Mg;é::

L10004-.

.ASCIZ

/#NSAAUTO PRINTING SPEED MEASUREMENT

CANNOT BE PERFORMED./

.LIST BEX
ENDINIT

L10004:

104411

TRAP

CSINIT

S33333383 330000000 R0B BB RRIRBRRRBESRSSSSSSERSRssssssss

: IGNORE

AN INTERRUPT CATCHER FOR THE L -CLOCK

USED FOR SYSTEMS WHERE CLOCK CANNOT BE TURNED OFF.

THAT

IGNORES THE

INTERRUPT,

$s333%33%%53as30 0003000 CRCRRRRNRORRRIRIGIROIRRGORICOIRIINIRGSIOSILINGIOINLIILILIIRRSLESLETSLITS

007202
007202

IGNORE :

000002

3 NOOP

RTI

s RESVEC
H

§.=

007204
007204
007206
007210
007210
007212
007212
007216
007216
007216

TO
<

RESVEC: :

010346
010446

013703
005703

002012

MOV

MOV
500645
;

SUBROUTINE MILL

THE

CLR

005004

)

FUNCTIONAL DESCRIPTION
THIS

157

‘NORMAL‘

PUSH

R3, -(SP)

SETUP ALL UNITS VECTOR AREAS

INTERRUPT ROUTINES STARTING AT
S

R3,R4

LET
R4 := @0
a4
LET R3 := LSUNIT
LSUNIT
RS
WHILE RS GT @0 DO
R3

INTOO.
R

CeLNADO

LNO1

TEST

ESNABTREYC! 13" apn-aa BHYEE

X24.07-¢

X4-07-563,

012746

000200

MOV

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

007232
007236
007242
007244

016446
012746
104437
062706

002412
000003

(7)

007250

062704

1567

007226

007250

1568
\7)
1569
(4)
(3)
1570

007254
007254
007256
007256
007260
007260

1231

007264

1573
1574

007266

(2)
(3)

1572
(2)

007260
007262

003417

016446

401 APRRY 1oR 404 (BACE 625

(10) 007220
1566
007222
(7)
007222

(6)

BLE

003006

500654
SETVEC LPVEC(R4),

OPRIOA, -(SP)

MOV

LPINTR(R4), -(SP)

000010

MOV
MOV
TRAP
ADD

000002

ADD

02,R4

005303

DEC

000757

500654:

012604
012603

MOV
MOV

000207

.SBTTL
STARS

. adhoad

LPVEC(R4), -(SP)
03, -(SP)
C$SVEC
@10,5SP
LET R4

:= R4

LET R3
R3
ENDDO
50064

:= R3

LPINTR(R4),

0PRIO4

POP R4,R3

(SP).,R4
(SP)+,R3

RTS

CLEANUP CODING SECTION

110080000000000000000000000000000000800000000000600000000008008000

1575
1576
1577

1o
:THE PURPOSE OF THE CLEANUP SECTION IS TO CLEANUP ALL PRINTERS UNDER TEST
sAND RETEST ANY UNITS WHICH MAVE BEEN DROPPED FROM
TESTING TO INSURE THAT

158¢
1581
{ag

1IN THE EVENT A PAPER OUT OCCURRED AND THE OPERATOR HMAS PUT ADDITIONAL PAPER
sINTO THE UNIT UNDER TEST, THE INITIALIZATION SEQUENCE DOES NOT
sHAVE TO BE DONE AGAIN IN ORDER TO GET THE DEVICE ACTIVE.

1578
1579

s THEY HAVE NOT COME BACK ON LINE. IF THE DEVICE HAS COME BACK ON LINE
;TESTING WILL BE RESTARTED ON THE DEVICE. THIS INSURES THAT

‘.-

1584
(2)
1585
(3)
1586

(07266
007266

1587

007266
007266
007266
007272
007274

1589
(5)
(7)
1590
(5)
(7)
(6)
(10)
(7)

007276
007276
007302
007304
007304
007310
007312
007312
007316

1591
1592
1593

007324

(3)
(3)

lg:;

(7)
(9)

STARS
$130000000000000000000000000000000000000000000048000000000080000000

007274

007316
007322

012700
104441

000340

104433

LSCLEAN::
SETPRI OPRIO7
MOV
PRIO7,RO
TRAP
CSSPRI
BRESET

TRAP

013701
005301

002012

005037
000402

002074

005237

002074

023701
003016

002074

CLEAN:

50067:
500664:

CSRESETY

LET R1 := LSUNIT - 01
iNUMBER OF UNITS-1
MOV
LSUNIT,R1
DEC
R1
INCR LSL'UN FROM 00 TO R1 By o1
CLR
LSLUN
BR
500664

INC

LSLUN

CcMP
LSLUN,R]
B8GT
500708
3 DISABLE ALL INTERRUPTS, SELECT ALL LINES
3+ ZERO ALL ERROR COUNTS
LET R2 := LSLUN SHIFT 1

GLNABOPAYO! "8 apm-sa BTEE "24-07-S63c,
(S5)

007324

013702

MOV

042762

160377

002506

012762

177777

002746

LET STATUSC(R2) := STATUS(R2) CLR.BY O0ERROR!DROPEC!ACTIVE!LOBYTE
BIC
OERROR !DROPED!ACTIVE!LOBYTE,STATUS(R2)
LET CURCNT(R2) := &-1

005062

003050

005062

002646

007330

1595
(7)
1596

C©07332
007332
007340

1597
(4)
1598
1599

007346
007346
007352

(S)

007356

000755

1601

007360

004737

007204

(6) 007364
(10) 007372

023727
001006

002316

(3)
(3)

007374
007400

017700
104436

172726

007402

012777

000000

(4)

(4)
16C0

(4)

1602

1603
1604

(4)

007340

007352
007356

007360
007364

007374
007402

1605
(4)
1606

007410
007410
007410

1607

007420

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

007424
007430
007434
007440
007442

006302

023727
001013

002316

(7)

012746

000300

1608
(4)
1609

007446
007446
007446

(3)

007446

1610
(3)

007454
007454

1612
1613

007456

(3)

12?2

{g{g

007452
007454

012746
013746
012746
104437
062706

104441

104412

+ CLEAR ALL BITS IN STATUS EXCEPT DEVICE TYPE

MOV
133

S0070$ :

@-1,CURCNT(R2)

LET ERRTBL(R2)
CLR
ERRTBL(R2)
LET DELCNT(R2)
LET REPCNT(R2)

CLR
ENDINC

REPCNT(R2)

B8R

50067

JSR

PC,RESVEC

cMP
BNE

CLKTYP,
83
S0071¢

:= @0
:= #0
:= 00

s RESET THE VECTORS

IF CLKTYP EQ &3 THEN

000003

MOV
TRAP
172712

MOV

000002

CLRVEC SCLKVEC

ENDIF

MOV
MOV
MOV
TRAP
ADD

000010

sMODULE

: - 000

900,8CLKCSR

IF CLKTYP EQ 02 THEN

MOV

007202
002326
000003

8CLKVEC,RO
CSCVEC

LET 8CLKCSR

cHP
BNE

S00728:

012700

LSLUN,R2

ASL

S0071$:

(6) 007410
(10) 007416

007420

50 00az

002074

(8)

1594

ARA0ERCEA 124021 (BACE 6-26

CLKTYP,
82
S00724

SETVEC CLKVEC,@IGNORE ,oPRIO6

ENDIF

OPRIO6, -(SP)

OIGNORE, -(SP)
CLKVEC, -(SP)

03, -(SP)
CSSVEC
210,5P

SETPRI oPRIOO
MOV
@PRICO,.RO

TRAP

CSSPRI

TRAP

CSCLEAN

INTERFACE LOGIC

INLOG.P11

1618

sTHIS TEST VERIFIES THE OPERATION OF

1620
1621

:8Y LOADING A CHARACTER INTO THE OUTPUT BUFFER. ALSO IT IS VERIFIED
s THAT THE PRINTER WILL NOT INTERRUPT IF IT IS AT THE SAME PRIORITY LEVEL

1619

i62e2

THE

INTERFACE LOGIC.

TESTS ARE

sPERFORMED FOR PRINTER ERROR, PRINTER READY, AND CLEARING PRINTER READY

;AS THE PROCESSOR, BUT WILL INTERRUPT IF THE PROCESSOR IS AT A LOWER

CZLNADO LNO1
CZLNAD.P11

TEST
DNMAC X24.07-563
09:07
10-APR -84
INTERFACE LOGIC
10-APR -84 08:55
;PRIORITY LEVEL.

1623
1624

PAGE 6-27

THE PRINTER

SEQ 0043
IS

PRIORITY

LEVEL

1€25

1626
1627
(3)
1628
(5)
(7)
1629

007456
007456
007456
007456
007462

gcl;msr

013701
005301

LET
R1 := LSUNIT - @1

MOV
DEC

002012

;HARD CODED INCREMEMNT LOOP

;INCR LUNIT FROM 20 TO Rl BY

1631
1632
1633
1634
1635
1636

O
e

007464
007470
007472
007472
007476
1637
1638
007476
1639
007502
1640
007504
1641
007510
1642
007510
007510
(5)
(8)
007514
1643
007516
(6)
007516
(10) 007524
007526
1644
(7)
007526
1645
007534
(7)
007534
1646
007540
(4)
007540
1647
007546
(4)
007546
(5)
007550
(5)
007552
007554
(5)
007556
1648
(4)
007556
007562
1649
(4)
007562
1650
1651
1652
007562
(6)
007562
(10) 007570
1653
007572
007572
(5)
007600
007602
007602
007606
007606
007614
NN

sMAX NUMBER OF UNITS ON SYSTEM

LSUNIT,R1
R1

1630

O~NNE=ON

;START LOOP

CLR

LUNIT

JUNIT TO O

002310

nc.

INC

LUNIT

;UPDATE UNIT NUMBER

002310

e
BLE
JMP

LUNIT,.R1
s
T18

;00 COMPARISON OF UNIT NUMBER
sONTO NEXT UNIT
;EXIT LOOP

005037
000402

002310

005237

023701
003402
000137

010244

T1C

100 COMPARE

LET R2 := LUNIT SHIFT

MOV

013702
006302

002310

32772
001416

100000

002352

052762

100000

002506

005262

003050

013737

002310

ASL

LUNIT,R2

IF @BIT1S SETIN SLPCSR(R2) THEN
BIT
#BIT1S,8LPCSR(R2)
8EQ
500734
LET STATUS(R2) := STATUS(R2) SET.BY #ERROR
BIS
QERROR, STATUS(R2)
LET ERRTBL(R2)

:= ERRTBL(R2)

INC
ERRTBL(R2)
LET LSLUN := LUNIT

002074

MOV

LUNIT,LSLUN

TRAP

CSERMRD

ERRHRD 1,CSRERR

104456
000001
003342
000000

005072

JWORD
.MORD
WORD

1
CSRERR
O

CLR

SLPCSR(R2)

. 01

;:ERROR BIT WAS SET.

LET BLPCSR(R2) := 00

002352

ENDIF
500738
:

;s TIME DELAY
3 IF NOT READY ALLOW 3 SECONDS TO COME P

032772
001027

000200

002352

012737
000402

000036

003112

005337

003112

023727
002415

003112

IF o0BIT7 NOTSETIN SLPCSR(R2) THEN
817
#BI1T77,8LPCSR(R2)
BNE

500764
:
000001

50075$
;

50074$
DECR WORK]1 FROM #30.
MOV
030, ,WORK1
50075¢
BR
DEC

WORK1

cHP
BLT

WORK1,
01
50077%

TO o1 By o1

SAY SO

(R T, BN

RN N

Sunnron NN

e ’\ofi’\’\"\f\fi’\

CZLNADO LNO1
CZLNAD.P11

TEST

007616
007616
007622
007624
007630
007632
007636

007640
007644
007646
007646
G07650
007650
007650

DNMAC X24.07-563
10-APR-84 08:55

012727
00000¢
013727
000000
005367
001375
005367
001367

0-APR -84

INTERFACE LOGIC'
MCV
.WMORD
MOV
.WORD
DEC
BNE
DEC

000250
002116

177772
177756

000755

S50077s:
50074%:

PAGE 6-

SEQ 0044

DELAY 250
#250,(PC)+
O
L$DLY,(PC)e
O
-6(PC)
.-4
-22(PC)

ENDDEC
500764

ENDIF

iNOW TEST FOR PRINTER READY
007650
007650
007656
00766C
007660
007666
007666
007674
007674
007700
007700
007702
007704
007706
007710
007710

032772
001014

000200

002352

052762

100000

002506

013737

002310

002074

005262

003050

IF 0BITO7 NOTSETIN BLPCSR(R2) THEN
;TEST FOR THE READY BIT
BIT
0BITO07,8LPCSR(R2)
S50100$
BNE
LET STATUS(R2) := STATUS(R2) SET.BY ¢ERROR
8IS
#ERROR,STATUS(R2)
LET LSLUN := LUNIT

MOV

LUNIT,LSLUN

LET ERRTBL(R2) := ERRTBL(R2) + @01
INC
ERRTBL(R2)
ERRHRD 2,RDYERR
TRAP
CS$ERHRD

104456
000002
003360

.HORD
.WORD
WORD

000000

ENDIF

sREPORT AN ERROR

2
RDYERR
O

S0100%;

:INSURE LOADING CHARACTER CAUSES PRINTER READY TO GO AWAY
007710
007710
007716
007716
007724
007726
007726
007734
007734
007740
007740
007746
007746
007750
007752
007754
007756
007756
007762
007762

012772

000012

002446

032772
001416

000200

002352

052762

100000

002506

005262

003050

013737

002310

104456
000003
011010
000000

005072

002352

002074

LET SLPBUF(R2) := 012

MOV

012,8LPBUF(R2)

IF 0BITO7 SETIN BLPCSR(R2) THEN
BIT
#BIT07,8LPCSR(R2)
501018
BEQ
LET STATUS(R2) := STATUS(R2) SET.BY @#ERROR
8IS
QERROR, STATUS(R2)
LET ERRTBL(R2) := ERRTBL(R2) . 21
INC
ERRTBL(R2)
LET LSLUN := LUNIT

MOV

LUNIT,LSLUN

CLR

SLPCSR(R2)

ERRHRD 3,ERR11
TRAP
CS$ERHRD
3
.WORD
.WORD
ERR11
O
.WORD
LET SLPCSR(R2) := 00
ENDIF
50101¢%:

sREPORT AN ERROR

CZUNADO LNO1
CZLNAD. P11

TEST
DNHAC X24.07-563_
10-APR-84
09:07
INTERFACE LOGIC
10-APR-34 08:5

1677

1678
1679
1680

1681

N NN
N

-'U»ONfNUl&U'O‘
~
o

[

f\of\;f\fifififl

—

[Xl 2lTalalalalelelele) [ Tl e Y Y e Y aVal s Tl
el Lot
e la o~
®mH (S
LSOV LV VI VE VT VLY DONNEEANNO
N VWLV D W
[+ N vlhuuwuwwevwuvwNuuwuwDuuwwdouBivw
~
v
o

(3)

:VERIFY

THAT

PAGE 6-29

SEQ 0045

THE PRINTER WILL NOT

:THE SAME AS THE CPU
007762
007762
007766
007770
007770
007774
010000
010004
010010
010012
010016
010016

010024
010024
010032
010034
010034
010040
010040
010046
010050
010050
010054
010056
010062
010064
010070
010072

010076
010100
010100
010102

012700
104441

000200

012746
012746
016246
012746

000200
010516
002412
000003

104437
062706

INTERRUPT

SETPRI @PRIO4
OPRIO4,RO
MOV
TRAP
C$SPRI
SETVEC LPVEC(R2),4INTERR,4PRIO4
MOV
OPRIOA, -(SP)

MOV
MOV
MOV

TRAP

000100

002352

012737
000402

000036

003112

005337

003112

023727
02415

003112

012727
000000
013727
000000
005367
001375
005367
001367

000372

MOV

50103¢:

000001

50102¢:

002116
177772

177756

000755

;LP VECTOR SET uP

C$SVEC

;s INTERRUPT ENABLE

030, ,WORK1

50102¢

DEC

WORK1

cHP

WORK1,
01

501048
:

IS AT A PRIORITY LEVEL

@INTERR, -(SP)
LPVEC(R2), -(SP)
¢3,-(SP)

BLT
DELAY
MOV
WMORD
MOV
.WORD
DEC
BNE
DEC
BNE
ENDDEC
BR

;CPU TO PRIORITY 4

ADD
010,SP
LET SLPCSR(R2) := @LPCSR(R2) SET.BY #100
BIS
€100,8LPCSR(R2)
DECR WORK1 FROM @30, TO #1 By #1

000010

052772

501048
250.
0250. ,(PC)«
O
LSOLY,(PC)»
O
-6(PC)
. -4
-22(PC)
.-20

ALLOW FOR DELAY

S0103¢

sNOW TEST THAT THE PRINTER WILL INTERRUPT IF THE CPU PRIORITY IS LOWER THAN
; THE PRINTER PRIORITY
010102
010102
010110
010110
010114
010116
010116
010122
010126
010132
010136
010140
010144
010144
010152
010152

042772

000100

012700
104441

000140

012746
012746
016246
012746

000200
010546
002412
000003

062706

000010

052772

000100

012727

000113

104437

002352

LET SLPCSR(R2) := SLPCSR(R2) CLR.BY 2100
1CLEAR INTERRUPT ENABLE
BIC
#100,8LPCSR(R2)
SETPRI OPRIO3
1CPU TO PRIORITY 3
MOV
#PRIOS,RO
TRAP
C$SPRI
SETVEC LPVEC(G?).OINTHDL OPRIOA

MOV

OPRIO4, -(SP)

MOV

LPVEC(R2), -(SP)

TRAP
ADD

C$SVEC
#10,5P

MOV
MOV

002352

OINTHOL
, -(SP)
#3,-(SP)

LET SLPCSR(R2) := aLPCSR(R2) SET.BY €100
1 INTERRUPT ENABLE
8IS
€100,8LPCSR(R2)
; ALLOW FOR DELAY
DELAY 75,
MOV
275.,.(PC).

CZLNADO LNO1 TEST

CZLNAD.P11
(2)

010156

000000

(2)
(2)

010164
010166

000000
005367

(2)

010174

(2)

010160

DNMAC

10-APR-84 os:sg
013727

001367

(7)

010202

005262

003050

010206

013737

002310

1697

{4)

010206

BNE

(5)
(5)
(5)

010216
010220
010222

000004
011147
000000

(4)

010224

012772

000000

002352

042762

160000

002506

1699
1700
(7)

{;g;

010224

010232
010232

007472
007204

(3)
(3)

010250
010254

012700
104441

000000

010250

1709
1710
1712
1714

010256
010320
010362
010424

1715
1716
1717

010432
010474
010500

112737

000014

004737

005306

(6)

010500

032772

010424

010500

(10) 010506

1719

(3)

lg g())

LUNIT,LSLUN

END2:

CS$ERMRD

.MORD
.WORD
.WMORD

4
ERR13
O

MOV

000, 8LPCSR(R2)

LET SLPCSR(R2)

:= 900

s CLEAR THE LPCSR

LET STATUS(R2) := STATUS(R2) CLR.BY 9ERROR!DROPED'!ACTIVE
BIC
@ERROR !OROPED
! ACTIVE,STATUS(R2)

LET DELCNT(R2) := @0

:ENDINC

000137
004737

(4)
(3)

MOV

010510

001001

010510
010512

000773

010512

104432

010512

010514

000200

T1B:

T1A
PC,RESVEC

MOV
TRAP

#PRIOO0,RO
C$SPRI

SETPRI #PRIOO

OUTPUT QINTFAC,047,
OUTPUT SDFAULT, 9107,
OUTPUT @DECFIN,®5
LET OUTBUF :8= 014

003114

002352

JMP
JSR

MOV8

BIT

B8R

501054
:

TRAP

.MORD

CSEXIT

:EXIT THE

TEST

L10006-.

; INTERRUPT MANOLER TO SERVICE FAULTY

{;gi

sTHE CPU AND IS CONSIDERED AN ERROR.

1722

sWAIT FOR READY

@8IT7,8LPCSR(R2)

501064

TST

000510

014, 0UTBUF

BNE

ENDDO

EXIT

;PRINTS ON A NEW PAGE THE DEFAULT POWER-UP
; TOGGLE THE PAPER OFFSET

OUTPUT @OUTBUF
, 01
JSR PC,QUIET
WHILE 98IT7 NOTSETIN SLPCSR(R2) DO

50105% :

50106$ :

sUPDATE UNIT ¢
s+ RESET STANDARD VECTORS

1721

INTERRUPT FROM LP

INTERFACE.

;THIS ROUTINE IS ENTERED ONLY WHEN THE LP INTERRUPTS AT TME SAME LEVEL AS

1725
1726

010516
010516

1727

010522

(7)

+ #1

:END OF HARD CODED INCREMENT LOOP

010240
010244

1718

ERRTBL(R2)

1706
1707

(4)

:= ERRTBL(R2)

INC

TRAP

i;gg

(4)

. -20

ERRHRD 4,ERR13

104456

1703

1708

-22(PC)

LET LSLUN := LUNIT

002074

010214

LET ERRTBL(R2)

1698

(4)

. -4

DEC

010200

BNE

177756

SEQ 0046

6-3
"%

LSOLY,(PC)»

.WORD
DEC

(2)

010202

.WORD

PAGE

MOV

177772

001375

1696

-APR -84
LOG?? :07
m}garnce

002116

010172

005367

X24.07-563

010516

005262

003050

BGNSRV
INTERR:

LET ERRTBL(R2)

INC

:* ERRTBL(R2)

ERRTBL(R2)

LET LSLUN

:= LUNIT

+»

CZLNADO LNO1

CZLNAD.P11
(4)
(4)
(5)
(5)
(5)
(4)

(3)
(2)

TEST

010522
010530
010530

010532
010534
010536

010540
010540
010544

010544
010544

10-APR-84
013737

DNMAC X24.07-563

08:55

002310

002074

104456
000005
011064
000000
012716

010224

0-APR-84

IN}ERFRCESLOng .

14
-

" 6%

SEG 0047

MOV
LUNIT,L$LUN
ERRHRD S,ERR12
TRAP
C$ERHRD
5
L,WORD
.MORD
ERR12
©
'WORD
LET (SP) := QEND2
ENDSRV
L10007:

000002

:07

MOV

9END2,(SP)

RTI

; INTERRUPT HANDLER FOR EXPECTED INTERRUPT

(4)
(3)

(2)

010546

BGNSRV

010546
010546
010552
010552
010552

INTHOL:

012716

010224

ENDSRV
L10010:

000002

LET (SP)

MOV

:= QEND2

9END2, (SP)

RTI

010554

047111

042524

043122

010634
010702
010755

015414
052111
040

052143
084440
047111

044510
020123
042524

.NLIST BEX
INTFAC: .ASCIZ
OFAULT:

.ASCII
.ASCIT
.ASCIZ

/INTERFACE LOGIC TEST 1

----

TEST COMPLETE/<12><12>

<14>¢33>/cTHIS IS THE DEFAULT POWER UP FONT./<12>
/IT IS BASED ON SWITCHES.SET ON THE PARALLEL/
/ INTERFACE MODULE BOARD./<12><12>

;ERROR MESSAGES ASSOCIATED WITH THIS TEST
011010
011064
011147

(3)
(3)

011224
011224

011224

O11226

1757
1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770

047514
051120
120
011224
104401

042101
047111
044522

047111
042524
052116

ERR11:
ERR12:
Emzz

.ASCIZ
.ASCIZ
"ASCIZ

/LOADING PRINTER BUFFER DOES NOT CLEAR READY/
/PRINTER INTERRUPTED AT SAME LEVEL AS THE PROCESSOR/
/PRINTER DID NOT INTERRUPT AT CPU PRIORITY 3/

TRAP

CSETST

ENDTST

L10006:

.LIST BEX
ENDMOD

.SBTTL DATA TRANSFER PATHS
DATPAT.P11
sMODULE
011226

BGNMOD
HR

CZUNADO LNO1
CZLNAD.P11
1771
1772
1773
1774
1775
1776
1777
1778
1779
1780
1781
1782
1783
1784
(3)
1785
1787
1789

TEST
ONMAC x24.07-563
10-APR 34 08:55

10-APR-84

09:07

DATA TRANSFER PATHS

PAGE 6-32

SEQ 0048

: THIS TEST CHECKS THE DATA TRANSFER

;PATHS FROM THE PROCESSOR INTERFACE
:TO THE PRINTER OUTPUT, AN ALTERNATING
iPATTERN OF ONES AND ZEROES CORRESPONDING
:TO AN ALTERNATING STRING OF “s” AND

1 “U" CHARACTERS ARE TRANSMITTED ON THE
tFULL 132 COLUMNS,
AFTER 16 LINES OF
1 THIS PATTERN, THE OUTPUT PATTERN IS .
:SWITCHED TO AN ALTERNATING PATTERN
:OF "2 AND "8" CHARACTERS FOR ANOTHER
116 LINES.
'

011226

BGNTST

011226

OUTPUT @DECFIN,
@5

011270
011332

OUTPUT OREINI1,
&2
OUTPUT &DATPTH, 834,

011374
011374

INCR PATTERN FROM @1 TO 62 By o1
#1,PATTERN
MOV
50107¢
BR
50110%:
PATTERN
I
50107s:

T2::

011226

011402
011404
011404
011410
011410
011416
011420
011420
011426
011430
011430
011436
011436
011440
011440
011440
011446
011446
011446
011446
011452
011452
011460
011462
011462
011466
011466
011474
011476
011476
011502

011506

;PRINT TEST IDENTIFICATION

sPRINT ALTERNATING STRINGS OF CHARACTERS

012737
000402

000001

005237

v11770

023727
003111

011770

023727
001004

011770

000001

112737

000125

011722

011770

000002

000403

cHP

000077

012704

003114

012737
000402

000001

005237

002300

023727
003017

002300

113724
105137

011722
e11722

142737

000200

011722

S0115%:

011722

LET CHAR :B8+ #'?
MOVB
o' ?2,CHAR

ENDIF
S0113¢:
LET R4

002300

000102

S01118

IF PATTERN EQ 01 THEN
@1
PATTERN,
cMP
So0112¢
BNE
LET CHAR :B8= o'V
MOV8
' U,CHAR
ELSE
5011388
BR

501128:

112737

PATTERN, 2

B8GT

50114%:

:= #QUTBUF

QOUTBUF ,Ra
MOV
INCR CCNT FROM @1 TO #66. BY 01
MOV
01,CONT
501148
BR
INC

CCNT

cMP

CCNT, 066,

50116
LET (R4)+ :B8= CHAR
MOVB
CHAR,(R4
)+

BGT

COMB CHAR
LET CHAR :8= CHAR CLR.BY 2200
©200,CHAR
8ICB

TOGGLE PAPER OFFSET

K4
CZLNADO LNO1
CZLNAD. P11
1804
(4>

1805
1806
(7)
1807
(5)
(4)

1808
(4)
1809

TEST
10-APR -84

011514
011514
011520
011524
011524

011532

011532
011534
011534
011534
011540
011540
011544
011544
011552
011554
011554
011560
011560
011566
011570
011632

011636
011636
011640
011640

08755 *24-07-3635,1R TRANEAer BATs PACE ©-33

113724
105137

011722
011722

142737

000200

011722

50116%:
000015

112714

000012

012737
000402

000001

005237

002272

023727
003024

002272

004737

005306

002272

50120%:
000020

000746

011640
011642
011642
011642
011650
011712
011716
011716
011720

104432
000052

011722
011724

000000
055433

011770

011770
000000

50117¢$:

50121¢$:
ENDINC

000661

112737

000014

004737

005306

030061

LET (R4)+ :B= CHAR
CHAR,(R4
).
COMB CHAR
LET CHAR :8= CHAR CLR.BY #200
#200,CHAR
BICB
ENDINC
BR
S0115¢

MOVB

000753

112724

003114

042155

LET (R4)+ :R= 015
MOVB
915,(R4).
LET (R4) :B8= 012
#12,(R4)
MOVB
INCR LINCNT FROM &1
01 ,LINCNT
MOV
50117¢
BR

INC

011774

104401

TO #16.

By #1

LINCNT

CMP
8GT

LINCNT,216.
50121
OUTPUT Q0UTBUF, #134,
QUIET
JSR PC,
ENDINC
50120%
BR

50110¢
BR
S50111¢:
LET OUTBUF :B8= @14
MOVB
014,0UTBUF
OUTPUT
o0QUTBUF, @1
JSR PC,QUIET
EXIT TST
TRAP
CSEXIT

.WORD -~ L10011-.
.NLIST BEX
CHAR :
.WORD O
DATPTH: .ASCIZ <33>/[10mDATA TRANSFER PATHS TEST 2/ <12><12><12>
.EVEN

PATTERN:

.WORD 0

.EVEN
.LIST BEX
011772
011772
011772

SEQ 0049

ENDTST
L10011:

ENDMOD

TRAP

LEVEN

CSETST

CZLNADO LNO1
CZLNAD.P11

TEST

53 aPR.8a DB a8 X24-07-563,
10 MRANEAerOBA s PACE 6-34

SEQ 0050

1828
1839

'
L)

gflf\flfl’\f\flf\l‘\
o ~N 9 NOOO‘\IUIg ~
»
flfif\fl’\fififlflaflflfi’\'\fi’\fi
ANONORANVUVNIONO NN

W~ N w0
O v
v
i O N
NI N I N

1840
1841
1842
1843
1844
1845
1846
1847
1848
1849
1850
(3)
1851
1852
1853
1854
1855
1856
1857
1858
(5)

.SBTTL PRINTABLE CHARACTERS

:MODULE

PRICH1.P11

BGNMOD

011774

:
+

THIS TEST WILL PRINT A FULL LINE OF EACH CHARACTER IN THE DEC MULTINATIONAL SET.
IT WILL THEN SELECT PORTRAIT MODE AND DO THE SAME THING CVER AGAIN,

'--

ggmsr

011774
011774
011774

OUTPUT OPRTCHR, 035,

: PRINT TEST ID

; PRINT ALL CHARACTERS ON ALL UNITS
012036
012100
012142
012142
012146
012150
012150
012154
012154
012162
012164
012170
012170
012170
012176
012200
012200
012204
012204
012212
012214
012220
012220
012220
012224
012224
012232
012234

012234
012240

012240
012246
012250
012254
012254
012254

012260

$BRUMP=1

000001

005037
000402

003112

005237

003112

023727
003402
000137

003112

000001

012640

OUTPUT @SELDEC,#5
OUTPUT @DECFIN,
oS
INCR WORK1 FROM @0 TO #1 BY &1
CLR
WORK
1
BR
S0123¢
S50122¢:
INC
WORK1
50123$:

cHP

50124%:

003110

012737
000402
005237

003110

023727
003402
000137

003110
012336

012704

003114

012737
000402

000001

005237

002276

023727
003402
000137

002276
012262

113724

003110

50126%:

000177

50127¢:

INCR WORK FROM 240 TO 9177 By &1
040, WORK
MOV
50127$
BR
INC

WORK

cHP

K
, 9177
WOR

JMP

S0131$

MOV

S0130¢

LET R4 ;= QQUTBUF
Q0UTBUF ,R4

MOV

002276
50132%:
000204

WORK]1,
&1

50124
S0125¢

BLE
JMP

BLE

50130¢:

50133%:

INC

cMP

BLE

50134¢%:

; SELECT DECIPOINTS AS PARAMETER
: TOGGLE PAPER OFFSET
;: DO THIS TWICE

JMP
MOVB

INCR COUNT FROM #1 TO @132. By @1
@1,COUNT
50133¢

COUNT

COUNT,#132.

501344

50135$
LET CR4)+ :B= WORK
WORK
, (R4 )«
ENDINC

CZLNADO LNO1
CZLNAD.P11
(4)
(4)
1864
(4)

1865

1866
1867
(4)
(4)
1868
(4)

[

SO NONORANUINSD NONONOOONN
[P AN NI
W
N

~O~ e lalalalalelalel
Lo [ L lalalelalelals)

1869
1870
1871
(5)

1875

1876

1877
1878
1879
(4)
(4)
1880
(6)
(8)
(9)
1881
1882
(4)
1883
(4)

TEST
DNMAC X24.07-563
10-APR-84
09:07
PAGE 6-35
PRINTABLE CHARACTERS
10-APR-84 08:55

012260
012262
012262
012262
012266

012330
012334

012334
012336
012336
012336
012344
012406
012412
012412
012420
012422
012422
012426
012426
012434
012436
012442
012442
012442
012446
012446
012454
012456
012456
012462
012462
012470
012472
012476
012476
012476
012502
012502
012504
012504
012504
012510
012552
012556
012556
012560
012560
012560
012564
012566
012572
012634
012634
012634
012634

000765

50135s:

50132%

LET (R4)+ :B= 4LF
OLF ,(R4)+

112724

000012

MOVB

004737

005306

JSR PC,QUIET
ENDINC
BR
50126¢

000721

50131%:

112737

000014

004737

005306

012737
000402

000240

005237

003110

023727
003402
000137

003110

012560

012704

003114

012737
000402

000001

005237

002276

023727
003402
000137

002276

113724

003110

012504

000765
000012

004737

005306

000721

000137

003110

50136$:
000377

S0137$:

002276

S0142$:

501438

B8R

S0137¢

INC

WORK

CcMP

WORK , 0377

JMP

50141

501445%:

MOV

LET R4 := QOUTBUF
Q0UTBUF ,R4

MOV
BR

@1 ,COUNT
50143

INC

COUNT

cMP

COUNT, @132,

JMP

50145¢

S0144%

501464
:
ENDINC

LET (R4)+

WORK , (R4 ).

:B= WORK

ENDINC
50142%

. LET (R4)+

:B= oLF

OUTPUT #0UTBUF , #133.
JSR PC,QUIET
ENDINC
‘
50136¢
BR
IF WORK1 EQ €0 THEN
TST
WORK1
BEQ
. +6

JMP

012.34

s+ FOR EXTENDED VERSION ONLY

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

MOVB

003112

: EXECUTE TOF

501408

BLE

50141¢%:

012150

LET OUTBUF :B= 414
MOVB
€14 ,0UTBUF

BLE

50140%:

000204

OUTPUT 40UTBUF ,#133,

OUTPUT #0UTBUF
, 41
JSR PC, QUIET
INCR WORK FROM 4240 TO #377 BY 41
€240, WORK
MOV

50145%:

112724

005737
001402
000137

003114

SEQ 0051

ENDIF

JMP

50146

OUTPUT 4PORSQ, #25.

50122%

: DO THIS ONLY THE FIRST TIME

: CHANGE TO PORTRAIT AND

CZILNADO LNO1
CZLNAD.P11
(4)
1884
1885
(4)
1886
1887
1888
1889
1890
1891
(3)
(3)
1892
1893
1894
1895
1896
1897
1898
1899
(3)
(3)
1900
1901
1902
1903
1904
1905
1906
1907
1908
1909
1910
1911
1912
1913
1914
1915
1916
1917
1918
191¢
1920
1921
1922
1923
1924
1925
1926

1927
1928

1929
1930
1931
1932
1933

TEST
ounnc X24.07-563
10-APR-84 08:5

012640
012640
012702
012702
012710
012752
013014
013056

013062
013062
013064
013066
013132
013150

013163

013202
013202
013202
013204

10-APR-84

PRINTABLE cwnnut?ens

112737

000014

004737
177777

005306

003114

104432

000116

055433
042524
033
164
013202

104401

030061
052123
120
141

050155
041440
061
156

PAGE 6-36

501254
:
OUTPUT &DONE
, 14,
LET OUTBUF :B= #14
MOVB
©14,0UTBUF
OUTPUT @OUTBUF
, #1
OUTPUT OREINIT,#2
OUTPUT &SELDEC,
5
JSR PC, QUIET
$BRUMP=-1
EXIT TST
TRAP
CSEXIT
LWORD
L10012-.

e ook
;

TEST DONE MESSAGE

; EXECUTE TOF
; GO BACK TO DEFAULT

.NLIST BEX
PRTCHR: .ASCIZ <33>/[ 10mPRINTABLE CHARACTERS TEST 3/ <125¢12>¢12>
DONE:
.ASCII
/TEST COMPLETE/<12>
PORSQ:
.BYTE
33,120,61,73,61,61,175,104,105,124,151
; SEQS TO ASSIGN AND SELECT PORT
.BYTE
164,141,156,61,60,55,122,33,134,33,133,61,61,155
.EVEN

ENDTST
L10012:

TRAP

.LIST BEX
ENDMOD

.SBTTL

sMODULE
013204

CSETST

NON-PRINTABLE CHARACTERS

NOPRIN.P11

BGNMOD
s

;THIS 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 LNOl. EACH

sCHARACTER WILL APPEAR
ON THE PRINTER OUTPUT IN THE FORM OF ITS OCTAL
sCODE ACCOMPANIED WITH ITS MNEMONIC.

1122 OF THE TESTED CODE ARE THEN SENT FOLLOWED BY AN "“8" CHARACTER.
:IF THE CONTROL CODE HAS TAKEN UP A SPACE IN THE BUFFER THE "8" CHARACTER
sWILL APPEAR AT THE RIGHT MARGIN OF THE PAGE. IF THE CONTROL CODE HAS NOT

;TAKEN UP SPACE IN THE BUFFER THE "8" WILL APPEAR IMMEDIATELY TO THE RIGHT
;OF THE MNEMONIC FOR THE CONTROL CODE.
;

”mTE "

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

2 Y

CZLNADO LNO1
CZLNAD.P11

TEST
ONMAC X24.07-563
10-APR-84
09:07
PAGE 6-37
NON-PRINTABLE CHARACTERS
10-APR-84 08:55

i
f

1934

1935

1936

1937
1938
(3)
1939

1940
1941

1942
1943
\4)

SEQ 0053

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

?GNYST

013204
013204
013204
013246
013310

013310

013314
013314

4:.

1 INDICATE TEST CURRENTLY BEING DONE
OUTPUT OREINIT,
@2
OUTPUT ONONCHR, 875,
012704

014124

012737

000033

LET R4 := ONONBUF
ONONBUF ,R4
MOV
LET WORK1 := 827,
MOV
927, ,WORK1

003112
3

:+ DO ONE LINE FOR EACH TABLE ENTRY

013322
013322
013326
013326
013334
013336
013336
013342
013342
013350
013352
013352

005037

002276

012737

000001

000402

005237

002272

023737
003063

002272

012703

003114

LET COUNT := 00
COUNT
CLR
INCR LINCNT FROM @1 TO WORK] By @1
@1 ,LINCNT
MOV

002272

501508
003112

S0147%;

B8R

501478

INC

L INCNT

cHP

LINCNT ,WORK1

50151

B8GT

LET RS := 80UTBWF
MOV
QOUTBUF ,R3

: MOVE CODE AND MNEMONIC TO PRINT BUFFER

N~ ~

012737
000402

000001

005237

003110

023727
003002

003110

MOV

003110

501538
000010

S01528
:

112423
000770

]

s+
013406
013406
013414
013416
013416
013422
013422

012737
000402

000001

005237

003110

023727

003110

WORK

S50153$

PUT 120 BYTES OF CODE INTO PRINT BUFFER

;
50156%
:;

000172

WORK
, 08,
501544
LET (R3)s :B+ (R4).
(R4+,(R3).
:
ENDINC

501544

1959

INCR WORK FROM @1 TO 08, By
91, WORK
501524

g83 58

NN
NN
NN
OTM

poee

—

Lflgib s

ON~N—=N
wNwwwOww

(5)

013356
013356
013364
013366
013366
013372
013372
013400
013402
013402
013404
013404
013406

50155¢%:

MOV

INCR WORK FROM @1 TO @e122. By ol
@1, WORK

50155

INC

WORK

cHP

WORK
, 0122,

7 BIT CONTROL

CZLNADO LNO1
CZULNAD.P11
(9)
1962
(4)
1963
(5)
(4)
1964
1965
1966
1967
1968
4)

1969
(4)
1970
1971

1972

1973
1974
1975
(7
1976
(S)
(4)

1978
(4)
1979
(4)
1980
1981
1982
1983

TEST
DNMAC x24.07-563
10-APR-84 08:55

013430
013432
013432
013434
013434
013436

NONCPRINTABLE CHARACTERS © >°

003002

BGT

111423

MOvVB

000770

50157%
LET (R3)+

(R4),(R3).

S5EG 0054

:B- (R4)

ENDINC
501564

: FOLLOWED SY AN "8" CHARACTER AND A LF
013436

013436
013442

013442

112723

000100

112723

000012

LET (R3): :B= 0100
2100,(R3).
LET (R3)+ :B= 012
MOVB
012,(R3).
PRINT LINE OF OCTAL CODE,

013446
013510
013514
013514
013516
013516
013520
013520
013520
013524
013524

004737

000707

S0151%:
014507

012737

MNEMONIC,

iLF
120 BYTES(NONPRINTABLE CODE), AND "3@”

OUTPUT
@OUTBUF
, 0132,
QUIET
JSR PC,

005306

005204

012704

MOVB

003112

LET R4 := R4
R4
INC
ENDINC
50150¢
BR

LET R4 := ONONBF1
ONONBF
1 ,R4
MOV
LET WORK1 := #32.
032, ,WORK1
MOV

: DO ONE LINE FOR EACH TABLE ENTRY
013532
013532
013536
013536
013544
013546
013546
013552
013552
013560
013562
013562

005037

002276

012737

002272

000402

005237

002272

023737
003063

002272

012703

003114

S01618:

003112

501608
:

LET COUNT := @0
CLR
COUNT
INCR LINCNT FROM @1 TO WORK1 By o1
01 ,LINCNT
MOV
BR
S0160¢
INC

LINCNT

LINCNY WORK1
50162
LET RS :» OOUYOU'
MOV
Q0UTBUF ,R3

cHp
8GT

: MOVE CODE AND MNEMONIC TO PRINT BUFFER
013566
013566
013574
013576
013576
013602
013602
013610
013612
013612

012737
000402

003110

005237

003110

023727
003002

003110

112423

501644
:
000010

50163%;

MOV
BR

INCR WORK FROM @1 TO 08, By 01

o1, WORK

501638

INC

WORK

cMP
8GT

WORK
, 08,
501658
LET (R3)s

MOVB

:B= (R4).

(R4)+,(R3).

ESLNARRYYO! T837apr
aa BTG X24.07 563,10
ACR+RAL ¢ O2uRAACTERE -39
1991
(s)

013614
013614
013616

000770

50165%:
:

PNONPNE

8 O ~N~N=

i
013616
013616
013624
013626
013626
013632

013632
013640
013642
013642
013644
013644

013646

012737
000402

000001

005237

003110

023727
003002

003110

PUT

;
501678
:

B8R

ENDINC

50164

120 BYTES OF CODE

INTO PRINT BUFFER

INCR WORK FROM @1 TO 0122. BY a1
01, WORK
501664

MOV
BR

INC

WORK

cMP
8GT

WORK
, 0122,
$0170%

111423

MOVB

(R4),(R3).

000770

000172

5016648
:

S0170¢:

SEG 0055

LET (R3)+.

:8* (R4)

ENDINC
S0167¢

: FOLLOWED By AN "8" CHARACTER AND A LF
013646
013646
013652
013652

112723

000100

112723

000012

LET
MOV
LET
MOVE

(R3)+ :B= 0100
€100,(R3).
(R3). :B- 012
012,(R3).

3@
iLF

: PRINT LINE OF OCTAL CODE, MNEMONIC, 120 BYTES(NONPRINTABLE CODE), AND “3"
013656
013720
013724
013724
013726
013726
013730
013730
013730
013736
014000
014004
014004
014006

004737

005306

INC

005204

OUTPUT
@OUTBUF,0132.
QUIET
JSR PC,
LET R4 := R4 . 01

ENDINC

000707

501628

112737

000014

004737

005306

003114

501614

LET OUTBWF :8= 014

MOV

214 ,0UTBUF

TRAP

CSEXIT

OUTPUT GQUTBLF
, 01
JSR PC, QUIET
EXIT
TST

104432
001144

.WORD

sAND EXIT TEST

L10013-,

:CHNRACYER BUFFER AND TEST MEADER MESSAGE
:NLIST BEX

014010
014055

055433
101

030061
043040

047155
046125

NONCHR:

014124
014135
014146
014157

030040
040
030040
040

030060
030060
031060
030060

020061
051440
020063

047040

NONBUF: .ASCII

_ASCII

LASCIZ
LASCIT
LASCII
LASCII

<33>/[ 10mNON-PRINTABLE CHARACTERS TEST 4/<12>

/AR FULL LINE OF EACH CODE WILL BE SENT/<12»
/ 000 NWL/<0O»

7 001 SOM/<1>
7 002 STx/<2>
7/ 003 ETX/<3»

014773
015004
015015
015026
015037
015050
015061
015072
015103
015114
015125
015136

e
e
T
T
i
T
e
e
T
T

051040
020067
042040

+ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
JASCII
.ASCII
.ASCII
.ASCII
+ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
JASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

6-40

004 EOQT/<4>
005 ENQ/ <S>

043040
020065

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
ASCII

042440
020065
040440
020067
041040
020066
051440
020060
054040
020062
054040
020064
047040
020066
042440
020060
042440
020062

006
007
010
016

ACK/<6>

BEL/<7>
BS /<10»
SO /¢<16>
017 SI /<17>
020 DLE/<20»
021 XON/<21>
022 DC2/¢<22>
023 XOF /7¢23>
024 DCa/<24>
025 NAK/ <25>
026 SYN/<26>
027 ETB/<27>

030 CAN/<30>

031 EM /<31>
032 SUB/<32>
034 FS /7<34>
035 GS 7<35>
036 RS 7<36>
037 US 7<37>

177 DEL/<177>
/7<200>

/7<201>
/7<202>
/7¢203>

IND/ <204 >

NEL 7<205>

SSA/<206>

ESA/<207>

014542
014553
014564
014575
014606
014617
014630
014641
014652
014663
014674
014705
014716
014727
014740
014751
014762

040
030040
040
030040

032060
030060
033060
030060
030061
030460
033461
031060
030462
031060
031462
031060
032462
031060
033462
031460
030463
031460
032063
031460
033063
031460
033467
030062
030460
030062
031460
030062
032460

09:0

HTYS/¢210>

HTJ/7<211>
VIS/7<¢212>
PLD/<213>
PLU/<214>
RI /7¢215>
§S527/¢<216»

€837¢217>

7<220>

014355
014366
014377
014410
014421
014432
014443
014454
014465
014476
014507
014520
014531

030040
040
030040
040
030040
040
030049
G40
030040
040
030040
040
030040

10-APR-84

NON-PRINTABLE CHARACTE S

2034
2035
2036
2037
2038
2039
2040
2041
2042
2043
2044
2045
2046
2047
2048
2049
2050
2052
2053
2054
2055
2056
2057
2058
2059
2060
2061
2062
2063
2064
2065
2066
2067
2068
2069
2070
2071
2072
2073
2074
2075
2076
2077
2078
2079
2080
2081
2082
2083
2085

014170
014201
014212
014223
014234
014245
014256
014267
014300
014311
014322
014333
014344

X24.07-563

2028
2029
2030
2031
2032
2033

TEST
DNHAC
10-APR-84
0O

031462
033463

CZLNADO LNO1
CZLNAD.P11

PUL/<221>
PU2/¢222>
STS5/7¢223>
CCH/<224>
MU 7¢<225>
SPA/<226>
EPA/<227>
7¢230>
/7¢231>

/¢232»

CSI/<233>
ST /<234>
0SC/<235>

PM /7¢236>
APC/<237>

SEQ 0056

CZLNADO LNO1
CZLNAD.P11
2086
2087
2088
2089

(3)
(3)

2090
2091
2092
2093
2094
2095
2096
2097
2098
2099
2100
2101
2102
2103
2104
2105
2106
2107
2108
2109
2110
2111
2112
2113
2114
2115
2116
2117
2118
2119
2120
2121
(3)
2123
2125
2126
(5)
(7)
2127
2128

NN NN

NN PN

NOANONORO
N
Wi

(S)

TEST
DNMAC X24.07-563
1¢-APR-84 08:55

015150

015152
0151%2
015152

10-APR-84

09:07

SEG 0057

PAGE 6-41

NON-PRINTABLE CHARACTERS

000000

NUM:

.WORD 0

104401

.LIST BEX
ENDTST
LL10013:
TRAP

CSETST

ENDMOD

015154

.SBTTL PRINT CONTROL

sMODULE

PRNCON.P11

015154
o

s THIS TEST CHECKS THE PRINT CONTROL BY SENDING MORE THAN 132 CHARACTERS
:BEFORE SENDING A CARRIAGE RETURN AND LINE FEED. ALL CHARACTERS IN EXCESS
lG’ 132 CHARACTERS SHMOULD BE DISREGARDED.
;THREE LINES ARE PRINTED PER ITERATION,

THESE LINES WILL IDENTIFY

lCG.W M.IOERS lCNOSS THE PAG% EXAMPLE :
1

5. Se e s s ssesessnserns

l123456769012345670901234567890..................

THE

012

lM)l’ICE THAT THE PRINTOUT SHOULD IDENTIFY 132 COLUMNS ACROSS THE PAGE.

:YHIS OUTPUT IS REPEATED 13 TIMES.

015154
015154
015154
015216
015260
015260
015264

015266
015266
015272
015274
015274
015300
015300
015304
015306
015312
015312

ééfnsv s

OUTPUT @DECFIN,
05

OUTPUT OREINIT,
02

013701
005301
000001

002012

005037
000402

002310

005237

002310

023701
003402
000137

002310

LET R1

:= LSUNIT - o1

MOV

$BRUMP=1

016144

DEC

LSUNIT,R1
R1

INCR LUNIT FROM 00 TO R1 By 01
LUNIT
CLR
501728
BR

S0171%:

50172%:

INC

cMP

BLE

S50173%:

JMP

LUNIT

LUNIT,R1

S0173¢

50174
LET R2 ;= LUNIT SHIFT 1

: TOGGLE PAPER OFFSET

015516
015516
015522
015522
015522
015524

015526
015532
015572
015572
015574
015574

015636
015636
015644
015646
015646
015652
015652
015660
015662
015666
015666
015730
015730
015732
015732
015774
016036
016036
016042
016042
016046
016050

002310

012737

000015

01705

016424

005715
001002
000137

MOV
ASL

002276

MOV

S0175%:
015446

TST
BNE
JMP

000753

112737

000012

012705

016460

005715
001002
000137

003114

PAGE 6-42

SEQ 0058

LUNIT,R2
R2

OUTPUI #PRTCTL,#61.,,LUNIT
LET COUNT := 013,
:}3..COUNT
LET RS

:= OTABLE1L

©TABLEL1,RS
WHILE (RS) NE 0 DO

(RS)
50176%

QUTPUI (R5)+,#10.,,LUNIT
ENDDO

MOVB

015574

WHILE (RS) NE 00 DO

005337

002272

023727
002002
000137

002272

015732

000746

50201$:
50202¢%
:

50203
:

002276

005737
003002

002276
016060

DECR LINCNT FROM 014,
@14, ,LINCNT
50202%

TO 21 By 21

LINCNT

LINCNT,
o1

502038
50204

OUTPUI &x11,010.,,LUNIT
ENDDECR
502018

50204
:

005337

502008

OUTPUI @0OUTBUF
, 01, ,LUNIT

MOV

002272

(fl%)

ENDDO
50177s

502004
:

000016

:8+ #12

012, 0UTBUF
;
F
, 01, ,LUNIT
OUTPUI @OUTBU
@TABLE2,R5

S50177s:

012737
000402

LET QUTBUF

LET RS := OTABLE2

000753

000137

50175¢

(6)
(8)
(9)
2142
2143
(3)
(3)
2144
2145
2146
(5)
(7)

015404
015444
015444
015446
015446
015446
015454

013702
006302

X24.07-563p“*giA88&930L09:07

3Rz

2141
(4)

015312
015316
015320
015362
015362
015370
015370
015370
015374
015374
015374
015376
015400

8:5§

NMAC

WIES

(S)
(8)
2130
2131
(4)
2132
2133
(4)
2134
(4)
(6)
(8)
(9
2135
2136
3)
(3)
2137
(4)
2138
2139
2140
(4)

TEST
10-APR-84

CZLNADO LNO1
CZLNAD.P11

DEC
TST

8GY

UF
,&1, ,LUNIT
OUTPUL @QUTB
OUTPUI @OUTBUF,@1, ,LUNIT
LET COUNT := COUNT - o1
COUNT
IF COUNT GT @0 THEN
COgNT
50205%

HS
CZLNADO LNO1

TEST

ONMAC X24.07-5€3

CZUNAD.PI1 = 10-APR-84 08:55
2153
5154
(3)

016054
016060
016060

000137

015370

2155
3156
(3a)

016060
016064
016064

004737

005306

112737

000014

2158
5159
(3)
(a)
2160
3161
(3)
(3)
2162
5163
2164

016138
016140
016140
016144

004737

005306

000137

015274

2157

016072

003114

177777

016150
016203

055433
123

030061
047510

050155
046125

5166
5167
5168
5169
2170
2171
2172
2173

016246
016260
016272
016308
016316
016330
016342
016354

020080
020040
020080
020040
020040
020080
020040
020040

020040
020040
020040
020040
020040
020040
020040
020040

2177

016412

031061

016424
016460

016246
016260

2179
2180
2181
2182
2183

2184

2185
(3)
(3)
2186
2187
2188
2189
2190
2191
2192
2193
2194
2195
2196
2197

016366
016400

016514
016514
016514
016516

MOVE

JMP 18

JSR PC, QUIET
LET OUTBUF :B= 014
#14,0UTBUF
OUTPUI
@OUTBUF
, @1, ,LUNIT
JSR PC,QUIET

JMP
501718
501748
$BRUMP=
-1
EXIT TST
TRAP
CSEXIT
LMORD
L10014-.
NLIST BEX
PRTCTL: .ASCII <33>/[10mPRINT CONTROL TEST

{ASCIZ

5/ <12>
/SHOULD SHOW 132 COLUMNS PRINTED/<12>¢12><1S5>

020040
020040

XO:
X1:
X2:
X3:
X4:
X5:
X6:
X7:
X8:
X9:

ASCII
ASCII
‘ASCIT
"ASCII
‘ASCIT
ASCII
"ASCII
ASCII

7
7
7
7
7
7
/
7

032063

033065

X1l:

.ASCII

/1234567690

016246
016272

016246
016304

.EVEN
TABLEl:
TABLE2:

.WORD
.WORD
.EVEN

XO0,Xx0,Xx0,X0,X0,X0,X0,X0,X0,X1,X1,X1,X1,0
X1,X2,X3,X4,X5,X6,X7,x8,X9,X0,X1,%X2,X3,0

020040
020040

ASCII
ASCIT

/
7

o/
1/
2/
3/
as
5/
6/
77
8/
9/

.LIST BEX

104401

ENDTST
L10014:

ENDMOD

TRAP

CSETST

.SBTTL

2198

2199
2200

020080
020040

PAGE 6-43

ENDIF

ENDINCR

104432
000346

2174
2175

09:07

502058:

016144
016144
016146

10-APR-34

PRINT CONTROL

sMODULE
016516

BGNMOD

MULTIPLE LINE ADVANCE

MULTLI.P11

N8 005

CZUNADO LNO1
CZLNAD.P11
2201
2202
2203
2204
2205
2206
2207
2208
2209
2210

(3
2211
2212
2213
2215
2217
2218
2219
2220
(a)
2221
2222
(3)
2223

(4)
2224
(7)

(7)

TEST

IS
ONMAC X24.07-563
10-APR-84
09:07
PAGE 6-44
MULTIPLE LINE ADVANCE

10-APR-84 08:55

[

1 THIS TEST CHECKS THE MULTIPLE LINE ADVANCE OF THE LNO1. A LINE OF
sNUMBERS IS SENT AND THEN A NUMBER OF LINE FEEDS ARE SENT. THUS THE
tNUMBER PRINTED WILL INDICATE THE NUMBER OF BLANK LINES FOLLOWING THAT
:LINE. THE NUMBER OF LINES IS VARIED BETWEEN 2 AND 7 AND A LINE OF
sALL 0'S WILL INDICATE THE END OF THE TEST
SEQUENCE.
g

BGNTST

016516
016516

T6::

;PRINT TEST IDENTIFICATION
016516
016560
016622

016664
016664
016672
016672
016672
016672
016700
016700
016704
016710
016714
016714
016720
016720
016726
016730
016730
016734
016734
016742
016744
016744
016750
016750
016752
016752
016752
016754
016754
016754
016760
016762
016762
016766
016766
016770
016770

012737

017142

117737

000242

013746
042716
042637

002272

012703

003114

002300

023727
003003

002300

117723

000170

000767

LET STACHR := OTABSTR

sOUTPUT CHARACTERS

MOV

REPEAT
50206
:
LET LINCNT
MOV8
LET LINCNT

MOV
8IC
BIC

OTABSTR,STACHR

LINCNT, -(SP)
07,(SP)
(SP)e+ ,LINCNT

$sSET UP OUTPUT BUFFER

SOUTBUF ,R3
MOV
INCR CONT FROM @1 TO #132. By o1
@1,CONT
MOV
S0207%
BR

502104:
000204

TOGGLE PAPER OFFSET

:8= BSTACHR
sGET A CHARACTER TO OUTPUT
@STACHR,
L INCNT
:= LINCNT AND @7 ;MAKE THE ASCII TO OCTAL

LET RS := QOUTBUF

002300

005237

S0207¢:

CCNTY

cre

B8GTY

CCNT, 0132,

S0211¢

LET (R3)+ :B= SSTACHR
MOVB
8STACHR,(R3).
ENDINC
S0211%:;

B8R

;PUT CHARACTER

IN OUTPUT BUFFER

50210%

LET R4 := &0
CLR
R4

005004
020437
001404

002272

112723

000012

000771

002272

012737
000402

005204

017140

OUTPUT @DECFIN,
&S
OUTPUT OREINIT,®#2
OUTPUT OMULINE,#91.

WHILE R4 NE LINCNT DO
50212%:

cHP

R4 L INCNT

MOVB
LET R4
INC

012,(R3).
:= R4 . 01
R4

S50212¢

50213¢
BEQ
LET (R3). :B= 012

ENDDO

sFILL WITH LINE FEEDS

0060

CZLNADO LNO1
CZLNAD.P11
{3)

2234
2235
2236
2237
{S)
(7)
2238
(7)

2239
2240
2241
2242
(3)
(7)
2243
(4)
2244
2245
2246

(3)
(3)

2247

2248
2249
2250
2251
2252
2253
2254
2255
2256
2257
2258
2259
2260
(3)
(32)
2261

2262
2263
2264
2265
2266
2267
2268
2269

2270
2271
2272
2273
2274
2275
2276
2277
2278

TEST
DNMAC X24.07-563
10-APR-84
09:07
PAGE 6-45
MULTIPLE LINE ADVANCE
10-APR-84 08:55

SEQ 0061

50213%:

016772

:NOW OUTPUT THE ACTUAL LINE
016772
016772
016776
017002
017002
017006
017046

017052
017052
017056
017060
017060
017066
017130
017134
017134
017136

013704
062704

002272
000204

005237

017140

004737

005306

005737
001305

002272

112737

000014

004737

005306

000000

017142
017157
017222

033462
033
052516

017314

017316

104401

033062
030533
041115

:= LINCNT

0132,

LINCNT,R4
MOV
0132.,R4
ADD
LET STACHR := STACHR +» &1
STACHR
INC
OUTPUT @OUTBUF ,R4
JSR PC,
QUIET

003114

104432
000156

017140

017314
017314
017314
017316

LET R4

033463
066460
051105

stNUMBER OF CHARACTERS TO OUTPUT

;+ UPDATE CHARACTER COUNT

;OUTPUT THE LINE

UNTIL LINCNT EQ @0
TST
LINCNT
BNE
502064
LET OUTBUF :B8= #14

MOVB

@14 ,0UTBUF

OUTPUT QOUTBUF,
o1
JSR PC,QUIET
EXIT TST
TRAP
CSEXIT
.WORD
L10015-.

STACHR: .WORD O
.NLIST BEX
TABSTR:

MULINE:

.ASCIZ

.ASCII
.ASCIZ

7272637463540/

«<33>/(10mMULTIPLE LINE ADVANCE TEST
6/<12>
/NUMBERS PRINTED REPRESENT & LINES TO NEXT LINE PRINTED/<12><12>

.EVEN
.LIST BEX

ENDTST
L10015:
ENDMOD

TRAP

CSETST

.SBTTL DVSTRIKE

BGNMOD
.

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

:IN LANDSCAPE, UP TO 142 PRINTABLE CHARS/LINE ARE PERMITTED, WITH

CZLNADO LNO1
CZLNAD.P11

f\fififlf\f\g

ol
lelalalele) ~

NNEAJUVNOBOVNNEFON w
ww O wurwuww
O~

3 09:07 PAGE 6-46
R-84
-56
) 10-AP
£ ST PR.ga DNMAC X24.07

TEST

:A MAXIMUM OF FIVE CARRIAGE RETURNS/LINE.

SEQ 0062
IN PORTRAIT,

150

NOTE:

THIS TEST IN A SOMEWMAT MODIFIED FORM IS BEING USED ALSO FOR
THE VAX VERSION OF THE LNO1 EXTENDED DIAGNOSTIC.

®s

;CHARS/LINE WITH A MAXIMUM OF TWO CARRIAGE RETURNS/LINE ARE ALLOWED.

2279
2280
2281
2282
2283
2284
2285
2286
2287
2288
(3)
2289
2291
2293
2294
2295
2296
2297
2298
2299
2300

IKS

017316
017316

BGNTST 7
T7::

017316
017360
017422
017464
017526

OUTPUT @DECF
IN, 05
OUTPUT #REINIT,
&2
OUTPUT &VPA, 06
OQUTPUT OPORSEL
, 45
OUTPUT @OVTEST,#19.

TOGGLE PAPER OFFSET

SET VERTICAL POSITION
SELECT PORTRAIT MODE
IDENTIFY TEST

: OVERLAY TWO LINES OF SEVENTY-FIVE CHARS
017570
017570
017574
017576
017576
017600
017600
017604
017606
017606
017612
017612
017616
017620
017620
017622
017622
017626
017630
017630
017634
017634
017636
017636
017636
017642
017704
017710
017710
017714
017714
017720
017722
017722
017724
017724

012701
000401

00001

50215%:

005201
020127
003105

000062

012704

003114

012702
000401

000001

020227
003003

000113

112724

000057

000771

000015

004737

005306

012704

003114

012702
000401

50217%:

000113

cHP

R1,4050.

50216$

50217¢

INC

502218
LET (R4). :B8= 057
Move
@57,(R4).
ENDINC

BGT

502208

LET (R4). :B8= #15
@15,(R4).
MOV8

OUTPUT QOUTBUF ,876.
JSR PC, QUIET

50223%:

005202

LET R4 := QOUTBUF
MOV
Q0UTBUF
R4
INCR R2 FROM &1 TO 075, By 01
MOV
#1,R2

50221¢%:

112724

INC

B8GT

50220¢:

005202

020227

50214%:

INCR R1 FROM @1 TO #50. BY #1
@1,R1
MOV
50214
BR

502224
:

MOV

LET R4 := 20UTBUF
Q0UTBUF ,R4

MOV
BR

502224

INCR R2 FROM #1 TO @75, By 01
e1,R2

INC

cMP

R2,075,

50 LINES

CZLNADO LNO1
CZLNAD.P11
(9)

2310
(4)
2311
(5)
(4)
2312
(4)
2313
(4)
2314
2315
2316
(S)
(4)
2317
(4)
2318
2319
2320
2321
2322
2323
2324
(5)
(7)
(6)
(10)
(75
£
(9)
2325
(4)

TEST
DNMAC X24.07-563
10-APR-84
10-APR-84 08:55
OVSTRIKE

017730
017732
017732
017736
017736
017740
017740
017740
017744
017744
017750
020012
020016
020016
020020
020020
020020
020026
020070

PAGE 6-47

SEQ 0063

502244
LET (R4)+ :B= ¢134
©134,(R4).
MOVB
ENDINC
BR
502234
BGT

003003

112724

09:07

000134

000771

50224
:

LET (R4)+

:B= 415

LET (R4).

:B= 412

112724

000015

MOVB

015,(R4).

112724

000012

MOVB

212,(R4).»

004737

005306

OUTPUT QOUTBUF ,077.
JSR PC, QUIET

ENDINC

000667

50216%:

112737

000014

004737

005306

003114

50215¢

LET OUTBUF :B= @14
MOVB
@14, 0UTBUF
OUTPUT QOUTBUF
, 01
JSR PC, QUIET

: OVERLAY TWO LINES OF SEVENTY-ONE CHARS
020074
020136
020136
020142
020144
020144
020146
020146
020152
020154
020154
020160
020160
020164
020166
020166
020170
020170
020174
020176
020176
020202
020202
020204
020204
020204
020210
020252
020256
020256
020262
020262
020266
020270

012703
000401

000001

502264
:

005203
020327
003105

000102

012704

003114

012702
000401

000001

502254
:

020227
003003

000107

112724

000057

000771

INC

cHP
BGT

R3, 066.
502274
LET R4 := QOUTBUF
QOUTBUF ,R4
MOV
INCR R2 FROM @1 TO #71. BY 41
MOV

S0231¢$:

005202

OUTPUT @LANSEL
, 05
INCR R3 FROM &1 TO #66. BY 41
1,R3
MOV
BR
50225%

50230¢%
:

#1,R2

50230%

INC

cHP
BGT
MOVB

50232%:

ENDINC

50231+

LET (R4).

112724

000015

004737

005306

012704

003114

MOV

012702
000401

000001

MOV
BR

502345

R2.071.
50232 s
LET (R4). :B= 057
957,(R4).

:B= 015

OUTPUT QOUTBUF ,#72,
JSR PC, QUIET
LET R4 :+= 00UTBUF

Q0UTBUF ,R4

INCR R2 FROM @1 TO #71, BY 01
#1,R2
502334

s SELECT LANDSCAPE MODE

: 66 LINES OF OVERPRINTING

CZLNADO LNO1
CZLNAD. P11

TEST pr._ga

(10) 020270
020272
020272
020276
020300
020300
020304
020304
020306
020306
020306
020312
020312
020316
020360
020364
020364
020366
020366
020366
020370

000046

020372
020416
020423
020430

053117
033
033
033

020436
020436
020436

104401

DAMAG X24.07-563 10-9PR-84

09:07

INC

005202
020227
003003

000107

112724

000134

50233%:

000771

50235¢:

112724

000015

112724

000012

004737

005306

000667

S50227%:
EXIT TST

104432

020440

051105
133
133
133

052123
061
061
063

PAGE 6-48

SEQ 0064

CMP
BGT

R2,071.
502354
LET (R4)+ :B= 0134
2134,(R4).
MOVB
ENDINC
502344
BR
LET (R4)+ :B= 015
MOVB
@15,(R4).
LET (R4)+ :B= 012
012,(R4).
MOVB
OUTPUT @OUTBUF ,#73,
JSR PC, QUIET
ENDINC
BR
502264
TRAP

CSEXIT

TRAP

CSETST

.WORD
L10016-.
.NLIST BEX
OVTEST: .ASCIZ
/OVERSTRIKE TEST 7/¢12><12>
LANSEL: .BYTE 33,133,61,60,155
PORSEL: .BYTE 33,133,61,61,155
.EVEN
ENDTST
L10016:

LIST BEX
ENDMOD
.SBTTL READY LINE INTERLOCKS

sMODULE

020440

OLDLCK.P11

TEST 8

BGNMOD
e

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

sMANUAL INTERVENTION IS USED TO

sOPEN THE INTERLOCKS TO PRODUCE FAULTS
:IN THE PRINTER AFTER WHICH THE RESULTANT ERROR
s INDICATION IS VERIFIED.
rE

ggmsf

020440
020440

(3)

(3)
2369

020440
020440
020442
020442
020444
020444
020446

;DETERMINE IF MANUAL INTERVENTION IS ALLOWED
104450

MANUAL
TRAP

C$MANI

103402

B8CS

11$

104432
003026

BCOMPLETE 11$

EXIT TST
TRAP
CSEXIT
LWORD
L10017-.

;EXIT TEST IF MANUAL INTERVENTION TESTS ARE NOT SPECIFIED

CZLNADO LNO1
CZLNAD.P11
2370
(6)
(10)
23 71
(3)
(3)
2372
(4)
2373
(4)
2374
(3)
(7)
2375
2376
2377
VMNONSNEEONN
OO

Bl
lalalalelele)

(5)

TEST
DNMAC X24.07-563
10-APR-84
09:07
PAGE 6-49
READY LINE INTERLOCKS
TEST 8
10-APR-84 08:55

020450
020450
020454
020456
020456
020460
020462
020462

020462
020462
020466

020466
020472

020474
020474
020500
020502
020502
020506
020506
020512
020514
020514
020520
020522
020522
020530
020532
020532
020536
020536
020540
020542
020544
020546
020546
020552
020552
020552
020552
020554

005737
001002

IF _INHINT EQ #0 THEN
TST
INHINT

11$:

002264

104432

003014

50236%:

005037

002270

013701
005301

002012

BNE
502364
EXIT TST
TRAP
CSEXIT
LWORD
L10017-,
ENDIF
LET FLAG := #0

CLR
LET R1
MOV
DEC

FLAG
:= LSUNIT - 41
LSUNIT,R1
R1

:CHECK FOR ERROR IN EACH PRINTER UNDER TEST

005037

002310

005237

002310

023701
003020

002310

013702
006302

002310

032772
001410

100000

005262

003050

000402

104456
000006
003342
000000
005072

002352

INCR LUNIT FROM 40 TO R1 BY #1
LUNIT
CLR
S0237¢
BR
502404
:
INC
LUNIT
50237$:
cMP
LUNIT, Rl
BGT
S02418
LET R2 := LUNIT SHIFT 1
MOV
LUNIT,R2
ASL
R2
IF oBIT1S SETIN S8LPCSR(R2) THEN
BIT
oBIT1S5,.8LPCSR(R2)
BEQ
50242
LET ERRTBL(R2) := ERRTBL(R2) + #1
INC
ERRTBL(R2)
ERRHRD 6, CSRERR
TRAP
C$ERHRD
.WORD
6
CSRERR
.WORD
.WORD
O
LET @LPCSR(R2) := #0

CLR
ENDIF

SLPCSR(R2)

502404

50242%
:
ENDINC

000753

502414:

: PRINT TEST NAME
020554
020616

OUTPUT @INTLK, 028.
OUTPUT 4BLANK, 844

;VERIFY OPERATION OF PAPER OUT INTERLOCK SWITCH
sHARD CODED INCREMENT LOOP

020660
020660
020664
020670
020672

005037
005037
000405

002334
002310
2%:

LET ERRFLG := 40
CLR
ERRFL.G
CLR LUNIT
BR
1$

SEQ 0065

CZUNADO LNO1
CZLNAD.P11

N NN NN

D o

a2lLaltelelelelelal

bOumMMhuwgbbquObbquus &b

(RN

2397
2398
(5)
(8)
2399
2400
2401
2402
2403
2404

TEST
DNMAC X24.07-563
10-APR-84
09:07
PAGE 6-50
READY LINE INTERLOCKS
10-APR -84 08:55
TEST 8

020672
020676
020676
020702
020704
020704
020710
020712
020716
020716
020716
020722
020722
020726
020732
020734
020736
020742
020742
020746
020752
020756
020760
020762
020766
020766
020772
020776
021000
021002
021006
021006
021010
021012
021014
021016
021020
021022
021022
021022
021030
021030
021034
021034
021034
021076
021076
021102
021102
021110
021112
021120
021122
021130
021132
021132

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

005237

002310

013702
006302

002310

023701
003402
000137

002310
021444

005037

002270

012746
012746
010690
104417
062706

022356
000001

MOV
MOV
MOV

000004

ADD

013746
012746
012746
010600
104417
062706
012746
012746
010600
104417
062706

1%:

33:

ASL

LET FLAG := @0
CLR
FLAG

PRINTF Q0PAPRSW

TRAP

OPAPRSM, -(SP)
e1,-(SP)
SP,RO

CSPNTF

4 ,5P

PRINTF OPAPSMW1 ,LUNIT

002310

MOV
MOV
MOV
MOV

000006

ADD

TRAP

LUNIT, -(SP)
OPAPSMH]L, -(SP)
02, -(SP)
SP,RO

CSPNTF

06, SP

PRINTF OPAP

MOV
OPAPSM2,
- (SP)
MOV
o1,-(SP)
MOV
SP,RO
CSPNTF
TRAP
ADD
04,5SP
GMANIL READY, FLAG, 100000,
TRAP
CSGMAN
100004
8R
.MORD
FLAG
.WORD
TSCODE

022542
000001
000004

104443

000404
002270
000130
007006
100000

005037

cMP LUNIT,R1
BLE 33
JMP as

022462
000002

100008:

012737

002272

002334

S0243%;

.WORD
.WORD

s LINE COUNT WILL ALLOW FOR 3 PAGES OF PAPER

LET LINCNT := 02
92 ,LINCNT
MOV
LET ERRFLG := 00
ERRFLG
CLR
REPEAT

OUTPUI #PAPTST, 02,058 ,LUNIT
LET LINCNT := LINCNT . 01
L INCNT
INC
IF LINCNT EQ #65. OR LINCNT EQ 0130. OR LINCNT EQ 2195.

002272

023727
001410
023727

002272

000101

cHP

LINCNT, 065,

002272

000202

cMe

LINCNT,#130.

002272

000303

BEQ
BEQ

cMP

502444
;

YES

READY
100000

005237

001404
023727
001024

SEQ 0066

BNE

502444
50244

LINCNT, 0195,

502454

LET OUTBUF

:+ @14

s+ FORM FEED

THEN

CZUNADO L.NO1
CZLNAD.P11

021132
021140
021202
021202
021202
021202
021210
021212
021216
021220
021220
021220
021224
021226
021226
021234
021276
021276

021300
021302
021304
021306
021306

NSNS IS

- NN PR

n
n
N
n
~b falallaloalalalalalal
ot Ialalalale

CMUU‘U‘U‘U‘DWHS:QDOMON

(8)

243%
2434

Cé

TEST
ONMAC x24.07-563
10-APR-84
09:07
PAGE 6-51
READY LINE INTERLOCKS
TEST 8
10-APR -84 08:55

021312
021312
021316
021316
021320
021320
021320
021324
021324
021324
021324
021330
021334
021340
C21342
021344
021350
021350
021354
021354

021356
021360

021362
021364
021366
021370
021370
021370
021374
021376
021376
021402

012737

000014

003114

MOV
502454
;

023727
001403
005737
001706

002272

000404

502464
:

005737
001035

002334

012737

000014

003050

000137

021324

000402

005037

002270

:= #14

: FORM FEED

214, ,0UTBUF

INLINE

110028

<JMP

3 OUTPUT THE FF

11002%>

502508

LET ERRFLG :* 00
ERRFLG
ENDIF

CLR

110028: PRINTF OPAPRDY ,LUNIT
MOV
LUNIT, -(SP)

MOV

OPAPRDY, -(SP)

TRAP

‘CSPNTF

MOV
MOV

000002

2, -(SP)
SP,.RO

ADD
#6,5P
LEY FLAG := @0
CLR
FLAG

GMANIL READY,.FLAG,100000,
YES
TRAP

104443
000404
002270
000130
007006
100000

3 UNTIL FOUR PAGES PRINTED OR IN

ERRFLG

502474
LET QUTBUF

JMP
ELSE

502508:

10001$:

THE FORM FEED

502434

OUTPUI @OUTBUF
, 01,58 ,LUNITY
ERRHRD 8,PAPSWI
TRAP
CSERMRD
8
.WORD
.WORD
PAPSMI
O
.WORD
LET ERRTBL(R2) := ERRTBL(R2)
INC
ERRTBL(R2)

002334

002310

OR ERRFLG NE 00

OUTPUT

IF ERRFLG EQ @0 THEM

MOV

003114

502464
ERRFLG

BEQ

BNE

502478
:

013746
012746
012746
010600
104417
062706

UNTIL LINCNT EQ 0260.
cMP
LINCNT, 2260,

TST

104456
000010
003402
000000

005262

014,0UTBUF
CJTPUI @OUTBUF ,01,58 ,LUNIT
ENDIF

BEQ
TST

002334

SEQ 0067

BR
.HORD
.WORD
.WORD
.WORD

CS$GMAN

10001
FLAG
T$CODE
READY
100000

013702
006302

002310

LET R2 := LUNIT SHIFT
MOV
LUNIT,R2

005072
000137

002352
020672

LET SLPCSR(R2) :*= ©0
8LPCSR(R2)
CLR
JMP 2%

ASL

sEXPECTED ERROR HANDLER.

1
3 RESET THE LP CSR

CZUNADO LNO1

TEST

DOnNMAC

coinap pite! "85 aPr-8a 0a:os

X24.07-563

3437

021406

2438
(4)
2439
(7)
2840
(4)
2441
(4)
2442
(4)
2483
5asa
2445
(S)

021414
021414
021420
021420
021426
021426
021432
021432
021436
021436
021442

(4) 051406 012737 000001 002334

021434
021448

002332

042762

120000

005062

002746

005062

002546

005062
000207

002646

005037

002310

002506

(7) 021450 000402
(6)
021452
(10) 021452 005237 002310
(7)
(7)

021456
021456

023701

002310

022675
000001

D6
-

Ss:

LET ERRFLG

1= 91

MOV

01 ,ERRFLG

BR
INC

50251¢
LUNIT

LUNIT,R1

LET ERRCOD' := 00
CLR
ERRCOD
LET STATUS(R2) := STATUSCR2) CLR.BY SERROR!IACTIVE
8IC
OERROR ! ACTIVE , STATIS(R2)
LET CURCNTCR2) 1= @0 =
3 CLEAN UP THE DRIVER PARAMETERS
CLR
CURCNT(R2)
LET CURADD(R2) :+ 00
CLR
CURADD(R2)
LET REPCNT(R2) := €0
CLR
REPCNT(R2)
RTS PC
JAND RE TURN
{VERIFY OPERATION OF PAPER TRAY MANDLE INTERLOCK SWITCH.
4s:
INCR LUNIT FROM 00 TO R1 BY 01
CLR
LUNIT
502528;
502518

(9)
2446
(5)
(8)
2447
(4)
2448
(4)

021462
021464
021464
021470
021472
021472
021500
021500

003117
013702 0023i0
006302
013737 002310 002074
005037 002270

86T
502534
LET R2 := LUNIT SHIFT 1
MOV
LUNIT,R2
ASL
R2
LET LSLUN := LUNIT
MOV
LUNIT,LSLUN
LET FLAG :+ @0
CLR
FLAG

(7)
(6)
(3)
(4)
(4)
2450
(8)
(7)
(6)
(3)
(4)
(4)
2451
(7)
(6)
(3)
(4)
(4)

021504
021510
021514
021516
021520
021524
021524
021530
021534
021540
021542
021544
021550
021550
0215584
021560
021562
021564

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

MOV
OHANRSM,
- (SP)
MOV
01,-(5P)
MOV
SP.RO
TRAP
CSPNTF
ADD
04SP
PRINTF @MANSW1,LUNIT
MOV
LUNIT, -(SP)
MOV
SHANSUL, -(5P)
MOV
02, -(SP)
MOV
SP,RO
TRAP
CSPNTF
ADD
06,5P
PRINTF OHANSW2
MOV
OHANSW2,
- (SP)
MOV
o1, -(SP)
MOV
SP.RO
TRAP
CIPNTF
ADD
o4, SP

2449

2452
(3)

021504

021570
021570

104443

(3) 021572 000804
(3)
(5)
(5)

21578
021576
021600

002270
000130
007006

000004
002310
023006
000002
000006
023073
000001
000004

0 0068

1 JUST SET EXPECTED ERROR INDICATOR.
H

005037

REASY L InE InPRALS
ek O 185728

2435

-APR

PRINTF OMANRSM

GMANIL READY, FLAG,
TRAP
CHGMAN

.MORD
"WORD
‘WORD

10002

FLAG
T$CODE
READY

100000,

1ES

CZUNADO LNO1
CZLNAD.P11
(5)
(3)
2453
(6)
(10
2454
(7))

n
&

Aflfififlfiflgflfl'.r\fl
TM
NI
DN
wumumbuuxo.uoq

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

(4)

TEST
DNMAC X24.07-563
10-APR-84
09:07
PAGE 6- ?s
READY LINE INTERLOCKS
TEST &
10-APR -84 08:55

021602
021604
021604
021604
021612
02i6l4
021614
021620
021624
021626
021630

021634
021634

021640
021644
021650
021652
021654
021660
021660
021662
021664
021666
021670
021672
021674
021674
021674
021676
021676
021676
021702
021702
021710
021710
021712
021714
021716
021720
021720
021720
021720
021722

021722
021722
021726
021730
021730
021734
021734
021740
021742
021742
021746
021750

100000

10002
:

002352

. WORD

SEQ 0069

100000

IF oBIT1S SETIN 8LPCSR(R2)
BIT
OBIT15,8LPCSR(R2)
BEQ
50254
¢

THEN

032772
001431

100000

012746
012746
010600
104417
062706

023132
000001

MOV
MOV
MOV

000004

ADD

013746
012746
012746
010600

002310
023217
0000C2

MOV
MOV

04,5P
PRINTF OHANRD1,LUNIT
LUNIT, -(SP)
OHANRD1, -(SP)

TRAP

CSPNTF

TRAP

MOV
MOV

104417
062706

ADD

TRAP

104443
000404
002270
000130
0C7006

100000

10003$:

000411

S02544

005262

003050

013737

002310

BR
.MORD
.WORD
.WORD
.WORD
ELSE

#6,SP
GMANIL READY, FLAG,
CS$GMAN
10003s
FLAG
T$CODE
READY
100000

100000,

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

502554
:
ENDINC
502538
:

02, -(SP)
SP,RO

INC

WORD
LWORD
MORD
ENDIF

000654

CSPNTF

502554

TRAP

104456
000011
003503
000000

OHANRDY
, -(SP)
01,-(SP)
SP,RO

B8R

MOV

002074

PRINTF @HANRDY

YES

. @1

LUNIT,LSLUN

ERRHRD 9,HANSWI

CS$ERHRD
9
HANSWI
O

502528

sVERIFY OPERATION OF FRONT DOOR INTERLOCK SWITCH.

005037
000402

002310

005237

002310

023701
003107

002310

013702
006302

002310

INCR LUNIT FROM 00 TO R1 By 01
LUNIT
CLR

50257%:
502564
:

50256

INC

LUNIT

cMP
LUNIT,R1
S0260%
8GT
LET R2 := LUNIT SHIFT 1
MOV
LUNIT,R2
ASL

LET FLAG := @0

ot NS

n
n
Y
~ABA =) [alal Ialtealalaiaialal alelalale ITalalalalalel
talel lalelalelele L lTalalalalal Lalalelalele) o~
by~
WAV
DWWNOBDUAO YR LD ULWO U (R)
Y, GubuuWMMbuuthuONNODuouaflwmu
Duvvwuwvwvbivuww
N v v
O [« DRI
NN
. NN NPT . TN N NN

CZLNADO LNO1
CZLNAD.P11

2477

(S)

TEST
DNMAC X24.07-563
A
RE
10-APR -84 08:55

021750
C21754
021754
021760
021764
021770
021772
021774

022000
022000
22004

022010

022012
022014
022020
022020
022022
022024
022026
022030

022032
022034
022034
022034
022042
022044
022044
022050
022054
022060
022062

022064
022070
022070
022074
022100
022102

022104
022110
022110
022112
022114
022116
022120
022122
022124

022124
022124
022126

022126
022126
022132
022132
022140
022140
022142

005037

002270

013746
012746
012746
010600
104417
062706

002310
023265
000002

012746
012746
010600
104417
062706

Bv L Ine INTEALOCKE
CE 18578

ADD

104443

000404
002270
000130
007006

100000

10004¢
:

012746
012746
010600
104417
062706

023441
000001

002352

SP,RO

CSPNTF

#6,SP

MOV
@000sSu1, -(SP)
MOV
01,-(SP)
SP,RO
MOV
TRAP
CSPNTF
ADD
04,5P
GMANIL READY, FLAG, 100000,
TRAP
CS$GMAN
BR
10004
¢
.WORD
FLAG
.WORD
T$CODE
.WORD
READY
.WORD
100000

MOV
MOV

000002

YES

IF #BIT1S SETIN SLPCSR(R2) THEN
BIT
#BIT15,8LPCSR(R2)
BEQ
502614
MOV
MOV
TRAP

ADD

PRINTF @DOORDY,LUNIT
LUNIT, -(SP)

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

CSPNTF

96, SP

04, 5P

104443
000404
002270
000130
007006
100000

100058:
502614

005262

003050

013737

002310

CSGMAN
- 10005%
FLAG
T$CODE

.WORD

100000

ELSE
BR

INC
002074

GMANIL READY, FLAG, 100000, YES

TRAP
BR
LMORD
.MORD

.WORD

000411

104456
000012

@DOORSW, -(SP)

PRINTF 0DOOSW1

000004

002310
023372

MOV

TRAP

023342

013746
012746
012746
010600
104417
062706

FLAG

MOV

000001

100000

CLR

SEQ 0070

PRINTF QDOORSW,LUNIT
MOV
LUNIT, -(SP)

000006

032772
001431

Fé&

MOV
TRAP

.WORD

READY

502624

LET ERRTBL(R2) := ERRTBL(R2) + @1
ERRTBL(R2)
LET LSLUN := LUNIT
LUNIT,LSLUN

ERRHRD 10, DOOSWI
CS$ERHRD

CZLNADO LNO1
CZLNAD.P11
(3)
(35)
2478
(4)
2479
(4)
2480
(5)
(4)
2481
(4)
2482
(4)
2483

2484

2485
(3>
(3)
2486
2487

2488
2489
2490
2491
2492

2493
2494

2495
2496
2497
2498
2499
2500
2501

2502
2503
2504
2505
2506
2507
2508
(3)
(3)
2509
2510
2511
2512
2513
2514
2515
2516
2517
2518
2519
2520
2521

TEST
0
10-APR-84

022144
022146
022150

022150
022150
022150

022156
022156

022160
022160
022160

022164

022164
022172

022234
022240
022240
022242

o8as Xe4.-07-563 R0y A Tne InTeR OB CE 185758
.WORD

003556
000000
:
502624

000664

DOOSWI

LET ®LPCSR(R2) := €00
MOV
©00,3LPCSR(R2)
ENDINC
50257%
BR

002352

012772

.WORD
ENDIF

502608:

005062

002746

012737

000014

004737

005306

g aor

LET CURCNT(R2)

CLR

:= 40

CURCNT(R2)

LET OQUTBUF := 014
MOV
214 ,0UTBUF
OUTPUT QOUTBUF
, o1
JSR PC,QUIET
EXIT TST
TRAP
CSEXIT
.WORD
L10017-.

003114

104432
001232

NLIST BEX
022244

042522

022356
022462
022542
022604
022673
022675
023006
023073
023132
023217
023265
023342
023372
023441

047045
040445
040445
047045
040

022301

023474
023474
023474

023476
023476

124

042101
044510
040445

044527
047524
040445
012
022516
047510
052101
040445
041501
022516
040445
040445
041501

1044301

020131
020123
043101
044124
041440
042522

INTLK:
BLANK:

PAPRSW:
PAPSW1:
PAPSW2:

.ASCIZ
.ASCIZ
.ASCIZ

040501
044522
020117
042522
042514
047501

HANRSW:
HANSW1:
HANSW2:
HANRDY:
HANRD1:

047111

046103
042514

gm;

DOORSW:
DOOSW1:
DOORDY:

Dgezglz

.ASCIZ
.ASCIZ

/READY LINE INTERLOCK TEST 8/<12>
/THIS PAGE WILL BE FOLLOWED BY 3 BLANK PAGES/<12>

3§CT£Z

WSTWE PAPER, CLEAR, PLACE LUNIT #D2#A ON LINE.sN/

.ASCIZ
.ASCIZ

/#NsSAAFTER PRINTING STOPS - TURN PAPER TRAY HANDLE COUNTER CLOCKWISE
/#AHORIZONTAL POSITION UNTIL IT STOPS, ON LUNIT sD2¢N/

.ASCIZ
.ASCIZ
.ASCIZ

/wNSAINTERLOCK SWITCH.sN/
/s#NwACLOSE FRONT DOOR ON LUNIT «=D2sA,sN/
/wACLEAR, PLACE ON LINE.®N/

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.LIST BEX
ENDTST
L10017:

TRAP

ENDMOD
.SBTTL

/#NwAAFTER PRINTING STOPS - REMOVE ALL PAPER FROM BOTH PAPER TRAYS®N/
/#AWITH EXCEPTION OF ONE PER TRAY ON LUNIT «D2wN/
/#ATO CHECK PAPER OUT INTERLOCK.®N/

/«ATO CHECK INTERLOCK SWITCH.sN/
/«#NsSARETURN PAPER TRAY HANDLE TO VERTICAL POSITION,sN/
/#ACLEAR, PLACE LUNIT #D2#A ON LINE.sN/
/#NeAOPEN FRONT DOOR ON LUNIT #D2#A TO CHECK /

CSETST

ABSOLUTE AND RELATIVE POSITIONING

sMODULE ABREL .P11

BGNMOD
;oo

THE OBJECT OF THIS TEST IS TO VERIFY THE CORRECT OPERATION OF

JTHE FUNCTIONS CALLED VERTICAL AND HORIZONTAL POSITION ABSOLUTE AND
;sRELATIVE.
THE TEST WILL DO THIS 8Y DRAWING A RECTANGULAR GRID USING
;80TH HORIZONTAL AND VERTICAL POSITIONING ESCAPE SEQUENCES.
IF THE
;MACHINE HANDL!'S THE SEQUENCES PROPERLY THE GRID SHOULD HAVE THE FOLsLOWING CHARACI .RISTICS:

TOs

CRIBOANC! 53 aon
a0 SHIE 20-07-5%,510:
8 R RRLRTLVEMBRH PBunne

se4 0072

2522
2523
2524
2525
2526
2527
2528

:
THE GRID'S UPPERMOST LEFT CORNER SHOULD BEGIN TWO INCHES FROM
:
THE TOP AND LEFT EDGES OF THE PAPER.
:
THE DIMENSIONS OF THE GRID SHOULD BE FOUR INCHES IN HEIGHT
H
BY SEVEN INCHES IN LENGTH,
H
EACH BLOCK CONTAINED WITHIN THE GRID SHOULD BE ONE INCH SQUARE.
; THE MARGINS WILL BE SET AS FOLLOWS:
:
TOP = 2 INCHES

gggé

2529
2530

:
H

BOTTOM = 6 INCHES
LEFT = 2 INCHES

RIGHT = 9 INCHES

2533

;:THE GRID ITSELF WILL BE DRAWN USING THE "X” CHARACTER.

gggg

:BE INSIDE THE MARGIN BOUNDARIES.
:

2536
2537
2538
2539

;:OUTSIDE THE MARGIN
;CHARACTER 172 INCH
:MARGINS ARE “HARD”
:THE OUTER EDGES OF

2540

ALL

“X"S WILL

BOUNDARIES THE TEST WILL ATTEMPT TO PRINT THE "0~
OUTSIDE THE OUTER EDGZS OF THE RECTANGLE.
IF THE
THEN THE “0” SHOULD SUPERIMPOSE ALL THE "X”S ON
THE GRID.
IF THE MARGINS ARE “SOFT” THEN THE

:"0"S WILL BE PRINTED 1/2 INCH OUTSIDE THE OUTER EDGES OF THE GRID.

2541

;THIS IS TRUE FOR TOP, BOTTOM AND LEFT MARGINS ONLY.

2542

THE RIGHT MARGIN

sFUNCTIONS DIFFERENTLY AND, THEREFCRE, IS HWANDLED DIFFERENTLY.

2543

THE

:RIGHT MARGIN WILL BE OVERPRINTED SO AS TO BE UNIFORM WITH THE OTHERS.

5;;

:HOWEVER, IT IS NOT DONE IN THE SAME MANNER.
to

2546
2547

25523
2550
2551
2552
2553

2554
2555

2556

2557
2558

2559

2560
2561
2562
2563
2564
2565
2566
2567
2568

2569

2570
2571
2572
2573
2574
2575
2576
2577

:
000000

GLOBALS REFERENCED:

.REPT
0
BEGIN TEST
:
SELECT DECIPOINTS AS SIZE UNIT
:
PRINT TEST ID

PRINT OPERATOR INSRUCTIONS ON FRINTER

WHILE VERTBL NE 70 #0 DO

:
:

:
:
:
:
:
:

SET TOP, BOTTOM, LEFT AND RIGHT MARGINS

ENDDO

MOVE TO CORRECT VERTICAL POSITION
PRINT ONE LINE OF THE GRID

MOVE VERTICALLY TO 6 172 INCH SPOT
PRINT ROM OF "0"S BELOM BOTTOM MARGIN
MOVE VERTICALLY TO 1 172 INCH SPOT
PRINT ROW OF “0"S ABOVE TOP MARGIN
RESET DEFAULT PRINTER CONDITIONS
SELECT DECIPOINTS AS SIZE UNIT

:
D0 FORM FEED
:
EXIT TEST
END TEST

.ENDR

;D0 FOR EACH ROW OF GRID

CZULNADO LNO1
CZLNAD.P11
2578
2579
2580

2581
(3)
2582
2583
2584
2585
2586
2587
2588
2589
2590
(4)
2591
(4)
(6)
(10)
2592
2593
2594
2595
2596
2597
(7)
2598
(4)
(3)
2599
2600
2601
2602
2603
(4)
2604
2605
2606
2607
2608
(3)
(3)
2609
2610
2611
2612
2613
2614
2615
2616
2617
2618
2619
2620
2621
2622

TEST
10-APR-84
09:07
PAGE 6-57
DNMAC X24.07-563
ABSOLUTE AND RELATIVE POSITIONING
10-APR-84 08:55

023476
023476

19::

OUTPUT
OUTPUT
OUTPUT
OUTPUT
OUTPUT
OUTPUT
OUTPUT
LET R4

023476
023540
023602
023644

023706
023750
024012
024054

024054
024060
024060
024060
024062
024064
024124
024166
024172
024234
024240
024240
024244
024244
024246
024246
024310
024352
024414
024456
024456
024464
024526
024570
024632
024636
024636
024640

024642
024656
024751
025057
025140
025220

025316
025332
025346
025355
025364

012704

MOV

024642

502638;

005714
001471
004737

005306

004737

005306

062704

000705

502644
:

112737

000014

004737

005306

003114

:
025355
030061
044124
047101
020105
042116
133

025411
044155
020105
020104

133

061
061

133
133

QREINIT,
02
@SELDEC,
5
@ABREL ,059.
@INSTRC,#119.
@INSTR1,®110.
@TOPBOT.#12.
OLEFRI, 012,
:= OVERTBL

: DECIPOINTS AS SIZE UNIT
: TEST ID WITH CRLF
; DESCRIPTIONS OF GRID
: SET TOP AND BOTOM MARGINS
; SET LEFT AND RIGHT MARGINS
: SET UP TABLE OF VERTICAL SEQUENCES

OVERTBL ,R4

WHILE (R4) NE 0 DO

ST
BEQ

ADD
ENDDO
B8R

;

(R4)
S0264'$
OUTPUT (R4),

o7.
OUTPUT @GRID,#101.
JSR PC,QUIET
OUTPUT OGRID1,037.
JSR PC,QUIET
LET R4 := RS « 02

033440
061
061

ABREL:

.ASCII

INSTR1:

.ASCII
'ASCII
.BYTE

TOPBOT:
LEFRI:

.ASCII
"ASCII

; PART 2

02.R4
502634

;
:
:
:
:

MOVE VERTICALLY TO 6 1/2 INCH SPOT
PRINT “0“S BELOW BOTTOM MARGIN
MOVE VERTICALLY TO 1 1/2 INCH SPOT
PRINT ~0“S ABOVE TOP MARGIN
FORM FEED

:;
:
;
:

DO THE FORM FEED
GLOBAL, RESET DEFAULT STATE
DECIPOINTS AS SIZE UNIT
GUARANTEE THE FORM FE=D

CSEXIT

VTHREE,VTWO,VSIX,VFOUR,VFIVE,O

<33>/( 10mMORIZONTAL

CAL ABSOLUTE AND RELATIVE TEST 9/<15><12>

«<12>/THE RECTANGULAR GRID WILL BEGIN APPROXIMATELY TWO INCHES FROM THE 7
7 AND TWO INCHES FROM THE LEFT EDGES OF THE PAPER/<12>

.BYTE

/TME DIMENSIONS OF THE GRID WILL BE & INCMES HIGM/
7 AND 7 INCHES WIDE.
EACH BLOCK WITHIN WILL BE 1 INCH SQUARE./<12>
33,13%,61,64,64,60,73,64,63,62,60,162
: SET TOP AND BOTTOM MAR
33,133,61,64,64,60,73,66,70,64,60,163
: SET LEFT AND RIGHT MAR

.BYTE
.BYTE

33,133,61,64,64,60,1
33,133,62.61,66,60,1

VONEWF: .BYTE
VIWO:
VIHREE:

IN TABLE

DATA TABLES. MESSAGES. SEQUENCES. ETC.

NLIST BEX
VERTBL: .WORD

INSTRC:

DO FOR EACH ENTRY

s MOVE TO CORRECT VERTICAL POS.
; PART 1 OF ONE LINE OF GRID

OUTPUT OVSIXHF,
87
OUTPUT OMILOSQ,e48.
OUTPUT OVONEMF
, 07
OUTPUT @MILOSQ.048.
LET OUTBUF :B8= 0164
MOVB
#14,0UTBUF
OUTPUT @OUTBUF
, 01
OUTPUT OREINIT.02

TRAP

104432

133

OUTPUT #SELDEC,
oS
JSR PC,QUIET
EXIT TST

001062

025364
055433
012
040
044124
04C440
033
033
033
033
033

BGNTST

SEQ 0073

33,133%,61,60,70,60,144

s VERTICAL MOVE TO 1 72

: VERTICAL MOVE TO 2 INC
: VERTICAL MOVE T0 3 INC

CZLNADO LNO1
CZUNAD.P11

2623
2624
2625
2626
2627
2628
2629
2630
2631
2632
2633
2634
2635
2636
2637
2638
2639
2640
2641
(3)

(3)
2642

2643
2644
2645
2646

TEST
DNMAC X24.07-563
10-APR-84
09:07
PAGE 6-58
10-APR-84 08:55
ABSOLUTE AND RELATIVE POSITIONING

025373
025402
025411
025420
025427
025447
025467
025507
025530
025547
025557
025576
025615
025635
025654
025672
025722
025722
025722
025724

033
033
033
033
033
033
033
040
033
033
033
033
033
033
033
033
025722

104401

133
133
133
133
133
133
133
033
133
133
133
133
133
133
133
133

062
063
064
064
062
063
065
133
061
066
065
060
060
061
061
060

VFOUR:
VFIVE:
VSIX:
VSIXMF:
HILOSQG:
GRID:

GRID1:

.EVEN
.LIST BEX
ENDTST
L10020:
TRAP
ENDMOD

2647
2648
2649
2650
2651
2652
2655

.SBTTL

gggg

2658
2659
2660
2661
2662
2663

33,133,62,70,70,60,144
; VERTICAL MOVE TO 4 INC
33,133,63,66,60,6C,144
; VERTICAL MOVE TO S INC
33.133.64.63. 62 60,144
s VERTICAL MOVE T0 6 INC
32,133.64.66,71.60,144
; VERTICAL MOVE 10 6 1/2
33,133,62.61.66.60,140,117,33,133,62,70,70,60,140,117
3 PRINTS “0C"S FO
33,133.,63.66.60,60,140,117.33.133.64.63.62.60.140.117
33,133.65.60,64.60,140,117,33.133.65.67.66.60,140.117
40,33,133,61,60,70,60,140,117,33,13 .66.64.70.60 140,130
33,133,61,64,64,60,140,33,133,65,60,64,60,141,117
33,133.66.70,64,60,140,152
3 THIS HAS BEEN ADDED TO TEST AB
33,133,65,60,64,60,140,130,33,133,63,66,60,60,140
33,133,60,60,60,60,141,130,33,133,63,66,60,60,140
33,133,60.67,62.60,141.130,33.133,65.67.66.60,140,13C
33.133.61.64.64,60.140.33,133.60,60,60,60,141.130
3%,133,61,64,64,60,140,33,133,60,63 66.60.141
35.133,60.63.66.60,141,130,33,135,62,67,60.60,140,33,133,60,61,70,60,141

CSETST

NEWLINE MODE ENABLE -DISABLE TEST

; MODULE LFNLMD.P11
025724

BGNMOD
g
+ THIS TEST IS AN ALtznto VERSION OF LNMODE.P11l WHICH IS PART OF
; THE TML LIBRARY.
THE ORIGINAL VERSION OF THIS TEST IS LOCATED

2664

: IN THE <TML.TESTS>

2665

2666
2667
2668

SUBDIRECTORY
OF THE MILL20 DEVELOPMENT SYSTEM.

THIS VERSION IS ALTERED FOR USE ON /ME LNO1 ELECTRONIC PRINTER.

; THIS IS A TEST OF THE TERMINALS ABILITY TO RECOGNIZE THE ESCAPE
: SEQUENCES THAT ENABLE AND DISABLE NEWLINE MODE OF OPERATION.
: OUTPUT WITH NEWLINE DISABLED SHMOWLD APPEAR AS:

2669
2670
2671
2672

:
:
:
;

2673

2674

2675

2676
2677
2678

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
'BYTE
‘BYTE
.BYTE
.BYTE
BYTE
.BYTE
.BYTE
'BYTE
'BYTE
.BYTE
'BYTE

000000

SEQ 0074

AAAAAAAAAA

AAAARAAAAAA
AAAAAAAAAA
OUTPUT WITH NEWLINE MODE ENABLED SHOULD APPEAR AS:
AAAAAAAAAA

AAAAARAAAA

AAAAAAAAAA

CZLNADO LNO1
CZLNAD.P11
2679
2680
2681
2682
2683
2684
2685
2686
2687
2688
2689
2090
2691
2692
2693
2694
2695
2696
2697
2698
2699
2700
2701
2702
2703
2704
2705
2706
2707
2708
2709
2710
2711
2712
(3)
2713
2714
2715
2716
2717
2718
2719
2720
(4)
2721
(4)
2722
(4)
2723
(4)
2724
(S)

TEST
DNMAC X24.07-565'£10
-APR-84
09:07
P
NE MODE ENABLE -DI
10-APR-84 08:55

K6
6-59

SEQ 0075

LE TEST

BEGIN NLMODE

SELECT SIZE UNIT AS DECIPOINTS
SEND THE TEST NAME TO ALL TERMINALS
SKIP 2 LINES
SEND 'NEWLINE MODE BEING DISABLED’' MESSAGE
SEND RMANL TO DISABLE NEWLINE MODE
REPEAT 3 TIMES
:+
SEND 10 A'S
:
SEND A LINEFEED
ENDREPEAT
SKIP 2 LINES
SEND °'NEW LINE BEING ENABLED' MESSAGE
SEND SMANL TO ENABLE NEWLINE MODE
REPEAT 3 TIMES
:
SEND 10 A’'S
:
SEND A LINEFEED
ENDREPEAT
SEND RMANL TO DISABLE NEWLINE MODE
DO FORM FEED
RESET THE PRINTER

SELECT SIZE UNIT AS DECIPOINTS

Em TEST

025724
025724

025724
025766
026030
026072
026134
026176
026240
026240
026244
026244
026250
026250
026254
026254
026260
026260
(7)
026266
(6)
026270
(10) 026270
(7"
026274

T10::

BGNTST

10.

OUTPUT OREINIT,#2
OUTPUT #SELDEC,85

3 DECIPOINTS AS SIZE UNIT

OUTPUT SDISANL, 040,

: DISABLING NL. MESSAGE

oUTPUT an.nws.ua.

ouUTPUT C.HNNL.OS

012705

003114

112725

000101

112725

000012

112725

000014

012737
000402

000002

005337

003110

LET RS := Q0UTBUF
MOV
SOUTBUF ,RS

LET (RS). :B= 0101
#101,CRS).
MOVB
LET (RS). :I' 012
MOVB
012,(RS).

LET (R5). sB' o184
003110

:
50266
502654
:

MOVB
@14,(RS).
DECR WORK FROM @2 TO @0 BY @1
MOV
92, WORK
502654
BR
DEC

WORK

+ IDENTIFY TEST

;s TURN T OFF NOMW

: PUT AN “A" IN BUFFER
;3 PUT “LF" IN BUFFER

:+ FORM FEED

EZtNADO LNO1
ZLNAD.P11
(7)

(9)
2725
2726
2727
(5)

(4)
2728

TEST
DNHAg x24 .07-563
10-APR-84 08:5

026274
026300
026302
026344
026406
026406
026410
026410
026452
026514
026556
026556
026564
026566
026566
026572
026572
026576
026600
026642
026704
026704
026706
026706
026750
027012
027054
027116
027122
027122
027124
027126
027177
027264
027337
027345
027354
027354
027354
027356

005737
002443

NEW

000002

005337

003110

005737
002443

003110

S0271¢:
S50270%:

000730

50272%:

005306

042516
116
055433
033
033
027354

104401

044514
046040
047155

DEC

WORK

ST
BLT

WORK
S0272%

NLMODE :

THEN A LINEFEED

SKIP 2 LINES
ENABLING NI. MESSAGE
TURN IT ON NOW

SEND TEN A’'S

OUTPUT ORMANL
, 05
OUTPUT QOUTBUF +2,01
OUTPUT @REINIT,
@2
OUTPUT @SELDEC,
o5
JSR PC,QUIET
EXIT TST

TURN IT OFF
DO FORM FEED
RESET TO DEFAULT CONDITIONS
DECIPOINTS AS SIZE UNIT

THEN A LINEFEED

CSEXIT

L10021-.

/NEW LINE MODE DISABLED, LINEFEEDS ONLY/<15><12>
LASCIZ
/NEW LINE MODE ENABLED, LINEFEED CAUSES RETURN ALSO/<15><12>
LASCIZ : <33>/[10mNEWLINE MODE ENABLE -DISABLE TEST 10/¢<15><12>

SMANL:
.BYTE
.EVEN
.LIST BEX
ENDTST

L10021:

SEND TEN A’'S

OUTPUT QOUTBUF ,#1,,010.
OUTPUT @OUTBUF +1,01
ENDDEC
S0271
BR

.NLIST BEX
DISANL: LASCIZ

ENABNL:

SEQ 0076

WORK

OUTPUT @ACRLF ,#2,,02
OUTPUT @ENABNL ,#52.
OQUTPUT OSMANL
, 45
DECR WORK FROM #2 TO 40 By @1
92, WORK
MOV
502704
BR

.MORD

020127
053505
030061
133
133

50267$
OQUTPUT @0OUTBUF ,#1,,010.
QUTPUT @OUTBUF +1,01
ENDDEC
¢
50266
BR

TRAP

104432
000230

ENABLE -DTSRe
e et

BLT

50267¢:

012737
000402

9:07

TST

003110

000730

004737

10-APRWL INE

TRAP

ENDMOD

33,133,62,60,150,0
:

CSETST

.SBTTL POWER UP DEFAULT TEST
sMODULE PUD.P11

CZLNADO LNO1

CZLNAD.P11
2765

2766
2767

g;gg
2770
2771
2772
2773
S;;‘s

TEST

DNMAC X24.07-563

10-APR-84 08:55

10-APR-84

09:07

PAGE 6-61

SEQ 0077

POWER UP DEFAULT TEST

027356

BGNMOD
e

:
H

:
:
:
:
:
H

FUNCTIONAL DESCRIPTION
THIS TEST VERIFIES THE SPECIFIED PUWER UP DEFAULT
CONDITIONS OF THE LNO1 ELECTRONIC PRINTER.
THE TEST IS DIVIDED INTO 3 BASIC PARTS.
ONE OF THE BASIC PARTS IS SUBDIVIDED INTO 2 SECTIONS.
THE BASIC PARTS AND SECTIONS THEREOF ARE AS FOLLOWS:

2776
2777
2778

:
:
:

PART 1PART 2-

2783
2784
2785

:
:
:

PART 1HORIZONTAL TAB SECTION
PART 1 TESTS THE HORIZONTAL TAB DEFAULTS BY MEASURING THE DISTANCE ,IN CHARACTER
BETWEEN EACH TAB.
THE TEST FIRST DOES 18 TABS AND PRINTS A “T~ AT EACH TAB STOP

;
:
:

THE SCALE IS A PRINTING OF THE NUMBERS 1 THRU 8 REPEATEDLY ACROSS T'€ PAGE.
THE “T"S IN THE ROW ABOVE SHOULD LINE UP OVER THE “8“S FOR THE FIRST 16 TABS.
THE FINAL 2 “T“S SHOULD BE SIOc S8v SIDE BECAUSE OF EXCEEDING THE RIGHT MOST TAB

2779
2780
2781
2782

2786

2787
2788
2789

2790
2791

2792

5332
2795

:
H
H
H

PART 3-

HORIZONTAL TAB DEFAULT
VERTICAL TAB DEFAULT SECTION 1
VERTICAL TAB DEFAULT SECTION 2
DEFAULT MARGINS

THE NEXT LINE PRINTS A SCALE BY TMICH TO MEASURE THE DISTANCE BETWEEN THE “T"s.

AFTER SKIPPING TWO LINES, PART 1 CONTINUES ON BY PRINTING 3 DIAMOND SHAPED PATTE

OUTSIDE THE DIAMONDS MILL CONSTITUTE AN ERROR.

WHICH WILL THOROUGHLY EXERCISE THE TAB FUNCTION IN DEFAULT MODE.

ANY THING PRIN

ANYTHING THAT APPEARS OUT OF THE

ORDINARY INSIDE THE DIAMONDS WILL ALSO CONSTITUTE AN ERROR.

PART 2-

VERTICAL TAB SECTION 1

2796

PART 2, SECTION 1 VERIFIES THAT THE DEFAULT VERTICAL TAB IS SET FOR ONE TAB

2799
2800

:
:

THE SECTION ID FOR EACH ONE. THE RESULT SHOULD BE 66 LINES OF THE SECTION ID.
THE REASON WHMY THIS WILL WORK DESPITE THE FACT THAT THE MACHINE ONLY CAN

2797
2798

2801
2802
2803

2804

2805

2806
2807

2808
2809

gg{g
2812

2813
2814

:
:

TO MOVE THE DISTANCE EQUIVALENT TO THAT OF A LINE FEED.
THIS IS ACCOMPLISHED BY
AFTER PRINTING THE SECTION ID ON LINE #1, DOING 65 VERTICAL TABS AND PRINTING

:
:
:

HANDLE A TOTAL OF 32 TAB STOPS IS BECAUSE WMEN YOU EXCEED THE LIMIT OF 32
THE MACHINE IS SUPPOSED TO TREAT EVERY EXTRA VERTICAL TAB AS THOUGH IT WAS
A LINE FEED CHARACTER.,
SO, BECAUSE THE DEFAULT VERTICAL TAB IS EQUAL TO

A GOOD WAY TO TEST THE DISTANCE OF THE DEFAULT TAB AS COMPARED TO THE

A LINE FEED IN DISTANCE, THE RESULT SHOULD BE Thc SAME.

THIS IS ACTUALLY

NORMAL LINE FEED CHARACTER.

3
:

IS ALREADY AT LINE 66 THE MACHINE
WILL RESPOND BY BRINGING YOU TO THE TOP MARGIN
ON THE FOLLOWING PAGE, WHICH IN DEFAULT CONDITION SHOULD BE LINE 21. THIS SETS

:
H

THIS SECTION ALSO VERIFIES THAT WHEN A VERTICAL TAB IS SENT WHEN THE MACHINE

UP THE FOLLOWING SECTION TO BEGIN ON LINE o1.
VERTICAL TAB SECTION 2

:
:

PART 2, SECTION 2 VERIFIES THE USE OF MULTIPLE VERTICAL TABS. THIS IS ACCOMPLISHED BY ,FIRST, PRINTING THE SECTION ID ON LINE &1 AND, THEN, DOING S

2816

THE RESULT IS THE SECTION ID BEING PRINTED ON EVERY STH LINE BEGINNING WITH

2820

2815

2817
2818
2819

:
;
:

VERTICAL TABS THEN PRINTING THE SECTION ID AGAIN.

THIS IS REPEATED 6 TIMES.

LINE @6 AND ENDING WITH LINE #31 (TTOTAL OF 30 TAB STOPS). HOMWEVER, EACH
SUCCESSIVE PRINTING OF THE ID WILL BEGIN IN THE COLUMN FOLLOWING THE COLUMN
IN WHICH THE PREVIOUS ONE ENDED. THIS WILL VERIFY THAT THE USE OF VERTICAL
TABS DOES NOT CHANGE THE ACTIVE COLUMN.(in effect

it does not perform a carriage

CZLNADO LNO1
CZLNAD.P11

2821
2822
2823
2824
2825
2826
2827
2828
2829
2830
2831
2832
2833
2834
2835
2836
2837
2838
2839
2840
2841
2842
2843
2844
2845
2846
2847
2848
2849
2850
2851
2852
2853
2854
2855
2856
2857

2858
2859

2860

2861
2862
2863
2864
2865
2866
2867
2868
2869
2870
2871
2872
2873
2874
2875
2876

TEST

DNMAC

10-APR-84 08:5

X24.07-563

10- APR

POMWER

0 7_PAGE 6-62

Fad1o TEST

SEQ 0078

return automatically).
PART 3MARGIN SECTION
THE MARGIN SECTION VERIFIES THAT THE TOP,

BOTTOM, LEFT AND RIGHT MARGIN

DEFAULT SETTINGS ARE AS SPECIFIED.
IT ACCOMPLISHES THIS BY IDENTIFYING
LINE #1 AND PRINTING THE CORRECT DISTANCE THIS SHOULD BE FROM THE TOP
EDGE OF THE PAGE FOR OPERATOR VERIFICATION.
THE FOLLOWING LINE(C#2) WILL
PRINT A MESSAGE WHICH IDENTIFIES THE CORRECT DISTANCE FROM THE LEFT
EDGE OF THE PAGE THAT THE FIRST CHARACTER ON EACH OF THE FOLLOWING 63 LINES
SHOULD BE PRINTED AS WELL AS IDENTIFYING THE CORRECT DISTANCE FROM THE
LEFT EDGE THAT THE LAST CHARACTER OF THE FOLLOWING 63 LINES SHOULD BE PRINTED.
THE SECTION CONCLUDES BY IDENTIFYING LINE #66 AND PRINTING THE CORRECT

DISTANCE THAT THE LINE SHOULD BE FROM THE TOP EDGE OF THE PAPER.

:
H
000000

GLOBALS REFERENCED

REINIT,

.REPT 0
BEGIM?WTI?E
POWER UP DEFAULT TEST
RESET THE PRINTER

SELECT SIZE UNIT AS DECIPOINTS

TOGGLE THE PAPER OFFSET
PRINT THE TEST ID
“HORIZONTAL TAB DEFAULT SECTION”

PRINT SECTION ID

INCREMENT COUNT FROM #1 TO #18. BY 41
DO HORIZONTAL TAB

PRINT “T*

:
:
:
:
:
:

ENDINCREMENT
DO A LINE FEED
INCR COUNT FROM @1 TO #17. BY #1
:
PRINT 1-8
ENDINC
SKIP 2 LINES

:
:
:
:
:
:
:

; REPEAT THREE TIMES
: DIAMOND SHAPED PATTERN

DO VERTICAL TAB

: SHOULD BRING YOU TO TO

“SECOND PAGE OF VERTICAL SECTION"
PRINT SECTION 2 ID

INCR COUNT FROM #1 TO 46. BY a1
OUTPUT S VERTICAL TABS
PRINT SECTION ID

;s PRINTS 1-8 17 TIMES AC
; MEASURES DEFAULT TAB S

INC“EHENY FROM ONE TO THREE BY 1
PRINT TOTAL PATTERN
ENDINC“EHENT
DO FORM FEED
*VERTICAL DEFAULT TAB SECTION"
*FIRST PAGE OF VERTICAL SECTION*"
PRINT SECTION 1 ID
INCR COUNT FROM 01 TO #65. BY #1
$
D0 VERTICAL TAB
3
PRINT SECTION ID

ENDINC

; 18 HOR. TABS ~1D A "T”

ENDINC
DO FORM FEED

"MARGIN SECTION"

PRINT SECTION ID AND TOP EDGE MESSAGE(TEM)

;s END OF HOR1ZONTAL SECT
s PRINT ID ON LINE 1
: PRINT ID ON LINES 2 TH

PRINT SECTION ID ON LI

PRINT ID ON EVERY 5TH
FROM LINE 6 TO LINE 31
TESTS MULTIPLE VER. TA

; IDENTIFIES FIRST LINE

CZUNADO LNO1
CZUNAD. P11

TEST
DNMAC x24.07-563
10-APR-84
09:07
PAGE 6-63
POMWER UP DEFAULT TEST
10-APR -84 08:55

2877
2878

PRINT LEFT RIGHMT MESSAGE(LFM)

(3)

2898
2899
2900
2901
2902
2903
(4)
2904
(4)
2905

DEFINES LEFT AND RIGHT
REPEAT FOLLOWING 63, T
PRINT 132 "M"s

INCR COUNT FROM @1 TO #63. BY 01
:
PRINT FULL LINE OF u" "
DO LINE FEED
ENDINCREHENT

2879

2880
2881
2882
2883
2884
2885
2886
2887
2888
2889
2890
2891
2892
2893
2894
2895
2896
2897

SEQ 0079

PRINT BOTTOM EDGE MESSAGE(BEM)

DO FORM FEED

IDENTIFY LINE 66 AS BO

ENDROUT INE
.ENDR

027356
027356
027356
027420
027462
027524
027566
027566
027574
027574
027602
027602
027610
027610
027616
027616
027624
027624
027632
027632
027640
027640
027646
027710
027710
027716

027720

027720
027724
027724
027732
027734
027776
030040

Til::

BGNTST 11.

OUTPUT @REINIT,
&2
OUTPUT @SELDEC,
5
OUTPUT @DECFIN,
05
OUTPUT #PUD, 031,
LET QUTBUF :8= 011

sRESET PRINTER TO DEFAUL
s DECIPOINTS AS SIZE NI
s TOGGLE THE OFFSET

LET QUTBUF+1

sLINE FEED

112737

000011

003114

MOVB

#11,0UTBUF

112737

000012

003115

MOVB

@12,0UTBUF
-}

112737

000013

003116

MOVS

®13,0UTBUF
2

112737

000014

003117

112737

000015

003120

MOV8
914, ,0UTBUF
3
LETY OUVOUFOC 18+ 015
MOVB
#1S,0UTBUF
«4

112737

000115

003121

MOVB

0115,0VUTBULF 5

112737

000115

003122

MOVB

#115,0UTBUF
+6

112737

000124

012737
000402
005237

002276

023727
003043

002276

sPRINT

TEST

sHORIZONTAL TAB

:B8+ 012

LET OUTBUF+2 :B+- 013

sVERTICAL TAB

LET QUTBUF
-3 :8- 014

sFORMFEED

sCARRIAGE RETURN

LET WW'S 18 0115

3 "M” CHARACTER

LET QUTBUF
-6 :B= #115

:"M” CHARACTER
'.-'u

003123

LET OUTBUF+7 :B= 0124
@124 ,0UTBUF » 7
MOVB

002276

OUTPUT OHORDEF ,032.
INCR COUNT FROM o1 TO 018. By 01
01,COUNT
MOV

502744
;
000022

50273%;

“HMORIZONTAL

502734

INC

COUNT

cHe
8GT

COUNT, 018,
502754
OUTPUT QOUTBUF
, 01
OUTPUT Q0UTBUF «7

ENDINC

TAB DEFAWLT SECTION"

D0 18 HOR TABS AND PRIN

:DC HOR Ta8

sPRINT

IS
N NI NI NI NI NI

PNONOBO

PNNNININ

No
N

NN NI NN

FNO N

PNINONSNINONNNCN

NN\

PNONOBO N [V LV

’\3’\

2924

2931

(4)

030236
030236
030244
030246
030246
030252
030252
030260
030262
030266
030266
030266
030272
030272
030300
030302

030302

030306
030306
030314
030316
030322
030322
030364
030426
030426
030434
030436
030436
030442
030442
030450

030452
030456
030456
030520
030562
030562
030564

.
0007¢

50275%:

012737
000402

000001

005237

002276

023727
003022

002276

002276
50277%:
000021

000750

503008 :
$BRUMP=1

000001

012737
000402

000001

005237

C33350

023727
003402
000137

033350

005037

003112

012737
000402

000010

005337

003110

023727
002002
000137

003110

033350

S03018:

000003

031372

503028 :

50303s:

003110

S0305%:
S0306%$
:

030634

012737
000402
002276

023737
003402
000137

002276

030564

503118:

003112

503128:

50313%;

503145%;

SEQ 0080

502744

QUTPUT @0UTBUF +1,01
INCR COUNT FROM @1 TO 017,
@1, COUNT
MOV
BR
502764

INC

COUNT

CcMP
B8GT

COUNT, 017,
50300%
OUTPUT @SCALE,#8.

ENDINC
BR

By o1

s00 A LINE FEED

sPRINT

1-8 17 TIMES ACRO

502774

OUTPUT &QUTBUF.+1,01,,03

;00 A LINE FEED AND THEN

INCR LOOP FROM 01 TO 03 By 01

sREPEAT PATTERNS

MOV
B8R

1,L00P

INC

LooP

cHP
BLE
JMP

LOOP, 83
503034
503044

S0307%:

002276

005237

000725

5027648 :

WI R B3 T

030040
030042
030042
030104
030104
030112
030114
030114
030120
030120
030126
030130
C30172
030172
030174
030174

(5)

TEST
DNMAC x24.07-563
10-4PR-84
09:07
PAGE 6-64
POWER UP DEFAULT TEST
10-APR -84 08:55

BLE
JMP

ANC 2

50302%

LET WORK1 := @0
WORK1
DECR WORK FROM #8.
, WORK
8.
50306

sUSED DURING PATTERN GEN

TO o1 By o1

WORK

WORK
, 01
503078
50310¢

, 01, ,WORK
OUTPUT 00UTBLF

CZLNADO ' NO1
CZLNAD.P11

01,COUNT
503128

OUTPUT Q0UTBUF+7,01
INCR COUNT FROM 01 TO WORK1 BY 21

:00 CORRECT NUMBER OF TA
sPRINT

COUNT

COUNT , WORK
1
S0313¢
503144

OQUTPUT @0UTBLF ,01,,02
50311

ENDINC

OUTPUT

@0QUTBUF+7,01

:D0 TWO HOR.

;PRINT

TABS

NI NSNS N

~NO N
W

3003 :

ONONID

e
e lelnte)

e ladlalalelalele

2932
(7)
2933
2934
(4)
(4)
2935
(4)

(7)
(4)
(4)

(6)
(8)

(9)
2947
2948
2949

(4)
2951
(4)
(4)
2952
2953
2954

YOU 183"
apr -4 BHTEE X24-07-563,,
B8 a3P1
00:AFB
f SFACE ©-65
030564
030564
030570
030632
030632

030634
030634
030634

030642
030642
030650
030652
030652
030656

030656
030664
030666
030672
030672
030734
030776
030776
031004
031006
031006
031012
031012
031020
031022
031026
031026
031070
031132
031132
031134
031134
031176
031176
031202
031202
031204
031204
031204
031212
031214
031220
031262

031324
031366
031366
031366
031366
031372
031372

005237

WORK1

ENODEC
503054

003112

MOV

LET WORK1
06, WORK1

003110

MOV
B8R

02, WORK

INC

WORK

cMP
BLE
JMP

WORK, 07,
503174
503208

000623

S0310¢:

012737

000402

000002

005237

003110

023727
003402
C00137

003110

S0315%:
000007

031204

012737
000402

50317%:

002276

005237

002276

023737
003402
000137

00227¢

50321%:
003112

031134

DEC

003112

50320%:
033350

B8R
cHp
BEQ
JMP

000003

031366

50325¢:
000137

030246

503044
;
$BRUMP=0

»+

OUTPUT @OUTBUF +1,01

:+ 06

sD0 LINE FEED

sUSED DURING PATTERN GEN
sPATTERN GENERATION LOOP

503164

#1,COUNT

OUTPUT QOUTBUF
, 81, , WORK
F
. 7,01
OUTPUT #CJTBU
INCR COUNT FROM 01 TO WORK1 By o1

;00 CORRECT NUMBER OF MO
sPRINT FIRST =T~

503224

COUNT
COUNT
, WORK 1
503234
503243

WORK1
ENDINC
S0315%

ENDINC

OUTPUT QOUTBUF
, 01, ,82
OUTPUT Q0UTBUF.7,01

OUTPUT SOUTBUF +1,01
LET WORKK1 := WORK1 - o1

;D0 TWO HOR. TABS
sPRINT
A ~T”

s00 A LINE FEED
sREGULATES PATTERN GENER
sFIRST PATTERN COMPLETE

IF LOOP EQ 03 THEN

Logr.os

503254
:

ENOIF
ENDINC
JMP

:= WORK1

INCR WORK FROM 62 TO #7. BY o1

S0321%

503244
:

000623
023727
001402
000137

503228
:

50323%:

000725

005337

50316%:

SEQ 0081

LET WORK1

INC

003112

3he R 58

ESLNA 0
LNAD.P

OUTPUT SOUTBUF
01, ,08.
OUTPUT QOUTBUF
+7, 01
OUTPUT QOUTBUF
+1, 01

;D0 8 TABS

:PRINT LAST

sLINE FEED

50301

OUTPUT SOUTBUF +3,01

;DO FORM FEED

IN PATTE

CZLNADO I.NO1
CZLNAD.P11

NSNS N
NN
N

~OYv N

L8 N NONOBO -y

2955
2956
2957
2958
(5)

(4)
(4)
2962

TEST
10-APR-84

DNMAC

X24.07-563

O8as *2

Ef
-€

-APR-

POMER UP BEFAOL
T fesTROE ©-66

SEQ 0082
“VERTICAL DEFAULT

031434
031476
031476
031504
031506
031506
031512
021512
031520
031522
031526
031526
031570
031632
031632
031634
031634

012737
000402

000001

005237

002276

023727
003402
000137

002276

503264
:
000101

031634

50327s:

50330%:

000725

50331%:

OUTPUT @VERDEF,#31.
INCR COUNT FROM @1 TO #65.
01,COUNT
MOV
50327+
BR

INC

COUNT

CMP
BLE
JMP

COUNT, 065.
503304
50331$

ENDINC
BR

OUTPUT

By o1

OUTPUT QOUTBUF +2,01
OUTPUT OVERDEF,031.

TAB SECTION” (FIRST PAGE)
sVERTICAL SECTION 1

sPRINT SECTION ID ON LIN

;00 VERTICAL TAB
sPRINT SECTION ID

503264
QOUTBUF «2,01

;D00 VERTICAL TO TOP CF N
“VERTICAL DEFAULT TAB SECTION" (SECOND PAGE)

NI NI NI NININING
NN

ANO~NOROuW

lalalalalalealelele)

2967

031676
031740
031740
031746
031750
031750
031754
031754
031762
031764
031770
031770
032032
032074
032074
032076
032076

012737
000402

000001

005237

002276

023727
003402
000137

002276

OUTPUT @VERDEZ2,#9.
INCR COUNT FROM #1 TO #13. BY o1

002276

50332%:
000015

032076

S0333%:

21 ,COUNT

INC

COUNT

cMP

COUNT,#13.

JMP

S0335¢

BLE

503344
:

000725

MOV

503358
:

ENDINC
BR

s SECTION 2 ID
;s PRINT ID ON EVERY STH

503334

503344

OUTPUT QQUTBUF +2,21,,05.
OUTPUT OVERDE2,#9.

: DO S VERTICAL TABS
;s PRINT SECTION 2 ID

503328

OUTPUT O0UTBUF +3,01

: DO FORM FEED AND END S
“"MARGIN SECTION"

032140
032202
032244
032244
032252
032254
032254
032260
032260
032266
032270
032274
032274
032336

012737
000402

000001

005237

002276

023727
003402
000137

002276
032406

002276

000077

QUTPUT OMARDEF ,#102.
OUTPUT oLFM, 0113,
INCR COUNT FROM 21 TO #63. By o1

MOV~

8R
50336%:
INC

S0337%:

50340%:

cMP
BLE
JMP

o1,COUNT

: SECTION ID PLUS TOP ED
IDENTIFIES LEFT AND RI
;: REPEAT THE FOLLOWING 6

503378
COUNT

COUNT, 063.
50340
50341%
OUTPUT Q0UTBUF +5,02,,066.
OUTPUT Q20UTBUF »1,01

s PRINT FULL LINE OF
: DO LINE FEED

"M~

CZLNADO LNO1
CZLNAD.P11

3018
3019
3020
3021
3022
3023

3024

3025
3026
3027
3028
3029
3030
3031

004737

0C5306

000723

004737

50341%:

005306

104432
000632
i

032522

032562
032622
032661
032672
032724
033040
033221
03334C
033350
033352
033352
033352

033354
033354

09:0 7__PAGE 6-67

SEQ 0083

POWER UP DEFAULT TEST

055433
047510
042526
123
042504
044514
044124
114
031061
000000
104401

£30061
044522
052122
041505
040506
042516
020105
047111
032063

050155
047532
041511
044524
046125
021440
047506
020105
033065

ENDINC
BR

HORDEF:

.ASCII

VERDEF: .ASCII
VERDE2: .ASCII
MARDEF: .ASCII
TEM:
.ASCI1
LFM:
.ASCII
BEM:
.ASCII
SCALE:
.ASCII
.EVEN
LIST BEX
LOOP:
WORD
L10022:

JSR PC,

QUIET

50336%

OUTPUT 4BEM,#79.
OUTPUT QQUTBUF +3,41
JSR PC, QUIET
EXIT TST
TRAP
CSEXIT
.WORD
L10022-.
LOCAL VARIABLES,

.NLIST BEX
PUD :
.ASCIZ

ENDTST
TRAP

;
;s

MESSAGES,

IDENTIFIES LINE 66 AS
END TEST
AND M
DO FOR

TABLES

<33>/[10mPOWER UP DEFAULT TEST 11/<12><12>

/HORIZONTAL TAB DEFAULT SECTION/<12><12>
;32 CHAR
/VERTICAL DEFAULT TAB SECTION 1/¢<15>
;32 CHAR
/SECTION 2/
s 9 CHAR
/DEFAULT MARGIN SECTION
/
/LINE 01___THIS LINE SHOULD BE APPROXIMATELY .4 INCH FROM TOP EDGE OF PA
/THE FOLLOWING 63 LINES SHOULD BEGIN APPROXIMATELY .66 INCH FROM THE LEF

/LINE 066___THIS LINE SHOULD BE APPROXIMATELY 8.10 INCHES FROM TOP EDGE
/123456787
;PROVIDE

CSETST

ENDMOD
TABS TEST

.SBTTL

sMODULE TABS.P11
BGNMOD

FUNCTIONAL DESCRIPTION

3C17

032400
032404
032404
032406
032406
032450
032512
032516
032516
032520

1C-APR -84

2980
2981
(4)
(4)
2982
2983
2984
2985
(3)
(3)
2986
2987
2988
2989
2990
2991
2992
2993
2994
2995
2996
2997
2998
2999
3000
3001
(3)
(3)
3002
3003
3004
3005
3006
3007
3008
3009
3010
3011
3014
3015
3016

TEST
DNMAC X24.07- 63
10-APR-84 08:55

THE TABS TEST IS A COMPREMENSIVE TEST OF ALL HORIZONTAL AND VERTICAL

TAB FUNCTIONS ON THE LNO1 ELECTRONIC PRINTER.
IT TESTS THE HMORIZONTAL AND VERTICAL SETTING AND CLEARING OF TABS AS MWELL

AS THE ABILITY TO USE THE TAB FUNCTION ITSELF.

IT ASSURES THAT ALL TABS
IT ALSO ASSURES THAT
TABS CAN BE SET OR CLEARED REGARDLESS OF MARGIN SETTINGS.
IT FURTHER
ASSURES THAT A TOTAL OF 32 VERTICAL AND 32 HORIZONTAL TAB SETTINGS CAN

CAN BE SET OR CLEARED INDEPENDENT OF ONE ANOTHER.

BE USED AND THAT IF ANY ARE SET OVER AND ABOVE THE 32 LIMIT THAT THE HIGHESY
ORDER SETTING WILL BE ELIMINATED IN FAVOR OF THE LOMER SETTING.
THE TEST ACCOMPLISHES THESE RESULTS BY DRAWING A RECTANGLE 6 172 INCHES

CZLNADO LNO1
CZLNAD.P11
3032
3033
3034
3035
3036
3037
3038
3039
3040
3041
3042
3043
3044
3045
3046

TEST

DNMAC X24.07-563
10-APR-84
TABS TEST
10-APR-84 08:55

09:07

PAGE 6-68

SEQ 0084

IN HEIGHT AND 9 INCHES WIDE, WITH AN
WHICH WILL ALSO BE THE CENTER OF THE
THE RECTANGLE WILL BEGIN 1 INCH FROM
FROM THE LEFT EDGE OF THE PAPER,
IT

ASTERISK IN THE CENTER OF THE RECTANGLE
PAGE.
THE TOP EDGE OF THE PAPER AND 1 INCH
WILL END 1 INCH FROM THE BOTTOM EDGE

OF THE PAPER (7 1/2 INCHES FROM TOP EDGE OF PAPER) AND 1 INCH FROM THE RIGHT
EDGE OF THE PAPER (10 INCHES FROM THE LEFT EDGE OF PAPER).
THE EDGES OF

THE RECTANGLE WILL BE

FIXED INTERVALS.

THE

IDENTIFIED BY ASTERISKS BEING PRINTED AT

INTERVALS WILL BE

1/2 INCH FOR BOTH HORIZONTAL AND

VERTICAL BOUNDARIES.
THE ONLV THING APPEARING INSIDE THE RECTANGLE WILL BE
THE ASTERISK PRINTED IN THE CENTER.
THE CENTER ASTERISK SHOULD BE LOCATED

4 1/4 INCHES FROM THE TOP EDGE OF THE PAPER (NOT THE EDGE OF THE RECTANGLE)
AND 5 172 INCHES FROM THE LEFT EDGE OF THE PAPER (NOT THE LEFT EDGE OF THE

RECTANGLE).,

THIS WILL PLACE THE CENTER OF THE ASTERISK AT THE CENTER OF THE

PAPER AS MWELL AS THE CENTER OF

THE RECTANGLE.

TEST

DNMAC

CZUNAD.Pi1 = 10-APR-84 08:5

10-APR-84

09:07

1a82 TEot

PAGE 6-69

SEQ 0085

ANY OTHER MARKINGS ON THE PAGE EXCEPT

THE

TEST

ABOVE THE RECTANGLE WILL CONSTITUTE AN ERROR.

ID WHICH WILL BE PRINTED

THE FOLLOWING

IS A NON SCALE REPRESENTATION OF

THE RECTANGLE'S APPEARANCE
.

“

3048
3049
3050
3051
3052
3053
3054

X24.07-563_

©s

3055
3056
3057
3058
3059
3060
3061
3062
3063
3064
3065
3066
3067
3068
3069
3070
3071
3072
3073
3074
3075
3070
3077
3078
3079
3080
3081
3082

CZLNADO LNO1

2783

3084
3085
3086
3087
3088
3089
3090
3091
3092
3093
3094

3095

3096
3097
3098
3099

3100
3101
3102
3103

000000

.REPT O

REINIT,

GLOBALS REFERENCED

BEGIN ROUTINE
PRINT TEST ID
SEND RESET SEQUENCE
CLEAR ALL TABS
SET MARGINS
SET 16 VERTICAL TAB STOPS

TO TEST SETTING TABS OUTSIDE MARGINS

CZLNADO LNO1
CZUNAD.P11

TEST
ONHo‘qg X24 .07 -563'“68-?22i8‘
10-APR -84 08:5

3104
2105

:
:

3106
3107
3108
3109
3110
3111
3112
3113
3114
3115
3116

09:C7

PAGE 6-70

SET 16 MORE VERTICAL TAB STOPS
SET EXTRA VERTICAL TAB STOP

SET
SET
SET
SET

16 HORIZONTAL TAB STOPS
16 MORE HORIZONTAL TAB STOPS
EXTRA HORIZONTAL TAB STOP
MARGINS BACK TO DEFAULT SETTINGS

PRINT TOP LINE OF RECTANGLE

3117
3118
3119

CHECKS ABILITY TO SET INDEPENDENTLY
CHECKS FOR ELIMINATION OF HIGHEST ORDE
ALLOWS YOU TO USE ALL TAB STOPS
CHECKS ABILITY TO CLEAR HORIZONTAL
3 STOPS ONLY
STOP AT CENTER LINE

PRINT BOTTOM SECTION OF RECTANGLE

EXCEPT BOTTOM LINE

SET MORIZONTAL TABS

:
PRINT BOTTOM LINE OF RECTANGLE
:
SEND RESET SEQUENCE
:
DO FORM FEED
END ROUTINE
.ENDR

3120
3121
3122

CHECKS ABILITY TO SET INDEPENDENTLY
CHECKS FOR ELIMINATION OF HIGHEST ORDE

CLEAR ALL HORIZONTAL TABS

SET HORIZONTAL TABS
PRINT TOP SECTION OF RECTANGLE
PRINT CENTER LINE

SEQ 0086

TAB

SET TABS FOR BOTTOM LLINE (SAME AS TOP

RECTANGLE COMPLETE
RETURN TO DEFAULT SETTINGS

3123

3124
3125
3126
3127
3128
3129
3130
3131
3132
3133
3134
(3)
3135
(4)
3136
(4)
3137
(a)
3138
(a)
3139
(4)
3140
(8)
3141
(a)
3142
3143
3144
3145
3146
3147
3148
3149
3150
3151

033354
033354
033354
033354
033362
033362
033370
033370
033376
033376
033404
033404
033412
033412
033420
033420
033426
033470
033532
033574
033636
033700
033742
034004
034046
034110

T12::

112737

000013

003114

112737

000013

003115

112737

000014

003116

112737

000011

003117

112737

000011

0035120
003121

112737
112737

000015

003122

BGNTST

LET OUTBUF

12.

:B8- #13

MOV8

913,0UTBUF

LET QUTBUF+1 :B= 013

MOVE

013,0UTBUF
+1

MOVB

914 ,0UTBUF
+2

MOVS

@11,0UTBUF
»3

MOVB

011 ,0UTBUF
+4

MOV

915,0UTBUF
«6

: VERTICAL TAB CODE
'

”

LET OUTBUF+2 :8= #14

;s FORM FEED CODE

LET OUTBUF
+3 :B= 811

; CODE FOR HORIZONTAL TAB

LET OUTBUF
4 :B+ 011

LET OUTBUF
+5 :B= 052
MOVB
LET QUTBUF
+6 :B~ 015
OUTPUT @REINIT,
82

OUTPUT #SELDEC,#5
QUTPUT
OUTPUT
OUTPUT
OUTPUT
OUTPUT
OUTPUT
OUTPUT
OUTPUT

#TABTST, 20,
4
@CLRVER,
04
OCLRHOR,
#TBMAR1,
&8,
OLRMAR],012.
@VERTB1,082.
OVERTB2,084.
@XVER,
07

;

s CODE FOR ASTERISK

: CARRIAGE RETURN
DECIPOINTS
TEST ID

CLEAR ALL VERTICAL TABS
CLEAR ALL HORIZONTAL TABS
SET MARGINS TO TEST LNOl ABILI

SET FIRST 16 VERTICAL TAB STOP
SET SECOND 16 VERTICAL TAB STO
SET EXTRA VERTICAL STOP

ANONOBROuW

Nl
N Nl N N

3164
3165
(4)
(4)
3166
3167
3168
3169
(5)
(7)
)
)
)
;

)
(6)
3170
3171
3172
(4)
(4)
3173
3174

034762

034762
035024
035066
035130
035130
035136
035140
035140
035144

035144
035152
035154
035160
035160
035222

035264
035264
035266
035266
035330

012737
000402

000001

005237

002276

023727
003402
000137

002276

MOV

034666

50343%:

5034458
ENDINC

000746
012737
000402

000001

005237

002276

023727
003402
000137

002276

50343s

INC

COUNT

CMP
BLE
JMP

COUNT, 013,
503448
50345s

OUTPUT

QOUTBUF +3,03

e
S
Be S

By o1

S03428
S0345%:
INCR COUNT FROM @1 TO #S By 01

MOV

S50346$:
S0347%:

034762

@1,COUNT

503504 :

ENDINC

@1,COUNT

503474

INC

COUNT

ce
BLE

COUNT o5
S03504

JMP

OUTPUT Q0UTBUF +4,02

#4
OQUTPUT oCLRHOR,

OUTPUT #STOPSS,016.
012737
000402

002276

005237

002276

023727
003402
000137

002276

000725

035266

INCR COUNT FROM @1 TO #6 By &1

MOV

50352%:

50353%:

503544 :

ENDINCR

21 ,COUNT

50353

INC

COUNT

cMP
BLE
JMP

COUNT , 06
S0354 ¢
503554

CARRIAGE RETURN
DO HORIZONTAL TAB AND PRINT AS

;

TWO HOR TABS AND AN ASTERISK

PRINT REST

TOP LINE OF

ASTERISKS

TCP LINE OF

ASTE

s ONE HOR TAB AND AN ASTERISK

D0 CARRIAGE RETURN
CLEAR HORIZONTAL TABS
SET THREE WORIZONTAL TAB STOPS
PRINT

TOP SECTION OF RECTANGLE

OUTPUT QOUTBUF , 82

OUTPUT @TOPSEC, #6

B8R

SET FIRST 16 HORIZONTAL TAB ST
SET SECOND 16 HORIZONTAL TAB S
SET EXTRA HORIZONTAL STOP
SET DEFAILT TOP BOTTOM MARGINS
.
e
LEFT RIGHT
"
MOVE VERTICALLY TO TOP LINE (O

S03518

503464
S0351%:
QUTPUT QOUTBUF +6, 01

000746

SEQ 0087

OUTPUT &MORTB1,482,
OUTPUT @HORTB2, 084,
07
OUTPUT &XHOR,
QUTPUT @DEFMR1,08.
OUTPUT @DEFMR2,011.
QUTPUT QOUTBUF
, &1
QUTPUT QQUTBUF +6,01
QUTPUT QOUTBUF +4,02
INCR COUNT FROM @1 TO 013,
50342%:

000015

PAGE 6-71

034152
034214
034256
034320
034362
034424
034466
034530
034572
034572
034600
034602
034602
034606
034606
034614
034616
034622
034622
034664
034664
034666
034666
034666
034674
034676
034676
034702
034702
034710
034712
034716
034716
034760
034760

09:07

3152
3i53
3154
3155
3156
3157
3158
3159
3160
(5)
)
)
)
)
)
)
)
(6)
3161
3162
(4)
(4)
3163

TEST
DNMAC X24.07-563
10-APR-84
TABS TEST
10-APR -84 08:55

CZLNADO LNO1
CZLNAD.P11

J 7/

; DO TWO VERTICAL TABS
: DO THREE TABS AND PRINT 2 ASTE

50352

50355 :
OUTPUT #0UTBUF , 01
OUTPUT @MIDSEC, 04

: MOVE VERTICALLY TO CENTER LINE
: DO TWO TABS AND i ASTERISK (CE

CZLNADO LNO1
CZLNAD.P11

w
W

lnletlalale -

~N
O NONTRO N -~
® Nt N N N
N N
N

3175
3176

3179
3180
(4)

e
tndaladod

NANS NI NI NS NINI NSNS

0508 ANV
W
N
LN
.OOO\IONOOONU&

(4)
3181
3182
3183
3184
3185

3192
3193
3194
3195
3196
3197

TEST
DNMAC Xx24.07-563_
10-APR -84 08:5

035372
035434
035476
035476
035504
035506
035506
035512
035512
035520
035522
035526
035526
035570
035632
035632
035634
035634
035676
035740
036002
036044
036106
036106
036114
036116
036116
036122
036122
036130
036132
036136
036136
036200
036200
036202
036202
036202
036210
036212
036212

036216
036216
036224
036226
036232
036232
036274
036274
036276
036276
036340
036402
036444
036506
036550

012737
000402

000001

005237

002276

023727
003402
000137

002276

000005

035634

YAAS TEST

09:07

PAGE 6-72

QUTPUT QOUTBUF
, 01
QUTPUT @BOTSEC,
@6
INCR COUNT FROM @1 TO 4SS By
@1 ,COUNT
MOV
S0357¢
BR
503564
:
COUNT
INC
50357¢:

CMP

50360%:

ENDINC

BLE
JMP

012737
000402

000001

005237

002276

023727
003402
000137

002276

OQUTPUT &0UTBUF
, 22
OUTPUT #BOTSEC,#6

000015

036202

50363%:

S03645%:

ENDINC

000746

MOV

@1 ,COUNT

INC

COUNT

CcMP
BLE
JMP

002276

005237

002276

023727
003402
000137

002276

036276

S0367%:

50370%:

ENDINC

000746

005306

THREE

TABS,

TWO ASTERISKS AND

: MOVE VERTICALLY TO BOTTOM LINE

3
;
;
;

SET FIRST 16 HORIZONTAL TAB ST
SET SECOND 16 HORIZONTAL TAB S
SET EXTRA HORIZONTAL STOP
DO HORIZONTAL TAB AND PRINT AS

;

PRINT BOTTOM LINE OF ASTERISKS

TWO HOR TABS AND AN ASTERISK

PRINT REST OF BOTTOM LINE OF

COUNT , 213.

50362%

MOV

€1 ,COUNT

INC

COUNT

cHP
BLE

, 85
COUNT
S0370¢

JMP

503674

S0371%

OUTPUT QOUTBUF
+4, 82

503664
50371$:
OUTPUT QOUTBUF +6,01

OUTPUT
OUTPUT
OUTPUT
OUTPUT

;

50364
¢
50365¢

INCR COUNT FROM @1 TO &5 By o1

:
50366

; DO TWO VERTICAL TABS

50363%

OUTPUT QOUTBUF +3,03

503658:

012737
000402

3 MOVE VERTICALLY TO NEXT PRINTA
s FIRST LINE OF BOTTOM SECTION
s+ PRINT REST OF BOTTOM SECTION (

50360
50361

OUTPUT @HORTB2,#084.
&7
OUTPUT &XHOR,
OUTPUT QOUTBUF +4,482
INCR COUNT FROM @1 TO #13. BY 01
503624
:

SEQ 0088

COUNT , #5

S03564
BR
50361$:
OUTPUT QOUTBUF ,a1,,07
OUTPUT @HORTS1,082.

000725

004737

I<7
10-APR-84

ODECFIN,
05
S0UTBUF +2,401
OREINIT,
92
#SELDEC,
o5

JSR PC,QUIET

: ONE HOR TAB AND AN ASTERISK

: DO CARRIAGE RETURN
+ TOGGLE THE OFFSET

FORM FEED

i RESET DEFAULT CONDITIONS

: DECIPOINTS
: GUARANTEE THE FORM FEED

CZLNADO LNO1
CZLNAD.P11

TEST

DNMAC x24.07-563_

10-APR -84 08:55

10-APR-84

YA&S TEST

09:07

PAGE 6-73

SEQ 0089

3198

EXIT TST
TRAP
CSEXIT
.WORD
L10023-.
:

037443
037447

037456
037456
037456
037460

104401

067
064
062
070
063
062
065

070
065

073
064
067
011

052
011

CLRHOR:

.BYTE

33,133,63,147

LRMAR1:
VERTB1:

.BYTE
.BYTE

33,133,63,66,60,60,73,64,63,62,60,163
33,133,67,62,60,73,71,60,60,73,61,60,70,60,73,61,62,66,60,

VERTB2:

HORTB1:

HORTB2:

.BYTE

; SET BO

73,62,70,70,60,73,63,60,66,60,73,63,62,64,60,73,63,64,62,60

33,133,63,66,60,60,73,63,67,70,60,73,63,71,66,60,73,64,61,

.BYTE

64,63,62,60,73,64,65,60,60,73,64,66,70,60,73,64,70,66,60,
1

.BYTE

65,63,60,60,73,65,63,65,60,73,65,64,60,60,73,65,67,66,60,1

.BYTE

33,133,67,62,60,73,71,60,60,73,61,60,70,60,73,61,62,66,6C,7

.BYTE

33,133,62,61,66,60,7%,62,63,64,60,73,62,65,62,60,75,62,67,

.BYTE
.BYTE
.BYTE

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

73,62,70,70,60,753,63,60,66,60,73,63,62,64,60,73,63,64,62,60
33,133,63,66,60,60,73,63,67,70,60,73,63,71,66,60,73,64,61,
64,63,62.60,73,64,65,60,60,73,64,66,70,60,73,64,70,66,60,1
33,133,65,60,64,60,73,65,62,62,60,73,65,67,66,50,73,66,61,
66,64,70,60,73,66,70,64,60,73,67,62,60,60,73,67,63,70,60,16
33,133,65,64,60,60,165
33,133,73,65,70,63,62,162
; DEFAUL
33,133,64,67,65,73,67,64,64,65,163
33,133,67,62.60,73,63,71,66,60,73,67,62.60,60,165
11.52,11.11,52.12
: LINE USED FOR TOP SECT
11.11,52.12
11,52,11,11,52,12
: LINE USED FOR BOTTOM S

TRAP

CSETST

XHOR :
DEFMR1:
DEFMR2:
STOPS3:
TOPSEC:
MIDSEC:
BOTSEC:
.EVEN
.LIST BEX
ENDTST
L10023:

12/¢<15>

133
064
133
062
133
063
133
064
133
133
133
133
052
011
052

064
062
070
063
062
065
060
065

<12><15><33>/[10mTABS TEST

064
133
062
133
063
133
063
133

064
063
073
063
067

.NLIST BEX
TABTST: .ASCII

ENOMOD
MARGINS TEST
.SBTTL
sMODULE TSTMAR.P11

037460

FUNCTIONAL DESCRIPTION

THE MARGINS TEST

IS DESIGNED TO TEST ALL STATED FUNCTIONS OF BOTH TOP AND

073
033
064
033
065
033
033
061
033
073
033
064
033
066
033
033
033
033
Ol1
011
011
037456

133
133
133
133
133

030061

033
033
033
061
033

055433

TABLES

006412
033
033

MESSAGES AND DATA

S 358

036560
036604
036610
036614
036624
036640
036664
036710
036735
036762
037010
037034
037062
037106
037115
037141
037165
037212
037237
037265
037311
037337
037363
037372
037402
037415
037435

LOCAL VARIABLES,

104432
000700

Kfifigfiighnc» EAVES&) 3

036554
036554
036556

3199
3200
3201
(3)
(3)
3202
3203
3204
3205
3206
3207
3208
3209
3210
3211
3212
3213
3214
3215
3216
3217
3218
3219
3220
3221
3222
3223
3224
3225
3226
3227
3228
3229
3230
3231
3232
3233
3234
3235
3236
3237
(3)
(3)
3238
3239
3240
3241
3242
3243
3244
3245
3246
3247
3248
3249

CZLNADO LNO1

CZUNAD.P11

TEST

DNMAC

10-APR-84 08:5

250
3351
3252

X24.07-563

10-APR-84

MARCING TEeT
:
:
:

3253

3555

3262

:
:

SPECIFICATION ARE

AS FOLLOWS:

A: SET BOTH TOP AND BOTTOM MARGINS
8: SET TOP AND DO NOT CHANGE BOTTOM
C: SET BOTTOM AND DO NOT CHANGE TOP
D: BOTH PARAMETERS LEFT OUT CAUSES NO CHANGE IN MARGINS
€: BOTH PARAMETERS EQUAL TO ZERO CAUSES NO CHANGE IN MAR
ESCAPE SEQUENCES IGNORED IF PARAMETERS DO NOT CONFORM

SET LEFT AND RIGHT MARGINS
A: SET BOTH LEFT AND RIGHT MARGINS
8: SET LEFT AND DO NOT CHANGE RIGHT
C: SET RIGHT AND DO NOT CHANGE LEFT
D: BOTH PARAMETERS LEFT OUT CAUSES NO CHANGE IN MARGINS

: ESCAPE SEQUENCES IGNORED IF PARAMETERS DC NOT CONFORM

:
:

3278
3279

THE LNO1 FUNCTIONAL

E: BOTH PARAMETERS EQUAL TO ZERO CAUSES NO CHANGE IN MAR
F: REPOSITIONING OF ACTIVE COLUMN TO EQUAL NEW LEFT MARG

gg;g

SET TOP AND BOTTOM MARGINS

3374
3275

SET PMYSICAL LINES PER PAGE
A: SETTING PHYSICAL LINES PER PAGE CHANGES TOP MARGIN TO

B: SETTING PHYSICAL LINES PER PAGE CHANGES BOTTOM MARGIN

g--

3280

GLOBALS REFERENCED:

000000

REINIT.COUNT

REPT

gggg

O
“STEP BY STEP BREAKDOMN OF EACH SECTION OF THE TEST"

3288
3239
gggg

BEGIN ROUTINE
§

3292

3305

STATED

:
:
:
:
:

3272

3293
3294
3295
3296
3297
3298
3299
3300
3301
3302
3303
3304

F: REPOSITIONING ACTIVE LINE WHEN CURRENT ACTIVE LINE IS

:
H

3270
3271

3283

FUNCTIONS

3265
3266
3267
3268
3269

3281
3282

THE

:
:
:
:
:

3263
64

SEQ 0090

g&gxgggA%cepr UNDER SPECIFIED CIRCUMSTANCES, SUCH AS WMEN USING THE DRAW

3257
3258
3259
3260
3261

PAGE 6-74

BOTTOM MARGIN ESCAPE SEQUENCES AND LEFT AND RIGHT MARGIN SEQUENCES.
IT
WILL VERIFY THE ABILITY TO SET MARGINS TO THE DESIRED PARAMETERS AND ALSO
WILL VERIFY THAT THE PRINTER WILL RESPOND BY OPERATING WITHIN THE MARGINS

3356

09:07

)
:
‘
:
:
:
:
:
:
:
:
:
‘

LEFT RIGHT MARGIN SECTION

SELECT SIZE UNIT AS DECIPOINTS

TOGGLE PAPER OFFSET
PRINT TEST ID
SKIP A LINE
PRINT REFERENCE LINE OF "M*S
DO A LINE FEED
REPEAT 7 TIMES
:
SET LRMARGINS AT “A" AND “B"
:
OUTPUT 100 ASTERISKS
:
DO A LINE FEED
:
ADD 1 TO "A" AND TO "B"
END REPEAT
LET R3 EQUAL ATBL
LET R4 EQUAL APTBL

; FROM ONE INCH TO TENTH
; "A* STARTS AT “1* (INC
: ONLY 13 SHOULD BE PRIN
: MOVES MARGINS ONE INCH
: 1ST TABLE OF SEQUENCES
:

TABLE OF BYTE COUNTS F

3324
3325
3326
3327
3328
3329
3330
3331
3332
3333
3334
3335
3336
3337
3338
3339
3340
3341
3342
3343
3344
3345
3346
3347
3348
3349
3350
3351
3352
3353
3354
3355
3356
3357
3358
3359
3360
3351

PAGE 6-75

SEQ 0091

IMILE (R3) NE #0 DO
EM)DO

OUTPUT (R3)+,(R4)+

;

DO FOR ALL ENTRIES IN
OUTPUT THE ENTRY

LET R3 EQUAL BTBL
2ND TABLE OF SEQS AND
LET R4 EQUAL BPTBL
BYTE COUN
WHILE (R3) NE TO 40 DO
DO FOR ALL ENTRIES
3
OUTPUT (R3)+,(R4)+
OUTPUT ENTRY
ENDDO
SET LEFT AND RIGHT MARGIN TO 1 AND 10 INCHES RESPECTIVELY
DO A LINE FEED
PRINT LINE OF ASTERISKS
DO A LINE FEED
LET R3 EQUAL IGTBL
TABLE OF IGNORED SEQUE
LET R4 EQUAL IGTBLP
BYTE COUNTS
WHILE (R3) NE ¢0 DO
DO FOR EACH ENTRY
OUTPUT (R3)+,(R4)+
OUTPUT THE ENTRY

D0 CARRIAGE RETURN

3306
3307
3308
3309
3310
3311
3312
3313
3314
3315
3316
3317
3318
3310
3320
3321
3322
3323

TEST
DNMAC X24.07-563
10-APR-84
09:07
MARGINS TEST
10-APR-84 08:55

Moo oo oo on

CZULNADO LNO1
CZLNAD.P11

PRINT LINE OF ASTERISKS

DO A LINE FEED
NDDO
DO A LINE FEED

TOP BOTTOM MARGIN SECTION

LET R3 EQUAL CTBL
LET R4 EQUAL CPTBL
IMILE (R3) NE 0 DO
OUTPUT (R3)+,(R4).
EmDO
LET R3 EQUAL DOTBL
LET R4 EQUAL DPTBL
\HILE (R3) NE 40 DO
OUTPUT (R3)+.(R4).»
EWDO

TABLE OF SEQUENCES AND
BYTE COUNTS
DO ALL ENTRIES
OUTPUT THE ENTRY
MORE TOP BOTTOM SEQS A
TABLE OF BYTE COUNTS
DO FOR ALL ENTRIES
OUTPUT THE ENTRY

PHYSICAL LINES PER PAGE SECTION

SET PHYSICELD LINES PER PAGE TO 8 INCHES
DO FORM FEI

INCREMENT COUNT FROM
1 TO 69 BY 1
s
PRINT PLP PESSAGE
g
DO LINE FEED
END INCREMENT
PRINT END OF SECTION MESSAGE

IGNORED SEQUENCE SECTION
SET TOP AND BOTTOM MARGINS AT 1 AND 7 INCHES

00 FORM FEED
LET R3 EQUAL IGNTBL
LET R4 EQUAL IGNTBP
WHILE (R3) NE @0 DO

ENDDO

OUTPUT (R3)+,(R4).

INCREMENT COUNT FROM 1 TO S2 By 1
2
OUTPUT IGNORED SECTION MESSAGE

IGNORED SEQUENCE TABLE
BYTE COUNTS
DO FOR ALL ENTRIES
OUTPUT THE ENTRY

LNOL
11

09:07
DNMAC x24.07-563
10-APR-84
MARGINS TEST
10-APR -84 08:55

TEST

PAGE 6-76

END INCREMENT
OUTPUT END OF SECTION MESSAGE
OUTPUT END OF TEST MESSAGE
00 A FORM FEED
D0 RESET
SELECT SIZE UNIT AS DECIPOINTS
EXIT TEST

SEQ 0092

s RETURN TO ALL DEFALLT

END ROUTINE

.ENDR

037460
037460

037460
037460
037466
037466
037474
037474
037502
037502
037510
037510
037516
037516
037524
037524
037532
037532
037540

037540
037546
037546
037554

037554
037562
037562
037570
037570
037576

T13::

112737

000011

003114

112737

000115

003115

112737

000012

003116

112737

000015

003117

112737

000013

003120

112737

000014

003121

112737

000073

003122

112737

000052

003123

003124

112737

000077

003125

112737

000137

003126

112737
112737

003127
000053

003130

BGNTST

ls.

CODE IN SPMACJ

LET OUTBUF :8= 011
#11,0UTBUF
MOVB
LET OUTBUF
+ 1 :8= 0115
@115,0UTBUF » 1
LETY
:B8= 012
012§WYM *2
LET
:8+ 01

LET

@15,0UTBUF 3

:8= 013
013,0UTBLF «4
18+ @l4

LET

01‘50."” *5
18 @7

LET

18- 052

LEY OUTBUF-10
MOV
LET OUTBUF +11
MOV8
LEY OUTBWF « 12
MOVB
LET OUTBUF +13
MOVB
LEY QUTBUF » 14
MOVB
LET OUTBUF 15

@73, 0UTBUF +6

052, ,0UTBUF « 7

:8- 040

#40,0UTBUF +» 10
18- 077
077,0UTBUF + 11

CODE FOR HOR.
UPPER CASE

CARRIAGE RETURN
VERTICAL

TAB

FORM FEED

SEMI COLON FOR SEPARAT
CODE FOR ASTERISK

SPATE

QUESTION MARK CHARACTE
UNDERL INE

:8= 04}

EXCLAMATION

:B= 053
053,0UTBUF « 14
18> 075

PLUS SIGN

041,0UTBUF+ 13

"M~

LINE FEED

:8= 0137

0137, ,0UTBUF + 12

TAB

EQUAL

CZLNADO LNO1
CZLNAD.P11
(4)
3404

NI wn

Vb NSNS NI NI NN

PN\
PPN

AN~
W-

(4)
3405
(4)
3406
3407
3408
3409
3410
3411

3416

TEST
DNMAC X24.07-563% “AS-APR- 4
09:07
M
I NS TEST
10-APR-84 08:55

037576
037604
037604
037612
037612

037620
037662
037724
037766
040030
040072
040072
040100
040102
040102
040106
040106
040114
040116
040122
040122
040164
040226
040226
040230
040230
040272
040272
040276
040276
040276
040300
040302
040306
040346
040410
040452
040452
040454
040454
040454
040460
040460
040464
040464
040464
040466
040470
040474
040532
040532
040534
040534

112737

000075

003131

112737

000133

003132

112737

000135

003133

LET

MOVB

C8
PAGE

:B= 0133

LET OUTBUF«17

:B= @135

MOVB

0133, 0UTBUF ¢ 16

0135,0UTBUF
«17

012737
000402

000001

005237

002276

023727
003402
000137

002276
040230

MOV

S0372%:

000010

50373s:

012703

044140

005713
001002
000137

040454

012703

044160

012704

044254

005713
001002
000137

040534

005306

S0373%

INC

COUNT

cMP

COUNT ,@8.

JMP

S0375%

OQUTPUT @OQUTBUF
, 01
OUTPUT QOUTBUF »1,01

50372¢

B8R

MOV

SPARTBL ,R3

BNE

. 6

JHP
S0377%
OQUTPUT (R3).,012.
OUTPUT S0UTBUF +7,01,,0100.
OUTPUT S0UTBUF +2,01

B8R

S0376%

MOV

OATBL ,R3

MOV

QAPTBL R4

BNE
JHP

«*6
504018

B8R

504008

S0377%:
LET RS := QATBL

LET R4

3 RIGHT

s+ DECIPOINTS
s+ TOGGLE PAPER OFFSET
s TEST ID ON LINE 1 (DEF
s+ CLEAR DEFAULT TABS THE
s

DO TEN TIMES

DO A HORIZONTAL

S0374%

WHILE (R3) NE 00 DO
S0376%:
1ST
(R3)

:= 0APTBL

TAB

AN "M~
I
H PRINT
; REFERENCE LINE OF

504014
:

OUTPUT (R3).,(R4).

JSR PC,QUIET

"M"S

DO LINE FEED
SETUP R3 AS INDEXx TO T

; DO FOR EACH ENTRY

TRY

AND PRINT

FIRST

"N T

100 ASTE

s THE LEFT AND RIGHMT MAR
: DO A LINE FEED

: FIRST

TABLE OF

SEQUENC

TABLE OF BYTE CO

WHILE (R3) NE 00 DO
50400
:
757
(R3)

ENDDO

000754

BY o1

S0375%:
OUTPUT QOUTBUF 2,01
LET R3S := OPARTBL

ENDDO

000711

@1,COUNT

BLE
S0374s:;

LEFT SQUARE BRACKET

LEFT RIGHT MARGIN SECTION

OUTPUT @REINIT,
@2
OUTPUT @SELDEC,#5
OUTPUT @DECFIN,
@S
OUTPUT @TSTMRA,030.
OUTPUT @TABMS,@48.
INCR COUNT FROM @1 TO @8,

ENDINC

000725

004737

002276

SEQ 0093

075,0UTBUF
« 15

QUTBUF +16

MOVB

6-77

3 DO FOR ALL ENTRIES

EFLNA .Pll"l‘O1 'fi'twnu Sflg Xel.OT-%inkheingflieg' 09:07
3431
(4)
3432
(4)
3433
(4)
(6)
(8)
(9)
3434
3435
3)
(3)
3436
3437
3438
3439
3440
3441
(4)
3442
(4)
3443
(4)

(6)
(8)

(9)

@ SBOANONOBON
SN
NI NSNS NI

£ gfifif\r\r\f\r\r\

3444

(4)

040540
040540
040544
040544
040550

040550

40550
040552
040554
040560
040616
040616
040620
040620
040624
040666

040730
040772
041034
041034
041040
041040
041044
041044
041044
041046
041050
041054
041112
041154
041154
041162
041164
041164
041170
041170
041176
041200
041204
041204
041246
041246
041250
041250
041254
041316
041316
041320
041320
041320
041324
041324
041330
041330
041330
041332

012703

044346

012704

044422

005713
001002
000137

040620

LET R4

0BPTBL

012704

044514

005713
001002
000137

041320

012737
000402

000001

005237

202276

023727
003402
000137

002276
041250

MOV

oBTBL ,R3

MOV

oBPTBL ,R4

BNE
JMP

. *6
50403

OUTPUT (R3)+,(R4).

LET R4

MOV

®IGTBL ,R3

MOV

P
QIGTBLR4

BNE

JMP

. *6
S04054

B8R

S0407%

INC

COUNT

:= S#IGTBLP

WHILE (R3) NE @0 DO
S04048:
TST
(R3)

OUTPUT (R3).,(R4).
OUTPUT QOQUTBUF +3,01
w COUNT FROM 01 TO 0150. By o1
#1,COUNT

002276

S04068
:
000226

S0407%:

cHpP

BLE
504106 :

JHP

ENDINC

000746

005306

50411¢%:

ENDDO

000652
012703

044554

012704

044646

SEQ 0094

s DO FOR EACH ENTRY IN T

s OUTPUT THE ENTRY

504028
BR
504034:
JSR PC,QUIET
OUTPUT Q@ONETEN,@12.
OUTPUT QOUTBUF «2,01
OUTPUT @OUTBUF +7,81,,0150.
OUTPUT QCUTBUF 2,01
LET R3 := 0IGIBL

005306

044474

005713
001002

0BTBL

ENDDO

012703

004737

WHILE (R3) NE @0 DO
504028
:
TST
(R3)

000754

004737

LET R3

PAGE 6-78

B8R

LET R4

PRINT ASTERISKS ACROSS

LINE FEED
TABLE OF IGNORE SEQS
F

”

PARAMETERS

s DO FOR EACH ENTRY

: OUTPUT THE ENTRY
; CARRIAGE RETURN

COUNT, #150.

S0411

OUTPUT Q0UTBUF + 7,01

PRINT ACROSS PAGE

50406

504048

MOV

oCTBL ,R3

MOV

oCPTBL
R4

BNE

.*6

:= oCPTBL

TO 1 AND 10

504108

JSR PC, QUIET
OUTPUT S0UTBUF +2,01

504058:
LET R3S := oCTBL

SETS LRMAR
LINE FEED

WHILE (R3) NE 00 DO
50412%:
17
(R3)

: LINE FEED

: DO FOR EACH ENTRY

IN 3

CZLNADO LNO1
CZLNAD.P11
(9)
3455
3456
(3)

(3)

3457
3458
(4)
3459
(4)
3460
(4)

(6)
(8)
(9)

3461
3462
(3)
(3)
3463
3464
3465
3466
3467
3468
3469
3470
3471
3472
3473
3474
3475
3476
(4)
3477
(4)
3478
(4)
(6)
(8)
(9)
3479
3480
3481
(3)
(3)
3482
3483
NSNS NN
N

alalalealalals)

NONOOON

(3)

TEST
DNMAC X24.07-563
10-APR-84
09:07
MARGINS TEST
10-APR -84 08:55

041334
041340
041376
041376
041400
041400
041404
041404
041410
041410
04:414
041414
041414
041416
041420
041424
041462
041462
041464

000127

041400
ENDDO

000754
004737

005306

012703

044740

012704

045010

005713
001002
000137

041464

JMP

50413

504124

OUTPUT (R3)+,(R4).

S50413%:
JSR PC,QUIET
LET R3 := @DTBL
MOV
eDTBL ,R3
LET R4 := GDPTBL
MOV
QDPTBL
R4
WHILE (R3) NE @0 DO
504144
TST
(R3)

BNE

ENDDO

C00754

50415%:

004737

504154

S0414%

OUTPUT (R3)+,(R4).

012703

044532

012704

044544

005713
001002
000137

042126

012737
000402

000001

005237

002276

023727
003402
000137

002276
042226

3 ALL ENTRIES HANDLED NO

JSR PC, QUIET
OUTPUT SEOPLP, #60.

s ENC OF PLP SECTION MESSAGE

: PLP MESSAGE 69 TIMES

IGNORE SEQUENCE SECTION

OUTPUT QONESVN,#12.
OUTPUT SOUTBUF
«5, 01
LET R3 := SIGNTBL

MOV

QIGNTBL ,R3

BNE

. *6

: SET TBMAR AT ONE AND SEYVEN
s FORM FEED
: TABLE OF IGNOR SEQUENCES

LET R4 := QIGNTBP
MOV
@IGNTBP
R4
WHILE (R3) NE #0 DO
S04164:
ST
(R3)

JP
S0417$
OUTPUT (R3)+,(RA),

000733

005306

s DO FOR EACH ENTRY IN 4

3 PLP SEQUENCE TO 8 INCHES
; FORM FEED

ENDDO

004737

ALL ENTRIES HANDLED NO

OUTPUT #PLP8,
@7
OUTPUT SOUTBUF »5,01

3
041700
041742
042004
042004
042010
042010
042014
042014
042014
042016
042020
042024
042062
042124
042124
042126
042126
042132
042132
042140
042142
042142
042146
042146
042154
042156

;

PHYSICAL LINES PER PAGE SECTION

OUTPUT #PLP,0832.,,069.

005306

SEQ 0095

. *6

JMP

041464
041526
041570
041632
041636

PAGE 6-79

002276

000064

OUTPUT GENDTBM,
01

BR
S04178:
JSR PC, QUIET
INCR COUNT FROM
MOV
BR
504204
:
504214
:

S0416%

¢1 TO 052, By 01
01,COUNT

504218

INC

COUNT

cMP
BLE

COUNT
, 852.
504228
504238

JMP

: SEND IGNORE SEQ

s FINAL CHAR FOR TBMAR

C.UNADO LNO1

CZLNAD.P11
(6)
3484
3485
(4)
(4)
3486
3487
3488
3489
3490
3491
3492
3493
(3)
(3)
3494
3495
3496
3497
3498
3499
3500
3501
3502
3503
3504
3505
3506
3507
3508
3509
3510
3511
3512
3513
3514
3515
3516
3517
3518
3519
3520
3521
3522
3523

3524
3525
3526
3527
3528

3529
3530
3531
3532
3533
3534

TEST

042162
042162
042224
042224
042226
042226
042232
042274
042336
042400
042442
042504
042510
042510
042512

042514
042552
042636
042676
042772
043103
043134
043143

043152
043161
043170
043174
043214
043240
043254
043256
043272
043306
043322
043336
043352
043366

043402
043416
043432
043446
043454
043470
043504
043520
043534
043550
043561
043562
043563
043564
043565

DNMAC X24.07-563
10-APR-84 08:55

F8
10-APR-84

MARGINS TEST

504224

ENDINC

004737

005306

073

163
162
165
141

030061
051511
051531
051511
051511
047107
133
133
133
133
133
133
070
133
133
133
133
133
133
133
133
133
133
133
133
133
133
133
133
133
133
133

OUTPUT @IGSEC,@25.

OUTPUT @ENDTS,012.
QUTPUT QOUTBUF +5,01
OUTPUT OREINIT,
@2
OUTPUT @SELDEC,®5
JSR PC, QUIET

;

SECTION MESSAGE

END OF

IGNORE SECTION

;s END OF TEST MESSAGE
;s FORM FEED
;+ DECIPOINTS

EXIT TST
TRAP
CSEXIT
.WORD
L10024-,

104432
002360

055433
044124
044120
044124
044124
111
033
033
033
033
033
033
062
033
033
033
033
033
033
033
033
033
033
033
033
033
033
033
033
033
033
033

PAGE 6-80

504204
BR
504234
:
JSR PC, QUIETY
OUTPUT &EOIGN,@73.

000746

004737

09:07

046555
051440
041511
051440
051440
051117

LOCAL VARIABLES, TABLES, MESSAGES

NLIST BEX
TSTMRA: .ASCII
TSTMRB: .ASCII
PLP:
.ASCII
EOPLP:
.ASCII
EOIGN:
.ASCII
IGSEC:
.ASCII

<33>/[10mMARGINS TEST 13
PAGE 1/<¢12><12>
;s TEST I
/THIS SHOULD BE AT APPROX. 1 INCH MARK OF SECOND PAGE/
/PHYSICAL LINES PER PAGE SECTION/<12>
/THIS SHOULD BE 2ND LINE OF 2ND PAGE AND END OF PLP SECTION./<12>
/THIS SHOULD BE 2ND LINE OF 2ND PAGE AND END OF IGNORED SEQUENCE SECTION
/IGNORED SEQUENCE SECTION/<12>

PLPS:
PLPS:

33,133,63,66,.60,60,164
33, 133.‘5.67.‘5.60 164

PLP9:

.BYTE
.BYTE

.BYTE

CLRTAB: .BYTE
TABMS:

.BYTE

33,133,63,147

33 133,63, 147
33.133.61.6‘.6‘.60 73.62, l 66,60,73

: CLEAR

; CLEARS HTABS A

70, 70,60,73,63,66.60.60, 73,64,63,62.60, 73.65.60,64.60.
165

.BYTE

ui 63767, 66.60., 7366 .64, 70,6615
33
33 133.600‘7.62.60.73 61,.64,64,60,163
33.133 63 61,66,50.73.62 70.70, 60 163

; BEGINS
; LEFT =
:

PARAMS: .BYTE
PARAMG: .BYTE

33 133.6 3.‘6.60 ‘0.73.6..63 62 60 163
33.133 6‘.‘3.‘2.50-73065 60,64 60.163

:
:

PARAM9: .BYTE
PRAM10: .BYTE

33, 133.‘6.6‘.70 60,73,67,62, 60.60 163
33 133,67,.62.60,60,73,67, 65.66.‘0 163

3
:

PAR2:
PARS:

33 133.61,64, ‘4.‘0.73.62-61.66 60,163
33,133, 62.61.‘6 60,73,63,66.60,60,163

3
:

BGNSEQ: .BYTE
.PARAM1: .BYTE
PARAMS: .BYTE
PARAM?:

PARS :

.BYTE

.BYTE
.BYTE

ONESVN:

33,135,63,66,60,60,73,66, 6‘.70 60,163

.BYTE

35,133,60,67, 62 60,73,65,60,64,60, 162

HIDSEQR .BYTE
ENDLRM:

.BYfE

ENDHT ;

.QVTE

ENDTBM:

ENDHR :

33.1 3.‘5.‘0 64,60,73, 65.67.66.60 163

BYTE

ONETEN: .BYTE

073

33,133,66.64,70,60, 164

,.BYTE

BYTE

33,133, 50.67 62 ‘0.73.67.62 60,60,163
73

3
: SEMI C

163

s FINAL

165

s FINAL

162

141

;s FINAL

: FINAL

CZLNADO LNOL

CZLNAD.P11
3535
3536

043566
043567

3538
3539
3540
3541
3542

043571
043606
043611
043615
043623

3537 043570

gg:z 043636
355:5 033664
6

3 APR -84 80' gg

TEST

3547
3548
3549
3550
3551

043713
043736
044023
044113
044127

3554

044140

140
144

164

033
033
033
033
033

044160
044202
044232

m&&xhfi rggr 09:0
R-

ENDHAB:
ENDVAB:

.BYTE
.BYTE

140
144

IGNOR1:
IGNORA:
IGNORB:
IGNORC:
IGNOR2:

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

33,133,163,33,133,73,163,33,133,60,73,60,163
33.133.163
33,133.73,163
33.133.60.73,60,163
33.133.65.60.64.60,73,64,63,62,60

ENDPLP: .BYTE

DEFMAR:
TOPMAR:
BOTMAR:
ENDTS:
TOPNUM:

.BYTE
.ASCII
.ASCII
.ASCII
.ASCII

33,133,73,65,70,63,62,162,35,133,64,67,65,73,.67,64,648,65,163
/TOP MARGIN. INCHES FROM THE TOP SHOULD EQUAL APPROX
.. /
/BOTTOM MARGIN. INCHES FROM THE TOP SHOULD EQUAL APPROX. /
/END OF TEST/<12>
/6123577

043272

043306

043322

PARTBL:

.WORD

PARAM2,PARAMS,PARAMA

.WORD
WORD

12..1.6.1 3023:3,3.30.
o 1.6.3.1.8.12..1.6
1,1.1,12..6.1.1.6.1.1,1

043272
043306
043336

070

003124
003123
043366
000001
000001

043256
043272
043566
000006
000001

003123
043336
000014
043520
000014
043606
000002
043713

043366
004036
000001
043606
000003
043611
000003
043352

003123
043636
000001
043520
000014
043615
000005
043563

3570

044622

003116

042552

003116

BOTNUM: .ASCII
.EVEN
ATBL:

APTBL:

003117

043736
000023

004036

044131
000006

000065

043664

003116
000001

3573

044726

000001

3576

044776

043402

043567

044023

gg;g

045060

043138

043143

043152

BPTBL:
IGTBL:
IGTBLP:
IGNTBL:
IGNTBP:
CTBL:

3580

3581
(3)
(3)
3582
3583
3584
3585
3586
3587
3588

045072
045072
045072
045074

000001

000065

.WORD

"WORD
"MORD
.WORD
.WORD
.WORD
.WORD
.MORD
.WORD

'MORD

; SETS M

33,133.61,73,61.62.67.65,73.63.60,60,73,62,67,60,60,73,.63,.65.41.174
;s AND 1
33,133,60,73,61,62,67,65,73,61,66,65.60,73,61,62,60,60,73.63.65.41,174

/78/

,PARAMS , PARAMG . PARAM7 , PARAMS , 0

;

INCHES

;

TABLE

: SEQ TO

TABLE OF PARAM

PARAM2.OUTBUF +10,PARAML ,ENDHAB ,OUTBUF
+ 7, PARAMS ,ENDHAB,OUTBUF« 12, OUTBUF
+2
PARAMS.OUTBUF
+ 7,PARAMZ,ENDHR,OUTBUF
+ 12, OUTBUF »2, PARAMA., outauror PARAMS ,E
PARAMS.PARAM? em.wtwna nnms ENDHAB
, OUTBUF + 7, OUTBUF +2,0
; FIRST

TABLE OF

PARAMS, ouiwo'l.wmroz.rmmr OUTBUF
- 7,PARM10,ENDHAB ; 2ND TABLE OFS

OUTBUF +7,PARAMT. OUTBUF
+ 7., oum.roz PARAMS
, OUTBUF + 7, OUTBUF
+ 2, PARAMS,OUTBUF
PARAMS,SELPIX,DRULE1, sa.occ
12.,1,1,12.,1.6,1.1,12..1,1.12..1.1,12..1.1,.12..5.22..5
: 2ND TA
ONETEN, IGNORA.ONETEN,IGNORB.ONE TEN, EXRMAR . ONE TEN, O
: IGNORE
12.,.3,12..4,12.,.9..12.
IGNORA, IGNORB, IGNORC ,EXRMAR,O
2,.3,5.8.
: BYTE C
DEFMAR,PARAMG.ENDTBM,BGNSEQ,MIDSEQ,PARAMG
.7 ,ENDTBM, TOPMAR, TOPNUM

OUTBUF +3,SELPIX,DRULE2, SELDEC
, PARAML ,ENDTBM. PARAM7 . ENDVAB.BOTHAR, BOTNUM

CPTBL:

OPTBL:

’ECE&'L

"WORD
.WORD

TOPMAR, TOPNUM+2.0UTBUF +2.0
19..6 .z 1.4.1 $3..1.1.5.2%..5.6.1.6.1.56..1.1.52..1.8..6

- WORD

vmm.emvn.oorm.lomn1,0

.MORD

PLPS, PLPS‘PLP8,PLP9.0

- WORD

.WORD
-MORD
.WORD

S..

événn.t OPNUM.
3, OUTBUF « 2,PARAMS
, ENDTBM ,TOPMAR
tm«.ww»z
mim ENDTBM, TOPMAR. TOPNUM.
S, OUTBUF
+2

6,1,5S.,.1,1,6.1,53..1,1,6,1.58..1.1.6.1.56..1.0

LIST BEX
1084401

THESE SEQUENCE

'MORD QUTBUF +2, TSTMRB.OUTBUF
+2, DEFMAR,PARAM2,ENDTBM

3574 044740 043306 043563 043736 DTBL:
3575 044760 044133 003116 047366
000006

.WORD
"MORD
'MORD

: FINAL

073
040515
047524
047440
032463

044364
044410
044422
044474
044514
044532
044544
044554

045010

164

133
020120
052117
042116
031061

3560 044346 043352 003123 003116 BTBL:

3577

; FINAL
: FINAL

033
047524
102
105
066

061 DRULE1: .BYTE
060 DRUWE2: .BYTE

3561
3562
3563
3564
3565
3566
3567
3568

044636
044646

SEG 0097

AGE 6-81

133
133

000014
000001

3571
3572

033
033

044254
044320

044576

163
163
073
060
065

3558
3559

3569

9:07

133
133
133
133
133

3552 044135
067
3553
044140
3555
3556
3557

X24.07-563

L10024;

ENDTST

TRAP
ENDMOD

CSETS!

: aTH TA

CZLNADO (LNO1

CZLNAD.P11

TEST

DNMAC X24.07-563

10-APR-84 08:55

10-APR-84

09:07

MARGINS TEST

PAGE 6-82

SEQ 0098

3589

3590
3591
3592

3594

3595

gggg
/

.SBTTL

045074
:
:

ieoy
o001

GLOBALS REFERENCED
REINIT,ACRLF

: THIS VERSION OF THE AUTO-UNDERLINE TEST HAS BEEN ALTERED FOR USE IN LNO1 DIAGNOSTIC.

3603

3604
3605
3606

THE ORIGINAL VERSION WAS WRITTEN FOR HARD COPY TERMINALS USING SERIAL

: MESSAGES
ARE PRINTED WITH UNDERL INING AND WITHOUT.
b

000000

.REPT 0O
_

BEGINTEST

;

3613
3614

:
:

SEND “OFF” ESCAPE SEQUENCE (CLRUND)
PRINT "AUTO UNDERLINE MODE TEST” (UNDTTL)

332{-‘}

3619
3620
3621

:
:
:

SEND “ON" ESCAPE SEQUENCE (UNDON)
PRINT “THIS MESSAGE SHOULD BE UNDERLINED" (UNDMSG)
PRINT CHARACTER SET (ATHRUZ)

3624

PRINT "TABS:

3628

iin

3615
3618

3622
3623

3625
3626
3627
3629

3630

:
:
:
:

SKIP TWO LINES ((ACRLF)X2)

“THIS MESSAGE SHOULD NOT BE UNDERLINED“ (NCTUND)

( TABS)

CLR TABS
SET TABS
INCREMENT COUNT FROM 1 TO 8 By 1
:

DO A TAB

PRINT A "T*

ENDINCREMENT

3634
3635
3636
3637
3638
3639

:
:
:
t
:
:

PRINT “SPACES:
“
( SPACES)
PRINT A “S*
INCREMENT COUNT FROM 1 TO 14 BY 1
:
SEND A SPACE "COUNT” TIMES
3
PRINT A “S*
ENDINCREMENT

3642
3643
3644

:
:
:

SEND UNDERLINE OF UNDERL
INE -CHARACTER MESSAGE (UNDUND)
PRINT A LINE OF °
SKIP 2 LINES (Acm.r X 2)

3631

3632
3633

3645

INTERFACE(DZ11)

: THE ORIGINAL VERSION STILL EXISTS IN THE TML LIBRARY AND IS CALLED AUTUND.NEW.
: THE LNO1 DIAGNOSTIC HAS DRIVERS FOR A PARALLEL INTERFACE(LP11,M7258).
: THIS TEST IS DESIGNED TO EXERCISE THE LNO1’'S AUTO-UNDERLINING CAPABILITY.

gegg

33215

UNDLIN.P11 6/20/82

3602

3609
3610

tMODULE NAME:

BGNMOD

3598
3599

AUTO-UNDERL
INE -MODE TEST

SKIP 2 LINES

CZLNADO LNO1
CZI.NAD.P11

TEST
DNMAC X24.07-563
10-APR-84
09:07
PAGE 6-83
10-APR -84 08:55
AUTO -UNDERL INE -MODE TEST

3640

SEQ 0099

3647
3648
3649

:
:
:

INCREMENT COUNT FROM 1 TC 16 Br 1
:
TURN ON UNDERL INE
: PRINT "ON" AND A SPACE

3651
3652

:
:

:
PRINT "“OFF" AND A SPACE
END INCREMENT

:
:
:
:

SEND “OFF" ESCAPE SEAUENCE (CLRUND)
PRINT “THIS MESSAGE SMOULD NOT BE UNDERLINED” (NOTUND)
DO A RESET OF PRINTER DEFAULT CONDITIONS
DO A FORM FEED

3650

3653

3654
3655

3656
3657
3658
3659
3660
3661
3662

3678

045074
045074
045074
045074
045102
045102
045110
045110
045116
045116
045128

3679
(4)
3680
(4)
3681
(4)

045132
045132
045140
045140
045146
045146

3584

045260

3686
3687

045364
045426

3689
36950
3691

045470
045532
045574

(4)
3675
(4)
3676
(4)

1677
(4)

(4)

045124

3682 045154
3683 045216

3685 045322

3692

TURN OFF UNDERI. INE

SKIP 2 LINES

ENDTEST
.ENDR

3663
3664
2665
3666
3667
3668
3669
3670

3671
3672
3673
(37
3674

; NOTE: CURRENT CODE ONLY DOES 11 DUE TO

Ti4::

112737

000011

003114

112737

000012

003115

112737

000014

003116

112737

000015

003117

112737

00004C

003120

112737

000123

003121

112737

000124

003122

112737

000137

003123

BGNTST 14,
LET OUTBUF :8+ 011
MOVE
#11.0UTBUF
LET OUTBUF+1 :B= 012
MOVE
012,0UTBUF
+1
LET OUTBUF+2
:B+ 014
MOVE
014,0UTBUF
.2
LET OUTBUF+3 :B8+ 015
MOVE
#15,0UTBUF
.3
LET OUTBUF+4 :B= 040

: HOR TA8 CODE

LET OUTBUF
+5 :8= 0123
0123, 0UTBUF +5
LET OUTBUF+6 :B+ 0124
MOVE
#1268,0UTBLF
+6
LET OUTBUF+7 :8+ @137
MOVE
01357,0UTBUF
+7

; UPPER CASE

OUTPUT SUNDON,
#4

+ SEQUENCE TO TURN UNDERLINE
ON

OUTPUT SUNDTTL ,836
OUTPUT ONOTUND. #40.

: TEST ID
: MESSAGE SAYING “NOT UNDERL INED

MOVB

840 ,0UTBUF
+4

OUTPUT ORE it.oz
ouUTPUT os:wec
OUTPUT

.05

OUTPUT SUNDON,
04
OUTPUT SUNDMSG, 960.
OUTPUT SATHRUZ.029.

: LINE FEED CODE
; FORM FEED CODE

; CARRIAGE RETURN CODE
:

SPACE CODE

“S” CODE

“T* CODE

: UNDERLINE (_) CODE

: DECIPOINTS

: SEQ TURNING UNDERLINE ON
: MESSAGE SAYING “UNDERLINED:

OFF

e
~

(4)

3701
3702
3703
3704
3705
3706

N NI NSNS

NONOEBO~N

PNONONINININTN

(3)

(6)
3707
3708
3709
3710
(4)
(4)
3711
3712
3713
Nt N ~n
"

ANEGNOOO
N Ve

3714

046310
046352
046414
046414
046422
046424
046424
046430
046430
046436
046440
046444
046444
046506
046512
046554
046554
046556
046556
046620
046662
046724
046724
046732
046734
046734
046740
046740
046746
046750
046754
046754
047016

012737
000402

000001

005237

003110

023727
003402
000137

003110

QUTPUT @TABS,#7
04
OUTPUT &NOTAB,
OUTPUT @STTAB,#41.
INCR WORK FROM @1 TO 08.

003110

504244
;

000010

046142

504254
:

@1, WORK
50425%

INC

WORK

BLE
504264
:

000725

MOV
BR

50427s:

JMP

SEQ 0100

s SEND TABS MESSAGE
;CLR ALL TABS
By o1

005237

003110

023727
003402
000137

003110

004737

005306

S0430%
:
000016

046556

S0431%:

ENDINCR
504248
BR

#4
OUTPUT ONOTAB,
OUTPUT @ACRLF , 02
OUTPUT @ACRLF
, 82

504324

50433%:

OUTPUT QOUTBUF
+4,01 , ,WORK
JSR PC,QUIET

OUTPUT @ACRLF ,#2

05237

002276

023727
003402
000137

002276
047020

%‘5‘ cou.cr raon'n 70 #132. By a1

002276

504348:
000204

50435%:

50436%:

: CR, LF

sSEND SPACE MESSAGE
sSEND “S”

:SEND SPACE WORK TIMES

$SEND “S”~

504304

('Juwut SUNDUND , 936 .

000001

;:CLR TABS

;s CR, LF

504324
504333

OUTPUT #ACRLF , 82

012737
000402

300 FOR ALL TAB SETTINGS

a1, 5

OUTPUT SOUTBULF +5,01

000723

1/2,2,3,4,5.7,1

50426

QUTPUT SOUTBUF
01
OUTPUT S0UTBUF
+6, 01

MOV

1,1

504274

OUTPUT #SPACES,
9.
OUTPUT SOUTBUF
+5, 01
INCR WORK FROM @1 TO @14, By 01

003110

TABS AT

WORK
, 08,

012737
000402

+SET

;

82 3

3698

045636
045700
045742
046004
046004
046012
046014
046014
046020
046020
046026
046030
046054
046034
046076
046140
046140
046142
046142
046204
046246

6-84

: § &

NS NN

~3 Nt N NN

latlelalalale
e

8 O

oo ~NONO®O N

&
&

3693
3694
3695

TEST
DNMAC X24.07 -563
10-APR-84
09:07
P
AUTO -UNDERL INE -MODE TE
10-APR -84 08:55

§3 % 8

CZLNADO LNO1
CZLNAD.P11

COUNT

cHP
BLE

COUNT, 0132,
504364
504374

JMP
ENDINC

OUTPUT Q0UTBUF + 7,01

: CR, LF
: CR, LF

sUNDERLINE THE UNDERLINE MESSAGE
: DO IT 132 TIMES

i UNDERLINE

CHARACTER

I<&
CZLNADO LNO1
CZLNAD.P11
(4)
(4)
3718
3719
3720
3721
(5)

TEST
10-APR -84

047016
047020
047020
047024
047066
047130
047130

(7)

047136

(6)
(8)
(6)
\7)
(9)
(7)
(6)
3722
3723

047140
047140
047144
047144
047152
047154
047160
047160
047222

3725
372¢

047326
047370

3724

(4)
(4)

3727
3728
3729
3730
3731
3732
3733
3734
3735
3736
(3)
(3)
S787
3738
3739
3740
3741
3742
3743
3744
3745
3746
3747
3748
3749
3750
3751
3752
3753
3754
3755
3756
3757
3758

08 a5 X2a.07-563,

X24.07-563

000746

005306

012737

000001 002276

005237

023727
003402
000137

504378

004737

000402

18- OROeR 1ne2iB0e TESE 685
-APR

OUTPUT ' @ACRLF
, #2
OUTPUT OACRLF
. 92
INCR COUNT FROM @1

MOV
B8R
S0440%:
002276
INC
50441
002276 000013
cHe
BLE
047372
JMP
504428:

By 01

OUTPUT GUNDON,
94

ENDINC

000663

;

504438
;

OUTPUT oFUN,
04

:
:

047760
047764
047770
047775
050027

033
033
033
033
063

050052
050117

055433
124

033

OUTPUT OREINIT,®2

: RESET DEFAULT CONDITIONS

044124
047111
125
050123
040524
041101
117
043117

EXIT

.MORD

.NLIST BEX

133

060

CLRUND:

.BYTE

133

062

NOUND:

.BYTE

133

063 NOTAB:

TURN OFF UNDERL INE

: UNDERLINE MODE OFF
'+ NOT UNDERLINED MSG

JSR PC, QUIET

067 STTAP:
060

TURKN ON UNDERL INE

PRINT ON AND A SPACE

OUTPUT SCLRUND,
04
OUTPUT @NOTUND. 940

TRAP

133
066

TST

DO FORM FEED

: DECIPOINTS

: WAIT TILL DONE

CSEXIT

L10025-.
33,133.60,155

;ESC [ O m

33.133.62.64,155

ESC [ 24 m

_BYTE
BYTE

33.133.67.62 60,73,61,60,70,60,73,61,64,64,60, 73,62,61,66,60,73,62,
70, 70
63 66,60,60, 73,65,60,64,60, 73,67.62,60.60,165 :SET TABS AT 1.1 1/2.2.3

.ASCIZ

/THIS MESSAGE SMOULD NOT BE UNDERLINED. 7¢15><12>

.BYTE

133,683,147

s CLEAR ALL HOR TABS

030061 040555 UNDTTL: .ASCIZ i»/no-mvo UNDERLINE -MODE TEST 14/<153¢12><12><12>
084510

020123

040440

052125

051511

042116
041501

051502
042103

020116
020106

046440
051105
051505

006872
043105

NOTUND.

.ASCIT

UNDUND:
SPACES:

.ASCIZ
.ASCIZ

/UNDERLINE OF UNDERLINE -CHARACTERS:/<15><12>
/SPACES:/<12><15>

"ASCII
"ASCII

/ON /
/OFF 7/

TABS:
ATHRUZ:

OUN:
FUN:

16 BUT TM

(*'TPUT QACRLF
, 82
OUTPUT OACRLF .02

OUTPUT @SELDEC.
05

005306

THIS SHOULD BE

504408

OUTPUT SOUTBUF
+2, o1

004737

NOTE:

PRINT OFF AND A SPACE

104432
000442

050170
050232
050265
050332
050344
050354
050411
050414

TO #11.

OUTPUT @CLRUND,
04

047756

050046

01, COUNT
504418
COUNT
COUNT, 211,
50442
504438

OUTPUT SOUN,
03

047372
047434
047476
047540
047602
047644
047706
047750
047754
047754

SEQ 0101

B8R
504344
JSR PC,QUIET

047264

047370
047372

"ASCIZ
.ASCIZ
.ASCII

.EVEN
.LIST BEX

/THIS MESSAGE SMOULD BE UNDERLINED /

/IN AUTO-UNDERLINE MODE./<15><12><12>

/TABS:/<15><12>
/ABCDEFGHIJKLMNOPGRSTUVMXYZ/<15>¢12><12>

: 29 CHARACTERS

CZLNADO LNOL1

TEST

DNMAC

C2nab Pt "33 PR
84 085S
2759

(3)
(3)

3760
3761
3762
3763
3764
3765
3766
3767
3768
3769
3770

050420

050420
050420
050422

104401

3772

-APR -84

9:07

L8
-

autB - ORBERL
ne 2iB0e TEET ©-%6
L1002S:

0 %02

ENDTST

TRAP

ENDMOD

.SBTTL

g;;z
3775
3776
3777
3778
3779
3780
3781
3782
3783

X24.07-563

CSETST

PARTIAL LINE UP/DOWN TEST

: MODULE NAME: NEWPLU.P11
050422

BGNMOD
e
]
;
;3 THIS TEST IS AN ADAPTATION OF THE PARTIAL LINE UP,

:
;
;
:

?
PARTIAL LINE DOWN
TEST USED ON HARDCOPY TERMINALS.
THE ORIGINAL VERSION OF THIS TEST
IS DESIGNED FOR USE ON TERMINALS USING THE DZ11 SERIAL INTERFACE.
'AE ORIGINAL IS CALLED PTLINE.P11, AND, IS LOCATED IN THE TML LIBRARY
ON THE MILL20 DEVELOPMENT SYSTEM IN A SUBDIRECTORY CALLED TML.TESTS.

;

ELECTRONIC PRINTER ONLY.

:
:
:

THIS TEST WILL EXERCISE THE TERMINALS CAPABILITY TO EXECUTE
THE ANSI PARTIAL LINE UP AND PARTIAL LINE DOWN ESCAPE SEQUENCES.
OTHER THINGS TESTED INCLUDE THE MACHINES ABILITY TO PERFORM MULTIPLE

3784

s THIS COPY, WHICH HAS BEEN NAMED PLUP.P11, IS FOR USE ON THE LNO1

3786

; LP11 (M7258) INTERFACE. A COPY OF PLUP.P11 IS LOCATED ON MILL20 <TML.G>

3785
3787
3788
3789

3790

3791
3792
3793
3794
3795
3796
3797
3798

3799
3800

: PLU, PLD FUNCTIONS ON ONE LINE, AND, THE STATED FACT THAT USING THE

: PLU, PLD FUNCTIONS TAKES UP ONE LINE SPACE APIECE IN THE LNO1'S PAGE
: BUFFER.
:
-~
000000

.REPT O
BGN PTLINE TEST

SKIP 3 LINES

:
:

PRINT THE TEST ID
SKIP 3 MORE LINES

3804

3810

3801
3802
3803

3805
3806
3807
3808
3809

3811
3812
3813

IT IS DESIGNED FOR USE ON PRINTERS USING THE

:
:
:

INCREMENT WORK FROM 1 TO 9 BY 1
:
DO FOR COUNT = S DOWN TO O BY 1
:
:
SELECT LOGICAL FONT €10

SEND '000°

:
:
:
:
:

:
:
SEND PLU 1 PLD
:
:
SEND ‘000
:
:
SEND PLD 1 PLV
:
ENDDO
END INCREMENT

:
:

SKIP 2 LINES
PRINT END OF TEST MESSAGE
TOGGLE PAPER OFFSET

SEND ' 000’

CZLNADO LNO1
CZLNAD.P11

TEST
DNMAC X24.07-563
10-APR-84
09:07
PAGE 6-87
PARTIAL LINE UP/DOWN TEST
10-APR-84 08:55

DO FORM FEED
RESET THE PRINTER

3814

3815
3816

SEQ 0103

SELECT SIZE UNIT AS DECIPOINTS

END TEST

3817
3818
3819
3820
3821
3822

EXAMPLE OF QUTPUT:

000

3823
3824

3825
3826
3827
3828
3829
3830
3831

0001 000

OOO1 000

WHERE SUBSCRIPTS AND SUPERSCRIPTS ARE OFFSET BY A PARTIAL LINE.

.ENDR

3832
3833
3834
3835
3836

3837
3838
3839
3840

(3)
3841
3842
3843
3844
3845

ANONOBONW

fif\fiflflfl’\f\flg

OANONORO~N w
~
PRSI
INF T TR . NPT T
NS N

AmAAAAAA ~

3846
3847
(4)
3848

050422
050422

T1S::

15.

jsess SELECT PORTRALT FONT ssss;

OUTPUT SREINIT,#2

050422

050464
050526
050570
050632
050674
050674
050702
050702
050710
050712
050712
050716
050716
050724
050726
050732
050732
050732
050740
050742
050742
050746
050746
050754
050756
050762

BGNTST

112737

000012

OUTPUT @SELDEC,
o5
OUTPUT #SKIP3,#4
OUTPUT OPTLINE,#3S.
OUTPUT #SKIP3,#4
LET OUTBUF :B8* @12
MOVS
#12,0UTBUF

003114

INCR WORK FROM €1 TO #9. By @1
MOV

003110

012737
000402

005237

003110

023727
003402
000137

003110

504444:
000011

051346

012737
000402

50445%:

504464:

002276

005337

002276

023727
002002
000137

002276

051236

S0450$
:
000001

50451$:

50452%:

01 ,WORK

50445%

INC

WORK

cMP

WORK
, 09,

MOV

DECR COUNT FROM 05 TO @1 B @1
45 ,COUNT

DEC

COUNT

BLE
JMP

cMP
BGE
JMP

504464
50447

50451

COUNT
, 01

504524
50453

;s
:
;
:

DECIPOINTS
SKIP 3 LINES
PRINT TEST ID
SKIP 3 MORE LINES

;: DO 9 LINES OF THE CODE

CZLNADO LNO1
CZLNAD.P11
3850
3851
3852
3853
3854
3855
(4)
(4)
3856
3857
3858
(4)

(4)
3859
3860
3861
3862
3863
(4)
3864
3865
3866
3867
3868
(3)
(3)
3869
3870
3871
3872
3873
3874
3875
3876
3877
3878
3879

(3)
(3)

3880
3881
3882
3883
3884
3885
3886
3887
3888
3889
3890
3892
3893

3894
3895
3896
3897

TEST
DNHAC X24.07-563
10-APR-84 08:5

050762
051024
051066
051130
051172
051234
051234
051236
051236
051300
051342
051342
051346
051346
051410
051452
051456
051520
051520
051526
05157¢
051632
051674
051700
051700
051702
051704
051711
051755
051773
051777
052005

052014
052014
052014
052016

1)-APR-

PARTIAL LINE UP/ OUN
A?ST

50453
:

000137

050712

004737

005306

112737

000014

004737

50447%:

003114

005306

104401

ENDINC
JMP

.WORD

133
015415
051505

030060
030514
030513

061
030533
020124

045433
046033

ENDDEC
504504

OUTPUT
OUTPUT
OUTPUT
OUTPUT
OUTPUT

SEQ 0104

@DECLCS,#5
#PL1,63
#PL2,45
4PL1,63
#4PL3,05

OUTPUT &PL1,43
OUTPUT @OUTBUF
, &1

PL2:

<33>/L1/<33>/K/

PL3:

LASCIZ

.EVEN
.LIST BEX
ENDTST
L10026:
TRAP
ENDMOD

B8GNMOD
3o
¢

‘000’

’000’

DO SUBSCRIPTS

: LINE FEED

s SKIP 2 LINES
s+ TEST COMPLETE MESSAGE

s+ TOGGLE PAPER OFFSET
;s CODE FOR FORM FEED
;s DO THE FORM FEED

s+ RESET DEFAULT CONDITIONS
;s DECIPOINTS

:+ SEQ TO SELECT LOG FONT #10 (DEFAULT)

<12><15>¢<33>/[10mPARTIAL LINE UP-DOWN TEST 1S5/
/TEST COMPLETE/<12>
7000/

<33>/K1/¢<33>/L/

CSETST

DRAW VECTORS TEST
.SBTTL
sMODULE DRWVEC.P11
052016

L10026-.
33,133,61,60,155

.ASCIZ
.ASCII
.ASCIZ

DO SUPERSCRIPTS

CSEXIT

.NLIST BEX
DECLCS: .BYTE
PTLINE:
TOONE:
PLL:

SELECT LOGICAL FONT #10
PRINT ’ 000’

50444

,
.02
OUTPUT SOUTBUF,#1
OUTPUT &#TDONE,®14.
JSR PC,QUIET
OUTPUT QDECFIN,
&S
LET OUTBUF :B8= 014
MOVB
214, 0UTBUF
OUTPUT SOUTBUF
, o1
OUTPUT OREINIT,
&2
OUTPUT #SELDEC,®5
JSR PC,QUIET
EXIT
TST
TRAP

104432

000112

033
012
124
060
033
033
052014

N8
6-88

CZLNADO LNO1
CZLNAD.P11

TEST
DNMAC x24.07-563
10-APR -84 08:55

10-APR-84

2898
3899
3900

THIS

PAGE 6-89

SEQ 010

FUNCTIONAL DESCRIPTION
TEST IS DESIGNED TO TEST TME DRAW VECTOR (SOMETIMES CALLED DRAW RULE) FUNCT

OF THE LNO1 ELECTRONIC PRINTER.
THE DRAW VECTOR FUNCTION, CALLED "DECVEC”,
DRA
A LINE OF VARIABLE THICKNESS.
THME X DIRECTION IS PARALLEL TO PHYSICAL PAGE MOVE
THE v DIRECTION IS PARALLEL TO THE LASER SCAN,
THE LINE'S ORIENTATION, POINT OF

3901
3902
3903
3904
3905
3906
3907
3908
3909
3910
3911
3912
3313
3914
3915
3916

ORIGIN, DISTANCE AND WIDTH MAY BE DEFINED BY SPECIFYING CERTAIN PARAMETERS IN TH

AFTER USING THE DRAW VECTOR COMMAND, THE
POSIYIWE::E'YE?JS TO GIVING THE COMMAND.
:

SUPPOSE

THAT

ACTIVE POSITION IS RETURNED

“BEFORE” A DRAW VECTOR COMMAND:

VERTICAL

HORIZONTAL

THE ACTI

ACTIVE POSITIONS AR

= 1 INCH FROM TOP O
= S INCHES FROM LEF

THEN A COMMAND IS GIVEN TO DRAW VECTOR FROM 3 INCHES HMORIZONTALL

MORIZONTALLY,

VERTICAL ORIGIN IS 4 INCHES, WIDTH IS 1/2 INCH.

“AFTER” EXECUTING THE COMMAND:

ACTIVE POSITIONS SHOULD STILL BE

VERTICAL

HORIZONTAL

2917

3918
3919
3920
3921
3922
3923
3924
3925
3920
3927
3928
3929
3930
3931
3932
3933
3934
3935
3936
3937
3938
3939
3940
3941
3942
3943
3944

NOTE:
THE

= 1 INCH FROM TOP OF

= S INCHES FROM LEFT

CURRENT POSITION IS IDENTICAL AFTER DRAW RULE COMMAND AS BEFORE.

TEST VERIFIES THESE FUNCTIONS BY PRINTING THE

TEST

ID AND THEN

BELOW THE ID DRAWING A RECTANGLE 3 INCHES IN HEIGHT AND 9 INCHES IN WIDTH.
THE
CENTER LINE DRAWN HWORIZONTALLY THROUGH IT.
IT WILL ALSO MAVE 8 VERTICAL LINES
ODRAWN AT 1 INCH INTERVALS INSIDE THE RECTANGLE.
THE RECTANGLE WIL'. ALSO CONTAIN
THE LETTERS WILL BE ARRANGED IN SUCH A WAY SO AS TO SPELL OUT ”"LNO1” ON THEZ UPPE
THE RECTANGLE AND TO SPELL OUT “DIGITAL" IN THE LOWER MALF.
THE TEST WILL CONCLUDE BY PRINTING THE TEST ID BELOW THE RECTANGLE.

THE RECTANGLE WILL BE HANDLED BY, FIRST, DRAWING THE UPPER AND LOWER OUTSIDE
BORDERS OF THE RECTANGLE USING THE DRAW VECTOR COMMAND.
THESE LINES WILL BE
172 INCH THICK.
SECOND, THE TEST WILL MOVE THE ACTIVE POSITION TO THE CORRECT
LOCATION OF THE FIRST LETTER (L) TO BE PRINTED.
MOWEVER, THE LETTER WILL NOT BE
PRINTED YET.
BEFORE PRINTING IT A DRAW VECTOR COMMAND WILL BE GIVEN TO THE
PRINTER TO DRAW THE LEFT OUTSIDE BORDER OF THE RECTANGLE. THE THICKNESS OF THIS

BORDER WILL ALSO BE 1/2 INCH.
AFTER DRAWING THE BORDER THE ACTIVE POSITION
SHOULD AUTOMATICALLY RETURN TO THE POSITION OF TME FIRST LETTER.,
THE LETTER
WILL THEN BE PRINTED.
TMIS SAME CONCEPT OF POSITIONING THE ACTIVE COLUMN
TO THE PROPER LETTER POSITION AND THEN DRAWING A VECTOR BEFORE PRINTING THE

LETTER MILL BE USED TO COMPLETE THE RECTANGLE,

INCLUDING THE LETTERS.

THE VERTICAL LINES WITHIN THE RECTANGLE WILL BE A DIFFERENT WIDTH THAN
THE BOUNDARIES.
THE CENTER LINE WILL BE STILL A DIFFERENT WIDTH THAN
THE BOUNDARIES AND TME VERTICAL LINES.
THIS WILL TEST THE VARIABLE
WIDTH FUNCTION, THE DRAW VECTOR COMMAND'S ABILITY TO DRAW OUTSIDE
EXISTING MARGINS IS CURRENTLY BEING TESTED IN THE MARGINS TEST, AND,

WILL NOT BE EXERCISED IN THIS TEST.

3945

3946
3947
3948
3949
3950
3951
3952
3953

09:07

DRAW VECTORS TEST

GLOBALS REFERENCED:

REINIT,QUIET
.REPT O

C9o

G3LMABOANOT 68 apn 0 BUGE *24-07 5630040 OFBifA FR497 PAGE 6-%0
3954
3955

3956
3957
3958
3959
3960
3961
3962
3963
3964
3965
3966
3967
3968
3369
3970
3971
3972
3973
3974
3975
3976
3977
3978
3979
3980
3981
3982
3983
3984
3985
(3)
3986
3987
3988
3989
3990
3991
(4)
3992
(4)
3993
(4)

(6)
(8)
(9)
3994
3995
(3)
(3)
399
3997
3998
3999

4000

SEQ 0106

PDL
BEGIN ROUTINE
MOVE VERTICALLY
PRINT

TEST

TO ABSOLUTE 1

INCH MARK

DRAW VECTOR FOR TOP LINE OF RECTANGLE
DO FOR EACH ENTRY IN TABLE
:
MOVE TO CORRECT POSITION FOR NEXT LETTER
:
DRAW NEXT VECTOR
PRINT NEXT LETTER
:
ENDDO
MOVE VERTICALLY TO 7 INCH MARK

TEST ID

BGNTST

16.

RESET THE PRINTER
D0 FORM FEED
SELECT SIZE UNIT AS DECIPOINTS
CALL QUIET ROUTINE
END ROUTINE

FROM 2ND INCH VERTICAL
TO 10TH INCH HORIZONTA
TABLE OF SEQUENCES TO

3 SHOULD BE IN CORRECT P

s+ CENTER JUSTIFIED

.
.

.ENDR

052016
052016
052016
052060
052122
052164
052226
052270
052270
052274
052274
052300

T16::

012703

052750

012704

053000

005713
001002
000137

000754

oUTPUT
ouTPUT
ouTPUT
ouTPuT
ouTPUT
LET R3

OVERPO
, #6
1

SORWVEC, #22.

OUNDER, o

OYOPVEC.OSl
OVERPOS,
@

se OLEY'IL
RS
SLETTBL
MOV
LET Ra 1= OBYTTBL
R4
#BYTTBL
MOV

WHILE (R3) NE #0 DO
504548;
1ST

(RS)

JHP

504553

BNE

052350

ENDDO

MOVE VERTICALLY TO 1 INCH MARK
TEST ID
TURN ON UNDERL INE

DRAW TOP LINE OF RECTANGLE
MOVE VERTICALLY TO 3 INCH MARX
SET UP TABLE OF SEQUENCES T0 P

BYTE COUNTS OF SEQUENCES IN TA

DO FOR EACH ENTRY IN LETTER TA

, +6

OUTPUT (R3)+,(R4).

504544
BR
504554:
OUTPUT OVERPQO7,08,
, 04
OUTPUT OUNDROF
OUTPUT GORWVEC,#28.
OUTPUT OREINIT,02
OUTPUT @SELDEC,
85

MOVE TO LETTER POSITION, DRAW

MOVE VERTICALLY

TO 8 INCH MARK

SEND TEST ID FOLLOWED BY A FOR
RESET TO DEFAULT CONDITICNS
SELECT DECIPOINTS

n
ESLNARORYOL T83 apr
sa BHTEE X24.07-563,
10 0PRiBAs 92497 PAGE 6-91
4

X24.07-

4001
4002

052622
052626

004737

(3)
J(3)

052626
052630

104432
001240

005306

JSR PC,QUIET
EXIT

NLIST BEX

SEQ 0107
:

TST

TRAP
LWORD

2004
4005

CSEXIT
L10027

GUARANTEE

THE FORM FEED

LOCAL VARIABLES,

TABLES, MESSAGES

4006
:88;

052632
052666

055433
8;3%%3

030061
051511

042155
050040

DRWVEC:
OECEET:

.ASCII
LASCII

4009
4010
4011
4012

052750
053000
053030
053034

053133
000050
033
033

053203
000050
133
133

053253
000075
064
060

LETTBL:
BYTTBL:
UNDER:
UNDROF:

.WORD
.WORD
.BYTE
.BYTE

LVEC,NVEC,VECO,VEC1,DVEC,IVEC,GVEC,IVEC2, TVEC,AVEC,LVEC2,0
40.,40.,61.,39.,46.,40.,40.,40.,40.,40.,40.,0
33,133,64,155
3+ UNDERLINE ON
33,133,60,155
;
.
A

4014
4015
4016
4017
4018
4019
4020

053046
053055
053064
053074
053115
053133
053160

033
033
033
033
062
033
063

133
133
133
133
067
133
060

062
063
065
067
060
061
060

VERPO3:
VERPOS:
VERPO7:
TOPVEC:

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

33,133,62,61,66,60,144
;
e
33,133,63,66,60,60,144
:
33,133,65,60,64,60,144,15
1
<
33,133,67,40,111,33,133,61,73,66,60,60,73,63,60,60,73
; DRAW v
62,67,60,60,73,63,67,41,174,35,133,62,40,111
33,13%,61,70,60,60,140,33,153,67,40,111,33,133,61,73,61,70,60,60,73
63,60,60,73,62,67,63,67,73,63,67,41,174,33,133,62,40,111,114

.BYTE

60,73,66,60,.60,73,63,60,60,60,73,61,62,60,60,73

4013

053040

033

133

067

4021
4022
4023
4024

053203
053230
053253
053277

033
063
033
063

133
060
133
060

063
060
064
060

4026

053336

063

067

041

4025

4027

4028
4029
4031
4032
4033

4034

4035
4036
4037
4038
4039
4040
4041
4042
4043

4044
4045
4046
4047

053316

053350
053374
053417

033

073

133

066

060
133

053462
053475
053521

073
033
061

063
133
062

067
062
060

053571
053615
053641
053665
053711
053735
053761
054005
054031

061
033
061
033
062
033
062
033
062

065
133
070
133
061
133
064
133
067

060
063
060
064
060
065
060
066
060

053545

054055
054062

054070

(3)
(3)

054070
054070

054072

033

033
033
0549570

133

133
133

LVEC:

NVEC:
VECO:

066

066
033

4048

4049
4050
4051
4052

060

VERPO1:

060
063

063

062
060

.BYTE

.BYTE
.BYTE
.BYTE
.BYTE

.BYTE

VEC1:
DVEC:

IVEC:

GVEC:
IVEC2:
TVEC:
AVEC:

LVEC2:

.BYTE

<33>/[10mDRAW VECTORS TEST 16/<15>¢12><14>
3 TEST
/THIS PAGE SHOULD BE OFFSET FROM THE PREVIOUS PAGE/

33,133,67,62,60,144

;s
;s

VERTICAL POSITION FOWR

63,67,41,174,35,133,62,40,111,60

33,133,66,61,62,60,140,33,133,67,40,111,33,133,60,73,66,60,60,73

66,60,60,73,61,62,60,60,73,63,67,41,174,33,133,62,40,111,61
33,133,63,66,60,60,144,35,133,61,70,60.60,140,33,133,67,40,111

.BYTE
.BYTE
.BYTE

73,63,67,41,174,33,133,62,.40,111,144
33,133,62,65,62,60,140,33,133,67,40,111,33,133,60,73,66,60,60,73
61,62,60,60,73,61,62,60,60,73,63,67,41,174,33,133,62.40,111,151

.BYTE
.BYTE
.8YTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

61,65,60,60,73,61.62,60,60,73,63,67,41,174,33,133,62,40,111,147
33,133,63,71,66,60,140,33,133,67,.40,111,33,133,60.73.66.60.60,73
61,70,60,60,73,61,62,60,60,73,63,67,41,174,33,133,62.40.111,151
33,133,64,66,70,60,140,33,133,67,40,111,33,133,60.73,66,.60,60,73
62,61,60,60,73,61,62,60,60,73,63,67.41,174,33,133,62.40,111,164
33,133,65,64,60,60,140,35,133,67,40,111,33,133,60,73,66,60,60,73
62,64,60,60,73,61,62,60,60,75,63,67,41,174,33,133,62.40.111,141
33,135,66,61,62,60,140,35,133,67,40,111,33,133,60,73,66.60,60,73
62.67,60,60,73,61,62,60,60,73,63,67,41,174,33,133,62,40,111,154

.BYTE

TRAP
ENDMOD

TBL OF
BYTE C

33,133,63,62,64,60,140,33,133,67,40,111,33,133,61,73,61,62,60,60,73
63,60,60,73,62,67,60,60,73,61,70,41,174,33,133,62,40,111,116
33,133,64,66,70,60,140,33,133,67,40,111,33,133,60,73,66,60,60,73
63,60,60,73,61,62,60,60,73,63,67,41,174,33,133

33,138,68,62,64,60,140, 3,133,67,40,111,33,133,60,73,66,60,60,73

33,133,62,40,106
33,133,60,40,106

ENDTST

104401

FIRST 22 CHAR

.BYTE
.BYTE

JUSTON: .BYTE
JUSTOF: .BYTE
.EVEN
LIST BEX

L10027:

ID.

CSETST

s
:

BEGIN JUSTIFY
END JUSTIFY

CZLNADO LNO1

CZUNAD.P11

TEST

10-APR-84 08:55

4053
4054
4055
4056
4057
4058
4059

4062
4063

4064
4065

DNMAC X24.07-563

orAu VeCTORs TE4Y

E9O

PAGE 6-92

054072

BGNMOD

4067

4068
406

:
FUNCTIONAL DESCRIPTION
:
: THIS IS A TEST OF THE STATED FUNCTIONS OF THE JUSTIFY COMMAND ON LNO1

4370
4071
4072
4073

:
:
:

4074

4075
4076
4077
4078
4079

4080

ELECTRONIC PRINTER. THE JUSTIFY COMMAND AS DEFINED IN THE LNO1 FUNCTIONAL
SPECIFICATION IS SUPPOSED TO FUNCTION IN THE FOLLOWING WAY:
IT JUSTIFIES TEXT LINES WITHIN THE LEFT AND RIGHT MARGINS BY VARYING THE

;

JUSTIFY COMMAND.

:
:
:
:

:833

:
H

4089

4090

JUSTIFICATION WILL OCCUR ON ALL TEXT BETWEEN A START AND STOP

A START JUSTIFY DETECTED WITMIN A LINE WILL DETERMINE THE LEFT
JUSTIFY POINT FOR THAT LINE. A STOP JUSTIFY DETECTED WITHIN A
LINE DETERMINES THE RIGHT JUSTIFY POINT FOR THAT LINE.
TO JUSTIFY ACCORDING TO THE LEFT AND RIGHT MARGIN, THE START

Efl'g 's"t,gr.slusnrv COMMANDS MUST ENCOMPASS THE LINE BEGINNING AND
.

IF JUSTIFICATION MAS BEEN TURNED ON AND OFF WITHIN A TEXT LINE

;

OF A SPACE CHARACTER.

:835

THE SPACE CMARACTERS OUTSIDE THE SEQUENCE USE THE NORMAL WIDTH

4093

4096
4097

3--

:%8?

: REINIT,COUNT,OUTBUF
,QUIET

: THE JUSTIFY TEST WILL EXERCISE THESE FUNCTIONS AND PROVIDE A MEANS

:83;

; FOR VISUALLY VERIFYING CORRECT OPERATION AND LIMITATIONS.
H

4098
4099
4104
4106

4105

4107
4108

4109
4110

INTERWORD SPACING IS ADJUSTED SUCH THAT THE FIRST

WORD STARTS AT THE LEFT MARGIN AND THE LAST WORD ENDS AT THE RIGHT MARGIN.
THE SPACE IS EVENLY DISTRIBUTED BETWEEN WORDS OF JUSTIFIED TEXT.
THE MINIMUM AND MAXIMUM DISTANCE BETWEEN WORDS WILL NOT BE LESS THAN
60% NOR GREATER THAN 2008 OF THE WIDTH OF THE SPACE CHARACTER.
NO JUSTIFICATION WILL OCCUR IF THESE LIMITATIONS ARE EXCEEDED.

4083
4084
4085
4086

SPACE BETWEEN WORDS.

:
:
:
:
:

:835

4102

EQ 0108

.SBTTL JUSTIFY TEST
:MODULE JUSTIF.P11

4066

4103

:
;
000000

GLOBALS REFERENCED:
MESSAGES, VARIABLES, SUBROUTINES
0

POL

aecm ROUT INE

SEND RESET SEQUENCE

PRINT JUSTIF
SKIP A LINE

SECTION 1

: RESET PRINTER TO DEFAU
:

TEST

CZUNADO LNO1
CZLNAD.P11
4111

4112

4113

4114

4115

4116

4117
4118
4119
4120
4121
4122
4123
4124
4125
4126
4127
4128
4129
4130
4131
4132
4133

4134
4135
4136
4137

4138
4139
4140
4141
4142
4143
4144

TEST
DNMAC X24.07-563
10-APR-84 08:55

F9
O-Apfligg‘ 09:07
TIFY

PAGE 6-93

TURN ON JUSTIFY
PRINT EXPLANATION OF SECTION 1
TURN OFF JUSTIFY

SKIP A LINE
INCREMENT COUNT FROM o1 TO @17. BY o1
SEND “JUSTFY"
SEND "SPAJUS",COUNT TIMES
e
DO A CARRIAGE RETURN AND LINE FEED

TURN JUSTIFY ON

INCREMENT COUNT FROM @1 TO @17, By o1
IF COUNT EQ 014, THEN
TURN UNDERLINE ON
ENDIF
IF COUNT EQ €17. THEN
TURN OFF UNDERL INE

ENDIF
SEND “JUSTFY”
SEND “SPAJUS”,COUNT TIMES
SEND A CARRIAGE RETURN, LINE FEED

INCREMENT COUNT FROM 1 TO 17, BY 1
IF COUNT EQ 14. THEN
TURN UNDERLINE ON

ENDIF
IF COUNT EQ 17. THEN
TURN OFF UNDERL INE
ENDIF
TURN ON JUSTIFY
SEND "JUSTFY”
SEND "SPAJUS”,COUNT TIMES
TURN JUSTIFY OFF

4148
4149

ENDINC

4155

DO FORM FEED
PRINT EXPLANATION OF SECTION 2

4163
4164

4165

4166

: PR
.
: SPACE AND WORD JUSTIFY

CARRIAGE RETURN, LINE FEED

4150
4151
4152
4153

4160
4161
4162

: PRINT WORD “JUSTIFY"
s SPACE AND WORD JUSTIFY

TURN JUSTIFY OFF
SKIP A LINE

4145

4156
4157
4158
4159

; DO
s PRINT WORD “JUSTIFY”
s SP
AND

SKIP A LINE

4146
4147

4154

SEQ 0109

SECTION 2
TOGGLE PAPER OFFSET
TURN ON JUSTIFY

LET R3 EQUAL TEXTBL
LET R4 EQUAL TEXTBP
WHILE (R3) NOT EQUAL TO O DO
SEND (R3)+,(R4).
ENDDO
SKIP 3 LINES
TURN JUSTIFY OFF
LET RS EQUAL TEXTBL
LET R4 EQUAL TEXTBP

;s TABLE OF TEXT LINES
s BYTE COUNTS FOR TEXT T
: DO FOR ALL ENTRIES
i OUTPUT THE ENTRY

CZUNADO LNO1
CZUNAD. P11

TEST

10-APR-84 08:
Sg e563JU§?IPPRYPQY PRET TN -

4167
4168

4169
4170

:
3

4171
4172

4173
4174
4175
4176
4177
4178
4179
4180
4181
4182
4183
4184
4185
4186
4187
4188

(3)

4189
4190
4191
4192

(4)

4193
(4)
4194

(4)
4195
(4)

4196

(4)

4197
4198
4199
4200
4201
4202

4203

WHILE (R3) NOT EQUAL TO O DO
SEND (R3)+,(R4).
ENDDO
SKIP 3 LINES
PRINT END OF TEST MESSAGE
D0 A FORM FEED
RESET THE PRINTER
SELECT SIZE UNIT AS DECIPOINTS

SEQ 0110

; OUTPUT THE ENTRY

EM) ROUTINE
.EM)R

054072
054072

T17::

BGNTST

¢
054072
054072

054100
054100
054106
054106
054114
054114
054122
054122
054130
054172
054234
054276

112737

000015

003114

112737

000012

003115

112737

000014

003116

112737

003117

012737

003120

17.

SOURCE CODE

LET QUTBUF

:8= 015

MOVE

215, 0UTBUF

MOV

012,0UTBUF
«1

MOV8

€14, ,0UTBUF +2

MOVE

#40,0UTBUF
+3

LET QUTBUF+1 :B~ 012

LINE FEED

LET OUTBUF+2 :B= #14

FORM FEED

LET OUTBUF
3 :B+ #40

SPACE

LET QUTBUF+4 := 055
455,0UTBUF
-4

DASH

OUTPUT @SELDEC.#5

054722
054764
054764
054772
054774

004737

000001

OUTPUT S0FF JUS , 05
002276

INCR COUNT FROM 01 TO 017. BY 01

504564
:

SECTION 1

oUTPUT mY”d.Ol
012737
000402

TEST

SKIP A LINE

OUTPUT SONJUST,#5
OUTPUT 0EXP,0136.
OUTPUT OEXP1,0143.
OUTPUT GEXP2,0145.
OUTPUT #EXPS, 0142,
OUTPUT OEXPA, 040,

005306

RESET THE PRINTER

DECIPOINTS

OUTPUT @JUSTIF ,e22.
OUTPUT QOUTBUF
+1, 01
:

054340
054402
054444
054506
054550
054612
054654

CARRIAGE RETURN

MOV
B8R

@1,COUNT
50457%

TURN JUSTIFY

OFF

EXPLAINS FIRST SECTION

SKIP A LINE
DO THIS CHUNK OF CO0E

(4)
4)

NS I
N NS PR NI NINI NI NI

VRN NO N W

4218
4219
4220

055622
055624
055624
055666
055730
055772
055772
056000
056002
056002
056006
056006
056014
056016

005237

002276

023727
003402
000137

002276

000021

055164

ENDINC

COUNT

CcMP

COUNT
, @17,

JMP

504614

000001

005237

002276

023727
003402
000137

002276
055624

023727

002276

000137

055376

002276

50463$:

S0464%:

S0467$:

ENDINC

002276

005237

002276

023727
003402
000137

002276

056434

CMP
BLE
JMP

COUNT, 817,
50464$
504658

IF COUNT EQ €14.

ENDIF

‘JUSTIF

. *6
50466%

#4
OUTPUT SUNON,

THEN

. *6
S0467%
, 24
OUTPUT QUNOF

01 ,COUNT

50471

INC

COUNT

cMP

TURN ON UNDERL INE

COUNT 017,

BLE
JMP

SKIP A LINE
TURN JUSTIFY ON
D0 THIS CHUNK OF CODE

THEN

OUTPUT QJUSTFY,87.
OUTPUT #SPAJUS,#8., ,COUNT
OUTPUT 20UTBUF +1,01

MOV

S0471%:;

CRLF

COUNT
, 014,

IF COUNT EQ #17.

ENDIF

By #1

50462
S0465%:
, 04
OUTPUT SUNOF
OUTPUT Q0FF JUS, @5
OUTPUT S0UTBLF +1,01
INCR COUNT FROM o1 TO €17. By #1
50470%;

000021

COUNT

BEQ
JMP

055454

012737
000402

INC

cHP

000021

000626

504634

BEQ
JMP

50466%:

002276

B8R

cMP

000016

WORD “JUSTIFv”
SPACE AND WORD

50456%

OUTPUT Q0UTBUF +1,01
OUTPUT QONJUST,
&5
INCR COUNT FROM @1 TO @17.
01,COUNT
MOV
504628:

000021

S0460%

07,
OUTPUT @JUSTFY,
OUTPUT @SPAJUS,#8.,,COUNT
OUTPUT Q0UTBUF +1,01

S504618:

012737
000402

023727
001402
000137

INC
BLE

504604
:

000704

001402

50457%:

SEQ 0111

4214
4215
4216
4217

054774
055000
055000
055006
055010
055014
055014
055056
055120
055162
055162
055164
055164
055226
055270
055270
055278
055300
055300
055304
055304
055312
055314
055320
055320
055320
055326
055330
055334
055376
055376
055376
055376
055404
055406
055412
055454
055454
055454
055516
055560
055622

PAGE 6-95

YRR

N
S o

(8)
(
(
(
(
(

TEST
DNHflg X24.07-563
10-APR-84
09:07
JUSTIFY TEST
10-APR -84 08:5

CZLNADO LNO1
CZLNRD.P11

COUNT, 017,

S0472%
50473

WORD “JUSTIFY"
SPACE AND WORD
CRLF

“JUSTIF

UNDERL INE OFF
TURN JUSTIFY OFF
SKIP A LINE

CZUNADO LNO1
CZLNAD.P11
(6)

4235

(6)
(8)
(9)

4236
4237
(4)
4238

(6)
(8)

4239

4240
(a)
3241
4242
4243
4244
4245
4246

(a)
(a)

4247
4248
4249
4250
4251
4252
4253
4254
4255
4256
4257

4258
4259
(a)
4260

(8)

4261

(4)

(6)
(8)
(9)

4262
4263
4264

(3)
(3)

4265
4266
4267
(4)
4268

(4)

4269

TEST

056022
056022
056022
056030
056032
056036
056100
056100
056100
056100
056106
056110
056114
056156
056156
056156
056220
056262
056324
056366

056430
056430
056434
056434

10-APR -84

mg X24.07-563N§?i:_“"fliggt 09:07
S0472%:

023727
001402
000137

002276

000016

S0472%:
023727
001402
000137

002276

IF COUNT EQ 014,

COUNT 214,

JMP

S0474%

ENDIF

BEC
JMP

056156

50475¢:

04
OUTPUT OQUNON,

IF COUNT EQ #17.

cHP

000021

ENDIF

000137

056002

.+6
S04/5¢

, 03
OUTPUT QUNOF

OUTPUT #OUTBUF 1,21

JMP

012704

063526

OUTPUT SEXPL1,058.
OUTPUT SEXPL2.098.
04
OUTPUT #SKIPS.
OUTPUT SONJUST,
05
LET RS := #TEXTBL
LET R4

MOV

STEXTBL
RS

(R3)

057140

BNE
N,

004737

005306

JSR PC, QUIET

.+6
504778

OUTPUT (RS)+,(R4).

ENDDO

063506

012704

063526

EXPLAINS THE SECTION
2ND PART OF EXPLANATIO
3RD PART
TURN ON JUSTIFY

LET RS ;= oTEXTBL
LEY R4

MOV

QUTPUT THE ENTRY

504764

S0477%:
04
OUTPUT oSKIP3,
OUTPUT Q0FF JUS, 85

012703

TOGGLE PAPER OFFSET
FORTMM FEED

:= OTEXTBP
STEXTBP,
R4
MOV
WHILE (R3) NE #0 DO
S0476%:

005713
001002
0001§7

000752

UNDERLINE OFF

SECTION 2

OUTPUT @EXPL, #1383,

063506

*JUSTIF

CRLF

OUTPUT SDECFIN,
05
OUTPUT SOUTBUF
+2, 01

012703

WORD “JUSTIF
Y~
SPACE AND WORD

50470

3
056476
056540
056602
056644
056706
056750
057012
057054
057054
057060
057060
057064
057064
057064
057066
057070
057074
057132
057136
057136
057140
057140
057202
057244
057244
057250
057250
057254

THEN

OUTPUT @ONJUST,
05

50473%:
, 24
OUTPUT SUNOF

s UNDERLINE ONM

COUNT,017.

87,
OUTPUT QJUUSTFY,
OUTPUT @#SPAJUS,#8., ,COUNT
85
OQUTPUT @OFFJUS,

ENDINC

SEG 0112

THEN

CcMP

BEQ

056100

PAGE 6-96

OTEXTBL ,R3

:= OTEXTBP
R4
OTEXTBP
MOV
WHILE (R3) NE 00 DO

SKIP 3 LINES
TURN OFF

JUSTIF
v

CZUNADO LNO1

CZUNAD.P11
(4)
(6)

TEST

057254
057254

(8)
(9)

057256
057260

4271

(3)

4270

4272

(3)
:g;’i

DMAC X24.07-563

10-APR-84 08:5

10-APR-84

JUSTIFY TEST
50500¢:

005712

09:07

isT

057330

057322

004737

005306

JSR PC, QUIET

057326

000752

057264

057326

057330
057330

OUTPUT

ENDDO

. *6
505014

(R3)+,(R4).

50500

50501%:
OUTPUT #SKIPS,
04

SKIP 3 LINES

END OF

OUTPUT

4277
4278
4279
4280

057476
057540
057602
057606

OUTPUT OREINIT,
&2
OUTPUT @SELDEC,
&5
JSR PC, QUIET
EXIT TST

(3)

1
4282

4283

4284

057434

057606
057610

052123

057651

4292
4293

057661
057663

4295
4297

052512
04504C
117
117

047117
047516

040

020116

043111

JUSTFY:

.ASCII

OFFSPA:
ONSPA:

ON:
NOSPA:

040

057767

033

030533

066460

JUSTIF:

060126

053440

044510

051511

042040

057737

060015

112
124

112

4304
4305

061103
061153

060444

060665
061001

111
124

117
124

4306
4307

061265
061360

040
044527

4309
4310

061614
061724

044124
047101

4317

043106

JUSSPA:
SPAJUS:

NO:
CHARA4:

060555

431:
4312
4313
4314
4315
4316

043111
044524

044524

4301

4308

052123
051525

.ASCII

117
051525

066
043040

4302
4303

SPAOFF:

116
112

060225
060334

4300

.WMORD

052512

057654
057656

4298
4299

TRAP

057636

4290
4291

4296

104432

003774

043106

057645

4294

005306

047440

4288

4289

004737

057612

057616
057626

4287

@ENJUS,011.

OUTPUT S0UTBUF 2,01

.NLIST BEX

4285
4286

061452

062031
062141
062251
062363
062476
062601

062700

SEQ 0113

(R3)

BNE
JMP

057372

‘gg)

PAGE 6-97

001002
000137

4275

4276

047516

040
111
103
117
052512
040

044527

051525
044510

044524

020123

042514

022460
047117

047240
027124

051525

044524

020123
044510

043106
042510

042524
044124

042524

020105
020104

047516
052116
040510
020106
052123
044504

052104

CHAR24:
EXP:

EXP1:

047117

EXP2:

044124
042122

EXP3:

044440
043040

052130
045040

052040

047114
044522

020124
051105
040522
044124
043111
052123

020110

EXP4:
EXPL:

EXPL1:
EXPL2:

TEXT:

TEXT1:

TEXT2:
TEXT3:

TEXT4:

.ASCII
.ASCII
.ASCII

.ASCII

LASCII
.ASCII

s DO A RESET PRINTER TO
s DECIPOINTS
;s GUARANTEE THE FORM FEE

CSEXIT

L10030-.
LOCAL VARIABLES,
~/ OFF/

TABLES, MESSAGES

/JSTIFY/

/OFF /
/0N

: 4 CHARS

70N/
/NO /

.ASCII

<35>/[10mJUSTIFY TEST 17/¢155¢<12>

/JUSTIFY

4 CHARS

: 8 CHARS

/NO/
/JUSTIFY IS TURNED OFF

LASCII

/JUSTIFY /
/7 JSTIFY/

ASCII
.ASCII
.ASCII

TEST MESSAGE

; FORM FEED

JUSTIFY IS TURNED OFF/

IS NOM TURNED ON/

/THIS PAGE WILL DEMONSTRATE AT WHAT POINT JUSTIFY OCCURS.

3 CHARS

; 44 CHARS
:

24 CHARS

17 CHARS

IT SHOULD OCC

LASCII

7/ WMILE THE SPACE BETWEEN WORDS IS LESS THAN 200% AND MORE THAN/<12>

.ASCII

/IS DOME WITMOUT JUSTIFY ON.

.ASCII
ASCII
LASCII

ASCII
ASCII

/60 OF
7 FONT.

/JUSTIFY

THE NORMAL SIZE OF THE SPACE mm IN THE CURRENTLY SELECTED
THE Lm M? ARE UNDERLINED
ARE JUSTIFIED.
THE FIRST SECTION
TURNED ON.

THE SECOND AND THIRD SECTIONS ARE DONE WIT

THE DIFFERENCE BETWEEN THE SECOND AND THIRD SECTION

/IS THAT TME SECOND SECTION LEAVES JUSTIFY ON FOR THE ENTIRE SECTION AND
/THIRD T
IT ON AND OFF FOR EACH LINE MITH JUSTIFY BEING TURNED/<12>

.ASCII
LASCII

/OFF
IATELY PRIOR TO THE LINE FEED./<12>
/THE FOLLOWING TWO PARAGRAPHS WILL DEMONSTRATE THE DIFFERENCE WHEN PRINT

.ASCII

/NOTE THE EVEN RIGHMT MARGIN IN PARAGRAPH 1.

LASCII
.ASCII

7 TEXT WITH JUSTIFY ON AND JUSTIFY OFF./<12>/PARAGRAPH 1 IS DONE /
/MWITH JUSTIFY ON AND PARAGRAPH 2 IS DONE WITH JUSTIFY OFF./<12>

NOTE THE UNEVEN MARGIN AND

ASCII
LASCII

/THE LND1 PRINTER JUSTIFIES TEXT LINES WITHIN THE CURRENTLY DEFINED LEFT
/AND RIGHT MARGINS BY VARYING THE SPACING BETWEEN WORCS./<12>/THE LNO1 D

,ASCII

/WIDTH OF THE SPACE CHARACTER NOR LESS THAN 60« OF THE SPACE CHARACTER

.ASCII
LASCII
.ASCII
.ASCII
,ASCII
.ASCII

7 NOT DETERMINE THE END OF LINE NOR DOES IT MAKE HYPHENATION DECISIONS.
/INTERWORD SPACING WITHIN A LINE OF TEXT IS ADJUSTED SUCH/<12>/THAT THE
/CHARACTER OF THE FIRST WORD STARTS ON THE LEFT MARGIN, THE LAST CHARACT
/OF TME LAST WORD ENDS ON THE RIGHT MARGIN.
THE SPACE/<12>/BETWEEN WORD
/JUSTIFIED TEXT LINE IS EVENLY DISTRIBUTED.
THE MINIMUM AND MAXIMUM/
/7 DISTANCE BETWEEN WORDS WILL NOT BE GREAT-/<12>/ER THAN 200 OF THE -/

CZLNADO LNO1
CZLNAD.P11
4318

4319

4320
4321
4322

4323
4324
4325
4326
4327
4328
4329

4330
4331
4332
4333
4334
4335

(3)
(3)

4336
4337
4338
4339
4340
4341
4342
4343
4344
4345
4346
4349
4350
4351
4352

4353

4354
4355
4356
4357
4358
4359
4360
4361
4362
4363
4364
4365
4366

4367
4368
4369

4370
4371
4372
4373

TEST

063006
063110
063170
063257
063362
063472
063506
063526
063544
063551
063556
063562
063566
063575
063604
063604
063604
063606

10-APR -84
047111
043117
044515
112
042502
047105
063506
061614
000215
033
033
033
033
033
033

104401

SEQ 0114

Ohog X24.07-563 10:pCR:BY, 09:07 PAGE 6-98
052040
052040
044516
051525
053524
020104

042510
054105
052515
044524
042505
043117

062031

062251
000225
062
060

000220

133
133
133
133
133
133

064
060

062
065

TEXTS:
TEXT6:

LASCII

/IN THE FONT FROM WHICH THE WORD CHARAC-/<12>/TERS ARE DERIVED.

LASCII

/MINIMUM SPACE SIZE RESTRICTIONS CANNOT BE HONORED./<12>/THE /

.ASCIL

/0OF TEXT WILL NOT BE JUSTIFIED IF THE MAXIMUM OR /

.ASCII

/JUSTIFICATION OPERATION WILL BE PERFORMED ON ALL TEXT WHICH OCCURS /

E'E‘#ls!z

.ASCII
.ASCII

TEXTBL:

.WORD

TEXT,VEXT1,TEXT2,TEXT3,TEXT4, TEXTS, TEXT6,0

OFFJUS:

.BYTE

33,133,60,40,106

ABS7:

.BYTE

33,133,65,62,67,67,140

TEXTBP:

UNON:
UNOF :
ABS3:

141.,144,,149,,130.,136.,103.,139,

.BYTE
.BYTE
.BYTE

TRAP

ENDMOD

.SBTTL

/BETWEEN A START OF JUSTIFICATION AND AN END OF JUSTIFICATION SE-/<12>/Q
/END OF TEST/

.WORD

.EVEN
.LIST BEX
ENDTST
L10030:

A LINE

33,133,64,155
33,133,60,155
33,133,62,66,63,65,140

: lN)ERLI'i ou
;
OFF
; ABSG.UTE T0 3 66 INCH
5

7.55

CSETST

PORTRAIT TEST

:MODULE PORT.P11
063606
e

FUNCTIONAL DESCRIPTION
THE PORTRAIT TEST IS DESIGNED TO “VERIFY” THE EXTENDED FUNCTIONALITY
OF

IT!'E LNO1 IN PORTRAIT
ORIENTATION USING THE RESIDENT PORTRAIT FONT.
DUE TO THE FACT THAT THE LNO1 DEFAULT FONT IS LANDSCAPE, THE MAJORITY
sG’ TESTING OF BOTH BASIC AND EXTENDED FUNCTIONALITY IS DONE IN DEFAULT LANDSCAPE
;ORIENTATION.
THE PURPOSE OF THE “PORTRALIT TEST" IS TO "VERIFY” THE FUNCTIONALITY

IW EXTENDED FUNCTIONS IN mmn ORIENTATION.

THIS TEST WILL USE ONLY ONE SHEET OF PAPER, AND, WILL IDENTIFY ITS OWN

IFWTIM SECTIONS.
THIS WILL BE A “QUICK VERIFY" ONLY OF THE EXTENDED FUNCTIONS
sLISTED BELOW. COMPREMENSIVE TESTING OF THE EXTENDED FUNCTIONS IS ACCOMPLISHED IN
lfli TESTS DESIGNED SPECIFICALLY FOR EACH PARTICULAR FUCTIW.
FONT LOADING, ASSIGNING AND SELECTING WILL NOT BE TESTED IN THIS TEST.
sflGSE FUNCTIONS WILL BE TESTED IN THE “FONT TEST*.
THE FUNCTIONS VERIFIED INCLUDE:

1 MARGINS
2 TABS
3 UNDERL INE

4412
4413
4414
4415
4416
4417
4418
4419
4420,
4421
4422
4423
4424
4425
4426

4427
4428
4429

GLOBALS REFERENCED:
MESSAGES, VARIABLES, SUBROUTINES

.REPT

BEGIN PORTRAIT TEST

SECTION O

SET OUTPUT BUFFER WITH OCTAL CODES TO BE SENT DURING TEST
DO RESET
TABLE OF OUTPUTS FOR T
LET R3 EQ ADDRESS OF TABLE SECO
LET R4 EQ ADDRESS OF TABLE SECCNT
TABLE OF BYTE COUNTS F
WHILE (R3) NE 90 DO
DO FOR EACH ENTRY IN S
OUTPUT (R3)+,(R4).
OUTPUT CURRENT ENTRY
ENDDO
SECTION 1
MOVE TO VERTICAL 3 INCH MARK
SET MARGINS
PRINT SECTION ID
LET R3 EQ ADDRESS OF TABLE MARTBL
WHILE (R3) NE #0 DO

TABLE OF MARGIN SETTIN

;

SEQUENCE TO TRY AND MO

OUTPUT ENTRY

PRINT LETTER "M”

000000

SUPERSCRIPT AND SUBSCRIPT
HORIZONTAL AND VERTICAL POSITION ABSOLUTE
HORIZONTAL AND VERTICAL POSITION RELATIVE
DRAW VECTORS
SIZE UNIT SELECT

SEG 0115

ENDDO

OUTPUT SABMAR
PRINT LETTER "M”

4406
4407
4408
4409
4410
4411

4
S
6
7
9

PAGE 6-99

SECTION 2

4374
4375
4376
4377
4378
4379
4380
4381
4382
4383
4384
4385
4386
4387
4388
4389
4390
4391
4392
4393
4394
4395
4396
4397
4398
4399
4400
4401
4402
4403
4404
4405

TEST
DNMAC X24.07-563
10-APR-84
09:07
PORTRAIT TEST
10-APR-84 08:55

CZLNADO LNO1
CZLNAD.P11

LET R3 EQ ADDRESS OF TABLE TABUND

LET R4 EQ ADDRESS OF TABLE TABUCT

WHILE (R3) NE €0 DO
OUTPUT (R3)+,(R4)¢
ENDDO

; TBL OF SEQS TO SET TAB
: BYTE COUNTS

: OUTPUT NEXT ENTRY OF T

SECTION 3

MOVE VERTICALLY TO 5 INCH MARK
PRINT SECTION ID

PRINT LETTER “S”
INCR FROM 1 TO 2 BY 1
OUTPUT 6S1
OUTPUT #S2
OUTPUT #S2
OUTPUT #S1
ENDINC

DO THIS CHUNK OF CODE TWICE
HT,SUBSCRIPT AND “S*
HT.SW%RSCRIPY AND

HT,SUBSCRIPT AND

"S”

'S’

M9
CZLNADO LNO1 TEST
EST PR.8a DNMAC X24.07-563, 10-APR-84 09:07 PAGE 6-100
CZLNAD.P11
4430
4431
4432
4433
4434
a4a3s
4436
4437
4438
4439
4440

SEQ 0116

DO A LINE FEED

SECTION 4

:
.
:

:
2

aaa1
4442

4443
4444

4445
4446
4447
4448
4449
4450
4451
4452
4453
4454
4455
4456
4457
4458
4459
4460
44s)
4462
4463
4464
4465

MOVE VERTICALLY TO 6 INCH MARK
PRINT SECTION ID
LET R3 EQ ADDRESS OF TABLE #ABTBL
IL’UE!}N'Y“"EQ ADDRESS OF TABLE ¢ABTBCT
SELECT PIXELS AS NEW SIZE UNIT
WHILE (R3) NE 40 DO
OUTPUT (R3),(R4)
PRINT “H"
ENDDO
SELECT DECIPOINTS AS SIZE UNIT
DO LINE FEED

TABLE OF ABSOLUTE AND RELATIVE
BYTE COUNTS FOR ABTBL TABLE
FIRST H AT LEFT MARGIN

DO FOR EACH ENTRY IN MOVE TABL
NEXT MOVE

SECTION 5
t

2
2

LET R3 EQ ADDRESS OF TABLE ¢IDVEC

LET R4 EQ ADDRESS OF TABLE ¢IDVCNT
WHILE (R3) NE 0 DO
OUTPUT (R3)+,(R4).
ENDDO
LET R3 EQ ADDRESS OF TABLE #LNO1TB
OUTPUT (R3).
ENDDO
DO FORM FEED
DO RESET

TABLE FOR SECTION ID,POSITIONI
BYTE COUNTS FOR TABLE IDVEC

DO FOR EACH ENTRY OF TABLE
NEXT ENTRY

TABLE TO POSITION FOR AND PRIN
NEXT ENTRY

END PORTRAIT TEST
.ENDR

4466

4467
4468
4469
4470
4471
4472

(3)

4473
4474
4475
4476
4477

(a)
4478
(4)

4479
a)
4480
(4)

063606
063606

T18::

BGNTST

18.

SECTION O

;
063606
063606
063614
063614
063622

063622
063630
063630

112737

000011

003114

112737

000012

003115

112737

000013

003116

112737

000014

003117

LET OUTBUF :B8= #11

HOR TAB

LET OUTBUF+1

LINE FEED

MOV

MOVB

011,0UTBUF

:B= @12

912,0UTBUF
¢1

LET OUTBUF+2 :B= #13

VER TAB

LET OUTBUF+3 :B= #14

FORM FEED

MOVB

#13,0UTBUF
+2

MOve

#14 ,0UTBUF
+3

(4)

4484

(4)

4485
(4)
4486

(4)

4487
4488
4489

(4)

4490

(4)

4491

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

4492
4493

(3)
(3)

4494
4495
4496
4497
4498
4499
4500
4501

(4)

4502
a)

(6)

(8)

(9)

4503
4504
4505
4506
4507

(3)
(3)

4508
4509
4510
4511
4512
4513
4514

064066
064130
064172
064234
064276
064340
064340
064344
064344
064344
064346
064350
064354
064414
064456
064520
064562
064562
064564
064564
064626

003120

112737

000115

003121

112737

000123

003122

112737

000110

003123

112737

000114

003124

112737

000152

003125

012703

066554

012704

066566

005713
001002
000137

064066

LET QUTBUF
+4

:B=

LET QUTBUF
+5

:B= @115

LET QUTBUF
+6

:B= 0123

ngw

LET OUTBUF+7

:B= #110

MOVB

MOVB
MOVB

MOVB

005713
001002
000137

2123 ,0UTBUF +6

F
€110,0UTBU«7

LET OUTBUF+11

:B= 152

ASTERISK

MOVB

€114 ,0UTBUF +10
9152,0UTBUF +11

OUTPUT @REINIT,#2

OUTPUT @SELDEC,#5
LET R3 := #SECO

DECIPOINTS AS SIZE UNITS
NAME OF TABLE OF OUTPUTS FOR T

1= OSECCNT

TABLE OF BYTE COUNTS FOR OUTPU

LET R4

MOV

#SECO,R3

MOV

R4
OSECCNT

BNE
JMP

. +6
50503

S0502¢

WHILE (R3) NE #0 DO
50502%:
TST
(R3)

OUTPUT
OUTPUT
OUTPUT
OUTPUT
OUTPUT
LET R3

07
&VER2,
ONORMAR,&12.
OPORT,&817.
87
OVERS3,
#SEC1,011.
:= OMARTBL

MOV

012703

OMARTBL ,R3

ENDDO

TST

(R3)

JMP

S0505¢

BNE

QUTPUT
OUTPUT
OUTPUT
OUTPUT

B8R

LET R3

MOVE VERTICALLY TO 2 INCH MARK

NORMAL 1YARGINS FOR THIS TEST

TEST ID
MOVE VERTICALLY TO 3 INCH MARK
PRINT SECTION ID AND 2 LINE FE
TABLE OF MASGTY SE115G SEQUEN

DO FOR EACH ENTRY IN MARTRL

. +6

(R3)+,012.
@0UTBUF
+S, @01
,
#ABMAR@7
#0UTBUF +11,01

OUTPUT NEXT ENTRY

PRINT LETTER "M”

SEQUENCE TO TRY AND MOVE TO "N
PRINT ASTERISK

¢
50504

50505$:
OUTPUT #0UTBUF +1,41
OUTPUT 4NORMAR,#12.

067246

SEND THE ENTRY

SECTION 1

WHILE (R3) NE #0 DO

064564

DO FOR EACH ENTRY IN TABLE

OUTPUT (R3)+,(R4)»

H
264670
064670

"M”

UPPER CASE "L"”

505044 :

000670

UPPER CASE

:B= #114

S50503%:

067036

CARRIAGE RETURN

@115,0UTBUF +5

MOVB

012703

215

«+4
@15,0UTBUF

LET OUTBUF+10

ENDDO

000754

4483

000015

(4)

112737

4482

063636
063636
063644
063644
063652
063652
063660
063660
063666
063666
063674
063674
063702
063744
064006
064006
064012
064012
064016
064016
064016
064020
064022
064026
064064
064064
064066

SEQ 0117

(a)

PAGE 6-101

4481

TEST
omAg X24.07-56 3
°0-APR-84
09:07
PC:.iRAIT TEST
10-APR-84 08:5

CZLNADO LNO1
CZLNAD.P11

LINE FEED

NORMAL MARGIN SETTING SEQUENCE

SECTION 2
:= 4TABUND

MOV

#TABUND,R3

TABLE OF SEQUENCES TO SET TABS

CZUNADRO | NOY
CZLNAD.P11

EST
DNMAC X24.07-563
10-APR-84
09:07
10-APR-84 08:55
PORTRAIT TEST

4515

064674

4516

064700

(4)

(4)
(6)
(8)
79)

4517
4518

(3)

(3)
4519
Aggo

4521
4522

064674

064700
064700
(64702
064704
064710
064746

064746

064750

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

065126
065126
065132
065132
065140
065142
065146

:ggé

ENDDO

000754

OTABUCT

MOV

(R3) NE

064750

S05074:

@TABUCT
R4

065124

065146
065210
065252
065314
065356
065356
065360

012737

000402

000001

005237

002276

023727
003402
000137

002276
065360

002276

1ST
BNE
JMP

OUTPUT

(R3)
. *6
S0507¢

(R3)+,(R4).

B8R

000002

S0511¢%:;

S50512%:

ENDINC

000663

B8R

50511

INC

COUNT

cHP
BLE
JMP

COUNT
, @2
S50512%
S50513¢

065422
065464
065526
065526
065532
065532
065536

4542

065642

012703

067512

012704

067534

065642
065642
065644
065646
065652
065710

(%)

065752

WHILE (R3) NE 20 DO

000733

065754
ENDDO

TABUN

OUTPUT

ABSOLUTE

;s
s
;3
;s

HT,SUBSCRIPT AND “S~
HT ,SUPERSCRIPT AND "S” (BACx v
HT ,SUPERSCRIPT AND "S~
HMT,SUBSCRIPT AND S~ (BACK DOW

ENTRY

INCH VERTICAL

3 3RD SECTION ID AND 2 LINE FEED
3 PRINT LETTER "5~
s DO THIS CHUNK OF CODE TWICE

SECTION 4

OUTPUT OVERG,013.
OUTPUT #SECAH, 023.
LET R3 := @ABTBL
MOV
OABTBL ,R3
LET R4 := OABTBCT
MOV
QABTBCT
R4
OUTPUT SOUTBUF +7,01

S0514%:

BYTE COUNTS FOR

; LINE FEED

OUTPUT PSSV,
85

005713
001002
000137

505108

OUTPUT #0UTBUF »1,01

065600

(4)
(6)
(8)
(9)
4543
4544

OUTPUT @S1,04
OUTPUT #S2,04
OUTPUT 052,04
OUTPUT #S1,04

4536
4537
4538
(4)
4539
(4)
4540

TABLE

SECTION 3

50513%:

065360

S05064

OUTPUT @SEC3,@29.
OUTPUT QOUTBUF +6,01
INCR COUNT FROM @1 TO @2 BY
MOV
@1 ,COUNT
50510%:

SEQ 0118

¢0 DO

OUTPUT @VERS,07

:g;;

4545

505064
:

4533

4541

WHILE

064750

065012
065054
065116
065116

4526
4527
4528
4529
4530
(4)
(4)

005713
001002
000137

LET

067274

PAGE 6-102

4523
4524
4525
(S)

(7)

012704

510

7ST
(R3)
BNF
.*6
JMP
S0515s
OUTPUT (R3)¢,(R4).
OUTPUT QOUTBUF
« 7,01
BR

5051438

3
:
:

VERTICAL TO 6 INCHES USING ABS
SECTION 4 ID AND 2 LINE FEEDS
TBL OF ABSOLUTE AND RELATIVE TM

BYTE COUNTS FOR ABTBL

PRINT FIRSTY H AT LEFT MARGIN

TABLE

SELECTS SIZE UNIT A4S PIXELS RA

i MAKE NEXT MOVE
i PRINT "M~

CZL
ZLNA

& 3

4546
2547
4548
4549
4550
4551
4552
(4)

4553

(4)

4554

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

4555
4556

(3)
(3)

4557

(4)

4558

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

4559
4560

(3)

4561
4562
4563
4564
4565
(3)

(3)

4566
4567
4568
4569
4570
4571
4572
4573
4574
4575
4576
a577
4578
4579
4580
4581
4582
4583

LNO1
P11

C10

PAGE 6-103
k2T PR 84 DNVAE X24.07-563, 20-AP8-94.,09:07

S05158:

065754
065754

OUTPUT @DSSU, &5

OUTPUT

066016

066070
066070
066070
066072
066074
066100
066136
066136
066140
066140
066140
066144
066144
066144
066146
066150
066154
066214
066214
066216
066216
066260
066322
066364
066370
066370
066372

012703

067666

012704

067712

005713
001002
000137

066140

005713
001002
000137

LET R3

:= OIDVEC

LET R4

:= 9IDVCNT

ENDDO

MOV

@IDVEC,R3

MOV

T
@IDVCNR4

S05174

505164

MOV

OLNO1TB,R3

OUTPUT (R3)+,(R4).

070212

WHILE (R3) NE
505208
:
TST

BNE

066216

ENDDO

066430
066456

052015
052523

066415

066513

115

066542

110

042526

051117
052103

066554
066566

066576
000033

004036

066611

164

141

066576

033

066627

033

066652
066657

033
033

066636

033

120

133
133
133
133

TABLE OF BYTE COUNTS FOR IDVEC

OUTPUT NEXT ENTRY

;

TABLE TO POSITION FOR AND PRIN

. *6

50521

S0520¢

OUTPUT (R3).,08,

040522
044507
020123
051522
055111
051117

PORT:
SEC1:
SEC2:
SEC3:
SECA:
SECS:

ASCII
.ASCII
ASCII
.ASCII
LASCII
LASCII

066707
©00126
061
156
061
062
060
062

SECO:

. WORD

VERZ2:

.BYTE

ONJU:

.BYTE

.EVEN

SECCNT:
PORSEQ:
IDMAR:

OFFJU:

.WORD
.BYTE
.BYTE
.BYTE

.BYTE

IN TABLE

(R3)

: DO NEXT ENTRY IN TABLE

505214
:
OUTPUT SOUTBLF +3,01
OUTPUT OREINIT, 82
OUTPUT @SELDEC, o5
JSR PC,.QUIEY
EXIT TST
TRAP
CSEXIT
.WORD

005306

052122
051101
041101

TABLE FOR SECTION ID, POSITION

00 DO

JMP

MNLIST BEX
047520

. *6

JMP

S0517%:
LET R3 := oLNOLTB

104432
001660

066374

TO DECIPOINT

SECTION S

BNE

000753

004737

LINE FEED

WHILE (R3) NE @0 DO
505164
:
ST
(R3)

000754
012703

RETURNS SIZE UNIT

Q0UTBUF +1,01

H
066060
066060
066064
066064

SEQ 0119

LOCAL VARIABLES,

s FORM FEED
s RESET THE DEFAULTS IN THE PRIN
: DECIPOINTS AS SIZE UNITS

s+ GUARANTEE THE FORM FEED

TABLES, MESSAGES

/PORTRAIT TEST 18/¢<12>
/MARGINS :/¢<12><12>

«15>/TABS AND UNDERLINE :/¢<12>

/SUPERSCRIPT AND SUBSCRIPT :/¢<12><12>
/HORIZONTAL POSITION :/<12><12>
/VECTORS :/¢<12>

: TEST ID AND LINE FEED

s SECTION ID AND 2 LF
;3 SECTION ID AND LINE FE
3 SECTION ID AND 2 LINE FEEDS
s+ SECTION ID AND 2 LINE FEEDS
;s SECYION ID AND LINE FE

PORSEQ, SELPIX,FRAME ,SELDEC,0
3+ TABLE FOR SECTION ©
27‘ Os.“' .s
3 BYTE COUNTS FOR SECO TABLE
33,120,61,73,61,61,175,104,105,124,151
3 SEQS TO ASSIGN AND SELECT PORT
164,141,156,61,60,55,122,33,134,33,133,61,61,155
VERTICAL POSITION ABSO
53,133,61,64,64,60,144
38,133,62,64,63,60,73,63,67,70,60,163
53,133,60,40,106
33,133,62,40,106

LR MARGINS AT 3 1-4 AN
TURN ON JUSTIFY
TURN OFF

JUSTIFY

CZUNADO LNO1
CZLNAD.P11

TEST
M2AC X24.07-563
10-APR-84
09:07
PORTRAIT
TEST
08:55
10-APR-5«

4584
4585
4586
4587
4588
4589
4590
4591

066664
066673
066707
066730
066751
066772
067007
067031

4594
4595
4596
4597
4598
4599
4600
4601
4602
4603
4604
4605
4606
4607
4608
4609

067036
067062
067076
067112

4592
4593

4610
4611

4612
4613
4614
4615
4616
4617
4618
4619
4620
4621
4622
4623
4624
4625
4626
4627
4628
4629
4630
4631
4632
4633
4634
4635
4636
4637
4638
4639

057126
067142

067156
067172
067206
067222
067236

067246
067264
067274
067320
067333
067337
067360
067377
067411
067415
067437
067443
067452
067456
067462
067477
067504

067512
067534
067554
067562
067571
067600
067607
067624
067641
067656
067666
067712
067734
067743
067752

033
033
033
062
062
063
033
062

067036
067062
033
033
033
033
033
033
033
033
033
033
067246
067320
067415
000013
033
033
033
063
064
033
125
033
033
011
011
033
033
033
067512
067554
000006

033
033
033
033
033
033
033
033
067666
067734
000007
033
033
033

. 133
133
133
060
067
060
133
060

062
061
061
041
060
060
060
041

067076
133
133
133
133
133
133
133
133
133
133

067112
061
062
062
062
063

003116
003:15
000001
133
133
133
062
063
133
011
133
133
033
033
133
133
133

066430
067437
000026

067562
000007
133
133
133
133
133
133
133
133

067571

066542
000012
133
133
133

003115

063
063

064
064
065

063

VERS:
NORMAR:

.BYTE
.BYTE
.BYTE
.BYTE

62,60,41,174

3+ SEQUENCES TO DRAW FRAM
s ON ALL FOUR SIDES.

MARTBL:

.WORD

AMAR ,BMAR ,CMAR, DMAR ,EMAR ,FMAR ,GMAR ,HMAR , IMAR,0

;

EMAR:

.BYTE

33,133,62,70,70,60,73,63,62,64,60,163
33,133,63,62,64,60,73,63,66,60,60,163

:
;

4
4

.BYTE

33,133,63,71,66,60,73,64,63,62,60,163

S 172

IMAR:
ABMAR:
.EVEN
TABUND:

.BYTE
.BYTE

33,133,65,64,60,60,140

3 SEQ TRYING TO MOVE TO

TABUCT:

.WORD

TSET:

.BYTE

FRAME:

.EVEN

AMAR ;
BMAR:
CMAR:
DMAR:

FMAR:

GMAR :

HMAR :

STVER4:
CLEART:

.BYTE
.BYTE
.BYTE
.BYTE

.BYTE

.WORD

.WORD
.BYTE
.BYTE

.BYTE
.BYTE

.BYTE

.BYTE
.BYTE

Si:
:

.BYTE
.BYTE

VERS:

.BYTE
.BYTE

STVERA4 ,OUTBUF «2,SEC2,0UTBUF
+1 ,CLEART, TSET , ONUN

UNDERL ,OUTBUF +1 ,0FFUN, O

TABLE OF LR MARGIN SET

172

TABLE OF SEG TO SET TA

11.,1,22..1,4,42.,.4,18.,1,4
BYTE COUNTS FOR TABUND
33,133,64,147,33,133,62,70,70,60,166
CLEAR ALL VER TABS AND
33,133,63,147
CLEAR ALL HOR TABS
33,133,62,61,66,60,73,62,65,.62,60,73,62,70,70,60,73
63,62,64,60,73,63,66,60,60,73,63,71,66,60,73
64,63,62,60,73,64,66,70,60,165
;s SET HTABS AT 3,3 1/2.4
33,133,64,155
;s TURNS UNDERLINING ON
125,11,116,11,104,11,105,11,.122,11,114,11,111,11,116,11,105,12
; PRINT

33,133,60,155

: TURNS UNDERLINING OFF

11,33,113,123
11,35,114,123

; HT,
e

: SELECT SIZE UNIT AS PI
;s SELECT SIZE UNIT AS DE

33,133,63.66,60,60,144,33,133,67,62,.60,145

SUBSCRIPT AND
SUPERSCRIPT -

s VER 6 INCH MARK USING

PSSU:

.BYTE

.EVEN
ABTBL:
ABTBCT:

.BYTE

33,133,67.40,111
33,133,62,40,111

.WORD
.WORD

MORA , HORB , HORC , HORD , HORE , HORF , HORG , HORH, 0
6,7,7,7,18.,13.,18.,7

s TABLE TO MOVE HOR ABSO
: BYTE COUNTS FOR ABTBL

.BYTE

33,133,61,63,65,60,140,33,133,63,60,60,141
33,133,61,65,60,60,140,33,133,63,60,60,141
35,133,61,71,65,60,140

33,133,61,62,60,60,140,33,133,63,60,60,141

; ABSOLUTE 7O 4 THEN REL

DSSU:

062

.BYTE

UNDERL:
OFFUN:

VERS:

065

SEQ 0120

35,133,62,61,66,60,144
s ABSOLUTE VER POS 3 INC
35,133,61,70,60,60,73,65,64,60,60,163
;s NORMAL MARGINS FOR THI
33,13%,61,73,63,60,60,73,63,60,60,73,62,67,60,60,73
62,60,41,174,35,133,61,73,62,62,65,60,73,63,60,60,73
62,67,60,60,73,62,60,41,174,33,133,60,73,63,60,60,73
63,60,60,7%,61,71,65,60,73,62,60,41,174
33,13%,60,7%,63,60,60,73,63,60,60,60,73,61,71,67,60,73

ONUN :

071
061
061
061
061
061
061
061

.BYTE
.BYTE

D10

PAGE 6-104

HORA ;
HORSB :
HORC :
HORD :
HORE :
HORF :
HORG :
HORM:

.EVEN
IDVEC:
IDVCNT:
VER7:
VER8.5:

HOR3;

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

.BYTE

.WORD
,WORD
.BYTE
.BYTE

.BYTE

33,133,71,60,60,140

3 ABSOLUTE 3 INCHES IN P

H
4 172
3
S
3 ABSOLUTE T0 & 172

VER7,SECS,0UTBUF
¢+1,VERS8.5,HORS , SELPIX,VECO1,SELDEC,OUTBUF 10,0

7,10.,1,7,7,5,158,,5,1
33,133,65,60,64,60,144
335,133,66,61,62.60,144

;

TBL ¥C

3 BYTE COUNTS FOR IDVEC
: VERTICAL TO 7 INCHES
3 VERTICAL TO 8.5 INCHES

ZLNADO LNOL1
CZLNAD.P11
4640
<641
4642

4643
4644
4645

4646
4647
4648

4649
4650
4651
4652
4653
4654
4655
4656
4657
4658
4659
4660
4661

(3)
(3)

4662

4663
4664

TEST
DNHFC X4 . 07-56303 0-APR -84
?EST 09:07
10
10-APR-84 08:5
TRAIT

067761
067776
070007
070024
070035
070052
070062
070100
070110
070126
070136
070154
070164
070202

033
061
033
061
033
063
033
063
033
063
033
063
033
063

133
062
133
062
133
060
133
060
133
060
133
060
133
060

060
062
060
062
061
060
061
060
061
060
061
060
061
060

070212
070222
070232
070242

070222
033
033
033

070232
133
133
133

070242
062
063
064

070252
070252
070252
070254

104401

VECO1:

.EVEN

LNO1TB:
HOR4:
HORS:
HOR6:

E10O

P AGE 6-105
-

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

33.133.60.73.67.65.60.75.62 63,70,60,73
61,62,62,60,73,62,60,41,174

.WORD
.BYTE
.BYTE
.BYTE

HOR4 , HORS ,HOR6
,0
33.133.62.70.66.62.140.116

.EVEN
.LIST BEX
ENDTSY
L10031:
TRAP
ENDMOD

33,133,60,73,67,65,60, 73.62 66,70,60,73

33,133,61,73,67,6 .60.73.62 64,60,60,73

63,60,60,73,62,60,41,174

33,133,61,73,61,60,65,60,73,62,64,60,60,73

63,60,60,73,62,60,41,174

33,133,61,73,61,66,65,60,73,62,64,60,60,73
63,60,60,73,62,60,41,174
33,133,61,73,61,71,65,60,73,62,64,60,60,73

33,133,64,63,60,62,140,61

SEQ 0121

SEQS FOR DRAWING RECT
TOP HORIZONTAL LINE
BOTTOM HORTIZONTAL iLINE
1ST

VERTICAL

3RD

4TH

STH
TABLE

TO POSITION AND

MOVE TO JUST LESS THAN
MOVE TO JUST LESS THAN

CSETST

4665
4660

4667
4668
4669
4670
4671
4672
4675
4676
4677
4678
4679
4680
4681
4682
4683
4684
4685
4686
4687
4688
4689
4690
4691
4692
4693
4694
4695

.SBTTL FONT TEST
sMODULE FONT.P11
070254

BGNMOD
3ee

FUNCTIONAL DESCRIPTION

sTHE "FONTS TEST” IS A COMPREMENSIVE TEST OF THE FOLLOWING FUNCTIONS WHICH
sARE ASSOCIATED WITH MULTIPLE FONT USE ON THE LNO1 ELECTRONIC PRINTER:
1- FONT LOADING
2- FONT ASSIGNMENT
3- FONT SELECTION

OTHER

- FONT LOADING WILL BE TESTED BY DOWNLINE LOADING A PREDESIGNED SET OF
FONTS HHICH WILL THEN BE ASSIGNED, SELECTED AND SUBSEQUENTLY PRINTED.
- FONT ASSIGNMENT WILL BE TESTED BY AN EXHAUSTIVE SERIES OF ASSIGNING,
THE FONTS WILL THEN BE PRINTED
IRE ASSIGNING AND SELECTING OF FONTS,

CZUNADO L.NO1

TEST

DNMAC X24.07-563

CZUNAD.P11 = 10-APR-84 08:55

F10

10-APR-84

09:07

FONT TEST

PAGE 6-106

EQ
O
Sea
o122

4696

:TO VERIFY THE ASSIGNMENTS.

4698
4699
4700

;FONTS IN SUCH A MANNER AS TO GUARANTEE THAT ANY FONT ASSIGNED TO
1A PARI’IC\LAR LOGICAL FONT NUMBER CAN BE SELECTED AND SUBSEQUENTLY PRINTED.
;
OTHER STATED SPECIFIC FUNCTIONS WILL ALSO BE CHECKED FOR DESIRED RESULT.

4697

4701
470
4703

;ORIENTATION.

4706

4713

4717

4718

4719

4720

4721
4722
4723

4724

4725

4726

000000

GLOBALS REFERENCED:
MESSAGES, VARIABLES, SUBROUTINES
REINIT

.REPT

RESET PRINTER

SELECT LOGICAL FONT #11

ASSIGN PORTRAIT RESIDENT FONT

RESET PRINTER
PRINT TEST ID
SKIP A LINE

PRINT DEFALT MESSAGE

WHILE (R3) NOT EQUAL TO O DO

:
:

SEND END OF SELECT SEQUENCE
SEND BEGINNING OF FONT ID MESSAGE

:
:

SEND (R3).
SEND REST OF FONT ID MESSAGE

:
:
:

SEND BELOW SEQUENCE
SEND ABOVE SEQUENCE
SEND COMMEN MESSAGE

SEND END OF PART 1 MESSAGE
DO FORM FEED

:;:2

PART: 2

4742

RESET PRINTER

4744

;

FONT NUMBER

TABLE

;s CORRECT FONT NUMBER FR

; ATTEMPTS TO SELECT ILL
:
: IDENTIFIES PREVIOUS 2

ASSIGNING OF RESIDENT FONTS

SELECT SIZE UNIT AS DECIPOINTS

TOGGLE PAPER OFFSET

LET RS EQUAL EVENTB

: TABLE OF EVEN PARAMETERS FOR F

:
:

SEND ASBGIN
SEND (R3).

:; BEGINNING OF ASSIGNMENT SEQUEN
: SEND THE FONT NUMBER FROM TABL

4750

4751

SHOULD ASSIGN DEFALLT

a7a7

4748
4749

SEND THE PARAMETER

:
:

4745

#10 AND #11

SEND BEGINNING OF SELECT SEQUENCE

TO LOGICAL

LET R3S EQUAL NSELTB

4737
:;gg

4743

SPECIFIC

SELECTION

:
:
:

4729
4730

4734
4735
4736

DEFAULT

4731
:;gg

SELECTIONS OF

POL

BEGIN ROUTINE FONT
:
PART: 1

4727

4728

A SERIES OF

AND VICE VERSA.

:
H
H

4714

4715
4716

TESTED BY

;:THE CURRENT PAGE WOULD BE TERMINATED
AND THAT A Mu PAGE WOULD SEGIN USING THE NEW

4705

4712

SELECTION WILL BE

OPE SUCH EXAMPLE WOULD BE IF THE LNO1 WAS PRINTING FROM THE DCFAULT
sLAM)SCAPE FONT AND WAS IN THE MIDDLE OF A PAGE WHEN A FONT SELECTION SEQUENCE
:WAS RECEIVED TO SELECT THE RESIDENT PORTRAIT FONT,
THE DESIRED RESULT IS THAT

4704

4707
4708
4709
4710
4711

FONT

LMILEL (35 NOTEOUAL 10 0 DO
SEND ASENDP

SEND ASBGIN

fo
;
H

;

END OF ASSIGNMENT SEQUENCE
BEGINNING OF

ASSIGNMENT

SEGUEN

O-APR 84

DNMAC

08:5

X24.07-563

10-A

FM? ng

09:07

PAGE

G10O

6-107

SEQ 0123

SEND (R4).
SEND ASENDL

SEND FONT NUMBER FROM TABLE
END OF ASSIGNMENT SEQUENCE

ENDDO
LET R3 EQUAL EVENTB
LET R4 EQUAL 0DDTB
SEND SEQEVE
WHILE (R3) NOT EQUAL TO O DO
SEND SELBGN
SEND (R3).
SEND SELEND
SEND PORFON
ENDDO
SEND SEL11
SEND NEW PAGE MESSAGE
SEND SEQODD
WHILE (R4) NOT EQUAL TO O DO

BEGINNING OF SELECTION SEQUENC

FONT NUMBER FROM EVEN TABLE

END OF SELECT SEQUENCE
IDENTIFIES FONT AS PORTRALT

SELECTS LOGICAL FONT #11 (NOW

SEQUENTIAL 0DD SELECTONS

SELBGN
(R4).
SELEND
LANFON

BEGINNING OF SELECT SEQUENCE

FONT NUMBER FROM ODD TABLE

END OF SELECT SEQUENCE
IDENTIFIES FONT AS LANDSCAPE

ENDDO
SEND PRTEN2
DO FORM FEED
RESET PRINTER
SELECT SIZE UNIT AS DECIPOINTS

END OF SECTION AND PAGE MESSAG

TOGGLE PAPER OFFSET

PART:

FONT LOAD SECTION

SEND #8GNLD
LET R3 EQUAL RECTBO
WHILE (R3) NOT EQUAL O DO

s
S
00
P
S0
06
6

SEND RECORD IN PARTS
SET UP RECORD TABLE

SEND (R3).

ENDDO
LET R3 EQUAL RECTBA
WHILE (R3) NOT EQUAL O DO
SEND (R3).
ENDDO
LEY R3 EQUAL RECTBB
WHILE (R3) NOT EQUAL O DO
SEND (R3).

SEND RECORD IN PARTS
SET UP NEXT REC TABLE
SEND RECORD IN PARTS
SET UP NEXT REC TABLE
SEND RECORD IN PARTS
END OF LOAD SEQ
CHECK TO SEE IF RESET DESTROYS

SEND ENDLD

RESET PRINTER
SELECT SIZE UNIT AS DECIPOINTS

TOGGLE PAPER OFFSET
LET R3 EQUAL DIAGTB

oo
%8
s

4805
4806
4307

TABLE OF DIAG FONT ASSIGNMENT

DO FOR EACH ENTRY

WHILE (R3) NOT EQUAL O DO

4803

4801

BEGINNING OF LOAD SEG
SET UP RECORD TABLE

SEND (R3).
ENDDO
LET R3 EQUAL RECTBL
WHILE (R3) NOT EQUAL O DO

SEND
SEND
SEND
SEND

SEQUENTIAL EVEN SELECTIONS FRO

ENDDO

ASSIGN DIAG FONT AND SELECT

SEND (R3).

INCREMENT COUNT FROM 1 TO 3 8y 1
SEND OUTBUF
,2 CHARACTERS,

12 TIMES

PRINT A LINE OF

ALTERNATING LI

CZLNADO LNC1
CZLNAD.P11

TEST
10-APR-84 08:5

X24.07-563

10-APR-84

FoNY TEST

09:07

PAGE

AGE

H10

)

SEQ 0124

6-100

DO CARRIAGE RETURN AND LINE FEED
SEND OUTBUF+1, 2 CHARACTERS, 12 TIMES
D0 CARRIAGE RETURN AND LINE FEED

4808
4809
4810
4811
4812
4813
4814
4815
4816
4817
4818

t
:

; PRINT A LINE OF ALTERNATING DA

ENDINC
DO FORM FEED
RESET PRINTER

SELECT SIZE UNIT AS DECIPOINTS

END ROUTINE FONT
.ENDR

4819

4820
4821

4822
4823

4824

4825
4826
4827
4828

(3)

4829
4830
4831
4832
4833
4834
4835
4836

070254
070254

T19::

4840
4841
4842
4843

4844
4845
4846
4847
4848
4849
4850

4)
4851

(4)
(6)
(8)

(9)
482
4853
4854
4855
4856
4857

19.
RESIDENT SECTION (USING RESIDENT FONTS ONLY)

:
H

sPART

PART

SELECTION DEFAWLTS

1 FIRST GUARANTEES THAT,

ON RESET OF THE MACHINE (RIS SEQUENCE),

:THE DEFAULT POWER-UP FONT IS SELECTED FOR PRINTING.

sPART 1 NEXT CHECKS TO SEE IF ATTEMPTS TO SELECT UNASSIGNED

4837

4838
4839

BGNTST

sLEGAL LOGICAL FONT NUMBERS ARE IGNORED.
sIT NEXT CHECKS TO SEE IF ATTEMPTS TO SELECT ILLEGAL LOGICAL FONT NUMBERS
070254
070316
070360
070422
070464
070526
070570
070632
070674
070736
071000
071000
071004
071004
071004
071006
071010
071014
071056
071116
071160
071222
071262

;(ABOVE OR BELOW LEGAL RANGE) ARE IGNORED.

OUTPUT
OUTPUT
OUTPUT
OUTPUT

OREINIT,
02
OSELDEC,®5
@DECFIN,#5
#FONTST,#19.

OUTPUT @ASSDIA,#20.

OUTPUT OASDIA1L, #20.

OUTPUT #SEL11,05

OUTPUT @REINIT,
02

OUTPUT #SELDEC,
&5

012703
005713
001002
000137

074070

071326

OUTPUT oFONDEMES,
#50.
LET R3 := ONSELTB

MOV

ONSELTB,R3

TST

(R3)

JMP

50523¢

WHILE (R3) NE 20 DO
505224:

BNE

OUTPUT
OUTPUT
OUTPUT
OUTPUT
OUTPUT

RESET PRINTER TO ALL DEFAULT CONDITIONS
SELECT DECIPOINTS AS SIZE UNIT
TOGGLE PAPER OFFSET
TEST ID AND TWO LF'S

ASSIGN DImSTIC F(Nt TO LNICAL FONT 210

SELECT mmxr FONT (LCB mneu 11)

SHOULD REASSIGN 210 TO DEFAULT (LANDSCAPE) AND SELECT

SELECT DECIPOINTS AS SIZE UNIT

PRINT DEFAULT MESSAGE
FONT NUMBER IN MESSAGE TABLE

1+ DO FOR EACH ENTRY SEQ TABLE

.+6

@SELBGN,
02
(R3),02
#SELEND,
01
oFONSLA, 014,
(R3).,03

OUTPUT oFONSLB,951.

BEGINNING OF SELECT SEQUENCE
OUTPUT THE PARAMETER
FINAL CHAR, FOR SELECT SEQ.

BEGINNING OF FONT ID MESSAGE
QUTPUT THE CORRECT FONT NUMBER FOR MESSAGE
REST OF FONT NUMBER ID MESSAGE

CZUNADO (NOL
CZUNAD.P11
ARS8
(%)

4859
4860

4861
486c

TEST
DNMAC x24.07 563FO&Y
O-APR
TEeT-84
10-APR -84 08:55

071324

071324
071326
071326
071370
071432

P AGE

110

6-109
10

Se
SEQ 0125

ENDDO

BR
505224
505234
:
OUTPUT 6BELOMW, 056,
OUTPUT @ABOVE, 057,
QUTPUT @COMMEN, 056.
OUTPUT @PRTEN1, 029,

000627

071474

4863

AYTEFPIS

[

10 SEL'ECT NUMBER BELOW RANGE

s MESSAGE IDENTIFYING 2 PREVIOUS LINES AS LANDSCAPE
+ END OF PART 1 MESSAGE « LF AND FF

:
1008080008088 0000000000080000000880000000008000000800880000008880880808000000000s

4864

1865
486¢
4867

PART

ASSIGNING OF

START THIS PART FRESH FROM RESET CONDITION

sLET R3 := OEVENTB

TABLE ?’ %E,N PARAMS FOR ASSIGNMENT SEQS

:LET R4 := 2000TB

43871
4872
4875

4876
A877
4878
4879

4880
4881

4889

4890
4891
4892
4893
4894
4895

3
OUTPUT (R4).,82
:
OUTPUT @ASENDL
, 820,
:ENDDO
:LET R3 := OEVENTB

3 0DD PARAM
i END OF SEQ ASSIGNINC LANDSCAPE TO ODD #

@ASBGIN,
04
(R3).,02
OASENDP,d14.
@ASBGIN,
¢4

3
:+
s+
s

”

BEGINNING OF SELECTION SEQUENCE
EVEN NUMBERED PARAMS
FINAL CHAR OF SELECT ESC SEQUENCE
IDENTIFIES THIS FONT AS PORTRAIT

END OF PAGE MESSAGE
SELECTS LOG FONT #11 (LANDSCAPE NOW)

IDENTIFY NEW PAGE
SEQUENTIAL SELECTION OF ODD NUMBERS

;WHILE (R4) NE 00 DO

OUTPUT
OUTPUT
OUTPUT
OUTPUT

SEQUENTIAL EVEN SELECTIONS FROM 16-12
NOW SELECT EVEN INDIVIDUALLY AND IDENTIFY

sOUTPUT #SEQODD, #20.
:
:
:
:
sENDDO

BEGINNING OF ASSIGNMENT SEQ
EVEN PARAM FOR SEQ
END OF SEQ ASSIGNING PORTRAIT TO EVEN &
BEGINNING OF ASSIGNMENT SEQ

TABLE OF EVEN PARAMS

;OUTPUT ONEWPG, #36.

4896

ASSIGNS BOTH EVEN AND ODD NUMBERS

OUTPUT
OUTPUT
OUTPUT
OUTPUT

;LET R4 := 00DDTB
sOUTPUT OSEQEVE,#15.
sWHILE (R3) NE €0 DO
3
OUTPUT @SELBGN,
#2
:
OUTPUT (R3).,82
3
OUTPUT OSELEND,#1
xE
OUTPUT @PORFON,#47.
:ENDDO
sOUTPUT OPGEND,#17.
s:OUTPUT #SEL11,05

4882
4883
4884
4885
4886
4887
4888

SELECT DECIPOINTS AS SIZE UNIT

sWHILE (R3) NE #0 DO

:
i
:
H

487%
4874

RESIDENT FONTS

;:OUTPUT OREINIT,®2

sOUTPUT @SELDEC, o5
sOUTPUT QDECFIN, @5

4868
4869
487¢C

4897
4898
4899
4900
4901
4902
4903
4304
4905
4906
4907
4908
(4)
4909
(4)

0 9:07

NOW SELECT THE ODD NUMBERS INDIVIDUALLY AND IDENTIFv

&SELBGN, #2
(R4).,02
@SELEND,
01
OLANFON, 047,
.

BEGINNING OF SELECT SEQUENCE
0DD NUMBERED PARAMS
FINAL CHAR OF ESC SEQUENCE
IDENTIFIES THIS FONT AS DEFAULT LANDSCAPE

END OF PART MESSAGE AND FF

sOUTPUT OPRTEN2', #29.
;OUTPUT OREINIT,
02

RESET PRINTER

sOUTPUT @SELDEC,
o5
sOUTPUT @DECFIN,
&5

SELECT DECIPOINTS AS SIZE UNIT
TOGGLE PAPER OFFSET

100000004000000000400000000000000000000000000000000000080000000000000000000000000000

;

!
071536
071536
071544
071544

112737

000040

003:14

112737

000041

003115

PART 3

LET OUTBUF :B= 040

“FONT LOAD SECTION"

MOVE
#40,0UTBUF
LET QUTBUF
+1 :B= 041
MOVE = 041,0UTBUF
+1

; CODE FOR 1ST CHAR IN DIAG ¥ ONT
i

2ND

CZLNADO LNO1

CZLNAD.P11

TEST

4910

071552

4911

071560

(4)

(4)
4912
(4)

4913

DNMAC X24.07-563

10-APR-84 08:55
112737

000040

003116

071560
071566
071566

112737

000015

003117

112737

000012

003120
003121

071574

071574
071602
071644
071644

112737

000014

012703

074154

(4)
(6)
(8)

071650
071650
071652

005713
001002

4917
4918
4919

071660
071720
071724

4920

071726

4916

(9)

(3)
(3)

(4)

4921
(4)
(6)
(8)

(9)
4922

4923

4924
(3)
(3)

4925

(4)
4926
(4)
(6)

(8)
(9)
4927

4928
4929

071650

071654

004737
r

005306

071726

012703

074216

005713
001002
000137

072010

004737

005306

071732
071732
071732
071734

071736
071742

072002

(072006
072006
072010

072010

072010
072014
072014
072014

072016
072020
072024
072064
072070

(4)
(6)
(8)
(9)
4932

072076
072076
072100
072102

(3)

071726

000751

072070
072072
072072
072072

4933
4934

000137

072076

072106
(072146
072152

072152

074260

005713
001002
000137

072072

004737

005306

012703

:8= #15

s+
:

BEGINNING OF LOAD SEQ
SET UP RECORD TABLE

SEND RECORD IN PARTS

SET UP RECORD TABLE

SEND RECORD IN PARTS

SET UP NEXT REC

SEND RECORD

074322

SET UP NEXT REC

072154

004737

005306

SEND RECORD

940,0UTBUF
+2

MOVB
@15,0UTBUF
+3
LET QUTBUF
«+4 :B= @12
MOVB
@12,0UTBUF
+4
LET QUTBUF
«S

:B= @14

MOVB
€14 ,0UTBUF
+5
OUTPUT @BGNLD, #6.
LET R3 := ORECTBO
MOV
ORECTBO,R3

157

WHILE (R3) NE 0 DO

ENDDO

LET R3S

ST
BNE

(R3)
. +6

JMP

505254

505244

OUTPUT (R3).,0128,
JSR PC, QUIET

:= ORECTBL

MOV

ORECTBL ,R3

WHILE (R3) NE 00 DO
505264
:
ST
(R3)
BNE
. *6

JHP
505274
OUTPUT (R3).,0128.

ENDDO
LET RS

JSR PC,

QUIEY

505264

:= ORECTBA

MOV
ORECTBA,R3
WHILE (R3) NE #0 DO
50530:
TS7
(R3)

TABLE

BNE
. +6
JP
505318
OUTPUT (R3):,8128.

S0531%:

005713
001002
000137

000751

LET OQUTBUF
+3

ENDDO

000751

SEQ 0126

5TM

505278
:

012703

J10

PAGE 6-110

:B= #40

MOVB

S0525%:

000751

09:07

LET QUTBUF
2

505244
:

071724
071726

(3)
(3)
4930
(4)

4931

FONT TEST

071552

(4)
4914
4915
(4)

10-APR-84

JSR PC,

QUIET

$0530¢

LET RS

:= #RECTBB
MOV
ORECTBB.R3
WHILE (R3) NE @0 DO
505324:

IN PARTS

TABLE

157
(R3)
BNE
. *6
JMP
S0533¢
OUTPUT (R3).,0128.

ENDDO

JSR PC,

QUIETY

50532%

IN PARTS

CZLNADO LMNO1
CZLNAD.P11
(3)

4935
4936
4937
4938
4939

(4)

4940

(4)

4941

TEST
DNMAC X24.07-563Folf
10-APR-84 08:55

073126
073126
073130

012703

074364

012704

074514

005713
001002
000137

072754

012737
000402

000001

005237

002276

023727
003402
000137

002276

004737

50536$:
000002

072752

JMP

505354

MOV

@1 ,COUNT

S0537%:

INC

COUNT

S0540$
:

005306

5054164
:
ENDDO

cMP

BLE
JMP

END OF LOAD SEQ
CHECK TO SEE IF RESET DESTROYS FONTS L
SELECT DECIPOINTS AS PARAMETER
TOGGLE PAPER OFFSET

TABLE OF DIAG FONT ASSIGNMENT AND SELE

;s DO FOR EACH ENTRY

ENDINC
BR

s ASSIGN DIAGX AND SELECT IT FOR TITLES
; ASSIGN DIAG FONT AND SELECT IT.
: PRINT ONLY TWO LINE (242=4 AS TOTAL OF LIN

COUNT , &2

505408
505414

@OUTBUF
, &2, ,012.
QOUTBUF +3,482
Q0UTBUF +1,02, ,012.
Q0UTBUF +3,02

PRINT A LINE OF ALTERNATING DA

CRLF

50536

; RESET TO DEFAULT FONT
s+ SELECT DECIPOINTS AS SIZE UNIT

OUTPUT OREINIT,
02
OUTPUT OSELDEC,
o5
JSR PC,QUIET

0053C6

::E#T A LINE OF ALTERNATING LI

JSR PC,QUIET

50534
BR
S0535%
:
QUTPUT QOUTBUF +S5, 01

000610

EXIT TSTY
TRAP
CSEXLT
.WORD
L10032-.

104432

055433
104
114
123
044124
050033
050033
055433

SEQ 0127

505374

OUTPUT
OUTPUT
OUTPUT
OUTPUT

.NLIST BEX

073132
073155
073237
073255
073340
073404
073424
073444

P PAGE 6-111
.

OUTPUT (R4).,013.
OQUTPUT (R3).,&21.
INCR COUNT FROM @1 TO #2 BY #1

002276

000661

004737

09:07 7

S50533s:
@3
OUTPUT @ENDLD,
OUTPUT OREINIT, @2
OUTPUT @SELDEC,#5
OUTPUT @DECFIN,#S
LET R3 := #DIAGTB
MOV
ODIAGTB,R3
LET R4 := ODIAGX
@DIAGX,R4
MOV
WHILE (R3) NE @0 DO
505345
:
TST
(R3)
BNE
. +6

072154
072154
072216
072260

072322
072364
072364
072370
072370
072374
072374
072374
072376
072400
072404
072444
072504
072504
072512
072514
072514
072520
072520
072526
072530
072534
072534
072576
072640
072702
072744
072750
072750
072752
072752
072752
072754
072754
073016
073060
073122

-APR-84
APR.84

K10

030061
043105
043517
046105
051511
035461
035461
030461

043155

FONTST:

.ASCII

041511
041505
051440
030061
030461
155

FONSLA:

.ASCII

ASSDIA:

.ASCII

FONDEMES :
FONSLB:
NEWPG:

ASDIAL1:
SEL11:

LOCAL VARIABLES, TABLES, MESSAGES
<33>/[10mFONT TEST

.LASCII

19/<12><12>

/DEFAULT FONT PRINTED - SHOULD BE DEFAULT POWER-UP/<12> ; IDENTI

/LOGICAL FONT &/

: BEGINN

<33>/P13;10/<175>/DIAGO00/<335/\/

;

.ASCII
.ASCII

/SELECTED - DEFAULT POWER-UP FONT SHOUWD BE PRINTED/<12>
/THMIS SHOULD BE TOP LINE OF NEW PAGE/<12>

.ASCII
LASCII

<33>/P1;11/<175>/DIAGO0Y/<33>/\/
«<33>/(1lm/
: SELECTS LOGICAL FONT 211

: END OF
: 36 CHA

ASSIGN

; ASSIGN

5000
5001
5002
5003
5004
5005
5006
5007
5008
5009
5010
5011
5012
S013
5014
5015
5016
5017
5018
5019
5020
5021
5022
5023
5024

033
033
051120
047105
105

8%?5&

X24.07-563

033533
031133
041505
020104
042116

040555
066460
V42105
043117
047440

-APR-84

F ? TEST
BELOW:
ABOVE:

COMMEN:
PGEND:

09:07

.
.ASCII

.
.

PRTEN1: .
:PRTEN2:

s LANFON:

1PORFON:
074000
074017
074043

074070
074106

074130
074142
074154
074216
074250
074322
074364
074402
074406
074410
074413
074416
074421
074424
074427
074432

074435
074440
074456
074502
074503
074511

074514
074532
074547
074564
074601
074616
074631
074643
074656
074670
074703
074715
074730
074742
074755
074767
075002

055433
033
033
074070
074416
074410

074410
074413
075014
075214
075414
075614
074616
050033
055433
030061
061
031061
061

032061
061
033061

061
042175
042175
155
033
073

074532
055433
033
055433
033
033
060
033
060
033
060
033
060
033
060
033
060

033061
030533
030533

015555
066467
066466

074421
074413
074416
074421
076014
076014
076014
076014
074643
035461

074424
074416
074424
074427
076214
076214
076214
076214
074670

072151
067141

120
033

061
134

120
060
120
060
120
060
120
060
120
060
120
060

ASBGIN:

SELBGN:
ASSI10:
ASSI11:

040
020061
040
020063
040
020065
040
020067
052105
046105

074547
030461
030533
030461
030533

s ASSLAN:

SEQEVE:
SEQODD:
SEQALL:
.EVEN
NSELTB:
ASSTBL:
EVENTB:
obDTB:
RECTBO:
RECTBL:
RECTBA:
RECTBB:
DIAGTB:

ASSI12:
ASSI13:
ASSIiA:
ASSI1S:
ASSI16:

074564
042155
066461
042155
066461

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

ASSI17:
ASENDP
:

.ASCII
.ASCII
.ASCII

.
.
.
.
.
.
.
.
.
.ASCII
.
.ASCII

<33>/[TmATTEMPTING TO SELECT FONT NUMBER BELOW LEGAL RANGE./<12>
<33>/[20mATTEMPTING TO SELECT FONT NUMBER ABOVE LEGAL RANGE./<12>

/PRECEDING TWO LINES SHOULD BE THE DEFAULT POWER-UP FONT/<12>
/END OF THIS PAGE/<12>

/END OF PART 1 AND THIS PAGE/<12><14>
.ASCII
/END OF PART 2 AND THIS PAGE/<12><14>

.ASCII

/THIS LINE SHOULD BE THE DEFAULT LANDSCAPE FONT/<12>

LASCII
/THIS LINE SHOULD BE THE RESIDENT PORTRAIT FONT/<12>
LASCII
«<33>/P1;10/¢<175>/DELandscapel3.6-8/<33>/\/
; ASSIGN
<33’/[16a/¢33’/ 14m/<33>/[12m/
s SEQUENTIAL SELECTION O
<33>/[(17m/<33>/[15m/<33>/[13m/<33>/[11m/
.
"
"

<33>/[16m/<33>/[15m/<33>/([14m/<33>/[ 13m/

.BYTE
.BYTE

.ASCII
.ASCII
.ASCII

.ASCII

;

ASSI12,ASSI13,ASSI14,ASSI1S5,ASSI16,ASS1I17.0
ASSI10,ASSI11,ASSI12,ASSI13,ASSI14,ASSI15, ASSIls ASSI17,0
; TABLE
ASSI10,ASSI12,ASSI14,ASSI16,0
; TABLE OF EVEN PARAMETE

ASSIII.ASSIIS ASSI1S,ASSI17,0
00D
RECO,REC2, RECS RECA, RECS RECG REC7,REC8,RECY, REClo REC11,REC12,REC13,REC
REC1,REC2,REC3,REC4 ,RECS,RECE, RECT.RECG REC9,REC10,REC11,REC12,REC13,REC
RECIA REC2 RECS RECA.RECS REC6 REC7.RECO REC9 flEClo aECll ascxz REClS RE
REC1B,REC2,REC3,REC4 ,RECS,REC6 ,REC7 ,P=C8,REC9,REC10,REC11,REC12,REC13,RE

DIAGiz DIAG13 DIA614 DIAGIS DInb16 DIA617 (4]
<33>/91./

;?3»/(/
/11
/712

/13
/14
/158
/16

: ASSIGNS AND SELECTS LO

BEGINNING OF ASSIGNMEN

BEGINNING OF SELECTION

717
<175>/DETi tan10-R/<33>/\/

3 END OF ASSIGNH

/m/

: END OF SELECTIOJ SEQUE

73,33,134

33333333 8838383888 saatlast:lntsasssc:la 33

DIAGX:
DIAGO:
DIAG1:
DIAG2:
DIAG3:

SEQ 0128

<175>/DELandscapel3.6-8/<33>/\/

ASENDL
:

SELEND:
BGNLD:
ENDLD:

PAGE

073451
073541
073632
073722
073743

L10
AC

4969
4970
4971
4972
4973
4974
4975
4976
4977
4978
4979
4980
4981
4982
4983
4384
4985
4986
4987
4988
4989
4990
4991
4992
4993
4994
4995
4996
4997
4998
4999

TEST
10-APR -84

NNNNNNNSTM

ZLNADO LNOI
ZUNAD. P11

«ss:/fxzuoxncooo/«xza

1)¢

IAG1 ,DIAG2,DIAGS,DIAGO

: LAST

3 ssssdsdssiss

: FONT BEING SELECTED TO

<35>/{11mDIAGO01/<12>
<33>/( 11mDIAGO02/<12>

<33>/{ 11mDIAGO03/<12>

Iltl‘il3ll8llllltllll‘llllllllililll.lllll §33383333i3s3s3s3ssssssssssesss

DIAG13:
DIAG14:
DIAG1S:
DIAG16:
DIAG17:

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

33,120,61,73,
.175.104,111,101,107
60.60,60,33,134.33.133.61,62,155

; SEQS TO ASSIGN AND SELECT DIAG

33.120,61,75,61.63,175.104,111,101,107

; SEQS TO ASSIGN AND SELECT DIAG

33.120,61,75,61.64,175,104,111,101,107

; SEQS TO ASSIGN AND SELECT DIAG

33.120,61,75,61.65.175.104,111,101,107
60.60,63,33,134,33,133,61,65,155
33,120,61,73,61,66,175,104,111,101,107

; SEQS TO ASSICN AND SELECT DIAG

60,60,61,33,134,33,133,61,63,155

60,60,60,33,134,33,133,61,66,155

33,120,61,73,61,67,175,104,111,101,107
60.60,61,33,134,33.133,61,67,155

; SEQS TO ASSIGN AND SELECT DIAG
; SEQS TO ASSIGN AND SELECT DIAG

CZLNADO LNO1
CZLNAD.

PIYO!

5025
5026
5027
5028
5029
5030
5031
5032
5033
5034
5035

5036
5037

5038
5039
5040
5041
5042
5043
5044
5045
5046
5047
5048
5049
5050
5051

5052
5053
5054
5055
5056
5057
5058
5059
5060

5061
5062
5063
5064
5065
5066
5067
5068
5069
5070
5071
5072
5073
5074
5075

5076
5077
5078
5079

(3)

TEST

NMAC

X24.07-

T63 aPr-84 O8:
58 X2

075014
075102

064551
037477

040147
037477

062477
037477

075214
075302
075414
075502
075614
075702

064551
037477
064551
037477
064551
037477

040147
037477
040147
037477
040147
037477

062477
037477
062477
037477
062477
037477

076102
076214
076302
076414
076502

037477
037477
037477
037477
037477

037573

037477

041077

076014

037477 - 037477

037477

076614
076702
076744
077014

037477
047077
037575
057576

077166
077214
077271
077302
077366
077414
077456
077502
077546

077176
037477
176
037477
067576
037477
077176
037477
037477

037477
037477
037573
040077
037477
037477
077176
037477
037477

037477
077102
037477
077176
077100
077176
037537
077176
037477

077702
077736
077776
100014
100052
100102
100170
100214
100275
100302
100363
100414
100475
100502
100540
100614
100702
101014
101102
101214
101302
101414
101502

057576
037477
077176
077176
037477
077102
063176
037477
176
037477
176
037477
176
037477
042137
037477
037477
037477
037477
037477
037477
037477
037477

037477
037477
077176
077176
037477
057576
057576
037477
037573
037477
037573
075576
037573
075576
052124
037477
037477
037477
037477
037477
037477
037477
037477

043077
077136
077176
077176
037477
037477
037477
041077
037477
077116
037477
037477
037477
037477
052124
037477
037477
037477
037477
037477
037477
037477
037477

077102

077614

101614
101614

037477

037477
077176
037477
037477

037477

-APR-84

36307 fES;84

037477
077176
037477
037477

037477

RECO:

REC1:
REC1A:
REC1B:
REC2:

RECS3:

REC4:
RECS:

REC6:

REC7:

RECS:

REC9:

REC10:

REC11:

REC12:

REC13:
REC14:
REC1S5:

09:07

09:0

W §-119

S0 0129

.ASCII
LASCII

/iigB?e_CPCdadPr?oKA?_GA?_GA?_GA?_GA?772?222227027522_GO/
; 54 cha
/7200272220020022220222200222222222222227222222222222222222222222222222222222

LASCII

/2222272222222222222222222222222222222222222222222222222/

.ASCII
LASCII
.ASCII
LASCII
.ASCII
LASCII

LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
JASCII
LASCII
LASCII

.ASCI1

/iigd?e_CPCdaPr?0KQ?_GA?_GA?_GA?_GA?222722222772027522_GO/
; 54 cha
/7222222222022200222222222222222222222222222222222222222222222222222222222
/iigd?e_CPCdaPr?oKa?_GA?_GA?_GA?_GA??77277222272720225727_GO/
5S4 cha
/Z72200000000020222222222222220222222722222222222222222222222222222222222222
~iigB?e_CPCdaPr?oKq?_GA?_GA?_GA?_GA??277277272022572_GO/
: 54 cha
/222222222200200222222222222222222222222222222222222222222222222222222222
/7222220022222022222222220222222222222222222222222222222222222222222222222
/2222222222227 2222222222222222222222222222222222222222%/
/722222022222022200022222220122222222222222222222222222222222222222222222
72222222222222222222222G2072F
/7<176>/N08cF _LA2t/<1735>/¢2E022222222222/
/2227222202222222222222227222222222222222222222222222222222222222222222222

/722222222222222200IN/7¢176>/m2222222228/<176><176><176><1735/22222222F
/<17
/7N/<176><176><176><176><176>/w?22222IN/<176><176><176><17€><176><176>/_?
<175>/222228/<¢176><176><173>/7F /<176><176>/022222/<176><176>/0??N/<176><
<176>/_2227B/<176>/_12°F /<176>/m22228/<176>/02228/<176><175>/22222¢/<173

<173’17???B/<176>/-7?77/¢176><176>/7???7/¢176’/-????N/<176>/o????N/¢175>

ASCII
LASCII
LASCII
LASCII
JASCII
LASCII
LASCII
LASCII
LASCITI

<176><176>/22222/<176>/m222IN/<176>/02227N/<175>
/72227B/<176>¢173>/72227B/<176>/_2222/<176><176>/22222/<176><174>/2222N/<1
«176><173>/22278/<176>/0/
/72278/¢176><176>/22222¢/<175>/2222¢/<176>/_2222 /<176>/_222N/<176>/w?222?
<176>/02728/¢<176><176>/22227B/<176><176>/_28/<176><176>/02/
/72222/¢176><176><176>/ _B/<176><176><173>/22222F /<176><176><176><176><1756
<176><176><176><176>/_2222IN/<176><176><176><176><176><176>/02?/

JASCII
LASCII
ASCII
.ASCII
LJASCII
ASCII
LASCII
.ASCII
ASCII
LASCII
LASCII
.ASCII
ASCII
LASCII
LASCII
.ASCII
LASCII
.ASCII
ASCII
.ASCII
LASCII
.ASCII
JASCII

<176>/_22W/<176><176><176><176><176><176><176><176>/w?2228/<176><176><17
/72022%/7<176><176>¢176><176><176><176><176><176>/_222F/<176><176><176><17
<176><176><176><176><176><176><176><175>/2222¢/<176>

LASCII

REC16:
]
.EV
.LIST BEX
ENDTST
L10032:

M10O

/2222/¢176><176><176><176><176><176>/ _2222228/<176><176><176><176><176>/
7222222222271 76>¢176>/_222222222222222222222222%/

/722222222222222222222227222222222222222222222224/<176><176><176><176><17

<176><176><176><176><176><176><176>/_222F/<176><176><176><176><176><176>
/722222222200F 7<176><173>/2222222222/
/B/<176><176>/_2222222228/<176><176><173>/2222222222/<176><176><175>/_2?
<176>/78/¢176>/_22222222F/<176>/0/<176><173>/222/
/222278/<176>/wF/<176>/_22222228/<176><173>/2/<176><1732>/22222222/<176><
<176><173>/22%/
/222IN/<176>/ _TWF/<176>/ 222222/<176>/022/<176><173>/222222B/<176>/m22F/
«<176><173>/222222/¢176><175>/222 /<176>7_22222¢/<176>/22/
/22/¢176><173>/22222N/<176>/_222
/7<176>/_2222 /7<176>/02222/<176><173>/2?
<176><173>/22?/
/722/7¢176><173>/222IN/<175>/722222F /<176>/2222B/<176>7/222222/<176>
7/ OTTTITTYTITTITV2222222222222222222222222222222%/
/22222272202222220000202020222222222222222222222222222222?2%/
/722222222220002202222220222222222220022222222222222222222222222222222222
/222222222202222200220202702222222222222222222222222222?2%/
/722222222222000220200002002002022222202222222222222222222222222222222222
/222222222220002000022202220722222202222222222222222222?2Y/
/22222227272722222222222220202022222222222222222222222222222222222222222222
/2222222222222220002220002020002222222222222222222222222%/
/72222272222222222222222220202022202202222222222222222222222222222222222222

ZLNADO LNO1 TEST

CZLNAD P11
(3)
5080

5081
5082
5083

101614
101616

10-APR-84

FONT TEST

09:07

TRAP
ENDMOD

5093
5094
5096
5097
5098

X24.07-563

104401

5084
5085
5086
5087
5088
5089
5090
5095

DNMAC

10-APR-84 08:5

———

PAGE 6-114

e %0

CSETST

caunadaisesm——<
s
s 4 4

.SBTTL
MISCELANEOUS CONTROL FUNCTIONS TEST
;MODULE MISCON.P11
101616

BGNMOD
(e

gggg

FUNCTIONAL DESCRIPTION

5101
5102
5103
5104
5105
5106

THE MISCELANEOUS CONTROL FUNCTIONS TEST WAS CREATED FOR USE ON
zTHE LNO1 PRINTER.
IT IS A COMPILATION OF SUBTESTS THAT ARE SHORT IN
;DURATION AND DO NOT REQUIRE A SEPARATE TEST ALL OF THERE OWN.
THE
;:FUNCTIONS THAT ARE TESTED ARE AS FOLLOWS:
:
1: "CANCEL” CHARACTER
:
“SUBSTITUTE” CHARACTER

gigg

3: USE OF CONTROL CHARACTERS INSIDE ESCAPE AND CONTRL SEQUENCES

5109
5119

g%ié

5113
5114
5115
5116
5117
5118
5119
5120
5121
5122
5123
5124
5125

000000

MESSAGES, VARIABLES, SUBROUTINES

.REPT

POL

BEGIN ROUTINE MISCON
DO RESET
SELECT SIZE UNIT AS DECIPOINTS

~ »CANCEL" SECTION
MOVE TO ABSOLUTE POSITION 1 INCH (VERTICAL AND HORIZONTAL)

Sl28

\MILESEMTABLE'ETOODO
SEND ESCAPE OR CONTROL SEQUENCE WITH “CANCEL" CHARACTER INSJDE

: DO FOR
SEQUEN

SEND SECTION ID AND LINE LOCATION AND CR

s LINE L

SEND 1 "CANCEL"” CHARACTER OUTSIDE A SEQUENCE

g{gé

:
:

5133

MOVE TO ABSOLUTE POSITION 2 INCHES VERTICAL,

5135

WHILE TABLE1 OF SEQUENCES NE TO O DO

5134

5136

; RESET

PRINT TEST ID

gigg

5129
5130

GLOBALS REFERENCED:

5
3

NOTHIN
: SHOULD

“SUBSTITUTE” SECTION

SEND SECTION ID WITH LINE LOC.
$

1 INCH HORIZONTAL

SEND ESC OR CONT SEQUENCE WITH “SUBSTITUTE” CHAR INSIDE

LINE L
DO FOR
SHOULD

CZUNADO LNO1
CZLNAD.P11

B1l1

TEST
DNMAC X24.07-563
10-APR-84
09:07
PAGE 6-115
MISCELANEQUS CONTROL FUNCTIONS TEST
10-APR-84 08:55
ENDDO

S187
5138

SEND

5139

5149

5150
3151
5152
5153

(4)
5175
(4)
5176
(4)
5177
(4)
5178
(4)
5179
(4)
5180
(4>
5181
5182
51832

CLEAR ALL MORIZONTAL AND VERTICAL TABS
SET A VERTICAL TAB AT THE 4 INCH MARK
SET A HORIZONTAL TAB AT THE 2 INCH MARK
MOVE TO HORIZONTAL POSITION ABSOLUTE 1 INCH MARK
MOVE RELATIVE VERTICALLY 1 INCH
SEND ESCAPE SEQUENCE TO CLEAR VERTICAL TABS
INSIDE THE SEQUENCE:- SEND VT, CR, MT
SEND SECTION ID WITH LINE LOCATION MESSAGE
MOVE TO HORIZONTAL POSITION 1 INCH
SEND SEQUENCE TO TURN UNDERL INE
INSIDE THE SEQUENCE:- SEND LF ,FF HT

5147
5148

S174

32) OUTSIDE SEQUENCE

SHOLD

“CONTROL CHARACTERS INSIDE SEQUENCE” SECTION

5140
5141
5142
5143
5144
5145
5146

5154
5155
5156
5157
5158
5159
5160
5161
5162
5163
S164
5165
5166
5167
5168
5169
(3)
5170
5171
5172
5173
(4)

"SUBSTITUTE" CHAR (OCTAL CODE

SEG 0131

.ENDR

101616

T20::

“BELID" MESSAGE

RESET

THE PRINTER

112737

000011

003114

112737

000012

003115

112737

000013

003116

112737

000014

003117

112737

000015

003120

112737

000030

003121

112737

000032

003122

112737

000033

003123

LINE 1.

s SHOWLD
; IDENTI
; SECTIO

SELECT SIZE UNIT AS DECIPOINTS
DO A FORM FEED

BGNTIST

H
101616
101616
101624
101624
101632
101632
101640
101640
101646
101646
101654
101654
101662
101662
101670
101670
101676
101740
102002

3 RESULT

20.

SOURCE CODE

LET OUTBUF

:18= 011

LET QUTBUF
.1 :B= 012

LET OQUTBUF+2 :8+« 013

LET QUTBUF
+3 :8- 014

LET QUTBUF
.4

:8= 015

LET QUTBUF+S5 :8+ 030

“

LET OUTBUF
«6

:8+ 032

SUBSTITUTE

LET OUTBUF+7

:B= 033

ESCAPE

MOVE

211,0UTBUF

MOvB

@12,0UTBUF+ }

MOV8

@13,0UTBUF
+2

MOvB

014,0UTBUF
+3

MOVB
MOVB
MOVB

MOVB

#15,0UTBUF
4
930,0UTBUF
«5
032 ,0UTBUF +6

033,0UTBUF + 7

OUTPUT OREINIT,
&2
QUTPUT OSELDEC, 05
OUTPUT oMISCON, 042,

CODE FOR T

CANCEL

3 DECIPOINTS AS PARAME TERS

TEST

CZUNADO LNOL1
CZLNAD.P11
5184
5185
5186

5187
5188
(4)
5189
(4)
5190
(4)
(6)
8)
(9
5191
5192
5193
(3)
(3
5194
5195
5196
5197
5198
5199
5200
5201
5202
(4)
5203
(4)
5204
(4)
(6)
(8)
£9)
5205
5206
5207
5208
(3)
(3)
5209
5210
S211
5212
5213

5214
5215

5216

5217
5218
5219
5220
5221
5222
se2?

Cll

TEST

DNMAC x24.07-563
10-APR-84
09:07
PAGE 6-116
MISCELANEQUS CONTROL FUNCTIONS
10 -APR -84 08:55
:

:
102044
102106
102106
102112
102112
102116
102116
102116
102120
102122
102126
102164
102226
102226
102230

102230
102272
102334

“CANCEL" SECTION

012703

104364

012704

104410

005713
001002
000137

102230

ENDDO

000733

004737

OUTPUT @ABPO1,012.
LET R3 := @SEQTAB
MOV
OSEQTAB,R3
LET R4 := OCNTTAB
OCNTTAB,R4
MOV
WHILE (R3) NE @0 DO
505428
:
TST
(R3)
BNE
. +6
JMP
50543

005306

OUTPUT (R3).,(R4).
OUTPUT QOUTBUF +5,01

505424
BR
505434
:
OUTPUT &CANSEC, 087,
OUTPUT Q0UTBUF +5,01
JSR PC, QUIET

3
102340
102402
102444
102444
102450
102450
102454
102454
102454
102456
102460
102464
102522
102564
102564
102566
102566

012703

104376

012704

104410

005713
001002
000137

102566

000733

WHILE (R3) NE @0 DO
505448
:
1ST
(R3)

BNE
.*6
JMP
50545
OUTPUT (R3)+,(R4).
OUTPUT 20UTBUF 6,01

50545¢%
:

OUTPUT
OUTPUT
QUTPUT
OUTPUT
OUTPUT
OUTPUT
OUTPUT
OUTPUT
OUTPUT

DO FOR EACH SEQUENCE

IN TABLE

OUTPUT

THE SEQUENCE WITHOUT A

s ABORT THE SEQUENCE Br SENDING

s ABSOLUTE POS. 2 INCHES VER AND
3 SECTION ID PLUS LINE LOCATION

s DO FOR EACH ENTRY IN THIS TABL

3 SEND ESC OR CONT SEQ WITHOUT A
: ABORT THE SEQUENCE By SENDING
s SHOULD PRINT NOTHING

50544

OUTPUT OOUTBUF +6,01
3

INCH VERTI

;s OUTPUT TEST ID AND LINE LOCATI
s SEND 1 CANCEL CHAR. NOTHING SH

OUTPUT @ABPO2,013.
OUTPUT @SUBSEC,#89.
LET R3 := #SQTAB1
MOV
@SQTAB1 ,R3
LET R4 := OCNTTAB
OCNTTAB,R4
MOV

ENDDO

ABSOLUTE POSITION 1

"SUBSTITUTE” SECTION

102630
102672
102734
102776
103040
103102
103144
103206
103250
103312

S5EQ 0132

TEST

oCLHVTB,
08,
087
#STVR4,
@STHOR2,07
87
0ABPOLM,
ORLTV1,
06
OCONSEQ,#8.
OCONSEC,#107.
@7
O0ABPO1M,
oCONSQ1,08.
OUTPUT 0BELID,#81,

: SUBSTITUTE CHAR OUTSIDE SEQUEN

"CONTROL CHARACTERS INSIDE SEQUENCE SECTION"
: CLEAR ALL HOR AND VER TABS
: SET VERTICAL TAB AT 4 INCH MAR

: SET HMORIZONTAL TAB AT 2 INCH M
s MOVE TO ABSOLUTE POSITION MORI
: RELATIVE VERTICAL 1 INCH (SHOU
1
:
:
:
:
i

SEND SEQ TO CLEAR VERTICAL TAB
SEND SECTION ID AND LINE LOCAT
HOR ABSOLUTE YO 1 INCw
SEND SEG TO TURN ON UNDERL
INE
IDENTIFIES LINE LOC AS BEING 1
AND IDENTIFIES THE LINE AS BEI

D11

ESLNABOPYYC! "13 apr s BETEE 2407563, 40:(RReBYs LBk IR0"PORCPiOAL rest
5224
5225
5226

5227
5228
(3
(3)
5229
5230
5231
5232
5233
5234
5235
5236
5237
5238
5239
5240
5241
5242
5243
5244
5245
5246
5247
5248
5249
5250
5251
5252
5253
5254
5255
5256
5257
5258
5259

(3)
(3)

5260
5261
5262
5263
5264
5265
5266

103354
103416
103460
103522
103526
103526
103530

OUTPUT @REINIT, @2
OUTPUT @SELDEC, #5
OUTPUT QOUTBUF
+3 01
JSR PC,QUIET
EXIT TST
TRAP
CSEXIY
L10033-.
.WORD

005306

NLIST BEX
103532
103607

030061

040503

103736
104067
104242

041125
047503
051511

104364
104376
104410
104422
104431
104440
104463
104466
104472
104506
104523
104533
104542
104551
104560
104567
104575
104605

104463
104463
000003

104616
104622
104622
104622
104624

005306

030
032
133

133
133
133
133
133
133
133
133
133
133
133
133

046555
041516
052123
052116
046040

104466
104466
000004
033
033
060
064
060
067
061
063
062
061
062
060
067
064
064

MISCON:

CANSEC:
SUBSEC:
CONSEC:

BELID:
.EVEN
SEQTAB:
SQTAB1:

CNTTAB:
INTCAN:
INTSUB:
VECSEQ:
UNDSEQ:
JUSSEQ:
ABPO1:
ABPO2:
CLNVTB:
STVRA:
STHOR2:
ABPQO3:
ABPO1M:

RLTVL:

CONSEQ:
CONSQ1:

+ASCII
.ASCII
.ASCII
.ASCII
.ASCII

.WORD
.WORD
.WORD
.BYTE
BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

.EVEN
.LIST BEX
JSR
ENDTST
L10033:
TRAP
ENDMOD

LOCAL VARIABLES,

RESET THE MACHINE
SELECT DECIPOINTS

FORM FEED

GUARANTEE

$277

104624

.SBTTL
BGNSRV

TO DEFAULT
i

THE FORM FEED

TABLES, MESSAGES

«<33>/[ 10mMISCELLANEOUS CONTROL FUNCTIONS TEST 20/<12>

/"CANCEL" SECTION - TWIS LINE POSITION SHOULD BE APPROX.

INCH VERTICAL

/“SUBSTITUTE” SECTION - THIS LINE POSITION SHOULD BE APPQOX 2 INCHES VE
/"CONTROL CHARACTERS INSIDE A SEQUENCE” SECTION - LINE POSITION SHOULD B
/THIS LINE SHOULD BE
1 LINE BELOW SECTION ID AND IT SHOULD BE UNDERL INED

INTCAN,UNDSEQ,
JUSSEQ, O, VECSEQ
INTSUB,UNDSEQ,
JUSSEQ, VECSEQR,O

s TABLE OF
: JTABLE OF
7,3,4,19.,0
s TABLE OF
33,30,33,133,30,33,120
s POSSIBLE
33,32,33,133,32,33,120
s POSSIBLE
33, 133 60 73,63,60,60,73,63,60,60,73,71,60,60,73,61,65,60

CANCEL SEQUEN
SUBSTITUTE SE
BYTE COUNTS F
SEQUENCE INTR
SEQUENCE INTR
: DRWVEC

: UNDERLINE SEQ UITWT

33 133, 67.62.60 144,33,133,67,62,60,140
33,133 61.64.64.60.144.33.133.67.62.60.140
33.133.63.147.33.133.64.147
33,133,62,70,70,60,166
353,133,61,64,64,60,165
33,133,62,61,66,60,140
33,133,60,67,62.60,140
33.133,67,62,60,145
33,133,64,13,15,12.11,147
33,133,64,12,15,14,11,155

PC,QUIET
CSETST

5267
5268
5269

5270
5273
5274
5275
5276

SEQ 0133

INTERRUPT

SERVICE ROUTINES

$
$ee

s INTERRUPT VECTORS ARE ESTABLISHED DURING INITIALIZATION

TURN ON JUSTIFY SEQ &I

ABSOLUTE POSITION 1 IN
2

CLEAR ALL HOR AND VER
SET VER TAB AT 4 INCH
SET HOR TAB AT 2 INCH
ABSOLUTE HOR POSITION
ABSOLUTE HOR POSITION
RELATIVE VER 1 INCH

s CLEAR VER TABS
: TURN ON UNDERL

CZUNADO LNO1
CZLNAD.P11
5278
S279
5280
5281
5282
5283
5284
5285
5286
5287
5288
5289
5290

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

(4)

(4)
(32)
(5)
(3)
{4)
(4)
(3)
(5)
(3)
(#)
(4)
(3)

TEST
DNMAC x24.07-563
10 -APR -84 08:55

10-APR-84

09;07

£11

INTERRUPT CSERVTLE ROUTTRES 118

sPOINTING TO THE BASIC ROUTINES WHICH
:SET UP THE UNIT NUMBER CAUSING THE INTERRUPTS,
;LINE NUMBER IS RETURNED IN R2
i
3%

104624

X=0

000000
000020

INTOO0:

.REPT

PUSH

X=Xe2

104624
104630
104632
104634
104640
104644
104650
104652
104654
104660
104664
104670
104672
104674
104700
104704
104710
104712
104714
104720
104724
104730
104732
104734
104740
104744
104750
104752
104754
104760

104764

104770
104772
104774
105000
105004
105010
105012
105014
105020
105024
105030
105032

012700
104441

IODRV>

.ENDR
MOV

004542
000200

MOV
MOV
JMP
MOV

R2, -(SP)
oX,Re
IODRV
OPRIO4,RO

000002
004542
000200

MOV
MOV
JMP
MOV

R2, -(SP)
ax,R2
IODRV
OPRIO4,RO

004542
000200

MOV
MOV
JMP
MOV

R2, -(SP)
oxX,R2
IODRV
OPRIOA ,RO

MOV
MOV

R2, -(SP)
ox,.R2

MOV
MOV
JMP
MOV

R2, -(SP)
ox,R2
I0DRYV
OPRIO04,RO

010246

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

LET R2 := &X
INLINE <JMP

000200

010246

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

16.

SETPRI oPRIO4

004542
000200

TRAP

oPRIOA,RO

C$SPRI

CS$SPRI

C$SPRI

000010
004542
000200

000012
004542
000200
000014

004542

000016
004542
000200

TRAP
MOV

CSSPRI
R2, -(SP)

SEQ 0134

wuiuownm

\.lVVVVVVV\'VVV\JVVVVVV\J\J\J\JVVVUVVU\JVV\Julv ~

f'\’\"\flf\flf\’\flf\fif\f\flf‘\fif\fif\fifif-flf\f\"fifl’\fi'\’\’\f\fifl
203
WNRBDUWNUWEDWVNNDDWNIWODLVIWDBDUWUNIWDOLWNIWD
D W wm
W
-

CZLNADO LNO1
CZLNAD.P11

F11

TEST
DNMAC x24.07-563
10-APR-84
09607
PAGE 6-119
INTERRUPT SERVICE ROUTINES
10-APR-84 08:55

105034
105040
105044
105050
105052
105054
105060
105064
105070
105072
105074
105100
105104
105110
105112
105114
105120
105124
105130
105132
105134

105140
105144
105150
105152
105154

105160
105164
105170
105172
105174
105200
105204
105210
105212
105214
105220

012702
000137
012700

104441

010246
012702
000137

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

000020
004542

MOV
JMP

oxX,R2
IODRV

TRAP

C$SPRI

000200

MOV

000022
004542
000200

MOV
MOV
JMP
MOV

TRAP

MOV
MOV

000024
004542
000200

000030
004542
000200
000032
004542
000200
000034
004542
000200
000036
004542

R2, -(SP)
X,R2
IODRY
4PR104 ,RO
C$SPRI

R2,-(SP)
ox,R2

JMP
MOV
TRAP

IODRYV
9PRIO4,RO
C$SPRI

MOV
JMP
MOV
TRAP
MOV
MOV
JMP
MOV
TRAP

oxX,R2
I0DRV
OPRIO4,RO
C$SPRI
R2, -(SP)
ox,R2
I0DRYV
OPRIO4,RO
C$SPRI

MOV
JMP
MOV
TRAP
MOV
MOV
JHP
MOV
TRAP
MOV
MOV
JMP

ox,R2
I0DRYV
#PRIO4
RO
C$SPRI
R2,-(SP)
o, ,Re
I0DRV
OPRIO4 RO
CS$SPRI
R2,-(SP)
ox,R2
IODRV

MOV

000026
004542
000200

OPRIOA,RO

R2, -(SP)

5294
5295
5296
5297

5299
5300
5301
5302
5303
5305
5306
5307
5308
5309

.SBTTL CLOCK SERVICE ROUTINE
HE A

sUPDATES THE COUNTER AT A RATE OF 16.67 MILLISECONDS PER TICK
sAND UPDATES A SECOND COUNTER WHEN THE FIRST OVERFLOWS.
105224
105224

BGNSRvV
CLKTCK:

SETPRI 4PRIO6

SEQ 0135

CZLNADO LNO1
CZLNAD.P11

(3)

105224

(3)
5310
(6)
(8)

105230
105232
105232
105236

5311

105244

5312

105252

5313
v4)
5314

105256
105256
105256

(9)

(4)

(7)

GL1

TEST
DNMAC X24.07-563
10-APR-84
09:07
PAGE 6-120
10-APR-84 08:55
CLOCK SERVICE ROUTINE

012700

000300

005737
001402

105310

104441

105240

000137

105256

105244

012737

000074

105252

005237

105306

105256

005337

105310

(6)

105262

023727

002316

(9)

105272

000137

105304

012777

000100

(8)

105262
105270

5316

105276

5317
(4)
5318

105304
105304

(3)
(2)
5320
5321
5322
5323
5324
5325
5326
5327
5328

105304
105304

(4)

5319

105276

001402

105306
105310

000002

000000

105312

000010

5334
(4)
(4)
(4)

105314
105314
105316
105320

000031
105334
160000

5335

105324

105314

105322

LET

ENDIF
LET

DEC

TICK

060,

TIME

TICK

TIME

TICK

160
.

TICKS PER SECOND

;sBACK UP SECOND

TIMER

IF CLKTYP EQ 42 THEN

000002

CMP

CLKTYP, @2

JMP

505474

BEQ

075016

MOV

L1003S:
H

TIME:

TICK:
.SBTTL
BGNMOD

105324

001031

(4)

105332

000770

105326
105330

105334
105334

:-BGNHRD

LSHARD: :

177516

(4)

5336
(2)
(3)
5337

INC

TICK

960. ,TICK

. +6

LET 8CLKCSR

ENDIF

€100

9100,8CLKCSR

;AND EXIT
RTI

.WORD

.WORD
O
HARDWARE PARAMETER SECTION

;P -TABLES.
:

105312
105312

(4)
(4)

MOV

505464

see
; THIS SECTION INCLUDES THE QUESTIONS WHICH REQUEST THE OPERATOR TO
:FURNISH THE HARDWARE INFORMATION NECESSARY TO BUILD THE HARDWARE

5331
5332
(3)

(4)

105310

LET

ENDSRV

5329
S330

Sgg;

JMP

S5C5478:

105304

OPRIO6,RO

TRAP
C$SPRI
IF TICK EQ #0 THEN
TST
TICK
BEQ
. *6

505464 :

(7)

5315

MOV

SEQ 013%6

.WORD L10036-L $HARD/2
GPRMA
.WORD
.WORD
. WORD

GETADR,0.0,160000,177516,YES
T$CODE
GETADR
TSLOLIM

GPRMA

GETVEC,2.0,110,770,YES

.WORD
.WORD

GETVEC
TSLOLIM

. WORD

.WORD

105351
000110

ENDHRD

. WORD

.EVEN
L10036:
.NLIST BEX

TSHILIM
T$CODE

TSHILIM

CZUNADO LNO1
CZLNAD.P11

105334

105351

050114
111

030461
052116

040440
051105

GETADR: .ASCIZ
/LP11 ADDRESS/
GETVEC: ASCIZ
/INTERRUPT VECTOR/
.LIST BE X
.EVEN
.SBTTL
SOFTWARE PARAMETER SECTION
s

s THIS SECTION INCLUDES THE QUESTIONS WHICH REQUEST THE OPERATOR TO FURNISH
: THE SOFTWARE INFORMATION NECESSARY TO BUILD THE SOF TWARE P-TABLES.
105372
105372
105374
105374
105374
105376
105400
105402
105402
105404
105406
105410
105412
105414

BGNSFT

000010

L$SOFT::

000130
105414
000001

001052
105452
000377
000001
000377

ENDSFT

105414
105414
105452

052522
052501
105500

020116
047524

040515
051104

.WORD L10037-L$SOFT/2

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

.EVEN
L10037:
.NLIST BEX
MGTINT: .ASCIZ
GETMAX: .ASCIZ
.LIST BEX
.EVEN

MGTINT,O0,1,YES
T$CODE
MGTINT
1

GETMAX,2,0,377,1,255.,YES
T$CODE
GE TMAX
377
TSLOLIM
TSHILIM

/RUN MANUAL INTERVENTION TESTS/
/AUTODROP ERROR COUNT/

105500
105540

000C20

PATCH:

LASTAD

105540

105542
105544
105544

LSLAST::
000001

ENDMOD
.END

.BLKW

.EVEN
.WORD
.WORD

(=X~

5338
5359
5340
5341
5342
5343
5344
5345
5346
5347
5348
5349
(3)
(3)
5350
4)
(4)
(4)
5351
(4)
(4)
(4)
(4)
(4)
5352
(2)
(3)
5353
5354
5355
5356
5357

H11

TEST
DNMAC X24.C7-563
10-APR-84
09:07
PAGE 6-121
HARDWARE PARAMETER SECTION
10-APR-84 08:55

SEGQ 0137

ZLNADO L.NO1

CZLNAD.P11

TEST

DNMAC

X24.07-563

10-APR -84 08:55

ABMAR
ABOVE

067236
073541

4505
4860

46042
49700

ABPO1
ABPO1H

104472
104560

5187
5216

52464
5220

ABPO2
ABPO3

ABREL

104506

104551

5200

52474

2585

26132

4539
4538

46259
4624¢

5251

024656

ABS3
ABS7

063566
063575

a331¢
4332¢

ACRLF
ACTIVE=
ADR
=
AMAR

004043 G
020000
000020 G
067062
044254

10782
9502
910
4594
3426

ABTBCT
ABTBL

APTEBL

067534
067512

ASBGIN

074402

4991¢

ASENDL
ASENDP

074456
074440

50022
5001¢

ASSEMB=

000010

ASDIA1

ASSDIA

ASSI10

ASSIl1

ASSI12
ASSI13
ASSI14
ASSI1S

ASSIle
ASSI17

ASSTBL
ATBL

073424

073404

4844

4966¢

074410

4983

4984

074413

750

4983

4985

074416
074421
074424
074427

4982
4982
4982
4982

074106
044160

4982
4982

4983
4983

4983
3425

3555¢

033221

2982

074432
074435

050354
C53735
104242
073451

BGNLD
BGNSEQ
BIN2DA
BITO
=
BITO0 =
BITO1 =
BITO02 =
BITO3 =
BITO4 =
BITOS =
BITO6 =
BITO7 =
BITO8 =
BITO09 =
BIT1
=
BIT10 =
BIT11 =
BIT12 =
BIT13 =

074503
043254
004330
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000
010000
020000

G
G
G
G
G
G
G
G
G
G
G
G
G
G
G
G

4983
4983
4983
4983

3691
4009
5222
4859

3752¢
40400
52368
49699

4914
3512¢
1168¢
910¢
910¢
910¢
9100
910¢
910¢
910¢
910¢
910¢
910
9100
9100
910¢
9104
910¢
910¢

S004¢
3568

950

I11

5252#

2728
1245

3701
1250

49930

49940
4984
4985
4984
4985

4984
4985

29964

1660

PAGE

CROSS REFEREN8£ ?ABLE -- USER SYMBOLS

35582

49678

748

09:07

45954

4845

ATHRUZ
AveC
BELID
BELOW

BEM

2717
1233

10-APR-84

1670

49954
49960
49974
4998¢

4999¢
5000¢

3702
1314

3711
1316

3712
1321

3719
1595

3720
1700

3727
2439

3728

CZLNADO LNO1
CZUNAD.P11

TEST
DNMAC X24.07-563
10-APR-84
09:07
PAGE 7-1
10-APR-84 08:55
CROSS REFERENCE TABLE -- USER SYMBOLS

BIT14 = 040000 G
BIT15 = 100000 G
BIT2
= 000004 G
BIT3
= 000010 G
BIT4
- 000020 G
BITS
= 000040 G
BIT6
= 000100 G
BIT7
= 000200 G
BIT8
= 000400 G
BIT9
= 001000 G
BLANK
022301
BMAR
067076
BOE
= 000400 G

BOTMAR
BOTNUM
BOTSEC
BPTBL
BTBL
BUFADD

J11

044023
044135
037447
044422
044346
002344

9100
9100
9100
9100
910¢
9100
9100
9100
9102
9100
2389
4594
9100

1652

1717

1307

1643

2379

2453

2470

1369+

1430«

1525¢

1709+

1710¢

1712«

1715¢

1787«

1790«

1791+

2125+

2130s

2135+

2138+

2142s

2144+

2147«

2717+
2738+

2718s
2899¢

27198
2900+

2725«
2901+

2726+
2902+

2728+
2912«

2729s
2914s

24900
45960

3569
3569
3179
3563¢
35600
1341

3576
3576
32340

1941

1942+

1973«

2008+

2014¢

2123¢

2606+
2733s

2714«
2735«

271Se
2736+

2716+
27374

1811

26042
2730
2915«
2943«
297Se
3149s
3166+
3183+
3411«

3440+

3479+
3687+
3705¢
3727+

1342

1816+

1851+

2150s
2314»
25858

2157+
2318+
2586+

2917s
2947+
2976+
3150«
3167+«
3184+
3412+«

2919+
2948+
2978«
31S1s
3168+
3185+
3414s

26052
2732s

34442

3480+
3689+
3707«
3728+

3445+

3484+
3690¢
3709¢
3730s

221Se
2323+
2587+

29214
29498
2979«
31S2¢
3170
3187+
3415+

34478
3487+
3691¢
3711
3731s

2217+
2330¢
2588+
2926«
29538
2982+
31534
3171s
3190+
3417«

3450+

3488+
3693+
3712¢
3732¢

22392
2388+
2592+

29274
29578
2983+
31S4s
3173s¢
3192+
3420+

2929+
2959
3142+
3155+
3174s
3193+
3421+

3455«
3489+
369+
37148
3733+

4205+
4225+

4206¢
4227«

4207+
4228+

4208+
4229+

4266+

4270

42738

427Ss

4276s

4277+

A4531e¢

4536¢

4243«
4499+

4527+

4244
4500+

4528+

4245+
4503+

4529«

4559¢

4561

4922+

4927+

4932+

S224s

5225+

5226+

48495

4952+
5205+
99548

1811=
1941+
21492

4852+

4953+
5206+
1343

1816+
1942»
21502+

4562+

4853+

4954+
5209+
1344

1851+
1973s
2157+

4247»

4504

39944

4252+

4505+

4563+

4840+

493Se

4936+

4854+

51814
5213+
1369+

1856+
2008+«
2215+

3857+

3996+

3490+
3695«
3716+
3734«

3859«

3997+

4209s
4231s

42549

4506

A4508s

4537+

4B841s

4856+

S182+
S214s

5183+
S215¢

1857+
2014+
2217+

3461+

4253+

4855«

1430+

1869+

2218s
2338«
2589+

4204+
4222+

3990+

3856

1865

4200+
42192

3989+

3854«

1857

3852+

3988+

38534

1856+

3851«

3987«

002346

1223

3549¢
3552¢
3176
3432
3431
993¢

2149
2306+
2584+

BUFCNT

949
948

SEQ 0139

4937+

1525+

1865+
2123+
2218+

4278s

4540¢
4842s

4857+

1877+

2291s
2412+
2595¢

2930+
2960s
3143+
3156+
3175+
3194+
3423s

2933+
2962+
3144+
3157¢
3176+
3195¢
3428+

3491
3697+
3719«
3842+

3682+
3698«
3720¢
3843+

3683«
3700+
3722+
3844+

3999

4000+

3466+

3860+
3998+

4211s
4232¢

3467+

3862+

4212+
4233«

22938+
2416+
2599s

2937s
2966+
3145+
3158+
3178+
3196«
3434s

3468«

3864+

42148
4236+

1886+

22948
2421+
2600+

1887+

2295&
2483+
2601+

2938¢
2968+
3146+
3159«
3179«
3808+
3437+

2940+
2969+
3147+
3161+
3181s
3409+
3438«

3684«
3701e
3723«
3845+

3685+
3702+
3724+
3846+

3470«

3865+

3474«

3866+

4197+

4198+

4215+
4239«

4216+
4241+

4255

4256+

4257+

4258+

4262+

4509+

4517«

4522«

4523+

4524+

4487+

4541s
ABA3Ss

4859+

4942«

1709

1710e

1869+
2125+
2239«

18844

2244+
2389+
2593«

4938+

S187¢
5216+

1881+

S191«
S217+

1877«
2130a
2244+«

4488s

4543

4492+

45448

A4BAAs

ABASe

45943s

4945«

4860«

5192+
5218«
1712

1881+
21352
2291«

4496+

4546
ABAGes

4497+

4547+
48AT7e

18884

2296+
2583»
2602s

2941
2971
3148s
3164s
3182s
3410
3439

3475+

3686+
3704s
3725+
3850«

3986+

4199s

4218+
4242»

4265+

4498e
4526+

4555-

4848

4861+

4862+

4914«

S194s
S219s

S195«
5220«

S200+
S221«

S5201e
5222«

1790

1791

1715+

1884+
2138«
2293+

496+

1787«

1886+
2142+
2294»

4947«

1887+
2144«
2295+

4917
3948

1888+
2147»
22%
e

CZUNADO LNO1
CZLNAD.P11

TEST

DNH&C X24.07-563

10-APR-84 08:5

23062+
2584+
26044

2730+

2915+
2943+

2975+

31492
31662
3183+

34112
3440+
3479»

3687
37052
3727+
3851«
3987+

4200+
4219+
42434
4266+
44992
4527+
4559+
4849+
4922+
4952+
S205+

BUFREP

002350

5224+

9978
1816»
1942+
2150»
2314+
25852
26052
2732»
2917
2947+

2976+
3150+

3167+
3184+
3412+
3444+
3480«
36894+
3707+
3728+
3852+
3988+
42044+
42224+
4244
4270+

2314+«
2585+
26054+
27322
29172
29474

2976+

3150+
3167+
3184«
3412+
34444«
3480+
3689+
3707+
3728+
3852+
3988+

42044+
4222+
42444
4270+
45002
45282
4561+

4852s
4927+
4953+
5206+

5225+
1345
1851+
19732
2157+
2318+
2586+
2606+
27332
2919+
2948+
2978+
3151
3168+

3185+
3414+
3445+

34844
3690+
3709
3730+

3853
3989+

4205+
42254
4245»
4273%»

K11

10-APR-84

N89 ?ABLE
-- USER SYMBOLS

SEQ 0140

CROSS REFERE
2318+
2586+
26064
2733+
2919+
29484+
2978+
3151«
3168+
3185+
3414+
3445+
3484+
3690+
3709+
3730«
3853+
3989+
4205+
4225+
42454
4273»
4503+
4529
4562+
4853
4932+
4954+
5209«
5226+
1369+
1856+
2008+
2215+
23232

2587+
2714+
2735+
2921+
2949+

2979«
3152+
3170+
3187+
3415+
3447+
3487+
3691+
3711«
3731+
3854+
3990+

4206+
4227
4247
4275+

2323+
2587+
2714+
2735+
29214
2949+
29794
3152+
3170
3187»
34152
3447«
3487+
3691+
3711
3731+
3854«
3990+

42062+

4227+
4247+
42754
4504+
4531+
4563+
4854+
4935+
5181+
5213+

1430+

1857+
2014«
2217«
2330
2588+

2715«

27362
29264
2953+
2982+

3153+
3171
3190+

3417+
3450+
3488+
3693
3712«
3732s
3856+
3994«

4207«
4228«
4252+

4276+

2330+
2588+
2715+
27364+
29264+
2953s
2982+
3153«
3171
31904+
3417«
3450+
3488+
3693+
3712+
3732»
3856+
3994+
4207
42284+
4252+

4276+
45054+
4536+
4840+

4855«
4936+

5182+
5214+

1525
1865+
21232
2218+
2338«
2589+
2716
2737»
29278
2957+
2983+
3154
3173»
3192+
34204+
3455+
3489«
3694+
3714+
3733+
3857«
3996«
4208+

4229«

4253s

4277+

2338+
2589+
2716+
2737+
2927+
2957«
29834
3154+
3173+
31924+
34204+
3455+
3489+
36944
3714+«
3733«
3857+
3996+

4208+
4229
4253»
4277+

4506+
4537+
4841a
4856+
4937»
5183+
5215+

1709«
1869+
2125
2239+

2388+

2592+
2717»

2738«
2929+
2959
3142«

3155+
3174»
3193«
3421«
3461¢
3490+
3695+
3716+
3734+
3859«
3997+

4209
4231
4254«
42789

2388+
2592+
2717
2738+
2929+
2959+
3142+
3155+
31744
31934
3421»
3461+
34904
3695+
3716+
37344
3859+
3997«

2412+
25954

2719+
2900+
2933
2962+

31444
3157+

3176+
3195«
3428+
3467+
3682+
3698»+
3720+
38434
3862+
3999+

4209+
4231»
4254+
4278+
4508+
4540+
4842+»
4857+
4938+

4212+
4233+

1710+
1877+
2130+
2244+
2389s
2593+
2718+
2899+
2930+
2960s
3143s
3156+
3175+
3194+«

1715+
1884«
2138+
2293+
2416+
2599+
2725%
2901+
2937+
2966+
3145«
3158+
3178+
3196+
34349

S187+
5216+

3423+
3466+
" 3491s
3697+
3719«
3842+
3860«
3998+
4211«

42324
4255+
4487«

4256+
4488+
4517+
4543+
4844+
48602
4943+
5192+
5218+

2416+
2599+
2725+
2901+
29374
2966+
3145+
3158+
3178+
3196+
3434+
3468+
3683+
3700+
3722+
3844+
3864+
4000+

4214+
4236#
4257
44924
45224
4544«
4845+
48614
4945+

5194+
5219+
1787+
1886+
2142+
s
2294
2421«
2600+
2726+
2902+
2938s
3146+
3159
3179»

3437«

2421s
26004+
2726+
2902+
2938+
2968+
3146+
3159+
3179+
3408+
34374
3470=
3684+
3701=
3723+
3845+
3865+

4198+

1790+
1887+
2144+
2295+
2483+
2601+
2728s
2912+
2940+
2969+
3147«
3161
3181+

1791=

5195+
5220+

3438+
34742+
3685+
3702+
3724»
3846+

40002

4197

4198«

4236+

4239

4492+

4496+

4241+
4262+
4497«

3722«
3844+

4214+

4257+

4215«
4258+

3866+

4197
4215»
4239+
4258+
44964
4523
4546+
4846+«
4862+
49464+

3470
3684+
3701«
3723«

37002

24834
2601+
2728+
2912+
29404
2969+
3147+
7161+
3181+
3409s
3438+
3474+
3685+
3702=
3724+
3846+

4216+

4216+
4241+

4262+
4497»
4524+
4547+
4847+
4914+
4947

5200+
5221+

2147»
2296+
2583+
2602+
2729+
2914+
2941+
2971+
3148+
31649
3182+
3410
3439«
3475+
3686+
3704
3725+

39862

2583+
2602+
2729+
2914+
2941+

2971+
3148+
3164s
3182»
3410=
3439+
34754
3686+

3704

3725«
3850+
3986+
4199

4218+

4242+
42654
4498+
4526+
4555+
4848+
4917»
4348+

5201+
S222+
1811»
1941=
2149s
2306+
2584+
2604+

2730+

2915+
2943+
2975«
3149«
3166+
3183«
3411»
3440+
3479+
3687

3705+

3727
3851+

3987«

4199«

4200+

4242+

4243
4266+
4499

4218+

4265+
4408

4219+

CZUNADO LNO1

CZLNAD.P11

TEST

DNMAC X24.07-563

10-APR-84 08:55

4500+

053000
103607
002300
011722

CHAR24
CHAR44
CHRGEN
CK1
CLEAN
CLEART
CLHVTB
CLKCSR
CLKENA
CLKSET
CLKTCK
CLKTYP
CLKVEC
CLOCKP
CLRHOR
CLRTAB
CLRUND

057737
057663
002304
006342
007276
067333
104523
002322
002330
002324
105224
002316
002326
002320
036610
043170
047760

COMMEN
CONSEC
CONSEQ
CONSQ@1
COUNT

073632
104067
104575
104605
002276

CLRVER
CMAR
CNTTAB

COUNTD
CPTBL
CR
=
CSRERR
CTBL
CURADD
CURCNT
C$AU
=
C$AUTO=
C$BRK =
C$BSEG=
CsBSUB=
C$CEFG=
CsCLCK=
CSCLEA=
C$CLOS=
CsCLP1=

036604
067112
104410

004536
044646
000015 G
003342
044554
002546
002746
000052
000061
000022
000004
000002
000045
000062
000012
000035
000006

4504+

4505+

4935«

4936+

4529
4562+
4853+

4531+
4563+
4854+

4953+
gggg-

4954+
ggggo

5181«
5213+

49322+

09:07

PAGE

CROSS REFERENCE TABLE

45284
4561+
4852+

4927+

BYTTBL
CANSEC
CCNT
CHAR

4503+

10-APR-84

LTL

7-3

SEQ 0141

-- USER SYMBOLS

4506+

4508+

4509+

4517+

4937s

4938+

439424

4943+

4536+
4840«
4855+

4537«
4841+
4856+

5182«
5214»

5183+
5215+

4540+
4842+
4857+

5187+
5216+

4541+
4843+
4859+

5191+
5217

45224+

4523«

45244

45264+

4527+

4945+

49464

4947+

4948+«

4952»

45434
4844+
4860+

45444
4845s
4861+

5192+
5218+

51944
5219«

3992
5194
962¢
1795+

4010¢
52332
1800+
1797+

2226+
1801

1802+«

1803+

1804

1805+

46108
5248%
1502+

1503+

1513«

1516+

1604+

5316+

1497+
1505+
1501+
3167

1500+«
1506
1502
3208

1511«
1514«
1512+

1519
1603
1513

1602
1607

1606

5315

3730
32074
45974
S203

3739¢

1983+
3169+«
4221
1182

2131+
3177+

2151«
3186+

2152
3189+

2913+
3413+

42944
42938
9644
1509¢
15892
4606
5213
9774
9804
9784
5309¢
9724
979¢
9764
3146
3508¢
3724

3145
4594
5189

4861
5219
5218
5221
9614
2967+
3849+
1172+
3453
9172

10654
3452
1015¢
10274
7484
7484
7484
7482
7484
7484
7484
7484
748%
7484

497146
5235¢
52544
5255¢
1861+
2977+
4213«
1177+
3572¢
1647
3568¢
1228
1227

5195+
5220+

4547s
48474
49144+

5200+
5221+

45554+
4848+
4917«

5201+«
5222+

4559+
48494
49224«

52054+
5224+

18204

52400

1873+
3160+«
4215
1180

1948s
3163
4220+
1181+

4224

4228

42342

1243+
1326

1341+
1343+

2441s
1346

1189+«

12040

4235

2918+
3446+

4238

2928+
3483+

2939+
3715+

2958s
3721s

42433

4525+

4944«

1382+

1464+

1596+

2440+

2481+

2381

1229+
1234+

818

1498
1610

1806+

4546+
4846+
4862+

1509

1240+
1241+

1242
1244+

C<LNADO LNO1
CZLNAD.P11
C$CVEC=
C$DCLN=
CsDODU=
C$DRPT=
CsDU
=
CS$EDIT=
CS$ERDF=
CSERHR=
CS$ERRO=

M11

TEST
DNMAC X24.07-563
10-APR-84
(09:07
PAGE 7-4
10-APR-84 08:55
CROSS REFERENCE TABLE -- USER SYMBOLS

000036
000044
000051
000024
000053
000003
000055
000056
000060

C$ERSF
= 000054
CSERSO= 000057
CSESCA= 000010
CS$ESEG= 000005
C$ESUB= 000003
CSETST= 000001
C$EXIT= 000032

74846
7484
7488
7484
7484
7488
748¢
748¢
7484

748¢
748¢
7484
748¢
7484
7488
3581

C$GETB=
C$GETW=
C$GMAN=
C$GPHR=
C$GPLO=
C$GPRI=
CS$INIT=
CSINLP=
C$MANI=
CSMEM =
CSMSG =
CSOPEN=
C$PNTB=
C$PNTF=

000026
000027
000043
000042
000030
000040
000011
000020
000050
000031
000023
(00034
000014
000017

748¢
2608
748¢
748%
7488
7484
7482
748%
7484
7484
7484
748%
7484
748¢
7484
748%

C$PNTS=
C$PNTX=
C$QI0 =
C$RDBU=
C$REFG=
CSRESE=
C$REVI=
CSRFLA=
C$RPT =
C$SEFG=
C$SPRI=
C$SVEC=
C$TPRI=
DATPTH
DEBUG =
DECFIN

000016
000015
000377
000007
000047
000033
000003
000021
000025
000046
000041
000037
000013
011724
ssss2s U
004052 G

748%
7484
7484
748¢
7484
748¢
7484
7489
7484
7484
7484
7486
7484
1791
2653
:ggg’

DECLCS
DEFMAR
DEFMR1
DEFMR2
DEL
=

051704
043713
037372
037402
000177 G
010634

3850
35474
3155
3156
9184

DFAULT

2450

1710

SEQ 0142

1603
1389

769

1134

1139

1145

1647

1664

1674

1698

1728

2381

2422

2460

2477

1752
3759
1434
2740

1829
3879
1526
2985

1899
4048
1719
3201

2089
4335
1818
3493

2185
4661

2260
5079

2348
5259
2161

2508

2641

2750

3001

|3237

2341
4565

4957

2368

2371
5228

2485

1454
1404

2408
1460

2430

2452

1440

1441

2406

2407

2428

2449

5271
3862

4252

4842

1891
3736

2016
3868

4002

2456

2469

2473

1446

1520

1521
2472

2246
4280

1541

1443

2366

1384

1388

2451

2454

1422
1438
769

1424
1587

1428
1482
18214
2762
1712
3871¢
3568
32294
32304

17424

2455

2467

2468

2471

1523
1506

1586
1566

1609
1607

1681
1682

1692
1693

1708

3012
1787

3593
1857

3771
2123

3891
2215

4060
2291

4347

3570

2901

2405

5309

4673
3193

5091
3410

CZLNADO LNO1
CZLNAD.P11
DFPTBL
DIAGMC=
DIAGTB
DIAGX
DIAGO
DIAG1
DIAG1l2
DIAG13
DIAG14
DIAG15
DIAG16
DIAG17
DIAG2
DIAG3
DIGITS
DISANL
DMAR
DONE
DOORDY
DOORD1
DOORSW
DOOSWI
DOOSW1

N11

TEST
DNMAC X24.07-563
10-APR-84
09:07
PAGE 7-5
10-APR-84 08:55
CROSS REFERENCE TABLE -- USER SYMBOLS

002252 G
000000
074364
074514
074532
074547
074616
074643
074670
074715
074742
074767
074564

074601
004540
027126
067126
013132
023372
023441
023265

003556
023342
DPTBL
045010
DROPED= 040000
DROPIT
005354

DRULE1

DRULE2
DRWVEC
DSSU
DTBL
DVEC
EF.CON=
EF .NEW=
EF .PWR=
EF.RES=
EF.STA=
EMAR
ENABNL
ENDHAB
ENDHR
ENDHT
ENDLD
ENDLRM
ENDPLP
ENDTBM
ENDTS
ENDVAB
END2
ENJUS
EOIGN
EOPLP
ERFLG =
ERRCOD
ERRFLG
ERROR =

5007
1174+
2718
4594
1884
2471
2472
2467

1069¢
2468
3459
9492
1152

043636

043664
052632
067504
044740
053417
000036
000035
000034
000037
000040
067142
027177
043566
043565
043564
074511
043562
043570
043563
044113
043567
010224
063472
042772
042676
000400
002332
002334
100000

8032
748
4939
4940
5007
5007
4990
4990
4990
4990
4990
4990
5007

3543¢

G
G
G
G

3545&
3987
4546
3458
4009
910¢
910
9104
910¢
910¢
4594
2729
3535¢
35344
35334
4935
35314
35374
3480
3488
3536%
1699¢
4275
3487
3470
1129¢
9814
9834
948%#

SEQ 0143

750
49904
S0074
50084
50094
50134
S015#
50174
5019#
50214
50234
50104

S011¢
1205#
27438
45984
18944
2503
25044
2501¢

2477
25024
35774
1303
13814

1381

1491

1595

1700

3556

3557

3560

3568

3569

3570

3574

3575

1258+
2418
1309

1299+
2419
1322

1308+
24264
1595

1320+
2437+
1644

3562

3569
3998
46224
35744
4029¢

1424
1422
45994
27440
3555
3556

4006%

5005¢
35326
3550
3569
1729
43234
35024
35014
1335%
1129
2393+
1154

3576
1736

1155«
2410+
1257

1330+«

1334

1451+

2438+

1661

1671

1700

2439

CZUNADO LNO1
ZUNAD.P11
ERRSVC

Bl2

TEST
DNMAC X24.07-563
10-APR-84
09:07
PAGE 7-6
10-APR-84 08:55
CROSS REFERENCE TABLE -- USER SYMBOLS

003046

10360
1811«
1941
2149«
2306+
2584+
2604+
2730+
2915
2943e
2975+

3149«

31662
3183«
3411e
3440«
3479»

3687
3705+
3727+
3851
3987+

42002
4219

4243»

4266+
4499+
4527
4559+
4849«
4922¢
4952+

ERRTBL

003050 G

ERR11
ERR12
ERR13
EVENTB
EVL
ExP
EXPL
EXPL1
ExPL2
EXPL
EXP2
EXP3
ExP4
EXRMAR
ESEND
ESLOAD

011010
011064
011147
074130
000004 G
060015

FAKE

FLAG

061153
061360
061452
060225
060444

060665

061103
043550
002100
000035
005462
000014 G
002270

5205
S224+
10370
2380+
1674
1728
1698

49840
9100
4205
4254
4255
4256
4206

1259
1816+
1942+
21509
2314«
25854
2605
2732
2917«
2947«
2976+
3150«
3167«
3184«
3412
3444+
3480«
3689+
3707«
3728+
3852
3988+
4204+
4222+
4244
4270«
4500+
4528+
4561+
4852+
4927s
4953«

5206

5225+
1132+
2423
17480
17490
1750¢

3529¢

42960
43050
43070
43080
42980
43000
43020
43040
3564

14020

1427

9584
247%

1450e

4207

4208
4209

7480
7480

9164

1335
1851«
1973«
2157«
2318«
2586«

2606¢
2733»
2919«
2948+
2978«
3151e
3168+
3185«
3414+
3445«
3484«
3690+
3709+
3730
3853«
3989«

4205+
4225+
4245

4273

4503+
4529«
4562+

4853+

4932e
4954

5209
5226+
1137
2458+

1369+
1856+
2008«
2215e
2323
2587«
2714
2735»
2921+
2949«
2979
3152«
3170e
3187

3415

3447«

3487¢
3691
3711e

3731
3854+
3990«
4206¢
4227«

4247
4275«
4504+
4531
4563
4854+«
4935+

5181s
5213

1430«
1857«
2014+«
2217«
2330e
2588+
2715s
2736+
2926
2953+
2982+
3153
3171e
3190
3417
3450«
3488+
3693
3712e
3732«
3856+
3994

4207¢
4228+
4252¢
4276
4505+
4536
4840+
«855e
4936
5182«

S5214e

1525
1865+
2123+
22184
2338+
2589+
2716
2737s
2927+
2957¢
2983
3154«
3173
3192
3420
3455
3489«
3694
37140
3733
3857
3996¢
4208«

4229¢
4253¢
4277¢

4506¢

1709
1869+
2125
2239
2388+
25924
2717e
2738e
2929
2959
3142¢
3155+
3174+
3193«
3421
3461+
3490«
3695+
3716+
5734
3859+
3997«
4209

4231e
4254¢
4278e

4508+

SEQ 0144

1710«
1877«
2130e
22444
2389
2593
2718«
2899«
2930+
2960+
3143»
3156+
3175«

3194+
3423+
3466+

3491
3697+

3719«
3842¢
3860+

3998+

4211
4232
4255

4487+

4509+
4541+
48436

1712
1881+
2135+
2291+
2412
2595+
2719
2900+
2933e
2962+
3144+
3157«
3176+
3195+
3428+
3467
3682+
3698+
3720¢
3843.

3999«
4212e

4233s
4256+
4488
4517
4543

4537«
4841+
4856«
4937¢

4540
4842+
4857«
4938e

5215¢

5216

5191
S5217e

4860+
49436
5192e
5218

5183«

5187

4859«

4942s

4844

1715«
1884+
2138+
2293
2416+
2599«
27254
2901+
2937«
2966+
3145
3158
3178+
3196+
3434+
34684
3683+
3700+
3722
3844
3864

1787
1886+
21424
2294+
2421
2600s
2726+
2902+
2938+
2968+
3146
3159+
3179
3408+
3437

4214+

4215+

4000¢

4236+
4257«
44328
4522
4544+
4845+

4861+

4945
5194«
5219s

3470

3684

3701
3723

3845e
35865+
4197

4239
4258+

4496+
4523
4546

4846
4862+
49456

5195¢

1790+
1887+
21444
2295«

2483«
2601+
2728+
2912+
2940+
2969+
3147«
3161
3181«
3409+
3438+
34744«
3685e
3702«
3724.
3846+
3866+

4198«

4216+
4241

4262+
4497«
4524+
4547«
4847+«
4914
4947«

5220e

5200+
S221e

1791«
1888+
2147»
2296+
2583
2602+«

2729

2914

2941+
2971+
3148+
3164+
3182«
3410«
3439«
3475
3686«
3704s
3725
3850«
3986+
4199

4218+
4242
4265+
4498+
4526+
4555

4348+

4917s
448

5201e
5222

1143
2875

1151

1385e

1463

1597«

1645.

1663

167 2e

1696

1726

2373

2404«

2408

2429

2430

2448¢

2452

2456

Jdobe

Sded

3566

769

1454

CZUNADO LNO1
CZLNAD.P11

Cle

TEST
09:07
DNMAC X24.07-563
PAGE 7-7
10-APR-84
10-APR-84 08:55
CROSS REFERENCE TABLE USER SYMBOLS

004534
067156
073155
~ ONDEM
073237
FONSLA
FONSLB
073255
FONTST
073132
FRAME
066707
FUN
050414
F$AU
= 000015
F$AUTO= 000020
F$ECN = 000040
FLAGDA
FMAR

1171e

4594
4849

4855
4857
4843
4576

3725
7480
7480
7480

1616
1850
2186
2368
2750
3388
3880

4565
FSCLEA=
FSDU

FSEND

000007
000016
000041

5274

7480
7480
7480

1627
1891
2200
2371
2751
3493
3895

4661
F $HARD
=

FS$HW

FSINIT=
FSUMP =
F$MOD

000004
000013

000006

000050
000000

F$MSG = 000011
FS$PROT= 000021
FSPWR = 000017
FSRPT = 000012
F$SEG = 000003
FS$SOFT= 000005
F$SRv = 000010
F$SUB = 000v02
FS$SW
= 000014
FSTEST= 000001

GE TADR
GE TMAY

105334
105452

5324

1180

46002
49620
49630
49640
49610
45860

814

818

1627
1891
2200
2371
2751
3493
3895

1719
1899
2210
2485
2765
3581
3985

766

4662

766

81e
1730
1901

5308
1585

1719
1899
2210
2485
2765
3581
3985

4662

1915
2751

2091
2765

4065
7489
7480
7480
7484
7486
748¢
7482
7480
7480
7480

2288
3581
5169
5334
5351

774

4661

2608

7480

1192

12030

814
1725

897
1734
1915
2260
2510

37540

5336
5332
803
1419
1434
2740

7480
7480
7489
748¢

1183«

SEQ 0145

766

5324
1610

2897
3582

4002

4678
5352
5336
810
1541

4002
4678

5332

897

1737
1915
2260
2510
3596

4048
4828

5362

1719

3596

4048

1418
1769
2089
2288
2608
3017
3759

4065
5079

4188

4280

1752
1938
2261
2513
3001
3673

1410
1754
2016
2273
2581
3014
3736

1418
1769
2089
2288
2608
3017
3759

1434
1784
2091
2341

1526
1818
2105
2348
2642

5349

4957

5362

4065

5079

4188

5080

3775
4335
5169

2161

2246
4280

1737

5274

5308

5319

835
1752

1784

3759

3840

1829
2581
3879

1850
2641
3985

1899
2712
4048

2750

5349
826
1627
2348
3673
5259

2364

3239

4002

1616
2350
3596

1938

4188

1434
1818
2105

4352

5259

1610
1831
2161
2354
2712
3239
4352

5259

2341

4565

3760
5324

2089
2897

2121
3001

4335

1831
2161
2354
2712
3239

2642
3201
3775
4335
5169

1769
2510
3775
5362

1754
2354

1585

2348

3201

3760
4280

1734

778

1818
3493
1410

2016
3868
1612
2273
3582
5096

3134

5352
1730

774

3017

2341
2641
3134
3760

4049
4957

4678

2186

1419
1784
2091

4828

4662

4352

S3380
53559

2897
3582

1410

1754
2016
2273
2581
3014
3736

1891
3736
1418
2261
3243
5080

2985
897
2105
3014

4336

1725

1901
2246

900

1752
1938
2261
2513
3001
3673

aar2

2368

4957

1831
2513

2185
3133

4601

1612
1845

2185
2364

2740
3243
3879

1612
1845
2185

2364

2740
3243
2879
4472

526C

1616
1850
2186

2368
2750
3388

4472

4565

2371
5228
1845
2642
3895

2485

<210
3237

2260
3388
SCT9

4328

5319

1901
2658

4049

ZUNADQ ILNO1
CZLNAD.P11
GETVEC
GMAR
GRID
GRID1
GVEC
GSCNTQ=
GS$DELM=
GS$DISP=
GSEXCP=
GSHILI=
GSLOLI=
GSNO
=
GS$OFFS=
GSOFSI=
GS$PRMA=
GSPRMD
=
GSPRML
=
GS$RADA=
G$RADB=
G$RADD
=

TEST
PAGE
09:07
DNMAC X24.07-563
10-APR-84
CROSS REFERENCE TABLE -10-APR -84 08:55

5335
4594

105351
067172
025507
025654
053545
000200
000372
000003

0C0140
000000
000040
GSRADL
= 000120
G$RADO= 000020
GS$XFER= 000004
GS$YES = 000010
HANRDY
023132
HANRD
1
023217
HANRSW
022675
HANSWI
003503
HANSW1
023006
HANSW2
023073
HILOSQ
025427
HMAR
067206
HOE
= 100000
HORA
067554
HORB
067562
HORC
067571
HORD
067600
HORDEF
032562
HORE
067607
HORF
067624
HORG
067641
HORH
067656
HORTB1
037115
HORTB2
037237
HOR3
067752
HOR4
070222
HORS
070232
HOR6
070242
IBE
= 010000
IDMAR
066636
IDU
= 000040
IDVCNT
067712
IDVEC
067666
= 020000
IER
043606
IGNORA
1GNORB
043611

2593
2595

1432

1654

1685

1695

7480

1454
1454
5334
5351
1454

2408
2408
5335

2430
2430

2452
2452

2456
2456

2469
2469

2473
2473

5334
5334

2408

2430

2452

2456

2469

2473

5350

2408
5335

2430

2452

2456

2469

2473

5350

2408

2430

2452

2456

2469

2473

5334

2454
2455
2449
1068¢
2450
2451
2600
4594

9100
4624
4624
4624
4624
2912
4624
4624
4624

4635

4655

26308
26370

1317

4624
3152
3153

53390

46010

40344

748¢
7480
7489
7489
748¢
7480
7480
7489
748¢
748

SEQ 0146

4009
748¢
748¢
748
748¢
7480
748%
7482

7489

7-8

USER SYMBOLS

4655

9100
45810
210¢
4553
4552
2100
3539¢
35404

5351
1454
5334
1454
24992
25000
24964
2460
2497¢
24989
2602
46020

26279

46260
4627¢
46280
46300
46310
46320
46336
3182
3183
46390
46560
4657¢

32200
32240

46589

46360
46350

3564
3564

3566
3566

5335
5335

5335

5351
5351

5350

5351

ZUNADO LNO1
ZLNAD.P11
IGNORC
IGNORE
IGNOR1
IGNOR2
IGNTBL
IGNTBP
IGSEC
IGTBL
IGTBLP
IMAR
INDEX
INHINT
INSTRC
INSTR1
INTCAN
INTERR
INTERL
INTFAC
INTHOL
INTLK
INTSUB
INTOO
IOCTRL

TEST
DNHAC X24.07-563
10 -APR-8
10-APR-84 08:5
CROSS REFERE

043615
007202
043571
043623
044532
044544
043103
044474

044514

067222
002340
002264
024751
025140
104422
010516
003622
010554
010546
022244

104431

104624
004740

35412
1506
3538¢
35422
3476
2477
3484

3441
3442
4594

988¢
828¢
2586
2587
5238
1682
10702
1709

1693
2388
5239
1480

1278¢
1851
1973
2157
2318
2586
2606
2733
2912
2948
2978
3151
3168
3185
3414
3445
3484

3690

3709
3730

3853
3989

4205
4225
4245
4273
4503
4529
4562
4853
4932
4954
5209
5226

3566
15492

El2

g PheL £1CE USER SYMBOLS
PAGE

7-9

SEQ 0147

1607

35664
3567¢
3503¢
35644
3565¢
4603%

2370
26140
26164
52414
17260
1740¢
1736¢
2489¢
52429
52840
1369
1856
2008
2215
2323
2587
2714

2735

2921
2949
2979
3152
3170
3187
3415
3447
3487
3691
3711
3731
3854
3990

4206
4227
4247
4275
4504
4531
4563
4854
4935

5181
5213

1430

1857
2014
2217
2330
2715
2736
2953
3153
3171
3190
3417
3450

3693
3712
3732
3994
4207

4228
4276
4505
4536
4840
4855
4936
5182
5214

1710
1877
2130
2244
2389
2593
2718
2899
2930

1715
1884
2138
2293
2416

3143
3156
3175
3194
3423

3145
3158
3178
3196
3434

3491
3697
3719

3683
3700
3722

3998
4211
4232
4255
4487

4000
4214
4236

4509

4541
4843
4859
4942
5191

5217

2725
2901
2937

4257
4492
4522
4544
4845
4861
4945

5194

5219

1790
1887
2144
2295
2483
2601
2728
2912
2940
2969
3147
3161
3181
3438
3474
3685
3702
3724

3846

4198

8216
4241
4262
4497
4524

asa7
a8a?

4914
4947

5200

5221

1791
1888
2147
2583
2602
2729
2914
2941
2971
3148
3164
3182
3410
3439
3475
3704
3725

3850
3986
4199

4218

4265

4498

4555
4848
4917
4948

5201
5222

1811
1941

1816
1942
2150
2314
2585

2730
2915
2943
2975
3149
3166
3183
3411

2732

3479
3687
3705
3727
3851
3987

3480
3689
3707
3728
3852

2149
2306

4200
4219
4243
4266
4499
4527
4559
4849
4922
4952
5205
5224

2917
2947

2976
3150
3167
3184
3412

3988

4204

4222
4244
4270
4500

4528
4561
4852
4927

4953
5206
5225

CZLNADO LNO1
CZLNAD.P11
IODRV
ISR
=
IVEC
IVEC2
IXE
=
ISAU
=
ISAUTC=
ISCLN =
IsDU
=
ISHRD =
ISINIT=
IsMOD =

TEST
DNMAC x24.07-563
10-APR-84
09:07
PAGE 7-10
10-APR-84 08:55
CROSS REFERENCE TABLE -- USER SYMBOLS

004542
000100 G
053475
053615
004000 G
000041
000041
000041
000041
000041
000041
000041

ISMSG = 000041
ISPROT= 000040
ISPTAB= 000041
ISPWR = 000041
ISRPT = 000041
ISSEG = 000041

ISSETU=
I¢SFT =
ISSRV =
IsSUB =

000041
000041
000041
000041

ISTST

000041

JUSSEQ
JUSSPA
JUSTFY
JUSTIF
JUSTOF
JUSTON
JSJIMP =
LANSEL
LEFRI
LETTBL
LF
=
LFM
LINCNT

LNO1TB
LOBYTE=
LOE
=
LOOP
LOT
=
LPBUF
LPCSR
LPDROP

Fl12

104466
057616
057636
057767
054062
054055
000167
020416
025332
052750
000012 G
033040
002272

070212
000377
040000 G
033350
000010 G
002446
002352
004060

1223¢
910
4009
4009
910¢
748
748¢
7482
74848
5332¢
748¢
748

1915¢
27518

406590
748¢
7488

7488
7484
748¢
748¢
3388
748¢
53498
7488
748¢
3388
7486

2121¢
25086
3388¢

4280
5238
42858
4214
4199
4045¢
40449
7480
2323
2589
3991
915¢
2976
225:0

1
4557
9516
910¢
2923+
910¢
10094
1003¢
1652
2470
1092

SEQ 0148
\

5290
40320
4036¢
8149
15852

818¢
1610¢

53364
1419¢
7660
2091¢
27654

1434
897¢
2105¢
3014¢

4662¢

15410
14104
2200¢
32390

22610
32430

22734
35820

23500
3596¢

23544
37600

17694
25100
37756

18314
25139
388024

18452
26424
3895#

26584

43524

1526
900¢
21864
30170

1627
3673

1784
3840

1850
3985

1938
4188

2121
4472

2210
4828

2288
5169

2364

2581

2712

2897

3134

5352#
1725¢
1627
3673
1627

17300
1784
3840
1719

17344
1850
3985
1752¢

17370
1938
4188
17846

S2740
el2l
4472
1818

53086
22190
4828
1829¢

S5319¢
2288
5169
18504

2364

2581

2712

2897

3134

1891

19382

20892
2485
32372

43364

46780

14184

50800

16120

50960

16160

S2604

17540

S3240

53624

19019

4049%

7742

2161
2581¢
3493

2185¢
2608
55816

22100
26410
36736

43358
5239

44720
52450

4565

4227
42950

4242

42870

23440
26199
4009¢
1864
29950
1810+

2246
27120
3736
46610

22600
2740
37596
48280

22880
27508
38400
4957

2341
2897¢
3868

23480
2985
3879¢

31342

2016
2371
3201

5169¢

1899¢
23644
3001
3985¢
5228

S079¢

41882

1876

1949+

1984«

2146+

22234

2224+

2230

2237

2242

2409»

2413

2414

1251+
1691

1307
16949
i

1347«
1699«

1383«
1717

1470
2379

1471
2382«

1643
2432

1048+
2453

46550
1595
2946

30004

1228+
1156«

1242+
1223

1471
1235+

1669+
1246+

1660
2479

1670

1675+

1683+

1384

CZUNADO LNO1
CZLNAD.P11
LPERR

G12

TEST
ONMAC X24.07-563
10-APR-84
09:07
PAGE 7-11
10-APR-84 08:55
CROSS REFERENCE TABLE -- USER SYMBOLS
11292
1851

004126

1973
2157
2318
2589
2716
2737
2927
2957
2983
3154
3173
3192
3420
3455
3489
3694
3714
3733

3857
3996
4208

4229
4253
4277

4506
4537
4841
4856

4937

LVEC
LVEC2
LSACP
LSAPT
L$AUT
LSAUTO
LsCCP
LSCLEA
Ls$CO
L $SDEPO
LSDESC
LSDESP
LSDEVP
LS$DISP
Y
LS$DL

003006
002412
036624
002274
002310

053133
054005
002110
002036
002070
002256
002106
007266
002032
002011
002262
002076
002060
002132
002116

9608
9660

2135
2400
2464+

(2l lalnlalalalala
sl ln]

LPINTR
LPVEC
LRMAR]
LSTCNT
LUNIT

5183
5215
1030¢
1006
3148

4009
4009
769¢
769¢
769¢
769
7690
769
7690
7690
769

1369
1856
2008
2215
2323
2592
2717
2738
2929
2959
3142
3155
3174
3193
3421
3461
3490

3695
3716
3734

3859
3997

4209
4231
4254
4278
4508
4540
4842
4857
4938

5187
5216

1481+
1475
32100

1633
2138
2406
2465

4019¢
4042¢

1430
1857
2014
2217
2330
2593
2718
2899
2930
2960
3143
3156
3175
3194
3423
3466
3491
3697
3719
3842
3860
3998
4211
4232
4255

4487

4509
4541
4843

4859

4942

5191

5217

1482
1482

1525
1865
2123
2218
2338
2595
2719
2900
2933
2962
3144
3157
3176
3195
3428
3467
3682

1709
1869
2125
2239
2388
2599
2725
2901
2937
2966
3145
3158
3178
3196

1710
1877
2130
2244
2389
2600
2726
2902
2938
2968
3146
3159

3179

3698

3720
3843
3862
3999
4212
4233
4256

4488
4517
4543

4844
4860
4943

S218
1566

1636+
2142
2412
2467

1638
2144
2416
2471

1432

1654

1662
2150
2431

1585&
7902

7864

2135
2291
2483
2601
2728
2912
2940
2969
3147
2161
3181
3409
3438
3474
3685
3702
3724
3846
3866

1791
1888
2147

1811
1941
2149
2306

2587

2585
2605
2732
2917
2947
2976
3150
3167
3184
3412
3444
3480
3689
3707
3728
3852
3988

2714
2735
2921
2949
2979
3152
3170
3187
3415

3487
3691
3711
3731
3990

4204
4222
4244
4270

4206
4227
4247
4275

1816
1942
2150
2314

2588
2715
2736

2926

2953
2982
3153
3171
3190
3417
3450
3488
36932
3712
3732
3856
3994

4207
4228
4252
4276

4528
4561

4504
4531
4563

4927
4953

4935
5181

4536
4840
4855
4936
5182

2129
2397«
2455

2130
2398
2459

4852

5213

5225

5214

1566

8149

1317

1790
1887
2144

5200
S221

5192

769¢
7698

1712

1881

4198
4216
4241
4262
4497
4524
4547
4847
4914
4947

7690

769

SEQ 0149

1685

1695

1673
2157

2445«

1697
2377
2446

1727
2378
2447

2128+

2391
2450

HZ
CZLNADO LNO1
CZLNAD.P11
LSDTP
LSDTYP
LSDUT
LSOVTY
L SEF
LSENVI
LSETP
LSEXP1
LSEXP4
LSEXPS
L$SHARD
LSHIME
L$HPCP
LSHPTP
LSHW
LSICP
LSINIT
LSLADP
LSLAST
LSLOAD
LSLUN

TEST
DNMAC
10-APR -84 08:55

002040 G
002034 G
002072 G
002242 G
002052 G
002044 G
002102 G
002046 G
002064 G
002066 G
105314 G
002120 G
002016 G
002022 G
002252 G
002104 G
005516 G
002026 G
105544 G
002100 G
002074 G

LSMREV
LSNAME
LSPRIO
LSPROT
LSPRT
LSREPP
LSREV
L$SOFT
L$SPC

002050
002000
002042
002122
002112
002062
002010
105374
002056

G
G
G
G
G
G
G
G
G

LSSPTP
L$STA
L$SW
LSTEST
LSTIML
LSUNIT
L10001
L10002
L10003
L10004
L10005S
‘L10006
L10007
L10010
L10011
L10012

002024
002030
002264
002114
002014
002012
002256
002260
002270
007200
007454
011224
010544
010552
011772
013202

G
G
G
G
G
G

L$SPCP

L10013
L10014
L10015
L10016
L10017
L10020
L10021
L10022

002020 G

015152
016514
017314
020436
023474
025722
027354
033352

7692
7690
7692
769
769
7690
769
7692
7694
769¢
769
7694
7690
7692
769
7692
769
769¢
769
769¢
769¢
1459+
769

X24.07-563

10-APR-84
09:07
PAGE
CROSS REFERENCE TABLE - -

7-12
USER SYMBOLS

SEQ 0150

7914

53322

803&

1419¢
5361
1133a

1460

1138+

1462

1144.

1285+

1590«

1593

1439

1458

1288+

1298

1646+

1662+

1564

1589

1355
1673»

1384
1697+

1402+
1727

1628

2126

2374

7694

769%
769
769¢
7694
769¢
769
769¢
7698
7699
769¢
769

769¢
7690
769¢
803
818¢
826
1434
1610¢
1719
17300
1737¢
1818
1891

2016
2161
2246
2341
2368
2608
2740
2985

7740

5349

826¢

1284
810¢
835¢
1526

1403

1541¢

17520
18294
1899¢

20890
2185¢
22600
23480
2371
2641

27504
30014

2485

25084

1403
2447

1404

2459+

1405+
24764+

CZLNADO LNO1

CZUNAD.P11
L10023
L10024
L10025
L10026
L10027
L10030
L10031
L10032
L10033
L10035
L10036
L10037

TEST

037456
045072
050420
052014
054070
063604
070252
101614
104622
105304
105334
105414

DNMAC X24.07-563

10-APR-84 08:55

3201
3493
3736
3868
4002
4280
4565
4957
5228
53190
5332
5349

2975
4501
832¢

2993¢
4590
1151

MIDSEC
MIDSEQ
MISCON
MRESET

037443
043561
103532
006661

3174
35300
5183
15310

32330
3568
52320

MSGCNT

002606

1018¢

1241

2218
49652
2716
42920
1520
927¢
1978
1943
1942
4497
42910
3694
1521
3687
3685
1440

22520

MSGADR

MULINE
NEWPG
NLMODE
NO
NOCLCK
NOINTR=
NONBF1
NONBUF
NONCHR
NORMAR
NOSPA
NOTAB
NOTIM
NOTUND
NOUND
NRCT16

NGT17
1sELTB
NUM

NVEC
0DDTB
OFFJU
OFFJUS
OFFSET
OFFSPA
OFFUN
ON
ONEFIL=
ONESVN
ONETEN
ONJU
ONJUST
ONSPA

ONUN

002706

017157
073340
027264
057661
007043
000003
014507
014124
014010
066673
057656
050046
007105
050117
047770
006542

006625
074070
015150

053203
074142
066657
063551
052666
057645
067437
057654
000001
043534
043520
066652
063544
057651

067411

5350

10240

1441
4850

20862
4009

49850
45830
4211
40070
42880
4607
42900
40
3474
3437
45820
4204
12894

4606

PAGE

CROSS REFERENCE TABLE

I12

7-13

SEQ 0151

-- USER SYMBOLS

53360
53520

032672
067036
002266

105414

09:07

32372
35810
3759
38790
4048¢
4335¢
46610
5079¢
5259¢

MARDEF
MARTBL
MAXERR

MGTINT

10-APR-84

53540

1240

1342e
1344«

27450

1535¢
1330
2052¢
20240
2021¢
4509
3700
15360
3731
37410
15290

45850
37440
37460

15300
49820

40210
4232

4244

4266

4328%

8
35280
35270

2654

3013

4061

4219

4241

4258

43270

46169

4614%

3564

4348

4674

S092

S272

CZUNADO LNO1

CZLNAD.P11
OUN
OUTBUF

OUTTIM
OVTEST
0$APTS=
OsAU
=
0$BGNR=
0$BGNS=
0$DU
=
OSERRT=
O$SGNSW=
OSPOIN=
0$SETU=
PAPRDY

PAPRSW
PAPSWI
PAPSW1
PAPSW2
PAPTST
PARAM1
PARAM2

TEST

050411
003114

003702
020372
000000
000000
000000
000001
000000
000000
000001
000001
000000
022604

022356
003402
022462
022542
022673
043256
043272

PARAM3
PARAM4
PARAMS
PARAM6
PARAM7
PARAM8
PARAM9
PARM10
PARTBL
PAR2
PAR3
PARS
PATCH
PATTER

043306
043322
043336
043352
043366
043402
043416
043446
044140
043454
043470
043504
105500
011770

PLOC
FLP

007176
042636

PGEND

073722

DNMAC X24.07-563_

10-APR-84 08:55

10-APR-84

09:07

CROSS REFERENCE TABLE

3723
1052¢

37530
1429+

1430

1524+

2138
2314
26032
2908+
2938
2979
3164
33912
3404+
3467
3674+
3716

2144
2317«
2604
2909+
2940
2983
3166
3392+
3405+
3475
3675+
3732

2149
2318
2720
29102
2941
3135«
3170
3393+
3414
3489
3676+
3847+

2150
2325
2725
2914
2943
3136+
3173
3394a
3415
3555
3677+
3857

18682+

1869

4212
4482+
4561
4948
5209
1072¢
2296
7488
748¢
7484
748¢
7489
748¢
7482
748¢
748¢
2428

4216
4483+
4606
4952
5226
1139
2343¢
769
769
769
767¢
769
769
767¢
767¢
769
249449

1067¢
2406
2407

2422
2492¢

2405

2412
35136
35140

3515¢
35164
35176
3518
3519¢
35206
3521¢
35230
3418
35240
3525¢
35264
5360
1793s

49722

15384
3468

PAGE

1872

4218
4484+
4607
S173s

1877

4229
4485+
4635
51742

Jle

7-14

1525

17144

1715

2156+
2330
2726
2915
2947
3137«
3175
3395«
3417
3556
36782
3859

2157
2332
2732
2917
2948
3138+
3178
3396+
3421
3557
3679+
3863+«

2225
2338
2733
2921
2949
3139«
3181
3397»
3423
3560
3680
3864

1885+

4233
4486+
4908+«
51752

1886

4245
4504
4909«
S5176s

1950

4253
4506
4910+
5177+

769
769
769
5361

24910

2493¢

2495¢
3555
3554

3569
3555

3556

3570

3554
3554
3554
3554
3554
3554
3561
3560
3554¢

3555
3556
3556

3556

3574

3557

3562

3574

3560
3557
3561

5568
3560
3576

3561

3569

1794

18244

3500#

SEQ 0152

-- USER SYMBOLS

3575

1799
1973
2239
24154
2736

2953
31404+
3185

3398+
3561
3681+

4192+

4276
4508
4911+
5178+

1811
1985
22434
2416
2903+
2927
2959
3141»
3187
3399+
3439
3569
3697
4193+

44774
4524
4912+

5179+

1815+
2244
24204
2904+
2929

1816
2013+
2301

2421
2905+

2930

3157
3190
3400+

3158
3192
3401+

3570
3698
4194+
4478+

3571
3705
41954

5180+

5192

3440

4531
49134

4479
4540
4945

1860
2014

2482+
2906+
2933
2971
3159
3194
3402+

3574
3707

4196+
4480+
4544
4944

5195

1865
2137+
2308
2483
2907+

2937
2978
3161
3390+
3403+
3450
3575

3709
4200
4481+
4547
4947

5206

CZULNADO LNO1
CZLNAD.P11

K12

TEST
DNMAC X24.07-563
10-APR-84
09:07
PAGE 7-15
10-APR-84 08:55
CROSS REFERENCE TABLE -- USER SYMBOLS

PLPTBL
PLP3
PLPS
PLP8
PLP9
PL1
PL2
PL3
PNT
=
PORSEL
PORSEQ
PORS@G

045060
043134
043143
043152
043161
051773
051777
052005
001000 G
020423
066576
013150

35784
35044
3505¢
3466
3507¢
3851
3852
3854
9104
2295
4576
1881

PRAM10O
PRI
=

043432
002000 G

35224
Q108

PORT

PRINTR

066374

002314

4498

3856

38744

23454
4578&
18954

4569¢

1283

1288

1369«

1430+

1525+

1709

1710+

1712+«

17154

1787+

1790+

1791+

19412
2149+
2306+
2584+
26042
2730+
29152
2943+
29754
3149+
3166
31832
3411+
3440+
3479+

1942+
2150+
23142
2585+
2605+«
2732+
2917+
2947+
29762
3150+
3167+
3184+
3412+
34444
3480+

19732
2157+
2318+
2586+
2606+
27332
2919&
2948+
2978+
3151+
3168+
3185«
3414«
3445+
3484+

2008+
2215&
23232
2587+
2714+
2735«
2921+
2949+
2979+
3152+«
3170
3187+
3415»
3447+
3487+

2014+
2217+
2330«
2588+
2715
2736+
2926+
29532
2982«
3153+
3171+
3190+
3417«
3450+
3488+

2123+
22184
2338+
2589«
27164
2737»
2927+
2957+
2983+
3154+
3173+
3192+
3420s
34554
3489+

2125+
2239+
2388+
2592+
2717+
2738+
2929%
2959s
3142+
3155+
3174+
3193»
3421+
3461+c
3490+

2130+
2244s
2389+
2593+
27184
2899«
2930+
2960+
3143+
3156+
31754
3194+
3423+
3466+
3491+«

2135«
2291+
2412+
2595+
2719=
2900+
2933+
2962+
3144«
3157+
3176+
3195+
3428+
3467+
3682+

21384
2293s
2416+
2599«
2725+
2901+
2937+
2966+
3145+
3158+
3178+
3196+
3434+
3468+
3683+

2142+
2294«
2421+
2600+
2726+
2902=
2938+
2968+
3146+
3159+
3179+
3408+
3437+
3470+
3684+

2144«
2295%
2483+
2601+
2728+
2912+
2940+
2969+
3147+
3161+
3181+
3409+
34382
3474+
3685+

2147=
2296+
2583s
2602+
2729
29144+
2941
2971s
3148»
3164
3182»
3410+
3439+
3475
3686+

3705¢
3727+«
3851+
3987+
4200+

3707«
3728+
3852+
3988+
4204+

3709+
3730¢
3853s
3989+
4205+

3711s
3731«
3854«
3990+
4206+

3712«
3732«
3856+
3994+
4207+

3714«
37334
3857+
3996+«
4208+

3716+
3734«
3859+
3997+
4209+

3719
3842+
3860+
3998+
4211+

3720«
3843+
3862+
3999
4212+

3722+
3844s
3864+
4000s
4214«

3723+
3845+
3865+
4197+
4215+

3724
3846+
3866+
4198
4216+

3725
3850+
3986+
4199
4218+

4266+

4270+

42738

4275+

4276+

4277+

4487+

4488+

4492+

449+

4497+

4498»

4847+
4914+
4947»
5200«
5221«

4848e
4917e
4948+
5201«
5222«

4219+
4243+

= 000000 G
= 000040 G
= 000100 G
= 000140 G
= 000200 G
= 000240 G
= 000300 G

3578

970&

1811s

3687+

PRIOO
PRIO1
PRIO2
PRIO3
PRIO4
PRIOS
PRIOS

3578
3578
35064
3578
3853
3875¢
38764

SEQ 0153

1816#

3689+

4222+
4244a

1851+

36902+

4225+
4245+

4499»
4527+

4500+
4528+

4503+
4529+

910¢
9104
910¢
910¢
9104
9104
9104

1428

4559+
4849+
4922«
4952+
S205¢
5224+

4561s
4852+
4927+
4953+
5206+
5225+

1856+

3691+

4227s
4247+

4504+
45314

1857+

3693+

4228+
4252+

4505+
4536+

4562+
4853+
4932»
4954+
5209+
5226+

4563+
4854+
4935+
S181s
5213+

4840+
4855+
4936+
5182+
5214+

1523

1609

1708

1692
1482

1566

1681

1682

1506

1607

5309

18652+

3694+

1869+

3695+

1877+

3697+

8229+
4253«

A4231s
4254a

4232+
4255+

4506+
45372

4508+
45408

45092
4541+

4841+
4856+
4937«
5183+«
5215«

1693

4278+

4842+
4857+
4938+
S187+
52164

5290

4843+
4859+
4942+
S191+
S217+¢

1881+

3698+

4233s
4256+

4517«
4543«

4B44As
4860+
49432
51922
5218«

1884+

3700+

4236+
4257+

4522+
4544+
ABASe
4B861ls
4945+
S194¢
5219+

1886+

3701+

4239+
4258+

4523»
4546+

4B46s
4862+
4946+
S195¢
5220«

1887+

3702+

4241+
4262+

4524»
4547+

1888+

3704+

4242+
4265+

4526+
4555+

CZLNADO LNO1
CZLNAD.P11

TEST
DNMAC X24.07-563
10- APR10-APR-84 08:55
CROSS

PRIO7 = 000340 G
PRTCHR
013066
PRTCTL
016150
PRTEN1
073743

PSSV

PTABAD
PTLINE
PUD

QUIET

067477

002312
051711
032522

005306

RDYERR
READY
RECTBA
RECTBB
RECTBL
RECTBO
RECC
REC1
REC1A
REC1B
REC10
REC11
REC12
REC13

003360
007006
074260
074322
074216
074154
075014
075214
075414
075614
100014
100214
100414
100614

REC16
REC2

101414
076014

REC4
RECS

076414
076614

REC14
REC1S

REC3

REC6
REC7
RECS
REC9
REINIT
REPCNT
RESET1
RESVEC
RLTV1
RMANL

SCALE
SECCNT
SECO
SEC1
SEC2
SEC3
SEC4
SEC5
SELBGN
SELDEC

L12

101014
101214

076214

077014
077214
077414
077614
004027

002646
006735
007204
104567
027337

033340
066566
066554
066415
066430
066456
066513
066542
074406
004031

REF ERENCE TABLEPAGE
-- US és SYMBOLS

910¢

1851
2130
4862
4541
969¢

3845
2902
1369¢
2240
2984
3861
4955
1066
1454
4925
4930

4920
4915
4986

4987
4988
4989

4986
4986
4986
4986
4986
4986
4986
4986
4986
4986

4986

4986
4986
4986
4986

1075¢
3195
4847
1021¢
1446
15620

5217
2719
2919

4490
4489
4500
45714
4523
4537
45744
4852

10764

9:07

SEG 0154

1586
1893¢
2163¢

49734
46214

38722
2989
1716
2245
3197
3867
5196
1664
15342
49882

1812

2307
3430

1817
2315
3436

1866
2319
3449

1870
2331
3457

1878
2339

1889

2484

1974
2594
3486

2009
2596
3492
4923

2015
2607

2155
2739
3718

2158
2980
3735

4001
5227

4210

4263

4271

3469
4279

4564

2408

2430

2452

2456

2469

2473

e217
3842

2293
3865

2583
3999

4197

a277

2714

2737
4487

4562

4840

1599+

2442+

2715

2738

2900

3143

3196

3409

3491

3562

5258

4918

3708
4928

4933

4949

49894
49874
49864

5025¢
5027¢
S5029¢
50312
4987
4987
4987
4987
4987
4987
4987
4987
4987

4989
4989
4989
4989
4989
4989
4989
4989
4989

4989

4987
4987
4987
4987
4987
4987
1790
3408
4936

4989
4989
4989
4989
1941

5181

1345+

1238+
1532¢
1601
5253¢
2735
2997¢

45776
45764
45700
4606
45724
45734
4635
49924
1856

1888

2584

2606

2605

2899

3142

SELEND
SELPIX
SEL11
SEQALL.
SEQEVE
SEQODD
SEQTAB

TEST
DNMA
10-APR-84 08:5

074502
004036
073444
074043
074000
074017
104364
002264
004046
027345
050332
057626
057612

SFPTBL
SKIP3
SMANL
SPACES
SPAJUS
SPAOFF
SQTAB1
104376
STACHR
017140
STATER= 000001
STATUS
002506
STHOR2
STOPS3
STRCNT
STTAB
STVER4
STVR4
SUBSEC
SVCGBL
=

104542
037415
002302
047775
067320
104533
103736
000000

SVCINS= 000000

1077¢

4846
49802
49784
4979¢

5188
8264
10792
2730

3704
4215
428449
5202

2220+

923%
1012¢

14912
5215
3168
963¢
3695

4606

S214
5201

748%
5349
748¢

1384
1441

1523
1674
1752
2366
2450
2477
SvCsuB= 000000
SVCTAG= 000000

SVCTST=
SYM

SYMD

= 000037
= 000007

Ml2

§ X24-07-563
42 "RBFERenER PRaLECE [5tR svmeoLs

3569
4848
4854

CZULNADO LNO1
CZLNAD.P11

3736
5259
748%
748¢

1829
2641
5336
7484
3134
1129%
1132¢
11984
13864
15894
1683¢
19544
22374
2413%

3683

4937

5003¢
3562

49684

3734
4954

3843
5182

3866
5225

3569

4576

4635

3846

4257

4265

4243

42860

2227
1308
1233+
1644+

2238+

22494

1245+
1661+

1250
1671

774

786

786
1404
1446

1422
1454

1685
1891
2371
2454

1692
1899
2381
2455

4000

SEQ 0155

4198

4278

4488

4563

4576

4635

4841

1257«
1700+

1303
2439s

1309+

1314

1316

1321+

1322+

1381+

790

791

803

1419

1585

5332

803

818
1425
1482

1139
1434
1509
1647
1728

1145
1438
1520
1654

1317
1440
1521
1664
1737
2348
2449
2473
3581
5228
5361

5238¢
3844
27472
3750

4228

52399
2223
1258

1154+
1595+
52504
32312

4273

3742¢
46090

52494
52344
7584
5361¢
7554

1388
1443
1526
1681
1818
2367
2451
2485
3759
5290

757¢
759

1899
2750
5352
7568
3388

11334
1229¢
1405¢
15904
16844
1961¢
22384
24234

5319

790

4002

5332

791

1423
1460
1587
1693
2016
2405
2456
2740
4048
5334

1424
1461
1603
1695
2089
2406
2460
27350
4280
5335

2161
2407
2467
2985
4335
5336

2428
2471

3237

1730
2341
2430
2472

4957
5351

3493
5079
5352

4048

1610
2456

4661

1730
2469
5079

1737
2473
5259

5319

5350

818
2185
3237

3581

1454
2348
3759

1784
3840

1850
3985

4188

4472

2121

2210
4828

2364

2581

2712

2897

11384
12344

11430
1238¢
1459¢
16284
16964
19890
2309¢
24454

11440
12430
1462¢
16420
1700¢
1996¢
23240
24460

11540
12440
14710
16444
17264
20104
23264
2458%

11740
1245¢
1479¢
1645¢
17930
21264
23330
24644

11778
1257¢
1486¢
1661¢
1803¢
2151¢
2377
2475%

11812

1183¢
13092
1567#&
16712
18102
2226&
2380&
27242

1188¢%
13812
1568%
1672%
19492
2232%
2398+
2731%

1458¢
1595¢

169440
19844
23024
24394

835

1938

1541
2408
3879

1607
1698

1134
1432
1506
1610
1719
2246
2422
2469
3201

1574

14914
16632
1806&

22242

23784
25974

1752

EZLNADPIT" 13 apR-8a 08:58 "2 07
SYMS

29324
11374
12334
14310
1593¢
1691¢
1975¢
23004
243146
29324

29444
11384
12344
145846
1595¢
16940
19844
23020
24390
29444

53124
11430
1238¢
14590
16280
16964
1989¢
23094
24454
53126

53140
11440
12434
14620
16420
17006
1996¢
23240
24460
53144

2185¢
32374

22604
3581¢

23484
37594

24084
38794

24304
40484

24524
43354

24560
46614

24694
50794

24734
S2594#

25084
53194

26413
53364

27504
5352¢

067456

4527

4528

016460

2140

351

067452

TABLDA
TABLE1

004522
016424

TABMS
TABS
TABSTR
TABTST
TABUCT
TABUND
TBMAR1
TOONE
TEM
TEXT
TEXTBL
TEXTBP
TEXT1
TEXT2
TEXT3
TEXT4
TEXTS
TEXT6

SEQ 0156

29184
11334
1229¢
1405¢
15904
16844
1961¢
22384
24234
29184

S$LSYM= 010000

TABLE2

cabds RErERenEE
TAaLE %S JstR svmeoLs

29134
1132¢
1198¢
13864
15894
1683¢
19544
22374
24134
29134

= 000007

N12

043174
050344
017142
036560
067274
067246
036614
051755
032724
061614
063506
063526
062031
062251
062476
062700
063110
063257

TICK
TIME
TIMOUT=
TOPBOT
TOPMAR
TOPNUM
TOPSEC
TOPVEC
TSET
TSTMRA
TSTMRB
TVEC
TXERR
TXNOIN
T$ARGC=

105310
105306
000002
025316
043736
044127
037435
053074
067337
042514
042552
053665
003655
003727
000001

T$CODE=
TS$ERRN=
T$EXCP=
T$FLAG=

001052
000012
000000
000040

7482

4526

1170
2133

3412
3693
2220
3144
4515
4514
3147
3860
29944
4309¢
4259
4260
4311¢
43134
43156
4317%
43194
4321¢

810¢

4529

1202¢
21804

4618¢

835¢

14544

15414

14714
16440
17264
20106
232606
24580
16104

11744
124506
14790
1645¢
17934
21264
23334
24640
17304

11764
12504

14804
16534
18004
2129¢
23744
24650
17374

11774
12574

14864
1661¢
18034
21516
23774
24756
1752¢

11814
12984

1491¢
16634
18064
22240
23786
25974
18294

1183¢
1309¢

15674
1671¢
18104
22264
2380#
27246

11884
13810
1568%
16729
1949¢
22324
2398¢
27314

1899¢

2089%

3001

4619%

2181¢

35094
37514
2251#%
3206¢
46084
4606%
3209#
38734

5310
5312+
924%
2588
35484
3551¢
3171
3989
4606
3411
3499¢
4009
1071¢
1073¢
7694

4325
4267
4268
4325
4325
4325
4325
4325
4325
5311+
53214
1320
2618¢
3568
3568
32324
40174
46114
3498¢
3570
4038¢
1134
1145
13840

24504
14530
7484

24514
24084
11340

53344
14344

818¢

11544
12440

53354
15264

-4325¢
43264

53142

53220

3571
3571

3574
3574

3575
3575

13884

14404

14414

14464

15200

15214

2405&

2406¢

2407&¢

2428&

2449

24544
24306
11390

24550
24520
11450

24674
24564
16474

24684
24690
16644

24716
24734
16744

24720
53344
16980

5335¢
172846

53504
23814

S5351¢
24224

24604

2477%

18184

18914

20164

21614

22464

2341¢

23684

23714

2485%

26084

53514
17194

CZUNADO LNO1
CZLNAD.P11

B13

TEST
DNMAC x24.07-563
10-APR-84
09:07
PAGE 7-19
10-APR-84 08:55
CROSS REFERENCE TABLE -- USER SYMBOLS

TSGMAN=
TSHILI=

000000
000377

7480
53342

2985¢

32010

5335

5351¢

TSLOLI=
T$LSYM=

000001
010000

53340
7480

5335¢
810

2348
5259

TSLAST=

TSLTNO=
TSNEST=

000001

000024
000000

27400
7480

2260
5079

5361
7488

1418¢
17540
21056
236408

3001¢
37606

43520

TSNNSO

000010

TSNSL

000000

TSNS2 = 000005
TSPTNU= 000000
T$SAVL= 177777

TS$SEGL= 177777
T$SUBN= 000000
T$TAGL=
TSTAGN=

177777

010040

53084
7660

2091
2765¢

TSTEST=

T$TSTM=

000000

000024

177777

3493¢

37360

38680

40020

42800

45650

49578

S22R0

5351¢
818

835

1541

1610

1730

1737

1752

1829

1899

2089

2185

2508
5319

2641
5336

2750
5352

3001

3237

3581

3759

3879

4048

4335

4661

7660

7740

778

803¢

8100

8140

818¢

8260

8350

8974

9006

14100

14190
17690
21216
25080
30140
37756

15410
17840
2185¢
25100

15850
18290
21860
25130

16100
18310
.
22000
25810

16120
18450
22100
26410

16160
18500
22600
26420

16270
18990
22616
26580

17250
19014
22730
27120

17300
19150
22880
27500

17340
19380
23480
27510

53240

46620

46780

48286

S079¢

S0800

50964

S1690

S2598

1752@
2091¢
2354¢
2897¢
37590
43360

5319¢

46610

17370
2089¢
23508
27650
35730
43350

44720

897

30170
38400
9002

31340
38790

53320
1410

32370
38800

53360
1418¢

32390
38950

53490
1612

32430
39850

53520
16160

2105
3014

2186
3017¢

22000
3239

2261
32430

22730
3582

2350
35960

778

803¢

810

8140

818

8260

1901

2658¢
4049

19159

2751
4065

835

1419¢

1541

1585¢

1610

16272

1899
27128
4048

19380
2750
41880

2089
28970
4335

21210
3001
44720

2185
31340
4661

22108
3237
48282

2260
33884
S079

22880
3581
51692

2348
36732
S259

1737

5332¢

5336

53490

5352

7480
7480
33880

16270
36736

17840
38400

18500
39850

1938¢
41880

21210
44720

22100
48280

22880
51690

23640

2581¢

27120

28972

31342

7480

7749

803¢

8140

8260

14190

1585¢

16270

1725¢@

17340

17840

1850¢

1938¢

22100

22880

23640

25810

27120

28970

31340

33880

36736

38400

39852

4188?

8970

14100

14340

14540

15260

15410

15740

1584¢

1754¢
22460
247
32010

18186
22600
24856
32370

182%¢
22610
25080
32392

1831¢
23418
25100
34930
43356
53350

18912
23486
26080
3581¢

43362
S5336e

18992
23500
26419
35820

45659
53509

1901¢
23682
26429
37362

25810

27126

28972

31342

44720

48280

16100
20160
23710
27400

16120
2089¢
24080
27506

7780

37596
46620
53528
7480

7860

37600
49570
53620

51690
8100

17190
20910
24300
2751¢
38680
50798

S2740

8180

1730¢
21610
24520
29854

38790
5080

53080
835¢

17376
21858
24560
30016
38800
52286

53320

17520
218606
24690
30140
40020
52594

53490

52740

1845¢

2642
3895¢

52742

1850¢
2641
3985¢
5362

7480

5260

1831

25136
3880

S2600

1829
25816
3879
532406
17340

5096

1769¢

2510
3775¢

35960
41880

17840
2508
3840¢
5319
1730

5080

1754

23540
3760

35820
40650

1752
23648
3759
5308¢

17258
7480
7480

46780

53620

35810
40490

43520

7740

4662

33880
40480

4336

21210
TSTEMP=

53610

SEQ 0157

40480
52600

40490
53190

42800
53340

46612
5351¢

16270

17840

18504

19386

2121¢

22100

22880

23640

33880

36730

38404

39850

41880

44720

48280

5169¢

S361

1404

1822

1424

1428

1434

1438
1523
1681
2016
2406
2460
2750

1440
1526
1682
2089
2407
2467
2985

1441
1541
1692
2161
2408
2468
3001

1443
1566
1693
2185
2422
2469
3201

1446
1586
1698
2246
2428
2471
3237

1454
1587
1708
2260
2430
2472
3493

1460
1603
1719
2341
2449
2473
3581

1482
1607
1728
2348
2450
2477
3736

1498
1609
1752
2366
2451
2485
3759

1506
1610
1818
2368
2452
2508
3868

1509
1647
1829
2371
2454
2608
3879

1520
1664
1891
2381
2455
2641
4002

1521
1674
1899
2405
2450
2740
4043

7480

4280

818

4335

1134

4565

1139

4661

1145

4957

1384

5079

1388

5228

1389

5259

529C

5309

ZUNADO LNO1

CZLNAD.P11
T$TSTS=

DNMAC X24.07-563
10-APR-84
09:07
PAGE 7-20
10-APR-84 08:55
CROSS REFERENCE TABLE -- USER SYMBOLS
7480

000001

33880
8142
1585¢
5332¢
803¢
1419¢

= 010002
TS$SAUT
T$SCLE= 010005
T$$HAR= 010036
TSSHW = 010001
T$S$INI= 010004
T$$PRO= 010000
T$$SOF
010037
T$$SRV
010035
T$$SW
010003
TSSTES
010033

T1C
T10
T11
T12
713
T14
T15
T16
T17
718
T19
T2
T20
T3
T4

TS5
T6
17
18
T9

UAM
UNDER
UNDERL
UNDMSG
UNDON
UNDROF
UNDSEQ
UNDTTL
'JNDUND
UNIT
UNOF
UNON
WwT
UWTEQO
VECSEQ
VECO
VvECO1

7740

5349¢
1725
826¢
1627
2161
2581e
3493
4335
786

007456
007472

010244

007476
025724
027356
033354
037460
045074
050422
052016
054072
063606
070254
011226
101616
011774
013204
015154
016516
017316
020440
023476
000200
053030
067415
050170
047764
053034
104463
050052
050265
002306
063562
063556
002336
003760
104440
053253
067761

cooooOOOOOOHOOOOOOO0

T1
T1A
T18

TEST

1635¢
1640
1634
786
786
786

16272
3673¢
818
1610
5336
810
1434
5352

1730
835
1719
2185
2608

3581
44720
16278
1706

41880

19380

21214
44724

22104
48280

1737

52740

53080

5319

17840
2246

1818
2260

3736

3759
4828¢

1829
22880
2750
384046

1850¢
2341
28972
3868

17840
38400

18504
39850

1526

1541

17340

1752

22100
2641
36730

27120

4565

4661

3722

37400

2740

1707¢
1637¢
2712¢
28979
31340
33880
36730
38400
39850

41880
44720
48280

17840
5169¢
18500

1938¢

2121¢
22108
2288¢
23640
2581¢
4011¢
4615¢

37470
3689

4012

4222

107460
5238

4009

4635

5239
37450
37490

52440

4231
4236

4239
43290

1386+
1388
5239

40230
46400

1387

52430

4247

43300

1452¢

1486+

4957

5079

SEQ 0158

22880
51690

23640

25810

27120

28970

31344

1891

1899
23640
3001
39850
5228

1938¢
2368
31340

2016
2371
3201

2089
2485
3237

21214
2508
33880

2348

2985
3879
5169¢

4002

5259

4048

41880

4280

D13

ESNABORAY! 187 AR sa BTG X24-07 563040
ARB: BAenEE Fai P CF UsBA svmeoLs
VECL
3
VERDEF
VERDE2

053350
0326272
032661

4009
2957
2966

40270
2960
2969

VERPOL
VERPO3
VERPOS
VERPO7
VERS.1=
VERTBL
VERTB1
VERTB2
VER2
VER3
VERS
VER6
VER?
VER8.S5
VFIVE
VFOUR
VFUCMD
VONEHF
VPA
VSIX
VSIXHF
VTHREE
VIWO0
WORK

053040
053046
053055
053064
000001 G
024642
036640
036762
066627
066664
067443
067462

3986
3990
40150
3996
919¢
2590
3149
3150
439
4499
4522
4536

40132
40140

025420
025364
025355
003110 G

WORK1

003112

X
XHOR
XVER

067734
067743

025402
025373
002342
025346
020430
025411

000040
037363
037106

X$ALWA= 000000
X$FALS= 000040
X$0FFS= 000400
X$TRUE
=" 000020
X0
016246
x1
016260
£11
016412
X2
016272
X3
016304
x4
016316
xS
016330
x6
016342
x7
016354
x8
016366
X9
016400

$BGNLE=
$BRUMP=

177777
000000

4635
4635
2612
2612
989¢
2601
2294
2612
2599
2612
2612
10410

2731
10420
2935«

S283¢
3154
3151

7480
7480
7480
7480
21660
2167¢
2147

40160
1711
2612¢
32110
32150
45800
45840
46174
46200
46370
46380
26240
26230
26209
23460
26250
26260
26220
26210
1479+

2925«
1431+
2939

52900
3184
32190

2180
2180
21770

SEQ 0199

29910
29920

1786

1977

2051

2122

2214

2290

1480¢
2926
1653+
2944s

1481
2936
1684«

1859+
2937
1858¢

1862
3696
1880

1871¢
3706
1944s

1874
3707
1949

1954+
3848s
1979«

1961+

1989«

1996+

2724s

1984

2924+

2928

2932+

1180
1303
1387
1590
1718
1863
1963

1184

1190
1310
1806
1602
1794
1871
1984

1192

1223
1316
1433
1643
1800
i875
1991

32280

2181
2181

21680
21690
21700
21710
2172¢
21730
21730
2175¢
7508
7500

2181
2181
2181
2181
2181
2181
2181
2181

1129

1136

1141

1151

1174

1175

1178

1227
1319
1439
1652
1807
1879

1236
1324
1459
1653
1810
1880

1239
1325
1492
1655
1813
1883

1247
1326
1499
1660
1814
18900

1254
1334
1510
1670
1855¢
1949

1283
1336
1519
1684
1858
1954

1286
1346
1565
1686
1859
1956

1294
1356
1569
1717
1861
1961

1307
1403
1600
1793
1867
1976

1314

1431
1606
1796

18373
1989

CZUNADO LNO1
cz LNAD.P11

TEST
DNMAC X24.07-563
0-APR10-APR-84 08:55
CROSS REF
1996
21600
2326
2445
2734

2942

3163
3424

3478
3849
4238
4530
4926

$SERFLG=

000400

5315

75080

1172¢
1228
12508
13419
1429¢
14758
1512¢
1596¢
1663¢
17002
1804¢
1871¢
1961¢
1997¢
2151¢
22439
23259
23809
24310
24590
2721¢
29139
2977¢
3189¢
34024
34520
36804

41938
44790
45259
49150

$FSAND=

$F $BAD=

000310

000401

51794
7506
1316
1660
2453

4224
4921
7504

1170
1189

1998
2226
2328

2453
2913

2945
3165
3427
3481
3855

4246
4542
4929

1132¢

2011
2228
2333
2457
2916
2946
3169
3429
3483
3858

E13

ERence TALE "t (sBR svmeoLs
2127¢
2230
2335
2462
2918
2951
3172
3433
3485
3993

4261

4264

493}

4934

454%S

4554
1137¢
1177¢
1234¢
1258¢
13440
1451¢

1229¢
1251¢
13420
1431¢
1479¢
1513¢
1597¢
16692
17140
1806¢
18729
19620
2003¢&
21569
23000
23260

1133¢
1176@
1233¢
1257¢
13430
14509
14800
1514¢

1481¢
1516

16716
1726¢
1808¢
18739
1968¢
20048
22200
23018
23270

16720
1727¢
1809¢
18740
1969¢
20108
2223¢
23020
23290

27220
2918¢
3135¢
3390¢
34030
34530
36810

2437¢
24650
27230
29238
31360
33916
34040
34580
36968

24386
24660
27240
&
3137¢
3392¢
34050
34590
37060

11742

23820
24320
24642

41940
44804
45386
49200
5180¢

1151
1326
1670
2470

4235
4926

1129
1171
1192

1599%9¢

23930

41950
44810
45390
49250
5188¢

1175
1334
1717
2591

4238
4931

1132
1172
1193

16042

2398¢

4196¢
44820
45520
4930¢
$189¢

1180
1346
1794
2946

4261
4941

1133
1174
1196

2128

2233
2340

2464
2920
29520
3177
3435

3696
3995

2134
2242
2370
2470
29220
2958
3180
3443
3699
4213

4269
4556
4941

4272
4558
4944

11382
1181¢
1235¢
12840
1345¢
14520
14864
15240
1628
16730
17290
18100
18760
1975¢
2013¢
22240
2303¢
23320
24040

11434
11824

24390
2475
27310
29256
3138¢

33930
3413¢

34760

37150

42130
44830
47530
49390
52020

1192
1387
1880
3419

4269

5190

1137
1175
1198

1238¢
12874
13474

14580
14910
15630
16420
16750
17360
1815
18852
1978¢
21260
22250
23050
23330
24090

2136
2300
2377
2474
2923
2961
3186
3446
3706

4217
4491
4560

4950

11444

11834

12400
12880

13810
14590
14974
15644

16440

16830
17930
1858¢
19430
1979¢
21280
22260
2308¢
23340
24100
24410
24794
29040
2932¢
31400
3395¢
3425¢
3483¢
38470

SEQ 0160

2141
2302
2379
2480
2925
2967
3188
3448
3710

4220
4493
4851
4951

11544
1185¢
12416
12984
13820
14620
15000
15670
1645¢
16840
1795¢
18590
19440

1983¢

2129¢
22270

23360
24130
24420
24810
2935¢
31419
33960

42340

36740
3848¢
4259¢

48500

49080

4485¢
49442

52900
1227
1439

2141
3433

4502

5310
1143
1177
1227

51730
S311¢
1239
1519
2152

3443
4516
5315
1144
1180

1228

2146

2148

2414
2598

2418
2724
2934

2309

2931
2977
3191
3454
3717

2311

2981
3413
3721

2152
2316
2419
2727
3160
3416

3726

4224
4507
4916

4230
4516
4919

4234
4518
4921
5208

11564
1189¢
12430

1169¢
1193¢
12444
1315¢

11709
1196¢
12459
13209
14024
14704
1505¢
1593#
1661%
1697#¢
1801¢
18642
19544
19902
21409
22379
2317¢
2377¢

5193

1385¢

14644

1502¢
1589¢
1648¢

16940
1799¢
18610
1949¢
1985¢
2133¢
2231¢
2312¢
23730
24208
25902
29072
29392
3163¢
33980
34320
367649
3863¢

42672
44902
49109

S175@
53140

1294
1602
2370
3460

5204

13869
14660
1503¢
15909
16532

16964
1800#
1862¢

1950¢
19899
21379
22320
23130
23749
24239
28472

25972
29089

2944%
31692
33992
34412
36772
3991¢

42689
45012
49112

5176
53162
1303
1606
2379
3478

4554

4558

1154
1182
1233

1155
1183
1234

24264
24484

2603%

31772
34422
36782
39928
44772

45142
49122

S177#2

1307
1643

2159
2324
2425
2731
2939
3162
3419
3462
3848
4235

4525
4924

5310
1171
11984
12469
1330#
1405¢
14710
1511¢
15952
16629
16992
18032
18682
19552
1996¢
21469
2238¢
23242
23782
24294
2458¢
2720%
29102

29672

3185¢
34012
34462
36798

41922
44788
4515¢
49132

S1782

1314
1652
2419

2414
3993
4851

4221
4916

1156
1185
1255

1169
1188
1238

g LNADO LNOL
¢

ZUNAD. P11

TEST

DNMAC

Xx24.07-563

1239
1284
1326
1385
1459
1497

1240
1287
1330
1386
1462
1500

1241
1288
1334
1387
1463
1501

1604
1662
1697
1799
1861
1948
1984
2131
2225

1606
1663
1699
1800
1862
1949
1985
2133
2226

1628
1669
1700
1801
1864
1950
1989
2134
2227

2332
2393
2431
2458
2597
2908
2944
3163
3398
3427
3460
3696

2333
2398
2432
2459
2603
2909
2946
3169
3399
3431
3476
3706

2334
2404
2437
2464
2720
2910
2958
3177
3400
3432
3477
3715

10-APR -84 08:55

1563

23032

4194
4267
4489
4553
4916
$F$BLA=
$FSCAS=
$FSDEC$F$DO

SFSFAL=
$F$GO0=

000170
000150
000220
000340

000405
000400

5175
5310
750
750¢
750¢

1564

2305

4195
4268
4490
4554
4920

5176
5311
1174

ag-APR-

CROSS REF

1565

2308

4196
4269
4491
4557
4921

S177
5312

1190

F13
4

RENSE ?i\BLEN-;g USE& SYMBOLS
09:07

7 -

1242
1294
1341
1402
1464
1502
1567
1642
1670

1243
1298
1342
1403
1466
1503
1568
1643
1671

1244
1303
1343
1405
1470
1505
1589
1644
1672

1245
1307
1344
1429
1471
1511
1590
1645
1673

1803
1868
1954
1990
2137
2229
2309
2336
2409
2438
2465
2721
2913
2967
3186
3401
3433
3478
3721
4213

1804
1871
1955
1996
2140
2230
2310
2337
2410
2439
2466
2722
2918
2977
3189
3402
3441
3483
3847
4220

1806
1872
1961
1997
2141
2231
2312
2370
2413
2440
2470
2723
2923
3135
3390
3403
3442
3674
3848
4221

1808
1873
1962
2003
2146
2232
2313
2373
2414
2441
2475
2724
2924
3136
3391
3404
3443
3675
3849

1714

4477
4501
4558

4925

5178
5314

1431

1717

4478
4502
4850
4926

5179
5315

1726

4479
4514
4851

4930

5180
5316

1433

1653

1403

1565

1257
1315
1381
1451
1481
1516
1597
1653

1251
1314
1347
1450
1480
1514

3137
3392
3405

1250
1309
1346
1439
1479
1513
1595
1648
1683
1736
1810
1876
1969
2010
2152
2238
2324
2377
2419
2445
2479
2903
2928
3138
3393
3413

3676
3863
4234

3677
3991
4235

4931

4939

4525
4910
4940

3678
3992
4238
4483

4538
4911
4941

4539
4912
49344

4192
4260
4485
4542
4913
S173

1655

1684

1686

2146

2148

2724

1727

4224
4480
4515
4908

5188

1246
1308

1345
1431
1475
1512
1593

16454
1675

1729
1809
1874
1968

2151
2237
2317
2374
2415
2442

2476
2731

4481
4516

5189

5190

1596

1652
1684
1793
1815
1880
1975
2013
2156

2243
2325
2378

2420
2446
2481

2932
3139
3394
3418
3453

5202

1691
1794

1858
1885
1978
2126
2220

2326
2379
2423
2447
2482

2935
3140
3395
3419
3454

3679
3993
4259

5203

1258
1316
1382
1452
1486
1519
1599
1660
1694
1795
1859
1943
1979
2128
2223
2301
2327
2380

2426
2448
2590

2936

3141
3396
3425
3458

1283
1320
1383
1458
1491
1524
1602
1661
1696
1797
1860
1944
1983
2129
2224
2302
2329
2382
2429
2453
2591
2907
2939
3160
3397
3426
3459
3681
4193
4261
4486
4552
4915

5174
5290

2727

2731

2734

2925

2934

3849

3433
4558

3443
4851

3454
4916

3460
4921

3478
4926

3993
4931

4261
4941

4269

4491

4502

4516

4542

4554

1132

1133
1174

1138
1176
1223
1244
1303
1341
1402

1143
1177
1227
1245
1307
1342
1403

1144
1180

1334
1386

1137
1175
1198
1243
1298
1335
1387

1499
1524

1500
1563

1501
1564

1502
1565

1151
1181
1229
1250
1309
1344
1429
1471
1505
1568
1643
1671

1154
1182
1233
1251
1314
1345
1431
1475
1510
1589
16443
1672

1155
1183
1234
1257
1315
1346
1439
1479
1511
1590
1645
1673

1156
1185
1235
1258
1316
1347
1450
1480
1512
1593

1169
1188
1238
1283
1319
1381
1451
1481
1513
1595
1648
1683

7508

750¢
750¢

1170
1189
1239
1284
1320
1382
1452
1486
1514
1596
1652

1175

1129
1129

1171
1192
1240
1287
1326
1383
1458
1491
1516
1597
1653

1294

1172
1193
1241
1288
1330
1385
1459
1497
1519
1599
1660

1316

1196
1242
1294
1462

1602
1661

1463

1604
1662

3855

SEQ 0161

1464

1606
1663

1717

1466

1628
1669

2134

5190

1228
1246

1343
1405

1470
1503
1567
1642
1670

2141

2230

2591

3319

1646

1675

3427

GL13

FLNAD P! T53"apn aa DBTSS 1407 6% adc RBr ERenEE " PhaL EACE OsER SYMBOLS
1684
1793
1815
1880
1975
2013
2156
2243
2325
2378

2420
2446
2481
2904

2932
3139

3394
3418
3453
3678
3992
4238
4483
4538
4911
4941
SFSIF

$FSINC=

000110

000210

5202
7504

1252
1325
1439
1649
2154
2470
5310

750¢
1861
1976
2304
2462
2945
3172

3696

$FSLO0=
$FSNAM=

$FSNO

000200
000160
000403

4230
7500
7508
7509

1170
1189
1239
1284
1320
1383
1458
1491
1516

1691
1794

1858
1885
1978
2126
2220
2300
2326
2379
2423
2447
2482
2905
2935
3140
3395
3419
3454
3679
3993

4259
4484
4539
4912
4944
5203

1694
1795
1859
1943
1979
2128

2223
2301
2327
2380
2426
2448
2590
2906
2936
3141
3396
3425
3458
3680

4192
4260
4485
4542
4913

5173
5204
1153
1254
1331

1151
1253
1326
1442
1652
2370
2474
5313
1459
1863
1984
2309
2464
2951
3177
3699
4234

24890
2958
3180
3706
4246

1129
1171
1192
1240
1287
1326
1385
1459
1497
1519

1132
1172
1193
1241
1288
1330
1386
1462
1499
1524

1499

1656
2372
2478
5315
1492

1867
1989
2311

1696
1797
1860
1944
1983
2129
2224
2302
2329
2382
2429
2453
2591
2907

2939
3160
3397
3426
3459
3681

4193
4261
4486
4552
4915

5174
5290
1180
1261
1332

1507
1660
2379

2946
S317

1590
1871
1991
2316
2913
2961
3186

3710
4525

1133
1174

1196
1242
1294
1334
1387
1463
1500
1563

1697
1799
1861
1948

1984
2131
2225
2303
2332
2393
2431
2458
2597
2908
2944
3163
3398
3427
3460

3696

4194
4267

4489
4553
4916

S175
5310
1184

1283
1333
1510
1665
2383
2950
1600

1873
1996
2324
2916
2967
3188
3715

1699
1800
1862
1949
1985
2133
2226
2305
2333
2398
2432

2459
2603
2909
2946
3169

3399
3431
3476
3706
4195
4268

4490
4554
4920

5176
S311
1186
1286
1334
1517
1670
2414

4221

1793
1875
1998
2326

2918
2970
3189
5717

1700
1801
1864
1950
1989

2134
2227

2308
2334
2404

2437

2464
2720
2910
2958
3177
3400
3432
3477
3715
4196
4269
4491
4557
4921

5177
5312
1192
1289
1336
1519
1676
2417
4223

1717
1804
1871

2137
2229
2309
2336
2409
2438
2465
2721
2913

2140
2230
2310
2337
2410
2439
2466
2722
2918
2977
3189

3186

3401
3433
3478
3721

4213
4477
4501
4558
4925

5178
5314
1194
1303
1346
1522
1794
2419

1955

3402
3441
3483

3847

4220
4478
4502
4850
4926

5179
5315
1223
1307
1348
1602
1796
2425

1726

1729
1809
1874
1968
2004
2151
2237
2317
2374
2415
2442
2476

1872

1961
1997
2141
2231

2312
2370
2413
2440
2470
2723
2923
3135
3390
3403

2731
2925

3137
3392
3405

3442
3674

3676
3863
4234

3848

4221
4479
4514
4851
4930

4481
4516
4909
4939

5180
5316
1227
1310

5189

1239
1319
1387
1608
1882
2457

1349
1605
1798
2427

1736
1810
1876
1969
2010
2152
238
2324
2377
2419
2445
2479
2903
2928
3138
3393
3413
3452
3677
3991

4235

4525
4910
4940

5190

1247
1323
1390
1643
2152
2461

4226

4235

4238

4240

1800
1879
2011
2328
2920
2977
3191
3721

1807
1883
2128
2333
2923

1810
1949
2159

1813
1954
2226
2340
2931
3162

1858
1961
2300
2384
2939
3165
3483

185¢
1963
2302

1144
1180
1228
1246
1308
1344
1429

4944

1157
1175
1198
1243
1298
1341
1402

1138
1176

1223
1244
1303
1342
1403

1143
1177
1227
1245
1307
1343
1405

1501
1564

1502
1565

1503
1567

1466

1714
1803
1868
1954

EQ Ol1l62

4224

4530

1464

4950

1470

3413
3726

1471

1505
1568

2335

3160
3416

1151
1181
1229
1250

1345
1431
1475
1510
1589

3858

4217

1154
1182
1233
1251
1314

1156
1185
1235
1258

1346
1439
1479
1511
1590

1315
1347
1450
1480
1512
1593

1316

1381
1451
1481
1513
1585

2445
2942
3169
3485
4220

1169
1188
1238
1283
1319
1382
1452
1486
1514
15%

CZLNADO LNO1
CZULNAD.P11

TEST
DNMAC X24.07-563
0-APR-84
10-APR-84 08:55
CROSS REFERE

1597
1653
1691
1794
1858
1885
1978
2126
2220
2300
2326
2379
2420
2446
2481
2904
2932
3139
3394
3418
3453
3678
3992
4238
4483
4538

4911
4941
$FSOR

SFSRTI=
SFSRTN=
$FSSEL
=
SFSTHE
=

000320

000350
000300
000140
000330

$SF$TRU=
$FSUNT=

000404
000130
SFSWHI= 000120

$FSYES=

000402

5202

750¢

1316
1660
2453

4224
4921
7509
750@
750
750¢

1346
2370
7500

7509
7509

1718
3429

4261
4556
4941
7502

1156
1184
1229
1246
1287
1319

1599
1660
1694
1795
1859
1943
1979
2128
2223
2301
2327
2380
2423
2447
2482
2905
2935
3140
3395
3419
3454
3679

3993
4259

4484
4539
4912
4944

5203
1151
1326
1670
2470

1602
1661
1696
1797
1860
1944
1983
2129
2224

2302
2329
2382
2426
2448
2590
2906
2936
3141
3396
3425
3458
3680

4192
4260

4485
4542
4913

5173
5204
1175
1334
1717
2591

1604
1662
1697
1799
1861
1948
1984

2131
2225
2303
2332
2393
2429
2453
2591
2907
2939
3160
3397

3426
3459
3681

4193

4261
4486

4552
4915
5174

5290
1180
1346
1794
2946

4235
4926

4238
4931

4261
4941

1129
1151
1387
2379
1131
2222
1175
2134
3433
4264

1131
1180
1439
2414
1136
2242
1178
2136
3435

1136
1192
1519
2419
1141
2411
1180

4558
4951

1129
1169
1185
1233
1247
1288
1320

4269
4560

5190
1132
1170
1186
1234
1250
1289
1323

2141
3443

4272
4851

5193
1133
1171
1188
1235
1251
1294

1325

I-Il
E

7
PAGE
ABLE --

1606
1663
1699
1800
1862

1949
1985
2133
2226
2305
2333
2398
2431
2458
2597
2908
2944
3163
3398
3427
3460
3696

4194
4267
4489
4553
4916

5175
5310
1192

1387

1880
3419
4269
5190

1141
1223
1602

2453
2418
1294
2143

3451
449]
4858

5204
1137
1172
1189
1236
1252
1298
1326

)

SEQ 0163

uUs R SYMBOLS
1628
1669
1700
1801
1864
1950
1989
2134
2227
2308
2334
2404
2432

1642
1670

1714
1803

2140
2230
2310
2337
2410
2438
2465
2721

2459
2603
2909
2946
3169

2913
2967
3186
3401
3433
3478
3721

3399
3431

3476
3706
4195
4268
4490
4554
4920

4213
4477

4501
4558

4925

5176
5311
1223
1403
2134
3427

5178
5314
1239
1519
2152
3443

4491

5204
1149
1227
1606
2470

1643
1671
1717
1804
1871
1955

2439
2466
2722
2918

2977
3189
3402
3441

3483
3847

4220

4478
4502
4926

4516

5179
5315
1283
1565
2230
3454
4542

1283
1652

1303
1660

5315

1239
1643

1644
1672
1726
1806
1872
1961
1997
2141
2231
2312
2370
2413

1645
1673
1727
1808
1873
1962
2003
2146
2232
2313
2373
2414
2440
2470
2723
2923
3135
3390
3403
3442
3674
3848

4221
4479
4514
4851
4930

5180
5316
1294
1602
2370

4554

1307

1646

1675
1729
1809
1874
1968
2004
2151
2237
2317
2374
2415
2441
2475
2724
2924
3136
3391
3404
3443
3675
3849

4224
4480
4515

1648
1683
1736
1810
1876
1969
2010
2152
2238
2324
2377
2418
2442
2476
2731
2925
3137
3392
3446

3676
3863
4234

1303
1606
2379
3478

4558

1307
1643
2414
3993

4851

4221

1314

1326
1880
5310

1334
2152
5315

1565

1569
3424
3993

1717
3427
3995

5188

5189

4224

1324
2233

1356
2414

4493
4916

4502
4919

4507

1403
2591
3462

4921

4516
4924

2598
3478

4518
4926

4542
4929

4545
4931

1138
1174
1192
1238
1253

1143
1175
1193
1239
1254
1307
1331

1176
1194
1240
1257
1308
1332

1144

1149

1151
1180
1198
1242
1261

1153
1181
1223
1243
1283
1314
1336

1154
1182
1227
1244
1284
1315
1341

5208

1303
1330

1177
1196
1241
1258

1333

1310
1334

4235
4482
4525
4310
4940

4931

4221

1406

2378
2419
2445
2479
2903
2928
3138
3393
3413
3452
3677
3991

4481
4516
4909
4939

1670
4235

1316
2230
3454

1652
1684
1793
1815
1880
1975
2013
2156
2243
2325

1794
4238

3419
3481

5190

1314
1652
2419

4916

4554
4934

1155

1183

1228
1245
1286
1316
1342

CZUNADO LNOL1
CZLNAD.P11

TEST
DNMAC X24.07-563_
10-APR-84 08:55

1343
1387
1459
1497
1516
1595
1645
1670
1700
1799
1861
1944
1983
2129
2223
2301
2327
2379
2419
2441
2466
2720
2910
2950
3169
3399
3431
3476
3706
4195

4259
4484
4539
4912
4944
$IFLEvV=

177777

5203

7500

1283¢
13480
16020
17980
24530

$ISKO

$ISK1

000001

= 000001

$ISK2 =
$ISK3 =
$LO
=
SLOCTA=

000001
000001
177777
177777

42400

1151¢
1390
16430
2154
29460
5317
12270
12390
13190
1129¢
7508

1184
1261

1344
1390
1462

1499

1517
1596
1646

1671
1714
1800
1862
1948

1984
2131

2224

2302
2329
2380

2420

2442
2470
2721
2913
2958
3177
3400
3432
3477
3715

4196
4260
4485
4542
4913

5173
5204
1151¢
1289¢
1349¢
1605¢
18800
24614
53100
1153
14390
1649
23700
2950

1253
1252
1323
11314
7530

1186
1283

10-APR-84

I13

CROSS REFERE e PRaLe "t JsBR svmeoLs
1345
1402
1463
1500
1519
1597
1648
1672
1717
1801
1864
1949

1985
2133
2225
2303
2332
2382
2423
2445
2474
2722
2918
2967
3186

3401
3433
3478
3721

4213

4261
4486

4552
4915
5174
5290

1153¢
1303¢

1350#

1606¢
1882¢
24700
53136
1180¢
1442
1652¢
2372

1346
1403
1464
1501
1522
1599
1649
1673
1726
1803
1868
1950
1989
2134
2226

2305
2333
2383

2425
2446

2475
2723
2923
2977
3189
3402
3441
3483

3847

4220
4267
4489
4553
4916

S175
5310
1180¢
1307¢
1387¢

2152¢
24784
5315¢
1186
1499¢
1656
2379¢

PAGE

1347
1405
1466
1502
1524
1602
1652
1675
1727
1804
1871
1954
1990
2137
2227
2308
2334
2393
2426
2447
2476
2724
2924
3135
3390
3403
3442
3674
3848

4221
4268
4490
4554
4920

$176
5311

1348
1429
1470
1503
1563
1604
1653
1676
1729
1806
1872
1955
1996
2140
2229
2309
2336
2398
2427
2448
2478
2731
2925
3136
3391
3404
3443
3675
3849

4223
4269
4491
4557
4921

5177
S312

S178
S313

1192¢
1319¢
14390
16490
23700
29500

11940
13238
14420
16520
23720
42210

1192¢
1507
16600
2383

1194
15100
1665
24148

12230
1517
16700
2417

S3170

4223

42240

1307¢
13140
13264
11360
1129
1190
1286

1333
1332
1331

13340
13460

1349
1348

1131

1136
1194
1294

1141
1223
1303

1192
1289

4224
4477
4501
4558
4925

11860
13140
13900
16430
2154¢
29460

422140

11410

1349
1431
1471
1505
1564
1605
1656
1683
1736
1808
1873
1961
1997
2141
2230
2310
2337
2404
2429
2453
2479
2903
2928
3137
3392
3405
3446
3676
3863

4226

SEQ 0164

1350
1439
1475
1507
1565
1606
1660
1684
1793

1874
1962
2003
2146
2231
2312
2370
2409
2431
2457
2481

3138
3393
3413
3677
3991
4478
4502
4850
4926

5179
S314
12230
14990

16560
23790
42236
1261
1519¢
1676
2419

1381
1442

1383

1451
1481
1512
1589
1642
1663
1696
1796
1858
1882
1975
2013
2154
2238
2324

1479
1510
1567
1608

1661

1691
1794
1810
1876
1968
2004
2151
2232
2313
2372
2410
2432
2458
2482

2374

2414
2438
2461
2591
2907

2935
3139
3394
3418
3453
3678
3992
4234

2939
3141
3396
3425
3458
4192

4237
4481
4516
4909
4939

4479
4514
4851
4930

5180
5315
1227&
13312
1507¢

5189
5317
1252¢
13332
1517¢
16702
2417¢

1385
1452

1386

1513
1590
1643
1665
1697
1797
1859
1885
1978
2126
2156
2243
2325
2377
2415
2439
2464
2597

1514
1593
1644
1669
1699
1798
1860
1943
1979
2128
2220
2300

1486

2944
3160
3397
3426
3459
3681
4193
4238

4482

4910
4940

5190

1458
1491

2326

2378
2417
2440
2465
2603
2909
2946
3163
3398
3427
3460
3696

4i94
4240
4483
4538
4911
4941

5202

4224

42350

42374

12614&
1346%
1522%
17942
24272
42382

1283¢
1522
17942
2427

13032
1605
1880¢
2461
5310¢

1350
1606%
1882
24702
5313

13872
1608
2152#
2478
5315#

1175
1252
1319

1178
1253
1323

1180
1254
1324

23832

42350

4237

4238¢

1149
1227
1307

1151
1236
1310

1153
1239
1314

1174
1247
1316

12532
13342
15192
16762
2419%

CZLNADO LNO1
CZLNAD.P11

J13

TEST
DNMAC X24.07-563
10-APR-84
09:07
PAGE 7-27
10-APR-84 08:55
CROSS REFERENCE TABLE -- USER SYMBOLS

1325
1390
1519
1653
1796
1873
1989
2154
2316
2411
2470
2920
2958
3180
3443

3699

4213
4246
4542
4929
$LSKO =
$LSTIN=

000000
000000

5315
1129¢
7502

1154
1180
1198
1242
1283
1315
1343
1402
1462

1497
1519
1595
1646
1673
1718
1803
1861
1880
1963
1996
2134
2223
2242
2313
2336
2398
2426
2448
2479
2724
2916
2942
3137

1326
1403
1522
1655
1798
1875
1991
2159
2324
2414
2474
2923

2961

3186
3446
3706
4217

4261
4545
4931

S317
1131
751¢
1155
1181
1223
1243
1284

1316
1344
1403
1463

1331

1406

1565
1656
1800
1879
1996
2222
2326
2417
2478
2925

2967
3188

3448

3710

4220
4264
4554
4934

1136
1129
1156
1182
1227
1244
1286
1319

1332
1431
1569
1660
1807
1880
1998
2226
2328
2418
2480
2928
2970
3189
3451
3715

4221
4269
4556
4941

1141

1132
1168
1183
1228
1245

1333
1433
1590
1665
1810
1882
2011
2228

2333

2419
2591
2931

2977
3191
3454
3717

4223
4272

4558
4344

1334
1439
1600
1670
1813
1883
2l28
2230
2335
2425
2598

1336
1442
1602
1676
1814
1949
2134
2233
2340
2427
2724
2936
3160
3416
3460
3726

2453

2480
2727
2918
2944
3138

1346
1459
1605
1684
1858
1954
2136
2242
2370
2445
2727

3162

4851
4951

1133
1169
1184
1229
1246

1348
1492
1606
1686
1859
1956
2141

2372
2453
2731

1349
1499
1608
1717
1861
1961
2143
2302
2377
2457
2734

1356
1510
1649
1793
1867
1976
2148

3165
3427
3481

3172
3433
3485
3993
4238

3855

4226
4493

5190

4235
4516
4919

1143
1175
1192
1238
1257

1335
1383
1451
1481
1512
1570
1642
1669

1499

1524
1596
1648
1675
1726
1804
1862
1883
1968
1997
2136
2224
2243
2316
2337
2404
2429

SEQ 0165

1699
1797
1815
1874
1955
1985
2128
2152
2232

2377
2431
2457
2481
2731
2920
2945
3139

2332
2380

2420
2442

2470
2720

3162

2934
2977
3169

2383

2462
2916

4924

5310

1149
1177
1196
1240
1262
1310
1341
1386
1458
1491
1514
1590
1644
1671
1714
1800
1859
1876
1961

1990
2131
2159
2237
2311
2334
2384
2424
2446
2475
2722
2910
2936
3135
3177

1387
1517
1652
1794
1871
1984
2152
2311
2384
2464
2918
2951
3177
3435
3696
3995

4240
4530
4926

5313

1151
1178
1197
1241
1278

1314

1342

1387
1459

1492
1516
1593
1645
1672
1717
1801
1860
1879
1962
1991
2133
2220
2238
2312
2335
2393
2425
2447
2476
2723
2913
2939
3136
3180

CZLNADO LNO1

TEST

DNMAC X24.07-563

CZUNAD.P11 = 10-APR-84 08:55

000000

K13

crOSS REFERENCE TABLE Ot JsER symeoLs
3189
3401
3429
3454
3675
3721
4193
4246

3191
3402
3431
3456
3676
3726
4194
4259

3390
3403
3432
3458
3677
3847
4195
4260

3391
3404
3433
3459
3678
3848
4196
4261

3392
3405
3435
3460
3679
3849
4213
4264

4502
4553
4912
4938
S179
5312

4507
4554
4913
4939
5180
5314

4514
4556
4915
4940
5188
5315

4515
4557
4916
4941
5189
5316

4516
4558
4919
4944
5190

4518
4560
4920
4950
5193

4525
4850
4921
4951
5202

1186
1316
1403
1600
1793
1871
1989
2159
2326
2425
2727
2939
3163
3824
3478
3849

1190
1323
1406
1605
1796
1873
1991
2222
2328
2427
2731
2942
3165
3427
3481
3855

7500

4926

177777

PAGE

3188
3300
3427
3453
3674
3717
4192
4238

4240
4530
SNESTL=

09:07

3186
3399
3826
3452
3485
3715
3995
4235
4379

SLSTTA=

10-APR-84

4480

7520

4246
4542

4929

4481

4482

1129

1194
1324
1431
1608
1798
1875
1996
2226
2333
2445
2738
2945
3169
3429
3483
3858

4261
4545

4931

1131

1236
1325
1433
1649
1800
1879
1998
2228
2335
2457
2913
2950
3172
3433
3485
3993

4264
4554

4934

4483

1136

1247
1331
1442
1653
1807
1882
2011
2230
2340
2461
2916
2951
3177
3435
3696
3995

4269
4556

4941

4484

1141

1252
1332
1459
1655
1810
1883
2128
2233
2372
2462
2918
2958
3180
3443
3699
4213
4272
4558

4944

4485

1149

1252
1333
1492
1656
1813
1949
2134
2300
2377
2464
2920
2961
3186
3446
3706
4217

4491
4560

4950

7500

11290

1131

1136

1141

11490

11518

11860
1283¢
13260
14030
15220
16550
17980
1875¢
19910
21590
23240
24140
2474
29230
20610

11900
1286
1331¢
14060
15650
16560
18000
18790
19960
22220
23260
24170
24780
29250
29670

11920
1289¢
13320
14310
1569¢
16600
1807¢
18800
19980
22260
23280
24180
24800
29280
29700

11940
12940
13330
14330
1590¢
16650
1810¢
18820
20116
22280
23330
24190
25910
29310
2977¢

1223
13030
13340
1439¢
16000
16700
1813¢
18830
21280
22300
23350
2425
25980
29340
2981¢

12270
1307¢
1336
14420
16020
16760
18140
1949¢
21340
22330
23400
24270
27240
29360
31600

1236
1310
13460
14590
1605
16840
18580
19540
21360
22420
23704
24458
27276
29390
31620

31860
33460
37060
4217¢

31880
34480
37108
42200

3189¢
34510
37156
42210

31910
34540
3717¢
42230

34130
34560
37216
42240

34160
34600
37266
42260

34190
34620
38480
42300

SEQ 0166

3393
3413

3395
3418
3443
3477
3696
3863

4221
4269
4490
4539
4908
4926

5175
5208

1175
1286
1349
1522
1859
1961
2143
2309
2411
2480
2928
2977
3191
3454
3717

4226
4507
4916
5193

1175¢
1252¢
1319¢
1350
1507¢
16430
1718
1863¢
1963%
21469
23040
23792
2461¢
29134

31692

34832
3858¢

4237

3396
3419
3446
3478
3699
3991

4224
4272

4491
4542

4909
4929
5176

5290

1178
1289
1350
1565
1686
1861
1963
2146
2311
2414
2591
2931
2981
3413
3456
3721
4230

3397
3424
3448
3481

3706
3992
4230
4477
4493

4545
4910

4930

5177
5310
1180
1294
1356
1569
1717
1863
1976
2148
2316
2417

2934
. 3160
3416
3726
4234

3398
3425
3451
3483
3710
3993
4234
4478
4501
4552
4911
4931
5178
5311

1184
1310
1390
1590
1718

1867

1984
2154
2324
2418
2724
2936
3162
3419
3462
3842

4516
4919

4518
4921

4237
4525
4924

11782

1180&
1254
13242
13872
1517#&
1652¢
1794%
18712
19842
2152#
23112
23842
2464%
2918¢#
2951#
31772
34352
36969
3995&%

1184
1261%
1325
1390%
1519¢
16532
1796
18732
1989
21542
23162
24112
24702
2920%
29582
31802
34432
3699
4213%

1253¢
1323¢%
13562
1510
1649¢
1793¢
18672
19762

21489

23838
24624
2916¢
31728
34332
34852
39932

42382

42402

5313

4246%

L13

CHABOAN! 65 om0 GHE 2407563 cub0RE:
BAe\ 22 PA% R swrwors
CZLNA

$NSKO

TEST

000110

.07-

4261%
45450
;gi;’

42640
45544
49340

4269¢
45564
49416

42724
45584
49444

44910
45600
49500

449306
48S10
49114

45024
48584
51900

45074
49164
51934

45164
49194
52044

45184
49214
S2084

45254
492404
S310¢

45300
49266
531346

45424
45294
53156

1131
1283¢

1136
1286

1141
1289

1149
1294¢

1131¢
1356

1153
1387¢

11744
1390

1190
14034

1192¢
1406

1194
14314

12234
1433

1254
1439

1129¢
1261

$NSK2

000210

$NSK3 = 000110
$NSK4 = 000110
$NSKS = 000110
$SAVE = 050004
$SAVE2= 050005
$SAVLE= 177777

$SELLE= 000000
$SSKO = 050545

$SSK1 = 000402
$SSK2 = 050005
$TAGLE= 177777

1442
1602¢
1686
2222¢
2425
2916
31632

14594
1605
1717¢
2242
2427

1492
1606¢
1718
23004
24454

4502¢
4858

4507
49164
5208
1178
1798

45164
4919
5310
11804
1800¢

42384

4240

1807
1989¢
2228
24140
2950
494446

2931

2939¢

2942

3424
34834
3995

$NSK1

-APR

52044

1175¢

1796
1956
2152¢
2335
2936¢
4237
12394

29284

13142
1316¢
1319¢
7504
1129¢
7504

29184
3165
34274
3485
42136

1961¢
2154
23794
2945
1247

1325
1324
1323
11296

2920
3169¢
3429
3696¢
4217

1963
22264
2383
2946¢
1252

1332
13266

14994
1608
17930
2316
2462

1507
16430
1814
23244
24644

1510¢
1649
18580
2340
2480

4518
49210

45254
4924

4530
49260

29234
3172
34330
3699
42200
5313
1184

1307¢
1346¢

2951
3177¢
3435
3706
4230

S315¢
1186

1810¢
1991
22306
2417
34464
4950
1310

29584
3180
34430
3710
42346
5317

12274

1517
16524
1883
23704
2591¢

1519¢
1656
19494
2372
2598

1522
16604
1976
23774
27244

1565¢
1665
19840
2384
2727

1569
16704
2011
24114
273164

1590#
1676
21284
2418
2734

1600
16844
2159
24192
2913#%

45424
4929

4545
49314

45544
4934

4556
49414

45587
4951

4560
51904

48514
5193

2961
31864
3451
3715¢
4246

1236

29674
3188
34544
3717
42614

1253

2970
31894
3456
37216
4264

13034

29774
3191
34604
3726
4269¢

1350

2981
34134
3462
38484
4272

16534

3160¢
3416
34780
3858
44914

3162
34194
3481
39934
4493

1813
19964
2233
24536
3448

1859¢
1998
23020
2457
38494

1867
21344
2304
2461
3855

18714
2136
2309¢
24704
422140

1879
21414
2311
2474
4223

18804
2143
23264
2478
422448

1655

1882
= 1954#
21464
2148
2328
23332
29254
2934
4226
4235%

1794¢%

1333

13340

1336

1349

18614

1863

18732

1875

1348

1331

11494

1129

11496

11740

11786

13240

13560

14066

14314

1459¢

1569¢

15904

16532

1684¢
19848
23264
29456
3429¢

17186
1989¢
233386
29516
34354

1793¢
19960
23774
29616
34480

18000
21366
24458
29704
34510

18100
21430
24640
29810
34560

18634
21480
25984
31620
34620

18674
21594
27240
31656
34810

18756
22264
27314
31726
34850

18794
22334
29136
31809
3699¢

45302

19542
23092
29348
34164
37262
45454

1961¢
23242
29422
34242
38552
| 4556%

1129¢
1149

1131
11740

1136
11786

1141
132406

45184
52082

1949
2302
29318
31914
3717&

7506
1129¢

45078
51938

1883¢
23004
29184
31880
3710¢

13566

14060

14310

14594

15699

1590#

1653¢

168472

18674
21590
27240
31650
34816
42726

18756
22260
27316
317260
34850
44930

18790
22338
29138
31804
36990
45074

1883¢
2300¢
29184
31880
37104
45180

19494
23022
29318
31918
37170
45308

19542
2309¢
29348
34162
3726&%
4545&

19612
23242
2942%
34242
3855»
4556%

19842
2326%
2945¢
34329%
3858%
| 4560¢

38584
45604

39954
48584

42174
49190

42724
49504

44930
49516

11294
7504

1149
11294

1131

1136

1141

1149¢

1151¢

1153

11744

1175¢

1178%

1180%

11842

11904
12864
13314

11924
12894
13324

11946
12944
13336

12234
13034
13344

12274
13074
133606

12364
1310¢
134606

1239¢
13144
13484

12474
1316¢
13490

1252&
13192
13504

1253¢
13232
13562

1254&
1324&%
1387

1261%
1325¢
13902

11864
12834
13264

49244

49294

18630
21480
25986
3162¢
34624
42640

42640
49348

179360
19964
23776
29614
34480
42174
49190
1149

18104
21430
24644
29816
34560
42464

42460
49299

17186
1989¢
23334
2951¢
34356
399546

48580
1129¢

18004
21364
244506
29704
34514
42300

42304
49244

49340

49500

49516

51934

5208¢

CZLNADO LNO1

CZLNAD.P11

TEST

DNMAC

10-APR-84 OB:Sg
14032
1522¢
1655¢
17984
1875¢
19918
21594
23246
24144
24744
29234
2961¢
31864
34464
37062

$TAGNU=

$TEMP

050550

050547

X24.07-

563CR625AEBreRence T ABLEPAGE
-- uszg SYMBOLS

14064
1565¢
16564
1800¢
1879¢
1996¢
22224
23264
24174
24784
29254
2967¢
3188¢
34484
3710&#

14310
1569¢
16604
1807¢
18804
1998¢
2226#
23280
2418¢
2480¢
2928¢
29708
3189
34510
3715¢

14334
1590¢
16652
1810¢
18824
2011¢
22284

23330-

2419¢
25914
29314

29778
31910
34540
3717¢

y 2

14394
16004
16700
18134
18834
21280
22304
2335¢
24254
2598¢
29344
2981¢
34134
34564
3721¢

14424
1602¢
16764
18144
19494
21340

42214
4269%
45564
49418

42239
4272%
4558¢
49440

42244
44914
45600
4950¢

1129¢

1151¢

1283¢
1346¢
1643¢
1859%¢
21414
23774
25916
29774
34540

12864
1387¢
1652¢
1861¢
21469
23796
27240
31600
34604

11746
1294¢
1403¢
1653¢
1871¢
21520
24116
2731¢
3163¢
3478¢
42340

1175¢
13034
14310
16600
1873¢

1132¢
1169¢
11866
123690
1253¢
13100
13430
13900
14624
1497¢
1522¢
1599¢
1655¢
1684¢
17364
18084
18674
19440
19760
20044
21464
22294
23054
23284

42178
42614
4545
493142

42204
42644
45544
49340

7504

12544
13364
1606&#
18584
21344
2370¢
247446
29674
34464

S317¢

M13

42204
45544
7504

42210
45586
1129¢

42240
4851¢
1131¢

1154%
11834
12338
12504
12984
13364
1383¢
14528
14864
15144
15954
16484
16754
1726&
18044
18626
18834
1968¢
19974
21374
22268
2302¢
23254

1155¢
11844
1234¢
12514
13084
13416
1385¢
14580
14916
1516¢
15964
16494
16764
1727¢
18064
18630
1885¢
1969¢
1998¢
21404
22274
23034
2326%#

11564
11850
12354
1252¢
1309¢
13420
13860
14599
1492¢
15174
15974
1653¢
1683¢
17290
18074
18644
19434
1975¢
20034
21434
2228¢
23044
23274

49164

22334
23406
24274
27244
29364
31604
34164
34604
37264
42260

44934
48514
4951¢

14594
16054
16844
18584
19544
21364

22424
23704
24454
27274
29394
31624
34194
34624
38484
42304

45024
48584
51904

22224
24140
2913¢
3169¢
34834
4235¢

11804
13074
14394
16704
18804
22260
24180
29184
31774
36960
42384

1184¢
13104
14594
16844
19494
22304
24199
29230
31864
3706#
42610

11330
11700
1188¢
12384
12540
13154
13444
14020
14634
1500¢
15240
16004
16564
16864
17930
1809¢
1868¢
1948¢
1978¢
20100
214846
22314
2308¢
23294

11364
1171
11894
1240¢
1257¢
13200
1345¢
1405¢
14640
15014
1563¢
1604¢
1661¢
16916
17956
1810¢
18716
1949¢
1979¢
20114
21514
22324
23090
23324

11370
11720
11904
1241¢
1258¢
1323¢
13474
1406%
14664
1502¢
15640
1605¢
16624
16940
1796%
1813¢
18724
19504
1983¢
20134
21540
22334
23104
2333¢

49210

49264

49314

SEQ 0168

14924
16064
16864
18594
19564
2141¢
23004
23724
24534
27314
29424
31634
34244
34784
38494
42344
45074
49164

51934

11924
13144
14994
17174
19544
242546
2925¢
3189¢
37154

42694
49410
1138%
1174¢

1193
12424
12614
1324
1348¢
1429¢
14700
1503¢
1567¢

16634
1696¢
17978
18144
1873¢
19544
19844
21264
21564
22374
2311
23344

14994
16084
17174
18614
19614
21434
23024

15104
16494
17934
1867¢
19764
21484
23094

31654
34274
34814
38554
42354
45164
49194
52044

31729
34334
34854
3993¢
42384

23774
24574
27344
29454

23834
24624
29164

45254
49244

53104

12234
13164
15104
17934
1961¢
2302¢
2445%
2928¢
34134

1236#

3721¢
44910
49444
11412
11768
11948
1243&

1284¢
1325¢
13492
14312
14710
1505¢
15684
1628&
16652
1697¢
1798¢
1815¢
18749
1955¢
1985¢
21284
2159¢
22384
2312¢
23352

22424

23132
23364

15654
1796#
1989#
23244
2457%
29394
34278
38494
45162
52042
1144%
1178%
1198¢
1245
1287¢
13312
1356%
14422
1479¢
1511¢
15892
16442
16714
1700
18002
18592
1876#
1961&
1990&
21312
22234
22438
2316%
23374

15174
1652¢
17944
18714
19844
21524
23114
23840
24644
29184
2951¢
31770
34354
3995

15194
16534
17964
18734
1989¢
21544
23164
2411%
24704
29204
29584
3180#
34434
36994
42136

5313#%

5315#

42404
45304
49264

12394
13264
15904
18004
19964
24644

34332
3993#4

4525¢

S310#
11492
1181%
1228%
1246%
1288¢&
13328
13612
14502
14804
1512&
1590
1645
1672%
17142
18012
1860%
1879¢
19624
19912
2133
2224%
23002
2317¢&
23402

4246%
4542%
4929%

1247%
13342
16024
1810&
21284
2333%
24704
2958%
34435
4213%
4542%

S5315#
1153&
1182¢&
12292
1247%
12892
1333#%
1382#
1451¢
1481¢

15132
1593#

1646&
1673%
1718%
1803#%
18612
1882#

1963¢
1996#%
2136¢
2225%
2301#
2324%
23722

TEST

10-APR-84

N13

7
PAGE 7-3
08755 *24-07-363cpdls RErErentd’ ? ABLE
-- USER

23734
2413¢
24384
2462¢
2597¢
2905¢
29284
29614
3162¢

$TSKO

050547

33924
34054
3446¢
34854
3715
41924
42402
44824
4525
49094
49394
5188¢

11294
1289
1499%
1608
1793
2316
2462
29234
3172
34334
3699

42204
4518
4921
$TSK1

050545

5313
1129¢
1433
1793¢
2233
25914
2961
3186¢
3451
3715¢

4246

$TSK2

$TSK3

050536

= 050541

45424
4929

11294
1653%
1880¢
2143
23264
2934
42354
1129¢

23744
2415¢
24394
246446
25984
2906¢
29314
29674
3163¢
3393¢
34134
34484
3674¢
3717¢

41939
42469
44834
453049
49104
49404
5189¢#

1149
12948
1507
1643¢
1814
23244
2464%
2951
31774
3435
37064
4230
45254
4924

S315¢
1141¢
1459¢
1814
2300¢
2598
29674
3188
34544
3717

42616
4545
49314

11364
1655
1882
21464
2328
29364

4237

11314

23770
24174
24404
2465¢
2603¢
2907¢
29324
29709
3165¢
33944
34164
34514
3675¢
37210
41944
4259¢
44844

23784
2418¢
24414
24664
27204
2908¢
29344
29774
31694
3395¢
34184
34524
36760
37264
4195¢

51934
1151¢
1356
1510¢
1649
1858¢
2340
2480
29584
3180
34430
3710

S5202¢
1153

4538¢
49110
49449

42349
4530
49264

5317
1149
1492
1858¢
2316
27240
2970
3189
3456
37214

4264
4554¢
4934

1149
17944
19544
2148
23334
2945
42384
1149

42608
44854
4539¢
49124
49504

13874
1517
1652¢
1883
2370¢
2591¢
2961
3186
3451

37154

4246
4542¢
4929

11740
1565¢
1883
2324¢
2727
29774
3191
34600
3726
4269¢

4556
49410

1175¢
17964
1956
21524

2335

29464

4240

11754

23800
24204
24424
247446
27214
2909¢
2935¢
2981¢
31726
33964
34244
34536
36774
38474
41964
42644
44864
45456
49138
49516

52034
1174¢
1390

1519¢
1656
1949¢
2372
2598
29674
3188
34549

23820
24230
24454
24754
27224
2910
29364
31354
31774
33974
34254
3456%
3678¢
38484
42134
42674
44894
45520
49154
51734

S208¢
1190
1403¢

1522
1660¢
1976
23774
272460
2970
3189¢
3456

2383¢
24254
24464
24764
27234
29130
2939%¢
31364
31804
3398¢
34264
34584
36794
38494
42174
42684
44904
45534
49194
51744
52904
1192¢
1406

15654
1665
1984¢
2384
2727
29774
3191
3460¢

3717
42610
4545
4931¢

37210
4264
45544
4934

3726
4269¢

1190
1569
1949¢
2340
27314
2981
34130
3462
38484

12274
1590¢
1976
23774
2734
31604
3416
34784
3858

11804
18004
1963
22264
2383
34464

1236¢
1600
19844
2384
2913¢
3162
34194
3481
39930
4493
4851¢
5193
11844
1807
19894
2228
24530
3448

13074

13104

4272
4558¢
4951

1178
1798
19614
2154
23790
2950

494440

1178

44910
4560
5190¢

4950

SEQ 0169

SYMBOLS

4556
49414

23984
24294
24574
24804
27314

24044

29204

27344
29234

31394
31890
34014
34324
34764

31404
31914
34024
34354
34774

38634

39914
42304
44794
45144
48504
49294

42264
44784
45079
45600
49254

24314
24584

24814

S1774
53134
12544
14394
1600
16844
2159
24194
29134
3162
34194
3481
39934
4493
4851¢
5193

51784
53144
‘1261
1442
16024
1686
22224
24254
2916
3163¢
3424
34832
3995
4502%

1356
1684¢
2159
24459

14032
1686
22264

31692

36964

4858

52044

29234
3172
34332
3693

4217
4516%
4919

42208
4518
49214&

12474
1859¢
1998
23024
24708

1252
1867
2134¢

24094
24324
24594
24824
29034

2924846

29514
31414
33904
34034
34414
34814
37064
39924

42344
44804
45154
48584
49304

51794
53164
1283¢
14594
1605
17174
2242
2427
2918¢
3165
34272
42132
4507
4916%

1406
17172
2228
2464¢

31774
3435
3706%
4230

24104
24374
24614

25904
29044
29254
29584
31604
33914
34044
34424
34834
37104
39954
42374

44814
45184
4908%
49345
5180#
5317#

1286#
1492
1606#
1718
23004
2445%
2920
3169¢
3429
36964

4217
4516%
4919
5310

1431¢
1718
2230#%
2480
2958¢%
3180
3443%
3710

4525%
4924

42344
4530
4926%

1303#
1871#
2136
23094
2478

1350
1879
2141#
2311
2925#

42214

24744
4223

42244

4226

13364

1349

1800#

1807

ZLNADO LNO1

CZUNAD.P11

TEST

$TSK4

050321

$TSKS

050324

$TSKe
$TSK7

= 050040
= 050041

000403

$$ARGC=
$$81TE=

000000
000403

$SCASE=
$8DST =
$SELOC=

000404
000037
000402

$SERFL=

000000

$$FLAG=

000001

$SFRMB=

000000

$$FROM=
$SIN
=
$$INN =

000000
000000
000403

$$LOC

102165

DNMAC X24.07-563

10-APR-84 08:55

1810¢
1998
23336

éégg:
1129¢

1813
21340
2335

éé:;‘
1136

10-APR-84

09:07

PAGE

CROSS REFERENCE TABLE

B14

7-32

SEQ 0170

-- USER SYMBOLS

18590
2136
2925¢

1867
2l41e
2934

18716
2143
29360

1879
21460
2945

19540
2148
34460

1956
23020
3448

19610
2304
38490

1963
23090
3855

19890
2311
49440

1991
23260
4950

19960
2328

29280

2931

1141

1149

13160

1324

13260

1331

18610

1863

18730

1875

29280

14590

15900

16530

16840

1793¢

13140

1325¢

1332

13460

1348

18610

1863

1873¢

1875

2931
13166
13196

2939¢
1324
1323

2942

18730
23240
29360

19496
232606
29396

1954¢
23330
29586

19610
23770
2967¢

19840
24450
29776

19890
24640
31600

19960
27240
31630

21280
27310
31690

21460
29130
31770

22260
29180
31864

23000
29230
3189¢

7500
750

1151

11756

1180

11926

12236

12276

12390

12834

12940

13030

1174¢

34830

13160
1660
24530

14310

36960

37066

37150

42240
49210
7500

13266
16700
24706

42356
49264
11296

13340
17176
25910

13460
17940
29460

7500
750¢

22240
1151

11530

1252¢
1325
143960
16490
21540
24706
53100

7500

126106
13330
15100
166006
22300
25910

42240
45580

42380
49310
11310

12536
13260
14420
16520
23700
2474
S3136

1254
13316
14990
16560
23720
24780
53150

11510

11536

12830
13340
15170
16650
23700
29460

42260
48510

12890
13460
15190
16700
23720
29500

37210

38480

38490

1800@¢

42130

42610
49416
1136¢

13870
18800
34190

42690
51900
11410

14030
21340
34270

14390
21410
34330

15190
21520
34430

11800

1184

11860

11920

11940

12610
13320
15076
16600
237960
29460
S317¢
117560

44910
52040

12830
13330
15100
16650
23830
29500

1286
13340
15170
16700
24140
42210

11800

11860

45020
53100

45160
53150

18100

42200

18580

42340

18590

45250

18610

18710

23020
29250
34130

23090
29280
34460

1307¢

13140

49440

15650
22300
34540

16020
23700
34600

16060
23790
34780

16430
24140
39930

1652¢
24192
42210

12230

12270

1236

12390

1247

45420

45540

45580

48510

49160

12890
1336
15190
16764
24170
42230

13030
13460
15220
17940
24190
42248

13070
13480
16020
1796
2425
42260

1310
13490
16050
17980
24276
42350

13140
13500
16060
18800
24530
42370

13190
13870
16080
18820
2457
42380

1323¢
1390¢
16430
21520
24619
4240¢

11920

11940

12230

1227¢

12390

1252¢

1253¢

42350
49160

12940
13480
15220
16760
23790
34190

42370
49210

13030
13490
15650
17176
23830
34270

1307¢
13504
16020
17940
24140
34330

13140
13870
16050
17980
24170
34430

13160
13900
16060
18800
24190
34540

13190
14030
16080
18820
24270
34600

1323¢
14390
16430
21340
24538
34780

13264
14420
16490
21410
24610
39930

13310
14990
16520
21520
24708
42210

13320
15072
16564
21549
24780
42230

42380
49260

42400
49310

42610
49410

42690
51900

44910
S2040

45020
S3100

45160
53136

45420
S3156

45540
S317¢

1335¢

7500
13350
7500

13350

11296

11516

11756

11800

11920

12230

12270

1239¢

12830

12940

13030

1307¢

13140
16020
23704

13166
16060
23796

1319¢
16430
24140

13260
16520
24180

13340
16600
24190

13460
16700
24530

13870
17170
24700

14030
17940
25910

14390
18800
29460

1499¢
21340
34190

15100
21410
34270

15194
21520
34330

15652
2230¢
34432

11296
13160
16066
21430
29316
31910

11516
131960
16430
21484
29340
34160

11756
13260
16526
21590
29420
34240

11800
13340
16600
22300
29450
34290

11920
13460
16704
22420
29510
34350

12230
1387¢
17170
23700
29610
34480

12270
14030
17940
2379
29708
34510

12390
14390
18630
24140
2981¢
3450

17830
14999
18670
24180
31620
34622

1294¢
1510¢
1875¢
24190
3165¢
34812

34540
45420

750¢
13140
16020
21360
25910
31880

34600
45540

34780
45580

39930
48510

42210
49160

42240
49210

42350
49260

42380
49310

42610
4941¢

42690
51900

4491e
52040

45028
S3100

13032
15192
18790
24538
3172
33852

45160
S5315¢

13072
1565¢
18832
24702
3180¢
30992

Cl4

5t§£ 395701 'fis!npn 84 83?@& ‘3“-0"5°’ca685“82f8ae~8?=91alF“GE Jerd SYMBOL
3710@

$SLOCN=
$SOUT =
$SREG =
$SRETU=
$SRTN1=
$SRTN2=
$$SRC =
$$TGSv=
$$7GS1=
$$§7GS2=
$$TO
=
$$TOB =
$$TCTL=
$$STAG=

4518
5208¢
750@

000000
000000
177777
000000
000000
000000
000027
050006
050005
000000
000000
000000
000000
050000

7508
7508
750¢
7508
7508
7508
7500
7500
750¢

1335¢
13352
7504
7648

105544

1303
1439
1685
1883
2230

2951

3416
3462
3868

4246
4530
4858
49819

ABS.

105544

ERRORS DETECTED:

37260

38550

45452

45560

38580
45600

11360

1141¢

1149¢

10810
1314
1510
1717
1897¢
2246

1129

000

OVR

22240
1149¢

1131¢

791¢

1307
1499
1695
1891
2242
2485

2961
3419
3478
38772

4261
4542
4916

5190

2970
3424
3481
3993
4264

4545
4919

3427
3485

26390
3162
3433
35530

2257¢
2591

4269
4554

4921

5204

5193

REL

2016

1175
1319
1565
1794
2134

1316
1519
1719

GBL

CZLNAD,CZLNAD. SEQ/CRF : SYM/DOC =SPMACJ/ML , SVC33/M. ,CZLNAD P11

32K

DOCUMENT PAGES:

42170
4919¢

42300

1180

1192

49244

42460
4929

42649

42726
49504

44930
49510

1227

1239
1403
1654
1875
2152
2418

1283

49340

45076
51939

13350

RUN-TIME. 134 135 6 SECONDS
RUN-TIME RATIO: 585/276=2.1

CORE USED:

39954

4858¢

1335¢

2470

3717¢
45300

S5EQ 0171

(63 PAGES)
171

4008¢

4280
4558

4926

5228

1326

1602
1818

2136
2370
2740
3165
3435

3699

40460
43240
4560
4929

5237¢

1334

1606

1823¢

2141

2371
27480
5172
3443
3710

4217
4491
4565
4931

52560

1223
1346
1643
1863
2143

2379

2931
3180
3448

3717

1387
1652

1367
2148
2414
2934
3188
3451
3726

4221
4493
45932
4934

4224
4502

5310

5315

4605¢

4941

2942
3191
3454
3736
4230
4507

46230

4950

53572

1432

1660
1879

2159

2419
2945

3201
3456
3855

4235
4516

46342

4951

53602

1294

1434
1670

1880
2161
2453

3235¢

3858

4238
4518
4851
4957