Digital PDFs

AH-S329A-MC

February 1981

159 pages

Original

69MB

view download

OCR Version

95MB

view download

Document:	CZLQPA0 LQP LQPSE-F PDP11 DIAG FEB 1981 bw
Order Number:	AH-S329A-MC
Revision:	000
Pages:	159
Original Filename:	CZLQPA0__LQP__LQPSE-F_PDP11_DIAG__AH-S329A-MC__FEB_1981_gray.pdf

OCR Text

LOPSE-F PDP11 DIAG
CZLQPAO

R e 1 or . s HIENTEL

SEQ 1
MACRO v03.01 7-NOV-80 10:06:10 PAGE 1

.REM §

IDENTIFICATION

PRODUCT CODE:

AC=-S327A=MC

PRODUCT NAME:

CZLQPAO LQPSE~F PDP=11 DIAG

PRODUCT DATE:

7-NOV-80

MAINTAINER:
AUTHOR:

DIAGNOSTIC ENGINEERING

GRANT F. SANDY

PRI NI NN

NI NI N

NOWVS NN 2OV

= = acd

b d e

e —d

NO VNN = O 000 NOA NS W

;(lLQPAO LOPSE=F PDP11 DIAG

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

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

THE USE
SUPPLIED

RELIABILITY OF
DIGITAL OR ITS

OR
BY

DIGITAL
DEC

POP

DECUS

UNIBUS

DEC TAPE

MASSBUS
:

SEa 2

MACRO v03.01 7-NOV-80 10:06:10 PAGE 3

CONTENTS

TABLE OF

NOWVMSUWNN—=O

OPERATING INSTRUCTIONS
COMMANDS
SWITCHES

ERROR INFORMATION

PERFORMANCE AND PROGRESS REPORTS

DEVICE

TEST SUMMARIES

b s e

WVMHWN—=O

GENERAL INFORMATION

O PNORNMNMNMNINIMNIN

o
.
L

PORIAI NI A

b d e

d =

SHNN=2OVONOWVNSWN
2OV
NN WA —

'CZLQPAO LQPSE-F PDP11 DIAG

PROGRAM ABSTRACT

SYSTEM REQUIREMENTS

RELATED DOCUMENTS AND STANDARDS

DIAGNOSTIC HIERARCHY PREREQUISITES
ASSUMPTIONS

FLAGS
HARDWARE AQUESTIONS

SOF TWARE QUESTIONS
EXTENDED P-TABLE DIALOGUE

QUICK STARTUP PROCEDURE

INtORMATION TABLES

b o P

MACRO v03.01 7-NOV-80 10:06:10 PAGE &

1.0

GENERAL INFORMATION

1.1

PROGRAM ABSTRACT

THIS DIAGNOSTIC PROGRAM WILL BE USED PRIMARILY BY FIELD

SERVICE PERSONNEL TO EXERCISE THE LQPSE-F LETTER QUALITY

OCWVSWN=2LOOVONOAWVESWN
= OV

NO NS W) =

CZLGPAQ LQPSE-F PDP11 DIAG

b d d

PRINTER WITH A SERIAL INTERFACE TO A PDP-11 (PU.

b e ed cd

THIS PROGRAM WILL GENERATE SEVERAL PAGES OF PRINT ON THE
LQPSE=F PRINTER, LABELLING (WHEN ABLE) EACH TEST PRINT
PATTERN WITH THE TEST TITLE. THIS WILL AID THE USER IN
THE DIAGNOSIS OF PRINTER FAILURES.

THE DIAGNOSTIC PROGRAM WILL HELP IDENTIFY FUNCTIONAL PROBLEMS
WITH THE PRINTER CONNECTED TO A PDP-11 BY ANY OF FIVE SERIAL

= =D
PORO N NI PINI A

SEQ 3

INTERFACE DEVICES.

THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE

THE INTERFACE TO THE OPERATOR AND TO THE SOF TWARE ENVIRONMENT.

THIS PROGRAM CAN BE USED WITH XXDP+, ACT, APT, SLIDE AND PAPER
TAPE. FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER
TO THE XXDP+ USER'S MANUAL. THERE IS A BRIEF DESCRIPTION OF
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT.
1.2

SYSTEM REQUIREMENTS

E?senlué:gfl HARDWARE CONFIGURATION FOR RUNNING THIS DIAGNOSTIC IS
A PDP=11 CPU WITH AT LEAST 16K WORDS OF MEMORY.
1)
2)
3)
4)

A CONSOLE TERMINAL.
LQPSE-F PRINTER.
ONE OF THE FOLLOWING INTERFACES:
A)
0211,
DL11-W,
B)
C)
DLVIT1=J,
D)
DLV11-F,

1.3
1)

Mxviil.

RELATED DOCUMENTS AND STANDARDS
XXDP+ USERS MANUAL

CHQUS.

PDP=11 DIAGNOSTIC SUPERVISOR PROGRAMMERS GUIDE:

DIAGNOSTIC ENGINEERING STANDARDS AND CONVENTIONS,

1.4

HOW TO WRITE TO THE SUPERVISOR.
PROGRAMMING PRACTICES.

DIAGNOSTIC HIERARCHY PREREQUISITES

THE MINIMUM HARDWARE CONFIGURATION DETAILED IN SECTION 1.2
WITH THE EXCEPTION OF THE PRINTER IS ASSUMED TO BE FULLY

;

'CZLQPAO LQPSE-F PDP11 DIAG

SEQ 4

MACRO V03.01 7-NOV=80 10:06:10 PAGE 4=

OPERATIONAL BEFORE THIS DIAGNOSTIC IS RUN.

1.5

ASSUMPTIONS

2.0

OPERATING INSTRUCTIONS

66
gg

THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES.
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS).

2.1

71
72

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

62
63

COMMANDS

BRIEF DESCRIPTIGN OF THEM.

THE XXDP+ USER'S MANUAL HAS MORE DETAILS.

COMMAND

EFFECT

77
78
79
80
5
82
83
84
85

START
RESTART
CONT INUE
PROCEED
EXIT
ADD

START THE DIAGNOSTIC FROM AN INITIAL STATE
START THE DIAGNOSTIC WITHOUT INITIALIZING
CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER “C)
CONTINUE FROM AN ERROR HALT
RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY')
ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE
CONSIDERED TO BE ACTIVE AT START TIME
DEACTIVATE A UNIT
PRINT STATISTICAL INFORMATION (IF IMPLEMENTED

DISPLAY

DROP

FLAGS
ZFLAGS

28
gg

BY THE DIAGNOSTIC - SECTION 4.0)

TYPE A LIST OF ALL DEVICE INFORMATION

TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3)
CLEAR ALL FLAGS (SEE SECTION 2.3)

A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS.

3§

2.2

9
97
98

THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION.
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH.

183

YOU MAY, FOR EXAMPLE, TYPE ''STA'' INSTEAD OF '‘START''.

SWITCHES

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER 1S DESIGNATED BY ''DCDDD''.

}85

SWITCH

EFFECT

103
104

JTESTS:LIST

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

105
106
107
108
109
110
m
112
}}2

/PASS :DDDDD
/FLAGS: FLGS

/EOP :DDDDD

JUNITS:LIST

NUMBERS, FOR EXAMPLE - /TESTS:1:5:7-10,
THIS LIST WILL CAUSE TESTS 1.5.7.8,9.10 T0
BE RUN. ALL OTHER TESTS WILL NOT BE 'RUN.
EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000)
SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED
IN SECTION 2.3.
REPORT END OF PASS MESSAGE AFTER EVERY
DDDDD PASSES ONLY. (DDDDD = 1 TO 64000)
TEST/ADD/DROP ONLY THOSE uulrs SPECIFIED
IN THE LIST.

LIST EXAMPLE - /UNITS:0:5:10-12

A A S S A S S S
g ——— R P P
O
N SIS R T T T Y SO Y J— ————— — Y
A
Nfloooooooooomw\flmmmmwmmbbl‘J‘l“bb3\3‘bWWWWWWWWWWNNNNNNNNNN—'—'—‘—'—'
LSOOV VNONEWN=O VBNV
W —=OOVONOAVNE WSOV
NOVNEWN =200
NS W
=000 ~NoW

'CZLQPAO LGPSE=-F PDP11 DIAG

SEQ S

MACRO v03.01 7-NOv=-80 10:06:10 PAGE 4-2

USE UNITS 0,5,10,11,12 (UNIT NUMBERS = 0-63)
EXAMPLE OF SWITCH USAGE:

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

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

PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY.

A
MAY,
YOU
CHARACTERS.
THREE
FIRST
THE
BY
RECOGNIZED
BE
CAN
SWITCH

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

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

START
RESTART

CONT INUE

TESTS

PASS

FLAGS

EOP

UNITS

X
X

x
X

X
¥

PROCEED

DROP
ADD
PRINT
DISPLAY

X
X

A
X

FLAGS

IFLAGS
EXIT

2.3

FLAGS

FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH.
FLAGS
ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE
FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR
ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS,
THEY REMAIN SET OR
NO COMMANDS AFFECT THE STATE OF THE FLAGS;
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH.
FLAG

EFFECT

HOE

HALT ON ERROR - CONTROL IS RETURNED TO

LOE

LOOP ON ERROR

IER®
IBR*

INHIBIT ALL ERROR REPORTS
INHIBIT ALL ERROR REPORTS EXCEPT

[XRe
PRI
PNT
BOE

UAM

RUNTIME SERVICES COMMAND MODE

DIAGNOSTIC)

FIRST LEVEL

(NOT SUPPORTED IN THIS

(FIRST LEVEL CONTAINS

ERROR TYPE, NUMBER, PC, TEST AND UNIT)
INHIBIT EXTENDED ERROR REPORTS (THOSE
CALLED BY PRINTX MACRO'S)
DIRECT MESSAGES TO LINE PRINTER
PRINT TEST NUMBER AS TEST EXECUTES
“BELL'' ON ERROR
UNATTENDED MODE (NO MANUAL INTERVENTION)

"
'CILQPAQ LQPSE=~F PDP11

DIAG

SEQ 6

MACRO v03.01 7-NOV-80 10:06:10 PAGE 4-3

INHIBIT STATISTICAL REPORTS (DOES NOT

ISR

APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT
STATISTICAL REPORTING)

OCOVOOO VOOV O OVOVOOOCE0EOO0000 NNNNNNNN
- OV VIS WN =200V NOWVNSWN
OV
NONWVSSWN

e
————

EXECUTE AUTODROP CODE
LOOP ON TEST

EXECUTE EVALUATION (ON DIAGNOSTICS WHICH

EVL

HAVE EVALUATION SUPPORT)

*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1
SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE,
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS
AND TYPE A "BELL'' ON ERROR, YOU MAY USE THE FOLLOWING STRING:
/FLAGS:IER:BOE

PON
b ed s = R

INHIBIT PROGRAM DROPPING OF UNITS

IDR

ADR
LOT

2.4

HARDWARE QUESTIONS

WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT
THE USER FOR HARDWARE INFORMATION BY TYPING '‘CHANGE HW (L) ?*'
YOU MUST ANSWER ''Y'' AFTER A START COMMAND UNLESS THE HARDWARE
INFORMATION HAS BEEN ''PRELOADED'' USING THE SETUP UTILITY (SEE
CHAPTER 6 OF THE XXDP+ USER'S MANUAL). WHEN YOU ANSWER THIS
QUESTION WITH A ''Y'', THE RUNTIME SERVICES WILL ASK FOR THE NUMBER
OF UNITS C(IN DECIMAL). YOU WILL THEN BE ASKED THE FOLLOWING
QUESTIONS FOR EACH UNIT.

Q1:

“'CHOOSE PAGE WIDTH FOR THE PRINTER

CHOOSE ONE:
(1.2)

SN =

Q2:

NV
- OO0

“If ALL DEFAULT VALUES FOR INTERFACE DESIRED,ENTER *Z.
IF DEFAULT DESIRED FOR A SINGLE INTERFACE CHARACTERISTIC
"ENTER CONTROL STATUS REGISTER (CSR) ADDRESS.>>

s b
e
POND =

DEPRESS <RETURN>.

d =

CSLSLSLNT
ST NI ST ST NT NN

,2)

1)80 CHARACTERS PER PRINTER LINE
2)132 CHARACTERS PER PRINTER LINE

03:

“FRINTER CONNECTED TO A SINGLE LINE INTERFACE?

03-A:

"ENTER inNTERFACE CHANNEL NUMBER FOR THE PRINTER.
(ASKED ONLY IF Q3 WAS ANSWERED BY A ''N'")

2.5

SOFTWARE QUESTIONS

AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RES(ART

'CILQPAQ LQPSE-F PDP11 DIAG

229
230

231

232
233

SEQ 7

MACRO V03.01 7-NOV-80 10:06:10 PAGE 4=4

OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOF TWARE
PARAMETERS.
THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC

OPERATION MODES.

YOU WILL BE PROMPTED BY 'CHANGE SWw (L) ?"

IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING
"Y',
THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED

IN THE NEXT PARAGRAPH(S).

%gg

236
R+{
%gg

NONE
2.6

EXTENDED P-TABLE DIALOGUE

240
241
242
243
244
245
529

WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES
IN A TABLE THAT DESCRIBES THE DEVICES UNDER TEST.
THE SIMPLEST
WAY TO BUILD THIS TABLE IS TO ANSWER ALL QUESTIONS FOR EACH
UNIT TO BE TESTED.
IF 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.

248
249
250
251
252
253

TO ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING
A FICTIONAL DEVICE, THE XY11.
SUPPOSE THIS DEVICE CONSISTS OF
A CONTROL MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT.

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 0 OR 1. BELOW IS A SIMPLE WAY

TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS.

%gé
256

# UNITS (D) ?

257
258

259
¢60
261
262
263
264
265
266
267
268
269

B<CR>

UNIT 1

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

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

271

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

273
274
275

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

270

272

276

277

Q-FACTOR (0) 0 ?

<CR>

278
279
280
281

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

283

UNIT 6

282

284
285

CSR ADDRESS (0) ? 160000<CR>
SUB-DEVICE # (0) ? 5<CR>

'3
CZLQPAQ LQPSE=-F PDP11 DIAG

MACRO v03.01

SEQ
8

7-NOV=-80 10:06:10 PAGE 4-5
Q-FACTOR (0) 0 ?

<(R>

UNIT 7
CSR ADDRESS (0) ? 160000<CR>
6<CR>
SUB-DEVICE # (0) ?
1<CR>
Q=FACTOR (0) 0 ?
UNIT 8
160000<CR>
CSR ADDRESS (0)
7<CR>
SUB-DEVICE # (0) ?
<(R>
Q-FACTOR (0) 1 ?
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 THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS
DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT.
THE PROCEDURE SHOWN IS
NOT VERY EFFICIENT.

THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIF{E?TIONS HOWEVER.

LET'S BUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION

d
e
i
D e
e
—

V00NV

NN =

WWL
NN WWWNWKWNW

FEATURE.

# UNITS (D)

8<(R>

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

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

O0<CR>

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

W
»

AS 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 ONCE.
IN 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 TO THE SECOND.
IN THIS CASE, SUB-DEVICES
2, 3, 4 AND 5 WERE SPECIFIED.
(IF THE SUB-DEVICE WERE SPECIFIED
BY ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST
BE ON AN EVEN BOUNDARY.) THE CSR ADDRESSES AND Q-FACTORS FOR
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND O RESPECTIVELY
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE
SPECIFIED IN THE THIRD PASS.

_.J

'CILQPAO LQPSE=F PDP11 DIAG

SEQ 9

MACRO V03.01 7-NOV=-B0 10:06:10 PAGE &4=-6

| -

THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS
SHOWN BELOW.
# UNITS (D)

B<(R>

UNIT 1
CSR ADDRESS (0) ?

SUB-DEVICE # (0) ?

Q-FACTOR (00 0 ?

160000<CR>

0=7<CR>

0,1,0,,,.1,1<CR>

AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY.

(XXDP+)

2.7 QUICK START=UP PROCEDURE
TO START=UP THIS PROGRAM:
1. BOOT XXDP+

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

3. TYPE 'R NAME', WHERE NAME IS THE NAME OF THE BIN OR BIC
FILE FOR THIS PROGRAM

. ANSWER THE ''CHANGE HW'' QUESTION WITH ''v"

. ANSWER ALL THE HARDWARE QUESTIONS

. TYPE "'START"

. ANSWER THE ''CHANGE SW'' QUESTION WITH "N'' (NOT ASKED)

WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE
DEFAULTS FOR FLAGS AND SOF TWARE PARAMETERS.
THESE DEFAULTS
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5.
3.0 ERROR INFORMATION

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

NAME
TYPE NUMBER
ERROR MESSAGE

ON UNIT NUMBER

TST NUMBER PC:XXXXXX

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

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

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

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL

——

K 1

CZILQPAO LQPSE=-F PDP11 DIAG
400

SEQ 10

MACRO v03.01 7-NOV=-80 10:06:10 PAGE 4-7
INFORMATION ABOUT THE ERROR.

THESE ARE ALWAYS PRINTED UNLESS

40
:8%

THE ''IER'’ OR ''IBR'' FLAGS ARE SET (SECTION 2.3). THESE MESSAGES
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE.

404
405
406
407
283

EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA.
THESE ARE ALWAYS
PRINTED UNLESS THE ''IER'', "IBR'' OR ''IXR'‘ FLAGS ARE SET (SECTION 2.3).
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES.

2}?

3.2 SPECIFIC ERROR MESSAGES

612
2}2

““1/0 FAILURE DETECTED AT PRINTER."
PROBLEM WITH THE SELF TEST SEQUENCE.

415

CHECK PRINTER ROM.

“PRINTER BUFFER FULL."
A "'CAN'' CHARACTER HAS BEEN RECEIVED, AND THE PRINTER
HAS DETECTED THAT ITS BUFFER LIMIT HAS BEEN REACHED.

420
2%%

"PROM/RAM FAILURE DETECTED BY PRINTER.''
VALID ONLY AFTER THE SELF TEST.

423
424
2%2

"PRINTER ERROR: N OUT OF RANGE IN ESCAPE SEQUENCE.'
AN UNDEFINED OR OUT OF RANGE ARGUMENT HAS BEEN SENT TO
THE PRINTER WITHIN AN ESCAPE SEQUENCE.(PRINTER COMMAND)

427
2%3

"PAUSE SWITCH PRESSED."
THE PRINTER FRONT PANEL PAUSE SUITCH HAS BEEN PRESSED.

430
2%;

"RIBBON OUT ON PRINTER."
THE PRINTER RIBBON MUST BE IN PLACE.

433

"UNDEF INED CHARACTER OR ESCAPE SEQUFNCE RECEIVED."

438
439

"'SHEET FEEDER ERROR."
THE SHEET FEEDER HAS FAILED TO OPERATE PROPERLY.

434
435
2%9

440
461

LTy

CHECK THE PRINTER MEMORY.

AN ILLEGAL SEQUENCE OR CHARACTER HAS BEEN RECCIVED.
CHECK THE ADDRESS OF THE LAST TRANSMISSION WHICH
IS GIVEN BY THE DIAGNOSTIC.

THIS

ERROR CONDITION MAY BE CLEARED BY SENDING AN "‘ESC 6" TO
THE PRINTER.

443
Gk
445

"'SOF TWARE ERROR''
THIS MESSAGE SHOULD NOT PRINT UNLESS THE SOF TWARE HAS
BEEN CORRUPTED.

448
449
450
22;

"UNEXPECTED CHARACTER RECEIVED FROM PRINTER.''
AN XON, XOFF, ANSWER-BACK RESPONSE OR STATUS RESPONSE
WAS EXPECTED, OR NO TRANSMISSION WAS EXPECTED FROM THE
PRINTER. SOMETHING WAS NONE THE LESS RECEIVED.

453
454

"EXPECTED CHARACTER NOT RECEIVED FROM THE PRINTER."
AN XON, XOFF, CAN, EOT, OR ESC WAS EXPECTED BUT NOT

455

RECEIVED.

——————

———

<—————————————

-ttt

|CZLQPAO LQPSE~F PDP11 DIAG

SEQ 11

MACRO V03.01 7-NOV-80 10:06:10 PAGE 4-8

457
458
459

"'INCORRECT CSR_ADDRESS GIVEN. TRY AGAIN.''
THE USER WAS ENTERRED AN INCORRECT CSR ADDRESS OR THE
DEFAULT ADDRESSES DID NOT WORK WHEN TRYED. THE USER

462

"'INCORRECT CSR ADDRESS OR CHANNEL GIVEN. TRY AGAIN.''

MUST NOW EXPLICITLY ENTER THE CORRECT CSR ADDRESS.

22?

EITHER THE ADDRESS OR THE CHANNEL IS INCORRECT.

222

465
466

:g;

“FAILED TO TRANSMIT TO PRINTER.''
THE TRANSMIT READY CONDITION COULD NOT BE OBTAINED.

CHECK THAT THE INTERFACE CABLE IS PROPERLY ATTACHED.

469
470
Wn
472
473
2;2

“WAITING FOR A CHARACTER FROM THE PRINTER.'
THIS IS NOT AN ERROR MESSAGE. IF THE CHARACTER IS NOT
RECEIVED EVENTUALLY, AN ERROR WILL OCCUR. THIS IS AN
INDICATOR TO THE USER THAT THE PROGRAM IS IN A WAITING
STATE AND NOT SIMPLY "LOST''. WHEN THIS MESSAGE IS SEEN,
WALT FOR NO MORE THAN FIVE MINUTES BEFORE TAKING ACTION.

476

“FAILED TG FIND PRINTER AT DEFAULT ADDRESSES.

477
478
479
480
481
482
483

RESTART PROGRAM.''

THIS INDICATES THAT THE DEFAULT SEQUENCE WHICH
THE PROGRAM WAS INSTRUCTED TO EXERCISE FAILED
TO FIND A PRINTER AT THE ASSUMED DEFAULT
ADDRESSES. THE USER MUST NOW RESTART THE
PROGRAM, EXPLICILTY SPECIFYING THE CSR ADDRESS
AND THE DZ11 CHANNEL (IF APPLICABLE) AND THE
INTERFACE TYPE.

484
485
486
487

2%3

4.0 PERFORMANCE AND PROGRESS REPORTS

490
N
492
232

AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED.
THE "'EOP'' SWITCH CAN BE USED TO CONTROL HOW OF TEN THE END
OF PASS MESSAGE 1S PRINTED. SECTION 2.2 DESCRIBES SWITCHES.

495

NONE

23;

5.0 DEVICE INFORMATION TABLES

ggg

P-TABLE ENTRIES:

496

CSR _ADDRESS. IF FOUND TO BE ZERO, THIS INDICATES
THAT THE DEFAULT CSR ADDRESSES ARE TO BE TRIED AS
THE CSR ADDRESS. THE CSR ADDRESS IS THE ADDRESS OF
THE RECEIVER CONTROL STATUS REGISTER IN THE SINGLE
LINE INTERFACES AND THE RECEIVER AND TRANSMITTER
CSR FOR THE DZ11 INTERFACE.

I00PTN =

1/0 OPTION. A LOGICAL VALUE. IF EQUAL TO ''Y'' THEN
A DZ11 INTERFACE IS ASSUMED. IF EQUAL TO "N THEN

CSRADD

501
502
503
504
-~ 505
389

508
509
g;?

512
513

A SINGLE LINE INTERFACE IS ASSUMED.

PTRCHN

PRINTER CHANNEL. THIS NUMBER (0-7) IS THE CHANNEL
NUMBER ON A DZ11 INTERFACE WHICH IS CONNECTED TO THE

i(ZLOPAO LQPSE~F PDP11 DIAG

p——

MACRO v03.01 7-NOv-80 10:06:10 PAGE 4-9

g}g

PRINTER.

516
517

LINCHS

518
519
gg?

PRINTER LINE SIZE CHOICE.
THIS NUMBER (1-2) CORRESPONDS 7J

THE NUMBER OF CHARACTERS PER HORIZONTAL LINE DESIRED
ON THE PRINTER. THIS SHOULD BE CHCSEN BY THE USER
BASED ON THE WIDTH OF THE FORMS USED ON THE PRINTER.

522

523
524
525

6.0 TEST SUMMARIES

526

527

528
529
530
53
532
533
534

336

537
538
539

EACH TEST WILL PRINT THE CURRENT TEST TITLE ON THE PRINTER AS PART OF
THE TEST SEQUENCE. THIS WILL AID THE USER IN THE DIAGNOSIS PROCESS
BY INFORMING THE USER OF THE PURPOSE OF THE CURRENT TEST. THIS IS

gz%

WILL BE DIFFERENT.

544
545

IN ALL TESTS, BEFORE AND AFTER EACH TRANSMISSION TO THE PRINTER, THE
RECEIVER BUFFER IS CHECKED. IF THE BUFFER CONTAINS A CHARACTER THEN
THE PROGRAM CHECKS TO SEE IF IT IS AN EOT, OR A CAN CHARACTER. IF THE
CHARACTER IS ONE OF THESE TWO THEN AN ERRCR CONDITION EXISTS AND AN
ERROP HANDLING ROUTINE IS CALLED.

THOUGHT TO BE PARTICULARY USEFUL WHEN THE USER IS RUNNING TESTS OUT OF
THE NUMERIC TEST SEQUENCE BECAUSE THE USUAL OVERALL TEST PRINT PATTERN

540
561

546

547
gzg
550

gg}

TEST 1 -

SELF TEST

A SELF TEST IS INITIATED BY SENDING THE SEQUENCE 'ESC N ('

553

554
555
556
557

TO THE PRINTER. IT IS ASSUMED THAT NO CAN OR EOT SIGNALS
WILL BE GENERATED IN THE PROCESS. A TIME DELAY WILL BE
GENERATED TO WAIT FOR THE SELF TEST COMPLETION. THE PRINTER
STATUS IS THEN EXAMINED. THE ARGUMENT N MAY BE ANY VALUE

560
561

SELF TEST COMPLETION WILL BE CONFIRMED BY THE SOF TWARE BY
THE RECEPTION FROM THE PRINTER OF AN “'XON'' CHARACTER AND AN

WITH NO EFFECT TO THE TEST.

ggg

gg%

ACCEPTABLE PRINTER STATUS WORD.

:
TEST 2 -

ggg

566
567
568
569

UNDERLINE / NO UNDERLINE MODE TEST

A LINE OF CHARACTERS WILL BE PRINTED, ALTERNATING UNDERLINED
AND THEN NON-UNDERLINED CHARACTERS. THE MODE 1S GENERATED BY
THE "ESC N G'' SEQUENCE WHERE N=0 MEANS THAT UNDERLINE IS
INHIBITTED AND WHERE N=1 MEANS THAT UNDERLINE IS EMPLOYED.

SEQ 12

|
|

SEQ 13

MACRO v03.01 7-NOV-80 10:06:10 PAGE 4-10
TEST 3 -

HAMMER HIT COUNT TEST

FOUR LINES OF TEXT WILL BE PRINTED, EACH LINE OF TEXT BEING
PRINTED WITH A DIFFERENT HIT COUNT.
THE RESULTING PRINT
PATTERN WILL BE FOUR LINES, ONE BLANK LINE (HIT COUNT 0),
AND THREE LINES OF INCREASING DARKNESS (INCREASING HIT COUNT).
THE "ESC N D'’ SEQUENCE IS USED WITH N EQUAL TO 0, 1, 2, AND
N<O.
THE N<O SEQUENCE WILL RESULT IN A HIT COUNT OF ZERO,
N=0 IS A HIT COUNT OF ONE, N=1 IS A HIT COUNT
OF TWO AND N=2
IS A HIT COUNT OF THREE.
TEST &4 -

CARRIAGE POSITIONING TEST

IN THIS TEST, TWO CHARACTERS ARE PRINTED SEPARATED BY A
QSPACE OF ADJUSTABLE WIDTH. BOTH FORWARD AND REVERSE
CARRIAGE MOTIONS ARE EXERCISED.
THE RANGE OF THE SPACE
SIZE IS DICTATED BY THE CURRENT PAGE WIDTH.
THE SPACE

SIZE IS ADJUSTED BY SENDING THE ''ESC N ;' SEQUENCE TO THE

PRINTER.

THE VALUE N IS PROPORTIONAL TO THE SPACE SIZE

agei=e=T§E POSITIVE (RIGHT MOVEMENT) OR NEGATIVE (LEFT
TEST 5 -

PAPER POSITIONING TEST (VERTICAL)

THE VERTICAL SPACING IS ADJUSTED IN THIS TEST BY SENDING
THE SEQUENCE "ESC N 9'' WHERE N IS PROPORTIONAL YO THE VERTICAL

SPACE SIZE.

IN THIS TEST A LINE OF CHARACTERS WILL BE PRINTED
THE VERTICAL
SPACE SIZE WILL THEN BE ADJUSTED AND THE SEQUENCE WILL BE
REPEATED. THIS SEQUENCE WILL BE PERFORMED OVER A REASONABLE
RANGE OF VERTICAL SPACE SIZES.
TEST 6 -

PRINT ONE.LINE OF EACH CHARACTER

ONE LINE OF EACH PRINTABLE CHARACTER WILL BE PRINTED TO
gg?;%kfl THAT ALL POSITIONS ON THE PRINT WHEEL WILL ACTUALLY
TEST 7 -

PRINT A SWIRL PATTERN
\

THE COMPLETE CHARACTER SET IS PRINTED ONE LINE AT A TIME
IN A "'SWIRL PATTERN'..
TEST 8 -

WORST CASE RAPID MOTION TEST

THIS TEST WILL PUT THE PRINT WHEEL THROUGH A MECHANICALLY STRESSFUL

SITUATION BY REPEATEDLY PRINTING THE SEQUENCE "‘ACA:ACA:AC.."
TEST 9 -

PRINT RANDOM CHARACTERS

THIS TEST WILL PRINT A RANDOM SEQUENCE OF CHARACTERS ON THE

PRINTER.
TEST 10 -

PRINT OPERATOR SELECTED CHARACTERS

THIS TEST WILL PRINT CHARACTER SEQUENCES DEF INED BY THE

USER.

THE TEST IS ENDED BY ENTERRING Q<RETURN>.

AND A CARRIAGE RETURN = LINE FEED TRANSMITTED.

CZLQPAO LQPSE~F PDP11 DIAG

MACRO v03.01 7-NOV=80 10:06:10 PAGE 4-11

TEST 11

SEQ 14

LIFT / DROP RIBBON BY OPERATOR CONTROL
(OPTIONAL = SPECIAL TEST)

THIS TEST WILL HAVE TWO MODES SELECTABLE ON THE TEST MENU:
AUTOMATIC MODE AND MANUAL MODE.
IN THE AUTOMATIC MODE THE
RIBBON WILL RAISE AND DROP AT A RATE OF ABOUT ONCE PER SECOND.
THIS SEQUENCE WILL CONTINUE UNTIL THE OPERATOR STOPS IT BY
ACTION TAKEN AT THE OPERATORS CONSOLE.
IN MANUAL MODE THE
OPERATOR WILL RAISE AND DROP THE RIBBON AT WILL BY PRESSING
CONSOLE KEYS AS SPECIFIED ON THE CONSOLE SCREEN.
TEST 12 -

BIDIRECTIONAL FORMS TRACTOR (OPTIONAL - SPECIAL TEST)
A VARIABLE SIZE MATRIX OF CHARACTERS WILL BE PRINTED IN A
RANDOM ORDER, FORCING RANDOM MOVEMENT OF THE CARRIAGE IN ALL
FOUR DIRECTIONS.

TEST 13 -

CUT SHEET FEEDER EXERCISER (OPTIONAL - SPECIAL TEST)

IN THIS TEST THE PAGE SIZE IS SET TO ELEVEN INCHES, A SHEET
IS FED FROM THE FRONT TRAY, A LINE IS PRINTED AT THE TOP OF

THE PAGE AND A LINE IS PRINTED AT THE BOTTOM OF THE PAGE.
iHE PROCESS IS THEN REPEATED WITH THE REAR TRAY FEEDING WHICH

?=8U%OT:UTOHA11CALLY EJECT THE PAGE IN THE PRINTER FROM THE
N

AY.

—

| CZLQPAD LQPSE=-F PDP11 DIAG

8B 2

|
|

(2]

—-

'CZLQPAO LQPSE=F PDP11 DIAG
1

2 000000

(ENABL

2
5

9 002000

.ENABL
002000

ABS

AMA

§CEALL 5

;

BGNMOD
000001
000001
000001
000001
000001

SVCINS=
SVCTST=
SVCSUB=
SVCGBL=
SVCTAG=

1
1
1
1
1

.=2000

g 002000
10
1
12
13
}g

SEQ 15

MACRO V03.01 7-NOV=-80 10:06:10 PAGE §

EPROGRAH HEADER
|

t 2

INITIALIZE SUPERVISOR
MACROS
v

; LIST INSTRUCTIONS, SHIFTED RIGHT
; LIST TEST TAGS, SHIFTED RIGHT
: LIST SUBTEST TAGS, SHIFTED RIGHT
: LIST GLOBAL TAGS, SHIFTED RIGHT
: LIST OTHER TAGS, SHIFTED RIGHT

.
;
:

17
18
19

20
%} 002000

POINTER ERRTBL

23
24 002000

HEADER

« 002000

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

CZLQP,A,0,240.,0,PRI07
.

103
132
114
121
120
000
00
000

LSNAME
::

LSREV::

101
060

LSDEPO::

000000

LSUNIT::

LSTIML::

000360

LSHPCP::

024406

LSSPCP::

000000

002160

LSHPTP::

;

000000

LS$SPTP::

025234

LSLADP::
LSSTA::

000000

L$CO::
LSDTYP::

000000
2

————

——

———

—

LASCIT
ASCI1
LASCIT
LASCIT
LASCII
BYTE
BYTE
BYTE

/C/
72/
7L/
7Q/
7P/
0
0
0

ASCIT

/A/

LASCIT

70/

LWORD

.WORD

240.

.WORD

LSHARD

.WORD

WORD

LSHW

WORD

.WORD

LSLAST

.MWORD

MWORD

.,WORD

'CZLQPAQ LQPSE=F PDP11 DIAG
PROGRAM HEADER

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
00207¢
002100
002100
002102
002102
002104
002104
002106
002106
002110
002110
002112
002112
002114
002114
002116

002116
002120
25 002120
26

—

e g

—

——————————————————

SEQ 16

MACRO VU3.01 7-NOV=-80 10:06:10 PAGE 5-1
LSAPT::

000000

LSDTP::

002124

LSPRIO::

000340

LSENVI::

000000

LSEXP1::

000000

LSMREV::

003
003

LSEF::

000000
000000

000000

L$SPC::
LSDEVP::

010102

LSREPP::

000000

LWORD

.WORD

LSDISPAT(CH

.WORD

PRI107

WORD

MWORD

.BYTE
.BYTE

CSREVISION
CSEDIT

.WORD
.WORD

O
O

.WORD

LSDVTYP

.MWORD
LSEXP4L::
‘
WORD
LSEXPS::
- JWORD
LSAUT::
.WORD
L$DUT::
MWORD
LSLUN::
MWORD
LSDESP::
.WORD
LSLOAD::
EMT
LSETP::
.WORD
LS$ICP::
LWORD
LSCCP::
.WORD
LSACP::
.WORD
LSPRT::

000000

000000
000000
000000

000000
010150
104035
010072
015522

017456
017454

015514

LSTEST::

000000

LSDLY::

000000

LSHIME::

000000
.SBTTL

DISPATCH TABLE

O
O
O

O
LS$DESC
ESLOAD
LSERRTBL
LSINIT

LSCLEAN
LSAUTO

.WORD

LS$PROT

MWORD

.WORD

(Al

—

——

ce—————t—

'CZLQPAO LQPSE=F PDP11 DIAG

SEQ 17

MACRO V03.01 7-NOV=80 10:06:10 PAGE 6

DISPATCH TABLE
1

2
2
S 002122

002122
002124
002124
002126
002130
002132
002134
002136
002140
002142
002144
002146
002150
002152
: 002154

DISPATCH 13

000015
017470
017606
020026
020274
020610
021014
021160
021342
021470
021634
022050
022462
023360

WORD

LWORD
LWORD
LWORD
LWORD
L.WORD
L.WORD
WORD
LWORD
WORD
WORD

e e

.SBTTL

e
e

WORD
LSDISPATCH::
LWORD
WORD

—

DEFAULT HARDWARE P-TABLE

13
T1
T2
T3
Té
TS
Té
17
T8
T9
T10
T11
T12
T13

| CZLQPAO LQPSE~Ff PDP11 DIAG
IDEFAULT HARDWARE P-TABLE
|

SEQ 18

MACRO v03.01 7-NOV=80 10:06:10 PAGE 7

2
3
4

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

: AND IS USED AS A ''TEMPLATE'' FOR BUILDING THE P-TABLES.

: 1S IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES,

9 002156

002156
002160

000004

11 002160

000000

’

BGNHW

DFPTBL

LSHW::
DFPTBL::

10 002160
12 002162
13 002164
}g 002166

16
17 002170

" 002170

000001
000000
000001

.WORD

.WORD
.WORD
.WORD

1
0
1

;CSR ADDRESS.

L10000-L$HW/2

= 0 THEN AUTO=-SETUP MODE IS ASSUMED.
$1=""y", 1/0 OPTION IS SINGLE LINE (NON=DZ11) INTERFACE
PRINTER CHANNEL DEFAULT IS CHANNEL 0.
:LINE SIZE CHOICE.
1=80 CHARACTERS/LINE

ENDHW
.TITLE GLOBAL AREAS

LWORD

.SBTTL GLOBAL EQUATES SECTION

L10000:

/GLOBAL AREAS

MACRO V03.01 7-NOV-80 10:06:10 PAGE 8

'GLOBAL EQUATES SECTION
|

;

SEQ 19

2 002170

EQUALS
* BIT DIFINITIONS

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

81T15== 100000

001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

B1T9==
RIT8==
BIT7==
BIT6==
BITS==
BITé==
BIT3==
BIT2==
BIT1==
BIT0==

BIT14== 40000
BIT13== 20000
BIT12== 10000
BIT11== 4000
BIT10== 2000
BIT09== 1000
BIT08== 400
B1T07== 200
BIT06== 100
BIT05== 40
BIT04== 20
BIT03== 10
BIT02== 4
BITO1== 2
B1T00== 1

BITO9
BITO08
BIT07
BITO06
BITOS
BITO0
BITO3
BITO02
BITO1
BITO00

* EVENT FLAG DEFINITIONS
UEF32:EF1 7 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATICN
T
000040
000037
000036
000035
000034

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

32.
31.
30.
29.
28.

* PRIORITY LEVEL DEFINITIONS
000340
000300
000240
000200
000140
000100
000040
000000

PRIO7== 340
PRI06== 300
PRI0S== 240
PRIO4== 200
PRI03== 140
PRI02== 100
PRIOT== 40
PRI00== 0
"OPERATOR FLAG BITS

000004

EvL==

START COMMAND WAS [SSUED

RESTART COMMAND WAS [SSUED
CONTINUE COMMAND WAS [SSUED
; A NEW PASS HAS BEEN STARTED
A POWER-FAIL/POWER-UP OCCURRED

-——

SEQ 20

MACRO V03.01 7-NOV-80 10:06:10 PAGE 8-1
|
'GLOBAL EQUATES SECTION
'GLOBAL AREAS

000010

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

‘

LOT==

ADR==
1Dy==
ISR==
UAM==
BOE==
PNT==
PRI==
I¥E==
IBE==
IER==
LOE==
HOE==

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

DECIMAL VALUES

z
7

000040

9
10
1
12
13
14
15
16
17
18
19

000042

24
25
26
27
28
29
30
3
32
33
3
35

20
21
22

LW
41

=32.

=34.

HEXD
HEXE
HEXF

=45.
=46.
=47.

ONE

000043
000044
000045
000046
000047
000050
000051
000052
000053
000054

THREE
FOUR
FIVE
SIX
SEVEN
EIGHT
NINE
MEXA
HEXB
HEXC

000001
000002
000003
000004
000005
000006
000007
000010
000011
000012
000013
000014

NUM1
NUM2
NUM3
NUMG
NUMS
NUMé
NUM7
NUM8
NUM9
NUM10
NUMI1
NUMI2

=1
=2
=3
=4
=5
=6
=7
=8.
=9,
=10.
=11,
=12,

020000

ECNRB

=BIT13

000055
000056
000057

36
37
38

ZERO

000041

000015
000016
000017

010000

NUMI3
NUMIG
NUMIS

UCRB

=33.

sMNEMONICS FOR ESCAPE SEQUENCE ARGUMENTS.

=35.
=36.
=37.
=38.
=39.
=40.
=41,
=42.
=43.
=44,

=13,
=14,
=15,

=BIT12

r——-

SEQ 21

|GLOBAL AREAS

MACRO v03.01 7-NOvV-80 10:06:10 PAGE 8-2
GLOBAL EQUATES SECTION

MXLF

002000

.SBTTL

=2000

;MAXIMUM LINEFEED SIZE.

GLOBAL DATA SECTION

DECIMAL 2048x1/48 INCHES

; THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED

02176

001200
001031
000760
000000

SKP14:
SKPAL:
SKP11:

LWORD
.WORD
LWORD
CRNTSK: .WORD

640.
537.
496.

;SKIP 14 INCHES MINUS 3 LINES ARGUMENT.
;SKIP A4 SPACING MINUS 3 LINES ARGUMENT.
:SKIP 11 INCHES MINUS 3 LINES ARGUMENT.
: TEMPORARY SAFE LOCATION FOR CURRENT SKIP SIZE.

; IN MORE THAN ONE TEST.

N
N

WA = OV

S b

D Db

000000

CSRADD:

.WORD

;ADDRESS OF CSR REGISTER

002202
002204

000000
000000

PLOC:

LOGUNIT:

.WORD
.WORD

;LOGICAL UNIT NUMBER
;ADDRESS OF HARDWARE P-TABLE

002206

000000

GREASE:

b
-

~N -~
s

(=== o
[=1=]

02170

o
o

NO VNN 2OV

NS W

14t

;WHEN = =1, A GREASED EXIT IS PROVIDED FROM THE
; CURRENT ROUTINE.

P FE

THE FOLLOWING ASSIGNMENTS MAKE UP A TABLE IN THE FOLLOWING FORMAT:
THE LABEL IS USED TO REFERENCE THE DESIRED TABLE ENTRY. THE FIRST
BYTE IN EACH TABLE ENTRY IS AN ESCAPE CHARACTER. SOME OF THE TABLE
ENTRIES HAVE ONLY ONE ADDITIONAL BYTE. THESE ENTRIES CORRESPOND TO
PRINTER TASKS WHICH REQUIRE NO VARIABLE PARAMETERS. THOSE TABLE
ENTRIES WITH MORE THAN TWO BYTES CORRESPOND TO PRINTER TASKS WHICH
REQUIRE SOME PARAMETER. THE PARAMETERS IN EACH ENTRY MAY BE FROM
ONE TO THREE BYTES AND MUST BE MNEMONIC VALUES (SUCH AS THOSE ASSIGNED

BY THE CONVRT ROUTINE).

TO USEA TABLE ENTRY IN CONJUNCTION WITH THE

- XMIT ROUTINE, THE TABLE ENTRY LABEL IS PLACED IN R1 AND THE NUMBER OF
BYTES TO BE TRANSMITTED IS PLACED IN R2.

TETETETETETETE NE

ESCAPE SEQUENCE TRANSMISSION TABLE

R TR TR T

.WORD

42 002210
43 002212
L

45 002214

50 002226
002231
51 002233
002236
52 002240
002243

076
040

;2 BYTES. EVOKE STATUS RESPONSE.
:2 BYTES. PERFORM HORIZONTAL SPACING

STSRES:
HZTLSP:

LASCIT
LASCIT

<033>/0/
<033>/5/

DUMMYS:

LASCII

<012><033>/>/<033>/(

RESET:

LASCIT

<033>/76/

:2 BYTES. RESET INTERFACE, SHEET FEEDER

9/ ;DUMMY SEQUENCE FOR PRINTER INTERFACE
;RESET SEQUENCE

PRINTER. RECEIVE STATUS

040

VRTCLS:

LASCIT

<033/

RESPONSE AND ‘“‘XON'' CHARACTER.
S BYTES. ACCUMULATE VERTICAL SPACES.

040

HRZTLS:

JASCIDI

<033/

;5 BYTES. ACCUMULATE HORIZONTAL SPACES.

075

RIBPOS:

ASCIT

<033>/'=./

;3 BYTES. SET RIBBON POSITON- DOWN.

iyT

MACRO v03.01 7-NOV-80 10:06:10 PAGE 9
GLOBAL AREAS
GLOBAL DATA SECTION

——

SEQ 22

'GLOBAL AREAS

MACRO V03.01 7-NOV-80 10:06:10 PAGE 9-1

|GLOBAL DATA SECTION
53
564 002244
002247
55 002251
002254
gg 002255

040

101
040

040

STCHSZ:

LASCII

<033>/

°'A/

€ ONE EXTRA CHARACTER FOR TEST 11.
:
;5 BYTES. SET CHARACTER SIZE. 10 CHR/IN

050

STLNSZ:

LASCII

<033>/

(B/

;4 BYTES. SET LINE SIZE. 6 LINES/INCH

SLFTST:

LASCII

<033>/C/

103

58 002257
59 002262
002265
60 002266
61 00227
002274
62 002276
002301
63
64
65 002303
002306
66 002310
67
68 002313
?8 002314

002320
042
042

042

: AND SEND XON.

;8 BYTES. SET HIT COUNT TO 1 HIT/CHAR.

040
040

104

047

STHTCT:

STSPSI:

.ASCII
.ASCII

<033>/ 0/
<033>/ 'F/

040
040

107
040

STULMD:
STPGSZ:

LASCII
LASCII

<033>/ G/
<033>/
W/

;3 BYTES. SET UNDERLINE MODE TO NO=-UND.
;S BYTES. SET PAGE SIZE.

040
112

040

SLTPFF:

LASCII

<033>/

;5 BYTES. SELECT TRAY AND PERFORM FF.

056
104
040

056

SETHTO:

.ASCII

<033>/...0/

;SET HIT COUNT TO O HITS. 5 BYTES.

101

SETCHO:

LASCII

<033>/ A/

;SET SPACE SIZE TO ZERO.

CR:
LF:

.ASCII
LASCII

<015>

:1 BYTE FOR RETURN ONLY. 2 FOR <CRLF>.

110

4!
72 002315

;2 BYTES. DO A SELF TEST. SEND STATUS

<012>

040
060

040

STATUS:

LASCII

<033>/

043

041
040

PSZA4:
PSitt:

LASCII
.ASCII

‘=l

041

052

'J/

‘4 BYTES. SET SPACE SIZE.

040

PSZ14:

LASCII

/l.'

10 SPACES/IN

SELECT FRONT TRAY AND EJECT.

BYTE FOR LINEFEED ONLY.

;STAUS SEQUENCE TEMPLATE.

;PATTERN:
:PATTERN:

SPATTERN:

TWO THREE ONE IN HEX
11 INCHES PAGE SIZE TWO ONE

ZERO IN HEX
14 INCHES PAGE SIZE

-t et OO OO A
OO =2 = O
AN OSSO
ONNVO &
NOVIOWVMWVNO
S S SO —=WwW-—Wn
N —_S,

e D e b D B D =S OO O =
ONSNVIN
== NSOV O
N
VIO S S ONNIWOWVMNO
VDN O

89 002366

OOt
OO == = O
OSrONOS—=O0ON
S
S OMNW—=NWVNWNO
WO

ASCII STRING MESSAGES, TEST TITLES

i ITLE1: .ASCIZ

/XNXNXATEST 1 - SELF TEST/<015><012>

TITLE2: .ASCIZ

/%NXATEST 2 = UNDERLINE/<057>/NO-UNDERLINE MODE TEST/<015><012>

;TITLE FOR TEST 1.

—

SEG 23

GLOBAL AREAS

SEQ 24

MACRO v03.01 7-NOV-80 10:06:10 PAGE 9-2

GLOBAL DATA SECTION

002410
2413
002416
002421
002424
002427
002432
002435
002440
002443

90
91 002446

002451
002454
002457
002462
002465
002470
002473
002476
002501
002504
002507
002512

92
93 002513

114
105
117
116
122
116
115
105
105
015

11
057
055
104
114
105
117
040
123
012

116
116
125
105
18}
040
104
124
124
000

101
123
063
040
115
122
11
103
116
124
124
000

116

124
124
040
110
115
040
124
117
124
105
015

045

TITLE3: .ASCIZ

;TITLE FOR TEST 2.
/XNXATEST 3 - HAMMER HIT COUNT TEST/<015><012>

045

116

045

TITLE4: .ASCIZ

;TITLE FOR TEST 3.
/XNXATEST 4 - CARRIAGE POSITIONING TEST/<015><012>

TITLES: .ASCIZ

;TITLE FOR TEST 4.
,
/XNXATEST 5 - PAPER POSITIONING (VERTICAL) TEST/<015><012>

045

105
040
055
101
105
110
040
125
040
123
012

002516
002521
002524
002527
002532
002535
002540
002543
002546
002551
002554
002557
002562

101
123
064
040
122
101
040
123
m
M
040
123
012

124
124
040
103
122
107
120
11
117
116
124
124
000

105
040
055 101
m
105
117
126
116
107
105
015-

95 002564

045

116

045

105
015

107
126
124
101
040
123
012

&
S

002617
002622
002625
002630
002633
002636
002641

101
123
065
040
120
040
123
m

m
040
105
m
114
1264
124

002567
002572
002575
002600
002603
2606
002611
002614

124
124
040
120
105
120
m
117
116
050
122
103
051

105
040
055
101
122
117
124
116

S3588 Srs

ONNOWVWNI
NS =

BN
= B

TITLEB: .ASCIZ

;TITLE FOR TEST 7.
/XNXATEST 8 - WORST CASE RAPID MOTION TEST/<015><012>

TITLE9: .ASCIZ
/XNXATEST 9 - PRINT RANDOM CHARAC

e e (D) e
D e e B OO
O
NOOHFf
OO0 ==V O N
NNW=O=0WVH
o~ srnvnownun

.ASCIZ

000

.ASCIZ

0 wnrr

VIO S OO0 O =S~ ~Nwnhwownmwn

Ot d OO =2 2 b OO = O
—
O=NHENNSONN=-NSO
S

O wd o cd e
i O e i e O e h
=OO—==O==
ANV
VMNM=—=00WVNNOo
OV OO~

TITLE6:

—_—
M e

— i i e A DO 2 O
O=0ONNWNVSO
S~
WN = S NOVO
NN

S =S NNWNO SO

Ot
d
B d OB
= OO=NO=NHNMNVN
=
VIV =S NS0 O0O0OSHH0

O = e
e e e e e O b b b
ONN==OO00ONNESNIN
=

cd e e Q= OO = = O

=SS =2anNSNSNNNO
S 8
NWO—=WN=NWONOOW-=WN

OOt

TITLE7:

Ot
cd e O e e e
& o =BV
=

[

VOO
= O NNVOES
==

—r et DB OO b

102

103 003046

88882282

MACRO V03.01 7-NOV-80 10:06:10 PAGE 9-3
GLOBAL AREAS
GLOBAL DATA SECTION

SEQ 25

/XNXATEST 6 = PRINT ONE LINE OF EACH CHARACTER/<015><012>

;TITLE FOR TEST 5.

/XNXATEST 7 = PRINT A SWIRL PATTERN/<015><012>

;TITLE FOR TEST 6.

—

GLOBAL AREAS

SEQ 26

MACRO v03.01 7-NOV-80 10:06:10 PAGE 9-4

O=JT O —=2000=WuriVi

123

OHArVOOMNNINN=-=WN-—=

sgsgsesssss

003272

RO
R
S =2\
Ao
nNO
S RON) =N

D)t B OO

2 =SOSPNNNN=LBSFT NS00

b ded

O bbb
cd b e cd e ad A OO

O S
—=O00—=000NO NNV
W=
VTWN=0O
W= OHf NN

=200
=
VW=
O

GLOBAL DATA SECTION

101
103
122

122
12
123

012

000

}%2

?82

126
060
040

040
040
120

0%0
105
126
040
14

117
122
117
123
105

040
101
103
122
012

103
122
124
123
000

};g

6%8

126
116

122
107

117

126

040

116

074
124
116
015

PRMPTA: .ASCIZ

/ENTER STRING. Q TO EXIT TEST.

END WITH <RETURN>./<015><012>

TITLEB: .ASCIZ

/XNXATEST 11 = LIFT/<S57>/DROP RIBBON BY OPERATOR CONTROL/<015><012>

040

127
110

122
125
076
012

};6

?32

126

040

sTITLE FOR TEST 10.

121

105

126

sTITLE FOR TEST 9.

/%NXATEST 10 = PRINT OPERATOR SELECTED CHARACTERS/<015><012>

105

130
040
123

040

TITLEA: .ASCIZ

116

105
126
105

056

061
040
114
040
124
106
106
122
120
040
11
102
17
116
131
102
17
120
122101
11
122
103
117

:PROMPT FOR TEST 10.

W
o~
&
o

o
o

112 0033(7)3

113 003421

114 003442 °

115 003466

e =g =]

OO NN

N=N=

OO0 O0O

i D)

CO==arnwn

B d O

20—

b h

/B - MANUAL MODE/<015><012>

LASCIZ

PRMPTC: .ASCII

ONOOMWNN

LASCII

nin—=ununiunt

aut

b d b

/A = AUTOMATIC MODE/<015><012>

NONOVIO=S

) e e ) e e O = O

LASCII

O—-=O0OO0OWV

) e e

/CHOOSE ONE: A OR B/<015><012>

Ot Ot
LDNOSN =0

L.ASCII

NN =SSO N—- O~ SPNSNODIT
N=WNCO
= WN—-=0NWNO SO —=MNINSOT

—

PNNOSO—=NOVINWVNO
=OWVIVIWN= =00 VMNONO N SOVMWVNONSORAN—=ONOONNWO

B OO A BB B B O HO BB OO SO

(W 1,8 )

O—=N

[

e e,

O b
e
S OMNONY
—

NO=O
=

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

ON =Nt et ONNINO D = = OO =000 NNVIN= N = L ORN= N SO NMN=SON =S

N ettt

—aa

GLOBAL DATA SECTION

GLOBAL AREAS

OOt et Ot et O = O
= O = b OO Ot SO = O ==
O =D
O
s
— 2 b s 8 D —Y
e
NN =D NNNSO == BB f O
—=OO0ONSO—-2NOO S =0
- OO = N) =b - orNN o~ ~ - B NIN=ONOST O
S SOVWWMINSOONWVINW=S SO =WV —=NONW
N
= SN nNO S OCOWO S LSEOWVSWOSROWVWVIVIOS

NN
VAWV v wviun
Vi
PY

8388838388
Y
T A

——
|

. e e
Ne—

OPTN1:

LASCII

LASCIT

<012><015>

—

MACRO v03.01 7-NOv-80 10:06:10 PAGE 9-5
SEQ 27

/WILL RAISE FOR A MOMENT. TO EXIT TEST, ENTER /

;TITLE FOR TEST 11,

]

N
.

/END WITH <RETURN>/<012><015>

/MANUAL MODE: EACH TIME THE <RETURN> KEY IS HIT, THE RIBBON/

003733
055

042
o
&»
o

OO
=2t O = =
SV
W—-LNO —
OHf OWOO~NONVWIY

Ot cd Ot
D D ad e e
QOO
O b e
e
= O
V=
NN —=ONNIWO == SN =N =NONOMNN)
- 5~
WO S S ONWN =S S NNNIOWVINO
SV SN
SO

O b e
e e e e i
SAOMNIN)
= — = O —
NS MNVWNNSSNW—-N

ONWSVON==aunsonsso

e e e i e i e OO =D

ONONN—=OO—=00foNNIN
=

——

i e D) O
OO
O
S OWNNO
S
OSTOHS-ON
NNWONLWVMOWVMO
WO oWwmWn

045
101

003717
003722

WOV
O S OWS

015

— i i e e el i il ) D) - e

[ e R
e
e
TM Dt TM 4 TM
SENV=SNONOO—=2ONO—-OO0ONIN
=
=20
OO WONWVSO
= =NV
20000 N-—

N NNOOON
=S OTNIN—=

003716

==08sNSann—
WVNN=ONOO &~

O e e O = O = e e

'GLOBAL AREAS

—=OFOOONNVIONNOS
S NO SO WVIWWVWVI
= =N

W
~

SP—

—h il ) i i it s e DO

N
=

W
~
N

—

o
W

—

—_——

042

—
—

JASCIT

JASCII

sl
30 Y

|GLOBAL DATA SECTION

MACRO V03.01 7-NOV-80 10:06:10 PAGE 9-6

SEQ 28

<012><015>

/A 'Q" FOLLOWED BY PRESSING THE <RETURN> KEY./<012><015>

TITLEC: .ASCIZ
/XNXATEST 12 - BIDIRECTIONAL FORMS TRACTOR/<012><015>

TITLED: .ASCIZ
/XNXATEST 13 = CUT SHEET FEEDER EXERCISOR/<012><015>

;PROMPTS FOR TEST 11

;TITLE FOR TEST 12,

—

e e—————

—

———

S—

|GLOBAL AREAS

SEQ 29

MACRO v03.01 7-NOV-80 10:06:10 PAGE 9-7

GLOBAL DATA SECTION

122
000

012

015

123

120

105

004054
004057
004062
004065
004070
004073
004076
004101
004106
004107
004112
004115
004120
004123
004126
004131
004134
126 004136

114
105
072
125
120
105
110
1264
105
105
115
124
105
116
101
105
012
012

040
123
040
124
101
040
105
040
105
122
125
040
040
123
14
104
015
015

124
12
103
040
107
123
105
106
104
040
123
102
11
124
114
056

004143
004146
004151
004154
004157
004162
004165
004170
004173
004176
004201
006206
004207
004212

126
123
110
120
105
105
126
040
116
122
054
05
122
056

040
040
105
101
040
116
110
040
124
040
040
040
040
012

111
12
040
107
114
107
077
105
105
101
102
117
103
015

004220
004223
004226
004231
00423
006237
004242
004245
004250
129 004251

101
124
111
040
040
040
103
123
015
012

125
040
132
171
061
111
110
056

114
123
105
123
061
116
105
012

004261
004264
004267

040
103
123

004042
004045

124
125 004046
004051

127 004140

128 006215

130 004253
004256

131 004272

004275
004300

103

111

127

104

101
055

102

055
040

110

,
}
'

105

015
040
061
111
110
012

040
061
111

101

106

040
061
116
105
015

Q4P
Oo.
116

PRMPTD: .ASCII

;TITLE FOR TEST 13,
/SPECIAL TEST: CUT PAGE SHEET FEEDER MUST BE INSTALLED./<12><15>
-

ASCIT

<12><15>

LASCI1

/DEFAULT SIZE IS 11 INCHES./<012><015>

ASCIT
TASCIT

<012><015>
/A =11 INCHES/<012><015>

LASCII

'ASCII

/WHAT IS THE PAGE LENGTH?

=14 INCHES/<012><015>

ENTER A, B, OR (./<012><015>

137
VAV
WY
WINORNON)
= -

004507

004322

133 004346

134 004365

135 004454

136 004473

et = L= T e

004317

b b B B OO == O = b 2 2O B

132 004311
004314
004303
004306

SOOI OOOOCONWVOSWNI=SNN—

DNV W =YWV S OWnDn

OB DD
B OOO
—“N=NO =200
-0

Okt O
OO0 === 0000200
S O=LTO=NNS
==
=2NNOVOOSHOoONNVO S OWV=OO0 = HWOONWO 200 == —=0WVNNO-+20ONO

WNSNW=NNOONNVOONWES
S —2NS S =2

PBB DD D DB DB DD DD BB DDA OB bt
N
=D O=O==NN
=N =N = =NNVOO

VO
—

—_—
2
=200
=

105

OO === OO
O—O Rt
NN
NVOWVN = = S BNNOSRN =N
=2O

SO SN

O = SN
O = =

NYNO VNN

il D) e e wd

= NO = =2 =2 NNINON) = =

e O

SNV

Ot et D

OFOOWVNINON =NINOOWM—=NIONSNS NN =OS =N
SONININO —=ON=2OO0ON =N S VNONO
NNV
VS WSO S S VWV
ONIWSONOO SN2 VNO=WHANNOOWVWES NS WWW S S SO OVOWVNIWWKWW

2 B QO =B DB O

|GLOBAL AREAS

Ottt
Ot Db e e e e e O et B D =
Hro

O\ANflr-‘OMO\flN

&
N

VIV
VS

£ 3 33333443

i
:
*

—
S

'GLOBAL DATA SECTION

MACRO V03.01 7-NOV=80 10:06:10 PAGE 9-8

TUIPMT:

NPRMPT: _ASCII

SEQ 30

LASCIZ
/C

_ASCII
/SPECIAL TEST:/<12><15>

LASCII
- /THIS TEST IS FOR PRINTERS WITH THE BIDIRECTIONAL FORMS /

LASCII
/TRACTOR ONLY./<12><15>

LASCIZ
/ENTER <RETURN> TO CONTINUE.../

=A& (EUROPEAN STANDARD)/<012><015>

/ENTER "'CRETURN>'' TO LIFT THE RIBBON FOR A MOMENT./<12><15>

B BN

139 004654

140 004734

141 005014
124
DB

DD DO —HOHO PO

B TVNOO =P =2ONS W=

cd ON) =2 = O PN = 2O

DDl O

VONIN = = 2O = =0

B D)
OO
—-2UN—=00WNinN—
WNO — S NO =2 NNWNOOO

i i e i i e e ) s e B D) e B D) D e e DO b D B B OO
s
W) = O = =2 O =S OO
OO0 —=ON—=ONSNVOO
=
oM —

WVIN =N = SO0 OV

~ Nt

— e
oo
Eo o

[
—

OOt
= e o o
SN =SSNSO
=N —
VIS WVONOMNNO
S~ &~

NOOMN = ONO S NONVOSHfTOWVIOON
NO SN NNVMOO M NUWVMS NVNOOOWOONNINOWV
=N N—=NO N

" -

138 004614

—

004553
004556
004561
004564

[ T P
NN
S
S
SRy
WS
P
Y, Y
SNV =NNO = =N
VONONI NN
OOWVNO =0 = =02
OfOS ST OCONSOWSO VSISO VINNIVIVOONMWVNOONN—-WNO
=N

W
W

'GLOBAL DATA SECTION

GLOBAL AREAS

OO A0 —HRO PR b O bbb bbb B B O HO P

o
o

MACRO V03.01 7-NOV-80 10:06:10 PAGE 9-9

124

FTYTPM:

SEQ 31

LASCIZ
/ENTER "'Q<RETURN>'' TO EXIT TEST./

.ASCII
/THIS SHOULD BE PRINTED AT THE TOP OF THE PAGE./<12><15>

LASCII
/THE PAGE SHOULD HAVE COME FROM THE FRONT TRAY./<12><15>

RTYTPM: .ASCII
/THIS SHOULD BE PRINTED AT THE TOP OF THE PAGE./<12><15>

MACRO v03.01 7-NOV=-80 10:06:10 PAGE 9-10

—

'GLOBAL AREAS

SEQ 32

'GLOBAL DATA SECTION

|
|
|

|
|

005025
005030
005033
005036
005041
005046
005047
005052
005055
005060
005063
005066
005071
142 005074
005077
005102
005105
005110
005113
005116
005121
005126
005127
005132
005135
005140
005143
005146
005151
143 005154
005157
005162
005165
005170
005173
005176
005201
005206
005207
005212
005215
005220
005223
005226
005231
00523¢
005237
005242
144
145

114
102
120
116
106

1264
110
126
040
040
105
101
056
124
040
107
123
125
040
126
103
105

122
040
105
105
040
101
040

045
101
11
116
1264
123
104
101
040
040
111
105
040
111
105
16
040
101
056

‘106
105
122
124
040
040
105
117
117
126
040
107
012
110
120
105
110
114
110
105
117
040
117
126
040
101
126
131
012
116
127
126
107
117
105
040
126
124
120
16
122
120
116
122
117
122
106
045

040
040
1M
105
101
124
040
120
106
110
120
105
015
105
101
040
117
104
101
040
115
106
115
110
122
122
122
056
015
045
101
111
040
040
116
104
101
117
122
124
056
122
124
040
12
105
131
000

WTSTPM:

LASCII

/THE PAGE SHOULD HAVE COME FROM THE REAR TRAY. /<12><15>

.ASCIZ

/XINXAWAITING TO SEND DATA TO PRINTER. PRINTER NOT READY.X/

.EVEN

148
148 005246

000000

MSGADD: .WORD

151 005254
152 005256

176500
176010

DLDFLT: .WORD
DIDFLT: .WORD

149 005250
150 005252

000000
000000

TRXADD:
BAUDRT:

.WORD
.WORD

JHOLDS ADDRESS OF A MESSAGE

176500
176010

;DEFAULT CSR ADDRESS = SINGLE LINE
“DEFAULT CSR ADDRESS = MULTILINE.

GLOBAL AREAS

SEQ 33

MACRO V03.01 7-NOV-80 10:06:10 PAGE 9-11

GLOBAL DATA SECTION

}gz 005260

000000

155 005262

9000000

000000

000101

157 005276
158 005304
159 005312
160 005320
161 005326
162 00533¢
163 005342

000000
000000
000000
000000
000000
000000
000000

000074
000132
000170
000226
000264
000322
000360

000103
000104
000105
000106
000107
000110
000111

156 005270

164 005350

000000

000036

000416

000102

000112

165 005356 000014 000000 000102
166 005364 000014 000036 000103
167 005372
168 005200
169 005406
170 005414
171 005422
172 005430
173 005436

174 005444

000014
000014
000014
000014
000014
000014
000014

000014

000074
000132
000170
000226
000264
000322
000360

000416

000104
000105
000106
000107
000110
000111
000112

000113

175 005452 000030 000000 000103
176 005460 000030 000036 000104

177 005466

178 005474
179 005502
180 005510
181 005516
182 005524
183 005532
184 005540
185 005546

000030
000030
000030
000030
30
000030
000030
000030
000044

000132
000170
000226
000264
000322
000360
000416
000000

000105
000106
000107
000110
000111
000112
000113
000114
000104

187 005562
188 005570
189 005576
190 005604
191 005612
192 005620
193 005626
194 005634

000044
000044
000044
000044
000044
000044
000044
000044

000074
000132
000170
000226
000264
000322
000360
000416

000106
000107
000110
000111
000112
000113
000114
000115

000074
000132
000170

000107
000110
000111

186 005554

000044

000074

000036 000105

195 005642 000060 000000 000105
196 005650 000060 000036 000106
197 005656
198
199 005672

200 005700
201 005706
202 005714
203 005722
204 005730

000060
000060
000060

000060
000060
000060
000060
oooogo

000226
000264
000322
000360
000416

000112
000113
000114
000115
000116

205 005736 000074 000000
000106
206 005744 000074 000036 000107

—

207 005752
208 005760
209 005766

000074
000074
000074

000074
000132
000170

000110
000111
000112

DFAIL:

.WORD

BASET:

.WORD

0,0,101

.WORD
JWORD
.WORD
.WORD
.WORD
.WORD
WORD

0.60..103
0.90..104
0,120.,105
0.,150..106
0,180.,107
0.210..110
0.240..111

WORD
WORD

12.,0.102
12..30.,103

JWORD

.WORD
'"WORD
JWORD
WORD
JWORD
"WORD
JWORD
WORD

WORD

WORD
WORD

"WORD
.WORD
.WORD
"WORD
"WORD
"WORD
"WORD
"WORD
WORD

.WORD

JWORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD

WORD
WORD
"WORD
"WORD
WORD

WORD
'WORD
"WORD
WORD
WORD

'WORD
WORD
WORD
"WORD
"WORD

0.30.,102

:TABLE ENTRY = 3 WORDS, INCLUDES THE

:ROW #, THE COLUMN #, THE ASCII

*VALUE AND THE ACCESS INDICATOR.
*THE ROW NUMBER AND THE COLUMN NUMBER
;ARE WORDS AND THE ASCII VALUE AND
“ACCESS INDICATOR ARE BYTES.
THE
;FORMAT IS AS FOLLOWS:
;
S
—

0.,270..,112

12..60..106
12..90..105
12..120.,106
12..150..107
12..180..110
12..210..111
12..240..112
12..270..113

c4..0,10%
24..30.,104

24..60..105

24.,90.,106
24.,120.,107
24..150..110
24..180..111
24..210..112
24..240..113
24..270..114
36..0,104

36..30.,105

36..60..106
36..90..107
36..120.,110
36..150..111
36..180..112
36..210..113
36..240..114
36..270..115

48..0,105
48..30.,106

48..60..107
48..90..110
48..120..111

48..150..112
48..180..113
48..210..114
48..240..115
48..270..116

60..0,106
60..30.,107

60..60..110
60..90..111
60..120.,112

ROW # - VRTCLS - LO BYTE

leececccccccccccscccacsssscacacccas
:
ROW # - VRTCLS - Wl BYTE
1
‘:eeccecccccccccscccacccescscccccecs
COLUMN # - HRITLS - LO BYTE
2
leceeccceccccccscccccccscscaccsccas
*
COLUMN # - HRITLS - WI BYTE
3
leececececccccccccccccccccscacaaaas
UNIQUENESS INDICATOR - 1=UNIQUE &
i eecescecccscsccccssscssasasccnccns

ASCI1 BYTE FOR PRINTING

leescecceccsccccscsscccccsccnccacas
;

:
:(THE NUMBER TO THE RIGHT [N THE ABOVE
: FIGURE IS THE BYTE OFFSET FROM THE
* TABLE ENTRY ADDRESS.)
;
;

SEQ 34

b
b

b axb

~NO NS

— b > >

o BT

~N&H 0w

B
L
D
D

= O
b d 2 2 N

I
I

OoONO WV W

D s D D2

OO0~

D
I
L
I
L
R
I

—

N
N

PON) = b et cd NN) =
- O~NONWN
S

U
U
T
T
U

PININD
= i = PNANND
=200

T
T
T
T
- T

OCOO0O0O0:
.
o
.
o
0
R

—

— e e
D e D e e
NNROMNON)
=2 2NN
W
= O~

i \) D D D D D D e D

2 2 O ONNONININ) = =

W
U

PNOMNIN) =

‘DO NOT SEPARATE THE ABOVE TABLE'

i
i
i
s
i
i
-

[elelelelelel0o 00 0o OO 00 00 0O

WA = ONO VIS WMNIN 2O NO VIS NN = S ONO VS WN

i
i
D
e
e
e
D e
D e
D e
D e
D
D
D e
d
e
D e
d
— e

000416

POND PN

000154
000154

2 O NN ONIMNIN = = =2 OONNONININ) — —

d b

2O NNOWVW s W

d e =B ) b =

OO NO WS W

b NI ) b b b e cd e

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

b b b b ced e NI NI ) b b b ed d e

o
o
o

238 006244

002416

013020
170377

040
040
057

—_

‘FROM THE FOLLOWING 3 LINES..... :
o

PR ok o
W
=0

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

) b d d d e

o
o
o

e
b ad d
b
PN

sssssssssssssss

000226

SF£, 00000000

000074
000074
000074
000074
000074
000110
000110
0001
000
000

L
SRR
IO
= © 3 O NN
B I
D
SR FENFESRFFSVRISIR

o
o
o

N =
NS
NN
=0 VONO WV
NOWVES

WN 2OV

N NN NN N NN NN
NN

NN NN

NN NN NN N

NN NINIMNINININININ
b b e b e o
e b

210 005774

NN NN

Qe GGG
ur Gy

MACRO v03.01 7-NOv-80 10:06:10 PAGE 9-12
'GLOBAL AREAS
'GLOBAL DATA SECTION

042

057

FRONT:
REAR:
NULL:

SEED1:
SEED2:
TMPLTY:

.BYTE
.BYTE
.EVEN
.WORD
.WCRD

.WORD

2ERO,ZERO,ONE ;ARGUMENTS
FOR SELECT FRONT TRAY. TEST #13!

ZERO.ZERO.TWO :ARGUMENTS FOR SELECT REAR TRAY. TEST #13!
HEXF ,HEXF ,HEXF ;ARGUMENTS FOR SELECT NULL TRAY. TEST #13!
1294.
5648.

170377

:SEED FOR RANDOM NUMBER GENERATOR

s TEMPLATES

;BITS 8 = 11 USED IN DECODING PRINTER TRANSMISSIONS

'GLOBAL AREAS

SEQ 35

MACRO v03.01 7-NOV-80 10:06:10 PAGE 9-13

'GLOBAL DATA SECTION
267 006432
268 006434

177417
177760

TMPLT?:
TMPLTS:

.WORD
.WORD

8 ot ; USED IN CONVRT TO DECODE PRINTER XMISSIONS

000000
000000

TCRENA:
JUNKPL:

.WORD
.WORD

;WILL CONTAIN TCR ARGUMENT = CHANNEL SELECT
sWILL CONTAIN NOTHING IF DZ CHOSEN. WILL
;CONTAIN JUNK IF DL CHOSEN. SEE SENCHR ROUTINE

017070

LPRINI:

.WORD

017070

:LPR INITIALIZE REGISTER.
:THE FOLLOWING STATUS IS ASSUMED:
:

:
:
:
000001
000002
000004

289 006460
290 006462
N
292
293 006464
294 006466
295 006470

:
BAUTBL

006000
007000

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

‘TABLE OF BIT POSITIONS USED TO SET UP THE
:TCR REGISTER FOR THE APPROPRIATE CHANNEL.

16.

32.

64.
128.

1280.

:TABLE OF MASKS TO USE INSETTING THE BAUD

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

2560.

0
0

:CONTAINS VARIOUS ERROR FLAGS
:CONTAINS THE COUNT OF CHARACTERS ALREADY PRINTED
ggDEHE €2=?$?T LINE IN THE BIDIRECTIONAL PRINTING

;CURRENT PRINTING DIRECTION. 0=FORWARD, 1=REVERSE

000000
000000

ERWORD:
CRNTPR:

.WORD
.WORD

000000

DIRCTN:

.WORD

000000
000000
000000

OUTCTR:
ouTSDC:

.WORD
-WORD
.WORD

FLTRDY:

2)9600 BAUD
3)NO PARITY
4)2 UNIT STOP CODE
5)8 BIT CHARACTER LENGTH

}ggg.

RATE

FOR THE PRINTER IN THE LPR REGISTER.

3072.
3584,

COUNTERS USED IN WAITXN
AND GETCHR TO WAIT OUT THE PRINTER OPERATIONS.

:INDICATES FAILURE TG FIND TRANSMIT READY CONDITION.

VAWVA
NN

=S0NOWVS

v
NN
= b s =

SPECIAL CHARACTER DEFINITIONS

$8 §883%8

W =OOV®NOWVNESWN
2O

L U U U U

N N U

NN NN NN

PNORNONIN)
= b b
b b b b
b

296 006472
297 006474
¢98 006476

TCRTBL:

1)RX=ON

BR2:
EOT:
CAN:
XOFF:
XON:

ESCAPE:
.EVEN
SNGCHR:
CTLZ:

.BYTE

.BYTE
.BYTE

.WORD

004
030
023
021
033

: TENPORARY STORAGE FOR A BYTE VALUE. TEST ”n3
:ASCII “EOT"
:ASCII ''CAN"
:ASCII "'XOFF'
OCTAL 021 = ASCII "‘XON''
:OCTAL 033 = ASCII “ESC"

032

:STORAGE_FOR A SINGLE CHARACTER
:OCTAL 032 = ASCII "*7"

—

——

SEQ 36

|GLOBAL AREAS

MACRO v03.01 7-NOvV-80 10:06:10 PAGE 9-14
GLOBAL DATA SECTION

040
137
137
137
137

LASCII
LASCIT
LASCII
LASCIT
LASCIT

70/
/7C/
/B/
/x/
/A/

103

101

PERIOD:
ACAS:

.ASCII
.ASCII

JACA:/

SPACE:
DASHES:

137
137

LASCII
LASCIT

70/
71/
/./

:SINGLE
s SINGLE
:SINGLE
s SINGLE
s SINGLE
:SINGLE
:SINGLE
:SINGLE

CHARACTER
CHARACTER

CHARACTER
CHARACTER
CHARACTER
CHARACTER
CHARACTER

'B
''X
''0

CHARACTER

;WORST CASE SEQUENCE FOR TEST #8

.ASCII 7/
.ASCII /

;SINGLE SPACE

;PRINTED IN TEST 5 BETWEEN LINEFEEDS

THE REPEATING PATTERN OF ASCII PRINTABLE CHARACTERS.

=N oo
&~

o e e e e e e e O
= =200
W OO

BYTE 173,174,175,176

e e e

S W
N ooVVWNVES
= ONMNO WV
O VIRONS
~N
w

D D
— i D D e

OVINONES-=O

W=
= 2O
SN

) ) ) dd —d

LASCII /[\]*_/<140>/abcdefghijkilmnopqrstuvwxyz/

R—

155
160
163
166
17
173
176
041
044

) e -

152

SNONS
=0 OWVION H

144

NN OO WVIWVIWVIE

147

— el i i

006663

.ENABL LC

CHRLST: .ASCII /!"'#$%8'()*+,=./<57>/0123456789:;<=>?3ABCDEFGHIJKLMNOPQRSTUVWXYZ/

006577
006602
006605
006610
006613
006616
006621
006624
006627
006632
006635
006640
006643
006646
343 006647
006652
006655

041
044
047
052
055
060
063
066
071
074
077
102
105
110
113
116
121
124
127
132
133
136
141

006671
006674
006677
006702
006705
344 006707
00671
345 00671
006716

sCQ:
SCC:
SCB:
SCX:
SCA:

SCO:
SC1:

337
338
339
340
341
342 006555
006560
006563
006566
006571
006574

121
103
102
130
101
060
061
056
101

324 006525
325 006526
326 006527
327 006530
328 006531
329 006532
330 006533
331 006534
332 006535
006540
333
334 006541
335 006542
006545
006550
006553
336

043
046

LASCIT 7!1"#8%8" () ve =, /<57>/0123456789/

Foa
T on

f—

GLOBAL AREAS

MACRO v03.01 7-NOV-80 10:06:10 PAGE 9-5

GLOBAL DATA SECTION

170

D e
|
e
e
D
d
D
e
D e
e
d
d
e

OOV
E SV ANINN = =D
VINN S =2 R WO NN
=N WNO W

i
D
D
D
D e
D
D
d
D
D
D
D

007065
007070
007073
007076
007101
007104
007107
007112
007115
007120
007123
007126
007131
007134
350 007136
007141
007144
007147
007152
007155
007160

055
060
063
06
on
074
077
102
104
110
113
116
121
124
126
13
134
137
142
145
150

LASCII /wxy2z/

BYTE 173,176,175,176

6789:
GHI JKLMNOPQRSTU/
12345
;<=>?3ABCEDF
JASCIT /7' "'#8%R°' () v+ ,=,/<57>/0

el e

NN =00
WOV
NWN

ol
el
e
D e
— e

e
i e
D i i
i
i
i
— e e e

VIS
B S WNWWW
NN =2ONMNO

oW
- ONMANOWVINI
NN NS = OO

i e O

052

VIS S WWNNIMNIN
= = 2 Ooo~

7062

LASCII /::;<=>73ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]*_/<140>/abcdefghijklmnopqrstuv/

047
052
055
060
063
066
on
072
075
100
103
106
M
114
117
122
125
130
133
136
141
144
147
152
155
160
163
166
167
172
173
176
041
044
047

OIS
S WWNWWNINN = =200
S = ONNWOVINONS
20N NO VO N &~

006721
006724
006727
006732
006735
006740
006743
346 006744
006747
006752
006755
006760
006763
006766
006771
006774
006777
007002
007005
007010
007013
007016
007021
007024
007027
007032
007035
007040
347 007041
007044
348 007045
007050
349 007051
007054
007057

LASCIT /viXYZL\]*_/<140>/abcdefghijkimnopqrstuvwxyz/

SEQ 37

oty

SEQ 38

~ooooown
—ON WO W

—

~NONON WA
oWV
~J &

~NOorOrOrYWNY
NN
=20 N

MACRO v03.01 7-NOv-80 10:06:10 PAGE 9-16
GLOBAL AREAS
GLOBAL DATA SECTION

FBTM:

LASCII

/THIS MESSAGE SHOULD BE PRINTED AT THE BOTTOM OF THE PAGE./<15>

= VNOoOOMNNOH~ SOOI

Ot O
b b cd cd i cd cd i
D D e
VIOOSH S NNO—=NNO—=NO
= —=0ON) -

b e e

B B D) D

B B DO

D h D B O -

ON=O=NSNOO=HFSTNVNOMN
S —
VIOOO VS OSN =2 N=00WVIWNWOO

OOt s
cd OO b e
i e ) b d h =
S OPNS
s O
NINVNOO =500 NN

WVINO S NNNVIOO
SNV NO =W

.DSABL LC

VARIABLE ASSIGNMENTS
.EVEN

THE FOLLOWING LABELS ARE USED WITH THE INTERFACE OPTION WHICH THE

LOPSE IS CONNECTED TO.
RCSR:
XCSR:
RBUF:
:
XBUF

PGMCTR:

.WORD
.WORD
.WORD
.WORD

ERMSGB:

.WORD

LPR:

TCR:
TDR:

382 007332

;ADDRESS OF
sADDRESS OF
;ADDRESS OF
;ADDRESS OF

.WORD
.WORD
.WORD
.WORD

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

THE RECEIVER CSR REGISTER
THE TRANSMITTER CSR REGISTER
THE RECEIVER BUFFER
THE TRANSMITTER BUFFER

;ADDRESS OF THE LINE PARAMETER REGISTER (DZ11)
;ADDRESS OF THE TRANSMITTER CONTROL REGISTER (DZ11)
;ADDRESS OF THE TRANSMITTER DATA REGISTER (DZ11)
;ADDRESS + & WHERE THE LAST TRANSMISSION CALL OCCURRED.

EDFMO

EDFMI
EDFM?
EDFM3
EDFM&
EDFMS5
EDFM6

;TABLE OF ERROR MESSAGE ADDRESSES USED IN

;THE ERRORS ROUTINE.

MACRO V03.01
GLOBAL AREAS
GLOBAL DATA SECTION

393
304°
395
396 007352
.
397
398 010026
399
400 010030
401 010032
402 010034
403
404 010036
405
406 010040
407
408 010042
409
210 010044

7-NOV-80 10:06:10 PAGE 9-17

BFRA:

.BLKB

300.

000000

TOPSTK:

.WORD

000000
000000
000000

BFRB:
BFRC:
BFRD:

.WORD
.WORD
.WORD

000000

SPCSIZ:

.WORD

:THE NUMBER OF HORIZONTAL INCREMENTS PER SPACE.

000000

I.INN:

.WORD

;THE NUMBER OF HORIZONTAL INCREMENTS PER LINE.

000000

LINSIZ:

.WORD

: THE NUMBER OF CHARACTERS PER LINE ON PRINTER.

000000

TRDYBT:

.WORD

;TRANSMIT READY BIT POSITION. VALUE IS SET DYNAMICALLY
:IN THE INITIALIZATION CODE SO THAT BOTH SINGLE LINE
; INTERFACES AND DZ11 INTERFACES MAY BE USED.

e e e e O
VIS
NN -=O~N

N SSWNN~NNOW

OHr =0wVorwn

EDFM?7
EDFM8
EDFM9

Gr
Gy

.WORD
.WORD
.WORD

[elelelelelel)

383 007%36
384 007336
385 007340
386 00734
387 007346
388 007346
389 007350

SEG 39

.WORD
.WORD
.WORD
.WORD

EDFMA
EDFMB
EDFMC
EDFMD

;BUFFER FOR INPUT FROM USER AND ALSO USED AS A

: SOF TWARE STACK.

;USED TO POINT TO THE TOP OF THE SOF TWARE STACK

WHEN NEEDED.

#BFRA + 150.

DEFAULT AREAS FOR GMANID QUESTIONS. MAY BE CLEARED.

000
000

000

MNEB1:
MNEBZ2:
MNEB3:

.BYTE

;USED IN PROCEDURE CONVRT:
;USED TO PASS A MNEMONIC VALUE FROM THE CONVERSION

THREE BYTES
A SINGLE WORD VALUE ACCEPTED
sROUTINE.
:RETURNED T0 CALLER: MNEB1, MNEBZ2, MNEBS.

.EVEN

:SZ 010052 000000

MLTLIN:

.WORD

: INDICATOR:

000000

DELCNT:

.WORD

;COUNTER OF SMALL TIME INCREMENTS USED IN DELAY ROUTINE

000000

NDATA:

.WORD

UNIBUS FAILURE
:NO DEVICE AT THAT ADDRESS INDICATOR.
;70 FIND A DEVICF AT THE REFERENCED ADDRESS CAUSES
A
:TRAP TO OCCUR WHICH IN TURN WILL SET THE NDATA WORD

HITARG:

.BYTE

423
rd)
425 010054
426
427 010056
428
429
430
431 010060
432
433
4!6 010062

000

.EVEN
LINCNT: .WORD

436 010064

:
CHRCNT

638 010066
«39

CCOUNT:

.WORD

MULTILINE INTERFACE?-1

SINGLE LINE?-0

;10 ONE.

: TEMPORARY STORAGE OF THE HIT COUNT ARGUMENT USED IN
;SET HIT COUNT TEST.

;A LINE COUNTER USED IN TEST #5. PAPER POSITIONING TEST
;A CHARACTER COUNTER USED IN TEST #6, WHERE ONE LINE OF
;EACH CHARACTER IS PRINTED.
.A COUNT OF CYCLES, USED IN TEST #1i- LIFT/DROP RIBBON

|
MACRO v03.01 7-NOV-80 10:06:10 PAGE 9-18

440 010070

441
4l

000000

L4
Lik

445 010072
010072

010072
010074
010076
b 010100

INUPB:

GLOBAL AREAS

GLOBAL DATA SECTION

SEQ 40

.WORD

SAN INDICATOR OF WHETHER THE PRINTER RIBBON IS IN THE

‘UP OR DOWN POSITION.

ERRTBL

000000
000000
000000
000000

ERRTYP::
EPRNBR: :
ERRMSG: :
ERRBLK: :
.SBTTL

LWORD
WORD
.WORD
WORD

0
0
0
0

GLOBAL TEXT SECTION

TEST #11, LOCAL PROC. MANLD:

LSERRTBL
::

—

—_—

SEQ 41

GLOBAL AREAS
MACRO v03.01 7-NOv-80 10:06:10 PAGE 10
GLOBAL TEXT SECTION
1

2
3

THE GLOBAL TEXT SE CTION CONTAINS FORMAT

;

; MESSAGES, AND ASCI I

6
7
8
G
10
11 010102

TEST

: NAMES OF DEVICES SUPPORTED BY PROGRAM
DEVIYP

114
123
106
105
101
114
124
040
101
124
120
116
122

121
105
040
122
114
105
105
121
114
13
122
124
000

<LQPSE-F

SERIAL LETTER QUALITY PRINTER>

e D)
e e D) e
O =
O=5 =N
=N
VM= O =N HNO = WnWwNO

010102
010102
010105
010110
010113
010116
010121
010124
010127
010132
010135
010140
010143
010146

THAN ONE

STATEMENTS,
INFORMATION THAT ARE USED IN

LASCIZ

; TEST DESCRIPTION

14
15
16
17 010150

010150
010153
010156

010161
010164
010167
010172
010175
010200
010203
010206
010211
010214
010217
010222
010225

DESCRIPT
104
107
123

103
117
114
123
106
105
101
120
116
122
116
104
061

m
116
124

040
122
121
105
040
122
114
122
124
040
040
120
061

OOt s cd O et e O = O = e d
OV
=O =S =NV
O = =0
OWVC NWN=O
= WWNOOO—=~N—

010150

|
<DIAGNOSTIC FOR LQPSE-F

SERIAL PR}SEE? ON FDP-11>
L

.ASCIZ

/DIAGNOSTIC FOR LQPS

.EVEN

18
19

R T

THIS PROGRAM WILL PERFORM UP TO THIRTEEN SEQUENTIAL TESTS ON THE

20
21
22
23
24

SERIAL LETT

.EVEN

/LQPSE-F

LOPSE-F SERIAL INTERFACE PRINTER.
THE TESTS WILL CHECK BOTH THE
LOCAL PRINTER SOFTWARE AND THE PRINTER HARDWARE BY SENDING VARIOUS
CHARACTER SEQUENCES TO THE PRINTER WHICH WILL CHALLENGE THE PRINTER
SPECIFIED CAPABILITIES.
A PRINT PATTERN WILL BE GENERATED ON THE

r—————

———

iGL(BAL AREAS

SEQ 42

MACRO V03.01 7-NOV-80 10:06:10 PAGE 10-1

GLOBAL TEXT SECTION

25
59

3
:

PRINTER WHICH WILL BE USED IN THE DIAGNOSTIC PROCESS BY THE FIELD
SERVICE TECHNICIAN.

.EVEN

33
34

36
%g

:
3

ERROR STATEMENT TABLES

THESE TABLES ARE USED BY THE ERRDF, PRINTB, AND PRINTX MACROS

FORMAT STATEMENTS USED IN PRINT CALLS

;AAQAAAAAhAAAAAQAAAAAAAAAAAAAAAAAAAAAAGAAAAAAAAAAA‘AAAAAAAAAAAQAAAAAAAAAAAAAA.A

Bv s

s 500N E B

44
22

IN THE PROCESS OF PRINTING ERROR MESSAGES TO THE USER AT THE CONSOLE.

.ASCIZ

116
105
117
040
124
124
040
124
040
114
101
120
040
066

045
122
122
104
105
105
101
105
103
114
124
103
045
000

PRTBMO:

49 010302
010305
010310
010313
010316
010321
010324
010327
010332
010335
010340
010343
010346
010351
010354
010357

045
101
123
124
116
m
M
040
101
105
101
114
101
17
040
066

116
114
124
122
123
123
117
123
122
104
124
117
124
116
045
000

045
101
040
101
115
123
116
124
124
040
040
103
m
072
117

PRTXMO: .ASCIZ

RSS2 H VSN S EAIN ISR EBHEESE ShNN

GENERAL FORMATS FOR OQUTPUT OF PC AT TIME OF CALL AND ADDRESS OF
LATEST TRANSMISSION.

045
101
122
040
105
103
104
106
122
101
040
040
072
117

51
52

Ve B ISV es E B ASEEN s A

:
2

47 010230
010233
010236
010241
010244
010247
010252
010255
010260
010263
010266
010271
010274
e 010277

EES NP S

;

/XNXAERROR

DETECTED AFTER CALL AT PC: %06/

/XNXALAST TRANSMISSION STARTED AT LOCATION: %06/

::OOIIlll.!.!l!.llllllll.lllOl0l||00!!!00!.0.00.!!!!'!!!'l!! . " " " I B NN EEE NN NN
:

GLOBAL AREAS

—

SEQ 43

MACRO v03.01 7-NOV-80 10:06:10 PAGE 10-2

GLOBAL TEXT SECTION

ERWORD BIT=0

EDFMO:

.ASCIZ

58
59

:
:

USE OF THESE STRINGS WILL BE AS FOLLOWS...
ERRDF
#NUMO,EDFM8
-DEVICE FATAL ERROR CALL

PRINTX

56 010361
010364
010367
010372
010375
010400
010403
010406
010411
010414
- 010417

i
1
040
M
122
104
105
105
101
120
116
122

055
106
114
105
105
103
104
124
122
124
056

117
101
125
040
124
124
040
040
111
105
000

63
64
gz

1/0 FAILURE

/1-0 FAILURE DETECTED AT PRINTER./

PRINTB

PRTBMO,PGMCTR

-PRINT BASIC ERROR MESSAGE

PRTXMO.TRXADD,ERWORD

RN
:
:

ERWORD BIT-1

FDFM1:

.ASCIZ

69
70

;
:

USE OF THESE STRINGS WILL BE AS FOLLOWS...
ERRDF
#NUM7 ,EDFMI
-DEVICE FATAL ERROR CALL

PRINTX

67 010422
010425
010430
010433
010436
010441
010444
010447
010452
010455
010460
010463
010466
010471
- 010474

104
1M
040
124
040
122
056
120
116
122
125
105
106
114
000

105
103
106
101
105
117
040
122
124
040
106
122
125
056

126
105
101
114
122
122
040
11
105
102
106
040
114
040

;

NSRS TG e S

-PRINT EXTENDED ERROR MESSAGE

ERWORD BIT=2

EDFM2:

.ASCIZ

122
057
115
101
125
040
124
124
040

117
122
040
m
122
104
105
105
102

s 5 es

PRTXMO.TRXADD,ERWORD

;9
120
115
101
106
114
105
105
103
104

O ES

PRINTER BUFFER FULL. /

PRINTB PRTBMO,PGMCTR

§ o

UG MY

BUFFER FULL

/DEVICE FATAL ERROR.

78 010475
105
010503
010506
010511
010514
010517
010522
010525

1 T«

SEC 0 9SSBT

-PRINT BASIC ERROR MESSAGE

-PRINT EXTENDED ERROR MESSAGE
SR

SRR TR ST IR S TSR N

SRS SHSF AT KSR

PROM/RAM FAILURE

/PROM/<57>/RAM FAILURE DETECTED BY PRINTER./

p— e

—

F 4

l
/GLOBAL AREAS

SEQ 44

MACRO V03.01 7-NOV-80 10:06:10 PAGE 10-3

'GLOBAL TEXT SECTION

010530

010533
010536
- 010541

122
124
056

M
105
000

120
116
122

USE OF THESE STRINGS WILL BE AS FOLLOWS...

PRINTB

ERRDF

#NUMB EDFM?

PRINTX

PRTXMO,TRXADD,ERWORD

ERWORD BIT=3 PRINTER ERROR = N OUT OF RANGE IN ESC SEQUENCE

EDFM3

LASCIZ

91
92

:
:

USE OF THESE STRINGS WILL BE AS FOLLOWS...
ERRDF
#NUM9 EDFM3
-DEVICE FATAL ERROR CALL

96
97

s
:

010557
010562
010565
010570
010573
010576
010601
010604
010607
010612
010615
- 010620

122
116
125
117
122
107
mm
105
040
121
116
056

122
124
040
122

072
040
124
106
101
105
116
123
123
125
103
000

111
105
105
117

3
3

010636
010641
010644
100 010647

120
123
123
124

040
105
105
000

101
105
127
103

120
123
104

PI PR

SR E N

I TEAASIECEES SREARESEH

/PRINTER ERROR: N OUT OF RANGE IN ESC SEQUENCE./

125
040
m
110
122
123
056

PRINTB
PRINTX

PRTBMO,PGMCTR
PRTXMO,TRXADD,ERWORD

=PRINT BASIC ERROR MESSAGE
=PRINT EXTENDED ERROR MESSAGE

ube ok Shassebsises ire s vhEiare FEaubsBtnes A

ERWORD BIT-4

EDFM4&:

_ASCIZ

H RO RVENTRAE 35 Se TR S e s Savussuii

PAUSE SWITCH

/PAUSE SWITCH PRESSED./

102

:PRTBMO AND PRTXMO ARE USED IN THIS ERROR RESPONSE ALSC.

105
106

3
2

USE OF THESE STRINGS WILL BE AS FOLLOWS...
ERRDF
#NUM2 ,EDF M4
-DEVICE FATAL ERROR CALL

183

PRINTX

}gz

107
1

040
117
040
040
116
040
040
103
105
105
105

93
8§

100 010622
010625
010630
010633

SO S TRE G

=PRINT EXTENDED ERROR MESSAGE

L s s AR SR

120
116
122
122

PR SISV

=PRINT BASIC ERROR MESSAGE

89 010543
010546
010551
010554

SRS

-DEVICE FATAL ERROR CALL

PRTBHé.PGHCTR

;WILL BE AS FOLLOWS...

s
2

PRINTB PRTBHO.PGHCTR

PRTXMO,TRXADD,ERWORD

USE OF THESE STRINGS

=PRINT BASIC ERROR MESSAGE

=PRINT EXTENDED ERROR MESSAGE

SEQ 45

MACRO v03.01 7-NOv-80 10:06:10 PAGE 10-4

GLOBAL AREAS

i
il
D e
—

N =N =N —=O
NOCO NV

O
cd OO
s
OO =2 S
OWVM—=00O~N~N-—

—

o
o
o

ERWORD BIT=5

EDFMS:

.ASCIZ

PRINTB

010713
010716
010721
010724
010727
010732
010735
010740
010743
010746
010751
01075¢

RIBBON OUT

/RIBBON OUT ON PRINTER./

PRTXMO,TRXADD,ERWORD

nal

LASCIZ

=PRINT BASIC ERROR MESSAGE

=PRINT EXTENDED ERROR MESSAGE

UNDEF INED CHARACTER OR ESC SEQUENCE RECEIVED.

/UNDEFINED CHARACTER OR ESC SEQUENCE RECEIVED./

:
:

USE OF THESE STRINGS WILL BE AS FOLLOWS...
-DEVICE FATAL ERROR CALL
#NUM4 ,EDFM6
ERRDF

PRINTX

PRINTB

PRTBMQ,PGMCTR

PRTXMO,TRXADD,ERWORD

-PRINT BASIC ERROR MESSAGE

-PRINT EXTENDED ERROR MESSAGE

OWVOMNMN
S =2

O
D b e
e e
SO
NVN—=OO0ON

e e
— e O

~
~

=N =200000
S, O0OO0ONWN—=O
LW

—

PRTBMO,PGMCTR

ERWORD BIT-6
<o

Messe
s

Ot it O et = O = e ed e e d h
VIO
=N O=00—=0—=0
OO WO —=OWVNNWN—=O
S =

010677
010702
010705
010710

(e P elelalelePP oytSelele
=2 NNUNTNWO
O SNWVNONO

- PRINTX

°—.—.-fl—.-‘-‘-‘-‘—l-‘-fl°—._‘-‘
COONONINNININNOO
S =OMN
OWVIVINDWWWVMWWWNOINI
W -0 0

~NOW
VIS W= OV

guuuuuummmw
VB W =200V
NO

R
R
S
T
Y

USE OF THESE STRINGS WILL BE AS FOLLOWS...
ERRDF
#NUM3 EDFM5
-DEVICE FATAL ERROR CALL

PNOMNRONIMNONIN)
= b
b

010675

OBt
s d Ot
VIO
=N SO
RSN
O

o
i

e
—

— o

e o

GLOBAL TEXT SECTION

ERWORD BIT-7

EDFM7:

.ASCIZ

SHEET FEEDER ERPOR

/DEVICE FATAL ERROR.

SHEET FEEDER ERROR./

MACRO v03.01
'GLOBAL AREAS
'GLOBAL TEXT SECTION

SEQ 46

7-NOv-80 10:06:10 PAGE 10-5

o . = a0

—— w

—

122

EDFM9:

()=X7wov

(%]

[+
4 —4— ~

le
&

'GLOBAL AREAS

SEQ 47

MACRO v03.01 7-NOV-80 10:06:10 PAGE 10-6

|GLOBAL TEXT SECTION

127

WAITMX:

LASCIZ

/WARNING:

SOF TWARE ERROR.

ERROR WORD (ERWORD) HAS BEEN/

/WARNING:

SOF TWARE ERROR.

ERROR WORD (ERWORD) HAS BEEN/

/XAWAITING/

ERWORD BIT-12

LASCIZ

;WHEN GETCHR WAIT STARTS GETTING LONG...

UNEXPECTED CHARACTER RECEIVED

/UNEXPECTED CHARACTER RECEIVED FROM PRINTER./

—

————

'GLOBAL AREAS

SEQ 48

MACRO v03.01 7-NOV-80 10:06:10 PAGE 10-7

|GLOBAL TEXT SECTION

103
104
110
101
105
122
105
105
106
115
122
124
056

124
040
101
103
122
105
M
104
122

040

m
105
000

105
103
122
124
040
103
126
040
117
120
116
122

011452
011455
011460
011463
011466
011471
011474
011477
011502
011505
011510
011513
" 011516
162

}gg

B u

198

ERWORD BIT=13

FDFMD:

.ASCIZ

173

USE OF THESE STRINGS WILL BE AS FOLLOWS...

};9

PRINTX

163
164
}gg

USE OF THESE STRINGS WILL BE AS FOLLOWS...

3
:
:

171 011520
011523
011526
011531
011534
011537
011542
011545
011550
011553
011556
011561
011564
011567
011572
011575
2 011600

105
105
105
103
122
124
040
124
105
m
104
122
040
105
122
124
056

130
103
104
110
101
105
116
040
103
126
040
117
124
040
m
105
000

120
124
040
101
103
122
117
122
105
105
106
115
110
120
116
122

174
175

ERRDF
PRINTB
PRINTX

e s SRR

2
2

178

179 011602

011605
011610
011613
011616
011621
011624
011627
011632
011635

045

101
m
104
117
m
040
m
105
101

116

106
114
040
040
116
120
116
122
124

045

101
105
124
106
104
122
124
040
040

Bo e a A

FAILM:

ERRDF
PRINTB

#NUM10 ,EDFMC
PRTBMO,PGMCTR
PRTXMO,TRXADD,ERWORD

S W

SRR

RSP

R S SN

ONE S

SNE

AP S TSNS

EXPECTED CHARACTER NOT RECEIVED FROM PRINTER

/EXPECTED CHARACTER NOT RECEIVED FROM THE PRINTER./

#NUM11 ,EDFMD
PRTBMO,PGMCTR

PRTXMO,TRXADD,ERWORD

SRR

.ASCII

e S RN RS PSR

=DEVICE FATAL ERROR CALL
=PRINT BASIC ERROR MESSAGE
=PRINT EXTENDED ERROR MESSAGE

R RSO ES C BTSSP

-DEVICE FATAL ERROR CALL
=PRINT BASIC ERROR MESSAGE

=PRINT EXTENDED ERROR MESSAGE

ST VRS

Y SRR

/XNXAFAILED TO FIND PRINTER AT DEFAULT ADDRESSES./

012001
012004
012007
012012
012015
012020
012023
182 012024
012027
012032
012035
770
773
1776

012040
012043
012046
012051
012054
012057
012062
012065
01207%
01207
012076
012101
012104
125
040
040

120
103
114
123
103
m
056
045
116
045
101
040
040
040
040
040
040
040
040
040
040
040
040
040
040
oWV

—
e ) d e e D e s el i
OOOHfT NN WNON =D
SONVOS=20WVNSWVNW=SWS

V=0 == VNNOWO
=W

d e = O e

O=NW—-=O0OO0ONH
=0

116

COWVIOCN

105
123
101
122
123
125
124

d d e e

d o o
D o

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

181

d D o
i

e
e

D D o e
e e i D e

180

w -t

o
e

D i

011640

d d d d

D e

D) —h

O=Sf00VINVNO—=O
—_NO
= VNON NN = SO

— e

NN
S SNV WW SOV

SLSLSIST
ST ST STwP 18 e ]

O =222 S ONNNSOOONOO
WIS §~ = 5~
=S NMVNOO0OO0O0O000O WVINONIWO

s T
—p—
= OO0 O0O0O0O0O0O NN

Nfl\lfl\lNNNNNNNNNNN‘NNNO‘OOOOOOO‘O%
OOV
SN SN SN NN
= = o000 NN~NOrOrVWN
o
5~
VINNS 2O NO VNN =N WOWVIN NS =M WOWNIN S =0

o o o
i D

GLOBAL TEXT SECTION

GLOBAL AREAS

O D)
b

MACRO v03.01 7-NOv-80 10:06:10 PAGE 10-8
SEQ 49

LASCII
/ RESTART PROGRAM.

LASCII
/XNXATHE CSR ADDRESS QUESTION MUST BE EXPLICITLY SPECIFIED./

LASCIZ
/XNXNXNXINXA.

/<12><15>

oo ]

187
D e

012264

D e

OH =SS n—=n

PNV OOS

2 O

b e cd O =

D o

i e

D e

D i

own NN

COON—=OO
=0 WWNW

i o

OOV
S8 S WWWWWNON

T
= Dl =
S ONSOONNO
ST OO
=
- B PO WVINWES
O WWNONW

[ B
e L R
e
S22 O0O0ONSFT O
OWVESNOWVIN
=0

KWNNN—'-‘—'OONN*Ig
SR ENORWOWVIN
NS 2SON WO VINN S =0 WWOo Vi

N NN NININMNININININININ)
= = s
Vi & S

NN
NN
NN

S V=SOWSs
2=
20N

2-&obbbm°b~m

DD D

NN =2

D e

—

pu—p———

00O

012107

—_, e

NSwWON

- PNONON)
=

[=]lelelelelelelelelelelelelelelelelelolelelolelelelalalede
)

124

sB e
o
NS =P NNON
=W
-t et NNOON
= O
O COCONWN

PP
-

OO0
—=0O0 -0 P

WO
=0 WOWVNON
O NOWVNO NS = O

186

0000000000000
00O0

—

Wi W

©o
0o 0o

MACRO v03.01 7-NOV-80 10:06:10 PAGE 10-9
GLOBAL AREAS
GLOBAL TEXT SECTION

056

FAILDL: LASCIZ
/XNXAINCORRECT CSR ADDRESS GIVEN.

FAILDZ:
/XNXAINCORRECT CSR ADDRESS OR CHANNEL GIVEN.

.ASCIZ

FXRDYM: .ASCIZ

SEQ 50

040
040
040

ERROR MESSAGE FORMAT FOR FAILURE IN DEFAULT PROCEDURE.

/XNXAFAILED TO TRANSMIT TO PRINTER.

TRY AGAIN..

TRY AGAIN...

~ |

GLOBAL AREAS

MACRO v03.01 7-NOv-80 10:06:10 PAGE 10-10

GLOBAL TEXT SECTION

122
124
056
040
040
040
040
040
040
040
040
045
045
101
m
116
106
040
103
122
124
040
117
124
040
m
105
040
040
040
040
040
045

012520
012523
012526
012531
012534
012537
012542
012545
012550
012553
012556
012561
012564
012567
012572
012575
012600
012603
012606

115
117
072
110
113
117
105
m
120
116
122
117
105
105
120
120
114
040
045

o028

—t

NO SO WWN—=OOWHWW
OO

Qo_a_ao-._a-.-o—ngo-._a_.-n
S NONVOO
SN =N =200 -

s b

ngONOO-‘
O =N
S WO

045
101

189 012512
012515

LASCIZ

/XNXAWAITING FOR A CHARACTER FROM THE PRINTER.

LASCIZ

/XNXATIME-OUT: CHECK TO SEE IF PRINTER CONNECTED PROPERLY.

Le T
N
G
—
BNV
=22000 200N
ONO OOV
= 0O =N~

012351
012354
012357
012362
012365
012370
012373
012376
012401
012404
012407
012412
188 012414
012417
012422
012425
012430
012433
012436
012441
012444
012447
012452
012455
012460
012463
012466
012471
012474
012477
012502
012505
012510

SEQ 51

MACRO v03.01 7-NOV-80 10:06:10 PAGE 10-11

GLOBAL ERROR REPORT SECTION

193

.SBTTL

GLOBAL ERROR REPORT SECTION

SEQ 52

GLOBAL AREAS

MACRO v03.01 7-NOv-80 10:06:10 PAGE 11

—b
e L

N =DV
NO NI WWN =

: THE GLOBAL ERROR REPORT SECTION CONTAINS MESSAGE PRINTING AREAS
; USED BY MORE THAN TEST TO OUTPUT ADDITIONAL ERROR INFORMATION. PRINTB
; (BASIC) AND PRINTX (EXTENDED) CALLS ARE USED TO CALL PRINT SERVICES.

d
) e
—

.EVEN

012610
610

012610
oV
w

-_—

GLOBAL ERROR REPORT SECTION

612

012614
012614
012614

BGNMSG
EXIT

000167

MSG

JSJMP

TRAP

C$MSG

.WORD

000000

ENDMSG

104423

LWORD

.SBTTL

GLOBAL SUBROUTINES SECTION

L10001:

L10001-2%.

oo |

GLOBAL AREAS

SEQ 53

SN
-

; THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES

;

THAT ARE USED

IN MORE

THAN ONE

TEST.

oo |

SEQ 54

GLOBAL AREAS
MACRO v03.01 7-NOV-80 10:06:10 PAGE 12
GLOBAL SUBROUTINES SECTION

SEQ 55

MACRO v03.01 7-NOV-80 10:06:10 PAGE 13

GLOBAL PROCEDURE XMIT:
N

THIS PROCEDURE WILL TRANSMIT CHARACTER SEQUENCES TO THE PRINTER.
THE SEQUENCE WILL BE TRANSMITTED IN ONE OF TWO MODES: WITH

TETETETE

BIDIRECTIONAL PRINTING ENABLED AND WITH BIDIRECTIONAL PRINTING
DISABLED.
THERE ARE THREE ARGUMENTS SENT TO THIS ROUTINE IN
REGISTERS R1, R2, AND R3.
R1 IS EXPECTED TO CONTAIN THE ADDRESS
OF THE FIRST BYTE (ASCII) TO BE SENT TO THE PRINTER CONTROLLER.
R2 1S EXPECTED TO CONTAIN THE NUMBER OF BYTES TO BE TRANSMITTED
TO THE PRINTER FROM THE CONTIGUOUS ARRAY WHOSE ADDRESS IA IN R1.
R3, IF SET TO -1, ENABLES BIDIRECTIONAL PRINTING SOF TWARE TO
CONTROL THE TRANSMISSION PROCESS.
IF R3 IS EQUAL TO ZERO, THEN
NO BIDIRECTIONAL PRINTING IS PERMITTED AND ALL CARRIAGE CONTROL
CHARACTERS MUST BE EXPLICITLY SENT BY THE CALLING ROUTINE.

=2 OOV

PONOAIND
= e cd cd cd cd e o o

NIWWN = O 000 NONW b
=

GLOBAL SUBROUTINES SECTION

INPUTS

R1
R2
R3

.
.

ADDRESS OF STRING TO PRINT
NUMBER OF BYTES IN STRING TO BE PRINTED.
IF SET, BIDIRECTIONAL PRINTING IS TO BE ENABLED.

OUTPUTS
THE STRING IS PRINTED ON THE PRINTER.

GREASE

If SET TO -1, AN ERROR HAS OCCURRED.

SET FOR FAST EXIT

SUBROUTINES USED

SENCHR

SIDE EFFECTS

THIS ROUTINE WILL SEND THE CHARACTER TO THE PRINTER

BUFFER (IF THERE IS ROOM IN THE BUFFER AND NO
CHARACTERS ARE CURRENTLY BEING RECEIVED.

THE CONTENTS OF R1 AND R2 ARE NOT PRESERVED.

R3, R4, AND RS ARE

PRESERVED.
IF A TRANSMISSION ERROR OCCURS, THIS ROUTINE WILL CAUSE A
+ GREASED EXIT TO OCCUR FROM THE CURRENT TEST.

CALLING SEQUENCE

VAWV VAWV

NOAWN S NN -

PUT THE STRING ADDRESS inNTO R1, THE NUMBER OF CHARACTERS TO BE PRINTED
INTO R2 AND SET R3 TO ENABLE OR DISABLE THE BIDIRECTIONAL PRINTING.

SET R3 TO O FOR NO BIDIRECTIONAL PRINTING.

SET R3 TO -1 FOR

BIDIRECTIONAL PR}g;lNG EgeakgiT THE CALL IS THEN...

GLOBAL AREAS

MACRO v03.01 7-NOV-80 10:06:10 PAGE 13-1
'GLOBAL SUBROUTINES SECTION

58 012616
59 012622
60 012624
61 012626
62 012630
63 012632
64
65 012634
66
67 012640
68 012644
69 012650

(SP) ,PGMCTR
R1,=(SP)
R2,=(SP)

;SAVE THE CALLING PC + &

R3,=(SP)
R4 ,=(SP)
RS,=(SP)

;SAVE ALL GUARANTEED
:

005250

MoV

R1,TRXADD

;SAVE THE TRANSMISSION ADDRESS

007352
000226
010026
010026

MOV
ADD
MoV
INC

#BFRA,RS
#150. ,R5
RS, TOPSTK

;BOTTOM OF SOFTWARE STACK

;1F ZERO THEN NO BIDIRECTIONAL PRINTING
;IF SET THEN GOTO BIDIRECTIONAL PRNTG CODE

007314

010137

012705
062705
010537
005237

XMIT:

005703
001021

TST
BNE

TOPSTK

BIDIRP

NO BIDIRECTIONAL PRINTING.
ALL CARRIAGE
CONTROL MUST BE EXPLICITLY SENT BY

85 012672
86 012676
87
88 012702
89 012710
90 012712
9N
92 012716
93 012720
94 012722

95
96
97
98 012726

010103
060203

THE CALLING ROUTINE.

002206
013366

022737
001002
000137

177777

010103
060203

012732

023737

ran—-o3BIRIRAR28

R2,R3

;ADDRESS OF THE FIRST CHARACTER IN THE STRING
ADDRESS OF THE LAST CHA;AS;ES éN THE STRING

Move

(R1)+,R2

GET THE CHARACTER INTO R2 AND POINT TO NEXT

CLR
JSR

GREASE

002206

CMP
BNE
JMP

#-1,GREASE
LCHYET
EXITX

;TIME-OUT ERROR. ECNR STATUS.
;EXPRESS EXIT FOR ECNR ERROR REPORT.

013352
LCHYET:

CMP
BMI
JMP

R1,R3
XSTR
EXITX

;HAS THE LAST CHARACTER BEEN PRINTED YET?

013352

PC,SENCHR

CHARACTER IN STRING.
ASSUHE NO PREVIOUS ERRORS.

;SEND THE CHARACTER IN R2 TO THE PRINTER.

;LOOP THROUGH THE LIST UNTIL DONE.

;AND WHEN DONE WITH STRING, EXIT TEST...

BIDIRECTIONAL PRINTING CODE FOLLOWS....

95 012730

SR a—e0000000

XSTR:

005037
004737

020103
100763
000137

R1,R3

MoV
ADD

112102

SOF TWARE STACK
STACK ADDRESS

;PLUS 1 FOR COUNTING PURPOSES.

80 012664
81 012666
82
82 012670
8

REGISTERS.

;TOP OF
;TOP OF

70 012654
4!
72 012660
73 012662

MOV
MOV
MOV
MOV
MOV
MOV

011637
010146
010246
010346
010446
010546

éwmp MOV
ADD

006502

010042

LNELOO: CMP

R1,R3
R2,R3

CRNTPR,LINSIZ

;ADDRESS OF THE STRING TO BE PRINTED
:ADDRESS OF LAST CHARACTER TO BE PRINTED.

PLUS 1 FOR COUNTING PURPOSES.

CRNTPR =CURRENT POINTER=- IS INITIALIZED TO
CRNTPR KEEPS
; JERO BY THE INITCD ROUTINE.
:

TRACK OF HTE NUMBER OF CHARACTERS PRINTED

BMI

SENDR?

: SINCE THE LAST LINE FEED.
;1F CRNTPR LESS THAN LINSIZ THEN THERE ARE

113702

002314
013366

MovBe

LF,R2

;LINE IS FINISHED.

005037
005737
001100

006502
006504

(LR
TST
BNE

CRNTPR
DIRCTN

100567

004737

JSR

PC,SENCHR

FWRLO

: MORE CHARACTERS TO PRINT ON THIS LINE.
:

SEND LINE FEED AND REVERSE

THE PRINT DIRECTION.

;RESET THE CHARACTER COUNT FOR THIS LINE.

iWHAT IS THE CURRENT PRINT DIRECTION? 0=F ORWARD
;1F REVERSE (1) THEN CHANGE TO FORWORD PRINT.

SEQ 56

'GLOBAL AREAS

SEQ 57

MACRO v03.01 7-NOV-80 10:06:10 PAGE 13-2
'GLOBAL SUBROUTINES SECTION

012737

000001

©oo

2772
2776

113702
004737

002244
013366

3002
3010

022737
001560

177777

13012
13016

112702

004737

000057
013366

13022
13030

022737
001550

177777

13032

004737

013366

13036
13044

022737
001542

177777

13046
13052

112702
004737

000044

13056
13064

022737
001532

177777

13066

012700

000004
002244
013366

12764

oo
©O0
©
OO0
OO0
OO0

-h

-d

b -

WW
oo
~~
oN

OO0

116002

004737

022737
001520

006504

002206

#1,DIRCTN

Mmove

STCHSZ,R2

002206

'IF FORWARD (1) THEN CHANGE TO REVERSE PRINT.
l‘Es LA

JSR

PC,SENCHR

TO RESET CHARACTER SIZE TO NEGATIVE 10 CHAR

CMP

#-1,GREASE

EXITX

HAS A TIME-OUT OCCURRED?
EXPRESS EXIT
;FROM THIS ROUTINE MAY BE REQUIRED.

Move

#HEXF ,R2

CMP
BEQ

#-1,GREASE

EXITX

EXPRESS EXIT
;HAS A TIME-OUT OCCURRED?
;FROM THIS ROUTINE MAY BE REQUIRED.

JSR

PC,SENCHR

sHEXF ,HEXF ,FOUR= =12 = =10 CHAR/INCH

CMP
BEQ

#-1,GREASE

;HAS A TIME-OUT OCCURRED?

EXPRESS EXIT

MOvB
JSR

#FOUR,R2
PC,SENCHR

CMP
BEQ

#-1,GREASE
EXITX

;FROM THIS ROUTINE MAY BE REQUIRED.

;HAS A TIME-QUT OCCURRED?

EXPRESS EXIT

MOV
MOvB

#4 ,RO
,R2
SZ
(RO)
STCH

; SEQUENCE: ESC 1111 1111 0100 A

BEQ

JSR

013366

177777

MOV

PC,SENCHR

EXITX

JSR

PC,SENCHR

CMP
BEQ

#-1,GREASE
EXITX

;

CARRIAGE MOTION WHILE PRINTING. <==

;FROM THIS ROUTINE MAY BE REQUIRED.

; SENT TO THE PRINTER.

;HAS A TIME-OUT OCCURRED?

EXPRESS EXIT

;FROM THIS ROUTINE MAY BE REQUIRED.

O
O
O
oo

—

b b

—_—
—

— -

Wil

WA
W

—_ 3
— —3

b ad
e

OO0

—d

b ed

;LEFT TO EVEN UP THE MARGIN.

113702

006521
013366

MovBe
JSR

ESCAPE ,R2

112702

000057
013366

Move
JSR

#HEXF ,R2

112702

000057
013366

MovB
JSR

#HEXF ,R2

112702

000044
013366

MOvVB
JSR

#FCUR,R2

112702

000073
013366

MovBe

#73,R2

004737
004737

004737
004737
004737

JSR

PC,SENCHR

“SEND ESCAPE CHAR TO PRINTER
;NOW TRANSMIT =12 IN THREE HEX VALUES
:
IN THREE CHARACTERS

PC,SENCHR
PC,SENCHR

PC,SENCHR

;SEMI-COLON TO COMPLETE THE SEQUENCE WHERE
; ESC HEXF,HEXF,FOUR (SEMI-COLON) CAUSES

; THE ONE-TENTH INCH SPACE TO THE LEFT.
;THE MARGIN SHOULD NOW BE EVEN.

170 013162
A

000456

SENDR?

!
:

PER INCH. THIS ENABLES REVERSE <===!

;NOW MOVE THE CARRIAGE ONE SPACE TO THE

OO0

D
d
D
d
d
D
d
—

VA VAV AW
o ViV
OV
~NyONW SBWN=2O

OO0

102

WilN

VNV
VNS WN=O
SN2 OVONO

—

e e

D D e

D d D e

D e

D i i

D D o

BB ANNWWWNWWN
NN NN NN NN
NN = b = -4

=000 NV

GLOBAL AREAS

;NCW SEND THE CHARACTER TO THE PRINTER.

MACRO v03.01
GLOBAL AREAS
GLOBAL SUBROUTINES SECTION

Oflg\.flbV‘NdOO

172
173
174
175 013164
176
177
178

005037

006504

177777

112702
004737

000040
013366

022737
001451

177777

004737

013366

022737
001443

177777

112702

000054
013366

200 013254
201 013262
202
¢03 013264
204 013270
205 013274
206
207 013300
208 013306
209
013310
013314

022737
001433

177777

012700
116002
004737

000004
002244
013366

022737
001421

177777

113702

006541

013320
013322

112102

o
h
d o
d
—d

004737

0o o

022737
001461

b b d e =D b WNO
VB NN 2OV
NO WV
WN - o
PORNOPNOPNOPNININI
NI N =b =

CLR

DIRCTN

;INDICATE THAT THE DIRECTION IS FCRWARD PRINT.
;PER INCH.

002244
013366

LSLSLSLSISTNTUNTSTSENLSLNLNLNTN
SN N ~N

FWRDO:

:RESTORE CHARACTER SIZE TO A POSITIVE 10 CHAR
113702

195 013242
96
197 013244
198 013250
199

SEQ 58

7-NOv-80 10:06:10 PAGE 13-3

004737

013366
177777

005237
020103

006502

000137

012605
012602

002206

CMP
BEQ

#-1,GREASE

MOvB

JSR

#7ERO,R2
PC,SENCHR

CMP

#-1,GREASE

;HAS A TIME-OUT OCCURRED?

JSR

PC,SENCHR

;SEQUENCE SENT: ESC 0000 0000 1100 A

CMP
BEQ

#-1,GREASE

;HAS A TIME-OUT OCCURRED?

Move
JSR

#HEXC,R2

;ZERO,ZERO,HEXC = 12 = 10 CHARACTERS/INCH

CMP

#-1,GREASE

EXPRESS EXIT
;HAS A TIME-OUT OCCURRED?
;FROM THIS ROUTINE MAY BE REQUIRED.

MOV
MOvB
JSR

#4 R0

PC,SENCHR

*FORWARD CARRIAGE RESTORED.

CMP
BEQ

#-1,GREASE
EXITX

;HAS A TIME-OUT OCCURRED?
EXPRESS EXIT
;FROM THIS ROUTINE MAY BE REQUIRED.

MovB

SPACE ,R2

;NOW TRANSMIT A SPACE TO EVEN UP THE MARGIN.

(R1)+,R2

;GET THE CHARACTER FOR TRANSMISSION.
;SEND THE CHARACTER TO THE PRINTER.

JSR

SENDR2: MovB
JSR
CMP
BEQ

002206

012732
EXITX:

:RESTORE CARRIAGE MOTION TO FORWARD.

PC,SENCHR

BEQ

002206

STCHSZ ,R2

JSR

BEQ

013366

004737
022737
001406

001402

MOvB

AT LEAST TWO MORE LINES TO GO....

EXITX

PC,SENCHR

EXITX

STCHSZ
(RO) ,R2

PC,SENCHR
PC,SENCHR
#-1,GREASE

EXITX

CRNTPR

INC
CMP

R1,R3

BEQ
JMP

EXITX
LNELOO

MOV
MOV
MOV
MOV

(SP)+,RS

(SP)+,R4

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

;HAS A TIME-OUT OCCURRED?
EXPRESS EXIT
;FROM THIS ROUTINE MAY BE REQUIRED.

EXPRESS EXIT

;FROM THIS ROUTINE MAY BE REQUIRED.

EXPRESS EXIT

;FROM THIS ROUTINE MAY BE REQUIRED.

"EXPRESS EXIT IF ANY PROBLEMS.
;CURRENT IN-LINE POINTER UPDATED.
;1S THE ADDRESS OF THE NEXT CHARACTER TO BE
;PRINTED EQUAL TO THE ADDRESS OF THE LAST
;CHARACTER (PLUS 1) TO BE TRANSMITTED?
;1F NOT YET THERE, REPEAT TRANSMIT PROCESS.
;RESTORE
REGISTERS
:

'GLOBAL AREAS

MACRO v03.01 7-NOV-80 10:06:10 PAGE

229 013362
230
231 013364

012601

MOV

R1
(SP)+

000207

RTS

!GLOBAL SUBROUTINES SECTION

TRl1 P LN

13-4

YTM

SEQ 59

|
1

|
|
!

: FORTTTORAC"BESCRTPTTON

2OV

GLOBAL PROCEDURE SENCHR:

THIS ROUTINE TAKES THE ASCII BYTE IN REGISTER R2 AND SENDS
IT TO THE PRINTER - WHEN POSSIBLE.

YO WV

INPUTS

THE LOW BYTE

IN R2 IS THE

CHARACTER TO BE PRINTED.

WN 2OV

;OUTPUTS

PORNIND

THE CHARACTER

IS SENT

TO THE PRINTER.

SUBORDINATE ROUTINES USED
WAITXN

STSERR

WAITS FOR THE XON CHARACTER TO BE SENT FROM THE
PRINTER.
IF THE XON IS NOT RECEIVED, A TIME-OUT
ERROR MAY OCCUR AND A GREASED EXIT IS ENABLED.
ADJUSTS THE ERROR FLAG-WORD.

THE PRINTER IS

QUERIED ABOUT THE PRINTER STATUS.

FUNCTIONAL SIDE EFFECTS

THE REGISTERS R2 AND R3 ARE PRESERVED.

ERROR STATE, THE GREASED EXIT MAY BE

[ele]l=]l=]leBNelelelele] oo
—
— e -l —ld
-l il -l

r
FTRRER
555555
RSSRES 3RSarm R

8
39 013366
40 013370
41 013372
42 013374
43
44 013376
T
WAV IV IV IV IV P ¥
AR
R0 2 &S0 0o ~NOo W

SEQ 60

7-NOV-80 10:06:10 PAGE 14

IS WD =

MACRO v03.01
'GLOBAL AREAS
'GLOBAL
SUBROUTINES
SECTION
|

SENCHR: MOV

010246
010346
010446
010546

MOV
MOV
MOV

006442
006436

173702
173676

SENCH2: MOV
MOV

RESINN:

007000

000106

005154
000001

SENCLP:

CLR
CLR

INC
CMP
BMI
INC

CMP
BNE
PRINTX

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

WITH THE SETTING OF AN

INITIATED.

s SAVE

R4 ,=(SP)

LPRINI ,aLPR

;1F DZ THEN SET PARMS, IF DL THEN NO EFFECT.
;1F DZ THEN SET CHANNEL. IF DL, NO EFFECT.

RS,-(SP)
TCRENA,3TCR

RS
R3
R3
:
R3,#7000
CNTNU
RS

RS, #70.
COIE

WISTPH

REGISTERS

: COUNTER
: COUNTER
: INNER LOOP CHECK

;KEEP LOOPING UNTIL WE REACH 77000
;OUTER LOOP COUNTER

sPRINT A WAITING TO SEND MESSAGE.

;CONTINUE WITH LOOP IF NOT 70 YET.

;WAITING TO SEND TO PRINTER MESSAGE.
MOV
MOV

WISTPM,-(SP)
£ ,-(SP)

| GLOBAL AREAS

MACRO v03.01 7-NOV-80 10:06:10 PAGE 14-1
GLOBAL
SUBROUTINES
SECTION
|

I
|

MOV

010600
104415
062706

000004

020527

000144

100045

TRAP
ADD

COIE:

000753

CMP
BR

RS ,#100.
EXETS

SP,RO

CSPNTX
¥4, SP

;ALLOW 100 LOOPS BEFORE TIME OUT.

RESINN

;FAILURE TO FIND TRDY.
;RESET INNER LOOP

032777
001007

000200

173602

CNTNU:

BIT
BNE

#BIT7,3RCSR
ALPHA

;1S RECEIVER READY? SHOULD BE SET IF IT [S.
;IF SET, ALPHA TAKES CARE OF BUFFER READ.

033777
001744

010044

173574

BETA:

BIT
BEQ

TRDYBT,aXCSR

sRCVR NOT RDY.
SEE IF THE TRANSMITTER IS READY
;1F ZERO, NOT READY, LOOP AND CHECK AGAIN.

110277
000445

173572

MOvB

R2 ,aXBUF
EXITS

:PUT CHARACTER INTO TRANSMITTER BUFFER.

017704

173562

MOV

aRBUF ,R&

;READ THE RECEIVER BUFFER.

120437
001764

006520

CMPB
BEQ

BETA

R4, XON

;IS IT = "'XON'"?
;IF IT IS THEN ALL IS OK, CONTINUE.

78 013526
79 013532

120437
001007

006517

CMPB
BNE

R4, XOFF

: IS

81 013534

004737

013640

JSR

PC.WAITXN

IF IT WAS AN XOFF THEN WE MUST WAIT FOR

83 013540
84 013546

022737
001427

177777

86 013550

000712

88 013552
89 013556
90
91 013560
92 013564
93
94 013566

120437
001416

006516

120437

006515

052737

010000

001413

ALPHA:

002206

CMP

BEQ

CHKCAN:

006500

052737
004737
0 12605
0 12604
0 12603
012602

FeeE
8 R+~

012737
012737
000405

2222

SRIKIRER28

000740

100000

014774

SENCLP

CHKCAN

EXITS

JAND EXIT

= "'XOFF'"?
IT

;IF NOT ''XOFF'' THEN MAYBE IT IS A "'CAN"
AN XON AND THEN SEND CHARACTER.

HAS A TIME-OUT OCCURRED?

EXPRESS EXIT

;FROM THIS ROUTINE MAY BE REQUIRED.

LOOK FOR TRANSMIT READY.

SENCH2

:XON FOUND ON TIME.

BEQ

CMPB

R4, CAN
SETER

; CHARACTER = "'CAN'" ?
;1F IT IS THEN SET APPROPRIATE FLAG (ERWORD)

CMPB
BEQ

R4 EOT
SETER

;CHARACTER = "EOT'' ?
:IF 1T IS THEN SET APPROPRIATE FLAG (ERWORD)

BIS

#B1T12,ERWORD

;NONE OF THE USUAL CHARACTERS FOUND

BETA

RECEIVED INDICATED IN ERWORD.
TRY AGAIN TO SEND CHARACTER

MOV
MOV

#1,FLTRDY

#-1,GREASE
EXITS

;INDICATE FAILED TO FIND TRANSMIT READY.
;ENABLE GREASED EXITS FROM TESTS.
;FAIL TO FIND TRDY

#B1T15,ERWORD
PC,STSERR

;CAN OR EOT TYPE ERROR
:SET UP ERWORD.

006512
002206

EXETS:

006500

SETER:

BIS

EXITS:

MoV

JSR

MOV
MOV

ASYNCHRONOUSLY.

sRESTORE

REGISTERS

UNEXPECTED CHARACTER

GLOBAL AREAS

PSSR

SEQ 62

MACRO v03.01 7-NOV-80 10:06:10 PAGE 14-2

O NV
NN =O

d
-

GLOBAL SUBROUTINES SECTION

013636

000207

RTS

SEQ 63

2
2
2
23
2
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39 013640

*FUNCTIONAL DESCRIPTION
GLOBAL PROCEDURE WAITXN:

THIS PROCEDURE WAITS FOR THE ''XON'* CHARACTER TO BE SENT BY THE
PRINTER.
IF THE CHARACTER IS NOT SENT WITHIN A REASONABLE AMOUNT
OF TIME, THEN A TIME - OUT WARNING IS GIVEN.

INPUTS

NO INPUTS FROM CALLING ROUTINE.
OUTPUTS

IF A TIME-OUT OCCURS DUE TO TOO LONG A WAIT FOR THE XON CHARACTER

TO BE RECEIVED,

42 013644
43 013650

005037
005001

006510

45 013652

012705
004737

004000
015224

48 013662
49 013670

032777

000200

THIS ROUTINE WILL CAUSE A 100 USEC DELAY
WITH RS SET TO 1.

012737
052737
000137

;SAVE USED REGISTERS

CLR

ouUTSDC

;OUTSIDE LOOP COUNTER.

MoV

#4000 ,RS

sARGUMENT FOR THE DELAY

BIT
BEQ

#BI1T7,3RCSR
LOOPCK

;RECEIVER READY? =0 IF NOT READY.
;NOT READY? THEN CHECK AGAIN

CMPB
BEQ

R4, XON
EXITON

SIS IT = "ON'' ?
;IF = XON OK... EXIT ROUTINE WITH NO ERROR

MOV
BIS

#-1,GREASE
#BIT12,ERWORD

;UNEXPECTED CHARACTER RECEIVED. ENABLE
;''GREASED'' EXIT FROM CALLING ROUTINE.

OUTSDL: CLR

LOOPXN: JSR
173406

177777
010000
014004

JSR

002206
006500

NO SIDE EFFECTS.

R1,-(SP)

MoV

014012
006520

50 013672
51 013676
g% 013702

54 013704
55 013712
g? 013720

R1 AND R2 ARE PRESERVED.

WAITXN: MOV

2? 013642

29 013656

DELAYS

*FUNCTIONAL SIDE EFFECTS

010146
010446

THE ERROR FLAG-WORD IS CHANGED.

:SUBORDINATE ROUTINES
e

1
1
1
1
1
1
1
1
1
1

N=OOVONOWVEWN
=000 NN W =

MACRO v03.01 7-NOV-80 10:06:10 PAGE 15
GLOBAL AREAS
GLOBAL SUBROUTINES SECTION

JMP

R4 ,-(SP)

PC,DELAYS

PC,GETCHR

EXITON

)

;INSIDE LOOP COUNTER.

1 MINUTE WAIT

;ABOUT 1 MSEC

;GET THE BYTE

;EXIT ROUTINE.

GLOBAL AREAS

SEQ 64

MACRO v03.01 7-NOV-80 10:06:10 PAGE 15-1

GLOBAL SUBROUTINES SECTION

;UPDATE LOOP COUNTER

000015

INC
CMP
BMI

ouTSDC

ouTSDC,#15
ouTSOL

;OUTSIDE LOOP COUNT
;13 LOOPS YET?
;NO? THEN START UP AGAIN

006500
006500

BIS
BIS

#B1712,ERWORD
#B1T15,ERWORD

sNOT XON.... ERROR UCRB
;AN ERROR IS DETECTED AND INDICATED

PRINTX

#TIMOM

;PRINT TIMEOUT MESSAGE

58 013724
59 013726
g? 013732

005201
020127
100751

.
077000

LOOPCK: INC
CMP
BMI

62 013734
63 013740
gg 013746

005237
023727
100740

006510
006510

66 013750
g; 013756

052737
052737

010000
100000

69 013764
013764
013770
013774
013776
20 014000

012746
012746
010600
104415
062706

012512
000001

71 014004

012604

EXITON: MOV

MOV

(SP)+,R4
(SP)+,R1

;g 014010

000207

RTS

;% 014006

76
77

012601

000004

R1,#077000
LOOPXN

;LOOPED ENOUGH TIMES YET? 5 SEC CHECK
;CONTINUE TO LOOP UNTIL 5000 EXCEEDED.

MOV
Mov
MOV

TRAP
ADD

s
;RESTORE THE REGISTERS

#TIMOM,-(SP)
#1,-(SP)
SP,RO
CSPNTX
#4,SP

GLOBAL AREAS

SEQ 65

MACRO v03.01 7-NOV-80 10:06:10 PAGE 16

GLOBAL SUBROUTINES SECTION
1

2
3

g
13

*FUNCTIONAL DESCRIPTION
;

GLOBAL PROCEDURE GETCHR

THIS PROCEDURE WILL GET A CHARACTER AND WILL INDICATE A TIME-OUT

;

15
16
17
18
19
20

ERROR IF IT FAILS TOO RECEIVE A CHARACTER WITHIN A REASONABLE TIME.

et
;
LINPUTS
3
3
NONE
;

,.. sOUTPUTS

32
52
5;
%3

:
THE RECEIVER BUFFER IS READ AND PLACED IN Ré.
*SUBORDINATE ROUTINES
GET A 100 USEC DELAY
DELAYS ;

;

'FUNCTIONAL SIDE EFFECTS

THE ERROR FLAG-WORD MAY CHANGE IF AN ERROR IS FOUND.

3% 014012 010146
35 014014 010246
;9 014016 010546

GETCHR: MOV
MOV
MOV

R1,=-(SP)
R2.=-(SP)
RS.=-(SP)

:SAVE REGISTERS
;
,

CLR

OUTCTR

;OUTER LOOP COUNTER.

BIT

#BITO7.3RCSR

:RCSR-7 SET? RECEIVER READY? RDONE?

4 014036 012705 000001
22 014042

004737

MOV

#1,R5

:SHORT DELAY... 100 USEC

2; 014046

005201

INC

:LOOP COUNTER UPDATE.

49 014050
;? 014054

020127
100764

002400

NOPRTM: CMP
BM]

R1,#2400
LOOPG

:LOOPED LONG ENOUGH TO SET TIME-OUT INDICATOR?
*LOOP UNTIL 24400 OR RECEIVER IS SET.

g% 014056

005237

006506

INC

OUTCTR

:UPDATE OUTSIDE COUNTER.

CMP

OUTCTR,#20.

:HAVE WE BEEN WAITING LONG?

38 014020

005037

006506

41 014026

032777

000200

23 014024

2§ 014034

005001

001041

OUTRLP: CLR
173242

015224

54 014062 023727 006506 000024
§5 014070
56 014072
014072

001010

012746

012414

LOOPG:

BNE
JSR

BNE
PRINTX

SENDR

PC.DELAYS

CONTLO
#WFC

*TIMING INNER LOOP COUNTER.

:iZovfaib'fiiGEY THE CHARACTER OUT OF THE BUFFER
*WAIT AROUND FOR A WHILE

*SKIP PRINT. ONCE PER LONG WAIT ONLY.
"PRINT WAITING FOR A CHARACTER FROM PRINTER,
#EC,-(SP)
MGV

—

GLOBAL AREAS

SEQ 66

MACRO v03.01 7-NOV-80 10:06:10 PAGE 16-1

GLOBAL SUBROUTINES SECTION

012746
010600
104415
062706

000001

023727
100741

006506

000132

CONTLO: CMP
BMI

61 014122
g% 014130

052737
052737

020000
100000

006500
006500

22 014136

000413

€6
g; 014140

017704

173136

69 014144
;? 014150

120437
001403

72 014152

014076
014102
014104
014106

57
58 014112
zg 014120

MOV
MoV

TRAP
ADD

000004

#1,-(5P)

SP,RO
CSPNTX

#s,SP

OUTCTR,#90.
OUTRLP

;40 LOOPS MAXIMUM PERMITTED.
;:NOT DONE YET? CONTINUE OUTER LOOP.

BIS
BIS

#B1T13,ERWORD
#BIT15,ERWORD

;ECNRB ERROR
;ERROR INDICATOR

EXITE

GIVE UP WITH THIS RECEPTION

MOV

aRBUF ,R&

sPUT CHARACTER RECEIVED INTO Ré

006516

CMPB
BEQ

R&4,CAN
ERSETT

;1S THE CHARACTER A ''CAN'' FROM THE PRINTER?

;2 014156

120437

001003

006515

CMPB

R4 ,EOT

;IS THE CHARACTER AN 'EOT'' FROM THE PRINTER?

;2 014160

052737

100000

ERSETT: BIS

#BIT15,ERWORD

EITHER FATAL
UE HAVE AN ERROR CONDITION.
EOT)
OR
(CAN
OR NON-FATAL.

EXITE:

MOV
MoV
Mov

(SP)+,R5
(SP)+,R2
(SP)+,R1

RTS

78 014166
79 014170
g? 014172

012605
012602
012601

g% 014174

000207

SENDR:

BNE

006500

EXITE

AN ERROR WILL BE

INDICATED.

;THEN SET BIT15 IN ERWORD AND EXIT.

;IF NOT THEN EXIT WITH CHARACTER.

;RESTORE

REGISTERS

/GLOBAL AREAS

SEQ 67

MACRO V03.01 7-NOV-80 10:06:10 PAGE 17

'GLOBAL SUBROUTINES SECTION
1

2
2

:FUNCTIONAL DESCRIPTION.

;

GLOBAL PROCEDURE CONVRT:

THIS PROCEDURE CONVERTS A NUMBER CONTAINED IN REGISTER R1 INTO

LOP CONTROLLER.

;

THREE ASCII BYTES WHICK ARE MNEMONIC ARGUMENTS ACCEPTABLE TO THE
THE THREE BYTES ARE CONTAINED IN THE LOCATIONS:

gvgg} (MOST SIGNIFICANT BYTE), MNEB2, AND MNEB3 (LEAST SIGNIFICANT

15
16

jeeeesecscccccccccccccccccccccccc
e e e e e e e c e e e e e e s s ccccrccccanee
;

SOUTPUTS

};

CINPUTS

CONTAINS THE NUMBER TO BE CONVERTED INTO MNEMONIC FORM

MNEB1

HIGH ORDER BYTE MNEMONIC FROM VALUE IN R1.

;

MNEBZ

LOW ORGER BYTE MNEMONIC FROM VALUE IN R1.

*SUBORDINATE ROUTINES

;

39 014176
2? 014200

010246
010346

42 014202
43 016206

010102
043702

006430

46 014212

052702

000040

49 014222

010102

043702
006202
006202
006202
006202

006432

§6 014240

052702

000040

zg 014210
2; 014216

50 01‘258
51 014230
52 014232
§3 014234
2'3 014236

57 014244

MIDDLE BYTE MNEMONIC FROM JALUE IN R1.

NONE

;FUNCTIONAL SIDE EFFECTS

;

MNEB?

000302
110237

110237

REGISTERS ARE PRESERVED.

CONVRT: MOV
MOV

010046

010047

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

:SAVE REGISTERS
:

MOV
BIC

R1,R2
TMPLT1,R2

:GET COPY OF NUMBER TO BE CONVERTED.
‘MASK IN BITS 8 - 11,

BIS

#B1TS,R2

R2,MNEB1

:CONVERT TO THE ASCII VALUE

:STORE RESULT IN GLOBAL VARIABLE

MOV

R1,R2

:COPY OF ORIGINAL NUMBER

BIS

#BITS,R2

SWAB

MOVBE

BIC
ASR
ASR
ASR
ASR

MOVB

TMPLT2.R2
R2
R2
R?
R2

R2,MNEB2

‘RIGHT JUSTIFY MASKED BITS

TMASK BITS 4 - 7.
P RIGHT JUSTIFY
3
BITS 4 - 7
:
INTO BIT POSITIONS
3
0 - 3.
:CONVERT TO THE ASCII VALUE

;STORE RESULT IN GLOBAL VARIABLE

—

&~
~N
~
~N

006434
000040
010050

N ~ SR

R1,R2
TMPLT3,
R2
#BITS5,R2
R2 ,MNEB3

;GET ORIGINAL NUMBER
;MASK OUT LEFT 12 BITS,
;SET BIT 5. (CONVERT TO ASCII VALUE

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

;RESTORE REGISTERS

;MOVE

TO GLOBAL VARIABLE

e
_—————————

SEQ 68

MACRO V03.01 7-NOV-80 10:06:10 PAGE 17-1
'GLOBAL AREAS
'GLOBAL SUBROUTINES SECTION

—

‘

GLOBAL AREAS

SEQ 69

MACRO v03.01 7-NOV-80 10:06:10 PAGE 18

iGLOBAL SUBROUTINES SECTION

{

;FUNCTIONAL DESCRIPTION

;

GLOBAL PROCEDURE INITCD

8
9
10
1
12
13
14
15
16
17

;
:
;
:
:
:
3
:
3
;

THIS ROUTINE IS USED TO INITIALIZE EACH TEST. THIS PROCEDURE
WILL GUARANTEE THAT THE PRINTER BEING TESTED WILL BE IN A
TESTABLE CONDITION (IF THE INITCD ROUTINE SUCCEEDS IN PERFORMING
IN ITS ENTIRETY). THIS CODE WILL SET UP THE INTERFACE DEVICE
USED TO COMMUNICATE WITH THE PRINTER. THE ROUTINE WILL RESET THE
PRINTER TO ITS DEFAULT START=UP CONDITION, IT WILL SET THE RIBBON
TO ITS DOWN POSITION, IT WILL SET THE HIT COUNT TO ONE HIT PER
CHARACTER PRINTED, AND IT WILL SET THE UNDERLINE MODE OPTION TO
"NO-UNDERLINE''. FINALLY, THIS ROUTINE WILL SEND A CARRIAGE RETURN
AND FOUR LINEFEEDS TO THE PRINTER TO AID IN THE READABILITY OF THE

;

PATTERN.

;

22
23
24
25

3
:INPUTS
:

27
28
29
30

;OUTPUTS
:
3
NONE
:

33
34
35
gg

:
3
3
:

:FUNCTIONAL SIDE EFFECTS

40
41
42
43

:
:
:
:

46
47

bttt
Pe

: SUBORDINATE ROUTINES

NONE

50 014274
51 014300
52 014302
53 0143
gg 014306

005037
010146
010246
010346
010446

007314

56 014310
57 014316

032777
001403

000200

172760

XMIT
STATS
GETCHR
STSERR

1)
2)
3)
4)

SEND SEQUENCES TO THE PRINTER
CHMECK FOR ERROR‘., ENTRYPOINT IN STSERR.
GET A CHARACTE: FROM THE PRINTER
ADJUST THE STATUS WORD VIA PRINTER QUERY

PRINTER STATUS IS DETERMINED.
RIBBON POSITION IS SET DOWN.
HIT COUNT IS SET TO 1.
NO-UNDERLINE MODE IS SET.

PRINT CARRIAGE RETURN AND FOUR LINEFEEDS.

INITCD: CLR
MOV
MoV
MOV
MOV

PGMCTR
R1,-(SP)
R2,-(SP)
R3,-(SP)
R4 ,=(SP)

EMPTIB: BIT
BEQ

#BIT7,3RCSR
RESETC

:DNES NOT YET POINT TO PC OF ERROR
:SAVE REGISTERS
:
:

;1S THERE A CHARACTER IN THE RBUF?
:1F NO CHARACTER IN RBUF, THEN CONTINUE...

[

| GLOBAL AREAS

SEQ 70

MACRO Vv03.01 7-NOV-80 10:06:10 PAGE 18-1

|GLOBAL SUBROUTINES SECTION
58
59 014320
g? 014324

005777
000771

172756

TST
BR

62 014326
63 014332
64 014336
gg 014340

012701
012702
005003
004737

002214
000010
012616

RESETC: MOV
MOV
CLR
JSR

gg 014344

005037

006500

69 014350
70 014354
71 014360
;g 014362

012701
012702
005003
004737

002224
000002

74 014366
75 014372
;g 014376

004737
120437
001033

78 014400
79 014404
g? 014410

aRBUF
EMPTIB

:EMPTY RBUF.
IGNORE BUFFER CONTENTS.
:CHECK FOR RDONE AGAIN AND EMPTY BUFFER

#OUMMYS, R1
#8.,R2
R3
PC,XMIT

:FIX INTERFACE TO ACCEPT PRINTER RESET.
:
;
:SEND DUMMY SEQUENCE

CLR

ERWORD

:ASSUME THAT NO ERRORS HAVE YET OCCURED.

MOV
MOV
CLR
JSR

#RESET,R1
#2,R2
R3
PC,XMIT

:TRANSMIT PRINTER RESET SEGUENCE (ADDRESS)
:2 ARGUMENT LIST
:NO BIDIRECTIONAL PRINTING NECESSARY
;SEND SEQUENCE TO PRINTER

014012
006521

JSR
CMPB
BNE

PC,GETCHR
R4 ,ESCAPE
INIERR

:READ
"ESC'"
CHR FROM RBUF
:CHECK FOR CORRECT CHARACTER
:INDICATE ERROR IF NOT CORRECT. THEN CONTINUE

004737
120427
001026

014012
000040

JSR
(MPB
BNE

PC,GETCHR
R4, #ZERO
INIERR

:READ STATUS CHR. SHOULD BE SPACE CHARACTER.
:SHOULD BE NO ERRORS = RIGHT FOUR BITS = 0000
:1F RIGHT FOUR BITS NONZERO, INDICATE ERROR.

82 014412
83 014416
gg 014422

004737
120427
001021

014012
000040

JSR
CMPB
BNE

PC,GETCHR
R4, #ZERC
INIERR

:READ 2ND STATUS NIBBLE.
;RIGHT FOUR BITS SHOULD BE 0000
:IF NONZERO, INDICATE ERROR AND CONTINUE

86 014424
87 014430
88 014434
gg 014440

004737
042704
120427
001012

014012
000001
000040

JSR
BIC
(MPB
BNE

PC,GETCHR
#BIT0,R4
R4 ,#ZERO
INIERR

;READ 3RD STATUS NIBBLE.
:CLEAR THE SHEET FEEDER PRESENT BIT IF SET.
;1S STATUS NIBBLE = 0000 ?
;IF NOT, INDICATE ERROR AND CONTINUE

91 014442
92 014446
32 014452

004737
120437
9201005

014012
006532

JSR
CMPB
BNE

PC,GETCHR
R&,SCO
INIERR

:READ (HOPEFULLY) ''0'' FROM RBUF
:CONFIRM THE CHARACTER IS A ''0''.
:IF NOT = "'0'', THEN INDICATE ERROR, CONTINUE

95 014454
96 014460
gg 014464

004737
120437
001413

014012
006520

JSR
(MPB
BEQ

PC,GETCHR
R4, XON
SETUPI

:A CHARACTER IS EXPECTED FROM THE PRINTER
:"'XON'' 1S THE EXPECTED CHARACTER
:1F YES, THEN SET UP THE PRINTER PARAMETERS

99 014466
100 014474
101 014502
}8§ 014510

052737
052737
052737
004737

010000
020000
100000
014774

INIERR: BIS
BIS
BIS
JSR

#BIT12,ERWORD
#BIT13,ERWORD
#BIT1S,ERWORD
PC,STSERR

:IF NO, THEN INDICATE ERRORS: UCRB
THEN INDICATE ERRORS: ECNRB
;
THEN INDICATE ERRORS: ERROR FOUND BI)
:CHECK FOR MORE ERRORS

104 014514
105 014520
106 014526

012700
112760
012701

000001
000040
002240
000003

SETUPI: MOV
MOVB
MOV

#1,R0
#2ERO,RIBPOS(RO) :RIBBON POSITION DOWN
#RIBPOS,R1
;ADDRES3 Ut ARGUMENT LIST

107 014532
108 014536
}?3 014540
111 014544

112 014550
113 014556
114 014562

012702
005003
004737
012700

112760
012701
012702

012616

006500
006500
0065C0

002240

MOV
CLR
JSR

012616
000001

000040
002257
000003

002257

MOV

MOVB
MOV
MOV

#3,R2
R3
PC,XMIT
#,R0

:3CHARACTERS IN ARGUMENT LIST
:NC PRINTING
:SEND TO PRINTER
_

#7ERO,STHTCT(RO) ;SET WIT COUNT TO 1 HIT PER CHARACTER
#STHTCT, R
;ADDRESS OF ARGUMENT LIST
#3,R2
:THREE ARGUMENTS IN THE

SEQ 71

NI NVININININ) = =S b b S
55BN B NN NN NN N NN W NN
N=O0OOVENCWVNSWN
=200V ~NOW
N=OOVo~NOW

MACRO v03.01 7-NOV-80 10:06:10 PAGE 18-2
'GLOBAL AREAS
/GLOBAL SUBROUTINES SECTION

005003
004737
112760

012701
012702
005003
004737

012616
000040
002266
000003

002266

CLR
JSR

;NO PRINTING
;SEND TO PRINTER

MovBe
MOV
MOV

#ZERO,STULMD(RO)
#STULMD,R1

;SET UNDERLINE MODE

PC,XMIT

#3,R2

012701
012702
005003
004737

002313
000002

MOV
Mov

#CR,R1

012616

CLR
JSR

002314
000001

MOV
MOV

& 014660

012701
012702
005003
004737
004737
004737

012616
012616
012616

CLR
JSR
JSR
JSR

014664

005037

006502

CLR

CRNTPR

014670

005037

006504

CLR

DIRCTN

145 014674
146 014700
147 014704

007000
007000
015224

MOV
MoV

#7000,R5
#7000,R4

014710
014712

012705
012704
004737
005304
100374

BPL

LODELY

014714
014716
014720
014722

012604
012603
012602
012601

MOV
MoV
MOV
MOV

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

014724

000207

RTS

i
D
D
D
i
e
D
i
il
o
i

=O VO NV WN—=0OV

012616

CLR
JSR

LODELY:

JSR
DEC

PC,XMIT

#2,R2
R3

PC,XMIT

#LF R
#1,R2
R3

PC,XMIT
PC,XMIT
PC,XMIT

PC,DELAYS
R4

(SP)+ R4

(SP)+,R1

;ADDRESS OF ARG LIST

s THREE ARGUMENTS

:NO PRINTING
;SEND TO PRINTER

;ADDRESS OF CRLF TO BE PRINTED
;2 CHARACTERS TO BE PRINTED
:NO BIDIRECTIONAL PRINTING
;SEND TO PRINTER
;ADDRESS OF LINEFEED
;PRINT THE

SINGLE

CHARACTER

;WITHOUT BIDIRECTIONAL PRINTING
;SEND TO PRINTER
;AGAIN...

;AND AGAIN...

;CLEAR CURRENT COUNT WHICH IS USED IN
;BIDIRECTIONAL PRINTING TO KEEP TRACK OF
;THE NUMBER OF CHARACTERS PRINTED CURRENTLY
:IN THE CURRENT DIRECTION.
;INDICATOR THAT PRINTER IS PRINT:NG IN THE
;FORWARD DIRECTION. (0=FORWARD, 1=REVERSE)
;THIS 1S TRUE AT THIS POINT BECAUSE THIS
;ROUTINE RE-INITIALIZES THE PRINTER.

;SET UP FOR A DELAY (ARG FOR DELAYS ROUTINE)
;LOOP COUNTER
;CAUSE A SHORT DELAY
;LOOP COUNTER ADJUSTMENT
sREPEAT UNTIL SUFFICIENT DELAY CAUSED.
:RESTORE
REGISTERS
:

GLOBAL AREAS

SEQ 72

MACRO Vv(G3.01 7-NOvV-80 10:06:10 PAGE 19

GLOBAL SUBROUTINES SECTION
1

*FUNCTIONAL DESCRIPTION

GLOBAL PROCEDURE RANDOM

RANDOM NUMBER GENERATOR.

16
;;

:
;

;g
%}
%2

1OUTPUTS
.
R1
Z
:SUBORDINAYE ROUTINES

*FUNCTIONAL SIDE EFFECTS

:
:
;

9
}?
13
}g

;
LINPUTS

SEED1
SEED2

:CALLING SEQUENCE

;

41
42

WILL BE DIFFERENT FROM THE ONE JUST COMPUTED.

NO EXPLICIT PARAMETERS ARE PASSED.
JSR

PC,RANDOM

:RANDOM NUMBER GENERATOR

RANDOM: NOP

%g 014726 000240
012701

WILL CONTAIN THE RANDOM NUMBER (0-99)

SEED1 AND SEED2 WILL BOTH BE CHANGED SO THAT THE NEXT RANDOM NUMBER

NOT EXPLICITLY PASSED BY SOFTWARE. FIRST SEED
SAME AS SEED1. USED FOR RANDOM NUMBER GENERATION.

NONE

40 014730

000001

TRYAGN: MOV

# R

:RANDOM NUMBER IS GENERATED FROM

‘TWO SEEDS: SEED1 AND SEED2. IF DESIRED,
"THESE SEEDS MAY BE CHANGED USING A DYNAMIC

‘DEBUGGER OR RE-ASSEMBLY OF THE PROGRAM WITH

44
45 014734
29 014740

THE RANDOM NUMBER: RANGE 0 - 99

wiLL as HELD IN REGISTER: R1. THE ALGORITHM FOR THIS RANDOM
NUMETR GENERATOR WAS SUPPLIED BY THE LQP DIAGNOSTIC ON THE
PDP=-8 WRITTEN BY BILLY CRAFT,

063701
063701

006424
006426

48 014744 006101
gg 014746 006101

ADD
ADD

SEED1,R1
SEED2.R1

*NEW SEED VALUES. (NOT RECCOMENDED)
‘GET THE SEED1 VALUE (SLIGHTLY ALTERRED)
SADD THE SECOND SEED VALUE

ROL
ROL

R
R1

:ROTATE CONTENTS SO THAT VALUE IS LOST
‘ROTATE AGAIN. VALUE 1S CHANGED AGAIN
:NOW A NEW SEED VALUE
TAND A NEW SECOND SEED VALUE

51 014750
52 014754

060137
010137

006424
006426

ADD
MOV

R1,SEED?
R1.SFED2

55 014760

042701

177600

BIC

#177600,R1

:MASK OUT THE LEFT NINE BITS

57 014764

022701

000143

CMP

#99. .R1

1S THE NUMBER 0-99 ?

‘BOTH FAIRLY UNRELATED TO THE ORIGINAL 3EEDS

“THE NUMBER NOW HAS A POSSIBLE RANGE OF 0-127

—

——

—

| GLOBAL AREAS

—

MACRO v03.01 7-NOV-80 10:06:10 PAGE 19-1

GLOBAL SUBROUTINES SECTION

58 014770

100757

BMI

TRYAGN

000207

RTS

o~
o

59
60 014772

;NO? WELL TRY AGAIN. RANGE MUST BE 0-99.

SEQ 73

'GLOBAL AREAS

SEQ 74

MACRO V03.01 7-NOV-80 10:06:10 PAGE 20

'GLOBAL SUBROUTINES SECTION

1
%

:
:

*FUNCTIONAL DESCRIPTION

GLOBAL PROCEDURE STSERR:

“

THIS ROUTINE DOES TWO THINGS: IT REQUESTS STATUS FROM THE PRINTER AND

leemeeececcececcccccccccccccccceccccecsesccecsesescssssesesesesessecemeecceocos

: INPUTS

9
}?

:
3

SETS UP THE ERROR FLAG - WORD (ERWORD). THE ENTRY POINT =STATS=- MAY
BE USED TO SKIP THE REQUEST STATUS CODE.

1OUTPUTS

SOME BITS MAY ALREADY BE SET, INDICATING ERRORS ALREADY

ERWORD -

%g
%%

ERWORD =
:
*SUBORDINATE ROUTINES

THIS GLOBAL SYMBOL WILL INDICATE ALL COMPUTABLE ERRORS.

USED TO TRANSMIT CHARACTERS TO THE PRINTER.

*FUNCTIONAL SIDE EFFECTS

*CALLING SEQUENCE

36
37

;
:

;

NO EXPLICIT PARAMETERS ARE PASSED TO THE ROUTINE.

002210

STSERR: MOVB

JSR

PC,STSERR

JSR

PC,STATS

116002

002210

MOVB

STSRES,R2

NORMAL ENTRY

STATUS REQUESTED FROM PRINTER
2ND ENTRY POINT. THE STATUS
IS CHECKED AS IS.

:SEND "ESC 0'' TO THE PRINTER.

JSR
MOV

PC,SENCHR
#1.R0

JSR

PC,SENCHR

"REQUEST STATUS FROM PRINTER.

MOV

R4 ,=(SP)

R3,=-(SP)

002315

JSR

(MPB
BNE

PC,GETCHR

:GET A CHARACTER FROM THE PRINTER.

004737 014012
043704 006434

JSR
BIC

PC,GETCHR
TMPLT3, R4

:GET N3 FROM PRINTER. FATAL ERRORS INDICATED.
“CLEAR LEFT 12 BITS.

2; 015014

004737

49 015020

010446

§2 015024

004737

56 015036
57 015042

53 015030
g; 015034

REGISTERS ARE PRESERVED.

113702

004737
012700

g? 015022

USED TO RECEIVE CHARACTERS FROM THE PRINTER.

THE GLOBAL SYMBOL ERWORD WILL REFLECT THE STATUS OF THE PRINTER.

4% 015000
45 0150064

46 015010

43 014774

GETCHR

SENCHR

013366
000001

013366
STATS:

010346

120437
001057

014012

MOV

STSRES(RO),R2

R&4.STATUS
PALPHA

:PUSH REGISTERS

*THE CHARACTER IN R4 SHOULD BE AN ESC C(HARACTER
"EXPECTED CHAR NOT RECVD, UNEXPECTED CHAR RCVD.

SEQ 75

MACRO v03.01 7-NOV-80 10:06:10 PAGE 20-1
GLOBAL AREAS
GLOBAL SUBROUTINES SECTION

58 015046
59 015050
60
61 015054

74 015124
75
76 015130
77
78 015136
79 015142

8? 015144

000304
050437

006500

SWAB
BIS

R4
R4 ,ERWORD

;PUT BITS IN PROPER POSITION FOR ERWORD
;SET THE ERROR BITS APPROPRIATE IN ERWORD.

004737
043704

014012
006434

JSR
BIC

PC,GETCHR

;GET N2 FROM PRINTER. NON-FATAL ERRORS FRM PRTR
;CLEAR THE LEFT 12 BITS. (NOT WANTED)

TMPLT3,R4

sSHIFT
;
:
:

006500

PC,GETCHR

;GET ANOOTHER CHARACTER. N1. PRINTER CONDITION
;CLEAR THE 12 LEFT UNWANTED BITS.
sSHEET FEEDER PRESENT NOT A GENERAL ERROR.

050437

014012
006434
000001
000004
000010
006500

0462737

046400

005737
001403
053737

006500

004737
123704

001415

WV SN N
800°

—h —D —b -

POSITIONS.

*AND SET THE APPROPRIATE BITS IN ERWORD.

100000

TMPLT3,R4
#BITO,R4
#BIT2,R4
#BIT3,R4

006500

R4 ,ERWORD

:NOT USED BY PRINTER
;SET APPROPRIATE BITS IN ERWORD.

#46400,ERWORD

;CLEAR BITS 14,11,10,8 (UNUSED BITS IN ERWORD)

ERWORD
CRCLX

;1S THE ERWORD = 0 ?
;IF IT IS CONTINUE...

BIT15,ERWORD

006500

;NOT USED BY PRINTER

L)
-

—

FOUR

R4 ,ERWORD

87 015164
88 015172
89
90 015174
91
92 015202
93 015210
Sé
95 015216
9? 015220
9
98 015222
99
100
101

LEFT

CRCLX:

014012
006532
020000

006500

052737

020000

006500

PALPHA:

052737
012737

100000
177777

006500
002206

SET15:

000207

EXITSR:

;HOPE TO GET A ''0"'

$CO,R4

?
;1S 1T THE EXPECTED ''0'"

#ECNRB,ERWORD

SET15

;SET ECNRB ("'0'" NOT FOUND.)
;SET ERROR INDICATOR AND EXIT.

FECNRB, ERWORD

;EXPECTED CHARACTER NOT RECEIVED INDICATOR

EXITSR

052737
000403

012603
012604

PC,GETCHR

IF IT ISN'T... INDICATE AN ERROR (GENERAL)
BY SETTING BIT 15 IN THE ERROR WORD.

#B1T15,ERWORD

#-1,GREASE

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

;IF EQUAL TO EXPECTED CHAR (''0'), THEN DONE.

;INDICATE THAT AN ERROR HAS OCCURRED.
;ENABLE A ''GREASED'' EXIT FROM THE CALLING
sROUTINES.
sRESTORE REGISTERS.

SEQ 76

SWN=OVONOWVSWN
OOV
NS WwWN =

MACRO v03.01 7-NOV-80 10:06:10 PAGE 21
GLOBAL AREAS
GLOBAL SUBROUTINES SECTION

GLOBAL PROCEDURE DELAYS

THIS PROCEDURE ACCEPTS A NUMBER IN REGISTER R5 AND CAUSES A DELAY OF
100 MICROSECONDS X RS. THE VALUE AFTER CALLING OF THIS ROUTINE IN R5

b e cd o

WILL BE ZERO.

INPUTS

CONTAINS THE NUMBER OF 100 USEC INCREMENTS DESIRED.

b b

OUTPUTS

PNOPINI NI N

NONE

SUBORDINATE ROUTINES
.NONE

‘FUNCTIONAL SIDE EFFECTS

THE DELAY IS AT LEAST 0.103MSEC X RS

:CALLING SEQUENCE
NO PARAMETERS.

JSR

40 015224

012737

000025

42 015232

005337

010054

44 015236

100375

46 015240
47 015242
48
49 015244

010054

DELAYS: MOV

#21. ,DELCNT

3 2.91USEC. = INNER LOOP INITIALIZATION

INLOOP: DEC

DELCNT

2.385USEC. -

BPL

INLOOP

100370

BPL

DEC

RS
DELAYS

000207

RTS

005305

PC,DELAYS

2.385USEC. o
.

-TOTAL 4.77USEC. PER LOOP

0.103MSEC TO HERE
STARTS WITH # OF .1 MSEC INCREMENTS.

;IF R1 WERE 10,000 THEN TIME DELAY IS 1 SECOND.

GLOBAL AREAS

MACRO v03.01 7-NOv-80 10:06:10 PAGE 22

GLOBAL SUBROUTINES SECTION

SEQ 77

GLOBAL AREAS

SEQ 78

MACRO v03.01 7-NOV-80 10:06:10 PAGE 23

1
1
1
1
1

}
1

=S OVONOWVESWN
=O V00 NN
WNWN -

GLOBAL SUBROUTINES SECTION

; RRRRARRRRRRRARENRERERREURERRURERRNRRRRRRRRRRRRRRRRRRRRRRRRARRRRARRRRRRRNNNNNNN
E teveneanennneneeetes ERROR DECODE AND PRINT SUBROUTINE teteteetetattattttataaas

*FUNCTIONAL DESCRIPTION
:

THIS PROCEDURE ACCEPTS ERWORD (THE ERROR FLAG-WORD) AS A PARAMETER, AND

:
;
;
;
;

DECODES THE ERRORS WHICH HAVE OCCURRED.
THE ROUTINE WILL PRINT THE
ERROR MESSAGES ON THE CONSOLE TERMINAL.
REGISTERS ARE PRESERVED.
THE
GLOBAL VARIABLES ERRTYP, ERRNBR, ERRMSG AND ERRBLK ARE USED AS IF THEY
WERE LOCAL VARIABLES.
1T IS ASSUMED THAT THESE VARIABLES ARE NOT USED
ELSEWHERE IN THE MODULE.
(THE FOUR GLOBAL VARIABLES WERE ASSIGNED BY

;
E

THE DIAGNOSTIC SUPERVISOR MACRO CALL ERRTBL.)

.I......‘...... ................. L L

: INPUTS

BN B

BN BN B

BN B

CLEARED AFTER EXECUTION OF ROUTINE

PIMPLICIT OUTPUTS

SUBORDINATE ROUTINES

*CALLING SEQUENCE

RN B

IR B

THE ERROR TABLE IS CHANGED (ERRTBL).
TO THE CONSOLE TERMINAL.

ERROR MESSAGES ARE PRINTED.

SUPERVISOR MACROS PRINTB,PRINTX,ERROR
JSR

PC,ERRORS

ERRORS: MOV

R3,=-(SP)

:PUSH REGISTERS

010346

46 015252
2; 015260

032737
001473

100000

006500

BIT
BEQ

#BIT1S,ERVORD
EXTMCR

;IS ERROR FOUND BIT SET?
:IF NOT SET, THEN EXIT THE SUBROUTINE.

gg 015262

162737

000004

007314

suB

#4,PGMCTR

:ACCOUNT FOR AUTOINC OF PC WHEN PUSHED BY JSR

§1 015270
§2 015272
gz 015300

005003
032737
001435

000001

006500

NXTBIT: BIT

CLR

R3
#BITO,ERVORD
NXTERM

:LOOP COUNTER AND TABLE POINTER.
:IS THE RIGHT-MOST BIT SET?
*1F NOT SET, THEN CMECK THE NEXT BIT.

56 015302

§7 015310

010446

012737

016337

000001

007316

010072

010076

MOV

BEQ

MOV

)

PROGRAM COUNTER AT TIME OF CALL WHEN THE ERROR OCCURRED

43 015246

2; 015250

_ ERWORD

REFLECTS THE ERROR STATUS OF THE PRINTER.

BN B

PGMCTR

TOUTPUTS

;

BN B

ERWORD

R&.=(SP)

#1,ERRTYP

;

ERMSGB(R3) ,ERRMSG

ERRDF CALL = ERRTYP:1

:USING THE ERRTBL SET UP BY THE

*SUPERVISOR DEVICE FATAL MACRU CALL

—

SEN 79

MACRO v03.01 7-NOV-80 10:06:10 PAGE 23-1
GLOBAL AREAS
GLOBAL SUBROUTINES SECTION
o

.
prrp—p————-

lelelelelelelelele)

63
64
65
€5 015374
67 015400
68
69 015404
70
71 015410
72 015412
73
74 015416
75 015424
76 015426
015426
015432
015436
015440
015442
77
78 015446
015446
79
80 015450
81 015456
82 015460

STEITRRA

010337

010074

MoV

ERROR

104460

viviuviavaiviaiaie.

58 015316
59

PRINTB

007314
010230
000002
000006

PRINTX

005250
010302
000002
062706

R3,ERRNBR

#PRTBMO,PGMCTR

#PRTXMO, TRXADD

;ERROR NUMBER BEING CHECKED.

;MACRO CALL = WITH ABOVST::SHS

CSERROR

;PRINT BASIC ERROR MESSAGE AND P C
PGMCTR, = (SP)
MoV
- (SP)
#PRTBMO,
MOV
#2,-(SP)
MoV
MoV
SP.RO
TRAP
CSPNTB
ADD

#6,5P

MOV
Mov
MOV

= (SP)
#PRTXMO,

;PRINT EXTENDED ERROR MESSAGE AND

MOV
TRAP
ADD

000006

TRXADD , = (SP)

#2,-(SP)

SP.RO
CSPNTX

#6,SP

;ADDRESS OF TRANSMITTED STRING AND
;THE ERROR FLAG-WORG.

ADD

#2,R3

;POINT TO NEXT TABLE ENTRY.
;GET NEXT BIT INTO POSITION.

000034

CMP

#28.,R3

006500

BNE
CLR

NXTBIT
ERWORD

;DONE WITH ALL THIS WHEN R3 IS 28 AND 13
BITS HAVE BEEN CHECKED.
;

;REPEAT UNTIL 13 LOOPS COMPLETE.

CMP
BNE

#1,FLTRDY
DCUPA

;WAS THERE A FAILURE TO FIND TRANSMIT-RE ADY?
:
:1F NOT, DO CLEANUP
TR:S&HIT T 0 PRNTR
TO
FAILED
CONSOLE:
TO
;PRINT

062703
006237

000002
006500

022703
001330
005037

022737
001010

000001

012746
012746
010600
104414
062706

012316
000001

NXTERM:

006512

PRINTB

ERWORD

#FXRDYM

;SINCE WE ARE DONE, CLEAR THE ERROR FLAG-WORD.

MOV
MOV
TRAP
ADD

000004
DCUPA:

1046444

022737
001010

ASR

000001

006512

DOCLN

EXTMCR: CMP
BNE

PRINTB

012746

#FXRDYM

000004
DDCUPA: MoV

000207

RTS

MOV

SP,RO
CSPNTB

#4,SP

TRAP

CSDCLN

MOV
MOV
MOV
TRAP
ADD

#FXRDYM,-(SP)
#1,-(SP)

#1,FLTRDY
DDCUPA

012604
012603

#FXRDYM,=(SP)
#1,-(SP)

(SP)+,R4

(SP)+,R3

sRESTORE REGISTERS

SP,RO
CSPNTB

¥4 ,SP

GLOBAL AREAS

SEQ 80

MACRO v03.01 7-NOV-80 10:06:10 PAGE 23-2

GLOBAL SUBROUTINES SECTION

—

: BRRRRRRRRERRRRRNRUNERRERRERRURERRRRARRNRNRRRRRRRRRRARRRRRRERRRNRERRARRNRANRRNN

101
102

LTITLE MISCELLANEOUS SECTIONS
.SBTTL
REPORT CODING SECTION

———————— S——————————

N—

i
IMISCELLANEOUS SECTIO S
REPORT CODING SECTIO

SEQ 81

MACRO v03.01 7-NOv-80 10:06:10 PAGE 2¢

OONOWVNSWN
=

]

‘e

; THE REPORT CODING SECTION CONTAINS THE
;

"PRINTS'" CALLS THAT GENERATE STATISTICAL REPORTS.

—a
OOV

BGNRPT

—d
d D

—

[elele]

_— D
SN
—_
w

EXIi

000167
000000

LSRPT::
RPT

ENDRPT
104425

.SBTTL

PROTECTION TABLE

L10002:

.WORD
.WORD

JSJMP

TRAP

CSRPT

L10002-2-.

'MISCELLANEOUS SECTIONS

'PROTECTION TABLE

MACRO v03.01 7-NOV=-80 10:06:10 PAGE 2S5

P4e

;

;: THIS TABLE IS USED BY THE RUNTIME SERVICES

5
6
7 015514
g 015514

9 015514
10 015516
1] 013520

TO PROTECT

THE LOAD MEDIA.

BGNPROT

-1
-1
-1

177777
177777
177777

LSPROT::

:OFFSET INTO P=-TABLE FOR CSR ADDRESS
;OFFSET INTO P-TABLE FOR MASSBUS ADDRESS
:OFFSET INTO P-TABLE FOR DRIVE NUMBER

ENDPROT

13 015522

SEQ 82

LSBTTL

INITIALIZE SECTION

;00

; THE INITIALIZE SECTION CONTAINS THE CODING THAT [S PERFORMED

THE BEGINNING OF

EACH PASS.

BGNINIT

LSINIT::

.AAAQA.AAAAQSAQ‘Q!AAAAAAAAAAA.AOAAAAAAAAAAAAAAAAAAAAAAAQAA.‘AA‘AAAAA‘AQQAAAAAAA

D T
I

R I I

INLTTALIZE ROUTINE.
THIS CODE WILL ACT ON THE HARDWARE P-TABLE CONTENTS TO SET UP THE
SERIAL INTERFACE THAT THE PRINTER IS CONNECTED TO.

LV IV IV IV ]
v

SN
ocoonNn

=leloleleiNelelelelo]

WO
oo

———————
[

T AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAN

AV ALV LV LV IV B
VIVIWAWVIWDY

OVONO
NS WN 200V

-t

SEQ 83

MACRO v03.01 7-NOV-80 10:06:10 PAGE 2¢

NOWVISSWN
-

MISCELLANEOUS SECTIONS
INITIALIZE SECTION

012700

104447

INITLZ: READEF

000036

BCOMPLETE

103425

012700
106447

#EF .CONTINUE

#EF .NEW

READEF

000035

BNCOMPLE
TE

103003

JENDIN

NEXTU

MOV
TRAP

#EF .CONTINUE
,RO
CSREFG

BCS

JENDIN

MOV
TRAP

#EF .NEW,RO

BCC

NEXTU

MOV
TRAP
MOV

LOGUNIT,RO
CSGPHRD

RO,PLOC

BCC

NEXTU

TRAP

CSDCLN

CSREFG

012737
005237
023737
001407

177777
002202
002202

013700
106442
010037

002202

002202
002012

NEXTU:

e
o o
o

103364
104444

000137
015610

000340

015610
015614
015620
015624
015630
015632

39 015636

ABORT:

016566

#-1,LOGUNI

LOGUNIT
LOGUNIT ,LSUNIT
ABORT

LOGUNIT,PLCC

BNCOMPLETE

(VL IV TV

002204

000403

MOV
iNC
CMP

BEQ
GPHARD

W LV LV LV AN IV 1V

[=lelolelelelelele
le]

DOCLN

NEXTU

STRTUP

JENDIN:

JMP

ENDIN

STRTUP:

SETVEC

#4 FUBTRAP,#PRIO7

;SET UP TRAP VECTOR FOR ILLEGAL ADDRESS

000003
000010

005037

006500

;TRAP... UNIBUS ERROR.

(LR

ERWORD

;ASSUME NO ERRORS

MOV
MOV
MoV
MOV
TRAP
ADD

#PR107,-(SP)

#UBTRAP,-(SP)
#4,-(SP)
#3,-(SP)

C$SVEC

#10,sP

MISCELLANEOUS SECTIONS

INITIALIZE SEC TION

MACRC v03.01

40 015642
41 015646
6% 015652

010056
006512
002206

CLR
(LR
CLR

NDATA

44 015656
45 015662

164322

MOV

aPLOC,R1
SETUPC

CLR
JSR

NDATA
PC,DFAULT
LINCOD

CLR
JSR
CLR

NDATA
PC,OLSET

BNE

CALLDF:

010056
017032

JMP

CALLDL:

001011

010056

012746
012746
010600

012122

062706

000004

104417

000001

CMP
BNE
PRINTF

012700
005300
002407

000144

64 015756
65 015764

032777
001403

000200

67 015766
68 015772
69

005777
000767

171310

005037

006500
010056
006512
002206

70
71 015774
72 016000
73 016004
74 016010

FLTRDY

GREASE

ERWORD
NDATA,#1

EMPTI2

#FAILDL

;ASSUME NO UNIBUS ERRORS
JASSUME NO FAILURE TO FIND TRANSMIT RDY
sASSUME NO PREVIOUS ERRORS
;GET CSR ADDRESS

;1F NOT ZERO, THEN SET UP INTERFACE ADDRESSES
;CSR, LPR, TCR, RBUFF

;ASSUME NO UNIBUS ADDRESSING ERRORS YET.
;D0 THE DEFAULT LOGIC & THEN THE LINE SIZE CODE
:D0 LINE SIZE LOGIC

;ASSUME NO UNIBUS ADDRESSING ERRORS YET.
;SET UP FOR A DL
;ASSUME NO ERRORS

sNO DEVICE AT THAT ADDRESS?
:NO PROBLEM WITH UNIBUS

;FAILED TO ®IND DEVICE MESSAGE

000001

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

TRAP

CSDCLN

171312

NONDTA:

006512

010056

000001

BLT

;ASSUME NO MORE THAN 100 CHARACTERS IN BUFFER.
:COUNT DOWN ONE FOR EACH CHARACTER
;STOP TRYING TO EMPTY THE BUFFER. ASSUME HOPELESS.

BIT
BEQ

#BIT7,4RCSK
NONDTA

;1S THERE A CHARACTER IN THE RBUF?
;IF NO CHARACTER IN RBUF, THEN CONTINUE...

TST
BR

aRBUF

EMPTLZ2

;EMPTY RBUF. IGNORE BUFFER CONTENTS.
;CHECK FOR RDONE AGAIN AND EMPTY BUFFER

CLR
CLR
CLR
CLR

ERWORD
NDATA

;ASSUME NO ERRORS
sASSUME NO UNIBUS ERRORS

GREASE

;ASSUME NO PREVIOUS ERRORS.

MOV
MOV

R
#STSRES
#2,R2
R3

CLR
JSR
BIC
CMP
BEQ

PFM1:

CSPNTF
¥4, SP

RO
NONDTA

EMPTIZ: MOV
EMPTLZ: DEC

006500
000001

100000

SEXIT TEST SEQUENCE

DOCLN

002210
000002
012616

MOV
MOov
MOV

TRAP
ADD

104444

SEQ 84

7-NOvV-80 10:06:10 PAGE 2¢-1

FLTRDY

PC,XMIT

#BIT15,ERWORD
FLTRDY,
M
PFM

;ASSUME NO FAILURE TO FIND TRANSMIT RDY

;ADDRESS OF REQUEST STATUS SEQUENCE

;SEND ANSWER BACK SEQUENCE TO PRINTER.
;EOT MAY HAVE OCCURED. IGNORE IT.
;FAIL TO FIND TRDY?
;PRINT FAILURE MESSAGE

CMP
BNE

NDATA,#1

;ANY UNIBUS ERRORS?

PRINTF

#EALLDL

;PRINT FAILURE MESSAGE

NONDT?

;1F SO, PRINT FAILURE MESSAGE.
MOV
MOV
MOV

#EALILDL ,=(SP)
#1,-(SP)
SP.RO

'MISCELLANEOUS SECTIONS

INITIALIZE SECTION

104417
062706

]

000004

120437

001411

000004

NONDT3: JSR
JSR
JSR
JSR

000137

016456

012700
063700
011001
100633

000002
002204

»~0O

O
F¥E SN

RPN
gOOOOOOO
PNONON)
= =

005037
023727
00101

006500

012746
012746
010600
1046417
062706

012220
000001

010056

OO0

6246

000144

6254

012700
005300
002407

6256
6264

032777
001403

000200

6266
6272

005777
000767

171010

104444

o
d

6244

000001

CSPNTF
¥4 ,SP

TRAP

CSDCLN

;CHECK FOR A RESPONSE CHARACTER

;WAS THE CHARACTER AN ESCAPE CHARACTER?
;GET THE REST IF ESC FOUND.
;PRINT FAILURE MESSAGE FOR DL SETUP.
#FAILDL,-(5P)
MOV
#1,-(SP)
MOV
MOV
SP,RO

(EXIT TEST SEQUENCE

TRAP
ADD

CSPNTF
#4,5P

TRAP

CS$DCLN

:GET THE %zg CHARACTER IN RESPONSE.

JMP

LINCOD

;AND THEN DO THE LINE SIZE LOGIC.

SETUPC: MOV
ADD

#2,R0
PLOC,RO

;RESPONSE FROM PTABLE.

4TH

STH AND FINAL RESPONSE CHARACTER.

?DZ

(Y,N)?

;IF = 0 THEN MULTILINE. IF 1 THEN SINGLE LINE

(RO) -R1
CALLDF

s INTERFACE.

BNE

CALLDL

;1F = 7 THEN SINGLE LINE.

CLR
JSR

NDATA
PC,DZSET

;ASSUME NO ADDRESSING (UNIBUS) ERRORS YET.
;IF = 0 THEN MULTILINE.

CLR
CMP

ERWORD
NDATA, #1

;ASSUME NO ERRORS
sNO DEVICE AT THAT ADDRESS?

PRINTF

#FAILDZ

BNE

EMPTIS

;NO PROBLEM WITH UNIBUS
;FAILED TO FIND DEVICE MESSAGE

MOV
MOV

#FEAILDZ ,-(SP)
¥ ,-(SP)

TRAP
ADD

CSPNTF
¥4 ,SP

TRAP

CSDCLN

MOV

000004

o o

NN
&»

O0O0O0O0O0O0O0O0O0O

010056
016672

#FAILDL

TRAP
ADD

PC,GETCHR
PC.GETCHR
PC.GETCHR
PC.GETCHR

MOV
BMI

001240

005037
004737

PC,GETCHR
R4 .ESCAPE
NONDT3

DOCLN

purd

—

pury

ONOWVS WOV~

PRINTF

012122
000001

014012
014012
014012
014012

NONDT2: JSR
(MPB
BEQ

004737
004737
004737
004737

016136
016142
016146
016152

d
d
D
i
D
e
e
e
-

s
—

e e e ed e e =D

L
N
N N N T L
L
VNN
WN—=O

TR
—

014012
006521

104444

95
96
97
98
99

012746
012746
010600
104417
062706

SEXIT TEST SEQUENCE

DOCLN

104444

004737

SEQ 85

MACRO v03.01 7-NOv=-80 10:06:10 PAGE 2&-2

SEXIT TEST SEQUENCE

DOCLN

EMPTI3: MOV
EMPTZ3: DEC
BLT

171012

BIT

BEQ
31

#190. ,RO

RO
NONDZA

SP.RO

;ASSUME NO MORE THAN 100 CHARACTERS IN BUFFER.
;COUNT DOWN ONE FOR EACH CHARACTER
;STOP TRYING TO EMPTY THE BUFFER. ASSUME HOPELESS.

NONDZA

;1S THERE A CHARACTER IN THE RBUF?
;1F NO CHARACTER IN RBUF, THEN CONTINUE...

aRBUF

;EMPTY RBUF,

. #BIT7,aRCSR

EMPTZ3

IGNORE BUFFER CONTENTS.

;CHECK FOR RDONE AGAIN AND EMPTY BUFFER

—

005037
012701

002210
000002

Mov
Mov
CLR
JSR

000001

001404

016350
016356

023727
001011

010056

016360
016360
016364
016370
016372
016374

012746
012746
010600
104417
062706

012220
000001

104444

-—

FEREE FRERZERRRREE &

WNINON)
= b=
Nond FRIEFRIRTNS

012746
012746
010600

012220
000001

062706

000004

104417

33333333
SRINIZRE

gflbflg

b ed ed —d
— e

#STSRES,R1

#2,R2
R3

PC,XMIT
#BIT15,ERWORD
FLTRDY,#1

;SEND REQUEST STATUS SEQUENCE.

*SEND REQUEST STATUS SEQUENCE TO PRINTER.
; IGNORE POSSIBLE EOT CONDITION.

PRTM2

;FAILURE TO FIND TRDY?
;PRINT FAILURE MESSAGE

CMP

BNE

NDATA, #1

NONDZ2

;ANY UNIBUS ERRORS?

PRINTF

#EAILDZ

;PRINT FAILURE MESSAGE

BEQ
PRINTF

PC,GETCHR
R4 ,ESCAPE

NONDZ3

#FAILDZ

NONDZ3: JSR
JSR
JSR
JSR

PC,GETCHR
PC,GETCHR
PC,GETCHR
PC,GETCHR

000006

LINCOD: MOV

#6.R0
PLOC ,RO
(RO) ‘RS

MOV

CMP

BEQ

000204

010042

ggv

000120

010042

EIGHTY: MOV

n RS

EIGHTY
#1132, ,LINSIZ
INFIN
#80.,LINSIZ

MoV
MOV
MoV
TRAP
ADD

#FAILDZ,-(SP)
#1,-(SP)

TRAP

CSDCLN

SP,RO
CSPNTF

#4,SP

;CHECK FOR A RESPONSE CHARACTER

;WAS THE CHARACTER AN ESCAPE CHARACTER?
;GET THE REST IF ESC FOUND.
;PRINT FAILURE MESSAGE FOR DL SE;gP.
.MOV

SEXIT TESTING SEQUENCE

014012
014012
014012
014012

ADD

sIF SO, PRINT FAILURE MESSAGE.

SEXIT TESTING SEQUENCE

DOCLN

000001

;ASSUME NO PREVIOUS ERRORS.

CMP
BEQ

NONDZ2: JSR
(MPB

002204

;ASSUME NO ERRORS
;ASSUME NO UNIBUS ERRORS
sASSUME NO FAILURE TO FIND TRANSMIT RDY

ERWORD

NDATA
FLTRDY
GREASE

DOCLN

104444

(Vo O 2

- e i e i

D - -l - -l

COCOOOOOOOO

—

COOO

014012
006521

BIC

PRTM2:

000004

004737
120437
001411

00000000

006500

006512

016346

RANIITEIEIRARZIB
=] &

—
D -l e — ol
D el D B el e

NONDZA: CLR
CLR
CLR
CLR

100000

SEQ 86

7-NOv-80 10:06:10 PAGE 26-3

006500
010056
006512
002206

012616

150 016400
00

— e il ) el il -

MACRO v03.01

—
IR

0 oo~ VB W= OV NOWNESWN—=O

005037

uoug
NSNSV

el aal

1ZE SECTION

HNWHNENNENWAWHWWHNWW

N
-t

Z v

ANEOUS SECTIONS

#FAILDZ,-(5P)

MOV
MOV

#1,-(SP)
SP.RO

TRAP

CSDCLN

TRAP
ADD

CSPNTF
06 ,SP

;GET THE %gg CHARACTER IN RESPONSE.

:
:

4TH

STH AND FINAL RESPONSE CHARACTER.

;RESPONSE FROM PTABLE. ?CHARACTERS PER LINE?
;GET THE LINE CHARACTER DENSITY, 1=80CHAR/LINE
;1F NOT = 1 THEN 132 CHARACTERS PER LINE.
;1F EQ 1 THEN 80 CHAR/LINE
;NOT EQ 1... THEN 132 CHAR/LINE
;LINE SIZE IS EIGHTY CHARS/LINE

Ml SC ELLANEOUS SECTIONS

IN T IALIZE SECTION

175 016514
176 016520
177 016522
178 016524
179 016530
}g? 016532

013701
006301
006301
010137
006301
060137

010042

182 016536
183 016542
016542

005037

006500

012700

000004

016546

184
185
186 016550

}g; 016556

189 016560
190 016564
191
192
193 016566
194
195

016566
016570

196
197
198
199

200
201
202
203
204
205
206
207
208
209
210
2n
212
213
214
215
216
217
218
219
220

221
222
223
224
225 016572
016572
226

104436

005777
000771

170516

MOV
ASL

LINSIZ,R1
W

MOV
ASL

R1,LINN
R

SSAVE LINSIZ X &
X 8

ASL

ADD

010040

000200

104432
000662

INFIN:

010040

032777

001403

SEQ 87

MACRO v03.01 7-NOv-80 10:06:10 PAGE 26-4

R1,LINN

CLR
CLRVEC

:GET THE LINE SIZE. NUMBER OF CHARACTERS/LINE
X 4

SLINSIZ X (4+8) = LINSIZ X 12 => LINN

ERWORD
#4

;ASSUME NO ERRORS - YET.
*RESET VECTOR TO ORIGINAL STATUS

MOV

TRAP

170520

EMPTYR: BIT
BEQ

#BIT7,2RCSR
ENDIN

aRBUF

EXIT

INIT

EMPTYR

BR
ENDIN:

#4.R0

CSCVEC

:EMPTY RECEIVER BUFFER...
‘1S THERE A CHARACTER IN THE RBUF?

*IF NO CHARACTER IN RBUF, THEN EXIT.
:EMPTY RBUF.

I1GNORE BUFFER CONTENTS.

*CHECK FOR RDONE AGAIN AND EMPTY BUFFER
*IF NEEDED.
TRAP

.WORD

CSEXIT

L10004-.

;Fbfiéiibfiii.ééééfiifiiiéfi ........................................................

;
;

;

rgessggnoLea FOR UNIBUS FAILURE TO FIND A DEVICE AT THE REFERENCED

ALL THAT IS NECESSARY IS TO INDICATE THAT THE TRAP ROUTINE HAS BEEN
ACCESSED (THAT A DEVICE WAS UNSUCCESSFULLY ADDRESSED) AND RETURN FOR
ANOTHER TRY.

LINPUTS
:

NONE

LOUTPUTS
;

NDATA

IF THIS ROUTINE 1S PERFORMED, NDATA WILL BE SET.

*SUBORDINATE ROUTINES
;

NONE

*CALLING SEQUENCE
WHEN A TRAP OCCURS THE ROUTINE IS CALLED.
BGNSRV

UBTRAP

;TRAP SERVICE ROUTINE

UBTRAP::

MISCELLANEOUS SECTIONS
INITIALIZE SECTION

%%g 016572

012737

—

000001

010056

UBTRAP: MOV

229 016600

220
23
232
233
234
235
236

016600
016600

SEQ 88

MACRO v03.01 7-NOV-80 10:06:10 PAGE 26-5

#1,NDATA

:NO DEVICE AT THAT ADDRESS

ENDSRV

INDICATED.

L10005:

000002

RTI

:
3
:
:
3

237

:AAQAAAAAAAAAA‘AA‘AA&AAAAAAAAAAAAAAAAAAA.Q.AAA‘AAAAAAAAAAAAAAAGAAAAAAAAAAAAQGAA

%gg

;FUNCTIONAL DESCRIPTION

%2?

;

LOCAL PROCEDURE DLSET

242

THIS PROCEDURE WILL TAKE THE CSR ADDRESS GIVEN IN CSRADD AND SET UP

522

THIS CODE IF FOR SINGLE LINE INTERFACES ONLY.

2‘7

;AA.AAAAAAAAAAA‘AAQAAAAAAAAAAAAAA‘AAAAAAAAAAA.‘A.AAAA&‘AA.AAAAAAAAAAAAAAAAAQL.A

%22

;

248

249

%g%
254

;

%gg

THE ADDRESSES FOR THE RCSR, THE XCSR, AND THE RBUF AND XBUF REGISTERS.®

LINPUTS

CSRADD -

ADDRESS OF CSR REGISTER.

*OUTPUTS

255
¢56
257

%gg

:
3
:

NONE

;

NONE

*SUBORDINATE ROUTINES

260

261
%g%

:
:FUNCTIONAL SIDE EFFECTS

%gg
%gg

INTERFACE REGISTERS ARE SET UP IF THE CSR ADDRESS IS VALID.
:
*CALLING SEQUENCE

268

269
270

;
:

273 016602
g;g 016606

017701
010137

163376
007276

276 016612

062701

000002

378 016622
79 016626

062701
010137

000002
007300

277 016616

280 016632
281 016636

010137

062701
010137

DLSET:

PLACE ADDRESS OF CSR REGISTER INTO CSR ADD.
JSR

MOV
MOV

aPLOC,R1
R1,RCSR

ADD

#2.R1

ADD
MOV

#2.R1
R1,XCSR

007302

MOV

000002
007304

ADD
MOV

PC,OLSET

:SET UP CSR ADDRESS & BUFFER ADDRESSES.
*ADDRESS OF RECEIVER CSR REGISTER.
.

R1.RBUF

:ADDRESS OF RECEIVER BUFFER REGISTER

#2.R1
R, XBUF

,
:ADDRESS OF THE TRANSMITTER BUFFER REGISTER.

;
:ADDRESS OF THE TRANSMITTER CSR REGISTER.

ks
MISCELLANEOUS SECTIONS
INITIALIZE SECTION

282
283 016642
284 016646
285
286 016654
287 016662
288
289 016670

SEQ 89

MACRO v03.01 7-NOV-80 10:06:10 PAGE 26-6

005037
012737

010052
000200

010044

MoV

CLR

MLTLIN

;INDICATE THAT THIS IS A SINGLE LINE INTERFACE.

012737
012737

006440
006440

007306
007310

Mov
Mov

#JUNKPL ,LPR
#JUNKPL , TCR

WHEN LPR IS STUFFED, CONTENTS GO TO JUNKPL
:WHEN SENCHR STUFFS fCR, CONTENTS GO TO JUNKPL

RTS

000207

#BIT7,TRDYBT

?h?gs?i?ESOF XMIT READY BIT FOR SINGLE LINE

.AAAAAAAAAAGAAA.AAAAAAG‘AQAAAAAAAA.A&AAhhAAAA.AAAAAAAAAGAAAAA‘AA.AAAA‘AAAAAA‘AA

*FUNCTIONAL DESCRIPTION

LOCAL PROCEDURE DZSET:

WITH THE DZ11 OPTION: CSR, RBUF, LPR, TCR, MSR (IGNORED), AND TDR.

:INPUTS

ADDRESS ASSUMED AS THE CSR REGISTER.

TR PR PR D R R R

OOVNOWVEWN
=

NONE

SUBORDINATE ROUTINES
NONE

FUNCTIONAL SIDE EFFECTS

THE DZ11 INTERFACE ADDRESSES ARE SET UP IF THE CSR ADDRESS IS VALID.

TETETEIETETETE

b b e cd

NN W N NN W

CSRADD :
{OUTPUTS

CALLING SEGUENCE
THE CSR ADDRESS MUST BE IN CSRADD.
PC,DZSET
JSR

THE CALL:

WWIN

321

330 016672

017 701
010137

DZSET:

MoV

MOV

aPLOC,R1

;GET THE CSR ADDRESS TO SET UP INTERFACE REG'S
AND POINT TO THE NEXT REGISTER ADDRESS

R1,RCSR

16702

010137

MOV

R1,XCSR

16706
16712
16716

062701
010137
010137

MOV

ADD

”.R

MoV

R1,LPR

R1,RBUF

;ADDRESS OF RCSR AND THE XCSR WILL BE THE SAME
IN A DZ11, THE TRDYBT XMIT READY BIT :
WILL CHANGE, HOWEVER.

;ADDRESS OF THE RECEIVER BUFFER

;ADDRESS OF THE LINE PARAMETER REGISTER

MISCELLANEOUS SECTIONS
INITIALIZE SECTlON

MACRO v03.01 7-NOv-80 10: 06 10 PAGE 26-7

339
340 016722

062701

000002

343 016732

062701

000002

346 016742
gzg

013737

007312

349 016750

012777

%25 016726

gzg 016736

010137

351 016756

012737

353 016764

012700

354 016770
355 016774
356 016776
357
358 017000
359
360 017006
361 017012
362 017016
ggz 017022
365 017030
366
367
368

369
570
N
372

SEQ 90

ADD

#2,R1

\DD

#2.R1

R1,TDR

;ADDRESS OF THE TRANSMIT DATA REGISTER

007304

MOV

TDR, XBUF

;WHEN REFERENCING THE XBUF, YOU WILL WANT
:THE TDR = TRANSMIT DATA REGISTER

000040

170320

MOV

#BITS,aRCSR

:CLEARS INTERUPT ENABLE BITS AND

100000

010044

MOV

#BIT1S,TRDYBT

:DEFINE TRANSMIT READY BIT FOR DZ11 CSR.

007310

MOV

007312

MOV

000004

063700
011002
006302

002204

016237

006444

012700
063700
051037
013777

000004
002204
006442
006442

MOV

R1,TCR

:ADDRESS OF THE TRANSMIT CONTROL REGISTER

SETS MASTER SCAN ENABLE.

#4,R0

006436

MOV

170256

MOV
ADD
BIS
MOV

:PTABLE ENTRY. 7?DZ CHANNEL NUMBER?
CHANNEL TO BE SET INTO TCR REGISTER
CHANGE THE RANGE FROM 0-7 TO 0-14
:TO BE USED AS A TABLE OFFSET.
:GET MASK FROM TABLE, PLACE IN TCR REG.
NA
TCRTBL(RZ).YCRE
:TO DETERMINE THE CHANNEL CHOSEN
;PTABLE ENTRY #3
#4 RO
PLOC,RO
PTABLE ENTRY ADDRESS FOR CHANNEL #.
(RO) ,LPRINI
NEH LPR STATUS WITH CH # INCLUDED.
:SET UP LPR ON DZ INTERFACE
LPRINI,aLPR

RTS

ADD
MOV
ASL

000207

PLOC,RO
(RO) ,R2
R2

373

;A‘G‘AQ“AAAAAAAAAAA‘AAAAAAAAAAAAA‘AAAAAAAAA‘AAAAAAAAAAA‘AAAAAQ‘AAAAAAAAAAQ.AAA

g;g

'FUNCTIONAL DESCRIPTION

g;?

LOCAL PROCEDURE DFAULT:

378
379
38C

THIS CODE WILL COMPUTE THE CSR ADDRESS AND SET UP THE INTERFACE
REGISTER ADDRESSES. THE CSR ADDRESSES ARE CHECKED BY SENDING THE
PRINTER AN ‘‘ANSWER BACK'' QUERY AND CHECKING FOR THE APPROPRIATE

382

.AAAQ‘AAA‘A&..AAAA&AQAAQAA.‘AAAAAA.AAA&AQAAAAAAAAAAAQAQ.AQAAAAAQAAAAAAAAAAAAAA

381

383

384

385

.lNPUTS

387
388

;

ggg

SOUTPUTS

391

386

92
93
94
95

RESPONSE FROM THE PRINTER.

2
:
:
2

NONE

CSRADD

RBUF
XCSR
RCSR
XBUF

~ADDRESS OF THE CONTROL STATUS REGISTER
-BUFFER ADDRESS
=TRANSMITTER CSR
-RECEIVER CSR
=TRANSMITTER BUFFER ADDRESS

MISCELLANEOUS SECTIONS
INITIALIZE SECTION

SEQ N

MACRO v03.01 7-NOv-80 10:06:10 PAGE 26-8

MLTLIN

;

=1S =1 IF THE INTERFACE IS A DZ11.

*SUBORDINATE ROUTINES
GETCHR
XMIT

ol
.

GET A CHARACTER.
SEND A SEQUENCE OF CHARACTERS TO THE PRINTER.

FUNCTIONAL SIDE EFFECTS
THE

INTERFACE REGISTERS SHOULD BE SET UP.

CALLING SEQUENCE
JSR

DLDFLT,aPLOC

;ASSUME A SINGLE LINE INTERFACE

JSR

PC,DLSET

;SET UP THE REGISTER ADDRESSES

CMP
BEQ

NDATA,#
0ZDCOoD

;WAS THERE AN ILLEGAL ADDRESSING ERROR?
;IF SO, DL SETUP FAILED. TRY DZ SETUP.

006500

CLR

ERWORD

sASSUME THAT NO ERRORS HAVE BEEN FOUND - YET.

012700
005300
002407

000144

EMPTI4: MOV
EMP4:
DEC
BLT

#100.,R0
RO

;ASSUME NO MORE THAN 100 CHARACTERS IN BUFFER.
;COUNT DOWN ONE FOR EACH CHARACTER

032777
001403

000200

005777
000767

170176

412 017032

013777

005254

417 017040

004737

016602

419 017044

023727
001462

010056

005037

420 017052
421
422 017054
423
424 017060

651
452 017170

DFAULT: MOV

000001

170200

ABSND

;STOP TRYING TO EMPTY THE BUFFER. ASSUME HOPELESS.

BIT
BEQ

#BIT7 ,3RCSR
ABSND

;1S THERE A CHARACTER IN THE RBUF?
;1IF NO CHARACTER IN RBUF, THEN CONTINUE...

TST

aRBUF

;EMPTY RBUF.

ABSND:

CLR

CLR
CLR

2T B L£8ES Nan&

SNNNN

wN
WV

NN
SN

163144

006500

002210
000002
012616

006500

010056

000001

014012

006521

EMP4

ERWORD

NDATA
FLTRDY

GREASE

IGNORE BUFFER CONTENTS.

;CHECK FOR RDONE AGAIN AND EMPTY BUFFER
sASSUME NO ERRORS
sASSUME NO UNIBUS ERRORS

sASSUME NO FAILURE TO FIND TRANSMIT RDY
;ASSUME NO PREVIOUS ERRORS.

;SEND REQUEST STATUS SEQUENCE.

CLR
JSR
BIC

#STSRES
,R1
#2,R2
R3
PC,XMIT
#BIT15,ERWORD

CMP
BEQ

1
NDATA,
0ZDCOD

;IF SET THEN TRY MULTILINE ADDRESS
;1F NOT SET, DO THE DZ CHECK

CLR
JSR

R4
PC,GETCHR

;BR4 SHOULD GET ESCAPE CHAR IF DL PRESENT,
:THE DELAY SHOULD BE LONG ENOUGH TO PERMIT

R4 ESCAPE

;NOW GET THE FIVE RESPONSE CHARACTERS
;1S IT AN ESCAPE CHARACTER?

MOV
MOV

100000

SNNN

“27
428 017070
429 017076
430
431 017100
232 017104

PC,DFAULT

CMPB

:SEND ANSWER-BACK SEQUENCE TO PRINTER.
: IGNORE POSSIBLE EOT INDICATION.

:THE PRINTER TO RESPOND.

MISCELLANEOUS SECTIONS
INITIALIZE SECTION

453 017174
76
02

06
2
6

SEQ 92

MACRO v03.01 7-NOv-80 10:06:10 PAGE 2¢-9

001011
004737
004737

BNE
JSR
JSR
JSR
JSR
BR

004737
004737
000514

DZ0COD

PC,GETCHR
PC,GETCHR
PC,GETCHR
PC,GETCHR

DONEDF

;NO? THEN TRY DZ ADDRESS DEFAULT.

STHE FINAL CHARACTER SHOULD BE A ''C"'
SYES? THEN SUCCESSFULLY COMPLETED.
;ASSUME
;ASSUME
;ASSUME
;ASSUME

NO ERRORS
NO UNIBUS ERPORS
NO FAILURE TO FIND TRANSMIT RDY
NO PREVIOUS ERRORS.

005037

0
34

005037

002206

013777
004737

005256
016672

162736

MOV

DZDFLT,aPLOC
PC,DZSET

;ASSUME A DZ INTERFACE AT ADDRESS 776010

023727
001462

010056

000001

CMP
BEQ

M
NDATA,
FAILDF

;HAS AN ILLEGAL ADDRESS ERROR OCCURRED?
;IF SO, BOTH DL AND DZ DEAFUALTS HAVE FAILED.
SO LET USER KNOW.
H

006500

CLR
CLR

R3
ERWORD

;DISABLE BIDIRECTIONAL PRINTING LOGIC
;ASSUME NO ERRORS HAVE YET OCCURRED.

012700
005300
002407

000144

EMPTIS: MOV
DEC

#100.,R0
RO

ABSS

;ASSUME NO MORE THAN 100 CHARACTERS IN BUFFER.
;COUNT DOWN ONE FOR EACH CHARACTER
;STOP TRYING TO EMPTY THE BUFFER. ASSUME HOPELESS.

479 017300
430 017306

032777
001403

000200

BIT
BEQ

#B117,3RCSR
ABSS

;1S THERE A CHARACTER IN THE RBUF?
:IF NO CHARACTER IN RBUF, THEN CONTINUE...

482 017310
483 017314
484
485 017316
486 017322
487 017326

005777
000767

167766

TST

aRBUF

;EMPTY RBUF. IGNORE BUFFER CONTENTS.
;CHECK FOR RDONE AGAIN AND EMPTY BUFFER

005037
005037
005037
005037

006500
010056
006512
002206

CLR
CLR
CLR
CLR

ERWORD
NDATA
FLTRDY
GREASE

;ASSUME NO ERRORS
sASSUME NO UNIBUS ERRORS

012701

002210
000002

MOV
MOV

#STSRES,R1
#2,R2
R3
PC,XMIT
#BIT15,ERWORD

;SEND REQ STATUS SEQUENCE.

CMP
BEQ

1
NDATA,

;CHECK FOR OCCURRANCE OF TRAP...

JSR

PC,GETCHR

;DELAY SHOULD GIVE PRINTEWR ENOUGH TIME TO
;RESPOND TO ANSWER-BACK SEGUENCE.

CMPB
BNE
JSR
JSR
JSR
JSR
BR

R4 ,ESCAPE
FAILDF
PC,GETCHR
PC,GETCHR
PC,GETCHR
PC,GETCHR

466 017246
467
468 017252
469 017260
470
67N
472 017262
473 017264

474
475 017270
476 017274
4;; 017276
4

481

283 017332
8
490 017336
491 017342
492 017346
493 017350
494 017354
495
496 017362
497 017370
498
499 017372

005003
005037

DZDCOD:

JSR

FMPS:

167770

BLT

ABSS:

012616
100000

006500

023727
001416

010056

000001

004737

014012

120437

CLR
CLR
CLR
CLR

CLR
JSR
BIC

ERWORD

NDATA
FLTRDY

GREASE

EMP5

FAILDF

DONEDF

;SET UP REGISTERS FOR A DZ11 INTERFACE

;ASSUME NO FAILURE TO FIND TRANSMIT RDY
;ASSUME NO PREVIOUS ERRORS.

*SEND REQ STATUS SEQUENCE TO PRINTER.
*1GNORE POSSIBLE EOT INDICATION.

;IF SET THEN

PRINT AN ERROR AND START OVER

;GET THE FIVE CHARACTER RESPONSE TO THE QUERY
;EXPECTING ESCAPE CHARACTER IF DZ PRESENT.
;:DEFAULT ADDRESSES DIDN'T WORK OUT.

"LAST CHARACTER A ''C''(LOWER CASE)
*FOUND THE ADDRESS. EXIT.

SEQ 93

MACRO V03.01 7-NOv-80 10:06:10 PAGE 26-10

011602
00000

017446

104444

017450

000207

PRINTF

#FAILM

;PRINT FAILURE MESSAGE AT CONSOLE

FFAILM,-(SP)
#1,-(SP)

SP.RO
CSPNTF

000004

512 017446

FAILDF:

DONEDF:

RTS

# ,SP

;EXIT TESTING SEQUNCE

DOCLN

CSOCLN

OOV

VAW
VIV

WN=O

WIWNWWNWNWNW

Vv
NN

Voo

~NOAwn

oo
NN

.EVEN

017452
017452
017452

ENDINIT
104411
.SBTTL

TRAP

CSINIT

TRAP

($AUTO

AUTODROP SECTION

017454
017454

BGNAUTO

017454
017454
017454

ENDAUTO
104461

.SBTTL

L10004:

CLEANUP CODING SECTION

LSAUTO::

L10006:

(MISCELLANEOUS SECTIONS
|

CLEANUP CODING SECTION

SEQ 94

MACRO v03.01 7-NOV-80 10:06:10 PAGE 27

b
-

-l
i
i

; THE CLEANUP CODING S ECTION CONTAINS THE CODING THAT IS PERFORMED
;

AFTER THE HARDWARE T ESTS WAVE BEEN PERFORMED.

BGNCLN

017456
017456

017456

004737

017462
017462
017464

104432
000002

014274

LSCLEAN::

JSR

PC,INITCD

EXIT

CLN

;RESET THE PRINTER
TRAP

A L
|S

—

CSEXIT

.WORD

L10007-.

TRAP

CSCLEAN

.EVEN

017466
017466
017466

ENDCLN

L10007:

104412
.EVEN

N e

= O 0o~

[« AV P YW N

=S OV

NOWVSsWN—=

LTITLE HARDWARE TESTS
TEST 1: PRINTER SELF
.SBTTL

TEST

'HARDWARE TESTS MACRO v03.01
'TEST 1: PRINTER SELF TEST
1

l
;

:
|

SEQ 95

7-NOv-80 10:06:10 PAGE 28

2
3

S 017470
017470

BGNTST

[

S R EY

T::

R R R AR R A R R R AR R R YRR IR R RS AR EA R RS RNEREEA AR ERESEEERERERER AR ENRRRSRERRY

TEST M

THIS TEST WILL INITIATE THE PRINTER SELF=-TEST.

EXAMINED AND APPROPRIATE

12
13

3
3

19 017470
20 017474

004737

014274

012746
012746
010600
104414
062706

002333
000001

017474
017500
017504
017506
017510

22 017520
23 017524
%g 017526

012701

012702
005003
004737

000002

26 017532
27 017540
28
29 017542
gg 017546

023727
001402

002206

004737
004737

32 017552

%9 017572

017514

33 017556
34 017562
35 017564
%g 017600

43
44

x.)

47
4«8

S AP SE s oS

PRI PR Ay CC PR

RER

) PR

PC,INITCD
#TITLEN

sINITIALIZE FOR THIS TEST
:CONSOLE TEST TITLE

MOV

#SLFTST, R

:ADDRESS OF SELT TEST ARGUMENT SEQUENCE

(MP
BEQ

GREASE ,#-1
PRNTIT

015020
015246

JSR
PRNTIT: JSR

PC,STATS
PC,ERRORS

:WAS THERE
A ''GREASED'' EXIT FROM XMIT?
IF SO, PREPARE TO PRINT TO CONSOLE
THE ERRORS FOUND DURING XMIT ATTEMPT.
RECElVE STATUS AND FIT TO ERWORD.
:DECODE ERROR WORD & PRINT ERROR MESSAGES

004737

014012

CHKNG6:

JSR

PC,.GETCHR

;GET ANOTHER (SIXTH) CHARACTER

052737

020000
100000

BIS

#BIT15,ERWORD

:INDICATE ERROR

004737

015246

40
41 017604

017604
. 017604

ERROR REPORTING IS INITIATED.

JSR
PRINTB

123704
001406
052737

TEST1:

AFTER THE SELF=-TEST
1S COMPLETE, THE PRINTER SENDS THE PRINTER STATUS AND AN XON CHARACTER
IF EVERYTHING HAS OPERATED PROPERLY.
THE PRINTER STATUS IS THEN

000004

002255

[0}
CLR
JSR

012616

177777

006520
006500
006500

CMPB
BEQ
BIS

STSCAL: JSR
ENDTST

104401

#2,R2
R3
PC,XMIT

XON, R4
STSCAL
¥BIT13,ERWORD
PC,ERRORS

MOV
MOV
MOV
TRAP
ADD

#TITLEY,=(SP)
,-(SP)
SP,RO
CSPNTB
4 ,SP

;2 CHARACTERS IN SEQUENCE
:DISABLE BIDIRECTIONAL PRINTING
:SEND THE ARGUMENT LIST

;1S IT AN "'XON'"?
S1F OK, (XON FOUND) THEN CHECK STATUS
:SET ECNRB
:CHECK FOR ERRORS

L10010:

TRAP

CSETST

HARDWARE TESTS

MACRO v03.01 7-NOV-80 10:06:10 PAGE 28-1

TEST 1: PRINTER SELF

50
51

TEST

LSBTTL

TEST 2: UNDERLINE / NO=-UNDERLINE MODE TEST

SEQ 96

HARDWARE TESTS

SEQ 97

MACRC v03.01 7-NOV-80 10:06:10 PAGE 29

TEST 2: UNDERLINE / NO-UNDERLINE MODE TEST

BGNTST

017606
017606

12::

N R

R R R N N R R

N N

R RN

R N RN

TEST #2

UNDERLINE / NO-UNDERLINE MODE

PRINT A SINGLE LINE OF ALTERNATING UNDERLINED AND NON-UNDERL INED
"'A"'S, CHECKING FOR ERRORS FROM THE PRINTER ALONG THE WAY.

017606
017612
017612
017616
017622
017624
017626

004737

014274

012746
012746
010600

002366
000001

062706

000004

21 017632
22 017640
23

052737
012701
062701

040000
002366
000004
000053

28
29 017670
30 017674

31 017700
32 017704
33 017706
34 017712
35
36 017716
37 017722
38 017730
39 017732

104414

062737
012704
012701
012702
005003
004737
004737

40 017740
41 017742

2% 017746

001334

BIS

006500

(INITIALIZE TEST
*CONSOLE PRINT TITLE

MOV
MOV
MOV

PLOOP:

*ADDRESS OF STRING TO PRINT (TITLE)

MOV

0.8, R2

R3
PC,XMIT
#BiT14 ,ERWORD

43 CHARACTERS TO PRINT IN STRING

:DISABLE BIDIRECTIONAL
*SEND THE ARGUMENT SEQUENCE
:RE-ENABLE ERROR HANG=-UPS

MOV

£-1,Ré

:CHARACTER COUNT

MOV

#1,R2

MOV
CLR
JSR
JSR

000001
002266

000041

000040

002266

000001
000041

002266

:
SETONE
NEWMOD:

:INHIBIT ERROR HANG-UPS

#TITLEZ,R1

CLR
JSR
BIC

006500

#BIT14 . ERWORD

MOV
ADD

012616
015246

010042

PC,INITCD
#TITLE2

TRAP
ADD

177777
006531
000001

002266
000003
012616
015246

44 017754
45 017760
46 017764
47 017770
48
49 017774

50 017776
51 020002

012616
040000

JSR
PRINTB

0 R

#SCA,R1
R3
PC,XMIT
PC .ERRORS

*SKIP FIRST FOUR CHARACTERS

: "ADDRESS OF ASCII 'A"'

‘ONE CHARACTER

:NO BIDIRECTIONAL PRINTING
*SEND ''A'* TO PRINTER FOR PRINTING.
:CHECK FOR ERRORS

MOV

#1,R0

MOVB

#ONE,STULMD(RO) ;CHANGE TO UNDERLINE MCDE

MOV
MOV
JSR
JSR

#STULMD, RY
#3,R2
PC.XMIT
PC .ERRORS

-ADDRESS OF ARGUMENT STRING
‘WHICH IS THREE CHARACTERS LOONG
*SEND THE SEQUENCE
:CHECK FOR ERRORS

INC
CMP
BNE

R4
RG,LINSIZ
PLOOP

:UPDATE COUNT OF CHARACTERS.
*PRINTED A LINE YET?
;D0 LOOP UNTIL DONE

CMPB
BNE
MOVBE
agv

STULMD(RO),#ONE ;IS THE UNDERLINE MODE SET?
‘NO, THEN CHANGE TO UNDERLINE MODE
SE TONE
#ZERO,STULMD(RO) :YES, THEN CHANGE TO NON-UNDERLINE MODE
:TRANSMIT MODE CHANGE AT NEWMOD
:guzgo

#TITLEZ,-(SP)
#1,-(SP)
SP RO
CSPNTB
#5,SP

'HARDWARE TESTS
'TEST

52
53 020004

i
n

UNDERLINE

54 020010
55 020014
Sg 020020
)
58 020024

020G24
020024

MACRO v03.01

/ NO-UNDERLINE MODE

012701

012702
004737
004737

SEQ 98

7-NOV-80 10:06:10 PAGE 29-1

002313

000002
012616
015246

TEST

MoV

MOV
JSR
JSR

#CR,R1

#2,R2
PC,XMIT
PC,ERRORS

;ADDRESS OF <CRLF>

;BOTH CHARACTERS
;PRINT (ACCUMULATE) <(CR><LF>
;CHECK FOR ERRORS.

ENDTST

104401

LSBTTL

TEST 3: HAMMER HIT COUNT TEST

L10011:

TRAP

(SETST

SEQ 99

BGNTST

020026
020026

13::

W =00
N =O000~ OV

OONONWVNS
WA =

MACRO v03.01 7-NOV-80 10:06:10 PAGE 30
'HARDWARE TESTS
TEST 3: HAMMER HIT COUNT TEST

............

e e o =

............................................................

TEST #3

N PN = ad e

HAMMER HIT COUNT TEST

FOUR LINES ARE TRANSMITTED TO THE PRINTER. THE HIT COUNT
RANGES FROM 0 TO 3 HITS PER CHARACTER TRANSMITTED. ONE BLANK
LINE AND THREE NON-BLANK LINES OF INCREASING DARKNESS SHOULD
BE EVIDENT ON THE PRINT PATTERN.

004737

014274

012746
012746
010600

002446
000001

062706

000004

052737

040000
002446
000004
000040

104414

JSR
PRINTB

PC,INITCD
#TITLE3

SINITIALIZE TEST
"CONSOLE PRINT TEST TITLE

MOV
MOV
MOV

TRAP
ADD

BIS

006500

#BIT14,ERWORD

:DISABLE ERROR HANGUPS

#4 R

*SKIPPING THE FIRST FOUR TWO CHARACTERS.

R3
PC,XMIT
#BiT14,ERWORD

*NO BIDIRECTIONAL PRINTING
*PRINT TEST TITLE
:RE-ENABLE ERROR HANG-UPS

: THE CHARACTER '"1'' TG BE PRINTED
*HIT COUNT ARGUMENT

MOV

#TITLES, R

MOV

#32. ,R2

ADD

STITLE ADDRESS

132 CHARACTERS LONG

35 020076
%? 020102

012616
040000

006500

CLR
JSR
BIC

38 020110
39 020116

006533
000040

006522
010060

MOVB
:838

SC1,SNGCHR
:ge:g.n11unc

MOVB
INC
MOV
MOV
CLR
JSR
JSR

HITARG,STHTCT(RO) ;INSERT IN ARGUMENT TEMPLATE
:NEW ARGUMENT FOR HITARG
HITARG
*ADDRESS OF ARGUMENT LIST
#STHTCT,R1
3 CHARACTER ARGUMENT LIST
#3.R2
*DISABLE BIDIRECTIONAL PRINTING FOR NOW.
R3
“SEND THE LIST = ADJUST HIT COUNT
PC,XMIT
*CHECK FOR ERRORS.
PC.ERRORS

40 020124
41 020130

50 020166
51 020172

012616
015246
oO

42 020136
43 020142
44 020146
45 020152
46 020154
:7 020160
8
49 020164

002257

006522
000001

LINLOO:

CLR
CHRLOO: MOV

MOV

R4
#SNGCHR,R1
" ,R2

:COUNT OF CHARACTERS
*ADDRESS OF CHAR TO BE PRINTED
*SINGLE CHARACTER

#TITLE3,=(SP)

#,-(SP)
SP.RO
CSPNTB
#4,SP

{HARDWARE TESTS

MACRO v03.01 7-NOV- 80 10:06:10 PAGE 30-1

I
|

012703
004737
004737

SEQ 100

iTEST 3: HAMMER HIT COUNT TEST

005204
020437
001362

63
64 020236
65 020242
66 020250
67 020254
68 020260
69 020262
;9 020266

177777

012616
015246

006522
010060

012700
112760
012701
012702
005003
004737
004737

000001
000040
002257
000003

000043

INC
CMP
BNE

R4
R4,LINSIZ

;UPDATE NUMBER OF CHARACTERS PRINTED THUS FAR.
;SENT A LINES WORTH YET?
;NO, CONTINUE SENDING.

INC
CMPB
BNE

SNGCHR

; INCREASE ASCII PATTERNTO _NEXT CHARACTER
;PRINTED THE HIT COUNT = 3 LINE YET?

MOV
MOovB
MOV
MOV

002257

CLR
JSR
JSR

012616
015246

PC,XMIT
PC,ERRORS

CHRLOO

HITARG,#THREE

LINLOO

#1,R0

#ZERO,STHTCT(RO)
#STHTCT,
R

#3,R2

R3
PC,XMIT

PC.ERRORS

;REPEAT PRINTING LINES UNTIL HIT COUNT = 3
sREVERT BACK TO HIT COUNT OF

;SEND PRINTER ARGUMENT LIST FOR HIT COUNT=1
;CHECK FOR ERRORS

L10012:

104401

.SBTTL

TEST &4:

;DISABLE BIDIRECTIONAL PRINTING

ENDTST

72 020272

020272
020272

;ENABLE BIDIRECTIONAL PRINTING.
;SEND THE CHARACTER
;CHECK FOR ERRORS.

JSR

010042

005237
123727
001333

#-1,R3

MoV
JSR

CARRIAGE POSITIONING TEST

TRAP

CSETST

———

HARDWARE TESTS

SEQ 101

MACRO v03.01 7-NOV-80 10:06:10 PAGE 31

020274
020274

BGNTST

T4::

..............................................................................

| TEST &: CARRIAGE POSITIONING TEST

POPNORNIN)
= b e e
= e d od

TEST #4

NO VNS WN

CARRIAGE POSITIONING TEST

IN THIS TEST THE PRINTER CARRIAGE WILL SE EXERCISED BY MOVING

THE CARRIAGE BACK AND FORTH INCREASING AMOUNTS FROM THME MINIMUM

HORIZONTAL INCREMENT OF MOVEMENT TO THME MAXIMUM (PAGE SIZE) HORIZONTAL
IN THE PROCESS, ANY ERRORS DETECTED BY THE
INCREMENT OF MOVEMENT,
IDENTIFIED AND REPORTED.

WN 2OV

PRINTER WILL BE

H
25 020274
26 020300
020300

004737

014274

012746

002513
000001

TEST4:

JSR
PRINTB

PC,INITCD
#TITLES

JINITIALIZE TEST
;CONSOLE PRINT THE TEST TITLE

TRAP
ADD

000004

012701

040000
002513
000004
000044
012616
040000

006500

39 020372

BIS
ADD
MOV

006500

006530
000001
012616
015246

38 020366

CLR
JSR
BIC

PC.XMIT
PC .ERRORS

2; 020412

015246

JSR
JSR

46 020416
47
48 020424
49 020430

000001

50
51 020434

004737

014176

PC,XMIT
#1714 ,ERWORD

JSR

MOV

010036
000014

l%b..k?

#SCX,R1

JSR

010036

#BIT14,ERWORD
#TITLEG,RY
# ,R1

MoV

61 1020376

013701
162701

MOV
MOv
MOV

rov

L1LOOP: Mov
SuB
JSR

IR Y.

#TITLEG,-(SP)
#,-(SP)

SP,RO

(SPNTB

#,SP

;INHIBIT ERROR HANG-UPS
;ADDRESS OF TITLE #4 TO BE PRINTED
;SKIP FIRST FOUR CHARACTERS

:36 CHARACTERS IN THE TITLE

:DISABLE BIDIRECTIONAL PRINTING

:TRANSMIT THE STRING TO THE PRINTER

;RE-ENABLE ERROR HANG-UPS

;ADDRESS OF THE SINGLE CHARACTER "'X''.
;SINGLE CHARACTER TO BE PRINTED
:PRINT THE CHARACTER “'A"",
;CHECK FOR ERRORS.

#CR,R
#2,R2
PCXMIT

;ADDRESS OF CARRIAGE RETURN ASCII
:TWO CHARACTERS INCLUDE <CR> & <LF>.
:SEND <CR><LF> TO PRINTER

#1,SPCSI2

JINITIALIZE THE SPACE SIZE TO ITS SMALLEST

na. .ri

SPCS1Z,R1

:R1 HAS SPACE SIZE FOR THE CONVERSION ROUTINE
:TAKE AWAY THE 12 HORIZONTAL INCREMENTS

PC,CONVRT

;CONVERT R1 TO THREE ASCII MNEMONICS (BYTES)

PC,ERRORS

;CHECK FOR ERRORS

: PRODUCED BY THE PRINT OF THE CHARACTER,

I
HARDWARE TESTS

SEQ@ 102

MACRO v03.01 7-NOV-80 10:06:10 PAGE 31-1

TEST &: CARRIAGE POSITIONING TEST

52 020440

012700

54 020452
§5 020456
56 020462
g; 020466

005200
113760
005200
113760

§9 020472

012701

006530

MOV

#SCX,R1

;ADDRESS OF THE CHARACTER ''X''.

61 020502
gg 020506

004737
004737

012616
015246

JSR
JSR

PC.XMIT
PC . ERRORS

*SEND ''x"' TO THE PRINTER
*CHECK FOR ERRORS

65 020512
66 020516
67 020522

012701
012702
004737

002233
000005
012616

70 020532

012701

006530

72 020542
;z 020546

§3 020444

113760

000001

010046

002233

010047

002233

010050

002233

gg 020526

004737

#1,R0

INC
MOVB
INC
MOVB

RO
MNEB2,HRZTLS(RO)
RO
MNEB3,HRZTLS(RO)

MOVB

MOV

60 020476 012702 000001
64

MOV

015246

MNEB1,HRZTLS(RO)

0 RS

:FIRST BYTE FROM CONVERT ROUTINE
:SECOND BYTE
;THIRD BYTE

*LENGTH OF STRING TO BE SENT = 1.

MOV
MOV
JSR

FHRZTLS,R1
#5,R2
PC.XMIT

:ADDRESS OF TAB SEQUENCE JUST COMPUTED.
“THERE ARE 5 CHARACTERS IN THE SEQUENCE
*SEND THE LIST TO THE PRINTER

MOV

#SCX,R1

JSR
JSR

# RS

PC.XMIT
PC .ERRORS

*SINGLE CHARACTER

JSR

PC,ERRORS

;CHECK FOR ERRORS

;ADDRESS OF ''X"

71 020536 012702 000001
004737
004737

012616
015246

MOV

75 020552
76 020556
77 020562
;3 020566

012701
012702
004737
004737

002313
000002
012616
015246

MOV
MOV
JSR
JSR

#CR,R
#2,R2
PC,XMIT
PC . ERRORS

:ADDRESS OF <CRO<LF>
*TWO CHARACTERS TO BE SENT TO PRINTER
:PRINT THE <CR><XLF>
*CHECK FOR ERRORS

80 020572
81 020576
g% 020604

006337
023737
100707

010036
010036

ASL
CMP
BMI

SPCSIZ
SPCSIZ,LINN
L1LOOP

:DOUBLE THE SPACE SIZE
1S THE SPACE SIZE LARGER THAN THE MAXIMUM?

010040

86
87
28
89
90
91
92
93
9%
95
96

:1F NOT THAN PRINTING MORE IS OK.

ENDTST

84 020606

020606
- 020606

TPRINT *X"*
*CHECK FOR ERRORS

104401

;
;
:
;

LSBTTL

TEST 5: PAPER POSITIONING TEST

L10013:

TRAP

CSETST

HARDWARE TESTS

SEQ 103

MACRO v03.01 7-NOv-80 10:06:10 PAGE 32

TEST 5: PAPER POSITIONING TEST
1
2
3 020610

BGNTST

. 020610

15::

B
6
7

g2
000 1

TEST #5

;

PAPER POSITIONING TEST

16
17
18
19

;
;
:
:

IN THIS TEST THE VERTICAL PAGE MOVEMENT CAPABILITIES OF THE PRINTER
ARE EXERCISED. A LINE OF DASHES WILL BE PRINTED BETWEEN EACH VERTICAL
CARRIAGE MOVEMENT SO THAT THE PATTERN CAN BE DETECTED BY THE USER.
IN EACH LOOP THROUGH THE PRINTING CYCLE OF THIS TEST, THE VERTICAL

;

20
21

;
;

23
24
25
26

:
S

INCREMENT OF MOVEMENT WILL BE DOUBLED. THE LINES OF DASHES WILL THUS
BECOME TWICE AS FAR APART AS EACH PASS THROUGH THE PRINTING CYCLE IS
)

, 90

COMPLETED.

DS DT U

TP s S

pp———

30 020610
31 020614

004737

014274

020614
020620

012746
012746

002564
000001

020626
> 020630

104414
062706

000004

33 020634

052737

040000

35 020646

062701

000004

37 020656
38 020660
28 020664

005003
004737
042737

012616
040000

006500

CLR
JSR
BIC

21 020672

012737

000001

010062

MOV

#1,LINCNT

:LINEFEED SIZE IN 1/48 INCH INCREMENTS.

43 020700
44 0207064

013701
004737

010062
014176

MOV
JSR

LINCNT,R1
PC,CONVRT

:A NUMBER FOR CONVERSION TO ASCII MNEMONICS
*CONVERT NUMBER IN R1 TO THREE MNEMONIC BYTES

46 020714

113760

010046

002226

MOVB

MNEB1,VRTCLS(RO)

010047

002226

010050

002226

020624 010600

3% 020642 012701 002564

TESTS:

47 020722
48 020724
49 020732

50 020734

012700
005200
113760
005200

113760

000001

PC,INITCD
#TITLES

006500

#BIT14,ERWORD

;DISABLE ERROR HANG-UPS

ADD

#4 R

:SKIP FIRST FOUR CHARACTERS.

MOV

INC
MOVB
INC

MOVEB

#TITLES, R
0k, R2

R3
PC,XMIT
#BI1T14 ,ERWORD

#.R0

RO
MNEB2,VRTCLS(RO)
RO

MNEB3,VRTCLS(RO)

MOV
MOV

#TITLES,=(SP)
#,-(SP)

TRAP
ADD

(SPNTB
#4,SP

MOV

BIS

MOV

AGN:

sINITIALIZATION CODE
:CONSOLE PRINT OF THE TEST TITLE.

36 020652 012702 000054

45 020710

JSR
PRINTB

SP.RO

*ADDRESS OF THE TITLE TO BE PRINTED
:43 CHARACTERS IN THE TITLE

:DISABLE BIDIRECTIONAL PRINTING
:SEND THE TITLE SEQUENCE TO THE PRINTER.
:RE-ENABLE THE ERROR HANG-UPS.

;TRANSFER MNEMONICS INTO ARGUMENT
;

LIST SLOTS IN THE

;

ESCAPE SEQUENCE.

HARDWARE TESTS

.'._

SEQ 104

MACRO v03.01 7-NOV-80 10:06:10 PAGE 32-1

TEST 5: PAPER POSITIONING TEST

52 020742
53 020746

012701
01270;

002226
000005

MOV
MOV

#VRTCLS,R1
#5,R2

:ADDRESS OF VERTICAL SPACING ARGUMENTS
:THERE ARE S CHARACTERS : ESC
NNN 9

56 020756
57 020762
S8 020766
28 020772

012701
012702
004737
004737

00654
00001
012616
015246

MOV
MOV
JSR
JSR

#DASHES ,R1
#M1.,R2
PC,XMIT
PC,ERRORS

;ADDRESS OF THE DASHES
:TEN DASHES § LF
sSENDC TO PRINTER
;CHECK FOR ERRORS

61 020776
62 021002
gz 021010

006337
023727
100733

010062
010062

ASL
CMP
BMI

LINCNT
LINCNT , #MXLF
AGN

:DOUBLE LINEFEED SIZE
:TO0 LARGE A LINEFEED YET?
:1F NOT REPEAT PRINT SEQUENCE. ELSE- EXIT TEST.

gg 020752

004737

012616

JSR

_
002000

67
68
69
70
7
72
73

:SEND TO PRINTER.

ENDTST

65 021012

021012
o 021012

PCXMIT

L10014:

104401

3
:
3

LSBTTL TEST 6:

PRINT ONE LINE OF EACH CHARACTER

TRAP

CSETST

SEQ 105

BGNTST

—_—

—

SN
~NOWVT

POMNIPININININ
=
s b d b b D s—
VIS NN 200NV
W - OV

[=]=]

|WARDWARE TESTS MACRO V03.01 7-NOV-80 10:06:10 PAGE 33
ITEST 6: PRINT ONE LINE OF EACH CHARACTER

s I AR NI

¥é6::

TRt Ra NNttt RRENRIONIRINBONDORONRENNYEY

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

TEST #6

PRINT ONE LINE OF EACH CHARACTER

IN THIS TEST ONE LINE OF EACH CHARACTER WILL BE PRINTED FOR THE

ENTIRE PRESET PAGE WIDTH.
CLASSIFIED.

021014
6 021020
021020
021024
021030
021032
021034

27
28 021040

004737

014274

012746
012746
010600

002645
000001

104414

062706

000004

052737

040000
002645
000004
000053

was

35 f88 Nane R’

012616
040000

TESTG:

006500

MOV
ADD

#B17114,ERWORD
#TITLEG,RY
¥ R

CLR
JSR
BIC

R3
PC,XMIT
#B1714,ERWORD

BIS

MOV

006500

010064

006555

015246

000136

PC,INITCD
#TITLEG

;INITIALIZATION FOR TEST
;CONSOLE PRINT OF THE TEST ‘ITLEfiOV
MOV
MOv
TRAP
ADD

177777

010064
010064

JSR
PRINTB

PRINTER DETECTED ERRORS WILL BE DETECTED

010042

08,
R2

#TITLE6,=(SP)
#1,-(SP)

SP,RO

CSPNTB

#4,SP

;DISABLE ERROR HANG-UPS
;ADDRESS OF THE TITLE
;SKIP FIRST FOUR CHARACTERS
;43 CHARACTERS IN THE TITLE

;DISABLE BIDIRECTIONAL PRINTING FOR THE MOMENT
;PRINT THE TITLE
;ENABLE DESIRED ERROR HANG-UPS.

MOV
CLR
LINLOG: CLR

#-1,R3
R4
CHRCNT

:ENABLE BIDIRECTIONAL PRINTING

CHRLOG: MOV
ADD
MOV
JSR
JSR

R4 ,R1
#CHRLST,R1
" ,R2
PC.XMIT
PC .ERRORS

;GET OFFSET
;POINT TO DESIRED CHARACTER IN CHAR LIST.
;JUST THE ONE CHARACTER TO PRINT
:SEND THE CHARACTER
;CHECK FOR ERRORS

INC
CMP

CHRCNT
CHRCNT,LINSIZ
CHRLOG

;KEEP TRACK OF THE CHARACTERS PRINTED
;HAS A FULL LINE BEEN PRINTED YET?
;IF NOT THEN PRINT UNTIL TRUE.

INC
CMP

;KEEP TRACK OF THE LINES PRINTED
;96 LINES PRINTED? (ALL CHARACTERS?)

BM]

R&4, #94.

*NO LINES YET PRINTED
:NO CHARACTERS YET PRINTED

——

—

c———

)

SEQ 106

HARDWARE TESTS MACRO V03.01 7-NOV-80 10:06:10 PAGE 33-1
'TEST 6: PRINT ONE LINE OF EACH CHARACTER
'

gg 021154

100753

54 021156

LINLO6

;IF NOT YET, MORE LINES TO PRINT.

ENDTST

104401

o
o

021156
021156

BMI

.SBTTL

TEST 7: PRINT A SWIRL PATTERN

L10015:

TRAP

CSETST

SEG

'HARDWARE TESTS

107

MACRO v03.01 7-NOv-80 10:06:10 PAGE 34

(TEST 7: PRINT A SWIRL PATTERN
1

BGNTST

021160

17::

R R R

;

TEST #7

};
13

:
:

PRINT A SWIRL PATTERN
IN THIS TEST, A SWIRL PATTERN IS PRINTED BY SENDING THE SEQUENCE

;

POINT IN THAT LIST SO THAT THE SEQUENCE STARTS AT A DIFFERENT

;

21 021160
22 021164

004737

014274

021164
021170
021174
021176
- 021200

012746
012746
010600
104414
062706

002725
000001
000004

24 021204

052737

040000

26 021216

062701

000004

28 021226
29 021230
gg 021234

005003
004737
042737

32 021242
gz 021246

012703
005004

35 021250
36 021252

010401
062701

23 021266

004737

25 021212 012701

002725

TEST7:

006500

27 021222 012702 000040

37 021256
38 021262

013702
004737

41 021272
42 021274

010105
005205

:g 021302

060501

43 021276

013701

46 021304

005301

49 021316

004737

47 021306
48 021312
50

51 021322

012702
004737

020501

012616
040000
177777

006555
010042
012616
015246
010042

000001
012616

015246

OF CHARACTERS IN THE CHARACTER LIST AND INCREMENTING THE STARTING
CHARACTER EVERY LINE.

O TX

N PRI 3 1 SR TR N P TR 0t

SRR

L8 A

ISy SIS SO Lo Ry

JSR
PRINTB

PC,INITCD
#TITLE?

SINITIALIZE THE TEST
*CONSOLE PRINT THE TITLE

BIS

#BIT14,ERWORD

;INHIBIT ERROR HANG=-UPS

ADD

#4 ,R1

:SKIP 1ST 4 CHARACTERS.

PC XMIT
#BIT14,ERWORD

‘DISABLE BIDIRECTIONAL PRINTING FOR NOW.
:SEND TO PRINTER
:ENABLE ERROR HANG-UPS

#-1,R3
R4

:ENABLE BIDIRECTIONAL PRINTING
:NO LINES ARE PRINTED YET

MOV

MOV
006500

R R R RN R R N R R R R RN R N R NN NN N RN NN RN R RNy

CLR
JSR
BIC
MOV
CLR

#TITLE?,R

osé ,R2

MOV
MOV
MOV
TRAP
ADD

#TITLE?,-(SP)
#,-(5P)
SP,RO
CSPNTB
#4,SP

:ADDRESS OF THE TITLE TO BE PRINTED

132 CHARACTERS INVOLVED

:OFFSET
*ADDRESS OF CHARACTER TO BE PRINTED.

MOV
JSR
JSR

R4 R
#CHRLST,R1
LINSIZ,R2
PC,XMIT
PC.ERRORS

MOV
INC

R1,RS
RS

:ADDRESS OF LAST CHARACTER FOR PRINTING..
;
POINT ONE FURTHER FOR SWIRL EFFECT.

ADD

RS,R1

*POINT TO THE FIRST CHARACTER TO BE PRINTED+1.

NXTLIN: MOV
ADD

MOV

REVRSP: DEC

MOV
JSR
JSR

CMP

LINSIZ,RY

SLENGTH OF LINE. PRINT A LINES WORTH
STRANSMIT THE LINE TO THE PRINTER
:CHECK FOR ERRORS

:POINT TO THE NEXT CHARACTER TO BE PRINTED.

PC _ERRORS

:CHECK FOR ERRORS.

#,R2
PC.XMIT

RS.R1

STELL XMIT THAT A SINGLE CHARACTER PRINTED.
*SEND THE CHARACTER. (REVERSE PRINT)

;PRINTED ENOUGH CHARACTERS YET IN REVERSE?

—————

2
3
& 021160

'HARDWARE TESTS

SEQ 108

MACRO v03.01 7-NOV-80 10:06:10 PAGE 34-1

'TEST 7: PRINT A SWIRL PATTERN

!
i

52 021324
53

BMI

100767

REVRSP

;PRINT NEXT REVERSE CHAR.

55
56
57 021326
58 021332
59 021336
60
61 021340
021340
021340

DONE WITH REVERSE PRINT.
062704
020427
100744

ADD
CMP
BM]

000002
000024

#2,RG
R4 ,#20.
NXTLIN

:KEEP TRACK OF THE NUMBER OF LINES PRINTED
:TEN LINES PRINTED YET?
;IF DONE, EXIT TEST

ENDTST

L10016:

104401

.
.

.SBTTL

TEST 8:

WORST

CASE RAPID MOTION TEST

TRAP

CSETST

HARDWARE TESTS

SEQ 109

MACRO v03.0% 7-NOv-80 10:06:10 PAGE 35

TEST 8: WORST CASE RAPID MOTION TEST
1

2
3

S 021342
6
7
5

BGNTST

021342

18::

};

;

TEST #8

WORST CASE RAPID MOTION TEST

;

THIS TEST WILL PUT THE PRINT WHEEL THROUGH A MECHANICALLY STRESSFUL

18
19

TEST8:

JSR
PRINTB

PC,INITCD
#TITLES

;INITIALIZE TEST
:CONSOLE PRINT TEST TITLE

006500

BIS

#BIT14,ERWORD

;DISABLE ERROR HANG-UPS

006500

CLR
JSR
BIC

R3
PC,XMIT
#BIT14,ERWORD

:NO BIDIRECTIONAL PRINTING FOR NOW
;SEND TO PRINTER
;ENABLE ERROR HANG-UPS

R R

NNy

SITUATION BY REPEATEDLY PRINTING THE SEQUENCE '‘ACA:'".
s

P USRI

PRI RPT A

APEOE

TSR

ORI

g, vt

Ry S

T e 1y e 8

20
21

24 021342
25 021346

004737

014274

021346
021352
021356
021360
. 021362

012746
012746
010600
104414
062706

002772
000001

27 021366

052737

040000

31 021410
32 021412
gz 021416

005003
004737
042737

012616
040000

35 021424
36 021430
37 021432
38 021436

012703
005004
013705
006205

41 021440
42 021444
43 021450

012701
012702
004737

46 021460

005204

000004

28 021374 012701 0062772
29 021400 062701 000004
30 021404 012702 000047

22 021454

S0 021466

021466

|
|

———————————

47 021462
23 021464

004737
020405
100765

MOV
ADD
MOV

177777

010042

006535
000004
012616

015246

LOOP8:

#TITLER,RY
24 R
#39.,R2

MOV
MOV
MOV
TRAP
ADD

;ADDRESS OF TITLE
:SKIP FIRST & CHARACTERS
139 CHARACTERS

MOV
CLR
MOV
ASR

#-1,R3
R&
LINSIZ,RS
RS

:ENABLE BIDIRECTIONAL PRINTING
:COUNT OF "‘ACA:'* BLOCKS
:# OF CHARACTERS PER LINE
:LINSIZ/2 : 1 BLOCK = & CHARACTERS...

MOV
MOV
JSR

#ACAS,R1
¥4 ,R2
PC,XMIT

;ADDRESS OF SEQUENCE
:OF & CHARACTERS...
:SEND TO PRINTER

INC

JSR

(MP
BM]
ENDTST

PC,ERRORS
R4,RS
LOOP8

PRINT 2 LINES AT NEW LINE SIZE

;CHECK FOR ERRORS.

;ENOUGH BLOCKS PRINTED??
:1F NO, LOOP TO PRINT NEXT BLOCK...

L10017:

#TITLES,-(SP)
#1,-(SP)
SP,RO
CSPNTB
8 ,SP

PR—

'HARDWARE TESTS

SE@

MACRO v03.01 7-NOV-80 10:06:10 PAGE 35-1

'TEST 8: WORST CASE RAPID MOTION TEST
|

021466

}

104401

TRAP

LSBTTL

TEST 9: PRINT RANDOM CHARA(CTERS

CSETST

110

SEQ 111

Who—

'HARDWARE TESTS MACRO v03.01 7-NOvV-80 10:06:10 PAGE 36
'TEST 9: PRINT RANDOM CHARACTERS

|
|

l
|

19::

T A
U O N
........................................................................

TEST #9
PRINT RANDOM CHARACTERS

THIS TEST WILL PRINT A RANDOM SEQUENCE OF

PRINTER.

CHARACTERS ON THE

=00V

VS W

PONIPOPININD
b s b e s e
d s

BGNTST

021470
021470

NOWVNSTWN 2O 00NV

004737

014274

012746
012746
010600

003046
000001

062706

000004

052737
012701
062701
012702
005003
004737
042737

040000
003046
000004
000042

35 021552
36 021556
37 021560
38 021562
39
2? 021564

013705
006305
006305
006305

01004c

005037

010064

CLR

42 021570
43
44 021574
45 021600
46 021604
47 021610
48 021614
49

004737

014726

062701
012702
012703

006555
000001

177777

MOV

005237
023705

010064
010064

CMP

021470

104414

50 021620

51 021624

012616
040000

012616
015246

TESTY:

JSR

PRINTB

PC,INITCD

#TITLE9

SINITIALIZE TEST

*CONSOLE PRINT TITLE

MOV

#TITLED,=(SP)

MOV

SP,RO

MOV

TRAP
ADD

006500

BIS
MOV
ADD
MOV
CLR
JSR
BIC

#BIT14,ERWORD
#TITLEY,RI
#4 ,R1
#34. ,R2
R3
PC,XMIT
#BIT14,ERWORD

:DISABLE ERROR HANG-UPS
:ADDRESS OF TITLE
SSKIP 1ST 4 CHARACTERS
134 CHARACTERS IN THE TITLE
:DISABLE BIDIRECTIONAL PRINTING
SSEND TO PRINTER
:ENABLE ERROR HANG-UPS

MOV

LINSIZ,RS

;GET THE LINE SIZE

CHRCNT

: TO PRINT 8 LINES WORTH
*NO CHARACTERS PRINTED YET

PLOOPY: JSR

PC,RANDOM

:RANDOM NUMBER (0 - 99) INTO R1

ADD
MOV

#CHRLST,R1
#.R

:ADDRESS FOR THIS PRINT
:SINGLE CHARACTER

JSR
JSR

PC,XMIT
PC .ERRORS

SSEND TO PRINTER
:CHECK FOR ERRORS.

CHRCNT

“:KEEP TRACK OF THE NUMBER OF CMARACTERS

ASL
ASL
ASL

INC

RS
RS
RS

#-1,83

CHRCNT RS

SLINE SIZE + 2
TLINE SIZE * 4
:LINE SIZE + 8

‘BIDIRECTIONAL PRINTING.

;EIGHT LINES YET?

#1,-(SP)
CSPNTB
84 ,SP

'HARDWARE TESTS
TEST 9:

PRINT RANDOM CHARACTERS

g% 021630

100757

BMI

54 021632

ENDTST

021632

104401

021632

60
61

SEQ 112

MACRO v03.0 7-NOV-80 10:06:10 PAGE 36-1
PLGOPY

;NO,LOOP UNTIL DONE

L10020:

:
:

"sBTTL

TEST 10:

PRINT OPERATOR SELECTED CHARACTERS

TRAP

CSETST

'WARDWARE TESTS
TEST 10:

PRINT OPERATOR SELECTED CHARACTERS

2 021634
3

SEQ 113

MACRO V03.01 7-NOV-80 10:06:10 PAGE 37

BGNTST

021634

’

T10::

TEST #10

PRINT OPERATOR SELECTED CHARACTERS

;

17
18

21 021634
22 021640
021640

021644
021650
021652
- 021654

24 021660
25 021666
26 021672
27 021676
28 021702
29 021704
gg 021710

32 021716

004737

014274

012746
012746

003115
000001

010600
104414
062706
052737
012701
062701
012702
005003
004737
042737

021716
021720
021722
021724
021726
021730
021732
021734
021736

104443
000406
007352
000142
003200
000000
000001
000072

gz 021736

005004

37 021740
38
39

105764

60 021744

0010M

62 021746

012701

TESTA:
:

R R R R R N R N R NN R N N RN N R R R R RN R NN RN RN NN ERY

THIS OPTIONAL TEST WILL PRINT CHARACTER SEQUENCES SELECTED BY THE

OPERATOR ONE LINE AT A TIME.

SRR UAL. A0 S

JSR
PRINTB

-ERMNPA S

PC,INITCD
#TITLEA

s ) 0- G

P FUPL— o S | AP SR

STEST INITIALIZE
*CONSOLE PRINT TITLE

040000
003115
000004
000056
012616
040000

MOV
MOV

FTITLEA,=(SP)
#1,-(SP)

TRAP
BR

CSGMAN
10000$
BFRA
TS$CODE
PRMPTA
O
TSLOLIM
TSHILIM

MOV
TRAP
ADD

000004
006500

006500

LOOPA:

BIS
MOV
ADD
MOV
CLR
JSR
BIC

#BIT14,ERWORD
#TITLEA,R
#4 R
#46. ,R2
R3
PC,XMIT
#B1T14 ERWORD

GMANID

PRMPTA.BFRA.A.0,1.72.NO

R BTN

SP.RO
CSPNTB
#4,SP

:DISABLE ERROR HANG-UPS
"ADDRESS OF TITLE
*SKIP 4 CHARACTERS
46 CHARACTERS IN THE TITLE
*DISABLE BIDIRECTIONAL PRINTING
*SEND TO PRINTER
-ENABLE ERROR HANG-UPS

.WORD

"WORD
.WORD
'WORD
"WORD
"WORD

100008:
:PROMPT AT CONSOLE AND INPUT STRING.
007352

002313

NXTA:

CLR

R4 IS OFFSET IN INPUT STRING

TSTB

BFRA(R&4)

BNE

TECZ

1S THE BYTE A ZERO? GMANID IS EXPECTED TO
“"SEND A ZERO AS THE LAST BYTE. THIS WILL
; INDICATE THE END OF THE INPUT STRING.

MoV

#CR,R1

;NOT ZERO.

CHECK FOR CTL-Z

;ADDRESS OF CARRIAGE RETURN - LINEFEED

—

————

|HARDWARE TESTS
TEST 10:

2; 021766

000753

S0 021770
g; 021776

126437
001006

53 022000

005204

55 022010
56 022012
57
58 022014
59 022014
60 022020
61 022022
62 022026
63 022030
22 022034

001415
005304

66 022040
67 022042

005204
000736

gg 022044

——

e
e

126427

012701
060401
012702
005003
004737
004737

000240

000002
012616
015246

007352

006525

007352

000000

007352

TFCZ:

72
73
74
75
76
77
78

—_—

—

SEQ 114

MOV
JSR
JSR

#2,R2
PC,XMIT
PC,ERRORS

;TWO BYTES TO SEND
sSEND THE STRING
:CHECK FOR ERRORS.

LOGPA

:BACK TO PROMPT...

(MPB
BNE

BFRA(R4L) ,SCQ
NOTQ

IS IT A 'R 2
JIF IT IS, CHECK FOR <RETURN>

;sCHECK
NEXT BYTE FOR ZERO.

EXITA
R4

sIF IT IS THEN EXIT TEST
:IF NOT ZERO THEN. NOT RETURN
sAND NOT YET THE END.

INC

CMPB

BFRA(R4L) ,#0

MOV
ADD
MOV
CLR
JSR
JSR

#BFRA,R1
R4 ,R1
#1,R2
R3
PC,XMIT
PC,ERRORS

PRINT THE CHARACTER..
AS R4 POINTS THROUGH THE LIST.
ONE CHARACTER TO PRINT,
NOT BIDIR. PRINTING.
:SEND TO PRINTER.
:CHECK FOR ERRORS.

INC
BR

R4
NXTA

;POINT TO NEXT CHARACTER
;sREPEAT TILL END OF STRING FOUND.

BEQ
DEC
NOTQ:

000001
012616
015246

EXITA:

70 022046

022046
” 022046

—————

PRINT OPERATOR SELECTED CHARACTERS

012702
004737
004737

S& 022002

ste——

MACRO v03.01 7-NOV-80 10:06:10 PAGE 37-1

43 021752
44 021756
22 021762

NOP
ENDTST

104401

:1S THE BYTE A ZERO?

L10021:

3
:
:

LSBTTL

TEST 11:

LIFT / DROP RIBBON BY OPERATOR CONTROL

TRAP

CSETST

NARDUARE TESTS

MACRO v03.01 7-NOV-80 10:06:10 PAGE 38
LIFT 7/ DROP RIBBON BY OPERATOR CONTROL

BGNTST

022050
022050

L
L
L

b b b

LIFT 7/ DROP RIBBON BY OPERATOR CONTROL
THIS TEST WILL EITHER ENABLE THE USER TO MANUALLY LIFT AND

DROP THE PRINTER RIBBON OR IT WILL LIFT AND DROP THE PRINTER
RIBBON AUTOMATICALLY.

THE USER LIFTS AND DROPS THE RIBBON

BY PUSHING THE RETURN KEY AFTER SELECTING THE MANUAL MODE.
THE AUTOMATIC MODE IS SELECTED BY THE USER, THEN THE RIBBON LIFTS
AND DROPS TEN TIMES AT A RATE OF ABOUT ONCE PER SECOND.

o
N
N

022050

004737

014274

012746

003264
000001

022070

ah
45 022150
46 022154
47 022160
48 022162
49
50

51 022166

ASSS NSSS o

022144

5
~N

022132
-

006500

JSR

PRINTB

012616
040000

002303
000005

BIS
MOV

ADD
MoV
CLR

—

~N
~N

[=]

022124

TESTB:

PC,INITCD
#TITLEB

;TEST INITIALIZE
;CONSOLE PRINT TITLE

000004

022074

~N
~N

oo
PONI
PO R NI NI AU A

TEST #1

...............................................................................

(=11 ] fl&mruv\pd

¥
X
£ WUN N AN N NN

18 4 KR

b d b b d

8 V0O~ (S WN SOV NOWVISWN
2OV NONWVT

TEST 1:

SEQ 115

006500

:aé R2

;:DISABLE ERROR HANG-UPS

sADDRESS OF TEST TITLE
;SKIP & CHARACTERS
;48 CHARACTERS TO BE PRINTED.
:NO BIDIRECTIONAL PRINTING
;SEND THE TEST TITLE
;ENABLE ERROR HANG-UPS

JSR
BIC

PC,XMIT
#81114,ERWORD

MOV

#SETHTO,R1
#5,R2
R3

;SET _HIT COUNT TO ZERO
;FIVE CHARACTER STRING SENT TO PRINTER
:NO BIDIRECTIONAL LOGIC REQUIRED.
:SEND TO PRINTER.

#SETCHO,RY

;SET CHARACTER SIZE TO ZERO.
;ARGUMENT LIST IS 3 CHARACTERS LONG.
:NO BIDSIRECTIONAL LOGIC REQUIRED.
;SEND TO PRINTER.

MOV

012616

CLR
JSR

002310
000003

MoV
MOV

012616

#B1T14,ERWORD
cranea R1
#4 R

MOV
MOV
MOV
TRAP
ADD

PCXMIT

CLR
JSR

GMANID

OPTN1,BFRB,A,0,1,72,YES

PC,XMIT

#TITLEB,-(SP)
#1,-(SP)

SP,RO
CSPNTB

¥4 ,SP

r—————————

|HARDWARE TESTS
TEST 11:

022166
022170
022172
022174
022176
022200
022202
022204
022206

52
53
54 022206
55 022214
56
57
58 022216
59 022222
60
61 022224
62
63 022230
022230
022230

64
65
66
67
68
69
70
7
72
73
74
75

76
77
78
79

80
81
82

SEQ 116

MACRO v03.01 7-NOV-80 10:06:10 PAGE 38-1
LIFT 7/ DROP RIBBON BY OPERATOR CONTROL
TRAP

104643
000406

BR
.WORD
.WORD
.WORD

10000$:

.WORD

CSGMAN

10000%
BFRB
T$CODE

OPTN1
0

TSLOLIM
TSHILIM

;ASK USER TO CHOOSE AUTO OR MANUAL MODE.
123737

010030

004737
000402

022352

004737

022232

001403

104401

(MPB
BEQ

BFRB,SCA
AUTCAL

JSR
BR

PC,MANLD
EXIT

AUTCAL:

JSR

PC,AUTOLD

EXIT:

ENDTST

006531

s1F CHARACTER IS '""A'"" THEN AUTO MODE CHOSEN
;SO CALL LOCAL ROUTINE TO HANDLE AUTO MODE
;OTHERWISE, MANUAL IS CHOSEN.....

;D0 MANUAL LIFT / DROP.
;EXIT TEST WHEN DONE

;D0 AUTOMATIC MODE LIFT / DROP.
L10022:

TRAP

CSETST

MACRO v03.01

SEQ 117

7-NOV-80 10:06:10 PAGE 39

LIFT 7/ DROP RIBBON BY OPERATOR CONTROL

OCOVONOWVSWN=OOVRNOWVEUIN
2OV NS NN -

NARDUARE TESTS
TEST 1:

:FUNCTIONAL DESCRIPTION
TEST M

LOCAL PROCEDURE AUTOLD
RIBBON LIFT AND RIBBON DROP.

AUTOMATIC MODE OF

b ad

INPUTS

NONE

PNINI NI NI PO NINI NI

OUTPUTS

SFUNCTIONAL SIDE EFFECTS
:

THE PRINTER RIBBON WILL LIFT/DROP AUTOMATICALLY.
:CALLING SEQUENCE
PC,AUTOLD

JSR

31 022232
32 022236
33 022242
34 022250
35 022254
36 022260
;g 022264
39 022270
2? 022274

005037

010066
000001
000040
002240

- CCOUNT
;COUNT OF CYCLES (LIFT/DROP)
‘10R°
sPOINT TO POSITION PARAMETER.
#ZERO,RIBPOS(RO)
LIFT/DROP
sRIBBON UP ARGUMENT
#RIBPOS,R1
sADDRESS OF ARG LIST
CYCLE....
¥4 ,R2
s ARGUMENTS
=
....cceee
PC,XMIT
:SEND TO PRINTER
PC,ERRORS
'CHECK FOR ERRORS.

015246

CLR
MOV
Move
MOV
Mov
JSR
JSR

001750
015224

Mov
JSR

#1000. ,R5

;DELAY TIHE IN R1 FOR

MoV
Movas
MOV
MOV
CLR
JSR
JSR

n .RO
#ONE ,RIBPOS
(RO)
#RIBPOS,R1
¥4 ,R2

;POINT TO THE RIBBON POSITION PARAMETER ...
:LOWER THE RIBBON.
cee

INC
CMP
BMI

CCOUNT

:KEEP COUNT OF CYCLES SO FAR.

AUTOLE

:LOOP UNTIL TEN LOOPS DONE.

RTS

000001
000041
002240
000004

002240

012616
015246

AUTOLD:
AUTOLE:

PC,DELAYS

PC,XMIT

PC,ERRORS

DELAY ROUTINE.

:PERFORM DELAY OF ABOUT 1

SECOND.

sARGUMENT LIST ADDRESS.

:4 CHARACTERS
:BIDIRECTIONAL LOGIC DISABLED
:SEND SEQUENCE TO PRINTER.

.....
cesce

.....

.........

.........
.........

010066
010066

53
54 022350
55

000024

CCOUNT ,#20.

:LOOP TEN TIMES FOR TEN LIFT / DROP CYCLES

B 10
HARDWARE TESTS
TEST 11:

59
60
61

62
63

MACRO v03.01 7-NOV-80 10:06:10 PAGE 39-1
LIFT 7/ DROP RIBBON BY OPERATOR CONTROL

:
:
:

SEQ 118

'NARDHARE TESTS
TEST 11:

SEQ 119

MACRO V03.01 7-NOV-80 10:06:10 PAGE 40
LIFT / DROP RIBBON BY OPERATOR CONTROL

TEST #11

;

LOCAL PROCEDURE MANLD

;

MANUAL LIFT / DROP MODE.

IF SELECTED, THIS MODE WILL PERMIT

UYWAY 1 20 2N

e T

10
1
}§

:
:
;

15
16
17
18
19

UMt Y Ui

CFUNCTIONAL “DESCRIPTION

H
LINPUTS
:
:
NONE
:

EAD [

20
21

;OUTPUTS
:

*FUNCTIONAL SIDE EFFECTS

:CALLING SEQUENCE

;

38 022372
022372
022374

ROy UU S R PR

L BT, SRt O B

¥ S WALl YAl 2 - e

NONE

THE RIBBON WILL LIFT/DROP BY OPERATOR CONTROL.

JSR

PC,MANLD

MANLD:

PRINTB

#PRMPTC

MANLE:

GMANID

NPRMPT,BFRC,A,0,1,72,YES

‘

012746
012746
010600
104414
062706

003466
000001

;PROMPT INSTRUCTIONS AT CONSOLE

000004

104443
000406

006525

CMPB
BEG

010032

12
00

:<RETURN> MEANS TO CHANGE

sca
1

:Q <RETURN> MEANS TO EXIT

;1S THE CHARACTER A '0''?
:IF

SO - EXIT TEST,

MOV
MOV
MOV
TRAP
ADD

#PRMPTC ,-(SP)
#1,-(SP)
SP.RO
CSPNTB
#4,SP

TRAP

CSCMAN

.WORD

BFRC

10000$:
;INPUT <RETURN> OR Q <RETURN>
42 022412
43 022420

36 022352
022352
022356
022362
022364
- 022366

THE USER TO EITHER LIFT OR DROP THE RIBBON BY SIMPLY HITTING
THE <RETURN> KEY.
IF A "'Q'° CHARACTER 1S ENTERRED BEFORE THE
CRETURN> KEY IS HIT THEN THE TEST IS STOPPED.

—

.WORD
.WORD
.WORD
.WORD
.WORD

100008

T$CODE
NPRMPT

0
TSLOLIM
TSHILIM

RIBBON POSITION

TEST.

—

——

'HARDWARE TESTS

TEST

11:

45 022422
46 022426
47 022434
48 022440

49 022444
50 022446
21 022452

—

———

S—

012700
112760
012701
012702

005003
004737
004737

000001
000040
002240
000004

MOV
MOVB
MOV
MOV

002240

CLR
JSR
JSR

012616

015246

22 022460

000207

EXIT11: RTS

SEQ 120

LIFT / DROP RIBBON BY OPERATOR CONTROL

000735

——————

MACRO v03.01 7-NOV-80 10:06:10 PAGE 40-1

22 022456

57
58
59
60

#1,R0
#ZERO,RIBPOS(RO)
#RIBPOS,R1
#4 ,R2

R3
PC,XMIT
PC,ERRORS

MANLD

;ARGUMENT FOR LIFT RIBBON
;ADDRESS OF ARGUMENT LIST

;4 ARGUMENT CHARACTERS IS LIST
;DON'T BOTHER WITH BIDIRECTIONAL PRINTING CODE

;SEND ARGUMENT LIST TO PRINTER
;CHECK FOR ERRORS.

;REPEAT UNTIL A ''0"' IS FOUND IN THE BUFFER

.SBTTL

TEST 12:

BIDIRECTIONAL FORMS TRACTOR TEST

E10
HARDWARE TESTS

TEST 12:

SEQ 121

MACRO v03.01 7-NOV-80 10:06:10 PAGE 41
BIDIRECTIONAL FORMS TRACTOR TEST

BGNTST

022462
022462

T12::

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

TEST M2

BIDIRECTIONAL FORMS TRACTOR TEST

THIS TEST WILL PRINT A TEN BY TEN ARRAY OF ASCII CHARACTERS
THE TEST WILL NOT OVERPRINT
IN A RANDOM ORDER ON THE PRINTER.

ANY LOCATIONS IN THE ARRAY.

THIS TEST SHOULD EXERCISE BOTH UP

AND DOWN CARRIAGE MOTION AS WELL AS FORWARD AND BACKWARD CARRIAGE

MOTION.

022462
022466
022466
022472

004737

014274

012746
012746
010600

003717

062706

000004

052737
012701
062701
012702
005003
004737
042737

040000
003717
000004
000047

104414

31 022536

33 022544
022544
022546
022550
022552

022564

TESTC:

JSR

PRINTB

PC,INITCD
#TITLEC

;TEST

INITIALIZE

;CONSOLE PRINT TITLE OF TEST

000001

012616
040000

006500

BIS
MOV
ADD
MOV
CLR

JSR
BIC

006500

#BIT14 ,ERWURD
#TITLEC,RY
¥4 ,R1
#39..R2
R3
PC, 1T
#B1T14 ,ERWORD

004346
000000
000001
000072

#TITLEC,-(SP)
#1,-(SP)

SP,RO
CSPNTB

#4,SP

: TEMPORARILY SUSPEND ERROR HANG-UPS

“ADDRESS OF TITLE TO PRINT
“SKIP 4 CHARACTERS

*PRINT TITLE

"REINSTATE ERROR HANG-UPS

GMANID T11PMT,BFRD,A,0,1,72,YES

104443
000406
010034
000152

MOV
MOV
Mov
TRAP
ADD

TRAP

10001$%:

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

CSGMAN
10001$
BFRD
T$CODE
611PHY
TSLOLIM
TSHILIM

CLEAR ALL TABLE UNIQUENESS INDICATORS.
012700
062700

005262
000005

MOV

CLEART: ADD

#BASET,RO
#5,R0

;GET THE BASE ADDRESS OF THE VECTOR TABLE

:POINT TO THE UNIQUENESS INDICATOR.

F
HARDWARE TESTS

12:

43 022576
44 022576
45 022600
46 022604

SEQ 122

MACRO v03.01 7-NOV-80 10:06:10 PAGE 41-1
BIDIRECTIONAL FORMS TRACTOR TEST

105010
005200

020027
100771

CLRB
INC
(MP
BMI

006412

ark0
RO
RO,#FRONT
CLEART

;CLEAR THE UNIQUENESS INDICATOR.
;POINT TO THE NEXT TABLE ENTRY.
;1S IT POINTING BEYOND THE TABLE?
;REPEAT LOOP UNTIL ALL UNIQUENESS INDICATORS
ARE CLEARED.
}

:VECTOR TABLE READY TO USE.
53 022606
54 022612
55 022616

005037

010066

014726

PLOOPC: JSR
MOV

PC,RANDOM
R1,R4

57 022620

004737

022736

JSR

PC,PRARCH

60 022624
61 022630
62 022636

005237
023727

010066
010066

INC
CMP

BMI

CCOUNT
CCOUNT,#100.

PLOOPC

:KEEP TRACK OF THE COUNT OF CHARACTERS.
:DONE WHEN 100 HAVE BEE PRINTED.

022640
022644
022650
022652

012701
012702

002313
000002

MOV
MOV

#CR,R
#2,R2

:PRINT A CARRIAGE RETURN AND SOME LINE FEEDS.
3

69 022656
70 022662

012701
012702
005003
004737
004737
004737
004737
004737
004737
004737
004737
004737

71
72
73
74

022666
022670
022674
022700
75 022704
76 022710
77 022714

78 022720
79 022724

80 022730

82 022734
022734
022734

100765

005003
004737

CLR

000144

CLR
JSR

012616

002314
000001

MOV
MoV
CLR
JSR
JSR
JSR
JSR
JSR
JSR
JSR
JSR
JSR

012616
012616
012616
012616
012616
012616
012616
012616
012616

ENDTST

104401

w8,

64
65
66
67

004737
010104

TEST

CCOUNT

R3
PC,XMIT

#LF R
#1,R2
R3
PC,XMIT
PC,XMIT
PC,XMIT
PC,XMIT
PC,XMIT
PC,XMIT
PCXMIT
PC,XMIT
PC,XMIT

:COUNT CHARACTERS PRINTED

;GET A RANDOM NUMBER (0 - 99) INTO R1
:PUT INTO R4 FOR THE PRARCH ROUTINE.
;PRINT THE CHARACTER IN ITS
:CORRESPONDING POSITION.

;REPEAT UNTIL DONE.

:<CR><LF>

;SEVERAL LINE FEEDS...

L10023:

TRAP

CSETST

G 10

'HARDWARE TESTS
TEST

;

12:

SEQ 123

MACRO v03.01 7-NOV-80 10:06:10 PAGE 41-2
BIDIRECTIONAL FORMS TRACTOR TEST

98
99
100

101
102

103
}82

S ananbhtnssosatinn st ss ittt eEsaEReti s sssssttves isstintitsentrtinine isEetssors
:FUNCTIONAL DESCRIPTION

106

TEST #12

}83

;

LOCAL PROCEDURE PRARCH

110

}}2

115

}};

: INPUTS

119
}5?

;
:

}S%
}Sg
126

:0UTPUTS
THE TABLE ENTRY IS MARKED AS IT IS PRINTED.
:
:
: SUBORDINATE ROUTINES

128

131

107

111
112

;
:

116

;

132

135 022736
136 022740

AT "HE ( 0,0 ) POSITION IN THE ARRAY.

;

}gg

THIS SUB-PROCEDURE WILL INPUT THE RANDOM NUMBER, FIND THE CORRESPONDING

PLACE IN THE VECTOR TABLE, PRINT THE APPROPRIATE CHARACTER AT THE
APPROPRIATE VECTOR AND ACCUMULATE SPACING TO RE-POSITION THE CARRIAGE

RANDOM

010446
010346

PRARCH: MOV
MOV

140 022744
141 022746
142 022750
143 022752

006304
010403
006304
060304

GTNUM:

;29 022754

062704

148 022760

062704

}g; 022742
139

}22

149 022764

}g? 022766

PSR

PuI

g3 BETU LU SO - DL

GE1S ANOTHER RANDOM NUMBER IF THE ONE SUPPLIED

WAS CHOSEN ALREADY DURING THIS PASS.

R4 ,=(SP)
R3,=(SP)

:SAVE REGISTERS
;

(THAT ARE NOT USED FOR PASSING)

R4
R4 ,R3
R4
R3,R4

;OFFSET DESIRED * 2
:SAVE 2 * OFFSET FOR LATER
:DESIRED OFFSET * 4
:6 * OFFSET NOW IN R4,

005262

ADD

#BASET,R4

:ADDRESS OF TABLE ENTRY DESIRED

000005

ADD

#5,R4

;TABLE OFFSET.

BEQ

NOT1

:IF NOT UNIQUE THEN CONTROL TOO NOT1

JSR

PC,RANDOM

TSTB

MOV
BR

S S

RANDOM NUMBER CONTAINED IN Ré.
USED TO GET A RANDOM TABLE ENTRY WHICH IS PRINTED.

ASL
MOV
ASL
ADD

001404
010104
000762

RN SRS

R2.-(SP)

152 022770 004737 014726
153 022774
154 022776

MOV

010246

105714

aR&4

R1,R4
GTNUM

:DESIRED TABLE INDEX NOW IN R4.

:CHECK UNIQUE NUMBER INDICATOR....

:RANDOM NUMBER IN R4

SGET THE RANDOM NUMBER IN THE RIGMT PLACE.
:LAST ONE DIDN'T WORK... TRY THIS ONE.

H 10

'HARDWARE TESTS
TEST

12:

SEQ 124

MACRO v03.01 7-NOV-80 10:06:10 PAGE 41-3
BIDIRECTIONAL FORMS TRACTOR TEST

|
;

155
156 023000

158

160

157 023004

112714

162704

NOT1:

000005

MOVB

SuUB

#1,9R4

#5,R4

159

164 023012
165 023016

166 023022
167 023030
168 023032
169 023040
};? 023042

INDICATOR

:AT THIS POINT R4 CONTAINS A TABLE ENTRY

004737
012700

014176
000001

002226

113760

010047

002226

113760

010050

002226

172 023050
173 023052
174 023056

012401
004737
012700

014176
000001

176 023070

005200

175 023062

113760

;THIS PASS.

010046

005200
005200

113760

010046

002233

113760

010047

002233

177 023072
178 023100
};g 023102

005200

113760

010050

181 023110
182 023114
183 023120
184 023122
132 023126

012701
012702
005003
004737
004737

002226
000005

012616
015246

187 023132
188 023136
189 023142
190 023144
}g} 023150

012701
012702
005003
004737
004737

193 023154
194 023156
195 023162
196 023164
}gg 023170

010401
012702
005003
004737
004737

199 023174
200 023176
201 023200

014401
005401

162701

000014

204 023204
205 023210
206 023214
207 023222
208 023224
209 023232
5}? 023234

004737
012700
113760
005200
113760
005200
113760

014176
000001
010046

002233

010047

002233

010050

002233

%8%

————————

;SET UNIQUE

:ADDRESS WHICH HAS NOT BEEN REFERENCED DURING

|1163
8 023010 012401

000001

002233
000005
012616

015246
000001
012616
015246

——
- ————————————

———

MOV
JSR
MOV
MOVB
INC
MOVB
INC

(R4)+,R1
PC,CONVRT
#1,R0

MOVB

MNEB1,VRTCLS(RO)
RO
MNEB2,VRTCLS(RO)
RO
MNEB3,VRTCLS(RO)

MOV
JSR
MOV

(R4)+,R1
PC,CONVRY
#1,R0

:GET THE VERTICAL COMPONENT OF THE VECTOR
:CONVERT R1 TG MNEMONICS

:LOAD THE ARGUMENT LIST
H

3
:GET HORIZONTAL COMPONENT OF THE VECTOR
:CONVERT R1 TO MNEMONICS

MOVB

MNEB1,HRZTLS(RO)

;LOAD THE ARGUMENT LIST

MOVB
INC
MOVB

MNEB2 ,HRZTLS(RO)
RO
MNEB3,HRZTLS(RO)

;

INC

;

MOV
MOV
(LR
JSR
JSR

#VRTCLS,R1
#5,R2
R3
PC,XMIT
PC,ERRORS

:NOW, ACCUMULATE VERTICAL SPACING
3

MOV
MOV
CLR
JSR
JSR

#HRZTLS,R1
#5,R2
R3
PC,XMIT
PC,ERRORS

:NOW, ACCUMULATE HORIZONTAL SPACING
3
.
:DISABLE BIDIRECTIONAL PRINT
:SEND TO PRINTER
:CHECK FOR ERRORS.

MOV
MOV
CLR
JSR
JSR

R4 ,R1
#1,R2
R3
PC,XMLT
PC,ERRORS

:GET ADDRESS OF THE CHARACTER
:SINGLE CHARACTER
:DISABLE BIDIRECTIONAL PRINT LOGIC.
:SEND TO PRINTER
:CHECK FOR ERRORS.

MOV
NEG

-(R4) ,R1
R1

;COLUMN NUMBER IN R1
:NEGATIVE NUMBER FOR LEFT SPACING

:SEND TO PRINTER
:CHECK FOR ERRORS.

:AND ONE EXTRA SPACE ACCOUNTS FOR THE

SUB

#12..R1

JSR
MOV
MOVB
INC
MOVB
INC
MOVB

PC,CONVRT
:CONVERT TO MNEMONIC
#1,R0
MNEB1,HRZTLS(RG) :PUT IN ARGUMENT LIST
RO
MNEB2 ,HRZTLS(RO) :
RO
MNEB3, HRZTLS(RO) ;

:CHARACTER WHICH WAS PRINTED (12 INCREMENTS)

TESTS

249

BIDIRECTIONAL FORMS TRACTOR TEST

014401
005401

004737
012700

N
W
W
~N

113760
005200
113760
o

SEQ 125

MACRO V03.01 7-NOV-80 10:06:10 PAGE &1-4
012701
012702
005003
004737
004737

WSO 0VNONVSWND
=2O VNN
W

ONOWNESWN=O VWO NO VN

NORONONDNON VNN NN
NN NN N NN
NN NN NN NN NN
PR o0 o o o P P o
WKW WWWW WM NV NN NOIMNININIRNIN)
b b b b e b ch h

b
N

HARDWARE
TEST

005200
113760

002233
000005
012616
015246

014176
000001
010046

002226

010047

002226

010050

002226

MoV
Mov
CLR
JSR
JSR

#HRZTLS,R
#5,R2

:ADDRESS OF ARGUMENT LIST
15 ARGUMENTS

PC ERRORS

:CHECK FOR ERRORS.

MOV
NEG

-(R4) ,R1
R
:g,ggnvnr

JSR
MoV
MOvB
INC
MOvVB
INC
MOVB

R3
PC,XMIT

;FILL ARGUMENT LIST

SSEBZ,VRTCLS(RO)

MNEB3,VRTCLS(RO)

;

#VRTCLS,R1

012602
012603
012604

Mov
MOV
Mov

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

000207

RTS

023344

012701
012702
005003
004737
004737

023350
023352
023354
023356

002226
000005

012616
015246

LSBTTL

TEST 13:

;GET THE COLUMN NUMBER
‘REVERSE THE CARRIAGE MOVEMENT
:CONVERT TO MNEMONICS

:gé81,VRYCLS(R0)

Mov
Mov
CLR
JSR
JSR

023326
023332
023336
023340

:DISABLE BIDIRECTIONAL LOGIC.
*SEND TO PRINTER

#5,R2
R3

PC,XMIT
PC,ERRORS

;ADDRESS OF ARGUMENT LIST

: TO ACCUMULATE VERTICAL SPACING
;DISABLE BIDIR. LOGIC
;SEND TO PRINTER
;CHECK FOR ERRORS.
;RESTORE

REGISTERS

cut SHEET FEEDER EXERCISOR

J 10
MACRO v03.01

SEQ 126

7-NOV-80 10:06:10 PAGE 42

CUT SHEET FEEDER EXERCISOR

023360
023360

BGNTST

Y1313

TEST #13
CUT SHEE T FEEDER EXERCISOR
THIS TES T WILL EXERCISE THE CUT SHEET FEED ER BY TESTING TO SEE THAT
THE FEED ER IS INSTALLED, FEEDING AND EJE%; ING SHEETS AND PRINTING
TEXT ON THE TOPS AND BOTTOMS OF THE SHE
IN THE PRINTER.

Ll LY

TRE

b b s P

EETE

S OOVONO
VS WN—=OOVONOWN

SN
=

'HARDWARE TESTS
IEST 13:

023360

004737

014274

012746
012746
010600
104414
062706
005003

003773
000001

JSR

PRINTB

000004

104443

PC,INITCD
#TITLED

JINITIALIZE TEST
;CONSOLE PRINT TITLE

CLR

;DISABLE BIDIRECTICNAL PRINTING

GMANID

PRMPTD,BR2,A,0,1,72,YES

MoV
MOV
MOV
TRAP
ADD

TRAP

000406

:
100008

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

#TITLED,-(SP)

#1,-(SP)

SP,RO
CSPNTB

¥4 ,SP

CSGMAN
10000%
BR2
T$CODE
SRHPTD

TSLOLIM
TSHILIM

:PROMPT USER FOR PAGE SIZE USED.
;OPTIONS ARE A) 11 INCH, B) 14 INCH
;AND C)

006514

006527

000001
002330

002271

00227
00227
123737

006514

006526

CMPB
BNE

BR2,S(CB
CHKC

MoV
MOvB

#1,R4

;OFFSET FOR PSZ14 & STPGSZ

Move
INC
INC
Move

SEZ14(RS),SIPGSZ(R4)

RS
PSZ14(R5),STPGSZ(R4)

CMPB

BR2,SCC

CHKC:

A4 EUROPEAN STANDARD.

;WAS THE CHOICE = 'B'" ?
;IF NOT THEN CHECK IF IT IS
= "'C"...

P?l;g.STPGSZ(RQ)
n,

TRNSMT

;THEN = "B'"...

14 INCH PAGE.

*SEND THE ARGUMENT SEQUENCE

;1S THE CHARACTER A ''C** 2

SET UP ARG LIST

|HARDWARE TESTS
TEST 13

22 023504

001022

45 023506
46 023510

010146
012701

000002

48 023520

113760

002322

47 023514

49 023526

50 023534
§1 023540
52 023546
22 023550

012700

116061

012700
116160
012601
000421

§5 023552 010146

000001

002322

000003
002322

56 023554
57 023560

012701
012700

000002
000001

61 023604
g§ 023612

116160
012601

002325

58 023564
59 023572
60 023600

113760
116061
012700

002325
002325
000003

64 023614
65 023620
66 023624
67 023626
23 023632

012701
012702
005003
004737
004737

002271
000005

70 023636
71 023642
72 023646
73 023654
74 023662

012700
012701

;2 023666

113760
116061
012700
116160

77 023674
78 023700
79 023704

012701
012702
005003

80 023706
g; 023712

SEQ 127

MACRO V03.01 7-NOV-80 10:06:10 PAGE 42-1
CUT SHEET FEEDER EXERCISOR

MAKE 11

MOV
MOV

R1,-(5P)
#2.R1

;SAVE R1
TOFFSET

MOVB

PSIA4,STPGSZ(RO)

STHEN = "'C"". SET UP ARG LIST

MOV

002271
002271

MOVB

MOV
MOVB
MOV
BR

002271

MAKE11: MOV

MOV
MOV

002271
002271

MOVB
MOVB
MOV

002271

MOVB
MOV

:IF NOT THEN ASSUME IT WAS AN "'A"".

#1.R0

PSZA4(R0),STPGSZ(R1)

#3,R0
PSIA4(R1),STPGSZ(RO)
(SP)+,R1
TRNSMT

PSZ11,STPGSZ(RO)
PSZ11(RO),STPGSZ(R1)
#3,R0

STHEN = "A"'. SET UP ARG LIST
:
FOR 11 INCH PAGE.
TOFFSET ADJUSTMENT

PSI11(R1),STPGSZ(RO)
(SP)+,R1

000001
000002

SELECT: MOV
MOV

#1,R0
#2.R1
FRONT,SLTPFF
(RO)
FRONT(RO),SLTPFF
(R1)
#3,R0

MOVB
MOVB
MOV
MOVB

002276

002276
000005

012616
015246

83 023716
84 023722
85 023726
86 023730
g; 023734

012701
012702
005003
004737
004737

004654
000140

89 023740

123737

006514

92 023750
32 023754

013701
000411

002170

95 023756
39 023764

123737
001003

006514

98 023766
99 023772

013701
000402

002172

MOV
MOV
CLR

JSR
JSR

012616
015246

006527

006526

:
'RESTORE R1

:ADDRESS OF ARGUMENT LIST
:

:SEND TO PRINTER... SET PAGE SIZE
*CHECK FOR ERRORS.

FRONT(R1),SLTPFF(RO)

#SLTPFF,R1
#5,R2
R3

TOFFSET
TOFFSET

:TRANSFER OFFSET FOR
*SELECT TRAY-PERFORM FORMFEED
*ARGUMENT LIST
*OFFSET ADJUSTMENT

:ADDRESS OF ARGUMENT LIST
;

PC,XMIT
PC .ERRORS

:SELECT TRAY AND PERFORM FORMFEED.
*CHECK FOR ERRORS.

MOV
MOV
CLR
JSR
JSR

#FTYTPM,RY
#96. ,R2
R3
PC,XMIT
PC .ERRORS

:FRONT TRAY TOP OF PAGE MESSAGE
196 CHARACTERS LONG

:SEND TO PRINTER
*CHECK FOR ERRORS.

CMPB

BRZ2,SCB

;1S THE BYTE A 'B"

MOV
BR

SKP14,R1
DOSPCS

:SKIP 14 INCHES MINUS 3 LINES VERTICALLY
‘PERFORM TASK

CMPB
BNE

BR2,SCC
ASSMA

:1S THE CHARACTER A ''C'"?
*MUST BE 11 INCH IF NOT B OR C.

MOV
BR

SKPA4,R1
DOSPCS

:MUST BE A4 SIZE. SKIP A4 - 3 LINES VERTICALLY
*PERFORM TASK

BNE

CHC2:

*OFFSET ADJUSTMENT
:
‘RESTORE R1

;SAVE R1 TEMPORARILY

#2.R1
#1.R0

012616
015246

002276
002276

R1,=-(SP)

#STPGSZ,R1
#5,R2
R3
PC,XMIT
PC.ERRORS

006412
006412
000003
006412

TEMPORARILY

‘OFFSET

TRNSMT: MOV
MOV
CLR
JSR
~
JSR

004737
004737

g? 023746 001003

BNE

CHC2

*IF NOT THEN CHECK FOR A "'C"'

—

WARDWARE TESTS
TEST 13:
100

——————

013701

002174

ASSMA:

103 024000
104 024004
105 024010
106 024014
107 024022
108 024024
109 024032

010137
004737
012700
113760
005200
113760
005200

002176
014176
000001
010046

002226

010047

002226

113760

010050

002226

DOSPCS: MOV
JSR
MoV
move
INC
Move
INC

112 024042
113 024046
114 024052
115 024054
}}? 024060

012701
012702
005003
004737
004737

002226
000005

1187024064

012701

120 024074
121 024076
}g% 0264102

005003
004737
004737

L_~1T19 024070

124 024106
125 024112

012702

012700
010146

Move

SKP11,R1
R1,CRNTSK
PC,CONVRT
#1,R0
MNEB1,VRTCLS(RO)
RO
MNEB2,VRTCLS(RO)
RO

MNEB3,VRTCLS(RO)

;11 INCH PAGE. SKIP 11 INCHES = 3 LINES
;SAVE CURRENT SKIP SIZE.
; CONVERT TO MNEMONICS
;MNEMONICS FOR ARG LIST
;

;
;ADDRESS OF ARGUMENT LIST FOR VERTICAL SPACING
:

012616
015246

007203

Mov

#FBTM,R1

;PRINT BOTTOM OF PAGE MESSAGE

012616
015246

CLR
JSR
JSR

R3
PC,XMIT
PC,ERRORS

;SEND TO PRINTER
;CHECK FOR ERRORS.

000072

MoV

000001

MoV
Mov

000002
006415
006415
000003
006415

133 024150
134 0264154
135 024160
136 024162
}g; 024166

012701
012702
005003
004737
004737

002276
000005

139 024172
140 024176
141 024202
142 024204
}22 024210

012701
012702
005003
004737
004737

005014
000140

145 024214
146 024220
147 024224
148 024230
149 024236
150 024240
151 024246

013701
004737
012700
113760
005200
113760
005200

002176
014176
000001
010046

002226

010047

002226

113760

010050

002226

154 024256
155 024262

012701
012702

002226
000005

(05003

MOV

#VRTCLS,RY
#5,R2
R3
PC,XMIT
PC,ERRORS

012701
113760
116061
012700
116160
012601

156 024266

SEQ 128

MoV
MoV
CLR
JSR
JSR

126 024114
127 024120
128 024126
129 024134
130 024140
}%} 024146

}g; 024250

MACRO V03.01 7-NOV-80 10:06:10 PAGE 42-2
CUT SHEET FEFDER EXERCISOR

}%} 023774

}}? 024034

NPR

002276
002276

002276

012616
015246

#58. ,R2

;SEND TO PRINTER
;CHECK FOR ERRORS.

;58 CHARACTERS

#1,R0
R1,-(SP)

MoV
MOVB
MOVB
Mov
MOVB
Mov

#2,R1
REAR,SLTPFF (RO)
REAR(RO) ,SLTPFF(R1)
#3,R0
REAR(R1) ,SLTPFF (RO)
(SP)+,R1

MoV
Mov
CLR
JSR
JSR

#SLTPFF ,R1
#5,R2
R3
PC,XMIT
PC,ERRORS

;ADDRESS OF ARGUMENT LIST
:

MoV
Mov
CLR
JSR
JSR

#RTYTPM,R1
#96. ,R2
R3
PC,XMIT
PC,ERRORS

;REAR TRAY TOP OF PAGE MESSAGE
:96 CHARACTERS LONG

MOV
JSR
MoV
MOvB
INC
Move
INC

CRNTSK,R1
PC,CONVRT
#1,R0
MNEB1,VRTCLS(RO)
RO
MNEB2 ,VRTCLS(RO)
RO

MoV
MoV

#VRTCLS,R1
’5.R2

MOovB
CLR

MNEB3,VRTCLS(RO)
R3

;: TEMPORARILY _SAVE R1
;SELECT REAR TRAY
:
AND PERFORM
:
FORMFEED.
;RESTORE R1

;SEND TO PRINTER
;CHECK FOR ERRORS.

;SEND TO PRINTER
sCHECK FOR ERRORS.

;GET CURRENT SKIP SIZE.
;CONVERT TO MNEMONICS
;MNEMONICS FOR ARG LIST

;

;ADDRESS OF ARGUMENT LIST FOR VERTICAL SPACING
:

HARD WARE TESTS

—

JSR
JSR

PC,XMIT
PC,ERRORS

;SEND TO PRINTER
;CHECK FOR ERRORS.

012701

007203
000072

#FBTM,R1
#58. ,R2
R3
PC,XMIT
PC,ERRORS

sMESSAGE FOR BOTTOM OF PAGE
}

012616
015246

MOV
MOV
CLR
JSR
JSR

000001
000002
006420
006420

MOV
MOV
MOVB
MOVB

#1,R0
#2.R1
NULL,SLTPFF (RO)
NULL(RO) ,SLTPFF(R1)

F
w

012616
015246

W
o
o

N
»

ONOVS WOV~

000003
006420
002276
000005

002276
002276

MOV
MOVB
MOV
MoV
CLR
JSR
JSR

002276

012616
015246

;SEND TO PRINTER
sCHECK FOR ERRORS.
JOFFSET IN ARG LIST
JEJECT
:
PAGE

#3,R0
NULL (R1) ,SLTPFF (RO)
:
PRESENTLY
#SLTPFF R
:
IN THE PRINTER
#5,R2
:
R3
'
PC,XMIT
;SEND TO PRINTER
PC,ERRORS
sCHECK FOR ERRORS.

ENDTST
104401

N =b

o0 00 00 0o

024402
024402

7-NOV=-80 10:06:10 PAGE 42-3

004737
004737

7
7
7 024376
7
7 9 024402

S O88
RS RN CETEITARARNZES
0o

QU RN

——

———— i

6
6
6
7
7
7
7
7

SEQ 129

CUT SHE ET FEEDER EXERCISOR

— i

WN=O Voo~

TEST 13

MACRO V 03.01

201

.TITLE PARAMETER CODING

.SBTTL

HARDWARE PARAMETER CODING SECTION

L10024:

TRAP

CSETST

N10

=S OV

—>

+
+*

MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.
THE
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS
WITH THE OPERATOR.

024404
024404
024406

024412
024414
024416
14 024420
024420

BGNHRD

000022

::
LSHARD

GPRMD

003032
025002
000003
000001
000002

GPRMA

160000
177777

GPRML

001130
024624
000001
17 024440

024440
024442
024444
024446
024450
18 024452
19 024452

GPD2MS,6,0,3,1,2,YES

XFERT

006024

GPRMD

002032
024707

GPAMSG,0,0,160000,177777
,YES

.WORD
.WORD

TSCODE
GPD2MS

.WORD
LWORD

TSLOLIM
TSHILIM

.WORD

sCSR ADDRESS QUESTION.
.WORD

TSCODE

.WORD

GPAMSG

.WORD
.WORD
.WORD

TSCODE
GPLMSG

.WORD

TSCODE

.WORD
LWORD

TSLOLIM
TSHILIM

GPLMSG,2,1,YES

:DZ11? QUESTION.

SNGLP

:SKIP CHANNEL QUESTION IF DL11.

GPDMSG,4,0,7,0,7,YES

:CHANNEL # QUESTION.
.WORD

.WORD

000007
000000
000007

.WORD
.WORD
.WORD

ENDHRD

L10025:

024452

TSCODE
GPDMSG
7
TSLOLIM
TSHILIM

.EVEN

-t
B e O d =D —D —d —d > —b
NOOONN
ST OOONHNOO —
NV SOOI
=S
=

MESSAGES FOR THE ABOVE CALLS
i il i ) i i e = OO
S OON =N
NIN
O IS —
- PN
NOWVION OO
W

23 024452
024455
024460
024463
024466
024471
024474
024477
024502
024505
024510
024513
024516

.WORD L10025-LSHARD/2

sPRINTER WIDTH QUESTION.
.

000031
024452

D) b
i
e ) d e e O
NBOO==N=HANOO
WO = V=2 YW S OO

NSRS, "

THE _HARDWARE PARAMETER CODING SECTION CONTAINS MACROS
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
THE

12
13 024406
024406
024410

C
21
22

SEQ 130

7-NOV-80 10:06:10 PAGE 4%

NO NS WN =

PARAMETER CODING
MACRO v03.01
MARDWARE PARAMETER CODING SECTION

LASCII

<12><15>/1F DEFAULT VALUES FOR INTERFACE DESIRED, ENTER *Z./<12><15>

—

—_—

oot gen

SEQ 131

MACRO v03.01 7-NOV-80 10:06:10 PAGE 42%-1
—=un

/ENTER CONTROL STATUS REGISTER (CSR) ADDRESS.>>/

.ASCIZ

<12><15>/PRINTER CONNECTED TO A SINGLE LINE

———

——g—

——— g——

——

LASCIZ

INTERFACE? >>/

—

GPLMSG:

<12><15>/ENTER INTERFACE CHANNEL NUMBER FOR THE PRINTER. (0=7) >>/

GPDMSG: .ASCIZ

e
e
e
e
e
e
e
e
e

s e O et e e

— g—_ g—

S =W

OO—=—=—=O

OIS~
WS OWO S NOSWNOOSS

OB O PO P HBO DD DO

NNNOSJNLSNNOSNVN=
SN

O == wONOO—=N=N

OMNICCOONONIONWN—=O
= WN=WnNWNoO OWNO VS B =2 a S UVVNNNNOO

DO BB BB b bbb BB ed b
et

OO =000 HfON

b (D)

1215/ /7A12><A15

N =)= NSO =00

o
e

S S umunuin
ONSWOOSTNINOWN =NOWVN =NV

ASCIT

e e e TM ]
. TM L e ¥ = X

e Y R

e e R

e I

= O=P =200 =NN=NNNONWVO
=N
=NNOOO —
=N OO
2N

imasesaiinperiitasbeiis i s

024764
024767

o-.—oo-.—.—.-oo-.—._n-._oo_gooo-a-.—A_oo-a—hoo_a_._a_a_.ooo_n.ao_o_._._n_a...o_-_n_._nooo—b-a—.—o

024761

O S TOVIOO VNSO WWNOONNLIONNO VO RO =N

0246670
024673
024676
024701
024704
27 024707
024712
024715
024720
024723
024726
024731
024734
024737
024742
024745
024750
024753
024756

VIO S OON = =200

024567
024572
024575
024600
024603
024606
024611
024614
024617
024622
26 024624
024627
024632
024635
024640
024643
024646
024651
024654
024657
024662
024665

105
040
124
040
056
012

°-.dd°-.-.dd-‘d—‘-—.-.—.-.°°—.—.-‘°—.-l—Ao—l D

024521
024524
024527
024532
024535
24 024540
024543
25 024545
024550
024553
024556
024561
024564

& o S PN AN =2 Nt 2 OONI BN = NNOO = =S OSSN0 =—=0OVNOOWVIONNONO TN =N = == aulO000
NN O
N B~
OWV=O s NNLIWVOO OO SO VONN—WN-— CONWOO SR W= NO OIS = WINIWWIN = O N NN

HARDWARE PARAMETER CODING SECTION

—

——

—

PARAMETER CODING

——————
e

——— g— g—

—

—_—————

—————

. S

CETRL
L
Ly .

[

p————

SEQ 132

AT R

o
~

NSANNO
SO =W

d OOt
= O

—=SNONONS OO0 ——

/7 7¢12>A15

/CHOOSE PAGE WIDTH FOR PRINTER/<12><15>

/CHOOSE ONE:

1) B0 CHARACTERS PER PRINTER LINE/<15><12>

LASCIT

LASCIZ

7(1,2) >/

.BLKW

10 ; (ADJUST SIZE OF PATCH AREA UNTIL)

i e e e

=B DO OOO RO

Ot d

s =

N=PNOONNINOOWNMS
S ==
OO -0V
=0 —

=00 =00 VN
WVM=NOOWVIWSINNWW—O ONOCOSFTTINOWNM

2) 132 CHARACTERS PER PRINTER LINE/<15><12>

—

VISV —=O
O~ = —

0
33 025177
025202
025205
b7
35
36 025210
37
38
39

COO

O—O =&

=—=——maO

062

GPD2MS:

LASCII

o— e

COWVM=SNOOWVIWSANNWO
=S NNWO

32 02

067

oOoO
osrwn
oo &

B e
e
O

ed cd e

s ed s e

B OO

S SDNVLNOMNNNINONOIN=N
=

31 025044

OO NO—=VnowonNn

O oo
2 D

040
103

29 025002
30 025005
025010
025013
025016
025021
025024

e e

060
051
076

024772
024775
025000

O
NN
=

:
}
:

O Al
O ow

MACRO v03.01 7-NOV-80 10:06:10 PAGE &2-2
'PARAMETER CODING
!NARDUARE PARAMETER CODING SECTION

$PAT(CH::

(LASTAD + 27264 HAS BIT 7 CLEAR )

DN
'PARAMETER CODING

MACRO v03.01

'HARDWARE PARAMETER CODING SECTION

41 025230

025230
025232
025234

LASTAD

000000
000000

SEQ 133

7-NOv-80 10:06:10 PAGE 42-3

LSLAST::

.EVEN
.WORD
.WORD

'PARAMETER CODING

MACRO V03.01 7-NOV-80 10:06:10 PAGE &&

{HARDWARE PARAMETER CODING SECTION

——

}

1 025234

000001

END

ENDMOD

SEQ 134

PARAMETER CODING

MACRO v03.01

ABORT
{ABSND

CHRCNT
CHRLOO
CHRLO6
CHRLST
CLEART
CNTNU
COIE
CONTLO
CONVRT
CR

SYMBOL TABLE

015602
017106
| ABSS
017316
| ACAS
006535
ADR
= 000020 G
AGN
020700
ALPHA
013514
ASSEMB= 000010
ASSMA
023774
AUTCAL 022224

AUTOLD 022232
AUTOLE 022236
BASET
005262
BAUDRT 005252
BAUTBL 006464
BETA
013476
BFRA
007352
BFRB
010030
BFRC
010032
BFRD
010034
BIDIRP 012726
BITO = 000001 G
BITO0 = 000001 G
BITO1 = 000002 G
BIT02 = 000004 G
BITO3 = 000010 G
BIT04 = 000020 G

BITOS = 000040 G
BIT06 = 000100 G
BITO7 = 000200 G
BITO8 = 000400 G
BITOY = 001000 G
BIT1 = 000002 G
BIT10 = 002000 G
BIT11 = 004000 G
BIT12 = 010000 G
BIT13 = 020000 6
BIT14 = 040000 G

BIT15 = 100000 G
BIT2 = 000004 G
BIT3 = 000010 G
BIT4 = 000020 G
BITS = 000040 G
BIT6 = 000100 G
BIT7 = 000200 G
BIT8 = 000400 G
BIT9 = 001000 G
BOE
= 000400 G
BR2
006514
CALLDF 015664
CALLDL 015700
CAN
006516
CCOUNT 010066
023756
(HC2
023476
CHK(
CHKCAN 013552
CHKN6
017552

SEQ 135

7-NOvV=-80 10:06:10 PAGE &4&-1

010064
020166
021110
006555
022570
013466
013456
014112
014176
002313

CRCLX
015152
CRNTPR 006502
CRNTSK 002176
CSRADD 002200
CTL
006524
CSAU_ = 000052
C$SAUTO= 000061
C$BRK = 000022
($BSEG= 000004
($BsuB= 000002
CSCEFG= 000045
C$CLCK= 000062
CSCLEA= 000012
C$CLOS= 000035
C$CLP1= 000006
C$CVEC= 000036
CSDCLN= 000044

C$DODU= 000051
CSDRPT= 000024
C$DU = 000053
CSEDIT= 000003
CSERDF= 000055
CSERHR= 000056
C$ERRO= 000060
CSERSF= 000054
CSERSO= 000057
C$ESCA= 000010
(SESEG= 000005

C$ESUB= 000003
CSETST= 000001
CSEXIT= 000032
C$GETB= 000026
CSGETW= 000027
CSGMAN= 000043
CSGPHR= 000042
C$GPLO= 000030
CSGPR1= 000040
C$INIT= 000011
CSINLP= 000020
CSMANI= 000050
CSMEM = 000031
CSMSG = 000023
CSOPEN= 000034
CSPNTB= 000014
(SPNTF= 000017
CSPNTS= 000016
C$PNTX= 000015

($Q10 =
CS$RDBU=
CSREFG=
CSRESE=
CSREVI=
CSRFLA=
CSRPT =
C$SEFG=
($SPRI=
C$SVEC=

000377
000007
000047
000033
000003
000021
000025
000046
000041
000037

C$TPRI= 000013
DASHES 006542

DCUPA
015446
DDCUPA 015500
DELAYS 015224
DELCNT 010054
DFAIL
005260
DFAULT 017032
DFPTBL 002160 6
DIAGMC= 000000
DIRCTN 006504
DLDFLT 005254
DLSET
016602
DONEDF 017450
DOSPCS 024000
DUMMYS 002214
DZDCOD 017220
DZDFLT 005256
DZSET
016672
ECNRB = 020000
EDFMA
011230
EDFMB
011331
EDFMC
011444
EDFMD
011520
EDFMO
010361
EDFM1
010422
EDFM2
010475
EDFM3
010543

EDFM&
010622
EDFM5
010650
EDFM6
010677
EDFM7
010755
EDFM8
011026
011175
EDFM9
EF .CON= 000036 G
EF .NEW= 000035 G
EF .PWR= 000034 G
EF .RES= 000037 G
EF.STA= 000040 6
EIGHT = 000050
EIGHTY 016506
EMPTIB 014310
EMPTI2 015746
EMPTI3 016246
EMPTI4 017060
EMPTIS 017270
EMPTL2 015752

EMPTYR
EMPT23
EMP4
EMP5
ENDIN
EOT
ERMSGB
ERRBLK
ERRMSG
ERRNBR

016550
016252
017064
017274
016566
006515
007316
010100 G
010076 G
010074 6

F$SRV =
F$suB =
F$SW =
FSTEST=
GETCHR
GPAMSG
GPDMSG
GPD2MS
GPLMSG
GREASE

ERRORS 015246
ERRTYP 010072 6
ERSETT 014160
ERWORD 006500
ESCAPE 006521
EVL__
= 000004 G
EXETS
013576
EXIT
022230
EXITA
022044
EXITE
014166
EXITON 014004
EXITS
013626
EXITSR 015216
EXITX
013352
EXITI1 022460
EXTMCR 015450
ESEND = 002100

GTNUM
022744
GSCNTO= 000200
GSDELM= 000372
G$DISP= 000003
GSEXCP= 000400
GSHILI= 000002
GSLOLI= 000001
GSNO = 000000
G$0"rS= 000400
GEUFSI= 000376
GSPRMA= 000001
GSPRMD= 000002
GSPRML= 000000
GSRADA= 000140
GSRADB= 000000
GSRADD= 000040
GSRADL= 000120

ESLOAD= 000035
FAILDF 017426
FAILDL 012122
FAILDZ 012220
FAILM
011602
FBTM
007203
FIVE = 000045
FLTRDY 006512
FOUR = 000044
FRONT
006412
FTYTPM 004654

FWRDO
013164
FXRDYM 012316
F$AU = 000015
F$SAUTO= 000020
F$BGN = 000040
FSCLEA= 000007
FSOU = 000016
FSEND = 000041
F$HARD= 000004
FSHW = 000013
FSINIT= 000006
F$JMP = 000050
F$M0D = 000000
F$MSG = 000011
F$PROT= 000021
FSPWR = 000017
FSRPT = 000012
F$SEG = 000003
F$SOFT= 000005

000010
000002
000014
000001
014012
024452
024707
025002
024624
002206

GSRADO= 000020
GSXFER= 000004
GSYES = 000010
HEXA = 000052
HEXB = 000053
HEXC = 000054
HEXD = 000055
HEXE = 000056
HEXF = 000057
HITARG 010060
HOE
= 100000 G

HRZTLS 002233
HZTLSP 002212
IBE
= 010000 G
IDU
= 000040 G
IER
= 020000 G
016514
INFIN
INIERR 014466
INITCD 014274
INITLZ 015522
INLOOP 015232
INUPB
010070
ISR
= 000100 G
IXE
= 004000 6
I1$AU_ = 000041
[$AUTO= 000041
I$CLN = 000041
130U = 000041
[$HRD = 000041
ISINIT= 000041

'PARAMETER CODING
'SYMBOL TABLE
|

/1SMOD = 000041
IS$MSG_= 000041
I$PROT= 000040
I$PTAB= 000041
ISPUR = 000041
ISRPT = 000041
I$SEG = 000041
I$SETU= 000041
I$SRV = 000041
I$SUB = 000041
I$TST = 000041
JENDIN 015604
JUNKPL 006440
JSJMP = 000167
LCHYET 012716
002314
LF
LINCNT 010062
LINCOD 016456
LINLOO 020124
LINLO6 021104
LINN
010040
LINSIZ 010042
LNELOO 012732

LODELY 014704
= 040000 G
LOE
LOGUNI 002202
LOOPA
021716
LOOPCK 013724
014026
LOOPG
LOOPXN 013656
021440
LOOP8
= 000010 G
LOT
007306
LPR
LPRINI 006442
LSACP 002110 G
002036 G
LSAPT
002070 G
LSAUT
LSAUTO 017454 6
002106 6
LSCCP
LSCLEA 017456 G
002032 6
L$CO

LSDEPO
LSDESC
LSDESP
LSDEVP
LSDISP
LSOLY
L$DTP
LSDTYP
LSOUT
LSOVTY
LSEF
LSENVI
LSERRT
LSETP
LSEXP1

002011 G
010150 6
002076 G
002060 G
002124 G
002116 G
002040 G
002034 G
002072 G
010102 6
002052 G
002044 G
010072 G
002102 G
002046 G

LSEXP4 002064 G

SEQ 136

MACRO V03.01 7-NOV-83 12:06:10 PAGE 4&=2

LSEXPS
LSHARD
LSHIME
LSHPCP
LSHPTP
LSHW
L$ICP_
LSINIT
LSLADP
LSLAST
LSLOAD
LSLUN
LSMREV
LSNAME
LSPRIO
LSPROT
LSPRT
LSREPP
LSREV
LSRPT
LSSPC
LSSPCP
LSSPTP

002066 G
024406 G
002120 G
002016 G
002022 G
002160 G
002104 G
015522 G
002026 G
025234 G
002100 G
002074 G
002050 G
002000 G
002042 G
015514 6
002112 G
002062 G
002010 G
015506 G
002056 G
002020 G
002024 G

MXLF = 002000
NDATA
010056
NEWMOD 017754
NEXTU
015550
NINE = 000031
NONDTA 015774
016102
NONDT2
NONDT3
016136
NONDZA 016274
NONDZ2 016402
NONDZ3 016436
NOPRTM 014050
022014
NOTQ
023000
NOT1
NPRMPT 004531
006420
NULL
NUMT = 000001
NUM10 = 000012
NUM11 = 000013
NUM12 = 000014
NUM13 = 000015
NUM14 = 000016
NUM15 = 000017

PLOOP9 021570
PNT
= 001000 6
PRARCH 022736
PRI
= 002000 G
PRI0O = 000000 G
PRIO1 = 000040 G
PRI02 = 000100 G
PRI03 = 000140 G
PRI04 = 000200 G
PRIOS = 000240 G
PRIO§ = 000300 G
PRI07 = 000340 6
PRMPTA 003200
PRMPTC 003466
PRMPTD 004046
PRNTIT 017546
PRTBMO 010230
PRTM2
016360
PRTXMO 010302
PSIAG
002322
PSI11
002325
002330
PSZ14
RANDOM 014726

SKP11
002174
SKP14_
002170
SLFTST 002255
SLTPFF 002276
SNGCHR 006522
SNGLP
024452
006541
SPACE_
SPCSIZ 010036
STATS
015020
STATUS 002315
STCHSZ 002244
STHTCT 002257
STLNSZ 002251
STPGSZ 002271
STRTUP 015610
STSCAL 017600
STSERR 014774
STSPSZ 002262
STSRES 002210
STULMD 002266
SVCGBL= 000000
SVCINS= 000001
SVCSUB= 000001

L10016
L10017
L10020
L10021
L10022
L10023
L10024
L10025
MAKET1
MANLD
MANLE
MLTLIN
MNEB1
MNEB2
MNEB3

021340
021466
021632
022046
022230
022734
024402
024452
023552
022352
022372
010052
010046
010047
010050

0$APTS= 000000
0$AU = 000000
0$BGNR= 000000
0$BGNS= 000000
080U = 000000
O$ERRT= 00C001
O$GNSW= /00000
0$POIN= 000001
O$SETU= 000000
PALPHA 015174
PERIOD 006534
016060
PFM1
PGMCTR 007314
002204
PLOC
PLOOP 017674

SELECT 023636
SENCHR 013366
SENCH2 013376
SENCLP 013416
014140
SENDR_
SENDR2 013320
SETCHO 002310
SETER 013614
SETHTO 002303
SETONE 017742
SETUPC 016162
SETUPT 014514
SETIS 015202
SEVEN = 000047
SIX = 000046

TEST8 021342
TEST9 021470
021770
1FC2
THREE = 000043
TIMOM 012512
TITLEA 003115
TITLEB 003264
TITLEC 003717
TITLED 003773
TITLE1 002333
TITLE2 002366
TITLES 002446
TITLEL 002513
TITLES 002564
TITLEG 002645

LSSTA_
LSTEST
LSTIML
LSUNIT
L1LOOP
L10000
L10001
L10002
L10004
L10005
L10008
L10007
L10010
L10011
L10012
L10013
L10014
L10015

002030 G
002114 G
002014 G
002012 G
020424
002170
012614
015512
017452
016600
017454
017466
017604
020024
020272
020606
021012
021156

MSGADD 005246

TR
R AR . L=10 TR

NUM2~ = 000002
NUM3 = 000003
NUM& = 000004
NUMS = 000005
NUMG = 000006
NUM? = 000007
NUM8 = 000010
NUM9 = 000011
021740
NXTA
NXTBIT 015272
NXTERM 015374
NXTLIN 021250
= 000041
ONE
003351
OPTN1
OUTCTR 006506
OUTRLP 014024
OUTSDC 006510
OUTSDL 013650

PLOOPC

022612

007302
007276
006415
002224
014326
013414
021304
002240
005014
006531
006527
006526
006525
006530
006532
006533
006424
006426

SKPA4

002172

SVCTAG= 000001
SVCTST= 000001
SSLSYM= 010000
TR
007310
TCRENA 006436
TCRTBL 006444
007312
TR
021634
TESTA
022050
TESTB
022462
TESTC
023360
TESTD
017470
TEST1
017606
TEST2
020026
TEST3
020274
TEST4
020610
TESTS
021014
TEST6
021160
TEST7

TITLE? 002725

H 11

PARAMETER CODING
SYMBOL TABLE

MACRO v03.01 7-NOV=-80 10:06:10 PAGE 4&-3

'TITLES

002772

T$SGMAN= 000000

. ABS.

025234

[TITLE9 003046
TMPLTY 006430
TMPLT2 006432
TMPLT3 006434
TOPSTK 010026
TRDYBT 010044
TRNSMT 023614
TRXADD 005250
TRYAGN 014730
W0
= 000042
T$ARGC= 000001
T$CODE= 002032
TSERRN= 000000
T$SEXCP= 000000
T$FLAG= 000040
000000
ERRORS DETECTED:

T$SHILI= 000007
TSLAST= 000001
T$LOLI= 000000
TSLSYM= 010000
TSLTNO= 000015
TSNEST= 177777
T$SNSO = 000000
TSNS1 = 000004
T$NS2 = 000010
T$PTNU= 000000
T$SAVL= 177777
T$SEGL= 177777
T$SUBN= 000000
T$TAGL= 177777
TSTAGN= 010026

T$TEMP= 000000

TSTEST= 000015
T$TSTM= 177777
T$7S7S= 000001
T$SAUT= 010006
T$S$CLE= 010007
T$SHAR= 010025
T$SHW = 010000
T$S$INI= 010004
T$$MSG= 010001
T$$PRO= 010003
T$SRPT= 010002
T$$SRV= 010005
T$STES= 010024
T
017470 G
110
021634 6

000

001

VIRTUAL MEMORY USED:
20886 WORDS
( 82 PAGES)
DYNAMIC MEMORY AVAILABLE FOR 69 PAGES
CZLQPA.BIN,CZLQPA.SEQ/C/N:TOC=SV(34R.MLB.CZLQPA.P11

SEQ 137

022050 6

T11PMT 004346
112
022462 G
T3
023360 6
12
017606 G
13
020026 G
T4
020274 6
15
020610 G
16
021014 6
17
021160 6
18
021342 G
19
021470 6
UAM
= 000200 G
UBTRAP 016572 6
UCRB = 010000
VRTCLS 002226

WAITMX

011432

WAITXN 013640
wF €
012414
WTSTPM 005154
XBUF
007304
XCSR
007300
XMIT
012616
XOFF
006517
XON
006520
XSTR
012670
X$ALWA= 000000
X$FALS= 000040
X$0FFS= 000400
X$TRUE= 000020
ZERO = 000040
$PATCH 025210 6

SEQ 138

MACRO v03.01 7-NOv-80 10:06:10 PAGE S=-!
'PARAMETER CODING
'CROSS REFERENCE TABLE (CREF v01-05 )
|

|SPATCH
ABORT

ABSS

ABSND
ACAS
ADR
AGN
ALPHA
ASSEMB
ASSMA
AUTCAL
AUTOLD
AUTOLE

L3-364

26-29
26-477
26-426
9-332#
8-2#
32-430
14-62

5=7

BASET
BAUDRT
BAUTBL
BETA

41-146

14-97

BFRA
BFRB
BFRC

37-32
38-54

37-37

20-71

23-52

37-50

37-54

37-59

40-42

-2n

16-41

-2N

31-28
38-32

18-101

31-34
38-38
20-80

26-125

26-186

32-39

33-28

33-34

34-24

34-30

35-27

23-46

26-80

26-142

26-351

26-443

26-494

26-428

26-479

41-3

] )
)
)

e P2 Pe P2 b

DODDODDDOD®D

18-99

BR2

42-95

26284

J "

CROSS REFERENCE TABLE (CREF VO1-05 )

PIRROTS . ¥

MACRO v03.01 7-NOv-80 10:06:10

PARAMETER CODING

SEQ 139

-2

($8SUB
CSCEFG
CSCLCK
CSCLEA
C$CLOS
CSCLP
CSCVEC
CSDCLN
C$DODU
CSDRPT
C$DU
CSEDIT
CSERDF
CSERHR
CSERRO
CSERSF
CSERSO
CSESCA
CSESEG
CSESUB
CSETST
CSEXIT
C$GETB
CSGETW
CSGMAN
CSGPHR
CSGPLO
CSGPRI
CEINIT
CSINLP
CSMANI
CSMEM
CSMSG
CSOPEN
CSPNTB

CAN

CCOUNT

CHC2

CHKC
CHKCAN

26-183
23-78

26-58

26-88

26-94

26-119

26-150

26-156

26=-512

28-41
26-193

30-72

31-84

32-65

33-54

3461

35-50

30-54

37-70

38-63

41-82

42-179

37-32
26-30

4£0-38

41-33

42-24

23-82

28-20

29-19

30-28

31-26

32-31

33-26

34-22

35-25

36-25

37-22

26-149

26-155

26-511

41-60+

41-61

26-33

5=24

23-59

26-523

SRR un

11-16.

i
' J
~ NSNS -~

CSPNTF
CSPNTS
CSPNTX
($Qlo0
CSRDBU
CSREFG
CSRESE
CSREVI
CSRFLA
CSRPT
CSSEFG
C$SPRI
(SSVEC
CSTPRI
CALLDF
CALLDL

27-16

-74

23-61
40-36
26-57

23-76

61-23

42-21

26-93

26-118

14-55

15-69

16-56

23-62

26-19
S=74
5-24

26-22

39-51

41-53¢

26-87

24-14

26-36

26-107
26-109
14-88

39-31¢«

42-95#
42=420

14-88#

16-69

39-50¢

K11

SEQ 140

MACRO V03,01 7-NOv-80 10:06:10 PAGE S-3
{CROSS REFERENCE TABLE (CREF v01-05 )

CRNTPR
CRNTSK
CSRADD
CTL2
DASHES
DCUPA
DDCUPA
DELAYS
DELCNT
DFAIL
DFAULT
DFPTBL
DIAGMC
DIRCTN
DLDFLT
DLSET
DONEDF
DOSPCS
DUMMYS
DZDCOD
DZDFLT
DZSET
ESEND

ESLOAD

ECNRB

-0~ — O~ — 00 00 00
»
o o

1001010

CRCLX

28-32#
9-4364

b b LS NN NN

CHRCNT
CHRLOG
CHRLOO
CHRLST
CLEART
CNTNU
COlE
CONTLO
CONVRT
(R

BN =) =3 (N =

CHKNG

-t e OO =S NNANON
S SN S W

PARAMETER CODING

32-56
23-784
23-84#
16-45

21-40+

13-112

26-415
26-273#
26-509

42-99

26-465
26-330#
5-24

b b b e

d e e
M) =

e o

Lon

POND

OOOO?OOO
"9
1

EDFM&

EDFMA

36-50+

36-51

61-164

61-173

41-204

41-220
L1-64

13=111+
42-145

13-218+

18-136+

18-147

21-404

21-47

13-117+

13-175¢+

18-140+

33-47

34-36

36-44

32-44
29-53

2142+

31-a

31-75

2646154

EDFMO
EDFM1
EDFM2
EDFM3

EDFM5
EDFM6
EDFM7
EDFM8
EDFM9

36-40+

33-46+

26-417
26-5144

42-103#

26-453
26-466

20-90

26-4604

37-42

39-40

42-104

42-146

{

sty

SEQ

141

PARAMETER CODING

MACRO v03.01 7-NOv-80 10:06:10 PAGE S-4
CROSS REFERENCE TABLE (CREF v01-05 )

EIGHTY
EMP4
EMPS
EMPTI2
EMPTIS
EMPTI4
EMPTIS
EMPTIB
EMPTL2
EMPTYR
EMPTZ3
ENDIN
EOT
ERMSGB
ERRBLK
ERRMSG
ERRNBR

26-171
26-425#
26-4768
26-56
26-117
26-4240
26-475#
18-56#
26-614
26-186#
26-122¢
26-34
9-316#
9-376#
9=445#
9-445#
9-445#

26-174n
26-432
26-483
26-60#
26-121#

ERRTYP
ERSETT
ERWORD

9-445K
16-70
9-302#

23-56+
16-75#
14-94+

ERRORS

ESCAPE

EVL
EXETS

EXIT
EXITI1
EXITA
EXITE
EXITON
EXITS
EXITSR

EXITX

23-43¢
31-78
61-197

20-67+
26=71+
8-36+
5=33¢
9-320#
8-2#
14-58
38-59
40-43
37-55
16-64
15-52
14-70
20-85

13-90

13-225#

18-60
26-68
26-190
26-129
26-187
14-91
23-57
23-57+
23-58+

26-193#
16-72

28-30
32-59
41-216

28-38
33-44
41-232

29-34
34-39
42-68

29-47
34-49
42-81

20-74+
26-80*
9-21t
6-27+
13-152

14-103+
20-76*
26-115¢
29-27+
36-33+
18-75

15-55
20-78
26-133+
30-30+
37-24+
26-91

20-80+
26-142¢
30-36+
37-301
26-153

16-784
15-71#4
14-101

14-1064

13-123

13-129

13-134

13-140

13-147

13-184

11-9

24-8

25-7

26-7

26-193

37-70

38-4

38-63

L1-4

5-7
11-12

14-99#
38-634
40-554
37-68#
16-73
15-56
14-84
20-95#

13-94

EXTMCR

23-47

23-80#

FSAUTO

5-7#

26-527

26-529

29-58

30-8

30-72

5-7#

27-7

27-16

5-7
5-7

57
5=74

FSAU

FSBGN

FSCLEA

FSDU
FSEND

F SHARD
F SHW
FSINIT

5=74

36-54

5=74
5-7
5=-7

5-8

37-2

31-4

57
5-8

28-5
30-72
33-54
36-3

28-5
31-4
33-54
36-54

28-5
31-4
34-4
36-54

28-41
31-4
34-4
37-2

5 -74

63-1
7-9
26-7

43-16
7-17
26-523

43-19

41-4

S5=74
5-7#

41-4

41-82

31-84

28-41
31-84
34-4
37-2
42-4

29-56
35-44
42-87

30-47
36-48
42-116

30-54
37-45
42-122

30-70
37-64
42-137

31-39
39-37
42-143

31-44
39-48
42-158

31-62
40-51
42-165

31-68
41-185
42-177

31-73
41-1N

8-6
67+

3-52
6=460%
3-28+

18-99+
23-67+
26-473%
33-34%

18-100+
23-72+«
26-485+
34-24+

18-101+«
26-39+
26-494+
34-30+

20-59+
26~54+
28-35+
35-27+

13-190

13-195

13-201

13-208

13-216

13-222

26-225

26-S27

27-7

27-11

28-5

28-41

c9-4

41-82

42-4

L2-179

43-1

44-1

5-7
11-16

5-7
24-10

5-7
24-14

5-7
26-229

5-7
26-523

5-7
26-529

5-7
27-11

5-7
27-16

42-4

43-19

44-1

;
2
g
2

32-3

29-4
31-84
34-61
37-2

32-65

29-4
32-3
34-61
37-70

33-4

294
32-3
35-5
37-70

42-179

33-54

57
26-193

29-58
32-3
35-5
38-4

42-179

34-4

29-58
32-65
35-5
38-4

34-61

30-8
32-65
35-50
38-4

35-5

30-8
33-4
35-50
38-63

35-50

30-8
33-4
36-3
38-63

36-3

30-72
33-4
36-3
L1-4

SEQ 142

MACRO v03.01 7-NOV-80 10:06:10 PAGE S$=-5
CROSS REFERENCE TABLE (CREF v01-05 )

%
3
2
2
L

FAILDF

FAILDZ
FAILM
FBTM
FIVE
FLTRDY

FOUR

GTNUM
HEXA
HEXB
HEXC

24-10

26-193

27-11

24-8

28-5
35=5
26-497
26-57
26-118
26-511

29-58
36-564

14-99+
13-136
L1-45
42-83
13-175#

26=41+

33-54

34-4

42-179

42-118

FRONT
FTYTPM
FWRDO
FXRDYM

GPAMSG
GPD2MS
GPDMSG
GPLMSG
GREASE

24-10

26-225

FAILDL

26-73¢

26-81

26-135+

26-462¢

26-4B7+

26-143

26-4636%

20-56
26-449

20-83
26-456

26-90
26-457

13-189
26-488¢

13-207

13-215

42-75

23-76

L [
UL
SNSNNNNSN N~ ~ N
L2 32 2
3= Wx=

-7

(W LV IV IV IV IV IV LV LV IV L

GSCNTO
GSDELM
GSDISP
GSEXCP
GSHILI
GSLOLI
GSNO
GSOFFS
GSOFSI
GSPRMA
GSPRMD
GSPRML
GSRADA
GSRADB
GSRADD
GSRADL
GSRADO
GSXFER
GSYES
GETCHR

11-12
5-8
11-9
25-7

37-32
37-32

38-51
38-51

40-38
40-38

38-51

40-38

38-51

40-38

-74
43-17

41-33
18-78

26-99
26-507

1
1-1400

8-17#
8-18#
8-19#

13-122

20-93+

N
—

FSJMP
F $MOD
FSMSG
FSPROT
FSPWR
FSRPY
F$SEG
FSSOFT
F$SRV
FS$SuUB
FS$SW
FSTESY

J
SNNSNSNNN

PARAMETER CODING

—

SEQ 143

MACRO V03,01 7-NOvV-80 10:06:10 PAGE S=§
CROSS REFERENCE TABLE (CREF v01-05 )

PARAMETER CODING

8-20#
8-21#
8-224
9-4310
8-2#
9-51#
9-43#

HEXD

HEXE
HEXF
H1TARG

HOE

HRZTLS
HZTLSP

IBE

10U
IER
INFIN
INIERR
INITCD

INITLZ
INLOOP
INUPB
ISR
IXE
JSJMP
JENDIN
JUNKPL
LSACP

LSAPT
LSAUTY
LSAUTO
LSCCP
LSCLEA
L$CO
LSDEPO
LSDESC
LSDESP
LSDEVP
LSDISP
LSDLY
| LSDTP

-8
-4
-

= Bun RSN
I

m?mmw\nmmummmummmu
(L
N NN~ LLLLLLLEL

ISAU
ISAUTO
ISCLN
IS0V
ISHRD
ISINIT
1$MOD
1$MSG
ISPROTY
ISPTAB
ISPWR
ISRPT
I$SEG
ISSETU
ISSRV
1$suB
I$TST

-74

9-260
30-39+

9-260
30-41

9-260
30-42¢

30-61

13-125

13-155

13-158

31-53+

31=55«

31-57«

31-65

L1-175+«

41-177+«

26-527#
27=7#

26-529#
27-1

27-164

43-19#
26-74
5-8
11-9#
25-74

26-193

26-523#

41-179«

41-187

41-206+

41-208+

41210+

41-212

5-8#4

44-1

24-8#
28-5

24-144
29-4

30-8

32-3

33-4

36-3

L1-4

L2-4

26-225#
-5

26-2294
29-4
28-5#
31-4
33540
36-540

33-4
29-4
31-84#
34-614
37-70

L2-4#

36-3
29-58#
32-65
35=5#
38-4

42-4

L1-824

32-3
28-41#
31-84#
34-61
37-2#
42-4

41-4

61-82

30-8
28-41
3140
34-4
36-544

18-84
28-19

18-89
29-18

18-99#
31-25

32-30

38-29

41-22

30-72#
33-54
3

41-4

26-175#4
18-80
27-9

11-16#

21-44

11-12

26-344
26-286

. 26-527#
27-74
10-17#

6-54

24-10
26-287

Wo-14

30-8#
33-4
35-504.
38-63#

42=-179#

33-25

34-21

35-24

36-24

37-21

30-72
3340
36
38-634

C—————————

S—

PARAMETER CODING
MACRO v03.01 7-NOV-80 10:06:10 PAGE S=-7
CROSS REFERENCE TABLE (CREF v01-05 )
5-24#
5=24N
5-24
5=24H
5-24n
5-24
5=-24N
5-24#
5-24#
5-24#
5-24
5-24#
5-244
5-24#

LSICP
LSINIT
LSLADP

5=24¥
5-24
5-24#

LSHW

5=-24

b=4
e

1
P

—_

w
w
'

— et

PP,
S,

888333333338 88

RN
S 2D —
VIS N = O N
N &
N —o

5-24
LSLAST
5-24»
LSLOAD
5=24N
LSLUN
LSMREV ~ 5-24#
5-24#
LSNAME
5-24#
LSPRIO
5-24
LSPROT
5=24#
LSPRT
5-24#
LSREPP
5=24K
LSREV
24-8#
LSRPT
5=24N
L$SPC
5-24#
LSSPLP
5-24#4
LSSPTP
5=24H
LSSTA
5-244
LSTEST
5-24#4
LSTIML
LSUNIT
5-244
7-9
L10000
11-12
L10001
L10002 24-10
L10004 26-193
Li0005 26-2294
L10006 26-529#
L10007 27-11

10-11#

9-4454

43-1

43-11n

7-9

7-94

26-74

43-614

25-7#

26-28
7=-174
11-16#4
24=14K
26-523#4

27-164
-

LSDTYP
LSOUT
LSOVTY
LSEF
LSENVI
LSERRT
LSETP
LSEXPT1
LSEXPL
LSEXPS
LSHARD
LSHIME
LSHPCP
LSHPTP

12
B

SEQ 144

[

PSR

¢ 12

MACRO v03.01

CROSS REFERENCE TABLE (CREF v01-05 )

41-166
41-168
61-170

26-40+
26-461%

26-48*
26-468

26-52¢
26-486*

26-55
26-496

26-278

26-31

NULL
NUM1
NUM10
NUM11
NUM12
NUM13
NUM14
NUM15

NUM2
NUM3
NUM&

NUMS

9-2608
8-24#
8-334
8-34#
8-35#
8-36#
8-37#
8-38#

8-¢5¢4
8-264
8-274

8-28#

42-554
40-36#

26-283+

17-47+
17-57+
17-62+«

26-90#
26-964

26-65
26-152#4
26-158#
26-126
41-156#
37-584
40-38

42-169

29-50

30-57

33-47

34-37

34-43

35-37

36-35

26-134%

26-146

26-227+

32-46
32-48
32-50

29-44N

26-23
8-16#
26-85
26-92
26-62
26-147
26-154
26-123
16-494
41-150
37-51
9-137#

26-30

31-53
31-55
31-57

29-40

NEXTU
NINE
NONDT2
NONDT3
NONDTA
NONDZ2
NONDZ3
NONDZA
NOPRTM
NOT1
NOTQ
NPRMPT

26-28

26-363¢

32-62

NEWMOD

26-27+

26-338+
26-363

9-148#
8-52#

9-4278
26-445

26=175

32-62

26-286+
26-362+
40-53

26-71#

26-1334

42-170

42-172

14-44e
14-44

MSGADD
MXLF

NDATA

31-81
26-174%

15-60

42-43
38-58
40-38#
9-422#¢

9-416#
9=-L174
9-418#

26-180+
26-172+

16-50

MAKE11
MANLD
MANLE
MLTLIN

MNEB1
MNEB2
MNEB3

41-69
32-61+

41-175
41-177
41-179
26-72+

26-116

16=-41#

LOOPXN 15-46#
8-24
LOT
LPR
9-3694
LPRINI ~ 9-275#

26-26*
35-48
37-47
15-58#

18-129
32-43
26-167#

-0
oo

LOOPG

31-82
13-924
13-108
32-41%
26-102
33-52
30-62
26-178+
13-102
13-223
18-149

LINSIZ
LNELOO
LODELY
LOE
LOGUNI
LOOP8
LOOPA
LOOPCK

31-48%
13-89
9-69#
9-434N
26-50
33-38#
30-40#
9-406#
9408
13-102#
18-147#
8-24
9-164
35-41#
37-32¢
15-49

N'}N\)

L1LOOP
LCHYET
LF
LINCNT
LINCOD
LINLO6
LINLOO
LINN ~

SEQ 145

7-NOvV-80 10:06:10 PAGE S-8

PP
O

PARAMETER CODING

26-419

26-435¢

e————————

PARAMETER CODING
CROSS REFERENCE TABLE

;

37-67
23-71
23-66#
34-59
5=24
5=-24
5-24
5=24

5-7#
OSERRT
OSGNSW ~ 5-7#
OSPOIN
5-7#

5=21#
5=24
5=21

03 00)

OSSETU
ONE
OPTN1
OUTCTR
OUTRLP
OUTSDC
OUTSDL

PALPHA

5=7#4

5-7#4

8-8#
9-111#
9-308#
16-39%
9-309#
15-43#

20-54

5-24

29-30#
36-42#

29-51
36-52

PRARCH 41-57
B=2#
PRI
PRI0O
8-2#
PRIO1
8-2#
8-2#
PRI02
PRIO3
8-2#
PRI04
8-24
8-2#
PRIOS
PR106
8-2#
PRIO7
5-24
PRMPTA
9-107#
PRMPTC
9-115#

PRMPTD
PRNTIT
PRTBMO
PRTM2
PRTXMO
PSIN

PS214

9-125#
28-27
10-47#
26-144
10-49#
9-764

9-788

26-30+

9-2594
9-474

29-42

39-43

16-52+

16-54

16-58

15-62+

15-63

18-50+

23-49+

26-44

26-105

23-61

26-168

26-361

26-415+

26-465¢

41-62

L1-135#

8-2#
37-32
40-36
42-24
28-30#

23-61
26-149#
23-62
42-58
42-34

RANDOM 19388 36-a0
F
-3678 14-7
g-ggfil 16-6?
z%gu
REAR
RESET

29-37

20-90#

PLOOP
PLOOP9

41-54#
8-24

5-24

16-38+
16-59
15-42+
15-64

9-258
38-51

26-87#
13-58+

PLOOPC
PNT

5=21#

43-41

9-331#
26-82
9-372#

9-17#

5=24

5=-24

PERIOD
PFM1
PGMCTR

PLOC

SEQ 146

MACRO v03.01 7-NOv-80 10:06:10 PAGE S-9
(CREF v01-05 )

8-29#
8-30#
8-31#
8-32#
37-374
23-52#
23-53
34-35#¢
5-7#
S=7#
5-7#
5-7#

NUM6
NUM?
NUM8
NUM9
NXTA
NXTBIT
NXTERM
NXTLIN
OSAPTS
0$AU
O$BGNR
O$BGNS

0 12

42-127
18-69

26-36

42-59
42-36

41-54
16-67
12-28

42-128

42-61
42-39

1-1%2
18-59
12-41

42-130

26-67

18-56

26-128
26-189
26-337+ 26-431
26-349+ 26-428 26-479
26-331+ 26-482
26186 26-¢74*
26-125 26-277+
26-64

E 12

SEQ 147

'PARAMETER CODING

MACRO V03,01 7-NOv=-80 10:06:10 PAGE $-10
(CROSS REFERENCE TABLE (CREF Vv01-05 )
RESETC
RESINN
REVRSP
R1BPOS
RTYTPM

SSLSYM

SCO

sC1
SCA
SCB
SCC
sca
SCX

SEED1
SEED2

SELECT

SENCH2

SENCHR
SENCLP
SENDR

SENDR2
SET15
SETCHO
SETER

SETHTO

SE TONE
SETUPC
SETUPI
SEVEN
SIX
SKP11
SKP14
SKPA4
SLFTST
SLTPFF
SNGCHR
SNGLP
SPACE
SPCSIZ
STATS
STATUS
STCHSZ
STHTCTY
STLNSZ
STPGSZ
STRTUP
STSCAL
STSERR
STSPSZ
STSRES

- STULMD

SV(GBL

18-57
14=474

34-4L68
9-52#
9-141#
5=7#
34-61#
40-38
9-329#
9-330#
9-328#
9-326#
9-325#
9-3244
9-327#
9-262#
9-263#
42-704

39-33+

39-44

40=46*

24=14K
37-32
61-33

26-5290
37-32¢

27-164
37-704
41-82#4

L2=24m

40-38
43-19#

13-144
20-44

13-153
20-47

13-165

13-187

42-128+

42-130+

L1-3%38

33-54#

31-70

14-440

13-86
13-192
14-48#
16-42
13-106

20-88
9-66#
14-89
9-654
29-38
26-45
18-97
8-14#
8-13#
9-9#
9-7#
9-8#
9-56#
9-624
9-322#
43-16
9-334#

31-840
38-51#

13-2134
14-1034

18-104#

2-101
42-92
42-98

28-21
42-72+

42-127+

30-66
42-51r

42-58+

26-490
29-44
5-24
€-24
5-24

5=24
5-24
5-24

42-169+

42-170+

42-172+

—ININIOOV=O=ITWNOeONOOVOMNMENVONITITITIIIII
OoV5—0OlDo0lINV0aN5VlNAYIOoa5YlNeoOlOO5oeNNlOtNaTVl5oeVWlNeolNJOM5IeYlNM6eaTNlUIeM—MlOV6eOl0OVMLo~leO1VTVOlTVN~OOnOTVTNSTOON6VT—ONV3OLYN3ONOTONS3UNTDWONLOV—WN3LOTOlWLOeT~oNOWT6OoNONWYQONVT6OQNONLMoQOVNNoT6OOONoNWVVQTON[6TTLoVOONOLMo6MVN[aENaONM[OMNV6ALVMINMA¥VO6NoNvlTT8VeVoNllNLO9Vt0—01~OO2NNI3N‘SA5NVVI67INNI7IN8IVT

0go52—0UUNVl)aa030llaOMo0aWOM5I2llNAVaa5N3llOIaaNI2llMORNaa5N3lAlIOSNaa542TllNO5aaN6OTVVllaaNN2lTlJOV5Iea6AllU(UI6NaeMM5lOlU6ea6(0llTOMMVaNe5vlOl=O0eUL6N1llOMO1VV1N=eelTOV6N5OT=JTnONN(TIO(5UU—VN65OTINN60~OVN"TN3OT6NDONeVvO6NNO=3—v7TDYON3NN=—voO8VLO3NT==e9TO1OlNNNoev=0OL2WnOVNOONLT3OO6OG00NNV0N1MWOONNGLG02TT56ONNU3TNOOUUINMMM6EW8O]N0o49VTNIVoO5TN61VO=T==NN0eLo6TMTO0GNEa0oWN76M1NVOEO0MoTNNNN0MogO67OV1TILM0MoTV8OO5NMO¥LV6MNoO1ONWMlV2TIOMNOL7ONVI]1N3LW81VTO==—9lN12OOO-==NL0NVONOA1~8OW03OON22NVNNI3ANN‘INII2AeN4TVN5VNeA2AI6VNT7NNW3IAION7INNNA3N8VTNI5MV[
PARAMETER CODING

CROSS REFERENCE
7-9

SVCINS

WOWNO —

O
0N
N
N
I
V
N
—
A
A
S
R
R
R
D
o0NONMNWVNIMTO~OVOVOVOOONDCTOIOVOMMMTVO0~ONN VNN
F

TABLE
MACRO v03.01
(CREF v01-05 )

9-445
10-1

7-NOv-80 10:06:10 PAGE

10-17

24-8
25=7
26-7

S-11

SEQ 148

26-225

26-527
27-7
43-1
43-41
43-41

VO3AMNTDUNIYOMYNOVMIMO O—U3WNMOTVVMNDMNO 55555667qlwS6333166666667890123456778222225591565678133589112512122T=OF32522N233WVINTNM~VSONN—O 22222559156566781233589.‘115121272325223’)35 0GOMNOUN=voI0YMNWM—OTNI=—DOVMN~M—MOe (LoTYVNaegW11RIlN1VDTLgbPy, ITV—(ONNNOOVNMeNE ILDO0 0I—VT(=0ONOWNITWVOVTVODNMNMN~eEGP=D 0

43-41

G 12

SEQ 149

MACRO v03.01 7-NOv-80 10:06:10 PAGE $-12

PARAME TER CODING

(ROSS REFERENCE TABLE (CREF v01-05 )

I I I I T I I T Iy

O«

TESHY
T$SINI
TSSMSG

11-9#
25-7#
24-84
26-225#

24-10

26-229

TSERRN

TSEXCP

T$FLAG
TSGMAN
TSHILI
TSLAST
T$LOLI

TSLSYM

S5=74

37-32
43-17
11-12
5=74
42-240

37-32

37-32#

W3-17#
11-12#4

37-32

42-240

38-51#

40-38

40-38#

42-4h

5-24

16-56

23-764
26-118
29-19
33-26#
38-30

41-33

L1-330

11-12#

37-32#

33-54

42-179
5=244
16-56#

34-44

34-61

S5=242

5=24#4
23-61

23-61
23-82
26-149
29-19#
34-22

23-82#4
26-149
30-28
34-220

23-82
26-118%8
29-19
34-22
38-30#

40-36

L3-142

42-24

42-240

43-13

43-13#

43-14

26-193%
40-38#

26~ 193¢

40-38#

27 -1
41 -33

N -—N

27-11»
L1-3%

N~ 0N- —J

38-51

38-51#

40-38

40-38#

61-33

41-33

42-24

42-240

43-13

43-13#

43-14

L43-142

37-32#

38-51

38-51#

40-38

4L0-38#

41-33

41-33#

42-24

42-244

43-13

43-13»

43-14

63-148

S-74
34-61

7-17

29-58

30-72

31-84

32-65

43-17#
L3-412

43-17

3-174

5=-7
33-54

38-51

33-44

37-32#

43-17
5=74

37-32

24-14

NO TWVANIMN = — N = CUMMN -

TSSPRO
TSSRPT
TSSSRV

27-7#

43-11
7-9
26-74

TSSHAR

%= Rk w

TSSCLE

Lal a0

35-50

H 12

SEQ 150

MACRO v03.01 7-NCv-80 10:06:10 PAGE $-13
CROSS REFERENCE TABLE (CREF v01-05 )

PARAMETER CODING

ITSLTNOD
SNEST

43=41#
27

26=74
32-34

27~7#

27-16

43-112

43-16

41=-4H

42-4

L1=4k

41-82

42-4n

35=-5#

36-34

37-24

38-44

34-40

34-61

26-229

29-4H

30-8#

31-4n

32-3#

33-4#

34-44

11-9#

5
5

TSTEMP

cn
-5234
31-840
37-324

40-38
42-24

43-14

6-5#

11-16

26-529
32-65

37-32#

40-38
42-24

274

N[oaRSLeO4NUl¥.YaI]YlOIVONODMVONBDOe—M

o anMgk

26-527
31-4

37-32
40-38

26-529
33-54

42-179

ee
(e

T$PTNU
T$SAVL
T$SEGL
T$SUBN
TS$TAGL
T$TAGN

26-225#

26=-527#8
334k

. =

TNS2

26-523
32-65

hid

112
PARAMETER CODING

'CROSS REFERENCE

TABLE

| T4

6-5

31=4h

6-5

3b-un

‘15
16
8
19

6-5
6-5
6-5
6-5

TCR
TCRENA
TCRTBL
TDR
TEST1
TEST2
TEST3
TEST4
TESTS
TEST6
TEST7
TESTB
TEST9
TESTA
TESTB
TESTC
TESTD
TFCZ

9=3708
9=271#
9-283#
Q=371
28-19#
29-18#
30-27#
31-25#
32-30#
33-25#
34-21#
35-24#
36-24#
37-21#
38-29#
41-22#
42-20#
37-40

TITLE2
TITLES
TITLEL
TITLES
TITLEG
TITLE?
TITLEB
TITLE9
TITLEA
TITLEB

9-89#
9-91#
9-93%¢
9-95#
9-97#
9-99#
9-1014
9-103#
9-105#
9-109#

TITLEC
TITLED
TMPLT
TPLT2
TMPLTS
TOPSTK
TRDYBT
TRNSMT
TRXADD
TRYAGN
TWO
UAM

UBTRAP
UCRB

VRTCLS

WALTMX
WAITXN
wF(
WISTPM
-

9-121#
9-123#
9-266#
9-267#
9-268#
9-398#
906&00
42-4
9-149#
19-40#
8-9#
8-2#

MACRO v03.01

(CREF

vO1-0S5

)

SEQ 151

7-NOv-80 10:06:10 PAGE S-14

32-34
33-4h

35-5#
36-34
14-45+
14-45
26-358
26-344*

26-287+
26-358+

26-34i+

26-346

37-50#

29-19
30-28
31-26
32-31
33-26
34-22
35-25
36-25
37-22
38-30

41-23
42-21
17-43
17-50
17-60
13-69+
14-64

29-22
30-31
31-29
32-34
33-29
34-25
35-28
36-28
37-25
38-33

41-26

20-57
13-70¢
26-284r

13-65+
19-58
9-259

23-62

26-36
8-434

262254

26-2274

42-108¢

42-110+

9-50#

32-46+¢

10-154#
14-81
10-188#
9-1434

15-39#
16-56
14-55

32-48+

42-112

)
20-62

20-70

26-351%

32-50+

42-148+

32-52

42-150+

41-166%

42-152+

41-168+
42-154

41-170*

41-181

41-222+

41-224*

41-226+

41-228

42-106¢

J 12

SEQ 152

'PARAMETER CODING
MACRO v03.01 7-NOv-80 10:06:10 PAGE S=15
{CROSS REFERENCE TABLE (CREF v01-05 )
XSALWA
XSFALS

5-7#
5-7#

X$TRUE

5-7#

XSOFFS
XBUF
XCSR

XMIT

XOFF
XGN
XSTR

IERO

5-7#

43-16

9-3684
9-3664

14-69+
14-64

26-281+
26-279*

26-346+
26-334+

42-121

42-136

42-142

13-58#
28-24
31-72
37-29
61-75

62-115

9-318#
9-3194
13-83¢

8-7#

43-16

18-65
29-26
31-77
37-44
41-76
14-78
14
13

18-72
29-33
32-38
37-63
6-77

‘8-228

18-109
29-46
32-54
38-37
41-78

18-116
29-55
32-58
38-43
L1-79

18-122
30-35
33-33
38-48
41-80

9-259

13-186

42-157

42-164

18-127
30-46
33-43
39-36
41-184

18-132
30-53
34-29
39-47
41-190

18-133
30-69
34-38
40-50
41-196

18-134
26-79
31-33 31-38
35-32
34-48
41-67
41-30
41-215
41-231

26=141
31-43
35-43
41-72
42-67

26-442
31-61
36-32
41-73
42-80

26-493
31-67
36-47
L1-74
4L2-86

18-79

18-83

18-88

18-105

18-112

18-118

29-39

30-39

42-176
.

—

e c——

]

K 12

SEQ 153

PARAMETER CODING
MACRO v03.01 7-NOv-8C 10:06:10 PAGE M-?
CROSS REFERENCE TABLE (CREF v01-05 )
BCOMPL
BERROR
BGNAU

1-15#
1-19#
1-23#

5=7#
5=74
5=74

26-20

BGNCLN

1-39#

5-74

27=7

BGNAUT

1-31#

S5=7#

26-527

BGNTST

1=478
1-55#
1-66#
1-77#
1-85#
1-98#
1-106#
1-1148
1=144K
1-152#
1-1614
1-182¢
1-193%%
1-201#
1-2254

‘}-%360

S=7#4
5=7#
S=74
5=7#
5=74
5=7#
5-74
5-7#
5-7#
5-7#
5-7#
5-74
5-7#
5-7#
5-74

5=7#

28-5

29-4

BNCOMP
BNERRO
BREAK
BRESET
CKLOOP
CLOCK
CLOSE
CLRVEC
COMMEN
DELAY
DESCRI
DEVIYP
DISPAT
DISPLA

1-266#
1-270#
1=2748
1-278#
1-282¢
1-2868
1-2924
1-296#
1-301#
1-322¢
1=317#
1-3414
1-3464
1-360#

5-7#
5-74
5-7H
5-7#
5-7#
5-74
5-7#
5-7#
5-7#
5-7#
5-7#
5-7#
5-7#
5-7#

26-23

26-31

DODU
DORPT
ENDAU
ENDAUT
ENDCLN
ENDCOM
ENDDU
ENDHRD
ENDHW
ENDINI
ENDMOD
ENDMSG
ENDPRO
ENDPTA
ENDRPT
ENDSEG
ENDSET
ENDSFT
ENDSRV

1-380#
1-3854
1-3894
1-4014
1=4134
1-425#
1=4610
1-453#
1=4654
1=475#
1-4878#
1-500#
1-512#¢
1-520#
1-529#
1-541#
1-555#
1-568¢
1-580#

5-7#
5-7#
5-7#
5-7#
5-7#
5-7#
5-7H
5-7#
5-74
5-7#
5-7#
5-7#
5-7#
5-7#
5-7#
5-7#
5-7#
5-7#
5-7#

8SGNDU
BGNHRD
BGNHW
BGNINI
BGNMOD
BGNMSG
BGNPRO
BGNPTA
BGNRPT
BGNSEG
BGNSET
BGNSFT
BGNSRV
BGNSUB
BGNSW

DOCLN

1-3764

5-7#

43-1
7-9
26-7
5-8
11-9
25=7
24-8

26-225

30-8

31-4

32-3

33-4

34-4

353

36-3

26-58

26-88

26-94

26-119

26-150

26-156

26-512

26-183

10-17
10-11
6-5

23-78
26-529
27-16

63-19
7-17
26-523
44-1
11-16
25-13

24-14

26229

26-33

37-2

38-4

41-4

&M OONWOVIMONMg T~- VWVNN Mo nN BM4

- NTMMONe—NOMOMe—M M
¥

M O ~ VWO NN N - -

PARAMETER CODING

MACRO V03,01 7-NOvV=80 10:06:10 PAGE M=-2
CROSS REFERENCE TABLE (CREF v01-05 )

o N MONDS VDA O N O oM

.wT=M

-' N" M"0O—=0 VNN" NON"0 «~i— O[ oM[

=a2

U '

[ L. | L (R UL

N MO0 VNN NON — N oM

N! oo8 VOO"O\ VOOVOO(R WW"1 0000" ©©i NY[V CC[OOMMNNM- M = FTONOMNOWV 3T VeOR—NO=uM —m;MOM
v - w M Ne—Me—NWN IN (VN S e OM@W PA—y—g
e

41-82
38-63
37-70
36-54
35-50
34=61
33-54
3265
31-84
30-72

29-58

SEQ 154

L 12

——

—

m12

SEQ 155

MACRO V03,01 7-NOV-80 10:06:10 PAGE M-3
CROSS REFERENCE TABLE (CREF v01-05 )

PARAMETER CODING

29-58
33-4
36-54

40-38

43-19#

24-84
26=5278
29-584#
33-4#
36-54#
40-38#
&3-112

24=14
26-529
30-8
33-54
2
41-4
43-19

|
|

l
|

|
|
|
|

i
§

:
|

§
x

|
|

L
od

b-l

ka3

SEQ 156

MACRO v03.01 7-NOV=80 10:06:10 PAGE M-4
CROSS REFERENCE TABLE (CREF v01-05 )

PARAMETER CODING

BRSNS L LU LR UL P00
|

{

|
)

MSGNL
S
MSGNSU
MSGNTA

MSGNTE

|
|

MSHAPT
MSHNAP
MSINCR

|
|

i
I

M$10SE
MSLDRO
MSMASK

MSMCHI
MSMCLO

MSMSK1
MS$POP

MSPRIN

MSPUSH

1-a31#

26-225

42-21#

5=74
26-2254

5-8

26-527

5-84
26-5278

7-9

27-7

24-84
29-4n

25-7
30-8

26-7
31-4

26-7#
31-48

813

'PARAMETER CODING

SEQ 157

MACRO V03,01 7-NOV=80 10:06:10 PAGE M-5

'CROSS REFERENCE TABLE (CREF v01-05 )

36-3

36-3#4

(aAo[VTtB&ILS4¥lV]N=aY

37-2

P LLL [

35-5#

35-5

6
3
6
8
3

= N 3L —

AeOM—NNT~OI

7-324

5=74
5=74
5=74
26-2254
32-34

L1-4H

MSTLAB
=

MSTSTL

MS$WCRD

43-61

rr,
"

6
3
6
6
6
0
4

2
2

T OM
OOV MINGIO IST
0 N A0 vT MOIONIOINOMOUVTM
WM— OOO O ONIMMMN
S = OIONNNOIM

5=-74

000

MSSTAR
M$SvC

26-30
5-8
26-527
33-4
42-4

hod

O—VCONTONUaWOIVOMNA0INIOGNT

l
|

—————

e —————————

——

| PARAMETER CODING

—
— —

o——

—

SEQ 158

MACRO V03.01 7-NOV=-80 10:06:10 PAGE M-5

OPEN
POINTE

PRINTB

1-382#
1=-;62#
1-;66#

1=:714
1=;76#

\I\\I\\fl\fl\.fl\fl\fl\fl\fl\fl\'fl\fl\fl\fla\fl\fl\fl\fl\flm

MSXFER
MANUAL
MEMORY

PRINTF

_1-<39#
37-22
1-<79#

38~
-

PRINTX
READBU
READEF
RFLAGS
SETPRI
SETVEC
SLASH
STARS
SvC

1-=50#
1-=99#
1->03#
1->08#
1=>13#
1->18#
1=>244
1->38#
1=>52#

PRINTS

XFER
XFERF
XFERT

1-=19#

1-312#
1-216#
1-a20#

NNNONNNNNNNNNNWSNNNSNNN
RO

|CROSS REFERENCE TABLE (CREF V01-05 )

43-16

5=21

L3-164

23-61
40-36
26-57

23-76
41-23
26-87

23-82
42-21
26-93

28-20

29-19

30-28

31-26

26-118

26-149

26-155

26-511

14-55

15-69

16-56

23-62

26-19

26-22

26-1934%

27-11#

26-36
5
11-124

24-104

32-31

33-26

34-22

35-25

36-25