Digital PDFs

AH-T344D-MC

July 1984

172 pages

Original

8.3MB

view download

OCR Version

7.5MB

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

OCR Text

LNO1 PRINTER DIAG
CZLMADO

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

EnEngEn

USER DOCUMENTATION CZt NADO

CILNAD, PLL

10 APR 84

ONMAC

08:55

x24.07 S63

10 APR 84

09:07

PAGE

5EQ 0001

REM £

IDENTIFICATION

PRODUCT CODE
PRODUCT

NAME:

T343D MC

CZLNADO LNOL1

MAINTAINER:

SMALL

PRODUCT

FEBRURRY

DATE:

AUTHOR:

GLENN

DIAG

SYSTEMS DIAGNOSTICS

1984
PERNA

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

CQUIPHMENT CORPORATION.

RESPONSIBILITY

FOR

ANY

DIGITAL EQUIPMENT CORPORATION ASSUMES NO

ERRORS

THAT

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

THE

FOLLOWING ARE

DIGITAL
DEC

(C)

MAY

APPEAR

THE
USE
SUPPLIED

OR
By

THMIS

DOCUMENT,

RELIABILITY
OIGITAL
OR

1984 BY DIGITA. EQUIPMENT CORPORATION

TRADEMARKS OF

PDOP

DECuS

DIGITAL

EQUIPMENT

UNIBUS

DECTAPE

CORPORATION:

MASSBLS

ITS

USER DOCUMENTATION CZLNADO
10 APR 84 08:5%
CZLNAD. " 11

ONMAC X24.07 S63

10 APR 84
TABLE

NPV

1.9
1.1
1.2
1.3
1.4
.5
0
1
2
.3

HARDWARE

SOF TWARE QUESTIONS
EXTENOED P-TABLE DIALOGUE
QUICK STARTUP PROCEDURE

DEVICE
TEST

o
o

PERFCRMANCE

QUESTIONS

ERROR

CONTENTS

OPERATING INSTRUCTIONS
COMMANDS
SWITCHES
FLAGS

GENERAL INFORMATION
PROGRAM ABSTRACT
SYSTEM REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
DIAGNOSTIC HMIERARCHY PREREQUISITES
ASSUMPTIONS

.S
.6

09:07

INFORMATION
AND PROGRESS REPORTS

INFORMATION TABLES

SUMMARIES

PAGE

SEQ 0002

1
—-2X

t N TATION
lskxphCJUNA
bz 8&:5%

DNMAC

X24.07
.

563

1.0

GENERAL

i.1

PROGRAM ABSTRACT

APR

09:07
:

PAGE

SEQ

INFORMATION

THIS DIAGNOSTIC PROGRAM VERIFIES PROPER PROPER OPERATION OF THE
LNO1 ELECTRONIC PRINTER AND ITS ASSOCIATED M7258 CONTROL WUNIT
WHICH INTERFACES TO THE PDP-11 CPU. THE BROAD RANGE OF TESTS
ASSURES A COMPREHMENSIVE TEST OF THE FUNCTIONAL CAPABILITY
THE PRINTER. THE INDIVIODUAL TESTS ARE IDENTIFIED AS

FOLLOMS:

TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST

1
2
3
4
S
6
7
8
9
10
11
12
13
14
15
TEST 16
TEST 17
TEST 18
TEST 19
TEST 20

INTERFACE LOGIC
DATA TRANSFER PATHS
PRINTABLE CHARACTERS
NON-PRINTABLE CHARACTERS
PRINT CONTROL
MULTIPLE LINE ADVANCE
OVERSTRIKE
INTERLOCK
ABSOLUTE AND RELATIVE POSITIONING
LINE FEED NEWLINE MODE
POWER -UP DEFAULT
TABS
MARGINS
UNDERL INE
PARTIAL LINE UP, PARTIAL LINE DOWN
DRAW VECTORS
JUSTIFY
PORTRALY
FONTY
MISCELLANEOUS CONTROL FUNCTIONS

THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE
RUNTIME SERVICES SOF TWARE (SUPERVISOR).
THE INTERFACE TO THE OPERATOR AND TO THE
THIS PROGRAM CAN BE USED WITH XXDP.,

FOR A COMPLETE DESCRIPTION OF

WITH THE DIAGNOSTIC
TMESE SERVICES PROVIDE
SOF TWARE ENVIRONMENT.

THE RUNTIME SERVICES,

REFER

TO THE XXDPe+ USER'S MANUAL.
THERE IS A BRIEF DESCRIPTION OF
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT,

1.2
1.2

SYSTEM REQUIREMENTS
SYSTEM REQUIREMENTS
A TEST STATION IS REQUIRED CONSISTING OF A PDP-11 CPU WITH A
MINIMUM OF 28K WORDS OF MEMORY AND A CONSOLE TERMINAL WITH
INTERFACE AT DEVICE ADORESS 777560. THE SYSTEM ALSO REQUIRES
AN XXDP SUPPORTED DEVICE SUCH AS AN RKOS/RK11l DISK DRIVE
AFFORD A MEANS TO LOAD THE DIAGNOSTIC PROGRAM,

1.3

RELATED DOCUMENTS AND STANDARDS

1.4

DIAGNOSTIC HIERARCHY PREREQUISITES

2003

b1
USER DOCLMENTATION CJZL NADQ
10 APR 84 08:55
CZLNAD.P11

ONMAC

x24.07 563

THIS DIAGNOSTIC

10 APR 84
IS

09:07

COMPATIBLE

PAGE

WITH

ALL

SEQ 0004

MEMBERS

THE

PDP

COMPUTER FAMILY. THE DIAGNOSTIC IS INTERFACED 10 THE PDP
DIAGNOSTIC SUPERVISOR THROUGH WHICH IT INTERFACES 10 THE
ENVIRONMENT,

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

1.5

ASSUMPTIONS
THE PRINTERS UNDER

PLACED

ON LINE

MUST HAVE

TEST

SHOULD HAVE POWER

IN READINESS

FOR

TESTING.

APPLIED AND BE

THE

LINE

PRINTER

ITS OWN M7258 CONTROLLER SET UP AT A DEVICE

ADDRESS. THE DIAGNNSTIC PROVIDES A DEFAULT DEVICE ADDRESS OF
777514 WHICH CAN BE USED WHEN A LINE PRINTER 1S BEING TESTED.

IT WILL BE NECESSARY FOR THE OPERATOR TO RUN THE LINE PRINTER
OFF LINE IN THE SELF (EST MODE BEFORE RUNNING THE DIAGNOSTIC.
2.0

OPERATING INSTRUCTIONS

THIS
FOR

SECTION CONTAINS
DETAILED

2.1

COMMANDS

THERE

ARF

ELEVEN LEGAL

(SUPERVISOR).,

THE

START
RESTART

START
START

THE

XXDP.+

THE

RUNTIME

USER'S

SERVICES.

MANUAL

(CHQUS).

DIAGNOSTIC RUNTIME

SERVICES

XXDPe. USER'S MANUAL HAS MORE DETAILS.

THE DIAGNOSTIC FROM AN INITIAL STATE
THE DIAGNOSTIC WITHOUT INITIALIZING

CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER t(C)

CONTINUE FROM AN ERROR MALT
RETURN TO XXDP» MONITOR (XXDP+ OPERATION ONLY!)

ADD

ACTIVATE

A UNIT FOR

TESTING (ALL

CONSIDERED TO BE ACTIVE AT START

UNITS ARE

TIME

OROP

DFACTIVATE A UNIT

DISPLAY

8Y THE DIAGNOSTIC - SECTION 4.0)
TYPE A LIST OF ALL DEVICE INFORMATION

ZFLAGS

CLEAR ALL FLAGS (SEE SECTION 2.3)

FLAGS

COMMAND CAN BE

THERE
THESE

THEM.

EFFECT

CONTINUE

2.2

COMMANDS FOR

COMMAND

PROCEED
EXIT

1JU MAY,

DESCRIPTION OF

REFER

THIS SECTION LISTS THE COMMANDS AND GIVES A VERY

BRIEF DESCRIPTION OF

A BRIEF

INFORMATION,

TYPE

STATISTICAL

THE

RECOGNIZED By

FOR EXAMPLE,

TYPE

STATE

THE FIRST

"STA”

INSTEAD

INFORMATION (IF

ALL

THREE

FLAGS

(SEE

IMPLEMENTSD

SECTION 2.3)

CHARACTERS.

"START",

SWITCHES
ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY
SWITCHES ARE APPENDED TO THE LEGAL COMMANDS,

SWITCHES

ARE

TABULATED BELOW WITH A BRIEF

SUPERVISOR OPERATION,
ALL OF THE LEGAL
DESCRIPTION OF EACH,

M1
USER DOCUMENTATION CZLNADO

CZLUNAD.P11

DNMAC

10 APR 84 08:55

X24.07 563

10 APR 84

IN THE DESCRIPTIONS BELOW,

09:07

PAGE

A DECIMAL NUMBER

SWITChH

EFFECT

/TESTS:LIST

EXECUTE

ONLY

THOSE

3 2

SEQ 0005

IS DESIGNATED BY

TESTS

SPECIFIED

“DDDDD".

THE LIST.
LIST IS A STRING OF TESY
NUMBERS, FOR EXAMPLE - /TESTS:1:5:7-10,
THIS LIST MWILL CAUSE TESTS 1,5,7,3,9.,10 TO

BE RUN,

/PASS :DODDD

EXECUTE

/FLAGS:FLGS

SET

ALL OTHER TESTS WILL NOT BE RUN,

DDDDD PASSES

(DDODD

SPECIFIED FLAGS.

TO 64000)

FLAGS ARE DESCRIBED

IN SECTION 2.3.
REPORT END OF PASS MESSAGE AFTER EVERY
ODDDO PASSES ONLY.
(DDDDD = 1 TO 64000)

/EOP : DDODDD
ZUNITS:LIST

TEST/ADD/DROP

ONLY

THOSE

UNITS

SPECIFIED

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

SWITCH USAGE:

START/TESTS:1-5/PASS:1000/E0P:
100
THE EFFECT

EXECUTED,

THIS COMMANO WILL 8E:

2) ALL UNITS WILL TESTED 100C

TESTS

THROUGH 5 WILL BE

TIMES AND 3)

THE END OF

PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY.

SWITCH CAN BE RECOGNIZED BY THE FIRST THMREE CHARACTERS.
FOR EXAMPLE, TYPE "/TES:1-5" INSTEAD OF “/TESTS:1-5”.
BELOW IS A TABLE
COMMAND.

THAT SPECIFIES WHICH SWITCHES CAN BE USED By

TESTS

PASS

FLAGS

EOP

UNITS

START

RESTART

CONTINUE

YOU MAY,

PROCEED

X
X

EACH

OROP

ADD
PRINT

OISPLAY

FLAGS

ZFLAGS
EXIT
2.3

FLAGS

ARE

USED

SET

CERTAIN OPERATIONAL

PARAMETERS

SUCH

LOOPING ON ERROR,
ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH.
FLAGS
ARE

FLAG

ALSO CLEARED AFTER
SWITCH.

THE

ZFLAGS

START

COMMAND UNLESS

COMMAND MAY

ALSO

SET

USED

USING
TO

THE

CLEAR

ALL FLAGS.
WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS,
NO COMMANDS AFFECT THE STATE OF THE FLAGS;
THEY REMAIN SET OR
CLEARED AS SPECIFIED By THE LAST FLAG SWITCH,

G
L S ¢R

DOCUMENTATION SZLNA Q
10 AP
84
08:55
. P11
C z LNAD

DONMAC

X24.07 S63

10 APR

09:07

PAGE

SEQ 0006

FLAG

EFFECT

HOE

HALT ON ERROR
CONTROL IS RETURNED
RUNTIME SERVICES COMMAND MODE

LOE
1ERe
IBR»

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

(FIRST

LEVEL

CONTAINS

IXRe

ERROR 1YPE, NUMBER, PC, TEST AND UNIT)
INHIBIT EXTENDED ERROR REPORTS ( THOSE

PRI
PNT

OIRECT MESSAGES TO LINE PRINTER
PRINT TEST NUMBER AS TEST EXECUTES

80t
UAM
ISR

“BELL" ON ERROR
UNATTENDED MODE (NO MANUAL INTERVENTION)
INHIBIT STATISTICAL REPORTS (DOES NOT
APPLY TO DIAGNOSTICS WwHICH DO NOT SUPPORT

CALLED BY PRINTX MACRO'S)

STATISTICAL REPORTING)

IDR
ADR
LOT
EVL

INHIBIT PROGRAM DROPPING OF UNITS
EXECUTE AUTODROP CODE
LOOP ON TEST
EXECUTE EVALUATION (ON DIAGNOSTICS WHICH
HAVE EVALUATION SUPPORT)
«ERROR MESSAGES

SEE

THE XXDP+

ARE

DESCRIBED

SECTION

USER'S MANUAL FOR MORE DETAILS ON FLAGS.

3.1

YOU MAY

SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH.
FOR EXAMPLE,
TO CAUSE THE PROGRAM TQ LOOP ON ERROR, INWTBIT ERROR REPORTS
AND TYPE A “BELL” ON ERROR, YOU MAY USE THE FOLLOWING STRING:

/FLLAGS:LOE : TER:BOE

2.4

HARDWARE QUESTIONS

WHEN A DIAGNOSTIC

IS STARTED,

THE RUNTIME

SERVICES WILL PROMPT

THE USER FOR HARDWARE INFORMATION B8Y TYPING “CHANGE tW (L) 2~
YOU MUST ANSWER Y~ AFTER A START COMMAND UNLESS THE HARDWARE

INFORMATION HAS BEEN “PRELOADED"” USING THE SETUP UTILITY (SEE
CHAPTER 6 OF THE XXDP. USER'S MANUAL
).
WHEN YOU ANSWER THIS
QUESTION WITH A Y, THE RUNTIME SERVICES WILL ASK FOR THE NUMBER
OF UNITS (IN DECIMAL).
YOU WILL THEN BE ASKED THE FOLLOWING
QUESTIONS FOR EACH UNIT,
QUNITS (D)

UNIT 1
LP11 ADDRESS: (0)
INTERRURT VECTOR :

2.5

(177514, ?
(0)
(200)

SOFTWARE QUESTIONS

-1
ME

NTA18ONeR 75388 55
AFTER

DNMAC

x24.07 563

10 APR 84

YOU HAVE

ANSWERED

THE HARDWARE

OR CONTINUE COMMAND,

DPARAMETERS.

09: 07

PAGE

QUESTIONS OR AFTER

SEQ 0007

A RESTART

THE RUNTIME SERVICES WILL ASK FOR SOF TWARE

YOU WILL BE PROMPTED BY

"CHANGE Sw (L)

IF YCU WISH TO CHANGE ANY PARAMETERS, ANSWER
"Y',
THE SOFTWARE QUESTIONS AND THE DEFAULT

IN THE NEXT PARAGRAPH(S).
INTERVENTION

AUTODROP ERROR

2.6

THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC

OPERATION MODES.

RUN MANUAL

COUNT

TESTS

(D)

(N)

BY TYPING
VALUES ARE

OEFAULT

DROPS ANY

SPECIFIC

DESCRIBED

IS NO

UNIT FROM TEST WHICH EXCEEDS SPECI+ IED NO.

EXTENDED P-TABLE DIALOGUE

WHEN YOU ANSWER

IN A TASLE

THE HARDWARE QUESTIONS,

YOU ARE BUILDING ENTRIES

THAT DESCRIBES THE DEVICES UNDER TEST.

THE SIMPLEST

WAY TO BUILD THIS TABLE IS TO ANSWER ALL QUESTIONS FOR EACH
UNIT TO BE TESTED.
1IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS
A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION

DEVICE WITH SEVERAL LINES,

THIS BECOMES TEDIOUS SINCE MOST OF

THE ANSWERS ARE REPETITIOUS.

TO ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING
A FICTIONAL DEVICE, THE XYl1i.
SUPPOSE THIS DEVICE CONSISTS OF
A CONTROL MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO ITV.
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS O THROUGH 7.
THERE

IS ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE
Q@ FACTOR.
THIS Q-FACTOR MAY BE O OR 1.
BELOW IS A SIMPLE WAY
YO BUILD A TABLE FOR ONE Xv11 WITH EIGHT UNITS.
# UNITS (D)

8<CR»>

UNIT 1
CSR ADDRESS ( 0)

SUB-DEVICE ¢ (0)
Q-FACTOR (0D 0?2

160000<CR>
O<CR>

L1<«CR>

UNIT 2
160000<CR>
CSR ADDRESS ( 0) ?
SUB-DEVICE ¢ (0) ?
1<CR>
Q-FACTOR (0) 1 2
0<CR>
UNIT 3

CSR ADDRESS ( 0) ?
SUB -DEVICE ¢ 803
Q-FACTOR (0)

160000<CR>
2<CR»

<CR>

UNIT 4
160000<CR>
CSR ADDRESS ( 0) 2
3<CR>
SUB-DEVICE ¢ 602 ?
<CR»>
Q-FACTOR (0)

UNIT S
CSR ADDRESS (0) 2
SUB DEVICE & (0) ?

160000<CR>
4<CR»>

OF ERRORS

USER DOCUMENTATION CZLNADO
JLNAD P11
10 APR 84 08:55

DNMAC x24 .07 563

10-APR 84

3 FACTOR

«CR>

(0) 0

09:07

171

PAGE

3 5

SEQ 0008

UNIT 6

CSR ADDRESS (0) ?
1£0000<CR>
S<CR>
SUB DEVICE & (0) ?
Q FACTOR (0) 0 ?
<CR»>
UNIT 7
CSR ADDRESS (0) ?
160000<ZR>
6<CR>
SuUB DEVICE @ (0) ?
Q FACTOR (0) 0 ?
1<CR»>
UNIT

CSR ADDRESS (0)
SUB-DEVICE @ (0)

@-FACTOR

(0)

2?2

160000<CR>
?
7<CR»
<CR»>

NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A
NON-DEFAULT RESPONSE IS GIVEN.
BE CAREFUL WHEN SPECIFYING
MULTIPLE UNITS!
AS

YOU CAN SEE FROM

NOT

VERY EFFICIENT.

DO NOT VARY

THE

ABOVE

EXAMPLE,

SIGNIFICANTLY FROM UNIT

THE HARDWARE

TO UNIT.

PARAMETERS

THE PROCEDURE SHCWN IS

THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER.
LE;TEREUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION
F

@ UNITS (D)
UNIT

UNIT

8<«CR>

CSR ADDRESS (0) ?
160000<CR>
0,1<CR>
SUB-DEVICE & (0) ?
1,0<CR>
Q-FACTOR (0) 0 ?

160000<CR>
CSR ADDRESS (0) ?
2-5¢<CR>
SUB-DEVICE @ (0) ?
Q@ FACTOR (0) O ?
O<CR>
UNIT 7
CSR ADORESS (0) ?
160000<CR>
6,7<CR>
SUB DEVICE & (0) ?
Q-FACTOR (0) 0 2
1<CR>

YOU CAN SEE

IN THE ABOVE DIALOGUE,

THE RUNTIME SERVICES WILL

BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY
ONE PASS THROUGH THE QUESTIONS.
IN THE FIRST PASS, TWO ENTRIES
ARE BUILT

SINCE

TWO SUB-DEVICES AND Q-FACTORS WERE

SPECIFIED,

THE

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

WAS SPECIFIED ONLY OMCE.

THE

SECOND PASS,

FOUR ENTRIES WERE

BUILT.
THIS IS BECAUSE FOUR SUB DEVICES WERE SPECIFIED.
THE
* * CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA
FROM

THE

FIRST

NUMBER

THE

4 AND 5 WERE SPECIFIED.,

SECOND.

(IF

1IN

THIS

CASE,

SUB-DEVICES

THE SUB-DEVICE WERE SPECIFIED

J1
USER DOCUMENTATION CZLNADO

CZLNAD.P11

10 APR 84 08:55

DNMAC

x24.07 563

10 APR-84

09:07

PAGE

3 6

SEQ 0009

8Y ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST
BE ON AN EVEN BOUNDARY.)
THE CSR ADDRESSES AND Q@-FACTORS FOR
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND O RESPECTIVELY
SINCE THEY WERE ONLY SPECIFIED ONCE.
THE LAST TWO UNITS ARE
SPECIFIED IN THE THIRD PASS.
THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED
SHOWN BELOW.
# UNITS (D)
UNIT

IN ONE PASS AS

8<CR>

CSR ADDRESS (0) ?
160000<CR>
0-7<CR>
SUB -DEVICE 4 (0) ?
Q FACTOR (0> 0 2
0,1,0,.,,.,1,1<CR>
AS YOU CAN SEE FROM THIS EXAMPLE,
A NULL FIELD)

TELL

THE RUNTIME

2.7 QUICK START-UP PROCEDURE
TO START-UP

NULL REPLIES (COMMAS ENCLOSING

SERVICES

TO REPEAT

THE LAST REPLY.

(XXDP+)

THIS PROGRAM:

BOOT XXDP.

GIVE THE DATE AND ANSWER THE LSI AND 50HZ (IF THERE
IS A CLOCK) QUESTIONS

TYPE

"R NAME”, WHERE NAME IS THE NAME OF

TYPE

"START“

ANSWER

ANSWER ALL THE HARDWARE QUESTIONS

ANSWER THE

FILE FOR

THIS PROGRAM

THE

“CHANGE HW" QUESTION WITH “Y*

"“CHANGE SW" QUESTION WITH

WHEN YOU FOLLOW THIS PROCEDURE

“N"

YOU WILL BE USING ONLY

DEFAULTS FOR FLAGS AND SOF TWARE PARAMETERS.
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5.
3.0 ERROR

THE BIN OR BIC

THE

THESE DEFAULTS

INFORMATION

5.1 TYPES OF ERROR MESSAGES
THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY
A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED.
GENERAL ERROR MESSAGES
ARE ALWAYS PRINTED UNLESS THE "IER” FLAG IS SET (SECTION 2.3).
THE GENERAL ERROR MESSAGE IS OF THE FORM:

NAME
TYPE
NUMBER
ERROR MESSAGE
+WHERE;

NAME

ON UNIT NUMBER

DIAGNOSTIC NAME

TST NUMBER PC:XXXXXX

1<
1
USER DOCUMENTATION CZLNADO

CZLNAD.P11Y

10 APR 84 08:55

DNMAC X24.07 563

10 APR 84

TYPE = ERROR TYPE (SYS FATAL,
NUMBER = ERROR NUMBER

09:07

PAGE

DEV FATAL,

HARD OR

SEQ 0010
SOFT)

UNIT NUMBER - O
N (N IS LAST UNIT IN PTABLE)
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED
PC:XXXXXX

ADDRESS OF ERROR MESSAGE CALL

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL
INFORMATION ABOUT THE ERROR.
THESE ARE ALWAYS PRINTED UNLESS

THE “IER" OR “IBR” FLAGS ARE SET (SECTION 2.3).
THESE MESSAGES
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE.

EXTENDED ERR’R MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION
SUCH AS REG.STER CONTENTS OR GOOD/BAD DATA.
THESE ARE ALWAYS

PRINTED UNLESS THE “IER“, “IBR"” OR "IXR” FLAGS ARE SET (SECTION 2.3).
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES.

3.2 SPECIFIC ERROR MESSAGES
ERROR

DESCRIPTION

“PRINTER ERROR"
ERROR CONDITION IN THE PRINTER.

“PRINTER NOT READY"
PRINTER NOT READY TQ ACCEPT DATA.

4
5

“PRINTER DID NOT

FAILURE

INTERRUPT"

IN INTERFACE LOGIC.

“LOADING PRINTER BUFFER DOES NOT CLEAR READY"

FAILURE

IN INTERFACE LOGIC.

“PRINTER INTERRUPTED AT SAME LEVEL AS THE

PROCESSOR“
FAILURE IN INTERFACE LOGIC.

“PRINTER ERROR"
ERROR CONDITION IN THE PRINTER.

“PRINTER NOT READY
"
PRINTER NOT READY TO ACCEPT DATA.

8
9

“PAPER OUT INTERLOCK SWITCH FAILURE"

FAULTY

“PAPER

FAULTY

INTERLOCK SWITCH

TRAY HANDLE

INTERLOCK

INTERLOCK SWITCH FAILURE"

SWITCH

“FRONT DOOR INTERLOCK SWITCH FAILURE"

FAULTY

INTERLOCK

“NOTE"

SWITCH

ERROR MESSAGES @11 AND 412 HAVE BEEN ELIMINATED

L 1
USER DOCUMENTATION CZLNADO
CZLNAD.P11
10 APR 84 08:55

DNMAC x24.07 563

10 APR 84

09:07

PAGE

3 8

SEQ 0011

"INTERRUPT SERVICING FOR THE FOLLOWING
DEVICE DID NOT OCCUR"
GLOBAL ERROR INDICATING INTERRUPT FOR
DATA TRANSFER DID NOT OCCUR.

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

“"QUTPUT TIMEQUT ERROR”
GLOBAL ERROR INi TCATING TRANSMISSION
OF LAST CHARACTE
DID NOT OCCUR
WITHIN A GIVEN TL: .

4.0 PERFORMANCE
PERFORMANCE

5.0 DEVICE

AND PROGRESS

REPORTS

AND PROGRESS REPORTS ARE NOT

INFORMATION

SUPPLIED.

TABLES

OEVICE INFORMATION APPEARS IN THE GLOBAL DATA SECTION.
6.0 TEST SUMMARIES

NOTE:

FOR MORE DETAILED DESCRIPTION OF THE FOLLOWING TESTS,
REFER

THE

INDIVIODUAL

TEST MODUWES LOCATED

THE ATTACHED LISTING.

EACH MODULE CONTATNS A TEST DEFINITION AND PSEUDO CODE FOR
TEST

INTERFACE LOGIC
VERIFIES OPERATION OF INTERFACE LOGIC BETWEEN THE PRINTER AND THE CPU.
TEST
2
DATA TRANSFER PATHS

CHECKS THE DATA TRANSFER PATHS FROM THE PRINTER OUTPUT
THE PROCESSOR INTERFACE.

TEST
3
RINTABLE CHARACTERS

CHECKS FOR PROPER PRINTING OF ALL PRINTABLE CHARACTERS.
TEST

NON-PRINTABLE CHARACTERS

CHECKS FOR PROPER DETECTION OF ALL NON-PRINTABLE CHARACTERS.

TEST S
PRINT CONTROL

CHECKS THAT CHARACTERS IN EXCESS OF

ARE

DISREGARRDED.

TEST 6
MULTIPLE

LINE

ADVANCE

132 CHARACTERS ON A LINE

THE SPECIFIC TEST.

10 APS 84 88:55

USER DOCUMENTATION

CZLNAD.P11t

CZLNA

DNMAC

x24.07 563

10 APR 84

09:07

PAGE

SEQ 0012

3% 9

CHECKS THE MULTIPLE LINE ADVANCE FOR PROPER PAPER MOVEMENT.
TEST

OVERSTRIKE
THIS TEST wILL VERIFY CORRECT OPERATION OF THE PRINTER WHILE
OPERATIN. JUST WITHIN OVERSTRIKE, LINE BUFFER AND PAGE BUFFER LIMITS,
TEST 8
INTERLOCK TEST
THIS TEST CHECKS TO SEE

IT CHECKS THE ERROR BIT
IN PRINTER.

THAT PRINTER INTERLOCKS ARE FUNCTIONING.
IN THE M7258 MOOULE AFTER TRIPPING INTERLOCK

TEST 9
ABSOLUTE AND RELATIVE POSITION
THIS TEST CHECKS THE ABSOLUTE AND RELATIVE POSITIONING COMMANDS JY

USING THEM TO ORAW A RECTANGLE.

TEST 10
NEWLINE MODE
THIS TEST CHECKS THE MACHINES ABILITY
TEST 11
POWER UP DEFAULTS
THIS TEST VERIFIES
TEST
TABS

TO ENABLE AND DISABLE NEWLINE MODE.

THE SPECIFIED POWER UP DEFAULT CONDITIONS OF

12
TEST

THIS TEST DOES A COMPREHENSIVE CHECK OF HORIZONTAL AND VERTICAL

FUNCTIONS OF

TEST 13
MARGINS

THE PRINTER.

IT USES

THEM TO DRAW A RECTANGLE.

THE PRINTER.

TAB

TEST

THIS TEST DOES A COMPREHENSIVE CHECK OF BOTH TOP AND BOTTOM AND
LEFT AND RIGHT MARGIN FUNCTIONS AS WELL AS PHYSICAL LINES PER PAGE FUNCTIONS.
TEST 14
AUTO-UNDERL
INE TEST
THIS TEST EXERCISES THE PRINTER’'S AUTO-UNDERLINE FUNCTIONS.
MESSAGES ARE
PRINTED WITH UNDERLINING AND WITHOUT.
TABS AND SPACES ARE CHECKED FOR BEING
UNDERLINED ALSO.
TEST 15
PARTIAL LINE UP/DOWN TEST
THIS TEST EXERCISES THE PRINTER‘'S ABILITY
AND DOWN ESCAPE SEQUENCE AND FUNCTION.
TEST

TEST

TO EXECUTE

THE PARTIAL LINE UP

DRAW VECTORS TEST
THIS TEST EXERCISES THE DRAW VECTOR FUNCTION BY DRAWING A RECTANGULAR GRID
AND INTERMIXING TEXT WITH THE DRAW VECTOR FUNCTION.
JUSTIFY TEST
THIS TEST EXERCISES THE JUSTIFY FUNCTION AS WELL AS DEMONSTRATING THE
USEFULNESS AND LIMITS,.

USER DOCUMENTATION CZLNADO
CZLNAD.P11
10 APR 84 08:55
TEST

DNMAC X24.07 563

PORTRALT

10-APR-84

09:07

PAGE 3-10

TEST

THIS TEST DOES A QUICK VERIFY OF THE PRINTER MAJOR FUNCTIONS
IN PORTRAIT MODE USING THE RESIDENT PORTRAIT FONT,

TEST
FONT

19
TEST

THE FONT TEST TESTS FUNCTIONS ASSOCIATED WITH MULTIPLE FONT USE
ON THE LNO1 SUCH AS:
FONT LOADING,FONT ASSIGNMENT AND FONT SELECTION.
TEST 20

MISCELLANEQUS CONTROL FUNCTIONS

TEST

THIS TEST CHECKS THE RESUWLTS OF SENDING SPECIFIC CONTROL CHARACTERS
WITHIN AN ESCAPE OR CONTROL SEQUENCE.
THINGS SUCH AS:
CANCEL ,SUBSTITUTE,LINE FEED,FORM FEED ETC.
&

SEQ 0013

N7y
PR

ZUNADO LNOY CIAGNOSTIC DNMAC X24.07 %63
10-APR 84 08:55
CZLNAD.P11

SEQ 0014

PRODUCT

CODE:

AC-T343D0 MC

PRODUCT

NAME:

CZLNADO LNO1

DIAG

MAINTAINER:

SMALL

SYSTEMS DIAGNOSTICS

AUTHORS :

GLENN A,

PERNA

DATE

FEBRUARY

1984

@
B
G
Be
G0
Gr
W

THIS SOFTWARE

IS FURNISHED UNDER A LICENSE FOR USE ONLY

SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE ABOVE COPYRIGHWT NOTICE.
TMIS
SOFTWARE,
OR
ANy

OTHER

COPIES

THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE

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

OWNERSHIP OF

THE SOFTWARE SHALL AT ALL

SUCH
TITLE

SYSTEM
1O AND

TIMES REMAIN IN DEC.

708
704
705
706
70~
708
709

701
702

700

1COPYRIGHT (C) 1984 BY
1OIGITAL EQUIPMENT CORPORATION, MAYNARD MASSACHUSSETTS 01754

o094
695
696
69~
698
699

PAGE

THE

INFORMATION IN THIS SOFTWARE

IS SUBJECT

TO CHANGE WITHOUT

NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT By DIGITAL
EQUIPMENT CORPORATION.

693

691
69>

09:07

LTITLE
CZULNADO LNO1l DIAGNOSTIC
.ENABL AMA
.SBTTL
IDENTIFICATION

6’9

680
681
082
683
684
085
086
68"
688
689
090

10 APR 84

OEC ASSUMES NO RESPONSIBILITY FOR THE USE OR
RELIABILI'r
ITS SOFTWARE ON EQUIPMENT WwHICH IS NOT SUPPLIED By DEC,

NIRB\TPL{{OI

"1t

C.
D{SGRQB'TAS Bgfleg

X24.07 fifiSID&Qr?F?CR?IOQQ:O7

1o
1T

1
3

719

ol
22
~23
~23
25
~26

H
T

718

-2

~28

THIS DIAGNOSTIC PROGRAM VERIFIES PROFER OPERATION OF

LINE PRINTER,
THE

PROGRAM

AND

;
:
H

735
736

;
:

739

;
:
:

INTERFACE MODUNE.

THE LNOL

TESTS.

TO THE PDP 11 DIAGNOSTIC SUPERVISOR AND XXDP.

REV.

732
733

THE PROGRAM IS COMPATIBLE

MISTORY

IT‘'S ASSOCIATED

CONSISTS

A-0

;

720
741
742

SEQ 0015

DESCRIPTION

VERSION

759

734

FUNCTIONAL

731

PAGE

JAN
A-G

1983
INITIAL

GLENN A.
RELEASE

PERNA
JAN

1983

BASIC LINE PRINTER FUNCTIONS ONL
Y
REV.

B-0

REV.

C-0

REV. D-0

MAR
1983
ADDED EXTENDED FUNCTIONALITY TESTING

RE -RELEASED TO
MEMORY (256K).

RE RELEASED
ROM' S,

SEP
1983
SUPPORT UPGRADED

FEB 1984

SUPPORT

DEC

14/15

ESLMABOAAYO! 1657 arm o0 BUES %7407 563100 PRRBLORVIOT PAGE 6
744
745

.SBTTL

00000
000000

753

TS4

002000
002000
002000
002000
002000
002001
002002
002003
002004
002005
002006
002007
002010
002010
002011
002011
002012
002012
002014
002014
002016
002016
002020
002020
002022
002022
002024
002024
002026
002026
002030
002030
002032

N
N
e N
N
N
A
A
N
N
A
N
A
N
W
N
W
N
N
"

NN AN

AN AN

757
758
759
760
761
762
763
764
765
766
767

MBDULDBNDNDULDVNDUDNDUVNIDUBUNINCODLDSL

750

LTITLE

CZULNADO LNO1l

JCALL
SvC
LMCALL
STRUCT

SVC

PROGRAM HEADER

746

747
748
49
750
751
752

000000
000000
000000
000000
000000

SVCINS=
SVCTST=
SvCsSuB=
SVCGBL=
SVCTAG=

O
0O
O
0
O

002000

.ENABL AMA
.ENABL ABS
.ENRBL LC
. =2000

TEST

$ INITIALIZE SUPERVISOR MACROS

STRUCT

$LSTIN=
SLSTTAG$LOCTAG-

000000
000000
177777

5€EQ 0016

1STRUCTURED MACRO PACKAGE

s+ LIST ASSY CODE LEFT
3+ LIST TAGS LEFT

0
0
-1

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

BGNMOD

POINTER BGNSW,BGNSFT

103
132
114
116
101

000
000
€00

104
060
000000
000060

105314
105374
002252
002264

105544
000000

LSNAME
::

LSREV::

L $OEPO:;
LSUNIT:

LSTIML::
LSHPCP::
LS$SPCP:;

LSHPTP:
;
L$SPTP:;

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

HEADER

CZLNA,D, 0,60,1, 340

LASCII /C/
LASCII s2/
LASCII /sL/

.ASCII /N/
LASCII /A/
0
.BYTE
0
.BYTE
0
.BYTE

LASCII

/D/

.ASCII

s0/

. WORD

.WHORD

. WORD

L $HARD

.WORD

L$SOFT

.WORD

L $HuW

.WORD

L$SW

.WORD

LSLAST

.WORD

sDIAGNOSTIC NAME

sREVISION LEVEL

sNUMBER OF UNITS
tLONGESY TEST TIME

sPOINTER TO H. M. QUES.
(POINTER

S.MW.

QUES.

tPTR.

TO DEF. H. M. PTABLE

tPTR,

TO S.W.

PTABLE

1DIAG. END ADDRESS
tRESERVED FOR APT STATS

SN INONINNONONININININININONONINONPNINONONONINININONONONININONONS
NN\
O\
NN PPN\

~NSUNBVNBNBNDUVNDNBNEVNBNDUIBUNAENDLNLDUNOULIDNDND Vbbb ububnandbnbnd
[« RN R N N N
A 4 A S L L S
S L
LW A A L I
L LR R W I N A N N N R N N N I NN NN RN RPN RN NN

CZUNADO LNO1
CZLNAD .P11

TEST
ONMA g X24.07 563pR68RAPR89:07
AM HEADE
10 APR 84 08:5

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

000000
000001
000000

002132
000340
000000
000000
003
003
000000
000000

000000
002242
000000
000000
000000
000000
000000

000000
002202
104035
000000

005516
007266
002256
002122
000000

000000
000000

L$DTYP::
L$APT::

LS$OTP;:
L$PRIO::

LS$ENVI::
LS$SEXPL::

LSMREV::
LS$EF::

LS$SPC::
L$OEVP:
;
:
LSREPP;

LS$EXPAE;;
LSEXPS::
L$AUT::

L$DUT::
LSLUN::

LS$DESP:
;
LSLOAD:
:

LSETP::

LSICP::
LS$CCP::

LSACP::
L$PRT::

LS$TEST::
L$DLY::

L$HIME:
:

.WORD
.WORD

.WORD
.WORD
. WORD

.WORD
.WORD

.BYTE
.BYTE
.WORD
.WORD

Fo
PAGE

0o
o

1APT

1iPTR,

L$DISPATCH

.WORD

i1FLAGS DESCRIBE HOW IT WAS SETUP

1EXPANSION WORD

1SVC REV AND EDIT o

CSREVISION
C3EDIY

TO REPORT

tPTR.

TO ADD UNIT COODE

iPTR, TO DROP UNIT CODE

sLUN FOR EXERCISERS TO FILL

ESLOARD

.WORD

LS$INIT

. WORD

L$CLEAN

. WORD

L $AUTO

.WORD

L$PROT
o

. WORD

CODE

EMT

. WORD

; POINTER TO DEVICE TYPE LIST
;PTR,

L$DESC

. WORD

$DIAG. EVENT FLAGS

. WORD

TO DISPATCH TABLE

sDIAGNOSTIC RUN PRIORITY

LSOVTIYP

. WORD

EXPANSION

340

. WORD

.WORD

SEQ 0017

1DIAGNOSTIC TYPE

. WORD

.WORD

iPOINTER YO DIAG. DESCRIPTION
sGENERATE SPECIAL AUTOLOAD EMT

sPOINTER TO ERRTBL
iPTR.

TG INIT CODE

sPTR,

TO CLEAN-UP CODE

tPTR,

TO AUTO CODE

1PTR,

TO PROTECT

sTEST NUMBER

sDELAY COUNT
tPTR,

TO HIGH MEM

TABLE

FT’)
.

CZUNADO t NOL
CZLNAD.P11

TEST
ONMAC x24.07 563
10 APF 84
89: 07
PROGRAM HEADE
10 APR 84 08:55

771
772
773

;

002122
002122
002122
002124
002126

002130

THE FOLLOWING

LS$PROT::

000000
177777
177772

.SBTTL

PAGE

6-2

SEGQ 0018

IS A LOAD PROTECTION TABLE

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

:
3

NN
NN
NN
N
TN
NN
N
(RN
NS IR

N N R
LY R RRW = SN

WRNNDONNWWNWWNWSD

A
A
WNINTNAN GOSN NN NN ANAAAA AN

PR
W
80@@0‘
[V Xo RN R

002130

002130
002132
002132
002134

002136
002140
002142
002144
002146
002150
002152
002154
002156
002160
002162
002164
002166
002170
002172
002174
002176
002200

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

DISPATCH
20
.WORD
LSDISPATCH::
.WORD
T1
. WORD
T2
.WORD
T3
T4
WORD
15
.WORD
16
.WORD
17
.WORD
18
.WORD
19
. WORD
.WORD
T10
.WORD
T11
JWORD
T12
713
.WORD
T14
.WORD
. WORD
115
.WORD
T16
117
.WORD
.WORD
718
T19
. WORD
T20
.WORD

000024
007456
011226
011774
013204
015154
016516
017316
020440
023476
025724
027356
033354
037460
045074
050422
052016
054072
063606
070254
101616

;X= NUMBER OF

TESTS

sFOR USE ON REVISION C OF THE SUPERVISOR
002202
002202
002202
002210

002216

002224
002232
002240

002242
002242
002242

055103
020060
050040
051105
047107
000103

047114
002250

047114
044514
044522
042040
051517

030460

042101
042516
052116
040511
044524

000

$DESC

DESCRIP

LASCIZ

.EVEN
DEVTYP
LSDVTYP:;
.ASCIZ
.EVEN

/CZULNADO LINE PRINTER DIAGNOSTIC~/

<LNO1»
/LNO1/

CJLNADO t NO1
CZLNAD.P11

TEST
DNMA g X24.07 563
10 APR 84 08:5

793
794
79%
790
797

or3BAIEE 10,0107 PAGE 63
.SBTTL

SEQ 0019

DEFAULT HARDWARE P-TABLE

THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF

IS IDENTICAL TO THE RUN-TIME P-TABLE.

;

799

800
801
802
803
3)
(3)
(3)
804
805
806
807
808
809
810
(3
811
812
813
814
(3)
815
810
817
818
(2
(3)
819
820
821
822
823
824
825
826
(3)
(3
(%)
827
828
8§29
830
831
832
833
834
835
(3)
836
837

002250
002250
002252
002252
002252
002254

000002

177514

THE

TEST-DEVICE

LSHW:

OFPTBL::

000200

PARAMETERS.,

BGNMHW

DFPTBL

.WORD
.WORD

177514
200

.WORD

THE

STRUCTURE

THIS

TABLE

L10001-L$HW/2
sLP11 REGISTER ADDRESS
sLP11 INTERRUPT VECTOR

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

L10001:

002256

L$AUTO::

002256

002260
002260
002260

B8GNAUTO
NOP

000240

104461

ENDHW

L10002:

.SBTTL

NOY USED

ENDAUTO
TRAP

CSAUTO

SOFTWARE P-TABLE

:
;
002262
002262
002264
002264

THE SOFTWARE P-TABLE CONYAINS THE VALUES OF THE PROGRAM

PARAMETERS

000002

L$SW::
SFPTBL::

THAT CAN BE

CHANGED BY

BGNSW
.MORD

SFPTBL
L10003 L$SW/2

THE OPERATOR.

002264

000000

INHINT:

WORD

;0 IF NO INTERVENTION TESTS

002266

000005

MAXERR:

.WORD

002270
002270

:1 IF MANUAL INTERVENTION TESTS
:DEFAULT IS NO
AUTODROP ERROR COUNT

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

L.10003:

LS8TTL

ENDSW

I/0 MACRO DEFINITIONS

He
CZUNADO 1 NO1
CZLNAD
. P11
838
839
840
8a1

8472
843
844
845
846
847
848
849
850
851
852
853
854
855

856
857
858
859
860

861
862
863
864
865
860

TES1
ONMAC
10 APR 84 08:5

Xx24.07 563

884
885
886
887
888
889
890
891
892
893

%3er TR PTons
CE © ¢

.MACRO

QUTPUT

LIF B

BFCNT

.IF NB

BFCNT

ADD,BFCNT ,ERR,PRINTS

$1SAVE THE BUFFER ADDRESS

@1, ,BUFCNT

s BYTE COUNT DEFAWLT OF

MOV

BFCNT,BUFCNT

SUPPLY BYTE COUNT

MOV

#-1,PRINTR

OUTPUT

MOV

OLPERR,ERRSVC

ERR
MOV

ERR,ERRSVC

MOV

41 ,.BUFREP

+ PRINT ONCE DEFAWLT

MOV

PRINTS ,BUFREP

3 SUPPLY PRINT COUNT

LENDM

JSR
OUTPUT

PC,IOCTRL

sCALL

MACRO

OUTPUI

ADD,BFCNT,ERR,UNIT,PRINTS

IF B8

BFCNT

ENDC

.IF B
.ENDC
.IF NB

MOV

SEQ 0020

ADD,BUFADD

MOV

ERR

.ENDC
.IF B PRINTS
.ENDC
.IF NB PRINTS

NOC

867
868
869

870
871
872
873
874
875
876
877
878
879
880
881
882
883

/8RR

ENDC

IF NB

ENDC
IF B
ENDC
IF N8B

MOV

BFCNT

MOV

ERR

MOV

ALL

UNITS

THE DRIVER

s SAVE BUFFER ADDRESS

MOV 01,BUFCNT

;

BFCNT,BUFCNT

DEFAULT BYTE

COUNT OF

sBUFFER BYTE COUNT BFCNT

OLPERR ,ERRSVC

ERR

MOV

ERR,ERRSVC

MOV

1 ,BUFREP

ENDC
IF B PRINTS

ADD,BUFADD

PRINT ONCE DEFAWLTY

“p

IF NB PRINTS
.E

NOC

MOV

PRINTS ,BUFREP

: SUPPLY PRINT COUNT

MOV
JSR

UNIT,PRINTR
PC,IOCTRL

: SUPPLY UNIT NUMBER
;:CALL THE DRIVER

ENOM

PRINTS

MESSAGE
A

IS A PARAMETER CONTROLLING

IS TO BE PRINTED (SENT

TIMEOUT

20,

SECONDS

THE NUMBER

TO THE PRINTER).

IS FURNISHED BASED ON

A PRINTER SPEED OF 300 LPM

TIMES THE DATA OR
DEFALLT IS 1.
THE FOLLOWING ASSUMPTIONS

CZUNADO LNO1
CZLNAD.P11
394
895
896

897
898
899

900

S o

Pt e

.SBTTL

PAGE

A REPERT

002270

COUNT

AN INITIAL
RN

ENDMOD
GLOBAL . REAS

6-5

BAND

5EQ 0021

OF 88 MAX,
STARTUP

RN R

1 PAGE Of LINES AT
OF 2.5 SECONDS.

TIME

RN R

8 LPIL.
R ER R

)
R F IR

BGNMOD

002270
X

:
¢

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

EQUALS

002270

: BIT DIFINITIONS
3

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

BIT15==
BIT14==
BIT13=»
BIT12s=»
BITll==
BIT10==
8I709==
BITO8==

001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

BIT9==
81782~
BIT7as
BIT6=a
BITS==
BIT4=BIT3==
BIT2==
8IT1a»
BITO==-

100000

40000

20000
10000

4000
2000
1000

400
BITO7== 200

BLT06==
8IT0S5=»
BIT04=BITO3==
BITO2=»
BITO1==
BITOO=»

100

20
10
q

2
1

8IT09
81708
817107
B1T106
817105
BITO4
BITO3
81702
81701
8ITOO

;s EVENT FLAG DEFINITIONS
:
EF32:CF17 RESERVED FCR SUPERVISOR TO PROGRAM COMMUNICATION

N
o N N
i N Nt N
Nt Nt
N

[

et P

b o pd P
b
i
b P

NP NINI NI NI NS NI NSNS
NP N

b e e

?Nt?rons

N N

o N

Nd N

e
o (e
e
b o P
b (i (b
o (b b
o
el (ed b P
b o
et et Pt Pk fd ot
P

FNINININININONINONTNINTNINININSNONONONINONONININONTNS

PNONSNONNON\NINON\NON\N\
N~

901
902
903
904
905
900
910

TEST
60 APR -84
9:07
ONMA g X24.07 563
I/0
MACRO DEF
10 APR 84 08:5

000040
000037
000036
000035
000v34

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

32.
31.
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 QOCrURRED

CZULNADO UNO1

CZLNAD.P11
(1)
(1)
(1)
(1)
(L)

TEST

DNMAC

10-APR 84 08:55
000340
000300
000240
000200

X24.07 563

10 APR-84

GLOBAL AREAS

000140
000100
000040
000000

(1)
(1)

000004
000010

EVL=»
LOT ==

(1)
(1)

000040
000100

IOU==
ISR==

(1)

004000

(1)

Q9]
(1)
(1
(1)

000020

ADRas»

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

010000
020000
040000
100000

IBE==
IER==
LOE==
HOE ==

915
910
917
918
gég

000012
000014
000015
000177
000001

LFse}lp
FF==,4
CR==15
DEL==177
VERS,.1s=

IXE==

4
10

40
100
200
400
1000
2000
4000
10000
20000
40000
100000

ggé

:GLOBAL ERROR CODES FOR USE BY GENERAL ERROR ROUTINE
H

000001
000002

STATER= 1}
TIMOUT= 2

000003

NOINTR=

ggg

933
934
935
936
937
938
939
940
g:;
943

SEQ 0022

H
;OPERATOR FLAG BITS
3

UAM==
BOE==
PNT ==
PRI==

ggé

6-6

PRIO3== 140
PRIO2== 100
PRIO1=» 40
PRIOO== O

000200
000400
001000
002000

923
924
925
926
927
928

PAGE

3
PRIO7== 340
PRIO6== 300
PRIOS== 240
PRIO4== 200

(1)
(1Y
(1)
(1;

(1
(1;
W1

09:07

s TRANSMITTER STATUS ERROR IN QUTPUT
s TIMEOQUT ERROR IN IO DRIVER MOCULE
;1 THIS ERROR INDICATES THE LAST CHARACTER
;WAS NOT TRANSMITTED WITHIN A GIVEN TIME
1GROSS TIME OUT ERROR. THE SPECIFIED DID NOT
t INTERRRUPT, THEREFORE IO DRIVER MODWLE WAS

;NOT CALLED

.SBTTL
H

;RO
sR1
;R2
:
:R3
;R4
iRS
:R6
sR7
H

GENERAL REGISTER USAGE DEFINITIONS
RESERVEC FOR USE BY THE MACRO PACKAGES
HMAXIMUM NUMBER OF UNITS TO TEST LSUNIT-1
UNIT NUMBER BY 2. USED TO CALCULATE CIFSET
PRINTER TABLE
TEMPORARY STORAGE
"
"
STACK POINTER
PROGRAM COUNTER

INTO PROPER

|(()

CZLNADO LNO1
TZUNAD.P11

TEST
ONMAC Xx24.07
10 APR 84 08:55

563

10 APR 84

9;07

P AGE

GERERAL RECISTEROUSACE CBE P NI TIONS

SEQ 0023

944
945

: LP STATUS TABLE BIT DEFINITIONS

qlch

947
A48
949
950
951
952
953

100000
040000
020000
000377

954

955
956

957

958
959
960

961
962
963
964
965
966
967
968
969
970
971

972
973
974
975
976
977
978
979

ERROR = BIT15
DROPED
ACTIVE
LOBYTE

= BIT14
= BIT13

.SBTTL

GLOBAL DATA SECTION

FLAG:

.WORD

:<CR>

O
O
O
O
O

tUNIT COUNTER FOR SINGLE UNIT
sUNIT COUNTER FOR ERRORS

377

002270
002272
002274
002276
002300
002302
002304
002306
002310

000000
000000
000000
000000
000000
000000
000000
000000

LINCNT:
LSTCNT:
COUNT:

CCNT:
STRCNT:
CHRGEN:
UNIT:
LUNIT:

.WORD
WORD
.WORD
.WORD
.WORD

002312
002314

000000
000000

PYABAD:
PRINTR:

.WORD
.WORD

002316

000000

CLKTYP:

.WORD

002320
002322
002324
002326
002330
002332

000000
000000
000000
000000
000000
000000

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

. WORD
.WORD
.WORD
.WORD
.WORD
.WMORD

O
O
O
O
O
O

002334
002336

000000
000000

ERRFLG:

.WORD

000000

WwuT:

_WORD
. WORD
.WORD

L.WORD

O
O
O

O
O

BIT MASK FOR CLEARING LOBYTE (COUNTER)

FLAG FOR USE

;LINE COUNTER

SUPERVISOR

TESTING

sAND TESTS NOT USING THE OUTPUT
;MACROS.
:1P-TABLE ADDRESS RETURNED B8Y
;SELECTED LINE NO.
sMACRO

GPHARD

;CLOCK TYPE CONTROL WORD
:1= NO CLOCK AVAILABLE
s2* KWll-L LINE CLOCK

:3=

KWll-P PROGRAMABLE CLOCK

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

;1ERROR ROUTINE

:EXPECTED ERROR INDICATOR

: @ UNITS ACTUALLY UNDER TEST
sEXITS BACK

TO IO DRIVER EQUAL

+1 IF ERROR WAS EXPECTED.
002340
002342

000000
000000

INDEX:

VFUCMD:

.WORD
.WORD

:HACRO VARIABLES
002344

000000

BUFADD:

.WORD

002346

000000

BUFCNT:

.WORD

002350

000000

BUFREP:

.WORD

$BUFFER ADDRESS OF DATA TO BE SENT

+ 7O THE PRINTER

1NUMBER OF BYTES TO TRANSFER
; NUMBER OF TIMES TO PRINT

CZLNADO LNO1
CZLNAD.P11

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

:LNO1 PARAMETER WORD
002352

000020

LPCSR:

002412

000016

LPVEC:

002446

000020

LPBUF
:

002506

000020

STATUS:

002546

000020

002606

000020

002646

000020

002706

000020

002746

000020

003006

000020

003046
003050

000000
000020

003110
003112

000000
000000

1045
1046

1047
1048
1049
1050
1051
1052

1053
1054

1055

SEQ 0024

TABLES

.REPT
16.
0
.WORD
.ENDR
.REPT
16
0
.WORD
LENDR
.REPT 16,
0
.WORD
.ENDR
.REPT 16.
0
.WORD

.ENDR
.REPT
.WORD
.ENOR
MSGCNT
: .REPT
.WORD
.ENDR
REPCNT: .REPT
.WORD
.ENDR
MSGADR: .REPT
. WORD
.ENDR
: .REPT
CURCNT
.WORD
.ENDR
LPINTR: .REPY
.WORD
.ENDR
DELCNT:
.WORD
.ENDR
ERRSVC: .WORD
ERRTBL
::
. WORD
.ENDR

ADDRESS OF

CSR FOR EACH LP11

INTERRUPT VECTOR ADDRESS
DATA BUFFER REGISTER ADDRESS
UNIT STATUS

CURRENT ADDRESS OF OUTPUT DATA BYTE

CURADD:

INITIAL BYTE COUNT OF MSG FOR REPEAT RESTORE
NO.

TIMES TO REPEAT MESSAGE

ADORESS OF DATA TO PRINT

INTERRUPT ROUTINE ADDRESS

.REPT 16,

TIMEQUT DELAY COUNTER

ERROR ROUTINE DISPATCH ADDRESS
ERROR COUNT FOR EACH UNIT

LREPT 16,

WORK
::
WORK1:

.WORD
. WORD

.SBTTL

OUTPUT BUFFER

WORK AREA

1150 BYTES IS RESERVED FOR THE OUTPUT BUFFER AREA
003114

000226

OUTBUF:

.EVEN
.REPT
.BYTE
.ENDR

START OF DATA

CURRENT COUNT REMAINING TO OuTPUT

(=
o]

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

L 2

150.

M2
CZLNADO LNO1
CZLNAD. P11

TEST
DNHAg x24 .07
10 APR 84 08:5

563

1056
1057
1058
1059
1060

1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105

APR

.SBTTL

09:07

GLOBAL

PAGE

6-9

SEQ 0025

TEXT SECTION

.NLIST BEX
s

1061

1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
108%
1090
1091
1092

outBuT BUFFER

;+
;:

003342
003360
003402
003503
003556

003622
003655
003702

003727
003760
004027
004031
004036
004043
004046
004052

051120
051120
040520
120
051106
051124
120
052517

125

046101
033
033
033
015
015
033
004060

047111
047111

042520
050101
047117
047101
044522
050124
044516
020114
143

133
133

o012
012

133

THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,

MESSAGES, AND ASCII
MORE THAN ONE TEST.

042524
042524
020122
051105
020124
046523
052116
052125
020124
047125

CSRERR:

062
067
000
012
061

SELDEC:
SELPIX:

ROYERR:
PAPSWI:
HANSWI:

DO0SWI:
INTER1:
TXERR:
OUTTIM:

TXNOIN:
VUTEQO:

REINIT:

ACRLF::
SKIP3::

DECEgN::

INFORMATION

THAT

ARE USED

.ASCIZ /PRINTER ERROR/

.ASCIZ /PRINTER NOT READY/
.ASCIZ /PAPER OUT INTERLOCK SWITCH FAILURE - MAKE SURE PAPER
.ASCIZ /PAPER TRAY HANDLE INTERLOCK SWITCH FAILURE/

.ASCIZ /FRONT DOOR INTERLOCK SWITCH FAILURE/
.ASCIZ
/TRANSMIT INTERRUPT TIMEOUT/
.ASCIZ
/PRINTER STATUS ERROR/
.ASCIZ
/0UTPUT TIMEOUT ERROR/
.ASCIZ
.ASCIZ

/UNIT FAILED TO INTERRUPT/
/ALL UNITS HAVE BEEN DROPPED..RESTART../

.BYTE
.BYTE

33,133,62,40,111
33,133,67,40,111

.BYTE

.BYTE
.BYTE

.BYTE

335,143

:
;

15,12,0
15,12,12,12

RESETS DEFAULT CONDITIONS IN LNO1
SELECT DECIPOINTS AS PARAMETER
SELECT PIXELS AS PARAMETER

33,133,61,41,175

LLIST BEX
FORMAT STATEMENTS USED
004060
004066
004074
004102
004110
004116
004124

040445
052440
042045
051104
020104
052040
000116

050114
044516
022462
050117
051106
051505

030461
020124
020101
042520
046517
022524

IN PRINT CALLS

LPDROP:

.ASCIZ

.SBTTL

GLOBAL SUBROUTINES

/#ALPLll UNIT w02«%A DROPPED FROM TESTeuN/

SECTION

;

THE GLOBAL SUBROUTINE SECTION CONTAINS THE SUBROUTINES

THAT ARE USED BY MORE

+*é

IS RESTORED/

THAN ONE

TEST.

SEQUENCE FOR TOGGLING PAPER OF

SEQ 0026

SECTION

FUNCTIONAL DESCRIPTION:

SUBROUTINE TO PRINT
PRINTS

THE

ThE GENERAL ERROR INFORMATION,

ERROR MESSAGE

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 SETM
UNDER ERROR CODES.

TO ONE OF

THE ERROR CODES DESCRIBED

B¢

PAGE 6-10

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

004126
004126
004132
004134
004142
004144
004146
004152
004154
004154
004156
004160
004162

004164
004164
004164
004164
004170
004170
004174
004200
004200
004202
004204
004206

013746
002455
023727
003051
006316
062716
013607

LPERR:

002332

000003

004154

S0000%:

004272
004164
004212
004240

:
50003
005262

003050

010237
006237

002074
002074

SELECT ERRCOD OF 3 VERIFY
MOV
ERRCOD, -(SP)
BLY
S0005¢
cMP
ERRCOD,
#3
BGT
500054
ASL
(SP)
ADD
9500004 ,(SP)
MOV
8(SP)s ,PC

LMORD
.WORD
. WORD
.WORD

104456

:STATUS ERROR

LET ERRTBL(R2) := ERRTBL(R2)
INC
ERRTBL(R2)
LET LSLUN := R2 SHIFT -1
MOV
R2,LS$LUN
ASR

LSLUN

TRAP

CSERHRD

LWORD
.WORD
.MORD

000016
003655
000000

50004¢
S0003$
500024
S0001s$

CASE 1

ERRHRD

:SELECT PROPER MESSAGE FORMAT

+ #1

14, TXERR

14
TXERR
O

ot3

NN NN

and

e
b

e
el e
N b N e (b £

NN SN N PN

N P

WU
B WOUNTWNWAWOWUARUTUTNIWND
D WN
[V, NN
Y - WY T 3 DT Y » D RNP DTN NG N N
O I~

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
Be

CZLNADO LNO1
CZLNAD P11

004210
004210
004212
004212
004212
004216

CASE 2

000430

005262

$0002$:
003050

B8R

S0006$

sOUTPUT TIMEOUT ERROR

LET ERRTBL(R2) := ERRTBL(R2)
INC
ERRTBL(R2)
LET LSLUN := R2 SHIFT
1

+ &1

O
v

ngmun—-omu‘uumuu&bbbmwm&bmmhqubmb
VU OwHOVU U
OO NP v
N
BN
O

e SN PN SN

PN ot P

ot e PN PN NN

s SN P

s P

s e P

LHNNUNE WD

CZLNADO LNO1
CZLNAD.P11

TEST
ONMAC X24.07-563
10 APR-84
09:07
GLOBAL SUBROJTINES
10-APR -84 08:55

004216
004222
004226
004226
004230
004232
004234
004236
004236
004240
004240
004240
004244
004244
004250
004254
004254
004256
004260
004262

004264
004264
004266
004266
004272
004272

-’

PN e o

NN e

004272
004272
) 004300
004302
004306
004306
004 306
004306
004314
(4)
004314
004320
(4)
004320
004326

010237
006237

002074
002074

MOV
ASR

ERRHRD
TRAP

104456
000017
0038702
000000

.WORD
.WORD
.WORD

000415

B8R

CASE 3

50001
:
003050

INC

010237
006237

002074
002074

MOV

003727

000000

000002

026237
003402
004737

003050

ENDSELECT
BR
500054
:
ADD
S0004
$;
500068
:

S00078:
100000

005037

002332

012772
000207

000100

CSERHRD

16
TXNOIN
O

4
50006
92,5pP

IF ERRTBL(R2) GT MAXERR THEN
ERRTBL(R2),MAXERR
cre
S0007s
BLE
+ MAXIMUM ERROR COUNT EXCZEDED
JSR PC,DROPTT

002266

005354

042762

NEVER RECIEVED THE INTERRUPT

ERRMRD 16, TXNOIN

.WORD
.WORD
.WORD

000020

062706

500064

LSLUN

TRAP

000402

15
QUTTIM
O

LEY ERRTBL(R2) := ERRTBL(R2)
ERRTBL(R2)
LET LSLUN := R2 SHIFT -1
R2,LILUN

ASR

104456

SEQ 0027

R2,LSLUN
LSLUN
1S,0UTTIM
CS$ERMRD

005262

PAGE 6 11
SECTION

002506

002352

ENDIF

LET STATUS(R2) := STATUS(R2) CLR.BY OERROR
81C
®ERROR,STATUS(R)
LET ERRCOD := #0
CLR
ERRCOO
LET GLPCSR(R2) :=» 2100
3 CLEAR THE ERROR BLIT AND ENABLE
MOY
9100,8LPCSR(R2)
RTS

NP SCSNERIIET

: BINZDA

tAND EXIY

RIS

VSR INONNANNVETESSROITNOIINSsIESOETERNRSERSSEASTRSEERN

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.
PC,BIN2DA
CALL B8Y USR
Y

004330

ASSERCNONSIEAENSSSRVADENERSAGASAERYNSUERNANSAERSE
TN
EANRSTEREAY

BIN2DA:

PUSH RA,RS

INTERR'®TS

CA4
CZLNADO LNO1
CZLNAD.P11
W)
()
1169
(4)

1170
(4)

1171
\4)
1172
W4q)
~

~NOOBB NP
RORBIWE YNNNNRD
Obg quvgvuquflvavuOsOus
W ~N RO v N O Gy
v O Pv uW FDWW

=
[d

o PPl

NNl T\ Yol N\

PN\

FNININONN Pl P

TN SNl PN BN

NN\l

PN PN r-

1173

SO~

1188

1189

1190

TEST
ONMAC X24.07 563
10 APR 84
09:07
GL OBAL SUBROUTINES
10-APR 84 08:5%

004330
004332
004334
004334
004340

004340
004344

004344
004350
C04350
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
004456

004456
004456
004462
004462

004466

010446
010546

016604

000006

012705

004522

005037

004534

005037

004536

012737
000402

005337

500118:
500104
:

50013¢:

000770

005737
203003
005737
003410

500148:

OECR DIGITS FROM 44
MOV
24 ,01GITS
50010%
BR
DEC

DIGITS

157
BLT

DIGITS
500124
WHILE 8.(SP) GE

ADDRESS FOR ASCII

GET

ADDRESS OF

LEADING ZERO FL AG

50015%:

DECIMAL

(R5) DO

;

DO S DIGITS

CREATE

A DIGIT

(RS)
.

o1}

IF COUNTD GT €0 OR FLAGDA GT
COUNTD

FLAGDA
500164

MOVe

005237

004534

INC

B8R

ELSE

LET COUNTD := COUNTD SET.BY
#60,COUNTD
LET (R4)» :83= COUNTD
COUNTD,(R4
).
LET FLAGDA := FLAGDA « @1
FLAGDA

500173
LET

000040

(R4).

:B8~

0240

ENDIF

50017¢:

00 THEN

500154

1ST
BLE

004536

S0016¢$:

+ CONVERY DIGIT YO ASCII OR SUPPLY A SPACE

8IS

004536

TO o0 By

8.(5P),(R5)
50014
LET 8.(SP) :» 8.(SP)
suB
(R5),8.(5P)
LET COUNTD := COUNTD
INC
COUNTD
ENDDO
50013%
BR

113724

112724

GET

cHP
LY

86T

004534

000402

#TABLDA,RS

COUNTD

TS7

004536

052737

:= 6(SP)
R4
6(5P),
:= OTABLDA

SEQ 0028

1 8.(SP) HAS NUMBER TO BE CONVERTED

000010

004536

LET R4
MOV
LET R5

CLR

004540

005237

R4, -(SP)
R5, -(SP)

LET FLAGDA := 00
FLAGDA
CLR
LET COUNTD := 00

004540

000010

MOV
MOV

MOV

004540

161566

PAGE 6 12
SECTION

1 OO THE NEXT DIGIT

LET RS

:= RS

062705

000002

ADD

005037

004536

COUNTD
CLR
ENODECR

#2,R5

LET COUNTD

060

STRING
TABLE

CZLNADO LNOL
CZLNAD.P11
(5)
(4)
1191
1192
(6)

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

004466
004470

004470
004470
(10) 004474
1193
004476
(4)
004476
1194
004502
(4)
004502

1195
1196
(4)
1197

(2)
<3)
1198
(7)
1199
1200

1201

1202

000736

500128:

005737
001002

004534

112744

000060
50020:

004502
004502
004510
004510
004512
004514
004514
004520

012605
012604
062706
000207

000004

004522
004530
004534
004536
004540

023420
000012
000000
000000
000000

001750
000001

016666

000004

000010

SEQ 0029

500114

i1 IF NUMBER WAS A ZERO PRINT
IF FLAGDA EQ 00 THEN
ST
FLAGDA
8NE
500204
LET -(R4) :B- 060
MOVB
060, -(R4)
ENDIF

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

'O°

AND & XIT

TABLDA:

.WORD

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

FLAGDA:
COUNTD:
DIGITS:

.WORD
.WORD
.WORD

(4]
4]
0

1207
1208

.SBTYTL

I/0 DRIVER

1210
1211
1212
1213
1214
1215
1216

H
X
s:THE 1/0 DRIVER ROUTINE IS INVOKED BY MEANS OF THE INTERRUPT SYSTEM,
sCALL TO IT IS UM
IODRV.
sRETURN
RTI.
:ENTER ROUTINE WITH R2 SET UP TO DESIRED UNIT 2. R2 IS USED
: 7O CALCULATE OFFSET INTO PROPER TABLE.

1203
1204
%ggg

000144

PAGE 6 13
SECTION

1209

{gig

sR1 EQUALS MAXIMUM NUMBER OF UNITS ON SYSTEM UNDER TEST,
3

1219
1220

:-:

iggé

1223
004542
(6)
004542
1552) 004550

032772
001061

100000

002352

1227
(6)
(10)
1228
(4,
1229
(7)

IODRV:

}ggz

s
004552
004552
004556
004560
004560
004566
004566

005762
003416

002746

117272

002566

005262

002546

CHECK FOR ERROR FLAG IN STATUS REG.
IF oBIT1S NOTSETIN @8LPCSR(R2)
8I17Y
eBIT1S,BLPCSR(R2)
BNE
500214

THEN

IF COUNT NOT ZERQ SEND NEXT BYTE
IF CURCNT(R2) GT @0 THEN
CURCNT(R2)
5002214
LET SLPBUF(R2) :8= 8CURADD(RZ)
MOVB
SCURADD(RR2),8LPBUF (R2)
LET CURADD(R2) := CURADD(R2) »
INC
CURADD(R2)

187
BLE
002446

CZUNADO { NO1
CZLNAD.P11

1230
1231
1232
123
()

123
(?)
123
(4)

1236
(4)
«3)
1237
1238
(7)
1239
(6)
{10)
1240
(4)
1241
(4)
1242
(4)
1243
7
1244
7
1245
(7)
1246
(4)
1247
(4)
(3)
1248
1249
1250
.
1251
(4)
1252
(4)
1253
(4)
1254
(4)
(3)
1255
1256
1257
(7)
1258
(4)
1259
1260

TEST
ONMAC x24.07-563
0 -APR 84
DRIVE
1/0
10-APR 84 08:55
i

004572
004572
004600
004600
004604
004604
004612
004612
004614
004614
004614
004620
004620
0045624
004626
004626
004634
04634
004642
004642
004650
004650
004654
004654
004660
004660
004666
004666
004674
004674
004676

004676
004676
004704

004704

004712
004712
204712
004712
004712
004712
004714
004714
004714
004722
004722

004730

052762

020000

005362

002746

012772

000100

ENABLE

E3
09:07

INTERRUPT

DEC
MOV

002352

000437

500224
:

B8R

002646

DEC

005762
003424

002646

1ST
BLE

016262

002706

002546

MOV

016262

002606

002746

MOV

117272

002546

002446

MOvVB

005262

002546

INC

005362

002746

DEC

052762

020000

002506

BIS

012772

000100

002352

MOV

000406

500244:

020000

012772

0025C6

8IC

002352

MOV
50025%
500234
:

000410

:
500218

SET.BY

0ACTIVE

€100,8LPCSR(R2)

ELSE

500234
IF PRINT COUNT NOT ZERO SEND AGAIN

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

REPCNT(R2)
500243

LET CURADD(R2)
MSGADR(R2),CURADD(R2)
LET CURCNT(R2)
MSGCNT(R2),CURCNT(R2)
LET SLPBUF(R2)

:= MSGADR(R2)

; RESTORE THE MSG ADDR

:» MSGCNT(R2)

; RESTORE

LEY CURADDIR2)
CURADO(R2)
LET CURCNT(R2)
CURCNT(R2)
LEY STATUS(R2)
#ACTIVE ,STATUS(R2)
LET BLPCSR(R2)
#100,8LPCSR(R2)
ELSE
500254

:= CURADD(R2)

;

BUMP THE POINTER

:+ CURCNT(R2)

;

DROP BYTE COUNT

SCURADD(R2),
. PBUF(R2)

i CURRENT MSG DONE, REPEAT COUNT =0
3 CLEAR ACTIVE AND DISABLE INTERRUPIS.

042762

SEQ 0930

FOR NEXT BYTE

; CURRENT MSG DONE,

005362

LET STATUS(R2) :» STATUS(R2)
OACTIVE,STATUS(R2)
LET CURCNT(R2) := CURCNT(R2)
CURCNT(R2)
LEYT BLPCSR(R2) := 8100

8IS

002506

PAGE

LET STATUS(R2)
#RCTIVE,STATUS(R2)

LET BLPCSR(R2)
900, PCSR(R2)
ENOIF

:B= S8CURADD(R2)

THE BYIE COUNT

; RESEND THE MESSAGE

:= STATUS(R2) SET.BY

QACTIVE

€100

INTERRUPTS

STATUS(R2) CLR.BY

; RE-ENABLE

@ACTIVE

:= 000

ENDIF
ELSE
B8R

500264

3 CLEAR ERROR CONDITION, ENABLE INTERRUPTS
3 SET ERROR FLAG

052762

100000

002506

012737
004777

000001
176112

002332

LET STATUS(R2) := STATUS(R2) SET.BY QERROR
#ERROR, STATUS(R2)
3 STATUS EKRROR
LET ERRCOD := OSTATER
MOV
9STATER,ERRCOD
JSR PC,8ERRSVC
8IS

:+ ERROR SERVICE SHOULD CLEAR ERROR 8IT AND ENABLE INTR

CZLNADO LNO1
CZLNAD.P11

(8)

50026%
:

.SBTTL

PAGE 6

SEQ 0031

ENDIF
POP R2

MOV

012602
000002

RTI

(SP)+,R2

I/0 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
-1 FOR ALL TERMINALS
N FOR PRINTER NUMBER 'N’
ADDRESS OF MESSAGE TO PRINT
BUFADD

BUFCNT

BYTE COUNT

TO TRANSMIT

TO PRINTER

ERRSVC
BUFREP

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

@¢

®e

®»

;0‘

004740
004740
004742
004744

IOCTRL:

010246
010346
010446

PUSH

MOV
MOV
MOV

R2,R3,R4

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

PRINTR CONTAINS THE UNIT NUMBER,
IF
PRINTR = -1, THEN QUEUE TO ALL PRINTERS.

004746
004746
004754
004756

004756
004762
004766
004766
004770
004770
004770
004774
004774
005002
005002

023727
001005

002314

013703
005037

002012
002074

IF PRINTR EQ #-1 THEN

cHpP

177777

000405

50027%:

012703

000001

013737

002314

PRINTR,#-1

500274
LET R3 := LSUNIT
MOV
LSUNIT,R3
CLR LSLUN
ELSE
500304
BR
BNE

LET R3 := o1
#1,R3
LET LSLUN : = PRINTR
MOV
PRINTR,L$LUN
ENDIF

MOV

002074

500304:
3

; DO FOR SELECTED PRINTER(S)
005002
005002

500314:

005703
003534

WHILE R3 GT
TsY

BLE

@0 DO

500324

005002
005004

1262
(2)
1263
1264
1265
1266
126~
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
(2)
(3
(4)
1279
1280
1281
1282
1283
(6)
(10)
1284
(4)
1285
1286
a)
(3
1287
(4)
1288
(8)
1289
(4)
1290
1291
1292
1293
1294
(4)
(6)
(10)
1295
1296
1297
1298
(S

004734

004734
004734
004734
004736

09:07

USE R2 AS AN INOEX

INTO THE UNIT

1261
(4)

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

005006
005006
005012

013702
006302

0020/4

MOV
ASL

LET R2 := LSLUN SHIFT
LSLUN,R2
R2

TABLES

CZLNADO LNO1

ESLNAD%RYO
iggg

TEST

005014

NMAC

83 aPn 84 OBTSE
005037

X24.07 563

CLR
:
H

032762
001117

040000

1307
\6)
(10)
1308
(4)
1309
(7)
1310
(4)

1§fz

THE UNIT

002506

8IT
BNE

(>3

GE 6 16

HAS BEEN DROPPED SELECT

OG5030
005030
005036
005040
005040
005046
005046
005054
005054

005056

032772
001407

100000

002352

BIT
BEQ

012737

000001

002332

MOV

052762

100000

002506

8IS

000451

500345 :

ig%g

;

1314
(6)
(10)
1315
(4)
1310
(3)
(6)

005056
005056
005064
005066
005066
005072
005072
005072

1317
(2)
{2)
(2)
(2
(2)
(2)
(2)
(2)
1318
1319
(7)
1320
(4)
1321
1322
1323
(4)
1324
(4)
(3)
1325
(4)
(3)

005102
005102
005106
005110
005114
005116
005122
005124
005130
005132
005134
005134
005136
005136
005144
005152
005160
005160
005160
005160
005162
005162
005162
005164

(10) 005100

032762
001437

020000

012704

047040

032762

020000

012727
000000
013727
000000
005367
001375
005367
001367
005204

000002

001430

MAKE

002506

MOV
002506

50037¢:

002116
177772
177756

000002
020000
100000

002332
002506
002506

00040¢

500408:
5003654
:

;

STATUS KEG ERROR BIT

GERROR

IS DONE

IF QACTIVE SETIN STATUS(R2) THEN
QACTIVE,STATUS(R2)
5003¢€¢
LET R4 := 020000.
:
020000. ,R4
WHILE @ACTIVE SETIN STATUS(RZ) DO
QACTIVE,STATUS(R2)

MOV
.WORD
MOV
. WORD
DEC
BNE
DEC
BNE

82..(PC).
0
LS$DLY, (PC).
0
-6(PC)
. -4
-22(PC)H
.-20

BNE

500414

MOV

ST IMOUT ,ERRCOD

500408

DELAY

50037

ELSE
500428

TIMEOQUT

COUNTER

WAIT 200 MICROSECONDS

DEC R4
IFCOND EQ THEN

;

DEC

ENDIF

50041$:
000744

THEN

IF #BIT15 SETIN al.PCSK(R2) THEN
BIT1S,8PCSR(R2)
500344
LET ERRCOD := OSTATER
#STATER,ERRCOD
LET STATUSCR2) :s STATUS(R2) SET.BY
OERROR, STATUS(R2)
ELSE
50035

BIT

BEQG

UNIT

SET

SURE PREVIOUS MESSAGE

BIY
BEQ

001011
012737
042762
052762

THE NEXT

oDROPED NOTSETIN STATUS(R2)
QDROPED, STATUS(R2)
S0033s

;TEST FOR DVC ERRCOR BIT
H

SEQ 0032

ERRCOD

1;82

09:07

1-8%c0R8R8L

002332

xggé
1

1303
005020
(6)
005020
lgég) 005026

10 APR-84

ENDDO

LET ERRCOD
BIC
BIS

oTIMOUT

GACTIVE ,STATUS(RZ)
QERROR,STATUS(R2)

TIMEQUT COUNTER

15 SET

CZLNADO L NOL

CZLNAD.P11
1326
(o)
(10
1327
1328
1329
1330

TEST
DNMAC »24.07 563
10-APR-84 08:55

005164
005164
005170

Q05172
005172
1331
005200
(4)
005200
1332
005200
4)
005200
1333
005200
(4
005200
005200
1334
005200
v6)
(107 005204
005206
1335
005206
(3
005212
1336
(4)
005212
005214
(3)
1337
1338
1339
1340
1341
005214
(4)
005214
1342
005222
(4)
005222
1343
005230
(4)
005230
1344
005236
(a)
005236
1345
005244
(4)
005244
1346
005252
005252
(6>
(10) 005256
005260
1347
005260
(4)
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

H3
10 APR 84

I/0 CONTROL

ST
BLE

002746
H

:
000003

MOV

002332

50043¢:

004777

175634
50044

CURCNT(22) GT

LET ERRCOD
ONOINTR,ERRCOD
ENDIF

:= ONOINTR

JSR

CALL ®ERRSVC
PC,8ERRSVC
ELSE

B8R

500444

;

013762

002344

002546

MOV

013762

002344

002706

MOV

013762

002346

002746

MOV

013762

002346

002606

MOV

013762

002350

002646

MOV

005762
003403

002746

012772

000100

TST
BLE

MOV
500464
:

INTERRUPTS

LET CURADD(R2)

BUFAD
, CURADD(R2)
D

:= BUFADD
;

PRINT COUNT

LET 3LPCSR(R2)
2100,8LPCSR(R2)
ENDIF

ENABLE

CURCNT(R2)
50046

21N

; SELECT THE NEXT UNIT AND DECREMENT THE LINECOUNT
005303
005237
000642

DEC R3
INC LSLUN
ENDDO

002074
500324

B8R

BYTE ADDRESS

LET MSGADR(R2) :=» BUFADD
BUFADD ,MSGADR(R2)
LET CURCNT(R2) := BUFCNT
BUFCNT,CURCNT(R2)
LET MSGCNT(R2) := BUFCNT
BUFCNT ,MSGCNT(R2)
LET REPCNT(R2) :=~ BUFREP
BUFREP ,REPCNT(R2)
IF CURCNT(R2) GT 80 THEN

ENDIF

50033s:

THE ERROR

ENDIF

500454
:

REPORT

500454

I/0 DRIVER WILL PICK UP FROM MERE.

002352

THEN

IF ERRCOD NE 00 THEN

ERRCOO

QUEUE THE MESSAGE AND ENABLE
THE

I/0 DRIVER WAS NEVER INVOKED (VIA INTERRUPT)

TST

BEQ

000425

SEG 0033

ENDIF

50035¢:
002332

IF
CURCNT(R2)
5004 3$

ENDIF

50042%:

005737
001403

PAGE 6

OUTPUT WAS QUEUED BUT

012737

09:07

S00314

MESSAGE ADDRESS
QUTPUT COUNT

; BYTE COUNT

INTERRUPTS

CZLNADO LNO1
ZULNAD.P11

O APR

1/6 CONTROL

09:07

POP

GE 6 18

SEQ@ 0034

R4,

(5P)«,R4
(SP)+ ,R3
(SP)+,R2
PC

MOV
MOV
MOV
RTS

012604
012603
0126C2
000207

SUBROUTINE

QUIEY

R A4
HEE

(4)

1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
1371
1372
1373
1374
1375
1376
1377
1378
1379
1380
1381
7

005276
005276
005300
005302
005304

X24.07 563

THIS SUBROUTINE WILL EFFECTIVLY DELAY UNTIL ALL QUEUED OUTPUT
IS FINISHED. THE DELAY IS ACCOMPLISHED BY QUEUEING A NuLL
MESSAGE TO ALL LINES,

1358
(2)
(3)

TESTY
DNMAC
10-APR 84 08:5

005306
005350
005352

QUIET:

00240
000207

OQUTPUT
NOP

RTS

3 NULL MESSAGE QUTPUT

0,80
PC

EZTIERIZIRNSEESEENEISN
AN
RSSO RANEDSENISLIESESSEENSSESISSELSSETRIRATETEET "33

OROPIT

FUNCTIONAL DESCRIPTION

; THIS SUBROUTINE IS USED YO DROP A BAD PRINTER FROM THE TEST
: ODISABLE ANY INTERRUPTS FROM THE PRINTER, AND NOTIFY THE
; OPERATOR THAT THE PRINTER WAS DROPPED.

;EIICIIIII-.'.'....--...--I'----.-.--.-.I.'.I’-.l.‘lsti'l":’!:tll:

005354
005354
005362
005362
005370
005370
005374
005374
005400
005404
C05410
005412
005414
005420
005420
005424
005424
005430
005430
005434
005436
005436
005442
005446
003450
005452
005456
005456
005460
005460

052762

040000

002506

012762

177777

002746

005072

002352

013746
012746
012746
010600
104417
062706

002074

DROPIT: LET STATUS(R2) := STATUS(R2) SEY.BY 6DROPED
8IS
#DROPED, STATUS(R2)
LET CURCNT(R2) := &-1
MOV
4-1,CURCNT(R2)
LET SLPCSR(R2) := #0

CLR

004060
000002

003050

005337

002336

005737
001011

002336

012746
012746
010600
104417
062706

003760
000001

SP,RO

MOV

CEPNTF

TRAP

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

000006

005062

SLPCSR(R2)

PRINTF #LPDROP, LSLUN
MOV
LSLUN, -(SP)
MOV
®LPOROP, -(SP)
MOV
42, -(SP)

LET WUT := WT - 01
OEC
T
IF WT EQ #0 THEN
TST

500474

BNE

PRINTF SUUTEQO

MOV
MOV

MOV
TRAP
ADD

000004

104444
500474
:

QUUTEGRO, -(SP)
01, -(SP)

SP,RO
CSPNTF
44, 5P

OOCLN

TRAP
ENDIF

C$DCLN

+ NOTHING TO TEST

CZLNADO LNO1
CZLNAD.P11

TEST
ONMAC X24.07-563
10 APR 84
I/0 CONTROL
10-APR-84 08:55

005460

000207

RTS

[

SEQ 0035

FAKE

FUNCTIONAL DESCRIPTION:

@4
@
@

[

:8&00‘0‘“2
N
DO

ARADAAAD ~

1400

1401
1402
(4)
1403
(4)
(6)

PAGE 6

1391
1392
1393
1394
1295
1396
1397
1398
1399

09:07

005462
005462
005466
005466
005466
005474
005476
005476
005502
005504
005506
005506
005512
005512
005514
005514

005037

THIS SUBROUTINE

FAKE :

500504:

LET

CLR

LSLUN

cHP

LSLUN,LSUNIT

013700
104442
010003

002074

MOV
TRAP
MOV

005237

002074

INC
ENDDO

000207

005516

B8GE

.SBTTL

WHILE L$LUN LT LSUNIT DO

002074

500518

LSLUN

023737
002007

000765

TO INSURE PROPER PASS COUNT REPORTS

E2EBNTENEASSSAESEEESRAEES
NS ERNERESFIIFEIIEAESEENIETANSTIZINNSIEIEESTXTIEIRISSS

002074

002012

IS REQUIRED

IN A MULTI UNIT MODE OF OPERATION.

500514

GPHARD

L$LUN,

LSLUN,RO
C$GPHRD
RO,R3
LET LSLUN := LSLUN

LS$LUN

B8R

500504

RTS

ENOMOD
INITIALIZATION SECTION

;THE INITIALIZE ROUTINE IS EXECUTED AT THE BEGINNING OF EACH SUB-PASS AND IS
;PRIMARILY USED FOR REQUESTING P-TABLE PARAMETERS, INFORMATION REMWESTED FROM
;s THE OPERATOR INCLUDE THE NUMBER OF UNITS UNDER TEST, DEVICE ADDRESSES, VvECTORS,

;AND CLOCK TYPE.

005516
005516
005516

005516
005516
005522
005524
005524
005526
005526
005532
005534
005534
005536
003542
005542

BGNMOD
BGNINIT

LS$INIT::

;RESET EXTERNAL BuUS IF START EVENT FLAG IS SET
;:OR POWER FAIL RESTART

012700
104447

000040

103466
012700
104447

000037

READEF
MOV
TRAP

¢EF ,START
#EF ,START
RO
CSREFG

gggHPLEYE 13

$BRANCH IF FROM START uP

READEF
MOV

sNOW THE RESTARTFLAG

13
#EF ,RESTART

QEF .RESTART
RO

TRAP

CSREFG

8Cs

JSR
SETPRI

PC.FAKE
4PRIOO

BCOMPLETE 1%

103462
004737

005462

012700

000000

s TEST START EF INDICATOR

MOV

#PRIOCO,RO

sIF EITHER START OR POWER FAIL RESTART

;D0 A BUS RESET
;
+

UPDATE PASS COUNT
PRIORITY ZERO

CZLNADO LNO1
CZLNAD.P11

[

laY Tala¥Talealalalaldlialey alalalale ,\

LRV LV LV VIV VL VE VI VL VR RV ENENT TR W) w
op§ s
N
P O

(3)
1429
(4
1430
1431

I<3

TEST
10 APR-84
09:07
PAGE 6 20
DNMAC Xx24.07-563
INITIALIZATION SECTION
10 APR 84 08:55

005546
005550
005550
005556
005620
005620
005626
005630
005630
005634
005634
005642
005644
005644
005650
005652
005656
005660
005664
005666
005672
005674
005674
005676
005676
005676
005700

TRAP
C$SPRI
LET oUTBUF :B8- #14

104441

112737

000014

003114

012737

000006

003112

005337

003112

023727
002415

003112

012727
000000
013727
000000
005367
001375
005367
001367

000250

000402

MOVEB

50053$:
000001

500525
:

414 ,0UTBUF

OUTPUT &0UTBUF
, &1
DECR WORK1 FROM #6
MOV
96 ,WORK1
50052+
BR

DEC

WORK1

CMP

WORK1,
#1

BLT

.WORD
MOV
.MORD
DEC
BNE
DEC
BNE
ENDDEC

002116

177772
177756

50054
¢:

104432
001300

TG #1 BY a1

50054
%
DELAY 250

MOV

000755

Sc@ 0036

B8R

4250,(PC)H.

O
LS$OLY,(PC).
O
-6(PC)
.-4
-22(PC)
.-20

50053

EXIT INIT
TRAP
CS$EXIT
.MORD
L10004

;

ELSE EXIT

INIT CODE

[

~p alalalanle) Talalate
bbb SDPDUWANDDLDDWON
I
NI NN
) [ RWROI

;POWER UP RESTART OR START COMMAND ISSUED

~’

1443

1444

1445

1446

005702
005702
005704
005704
005712
005714
005714
005720
005724
005726
005730
005734
005734
005740
005744
005746
005750
005754
005754
005754
005754
005756
005756

005760
005760

1%:

104433

BRESET

023727
003420

002012

012746
012746
010600
104417
062706

006542
000001
000004

ADD

012746
012746
010600
104417
062706

006625
000001

MOV
MOV
MOV

000020

MOV
MOV

50055¢;
104450

o1, -(SP)
SP,RO

CSPNTF

TRAP

000004

TRAP
ADD
ENDIF

MANUAL

ONRGT17, -(SP)
41,-(SP)
SP,RO

CSPNTF
44,5P

TRAP

CSMANI

BCC

PRINTF

012746

4 ,SP

PRINTF ONRGT17

BNCOMPLETE

103024
006735

;RESET THE BUS

TRAP
CSRESET
IF LSUNIT GY 416. THEN
cHP
LSUNIT,916.
BLE
500554
PRINTF ONRGT16
MOV
NRGT16, -(SP)

MOV

WRESET1

#RESETL, -(SP)

CHECK FOR UNATTENDED MODE

IF UNATTENDED BYPASS MANUAL INSTRUCTIONS

0 LNO1
Pl

TEST
10 APR 84

005764
005770
005772
005774

012746
010600

104417
062706

L 3
DNMAG

x24.07

563
10 APR

09:07

AL TZATION &

000001

MOV

000004

ADD

005037

002270

005037

0023532

005037

002336

100¢:

104443

000404
002270
000130
007006
100000

10000:

SEQ 0037

MOV
TRAP

SP,RO
CSPNTF
o4, 5P

;WAIT FOR A
006000
006000
006004
006004
006010
006010
006014
006014
006014
006016
006020
006022
006024
006026
006030

PAGF

“CR" BEFORE GOING ON

LET FLAG := #0
CLR
FLAG
LET ERRCOD := 40
CLR
ERRCOD
LET WT := @0
wrT
CLR

GMANIL
TRAP
BR
.WORD
.WORD
.WORD
.WORD

READY,FLAG, 100000, YES
CSGMAN
100004
FLAG
T$CODE
READY
100000

:REQUEST P-TABLE FOR PRINTERS UNDER TEST
002012

lalalalelale)

005037
000402

002074

005237

002074

023701
003071

002074

013700
104442
010003

002074

WANRO NN~
s
OO

013701
005301

[aYataY

006030
006030
006034
006036
(3)
006036
006042
006044
) 006044
006050
006050
006054
006056
006056
006062
006064
006066
006066
006070
006070
006074
006076
006076
006102
006102
006110
006110

2s:

S0057%:

500568
:

LET R1 ;= LSUNIT - 21
MOV
LSUNIT,R1
DEC
R1
INCR LSLUN FROM 80 TO R1 BY &1
CLR
LSLUN
8R
50056
%

LSLUN,R1
50060
GPHARD LS$LUN,R3
LS$LUN,RO
MOV
cHP
8GT

TRAP

8CcC

103060
013702
006302

002074

005062

003050

012762

177777

005062

002646

LSLUN

INC

MOV

MOV
ASL

tMAXIMUM NUMBER OF UNITS

;REQUEST P

TABLE

ADDRESS

CS$GPHRD

RO,R3
BNCOQPLETE 3

LET R2 := LSLUN SHIFT
L $LUN,R2

sBRANCH IF DEVICE NOT PRESENT
1

LET ERRTBL(R2) := 40
CLR
ERRIBL(R2)
LET CURCNT(R2) := & 1
MOV
¢-1,CURCNT(R2)
LET DELCNT(R2) := #0
LET REPCNT(R2) := 20
CLR
REPCNT(R2)

002746

:LOAD CSR ADDRESS INTO TABLE
006114

LET LPCSR(R2) := (R3).

;SET UP CSR ADDRESS FOR DEVICE

M3
CZLNADO LNO1
CZLNAD. P11

(4
1471
(S
(7)

[ZX 3V, T )

~eaas

1472
1473
1474
1475
(4)
1476
1477
1478
1479
(5)
(8)
(8)
(8)
1480
(7)
1481
(4
1482
(7)

(2)
1483
1485
1486
(7)
1487
1488
1489
1490
1491
(7)
1492
(3)
(4)
1493
1494
1495
1496
1497
4)
1498
(3)
(3
(3>
1499

(7)
1500
(4)

TEST
10 APR 84

006114
006120
006120
006126

006134
006134

HHaE X24.07 So3 10 1A 7R 100288 1 1BROE © 22

012362

002352

016262
062762

002352
000002

012362

MOV

MOV
ADD

002446
002446

SEG 0038

(R3)+,LPCSR(R2)

LET LPBUF(R2) := LPCSR(R2) » 02
LPCSR(R2),LPBUF
(R2)
22.LPBUF(R2)

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

002412

(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

010237
006337
006337
006337

003110
003110
003110
003110

062737

104624

003110

013762

003110

003006

012746
016246
016246
012746
104437
062706

000200
003006
002412
000003

:= R2 SHIFT 3

MOV
ASL
ASL
ASL

R2 , WORK
WORK
WORK
WORK

ADD

2INTOO
, WORK

LET WORK

:= WORK

+ #INTOO

LET LPINTR(R2) := WORK
MOV
WORK ,LPINTR(R2)
SETVEC LPVEC(R2), LPINTR(R2),
MOV
OPRIOA, -(SP)
MOV
LPINTR(R2), -(SP)
MOV
LPVEC(R2), -(SP)
TRAP
RDD

000010

#PRIO4

CS$SVEC
#10,SP

: ADD ONE TO UNIT UNDER TEST COUNT
006222
006222
006226

005237
000403

)

002336

LET WT := WUT « o1
INC

wT
4%

:INDICATE L$LUN NOT AVAILABLE FOR TESTING
006230
006230
006236
006236
006240

052762

040000

002506

000702

3s.
as:
50060¢:

LET STATUSC(R2) :» STATUSCR2) SET.BY QDROPED

BIS
ENDINC

B8R

#OROPED, STATUS(R2)

500574

:GO BACK AND DO IT AGAIN

: SETUP TO HANDLE CLOCK INTERRUPTS
006240
006240
006246
006246
006252
006254
006256
006256
006260
006260

012737

000001

012700
104462
010004

000114

002316

MOV

TRAP

MOV

#'L,RO

C$CLCK
RO,R4

IFCOND CS THEN

103031

012737

; IF AN L-CLOCK IS ON THE SYSTEM THEN SETUP A NOOP INTERRUPT
; HANDLER BECAUSE LSI SYSTEMS MAY HAVE THE CLOCK ENABLED AT ALL TIMES.
LET CLKTYP := &1
;s DEFAULT FOR NO CLOCK ON SYSTEM
01,CLKTYP
MOV
+ TEST FOR L-CLOCK
L,R4
CLOCK

BCC
000002

002316

500614
LET CLKTYP := #2
MOV
42 ,CLKTYP

WE HAVE AN L-CLOCK

CZLNADO LNO1
CZLNAD.P 11
1501
(4)
1502
(4)

1503
(4)
1504
1505

006266
006266
006272
006272
006300
00A300
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
006402
006402
006410
006410

ANAAAAAAANASAAA
BNDLHLWRAINDEBUWO~N
(W), VRN T
SN
)

TEST
DNMAC X24.07 563
09:07
PAGE 6 23
10 APR- 84
INITIALIZATION SECTION
10-APR-84 O 8:55

006410
006410
006416
006420
006420
006424
006430
006432
006434
006440
006440
006444
006450
006452
006454
006460
006460

010437

002320

017737

174022

002322

012777

000000

174014

016437

000004

012746
012746
013746
012746
104437
062706

000300
007202
002326
000003

MOV

LET CLKCSR := aCLOCKP
aCLOCKP ,CLKCSR
LET 8CLKCSR := #00
; TRY
MOV
#00,8CLKCSR

ADD

;

002320

017737

173726

002322

016437

000004

002326

012777

000000

#10,5P

CLOCK
MOV

P.R4
4'P,RO

TRAP
CsCLCK
MOV
RO,R4
IFCOND CS THEN
; WE HAVE A P-CLOCK
8cc
500624
LET CLKTYP := 83
03, ,CLKTYP
MOV
LET CLOCKP := R4
R4 ,CLOCKP
MOV
LET CLKCSR := 8CLOCKP
MOV
8CLOCKP,CLKCSR
LET CLKVEC := 4(R4)

103016

010437

ENDIF

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

CK1:

000003

002316

MOV

;

4(R4),CLKVEC

TRY

TO DISABLE THE P-CLOCK

LET 8CLKCSR := 000
MOV
400, 8CLKCSR

173712

50062%
:

ENDIF

: IF NO CLOCKS ON THE SYSTEM NOTIFY THE OPERATOR
IF CLKTYP EQ &1 THEN
cre
CLKTYP,01
S0063¢
BNE

023727
001020

002316

012746
012746
010600

007043
000001

MOV
MOV

062706

000004

TRAP
ADD

012746
012746
010600
104417
062706

007105
000001

104417

INTERRUPTS

: SETUP THE NOOP HANDLER

000010

012737

TO DISABLE

LET CLKVEC := 4(R4)
MOV
4(R4),CLKVEC
SETVEC
CLKVEC,#IGNORE,4#PRIO6
MOV
4PRIO6, -(SP)
MOV
#IGNORE
, -(SP)
MOV
CLKVEC, -(SP)
MOV
#3,-(S5P)
TRAP
C$SVEC

002326

000120

:= R4

R4, CLOCKP

MOV

500615§:

012700
104462
010004

LET CLOCKP

SEQ 0039

000001

PRINTF &NOCLCK

#NOCLCK, -(SP)
01,-(SP)

MOV

000004

50063
:

SP,RO

CS$PNTF
44 ,5P

PRINTF ONOTIM
ONOTIM, -(SP)

0]
TRAP
ADD
ENDIF

SP,RO
CSPNTF
#4,5P

CZLNADO LNOY
CZULNAD.P11

1523
(3
(3
1524
(4)

vu—’U‘ UGN

Obg

,\,s" "wflw"flr;w

s¥sdocky

1525
1526
(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
1553
1554
1555
1556
1557
1558
1559
1560

TEST
DNMAC X24.07 563
10 APR-84
09:07
PAGE
INITIALIZATION SECTION
10 APR 84 08:55

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

007006
007043
007105

042504
045
045

051120
022516
022516

051505
044101
040501

007176

000000

007200
007200
0C7200

012700
104441

000000

112737

000014

003114

104432

.NLIST BEX

NRGT16:
NRGT17:

.ASCIZ
.ASCIZ

/«#NwWANUMBER OF LINE PRINTERS UNDER
/«#NsAONLY 16 WILL BE TESTED./

TEST EXCEEDS

MRESET:
RESET1:

_ASCIZ
.ASCIZ

READY:

_ASCIZ

/DEPRESS

Ng!é":
.EVEN

LASCIZ

/eNSAAUTO PRINTING SPEED MEASUREMENT

NOCLCK:
PLOC:

1£./

/wNSARESET PRINTER(S),
AND PLACE ON L INE. #N/
/#NSARESET PRINTER(S) AND PLACE ON L INEsSN/

.ASCIZ

"RETURN"

WHEN READY./

/wNesAHARDWARE CLOCK NOT AVAILABLE./

.WORD

CANNOT BE PERFNRMED./

.LIST BEX

ENDINIT
L10004:

104411

IGNORE

TRAP
R

CSINIT

R R R

R R

R R R R R

IGNORE :

IGNORES

R R R

R R

R R R

THME

INTERRUPT,

RESVEC: :

MOV

CLR
MOV

50064:

157

R AR

FUNCTIONAL

MOV

002012

R R

R R R

R R

R R R

R R

N R

A R

...

PUSH
RS,

(SP)

DESCRIPTION

sILL SETUP ALL UNITS VECTOR AREAS
INTERRUPT ROUTINES STARTING AT INTOO.
e

R3, R4

RA, (SP)
LET
R4 :+» &0
R4
LET R3 :+ L SUNITY
LOUNIT,R3
WHILE RS Gt
RS

80 DO

TURNED OFF
.
A

1 NOOP

RTY

THIS SUBROUTINE
TO THE 'NORMAL‘

005004

005703

RESVEC

:
:

013703

010346
010446

AN INTERRUPT CATCHER FOR THE L CLOCK

USED FOR SYSTEMS WHERE CLOCK CANNOT BE

000002

THAT

007204
007204
007206
007210
007210
007212
007212
007216
007216
0072156

SEQ 0040

SETPRI oPRIOO
MOV
9PRIOO,RO
TRAP
C$SPRI
LET OUTBUF :B- 014
MOVB
414 ,0UTBUF
OUTPUT #0UTBUF ,21
EXIT INIT
TRAP
CSEXIT
.WORD
L10004-.

;

007202
007202

B4
6 24

R AR

R R 1 Y]

SILNADO

LNOL

TEST

E3NABRT YO 13" apn sa BETEE
(10)
1566
()
(6)
(5)
(4)
(3)
(2)
1567

007220
007222
007222
007226
007232
007236
007242
007244
007250

(7)
1568
«7)
1569
(4)
(3)
1570
(2)

007250
007254
007254
007256
007256
007260
007260
007260

1271

007264

{3)

1572

1573

1574
(2)

007262

X24.07 563

X407

563\

;

BLE

012746
016446
016446
012746
104437
062706

000200
003006
002412
000003
000010

MOV
MOV
MOV
MOV
TRAP
ADD

062708

000002

ADD

005303

DEC

500654:

012604
012603
000207

BR
MOV
MOV

.SBTTL

007266

49 APR,RY 10R40L
(BACE © 25

003417

000757

Cad

STARS

SEQ 004y

50065
SETVEC LPVEC(R4),
#PRIOA, -(SP)
LPINTR(R4), -(SP)
LPVEC(R4), -(SP)
03, (SP)

C4SVEC
010,5P
LET R4
02, ,R4
LET RS
R3
ENDDO
50064§

:« R4

LPINTR(R4),

OPRIO4

:- R3

POP R4,R3
(SP).,R4
(SP):,R3
RTS
PC

CLEANUP CODING SECTION

1100000008000 00000000000000480000000008000400080800000000000008080008

oo
: THE PURPOSE OF THE CLEANUP SECTION IS TO CLEANUP ALL PRINTERS UNDER TEST
:AND RETEST ANY UNITS WHICH MAVE BEEN DROPPED FROM
TESTING TO INSURE THAT
s THEY HAVE NOT COME BACK ON LINE. IF THE DEVICE MAS COME BACK ON LINE
;TESTING WILL BE RESTARTED ON THE DEVICE. THIS INSURES THAT
1IN THE EVENT A PAPER OUT OCCURRED AND THE OPERATOR MAS PUT ADDITIONAL PAPER
sINTO THE UNIT UNDER TEST, THE INITIALIZATION SEQUENCE DOES NOT
tHAVE TO BE DONE AGAIN IN ORDER TO GET THE DEVICE ACTIVE.

1575
1576

1577
1578
1579
1580
1581
igg’g

‘-

1584
(2)
1585
(3)
1586
(3)
(3)
1587
lggg

L07266

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

007276
007276
007302
007304
007304
007310
007312
007312
007316
007316
007322

1591

1592

007266

007266
007266
007266
007272
007274
007274

007324

012700
104441

000340

104433
013701
005301

002012

005037
000402

002074

005237

002074

023701
003016

002074

STARS
$100000000000006000000000000088006000000000000000000000000080000004
BGNCLN
LSCLEAN::
SETPRI #PRIO7
MOV
#PRIO7,RO
TRAP
CSSPRI
BRESET
TRAP
CIRESET
CLEAN:

S0067$:
500664:

LET R1 := LSUNIT - 01
;NUMBER OF UNITS-1
MOV
LSUNIT,R1
DEC
Rl
INCR LSLIN FROM 00 TO Rl By o1
CLR
LSLUN
8R
50066
INC

LSLUN

cHp
8GT

LSLUN,R1
50070

1 DISABLE ALL INTERRUPTS, SELECT ALL LINES

ZEROC ALL ERROR COUNTS
LET R2 := LSLUN SHIFT

SSUNA

.
:
S NABOPEYCY 18" apr 8o BHTEE X4-07
563 LRNORRCBB1NE24BZ
1 BACE © 26
(S)
(8)
1594

1595
(7)
1596
(4)
1597
(4)
1598
1599
(4)
1600
(S)
(3)
1601
1602
(6)
(10)
1603
(3)
(3)
1604
(4)

007324
007330

007332
007332
007340
007340
007346
007346
007352
007352
007356
007356
007360
007360
007364
007364
007372
007374
007374
007400
007402
007402

013702
006302

002074

MOV
AS|

042762

160377

002506

012762

177777

002746

005062

003050

005062

002646

000755

004737

007204

023727
001006

002316

017700
104436

172726

012777

000000

500708:
000003

172712

1605
(4)
1606
(6)
(10)
1607
(7)
(6)
(S)
(4)
(3)
(2)
1608
(3)
1609
(3)
(3)
1610
(3)

007410
007410
007410
007410
007416
007420
007420
007424
007430
007434
007440
007442
007446
007446
007446
007446
007452
007454
007454

1612
1613
1613
1615
1616

007456

ENDMOD
.SBTTL
; MODULE

007456

BGNMOD

((3)

1618
1619
1620
1621
i6ee

007454

500718

023727
001013

002316

012746
012746
013746
012746
104437
062706

000300
007202
002326
000003

000002

000010
500728

012700
104441

104812

CO0000
ENOCLN
L 10005
:

Tes

EQ 0042‘

LSLUN,R2
R2
CLEAR ALL BITS IN STATUS EXCEPT DEVICE

s
TYPE
LET STATUS(R2) :+ STATUS(R2) CLR.BY OERROR!DROPES!ACTIVE(LOBYIE
BIC __ #ERROR!DROPED!ACTIVE!LOBYTE,STATUS(R2)
LET CURCNT(R2) :» @-1
MOV
@-1,CURCNT(R2)
LET ERRTBL(R2) :» @0
CLR __ ERRTBL(R2)
LET DELCNT(R2) :+ 00
LET REPCNT(R2) : 00
CLR__
REPCNT(R2)
ENDINC
BR
500673

JSR__
PC,RESVEC
IF CLKTYP £Q 03 THEN
M
CLKTYP,
o3
BNE
500718
CLRVEC @CLKVEC
MOV
BCLKVEC,RO
TRAP
CHCVEC
LET SCLKCSR : - 000
MOV
#00.8CLKCSR

: RESET

THE

VECTORS

ENDIF

IF CLKTYP EQ 02 THEN
"
CLKTYP,#2
BNE
500728
SETVEC CLKVEC, 0IGNORE , 0PRIO6
MOV
@PRIOG, -(5P)
MOV
SIGNORE, -(SP)
MOV
CLKVEC, -(SP)
MOV
@3,-(SP)
TRAP
C3SVEC
ADD
#10,SP
ENDIF

SETPRI #PRIOO
MOV
@PRIOO,RO
TRAP
C3SPRI

TRAP

CHCLEAN

INTERFACE LOGIC
INCOG.P11

sTHIS TEST VERIFIES THE OPERATION OF THE INTERFACE LOGIC. TESTS ARE
{PERFORMED FOR PRINTER ERROR, PRINTER READY, AND CLEARING PRINTER READ
1BY LOADING A CHARACTER INTO THE OUTPUT BUFFER. ALSO IT IS VERIFIED
sTHAT THE PRINTER WILL NOT INTERRUPT IF IT [S AT THE SAME PRIORITY LEVEL
;AS THE PROCESSOR, BUT WILL INTERRUPT IF Tek PROCESSOR IS AT A LOWER

CZUNADO LNO1
CZLNAD.P11

O
e

NN~
NN

O ~N~NEN

1623
1624
1€25
1626
162~
(3)
1628
(5)
(7)
1629
1630
lo31}
1632
1633
1634
1635
1636
1637
1638
1639
1640
1641
1642
(5)
(8)
1643
(6)
(10)
1644
(7)
1645
(7
1646
(4)
1647
(4)
(S)
(5)
(5)
1648
(4)
1649
(4)
1650
1651
165¢c
(6)
(10)
1653
(5)

TEST
DNMAC X24.07 S63
10 APR 84 08:55

10 APR 84

E 4

09:07

INTERFACE LOGIC
;PRIORITY

LEVEL.,

SEQ 0043

PAGE 6-27

THE

PRINTER

PRIORITY

LEVEL

007456
007456
007456
007456
007462

013701
005301

$cnr51
1::
LET R1

002012

:= LSUNIT

MOV
DEC

JMAX NUMBER OF UNITS ON SYSTEM

LSUNIT,.R1
R1

{HARD CODED INCREMEMNT LOOP

:INCR LUNIT FROM @0 TO Rl BY
007464
007470
007472
007472
007476
007476
007502
007504
007510
007510
007510
007514
007516
007516
007524
007526
007526
007534
007534
007540
007540
007546
007546
007550
007552
007554
007556
007556
007562
007562
007562
007562
007570
007572
007572
007600
007602
007602
007606
007606
007614

005037
000402

002310

005237

002310

nc.

023701
003402
000137

002310

)

1$:

002310

c32772

100000

002352

052762

100000

002506

005262

003050

013737

002310

001416

;UNIT TO O

INC

LUNIT

;UPDATE UNIT NUMBER

BLE

cHe
MNP

LUNIT,R1
1$
T18

;00 COMPARISON OF UNIT NUMBER
;ONTO NEXT UNTT
{EXIT LOOP

LET R2

:= LUNIT

ASL

T1C

LUNIT,R2

LET LSLUN

002074

SHIFT

:= LUNIT

MOV

LUNIT,LSLUN

TRAP

CSERMRD
1

ERRHRD 1,CSRERR

.WORD
LMORD

CSRERR
O

LET SLPCSR(R2)

CLR

002352

:D0 COMPARE

IF #8IT1S SETIN SLPCSRCR2) THEN
8IT
#8IT15,8LPCSR(R2)
500734
8EQ
LET STATUS(R2) := STATUS(RZ2) SET.BY ¢ERROR
8IS
SERROR,STATUS(R2)
LET ERRTBL(R2) := ERRTBL(R2) . a1
INC
ERRTBL(R2)

104456
000001
003342
000000
005072

LUNIT

MOV

013702
006302

;START LOOP

CLR
8R

010244

ENDIF
S0073$:

;ERROR BIT WA, SET.

:= &0

SLPCSR(R2)

; TIME DELAY

s IF NOT READY ALLOW 3 SECONDS TO COME ULP

032772
001027

000200

002352

012737
000402

000036

003112

005337

003112

023727
002415

003112

IF 0BIT7 NOTSETIN SLPCSR/A2) THEN
81T
MBIT7,
8 PCSR(R2)
BNE
500743
DECR WORK1 FROM €30. T0O o1 By &)

MOV

500764
:
000001

S0075%:

030. ,WORK]

B8R

500754

DEC

WORK
1

cHp
BLY

WORK]1,01
50077s

SAY SO

I 4
A

[ Y

L X0, IV, 1,V VY VX, VY, VY (V] W

T atatataYtatate ~r

CZLNADO L NO1
CZLNAD.P1}

TEST
ONMAC X24.07 563
10 APR-84
09:07
INTERFACE LOGIC
10 APR 84 08:55

007616
007616
007622
0N7624
007630
007632
007636
007640
007644
007646
007646
G07650
007650
007650

012727
00000¢
013727
000000
005367
001375

005367

001367

MCvV

000250

PAGE 6 28

SEQ 0044

DELAY 250

9250,(PC)H.

O
.WORD
MCV
L$DLY,(PC)H
O
.MORD
OEC
-6(PC)
BNE
. -4
DEC
-22(PC)H
BNE
. -20
ENODEC

002116

177772
177756

000755

S50077s:

500744
:

B8R

50076

ENDIF

:NOW 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 08ITO7 NOTSETIN GLPCSR(R2) THEN
BIT
#8IT07,8LPCSR(R2)
501008
BNE

000002
003360
000000

FOR

LET STATUS(R2) :+ STATUS(R2) SET.BY 4ERROR
8IS
SERROR,STATUS(R2)
LET LSLUN := LUNIT
MOV
LUNIT,LSLUN

LET ERRTBL(R2)

:= ERRTBL(R2)

INC
ERRTBL(R2)
ERRHRD 2,RDYERR
TRAP
SSERHRD
. WORD

104456

;TEST

.WORD
.WMORD

ENDIF
501004
:

.+ 01

sREPORT

AN ERROR

RODYERR
O

;INSURE LOADING CHARACTER CAUSES PRINTER READY TO GO AwWAY
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) := #12
MOV
012, LPBUF(R2)
IF #BIT07 SETIN SLPCSR(R2) THEN
BIT
BITO7 ,8LPCSR(R2)
50101
BEQ
LET STATUS(R2) := STATUS(R2) SET.BY @ERROR
81s
QERROR ,STATUS(R2
LET ERRTBL(R2) := ERRTBL(R2) + &1
INC
ERRTBL(R2)
LET LSLUN := LUNIT

MOV

LUNIT,LSLUN

ERRHRD 3,ERR11
TRAP
CS$ERHRD
3
.WORD
.WORD
ERR1l
O
LMORD
LEY SLPCSR(R2) := &0
CLR
BLPCSR(R2)

ENDIF
50101¢:

iREPORT AN ERROR

THE

READY

BIT

CZUNADO LNO1

CZLNAD.P11

TEST

ONMAC X24.07 S63

10-APR 34 08:55

10 APR-84

(09:07

INTERFACE LOGIC

PAGE 6 29

SEQ 0045

1677

1679
1680
1681
(3)
(3)
1682

;s THE SAME AS THE CPU
H
SETPRI #PRIO4
MOV
#PRIO4 ,RO
TRAP
C$SPRI
SETVEC LPVEC(R2),0INTERR,#PRIOS

1678

;VERIFY

007762
007762
007766
007770
(7)
007770
(6)Y
007774
(5)
010000
\4)
010004
(3)
010010
(2)
010012
1683
010016
(7)
010016
1684
010024
(5)
010024
(7)
010032
(6)
010034
(10) 010034
(7)
010040
{(7)
010040
(9)
010046
1685
010050
(2)
010050
(2)
010054
(2)
010056
(2)
010062
(2)
010064
(2)
010070

(2)

010072

(2)
1686

010076
010100

lég;

010102

(5)

010100

012700
104441

000200

012746
012746
9016246
012746
104437
062706

000200
010516
002412
000003

052772

000100

002352

012737
000402

000036

003112

005337

003112

023727
02415

003112

012727

000372

000000
013727
000000
005367
001375

005367

001367

000010

000001

177772

177756

(3)
1693
(7)
(6)
(5)
(4)
(3)
(2)
1694
(7)
1695
(2)

BLY
DELAY

501048
250,

.WORD
MOV
LMORD
DEC
BNE

O
LSOLY,(PC)»
©
-6(PC)
.-4

0€EC

BNE
ENDDEC

000755

PRINTER WILL

501044
H

B8R

sNOW TEST

THAT

#250.,.(PC)-

010110
010110

010114
010116
010116
010122
010126
010132
010136
010140
010144
010144
010152
010152

042772

000100

012700
104441

000140

012746
012746
016246

000200
010546
002412

104437
062706

000010

012746

002352

000003

052772

000100

012727

000113

002352

INTERRUPT

A PRIORITY

LEVEL

;CPU TO PRIORITY 4
;LP VECTOR SET P

s INTERRUPT ENABLE

ALLOW FOR DELAY

-22(PC)
.-20

501034
THE PRINTER WILL

; THE PRINTER PRIORITY

010102
010102

NOT

MOV
OPRIOA, -(SP)
MOV
#INTERR, -(SP)
MOV
LPVEC(R2), -(SP)
MOV
¢3,-(SP)
TRAP
C$SVEC
ADD
#10,5P
LET &LPCSR(R2) :» 8LPCSR(R2) SET.BY 2100
BIS
4100,8LPCSR(R2)
DECR WORK1 FROM #30. TO o1 By 41
MOV
£30. ,WORK1
BR
501024
50103$:
DEC
WORK1
501028
:
cHp
WORK]1,01

002116

iggg

1692
(3)

THE

MOV

1688

1691
(7)

THAT

INTERRUPT

LET SLPCSR(R2) := BLPCSR(R2) CLR.BY
8IC
0100, ,8LPCSR(R2)
SETPRI #PRIO3
MOV
#PRIO3,RO

0100
;CPU

THE CPU PRIORITY

IS LOWER

1CLEAR INTERRUPT ENABLE
TO PRIORITY

TRAP
CS$SPRI
SETVEC LPVEC(R2),#INTHOL ,#PRIO4
MOV
SPRIOA, -(SP)
MOV
QINTHOL, -(SP)
MOV
LPVEC(R2), -(SP)
MOV
*3,-(5P)
TRAP
CSSVEC
ADD
#10,5P
LET SLPCSR(R2) :» 8LPCSR(R2) SET.BY 2100
s INTERRUPT ENABLE
8IS
€100,8LPCSR(R2)
DELAY 75,
+ ALLOW FOR DELAY
MOV
475, ,(PC)»

THAN

-4
CZUNADO LNO1

TEST

DNMAC

CZUNAD.P11 = 10 APR 84 08:5
(2)
(2)
(3)
(2)
(3)
(3)
(3)
169
(7)
1697
{4)
1098
(4)
(5)
(5)
{5)
1699
(4)

1700
(7)
1;83

010156
010160
010168
010166
010172
010174
010200
010202
010202
010206
010206
010214
010214
010216
010220
010222
010224
010228

010232
010232

000000
013727
000000
005367
001375
005367
001367

X28.07 563

002116
177772
177756

005262

003050

013737

002310

002074

012772

000000

002352

042762

160000

002506

104456
000004
011147
000000

1703
010240
010244

000137
004737

007472
007204

010250

012700

000000

112737

000014

004737

005306

032772
001001

000200

(4)
(6)
(10)
1718

010250

010254
010256
010320
010362
010424
010824
010432
010478
010500

010500
010500
010506
010510

104441

(4) 010510 000773

(3>
1719
(3)
(32

010512
010512
010512
010514

i3
:ENDINC
;
T1B:

003114

002352

501058:

501064:
EXIT TST

104432
000510

GE & 30

SEQ 0046

;

CLEAR THE LPCSR

LET STATUSCR2) := STATUS(R2) CLR.BY OERROR!DROPED!ACTIVE
8IC
@ERROR ! DROPED ! ACTIVE , STATUS(R2)
LET DELCNT(R2) := @80

P
JSR

T1A
PC.RESVEC

MOV

#PRI0O.RO

BIT
BNE
ENDDO

0B1T7,8LPCSR(R2)
501064

B8R

501054

TRAP
.ORD

CSEXIT
(10006
-.

SETPRI #PRI00

;

{UPDATE UNIT ¢
RESET STANDARD VECTORS

TRAP
C$SPRI
OUTPUT @INTFAC.047.
OUTPUT @DFAULT.#107.
;PRINTS ON A NEW PAGE THE DEFAULT POWER UP
OUTPUT #DECFIN.#5
: TOGGLE THE PAPER OFFSET
LET OUTBUF :8= 014
MOVEB
014,0UTBUF
OUTPUT @QUTBULF
. 01
JSR PC,QUIET
WHILE #8IT7 NOTSETIN SLPCSR(R2) DO
{WAIT FOR READY

{EXIT

1721
1722

THE

TEST

I INTERRUPT MANDLER TO SERVICE FAULTY INTERRUPT FROM LP INTERFACE.
: THIS ROUTINE IS ENTERED ONLY WHEN THE LP INTERRLOTS AT THE SAME LEVEL AS

1723

1725
1726
(7)
1727

{END OF HARD CODED INCREMENT LOOP

1704
1705
1706
1707

(3)
1709
1710
1712
1714
(4)
1715
1716
1717

09:07

LWORD
0O
AoV
LSOLY,(PC)+
JWORD
O
DEC
-6(PC)
BNE
.4
DEC
t22(PC)
BNE
.20
LET ERRTBL(R2) := ERRTBL(R2)
INC
ERRTBL(R2)
LET LSLUN :o LUNIT
MOV
LUNIT,LSLUN
ERRHRD 4,ERR13
TRAP'
CSERHRD
.MORD
4
'WORD
ERR13
'WORD
O
END2:
LET SLPCSR(R2) := 200
MOV
200, 8LPCSR(R2)

1708

APR-84

indrrace SLocte

:THE CPU AND IS CONSIDERED AN ERROR.
010516
010516
010516
010522

005262

003050

BGNSRY
INTERR:

LET ERRTBL(R2) := ERRTBL(R2)
INC
ERRTBL(R2)
LET LSLUN 1+ LUNIT

CZUNADO LNO1
CZLNAD P

(4)
)}
)
)
)

)

(3)
(2)

TEST
ONMAC X24.07 563_
10-APR 84

010522
010530
010530
010532
010534
010536
010540
010540
010544

010544
01C544

08:55

013737

002310

002074

104456
000005
011064
€00000
012716

10-APR-84

IN}ERFACE LOG 8

SEQ 0047

5
.MORD
.WORD
ERR12
O
.WORD
(SP) := #END2
MOV
©QEND2, (SP)

ENDSRV
L10007:

000002

PAGE 6-31

MOV
LUNIT,LSLUN
ERRHRD 5,ERR12
TRAP
CSERHRD

LET

010224

:07

RTI

; INTERRUPT HANDLER FOR EXPECTED INTERRUPT

BGNSRV

010546

(4)
(3)
(2)

010546
010546
010552
010552
010552

012716

INTHOL: LET (SP) := OEND2

010224

ENDSRV
110010

000002

MOV

9END2, (SP)

RTI

010554
010634

010702
010755

047111

042524

043122

015414

052143
044440
047111

044510
020123
042524

052111
040

.NLIST BEX
INTFAC: .ASCIZ

/INTERFACE LOGIC

OFAULT:

<14><33>/¢THIS IS THE DEFAULT POWER UP FONT,/<12>

.ASCII
LASCII
.ASCIZ

/17

TEST

----

TEST COMPLETE/<12><12>

IS BASED ON SWITCHES,SET ON THE PARALLEL/

7/ INTERFACE MODUW.E BOARD./<12><12>

;ERROR MESSAGES ASSOCIATED WITH THMIS TESTY
011010
011064
011147

(3)
(3)

011224

011224
011224

011226

047514
051120
120
011224

104401

042101
047111
044522

047111
042524
052116

ERR11i:
ERR12:
ERR13:
.EVEN
ENDTSY
L 10006

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

CSETSY

.LIST BEX
ENDMOD

.SBTTL DATA TRANSFER PATHS
DATPAT P11
:MODUWLE
Ol1226

BGNMOD
;00

CZLNADO LNOL
CZLNAD.P11

TEST
ONMAC X24.07 563
10 APR 84
09:07
PAGE 6 32
DATA TRANSFER PATHS
10 APR 34 08:55

s THIS TEST CHECKS THE DATA TRANSFER

i771
1772

;PATHS FROM THE PROCESSOR

;7O THE PRINTER OUTPUT.

1773

1774
1775
1776
1777
1778
1779
1780
1781
1782
1783
1784
(3)
1785
1787
1789

O N~
O

SEQ 0048

:PATTERN OF

INTERFACE

AN ALTERNATING

ONES AND ZEROES CORRESPONDING

:TO AN ALTERNATING STRING OF “a” AND
$“U" CHARACTERS ARE TRANSMITTED ON THE

sFULL 132 COLUMNS.,

AFTER 16 LINES OF

i THIS PATTERN, THE OUTPUT PATTERN IS .
;1SWITCHED TO AN ALTERNATING PATTERN
;OF 2" AND 8" CHARACTERS FOR ANOTHER
116 LINES.
011226
011226

BGNTST

011226

OUTPUT
sPRINT
QUTPUT
OUTPUT

T2::

011270
011332

011374
011374
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
011506

2
@DECFIN,
#5
TEST IDENTIFICATION
OREINIT,#2
4DATPTH, 834,

;

sPRINT ALTERNATING STRINGS OF CHARACTERS

012737
000402

000001

005237

v11770

023727
003111

011770

023727
001004

011770

000001

112737

000125

011722

011770

000002

000403
112737

INCR PATTERN FROM #1 TO 02 BY 21
®1 ,PATTERN
MOV
50107
BR
50110%:
INC
PATTERN
50107s:

CcHP

011722

ELSE

003114

012737
000402

000001

005237

002300

023727
003017

002300

113724
105137

011722
C11722

142737

000200

LET CHAR :8» &'?
o' ?2,CHAR

LET R4
MOV

:= SQUTBULF
F
R4
eOUTBL

B8R

501148

INC

CCONT

INCR CCNT FROM #1 TO #66. BY @21
#1,CCNT
MOV

002300
50115¢:

000102

S50113s

B8R

MOVE
ENDIF

S0113$:
012704

501118

IF PATTERN EQ #1 THEN
cHP
PATTERN,
&1
501124
BNE
LEY CHAR :8: #'U
#'U,CHAR
MOVS
50112%:

000077

PATTERN,
#2

8GY

501148
:

B8GTY

MOVB

011722

CCNT, 066,

501164

LET (R4)+

:B~ CHAR

CHAR, (R4 ),

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

@200

TOGGLE

PAPER OFFSET

K4
CZLNADO t NO1
CZULNAD. PIL

1804
(4
1805
1806
(7
1807
(S)
(4)
1808
(4)
18C9
v4)

A~
~AAAs

O~~~y
vt
O

1810
(5

181%
1812
1813
(5)
(4)
1814
(5)
(4)
1815
(4)
1816
1817
1818
(3)
(3)
1819
1820
1821
1822
1823
1824
1825
1826
1827
1828
1829
(3)
(3)
1830
1831
1832
1833
1834
1835
1836
1837

TESI
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

ORTAE x24.07 563
1R MRANEREOBARs PACE 6 33

113724
105137

011722
oL11722

142737

000200

MOVB

011722

000753

50116%:

112724

000015

112714

000012

012737
000402

000001

005237

002272

023727
003024

002272

004737

005306

000020

011722
011724

000000
055433

011770

011770
000000

50117s:

50121%:
ENDINC

112737

000014

004737

005306

003114

104432

030061

042155

LEY (R4):s :Rs #15
MOVB
2415,(R4).
LET (R4) :B+ 012
MOove
412.(R4)
INCR LINCNT FROM &1
21 ,LINCNT

B8R

50117

INC

LINCNT

cHP
8GT

011774

104401

TO ¢16,

LINCNT,216.
50121¢
OUTPUT Q0QUTBUF, #134.
JSR PC,
QUIETY

ENDINC
BR

BR
50111¢%:
LET OUTBUF

50120¢

501108

:8= @14
MOVB
#14,0UTBUF

OUTPUT
oOUTBUF, o1
JSR PC,QUIET
EXIT TST
TRAP
CSEXIY

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

.EVEN

PATTERN:

.EVEN
.LIST BEX
011772
011772
011772

#200

50115%

MOV

501204
:

000661

000052

B8R

002272

000746

011640
011642
0l1642
011642
011650
011712
011716
011716
011720

LET (R4)s :B= CHAR
CHAR,(R4
.
COMB CHAR
LET CHAR :B8* CHAR CLR,.BY
#200,CHAR
8ICB
ENDINC

5EQ 0049

ENDTST
L10011:
ENDMOD

TRAP

.WORD O
.EVEN

CSETST

<12><12><12>

CZLNADO LNO1
c2L NAD. P11

NANONOAOOANVNOBRANONOABRAIJVUNIA
IO NN
A A A W e
0
O v
s
s D
A A N

Fod

I lalslalnlniaialal
al lnlalelainiainlalal’ alelaleia i ianle)

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

TEST
DNMAC
10 APR 84 08:5

X24.07 563

SEQ 0050

oatR FRANEPEROBARY, PAGE © 34

.SBTTL PRINTABLE CHARACTERS

PRICHL1.P11

+MODULE
BGNMOD

011774

HERS

012204
012204
012212
012214
012220
012220
012220
012224
012224
012232
012234
012234
012240
012240
012246
012250
012254
012254

012254

012260

WILL PRINT

A FULL LINE

EACH CHARACTER

435,

005037
000402

003112

005237

c03112

023727
003402
000137

003112

OUTPUT @SELDEC,
o5
QUTPUT 4DECFIN,#S
INCR WORK1 FROM 90 T0 &1 By 21
CLR
WORK
1
50122%:
000001

012640

012737
000402

000040

005237

003110

023727
003402
000137

003110
012336

012704

003114

012737
000402

000001

005237

002276

023727
003402
000137

002276
012262

113724

003110

50123%:

501245%:
003110

50126%:
000177

50127%:

50130%:

B8R

S0123¢

INC

WORK1

cHP
BLE
JMP

WORK1,
01
501248
50125¢

;
;

SELECT DECIPOINTS AS PHRAMETER
TOGGLE PAPER OFFSET
; DO THIS TWICE

INCR WORK FROM 240 TO 2177 By 021
040, WORK
MOV
50127
BR
INC

WORK

cHe
BLE

K
, 0177
WOR
50130

JHP

002276

50132%:
50133s:

50134

50131

LET R4

:= 2QUTBUF

A0UTBUF ,RA
INCR COUNT FROM #1 TO &132. 8y o1
01,COUNT
MOV
501334
BR
MOV

000204

TEST

PRINT ALL CHARACTERS ON ALL UNITS

$BRUMP=1

000001

IN THE OEC MULTINATIONAL

OUTPUT &PRTCHR,
;

012170
012176
012200
012200

TEST

IT WILL THEN SELECT PORTRAIT MODE AND DO THE SAME THING CVER AGAIN,

?gNTST

011774
011774
011774

012036
012100
012142
012142
012146
012150
012150
012154
012154
012162
012164
012170
012170

THIS

INC

COUNT

cMe
BLE
JMP

COUNT
, #132.
501344
501354

MOVB

LET (R4)+

WORK
, (R4 ) »
ENOINC

:B= WORK

SET.

CZLNADO LNO1
CZLNAD.P11

[

~® [ lalalalalalalalal’
ol lnlalelelele lels

Py ANONOORAdUVIIBYANO
YOO
“d o "t wf N A N
2 A N
P

(4)
(4)
1864
(4)
1865
1866
1867
(4)
(4)
1868
(4)
1869
1870
1871
(5)
(

b b

1875

1876
(4)
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 854 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

50135¢;

112724

000012

004737

005306

000721

S0131¢:

112737

000014

004737

005306

012737
000402

000240

005237

003110

023727
003402
000137

003110

012704

003114

012737
000402

000001

005237

002276

023727
003402
000137

002276

113724

003110

012504

000012

004737

005306

000721

S0142%;

501438
:

LET OUTBUF :B8= 414
MOVB
214 ,0UTBUF
OUTPUT 40UTBUF
, 21
JSR PC, QUIET
4240, WORK

50137¢

INC

WORK

cMP

, 8377
WORK

MOV

LET R4 := SOUTBUF
S0UTBUF ,R4

BLE
JP

501444

B8R

COUNT , 0132,

501444

JMP

50145

LET (R4)+ :8= WORK
WORK
, (R4 )«
ENDINC
50142¢

LET (RA)+

:B8= oLF

OLF ,(R4).
OUTPUT #OUTBUF
, 2133,
JSR PC,QUIET

B8R

50136

IF WORK1 EQ 40 THEN
TSY
WORK1
BEQ
. +6
JMP
50146%
ENDIF
JMP

VERSION ONLY

COUNT

ENDINC

501464
:
ENDINC

EXTENDED

501434

cMP

HOVe

012.34

FOR

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

INC

MOVB

003112

; EXECUTE TOF

50140¢
50141

BLE

50141%:

012150

OLF

OUTPUT &0UTBUF ,#133,
JSR PC,QUIEY
ENDINC
501268
BR

MOV

002276

50145%:

112724

000137

50137%:

50140¢:

000204

(R4)+ :B=
HF,(RA).

INCR WORK FROM 4240 TO #377 BY 41

501364:
000377

LET

MOV

003110

012560

000765

005737
001402
000137

003114

501328

BR
MOVB

SEQ 0051

OUTPUT #PORSQ, #25.

501224

; DO THIS ONLY THE FIRST TIME

; CHANGE TO PORTRAIT ANC

alel

Zz LNADO LNO1
ZUNAD.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
1900
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

012640
012640
012702
012702
012710
012752

013014
013056

013062
013062
013064
013066
013132
013150

013163

013202
013202
013202
013204

DNHgC X24 .07 563
10 APR 84 08:55

112737

004737
177777

000014

003114

005306

013202

104401

141

PRINTABLE CHARACTERS

PAGE 6

050155
041440
061
156

.WORD
.NLIST BEX

SEQ 0052

50125¢:
OUTPUT oDONE, @14,
LET OUTBWF :8= #14
MOVB
214 ,0UTBUF
OUTPUT &QUTBUF
, 41

$BRUMP-1
=
EXIT TST
TRAP

104432
030061
052123
120

09:07

OUTPUT OREINIT,
a2
OUTPUT OSELDEC,
45
JSR PC, QUIET

000116

055433
042524
033
164

10-APR-84

TEST DONE MESSAGE

:
:

EXECUTE TOF
GO BACK TO DEFAULT

CSEXIT

LloO012-.

PRTCHR:

,ASCIZ <33>/[10mPRINTABLE CHARACTERS TEST

PORSQ:

.BYVTE

DONE :

«¢12><12><12>

/TEST COMPLETE/<12>

.EYEE

164,141,156,61,60,55,122,35,134,33,133,61,61,155

ENDTST
L10012:

.ASCII

TRAP

.LIST BEX
ENDMOD

33,120,61,73,61,61,175,104,105,124,151

;

SEQS

TO ASSIGN AND

SELECT PORT

CSETST

.SBTTL
NON-PRINTABLE CHARACTERS
;MODULE
NOPRIN.P11
013204

BGNMOD
X

;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 LNO1. EACH
;CHARACTER WILL APPEAR ON THE PRINTER OUTPUT IN THE FORM OF ITS OCTAL
:CODE ACCOMPANIED WITH ITS MNEMONIC.
;122 OF THE TESTED CODE ARE THEN SENT FOLLOWED BY AN "8" CHARACTER.
sIF THE CONTROL CODE HAS TAKEN UP A SPACE IN THE BUFFER THE “&" CHARACTER
;WILL APPEAR AT THE RIGHT MARGIN OF THE PAGE. IF THE CONTROL CODE HAS NOT
;:TAKEN UP SPACE IN THE BUFFER THE "8" WILL APPEAR IMMEDIATELY TO THE RIGHT
:OF THE MNEMONIC FOR THE CONTROL CODE.
HNOTE o

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 OF VERS.1”,
AND,

VERS.1 IS DEFINED IN SKEL 2 THEN IT WILL ASSEMBLE THE CODE

2.)

ZUNADO LNO1
CZLNAD.P11

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

1934

3
:

1935
1936

193~
1938
(3
1939

1940
1941

SEQ 00%7

FOR THE 8 BIT CONTROL CODES AS MWELL
CODES.

]

BGNTST

013204
013204
013204
013246
013310
013310
013314
013314

T4:.

s INDICATE TEST CURRENTLY BEING OONE

012704

014124

012737

000033

OQUTPUT @REINIT,®2
OUTPUT #NONCHR,#75,
LET R4 :+ ONONBUF
ONONBUF ,R4
MOV
LET WORK]1 := @27,
MOV
927, ,WORK]

003112
3

s DO ONE LINE FOR EACH TABLE ENTRY

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

005037

002276

012737
000402

200001

005237

002272

023737
003063

002272

012703

003114

LET COUNT := 20
COUNT
CLR
INCR LINCNT FROM o1
01 ,LINCNT
MOV

002272

50150
:

003112

50147

B8R

S0147¢

INC

LINCNT

TO WORK! By

cHe
BGY

LINCNT ,WORK 1
50151
LET R3 := 80UTBUF
MOV
SOUTBWF
R3

i MOVE CODE AND MNEMONIC TO PRINT BUFFER
013356
013356
013364
013366
013366
013372
013372
013400
013402
013402
013404
013404
013406

012737
000402

000001

005237

003110

023727
003002

003110

MOV

003110

50153¢:
000010

501524

000770

501544
:
$

013406
013406
013414
013416
013416
013422
013422

501524

INC

WORK

cw
eGT

WORK
, 88,
501544

B8R

000001

005237

003110

023727

003110

003110
501564
:
000172

LET (R3). :B+
(R4, (R3),
END INC

50155%:

MOV
BR

TO 08,

(R4).

50153

PUT 120 BYTES OF CODE

012737
000402

&1, WORK

B8R

MOV

112423

INCR WORK FROM 21

INTO PRINT BUFFER

INCR WORK FROM @1
1, WORK
501554

INC

WORK

cHe

WORNK
, 0127,

TO 2122.

THE NORMAL

7 BIT CONTROL

(“t
—

CIUNADO LNOL1
CZLNAD.P11
(9
1962
(4
1963
{(S5)
(4)
1964
1965
1966
1967
1968
4)

1969
(4)
1970
1971
1972

1973

TEST
ONMAC x24.07 563
10 APR 84
09:07
SE 6
NON PRINTABLE CHARACTE
10-APR 84 08:55

013430
013432
013432
013434
013434
013436

003002

BGT

111423

MOvVe

000770

S0157s:

501574
LET (R3)s

(R4),(R3).

)

:B*

560 0054

(RA)

ENDINC
501564

+ FOLLOWED SY AN "8" CHARACTER AND A LF
013436
013436
013442

013442

112723

000100

112723

000012

(R3), :8+ @100
2100,(R3).
LET (R3). :8- 012
#12,(R3).
MOV8

MOve

[

013446
013510
013514
013514
013516
013516
013520
013520
013520
013524
013524

004737

PRINT LINE OF

005204

000707

50151¢:

014507

012737

000040

OCTAL CODE,

sLF

MNEMONIC,

120 BYTES(NONPRINTABLE

OUTPUT
&0UTBUF
, 0132,
QuIeY
JSR PC,
LET R4 := R4 . o}
R4
INC
ENDINC

005306

012704

LET

B8R

50150

LET R4

:= ONONBF
]

MOV

1 ,R4
ONONBF

LET WORK]Y :- 032,
MOV
032, ,WORK}

003112
:

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

005037

002276

012737
000402

000001

005237

002272

023737
003063

002272

012703

003114

002272
50161:
003112

501604
:

LET COUNT :» &0
CLR
COUNT
INCR LINCNT FROM #1 TO WORK1 By o1
#1,LINCNY
MOV
501608
8R

INC

LINCNT

e
8GT

LINCNT ,WORK1
50162
LET R3 :» 0QUIBUF
MOV
#0UTBUF ,R3

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

012737
000402

000001

005237

003110

023727
003002

003110

112423

MOV

003110

50164
000010

50163¢:

B8R

INC

cMP

a8ct

MOVEB

INCR WORK FROM 01 TO #8. BY 01
01, WORK

50163
WORK

WORK
, 08,

501654

LET

(R3)+

:B=

(RA).,(R3).

(R4).

CODE),

AND

@’

ESLNABORENC! T43"0pr e BTG X24-07 563,40
AR R ¢ O2uRACTARE © 3°

Y
Y oV Al N

>$ O N~RN

1991
(5)
(4)
1992
1993

013614
013614
013616

000770

013616
013616
013624
013626
013626
013632
013632
013640
013642
013642
013644
013644
013646

ENDINC
501641

50165%:
3

012737
000402

000001

005237

003110

023727
003002

003110

PUT 120 BYTES OF CODE INTO PRINT BUFFER
INCR WORK FROM &1 TO @122,

50167¢:
501664
:

501664

INC

WORK

cHp

WORK, 0122,
$01708

B8GT

111423

MOVe

000770

S50170¢:

LET (R3)+

(R4),(R3).

:B+s (R4)

ENDINC
501674

FOLLOWED BY

013646
013646
013652
013652

112723

000100

MOvVB

112723

000012

MOVE

"8‘

CHARACTER AND A LF

LET (R3).

:8+ 2100

#100,(R3).

LET (R3). :B= 012
#12,(R3).

PRINT LINE OF OCTAL CODE,
013656
013720

013724
013724
013726
013726
013730
C13730
013730

013736
014000
014004
014004
014006

004737

005204
000707

50162%:
000014

004737

005306

MNEMONIC,

3 ar

sLF

120 BYTES(NONPRINTABLE CODE), AND “@’

OUTPUT
#0UTBUF
, 8132,
QUIET
JSR PC,
LET R4 :=» Ra . 0}

005306

112737

By a1

21, WORK

MOV

003110

000172

SEG 0055

INC
ENDINC
BR

50161

LET OUTBUF

:8+ @14

014 ,0UTBUF
MOVE
OUTPUT #QUTBUF
, 01
JSR PC, QUIET
EXIT
1S7
TRAP
CSEXIT
L10013-.
. WORD

003114

104432
001144

sAND EXIT TESTY

$1CHARACTER BUFFER AND TEST MEADER MESSAGE
]

014010
014055

055433
101

030061
043040

047155
046125

LNLIST BEX
NONCHR: .ASCII
.ASCIZ

014124
014135
014146
014157

030040
040
030040
040

030060
030060
031060
030060

020061
051440
020063

047040

NONBUF;

ASCII
.ASCII
+ASCII
.ASCII

BLE CHARACTERS TEST &4/¢<12»
/[
-PRINTA
3>
LOmMNON
«3

/R FULL LINE OF EACH CODE WILL BE SENT/«<12»>

/7 000 NUL/<0O>

/ 001 SOH/<1»>
7 002 STX/<2>
/7 008 ETX/<%»

2039
2040

2041
2042

2043
2044
2045
2046
2047
2048
2049
2050
2052
2053
2054
2055
2056
205’
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
014355
014366
014377
014410
014421
014432
014443
014454

014465
014476
014507
014520
014531

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

015026

015037
015050
015061
015072
015103
015114
015125
015136

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
030062
033460
030462
030461
030462
031461
030462
032461
030462
033461
031062
030462
031062
031462
031062
032462
031062
033462
031462
030463
031462
031463
031462
032463
031462
033463

LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII

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

043040
020065
051040
020067
042040
020060
020040
020062
020040
020064
047040
020066
042440
020060
044040
020062
050040
020064
051040
020066
051440
020060
050040
020062
051440
020064
046440
020066
042440

020060
020040
020062

041440
020064
047440
020066
040440

.ASCII
.ASCII

.ASCII
.ASCII
.ASCII
.ASCII

NONBF
1:

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

ASCII

.ASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCIIX
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
LASCII
LASCII
LASCII
.ASCII
.ASCII
.ASCII
+EVEN

N N N NS Y NN NN NN NN NSNS NN NSNS NN

2028
2029
2030
2031
c032
2033
2034
2035
2036
2037
2038

N N N N N

CZLNAD.P11

TEST
ONMAC x24 .07 563
PAGE 6 40
10 APR-84
09:07
NON-PRINTABLE CHARACTERS
10-APR 84 08: S5

NN N N N N N N N N N N N N N N N N N N N N N N N

CIULNADO LNOL

004
005
006
007
010
016

€E0T/<4>
ENQ/ <S>

ACK/<ch>
BEL/<
7>

BS /<10»
SO /7<16>

017 SI /7¢1?>
020 DLE/<20>
021 XON/<21>
022 DC2/¢22>
023 XOF 7¢23>
024 DC4/<24>
025 NAK/ <¢25>
026 SYN/<26>
027 ETB/<27>
030 CAN/<30>
031 EM /<31>
032 SUB/<32>
034 FS /<34>
035 GS 7¢35>
036 RS 7<36>
037 US /¢37>
177 DEL/<177>
/< 200>
200
/7¢201>
201
/7¢202>
202
/7¢203>
203
204 IND/<204>
/7 <205>
205 NEL
206 SSA/<206>
207 ESA/<207>
210 HYS/<¢210>
211 HTJU/7 211>
212 VIS/<212>»
213 PLD/<213>
214 PLU/ 214>
213 RI /<215»
216 §52/¢216»

217 £53/¢217»

7¢220>
220
221 PUL/ 221>
222 PU2/¢222>
223 §T15/¢223%>
224 CCH/<224>
225 MU /<225>
226 SPA/ 226>
227 EPA/<227>
230
/7<¢230>
/7¢<231»
231
/7¢232>
232
233 CSI/<233>
234 ST /<234>
235 0SC/<235>
236 PM /<¢236>
237 APC/<237>

SEQ 00%¢

CZLNADO LNOL
CZUNAD.P11

il
W o ot o

NN
NN
NN

NRANO~NOBR
N

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
21lc
2113
2114
2115
2116
2117
2118
2119
2120
212l
(3)
2123
2125
2126
(5)
(7)
2127
2128
(3)

TEST
ONMAC x24.07 S63
1¢* APR 84 08:55

015150

015152
0151%2
015152

10 APR 84

09:07

PAGE 6 41

NON PRINTABLE CHARACTERS
NUM:

000000

F5H

>80 0057

.WORD 0O

.LIST BEX

ENDTST
L10013:

104401

TRAP

CseTST

ENDMOD

015154

.SBTTL PRINT CONTROL

s MODWLE

PRNCON.P11

BGNMOD

C15154

;THIS

TEST CHECKS THE PRINT CONTROL 8Y

SENDING MORE

THAN 132 CHARACTERS

$BEFORE SENDING A CARRIAGE RETURN AND LINE FEED. ALL CHARACTERS IN EXCESS
;OF 132 CHARACTERS SHOWLD BE DISREGARDED.

;THREE LINES ARE PRINTED PER ITERATION, THESE LINES WILL IDENTIFY THE
:COLUMN NUMBERS ACROSS THE PAGE. EXAMPLE
»

O-Q.-no- ------------

3
1
2
:123456789012345678901234567890. . . ... vttt e

3
012

;NOTICE THAT THE PRINTOUT SHOULD IDENTIFY 132 COLUMNS ACROSS THE PAGE.
3

s THIS OUTPUT

IS REPEATED 13

TIMES.

015154
015154
015154
015216
015260
015260
015264

015266
015266
015272
015274
015274
015300
015300
015304
015306
015312
015312

l;gmsr

OUTPUT @DECFIN,
05

013701
005301
000001

002012

005037

002310

000402

$BRUMP =]

005237

002310

023701
003402
000137

002310

016144

: TOGGLE PAPER OFFSET

OUTPUT OREINIT.e2
LET R1 := LSUNIT - o1
MOV
LSUNIT,
R1
DEC
R1

INCR LUNIT FROM 00 TO R1 By
LUNITY
CLR
S501714%:
501724

5017%s:

501728

INC

LUNIT

cop
BLE
JMP

LUNIT,
R1
S0173¢
501744
LET R2

:= LUNIT SHIFT

CZLNADO LNOL
CZULNAD.P11
(s

(8)
2130
2131
(4)

2132
2133
(4)
2134
(4)
(6)
\8)
(M
2135
2136
(3)
(3)
2137

015312
015316
015320
015362
015362
015370
015370
015370
015374
015374

015374

015376
015400
015404
015444
015444
015446
015446
015446
015454

015516
015516
015522

SO ONNO~NRNN
A S L L
(2%, RN LA R A A A

A PNINSNININTNININ

015522
015522
015524
015526
015532
015572
015572
015574
015574

2149
2150
2151
N

Folls

~AA

2152

(H5H

TEST
DNMAC
10-APR 84

015636
015636
015644
015646
015646
015652
015652
015660
015662
015666
015666
015730
015730
015732
015732
015774

016036
016036
016042
016042
016046
016050

10
08:5§ X24.07-563 PR}NI
AEonTRoL 09:07

013702
006302

002310

012737

000015

01705

016424

005715
001002
000137

MOV

ASL

MOV

S0175%:
015446

000753

S017
§:

112737

000012

012705

016460

005715
001002
000137

MOV

002276

003114

S0177s:
015574

000753

000016

005337

002272

023727
002002
000137

002272
015732

000746

002276

005737
003002
000137

002276

016060

0%3..COUNT
18:

LET RS

:= 0TABLE1

OTABLEL
RS
1

WHILE (R5) NE 00 DO

(RS)
.+6

ENODO
50175¢

MOvE

LET OUTBUF :B8~ 212
412, 0UTBUF
OUTPUI 0UTBUF
01, ,LUNITY

MOV

LET R3S := &TABLE2
#TABLE2,R5
WHILE (R5) NE 40 DO

1ST
BNE

(RS)

.6
502004
OUTPUI (RS)+,2810.,,LUNIT

ENODO
50177¢

OUTPUT S0UTBUF
, 01, ,LUNIT

DECR LINCNT FROM 014,
014
. ,LINCNT

TO 21 By

50202%

502014
:

L INCNT

50202
:

LINCNT,
&1
50203
50204¢

5020384
:

QUTPUI &x11,010.,,LUNIT

ENODECR
5020114

50204
:

005337

5€EQ 0058

OUTPUI @#PRTCTL,®61., ,LUNIT
LET COUNT :+ 013,

501764

0022172

000001

6 42

ngIT.RZ

TST
BNE
JMP

50200
:

012737
000402

PAGE

181
8G7

,LUNIT
.21,BUF
OUTPUT S0QUT
F
, 01, ,LUNIT
OUTPUI eQUTBU
LET COUNT := COUNT - 01
COUNT
IF COUNT GT &0 THEN
COUNT
.+6
502054

H5
CZULNADO L NO1
CZUNAD.P11

016054
016060
016060
016060
016064
016064
016072
016134

016140
016140
016144

000137

015370

004737

005306

112737

000014

004737

005306

000137

015274

PAGE

JMP

ENDIF

502054
:
MOVB

003114
ENDINCR

JHP
s01744;
$BRUMP=-1
EXIT TST
TRAP

177777

SEQ 0059

JSR PC, QUIET
LET OUTBUF :B- #14
914 ,0UTBUF

OUTPUT
o0QUTBUF
,#1, ,LUNIT
JSR PC,QUIET
501718

016144
016144
016146

104432
000346

016150
016203

055433
123

030061
047510

050135
046125

PRTCTL:

.ASCII

016246
016260
016272
016304
016316
016330
016342
016354
016366
016400

020040
020040
020040
020040
020040
020040
020040
020040
020040
020040

X0:
X1:
X2:

.ASCII
.ARSCII
LASCII

X4 :

ASCII

X6:
X7:

LASCII
LASCII

X9:

.ASCII

016412

031061

032063

033065

X11:

.ASCII

/712345678907

016424
016460

016246

016246
016272

016246
016304

.EVEN
TABLEl:
TABLE2:

.WORD
.WORD

X0, x0,x0,x0,x0,Xx0,X0,X0,x0,Xx1,X1,X1,X1,0

016514
016514
016514
016516

016260

.WORD
NLIST BEX

Xx3:
X5:

X8:

LASCII

EVEN

<33>/({10mPRINT

104401

ENDMOO

.SBTTL

BGNMOD

TRAP

CONTROL

TEST

«12»

/SHOULD SHOW 132 COLUMNS PRINTED/<12>¢12><15>
o/

1/
2/

S5/

17/
8/

X1,%X2.%x8,%X4,%X5,%6,X7,%8,X9,X0,%x1,X2,X3,0

.LIST BEX

ENDTST
L10014:

;sMODULE
016516

.ASCI1Z

CSEXIT

110014-,

NNNNNNNNNN

2153
2154
(4)
2155
2156
(4)
2157
2158
2159
(4)
(4)
2160
2161
(3)
(3)
2162
2163
2164
2165
2166
2167
2168
2169
2170
2171
2172
2173
2174
2175
2176
2177
2178
2179
2180
2181
2182
2183
2184
2185
(3)
(3
2186
2187
2188
2189
2190
2191
2192
2193
2194
2195
2196
2197
2198
2199
2200

TEST
ONMAC X24 .07 5€3
% O APR 34
09:07
PR NT CONTROL
10 APR-84 08:55

CSETST

MULTIPLE LINE ADVANCE
MULTLI.P11

CZUNADO LNO1
CZLNAD.P11
201
2202
2203
2204
2205
22006
2207
2208
2209
2210

(3
2211

2212
2213
2215
2217
2218
2219
2220
(4)
2221
2222
(3)
2223
(4)
2224
(7

TEST
ONMAC
10 APR 84 08:55

1o
%24 07 S63

10 APR-84

09:07

SEQ 0060

PAGE 6 44

MULTIPLE LINE ADVANCE
;00

1 THIS

TEST

CHECKS

THE MULTIPLE LINE

ADVANCE

THE LNOl.

A LINE

sNUMBERS IS SENT AND THEN A NUMBER OF LINE FEEDS ARE SENT. THUS THE
tNUMBER PRINTED WILL INDICATE THE NUMBER OF BLANK LINES FOLLOWING THAI
sLINE. THE NUMBER OF LLINES IS VARIED BETWEEN 2 AND 7 AND A LINE Of

sALL 0°'S WILL INDICATE THE END OF THE TEST

016516
016516

016516
016560
Cl6622

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
000007
002272

012703

003114

012737
000402

000001

005237

002300

023727
003003

002300

117723

000170

000767

sPRINT

TEST

002272

112723

000012

IDENTIFICATION

LET STACHR := ATABSTR
MOV
@TABSTR,STACHR

;OUTPUT CHARACTERS

REPEAT
502064
:
LET LINCNTY
MOVB
LET LINCNT
MOV
8IC

8IC

002300

000204

TOGGLE PAPER OFFSET

OUTPUT &DECFIN,#5
OUTPUT OREINIT,#2
OUTPUT SMULINE,®91.

:8= 8STACHR
R
, LINCNY
SSTACH
:= LINCNT AND &7
LINCNT, -(SP)
*7,.(SP)

(SP)+ ,LINCNT

LET R3 := 0QUTBWF
MOV
S0UTBUF ,R3
INCR CCNT FROM @1 TO #132.
&1,CONY
MOV
50207
8R
502104:
CCNY
INC
502078:

CONT, 0132,
cre
502114
8GY
LEY (R3). :8= 8STACHR
8STACHR,(R3).
MOvB
ENDINC
502104
8R
CLR

020437
001404

000771

002272

50211¢%:
LET R4

005004

005204

017:40

BGNTST
T6::

SEQUENCE.

:= #0

sGET A CHARACTER 10 OUTPUT

:MAKE

THE ASCII TO OCTAL

1SET UP QUTPUT BUFFER

»al

;PUT CHARACTER

IN QUTPUT BUFFER

WHILE R4 NE LINCNT DO
50212%:

RA L INCNT
cHe
502134
8€Q
LET (R3Y. :B= 012
MOV8
012,(R3).
LET R4

INC

ENDDO
BR

:= R4

502124

tFILL WITH LINE FEEDS

CZLNADO LNO1
CZLNAD.P11
(3

2234
2235
2230
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)
(2)
2261
2262
2263
2264
2265
2266
2267
2268
2269
2270
2271
2272
2273
2274
2275
2276
2277
2278

TEST
ONMAC X24.07 563
10 APR 84 08:55

JD
10 APR-84

sNOW OUTPUT

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

017142
017157
017222

033462
033
052516

017314

104401

THE ACTUAL LINE

;

UPDATE CHARACTER COUNT

;OUTPUT

THE LINE

1ST

003114

.WORD

033463
066460
051105

LINCNT

BNE
502064
LET OUTBUF :B+ #14
MOVB
€14 ,0UTBUF
QUTPUT S&QUTBUF,
Q1
JSR PC,QUIET
EXIT TST
TRAP

033062
030533
041115

iNUMBER OF CHARACTERS TO OUTPUT

UNTIL LINCNT EQ #0

104432

000000

017316

SEQ 0061

6 45

LET R4 := LINCNT + 0132,
LINCNT,R4
MOV
2132, ,R4
ADD
LET STACHR := STACHR »+» 41
STACHR
INC
OUTPUT &0UTBUF ,R4
QUIETY
JSR PC,

000156

017140

017314
017314
017314
017316

PAGE

502134:

016772

016772
016772
016776
017002
017002
017006
017046

09:07

MULTIPLE LINE ADVANCE

STACHR: .WORD 0O
.NLIST BEX
TABSTR:

MULINE:

.ASCIZ

.ASCII
LASCIZ

CSEXIT

L10015-.

/272637463540/

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

.EVEN
.LIST BEX
ENDTST
L10015:

ENOMOD

TRAP

CS$ETSTY

.SBTTL DVSTRIKE
B8GNMOD

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

;IN L ANDSCAPE, UP TO 142 PRINTABLE CHARS/LINE ARE PERMITTED. WITH

CZUNADO LNOL
CZUNAD.P11

1<%

.3 aPR 84 JBTaE
DNMAC

X24.07

563

ovATRTKE
APR

09:07

A MAXIMUM OF

FIVE

PAGE

6-4

CARRIAGE

SEQ 006e

RETURNS/LINE.

IN PORTRAIT,

150

;:CHARS/LINE WITH A MAXIMUM OF TWO CARRIAGE RETURNS/LINE ARE ALLOWED,
THIS TEST IN A SOMEWHAT MODIFIED FORM IS BEING USED ALSO FOR
THE VAX VERSION OF THE LNO1 EXTENDED DIAGNOSTIC.

NOTE
:

017316
017316

BGNTST

017316
017360
017422
017464
017526

85
OUTPUT #DECFIN,
OUTPUT &REINIT,#2
OUTPUT #VPA,
%6
OUTPUT &PORSEL,
&5
OUTPUT @OVTEST,#19.

TOGGLE PAPER OFFSET

SET VERTICAL PQOSITION
SELECT PORTRAIT MODE
IDENTIFY TEST

T7::

OVERLAY

TWO LINES OF SEVENTY-FIVE CHARS

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

TEST

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

50215%:

005201
020127
003105

000062

012704

003114

012702
000401

000001

502144
:

502204
:

005202
020227
003003

000113

112724

000057

000771

S0217%:

000015

004737

005306

012704

003114

012702
000401

000001

000113

#1,R1

INC

TO 050. BY o1

502144

B8R

cHe
8GT

R1,4050,
50216%
LEY RA := QOUTBUF
#0UTBUF ,R4
MOV
INCR R2 FROM @1 TO 075,
MOV
#1,R2

B8R

50217

INC

cMp

R2,07S,

50221

B8R

LET (R4).

By 01

:B= 057

ENDINC

502204

LET (R4).,

:B= #15

215,(R4).
MOV
OUTPUT QOUTBUF ,#76.
JSR PC, QUIET
LET R4 := S0UTBUF
SOUTBUF ,R4
MOV
INCR R2 FROM #1 TO 475. By #1
MOV

50223

005202

MOV

8G?Y

50221¢%:

112724

020227

INCR R1 FROM &1

000001

502224
:

#1,R2

B8R

502224

INC

cHe

R2,075,

50 LINES

CZUNADO LNO1
CZLNAD.P11
(9)
2310
(4)
2311

(S)

(4)
2312
(4)
2313
(4)
2314
2315
2316
(5)
(4)

2317
(4)
2318

2319

2320
2321

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

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
LEY (R4). :8+ 0134
0134,(R4).
MOVB
ENDINC
8GT

003003

112724

09:07

000134

000771

50224$:

112724

000015

112724

000012

004737

005306

000667

502164
:

112737

000014

004737

005306

003114

B8R

50223

LET (R4)e :B= 215
MOVB
015,(R4).
LET (R4). :B= 012
212,(R4).
MOVB
OUTPUT QOUTBUF ,077.
JSR PC, QUIET
ENDINC

B8R

50215

LET QUTBUF :B= 014
MOVB
€14, 0UTBUF
OUTPUT QQUTBUF,
&1
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

50225%:

502314

005202
020227
003003

000107

112724

000057

000771

S0230%
:

502324

112724

000015

004737

005306

012704

003114

012702

000001

000401

QUTPUT @LANSEL
, 05
INCR R3 FROM &1 TO #66.
MOV
#1,R3

502344

B8R

502254

INC

SELECT LANDSCAPE MODE
66 LINES OF OVERPRINTING

By #1

cHe
8GY

R3,066.
50227¢
LET R4 := #OUTBUF
R4
SOUTBUF
MOV
INCR R2 FROM 41 TO 671.
MOV
e1,R2

B8R

50230

INC

RrR2

cHe
BGT

R2,071.
502324
LET (R4).» :8=
MOVB
857,(R4).
ENOINC
502314
BR

By &1

057

LET (R4). :B= 015
915,(R4).
MOVB
OUTPUT S0UTBUF ,#72.
JSR PC, QUIET
LET R4 :+= 0QUTBUF
S0UTBUF ,R4
MOV
INCR R2 FROM &1 TO #71.
MOV
#1,R2
502334
BR

CZLNADO LNOL
CZLNAD.P11

TEST

1. APR 84 8§T

09:07

INC

CcMP

R2,071,

005202

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

020227
003003

000107

112724

000134

50233%:

BGT

502354
:

112724

000015

112724

000012

004737

005306

000667

502274
EXIT TST

104432

104401

020440

051105
133
133
133

502354
LET (R4):

052123
061
061
063

B8R

6 48

SEQ 0064

:B= 0134

50234

LET (R4). :B= 015
MOVB
#15,(R4).
LET (R4), :B= 012
MOVB
212,(R4)+
OUTPUT QQUTBUF
, 473,
JSR PC, QUIET
ENDINC
502264
BR
TRAP

CSEXIT

.WORD
L10016-.
LNLIST BEX
OVTEST: .ASCIZ
/OVERSTRIKE TEST 7/¢12><12>
LANSEL: .BYTE 33,133.61,60,155

PORSEL:

VPA:
.EVEN
ENDTST
L10016:

.BYTE

33,133,61,61,155

.BYTE 33,133,63,60,60,104

TRAP
CSETST
.LIST BEX
ENDMOD
.SBTTL
READY LINE INTERLOCKS

;s MODULE

020440

PAGE

4134,(R4).
MOv8
ENDINC

000771

020436
020436

020436

M5
gg X24 .07 SGSDV&?R?&E-GA

OLDLCK
. P11

TEST 8

BGNMOD
e

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

sMANUAL INTERVENTION IS USED TO
;OPEN THE INTERLOCKS TO PRODUCE FAULTS
;IN THE PRINTER AFTER WHICH THE RESULTANT ERROR
s INDICATION IS VERIFIED.
020440
020440
020440
020440
020442
020442
020444
020444
020446

BGNTST
T8

;DETERMINE IF MANUAL INTERVENTION IS ALLOWED

104450

MANUAL
TRAP

C$MANI

103402

B8CS

118

104432

003026

BCOMPLETE 11

EXIT TST
TRAP
CSEXIT
.WORD
L10017-,

;EXIT TEST IF MANUAL INTERVENTION TESTS ARE NOT SPECLFIED

CZLNADO LNO1
CZLNAD.P11

2370
(6)
(10)
2371
3
(3
2372
(4)

2373
(4)
2374

\S)
(7)
2375
2376
2377

TEST
ONMAC 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

11%:

002264

IF INHINT EQ #0 THEN
TST
INHINT
502364
BNE
EXIT TST
TRAP

104432
003014
50236%:

005037

002270

013701
005301

002012

SEQ 0065

.WORD
ENDIF

CS$EXIT

L10017-.

LET FLAG := 40
CLR
FLAG
LET R1l := LSUNIT MOV
LSUNIT,R1

OEC

;CHECK FOR ERROR IN EACH PRINTER UNDER TEST

005037
000402

002310

005237

002310

023701
003020

002310

013702
006302

002310

032772
001410

100000

005262

003050

104456

LMORD
.MORD
.WORD

000006
003342
000000
005072

002352

INCR LUNIT FROM 60 TO R1 BY #1
LUNIT
CLR
502374
BR
50240¢:
INC
LUNIT
50237¢:
cMP
LUNIT,R1
502414
861
LET R2 := LUNIT SHIFT 1
MOV
LUNIT,R2
ASL
R2
IF #BIT15 SETIN 8LPCSR(R2) THEN
81T
#BIT1S5,8LPCSR(R2)
BEQ
S02424
LET ERRTBL(R2) := ERRTBL(R2)
INC
ERRTBL(R2)
ERRHRD 6, CSRERR
TRAP
CS$ERHRD

002352

50242
:

CLR
ENDIF

ENDINC
BR

000753

50241¢%:

6
CSRERR
O
LET SLPCSR(R2)
SLPCSR(R2)

+ 01

:= &0

502404

: PRINT TEST NAME
H

020554
020616

QUTPUT @INTLK,028.
OUTPUT 4BLANK, 044,

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

020660
020660
€20664
020670
020672

005037
005037
000405

LET ERRFLG := &0
CLR
ERRFL.G

002334
002310

CLR LUNIT
2%:

CZUNADO LNO1
CZUNAD.P11

bOuUmmbuwghhquObbanm &

n
LY
PN INANANANANN
P NSNSy NN\ “’\’ ~~
L ¥X7
WY . NIRRT
N N W N NS N SN N S
(RPN

2397
2398
(3
(8)
2399
2400

B¢

TEST
ONMAC 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

005237

002310

013702
006302

002310

023701
003402
0001387

002310
021444

005037

002270

012746
012746
010620
104417
062706

022356

013746
012746
012746
010600
104417
062706
012746
012746
010600
104417

062706

INC LUNIT
LET R2 :+« LUNIT SHIFT
MOV
LUNIT, R2
ASL
R2

CSPNTF
o4, ,SP
#PAPSM]I ,LUNIT

000006

ADD

TRAP

6, 5P

MPAPSM2,
- (SP)
o1,-(SP)
SP,RO

TRAP

CSPNTF

TRAP

CSGMAN

ADD
o4 ,SP
GMANIL READY, FLAG,

000004

100004:

002334

LUNIT, -(SP)
OPAPSMH]L
, - (SP)
2, -(SP)
SP.RO
COPNTF

MOV
MOV
MOV

022542
000001

005037

®PAPRSH, -(SP)
o1, -(sP)
SP,RO

PRINTF OPAPSW2

000130
007006
100000
002272

S02434;
005237

002272

023727

002272

000101

002272

000202

002272

000303

001024

TRAP
ADD
PRINTF

MOV
MOV
MOV
MOV

000404
002270

023727

@PAPRSW

022462
000002

002310

:» ®0

FLAG

PRINTF

MOV
MOV
MOV

104443

001410
023727
001404

LET FLAG

CLR

000004

000002

CMP LUNIT,R1
BLE 33
JMP 4

000001

012737

SEQ 0066

BR
MORD
.WORD
.MORD
. WORD

100000,

10000
FLAG
T3CODE
READY
100000

¢ LINE COUNT WILL ALLOW FOR 3 PAGES OF PAPER

LET LINCNY :+ @82
€2 ,LINCNTY
MOV
LET ERRFLG :* &0
CLR
ERRFLG
REPEAT

INC

YES

OUTPUL #PAPTST 02,858 ,LUNIT
LET LINCNT := LINCNT . 21

L INCNT

IF LINCNT EQ #65, OR LINCNY €Q 2130. OR LINCNT FQ 2195,
cw
LINCNT, 965,
502443
BEQ
ce
LINCNT, #130.

B8EQ
502444
;

ce
BNE

502444

LINCNT, 2195,
502454
LET OUTBUF

@14

FORM FEED

THEN

CZUNADO LNO1
CZLNAD.P11

W4)
2416
2417
(4q)
2418
(4)
1 6)
4)
(8)
(4)
2419
v6)
(10}
2420
(4a)
24921
2422
(4)
(S)
(S)
(S)
2423
7)
2424
ey

2425

ot o

Nt N

N
N
fifl’nfif\f\r\fif'\.figfifififlf\ la¥YTa¥
Ta
BUVUWHEHNNNDNWNWND
[+ L,3%
Y. 9K J
P s
s
e O gbbua‘v (9%QRN

2420

Cét

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

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

021234
021276
021276
021300
021302
021304
021306
021306
021312
021312
021316
021316
021320
021320
021320
021324
021324
021324
021324
021330
021334
021340
C2l1342
021344
021350
021350
021354
021354
021356
021360
021362
021364
021366
021370
021370
021370
021374
021376
021376
021402

012737

000014

003114

MOV

502454
:

023727
001403
0057387
001706

002272

005737
001035

002334

012737

000014

000404

502464
;

cHe

LINCNT, 0260,

TST

ERRFLG

8EQ

021324

000402

50247

LET QUTBUF :+« 014
MOV
214 ,0UTBUF
F
, 81,58 ,LUNIT
OUTPUI ¢OUTBU
ERRHRD 8,PAPSWI

003114

CLR

502508
:

002310
022604
000002

005037

002270

JHP
ELSE
8R

LET ERRFLG

ENDIF

11002%»>

ERRFLG

CSPNTF

86 ,5P

GrFANIL READY,FLAG, 100000, YES
TRAP
CIGMAN

100018

020672

LET FLAG := #0
CLR
FLAG

.WORD

002352

<JMP

502508

B8R

005072
000137

:= ERRTBL(R2)

110028: PRINTF #PAPRDY ,LUNIY
LUNIT, -(SP)
MOV
MOV
WPAPRDY, -(SP)
MOV
2, -(5P)
MOV
SP.RO

104443

002310

110024

TRAP

013702
006302

QUTPUT

PAPSHI

INL INE

ADD

000404
002270
000130
007006
100000

FORM FEED

CSERMRD

.MORD
O
LET ERRTIBL(R2)
INC
ERRTBL(R2)

002334

#OUR PAGES PRINTED OR

ERRFLG

BNE

502474
:

013746
012746
012746
010600
104417
062706

UNTIL

FORM FEED

IF ERRFLG EQ €0 THEM

.WORD

000137

THE

50243

.WORD

003050

OR ERRFLG NE

uTPUT

50246

TRAP

005262

@0UTBUF
, 01,58 ,LUNIT

UNTIL LINCNT EQ €260.

TST

104456
000010
003402
000000

005037

€14 ,0UTBUF

CJTPUTI
ENDIF

BEQ

002334

SEQ 0067

10001

FLAG

.WORD
.WORD
. WORD

13CODE
READY
100000

LET R2
MOV

:= LUNIT SHIFT
LUNIT
R2

ASL

LET SLPCSR(R2)

CLR

:*»

S8LPCSR(R2)

JMP 2%
sEXPECTED ERROR HANDLER.

1
3

RESET

THE

LP (SR

THE FF

CZUNADO LNO1

TEST

DWMAC

cinao ROl "8 aPr 8a O8-SS

X24.07 563

09:07_

I'A

ReADY D ENE INTRA L0k ROE 1B 128

SEQ 0042

JJUST SET EXPECTED ERROR INDICATUR.

2437
(4)
2438
(8)
2439
\7)
2440
(4)
2441
\4)
2442
(4)
2483
Sa4a
2445
(S)

021406
031406
021414
021414
021420
021420
021426
021826
021432
021432
021436
021436
021442
021444
021448

(6)
(10>
(7)
(7)
(9)
2446
(S5)
(8)
2447
(4,
2448
(4)
2449
(7)
(6)
(3)
()
(8)
2450
(8)
(7)
(6)
(3)
(3)
(4)
2451
(7)
(6)
(3)

021452
021452
021456
021456
021462
021464
021464
021470
021472
021472
021500
021500
021504
021504
021510
021514
021516
021520
021524
021524
021530
021534
021540
021542
021544
021550
021550
021554
021560

(8)
2452
(3)
(3)
(8)
(5)
(5)

021564
021570
021570
021572
C21574
021576
021600

012737

000001

005037

002332

042762

120000

005062

002746

005062

002546

005062
000207

002646

(7) 02145C 000402

005037

002310

005237

002310

023701
003117

002310

013702
006302

0023.0

013737

002310

005037

002270

012746
012746
010600
104417
062706

022675
000001

013746
012746
012746
010600
104417
062706

002310
023006
000002

012746
012746

023073
000001

(8)

APR-84

021562

010600

000004

000006

104417

062706
104443
000404
002270
000130
007006

002334

002506

LET ERRFLG :=» 21
MOV
a1 ,ERRFLG
LET ERRCOD := 00
CLR
ERRCOD
LET STATUSCR2) := STATUS(R2) CLR.BY OLRRORIACTIVE
BIC
@ERROR ! ACTIVE,STATIIS(R2)
LET CURCNTCR2) :+ @0 —
i CLEAN UP THE DRIVER PARAMETERS
CLR
CURCNT(R2)
LET CURADD(R2) :e 0
CLR
CURADD(R2)
LET REPCNT(R2) :o 00
CLR
REPCNT(R2)
RTS PC
1AND RETURN
{VERIFY OPERATION OF PAPER TRAY HANOLE INTERLOCK SWITCH,
4s:
INCR LUNIT FROM @0 TO R1 BY @1
CLR
LUNIT
502524;
502518

002074

B8R

502514

INC

LUNIT

cHp
LUNIT,R1
8GT
$0253¢
LET R2 := LUNIT SHIFT
MOV
LUNIT,R2
ASL
R2
LET LSLUN :» LUNIT
MOV
LUNIT,L$LUN
LET FLAG :* 0
CLR
FLAG

PRINTF OHANRSW
MOV
SHANRSW,
- (SP)
MOV
o1,-(5P)
MOV
SP.RO
TRAP
CSPNTF
ADD
#4,5P
PRINTF #HANSM1.LUNIT
MOV
LUNIT, -(SP)
MOV
#HANSM1L
, -(5P)
MOV
02, -(5P)

MOV
TRAP
ADD

PRINTF
MOV
MOV

MOV

TRAP

000004

SP.RO
CPNTF
6,5P
OHANSWR
OHANSW2,
- (SP)
o1, -(S5P)
SP.RO
CPNTF

ADD
o4, 5P
GMANIL READY, FLAG.
TRAP
CSGMAN
BR
100024
LWORD
FLAG
'WORD
T$CODE
'WORD
READY

100000,

1€S

CZUNADO INO1
CZLNAD.P11

(5)
(3
2453
(6)
(10
2454
(7))

o~
P
v
N

bfififlfifififlgfiflffifl

VOB WWUID DL 1~

(6)
3
(4)
(4)
2455

(4)

TEST

ONMAC

10 APR-34 08:55

021602
021604

100000

021604
021612
021614
021614
021620

032772
001431

100000

012746
012746
010600
104417
062706

023132
000001

021604

021624
021626

021630
021634
021634

021640

021644
021650
021652
021654

021660

021662
021664
021666
021670
021672
021674
021674
021674
021676
021676
021676
021702
021702
021710
021710
n21712
21714
021716
021720
021720
021720
021720
021722

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

013746
012746
012746
010600
104417
062706

X24.07 563

Fé
10 APR-84
09:07
PAGE 6-53%
READY LINE INTERLOCKS
TEST 8

100024
:

002352

WORD

002310
023217
0000C2

PRINTF OHANRDY
OHANRDY
, -(SP)
oL, -(SP)
SP,.RO
CSPNTF
#4,SP

MOV
MOV
MOV
MOV

LUNIT, -(SP)
MHANRDL
, -(SP)
#2,-(SP)
SP.RO

TRAP

104443
00404
002270
000130
0C7006

100000

10003%:

000411

502544
:

005262

003050

013737

002310

er
.WORD
.WORD
.WORD
.WORD

MOV

002074

TRAP

104456
000011
003503

.WORD
.WORD
LORD
ENDIF

000000

PRINTF

GMANIL READY,
CSGMAN
100034
FLAG
T$CODE

502538
:

FLAG,

100000,

YES

READY

100000

502554
LET ERRTBL(R2) :+ ERRTBL(R2)
ERRTBL(R2)
LET LSLUN := LUNITY

LUNIT,LSLUN

ERRHRD 9,HANSMWI
CS$ERMHRD
9
HANSWI
O

502554:
ENDINC

000654

OHANRDL ,LUNIT

CSPNTF
#6,5P

ELSE
8R
INC

THEN

502544

MOV
MOV
MOV
TRAP
ADD

TRAP
ADD

000006

100000

IF eBIT1S SETIN 8LPCSR(RZ2)
BIT
BIT15,8LFCSR(R2)

B8EQ

000004

SEQ 0069

502528

B8R

stVERIFY OPERATION OF FRONT DOOR INTERLOCK SWITCH.

005037
000402

002310

005237

002310

023701
003107

002310

013702
006302

002310

INCR LUNIT FROM 90 TO R1 B8y o1
LUNIT
CLR

502578
:
502564
:

B8R

502564

INC

LUNIT

cMp

LUNIT,R1

BGY
LET R2
MOV
ASL

50260
:» LUNIT SHIFT
LUNTT ,R2

LEYT FLAG

:= 40

CZUNADO i NOL
CZLNAD.P11
(8)

2467

(X . Y7V,

SR JWIWIWIWIW IR T T INRNGI , § AW IVRERINIT DY « NPT » QNI NONIRO NN, NN

NI NY . " NN

n
n
n
n
n
n
n
n
n
n
~h [aY Ta¥ Tala¥ Talalalalalalay Talalalala¥ Ialalalaleial laliey lalalalelaleld ITalalalalal Yatalt VoV
N
(L. B YNV HUEAWAVNDUWUNDDURINDBWRI
VB IO WAVNTNDWWRDBDUWANR
DDLU

(8)

[ €

TEST
ONMAC X24.07 563
10 APR-84
09:07
PAGE 6 ?48
READY { INE INTERLOCKS
TES
10 APR 84 08: 55

021730
C21754
021754
021760
021764
021770
021772
021774

022000
022000

C22004
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

CLR

PRINTF
MOV

MOV

CSPNTF

MOV
MOV
MOV

SP,RO

#6,SP

TRAP

€000Su1, -(SP)
e1,-(SP)
SP,RO
CSPNTF

04 ,SP
ADD
GMANIL READY, FLAG,
TRAP

CSGMAN

.MORD
.WORD
.WORD
.WORD

FLAG
T$CODE
READY
100000

B8R

000404
002270
000130
007006

100000

10004
:

032772
001431

100000

013746
012746
012746
010600
104417
062706

002310
023372
000002

002352

:
100054

000411

502614
:

005262

003050

013737

002310

LUNIT, -(SP)
#DOORDY, -(SP)

ADD

TRAP
BR
.WORD

#6,SP
PRINTF #DOORD1
#DOORD1, -(SP®
4, -(SP)
SP,RO
CIPNTF
4 ,SP
GMANIL. READY, FLAG,
CS$GMAN
100054
FLAG

ELSE
BR

502624

LMORD
.WORD
.WORD

INC
002074

PRINTF #DOORDY,LUNIT

SP,RO

MOV
MOV
MOV
TRAP
ADD

023441

YES

10004

MOV

TRAP

000001

100000,

IF #BIT1S SETIN SLPCSR(R2) THEN
BIY
#BLIT1S,8LPCSR(R2)
BEQ
502614

MOV
MOV

104443
000404
002270
000130
007006
100000

000012

TRAP

ADD

104443

104456

©O00RSW, -(SP)

02,-(SP)

PRINTF ¢D0O0SW1

012746
012746
010600
104417
062706

FLAG

@DOORSW,LUNIT
LUNIT, (SP)

MOV

SEQ 0070

MOV
TRAP

.WORD

CSPNTF

100000,

YES

T$CODE
READY
100000

LET ERRTBL(R2) :+ ERRTBL(R2)
ERRTBL(R2)
LET LSLUN := LUNIT
LUNIT,LSLUN
ERRHRD 10,
CSERHRD

DOOSWI

ZLNADO LNO1
CZLNAD.P11
(5)
(5)
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
2490

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
DNMAC
10 APR 84 08:55%

022144
022146
022150
022150
022150
022150
022156
022156
022160
022160
022160
022164
022164
022172
022234
022240
022240
022242

Go
X24 .07

563

APR-84

003556
000000
502624:

012772

000000

002352

000664

005062

002746

012737

000014

004737

005306

(9:07

PAGE 6

READY ATN INTRALO
B CE 185758
.WORD
‘WORD
ENDIF

52Q 0071

DOOSWI
©

LET BLPCSR(R2) := 000
MOV
200, SLPCSR(R2)
ENDINC
502574
BR
50260:
LET CURCNT(R2) := 00

CLR

LET OUTBUF
MOV

003114

CURCNT(R2)

014

014, 0UTBUF

OUTPUT 6QUTBUF
, &1
JSR PC,QUIET

EXIT

104432

TST
TRAP

.WORD

001232

CSEXIV
L10017-.

JNLIST BEX
022244
022301
022356
022462
022542
022604
022673
022675

023006
023073
023132
023217
023265
023342
023372
023441

023474
023474
023474
023476

023476

042522

124
047045
040445
040445
047045
040
045

040445
045

047045
045
045
047045
047045
045
023474

104401

042101
044510
040445
044527
047524
040445
o012
022516
047510
052101
040445
041501
022516
040445
040445
041501

020131
020123
043101
044124
041440
042522
040501
044522
020117
042522
042514

047501

047111

046103
042514

INTLK:
BLANK:

_ASCIZ
_ASCIZ

PAPRSW:
PAPSW1:
PAPSW2:
PAPROY:
PAPTST:
HANRSM:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCI12
.BYTE
.ASCIZ

DOORSW:
DOOSW1:
O0ORDY:
DOORD1:
.EVEN

.ASCIZ
.ASCIZ
.ASCIZ2
.ASCIZ

HANSW1:
HANSW2:
HANRDY:
HANRDL:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

LIST BEX
ENDTST
L10017:

TRAP

/READY LINE INTERLOCK TEST 8/¢<12>
/THIS PAGE WILL BE FOLLOWED BY 3 BLANK PAGES/<12>
/8NSAAF TER PRINTING STOPS - REMOVE ALL PAPER FROM BOTH PAPER
/8AMITH EXCEPTION OF ONE PER TRAY ON LUNIT %#D2wN/
/#ATO CHECK PAPER OUT INTERLOCK.®N/

:SNTQRESTORE PAPER,

CLEAR,

TRAYSEN,

PLACE LUNIT «D2sA ON LINE.®N/

/8NSAAF
TER PRINTING STOPS - TURN PAPER TRAY HANDLE COUNTER C.OCMWISE
/#ARORIZONTAL POSITION UNTIL IV STOPS, ON LUNIT sD2#N/
/78ATO CHECK INTERLOCK SWITCH.sN/
/7¥NSARETURN PAPER TRAY HANDLE TO VERTICAL POSITION,wN/
/8ACLEAR, PLACE LUNIT wD2#A ON LINE.SN/
/SNSAQOPEN FRONT DOOR ON LUNIT #D2#A TO CHECK /
/78NSAINTERLOCK SWITCH,
N/
/8NSACLOSE FRONT DOOR ON LUNIT #D2#A, %N/
/8ACLEAR, PLACE ON LINE.sN/

Csersy

ENDMOD

.SBTTL
ABSOLUTE AND RELATIVE POSITIONING
;MODWLE ABREL.P11
BGNMOO
‘.'

]
THE OBUECT OF THIS TEST IS TO VERIFY THE CORRECT OPERATION OF
;THE FUNCTIONS CALLED VERTICAL AND HORIZONTAL POSITION ABSOLUTE AND

THE TEST WILL DC THIS 8Y DRAWING A RECTANGULAR GRID USING
IF THE
:MACHINE HANDL"S THE SEQUENCES PROPERLY THE GRID SHOUWLD HAVE THE FOL

;RELATIVE,

;B0TH HORIZONTAL AND VERTICAL POSITIONING ESCAPE SEQUENCES.
sLOWING CHARACH =TSTICS:

TOw

Hé6
CZLNADO LNO1
CZUNAD. P11

Test

1 O APR 84

2571
2572
2573
2574
2575
2576
2577

THE GRID'S UPPERMOST LEFT CORNER SHOULD BEGIN TWO INCHES FROM
THE TOP AND LEFT EDGES OF THE PAPER.
THE DIMENSIONS OF THE GRID SHOUWLD BE FOUR INCHES IN HEIGHT
B8Y SEVEN INCHES IN ' ENGTH,
EACH BLOCK CONTAINED WITHIN THE GRID SHOULD BE ONE INCH SQUARE,

:
:

TOP = 2 INCHES
BOTTOH = 6 INCHES

; THE MARGINS WILL BE SET AS FOLLOWS:

LEFT = 2 INCHES

RIGHT

= 9 INCHES

:THE GRID ITSELF WILL BE DRAWN USING THE

:BE INSIDE THE MARGIN BOUNDARIES.

"X" CHARACTER.

ALL

“X"S WILL

;OUTSIDE THE MARGIN BOUNDARIES THE TEST WILL ATTEMPT TO PRINT THE "0~
:CHARACTER 1/2 INCH OUTSIDE THE OUTER EDGCS OF THE RECTANGLE.,
IF THE
+MARGINS ARE

“HARD"

THEN THE

"0” SHOULD SUPERIMPOSE ALL

THE

"X”S ON

: THE OUTER EDGES OF THE GRID.
IF THE MARGINS ARE "SOFT~ THEN THE
:"0"S WILL BE PRINTED 1/2 INCH OUTSIDE THE OUTER EDGES OF THE GRID.
;THIS IS TRUE FOR TOP, BOTTOM AND LEFT MARGINS ONLY,
THE RIGHT MARGIN
sFUNCTIONS DIFFERENTLY AND, THEREFCRE, IS HANOLED DIFFERENTLY.,
THE
;RIGHT MARGIN WILL BE OVERPRINTED SO AS TO BE UNIFORM WITH THE OTHERS.
sHOWEVER, IT IS NOT DONE IN THE SAME MANNER.

2540
2541

2565
2566
2567
2568
2569
2570

5EQ 0072

asdBLOTE R0 RECRTIvE"BBsHi18NING
i
H
:
H

252¢
2523
2524
2525
2520
2527
2528
2529
2530
2531
2532
2533
2534
2535
2536
2537
2538
2539

2542
2543
2544
2545
2546
2547
2548
2549
255v
2551
2552
2553
2554
2555
2556
2557
2558
2559
2560
2561
2562
2563
2564

DNHAE X24.,07 563
O 8:55

000000

GLOBALS REFERENCED:

.REPT

BEGIN TEST
SELECT DECIPOINTS AS SIZE UNIT
PRINT TEST ID
PRINT OPERATOR INSRUCTIONS ON FHINTER

SET TOP, BOTTOM, LEFT AND RIGHT MARGINS

WHILE VERTBL NE 70 #0 DO

MOVE TO CORRECT VERTICAL POSITION

ENDDO

PRINT ONE LINE OF

THE GRID

MOVE VERTICALLY TO 6 1/2 INCH SPOT
PRINT ROW OF

“0"S BELOW BOTTOM MARGIN

MOVE VERTICALLY TO 1 1/2 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

;DO FOR EACH ROW OF GRID

CZLNADO LNO1
CZLNAD.P11
2578
2579
2580
2381
(3)
2582
2583
2584
2585
2586
2587
2588
2589
2590

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

023476
023476

023476
023540
023602
023644
023706
023750
024012
024054
(4)
024054
2591
024060
(4)
024060
(6)
024060
(102 024062
024064
2592
024124
2593
2594
024166
2595
024172
2596
024234
2597
024240
(7)
024240
2598
024244
(4)
024244
(3)
024246
2599
024246
2600
024310
2601
024352
2602
024414
024456
2603
(4)
024456
2604
024464
024526
2605
2606
024570
2607
024632
024636
2608
(3)
024636
024640
(3)
2609
2610
2611
024642
2612
2613
024656
2614
024751
2615
025057
025140
2616
2617
025220
2618
025316
025332
2619
2620
025346
2621
025355
2622
025364

19::

012704

024642

50263:

005714
001471

004737

005306

004737

005306

062704

000002

502644
:

000014

OQUTPUT #REINIT,#2
OUTPUT @SELDEC,#5
OUTPUT #ABREL ,#59.
OUTPUT #INSTRC,0119.
OUTPUT #INSTR1, €110,
QUTPUT &TOPBOT,012.
OUTPUT #LEFRI,012.
LET R4 :» #VERTBL
L
R4
#VERTB
MOV
WHILE (RA) NE &0 DO
TST
8EQ

ADD
ENDDO

000705

112737

BGNTST

B8R

(R4)
502644
OQUTPUT (RA), o7,
OUTPUT OGRID,#101.
JSR PC,QUIET
OUTPUT #GRID1,#37.
JSR PC,QUIET
LET R4 := R4 . o2
2.R4

OUTPUT #VSTIXHF
, 87
OUTPUT #HILOSQ, 048,

MOV8

005306

214, 0UTBUF

025364
055433

o012
040
044124
04CAa40
033
033
033
033
033

s
025355
030061
044124
047101
020105
042116

133
133
133
133
133

025411
044155

020105
020104
044504
033440
061
061
061
061
062

INSTR1:

DO FOR EACH ENTRY

:
s

MOVE
PART

IN TABLE

7O CORRECT VERTICAL POS.
1 OF ONE LINE OF GRID

s PART 2

;
:

MOVE VERTICALLY TO 6 172 INCH SPQT
PRINT ~0~S BELOW BOTTOM MARGIN

s MOVE VERTICALLY TQ 1 172 INCH SPOT
3 PRINT ~0”S ABOVE TOP “MARGIN
; FORM FEED

; DECIPOINTS AS SIZE WUNITY
; GUARANTEE THE FORM FESD

GLOBAL,

RESET DEFAUN T

STATE

DATA TABLES, MESSAGES, SEQUENCES, ETC,

.ASCII
LASCII

.ASCII
LASCITI
TOPBOT: .BYTE
LEFRI;
.BYTE
VONEMF: _BYTE

VIHREE:

;

OUTPUT #SELDEC,.#5
JSR PC,QUIET

.NLIST BEX
VERTBL: .WORD
ABREL:
.ASCII

INSTRC:

s+ DESCRIPTIONS OF GRID
; SET TOP AND BOTOM MARGINS
s SET LEFT AND RIGHT MARGINS
s SET UP TABLE OF VERTICAL SEQUENCES

: DO THE FORM FEED

EXIY TST
TRAP
CSEXIT

104432
001062

OECIPOINTS AS SIZE UNITY
TEST ID WITH CRLF

OUTPUT GOUTBUF
, 81

OUTPUT #REINIT,®2

004737

s
3

502634

OUTPUT OVONEHF
, 87
OUTPUT #MILOSQ,848.
LET OUTBUF :8+~ #14

003114

SEQ@ 0073

.BYTE

VTMREE,VTWO,VSIX,VFOUR,VFIVE,O
«<33>/[10mMORIZONTAL AND VERTICAL ABSOLUTE AND RELATIVE TEST 9/<15><1co»

«<12>/THE RECTYANGULAR GRID WILL BEGIN APPROXIMATELY TWO INCHES FROM THE
7 AND TWO INCHES FROM THE LEFT EDGES OF THE PAPER/<12>
/THE DIMENSIONS OF THE GRID WILL BE 4 INCHES MIGH/
7/ AND 7 INCHES WIDE.
EACH BLOCK WITHIN WILL BE 1 INCHM SQUARE. /<12>

33,133,61,64,64,60,73,64,63,62,60,162
33,133,61,64,64,60,73,66,70,64,60,163
33,133,61,60,70,60,144

¢
;
;

SET TOP AND BOTTOM MAR
SET LEFT AND RIGHT MAR
VERTICAL MOVE TO 1 ¢ O

33,133,62,61,66,60,144

VERTICA,

MOVE

10 3} INC

CZLNADO LNO1
CZINAD.P11
2623
2624
2625
2626
2627
2628
2029
2630
2631
2632
2633
2034
2635
2636

025373
025402
025411
025420
025427
025447
025467
025507
025530
025547
025557
025576
025615
025635

2638
2639
2640
2641
(3
(3)
2642
2643
2644
2645
2646
2647
2648
2649
2650
2651
2652
2655
2656
2657
2658
2659
2660
2661
2662
2663
2664
2665
2666
2667
2668
2669
2670
2671
2672
2673

025672

025654

025722
025722
025722
025724

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

104401

062
063
064
064

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

SEQ 0074

VSIX:
VSIXHF:

.BYTE
.BYTE

33,133,64,63,62,60,144
53,133,64,66,71,60,144

GRID:

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

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,133,66,64,70,60,140,130
33,133,61,64,64,60,140,33,133,65,60,64,60,141,117
s THIS HMAS BEEN ADDED
33,133,66,70,64,60,140,152

.BYTE

33.133,60,60,60,60,141,130,33,153,63,66,60,60,140

.BYTE

.BYTE
.BYTE

.BYTE
.EVEN
LIST BEX
ENDTST

L10020:

'
s

VERTICAL MOVE TO 4 INC
VERTICAL MOVE T0 S INC
VERTICAL MOVE TO 6 INC
VERTICAL MOVE 10 6 1/2
3 PRINTS “0"S FQO

33,133,65,60,64,60,140,130,33,133,63,66,60,60,140

33,133,60,63,66,60,141,130,33,133,62,67

TRAP
ENDMOD

CsETST

LSBTTL

NEWLINE MODE ENABLE -DISABLE TEST

O
B4
W
6
WS
W
Ve
Be

THIS TEST IS AN ALTERED VERSION OF LNMODE.P11 WMICH IS PART OF
THE TML LIBRARY,
THE ORIGINAL VERSION OF THIS TEST IS LOCATED

IN THE <TML
. TESTS>

000000

SUBDIRECTORY OF THE MILL20 DEVELOPMENT SYSTEM,

THIS VERSION IS ALTERED FOR USE ON :HE 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 OISABLED SHOWLD APPEAR AS:
AAAAAAAAAA

B8
W
We
B
B

2677

TEST

,60,60,140,33,133,60.61.70.60,141

8GNM00D

025724

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

: MODULE LFNMLMD.P11

2674
2675
2676

2678

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

2637

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

AAAAAAAAAA

ARAAARAAAAA

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

K6
CZUNADO L NO1
CZLNAD.P11

TEST
ONMAC X24 .07 563
10 APR 84
09:07
PAGE 6 59
NEWL INE MODE ENABLE DISABLE TEST
10 APR B4 08:55

2679
2680
2081
2682
2683
2684
2685
2080
2687
2688
2689
2090
2691
2692
2693
2694
2695
2696
2697
2698
2699
2700
2701
2702
2703
2704
2705
2706
2707
2708
2709

SEQ 0075

BEGI N NLMOOE

SELECT SIZE UNIT AS DECIFOINIS
SEND THE TEST NAME TO ALL TERMINALS
SKIP 2 LINES
SEND 'NEWLINE MODE BEING DISABLED' MESSAGE
SEND RMANL TO DISABLE NEWLINE MODE

REPEAT

TIMES

:
SEND 10 A'S
:
SEND A LINEFEED
ENDREPEART
SKIP 2 LINES
SEND °'NEW LINE BEIMNG ENABLED' MESSAGE
SEND SMANL TO ENABLE NEWLINE MODE
REPEAT 3 TIMES
SEND 10 A'S
:
:
SEND A LINEFEED
ENOREPEAT
SEND RMANL TO DISABLE NEWLINE MODE
00 FORM FEED
RESET

END

THE PRINTER

?Eg;CT SIZE UNIT AS DECIPOINTS

2710

(4)
2721

012705

003114

112725

000101

112725

000012

112725

000014

012737
000402

000002

005337

003110

OUTPUT OREINIT,#82
#5
OUTPUT #SELDEC,
OUTPUT ONLMODE, 042,
OUTPUT #ACRLF,@2,,02
OUTPUT SDISANL ,#40.
OUTPUT #RMANL
, 85
LET RS := #0UTBUF
RS
S0UTBUF
MOV
LEYT (R5). :B= #101
#101,(R5).
MOve
LET (RS): :B= #12

MOvVE

€12,(RS)»

50265

DEC

WORK

LET (R5)+ :B= 014
MOvE
214,(RS5).
DECR WORK FROM #2 TO @0 By 41
82, WORK
MOV

003110

502664:
50265
:

10,

BGNTST

025724
025766
026030
026072
026134
026176
026240
026240
026244
026244
026250
026250
026254
026254
026260
026260
026266
026270
026270
026274

T10::

025724
025724

2711
2712
(3)
2713
2714
2715
2716
2717
2718
2719
2720

DECIPOINTS AS SIZE UNIT
IDENTIFY TEST

SKIP 2 LINES
DISABLING NL MESSAGE
TURN T OFF NOW

3 PUT AN "A" IN BUFFER

;s PUT “LF" IN BUFFER
t+ FORM FEED

CZLNADO LNO1
CZLNAD.P11
(7)

(9)
2725
2726
2727
(5)
(4)
2728
2729
2730
2731

l 6

TEST
DNHAg X24.07 563
10 APR 84
09:07
PAGE 6-60
NEWL INE MODE ENABLE DISABLE TEST
10 APR 84 08:5

026274

026300
026302
026344
026406
026406

026410
026410
026452
026514

026556
026556
026564
026566
€26566
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

003110

TST

502678
:

000002

005337

003110

005737
002443

003110

S0271¢:
502704
:

5027248
:

005306

104401

044514
046040
047155
062
062

TEN A'S

THEN A LINEFEED

502664

QUIPUT SOUTBWF ,o1,,¢10.
OUTPUT @QUTBLF +1,01
ENDDEC
502714
8R

SEND

TEN A’'S

OUTPUT #RMANL
, 05
QUTPUT @OUTBUF
+2, 41
OUTPUT #REINIT,
@2
OQUTPUT #SELDEC,
85
JSR PC,QUIETY
EXIT TST

TURN IT OFF
D0 FORM FEED

B8R

502704

DEC

WORK

TST

SKIP 2 LINES
ENABLING NIL. MESSAGE
TURN

.MORD

020127
053505
030061
133
133

SEND

QUTPUT @ACRLF ,@2,,02
OQUTPUT @#ENABNL
, 452,
OUTPUT @SMANL
, 45
DECR WORK FROM #2 TO 40 By
#2 , WORK
MOV

TRAP

104432

000230

042516
116
055433
033
033
027354

B8R

BLTY

000730

004737

WORK

50267$
QUTPUT o0QUTBULF ,41,.,010.
QUTPUT &GCUTBUF +1,01
ENDDEC

BLY

000730

012737
000402

SEQ 0076

ON NOW

WORK

S02724

THEN A LINEFEED

RESET

TO DEFAULT

CONDITIONS

DECIPOINTS AS SIZE UNIT

CSEXIT

L10021-.

.NLIST BEX
OISANL: LASCIZ
ENABNL
: JASCIZ
NLMOOE
: LASCIZ

/NEW LINE MODE DISABLED, LINEFEEDS ONLY/<15>¢12>
/NEW LINE MODE ENABLED, LINEFEED CAUSES RETURN ALS0/<15>c¢12>
<«33>/{10mNEWLINE MODE ENABLE DISABLE TEST 10/<15><12>

SMANL:

.BYTE

3%,133,62.60,150,0

TRAP

CSETST

.EVEN
.LIST BEX
ENDTST
L10021:
ENOMOD

POWER UP DEFAULT
.SBTTL
sMODULE PUD.PL1L

TESTY

CZLNADO LNO1l

CZLNAD .P11

FUNCTIONAL DESCRIPTION

THIS TEST VERIFIES THE SPECIFIED PUMER 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:
PART 1PART 2-

PART 3-

HORIZONTAL TAB DEFAULT
VERTICAL TAB DEFAULT SECTION 1

VERTICAL TAB DEFAULT SECTION 2
DEFAULT MARGINS

PART 1HORIZONTAL TAB SECTION
PART 1 TESTS THE HORIZONTAL TAB DEFAULTS BY MEASURING THE DISTANCE

BETWEEN EACH TAB,

,JN CHARACTER

THE TEST FIRST DOES 18 TABS AND PRINTS A “T~ AT EACH TAB STOP

THE NEXT LINE PRINTS A SCALE BY !MICH TO MEASURE THE DISTANCE BETWEEN THE "T-s.
THE SCALE IS A PRINTING OF 1~ NUMBERS 1 THRU 8 REPEATEDLY ACROSS T:€ PAGE.

THE “T“S IN THE ROW ABOVE SHCW.OD LINE UP OVER THE “8”S FOR THE FIRST 16 TABS.
THE FINAL 2 “T*S SHOUL.D BE SIUE Sv SIDE BECAUSE OF EXCEEDING THE RIGHT MOST TAB
AFTER SKIPPING TWO LINES, PART 1 CONTINUES ON BY PRINTING 3 DIAMOND SHAPED PATTE
WHICH WILL THOROUGHLY EXERCISE THE TAB FUNCTION IN DEFAULT MODE.
ANY THING PRIN
OUTSIDE THE OIAMONDS WILL CONSTITUTE AN ERROR.
ANYTHING THAT APPEARS OUT OF THE

ORDINARY INSIDE THE DIAMONDS WILL ALSO CONSTITUTE AN ERROR,

We WC

B¢

©F

V¢

B¢

[

PART 2VERTICAL TAB SECTION 1
PART 2, SECTION 1 VERIFIES THAT THE OEFAULT VERTICAL TAB IS SET FOR ONE TAB
YO 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
THE SECTION ID FOR EACH ONE.
THE RESULT SHOULD BE 66 LINES OF THE SECTION ID.
THE REASON WMY THIS WILL WORK DESPITE THE FACT THAT THE MACHINE ONLY CAN
HANDLE A TOTAL OF 32 TAB STOPS IS BECAUSE WHEN 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 LINE FEED IN DISTANCE, THE RESWLT SHOULD BE Thi SAME.
THIS IS ACTUALLY
A GOOD WAY TO TEST THE DISTANCE OF THE DEFAUWLT TAB AS COMPARED TO THE
NORMAL LINE FEED CHARACTER.
THIS SECTION ALSO VERIFIES THAT WHEN A VERTICAL TAB IS SENT WHEN THE MACHINE

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 #1.
THIS SETS
UP THE FOLLOWING SECTION TO BEGIN ON LINE 01.

We
WP
W

2797
2798
2799
2800
2801
2802
2803
2804
2805
2806
2807
2808
2809
2810
2811
2812
2813
2814
2815
2816
2817
2818
2819
2820

2796

2788
2789
2790
2791
2792
2793
2794
2795

2778
2779
2780
2781
2782
2783
2784
2785
2786
2787

2768
2769
2770
2771
2772
2773
2774
2775
2776
2777

SEQ 0077

BGNMOD

027356

2767

10 APR-84
09:07
PAGE 6-61
TEST
DNMAC X24 .07 563
POWER UP DEFAULT TEST
10-APR 84 08:55

2765
2766

PART 2,

VERTICAL TAB SECTION 2
SECTION 2 VERIFIES THE USE OF MULTIPLE VERTICAL TABS.

THIS IS ACCOM

PLISHED BY ,FIRST, PRINTING THE SECTION ID ON LINE &1 AND, THEN, DOING S
VERTICAL TABS THEN PRINTING THE SECTION ID AGAIN.
THIS IS REPEATED 6 TIMES.
THE RESULT IS THE SECTION ID BEING PRINTED ON EVERY STH LINE BEGINNING WITH

LINE #6 AND ENDING WITH LINE 31} (TTOTAL OF 30 TAB STOPS).
HOWEVER, EAChH
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 carr age

CZUNADO LNO1
CZLNAD.P11

TEST

2874
2875
2876

10 APR 84

POWER

09:07

PAGE 6 62

SEQ 0078

UP DEFAULT TEST

return automatically).

PART 3MARGIN SECTION
THE MARGIN SECTION VERIFIES THAT

THE

PRINT A MESSAGE WHICH IDENTIFIES

THE CORRECT DISTANCE FROM

TOP,

BOTTOM,

LEFT AND RIGHT MARGIN

DEFAULT SETTINGS ARE AS SPECIFIED.,
IT ACCOMPLISHES THIS 8Y IDENTIFYING
LINE &1 AND PRINTING THE CORRECT DISTANCE THIS SHOULD BE FRCM THE TOP
EOGE OF THE PAGE FOR OPERATOR VERIFICATION,
THE FOLLOWING LINE(#2) WILL
THE LEFT

EOGE 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 CONCLUOES BY IDENTIFYING LINE #466 AND PRINTING THE CORRECT
DISTANCE THAT THE LINE SHOULD BE FROM THE TOP EDGL OF THE PAPER.

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

DNNAC X24.07 563

10 APR 84 08:5

000000

GLOBALS REFERENCED

REINIT,

.REPT O

BEGINROUTINE

POWER UP DEFAULT

RESET THE PRINTER

TEST

SELECT SIZE UNIT AS DECIPOINTS

TOGGLE THE PAPER OFFSET
PRINT THE TEST ID
PRINT SECTION I

“HORIZONTAL

TAB DEFAULT SECTION“

INCREMENT COUNT FROM &1 TO #18. BY 91
D0 HORIZONTAL TAB
PRINT »T*
ENDINCREMENT
DO A LINE FEED
INCR COUNT FROM &1 TO &17. BY #1
PRINT

ENDINC
SKIP 2 LINES

1-8

INCREHENT FROM ONE TO THREE B

PRINT TOTAL PATTERN
ENDINCREHENT

DO FORM FEED

"VERTICAL DEFAULT

TRBS

D A

'T~

;s PRINTS 1-8 17 TIMES AC
;

;

TAB SECTION”

*FIRST PAGE OF VERTICAL SECTION”

INCR COUNT FROM 41 TO 465. BY &1
DO VERTICAL TAB

MEASURES DEFAULTY

TAB

DIAMOND SHAPED PATTERN

; END OF HOR1.ONTAL SECT
;+

PRINT ID ON LINE 1

; PRINT ID ON LINES 2 TH

PRINT SECTION ID

DO VERTICAL TAB

:
:
:

18 HOR.

; REPEAT THREE TIMES

PRINT SECTION
1 10

ENDINC

;

*SECOND PAGE OF VERTICAL SECTION”
PRINT SECTION 2 ID

; SHOULD BRING YOU TO TO
PRINT SECTION ID ON LI
PRINT ID ON EVERY 5TH
FROM LINE 6 TO LINE 31
TESTS MULTIPLE VER. TA

INCR COUNT FROM #1 TO ¢6. By #1
:
OUTPUT S VERTICAL TABS
PRINT SECTION ID

ENDINC
DO FORM FEED

"MARGIN SECTION"

PRINT SECTION ID AND TOP EDGE MESSAGE(TEM)

IDENTIFIES FIRST LINE

CZUNADO LNO1
CZLNAD.P11
287"
2878
2879
2880
2881
20882
2883
2884
2885
2886
2887
2888
2889
2890
2891
2892
289%
2894
2895
2896
2897
(3)
2898
2899
2900
2901
2902
2903
(4,
2904
(4)
2905

TEST
DNMAC X24.07 S63
10 APR-84
09:07
PAGE 6 63
POWER UP DEFAWLT TESTY
10 APR 84 08:55
PRINT

LEFT

RIGHT MESSAGE(LFM)

XNCR COUNT FROM 01

TO @63.

PRINT FULL LINE OF

00 LINF
ENDINCREHENT

SEQ 0079

FEED

BOTTOM EDGE

00 FORM FEED

"M"

DEFINES LEFT AND RIGHT

REPEAT FOLLOWING 63,
PRINT 132 "M"s

MESSAGE(BEM)

IDENTIFY LINE 66 AS B0

ENDROUT INE
.ENOR

027356

Til::

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

112737

000011

003114

112737

000012

003115

112737

000013

003116

112737

000014

003117

112737

000015

00310

112737

000115

003121

112737

000115

003122

112737

000124

003123

012737
000402

000001

002276

005237

002276

023727
003043

002276

11.

OUTPUT @REINIT,#2
OUTPUT #SELDEC, #5
QUTPUT @DECFIN,®5
OUTPUT #PUD, #31.
LET OUTBUF :B8= #11
MOve
#11,00TBUF
LEY QUTBUF
.1 :8+= 012

sPRINT

LET OUTBUF+2

sVERTICAL TAB

MOvB

012,0UTBUF
.1

MOVEe

#13,0VUTBUF
+2

TEST

sLINE FEED

LET OUTBUF
.6 :8= #115
MOV
0115,0UTBUF
+6
LET OUTBUF.7 ;8= 0124

MOV
B8R

01,COUNT
$0273¢

INC

COUNT

cHe
8GT

ENDINC

:CARRIAGE RETURN

0115,0VUTBWF
-5

2124 ,0UTBWF «7

CHARACTER

]

TAB DEFAWT

SECTION'

D0 18 MOR TABS AND PRIN

COUNT, 018,

502754
QUTPUT 20UTBUF ,01
+7
OUTPUT 20UTBUF

sHORIZONTAL TAB

:FORMFEED

MOVEe

TO DEFALL

; DECIPOINTS AS SIZE NI
: TOGGLE THE OFFSET

:B- 013

“HORIZONTAL
OUTPUT #HORDEF ,032.
INCR COUNT FROM 01 TO 018, By #)

50273%;

tRESET PRINTER

LET OUTBUF
.S :B~ #14
MOV
914 ,0UTBUF
.3
LET OUTBUF
«4 :8+ 015
«4
#15,0UTBUF
MOVe
LET OUTBUF
«5 :8= @115

MOV

S02748:
000022

BCGNTST

100 HOR T8
iPRINT

ZLNADO * NOL
CZLNAD.P11
(5)
(a)
291°

PAGE 6-64
TEST
09:07
ONMAC x24.07 563
10-4PR .84
POWER P DEFAWLT TEST
10 APR 84 08:55

030040
030042
030042
030104
030104
030112
030114
030114
030120
030120
030126
030130
c30172
030172
030174
030174
030236
030236
030244
030246
030246
030252
030252
030260
030262
030266
030266
030266
030272
030272
030300
030302
030302
030306
030306
030314
030316
030322
039322
030364
030426
030426
030434
030436
030436
030442
030442
030450
030452
030456
030456
030520
030562
030562
030564

0007¢.

50275%:

012737

0V0001

005237

002276

023727
003022

002276

000402

002276
50277%:
000021

000750

50300%
:
$BRMP -1

000001

012737
000402

000001

005237

33350

023727
003402
000137

033350

005037

003112

012737
000402

000010

005337

003110

023727
002002
000137

003110

033350

S03018:

000003

031372

000001

005237

002276

023737
003402
000137

002276
030564

503024
:

503038

003110
50305%:
000001

503068:

50307s:

002276

503118:

003112

50312%:

INC

COUNT

cHp
8GY

COUNT, #17,
503004
QUTPUT &5CALE,#8.

ENDINC
BR

s00 A LINE FEED

sPRINT

1.8

TIMES

ACRO

50277¢

;00 A LINE FEED AND THEN

INCR LOOP FROM 01
1,L00P

MOV
8R

503028

INC

LOooP

cHP
BLE
JP

LOOP,
83
50303
50304

MOV
B8R

LET WORK]

TO o3 By 01

sREPEAT

:= 80

sUSED DURING PATTERN GEN

WORK
L
DECR WORK FROM #8.
#8. ,WORK

WORK

cHe
8GE
JHP

WORK
, 81
503074
503108

AMC 2

081

OUTPUT #0UTBUF
, #1, ,WORK
QUTPUT e0UTBUF 7,01
INCR COUNT FROM @1 TO MORK]1 By #1

MOV
8RrR

@1.COUNT
50312%

INC

COUNT

cw
BLE

COUNT
, WORK L

TO #1 BY

PATTERNS

S0306¢

DEC

50313%:

503144

5027414

OUTPUT 80UTBUF +1,01
INCR COUNT FROM &1 T0O 017.
MOV
91,COUNT
502764
8R

CLR

030634

012737
000402

000725

502768
:

S5EQ 00LO

:00 CORRECT NUMBER OF

50313%
50314

503114

ENDINC

OUTPUT #OUTBLF
01, ,82
OUTPUT QOUTBUF +7,01

:D0 TWO HOR.
7
tPRINT A

TABS

D/
5%“&899&?01

2932
(7)
2933

2934

A O
fl PN

AN\

>4 NO NP
W0 i
~ [NV
NST .

(4)
(4)
2935
(4)

WAV AT AW LW LWL

Ow LN

FNPNININTNNNPN

45 ~NONRIOON
W

2937
2938
2939

bbf

2941

’\f\m

2943
2944
(7)
2945
(4)
(4)
2946

(6)
(8)

(9)
2947
2948

2949

(4)
2951
(4)

(4)

2952
2953
2954

'ialAPR

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

83?9&

x24.07

SGSPO&QQAGB BeFASBiO(EggflGF

003112

000623

S50310¢:

012737
012737
000402

000002

005237

003110

023727
003402
Cc00137

003110

000001

005237

002276

023737
003402
000137

00227¢

003110

MOV
B8R

50315%:
000007

503164
:

503173

002276

50321%:
003112

031134

50322%:

033350
031366

000000

030246

503044:

WORK1

oQUTBUF «1,01

$s00 LINE FEED

sUSED DURING PATTERMN GEN
By 21

MOV
BR

sPATTERN GENERATION LOOP

SO317%
503204

OUTPUT #0UTBUF , 81,
, WORK
OUTPUT #CUTBUF.7,01
#1,COUNT

INCR COUNT FROM 01 TO WORK1 By o1

;00 CORRECT NUMBER OF WO
sPRINT

FIRST

503224
COUNT

cHP
BLE

COUNT ,WORK 1

503234
503244

503214

B8R

crp
BEQ

000003

50325¢:
000137

WORK
, @7,

DEC
50320:

OUTPUT

50316%

cHP
BLE

50324
003112

WORK1

82
, WORK

WORK

JMP

LET

S€EQ 0081

LET WORK]1 :~ @€
06, WORK ]
INCR WORK FROM ¢2 T0O »7,

INC

50323¢:

000623
023727
001402
000137

ENDDEC
503054

MOV

000725

005337

WORK1

003112

031204

012737
000402

INC

6 65

ENDINC
JMP

$8RUMP
=0

WORNK1
ENDINC
503154

ENDINC

oUTPUT SOUTBUF ,01,,82
UF
. 7,01
OUTPUT #0UTB

OUTPUT #0UTBUF
.1, 01
LET WORIZ1 :+* WORK1

IF LOOP EQ @3 THEN
, 83
LOOP
.*6
50325¢
OUTPUT #OUTBUF ,01,,08,
OUTPUT SOUTBUF
+ 7,81
OUTPUT #0UTBUF +1,01
ENOIF

;D0 TWO HOR.
sPRINT

TABS

;00 A LINE FEED

;REGULATES PATTERN GENER
;FIRST

PATTERN COMPLETE

:00 8 TABS

sPRINT LASTY
iLINE FEED

50301

OUTPUT S0UTBUF .3,01

t1DO FORM FEED

IN PATTE

CZLNADO | NO1
CZLNAD.P11

SEFAULt ¥esr
4

09;07

PAGE

“VFRTICAL

031434
031476
031476
031504
031506
031506
031512
021512

031520
031522
U31526

031526
031570
031632
031632

031634

012737
000402

000001

005237

0V2276

023727
003402
000137

002276

503264
:
000101

031634

50327s:

50330

QUTPUT OVERDEF ,@31.
INCR COUNT FROM 01 TO #65.
MOV
41 ,COUNT
BR
503274
INC

COUNT

cHP
BLE
JMP

COUNT, 065,
503308
50331

ENDINC

000725

50331%:

031634

SEQ 0082.

666

B8R

OUTPUT

DEFAULY

QUTPUT a0UTBUF +2,01
OUTPUT AOVERDEF, 031.

012737
000402

000001

005237

002276

023727
003402
000137

002276

50332%:
000015

032076

S50333%:

S0334%:

QOUTBUF +2,41

INC

COUNT

cHP

COUNT ,#13,

JMP

50335¢

ENDING
000725

503358
:

(F IRST

PAGE)

sVERTICAL SECTION 1 ID
sPRINT SECTION ID ON LIN

503264

OUTPUT #VERDE2,09.
INCR COUNT FROM 41
01, COUNT
MOV
50333
BR

8LE

SECTION"

;D0 VERTICAL TAB
:PRINT SECTION ID

;00 VERTICAL
“"VERTICAL DEFAULT

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

TAB

TO &13.

TOP CF N

TAB SECTIGN” (SECOND PAGE)
SECTION 2

ON EVERY

STn

503344

OUTPUT

#QUTBUF .2,21,,05.

OUTPUT @VERDEZ2,
69,

;

DO S VERTICAL

TABS

: PRINT SECTION 2 ID

503324

OUTPUT QOUTBUF »3,01

OO0 FORM FEED AND END

QUTPUT OMARDEF ,#102.
OUTPUT oLFM,8113,
012737
000402

000001

005237

002276

023727
003402
000137

002276
032406

INCR COUNT FROM 21
MOV
#1,COUNT

002276

503368
:
000077

S0337s:

50340%
:

B8R

503374

INC

COUNT

crP
BLE
JMP

COUNT, 063,
5034014
503414

TO 063,

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

“MARGIN SECTION"

QUTPUT S0UTBUF +5,082,, 066,
OUTPUT a0UTBUF
¢ 1,21

<955
2956
2957

TEST
DNMAC x24.07 563
10 APR
POWER ULP
10 APR 84 0 8:55

E 7

SECTION ID PLUS TOP ED
IDENTIFIES LEFT AND RI

REPEAT

THE

FOLLOWING o

i PRINT FULL LINE
: DO LINE FEED

P/
CZLNADO LNO1
CZLNAD.P11
2980
2981
(4)
(4)

2982
2983
2984
2985
(3)
3
2986
2987
2988
2989

2990
2991

2992
2993
<994
2995
2996
2997
2998
2999
3000
3001
(3)
(3)
300
3003
3004
3005
3006
3007
3008
3009
3010
3011
3014
3015
3016
3C17
3018
3019
3020
3021
3022
3023
3024
3025
3026
3027
3028
3029
3030
3031

TEST
ONMAC Xx24.07
10-APR 84 08:55

032400
032404
032404
032406
032406
032450
032512
032516
032516
032520

004737

1C APR 84

PAGE 6 67
09; 07
TEST

50341%:

005306

104432

000632

ENDINC
B8R

032562
032622
032661
032672
032724
033040
033221
03334C

033350
033352
033352
033352

033354
033354

055433
047510
042526
123
042504
044514
044124
114
031061

104401

042514

020105
047111
032063

050155
047532
041511
044524
046125
021440
047506
020105
033065

JSR PC,

QUIET

5033614

QUTPUT 4BEM, @79,
QUTPUT 40UTBUF +3,01
JSR PC, QUIET
EXIT TST
TRAP
CSEXIT
. WORD
L10022-,

LOCAL VARIABLES,

032522

SEQ 0083

POWER LP DEFAULt

0¢5306

000723

004737

.NLIST BEX

.ASCIZ

MARDEF:
TEM:
LFM:

.ASCII
.ASCI1
LASCII

LOOP:

. WORD
ENDTST

TRAP

CS$ETST

.ASCII
.ASCII
.ASCII

BEM:
.ASCII
SCALE:
.ASCII
.EVEN
.LIST BEX
L10022:

.SBTTL

MESSAGES,

IDENTIFIES LINE 66 AS
DO FORM AND END TEST

TABLES

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

PUD:

HORDEF:
VERDEF:
VERDE2:

:
;

/HORIZONTAL TAB DEFAULT SECTION/c12><12>
;32 CHAR
/VERTICAL DEFAWLT TAB SECTION 1/¢15>
:32 CHAR
/SECTION 2/
s 9 CHAR
/DEFAULT MARGIN SECTION
/
ZLINE 01 _ _THIS LINE SHOUW.D BE APPROXIMATELY .4 INCH FROM TOP EDGE OF PA
/THE FOLLOWING 63 LINES SHOULD BEGIN APPROXIMATELY .66 INCH FROM THE LEF
ZLINE #66___THIS LINE SHOWLD BE APPROXIMATELY 8.10 INCHES FROM TOP EDGE
712345678/
sPROVIDE

ENDMOD
TABS TEST

sMODULE TABS.P11
BGNMOD

FUNCTIONAL DESCRIPTION

THE TABS TEST IS A COMPREMENSIVE TEST OF ALL HORIZONTAL AND VERTICAL
TAB _FUNCTIONS ON THE LNO1 ELECTRONIC PRINTER.

IT TESTS THE HORIZONTAL AND VERTICAL SETTING AND CLEARING OF TABS AS WELL

AS THE ABILITY TO USE THE TAB FUNCTION ITSELF.

IT ASSURES THAT ALL TABS

CAN BE SET OR CLEARED INDEPENDENT OF ONE ANOTHER.

IT ALSO ASSURES THAT

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

BE USED AND THAT IF ANY ARE SET OVER AND ABOVE THE 32 LIMIT THAT THE HIGHEST
ORDER SETTING WILL BE ELIMINATED IN FAVOR OF THE LOWER SETTING.
THE

TEST ACCOMPL ISHES THESE RESULTS BY DRAWING A RECTANGLE 6 172 INCHES

Be
@
B¢
Be
B
Be
WP
G4
BE
G0
e
Be
B¢
86

3032
3033
3034
3035
3036
3037
3038
3039
3040
3041
3042
3043
3044
3045
2046

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

®e

CZULNADO LNO1
CZLNAD.P11

ey
09:07

PAGE 6 68

SEQ 0084

IN HEIGHT AND 9 [NCHES WIDE, WITH AN ASTERISK
WHICH WILL ALSO BE THE CENTER OF THE PAGE.

THE RECTANGLE
FROM THE LEFT

WILL BEGIN 1 INCH FROM
EDGE OF THE PAPER.
IT

THE CENTER OF

THE RECTANGLE

THE TOP EDGE OF THE PAPER AND 1 INCH
WILL END 1 INCH FROM THE BOTTOM EDGE

OF THE PAPER (7 172 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 IDENTIFIED BY ASTERISKS BEING PRINTED AT
FIXED INTERVALS.
THE INTERVALS WILL BE 1/2 INCH FOR BOTH HORIZONTAL AND
VERTICAL BOUNDARIES.
THE ONL' THING APPEARING INSIDE THE RECTANGLE WILL Bt
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 S 1/2 INCHES FROM THME 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 WELL AS THE CENTER OF THE RECTANGLE.

-/
TEST

EQ 0085

ANY OTHER MARKINGS ON THE PAGE EXCEPT THE TEST
ABOVE TidE RECTANGLE WILL CONSTITUTE AN ERROR.

ID WHICH WILL BE PRINTED

THE FOLLOWING

THE RECTANGLE'S APPEARANCE.

1S A NON SCALE REPRESENTATION OF

)

PAGE 6 69

B0
B0
B0
Ve
B
Ve
Vs
G5
B

3073

3097
3098
3099
31n0
3101
3102
3103

09:07

3064
3065
3066
3067
3068
3069
3070
3071
3072

3096

10 APR 84

Tabe fEor
W

3048
3049
3050
3051
INS2
3053
3054
3055
3056
3057
3058
3u59
3060
3061
3062
3063

3074
3075
3070
3077
3078
3079
3080
3081
3082
783
3084
3085
3086
3087
3088
3089
3090
3091
3092
3093
3094
3095

ONMAC X24.07 563

10 APR 84 08:55

CZUNAD.P11

CZLNADO LNO1

000000

.REPT O

:
:

REINIT,

GLOBALS REFERENCED

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

TEST

SETTING

TABS OUTSIDE

MWRGINS

09:C7

PAGE

SEQ 0086

SET 16 MORE VERTICAL TAB STOPS
SET EXTRA VERTICAL TAB STOP
SET 16 HORIZONTAL TAB STOPS
SET 16 MORE HORIZONTAL TAB STOPS
SET EXTRA HORIZONTAL TAB STOP

SET MARGINS BACK

CHECKS ABILITy TO SET INDEPENDENTL¢
CHECKS FOR ELIMINATION OF HIGHEST ORDE
v
CHECKS ABILITY TO SET INDEPENDENTL
CHECKS FOR ELIMINATION OF HIGHEST ORDE

TO DEFAULT SETTINGS

ALLOWS

PRINT TOP LINE OF RECTANGLE
CLEAR ALL HORIZONTAL TABS
TOP SECTION OF

TABS

PRINT BOTTOM LINE

SEND RESET SEQUENCE
:
DO FORM FEED
END ROUTINE
.ENDR

112737

000013

0031:4

112737

000013

003115

112737

000014

003116

112737

000011

003117

112737

000011

003120

112737

000052

003121

112737

000015

003122

BGNTST

TAB

STOPS

EXCEPT 80TTOM LINE
SET TABS FOR BOTTOM | INE (SAME
RECTANGLE COMPLETE
RETURN TO DEFAULT SETTINGS

TAB

TOP

12.

LEY OUTBUF :B8- 013
13,0UTBUF
MOve
LET OUTBWUF.1 :8- 013
MOVE
€13,0UTBUF
+1
LET QUTBUF+2 :8= #14
MOVE
434 ,0UTBUF
»2
LEY OUTBUF+3 :8= #11
MOV8
011 ,0UTBUF +3
LET QUTBUF
+4 :8+ #11
211, 0UTBUF « 4
"ove
LET OUTBUF
+3 B~ €52
MOVB
052, 0UTBUF +S
:8+ 015

415,0UTBU«6
F

REINIT,
42
OSELDEC,
#5
ATABTST, 820,

#4
SCLRVER,

T12::

RECTANGLE

ALL

VERTICAL

TAB COOE

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

RECTANGLE

SET HMORIZONTAL

TO USE

TO CLEAR HORIZONTAL
3 STOPS ONLY
STOP AT CENTER LINE

RECTANGLE

PRINT CENTER LINE
PRINT BOTTOM SECTION OF

YOU

CHECKS ABILITY

TABS

®2

SET HORIZONTAL

5104
3105
3106
3107
3108
3109
3110
3111
3112
3113
3114
3115
31le
311
3118
3119
3120
3121
3122
3123
3124
3125
3126
3127
3128
3129
3130
3131
313:
3133
3134
(3)
3135
(a)
3136
(4)
3137
(4)
3138
(4)
3139
(4)
3140
(4)
3141
(4)
3142
3143
3144
3145
3146
3147
2148
3149
3150
3151

TES!
ONMAC X24 .0/ S63
60 APR 84
TABS TEST
10 APR 84 08:55

CZUNADO LNO1
CZUNAD. P11

FORM FEED CODE

CODE FOR HORIZONTAL

TAB

: CODE FOR ASTERISK

; CARRIAGE RETURN
DECIPOINTS
TEST

4TBMAR]
, 08,
L

CLEAR ALL VERTICAL TABS
CLEAR ALL MORIZONTAL TABS
SET MARGINS TO TEST LNOL1l ARBILI

OVERTB1,#82.
OVERTB2, 084,
087
OXVER,

SET FIRST 16 VERTICAL TAB STOP
SET SECOND 16 VERTICAL TAB S'C
SET EXTRA VERTICAL STOP

#4
OCLRHOR,

#LRMARL
, 012,

LW AL
WEW LW
WAl

PANO~NOBONN

PN SN SN

N PN PN PN PN

3170
3171
3172
(4)
(4)
3173
3174

034676
034676
034702
034702
034710
034712
034716
034716

034760
034760
034762
034762

012737
000402

000001

005237

002276

023727
003402
000137

002276

000015

034666

503448

ENDINC

000746

503458:

012737
000402

000001

005237

002276

023727
003402
000137

002276

000005

034762

ENDINC

035264
035266
035266
035330

012737
000402

200001

005237

002276

023727
003402
000137

002276

000725

INC

COUNT

cP
BLE
JMP

COUNT, 013,
S03444
503454

OUTPUY

@OUTBUF »3,03

503428

035266

002276

w1
W
S
B
Be
B
@5
S

01,COUNT
503434

B8R

50347¢

INC

COUNT

crp

B8LE
JHP

503544
:

ENDINCR

VERTICALLY

TOP

LINE

CARRIAGE RETURN
DO HORIZONTAL TAB AND PRINT AS

TOP LINE

TABS

REST

AND

ASTERISKS

AN ASTERISKF

TCP

LINE

ASTE

COUNT,
05

ONE HOR

TAB AND AN ASTERISK

503464

MoV

503534

MOVE

503508
503513

QUTPUT SQUTBUF «6,#1
84
OUTPUT 0CLRHOR,
OUTPUT #STOPS3, #16.
INCR COUNT FROM @1 TO #6 B8y
503524
:

SET FIRST 16 HORIZONTAL TAB ST
SET SECOND 16 HORIZONTAL TAB S
SET EXTRA HORIZONTAL SYOP
SET DEFAILT TOP BOTTOM MARGINS
"
"
LEFT RIGHT

TW0 HOR

OUTPUT #0UTBUF
+ 4,02

S0351%:

035066

035130

S0347%:

503508:

000746

MOV
8K

INCR COUNT FROM @1 TO #5 By #1
#1,COUNT
MOV

503464
:

035024

035130
035136
035140
035140
035144
035144
035152
035154
035160
035160
035222
035264

S50343%:

SEG 0087

o0HORTB1,082.

OUTPUT &HORTB2,084.
07
OQUTPUT #XMOR,
OUTPUT 4DEFMR1,
68,
OUTPUT #DEFMR2,011.
QUTPUT &0UTBUF
, 01
OUTPUT #OUTBUF +6,41
QUTPUT SOUTBUF
+4, 02
INCR COUNT FROM @1 TO 413,

50342¢:

o1,COUNT

50353

INC

COUNT

cre
BLE

COUNT
, 06
50354¢

JMP

(6)
3164
3165
(4)
(4)
3166
3167
3168
3169
(5)

034664
034666
034666
034666
034674

OUTPUT

Nl
N
e Nl

Nt NS

~NO NN

NN NN NN PN PN

3161
3162
(4)
(4)
3163

034152
034214
034256
034320
034362
034424
034466
034530
034572
034572
034600
034602
034602
034606
034606
034614
034616
034622
034622
034664

PAGE

Y. X

NS N
N
S
Nt N

NSNS

[+
JENEVRREY,

NN\

3152
3,53
3154
3155
3156
3157
3156
3159
3160
(5)

(09:07

J /7

CZLNADO LNO1
CZLNAD.P11

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

00 CARRIAGE RETURN
LEAR HORIZONTAL TABS
SET THREE HORIZONTAL TAB STOPS
PRINT

TOP

SECTION OF RECTANGLE

50355

OUTPUT #0UTBWF
, 82
TPYT #.10PSEC,
06

50352
8R
50355$:
QUTPUT 20UTBUF
, 01
04
OUTPUT #MIDSEC,

TWwO VERTICAL

D0 THREE

TABS

TABS AND PRINT 2 as'E

MOVE VERTICALLY
DO TWO TABS AND

TO CENTER _INE
i ASTERIS< (CE

012737
000402

000001

005237

002276

023727

002276

000137

036202

003402

002276

000015

5036448:

ENDINC

000746

50365
:

012737
000402

000001

005237

002276

023727
003402
000137

002276

036276

002276

50366
:
000005

JMP

50367%:

S0370¢:

INC

COUNT

JMP

TABS,

TABS

TWO ASTERISKS

AND

MOVE VERTICALLY TO BOTTOM L INE
SET FIRST 16 HORIZONTAL TAB ST
SET SECOND 16 HORIZONTAL TA8 S
SET EXTRA YORIZONTAL STOP
DO HORIZONTAL TAB AND PRINT AS
PRINT

BOTTOM LINE

ASTERISKS

TABS

AND

AN ASTERISK

PRINT REST

OF BOTTOM LINE

o5
COUNT,

50370

503714

ONE HOR

TAB AND AN ASTERISK

503664

QUTPUT #REINIT,
02
OUTPUT #SELDEC,
85
JSR PC,QUIEY

TWO VERTICAL

TWO HOR

OUTPUT J0UTBUF
+4, 82

B8R

BOTTOM SeCTION

503624

503674

BLE

50365¢

B8R

(o, o

REST

SECTION

COUNT,013.

OUTPUT 20UTBUF
» 3,03
BR

BOYTOM

5036414

50371%:
QUTPUT S0UTBLF +6,01
OUTPUT &DECFIN,
a5
OUTPUT Q0UTBUF 2,01

005306

Br &1

INCR COUNY FROM @1 TO @5 By o1
€1,COUNT
MOV

ENDINC

000746

004737

cHe

PRINTA

50356$

503614
OUTPUT &0UTBUF ,21,,87
OUTPUT &HORTB1,#82.
OUTPUT #HORTB2,#84.
OUTPUT &XHOR,#7
QUTPUT #OUTBUF +4,42
INCR COUNT FROM @1 TO #413.
@1,COUNT
MOV
50363
BR
503624
:
INC
COUNT
503638
:

BLE

TO NEXT

LINE

THREE

B8R

000725

VERTICALLY

FIRSY

035634

000005

002276

01}

8¢

023727
003402
000137

MIVE

002276

QUTPUT oQUTBUF
, &1
OUTPUT @BOTSEC,
06
INCR COUNT FROM @1 TO 4Z BY
MOV
1,COUNT
BR
S03574
50356
:
COUNT
INC
S0357%:
cMP
COUNT,
#5
BLE
50360%
50361
JMP
503604
:
QUTPUT &QUTBUF
, 22
QUTPUT &BOTSEC,
#6
ENDINC

SEQ 0088

3192
3193
3194
3195
3196
3197

005237

002276

(4)
(4)

000001

Nk NS
N
o N
ot Mol Nt
ot

(XY

[« JENRVIENY.
¥, Xo RENTY ]

NN
e pn PN NN TN OO\

3187

012737
000402

PAGE

B¢

O ®N

O~NONOBRO
N wie
N o
e N’ N N Nl NS .

PNPNTNIN

NN\ N [aaY
]

3180
(4)
(4)
3181
3182
3183
3184
3185

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

09:07

®e

PNONSNN

[F N7]

~ ~ PNONT

-y ”~

Nt NSl

) N

RO N

3175
3176
3177

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

“s

CZUNADO LNOL
CZLNAD.P11

D0 CARRIAGE RETURN

TOGGLE THE
FORM FEED

OFFSE”

RESET DEFAULT

CONDITIONS

DECIPOINTS
GUARANTEE THE FORM FEED

CZLNADO L NO1
CZLNAD.P11

TEST
ONMAC x24.07 563
10 APR 84
TABS TEST
10 APR 84 08:55

L7
09:07

PAGE 6-73

SEG 0089

3198

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
2243
3244
3245
3246
3247
3248
3249

036554
036554
036556

EXIT

TRAP

104432

TSY

.WORD

000700

CS$EXIT

L10023-.

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
037443
037447
037456
037456
037456
037460

006412

033
033
033
033
033
061
033
073
033
064
033
065
033
033
061
033
073
033
064
033
066
033
033
033
033
011

01l1

011
037456

104401

055433
133
133
133
133
133
064
133
062
133
063
133
063
133
133
064
133
062
133
063
133
064
133
133
133
133
052

O11

052

030061
064
063
073
063
067
064
062
070
063
062
065
060
065
067
064
062
070
063
062
065
070
065
073
064
067
011
052
011

NLIST BEX
TABTST: .ASCII

VARIABLES,

<12>¢15><333/[10mTABS TEST

MESSAGES

AND DATA

TABLES

12/<15>

CLRVER:
CLRHOR:

.BYTE
.BYTE

33,133,64,147
33,133,63,147

LRMARL:
VERTB1:

.BYTE
.BYTE
.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,73
61,64,64,60,73,61,66,62,60,73,61,70,60,60,73,61,71,70,60,166
33,133,62,61,.66,60,73,62,63,64,60,73,62,65,62,60,73,62,67,60,60

TBMAR1:

VERTB2:

.BYTE

.BYTE
.BYTE
.BYTE
.BYTE

.BYTE
HORTB1:

HORTB2:

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

.BYTE
.BYTE

XHOR :

DEFMRL:

DEFMR2:

STOPS3:
TOPSEC:

MIDSEC:

Bg:éfiC:

.BYTE

LSBTTL

33,133,73,63,66,60,60,162

33,133,65,64,60,60,165

35,133,73.65,70,63,62,162

.BYTE

11.11,52.12

.BYTE

SET

33,133,67,62,60,73,71,60,60,73,61,60,70,60,73,61,62,66,6C,73
61,64,64,60,73,61,66,62,60,73,61,70,60,60,73,61,71,70,60,165
33,133,62,61,66,60,73,62,63,64,60,73,62,65,62,60,73,62,67,60,60
73,62,70,70,60,73,63,60,66,60,73,63,62,64,60,73,63,64,62,60,165
33,133,63,66,60,60,73,63,67,70,60,73,63,71,66,60,73,64,61,64,60,73
64,63,62,60,73,64,65,60,60,73,64,66,70,60,73,64,70,66,60,165
33,133,65,60,64,60,73,65,62,62,60,73,65,67,66,50,73,66,61,62,60,73
66.64,70,60,73,66,70,64,60,73,67,62,60,60,73,67,63,70,60,165
35,133,64,67,65,73,67,64,64,65,163

.BYTE
.BYTE

;

73,62,70,70,60,783,63,60,66,60,73,63,62,64,60,73,63,64,62,60,166
33,133,63,66,60,60,73,63,67,70,60,73,63,71,66,60,73,64,61,64,60,73
64,63,62,60,73,64,65,60,60,73,64,66,70,60,73,64,70,66,60,166
33,133,65,60,64,60,73,65,61,65,60,73,65,62,60,060,73,65,62,65,60,73
65,63,60,60,73,65,63,65,60,73,65,64,60,60,73,65,67,66,60,166

.BYTE

LIST BEX
ENDTST
L10023:
TRAP

;MODWLE

037460

LOCAL

;

DEFAUL

33,133,67,62,60,73,63,71,66,60,73,67,62,60,60,165
11.52,11,11,52,12
: LINE JUSED FOR TOP SECT

11,52,11.,11.52,12

s LINE ULSED FOR BOTTOM S

CSETST

ENDMOD
MARGINS TEST
TSTMAR.P11

BGNMOD

FUNCTIONAL DESCRIPTION

THE MARGINS TEST

IS DESIGNED TO TEST ALL STATED FUNCTIONS OF BOTH TOP AND

M7
0-APR

09:07

PAGE

SEQ 0090

6-74

BOTTOM MARGIN ESCAPE SEQUENCES AND LEFT AND RIGHT MARGIN SEQUENCES.
IV
WILL VERIFY THE ABILITY YO SET MARGINS TO THE DESIRED PARAMETERS AND ALSO
WILL

VERIFY

THAT

THE PRINTER WILL RESPOND BY

OPERATING WITHIN THE MARGINS

SPECIFIED EXCEPT UNDER SPECIFIED CIRCUMSTANCES,

RULE COMMAND,
THE FUNCTIONS STATED IN THE LNOL FUNCTIONAL

SUCH AS WHEN USING THE DRAW

SPECIFICATION ARE

AS FOLLOWS:

SET

SET LEFT ANO RIGHT MARGINS
SET BOTH LEFT AND RIGHT MARGINS
: SET LEFT AND DO NOT CHANGE RIGHT
: SET RIGHT ANO OO0 NOT CHANGE LEFT
: BOTH PARAMETERS LEFT OUT CAUSES NO CHANGE

Be
Bs
B
B
B

mflmonwx

TOP AND B80TTOM MARGINS
SET BOTH TOP AND BOTTOM MARGINS
: SET TOP AND DO NOT CHANGE BOTTOM
: SET BOTTOM AND OO NOT CHANGE TOP
: BOTH PARAMETERS LEFT OUT CAUSES NO CHANGE IN MARGINS
: BOTH PARAMETERS EQUAL TO ZERO CAUSES NO CHANGE IN MAR
: REPOSITIONING ACTIVE LINE WHEN CURRENT ACTIVE LINE IS
: ESCAPE SEQUENCES IGNORED IF PARAMETERS DO NOT CONFORM
O“mcfl@)

MARGINS TEST

IN MARGINS
: BOTH PARAMETERS EQUAL TO ZERO CAUSES NO CHANGE IN MAR

REPOSITIONING OF ACTIVE COLUMN TO EQUAL NEW LEFT MARG
ESCAPE SEQUENCES IGNORED IF PARAMETERS DC NOT CONFORM

B¢

:
:

SET PHYSICAL LINES PER PAGE

3250
3251
3252
3253
3254
3255
3256
3257
3258
3259
3260
3261
3262
3263
3264
3265
3266
3267
3268
3269
3270
3271
3272
3273
3274
3275
3276
3277
3278
3279
3280
3281
3282
3283
3284
3285
3286
3287
3288
3289
3290
3291
3292
3293
3294
3295
3296
3297
3298
3299
3300
3301
3302
3303
3304
3305

TEST
DNMA g X24.07 563
10 APR 84 08:5

SETTING PHYSICAL LINES PER PAGE CHANGES

TOP MARGIN TO

SETTING PHYSICAL LINES PER PAGE CHANGES BOTTOM MARGIN

CZLNADO LNO1
CZLNAD.P11

000000

:
:

GLOBALS REFERENCED:
REINIT,COUNT

.REPT

“STEP BY STEP BREAKDOWN OF EACH SECTION OF

BEGIN ROUTINE
:

THE TEST"

LEFT RIGHT MARGIN SECTION

SELECT SIZE UNIT AS DECIPOINTS

TOGGLE PAPER OFFSET
PRINT TEST ID
SKIP A LINE
PRINT REFERENCE LINE OF
DO A LINE FEED
REPEAT 7 TIMES

“M"S

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 TQ TENTH

; "A" STARTS AT '1° (INC
;s ONLY 13 SHOUWD BE PRIN
; MOVES MARGINS ONE INCH
;
;

1ST TABLE OF SEQUENCES
TABLE OF BYTE COUNTS F

CZLNADO LNO1
CZULNARD.P11
3306
3307
3308
3309
3310
3311
3312

3313
3314
3315
3316
3317
3318
3310
3320
3321
3322
3323
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
3361

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

TEST

NHILE

PAGE 6

N/
75

SEQ 0091

(R3) NE ¢0 DO

DO FOR ALL ENTRIES IN
OUTPUT THE ENTRY

OUTPUT (R3)+,(R4).

ENODO
LET R3 EQUAL B7BL
LET R4 EQUAL BPTBL
WHILE (R3) NE TO 40 DO
!
OUTPUT (R3)+,(R4).
ENDDO
SET LEFT ANDO RIGHT MARGIN TO 1 AND
DO A LINE FEED
PRINT LINE OF ASTERISKS
DO A LINE FEED
LET R3 EQUAL IGTBL
LET R4 EQUAL IGTBLP
UHILE (R3) NE 40 DO

2ND

SEQS AND
BYTE COUN
DO FOR ALL ENTRIES
OUTPUT ENTRY

10 INCHES RESPECTIVELY

OUTPUT (R3)+¢,(R4).
00 CARRIAGE RETURN

TABLE OF

IGNOREC

BYTE COUNTS
DO FOR EACH ENTRY
OUTPUT THE ENTRY

SEQUE

PRINT LINE OF ASTERISKS

DO A LINE FEED

ENDDO
D0 A LINE FEED

TOP BOTTOM MARGIN SECTION

LET R3 EQUAL CTBL
LET Ra EQUAL CPTBL
UHILE (R3)
NE #0 DO
OUTPUT (R3)+,(R4).
ENDDO
LET R3 EQUAL DTBL
LET R4 EQUAL DPTBL
WHILE (R3) NE 40 DO
OUTPUT (R3)+,(R4).
:
ENDDO

TABLE OF SEQUENCES AND
BYTE COUNTS
00 ALL ENTRIES
QUTPUT THE ENTRY

MORE TOP BOTTOM SEQS

TABLE OF BYTE COUNTS

00 FOR ALL ENTRIES
OUTPUT THE ENTRY

PHYSICAL LINES PER PAGE SECTION

SET PHYSICAL LINES PER PAGE TO 8 INCHES
00 FORM FEED
INCREHENT COUNTY FROM 1 TO 69 BY 1
PRINT PLP MESSAGE
D0 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 40 DO
:
OUTPUT (R3)+,(R4).
ENDDO

INCREHENT COUNT FROM
1 TO 52 By 1
OUTPUT IGNORED SECTION MESSAGE

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

CZLNADO LNOL
CZLNAD.P11

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

(4)

3397
(4)
3398
(4)
3399
(4)
3400
(4)
3401
(4)

3402
4)

3403

END INCREMENT
OUTPUT END OF SECTION MESSAGE
OUTPUT END OF TEST MESSAGE
00 A FORM FEED
00 RESET
SELECT SIZE UNIT AS DECIPOINTS
3
EXIT TESTY
END ROUTINE
.ENDR

3362
3363
3364
3365
3366
336"
3368
3369
3370
3371
3372
3373
3373
3375
3376
3377
3378
3379
3380

3381
3382
3383
3384
3385
3386
3387
3388
(3
3389
3390
(4)
3391
(4)
3392
(8)
3393
(4)
3394
(4)
3395
(4)
3396

B
PAGE 6

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
03757%

T13::

112737

000011

003114

112737

000115

003115

112737

000012

003116

112737

000015

003117

112737

000013

003120

112737

000014

003121

112737

000073

003122

112737

000052

002123

003124

112737
112737

000077

003125

112737

000137

003126

112737

000041

003127

112737

000053

003130

BGNTS

LETY OUTBUF
LET

LET

?gUflCE CODE

SEQ 0092

s RETURN TO ALL DEFALT

IN SPMACJ

:8+ 011
11,0UTBUF
8= #0115
#115,0UTBUF
+L

CODE FOR HOR.
UPPER CASE

TAB

'TM

:8- #12

LINE FEED

8 015
015, 0UT8UF + 38

CARRIAGE RETURN\

:8+ 013

VERTICAL

LET

18 @14

FORM FEED

LET

18+ 073

SEMI COLON FOR SEPARA”

LET

812, 0UTBUF +2

214, ,0UTBUF .S

*73,0UTBUF
<6
LET
1B 052
052.0UTBWF
.7
LET OUTBUF .10 B 840
40 ,0UTBF
10
8 077
LET
*77.0U0TBLF + 11

TAB

S«
CODE FOR ASTERI
SPATF

JUESTION MARK CHARACTE

LETY

:8+= #8137

UNDERL INE

LET

:t8= 04}

EXCLAMATION

€137,0UTBUF
+ 12

041 ,0UTBUF
+ 18

F 1B 053
» 14
LET OQUTBU
53, 0UTBULF .+ 14
MOVE
LEY OUTBUF +15 :8+ @75

PLUS

EQUAL

SIGN

St
N N Nl N

112737

000075

003131

112737

0v0133

003132

112737

000135

003133

MOVB
LET QUTBUF+16
MOVB
LET OUTBUF+17
MOve

002276

OUTPUT #REINIT,#2
OUTPUT #SELDEC,#5
OUTPUT #DECFIN,
85
OUTPUT #TSTMRA,#30.
OUTPUT #TABMS, 048,
INCR COUNT FROM @1 TO 08,
21,COUNT
MOV

037662

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

012737
000402

000001

005237

002276

023727
003402
000137

002276
040230

005713
001002
000137

000010

50373s:

S03744;

ENDINC

000725

012703

S50372¢:

044140

SEQ 0093

@75,0UTBUF
+ 15
:B+ #133
#133,0UTBUF
+16
:B= 0135
F
+17
0135,0UTBU

037620

037724
037766
040030
040072
040072
040100
040102
040102
040106
040106
040114
040116

LEFT

B8R

503734

INC

COUNT

cp
BLE
JMP

COUNT 88,
S03744
S0375¢

000711

012703

042160

012704

044254

005713
001002
000137

TOGGLE

TEST

B8R

(R3)

503779

DO A MORIZONTAL

ENDDO

000754

004737

005306

TST
(RY)
BNE
.*6
%
50401
JHP
oUTPUT (R3):,(R4).

B8R

504018
JSR PC,QUIET

(DEF

THE

TAB
OF

‘M S

D0 LINE FEED
SETUP R3 AS INDEx

10 7

00 FOR EACH ENTRY

"N T

TRY
THE

AND PRINT 100 ASTE
LEFT AND RIGHT MRAR

00 A LINE FEED

S03764

50877s;
LET R3 := #ATBL
MOV
SATBL RS
LET Ra ;= 0APIBL
#APTBL R4
Mov
WHILE (R3) NE 00 DO

040534

TABS

OUTPUT #0UTBUF 2,01

B8R

OFFSET

PRINT AN "M’
REFERENCE LINE

503728

1871

PAPER

ID ON LINE

CLEAR DEFAULT
DO TEN TIMES

OUTPYT (R3).,812,
OUTPUT SOUTBUF+7,81.,0100,

504008
:

’

OECIPOINTS

OUTPUT #QUTBUF
, o1
OUTPUT eOUTBUF.1,01

BNE

ENDDO

BRACKET

LEFT RIGHT MARGIN SECTION

503754
:
OUTPUT OUTBUF +2,01
LET R3 := OPARTBL
MOV
#PARTBL ,R3
WHILE (R3) NE #0 DO
S0376s:

040454

SQUARE

let

2t P N

N pe [

PN\

RNONOBO

NN r\r\g &

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

037576
037604
037604
037612
037612

PAGE

(4)

3404

TEST
ONMAC x24.07 5613
&g APR -84
09:07
MARGI NS TEST
10 APR 84 08:55

CZUNADO 1 NO1
CZULNAD.P11

504008

FIRST

TABLE OF SEQUENC

FIRST

TABLE OF B8 TE CO

DO FOR ALl

ENTRIES

SEQ 0094

CZUNADO
LNOL
TEST
X24.07
:
ESENABOL YO T83Tapr aa SNTEE X24.07 S€3, AQ/(ER £4, 09:07 PAGE 6 78
3431

()
3332
(4)
3433
(4)

\6)

.8)
(9)

040540

040540
040544
040544
040550
040550

40550

040552
040558

3434
3435

040560
040616

(3)

040620

3438
3439
3830
3441
(4)

(4)

012703

044346

012704

044822

LET

3442

040620
040624

040620
ENDDO

004737

005306

(40666
040730
040772
041034
041034

012703

044474

041040

012704

044514

005713
001002
000137

041320

012737

000001

041040

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

041044
041044
041044
041046
041050

3446

041154

(7)
(6)
(8)
(6)
{7)
(9)
(7)
(6)
3447

041162
041164
041164
041170
041170
041176
041200
041204
041204

3444
3445
(S)

3448

041054
041112

041154

041246

(4)
(4)
3449
3450
3451

041246
041250
041250
041254
041316

(3)
3452
(4)
3453
(&)
3454
(a)
(6)
(8)

041220
041320
041320
041324
041324
041330
041330
041330
041332

(3)

000402
005237

202276

023727
003402
000137

002276

041250

005306

B8R

MOV

012703

044554

012704

084646

.6
$0403$
(R2)+,(R&).

INCR COUNT FROM @1

50406:
000226

504074
;

504108
:

504118:

01,COUNT

S0407%

INC

COUNT

cp
BLE
P

COUNT, #150.
504104
504114
OUTPUT

TO 0150.

QOUTBUF 7,01

OUTPUT

:
:
:
:
:

SETS LRMAR TO 1 AND 10
LINE FEED
PRINT ASTERISKS ACRCSS
LINE FEED
TABLE OF IGNORE SEQS

THE ENTRY

PARAMETERS

DO FOR EACH ENTRY

:
:

DUTPUT THE ENTRY
CARRIAGE RETURN

;

LINE FEED

DO FOR EACH ENTRY

ACROSS PAGE

50406

JSR PC. QUIET
OUTPUT SOUTBUF
.2, 01

B8R

;

#IGTBLP,R4

OUTPUT (R3).,(R4).
OUTPUT S0UTBUF
.S, 91

MOV

DO FOR EACH ENTRY

504024

WHILE (R3) NE @0 DO
504045
ST
(R3)
BNE
.6
P
$0405$

002276

(R3)

JSR PC.QUIET
OUTPUT #ONETEN. 012.
OUTPUT @QUTBLF
+2, 1
OUTPUT @OUTBUF+7.81,.0150.
OUTPUT aGUTBUF
.2, 01
LET R3 := @IGIBL
MOV
#IGTBL,RS
LET R4 := OIGTBLP

ENDDO

041316 000652

005712
001002

504034

OUTPUT

ENDINC

000746
004737

#BTBL

BNE
P

.3) 040616 000754

3436
3437

:«

MOV
0BTBL ,R3
LET R& :+ 0BPTBL
MOV
eBPTBL .R4
WHILE (R3) NE 00 DO
504028:

005713
001002
000137

504048

504054
;
LET R3 :+ @CTBL
MOV
oCTBL R3S
LET R4 ;= oCPTBL
MOV
*CPTBL R4
WHILE (R3) NE 00 DO
50412:
1St
(R3)
BNE
.6

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)

Nt N

Nt ot N

~NO NN

Y YeYeYe
Yo Ye Yl

(9)
3479

041400

ENDDO

000754

004737

005306

012703

044740

012704

045010

005713
001002
000137

B8R

TSY

041464

ENDDO

504154
:

044532

012704

044544

005713
001002
000137

042126

PHYSICAL

005306

012737
000402

000001

005237

002276

023727
003402
000137

002276
042226

SECTION

FORM FEED

002276

000064

504214:

BLE
JHP

INCHES

TIMES

ENC OF PLP SECTION MESSAGE

SEQUENCE SECTION

504164

#; TO #52, By o1
01,COUNT
504214
COUNT

COUNT
, 052,

504224
504234

TO 8

PLP MESSAGE 69

:= SIGNTBL
QIGNTBL ,R3
MOV
LET R4 := OIGNTBP
R4
#IGNTBP
MOV
WHILE (R3) NE #0 DO
504164
:
157
(R3)
BNE
. v6
P
504174
OUTPUT (R3).+,(R4):
OUTPUT #ENDTBM,
81
ENDDO

B8R

004737

LINES PER PAGE

PLP SEQUENCE

IGNORE

S50417¢:
JSR PC, QUIETY
INCR COUNT FROM
MOV
BR
50420¢:
INC

IN 4

504148

LETY RX

000733

HANDLED NO

ALL ENTRIES MANDLED NOC

OUTPUT QONESVN,#12.
OUTPUT SOUTBUF 5,01

012703

DO FOR EACH ENTRY

ENTRIES

(R3)

i
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

BNE
. +6
504153
JMP
OUTPUT (R3).,(R4).

OUTPUT #PLPS,07
OUTPUT SOUTBUF +5,41
OUTPUT #PLP,#32.,,#69,
JSR PC, QUIET
OUTPUT #EOPLP, #60.

005306

ALL

S04128

50413%:
JSR PC,QUIET
LET R3 := #DTBL
oDTBL ,R3
MOV
LET R4 := #DPTBL
#DPTBL R4
MOV
WHILE (R3) NE 00 DO
504144

C0o0754

004737

SEQ 0095

JMP
50413
OQUTPUT (R3)¢,(R4).

041464
041526
041570
041632
041636

000127

(6)
(8)
(9

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

PAGE 6

(9
3455
3456
3
(3)
3457
3458
(4)
3459
(4)
3460
\4)

TEST
ONMAC X2€.07 563
10 APR 84
09:07
MARGINS TEST
10 APR 84 08:55

CZLNADO LNO1
CZLNAD.P11

SET

TBMAR AT ONE AND SE JEN

FORM FEED

TABLE OF

IGNOR

SEND IGNORE SEQ

FINAL

CHAR FOR

SEQUENCES

TBMAR

FS3

141

070

133
133
133
135
133
133
133
133
133
133
133
133
133
133
133
133
133
133
133

046555
051440
041511
051440
051440
051117
062
063
065
066
063
063
070
pes

060
061
062
062
063
064
265
065
066
067
067
061
062

063
060
060
073

LNLIST BEX

TSTMRA:
TSTMRB:

PLP:
EOPLP:
EOIGN:
IGSEC:

.ASCII
.ASCII

LASCII
_ASCII
(ASCII
.ASCII

PLPS:
PLPI:
CLRTAB:

.BYTE
.BYTE
.BYTE

BGNSEQ:

.BYTE
.BYTE

PARAM2:
PARAMZ:

.BYTE
.BYTE

TABMS:

PARAM]Y:

<33>/[10mMARGINS TEST

PAGE 1/<12><12>
: TEST
1 INCH MARK OF SECOND PAGE/
/PHYSICAL LINES PER PAGE SECTION/<12>
/THIS SHOWD BE 2ND LINE OF 2ND PAGE ANC END OF PLP SECTICON./<12>
/THIS SHOLD BE 2ND LINE OF

2ND PAGE AND ENO OF

/IGNORED SEQUENCE SECTION/<12>

33,133,65,67,66,60,164
33,133,66,64,70,60,164
33,133,63,147

.BYTE
.BYTE

33,133,63,147,33,133,61.64,64,
62.70,70,60,73,63,66,60.60,73,

.BYTE

33,133,60,67,62,60,73,61.64,64

33,133,65,67,66,60,73,66,64,70
33,133
33,133,61,64,64,60,73,62,61.66
355,133,62,61,66,60,.73,62,70.70

.BYTE

33,133,63,66,60,60,73,64,63,62

PARAMB:
PARAMI:

.BYTE
.BYTE

353,133,65.67.66,60,73,66,64,.70
33,133,66,64,70,60,73,67,62.60

.BYTE

TEST MESSAGE

FORM FEED

PARAMS:

PARAMG:

IGNORE SECTION

/THIS SHOUWLD BE AT APPROX.

33,133,64,63,62,60,73,65,60,64

IGNORED

«73%,62,61,66,60,73

£3

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

END OF

TABLES, MESSAGES

SEQUENCE

SECTION

CLEAR

: CLEARS HTABS A

+63,62,60,73,€65,60,64,60,165
. 165

23333 233333333% &

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
073
163
162
165

LOCAL VARIABLES,

END OF

DECIPOINTS

104432
002360

;

005306

:
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

50420

JSR PC, QUIEY
QUTPUT &EOIGN,@73.
OUTPUT #ENDTS,012.
OUTPUT QOUTBUF +5,41
OUTPUT #REINIT,
82
QUTPUT #SELDEC,
o5
JSR PC, QUIET
EXIT TST
TRAP
CSEXIT
.WORD
L10024-,

005306

SECTION MESSAGE

: BEGINS

.,163

.163
.163

3
:

«163

.163

:
:

004737

B8R

;

3497
3498
3499
3500
3501
3502
3508
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

004737

504238

OUTPUT @IGSEC, 825,

3494
3495
3496

042510
042512

000746

SEQG 0096

3491
3492
3493
(3)
(3)

042226
042232
042274
042336
042400
042442
042504
042510

ENDINC

6 80

3486
3487
3488
3489
3490

042224
042226

504224
:

PAGE

(4)
(4)

042162
042162
042224

09:07

{6)
3484
3485

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

C. LNADO LNO1
CZLNAD.P11

PARS :
ONETEN:
ONESVN:
EXRMAR:

MIDSEQ:

ENDLRM:
ENDTBM:
ENOHT:
ENOHR:

.BYTE
.BYTE
.BYTE
.BYTE

33,133,63,66,.60,60,73,66,64,70
33,133,60,67,62,60,73,67,62,60
33,133,60,67,62,60,73,65,60,64
53,133,73,61,60,70,60,60,163

.BYTE
.BYTE
. BYTE
.BYTE

163
162
165
141

.BYTE

163
.163
. 162

SETS R

;s SEMI C
s FINAL
:

FINAL

~ZUNADO LNO1

cFnAD PO
3535
3536
3537
3538
3539
3540
3541
3542
1543

TEST
NMAC
X24.07 563
9:07
63 mahQRER R.B, ©9:0
T3 apr 84 SBTEE ¢

043566
043567
043570
043571
043606
043611
043615
043623
043636

140
144
164
033
033
033
033
033
033

133
133
133
133
133
133

3545

033664

033

3547
3548
35489

043713
043736
044023

033
047524
102

€Te!

Ge 6 81

163
163
073
060
065
061

ENDHAB:
ENOVAB:
ENDPLP:
IGNOR1:
IGNORA:
IGNORB:
IGNORC:
IGNOR2:
ORULE1:

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

140
. FINAL
144
S FINAL
164
. FINAL
33,133,163,33,133,73,163,33,133.60,
73,60, 163
; THESE SEQUENCE
33.133.163
33.133.73,163
33.133.60.73.60,163
33.133.65.60.64.60,73,64.63,62,60
; SETS M
33.133.61,73.61.62.67.65.73.63.60,60.73.62.67,50,60,73.63.65.41,174

133

060

DRUWE2:

.BYTE

33.13%3,60,73,61,62,67,65,73,61.66.65.60.73,61,62.60.60.73.63.65.41,.174

133
020120
052117

073
040515
047524

DEFMAR:
TOPMAR:
BOTMAR:

.BYTE
.ASCII
.ASCII

33,133,73,65,70,63,62,162,33,133,64,67.65,73.67,64,64,.65,163
/TOP MARGIN. INCHES FROM THE TOP SHOULD EGUAL APPROX. 7
/BOTTOM MARGIN. INCHES FROM THE TOP SHOULD EGUAL APPROX. /

3550
3551
3552

;

044113
044127
044135

3553
3554
3555
3556
3557
3558
31559
3560
3561
3562
3563
3563
3565
3566
3567
3568
3569
3570
3571

044140
044160
044202
044232
044254
044320
044346
044364
044410
044422
044474
044514
044532
044544
044558
044576
044622
044636

3573
3574
3575
3576

044726
044740
044760
044776

3572

3577
3578
3579
3580
3581
(3)
(3)
3582
3583

3584
358¢,
3586
3587
3588

SEGC 0097

044646

045010
045060
045072
045072
045072
045074

105
066
067
044140
043272
043272
043306
043336
000014
000001
043352
003123
043336
000014
043520
000014

042116
031061
070

047440
032463

043606
000002
043713
003117
003116
043736

043306
003124
003123
043366
000001
0000C1
003123
041366
004036
000001
043606
000003
043611
000003
043352
004036
042552
044131

043322
043256
043272
043566
000006
000001
003116
003123
043636
000001
043520
000014
043615
000005
043563
043664
003116
003116

000001
043306
044133
043802

000065
043563
003116
043567

000001
043736
O4¥366
044023

000023

000006
043138

104401

000006

000001
043143

000001

000065
043152

ENDTS:
TOPNUM:
BOTNUM:

.EVEN
PARTBL:
ATBL:
APTBL:
BTBL:
BPTBL:
IGTBL:
IGTBLP:
IGNTBL:
IGNTBP:
CTBL:

CPTBL:
DTBL:

.ASCII
.ASCII
.ASCII
.WORD
.WORD
'WORD
(HORD
.WORD
"WORD
.WORD
TWORD
‘WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
'WORD
"MORD
'WORD

.WORD

‘WORD
.WORD
'MORD
IMORD

OPTBL:
.WORD
PLPTBL: .WORD
EVEN
"LIST BEX
ENDTST
L10024
;
TRAP
ENOMOD

/END OF TEST/<12>
7612357/
/787

AND

INCHES

SEG 10

. TABLE
P

PARAM2,PARAM3,PARAMA
. PARAMS , PARAMG . PARAMT ,PARAMS , O
; TABLE OF PARAM
PARAM2.OUTBUF + 10, PARAML ,ENDHAS . OUTBUF » 7, PARAMS , ENDHAB , OUTBUF + 12, OUTBUF + 2
PARAMS.OUTBUF + 7, PARAMZ , ENDHR , OUTBUF + 12, OUTBUF +2, PARAMA , OUTBLF « 7 . PARAMS . E
PARAMS .PARAMT7,ENDHAB, OUTBUF » 14, PARAMS , ENDHAB , OUTBUF « 7, OUTBUF +2, 0
12..1.6.1.1.6.1.1,1,12..1.6.1.1.1.12..1.6
; FIRST TABLE OF
1,1.1.12..6.1.1.6.1.1.1
PARAMG,OUTBUF +7.0UTBUF +2,PARAM7 ,OUTBUF + 7, PARM10 . ENDHAB
; 2ND TABLE OF S
OUTBUF + 7, PARAM7 . OUTBUF + 7. OUTBUF + 2, PARAMS . OUTBUF « 7, OUTBUF + 2. PARAMS . QUTBUF
PARAMS,SELPIX.DAULEL,SELDEC.O
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.ONE TEN, IGNORS . ONE TEN, EXRMAR . ONE TEN, O
: TGNORE
12..3,12..4.12..9..12.
IGNORA, IGNORS . IGNORC.EXRMAR.O
2.3.5.8.
. BYTE ¢
DEFMAR,PARAMG ENDTBM,BGNSEQ,MIDSEQ,
PARAMG « 7, ENDTEBM, TOPMAR , TOPNUM
OUTBUF+3,SELPIX,DRULE2,
SELDEC, PRRAM] , END TBM. PARAM7 .ENDVAB . BOTHAR . B0 TNUM
OUTBUF +2. TSTMRB.OUTBUF
-2, DEFMAR , PARAMZ , END TBM
TOPMAR. TOPNUM.2.OUTBUF +2.0

19.,6.1.2,1.4,1.53..1.1,5.23..5.6.1.6.1.56..1.1.52..1.8..6

1,53..1.1.0
PARAMS,ENOTBM,
TOPMAR, TOPNUM.3,OUTBUF « 2, PARAMS .ENDTBM TOPMAR
TOPNAM.&,0UTBUF
-2, PARAMT ,ENDTBM, TOPMAR . TOPNUM. S , OUTBUF -2
PARAMS,ENDVAB.BGTMAR,BOTNUM.
1,0

6.1,53..1,1.6.1,53..1.1.6.1.53..1.1,6.1.56..1.0
PLP3,PLPS.PLP8.PLPI.O

CSETS!

;4T

CZLNADO t NOL
CZLNAD.P11

3612

LSBTTL

045074

yMODULE NAME:

3641

2642
3643
3644
3645

SEG

GOR

TESY

UNDLIN.P11l 6/20/82

THIS VERSION OF THE AUTO-UNDERLINE TEST HAS BEEN ALTERED FOR USE IN (NO1 DIAGNOSTIC.
THE ORIGINAL VERSION WAS WRITTEN FOR HARD COPY TERMINALS USING SERIAL INTERFACE(DZ11)

THE ORIGINAL VERSION STILL EXISTS IN THE

TML LIBRARY AND IS CALLED AUTUND .NEW.

000000

THE LNO1 DIAGNOSTIC MAS DRIVERS FOR A PARALLEL INTERFACE(LP11,M7258).
THIS TEST IS DESIGNED TO EXERCISE THE LNO1'S AUTO-UNDERLINING CAPABILITY,
MESSAGES ARE PRINTED WITH UNDERL INING ANO WITHOUT.

.REPT O

BEGINTEST
SEND “OFF” ESCAPE SEQUENCE
PRINT “AUTO UNDERLINE MODE

SKIP TWO LINES ((ACRLF)X2)

3629

3630
3631
3632
3633
3634
3635
3636
3637
3638
3639
3640

GLOBALS REFERENCED
REINIT,ACRLF

3623
3624
3625
3626
3627
3628

PAGE

AUTO-UNDERLINE MODE

3613
3614
3615
3616

3617
3618
3619
3620
3621
3622

09:07

B8GRMOD

]

3589
2590
3591
3592
3594
359%
3596
3597
3598
3599
3600
3001
3602
3603
3604
3605
3606
3607
3608
3609
3610
3611

TE ST
DNMAC x24.07 563
10 APR 84
MARGINS TESTY
10-APR 84 08:55

(b}

"THIS MESSAGE

(CLRUND)
TEST” (UNDTTL)

SHOULD NOT BE

UNDERLINED

SEND “ON" ESCAPE SEQUENCE (UNDON)

PRINT ~THIS MESSAGE SHOULD BE UNDERLINED'
PRINT CHARACTER SET (ATHRUZ)
PRINT

~TABS:

CLR TABS
SET TABS

"SPACES:

(UNDMSG)

( TABS)

INCREMENT COUNT FROM 1
:
DD A TAB
PRINT A T
:
ENDINCREMENT
SKIP 2 LINES

(NCTUND)

TO 8 BY

~S*"

(SPACES)

INCREMENT COUNT FROM 1 TO 14 BY
:
SEND A SPACE "COUNT" TIMES
PRINT A “G~
:

ENDINCREMENT

SEND UNDERL INE OF UNDERL INE CHARACTER MESSAGE

A LINE

SKIP 2 LINES (ACRLF

x &)

(UNDUND)

la)

CZLNADO I NOL1
CZI NAD . P11

TEST
DNMAC X24.07 563
10 APR 84
09:07
PAGE 6 83
10 APR 84 08:55
AUTC UNDERL INE MODE TEST

3640
3647
3648
3649

:
:
:

INCREMENT COUNT FROM 1 TC 16 Br
:
TURN ON UNDERL INE
:
PRINT "ON” AND A SPACE

3651
3652
3653

:
:
:

:
PRINT "OFF” AND A SPACE
END INCREMENT
SKIP 2 LINES

3650

3654

3655

3656

3659

3057
3658

:
:

3660
3661
3662
3663
3664
2665
3666
3667
3668
3669
3670
3671

3672

045074
045074
045074

3675

045102

T14::

045074

112737

0G0011

003114

045102

112737

000012

045110

112737

045116

(4)

3676

(4)

7877

(4)

3678
3679
3680
(4)
3681

(4)

ONLY

DOES

11 DUE

(NOTUND)

DO A FORM FEED

BGNTST

14,

LET OUTBUF

:8+

011

MOV8

012, 0UTBUF + 1

000014

003116

MOVB

214 ,0UTBLF
+2

112737

000015

003117

"ove

#15,0UTBUF
»3

045124

112737

00004C

003120

MOVS

840, ,0UTBUF +4

O0+5132

112737

000123

003121

MOVe

0123,0UTBUF
+5

112737

000124

003122

112737

000137

003123

MOV

@137 ,0UTBUF +7

045110

045116

045124

045132
045140
045140
045146

045146

045322
045364

3592

CURRENT CODE

SEND “OFF” ESCAPE SEAUENCE (CLRUND)

003115

3685
3686
3689
3690
3691

NOTE:

PRINT “THIS MESSAGE SHOULD NOT BE UNDERLINED®
DO A RESET OF PRINTER DEFAULT CONDITIONS

#11,0UTBUF

045154
045216

ssgg;

;

TURN OFF UNDER!.INE

MOVB

3682
3683

3584

ENDTEST
.ENDR

3673
(3,
3674

(4)

SEG 0099

045260

045426
045470
045532
045574

;

HOR TAB CODE

LET OUTBUF«1

:B=

#12

LINE FEED CODE

LET OUTBUF
.2

:8+ 014

;

FORM FEED CODE

LET OUTBUF+3

:B+

#15

;

CARRIAGE RETURN CODE

LET OUTBUF
.4 :B= 840

SPACE CODE

LET OUTBUF
«5

:8= 0123

UPPER CASE

LET OUTBUF
+6 :B+« 2124
]
9124 ,0UTBLF +6
LET OUTBUF+«7 :8+ #1%7

‘T

UNDEQUINE (

OUTPUT #REINIT,e2
OUTPUT @SELDEC,.#S

OUTPUT SUNDON,
#4

OUTPUT aNOUND,
#5
OUTPUT SUNDTTL ,836.

OUTPUT #NOTUND, #40,
[}

OUTPUT SUNDON,
#4
OUTPUT SUNDMSG, #60.
OUTPUT SATHRUZ, 829,
H

'S CODE

CODE

3} CODZ

; DECIPOINTS

: SEQUENCE 70O TURN UNDERLINE ON
i
:

TEST

"
ID

;
:

SEQ TURNING UNDERL INE ON
MESSAGE SAYING
NDER. INEN

: MESSAGE SAYING

oFF

NO~ UMDERL INED

22
\,‘)

CZLNADO { NOL1
CZLNAD.P11

N
Nt o

~ et Nt Mol N

OO PO

~ PN

2693
3694
3695
3696

AU AT A

N0V~

NN\

3697
3698
3699
(4)
(4)
3700
3701
3702
3703
3704
3705
3706
(5)

3707
3708
3709
3710
(4)
(4)
3711
3712
3713
wn
NN

[l e AR Y

e W W W

Lal XAl 2V ] -

W
MRy
e Y Te Lt e ~

3714

TEST
DNMAC x24 .07 563
09:07
10 APR-84
AUTO UNDERLINE MODE
10 APR 84 08:5%

045636
045700
045742
046004
046004
046012
046014
046014
046020

046020
046026
046030
046054
046034
046076
046140
046140
046142
046142
046204
046246

046310
046352
046414
046414
046422
046424
046424
046430
046430
046436
046440
046444
046444
046506
046512
046554
046554
046556
046556
046620
046662
046724
066724
046732
046734
046734
046740
046740
046746
046750
046754
046754
047016

PAGE

TEST

5EQ 0100

OUTPUT @TABS,#7
,
QUTPUT ONOTAB04
OUTPUT

012737
000402

000001

005237

003110

023727
003402
000137

003110

MOV

50424;
000010

046142

50425¢:

504264
:

a1, WORK

504254

INC

WORK

cHP
BLE
JMP

WORK
, 08 .
5042614

504275
:

10 08,

1SET

OUTPUT

000001

005237

003110

023727
003402
000137

003110

004737

005306

003110
S50430¢:
000016

046556

504318

S0432%:

000723

:
50433

ENDINCR
50424
BR

Q0UTBULF +6,41

000001

€05237

002276

023727
003402
000137

002276
047020

002276

S04344
000204

504358:

,
OUTPUT #NOTAB#4
QUTPUT #ACRLF
, 22
F
, #2
OUTPUT @ACRL
OUTPUT $OUTBUF
+5, 81
INCR WORK FROM 01 10 014.
MOV
#1 , WORK
50431
BR
INC

WORK

o
8LE
JP

WORK
, 014,
504324
50433%

504368
:

1/2,2,3.,4.5,.7,1

;SEND SPACE WORK

:SEND S~

OQUTPUT @ACRLF
, 82
OUTPUT SACRLF
, 82

: CR, LF

OUTPUT SUNDUND
, #36 .
INCR COUNT FROM 21 TO #132.
21 ,COUNT
MOV
504354
BR
INC

COUNT

COUNT 0132,

TAB SETTINGS

: SEND SPACE “ESSAGE
;SEND S

OUTPUT #OUTBUF 5,41
ENDINCR
50430%
B8R

ENDINC

1,1

;CLR TABS
;i CR, LF
;: CR, LF

OUTPUT 00UTBUF
+4, 01, ,W0ORK
JSR PC,QUIEY

8LE
JMP

;D0 FOR ALL

012737
000402

TABS

:DoyTAB

o0UTBUF
, 01

OUTPUT @SPACES,
#9.

012737
000402

TABS

50427%

OUTPUT

000725

;CLR ALL

&STTAB, %41,

INCR WORK FROM 01

003110

$SEND TABS MESSAGE

CR,

TIMES

;UNDERLINE THE UNDERL INE MESSAGE
; DO IT 132 TIMES

50436
¢
504378

OUTPUT &0UTBUF
. 7,01

: UNDERULINE

CHARACTER

18
CZUNADO LNO1
CZLNAD.P11

(4)

TEST
ONMAC
10 APR 84

047016

(4)
3718
3719

047020
047020
047024

3721
(5)

047130
047130

3720

{7)

047136

047140
047140
047144
047144
047152
047154
047160
047160
047222
047264
047326
047370
047370
047372
047372

29
3730
3731
3732
3733

047476
047540
047602
047644

3735
373
(3)

047750
047754
047754

3734

3%;

3738
3739
3740
3741
3742

000746
004737

012737
000402

000001

005237

002276

023727
003402
000137

002276

N %80 TEY

B8R

50441%:

504428:

00663

6 85

50443:

SEQ 0101

504348

JSR PC,QUIET
OUTPUT @#ACRLF
, %2
QACRLF
, 2

50441

INC

COUNT

cMP
BLE
N

COUNT, a1,
504424
50443%

OUTPUT
OUTPUT
OUTPUT

ENDINC
BR

TO 411,

OUNDON,
24
O0UN, 03

oCLRUND,
04

OUTPUT 0FUN,
84

NOTE:

THIS SHOWD BE

16 BUT TMM

;
;

;

TURN ON UNDERL INE
PRINT ON AND A SPACE
: TURN OFF UNDERL INE
OFF AND A SPACE

504404

O 'TPUT

#ACRLF ,#2

]
OUTPUT
OUTPUT
OUTPUT
OUTPUT

eCLRUND,
04
@NOTUND, @40,
SOUTIBUF
.2, 01
#REINIT,
@2

OUTPUT @ACRLF
, 82

004737

OUTPUT 0SELDEC,
&5

005306

JSR PC,
EXIT
TRAP

104432

UNDERLINE MODE OFF
NOT UNDERLINED MSG
DO FORM FEED
RESET DEFAULT CONDITIONS

WAIT

;

DECIPOINTS

TILL DONE

000442

047760

033

133

060

.NLIST BEX
CLRUND: .BYTE

33,133,60,155

047770
047775

033
033

133
133

062
067

NOUND:
STIAP:

.BYTE

33,133,62,64,155
;ESC [ 24 m
33,133,67,62.60,73.61,60,70,60,.73,61,64,648,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

063

NOTAB:

.BYTE

83,1353,.63,147

UNDMSG:

.ASCII

/THIS MESSAGE SHMOW.D BE UNDERLINED /

047764

033

. WORD

QUIET
187
CSEXIT

;
:
;
;

047756

133

063

066

050046

033

133

3747

050170

3756
3757
3758

504408
:

047372

050027

3749
3750
3751
3752
3733
g?,g;

002276

000013

PAGE

INCR COUNT FROM 01
MOV
41,COUNT

047434

047706

09:07

OUTPUT

3743

3748

504378

005306

3744

3745
3746

autd

APR
84
UNDERL.

047066

(6)
(8)
(6)
7))
(9)
(7Y
(6)
3722
3723
3724
3725
372¢
(4)
(4)
3727

g;za

08:55

X24.07 S63

050052
050117

055433
124

030061
044510

050232

047111

040440

050265
050332
050344
050354
050411
050414

044124

125
050123
040524
041101
117
(043117

064

060

040555
020123

051511

046440

042116
041501
051502
042103
020116
020106

051105
051505
006472
043105

052125

UNDON:

UNDTTL:
NOTUND:

UNDUND:
SPACES:
TABS:
ATHRUZ:
OUN:
FUN:

.BYTE
.BYTE
_BYTE

.ASCIZ
.ASCIZ
LASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
,ASCII
LASCII
LASCII

.EVEN
.LIST BEX

110025 -,

35.133,64,155

:ESC

;ESC

[

O m

4 m

;SET

TABS

CLEAR ALL HOR

<33>/[10mAUTO-UNDERLINE
-MODE TEST 14/<15>¢12><12><12>
/THIS MESSAGE SHOULD NOT BE UNDERLINED./<15><12>

1,1

TABS

/IN AUTC-UNDERLINE MODE./<15><12><12>

/UNDERLINE OF UNDERL INE -CHARACTERS:/<15><12>
/SPACES:/<12><15»>
/TABS:/<15>¢12>
/ABCDEFGHIJUKLMNOPQRSTUVMWXYZ/<15>c125<12>
/ON /
70FF /

;

29 CHARACTERS

1/2.2.3

CZLNADO LNOL1
CZLNAD.P11
2759
(3)

(3>

3760
3761
3762
3763
3764
3765

TEST
ONMAC x24 .07 563
10 APR 84 08:55

050420
050420
050420
050422

104401

L 8

SEQ 0102

aut oRneRl N2 TEEY © o
L 10025

ENDTST
TRAP
ENDMOD

CSETST

3766

3767

3801

3802
3803
3804
3805
3806
3807
3808
3809
3810
3811
3812
3813

.SBTTL
PARTIAL LINE UP/DOWN TEST
MODULE NAME: NEWPLU.P11

B8GNMOD
*

THIS TEST IS AN ADAPTATION OF THE PARTIAL LINE UP, PARTIAL LIE DOWN
TEST USED ON HARDCOPY TERMINALS.
THE ORIGINAL VERSION OF THIS TEST

IS DESIGNED FOR USE ON TERMINALS USING THE DZ11 SERIAL INTERFACE.
74E ORIGINAL

IS CALLED PTLINE.P11,

AND,

TML LIBRARY

THE ANSI PARTIAL LINE UP AND PARTIAL LINE DOWN ESCAPE SEQUENCES.
OTHER THINGS TESTED INCLUDE THE MACHINES ABILITY TO PERFORM MULTIPLE
PLU, PLD FUNCTIONS ON ONE LINE, AND, THE STATED FACT THAT USING THE
gbgéESLD FUNCTIONS TAKES UP ONE LINE SPACE APIECE IN THE LNO1'S PAGE

000000

IS LOCATED IN THE

ON THE MILL20 DEVELOPMENT SYSTEM IN A SUBDIRECTORY CALLED TML.TESTS.
THIS COPY, WHICH MAS BEEN NAMEN PLUP.P11, IS FOR USE ON THE LNO1
ELECTRONIC PRINTER ONLY. IT IS DESIGNED FOR USE ON PRINTERS USING THE
LP11 (M7258) INTERFACE. A COPY OF PLUP.P11 IS LOCATED ON MILL20 «TML.G>
THIS TEST WILL EXERCISE THE TERMINALS CAPABILITY TO EXECUTE

B¢

050422

3768
3769
3770
3772
3773
3774
3775
3776
3777
3778
3779
3780
3781
3782
3783
3784
3785
3780
3787
3788
3789
3790
3791
3792
3793
3794
3795
3796
3797
3798
3799
3800

.REPT O
BGN PTLINE TEST
SKIP 3 LINES

PRINT THE TEST

SKIP 3 MORE LINES
INCREMENT WORK FROM 1 TO 9 BY 1
:
DO FOR COUNT = S DOWN TO O BY 1
:
:
SELECT LOGICAL FONT 010
SEND ' 000°
SEND PLU 1 PLD

:
ENDDO

SEND

' 000

SEND PLD 1 PLU

END INCREMENT
SEND ' 000’
SKIP 2 LINES

PRINT END OF TEST MESSAGE
TOGGLE PAPER OFFSET

CZLNADO LNO1
CZLNAD.P11
3814
3815
3816
3817
3818
3819
3820
3821
3822
3823
3824
3825
3826
3827
3828
3829
3830
3831
3832
3833
3834
3835
3836
3837
3838
3839
3840

(3)
3841
3842

V\J\JVV\JV\JVO\JVVV\J\JUV ~

PNONROANW

el
el i lnilale

gr\mr\f\nr\r\f\
RANONOOON w

3843
3844
3845
3846
3847
(4)
3848

TEST
DNMAC x24.07 563
10 APR-84
09:07
PAGE 6-87
PARTIAL LINE UP/DOWN TEST
10-APR 84 08:55

SEQ 0103

DO FORM FEED
RESET THE PRINTER
!
SELECT SIZE UNIT AS DECIPOINTS
END TEST
EXAMPLE OF

000

QUTPUT:

0001 000

000

OOO1 000

WHERE SUBSCRIPTS AND SUPERSCRIPTS ARE OFFSET BY A PARTIAL LINE,

.ENDR

050422
050422
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

T1S::

112737

000012

003114

012737
000402

000001

003110

005237

003110

023727
003402
000137

003110

012737
000402

000005

005337

002276

023727
002002
000137

002276

S0444%:
000011

051346

051236

50445%
:

S04464:
002276

50450:
000001

504514

504524
:

BGNTST

1S5,

;sess SELECT PORTRAILIT FONT sess;
OUTPUT SREINIT,
&2
OUTPUT #SELDEC,®5
; DECIPOINTS
OUTPUT #SKIP3,.#4
; SKIP 3 LINES
OQUTPUT ePTLINE,#35.
; PRINT TEST ID
OUTPUT #SKIP3.é4
; SKIP 3 MORE LINES
LET OUTBUF :B= @#12
MOVE
212, 0UTBUF
INCR WORK FROM 01 TO 49. By o1
; DO 9 LINES OF THE CODE
MOV
41, WORK
504458
8R

INC

WORK

ce
BLE

, 89 .
WORK
504464

MOV
8R

DECR COUNT FROM 05 TO #1 By @1
45,COUNT
50451

0EC

COUNT

cHe
BGE
JMP

COUNT
, 01
504524
50453

JMP

504474

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
DNMAC X24.07-563
10 APR-84 08:55

050762
051024
051006
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

000642

000137

1) APR-84

004737

005306

112737

000014

004737

005306

S50447%:

003114

104432
000112

033
o012
124
060
033
033
052014

104401

133

015415
051505
030060
030514
030513

061
030533
020124
000
045433
046033

PAGE 6 88

PAKTIAL LINE UP/DOWN TEST

504534
:

050712

09:07

ENDINC
JMP

OUTPUT #PL1,03
OUTPUT @QUTBUF
, &1

;
:

PRINT ' 000
LINE FEED

SKIP 2 LINES
TEST COMPLETE MESSAGE

s+
:

TOGGLE PAPER OFFSET
CODE FOR FORM FEED

OUTPUT #0UTBUF
, 41
OUTPUT #REINIT,
&2
OUTPUT #SELDEC,#5
JSR PC,QUIET

:
;
;s

DO THE FORM FEED
RESET DEFAULT CONDITIONS
DECIPOINTS

MOvVe

414 ,0UTBUF

EXIT
TRAP
.MORD

TST
CSEXIY
L10026-.

.BYTE

#10

33,133,61,60,155
; SEQ TO SELECT LOG FONT #10 (DEFAWLT)
<12>¢15>¢33>/[ 1OmPARTIAL LINE UP-DOWN TEST 15/
/TEST COMPLETE/<12>
7000/

<33>/L17<¢33>/K/
<33>/K1/¢33>/L/

CS$ETST

DRAW VECTORS TEST
B8GNMOD

SELECT LOGICAL FONT
PRINT '000’
DO SUPERSCRIPTS
PRINT ‘000’
00 SUBSCRIPTS

S0444¢

:MODULE DRWVEC.P11

052016

;
;
i

;

;
;

PTLINE: .ASCIZ
TOONE:
.ASCII
PLL:
.ASCI2
PL2:
.ASCIZ
PLS:
.ASCIZ
.EVEN
.LIST BEX
ENDTST
L10026:
TRAP
ENDMOD

.SBTTL

#DECLCS,
45
oPL1,03
&PL2,05
4PL1,63
#PL3,05

OUTPUT @QUTBUF
&1, .82
OUTPUT #TOONE,#14.
JSR PC,QUIET
OUTPUT @DECFIN,#S
LET OUTBUF :8= 414

.NLIST BEX

DECLCS:

ENDDEC
504504

OUTPUT
OQUTPUT
OQUTPUT
QUTPUT
QUTPUT

5€Q o104

CZLNADO LNOL1
CZLNAD.P11

DNMAC
TEST
10 APR 84 08:55

09:07

Go
G0
B
G0
GF
Gr

FUNCTIONAL DESCRIPTION
TEST IS DESIGNED TO TEST THE

DRAW VECTOR

(SOMETIMES CALLED DRAW RULE) FUNCT

OF THE LNO1 ELECTRONIC PRINTER.
TME DRAW VECTOR FUNCTION, CALLED “DECVEC
',
DRA
A LINE OF VARIABLE THICKNESS,
THE X DIRECTION IS PARALLEL TO PHYSICAL PALE MOVE
THE v DIRECTION IS PARALLEL TO THE LASER SCAN,
THE LINE‘S ORIENTATION. POINT OF
ORIGIN, DISTANCE AND WIDTH MAY BE DEFINED BY SPECIFYING CERTATN PARAMETERS IN TH

AFTER USING THE DRAW VECTOR COMMAND, THE
POSITIONezgnggUS TO GIVING THE COMMAND,

ACTIVE POSITION

IS RETURNED

THE

ACTI

THIS

0105
5EC 0105

PAGE 6 89

THAT

SUPPOSE

“BEFORL” A DRAW VECTOR COMMAND:
VERTICAL
HORIZONTAL

ACTIVE POSITIONS AR
= 1 INCH FROM TOP C
= 5 INCHES FROM LEF

3909
3910
3911
3912
3313
3914
3915
3916

THEN A COMMAND

IS GIVEN TO DRAW VECTOR FROM 3

VERTICAL

ORIGIN IS 4

INCHES,

IMNCHES HORIZONTALL

WIDTH IS

1/2

INCH.

MORIZONTALLY,

EXECUTING

THE

COMMAND:

ACTIVE POSITIONS SHOWAD STILL BE
VERTICAL
= 1 INCH FROM TOP OF
HORIZONTAL
= S INCHES FRGM LEF”

“AFTER”

X917
3918
3919

NOTE :

CURRENT POSITION IS IDENTICAL AFTER DRAW RULE COMMAND AS BEFORE.

3920

3921
3922
3923
3924

THE

TEST

VERIFIES

THESE FUNCTIONS BY PRINTING

ID AND

THEN

THE RECTANGLE WILL BE MANGLED 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 FIRSY LETTER (L) TO BE PRINTED.
HOWEVER, 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 TQO THE POSITION OF THE FIRST LETTER.
THE LETTER
WILL THEN BE PRINTED.
THIS SAME CONCEPT OF POSITIONING THE ACTIVE COLUMN
TO THE PROPER LETTER POSITION AND THEN DRAWING A VECTOR BEFORE PRINTING THE
LETTER WILL BE USED TO COMPLETE THE RECTANGLE,
INCLUDING THE LETTERS.
THE

VERTICAL

LINES WITHIN

THE BOUNDARIES.

THE RECTANGLE WILL BE

A DIFFERENT

WIDTH

THaN

THE CENTER LINE MILL BE STILL A DIFFERENT WIDTH THAN

THE BOUNDARIES AND THE 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,

GLOBALS REFERENCED:

REPT O

TEST

THE LETTERS WILL BE ARRANGED IN SUCH A WAY SO AS TO SPELL OUT “LNO1” ON THZ UPPE
THE RECTANGLE AND TO SPELL OUT “DIGITAL" IN THE LOWER MALF,
THE TEST WILL CONCLUDE BY PRINTING THE TEST ID BELOW THE RECTANGLE.

REINIT,QUIE?Y

000000

THE

BELOW THE ID DRAWING A RECTANGLE 3 INCHES IN MEIGHT AND 9 IMCHMES IN WIDTH.
THE
CENTER LINE ORAWN MORIZONTALLY THROUGH IT.
IT WILL ALSO HMAVE 8 VERTICAL LINES
ORAWN AT 1 INCH INTERVALS INSIDE THE RECTANGLE.
THE RECTANGLE WIL'. ALSO CONTAIN

3925

3920
3927
3928
3929
3930
3931
3932
3933
3934
3935
3936
393°
3938
3939
3940
3941
3942
3943
3944
3945
3946
3947
3948
3949
3950
3951
3952
3953

10 APR 84

ORAW VECTORS TEST
e

3898
3899
3900
3901
3902
3903
3904
3905
3906
390~
3908

X04.07 563

ESRABON! 58
apm oa GRS X29-07 SO%,0)2 0BG 2af7 PAcE & %0

(6)
(8)
(9)
3994
3995
(3)
(3)
3996
3997
3998
2999

4000

POL

TEST

TO ABSOLUTE

iNCH MARK

ORAW VECTOR FOR TOP LINE OF RECTANGLE
00 FOR EACH ENTRY IN TABLE
:
MOVE TO CORRECT POSITION FOR NEXT LETTER

3
ENDDO

DRAW NEXT VECTOR
PRINT NEXT LETTER

MOV VERTICALLY

PRINI

TEST

RESET

THE PRINTER

FROM 2ND INCH VERTICAL
TO 10TH INCH HORIZONTA

BEGIN ROUT INE
MOVE VERTICALLY

TABLE OF

SEQUENCES

SHOULD BE

IN CORRECT P

INCH MARK

s CENTER JUSTIFIED

DO FORM FEED
SELECT SIZE UNIYT AS DECIPOINTS
CALL QUIET ROUTINE
ENO ROUTINE

.ENDR

012703

052750

012704

053000

005713
001002
000137

000754

157

052350

ENDDO

MOVE VERTICALLY

7O 1

INCH MARK

TEST 1D
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

(R3)

BNE
., *6
504558
JHP
oUTPUT (R3).,(R4).

B8R

, #6
ouTPUT OVERPO1
, #22.
ouTPUT SORWVEC
, #4
ouTPUT SUNDER
ouTPUT STOPVEC ,031.
, 07
ouTPUT OVERPQS
LEYT RS te SLETTBL
RS
SLETIBL
MOV
LET R4 s GBYTTIBL
L
R4
®BYTTIB
MoV
WHILE ( R3) NE #0 DO
50454
;

16,

BGNTST

T16::

B¢

052016
052016
052016
052060
052122
052164
052226
052270
052270
052274
052274
052300
052300
052300
052302
052304
052310
052346
052346
052350
052350
052412
052454
052516
052560

3954
3958
3956
3957
3958
3959
3960
3961
3962
3963
3964
3965
3960
396~
3968
3969
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)

5EQ 0104

MOVE

TO LETTER POSITION,

DRAM

50454

504558
;
ouTPUT OVERPQ7,
08,
, 04
ouTPUT SUNDROF
ouUTPUY SORUVEC,#28.
02
ouTPUT OREINIT,
,
ouTPUT 9SELDEC65

MOVE VERTICALLY

YO 8

INCH MARK

SENDO TEST ID FOLLOWED BY A “OR
RESET TO DEFAULT CONDITICONS
SELECT DECIPOINT'S

EiLNA 0 L NO
UNRD.

PIYO! "88'apr sa BYTEE X°4-07 563,000 (FR.BAs 92497 PAGE & N

4001
4002

(3
(3)

4003
4004
4005
4006
4007
4008
4009
4010
4011
4012
4013
4014
4015
4016
4017
4018
4019
4020
4021
4022
4023
4024
4025
4026
4027
4028

4029
4030
4031
4032
4033
4034
4035
4036
4037
4038
4039
4040
4041

4042
4043
4044
4045

4046
4047

4048
(3)
(3)

4049

4050
4051
4052

052622
052626
052626
052630

004737

JSR PC,QUIETY
EXIT TST
TRAP
CeEXIT
L10027
.WORD

005306

104432
001240

LNLIST BEX
052632

052666

052750
053000
053030
053034
053040
053046
053055
053064
053074
053115
053133
053160
053203
053230

053253
053277
053316
053336
053350
053374
053417
053442
053462
053475
053521
053545
053571
053615
053641
033665
053711
053735
053761
054005
054031
054055

054062

054070
054070
054070
054072

055433
044124
052750
053133
000050
033
033
033
033
033
033
033
062
033
063
033
063
033
063
060
063
033
066
033
0x3
073

033
061
033
061
033
061
033
062
033
062
033
062
033
033
0549570

104401

030061
051511

042155
050040

053203
000050
133
133
133
133

053253
000075

133
133
133

067
133
060

133

060
133
060
073
067

133

060

133
133
063
133
062

133
065
133
070

133

061

133

064
133
067
133
133

064

060
067
062
063
065
067
060

061

060
063
060
064

060

066
041
066
060

063
060
067
062
060
063
060
063
060
064
060

065
060
066
060
062

060

DRMWVEC:
OFFSET:
.EVEN
LETTBL:
BYTTBL:
UNDER:
UNDROF:
VERPO1:
VERPO3:
VERPO5:
VERPO?7:

.ASCII
.ASCII

LVEC:

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

TOPVEC:

NVEC:

VECO:

VEC1:

OVEC:
IVEC:

GVEC:

IVEC2:
TVEC:
AVEC:

GUARANTEE

THE FORM FEED

LOCAL VARIABLES, TABLES, MESSAGES
«<33>/[1OmDRAW VECTORS TEST 16/¢15>¢12><14>
/THIS PAGE

SHOULD BE

OFFSET

FROM

THE

TEST

PREVIOUS PAGE/

ID.

FIRST 22 CHAR

.WORD
.WORD
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

LVEC,NVEC, vECO,VECL1 ,DVEC, IVEC,GVEC, IVEC2, TVEC,AVEC,LVEC2,0

.BYTE

62,67,60,60,73,63,67,41,174,33,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

.BYTE

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

.BYTE

.BYTE
LVEC2:
.BYTE
.BYTE
JUSTON: .BYTE
JUSTOF: .BYTE
.EVEN
.LIST BEX
ENDTST

L10027:

SEQ 0107

TRAP
ENOMOD

;

40, ,40,,61.,39.,46.,40,,40,,40.,40.,40.,40.,0
33,133,64,155
3 UNDERLINE ON
33,133,60.155
:
"
OFF

33,13%,67,62,60,144

33.133,62.61,66,60,144
33,133,63,66,60,60,144

:
:

;

T8L OF

BYTE C

VERTICAL POSITION FOR
“
'

63,60,60,73,62,67,63,67,73,63,67,41,174,33,133,62.40,111,114
33,133,63,62,64,60,140,33,133,67,40,111,33,133,61,73,61,62,60,60,73
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
60,73,66,60,60,73,63,60,60,60,73,61,62,60,60,73

33,135,66,61,62,60,140,53,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,138,63,66,60,60,144,33,133,61,70,60,60,140,33,133,67,40,111
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
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,35,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,138,65,64,60,60,140,33,133,67,40,111,33,133,60,73,.66,60,60.73

62,64,60,60,73,61,62,60,60,73,63,57,41,174,33,133,62,40,111,141
33,133,66,61,62,.60,140,33,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
33,133,62,40,106
35,133,60,40,106

CSETST

s
:

BEGIN JUUSTIFy
END JUSTIFY

CZLNADO LNU1
CZLNAD.P11

TEST
DNMAC x24 .07 S63
10 APR 84 08:55

DRAW VECTORS ?Eé?
10 APR

09:07

PAGE

5tQ 0108

4053
4054
4055
4056

405"

B8GNMOD

054072

S
OF
B
OF

4072

THIS

THE

STATED FUNCTIONS OF

THE

JUSTIFY

COMMAND ON LNO1

THE
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
604 NOR GREATER THAN 200w OF THE WIDTH OF THE SPACE CHARACTER.
NO JUSTIFICATION WILL OCCUR IF THESE LIMITATIONS ARE EXCEEDED.
JUSTIFICATION WILL OCCUR ON ALL TEXT BETWEEN A START AND STOP
JUSTIFY COMMAND.

S0
VDI

4082
4083
4084

TEST OF

SPACE BETWEEN WORDS.

4080

4081

IS A

ELECTRONIC PRINTER. THE JUSTIFY COMMAND AS DEFINED IN THE LNO1 FUNCTIONAL
SPECIFICATION IS SUPPOSED TO FUNCTION IN THE FOLLOWING WAY:
IT WUSTIFIES TEXT LINES WITHIN THE LEFT AND RIGHT MARGINS BY VARYING

4073
4074
4075
4076
4077
4078
4079

A START JUSTIFY DETECTED WITHIN A LINE WILL OETERMINE

BC
B

10 JWUSTIFY ACCORDING TO THE LEFT AND RIGHT MARGIN,

THE START

2:8 %CI:T.SMSTIFY COMMANDS MUST ENCOMPASS THE LINE BEGINNING AND

4088
4089
4090
4091
4092
4093

THE LEFT

JUSTIFY POINT FOR THAT LINE.
A STOP JUSTIFY DETECTED WITHIN A
LINE DETERMINES THE RIGMT JUSTIFY POINT FOR THAY LINE.

4085
4086
4087

IF JUSTIFICATION HAS BEEN TURNED ON AND OFF WITHIN A TEXT LINE
THE SPACE CHARACTERS OUTSIOE THE SEQUENCE USE THE NORMAL WIDTH
OF A SPACE CHARACTER.
THE JUSTIFY

TEST WILL EXERCISE

THESE FUNCTIONS AND PROVIDE

FOR VISUALLY VERIFYING CORRECT OPERATION AND LIMITATIONS.

A MEANS

4094
4095
4096
4097
4098
4039

GLOBALS REFERENCED:

MESSAGES,

.REPT

VARIABLES,

s REINIT,COUNT,OUTBUF ,QUIET

2100

4101
4102
4103
4104
4105
4106
4107
4108
4109
4110

FUNCTIONAL DESCRIPTION

4067
4068
4069
4370
4071

4066

LSBYTL
JUUSTIFY TEST
sMODULE JUSTIF.P11

4058
4059
4062
4063
4064
4065

000000

SUBROUTINES

POL

BEGIN ROUT INE

SEND RESET SEQUENCE

PRINT JUSTIF
SKIP A LINE

SECTION

RESET PRINTER TO DEFAL
TEST

CZUNADO I NOL
CZLNAD.P11

TEST
DNMAC
10 APR 84 08:55

b
x24.07 563

10 APR 84
09:07
JUSTIFY TEST

4111

113
4114

4115
4116

TURN JUSTIFY

DO NEXT CODE 17 TIMEC
PRINT WORD “JUSTIFvY"
SPACE AND WORD JUSTIF
¢

;
:

PRINT WORD "JUSTIFY
SPACE AND WORD JUSTIFY

TURN OFF UNDERL INE

ENDIF
SEND “JUSTFY~
SEND “SPAJUS",COUNT TIMES
SEND A CARRIAGE RETURN, LINE FEED

TURN JUSTIFY OFF

SKIP A LINE

w»

ENDING

INCREMENTY COUNT FROM 1 TO 17,
IF COUNT EQ 14. THEN

TURN UNDERLINE ON

ENDIF
IF COUNT EQ 17.

ENDIF
TURN ON JUSTIFY
SEND “JUSTFY"”

SEND "SPAJMS",COUNT

TURN JUSTIFY OFF

ENDINC

CARRIAGE RETURN,

TIMES

WORD

SPACE

AND WORD JUSTIF»

' JUSTIFY

TABLE

LINE FEED

THEN

TURN OFF UNDERL INE

SECTION 2

¢
20
U
60
88
65
8%

4154

;:
3
;s

TURN UNDERLINE ON
ENDIF
IF COUNT EQ €17. THEN

4129

4155
4156
4157
4158
4159
4160
4161
4162
4163
41464
4165
4166

INCREMENT COUNT FROM #1 TO #17.
IF COUNT EQ @14, THEN

4125
4126
4127
4128

4148
4149
4150
4151
4152
4153

SECTION

SKIP A LINE

4124

4147

SEQ 0109

SKIP A LINE
INCREMENT COUNT FROM 01 TO @17. By @1
SEND "JUSTFY”
SEND "SPAJUS",COUNT TIMES
ENDING
D0 A CARRIAGE RETURN HND LINE FEED

4117
4118
4119
4120
4121
4122
4123

4140
4141
4142
4143
4144
4145
4146

& 93

TURN ON JUSTIFY
PRINT EXPLANATION OF
TURN OFF JUSTIFY

4112

4130
4131
4132
4133
4134
4135
4136
4137
4138
4139

PAGE

TOGGLE PAPER OFFSET

DO FORM FEED

PRINT EXPLANATION OF
TURN ON JUSTIFY

SECTION 2

LET R3 EQUAL TEXTBL
LET R4 EQUAL TEXTBP
WHILE (R3) NOT EQUAL TO O DO
SEND (R3)+,(Ra).
ENDDO
SKIP 3 LINES
TURN JUSTIFY OFF

LET RS EQUAL
LET R4 EQUAL

TEXTBL
TEXTBP

TEXT

LINES

BYTE COUNTS FOR TEXT
DO FOR ALL ENTRIES
OUTPUT THE ENTRY

CZULNADO L NO1
CZLNAD
. P11

TEST
DNMAC
10 APR 84 08:5

X24.07 S63%

A FER B, 09:07 PAGE 6 94

4167
4168
4169
4170

WHILE

(4)

4193

(4)
4194
(4)

419%
(a)

4196
4)

4197

4198

4199
4200
4201
4202
4203
L2204
4205
4206
4207
4208

4209
4210

4211

RESET

SELECT

END ROUTINE

TEST

THE

OUTPUT THE ENTRY

MESSAGE

PRINTER

SIZE UNIT AS DECIPOINTS

.ENDR

054072
054072

T17::

BGNTST

054072
054072
054100
054100
054106
054106
054114
054114
054122
054122
054130
034172
054234
054276

112737

000015

003114

112737

000012

003115

112737

000014

003116

112737

000040

003117

012737

000055

003120

17,

SOURCE CODE

4190

4191
4192

END OF

D0 A FORM FEED
:

TO O

LET QUTBUF :B- #15
MOve
#15,0UTBUF
LEY QUTBUF.1 :B8- 012
MOV
#12,0UTBUF
»1
LET OUTBUF+2 :B= 014

MOvVEe

LINE FEED

FORM FEED

214 ,0UTBUF
2

LET OUTBUF
«3 :B= #40
MOVe
#40,0UTBUF
3
LET QUTBUF
.4 :» 855
MoV
55, 0UTBUF .4
OUTPUT #REINIT,
#2
&5
OUTPUT #SELDEC,
OUTPUT OJUSTIF, #22.
OUTPUT #OUTBUF
.1 ,01

:
054340
054402
054444
054506
054550
054612
054654
054660
054722
054764
054764
054772
054774

CARRIAGE RETURN

SPACE
DASH

RESET THE PRINTER
DEZIPOINTS
TEST

SKIP A LINE

SECTION 1

OUTPUT SONJUST
, 85
OUTPUT #EXP, 0136,
OUTPUT #EXP1,#143,
QUTPUT EXP2, 0145,

TURN JUSTIFY

OFF

EXPLAINS FIRST

SECTION

OUTPUT #EXP3, #1142,

004737

012737
000402

005306

000001

002276

OUTPUT #EXP4,040,
JSR PC,QUIET
OQUTPUT #0FF JUS, 85
OUTPUT #0UTBUF +»1,41
INCR COUNT FROM @1 TO o017,
@1 ,COUNT
MOV

504564
:

B8R

50457

4189

EQUAL

NOT

SEND (R3)+,(R4).

ENDDO
SKIP 3 LINES

4171
4172

4173
4174
4175
176
4177
4178
4179
4130
4181
4182
4183
4184
4185
4186
4187
4188

(R3)

SEQ 0110

SKIP A LINE
D0 THIS CHUNK OF CO0t

H
CZLNADO t NOL
CZLNRD
. P11

L0y

ot Nt Nt

N O

(8)
(6>

4214
4215
4216
4217

(4)
«4)

4218
4219
- ¥
[)
~NnN [ lalallnlatlalalatateata) ,
X\ V1Y) VRNV
ARANTO NN w
~ NN CORAS AN ] oA W AL L
L
LN W ] ~

4220

[+)]

4224

(8)
(9)

4225
4226

(4)

4227
4228
4229
4230

(4)

(4)
4231
4232
4233
4234

(5)

et Nt Nt Nl

~N0

(7)
(6)

TEST
DNMAC %24 .07 S63
10 APR-84
09:07
JUSTIFY TEST
10 APR -84 08:55

054774
055009
055000
055006
055010
055014

005237

002276

023727
003402
000137

002276

000021

055164

S0460%
:

055014
055056
055120
0551582

055162
055164

ENDINC

000704

058276

055300
055300
055304
055304

035312

055314
055320
055320
055320
055326
055330
055334
055376
055376

055376
055376

055404
055406

055412
055454

012737
000402

000001

005237

002276

023727
003402
000137

002276

023727
001402
000137

002276

055622

055624
055624
055666
055730
055772

055772

056000
056002
056002
056006
056006
056014
056016

cMP

COUNT 017,

BLE
JMP

504608
504618

OUTPUT QJUSTIY,
07,
OUTPUT @SPAUUS,#8., ,COUNT
OUTPUT Q0UTBUF
. 1,01

B8R

MOV

504624
:
000021

055624

50463
:

504644
:

000016

055376

002276

055454
504674
:

ENDINC

000626

012737
000402

000001

005237

002276

023727
003402
000137

002276
056434

002276

INC

COUNT

CHP
8LE
JMP

COUNT 817,
50464
504654

504738
;

SPACE
CRLF

“JUSTIF
v~

AND WORD

JUSTIF

SKIP A LINE
TURN JUSTIFY CN
D0 THIS CHUNK OF

CODE

IF COUNT EQ €14. THEN
cHe
COUNT 014,
BEG
. *6

ENDIF

504664
04
OUTPUT &UNON,

IF COUNT EQ €17.

ENDIF

THEN

, 04
OUTPUT JUNOF

OUTPUT #UUSTFY,
@7,
OUTPUT #SPAJUS, #8., ,COUNT
OUTPUT 20UTBUF +1,401

B8R

50471

INC

COUNT

cHp

COUNT, 217,

BLE
JHP

TURN ON UNDERL INE

COUNT 817,
.+6
504674

BR
504624
504654
:
, 04
OUTPUT #UNOF
OUTPUT @OFF JUS, 85
OUTPUT 0UTBLF +1,01
INCR COUNT FROM 01 70 #17.
#1,COUNT
MOV
504703

000021

TO 417,
01,COUNT

50463

Cp
BEQ
JP

000021

WORD

504564

B8R

JHP

055454

055454
055516
055560
055622

COUNT

QUTPUT Q#ONJUST,
25
INCR COUNT FROM €1

504664
:
023727
001402
000137

INC

SEG 0111

504614
:
QUTPUT &0UTBUF +1,01

055164
055226

055270
055270

50457s:

PAGE 6 95

504724
504738

WORD

“JUSTIFY

SPACE AND WORD
CRLF

UNDERL INE OFF

By a1

TURN JUSTIFY
SKIP A (INE

OFF

JLSTIF

CZULNADO ENOL1
CZLNAD.P11
(6)
4235
(6)

(8)
(9)

4236

423>

(4)

4238

(6)
(8)
\9)

4239
4280

(4)
3241

4242
4243

4244
4245
4246

(4)
(8)

4247
4248
1249
4250
4251
425z

4253
4254

4255

4256
4257
4258
4259

(4)

4260

(4)

4261

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

4262
4263
4264

(3)
(3)

4265
4266

4267

TEST
8?&%& X4 .07 563.;«1&?1“” gg‘
Fy
I
10 APR 84

056022
056022
056022
056030
056032

056036

023727
001402
000137

ov2276

000016

056100

056100
056106
056110

056114
056156

S0474%:

023727
001402
000137

002276

000021

056156

056220
056262

056324
056366
056430

056430
056434

000137

056002

056434

COUNT

END INC

PAGF

EQ 014,

JMP

504744

OUTPUT

ENDIF

057054

012703

063506

057060

012704

063526

057060

057064

057064
057064
057066
057070

057074
057132
057136

057136
057140

005713
001002
0001§7

057140

004737

005306

000752

504/5%

OUTPUT

ENDIF

OUTPUT
OUTPLT
QUTPUT
QUTPUT
OUTPUT

057140

057244

4268

057250

057250
057254

012703

063506

012704

063526

UNDERL TMNE DN

, 013
SUNOF

@ONJUST,
05
@JUSTFY, @7,
,
#8., ,COUNT
#SPAJUS
0OFF LIS, 85
#0UTBUF +1,21

50473%:
OUTPUT #UNOF , 04

v
WORD ~“JUSTIF
SPACE AND WORD
CRLF

UNDERLUINE

LET R4

:= #TEXTEBP

MOV

OTEXTBL ,R3

MOV

STEXTBP . R4

L&A

(R3)

TOGGLE PAPER OFFSET

FORTM FEED
EXPLAINS THE SECTION
2ND PART OF EXPLANATIO
3RD PART
TURN ON JUSTIFY

WHILE (R3) NE #0 DO
504764
:

BNE

P
504778
OUTPUT (R3)+ ,(R&).

JSR PC, QUIET

B8R

MOV

#TEXTBL ,R3

oTEXTBP

MOV

(R3) NE

QUTPUT

THE ENTRY

504764

OUTPUT 00FF JUS, 85
LET RS ;= STEXTBL

WHILE

COFF

SECTION 2

SEXPLL, 058,
#EXPL2, 098,
04
#SKIP3S,
45
GONJUST
:= OTEXTBL

LEY R4

UUSTIF

50470%

QUTPUT
OUTPUT
OUTPUT
OUTPUT
LET R3

ENDDO

11,

IF COUNT EQ #17. THEN
cP
COUNT 017,
BEC
.+6

S0477%:
OQUTPUT aSKIP3S,#4

057202

057244

04
GUNON,

OUTPUT #EX
, #1338,
PL

056644

rer‘

.+6

QUTPUT SDECFIN,
05
OUTPUTY 2QUTBUF «2,481

056476
056540
056602

THEN

COUNT
, 214,

056706
056750
057012
057054

CHP

JMP

504758
:

056156
056156

09:07

BEQ

056100

(4)

(4)
4269

S04728:

[ ¢4

ATEXTBP
R4

20 DO

SKIP 3 LINES
TURN OFF UL STIF

TEST
DNMAC
10 APR 84 08:55

50500
:

005712

000137

057330

004737

005306

ENDDO

004737

. +6
50501

JSR PC,

QUIETY

005306

104432
003774

047440
052512
04504C
052512
117
117

047:17
047516
116
1i2
112
033

124

053440
066
043040
051511
112
111

124
117
124
040
044527
047516
044124
047101
040
111

103
117
052512

040
044527

043106
052123
051525
052123
043106
020116

043111
044524
043111
040

040

117

051525
051525
030533
044510
044510
022460
47117
042040
051525
020123
044510
043106
042510
042524
044124
042524
020105
020104
047516
052116
040510
020106
052123
044504
052104

044524
044524
066460
020123

042514
047240
027124
047117
044524
044124
042122
044440
043040
052130
045040
052040
047114
044522
020124
051105
040522
044124
043111
052123
020110

SPAOFF:
JUSSPA:
SPANSS:
JUSTFY:
OFFSPA:
ONSPA:
ON:
NOSPA:
NO:
CHAR44:
CHAR24:
JUSTIF:
EXP:
EXPL;

ExXP2:
EXPS:
EXP4 ;
EXPL :

.ASCII
.ASCII
.ASCII
.ASCII
_ASCII
.ASCII
.ASCII
.ASCII
.ASCIIX
.ASCII
.ASCII
.ASCII
LASCII
LASCII
.ASCII
LASCII

LASCIY

ASCIT
LASCII
.ASCII
ASCII

EXPLL:
ExPL2:

ASCII
ASCII
.ASCII
.ASCII

TEXT1:

L.ASCII

TEXTY:

TEXT2:

TEXT3:
TExT4:

LASCII
LASCII

.ASCII
.ASCII

.ASCII
_ASCII

.ASCII

_ASCII

s
W

OUTPUT #ENJUS, 011,
OUTPUT SOUTBUF
+2, 01
OUTPUT OREINIT,
&2
OUTPUY @SELDEC,#5
J3R PC, QUIET
EXIT TST
TRAP
CsEXITY
L10030
.WORD

.NLIST BEX
057612
057616
057626
057636
057645
057651
057654
057656
057661
057663
057737
057767
060015
060126
060225
060334
060444
060555
060665
061001
061103
061153
061265
061360
061452
061614
061724
062031
062141
062251
062363
062476
062601
062700

(R3)

BNE
JMP

505004
8R
505014
:
OUTPUT #SKIP3,
04

000752

057434
057476

057602
057606
057606
057610

SEQ 0113

PALE 6 97

OUTPUT (R3)+,(R4).

057372

057540

09:07

001002

10 APR-84

JUSTIFY TEST

®s

057254
057254
057256
057260
057264
057322
057326
057326
057330
057330

563

CZLNADO LNOL
CZUNAD.P11

Y
X24.07

SKIP 3 LINES
END OF TEST MESSAGE
FORM FEED
DO A REET PRINTER TO
OECIPOINTS
GUARANTEE THE FORM FEE

LOCAL VARIABLES,
/7 OFF/

TABLES,

MESSAGES

/ISTIFY /

/7 MNSTIFY/
JMSTIFY/
/OFF /

/0N /

70N/
/NQ /
/NO/

ZAISTIFY IS TURNED OFF

/ZHISTIFY

CHARS

; 8 CHARS

JUSTIFY IS TURNED OFF/

;

3 CHARS

CHARS

; 44 CHARS

IS NOM TURNED ON/

<35>»/{10mMSTIFY TEST 17/<¢1S5><12>

/THIS PAGE WILL DEMONSTRATE AT WHAT POINT JUSTIFY OCCURS.

24 CHARS

17 CHARS
IT

SHOUWLD OCC

/ WHILE THE SPACE BETWEEN WORDS IS LESS THAN 2008 AND MORE THAN/<12>

/7608 OF THE NORMAL SIZE OF THE SPACE CHARACTER IN THE CURRENTLY SELECTED
/ FONT,
THE LINES THAT ARE UNDERLINED ARE JUSTIFIED.
THE FIRST SECTION
/1S DONE WITHOUT JUSTIFY ON.
THE SECOND AND THIRD SECTIONS ARE DONE wIT
/JUSTIFY TURNED ON.
THE DIFFERENCE BETWEEN THE SECOND AND THIRD SECTION
/1S THAT THE SECOND SECTION LEAVES JUSTIFY ON FOR THE ENTIRE SECTION AND
/THIRO TURNS IT ON AND OFF FOR EACH LINE MITH CUSTIFY BEING TURNED:/<12>
/OFF IMMEDIATELY PRIOR TO THE LINE FEED./<12>

/THE FOLLOWING TWO PARAGRAPHS WILL DEMONSTRATE THE DIFFERENCE WHEN PRINT
7 TEXT WITH JUSTIFY ON AND JUSTIFY OFF . /<12>/PARAGRAPH 1

/WITH JUSTIFY ON AND PARAGRAPH 2 IS DONE WITH JUSTIFY

/NOTE

THE EVEN RIGHMT MARGIN IN PARAGRAPH 1.

NOTE

IS DONE

OFF
. /<12>

THE UNEVEN MARGIN ANC

/THE LND1 PRINTER JUSTIFIES TEXT LINES WITHIN THE CURRENTLY DEFINED LEFT
/AND RIGHY MARGINS BY VARYING THE SPACING BETWEEN WORCS./<12>/THE LNOL O

7/ NOT DETERMINE THE END OF LINE NOR
/INTERWORD SPACING WITHIN A LINE OF
/CHARACTER OF THE FIRST WORD STARTS
/OF THE LAST WORD ENDS ON THE RIGMT

DOES IT MAKE HYPHENATION DECISIONS.
TEXT IS ADJUSTED SUCH/<12>/THAT THE
ON THE LEFT MARGIN, THE LAST CHARAC”
MARGIN.
THE SPACE/<12>/BETWEEN WORD

ZJUSTIFIED TEXT LINE IS EVENLY DISTRIBUTED.
THE MINIMUM AND MAXIMUM
7/ DISTANCE BETWEEN WORDS WILL NOT BE GREAT-/<12>/ER THAN 20Us OF THE
/WIDTH OF THE SPACE CHARACTER NOR LESS THAN 60« OF THE SPACE CHARACTER

CZULNADO LNOL1
CZLNAD.P11
4318
4319
4320

4321
4322
4323

4324
4325
4326
4327

4328
4329
4330
4331
4332
4333
4334
4335

(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 08:5
ONMAC

X24.07 S63

APR
rggr 09:07
Jug?rrv

047111
043117
044515
112
042502
047105
063506
061614
000215

052040
052040
044516
051525
(53524
020104

042510
054105
052515
044524
042505
043117

062031
000220

062251
000225

ENJUS:
.EVEN
TEXYTBL:
TEXTBP:

033
033
033
033

133
133
133
133

060
064
060
062

OFFJUS:
UNON:
UNOF
:
ABS3:

033

133

065

TEXTS:

TEXT6:

AE§Z§

SEQ 0114

6-9
GE 6-98

PAGE

LASCII
.ASCIL
LASCII
.ASCII
.ASCII
.ASCII

/IN THE FONT FROM WHICH THE WORD CHARAC /<12>/TERS ARE DERIVED.
A LINE
/OF TEXT WILL NOT BE JUSTIFIED IF THE MAXIMUM OR /
/MINIMUM SPACE SIZE RESTRICTIONS CANNOT BE HONORED./<12>/THE /
/JUSTIFICATION OPERATION WILL BE PERFORMED ON ALL TEXT WHICH OCCURS /
/BETWEEN A START OF JUSTIFICATION AND AN END OF JUSTIFICATION SE /<12>/0Q
/END O TEST/

.WORD
.WORD

TEXT,YEXT1,TEXT2,TEXT3,TEXT4,TEXTS,TEXT6,0
141.,144,,149,,130,.,136.,103.,139,

.BYTE
.BYTE
.BYTE
.BYTE

33,133,60,40,106
33,133,64,155
33,133,60,155
33,133,62,66.63,65,140

.BYTE

33,133,65,62,67,67,140

: UNDERLINE o~
:
”
oFF
: ABSOLUTE TO 3.66 INCH

7.33

LIST BEX

104401

L10030:

.SBTTL

ENDTST

TRAP
ENDMOD

CSETSTY

PORTRAIT TEST

sMODULE PORT.P11
BGNMOD

063606
s

;

FUNCTIONAL DESCRIPTION
THE PORTRAIT TEST IS DESIGNED T)D "VERIFY” THE EXTENDED FUNCTIONALITY

THE LNO1 IN PORTRAIT ORIENTATION USING THE RESIDENT PORTRAIT FONT.
OUE TO THE FACT THAT THE LNO1 DEFAULT FONT IS LANDSCAPE, THE MAJORITY
SOF TESTING OF BOTH BASIC AND EXTENDED FUNCTIONALITY IS DONE IN DEFAUWLT LANDSCAPE
sORIENTATION.
THE PURPOSE OF THE “PORTRAILT TEST* IS TO "VERIFY“ THE FUNCTIONALITY
SOF EXTENDED FUNCTIONS IN PORTRAIT ORIENTATION.

THIS TESTY WILL USE ONLY ONE SHEET OF PAPER, AND, WILL IDENTIFY ITS OWN
FUNCTIONAL SECTIONS.
THIS WILL BE A "QUICK VERIFY” ONLY OF THE EXTENDED FUNCTIONS

iLISTED BELOW.
;THE

COMPREMENSIVE TESTING OF THE EXTENDED FUNCTIONS IS ACCOMPLISHED IN

TESTS DESIGNED SPECIFICALLY FOR EACH PARTICULAR FUNCTION.
FONT LOADING, ASSIGNING AND SELECTING WILL NOT BE TESTED IN THIS
THESE FUNCTIONS WILL BE TESTED IN THE “FONT TEST".

THE FUNCTIONS VERIFIED INCLUOE:
1 MARGINS
2 TABS
3 UNDERL INE

TEST.

CZLNADO LNO1
CZLNAD.P11

TEST
DNMAC x24.07 563
10 APR 84
09:07
PORTRAIT TEST
10 A"R-84 08:55

| 9

PAGE 6-99

SEQ 0115

4374
4375
4376

4 SUPERSCRIPT AND SUBSCRIPT
S5 HORIZONTAL AND VERTICAL POSITION ABSOLUTE

4377
4378
4379
4380
4381
4382
4383
4384
4385

7 DRAW VECTORS
9 SIZE UNIT SELECT

4401
4402

4403
4404

4405
4406
4407
4408
4409
4410
aai1

4412
4413
4414
4415
4416
4417
4418
4419
4420
4421
4422
4423
4424
4425
4426

4427
4428

4429

.REPT

BEGIN PORTRAIT

TEST

SECTION O

ggfngg£$07 BUFFER WITH OCTAL CODES

TO BE

SENT DURING TEST

LET R3 EQ ADORESS OF TABLE SECO
LET R4 EQ ADDRESS OF TABLE SECCNT
WHILE (R3) NE 00 DO
OUTPUT (R3)+,(R4).
ENDDO

@¢

4391
4392
4393
4394
4395
4396
4397
4398
4399
4400

GLOBALS REFERENCED:
MESSAGES, VARLABLES, SUBROUTINES

4389
4390

000000

TABLE OF QUTPUTS FOR T
TABLE OF BYTE COUNTS F
D0 FOR EACH ENTRY IN S
OUTPUT CURRENT ENTRY

SECTION 1
MOVE TO VERTICAL 3 INCH MARK
SET MARGINS

PRINT SECTION ID

LET R3 EQ ADORESS OF TABLE MARTBL
WHILE (R3) NE @0 DO
OUTPUT ENTRY
PRINT LETTER “M"
OUTPUT SABMAR

ENDDO

PRINT LETTER "M”

;

TABLE

;

SEQUENCE

OF MARGIN SETTIN

TO TRY

AND MO

SECTION 2
LET R3 EQ ADDRESS OF TABLE TABUND
LET R4 EQ ADDRESS OF TABLE TABUCT
WHILE (R3) NE 00 DO
OUTPUT (R3).+,(R4).
ENDDO

TBL OF SEQS TO SET
BYTE COUNTS

OUTPUT NEXT ENTRY

4386
4387
4388

6 HORIZONTAL AND VERTICAL POSITION RELATIVE

TAB

SECTION 3
MOVE VERTICALLY TO 5 INCH MARK

PRINT SECTION ID

PRINT LETTER

"S*”

INCR FROM 1 TO 2 By 1
OUTPUT #S1
OUTPUT #S2

ENDINC

OUTPUT #S2
OUTPUT @Sl

: DO THIS CHUNK OF CODE TWICE
s HT,SUBSCRIPT AND "S5~
; HT,SUPERSCRIPY AND ‘S
:
:

!
HT,SUBSCRIPT AND

CZLNADO LNO1
CZLNAD P11

TEST

M9
ONMAC

10 APR 84 08:5%

x24.07 563

-APR-84

PO&?R AIT ?EST

09:07

PAGE 6

100

4430
4431

DO A LINE FEED

4434
443s
4436
4337
aa3s
44339
4440

MOVE VERTICALLY TO 6 INCH MARK
PRINT SECTION ID
LET R3 EQ ADDRESS OF TABLE ¢ABTBL
LET R4 EQ ADDRESS OF TABLE @ABTBCT
PRINT “H"

SEQ 0116

SECTION 4

4432
4433

TABLE OF ABSOLUTE AND RELATIVE
BYTE COUNTS FOR ABTBL TABLE

FIRST

SELECT PIXELS AS NEW SIZE UNIT
WHILE (R3) NE %0 DO
OUTPUT (R3),(R4)

4441

00 FOR EACH ENTRY
NEXT MOVE

PRINT “H"
ENDDO
SELECT DECIPOINTS AS SIZE UNIT
D0 LINE FEED

4442
4443
4443
4445
4446
4447
4448
4449
4450
4451
4452
4453
4454
4455
4456
4457
4458

H AT LEFT MARGIN

OUTPUT (R3)+,(R4).

:
:
:

ENDDO
LET R3 EQ ADDRESS OF TABLE 4LNO1TB
OUTPUT (R3).
ENDDO
DO FORM FEED
D0 RESET

ee
e
us

LET R3 EQ ADDRESS OF TABLE ¢IDVEC
LET R4 EQ ADDRESS OF TABLE ¢IDVCNT
WHILE (R3) NE 0 OO

SECTION 5

4459
4460
4441
4462
44363

TABLE FOR

(3)

TABLE TO POSITION FOR AND PRIN
NEXT ENTRY

END PORTRAIT TEST
.ENDR

4473
44373
4475
4476
4477

(4)

4478

(4)

4479
4)
4480
(a)

063606
063606

T18::

BGNTST

18,

;
063606
063606
063614
063614
063622
063622
063630
063630

112737

000011

003114

112737

000012

003115

112737

000013

003116

112737

000014

003117

SECTION O

LET OUTBUF

:8= #11

MOVB

LET OUTBUF.1
MOVB
LET OUTBUF+2
MOVE
LET OUTBUF+«3

MOVB

411, 0UTBUF

:B= 12
912,0UTBUF
¢1
:B= 013
#13,0UTBUF
.2
:8= #14

+3
#14,0UTBUF

SECTION ID,POSITIONI

BYTE COUNTS FOR TABLE IDVEC
DO FOR EACH ENTRY OF TABLE
NEXT ENTRY

4464
4465
4466

4467
4468
4469
4470
aa71
4472

IN MOVE TABL

HOR TAB
LINE FEED
VER TA8
FORM FEED

()

4484

(8)

4485
(a)
4486

(4)

4487
4488
4489

{a)

4490
(4)
4491

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

4492
4493

(3)
(3)

4494
4495
4496
4497
4498
4499

4500
4501

(8)

4502

(a)
(6

(8)
(9)

4503
4504
4505
4506
4507

(3)
(3)

4508
4509
4510
4511
4512
4513
4514

(3)

063744
064006
064006
064012

064012
064016
064016
064016
064020
064022
064026
064064
064064
064066

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 OQUTBUF+4
MOVB
LET QUTBUF+5
MOVB

LET QUTBUF+6
MOVB
LET OUTBUF+7

#4115
#115,0UTBUF
+5

50503%:

005713
001002
000137

067036

:B=

€110

MOV

OSECCNT R4

JMP

50503

B8R

50502

064564

ENDDO

505054:

067246

LET R3

"L*”

DECIPOINTS AS SIZE UNITS
NAME OF TABLE OF OUTPUTS FOR

TABLE OF BYTE COUNTS FOR OUTPU

DO FOR EACH ENTRY

SEND

IN TABLE

THE ENTRY

MOVE VEARTICALLY TO 2 INCH MARK
NORMAL MARGINS FOR THIS TEST
TEST ID
MOVE VERTICALLY TO 3 INCH MARK
PRINT SECYION ID AND 2 LINE FE
TABLE OF MARGIM SE1 I
SEQUEN

D0 FOR EACH ENTRY

IN MARTRL

OUTPUT NEXT ENTRY
PRINT LETTER

"M"

SEQUENCE TO TRY AND MOVE TO

PRINT ASTERISK

“N

50504¢
LINE FEED

QUTPUT #0UTBUF+1,41
OUTPUT ANORMAR,#12,

012703

(R3)

BNE
. +6
JP
S0505¢
OUTPUT (R3)+,0812.
OUTPUT #0UTBUF +5,01
&7
OUTPUT H#ABMAR,
OUTPUT #0UTBUF +11,21

B8R

"
ng

ASTERISK

SECTION 1

67
OVERZ2,
ONORMAR,012.
#PORT,.#17.
#VER3,
87
#SECL,011.
:= #MARTBL
OMARTBL ,R3
MOV
WHILE (R3) NE #0 DO
505044
:

OUTPUT
OUTPUT
OUTPUT
OUTPUT
OUTPUT
LET R3

"M”

UPPER CASE

OUTPUT (R3)+,(R4)+

000670

UPPER CASE

:B= #4123
2123,0UTBUF
«6

]

012703

CARRIAGE RETURN

WHILE (R3) NE #0 DO
50502%:
TST
(R3)
BNE
.+6

i
J64670
064670

:B=

815
#15,0UTBUF
+4

MOVB
0110,0UTBUF
«7
LET QUTBUF+10 :B+ 2114
MOVB
€114,0UTBUF
+10
LET OUTBUF«11 :B= 4152
MOVB
4152,0UTBUF
+11
OQUTPUT #REINIT,#2
OUTPUT #&SELDEC,
#5
LET R3 := 4SECO
#SECO,R3
MOV
LET R4 := OSECCNT

ENDDO

000754

:B=

4483

000015

SEQ 0117

(a)

112737

PAGE 6-101

4482

063636
063636
063644
063644
063652
063652
063660
063660
063666
063666
063674
063674
063702

‘O APR-84
09:07
PG:..RAIT TEST

®s

(8)

563

4481

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

CZLNADO LNO1
CZLNAD.P11

NORMAL MARGIN SETTING SEQUENCE

SECTION 2
:= 4TABUND
MOV
#TABUND ,R3

TABLE OF SEQUENCES

TO SET

TABS

(10
h]

012704

005713
001002
000137

LET

067274

064750
ENODO

S50507¢:

1ST
BNE
JMP
OUTPUT

012737
000402

000001

005237

002276

023727
003402

002276

000137

065360

002276

000002

(R3)+,(R4).,

065532
065532
065536
065600
065642
065642
065642
065644
065646
065652
065710
V65752
06575¢

067512

012704

067534

000733

065754

ABSOLUTE 5 INCH VERTICAL
3RD SECTION ID AND 2 LINE

LETTER

THIS CHUNK OF CODE

FEED

TwICE

COUNT , 02

BLE
P

505128
50513¢

OUTPUT #S1,04

HT ,SUBSCRIPT

OUTPUT 052,04
OUTPUT #S1.04

HT ,SUPERSCRIPT AND 'S~
HT ,SUBSCRIPT AND “S~ (BACK

e#S2.04

AND

'S~

T ,SUPERSCRIPY AND

"S~ (BAC~
DOwW

LINE FEED

SECTION 4

OUTPUT #VERG,#13.
OUTPUT #SECA, 823,
LET R3 := #ABTBL
MOV
OABTBL ,R3

LET R4 := #ABTBCT
,
R4
oABTBCT
MOV
QUTPUT GOUTBUF .7, 01
DUTPUT #PSSU,
#5

005713
001002
000137

OUTPUT NEXT ENTRY

505108
BR
50513¢:
OUTPUT S0UTBUF +1,01

012703

TABIUN

505068

H
065422
065464
065526
065526

COUNTS FOR

SECTION 3

OUTPUT

000663

BrTE

(R3)
.+6
50507

cHp

ENDINC

00 DO

a7
OUTPUT @VERS,
OUTPUT &SECS,#29.
QUTPUT 20UTBUF
+6, 21
INCR COUNT FROM 01 TO @2 BY
#1,COUNT
MOV
S05118
8R
505108
:
COUNT
INC
S0511:

S0512%:

TABLE

OTABUCT
R4

3
064750
065012
065054
065116
065116
065124
065126
065126
065132
065132
065140
065142
065146
065146
065210
065252
065314
065356
065356
065360
065360

SEQ 0118

@TABUCT

MOV
(R3) NE

WHILE
505064
:

000754

107

064674
064674
064 700
064700
064700
64702
064704
064710
064746
064746
064750

(4)
4516
(4)

PAGE

4515

ONMAC x24.07 563
10 APR-84_
09:07
PORTRAIT TEST
10 APR 84 08:55

1EST

CZUNADRN t NO1
CZLNAD.P11

WHILE (R3) NE @0 DO
505144
:
TST
(R3)
BNF
. +6
JHP
505154
OUTPUT (R3).,(R4).
OUTPUT QOUTBLF.7,01
ENDDO

B8R

505144

VERTICAL TO & INCHES USING ABS
SECTION 4 ID AND 2 LINE FEEDS

TBL OF ABSOLUTE AND RELATIVE TM~

BYTE COUNTS FOR ABTBL

TABLE

MARGIM

FIRSY

SELECTS SIZE

MAKE NExXT
PRINT
TM

UNIT

MOVE

LEFT

aS PIXELS R4

CZL
LNOL
ZLNA P11

X))

4546
2547
4548

4549
4550
4551
4552
(4)
4553
(4)
4554
(4)
(&)

(8)

(9
4555
4556

(3)
(%)

4557

(4)

4558

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

4559
456¢

4561
4562
4563
4564

4565
3
(%)

4566
4567
4568

4569
4570

4571
4572
4573
4574
457%S
4576
4577
4578
4579
4580
4581
4582
4583

1 apn 8e

DYIAE X24.07 563,
10
4S8 94, 09:07

066016

066070
066070
066070
066072
066074
066100

066136
066136
066140
066140
066140
066144
066144
066144
066146

066150
066154

066214
066214

012703

067666

012704

067712

005713
001002
000137

066140

012703

000137

004737

066370
066372

104432
001660

TABLE

FOR

TABLE

OUTPUT (R3).,(R4).

OUTPUT NEXT ENTRY

;

TABLE

DO NEXT ENTRY

066216

ENDDO

000753

JMP

05178

B8R

50516%

BNE
JMP

. 6
505218

B8R

505204

OUTPUT (R3).,08,

:
505214
OUTPUT #OUTBUF
.3, 01
OUTPUT SREINIT,#2
OUTPUT #SELDEC,#5
JSR PC,QUIEY
ExXIY 7ST
TRAP
CIEXIT
L10031-,
.WORD

005306

LNLIST BEX
066374
066415
066430
066456
066513
066542

047520
115
052015
052523
110
042526

052122
051101
041101
042520
051117
052103

040522
044507
020123
051522
055111
051117

066554
066566
066576
066611
066627
066636
066652
066657

066576
000053
033
164
033
033
032
033

004036
000005
120

066707
C00126
061

133
133
133
133

061
062
060
062

141

156

ID,

SECTION S

S0517s:
LET RS := #LNOLTB
ONOLTB ,R3
MOV
WHILE (R3) NE 00 DO
505204
:
TSY
(R3)

005713

001002

TO DECIPOINT

:= OIDVEC
MOV
®IDVEC,RS
LET R4 :« @TDVCNT
R4
#IDVCNT
MOV
WHILE (R3) NE &0 DO
505164
:
18T
(R3)
BNE
.6
ENDDO

070212

RETURNS SIZE UNIT

3 LINE FEED

LET R3

000754

066216
066216
066260
066322
066364
066370

SEQ 0119

SI5158:
QUTPUT #DSSU,
85
OUTPUT #0UTBLF +1,01

065754

066060
066060
066064
066064

ClO

PAGE 6 103

PORT:

LASCII

SEC2:
SEC3:
SECA:
SECS:
.EVEN
SECO:
SECCNT:

LASCII
ASCII
LASCII
.ASCI1

SEC1:

PORSEQ:

VERZ:
IDMAR:

ONJUU ¢

OFFUU:

LASCII

. WORD
.WORD
.BYTE

.BYTE

.BYTE
.BYTE

LOCAL VARIABLES,

SECTION
BrTE

POSITION

COUNTS FOR

TODVEC

IN TABLE

TO POSITION FOR

AND

PRIN

THE

PRIN

IN TABLE

FORM FEED
RESET THE DEFAULTS

DECIPOINTS AS SIZE UNITS
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>

PORSEQ, SELPIX,FRAME ,SELDEC,.O
27..5,86.,5
35,120,61,73,61,61,175,104,105,124,151

:
s+
:
s+ SECTION

SECTION ID AND 2 LINE FEEDS

33,133,62,64, 63.60 73,63,67,70,60,163
33.133.60.40.106
33,133,62,40,106

¢ SECYION ID AND LINE FE
TABLE

FOR

SECTION
O

: BYTE COUNTS FOR SECO TABLE
i SEQS TO ASSIGN AND SELECT PORT

164 141 156 61 60 SS 122 SS 134 33,133,61,61,155

33, 133 61 64 64 60, 144

TEST ID AND LINE FEED
SECTION ID AND 2 LF
SECTION ID AND LINE FE
ID AND 2 LINE FEEDS

:
s
i
3

VERTICAL POSITION ABR-C
LR MARGINS AT X 1 3 an
TURN ON JUSTIFY
TURN OFF

JUSTIF»

4601
4602

4603
4604
4605
4606
4607
4608
4609

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

066673

066707

062
062

063
033
062

133
133
133

133
060

062
061
061
041
060
060
060
041

067076
133
133
133
133

067112
061
062
062
062

060
067
060

VERS:
NORMAR:

FRAME:

.BYTE
.BYTE
.BYTE

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

6-104

SEQ 0120

38,135%,61,70,60,60,73,65,64,60,60,163
: NORMAL MARGINS FOR
33,133,61,73,63,60,60,73,63,60,60,73,62,67,60,60,73
62,60, 41 174 33.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

TwMi

63.60 60,72 .61 71,65,60,73, 62 60 41 174

33,133, 60 73.63 60 60 73 63 60 60 60 73,61,71,67,60,73
62, 60.41 174
QEQUENCES 70 DRAW FRAM
ON ALL FOUR SIDES.
..

066730
066751
066772
067007
067031

033
033
033

D10

067036
067062
067076
067112
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

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
o011
011
033
033
033
067512
067554
000006
033
033
033
033
033
033
033
033
067666
067734
000007
033
033
033

133
133
133
133
133
133

003116
003115
000001
133
133
133
062

063
133

011

133
133

033
033

133
133
133

063
063
063
064
064
065

066430
067437

000026
064
063
062
064
062
064
116
060
063

113
114
063
067
062

067562
000007
133
133
133
133
133
133
133

067571
000007

133

061

066542
000012

003115
000001
065
066

133
133
133

071
061
06).
061
061

061
061

062

.EVEN

MARTBL:
AMAR ;

.WORD
.BYTE

FMAR:

BYTE

BMAR:
CMAR:
DMAR:
EMAR:
GMAR:

HMAR :

IMAR:
ABMAR:
.EVEN

.BYTE
.BYTE
.BYTE
.BYTE

.BYTE

.BYTE
.BYTE

TABUND:

.WORD

TABUCT:
STVER4:

.WORD
.BYTE

TSET:

.BYTE

CLEART:

ONUN

.WORD
.BYTE
BYTE
BYTE

BYTE

UNDERL:
OFFUN:
VERS:
Si:
S2:
VERS:
PSSu;
DSSU:
.EVEN
ABTBL:
ABTBCT:
HORA :
HORB :
HORC :
HORD :

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
8YTE
.BYTE
BYTE

HORF :

BYTE

HORM :
.EVEN
IDVEC:
IDVCNT:
VER7:
VER8.S5:

BYTE

HORE :

HORG :

HOR3Z ;

AMAR ,BMAR , CMAR, DMAR ,EMAR , FMAR , GMAR , HMAR , IMAR, O

TABLE

33,133,61.70,60,60,73,62,61,66,60,163
33,133,62,61,66,60,73,62,65,62,60,163
33,133,62,65,62,60,73,62,70,70,60,163
35,133,62,70,70,60,73,63,62,64,60,163
33,133,63,62,64,60,73,63,66,60,60,163
33,133,63,66,60,60,73,63,71.66,60,163
33,133,63,71.66,60,73,64,63,62,60,163
38,133,64,63,62,60,73,64,66,70,60,163

; LEFT
:
:
:
:
3
:
3

33,133,65,64,60,60,140

;

STVER4A ,QUTBUF +2,SEC2,0UTBUF
«1 ,CLEART , TSET , ONUN

UNDERL ,OUTBUF +1 ,0FFUN, O

LR MARGIN SET

2 172,
3
3172
4
4 172
S
S 172
6

QIGHT

SEQ TRYING 70 MOVE

; TABLE OF SEG TO SET vA

11-.1.22-.1.‘.‘2..‘.1&-01!‘
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
we

4594
4595
459¢
4597
4598
4599
4600

066664

PAGE

4584
4585
45806
4587
4588
4589
4590
4591
4592
4593

TEST
M2AC X24.07 S63
09:07
10-APR 84
PORTRAIT TEST
10 APR 5« 08:55

CZLNADO LNO1
CZLNAD.P11

64,63,62,.60,73,64,66,70,60,165
33,135,64,155

;s SET HTABS AT 3,3 1/2.,4
; TURNS UNDERLINING ON

33,133,60,155
33,13%,63,66,60,60,144

: TURNS UNDERLINING OFF
;s MOVE TO ABSOLUTE VER P

11,.35,114,123

125,11,116,11,104,11,105,11,122,11,114,11,111,11,116,11,105,12
11.33,113,123

3%,13%3,63.66,60,60,144,33,133,67,62.60,145
33,133%,67.40,111
33,133,62,40,111

;

HT,

;

SUBSCRIPT AND

SUPERSCRIPT

; VER 6 INCH MARK USING
:+ SELECT SIZE UNIT AS PI
;

SELECT SIZE UNIT AS DE

HORA , HORB , HORC , HORD , HORE , HORF ,HORG , HORH, 0
6.7.7|7013. .13. .13- .7
33,133,71,60,60,140

BYTE COUNTS FOR ABTBL
ABSOLUTE 3 INCHES IN P

53,13%,61,62.60,60,140
33,15%,61,63,65,60,140
33,133,61,62,60,60,140,33,133,63,60,60,141

3
3
;

4
4172
ABSOLUTE TO 4 THEN REL

BYTE

35,133,61,65,60,60,140,33,133,63,60,60,141
3%,133,61,71,65,60,140

3
3

ABSOLUTE

.WORD
.WORD
.BYTE
.BYTE

VER7,SECS,0UTBUF
+1,VERB,5 ,HOR3,SELPIX,VECO} ,SELDEC,OUTBUF 10,0

.WORD
.WORD
.BYTE
BYTE
8YTE
BYTE

avIE

BYTE

33,133,65,60,64,60,144
33,133,66,61,62.60,144
33,133,62,61,64,62,140

TABLE

:
:
;

TO MOVE HOR

5
TQ &

ABSO

1-2

;

TBL +C

VERTICAL TQO 7 INCHES
VERTICAL 10 8.5 INCHES
MOVE TO JUST LESS TwaN

(3)
(3
4662

4663
4664

070212
070222
070232
070242
070252
070252

070252
070254

070222
033
033
033

104401

070232
133

133
133

070242
062
063
064

.EVEN
LNO1TB:
HOR4 ;

HORS :

.BYTE
.BYTE
.WORD
.BYTE

.BYTE

HOR6 :
.BYTE
.EVEN
LIST BEX
ENDTST
L10031:
TRAP
ENDMOD

63,60,60,73,
33,133,61,73,
63,60,60,73,

33,133,61,73,
63,60,60,73,

33,133,64,63,

o Ohe he
AV

3.62 64,€0,60,73
0,73%,62,64,60,60,72
0,73,62,64,00,60,73
0,73,62,64,60,60,73

0,73,62,64,60,60,73

3.62 66,70,60,73

pbe
pbe

HOR4
, HORS,HOR
33,133,62.70,

33,133,63,65,

3.62 63,70,60,73

O:OO‘OOOOO

.BYTE
.BYTE
.BYTE

33,133,60,73,
61,62,62,60,7
33,133,60,73,
61,62,62,60,7
33,133,61,73,
63.60,60,73,6
33,133,61,73,
63,60,60,73,
33,135,61,73,

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

plte

VECO1:

033
063
033
063

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

VOOV ANOANRWORLUO

4647
4648
4649
4650
4651
4652
4653
4654
4655
4656
4657
4658
4659
4660
4661

033
063
033
063

133

062

SEQ 0121

4046

033
061
033
061
033
063

105

4645

067761
067776
070007
070024
070035
070052
070062
070100
070110
070126
070136
070154
070164
070202

E10
PAGE 6

SFQS FOR DRAWING RECT
TOP HORIZONTAL LINE

BOTTOM HORTIZONTAL

157

VERTICAL

2ND

’

471w

STH

CSETST

4665

4680
4681
4682

4683

4684
4685
4686
4687
4688
4689
4690
4691
4692
4693
4694
4695

FONT TEST
.SBTTL
sMODWLE FONT.P11
070254

BGNMOD
HEX]

:
H

;
;

FUNCTIONAL DESCRIPTION

THE
ARE

"FONTS TEST” IS A COMPREMENSIVE TEST OF THE FOLLOMING FUNCTIONS WHICH
ASSOCIATED WITH MULTIPLE FONT USE ON THE LNO1 ELECTRONIC PRINTER:

1- FONT LOADING

2- FONT ASSIGNMENT
3- FONT SELECTION

t FONTS

OTHER

1- FONT LOADING MWILL BE TESTED BY DOWNLINE LOADING A PREDESIGNED SET OF

WHICH WILL

THEN BE

ASSIGNED,

SELECTED AND

3RD

4660
4667

4668
4669
4670
4671
4672
4675
4676
4677
4678
4679

. INF

TABLE TO POSITION AND
MOVE TO JUST LESS THAN
MOVE TO JUST LESS THAN

62.140,116
.62,140,60
,62,140,61

4640
L6411
4642
4643
4644

TEST
ONMAC x24.07 563
10 APR 84
09:07
10-APR 84 C8:55
PORTRAIT TEST

RN
OOO\O

CILNADO LNOL
CZLNAD.P11

SUBSEQUENTLY

PRINTED.

2- FONT ASSIGNMENT WILL BE TESTED 8Y AN EYHAUSTIVE SERIES OF ASSIGNING,
THE FONTS WILL THEN BE PRINTED
3RE ASSIGNING AND SELECTING OF FONTS,

CZLNADO t NO1
CZLNAD.P11

TEST
DNMAL x24 .07 S63
10-APR-84
FONT TEST
10-APR 84 08:55

4744
4745

4746
4747

4748
4749

4750

4751

TESTED By

A SERIES OF

SELECTIONS OF SPECIFIC

tA PARTICULAR LOGICAL FONT NUMBER CAN BE SELECTED AND SUBSEQUENTLY PRINTED.
;
4- OTHER STATED SPECIFIC FUNCTIONS WILL ALSO BE CHECKED FOR DESIRED RESWLT.

ONE SUCH EXAMPLE WOULD BE IF THE LNO1 WAS PRINTING FROM THE OCrAULT
;LAM)SCAPE FONT AND WAS IN THE MIDDLE OF A PAGE WHEN A FONT SELECTION SEQUENCE

tWAS RECEIVED TO SELECYT THE RESIDENT PORTRAIT FONT,
THE DESIRZD RESWLT IS THAT
s THE CURRENT PAGE WOULD BE TERMINATED AN THAT A NEW PAGE WUULD BEGIN USING THE NEW
;:ORIENTATION.
AND VICE VERSA,
:

000000

GLOBALS REFERENCED:

3
:

MESSAGES,
REINIT

.REPT

VARIABLES,

SUBROUTINES

POL

BEGIN ROUTINE FONT
PART:

DEFAULT

SELECTION

RESET PRINTER
ASSIGN PORTRAIT RESIDENT FONT

TO LOGICAL

SELECT LOGICAL FONT #t1

:
:
:

#10 AND ¢11

RESET PRINTER
PRINT TEST ID
SKIP A LINE
PRINT DEFAULT MESSAGE
LET R3 EQUAL NSELTB
WHILE (R3) NOT EQUAL TO O DO

SEND
SEND
SEND
SEND
SEND
SEND

€

BEGINNING OF SELECT SEQUENCE
THE PARAMETER
END OF SELECT SEQUENCE
BEGINNING OF FONT ID MESSAGE
(R3).
REST OF FONT ID MESSAGE

SEND BELOW SEQUENCE

4736

4737
4738
4739
4740
4741
4742
4743

SEQ 0122

RFONTS IN SUCH A MANNER AS TO GUARANTEE THAT ANY FONT ASSIGNED TO

4699
4700
4701
4702
4703
4704
4705
4706
4707
4708
4709
4710

a~11

PAGE 6-106

sTO VERIFY THE ASSIGNMENTS,
3- FONT SELECTION WILL BE

4696
369~
4698

4712
4713
4714
4715
4716
4717
4718
4719
4720
4721
4722
4723
4724
4725
4726
4727
4728
4722
4730
4731
4732
4733
a73a
a473%

F10
09:07

ASSIGNING OF

SHOULD ASSIGN DEFAWLT

;

FONT NUMBER TABLE

;

CORRECT FONT NUMBER FR

: ATTEMPTS TO SELECT I.L

SEND ABOVE SEQUENCE
SEND COMMEN MESSAGE
SEND END OF PART 1 MESSAGE
DO FORM FEED
PART:

;

:
;s

RESIDENT

"
’
IDENTIFIES PREVIOUS 2

FONTS

RESET PRINTER

SELECT SIZE UNIT AS DECIPOINTS

TOGGLE PAPER OFFSEY
LET R3 EQUAL EVENTB

LET R4 EQUAL 00078
WHILE

(R3) NOT EQUAL

SEND ASBGIN
SEND (R3)»
SEND ASENDP

SEND ASBGIN

10 O DO

YABLE OF EVEN PARAMETERS FOR F

:
;
:

BEGINNING OF ASSIGNMENT SEQUEN
SEND THE FONT NUMBER FROM "ABL
END OF ASSIGNMENT SEQUENCE

;

000

BEGINNING OF

ASSIGNMENT

SEGEN

G1O

FONT

(84

09:07

PAGE

107

SEG 0123

SEND (R4).
SEND ASENOL

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
ENODO
SEND SEL11
SEND NEW PAGE MESSAGE
SEND SEQODD
WHILE (RA) NOT EQUAL TO O DO
SEND SELBGN

SEQUENTIAL

EVEN SELECTIONS FRO

BEGINNING OF

SELECTION SEQUENC

FONT NUMBER FROM EVEN TABLE
END OF SELECT SEQUENCE

IDENTIFIES FONT

AS PORTRAITM

SELECTS LOGICAL FONT

#11

(NOW

SEQUENTIAL 0ODD SELECTONS
BEGINNING OF SELECT

SEND (R4).
SEND SELEND
SEND LANFON

FONT

NUMBER FRNOM ODD

SEQUENCF
TABLE

END OF SELECT SEQUENCE
IDENTIFIES FONT AS LANDSCAPE

ENDDO
SEND PRTEN2
DO FORM FEED
RESEY PRINTER
SELECT SIZE 'NIT AS DECIPOINTS

END OF

SECTION ANO FAGE MESSAG

TOGGLE PAPER OFFSET

PART:

FONT

LOAD SECTION

1
SEND QUTBUF
,2 CHARACTERS,

BEGINNING OF LOAD SEG

SET UP RECORD

SEND (R3).
ENDOO
LET R3 EQUAL RECTBL
WHILE (R3) NOT EQUAL O 0O
SEND (R3).
ENDDO
LET R3 EQUAL RECTBA
WHILE (R3) NOT EQUAL O DO
SEND (R3).
ENDDO
LEi R3 EQUAL RECTBB
WHILE (R3) NOT EQUAL O DO
SEND (R3).
ENDDO
SEND ENDLD
RESET PRINTER
SELECT SIZE UNIT AS DECIPOINTS
TOGGLE PAPER OFFSETY
LET R3 EQUAL DIAGTB
WHILE (R3) NOT EQUAL O DO
SEND (R3).
ENDDO
INCREMENT COUNT FROM 1 TO 3 8y

SEND #BGNLO
1ET R3 EQUAL RECTBO
WHILE (R3) NOT EQUAL O DO

563

X244 .07

OMAE
08:5

St
O APR 84

TABLE

SEND RECORD IN PARTS
SEY UP RECORD TABLE
SEND RECORD IN PARTS
SET UP NEXT REL TABLE
SEND RECORD IN PARTS
SET UP NEXT REC TABLE
SEND RECORD IN PARTS
END OF LOAD SEQ
CHECK TO SEE IF RESET
TABLE

DIAG FONT

DO FOR EACH ENTRY
ASSIGN DIAG FONT

12 TIMES

A LINE

DESTROYS

ASSIGNMENT

AND

SELECT

ALTERNATING (I

H1O
CZLNADO LNC1
CZLNAD.P11

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

09:07

PAGE 6

108

SEQ Glc4

D9 CARRIAGE RETURN AND L INE FEED
SEND QUTBUF«1, 2 CHARACTERS, 12 TIMES
00 CARRIAGE RETURN AND LINE FEED

4808
4809
4810
4811
4812
481%
4814
4815
4816
481~
4818

;

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

4855
4856
4857

RESIDENT
PART

SECTYION (USING RESIDENT FONTS ONLY)
SELECTION DEFAWLTS

;PART 1 FIRST GUARANTEES THAT,
ON RESET OF THE MACHINE (RIS SEQUENCE),
;THE DEFAULT POWER-UP FONT IS SELECTED FOR PRINTING.
;PART 1 NEXT CHECKS TO SEE IF ATTEMPTS TO SELECT UNASSIGNED

012703

Q74070

005713
001002
000137

071326

#FONDE,MES
450,

:= ONSELTB
ONSELTB,R3
MOV
WHILE (R3) NE 20 DO
505224:
TSY
(R3)
Y
BNE
JMP
505234
02
OQUTPUT OSELBNN,
ouTPUT (RS),#2
01
OUTPUT 4SELEND,
ouTPUT OFONSLA, 014,
03
QUTPUT (R3).,
, 9451,
B
ouTPUT OFONSL

LET R3

W
@0
G0
G
G

RESET PRINTER TO ALL DEFAULT CONDITIONS

SELECT DECIPOINTS AS SIZE UNITY
TOGGLE PAPER OFFSET

TEST ID AND TWO LF'S
ASSIGN DIAGNOSTIC FONT YO LOGIEAL FONT 210
”

B
SO0
We

#SELDEC,
65
QOECFIN,
85
SFONTST, 819,
QASSDIA, #20.
#ASOIAL, #20.
#S5ELLL,
05
OREINIT@2
,
#SELDEC, ”»

#REINIT,
#2

”

SELECT PORTRAIT FONT (LOG NUMBER 11)
SHOULD REASSIGN €10 TO DEFAULT (LANDSCAPE) AND SELECT
SELECT DECIPOINTS AS SIZE UNIT

PRINT DEFAULT MESSAGE

ouTPUT
oUTPUT
ouTPUT
ouTPUT
ouUTPUT
ouTPyTY
OUTPUT
ouTPUT
QUTPUT
ouTPUT

FONT NUMBER

0702354
070316
070360
070422
070464
070526
070570
070632
070674
070736
071000
071000
071004
071004
071004
071006
071010
071014
071056
071116
071160
071222
071262

:LEGAL LOGICAL FONT NUMBERS ARE IGNORED.
:IT NEXT CHECKS TO SEE IF ATTEMPTS TO SELECT ILLEGAL LOGICAL FONT NUMBERS
i (ABOVE OR BELOW LEGAL RANGE) ARE IGNORED

DO FOR EACH ENTRY

(9)
4852
4853
4854

19'

(8)

B8GNTST

(4)
(6)

T19::

4829
4830
4831
4832
4833
4834
4835
4836
4837
4838
4839
4840
4841
4842
4843
4844
4845
4846
4847
4848
4849
4850
4)
4851

070254
070254

(3)

4828

IN MESSAGE

TABLE

SEQ TABLE

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

CILNADO It NOL
CZLNAD .PLL

071324

071324
071326
071326
071370
071432

S68

TESTY

PAGE

110
109

BR
505224
50523%:
OUTPUT OBELOW, 856.
OUTPUT @ABOVE, 057,
OUTPUT oCOMMEN,
856 .
OUTPUT OPRTEN1,029,

071474

SEG O1eY

s
$
i
1+

ATTEMPTS TO SELECT NUMBER BELOW RANGE
"
"
"
ABOVE
MESSAGE IDENTIFYING 2 PREVIOUS LINES AS LANDSCAPE
END OF PART 1 MESSAGE +« LF AND FFf

4864
1865
4866
486"
4868
4869

360488880020 884008008000040000084008080800488080000060880000008008008000480000008000408

ASSIGNING

OREINIT,
82

;OUTPUT #SELDEC,
85
;LET R3

:= OEVENTB

#4
QUTPUT @ASBGIN,
OUTPUT (R3).,42

4885

sOUTPUT ONEWPG, #36.

;OUTPUT #SEQODD, 020,
@

@
v
.

;WHILE (R4) NE #0 DO

s ENDDO

OUTPUT #SELBGN,
22
82
OUTPUT (RA).,
OQUTPUT @SELEND,
QL
OUTPUT SLANFON, 047,

sOUTPUT OREINIT,
92
sOUTPUT #SELDEC,
05
@5
sOUTPUT SDECFIN,

4902
4903
4904
4905
4906

FRESH FROM RESET

CONDITION

"
00D
”
’
ASSIGN3 BOTH EVEN AND ODD NUMBERS

BEGINNING OF ASSIGNMENT SEQ
EVEN PARAM FOR SEQ
END OF SEQ ASSIGNING PORTRAIT TO EVEN &
BEGINNING OF ASSIGNMENT SEQ
000 PARAM
END OF SEQ ASSIGNINC LANDSCAPE 1O 00O #
TABLE OF &‘;SN PARAMS

SEQUENTIAL EVEN SELECTIONS FROM 16-12
NOW SELECT EVEN INDIVIDUALLY AND IDENTIFvY
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
NOW SELECT THE ODD NUMBERS INDIVIDUALLY
BEGINNING OF SELECT SEQUENCE

AND

IDENTIF

000 NUMBERED PARAMS

FINAL CHAR OF ESC

SEQUENCE

IDENTIFIES THIS FONT AS DEFAULT LAMOSCAPE

END OF PART MESSAGE AND FF

sOUTPUT SPRTENZ, 429,

4901

; ENDDO
:OUTPUT SPGEND,#17.
sOUTPUT #SEL11,05

4897
4898
4899
4900

Be ue

OUTPUT OSELEND,
1
OUTPUT &PORFON, 847,

4896

B¢

OUTPUT (R3).,82

4886
4887
4888
4889
4890
4891
4892
4893
4894
4895

THIS PART

SELECT DECIPOINTS AS SIZE UNIT

24
Wr
S8

4882
4883
4884

A881

sENDDO
iLET R3 :+ OEVENTB
;LET R4 := #40DDTB
;OUTPUT OSEQEVE, #15.
sWHILE (R3) NE #0 DO
#2
OUTPUT #SELBON,
3

4879
4880

®e

QASENDP, 014,
¢4
#ASBGIN,
(R4).+, 42
QSASENDL
, 020,

4878

QUTPUT
OUTPUT
OUTPUT
OUTPUT

TABLE OF EVEN PARAMS FOR ASSIGNMENT SEQS

48°%
4874
4875
4876
AB877

FONTS

START

:LET R4 := 200DT8B
sWHILE (R3) NE 00 DO

43"
4872

RESIDENT

;OUTPUT ODECFIN, 05

:OUTPUT

PARY

4870

4908
(4)
4909
(4)

FONT

(09:07

ENDDO

000627

4803

4907

10 APR 84

(3
(3
4859
4860
4861
486¢

x04.0/7

ARS8

TES!?
ONMAC
10 APR 34 08:5%

RESET PRINTER
SELECY DECIPOINTS AS SIZE UNITY
; TOGGLE PAPER OFFSET

088408800808 80883888000880088800020800008800000002040000%0000302380004040080300000s0000

PART
:

071536
071536
071544
071544

112737

000040

003:14

112737

000041

003115

*FONT

LOAD SECTION"

LET OUTBUF

:B= €040

MOVE

LET QUTBWF+1

MOVE

#40,0UTBUF

:8= 041

441,0UTBUF
+}

:
:

CODE FOR

1ST CHAR
2ND

IN DIAG rONT

CZLNADO t NO1

CZLNAD.P11

TEST

4910

071552

4911

071500

(4)

(4)
4912

112737

000040

003116

071560
071566

112737

000015

003117

071566

112737

000012

003120

071574

112737

000014

003121

071644

012703

074154

071650
071650
071652
071654

005713
001002
000137

071574

4914
4915

071602
(071644

4916

071(50

(4)

(4)
(6)
(8)
\9)

4917
4918
4919

(3)

071660
071720
071724

071/24

071726

4920

071726

4921
(4)

071732
071732

(4)

(6)

(8)
(9)

4922
4923
4924

(3)
(3)

4925

(4)

4926

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

071732

005713

071734
071736
071742
072002
072006

072006
072010
072014

072014
072014
072016
072020

(3)
(3)
4930
(4)

072070
072072
072072
072072

(4)
(6)
(8)
(9)
4932

072076
072076
072100
072102
072106

(3)

005306

074216

001002
000137

072010

004737

005306

0007531

LET

OUTBUF.2

:B=

LET

OUTBUF
+3

:8=

MOvB

MOVB
LET QUTBUF+4

LET QUTBUF
.5

:B=

MOve

WHILE

MOV

(R3) NE

#15

s
:

BEGINNING OF LOAD SEQ
SET UP RECORD TABLE

SEND RECORD

SET UP RECORD

;

SEND RECORD

IN PARTS

;

SET

REC

;

SEND RECORD

IN PARTS

SET

REC

SEND RECORD

012,0UTBUF
4
¢14

#14,0UTBUF
«5
#RECTBO,R3

LET R3

TST
BNE
JHP

(R3)
. 6
505254

B8R

505244

#RECTBL

MOV

#RECTBL ,R3

153

(R3)

. o6
505274

B8R

505264

OUTPUT (R3).,0128,
JSR PC, QUIET

ENDOO

WHILE

BNE
JHP

#RECTBA

MCV

(R3) NE

072072

004737

005306

OUTPUT (R3).,0128.
JSR PC, QUIET

505304

LET RS

072154

072146
072152

004737

005306

072152

000751

:= #RECTBA
MOV
ORECTBB
R3S
WHILE (R3) NE @0 DO
505324
:
157
(R3)

BNE
JMP

OUTPUT
JSR

PC,

UP NEXT

TABLE

. +6
505334
(R3).,#128,
QUIET

ENDDO

TABLE

(R3)
. +6
505313

ENDOO

50531%:

UP NEXT

#0 00

TST
BNE
JP

005713
001002
000137

TABLE

#RECTBA,R3

005713
001002
000137

074322

IN PARTS

WHILE (R3) NE #0 DO
505264
:

50530
:

000751

1s7

20 DO

OUTPUT (R3).,8128,
JSR PC, QUIET

ENDDO

SEQ 0125

€40

440, ,0UTBUF +2

OUTPUT #BGNLD,#6.
LET R3 := #RECTBO

505274
074260

J10

PAGE 6-110

#15,0UTBUF
+3
:B= @12

MOVEe

LET R3

012703

09:07

TEST

505258:

012703

072076

FONT

071726

072010

10 APR 84

505244

000751

012703

072024
072064
072070

4933
4934

004737
A

071726

4927
4928
4929

49%1

10-APR 84 08:55

071552

4913

(4)

DNMAC X24.07 563

50532%

IN PARTS

CZLNADO LMNOL
CZLNAD.P11
(3

4935
4936
4937
4938
4939

(4)

4940

(4)

4941

(4)
\6)
(8)
(9

4942
4343
4944

A
AT
A
A

7
9
7

6
8
6

A A

PNONONINSNNN

(S)

(6)

4945
4946
4947
4948
4949
4950

(4)
(4)

4951

(3)
(3)

4952
4953
4954
4955
4956
4957

(3)
(3)

4958
4959
4960
4961
4962
4963
4964
4965
4966
4967
4968

TEST
DNMAC
10-APR 84 08:

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

004737

073126
073126
073130

104432
006464

012703

074364

012704

074514

005713
001002
000137

APR-84

FON? TEST

09:07

005237

002276

023727
003402
000137

002276

002276
50536%
:
000002

072752

50537%:

005306

S0537%

INC

COUNT

cHP

COUNT, 02

JMP

505414

ENDINC

50541
:
ENDDO

000610

END OF LOAD SEQ
CHECK TO SEE IF RESET DESTROYS FONTS L

:
;

TOGGLE PAPER OFFSET
TABLE OF DIAG FONT ASSIGNMENT AND SELE

;

SELECT DECIPOINTS

AS PARAMETER

DO FOR EACH ENTRY

ASSIGN DIAGX AND SELECT IT FOR TITLES

3 ASSIGN DIAG FONT AND SELECT IT.
PRINT ONLY TWO LINE (242=4 AS TOTAL OF

LIN

50540

QUTPUT #0UTBUF
, 82, ,012.
OUTPUT QOUTBUF
+ 3,82
OUTPUT #0UTBUF 1,82, ,012.
OUTPUT &0QUTBUF
»3, 42
JSR PC,QUIET

B8R

50536

B8R

50534

50535%:
OUTPUT SOUTBUF »5,01

ggi?f

A LINE

ALTERNATING LI

A LINE

ALTERNATING

CRLF

:+ RESET TO DEFAULT FONT
: SELECT DECIPOINTS AS SIZE UNIT

OUTPUT SREINIT,
#2
OUTPUT #SELDEC,
45
JSR PC,QUIETY

0033C6

:
;

(R3)

B8R

B8LE
50540%
:

000661

055433
104
114
123
044124
050033
050033
055433

SEQ 0127

OUTPUT (R3).,021.
INCR COUNY FROM €1 TO @2 8Y 01
#1,COUNT
MOV

EXIT TSY
TRAP
CSEXLT
.WORD
L10032-.

.NLIST BEX

073132
073155
073237
073255
073340
073404
073424
073444

GE 6-111

BNE
.6
JMP
505354
OUTPUT (R4).,a13.

072754

000001

505334
:
QUTPUT QENDLD,#3
QUTPUT SREINIT,
&2
QUTPUT &SELDEC,
95
OUTPUT QDECFIN,#5
LET R3 := oDIAGTB
. R3
ODIAGTB
MOV
LET R4 := #DIAGX
#0IAGX,R4
MoV
WHILE (R3) NE &0 DO
505344
:

TS7T

012737
000402

004737

X24.07 563 _

K10

030061
043105
043517
046105
051511
035461
035461
030461

043155
052501
041511
041505
051440
030061
030461
155

LOCAL VARIABLES,

TABLES, MESSAGES

FONTST:

_ASCII

FONSLA:;

.ASCII

/LOGICAL FONT &/

;

BEGINN

ASSDIA:
ASDIAL:
SEL11:

.ASCII
,ASCII
L.ASCI1

<33>/P1;10/<175>/DIAG00Q/<33>/\/
<«33>/P1,;11/<175>/DIAGO0Y/<33>/\/
«<33>/(11m/
;

;
:

ASSIGN
ASSIGN

FONDEMES :
FONSLB:
NEWPG:

.ASCII
LASCII

«<33>/[10mFONT TEST 19/c¢12><12>

.ASCII

/DEFAULT FONT PRINTED - SHOULD BE DEFAULT POWER-UP/<12>

/SELECTED - DEFAULT POMER-UP FONT SHOUWLD BE PRINTED/<12>
/TMIS SHOULD BE TOP LINE OF NEW PAGE/<12>
SELECTS LOGICAL FONT 211t

; IDENTI

: END OF
: 30 CHA

4969
4970
4971
4972
4973
49.4
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

5000
5001
5002
5003
5004
5005
5006
5007
5008
5009
3010
5011
5012
5013
5014
5015
5016
5017
5018
5019
5020
5021
5022
5023
5024

TEST
DNflflg X24.07 563 o9 APR
408, 84
F
10 APR 84 08:5

073451
073541
073632
073722
073743

074000
074017
074043
074070
074106
074130
074142
074154
074216
074250
074322
074364
074402
074406
074410
074413
074416
074421
074424
074427
074432
074435
074440
074456

033
033
051120
047105
105

055433
033
033
074070
074416
074410
074410
074413
075014
075214
075414
075614
074616
050033
055433
030061

040555
066460

V42105
043117
047440

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

BELOW:
.ASCII
ABOVE
:
LASCII
COMMEN:; .ASCII
PGEND:
.ASCII
PRTENL: .ASCII
1PRTEN2:
sLANFON:

;PORFON:
s ASSLAN:

SEQEVE:
SEQODD:
SEQALL
:
.EVEN
NSELTB:
ASSTBL
:

EVENTB:
000718
:
RECTB0:
RECTBL:
RECTBA:
RECTB8:
DIAGTS:

LASCII
+ASCII
.ASCII
.WORD
.WORD
.WORD

SELBGN:

ASSI1l:
ASSIl2:

ASSI14:

ASSILS:

020067
052105
046105

120
033

072151
067141
061

134

074532

074547
074564
074601

055433
033
055433
033

074547
030461
030533
030461
030533

074564
042155
066461
042155
066461

074616
074631
074643
074656
074670
074703
074715
074730
074742
074755
074767
075002

033
060
033
060
033
060
033
060
033
060
033
060

120
060
120
060
120
060
120
060
120
060
120
060

061
060
061
061
061
062
061
063
061
060
061
061

ASSI16:
ASSI1?7:

ASENDP
:
ASENDL
:
SELEND:
BGNLD:
ENDLD:

LO
112

<33>/(TmATTEMPTING TO SELECT FONT NUMBER BELOW LEGAL RANGE./<12>
<33>/[20mATTEMPTING TO SELECT FONT NUMBER ABOVE LEGAL RANGE./<12>

/PRECEDING TWO LINES SHOULD EE THE DEFAULT
7END OF THIS PAGE/<12>
/7END OF PART 1 AND THIS PAGE/<12><14>

.ASCII

ASCII

POWER

FONT/<12>

/END OF PART 2 AND THIS PAGE/<12><14>

/THIS LINE SHOUWD BE THE DEFAULT LANDSCAPE FONT/c12>

LASCII
/THIS LINE SHOULD BE THE RESIDENT PORTRAIT FONT/<12>
LASCII
<33>/P1;10/<175>/DELandescapel3.6-8/<33>/\/
; ASSIGN
<33>/[16m/<33>/[14m/<33’/[12m/
; SEQUENTTAL SELECTION O
<335/[17m/<33>/[15m/<33>/(13m/<33>/[1im/
:
o
.

<33>/[16m/<33>/[15m/<33>/({14m/<33>/(13m/

;

ASSI12,ASSI13,ASSI14,AS5I15,AS5116,A55117.0
ASSI10,ASST11,ASSI12,ASSI13,A55114,ASS5115, ASSII6 ASSI17,0
; TABLE
ASSI10,ASSI12,ASSI14,ASS116,0
; TABLE OF EVEN PARAMETE
ASSI11,ASSI13,ASSI15,ARSS117,0
*
0DD
RECO, RECZ RECS RECA, RECS REC6 REC7,REC8,RECY, REClo REC11.REC12,REC13,REC
REC1,REC2,REC3,REC4 ,RECS ,REC6,REC7 ,REC8,REC9,REC10,REC11,REC12.REC13,REC
REClA RECZ RECB REC4 RECS REC6 REC7, REC8 REC9 REClO REC11 RECIZ REC13,RE

DIAG12,DIAG13,.DIAG14,D1IAG1S,DIA(16,DIAGL7,0

;

;ig’/[/

; BEGINNING OF SELECTION

/11
/712

/13
/714
/15
/16

<17S5>/DETitanl0-R/-33>/\/

<175>/DELandscapel3.6-8/<33>/\/

/m/

.BYTE

33,120,61,73,61,171
73,33.134

.WORD
.ASCII
.ASCII
.ASCII
.ASCII

DIAGO,DIAGL. DIAG2,.DIAG3,.DIA O.DIAGI.O
«33’/(11n01A6000/¢12>
<33%>/{11mDIAGOOL/<12>
<33%>/{11mDIAGOO2/<12>
<33>/{11mDIAGOO3/<12>

3i3E3IsIa3IERSBRRLERIRBRILRALEITIELILE 3‘ 3'

0I
DIAGO:
DIAGL:
DIAG?:
DIAGS:

SEQ 0128
:

<33>/P1;/

ASBGIN:

ASSI10: .

040
020061

PAGE
PAGE

RECIB.REC?.RECS.RECG.RECS.RECG.REC?.PECB.REC9.REC10.REC11.REC12.REC13.QE

ASSI13: .

074502
074503
074511

074514

033533
031133
041505
020104
042116

|
09:07
07

ASSIGNS AND SELECTS LO

BEGINNING OF ASSIGNMEN

MNNSNNNN

CZULNADO LNOL1
CZLNAD.P11

:
[0 3

; END OF ASSIGNM

END OF

SELECTION

SEQUE

FIRST PART OF FONT LOAD SEQ
; LAST
~
e

FONT BEING SELECTED TO

ililillililllillgiillllllltl8!83383&38583!
Pddddisisisisissssiisidissiiiac

DIAG12:

.BYTE

DIAG13:

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

DIAG14:

DIAG15:
DIAG16:
DIAG17:

.BYTE
.BYTE
.BYTE
.BYTE

.BYTE

,120,61,73,61,62.175,104,111,101,107
33, 134, 33.133.61.62.155
33.120.61.73.61.63.175.104.111.101.107
60,60,61,33,134,33%,133,61,63,155
33,120,61,73,61,64,175,104,111,101,107

60,60,62,33,134,33,133,61,64, 155
33,120,61,73,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
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 DIA4G

;

SEQS TO ASSIGN AND SELECT DIAG

;

SEQS YO ASSIGN AND SELECT CIAG

; SEQS TO ASSICN AND SELECT DIAG
;

SEQS TO ASSIGN AND SELECT DIAG

;

SEGS TO ASSIGN AND SELECT DIAG

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

100302
100363
100414
100475
100502
100540
100614
100702
101014
101102
101214
101302
101414
101502
101614
101614

037477
077176
077176
037477
057576
057576
037477
037573
037477
037573
075576
037573
075576
052124
037477
037477
037477
037477
037477
037477
037477
037477

057576

037477

077176
077176
037477
037477
037477
041077
037477
077116
037477
037477
037477
037477
052124
037477
037477
037477
037477
037477
037477
037477
037477

REC1:
REC1A:

REC18:

REC2:

REC3:

REC4:
RECS:
REC6:

REC7:

RECS:

RECY:

REC10:

REC11:

REC12:

REC13:
REC14;

REC1S:

REC16:

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

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
+ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

.EVEN
.LIST BEX
ENDTST

L10032:

PAGE 6

113

SEQ 0129

/iigB?e_CPCdaPr?0KA?_GA?_GA?_GA?_GA???2?222222702257?2_GO/

;

/iigB?e_CPCdoPr?20K@?2_GA?_GA?_GA?_GA??7272722220225272_GO/

54 cha

cha

02000 0020220222222222222272222222222222227

Z
RN R
2202 0222020002222222022222222222222222222222222
/iigBte_CPCdaPr?oKa? GA?_GA ?
?2222222222202252?_GO/
; 54 cha
7220222022002 0200022202 ? ?
222222222022222222222222222222222222
/iighte_CPCdaPr?oKq?_GA?_G A ?
;;;;;?????D??S??_GO/
3 54 che
7222220022022 ?
220202222
2?2222
?
72222222222222222? ?
22222
2227
?
2222222 22?222222272222?22/
/222 77 ?2?2??
?
?
2227
227222
2222
7?2 227?
?
2?27?
?
22? 22272
?
222 2222
7222772 2227
72222227TN
) ) )

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
037477
037477
041077
037477
077102
037477
077176
077100
077176
037537
077176
037477
037477
043077
077136

RECO:

09: 07

) )

062477
037477
062477
037477
062477
037477
062477
037477
037477
037477
037477
037477
037477

APR-84

e g
) =)

040147
037477
040147
037477
040147
037477
040147
037477
037477
037477
037477
037477
037477
037477
037477
077176
037477
037477
037477
037477
037477
037573
040077
037477
037477
077176
037477
037477
037477

064551
037477
064551
037477
064551
037477
064551
037477
037477
037477
037477
037477
037477
037477
037477
047077
037575
057576
037573
077176
037477
176
037477
067576
037477
077176
037477
037477
037477

FON? TEST

x24.07-563_

)

075014
075102
075214
075302
075414
075502
075614
075702
076014
076102
076214
076302
076414
076502
076614
076702
076744
077014
077102
077166
077214
077271
077302
077366
077414
077456
077502
077546
077614
077702
077736
077776
100014
100052
100102
100170
100214
100275

08:58

O P P
=) o =

5025
5026
5027
5028
5029
5030
5031
5032
5033
5034
5035
S036
5037
5038
5039
5S040
5041
5042
5043
5044
S04S
5046
5047
5048
5049
5050
S051
5032
5053

TEST
ONMAC
10 APR 84

CZLNADO LNO1
CZLNAD P11

M10

ZIN/ 176><176><176><176><176>/m?2222IN/<176><176><176><17€><176><176>/_?
<175:/7220200/<176><1T76><
173>/ /<176><176>/022222/<176><176>/0??N/<176><

<173>/7227271B/<176>/ _1222/¢176><176>/22222/<176>/wm?222IN/<176>/02227N/<175>

€176>¢<176>/22722/<176>/w222IN/<176>/02227N/<175>
7202/ <1T76><173>/22218/<176>/_2222/¢176><176>/22222/<176><1745>/2222N/<1
€176><173>/22278/<¢176>/0/

72028/<176><176>/222224/<1755/22224/<176>/
2222 /<176>/_222N/<176>/w?2?2?

€176>/0278/<176><176>/22727B/<176><176>/ _28/<176><176>/02/
72222/<176><176><176>/ _B/<176><176><173>/22222 /<176><176><176><176><175
€176><176><176><176>/_2222IN/<176><176><176><176><176><176>/02?/
7222222022/ 116>¢176>/ _222222222222222222222222%/
Z22
0200022200 2220222202222222222224/¢176><176><176><176><17

<1765/ _PW/<176><1765¢176><176><1765<1765<176><176>/w?228/<176><176><17
/R0 /7<1T6><1765¢176><176><¢176>¢176><176><176>/ _222F/<176><176><176><17
<176><176><1T76>¢176><176><176><176><175>/2222t/<176>
€176><1T76><176><176><176><176><176>/
_222F /<176><176><176><176><176><176>
2222222
0F /<1765« 173>5/2222222222/

<176><173>/222/
/222IN/<1T6>/ _W/<176>/ _222222F/<176>/022/<176><173>/2222228/¢176>/m22F/

722020722222222222222222222222202222222222222222222222222222222222222222
Z22

20 2202222000222000722222222220222222222222222222Y/

/2222222200220 2002200020022002222222202222222222222222222222222222222
22
7220222002002 220002200220222022222222222222222222222%/
Z22222020020200220002022020220222222222222222222222222222222222222222222
/2220200 20020220222022222000022220220222222222222202222Y/
7222022202020 00220222222222222202222222222222222222222222222
)2

CZLNAD.P11
(3)
5080
5081
5082
5083
5084
5085
S086
5087
5088
5089
5090
5093
5094
5095
5096
5097
5098
5099
5100
5101
S102
5103
5104
5105
5106
35107
5108
5109

TEST

101614
101616

10-APR 84 08:55

X24.07 563

10 APR-84

FONT

TEST

09:07

TRAP
ENOMOD

104401

N1O

PAGE 6-114

.SBTTL

SEQ 0130

CSETST
PRI

[

MISCELANEOQUS CONTROL FUNCTIONS

:MODULE MISCON.P11

TESTY

BGNMOD

101616
e

FUNCTIONAL DESCRIPTION

:
THE MISCELANEOUS CONTROL FUNCTIONS TEST WAS CREATED FOR USE ON
;THE LNOL PRINTER.
IT IS A COMPILATION OF SUBTESTS THAT ARE SHORT IN
;DURATION AND DO NOT REQUIRE A SEPARATE TEST ALL OF THERE OWN.
THE
sFUNCTIONS THAT ARE TESTED ARE AS FOLLOWS:
H

5119

5111
S112
5113
5114
5115
5116
5117
5118
5119
5120
5121
5122
5123
5124
5125
5126
5127
5128
5129
5130
5131
5132
5133
5134
5135
5136

ONMAC

000000

“CANCEL” CHARACTER

:
H

2: "SUBSTITUTE” CHARACTER
3: USE OF CONTROL CHARACTERS INSIDE ESCAPE AND CONTRL SEQUENCES

:
:

GLOBALS REFERENCED:
MESSAGES, VARIABLES, SUBROUTINES

.REPT

O
PDL

:BEGIN ROUTINE MISCON
00 RESETY
:
SELECT SIZE UNIT AS DECIPOINTS

RESET

PRINT TEST ID

“CANCEL" SECTION
MOVE TO ABSOLUTE POSITION 1 INCH (VERTICAL AND HORIZONTAL)
WHILE SEQUENCE TABLE NE TO O DO
éNDDO
SEND ESCAPE OR CONTROL SEQUENCE WITH "CANCEL” CHARACTER INSJiDE

00 FOR
SEQUEN

SENO SECTION IO AND LINE LOCATION AND CR
SEND 1 “CANCEL” CHARACTER OUTSIDE A SEQUENCE

LINE L
NOTHIN

SHOULD

"SUBSTITUTE"” SECTION
MOVE TO ABSOLUTE POSITION 2 INCHES VERTICAL,
SEND SECTION ID WITH LINE LOC.
WHILE TABLE1 OF SEQUENCES NE TO O DO

INCH HORIZONTAL

SEND ESC OR CONT SEQUENCE WITH “SUBSTITUTE” CHAR INSIDE

CZLNADO LNO1

LINE L
DO FOR
SHOULD

CZLNADO L NO1
CZLNAD.P11

TESI
DNMAC X24.07 563
10 APR 84
09:07
PAGE 6 115
MISCELANEOUS CONTROL FUNCTIONS
10 APR 84 08:55

5137

ENDDO

5138

SEND

5139
5140

5173
(4)

5174

(4)
5175
(&)
5176
(4)

S177

(4)
5178
(4)

5179
(4)
5180
(4>
5181
5182
5182

(OCTAL CODE

“CONTROL CHARACTERS

S141
5142
5143
S144
5145
5146
S514°
5148
5149
5150
5151
5152
S153
5154
5155
5156
5157
5158
5159
5160
5161

3162
5163
S164
S165
5166
5167
5168
5169
(3)
5170
5171
5172

SUBSTITUTE” CHAR

SEQ 0131

TEST

32) QUTSIDE

INSIDE

SEQUENCE

SEQUENCE“” SECTION

CLEAR ALL HORIZONTAL AND VERTICAL TABS
SET A VERTICAL TAB AT THE 4 INCH MARK
SET A HORIZONTAL TAB AT THE 2 INCH MARK
MOVE 7O HORIZONTAL POSITIOM ABSOLUTE 1 INCH MARK
MOVE RELATIVE VERTICALLY 1 INCH
SEND ESCAPE SEQUENCE TO CLEAR VERTICAL TABS
INSIDE THE SEQUENCE:- SEND vT, CR, HT
SEND SECTION ID WITH LINE LOCATION MESSAGE
MOVE TO HORIZONTAL POSITION 1 INCH
SEND SEQUENCE TOU TURN UNDERL INE
INSIDE THE SEQUENCE:
SEND LF ,.FF
HT

.ENDR

101616
101616

120::

"BELID" MESSAGE

RESET

THE

BGNTST

s RESWLT
;

LET OUTBUF
MOVB
LET QUTBUF
.1

SHOD
IDENTI
SECTIO

AS DECIPOINTS

20.

CODE FOR wWT

LET QUTBUF
+3

011
#11.0UTBUF
:B= @12
€12,0UTBUF
+1
:8+ 013
e13,0UTBUF
2
:8+ @14

LET OUTBUF .4

:B-

;

CANCEL

SUBSTITUTE

112737

000011

003114

112737

000012

003115

112737

000013

003116

MOvE
LET QUTBUF+2
MOve

112737

000014

003117

MOve

112737

000015

003120

112737

000030

003121

112737

000032

003122

112737

000033

003123

:8=

014,00UTBF + 8
815

MOV8
#15,0UTBUF
.4
LET QUTBUF
S :8+ 030
MOVS
#30,0UTBLF
«S
LET OUTBUF
+6

:8+

@32

MOVE
232 ,0UTBUF
+6
LET OUTBUF+7 ;8- €33
+7
433,0UTBUF
MOV
OUTPUT QREINIT,
82
OUTPUT @SELDEC,
05
OUTPUT

SHMOULD

L INE

SOURCE CODE

:
101616
101616
101624
101624
101632
101632
101640
101640
101646
101646
101654
101654
101662
101662
101670
101670
101676
101740
102002

PRINTER

SELECT SIZE UNIT
DO A FORM FEED

SMOD

OMISCON, @42,

ESCAPL

DECIPOINTS AS PARAME TERS
Test

Se2¢
5221
See2
£22?

"CANCEL' SECTION

]

012704

104410

005713

001002

000137

102230

005306

MOV

102564
102564
102566
102566

012703

104376

012704

104410

OUTPUT #0UTBUF
+H, 01

505424
BR
505434
:
OUTPUT OCANSEC,087,
OUTPUT &QUTBUF 5,01
JSR PC, QUIET

000733

OUTPUT &ABPO2,013.
OUTPUT @SUBSEC, #89.
LET R3 := 0SQTAB1
MOV

LET R4

BNE
JMP
OUTPUT
OUTPUT
ENDDO

505454
:

OUTPUT

OUTPUT
OUTPUT
QUTPUT
OUTPUT
QUTPUT
QUTPUT
QUTPUT
OUTPUT

QUTPUT TEST ID AND LINE LOCATI
SEND 1 CANCEL CHAR., NOTHING SH

;s
;

ABSOLUTE POS. 2 INCHES VER AND
SECTION ID PLUS LINE LOCATION

ABORT

THE SEQUENCE WITHOUT

THE

SEQUENCE

; DO FOR EACH ENTRY

. *6
S0545¢
(R3)¢,(R4).
&QUTBLF +6,01

SENDING

IN THIS "ABL

SEND ESC OR CONT SEQ WITHOLT 4
ABORT THE SEQUENCE B8 SENDING
SHOLD PRINT NOTHING

¢
50544

S0UTBUF +6,01

3
102630
102672
102734
102776
103040
103102
103144
103206
103250
102312

:
;

(R3)

]

OUTPUT

JERTI

#SQTABL1,R3Y

:» oCNTTAB
R4
OCNTTAB,
MOV
WHILE (R3) NE 20 DO
505444:

102566

INCH

"SUBSTITUTE SECTION

T1ST

005713

001002
000137

DO FOR EACIH SEQUENCE IN TABLE

OCNTTAB,R4

:
102340
102402
102444
102444
102450
102450
102454
102454
102454
102456
102460
102464
102522

POSITION

MOV
OSEQTAB,R3
:» oCNTTAB

WHILE (R3) NE @0 DO
505428
1ST
(R3)
BNE
6
JMP
505434
QUTPUT (R3).,(R4).,

ENDDO

000733

004737

LET

ABSOLUTE

SUBSTITUTE CHAR OUTSIDE SEQUEN

CONTROL CHARACTERS INSIDE SEQUENCE SECTION“
#CLHVTB,
08,
07
#STVR4,
07
#STHORZ,
&7
QABPO1LNH,
ORLTV1,#6
ACONSEQ,
48,
OCONSEC, 0107,
@ABPO1M,
07

OUTPUT oCONSQ1,08.
OUTPUT &BELID,®81,

104364

;

012703

OUTPUT @0ABPO1,012.
LET R3 :« OSEQTAB

102116
102120
102122
102126
102164
102226
102226
102230
102230
102272
102334

58Q 013¢

TEST

102116
102116

116

(%)
(3
5209
5210
5211
5212
5213
S21i4
5215
5216
5217
5218
5219

102112
102112

L1l

FUNCTIONS

:
102044
102106
102106

(4)
(6)
(8)
£9)
5205
5206
5207
5208

CONTROL

PAGE

5204

MISCELANEQUS

09:07

5199
5200
5201}
5202
(4)
5203
(4)

10 APR 84 08:55%

10 APR-84

(3)
(3
5194
5195
5196
5197
5198

ONMAC x24.07 563

5184
5185
5186
518°
5188
(4)
5189
\4q)
5190
(4)
(6>
8)
(9)
5191
5192
5193

TEST

CZUNADO I NO1
CZLNAD.P11

CLEAR ALL HMOR AND VER TABS
SET VERTICAL TAB AT 4 INCH MAR
SET HORIZONTAL TAB AT 2 INCH TM
MOVE TO ABSOLUTE POSIVION MORI
RELATIVE

VERTICAL

INCH

(SHOU

SEND SEQ TO CLEAR VERTICAL T4B
SEND SECTION ID AND LINE LOCAT
HOR ABSOLUTE Y0 1 INCH
SEND SEG TO TURN ON UNDERL INE
IDENTIFIES LINE LOC RS BEING |
AND IDENTIFIES TrE ( INE AS BED

D11

ESLNABOPYY! 8" apn na BYTEE X4-07 563,
40 PRREBYs 88400l PABRCP18AL e st

5252
5253

5254
5255
5256
5257
5258
5259

(3)
(3)

5260
5261
5262
5263
5264
5265
5266
5267

104605

033
104616

104616
104622
104622
104622
104624

004737

104401

104466
104466
000004
033
033
060
064
060
067
061
063
062
061
062
060
067
064
064

000003
030
032
133

133
133
133
133
133
133
133
133
133
133
133
133

005306

CANSEC:
SUBSEC:
CONSEC:
BELID:
.EVEN
SEQTAB:
SQTABL1:
CNTTAB:
INTCAN:
INTSUB:
VECSEQ:
UNDSEQ:
JUSSEQ:
ABPO1:
ABPO2:
CLHVTB:
STVR4a:
STHOR2:
ABPQO3:
ABPO1M:
RLTV1:
CONSEQ:
CONSQL:
.EVEN

.ASCII

.ASCII
.ASCII
.ASClI
.ASCII
.WORD
.WORD
.WORD
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

.LIST BEX
JSR
ENDTST
L10033:
TRAP
ENDMOD

o
o

LOCAL VARIABLES, TABLES, MESSAGES
«33>/[ 10mMISCELLANEOUS CONTROL FUNCTIONS TEST 20/¢12>

/"CANCEL
" SECTION - THIS LINE POSITION SHOWLD BE APPROX, 1 INCH VERTICAL
/"SUBSTITUTE” SECTION - THIS LINE POSITION SHOULD BE APPROX. 2 INCHES VE
7"CONTROL CHARACTERS INSIDE A SEQUENCE” SECTION
LINE POSITION SHOU
D B

/THIS LINE

SHOULD BE

1 LINE BELOW SECTION ID AND IT

INTCAN,UNDSEQ, JUSSEQ, O, VECSEQ
INTSUB,UNDSEQ, JUSCEQ,VECSEQR,O

5277

104624

LSBT TL
BGNSRY

;s TABLE OF CANCEL SEQUEN
: TABLE OF SUBSTITUTE SE

33.30,33,133.30,33,120
;s POSSIBLE SEQUENCE INTR
33,32,33,133,32,33,120
s POSSIBLE SEQUENCE INTR
33,133,60,7%,63,60,60,73,63,60,60,73,71,60,60,73,61,65,60
; DRWVEC
33,133,64
; UNDERLINE SEQ WITHOUT
33,133,60,40
TURN ON JUSTIFY SEG I
33,133,67,62,60,144,33,133,67,62,60,140
ABSOLUTE POSITION 1 IN
33.133,61,64,64,60,144,33,133 67,62,60,140
"
2

353,133,63,147,33,133,64,147
33,133,62,70,70,60,166
33,133,61,64,64,60,165
33,133,62.61,66,60,140
33.13%,60,67.62.60,140
33,133,67,62,60,145

PC.QUIET
CsETST

5268

5269
5270
5273
5274
5275
5276

SHOULD BE UNDERL INED

033
033
033
033
033
033
033
033
033
033
033
033

104463
104463

MISCON:

033
033

046555
041516
052123
052116
046040

INTERRUP)

SERVICE ROUTINES

’
o

s INTERRUPT VECTORS ARE ESTABLISHED DURING INITIALIZATION

104440

104463
104466
104472
104506
104523
104533
104542
104551
104560
104567
104575

104431
000007

030061
040503
041125
047503
051511

104364
104376
104410
104422
104431

055433
042
051442
o4z
044124
104364
104422

103532
103607
103736
104067
104242

5245
5246
5247
5248
5249
525¢
5251

NLIST BEX

5241
5242
5243
5244

104432

001072

5237
5238
5239
$240

005306

RESET THE MACHINE TO DEFAULT
SELECT DECIPOINTS
FORM FEED
GUARANTEE THE FORM FEED

®e

5234
5235
5236

004737

OUTPUT @&REINIT,
02
OUTPUT OSELDEC,
05
OUTPUT Q0UTBUF
+3, 01
JSR PC,QUIET
EXIT TST
TRAP
CsEXITY
.WORD
L10033-.

5226
5227
5228
(3
(3)
5229
5230
5231
5232
5233

103354
108410
103400
103522
103526
103526
103530

S224

5225

SEQ 01133

CLEAR ALL MOR AND VER
SET VER TAB AT 4 INCH

SET HOR TAB AT 2 INCH
ABSOLUTE HOR POSITION
ABSOLUTE HOR POSITION
RELATIVE VER 1 INCH

CIUNADO I NOL
CZLNAD.P11
S2°a
S2°9e
5280
5281
5282
5283
5284
5285
5286
5287
5288
5289
PP ~

NS d ot
N N Nl N N
o Wt Wl N N N Nt Nt W

N Vot N Nt

N N Nl N N Nl

N N N

N N

N N N N N

WOBDUWVNWNDDAWANNDDUWNWNODWUNIUWDLDWNWODWNWDDLWNWLDUWNIWS »

PN AN TN N NN TN NN N PNINCONSNIN NN NN TN NN NN NN NN N ON NN NN NN PN\

5290

TEST
ONMAC
10 APR 84 08:55

Xx.4.07 563

10 APR 84

09:07

PAGE 6

INTERRUPT SERVICE ROUTINES

b1l
118

+POINTING TO THE BASIC ROUTINES WHICH
;SET UP THE UNIT NUMBER CAUSING THE INTERRUPTS,
sLINE NUMBER IS RETURNED IN R2

104024

X=0

000000
000020

INTOO:

XaXe2

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
010246
012702
000137
012700
104441
010246
012702
000137
012700
104441
010246
012702
000137
012700
104441
010246
012702
000137
012700
104441
010246
012702
000137
012700
104441
010246
012702
000137
012700
104441
010246
012702
000137
012700
104441
010246
012702
000137
012700
104441
010246

000200

,REPT 16,
SETPRI OPRIO4
PUSH
R2
LET R2 := oX
INLINE <JMP

.ENDR
MOV
TRAP

MOV

000002
004542
000200

MOV
JMP
MOV
TRAP
MOV
MOV
JMP
MOV

004542
000200

MOV
MOV
JHP
MOV

004542
000200

MOV
MOV
JMP
MOV

004542
000200

000010
004542

000200

000012
004542
000200

000014
004542
000200

000016
004542
000200

TRAP

TRAP
MOV
MOV
JMp
MOV
TRAP
MOV
MOV
Jeo
MOV
TRAP
MOV
MOV
JMP
MOV
TRAP

I0DRV
>

OPRIO4 ,RO
C$SPRI
R2,-(SP)
oxX,Re
IODRV
OPRI04,RO
CS$SPRI
R2, -(SP)
ox,R2
IODRV
#PRIO4 ,RO
CS$SPRI
R2, -(SP)
ox, R
I0DRV
OPRIO4,RO
CS$SPRI

R2, -(SP)
ox,R2
I0DRV
OPRIO4
RO
CeSPRI
R2, -(5P)

a ,R2
IODRV
OPRIOA ,RO
CSSPRI
R2, -(SP)
X, R2
I0DRY
OPRI04,RO
CS$SPRI
R2,-(SP)

ax,Re

I0ORV
0PRIOA4,RO

C$SPRI

MOV

R2,-(SP)

JHP
MOV

IODRV
OPRIO4 RO

MOV

TRAP
MOV

X, ,R2

CSSPRI
R2, (SP)

SEG 0134

) " A

e Al Al o e v

e S N N N A A N N N

o N

i o o S

kot o o ot o

P o N

o o o

O O WNWDLDUWNUWDLDWNNEDULVNWODLEVNWEBDBUWNWOBWAWNDEDWN

ur\
N alalalalniaiolalniniatolalninialalaialelalal
ety e tale e Y YV VW N iy

CZLNADO LNO1
CZULNAD.P11

TESTY
DONMAC x24.07 S63
10 APR 84
09:07
PAGE
10 APR 84 08:55
INTERRUPT SERVICE ROUTINEA

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
000200

MOV

JMP

000022
004542
000200

IODRV

MOV
TRAP
MOV
MOV
JMP
MOV
TRAP
MOV

9PRIOA4,RO
C$SPRI
Re, -(SP)
ax,R2
IODRV
OPR10A RO
CSSPRI
R2, -(SP)

MOV
TRAP

oPRIO4,RO
CS$SPRI

MOV
JMP

000024
004542
000200

ox,R2

oX,R2
I0DRV

MOV
MOV
JMP
MOV

R2, -(SP)
oX,R2
100RV
OPR104,RO

000032
004542
000200

MOV
JMP
MOV
TRAP
MOV
MOV
JHP
MOV

X, Re
TODRV
OPRIOA RO
CS$SPRI
Re2,-(SP)
o8xX,R2
TODRY
#PRIO04,RO

000034
004542
000200

MOV
MOV
JMP
MOV

R2, -(SP)
o, R2
100RV
#PRIO4 RO

000036
004542

MOV
MOV
JHP

R2, -(SP)
X, Re
IODRV

000026
004542
000200

TRAP
MOV

000030
004542
000200

TRAP

CS$SPRI
R2, -(SP)

CS$SPRI

R
g

5293

5295
5296
5297
5298
5299
5300
5301
5302
5303
5304
530S
5306
5307
5308
5309

,SBTTL CLOCK SERVICE ROUTINE

;UPDATES THE COUNTER AT A RATE OF 16.67 MILLISECONDS PER TICK
sAND UPDATES A SECOND COUNTER WHEN THE FIRST OVERFLOWS.

105224
105224

BGNSRV
CLKTCK

SETPRI

oPRIO6

SEQ 0135

CZLNADO 1 NO1
CZLNRD.P11
X))
(3
S310
(6)
(8)
(P

S311
(4)
5312

(")
5313
v8)

5314
7
5315
\6)
(8)
(9)
5316
(4)
5317
(4)

5318
5319
(3)

NS
s

(2)
5320
5321
S532¢
5323
5324
5325
5326
5327
5328
5329
5330
5331
5332
(3)
(3)
5333
5334
(4)
(4)
(4)
(8)
5335
(&)
(&)
(4)
(4)
5336
(2
(3
S 13

TEST
DNMAC x24.07 563
10 APR 84
09:07
PAGE 6
CLOCK SERVICE ROUTINE
10 APR 84 08:55

105224
105230
105232
105232
105236
105240
105244
105244
105252
105252
105256
105256
105256
105256
105262
105262
105270
105272
105276
105276
105304
105304
105304
105304
105304

012700
104441

000300

005737
001402
000137

105310
105256

012737

000074

005237

105306

105310

023727
001402
000137

002316

012777

000100

105310

MOV

075016

ENDSRV
L10035:

.SBTTL
BGNMOD

SEQ 0136

. +6

LET

LET
INC
ENDIF

505464
TICK :=

@860,

060.,TICK

TIME
TIME

TIME

160 TICKS PER
»

SECOND

LET TICK := TICK - 01
TICK
DEC
IF CLKTYP EQ &2 THEN
OEQ
JMP

105304

120

TICK EQ 40 THEN

CMHP

000002

TIME:
TICK:

105312

TICK

JMP

105306
105310

B8EQ

5C547¢:

000002

#PRI06,RO
C$SPRI

505464
:

005337

MOV
TRAP

GLL

;:BACK UP SECOND

TIMER

CLKTYP,
82

. +6
S0547¢
LET 8CLKCSR := 0100
9100,8CLKCSR
MOV
ENDIF
;AND EXIT
RTI

LMORD
.MORD

O
O

HARDWARE PARAMETER SECTION

s THIS SECTION INCLUDES THE QUESTIONS
:;U?:g&gSTHE HARDWARE

105312
105312
105314
105314
105314
105316
105320
105322
105324
105324
105326
105330
105332
105334

105334

000010

BGNHRD
LSHARD:
:

000031

105334
160000
177516

001031
105351
000110
000770

ENDMHRD

WHICH REQUEST THE OPERATOR TO

INFORMATION NECESSARY

.WORD L.10036-L $HARD/2

GPRMA
.WORD
.MORD
. WORD
. WORD
GPRMA
.WORD
WORD
.WORD
. WORD

.EVEN
L10036:
LNLIST BEX

GETADR,0,0,160000,177516,YES
T4CODE
GETADR
TSLOLINM
TSHILIM
GETVEC,2,0,110,770,YES
T$CODE
GETVEC
TSLOLIM
TSHILIM

TO BUILD

THE

HARDMWARE

CZLNADO LNO1
CZLNAD.P11

5338
5339
S340
5341
S242
53432
5344
5345
5346
533~
5348
5349
(3
(3
5350
\4)
{4)

TEST
10 APR 84

105334
105351

050114

111

ONMAC X24.C7 563
10 APR 84
09:07
PAGE 6
HARDWARE PARAMETER SECTION
08:55
030461

052116

040440

051105

11
121

/LP11 ADDRESS/
/INTERRUPT VECTOR/

GETADR:

,ASCIZ

.EVEN
.SBTTL

SOFTWARE PARAMETER SECTION

GETVEC: .ASCIZ
.LIST BEX

SEQ 0137

300

;:THIS SECTION
s THE SOF TWARE

105372
105372
105374
105374
105374
105376
105400
105402
105402
105404
105406
105410
105412
105414

T
BGNSF

000010

LS$SOFT::

000130
105414
000001

001052
105452
000377
000001
000377

ENDSFT

105414

105414
105452

052522
052501
105500

020116
047524

040515
051104

INCLUDES THE QUESTIONS WHICH REQUEST THE OPERATOR TO FURNISH
INFORMATION NECESSARY TO BUILD THE SOF TWARE P-TABLES,

.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

MGTINT,O,1,YES
T$CODE
MGTINT

1
GETMAX,2,D0,377,1,255.,YES
T$CODE

GETMAX
377

TSLOLIM
TSHILIM

/RUN MANUAL INTERVENTION
/AUTODROP ERROR COUNT/

.EVEN
H

105500
105540

000C20

105540

000000
000000

105542
105544
105544

000001

PATCH:
LASTAD

LS$LAST::
ENOMOD
.ENO

.BLKMW

.EVEN
. WORD
.WORD

20
o
0

TESTS/

CZUNADO t NOL

CZLNAD.P11
ABMAR
ABOVE
ABPO1
ABPO1M
ABPO2
ABPO3
ABREL

TEST
DNMAC
10 APR 84 08:55

ABS3

063566

ABTBCT

067534

ABS?

ABTBL
ACRLF

ACTIVE=
ADR
=
AMAR

APTRL

ASBGIN

ASDIAL

ASENDL
ASENDP
ASSDIA
ASSEMB=

ASSI10
ASSI11
ASSI12

ASSI13
ASSI14
ASST15

ASSIle

ASSI17
ASSTBL

ATBL

ATHRUZ

aveC
BELID
BELOW
BEM
BGNLD
BGNSEQ
BIN2DA
8IT0
=
BIT00 =
8IT01 =
B8IT02 =
BITO3 =
8IT04 =
BITOS =
BIT06 =
8IT07 =
BITO8 =
8IT09 =
BIT1
=
BIT19 =
B8IT11 =
BIT12
BIT13 -

45C5
4860

067236
073541
104472
104560
104506
104551
024656

5187
5216
5200
52512
2585
A3310

063575

Xx24.07 563

52464
5220
52478

020000
000020 G
067062

9509
910¢
4594

45950

074402

4991¢
4845

044254

073424

50028
5001¢

074456
074440
073404
000010

4844
748
4983
4983
4982
4982
4982
4982
4982
4982
49830

074410
074413
074416

074421
074424
074427

0744352

074435
074106

044160

3425
3691
4009
5222

050354

C53735
104242
073451
033221
074503
043254
004330
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000
010000
020000

3426

4859

2982
4914

G
G
G
G
G
G
G
G
G
G
G
G
G
G
G
G

3512¢
11688
9100

9104
910¢
9100
910
9100
9100
910&
9100
9104
9100
9100
9100
9108
9104
9108

SEQ 0138

52524

26138
46250
46240

10782

10 APR-84
9:07
PAGE 7
CROSS REFERENCE TABLE
- USER SYMBOLS

46040
49700

43326
4539
4538

067512
004043 G

111

2717
1233

2728
1245

3701
1250

3558¢

49678

49664
750
4984
4985
4983
4983
4983
4983
4983
4983

49930
49940
4984
4985

4985
4984
4985

35554
37524

40400

5236

49690
29969
50040
3568

1660

950

1670

49952
49964
4997¢
4998¢

50004

3702
1314

3711
1316

3712
1321

3719
1595

3720
1700

3727
2439

3728

CZUNADO LNO1
CZUNAD.P11
BI'14 =
BIT1S =
BIT2
BITS
=
BIT4
BITS
BIT6é
»
BIT?
BIT8
=
BIT9
=
BLANK
BMAR
BOE
=

BOTMAR
BOTNUM
BOTSEC
BPTBL
BTBL
BUFADD

J11

TEST
ONMAC X24.07-563
10-APR-84
09:07
PAGE 7-1
10 APR-84 08:5S
CROSS REFERENCE TABLE -- USER SYMBOLS

040000
100000
000004
000010
000020
000040
000100
000200
000400
001000
022301
067076
000400

044023
044155
037447
044422
044346
002344

G
G
G
G
G
G
G
G
G
G
G

9106
9108
9190
9100
9100
9100
910
9100
9100
9100
2389
4594
9100

3549¢
3552¢
3176
3432
3431
9930
1811e
1941

1652

1717

1307

1643

2379

2453

2470

1342
1851»
1973«

13694
1856«
2008+

1430¢
1857«
2014¢

1525¢
1865«
21238

1709¢
1869+
2125+

1710¢
1877+
2130s

1712¢
1681
2135+

1715
1884+
2138+

1787+
1886+
2142+

1790s
1887+
21448

1791s
18884
2147

2318+
2586+

2323+
2587+

2330»
2588+

2338¢
2589+

2388+
2592+

2389«
2593

2412+
2595¢

2416+
2599¢

2821e
2600e¢

2483»
2601+

25834
2602

2900+
2933+
2962+
3144e
3157

2901+
2937¢
2966+
3145
3158+

24900
45960

3569
3569
3179
35630
35600
1341
1816+
1942+

3576
3576
3234¢

2150+

2157+

2604+

26054

2606+

27308
2915¢
2943¢
2975«
3149+
3166+
3183+
3411
3440»

3479

2314s
2585+

2732+
2917+
2947+
2976+
3150+

3167+
31844
3412+
34442

3480«

2733a
2919+
2948s
2978+
3151

3168+
3185+
3414
3445»

3484+«

2215s

2217

27144

271S5e

2735«
29214
2949+
2979«
3152+
3170+
3187»
3415s
3447

3487+

3687+
3705
3727+
3851

3689s
3707«
3728»
3852«

3690
3709+
3730s
3853+

3691+
3711e
3731
3854

4200+
4219+
42438

4204+
4222«
4244+

42058
4225s
4245«

4499+
4527+
4559¢

4500«
4528+
4561+

4503+
4529+
4562+

52258
1343

52264
1344

3987+

4266+

48492
4922+
49524
5205¢
002346

1223

2149«
2306+
2584+

BUFCNT

949
948

52248
9959

1811

1941s
2149

SEQ 0139

39882+

4270e

4852+
4927+
4953+
S206+

1816+

19424
2150+

3989+

42173+

4853+
4932+
4954+
5209¢

1851+«

19734
2157e

2736¢
2926+
2953s
2982¢
3153

3171
3190+
3417
3450+

3488+

2218
2716s

2737«
2927+
2957«
2983s
3154+

3173«
3192+
3420+
3455«

3489+

3693+
3712
3732
3856

3694«
3714«
3733»
3857+

4206¢
4227e
42473

4207+
4228+
4252+

4504
4531
4563s

4505s
4536+
4840+

1369+

1430+

2008+
2215+

2014s
2217s

3990s

4275+

4854+
493Ss
5181e
5213¢

1856+

3994+

4276+

4855+
4936+
5182+
5214s

1857+

2239s

2717s

27384
2929+
2959«
3142+
3155+

3174«
3163+
3421
3461+

3490»

22845
2718+

2899s
2930+
2960¢
3143+
31564

317Ss
31942
3423+
3466+

3491e

2291+
2719¢

3176+
3195¢
3428+
3467«

3682+

2725

3178+
3196«
34344
3468+

3683«

3695+
3716«
37344
3859

3697+
3719¢
3842+
3860+

4208+
4229¢
4253+

4209+
A231s
42548

4211+
A232¢
4255+

42122
4233e¢
4256+

4506+
45372
4841s

4856+
4937+
£183s
5215

4508+
4540¢
4842+

4857+
4938»
5187+
S5216»

4509
4541s
A843ec

4517«
4543e
ABAAs

4860+
4943«
S192¢
5218e¢

4861»
4945e
S5194»
S219s

1525+

1709+

171Ce

1712«

21234
2218+

2125+
2239«

2130a
2244

2135«
2291

3996+

4277

1865+

3997+

42786

1869+

3998+

4487«

4859
4942«
5191e
S217+¢

1877«

3698+
3720e
3843¢
3862+

2293e

3700+
3722+
3844+
3864+

3999

4000+

4488+

4492+

18812

22944+

27264

2902¢
2938+
2968+
3146+
3159
3179¢
3408+
3437«
3470

3684+

3701
3723e
3845+
3865e

4197«

2295

2728

29128
2940¢
2969
3147+
3161+

3181
3409
3438«
3474+

3685+

3702«
3724
3846+
3866+

2296+

2729

2914s
2941e
2971s
3148+
3164

3182e
3410
3439
347Se

3686+

37049
3725¢
3850«
3986+

41982

4199

4497

4498«

4862+
4946
5195+
S220e

4914
4947«
5200+
S221e

4917«
4948«
S201s
5222+

1715+

1787

1790+

2138+
22932

2142¢
2294e

2144s
2295

42142
4236+
4257+

4215+
4239¢
42588

4522+
4544+
ABASe

4523+
4546+
A846s

1884+

4496+

1886+

4216
4241+
4262¢
4524.
4547
4847+

1887+

4218»
A242»
4265+

4526+
4555+
4848

1791

1888

2147
0%

CZUNADO LNOL1
CZLNAD.P11

TEST
DNHAC X24.07-563
10 APR-84
09:
CROSS REFERENCE
10-APR-84 08:5

23064+
2584+
2604

2730+

2915+
29430
2975+
3149+
3166+
3183»
3411
3440+
34792
3687«
37052
3727
3851«
3987
42004
4219«
4243+
4266+
4499»
4527
4559+
4849+

49222
4952+

BUFREP

002350

5205+
5224+
997¢
1816+
1942«
2150+
2314
25852
2605«

2732»

2917»
2947s
2976+
3150+
3167+
3184+
3412+
3444+
3480s
36894+
3707s
3728+
3852+
3988+

42044
4222+
42444

42704+

4270+
4500+
4528+
4561»
4852«
4927«
4953+
5206+

2318+
25864+
26064+
27332
29192
2948+
2978«
31S1e
3168«
3185«
3414
3445»
3484+«
3690«
3709+
3730«
3853«
3989+
4205«
42254
42454
4273+
4503+
4529«
4562+
4853«
4932+
4954«
S5209«

1851»
1973«
2157+
2318+
2586+
2606+
2733
2919+
2948+
2978«
3151e
3168+
318Ss
3414«
3445+
3484
3690+
3709«
3730+
3853«
3989+

1369+
1856+
2008+
2215+
2323+
2587+
2714+
2735
2921s
2949s
2979«
3152
3170=
3187+
3415+
3447«
3487+
3691+
3711
3731
3854+
3990»

2314«
25854
26054
2732»
2917+
2947+

2976+

3150s
3167«
3184+
3412+
3444+«
34804
3689+
3707+
3728»
3852»
3988«

4204+
4222+
42442

5225+
1345

4205+
42254
4245+
4273%a»

5226+

42060
4227
4247+
4275«

2323+
2587»
2714«
2735
2921+
2949+
29794
3152+
3170+
3187«
3415«
34472
3487+
3691+
3711
3731s
3854¢
3990«

IKT1
71
PAGE
ABLE -- USER SYMBOLS

23384
2589+
27164
2737+
2927s
2957
2983
3154
3173«
3192+
3420+
3455+
3489»
36942
3714«
3733s

2388+
2592«
2717
2738+
2929+
2959«
3142+
3155+
3174+
3193s
3421
3461
34904
3695+
3716»
37344

4208+
42294
4253»
4277+
4506+
4537+
4841
4856+
4937+

4209+
4231

5181+
5213+

2330+
2588+
2715«
27364
2926+
2953e
29824+
3153«
3171
3190«
3417«
3450«
3488+
3693«
3712«
3732«
3856+
3994+
4207«
4228+
4252
4276+
450S¢
4536+
4840+
4855+
4936+
5182+
5214

1430

1525

1709«
1869+
2125e
2239«
2388«
2592+
2717+
2738e
2929+
2959
3142«
31552
31749
3193+
34214
3461¢
3490+
3695+
3716
3734+
3859
3997

4206+
4227+
4247+
427Sa

4504+
4531+
4563+
4854+
4935+

1857+
2014«
2217
2330+
2588+
2715«
2736
2926+
2953¢
2982«
3153«
3171+
31902+
3417+
3450+
3488+
3693
3712+
3732+

3856+
3994+

4207
4228«
4252+
4276+

1865+
2123+
22184
2338«
2589+

2716+
2737s
2927+
2957+
2983+
3154
3173+
3192+
3420
3455
3489
3694+
3714+
3733s
3857
3996«
4208+
4229«
42534
4277

3857+
3996+

5183«
S215+

4209«
4231«
¢
4254
4278

SEQ 0140

3859+
3997

2389+
2593+
2718s
2899+
2930«
2960+
3143»
3156+
3175«
31944
3423s
3466+
3491
3697+
2719«
38424
3860+
39984

4254+
4278+
4508+

4232+
4255+
4487»
4509+

4540¢
48424+
4857+
4938+

5187
5216+
1710s
18774
2130+
22449
2389s

2593«
27184

2899+
2930»
2960+
3143»

3156+
317S»
3194+

3423«

3466+
3491
3697«
3719«

3842
3860+

3998+
4211
4232+
42554
4487«

4211

4541+
4843+
4859«
4942+

5191

5217+

1712+
1681+
2135+
2291s

2412+

2595+
2719
2900+

2933s
2962+

31440

3157
3176+
3195»
34282+
3467+

3698+

3720¢

3843
3862
3999.

4212+
4233
42564
4488+

2412s

2595«
2719+
2900+
2933
2962+
3144+«
3157+
3176+
3195«
3428+
3467+
3682+
3698+
3720+
3843s
3862+
3999
4212+
4233s
42564

4488+
4517+
4543+

4844»

4860+
4943s

5192+
5218+

171Ss
1884+
2138¢
2293+
2416+
2599+
2725+
2901+
2937»
2966+
314Se
3158«
3178«
3196+
3434+
3468+
3683e
3700+
3722+

3844»

3864+

4000+

4214+

4236
4257+
4492+

2416+

2599«
2725«

2901s

2937+
29664
3145+
3158+
3178»
3196+
3434+«

3468+
3683+
3700«
3722«

3844+
3864+

4000«
4214+
4236
4257+
4492+
4522+

4544
48454
4861+
4945+

S194¢
5219+

1787«
1886+

21424
s
2294
2421
2600+
2726+
2902+
2938+
2968+
3146+
3159«

3179«

3408+

3437«

3470+
36842
3701«
3723«
3845+
3865+
4197«
4215e
4239
4258+

4496

2421+
26004+
2726+
2902+

2938«
2968+
3146+
3159
3179«

3408+
3437«
3470«
3684+
3701«
3723«
3845+
3865+

4197+
4215+
4239+
4258+
4496+
4523s

4546+
4846+
4862+
49464+
5195+
5220+

1790=
1887«
21449
22954
2483+
2601+
2728»
2912+
2940+
2969
3147«
3161+
3181»
3409+
3438+
3474
3685+
3702«
3724+
3846»
3866+
4198«
42162
4241

4262+
4497«

24834
2601+

2728s
2912+
2940+
29694
3147«
72151
3181s
3409+
3438+
34744
3685+
3702+
37244
3846+
3866+

4198+

4216+
4241+

4262+
4497»
45244
4547

4847
4914+
4947

52002
S221+

1791»
1888+
2147«
2296+
2583+
2602+
2729+
2914
2941+
2971
3148+
31649
3182+
3410e
3439+
3475
3686+
3704
3725+
3850»
3986»
4199«
4218»
4242+

42654
4408+

2583+
26024
2729«
2914+
2941+
2971«
3148+
3164+
3182+
3410+
3439+
3475«
3686+
37044
3725«
3850s
3986+
4199
4218»

4242+«
42652
4498«
45264
£555+
4848+
4917
4348+

5201«
£222+

1811»
1941s
2149+
2306+
2584»
2604+

2730+

2915«
2943

297Se

3149«
3166+
3183«
3411e
3440«
34792

3687

370Ss
727

3851
3987

4200

4219

4243
42060
4499

CZUNADO LNO1
CZLNAD.P11

TEST
DNMAC X24.07-563
10-APR-84
09:07
PAGE 7-3
10-APR-84 08:55
CROSS REFERENCE TABLE -- USER SYMBOLS
4500¢
4528»
4561+
4852+
4927«
4953+

4503+
4529
4562+
4853+
4932+
4954«

&®

[ 3

gggga

8YTTBL

053000

CCNTY

002300

CANSEC

3992

103607

5194

CHAR
CHAR24
CHAR44
CHRGEN
CK1
CLEAN
CLEART
CLHVTB
CLKCSR
CLKENA
CLKSET
CLKTCK
CLKTYP
CLKVEC
CLOCKP

011722
057737
057663
002304
006342
007276
067333
104523
002322
002330
002324
105221
002316
002326
002320

1795+
42944
42930
9644
1509¢
1589¢
4606
5213
9774
980¢
978¢
5309¢
9724
9794
9764

CLRTAB
CLRUND
CLRVER
CMAR
CNTYTAB
COMMEN
CONSEC

043170
047760
036604
067112
104410
073632
104067

35088
3724
3145
4594
5189
4861
5219

CLRHOR

CONSE@
CONSQ@1
COUNT

036610

104575
104605
002276

COUNTD
004536
CPTBL
044646
CR
= 000015 G
CSRERR

CTBL
CURADD
CURCNT
C$AU
=

003342

044554
002545
002746
000052

C$AUTO= 000061

C$BRK =
C$BSEG=
cs8SUB=
CS$CEFG=
Cs$CLCK=
CSCLEA=
C$CLOS=
C$CLP1=

000022
000004
000002
000045
000062
000012
000035
000006

9620

gggzo

4504+
4531«
4563+
4854+
4935+
S181e

5213+

SEQ 0141

4505+
4536»
4840«
4855+
4936+«
5182e

4506+
4537+
4841e
4856«
4937
5183

4508+
45400
4842+
4857«
4938+
5187+

4509
4541+
A843es
4859»
4942+
5191«

4517+
4543
4844+
4860
4943+
5192s

4522+
4544«
4845+
4861«
49454
5194+

1806+

18204

52144

5215«

S216e

5217«

52184«

4524+
4547»
A4847¢
49142
4947+
5200+

4526+
45554+
ABA8e
4917«
4948s
5201+«

4527
4559+
4849
4922+
4952s
5205+

2958»

52204+

5221«

5222+

5224+

40102

5233¢

18002

2226+
1801

1802«

1803+

1804

1805+

46100
52484
15024

1503+

1513«

1516+

1604+

5316+

1497+

1500s

1511

1519

1602

1606

5315

3146

1501+
3167

1502
32084

1512+

1513

37394

5218
5221
961¢

3730
32079
45974
S203
49714
5235#
52544
52550
1861+

29674

2977+

3849+
1172+
3453
9172
10658
3452
1015¢
10274
7480
7484
7484
7484
748¢
7484
7480
7484
748¢
7484

5219+

4523s
4546+
4846+
4862+
4946+
5195+

1797«

1505

1506

1607

1873s

1948+

1983+

2131+

2151s

2152

2913+

2918+

2928+«

2939+

3160

3163+

3169¢

3177»

3186+

3189+

3413«

3446+

3483+

3715«

4215
1180

1647

2381

1229+
1234+

818

1498
1610

1603

52408

4213+«
1177
35724

3568¢
1228
1227

1514+«

1509

3721»

4220«
1181

4221
1182

4224
1189»

4228
12040

4254+

4235

4238

4233

4525+

4944+«

1240+
1241+

1242
1244+

1243+
1326

1341+
1343

2441e
1346

1382+

1464+

1596«

24402

2481»

C.LNADO LNO1
CZLNAD.P11

TESI
10-APR 84

C$CVEC= 000036
C$DCLN= 000044
CsDODOU= 000051
CSDRPT= 000024
CsDU
= 000053
CS$EDIT= 000003
C$ERDF= 000055
CSERMHR= 000056
CSERRO= 000060
CSERSF= 000054
CS$ERSO= 000057
CSESCA= 000010
CSESEG= 000005
C4ESUB= 000003
C$ETST= 000001

7480
74840
7489
748¢
748¢
7482
748¢
7480
7484
7482
7484
748¢
748¢
7484
7486
3581
748¢
2608
748¢
748¢
7484
7484
7486
7480
7480
7480
748¢
748¢
748%
7484
7489
7484

CS$EXIT= 000032
000026
000027

C$GMAN=
CSGPHR=
C$GPLO=
C$GPRI=
CS$INIT=
CSINLP=
CSMANI=
CsMEM =
CSMSG =
CSOPEN=
C$PNTB=
C$PNTF=

000043
000042
000030
000040

C$PNTS=
C$PNTX=
C$QIO0 =
C$RDBU=
CS$REFG=
CSRESE=
CS$REVI=
CSRFLA=
C$RPT =
C$SEFG=
C$SPRI=
C$SVEC=
CS$TPRI=

000016
000015
000377
000007
000047
000033
000003
000021
000025
000046
000041
000037
000013

DATPTH
DEBUG =

DECFIN

DECLCS
DEFMAR
DEFMR1
DEFMR2
DEL
=

OFAULT

000011
000020
000050
000031

000023
C00034
000014
000017

011724
s4ssss

004052

2450

7482
748¢
74840
748
7489
7484
7484
7480
7484
7480
7484
7484
7486

1791
Oc

C$GETB=
C$GETW=

051704
043713
037372
037402
000177 G

010634

M11

ONMAC X24.07 563
10 APR 84
09:07
PAGE 7 4
08:55
CROSS REFERENCE TABLE -- USER SYMBOLS

2653
1060¢

4938
3850
35470

3155
3156
9184
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
1891
3736

2260
5079
2016
3868

2348
5259
2161

2508

2641

2750

3001

3237

2246
4280

4565

4957

2368

2371
5228

2485

1454
1404

2408
1460

2430

2452

2456

2469

2473

1440

1441

1446

1520

1521
2472

2405

2406

2407

2428

2449

5271
3862

4252

4842

4002

2341

1541

1443

2366

1384

1388

2451

2454

1422
1438
769

1424
1587

1428
1482
1821¢

2762
1712

3871¢
3568
32294
32304

17424

2455

2467

2468

2471

1523
1506

1586
1566

1609
1607

1681
1682

1692
1693

1708

5290

5309

3012
1787

3593
1857

3771
2123

3891
2215

4060
2291

4347

4673
3193

5091
3410

3570

2901

CZLNADO LNO1
CZLNAD P11
OFPTBL
OIAGMC=
DIAGTB
DIAGX
DIAGO
DIAG1L
DIAG12
DIAG13
DIAG14
DIAG15
DIAG16
DIAG17
DIARG2
DIAG3
DIGITS

002252 G
000000
074304
074514
074532
074547
074616
074643
074670
074715
074742
074767
074564
074601
004540

DOORSW
DOOSWI
DOOSW1
DPTBL
OROPED=
DROPIT
ORUWELl
DRULE2
DRWVEC
0ssv
DTBL
OveC
EF .CON=
EF _.NEW=
EF .PWR=
EF.RES=

023265
003556
023342
045010
040000
005354
043636
043664
052632
067504
044740
053417
000036
000035
000034
000037

DISANL
DMAR
DONE
DOORDY
DOORD1

027126
067126
013132
023372
023441

G
G
.,
G
EF.STA= 000040 G
EMAR
067142
ENABNL
027177
ENDHAB
043566
ENOHR
043565
ENDHT
043564
ENDLD
074511
ENOLRM
043562
ENDPLP
043570
ENDTBM
043563
ENDTS
044113
ENDVAB
043567
END2
010224
ENJUS
063472
EOIGN
042772
EOPLP
042676
ERFLG = 000400

CRRCOD

ERRFLG
ERROR =

N11

TEST
DNMAC X24.07-563
10-APR-84
09:07
PAGE 7-5
10-APR -84 08:55
CROSS REFERENCE TABLE -- USER SYMBOLS

002332

002334
100000

8032
748
4939
4940
5007
5007
4990
4990
4990
4990
4990
4990
5007
5007
1174+

750
49904
S007¢
50084
5009¢
S0134
30154
50174
S019¢
5021¢
50234
50104
S0l1e
12059

2718
4594
1884
2471
2472
2467
10694
2468
3459
9494

27430
45984
18944
25030
250440
2501¢
2477
235029
35774
1303

35430
35458
3987
4546
3458
4009

3562
3569
3998
462249
35746
4029¢

1152

910¢
9104
910¢
9106
9104
4594
2729
35354
35344
35336
4935
35314
35374
3480
3488
35364
1699¢
4275
3487
3470
1129¢

981¢

9834
948#

SEQ 0143

1491

1595

3556

3557

3560

35324
35504
3569
1729
43230
3502#
35014
13354

3568

3569

3570

2393s
1154

2410+«
1257

1381¢

1424
1422
45994
2744¢
3555
3556

1381

1700

40060

5005¢

1129

3574

3575

3576
1736

1155«

12584+

2418
1309

1299+

2419
1322

1308+

2426s
1595

1320+

2437+
1644

1330+

1334

1451+

2438«

1661

1671

1700

2439

CZLNADO t NO1
CJUNAD
. P11
ERRSVE

Ble

TES?T
DNMAC x24 .07 563
10 APR-84
(09:07
PAGE 7-6
10 APR 84 08:55
CROSS REFERENCE TABLE
- USER SYMBOLS

0030464

10360
1811«
1941.
2149«
2306e
2584
2604
2730s
291Ss

2943

2975+
3149s
3166+
3183
3411
3440«
3479«
36872
3705+
3727+
3851
3987s

4200«
4219+
4243
4266+
4499«
4527+
4559+

4849«

ERRTBL

003050 G

ERR11
ERR12
ERR13
EVENT8
EvL
=
EXP
ExPL
ExXPLL
ExPL2
ExP1
ExXP2
EXP3
ExPa
EXRMAR
ESEND ESLOAD-

FAKE
vF

FLAG

011010
011064
ol11147
074130
000004 G
060015
061153
061360
061452
060225
060444
060665
061103
043550
002100
000035
005462
= 000014 G
002270

4922
4952
5205e
S224s

1259
1816+

1942

2150¢
23140
2585+
2605¢
2732+
2917

2947«

2976¢
3150
3167«
3184«
3412
3444+«
3480«
3689
3707«
3728+
3852+
3988+

4204+

4222+
4244
42709
4500+
4528+
4561«
4852+
4927+
4953

10370
2380s
1674
1728
1698

$206+¢
5225+
1132
2423¢
17480
1749¢
1750¢

4254
4255
4256

43056
43070
43080

4206
4207
4208
4209

3529¢

42980
43009
43020
43040
3564

14020

1427

9584
2473

1450¢

49849
9100
4205

7480
7480

9164

1335
1851
1973«
2157+
2318
2586+
2606e
2783»
2919¢
2948«
2978+
3151e
3168
3185

3414«
3445+
3484«
3690+
3709

3730+
3853

3989+

4205

4225+

42450

4273
4503¢
4529
4562¢
4853,
4932s
4954
5209
5226+
1137
2458

1369+
1856+
20084
2215
2323e
2587
2714e
2735
2921s
2949
2979¢
3152«
3170s
3187
3415e
3447
3487+
3691+
3711e
3731
3854«
3990¢

1430¢

1857«
2014+

2217

2330e
2588+
2715e
2736
29264
2953e
2982+
3153,
5171e
3190

3417
3450«
3488,
3693+
3712e
3732«
3856+
39944

4206
4227«

4207
4228+

4275
45044+

4276+
4505+
4536
4840+
«855¢
4936+
5182+

4247

4531e

4252+

1525
1865+
2123¢
2218+
2338+s
2589+
27168

2737¢
2927+
2957«
29834
3154
3173¢
3192s
3420s
3455
3489
3694«
5714s
3738
3857
3996«

4208«
4229¢

4253
4277
4506+

1709
1869«
2125e
2239
2388¢
2592
2717e

2738e
2929¢
2959
3142
3155
3174+
5193
3421e
3461
3490¢
3695+

3716+
57340

3859+
3997

4209
4231

4254
4278
4508+

4537«
4841

4540e
40842+

52149

4937¢
5183,
5215

4938¢
5187
5216

1143

1151

1385

2373

2404

2408

4563¢
4854+
4935+
5181s
52138
24875

4856+

4857+

SEQ 0144

1710e

1877«

21300
2244«
2389
2593e
2718e
2899+
2930¢
2960¢
31430
3156

3175«
31940
34234
3466+
3491¢
3697
5719
3842
3860«
3998«
4211e
4232

4255
4487«

4509
4541
48436

4859«
4942¢
5191

1712s
1881
21354
2291e
2412

2595+
2719e
2900e
29336
2962+
31440
3157
3176»
5195
3428
3467
3682+
3698+
3720¢
3843
3862
3999
4212

4233.
42560
4488+
4517
4543
4844
4860«

1715«
1884+
2138e
2293
2416+
2599«
2725+
2901e
2937«
2966+
3145«
35158+

3178«
3196+
3434
3468+
3683.
3700¢
3722¢
3844
3864

4000¢
4214

4236+

4257«

1787+
1886+
21424
2294

3684+
3701
3723
3845,
3865

1790+
1887+
21444
2295+
2483
2601+
27284
2912+
29409
2969+
3147«
3161
3181
3409
3438+
3474
3685+
3702+
$724¢
3846+
3866+

4215
4239
4258.

4241
4262+

24216
2600+
2726¢
2902e

29380
2968+
3146¢
3159«
3179
3408+
3437

34700

4197«

4198+

42160

5219

5195¢
52208

4497«
4524+
4547«
4847¢
4914
494 7
S5200e
5221

4432

45224
4544+
4845s
4861
4945

4496

4523

45460
4846+
4862+
4946+

1791
1888+

2147
2296

2583
2602
2729
29144
2941
2971
3148«
31644
3182¢
3410a
3439
3475
3686
¢
3704
3725
3850
3986+
4199+

421842420

4265+
4498+

4526+

4555
45848+
4917

5217e

4945,
5192
5218+

1468

1597

1645

1663

16/ 2

1690

17260

2429

2430

2448

2452

2456

Jdcee

Jde

5194

4%i8s

5201
5222

42960

3566

769

1454

CZUNADQ L NOL1
CZLNAD.P11
FLAGDA

TESTY
DONMAC X24.07 563
10 APR 84
09:07
PAGE
10 APR 84 08:55
CROSS REFERENCE TABLE

004534

FMAR

067156

~ONDEM

073155

1171

4594

4849

1180

46002

073237

4855

49630

FONSLB
FONTST

073255
Q73132
066707

4857
4843

4576

49640
49610

FUN
F$AU
=
F$AVTO=
F$EGN =

050414
000015
000020
000040

3725
7480
7480
7480

37540

1616
1850
2186
2368
2750
3388

3880
4565
FSCLEA=

00000~

F30U
FSEND

000016
000041

=
=

5274

7480

7480
7480

F$MOD

000004
000013
000006
000050

= 000000

F$MSG =
F$PROT=

000011
000021

F$PWR

000017

F$RPT

Q00012

F$SEG

000003

F$SOF
T= 000005
F$SRY = 000010
F$SuB = 000uV02
F$SW

000014

FS$TEST=

000001

GETADR
GETMAY

105334
1054%¢

1203¢

45860

814

818

1627
1891
2200
2371
2751
3493

1719
1899
2210
2485
2765
3581

766

774

3895
4661

3985
4662

1585

1610

5308

5324

814

1725
1901
2246
2508
2897
3582
4002
4678

5332

897

1734
1915
2260
2510
2985
3596

900

1752
1938
2261
2513
3001
3673

4048
4828

4049
4957

5349

5362

1410

1754
2016
2273
2581
3014
3736

4188

1434
1784
2091
2341
2641
3134
3760

766

aie

897

900

1410

1418

4661

4662

1730
1901
2246
2508
2897
3582
4002

17%7
1915
2260
2510
2985
3596
4048

1752
1938
2261
2513
3001
3673
4049

1754
2016
2273
2581
3014
3736
4065

1769
2089
2288
2608
3017
5759
4188

5324

5336

5352

5362

7480
748¢
7480
7480

5332
803
1419
1434

2608
748¢
1915
2751

2740
766
2091
2765

4065
7480
/1480

4336

4678

5336
810
1541
1526

2985
897
2105
3014
4352

774

778

5349
1725

5352
1730

4828

1719

3201
900
2186
3017

4957

1818

5079

1891

1418
1769
2089
2288
2608
3017
3759

4065
5079

1719
1899
2210
2485
2765
3581
3985

1627
1891
2200
2371
2751
3493
3895

F$HARD=
FSHW
=
FSINIT=
FSJMP =

1192

5EQ 0145

49620

FONSLA

FRAME

1183¢

Clo

7 7
USER SYMBOL
S

5080

2016

5080

4280

5096

2161

467¢

3736
1418
2261
5243

3868
1612
2273
3582

4002

4662

3493
1410
2200
3239

5096

1616
2350
3596
5260

1734

1737

5274

5308

5319

5080

1419
1784
2091

2341
2641
3134
3760

4280

5096

1526
1818
2105

2348

2642
3201
3775

4335

5169

2246

4280
1754

1434
1818
2105
2348

2642
3201
3775
4335
5169

1526
1829
2121
2350
2658
3237
3840

1585
1831
2161
2354
2712
3239
3868

1612
1845
2185
2364
2740
3243
2879

5228

5259

526C

4336

4352

4472

1541
1829
2121
2350
2658
3237
3840

1610
1831
2161
2354
2712
3239

2185
2364
2740
3243

5228

4352

5259

4472

16156
1850
2186
2368
2750
3388
3880
4565

2371

2485

4336

2341

4565

2554
3760

5324

1769
2510
3775
5362

2089
2897

clz21
3001

2368
4957

1831
2513

3880

1612
1845

3879

5260

5228
1845
2642
3895

5319

1901

2658

4049

7480

7489

7480
7482
7480
7489

7480

2288
3581
5169
5334
5351

826

835

1627

1752

1784

1829

1850

1899

2348
3673
5259
53380
53554

2364
3759

2508
3840

2581
5879

2641
3985

271
4048

1938

2750

41068

4335

4472

2185
3133

460l

<2l

>37

43>8

2260
3388
SO0

CZUNADQ | NO1
CZLNAD.P11

TESI
PAGE 7-8
09:07
ONMAC X24.07 563
10 APR-84
10-APR 84 08:55
CROSS REFERENCE TABIE
- USER SYMBOLS

GETVEC
105351
GMAR
067172
GRID
025507
GRID:
025654
GvEC
053545
GSCN'0= 000200
GSDELM» 000372
GsD1ISP- 000003
GSEXCP= 000400
LSHILI=
GSLOLI»
GSNO
GSOFFS=
GSUFSI~=
G$PRMA=

5335
4594

2592
2595

4009
748
7480
7480
7480
7480
7480
7482
7480

7480

7482
7480
7489
7469
748¢
7480
7480
7480
1480
7480

GSPRMD
=

GSPRM
=
GS$RADA=
GS$RADB
=
G$RADD
=
GSRADL
=
GS$RADO=
GSXFER~
GS$YES = 000010
HANRD
Y
023132
HANRD1
023217
HANRSW
022675
HANSWI
003503
HANSW]
023006
HANSW2
023073
HILOSQ
025427
HMAR
067206
HOE
s 100000
HORA
067554
HORB
067562
HORC
067571
ngoen
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
IGNORA
043606
IGNORB
043611

1317

1432

1654

1685

1695

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

1454
5334
5351
1454
5351
1454
5334

46260
46274
46284
4629¢

3152
3153
4635

40340

4624
4624
4624

2912

26308
2637¢

2600

4594
9100
4624

4624
4624
4624
4624

5339¢

46010

1454
24990
25000
24969
2460
2497¢
24989
2602

2454
2455
2449
1068¢
2450
2451

4655
4655
4655
9100
45816
210
4553
4552
3104
35392
35404

SEQ 0146

46020

26279

29904

46300
46310
46320
463364
3182
3183
46390
46569
46579
465890

32200
32240

46360
46350

3564
3564

3566
3566

5335
5335

5250
53%0

5351
5351

5335

5350

53 51

ZULNADO L NOL1

CILNAD. P11

TEST

IGNORC
IGNORE
IGNOR1
IGNOR2
IGNTBL
IGNTBP
IGSEC
IGTBL
IGTBLP
IMAR
INDEX
INMINT
INSTRC
INSTR1
INTCAN
INTERR
INTERL
INTFAC
INTHOL

043615
007202
043571
043623
044532
044544
043103
044474
044514
067222
002340
002264
024751
025140
104422
010516
003622
010554
010546

INTSUB
INTOO
IOCTRL

104431
104624
004740

INTLK

022244

DNMAC

10 APR 84 08:55
354186
1506
3538¢
35420
3476
2477
3484
3441
3442
4594
9880
8280
2586
2587
5238
1682
10702
1709
1693

23588

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

X24.07 563
3566
15492

Ele

9:07
PAGE 79
10 APR 84
CROSS REFERENCE TABIE
USER SYMBOLS

SEQ 0147

1607

35664
35670
35034
35644
35652
46030
2370
26140
26160
5241
17260

1740¢
17366

2489¢

52420
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
2588
2715
2736

2926
2953
2982

3153
3171
3190
3417
3450
3488
3693
3712
3732
3856
3994

4207
4228
4252
4276
4505
4536
4840
4855
4936

5182
5214

1525
1865
2123
2218
2338
2589
2716
2737

1709
1869
2125
2239
23388
2592
2717
2738

1710
1877
2130
2244
2389
2593
2718
2699

2983
3154
3173
3192

2959
3142
3155
3174
3193
3421

2960
3143
3156
3175

2927
2957

3455
3489
3694
3714
3733
3857

3996
4208
4229
4253
42177

45537
4841
4856
4937

5183
5215

3490

3695
3716
3734
3859

3997
4209
4231
4254
4278
4508

4540

4842
4857
4938

5187
5216

2930

3194
3423

3466
3491
3697
3719

3842

3998
4211

4232

4255

4487
4509
4341
4843
4859
4942

5191
5217

1712
1881
2135
2291
2412
2595
27119
2900
2933
2962
3144
3157
3176
3195
3428
3457
3682

1715
1884
2138
2293
2416
2599
2725
2901
2937
2966
3145

1787
1886
2142
2294
2421
2600
2726
2902
2938

3178
3196
3434

3179
3408
3437
3470

3720
3843
3862
3999

3722
3844

4212
4233

4488
4517
4543
4844

4860
4943

5192
5218

3158

3468

3683

3700

4000
4214
4236
4257
4492
4522
4544
4845
4861
4945

5194
5219

3146
3159

3684
3701
3723
3845
3865
4197

4215
4239
4258
4496

4523
4546
4846
4862
4946

5195
5220

1790
1887
2144
2295
2483
2601
2728
2912
2940
2969
3147
3161
3181
3409
3438
3474
3685
3702
3724
3846
4198
4216
4241
4262
4497
4524
4547
4847
4914
4947
5200

5221

1791
1888

2147

2296
2583
2602
2729
2914
2941
2971
3148
3164
3182
3410
3439
3475
3704
3725
3850

3986
4199

4218
4242
4265
4498
4526
4555
4g48
4917
4948

5201
5222

1811
1941
2149

2306
2584

2604
2730
2915

2943

2975
3149
3166
3183
3411
3440
3479
3687
3705
3727
3851
3987
4200
4219
4243
4266
4499

4527
4559
4849
4922
4952

5205
5204

1816
1942
2150
2314
2585
2605
2732
2917

2947

2976
3150
3167
3184
3412
3444
3480
3689
3707
3728
3852
3988
4204

4222
4244
4270
4500
4528
4561
485<

4927
4953
200
5225

CZLNADO LNO1
CZLNAD.P11
IODRV
ISR
=
IVEC
IVEC2
IXE
=
ISAU
=
I$AUTC=
ISCLN =
IsDU
=
IS$HRD =
ISINIT=
IsMOD =

r L,})

TEST

PAGE 7 10
DONMAC x24 .07 563
10 APR-84
09:07
10-APR-84 08:55
CROSS REFERENCE TABLE
USER SYMBOLS

004542
000100 G
053475
053615
004000 G
000041
000041
000041
000041
000041
000041
000041

4009
4009
9100
748%
748¢
7480
TA480

1915¢
27518

748¢
7480

JUSSEQG
JUSSPA
JUSTFY
JUSTIF
JUSTOF
JUSTON
JSIMP =
LANSEL
LEFRI
LETTBL
LF
=
LFM
INCNT

104466
057616
057636
057767
054062
054055
000167
020416
025332
052750
000012 G
033040
002272

LNOLTB
070212
LOBYTE= 000377
LOE
= 040000 G

LoopP

LOT
LPBUF
LPCSR

LPDROP

033350

000010 G
002446
002352

004060

1434
897¢
2105
30140

748¢
7480

IsSETU= 000041
I¢SFT = 000041
ISSRV = 000041
IssuB - 000041

= 000041

818¢
16108

5332¢

000041
000040
000041
000041
000041
000041

I$TST

1223¢
910e

40659
7484
7480
7486
7480
7480
748¢

IsM5G =
IS$PROT=
I$PTAB=
IsPWR =
ISRPT =
ISSEG =

SEQ 0148

3388
7480
53492

3388

7480

2121@
2508¢
313884

4280

5238

42850
4214
4199
4045¢
404490
7480

2323
2589
3991
915¢
2976
9599
2418
4557
951¢
9100

2923s
910¢
10090
1003¢
1652
2470
1092¢

1627
3673

53524
17259
1627
3673
1627
2161
2581¢
3493

1526
90080
21864
30170

14184
22610
32430
50800

1612¢

22734
3582¢
50960

16164
23500
3596¢
52604

17540
23540
37600
53244

17690
25100
37758
53620

18316
2513¢
38809

18450
26424
3895

40499

2364

2581

2712

2897

3134

2364

2581

2712

2897

3134

1899¢

19384
2368
31340

2016
2371
3201

20892
2385
323728

4352¢

4662¢

46780

1784
3840

1850
3985

4188

4472

4828

2210

2288
5169

1730¢

17340
1850
3985
1752¢
22100
26418
36730

17370
1938

S2740
2121

5308¢
2210

5319¢
2288
5169
18504
2341
2897¢

1784
3840

1719
2185¢
3581¢

43354
5239

44720

4565

4227
42950

4242

42870

23440
2619¢
4009¢
1864
29958
1810+

15410
14104
22000
32390

52458

1938

4168

178408
2246
27120
3736

46610

2121

4472

4828

2740
37594

1829¢
22880
27504
3840¢
4957

5079¢

1891
23480
2985
38792
5169¢

1818
22600
48280

236440
30014
3985¢
5228

4002

5259¢

1901¢
26584

40482

4188%

2413

2414

1876
1949

1984+

2146+

22234

2224+

2230

2237

2242

2409»

1471
1235+
1675+

1669+
1246+
1683«

1251e
1691

1307
1694

1347»
1699+

1382
1717

1470«
2379

1471
2382+

4655¢
1595

2946

30000

12284
1156«
1660
2479
1384

1242+
1223
1670

1048

2453

CZLNADO ¢ NO1
CZLNAD.P11
LPERR

() l()

TEST
PAGE 7-11
09:07
ONMAC Xx24.07 563
10 APR-84
10-APR 84 08:55
CROSS REFERENCE TABLE
- USER SYMBOLS

o016

11292
1851
1973
2157

2518
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

LVEC
~VEC2
L SACP
LSAPT
_SAUT
LSAUTO
LsCCP
LSCLEA
L$CO
L $OEPO
L $DESC
L$DESP
LS$DEVP
LS$DISP
SDL
v

003006
002412
036624
002274
002310

053133

054005
002110
002036
002070
002256
002106
007266
002032
002011
0022G2
002076
002060
002132
002116

[(alalalalalalnlalsalalalalnl

LPINTR
LPVEC
LRMAR]
LSTCNT
LUNIT

4937
5183
5215
10302
10064
3148
9600
9660
2135

2400
2464+
4009
4009
7694
769¢
7690
769
7690

769

769¢
7690
769
7690
7692

769

7698

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
48472
4857

4938
5187
5216
1481
1475e
32100

1633»
2138

2406

2465

4019e¢
40420

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
3698
3720
3343
3862
3999

4212
4233

4256

4438
4517
4543
4344
4860

4943
5192

5218
1566
1566

1709
1869
2125
2239
2388
2599
2725
2901

2937
2966

3145
3158
3178
3196
3434
3468
3683
3700
3722
3844
3864
4000

4214

4236
4257

4492
4522
4544
4845
4861

4945

5194
5219

1710
1877
2130
2244
2389
2600
2726
2902

2938
2968
3146

3159
3179
3408
3437

3470
3684
3701
3723
3845
3865

4197
4215
4239
4258
4496
4523
4546
4846
4862
4946

5195
5220

1682

1693

1636+
2142
2412
2467

1638
2144
2416
2471

1642
2147
2421
2476

1646
2149
478

148,

1654

1685

169%

8143

15659
7900

7860

1317

1712
1881
2135
2291
2483
2601

2728
2912

2940
2969
3147
2161
3181

3409
3438
3474
3685
3702
3724
3846
3866

4198
4216
4241
4262
4497
4524

4547
4847
4914

4947
5200
S221

1662
2150

2431

SEQ 0149

1715
1884
2138
2293
2583
2602
2729
2914
2941
2971
3148
3164
3182

3410

3439
3475
3686
3704
3725
3850
3986
4199

1787
1886
2142
2294
2584
2604
2730
2915
2943

2975

3149
3166
3183
3411
3440
3479
3687
3705
3727
3851
3987
4200

1790
1887
2144
2295
2585
2605
2732
2917
2947
2976
3150
3167
3184

1791
1888
2147
2296
2586
2606
2733
2919
2948
2978
3151
3168
3185

3480
3689
3707
3728

3445
3484
3690
3709
3730

3412
3444

3852
3988

4917
4948
5201

4922
4952

5205
5224

4204
4222
4244
4270
4500
4528
4561
4852
4927
4953
5206
5225

1673
2157

1697
2377«
2446

1727
2378
2447

4218
4242
4265
4498
4526

4555
4848

5222

24454

4219
4243

4266
4499
4527

4559
4849

3414

3853
3989

4205
4225
4245

2128s
2391s

4273
4503
4529
4562

4853
4932
4954

5209
5226

2450

1811

1941
2149

2306
2587
2714
273S
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

2129
2397»
2455

1816
1942
2150
2314
2588
2715
2736
2926
2953
2982
3153
3171
3190
3417
3450
3488
3693
3712
3732

3856

3994

4207
4228
4252
4276
4505
4536
4840
4855
4936

5182
5214

2130
2398
2459

o $HW

LSICP
LS$INIT
LSLADP
LSLAST
L $LOAD

LSLUN

LSMREV
L $NAME
LS$PRIO
L$PROT
L$PRT
L $REPP
LSREV
LSSOFT

L$SPC
LSSPCP

L$SPTP
L$STA
L$Su
LSTEST
LSTIML
LSUNIT
L 10001
L 10002
L10003
L10004
L10005
L 10006
L 10007
L10010
L10011
L10012

L10013
L10014
L10015
L10016
L10017
L 10020
L10021
L 10022

002072
002242
002052
002044
002102
0020406
002064
002066

105314
092120
002016
002022
002252
002104
005516
002026
105544
002100
002074
002050
002000
002042
002122
002112

002062
002010

105374
002056
002020

002024
002030
002264
002114
002014
002012
002256
002260
002270

007200
007454
011224
010544
010552
011772
013202
015152
016514
017314
020436
023474
025722
027354
033352

OOCONOONCO

002040

002034

OO0

L$DTP
LSDTYP
L$DUT
LSOV Ty
L SEF
LSENVI
LSETP
LSEXPL
LSEXPY
LSEXPS
L $=ARD
LSHIME
L sHPCP
LSHPTP

QOOQOOOOOOOOO0OO0

C {LNADO LNOL
CILNAD P11

TEST
DNMAC
10 APR 84 08:55

X24.07 563

10 APR 84
09:07
PAGLE
CROSS REFERENCE TARLE

- 1()

7 12
USER

%Q 0150

SYMBOL
S

7692

7690

7694

769
769¢

7910

7690

7694
769¢
7698
7690
769
7694
7698
7692
769
7699

53322

803¢

769

1419¢

769
769¢
7690

5361

7690

1459s

769¢
769¢
769@
769
769¢

769¢
7690
769

769¢

769&
769
769¢
769
769¢
7698
7690

803
8186
826
1434
16104
1719
17300
17370
1818
1891
2016
2161
2246
2341
2368
2608
2740
2985

1133
1460

1138»
1462

11444
1590+

12852
1593

1288+
1646

1298
1662+

1355
1673«

1384
1697+

1402+
1727

1403

1439

1458

1564

1589

1628

2126

2374

7740

53490

8264

1284
810¢

835¢
1526

15410

17520
18296
1899¢
20894
21850
22600
23480
2371
26410
27504
30014

2485

25084

1403
2447+

1404
2459+

1405+
2476s

CZUNADO { NO1

CZLNAD.P11
L10023
L 10024

L 10025
L 10026
L1007
L 10030
L10031
L10032
L10043
L10035
L10036
L10037

MARDEF
MARTBL
MAXERR

MGTINT

MIDSEC
MIDSEQ
MISCON
MRESET
MSGADR
MSGONT

09:07
PAGE
TEST
ONMAC x24 .07 563
10 APR-84
10-APR-84 08:55
CROSS REFERENCE TABLE

037456

045072
050420

052014
054070
063604
070252
101614
104622
105304
105334
105414
032672
067036
002266
105414
037443
043561
103532
006661
002706

002606

017157
073340
NLMODE
027264
NO
057661
NOCLCK
007043
NOINTR= 000003
NONBF L
014507
MUL INE
NEWPG

NONBUF
NONCHR
NORMAR
NOSPA
NOTAB
NOTIM
NOTUND
NOUND
NRCT16
Nfe,T17

014124
014010
066673
057656
050046
007105
050117
047770
006542
006625
PSELTS
074070
NUM
015150
NVEC
053203
074142
0onDT8
OFF JU
066657
OFF JUS
063551
OFFSET
052666
OFFSPA
057645
OFFUN
067437
ON
057654
ONEF IL = 000001
ONESVN
043534
ONETEN
043520
ONJU
066652
ONJUST
063544
057651
ONSPA
ONUN
067411

3201

3493
3736
3868
4002
4280
4565
4957
5228

5319¢
5332
5349

2975
4501

8329
5350
3174
3530¢
5183

1531¢

1024¢
10184
2218
49659
2716
42920
1520
927¢
1978
1943

1942

4497
42910

3694
1521
3687
3685
1440
1441

4850

20864

4009
49854
4583¢
4211
40078
4288¢
4607
42900
44

3474
3437
4582¢
4204
12894
4606

Tle
7-13
USER SYMBOLS

SEQ 0151

32374
35814
3759¢
38794
40484
43350
46610

50790
5259¢

53360
5352¢
29938

45949

1151
53540
32330
3568
5232¢
1240
1241
22524

1342»
1344«

27450

1535#
1330
205249
202440
2021¢

4509

458590

3700

37440

3731
37410
1529¢
15300
49820

37460

1536¢

40219

4232

4244

4266

43284

8
35280
35274

2654

3013

4061

4219

4241

4258

43270

46169

46140

3564

4348

4674

5092

5272

CZLNADO LNO1

CZLNAD.P11
OUN

ouTBUF

TEST

050411

003114

ONMAC

X24.07 563

3723

37530

10-APR 84 08:55

1429+
1869
2144
2317+
2604
2909+
2940
2983
3166
33922
3405+
3475

1430
1872
2149
2318
2720
2910
2941
3135
3170
3393»

3716
4212
4482+
4948
5209
1072¢
2296
7480
7484
7480
7489
748¢
748
7489
748¢

4561

OSERRT=
O$GNSW=
O$POIN=

003702
020372
000000
000000
000000
000001
000000
000000
000001
000001

0$SETU= 000000

PAPROY
PAPRSW
PAPSWI
PAPSW1
PAPSW2
PAPTST
PARAM1
PARAM2
PARAM3
PARAMA
PARAMS
PARAM6
PARAM7
PARAM8
PARAM9
PARM10
PARTBL

PAR2
PAR3
PARS
PATCH
PATTER
PGEND
PLOC

FLP

022604
022356
003402
022462
022542
022673
043256
043272
043306
043322
043336
043352
043366
043402
043416
043446
044140

043454
04347¢C
043504
105500
011770
073722
007176

042636

7484

09:07

CROSS REFERENCE

1052¢
1868+
<138
2314
2603+
2908+
2938
2979
3164
3391»
3404«
3467

3674»

OUTTIM
OVTEST
0$APTS=
OsSAU
=
O4BGNR=
0$BGNS=
0sdU
=

10 APR-84

PAGE

TABLE

Jle

7-14

3414
3489

1524+
1877
2150
2325
2725
2914
2943
3136+
3173
33942
3415
3555

1525
18854
2156+
2330
2726
2915
2947
3137«
3175
3395+
3417
3556

17144
1886
2157
2332
2732
2917
2948
3138+
3178
3396+
3421
3557

1715
1950
2225
2338
2733
2921
2949
3139
3181
3397
3423
3560

3732
4216
4483+

3847«
4218
4484+

3857
4229
4485+

3859
4233
4486+

3863+
4245
4504

3864
4253
4506

4952
5226
1139
23430
769
769
769
7670
769
769
7674
7678

5173«

5174

$17Sa

5176+

S177s

3675+

4606

769

36764

4607

3677+

4635

3678+

4908+«

36794+

4909¢

3680«

4910+

769
769
769

5361

2428
2405

24944
24910

10676
2406
2407
2412
35134
35140
3515¢

2422
24924
24930
2495
3555
3554
3554

3569
3555
3555

3556
3556

3570
3574

35164
35174
3518
35194

3554
3554
3554
3554

3556
3556
3560
3557

3557
3568
3560

3562

3574

3561

3569

35204
3521¢
3523¢
3418
35244
35259
35260
53600
1793+
49728
15384
3468

3554
3561
3560
35544

3561

3576

1794

1824¢

35004

SEQ 0152

USER SYMBOLS

3575

1799
1973
2239
2415+
2736
2926
2953
3140+«
3185
33984+
3438
3561

3681+
4192+
4276

4911

S178¢

1811
1985
2243+

2416
29034
2927
2959
3141
X187
3399+
3439
3569
3697

4193
4477
4524
4912+

5179

1815s
2008
2244
2420+

2904+

2929
2962
3157
3190
3400«
3440
3570
3698

4194+
4478+
4531
4913+

5180«

1816
2013s
2301
2421
2905
2930

3158
3192
3401+
3571
3705
41954

4479«
4540
4945

5192

1860
2014
2306
2482+
2906+
2933
2971
3159
3194
3402+
3447
3574
3707

41964
4480«
4544
4946

5195

1865
2137+
2308
2483
2907+«
2937
2978
3161
3390+
3403+
3450
3575

3709
4200
4481+
4547
4947
5206

CZLNADO LNO1
CZUNAD.P11

TEST
10-APR 84

DNMAC X24.07 563
10 APR-88
09:07
PAGE
08:55
CROSS REFERENCE TABLE
-

PLPTBL
PLP3
PLPS
PLP8

045060
043134
043143
043152

35780
35040
3505¢
3366

35069

PLP9

PL1
PL2

043161

051773
051777

3507¢

3578

PL3
PNT
=
PORSEL
PORSEQ
PORSG
PORT

052005
001000 G
020423
066576
013150
066374

3854
910¢
2295
4576
1881
4498

3876%

PRAM1O

043432

35220

PRI
PRINTR

002000 G
002314

3851
3852

3100
970

=
=
=

000000
000040
000100
000140
000200
000240
000300

G
G
G
G
G
G
G

3874¢

1283

1288

1369«

1430+

1525

1709+

1710s

1712+

1715

1787+

1790s

1791s

1942+

1973+

2008«

2014+

2123+

2125+

2130»

2135+

2138+

2142s

2144+

2147+

29264

2927+

2929s

2930+

2933+

2937«

2938+

2940+

2941»

23450
45780
1895¢
4569¢

2150+
2314s
2585+
2605+
2732+

2157+
2318+
2586+
2606+
2733+

221S5s
23232
2587»
27148
2735+

2217»
2330+
2588+
2715s
2736»

29432
29754
3149«

2947+
29762
3150+

29482
2978+
3151«

2949+
2979+
3152+

2953a
2982«
3153

3183»
3411s
3440+
3479«
3687+
3705
3727
3851«
3987+
4200+
4219+
42434

3184+
3412+
34442
3480+
3689+
3707+
37288
3852+
3988+
4204»
4222+
4244»

4952+

4953+

4266+
4499+
4527+
4559+
48492
4922+

=
=
=

3856

2149+
2306+
2584s
2604+
2730

3166+

PRIOO
PRIOL
PRIO2
PRIO3
PRIO4
PRIOS
PRIOCE

3853
38750

3578

18162+

29152+

5205+
5224+

910¢
9100
9104
9104

9108
9104
9108

SEG 0153

SYMBOLS

3578
3578

1811+
1941»

7-15
USER

2917+

3167+

1851+

2919+

3168+

2921+

3170

1857+

3171

2218+
23382
2589+
27164
2737«

2957+
2983s
3154+

3173

1869+

2239+
2388+
2592s
2717+
2738+

2959
3142»
3155«

3174+«

1877+

2244+
2389»
2593+
2718+
2899¢

2960+
3143
3156+

3175s

1881«

2291s
2412+
2595+
2719a
2900+
2962¢
3144+
3157

3176+

1884+

2293+
2416+
2599«
2725+
2901+
2966+
3145+
3158»

3178+

1886+

2294s
2421+
2600+
2726s
2902«
2968+
3146+
3159+

3179«

3187
341S»
3447»
3487+
3691+
3711s
3731+
3854+
3990+
4206+
4227¢
4247s

3190+
3417«
3450«
3488«
3693s
3712«
3732
3856+
3994
4207s
4228s
42524

3192+
3420+
3455+
3489«
3694+
3714+
3733s
3857«
3996+
4208+
42298
4253«

3193+
3421
3461+
3490+
3695+
3716+
37344
3859+
3997
4209+
4231+
4254+

3194+
34234
3466+
3491
3697
3719+
3842
38602
3998+
4211+
4232+
4255«

3195»
3428+
3467
3682+
3698+
3720+
3843»
3862+
39992
4212+
4233
4256+

3196+
3434
3468+
3683+
3700+
3722+
3844»
3864+
4000+
4214«
4236+
4257+

3408+
3437«
3470+
36842
3701+
3723+
3845+
3865+
4197+
4215
4239
4258+

4954«

5181

5182+

5183+

5187+

5191+«

$192¢

5194e

5195s

A273s
4503+
4529+
4562+
4853+
4932

5206+
5225+

5209+
5226+

4275¢
4504+
45314
4563+
4854+
4935«

52132

4276+
4505+
4536+
4840s
4855+
49364

5214+

1523

1609

1708

1482

1566

1681

1682

1506

1607

5309

1692

1865+

3185+
34144
34452
3484«
3690»
3709+
3730e
38534
3989»
4205
4225+
42454

4270+
4500+
4528+
4561s
4852+
4927+

1428

1856+

4277a
45064
45372
4841«
4856+
4937

5215+

1693

4278+
4508+
4540¢
4842+
4857+
4938+

5216+

5290

A48T+
4509«
4541
4843+
4859+
4942+

S217s

44882
4517+
4543+
AB44s
A860¢«
4943+

5218+

4492+
4522+
4544
A8ASe
4861ls
4945s

5219«

1887+

2295
2483«
2601+
2728»
2912+

2969+
3147»
3161»

3181«

3409+
3438»
3474s
3685+
3702«
37244
3846+
3866+
4198s
4216+
4241s
4262+

4496+
45232
4546+
4846+
4862+
4946+

44972
45242
4547+
A84ATs
4914+
4947

5220+

5221«

5200

1888+«

2296+
2583s
2602+
2729
29144+
2971a»
3148«
3164

3182+

3410+
3439s
3475
3686+
3704+
3725
3850«
3986+
4199«
4218+
4242
42654

4498s
4526+
45552
4848s
4917e
49482

5201+

5222+

CZLNADO LNOL
CZLNAD.P11
PRIO? =
PRTCHR
PRTCTL
PRTENL

PSSV

PTABAD
PTLINE
PUD

QUIET

RDYERR
READY
RECTBA
RECTBB
RECTBL
RECTBO
RECC
REC1
REC1A
REC18
REC10
REC11

REC12
REC13
REC14
REC1S
REC16
REC2
REC3
REC4
RECS
REC6
REC?
RECS
REC9
REINIT

REPCNT
RESET1
RESVEC
RLTV1
RMANL

SCALE
SECCNT
SECO
SEC1
SEC2
SEC3
SEC4
SECS
SELBGN
SELDEC

LL12

TEST
ONMAC Xx24.07 563
10 APR 84
09:07
PAGE
6
10-APR 84 08:55
CROSS REFERENCE TABLE -- USER SYMBOLS

000340 G
013066
016150
073743

067477

002312
051711
032522

005306

003360
007006
074260
074322
074216
074154
075014
075214
075414
075614
100014
100214

100414
100614
101014
10)214
101414
076014
076214
076414
076614
077014
077214
077414
077614
004027

002646
006735
007204
104567
027337

033340
066566
066554
066415
066430
066456
066513
066542
074406
004031

9100

1851
2130

4862
4541

969¢
3845
2902
1369¢
2240
2984
3851
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

10756

3195
4847
10210
1446
1562¢
5217
2719

2919

4490
4489
4500
45714#
4523
4537
45744
4852

1076%

SEQ 0154

1586
1893¢
21630

49738
46210

38724
29890
1716
2245
3197
3867
5196
1664

15344

49882
49894
49874
49864
5025¢
30276

50294
50314

4987
4987
4987
4987
4987
4987
4987
4987
4987
4987
4987
4987
4987
4987
4987

2315

1866
2319

4001

4210

4263

2408

2430

2452

4988
4988
4988
4988

4389
4989
4989
4989
4989

1345«

5057¢
50614
50654
50694
5071¢
50734
S075¢
50334
5035¢
5037¢
50399
50420
50454
5049¢
5053¢
2125
3733
5224
1466+

2584

2606

1812
2307
3430

5227

1817

3436

5258

4989
4989

4989

4989
4989
4989
4989
4989
4989
4989
1941
3682
5181

1790
3408
4936
1238+

15320

3449

1870
2331
3457

4271

1878
2339
3469
4279

1889
2484
3482

2456

2469

2473

2217
3842

2293
3865

2583
3999

2605

4197

a277

4487

4562

4840

1599+

2442+

2715

2738

2900

3143

3196

3409

3491

3562

4564

1974
2594
3486

4918

2009
2596
3492
4923

2714

2015
2607

3708
4928

2737

2155
2739
3718
4933

2899

2158
2980
3735

4949

3142

1601
5253¢
2735
29970
45774
45764

45704
4606
45724
4573¢
4635
49924

1856

1888

CZLNADO LNO1
CZLNAD.P11

TEST
ONMA
10 APR 84 08:5
3569

074502
004036
073444
074043
074000
074017
104364
002264
004046
027345
050332
057626
057612
104376
017140
000001
002506

STHOR2
STOPS3
STRCNY
STTAB
STVER4
STVR4
SUBSEC
SVCGBL
=

104542
037415
002302
047775
067320
104533
103736
000000

SVCINS= 000000

4846
4980¢
49784
4979¢

49684

5188
8260

1079¢
2730

3704
4215
42840

5202
2220+
9230
1012¢
14914+
S215
3168
9630
3695

4606

5214
5201

748¢

5349

7480

1384

1523
1674
1752
2366
2450
2477
3736

000000
000000

SVCTST= 000000
SYM
SYMD

=
-

000037
000007

3683

4937

1441

SvVCSuB=
SVCTAG=

2407 563 ARARRBAen2:
Phoy £ stk svmeoLs

4848
4854

1077¢

[217)]

SELEND
SELPIX
SEL11
SEQALL
SEQEVE
SEQODD
SEQTAB
SFPTBL
SKIP3
SMANL
SPACES
SPAJUS
SPAQFF
SQrAsl
STACHR
STATER=
STATUS

M12

5259

7484
7484

1829
2641
5336
7484
3134
11294
1132¢
11984
13869
15894
16834
19544
22374
2413¢#

S003¢
3562

4954

3734

3843
5182

3866
5225

3569

4576

4635

3846

4257

4265

4243

42860

2227
1308
1233«
1644+«

22384

22494

1245+
16614+

12504
1671+

769

774

769
1389
1444
1541
1682
1829

786
1404
1446
1566
1685
1891
2371
2454

4000

SEQ 0155

4198

4278

4488

4563

4576

4635

4841

1257«
1700+

1303
2439«

1309+

1314

1316

1321

1322»

1381+

786

790

791

803

814

826

1419

1585

5332

790
1422
1454

791
1423
1460
1587
1693
2016
2405
2456
2740

803
1424
1461
1603
1695
2089
2406
2460
2750

818
1425
1482
1607
1698
2161
2407
2467
2985

826
1428
1498
1609
1708
2185
2408
2468
3001

1134
1432
1506

1139

1145

1317
1440
1521
1664
1737
2348
2449
2473
3581

52380
3844
27470

3750¢
4228

S239¢
2223
1258
1154«
1595
52504
32314

4273

37424

46090
52494
523490
7588
53614
7558
1388

1443
1526
1681
1818
2367
2451
2485
3759
5290

2452
2508
3868
5309

1692
1899
2381
2455
2641

4661

4957

5351

1438
1520
1654
1730
2341
2430
2472
3493
5079
5352

1584
2452
4335

1610
2456
4661

1730
2469
5079

1737
2473
5259

1752
2508
5319

2210
4828

2288
5169

2364

2581

2712

2897

11540
12440

11740
12450

17934
21266
23334
24644

11772
1257¢
14860
1661¢
1803¢
21514
23774
2475¢

1181
12982
14914
16632
1806¢
22249
237848
25979

1183¢
1309&
1567¢&
1671¢
18102

1188¢
1381¢
1568+

17264
201046
23264
24580

11764
12504
14800
16534
18004
2129¢
23740
2465¢

3879
5319

4002

5332

4048
5334

810
2089
3001

818
2185
3237

835
2260
3581

1454
2348
3759

1541
2408
3879

1574
2430
4048

3388

7568

1627
3673

1784
3840

1850
3985

1938
4188

2121
4472

11334
12294
1405¢
15908
1684¢
1961¢
22382
24234

1137
12334
14310
15936
16914
1975¢
23004
24314

11384
12344
14584
15954
16944
19844
23024
24394

11430
1238¢
1459¢
16280
16964#
19890
2309¢
24454

11440
12430

7570
7594

1899
2750
5352

1462¢
16424

17000
19966
23240
24464

1434
1509
1647
1728
2260
2428
2471
3237

4280
5335

14710
16444

4335
5336

14794
16450

4565
5349

1610
1719
2246
2422
2469
3201
5350

2226¢%

2380%
27242

5228
5361

16724
19492
22322

2398%

2731%

CZLNADO LNO.
CZLNAD.P11
SYMS

TEST
DNHAg X24.07-563
10-APR-84
9:07
PAGE 7-&8
10 APR-84 08:5
CROSS REFERENCE TABLE -- US
SYMBOLS

000007

Ss$LSYM= 010000
a1
S2
TABLDA
TABLE1

067452
067456
004522
016424

29134
11326
11986
1386¢

29184
11336
1229¢
14050

29324
11374
12334
14314

29444
11384
12344
145806

1589¢
16834
19544
2237¢
24130
29134

15904
16844
19616
22386
24236
29184

15934
16914
1975¢
23008
24314
29328

15950
16940
19844
23020
24390
29444

21850
3237¢

22604
35814

23486
37594

24084
38794

2140
3412

2181¢
3509¢

7484

4526
4527
1170
2133

8100

4529
4528
1202¢
21804

8184

46180
46192

8354

S3124¢
11430
12384
14594

16284
16964
19896
23096
24456
531246
14544

24304
40484

TABLE2
TABMS

016460
043174

TABSTR
TABTST
TABUCT
TABUND
TBMAR1
TOONE
TEM
TEXT
TEXTBL

017142
036560
067274
067246
036614
051755
032724
061614
063506

2220
3144
4515
4514
3147
3860
29944
43094
4259

22514
3206¢
46082
46069
32094
38734

TEXTBP
TEXT1
TEXT2

063526
062031
062251

4260
43114
4313¢

4268
4325
4325

43264

5310

S311+

5314+

53220

3571
3571

3574
3574

3575
3575

TABS

050344

3693

53140
11444
12434
1462¢

16424
17004
19960
23244
244606
53144
15414

11544

12446
14716
164406
17264

201046

23260
24580
16100

SEQ 0156

11740

11760

11774

1181¢

11830

1188¢

21264

21296

21510

22246

22264

22320

12454
14790
16450
17934

23330
24640
17304

26413
53364

27500
S352¢

18998

2089¢

24058

24064

24078

24288

24492

4325
4267

53346
16980

53354
17284

53504
23814

5351
28224

24600

2477¢

22468

23410

23684

23718

24854

26084

43250

5321¢
1320
26184
3568
3568
32324
40172
46114
34384
3570

TXNOGIN
003727
T$ARGC= 000001

10734
7690

1145
13844

13884

14404

14414

14464

15200

15216

24514

24544

24550

24674

24684

24716

24724

T$FLAG=

000040

24506

14536
7480
53344
14344

30014

3751¢

5312«
9244
2588
3548¢
3551¢
3171
3989
4606
3411
34994

T$CODE= 001052
T$ERRN= 000012
T$EXCP= 000000

2398¢
27314

25080
53194

105306
000002
025316
043736
044127
037435
053074
067337
042514
042552

4009
10714

18294

23808
27240

13810
15680
1672¢
19492

24734
S2594

TIME
TIMOUT=
TOPBOT
TOPMAR
TOPNUM
TOPSEC
TOPVEC
TSET
TSTMRA
TSTMRB

053665
203655

1752¢

23780
25970

13090
15674
16710
18104

24699
50794

43154
43174
43194
43214

TVEC
TXERR

17374

23774
24756

12980
14910
16638
180606

24560
46614

062476
062700
063110
063257

105310

23746
24650

1257
14860
16610
18036

24524
43354

TEXT3
TEXT4
TEXTS
TEXT6

TICK

12504
14804
16534
18000

4325
4325
4325
A325

4038¢
1134

24084
11344
S5335¢
15264

24304
11390
53514
17194

24524
11454
18184

24564
16474
18914

24694
16640
20164

24734
16744
21614

B13
5

ZUNADO L NOL1
CZUNAD.P1Y
TSGMAN=
TSHILITSLAST=
TSLOLI=-

T$LSYM=

TEST
ONMAC
10-APR 84 08:55

000000
000377
000001
000001

010000

TSLTINO= 000024
TSNEST:=

000000

27408

2985¢

32010

53350
53610
53350

5351¢

810

2260
5079

2348
5259

7480

53610

000010

TSNS

000000

TENS2

TSPTNU=
T$SAvL=

000005

000000
177777

T$SEGL= 177777
T$SUBN= 000000
TSTAGL=
T$TAGN=

177777
010040

TSTEST=

T$ISTM=

000000

000024

177777

SEQ 0157

34930

3756#

58680

40020

42800

45650

49578

52288

5351e¢
818

835

1541

1610

1730

1787

1752

1829

1899

2089

2185

2508
5319

2641
5336

2750
5352

3001

3237

3581

3759

3879

4048

4335

4661

7660

7740

7780

803¢

8100

8140

818¢

8260

8350

8972

9000

14100

1418¢
17548
21050

14190
17696
21216
25086

15414
17840
21858

15856
18290
21866

16100
18310
22000

16120
18450
22100

16168
18506
22608

1627¢
18994
22618

172560
19014
22730

17300
19150
22880

1734
19386
23480

17378
2089¢
23508
27650

17520
20910
23540
28970

53086
7660
2091
2765¢

30140
37750
44728
5319
897

25100
30176
38406

AGGLe

2105¢
3014

53244
9008
21686
3017¢

778

8030

46628

53320
1410
22000
3239

46788

53360
1418¢
2261
3243¢

A828¢

53490
1612
2273¢
3582

50796

53526
1616
2350
35968

50808

53620
1754
23540
3760

50960

1769¢

2510
3775¢

27508
35820
40650
51690

1831

25130
3880

27510
35968
41880

52590

1845¢

2642
38950

35730
43350
S2600
1901

26584
4049

37590
43360
52749
19159

2751
4065

835

1419¢

1541

1585¢

1610

16279

1899
27120
4048

19380
2750
41880

2089
28970
4335

21210
3001
44720

2185
31340
4661

22100
3237
48280

2260
33882
5079

22884
3581
5169¢

2348
36730
5259

1737

5332¢

5336

53494

5352

16274
36736

17848
3840¢

18500
39850

19388
41880

21216
44720

22100
AB280

22880
51694

23640

25810

27120

28978

31342

7740

803¢

814¢

8264

14190

15850

16270

17250

17340

17840

18500

19384

22108

22880

23644

25814

27126

28970

31340

33880

36730

38400

39850

41889

7860

810¢

818¢

a3s5e¢

8970

14100

14340

14540

15260

15410

15740

15840

17540
22460
24736
32010
40484
5260¢

1818¢
22600
24854
32370
40496
53194

18290
22610
25080
32392
42800
53340

18316
23418
25100
34930
43350
53358

18912
23480
26080
3581¢
43360
53360

1899¢
23500
26410
35828
45650
53500

19010
23682
26420
37369
46619
53510

25810

27120

28979

31342

1730

17340

8268

S2740

27120
35810
40490

18500
2641
39856
5362

818

5260

26580
33880
40480

1829
2581
3879
53248

8144

50964

26428
352430
39858

17840
2508
3840¢
5319

810

5080

26418
32390
38954

1752
236489
3759
53086
17259

4678¢

25818
32370
38804

435248

7740

4662

25134
31340
38796

4336

7480
7480

7489
7480
33880

7484
7480

21210
TSTEMP=

7 19
USER SYMBOLS

7488

43520

10 APR 84
09:07
PAGE
CROSS REFERENCE TABLE --

7480
53342
7480
53340

23648
30019
37608

TSNSC

x24.07 563

44720

48288

16100
201686
23710
27400
37590
46g20
5352¢

1612¢
20898
24080
27504
37604
23270
28

17194
20916
24308
27516
38680
5079¢

16274

17840

33880

36736

38404

1438
1523
1681
2016
2406

1440
1526
1682
2089
<407

1441
1541
1692
2161
2408

2750
4280

2985
4339

3001
4565

7780

7489

7484

2460

818

2467

51690

1134

2468

52740

17300
21618
24520
29854
38734
5080¢

53080

53320

53490

1737¢
21858
24564
30016
388040
52280

17520
21860
24694
30149
40020
5259

18504

19386

21218

22108

22880

23640

39854

41880

4472¢

48280

5169¢

S361

1404

1422

1424

1428

1434

1443
1566
1693
2185
2422

1446
1586
1698
2246
2428

1454
1587
1708
2260
2430

1460
1603
1719
2341
2449

1482
1607
1728
2348
2450

1498
1609
1752
2366
2451

1506
1610
1818
2368
2452

1509
1647
1829
23
2454

1520
1664
1891
2381
2455

1521
i074
1899
2405
245

3201
4661

3237
4957

3493
5079

3581
5228

3736
5259

3759
529¢

3868
5309

3879

a048

1139

2469

1145

2471

1384

28172

1388

2473

1389

2477

2485

2508

2608

fel T 29

2740

CILNADO LNO1
CZLNAD.P11
T$TSTS=

TEST
DNMAC x24 .07 563
10 APR-84
09:07
PAGE
10 APR 84 08:55
CROSS REFERENCE TABLF
7484

000001

33880

T$$AUT» 010002
T$S$CLE= 010005
T$$MHAR
= 010036
TSSHW = 010001
T$SINI- 010004
T$$PRO- 010000
T$$SOF
= 010037
T$SSRV
= 010035
T$$SW
010003
T$S$TES
010033

T18

Tic

T10
T11
T12
713

T14

115
Tl6
T17
718
T19
T2
120
T3
T4

15
16
T

18
19

UAM
UNDER
UNDERL

UNDMSG
UNDON
'JNDROF
UNDSEQ
UNDTTL
INDUND
UNIT
UNOF
UNON
W7
WTEQO
VECSEQ
vECO
veCol

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
C63556
002336
003760
104440
053253
067761

53324
803¢

1419¢
7740

53490
17250
8260
16276
2161
2581
3493
4335
786

1635¢
1640
[a]a]1ala121r
1l sl a1 aTAYa I AT AT AN AT A]

T1A

8142

1585¢

1634

786
786
786
786
786
786
786
786
786
786

786

786
786
786
786
786
786
786
9100

3988
4607

3690
3684

3997
5238
3686
3714
9650

16270
36730
818
1610
5336
810
1434
5352

1730
835
1719
2185
2608
3581

44729
1627¢
1706

17840
38400

18500
39850

1526

1541

17340

1752
2210¢
2641
36730

4828e@

17%7

52740

53080

S319

17840
2246

1818
2260

4565

4661

3759
48284

1829
22880
2750
38400

1850¢#
2341
28970
3868

3722

37400

27120
3736

2740

41880
4472¢
48280

17840

51694
18500

19380
21210
22102
2288¢
23648
25810
4011e

46150

40120

52440

4225
4222

4231
4236

4239
43290

4009
4635

40234

1386+
1388
5239

46400

22100

44720

1707¢
1637¢
2712@
2897¢
31340
33880
367360
38404
3985¢

3747¢
3689

2121e

41880

5239
37450
37499

9840
10740
5238

19380

Cls

7-20
USER SYMBOLS

1387

52430

4247

43300

1452¢

1486+

4957

5079

SEQ 0198

22880
51694

23640

25810

27120

28978

3134¢

1891

1899
23640
3001
3985¢
5228

1938¢
2368
31340

2016
2371
3201

2089
2485
3237
41880

212149
2508
33880

2348
2985

3879
51690

4002

5259

4048

4280

DL3

ESNABTRAYY 58" apr sa BHTEE X24-07 50330
ARR: PAeNER" Phai FACF U5BA svmeous
VECL
VERDEF
VERDE?2

VERPOL
VERPO3
VERPQOS
VERPO?7
VERS
. 1=
VERTBL
VERTB1
VERTB2
vER2
VER3
VERS
VERG6
VER”
VER8.5
VFIVE
VFOUR
vFUCMD
VONEMF
VPA
vSIX
VSIXHF
VTHREE
vTWo

053350
032622
032601
053040
053046
053055

053064

000001
024642
036640
036762

WORK

066627
066664
067443
067462
067734
067743
025402
025373
002342
025346
020430
025411
025420
025364
025355
003110

WORK1

003112

XHOR
XVER
X$ALWA=
X$FALS=
X$0OFFSs=
X$TRUE
=

000040
037363
037106
000000
000040
000400

000020
016246
x1
016260
A11
016412
x2
016272
x5
016304
x4
016316
xS
016330
x6
016342
x7
016354
X8
016366
x9
016400
$BGNLE
= 177777
SBRUMP
- 000000
x0

4009

29%7

2966
3986
3990

40150
3996
919¢

2590
3149
3150

4496

4499
4522
4536

4635
4635
2612

2612
989¢
2601
2294
2612
2599
2612
2612
10410
2731
1042¢
2935
S283¢
3154
3151
748¢%
7480
7480
7480

21660
21678
2147
21680
21698
2170@
21718
2172¢

2173¢

21740
21750
750¢
7500

1227
1319
1439

1652
1807
1879

4027¢

2960
2969
40132
40149
40160

1711
26126
32110
32158

SEQ 1199

299140
29920

1786

1977

2051

2122

2214

2290

1480«

1481
2936»
1684+

1859«
2937
1858+

1862
3696+
1880

1871s
3706+
1944+

1874
3707
1949

1954
3848+
1979+

1141

1151
1254
1334
1510
1670
18550
1949

1174
1283
1336

1175
1286

1178
1294
1356
1569
1717

1180

45800
45840
4617¢
46204
46370
46382

26240
26230

26208
23466
26250
26268
26220
26210

1479«
2925
1431e
2939
52900
3184
32198

1653

2944

2181
2161

1129

1136
1239
1325
1492
1655
1813
1883

1459
1653
1810
1880

1989«

199+

2724

1984

¢
2924

2928

2932

1184

1190

1192

1406
1602
1794

1431
lo06

1223
131s
1433

32280

2180
2180
21770
2181
2181
2181
2181
2181
2181
2181
2181

1236
1324

1961+

1247
1326

1499

1660
1814
18904

1519
1684
1858
1954

1346

1565
1686
1859
1956

1861
1961

1303
1387
1590
1718
1863
1963

1307
1403
1600
1793
1867
1976

1310

1871
1984

1314

1873

1989

1643

1800
1875

1991

¢z UNADO tNOL
CZUNAD. P11

TEST

DNMAC

10 APR 84 08:55
1996
2160
2326
2445
2734
2942

3163

3424
3478
3849
4238
4530
4926

$SERFLG=

000400

5315

7500

11720
12289
12500
13410
1429¢
14754
1512¢
15964
1663¢&
17000
18042
1871¢
1961¢
1997¢
21510
22438
23250
23800
24310
24590
27218
29139
2977¢
3189¢
3402¢
34520

36800

41939
4479
45259
49159
$FSAND
=

$F $BAD=

000310

000401

5179¢
7500
1316
1660
2453

4224
4921

7504
1170
1189

Xx024,07

563

1998
2226
2328

2453
2913
2945
3165

3427
3481
3855
4246
4542
4929

11320
11748
12294

12510
13429
14310
1479¢
1513¢
15978
16694
1714¢
1806¢
1872¢
19624
20036
21564
23004
2326¢
2382¢
2432¢
2464%
27220
29186
3135¢
3390#
34030
34530
3681¢

41940
44800
45384
49204
5180¢

1151
1326
1670
2470

4235
4926

1129
1171
1192

O APR-84

CR&SS REFERENCE ?ABLE GE USEB SYMBOLS
2011
2228
2333
2457
2916
2946
3169
3429
3483
3858

21276
2230
2335
2462
2918
2951
3172
3433
3485
3993

4261

4264

4931

4934

454S

09:07

4554

PAGE

2128
2233
2340
2464
2920
29520
3177
3435
3696
3995
4269

43556
4941

2134
2242
2370

2470
29224
2958
3180
3443
3699

4213
4272

4558
4944

2136
2300
2377

2474
2923
2961

3186
3446
3706

a217
4491

4560
4950

1133¢
11768
1233¢
1257¢
13436
14500
14800
13146
1599¢
16718
17266
1808¢
18730
19686
20040
22200
230106
23274

11370
11776
12340
12586
13449
14516
14810
15164
16040
16728
17276
18094
18746
19694
20106
22236
23028
23296

11380
11810
12356
12840
13450
14524
14864
15240
16280
16738
17294
1810¢
18764
19756
20136
22244
23036
23326

11434
11824
12380
12876
13470
14580
14910
15630
16424
16756
17368
18156
18856
19786
21260
22256
23056
23338

11440
1183¢
12400
12880
1381¢
14590
14974
15644
16440
16830
17930
18580
19430
19790
2128¢
222640
2308¢
23340

24376
24658
27230
29236
31364
3391¢
34040
34584
36964

24388
24660
27246
29248
31376
33924
34056
34590
37060

24390
24750
27316
29256
31386
33934
34136
34766
37154

24400
24760
29034
29286
31390
33944
34180
34776
37212

24410
2479¢
29042
2932¢
31400
3395¢
34250
34830
38474

23934

41950
44818
45390
49256
5188¢

1175
1334
1717
2591

4238
4931

1132
1172
1193

23984

41968
44820
455206
49304
51894

1180
1346
1794

2946

4261
4941

1133
1174
1196

24040

42130
44834
47530
44398
520286

1192
1387
1880
3419

4269
5190

1137
1175
1198

28090

42200
44840
AS57¢
49400
S5203¢

1223
1403
2134
3427
4491
5204

1138
1176
1223

24104

42340
4ABSe
48504
49440
52900

1227
1439
2141
3433
4502
5310

1143
1177
1227

SEQ 0160
2141

2302
2379
2480
2925
2967
3188

3448
3710
4220
4493
4851
4951

11546
1185¢
12410
129890
13820
14620

15004
15670
16450
16840
17950
18594
19440
1983+
21294
22278
23094
23360
24134
24420
24810
29059
29358
31410
33964

34260
36740
38480

4259¢
AAB6S
49080

51730
5311
1239
1519
2152
3443

4516

5315
1144
1180
1228

2143
2304
2384
2591
2928
2970
3189
3451
3715

4221
4502
4858

5190
11550
1188¢
12420
13080
13830
14634
15019
1568
16464
16910
17970
18609
19484
19849
2131¢
22290
23100
23376
24150
24450
24820
29060
293690
31600
3397¢
34310
36750
38490
42600

44894
49099

51742
5312¢

1283
1565
2230
3454

2146
2309
2414
2598

2931

2977/
3191
3454
3717
4224
4507
4916
5193

11364
1189¢
12430

13094
1385¢

14644

15020
1589¢
16486

16940
1799¢
18610
19494
19852
2133¢
22319

23120
2373¢

242006
24460
25904
29072
29394
31636
3398¢
34320
36760
3863¢

4267¢
44900
49102

51758
53140
1294
1602
2370
3460

2148

2152

2418
2724
2934
2981
3413
3456
3721
4230
4516
4919
5204

2419
2727
2936
3160
3416
3460
3726
4234

11690
11930
12440
1315¢
13850
146690
1503¢
15900
16530
16960
18004
1862¢
1950¢
1969¢
21370
2232¢

11700
1196¢
12459
13209
1402¢
14700
1505¢
15934
1661¢
16974
18010
18640
19540
19904
21400
22379

2311

23130
23749
24239
24478
2597¢
29080
29440
3169¢
33998
34410
36770
3991&
42686
4501¢
49110

S176¢
53169
1303
1606
2379
3478

2316

4518
4921

5208

23174

2377¢
24260
24480
26038

29580
31770
34000
34420
36782
39920

48770
45140
49122
5177¢

1307
1643

4542

4554

4558

2414
3993
4851

1151
1181
1229

1154
1182
1233

1155
1183
1234

1156
1185
1235

2159
2324
2425
2731
2939
3162

3419
3462
3848

4235
4525
4924
5310

1171e
11982
12462
1330¢
14059

14716

1511¢

15959

16620
16992

18032
18689
19559

19962
21460
2238¢
23242
2378¢
24299
2458
27204
29104
29679
3185¢
34012
34462
36790
41929
44780
45158
49132

51782

1314
1652
2419

a221

4916

1169
1188
1238

ZUNADO L NOL

CZUNAD . P11

TE ST

ONMAC X24.07 563

10 APR 84 08:55
1239
1284
1326
1385
1459
1497
1563
1604
1662
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
$FSBLA=
$F SCAS=
$FSDEC=
$F$D0

$FSFAL=
$F $GO0=

000170
000150
000220
000340

000405
000400

5175
5310

750¢
7506
750

1240
1287
1330
1386
1462
1500
1564
1606
1663
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
5311
1174

68 APR

CROSS

1241
1288
1334
1387
1463
1501
1565
1628
1669
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

1190

REF REN8€ ?AB(EPAGE
- GSEg SYMBOL S
84

1242
1294

1341
1402

1464
1502
1567
1642
1670
1714
1803
1868
1954
1990
2137
2229

2309
2336
2409

2438
2465
2721
2913
2967

3186
3401
3433
3478
3721
4213
A477
4501
4558
4925

5178
5314

1431

2731

2734

2925

2934

3433
4558

3443
4851

3454
4916

3460
4921

1132

1133
1174
1196
1242
1294
1334
1386
1462
1499
1524

7509

750¢
7500

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

1602
1661

9:07

1243
1298
1342
1403
1466

1503
1568
1643
1671
1717
1804
1871

1955

1996
2140

2230
2310
2337

2410
2439
2466

2722
2918
2977
3189
3402
3441
3483
3847

4220
4478

4502
4850

4926

S179
5315

1433
3849
1403
3478

1244

1303
1343
1405
1470
1505
1589
1644
1672
1726
1806
1872
1961
1997
2141
2231
2312
2370
2413
2440
2470
2723
2923
3135
3390
3403
3442

3674
3848

4221
4479
4514
4851
4930

5180
5316

1653
3855
1565
3993

4926

4931

1137
1175
1198

1138
1176
1223
1244
1303
1341
1402
1464

1243
1298

1335
1387
1463
1500
1563
1604
1662

1501

1564

1606

1663

SFQ 0161

1245
1307
1344
1429
1471
1511
1590
1645
1673
1727
1808
1873
1962
2003
2146
2232
2313
2373
2414
2441
2475
2724
2924
3136
3391
3404
3443
3675
3849

1246
1308
1345
1431
1475
1512
1593
1644
1675
1729
1809

4480
4515
4908
4931

4481
4516
4909
4939

4224

5188

1655
1717

1874
1968

2004
2151

2237
2317
2374
2415

2442

2476
2731
2925
3137

3392
3405
3446
3676
3863
4234

5189

1684

2134

4261
4941

4269

1143
1177
1227
1245
1307
1342
1403
1466
1502
1565
1628

1144

1669

5190

1180
1228
1246
1308
1343
1405
1470
1503
1567
1642
1670

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
3452
3677
3991

4235
4482
4525
4910
4940

5190

1686

1251
1314
1347
1450
1480
1514
1596
1652
1684
1793
1815
1880
1975
2013
2156
2243
2325
2378
2420
2446
2481
2904
2932
3139
3394
3418
3453
3678
3992
4238
4483

1257
1315
1381
1451
1481
1316
1597
1653
1691
1794
1858
1885
1978
2126
2220
2300
2326
2379
2427
2447
2482
2905
2935
3140
3395
3419
3454
3679
3993
4259
4484

5202

5203

4192
4260
4485
4542
4913
5173
5204

2148

2724

2727

4538
4911
4941

2146

4539
4912
4944

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

4491

4502

4516

4542

3419

3427
4554

1151
1181
1229
1250
1309
1344
1429
1471
1505
1568
1643
1671

1154
1182
1233
1251
1314

1155
1183
1234
1257
1315
1346
1439
1479
1511
1590
1645
1673

1156
1185
1235
1258
1316

1169
1188
1238
1283
1319
1381
1451
1481
1513
1595
1648
1683

2141

5204

2230

1345
1431
147S
1510
1589
1644

1672

2591

1450
1480
1512
1593
1646

1675

kb d

LNADO

t NO1

ZUNAD. P11

TEST

ONMAC
10 APR 84 08:5

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
$FSIF

$FSINC=

000110

000210

5202
7504

1252
1325
1439
1649
2154
2470
5310

7500

1861
1976
2304
2462

2945
3172

3696

$F$L00=
$FSNAM=
$SFSNO =

000200
000160
000403

4230
7500
7500
7500

1170
1189
1239
1284
1320
1383
1458
1491
1516

X04.07 563

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
1151
1253
1326
1442

1652
2370
2474
5313
1459
1863
1984
2309

APR

GLS

crd®s REFERENSE ?ABLE G USER SYMBOLS
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
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

107

PAGE

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

3175
5310
1184
1283
1333

1510
1665

7-24

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
5311
1186
1286
1334

1517

1670

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

SEG

1714
1803
1868
1954
1990
2137
2229
2309
2336
2409
2438
2465
2721

2913
2967
3186

3401
3433

3478
3721
4213
4477
4501
4558
4925

5178
5314
1194
1303

1346
1522
1794

1717
1804
1871

1955

1996
2140

2230
2310
2337
2410
2439
2466
2722
2918
2977
3189

3402
3441
3483
3847
4220
4478
4502
4850
4926

S179
5315
1223
1307
1348
1602

2383
2950

2414
4221

2417
4223

4224

1796
2425
4226

1600
1873
1996

1793
1875
1998

4234

2480
2958
3180
3706

4246

2379
2946
5317
1590
1871
1991
2316
2915
2961
3186
3710

1800
1879
2011
2328
2920
2977
3191
3721

1807
1883
2128
2333
2923
2981
3413
3726

1810
1949
2159
2335
2928
3160
3416
3848

1129
1171
1192
1240

1132
1172
1193
1241
1288
1330
1386
1462
1499
1524

1143

1144

1227
1245
1307
1343
1405

1228
1246
1308

2464

2951
3177
3699

1287
1326
1385
1459
1497
1519

2324

2326

2967
3188

2970
3189

4525

4530

4944

1133
1174
1196
1242
1294
1334
1387
1463
1500
1563

1137
1175
1198
1243
1298
1341
1402
1464
1501
1564

1138
1176
1223
1244
1303
1342
1403
1466
1502
1565

2916

3715

2918
5717

4950

1177

1470

1503
1567

2419

1180

1344

1429

1471

1505
1568

11351

1726
1806
1872
1961
1997
2141
2231
2312
2370
2413
2440
2470
2723
2923
3135
3390
3403
3442
3674
3848

4221
4479
4514
4851
4930

5180
5316
1227
1310
1349
1605
1798
2427

3849

4224
4480

4515
4908
4931
5188

1236
1314
1350
1880
2453

2151
2237
2317
2374
2415

2442
2476
2731
2925
3137
3392
3405
3446
3676
3863
4234

1736
1810
1876
1969
2010

2152
238
2324
2377
2419
2445
2479
2903
2928

3138
3393
3413

3452
3677
3991

4481
4516
4909
4939

4235
4482
4525
4910
4940

5189

5190

1239
1319
1387
1608
1882

1247
1323
1390
1643
2152

2457

2461

4237

4238

424C

1813
1954

1814
1956
2228

1858
1961
2300
2384
2939
3165
3483

1859
1963

2226
2340
2931
3162
3446
3858

1229
1250
1309
1345
1431

1510
1589

1511
1590

1475

3443
3675

1729
1809
1874
1968
2004

4235

1154
1182
1233
1251
1314
1346
1439

1181

1727
1808
1873
1962
2003
2146
2232
2313
2373
2414
2441
2475
2724
2924
3136
3391

O16¢

1479

2377
2936

3163
3448
4213

1155
1183
1234
1257
1315
1347
1450
1480
1512
1593

4217

1156
1185
1235
1258
1316
1381
1451
1481
1513
1595

2302

2445

2942
3169
3485
4220

1169
1188
1238
1283
1319

1382
1452
148¢
1514
159%

¢ ZLNADO LNOL
< ZLNAD.P11

LA
TEST
DNMAC Xx24.07 S63
10 APR 84
(09:07
PAGE
10 APR 84 08:55
CROSS REFERENCE TABLE

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

000320

5202
7509

1316

1660

2453

$FSRTI=
SFSRTN=
$F$SEL
=
SFSTHE
=

$F$TRU=
$FSUNT=
$FSWHI=

$FS$YES-=

000350
000300
000140
000330

000404
000130
000120

000402

4224
4921
750¢
7500
7500

7500
1346
2370
7500
7509
7500
1718
3429

4261
4556
4941
7509

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

1861
1948
1984
2131

2225
2303
2332
2393
2429
2453
2591
2907
2939
3160
3397
3426
3459
3681

4193

4261

5204

5290
1180

5173

1175
1334
1717
2591

4238
4931

1129
1151
1387
2379
1131
2222
1175
2134
3433
4264

1131
1180
1439
2414
1136
2242
1178
2136
3435

1129
1169
1185
1233
1247
1288
1320

1697
1799

4260
4485
4542
4913

4235
4926

4558
4951

1604
1662

4269

4560

5190
1132
1170
1186
1234
1250
1289
1323

4486
4552
4915
5174

1346

1794
2946
4261
4941

1136
1192
1519
2419
114}
2411
1180
2141
3443

4272
4851

5193
1133
117
1188
1235
1251
1294
1325

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

7 25
USER

1628
1669
1700
1801

1864
1950
1989
2134
2227
2308
2334
2404
2432
2459
2603
2909
2946
3169
3399
3431
3476
3706
4195

4268
4490
4554
4920

5176
5311
1223

1403
2134

3427

1642
1670
1714

1803
1868
1954

1990
2137
2229
2309
2336
2409
2437
2464

2720
2910
2958
3177
3400
3432

3477
3715
4196

4269
4491
4557
4921

5177
5312
1227
1439
2141
3433

4269

4491

4502

114}
1223
1602

1149
1227
1606
2470

1239
1643
2946

5190

2453
2418
1294
2143
3451

4491

4858

5204
1137
1172
1189
1236
1252
1298
1326

5204

1316

2230
3454

4493

4916

5208
1138
1174
1192
1238
1253
1303
1330

SEQ 0163

SYMBOLS

5310

1324
2233

3456
4502
4919

1143
1175
1193
1239
1254
1307
1331

1643
1671
1717
1804
1871
1955
1996
2140
2230
2310
2337
2410
2438
2465
2721
2913

2967

3186
3401
3433
3478
3721
4213

4477
4501

1644
1672

1726

1806
1872
1961
1997
2141
2231

2312
2370
2413
2439

2466
2722
2918
2977
3189
3402
3441

3483
3847

4220
4478

4558

4502
4850

5178
5314
1239

5179
5315
1283

4925

1519

2152

3443
4516
5315

1283
1652

4926

1565

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
3460

2230
3454
4542

4554

1303
1660

1307
1670

4221

4224

4235

1356

1403
2591
3462

2598
3478

2414
3460

4507
4921

4516
4924

1144

1149
1177
1196
1241
1258
1309

1176
1194

1240
1257
1308
1332

1333

1406

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
4908
4931
5188

1648
1683

173€
1810
1876
1969

2010
2152
2238

2324
2377
2418

2442
2476
2731
2925
3137
3392
3405
3446
3676
3863
4234
4481
4516

4909
4939

5189

1652
1684
1793
1815
1880
1975
2013
2156
2243
2325
2378
2419
2445
2479
2903
2928
3138
3393
3413
3452
3677
3991

4235
4482
4525
4910
4940

5190

1307
1643

1314
1652
2419

4851

4916

1794
4238

1314

1326
1880
5310

1334
2152
5315

1565
3419
3481

1569
3424
3993

1717
3427
3995

1303
1606
2379

3478
4558

2414
3993

4221

4518
4926

4542
4929

4545
4931

4554
4934

1151
1180
1198
1242
1261
1310
1334

1153
1181
1223

1154
1182
1227

1155
1183
1228
1245
1280
1310
1340

1243
1283
1314
1336

1244
1284

1315
1341

CZUNADO t NOL1
CZUNAD.P11

T1 3

TEST
ONMAC X24.07 563
10 APR-84
09:07
PAGE 7-26
10 APR 84 08:55
CROSS REFERENCE TABLE -- USER SYMBOLS

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

$SIFLEv=

$ISKO

$ISK1 =
$ISK2 $ISK3 =
$LO
SLOCYA=

177777

000001

000001
000001
000001
177777
177777

5203
7500
1283¢
13484
16024
17986
24530

42400

11510
1390
1643¢
2154
29464
5317
12274
1239¢
13192
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¢

1880¢
2461
5310¢

1153
14390

1649
2370¢

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
11534
13036

13504

1606¢
18824
2470¢

53136
11800
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¢
13070
1387¢
16084
21529
2478¢
5315#
1186
1499¢
1656
23790

2950

422140

4223

1253
1252
1323
1131¢

13074
13144
13264
11360
1129
1190

1333
1332
1331
114190
1131
1192
1289

7530
1186

1283

1286

1347
1405
1466
1502
1524
1602
1652
1675
1727
1804
1871
1954
1990
2137
2227
2308

2334
2393

2426
2AAT7
2476
2724
2924
3135
3390
3403
3442
3674
3848

4221

4268

4490
4554
4920

5176
5311

1186¢
13140

1390¢

16434

21540
29464
53174
11924

1507
16600

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
5312
1192¢

1319¢
1439¢
16499

23704

2950¢

1194
15100
1665
24148

2383
42244

4226

13340
13460

1349
1348

1136
1194
1294

1141
1223
1303

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
4224
4477
4501
4558
4925
5178
5313
11944

13234
14420
1652¢
23720
42214

12230
1517
16709

SEQ@ 0164

1350
1439
1475
1507
1565
1606
1660
1684
1793
1809
1874
1962
2003
2146
2231
2312
2370
2409
2431
2457
2481
2904
2932
3138
3393
3413
3452
3677
3991

4226

4478
4502
4850

4926

5179
5314
12230
13260
1499¢
16560
2379¢
42234

1381
1442
1479
1510
1567
1608
1661
1691
1794

1810
1876
1968

2004
2151
2232
2313
2372
2410
2432
2458
2482
2905
2935
3139

3394

3418
3453
3678
3992
4234

4479
4514
4851
4930

5180
5315
12270
1331¢
15070
16600
23839

42240

1283¢
1522
17940

1382
1450
1480
1511
1568

1628
1662
1694

1795

1815
1880
1969
2010
2152

2237
2317
2373
2413
2437
2459
2590
2906
2936
3140
3395
3419
3454
3679

3993

4235
4480
4515
4908
4931

5188
5316
1239¢
1332¢
15108
16650
24140

1383
1451
1481
1512
1589
1642
1663
1696
1796
1858
1882
1975
2013
2154
2238
2324
2374
2414
2438
2461
2591
2907
2939
3141
3396
3425
3458
3680

4192
4237
4481
4516
4909
4939

5189
5317
12520
13330
1517¢
16708
24178

2946
3163

3398
3427
3460
3696

4193
4238
4482
4525

4483
4538

5190

5202

4910
4940

1253%
13342
15192
16768
24192

4i94

4240

4911
4941

42350

42374

1289
16022
1798
24530

1350
1606%
1882
24704
5313

13872
1608
2152#
2478
53152

1178
1253
1323

1180
1254
1324

4237

2427
4238¢

4240

1149
1227
1307

1151
1236
1310

1153
1239
1314

1174
1247
1316

1175
1252
1319

2417

1514
1593
1644
1669
1699
1798
1860
1943
1979
2128
2220
2300
2326
2378
2417
2440
2465
2603
2909

42260

42350

1519¢
1676
24190

1386

1458
1491

1261¢
13464
15222
17942
28270
42380

1303¢
1605
1880¢
2461
5310¢

1261

1385
1452
1486
1513
1590
1643
1665
1697
1797
1859
1885
1978
2126
2156
2243
2325
2377
2415
2439
2464
597
2908
2944
3160
3397
3426
3459
3681

CZLNADO ENO1
CZLNAD.P11

J13

TESTY
ONMAC X24.07-563
10-APR-84
09:07
PAGE 7-27
10-APR-84 08:5%5
CROSS REFERENCE TABLE -- USER SYMBOLS
1325
1390
1519
1653

1796

1873
1989
2154
2316

2411
2470
2920
2958
3180
3443
3699
421%
4246

4542
4929

$LSKO $LSTIN-

000000
000000

5315
1129¢
7504
1154
1180

1198

1242
1283
1315

1343
14902
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

5317
1131
7518
1155
1181

1223
1243
1284

1316
1344
1403
1463

1499
1524
1596
1648

1675
1726
1804
1862
1883
1968
1997
2136
2224
2243
2316
2337
2404
2429

2453

2480
2727
2918
2944
3138

1331
1406

1565
1656
1800

1879

1996

2222
2326
2417
2478
2925
2967
3188
3448
3710

1382
1431
1569
1660
1807
1880
1998
2226
2328
2418
2480
2928
2970
3189
3451
3715

4220
4264
4554
4934

4221
4269
4556
4941

1136
1129
1156
1182
1227
1244
1286
1319
1345
1405
1464
1500
1562
1597
1652
1683
1727
1806
1863
1885
1969

1141

1998
2137
2225
2300
2317
2340
2409
2431
2457
2481
2731
2920
2945
3139

1333
1433
1590
1665
1810
1882
2011
2228
2333
2419
2591
2931
2977
3191
3454
3717

4223

4272
4558
4944

1132
1168
1183
1228
1243
1287
1320
1346

1133
1169
1184
1229
1246
1288

1466
1501
1563
1599
1653
1684
1729
1807
1864
1943
1975
2003
2140
2226
2301
2324
2370
2410
2432
2458
2482
2734
2923

1470
1502
1564
1600
16355

1406

2946
3140

1324
1347

1429

1686
1736

1808
1867
1944
1976
2004
2141
2227
2302
2325
2373
2413
2A37
2459
2590
2903
2924
2951
3141

1334
1439
1600
1670
1813
1883
2128

2230
2335
2425
2598
2934
2981
3413
3456
3721

1336
1442
1602
1676
1814
1949

2134
2233
2340
2427
2724
2936
3160
3416
3460
3726

SEQ 0165

1346
1459
1605
1684
1858
1954
2136
2242
2370
2445
2727

1348
1492
1606
1686

2939
3162
3419
3462

1859
1956
2141
2300
2372
2453
2731
2942
3163
3424
3478

3849

4224
4491
4560
4950

4226
4493
4851
4951

4230
4502
4858
5190

4234
4507
4916
5193

1136
1170
1185
1233
1247
1294
1325
1356
1431
1471
1503
1565

1137
1171
1188
1234
1250
1298
1326
1358
1433
1475
1505
1567

1138
1172
1189
1235
1251
1303
1330
1381
1439
1479
1510
1568
1606

1141
1174
1190

1696
1795
1813
1872
1950
1983
2013
2148
2230
2305
2328
2378
2418
2440
2465
2598
2906
2931
2967
5163

1697
1796
1814
1873

1602
1660

1691
1793
1809
1868

1948

1978
2010
2143
2228
2303
2326
2374
2414
2438
c462
2591
2904
2925
2958
3160

1604
1661
1694

1794
1810
1871
1949
1979
2011
2146
2229
2304
2327
2377
2415
2439
2464

2597
2905
2928
2961
3162

1662

1236
1254
1307
1334
1382

1450
1480
1511

1569
1628

1663

1954
1984

2126
2151
2231
2308
2329
2379
2419
2441
2466

2603
2907
2932
2970
3165

1349
1499
1608
1717
1861
1961
2143
2302
2377
2457
2734
2945
3165
3427
3481
3855
4235
4516

4919

5204

1143
1175
1192
1238
1257
1308
1335
1383
1451
1481
1512
1570
1642
1669

1699

1797
1815
1874
1955
1985
2128
2152
2232
2309
2332
2380
2420
2442
2470
2720
2908
2934
2977
3169

1350
1507
1643
1718
1863
1963
2146
2304
2379
2461
2913
2946
3169
3429
3483
3658

4237
4518
4921
5208

1144
1176
1193
1239
1258
1309
1336
1385
1452
1486
1513
1589
1643
1670
1700
1799
1858
1875
1956
1989
2129
2156
2233
2310
2333
2382
2423
2445
2474
2721
2909
2935
2981
3172

1356
1510
1649
1793

1867
1976
2148
2309
2383
2462
2916

2950

3172
3433
3485
3993
4238
4525
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
1817
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 LNOL
CZLNAD.P11

TEST
DNMAC Xx24.07 563
60;APR10 APR 84 08:55
CROSS REF
3186
3399
3426
2452
3485
3715
3995

4235
4379
4502
4553
4912
4934

$LSTYA-

000000

5179
5312

7500

1186
1316
1403
1600
1793
1871
1989
2159
2326
2425
2727
2939
3163
3424
3478
3849

4240
4530
4926
SNESTL=

177777

5317
7500
11860
12830
13260
14030
1522¢
16552
17980
1875¢
19910
2159¢
23240
24144
2474
2923¢
29610
31864
34460
37060

42174

3188
3400
3427
3453
3674
3717
4192
4238
4480
4507
4554
4913
4939
5180
5314
7524

1190
1323
1406
1605
1796

1873
1991
2222
2328
2427
2731
2942
3165
3427
3481
3855

3189
3401
3429
3454
3675
3721
4193
4246
4481
4514
4556
4915
4940

5188
5315
1129
1194
1324
1431
1608
1798
1875
1996
2226
2333
2445
2734
2945

35169

3429
3483

3858

K13

ERende: PiaLERCE 65@8 SYMBOLS
3191
3402
3431
3456
3676
3726
4194
4259
4482
4315
4557
4916
4941

5189
5316
1131
1236
1325
1433
1649
1800
1879
1998
2228
2335
2457
2913
2950

3172

3433
3485

3993

4246
4542
4929

4261
4545
4931

4264
4554
4934

11299
11902
1286

1131
1192¢

1136
11940
12949
13334
1433¢
15904
16654
18100
18820
20114
2228¢
23334
24194
25910
29314
29774
3191¢

13316
1406¢
1565¢
1656¢

1800¢
1879¢
19964
22224
23264
24174
24784
292548
29674
3188¢
34484
37104

42204

1289¢

13326
14316
1569¢
16604
1807¢

18800
1998¢
22260
23286
24180
24804
29288
29704
31894
34510
37154

422106

34544
3717#

42234

3390
3403
3432
3458
3677
3847
4195
4260
4483
4516
4558
4919
4944

5190

1136
1247
1331
1442
1653
1807
1882
2011
2230
2340
2461
2916
2951
3177
3435
3696
3995
4269
4556

4941

1141
12234

13030
13340
1439¢
1600#
1670¢&
1813
18834
21280
22300
23358
2425
25984
29340
2981¢
34134
34564
37214

42244

3391
3404

3433
3459
3678
3848

4196
4261
4484
4518
4560
4920

4950
5193

1141
1252
1332
1459
1655

1810
1883

3392
3405
3435
3460
3679
3849

4213
4264
4485
4525
4850
4921
4951

5202

1149
1252

1333
1492

1656
1813
1949

2128
2233
2372
2462
2918
2938
3180
3443

2134
2300
2377

4213
4272
4558
4944

4217
4491
4560
4950

11494
12270
1307¢
1336
14420
1602¢
16760
18140
19494
21340
22334
23404
24274
27244
29369
31600

11514
1236
1310
13464
14590
1605¢
16840
1858¢
19540
21364
22428
23704
24458
21274
29394
3162¢
34192
34624
38484

3699

34164
3460¢
372646
42264

2464
2920

2961
3186
3446
3706

42300

SEQ 0166

3393
3413
3441
3462
3680
3855
4217
4267
4486
4530
4851
4924

5173
5203

1153
1254
1336
1507
1665
1814
1954
2136
2302
2383
2474
2923
2967
3188
3448
3710
4220

4493

4851
4951

11532
1239¢
13140
13480
1492¢
16064
16864
1859¢
19560

21414

23004
23724
245346
2731#
29429
31632
34244
3478¢
38490
42342

3394
3416
3442
3476
3681
3858

4220
4268
4489
4538
4858
4925

5174
5204

1174
1261

1348
1517
1676
1858

1956
2141
2304
2384
2478
2970
3189
3451
3715

3395
3418
35443
3477
3696
3863

4221
4269
4490

4539
4908
4926

5175
5208

1175
1286
1349
1522
1684
1859
1961
2143
2309
2411
2480
2928
2917
3191
3454
3717

4223
4502
4858

4226
4507
4916
5193

11740
1247
13162

1175¢
1252#
1319¢
1350¢
1507¢
16430
17186
18634
19632
2146#
23040
23798
2461¢é
29134
29464
3169¢
34292
34832
3853¢
42374

5190

13494
14999
1608¢
1717
1861¢
19612
21430
2302
23774
2457
27344
29450
3165¢
34270
34812
38554

4235¢

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

4516
4919

5204

11782
12534
13232

13569
15100

16494
17938
18672
19762
21480
2309¢
23834
24624
29169
2950¢
31729
34336
34853
39932

42382

3397
3424
3448
3481
3706
3992
4230
4477
4493
4545
4910
4930

5177
5310
1180
1294
1356
1569
1717

1863
1976
2148
2316
2417
2598
2934
3160
3416

3460
3726
4234

4518
4921

3398
3425
3451
3483
3710
3993
4234
4478
4501
4552
4911
49131

5178
S311
1184
1310
1340
1590
171¢

1867
1984
2154
2324
2418
2724
2936

3162
3419
3462
384°

4237
4525
4924

5208

5313

1180¢
1254
13244
13872
1517¢
1652¢
17949
18712
19849
21528
23118
23842
24645
29184
2951¢&
31774
34352
3696%
3995+

1184
12612

42402

1325
13902
1519¢
16532

1796
18732
19892
21542
23169
c4lle
24702
29208
29582
31802
34438
3699

4213+
42462

CZLNADO LNO1

CZLNAD.P11

TEST

DNMAC X24.07-563

10-APR 84 08:55

4261%
45454
ggi%#

10 APR-84

9:07

PAGE

CROSS REFEREN?E ?ABLE - USEg SYMBOLS

SEQ 0167

42640
45544
49344

42694
45564
49410

42724
45584
49440

44910
45604
49500

44934
48510
49114

45024
48584
51900

45070
49160
51934

45164
49190
52044

45184
49214
S2084

45250
49246
53100

45300
492606
53136

45424
4929¢
53150

1131

1136

1141

1149

1151¢

1153

11740

1190

1192¢

1194

12236

1254

2316

23244

2340

23706

2372

23770

2384

4518
49210

435254
4924

4530
49264

45426
4929

4545
49314

45538
4934

4556
49414

$NSKO

000110

1129¢

1261
1442
16026
1686

22224

000210

$NSK2

000210

$NSK3 =
$NSK4 =
$NSK5 =
$SAVE =
$SAVE2=
$SAVLE=

$SELLE=
$55K0 =

$S5K1 =
$S55K2 =
$TAGLE=

000110
000110
000110
050004
050005
177777

000000
050545

000402
050005
177777

1286
1492
1606¢
1718

2242

23004

45026
4858

4507
49164

45164
4919

1175¢

1178

2425
2916
31638
3424
3483¢
3995

$NSK1

12830
14594
1605
1717¢

52044

1796
1956
21524
2335
29364

2427
29186
3165
34274
3485
42130
5208

1798
1961#
2154
2379¢
2945

1289
14994
1608
17930

24450
2920
31690
3429
3696¢
4217

2462
29236
3172
34334
3699
42206

53104

5313

11804

1184

12944
1507
16436
1814

24644
2951
3177¢
3435
37064
4230

S315¢
1186

1356
1310¢
1649
18584

2480
29584
3180
34436
3710
42346
5317

12274

1387¢
1517
1652¢
1883

25914
2961
31864
3451
3715¢
4246

1236

1390
1519¢
1656
19494

2598
29674
3188
34544
3717
42614

1253

14030
1522
16604
1976

27244
2970
31894
3456
37214
4264

13034

1406
15650
1665
19844

14316
1569
16704
2011

1433
1590¢
1676
21284

2727
29774
3191
34606
3726
42696

27316
2981
34130
3462
38480
4272

2734
3160¢
3416
347840
3858
44916

1350

24110

45589
4951
16534

1439¢
1600
1684¢4
2159

2418

24190

4560
51904

48512
5193

1655

29134
3162
3419¢
3481
39932
4493

17949

18006
1963
22264
2383
2946¢

1807
1989¢
2228
24146
2950

1810¢
1991
22308
2417
34460

1813
19964
2233
24534
3448

1859¢
1998
2302¢
2457
38496

1867
21344
2304
2461
3855

18714
2136
23094
2470¢
42214

1879
21414
2311
2474
4223

18800
2143
23264
2478
42244

1882
21466
2328
29254
4226

19542
2148
23338
2934
42352

1252

1307¢

1310

1333

13346

1336

1349

18614

1863

18732

1875

4237

42384

4240

29284

2931

29394

2942

1324
1323
11294

13260

1331

1129¢
7508

1129°

11496

11748

11786

13240

13564

140606

14310

1459%

15699

1590¢

1653#

16844
19840
23268
29450
34294
38580

17186
19894
23338
29514
34354
39958

17934
19964
23776
29616
34484
42176

18006
21364
24456
29704
34510
A2308

18104
214348
24640
29814
34560
A2468

18634
21486
25980
316240
34624
42640

1867¢
21590
27240
31656
34810
42724

1875¢
22264
27310
31720
34854
44930

18790
22334
29134
31804
36996
45078

18830
23006
29184
31886
37106
AS18¢

1949¢
23028
29318
31914
37178
AS308

19542
23090
29348
34169
37264
45458

19614
23242
2942%
34249
3855%
45567

11290
1149

1131
11740

1136
11780

1141
13244

13566

14060

14316

14590

15690

15904

16534

16842

12394

13142
1316¢
13196
7504

456006
7506
1129¢

17184
19890
23330
29518
34356
39950
48584
1129¢
11294
7506

11864
1283#
13264

1247

1325

48586

17934
19964
23774
29614
34484
42174
49196
1149
1149
11294

11904
12866
13310

1332

49440

1346¢

4950
1348

11494

49190

49244

49290

49344

49500

49510

51934

S52084¢

18004
21364
24456
29704
34516
42300

18104
214306
24644
29810
34560
42464

18634
21484
25986
31624
34624
42640

18674
21596
27240
316546
34816
42720

18756
22264
27314
31720
34850
4493H4

18794
22338
29136
31804
3699
AS5074

18836
23008
29180
31880
37106
45184

19494
23028
29318
31914
37178
45300

19546
23090
29344
34168
3726¢
45458

19612
2324&%
29424
34248
3855%
45562

19842
23264
2945¢
34290
38582
45608

1131

1136

1141

11494

1151¢

11534

1174¢

1175¢

11784

11802

11848

11924
12894
13324

11946
12944
13334

12234
1303¢
13344

12274
13076
13360

12364
13104
13464

1239¢
13140
13480

12474
13164
13494

12528
1319%
13504

12536
13230
13560

12548
1324%
1387¢

1261&
1325%
1390¢

49244

49294

49340

49500

49516

51938

52080

CZLNADO LNO1

CZLNAD.P11

TEST

DNMAC X24.07-563

10 APR 84 08:55

140346
1522¢
1655¢
1798¢
1875¢
1991¢
21594
23244
24140
24748
29238
2961¢
3186¢
34464
37060

14316
1569¢
16604
18074
18804
19984
22264
23284
24184
24808
29284
29704
31894
34510
37150

050550

750¢

11294

1254¢
13360
16064
18584

12834
13466
1643#
18594

050547

M13

Sea o168

14334
1590¢
16654
1810¢
18824
20114
22286
23336
24194
25914
29314
29774
31916
34544
37174

14394
16004
16704
1813¢
18834
21286
22304
23354
24256
2598¢
29344
29818
34130
34560
37210

14420
16024
167646
18144
19494
21346
22334
23400
24270
27244
293640
31604
34164
34604
37264

14590
1605¢
1684¢
18584
19544
21364
22426
23700
24450
27274
29394
31624
34196
34620
38484

14924
16066
16864
18594
19564
21410
23004
23724
24536
27314
29424
31634
34240
34784
38494

14992
16084
1717¢
18616
1961¢
21434
23020
23774
24570
27340
29450
31654
34270
34810
38556

1507
16434
17184
18634
196306
21460
23040
23794
24610
29136
29464
31694
34294
34830
38580

15106
16499
17934
1867¢
19764
21486
23094
23834
24626
291646
29500
3172¢
34330
34850
39930

1517¢
16520
17940
18710
19840
21528
23114
23840
24640
29186
29518
31776
34354
36964
39954

1519@
16530
17960
18739
1989¢
21540
2316¢
2411¢
24704
29204
29589
31809
34430
36990
42130

1151¢

11744

11756

11804

11844

11926

12234

12270

12360

123906

12479

12860
13874
16524
18616

12944
14030
16534
18714

13034
14314
16600
18734

13074
14390
16700
18804

13104
14594
16844
19494

13142
14996
17176
19540

13164
15106
17934
19610

131906
15190
17940
19840

13256
15654
17964
19894

13260
15908
1800¢
19960

13340
16020
18100
21284

24644
29466
34330
39930

24700
29589
34430
42132

11499

1153¢

42214
42698
45560
49414

42230
42724
45584
49440

42240
449186
45604
49504

42264
449340
48514
49514

42300
45024
48580
51904

42344
45074
49164
51934

42350
45166
49190
S2044

42374
45186
49216
5208

42380
45254
49240
S3106¢

42400
45306
49264
S3138

21346

21414

21464

21528

22228

22264

223006

23000

23026

23090

23244

23264

422086
4554¢

42210
45580

42244
48510

A2344
49164

42354
49210

42384
49260

42614
49314

42694
494106

44918
49440

45020
51900

45169
S2040

45256
53104

11549
11834
12338
12504
12984
13366
13834
1452¢
14862
15144
15954
16480
1675¢
17268
18044
18620
18834
19686
19974
21374
22268
2302¢
23254

1155¢
11844
12344
12514
13084
134146
13854
14584
14910
1516&
15964
16494
16764
17274
18060
18634
188546
19694
19984
21400
22274
23034
23264

11564
1185¢
12356
12524
13096
13420
13864
14590
14926
15174
15974
16534
16834
17294
1807¢
18649
19434
1975¢
20034
2143¢
222846
23046
23274

1169¢
11864
12366
1253¢
13100
13430
13904
14624
14974
15224
1599¢
1655¢
1684&
17364
18086
18674
19440
19764
20040
21466
22294
23054
23284

11700
1188¢
12380
12540
13154
13444
14024
14630
15000
15244
16004
16564
16864
17936
18094
18680
19484
19784
20100
21486
22310
23086
23294

11718
11892
12404
12574
13204
13450
14054
14640
15014
15634
16048
16614
16910
17956
18104
18710
19494
19794
20114
21514
22320
23090
23324

11746
11930
12420
12614
13249
13480
14290
14700
15036
15670
16080
16634
16960
17976
18144
18736
19546
19840
21264
21564
22376
23116
2334%

11764
11944
12436
12840
13256
13492
14314
14710
15054
15684
16284
16654
16974
17988
18154
187446
19554
19854
21284
21596
22380
231246
23350

237046
24749
29674
34460

$STEMP

42200
42644
45544
49344

9:07

CROSS REFERENCE TABLE qg usgg SYMBOLS

14060
1565¢
16564
18004
18796
19962
22220
23260
24174
24784
29256
29678
31880
34480
37104

42174
4261¢
45456
ggi%z
$TAGNU=

_10-APR-84

7504

23774
25910
29774
34544
11296

2379¢
27248
31604
34600
11316

24114
27314
31634
34780
11324

24140
29136
31690
34830
113360

24180
29186
31774
36969

11364

24190
29230
31864
370646
11374

1172¢
11904
12414
12580
13234
13474
14064
14664
15026
15644
160506
16628
16940
17964
18134
18724
19504
19834
20134
21540
22334
23104
23334

24250
29250
318906
37156
11386

24458
29286
34134
3721¢
11416

24530
29360
3419
38480
11436

1177¢
11966
12444
1286¢
1330¢
1350
14336
14756
1S07#
1569¢
16420
1669¢
169%
17996
18584
18756
19566
19898
21294
22204
22426
23138
23364

24576
2939¢
34276
38490
11444

1178¢
1198¢
12458
1287¢
1331&%
13564
14420
14799
1511é
1589%¢
16446
16718
17004
18004
18592
18764
19614
19906
21312
22238
22434
23164
23374

11810
12288
12468
12888
1320
1361
14508
14804
1512¢
1590&
16450
1672%
17146
18012
1860¢
18794
1962¢
19912
2133¢
2224%
23008
2317¢
23408

42460
45420
4929¢
53150

23330

45420
S3154

1182¢
1229
1247@
12894
13332
13822
14510
14819
1513#
1593¢
1646¢
16734
17184
1803%
18612
18822
19638
19964
2136¢
22254
2301#
23248
23728

CZLNADO LNO1

CZLNAD.P11

TEST

ONMAC

10-APR -84 08:5&
23734
24130
24380
24624
25974
29050
29286
29610
31624
33926
3405¢
34460
34854
37156

$TSKO

$TSK1

050547

050545

$TSK3

050536

050541

23740
24150
24390
24644
25984
29060
29314
29674
31634
33934
34130
34480
367440
37174

_10-APR-84

23770
24174
24400
24654
26034
29076
29324
29704
31650
33944
34166
34510
36756
37214

41930
42464
44834
45300
49104
49404

41944
42594
44840
45384
49114
49448

11296

1149

1151¢

5188¢

51894

09:07

PAGE

7-3

CRbSS REFgRENSE ?ABLEAQ- USE% SYMBOLS

4192¢
42400
44826
45254
4909¢
49394

S1936

23780
24180
24410
24660
27204
29080
29344
29774
31694
339S5¢
34184
34520
36760
372646

419546
42600
A4850
45394
49124
49504

52024
1153

23804
24200
24424
24740
27216
29094
2935¢
29816
31726
33964
34244
34534
36774
38474
41960
42644
A4864
45450
49134
49510

5203#

1174¢

2382¢
24234
2445¢
2475#
27224
291046
29364
31354
31774
33974
34250
34560
3678¢
38484
42134
42674
44890
45524
49154
51734

5208¢
1190

1289
14994
1608
17934
2316
2462
2923¢
3172
34334
3699
42204
4518
49214
5313

12948
1507
16434
1814
23246
24644
2951
3177¢
3435
37064
4230
4525¢
4924
5315¢

1356
1510¢
1649
1858¢
2340
2480
29584
3180
34436
3710
42344
4530
49264
5317

1387¢
1517
1652¢
1883
23706
2591¢
2961
31864
3451
3715¢
4246
45424
4929

1390
1519¢
1656
19490
2372
2598
29674
3188
34540
3717
42619
A545
49314

1403¢
1522
16604
1976
23774
27246
2970
3189¢
3456
37210
4264
45544
4934

1149

11748

1190

12274

1433
1793¢
2233
2591¢
2961
31864

1459¢
1814
2300¢
2598
29674
3188

1492
1858¢
2316
27249
2970
31894

1565¢
1883
2324¢
2727
29774
3191

1569
19498
2340
27314
2981
34134

1590¢
1976
23774
2734
3160¢
3416

1129¢

3451
3715¢
4246
45424
$TSK2

X24.07-563_

N13

1141¢

4929
1129¢

34540
3717
42614
4545

49314
11364

3456
37216
4264
45544
4934
1149

49414
1175¢

1653¢
18804
2143
23264
2934

1655
1882
21466
2328
29364

17944
19544
2148
23334
2945

17964
1956
21524
2335
29464

42354
1129¢

4237
1131¢

42384
1149

34600
3726
42694
4556

4240
11754

3462
38484
4272
45580

34784
3858
44910
4560

1798
19614
2154
23796
2950

18004
1963
22264
2383
34460

4951
1178

49444
1178

51904
11804

4950
1307¢

2383¢
2425¢
24464
24764
27230
291346
29394
31364
3180¢
3398¢
34264
34584
36794
38494
42174
4268¢
44904

45534

49194

51744
5290¢
1192¢
1406

15654
1665
19840
2384
2727
2977¢
3191
34600

3726
42690
4556
49414

12364
1600
1984¢
2384
29134
3162
3419¢
3481
39932

4493
48510

5193
11844
1807
19894
2228
24530
3448
13104

SEQ 0169

2384¢
24260
24470
247846
27244
29160
29424
31374
31864
33994
3429¢
34594
36800
38554
42200

42724
44934
45564
49200

51754
5311¢
1194
14314
1569
16704
2011
2411¢
27316
2981
34134
3462
3848¢
4272
45584
4951

1253
1653¢
2011
24140
2916
3163¢
3424
34830
45024
4858
52040

1186
1810¢
1991
22304
24574
3849¢
1333

23930
24274
24484
24794
27274
29184
29444
31380
31880
34004
34314
3462¢

36814
38584

42234
44774
45010
45574
49244

5176%
53124
12234
1433
15904
1676
21284
2418
2734
31600
3416
34780
3858
44914
4560

51904

12940
1655
2128¢
2417
2918¢
3165
34270
3485
42130
4507
49166
5208

23984
24294
24574
24800
27314
29204
29450
31394
3189¢
34014
34320
34764
36964
38634

42264
44784
45074
45600
49256

S1774
5313¢
12544
1439¢
1600
16844
2159
24190
2913¢
3162
34194
3481
3993
4493

24040

24314
24584

24814

27344
29236
31404
31916
34024
34354
34774
36994
3991¢

42304
44794
45144

48504
49290
51784
S314¢
1261
1442
1602¢
1686
22224
24254
2916
3163¢
3424

48516

3995
45028
4858

1356
16840
2159
24458
2920
3169¢
3429
36964

14034
1686
22269
2462
2923¢%
3172
34332
3699

5193

52044

4217
45169
4919

42204
4518
49210

2409¢
24324
24594
24826
29034
29244
295140
31414
33900
34034
34410
34814
37064
39924

42349
44800
45154
48584
49304
51794

53169
1283¢
14599
1605
17174
2242
2427
2918¢
3165
34274
3485

24104
24374
24610

2590¢
29040
29250
29584
31604
33914
34040
3442¢

34830
37104

39954

42374
44814
45184
49084
49344
5180¢
53174

1286
1492
16064
1718
23004
24459
2920
31692
3429
36964

42134
4507
49162

4217
45164
4919

1406
1717

143i¢
1718
22304
2480
29588
3180
344345
3710
42345
4530

5208

2228
24640
2951
31774
3435
37064
4230

45258
4924

1303#
18712
2136
23094
2478

53109

4926

1350
1879
21414
2311
2925¢&

1239¢
1813
1996¢
2233
2461
3855

12474
1859¢
1998
23024
247084

4221

1252
1867
2134¢
2304
24740
4223

42249

4226

13342

13362

1349

18002

1807

<LNADO L NOL1

CZLNAD.P11

TEST

$TSK4

050321

$TSKS

050324

$TSK6

» 050040

$TSK>
$¢

«
«

050041
000403

$$ARGC*
$$817E+«

000000
000403

$$CASE=
$80ST «
$$ELOC+

000404
000037
000402

$SERFL= 000000
$$FLAG= 000001

ONMAC

10 APR 84 08:5%
1810¢
1998
23336

ééi::

1129¢

102165

1136

PAGE

TABLE

USER SYMBOLS

SEQ 0170

18598
2136
29250

1867
21410
2934

18710
2143
29360

1879
21460
2945

19542
2148
34460

1956
23028
3448

196106
2304
38496

1963
23090
3855

1989¢
2311
49440

1991
23260
4950

19960
2328

29280

293}

1141

1149

13160

1324

13260

1331

18610

1863

18730

1875

29288

14590

15900

1653¢

16840

17930

13140

1332

13460

1348

18610

1863

18730

1875

19490
23266
29390
36960

19542
23330
29580
37064

19616
23770
29676
37156

19840
24456
29776
37218

19890
24646
31600
38484

19968
27240
31630
38490

21280
27310
31690
42136

21460
29136
31776
42200

22268
291808
31860
42340

23000
29230
3189¢
45250

23020
29250
34130
49440

23090
29288
34460

1151¢

11756

11808

11926

12234

1227¢

12390

12834

1294¢

13030

1307

13140

7500
7500

13160
166080
24530

1323
14310

13260
16704
24706

42248
49210
7500
7500
750

42354
49264
11290
2224¢
11516

12526

1253&

1325
1439¢
1649¢
2154¢
24708
5310¢
750¢
7500
12610

42240
45580
1335¢
7500
13350
7500

2942

13250

18736
23240
29360
34830

13190
11740

13140
1602¢
23704
$$LOC

5&:3‘

09:07

29390
1324

16600
22300
25910
000000
000000
000000
000403

1813
21340
2335

10 APR 84

CROSS REFERENCE

2931
13160

13330
15100

$SFRMB=
$$FROM=
$$IN
=
$3$INM =

X24.07 563

14
b1L

13340
17174
25910

13874
18800
34196

14030
21340
34276

14398
21410
34334

15190
21520
34430

18710

A5160
S315¢0

45420

16020
23708
34600

1606¢
23798
34780

16430
24148
39938

16520
24190
42219

11530

11800

1184

11860

11920

11940

12230

122786

1236

1239¢

1247

1254

12610

1283

1286

12899

13036

1307¢

1310

13140

13190

1323¢

1151

1153¢

117Se

13340
1517
16700
24140
42210

1180¢

11860

ASS80

48510

49160

1336
1519¢
16768
24170
42230

13460
15226
17940
24190
42248

13480
16020
1796
2425
42268

13490
16050
17980
24270
42358

13500
16060
1880¢
24538
42370

13870
1608¢
18820
2457
A2380

1390¢
16430
21520
24610
4240¢

11920

11940

12238

12270

12390

12520

12530

42358
49168

12946
13486
1522¢
16768
23796
34196

42370
49210

13030
13490
15650
1717¢
23834
34270

1307¢
1350
16020
17940
24140
34334

13140
13874
16050
1798¢
24170
34430

13164
13900
16060
18800
24190
34548

13196
14030
1608¢
18826
24270
34600

1323¢
14390
16430
21340
24538
34780

13268
14420
16490
21410
24610
39930

13310
14990
16520
21520
24700
42210

13320
15072
16569
21540
24780
42230

1129¢

11514

1175¢

11804

11920

12234

12270

1239¢

12839

12940

130350

1307¢

13160
16069
23790
34608

1319¢
16434
24140

1326¢
16524
24180
39930

13340
16608
24190
42210

13460
16700
24538
42244

13874
1717
24700
42356

14030
17949
25914
42380

1499¢
21340
34190

4491e
52048

15190
21528
34338

15659
22308
34430

49419
1239

A269¢
51900

15100
21410
34276

49310
12270

1439¢
18800
29468
42610

42260
48510

12898
13460
1519¢
16708
23724
29504

13334
15100
16650
23834
29500

45540

42388
49260

42404
49316

42610
49410

42696
51900

44910
S2048

45028
53100

45168
53136

45428
S3158

45542
S5317¢

1335¢

45548
11290

34784
45580
11510

13140

13166

13190

13264

13340

13460

1387¢

14030

14398

14990

21360
25914

21434
29310

21480
29344

21590
29426

22300
29450

22420
29510

23704
29%6lo

23798
29704

24140
2981¢

24188
31620

3188¢

18610

1565#
22308
34540

34540
45420
7500

16020

18590

42690
51900
11410

13326
15074
16608
23790
29468
5317¢

AS020
53100

18580

42618
49416
11368

13316
14994
16564
23720
24780
5315¢

44910
52040

18108

42388
49310
11310

13264
14428
16520
23700
2474
53136

12838
13340
1517¢
16650
23700
29464

13460
17940
29464

1800

160646

51910

16430

34160

48510
11750

16524

34240

49167
11800

16600

34294

A9218
1192¢

16708
2485

492606
12230

17170

34480

17940
24510

18630

34%0¢

-830

1867¢

3462¢

45020
S3106

45160
53152

15100

1519¢

1565¢

24190
3165¢

24538
3172¢

24700
31802

12940

1875¢

34810

13038

18790

24859

13072

18830

Cl4

)

SENAB RN T43 apr sa RNTEE X3-07 563 A0 ARE: Bl NO2 PAn FACF TPR vreoro
3710

ggég:

37174

11364

11414

11494

10810
1314
1510
1717
1897¢

1129
1316
1519
1719
2016
2257¢
2591
2981
3427

1151
1317
1526
1751¢
2085¢
2341
2608
2985
3429

1175
1319
1565
1794
2134
2368
26398
3162
3433

1180
1326
1602
1818
2136

3995

4002

4008¢

40460

7910
1307
1499
1695
1891
2242
2485
2961
3419

3868

3877

ABS.

105544

000

ERRORS DETECTED:

OVR

TIME.

134

3478

4261
4542
4916
5190

2246
2505
2970
3424
3481
3993

3485

4264
4545
4919
5193

REL

GBL

SECONDS

RUN-TIME RATIO: 585/276=2.1
CORE USED:
32K
(63 PAGES)
DOCUMENT PAGES:

4269
4554
4921
5204

3493

4272
4556
4924
5208

135 6

171

49196

42304
49040

424640
49296

42649
49340

qa2726
49504

44930
49510

1223
1346
1643
1863
2143
2379
2931
3180
3448
3717

1227

1239
1403
1654

1432

45070

519%0

13350

CZLNAD,CZLNAD . SEQ/CRF : SYM/DOC =SPMACJ/ML, SVC33/M

RUN

48586

42170

22240
11492
11310

7644
1303
1439
1685
1883
2230
2470
2951
3416

39950

45600

4246
4530
4858
49812

38580

45560

7500
1335¢
7500
750¢
7500
7500
7508
7508
7500
7500
7500
1335¢
1335¢
7504

3462

38554

45452

$$LOCN= 000000
$3s0UT = 000000
$SREG = 177777
$SRETU= 000000
$SRTN1= 000000
$SRTN2= 000000
$$SRC = 000027
$3TGSv= 050006
$387GS1= 050005
$$7GS2= 000000
$$T0
= 000000
$$70B = 000000
$$TCTL= 000000
$$$TAG= 050000

105544

37269

45300

,CZLNAD . P11

35538

4280
4558
4926
5228

2370
2740
3165

3435
3699

43240
4560
4929
5237¢

1192
1334
1606
18230
2141

2371
27480
3172
3443
3710
4217

449)
4565
4931
52560

4221
4493
45930
4934

5310

1387

1652
1867
2148
2414
2934
3188
3451
3726

4224
4502
46050
4941

5315

1875

2152
2418

2942
3191

3454

3736

4230
4507

46230
4950

53570

1283

1660
1879
2159
2419
2945
3201
3855

4235
4516
46340
4951

S3602

1294

1434
167¢C

1880
2ibl
2453
2946
3235¢
3460

3858

4238
4518
485!
495°