Digital PDFs

AH-E150A-MC

April 1978

99 pages

Original

48MB

view download

OCR Version

63MB

view download

Document:	CZLAIA0 LA00-LA34 LA00 DMT PROGRAM DEC 1978 bw
Order Number:	AH-E150A-MC
Revision:	000
Pages:	99
Original Filename:	CZLAIA0__LA00-LA34__LA00_DMT_PROGRAM__AH-E150A-MC__DEC_1978_gray.pdf

OCR Text

LAOO/LA3A

&iidTM

L. e

_ FICHE1 OF1

MADE IN USA

IDENTIFICATION
Product code:

AC-E149A-M(

Product name:

CZLAIAO

Date created:

APRIL 1978

LAQOO DMT PROG

Maintainer

Diagnostic Engineering

Author

Ralph A.

The information in this

Schauber

document

subject

change

without notice and should not be construed as a commitment
by Digital Equipment Corporation.
Digital Equipment
C(orporation assumes no responsibility for any errors that may
appear in this document.
The software described in this document is furnished under

a_ Llicense and may only be used or copied in accordance
with the terms of such license.

Digital Equipment Corporation

assumes

for
the use
or reliability of
that is not supplied by Digital.

responsibility

its software on equipment

SEQ 0001

PAGE 2

TABLE OF CONTENTS
1.0

S
ABSTRACT
1.1 Functional Description
1.2 Intended Users

2.0

REQUIREMENTS
NN

2.1 Equipment
.2 Related Programs
.3 Terminal Configuration

WWWE

5.0

Execution time

TROL AND TEST SELECTION

4.0

OADING AND INITIALIZATION
.1 Starting Addresses
.2 Modifications to Program

£80

3.0

Switch Register Control
Console Control
4.2.1 Commands

TEST GROUPS

5.1

Terminal

tests

5.2 Intervention tests
5.3 Exercisors
6.0

TEST DESCRIPTIONS
6.1
Test00
Data Paths Test
6.2
TestOl
Printable Characters Test
6.3
Test02
Nonprintable Characters Test
6.4
Test03
Dot Matrix Test
6.5
Test04
Horizontal Pitch Test
6.6 Test05
Space Backspace Test
6.7
Test06
Set Margins Test
6.8
Test07
Horizontal Tabs Test
6.9 Test10
Multiple Line Feed Test
6.10 Test11
Horizontal Motion Test
6.11 Test12
Buffer Overrun Test

6.12
6.13
6.14
6.15
6.16
6.17
6.18
6.19

Test13
Test14
Test15
Test16
Test17
Test20
Test?21
Test22

vertical Pitch Test
Bell Test
Life Test
.
Dynamic Exercisor
Interface speeds test
Keyboard Echo Test
Character Code Echo Test
Pitch Setup Test

SEQ 0002

PAGE 3

1.0

ABSTRACT

This program is a functional test of the LAOO terminal.
It
can test up to 40 terminals at a time, interfaced through a
DZ11-A/E asyncroncus multiplexers.
This program was designed
to test all of the functional characteristics of the LAOO ter-

minal

in a DMT or PMT enviornment.

1.1 Functional Description

This program consists of a test selection and control section,
a console terminal driver section, multi unit DZ11 driver section, and twenty two functional tests.
The tests are of three
types, printer function tests, manual intervention tests, and
exercisors.

1.2 Intended Users

This program was designed to test every
functional
characteristic of the LADO terminal, and as such will be used for
design maturity testing.
The operator will have the option
of
running the program in a non-intervention mode, thus allowing
the program to be used in a PMT enviornment.
The
tests were

not written to F.S.

or FART requirements, and the use of this

program in those areas is not recommended.

2.0

REQUIREMENTS

2.1 Equipment
This program will require a PDP-11

processor, with 16K of mem-

ory.
For each eight terminals to be tested a DZ11-A,E is required along with one H317-E distribution pannel for each sixteen terminals under test.
A hardware switch register is supported, but is not required.
If program control is to be via
console terminal then a terminal and interface at the standard
address & vector are required.

SEQ 0003

PAGE 4

2.2 Related programs.

This program will perform cursorary testing of the DZ11 interface, and should not be considered a valid test of anything
other than the LAOO terminal. PDP=11 processor and memor‘ diagnostic programs, along with DZ11 diagnostic programs should
be run periodicly to insure correct operation of the system.
Other LAOO Diagnostic programs:
CZLAIA-Q this program
CZLAJA-Q LAOO FAET Program
CZLA??-0 LAOO FS Diagnostic
2.3 Terminal Configuration

This progsam requires that all terminals to be tested be set
up for 300
baud, 1 stop bit, 0dd parity, and XON-XOFF enabled.
Enter setup mode and type an 8 to get a printout of the current switch settings.
If not correct change the switches then
verify again using the 8 key again.
These switches are located on the PC board directly under the keyboard assy.

SEQ 0004

F
1
PAGE 5

3.0 LOADING PROCEDURE AND INITIALIZATION

Load the LAOO diagnostic program tape following normal procedures.
If a hardware switch register does not exist, the program will use the contents of location 000176 as the value of
the switches. Therefore, be sure to load location 000176 with
the s:itch value before starting the program when not wusing
switches.

3.1 Starting addresses

There are two starting addresses for this program.
Starting
location 000200 will put the testing under switch register
at
control.
Starting at location 000204 will put
the program

under console control.

3.2 Modifications to program.

There are a number of common data storage locations which may
be modified by the operator to compensate for non standard
configurations, and different CPU types.
For DZ11's not at the standard addresses or vectors the
locations named dzaddr and dzvect can be changed accordingly prior
to starting the program.

Location locpc contains a time constant and is
initially set
for a PDP-11/20 processor.
This time constant is not critical, but large variations from those listed in the table will
result

1nefficient

operation.

1is

better to have a

longer time constant than one too short because the routines
that use the timeout feature will abort the timeout when the
required input is recieved.
Those tests that
require manual
intervention will not function correctly if the timeout is too
fast

for operator response times.

This table is duplicated in the Listing.

loopc:

000314

;time constant for11/20

;set
:set
:set
:set

to 202
to 251
to 554
to 755

for
for
for
for

11/03
11/10
11/40
11/45,

11/60

‘set to 1237 for 11/45, 11770
:set to 2127 for 11/45 bip,

11/55

SEQ 0005

3.3 Execution time

At 300 baud and excluding manual_intervention tests this
gram should take approximately 13 min.

pro-

4.0 Control and test selection

There are two means of controlling the execution of this
program:

via the

console switch register, or via the console terminal.

It gherprogram is started at location 200 and no hardware
switc

re;ister exists the program will use the contents of location
176 as the switches

4.1

Switch register control

The various switches and their
functions
are
Llisted below.
switches may be changed and set as desired except as noted in

the specific switch

descriptions.

Refer

to the

detailed

switch descriptions for further, more complete information.
Switch number

Description

1(up)
0(down)

Halt on error
Continue after error report

1(up)
O(down)

= Loop on test if error detected
= Continue testing

1(up)
= Inhibit error reports
O(down) = Print error reports

1(up)
O(down)

1(up)
= Get test no.
from sws 4
O(down) = Use default test #0

1(up)
= pmt mode minimum manual intervention
O(down) = dmt mode intervention required

8
4~

1(up)

= Run individual test
= Run tests in sequence

= Run 1 pass of test sequence then halt

O(down) = Keep running test or sequence

Test number selection

SEQ 0006

-4

PAGE 6

PAGE 7

4.1.1 Switch 15
Placing switch 15 down will cause the program to

)
continue

on errors durin? an{ of the i/0 tests. With switch 15 up,
the program will halt (at errhlt) on any error during the
i/0

tests with the location of the error in RO.

continue will cause the program to continue if

pressin

switch

is down (loop on error).
With switch 12 up, pressing continue will cause the program to Loop on the failing test.

4.1.2 Switch 14

)

Placing switch 14 up will cause the program to ‘‘loop on
test'' 1f an error is detected in that test.
Error reports
Looping
will be typed unless inhibited (switch 13 wup).
will occur automaticly, without operator intervention, and
will and will continue until the error ceases to happe, or
the switch is placed down or =0. 4.1.2 Switch 14
Placing switch 14 up will cause the program to ‘‘loop on
test'' 1f an error is detected in that test.
Error reports
will be typed unless inhibited (switch 13 wup).
Looping
will occur automaticly, without operator intervention, and
will continue until the error ceases
to happen,
or
the
switch is placed down or =0.

4.1.3 Switch 13
Placing switch 13 up will

inhibit the printing

of all

error reports. Can be used in conjunction with

switch

14 to lcop in errors for troubleshooting.

4.1.4 Switch 12

Placing switch 12 up will cause the program to loop in the

current,

selected

test.

If switch 8 is up the test

will halt at the end of the test.
Pressing continue will
cause the test to be started over again.
Placing switch
12 down will cause the next sequential

test to be executed

. |.unle‘s;s the test is an intervention test and PMT mode is

selected.

4.1.5 Switch 11
Not used.
4.1.6 Switch 10
)
Placing switch 10 up will cause the

program

use

the

contents of
switches 4
thru 0 as the test number.
If
switch 12_is up this is the test
that
will
be run,
if
switch 12
is down the sequence of tests to be run will
start with this test.

4.1.7 Switch 9

Putting switch 9 up at the start of testing will
inhibit
manual intervention tests , and use a fixed set of parame-

ters as lListed in the description of each test.

SEQ 0007

4.1.8 Switch 8

)

With switch 8 down the program will loop on

the

selected

tion of the current test, or test sequence.
tinue will result in the program restarting
sequence depending on switch 12.

Pressing conthe test or

test or test sequence as selected by switch 12. Placing
switch 8 up will cause the program to halt at the comple=

4.1.9 Switches 4 to 0

tests when
Switches 4 to 0 are used to select specific
Test numbers are always in
under switch register control.
octal, from 00

6.2 Keyboard control

22.

)

Switches on the console switch register will have
when under terminal control except for switch 13.
The program will print the following :

respond

PMT mode

by typing eithera 'D'

(no manual

intervention).

The program will print
READY
commands from the keyboard.

MODE

effect
D

for DMT mode, or a 'P'

for

on the console, then wait for

The following commands will be recognized
EOIruno

ENTER

to run a selected test.
to sequence thru tests.
to Loop on error.
to halt on error.

to clear the H & L commands

to set the '‘width'’' control

The period (.) is a terminator used in conjunction with the R
and S commands
to specify a single pass.
That is to stop
after running a test, or to stop after running a sequence of
tests.

SEQ 0008

PAGE 8

PAGE 9

To abort operations and return to the WAIT state at any time
type a CTL=C.
The program will respond with READY and wait
for command input.

Enter one command per (ine, followed by

return.

flicting commands are entered the last entry will be used.

con=

To exit '‘command mode'' type an escape.
The program will
type
READY
and begin execution of the commands.
C(ommands can

be entered at any time, but new tests will not start until the
escape character is recieved.
txamples of commands

R12

run test 12

R23.

run test 23 then halt

sequence all tests then halt

S2e7

sequence all tests starting with test 27

w100

set width to 100 (octal) columns
( 204=132 colm, 120=80 colm )

If a test is selected that is an operator
intervention test,
and PMT mode is selected the following will be typed:
RUN
INTERVENTION TEST ?
answer Y or N.
If Y is typea the test
w;ll be run.
If N is typed a new test number will be requeste

The R,S,H,L.W, and C may be either upper or

lower

case,

but

the test number must always be a 2 digit octal number.
The
command, test number, and terminator are echoed by
the pro-

gram,
thus each character will be printed twice if the terminal is in half duplex.
If an error is detected
in
the
test
selection (illegal
test number or command character) a question mark is printed and the message will be repeated.
READY

SEQ 0009

PAGE

5.0 test

groups

5.1 Terminal

tests

5.2 Intervention tests

The tests 17 thru 24 require manual intervention. these

tests are not run in PMT

mode (see description of sw

9 4.1.7, and console control startup 4.2).
5.3 Exercisors

Tests 15 and 16 are designed as exercisors, and can be run for
extended periods to 'burn in'’' the units under test.
5.4 Test assignments

Tests listed as DMT will not be executed in
PMT mode. See description of switch 9
4.1.7 .
Test00

LAOO
LAOO
LAOO
LAQOO

Data paths test
ALl printable characters test
Non printable characters test
Printhead dot matrix test

LAOO
LAOO
LAOO

Set margins test
Horizontal tabs test
Multiple Line feed test

Test15

LAQOO
LAOO
LAOO
LAOO

Buffer overrun test
Vertical pitch test
Bell test
Life test

Test17
Test20
Test21
Test22

DMT
DMT
DMT
DMT

TestO1
Test02

Test03

Test04
Test05
Test06
Test07
Test10
Test11l
Test12
Test13
Test14
Test16

6.0.

LAOO
LAOO

LAOO

Horizontal pitch test
Space-backspace test

Horizontal motion test

Printer dynamic exercisor

Interface speeds test
Keyboard echo test
Character code echo test.
Pitch setup test

Test description

6.1 Data paths test00

SEQ 0010

PAGE 11

This test will print four lines of alternating

tern.

Example

:
*UrUrUrUrUrUsUrU.,
..
UrUrUrUsUrUsUrUx,
|
*UrUsUrUrUrUsUrl,
..
UrUrUrUsUrUsUxUx,
.,

*U U

is a confidence test of the internal data

and reciever logic.

pat-

bus,

estimated time at 300 baud 18 seconds.

.
)
6.2 AlLL printable characters testO1
This test will print each of the printable characters in
g;oups of four, seperated by two spaces.
The groups will
printed in order, and the number of groups per
Line
will be dependent on the 'width'' set at the start of the
diagnostic.
(default 132 colm)
Example :
AAAA

EEEE
3333
ZAX%X

BBBB

CCCC

GGGG
FFFF
4444
5555
Q0ad 2 ++++

DDDD

HHHH
6666
17”

estimated time at 300 baud 30 sec

6.3 Non printable characters test(?2
This test checks all non-printable characters.
In
this
test all non-printable character codes are transmitted,
fol lowed by the words:
‘NON-PRINTING CHARACTER TEST.THE
NEXT LINE SHOULD BE BLANK.

If any characters appear on the next Line an error exists.
The following codes are transmitted :

000
020
023
026
031
035
177

NUL
DLE
DC3
SYN
EM
GS
DEL

002
021
024
027
032
036
021

STX
006
DC1
022
DC4
025
ETB
030
SuB
034
RS
037
DC1(XON)

ACK
DC2
NAK
CAN
FS
us

estimated time at 300 baud 5 seconds

6.4 Dot matrix test03

SEQ 0011

PAGE 12

This test will print the five characters ZH*#$ , then
print
four Lines of data that will create black boxes by
Ten boxes
overprinting the same five characters as above.
spacdifferent
at
lines
four
will apgear on each of the
ings.
This test will amplify any
weak or
intermittant
head wire problems.
The boxes should appear an even dark
black, with no dots missing or Lite streaks.

estimated time at 300 baud 10 seconds

6.5 h ~izontal pitch test04
.
This test will print five groups of Llines at each

the

horizontal pitch settings. Each group of lines will consist of first a Line stating the current pitch settings,
then a Line of the characters A thru Z.
This_is done for
horizontal pitch settings of 10 CPI, 12 CPI, 13.2 CPI, and
16.5 CPI.
The setup for this test is down line loaded.

estimated time at 300 baud 30 seconds

6.6 Space-Backspace test05

A Line of alternating slashes and spaces is printed across

the page.
The program will then backspace through the
line and overprint
the slashes with backslashes.
Two
lines are printed for each pass of the test.
The pattern
produced is a Line of alternating X's and spaces.
The two
shashes should cross exactly in the middle creating the X
character.

example

X X X X X X X X XXX XXXXXXXXXXXXX

estimated time at 300 baud 45 seconds

SEQ 0012

6.7 Set margins test06

.
)
This test will set 4 pairs of left and r|ght margins, then
it
wilt
print a Lline of '='s that should
be within those

will be sent specifying an error
margins. Also a message
it
it's not at the left margin.
A reference Line will be
printed showing the margin Limits being set up.
ALl horizontal pitch settings will be tested.
example

ERROR IF NOT AT LH MARGIN

estimated time at 300 baud 40 seconds

6.8 horizontal

tabs test(07

this test will print a reference Line composed of a number
of periods
followed by a 'V'.
This pattern is repeated
across the page.
The location of each V will mark the lo-

cation of a tab stop set
by the program.
Three Lines will
then be printed under this reference Line, composed of a

horizontal tab followed by an I, repeated across the page.
The 1's should Line up directly under the
reference
Line
V's.
Example

:
------------

This will

be repeated for a variety of different

tab

settings. The number
of tabs per Line will be controled
by the ‘width'' specified at the start of the diagnostic.

estimated time at 300 baud, 132 col = 2 min

SEQ 0013

PAGE 13

6.9

Multiple Line feed test10
.
i
This test will print a reference lLine of dashes then sg1g
N Llines and print the no.
of lines skipped along wit

is done
some dashes for visual reference. Each skip count
Vertical pitch will be 6 Lines per
gw‘ge for N = 1 to 7.

EXAMPLE

estimated time at 300 baud 15 seconds

6.10 Horizontal motion test1]
This test will exercise
the head positioning Llogic
by
printing a_
Lline of H's at random column locations within
the Line.
The head will be positioned u51ng spaces, backspaces,
and carriage returns
followed
by spaces.
The
number of columns printed is controled by the
‘width'
as
set at the start of the program.
ALl H's should be evenly
spaced, with no overprints.

estimated time at
300 baud 4 min

6.11 Buffer overrun test1?2

This test will force the terminal to
send
an_ XOFF
char
(023)
by
issueing a
series of time consumeing movement

commands, followed by enough characters to fill the buffer
past it's 118 character Limit.
When the terminal has emptied the buffer to the 10 character
level
it should
transmit an XON character (021) allowiq? the host to finish sending data.
Any terminal that fails to send the XON
will be considered to be ''dead’’ , and will be deselected
or set

inactive.

estimated time at 300 baud 10 seconds.

SEQ 0014

PAGE 14

6.12 Vvertical pitch test13
:
This test will print six lines at each of the vertical
pitch settings:
2,3,4,6,8 and 12 lines per inch.
The
line printed will be a message that Lists the current (PI
?ndd 5Pl
settings.
The setup for this test is down line
oaded.

estimated time at 300 baud 40 seconds
6.13 Bell testlé
This test checks the printer bell

insure

that

x
eight

bells are distinctly heard, even when sent at the maximum
transfer rate.
The program sends 8 bell codes at the maximum rate to the printer then waits 2.5 seconds to allow
the operator to hear the bells.

estimated time 1 second

6.14 LAOO Life testl15
:
Ordinarily this test simply prints a Line of 'A's.
when this test is looped on,

it prints two Lines

each

rintable
character.
When all printable characters have
en done, they will simply be repeated.
The current pass

number
1is printed on each line, with a 1 column offset on
each new li..e.The number of characters per
Lline will
be
determined by the 'width'' as selected at program startup.
example

01
CCCC 01 ccccccecccccceccccccecccc..
CCCCC 01 cccecceccccccccccccecccce..

estimated time 1

Line 300 baud 5 seconds

SEQ 0015

C 2
PAGE 15

6.15 LAOO dynamic exercisor test16
1
This test will
print 35 Llines of mixed
format data.
A
be created which is comprised of the upper
pattern will
and lower case character set glus eight of the special

symbols.

This pattern will

be in the form of a 10'"

by 6"

matrix, where the upper left corner will have the greatest
character density and the lower right corner will have the
lowest density.
ALl possable combinations of horizontal
and vertical pitch will be used.

estimated time at 300 baud 2.5 min.
intervention tests

no time estimates given

6.16_interface baud rates test17

This test will request that the operator change the

on all terminals to 110 baud.
transmit a message to all terminals
identifing

the

current

speed

The program will then
at
this baud rate,

speed, then by use of the escape

sequence
ESC [Oc
the terminal ID message will be sent
from each
terminal
to
the PDP-11
to
verify
correct
transmission and reception b50 the terminal.
This same
procedure is repeated
for 300
baud.
because of intervention no time estimate is given

6.17 Keyboard echo test20
This test will require the operator to type all the grinting keys on the keyboard.
If any keys are not seen by the
host they will be requested again , and a
third
time
if
necessary.
Instructions witLl then be typed to press the
tab, return, and other non printing keys.
five seconds is
allowed per key delay.

6.18 Character code echo test21

This test will print the octal code of

along with the ascii character.

any

key

pressed,

Where the character is a

non printable code the mnemonic
of
that
code
will
be
printed.
The delete
char will be echoed as a mnemonic,
then the test will be done.

SEQ 0016

PAGE 16

PAGE 17

6.19 Pitch setup test?2?

this test will require the operator to change the terminal
After each setup change the
setup to that requested.

PDP-11 will send a Line of data that should conform to the

params setup.
The data sent after vertical pitch changes
inch
will be a number of short Lines that should span 1
verticaly.
That is eignt lines after the change to 8 LPI
etc.

SEQ 0017

SEQ 0018

CONTENTS

1300
3-17100
3-22100

11200
12- 7800

100
3031-15800
32200

100

MACRO M1110

20-APR-78 04:21

DMT/PMT PROGRAM FOR LAOO TERMINAL
COMMON DATA STORAGE
START POINT FOR PROGRAM
TEST SEQUENCE
TESTS

TABLE

CONSOLE DRIVER ROUTINES
ERROR HANDLER
DZ11 DRIVER ROUTINES
SYSTEM MESSAGES

SEQ 0019

WTM

CZLAIAO LAOO DMT PROG

TABLE OF

CZLAIAO LAOO DMT PROG

MACRO M1110

20-APR-78 04:21

100

200
300

LTITLE
.SBTTL

400 000000
500
600

CZLAIAQ LAOO DMT PROG
DMT/PMT PROGRAM FOR LAOO TERMINAL

;SOME DEF INITIONS

388
1000
1100
1200
1300
1400

000060
000064
000000
000200
000340

DLRVEC=60
DLTVEC=64 PRI10=C00000
PRI14=200
PRI7=340

1600
1700
1800
1900
2000
2100
2200
2300
2400
2500
2600
2700
2800
2900
3000
g}gg

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

BITO=1
BIT1=2
BIT2=4
BIT3=10
BIT4=20
BIT5=40
BIT6=100
BIT7=200
BIT8=400
BIT9=1000
BIT10=2000
BIT11=4000
BIT12=10000
B1713=20000
BIT14=40000
BIT15=100000

:'iz(())g

000005

DZCON=5.

1500

3500 000000

9700

9800
9900 000000
10000
10100 000004

000012
000020

10200
10300 000024

10400
10500 000041
10600 000042
10700 000044
10800 000046

10900 000050
Hggg 000052

11800

SEQ 0020

.ENABL ABS
.ENABLE AMA
LLIST MC,ME

700

PAGE 1

11900
12000 000200
12100 000204

;MAX NO. OF DZ11'S

THIS COMPILE

LASECT

000000
000002
000004
000006
000000
000022
000024

001220
000041
000
000000
001000
003634

000000
000016
000000
000000

020000

000200
000137
000137

.=0

000000

001220
001242

000012
000000

.=4
TRAP4:

.WORD

2,0

.WORD

6,0,12,0,16,0,22.0

.=24
PFAIL:
.WORD
.=41
ACTDVC: .BYTE
.WORD
WORD
WORD
WORD
WORD

.=200

JMP
JMP

;START OF TRAP CATCHER AREA

START,PRIO

O
0
APTHDR
EOP

;ACT11
;ACT11
;APT11
sJACT11

20000

;ACT11 MANUAL MODE ONLY

START
KSTART

LOAD MEDIUM
MODE O IS MANUAL MODE
HEADER BLOCK ADDRESS
END OF PASS HOOK ROUTINE

CZLAIAO LAOO DMT PROG

MACRO M1110

DMT/PMT PROGRAM FOR LAOO TERMINAL

12500

001000

20-APR-78 04:21

PAGE 2

SEQ 0021

.=1000
.EVEN

;TOP OF STACK AREA
; APT PARAMETER BLOCK

£ £8588:3

12900

14700 001032

e
§8884588s

14800
14900

APTHDR:

.WORD
.WORD
.WORD
.WORD
.WORD

.WORD

0
SMAIL
240.
800.
10.

sHIGH ORDER ADDRESS BITS
;ADDRESS OF APT MAILBOX
;TIME FOR LONGEST TEST 4 MIN.
;TIME FOR QUICK PASS
;TIME FOR EACH ADDITIONAL DVC

SETEND-SMAIL/2

sJLENGTH OF MAILBOX + ETABLE

;APT MAILBOX AREA

000000

SMAIL:
.WORD
$FATAL: .WORD
$TSTNO: .WORD
$PASNO: .WORD
$DEVCT: .WORD
.WORD
SUNIT:
$MSGAD: .WORD
.WORD
$MSGL:

000000
000000
000000
000000
000000
000000
000000
000000

;MESSAGE TYPE CODE
;FATAL ERROR NO.
;TEST NUMBER
;PASS NUMBER
:DEVICE COUNT
;UNIT NO. UNDER TEST
MESSAGE ADDRESS (WORD BOUNDRY)
;MESSAGE LENGTH (IN WORDS)

;APT ENVIORNMENT TABLE

001034
001035
001036
001040
001042
001044
001046
001050

000
000
000000
000000
000000
000000
000000
000000

16100 001056
16200 001060
16300 001062
16400 001064
16500 001066
16600 001070
16700 001072
16800 001074
16900

000000
000000
000000
000000
000000
000000
000000

SETABL:

.BYTE
BYTE
$SWREG: .WORD
.WORD
$CPU:
.WORD
SMEMAD: .WORD
SMEMAR: .WORD
S$MEMA2: .WORD
SMEMR2: .WORD
SMEMA3: .WORD
SMEMR3: .WORD
SMEMA4: .WORD
SMEMR4: .WORD
$VECT1: .WORD
S$VECT2: .WORD
$BASE:
.WORD
$DEVM:
.WORD
$ETEND:

0
O
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

;0= STAND ALONE, 1=AUTOMATIC MODE
;CONTROL BITS
:APT SWITCH REG:ISTER
;USER SWITCHES
:CPU TYPE AND OPTIONS

:MEM TYPE & HIGH ORDER BITS
;MEMORY ADDRESS- HIGH

:VECTOR #1, AND PRIORITY
;VECTOR #2, AND PRIORITY
:BASE ADDRESS OF DEVICES
:DEVICE MAP
sJEND: OF ETABLE

CZLAIAO LAOO DMT PROG

COMMON DATA STORAGE
17100
17200 001074
17300 001076
17400 001100
17500 001102
17600 001104
17700 001106
17800 001110
17900 001112

18000 001114
18100 001116
18200 001120
18300 001122
18400 001124

18500 001126
18600 001130
18700 001132
18800 001134
18900 001136
19000 001140
19100 001142
19200
19300
19400
19500
19600
19700

20200 001154
20300 001156
20400 001160
20500 001162
20600 001164
20700 001166
20800 001170
20900 001172
21000 001174
21100 001176

21700 001212
21800 001214
21900 001216
22000
22100
22200

160000
000300
000000
000000
000000
000000
000000
000000

000000
000000
000001
177570
000000

000000
000000
000000
000000
000000
000000
000314

000000
000000
000000
000000
000000
000000
000000
000204
000000
000000

000000
000000
000000

MACRO M1110

20-APR-78 04:21

PAGE 3

.SBTTL
DZADDR:
DZVECT:
DXTMP:
MSGTYP:
MSGADR:
SENDTM:
ERROR:
SEQ:

SEQ 0022

CUQ‘% DATA STORAGE

1600
000300
000000

000000
000000
000000
000000

000000
TEST:
000000
000000
SO:
SRCONT: 000001

177570
SWR:
PASSNO: 000000

ANTMPO: 000000
: 000000
ANTMP1
PZ
ANTM : 000000
TEMP:
000000
NOTYET: 090000
:
HOOK
000000
LOOPC:

000314

LOOPI:
LOOPO:
TSTMP:
NUML IN:

000000
000000

;ADDRESS OF 1ST DZ11
;ADDRESS OF 1ST DZ11 VECTOR
;TEMP STORAGE FOR DZ XMIT INTERRUPT ROUTINE

;ERROR SWITCH

;HOLDS TEST TABLE POINTER
:POINTER TO CURRENT TEST
sTHIS IS THE SIMULATED SWITCH REGISTER
:THIS IS THE SWITCH REGISTER CONTROL SWITCH
:POINTER TO SWITCH REG, OR SOFT SR

;THIS IS THE PROGRAM PASS NUMBER

;TIME CONSTANT FOR 11/20
;SET TO 202 FOR 11/03
;SET TO 251 FOR 11/10
;SET TO 554 FOR 11/40
;SET TO 755 FOR 11745, 11/60
;SET TO 1237 FOR 11/45, 11/70
;SET TO 2127 FOR 11/45 BIP, 11/55

UUT:

000000
000000
000000
000000
000000
000000
000000
000000
000000
132.
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

.SBTTL

START POINT FOR PROGRAM

COM1:
coM2:

WORK1 :

WORK?2:
3:
WORK

CHARIN:
WIDTH:
:
MODE
PMODE
:
RCTMP:
DZNUM:
ONL INE:
PNTR:
TMPTST:
TSTTYP:

;SET TO 120 FOR 80 COLM
;DZ TRANSMIT MODE
;PMT MODE FLAG

sNO. OF DZ'S ACTUALLY ON SYSTEM
;LINE NO. UNDER TEST
;CONSOLE BUFFER POINTER
;CONSOLE ROUTINE TEMP FLAGS
;TEST DESCRIPTION DATA

;# OF UNITS UNDER TEST

CZLAIAO LAQOO DMT PROG

START POINT FOR PROGRAM

100 001220

200 001224
300 001232
288 001236

012706

052737
004737
000137

MACRO M1110
001000

100000
003754
001342

20-APR-78 04:21

001120

1700 001320

1800 001326
001326
001332
1900 001336
2000

MOV

BIS
JSR
JMP

SEQ 0023
#1000, SP

#BIT15,SRCONT
PC,SWRTST

:SETUP STACK POINTER

:SET SWITCH CONTROL

INIT

:START HERE IF IN CONSOLE CONTROL

?88
800 001242
900 001246
1000 001252
1100 001260
1200 001266
1300 001274
1400 001302
1500 001310
1600 001314

START:

PAGE 4

012706
004737
012737
012737
012737
012737
012737
005037
005037
012737

012705
004737
000137

001000
003754
017234
000200
000066
000200
000101
001210
001120

020326

000060
000062
000064
000066
177560
001206

KSTART: MOV
JSR
MOV
MOV
MOV
MOV
MOV
CLR
CLR

MOV

SEND C
MOV
JSR
JMP

034442
020304
001342

#1000, SP
PC,SWRTST
#TTYIN, 3460
#PRIL,aN62

#66,64

#PRI4,aN66
#101,a#177560
TMPTST
SRCONT
#TKBUF ,PNTR

#MSGOO

#MSGO0, RS
PC, CSEND
INIT

SINIT THE STACK
:INIT CONSOLE VECTOR AREAS
*COMMANDS HAVE PRIORITY
:TURN ON THE CONSOLE
:INPUT BUFFER POINTER

*SEND TEST ID

:GET MESSAGE ADDRESS
:SEND MESSAGE

2100

2200
2300
2400 001342
2500 001344

2600 001350
2700 001356
2800 001362
2900 001366
3000 001370
3100 001374
gggg 001400

000240
005037
012737
013700
005037
005710
005237
062700
000772

3400 001402
3500 001410
3600 001414
3700 001416
3800 001420
3900 001422
4000 001426
4100 001432
4200 001434

012737
005737
001002
000000
000776
012706
013701
006301
006301

4300 001436
4400 001440
4500 001444

4600 001446
4700 001452
4800 001456
4900 001462
5000 001466
5100 001474
5200 001500
5300 001504

5400 001510
5500 001514

006301
010137
005000

012702
010260
010260
010260
062760
005060
005060
005060

005060
005060

001216
001402
001074
001202

000004

1%:

001202
000010
000006
001202

:HERE WE INI T THE DZ11 ROUTINES
INIT:
NOP
uuT
CLR

000004

001000
001202

2%:

3%:

024306
024546

#2%, TRAPS

MOV
TST
BNE
HALT
BR
MOV
MOV
ASL
ASL
ASL
MOV
CLR

001152

020746
025126
025246
025366
000050
025006
024166
024666

MOV
MOV
CLR
TST
INC
ADD
BR

4%:

025366

MOV
MOV
MOV
MOV
ADD
CLR
CLR
CLR

CLR
CLR

:SU TRAP CATCHER

DZADDR,RO

“GET FIRST DZ ADDRESS

DZNUM
flo,no

:DZ PRESENT ?
“YES COUNT IT
*POINT TO NEXT ADDRESS

#6, TRAP4

:FIX TRAP CATCHER

DZNUM
(RO)

%énun
:

#1000, SP
gguun.n1
R1

SANY DZ2'S ?

:NO- NOTHING TO TEST

:CLEAR THE STACK POINTER

“GET DZ COUNT

:8 LINES PER DZ

:6.NUML1~

*SAVE TOTAL NO OF LINES

#DZCOMB,R2
R2,COMIN(RO)
R2. COMOUT (R0)
R2 . COMEND (R0)

:START OF COMMAND BUFFERS

#50,COMEND(RO)
COMCNT (RO)
CURREP (R0)
CURADD (R0)
CURTER(RO)
STOP(RO)

;END IS 20 WORDS AWAY

CZLAIAO LAOO DMT PROG

START POINT FOR PROGRAM

MACRO M1110

5600 001520

012760

000145

5800 001532

062702

000050

6000 001540

001344

5700 001526
5900 001536

6100

062700
005301

000002

6500 001546
6600 001552
6700 001556
6800 001562
6900 001564
7000 001570
7100 001572
7200 001576
7300 001602

012702
012703
013705
013704
010225
012725
010325
012725
062703
062702

7600 001612

000240

7400 001606
7500 001610

005304
001364

020626

PAGE 4-1

032330
032246
001076
001202
000240

000240
000012
000012

SEQ 0024

MOV

#145,DZLINE(RO) ;INIT TO

ADD

#50,R2

ADD
DEC

BNE

6200

6300
6400 001542

20-APR-78 04:21

#2,R0O
R1

300 BAUD ODD PARITY

sNEW BUF=0LD BUF + 20.

;SETUP VECTORS FOR INTERRUPTS
INIT1: MOV
#DZRINT ,R2

1$:

MOV
MOV
MOV
MOV
MOV
MOV
MOV
ADD
ADD
DEC
BNE

NOP

#DZTINT ,R3
DZVECT RS
DZNUM R4
R2,(R5)+
#2460, (R5)
+
R3,(R5)+
#2460, (R5) +
#12,R3
#12,R2
R4
1%

sFIRST VECTOR ADDRESS
;SETUP A COUNT FOR DZS
;SETUP RECIEVE INT VECTOR
sAND ITS PRIORITY
;SETUP TRANSMIT VECTOR
JAND ITS PRIORITY
;SET POINTER TO NEXT INT SERVICE ROUTINE
2SU NEXT RX INT SVC ROUTINE
sNEXT LINE PLEASE
;IF THERE IS ONE

CZLAIAO LAOO DMT PROG

START POINT FOR PROGRAM

013701
012702

MACRO M1110

20-APR-78 04:21

PAGE 5

sINIT DZ11 RECIEVE
NUML IN,R1
INIT2: TMoV

001152
026446

1$:

025626

025746

MOV
CLR
CLR
MOV
MOV
MOV
MOV
ADD
ADD

#KBBUF .R2
RO
KBCNT (RO)
R2,KBBUFB(RO)
I (R0)
R2 .KBBUF
0 (R0)
R2 .KBBUF
R2.KBBUFE (RO)
#16,KBBUFE (RO)
#2 RO

DEC
BNE

R1
18

ADD

001074

10500
10600

SOONN

.
G
S
[

NNV

8388 83888

1%:

000020
000010

013701
012702
012703
010322
006 303
022703

025506
000001

1$:

28:

000400

INITS:

NONON
NP

1760

12400 002010
12500 002014
12600
002016
12700 002022

13100 002040
13200
13300 002044
13400

002044
031546
012720
000002

1$:

28:

012730
000002
001202
000006
002046

MOV
MOV
MOV
MOV
ADD
DEC
BNE

;GET # OF LINES

;SETUP FIRST KEYBOARD BUFFERhASEAQOATDRESS
;ZERO CHAR COUNT
;DEFINE BEGINING OF BUFFER
sINIT PUT IN POINTER
;AND TAKE OUT POINTER

;DEFINE END OF BUFFER
;AS 16 BYTES PAST BEGINING
sNEXT LINE PLEASE
JBUFFER AREAS ARE 20 BYTES LONG EACH
;ANY MORE TO SETUP?
;YES. DO SO

#DZCSR,R1
DZADDR ,R2
R2,(R1)+
#20, (R2)
#10.R2
RO
1%

;COUNT OF DZS
;SETUP ADDRESS OF TABLE
;SETUP ADDRESS OF 1ST (SR
sPUT A CSR ADDRESS INTO THE TABLE
;CLEAR THE DZ
;CSRS ARE 4 WORDS APPART
sANY MORE TO DO?
;YES. DO EM.

:INITIALIZE TABLE OF TCR BITS
DZNUM,R1
INIT4: MmOV
MOV
#TCRBIT,R2

001202

1756
NNN

TR 3888838338

— e

)

10700 001726
10800 001732
0900 001736
001742

#20,R2

:INIT DZ11 CSR REGISTER TABLE
INIT3:
MmOV
DZNUM,
RO

001202
031546

10100 001722
10200 001724
10300
10400

SEQ 0025

000004
5%:

MOV

#1.R3

BNE

MOV
ASL
CMP
BNE
DEC
CLR
CLR
MOV
MOV
MOV
MOV
INC
CMP
BNE
ADD
INC
CMP
BNE
MOV
JMP
HALT

R3. (R2) +
R3
#400,R3
28
R1
RO
R3
#58, TRAPS
DZCSR(RO)
,R1
#12720,R2

R2,2(R1)
R2
#12730.R2
2%
#2.RO
R3
DZNUM,R3
1%
#6 ., TRAP4
INIT6

;LOAD LPR REG
;DONE ALL LINES ?

;DZLPR TRAPPED (16XXX2)

CZLAIAO LACO DMT PROG

START POINT FOR PROGRAM
13600
13700 002046
13800 002050
13900 002054
146000 002060
14100 002066
14200 002072
14300 002100
14400 002104
14500 002112
14600 002120

MACRO M1110

20-APR-78 04:21

PAGE 6

RO
DZNUM,R1

INIT6:

005000
0}3701

DZCSR(RO)
,R2

1%:

#5$ TRAPS

Z 27&
—

88 28
N

#40140, (R2)

;SCAN-EN,RX INT EN,TX INT EN >>CSR

#377,4(R2)

;ENABLE ALL LINES TX >> T(R

#377.5(R2)

;SET DTR ALL LINES >> TCR+1

#8$, TRAPS
#2,R0
R1

002140
002142
002144
002152

8383 §2s :

D i
D
— o

16900
17000

sRING=CARRIER REG.

#7%, TRAPS

14800 002134

16100 002172
16200 002174
16300
16400 002200
16500 002202
16600 002206
16700 002210
16800 002214

6(R2)

#6$, TRAPS

14700 002126
14900
15000
15100
5200

SEQ 0026

000004

002202

000000
000137
000000
000137

000000
005737
001002
000137
000137

002202
002202
001120

001242
001220

;TRAPPED FROM 16XXX6 RING/CARRIER

5%:
6%:

7%:

108

8%:

HALT

11%:

BNE
JMP
JMP

108:

TST

SRCONT
11%
KSTART
START

; TRAPPED FROM 16XXX0

CSR

;TRAPPED FROM 16XXX4

TXMIT CTL

;TRAPPED FROM 16XXX5

DTR

—

E———

CZLAIAO LAOO DMT PROG

START POINT FOR PROGRAM

MACRO M1110

20-APR-78 04:21

PAGE 7

SEQ 0027

;TEST SEQUENCER SUBROUTINE

17200
17300
17400
17500

;

17600 002220

17700 002224
17800 002232

18100 002256
18200 002260
18300 002264
18400 002272
18500 002300
002300

002304

012706
012737

001000
020326

012705
005037
004737
004737
005737

034442
001174

18900 002326

002326
002332

19000 002336
19100 002340

#TKBUF ,PNTR

;SET STACK AT 1000
JINIT TTY BUFFER POINTER

MOV

#MSGO0,RS

;BUILD SEND CALL USING MESSAGE ADDRESS

MOV

012705
004737

042113
020304

012705
004737

042164
020304

SP
#1000,

SENDALL #MSGOO

CLR
JSR
JSR

4$:

000060
000062

042125
020304
034166

INITIALIZATION

MOV

TST

012705

000001
000776

ISEQ:

001206

BEQ

012737

18600 002310
18700 002314

TEST SEQUENCE

JMP
MOV
MOV
SENDC
MOV

LSEQ
#SEQMS
, a#60
#PRIO,aN62
#MSGK2
#MSGK2 ,RS

SENDC

#MSGK1

JSR
SENDC

PC,CSEND
#MSGK4

JSR
JSR
WAIT

SEQ8:

MOV

MOV
WSEQ:

MODE
PC, SEND
PC,SCAN
SRCONT
4$

JSR

WAIT

PC,CSEND
PC.QUIET

#MSGK1,RS

#MSGK4 ,RS
PC,CSEND

;SEND TEST I.D.

;NOW SEND THE MESSAGE
;SIZE FOR TERMINALS
sSWITCH CONTROL ?
; YES=JUMP

;SU TTI RECV INTR VECTOR

;PRI
0
;PRI

;PMT MODE MSG.
;GET MESSAGE ADDRESS
;SEND MESSAGE
;SEND 'READY''
:GET MESSAGE ADDRESS
;SEND MESSAGE

;"ENTER COMMANDS''

:GET MESSAGE ADDRESS
;SEND MESSAGE

.-2

: MODE ANSWER AND TTY VECTOR SETUP
19500 002342
19600 002350

19700 002356

19800 002364
19900 002366
20000 002374
20100 002376
20200 002402
20300 002410
20400 002416
20500 002422
00

20700 002440
20800 002446
20900

113777
142777
122777

117737

012705
004737
012737
000002

177562

000240
000120

176636
176630
176622

100000

001176

001176
017234
000340
001160
176560

001160
020304
000101

000060
000062

SEQMS:

a#177562.aPNTR
#240,aPNTR
#'P,aPNTR

BIS

#81T15,PMODE

CLR

PMODE

BNE
2%:

3$:

MOV
MOV

CLR
MOVB
SENDC

001160

177560

MOVB
BICB
CMPB

#TTYIN, 460
#PRI7, 3462

WORK
aPNTR,WORK
#WORK

MOV

#WORK ,RS

MOV

#101,34177560

JSR

4%:

RTI

PC,CSEND

;GET INPUT ANSWER
;STRIP PARITY & LC
;PMT MODE ?
sNO- JUMP
;YES= FLAG IT
;DMT MODE
sSET TTY IN VECTOR

;PRIORITY 7

;ECHO THE CHARACTER
:GET MESSAGE ADDRESS
E
MESSAG
:SEND
ACTIVE
;CONSOLE

CZLAIAO LAQO DMT PROG

START POINT FOR PROGRAM

MACRO M1110

20-APR-78 04:21

5}588

PAGE 8

SEQ 0028

sINITIAL TEST STARTUP SEQUENCE

21300 002450
21400 002454
21500 002456
21600 002462
21700 002470
21800 002472

005737
001471
004737
032737
001452
004737

22000 002502
22100 002504
22200 002510

001433
004737
004737

21900 002476

22300 002514

22400 002520
22500 002522
22600 002526
22700 002534

22800 002536

005737

001402
000137
032737
001412

001120

003302

TST
BEQ
JSR
BIT
BEQ
JSR

SRCONT
20%
PC,GETSWS
#81710,S0
13%
PC,VALID

sSWITCH CONTROL ?
sNO-JUMP TO 20
;READ SWITCH REG.
sTEST NO. IN SWS ?
;NO- GOTO 13
;CHECK VALIDITY

003356
003460

8EQ
JSR
JSR

10%
PC,GETTST
PC,MODCON

;NO GOOD GOTO 10
;TEST ADDR & INFO
;MODE CONFLICT ?

002730
010000

BEQ
JMP
BIT
BEQ

3%
40%
#BI1T12,S0
5%

;YES- GOTO 3
;OK= GO START TEST
: SEQUENCE TESTS ?
;YES GOTO 5

004036
002000

001116

1$:

001214

TST

001214

005037

001214

012705

002552
23000 002556
23100 002562
g%%gg 002566

22900 002542
002542

LSEQ:

TST

001116

2%:
3%:
4%:

CLR

042336

SENDALL #MSGSZ
MoV
#MSGS2 RS

;ERROR MODE CONFLICT #wxxw
;BUILD SEND CALL USING MESSAGE ADDRESS

004737
000137
105237
000137

031700
002730
001116
002462

JSR
JMP
INCB
JMP

;NOW SEND THE MESSAGE

23400 002572
002572

012705

042300

002602

004737

ggg% 002612

23800 002616
23900 002622
24000 002626
%2;88 002634

002546

002576

23500 002606

005037

001174

CLR

5%:

031700

JSR

;NOW SEND THE MESSAGE

000137

002730

JMP

40%

105037
004737
012737
000137

001116
003356
000001
002730

CLRB
JSR
MOV
JMP

SO
PC,GETTST
#1,G0
40%

005037

001174
001214

13%:
001214

004737
004737

24800 002654
24900 002656
25000 002662
25100 002666
25200 002672
25300 002676
25400 002700
002700

001402
000137
004737
042705
122705
001411

25600 002716
25700 002722
25800 002730
25900 002734

CLR

MODE

CLR

PC,SEND

:SU FOR TEST 0
;TEST ADDR & INFO

; CONSOLE CONTROL SECTION

24500 002640
24600 002644

002704
25500 00271C

s TRY NEXT TEST

ERROR INVALID TEST NO. *##xx
;BUILD SEND CALL USING MESSAGE ADDRESS

524388

24700 002650

PC,SEND
40%
SO
1%

SENDALL #MSGS1
MoV
#MSGS1,R5

005037

108:

MODE

005737

012705

004737
012737

000137
112737
005737
001405

003356
003460

208 :

001214

218%:
25%:

042113
002730
000001
001214

PC.GETTST
PC.,MODCON

;GET TEST ADDR & INFO
sMODE CONFLICT ?

BEQ
JMP
JSR
BIC
CMPB
BEQ
SENDC
MOV

25%
40%
PC,ANYWAY
#240,RS5
#'Y,R5
27%
#MSGK1
#MSGK1,R5

;YES- GOTO 25
;GO START TEST
;RUN ANYWAY ?

TST

002730
004104
000240
000121

020304
177777

JSR
JSR

001214

27%:
408$:

JSR
MOV
JMP
MOVB
TST
BEQ

PC,CSEND
#-1,G0
40%
#1,G0
G0
43%

;YES GOTO 27
;SEND 'READY"’
;GET MESSAGE ADDRESS

:SEND MESSAGE
;GO BACK TO WAIT

CZLAIAO LAQO DMT PROG

START POINT FOR PROGRAM
26000 002736
26100 002740
26200 002744
26300 002750
26400

100002
000137
000137
000137

MACRO M1110

002336
002754
002450

20-APR-78 04:21

41%:
42%:
43%:

PAGE 8-1

BPL
JMP
JMP
JMP

SEQ 0029
42%
WSEQ
RSEQ
LSEQ

sWAIT FOR NEW COMMANDS
sSTART TESTING
sGET NEW TEST DATA FROM SWS

CZLAIAO LAOO DMT PROG

START POINT FOR PROGRAM
26600
26700
26800

26900 002754
27000 002760
27100 002764
27200 002766
002766
002772
002776
27300 003002
27400 003006
27500 003012

MACRO M1110

004737
005737
001474

033000
001216

012705
005037
004737
004777
004737
005277
004737
005737

037154
001174
031700
176106
034166
176074
003510
001120

RSEQ:

SEQ 0030

001160
001160

100000

001176

007377

001160

001160
007377

001160

010000
000400

001116
001116

1%:

2%:

#MSG75,RS5
MODE
PC,SEND

:BUILD SEND CALL USING MESSAGE ADDRESS

JSR
TST

PC,EOPT
SRCONT

;REPORT PASS DONE
;SWITCH CONTROL ?

001116

6%:

91%:

10%:
177777

11%:

001124
003634
000400

15%:
001116

16%:

:NO- GO TO §

PMODE

BIS

WORK
, SO

BIC

1%
521715.%05

#007377 ,WORK
WORK
, SO

#BIT12,S0

BIT

#8178,S0

BEQ
BEQ

:CHECK SWITCH REG FOR CHANGES

:LOOK AT BITS 15,14,13, &8

WORK
#007377 ,WORK

BIT

10%

;YES= JUMP TO 10

;END OF TEST HALT ?

JNO JUMP

SRCONT

;SEQUENCE TESTS ?

;SWITCH CONTROL ?

;NO JUMP
Z D F TEST . cosceandienesnembiaasne

BEQ
HALT

JMP
JMP

SEQ8
RSEQ

SENDC
MOV
;juS\ET

#MSGK6
#MSGK6 RS
PC,CSEND

JNO TERMINALS SELECTED !'!!
;GET MESSAGE ADDRESS
;SEND MESSAGE

JMP
INCB
JSR
CMP

ISEQ
SO
PC,GETTST
TEST A-1

;POINT TO NEXT TEST
:GET TEST ADDR & INFO
:END OF TABLE ?

JSR
TST

PC,MODCON
GO

BEQ

002754

CLR

TST

8%:
9%:

:GO DO TEST >=>=d>=d=d=d>=d=>=>
JWAIT TILL DONE
;PASS COUNT +1

aSWR
, WORK
#B1T9,WORK

BIC

:NOW SEND THE MESSAGE

PC,aTEST
PC,QUIET
aSEQ

MOV
BIT

COM
BIC

5%:

042244
020304

001120

MOV
CLR
JSR

BEQ
g}I‘S

001116

002316
002754

002220
001116
003356
001114

;RESET THE TERMINALS
;ANY TERMINALS TO TEST ?

BEQ

001120

012705
004737
000000
000137

PC,RESETO
uuTt

JSR
JSR
INC

176066
001000

001160

JSR
TST

91%
BEQ
SENDALL #MSG75

003460
001214

31700 003256

PAGE 9

sTEST RUN & POST RUN CONTROL

001176
28700 003076
28800 003102
28900 003110
29000 003116
29100 003124
29200 003126
29300 003134
29400 003136
29500 003142
29600 003144
29700 003146
29800 003152
29900
30000 003156
003156
003162
30100 003166
30200 003170

20-APR-78 04:21

15%

;GET NEW CONTROL INFO
:RESTART TEST

JYES= JUMP

:CHECK MODE

JMP

108

RSEQ

;BAD= TRY NEXT TEST

INC
JSR
BIT

PASSNO
PC ,EOP
#B178,S0

;PASS NUMBER +1
:REPORT PASS COMPLETE
:END OF PASS HALT ?

TST

SRCONT

:SWITCH CONTROL ?

BEQ

BEQ
BEQ

19%

17%

;0K GO DO NEXT TEST

;NO= JUMP
;NO JUMP

31800 003260

31900 003262
32100 003266

32200 003272
32300 003276

32400
32500
32600 003302

32700 003306
32800 003312

32900 003314
33000 003322

33100 003324
gg%gg 003332

33400 003334

000000

MACRO M1110

000137

002450

17%:

105037

001116

19%:

004737
000137
005037
105737

002407
123727
003003
012737
000207

105037

003356
002754

000022

000001

001214

005737
100403
012737
000207

34000 003356
34100 003362
34200 003366
34300 003374
34400 003400
34500 003406
34600 003412
34700 003420
34800 003426
34900 003434
35000 003442
35100 003450
ggggg 003456

005037
005037
113737
006337
063737
006337
063737
062737
017737
062737
017737
062737
000207

001160
001112
001116
001160
001160
001112
001160
004424
175460
000002
175444
000002

112737

000001
001176

005737

001405
105737
100002

005037
000207

001212

000001

001214

001160
001112
001112
001112
001114
001112
001212
001112

001214

001212
001214

36400 003510

005037

001134

36600 003522
36700 003526
36800 003532
36900 003540
37000 003546
37100 003554
37200 003560

012705
004737
113737
113737
017737
012705
004737

02057
033646
020600
020601
175340
020574
033646

37300 003564
37400 003572

JMP

CLRB

LSEQ

SEND OF PABS sicissvivsesvngavaniaaions

CLR
TSTB

4%:

BLT
CMPB
BGT
MOV
RTS

GO
SO

REAL :

CLRB

1%:

TST
BMI
MOV
RTS

:GET NEW TEST NO. ETC.
:SET TEST O
:START TEST.....

4%
SO,#22
4%
#1.,G0
PC
TSTTYP
1%
#1,G0
PC

GETTST: CLR
CLR
MOVB
ASL
ADD
ASL
ADD
ADD
MOV
ADD
MOV
ADD
RTS

WORK
SEQ
SO, WORK
WORK
WORK ,SEQ
SEQ
WORK ,SEQ
#TSTTBL,SEQ
oSEQ,TEST
#2,SEQ
aSEQ,TSTTYP
#2,SEQ
PC

MODCON: MOVB
TST
BEQ
TSTB
BPL
CLR
2%:
RTS

#1,G0
PMODE
2%
TSTTYP
2%
GO
PC

:POINT TO PASS NO.

:END OF TEST PASS ROUTINE

332%%
36500 003514

HALT

SEQ 0031

PC,GETTST
RSEQ

VALID:

001116

PAGE 9-1

JSR
JMP

22%:

001214
001116

33500 003340
33600 003344
33700 003346
%;ggg 003354

35400 003460
35500 003466
35600 003472
35700 003474
35800 003500
35900 003502
22?88 003506

20-APR-78 04:21

113737

113737
113737

001116

020577
020600

001134

034672
034673
001134

034661
034662

EOPT:

CLR TEMP

MOVB

MOV
JSR
MOVB
MOVB
MOV
MOV
JSR

MOVB
MOVB

SO, TEMP

#EBUF ,RS
PC,.BIOCT
EBUF +4 ,MSG03+23.
EBUF +5 ,MSG03+24.
aSEQ,TEMP
#EBUF ,RS
PC.BIOCT

EBUF +3,MSG03+14.
EBUF +4 ,MSG03+15.

:CONVERT TEST NO TO ASCII

:PUT IN MSGO3
:CONVERT PASS NO.

;PUT IN MSGO3

)

CZLAIAO LAOO DMT PROG

START POINT FOR PROGRAM

37500 003600
37600 003606
003606
003612
36

MACRO M1110

113737

020601

012705
005037
004737

034643
001174
031700

012705
004737
000207

034643
020304

20-APR-78 04:21

034663

PAGE 9-2
MOVB

SEQ 0032

EBUF +5,MSG03+16.

SENDALL #MSGO3
:BSEOS‘RS
MOV

CLR
JSR
SENDC

MOV
JSR
RTS

PC,SEND
#MSGO3
#MSGO3 ,R5

;REPORT END OF TEST PASS
;BUILD SEND CALL USING MESSAGE ADDRESS
sNOW SEND THE MESSAGE
;GET MESSAGE ADDRESS

s SEND MESSAGE

gE.CSEND

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

:END”OF 'PASS” SUBROUT INE
T

39100 003726
003726
003732
003736
39200 003742
003742
003746
39300 003752

012705
005037
004737

034624
001174
031700

012705

105037

034624
020304
001124
020574
033646
020602

012705
005037
004737

020574
001174
031700

012705
004737

020574
020304

012705
005037
004737

037154
001174
031700

012705
004737
000207

037154
020304

EOP:

001134

SENDALL #MSGO1
:83201.R5

MOV
CLR
JSR
SENDC
MOV
JSR
MOV
MOV
JSR
CLRB
SENDALL
MOV
CLR
JSR
SENDC
MOV
JSR
SENDALL

;BUILD SEND CALL USING MESSAGE ADDRESS

PC,SEND
#MSGO1
#MSGO1 RS
PC,CSEND
PASSNO, TEMP
#EBUF ,R5

;NOW SEND THE MESSAGE

EBUF +6

;PRINT PASS NO.

:SggF,RS

;BUILD SEND CALL USING MESSAGE ADDRESS

PC,SEND

;NOW SEND THE MESSAGE

#EBUF ,R5
PC,CSEND
#MSG75
;ggg?S.RS

:GET MESSAGE ADDRESS
; SEND MESSAGE
s SEND CRLF
;BUILD SEND CALL USING MESSAGE ADDRESS

PC,SEND
#MSG75
#MSG75,R5
PC,CSEND

;NOW SEND THE MESSAGE

PC,BIOCT
#EBUF

#EBUF

;GET MESSAGE ADDRESS

s SEND MESSAGE
;CONVERT PASS NO TO ASCII

;GET MESSAGE ADDRESS
s SEND MESSAGE
sRETURN

DWARE SWITCH REGISTER

39800
39900 003754
40000 003762
40100 003770
40200 003776
40300 004000
40400 004002
40500 004010
40600 004016
40700 004020
40800 004026
40900 004034
41000
41100

F NONE ON SYSTEM

012737
012737
017737
000240
000407
012737
017737
000002
012737
012737
000207

175126

000004
000006
001116

175106

001122
001116

000006
000000

000004
000006

000176

SWRTST: MOV
MOV
1%:
MOV

2%:

3%:

NOP

#2%,TRAP4
#PR17,TRAP4+2
asSwR, SO

MOV
MOV

#176,SWR

;TRAPPED TO 4 SET UP FOR

MOV

#6, TRAP4

;RESET TRAP CATCHER

RTI

MOV
RTS

aSwWR, SO

g?.TRAP4*2

:SOF TWARE SWITCH REG.

CZLAIAO LAOO DMT PROG

START POINT FOR PROGRAM

CZLAIAO LAOO DMT PROG

START POINT FOR PROGRAM

MACRO M1110

20-APR-78 04:21

41200

PAGE 9-3

SEQ 0033

RN
EEEEREREE

:"ROUTINE TO
[

023727
001001
000000
017737
032737
42100 004066
42200 004074

001122

000176

175046
001000

001116
001116

100000

001176

3%:

1%:

001176

42300 004076
42400 004102
42500

JREAL SWS ?

GETSWS: CMP

2%:

;YES SKIP HALT

BNE
HALT

MOV
BIT

BEQ
BIS
BR
CLR

RTS

JALLOW OPERATOR TO CHANGE 176
sJREAD SWS TO WORK COPY

#BI1T15,PMODE
2%

;PMT MODE ?
:NO

;YES= SET THE FLAG

PMODE
PC

CONFLICTSTM
HANDLE "MODEINE
70"OUT
:"R

43500 004140
43600 004144
43700
43800 004146
43900 004152
44000 004160
44100 004164
44200 004166
44300 004172
004172
004176
44400 004202
44500 004206
44600 004214
44700

012737
005005

004146

012705
004737

042212
020304

012705

023420
033614

000060

012737

105737
100375
110537

012705
004737
005037
012737
000002

177562

017234
177564

oCCSEND.
#10000.

;SET INTERRUPT TO 3%
JRUN ANYWAY ? MSG

;GET MESSAGE ADDRESS

;SEND MESSAGE

;SETUP STALL TIME CONSTANT

#10000. ,RS
PC,MSTALL

#'N,RS

;ASSUME NO OF NO ANS

177562
,R5

;GET ANS

000060

#TTYIN,a#60

an177564

177560

;RESTORE TTY INTR HANDLER

;ECHO THE CHAR

PC,CSEND

s SEND MESSAGE

RS, a#177566
#MSG75
#MSG75
RS

177566

037154
020304
001146
000101

#3$,a460
RS

#MSGKS

000116
113705

ANYWAY: MOV

LOOPO
#101,a4#177560

;GET MESSAGE ADDRESS

;ABORT THE TIMEOUT
;ENABLE CONSOLE

CZLAIAO LAQO DMT PROG

START POINT FOR PROGRAM

MACRO M1110

20-APR-78 04:21

44900
45000
45100

PAGE 10

SEQ 0034

: THIS ROUTINE WILL SCAN ALL LINES FOR ACTIVE TERMINALS
* BE REQUESTING AN ANSWERBACK FROM ALL LINES. THE SELECT
* BIT WILL BE SET ACCORDINGLY IN THE DZLINE TABLE.

45400 004216
45500 004224

012737

004410

004224

004230

012705

034741

004234

005037

004737

031700

JSR

004240

012705

013560

MOV

#6000. ,RS

45700 004250

005037

001160

CLR

WORK

45600 004240
004244

45800 004254
45900 004262
46000 004264
46100 004270
46200 004272
46300 004276
46400 006300
46500 004306

004737

023737
001424
013700
006300
005760
100006
042760
005237

001140

CLR

STALL

033614

001160

JSR

001152

005060

47000 004332

000750

46900 004326

47100 004334
47200 004340

47300 004344
47400 004350
47500 004356

005237
005037
005037

005037
023737
001413

1$:

001160

020626
100200
001160

3s:

001160

001140
001204

48:

001152

68:

47600 004360 013700 001204

47700 004364
47800 004366
47900 004372
48000 004374
48100 004400

006300
105760
100402
005237
005237

48300 004406

000207

48600 004410
48700 004414

004737
052760

48200 004404 000761

48400
48500

48800 004422
48900
49000

000207

020626
001216
001204

7%:
8$:

033364
100000

020626

(MP
BEQ
MOV
ASL

ST
BPL
BIC
INC

020626

024046

001216
001204

MOV
#5$ , HOOK
SENDALL #MSGOS

MOV

001174

46600 004312 000760
46700 004314 052760 000200 020626
46800 004322

SCAN:

5%:

#MSGOS RS
MODE

PC, SEND

#6000.

INC

WORK

HOOK
ONL INE

MOV

ONL INE ,RO

B8R

ASL
TSTB
BMI
INC
INC
RTS

JSR
BIS
RTS

‘WAIT A WHILE

:SETUP STALL TIME CONSTANT

:SET LINE INACTIVE

ACTIVE (RO)

CLR
CLR

CLR
(MP
BEQ

:NOW SEND THE MESSAGE

WORK , NUML IN
;ALL LINES DONE ?
4
SYES- EXIT
WORK
, RO
RO
:X2 FOR WORD OFFSET
DZL INE (RO)
*BIT 15 SHOULD BE SET
3$
*NO RESPONSE- DESELECT
#100200,DZL
INE (RO)
WORK
:CHECK NEXT LINE

1%
#BIT7,DZL INE (RO)

:BUILD SEND CALL USING MESSAGE ADDRESS

PC,MSTALL

B8R
BIS

CLR

:LINK TO RECV ROUTINE
*PROMPT TERMINALS

:CHECK NEXT LINE

uuT
ONL INE ,NUML
IN
8$

RO
DZLINE(RQ)
78
uuT
ONL INE
PC

PC,KBOUT
#81T15,DZL INE (RO)
PC

;REMOVE CHAR FROM BUFFER
*SET RESPONDED BIT

CZLAIAO LAOO DMT PROG

START POINT FOR PROGRAM

100

MACRO M1110

20-APR-78 04:21

PAGE 11

.SBTTL
TEST SCQUENCE TABLE
;ONE WORD OF TEST ADDRESS
:ONE WORD OF TEST DESCRIPTION DATA

200

400
500
600
700

BIT7

TESTO0
000000
000000
TESTO1
000001
000000
TESTOZ
000002
000000
TESTO3
000003
000000
TESTO4
000004
000000
TESTO5
000005
000000

TESTO06

5000 004542
5100 004544
5200 004546

TEST MANUAL INTERVENTION

BIT4:0 TEST NUMBER
:
:ONE WORD OF PASS COUNT
TSTTBL:

4900 004540

SEQ 0035

015676
1

000006
000000
TESTO7
000007
000000
TEST10
000010
000000
TEST11
000011
000000
TEST12
000012
000000
TEST13
000013
000000
TEST14
000014
000000
TEST15
000015
000000
TEST16
000016

000000
TEST17
000217

;DATA PATHS TEST
;ALL PRINTABLE CHARACTERS TEST
;NON-PRINTABLE CHARACTERS TEST

;PRINTHEAD DOT MATRIX TEST
;HORIZONTAL PITCH TEST
;SPACE - BACKSPACE TEST

;SET MARGINS TEST
;HORIZONTAL TABS TEST

JMULTIPLE LINE FEED TEST

;HORIZONTAL MOTION TEST
;BUFFER OVERRUN TEST

;VERTICAL PITCH TEST
;BELL TEST
sLIFE TEST

;DYNAMIC EXERCISOR

;BAUD RATE TEST

CZLAIAO LAOO DMT PROG

TEST SEQUENCE TABLE

5800 004562
5900 004564
6000 004566
6100 004570
6200 004572
6300 004574
6400 004576
6500 004600
6600 004602
6700 004604
7400 004606

7500 004610

7600

000000
012260
000220
000000
014412
000221
000000
015214
000222
000000
177777

000000

MACRO M1110

20-APR-78 04:21

PAGE 11-1
000000
TEST20
000220
000000
TEST21
000221
000000
TEST22
000222
000000
177777
000000

SEQ 0036
;DMT KEYBOARD ECHO TEST

;DMT CHARACTER CODE EC''O TEST
;DMT PITCH SETUP TEST

;END OF TABLE FLAG

CZLAIAO LAOO DMT PROG

TESTS

MACRO M1110

20-APR-78 04:21

7800

PAGE 12
.SBTTL

SEQ 0037
TESTS

7900
8000
8100

3332202833333 348383808008 038080Rcvisacaaensbalssbiibiasstissiossoires
TTHIS 1S A TEST OF THE VARIOUS BAUD RATES.
*MANUAL INTERVENTION IS REQUIRED

8300 004612

TESTI7: " SENDALL #MSG27

8200

a2 3308038888380338083dd035s080d0bsdississibidsiiissst

004612

012705

035546

004622
8400 004626
8500 004632

004737
012703
012704

031700
035636
035660

JSR
MOV
MOV

8700 004642
8800 004646
004646

004737

033442

012705

037463

004616

005037

MOV

001174

8600 004636 012702 005374
004652
004656

8900 004662
004662

005037
004737

001174
031700

012705

035743

004672
9000 004676
004676

004737

031700

012705

036116

004706
9100 004712
9200 004716
9300 004722
9400 004726
004726

004737
004737
012702
004737

031700
005004
005402
033442

012705

037463

004736
9500 004742
004742

004737

031700

012705

036112

004666

004702

004732

004746

005037

001174

012705

036116

004737

031700

005037

9800 004776
19900 005002

004737
005037
000207

10100 005004

000240

10300 005012
10400 005020
10500 005026
10600 005030
10700 005034
10800 005040
10900 005042
11000 005046

012737
023737
002402
000137
013700
006300
105760
100003

11200 005054
11300 005056

000761
000240

001174

005004
001140

10200 005006 005037 001204

034746
001204
005372
001204

:BUILD SEND CALL USING MESSAGE ADDRESS

PC, SEND
#MSG30,R3
#MSG31.R%

:NOW SEND THE MESSAGE
:SETUP ADDRESS OF 1ST PART OF MESSAGE
“SETUP ADDRESS OF 'HIT RETURN WHEN DONE'‘

JSR
PC,ANVENT
SENDALL #MSG88
MOV
#MSG88,RS

*GO THRU ALL TABLE ENTRIES
*PRINTED AT MSG
‘BUILD SEND CALL USING MESSAGE ADDRESS

MODE

MOV

#T10378L ,R2

CLR
MODE
JSR
PC, SEND
SENDALL #MSG32
MOV
#MSG32,RS

004752 004737 031700

9600 004756
004756
004762
004766
9700 004772

#MSG27 RS

CLR

MODE

CLR

MODE

CLR

MODE

CLR

MODE

SENDALL
MOV
CLR
JSR
JSR

#MSG36
#MSG36,RS
MODE
PC, SEND
PC.5$

001160
001152

6$:

668:

020626

11100 005050 005237 001204

:NOW SEND THE MESSAGE
*BAUD
‘BUILD SEND CALL USING MESSAGE ADDRESS

JSR
PC, SEND
JSR
PC,5$
MOV
#103782,R2
JSR
PC,ANVENT
SENDALL #MSG88
MOV
#MSG88,RS

:NOW SEND THE MESSAGE
*GET ANSWER BACK
*SU NEXT PASS
*GO THRU TABLE AGAIN
*PRINTED AT
*BUILD SEND CALL USING MESSAGE ADDRESS

JSR
PC, SEND
SENDALL #MSG35
MOV
#MSG35,RS

:NOW SEND THE MESSAGE
:30
*BUILD SEND CALL USING MESSAGE ADDRESS

JSR

:NOW SEND THE MESSAGE

NOP

CLR

MOV
CMP
BLT
JMP
MOV
ASL
TSTB
BPL

INC

61%:

:NOW SEND THE MESSAGE
2110
*BUILD SEND CALL USING MESSAGE ADDRESS

JSR
PC,SEND
SENDALL #MSG36
MOV
#MSG36,RS

CLR
RTS

*SETUP TABLE ADDRESS

BR
NOP

PC.,SEND

HOOK
PC

ONL INE

#MSGO6 , WORK
ONLINE.NUMLIN
66$
208
ONL INE ,RO
RO
DZLINE(RO)
61%

ONL INE
6%

*BAUD
*BUILD SEND CALL USING MESSAGE ADDRESS

:NOW SEND THE MESSAGE
*GET ANSWER BACK

SINIT LINE O

*SHOULD BE MESSAGE
:DO ALL LINES

;1S LINE SELECTED /

:NO TRY AGAIN

MESSAGE

CZLAIAO LAOO DMT PROG

TE STS

005037

012737
012737

010070
016320
177777
005220

012705

034741

012737

-t

20-APR-78 04:21

13600 005226
13700 005232
13800 005236

13900 005242
14000 005250
14100 005252

14200 005256

14500 005270
14600 005274
14700 005276
14800 005302
14900 005304
15000 005310

15100 005316
15200 005322

SEQ 0038
COUNT

#T308UF , WORK1
#-1,NOTYET
#10$ ,HOOK

#MSGOS
, ONL INE

#MSGOS5 RS

#10,MODE
+1
ONL INE ,MODE

000010
001204
031700
034166

:E gfi?%r

#2000.

#2000. RS

003720
033614
001136

PC,MSTALL
NOTYET
78
ONL INE

001204
005020
034677
020346
035201
020346

7%:

#MSGO4 ,-(SP)

8%:

#MSG15,-(SP)

PC,ERRORT

PC.ERRORT

ONL INE

001204
005020

10%:

177600
173730

010070
001162
010070

PAGE 12-1

CLR

d i cd

i ad

2100 005146
2200 005152
2300 005154
2400 005160
2500 005164
2600 005170
2700 005174

MACRO M1110

#177600,R5
R5 ,aWORK1
COUNT
WORK1

COgNT.#?

000007

12
RECERR+1(R0)
11%

031561

RECERR(RO)
#MSG15,-(SP)

031560
035201
020346

PC,ERRORT

033364

11%:

001136
016320
010070

001162

12%:

173630

13%:

PC.KBOUT

NOTYET
#T30BUF ,WORK1

;INPUT CHAR COUNT =0

;BORROW A BUFFER _AREA
;GETS CLEARED WHENE DONE
;LINK TO RECV ROUTINE
;ESCAPE SEQ TO TERMINAL

;MESSAGE ADDRESS TO RS
;SET SINGLE LINE MODE
;SELECTED LINE NO.
JALLOW 2 SEC FOR ANSWERBACK
;SETUP STALL TIME CONSTANT

;SHOULD BE CLR IF MSG RECVD
;GO REPORT ERROR
;DO NEXT LINE
;NO RESPONSE !

;ERROR MESSAGE

;IF BIT15 IS SET
;DO NEXT LINE

;CLEAR PARITY BIT
;SAVE IN BUFFER
;BUMP CHAR COUNT
;BUMP BUFFER POINTER
;LOOKING FOR 7 CHARS
;GO COMPARE TO SHOULDBE
sERROR SET ?

;RESET THE ERROR FLAGS
;ERROR MSG ADDRESS
:TO ERROR ROUTINE

;IF BIT15-1S SET

:WAIT FOR MORE

;sTURN OFF FOR NOW
sRESET BUFFER _POINTER

;COMPARE ALL 5 CHARS

001160
001162
010070

16400 005372

040600
020346

14%:

#MSG148,-(SP)

001204

18%:

ONL INE

:
208

PC,ERRORT

ADDRESS

;TO ERROR ROUTINE

sTEST NEXT LINE

MACRO M1110

20-APR-78 04:21

PAGE 12-2

SEQ 0039

16500

16600
16700

16800 005374

035743

TO3TBL: MSG32

:110 , ODD PARITY , 7 BIT

17100 005402

036112

TO3TB2: MSG3S5

:300 BAUD , ODD PARITY , 7 BIT

16900 005376
17000 005400
17200 005404
17300 005406

17400
17405
17410
17415
17420
17425
17430
17435
17440

011320
000000

11320
000000

012720
000000

12720
000000

17500
17600
};;88

:END OF TABLE

SeBseevtinsenseasaravtacsaossrtoneosececsecsessnsssosesesnsssssse
CTHIS 1S THE TEST OF DATA PATHS WITHIN THE LA0O
‘THE *U*U PATTERN IS ALTERNATING 0 AND ONE BITS

17900 005410

005410

012705

036535

005420
18000 005424
005424
005430
005436
005444

004737

031700

012705
112737
112737

036571
000004
000020

005414

18100 005450
18200
18300

005037

004737

000207

TESTO0: SENDALL #MSG42

001174

031700

MOV

#MSG42 RS

JSR
SENDR
MOV
MOVB
MOVB
JSR

PC, SEND
#MSG43,
44
#MSG43.RS
#4,MODE
#20,MODE+1
PC, SEND

CLR

001174
001175
48:

RTS

MODE

“ANOUNCE TEST

“BUILD SEND CALL USING MESSAGE ADDRESS
:NOW SEND THE MESSAGE

gég?éko LAOO DMT PROG

CZLAIAO LAOO DMT PROG

TESTS

MACRO M1110

20-APR-78 04:21

18500
18600
18700
18800
18900

SEQ 0040

I
R
R R R R R R
R R R R R R R R R R R R R R R
;PRINTABLE CHARACTERS TEST
sTHIS TEST PRINTS FOUR OF EACH PRINTABLE CHARACTER.
;ASCII CODES 041 THRU 176.
I
R R
R R R R R R
R R R RR R

19000

19100 005452

TESTO1: SENDALL #MSG81

005452

012705

037231

005462
19200 005466

004737
013737

031700
001172

001160

19400 005500

162737

000006

001160

1$:

001164
001160
000177

2%:

005456

19300 005474

19500 005506
19600 005510
19700 005514

19800 005516
19900 005524
20000 005532
20100 005540
20200 005542
20300 005546
20400 005550

005550

005554
005562
005570
20500 005574
005574
005600
005606
005614
20600 005620

20700 005624

20800 005630

20900 005634
21000 005636

005037

003403
005237
000771

010070

000041
010070
001164

013705

001164

012705
012737
112737
004737

000040
000002
000020
032226

105237

001164

012737
112737
004737

004737
005337

000736

001160

000004
000020
032226

005646
21100 005652
21200 005660
21300 005662
005662

004737
013737
000724

031700
010070

005666
005672
5} 15088 005676

012705

005037
004737
000207

3%:
4$:
5%:

001174
001175

037157
001174

031700

#6 ,WORK

;WORK = WIDTH /7 6

MoV
MOV
CMPB
BGE
TST

#41 ,WORK2
COUNT , WORK
WORK2 #4177
8%
WORK

MOV

WORKZ2 ,R5

BLE
INC
BR

BLE
SENDC2

DEC

8%:

2%
COUNT
1%

6%
WORKZ2,#4

MOV

;DO WHILE WORK > 0
;SEND CHAR & TIMES

;GET CHAR TO R5

WORK?2

sNEXT ASCII CODE

WORK

#MSG75 ,R5
MODE

JSR
PC, SEND
MOV
COUNT , WORK
BR
3%
SENDALL #MSG77
MOV
#MSG77 RS
CLR
JSR
RTS

;DO WHILE CHAR < 177

;GET REPEAT COUNT
;SET REPEAT MODE
;CALL CHAR OUTPUT ROUTINE
;SEND 2 SPACES
;GET CHAR TO RS
;GET REPEAT COUNT
;SET REPEAT MODE
;CALL CHAR OUTPUT ROUTINE

PC,QUIET

MODE

PC,SEND
PC

sINIT ASCII CODES

#4 ,MODE
#20 ,MODE +1
PC, CHROUT
#4042
#40,R5
#2 ,MODE
#20 ,MODE +1
PC.,CHROUT

BR
3%
SENDALL #MSG75
CLR

001160

COUNT

;BUILD SEND CALL USING MESSAGE ADDRESS

SuB

CLR

INCB

001174

MODE

R R

;SEND TEST ID

;NOW SEND THE MESSAGE

JSR

6%:

#MSG81,R5
PC,SEND
WIDTH,WORK

MOV
MOVB
JSR
SENDC2
MOV
MoV
MovB
JSR

001160

037154

005037

JSR
MOV

034166

012705

005642

CLR

010070

012737
013737
123727
002050
005737
003433

MOV

001174

005636

21600

PAGE 13

s CRLF
;BUILD SEND CALL USING MESSAGE ADDRESS
sNOW SEND THE MESSAGE
sRESTORE WIDTH/6

;SKIP 3 LINES
;BUILD SEND CALL USING MESSAGE ADDRESS
sNOW SEND THE MESSAGE

CZLAIAO LAOO DMT PROG

TESTS

MACRO M1110

20-APR-78 04:21

21800
21900

PAGE 14

SEQ 0041

22000
22100

S
n iR ee ettt et s et
Ratar st ssstisntsonesssotonsssad
THIS 15 THE NON PRINTING CHARACTER' TEST.

22300
22400

‘A BLANK LINE.
SR
et rsidssidiieenidstideietissstiidsidsieistliioisiisveiss

22200

*ALL NON-PRINTING CHARS ARE SENT TO THE LAOO. THE RESULT SHOULD BE

22500 005700

005700

012705

036670

005710
22600 005714
005714

004737

031700

012705

005724

004737

005704

005720

22700 005730
22800
22900
23000
23100
23200

005037

005037
000207

TEST02: SENDALL #MSG44
MOV

001174

#MSG44 RS

CLR

MODE

CLR

MODE

RTS

:BUILD SEND CALL USING MESSAGE ADDRESS
:NOW SEND THE MESSAGE

037000

JSR
PC,SEND
SENDALL #MSG4S
MOV
#MSG4S RS

031700

JSR

:NOW SEND THE MESSAGE

001174

23300
23400
23500
23600
23700
23800

PC, SEND

:BUILD SEND CALL USING MESSAGE ADDRESS

S
s
s sacdiiecdiddilisssistedsissiiisisiinesiovidibsnie
:DOT MATRIX TES
*THIS TEST PRINTS FIVE CHARACTERS ‘‘ZH*#$'' IN LINE.
*A LINE OF 2'S AND SPACES IS PRINTED, THEN THIS
:LINE IS OVERPRINTED WITH A LINE OF H'S AND SPACES,
“x'S AND SPACES , AND #'S AND SPACES. THIS OVERPRINT

23900
24000

*CREATES TEN BOXES THAT SHOULD BE ALL BLACK.

2382553233 238332335335333383833300v80388380008030833080dd0csidssddliies

26100

24200 005732
005732

012705

037275

005742
24300 005746
005746

004737

031700

012705

037157

005756
24400 005762
005762
005766
005772
24500 005776
005776
006002
006010
006016

004737

031700

005736

005752

24600 006022
006022

006026

006032

52588 006036

005037

012705
005037
004737
012705
112737
112737
004737

001174

037322
001174
031700
037334

000004

000020
031700

037157

004737

031700

000207

:SEND TEST ID
‘BUILD SEND CALL USING MESSAGE ADDRESS

JSR
PC, SEND
SENDALL #MSG77
MOV
#MSG77 RS

:NOW SEND THE MESSAGE
*SKIP 3 LINES
*BUILD SEND CALL USING MESSAGE ADDRESS

JSR
PC, SEND
SENDALL #MSG84
MOV
#MSG84 RS
CLR
MODE
JSR
PC,SEND
SENDR
#MSG8S,
44
MOV
#MSG85 RS
MOVB #4 ,MODE
MOVB
#20,MODE+1
JSR
PC, SEND

:NOW SEND THE MESSAGE
“SEND THE CHARS
*BUILD SEND CALL USING MESSAGE ADDRESS

001174

012705

005037

TESTO3: SENDALL #MSG83
MOV
#MSG83,RS

001174

28:
001174

001175

5% :

CLR

MODE

CLR

MODE

:NOW SEND THE MESSAGE
‘MAKE 4 LINES OF 10 BOXES

SENDALL #MSG?77
MOV
#MSG77.RS

:SKIP 3 LINES
*BUILD SEND CALL USING MESSAGE ADURESS

JSR

:NOW SEND THE MESSAGE

CLR

MODE

RTS

PC, SEND

CZLAIAO LAOO DMT PROG

TESTS

MACRO M1110

20-APR-78 04:21

PAGE 15

SEQ 0042

'g&iim?i' ii&h'iéé.l........'.00.'.'.O"’l..'.l'.‘.'ll'l.."l'lll'

;SETUP FOR THIS TEST IS DOWN LINE LOADED FROM THE PROGRAM.
:A MESSAGE WILL BE PRINTED IDENTIFYING THE CURRENT PITCH,
;FOLLOWED BY THREE LINES OF
.Z AT THE CURRENT PITCH.
:PITCHES TESTED : 10, 12, 13. 2 16.5 CPI. ALL AT 6 LPI.

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

26100 006070
26200 006074
26300 006102
26400 006104
26500 006110
26600 006114
26700 006120
26800 006126
26900 006134
27000 006142
27100 006150
006150
006154
006160
27200 006164
006164
006170
27300 006174
006174
006200
006204
27400 006210
006210
006214
006220
2750 006224
006

27700 006254
006254
006260
006264
27800 006270
006270
006274
006300

012705
005037
004737

037704
001174
031700

012705

037157
001174
031700
001160
001160

017705
005037
004737

000214
001174
031700

012705
004737

000250
033614

012705
005037
004737

037154
001174
031700

012705
005037
004737

037463
001174
031700

017705
005037
004737

000136
001174
031700

012705
005037
004737

037537
001174
031700

012705
005037
004737

037555
001174
031700

012705
005037
004737

037565
001174
031700

TESTO4: SENDALL #MSG109

MOV
CLR
JSR

000006

1$:

001164
006366

006370
001160
006366
006402
006372

EEEEEEREENENE NN

006366
006370
006370
006366

MODE
PC, SEND

;SEND TEST ID

;BUILD SEND CALL USING MESSAGE ADDRESS

SENDALL #MSG77
#MSG77 ,R5
MOV

;NOW SEND _THE MESSAGE
;3;3 LI LINES
;BUILD SEND CALL USING MESSAGE ADDRESS

JSR

PC,SEND

;NOW SEND THE MESSAGE

4%
WORK?2
T11A

;DO WHILE WORK > 0

CLR

MODE

CLR
cMP

WORK
WORK ,#6.

CLR
MOV
MOV
ADD
ADD
SENDALL
MOV
CLR

T118
WORK,T11A
T11A,T118
#TABLHF ,T11B
#TABLH,T11A
aT11B
aT118,R5
MODE

STALL

#250

JSR

PC MSTALL

CLR
JSR

MODE
PC,SEND

BGT
CLR
CLR

JSR

2%:

#MSG109,R5

PC, SEND

SENDALL #MSG?75
#MSG75 ,R5
MOV
SENDALL #MSG88
#MSG88 RS
MOV
CLR
MODE
PC,SEND
JSR
SENDALL aT11A

MOV

CLR
JSR

aT11A,RS
MODE
PC,SEND

SENDALL #MSG93
#MSG93 RS
MOV
CLR
JSR

MODE
PC,SEND

CLR
JSR

MODE
PC,SEND

SENDALL #MSG96
#MSG96,R5
MOV
SENDALL #MSG98
#MSG98,R5
MOV
CLR
JSR

MODE
PC,SEND

;GET TABLE OFFSET

;POINTER TO FORMAT CMD
;POINTER TO ID MSG
;SETUP HORIZ PITCH
;BUILD SEND CALL USING MESSAGE ADDRESS
:NOW SEND THE MESSAGE

sSETUP STALL TIME CONSTANT
;SEND CRLF
;BUILD SEND CALL USING MESSAGE ADDRESS
;NOW SEND THE MESSAGE

;BUILD Ségg~gA{E Gg?zeGSESSAGE ADDRESS
NOW SEND THE MESSAGE

;BUILD SEND CALL USING MESSAGE ADDRESS

;NOW SEND THE MESSAGE
;BUILD SEND CALL USING MESSAGE ADDRESS

sNOW SEND THE MESSAGE
;BUILD SEND CALL USING MESSAGE ADDRESS

sNOW SEND THE MESSAGE

;BUILD SEND CALL USING MESSAGE ADDRESS
sNOW SEND THE MESSAGE

CZLAIAO LAOO DMT PROG

TESTS

27900 006304

MACRO M1110

006304

012705

037642

006314
28000 006320
28100 006326
28200 006330
28300 006334
28400 006336
28500 006344
28600 006350

004737
023727
003003
005237
000717

031700
001164

006354

005037

006310

005037

20-APR-78 04:21

PAGE 15-1
SENDALL #MSG107

MoV

001174

CLR

000003

001164

006350

012705

037157

006360
58700 006364

004737
000207

031700

28900 006366
29000 006370
29100 0063(7)8

000000
000000
8%;2?%

037525

037520

T11A:
T118:
TABLH:

29200 006402

037572

037577

037604

TABLHF: .WORD

29300
29400

3%:
4%:

001174

#MSG107,R5
MODE

PC, SEND
WORK2,#3
3%
WORK2
2%
ADD
#2 ,WORK
JMP
1%
SENDALL #MSG77

000002
006074

037677

001160

JSR
CMP
BGT
INC
BR

062737
000137

006410

SEQ 0043
;BUILD SEND CALL USING MESSAGE ADDRESS
;NOW SEND THE MESSAGE

;GET NEXT PITCH

MOV

#MSG77 ,R5

;BUILD SEND CALL USING MESSAGE ADDRESS

JSR
RTS

PC,SEND
PC

;NOW SEND THE MESSAGE
SEXIY,..

CLR

.WORD
.WORD
.WORD

MODE

000000
000000
MSG92,MSG91,MSG90,MSG89

MSG99,MSG100,MSG101,MSG108

CZLAIAO LAOO DMT PROG

TESTS

MACRO M1110

20-APR-78 04:21

29700

PAGE 16

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

E R R

TR R

;SPACE - BACKSPACE TEST
;THIS TEST PRINTS A LINE OF ALTERNATING SLASHES AND APAC(ES.

s THEN BACKSPACES THROUGH THE LINE OVERPRINTING THE °'/' S
;WITH "\'S. THE RESULTING LINE SHOULD BE A LINE OF ALTERNATING

30100

;X'S AND SPACES. TWO LINES ARE PRINTED PER PASS.

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

'FEEEEEEEEEEEEE N

012705

162737

31400 006506
31500 006510
31600 006512
31700 006520
31800 006524

32000 006564
32100 006570
32200 006572

037164
001174
031700
000002
010070

001172
001160
000002

012705
113737
112737
004737
000240
000240
013737
006237

037221
001160
000020
031700

012705
113737
112737
004737

037224
001160
000020
031700

012705
005037
004737
005337
000721

037154
001174
031700
010070

012705
005037
004737
000207

037157
001174
031700

001172
001160

TESTOS:

010070
001160

001174
001175

001160

MOV
TST
BLE

#2,COUNT
COUNT
7%

MODE
PC,SEND

SuB
SENDR
MOV

#2 ,WORK
#MSG79,WORK
#MSG79,R5

NOP
NOP

WORK

;SEND TEST ID

;BUILD SEND CALL USING MESSAGE ADDRESS
;NOW SEND THE MESSAGE
:SU FOR 2 LINES

;DO UNTIL COUNT =0
sMAKE SHURE WE'RE NOT AT MARGIN
;SEND 'Y/ "

#20 ,MODE +1
PC,SEND

WIDTH,WORK
WORK

MOV

RS
#MSG80,

#MSG80,WORK

MOVB

WORK ,MODE

JSR

PC,SEND

MovB

WORK ,MODE

MOV
ASR

SENDR

JRESET COLM COUNT

;SEND 'BS BS \ BS"'

#20 ,MODE +1

SENDALL #MSG75
:Sgg?S.RS

: CRLF
;BUILD SEND CALL USING MESSAGE ADDRESS

JSR

;sNOW SEND THE MESSAGE

?Ex
DEC

7%:

WIDTH,WORK

JSR

6%:

MOV

MOVB

001174
001175

#MSG78,R5

MovB

4%:

SENDALL #MSG78

ASR

001160

MOV

CLR
JSR

2%:

PC,SEND
COUNT

2%
BR
SENDALL #MSG77
?Ex
:83277'R5

;SKIP 3 LINES
;BUILD SEND CALL USING MESSAGE ADDRESS

JSR

sNOW SEND THE MESSAGE

RTS

PC,SEND
PC

sEXIT...

CZLAIAO LAOO DMT PROG

TESTS

MACRO M1110

20-APR-78 04:21

PAGE 17

SEQ 0045

32700
32800

SRRt

33000
33100
33200
33300

:
3
}
3

THIS TEST WILL SET 4 PAIRS OF L & R MARGINS
THEN WILL PRINT A LINE OF = SIGNS THAT SHOULD
BE WITHIN THOSE MARGINS. ALSO A MESSAGE WILL BE
SENT SPECIFYING AN ERROR IF IT'S NOT AT THE LH

A REFERENCE LINE WILL BE PRINTED SHOWING THE

32900

222 0238833303333383883830533083333838883353888333535834843

:SET MARGINS TEST

33400

33500

33600
%3700

2
2

33900

MARGIN.

MARGIN LIMITS BEING SET UP.
ALL HORIZ PITCH SETTINGS WILL BE TESTED.

MMWE I

34000

34100

34200

34300

sevens Bav

sovdsovnsvellh Shedvases IR

=== =====-=====-==========

ERROR IF NOT AT LH MARGIN

338333323333333333333333388533383833333333383383388333533383833334343

34400

34500 006610
006610

012705

037770

006620

004737

031700

JSR

34700 006630
34800 006634
34900 006640
35000 006646
35100 006650
35200 006654
35300 006660
35400 006666

005037
005037
023727
003402
000137
006337
012737
063737

001162
007512
O°07S12

000003

007432
007512
006402
007512

007516
007516

CLR
CLR
CMP
BLE
JMP
ASL
MOV
ADD

006674
006700
006704
35600 006710
35700 006714
35800 006720
35900 006726
36000 006730
36100 006734
006734
006740
006744
36200 C06750
36300 006756
36400 006762
36500 006766
36600 006772
36700 007000
36800 007006
36900 007014
37000 007022

017705
005037
004737
006237
005037
023727
003402
000137

000616
001174
031700
007512
007514
007514

012705
005037
004737
013737
006337
013701
062701
013737
062737
117737
013737
062737

007500
001174
031700
007514
007516
007516
007454
007574
007466
000504
007514
007473

37200 007036
37300 007044
37400 007046

123737
103405
012737

001162

006614

34600 006624

35500 006674

37100 007030

005037

117737

TESTO6: SENDALL #MSG111
MOV
#MSG111,RS

001174

001160

000004

007422

000462
000005

1%:
4%:

2%:

5%:

007516

007516
007516
001160
007516
007516

001162

001172
007514

CLR

MODE

CLR

WORK

PC,SEND
WORK1
w1
wl,43
4%
30%
w1
#TABLHF ,W3
Wi, w3

;SEND TEST ID
;BUILD SEND CALL USING MESSAGE ADDRESS

;NOW SEND THE MESSAGE
:DO 4 PITCH SETTINGS
:IF DONE GOTO 30
;%2 FOR WORD OFFSET
;PITCH MSG TABLE

SENDALL aw3

:SETUP H PITCH

MOvVB

;GET RH MARGIN

MOV
CLR
JSR
ASR
CLR
CMP
BLE
JMP
SENDALL
MOV
CLR
JSR
MOV
ASL
MOV
ADD
MOV
ADD
MOVB
MOV
ADD

aw3,.RS ;BUILD SEND CALL USING MESSAGE ADDRESS
MODE
PC,SEND
:NOW SEND THE MESSAGE
w1
w2
:DO 5 MARGINS TESTS
We, ¥4
5%
208
#T12FIX
;RESET MARGINS
#T12FIX RS
:BUILD SEND CALL USING MESSAGE ADDRESS
MODE
PC,SEND
:NOW SEND THE MESSAGE
w2, w3
w3
w3,R1
#TBL12A.R1
;POINT TO SETUP ADDR
w2 ,w3
#TBL12B, W3
:POINT TO LH MARGIN
aw3,WORK
:GET LH MARGIN
we,w3
#TBL12C, W3
:POINT TO RH MARGIN

CMPB
BLO
MoV

WORK1,WIDTH
3%
#5,W2

awW3,WORK1

;WITHIN RANGE OF PAPER ?
;NO DO NEXT PITCH GROUP

CZLAIAO LAOO DMT PROG

TESTS

37500 007054
37800 007072

007072
007076
007102
37900 007106

000137
113737
005337

007422
001160
001164

012705
005037
004737

037154
001174
031700

012705
113737
112737
004737

037073
001164
000020
031700

012705

007142
38100 007146
38200 007154
38300 007162
38400 007166

007206
38500 007212
007212
007216
007222
38600 007226
38700 007234
38800 007242
007242
007246
007254
007262
38900 007266
39000 007272
007272
007276
007302
39100 007306
39200 007312
007312

39300 007326
007326
007332
007340
007346
39400 007352
007352
007356
007362
39500 007366
007366
007372

MACRO M1110

000126
001174
032226
001162
001160
001164

012705
013737
112737
004737

000056
001164
000020
032226

012705
005037
004737

000126
001174
032226
001172
001162

012705

000056
001164
000020
032226
001164

013737
163737
013737
112737
004737
011137

013705

012705
005037
004737

001164
001174
031700
034166

037154
001174
031700

012705

112737
112737

004737
012705
005037
004737

040045
001174
031700

012705
005037

037154
001174

20-APR-78 04:21

001164

3%:

PAGE 17-1

SEQ 0046

JMP
208
WORK , WORK
2
MovB
WORK2
DEC
SENDALL #MSG7S
#MSG7S ,RS
MODE
PC,SEND

#MSG6E2
, WORK 2
#MSG62 RS
WORK?2 ,MODE
#20,MODE +1
PC,SEND
#'v

MODE
PC,CHROUT

WORK1,WORK?2
WORK ,WORK?2

WORK?2

#'. ,WORKZ2
#'..,RS

001174
001175

WORKZ2 ,MODE
#20 ,MODE +1

PC.,CHROUT
#'v
#'V,RS
MODE
PC,CHROUT

WIDTH,WORK?2
WORK1,WORK?2
#'. ,WORK2

001164
001164

#'..RS

001174
001175

WORKZ2 ,MODE
#20 ,MODE +1

MOV
SENDALL
MOV
CLR
JSR
JSR
SENDALL

;NOW SEND THE MESSAGE
;PRINT PERIODS....

sPRINT A "V

#'V,RS

001164
001164

;SEND CRLF
;BUILD SEND CALL USING MESSAGE ADDRESS

PC,CHROUT

(R1) ,WORK?2

WORK2

WORK?2 RS

MODE
PC,SEND
PC,QUIET

#MSG75
#MSG7S RS
MODE
PC,SEND

#MSG115,425.
#MSG115,RS
#25. ,MODE
#20 ,MODE +1

PC,SEND
SENDALL #M5G116
#MSG116,RS
MOV
MODE
CLR
PC,SEND
JSR
SENDALL #MSG7_
#MSG7S
RS
MOV
MODE
CLR

;GET CHAR TO RS
:STD MODE

;CALL CHAR OUTPUT ROUTINE
; =RH-LH

sPRINT PERIODS

;GET CHAR TO RS
:GET REPEAT COUNT
;SET REPEAT MODE
;CALL CHAR OUTPUT ROUTINE
sPRINT A "V

;GET CHAR TO RS
:STD MODE
;CALL CHAR OUTPUT ROUTINE
;PRINT MORE PERIODS

;GET CHAR TO R5
:GET REPEAT COUNT
;SET REPEAT MODE
sCALL CHAR OUTPUT ROUTINE
;SETUP MARGINS
;BUILD SEND CALL USING MESSAGE ADDRESS
;NOW SEND THE MESSAGE
;WAIT FOR CATCHUP
s SEND CRLF

;BUILD SEND CALL USING MESSAGE ADDRESS

sNOW SEND THE MESSAGE

;SEND '=" 25 TIMES

;AND ERROR IF MSG
;BUILD SEND CALL USING MESSAGE ADDRESS
sNOW SEND THE MESSAGE

sSEND CRLF

;BUILD SEND CALL USING MESSAGE ADDRESS

CZLAIAO LAOO DMT PROG

TESTS

007376
39600 007402

MACRO M1110

20-APR-78 04:21

PAGE 17-2

004737

031700

007402

012705

000300

MOV

39800 007416
39900 007422
40000 007426

000137
005237
000137

006720
007512
006640

JMP
INC
JMP

007406
39700 007412

40100 007432
40200 007436

004737
005237

004737

033614
007514

20%:

(033000

308 :

SEQ 0047

JSR
STALL

PC,SEND
#300

JSR
INC

PC,MSTALL
w2

#300,R5
2%
w1
1%

JSR
PC,RESETO
SENDALL #MSG77

007436

012705

037157

MoV

#MSG77 ,R5

007446

004737

031700

JSR

PC,SEND

40600 007454
<0700 007462

041234
041266

041244
041300

0461255

40800 007466
007471
40900 007473
007476
41000 007500

002
116
032
146
033

032
144
062
174
133

41100
41200 007512
41300 007514
41400 007516

000000
000C00
000000

007442

40300 007452

<0500

007503
007506

41500

41600

41700
47800

005037

000207

073
062

001174

061
163

CLR

RTS

MODE
PC

sNOW SEND THE MESSAGE

;SETUP STALL TIME CONSTANT
sNEXT MARGIN PAIR
sNEXT H PITCH
sJRESET_THE TERMINAL
;SKIP 3 LINES

;BUILD SEND CALL USING MESSAGE ADDRESS
;NOW SEND THE MESSAGE
sBYE....

TBL12A: .WORD

MSG180,MSG181,MSG182,MSG183,MSG184

064

TBL12B:

.BYTE

2,26.,52.,78.,100.

114

TBL12C:

.BYTE

26.,50.,76.,102.,124.

061
063
000

T12FIX: .BYTE

33,133,61,73,61,63,62.163,0

.EVEN
Wl:
we:
w3:

0
0
O

.WORD
WORD
.WORD

.EVEN

42100

20-APR-78 04:21

42200
42300
42400
42500
42600

MACRO M1110

PAGE 18

SEQ 0048

§ f f f f :::::::::'::.'::::::::::::::.'::.'::::::::::::::::::::;:::::::;:.'.'

HORIZCNTAL TABS TEST

;A REFERENCE LINE IS PRINTED MADE UP OF PERIODS AND V'S
:TAB STCPS ARE THEN SET C(RRESPMING TO THE POSITION OF
THE V'S. THREE LINES OF TABS AND I'S ARE PRINTED, WHERE
THE I1'S SHOULD LINE UP UNDER THE V'S.
THIS IS REPEATED FOR TAB SETTINGS OF 4$,8,9,16,18,32, AND

42700

64 CHARACTER SPACES.

42800

S Iii2i00302333333330333330333333333333333333333333333333333833533448

43000 007520

TESTO7: SENDALL #MSG60

007520 012705 037031
007524

005037

007530
43100 007534
43200 007542
43300 007550
007550

004737
012737
013737

012705

007560
43400 007564

MOV

001174

MODE

:BUILD SEND CALL USING MESSAGE ADDRESS
:NOW SEND THE MESSAGE

037070

JSR
PC,SEND
MOV
#TABL13,WORK?2
MOV
WIDTH,WORK1
SENDALL #MSG61
MOV
#MSG61,RS

004737
117737

031700
171374

JSR
MOVB

:NOW SEND THE MESSAGE

007606

012705

037154

007616
43900 007622

004737
163737

031700
010066

44100 007632
44200 007634
007634
007640

005301

007554

43500 007572
43600 007576
43700 007602
43800 007606

007612

44000 007630

005037

005237
105077
9013701

005037

002433

031700
010050
001172

CLR

;SEND TEST ID

#MSG60, RS

001164
001162

1%:
2%:

001174

001164
171362
010066

CLR

MODE

MOV

#MSG75,RS

JSR
SuB

PC,SEND
TAB,WORK1

:NOW SEND THE MESSAGE
:SU TAB COUNT PER LINE

;PRINT TAB -1 PERIODS
;PRINT PERIODS
:GET CHAR TO RS
;GET REPEAT COUNT

PC,SEND
aWORKZ2, TAB
INC
WORK?2
CLRB
aWORK?2
MOV
TAB,R1
SENDALL #MSG75S

010066

001174

CLR

001162

3%:
4%:

BLT

DEC
SENDC2
MOV
MOV

MODE
6%

#'..R1

007644
007652

012705
010137
112737
004737

000056
001174
000020
032226

007656

012705

037075

007666
44400 007672
007672
007676
007702

004737

031700

012705
005037
004737

000126
001174
032226

MOV
CLR
JSR

#'V,RS5
MODE
PC,CHROUT

44600 007712
44700 007716

013701
000741

010066

MOV
BR

TAB,R1
3%

44900 007720
45000 007726

012737
117737

000003
171232

007736

012705

037154

007746
45300 007752

004737

031700

012705

037102

44300 007656

007662

44500 007706

45100 007734
45200 007736

007742

007752

005037

105277

001430

005037

001175
5%:

001174

MOVB
JSR

#'..RS
R1,MODE
#20 ,MODE +1
PC,CHROUT

MOV

#MSG63,RS

JSR
SENDCH

PC,SEND
#'V

SENDALL #MSG63
CLR

171252

INCB

010070
010066

6%:
7%:

MOV
MOVB

8%:

MODE

aWORK?2

:SEND CRLF

;BUILD SEND CALL USING MESSAGE ADDRESS

;SET REPEAT MODE
:CALL CHAR OUTPUT ROUTINE
:SET TAB STOP

:BUILD SEND CALL USING MESSAGE ADDRESS
:NOW SEND THE MESSAGE
:PRINT A 'V

:GET CHAR TO RS
;STD MODE
;CALL CHAR OUTPUT ROUTINE

#3,COUNT
aWORK?2, TAB

BEQ
1%
SENDALL #MSG75

MOV

001174

;ESC=2 RESETS TABS
;BUILD SEND CALL USING MESSAGE ADDRESS

#MSG75 RS

CLR

MODE

MOV

#MSG65 ,R5

JSR
PC,SEND
SENDALL #MSG6S

:BUILD SEND CALL USING MESSAGE ADDRESS
:NOW SEND THE MESSAGE
;ISSUE A TAB

;BUILD SEND CALL USING MESSAGE ADDRESS

—

CZLAIAO 1LACO DMT PROG

TESTS

007776
45500 010002
45600 010006
45700 010010
45800 010014
45900 010016
010016
010022
010026
46000 010032
46100 010036
46200 010044
46300 010046
46400
46500
46600 010050
46700 010052
46800 010054
46900 010056
47000 010060
47100 010062
47200 010064
47300 010066
47400 010070
47500
47600

001174
031700

012705

000111
001174
032226
010066

037157
001174
031700
001164
001164

18-1

CLR
JSR
SENDCH
MOV

SEQ 0049
MODE
PgiSEND

#'1,RS5
MODE
PC,CHROUT
TAB
7%

#MSG77
#MSG77
RS

118:

MODE
PC,SEND

WORK2
WORK2 ,#TAB
2%

010066

TABL13:

TAB:

:
COUNT

sNOW SEND THE MESSAGE
;PRINT AN "'T"
;GET CHAR TO R5
;STD MODE
;CALL CHAR OUTPUT ROUTINE

8%
COUNT

108:

010070

005037

PAGE

005037
004737

20-APR-78 04:21

S PNOCO0N

007756
007762
45400 007766

MACRO M1110

NOOPW— =000 H

CZLAIAO LAOO DMT PROG

TESTS

;BUILD SEND CALL USING MESSAGE ADDRESS
;NOW SEND THE MESSAGE

SEXIT

:
:
:
:

PAGE 19

THIS T

SEQ 0050

3—0

20-APR-78 04:21

€ O

MACRO M1110

%%g?éAO LAOO DMT PROG

INT A REFERENCE LINE OF DASHES

THEN SKIP N LINES AND PRINT THE NUMBER OF LINES
SKIPPED, ALONG WITH SOME DASHES FOR VISUAL
REFERENCE. EACH SKIP COUNT N IS DONE TWICE FOR N
=1

T0 7. AT 6 LINES PER INCH.

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

FEEEEEEEEEEEEEE NN NN

012705

005037
004737
012705

012737
012705

49400 010160
49500 010162
49600 010170

010170
010174
010202
010210

49700 010214
49800 010220
49900 010224

50000 010230
010230
010234
010242
010250
50100 010254
010254
010260
010264
50200 010270
010270

0
50400 010320
010320
010324
010332
010340

001160

012705
113737

001164
001162
000020
031700
001162
041060
001166

062700
111037

004737

000055
000006
000020
032226

012705
005037
004737

000060
001174
032226

013705
005037
004737

001166
001174
032226

012705
005037
004737

037104
001174
031700

012705
113737
112737
004737

001164
001162
000020
031700

012705
012737
112737

MOV

MODE

?Ex

:83277.R5

JSR
CMP
BEQ
MOV
SENDR
MOV
MOvB
MOVR
JSR

MODE

PC,SEND
WORK ,#10
4%
WORK ,WORK 1
#WORKZ2,WORK1
#WORK2 ,R5
WORK1 ,MODE
#20 ,MODE +1

;SEND TEST ID

;BUILD SEND CALL USING MESSAGE ADDRESS

;SEND LINE OF DASHES

;BUILD SEND CALL USING MESSAGE ADDRESS

;NOW SEND THE MESSAGE
;ALL DONE ?
;YES= JUMP

;SEND LINE FEEDS

PC,SEND

MOV
ADD
MovB
SENDC2
MOV
MOV
MOvB

WORK1 ,RO
# .56160,R0
(RO) ,WORK3
#'-, 46
#'-,R5
#6 ,MODE
#20 ,MODE +1

;SEND 6 DASHES

SENDCH

#'0
#'0,R5

;AND A ZERO
;GET CHAR TO R5

PC, CHROUT
WORK3
WORK3 ,R5
MODE

SENDALL #MSG66
#MSG66 RS
MOV

sCALL CHAR OUTPUT ROUTINE
;AND THE NUMBER FROM ABOVE
:GET CHAR TO RS
:STD MODE
;CALL CHAR OUTPUT ROUTINE
sNOW RETURN CHAR
;BUILD SEND CALL USING MESSAGE ADDRESS

JSR
SENDR

;NOW SEND THE MESSAGE
;SKIP A LINE

JSR

MOV

CLR
JSR
SENDCH
MOV
CLR
JSR

3%:

sNOW SEND THE MESSAGE

CLR

001174
001175

PC,SEND

#1,WORK

MOV
#12 ,WORK?2
SENDALL #MSG124
MOV
#MSG124
RS

sNOW SEND THE MESSAGE
;SKIP 3 LINES

JSR

1%:

PC,SEND
SENDALL #MSG77

MOV

001160
001164

#MSG123 RS

CLR

JSR

040176
001174
031700
001160

013737

TEST10: SENDALL #MSG123

040141
001174
031700

037157
001174
031700
000001
000012

PC, CHROUT

MODE

PC, CHROUT

CLR

MODE

JSR

PC,SEND

PC,SEND
#WORKZ2,WORK1

sGET NUMERIC CHARACTER

;GET CHAR TO RS
;GET REPEAT COUNT
;SET REPEAT MODE
;CALL CHAR OUTPUT ROUTINE
:STD MODE

TESTS

50500 010344
010344
010350
010356
010364
50600 010370
010370
010374

51000 010440
51100 010444
51200 010446
010446
010452
010456
51300 010462
51400
51500
51600

012705
012737
112737
004737

000055
000006
000020
032226

012705
005037
004737

000060
001174
032226

013705
005037
004737

001166
001174
032226

012705
005037
004737
005237
004737
000642

037104
001174
031700
001160
034166

012705
005037
004737
000207

037157
001174
031700

20-APR-78 04:21

PAGE 19-1

SEQ 0051

SENDC2

#'-,46

sSEND 6 DASHES

MOVB
JSR

#20,MODE+1
PC, CHROUT

;CALL CHAR OUTPUT ROUTINE

MOV

#'0,RS

;GET CHAR TO R5

MOV
MOV

001174
001175

MACRO M1110

SENDCH
CLR
JSR

SENDCH

MOV

#'- RS
#6 ,MODE
#'0

MODE
PC , CHROUT

WORK3

WORK3,RS

CLR
MODE
PC, CHROUT
JSR
SENDALL #MSG66
#MSG66 RS
MOV
MODE
CLR
PC,SEND
JSR
INC WORK

PC,QUIET
1%

CLR
JSR

MODE
PC,SEND

JSR

4%:

SENDALL #MSG77
RS
#MSG77
MOV
RTS

;GET CHAR TO R5
;GET REPEAT COUNT
sSET REPEAT MODE

;STD MODE

;CALL CHAR OUTPUT ROUTINE

;GET CHAR TO R5

:STD MODE

;CALL CHAR OUTPUT ROUTINE
;SEND CR
;BUILD SEND CALL USING MESSAGE ADDRESS
;NOW SEND THE MESSAGE
;CHANGE NO OF LF'S
;SKIP 3 LINES

;BUILD SEND CALL USING MESSAGE ADDRESS

;NOW SEND THE MESSAGE

—

CZLAIAO LAQOO DMT PROG

51800
51900
52000
52100
52200
52300
52400
52500 010464
010464
010470
010474
52600 010500
52700 010504
52800 010512
52900 010516
53000 010520
53100 010526
53200 010530
53300 010536
53400 010540
53500 010542
53600 010550
53700 010556
53800 010564
53900 010566
010566
010572
010576
54000 010602
52100 010606

54200
54300 010610
54400 010616
54500 010624
010624
010630
010636
010644
54600 010650
54700 010656
54800
54900 010660
010660
010664
010670
55000 010674
55100 010702
55200
55300 010704
010704
010710
010714
55400 010720
55500 010724

55600 010730
55700 010734
55800

MACRO M1110

PAGE 20

20-APR-78 04:21

I A

SEQ 0052
AR EERERR

OQ?AL MOVEMENT

RN RN

TEST

EENE

EE NN

S ARE PRINTED AT RANDOM COLUMN POSITIONS
UNTIL THE LINE IS FULL. CONTROLLED BY THE
‘WIDTH"' AS DETERMINED AT STARTUP.

LU A

012705
005037

035573
001174
031700
010756
000001
001162

001160

001162
000012
001160

001164
001164
001164

001162
001160

012705
013737
112737
004737
013737
000412

000040
001166
000020
032226
001162

012705

034760
001174
031700
000001

163737

005037

001160

001162

013737

000110
001174

010512

PC, SEND

001172

034756
001174
031700
001160

TEST11: SENDALL #MSG28
#MSG28
RS
MOV
MODE

001162

012705
005037
004737
005337
000750

1%:

2%:

#COLTBL ,R3
#1,WORK

(R3)+,WORK1

9s
WORK1,WIDTH
18
WORK
1, WORK
8%
4%
WORK1,WORK?2
#12 ,WORK2
WORK
, WORK?2
BLO
6%
SENDALL #MSGO8
#MSGO8 RS
MOV
MODE
CLR
PC,SEND
JSR
DEC

WORK

;SEND TEST ID

;BUILD SEND CALL USING MESSAGE ADDRESS

;NOW SEND THE MESSAGE
;POINTER TO TABLE OF COLUMNS
sPRESENT POSITION

sDESTINATION POSITION
;BR IF END OF TABLE
: IN RANGE OF PAPER ?
;NO GET NEW DEST.
:IF DEST > POS THEN SPACE
:IF DECT = POS THEN PRINT X
;IF DEST < POS THEN
;IF DEST < POS=12 DO CR FIRST

s THEN SPACES

;ELSE BACKSPACE 1
;BUILD SEND CALL USING MESSAGE ADDRESS
;NOW SEND THE MESSAGE
;POS = POS-1

001174
001175

#40,WORK3
#40 RS
WORK
3 ,MODE
#20 ,MODE +1

001160

ggRK1.UORK

;CALCULATE # OF SPACES
;DEST = POSITION
s SEND SPACES
;GET CHAR TO R5
;GET REPEAT COUNT
;SET REPEAT MODE
sCALL CHAR OUTPUT ROUTINE
;POS = DEST

SENDALL
MOV
CLR
JSR
MOV
BR

#MSGO9
#MSGO9,R5

JSEND RETURN FIRST
;BUILD SEND CALL USING MESSAGE ADDRESS

SENDCH
MOV
CLR
JSR
JSR
INC
CLR
JMP

#'H

sPRINT AN H

PC,CHROUT
PC,QUIET
WORK

;CALL CHAR OUTPUT ROUTINE

001166
001166

4%:

WORK1,WORK3
WORK
, WORK 3

PC,CHROUT

6%:

001160
8%:

MODE
PC,SEND
#1,WORK

#'H,RS
MODE

WORK1
1%

;NOW SEND THE MESSAGE

;POS = 1

;GET CHAR TO RS
:STD MODE
sNEW POSITION

;GET NEW DEST COLMN

—

CZLAIAO LAOO DMT PROG

!TE STS

CZLAIAO LAOO DMT PROG
TESTS
55900 010740
010740
010744
010750
56000 010754

56100
56200
56300
56400 010756
010761
010764
010767
010772
56500 010773
010776
011001
011004
011007
56600 011010
011013
011016
011021
011024
56700 011025
011030
011033
011036
011041
56800 011042
011045
011050
011053
011056
56900 011057
011062

011065
011070
011073
57000 011074
011077
011102
011105
011110
57100 011111
011114
011117
011122
011125
57200 011126
011131
011134
011137
011142

57300 011143
011146
011151
011154

012705
005037
004737
000207
000012
035
200
156
01
176
151
167
204
001
141
166
140
025
136
075
165
162
142
014
106
037
171
002

077
172
202
022

052
061
017
066
111
163

174
004
177
064
123
164
007
067
003
055
203
110

072
057
117
100

MACRO M1110

20-APR-78 04:21

PAGE 20-1

9%:

SENDALL
MOV
(LR
JSR
RTS

037157
001174
031700

.RADIX 10
COLTBL: .BYTE

SEG 0053
#MSG77
#MSG77 ,RS
MODE
PC,SEND
PC

;SKIP 3 LINES
;BUILD SEND CALL USING MESSAGE ADDRESS
;NOW SEND THE MESSAGE

134
076
030
13

050
146
026
112

126
201
133
145

173
153
122
045

.BYTE

105,86,123,119,129,107,132,91,82,1,101,37,97

130
114
121
074

070
046
040
021

.BYTE

118,88,56,96,76,38,21,81,32,94,60,17,61

031
101
132
170

105
036
175
012

BYTE

117,25.69.114,65,30,98,90,125,12,120,10,70

016
006
015

027
043
010

BYTE

31,14,23,121,6,35,2,13,8,63,67,106,122

044
143

.BYTE

130,36,75,18,99,16,42,113,5,49,112,33,15

161
160

113
020
005
041

115
127
154

047
137
051

BYTE

54,77,39,73,87,95,115,108,41,124,48,19.4

065
135

.BYTE

127,53,103,52,93,85,83,50,43,116,59,57.7

062
073

147
125

053
071

107
157
116
034

104
144
013
124

.BYTE

55,71,68,3,111,100,45,78,11,131,28,84,72

042
033
155
150

054
024
102
120

BYTE

58,34,44,47,27,20,79,109,66,64,104,80,26

103

060

29,92,40,128,62,102,110,24,22.9.89,74,126

152

023

CZLAIAO LAOO DMT PROG
TESTS
011157

57400 011160
57500

57600

57700

032

063

000010

MACRO M1110

056

20-APR-78 04:21

000

.EVEN

PAGE 20-2

.RADIX 8

.BYTE

SEQ 0054
51,46,0

:
:
:

THIS TEST WILL FORCE THE TERMINAL TO TRANSMIT AN XOFF
BY JAMMING A SERIES OF TIME CONSUMEING MOVEMENT CHARS
INTO THE BUFFER , FOLLOWED BY ENOUGH CHARS TO FILL

TO 10 CHARS IT SHOULD SEND AN XON.

SRS NIRT

b abd ab ob

RN 33
-

62000

S BDBWW

elelelelelelelalelalelelelelolelolelelele]lele]

61900

— e
[P

61700

) d cd —d — —d —d —d —d ) d - —d —d —d —d —d wd b D
WU (R Y
— — " Yp——— Y
W
R
S g g
s s

Séttasadiaiinesas :

TS
A
eg

59700 011274
59800 011300

THE BUFFER. WHEN THE TERMINAL HAS EMPTIED THE BUFFER

"""" ::::::;::::::55:::::;::;:::::::::::::::::::::::;:::::::::;::::

TEST12: SENDALL #MSG

036126
001174
031700

012705
005037
004737

037070
001174
031700

012705
005037

036157
001174
031700
001152

001166

024546

001166

012705
005037
004737

036263
001174
031700

012705
004737
005037
012700
063700
020037

021450
033614
001160
024546
001160
001166

103034
105710
100006
042710

000200
000002

001160
036225
020346

007640
033614

JSR
PC,SEND
SENDALL #MSG61
RS
#MSG61
MOV

;sNOW SEND THE MESSAGE
;CLEAR ALL TAB STOPS
;BUILD SEND CALL USING MESSAGE ADDRESS

CLR
JSR

MODE

MODE
PC,SEND

SENDALL #MSG38
#MSG38,R5
MoV
CLR
JSR

MODE
PC,SEND

CLR

WORK3
#STOP,WORK3
#MSG41
#MSG41 RS
MODE

MOV
ASL
ADD
SENDALL
MOV
JSR
STALL
MOV
1$:

001160

2%:
3$:

JSR
CLR
MOV

ADD
cMP
BHIS
TSTB
BPL
BIC

001204

4%:

5%:

NUML
IN, WORK 3

PC,SEND
#9000
#9000. .R5
PC,MSTALL
WORK

#STOP,RO
WORK ,RO

sNOW SEND THE MESSAGE

JSET TABS AT (OL 1 & 132

;BUILD SEND CALL USING MESSAGE ADDRESS
;NOW SEND THE MESSAGE

;STUFF

THE BUFFER FULL

;BUILD SEND CALL USING MESSAGE ADDRESS
;NOW SEND THE MESSAGE
;SHOULD GET XOFF FROM ALL

sSETUP STALL TIME CONSTANT

;CHECK ALL LINES FOR XOFF

ggD

20 .WORK3
$
(RO)
;BIT7 SET ?
3%
;NO- POSSABLE ERROR
#8177, (RO)
1%.UORK
;OK= CHECK NEXT LINE

MOV
ADD

#DZLINE .R2
WORK ,R2

;IS LINE ACTIVE ?

BPL
BR
ASR

4%
2%
WORK

;YES= REAL ERROR NO XOFF
sNO- CHECK NEXT LINE
;GET REAL LINE NO.

MOV
JSR
HALT
ASL
BR
STALL
MOV
JSR

#MSG40,~(SP)
PC,ERRORT

;MSG ADDR FOR ERROR REPORT
;REPORT ERROR
;IF BIT15 IS SET
;RESTORE POINTER
sCHECK NEXT LINE
;WAIT FOR TERMINALS TO CATCH UP
sSETUP STALL TIME CONSTANT

TSTB

001160

012705
004737
000240

:BUILD SEND CALL USING MESSAGE ADDRESS

CLR

020626
001160

001160

#MSG37,R5

MOV

012705
005037
004737

001166

59600 011264

SEQ 0055

58000
58100

PAGE 21

—
m

20-APR-78 04:21

P
poL

MACRO M1110

M-

CZLAIAO LAOO DMT PROG

TESTS

MOV

(R2)

WORK
, ONL INE

WORK
2%
#4000.
#4000. ,R5
PC,MSTALL

CZLAIAO LAOO DMT PROG

TESTS

62100 011420
62200 011424
62300 011430
62400 011434
62500 011440
62600 011442
62700 011446
62800 011450
62900 011454
63000 011462
63100 011464
63200 011470
63300 011474
63400 011476

63500 011500
63600 011502
63700 011506

005037
012700
063700
020037
103037
032710
001406
042710
062737
000760
012702
063702
105712
100001

000765
006237
013737

MACRO M1110
001160
024546
001160
001166
000001
000002

001160
001160

9%:

020346

012705

034760

011550
64500 011554

004737
005037

031700
001160

64700 011564
64800 011570
64900 011574
65000 011576
65100 011602
65200 011610
65300 011612
011612

063700
020037
103006
042710
062737
000763

001160
001166

011616
011622
65400 011626

012700

012705

005037
004737
000207

7%:
8%:

004737
000000
006337
052712
000746

64600 011560

001160

020626
001160

63900 011520
64000 011524
64100 011526
64200 011532
64300 011536
64400 011540
011540

005037

6%:

000001

63800 011514 012746 036170

011544

20-APR-78 04:21

001204

001160
000200
15%:

001174

037070

001174
031700

16$:

001160
20%:

SEQ 0056

CLR
MOV
ADD
CMP
BHIS
BIT
BEQ
BIC
ADD
BR
MOV
ADD
TSTB
BPL

WORK
#STOP,RO
WORK RO
RO,WORK3
15%
#8170, (RO)
8%
#BIT0, (RO)
#2 ,WORK
6%
#DZLINE ,R2
WORK ,R2
(R2)
9%

;CHECK ALL LINES FOR XON

MoV

#MSG39, - (SP)

;MSG ADDRESS FOR ERROR REPORT

WORK
#BIT7,(R2)
7%
#MSGO9
#MSGO9,R5

;SEND <CR>
;BUILD SEND CALL USING MESSAGE ADDRESS

BR
ASR
MoV

JSR
HALT
ASL
BIS
BR
SENDALL
MOV
CLR

024546

000201
000002

PAGE 21-1

JSR
CLR

MOV

ADD
CMP
BHIS
BIC
ADD
BR
SENDALL
MOV
CLR
JSR
RTS

7%
WORK
WORK , ONL INE
PC,ERRORT

MODE

PC,SEND
WORK

#STOP RO

WORK RO
RO,WORK3
20%
#201, (RO)
#2 ,WORK
16$
#MSG61
#MSG61 RS
MODE

PC,SEND
PC

;HAS XON BEEN RECVD ?
;NO- POSSABLE ERROR
;CHECK NEXT LINE
;IS LINE ACTIVE ?
;TEST BIT 7
;YES ERROR, NO XON
sNO CONTINUE
;GET REAL LINE NO.
;REPORT ERROR NOW
;IF BIT15 IS SET
;RESTORE POINTER
;DESELECT LINE IT'S DEAD.

;NOW SEND THE MESSAGE

;CLEAR BITS 7 & 0 IN TABLE

;CLEAR THE FLAG BITS
;DO NEXT LINE
;CLEAR ALL TABS
;BUILD SEND CALL USING MESSAGE ADDRESS
sNOW SEND THE MESSAGE

CZLAIAO LAOO DMT PROG

TESTS

MACRO M1110

20-APR-78 04:21

100

PAGE 23

|
Rt a st sessestetteittseesvetecestbnstssstossstasseesid

CVERTICAL PITCI TEST
*SET UP FOR THIS TEST IS DOWN LINE LOADED FROM
“THE HOST. 6 LINES ARE PRINTED AT EACH OF THE FOLLOWING :
1 12.8.6,4,3, AND 2 LINES PER INCH.
33333332088 35283888888388088008808000880cbsteesssbbsebisesbsssossncinis

200
300
400
500
%

800 011630
011630
011634
011640
900 011644
011644

012705

037157

CLR
MODE
JSR
PC,SEND
SENDALL #MSG77
MOV
#MSG77.RS

011654

004737

031700

JSR

1100 011664
1200 011672
1300 011674
1400 011700
1500 011704
1600 011710
1700 011716
1800 011724
1900 011732
2000 011740
011740

023727
003111
005037
005037
005037
013737
013737
062737
062737

017705

000172

011750
2100 011754
011754

004737

031700

012705

000250

2200 011764
2300 011772
2400 011774
011774

023727
001445

001164

012705

037463

011650

1000 011660

005037
004737

TEST13: SENDALL #MSG110
MOV
#MSG110,RS

037737

005037

001174
031700
001174

001160

PC, SEND

012705
005037
004737

037565
001174
031700

012070
012074

012705
004737

000200
033614

MOV
JSR

2900 012070

012134
012136
012136
012134

WORK

005037
004737

004737

001164
012134
012136
001160
012134
012154
012140
001174

033614

001174

031700

012705
005037
004737

037513
001174
031700

012705

037537

004737

031700

017705

000070

004737

031700

005037

1$:

CLR

012000
012004
2500 012010
012010
012014
012020
2600 012024
012024
012030
012034
2700 012040
012040
012044
012050
2800 012054
012054
012060
012064

011760

005037

000012

MODE

CMP
WORK
, #12
BGT
48
CLR
WORK2
CLR
T17A
CLR
T178
MOV
WORK
, T17A
MOV
T17A.T178
ADD
#TABLVF,T178
ADD
#TABLV,T17A
SENDALL aT178
MOV
aT17B.R5
CLR
MODE
JSR
PC, SEND
STALL
#250
MOV
#250,RS
JSR
PCMSTALL
P
WORK2,
#6
BEQ
3s
SENDALL #MSG88
MOV
#MSG88 RS
CLR
MODE
JSR
PC, SEND
SENDALL #MSG89
MOV
#MSG8Y RS
CLR
MODE
JSR
PC,SEND
SENDALL #MSG93
MOV
#MSG93.RS
CLR
MODE
JSR
PC, SEND
SENDALL aT17A
MOV
aT17A,RS
CLR
MODE
JSR
PC,SEND
SENDALL #MSG98
MOV
#MSG98,RS
CLR
MODE
JSR
PC, SEND

011744

001160

CLR

001174

000006

28:

STALL

#200

#200,RS
PC,MSTALL

:SEND TEST ID
‘BUILD SEND CALL USING MESSAGE ADDRESS
:NOW SEND THE MESSAGE
*SKIP 3 LINES
*BUILD SEND CALL USING MESSAGE ADDRESS
:NOW SEND THE MESSAGE

:GET TABLE OFFSET

:BUILD SEND CALL USING MESSAGE ADDRESS
:NOW SEND THE MESSAGE
:SETUP STALL TIME CONSTANT

;PRINT MESSAGE LINE
*BUILD SEND CALL USING MESSAGE ADDRESS
:NOW SEND THE MESSAGE

:BUILD SEND CALL USING MESSAGE ADDRESS
:NOW SEND THE MESSAGE

;BUILD SEND CALL USING MESSAGE ADDRESS
:NOW SEND THE MESSAGE
:SETUP STALL TIME CONSTANT

SEQ 0057

T PROG

CZLAIAO LAOO

LTESTS

MACRO M1110

20-APR-78 04:21

PAGE 23-1

001164

000002
012705
005037
004737
000207
000000
000000
037520
037551
037623
040101

agb

3%:

#2 ,WORK
1%

MOV
CLR
JSR

#MSG77
RS

MODE

;NOW SEND THE MESSAGE

PC,SEND
PC

RTS

037555
040106
037616
037611

;SKIP 3 LINES
;BUILD SEND CALL USING MESSAGE ADDRESS

SENDALL #MSG77

4%:

037157
001174
031700

037561
037545
037635
037630

WORK2
2%

égc

001160

SEQ 0058

T17A:
T17B:

.WORD
.WORD

.WORD

000000
000000
MSG90,MSG97 ,MSG96,MSGI5 ,MSG9% ,MSG118

TABLVF:

.WORD

MSG104,MSG106,MSG103,MSG117,MSG105,M5G102

TABLV:

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

JPRINTER BELL T EST
THIS TE ST WILL ISSUE 8 BELL CODES, WITH A DELAY
.1 SEC BETWEEN EACH BELL.
oF
3

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

PR RN

4900 012170
012170

012174
012200
5000 012204
5100 012212
5200 012216
5300 012224
012224
012230
012234
5400 012240
012240
012244
5500 012250
5600 012254
5700 012256

112737

040112
001174
031700
000010
001164
000007

012705
005037
004737

001164
001174
031700

012705
004737
005337
001363
000207

000100
033614
001160

012705

TEST14:

001160
001164

1%:

SENDALL
MoV
CLR
JSR
MOV
CLR
MOVB

#MSG120
#MSG120,R5
MODE
PC,SEND
#10,WORK

WORK?2

RTS

;SEND TEST ID

;BUILD SEND CALL USING MESSAGE ADDRESS

sNOW SEND THE MESSAGE
;8 BELL COUNT

#7 ,WORK2

SENDALL #WORK2

MOV
CLR
JSR
STALL
MOV
JSR
DEC
BNE

#WORK?2
RS

MODE
PC,SEND
#100
#100,R5
PC ,MSTALL
WORK
1%
PC

;BUILD SEND CALL USING MESSAGE ADDRESS
;NOW SEND THE MESSAGE

;SETUP STALL TIME CONSTANT

CZLAIAO LAQO DMT PROG

TESTS

5900
6000
6100
6200
6300
6400
6500
6600
6700
6800
6900
7000

PAGE 24

SEQ 0059

I FEEEFENFEREE R

KEYBOARD TEST

THIS TEST WILL REQUIRE THE OPERATOR TO TYPE ALL
THE PRINTING KEYS ON THE KEYBOARD. IF ANY KEYS ARE
NOT SEEN BY THE PROGRAM THEY WILL BE REQUESTED
AGAIN, AND A THIRD TIME IF NECESSARY.
INSTRUCTIONS WILL BE TYPED TO PRESS THE SHIFTS
CAPS-LOC, ECS, AND FUNCTION KEYS.
FIVE SECONDS IS ALLOWED PER KEY .

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

001204
001204
001160
001160
001204

7200 012264
7300 012272
76400 012276
7500 012302
7600 012310

001160

001152

014370
020626

7700 012312
7800 012316
7900 012322

8500 012406
8600 012414
8700 012422
8800 012426
012426

20-APR-78 04:21

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

7100 012260

8000 012324
8100 012330
8200 012332
012332
012336
012344
012352
8300 012356
8400 012362
012362

MACRO M1110

001204

012705
112737
113737
004737
005037

041130

012705

040226
000010
001204
031700

112737
113737

004737
012737
042737
004737

012705

2%:

001175
001174

9200 012452

9300 012456

3%:

7%:

001170

8%:

000002
100000

113737

001170

012705
112737

001162
000010

001162

001175

CLR
MOV
ASL
MOV
CMP
BLO
JMP
TSTB

ONL INE
ONL INE , WORK
WORK
WORK ,R2

INC
BR

ONL INE
1%
#MSG164
,0NL INE

ONtINE NUMLIN
+

END22

D%LINE(RZ)
2

RS
#MSG164

9%:

;ALL DONE

JYES EXIT

;1S THIS LINE SELECTED ?
;YES DO TEST
sNO GET NEXT LINE NO
;SEND TEST ID

;MESSAGE ADDRESS TO RS

;SET SINGLE LINE MODE
;SELECTED LINE NO.

FLAG21

;CLEAR TEST FLAG BITS
sPRINT INSTRUCTIONS
;MESSAGE ADDRESS TO R5
LINE MODE
SINGLE
;SET
;SELECTED LINE NO.

#6$ ,HOOK

#B8I1T11,FLAG21

;SET CURRENT LINE TO ZERO

#10,MODE
+1
ONL INE ,MODE

;LINKAGE TO RECV ROUTINE
JRESET LEFTOVER FLAG

PC,QUIET
#5000.
#5000. ,RS

;5 SECOND TIMEOUT
;SETUP STALL TIME CONSTANT

221713.FLA621

;CHAR IN SET ?

#KEYTBL ,R3

;POINT TO KEY TABLE
sALL DONE ?

g%.lKEYEND
PC,T21E
ERROR

013772
001110

9400 012460

PC ,MSTALL

0714302

014140
014300

9100 012446

#10 ,MODE +1
ONL INE ,MODE

011610

033614
020000

#MSG140,0NL
INE
#MSG140,RS

001175
001174
001140
014302

PC,SEND

014302

012734
004000
034166

3%
CHARIN, (R3)

9%
#2,R3
7$

#BIT15, (R3)
CHARIN,WORK1

#WORK1 ,ONL INE

#WORK1 RS

#10,MODE
+1

:NO
;REPORT ERROR.....

;COMPARE TO TABLE

;POINT TO NEXT ENTRY
;KEEP LOOKING
;SET CHAR IN FLAG
;ECHO THE CHARACTER

;MESSAGE ADDRESS TO RS
;SET SINGLE LINE MODE

CZLAIAO LAOO DMT PROG

TESTS

012532
012540
10400 012544
10500 012552
10600 012554
10700 012560
10800 012564
10900 012566

113737

001204
031700
010000

001174
014302

013010
014302

4%:

012705
112737
113737
004737

040565
000010
001204
031700

001175
001174

012705
112737
113737
004737

041160
000010
001204
031700

001175
001174

012705
112737

040514
000010
001204
031700
000200
001110
013374

113737

004737
042737
005237
000137

012705

112737

113737

040452
000010
001204
031700
000200

20-APR-78 04:21

MACRO M1110

PAGE 24-1

MOvB
JSR
BIT
BEQ
JMP
TSTB

SEQ 0060
ONL INE ,MODE
PC,SEND

#B81T12,FLAG21
3%

;CHECK FOR DONE BIT

FLAG21
5%
#MSG146,0NL
INE
#MSG146,R5
#10,MODE
+1

sFIRST TIMEOUT ?
;YES TRY AGAIN

118

PC,SEND

#MSG165,
ONL INE
#MSG165,R5

;ELSE TIMEOUT ERROR
sNO SPACE MSG.....

;MESSAGE ADDRESS TO R5
;SET SINGLE LINE MODE
;SELECTED LINE NO.

:MESSAGE ADDRESS TO RS

#10,MODE
+1
ONL INE ,MODE
PC,SEND

:SET SINGLE LINE MODE
:SELECTED LINE NO.

#10,MODE
+1
ONL INE ,MODE
PC,SEND

;SET SINGLE LINE MODE
sSELECTED LINE NO.

#MSG143,
ONL INE
#MSG143,R5

001175
001174

;SELECTED LINE NO.

;MESSAGE ADDRESS TO RS

#B1T7 ,FLAG21

014302
5%:

001175
001174

014302

SENDI

MOV
MOVB
MOvVB
JSR

BIS
BR

ERROR
17%

#MSG142,0NL
INE
#MSG142
RS
#10,MODE
+1
ONL INE ,MODE
PC,SEND

;GO TO SECTN-2

JHIT ©PACE MSG.....

;MESSAGE ADDRESS TO RS

;SET SINGLE LINE MODE
;SELECTED LINE NO.

#8177 ,FLAG21
3%

;SET 2ND TRY FLAG

LOOPO
WORK1

JRESET TIMEOUT COUNT

_——d

200 012734

12300 012740
12400 012744
12500 012750
12600 012754
12700 012762

001146
001162
177600
001170

000040

014302
108

§ §2583s8

033364

014302

111%

BIC
MOV
BIS
CMPB
BEQ
JSR
RTS
NOP

B!S
BR

#177600,R5
R5,CHARIN
#BIT13,FLAG21
RS, #40
1118

;CLEAR PARITY BIT

;SET CHAR IN FLAG
;1S CHAR A SPACE ?

PC,KBOUT
PC

;REMOVE CHAR FROM BUFFER

#BIT12,FLAG21
108

;SET DONE FLAG

D i

010000

CLR
CLR

b
-

037154
000010
001204
031700

B8B88S
ERNROO

22232

; LEFTOVERS SCAN ROUTIN
SENDI

MOV
MOVB

MovB
JSR

#MSG75,0NL
INE

#MSG75 ,R5
#10,MODE
+1

ONL INE ,MODE
PC,SEND

s CRLF

:MESSAGE ADDRESS TO RS
;SET SINGLE LINE MODE
sSELECTED LINE NO.

CZLAIAO LAOO DMT PROG

TESTS

13900 013034

012703

MACRO M1110
014140
010C00
001162
014300

001160
004000
114337

041073

012705

041073
000010
001204
031700
034166
000002

WWWWW

8383

x\.nun_l.\
v

—_ e

013

004000

012705

112737
113737

16000 013212
16100 013220
16200 013226
16300 013234
16400 013236

013256
16500 013262
013262
013266
013274

013302

005237
013737
042737
023727
003026

040514
000010
001204
031700
014276
100000
014302
014302
177770
001160

012705
112737
113737
004737

040550
000010
001204
031700

012705

040416
000010
001204
031700
012406

112737
113737

004737
000137

012746
004737
000000
012703
042723
020327
103773
005037

040514
020346

012705
112737
113737

037157
000010
001204

014140
100000

014300
014302

20-APR-78 04:21

014302
12%:

PAGE 24-2

MOV
BIC
CLR
CMP
BEQ
TST
B8M]

,R3
#KEYTBL
#BIT12,FLAG21
WORK1
R3,#KEYEND
13%
(R3)+
12%

;POINT TO TABLE

BIS
DEC
MOvB
SENDI
MOV
MovB

#BIT11,FLAG2T
R3
-(R3) ,MSG162
#MSG162,0NL
INE
RS
#MSG162
+1
#10,MODE

;SET LEFTOVER KEY FLAG

ADD
BR
BIT
BEQ
SENDI
MOV
MOVB

#2 ,R3
12%
#BI1T11,FLAG2T
15%
INE
#MSG143,0NL
#MSG143 ,R5
#10,MODE
+1

;GET NEXT TABLE ENTRY
;KEEP SCANNING FOR LEFTOVERS

(LR

014302

MovB
JSR
JSR

13%:

SEQ 0061

MovB
JSR

WORK

ONL INE ,MODE
PC,SEND
PC.QUIET

ONL INE ,MODE
PC,SEND

;DONE YET ?

;YES ..GO TO 13%
;CHECK CHAR IN FLAG(BIT 15)

;PUT CHAR IN MSG
sAND TYPE IT OUT

;MESSAGE ADDRESS TO RS

;SET SINGLE LINE MODE
;SELECTED LINE NO.

sANY LEFTOVERS ?

sNO GO CLEAN THE TABLE ETC.
;NOT SEEN MSG.....
;MESSAGE ADDRESS TO R5
;SET SINGLE LINE MODE
;SELECTED LINE NO.

MOV
BIC
INC
MOV
BIC
cMP
BGT
SENDI

-2
#KEYEND,R3
#BIT15, (R3)
FLAG21
FLAGZ21,WORK
#-8. ,WORK
WORK ,#3
148
#MSG144,ONL
INE

MOVB

#10,MODE+1

;MESSAGE ADDRESS TO RS
LINE MODE
SINGLE
;SET
sSELECTED LINE NO.

INE
#MSG145,0NL

;HIT SPACE LAST MSG.....

#10,MODE+1

sSET SINGLE LINE MODE
;SELECTED LINE NO.

MOV

MOVB
JSR

SENDI

#MSG144 RS

ONLINE,MODE
PC, SEND

MOV

#MSG145.RS

MOVB
JSR

ONLINE,MODE
PC, SEND

MOVB

JMP

JSR
HALT

MOV
BIC
CMP
BLO
CLR
SENDI
MOV
MOvVB
MOVB

JRESET SPACE

IN FLAG

;OPERATOR GETS THREE TRIES

;3 STRIKES YOU'RE OUT !!!

:TRY AGAIN MSG.....

;MESSAGE ADDRESS TO RS

#MSG143.<(5P)
PC,ERRORT

#KEYTBL ,R3
#BIT15,(R3)+
R3 ,#KEYEND
16%
FLAG2]
INE
#MSG77,0NL
RS
#MSG77
+1
#10,MODE
ONL INE ,MODE

sNEVER RECVD

ERROR MSG....

;CLEAN THE TABLE FLAGS

;SKIP 3 LINES
;MESSAGE ADDRESS TO RS
;SET SINGLE LINE MODE
;SELECTED LINE NO.

CZLAIAO LAOO DMT PROG

TESTS

013366

004737
000240

SEQ 0062

031700

fiF i EabSbt
E
012737
012703
012704
012737
005777

014304
014312
014352
013740
165542

001166

L CTLTBL ,WORK3

001140

#CODTBL
R4
#22% ,HOOK

#SHITBL-2,R3

19%:

000002

001166

000200

014302

012705
112737
113737
004737

040641
000010

017705

165452

001204
031700

001175
001174

000010
001204
031700

001175
001174

112737
113737

000010
001204
031700
034166

001175
001174

012705

011610
033614
014302

012305
112737
113737
004737

000010
001204
031700

012705
112737
113737
004737

040514
000010
001204
031700

#2 . WORK3
18%

#B1T7,FLAG21

#MSG150,
ONL INE

#MSG150.RS
#10,MODE +1
ONL INE ,MODE
PC.SEND

3, ONL INE
aWORK
aWORK3.RS
#10,MODE
+1
ONL INE ,MODE
PC, SEND

(R3) .RS
#10 ,MODE +1
ONL INE ,MODE

PC, SEND
PC.QUIET
#5000.

FLAG21

21%

#MSG146,
ONL INE

#MSG146.RS

#10 ,MODE +1
ONL INE ,MODE

TEST

SHITBL ?

;CLEAR DONE FLAG
s SEND INSTRUNTIONS

;MESSAGE ADDRESS TO R5

;SET SINGLE LINE MODE
;SELECTED LINE NO.

;SEND INSTRUCTION #2
;MESSAGE ADDRESS TO RS
;SET SINGLE LINE MODE
;SELECTED LINE NO.

sMESSAGE ADDRESS TO RS

;SET SINGLE LINE MODE
;SELECTED LINE NO.

;WAIT 5 SECONDS
sSETUP STALL TIME CONSTANT
;DONE FLAG SET
;YES BRANCH

;ERROR DIDN'T RECV CHAR
;MESSAGE ADDRESS TO RS
;SET SINGLE LINE MODE
;SELECTED LINE NO.

#2°R3

(R$)+,ONL
INE

(R3)+.RS
#10,MODE
+1
ONL INE , MODE
PC, SEND
NN
FNWY

162703

040565
000010
001204
031700
000002

20%:

:END OF

PC,MSTALL

20200 013576
20300 01

(R3)

208

;YES EXIT

#5000. RS

—

004737
004737

—_—

011305

#2,R3

(R3) ,ONLINE

004737

JEND OF CTLTBL

sSELECT NEXT LINE

001204
012264
000002

112737
113737

013544
013552
19900 013556
20000 013562
013562
013566
20100 013572

PAGE 24-3

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

— i

<
8

——

§3585288 g\l

700 013372

20-APR-78 04:21

MACRO M1110

#MSG143,
ONL INE
#MSG143.RS
#10,MODE
+1
ONL INE , MODE
PC, SEND

;MESSAGE ADDRESS TO RS
;SET SINGLE LINE MODE
sSELECTED LINE NO.

;MESSAGE ADDRESS TO RS
;SET SINGLE LINE MODE
;SELECTED LINE NO.

CZLAIAO LAOO DMT PROG

TESTS

20700 013676
20800 013702
20900 013706
21000 013710
21100 013712
21200 013714
21300 013720
21400 013722
21500 013726
21600 013730
21700 013734

005237
005737
100253
000000

24300 014

24400 014136
24500
24600
24700 014140

014146
014154
014162
24800 014166

PAGE 24-4

001110
001116
21%:

JHALT ON ERROR ?

NOP
(MPB

%g:RIN.(R4)*

;CHECK FOR CORRECT CODE

JSR

22.7215

;CALL ERROR ROUTINE

SuB
JMP

#2,R3
19%

BPL
HALT

BEQ

DEC

000002
013436

SEQ 0063
ERROR
SO
19%

INC
TST

013772

;IF BIT 15 SET

: CODE CHECKER ROUTINE
000200

177600
001170

014302

22%:

23%:

001146
033364

NOP
BIS
BIC
MOV

CLR
JSR

RTS

:BAD CHAR COD

032737
001056
013737

113737

012705
112737

113737

24200 014066

20-APR-78 04:21

001170

221
22200 013740

22300 013742
22400 013750
22500 013754
22600 013760
22700 013764
22800 013770
22900
23000
23100
23200
23300 013772
23400 014000
23500 014002
23600 014010
23700 014014
23800 014020
23900 014026
24000 014034
24100 014042
014042

MACRO M1110

004737
012705
112737
113737

004737
012705

020000

001116

001170
020574
033646
020577
020600
020601

001134
040716
040717
040720

040565
000010
001204
031700

001175
001174

040600
000010
001204
031700

001175
001174

040716
000010
001204
031700

C00055
000060
000063
000047
000066

T21E:

LOOPO

;TURN OFF TIMER

PC,KBOUT
PC

MOV
MOV
JSR
MOvB
MOVB
MOVB

CHARIN,TEMP

SENDI

;CLEAR PARITY BIT

ROUT INE

52£T13,SO

MOV
MOVB
MOVB
JSR

#EBUF RS
PC.BIOCT

EBUF +3,MSG149
EBUF +4 ,MSG149+1.
EBUF +5 ,MSG149+2.

#MSG146,0NL
INE

#MSG146,RS
#10 ,MODE+1

ONL INE ,MODE
PC,SEND

:CHECK SW 13

;SET UP CONVERTER
:CONVERT TO ASCII

:MESSAGE ADDRESS TO RS

;SET SINGLE LINE MODE

;SELECTED LINE NO.

SENDI]
MOV
MOVB
MOVB
JSR

#MSG148,0NL
INE

#MSG149 RS

26%:

MOV
MOVB
MOVB
JSR
RTS

KEYTBL:

.WORD

54,55,56,57,60,61,62,63,64,73,47

.WORD

65,66,67,70,71,75,133,134,135

001175
001174

000067

;SET DONE FLAG

#177600,RS
RS,CHARIN

gfig

SENDI

000056
000061
000064

;JGET CHAR FROM FIFO

#8177 ,FLAG21

#MSG148 RS
#10,MODE +1

ONL INE ,MODE
PC,SEND

#MSG149,0NL
INE
#10,MODE+1

ONL INE ,MODE
;E.SEND

:MESSAGE ADDRESS TO RS

;SET SINGLE _INE MODE

:SELECTED LINE NO.

:ME SSAGF ADDRESS TO RS

:SET SINGLE LINE MODE

;SELECTED LINE NO.

CZLAIAO LAOO DMT PROG

TESTS

014174
014202

000070
000133

014216
014224

000143
000146

24900 014210

25000 014230

014236

MACRO M1110
000071
000134

000075
000135

000144
000147

000145

000140

000141

000150

000151

000153

000154

014244

000156

000157

014256
014264

000163
000166

000164
000167

014276

000040

25100 014250
25200 014270

000160
000170

041202

32988 014344

041226

26300
26400

014363
014366

26500 014370
26600 014374
26700 014400
26800 014404
26900 014410
27000

101

015
012

044
000

005037
005037
005037
005037
000207

150,151,152,153,154,155,156,157
:

170,171,172,40

25900 014330

014355
014360

.WORD

000155

.WORD

040722

26200 014352

000152

000172

25800 014314

041226

140,141,142,143,144,145,146,147

000171

040674

014336

.WORD

160,161,162,163,164,165,166,167

041232

041047

000142

.WORD

25600 014304

014322

SEQ 0064

000162

000000
000000

000000

PAGE 24=5

000161

25300 014300
52288 014302

25700 014312

20-APR-78 04:21

000165

KEYEND: .WORD
FLAG21: .WORD

O
O

040776

CTLTBL: .WORD

MSG170,MSG156,MSG157,0

040652

041041

SHITBL: .WORD

MSG151,MSG152,MSG158,MSG159,MSG154
,MSG166

041215

000000

.WORD

MSG167,MSG168,000000,M5G169,MSG153,000000

000000

.WORD

MSG169,MSG153,000000

102

011

CODTBL: .BYTE

104

064

040753
040747

040747

020
177

041166

000000

010
104

101,102,011,015,020,010,012,177,104,044,104,064.0

.EVEN

001146
001204
014302
001140

END22:

CLR
CLR
CLR
CLR
RTS

LOOPO
ONL INE

FLAG21

HOOK
PC

27200
27300
27400
27500
27600
27700
27800
27900

28000 014412
28100 014416

28200 014422
28300 014426
28400 014430
28500 014436
28600 014440
28700 014444
28800 014450
28900 014452
29000 014456
29100

29200 014460
014460
014464
014472
014500
29300 014504
29400 014512
29500 014516
014516
014522
29600 014526
29700 014534
29800 014536
014536
014542
014550
014556
29900 014562
30000
30100 014564
30200 014570
30300 014576
30400 014600
30500 014604
30600 014612
30700 014620

MACRO M1110

PAGE 25

SEQ 0065

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

'll.l.’.l'.l'

""0.0'

."“’."O‘l"l'.l.’.'lll'll.'l'l"..

€ “OEECHO TEST
; CHARACTER
THIS TEST WILL ECHO THE OCTAL CODE OF THE CHARACTER
:

RECIEVED, ALONG WITH THE CHARACTER IF IT IS PRINTABLE.
IF NONPRINTABLE THE MNEMONIC WILL BE RETURNED.
TYPE A DELETE TO EXIT THIS TEST.

:
:
H

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

005037
005037
013700
006300
023737

001204
014302
001204

000137

015146
020626

103402

105760

100003
005237
000761

012705

112737
113737

001204

035310
000010
001204
031700
015164
034166
010000
033614
000004

012705
112737
113737
004737
000753

042152
000010
001204
031700

014302
001170

001160
001170

040716
000010
001204
031700

EEEEERENEENE

TEST21: CLR ONLINE
CLR FLAG21

1$:
001152

48:

001204

016325

014676
31400 014702

20-APR-78 04:21

MOV

ONL INE ,RO

CMP

ONLINE,NUMLIN

ASL

BLO
JMP

TSTB
BPL
INC

B8R
2%:

MOVB
MOVB

001175
001174
001140

SENDI
MOV
JSR

3$:

MOV

001160
001134

040716
040717
040720

;SU FOR LINE O
:MAKE WORD OFFSET TO TABLES

:DONE YET ?

DZLINE(RO)
28
ONL INE

;1S LINE SELECTED ?
*YES- GO TEST LINE
*NO- TRY NEXT LINE

#MSG18,ONLINE
#MSG18.RS

;SEND TEST ID MSG
:MESSAGE ADDRESS TO RS

#10,MODE+1
ONLINE,MODE
PC, SEND

#308
, HOOK

;SET SINGLE LINE MODE
;SELECTED LINE NO.

#BiT2.FLAG21

:CHAR RECVD FLAG SET ?

MOVB
MOVB

#MSGK3,ONLINE
#MSGK3.RS
#10,MODE+1
ONL INE ,MODE

JSR

5%:

BIT

BR
000177

:WAIT FOR PRINTING TO FINISH
“THEN WAIT 10 SECONDS
:SETUP STALL TIME CONSTANT

BNE
SENDI
MOV

001175
001174

4$
208

PC, ouxsr
#10000
#10000,RS

JSR
STALL
MOV
JSR

014302

CLR
(MPB

BEQ

PC,MSTALL

PC, SEND

FLAG21
CHARIN, 4177

108

WORK

JSR

PC.BIOCT

MOVB

;SET SINGLE LINE MODE
;SELECTED LINE NO.

CLR

MOVB
MOVB
CLRB
MOV

*YES GOTO 5
:NO- PROMPT OPERATOR
:MESSAGE ADDRESS TO RS

CHARIN,WORK
WORK,TEMP
TEMP+1
#T30BUF RS

T30BUF+3,MSG149

:DELETE CHAR ?
:YES JUMP TO 10

:SAVE CHAR
‘SU TO CONVERT TO OCTAL/ASCII

:CONVERT & STORE AT T30BUF

MOVB

T30BUF +4.MSG149+1

SENDI

#MSG149,0NLINE

MOVB

MOV
MOVB
MOVB
JSR

SENDI

T30BUF +5.MSG149+2

#MSG149 RS
#10,MODE+1
ONLINE, MODE
PC, SEND

#MSG115,ONLINE

;SEND OCTAL DATA

:MESSAGE ADDRESS TO RS

:SET SINGLE LINE MODE
:SELECTED LINE NO.

;AND AN ‘="'

CZLAIAO LAOO DMT PROG

TESTS

CZLAIAO LAOO DMT PROG

TESTS

014702
014706
014714
014722
31500 014726
31600 014732
31700 014740
31800
31900 014742
32000 014746
32100 014750
32200 014754
32300 014760
32400 014764
32500 014770
32600 014772
32700 014776
32800 015000

012705
1

015040

20-APR-78 04:21

PAGE 25-1

#10,MODE +1

ONL INE ,MODE
PC, SEND
PC,QUIET

WORK , #40
7

6%:

WORK

WORK ,R3

:gcss(as).(a4>+

;SELECTED LINE NO.

;PRINTABLE CHARACTER ?
*YES- GOTO 7

:CODE *3 FOR TABLE OFFSET

035747

:%GBS(R3).(R4)¢

116314

035747

012705
112737

040716
000010
001204
031700

MSG33(R3),(R4)
#MSG149, ONL INE

;GET MNEMONIC CHARS
:PRINT CHAR MNEMONIC

001175
001174

#10,MODE +1

:SET SINGLE LINE MODE

113737

001170

037114

012705
112737

037114
000010
001204
031700
040000

004737
000415

#MSG149.RS

ONL INE ,MODE

037157
001174
031700

005037
052737
042705
010537
004737
000207

001146
000004
177600
001170
033364

;SELECTED LINE NO.

7$:

CHARIN,MSG70

#MSG70
. ONL INE

#MSG70.RS

#10,MODE +1

001175
001174
031560

ONL INE , MODE
PC, SEND

PC,ERRORT

#MSG75
., ONL INE

9%:

#MSG75 .RS

:
108

:
308

;SELECTED LINE NO.

:IF BIT 15 SET IN SWR
:MESSAGE ADDRESS TO RS

STEST NEXT LINE

SENDALL #MSG77
:ggg??.RS
CLR
JSR
$E'SE“°

RTS

:NO CALL ERROR RTN.

?§L1~e

MOV

CLR
BIS
8IC
MOV
JSR

:PARITY OK ?

;SET SINGLE LINE MODE

RTS

014302

:MESSAGE ADDRESS TO RS

;SET SINGLE LINE MODE

#10,MODE+1

ONL INE ,MODE
gg.SEND

20%:

;ECHO RECV® CHARACTER

ggxr14.aecenn<no>

8%:

#MSG15,-(SP)

037154
000010
001204
031700
014512
001204
014422

012705
005037
004737
000207

*MESSAGE ADDRESS TO RS

PC, SEND

035201
020346

35100 015202
35200 015206
35300 015212

:MESSAGE ADDRESS TO RS

:SET SINGLE LINE MODE

#MSG149
R4
R3
WORK ,R3

001160
001160
001160
035747

33400 015064

344
34500 015146
015146
015152
015156
34600 015162
34700
34800 015164
34900 015170
35000 015176

SEQ 0066

#MSG115,RS

040043
000010
001204
031700
034166
001160
040716

113737

33100
33200 015032
33300 015040

MACRO M1110

LOOPO
#BIT2,FLAG21

#177600,RS

;SELECTED LINE NO.

:BUILD SEND CALL USING MESSAGE ADDRESS

:NOW SEND THE MESSAGE
:ABORT TIMEOUT
:SET CHAR RECVD FLAG

RS, CHARIN
PC .KBOUT

:TO RECV RTN.

%gg?éAO LAOO DMT PROG
35500
35600
35700
35800
35900
36000
36100

36200

MACRO M1110

20-APR-78 04:21

PAGE 26

SEQ 0067

$03332333223a38a3288388880s3003338338383330333333383333880838%43338
; PITCH SETUP TEST
:
THIS TEST WILL REQUIRE THE OPERATOR TO ENTER
3
SETUP MODE, AND CHANGE THE MODE TO THAT SPECIFIED.
:
A LINE OR LINES OF DATA WILL BE PRINTED AND
3
SHOULD BE AT THE NEW PITCH.
!

36300 015214
36400 015¢20
36500 015224
36600 015230

36700 015236
36800 015242
36900 015244
37000 015252
37100 015254
37200 015260
37300 015262
37400 015266
37500 015270
015270
015274
015302

015310

37600 015314
37700 015320

37800 015326
37900 015330

38000 015334

38100 015336
015336
015342
015350

3333833883333833383333333333338383233333333358883483333338383833338

005037
012701

005037
012737

013700
006300
023737
001550
105760
100003
005237
000763

001204
015622

001160
015602

001140

001204

001152

001204

005037
023727

001164
001164

000740

000010
001204
031700

041403
000010
001204

38200 015362
38300 015366
38400 015370

013701
006301

001164

015374
015402
015410
38500 015414

112737
113737
004737

004737

031700

015370

016105

015622

015414
015420
015426

012705
112737
113737

041462
9000010
001204

015434
38600 015440

38700 015446

015446
015452
38800 015456
38900 015462
39000 015464
39100 015470
39200 015472
39300 015476

004737
012737

012705
004737
005737
001420
105761
100410
012746
004737

ONL INE RO
RO
ONL INE ,NUML IN
108
DZL INE (RO)
2%
ONL INE
1%
#MSG320,0NL
INE
#MSG320,RS
#10,MODE +1
ONL INE ,MODE

001175
001174

000012

CLR
CMP

2%:

JSR

3%:

001204

012705
112737
113737

015356

1%:

CLR
MOV
MOV
ASL
CMP
BEQ
TSTB
BPL
INC
BR
SEND]
MOV
MOVB
MOVB

001204

041722

002403
005237

ONL INE
#TABLZ24
,R1

020626

012705

112737
113737
004737

TEST22: CLR
MOV

00210
001204
031700

031700
177777

035230
033614
001136
024546

036225
020346

A ¥
001175
001174

B8R

;DONE ALL LINES ?
JYES JUMP
:ACTIVE LINE ?
:YES= START TESTS
:NO= TRY NEXT LINE

:SEND TEST ID
:MESSAGE ADDRESS TO RS
;SET SINGLE LINE MODE
;SELECTED LINE NO.

WORK?2
WORKZ2 ,#10.

:SUBTEST O OF 9
;DONE 10 YET?

4 3
ONL INE

:NO KEEP TESTING
:YES GET NEXT LINE

MOV
ASL
SENDI

WORKZ .R1
R1
TABL24 (R1) ,ONL INE

MOVB
MOVB
JSR
SENDI

#10,MODE+1
ONL INE ,MODE
PC,SEND
#MSG304,ONL
INE

JSR
MOV

PC,SEND
#-1_NOTYET

MOV
MOVB
MOVB

5%:

PC,SEND

;SET INTR CATCHER

#MSG303,O0NL
INE
#MSG303,RS
#10,MODE+1
ONL INE ,MODE

MOV

001175
001174

WORK
#11% ,HOOK

SEND]
MOV
MOVR
MOVB
JSR

001175
001174

001136

BLT
INC

;START ON LINE O

STALL

MOV
JSR
TST
BEQ
TSTB
BM]
MOV
JSR

PC,SEND

TABL24(R1) ,RS

#MSG304 RS
#10 ,MODE+1
ONL INE ,MODE

#15000.

#15000. ,RS
PC, MSTALL
NOTYET
7%
STOP(R1)
6%
#MSG40,~(SP)
PC.ERRORT

:SEND INSTRUCTIONS
:MESSAGE ADPDRESS TO RS
:SET SINGLE LINE MODE
;SELECTED LINE NO.
:POINT TO MSG TABLE
:SEND MSG FOR SUBTEST

:MESSAGE ADDRESS TO RS

;SET SINGLE LINE MODE
;SELECTED LINE NO.

:MESSAGE ADDRESS TO RS
;SET SINGLE LINE MODE
JSELECTED LINE NO.
;GETS CLEARED BY XON MSG

SALLOW SETUP TIME 15 SEC

;SETUP STALL TIME CONSTANT

;SEEN XON YET ?
:YES CONTINUE
:LINE SELECTED ?
:YES WAIT MORE TIME
:REPORT ERROR

CZLAIAO LAOO DMT PROG

TESTS

39400 015502
39500 015504
39600 015510

000000
005237
000652

001204

105062
000137

024546
015446

39700 015512

000240

40000 015524
40100 015526
40200 015532

000240
005761
001414

39800 015514
39900 015520

40300 015534

MACRO M1110

016105
112737

015650
000010

015554

004737

031700

113737

001204

40400 015560

004737

034166

40600 015570
40700 015574

000137
005037

015320
001140

40500 015564

40800 015600

40900
41000

005237

000207

122705
001004

000021

41400 015614

005037

001146

41300 015610

41500 015620

41700

005037

000207

7%:

001174

108:

118:

001136

041541

041553

041565

41900 015636

041611

041527

041647

42100 015650

037642

42200 015662

042010

042030

042050

015644

015656

015670

041577

041635
037642

042060

041661

000000
041750

042070

CLRB
JMP

STOP(R2)
5%

SENDI

TAB24B(R1)
9%
;YES
TAB24B(R1)
,ONL INE

JUMP
;SEND THE MSG

MOVB

ONL INE ,MODE

;SELECTED LINE NO.

NOP

NOP
TST
BEQ

JSR

041623

000000

TAB24B(R1) RS
#10,MODE +1

;IF SW 15 SET
:TRY NEXT LINE

;MESSAGE ADDRESS TO RS
;SET SINGLE LINE MODE

PC,SEND

PC,QUIET

INC

WORK2

:SU NEXT SUBTEST

RTS

F{ 3 3 | [RPRRp

CMPB
BNE

#21,R5
12%

JXON ?

CLR

LOOPO

;ABORT TIMEOUT

JMP
CLR

CLR

41800 015622

015630

ONL INE
1%

JSR

9%:

SEQ 0068

HALT
INC
BR

MOV
MOVB

001175

001164

41100 015602
41200 015606

PAGE 26-1

6%:

015650

015534
015540
015546

20-APR-78 04:21

3%
HOOK

NOTYET

;RELEASE INTR CATCHER

;CLEAR IN XON

12%:

RTS

TABL24:

.WORD

MSG309,MSG310,MSG311,MSG312,MSG317,MSG314

.WORD

MSG313,MSG308,MSG316,M5G315,000000

.WORD

MSG107,MSG107,MSG107,MSG107
,MSG321

.WORD

MSG322,MSG323,MSG324,MSG325,M56326,000000

TAB24B:

CZLAIAO LAOO DMT PROG

TESTS

MACRO M1110

20-APR-78 04:21

PAGE 27

59800
59900
60000
60100
60200
60300
60400

: LIFE TEST
:
:

60600

HHHH I

SEQ 0069

#5
&

:
:
3
:

60500

60700

60800 015676

015676

012705

041313

015706

004737

031700

015702

60900 015712
61000 015720
61100 015722
015722
015726
015734
015742
61200 015746
015746

005037

032737
001021
012705
013737
112737
004737

000101
001172
000020
032226

012705

037157

015756
g}z% 015762

004737
000207

031700

61500 015764
61600 015772
61700 016000
61800 016006
61900 016014
62000 016022
62100 016026

013737
162737
113737
012737
112737
005037
004737

001172
000005
001160
000041
000002
001162
016264

62300 016040

001742

015752

005037

TEST15: SENDALL #MSG270

001174

010000

THIS TEST WILL PRINT A CONTINUOUS PATTERN
OF ALL PRINTABLE CHARACTERS. EACH CHARACTER
WILL BE PRINTED ON 2 FULL LINES,
WITH THE PASS COUNT INBEDDED IN THE LINES.
THIS PATTERN WILL PRECESS 1 CHAR POSITION
EACH LINE PRINTED.
LOOPING IS CONTROLLED BY SWITCH #12.
R R
R R R R R R R R R R R R R R R R R R R R R R R R R

MoV

#MSG270,R5

JSR

PC,SEND

CLR

001116
001174
001175
2%:

001174

MODE

BIT
#81712,S0
BNE
3%
SENDC2 #'A WIDTH
MoV
#'A,R5
MoV
WIDTH,MODE
MOvVB
#20 ,MODE +1
JSR
PC, CHROUT
SENDALL #MSG77
MoV
#MSG77 RS

;SEND TEST ID

;BUILD SEND CALL USING MESSAGE ADDRESS
;NOW SEND THE MESSAGE

;IF LOOPING GO TO SECTION 4
;PRINT A FULL LINE OF A'S
;GET CHAR TO RS
;GET REPEAT COUNT
;SET REPEAT MODE
;CALL CHAR OUTPUT ROUTINE
;SKIP 3 LINES

;BUILD SEND CALL USING MESSAGE ADDRESS

CLR

MODE

PC,SEND
PC

;NOW SEND THE MESSAGE
SEXITecccccacccncnce

MOV
SuB
MOvVB
MOV
MOvB
CLR
JSR

WIDTH,WORK
#5 ,WORK
WORK , W1
#41,WORK
#2, W2
WORK 1
PC,GETPN

;GET WIDTH
;PRECESS LIMIT
;SAVE IN W1
;PRINTING CHAR CODE
:SU 2 LINES PER CHAR
s CURRENT PRECESS COUNT
s CONVERT PASSNO TO ASCII

BEQ

JSR
RTS

001160
001160
007512
001160
007514

3$:

010000

001116

4%:

013737

001162

007516

MOV

WORK1,W3

013705
013737
112737
004737

001160
007516
000020
032226

001174
001175

MOV
MOV
MOvB
JSR

WORK ,R5
W3 ,MODE
#20 ,MODE +1
PC, CHROUT

012705
005037
004737
005003
113737
163737
001412

041376
001174
031700

016132

013705

001160

MOV

WORK ,RS

:GET CHAR TO R5

016144

112737 000020 001175

MOvVB

#20 ,MODE +1

;SET REPEAT MODE

62200 016032

62400 016042

62500 016050
62600 016052

016052
016056
016064
016072

62700 016076
016076
016102
016106
62800 016112
62900 016114
63000 016122
63100 016130
63200 016132
016136

016152

032737

001412

013737

004737

007512
001162

007516

032226

BEQ
SENDC2

6%:

007516
007516

001174

BIT

mMovB

SENDALL
MOV
CLR
JSR
CLR
Wi, w3
SuB
BEQ
SENDC2
MOV

JSR

#B81T12,S0
6%
WORK,W3

;DO WHILE BIT 12 =1

;GET PRECESS COUNT
;PRINT THE CHARACTER

;GET CHAR TO RS
;GET REPEAT COUNT
;SET REPEAT MODE
;CALL CHAR OUTPUT ROUTINE

#MSG271
;PRINT THE PASS COUNT
#MSG271 RS
;BUILD SEND CALL USING MESSAGE ADDRESS
MODE
PC,SEND
;NOW SEND THE MESSAGE
R3
;CHAR COUNT = WIDTH = 5 = PRECESS CNT
WORK1,W3
8%
WORK,W3
sPRINT CHARS TO END
W3 ,MODE

PC,CHROUT

;GET REPEAT COUNT

;CALL CHAR OUTPUT ROUTINE

CZLAIAO LAOO DMT PROG

TESTS

63300 016156

016156

012705

016166

004737

63600 016204
63700 016206
63800 016212
63900 016216
64000 016220
64100 016226
64200 016232
64300 016240
64400 016242
64500 016250
64600 016254
64700 016260

103402
005037
105337
001020
112737
005237
123727
001007
012737
005237
004737
000137

016162

63400 016172
63500 016176

64800
64900

005037

005237
123737

65000 016264
65100 016272
65200 016276

013737
012705
004737

65500 016316
65501
65502
65503
65504

000207

65300 016302
65400 016310

65505 016320

113737
113737

MACRO M1110

20-APR-78 04:21
8%:

037154

001174

001162
007514

INC
CMPB

9%:

000002
001160
001160

007514

000041
001124
016264
016032

001160

001124
016320
033646

001134

016324
016325

Mov
JSR

007512

000177

108:

041377
041400

GETPN:

SEQ 0070

SENDALL #MSG75
(LR

031700

001162
001162

PAGE 27-1

BLO
CLR
DECB
BNE
MOvB
INC
(MPB
BNE
MoV
INC
JSR
JMP
MOV
MoV
JSR

MOVB
MOVB
RTS

T30BUF: .BLKW

#MSG75 RS
MODE

PC, SEND

WORK1
WORK1,W1
9%
WORK1
w2

108
#2,W2
WORK
WORK ,#177
108
#41 ,WORK
PASSNO
PC.GETPN
4%

s SEND CRLF

;BUILD SEND CALL USING MESSAGE ADDRESS
;NOW SEND THE MESSAGE

sNEW PRECESS COUNT
JRESET TO O IF MAX
;2 LINE DONE YET?

;YES RESET LINE COUNT
;GET NEXT CHAR CODE
sUNLESS ALL DONE
;THEN RESET CHAR CODE AND
s INC PASS COUNT
;REFORMAT MSG
;GO CHECK SW 11

PASSNO, TEMP
#130BUF ,R5
PC,BIOCT
;CONVERT TO ASCII
T30BUF
+4 ,MSG271+1
T30BUF +5,MSG271+2
PC

CZLAIAO LAOO DMT PROG

TESTS

MACRO M1110

20-APR-78 04:21

100

500
600
700

PAGE 28

SEQ 0071

I
R
R
R
R
R R R
R R
; PRINTER EXERCISOR
:
THIS TEST WILL PRINT A 10 BY 6 INCH MATRIX OF CHARACTERS

1000

1100 016334

016334

012705

041333

016344
1200 01¢350
1300 016354
1400 016362
1500 016364
1600 016370
016370

004737
112703
123727
101002
112703

031700
000011
001172

012705

037157

016400
1700 016404

004737

031700

016404

016410

012705

016414
1800 016420

005037

004737
005037
023727
003402
000137
013700
006300
016001

016340

016374

1900 016424
2000 016432
2100 016434
2200 016440
2300 016444
2400 016446
2500 016452
016452
016454

005037

010105

005037

016460
2600 016464

004737
016037

2800 016476
2900 016500
3000 016504

001002
000137
005037

2700 016472

3100 016510

3200 016514

005737

004737

UTILIZING ALL POSSABLE COMBINATIONS OF PITCH SETTINGS.

TEST16: SENDALL #MSG280

MOV

001174

CLR

000120

000007

7%:

001174

JSR
PC,SEND
SENDALL #MSG104

sNOW SEND THE MESSAGE
;SET H-PITCH TO 16.5

CLR

MODE

037623

MOV

#MSG104 ,R5

031700
007512
007512

JSR
CLR
CMP
BLE
JMP
MOV
ASL
MOV
SENDALL
MOV

PC,SEND
w?

001174

CLR

000005

016776
007512

1$:
2%:

012154
001174

031700
017150

007514

016766
007516

034166

3%:
4%:

JSR

016524

004737

031700

JSR

3400 016534

003402

3500 016536
3600 016542
3700 016546
3800 016550
3900 016554
016554

016556

016562
4000 016566
4100 016572

4200 016574

000137
013700
006300
016001
010105

005037
004737
004737
000240
000240

CLR

007516

5%:

016756
007516

6%:

017114
001174
031700
034166

;GET V GROUP NO.
;POINT TO V PITCH SETUP

4%
40%
w3

TST

PC,QUIET

SENDALL #MSG75

001174

;NOW SEND THE MESSAGE
;DO 6 V PITCH GROUPS
;IF W1 > 5 GOTO 50

BNE
JMP
CLR

MoV

023703

W1, 45
2%
50%
w1,RO
RO
TABLVF (RO) ,RT

;BUILD SEND CALL USING MESSAGE ADDRESS

JSR
MOV

037154

3300 016530

MODE

;SKIP 3 LINES
;BUILD SEND CALL USING MESSAGE ADDRESS

R1
;SETUP VvV PITCH
R1,R5S
;BUILD SEND CALL USING MESSAGE ADDRESS
MOVE
PC,SEND
;NOW SEND THE MESSAGE
TBL31E(RO)
,W2
;GET LINE COUNT FOR THIS PITCH

CLR

007514

;BUILD SEND CALL USING MESSAGE ADDRESS
;NOW SEND THE MESSAGE
;IF 80 COL MAKE 6X8 MATRIX

012705

005037

MODE

;SEND TEST ID

JSR
PC,SEND
MOvVB
#9.,R3
CMPB
WIDTH, #4120
BHI
7$
MOvB
#7 ,R3
SENDALL #MSG77
MoV
#MSG77 RS

016514

016520

#MSG280,R5

#MSG75 RS
MODE

PC,SEND

;IF ALL LINES DONE GOTO 40

;D0 10 H PITCH GROUPS PER LINE
;SEND A

CRLF

;BUILD SEND CALL USING MESSAGE ADDRESS
;NOW SEND THE MESSAGE

CMP

Ww3,R3

JMP
MOV
ASL
MOV
SENDALL
MOV

30%
w3,R0
;POINT TO H PITCH SETUP
RO
TBL31C(RO)
,RT
;ADDRESS IN R1
R1
;SETUP H PITCH
R1,RS
;BUILD SEND CALL USING MESSAGE ADDRESS

BLE

CLR
JSR
JSR
NOP
NOP

MODE

PC,SEND
PC,QUIET

;IF 10 DONE GOTO 30

sNOW SEND THE MESSAGE

CZLAIAO LAOC DMT PROG

TESTS

MACRO M1110

20-APR-78 04:21

PAGE 28-1

4300 016576
4400 016602
4500 016604
4600 016610
4700 016614

013700
006300
010037
006337
006337

007512
001166
001166
001166

MOV
ASL
MOV
ASL
ASL

4900 016624
5000 016630

063700
116037

007516
017020

001160

ADD
MOvVB

001162

ASL
ADD

4800 016620

5100 016636

5200 016644
5300 016650

5400 016656

5500 016662
5600 016666
5700 016674
5800 016700

5900 016706
6000 016714
6100 016720
016720
016722
016730
016736
6200 016742

6300 016746
6400 016752
6500 016756
6600 016762
6700 016766
6800 016772
6900 016776
7000 017002

006337
062737

017700

016001
013737
006337
062737

017737
113711

007516
001162
017210

162300

017140
007516
001162
017164

162250
001160

010105
113737
112737

001164
000020

005237
000137
005337
000137
005237
000137
004737

007516
016530
007514
016472
007512
016424
033000

004737
004737

031700
034166

001162

ADD

WORK3,R0

MOV

W3 ,WORK 1

sGET FORMAT SELECTOR

aWwORK1,R0

;RO HAS SELECTOR

MOV

001162

MOV
MOV
ASL
ADD

001174
001175

SENDR
MOV
MOVB
MovB

001162

001164

MOV
MOvB

JSR
JSR

30%:
40%:

41%:
50%:

;GET ADDRESS OF CHARACTER

INC
JMP
DEC
JMP

;RO= W1*10.

w3,RO
;RO= V ROW + COLM OFFSET
TBL31A(RO) ,WORK ;PUT CHAR IN WORK
WORK1
#TBL31G,WORK1

TBL31D(R0O)
,RT
W3, WORK1
WORK1
#TBL31F ,WORK1

WORK 1, WORK2
WORK, (R1)
R1,WORK?2
R1,R5
WORKZ2 ,MODE
#20,MODE +1
PC,SEND
PC.QUIET

w3
5%
w2
3%
INC
w1
JMP
1%
JSR
PC,RESETO
SENDALL #MSG77

;R1 HAS OUTPUT MSG ADDRESS

;GET PRINT REPEAT COUNT

;WORK2 HAS REPEAT COUNT
;PUT CHAR IN OUTPUT MSG

;PRINT H GROUP OF CHARS

sNEXT H GROUP

sADJUST LINE COUNT -1
;DO NEXT LINE
;NEXT V GROUP

;DO NEXT V GROUP
JRESET THE TERMINALS

012705

037157

MOV

#MSG77 RS

;BUILD SEND CALL USING MESSAGE ADDRESS

017012

004737
000207

031700

JSR
RTS

PC,SEND
PC

;NOW SEND THE MESSAGE
;ALL DONE...BYE

7100 017016

7400
7500

013737

001166

w1,RO
RO
RO,WORK3
WORK3
WORK
3

017002

017006

7200
7300

063700

SEQ 0072

005037

001174

CLR

MODE

20-APR-78 04:21

MACRO M1110

PAGE 29

SEQ 0073
6 GROUPS OF 10 CHARACTER CODES

TBL31A
TBL31C
TBL31D
TBL31E
TBL31F
TBL31G

TABLE
TABLE
TABLE
TABLE

OF
OF
OF
OF

10 H PITCH MESSAGE ADDRESSES
4 OUTPUT MESSAGE ADDRESSES
6 LINE COUNTS PER V PITCH
10 PRINT REPEAT COUNTS

TABLE OF 10 SELECTORD TO TBL31D

037572
037677
037577
037604

017140
017146

041374
037123

037114

037117

TBL31D:

MSG281,MSG70,MSG71,MSG72

017156

000014
000004

000010
000003

000006
000002

TOLSIE:

12..8..6,4,3,2

017172
017200
017206

000020
000012
000006
000004

000014
000030
000005

000014
000006
000004

TBL31F:

16.,12.,12.,10.,8..6.6.5.4.4

017216
017224
017232

000000
000000
000002
000006

000000
000002
000002

000000
000002
000004

TBL31G:

.WORD

0.0,0,0,2.2.2.2.4.6

9900
10000 017150
10100
10200 017164

10300
10400 017210

10500

147,150,151,152,153,154,44,103,104,105

155,156,157,160,161,100,106,107,110,111

162,163,164,165,75,112,113,114,115,116

166,167,170,45,117,120,121,122,123,124

171,172,43,72,125,126,127,130,131,132

MSG99,MSG100,MSG101,MSG108,MSG99

b
il o

OV
&=

Da
i

OV
OON

.BYTE

—_—
N
wvids

.BYTE

WOO

.BYTE

—0 W

.BYTE

abadagh

52,141,142,143,144,145,146,53,101,102

—_——

BYTE

TBL31A:

—_—— O

St
NN

i
b
)
b
b cd
i

-2 ONON =

W~
NN
=S =

N
o

155

- NNy

017114
017122
017126
017134

8
8600 017020
017023
017026
017031
8700 017032
017035
017040
017043
017044
017047
017052
017055
017056
017061
017064
017067
017070
017073
017076
017101
017102
017105
017110
017113

_n_no_a_n_a?

7800

—

CZLAIAO LAOO DMT PROG

TESTS

.EVEN

037604
037604

TBL31C:

MSG100,MSG101,MSG108,MSG101,MSG101

037677

CZLAIAO LAOO DMT PROG

CONSOLE DRIVER ROUTINES

MACRO M1110

20-APR-78 04:21
.SBTTL

100

TTYIN:

177560

600 017234
700 017240
800 017242

017372

838838338

177562
000200

000033
020144
177564

1118:

4100 017474

CONSOLE DRIVER ROUTINES

161636

012705
004737
000137
005237
012737
000002
012737
127727
002403
142777
127727
001005
012737
000137
122777
001012
052737
052737
005237

TSTB
BMI
JMP
MOVB
BICB
CMPB
BNE
JMP
TSTB
BPL

a#177560
1§
2118
@#177562,aPNTR
#200,aPNTR
#33 ,aPNTR
111%
18%
an177564
111%

;READY ?

KL ?

SENDC
MOV

#03,aPNTR
113%
#MSGK1
#MSGK1 RS

MOvVB
CMPB
BNE

161676

000003

042113

4200 017500
4300 017504
4400 017512
4500 017514
4600 017522
4700 017530
4800 017534
4900 017540
5000 017546
5100 017550
5200 017556
5300 017564

SEQ 0074

;" CONSOLE RECV INTERRUPT HANDLER

400
500

2000 017332
2100 017336
2200 017342
2300 017350
2400 017352
017352
017356
2500 017362
2600 017366
2700 017372
2800 017400
2900 017402
3000 017410
3100 017416
3200 017420
3300 017426
3400 017434
3500 017436
3600 017444
3700 017450
3800 017456
3900 017460
4000 0174656

PAGE 30

1138:

JSR
MOV
JMP
(MPB
BNE

aPNTR,a#177566

PC,CSEND
#WSEQ, (SP)
211%
#15,aPNTR
2

;READ CHAR INTO BUFFER

;STRIP PARITY BIT
;DECODE INPUT IF ESCAPE
;ECHO THE CHAR

;SEND READY
;GET MESSAGE ADDRESS
; SEND MESSAGE
JRETURN TO WAIT STATE

;DECODE INPUT IF

;ECHO CRLF

:GET MESSAGE ADDRESS

037154
020304
017402
001206
000101

177560

020326
161572

2%:

JMP
INC

s SEND MESSAGE
PNTR

211%:

:?Y

#101,a#177560

001206
000071

38:
48:

000040
161554

161560
000015

MOV
CMPB
BLT

5%:

020326
017372
000110

001206

BI(CB
CMPB
BNE

#TKBUF ,PNTR
aPNTR 471
5%
#40,aPNTR
aPNTR, #15
6%

100000
100000

001116
001210

JMP
CMPB
BNE
BIS
BIS
INC
JWP

211%
#'H,aPNTR
7%
#BIT15,S0
#BIT15,TMPTST
PNTR
4%

001206
017410
000114

sFALSE INTERRUPT

161530

161474

040000
040000
001206
017410
000103

001116
001210

140400
140400
001206

001116
001210

161440

MOV

6%:

7$:

CMPB

BNE
BIS
BIS
INC

8%:

JMP
CMPB
BNE
BIC
BIC
INC

#TKBUF ,PNTR

#'L,3PNTR

8%
#BIT14,S0
#BIT14, TMPTST

;GET NEXT BUFFER SPACE
sTURN CONSOLE ON AGAIN
sRETURN

SJRESET LC BIT IF ALFA
;STOP DECODE IF CR

JRESET BUFFER POINTER FIRST
sHALT COMMAND?
;YES- SET BIT 15

;LOOP COMMAND ?

;YES- SET BIT 14

PNTR

4%
#'C,aPNTR
9%
#140400,S0
#140400, TMPTST
PNTR

;CLEAR COMMAND ?
JRESET THE BITS

CZLAIAO LAOO DMT PROG

CONSOLE DRIVER ROUTINES

5400 017570
5500 017574
5600 017602
5700 017604
5800 017606
5900 017610
6000 017614
6100 017620
6200 017622
6300 017626
6400 017630
6500 017636
6600 017644
6700 017646
6800 017654
6900 017662
7000 017664

7100 017672
7200 017676

7300 017704

7400 017706
7500 017714
7600 017716
7700 017720
7800 017724
7900 017730

8000 017732
8100 017736
8200 017744
8300 017746
8400 017754
8500 017756
8600 017760
8700 017764
8800 017770
8900 017772
9000 017776

9100 020004
9200 020006
9300 020014

9400 020022
9500 020026
9600 020032
020032
020036
9700 029042
9800 020050
9900
0000
0100 020054
0200 020060
300 020066

10700 020106
10800 020110

000137
122777
001035
010046

MACRO M1110
017410
000127

20-APR-78 04:21

161404

9%:

020054
001172

000204
001172

001172
000204

000204
001172

001172
000040

000040
017410
000122

001172

010000

001210

161302

#'W,aPNTR

161242

012000

001210

25%:

26%:

27%:
108:

#204 ,WIDTH
WIDTH,#204

26%

#204 ,WIDTH

WIDTH, #32.
27%

#32. ,WIDTH
4%
#'R,aPNTR
11%

#BIT12,TMPTST
RO,=(SP)
RO
PC,15%

11%:

020054
020230
161202

001116
001210

12%:

131%:
14%:

001206

(SP)+,R0
4%
#'S,aPNTR
12%
#012000, TMPTST
RO,-(SP)
RO
PC,15%
PC ,NUMCHK
(SP)+,R0
4%
#'.,3PNTR
14%

JRUN TEST COMMAND ?

;SET THE CNTL BITS

s CONVERT NEXT TO OCTAL

s SEQUENCE COMMAND ?

s CONVERT NEXT TO OCTAL

; TERMINATOR ?

#B178,S0
#BIT8, TMPTST
PNTR

4
#MSGK3
#MSGK3,RS5

141%:

PC,CSEND
#TKBUF ,PNTR

15%:

PNTR

sUNDEF INED COMMAND CHAR
:GET MESSAGE ADDRESS
;SEND MESSAGE

211%

001206
161122

000060

161112

000071

3P21R,#71

161102

000070

aPNTR,#70
17%
#77 RO

000077

;SET WIDTH ?

108
RO,=(SP)
;SAVE RO
RO
PC,158
;CONVER NEXT CHARS TO OCTAL
RO,WIDTH
JSET NEW WIDTH LIMIT
(SP)+,R0O

PC ,NUMCHK

017410
000123

042152
020304
020326
017372

25%

020054
020230

000400
000400
001206
017410

SEQ 0075

WIDTH

001172

017410
000056

PAGE 30-1

aPNTR,#60
16%

sPOINT TO NEXT CHAR IN BUFFER
JEXIT IF NOT NUMERIC

;DECIMAL OR OCTAL ?

;DECIMAL ; INVALID

CZLAIAO LAQOO DMT PROG

CONSOLE DRIVER ROUTINES

MACRO M1110

10900 020114
11000 020120
11100 020126
11200 020130
11300 020132
11400 020134
11500 020140

000137
142777
006300
006300
006300
157700
000745

0cU142
000370

11800 020144
020144
020150

012705
004737

035443
020304

}}988 020142

11900 020154
12000 020162
12100 020166
12200 020172
12300 020200
020200
020204

12800 020230
12900 020232
13000 020234
13100 020240

13200 020246
13300 020250
13400 020254
13500 020256
13600 020264
13700 020270

13800 020272
020272
020276
13900 020302

14000
14100
14200

000207

013737
062706
012746
012737

001210
000002
002450
020326

012705
004737

042113
020304

012705

000100

004737

000002

105700
001006
105037
042737
000207
120027
003006
052737
110037
000766
012705
004737
000756

001116

001210

002000

177560

042152
020304

16%
#370,aPNTR
RO
RO
RO
aPNTR,RO
15%

SENDC
MOV
JSR

#MSG22
#MSG22 RS
PC,CSEND

:ECHO $ AND CRLF
:GET MESSAGE ADDRESS
:SEND MESSAGE

MOV

#101,a#177560

:ENABLE CONSOLE

RTS

STALL
MOV
JSR

RTI

001210

000022
002000
001210

JMP
BICB
ASL
ASL
ASL
BISB
BR

MOV
ADD
MOV
MOV
SENDC
MOV
JSR

001206

SEQ 0076

TMPTST, SO
#2,SP
#LSEQ,-(SP)
#TKBUF ,PNTR
#MSGK1
#MSGK1,RS
PC,CSEND

#100
#100,RS
PC ,MSTALL

:STRIP AWAY ASCII BITS
:MAKE ROOM FOR NEW DIGIT
:ADD NEW LSD
:GET NEXT CHAR

EXIT OCTAL IN RO

:PUT TEST NO IN SO
:FIX RETURN PC
:TO TEST SEQUENCER
:RESTORE BUFFER POINTER
:SEND 'READY'
:GET MESSAGE ADDRESS
:SEND MESSAGE

:SETUP STALL TIME CONSTANT
:TO TEST SEQUENCER

NUMCHK: TSTB
BNE
CLRB
1%:
BIC

RO
3s
TMPTST
#BIT10,TMPTST

:TEST NO. ENTERED ?

4$:

#MSGK3
#MSGK3,RS
PC,CSEND
1%

7779

2%:
3%:

001210

RTS
CMPB
BGT
BIS
MOVR
BR

SENDC
MOV
JSR
BR

AR Rl

PC
RO, #22
4%
#BIT10,TMPTST
RO, TMPTST
2%

;NO SELECT

:BYE
:T00 BIG ?
:YES
;0K SELECT TEST
:SAVE TEST NO.

:GET MESSAGE ADDRESS

:SEND MESSAGE

2223302230333 283033323538833888358880004

: CONSOLE TRANSMIT ROUTINE

14600 020304
14700 020306
14800 020310
14900 020314

105715
001406
105737
100375

15100 020322
}gggg 020324

000770
000207

15600

18%:

033614

}2?88

}2@88 020326

17%:

16$:

14300

15000 020316

161060

PAGE 30-2

161046

12400 020210 012737 000101

12500 020216
020216
020222
15988 020226

20-APR-78 04:21

112537

CSEND:
177564

TSTB
BEQ
1STB
BPL

(RS)
2%
177564
1%

2%:

BR
RTS

CSEND
PC

TKBUF:

.BLKW

1$:

177566

MOVB

:NULL ?
:YES- ALL DONE
:WAIT FOR READY BIT

(RS)+,a#177566

;SEND CHARACTER

:CONSOLE INFUT BUFFER AREA

CZLAIAO LAOO DMT PROG

ERROR HANDLER

MACRO M1110

20-APR-78 04:21

PAGE 31

SEQ 0077

.SBTTL

ERROR HANDLER

ERROR MESSAGES, UPDATE ERROR COUNTS, AND

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

THIS ROUTINE WILL HANCLE THE PRINTING OF

CHECK ON SWITCH 13.

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

16500
16600 020346
16700 020354

16800 020356
16900 020364
17000 020370
17100 020374

032737
001073
013737

18300 020524
020524

020530
18400 020534
020534
020536
18500 020542
18600 020544
18700 020550
18800 020554
18900 020560
19000 020564
19100 020566
19200 020572
19300

19400
19500 020574
060

001116

ERRORT: BIT

001134

MOV
MOV

BNE

012705
112737
113737
004737
010346
016603
000010
001204
031700

012705
004737

020604
020304

010305
004737

020304

;FORMAT ERROR MSG

;TEST AND LINE NO'S

;MESSAGE ADDRESS TO R5
;SET SINGLE LINE MODE
;SELECTED LINE NO.
;SAVE R3

;GET MSG ADDRESS FROM STACK
;SEND ERROR MSG

:MESSAGE ADDRESS TO RS

;SET SINGLE LINE MODE
JSELECTED LINE NO.
;SAME THING TO CONSOLE

PC,CSEND

:GET MESSAGE ADDRESS
:SEND MESSAGE

PC,CSEND

;SEND MESSAGE

(SP)+,R3

;GET MESSAGE ADDRESS

;RESTORE R3

;ERASE ADDR FROM STACK
;ADJUST STACK POINTER
;FLAG THE ERROR
;HALT ON ERROR SET ?

(SP) ,2(SP)

#2,SP

;JUMP OVER ERROR HALT
;RETURN

:BUFFER AREA

000000

EBUF:

.WORD

0.0.0,0

105
040
054
11

123

MSGE:

.ASCIZ

/TEST 00, LINE 00 /

040
040

000

;CALL CONVERTER
;FORMAT ERROR MSG

ERROR

116

EBUF +4 ,MSGE +5
EBUF
+5 ,MSGE +6

040

;CONVERT IT TO ASCII

PC,SEND
#MSGE

RTS

#EBUF ,RS

ONL INE ,MODE
PC,SEND
R3,-(5P)
4(SP) ,R3
R3,0ONL INE
R3,RS
#10 ,MODE +1
ONL INE ,MODE

2%:

;GET TEST NO.

#MSGE RS

000002

TSTTYP,TEMP

#MSGE ,RS
#10,MODE
+1

MOV

;CONVERT LINE NO. TO ASCII

ONL INE , TEMP
#EBUF ,RS5
PC.BIOCT

#MSGE
, ONL INE

1%:

sINHIBIT PRINT ?
;YES JUMP

:gl!13.50

PC,BIOCT

001175
001174

000002
000002
001110
001116

#177700, TEMP

001175
001174

010305
112737
113737
004737

EBUF +4 ,MSGE+14.
EBUF +5 ,MSGE+15.

020611
020612

113737

18200 020502
020502
020504
020512
020520

020622
020623
001134
001134

17400 020416
17500 020424
17600 020430

18100 020476

;STD MSG HEADER

19700
19800

MACRO M1110

20-APR-78 04:21

PAGE

31-1

.EVEN

SEQ 0078

L
BN

CZLAIAO LAOO DMT PROG

ERROR HANDLER

100

200
300

8 S83a8883885858ss 8

400
500

—

) e

D -

700

MACRO M1110

20-APR-78 04:21

PAGE 32

SEQ 0079

.SBTTL
DZ11 DRIVER ROUTINES
;THSES ROUTINES WILL HANDLE FROM 1 TO 8 DZ11'S
;JOHN COMEAU INVENTED THESE WONDERFULL ROUTINES
sNOW A BUNCH OF

TABLES

JHERE 1S A ONE WORD PER LINE TABLE. IT HCLDS LINE PARAMETERS
;THE PROGRAM IS RESPONSIBLE FOR SETTING IT UP.
;THE DZ11 ROUTINES SIMPLY READ IT.

:BIT 7 IN EACH BYTE, IS THE INACTIVE BIT. IF SET, THE LINE
;WILL BE IGNORED BY THE DRIVER ROUTINES

;BITS 3-0
:
3
:
]
3

HOLD THE LINES BAUD RATE INFO
BITS 3-0/8AUD
50
0000
75
0001
110
0010
134.5
0011
0100
0101

0110
0111
1000

2
3
3

1
1

s
3
3
:
3

1
1
1
1
1

150
300

600
1200
1800

2000

RESERVED

‘BIT & SELECTS THE TYPE OF PARITY,

0= EVEN

1=0DD

‘BIT S IT THE PARITY ENABLING BIT. O IF NO PARITY, 1 IF PARITY

DZLINE: .BLKW

DZCON+8.

; NO. OF DZ'S TIMES 8 LINES PER DZ=# WORDS

JHERE ARE THE DZ11 COMMAND BUFFER AREAS
;THERE

5
5400 020746
5500

IS ONE FOR EACH LINE.

;EACH OF 20 WORDS LONG
;THE COMMAND FORMAT IS AS FOLLOWS.
21ST WORD IS THE ADDRESS OF THE MESSAGE BEING TYPED
;THE 2ND WORD. IF O, STANDARD MEGSSAGE
sIF HIGH BYTE IS 10, LOW SYTE HOLDS LINE NO TO SEND TO
;IF HIGH BYTE IS 20 LOW BYTE HOLDS REPEAT COUNT
;IF HIGH BYTE IS 30 LOW BYTE HOLDS SPECIAL TERMINATOR.
DZCOMB: .BLKW
DZCON+*8.%20.
; 8 LINES PER DZ TIMES 20. WORDS PER LINE TI

CZLAIAO LAOO DMT PROG

ERROR HANDLER

5700
5800 024046
5900
6000
6100
6200 024166
6300
6400
6500 024306
6600
6700
6800 024426
6900

MACRO M1110

20-APR-78 04:21

PAGE 33

SEQ 0080

;TABLE OF FLAGS FOR ACTIVE LINES

ACTIVE:

.BLKW

DZCON+8.

JHERE IS THE TABLE OF CURRENT REPEAT COUNTS.

CURREP: .BLKW
JHERE IF

CURTER:

DZCON+8.

THE TABLE OF CURRENT TERMINATORS

.BLKW

DZCON*8.

;sHERE IS THE LINE REPLY TABLE

REPTBL:

.BLKW

DZCON+*8.

7000
7100 024546

sJHERE IS A TABLE OF SWITCH WORDS SET TO CLEAR TCR REG
STOP:
.BLKW
DZCON=8.

7600 024666
7500

CURADD:

7200
7300

JHERE IS THE TABLE OF CURRENT TEXT ADDRESSES

.BLKW

DZCON%8.

8000 025366

sHERE ARE THE PRINTING COMMAND BUFFER POINTERS
COMCNT: .BLKW
DZCON*8.
COMIN:
.BLKW
DZCON+8.
COMOUT: .BLKW
DZCON*8.
COMEND: .BLKW
DZCON+8.

8200 025506

TCRBIT: .BLKW

DZCON+*8.

8500 025626

s CHAR COUNT
KBCNT:
.BLKW

DZCON=*8.

7600
7700 025006
7800 025126
7900 025246
8100

8300
8400

8600
8700
8800 025746
8900
9000
9100 026066
9200
9300

9400 026206

9500
9600

9700 026326
9800
9900

10000
10100 026446
10200
10300
10400

10500 031546

10600
10700
10800 031560

;LINE1=1, LINE2=2, LINE3=4, LINE4=10

;END OF BUFFER TABLE
.BLKW
DZCON*8.

KBBUFE:

;BEGIN OF BUFFER TABLE
KBBUFB: .BLKW
DZCON=*8.
;BUFFER PUT IN POINTER
KBBUF1: .BLKW
DZCON=*8.

;BUFFER TAKE OUT POINTER
.BLKW
DZCON=*8.

KBBUFO:

JHERE IF

KBBUF:

THE KEYBOARD BUFFER AREA

.BLKW

DZCON#8.%20.

:DZ11 STATUS REG ADDRESS TABLE
DZCSR:
.BLKW
DZCON
;DZ11 RECIEVE ERROR BIT TABLE

RECERR:

.BLKW

DZCON+8.

;8 WORDS TIMES 8 LINES TIMES # OF DZS

;ONE CSR PER DZ11(REALLY!)

(N~

CZLAIAO LAOO DMT PROG

DZ11 DRIVER ROUTINES

20-APR-78 04:21

83 28 8838838338

DZ11 DRIVER ROUTINES

MACRO M1110

[

CRC I

:CALLING SEQUENCES

PC,SEND

JSR
R5

MODE

HIGH BYTE

SEND:

000010

MOV
MOV
MOV
MOV
CMPB
BNE
CLRB
MOV
ASL
CLR
MOV
JMP
MOV
CLR
TSTB
BMI
CMP

000310

TST
BPL
STAL L
MOV
JSR
TST
BPL
INCB
CMPB

001175

001175
001174
001174
000001
031762
001152

001106

020626

14000 031762
14100 031766
14200 031770
14300 031776

025006
100017

013705
004737
005760
100006
105260
126027

15300 032040
15400 032044
15500 032052
15600 032056
15700 032062

062760

2%:
SEND1:

BLT

024046
000144
033614
024546

024046
024046
031762
000200
001216
024546
024046
032204
001104
024046

000002
001174
000002
025366

020626

1%:
2%:

025126

4%:

025126
025126
025126
025126

BHIS

JMP
BIS

s CALL

sTHIS IS THE MESSAGE ADDRESS

;THIS SPECIFIES THE TYPE OF MESSAGE AS FOLLOWS...

LOW BYTE

001104
000010

15800 032066
15900 032072
16000 032100
16100 032104
16200 032112
16300 032120
16400 032126

SEQ 0081

;b2 SEND ROUTITIE

12400
12500
12600 031700
12700 031702

14700 032016
14800 032022
14900 032024
15000 032030
15100
15200 032036

PAGE 3 4

SELECT

REPEAT

TERMIN

RO,=(SP)

;SAVE RO

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

R5 ,MSGADR

SEND TO ALL ACTIVE DZ LINES

;SEND TO SELECTED LINE
;USE LOW BYTE AS LINE NO.
SEND TO ALL ACTIVE LINES
USE LOW BYTE AS THE MESSAGE REPEAT COUNT
SEND TO ALL ACTIVE LINES
USE LOW BYTE AS MESSAGE TERMINATOR

;AND R1
;AND R2

510.H005+1

:fig THIS MESSAGE MEANT FOR ONLY 1 TERMINAL?

MODE +1
MODE ,RO
RO

s YES
;GET LINE #
sMAKE WORD OFFSET

#1,SENDTM
SEND1

sCOUNT = 1 LINE ONLY
;DO DO IT

MODE

NUMLIN,SENDTM

RO
DZL INE (RO)
7%
COMCNT(RO) ,#8.
4%
ACTIVE (RO)

2%
100.
100. ,R5

PC ,MSTALL

?IOP(RO)

sNO SPECIAL STUFF FOR INDIVIDUAL LINES

; A COUNT OF LINES SC WE KNOW WHEN WE ARE THROUGH

sSTART WITH THE 1ST LINE
;1S THE LINE INACTIVE?
;IF SO, DONT TRY TO SEND IT ANYTHING.
;ALREADY FULL?
;IF ROOM IS THERE, PUT STUFF IN.
;1S THE LINE ACTIVE ?

sNO- DESELECT THE LINE
sWAIT A SHORT TIME THEN RETRY
;SETUP STALL TIME CONSTANT
:AS_LINE WAITING FOR XON

ACTIVE (RO)
;COUNT THIS PASS THRU
ACTIVE (RO) ,#200.
;CHECK FOR EXCESSIVE DELAY

ggND1

;ALLOW 20 SECONDS MAX.
;TOO LONG- ABORT WAIT

#B1T7 ,DZLINE(RO)
;DESELECT THE LINE
;ONE LESS UNIT TO TEST
uuT
STOP(RO)
ACTIVE (RO)
7%
: TRY THE NEXT LINE

MSGADR, @COMIN(RO) ; PUT MESSAGE ADDRESS INTO THE COMMAND BUFFER
ACTIVE (RO)

#2,COMIN(RO)

ADD
CMP

;ERASE ANY DELAY COUNT
;BUMP POINTER

MODE ,aCOMIN(RO) ;PUT PRINTING MODE INTO THE BUFFER ALSO
#2,COMIN(RO)

;BUMP POINTER

COMEND (RC) ,COMIN(RO)
; IN POINTER AT END OF COMMAND BUFFER?

CZLAIAO LAOO DMT PROG

16500 032134
16600 032136

101003
162760

16700 032144

005260

17200 032162
17300 032164

006201
006201

16800 032150
16900 032154
17000 032156
17100 032160

17400 032166
17500 032172
17600 032176
17700 032204

17800 032210
17900 032214
18000 032216
18100 032220
18200 032222
18300 032224

18400
18500

005760
100413
010001
006201

042701
016101
156061
062700
005337
001262
012602
012601
012600
000207

MACRO M1110

000050

025006

025126

024546

177761
031546
025506
000002
001106

6%:

PAGE 34-1
BHI
SuB

6%
#50,COMINC(RO)

;IF NOT.
:YES, AT END. RESET IT TO THE BEGINING

TST
BMI
MOV
ALR

STOP(RO)
7%
RO,R1
R1

:1S THE LINE WAITING FOR XON?
:YES. DONT SET TCR BIT

BIC
MOV
BISB
ADD

#177761
,R1
DZCSR(R1) ,R1
:GET CSR ADDRESS
TCRBIT(RO) ,4(R1);SET THE LINES TCR BIT
#2,RO
JNEXT LINE #

INC

ASR
ASR

000004

7%:

SEQ 0082

DEC
BNE
MOV
MOV
MOV
RTS

COMCNT (RO)

:ADD 1 TO COUNT OF COMMANDS IN THERE

R1
R1

SENDTM
SEND1
(SP)+,R2
(SP)+,R1
(SP)+,R0
PC

:DONE ALL OF THEM?
:NO, GO DO ANOTHER
:NOW ALL WE HAVE TO DO IS
:RESTORE REGS WE
:SAVED UPON ENTRY
:RETURN

: SINGLE CHARACTER OUTPUT ROUTINE ALL TERMINALS

13388
18800 032226
18900 032232
19000 032234
}8588 032240

162705
006305
062705
004737

19300 032244

000207

19400

20-APR-78 04:21

000040
042370
031700

CHROUT: SUB
ASL
ADD
JSR
RTS

#40,RS
RS
#PCTABL ,RS
PC,SEND
PC

:CHARACTER TABLE STARTS AT 40
JMAKE WORD OFFSET
:ADD PRINT CHAR TABLE ADDRESS
:SEND MESSAGE WORD

wmTM

CZLAIAO LAOO DMT PROG

DZ11 DRIVER ROUTINES

19600
19700
}9800 032246

MACRO M1110

20-APR-78 04:21

X=X+2

010046
012700
000137

032260
032262
032266

010046
012700
000137
000004
010046
012700
000137
000006
010046
012700
000137
000010
010046
012700
000137
000012

032272
032274
032300
032304
032306
032312

032316
032320
032324
20600
20700

SEQ 0083

JHERE ARE THE TRANSMIT INTERRUPT ROUTINES
DZTINT:
x=0
DZCON
.REPT
RO,=(SP)
:SAVE RO
MOV

000000
000005

032246
032250
032254

PAGE 35

.ENDR

000000
032412
000002
032412
000004
032412
000006
032412

000010
032412

X=X+2

:PUT DZ # IN RO

MOV
JMP

#X,R0
TXINT

;GO TO MAIN ROUTINE

MOV
MOV
JMP

#X,RO
TXINT

RO,=(SP)

:SAVE RO

MOV
MOV
JMP

RO,=(SP)
#X,RO
TXINT

;SAVE RO

MOV
MOV
JMP

RO,=(SP)
#X,R0
TXINT

:SAVE RO
;PUT DZ # IN RO
;GO TO MAIN ROUTINE

MOV
MOV
JMP

RO,=-(SP)
#X,R0O

;SAVE RO

MOV
MOV
JMP

RO,=(SP)
#X,RO

:SAVE RO
;PUT DZ # IN RO
;GO TO MAIN ROUTINE

TXINT

:PUT DZ # IN RO
;GO TO MAIN ROUTINE

;PUT DZ # IN RO
;GO TO MAIN ROUTINE

;PUT DZ # IN RO

;GO TO MAIN ROUTINE

WTM

CZLAIAO LAOO DMT PROG

DZ11 DRIVER ROUTINES

032350
032354
032356
032362

032366
032370
032374
032400
032402
032406
21800
21900

PAGE 36

:HERE ARE

010046
012700
000137
000002
010046

000137
000004
010046
012700
000137
000006
010046
012700
000137
010046
012700
000137
000012

THE RECIEVE

DZRINT:
x=0
DZCON
.REPT

000000
000005

X=X+2
.ENDR

000000
033102
000002
033102
000004
033102
000006
033102

000010
033102

X=X+2

SEQ 0084
INTERRUPT ROUTINES

#X,RO
RCINT

RO,=(SP)

;SAVE RO
;PUT DZ # IN RO
;GO TO MAIN ROUTINE

MOV
MOV
JMP

RO,=(SP)

:SAVE RO

MOV
MOV

;SAVE RO

JMP

RO,=(SP)
#X,RO
RCINT

MOV
MOV
JMP

RO,=(SP)
#X,RO
RCINT

;SAVE RO
;PUT DZ # IN RO
;GO TO MAIN ROUTINE

MOV
MOV
JMP

RO,=(SP)
#X,RO
RCINT

;SAVE RO

MOV
MoV
JMP

RO,=(SP)
#X,R0

;SAVE RO
;PUT DZ # IN RO
;GO TO MAIN ROUTINE

MOV
MOV
JMP

RCINT

;PUT DZ # IN RO
;GO TO MAIN ROUTINE
;PUT DZ # IN RO
;GO TO MAIN ROUTINE

:PUT DZ # IN RO

;GO TO MAIN ROUTINE

wrm

1
032342

20-APR-78 04:21

DD DD DY

20900
21000 032330
21100
21200
21300
21400
21500
21600
21700
032330
032332
032336

MACRO M1110

—— — — — —— — — — — —— . — — — ————————————— e PIMAMMMMMMMMMMMMMMMMMTDD DD

CZLAIAO LAOO DMT PROG

DZ11 DRIVER ROUTINES

]

005760
100005
146061
000137
052760
005760
001012
005760
001051
146061
005060
000137
117037
005260
123760
001101

25200 032564
25300 032566
25400 032572
25500 032600
25600 032606
25700 032610
25800 032616
25900 032622
26000 032624
26100 032632
26200 032636
26300 032642
26400 032650
26500 032654
26600 032660
26700 032664

003071
005060
062760
026060
103403
162760
005360
001007
146061
005060
000137
017060
005060
005060
016002
062702

26900 032674
27000 032676
27100 032704
27200 032706
27300 032714
27400 032716

001416
122737
001412
122737
001401
000000

27600 032726
27700 032732
27800 032736

000137
105037
013760

;HERE IS THE M.\IN TRANSMIT INTERRUPT ROUTINE
TXINT: MOV
R1,=(SP)
:SAVE ALL OF
MOV
R2,-(SP)
‘REGS WE INTEND TO USE
NOP

031546
001100
001101
177770
001100

001100
001100

024546

025506
032770
100000
024666

000004
024046

1$:

025006

025506
024046
032770
024666
024666
001100

000004
001100

28:

024306

25100 032560 005360 024166
024666
000004
025246

025246
025366

000050
025006

025246

025506
024046
032770
025246
024166
024306
025246
000002

000004

024666

3s:

48:

26800 032670 011237 001100

DZCSR(RO)
,R1T
RO
RO
(R1) ,DXTMP
DXTMP+1.DXTMP
#177770.DXTMP
DXTMP,RO
RO

DEC

CURREP (R0)

ST
8PL
BICB
JMP
BIS
ST
BNE
ST
BNE
BICB
CLR
JMP
MOVB
INC
CMPB
BNE

001101

000030

001101

27500 032720 113760 001100 024306
024166

5% :
6%:

:DZ11 CSR ADDRESS
;GET LINE #
:-MOVE INTO LOW BYTE
:CLEAR ALL BITS EXCEPT LINE # BITS
‘BIG LINE # IF DZ# PLUS LINE #

S(DZ# *8 + LINE NO.)*2 FOR OFFSET

STOP(RO)
1s
TCRBIT(RO).4(R1)
9%
#BIT15,ACTIVE (RO)
:SET LINE ACTIVE FLAG
CURADD (R0)
2%
COMCNT (RO)
48
TCRBIT(RO),4(R1)
ACTIVE (RO)
:CLEAR THE LINES ACTIVE FLAG
9%
@CURADD
(R0) ,DXTMP
CURADD (RO)
:POINT AT THE NEXT NEXT CHAR
DXTMP,CURTER(RO):IS IT THE TERMINATOR?
8%
*NO. GO XMIT IT.

BGT
CLR
ADD
CMP
BLO
SUB
DEC
BNE
BICB
CLR
JMP
MOV
CLR
CLR
MOV
ADD

7%
CURADD (RO)
#4 ,COMOUT (RO)
COMOUT
(RO) , COMEND (RO)
3s
#50, COMOUT (RO)
COMCNT (RO)
43
TCRBIT(RO).4(R1)
ACTIVE (R0)
9
@COMOUT
(RO) , CURADD (RO)
CURREP (RO)
CURTER (RO)
COMOUT(RO) ,R2
:GET ADDR OF ADDR
#2 .R2

BEQ
CMPB
BEQ
C(MPB
BEQ
HAL T

6$
#20,DXTMP+1
6$
#30,DXTMP+1
5%

JMP
CLRB
MOV

1%
DXTMP+1
DXTMP, CURREP (RO)

MOV

000020

032476
001101
001100

MOV
ASL
ASL
MOV
MOVB
BIC
ADD
ASL

MOVB

(R2) ,DXTMP

DXTMP,CURTER(RO)

SRAARARRAR

e e L L e X P e X7 e X7 e X7 X XV X7 N7 X7 X7 . B e T ]

006300

23500 032456
23600 032462
23700 032464
23800 032472
23900 032476
24000 032504
24100 032510
246200 032512
24300 032516
26400 032520
24500 032526
24600 032532
24700 032536
24800 032544
24900 032550
25000 032556

SEQ 0085

22500 032416

22600 032420
22800 032424
22900 032426
23000 032430
23100 032434
23200 032442
23300 032450
23400 032454

010146
010246
000240
016001
006300
006300
011137
113737
042737
063700

22100

22200
22300 032412
22400 032414

PAGE 37

TMM

20-APR-78 04:21

AMmMo<

CZLAIAO LAOO DMT PROG

DZ11 DRIVER ROUTINES

MACRO M1110

CZLAIAO LAOO DMT PROG

DZ11 DRIVER ROUTINES
27900 032744
28000 032750
28100 032756
28200 032762
28300 032770
28400 032772
28500 032774

28600 032776

28700
28800
28900
2900029100

000137
017060
000137
113761
012602
012601
012600

MACRO M1110
032476
025246
032476
001100

20-APR-78 04:21

024666

7$:

000006

8%:
9%:

000002

JMP
MOV
JMP
MovB
MOV
MOV
MOV
RTI

;

29200 033000
033000

PAGE 37-1

SEQ 0086
1%
@COMOUT (R0O) , CURADD (RO)
1%
DXTMP,6(R1)
;PUT CHAR INTO XMIT BUFFER
(SP)+,R2
sRESTORE THE
(SP)+,R1
JREGISTERS THAT WE
(SP)+,R0
sDESTROYED

THIS ROUTINE IS USED TO RESET ALL TERMINALS

RESETO: SENDALL #MSG103
MOV
#MSG103,R5

012705

037616

033010
29300 033014

004737

031700

033014

033020

012705

033024
29400 033030
033030

005037

004737

033040
29500 033044
033044
033050
033054

004737

001174
031700

012705

037070

004737

031700

012705

034762

SENDALL #MSG10
MOV
#MSG10,R5

004737
004737

031700
034166

JSR
JSR

033004

033034

29600 033060
033060
033064

033070

29700 033074
29800 033100

29900

005037

012705

005037

005037
000207

001174

sSET 6 LPI.
;BUILD SEND CALL USING MESSAGE ADDRESS

CLR

MODE

037677

MOV

#MSG108,R5

031700

JSR
PC,SEND
SENDALL #T12FIX
MOV
#T12FIX,RS

;NOW SEND THE MESSAGE
sRESET MARGINS
;BUILD SEND CALL USING MESSAGE ADDRESS

PC,SEND
#MSG61
#MSG61,R5
MODE
PC,SEND

sNOW SEND THE MESSAGE
JRESET ALL TABS
;BUILD SEND CALL USING MESSAGE ADDRESS

001174

007500

001174

JSR
PC,SEND
SENDALL #MSG108
CLR

MODE

CLR
JSR
SENDALL
MOV
CLR
JSR

MODE

CLR

MODE

RTS

PC,SEND
PC.QUIET

sNOW SEND THE MESSAGE
;SET 10 CPI.

;BUILD SEND CALL USING MESSAGE ADDRESS

;NOW SEND THE MESSAGE
;SET TABS EVERY 8

;BUILD SEND CALL USING MESSAGE ADDRESS
;NOW SEND THE MESSAGE

CZLAIAO LAOO DMT PROG

DZ11 DRIVER ROUTINES

MACRO M1110

20-APR-78 04:21

30100

30200
30300 033102
30400 033104
30500 033106
30600 033110
30700 033114
30800 033120

30900 033122
31000 033124
31100 033130
31200 033136

31300 033144
31400 033146
31500 033150
31600 033154
31700 033156
31800 033162

31900 033170
32000 033174
32100 033202

32200 033204

32300 033212
32400 033216
32500 033222
32600 033224
32700 033232
32800 033240
32900 033244
§3300°100 033250

33200 033252

33300 033260
33400 033266
33500 033274

33600 033300
33700 033304
33800 033312
33900 033320
34000 033322
34100 033330
34200 033334
34300 033336
34400 033340
34500 033344

34600 033346
34700 033352
34800 033354
34900 033356
35000 033360

35100 033362
35200
35300
35400
35500

010546
010246
010146
016001
016105
100401
000000
010537
113737
042737
006300
006300
063700
006300
050560
042760
042705

032760
001405

042760

005237
122705
001010
052760
146061
000137
122705
001013

156061

042760
052760
000137

010570
062760
026060
001003
016060
105260
001001
000000
005737
001402

004777
012601
012602
012605
012600
000002

031546
000002
001200
001201
177770

001200
001200

001200

031560
107777
177400

031560

000200

020626

000200

020626

001216
000023

024546
000004

025506

000004

100000
000001
033340

026206
000002
026206
026066
025626

001140
145566

026206
025746
026206

BIT

#8177 ,DZLINE (RO)

;IS UNIT SELECTED ?

BIC

#BIT7 ,DZLINE (RO)

;SELECT THE LINE

TCRBIT(RO) ,4(R1)

;ENABLE TX INTR

BEQ

7%:

024546
024546

SEQ 0087

;HERE IS THE MAIN RECIEVE INTERRUPT ROUTINE
RCINT: MOV
R5,=(SP)
R2,=(SP)
MOV
MOV
R1,=(SP)
MOV
DZCSR(RQ)
,R1
MOV
2(R1) ,RS
BMI
1%
HALT
; INVALID DATA FROM DZ ? 2 2 2 2 2 ?
1%:
MoV
RS ,RCTMP
RCTMP+1 ,RCTMP
MOvB
BIC
#177770 ,RCTMP
ASL
RO
ASL
RO
ADD
RCTMP RO
ASL
RO
BIS
RS ,RECERR(RO)
;COPY ERROR BITS
BIC
#107777 ,RECERR(RO)
;DATA VALID,LINE NO.,DATA
BIC
#177400,R5
;CLEAR ERROR BITS

6%:

100200
025506
033340
000021

PAGE 38

9%:
8%:
KBN:

1%:

RCRTN:
2%:

INC
CMPB
BNE
BIS
BICB
JMP
CMPB
BNE

BISB

uuT
;ADD TO UNIT COUNT
#23,R5
7%
#100200,STOP(RQ)
;SET STOP FLAG & XOFF FLAGS
TCRBIT(RO) ,4(R1)
;DISABLE TX INTR
RCRTN
#21,R5
KBN

BIC
BIS
JMP

#BIT15,STOP(RO) ;CLEAR STOP FLAG
#BIT0,STOP(RO)
;SET XON FLAG
RCRTN

BEQ

MOV
ADD
cMP
BNE
MOV
INCB
BNE
HALT
TST
JSR
MOV
MOV
MOV
MOV
RTI

R5,aKBBUFI(RO) ;STICK IT IN THERE
#2 KBBUFI(RO)
;GIVE THE POINTER A LITTLE PUSH TO THE NEXT EMPTY PL
KBBUF I (RO) ,KBBUFE(RO)
;IS THAT THE END?
1%
:IF NOT.
KBBUFB(R0) ,KBBUF
I (RO) ; YES IT WAS AT THE END. RESET IT
KBCNT (RO)
;TALLY UP ONE MORE ENTRY
RCRTN
JAND GO RETURN IF WE HAVE LESS THAN 377 OF THEM
2400 ENRTYS IS TOO MANY. LET THIS HALT SERVE AS WARN
HOOK
;DOES ANOTHER ROUTINE WANT TO SEE CHARS IMMEDIATLY?
PC,aHOOK
(SP)+ ,R1
(SP)+,R2
(SP)+,R5
(SP)+,R0

;NO. GO RETURN

;YES. GO OFF TO SOME MYSTERIOUS PLACE

;FROM INTERRUPT CATCHER

CZLAIAO LAOO DMT PROG

DZ11 DRIVER ROUTINES
35700
35800
35900

36000 033364

36100 033370
36200 033372
36300 033376
36400 033400
36500 033404
36600 033410
36700 033414
36800 033422
36900 033430
37000 033432

37100 033440

37200

105760

001003
012705
000420
005360
017005
042705
062760
022760
001003
016060

000207

MACRO M1110

20-APR-78 04:21

PAGE 39

SEQ 0088

;THIS IS THE TAKE STUFF OUT OF THE KBFO BUFFER ROUTINE
;CALL USING A ''JSR PC'".
;1T RETURNS WITH R5 = THE KBRST ENTRY

025626

KBOUT:

177777
025626
026326
000400
000002
025746

1%:
026326
026326

026066

026326

2%:

TSTB

KBCNT (R0O)

JANYTHING THERE?

RTS

;RETURN

BNE
MOV
BR
DEC
MOV
BIC
ADD
CMP
BNE
MOV

1%
;1 HOPE SO
#-1,R5
2%
KBCNT (RO)
JREDUCE COUNT OF # ENTRYS IN THERE
@dKBBUFO(RO) ,RS ;GET KBRST ENTRY
#400,R5
#2 KBBUFO(RO)
;BUMP POINTER TO NEXT ENTRY
#KBBUF E ,KBBUFO(R0O) ;REACHED THE END OF THE BUFFER SPACE?
2%
;IF NOT, JUST RETURN
KBBUFB(R0) ,KBBUFO(R0)
; YES, REACHED END. RESET POINTER TO THE BEGININ

CZLAIAO LAOO DMT PROG

DZ11 DRIVER ROUTINES

MACRO M1110

20-APR-78 04:21

37400
37500
37600
37700
37800
37900
38000

SEQ 0089

;THIS SUBROUTINE DOES MANUAL INTERVENTION TESTING, WHERE A CARRIAGE RETURN
sMUST BE SEEN TO CONTINUE

CALL WITH R3=ADDRESS OF 1ST PART OF REPEATING MESSAGE
R4=ADDRESS OF 3RD PART OF REPEATING MESSAGE
R2=ADDRESS OF TABLE OF 2ND PART OF MESSAGE

THE TABLE CONSISTS OF 2WORD ENTRIES. 1ST WORD IS MESSAGE ADDRESS
:2ND WORD IS PARAMETER TO BE SEND TO THE DZ11 LINE
;A 000000 WORD MARKS THE END OF THE TABLE.

38100
38200
38300
38400 033442
38500 033444
38600 033446
033446
033450
033454

010305
005037
004737

001174
031700

033460
033462
033466

012205
005037
004737

001174
031700

033472

010405

39000 033510
39100 033512
39200 033516
39300 033520
39400 033524
39500 033526
39600 033532
39700 033536
39800 033544
39900 033550
40000 033556
40100 033562
40200 033570
40300 033572
40400 033576
40500 033602
40600 033606
40700 033612

40800

PAGE 40

:CALL THIS SUBROUTINE WITH A JSR,PC

005000
013700
006300
162700
100424
016001
005037
013737
061237
013761
005237
022737
001362
000137
004737
062702
000137

000002

18:

000207

001174
031700
034166

031546
001126
001126
001130
001130
001126
000010
033520
034366
000002
033442

001130

2%:

000002

001126
3%:
4%:

ASL
SuB
BMI]

MOV
CLR
MOV
ADD
MOV
INC
(MP
BNE
JMP
JSR
ADD
JMP
RTS

;TABLE FINISHED ?
:YES BRANCH
;SEND FIRST PART

(R2)
4%

R3
R3,RS

MODE
PC,SEND

;BUILD SEND CALL USING MESSAGE ADDRESS

;NOW SEND THE MESSAGE
;SEND FROM TABLE
;BUILD SEND CALL USING MESSAGE ADDRESS

(R2)+
(R2)+,RS

MODE
PC,SEND
o
&~

001202

: TST
ANVENT
BEQ
SENDALL
MOV
CLR
JSR
SENDALL
MOV
CLR
JSR
SENDALL
MOV
CLR
JSR
JSR
CLR
MOV

005712
001462

R4,RS

MODE
PC.,SEND
PC,QUIET

;NOW SEND THE MESSAGE
:SEND LAST PART

;BUILD SEND CALL USING MESSAGE ADDRESS

RO
DZNUM,RO

RO
#2.RO

3%
)
,R1
DZCSR(RO

ANTMPQ
ANTMPO ,ANTMP1
(R2) ,ANTMP1
ANTMP1,2(R1)

NOW SEND THE MESSAGE

UAIT TILL DONE

;GET DZ NO.

;GET DZ CSR ADDRESS

ANTMPO

#10 ,ANTMPO

1%
PC,AWAIT

#2,R2

ANVENT

;DO FOR NEXT TABLE ENTRY

;DONE ALL LINES ON ALL DZ'S. RETURN

CZLAIAO LAOO DMT PROG

DZ11 DRIVER ROUTINES
41000
41100
41200
41300
41400
41500
41600 033614
41700 033620

41800 033626
41900 033630

42000 033634
42100 033636

42200 033642
42300 033644
42400
42500
42600
42700
42800

MACRO M1110

20-APR-78 04:21

PAGE 41

SEQ 0090

;STALL ROUTINE

;CALL WITH JSR,PC

010537
013737
000240
005337
001374
005337
003366
000207

001146
001142

;THE LOCATION FOLLOWING THE CALL SHOULD CONTAIN
s THE AMOUNT OF MILLISECONDS TO HANG IN A NULL LOOP
sRETURN IS TO THE LOCATION +4 OF THE CALL

001144

MSTALL: MOV
;g
w

001144

001146

RS ,LO0OPO
LOOPC,LOOPI

GET # OF MILLISECONDS
;SETUP CONSTANTFOR CORRECT STALLING TIME

DEC
BNE
DEC

LOOPI
2%
LOOPO

JONE MILLISECOND DOWN

RTS

;RETURN

BGT

;SOME MORE TO GO

;BINARY TO ASCII CONVERT SUBROUTINE.
sCALL USING A "JSR PC'
;DERIVES ASCII CHARACTERS REPRESENTING THE CONTENTS

;OF LOCATION 'TEMP', AND PUTS THEM INTO THE 6 BYTES POINTED TO
;BY RS
sTHIS IS A STOLLEN ROUTINE. IT IS ROTTENLY WRITEN

43300 033646

43700 033672
43800 033676
43900 033704
44000 033710
44100 033716
44200 033722
44300 033726
44400 033734
44500 033740

44600 033744
44700 033750
44800 033756
44900 033764
45000 033772
45100 034000

45200 034006
45300 034012
45400 034020
45500 034026
45600 034034
45700 034042
45800 034050
45900

113765

001134
001134
001135
001134
001134
001134
001134
001135
001134
001134
001134
001134
001135

000005

000370
000370
000370
000370
000370
000060
000060
000060
000060
000060
000060

000001
000002
000003
000004
000005

000376

000002

000004

000001
000003

000001
000002
(00003
000004
000005

BIOCT:

MOVB
ROR
MOvVB
ROR
ROR
MOvB
ROR
MovB
ROR
ROR
MovB
ROR
MOvB

TEMP,5(R5)
TEMP
TEMP+1,2(RS)
TEMP
TEMP
TEMP,4 (RS)
TEMP
TEMP+1,1(R5)
TEMP
TEMP
TEMP,3(R5)
TEMP
TEMP+1, (RS)

BI(B

#376, (R5)

RTS

BI(B
BI(B
8I(B
BICB
BICB
BISB
BISB
BISB
BISB
BISB
BISB

#370,1(R5)
#370,2(R5)
#370,3(R5)
#370,4(R5)
#370,5(RS)
#60, (RS)
#60,1(R5)
#60,2(R5)
#60,3(R5)
#60,4 (RS)
#60,5(R5)

;YEAH

CZLAIAO LAOO DMT PROG

DZ11 DRIVER ROUTINES

MACRO M1110

20-APR-78 04:21

46100

46200
46300
46400

46500 034052
46600 034054
46700 034056

010346
010446
012704

46900 034066
47000 034070
47100 034074
47200 034102
47300 034106

100005
005137
112763
112713
105213

47500 034114
47600 034116
47700 034120
47800 034124
47900 034126
48000 034130
48100 034136
48200 034142
48300 034146
48400 034150

100374
005203
062437
005714
001365
062737
113713
01263°
012604
012603

48500 034152
48600
48700
48800 034154
48900 034156
49000 034160
49100 034162
49200 034164

49300
49400

161437

BIDEC:
034154

001134
000235
000257

;SAVE R3
JALSO R4 WHICH WE WILL USE
sPOINT R4 AT SOME CONSTANTS

BPL
g0 )
MOvVB
MOvB
INCB

1%
TEMP
#235,-1(R3)
#257,(R3)
(R3)

;1S THE # POSITIVE?
sNO. MAKE IT SO
JAND CHANGE THAT 1ST DIGIT TO A **="'
JINIT A DIGIT
JADD 1 TO THE DIGIT

SuB

001134

RTS

#260, (R5) +

(RG) ,TEMP

2%
R3
(RG)+, TEMP
(R4)
%
#260, TEMP
TEMP, (R3)
(SP)+,TEMP
(SP)+ R4
(SP)+,R3
SP

s CONSTANTS
BIDECC: 10000.
1000.
100.
10
0.

;MAKE THE FIRTS DIGIT OF THE NUMBER 0

JKEEP SUBTRACTING CONSTANT TILL IT GOES NEGATIVE

;IF WE ARE STILL POSITIVE, DO IT AGAIN
;NO WE WENT NEGATIVE. POINT AT THE NEXT DIGIT
JADD BACK THE CONSTANT, AND GO ON TO THE NEXT CONSTA
;DONE THE 1ST S5 DIGITS YET?
;IF NOT, GO BACK AND DO ANOTHER
;YES. ONE -REMAINS TO BE DONE
;SET THE LAST DIGIT NOW.
;RESTORE EVERYTHING
; THAT WE USED TO
;ITS ORIGINAL VALUE
;AND RETURN
‘

; WAIT FOR MESSAGE TO FINISH PRINTING

50000 034174

013700

g}g% 034246

R3,=(SP)
R4 ,-(SP)
#BIDECC R4

BPL
INC
ADD
TST
BNE
ADD
MOvB
MOV
MOV
MOV

001134

023420
001750
000144
000012
000000

010046

51000 034234
51100 034240
51200 034242
51300 034244

1%:
2%:

000206

49700 034166

50100 034200
50200 034202
50300 034204
50400 034206
50500 034210
50600 034214
50700 034216
50800 034222
50900 034224
034224
034230

177777

000260
CO1134
001134

MOV
MOV
MOV

MOvB

001134

23288
49800 034170
49900 034172

SEQ 0091

;BINARY TO DEC.MAL CONVERT ROUT INE
sCALL WITH A JSR SP
JWROTE THIS MYSELF. ITS WONDERFULL.

46800 034062 112725 000260

47400 034110

PAGE 42

010146
010546

006300
005001
020100
001414
005761
100403
062701
000770

QUIET:

001152
1%:
2%:
024046
000002

012705

000010

000137
012605
012601
012600

034202

004737

000207

3%:

4%:

033614

MOV

RO,=(SP)

MOV

NUML IN,RO

;GET NO OF LINES
;IF DONE GO TO 5

MOV

R1.RO
5%
ACTIVE(R1)
4%
#2.R1
2%
#10
#10,R5

JMP
MOV
MOV
MOV

1%
(SP)+,R5
(SP)+ ,R1
(SP)+,RO

MOV
MOV
ASL
CLR

CMP

BEQ
TST
B8M]
ADD
BR
STALL
JSR

5%:

RTS

R1,-(SP)
R5,-(SP)
RO
R1

PC ,MSTALL

sSTILL WORKING ?
sSTILL SET -BRANCH
sTEST NEXT LINE

;DELAY A WHILE
:SETUP STALL TIME CONSTANT

CZLAIAO LAOO DMT PROG
DZ11 DRIVER ROUTINES

51700
51800
51900
52000
52100 034250
52200 034252
52300 034254
52400 034260
52500 034262
52600 034266
52700 034270
52800 034274
52900 034300
53000 034306
034306
034312
53100 034316
53200 034324
53300 034326
g:’;ggg 034330

MACRO M1110

20-APR-78 04:21

010046

010146
013700
300
162700
100404

001152
000002

005060
000137

024426
034262

012705

000764

012737
012601
012600
000207

000000

53600 034332
53700 034336
53800 034340

020527
001007
022705

000023

54000 034346
54100 034354
54200 034356
54300 034364

112760
000403
112760
000207

000001

024427

000001

024426

012737
012737
005737
001375

000001
034416
001136

001136
001140

53900 034344

54400
54500
54600

54700
54800 034366
54900 034374
55000 034402

55100 034406
55200 034410
224388 034414

55500 034416

55600 034422
55700 034426
55800 034430
55900 034434
56000 034440

56100
56200
56300

012737
004737

001407

034332
033614

001140

042705

177600
000015

122705
001002
005037
004737
000207

001140

001136
033364

SEQ 0092

;THIS IS THE REPLY SUBROUTINE
sCALL WITH A JSR PC
sIT WILL WAIT .5 SECONDS FOR REPLYS FROM ON ALL LINES
;IF 1T SEES A REPLY, THE WORD FOR THE LINE IN THE REPTBL IS SET
REPLY: MOV
RO,=(SP)
MOV
R1,=(SP)
;SAVE REGS WE USE
MOV
NUML IN,RO
ASL
RO
1%:
SuUB
#2.,R0O
BMI
2%
CLR
REPTBL (RO)
JMP
1%
2%:
MOV
#9% ,HOOK
;PUT CLAWS INTO INPUT ROUTINE
STALL
#500.
;WAIT .5 SECONDS
MoV
#500. ,R5
;SETUP STALL TIME CONSTANT
JSR
PC,MSTALL
MOV
#0,HOOK
:TAKE HOOK OUT OF INPUT ROUTINE
MOV
(SP)+,R1
MoV
(SP)+,R0
RTS
PC
sRETURN
9%:

000021

005037

000207

001140

PAGE 43

CMP
BNE
CMP

RS ,#23
3%
#21,R5

MOovB
BR
MOVB
RTS

#1,REPTBL+1(RO) ;YES. SET HIGH BYTE
4%
#1,REPTBL(RO)
;SET LOW BYTE INDICATING NOT XON OR XOF
PC

BEQ

3%:

4%:

;1S THE CHAR XOF?
:NO.
;1S THE CHAR XON?

sYES. LET RECIEVE ROUTINE HANDLE IT

;THIS IS THE SUBROUTINE THAT WAITS FOR A CARRIAGE RETURN
AWAIT: MOV
#1 _NOTYET
sSET NO CR YET SWITCH
MOV
#2% ,HOOK
;PUT HOOK INTO RECIEVE ROUTINE SO WE CAN TEST
1%:
TST
NOTYET
;SEEN A CARRIAGE RETURN YET?
BNE
1%
;NO, KEEP LOOKING

2%:

3%:

CLR
RTS

HOOK

sRETURN

BIC

#177600,R5

sJREMOVE JUNK FROM DATA BITS

CMPB
BNE
CLR
JSR
RTS

#15,R5
38. ¢
NOTYET
PC ,KBOUT
PC

;CARRIAGE RETURN ?
:NO.
;YES. MAKE THE SWITCH REFLECT IT
;REMOVE CHAR FROM BUFFER

CZLAIAO LAQO DMT PROG

SYSTEM MESSAGES

MACRO M1110

20-APR-78 04:21

100

.SBTTL

300 034442
400 034473
500 034552
600 034624
700 034643
800 034677

012
124
063
012
012
116

015
110
060
015
015
117

1100 034756
1200 034760
1300 034762
1400 034777

010
015
033
064

000
000
133
060

900 034741
1000 034746

1500 035020
1600 035036
1700 035050
1800 035071

1900 035:13
2000 035201
2100 035241

2200 035267
2300 035310
2400 035340
2500 035366

033
033

073
073
120
120

110
102
104

067
103
124
067

2600 035414

067

3400 035660

040

2700 035443
2800 035447
2900 035472
3000 035546
3100 035573
3200 035627
3300 035636
3500 035743
3600 035747
3700 036010
3800 036051
3900 036112
4000 036116
4100 036126
4200 036157

4300 036170
4400 036225

4500 036263

4600
4700

4800

PAGE 44

036263
036270
036275
036302
036307
036314
036321
036326
036333

044
130
124
102
110
060
120

133
133

070
061
101
114

1M1
101
101

040
110
131
040

040

012
117
125
101
117
060
114

102

103
111
060
105
105
040
060
077
070

073
070
062
122
105

101

060
114
040
116
060
101
106
061

105

122

000011

130
130
130
130
130
130
130
130
130
000003

122

011
011
011
011
011
011
011
011
011

.BYTE
.BYTE

122

130
130
130
130
130
130
130
130
130

33,133,60,143,0 ;TERMINAL ATTRIBUTE PROMPT
33.133.77.63.73.60,143,0;LA00 DEV ATTRIBUTE RESPONSE

MSG12:
MSG13:

.BYTE
BYTE
.ASCIZ
.ASCIZ

73.70.70.73.71.66.73.61.60,64.73.61,61,62
73.61.62.60.73.61.62.70,165.,0
/PARITY TEST 24/<12><15>
/PLEASE SETUP FOR /

MSG17:
MSG18:
MSG19:
MSG20:

.ASCIZ
.ASCII
.ASCIZ
.ASCIZ

/7 BIT AND SPACE./
/CHAR CODE ECHO TEST 21/<12><15>
/TYPE DELETE TO EXIT/<1
<15>
/7 BIT AND ODD PARITY./

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/$/<12><15>
/XON-XOFF TEST 23/<12><15>
/TURN THIS TERMINAL OFF-LINE, THEN ON-LINE/<12><15>
/BAUD RATE TEST 17./<12><15>
/HORIZONTAL MOTION TEST 11/<12><15>
/000
/
/PLEASE SETUP FOR /

MSG35:
MSG36:
MSG37:
MSG38:

.ASCIZ
.ASCII
"ASCII
.ASCI]
.ASCIZ
.ASCIZ
.ASCIZ
.BYTE

/110/
/NULSOHSTXETXEOTENQACKBELBS HT LF /
/VT FF CR SO SI DLEXONDC2XOFDC4NAK/
/SYNETBCANEM SUBESCFS GS RS US SP /
/300/
/ BAUD/<12><15>
/BUFFER OVERRUN TEST 12/<12><15>
33,133.61,73.61,63,62,165,0

MSG40:

.ASCIZ

/ERROR * XOFF NEVER RECIEVED/<12><15>

ASCIT

/X/<11>/X%X/<12><15>

MSGO8: .ASCIZ <10>
MSGO9: .ASCIZ <15>
MSG10:
.BYTE
33.133,70,73.61,66,73.62,64,73.63,62,73
.BYTE 64.60,73.64,70,73,65,66,73,66,64,73,67,62,73,70,60

MSG21:

061
125
124
131
060
102
125
133

<12><15>/CZLAIAO LAOO DMT PROG/<15><12>
/THIS TEST ASSUMES ALL TERMINALS ARE SETUP FOR/<12><15>
/300 BAUD, 1 STOP, ODD PARITY, XOFF=XON./<12><15>
<12><15>/END OF PASS /
<12><15>/END OF PASS 000 TEST 00/<12><15>
/NO RESPONSE TO ATTRIBUTE PROMPT/<12><15>

MSGOS:
MSGO6:

102

061
116
126
123
063
040
102
033

105

MSGO0: .ASCII
LASCII
"ASCIZ
MSGO1: .ASCIZ
MSGO3: .ASCIZ
MSGO4: .ASCIZ

MSG14:
MSG15:
MSG16:

015
116
122
125
122
060
105

SYSTEM MESSAGES

INLIST BEX

124
104
124

102
101
120
102

SEQ 0093

MSG22:
MSG25:
MSG26:
MSG27:
MSG28:
MSG29:
MSG30:

MSG31:
MSG32:
MSG33:

MSG39:

MSG41:

.ASCIZ /HIT RETURN KEY WHEN YOU ARE DONE WITH ALL TERMINALS/<12><15>
.ASCIZ /BAD PARITY RECIEVED FROM LA00/<12><15>
.ASCIZ /DATA OVERRUN ERROR /<12><15>

.ASCIZ /7 BIT AND EVEN PARITY./

.ASCIZ

/ BAUD./<12><15>/ HIT RETURN WHEH DONE FOR ALL TERMINALS./<12><15>

.ASCIZ /ERROR % XON NEVER RECIEVED/<12><15>
.REPT 9.
-ENDR

TASCII /X/<11>/X/<12><15>
TASCII
/X/<11>/%X/<12><15>
TASCII /7X/<11>/X%/<12><15>
CASCII /7X/<11>/X/<12><15>
TASCIT /7X/<11>/X/<12><15>
TASCII /7X/<11>/X/<12><15>
TASCIT /X/<11>/%7<12><15>
CASCII
/7X/<11>/X/<12><15>
"ASCII /X/<11>/X/<12><15>
REPT 3

CZLAIAO LAOO DMT PROG

SYSTEM MESSAGES

MACRO M1110

20-APR-78 04:21

4900

LASCII

5000
5100

5200

PAGE 44-1

.BYTE
.BY'E

036340
036364
036376
036410
036434
036446
036460
036504
036516
5300 036530
5400 036535

040
010
010
040
010
010
040
010
010
012
124

040
010
010
040
010
010
040
010
010
012
105

040
010
010
040
010
010
040
010
010
012
123

S600 036670

124

105

130

.ENDR
LASCII

.BYTE
.BYTE

LASCII

.BYTE
.BYTE

JASCII

.BYTE
.BYTE
TASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.BYTE

SEQ 0094
7/

10,10,10,10,10,10,10,10,10,10
10,10,10,10,10,10,10,10,10,10

7/
/
10,10,10,10,10,10,10,10,10,10
10,10,10,10,10,10,10,10,10,10
7/
/
10,10,10,10,10,10,10,10,10,10
10,10,10,10,10,10,10,10,10,10
7/
/
10,10,10,10,10,10,10,10,10,10
10,10,10,10,10,10,10,10,10,10
<12><12><125<15>
/TEST 00 = DATA PATH TEST/<12><15><12>

5700 037000

002

006

020

MSG42:
MSG43:
MSG44:
MSG4S5:

5900 037031
6000 037070

124
033

105
062

123
000

MSG60:
MSG61:

on
000
040
040
120
000
012

MSG62:
MSG63:
MSG64:
MSG65:
MSG66:
MSG67:
MSG68:
MSG70:
MSG71:
MSG72:
MSG73:
MSG75:
MSG77:

.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.BYTE
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/./
<33>/H/
/v/
<11>
<15
/X/
12,15,11,0
/? /
/? /
/?
<12><15>/POWER FAIL TRAP/<12><15>
<12><15>
<12><12><12><15>

101

MSG78:

.ASCIZ

/SPACE - BACKSPACE TEST 05/<12><15><12>

134
114

MSG80:
MSG81:
MSG82:
MSG83:
MSGB4:
MSG8S:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCII
LASCII
ASCII
ASCII
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

5500 036571

5800 037026

6100 037073
6200 037075
6300 037100
6400 037102
6500 037104
6600 037106
6700 037110
6800 037114
6900 037117
7000 37123
7100 037130
7200 037154
;288 037157

7500 037164
7600 037221

7700 037224
7800 037231
7900 037273
8000 037275
8100 037322
8200 037334
8300 037355
8400 037376
8500 037417
8600 037440
8700 037463
8800 037513
8900 037520
9000 037525
9100 037532
9200 037537
9300 037545
9400 037551
9500 037555
9600

052

130

056
033
126
on
015
130
012
c77
077
077
012
012
012

123

057

010
101
040
104
132
132
110
052
043
044
012
040
040
061
061
040
040
040
040

125

040
000
110
000
000
000
000
015
040
040
040
015
015
012

120

040

010
114
000
117
110
040
040
040
040
040
015
061
061
063
066
103
063
064
066

052

000

124
052
132
110
052
043
044
124
060
062
056
056
120
040
040
040

MSG47:

MSG79:

MSG88:
MSG89:
MSG90:
MSG91:
MSG92:
MSG93:
MSG94:
MSG9S5:
MSG96:

/*UrUrUrUrUrUsUrUsUrUrUsUrUsUrUsUrUrUUsUsUrUrUrUrUrUsUrUrUrU/<12><1

/TEXT 02 = NON PRINTING CHARACTER TEXT. THE NEXT LINE SHOULD BE BLAN

2,.6,20,23,26,31,35,177.21,24,27,32,36,22.25,30,34,37,21,12.15,0

.ASCIZ /X /

.ASCIZ

/TEST 07
<33>/2/

HORIZONTAL TAB TEST/<12><15>

«/ =
<10><10>/\/<10>
/ALL PRINTABLE CHARACTERS TEST01/<12><15>
7/ /
/DOT MATRIX TEST 03/<12><15>
/ZIH*#$ /<12><15>
/2 22 227
12111/<15>
/H HH HHH
HHHH/<15>
/% 22 xxx
xxxx/<15>
/78 s #an
RRRR/<15>
/8 88 $38
$388/<12><15>
<12><15>/THIS LINE PRINTED AT /
/7 10/
/7 12/
/13.2/
/16.5/
/ CPl1,/
/ 3/
; 2 5

SR
>

NS
-d

133

P
—_—
p—————
Y

D b =

NONNIN
= =YV =O
o-a—a-a—n—n—aog
——d e OQOON)
—
NNV WWSNONSON

Y
P

— e —d e

[ T

NS ONW= =00

ONWV—= =200

R TM]

061

8—.0—10'\)—4—;-;

822

HNoWWN =N

——d — —d — — - O
—ON==

DR N0

RRRRRR

838888

D O =D O

13700 040722
13800 040747
13900 040753
14000 040764
14100 040776
14200 041041
14300 041047
14400 041060
14500 041073
14600 041077
14700 041130

MSG145:
MSG142:
MSG143:
MSG144:
MSG146:
MSG148:
MSG147:
MSG150:
MSG152:
MSG156:
MSG149:
MSG151:
MSG153:
MSG154:
MSG155:
MSG157:
MSG158:
MSG159:
MSG160:
MSG162:

MSG163:

MSG164:
MSG165:
MSG166:

MSG167:
MSG168:
MSG169:
MSG170:

LASCII
LASCII
LASCII

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

’

e
i
i

33°133.62.1

4
4
’

j=leleleololelsle)

il el

’

NNNNNOONON
PO
NINN

NONON
NN

oo
ViN=

g
d e

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.ASCIZ
.BYTE
.ASCIZ
.ASCIZ
.ASCIZ
.BYTE
.BYTE
.ASCIZ
.ASCIZ
.BYTE
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCII

JBYTE

065

MSG100:
MSG101:
MSG102:
MSG103:
MSG104:
MSG105:
MSG106:
MSG107:
MSG108:
MSG109:
MSG110:
MSG111:
MSG113:
MSG114:
MSG115:
MSG116:
MSG117:
MSG118:
MSG120:
MSG123:
MSG124:
MSG125:
MSG140:

.ASCIZ
.ASCIZ

063
062
064
061

§8388582s

037770

MSG97:
MSG98:

1M1
064

10800 037677

040

SEQ 0095

i e i b il O D e D e il il i
WWO O = W= NWNWWWW
WWWVWNNWWNWWWWWW

10700 037642

PAGE 44=2

070
120
133
33

9700 037561
9800 037565
9900 037572
10000 037577
10100 037604
10200 037611
10300 037616
10400 037623
10500 037630
10600 037635

20-APR-78 04:21

WNWWNWWWNWNWNES
WWWWWWWN

MACRO M1110

NWWWWWWWNN
N
WWNWWWWWWNET
* % s s s v
DOO

CZLAIAO LAOO DMT PROG

SYSTEM MESSAGES

<12><15>/ABCDEF
GHI JKLMNOPQRS TUVWXYZ /
’

33,133.61,167.0

7HORIZONTAL PITCH TEST 04/<12><15>
/VERTICAL PITCH TEST 13/<12><15>
/SET MARGINS TEST 06/<15>

33,133,60,60.61,73,61.63,62,163,0
;3;133,60.60.60,73.60,60,60.163.0

JERROR IF NOT AT LH MARGIN/<12><15>
;351;3.66.172.0

/PRINTER BELL TEST 14/<12><15>
5HULTIPLE LINS §§ED TEST 10/<12><15>
<15>

/SET CAPS LOCK OFF, SHIFT LOCK OFF, THEN /

/PRESS ALL PRINTING KEYS./
<12><15>/DON'T PRESS
ESC, TAB, RETURN/

/., BS, OR FUNCTION KEYS./<12><15>
/PRESS THE SPACE BAR LAST./<12><15>
/PRESS THE SPACE BAR IF FINISHED/<12><15>
/ : KEYS WERE NOT RECIEVED/<12><15>

/TRY AGAIN , /
<12><15>/ERROR * /
/INVALID CODE RECVD

/TEST #21/<12><15>
/PRESS /<12><15>
/ RH SHIFT AND B/<12><15>
/SET SHIFT LOCK , /
/22?/

'A/<12><15>
/ LH SHIFT AND
2><15>
764/<1
/ CTL=P/<12><15>
/ ESCAPE/<12><15>
/RESET SHIFT LOCK, SET

CAPS LOCK, /

/TAB/<12><15>
/RETURN/<12><15>
/0123456789/
/2/<12><15>
/INVALID SEQUENCE RECVD/<12><15>
/MIAN KEYBOARD TEST 20/<12><15>
/SPACE/

/BACKSPACE/<12><15>
/LINEFEED/<12><15>
/DELETE/<12><15>
;D;<12><15>

20100 042516
20200 042546
20300 042576
20400 042626
20500 042652
20600

000100
000113
000127
000143
000157
000171
001220

:
PCTABL

000145
000161

000173

.END

[[==——— /<12><15><12><12>

<12><15>/READY/<12><15>
D OR P :/
/ENTER MODE

/7 2 2 2/<12><15
<12><15>/ENTER COMMAND (S) /<12><15>
/RUN INTERVENTION TEST ?/<12><15>
<007><12><15>/N0O TERMINALS SELECTED/<007><12><15>
<12><15>/ERROR * INVALID TEST NO./<12><15><07>
<12><15>/ERROR * PMT CONFLICT/<12><15><07>
WV =\
N

000040

[[=====/<12><15>
[[==——- /7<12><15>
/[==——- /<12><15>
[[==——— /<12><15>
/[====—- /7<12><15>
[[=====/<12><15>
[ [=====/<12><15>
[[=====/<12><15>
[ [=====/<12><15>
[[=====/<12><15>

012

.ASCIZ
.ASCIZ
LASCIZ
LASCIZ
.ASCIZ

THEN TYPE THE FOLLOWING :

JEXIT SETUP MODE , AND TYPE A CTL=-Q/<12><15>
/V=F (CR) /<12><15>
/H=D(CR) /<12><15>
/H=C(CR) /<12><15>
/H=B(CR) /<12><15>
/H=A(CR) /7<12><15>
/V=A(CR) /7<12><15>
/V=B(CR)/<12><15>
/V=D(CR)/<12><15>
/V=E(CR) /<12><15>
/V=C(CR) /<12><15>
/NO RESPONSE RECIEVED/<12><15>
/PITCH SETUP TEST 22/<12><15>
/[=====/<12><15>

—_

MSGK1:
MSGKZ2:
MSGK3:
MSGK4:
MSGKS5:
MSGK6:
MSGS1:
MSGS2:
.EVEN

/7 00 /

<12><15>/ENTER SETUP MODE,

MSG324:
MSG325:
MSG326:

33,133,62.73,62.66,163,0
33,133,62,66.73,65,60,163.0
33,133,65,62.73,67,66,163,0
33,133,67,70,73,61,60,62,163,0
33,133,61,60,60,73,61,62.64,163,0
JLIFE TEST #15/<125<15>
55?00 DYNAMIC EXERCISOR TEST 16/<12><15>

MSG323:

LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCIZ
LASCIZ
.ASCIZ
LASCIZ

SEQ 0096

O bbb

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

18500 042050
18600 042060
18700 042070

MSG322:

D) b

o onN

—
—

~ NN
(o] (V. 1,%]

38 288338

b
b
b
i
il
b
i
b
b

d d d e e

042000
042010
042020
042030
042040

075

d e

18000
18100
18200
18200
18400

=2 NWWWWWWWWWWWN
=N
= == SN0
OS—'OO
N =N
SNWWWMWWWWWWUWOOOO‘OOOOOOOO\U\

041527
041541
041553
041565
041577

16600
16700
16800
16900

R eR

1376

wviwviow OO = —=WWWWW

RRRRRLR

1300

\Jd\l\l\l\l\lfl

x
88

§88§ £8¢

041266

PAGE 44-3

MSG180: .BYTE
MSG181:
MSG182:
MSG183:
MSG184:
MSG270: LASCIZ
MSG280: LASCIZ
MSG281: LASCIZ
MSG271: .ASCIZ
MSG303: LASCIZ
MSG304: LASCIZ
MSG308: LASCIZ
MSG309: LASCIZ
MSG310: LASCIZ
MSG311: LASCIZ
MSG312: LASCIZ
MSG313: LASCIZ
MSG314: .ASCIZ
MSG315: LASCIZ
MSG316: LASCIZ
MSG317: LASCIZ
MSG318: ASCIZ
MSG320: LASCIZ
MSG321: LASCII

OO—‘O?
NNW
=
QO —=WWWWW

15400 041234
15500 041244
15600 041255

20-APR-78 04:21

VIWWNWN
SO

MACRO M1110

CZLAIAO LAQO DMT PROG

SYSTEM MESSAGES

CZLAIAO LAOO DMT PROG

MACRO M1110

ACTOVC 000041
ACTIVE 024046
ANTMPO 001126
ANTMP1 001130
ANTMP2 001132
ANVENT 033442
ANYWAY 004104
APTHDR 001000
AWAIT
034366
BIDEC
034052
BIDECC 034154
BIOCT
033646
BITO = 000001
BIT1 = 000002
BIT10 = 002000
BIT11 = 004000
BIT12 = 010000
BIT13 = 020000
BIT14 = 040000
BIT15 = 100000
BIT2 = 000004
BIT3 = 000010

END22
EOP
EOPT
ERROR
ERRORT
FLAG21
GETPN
GETSWS
GETTST
GO
HOOK
INIT
INIT1
INIT2
INIT3
INIT4
INITS
INIT6
ISEQ
KBBUF
KBBUFB
KBBUFE
KBBUFI
KBBUFO
KBCNT
KBN
KBOUT
KEYEND
KEYTBL
KSTART
LOOPC
LOOPI
LOOPO
LSEQ
MODCON
MODE

014370
003634
003510
001110
020346
014302
016264
004036
003356
001214
001140
001342
001542
001614
001674
001726
001760
002046
002220
026446
026066
025746
026206
026326
025626
033300
033364
014300
014140
001242
001142
001144
001146
002450
003460
001174

MSGOO
MSGO?
MSGO3
MSGO4
MSGO5
MSGO6
MSGO8
MSGO9
MSG10
MSG100

034442
034624
034643
034677
034741
034746
034756
034760
034762
037577

SYMBOL TABLE

BIT4 = 000020
BITS = 000040
BIT6 = 000100
BIT7 = 000200
BIT8 = 000400
BIT9 = 001000
CHARIN 001170
CHROUT 032226
CODTBL 014352
COLTBL 010756
COMCNT 025006
COMEND 025366
COMIN
025126
COMOUT 025246
coml
001154
com2
001156
COUNT
010070
CSEND
020304
CTLTBL 014304
CURADD 024666
CURREP 024166
CURTER 024306
DLRVEC= 000060
DLTVEC= 000064
DXTMP
001100
DZADDR 001074
DZCUMB 020746
DZCON = 000005
DZCSR
031546
DZLINE 020626
DZNUM
001202
DZRINT 032330
DZTINT 032246
DZVECT 001076
EBUF
020574

MSGADR
MSGE
MSGK1
MSGK2
MSGK3
MSGK4
MSGKS
MSGKE
MSGS1
MSGS2
MSGTYP

20-APR-78 04:21

001104
020604
042113
042125
042152
042164
042212
042244
042300
042336
001102

PAGE 44=4

MSG101
MSG102
MSG103
MSG104
MSG105
MSG106
MSG107
MSG108
MSG109
MSG110
MSG111
MSG113
MSG114
MSG115
MSG116
MSG117
MSG118
MSG12
MSG120
MSG123
MSG124
MSG125
MSG13
MSG14
MSG140
MSG142
MSG143
MSG144
MSG145
MSG146
MSG147
MSG148
MSG149
MSG15
MSG150
MSG151

MSG152
MSG153
MSG154
MSG155
MSG156
MSG157
MSG158
MSG159
MSG16
MSG160
MSG162
MSG163
MSG164
MSG165
MSG166
MSG167
MSG168
MSG169
MSG17
MSG170
MSG18

SEQ 0097

037604
037611
037616
037623
037630
037635
037642
037677
037704
037737
037770
040015
040030
040043
040045
040101
040106
035050
040112
040141
040176
040214
035071
035113
040226
040452
040514
040550
040416
040565
040626
040600
040716
035201
040641
040722

MSG180
MSG181
MSG182
MSG183
MSG184
MSG19
MSG20
MSG21
MSG22
MSG25
MSG26
MSG27
MSG270
MSG271
MSG28
MSG280
MSG281
MSG29
MSG30
MSG303
MSG304
MSG308
MSG309
MSG31
MSG310
MSG311
MSG312
MSG313
MSG314
MSG315
MSG316
MSG317
MSG318
MSG32
MSG320
MSG321

041234
041244
041255
041266
041300
035340
035366
035414
035443
035447
035472
035546
041313
041376
035573
041333
041374
035627
035636
041403
041462
041527
041541
0356€9
041553
041565
041577
041611
041623
041635
041647
041661
041673
035743
041722
041750

MSG63
MSG64
MSG65S
MSG66
MSG67
MSG68
MSG70
MSG71
MSG72
MSG73
MSG75
MSG77
MSG78
MSG79
MSG80
MSG81
MSG82
MSG83
MSG84
MSG85
MSG88
MSG89
MSG90
MSG91
MSG92
MSG93
MSG9%4
MSG95
MSG96
MSG97
MSG98
MSG99
MSTALL
NOTYET
NUMCHK
NUMLIN

037075
037100
037102
037104
037106
037110
037114
037117
037123
037130
037154
037157
037164
037221
037224
037231
037273
037275
037322
037334
037463
037513
037520
037525
037532
037537
037545
037551
037555
037561
037565
037572
033614
001136
020230
001152

041077
041130
041160
041166
041202
041215
041226
035267
041232
035310

MSG40
MSG41
MSG42
MSG43
MSG44
MSG45
MSG47
MSG60
MSG61
MSG62

036225
036263
036535
036571
036670
037000
037026
037031
037070
037073

RCRTN
RCTMP
REAL
RECERR
REPLY
REPTBL
RESETO
RSEQ
SCAN
SEND

033340
001200
003334
031560
034250
024426
033000
002754
004216
031700

040652
040747
040753
040764
040674
040776
041041
041047
035241
041060
041073

MSG322
MSG323
MSG324
MSG325
MSG326
MSG33
MSG35
MSG36
MSG37
MSG38
MSG39

042010
042030
042050
042060
042070
035747
036112
036116
036126
036157
036170

ONLINE 001204
PASSNO 001124
PCTABL 042370
PFAIL
000024
PMODE
001176
PNTR
001206
PRIO = 000000
PRI4 = 000200
PRI7 = 000340
QUIET
034166
RCINT
033102

CZLAIAO LAOO DMT PROG

SYMBOL TABLE

SWRTST

001106
031762
001112
002342
002316
014314
001116
001120
001220
024546
001122
003754

TABL13
TABL 24
TAB24B
TBL12A

006372
006402
012140
012154
010050
015622
015650
007454

SENDTM
SEND1
SEQ
SEQMS
SEQ8
SHITBL

SO
SRCONT
START
STOP

| SWR

TAB
TABLH
TABLHF
TABLV
TABLVF

ABS.

TBL12B
TBL12C
TBL31A
TBL31C
T8L31D
TBL31E
TBL31F
TBL31G
TCRBIT
TEMP
TEST
TESTO0

TESTO!1
TESTO2
TESTO3
TESTO4
TESTOS
TESTO6
TESTO7
TEST10

010066

042666
000000

ERRORS DETECTED:

MACRO M1110

TESTN

20-APR-78 04:21

007466

007473
017020
017114
017140

017150
017164
017210
025506
001134
001114
005410
005452
005700
005732
006040
006412
006610
007520
010072
010464

000
001

4382 WORDS
( 18 PAGES)
VIRTUAL MEMORY USED:
:
( 22 PAGES)
5956 WORDS
DYNAMIC MEMORY

00:01:14
ELAPSED TIME:
CZLAIA.BIN,CZLAIA.LST/=SP=CZLAIA.P11

TEST12
TEST13

TEST14
TEST15
TEST16

TEST17
TEST20
TEST21
TEST22
TKBUF

TMPTST
TRAP4
TSTMP
TSTTBL
TSTTYP
TTYIN
TXINT
TO3TBL
103182
T11A
1118

PAGE 44-5

011164
011630
012170
015676

016334
004612
012260
014412
015214
020326
001210
000004
001150
004424
001212
017234
032412
005374
005402
006366
006370

SEQ 0098
T12FIX
T17A
1178
T21E
T30BUF
uuT
VALID
WIDTH
WORK
WORK1

007500
012134
012136
013772
016320
001216
003302
001172
001160
001162

WSEQ
w1
w2

002336
007512
007514
007516
000012
001070
001042
001024
001072

WORK
2
3
WORK

W3
X

$BASE
$CPU
$DEVCT
$DEVM

001164
001166

001034
001074
001016
001014
001044
001046
001050
001054
001060

$MSGAD
$MSGL
$PASNO
$SWREG
$TSTNO
SUNIT
$VECT1
$SVECT?

001066