Digital PDFs

AH-S329A-MC

February 1981

159 pages

Original

6.1MB

view download

OCR Version

5.2MB

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

OCR Text

LOPSE-F PDP11 DIAG
CZLQPAO

R e 1 or . s HIENTEL

SEa 1

POAIN) NI

=P b ad

=2 OO0 NO NI

b eod ccd e e e

N = O O 00 NO N

W) —

CILQPAQ LQPSE-F

PDP11

DIAG

MACRO v03.01

7-NOV-80 10:06:10 PAGE

.REM ¢

IDENTIFICATION
PRODUCT CODE:

AC=-S327A-MC

PRODUCT NAME:

(ZLQPAQO LQPSE-F PDP-11

PPODUCT DATE:

7-NOV-80

MAINTAINER:
AUTHOR:

DIAG

DIAGNOSTIC ENGINEERING

GRANT F. SANDY

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

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

SUBJECT

THE USE
SUPPLIED

OR
BY

RELIABILITY OF
DIGITAL OR ITS

DIGITAL
DEC

POP

DECUS

UNIBUS

DECTAPE

MASSBUS

PDPY1

DIAG

SEQ 2

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

wnHWN—=0O
—=O

b
d e
D
el

OPERATING INSTRUCTIONS
COMMANDS
SWITCHES

INFORMATION

SYSTEM REQUIREMENTS

RELATED DOCUMENTS AND STANDARDS

DIAGNOSTIC HIERARCHY PREREQUISITES

NO WM

O
O

PERFORMANCE

DEVICE

ASSUMPTIONS

ERROR

TEST

CONTENTS

FROGRAM ABSTRACT

—

GENERAL

TABLE OF

WA =2 OOV

NO WM

PINCAUND
b b b cd b e cd b b b

NN —=2O0V® NN

WA —

CILGPAQ LQPSE-F

MACRO v03.01

FLAGS

HARDWARE QUESTIONS

SOF TWARE QUESTIONS
EXTENDED P-TABLE DIALOGUE

QUICK

STARTUP PROCEDURE

INFORMATION
AND PROGRESS REPORTS

INtORMATION TABLES

SUMMARIES

TY r

SEQ 3

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

1.0

GENERAL

1.1

PROGRAM ABSTRACT

SERVICE PERSONNEL TO EXERCISE THE LQPSE-F LETTER QUALITY

b oD od

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

THIS PROGRAM WILL GENERATE SEVERAL PAGES OF PRINT ON THE

LQPSE-F PRINTER, LABELLING (WHEN ABLE) EACH TEST PRINT

N2 OOV

PNININD) b =d ccd cecd e

INFORMATION

THIS DIAGNOSTIC PROGRAM WILL BE USED PRIMARILY BY FIELD

~NO VNN =2 OO

NO N

CILQPAO LQPSE-F PDP11 DIAG

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
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
THERE IS A BRIEF DESCRIPTION OF
TO THE XXDP¢ USER'S MANUAL.
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT.
1.2

SYSTEM REQUIREMENTS

THE MINIMUM HARDWARE CONFIGURATION FOR RUNNING THIS DIAGNOSTIC IS

GIVEN HERE:

A PDP-11 CPU WITH AT LEAST 16K WORDS OF MEMORY.

b))
4)

ONE OF THE FOLLOWING INTERFACES:

A CONSOLE TERMINAL.

LQPSE-F PRINTER.
A)

0211,

C)
D)

oLVIT-y,
DLVI1-f,

B8)

£)

1.3
1)

OL1T-V,

Mxvil,

RELATED DOCUMENTS AND STANDARDS
XXDP+ USERS MANUAL

(HQUS.

PDOP=-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

E
CZLQPAQO LQPSE~F PDP11 DIAG

MACRO v03.01

SEQ &

7-NOV-80 10:06:10 PAGE 4-!

OPERATIONAL

BEFORE THIS DIAGNOSTIC

1.5

ASSUMPTIONS

2.0

OPERATING INSTRUCTIONS

IS RUN.

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

COMMANDS

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

BRIEF DESCRIPTION OF THEM.
COMMAND

THE XXDP+ USER'S MANUAL HAS MORE DETAILS.

EFFECT

.......................Fmmecccccnne

START
RESTART
CONTINUE
PROCEED
EXIT
ADD
OROP
PRINT

DISPLAY

FLAGS
IFLAGS

START THE DIAGNOSTIC FROM AN INITIAL STATE
START THE DIAGNOSTIC WITHOUT INITIALIZING
CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER *()
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
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.

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

2.2

SWITCHES

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.

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

EFFECT

/TESTS:LIST

EXECUTE ONLY THOSE TESTS SPECIFIED IN
LIST IS A STRING Of TEST
THE LIST.
NUMBERS, FOR EXAMPLE - /TESTS:1:5:7-10,
THIS LIST WILL CAUSE TESTS 1,5,7,8,9,10 TO
ALL OTHER TESTS WILL NOT BE RUN.
BE RUN.

e
e
ol e
e
el
—

-t
b = OO O
BN
2O 0~

106

/PASS:DDDDD
/FLAGS:FLGS
/EOP:DDDDD
JUNITS:LIST

EXECUTE DDDDD PASSES (DDDDD = 1 10O 64000)
SET SPECIFIED FLAGS.
FLAGS ARE DESCRIBED
IN SECTION 2.3,
REPORT END OF PASS MESSAGE AFTER EVERY
(DDDDD = 1 TO 64000)
DDDDD PASSES ONLY.
TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED

IN THE LIST.

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

= O D00 NNV

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

EXAMPLE OF

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

WA
VIS NN =2 OO0 ~NO NS NN 2O 000 NN

SEQ 5

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

b D s b

d e
D
D
D
D
d
D
D
d
D
d
D e
d

AN NN N NI N RO NI PRI NI NIN) =

D
D e

N N AN

D
D
D

N N W

b
o
e
d e
e
b

B BB 25 B B W

CZLQPAO LQPSE-F PDP11 DIAG

FASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY.

SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS
FOR EXAMPLE, TYPE ''/TES:1-5"' INSTEAD OF ''/TESTS:1-5"

YOU MAY,

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

]
START
RESTART
CONTINUE

TESTS

PASS

FLAGS

EOP

UNITS

X
X

PROCEED
DROP

X
X

ADD

DISPLAY

FLAGS

IFLAGS
EXIT

FLAGS

2.3

147
148
149

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

‘e

150
151
152
153
}gg

ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE
FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR
ALL FLAGS. WITW THE EXCEPTION OF THE START AND ZFLAGS COMMANDS,
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH.

}gg

FLAG

EFFECT

158
159
160
161
162
163
164
165

HOE

HALT ON ERROR - CONTROL IS RETURNED TO
RUNTIME SERVICES COMMAND MODE
LOOP ON ERROR
(NOT SUPPORTED IN THIS
DIAGNOSTIC)
INHIBIT ALL ERROR REPORTS
INHIBIT ALL ERROR REPORTS EXCEP1
FIRST LEVEL (FIRST LEVEL CONTAINS
ERROR TYPE, NUMBER, PC, TEST AND UNIT)

166
167
168
169
170
m

LOE
IER®
IBR¢

[XR+
PRI
PNT
BOE
UAM

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

172
173
174
175
176
177
178
}gg

ISR

INHIBIT STATISTICAL REPORTS (DOES NOT
APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT
STATISTICAL REPORTING)
INHIBIT PROGRAM DROPPING OF UNITS

IDR
ADR
LOv

EXECUTE AUTODROP CODE
LOOP ON TEST

EVL

181

EXECUTE EVALUATION (ON DIAGNOSTICS WHICH
HAVE EVALUATION SUPPORT)

*ERROR MESSAGES ARE DESCRIBED [N SECTION 3.1

D d e =D D

[aYaRolVe ol e Noll ol e R ol e lole - To To To To To Jo o ]
=2 OOVONOPNEWN=OO0NO
NS W

YOU MAY
SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS.
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH.
FOR EXAMPLE,

D o

TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS
AND TYPE A ''BELL'' ON ERROR, YOU MAY USE THE FOLLOWING STRING:

md b b

b od o

/FLAGS:1ER:BOE

b o

2.4

202

582

HARDWARE QUESTIONS

WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT
THE USER FOR HARDWARE INFORMATION BY TYPING ''CHANGE HW (L) 7'
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

NUESTION WITH A "'Y'', THE RUNTIME SERVICES WILL ASK FOR THE NUMBER

OF UNITS C(IN DECIMAL).

QUESTIONS FOR EACH UNIT.

YOU WILL THEN BE ASKED THE FOLLOWING

205
206
207
208

Q1:

"'CHOOSE PAGE WIDTH FOR THE PRINTER
CHOOSE ONE:
1)80 CHARACTERS PER PRINTER LINE
2)132 CHARACTERS PER PRINTER LINE
1,2) >»

211
212
512

Ql:

"'IF ALL DEFAULT VALUES FOR INTERFACE DESIRED,ENTER *7.
IF DEFAULT DESIRED FOR A SINGLE INTERFACE CHARACTERISTIC
DEPRESS <RETURN>.

209
210

“ENTER CONTROL STATUS REGISTER (CSR) ADDRESS.>>

g}g
%};

Q3:

“FRINTER CONNECTED TO A SINGLE LINE INTERFACE?

219

Q3-A:

"'ENTER INTERFACE CHANNEL NUMBER FOR THE PRINTER.

Sg?

222
223
224
225

(ASKED ONLY IF Q3 WAS ANSWERED BY A ''N'")

SOFTWARE QUESTIONS

226

2.5

228

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

227

n IRV NIAI NI AL NN PN

W NN N (N N VN AN
oo NOWVN
S WO 0

CILQPAQ LQPSE-F

PDP11

DIAG

MACRO v03.01

SEQ 7

7-NOV=80 10:06:10 PAGE &=4

OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOFf TWARE
PARAMETERS.

THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC

OPERATION MODES.
IF

YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING

"Y',

THE

SPECIFIC

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

SOFTWARE QUESTIONS AND

IN THE NEXT PARAGRAPH(S).

THE

DEFAULT VALUES ARE

DESCRIBED

NONE

2.6

EXTENDED P-TABLE DIALOGUE

WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES

IN A TABLE THAT DESCRIBES THE DEVICES UNDER TEST.
"HE SIMPLEST
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 CCMMUNICATION
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST Of

WAY TO BUILD THIS TABLE

THE

ANSWERS ARE REPETITIOUS.

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

# UNITS

(D)

XY11

WITH EIGHT UNITS.

8<(R>

UNIT 1

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

Q-FACTOR

(0)

0 ?

1<CR>

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

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

<(CR>

UNIT &
CSR ADDRESS

160G00<CR>
(0) ?
3<CR>
SUB-DEVICE # (0) ?

Q-FACTOR

(0) 0 ?

<CR>

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

<(R>

UNIT 6
160000<CR>
CSR ADDRESS (0) ?
S5<C(R>
?
(0)
#
ICE
SUB-DEV

CZLQPAO LQPSE=F PDP11 DIAG
286
287
288
289
290
291
292
293
294

MACRO v03.01 7-NOV=-80 10:06:10 PAGE &=5
Q-FACTOR (0) 0 2

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

298
299

NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A
NON-DEFAULT RESPONSE 1S GIVEN.
BE CAREFUL WHEN SPECIFYING

302
303

AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS
00 NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT.
THE PROCEDURE SHOWN IS

306
307

THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER.
LET'S BUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION

%8?

%8?
308

309
gl?

‘

<CR>

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

295
ggg

SEQ 8

MULTIPLE UNITS'

NOT VERY EFFICIENT.
FEATURE.

# UNITS (D)

8<CR>

312
313

UNIT 1
CSR ADDRESS (0) ?

g}g

Q-FACTOR

317

UNIT 3

322
323
324
gsg

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

314

318
319
ggg

SUB-DEVICE # (0) ?
(0) 0 2

160000<CR>

0,1<CR>

1,0<CR>

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

327
328
331

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

341

SPECIFIED IN THE THIRD PASS.

5.
339
132
133
334
335
336
337
338
339
340

ARE BUILT SINCE TWG 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
Yo' 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 S 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

CZLQPAQ LQPSE-F PDP11 DIAG

SEQ 9

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

343

THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS

SHOWN BELOW.

izg

346
347
348
349
350

# UNITS (D)

B<(CR>

UNIT 1

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

%2%

A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY.

353

AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING

gg?

2.7 QUICK START=-UP PROCEDURE

%gg

(XXDP+)

TO START-UP THIS PROGRAM:

ggg

%g?

1. BOOT XXDP+

362
ggz

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

365

3. TYPE ''R NAME'', WHERE NAME [S THE NAME Of THE BIN OR BIC

%gg

4. TYPE "'START"

%;?

5. ANSWER THE ''CHANGE HW'' QUESTION WITH ‘'v*

g;%

6. ANSWER ALL THE HARDWARE QUESTIONS

%;g

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

%gg

FILE FOR THIS PROGRAM

376
377

WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE
DEFAULTS FOR FLAGS AND SOF TWARE PARAMETERS.
THESE DEFAULTS

%g?

3.0 ERROR INFORMATION

ARE DESCRIBED IN SECTIONS 2.3 AND 2.5.

g;g

gg%

3.1 TYPES OF ERROR MESSAGES

384
385

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

THE GENERAL ERRUR MESSAGE IS OF THE FORM:

386

ARE ALWAYS PRINTED UNLESS THE "'IER'' FLAG 1S SET (SECTION 2.3).

ggg

389
gg?

392

NAME
TYPE NUMBER
ERROR MESSAGE

393

395
396
397

.
-,

399

...

394

ON UNIT NUMBER

TST NUMBER PC:XXXXXX

LWHERE; NAME = DIAGNOSTIC NAME

TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFfT)

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 ADD!TIONAL

CZILQPAQ 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

THE ''IER'" OR “'IBR'' FLAGS ARE SET (SECTION 2.3).

THESE MESSAGES

28%

ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE.

404
405

EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA,
THESE ARE ALWAYS

406
407
zgg

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

412
2}2

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

415

CHECK PRINTER ROM.

416
67
4}8

“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
252

“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

"'PAUSE SWITCH PRESSED."

223
4

CHECK THE PRINTER MEMORY.

THE PRINTER FRONT PANEL PAUSE SWITCH HAS BEEN PRESSED.

430
2%;

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

433
434
435

"‘UNDEF INED CHARACTER OR ESCAPE SEQUFNCE RECEIVED.''
AN ILLEGAL SEQUENCE OR CHARACTER HAS BEEN RECCIVED.
CHECK THE ADDRESS OF THE LAST TRANSMISSION WHICH

4«38
439

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

2%9
440
441

442

443

444

445

446

447

IS GIVEN BY THE DIAGNOSTIC.

THIS

ERROR CONDITION MAY BE CLEARED BY SENDING AN ''ESC 6'' T0O
THE PRINTER.

"'SOF TWARE ERROR''

THIS MESSAGE SHOULD NOT PRINT UNLESS THE SOF TWARE HAS

BEEN CORRUPTED.

448
449
450
42;

"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

“EXPECTED CHARACTER NOT RECEIVED FROM THE PRINTER.'

454
455

456

AN XON, XOFF, CAN, EOT, OR ESC WAS EXPECTED BUT NOT
RECEIVED.

CILQPAQO LQPSE-F PDP11 DIAG
L57

458

SEQ 11

MACRO v03.01 7-NOV-80 10:06:10 PAGE &4-8
"'INCORRECT CSR ADDRESS GIVEN.

TRY AGAIN."

THE USER HAS ENTERRED AN INCORRECT CSR ADDRESS OR THE

459

DEFAULT ADDRESSES DID NOT WORK WHEN TRYED.

22?

THE USER

MUST NOW EXPLICITLY ENTER THE CORRECT CSR ADDRESS.

462
222

"'INCORRECT CSR ADDRESS OR CHANNEL GIVEN. TRY AGAIN.'
EITHER THE ADDRESS OR THE CHANNEL IS INCORRECT.

465
L66

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

469
470
“n
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,
WAIT FOR NO MORE THAN FIVE MINUTES BEFORE TAKING ACTION.

476

"FAILED TG FIND PRINTER AT DEFAULT ADDRESSES.

22;

&7
478
479
480
431
4«82
483

CHECK THAT THE INTERFACE CABLE IS PROPERLY ATTACHED.

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.

L84

485

486

487

zgg

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 OFTEN THE END
OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES.

495

NONE

23;

5.0 DEVICE INFORMATION TABLES

ggg

P-TABLE ENTRIES:

496

501
502
503
504
- 505
289

CSRADD

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 ADORESS OF
THE RECEIVER CONTROL STATUS REGISTER IN THE SINGLE
LINE INTERFACES AND THE RECEIVER AND TRANSMITTER
CSR FOR THE DZ11 INTERFACE.

508
509

I00PTN

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

512
513

PTRCHN

g}?

A SINGLE LINE INTERFACE IS ASSUMED.

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

CILQPAO LQPSE-F PDP11 DIAG

SEQ 12

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

g}g

PRINTER.

516
517

LINCHS

518
519

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.

gg?

522

523

6.0 TEST SUMMARIES

5264
525
526
527
528
529
530
531
532
533
534

336

537
538
539
540
541

EACH TEST WILL PRINT THE CURRENT TEST TITLE ON THE PRINTER AS PART OFf
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
THOUGHT TO BE PARTICULARY USEFUL WHEN THE USER IS RUNNING TESTS OULT Of
THE NUMERIC TEST SEQUENCE BECAUSE THE USUAL OVERALL TEST PRINT PATTERN

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

547

CHARACTER IS ONE OF THESE TWO THEN AN ERRCR CONDITION EXISTS AND AN

gz%

WILL BE DIFFERENT.

THE PROGRAM CHECKS TO SEE IF IT IS AN EOT, OR A CAN CHARACTER.

546

ERROP HANDLING ROUTINE IS CALLED.

gzg

550

TEST 1 -

551

552

[F THE

SELF TEST

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

553

954
555
556
557
ggg

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
WITH NO EFFECT TO THE TEST.

560
561

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

gg%
ggg
566
567
568
569

TEST 2 -

ACCEPTABLE PRINTER STATUS WORD.

UNDERLINE / NO UNDERLINE MODE TEST

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

CZLQPAQ LQPSE-F PDP11 DIAG
g;%

573
574
575
576
577
578
579
gg?
gg%

MACRO v03.01 7-N0OV-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 T0 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=?
IS A HIT COUNT OF THREE.

TEST & -

CARRIAGE POSITIONING TEST

584
585
586
587

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

589
590
gg;

PRINTER. THE VALUE N IS PROPORTIONAL TO THE SPACE SIZE
AND MAY BE POSITIVE (RIGHT MOVEMENT) OR NEGATIVE (LEFT
MOVEMENT) .

588

232

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

TEST 5 -

595
596
597
598

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 -

605
606

PRINT.

TEST 7 -

611

IN A ''SWIRL PATTERN',

TEST 8 -

616
g}g
2}8

626
627

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 -

621
23%
6%2

PRINT A SWIRL PATTERN

THE COMPLETE CHARACTER SET IS PRINTED ONE LINE AT A TIME

g}%

g}g

PRINT ONE LINE OF EACH CHARACTER

ONE LINE OF EACH PRINTABLE CHARACTER WILL BE PRINTED TO
CONFIRM THAT ALL POSITIONS ON THE PRINT WhEEL WILL ACTUALLY

607

608
ggg

PAPER POSITIONING TEST (VERTICAL)

THE VERTICAL SPACING IS ADJUSTED IN THIS TEST BY SENDING
THE SEQUENCE "'ESC N 9'' WHERE N IS PROPORTIONAL ') THE VERTICAL
SPACE SIZE.
IN THIS TEST A LINE OF CHARACTERS WILL BE PRINTED
AND A CARRIAGE RETURN - LINE FEED TRANSMITTED. T4E VERTICAL

599
600
68;

ggz

SEQ 13

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 DEFINED BY THE
USER. THE TEST S ENDED BY ENTERRING QCRETURN>,

- .

B
CIZLQPAQ LQPSE-F PDP11

DIAG

MACRO v03.01

7-NOV=-B0 10:06:10 PAGE 4-11

TEST 11

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

THIS TEST WILL WAVE 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 [T BY
IN MANUAL MODE THE
ACTION TAKEN AT THE OPERATORS CONSOLE.
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.
tHE PROCESS IS THEN REPEATED WITH THE REAR TRAY FEEDING WHICH

?:gU%DTaUTOHATICALLY EJECT THE PAGE IN THE PRINTER FROM THE
N

AY.

SEQ 14

c
CIZLQPAQ LQPSE-F POP11 DIAG

002000

.=2000

e
d
—

SVCINS=
SVCTST=
SvisSuB=
SVCGBL=
SVCTAG=

MCALL
SV(C
BGNMOD

002000
002000

NN
2OV
S U

.ENABL
. ENABL

000001
000001
000001
000001
000001

ABS
AMA

Sv(

LIST
LIST
LIST
LIST
LIST

;

INITIALIZE

SUPERVISOR MACROS

INSTRUCTIONS, SHIFTED RIGHT
TEST TAGS, SHIFTED RIGHT
SUBTEST TAGS, SHIFTED RIGHT
GLOBAL TAGS, SHIFTED RIGHT
OTHER TAGS, SHIFTED RIGHT

002000

POINTER

ERRTBL

002000

HEADER

(2LQP,A,0,240.,0,PRIO07

« 002000
+ 002000

SEQ 15

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

000000

PONIPONOND
=2 b o
b d e b b

2O O00NON N

NN =

PROGRAM HEADER

MACRO v03.01

: :
LSNAME

002001
' 002002

002003

LSREV::

060

000000

000360

024406
000000
002160
000000

025234

000000
000000

002034

000000

LSDEPO:
:
LSUNIT::

LSTIML::
LSHPCP::

LSSPCP::
LSHPTP::

LSSPTP::
LSLADP::

LSSTA::
L$CO::
LSDTYP::

/C/
//
L/
/Q/
/P/

0
0
0

/0/

240.
LSHARD

0
LSHW

0
LSLAST

0
0

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

25
26

002072
002072
002074
002074
002076
00207¢
002100
002100
002102
002102
002104
002104
002106
002106
002110
002110
002112
002112
002114
002114
002116
002116
002120
002120

MACRO Vu3.01

7-NOv-80 10:06:10 PAGE

SEQ 16

5-1

LSAPT::

000000

L$DTP:

002124

LSPRIO::

000340

LSENVI::

000000

LSEXP1::

000000

LSMREV::

003
003

LSEF::

0000G0
000000

LS$SPC::

000000

LSDEVP::

010102

:
LSREPP:

000000

:
LSEXPL:

000000

LSEXPS::

000000

LSAUT::

000000

LSDUT::

000000

LSLUN::

000000

LSDESP::

010150

LSLOAD::

104035

LSETP::

010072

LSICP::

015522

L$CCP::

017456

LSACP::

017454

L$PRT::

015514

LSTEST::

000000

LSDLY::

000000

LSHIME::

000000
.SBTTL

DISPAT(H TABLE

.WORD

LSDISPAT(H

.WORD

PRIO7

.WORD

.BYTE
.BYTE

CSREVISION
C$EDIT

.WORD
.WORD

0
0

.WORD

LSOVTYP

.WORD

L$DESC

EMT

ESLOAD

.WORD

LSERRTB!

.WORD

LSINIT

.WORD

LSCLEAN

.WORD

L$AUTO

.WORD

LSPROT

.WORD

E
CZLQPAQ LQPSE-F PDP11 DIAG

DISPATCH TABLE

MACRO v03.01

SEQ 17

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

2
3

.SBTTL

DEFAULT HARDWARE P-TABLE

T2
13
T4

Té

17
T8

19
el

.W0PD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

—

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

.WORD
LSDISPAT(H::
.WORD

WA
— O

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

DISPATCH 13

000015

——
— —4

5 002122
002122
002124

CILQPAQ LQPSE-F PDP11 DIAG

‘DEFAULT HARDWARE P-TABLE
i

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

;00
: THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF
: THE TEST=DEVICE PARAMETERS.
THE STRUCTURE OF THIS TABLE
: 1S IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES,

2
3
4
5

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

8
9 002156

002156
002160

000004

11 002160

000000

BGNHW

DFPTBL

LSHW::
DFPTBL::

10 002160

12 002162
13 002164
}g 002166

16
17 002170

18 002170

SEQ 18

000001
000000
000001

.WORD

.WORD
MOKD
.WORD

1
0
1

;CSR ADDRESS.

L10000-LSHW/?2

IF = 0 THEN AUTO=-SETUP MODE [S ASSUMED.
:1=""Y"", 170 OPTION IS SINGLE LINE (NON-DZ11) [NTERFAC(E
;PRINTER CHANNEL DEFAULT IS CHANNEL O.
;LINE SIZE CHOICE.
1=B0 CHARACTERS/LINE

ENDHW
LTITLE GLOBAL AREAS

LWORD

.SBTTL GLOBAL EQUATES SECTION

L10000:

MACRO v03.01
GLOBAL AREAS
.
GLOBAL EQUATES SECTION

SEQ 19

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

2 002170

EQUALS

s BIT DIFINITIONS
100000

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

001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

BITi5==
BIT14==
BIT13==
BIT12==
BIT11==
BIT10==
81709==
BI1708==
81107==
BIT06==
BIT05==
BIT04==
81703==
BIT02==
BIT01==

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

BIT9==

BIT09

B1T7==
BIT6==
BITS==
BIT4==

BIT07
BIT06
BIT05
BITO04

81700== 1
RIT8==

BIT3==
BIT2==
BIT1==
BIT0==

BITO8

BIT03
BIT0Z
BIT01
BIT00

. EVENT FLAG_DEFINIT]ONS

;
000040
000037
000036
000035
000034

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION
32.
31.
30.
29.
28.

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

; PRIORITY LEVEL DEFINITIONS
000340
000300
000240
000200

000140
000100
000040
000000

PRIO7==
PRI06==
PRIOS==
PRIO4==
PRI03==
PR102==
PRI01==
PRI00==

340
300
240
200
140
100
40
0

;OPERATOR FLAG BITS
000004

Evi==

;
.
:
.
;

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

nnnnn
W

e O po X«
J dud Gt Gremg >
>wn o =& =]
OOM®
X X ZO
MM OMMi—~
M BDC O —

40000
100000
DECIMAL VALUES

NUM13

NUM14
NUM15

ECNRB
UCRB

SN BN
B8 08 B N N N NN NN
NOWVNES W
=2 OO0 ~NO NN

[]
L]
L]
.

NUM?
NUM8
NUM9
NUM10
NUM11
NUM1?2

[]

NUM5

NUMé6

NUMé

[aS IV ]

020000
010000

NUM3

—

000012
000013
000014
000015
000016
000017

NUM1
NUM?

;MNEMONICS FOR ESCAPE SEQUENCE ARGUMENTS.

— e d d = b O OO NON
LS NN
WL
NN =2 O
o

000001
000002
000003
000004
000005
000006
000007
000010
000011

HEXF

—

000053
000054
000055
000056
000057

lERO

ONE
TWO
THREE
FOUR
FIVE
SIX
SEVEN
EIGHT
NINE
HE XA
HEXB
HEXC
HEXD
HE XE

Lol ad

000040
000041
000042
000043
000044
000045
000046
000047
000050
000051
000052

100000

PONINAY —

—d

N = OO0 N

bbb

VNN

d e

= OO 00 NO N SN

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

SEq (¢

7-#Jv-80 10:06:10 PAGE 8-1

p o TM~ ot ot

MACRO v03.01
GLOBAL AREAS
GLOBAL EQUATES SECTION

GLOBAL AREAS

SEQ 21

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

GLOBAL EQUATES SECTION
7

?8
-

002000

MXLF

.SBTTL

=2000

;MAXIMUM LINEFEED SIZE.

GLOBAL DATA SECTION

DECIMAL 2048x1/48 INCHES

GLOBAL DATA SECTION
1

: IN MORE THAN ONE TEST,

;: THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED

7 002170
8 002172
9 002174
}? 002176
12

}2 002200

16 002202

}g 002204

20 002206
21

001200
001031
000760
000000

SKP14:
SKPA4:
SKP11:
CRNTSK:

000000
000000

000000

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

CSRADD:

.WORD

:ADDRESS OF CSR REGISTER

LOGUNIT:

.WORD

;LOGICAL UNIT NUMBER

PLOC:

.WORD

000000

GREASE: .WORD

22
23
24

:
.

27
28
29
30
31
32
33
34
35
36

:
:
;
;
;
:
:
;
;
:

§§

42 002210
43 002212

033
033

060
065

45 002214

012

033

066

47 002224
48

076

;ADDRESS OF HARDWARE P-TABLE

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

ESCAPE SEQUENCE TRANSMISSION TABLE

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 1ABLE
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 USE A 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 RZ2.

STSRES: .ASCII
HITLSP: .ASCII

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

DUMMYS: .ASCII

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

RESET:

<033>/6/

.ASCII

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

22 BYTES. RESET INTERFACE, SHEET FEEDER
PRINTER. RECEIVE STATUS
;

RESPONSE AND ‘'XON'' CHARACTER.

s BYTES. ACCUMULATE VERTICAL SPACES.

;S BYTES. ACCUMULATE HORIZONTAL SPACES.

50 ggggg?

823

8??

040

VRTCLS: .ASCII

51 gggggz

823

ggg

040

HRZITLS: .ASCII

<033>/

52 002240

033

041

075

RIBPOS: .ASCII

<033>/'=./

056

9/ ;DUMMY SEQUENCE FOR PRINTER INTERFACE
:RESET SEQUENCE

<033>/

002243

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

GLOBAL AREAS

SEQ 22

:3 BYTES. SET RIBBON POSITON- DOWN.

GLOBAL AREAS

SEG 23

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

GLOBAL DATA SECTION

;

€ ONE EXTRA CHARACTER FOR TEST 11.

;5 BYTES. SET CHARACTER SIZE. 10 CHR/IN

‘'A/

54 88%%2;

82;

?8?

040

STCHSZ: .ASCII

<033>/

SS 88%%%1

?83

040

050

STLNSZ: .ASCII

<033>/ (B/

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

56 002255

033

103

SLFTST: .ASCII

<033>/C/

;2 BYTES. DO A SELF TEST. SEND STATUS

58 002257

033

040

106

047

STHTCT: .ASCII

<033>/ 0/

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

60 002266
61 002271

033
033

040
040

107
0640

STULMD: .ASCII
STPGSZ: .ASCII

<033>/ G/
<033>/
M/

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

62 002276

033

040

SLTPFF: .ASCII

<033>/

59 88%52%

002274

002301

?82

040

041

110

112

STSPSZ: .ASCII

-AND SEND XON.

<033>/ '/

'J/

;4 BYTES. SET SPACE SIZE.

10 SPACES/IN

;5 BYTES. SELECT TRAY AND PERFORM FF.

;

SELECT FRONT TRAY AND EJECT.

65 002303

033

056

SETHTO: .ASCII

<033>/...D/

;SET WIT COUNT TO O HITS. S BYTES.

29 002310

033

040

101

SETCHO: .ASCII

<033>/ A/

;SET SPACE SIZE TO ZERO.

LASCIT

<015

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

002306

68 002313
gg 002314
71

72 002315

056

104

CR:

015

012

LF:

ASCIT

<012>

033

040

0640

STATUS: .ASCII

<033>/

75 002322

042

043

041

PSIAL:

ASCII

/''#'/

;g 002330

0642

052

040

PS214:

.ASCII

/'« /

002320

;g 002325

040

042

060

041

040

80
81
82
83
84
85

PSZ11:

;
;
;

88 002333

045

89 002366

045

002336
002341
002344
002347
002352
002355
002360
002363

002371
002374
002377
002402
002405

.ASCII

/'t /

:1 BYTE FOR LINEFEED ONLY.

;STAUS SEQUENCE TEMPLATE.

;PATTERN: TWO THREE ONE IN HEX

;PATTERN: 11 INCHES PAGEZEééEILUSEONE
:

;PATTERM: 14 INCHES PAGE SIZE

ASCII STRING MESSAGES, TEST TITLES

sTITLE FOR TEST 1.

116

045

TITLE1: .ASCiZ

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

116

045

TITLE2: .ASCIZ

/XNXATEST 2 = UNDERLINE/<0S7>/NO-UNDERLINE MODE TEST/<015><012>

116
124
124
040
123
106
105
015

045
105
040
055
105
040
123
012

101
123
062
040
104

124
124
040
125
105

101
123
061
040
114
124
124
000

105
040
055
116
122

bbb

R
Y oB P

VIV =2

o WVIONI W=

[« PP PPV P ¥ . T
)
ONINY
=2 s O &> =b =t
OB
-2NO =2

002567
002572
002575

;TITLE

FOR TEST 2.

LASCIZ

/ANXATEST 3 - HAMMER HIT COUNT TEST/<015><012>

.ASCI2

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

LASCIZ

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

2 OO SN =O—=2OWNHO

R
[ T e
TM St

= 2 OIS NI =
N OO N2 OVIOO SO

94
95 002564

— e (D —d D b —d ek
NNO S —=ON)——
PO =N

=2
=2 O =2 O NN
NWNONWMES SN

OO
b d OO

S ON =PI =2 =PI
—
VIS NS OWVOOS
SO0

e RDTM
Lt

O
= =2 2NONO
SN =
OSSO N—20NNIWOSsr~O

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

TITLE3:

Oded ed cd O

[ YOO W QST QU S
W
S
OO =N\ —h

92
93 002513

-l

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

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

[T Y = P

90
91 002446

Odedcded
ed ed d OO = = O
QMNIN = O =N =2 OO S
O
SO NS NONOWW
=N

002410
002«13
002416
002421
002424
002427
002432
002435
002440
002443

SU P
O —»
NN OO NN

MACRO v03.01
GLOBAL AREAS
GLOBAL DATA SECTION

SEQ 24

TITLEG:
-~

TITLES:

GLOBAL AREAS

SEQ 25

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

GLOBAL DATA SECTION

97 002645

002650
002653
002656
002661
002664
002667
002672
002675
002700
002703
002706
002711
002714
002717
002722

98
99 002725
002730
002733
002736
002741
002764
002747
002752
002755
002760
002763
002766
002771

100
101 002772
002775
3000
_
W303
© 003006
003011
003014
003017
003022

003025
003030
003033

003036
003041
003044

102
103 003046

003051
003054
003057
003062
003065
003070
003073
003076

;TITLE FOR TEST 5.
/XNZATEST 6 - PRINT ONE LINE OF EACH CHARACTER/<015><012>

126
040
120
116
117
040
116
117
105
110
110
101
105
012

045
105

TITLE6: .ASCIZ

123
066
040
111
040
105
111
040
040
103
103
122
126
015

116
126

045

116

045

TITLE7: .ASCIZ

;TITLE FOR TEST 6.
/XNXATEST 7 - PRINT A SWIRL PATTERN/<015><012>

TITLE8: .ASCIZ

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

TITLE9: .ASCIZ

;TITLE FOR TEST 8.
/XNSATEST 9 - PRINT RANDOM CHARACTERS/<015><012>

045
101

040
0S5
122
124
116
114
105
106
101
040
10
103
122
000

101
123
067
040
111
040
123
122
120
126
116
000

126
124
040
120
116
101
127
114
101
105
015

105
040
055
122
124
Q40
1N
040
124
122
012

045

116

045

015

101
123
070
040
122
040
123
122
111
115
111
040

1264
126
040
127
123
103
105
101
104
17
17
126

012

000

045

116

123

101
123
071
040
111
040
116
115

124
124
040
120
116
122
106
040

105
040
055
117
124
101
040
120
040
12
116
105

045

105
040
055
122
124
101
117
103

GLOBAL AREAS

SEQ 26

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

?8?

003272

123

O
OWSN

Ot
—d b

'
;TITLE FOR TEST 9.
/XNXATEST 10 - PRINT OPERATOR SELECTED CHARACTERS/<015><012>

.ASCIZ

/ENTER STRING. Q TO EXIT TEST.

;TITLE FOR TEST

10.

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

Db d B

Qbbb b ed e

b ed ek ed ad D OO =4O

AN ==L S O
OV OOOMN
OOOWWN
OWES
N WL NN
- NP
=N =2 SN
N = NIOMN SN
NNOVNVIONOOWOON=NMNIO
S

NNW—-O
N~ SO

PRMPTA:

.ASCIZ

OOt ed ed

=2NN00

NN
VIO =00
£H00

O
OO S St
QO

2 OB

=2NNOOSNN22D2NNOS 220N

WVIN=OH WSO SNV

109 88%%2#

~N ~ o VONC NS =NIN—=
B NS OO
N0
VIO~
8~ 8 » (=] VIO

O
00

105
122
056
000

TITLEA:

e vl el el
D) e ek =2 OO = O
=S POOMNIN—
O NIN =SSO
N =2 O =
NON OOV

108

003241
003244
003247
003252
003255
003260
003263

Ot
Oed O A
b b DO bbb
d

003203
003206
003211
003214

i i ol el
e
——00 — b b
=
O =N
C) =t =t N) co&O IR
WNNI
NN NN=O &oo— s sO0n

107 003200

O OSSO0
NNV

106

003123
003126
003131
003134
003137
003142
003145
003150
003153
003156
003161
003164
003167
003172
003175

O
bbb ed e e d b b DO PO
—O00—=000NONNNVONIOSNS

105 003115
003120

Odad O
e DO
b bt
S =OS NN N2NNOO

003101
003104
003107
003112

VWN=0

GLOBAL DATA SECTION

TITLEB: .ASCIZ

;PROMPT FOR TEST 10.

/XNXATEST 11 - LIFT/<57>/DROP RIBBON BY OPERATOR CONTROL/<015><012>

) b b[

112 003375
003400

003403
003406
003411
003414
003417

113 003421

003424
003427
003432
003435
003440

114 003442
-

003445
003450
003453

115 003466

003456
003461
003464

003471
003474
003477
003502
003505
003510
003513
003516
003521
003524

003527
003532
003535

003576
Y vy oo—.d-ao—b.a-b—bo-ao_.—no_a_ao—lo_ao_n.a_ao_ao_._.n_a_ao_.o—._a_ao_a_a

003351
003354
003357
003362
003365
003370
003373

d d

d O

C=—aWV

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

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

JASCIT

<012><015>

NN »H O

ALBV
LV, LV, ]

ek O

NN = =2 N

JASCIZ

N=SANO = W= OO S VNO

RO NO —

— e

O—=0O0OWN

LASCII

[ X
R
W
Y
S OMNINY
—
(=1
JV 100 o)

et b Ol et ed O
O OOt
=
Y
. S =P NDB VOB NP ON—

D) b —b >

O=H 20—

NONOOWNN

—.—‘—‘o—'-‘-flo—'—.—‘o—‘—.—.—‘—-‘—.—.oo—‘—‘—‘—'—.o—‘o—‘—‘oo—’o—‘—‘—'ooooo—‘—‘—‘
ON- V=2t ONNINO D =2 =2 OO0 =000 NNINDN LD D ORNDD 2O SN=0OR 28NN
NNOSO-VNOVINIWVO
SOV
=2 =00 VINO N NS OWVMWVNON SO R N—2ONOONNWO

LASCII

OO
SNNOS 20O

DO SO
N et
O =O =N

NI N—-2OMNOL OB N
2NN
O
DD PO
= DONNSO=2NOON O
—~ OO 22O S NN B
OOWO SOV WOLSOWVMWVMNOSESSOWVMWNNESEOCOONWVNWS
SO NN =S NONW
NN = NN [= ¥ ¥

———

pry N
w0

O = b
O
O

NNO

O~ =

003341
003344
003347

s et

&»
o

.
W

(=4
o

GLOBAL AREAS

—d e el

1.4
N

L=
o

GLOBAL DATA SECTION

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

PRMPTC:

JASCII

S0 &7

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

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

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

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

;TITLE FOR TEST 11,

SEQ 28

O — [ P Y o PO PETY o, P g
Hr SO
NS NO —
O NN
o~ OWO

<012><015>

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

LASCIZ

.ASCIZ

/XNXATEST 13 = CUT SHEET FEEDER EXERCISOR/<012><015>

MNON NS

NN —

Ui SR R
Y
= —d =2 O —

TITLEC:

/XNYATEST 12 - BIDIRECTIONAL FORMS TRACTOR/<012><015>

[ Y
PP
S AN

ONW VIO =22 NS OSSO
WO
O S OWSSO0r

el
D b d D
PPNy . Y
i i Y o ]
OB OOOMNMNIWV
- NO B O N
NN

—
—

r~no

003725

003730
003733
003736
003761
003744
003747
003752
003755
003760
003763
003766
003771

004023
004026
004031
004034
004037

[« PPy, Wi SISy P Y
s g QEVY Y = ¥ « PR Y o P IS BRI
Y
=]
N = = NN = ONINNINO = = S5 3 =2 N =2 NO VO NN — B
OO S D O NN = S NNNIONNIO
S NSNS SO

D OO D b D

ONON—=OO—-OONONIN)

003717
003722

003773
003776
004001
004004
004007
004012
004015
004020

.ASCII
LASCII

;PROMPTS FOR TEST

DD B D d

003677
0037902
003705
003710
003713
003716

e e e e e e e

003674

laS A" COON—=NHONIN—

003601
003604
003607
003612
003615
003620
003623
003626
003631
003634
003637
003641
003644
003647
003652
003655
003660
003663
003666
003671

O Pt b ed ed D D D D A D
el B e D OO =h D b
SRS NINOO 2ONO—LOONN
B
220
OO WHWOMNWVNEO
= =2ONNE S =000 N—

-l

MACRO v03.01 7-NOV~80 10:06:10 PAGE 9-6
GLOBAL AREAS
GLOBAL DATA SECT]ON

;TITLE FOR TEST 12,

TITLED:

004267
004272

004275
004300

[ P
PN
IF Y, RV YT SO S S ¥ o JE S
g
e
V=N —=2ON S OO0OONOFTONINOO
OB
=2 PNONO SO VNN NOWES &&=

Ot e e e O b
e —d d A D 2 2 DO > 2 b
2O =200 =200 0O0ONO 20N
O
ACANON = NN SO NN NN =2 NV NN S NO S -2 —

;TITLE FOR TEST 13,

LASCII

/SPECIAL TEST: CUT PAGE SHEET FEEDER MUST BE INSTALLED./<12><15>

.ASCI!
LASCII

<12><A15

LASCII

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

ASCII
LASCI]

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

JASCI]

/WHAT 1S THE PAGE LENGTH?

o S, ONNION

PRMPTD:

-—

2 VOOoOOWMWNES

OO DO
-

O = OO
-

O —
[«],8]
on

015

—_-OOO==OO
SO S OO
[o 9
DNV
= O

131

132

004220
004223
004226
004231
004234
004237
004242
004245
004250
129 004251
130 004253
004256
004261
004264

004201
004204
004207
004212
128 004215

004143
004146
004151
004154
004157
004162
004165
004170
004173
004176

004140

012

Ot
O —
N —b —t ON =2

~NO

b
-

nro

004112

004115
004120
004123
004126
0061
004134
004136

SEQ 29

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

—=-OOD
=2 OO0O
Y N S
P
Yo W
—~ OO
= = OWN

004057
004062
004065
004070
004073
004076
004101
004104
004107

[ Yo P PIY , PP
PP SIS
Y o Y W
QU P
QU G e Qe Sr S gy GV Y . P QI QU GO 4
VNN =S NOON 2NN =200 —20ON 200N =0ONNINO—-=ON)
SN
OSTVVIOOWSE NN
SO NSNS O WVNOWIN W B NW

004046
004051
004054

S VOO SN0 —
O WNNINNO NN

004042
004045

CO—= =200 =0

b
—

[aS 13

MACRO v03.01
GLOBAL AREAS
GLOBAL DATA SECTION

=14 INCHES/<012><015>

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

~A4

(EUROPEAN STANDARD)/<012><015>

JASCII

/SPECIAL TEST:/<12><15>

.ASCII

/THIS TEST

LASCII

/TRACTOR ONLY./<12><15>

LASCIZ

/ENTER <RETURN> TO CONTINUE.../

LASCI

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

aded

b e

—

SN =2NNO—OH—O
NN
N = NN SO
W

CASCIZ

IS FOR PRINTERS WITH THE BIDIRECTIONAL FORMS /

D
d
D i

D e

i () e

T11PMT:

b e
el
—

O —d d d b
OO
= =00 — D
N— = O
QN
=2 s 2~ BN OB
OO CON WO SV = N~ —

O~
—

d e

Ot Dt e ed O
O = O =t 2 OO == OO
=0 O =2 OO =
SO
O=NS ==
-2NVOWVOO OO S ——
OWN= OO0 =2 HNOOMNINO 200 = 4 —20OWVNMNO-20MNO
b
b
e

—0O0O—

—

NN WNVO NS WEB OSSNV ONIWESONOORSN2VNO
2N

124

o_._no_.—no_a_o—n_ao_._._.—.o_oo_o—n
=PI NA) =N
= =2 s NINON) = = a2 BN PON
OO
NN
NYNO VNN SO SN

122

Ot et Ot =t Qb et ed =2 2 O = =0 O =2 — PEPIIY . P o T PV PR PR DRV Y, P G
=2MNON) O
—=2MNON
SO OOWVNIINON
=N NOO WM =N OIS

004303
004306
132 004311
004314
004317
004322
004325
004330
004333
004336
004341
004344
133 004346
004351
004354
004357
004362
134 004365
004370
004373
004376
004401
004404
004407
004412
004415
004420
004423
004426
004431
004434
004437
004442
004445
004450
004453
135 0046454
004457
004462
004465
004470
136 004473
004476
004501
004504
004507
004512
004515
004520
004523
004526
137 004531
004534
004537
004542
004545
004550

O
b b B A D) P DD b OO >
NI NO =ON - OON) =N
NOMNO
WS POV
WA
B B
O OO W NN

GLOBAL AREAS
GLOBAL DATA SECTION

SEQ 30

7-NOvV-80 10:06:10 PAGE 9-8

N
=
OO = =N ===
=2NINVOO
WNESNW—LNVOO
NN ONWE S =S
=W

MACRO v03.01

NPRMPT:

SOV NONONNO
S

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

_ASCI]

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

LASCII

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

_ASCII

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

=2 N O0OO0O N N—
= VAW OCOOOOONT

= OO0

LASCIZ

FTYTPM:

NO
VIN =2 N = S OO OWVIONWNO = 8

22O ——=O
ENNOO LR —2ON B WNLRONN

ed e e ah b (D el e b (Dt B DD Db B OB
D DO
b
)= O =t =t O
B OO S OO —ON=2ON S NNOO =2 BN

040
107
123
125
040
126
103
105

d b D) b

004737
004742
004745
004750
004753
004756
004761
004764
004767
004772
004775
005000
005003
005006
00501
141 005014
005017
005022

124

140 004734

040
105
10
056

m atON = 2O PN = 2O

004657
004662
004665
004670
004673
004676
004701
004704
004707
004712
004715
004720
004723
004726
004731

139 004654

ORI

004647
004652

- Pl

004644

040
_no—bo_oo—.o_._no_a-a_a—n_‘_._.—bo..‘o_.—o—n—hoo—n—l_a_o_ao_ao_ao_a_no_o_o_h_a_ao_a_o_a_._._o

004617
004622
004625
004630
004633
004636
0046461

[ P
G
S
ST R
G
G
S
QN
Y, Yo QI G
R
Y o, PE D Y o, P
I, PRV PRV Y o, SRV PR RV Y e R
SENVN=2NVO=2NO
=2V NONONI NNV
OOWVO 250220 N
OO OCONSTOWSOWNVEVNESOWVMININDWVMWVONVNOONN—2VO
— N

138 004614

— vl i ) b e d = O b
= POV
O SN
OWS OIS NOWVON

004553
004556
004561
004564
004567
004572
004575
004600
004603
004606
004611

PFEY o Yo P P
Y
Y
P
Y o P PR Y o, PEFY o, W i guer DEe P §
NORD =2 B8 SBPONEN) =2
=2 PN
ON) AP —

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

~n N2t

MACRO v03.01

GLOBAL DATA SECTION

NOORN 2O NO R NONNO FPOVNOONNO & NNNOO R NMNME NOOOWOONMNINIT =RIC RO~ — ~O R

GLOBAL AREAS

31
SEQ

RTYTPM:

GLOBAL AREAS

SEQ 32

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

GLOBAL DATA SECTION

005025
005030
005033
005036
005041
005044
005047
005052
005055
005060
005063
005066
005071
142 005074
005077
005102
005105
005110
005113
005116
005121
005124
005127

114
102
120
116
104
126
110
124
040
040
105
10
056
124
040
107
123
125
040
126
103
105
122

106
105
122
124
040
040
105
117
117
124
040
107
012
110
120
105
110
114
110
105
117
040
117

040
040
M
105
101
126
040
120
106
110
120
10%
01%
105
101
040
117
104
101
040
115
106
115

005135
005140
005143
005146
005151

105
105
040
101
040

040
101
124
131
012

122
122
122
056
015

005132

143 005154
005157
005162
005165
005170
005173
005176
005201
005204
005207
005212
005215
005220
005223
005226
005231
005234
005237
005242
144
145

040

045
101
m
116
124
123
104
101
040
040
11
105
040
m
105
116
040
101
056

1264

116
127
124
107
117
105
040
124
124
120
116
122
120
116
122
117
122
104
045

LASCII

/THE PAGE SHCULD HAVE COME FROM THE REAR TRAY,

_ASCIZ

/XNXAWAITING TO SEND DATA TO PRINTER. PRINTER NOT READY.%/

110

045
101
11
040
040
116
104
101
117
122
124
056
122
124
040
124
105
131
000

WTISTPM:

.EVEN

}29
148 005246

000000

MSGADD:

151 005254
152 005256

176500
176010

DLDFLT: .WORD
DIDFLT: .WORD

149 005250
150 005252

/<12><15>

000000
000000

TRXADD:
BAUDRT:

.WORD

.WORD
.WORD

;HOLDS ADDRESS OF A MESSAGE

176500
176010

;DEFAULT CSR ADDRESS = SINGLE LINE
;DEFAULT CSR ADDRESS = MULTILINE,

204 005730
205 005736
206 005744
207 005752
208 005760
209 005766

000226
000264
000322
000360
000416
000000
000036
000074
000132
000170

P
S
S
S
G
G
e e Y S P P P
o el e ¥ XV 1,N]
—
b
D S OO
NSOV
b OO
N
P B Y e T o XV, P 38 -—d ad e S ODON
NN 20O~
W
=2 O ~NO~

2 OO0

2
d e

8RS
W

mdu
¢
L]

;VALUE AND THE ACCESS INDICATOR.
;THE ROW NUMBER AND THE COLUMN NUMBER
sARE WORDS AND THE ASCII

VALUE

JACCESS INDICATOR ARE BYTES.
;FORMAT

IS AS FOLLOWS:

AND

THE

....................................

...................................

;TABLE ENTRY - 3 WORDS, INCLUDES THE
;ROW #, THE COLUMN #, THE ASCII

...................................

L]
.
L[]

[

L)
e

..0.,10

WSS
AN = O

[

000113
000114
000104
000105
000106
000107
000110
000111
000112
000113
000114
000115

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WOKD
.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
.WORD
.WORD
.WORD
.WORD
.WCRD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

000112

BASET:

OS
—

005700
005706
005714
005722

000101
000102
000103
000104
000105
000106
000107
000110
000111
000112
000102
000103
000104
000105
000106
000107
000110
000111
000112
000113
000103
000104
000105
000106
000107
00u110
000111

200
201
202
203

000000
000036
000074
000132
000170
000226
000264
000322
000360
000416
000000
000036
000074
000132
000170
000226
000264
000322
000360
000416
000000
000036
000074
000132
000170
000226
000264
000322
000360
000416
000000
000036
000074
000132
000170
000226
000264
000322
000360
000416
000000
000036
000074
000132
000170

.WORD

S
S
N
S
L V2 . T T
T
T
e
e FI
b
e d B (DD
b ed DB ek OO
AR
d d kb b 2 O ~JO
—d D D d b d = O AN
e I

198 005664
199 005672

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000014
000014
000014
000014
000014
000014
000014
000014
000014
000014
000030
000030
000030
000030
000030
000030
000030
000030
000030
000030
000044
000044
000044
000044
000044
000044
000044

DFAIL:

[
— ek et O
b
D ]

—d omd el e

med

)

id el e

)

nd b

D e

d o

D e

005304
005312
005320
005326
005334
005342
005350
005356
005364
005372
005400
005406
005414
005422
005430
005436
005644
005452
005460
005466
005474
005502
005510
005516
005524
005532
005540
005546
005554
005562
005570
005576
005604
005612
005620
005626
005634
005642
196 005650
197 005656

000000

~N~O
oon)

TN
LSSV

(o=l
=lale)

D
D
D
d

v VNN
O
0O
O O 00 000000 00 00 0o 0o 00 00 Co NNNNNNNNNNOOOOONONONONO
NN
WA =20V
~No v
VS W
=2 OV
NONWVES W
O V00 NON NS NP) — OV

152 005260

SEQ 33

7-NOv-80 10:06:10 PAGE 9-11

e
POMNON
= =2 B OONNO
v s
N2 OWVMINUOOO
—
VO NOOOOOOO.
»
e s v
s
O
OO
¢
o
o
o
o

MACRO v03.01
GLOBAL AREAS
GLOBAL DATA SECT]ON

...................................

ASCI1 BYTE FOR PRINTING

(THE NUMBER TO THE RIGHT IN THE ABOVE
FIGURE IS THE BYTE OFFSET FROM THE
TABLE

ENTRY ADDRESS.)

GLOBAL AREAS

SEQ 34

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

GLOBAL DATA SECTION

210
211
212
213
214

005774
006002
006010
006016
006026

000074
000074
000074
000074
000074

000226
000264
000322
000360
000416

000113
000114
000115
000116
000117

.WORD
.WORD
WORD
WORD
WORD

60.,150.,113
60..180..114
60..210..115
60..240..116
60..270..117

217 006046
218 0060564

000110
000110

000074
000132

000111
000112

WORD
"WORD

72..60..111
72..90..112

215 006032
216 006040

219 006062
220 006070
221 006076
222 006104
223 006112
224 006120

225 006126
226 006134
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
264
245

006142
006156
006156
006164
006172
006200
006206
006214
006222
006230
006236
006244
006252
006260
006266
006274
006302
006310
006316

000110
000110

000110
000110
000110
000110
000110
000110

000124
000124

000124
000124
000124
000124
000124
000124
000124
000124
000140
000140
000140
000140
000140
000140
000140
000140
000140
000140
000154

266 006326 000154

000000
000036

000170
000226
000264
000322
000360
000416

000000
006036

000074
000132
000170
000226
000264
000322
000360
000416
000000
000036
000074
000132
000170
000226
000264
000322
000360
000416
000000

000107
000110

WORD
WORD

000113
000114
000115
000116
000117
000120

JWORD
WORD
JWORD
JWORD
JWORD
JWORD

000110
000111

"WORD
WORD

000112
000113
000114
000115
000116
000117
000120
000121
000111
000112
000113
000114
000115
000116
000117
000120
000121
000122
000112

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

000036 000113

247 006332
248 006340
249 006346
250 006354
251 006362
252 006370
253 006376
254 0064064
255

000154
000154
000154
000154
000154
000154
000154
000154

000074
000132
000170
000226
000264
000322
000360
000416

258 006412

040

"WORD

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

000114
000115
000116
000117
000120
000121
000122
000123

72..0,107
72..30.,110

72..120..,113
72..150..114
72..180..115
72..210..116
72..240..117
72..270.:120

84..0,110
B84..30.,111

B4..60..112
B84..90..113
B84..120.,114
B4..150..115
84..180..116
84..210..117
B84..240..120
84..270..121
96..0,111
96..30.,112
96..60..113
96..90..114
96..120.,115
96..150..11%
96..180..117
96..210..120
96..240..121
96..270..122
108.,0,112

108..30.,113

108..60..114
108..90..115
108..120..116
108..150..117
108..180..120
108..210..121
108..240..122
108..270..123

e
:
|
:
!

:
|
:DO NOT SEPARATE THE ABOVE TABLE!
:FROM THE FOLLOWING 3 LINES..... !

040
057

262 006424 002416
%gz 006426
265

266 006430

013020

170377

040
057

—
N

259 006415
gg? 006420

o0
»H "

256

057

FRONT:

.BYTE

ZERO,ZERO,ONE ;ARGUMENTS
FOR SELECT FRONT TRAY. TEST "3

REAR:
NULL:

.BYTE
.g;gs

ZERO,2ERO,TWO ;ARGUMENTS FOR SELECT REAR TRAY. TEST #13!
HEXF ,HEXF ,HEXF ;ARGUMENTS FOR SELECT NULL TRAY. TEST l133

SEED1:

.WORD

1294.

;SEED FOR RANDOM NUMBER GENERATOR

TMPLT1: .WORD

170377

:BITS 8 = 11 USED IN DECODING PRINTER TRANSMISSIONS

SEED2:

.WORD

5648.

;SEED FOR RANDOM NUMBER GENERATOR

s TEMPLATES

GLOBAL AREAS

SEQ 35

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

GLOBAL DATA SECTION

267 006432
ggg 006434

177417
177760

TMPLT2: .WORD
TMPLT3: .WORD

271 006436
272 006440

000000
000000

TCRENA: .WORD
JUNKPL: .WORD

275 006442
276

017070

LPRINI:

270

g;z

.WORD

177417
177760

;WILL CONTAIN TCR ARGUMENT - CHANNEL SELECT
:WILL CONTAIN NOTHING IF DZ CHOSEN. WILL

:CONTAIN JUNK IF DL CHOSEN.

017070

277

;
;
;

;

%g;

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

&
8.
16.
32,
64.
128.

BAUTBL: .WORD
.WORD
LWORD

1280.
1408.
1536,

:TABLE OF MASKS TO USE IN SETTING THE BAUD
CRATE FOR THE PRINTER IN THE LPR REGISTER.

285 006450
286 006452
287 006454
288 006456
289 006460
290 006462

000004
000010
000020
000040
000100
000200

293 006464
294 006466
295 006470

002400
002600
003000

299

300

005000
006000
007000

.WORD
.WORD
WORL

2560.
3072.
3584,

302 006500
303 006502
304
305

000000
000000

ERWORD: .WORD
CRNTPR: .WORD

0
O

%89 006504

000000

DIRCTN: .WORD

308 006506

000000

OUTCTR: .WORD

309 006510
g}? 006512

000000
000000

312

%}2

315 006514

000

322 006522
323 006524

000000
032

316 006515
317 006516
318 006517
319 006520
ggo 006521

004
030
023
021
033

S)8BIT CHARACTER LENGTH

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

TCRTBL: .WORD
.WORD

296 006472
297 006474
298 006476

1)RX-ON

2)9600 BAUD
3)NO PARITY
4)2 UNIT STOP CODE

1
2

000001
000002

SEE SENCHR ROUTINE

:LPR INITIALIZE REGISTER.
:THE FOLLOWING STATUS 1S ASSUMED:
;

278
279
280

283 006446
284 006446

:BITS & = 7 USED IN CONVRT TO DECODE PRINTER XMISSIONS
:BITS 0 - 3

;CONTAINS VARIOUS ERROR FLAGS
:CONTAINS THE COUNT OF CHARACTERS ALREADY PRINTED
:ON THE CURRENT LINE IN THE BIDIRECTIONAL PRINTING
(XMIT)
;CODE.

:CURRENT PRINTING DIRECTION. O=FORWARD, 1=REVERSE
:COUNTERS USED IN WAITXN

AND GETCHR TO WAIT OUT THE PRINTER OPERATIONS.
CINDICATES FAILURE TG FIND TRANSMIT READY CONDITION.

OUTSDC: .WORD
FLTRDY: .WORD
:

SPECIAL CHARACTER DEFINITIONS

BR2:

.BYTE

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

004
030
023
021
033

SNGCHR: .WORD
.BYTE
CTL2:

032

EOT:
CAN:
XOFF:
XON:
EESQSE:

'TEHPORARY STORAGE FOR A BYTE VALUE. TEST #13
;ASCII “‘EOT
SASCIT ''CAN"
SASCIL "'XOFF'*
SOCTAL 021 = ASCII ''XON'
:0CTAL 033 = ASCII "'EsC"

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

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

324 006525
325 006526
326 006527
327 006530
328 006531
329 006532
330 006533
331 006534
332 006535
006540

103

334 006541
335 006542
006545
006550
006553

.ASCII / /

;

THE REPEATING PATTERN OF ASCII1 PRINTABLE CHARACTERS.

DASHES: .ASCII /__________ /<155

v+, =./<57>/0123456789: ;<=>?ABCDEFGHIJKLMNOPQRSTUVWXYZ/

—d el anld il e d w=b =l
WO
= =2 OO
=2 O NO WD N
OWVIRONES
= OO W

— e el b b el b b ad b
NOOA
VAWV
S
N

N
W

LASCII /[\1*_/<140>/abcdefghij«Imnopqrstuvwxyz/

BYTE 173,174,175,176

&H
w

WVIND

.ASCII /!"'W$%8'

;SINGLE SPACE

:PRINTED IN TEST 5 BETWEEN LINEFEEDS

101

JASCIT /71088 () ee = /<57>/0123456789/

[

s e

NN
== 2 O
OWVIRONES=O

NN
B NOINS =2 OO WO N H

aaad
i e

rd o

~NNOONO NNV S

— e

NI NS 2 OO W
2O
NI NS

103

345 006713
006716

006624
006627
006632
006635
006640
006643
006646
343 006647
006652
006655
006660
006663
006666
006671
006674
006677
006702
006705
344 006707
006712

SPACE:

.ENABL L

102

.SINGLE CHARACTER ''0""
:SINGLE CHARACTER ''C"’
:SINGLE CHARACTER 'B'
*SINGLE CHARACTER ''X''
*SINGLE CHARACTER '‘A"'
*SINGLE CHARACTER ''0"'
*SINGLE CHARACTER '1"'
*SINGLE CHARACTER *'."'
-WORST CASE SEQUENCE FOR TEST #8

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1

CHRLST:

&H =20 W=

006616
006621

137
137

OO
— i i D i e D e el e D o wnd b el ) d el ) )
S D WNNWNNIN = = 2 O
s~ NNOOOWVNWNE

342 006555
006560
006563
006566
006571
006574
006577
006602
006605
006610
006613

101

/Q/
/C/
/B/
/x/
/A/
/0/
/1/
/./
/ACA:/

SCQ:
SCC:
SCB:
SCx:
SCA:
SC0:
SC1:
PERIOD:
ACAS:

046

Y rn

SEQ 36

GLOBAL AREAS

SEQ 37

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

GLOBAL DATA SECTION

006721
006724
006727
006732
006735
006740
006743

047
052
055
060
063
066
071

050
053
056
061
(64
067

051
054
057
062
065
070

006747
006752
006755
006760
006763
006766
006771
006774
006777
007002
007005
007010
007013
007016
007021
007024
007027
007032
007035

075
100
103
106
111
114
117
122
125
130
133
136
141
144
147
152
155
160
163

073

076
101
104
107
112
115
120
123
126
131
134
137
142
145
150
153
156
161
164

074

LASCII /::<=>?aABCDEFGHIJKLMNOPQRSTUVWXYZL\]*_/<140>/abcde fghijkimnoparstuy/

170

ASCIT /wxyz/

173

174

175

.BYTE 173,174,175,176

349 007051

041

042

043

ASCIT /1"#8%8" Oxs,=./<57>/0123456789:
; <=>?@ABCEDF GHI JKLMNOPQRS TU/

007070
007073
007076
007101
007104
007107
007112
007115
007120
007123
007126
007131
007134

060
063
066
071
074
077
102
104
10
13
116
121
124

061
064
067
072
075
100
103
106
m
114
117
122
125

062
065
070
073
076
101
105
107
112
115
120
123

346 006746

007040

347 007041
007044

348 007045

007050

007054
007057
007062
007065

350 007136

007141
007144
007147
007152
007155
007160

072

166

167
172

176

044
047
052
055

126

131
134
137
142
145
150

045
050
053
056

127

132
135
140
143
146
15

077
102
105
110
13
116
121
124
127
132
135
140
143
146
151
154
157
162
165

04b
051
054
057

130

133
136
141
144
147
152

)

LASCIT /vWXYZIN]*_/<140>/abcdefghijkimnopgqrstuvuxya/

‘GLOBAL AREAS

SEQ 38

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

GLOBAL DATA SECTION

007163
007166
007171
007174
007177
007202

153
156
161
164
167
172

354 007203

124

351

155
160
163
166
nm
.DSABL LC

110

111

007206
007211
007214
007217
007222
007225
007230
007233

123
105
101
040
117
104
105
122

040
123
107
123
125
040
040
"M

115
123
105
110
114
102
120
116

007241
007244
007247
007252
007255
007260
007263
007266
007271
007274

040
040
105
117
117
117
124
040
107
015

101
124
040
124
115
106
110
120
105

124
110
102
124
040
040
105
101
056

007236

355
356

154
157
162
165
170

124

105

FBTM:

%gg

;

:
:

THE FOLLOWING LABELS ARE USED WITH THE INTERFACE OPTION WHICH THE
LQPSE 1S CONNECTED TO.

000000
000000
000000
000000

RCSR:
XCSR:
RBUF:
XBUF:

.WORD
.WORD
.WORD
.WORD

010361

ERMSGB: .WORD

362
ggz

376

376 007316

377 007320
378 007322
379 007324
380 007326
381 007330
382 007332

VARIABLE ASSIGNMENTS

.EVEN

gg?

369 007306
370 007310
371 007312
%;% 007314

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

104

3557

365 007276
366 007300
367 007302
368 007304

.ASCI]

000000
000000
000000
000000

010422
010475
010543
010622
010650
010677

LPR:
TCR:
TOR:
PGMCTR:

:ADDRESS OF
:ADDRESS OF
;ADDRESS OF
:ADDRESS OF

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

.WORD
.WORD
.WORD
.WORD

.WORD
.WORD
.MORD
.WORD
.WORD
.WORD

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

EDFMO

EDFM
EDFM?
EDFM3
EDFM4
EDFMS
EDFM6

:TABLE OF ERROR MESSAGE ADDRESSES USED IN

: THE ERRORS ROUTINE.

GLOBAL AREAS

SEC 39

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

GLOBAL DATA SECTION

383 007334
384 007336
385 007340
386 007342
387 007344
388 007346
389 007350
390
391
392
393

010755
011026
011175
011230
01133
011444
011520

396 007352
397

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

EDFM?
EDFMB8
EDFM9
EDFMA
EDFMB
EDFMC
EDFMD

BFRA:

.BLKB

300.

:BUFFER FOR INPUT FROM USER AND ALSO USED AS A
:SOF TWARE STACK.

396 010026
399
400 010030
401 010032
28% 010034

000000

TOPSTK:

.WORD

000000
000000
000000

BFRB:
BFRC:
BFRD:

.WORD
.WORD
.WORD

282 010036

000000

SPCSIZ: .WORD

:THE NUMBER OF HORIZONTAL INCREMENTS PER SPACE.

289 010040

000000

I INN:

.WORD

;THE NUMBER OF HORIZONTAL INCREMENTS PER {INE.

283 010042

000000

LINSIZ:

.WORD

:THE NUMBER OF CHARACTERS PER LINE ON PRINTER.

410 010044

000000

TRDYBT:

.WORD

:TRANSMIT READY BIT POSITION. VALUE IS SET DYNAMICALLY

000
000

MNEB1:
MNEB2:

.BYTE
.BYTE

AR
215

;USED TO POINT TO THE TOP OF THE SOF TWARE STACK
:WHEN NEEDED.
#BFRA + 150.
:DEFAULT AREAS FOR GMANID QUESTIONS. MAY BE CLEARED.
;
H
;
"

:IN THE INITIALIZATION CODE SO THAT BOTH SINGLE LINE
:INTERFACES AND DZ11 INTERFACES MAY BE USED.

614

415

416 010046
417 510047

2}3 010050

000

MNEB3:

2%?

25; 010052

;USED IN PROCEDURE CONVRT:

:USED TO PASS A MNEMONIC VALUE FROM THE CONVERSION
:ROUTINE. A SINGLE WORD VALUE ACCEPTED, THREE BYTES

.BYTE

"RETURNED TO CALLER: MNEB1, MNEB2. MNEBS.

.EVEN

000000

MLTLIN: .WORD

;INDICATOR:

2%2 010054

000000

DEL.CNT: .WORD

:COUNTER OF SMALL TIME INCREMENTS USED IN DELAY ROUTINE

427 010056
428

000000

NDATA:

431 010060

000

HITARG: .BYTE

S TEMPORARY STORAGE OF THE HIT COUNT ARGUMENT USED IN

2%2 010062

000000

LINCNT: .WORD

;A LINE COUNTER USED IN TEST #5. PAPER POSITIONING TEST

436 010064

000000

CHRCNT: .WORD

;A CHARACTER COUNTER USED IN TEST #6, WHERE ONE LINE Of

kgg 010066

000000

CCOUNT: _WORD

A COUNT OF CYCLES, USED IN TEST #1i- LIFT/DROP RIBBON

424

.WORD

2%3
22%

437
4

MULTILINE INTERFACE?=1

SINGLE LINE?-0

:NO DEVICE AT THAT ADDRESS INDICATOR. UNIBUS FAI:URE
;TO FIND A DEVICF AT THE REFERENCED ADDRESS CAUSES A

:}SASNEO OCCUR WHICH IN TURN WILL SET THE NDATA WORD

EVEN

;SET HIT COUNT TEST.

;EACH CHARACTER 1S PRINTED.

MACRO v03.01
GLOBAL AREAS
GLOBAL DATA SECTION
000000

445 010072

446

010072
010072
010074
010076
010100

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

INUPB:

;AN INDICATOR Of WHETHER THE PRINTER RIBBON [S IN THE
TEST #11, LOCAL PROC. MANLD:
;UP OR DOWN POSITION.

.WORD

ERRTBL

000000
000000
000000
000000

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

.WORD
.WORD
.WORD
.WORD
GLOBAL

OOOCO

440 010070
641
642
643

SEQ 40

TEXT SECTION

LSERRTIBL ::

GLOBAL AREAS

GLOBAL

TEXT

MACRO v03.01

SECTION

7-NOV-80 10:06:10 PAGE

SEQ 41

;

; MORE THAN ONE TEST.

;

18
11

010102

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

DEVTYP

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

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

ASCII

INFORMATION

THAT

ARE

USED

<LQPSE-F

SERIAL LETTER QUALITY PRINTER>

120
055
123
1M1
040
124
122
125
11
040
m
105

LSDVTYP::
LASCIZ

17 010150

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

104
107
123
103
117
114

123
106
105
101
120
116
122
116
104
061

1M1
116
124
040
122
121

105
040
122
114
122
124
040
040
120
061

10
117
MM
106
040
120

/LOPSE-F SERIAL LETY

.EVEN

NN
= —
BN
=2 O O

AND

: NAMES OF DEVICES SUPPCRTED BY PROGRAM

12
13

THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,

MESSAGES,

TEST DESCRIPTION

DESCRIPY

<DIAGNOSTIC FOR LQPSE-F

SERIAL PRINTER ON FDP-11>

LSDESC::

055
123
11
040
1M1
105
117
120
055
000

LASCIZ

/DIAGNOSTIC FOR LQPS

.EVEN
THIS PROGRAM WILL PERFORM UP TO THIRTEEN SEQUENTIAL

TESTS ON THE

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

GLOBAL AREAS

GLOBAL

TEXT

SEQ 42

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

SECT]ION

PRINTER WHICH WILL BE USED IN THE DIAGNOSTIC PROCESS BY THE FIELD

S5EQRVICE TECHNICIAN.

28
9
30
%}

.EVEN
.
;

’

'.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

FORMAT STATEMENTS USED IN PRINT CALLS

;

ERROR STATEMENT TABLES

;

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

;

45
46

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

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

TRANSMISSION.

;
;

47 010230
010233
010236
010241
010244
010247
01025¢
010255
010260
010263
010266
010271
010274
. 010277

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

116

105
117
040
124
124
040
124
040
M6
101
120
040
086

045

PRTBMO:

.ASCIZ

/XNXAERROR

49 010302

045

116

045

PRTXMO:

.ASCIZ

/XNXALAST TRANSMISSION STARTED AT LOCATION: X06/

010316
010321
0103264
010327
010332
010335
010340
01033
010346
010351
010354
010357

116
111
111
040
101
105
101
114
101
117
040
066

123
123
17
123
122
104
126
117
126
116
045
000

115
123
118
124
124
040
040
103
1N
072
117

010305
010310
010313

51
52

100
123
124

114
124
122

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

;

DETECTED AFTER CALL AT PC: X06/

::l"lllC..ll.Qlll'..OOI!l.l.l.|".QOl..ll0lll.'0..'.!'!.'...!!..‘!..' LI RN I B 2 BN B A )
:

GLOBAL AREAS

GLOBAL TEXT

SEQ 43

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

SECTION

55
56 010361
010364

1M1
040

055
106

117
101

010372
010375
010400
010403
010406
010411
010414
57 010417

122
104
105
105
101
120
116
122

105
105
103
104
124
122
124
056

040
124
124
040
040
1M
105
000

010367

1AR!

114

:
EDFMO:

ERWORD BIT-0

.ASCIZ

170 FAILURE

/1-0 FAILURE DETECTED AT PRINTER,/

125

58
59

:
:

ERWORD BIT-1

FDFMI

.ASCIZ

69
70

;
;

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

;

PRINTX

60
2;

;
;

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

;

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

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

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

PRINTB
PRINTX

PRTBMO,PGMCTR
PRTXMO,TRXADD,ERWORD

-PRINT BASIC ERROR MESSAGE
~PRINT EXTENDED ERROR MESSAGE

s aceceacescersaceceecacecossaseescecacseesocetotosstssssansantsssasssnoennns

74
75

PRINTB

BUFFER FULL

/DEVICE FATAL ERROR.

PRINTER BUFFER FULL. /

PRTBHG,PGHCTR

PRTXMO,TRXADD,ERWORD

=PRINT BASIC ERROR MESSAGE

-PRINT EXTENDED ERROR MESSAGE

D e eetossceaseccesenanusevececncecanssontot
ot as s saasatsanssssans s onso s
.

;9
78 010475
¢10500
010503
010506
010511
010514
010517
010522
010525

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

120
115
101
106
114
105
105
103
104

122
057
115
101
125
040
124
124
040

117
122
040
1R
122
104
105
105
102

ERWORD B1T-?2

E€DFM2:

.ASCIZ

PROM/RAM FAILURE

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

GLOBAL AREAS

GLOBAL

TEXT

SEQ 44

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

SECTION

010530
010533
010536
’ 010541

131
122
124
056

040
1
105
000

120
116
122

;

USE OF

THESE STRINGS WIiL BE AS FOLLOWS...

PRINTB

PRTBMO,PGMCTR

ERRDF

-DEVICE FATAL ERROR CALL

-PRINT BASIC ERROR MESSAGE

D e e s e eceeaacesanonesecaneecseseeensecaessacenresecanatecoavesraaaesosr
stnonn-

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

EDFM3:

.ASCIZ

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

;

USE OF

THESE STRINGS WILL BE AS FOLLOWS...

93
32

;
:

PRINTB
PRINTX

PRTBMO,PGMCTR
PRTXMO.TRXADD,ERWORD

89 010543
010546
010551
010554

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

120
116

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

122
124

111
105

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

040
117
040
040
116
040
040
103
105
105
105

040
122

96
97

e
:

010625
010630
010633
010636
010641
010644
o1 010647

120

123
123
124
040
105
105
000

101

105
127
103
120
123
104

PRTXMO.TRXADC,ERWORD

-PRINT EXTENDED ERROR MESSAGE

105
117

9?2

100 010622

PRINTX

#NUMB EDFM?

125
040
11
110
122
123
056

ERRDF

#NUM9,EDFM3

ERWORD BIT-4

EDFM4:

.ASCIZ

-DEVICE FATAL ERROR CALL

-PRINT BASIC ERROR MESSAGE
-PRINT EXTENDED ERROR MESSAGE
e

PAUSE SWITCH

/PAUSE SWITCH PRESSED./

102
}82

"PRTBMO AND PRTXMO ARE USED IN THIS ERROR RESPONSE ALSC.
;WILL BE AS FOLLOWS...

105
106

;
:

107
108

109

USE OF THESE STRINGS

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

PRINTB
PRINTX

PRTBMO,PGMCIR

PRTXMO.TRXADD,ERWORD

-PRINT BASIC ERROR MESSAGE

-PRINT EXTENDED ERROR MESSAGE

GLOBAL AREAS

el
D e
e
cad
—h

N =) =)
= O
OO ~NVONND

Ot
e OO =2 = =
OO =2
a2
OWN—=200O~N~N—

010650
010653
010656
010661
010664
010667
010672
010675

ERWORD BIT-5

EDFMS:

.ASCIZ

RIBBON OUT

/RIBBON OUT ON PRINTER./

USE OF THESE STRINGS WILL BE AS FOLLOWS...
ERRDF #NUM3 EDFM5
-DEVICE FATAL ERROR CALL
PRINTB PRTBMO,PGM(TR
-PRINT BASIC ERROR MESSAGE
PRTXMO,TRYXADD,ERWORD

=
o

ERWORD BIT-6
<o

Me.se
o

S =2 NNV NWNO O SSNWWVNONON

D b
d e
D
D
YD
e wd e e
d e
i

010677
010702
010705
010710
010713
010716
010721
010724
010727
010732
010735
010740
010743
010746
010751
010754

[ T PEPY o, PV RETY o, PO YR SO T R g
g
gy
VINVO S 2N O—=200=20
=20
WO
2 OWVINWVN=20O 5~ =5

. PRINTX

O—=OO0O0O0OSH
S NNNOOO —

N = O 000NV
VIS

B =D
h
D
D
D o
d
wh
e
—

NINVMNOPONIA)
= b b b b

1
1

O bt
2 Ot
VIR
=2
S ON)
PO
O NN

O b d b d D e D i e e e ) e
OOOMNONNNININOO
S =ON
OWVIWVINIWWNMIWNWNINIIW
= OO0 NN

SECTION

20O

GLOBAL TEXT

SEN 45

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

JASCIZ

-PRINT EXTENDED ERROR MESSAGE

UNDEF INED CHARACTER OR ESC SEQUENCE RECEIVED.

/UNDEFINED CHARACTER OR ESC SEQUENCE RECEIVED./

127

USE OF THESE STRINGS WILL BE AS FOLLOWS...

129

PRINTB

Q=2
= d el o ek =
S, O8N —-OON
OWVOMNIMN
& =N~

Y o R R
N
N2 B —=2O0000
f M ele L VIV Erte SV LV, ]

—

N
~N

~
~
&~

ERRDF

#NUM4 ,EDFM6

PRINTX

PRTXMO, TRXADD,ERWORD

PRTBM,PGMCTR

ERWORD BIT-7

EDFM7:

.ASCIZ

-DEVICE FATAL ERROR CALL

-PRINT BASIC ERROR MESSAGE

-PRINT EXTENDED ERROR MESSAGE

SHEET FEEDER ERPOR

/DEVICE FATAL ERROR.

SHEET FEEDER ERROR./

SEQ 46

137
138
139

10-5

USE OF THESE STRINGS wiLL BE AS FOLLOWS...
ERRDF

PRINTB
PRINTX

#NUMS EDFM/
PRTBM 0.PGMCTR
PRTXMO
. TRXADD , ERWORD

-DEVICE FATAL ERROR CALL

~PRINT BASIC ERROR MESSAGE
-PRINT EXTENDED ERROR MESSAGE

THIS MESSAGE

SHOULD NOT PRINT/

«oo

[V
e

——-

140
141
162
163
144
145

7-NOv-80 10:06:10 PAGE

*ald*ececec*e *Ta . . .

MACRO v03.01
GLOBAL AREAS
GLOBAL TEXT SECTION

01181
011034
011037
011042
011045
011050
011053
011056
011061
011064

146 011026

[—>+o]

V]
[

~ [[~-«44

A o ol et =k skt atmtad ek ok ok X X ol o ol ol ol ol okl sl

~[}

/UNLESS ERROR WORD (ERWORD) HAS BEEN CORRUPTED./

——¥
9]

9
[-

MACRO v03.01
GLOBAL AREAS
GLOBAL TEXT SECTION

SEQ 47

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

MWAITMX:

rald)cece‘e

127

La2ge["l’aVO

DFMC:

.ASCIZ

/WARNING:

SOF TWARE ERROR.

ERROR WORD (ERWORD) HAS BEEN/

/WARNING:

SOF TWARE

ERROR WORD (ERWORD) HAS BEEN/

/XAWATTING/

ERWORD B1T-12

LASCIZ

ERROR.

;WHEN GETCHR WAIT STARTS GETTING LONG...

UNEXPECTED CHARACTER RECEIVED

/UNEXPECTED CHARACTER RECEIVED FROM PRINTER./

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

INOINTMANITIO AITOMOONOONVM

MACRO v03.01
GLOBAL AREAS
GLOBAL TEXT SECTION

SEQ 48

ONIM=OMVY ONIFTNO~ONIT—

USE OF

ERRDF
PRINTB

PRINTX

THESE STRINGS WILL BE AS FOLLOWS...
#NUM10,EDFMC
PRTBMO,PGMCTR

PRTXMO,TRXADD,ERWORD

ERWORD BIT-13

FATAL ERROR CALL

=PRINT BASIC ERROR MESSAGE
=PRINT EXTENDED ERROR MESSAGE

EXPECTED CHARACTER NOT RECEIVED FRUM PRINTER

/EXPECTED CHARACTER NOT RECEIVED FROM THE PRINTER./

eO—e—r—

002420102“

LASCIZ

-DEVICE

105
122
124

056

USE OF THESE STRINGS WILL BE AS FOLLOWS...

O0O 0OO O 0 O V

ERRDF
PRINTB
PRINTX

(=lolelelelelelaLosle)usltdh

#NUM11,EDFMD

PRTBMO,PGMCTR
PRTXMO, TRXADD,ERWORD

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

TLASCIT "JANKAFAILED 10 FIND PRINTER AT DEFAULT ADDRESSES./

GLOBAL AREAS

SEQ 49

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

GLOBAL TEXT SECTION

011640

104

105
125
040
104
123
123
122
124
124
122
122
056
040
040
040
040
040
040
040

106
114
101
122
123
056
105
101
040
117
101
040
040
040
040
040
040
040
012

116
124
040
122
104
105
040
105
11
040
123
102
105
114
m
131
120
1M1
105

011643
011646
011651
011654
011657
180 011662
011665
011670
011673
011676
01170
011704
011707
011712
011715
011720
011723
011726
011731
181 011732
011735
011740
011743
011746
011751
011754
011757
011762
011765
011770
011773
011776
012001
012004
012007
012012
012015
012020
012023

101
124
104
105
105
040
123
122
120
107
115
040
040
040
040
040
040
040
015
045
101
105
123
101
122
123
125
124
116
125
040
040
120
103
114
123
103
m
056

012027
012032
012035

116
045
101

045
116
056

040
040
040
040
040
040
040
040
040
040

182 012024

012051
012054
012057
012062
012065
012070
012073
012076
012101
012104

045

LASCII

/ RESTART PROGRAM,

045
110
103
040
104
123
121
123
117
115
124
105
130
11
124
040
105
106
104

LASCI1

/XNXATHE CSR ADDRESS QUESTION MUST BE EXPLICITLY SPECIFIED./

116

045

JASCIZ

/XNXNININXA.

040
040
040
040
040
040
040
040
040
040

116
045
040

/<12><15>

il wad

185

186

187

) el

TOR IV LV LV ] WA

Of =SS NN

OCOON—OO
2S00 WNWS

OON=2OO
=2 NN =2 U

D b (D D e i d d b b b
S OWNE = a2 PINO NIV

OOt
O
2t O =D d 2 O
N=2ONSOONO
S OON =5
OO = = PNIO VNN
O WNWNIONW

040

DO =t b
) = ad b
D h e b
S WVN=OWS 42— O=2NO

OO OCOMNINN
— (N~

OO
b b d d —d e b —D
VIR S =2 =N
O NN

SO WNOWMIN NS =2 OM O VN
20N OOMMNOWVININES

NN AN
NN NI NN NN NN NN NN NI NN O N
NN RN
NN POPIPD AN N D b b cod d e o cd e b o od od b d
N
2
b
OQONNNOOONNN
S S WNNINON)
N
NN

oWV

N —d
b

b
b

[l le)

pur Sy

012107

— e i
e i b D
PN = =2 PNONOCO
S

B 8 2 W NNININ)
= = =

(WO Te IV [V TV

LS NT ST ST N1 NT N7 NN ST ST N1V ]

NNNNN%NNNNNN
o
o
NN
ONHWNOWVINO
NS 2OV =2008
W

—

OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
e e o ot o b D s b od o b D D D o
D o oh o
D D D D D D D D D i D D oD D D D D

183

oo
L d

GLOBAL AREAS
GLOBAL TEXT SECTION

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

EAlLDL: CASCIZ

SEQ 50

040
040
040

ERROR MESSAGE FORMAT FOR FAILURE IN DEFAULT PROCEDUREi
/
/XNXAINCORRECT CSR ADDRESS GIVEN.
TRY AGAIN..

FAILDZ:

LASCIZ
/XNXAINCORRECT (SR ADDRESS OR CHANNEL GIVEN.

FXRDYM:

CASCIZ
/XINXAFAILED TO TRANSMIT TO PRINTER.

TRY
AGAIN...

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

GLOBAL AREAS

SEQ 51

GLOBAL TEXT SECTION

012354
012357
012362
012365
012370
012373
012376
012401
012404

056
040
040
040
040
040
040
040

105
040
040
040
040
040
040
040
040

122
040
040
040
040
040
040
040
040

188 012414
012617
012422

045
101
1M1

116
127
124

045
101
1M1

012430
012433
012436
012441
012444
012447
012452
012455
012460
012463
012466
0124
012474
012477
012502
012505
012510

106
040
103
122
124
040
117
124
040
1M1
105
040
040
040
040
040
045

117
101
110
101
105
106
115
110
120
116
122
040
040
040
040
040
000

122
040
101
103
122
122
040
105
122
124
056
040
040
040
040
040

012515

101

124

012425

189 012512

012520

012523

116

045

115

n?z

107

045

105

055

103
103
124
123

012526
012531
012534
012537

072
119
N3
17

040
105
040
040

012545
012550
012553
012556
012561
012564
012567
012572
012575
012600
012603
012606

m
120
116
122
17
105
105
120
120
114
040
045

106
122
124
040
116
103
104
122
105
131
040
000

0125642

105

CASCIZ

/XNXAWAITING FOR A CHARACTER FROM THE PRINTER.

TIMOM:

.ASCIZ

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

¥/

040

125

WFC:

124

040

040
m
105
103
116
124
040
117
122
056
040

—

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

GLOBAL ERROR REPORT SECTION

193

.SBTTL

GLOBAL ERROR REPORT SECTION

SEQ 52
TM

GLOBAL AREAS

7-NOV-80 10:06:10 PAGE

SEQ 53

—

MACRO v03.01
GLOBAL AREAS
GLOBAL ERROR REPORT SECTION

b
b
—

b
b

—

el
e
—

[« JV, WTV
~

—

012614
012614
012614

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.

.EVEN

012610
QOO

b
b
—

N =2(D 000N

®sws
we v

X4
R

BGNMSG
EXIT

000167
000000

MSG

ENDMSG

104423

LSBTTL

GLOBAL SUBROUTINES SECTION

L10001:

JSJMP

.WORD
.WORD

L10001-2%,

TRAP

C$MsSG

GLOBAL AREAS

SUBROUTINES SECTION

PV18
B

GLOBAL

MACRO v03.01

7-NOV-80 10:06:10 PAGE

SEQ 54

THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES

THAT

ARE

USED

IN MORE

THAN ONE

TEST.

GLOBAL AREAS

SEQ 55

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

GLOBAL SUBROUTINES SECTION

P01 1 8 €0/} {131 o3 €28

GLOBAL PROCEDURE XMIT:

THIS PROCEDURE WILL TRANSMIT CHARACTER SEQUENCES TO THE PRINTER.

;

BIDIRECTIONAL PRINTING ENABLED AND WITH BIDIRECTIONAL PRINTING

12
13
14
15
16
17
18
19
%?

23
24
gz

T
Too
T
ES
GLOBAL PROCEDUR

THE SEQUENCE WILL BE TRANSMITTED IN ONE OF TwO MODES: WITH

:
:
:
:
:
:
:
:
:

DISABLED.
THERE ARE THREE ARGUMENTS SENT TO THIS ROUTINE IN
REGISTERS R1, R2, AND R3.
R1 IS EXPECTED TO CONTAIN THE ADCRESS
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.

;

S e e e e e e e e e e e e e e e ez
:INPUTS

1OUTPUTS

'SUBROUTINES USED

;

39
40
2;
44

;

SENCHR

:
:
*SIDE EFFECTS
:

IF SET, BIDIRECTIONAL PRINTING IS TO BE ENABLED.

If SET TO -1, AN ERROR HAS OCCURRED.

SET FOR FAST EXIT

THIS ROUTINE WILL SEND THE CHARACTER TO THE PRINTER

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

THE CONTENTS OF R1 AND R2 ARE NOT PRESERVED.

PRESERVED.

R3, R4, AND RS ARE

IF A TRANSMISSION ERROR OCCURS, THIS ROUTINE WILL CAUSE A

. GREASED EXIT TO OCCUR FROM THE CURRENT TEST.

*CALLING SEQUENCE

;
:

ADDRESS OF STRING TO PRINT

NUMBER OF BYTES IN STRING TO BE PRINTED.

THE STRING IS PRINTED ON THE PRINTER.

GREASE

2;
50
51

(]}ttt

PUT THE STRING ADDRESS iNTO 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 PRINTING ENABLE.
JSR

PC,XMIT

THE CALL IS THEN...

GLOBAL AREAS

SEQ 56

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

GLOBAL SUBROUTINES SECTION

58 012616
59 012622
60 012624

011637
010146
010246

62 012630
gz 012632

010446
010546

61 012626

007314

010346

MOV
MoV
MOV

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

MOV
Mov

R4 ,-(SP)
RS,=(SP)

MOV

;SAVE THE CALLING PC + &

R3,=-(SP)

SAVE ALL GUARANTEED
REGISTERS.

gg 012634

010137

005250

MoV

R1,TRXADD

;SAVE THE TRANSMISSION ADDRESS

67
68
69
;?

012640
012644
012650
012654

012705
062705
010537
005237

007352
000226
010026
010026

MOV
ADD
MOV
INC

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

;BOTTOM
;TOP OF
;TOP OF
;PLUS 1

72 012660
;2 012662

005703

TST
BNE

R3
BIDIRP

;IF

001021

OF SOF TWARE STA(CK
SOFTWARE STACK
STACK ADDRESS
FOR COUNTING PURPOSES.

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

76
77

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

THE CALLING ROUTINE.

80 012664
g; 012666

010103
060203

MOV
ADD

R1,R3
R2,R3

;ADDRESS OF THE FIRST CHARACTER IN THE STRING
ADDRESS OF THE LAST CHAgACEES éN THE STRING

83 012670

112102

move

(R1)+,R2

GET THE CHARACTER INTO R2 AND POINT TO NEXT

gg 012676

005037
004737

002206
013366

CLR
JSR

GREASE
PC,SENCHR

88 012702
89 012710
g? 012712

022737
001002
000137

177777

CMP
BNE

#-1,GREASE
LCHYET
EXITX

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

92 012716
93 012720
gg 012722

020103
100763
000137

R1,R3
XSTR
EXITX

;HAS THE LAST CHARACTER BEEN PRINTED YET?
;LOOP THROUGH THE LIST UNTIL DONE.
;AND WHEN DONE WITH STRING, EXIT TEST...

84
85 012672

013352

JMP

: (MP
BM]
JMP

013352

98 012726

96 012730

}8?

010103

023737

113702
004737

111 012752

005037

ADD

006502

ULNELOO: CMP

R2,R3

;ADDRESS OF LAST CHARACTER TO BE PRINTED.

PLUS 1 FOR COUNTING PURPOSES.

SENDRZ

002314
013366

MOvB
JSR

LF,R2
PC,SENCHR

006502

(LR

(RNTPR

;RESET THE CHARACTER COUNT FOR THIS LINE.

TST
BNE

CRNTPR,LINSIZ

;ADDRESS OF THE STRING TO BE PRINTED

BMI

006504

010042

R1,R3

;CRNTPR -CURRENT POINTER- IS INITIALIZED TO
; 1ERQ BY THE INITCD ROUTINE. CRNTPR KEEPS
. TRACK OF HTE NUMBER OF CHARACTERS PRINTED
. SINCE THE LAST LINE FEED.
;1F CRNTPR LESS THAN LINSIZ THEN THERE ARE
: MORE CHARACTERS TO PRINT ON THIS LINE.
;LINE IS FINISHED. SEND LINE FEED AND REVERSE
; THE PRINT DIRECTION.

100567

005737
001100

BIDIRECTIONAL PRINTING CODE FOLLOWS....

BIDIRP: MOV

060203

CHARACTER IN STRING.
ASSUME NO PREVIOUS ERRORS.
;SEND THE CHARACTER IN R2 TO THE PRINTER.

;

102 012732
103
104
105
106 012740
107
108 012742
}?g 012746

112 012756
}}2 012762

LUS

DIRCIN
fFWRLO

;WHAT IS THE CURRENT PRINT DIRECTION? 0=FORWARD
;IF REVERSE (1) THEN CHANGE TO FORWORD PRINT.

—

WN = O 000 NV

b —

MACRO v03.01
GLOBAL AREAS
GLOBAL SUBROUTINES SECTION

7-NOV-80 10:06:10 PAGE

000001

113702

002244
013366

022737
001560

177777

112702

000057
013366

022737
001550

177777

004737

013366

013036
013044

022737
001542

177777

013046
013052

004737

112702

000044
013366

013056
013064

022737
001532

177777

142 013066
143 013072
144 013076

012700
116002
004737

000004

146 012102
147 013110

022737
001520

177777

)

WA= OOV00~NO N

d
d

NO WV
SOV

e
D e
D
D
D
D o
D

004737

RO TV RN

i
d e
D

N RN N

D e
e oD

U W AN G

D e
e
—

£ B W

NN NN —

012737

006504

002206

MOV

#1,DIRCTN

;IF FORWARD (1) THEN CHANGE TO REVERSE PRINT.

MOovB
JSR

PC,SENCHR

STCHSZ,R2

'“ESC“ CHAR

CMP
BEQ

#-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

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

CMP
BEQ

#-1,GREASE

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

MOvB

#FOUR ,R2
PC,SENCHR

CMP
BEQ

#-1,GREASE

MOV
MOvVB

¥4 ,RO

JSR

PC,SENCHR

STCHSZ(RO)
,R2

; SEQUENCE: ESC 1111 1111 0100 A

cMp
BEQ

#-1,GREASE

;HAS A TIME-OUT OCCURRED?

JSR

002206

JSR

002206

002244
013366
002206

SEQ 57

13-2

PC,SENCHR

EXITX

:TO RESET CHARACTER SIZE TO NEGATIVE

;

PER INCH. THIS ENABLES REVERSE <==-.
CARRIAGE MOTION WHILE PRINTING. <--

:HAS A TIME-QUT OCCURRED?
;FROM THIS ROUTINE MAY BE

;

REQUIRED.

;FROM THIS ROUTINE MAY BE

THE CARRIAGE ONE

EXPRESS EXIT

REQUIRED.

SPACE

b
—

NN
OV

b
-—
—

Wi
O

- b
Wt

OO
00

-— b
W
—
—

VIVA - B
o
O

OO0
b wb

OO
-t b

;LEFT TO EVEN UP THE MARGIN.

LN —
NN
= OO
~NO N BN =000

i e

D e

il el

)

e aud —d

EVENTe Yo Yo Yo Yo Yo Jo Yo Yo Yo SV, IV IV IV LV IV AV LV, 1]

EXPRESS EXIT

SENT TO THE PRINTER.

;NOW MOVE

TO THE

113702

006521
013366

Movs
JSR

ESCAPE ,R2

"SEND ESCAPE CHAR TO PRINTER

112702

000057
013366

Movs
JSR

#HEXF ,R2

;NOW TRANSMIT =12 IN THREE HEX VALUES

112702

000057
013366

MOvB

JSR

#HEXF ,R2
PC,SENCHR

112702

000044
013366

Move
JSR

#FCUR,R2
PC,SENCHR

112702

000073
013366

mova

3 ,R2

004737
004737

004737
004737
004737

JSR

PC,SENCHR

;

10 CHAR

IN THREE CHARACTERS

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

013162

000456

B8R

SENDR?

;NCW SEND THE (HARACTER TO THE PRINTER.

GLOBAL AREAS

MACRO v03.01

GLOBAL SUBROUTINES SECTION

SEQ 58

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

172

};2 013164

005037

006504

FWRDO:

(LR

DIRCIN

177

:RESTORE CHARACTER SIZE TO A POSITIVE 10 CHAR

};g

180 013170

;PER INCH.

}g; 013174

004737

113702

002244

183 013200

022737

177777

186 013210
}gg 013214

112702
004737

000040
013366

189 013220
}g? 013226

022737
001451

177777

}3% 013230

004737

013366

194 013234

022737

177777

197 013244
}gg 013250

112702
004737

000054
013366

200 013254
%8; 013262

022737
001433

177777

¢03 013264
204 013270
%82 013274

012700
116002
004737

000004
002244
013366

207 013300
%83 013306

022737
001421

177777

113702

006541

}gg 013206

}gg 013242

210 013310
5}; 013314

213 013320

001461

007443

004737

112102

013366
177777

218 013336
219 013342
220
221

005237
020103

006502

g%z 013346

000137

001402

225 013352
226 013356

012605
012604

228 013360

012602

012603

(02206

002206

PC,SENCHR

STCHSZ ,R2

:RESTCRE CARRIAGE MOTION TO FORWARD.

CMP
BEQ

#-1,GREASE

;HAS A TIME-OUT OCCURRED?

Move
JSR

#7ERO,R2
PC,SENCHR

:
;

CMP
BEQ

#-1,GREASE
EXITX

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

JSR

PC,SENCHR

;SEQUENCE SENT: ESC 0000 0000 1100 A

CMP
BEQ

#-1,GREASE

;HAS A TIME-OUT OCCURRED?

MovB
JSR

#HEXC,R2
PC,SENCHR

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

CMP
BEQ

#-1,GREASE
EXITX

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

MOV
MOov8
JSR

#4 RO
STCHSZ(RO)
,R2
PC,SENCHR

;FORWARD CARRIAGE RESTORED.

CMP
8tQ

#-1,GREASE
EXITX

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

SPACE ,R2

;NOW TRANSMIT A SPACE TO EVEN UP THE MARGIN.

JSR

SENDRZ2: MOVB
002206

012732

EX1TX

EXITX

PC,SENCHR

;

EXPRESS EXIT
;FROM THIS ROUTINE MAY BE REQUIRED.

;

JSR
CMP
8tQ

PC,SENCHR
#-1,GREASE
EXiTX

{(R1)+,R2

;GET THE CHARACTER FOR TRANSMISSION.

INC
MP

CRNTPR
R1,R3

BEQ

EXITX

;CURRENT IN-LINE POINTER UPDATED.
;1S THE ADDRESS OF THE NEXT CHARACTER 10 Bt
;PRINTED EQUAL TO THE ADDRESS OF THE LAST
;CHARACTER (PLUS 1) TO BE TRANSMITTED?

MOV
MOV

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

MoV

(SP)+,R2

JMP

EXITX:

AT LEAST TWO MORE LINES TO GO....

JSR

Move

013366

004737
022737
001406

222 013344

Mmove

013366

214 013322
215 013326
%}9 013334

227 013356

;INDICATE THAT THE DIRECTION IS FCRWARD PRINT,

MOV

LNELOG

(SP)+ R3S

;SEND THE CHARACTER TO THE PRINTER.
:
;EXPRESS EXIT [F ANY PROBLEMS.

:1F NOT YET THERE, REPEAT TRANSMIT PROCESS.
;RESTORE
;
REGISTERS

;

%%g 013362

01260°

mov

(SP)+ . R1

231 013364
232
233

000207

RTS

"TM

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

GLOBAL AREAS

GLOBAL SUBROUTINES SECTION

SEQ 59

GLOBAL AREAS

MACRO v03.01

}
}

GLOBAL PROCEDURE SENCHR:

THIS ROUTINE TAKES THE ASCII BYTE

IT TO THE PRINTER - WHEN POSSIBLE.

IN REGISTER R2 AND SENDS

S e e e o e e e e ee e e e e e e e
:
:INPUTS

1
1
:

;FUNtTIONIE’UEStRIPTIUN """""""""""""""""""""""""""""""""

2 OO0 YOI

}

2O OO0 ~NON NI WNND —

GLOBAL SUBROUTINES SECTION

SEQ 60

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

THE LOW BYTE IN R2 IS THE CHARACTER TO BE PRINTED.

1OUTPUTS

;

THE CHARACTER IS SENT TO THE PRINTER.

SUBORDINATE ROUTINES USED

WAITXN

STSERR

25
gg

;
;

;

CFUNCTIONAL SIDE EFFECTS

37
18

39 013366
40 013370
41 013372
:% 013374

010246
010346
010446
010546

46 013376
45 013404

013777
013777

46 013412
47 013414
48 013416
49 013420

50 013424

005005
005003
005203
020327

100420

g} 013426

005205

$3 013430

020527

54 013434

55 013436

013436
013442

001010

013746
012746

006442
006436

007000

000106

005154
000001

173702
173676

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.

THE REGISTERS R2 AND R3 ARE PRESERVED.

WITH THE SETTING OF AN

ERROR STATE, THE GREASED EXIT MAY BE INITIATED.

SENCHR: MOV
MOV
MOV
MOV

R2,-(SP)
R3.-(SP)
R&.-(SP)
RS,=(SP)

: SAVE

SENCH2: MOV
MOV

LPRINI,aLPR
TCRENA.QTCR

S1F D2 THEN SET FARMS, IF DL THEN NO EFFECT.
“1F DZ THEN SET CHANNEL. IF DL, NO EFFECT.

CLR
RESINN: CLR
SENCLP: INC
CMP

BM]

RS
R3
R3
R3,#7000

CNTNU

;

REGISTERS

: COUNTER
: COUNTER
;INNER LOOP CHECK

*KEEP LOOPING UNTIL WE REACH 77000

INC

CMP

RS,#70.

:PRINT A WAITING TO SEND MESSAGE.

PRINTX

WISTPM

*WAITING TO SEND TO PRINTER MESSAGE.

BNE

COiE

sOUTER LOOP COUNTER

“CONTINUE WITH LOOP IF NOT 70 YET.

MOV
MOV

WISTPM,-(SP)
0, -(SP)

GLOBAL AREAS

SEQ 61

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

GLOBAL SUBROUTINES SECTION

013446
013450
56 013452

010600
104415
062706

57 013456
58 013462
gg 013464

020527
100045
000753

000144

61 013466
g% 013474

032777
001007

000200

64 013476
22 013504

033777
001744

010044

110277
000445

173572

;2 013514

017704

173562

75 013520
;g 013524

120437
001764

78 013526
gg 013532

MOV
TRAP
ADD

000004

SP,RO
CSPNTX
¥4 ,SP

(OIE:

(MP
BPL
BR

RS,#100.
EXETS
RESINN

;ALLOW 100 LOOPS BEFORE TIME OUT.
;FAILURE TO FIND TRDY.
;RESET INNER LOOP

173602

C(MTNU:

BIT
BNE

#BIT7,3RCSR
ALPHA

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

173574

BETA:

BIT
8tQ

TRDYBT ,aXCSR
SENCLP

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

MOV8B
BR

R2,3XBUF
EXITS

;PUT CHARACTER INTO TRANSMITTER BUFFER.
;AND EXIT

MOV

aRBUF ,R4

;READ THE RECEIVER BUFFER.

006520

(MPB
BEQ

R4, XON
BETA

;1S IT = "'XON'"?
JIF IT IS THEN ALL IS OK, CONTINUE.

120437
001007

006517

(MPB
BNE

R4, XOFF
(HKCAN

;1S IT
= "'XOFF'"?
:IF NOT ''XOFF'* THEN MAYBE IT IS A '

81 013534
82
83 0135«0
gg 013546

004737

013640

JSR

PC.WAITXN

022737
001427

177777

CMP
BEQ

#-1,GREASE
EXITS

lF IT WAS AN XOFF THEN WE MUST WAIT FOR
AN XON AND THEN SEND CHARACTER.
HAS A TIME-OUT OCCURRED? EXPRESS EXIT
;FROM THIS ROUTINE MAY BE REQUIRED.

gg 013550

000712

SENCH2

:XON FOUND ON TIME.

88 013552
38 013556

120437
001416

006516

CHKCAN: (MPB
BEQ

R4, CAN
SETER

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

91 013560
g% 013564

120437
001413

006515

CMPB
8EQ

R4 ,EOT
SETER

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

94 013566
95
96
g; 013574

052737

010000

BIS

#BIT12 ,ERWORD

BETA

;NONE OF THE USUAL CHARACTERS FOUND
:
ASYNCHRONOUSLY. UNEXPECTED CHARACTER
RECEIVED INDICATED IN ERWORD.
TRY AGAIN TO SEND CHARACTER

99 013576
100 013606
}8} 013612

012737
012737
000405

000001
177777

006512
002206

EXETS:

MOV
MOV
BR

#1,FLTRDY
#-1,GREASE
EXITS

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

103 013614
}8; 013622

052737
004737

100000
014774

006500

SETER:

BIS
JSR

#BIT15,ERWORD
PC,STSERR

;CAN OR EOT TYPE ERROR
;SET UP ERWORD.

106 013626

012605

EXITS:

MOV

(SP)+,RS

69 013506
;? 013512
72

107 013630
108 013632
109 013634

ALPHA:

002206

006500

000740

012604
012603
012602

MOV
MOV
MoV

(SP) ¢+ ,R&
(SP)+ R}
(SP)+,R?

;RESTORE
;

REGISTERS

LOOK FOR TRANSMIT READY.

GLOBAL AREAS

SEQ 62

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

WLIN = O
OO ~NO WV

i
P

b o

D e

GLOBAL SUBROUTINES SECTION

013636

000207

RTS

GLOBAL AREAS

SEQ 63

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

GLOBAL SUBROUTINES SECTION
.

2
3

|===eeecceccccmcceccerccecceecr
oo ccaccc e ccossea o
o ssaaccacoonn

;

10
};

;
:

*FUNCTIONAL DESCRIPTION

GLOBAL PROCEDURE WAITXN:

THIS PROCEDURE WAITS FOR THE "'XON'' CHARACTER TO BE SENT BY THE

e eL L
T

: INPUTS

PRINTER. IF THE CHARACTER IS NOT SENT WITHIN A REASONABLE AMOUNT
OF TIME, THEN A TIME - OUT WARNING IS GIVEN.

;

TOUTPUTS

*SUBORDINATE ROUTINES

'FUNCTIONAL SIDE EFFECTS

)

35
35
36

39 013640
29 013662

010146
010446

22 013650

005001

45 013652

012705

004000

48 013662
49 013670
50 013672

032777
001415
004737

000200

54 013704
55 013712
gg 013720

012737
052737
000137

177777
010000

51 013676
g% 013702

004737

120437
001440

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

DELAYS

CLR

MOV

014012

014004

002206
006500

WITH RS SET TO 1.

R1,-(SP)
R4 .= (SP)

ouUTSDC
R

#4000,RS

NO SiDE EFFECTS.

:SAVE USED REGISTERS
:

:OUTSIDE LOOP COUNTER.

“INSIDE LOOP COUNTER.

1 MINUTE WAIT

:ARGUMENT FOR THE DELAY

TABOUT 1 MSEC

BIT
BEQ
JSR

#BIT7,3RCSR
LOOPCK
PC,GETCHR

:RECEIVER READY? =0 IF NOT READY.
'NOT READY? THEN CHECK AGAIN
SGET THE BYTE

MOV
BIS
JMP

#-1,GREASE
#B1T12.ERWORD
EXITON

SUNEXPECTED CHARACTER RECEIVED. ENABLE
:"GREASEDTM EXIT FROM CALLING ROUTINE.
SEXIT ROUTINE.

CMPB
BEQ

006520

THIS ROUTINE WILL CAUSE A 100 USEC DELAY

PC,DELAYS

LOOPXN: JSR
173406

R1 AND R2 ARE PRESERVED.

oUTSDL: CLR

015224

THE ERROR FLAG-WORD IS CHANGED.

TO BE RECEIVED,

WAITXN: MOV
MOV

42 013644 005037 006510
29 013656

NO INPUTS FROM CALLING ROUTINE.

R4, XON
EXITON

SIS IT = "xON'' 2
“IF = XON OK... EXIT ROUTINE WITH NO ERROR

SEQ 64

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

GLOBAL AREAS
GLOBAL SUBROUTINES SECTION

58 013724
59 013726
60 013732
61
62 013734
63 013740
64 013746
65
66 013750
67 013756
68
69 013764
013764
013770
013774
013776
014000
70
4! 014004

72 014006
73
74 014010
75

76
144

005201
020127

077000

005237
023727

006510
006510

052737
052737

010000

012746
012746
010600

012512
000001

100751

100740

104415
062706

100000

000004

INC
cMP
BMI

R1
R1,#077000
LOOPXN

;UPDATE LOOP COUNTER
;LOOPED ENQUGH TIMES YET?

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
#BIT15,ERWORD

:NOT XON.... ERROR UCRB
;AN ERROR IS DETECTED AND

PRINTX

#TIM0OM

;PRINT TIMEOUT MESSAGE

LOOPCK:

012604
012601

EXITON: MOV
MOV

(SP)+,R1

000207

RTS

(SP)+ R4

S SEC CHECK

;CONTINUE TO LOOP UNTIL 5000 EXCEEDED.

;RESTORE

THE

REGISTERS

INDICATED
MoV
MOV
MOV
TRAP
ADD

#TIMOM,-(SP)
#,-(SP)

SP,RO
CSPNTX

#4,SP

GLOBAL AREAS

SEQ 65

MACRO V03,01 7-NOV~80 10:06:10 PAGE 16

GLOBAL SUBROUTINES SECTION
.

2
3

;

g
18

*FUNCTIONAL DESCRIPTION
GLOBAL PROCEDURE GETCHR
:

15
16
17
18
19
20

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

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

R
e
:
*INPUTS
:
:
NONE
:

EE L

LI LT

L Lt e

et m D

DD S DDl

:OUTPUTS

%2
%g
%g
g;

*SUBORDINATE ROUTINES
GET A 100 USEC DELAY
DELAYS ;
"FUNCTIONAL SIDE EFFECTS
THE ERROR FLAG-WORD MAY CHANGE IF AN ERROR IS FOUND.
:

THE RECEIVER BUFFER 1S READ AND PLACED IN Ré.

’

34 014012
35 014014
gg 014016

010146
010246
010546

38 014020
28 014024

005037
005001

006506

41 014026
42 014034
43
44 014036
22 014042

032777
001041

000200

012705
004737

000001
015224

2; 014046

005201

49 014050
g? 014054

020127
100764

002400

NOPRTM: CMP
BMI

g% 014056

005237

006506

54 014062
§5 014070

023727
001010

006506

012746

012414

56 014072
014072

173242

000024

GETCHR: MOV
MOV
MOV

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

;SAVE REGISTERS
:
.

CLR
OUTRLP: CLR

OUTCTR
R1

:OUTER LOOP COUNTER.
*TIMING INNER LOOP COUNTER.

LOOPG:

BIT
BNE

#BITO7.3RCSR
SENDR

MOV
JSR

#1,RS
PC.DELAYS

:RCSR-7 SET? RECEIVER READY? RDONE?
‘IF YES..... GET THE CHARACTER OUT OF THE BUFFER
PAND INTO Ré.
*SHORT DELAY... 100 USEC
*WAIT AROUND FOR A WHILE

INC

:LOOP COUNTER UPDATE.

R1, #2400
LOOPG

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

INC

OUTCTR

;UPDATE OUTSIDE COUNTER.

CMP
BNE
PRINTX

OUTCTR,#20.
CONTLO

-HAVE WE BEEN WAITING LONG?
“SKIP PRINT. ONCE PFR LONG WAIT ONLY.

#WFC

"PRINT WAITING FOR A CHARACTER FROM PRINTER.,
MFC,-(SP)
MGV

MACRO v03.01
GLOBAL AREAS
GLOBAL SUBROUTINES SECTION

012746
010600

000001

062706

000004

023727
1007461

006506

000132

052737
052737

020000

006500
006500

104415

SEQ 66

7-NOV-80 10:06:10 PAGE 16-1

100000

Mov
MOV

TRAP
ADD

CONTLO:

CMP
BMI

OUTCTR,#90.
OUTRLP

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

BIS
B1S

#BIT13,ERWORD
#B1T15,ERWORD

;ECNRB ERROR

B8R

EXITE

;GIVE UP WITH THIS RECEPTION

MOV

aRBUF ,R4

sPUT CHARACTER RECEIVED INTO R4

#1,-SP)

SP,RO
CSPNTX

#6,SP

;ERROR INDICATOR

173136

0146144
014150

120437

001403

006516

(MPB
BEQ

R4, CAN
ERSETT

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

014152
014156

120437
001003

006515

(mMPB
BNE

R4 ,EOT
EXITE

;1S THE CHARACTER AN "'EOT'' FROM THE PRINTER?

014160

052737

100000

ERSETT:

BIS

#B1T15,ERWORD

;WE HAVE AN ERROR CONDITION.

EXITE:

MOV

014174

RTS

AN ERROR WILL BE

;THEN SET BIT15

INDICATED.

IN ERWORD AND EXIT.

sIF NOT THEN EXIT WITH CHARACTER.

00
— PN

MOV

006500

VOO

014166
014170
014172

SENDR:

017704

'
st
uat

014140

000413

[ 7o 17, X7, ]

014136

OR NON-FATAL.

;RESTORE REGISTERS

EITHER FATAL

(CAN OR EOT)

GLOBAL AREAS

GLOBAL

MACRO v03.01

SUBROUTINES

SECTION

7-NOV-80 10:06:10 PAGE

SEQ 67

2
2

*FUNCTIONAL DESCRIPTION

;

GLOBAL PROCEDURE CONVRT:

THIS PROCEDURE CONVERTS A NUMBER CONTAINED IN REGISTER R1 INTO

1
}%

:
;

;

THREE ASCII BYTES WHICK ARE MNEMONIC ARGUMENTS ACCEPTABLE

TO THE

LQP CONTROLLER.
THE THREE BYTES ARE CONTAINED IN THE LOCATIONS:
gu;g; (MOST SIGNIFICANT BYTE), MNEB2, AND MNEB3 (LEAST SIGNIFICANT

14
15
16

YTE).
;
:
iSeeesesescccccccccceccocccscccccccccncccccccccccsccccacecccscecccacccana
.

;

SOUTPUTS

L INPUTS

MNEB1

MNEB3

'SUBORDINATE ROUTINES

NONE

REGISTERS ARE PRESERVED.

30
g;

MIGH ORDER BYTE MNEMONIC FROM VALUE IN R1.

MIDOLE BYTE MNEMONIC FROM JALUE

IN R1.

LOW ORCER BYTE MNEMONIC FROM VALUE IN R1.

:
:FUNCTIONAL SIDE EFFECTS

36
37
38
39 014176
2? 014200

010246
010346

42 016202
43 014204

010102
043702

006430

46 014212

052702

000040

49 016222

010102

043702
006202
006202
006202
006202

006432

§6 014240
57 014244

052702
110237

000040
010047

22 014210
2; 014216
50
51
52
53
gg

MNEB2

CONTAINS THE NUMBER TO BE CONVERTED INTO MNEMONIC FORM

014224
014230
014232
014234
014236

000302
110237

CONVRT: MOV
MOV

010046

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

:SAVE REGISTERS
.

MOV
BIC

R1,R2
TMPLT1,R?

:GET COPY DF NUMBER TO BE
:MASK IN BITS 8 - 11.

8IS

#B1TS,R2

R2,MNEBT

:CONVERT

;STORE RESULT

MOV

R1,R2

:COPY OF

BIS
MOVB

#B175,R2
R2,MNEB?

:CONVERT TO THE ASCI1 VALUE
;STORE RESULT IN GLOBAL VARIABLE

SWAB

MOVB
BIC
ASR
ASR
ASR
ASR

TMPLT2.R2
R2
R?
R2
R2

CONVERTED.

CRIGHT JUSTIFY MASKED BITS
TO THE

ASCII

VALUE

IN GLOBAL VARIABLE

ORIGINAL NUMBER

‘MASK BITS & - 7.
: RIGHT JUSTIFY
;
BITS 4 - 7
;
INTO BIT POSITIONS
;
0 - 3.

GLOBAL AREAS

SEQ 68

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

14 0

006434
000049
010050

MOV

BlC
BIS
Move

R1,R2

TMPLT3,R2
#BITS5,R2
R2,MNEB3

;RESTORE REGISTERS
;

0126 0
012602

MOv
MOV

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

67 014272

000207

RTS

64 0146266
65 014270
66

;GET ORIGINAL NUMBER

;MASK QUT LEFT 12 BITS.
;SET BIT 5.
(ONVERT 1O ASCII VALUE
;MOVE TO GLOBAL VARIABLE

~NroroN

ONIWNO

[

-000

—_ NI
—

GLOBAL SUBROUTINES SECTION

GLOBAL AREAS

SEQ 69

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

GLOBAL SUBROUTINES SECTION
1

;FUNCTIONAL DESCRIPTION

;

GLOBAL PROCEDURE INITCD

8
9
10
1
12
13
14
15
16
17

;
;
;
;
;
;
;
;
;
;

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

19
20
21

;
;
na
eccmmr
osccccoscocanna
ccsccccc
e cereeesecescacc
jemmeseccccc-ceccccccrcc

22
23

:
:INPUTS

AND FOUR LINEFEEDS TO THE PRINTER TO AID IN THE READABILITY OF THE
PRINT PATTERN.

NONE

27
28
29

;OUTPUTS
:

; SUBORDINATE ROUTINES

NONE

;

33
34

:
:

XMIT
STATS

STSERR

;FUNCTIONAL SIDE EFFECTS

40
41
42
43
ag

:
.
:
:
:

46
47

50 014274
51 014300
52 014302
53 014304

005037
010146
010246
010346

007314

56 014310

032777

000200

gg 014306

57 014316

1)
2)
3)
4)
5)

172760

GET A CHARACTE! FROM THE PRINTER

ADJUST THE STAIUS WORD VIA PRINTER QUERY

PRINTER STATUS IS DETERMINED.
RIBBON POSITION IS SET DOWN.
HIT COUNT IS SET T0 1.
NO-UNDERLINE MODE IS SET.
PRINT CARRIAGE RETURN AND FOUR LINEFEEDS.

INITCD: CLR
MOV
MOV
MOV

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

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

EMPTIB: BIT

#BI1T7,3RCSR

;1S THERE A CHARACTER IN THE RBUF?

MOV

010446

001403

GETCHR

SEND SEQUENCES TO THE PRINTER
CMECK FOR ERROR . ENTRYPOINT IN STSERR.

BEQ

R4 ,-(SP)

RESETC

;1F NO CHARACTER IN RBUF, THEN CONTINUE...

GLOBAL AREAS

SEQ 70

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

GLOBAL SUBROUTINES SECTION

58
59 014320
g? 014324

005777
0007M

172756

18T
BR

62
63
64
gg

014326
014332
014336
014340

012701
012702
005003
004737

002214
000010
012616

RESETC: MOV
MoV
CLR
JSR

gg 014344

005037

006500

69 014350
70 014354
71 014360
;% 014362

012701
012702
005003
004737

002224
000002

764 014366
75 014372

aRBUF
EMPTIB

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

#DUMMYS R
#8.,R2
R3
PC,XMLT

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

CLR

ERWORD

;ASSUME THAT NO ERRORS HAVE YET OCCURED.

012616

Mov
Mov
CLR
JSR

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

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

004737
120437

014012
006521

JSR
(MPB

PC,GETCHR
R4 ,ESCAPE

;READ
'ESC’"
CHR FROM RBUF
;CHECK FOR CORRECT CHARACTER

78 014400

004737

014012

000040

JSR

(MPB
BNE

PC,GETCHR

;READ STATUS CHR. SHOULD BE SPACE CHARACTER.

82 014412
83 014416
gg 014422

004737
120427
001021

014012
000040

JSR
(MPB
BNE

PC,GETCHR
R4 ,#ZERC
INIERR

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

86 0144246
87 014430
88 014434
gg 014440

004737
042704
120427
001012

014012
000001
000040

JSR
BIC
(MPB
BNE

PC,GETCHR
#B1T0,R4
R4 ,#ZERO
INIERR

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

91 0146442
92 014446
gz 014452

004737
120437
201005

014012
006532

JSR
(MPB
BNE

PC,GETCHR
R4, SCO
INIERR

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

95 014454
96 014460
gg 014464

004737
120137
0014613

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
81S
81S
JSR

#BIT12,ERWORD
#BIT13,ERWORD
#BIT15,ERWORD
PC,STSERR

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

104 014514
105 014520
106 014526
107 014532
108 014536

012700
112760
012701
012702
005003

000001
000040
002240
000003

004737

012616

SETUPI: MOV
Move
Mov
MOV
CLR

#1,R0
#1ERQ,RIBPOS(RO) ;RIBBON POSITION DOWN
#RIBPOS,R1
sACDRESS Ut ARGUMENT LIST
#3,R2
:SCHARACTERS IN ARGUMENT LIST
R3
:NC PRINTING

111 014544

012700

000001

;g 014376

79 014404
g? 014410

}?8 014540

112 014550
113 014556
114 014562

001033

120427
001026

112760
012701
012702

000040
002257
000003

BNE

006500
006500
0065C0

002240

JSR

002257

MoV

MOovB
MOV
MOV

INIERR

R4, #ZERO
INIERR

PC,XMIT
#,R0

;INDICATE ERROR IF NOT CORRECT. THEN CONTINUE

;SHOULD BE NO ERRORS - RIGHT FOUR BITS = 0000
;1F RIGHT FOUR BITS NONZERO, INDICATE ERROR.

;SEND TO PRINTER

#7ERO,STHTCTC(RO) ;SET HIT COUNT TO 1 HIT PER (HARACTER
FSTHTCT,RY
;ADDRESS OF ARGUMENT LIST
#3.R2
:THREE ARGUMENTS IN THE

GLOBAL AREAS

MACRO v03.01

GLOBAL SUBROUTINES SECTION

7-NOV-80 10:06:10 PAGE

115 014566

005003

004737

012676

118 014574
119 014602
120 014606

112760
012701
012702

000040
002266
000003

}}9 014570

121 014612
}%% 014614

005003
004737

124
125
12¢
}%g

014620
014624
014630
014632

012701
012702
005003
004737

002313
000002

129
130
131
132
133
}gg

014636
014642
014646
014650
014654
014660

012701
012702
005003
004737
004737
004737

002314
000001

136 014664
137

005037

006502

138
139
140 014670
141
142

005037

145 014674
146 014700
147 014704
148 014710
}gg 014712

012705
012704
004737
005304
100374

151 014714

012604

000207

:NO PRINTING

move
MoV
MGV

#1ERO,STULMD(RO)
#5TULMD, R
#3,R2

;SET UNDERLINE MODE
;ADDRESS OF ARG LIST
; THREE ARGUMENTS

MOV
MOV
CLR
JSR

#(R,R1
#2,R2
R3
PC,XMIT

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

MOV
Mov
CLR
JSR
JSR
JSR

#LF R
#1,R2
R3
PC,XMIT
PC,XMIT
PC,XMIT

;ADDRESS OF LINEFEED
;PRINT THE SINGLE CHARACTER
;WITHOUT BIDIRECTIONAL PRINTING
;SEND TO PRINTER
;AGAIN.
..
;AND AGAIN...

CLR

CRNTPR

;CLEAR CURRENT COUNT WHICH IS USED IN
;BIDIRECTIONAL PRINTING TO KEEP TRACK OF

CLR
JSR

012616

012616
012616
012616

006504

18-2

(LR

JSR
002266

SEQ N

CLR

PC,XMIT

R3
PC,XMIT

DIRCTN

}22

152 014716
153 014720
}gg 014722

156
157 014724
158
159
160
161
162
163
164
165
166
167
168

;SEND TO PRINTER

;NO PRINTING
;SEND TO PRINTER

; 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 IS TRUE AT THIS POINT BECAUSE THIS

;ROUTINE RE-INITIALIZES THE PRINTER.
007000
007000
015224

MOV
MoV
LODELY: JSR
DEC
BPL

012603
012602
012601

#7000,R5
#7000,R4
PC,DELAYS
R4
LODELY

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

MOV

(SP)+,R4

;RESTORE

RTS

MoV
MoV
Mov

:
;

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

;
.

REGISTERS

SEQ 72

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

T TR
T
T
I )

—

GLOBAL AREAS
GLOBAL SUBROUTINES SECTION

POPORNIPNOPNVIAINIA)
= b oo o e e od =D d b

NN 2O 000 NO NS

;FUNCTIONAL DESCRIPTION

GLOBAL PROCEDURE RANDOM

RANDOM NUMBER GENERATOR.

POP-8 WRITTEN BY BILLY CRAFT,

NPV

SEED1

SEED
NOT EXPLICITLY PASSED BY SOFTWARE. FIRST
GENERATION.

WILL CONTAIN THE RANDOM NUMBER (0-99)

SEED2

{OUTPUTS

NONAL NN =S OO

THE ALGORITHM FOR THIS RANDOTM

NUME"R GENERATOR WAS SUPPLIED BY THE LQP DIAGNOSTIC ON THE

:INPUTS

SAME AS SEEDT.

USED FOR RANDOM NUMBER

:SUBORDINAYE ROUTINES
NONE

"FUNCTIONAL SIDE EFFECTS
TRTR
I TR R
TN Y

38 014726

39
40 014730
6

WILL BE DIFFERENT FROM THE ONE JUST COMPUTED.
CALLING

SEQUENCE
NO EXPLICIT PARAMETERS ARE PASSED.
PC.,RANDOM
JSR

;RANDOM NUMBER GENERATOR

RANDOM: NOP

000240

012701

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

000001

TRYAGN: MOV

;RANDOM NUMBER [S GENERATED FROM
IF DESIRED,
SEED1 AND SEEDZ2.
;TWO SEEDS:

ITHESE SEEDS MAY BE CHANGED USING A DYNAMIC

&2
&3

THE RANDOM NUMBER: RANGE 0 - 99

WiLL BE HELD IN REGISTER: R1.

:DEBUGGER OR RE-ASSEMBLY OF THE PROGRAM WITH
006424
006426

;NEW SEED VALUES.

(NOT RECCOMENDED)

;GET THE SEED1 VALUE (SLIGHTLY ALTERRED)

ADD

SEED1,R1

ROL
ROL

R1
R1

;ROTATE CONTENTS SO THAT VALUE IS LOST
;ROTATE AGAIN. VALUE IS CHANGED AGAIN

014734
014740

063701
063701

014744
014746

006101
006101

51 014750
52 014754
53

060137
010137

006424
006426

ADD
MOV

R1,SEED]
R1,SEED?

:NOW A NEW SEED VALUE
:AND A NEW SECOND SEED VALUE
;BOTH FAIRLY UNRELATED TG THE ORIGINAL SEECS

042701

177600

BIC

#177600,R1

022701

000143

(MP

#99. .R1

;MASK OUT THE LEFT NINE BITS
; THE NUMBER NOW HAS A POSSIBLE RANGE OF 0-127
;1S THE NUMBER 0-99 ?

65
46
47
48
49

56
55 014760
5%
57 014764

ADD

SEEDZ.RY

;ADD THE SECOND SEED VALUE

GLOBAL AREAS

SEQ 73

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

GLOBAL SUBROUTINES SECTION

58 014770

59
60 014772

100757

BM]

TRYAGN

000207

RTS

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

GLOBAL AREAS

SEQ 74

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

O N IS NN —

GLOBAL SUBROUTINES SECTION

}

DESCRIPTION

GLOBAL PROCEDURE STSERR:

THIS ROUTINE DOES TWO THIMGS: IT REQUESTS STATUS FROM THE PRINTER AND
THE ENTRY POINT =STATS- MAY
SETS UP THE ERROR FLAG - WORD (ERWORD).

NS (NN =2 O OO00

}

FUNCTIONAL

BE USED TO SKIP THE REQUEST STATUS CODE.

oon
csceeccs
e e e s oo o saccesccccaccc
e sees eccccccsc
jeemescmc-mcccsccccccccc

;
:INPUTS

}

1OUTPUTS

N =2 OOV

}

ERWORD -

%
%3

ERWORD :
:SUBORDINATE ROUTINES

;

SENCHR -

GETCHR

SOME BITS MAY ALREADY BE SET, INDICATING ERRORS ALREADY
THIS GLOBAL SYMBOL WILL INDICATE ALL COMPUTABLE ERRORS.

USED TO TRANSMIT CHARACTERS TO THE
PRINTER.
THE PRINTER.
USED TO RECEIVE CHARACTERS FROM

“FUNCTIONAL SIDE EFFECTS
THE GLOBAL SYMBOL ERWORD WILL REFLECT THE STATUS OF THE PRINTER.
E

" CALLING SEQUENCE

36
37

:
;

;

113702

002210

STSERR: MOVB

116002

002210

MOVB

004737
012700

2; 015014

004737

013366
000001

013366

49 015020 010446

JSR

PC,STATS

NORMAL ENTRY

IS CHECKED AS IS.

STATUS REQUESTED FROM PRINTER
2ND ENTRY POINT. THE STATUS

STATS:

SSEND ''ESC 0'' TO THE PRINTER.

PC,SENCHR
#1,R0

JSR

PC,SENCHR

“REQUEST STATUS FROM PRINTER.

MOV

R4 ,=-(SP)

:PUSH REGISTERS

JSR

PC,GETCHR

R4 .STATUS
PALPHA

:GET A CHARACTER FROM THE FRINTER.

STHE CHARACTER IN R4 SHOULD BE AN ESC (HARACTER
TEXPECTED CHAR NOT RECVD, UNCXPECTED CHAR RCVD.

PC,GETCHR
TMPLT3, R4

SGET N3 FROM PRINTER. FATAL ERRORS INDICATED.
CCLEAR LEFT 12 BITS.

MOV

010346

§2 015024

004737

014012

002315

CMPB
BNE

56 015036
57 015042

004737
043704

014012
006434

JSR
BIC

120437
001057

STSRES,R2

JSR
MOV

g? 015022

53 015030
gg 015034

PC,STSERR

;

44 015000
45 015004

46 015010

JSR

;

43 014774

NO EXPLICIT PARAMETERS ARE PASSED TO THE ROUTINE.

;

REGISTERS ARE PRESERVED.

STSRES(RO),R2

RY.-(SP)

GLOBAL AREAS

SEQ 75

MACRO v03.01 7-NOV-B0 10:06:10 PAGE 20-1

GLOBAL SUBROUTINES SECTION

58 015046
zg 015050

000304
050437

61 015054
62 015060
63 015064
64 015066
65 015070
66 015072
2; 015074

004737
043704
006304
006304
006304
006304
050437

014012
006434

69 015100
70 015104

004737
0437064

014012
006434

;9 015130

042737

046400

78 015136
79 015142

005737
001403

006500

053737

100000

83 015152
84 015156
g? 015162

004737
123704
001415

014012
006532

87 015164
gg 015172

052737
000403

020000

3? 015174

052737

92 015202
gz 015210

052737
012737

71
72
73
;g

015110
015114
015120
015124

80 015144
g;

042704
042704
042704
050437

95 015216 012603
89 015220

012604

gg 015222

000207

100
101
102
103
104
105
106

SWAB
BIS

R4
R4 ,ERWORD

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

JSR
BIC
ASL
ASL
ASL
ASL
BIS

PC,GETCHR
TMPLT3,R4
R4
R&
R4
R&
R4 ,ERWORD

;GET N2 FROM PRINTER. NON-FATAL ERRORS FRM PRTR
;CLEAR THE LEFT 12 BITS. (NOT WANTED)
JSHIFT
:
LEFT
;
FOUR
;
POSITIONS.
;AND SET THE APPROPRIATE BITS IN ERWORD.

JSR
BIC
BIC
BIC
BIC
BIS

PC,GETCHR
TMPLT3,R4

;GET ANOOTHER CHARACTER. N1. PRINTER CONDITION
;CLEAR THE 12 LEFT UNWANTED BITS,

BIC

#46400,ERWORD

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

TST
BEQ

ERWORD
CRCLX

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

JSR
(MPB
BEQ

PC,GETCHR
SCO,R4
EXITSR

;HOPE TO GET A ''0"
:1S 1T THE EXPECTED ''0"' ?
;IF EQUAL TO EXPECTED CHAR (''0'"), THEN DONE.

006500

31§
BR

#ECNRB,ERWORD
SET1S

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

020000

006500

PALPHA: B1S

#ECNRB,ERWORD

;EXPECTED CHARACTER NOT RECEIVED INDICATOR

100000
177777

006500
002206

SET15:

#BIT15,ERWORD
#-1,GREASE

; INDICATE THAT AN ERROR HAS OCCURRED.
:ESG?%EEQ "'GREASED’' EXIT FROM THE CALLING

006500

000001
000004
000010
006500

006500

BIS

CRCLX:

BIS
MOV

EXITSR: MOV

MOV
RTS

:
:
:

#B1T0,R4
#BIT2,R4
#BIT3,R4
R4 ,ERWORD

BIT15,ERWORD

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

;SHEET FEEDER PRESENT NOT A GENERAL ERROR.
;NOT USED BY PRINTER
;NOT USED BY PRINTER
;SET APPROPRIATE BITS IN ERWORD.

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

:RESTORE REGISTERS.
:

SEQ 76

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

—

MACRO v03.01
GLOBAL AREAS
GLOBAL SUBROUTINES SECTION

FUNCTIONAL DESCRIPTION

2O 000NN

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 RS

NIRNIPOPININD
= =D cd o e o e o =D d

WILL BE ZERO.

INPUTS

NPV

CONTAINS THE NUMBER OF

100 USEC INCREMENTS DESIRED.

;OUTPUTS

VIS AN = OV

NONE
;
SUBORDINATE ROUTINES
NONE
:
:FUNCTIONAL SIDE EFFECTS
THE DELAY IS AT LEAST 0.103MSEC X RS
E

:CALLING SEQUENCE
:

PC,DELAYS

#21.,DELCNT

:2.91USEC. - INNER LOOP INITIALIZATION

INLOOP: DEC

DELCNT

:2.385USEC. -

100375

BPL

INLOOP

:2.385Us€EC. -

005305

100370

DEC
BPL

RS
DELAYS

000207

RTS

012737

000025

42 015232

005337

010054

44 015236
46 015240
47 015242
48
49 015244
50
51
(V. P XV 1,8

JSR

DELAYS: MOV

40 015224

[V LV AV, 1V, )

NO PARAMETERS.

010054

-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

SNANPD
—2

GLOBAL SUBROUTINES SECTION

SEQ 77

GLOBAL AREAS

MACRO v03.01

GLOBAL SUBROUTINES SECTION

SEQ 78

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

2
3

SRRRRRANRRRRRRRRREARRRRRRRRRORNRON
RN RRRNRRRNRRRNRRRNRRRNRRNRRRNRRRNNNNRNNNNY

Et'tttttttttttttttn ERROR DECODE AND PRINT SUBROUTINE tettvsecentencetntentner

6
7
g

:FUNCTIONAL DESCRIPTION

12
13

:
:

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

DECODES THE ERRORS WHICH HAVE OCCURRED.

WERE LOCAL VARIABLES.

;

THE DIAGNOSTIC SUPERVISOR MACRO CALL ERRTBL.)

*INPUTS

‘OUTPUTS

YIMPLICIT OUTPUTS

*SUBORDINATE ROUTINES

*CALLING SEQUENCE

IN THE MODULE.

THE

(THE FOUR GLOBAL VARIABLES WERE ASSIGNED BY

R
RTRPPps

REFLECTS THE ERROR STATUS OF THE PRINTER.

_ ERWORD

CLEARED AFTER EXECUTION OF ROUTINE

PGMCTR

PROGRAM COUNTER AT TIME OF CALL WHEN THE ERROR OCCURRED

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

ERROR MESSAGES ARE PRINTED.

SUPERVISOR MACROS PRINTB.PRINTX.ERROR
JSR

PC,ERRORS

MOV

R3,-(SP)

:PUSH REGISTERS

43 015246

010346

46 015252

032737

100000

006500

BIT

#BIT15,ERWORD

;IS ERROR FOUND BIT SET?

gg 015262

162737

000004

007314

SUB

#4 PGMCTR

;ACCOUNT FOR AUTOINC OF PC WHEN PUSHED BY JSR

51 015270

005003

:LOOP COUNTER AND TABLE POINTER.

001435

006500

CLR

gz 015300

000001

BEQ

NXTERM

“IF NOT SET, THEN CHECK THE NEXT BIT.

zg 015250
2; 015260

52 015272

§6 015302
§7 015310

ERRORS:

THE
THEY

IS ASSUMED THAT THESE VARIABLES ARE NOT USED

ERWORD

ELSEWHERE

THE ROUTINE WILL PRINT

ERROR MESSAGES ON THE CONSOLE TERMINAL.
REGISTERS ARE PRESERVED.
GLOBAL VARIABLES ERRTYP, ERRNBR, ERRMSG AND ERRBLK ARE USED AS IF

010446
001473

032737

012737
016337

000001
007316

010072
010076

MOV
BEQ

NXTBIT:

BIT

;

MOV
MOV

R4 .~ (SP)
EXTMCR

#BITO,ERWORD

“IF NOT SET, THEN EXIT THE SUBROUTINE.

-1S THE RIGHT-MOST BIT SET?

#1,ERRTYP
ERMSGB (R3) ,ERRMSG

ERRDF

CALL = ERRTYP:1

:USING THE ERRTBL SET UP BY THE
"SUPERVISOR DEVICE FATAL MACRU CALL

MACRO v03.01
GLOBAL AREAS
GLOBAL SUBROUTINES SECTION

58 015316
59

010074

MOV

ERROR

104460

013746
0

PRINTB

007314
010230
000002

;ERROR NUMBER BEING CHECKED.
;MACRO CALL - WITH ABOVE PARMS

R3 ERRNBR

TRAP

MOV
MOV

Mov
MoV
TRAP

—

000006

005250
010302
000002

015370

013746
012746
012746
010609
104415
062706

€4 015374
015400

062703
006237

000002
006500

015404

022703

71 015410
015412

001330
005037

015416
75 015424

022737
001010

000001

012746
012746
010600
104414
062706

012316
000001

015426
015426
015432
015436
015440
015442

77
78 015446

015446

79
80 015450
81 015456
82 015460
015460
015464
015470
015472
015474
83
84 015500
85 015502
86
87 01 015504

PRINTX

CSERROR

;PRINT BASIC ERROR MESSAGE AND P(

#PRTBMO,PGMCTR

D e

60
61

010337

SEN 79

7-NOV-80 10:06:10 PAGE 23-1

PGMCTR,~-(SP)
- (SP)
#PRTBMO,

#2,-(SP)
SP,RO
CSPNTB

#6,SP
ADD
;PRINT EXTENDED ERROR MESSAGE AND
TRXADD ,=(SP)
MOV
#PRTXMO,-(SP)
Mov

#PRTXMO, TRXADD

MOV
MOV

TRAP
ADD

000006

#2,-(SP)
SP,RQ
CSPNTX
#6,SP

JADDRESS OF TRANSMITTED STRING AND
;THE ERROR FLAG-WORG.
ADD

#2,R3

;POINT TO NEXT TABLE ENTRY.

000034

cMP

#28. ,R3

DONE WITH ALL THIS WHEN R3 IS 28 AND 13

006500

BNE
CLR

NXTBIT
ERWORD

BITS HAVE BEEN CHECKED.
REPEAT UNTIL 13 LOOPS COMPLETE.
;SINCE WE ARE DONE, CLEAR THE ERROR FLAG-WORD.

CMP
BNE

#1,FLTRDY
DCUPA

;IF

NXTERM:

006512

ASR

PRINTB

ERWORD

#FXRDYM

;GET NEXT BIT INTO POSITION.

;WAS THERE A FAILURE TO FIND TRANSMIT-READY?
NOT, DO CLEANUP

sPRINT

TO CONSOLE:

000004
DCUPA:

104444

022737
001010

000001

012746
012746
010600
104414
062706

012316
000001

006512

OOCLN

EXTM(CR: CMP

BNE
PRINTB

FAILED TO TRANSMIT TO PRNTR
- (SP)
#FXRDYM,
MOV
#1,-(SP)
MOV
MOV
SP,RO
TRAP
CSPNTB
ADD

#4,5SP

TRAP

CSDCLN

MOV
MOV
MoV
TRAP
ADD

#FXRDYM,-(SP)
#1,-(SP)
SP,RO
CSPNTB
#4,SP

#1,FLTRDY
DOCUPA
#FXRDYM

000004

012604
012603

DDCUPA: MOV

MOV

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

000207

RTS

sRESTORE

REGISTERS

GLOBAL AREAS

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

GLOBAL SUBROUTINES SECTION

;0"”‘#"##0###'0"!'0#l#llllllllll'lllll#llfilllllllllll#l#llfillllllllllllllll

101
102

LTITLE MISCELLANEOUS SECTIONS
.SBTTL
REPORT CODING SECTION

SEQ 80

CONO
NS NP

MISCELLANEOUS SECTIONS
REPORT CODING SECTION

SEQ 81

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

.
.

THE REPORT CODING SECTION CONTAINS THE
"PRINTS'" CALLS THAT GENERATE STATISTICAL REPORTS.

OO0

BGNRPT

EXIi

000167
000000

LSRPT::

RPT

.WORD
.WORD

J$JMP

TRAP

CSRPT

L10002-2-.

LEVEN

ENDRPT
104425

.SBTTL

PROTECTION

L10002:
TABLE

MISCELLANEOUS SECTIONS

PROTECTION TABLE

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

;46

: THIS TABLE IS USED BY THE RUNTIME SERVICES
TO PROTECT

6
7 015514

177777
177777
177777

-1
-1
-1

LSPROT::
:OFFSET INTO P-TABLE FOR (SR ADDRESS
:OFFSET INTO P-TABLE FOR MASSBUS ADDRESS
;OFFSET INTO P-TABLE FOR DRIVE NUMBER

ENDPROT

}2 015522
15

THE LOAD MEDIA.

BGNPROT

8 015514

9 015514
10 015516
}% 015520

SEQ 82

JSBTTL

INITIALIZE SECTION

MACRO v03.01

SEQ 83

7-NOv-80 10:06:10 PAGE 2¢

»r-

SECTIONS
LIZE SECTION

NO WV S

: THE INITIALIZE SECTION CONTAINS THE CODING THAT [S PERFORMED
;

2OV

THIS CODE WILL ACT ON THE HARDWARE P-TABLE

CONTENTS TO SET UP THE

SERIAL INTERFACE THAT THE PRINTER IS CONNECTED TO.

[}

VAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARAAAAAARLAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

(VA VLV
LV LN, ]

PV
L Y
oo

AVl IV, LV LV,

wd
b ad o

b
b
d
b
—b

Y, TV 1,61,
N1, ¥
OOoOo NN

b
D od wh
b
D
D

LSINIT::

INITIALIZE ROUTINE.

(VL AV LV LV IV IRV LV, TV LV 1V ]

OO0 NN SN
o

EACH PASS,

CAAAAAAAAAAALAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAN

OO0OO0O [eleYalelelolelelele)

32
33

BEGINNING GF

15602

OOOOOOO

THE

[elololeleliNelelolelo]

BGNINIT

D d o b e ed d =
—
~N
~no

-4y

—uN

— B
P

L ?NEOUS

37
38
39 015636

012700

104447

INITLZ: READEF

000036

BCOMPLETE

103425

012700

104447

READEF

000035

012737
005237
023737
001407

177777
002202
002202

013700

002202

010037

002202
002012

NEXTU:

002204

000403

ABORT:

016566

000340
016572
000004
000003

#-1.LOGUNI

3
BEQ
GPHARD

LOGUNIT,LSUNIT
ABORT
LOGUNIT,PLCC

INC

DOCLN

NEXTU

STRTUP

JENDIN:

JMP

ENDIN

STRTUP:

SETVEC

#4 ,FUBTRAP,#PRIO7

#EF . CONTINUE
,RO

BCS

JENDIN

MOV
TRAP

#EF _NEW,RO

BCC

NEXTU

MGV
TRAP
MOV

RO
LOGUNIT
RO,PLOC

BCC

NEXTU

TRAP

CSDCLN

CSREFG

ERWORD

C$GPHRD

;SET UP TRAP VECTOR FOR ILLEGAL ADDRESS

;TRAP,
..

(LR

MoV
TRAP

LOGUNIT

000010

006500

NEXTU

MOV

BNCOMPLETE

103364

JEND IN

WEF .NEW

BNCOMPLETE

103003

106442

#EF . CONTINUE

UNIBUS ERROR.

;ASSUME NO ERRORS

MoV
MOV
MOV
MOV
TRAP
ADD

#PR107,-(SP)

FUBTRAP,-(SP)
84 ,-(SP)

#3,-(SP)

CSSVEC

#10,5P

MISCELLANEOUS SECTIONS

INITIALIZE SECTION

MACRC v03.01

40 015642
6 015646
42 015652

005037
005037
005037

010056
006512
002206

CLR
(LR
CLR

NDATA
FLIRDY

015656
015662

017701
001137

164322

mMov

BNE

8PLOC R
SETUPC

CLR

NDATA

015664
015670
015674

005037
004737
000137

CALLDF:

015700
015704
015710
015714
015722
015724
015724
015730
015734
015736
015740
015744
015744

005037
004737
005037
023727
001011

CALLDL:

015746
015752
015754

012700
005300
002407

000144

015756
015764

032777
001403

000200

015766
015772

005777
000767

171310

015774
016000
016004
016010

005037
005037
005037
005037

006500
010056
006512
0022C6

016014
016020
016024
016026
016032

002210
000002

016040
016046

012701
012702
005003
004737
042737
023727
001404

006512

006500
000001

016050
016056

023727
001011

010056

000001

016060
016060
016064
016070

000001

JSR
JMP

PC,OFAULT
LINCOD

CLR
JSR
CLR
CMP

NDATA
PC,OLSET

PRINTF

FEAILDL

BNE

062706

000004

ERWORD
NDATA, #1

EMPTI2

012616

100000

EMPT]Z: MoV
EMPTLZ: DEC
BLT
171312

NONDTA:

;GET CSR ADDRESS
;1F NOT ZERO, THEN SET UP INTERFACE ADDRESSES
;CSR, LPR,

TCR, RBUFF

;ASSUME NO UNIBUS ADDRESSING ERRORS YET.
;00 THE DEFAULT LOGIC & THEN THE LINE SIZE CODE
;DO 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

RO
NONDTA

MoV
MoV
MO\
1RAP
ADD

#FAILOL,-(SP)
#1,-(SP)

TRAP

CSDCLN

SP,RO

CSPNTF

¥4 ,SP

;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, JRCSK
NONDTA

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

TST
BR

aRBUF

EMPTL?

[GNORE BUFFER CONTENTS.
;EMPTY RBUF.
AGAIN AND EMPTY BUFFER
RDONE
FOR
;CHECK

CLR
CLR
CLR
CLR

ERWORD
NDATA

+ASSUME NO ERRORS
;ASSUME NO UNIBUS ERRORS

GREASE

;ASSUME NO PREVIOUS ERRORS.

Mov
MOV
CLR
JSR
8I(C
cMP

#STSRES,R1

BEQ

PFM1:

;ASSUME NO PREVIOUS ERRORS

JEXIT TEST SEQUENCE

DOCLN

104444

;ASSUME NO UNIBUS ERRORS

JASSUME NO FAILURE TO FIND TRANSMIT RDY

GREASE

012746
012746
010600

104417

SEQ 84

7-NOV-B0 10:06:10 PAGE 2¢-1

;ASSUME NO FAILURE TG FIND TRANSMIT RDY

FLYRDY

¥2,R2

R3
PC,XMIT
#B1T15,ERWORD
M
FLTROY,
PFM

;ADDRESS OF REQUEST STATUS SEQUENCE

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

CMP
BNE

NDATA,#1

NONDT?

;ANY UNIBUS ERRORS?
;1F SO, PRINT FAILURE MESSAGE.

PRINTF

FEALLDL

;PRINT

FAILURE MESSAGE

MoV
MoV
MOV

SEALLDL ,~(SP)
# ,-(SP)

SP.RO

MISCELLANEOUS SECTIONS

INITIALIZE SECTION

MACRO v03.01

1044617
062706

004737
120437
0014611

NONDT2:

000004

016162
016166
016172
016174

012700
063700
011001
100633

000002
002204

016176

NONDT3

#EATLDL

#4,SP

TRAP

C$OCLN

;CHECK FOR A RESPONSE CHARACTER

;WAS THE (HARACTER AN ESCAPE CHARACTER?
;GET THE REST IF ESC FOUND.
;PRINT

FAILURE MESSAGE

FOR DL

JEXIT TEST SEQUENCE

DOCLN

NONDT3:

nroroN

OOOO

O NOWVNE WO

2 O

D e

016456

d d =

d ed e

000137

D o

D
b

016156

- md i

— e

004737
004737
004737
004737

PC,GETCHR
R4 ,ESCAPE

SETUP.
MOV
MoV

ADD

TRAP

CSDCLN

:GET THE 2ND CHARACTER [N RESPONSE.
3RD
:

LINCOD

;AND THEN DO THE

MOV

BMI

#2,R0
PLOC,RO
(RO ,R1
CALLDF

Mz (Y,N)?
;RESPONSE FROM PTABLE.
;IF = 0 THEN MULTILINE. 1F 1 THEN SINGLE
s INTERFACE.

001240

BNE

CALLDL

JIF = "

005037
004737

CLR
JSR

NDATA
PC,DZSET

;ASSUME NO ADDRESSING (UNIBUS)

CLR
CMP
BNE

ERWORD
NDATA, #1

;ASSUME NO ERRORS
;NO DEVICE AT THAT ADDRESS?

b
e
—_

—

JMP

ok
2k 2k
OCOOO

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

005037
023727
001011

006500
010056

012746
012746
010600
104417
062706

012220
000001

MOV

000001

PRINTF

000004

016244

1046444

016246
016252
016254

012700
005300
002407

000144

016256
016264

032777
001403

000200

016266
016272

005777
000767

171010

ADD

EMPT1%

¥EAILDZ

LTH

STH AND F INAL RESPONSE CHARACTER.
LINE

THEN SINGLE

SIZE

LOGIC.

LINE

LINE.

;1F = 0 THEN MULTILINE.

;NO PROBLEM WITH UNIBUS
SFAILED TO FIND DEVICE MESSAGE

ERRORS YET.

MOV
MOV
MOV
TRAP
ADD

REAILDZ,-(SP)
#,-(SP)

TRAP

CSOCLN

SP,RO
CSPNTF

e ,SP

#190. ,R0
RO
NONDZA

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

BIT

#BI17,3RCSR
NONDZA

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

TST
BR

SRBUF

;EMPTY RBUF.

EMPT]3: Mov
EMPTZ3: DEC
BLT
171012

JEXIT TEST SEQUENCE

DOCLN

#FAILDL,-(5P)
#1,-(SP)

SP,RO
CSPNTF
84 ,SP

JSR
JSR
JSR
JSR

SETUPC:

CSPNTF

TRAP
ADD

MOV
TRAP

104444

108

JSR
CMPB
BEQ

PRINTF

012746
012746
010600
062706

SEXIT TEST SEQUENCE

DOCLN

10464464

104417

SEQ 85

7-NOV-80 10:06:10 PAGE 2¢-2

BEQ

EMPT23

IGNORE BUFFER CONTENTS,

;CHECK FOR RDONE AGAIN AND EMPTY BUFFER

MISCELLANEOUS SECTIONS

SEQ 86

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

016300
016304
016310

005037
005037
005037
005037

006500
010056
006512
002206

016314
016320
016324
016326
016332
016340
016346

012701
012702
005003
004737
042737
023727
001404

002210
000002
100000

006512

006500
000001

016350
016356

023727
001011

010056

000001

NONDZA:

012220
000001
000004

120437
001411

012220
000001

062706

000004

104417

NONDZ2:

014012
006521

012746
012746
010600

MOV
MOV

#STSRES ,R1

NDATA

sASSUME NO ERRORS
;ASSUME NO UNIBUS ERRORS

GREASE

sASSUME NO PREVIOUS ERRORS.

;ASSUME MO FAILURE

FLTRDY

#2,R2
R3

*SEND REQUEST STATUS SEQUENCE TO PRINTER.
;FAILURE T O FIND TRDY?
sPRINT FAI LURE MESSAGE

CMP
BNE

NDATA, #1

;ANY UNIBUS ERRORS?

PRINTF

#EALLDZ

;PRINT

NONDZ2

JSR
(MPB
BEQ

TO FIND TRANSMIT RDY

;SEND REQUEST STATUS SEQUENCE.

PC,XMIT
#B1715,ERWORD
FLTRDY,
M
PRTM2

PRINTF

“1GNORE POSSIBLE EOT CONDITION.

;1F SO, PRINT FAILURE MESSAGE.
FA] LURE

MESSAGE

JEXIT TEST ING SEQUENCE
PC,GETCHR
R4 ,ESCAPE

NONDZ3

#EAILDZ

MoV
MOV
MOV
TRAP
ADD

NFAILDZ,-(SP)
#1,-(SP)

TRAP

CSOCLN

S
pr gy

NONDZ3:

JSR
JSR

;WAS THE

CHARACTER AN ESCAPE CHARA(CTER?

;PRINT FAILURE MESSAGE FOR DL SETUP.
.MOvV

SEXIT TESTING SEQUENCE

JSR
JSR

000204

010042

LINCOD: MOV
ADD
MOV
CMP
BEQ
MOV

000120

010042

EIGHTY: MOV

000006
002204

000001

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

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

£ .RS

EIGHTY
#132.,LINSIZ
INFIN
#80.,LINSIZ

#4,SP

;GET THE REST IF ESC FOUND.

TRAP

DOCLN

SP,RO
CSPNTF

; CHECK FOR A RESPONSE CHARACTER

Mov
MoV

104444

004737
004737
004737
004737

ERWORD

DOCLN

1046444

004737

CLR
CLR
CLR
CLR

CLR
JSR
BIC
CMP
BEQ

PRTMZ2:

016436
016442
016446
016452

012746
012746
010600
104417
062706

v Qi
Guarhury

— el e ) i il d D - cd el il o b B and NNNNNOOOOOOOO0OO
NN

016360
016360
016364
016370
016372
016374
150 016400
016400
151
016402
153 016406
154 016412
155 016414
016414
016420
016424
016426
016430
016434
016434

012616

OOO0O

016274

P o o
¥ o
OO0O0O

— e

D od

D o

d md =D

b g

£ 8~ B NN NN NN NN [V 1V ]
= OVOO~NO
NS W) -0

INITIiALIZE SECTION

MACRO v03.01

;GET THE %:g CHARACTER

#FAILDZ,=-(5P)
# ,-(SP)

SP,RO
CSPNTF

ADD

8 ,SP

TRAP

($OCLN

IN RESPONSE.

4TH

STH AND FINAL RESPONSE C(HARACTER.

. RESPONSE FROM PTABLE.

7CHARACTERS PER LINE?

;GET THE LINE CHARACTER DENSITY. 1=80CHAR/LINE

:1F NOT = 1 THEN 132 CHARACTERS PER LINE.
JAFEQ VT HEN 80 CHAR/LINE
;NOT EQ 1. .. THEN 132 CHAR/LINE

;LINE SIZ2E IS EIGHTY CHARS/LINE

~NZF
OCOO0O0O0O

013701
006301
006301
010137
006301
060137

010042

MACRO v03.01

SECTIONS
TION

005037

006500

012700

000004

104436

000200

016560
016564

005777
00077

170516

104432
000662

:g{

k%NSIZ,R1

;GE; THE LINE SIZE. NUMBER OF (HARACTERS/LINE

ASL

ASL
ADD

R1
R1,LINN

(X 8
;LINSIZ X

MoV

010040

016550
016556

016566
016566
016570

INFIN:

010040

032777
001403

SEQ 87

7-NOV-80 10:06:10 PAGE 2¢-4

CLR
CLRVEC

170520

;SAVE LINSIZ X 4

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

ERWORD
#4

;ASSUME NO ERRORS - YET,
JRESET VECTOR TO ORIGINAL STATUS

#B1T7,GRCSR
ENDIN

;EMPTY RECEIVER BUFFER...
;1S THERE A CHARACTER IN THE RBUF?
:1F NO CHARACTER IN RBUF, THEN EXIT,

TST
B8R

aRBUF
EMPTYR

;EMPTY RBUF.
[IGNORE BUFFER CONTENTS.
;CHECKEFER RDONE AGAIN AND EMPTY BUFFER

EXIT

INIT

EMPTYR: BIT
BEQ

ENDIN:

R1,LINN

;1F

MOV
TRAP

#4 RO
CS$CVEC

NEEDED.

TRAP

.WORD

CSEXIT

L10004-.

;FUNCTIONAL DESCRIPTION

:
:

:
.

;

TRA;EggNDLER FOR UNIBUS FAILURE
.
ADD

TO FIND A DEVICE AT THE REFERENCED

ALL THAT 1S NECESSARY IS TO INDICATE THAT THE TRAP ROUTINE HAS BEEN
ACS;SESDTéTHAT A DEVICE WAS UNSUCCESSFULLY ADDRESSED) AND RETURN fOR
ANOTH

YINPUTS
NONE

:OUTPUTS
:
NDATA IF THIS ROUTINE IS PERFORMED, NDATA WILL BE SET.
:SUBORDINATE ROUTINES
NONE
;
iCALLING SEQUENCE
:
WHEN A TRAP OCCURS THE ROUTINE IS CALLED.
o

~N
N

BGNSRV

UBTRAP

. TRAP SERVICE ROUTINE

:
UBTRAP:

MISCELLANEOUS SECTIONS
INITIALIZE SECTION

%%g 016572

012727

MACRO v03.01

000001

010056

UBTRAP: MOV

229 016600

220
23
232
233
234
235
236

016600
016600

SEQ 88

7-NOV-80 10:06:10 PAGE 26-5

#1,NDATA

:NO DEVICE AT THAT ADDRESS

ENDSRY

INDICATED.

L10005:

000002

RTI

:
:
:
:
:

237

'.AAAAAAAAAAAAAAAhAAAAAAA‘AAAAAAAAAAAAAAAAAAAAAAAAA‘AAAAAAAAAAAAAAAAAAAA‘A‘A‘A‘Q

%23

;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

:,AAAAAAAAAAAAA““AAAAAAAAAAAAflk&AAAA“AAA“A‘AAAAAAAA‘AAA‘AAAAAAAAAAAAAAAAAAAA

248
249
%g?

:
LINPUTS

%g%

;

%22

254

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

CSRADD

ADDRESS OF CSR REGISTER.

LOUTPUTS

255
¢56
257

:
;
:

NONE

:SUBORDINATE ROUTINES

sgg

260
261

%gg
ggg

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

268

270

;

;FUNCTIONAL SIDE EFFECTS

52%

269

572

;

273 016602
g;g 016606

017701
010137

163376
007276

276 016612

062701

000002

277 016616
278 016622
279 016626
280 016632
281 016636

010137
062701
010137
062701
010137

007302
000002
007300
000002
007304

DLSET:

PLACE ADDRESS OF CSR REGISTER INTO CSR ADD.
JSR

MOV
MOV

aPLOC,RY
R1.RCSR

ADD

#2.R1

MOV
ADD
MOV
ADD
MoV

R1.RBUF
#2,R1
R1.XCSR
#2.R1
R1,XBUFf

PC.DLSET

sSET UP CSR ADDRESS & BUFFER ADDRESSES.
*ADDRESS OF RECEIVER CSR REGISTER.

:ADDRESS OF RECEIVER BUFFER REGISTER

-ADDRESS OF THE TRANSMITTER CSR REGISTER.
,ADDRESS OF THE TRANSMITTER BUFFER REGLISTER.

MISCELLANEOUS SECTIONS
INITIALIZE SECTION

282

SEQ 89

MACRO v03.0%1 7-NOV-80 10:06:10 PAGE 2¢-6

283 016642
%gg 016646

005037
012737

010052
000200

010044

CLR
MOV

MLTLIN
#B1T7,TRDYBT

SINDICATE THAT THIS IS A SINGLE LINE INTERFACE.
?L?ES?E?ESOF XMIT READY BIT FOR SINGLE LINE

286 016654
%gg 016662

012737
012737

006440
006440

007306
007310

MOV
MOV

#JUNKPL,LPR
¥ JUNKPL . TCR

"WHEN LPR 1S STUFFED, CONTENTS GO TO JUNKPL
"WHEN SENCHR STUFFS TCR, CONTENTS GO TO JUNKPL

289 016670

000207

RTS

290
291
292

;

293

:AAAGAAAAAA‘AAAAAAAAAAAAAAAAAAA‘AA‘AAAAAAAAAAAAAAAAAAAAAAAAAAAA‘QAAAA‘AAAAAAAAA

%3‘5‘

;FUNCTIONAL DESCRIPTION

%gg

298

%89

;

299

LOCAL PROCEDURE DZSET:
THIS ROUTINE WILL ACCEPT THE ADDRESS IN THE GLOBAL VARIABLE CSRADD

AND THEN SET UP THE VARIOUS MULTILINE INTERFACE REGISTERS ASSOCIATED

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

302

;AG‘AAAAAA.AAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA‘

303

ggg

;

ggg

LINPUTS

308

CSRADD

ADDRESS ASSUMED AS THE CSR REGISTER.

:OUTPUTS

309

;

310

3};

NONE

*SUBORDINATE ROUTINES

314

215

NONE

§1g

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

%g?

SCALLING SEQUENCE

323

TFUNCTIONAL SIDE EFFECTS

%}?

;

322

324,

PC,DISET

;
;

359

330 016672 017701
331 016676 010137
332

163306
007276

ggg 016702

010137

007300

336 016706

062701

000002

337 016712
338 016716

JSR

;

325
326
327

323

THE CSR ADDRESS MUST BE IN CSRADD. THE CALL:

010137
010137

007302
007306

DISET:

aPLOC ,R1
R1,RCSR

:GET THE CSR ADDRESS TO SET UP INTERFACE REG'S
"ADDRESS OF RCSR AND THE XCSR WILL BE THE SAME
IN A D211. THE TRDYBT XMIT READY BIT :

MOV

R1,XCSR

SAND POINT TO THE NEXT REGISTER ADDRESS

ADD

#2,R

MOV
MOV

R1.RBUF
R1.LPR

WILL CHANGE, HOWEVER.

-ADDRESS OF THE RECEIVER BUFFER
"ADDRESS OF THE LINE PARAMETER REGISTER

MISCELLANEOUS SECTIONS

INITIALIZE SECTION

SEQ 90

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

0 16722
0 16726

062701
010137

000002
007310

ADD
MOV

"2 ,R1
R1,TCR

;ADDRESS OF THE TRANSMIT CONTROL REGISTER

0 16732
0 16736

062701
010137

000002
007312

\DD
MOV

”2,R1
R1,TDR

;ADDRESS OF THE TRANSMIT DATA REGISTER

016742

013737

007312

007304

MoV

TDR, XBUF

;WHEN REFERENCING THE XBUF, YOU WILL WANT

016750

012777

000040

170320

MOV

#BITS,aRCSR

016756

012737

100000

010044

MOV

#BIT15,TRDYBT

;CLEARS INTERUPT ENABLE BITS AND
;SETS MASTER SCAN ENABLE.
;DEFINE TRANSMIT READY BIT FOR DZ11 C(SR.

016764
016770
016774
016776

012700
063700
011002
006302

000004
002204

MOV
ADD

#4,R0
PLOC,RO

;PTABLE ENTRY.

017000

016237

006444

017006
017012
017016
017022

012700
063700
051037
013777

000004
002204
006442
006442

017030

000207

MoV
ASL

;THE TDR - TRANSMIT DATA REGISTER.

7DZ CHANNEL NUMBER?

;CHANNEL TO BE SET INTO TCR REGISTER
; CHANGE THE RANGE FROM 0-7 TO 0-14
;7O BE USED AS A TABLE OFFSET.
TCRTBL(R2) ,TCRENA
;GET MASK FROM TABLE, PLACE IN TCR REG.
.TO DETERMINE THE CHANNEL CHOSEN

(RO),R2
R2

006436

MoV

170256

MoV
ADD
BIS
Mov

#4,R0
PLOC,RO
(RO) ,LPRINI
LPRINI,aLPR

RTS

;PTABLE ENTRY #3
;PTABLE ENTRY ADDRESS FOR CHANNEL #.
;NEW LPR STATUS WITH CH # INCLUDED.

:SET UP LPR ON DZ INTERFACE

,AAAAAAAAA‘AA‘AAkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA&AAAAAQAAAA

’

"FUNCTIONAL DESCRIPTION

LOCAL PROCEDURE DFAULT:

THIS CODE WILL COMPUTE THE CSR ADDRESS AND SET UP THE INTERFACE

THE (SR ADDRESSES ARE CHECKED BY SENDING THE

PRINTER AN 'ANSWER BACK'® QUERY AND CHECKING FOR THE APPROPRIATE
RESPONSE FROM THE PRINTER.

lAA.AAAAAAA‘AAAQ‘AAAA“AAAAAAAAAAA.GA&AAAAAAQAAAAAAAAAAAAAAAA‘AAAAAAAAAAAAAAAA

INPUTS
:

NONE

TOUTPUTS

;

CSRADD

-ADDRESS OF THE CONTROL STATUS REGISTER

RCSR

-RECEIVER CSR
=TRANSMITTER BUFFER ADDRESS

:
;

RBUF
XCSR

XBUF

-BUFFER ADDRESS
-TRANSMITTER CSR

MISCELLANEOUS SECTIONS
INITIALIZE SECTION

MACRO v03.01

SEQ 91

7-NOV-80 10:06:10 PAGE 2¢-8

;

MLTLIN

=1S =1

398

*SUBORDINATE ROUTINES

IF THE INTERFACE IS A DZ11.

396

GETCHR
XMIT

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

E‘UNCTIONAL SIDE EFFECTS

THE

INTERFACE REGISTERS SHOULD BE

SET UP.

: CALLING SEQUENCE

JSR

PC,DFAULT

;

212 017032

013777

005254

z}g 017040

004737

016602

419 017044

DLDFLT,8PLOC

;ASSUME A SINGLE LINE INTERFACE

JSR

PC,DLSET

;SET UP THE REGISTER ADDRESSES

023727

010056

CMP

NDATA M

;WAS THERE AN ILLEGAL ADDRESSING ERROR?

2%% 017054

005037

006500

ERWORD

;ASSUME THAT NO ERRORS HAVE BEEN FOUND - YET.

424 017060
425 017064
4%9 017066

012700
005300
002407

000144

EMPTI&: MOV
EMPS:
DEC
BLT

#100.,R0
RO
ABSND

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

428 017070

032777

000200

BIT

#BIT7,3R(SR

;1S THERE A CHARACTER IN THE RBUF?

431 017100
2%% 017104

005777
000767

170176

TST
BR

aRBUF
EMP4

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

434 017106
435 017112

005037
005037

006500
010056

(LR
CLR

ERWORD
NDATA

;ASSUME NO ERRORS
;ASSUME NO UNIBUS ERRORS

439 017126
440 017132
441 017136
442 017140
222 017144

012701
012702
005003
004737
042737

002210
000002

012616
100000

006500

MOV
MOV
CLR
JSR
BIC

#STSRES R
#2,R2
R3
PC,XMIY
#81715,ERWORD

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

465 017152
229 017160

023727
001417

010056

000001

cMP
BEQ

NDATA, M
020C00

IF SET THEN TRY MULTILINE ADDRESS
s1F NOT SET, DO THE DZ CHECK

448 017162
449 017164

005004
004737

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?

2%? 017052

2%8 017076

436 017116
2%5 017122

450

651
452 C17170

001462

001403

005037
005037

120437

163144

000001

006521

BEQ

170200

BEQ

ABSND:

006512
002206

014012

DFAULT: MOV

CLR
CLR

(mP8

DZDCOD

ABSND

FLTRDY
GREASE

;IF SO, DL SETUP FAILED.

TRY DZ SETUP.

;1F NO CHARACTER IN RBUF, THEN CONTINUE...

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

;THE PRINTER TO RESPOND.

.
'

MISCELLANEOUS SECTIONS
INITIALIZE SECTION
453
454
455
456

017174
017176
017202
017206

457 017212
zgg 017216

001011
004737
004737
004737

004737
000514

MACRO v03.01

SEQ Y2

7-NOv-80 10:06:10 PAGE 2¢-9
BNE
JSR
JSR
JSR

014012
0146012
014012

014012

JSR

PC,GETCHR
DONEDF

CLR
CLR

ERWORD
NDATA

:NO? THEN
;
:
:

fRY DZ ADDRESS DEFAULT.

;THE FINAL CHARACTER SHOULD BE A ‘'C'
:YES? THEN SUCCESSFULLY COMPLETED.

460 017220
461 017224

005037
005037

006500
010056

465 017240
229 017246

013777
004737

005256
016672

162736

MOV
JSR

DZOFLT,aPLOC
PC,DZSET

:ASSUME A DZ INTERFACE AT ADDRESS 776010
:SET UP REGISTERS FOR A D211 INTERFACE

468 017252
469 017260

023727
001462

010056

000001

CMP
BEG

NDATA,#1
FAILDF

:HAS AN ILLEGAL ADDRESS ERROR OCCURRED?
:1F SO, BOTH DL AND DZ DEAFUALTS HAVE FAILED.

472 017262

005003

005037

006500

CLR

;:DISABLE BIDIRECTIONAL PRINTING LOGIC

475 017270
476 017274
2;; 017276

012700
005300
002407

000144

#700.,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
23? 017306

032777
001403

000200

BIT
BEQ

#BIT7,3RCSR
ABSS

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

482 017310

005777

167766

TST

aRBUF

;EMPTY RBUF.

4«85 017316
486 017322

005037
005037

006500
010056

CLR
CLR

ERWORD
NDATA

490 017336
491 017342
492 017346
493 017350
232 017354

012701
012702
005003
004737
042737

002210
000002

012616
100000

006500

MOV
MOV
CLR
JSR
BIC

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

496 017362

023727

010056

000001

CMP

NDATA, M

:CHECK FOR OCCURRANCE OF TRAP...

499 017372

004737

014012

JSR

PC,GETCHR

;DELAY SHOULD GIVE PRINTEWR ENOUGH TIME T0

502
S03 017376
504 017402

120437
001011

006521

CMPB
BNE

R4 ,ESCAPE
FAILDF

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

508 017420

004737

014012

PC,GETCHR

:LAST CHARACTER A ''C''(LOWER CASE)

462 017230
222 017234

2;9

2;2 017264

432 017314
'A

487 017326
238 017332

23g 017370

28?

505 017404
506 017410
507 017414

509 017424

005037
005037

000767

005037
005037

001416

004737
004737
004737

000411

DZDCOD:

D20C0D
PC,GETCHR
PC,GETCHR
PC,GETCHR

006512
002206

CLR
CLR

CLR

EMPTIS: MOV
FMPS:
DEC
BLT
167770

B8R
ABSS:

006512
002206

014012
014012
014012

CLR
CLR

BEQ

FLTRDY
GREASE

ERWORD

EMPS

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

;

FAILDF

PC,GETCHR
PC,GETCHR
PC,GETCHR

B8R

DONEDF

SO LET USER KNOW.

:ASSUME NO ERRORS HAVE YET OCCURRED.

[GNORE BUFFER CONTENTS.

:CHECK FOR RDONE AGAIN AND EMPTY BUFFER
;ASSUME NO ERRORS
;ASSUME NO UNIBUS ERRORS

FLTRDY
GREASE

JSR
JSR
JSR

JSR

:ASSUME NO ERRORS
;ASSUME NO UNIBUS ERPORS

;ASSUME NO FAILURE TO FIND TRANSMIT RDY
;ASSUME NO PREVIOUS ERRORS.
;SEND REQ STATUS SEQUENCE.
;
;
;SEND REQ STATUS SEQUENCE TO PRINTER.
; IGNORE POSSIBLE EOT INDICATION.

:IF SET THEN

PRINT AN ERROR AND START OVER

;RESPOND TO ANSWER-BACK SEGUENCE.

.
;
;

;FOUND THE ADDRESS. EXIT.

IALIZE SECTION

510
511 017426

017426
017432
017436
017440
017442

012746
012746
010600
104417
062706

513 017446

104444

g}é 017450

000207

512 017446

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

FAILDF: PRINTF

011602
00000
000004

DONEDF: RTS

.EVEN

520
521
522
523 017452

ENDINIT

519

017452
524 017452

.SBTTL

527 017454

017454

N AN AN NN NN
(o QW P JV IST

#FAILM,=(SP)
#1,-(SP)
SP.RO
CSPNTF
8 ,SP

TRAP

CSOCLN

L10004:

TRAP

CSINIT

TRAP

($SAUTO

AUTODROP SECTION

ENDAUTO

104461

.SBTTL

MOV
MOV
MoV
TRAP
ADD

BGNAUTO

528
529 017454

sPRINT FAILURE MESSAGE AT CONSOLE

EXIT TESTING SEQUNCE

104611

g%z

017454
017454

#FA\ILM

DOCLN

516
517
518

(VA LV LV, LV, [V, 1V, 1V

—N

ELLANEOUS SECTIONS

SEQ 93

CLEANUP CODING SECTION

LSAUTO::

L10006:

MISCELLANEOUS SECTIONS

CLEANUP CODING SECTION

MACRO v03.01

SEQ 94

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

;00

3
g

: THE CLEANUP CODING SECTION CONTAINS THE CODING THAT S PERFORMED
; AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED.

6
7 017456

BGNCLN

8 017456

18 017456
11

017462

0176462
12 017464

004737

104432
000072

13
14
15
16 017466

017466
17 017466

18
19

20
21
2¢

014274

LSCLEAN::

JSR

PC,INITCD

EXIT

CLN

;RESET THE PRINTER

TRAP
.WORL

CSEXIT
L10007-.

TRAP

CSCLEAN

.EVEN
ENDCLN

L10007:

104412
.EVEN

.TITLE HARDWARE TESTS
LSBITL
TEST 1: PRINTER SELF

TEST

HARDWARE TESTS

MACRO v03.01

PRINTER SELF

TEST

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

BGNTST

017470
017470

NW
—

T1::

R
e

e R
e e

TEST M

NO NS NN 2OV

b d =

THIS TEST WILL

INITIATE THE PRINTER SELF-TEST.

AFTER THE SELF-TEST

IS COMPLETE, THE PRINTER SENDS THE PRINTER STATUS AND AN XON (HARA(CTER
THE PRINTER STATUS IS THEN
IF EVERYTHING HAS OPERATED PROPERLY.
EXAMINED AND APPROPRIATE
ERROR REPORTING IS INITIATED.

D e

OOV

N =P ed s =

TEST

SEQ 95

017470
017474
017474
017500
017504
017506
017510
017514
017520

004737

014274

012746
012746
010600
104414
062706

002333
000001

017524
017526

017532
017540

023727
001402

002206

017542
017546

004737
004737

015020
015246

017552
017556
017562
017564
017572

004737
123704
001406
052737
052737

014012
006529

017600

004737

015246

100000

JINITIALIZE FOR THIS TEST
;CONSOLE

TEST

TITLE

MOV
MOV

#TITLEY,=tSP)
2 ,-(SP)

TRAP
ADD

(SPNTB
84 ,SP

SP,RO

#SLFTST, R

;ADDRESS OF SELT TEST ARGUMENT SEQUENCE

(LR
JSR

R3
PC,XMIT

:SEND THE ARGUMENT LIST

{MP
BEQ

GREASE , #-1
PRNTIT

PRNTIT:

JSR
JSR

PC,STATS
PC,ERRORS

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

CHKNG:

JSR

PC,GETCHR

:GET ANOTHER (SIXTH) CHARACTER

177777

(MPB
BEQ

BIS

006500
006500
STSCAL:

"2 ,R2

XON, R4
STSCAL

#81T113,ERWORD

;2 CHARACTERS IN SEQUENCE

:DISABLE BIDIRECTIONAL PRINTING

;IS IT AN "'XON'"?
;1F 0K, (XON FOUND) THEN CHECK STATUS

;SET ECNRB

BIS

#BIT15,ERWORD

:INDICATE ERROR

JSR

PC,ERRORS

;CHECK FOR ERRORS

ENDTST
104401

#TITLEN

MoV

MOV

012616

020000

PC,INITCD

MOV

000004
002255
000002

012701
012702
005003
004737

017604
017604
017604

JSR

PRINTB

L10010:

TRAP

{SETST

HARDWARE

TEST

50
51

5¢

TESTS

PRINTER

MACRO v03.01
SELF

TEST

7-NOV-80 10:06:10 PAGE 28-1

LSBTTL

TEST 2: UNDERLINE / NO-UNDERLINE MODE TEST

SEQ 96

MARDWARE TESTS

SEQ 97

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

TEST 2: UNDERLINE

/ NO-UNDERLINE MODE

TEST

2
3

4 017606

BGNTST

TEST #2

UNDERLINE / NO-UNDERLINE MODE

...............................................................................

017606

13
}g

18 017606
19 017612

004737

014274

017612
017616
017622
017624
2 017626

012746
012746
010600
104414
062706

002366
000001

21 017632

052737

040000

23 017644

062701

000004

25 017654
26 017656
g; 017662

005003
004737
042737

22 017640 012701

002366
012616
040000

JSR
PRINTB

PC,INITCD
#TiTLE2

SINITIALIZE TEST
*CONSOLE PRINT TITLE

8IS

#BIT14 ERWORD

;INHIBIT ERROR HANG-UPS

006500

#TITLES, R

MOV

0.k, R2

*ADDRESS OF STRING TO PRINT (TITLE)
*SKIP FIRST FOUR CHARACTERS
43 CHARACTERS TO PRINT IN STRING

MOV

£-1,R4

:CHARACTER COUNT

MOV

£ ,R2

#1,R0

CLR
JSR
BIC

006500

PLOOP:

MOV

32 017704
33 017706
gg 017712

005003
004737
004737

012616
015246

CLR
JSR
JSR

36 017716

012700

000001

MOV

31 017700 012702 000001

002266

000041

000040

002266

CMPB
BNE
MOVB
BR

012700

000001

44 017754
45 017760
46 017764
2; 017770

012701
012702
004737
004737

002266
000003
012616
015246

NEWMOD: MOV
MOV
JSR
JSR

49 017774

005204

010042

(MP
BNE

S0 017776
51 020002

112760

020437
001334

000041

002266

MOV
MOV
MOV
TRAP
ADD

MOV
ADD

006531

TEST2:

012701

41 017742

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

30 017674

2% 017746

000004

29 017670 012704 177777

126027
001004
112760
000405

:
:

24 017650 012702 000053

37 017722
38 017730
39 017732
40 017740

T2::

SETONE: MOV

MOVB

INC

24 R

R3
PC,XMIT
#BiT14 ERWORD

¥SCA,RY

R
PC,XMIT
PC _ERRORS

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

: "ADDRESS OF ASCII "‘A"

1ONE CHARACTER

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

STULMD(RO),#ONE ;1S THE UNDERLINE MODE SET?
'NO, THEN CHANGE TO UNDERLINE MODE
SETONE
)
#IERO,STULMD(RO :YES, THEN CHANGE TO NON-UNDERLINE MODE
NEWMOD
:TRANSMIT MODE CHANGE AT NEWMOD
#1,R0

#ONE,STULMD(RO) ;CHANGE TO UNDERLINE MCDE
#STULMD, R
#3,R2
PC.XMIT
PC ERRORS
R4

RG,LINSIZ
PLOOP

-ADDRESS OF ARGUMENT STRING
‘WHICH 1S THREE CHARACTERS LOONG
*SEND THE SEQUENCE
*UHECK FOR ERRORS
:UPDAYE COUNT OF CHARACTERS.

"PRINTED A LINE YET?
‘DO LOOP UNTIL DONE

FTITLE2,-(SP)
#1,-(SP)
SP.RO
CSPNTB
85, SP

HARDWARE TESTS
MACRO v03.01 7-NOV-80 10:06:10 PAGt
TEST 2: UNDERLINE / NO-UNDERLINE MODE TEST

52
53 020004
54 020010
55 020014
56 020020
57
58 020024
020G24
020024

012701
012702
004737
004737

002313
000002
012616
015246

SEQ 98

29-1

MOV
MoV

#CR,RY
¥ ,R2

;ADDRESS OF <(RLF>
:BOTH CHARACTERS

JSR

PC,ERRORS

;CHECK FOR ERRORS.

;PRINT (ACCUMULATE) <(R><LF>

PC,XMIT

JSR

ENDTST

L10011:

1044601

.SBTTI

TEST

HAMMER HIT

COUNT

TEST

TRAP

CSETST

SEQ 99

HARDWARE TESTS

TEST 3-

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

HAMMER HWIT COUNT TEST

2
3

S
6
7

BGNTST

8 020026
9
10
1

020026

T3::
R
U
N

L RO L O B
I

TEST #3

;

HAMMER HIT COUNT TEST

;

FOUR LINES ARE TRANSMITTED TO THE PRINTER.

R R
L

13
14

:
:

:
:
:

20
21
S%

TEST3:

014274

27 020026
28 0206032

004737

020044
29 020046

104414
062706

000004

30 020052

052737

040000

34 020076
35 020076
gg 020102

005003
004737
042737

38 020110
40 020124

020032 012746 002446
020036 012746 000001
020042 010600

39 020116

41 020130
42 020136
43 020142
46 020146
45 020152
46 020154
2; 020160
49 020164

S0 020166

51 020172

JSR
PRINTB

BIS

032616
040000

113737

006533

012700

000001

112737

113760
005237
012701
012702
005003
004737
004737
005004

012701

012702

PC,INITCD
#TITLE}

SINITIALIZE TEST
;CONSOLE PRINT TEST TITLE

MOV
MOV
MOV

TRAP
ADD

006500

31 020060 012701 002446
32 020064 062701 000004
33 020070 012702 000040

THE HIT COUNT

RANGES FROM O TO 3 HITS PER CHARACTER TRANSMITTED. ONE BLANK
LINE AND THREE NON-BLANK LINES OF INCREASING DARKNESS SHOULD
BE EVIDENT ON THE PRINT PATTERN.

#BIT14,ERWORD

:;DISABLE ERROR HANGUPS

MOV
ADD
MOV

STITLE ADDRESS
:SKIPPING THE FIRST FOUR TWO CHARACTERS.
132 CHARACTERS LONG

006500

CLR
JSR
BIC

#TITLES,RY
2 R
#32.,R2

006522

MOVB

SC1,SNGCHR

: THE CHARACTER ''1'' TG BE PRINTED

R3
PC,XMIT
#BIT14,ERWORD

;NO BIDIRECT]ONAL PRINTING
;PRINT TEST TITLE
;RE-ENABLE ERROR HANG-UPS
;HIT COUNT ARGUMENT

MOVB

#1ERO,HITARG

012616
015246

MOVB
INC
MOV
MOV
CLR
JSR
JSR

HITARG,STHTCT(RO) ;INSERT IN ARGUMENT TEMPLATE
;NEW ARGUMENT FOR HITARG
HITARG
;ADDRESS OF ARGUMENT LISTY
#STHTCT, R
: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

006522

CHRLOO: MOV

CLR

;COUNT OF CHARACTERS

MOV

" ,R2

;SINGLE CHARACTER

000040

0100¢)
010060
002257
000003

000001

010060
002257

LINLOO: MOV

#SNGCHR, R

:ADDRESS OF CHAR TO BE PRINTED

#TITLEZ,=-(SP)
#,-(SP)
SP,RO
CSPNTB
8 ,SP

MACRO v03.01 7-NOV-80 10:06:10 PAGE
HARDWARE TESTS
TEST 3: HAMMER HIT COUNT TEST
020176
020202
020206

012703
004737
004737

020212
020214
020220

005204
020437
001362

020222
020226
020234

005237
123727
001333

006522
010060

020236
020242
020250
020254

012700

000001
000040
002257
000003

020260
020262
020266
02027¢
020272
020272

112760

012701
012702
005003
004737
004737

177777
012616
015246

MoV

#-1,R3
PCXMIT
PC,ERRORS

;ENABLE BIDIRECTIONAL PRINTING.
;SEND THE CHARACTER
;CHECK FOR ERRORS.

INC
(MP
BNE

;UPDATE NUMBER OF CHARACTERS PRINTED THUS FAR.

CHRLOO

;NO, CONTINUE SENDING.

INC
(MPB
BNE

SNGCHR
HITARG,#THREE

MOV
MovB
MOV
MOV

#1,R0

JSR
JSR

010042

000043

002257

R4, LINSIZ

LINLOO

#7ERO,STHTCT(RO)
FSTHTCT
R

#3,R2

R3
PC,XMIT

CLR
JSR
JSR

01261¢
015246

SEQ 100

30-1

PC,ERRORS

;SENT A LINES WORTH YET?

: INCREASE ASCII PATTERNTO NEXT CHARACTER
;PRINTED THE HIT COUNT = 3 LINE YET?

;REPEAT PRINTING LINES UNTIL HIT COUNT = 3
;REVERT BA(CK TO HIT COUNT OF 1
;DISABLE BIDJRECTIONAL PRINTING
;SEND PRINTER ARGUMENT LIST FOR HIT COUNT=1
;CHECK FOR ERRORS

ENDTST

L10012:

104401

.SBTTL

TEST

CARRIAGE POSITIONING TEST

TRAP

CSETST

HARDWARE TESTS
TEST

CARRIAGE

MACRO v03.01

SEQ 101

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

POSITIONING TEST

;

& 020274

BONTSTY

s 020274

T6::

8
18

.
:

TEST a4

}}

CARRIAGE POSITIONING TEST

;

14
15
16

:
;
;

20
21
22

25 020274
26 020300

‘

IN THIS TEST THE PRINTER CARRIAGE wiLL SE EXERCISED BY MOVING

THE CARRIAGE BACK AND FORTH INCREASING AMOUNTS FROM TME MIN]MUM
HORIZONTAL INCREMENT OF MOVEMENT TO THE MAXIMUM (PAGE SIZE) MORJIONTAL
INCREMENT OFf MOVEMENT.
IN THE PROCESS, ANY ERRORS DETECTED BY THE
PRINTER WILL BE

e e

IDENTIFIED AND REPORTED.

014274

020300
020304
020310
020312
- 020314

012746
012746
010600
104414
062706

002513
000001

28 020320

052737

040000

gg 020350

042737

012616
040000

36 020356

012701

006530

MOV

#SCX R

:ADDRESS OF THE SINGLE CHARACTER ‘'X'°,

38 020366

004737

012616

JSR

PC,XMIT

:PRINT THE CHARACTER ‘'A'".

41 020376
42 020402
43 020406
22 020412

012701
012702
004737
004737

002313
000002
012616
015246

29 020416

012737

000001

48 020424

013701

010036

LI1LOOP: MOV

50
51 020434

SUB

012.,R{

004737

014176

JSR

012701
062701
012702
005003
004737

JSR
PRINTB

PC.INITCD
#TITLEG

SINITIALIZE TEST
;CONSOLE PRINT THE TEST TITLE

006500

BIS

#BIT14,ERWORD

;INHIBIT ERROR HANG-UPS

006500

8IC

#BIT14,ERWORD

;RE-ENABLE ERROR HANG-UPS

004737

29 020326
30 020332
31 020336
32 020342
33 020344

TEST4:

000004

002513
000004
000044

37 020362 012702 000001

28 020372

49 020430

004737

162701

MOV

015246

000014

Mov
ADD
MOV
CLR
JSR

JSR

010036

#TITLESG,RY
4 ,R1
#36. ,R2
R3
PC,XNRIT

#1,RS

PC,ERRORS

MOV
MoV
MOV
TRAP
ADD

BTITLEGL,=(SP)
#,-(SP)
SP,RO
(SPNTB
2 ,SP

: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

;SINGLE CHARACTER TO BE PRINTED
;:CHECK FOR ERRORS.

MOV
MOV
JSR
JSR

#CR,R1
#2.R2
PC, XMIT
PC,ERRORS

;sADDRESS OF CARRIAGE RETURN ASCI!
;:TWO CHARACTERS INCLUDE <CR> & <LF>.
:SEND <CR><LF> TO PRINTER
;CHECK FOR ERRORS

MoV

#1,5PCSI12

sINITIALIZE THE SPACE SIZE TO ITS SMALLEST

SPCSIZ, M

:R1 HAS SPACE SIZE FOR THE CONVERSION ROUTINE

PC,CONVRT

. PRODUCED BY THE PRINT OF THE CHARACTER,
;CONVERT R1 TO THREE ASCIl MNEMONICS (BYTES)

;TAKE AWAY THE 12 HORIZONTAL INCREMENTS

HARDWARE TESTS

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

CARRIAGE POSITIONING TEST

000001
010046

002233

MOV
Move

113760
005200
113760

010047

002233

Move

010050

002233

020472
020476
020502
020506

012701
012702
004737
004737

006530
000001
012616
015246

MOV
MOV

020512
020516
020522
020526

012701
012702
004737
004737

002233
000005
012616
015246

MoV
MOV

#HRZTLS,R1

#5,R2

;THERE ARE 5 CHARACTERS IN THE SEQUENCE

020532
020536
020542
020546

012701
012702
004737
004737

006530

MoV
MOV

#SCX,R1

;ADDRESS OF 'X''
;SINGLE CHARACTER

020552
020556
020562
020566

012701
012702
004737
004737

002313
000002
012616
015246

020572
020576
020604

006337
023737

010036
010036

012700

020606
020606
020606

113760

005200

100707

INC

INC
Mmove

JSR
JSR

000001
012616
015246

;FIRST BYTE

(RO)
MNEB3,HRZTLS

;THIRD BYTE

#SCX,R1

» RS

PC,XMIT

PC,ERRORS

PC.XMIT
PC.ERRORS

JSR
JSR

PC.XMIT
PC .ERRORS

MOV
MoV

#CR,R1

JSR
JSR

ASL
CMP
BM]

010040

#1,R0

MNEB1,HRZTLS(RO)
RO
MNEBZ2,HRZTLS(RO)
o

5¢2 020440
53 020444
020452
020454
020462
020464

#2,R2

;ADDRESS OF THE CHARACTER ''X''.
;LENGTH OF STRING TO BE SENT = 1.
;SEND "'X'' TO THE PRINTER
; CHECK FOR ERRORS

;ADDRESS OF TAB SEQUENCE JUST (OMPUTED.
;SEND THE LIST TO THE PRINTER
;CHECK FOR ERRORS

;CHECK FOR ERRORS
;ADDRESS OF <CR><Lf>
;TWO CHARACTERS TO BE SENT TO PRINTER

PC,XMIT
PC,ERRORS

;PRINT THE <CR><LF>
;CHECK FOR ERRORS

SPCSIZ

:DOUBLE THE SPACE SIZt

SPCSIZ,LINN
LiLoop

;1S THE SPACE SIZE LARGER THAN THE MAXIMUM?

; IF NOT

ENDTS?Y

104401

.SBTTL

FROM CONVERT ROUTINE

;SECOND BYTE

TEST &:

SEQ 102

TEST 5: PAPER POSITIONING TEST

THAN PRINTING MORE

IS OK.

L10013:

TRAP

CS$ETST

HARDWARE TESTS

SEQ 103

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

TEST S: PAPER POSITIONING TEST

3 020610
4

BGNTST

020610

15::

6
7
8
9

e
e e ee e e e
N
S
R R R AR

;

TEST #5

PAPER POSITIONING TEST

16
17
18
19

.
.
;
.

22
23
24
25
26
27

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

:
COMPLETED.
)
.
D e e eeeeseacanescenteasecaeseanecescasacetnnceentaceacsscocsesasetsssseanoasaes

20
21

30 020610
31 020614

;
.

004737

014274

020614
020620
020624
020626
5 020630

012746
012746
010600
104414
062706

002564
000001

33 020634

052737

040000

35 020646

062701

000004

23 020664

042737

012616
040000

006500

2} 020672

012737

000001

010062

43 020700
44 020704

013701
004737

010062
014176

46 020714
47 020722
48 020724
49 020732

113760
005200
113760
005200
113760

010046

002226

010047

002226

010050

002226

34 020642 012701
36 020652
37 020656
38 020660

45 020710

50 020734
b}

012702
005003
004737

012700

TESTS:

000004

002564

PC,INITCD
#TITLES

sINITIALIZATION CODE
:CONSOLE PRINT OF THE TEST TITLE.

BIS

#81T14 ERWORD

;DISABLE ERROR HANG-UPS

ADD

#4 ,R1

;SKIP FIRST FOUR CHARACTERS.

MoV
MOV
MOV
TRAP
ADD

o
006500

MOV

000054

000001

JSR
PRINTB

MOV
CLR
JSR
BIC

AGN:

lTITLEg.R1
#4646, ,R2
R3
PC,XMIT

#BIT14 ,ERWORD

#TITLES,=(SP)
n,-(sp)
SP,RO
CSPNTB
#,5P

;sADDRESS OF THE TITLE TO BE PRINTED
;43 CHARACTERS IN THE TITLE
:DISABLE BIDIRECTIONAL PRINTING
sSEND THE TITLE SEQUENCE TO THE PRINTER.
sRE-ENABLE THE ERROR HANG-UPS.

MOV

#1,LINCNT

:LINEFEED SIZE IN 1/48 INCH INCREMENTS.

MOV
JSR

LINCNT,RY
PC,CONVRT

;A NUMBER FOR CONVERSION TO ASCII MNEMONICS
:CONVERT NUMBER [N R1 TO THREE MNEMONIC BYTES

MOVB
INC
Movs
INC
MOV8

MNEB1,VRTCLS(RO)
RO
MNEBZ2 ,VRTCLS(RO)
RO
MNEBI,VRTCLS(RO)

[[0]'}

#1,R0

;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
gg 020752

012701
012702
004737

002226
000005
012616

MOV
MOV
JSR

#VRTCLS, R
’5,R2
PC,XMIT

:ADDRESS OF VERTICAL SPACING ARGUMENTS
:THERE ARE S CHARACTERS : ESC
NN N9
:SEND TO PRINTER.

56 020756
57 020762
S8 020766

012701
012702
004737

006542
000013
012616
015246

MOV
MoV
JSR
JSR

#DASHES ,R1
#1.,R2
PC,XMIT
PC,.ERRORS

;ADDRESS OF THE DASHES
;TEN DASHES ¢ LF
JSENC TO PRINTER
sCHECK FOR ERRORS

61 020776
62 021002
gz 021010

006337
023727
100733

010062
010062

ASL
cMP
BM]

LINCONT
LINCNT, #MxLF
AGN

;DOUBLE LINEFEED SIZE
;700 LARGE A LINEFEED YET?
;1F NOT REPEAT PRINT SEQUENCE. ELSE- EXIT TEST.

28 020772

004737

)
002000

ENDTST

65 021012

021012

66
67
68
69
70
7
72
73

021012

L10014:

104401

.SBTTL TEST 6:

PRINT ONE LINE OF EACH CHARACTER

TRAP

CSETST

HARDWARE TESTS
TEST

MACRO v03.01

PRINT ONE

LINE OF

SEQ 105

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

EACH CHARACTER

2
3

4 021014

BGNTST

021014

6
7
8
9

16::

TEST #6

;

PRINT ONE LINE OF EACH CHARACTER

16
17

;
.

IN THIS TEST ONE LINE OF EACH CHARACTER WILL BE PRINTCD FOR THE
ENTIRE PRESET PAGE WIDTH.
PRINTER DETECTED ERRORS WILL BE DETECTED

20
21
22

e eeecenesanecseseceseaseaseccosasesseseeeacnurecssatcccoaertasassactcsasanas

18
19

25 021014
26 021020

:
:

004737

014274

021020
02102¢
021030
021032
»7 021034

012746
012746
010600
104414
062706

002645
000001

28 021040
29 021046
30 021052

052737
012701
062701

040000
002645
000004

32 021062

005003

N o

004737
042737

012616
040000

36 021076
37 021102
gg 021104

012703
005004
005037

177777

40 021110
41 021112
&2 021116
43 021122
22 021126

R I

PC,INITCD
#TITLES

sINITIALIZATION FOR TEST
;CONSOLE PRINT OF THE TEST TITLE.

BIS
MOV
ADD

¥BIT14,ERWORD
#TITLEG,RY
#4 R

;DISABLE ERROR HANG-UPS
:ADDRESS OF THE TITLE
;SKIP FIRST FOUR CHARACTERS

CLR

'DISABLE BIDIRECTIONAL PRINTING FOR THE MOMENT

MOV

006500

R R R R

JSR
PRINTB

MOV
MOV
MOV
TRAP
ADD

000004
006500

CLASSIFIED.

TEST6:

31 021056 012702 000053
3T 021064
gg 021070

JSR
BIC

0.5, . R2

PC,XMIT
#BIT14,ERWORD

NTITLEG,=(SP)
».-(SP)
SP.RO
C($SPNTB
84 ,SP

43 CHARACTERS IN THE TITLE

:PRINT THE TITLE
;ENABLE DESIRED ERROR HANG-UPS.

010064

MOV
CLR
LINLO6: CLR

#-1,R3
R4
CHRCNT

:ENABLE BIDIRECTIONAL PRINTING
*NO LINES YET PRINTED
:NO CHARACTERS YET PRINTED

010401
062701
012702
004737
004737

006555
000001
012616
(015246

CHRLOG6: MOV
ADD
MOV
JSR
JSR

R4 R
#CHRLST, R
M ,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

46 021132
47 021136

005237
023737

010064
010064

INC
CMP

CHRCNT
CHRCNT,LINSIZ

;KEEP TRACK OF THE CHARACTERS PRINTFD
:HAS A FULL LINE BEEN PRINTED YET?

50 021146
51 021150

005204
020427

000136

INC
CMP

R4
R4, 494,

:KEEP TRACK OF THE LINES PRINTED
:96 LINES PRINTED? (ALL CHARACTERS?)

23 021144

100761

010042

BM]

CHRLO6

:1F NOT THEN PRINT UNTIL TRUE.

HARDWARE TESTS
MACRO v03.01 7-NOV-80 10:06:10 PAGE
TEST 6: PRINT ONE LINE OF EACH CHARACTER

g% 021154

BMI
‘

LINLOG

;1F NOT YET, MORE LINES TO PRINT,

ENDTST

L10015:

104401

o
o

54 021156
021156
021156

100753

SEQ 106

33-1

LSBTTL

TEST 7:

PRINT A SWIRL PATTERN

TRAP

CSETST

b
—t

oo
O

—

BOGNTST

17::

o oo I
I
I L R R N N NN AR Y
TEST #7

d —d

IN THIS TEST, A SWIRL PATTERN IS PRINTED BY SENDING THE SEQUENCE
OF CHARACTERS IN THE CHARACTER LIST AND INCREMENTING THE STARTING

POPON)

b =P ccd b o od =D

N=2O VOO ~NONEWN
2O 000 NN

£
—

HARDWARE TESTS
MACRO v03.01 7-NOV-80 10:06:10 PAGE
TEST 7: PRINT A SWIRL PATTERN

SEG 107

POINT IN THAT LIST SO THAT THE SEQUENCE STARTS AT A DIFFERENT
CHARACTER EVERY LINE.

021160
021164
021164
021170
021174
021176
021200

004737

014274

012746
012746
010600
104414
062706

002725
000001

24 021204
25 021212
26 021216
27 021222
28 021226
29 021230
30 021234

052737
012701
062701
012702
005003
004737
042737

040000
002725
000004
000040

32 021242
33 021246

012703
005004

177777

35 021250
36 021252
37 021256
38 021262
39 021266

010401
062701
013702
004737
004737

41
42
43
4§

021272
021274
021276
021302

010105
005205
013701
060501

46 021304

005301
012702
004737
004737

A SWIRL PATTERN

47 021306
48 021312
49 021316
50

51 021322

020501

JSR

PRINTB

PC,INITCD
#TITLE?

SINITIALIZE THE TEST
“CONSOLE PRINT

THE

TITLE

006555
010042
012616
015246

MOV

SP RO

TRAP
ADD

006500

BIS

#BIT14 ERWORD

;INMIBIT ERROR HANG-UPS

ADD

"SKIP 1ST & CHARACTERS.

MOV

CLR
JSR
BIC

006500

NXTLIN:

rsé ,R2

($PNTB
¥4, SP

132 CHARACTERS INVOLVED

MOV
CLR

#-1.R3
R4

:ENABLE BIDIRECTIONAL PRINTING
*NO LINES ARE PRINTED YET

MOV

RG,RY

MOV

R1.RS

MOV

LINSIZ,RY

DEC

ADD
MOV
JSR
JSR

2. -(SP)

*ADDRESS OF THE TITLE TO BE PRINTED
‘DISABLE BIDIRECTIONAL PRINTING FOR NOW.
“SEND TO PRINTER
-ENABLE ERROR HANG-UPS

ADD

REVRSP:

#TITLE?,PI

pc XMIT
#BiT14
. ERWORD

INC

010042

000001
012616
015246

NTITLEZ.-(SP)

MOV

000004

012616
040000

MOV

;OFFSET

FCHRLST, R
LINSIZ,R2
PC,XMIT
PC .ERRORS

"ADDRESS OF CHARACTER TO BE PRINTED.
"LENGTH OF LINE. PRINT A LINES WORTH
TTRANSMIT THE LINE TO THE PRINTER
‘CMECK FOR ERRORS
CADDRESS OF LAST CHARACTER FOR PRINTING.

POINT ONE FURTHER FOR SWIRL EFFECT.

RS,R1

"POINT TO THE FIRST CHARACTER TO BE PRINTED*1.

:POINT TO THE NEXT CHARACTER TO BE PRINTED.

MOV
JSR
J5R

0" ,R2
PC.XMIT
PC ERRORS

"TELL XMIT THAT A SINGLE CHARACTER PRINTED.
"SEND THE CHARACTER. (REVERSE PRINT)

(MP

RS.RY

;PRINTED ENOUGH CHARACTERS YET IN REVERSE?

*CHECK FOR ERRORS.

HARDWARE TESTS

TESY

52 021324
53

MACRO v03.01

A SWIRL PATTERN

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

100767

SEQ 108

34-1

;PRINT NEXT REVERSE CHAR.

REVRSP

BM]

DONE WITH REVERSE PRINT,
57
58
59
60
61

021326
021332
021336

021340
021340
021340

062704
020427
100744

000002
000024

#2,R4
RG,#20.
NXTLIN

ADD

(MP
BM]

;KEEP TRA(CK OF THE NUMBER OF LINES PRINTED
;TEN LINES PRINTED YET?
;IF DONE, EXIT TEST

ENDTST

L10016:

104401

.SBTTL

TEST

WORST

CASEt

RAPID MOTION TEST

TRAP

(SETST

HARDWARE TESTS
WORST

CASE

7-NOV-80 10:06:10 PAGE

RAPID MOTION TEST

VBN =200

SEQ 109

BOGNTST

021342
021342

~NOWNEB W2 OO0

~NON

VS
W
—

POPIPOPNININD
b d d d D ed
e d )

TEST

MACRO Vv03.0%

18::

...........

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:"".

021342
021346
021346
021352
021356
021360
021362

004737

014274

012746
012746
010600

002772
000001

062706

000004

021366
021374
021400
021404
31 021410
32 021412
33 021416

052737
012701
062701
012702
005003
004737
042737

040000
062772
000004
000047

35
36
37
38

021424
021430
021432
021436

012703
005004
013705
006205

177777

021440

44 0214654

012701
012702
004737
004737

021460
0216462

02040%5

021444
021450

«g 021464
4

50 021466
021466

104414

005204

100765

012616
040000

TESTS:

PC,INITCD

FTITLES

JINITIALIZE TEST
;CONSOLE PRINT TEST TITLE

MoV
MOV
MOV

TRAP
ADD

006500

BIS

Mov
ADD
MOv

006500

LOOPS:

#BIT14,ERWORD

#TITLER,RY

¥4 R
#39.,R¢
R3

;DISABLE ERROR HANG-UPS

;ADDRESS OF

TITLE

;SKIP FIRST & CHARACTERS
;39 CHARACTERS

PC,XMIT

#BIT14 ,ERWORD

;NO BIDIRECTIONAL PRINTING FOR NOW
;SEND TO PRINTER
:ENABLE ERROR HANG-UPS

MOV
CLR
MoV
ASR

#-1,R3
R4

;ENABLE BIDIRECTIONAL PRINTING
;COUNT OF ''ACA:"" BLOCKS

;LINSIZ/Z?2 : 1 BLOCK = & CHARACTERS...
PRINT 2 LINES AT NEVW LINE SIZE
:

MOV
MOV
JSR
JSR

#ACAS,R1

CLR
JSR
8IC

010042

006535
000004
012616
015246

JSR
PRINTB

INC
(Mp
BM]

ENDTST

LINSIZ,RS

¥4 ,R2

PC,XMIT
PC,ERRORS
R&

R4,RS

LOOP8

;# OF

CHARACTERS PER LINE

;ADDRESS OF SEQUENCE
;OF & CHARACTERS...
:SEND TO PRINTER
. CHECK FOR ERRORS.

;ENOUGH BLOCKS PRINTED??
;1F NO, LOOP TO PRINT NEXT BLOCK...
L10017:

NTITLEB,-(SP)
#,-(SP)

SP,RO

(SPNTB

e ,SP

HARDWARE TESTS
TEST

B: WORST

021466

MACRO v03.01

SeEaQ 110

7-NOv-80 10:06:10 PAGE 35-1

CASE RAPID MOTION TEST

104401

TRAP

LSBTTL

TEST 9: PRINT RANDOM CHARA{TERS

CSETST

HARDWARE TESTS
TEST

MACRO v03.01

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

RANDOM (MARACTERS

SEQ 11

2
3 021470
A

BGNTST

021470

5
6
7

8
9
}?

|
;
;

19::

L S S S

U R

A R

TEST #9
PRINT RANDOM (YARACTERS

THIS TEST WILL PRINT A RANDOM SEQUENCE OF

PRINTER.

16
2
18
19

(HARACTERS ON THE

20
21

24 021470
25 021474

004737

014274

021500
021504
021506
2 021510

012746
012746
010600
104414
062706

003046

0214764

27 021514
28 021522
29 021526

30 021532
31 021536
32 021540
gz 021544
35 021552
36 021556
37 021560

052737
0127017
062701

012702
005003
004737
042737

TEST9:

JSR
PRINTB

PC,INITCD
#TITLEQ

000001

000004
040000
003046
000004

006500

000042

012616
040000

006500

BIS
MOV
ADD

#BIT14,ERWORD
#TITLEY.RY
#4,R1

:DISABLE ERROR HANG-UPS
;ADDRESS OF TITLE
;SKIP 1ST & CHARACTERS

MOV
ASL
ASL

LINSIZ,RS
RS
RS

;GET THE LINE SIZE
;LINE SIZE « 2
LINE SIZE « 4

CHRCNT

:LINE SIZE + 8
: TO PRINT 8 LINES WORTH
:NO CHARACTERS PRINTED YET
;RANDOM NUMBER (0 - 99) INTO R

MOV
CLR
JSR
BIC

#34. ,R2
R3
PC,XMIT
#BIT14,ERWORD

01004c

005037

010064

(LR

6% 021570

004737

014726

PLOOP9: JSR

PC,RANDOM

44 021576

062701

006555

ADD

#CHRLST,RY

46 021604
47 021610
23 021614

012703
004737
004737

177777
012616
015246

MOV
JSR
JSR

#-1,R%
PC,XNIT
PC,ERRORS

45 021600

50 021620
51 021624

006305

012702

005237
023705

MOV

MCV
MOV
TRAP
ADD

013705
006305
006305

38 021562
39
2? 021564

INITIALIZE TEST
;CONSOLE PRINT TITLE

ASL

000001

[ [0}

010064
010064

INC
(MpP

;34 CHARACTERS IN THE TITLE
:DISABLE BIDIRECTIONAL PRINTING
;SEND TO PRINTER
:ENABLE ERROR HANG-UPS

;ADDRESS FOR THIS PRINT

”,R2

sSINGLE CHARACTER

CHRONT
CHRCNT RS

:KEEP TRACK OF THE NUMBER OFf C(HARACTERS
;EIGHT LINES YET?

:BIDIRECTIONAL PRINTING.
;SEND TO PRINTER
;CHECK FOR ERRORS.

ATITLES,-(SP)
#1,-(SP)
SP,RO
(SPNTB
#,SP

HARDWARE TESTS
MACRO v03.0" 7-NOV-80 10:06:10 PAGE
TEST 9: PRINT RANDOM (HARACTERS

g% 021630

100757

BM]
ENDTST

54 021632

021632
021632

104401

"SBTTL

SEQ 112

36-1

TEST 10:

PLGOPO

:NO,LOOP UNTIL DONE

L10020:

PRINT OPERATOR SELECTED CHARACTERS

TRAP

CSETST

HARDWARE TESTS

SEQ 113

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

PRINT OPERATOR

SELECTED CHARA(CTERS

BGNTST

021634
021634

T10::

...... AU
L

=00V

NONES W

10:

L N
R R R

TEST 0

NO NS

ed ed o

D nd

PRINT OPERATOR SELECTED CHARACTERS

;
:

THIS OPTIONAL TEST WILL PRINT CHARACTER SEQUENCES SELECTED BY THE
OPERATOR ONE LINE AT A TIME.

TESTA:

JSR

=d e e

=S OO

TEST

MACRO v03.01

021634
22 021640
021640
021644
021650
021652
021654

004737

014274

012746
012746
010600

003115
000001

24 021660
25 021666
26 021672
27 021676
28 021702
29 021704
30 021710

052737
012701
062701
012702
005003
004737
042737

32 021716
021716
021720
021722
021724
021726
021730
021732
021734
021736
33
34
35 021736
36
37 021740
38
39
2? 021744
42 021746

104414
062706

PRINTB

PC,INITCD
W#TITLEA

040000
003115
000004
000056
012616
040000

006500

BIS
MOV
ADD
MOV
CLR
JSR

#B1T14,ERWORD
#TITLEARY
#4 R
#46. ,R2
R3
PCXMIT

GMANID

PRMPTA,BFRA,A,0,1,72,NO

BIC

006500
LOOPA:

#B81714 ,ERWORD

TITLE

MOV

TRAP
ADD

#TITLEA,-(SP)
#1,-(SP)
SP,RO
(SPNTB
#6,SP

TRAP

CSGMAN

.WORD

BFRA

MOV
MOV

;:DISABLE ERROR HANG-UPS
;ADDRESS OF TITLE
;SKIP & CHARACTERS
;46 CHARACTERS IN THE TITLE
:DISABLE BIDIRECTIONAL PRINTING
;SEND TO PRINTER

:ENABLE ERROR HANG-UPS

B8R

000406
007352
000142
003200
000000
000001
000072

.WORD
.WORD
.WORD
.WORD
.WORD

100008

T$CODE
PRMPTA

0
TSLOLIM
TOHILIM

10000$:
:PROMPT AT (ONSOLE AND INPUT STRING.

005004
007352

001011

012701

INITIALIZE

;CONSOLE PRINT

000004

1046443

105764

;TEST

002313

NXTA:

CLR

;R4 IS OFFSET IN INPUT STRING

1518

BFRA(RSL)

BNE

T6C2

;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.
CHECK FOR CTL=-Z
:NOT ZERO.

MOV

#CR,R1

;ADDRESS OF CARRIAGE RETURN - LINEFEED

HARDWARE TESTS

TEST 10:

43 021752

L4 021756

45 021762
46

4 021766
48
49
50 021770
51 021776

52
53 022000
54 022002
55 022010
56 022012
57
58 022014
59 022014
60 022020
61 022022
62 022026
63 022030
64 022034
65
66 022040
67 022042
022044

MACRO v03.01

7-NOV-80 10:06:10 PAGE 37-1

PRINT OPERATOR SELECTED CHARACTERS

012702
004737
004737

000002
012616
015246

MoV

000753
126637
001006

005204

126427

001415
005304

012701
060401
012702
005003
004737
004737
005204
000736
000240

007352

006525

007352

000000

007352

TFCZ:

LOGPA

;BACK TO PROMPT...

(MPB
BNE

BFRA(R4L) ,SCQ

MOV

CLR
JSR
JSR

012616
015246

EXITA:

INC
BR
NOP

ENDTST

104401

.SBTTL

TO SEND

JSR

ADD
MoV

000001

;TWO BYTES

:SEND THE STRING
:CHECK FOR ERRORS.

INC
(MPB
BEQ
DEC
NOTQ:

#2,R2

PC,XMIT
PC,ERRORS

JSR

70 022046

022046
022046

SEQ 114

TEST 11:

IS,

NOTQ
R&

BFRA(RL)
,#0
EXITA
R&

'lol'

CHECK FOR <RETURN>

;
E CHECK NEXT BYTE FOR ZERO.
;1S THE BYTE A ZERO?
;IF 1T IS THEN EXIT TEST
; IF NOT 2ERQ THEN NOT RETURN
;AND NOT YET THE END.
PRINT THE

CHARACTER.

;NOT BIDIR.

PRINTING.

#BFRA,R1
R4 LRY
#,R2

AS R4 POINTS THROUGH THE LIST.
ONE CHARACTER TO PRINT,

PC,.XMIT
PC,ERRORS

:SEND TO PRINTER.
;CHECK FOR ERRORS.

R&
NXTA

;POINT TO NEXT CHARACTER
;REPEAT

TILL

END OF

STRING FOUND.

L10021:

LIFT / DROP RIBBON BY OPERATOR CONTROL

TRAP

CSETST

HARDWARE TESTS

MACRO v03.01 7-NOV-80 10:06:10 PAGE 38
LIFT / DROP RIBBON BY OPERATOR CONTROL

BGNTST

022050
022050

(N S

T11::

T T

T T T

O T

T T T

T T

OV NOWVISWN 20000 NOWN

S win)—

11:

TEST #1

b md b b e

LIFT / DROP RIBBON BY OPERATOR CONTROL

OO NO NS WN

POAIPOPNIPO PRI NINIAD A

TEST

SEQ 115

022050
30 022054
022054
022060
022064
022066

004737

014274

012746
012746
010600

003264
000001

022070

062706

000004

32 022074
33 022102
34 022106
35 022112
36 022116
37 022120
38 022124

052737

040000
003264
000004
000060

004737
062737

012616
040000

40 022132

012701
012702
005003
004737

002303
000005

012701
012702
005003
004737

002310
000003

43 022144

45 022150
46 022154
47 02c160
48 022162
49

50
51 022166

104414

012616

TESTB:

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

THE AUTOMATIC MODE IS SELECTED BY THE USER, THEN THE RIBBON LIFTS

AND DROPS TEN TIMES AlI

JSR
PRINTB

PC,INITCD
#TITLEB

A RATE OF ABOUT ONCE PER SECOND.

STEST INITIALIZE
“CONSOLE PRINT TITLE

MOV
MOV
MOV
TRAP
ADD

006500

8IS
MOV
ADD

#BIT14,ERWORD
#TITLEB,RI
2 R

:DISABLE ERROR HANG-UPS
*ADDRESS OF TEST TITLE
‘SKIP & CHARACTERS

CLR
JSR
BIC

R3
PC,XMIT
#BiT14 ERWORD

*NO BIDIRECTIONAL PRINTING
*SEND THE TEST TITLE
:ENABLE ERROR HANG-UPS

MOV

006500

046 ,R2

148 CHARACTERS TO BE PRINTED.

MOV
MOV
CLR
JSR

#SETHTO,R1
#5,R2
R3
PC,XMIT

;SET HIT COUNT TO ZERO

MOV

#SETCHO,R1

sSET CHARACTER SIZE 10 ZERO.

GMANID

OPTN1,BFRB,A,0,1,72,YES

MOV
CLR
JSR

#3.R?
R3
PC,XMIT

*FIVE CHARACTER STRING SENT TO PRINTER
'NO BIDIRECTIONAL LOGIC REQUIRED.
*SEND TO PRINTER.
*ARGUMENT LIST IS 3 CHARACTERS LONG.
*NO BIDSIRECTIONAL LOGIC REQUIRED.
*SEND TO PRINTER.

#TITLEB,-(SP)
#,-(sP)
SP.ROD
CSPNTB
¥ ,SP

"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
N

72
73
74
75
76
77
78
79
80

81
82
83
84

SEQ 116

MACRO v03.01 7-NOV-80 10:06:10 PAGE 38-1
LIFT / DROP RIBBON BY OPERATOR CONTROL
TRAP

104443
000406
010030

BR
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

000152
003351
000000
000001
000072

100008
;ASK USER TO CHOOSE AUTO OR MANUAL MODE.

123737

010030

004737
000402

022352

004737

022232

001403

104401

006531

T$CODE

OPTN1
0

TSLOLIM
TSHILIM

;1F CHARACTER IS ""A"" THEN AUTO MODE CHOSEN
;S0 CALL LOCAL ROUTINE T0O HANDLE AUTO MODE

(MPB
BEQ

BFRB,SCA

JSR
BR

PC,MANLD

EXIT

;00 MANUAL LIFT / DROP.
JEXIT TEST WHEN DONE

AUTCAL:

JSR

PC,AUTOLD

;00 AUTOMATIC MODE LIFT / DROP.

EXIT:

ENDTST

AUTCAL

CSGMAN
10000%
BFRB

;OTHERWISE, MANUAL

IS CHOSEN.....

L10022:

TRAP

CSETST

HARDWARE TESTS
TEST 11:

SEQ 117

MACRO v03.01 7-NOV-80 10:06:10 PAGE 39
LIFT / DROP RIBBON BY OPERATOR CONTROL

)

iofiéiié&ii.éégeéifiiiéfi

........................................................

“

;

TEST #1

LOCAL PROCEDURE AUTOLD

;

AUTOMATIC MODE OF RIBBON LIFT AND RIBBGN DROP.

S e et

ee et

12
13
14
15
16
17
18
19
20
%%

:
:INPUTS
;

gg'

:CALLING SEQUENCE

005037

012700
112760
012701
012702
004737
004737

010066

000001
000040
002240
000004
012616
015246

39 022270

012705

001750

42 022300

012700

000001

46 022322

005003

2? 022274

43 022304
44 022312
45 022316
47 022326
48 022330

004737
112760
012701
012702
004737
004737

so 022334

005237

gg 022350

000207

~NO

51 022340
gg 022346

;
SFUNCTIONAL SIDE EFFECTS

32 022236
33 022242
3% 022250
35 022254
36 022260
g; 022264

NONE
.
TOUTPUTS
:
:
NONE

31 022232

e e

023727
100733

002240

010066

:COUNT OF CYCLES (LIFT/DROP)

MOV

#1000. ,RS

:DELAY TIME IN R1 FOR

MOV

#1,R0

:POINT TO THE RIBBON POSITION PARAMETER ...

CLR

:BIDIRECTIONAL LOGIC DISABLED

MOVB
MOV
MOV
JSR
JSR

000024

PC,AUTOLD
CCOUNT

AUTOLE: MOV
MOV8
MOV
MOV
JSR
JSR
JSR

012616
015246

010066

JSR

AUTOLD: CLR

015224

000041
002240
000004

THE PRINTER RIBBON WILL LIFT/DROP AUTOMATICALLY.

#1,R0
#2ERO,RIBPOS(RO)
#RIBPOS,R1
¥4 ,R2
PC.XMIT
PC.ERRORS
PC,DELAYS
#ONE,RIBPOS(RO)
#RIBPOS,R1
0 ,R2
PC,XMIT
PC .ERRORS

INC

CCOUNT

RTS

CMP
BM]

CCOUNT, #20.
AUTOL E

:POINT TO POSITION PARAMETER.
*RIBBON UP ARGUMENT
LLF T/DROP
:ADDRESS OF ARG LIST
CYCLE....
14 ARGUMENTS
... ...
SSEND TO PRINTER
i,
:CHECK FOR ERRORS.
vouvvunnn

DELAY ROUTINE. .....

:PERFORM DELAY OF ABOUT 1

SECOND.

:LOWER THE RIBBON.
:ARGUMENT LIST ADDRESS.
:4 CHARACTERS

.....
..
vu...
..

.....

CSEND SEQUENCE TO PRINTER.
vevvnnn..
O

*KEEP COUNT OF CYCLES SO FAR.

SRR

*LOOP TEN TIMES FOR TEN LIFT / DROP (YCLES
-LOOP UNTIL TEN LOOPS DONE.

HARDWARE TESTS
TEST

11:

MACRO v03.01
LIFT

7-NOV-80 10:06:10 PAGE

/ DROP RIBBON BY OPERATOR

39-1

CNONTROL

SEQ 118

¢ 10
TESTS

MACRO v03.01

LIFT

7-NOV-80 10:06:10 PAGE

SEQ 110

/ DROP RIBBON BY OPERATOR CONTROL

2 OO0

IR
IR
I
I
TN

NN —

HARDWARE
TEST 11:

TEST #11

LOCAL PROCEDURE MANLD
MANUAL LIFT / DROP MODE.
IF SELECTCD, THIS MODE WILL PERMIT
THE USER TO EITHER LIFT OR DROP THE RIBBON BY S(MPLY HITTING
THE <RETURN> KEY.
If A "'Q"" CHARACTER IS ENTERRED BEFORE THE
<RETURN>

KEY

HIT

THEN

THE

TEST

STOPPED.

élNPUTS

= OV

.
NONE
éOUTPUTS

EFUNCTIONAL SIDE EFFECTS
é
THE RIBBON WILL L1FT/DROP BY OPERATOR CONTROL.
JSR

PC,MANLD

PRINTB

#PRMPT(

u,.

0w,

éCALLING SEQUENCE

;PROMPT

INSTRUCTIONS

CONSOLE

Mov
MoV
MOV
TRAP
ADD

000004
MANLE:

104443

GMANID

NPRMPT ,BFRC,A,0,1,72,YES

000406
010032
000152
004531
000000
000001
000072

TRAP

:
100008

CMPB
BEG

—

006525

010032

. INPUT <RETURN> OR Q <RETURN>
>

022412
022420

104414
062706

MANLD:

003466
000001

— 2D

37
38 022372
022372
022374
022376
022400
022402
022404
022406
022410
022412

012746
012746
010600

Mmoo

022352
022352
022356
022362
022364
022366

;<RETURN> MEANS TO CHANGE
:Q <RETURN> MEANS TO EXIT

;1S THE CHARACTER A 'Q"" ?
JIF SO - EXIT TEST.

BR
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

#PRMPT(C,-(SP)
#,-(SP)

SP,RO
(SPNTB

¥6,SP

CSCMAN
100008
BFRC
T$CODE
NPRMPT

TSLOLIM
TSHILIM

RIBBON POSITION
TEST.

HARDWARE
TEST

11:

TESTS

MACRO v03.01
LIFY

DROP RIBBON BY

45 022422
46 022426
47 022434

012700
112760
012701

000001
000040
002240

g; 022452

S0 022446

004737
004737

012616
015246

22 022456

000735

22 C22460

000207

48 022440
49 022444

57
58
59

60
61
62

012702
005003

SEQ 120

7-NOV-80 10:06:10 PAGE 40-1
GPERATOR

002240

000004

(ONTROL

MOV
MOVB
MOV

#1,R0
#ZERO,RIBPOS(RD)
#R1BPOS,R1

;ARGUMENT FOR LIFT RIBBON
;ADDRESS OF ARGUMENT LIST

JSR
JSR

PC,XMIT
PC,ERRORS

;SEND ARGUMENT LIST TO PRINTER
;CHECK FOR ERRORS.

MOV
CLR

EXIT11:

:
:
;

LSBTTL

#4 ,R2
R3

B8R

MANLD

RTS

TEST 12:

:4 ARGUMENT CHARACTERS IS LIST
;DON'T BOTHER WITH BIDIRECTIONAL PRINTING CODE

:REPEAT UNTIL A "'Q'" IS FOUND IN THE BUFFER

BIDIRECTIONAL FORMS TRACTOR TEST

MACRO v03.01 7-NOV=-80 10:06:10 PAGE 41
BIDIRECTIONAL FORMS TRACTOR TEST

BGNTST

022462
022462

T12::

U
N L
R

NN—b_l_n_n_a_a—l.a—-l_J

NO NN =2O0V00NOWN

SN
—

?g??U?gE TESTS

SEQ 121

D UL

TEST #12

:
:

BIDIRECTIONAL FORMS TRACTOR TEST
THIS TEST WILL PRINT A TEN BY TEN ARRAY OF ASCII CHARACTERS

ANY LOCATIONS IN THE ARRAY.

MOTION.

THE TEST WILL NOT OVERPRINT

THIS TEST SHOULD EXERCISE BOTH UP

AND DOWN CARRIAGE MOTION AS WELL AS FORWARD AND BACKWARD CARRIAGE

S OO

IN A RANDOM ORDER ON THE PRINTER.

oy i

22 022462
23 022466
022466
022472
022476
022500
022502

004737

014274

012746
012746
010600

003717
000001

062706

000004

25 022506
26 022514
27 022520
28 022524
29 022530
30 022532
31 022536

052737
012701
062701
012702
005003
004737
042727

040000
003717
000004
000047

33 022544
022544
022546
022550
022552

022554
022556
022560
022562
022564

104414

012616
040000

TESTC:

JSR

PRINTB

¥BIT14,ERWURD
#TITLEC,R

MOV

#39..,R2

ADD

CLR
JSR

BIC

006500

#TiTLEC

MOV

BIS

006500

PCLINITCD

R3
PC,

°IT

. ERWORD
#B1114

INITIALIZE

;

;
"PRINT TITLE

-REINSTATE ERROR HANG-UPS
TRAP

BR
.WORD
"WORD
"WORD
"WORD
"WORD
"WORD

CSGMAN

10001%
BFRD

TSCODE
T11PMT
0
TSLOLIM
TSHILIM

CLEAR ALL TABLE UNIQUENESS INDICATORS.

:
MOV
CLEART: ADD

FTITLEC,-(SP)
#1,-(SP)
SP.RO
CS$PNTB
4, 5P

“SKIP & CHARACTERS

:
100018

005262
000005

MOV
MOV
MOV
TRAP
ADD

; TEMPOKARILY SUSPEND ERROR HANG-UPS
"ADDRFSS OF TITLE TO PRINT

GMANID T11PMT,BFRD,A,0,1,72,YES

104443
000406
010034
000152
004346
000000
000001
000072

012700
062700

STEST

"CONSOLE PRINT TITLE OF TEST

¥BASET,RO
#5.R0

:GET THE BASE ADDRESS OF THE VECTOR TABLE
"POINT TO THE UNIQUENESS INDICATOR.

HARDWARE
TESY 12

TESTS

43 022574

L6 022576

45 022600

022604

SEQ 122

MACRO v03.01 7-NOV-80 10:06:10 PAGE &1-1
BIDIRECTIONAL FORMS TRACTOR TEST
105010

005200
020027
10077

CLRB

aR0

BM]

CLEART

INC
(MP

006412

RO
RO, #FRONT

022606
022612
022616

005037
004737
010104

010066
014726

(LR
PLOOPC: JSR
Mov

CCOUNT
PC,RANDOM
R1,R4

022620

004737

022736

JSR

PC.,PRARCH

022624
022630
022636

005237
023727

010066
010066

INC
CMP

022640
022644
022650
022652

012701
012702
005003
004737

002313
000002

022656
022662
022666
022670
022674
022700
022704
022710
022714
022720
022724
022730
022734
022734
022734

;CLEAR THE UNIQUENESS INDICATOR.
;POINT TO THt NEXT TABLE ENTRY,
;1S 1T POINTING BEYOND THE TABLE?
;REPEAT LOOP UNTIL ALL UNIQUENESS INDICATORS
;

ARE

CLEARED.

;VECTOR

TABLE READY

TO USE.

;COUNT CHARACTERS PRINTED
.GET A RANDOM NUMBER (0 - 99) INTO R1
;PUT INTO R4 FOR THE PRARCH ROUTINE.
;PRINT

THE

CHARACTER

;KEEP TRACK OF

THE

COUNT OF

BMI

CCOUNT
CCOUNT,#100.

PLOOPC

;REPEAT UNTIL

DONE.

#CR,R1
¥2,R2
R3
PC,XMIT

;PRINT A CARRIAGE

012616

MoV
Mov
CLR
JSR

012701
012702

002314
000001

MOV
MoV

SLFLRT
#1,R2

;SEVERAL LINE FEEDS...

004737
004737

012616
012616

JSR
JSR

PC,XMLIT
PC.XMIT

004737
004737
004737
004737
004737
004737

012616
012616
012616
012616
012616
012616

JSR
JSR
JSR
JSR
JSR
JSR

PC,XMIT
PC,XMIT
PC,XMIT
PC,XMIT
PC,XMIT
PCXMIT

100765

005003

004737

012616

000144

CLR

JSR

ENDTST
104401

: CORRESPONDING POSITION.

ITS

CHARACTERS.

;DONE WHEN 100 HAVE BEE PRINTED.

RETURN AND SOME

LINE

FEEDS.

:<CROCLF>

PC,XMIT

L10023:

TRAP

CSETST

6 10

HARDWARE TESTS
TEST

12:

MACRO v03.01

BIDIRECTIONAL

98
99
00
101
102
108

7-NOV-80 10:06:10 PAGE 41-2
FORMS TRACTOR TEST

il i

}8§

e eeseeeeseettessaaseeanenatnsnntsetetatcee
st asecensasnacaseeseenanseseans

FUNCTIONAL DESCRIPTION

107

106

TEST #12

}83

;

LOCAL PROCEDURE PRARCH

110

;

}}2

;

m
12

;
:

115

119

;

116
117
118

.
: INPUTS
;

;

}%Q

TH]S SUB-PROCEDURE WILL INPUT THE RANDOM NUMBER, FIND THE CORRESPONDING

PLACt IN THE VECTOR TABLE, PRINT THE APPROPRIATE CHARACTER AT THE
APPROPRIATE VECTOR AND ACCUMULATE SPACING TO RE-POSITION THE CARRIAGE

AT “4E ( 0,0 ) POSITION IN THE ARRAY.

Ré

}S%

:OUTPUTS

}%fi

}%g

*SUBORDINATE ROUTINES

128

131

)

;

{gg

132
133
134

135 022736
136 022740

SEQ 123

RANDOM NUMBER CONTAINED IN R&.

USED TO GET A RANDOM TABLE ENTRY WHICA IS PRINTED.

THE TABLE ENTRY IS MARKED AS [T IS PRINTED.

RANDOM

GE1S ANOTHER RANDOM NUMBER IF THE ONE SUPPLIED

WAS CHOSEN ALREADY DURING THIS PASS.

010446
010346

PRARCH: MOV
MOV

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

R2,-(SP)

;

140 022744
141 022746
142 022750
143 022752

006304
010403
006304
060304

GTNUM:

ASL
MOV
ASL
ADD

R&
R4 ,R3
R4
R3,R4

;OFFSET DESIRED * 2
:SAVE 2 = OFFSET FOR LATER
;DESIRED OFFSET « &
:6 ¢ OFFSET NOW IN R4,

}29 022754

062704

005262

ADD

#BASET R4

;ADDRESS OF TABLE ENTRY DESIRED

148 022760
149 022764

062704
105714

000005

ADD
1518

#5,R4
aR4

;TABLE OFFSET.
SCHECK UNIQUE NUMBER INDICATOR.

152 022770

004737

014726

JSR

PC,RANDOM

}gg 022742
139

}22

}22 022766
153 022774
154 022776

MOV

010246

BEQ

001404
010104
000762

MOV
BR

NOT1

R1,R4
GTNUM

:SAVE REGISTERS
;

(THAT ARE NOT JSED FOR PASSING)

:DESIRED TABLE INDEX NOW IN R&.

“IF NOT UNIQUE THEN CONTROL T00 NOT?
:RANDOM NUMBER IN R&

;GET THE RANDOM NUMBER IN THE RIGHT PLACE.
“LAST ONE DIDN'T WORK... TRY THIS ONE.

H 10
HARDWARE

12:

SEQ 124

MACRO v03.01 7-NOV-80 10:06:10 PAGE 41-3
BIDIRECTIONAL FORMS TRACTOR TEST

000001
000005

023000
023004

NOT1:

Mmove

SuB

1,9R4
’S5,R4

;SET UNIQUE INDICATOR

"AT THIS POINT R4 CONTAINS A TABLE ENTRY

;ADDRESS WHICH HAS NOT BEEN REFERENCED DURING

)

OO0
N NNNNNNNNNOOCOOOOOCOON
NN
N=2OOVONOWVEB
NN 220000 N NS NN 2OV~

TESY

TESTS

023010
023012
023016
023022
023030
023032
023040
023042

0126401

023050
023052
023056

012401
004737
012700

004737
012700
113760
005200
113760

010047

002226

113760

010050

002226

005200

113760

014176
000001
010046

002233

113760

010047

002233

113760

010050

002233

012701
012702
005003
004737
004737

002226
000005

d el
—

005200

012701
012702
005003
004737
004737

0231564
023156
023162
023164
023170

010401
012702
005003
004737
004737

199 023174

014401
005401
162701

200 023176
201 023200
204 023204
205 023210
206 023214
207 023222
208 023224

209 023232
g}? 023234

JSR

002226

187 023132
188 023136
189 023142
190 023144
191 023150

193
194
195
196
197

MoV

014176
000001
010046

005200

D e

D end

)

D e

; THIS PASS.

MOV
MovB

INC
MovB
INC

Move

MOV
JSR
MOV
MOvB
INC
Move
INC
MovB
MOV
MOV

012616
015246

CLR
JSR
JSR

002233
000005

MOV
MOV

(R4)+ R

PC,CONVRY
#1,R0

H8E81,HRZTLS(R0)
R

;GET HORIZONTAL COMPONENT OF THE VECTOR
. CONVERT R1 TO MNEMONICS

:LOAD THE ARGUMENT LIST

EgEBZ,HRZTLS(RO)
MNEB3,HRZTLS(RO)
#VRTCLS,R1

;NOW,

PC,XMIT
PC,ERRORS

;SEND TO PRINTER
;CHECK FOR ERRORS.

;NOW, ACCUMULATE HORIZONTAL SPACING

R4 ,R1

:GET ADDRESS OF THE CHARACTER
:SINGLE CHARACTER
:DISABLE BIDIRECTIONAL PRINT LOGIC.
;SEND TO PRINTER
;CHECK FOR ERRORS.

¥5,R2
R3

000001

MOV
MOV

#1,R2

ACCUMULATE

VERTICAL

SPACING

‘DISABLE BIDIRECTIONAL PRINT
“SEND TO PRINTER
“CHECK FOR ERRORS.

CLR
JSR
JSR

R3
PC.XM1T

MOV

-(R4) R
R1
ne..r

:COLUMN NUMBER IN R1
;NEGATIVE NUMBER FOR LEFT SPACING

PC,CONVRT
#,R0

;CONVERT TO MNEMONIC

113760

0146176
000001
010046

002233

MOV
MOVB

113760

010047

002233

113760

010050

002233

005200

MNEB3,VRTCLS(RO)

CLR
JSR
JSR

NEG
SuB

005200

;LOAD THE ARGUMENT LIST

:gEBZ.VRTCLS(RO)

012616
015246

;GET THE VERTICAL COMPONENT OF THE VECTOR
;CONVERT R1 TG MNEMONICS

MNEB1,VRTCLS(RO)
RO

#HRZITLS,R1
¥5,R2
R3
PC,XMIT
PC,ERRORS

000014

004737
012700

+ ,R1
(R&)

PC,CONVRT
#1,R0

JSR

INC

MOvB
INC
Move

PC,ERRORS

:8EB1,HRZTLS(RO)
:8582,HRZTLS(R0)
MNEB3,HRZTLS(RO)

:AND ONE EXTRA SPACE ACCOUNTS FOR THE

;CHARACTER WHICH WAS PRINTED (12 INCREMENTS)

«PUT IN ARGUMENT LIST

I 10

.
HARDWARE
TEST 12:

TESTS

MTMMACRO v03.01 7-NOv-80 10:06:10 PAGE
BIDIRECTIONAL FORMS TRACTGR TEST

212 023242
213 023246
214 023252
215 023254
%}9 023260

012701
012702
005003
004737
004737

218
219
220
221

01466401
005401
004737
012700

023264
023266
023270
023274

222 023300
223 023306

2264 023310

002233
000005
012616
015246

113760

014176
000001
010046

002226

113760

010047

002226
002226

005200

225 023316

005200

113760

010050

228 023326

012701

002226

230 023336
231 023340
%;g 023344

005003
004737
004737

%%9 023320

229 023332

012702

MOV
MOV
(LR
JSR
JSR

FHRZTLS,R1
#5,R2
R3
PC,XMIT
PC,ERRORS

;ADDRESS OF ARGUMENT L[ST
;5 ARGUMENTS
:DISABLE BIDIRECTIONAL LOGIC.
:SEND TO PRINTER
:CHECK FOR ERRORS.

MOV
NEG
JSR
MoV

-(R&) ,R1
R1
PC,CONVRT
#1.,R0

;GET THE C(OLUMN NUMBER
:REVERSE THL CARRIAGE MOVEMENT
:CONVERT T0O MNEMONICS

MOVB
INC

MNEB1,VRTCLS(RO)
RO

INC

MOVB

RO
MNEBZ,VRTCLS(RO)

MOV

#YRTCLS, R

;ADDRESS OF ARGUMENT LIST

CLR
JSR
JSR

R3
PC,XMIT
PC ,ERRORS

:DISABLE BIDIR. LOGIC
;SEND TO PRINTER
:CHECK FOR ERRORS.

MovBe

000005

[ [01"

012616
015246

SEQ 125

41-4

;FILL ARGUMENT LIST

MNEB2,VRTCLS(RO)

#5,R2

234 023350
235 023352
5%9 023354

012602
01603
012604

MoV
MOV
MOV

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

238
239 02335¢
240

000°07

RTS

;

: T0 ACCUMULATE VERTICAL SPACING

;RESTORE REGISTERS

261
242

¢43

2446

245
246

247

24L8

249

;
;

LSBTTL

TEST 13:

CUT SHEET FEEDER EXERCISOR

J 10

S OOV
NOWVEWN=O0V00
NN

S
=

HARDWARE
TEST 13:

TESTS

MACRO v03.01

CUT

7-NOV-80 10:06:10 PAGE

SHEET FEEDER EXERCISOR

023360
023360

BGNTST

24 023406
023406
023410
023412
023414
023416
023420
023422
023424
023426

004737

014274

012746
012746
010600
104414
062706
005003

003773
000001

113::

S N

A SRR RSN

RRNRRRRNRNE

TEST #13

CUT SHEET FEEDER EXERCISOR

;

THIS TEST WIL. EXERCISE THE CUT SHEET FEEDER BY TESTING TO SEE THAT

TESTD:

JSR
PRINTB

:
:

023360
022364
023364
023370
023374
023376
023400
22 023404

SEQ 126

THE FEEDER 1S INSTALLED, FEEDING AND EJECTING SHEETS AND PRINTING
TEXT ON THE TOPS AND BOTTOMS OF THE SHEETS IN THE PRINTER.

PC,INITCD
#TITLED

;INITIALIZE TEST
"CONSOLE PRINT TITLE
MOV

FTITLED,=(SP)

ADD

¥4, SP

MOV
MOV
TRAP

000004

104443
000406
006514

CLR

:DISABLE BIDIRECTIGNAL PRINTING

GMANID

PRMPTD,BRZ2,A,0,1,72,YES

TRAP

BR
.WORD
.WORD

000152
004046
000000
000001
000072

.WORD

10000$:

.WORD
LWORD
WORD

»,-(SP)
SP.RO
C$SPNTB

CSGMAN

10000%
BRZ
TSCODE
PRMPTD
0
TSLOLIM
TSHILIM

;PROMPT USER FOR PAGE SIZE USED.

;OPTIONS ARE A) 11
;AND

023426
023434

006514

023436
023442
023450
023454
023462
023464
023466
023474

000001
002330
000001
002330

023476

123737

006527

002271

006514

006526

BRZ,S(B
CHKC

Mov
:8VB
v

R4
;?Z;é,S\PGSZ(R&)
.

INC
INC
MOVB
BR

R&
RS
PSZ14(R5),STPGSZ(R4)
TRNSMT

Move

002271

002330

CMPB
BNE

(HKC:

(MPB

INCH, B) 14 INCH

A4 EUROPEAN STANDARD.

;WAS THE CHOICE
= 'B'" ?
:IF NOT THEN CHECK IF IT

IS
= *'C*...

;OFFSET FOR PSZ14 § STPGS?
;THEN = "B''... 14 INCH PAGE.

PSZ14(RS),STPGSZ(R4)

BRZ,SCC

()

:
;
;SEND THE ARGUMENT

;1S THE CHARACTER A ''C'' ?

SEQUENCE

SET UP ARG LIST

K 10
HARDWARE TESTS
TEST 13:

22 023504

001022

45 023506
46 023510

010146
012701

000002

48 023520

113760

002322

47 023514

49 023526

012700

000001

023534
023540
023546
023550

116061
012700
116160
012601
000421

55 023552
56 023554
57 023560

010146
012701
012700

61 023604
gg 023612

116160
012601

64 023614
65 023620
66 023624
67 023626
23 023632

012701
012702
005003
004737
004737

002271
000005

70 023636

012700

50
§1
52
gz

58 023564
59 023572
60 023600

71 023642
72 023646
73 023654
74 023662
;g 023666
77 023674
78 023700

9 023704
80 023706
g; 023712

113760
116061
012700

012701
113760
16061
012700
116160
012701
012702

005003
004737
004737

002322

000003
002322

000002
000001

002325
002325
000003
002325

R1,-(3P)
#2.R1

;SAVE R1
TOFFSET

MOVB

002271

PSIA4,STPGSZ(RO)

TTHEN
= *'C*'. SET UP ARG LIST

MOVB

MOV
MOVB
MOV
BR

002271

MAKE11: MOV
MOV
MOV

MOVB
MOVB
MOV

002271

MOVB
MOV

:SAVE R1
TOFFSET
TOFFSET

PSI11(R1),STPGSZ(RO)
(SP)+,R1

‘RESTORE R1

PSI11,STPGSZ(RO)
PSZ11(R0O),STPGSZ(R1)
#3.R0

#1,R0

002276

002276
000005

89 023740

123737

006514

92 023750
gz 023754

013701
000411

002170

95 023756
39 023764

123737
001003

006514

98 023766

013701

002172

012616
015246

006527

006526

MOV
MOV

#SLTPFF,R1
#5,R2

:TRANSFER OFFSET FOR
*SELECT TRAY-PERFORM FORMFEED
*ARGUMENT LIST
TOFFSET ADJUSTMENT
:

:ADDRESS OF ARGUMENT LIST
:

:SELECT TRAY AND PERFORM FORMFEED.
*CHECK FOR ERRORS.

MOV
MOV
CLR
JSR
JSR

¥FTYTPM,R1
#96. ,R2
R3
PC,XMIT
PC.ERRORS

;FRONT TRAY TOP OF PAGE MESSAGE
96 CHARACTERS LONG

CMPB

BRZ,S(B

;1S THE BYTE A 'B"

MOV
BR

SKP14,R1
DOSPCS

SSKIP 14 INCHES MINUS 3 LINES VERTICALLY
*PERFORM TASK

(MPB
BNE

BR2,SCC
ASSMA

1S THE CHARACTER A ''C'"
"MUST BE 11 INCH IF NOT B OR C.

SKPA4, R

SMUST BE A4 SIZE. SKIP A4 = 3 LINES VERTICALLY

BNE

(HC2:

STHEN = “A". SET UP ARG LIST
FOR 11 INCH PAGE.
OFFSET ADJUSTMENT

:SEND TO PRINTER... SET PAGE SIZE
*CHECK FOR ERRORS.

#2 R
FRONT,SLTPFF
(RO)
FRONT(RO),SLTPFF
(R1)
#3,R0
FRONT(R1),SLTPFF(RO)

R3
PC,XMIT
PC .ERRORS

TEMPORARILY

;ADDRESS OF ARGUMENT LIST
:

MOV
MOVB
MCVB
MOV
MOVB

CLR
JSR
JSR

012616
015246

‘OFFSET ADJUSTMENT
:
‘RESTORE R1

R1,=(SP)
#2.R1
#1.R0

SELECT: MOV

002276
002276

TEMPORARILY

“OFFSET

PSIA4(R0),STPGSZ(R1)
#3,R0
PSIA4(R1),STPGSI(RO)
(SP)+,R1
TRNSMT

000001

000002
006412
006412
000003
006412

SIF NOT THEN ASSUME IT WAS AN "'A'".

#1 R0

012616
015246

004654
000140

000402

MOV
MOV

¥STPGSZ,R1
#5,R2
R3
PC,XMIT
PC.ERRORS

012701
012702
005003
004737
004737

g? 023746 001003

MAKE11

MOV

002271

002271
002271

BNE

TRNSMT: MOV
MOV
CLR
JSR
JSR

83 023716
84 023722
85 023726
86 023730
g; 023734

99 023772

SEQ 127

MACRO v03.01 7-NOV-80 10:06:10 PAGE 42-1
CUT SHEET FEEDER EXERCISOR

MOV
BR

CHCZ

DOSPCS

;SEND TO PRINTER
*CHECK FOR ERRORS.

*IF NOT THEN CHECK FOR A ''C"'

"PERFORM TASK

L 10
HARDWARE TESTS
TEST 13:
100

MACRO v03.01 7-NOV-80 10:06:10 PAGE 42-2
CUT SHEET FEFDER EXERCISOR

}%} 023774

013701

002174

ASSMA:

103
104
105
1066
107

010137
004737
012700
113760
005200

002176
014176
000001
010046

'
002226

113760

010047

002226

DOSPCS: MOV
JSR
Mov
Mmove
INC

113760

010050

002226

112 024042
113 024046
114 024052

012701
012702
005003

002226
000005

}}9 024060

004737

015246

024000
024004
0264010
024014
024022

108 024024
109 024032
}}? 024034

115 024054

005200

004737

012616

11870264064

012701

007203

120 024074
121 024076
}%% 024102

005003
004737
004737

012616
(15246

. _~"119 024070

124 024106
125 024112

126 024114
127 024120
128 026126
129 024134
130 026140
{%5 024146

012702

012700
010146

000072

000001

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

002276
002276
002276

012616
015246

SKP11,R1
R1,CRNTSK
PC,CONVRT
#1,R0
MNEB1,VRTCLS(RO)
RO

;11 INCH PAGE. SKIP 11 INCHES - 3 LINES
;SAVE CURRENT SKIP SIZE.
;CONVERT TO MNEMONICS

;MNEMONICS FOR ARG LIST

MNEBZ,VRTCLS(RO)
RO
MNEB3,VRTCLS(RO)

MoV
MoV
CLR

#VRTCLS,RY
¥5,R2
R3

;ADDRESS OF ARGUMENT LIST FOR VERTICAL SPACING
:

JSR

PC,ERRORS

;CHECK FOR ERRORS.

PC,XMIT

;SFND TO PRINTER

MoV

#FBTM R

;PRINT BOTTOM OF PAGE MESSAGE

CLR
JSR
JSR

R3
PC,XMIT
PC,ERRORS

;SEND TO PRINTER
;CHECK FOR ERRORS.

MOV
Mov

133 0264150
134 024154
135 024160
136 024162
}g; 026166

(05003

Mmove
INC
MOVB

MOV

000002
006415
006415
000003
006415

156 024266

MOV

JSR

012701
113760
116061
012700
116160
012601

}g% 024250

SEQ 128

mov
Mmove
Move
MoV
Movs
Mov

#58.,R2

:58 CHARACTERS

#1,R0
R1,-(SP)

#2,R1
REAR,SLTPFF (RO)
REAR(RO) ,SLTPFF (R1)
#3,R0
REAR(R1) ,SLTPFF (RO)
(SP)+,R1

; TEMPORARILY SAVE R1
sSELECT REAR TRAY
;
AND PERFORM
;
FORMFEED.
;RESTORE R1

Mov
MoV
CLR
JSR
JSR

#SLTPFF R
#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
Move
INC
Move
INC

CRNTSK,R1
PC,CONVRT
#1,R0
MNEB1,VRTCLS(RO)
RO
MNEB2 ,VRTCLS(RO)
RO

MOV
Mov

#VRTCLS,R1
#5,R2

Mmovs

CLR

;SEND TO PRINTER
; CHECK FOR ERRORS.

;SEND TO PRINTER
¢CHECK FOR ERRORS.

;GET CURRENT SKIP SIZE.
;CONVERT TO MNEMONICS

;MNEMONICS FOR ARG LIST

;

MNEB3,VRTCLS(RO)

;ADDRESS OF ARGUMENT LIST FOR VERTICAL SPACING
;

M 10

SEQ 129

7-NOV-80 10:06:10 PAGE 42-3
EDER EXERCISOR

HARDWARE TESTS

MACRO V

157 0 24270
158 0 24274
15 9

004737
004737

JSR
JSR

PC,XMIT
PC,ERRORS

;SEND TO PRINTER
; CHECK FOR ERRORS.

024300
024304
024310
024312
024316

012701
012702
005003
004737
004737

MOV
MOV

#FBTM,R1
#58. ,R2

;MESSAGE FOR BOTTOM OF
;

167 024322
168 024326
169 024332
170 024340
17 024346
172 024352
173 024360
174 024364
175 024370
176 024372
177 024376

012700
012701
113760
116061
012700

TEST 13:

160
161
162
163
164
165
16 )

b
b
b
b
b
bt
d
d
b
b
e
o
e
e

}78
79 024402
024402

024402

CUT SHE

116160

012701
012702
005003
004737
004737

CLR
J3R
JSR

012616
015246
000001
000002
006420
006420
000003
006420
002276
000005

002276
002276

#1,R0
#2,R1
NULL,SLTPFF (RO)

MOvB

NULL(R1) ,SLTPFF(R0O)

MOV
MOV
CLR
JSR
JSR

012616
015246

:SEND TO PRINTER
;CHECK FOR ERRORS.

MOV
MOV
MOVB

MOovB
MOV

002276

R3
PC,XMIT
PC,ERRORS

NULL (RO) ,SLTPFF(R1)
#3,R0
#SLTPFF R
#5,R2
R3
PC,XMIT
PC,ERRORS

;OFFSET IN ARG LIST
;EJECT
;.
PAGE

.
:

104401

.EVEN

.SBTTL

PRESENTLY

IN THE PRINTER

:SEND TO PRINTER
;CHECK FOR ERRORS.

ENDTST

.TITLE PARAMETER CODING

PAGE

HARDWARE PARAMETER CODING SECTION

L10024:

N 10

PARAMETER CODING

SEQ 130

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

HARDWARE PARAMETER CODING SECTION
1

5
6
7
g

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

3
4

: THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS
: THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
THE

10
11 024404

024404
12 024406

13 0246406

0246406
024410
024412
024414
024416

003032
025002
000003
000001
000002

024420
024422
026424
024426

000031
024452
160000
177777

024430
024432
024434
16 024436
024436

001130
024624
000001

024440
024442
024444
024446
024450

002032
024707
000007
000000
000007

14 024420

15 024430

17 024440

18 024452
19 024452

BGNHRD

000022

LSHARD: :

006024

SNGLP:

GPRMD

GPD2MS,6.0,3,1,2,YES

;PRINTER WIDTH QUESTION.

GPRMA

GPAMSG,0,0,160000,177777.,YES

;CSR ADDRESS QUESTION.

GPRML

GPLMSG,2,1,YES

:D2117 QUESTION.

XFERT

SNGLP

GPRMD

GPDMSG,4,0,7.,0,7.YES

23 024452

012

0246471

114

024455
024460
026463
024466
024474
024477
024502
024505
024510
024513
024516

015

111

125

105

106
105
125
040

040
106
114
126

123
117
1M1
108
101
040
123

040
122
116
122
103
104
M

104
101
124
101

106
040
124
106
105
105
122

T$CODE
GPD2MS
3
TSLOLIM
TSHILIM

.WORD
.«ORD
.WORD
.WORD

TS$CODE
GPAMSG
TSLOLIM
TSMILIM

:CHANNEL # QUESTION.

.WORD
.WORD
.WORD
LWORD
WORD

ENDHRD

L10025:

.WORD
.WORD
.WORD
LWORD
.WORD

.WORD
T$CODE
.MWORD
GPLMSG
WORD
1
;SKIP CHANNEL QUESTION IF DL,
.WORD
T$CODE

26 024452

.WORD L10025-LSHARD/2

T$CODE
GPDMSG

7
TSLOLIM
TSHILIM

.EVEN

MESSAGES FOR THE ABOVE CALLS

GPAMSG: .ASCII

<12><15>/1F DEFAULT VALUES FOR INTERFACE DESIRED, ENTER *7./<12><15>

024701
024704
27 024707
024712
024715
024720
024723
024726
024731
024734
024737
024742
024745
024750
024753
024756
024761
024764
024767
et d=lel Jolaol

o OOHON

N G

D (e g

STATUS REGISTER

INTERFACE

(CSR)

TO A SINGLE
LINE

CHANNEL NUMBER FOR

INTERFACE?

THE

>>/

PRINTER.
(0=7)

e G

ADDRESS.>>/
g

—— g —— g

/1AAD>AAD

>>/
A

<12><15>/ENTER
GRS

LASCIY
I

GPDMSG:
U

<12><15>/PRINTER CONNECTED

LASCIZ

S g

GPLMSG:

GEe

JENTER CONTROL

AR SEL SR

LASCIZ

AND A

<A1/

=2 NN =N

g—

OO~

OO A

LASCII

g =P

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

NNVO SNV NVO S NN =2 BT

OOWNESOWO
S NO S WNNOO S

[ FETRETY o, PEE Y o BRI Y e R R

CODING SECTION

SO ==2=ONNOO
=N =N
S NNNNDOO

OMNCOOMNOMNIOWN=O
= WN=NUNOOWN OIS S =2

(LS P LS E I Y

Ot b e e O b b ed e O et e e et e DO =B b ech b e —h b B e D DB

OO
2 b O =t OOt s s
OO
Pt QO
d b D 2 b O b b 2 a2 OO
2 —b b >
NNOO ==
ONS PNV
OO0~»=0OVOOWVONNONO
SN N2 220000
ON= NSO ONWOO ST WWNSVNOOCWNE = NI WWNIN = O N NI
VWO O VW B~

NONOO VMR WWNIONNVIONO VOO 2 NOONSWOOS NN S NO WV =RNIWNE B S pnuron o

,Y S G
QEFY , YT, Y o Y Y
G
PV Y, W P
N QI QUST PR Y
P
g
gi ¥ Y = ] o
e e B PPl o ] PEFPEFYIrY
=2 NIOOO — — wn
- NOON S SO = P = OO=L NN~ NNNONWVIO=NIMNIN

105
040
124
040

Q)
e O el wld el el O b b
PO
=N) vt
=2 b
OWN=O
&H NNOIWVOOO

024643

024646
024651
024654
024657
024662
024665
024670
024673
024676

e T P
P
2 OON =N

024521
024524
024527
024532
024535
24 024540
024543
25 024545
024550
024553
024556
024561
024564
024567
024572
024575
024600
024603
024606
024611
024614
024617
024622
26 024624
024627
024632
024635
024640

[ P
Y
P
VIRNVO SN OON =

PARAMETER CODING
HARDWARE PARAMETER

SEQ 131

PARAME TER CODING

SEQ 132

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

MARDWARE PARAMETER CODING SECTION

024772
024775
8 025000

060
051
076

055
040
000

067
076

29 025002

040

012

015

025010
025013
025016
025021
025024
025027
025032
025035
025040
025043

117
040
107
127
124
106
040
111
105
015

123
120
105
111
110
117
120
116
122

105
101
040
104
040
122
122
124
012

117

110

123
117
072
061
070
103
122
124
123
105
120
116
122
111
015

105
116
040
651
060
110
101
105
040
122
122
124
040
116
012

040
062
061
040
101
103
122
120
040
111
105
114
105

040
051
063
103
122
124
123
105
120
116
122
111
015

30 025005

31 025044

025047

025052
025055
025060
025063
025066
025071
025074
025077
025102
025105

025110
025113
025116
025121

103

040
105
040
040
040
101
103
122
120
040

111
105
114
105

110

32 025124

011

040

33 025177

050

061

025127
025132
025135
025140
025143
025146
025151
025154
025157
025162
025165
025170
025173
025176

025202
025205

040
040
040
062
110
101
105
040
122
122
124
040
116
012

062
076

051
076

117

GPD2MS: .ASCII

/CHOOSE ONE:

1) B0 CHARACTERS PER PRINTER LINE/<15><12>

2) 132 CHARACTERS PER PRINTER LINE/<15><12>

ASCIT

054

ASCIZ

7Q1,2) >>/

040
000

.EVEN

;

JASCI]

040

SPATCH::

/CHOOSE PAGE WIDTH FOR PRINTER/<12><15>

36 025210

/ /€12><15>

ASCI]

.BLKW

10 ; (ADJUST SIZE OF PATCH AREA UNTIL)

(LASTAD + 27264 WAS BIT 7 CLEAR )

PARAMETER CODING
HARDWARE PARAMETER

MACRO v03.01

CODING

SECTION

025230

025230
025232
025234

LASTAD

000000
000000

SEQ 133

7-NOv-80 10:06:10 PAGE 4%-3

LSLAST::

.EVEN
.WORD
.WORD

PARAMETER CODING
HARDWARE PARAMETER

1 025234
2

MACRO v03.01
CODING SECTION

000001

7-NOv-80

.END

10:06:10

ENDMOD

PAGE

&¢

SEQ 134

PARAMETER CODING
SYMBOL TABLE

MACRO v03.01

ABORT
ABSND
ABSS
ACAS
ADR
=

CHRCNT
CHRLOO
CHRLO6
CHRLST
CLEART

AGN
ALPHA
ASSEMB=
ASSMA
AUTCAL
AUTOLD
AUTOLE

015602
017106
017316
006535
000020 G

020700
013514
000010
023774
0222264
022232
022236

BASET
005262
BAUDRT 005252
BAUTBL (06466
BETA
013476
BFRA
007352
BFRB
010030
BFRC
010032
BFRD
010034
BIDIRP 012726
8110 = 000001 G
81700 = 000001 G
BITO01 = 000002 G
BIT02 = 000004 G
BIT03 = 000010 6
BI1T04 = 000020 G
BITOS5 = 000040 G
BIT06 = 000100 G
81107 = 000200 G
81108 = 000400 G
BITOY = 001000 G
B8IT1 = 000002 6
BIT10 = 002000 6
BIT11 = 004000 G
81112 = 010000 6
BIT13 = 020000 6
BIT14 = 040000 6

BIT15 = 100000 G
8112 = 000004 G
BIT3 = 000010 G
BIT4 = 000020 6
8115 = 000040 6
BIT6 = 000100 G
BIT7 = 000200 G
BIT8 = 000400 G
8179 = 001000 G
BOE
= 000400 G
BR?
006514
CALLDF 015664
CALLDL 015700
006516
CAN
CCOUNT 010066
(HC2
023756
023476
(HKC
(HKCAN 013552
CHKN6
017552

C(NTNU
COlE
CONTLO
CONVRT
CR
CRCLX
CRNTPR

7-NOv-80 10:06:10 PAGE

010064
020166
021110
006555
022570

013466
013456
014112
014176
002313
015152
006502

CRNTSK 002176
CSRADD 002200
CTL2
006524
C$AU = 000052
C$AUTO= 000061
C$BRK = 000022
($BSEG= 000004
($BsuUB= 000002
C$CEFG= 000045
C$CLCK= 000062
CSCLEA= 000012
C$CLOS= 000035
C$CLP1= 000006
C$CVEC= 000036
C$DCLN= 000044
{$D0DU= 000051
CSORPT= 000024
C$DU = 000053
C$EDIT= 000003
CSERDF= 000055
C$ERHR= 000056
C$ERRO= 000060
C$SERSF= 000054
C$ERSO= 000057
C$ESCA= 000010
C$ESEG= 000005

C$ESUB= 000003
CSETST= 000001
CSEXIT= 000032
C$GETB= 000026
C$GETw= 000027
CSGMAN= 000043
CSGPHR= 000042
C$GPLO= 00030
CSGPRI= 000040
CSINIT= 000011
C$INLP= 000020
CSMANI= 000050
CSMEM = 00003
CSMSG = 000023
CSOPEN= 000034
C$PN1B= 000014
($PNTF= 000017
($PNTS= 000016
C$PNTX= 000015

($Q]0 =
C$RDBU=
CSREFG=
CSRESE=
CSREVI=

(SRFLA=
CSRPT =
C$SEFG=
($SPRI=
($SVEC=
($TPRI=
DASHES

SEQ 135

4¢-1

000377
000007
000047
000033
000003

000021
000025
000046
000041
000037
000013
006542

DCUPA
015446
DDCUPA 015500
DELAYS 015224
DELCNT 010054
DFAIL
005260
DFAULT 017032
DFPTBL 002160 G
DIAGMC= 000000
DIRCTN 006504
DLDFLT 005254
DLSET
016602
DONEDF 017450
DOSPCS 024000
DUMMYS 002214
DZDCOD 017220
DIDFLT 005256
DISET
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 6
EF .NEW= 000035 6
EF .PWR= 00G034 6
EF .RES= 000037 6
EF.STA= 000040 6
EIGHT = 000050
EIGHTY 016506
EMPTIB 014310
EMPTIZ2 015746
EMPTIZ 016246
EMPTI4 017060
EMPTIS 017270
EMPTLZ 015752

EMPTYR
EMPTZ3
EMP4
EMPS
ENDIN

EQT
ERMSGB
ERRBLK
ERRMSG
ERRNBR
ERRORS
ERRTYP

016550
016252
017064
017274
016566

006515
007316
010100
010076
010074
015246
010072

F$SRV =
F$suB =
F$SW =
FSTEST=
GETCHR

6
6
G

ERSETT 014160
ERWORD 006500
ESCAPE 006521
EVL
= 000004 G
EXETS
013576
EXIT
022230
EXITA
0220644
EXITE
0146166
EXITON 014004
EXITS
013626
EXITSR 015216
EXITX
013352
EXITI1 022460
EXTMCR 015450
ESEND = 002100
ESLOAD= 000035
FAILDF 017426
FAILDL 012122
FAILDZ 012220
FAILM
011602
FBRTM
007203
FIVE = 000045
FLTRDY 006512
FOUR = 000044
FRONT
006412
FIYTPM 004654

FWRDO
013164
FXRDYM 012316
FSAU = 000015
F$AUTO= 000020
F$BGN = 000040
FSCLEA= 000007
F$DU = 000016
FSEND = 000041
FSHARD= 000004
FSHW = 000013
FSINIT= 000006
F$JMP = 000050
F$MOD = 000000
FSMSG = 000011
F$PROT= 000021
FSPWR = 000017
FSRPT = 000012
F$SEG = 000003
F$SOFT= 000005

GPAMSG
GPDMSG
GPD2MS
GPLMSG
GREASE
GTNUM
GSCNTO=

000010
000002
000014
000001
014012

024452
024707
025002
024624
002206
(22744
000200

GSDELM= 000372
G$DISP= 000003
GSEXCP= 000400
GSHILI= 000002
6G$LOLI= 000001
GSNO = 000000
6$07rS= 000400
G¢UFSI= 000376
GSPRMA= 0000C|
GSPRMD= 000002
GS$PRML= 000000
GS$RADA= 000140
GSRADB= 00000LC
GSRADD= 000040
GS$RADL= 000120
GSRADO= 000020
GS$XFER= 000004
G$YES = 000010
HEXA = 000052
HEXB = 000053
HEXC = 000054
HEXD = 000055
HEXE = 000056
HEXF = 000057
HITARG 010060
HOE
= 100C00 G

HRZTLS 002233
HITLSP 002212
IBE
= 010000 G
IDU
= 000040 G
IER
= 020000 G
016514
INFIN
INIERR 014466
INITCD 014274
INITLZ 01552¢
INLOOP 015232
INUPB
010070
ISR
= 000100 G
Ixt
= 004000 6
1$AU = 000041
[$AUTO= 000041
I$CLN = 000041
130U = 000041
{$HRD = 000041
I$INIT= 000041

c 1

SEQ 136

PARAMETER CODING

MACRO v03.01

1$MOD = 000041
1$MSG = 000061
1$PROT= 000040
1$PTAB= 000041
ISPWR = 000041
ISRPT = 000041
1$SEG = 000041
I$SETU= 000041
I$SRV = 000041
1$5UB = 000041
I$TST = 000041
JENDIN 015604
JUNKPL 006440
JSJIMP = 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
021716
LOOPA
LOOPCK 013724
014026
LOOPG
LOOPXN 013656
021440
LOOP8
= 000010 G
LOT
007306
LPR
LPRINI 006442

LSEXPS
LSHARD
LSHIME
LSHPCP
LSHPTP
LSHW
LSICP
LSINIT
LSLADP
LSLAST
LSLOAD
LSLUN
LSMREV
LSNAME
LS$PRIO
LSPROT
LSPRT
LSREPP
LSREV
LSRPT
L$SPC
L$SPCP
LSSPTP
LSSTA
LSTEST
LSTIML
LSUNIT
L1LOOP
L10000
L10001
L10002
L1000&4
L10005
L10006

002066 G
024406 G
002120 G
002016 G
002022 G
002160 6
002104 6
015522 6
002026 G
025234 G
002100 G
002074 G
002050 G
002000 G
002042 6
015514 G
002112 G
002062 G
002010 G
015506 G
002056 6
002020 G
002024 G
002030 G
002114 6
002014 G
002012 G
020424
002170
012614
015512
017452
016600
017454

MxLF = 002000
NDATA
010056
NEWMOD 017754
NEXTU
015550
NINE = 000031
NONDTA 015774
NONDTZ2 016102
NONDT3 016136
NONDZA 016274
NONDZZ2 016402
NONDZ3 016436
NOPRTM 014050
022014
NOTQ
023000
NOT1
NPRMPT 004531
006420
NULL
NUM1 = 000001
NUM10 = 000012
NUM11 = 000013
NUM12 = 000014
NUM13 = 000015
NUM14 = 000016
NUM15 = 000017
NUM2 = 000002
NUM3 = 000003
NUM& = 000004
NUM5 = 000005
NUM6 = 000006
NUM? = 000007
NUM8 = 000010
NUM9 = 000011
021740
NXTA
NXTBIT 015272
NXTERM 015374

PLOOP9 021570
PNT
= 001000 6
PRARCH 022736
PRI
= 002000 G
PRIOO = 000000 G
PRIOT = 000040 G
PRI0O2 = 000100 G
PRIO3 = 000140 G
PRIO4 = 000200 G
PRIOS = 000240 G
PRIO6 = 000300 G
PRIO7? = 000340 6
PRMPTA 003200
PRMPTC 003466
PRMPTD (004046
PRNTIT 017546
PRTBMO 010230
PRTM2
016360
PRTXMO 010302
PSZA4
002322
PSZ11
002325
002330
PS214
RANDOM 014726
007302
RBUF
007276
RCSR
006415
REAR
0022264
RESET
RESETC 014326
RESINN 013414
REVRSP 021304
RIBPOS 002240
RTYTPM 005014
006531
SCA
006527
S(8

002174
SKP11
SKP14
002170
SLFTST 002255
SLTPFF 002276
SNGCHR 006522
SNGLP
024452
SPACE
006541
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
svceBL= 000000
SVCINS= 000001
svcsuB= 000001
SVCTAG= 000001
SVCTST= 000001
S$LSYM= 010000
007310
TCR
TCRENA 006436
TCRTBL 006444
007312
TDR
021634
TESTA
022050
TESTB
022462
TESTC
023360
TESTD

002072 G
010102 6
002052 6
002044 G
016072 G
002102 6
002046 G
002064 G

MAKE11
MANLD
MANLE
MLTLIN
MNEB1
MNEB2
MNEB3
MSGADD

023552
022352
022372
010052
010046
010047
010050
005246

0$SETU= 000CuU
PALPHA 015174
PERIOD 006534
016060
PFM1
PGMCTR 007314
002204
PLOC
017674
PLOOP
PLOOPC 022612

SETHTO 002303
SETONE 017742
SETUPC 016162
SETUPT 014514
015202
SET15
SEVEN = 000047
= 000046
SIx
002172
SKPAL

TITLED
TITLEY!
TITLEZ2
TITLEZ
TITLE4
TITLES
TITLEG
TITLE?

SYMBOL TABLE

LSACP
LSAPT
LSAUT
LSAUTO
LSCCP
LSCLEA
L$CO
LSDEPO
LSDESC
LSDESP
LSDEVP
LSDISP
LSOLY
LSDTP
LSDTYP

LSOUT
LSOVTY
LSEF
LSENVI
LSERRT
LSETP
LSEXP1
LSEXPL

002110 G
002036 G
002070 G
017454 G
002106 G
017456 G
002032 G
002011 G
010150 G
002076 G
002060 6
002124 6
002116 G
002040 6
002034 G

7-NOV-B0 1C0-06:10 PAGE 4&-2

L10007 017466
L10010 017604
L10011 020024
L10012 020272
L10013 020606
L10014 021012
L10015 021156
L10016 021340
L10017 021465
L10020 021632
L10021 022046
L10022 022230
L10023 022734
L10026 024402
L10025 024452

NXTLIN 021250
= 000041
ONE
00335
OPTN1
OUTCTR 006506
OUTRLP 014024
ouTsSDC 006510
ouTSDL 013650
0SAPTS= 000000
0$AU = 000600
0SBGNR= 000000
0$8GNS= 000000
0sou = 000000
OSERRT= (00001
O$GNSW= 00000
0$POIN= 000001

SCC
SCQ
SCX
SCO
SC1
SEEDT1
SEED2
SELECT
SENCHR
SENCH2
SENCLP
SENDR
SENDR2
SETCHO
SETER

006526
006525
006530
006532
006533
006424
0064¢
023636
013366
013376
013416
014140
013320
002310
013614

017470
TEST1
017606
TEST2
020026
TEST3
020274
TEST4
020610
TESTS
021014
TEST6
021160
TEST?
021342
TESTB8
021470
TEST9
021770
TEC2
THREE = 000043
TIMOM 012512
TITLEA 003115
TITLEB 003264
TITLEC 003717

003773
002333
002366
002646
002513
002564
002645
00272

PARAMETER CODING
SYMBOL TABLE

MACRO v03.01

TITLEB
TITLES
TMPLTY1
TMPLTZ

002772
003046
006430
006432

TSGMAN=
T$HILI=
T$LAST=
T$LOLI=

. ABS.

025234

TMPLT3 006434
TOPSTK 010026
TRDYBT 010044
TRNSMT 023614
TRXADD 005250
TRYAGN 014730
TWO0
= 000042
T$ARGC= 000001
T$CODE= 002032
TSERRN= 000000
T$EXCP= 000000
T$FLAG= 000040

000000
ERRORS DETECTED:

000000
000007
000001
000000

T$LSYM= 010000
TSLTNO= 000015
TONEST= 177777
T$SNSO = 000000
TSNS1 = 000004
T$NS2 = 000010
T$PTNU= 000000
T$SAVL= 177777
TSSEGL= 177777
T$SUBN= 000000
T$TAGL= 177777
T$TAGN= 010026

T$TEMP=
T$TEST=
T$TSTM=
1$757S=

T$$AUT=
T$$CLE=
T$$HAR=
T$SHW =
T$$INI=
T$$MSG=
T$$PRO=
T$SRPT=
T$$SRV=
TS$TES=
18
110

000
O

SEQ 137

7-NOv-80 10:06:10 PAGE 4¢-3

001

VIRTUAL MEMORY USED:
20886 WORDS
( 82 PAGES)
DYNAMIC MEMORY AVAILABLE FOR
69 PAGES
MLB CZLQPA.PY
CZLQPA.BIN,CZLQPA.SEQ/C/N:TOC=SV(34R

000000
000015
177777
000001

010006
010007
010025
010000
010004
010001
010003
010002
010005
010024
017470 G
021634 6

TM
T1°PMT
112
113

T2
3
T4
TS5
16
17
78
9
UAM
=
UBTRAP
UCRB =
VRTCLS

022050 G
004346
022462 6
023360 6

017606 6
020026 G
020274 G
020610 G
021014 6
021160 6
021342 G
021470 6
000200 6
016572 6
010000
002226

WAITMX
WAITXN
wr(
WISTPM

XBUF
XCSR
XMIT
XGFF
YON
XSTR
XK$ALWA=
X$FALS=
X$OFFS=
X$TRUE=
ZERO =
$PATCH

(11432
013640
012414
005154

007304
007300
012616
006517
006520
012670
000000
000040
000400
000020
000040
025210 G

PARAMETER CODING
CROSS REFERENCE TABLE
SPATCH
ABORT

43-36#
26-29

ABSND
ACAS

26-426
9-3324

ABSS
ADR
AGN

ALPHA
ASSEMB
ASSMA
AUTCAL
AUTOLD
AUTOLE
BASET

BAUDRT

IBAUTBL

26-33#

26-477

26-4B0

8-24
32-430
14-62
5-7
42-96
38-55
38-61
39-32#

32-63
14-732
§~7
42-101#
38-614
39-314
39-52

9-155#
9-150#

9-293#

26-429
35-41

14-97
37-32
38-54
40-42

14-76
13-67
38-51
40-38
4L1-33
13-984
18-87
8-24
8-24
8-24
888-24
8-2#

BITO8
BITO9
BIT1
BIT1I0
BIT11

8-2
8-2
8-2#
8-2#
8-2#

88-

BIT14

8-204
35-33
Zg-gz

29-21
36-27
14-103

8-2#

20-72

8-24

17-46

BIT12
BIT13

BIT1S

BIT?2

8-24
8-2#

BIT3
BIT4

8-2#
8-24

BIT6

8-2#

BITS

BIT7

BIT8
BIT9
BOE

BR2

(SAU
CSAUTO
($BRK
($8SEG

26-434A

4L1-146

14-648
9-396#
9-400#
9-401#
9-402#4
13-73
8-2#
8-2
8-2
8-2
8-2
8-2
8-2
8-2

8-2

26-48SA

41-41

SETA
BFRA
BFRB
BFRC
BFRD
8IDIRP
BIT0
BITO0
BITO1
81702
BITO3
B1T04
BITOS
BITO6

§I1TO/

20-71

16-41

8-43
8-42

14-94
16-61

29-27
36-33
15-67

37-37

37-50

37-54

15-66
28-35

18-99

37-59

23-52

15-55
18-100

30-30
37-24
16-62

30-36
37-30
16-75

31-28
38-32
18-101

17-56

17-61

26-349

]

8-2#

14-61

15-48

18-56

26-64

9-3154

42-24

42-30

42-42

42-89

42-95

5-74
S5-7#
S-74
S-7#

31-34
38-38
20-80

32-33
41-25
20-92

32-39
41-31
23-46

33-28

33-34

34-24

34-30

35-27

26-80

26-142

26-351

26-4643

26-494

26-186

26-284

26-428

26-479

20-73

26-125

8-24
8-2#
8-24

SEQ 138

MACRO v03.01 7-NOv-80 10:06:10 PAGE S-*
(CREF v01-05 )

26-529

J 1

= RNy RRRRPRRBPBRJPRORRRRER
R R
R
RN

~ SNNNNSNSNSNNNNNSNNW NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNYN

Ommmm\nmmmmmw\nmmm\:\
'
'
L
L
)
'

CSPNTF
C$PNTS
CSPNTX
($Ql0
CSRDBU
CSREFG
CSRESE
CSREVI
CSRFLA
CSRPT
CS$SEFG
C$SPRI
CSSVEC
CSTPRI

($BSUB
CSCEFG
CeCLCK
CSCLEA
C$CLOS
CSCLPY
CSCVEC
CSDCLN
($DODU
CSORPT
Csou
CSEDIT
CSERDF
CSERHR
CSERRO
CSERSF
CSERSO
CSESCA
C$ESEG
C$ESUB
CSETST
CSEXIY
CSGETB
CSGETW
CSGMAN
CSGPHR
CSGPLO
CSGPR1
CEINIT
CSINLP
CSMANI]
CSMFM
CSMSG
CSOPEN
C$PNTB

(LW TV LV LV LV LV, AV TV LV IV IV W TV LV LV SNV [V [V [V, LV LV IV JV LV LV LV LV [V LV [V LV ]V ]

PARAMETER CODING
CROSS REFERENCE TABLE

MACRO v03.01
(CREF Vv01-05 )

26-18

23-78

26-33

26-58

26-88

26-94

26=119

26-150

26-156

26-512

3-??

30-72

31-84

32-65

33-54

34-61

35-50

30-54

37-70

38-63

41-82

42-179

38-51

40-38

41-33

42-24

23-61

23-76

23-82

28-20

29-19

30-28

31-26

32-31

33-26

34-22

35-25

36-25

37-22

26-57

26-87

26-93

26-118

26-149

26-155

26-5M1

16-55

15-69

16-56

23-62

26-19
S=74
5-24

26-22

39-51

61-53«

41-60+

41-61

37-32
26-30
26-523

11-16

40-36

42-21

26-36

26-48#
26-52#
9-317#
9-4384

26-107
26-109
14-88
39-31«

CHKC
CHKCAN

42-31
14-79

L2-42#
14-88%#

42- 30

41-23

24-14

CALLDF
CALLDL
CAN
CCOUNT

CHC?2

SEQ 139

7-NOv=-80 10:06:10 PAGE S-2

42-95#

16 9
319- 0+

K 11

(ROSS REFERENCE TABLE (CREF vO1-05 )
MACRO v03.01

EF.STA
EIGHT

— b OO = SN O S SNV N
QOWN) =00~
— O~ — 000000
»
wWhoRS
BERN

"
1
NU‘O@—‘O‘:J\—'WOWW
]

=d b B
=
BN =B\ =2\

5=7

13=117+«

26-509

26-417
26-5144

26-4615
26-2734

61-164

61-173

41-204

13-218¢

18-136+

21-400

21-47

13-175+

18-140¢

42-103#

26-465
26-3304

5-24
20-87

10-564
10-674
10-78#
10-89#
10-100#
10-1144
10-125#

L%
3=

NONO
NS
-~ OO~

364

EDFMA
EDFM8
EDFMC
EDFMD
EF.CON
EF .NEW
EF .PWR
EF .RES

36-50¢

31-41

13-112

b e

EDFM?7
EDFM8
EDFM9

36-44

26-453
26-466

20-90

G $-3

36-40¢

31-75

26-4154

[
OOOO?OOOO

EDFM6

34-36

16-45

EDFM5

33-47

21-40¢

b e

EDFM4

7-NOV-80 10:06:10 PA

33-46+

32-56
23-78#
23-84n

ed b i

EDFM2
EDFM3

9-3424

POND) =

ESEND
ESLOAD
ECNRB
EDFMO
EDFM1

9-4364

33-40#
30-504

- PN

CLEART
CNTNU
COlE
CONTLO
CONVRT
CR
CRCLX
CRNTPR
CRNTSK
CSRADD
cTL2
DASHES
DCUPA
DDCUPA
DELAYS
DELCNT
DFAIL
DFAULT
DFPTBL
DIAGMC
DIRCTN
DLDFLT
DLSET
DONEDF
DOSPCS
DUMMYS
0ZDCOD
DZDFLT
DZSET

28-32#

CHKN6
CHRCNT
CHRLOG
(HRLOO
CHRLSY

N NNAN

PARAMETER CODING

26-460#

SEQ 140

37-42

39-40

36-51

41-220

61-64

62-106

42-146

0~O~C.7~O~O~

NOPNINONON)

EMPS
EMPT]2
EMPTI3

26-171
26-425#
26-4764

—2ON
S S =
NIO DN~
- ;AN
S
=
=

CROSS REFERENCE TABLE

EIGHTY
EMP4

SEQ 141

MACRO v03.01 7-NOV-80 10:06:10 PAGE S-4
(CREF v01-05 )

PARAMETER CODING

EMPTI4

~N-O0O

T o 0o

20-59+
26-54+
28-35+
35<-27¢

13-94

13-129

13-190

WY
oD
— &~

]

14-106#

2¢ 52"
&~

(¥,]

1
£ 200

[V]

(o
3]

— L NN
N

wmmf})oom
[
"

S NNNROND T

—

-2 QNS00

L2-179

]

& B MM
W= Y S~ = Q0NN

NI ~NOrO
&~

NO =SB NANES VNN
—
o

owu-ac.hu-ammm
1
[
L

& B NN
~n

VAW s O
O 00 WAV
L ] [
L L
NNNS
NN NN N
s
LR
% Y

S IV 1V ]
NNO
UL
0o GO
NY

26-527
5

B NANANN
S

14-84

23-804

EXTMCR

FSHARD
FSHY
FSINIT

¢
26-494

20-954

FS$AU
F$AUTO
F$BGN

FSEND

18-101¢

VIO
W
[ XV Jo - AV4
xR

— -

EXITE
EXITON
EXITS
EXITSR
EXITX

\V,]

EXITI
EXITA

FSCLEA
FS$DU

|I I

N &~ Wt

ESCAPE
EVL
EXETS
EXIT

31-73

41-19

U
~N OO

ERRTYP
ERSETT
ERWORD

]

B NNININ)
=2 =2 PSS NNITOND

ENDIN
J0)
ERMSGB
ERRBLK
ERRMSG
ERRNBR
ERRORS

N0~ N nN
~O
swW o — VOO
~N
» »
» . e » o

EMPTZ3

EMPTYR

EMPTL2

)

EMPTIB

N—200ONOYOOO

WOflOO‘ObOt{J—‘N@U‘M
U
L
wsHrooonoN00
VNIV
N0 = = 2 ONON

N =NININON)
=

EMPTIS

13-222

SEQ 142

MACRO v03.01 7-NOV-80 10:06:10 PAGE S-5
CROSS REFERENCE TABLE (CREF v01-05 )

GPAMSG

N —

—

246-10

=12
5 -8
1 -9

26-10

26-193

27-11

5S- 7

24~ 8

31-4
38-¢

31-B4
3863

26-81

26-135+

26-143

38-51
38-51

43-13
43-13

43-16
43-14

43-15
43-15

38-51

43-13

43-17

(3-14
18-91
26-159

43-15
18-95
26-160

13-139

13-146

co—00
=~

SN
=22~y

30-72
37-70

26-73

32-65

33-54

34-4

20-69
26-455

20-83
26-456

26-90
26-457

13-200

13-207

13-215

33-4

61-82

L2-4

26-402¢

26-487¢

43-17
20-52
26-161

20-61
26-454

13-183

13-194

26-436+

42-179

N=QO
L =20
O NWWVINY
N
[o 2

NU‘N\:‘NN\I

|
|
N =2 (A =2 LN AN N
POV
SNV

NNy =030
N

oo cd =t

'}JO‘O‘O‘O‘\I‘G’
U
N LR

SPNINININI
NN

26-225

NS W SN

RuREakRaRuR
¥
NWOO
R (=2
»n
B
W

A A
-2
222X
3 £ NN OOLNN— g

GSCNTO
GSDELM
GS$DISP
GSEXCP
GSHILI
GSLOLI
GSNO
GSOFFS
GSOFS1
GSPRMA
GSPRMD
GSPRML
GSRADA
GSRADB
GSRADD
GSRADL
GSRADO
GSXFER
GSYES
GETCHR

-—

FOUR

FRONT
FYYTPM
FWRDO
FXRDYM

TTTTTITTTeTyY

FAILOF
FAILDL
FAILDZ
FAILM
FBTM
FIVE
FLTRDY

L
U
[
R B
N
L L
L
= N
VASNSNNNSNNNN NNNNNNNNNNN =N N

FSJMP
F$MOD
FSMSG
F$PROT
FSPWR
FSRPT
FS$SEG
FSSOFT
FSSRV
Fe$suB
FSSW
FSTEST

\.fi\fl\’!\h\fi\.’l\fl\fl\l\\fl\fl\h mmmmmmmmox:nooooomooo

NNNNNNNNNNNN

PARAMETER CODING

38-51

43-14
40-38
18-74

26-506

GPD2MS

GPDMSG
GPLMSG
GREASE

GTNUN

HE XA
HEXB
HEXC
SE.

26-136+

26-437%

26-463

28-26

PARAMETER CODING

MACRO v03.01 7-NOv-80 10:06:10 PAGE S-%
(CREF v01-05 )

30-61

31-53¢

31-65

61=175*

41-177+

41-179¢

41-206+

41-208+

41-210¢

26-527#
27=74
43-194

26-5234

26-74
5-8
11-9#
25-7h

Le-14

42-4
424
30-72
O®
X

26-2294
29-4

[

n®
=»

13-125

9-260
30-39+

£ LNNWNND
N

:\..

B %R BN
R W= BN

1$AU
1$AUTO
ISCLN
1$0U
ISHRD
ISINIY
1$MOD
1SMSG
I$PROY
ISPTAB
I$PWR
ISRPT
IS$SEG
I$SETU
I$SRV
1$SUB
I$T37

HZITLSP

[C VIV TV XV IV IV IV IV IV [V IV JV IV IV IV IV Ve L e Jo Ve Jo Lo 1o ]

HEXD
HEXE
HE XF
H1TARG
HOE
HRZTLS

UL
I
U
N
R
N
DN D
D
D
R
e
A
[
~NN NNNNNNNNNN=NNNNS
VN SNINIRY

CROSS REFERENCE TABLE

SEQ 143

33-44
36-3
38-63#

18E
10U
IER

INFIN
INIERR
INITCD

41-22

INITLZ

INLOOP
INUPB
ISR
I1XE
JSJMP
JENDIN
JUNKPL

LSACP
LSAPT
LSAUT
LSAUTO
L$CCP
LSCLEA
L$CO
LSDEPO
LSDESC
LSDESP
LSDEVP
LSOISP
LSOLY
LSDTP

11-12

26-344
26-286

26-527#
27-74
10-174

6-54

B 12

MACRO V03,01 7-NOV-80 10:06:10 PAGE S-7

PARAMETER CODING

b ¥
Pol
o
Pl ol ol oF 3 PP
u =
L X 3
LE
B R J

9-4454

43-11

63-11

7-9

7-94

SSN

L B

16-11»

26-74
G3-411

25-7#

W PR
(Y

NSO
wWhk®m

Ob-;'flo
L
]

n B

NN
—

LSTEST
LSTIML

(CREF v01-05 )

Po £H W o~

LSRPT
LSSPC
LSSPLP
LSSPTP
LSSTA

Y
Y

N RO

LSREV

L8]

LEDTYP
L$DUT
LSOVTY
LSEF
LSENV]
LSERRT
LSt iP
LSEXP1
LSEXP4
ILSEXPS
LSHARD
LSHIME
LSHPCP
LSHPTP
LSHW
L$ICP
LSINIT
LSLADP
LSLAST
LSLOAD
LSLUN
LSMREV
LSNAME
LSPRIO
LSPROT
LSPRT
LSREPP

|
L
U
U
| LI
L U
P o —bNmmmmm\{\mbm\nmmmmmmmmmmmmmmwmmmmmwmmmmm
U

CROSS REFERENCE TABLE

jelelelslelslalal-lele]

NIRINIRIRON)
— —2 = — = =2

-l
)
el
il
el
el
ol
and
el
—

atatatalatalatatalUnalUs

L10011

3-1

43-19#

SEQ 144

'PARAMETER CODING

CROSS REFERENCE TABLE

(CREF Vv01-05 )

L1LOOP
LCHYET
LF
LINCNT
LINCOD
LINLO6
LINLOO
LINN

31-48#
13-89
9-694
9-634H
26-50
33-384
30-40#
9-406#

31-82
13-924
13-108
32-41t
26-102
33-52
30-62
26-178+

LNELOO
LODELY
LOE
LOGUNI
LOOP8
LOOPA
LOOPCK

13-102#
18-147#
8-24
9-164
35-414
37-32¢
15-49

13-223
18-149

LOOPXN
LOT

15-46#
g8-2#4

LINSIZ

LOOPG

LPR
LPRINI

MAKE11
MANLD
MANLE
MLTLIN

MNEB1
MNEB2
MNEB3
XL

NDATA
NEWMOD

NEXTU

NINE
NONDT2
NONDT3

9-G0BN

16-41#

9-3694
9-275#

42-43
38-58
40-384
9-4224

9-416#
9-4174
9-418#
-

42-55#4
40-364

26-283+

17-47+
17-57+
17-62+
-

29-44W

8-16#
26-85
26-92

26-90#
26-964

26-23

NUM13
NUM14
NUMIS
NUM2

8-364
8-374
8-38#
8-¢5#

8-35#

8-264
8-27#
8-28#

41-69
32-61+

26-180+

31-81

26-174*

26-175

26-27+

26-28

26-30

26-172%

26-461%

26-274

26-65
26-1524
26-158#
26-126
41-156#4
37-58#
40-38
42-169

SEQ 145

S-8

32-62

29-50

30-57

33-47

34-37

34-43

35-37

36-35

26-146

26-227+

15-60

14-64r
14-44

7-NOv-80 10:06:10 PAGE

18-129
32-43
26-1674

16-50

29-40

26-62
26-147
26-154
26-123
16-494
41-150
37-51
9-137#
9-260#
8-24#4
8-33¢4
8-34#

NUM3
NUM4
NUMS

26-26%
35-48
37-47
15-58#

26-40+

NONDTA
NONDZ2
NONDZ3
NONDZA
NOPRTM
NOT1
NOTQ
NPRMPT
NULL
NUM1
NUM10
NUM11

NUAM12

13-102

9-427#

26-445

MACRO v03.01

26-286*
26-362+

26-338+
26-363

26-363¢

31-53
31-55
31-57

32-46
33-48
32-50

41-166
41-168
41-170

41-175
41-177
41-179

41-206
41-208
41-210

41-222
41-224
41-226

42-106
42-108
42-110

42-148
42-150
42-152

26-48+

26-52+

26-55

26-72+

26-84

26-111r

26-116

26-134*

4(-53

26-468

26-486*

26-31

26=71#
26-1334

42-170

&2-172

26-496

26-419

26-435¢

PARAMETER CODING

OSAPTS
0$AU
O0$BGNR
0$BGNS
0$0U
OSERRT
OSGNSW
O$POIN
0$SETU
ONE
OPTN1
OUTCTR

b e

OUTRLP
ouTSDC

OUTSDL

AN =N

— OO N

PALPHA
PERIOD
PFM1
PGMCTR
PLOC
PLOOP

5=214
43-41

5-24

29-37

29-42

39-43

16-52+

16-54

16-58

15-62+

15-63

18-50+
26-44

23-49x
26-105

23-61
26-168

26-273

26-361

26-415¢

26-4665+

26-337+
26=-¢74

26~
26~

26-482
26-349+

3L E

5-24

UL
I

SFQ 146

S-9

L X

26-36

O
=2 O N NN
O
O N = WL 0D £~ 0N

=764
9-784
9-75#4
19-384
9-3674
9-365#
9-2594
9-474

26-1494

mNbb?NNNU‘
[I |

O &S NN
AN
L] s
LR

ors

)
~

7-NOV-80 10:06:10 PAGE

41-1354

RANDOAM
RBUF
RCSR
REAR
RESET

PRMPT(
PRMPTD
PRNTIT
PRTBMO
PRTM2
PRTXMO
PSZIN
PS214
PSZAL

PRMPTA

PeleYeN et TelVeLVe ]V, 1o Yo Jo Yo Jo Jo oo 0o

PR100
PRIO1
PR102
PRIO3
PRI0&
PRIOS
PR106
PRI107

NN NN AOND
_.:sN.:a_o_aNN
»

PLOOP9

PLOOPC
PNT
PRARCH
PRI

owmoom?mmmmmmmmmbwww

NXTA
NXTBIT
NXTERM
NXTLIN

NN NV

NUM6
NUM?7
NUMB
NUM9

(CREF v01-05 )

[]
U
LI R
O
L
e I
Iy )
[
I
)
|
[0 JU IV TV IV T, - BEERVe Yo W
SV, VIV T, N1,81 N1, ST, S1,8 ],V 1,61 ,8 1,8 VO ~NON
NN =2O00N
ONfMNOANE
=2
0000 OO~ —~N
»
=~
=
=
»> * W
=
[o ]

CROSS REFERENCE TABLE

MACRO v03.01

5-24

]
LS AN
]
&5 =00

13162

13-165

13-181

42-133

42-169+

42-170+

42-172+

42-173

42-59+

42-611

42-64

SN NP

»n =

& NN
N
O

26-32
28-34
14-104
9-59#
9-42#8
9-60#
5-7#
5-24

13-159

14-65
16-674
13-170
20-92#
38-45
14-92
38-40
29-412
26-104n
18-1044
42-101
42-92
4L2-98
28-21

42-72¢
30-38+
43-18¢4
13-210
31-46+
28-29
20-53
13-119
18-112¢
42-34+

26-36#
28-38¢4
18-102

20-43
18-118¢
5-13#4
5-24
5-24

13-2134
14-1034

42-1281

]

9-628
9-322#4
43-16
9-3344
9-4048
20-494
9-72#
9-54#
9-58#
9-55#
9-614

13-156

4£0-38
63-19#

13-198

Pl alF o

STATUS
STCHSZ
STHTCT
STLNSZ
STPGS?Z
STRTUP
STSCAL
STSERR
STSPSZ
- STSRES
STULMD
SVCGBL

14-488
16-42
13-106
20-88
9-66#
14-89
9-65#
29-38
26-45
18-97
8-144
8-13#
9-9#
9-74
-84
9-564

14-86
13-109

33-542

31-844
38-51#

42=24Ln

(219810)

SENCLP
SENDR
SENDR2
SET1S
SETCHO
SETER
SETHTO
SETONE
SETUPC
SETUP]
SEVEN
SIX
SKP11
SKP14
SKPA&
SLFTIST
SLTPFF
SNGCHR
SNGLP
SPACE
SPCSIZ
STATS

13-192

7=-174
35-504
40-38
18-92
30-38
29-30
42-30
42-42
37-50
31-36
19-45
19-46

SCo
SC1
SCA
SCB
SCC
sca
SCX
SEED1
SEED2
SELECT
SENCH2
SENCHR

S5-7#
34614
40-38
9-329#
9-330#
9-328#
9-3264
9-325#4
9-324#4
9-327#
9-2628
9-2634
42-70#
14-44@
13-86

18-62#
14-59
34-52
18-105+
42-139

SSLSYM

18-57
14-47#
34-468
9-52#
9-1414

el [ 1%
]

RESETC
RESINN
REVRSP
RIBPOS
RIYTPM

SEQ 147

7-NOvV-80 10:06:10 PAGE S-'0

AN NN

CODING

CROSS REFERENCE TABLE

MACRO v03.01
(CREF v01-05 )

PARAMETER

13-187

——ONWNOIUNANININOIN0TIOTNIOQOe=NSOVN~OMNOMNMeEOOV—§BBBBBBBBei
0o000Ol]0o0aN0l0DoNlPAPoOlVARPPoRlNBMMOIIaROWlOaOlNNR3oNTlDNVaFlTRolOAUUIONIaMMIlNMDIaVl—MRvvoDR=lrvrO—olOOORDoRNTWOYOTONVOYODoOoNDTO0QVVRT0OVOOTRVDOQRWOV0OYOD0VVYODqOODVORYVOoOVTONoOCVT0DoQORDOONVEIORoOOOoOIVVOOTDVOoROVOI-33Ra2VIOROOMQNMMMTRQDVNMVMMINMVONgDMMNMVMNMelDeTTTNlNNNNk<Do2l000NTM[O0ONkD~T~NOOOOIO0VDANNRNRNDUNVNNVINVDNNNNVNANVN2NN[

Nao0l0o0LAlY0oaUPlAMoa0YNlNOaoRDlOOOoaINRBlDaoYTlO.WoaN3loalTOTNOoIIlOOVMNIaoIOlMMVoaMD—=lvYo¥lOONaoTN1lYONoV=T]1NVOWoYVo(DMNVYONTo—OVoVNT(OOVNoVTNOToVOWQTYO—NoVWVOQTYTvNoVTOO—NVoOTYOvVo0WoVYOOVoVSNOYNoV0YOTOooWVoVNMO0TOoTQWoONOYVWYVYOTOoVWoTQOoVVNWVIoTYaOOVNaoTSNVOTg2PJVoIVTNQYOMVToaEV[QTONaONIVoTpIVQMTaIOVoTgVMao]OOVNoTVMaOYIgNVaTWMoe1leNoNNla1N3s4aLlS=R0—l10YNLV——O]RV,OVOXV,OORV,NNNYVoVoNYVVNoNCYIVNaNlIVOaNIYVAaNVYI"NaNWlIVO[INVaNIl
ONAVMgOOO NNIV
O—O0OOO~NONN— ITIIFII

OO e —
PARAMETER (ODING

CROSS REFERENCE
TABLE
MACRO v03.01
(CREF v01-C5 )

9-445
10-11

7-NOV-80 '0:06:10 PAGE

10-17

ONO0NOVTMN—WA0VNMIN —-MO LsaATVoNSE1¥knNiQIYlatdVT —eTONVBA4IVIWOD~NOM0—MINMOE eNONTOB—2NItMV~NOMYeE IOe—TNWNBA4WNTOCNNNO~NFNOLNONMONMAMO DNTRIB[|ANO(VMTAIe=—WLMNVUJOI0 aIVTNgoQE¥EWSLdYl}ToVVNO0ANTOASMNV~AONIM—0rM—NO0o(YNWJDIUNveM—=OUIV—BMONIN0WeIOs4=A—WMVWNAEVN~TININOI
NO—WO

24-8
25-7
26-7
26-225
26-527

MWeO [eYNoXVJa¥VoY

27-7
43-11

OrONMe—O
OCOVMe—O

F
12

S$-'1

SEQ 148

63-41
63-461
43-41

6 12
PARAMETER

CODING

MACRO v03,01

(CREF v01-05 )

7-NOv-80 10:06:10 PAGE

S-'2

LaBt At T EX X SX g1 L XSS R S gt g ¢

AWWOOO — e — IO MM M MY

TSSSRV
TSSTES

26-225#
28-5#4

24-84

35-5#
5-24
5-244
23-61
26-57

26-1498

5=-74

24-14

23-61#
26-57
26-155
30-28#

ANMRMYWA ON=M

TSERRN

24-10
26-229
28-41
35-50
5-24
5-240

N-O

MeN]Lo~l "PL(-Ma=~]l -M—~L-~o.—l

" AT D MmN

11-94
25-7#4

TSARGC

FOWNAR—WMO-~FO— MMM—

O—MOOMMPM
N N <7~Fe—

27-7#

TSSPRO
TSSRPT

43-11
7-9
26-7#

TESHW
T$SINI
TSSMSG

JOFT¢U—MNM eF—OMANOMPM

" M.

TSSHAR

MMM O
— F ~FMM
— O OOM

TSSAUT
TSSCLE

I
I T IITTT
MMIIIIIT

NMOr—MIN

’

WO O — e— ONOVOIM M M MNP

ao-—-N-—-— —OMJTMNMNIMM—

CROSS REFERENCE TABLE

SEQ 149

H 12
PARAMETER CODING

(ROSS REFERENCE TABLE

SEQ 150

MACRO V03,01 7-NCV-80 10:06:10 PAGE S-'3
(CREF v01-05 )

N WNOMNO—MNAS—M — OO

OO =00
O MNOOIr— OO O~ ONANONMMAMA

— P e e — — |l Llol N

]

L3
»n

®r

«N

1 12
MACRO v03.01
(CREF v01-05 )

PARAMETER CODING

CROSS REFERENCE TABLE
NN LYWW
= LN

256-287+
26-358+

QOO W= WOV

=000 0OV —0O

LI I
I
I
]
U
|
UL
UL
L
WO WNO OO NS NONIIANININIPINI
WA
2 OO

20-70

20-6¢

N
~N
W
L 3

32-48¢

]

—_
o
O

WVOWVWES

26-351+

26-2274

VOO
=N

L
\V IV IV ]

e
i ad
s d L
N
AN
b
—

—

b B P ANAN N AN AN N AN LN N RO N — (NN

MNIND =
b
b

WAL TMX
WAl TXN
wF(
WISTPM

¢
26-34"

26-346

b s
b
~N

UAM
UBTRAP
UCRB
VRTCLS

POND

TOPSTK
TRDYBTY
TRNSMT
TRXADD
TRYAGN
TWO

SEQ 151

S-'4

31-40

J
N—'OO@OO?OOOO‘OO‘O‘

(WL
IV 1,81, ]

OOOOO?OOOOO

TMPLTZ2
TMPLT3

7-NOV-80 10:06:10 PAGE

42-112

32-50¢

42-1480

32-52

42-150¢

168+
154

41-170¢

41-181

61-222+

61-224+

L1-226+

41-228

42-106+

J 12
PARAMETER CODING
CROSS REFERENCE TABLE
XSALWA
XSFALS

5-7#
5-7#

X$TRUE
XBUF

5-7#
9-3684

XMITY

13-584
28-24
31-72
37-29
61-75
62-115

XSOFFS
XCSR

XOFF
XGN
XSTR

IERO

5-7#

L3-16

9-3664

14-64

9-3184
9-3194
13-83¢

8-7#

30-65

SEQ 152

MACRO v03,01 7-NOv-80 10:06:10 PAGE S-'5
(CREF Vv01-05 )

63-16
14-69+

18-65
29-26
31-77
37-44
L1-76
42-121
14-78

26-281+
26-279+*

18-72
29-33
32-38
37-63
61-77
42-136

26-346+
26-334+

18-109
29-46
32-54
38-37
4L1-78
42-142

18-116
29-55
32-58
38-43
41-79
42-157

14-75
13-93

15-51

18-96

28-33

39-33

9-258

L0-46

9-259

9-258

18-122
30-35
33-33
38-48
41-80
42-164

18-127
30-46
33-43
39-36
41-184
42-176

18-132
30-53
34-29
39-47
41-190

13-186

18-79

18-83

18-134

31-33
34-48

41-30
41-215

18-88

18-105

26-79
31-38
35-32

26-442
31-61
36-32

61-73%

41-67
41-231

18-112

18-118

26-493
31-67
36-47

42-80

41-74
42-86

29-39

30-39

K 12

PARAMETER CODING

CROSS REFERENCE TABLE

MACRO v03.01 7-NOvV-8C 10:06:10 PAGE M-*
(CREF v01-05 )

BCOMPL
BERROR
BGNAU
BGNAUT
BGNCLN
8GNDU
BGNHRD

1-15#
1-19#
1-23#
1-31#
1-39#
1=474
1-55#

S-74
=74
S=74
S=74
5-74
5~74
5-74

63-1

BGNINI
BGNMOD

1-77#
1-85#

S=74
=78

26-7
5-8

‘}-%363

5-7#
5-74
5-74#
5-74
5-74
5-7#4
5-7#
5-74
5-74

25-7

BGNTST

1-1064
1-114#
1-1444
1-152#
1-1614
1-1824
1-193#
1-2014
1-2254

S-74

28-5

29-4

BNCOMP
BNERRO
BREAK
BRESET

1-2664#
1-270#
1=2748
1-278#

5-74
5-74
5-74
5-74

26-23

26-31

BGNHW

BGNMSG

BGNPRO
BGNPTA
BGNRPT
BGNSEG
BGNSET
BGNSFT
BGNSRV
BGNSUB
BGNSW

1-66#

1-98#

5=-74
5=-74

CKLOOP
CLOCK
CLOSE
CLRVEC
COMMEN
DELAY
DESCRI
DEVIYP
DISPAT
DISPLA

1-2864
1-29268
1-296#
1-301#
1-3220
1-3174
1-3414
1-3464
1-360#

5-7#4
S5-74
5-74
5-7#
5-7#
5-74
5-7#
5-74
5-7#
5-7#

DOOU
DORPY
ENDAU
ENDAUT
ENDCLN
ENDCOM
ENDDU

1-3804
1-3854
1-3894
1-4014
1-4134
1-4254
1=4410

5-7#4
5-74
5-7#4
5-7#
5-74
5-7#
5-74

DOCLN

ENDHRD
ENDHW
ENDINI
ENDMOD
ENDMSG
ENDPRO
ENDPTA
ENDRPT
ENDSEG
ENDSET
ENDSFT
ENDSRV

1-282¢

1-3768

1-4534
1-4654
1-4754
1-4B78#
1-5004
1-512#4
1-520#
1-529#
1-5414
1-5554
1-5684
1-5804

5-74

5-7#
5-74
5-7#
5-74
5-7#
5-7#
5-7#
5-7#
5-74
5-7#
5-7#
5-7#

SEQ 153

26-20
26=527
27-7

7-9

11-9

24-8

26-225

30-8

31-4

32-3

33-4

34-4

35-5

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

43-19
7-17
26-523
441
11-16
25-13
24-14

26-229

26-33

37-2

38-4

41-4

L 12
CROSS REFERENCE TABLE

MACRO v03.01 7-NOV-80 10:06:10 PAGE M-2
(CREF v01-05 )

29-58

31-84

32-65

33-54

34-61

35-50

36-54

37-70

—Mt —e"M MD|=OO~IM) NNWLAV N=P"8ORN N«] RT[~} Mo[M—

) o] VO1 OVONUL NN[ | OO0| ] O] VN[ [LUlL

- w M Ne—Me—N N e O M e oy—

[IA|

30-72

38-63

41-82

» uM w

PARAMETER CODING

SEQ 154

«"»

m12
PARAMETER CODING

MACRO v03.01

CROSS REFERENCE TABLE (CREF v01-05 )

7-NOvV-8C 10:06:10 PAGE M-3

IR N N - e RN t 00

1155555595704713777431555555065555555660‘6333465666666780

TT T LPT T D T L eT L T b

%R
un

SEQ 155

N 12
MACRO v03.01

CROSS REFERENCE TABLE (CREF v01-05 )

26-2250

26-527

5-84
26-5274

5-8

SEQ 156

7-NOV-80 10:06:10 PAGE M-4

%R =n

PARAMETER CODING

24-84
29-4n

25-74
30-84#

26-78
31-648

B '3
PARAMETER

CODING

SEQ 157

7-NOV-80 10:06:10 PAGE M-S

b
d

-3

M$TSTL

l MSWORD

)

VWV O~ OO ITNONOMNNOOONMsAOrr (JO-T

MSTLAB

— MO O O 7 I A 7= N 0 O NGO ~F M O O VB0 e LN B0 v— O O SO M

MS$STAR
M$SVC

am MOVOTO OMOOVO-TOONIM

"9" S'

CROSS REFERENCE TABLE

MACRO v03.01
(CREF v01-05 )

s,
.

€13
PARAMETER CODING
CROSS REFERENCE TABLE
MEXFER

1-3824

S5-7#

MEMORY
OPEN
POINTE
PRINTB
PRINTF
PRINIS
PRINTX
READBU
READEF

1=-,66#
1=:714
1=-;764
1-<394
37-22
1-<79%4
1=-=19#
1==594
1-=99%#
1->03#

S5-74
S
S-7#
S-7#
38-30
S5-7#
5-7#
S-7#
S-7#
S5-7#

SLASH

1=>248

S-74

MANUAL

RFLAGS
SETPRI
SETVEC

1-;624

1=->08#4
1=>13#
1->184

STARS

1=->38#4

XFERF

1-3164

sv(
XFER

XFERT

1->5284
1-128

1-a20#

5-7#

S-7»
S-7#
S-7#

S5-7#

MACRO v03.01
(CREF v01-05 0
43-16

L3-164

5-21
23-61
40-36
26-57

23-76
41-23
26-87

23-82
42-21
¢6-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-114#

26-36

S-64
S-7#

5=7
11-120

5-7#4

43-16

S5-7#

SEQ 158

7-NOV-80 10.06:10 PAGE M-¢

24-108

32-31

33-26

34-22

35-25

36-25