Digital PDFs

AH-E150A-MC

April 1978

99 pages

Original

4.9MB

view download

OCR Version

4.0MB

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

Maintainer

Diagnostic Engineering

Author

Ralph A.

LAOO DMT PROG

Schauber

The information in this
document
1is
subject
to change
without notice and should not be construed as a commitment
by Digital Equipment Corporation.
Digital Equipment
Corporation assumes no responsibility for any errors that may
appear

in this document.

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
for

the

use

assumes

or reliability of

that is not supplied by Digital.

responsibility

its software on equipment

SEQ 0001

C
PAGE 2

TABLE OF
1.0

.
ABSTRACT
1.1 Functional Description
1.2 Intended Users

2.0

REQUIREMENTS

2.1

CONTENTS

Equipment

2.2 Related Programs
2.3 Terminal Configuration

3.0

4.0

5.0

LOADING AND INITIALIZATION
3.1 Starting Addresses
3 .2 Modifications to Program
3 .3 Execution time
CONTROL AND TEST SELECTION

4.1 Switch Register Control
4.2 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
6.2
6.3
6.4
6.5
6.6
6.7
6.8
6.9
6.10
6.11

6.12
6.13
6.14
6.15
6.16
6.17

Test00
TestOl
Test(?
Test(03
Test(04
Test05
Test06
Test(07
Testl0
Test11
Test1?

Test13
Test14
Test15
Test16
Test1?7
Test20

6.18 Test21
6.19 Test2?

Data Paths Test
Printable Characters Test
Nonprintable Characters Test
Dot Matrix Test
Horizontal Pitch Test
Space Backspace Test
Set Margins Test
Horizontal Tabs Test
Multiple Line Feed Test
Horizontal Motion Test
Buffer Overrun Test

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

SEQ 0002

D
PAGE 3

1.0

ABSTRA(CT

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

minal
1.1

in a DMT or PMT enviornment.

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
charac~
teristic 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

2.0

i1s not recommended.

REQUIREMENTS

2.1

Equipment

This program will

require a PDP-11

processor,

with 16K of mem-

orv.
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.
[f program control is to be via
console terminal then a terminal and interface at the standard
address & vector are required.

SEQ 0003

PAGE &

2.2 Related programs.

This program will perform cursorary testing of the DZ11 intertace,
and should not be considered a valid test of anything
other than the LAQQ terminal. PDP-11 processor and memorl diagnostic programs, along with DZ11 diagnostic programs should
be run periodicly to insure correct operation of the system.
Other LAOO Diagnostic programs:
this program
CZLAIA-0
CZLAJA-0 LAQOO FART Program

CZLA??-0 LAOO FS Diagnostic
2.3 Terminal Configuration
This program 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

PAGE 5

3.0 LOADING PROCEDURE AND INITIALIZATION

Load the LAOC 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

switches,

3.1

when

not

wusing

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

better to have a

longer time constant than one too short hecause 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

loopc:

000314

Listing.

;time constant for11/20

;set
;set
:set
:set
:set
:set

to
to
to
to
to
to

202 for 11/03
251 for 11/10
554 for 11/40
755 for 11/45, 11/60
1237 for 11/45, 11/70
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.

If the program is started at location 200 and no hardware
switch

4.1

location

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
15

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)
Q0(down)

= Inhibit error reports
= Print error reports

1 (up)
O(down)

= Run individual test
= Run tests in sequence

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

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

1(up)
O(down)

= Run 1 pass of test sequence then halt
= Keep running test or sequence
Test number selection

SEQ 0006

PAGE 6

H
1
PAGE 7

4.1.1

Switch 15

Placing switch 15 down will cause the program to continue
on errors during any of the i/0 tests. With switch 15 up,

the program uil? halt (at errhlt) on any error during
the
pressin

i/0 tests with the location of the error in RO.
continue will cause the program to continue it switch 1
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
&4.1.2 Switch 14
the switch is placed down or =0.
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
the
will continue until the error ceases
to
happen,
or
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
14 to lcop in errors

switch

for troubleshooting.

4.1.4 Switch 12

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

current,
or selected test.
It switch 8 is up the test
will halt at the end of the test.
Pressing continue witl
cause
the
test to be started over again.
Placing switch
12 down will cause the next sequential

test

to be executed

unless 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
&
thru 0 as the test number.
[f
switch 12 is up this is the test
that
will
be
run,
it
switch
12
1is
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
manual

intervention tests

, and use a

will

inhibit

fixed set of parame-

ters as listed in the description of each test.

SEQ 0007

PAGE 8

4.1.8 Switch 8

With switch 8 down the program will

loop on

the

selected

test or test sequence as selected by switch 12. Placing
switch 8 up will cause the program to halt at the comple-~
tion of the current test, or test sequence. Pressing continue will result in the program restarting the test or

sequence depending on switch 12.
4£.1.9 Switches 4 to O

tests when
specific
Switches 4 to 0 are used to select
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 either a 'D'

(no manual

The program will print

READY

MODE

for

on the console, then wait

for

The following commands will be recognized
£CONOIrrun>o

ENTER

effect

for DMT mode, or a 'P'

intervention).

commands from the keyboard.

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

To abort operations and return
to the WAIT state at ary time
type a (TL-C.
The program will respond with READY and wait
for command

input.

Enter one command per tine, followed by

return.

tlicting 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

R23.

ran test 23 then halt

sequence all tests then halt

Se7

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,
RUN
INTERVENTION TEST ?
answer Y or N.
[f Y is typea the
test
w;ll be run.
If N is typed a new test number will be requestand PMT mode is selected the following will be typed:
ed.

The R,S,H,L.W,

and C may be either upper or

Llower

case,

but

the
test
number must always be a 2 digit octal number.
The
command, test number, and terminator are echoed
by
the program,
thus each character will be printed twice if the termi~
nal 1s 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

(nXen]

PAGE 9

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
Test01

Test11

LAOO
LAQO
LAQOO
LAOO
LAOO
LAOO
LAOO
LAQGO
LAOO
LAQO

Test16
Test17

LAOO
DMT

Test02
Test03
Test04
Test0S

Test06
Test07
Test10
Test12
Test13
Test14
Test15

Test20
Test21
Test22

6.0.

LAOO
LAOO
LAOO
LAQO

DMT
DMT
DMT

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
Multiple Line feed test

Horizontal motion test

Buffer overrun test
Vertical pitch test
Bell test
Life 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

flfl

PAGE 11

This test will print four lines of alternating

Example

:
sUrUrUrUnyUreUey,
..
UsUrUsUsUnUeUrUn,
|
sUrUsUrUrUryrUrl,
..
UrUrnUsUrUsyeUnUr,
.,

and reciever

*U U

is a confidence test of the internal data

tern.

logic.

pat-

bus,

estimated time at 300 baud 18 seconds.

6.2 AlLL printable characters testOl
)
This test will print eack of the printable
characters 1in
groups of four, seperated by two spaces.
The groups will
e 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

BBBB

3333

4444

EEEE

IXAX

cCccC

DDDD

GGGG

HHHH

Daaa @ +++d

272°

FFFF

6666

5555

estimated time at 300 baud 30 sec

6.3 Non printable characters test(C?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 C(HARACTER
TEST.THE
NEXT LINE

SHOULD BE BLANK.

1f 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
DC1
DC4
ETB
suB
RS

006
022
025
030
034
037

DCT(XON)

ACK
DC2
NAK
CAN
FS
us

estimated time at 300 baud S seconds

6.4 Dot matrix test03

SEQ 0011

M1
PAGE 12

This test will print the ¢tive characters ZH*#$ ,
then
four
Llines of data that will create black boxes by
Ten boxes
overprinting the same five characters as above.
will appear on each of the four Lines at different spacings.
This test will amplify anK weak or
intermittant
The boxes should appear an even dark
head wire problems.
black, with no dots missing or lite streaks.
print

estimated time at 300 baud 10 seconds

6.5 t

izontal pitch test04
This test will print five groups of lines at each of
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 (PI, 13.2 (Pl, 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 ot 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

slashes

should cross exactly in the middle creating the X

character.

example

X X X X X X XXX XXXXXXXXXXXXXXX

estimated time

at 300 baud 45 seconds

SEQ 0012

N
PAGE

1
13

6.7 Set margins test06

This test will set 4 pairs of left and right margins, then
it
wilc
print a line of '='s that should be within those
Also a messa?e will be sent specifying an error
margins.
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

estimated time at 300 baud 40 seconds

6.8 horizontal

tabs testQ/

this test will print a reference Line composed of a number

of periods
followed by a 'vV'.
This pattern is repeated
across the page.
The location of each V will mark the location 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.
Y?e I's should line up directly under the
reference
L1ne
V's.

Example

This will be repeated for a variety ot ditferent

tab

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

estimated time at 300 baud,

132 col - 2 min

SEQ 0013

—

——-;4—---lIl--Illl-‘iih-i;iIlllI-ll--u----------llllllm-___.--_--_-_—__-

—

————

PAGE

6.9

Multiple Line feed test10

)

This test will print a reference Line ot dashes then

skip

N
Llines and print
the no.
of Lines skipped along with
some dashes for visual reference.
Each skip count
is done
gu‘ge
for N =1 to 7.
Vertical pitch will be 6 Lines per
inch.

EXAMPLE

estimated time at 300 baud 15 seconds

6.10 Horizontal motion test11l
)
)
This test will exercise
the head positioning
logic
by
printing a
Lline of H's at random column locations within
the Line.
The head will be positioned using 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 emp-

tied the buffer

the

character

level

should

transmit an XON character (021) allowin? 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

1nactive.

estimated time at 300 baud 10 seconds.

——

SEQ 0014

(N~

6.12 Vertical 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
(Pl
?ndd éPl
settings.
The setup for this test is down Lline
oaded.

estimated time at 300 baud 40 seconds
)
eight

6.13 Bell testlé
This test checks the printer bell

to
insure
that
bells are distinctly heard, even when sent at the maximum
transfer rate.
The program <ends 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.146 LAQO Life test15
)
)
Ordinarily this test simply prints a line of
when this test is
printable

been done,

looped on,

character.

'A’'s,

it prints two Lines

each

When all printable characters have

they will simply be repeated.

number

1is printed on each

example

Lline, with a 1

The current pass

column offset on

each new L1 e.The number of characters per
line will
be
determined by the 'width'' as selected at program startup.

CCCC 01.CCCCCCCCCCCCCCCCCCCCCCCC..
CCCCC 01

estimated time 1

cccececececceccccccccccc..

Line 300 baud S seconds

SEQ 0015

(N r~

c 2
PAGE 15

PAGE

6.15 LAOO dynamic exercisor test16
A
This test will
print 35 lines of mixed
format
da ta.
pattern will
be created which is comprised of th e upper
and tower case character set glus eight of the gpec1al

symbols.

This pattern will

be in the form of a 10

matrix, where the upper left corner will have the

6l ()

reatest

character density and the lower right corner will ave the
All possable combinations of hor izontal
lowest density.

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 test1/
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,

speed

The program wi LL then
at
this
baud rate,

then by use of the

escape

sent
sequence
ESC [Oc
the terminal ID message will b e
correct
from each
terminal
to
the PDP-11
to
verify
same
transmission and reception by
the
terminal.
Thi s
procedure 1is repeated for 300 baud.
because of in tervention no time estimate is given

6.17 Keyboard echo test20

This test will require the operator to type all the grinty the
ing kels on the keyboard.
If any keys are not seen
if
host they will be requested again , and a
third
t ine
necessary.
Instructions
witl then be typed to pr ess the
tab, return, and other non printing keys.
five sec onds 1is
allowed per key delay.

6.18 Character code echo test?2l

This test will print the octal

code of

along
with the ascii character.
non printable code the mnemonic

any

key

p ressed,

Where the charact er is a
of
that
code
w ill be

printed.
The
delete
char will be echoed as a mn emonic,
then the test will be done.

SEQ 0016

PAGE

6.19 Pitch setup test2?

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

POP-11 will send a tine of data that should conform to the

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

SEQ 0017

wn o

SEQ 0018

CONTENTS

1300
3-17100

MACRO M1110

20-APR-78 04:21

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

TESTS

SEQUENCE

TABLE

CONSOLE DRIVER ROUTINES
ERROR HANDLER
DZ11 DRIVER ROUTINES
SYSTEM MESSAGES

SEQ 0019

CZLAIAQ LAOO DMT PROG

TABLE

CZLATIAO LAOQ DMT PROG

MACRO M1110

20-APR-78 04:21

100

LTITLE

200
300

.SBTTL

SEQ 0020

CZLAIAQ LAOO DMTTM PROG
DMT/PMT PROGRAM FOR LAOO TERMINAL

ABS
.ENABL
.ENABLE AMA
LLIST MC.ME

400 000000
500
600
700
800

3888338583383

PAGE

;SOME DEF INITIONS
DLRVEC=60
DLTVEC=64

000060
000064
000000
000200
000340

PR10=G00000
PR14=200

PR17=340

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

BIT0=1
8IT1=2
BIT2=4
BIT3=10
BIT4=20

100000

BIT5=40
BIT6=100
B8177=200
B178=400
BIT79=1000
BIT10=2000
BIT11=4000
B1712=10000
81713=20000
B81T14=40000
81T15=100000

000005

DZCON=5.

;JMAX NO. OF DZ11°'S

THIS COMPILE

LASECT

000000
000002
000004
000006
000000
000022
000024
001220
000041
000
000000
001000
003634
000000
020000

000200
000137
000137

.=0

000000

000000
000016
000000

000000

000012
000000

.WORD

2,0

TRAP4:

.WORD

6,0.,12,0.16,0,22.0

.24
PFQ{L:

.WORD

START,PR]0

ACTDVC: .BYTE

:ACT11 LOAD MEDIUM

"WORD

20000

:ACT11 MANUAL MODE ONLY

JMP
JMP

START
KSTART

"WORD
"WORD
WORD

" WORD

001220
001242

;START OF TRAP CATCHER AREA

‘

200

0
APTHDR
0P

"ACT11 MODE
O IS MANUAL MODE
-APT11 HEADER BLOCK ADDRESS
"ACT11 END OF PASS HOOK ROUTINE

CZLAIAO LAOO DMT PROG

DMT /PMY PROGRAM FOR LAOO

12500
12600
12700
12800
12900
13000
13100
13200
13300
13400
13506
13600

001000

MACRO M1110
TERMINAL

20-APR-78 04:21
.

PAGE 2

1000

.EVEN

;TOP OF

;
001000
001002
001004
001006
001010
001012

000000
001014
000360
001440
000012
000030

SEQ 0021

STACK AREA

APT PARAMETER BLOCK

APTHDR:

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

0
$MAIL
240.

800.

JHIGH ORDER ADDRESS BITS
;ADDRESS OF APT MA]LBOX

;TIME FOR LONGEST TEST & MIN.
;TIME

FOR QUICK PASS

;TIME FOR EACH ADDITIONAL DVC(
10.
JLENGTH OF MAILBOX + ETABLE
SETEND-SMAIL/?2

JAPT MAILBOX AREA

14000 001014
14100 001016
14200 001020
14300 001022
14400 001024
14500 001026
14600 001030
14700 001032

000000
000000
000000
000000
000000
000000
000000
000000

$MAIL:
:
$FATAL
$TSTNO:
$PASNO:
$DEV(CT:
SUNIT:
$MSGAD:
:
$MSGL

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

;JAPT ENVIORNMENT

15100 001034
15200 001035
15300 001036
15400 001040
15500 001042
15600 001044
15700 001046
15800 001050
15900 001052
16000 001054
16100 001056
16200 001060
16300 001062
16400 001064
16500 001066
16600 001070
16700 001072
16800 001074
16900

000
000

000000
000000

000000
000000
000000
000000
000000
000C00

:
$ETABL
$SWREG:

$CPU:
:
SMEMAD

$SMEMAR:
SMEMA?Z:
SMEMR?:
SMEMAZ:
SMEMR3:
SMEMAS:

SMEMRS:
$VECT1:

$VECT?2:
$BASE:

$DEVM:
$SETEND:

.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

000000
000000
000000
000000
000000
000000
000000
000000

sMESSAGE TYPE (ODE
cFATAL ERROR NO.
sTEST NUMBER

;PASS NUMBER
sDEVICE COUNT
JUNIT NO. UNDER TEST

;MESSAGE ADDRESS (WORD BOUNDRY)
JMESSAGE LENGTH

(IN WORDS)

TABLE

0
0
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

;0= STAND ALONE, 1=AUTOMATIC MODE
;CONTROL BITS
JAPT SWITCH REG:ISTER

;JUSER SWITCHES
;CPU TYPE AND OPTIONS

JMEM TYPE & HIGH ORDER BITS
;MEMORY ADDRESS- HIGH

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

CZLAIAO LAOO DMT PROG

COMMON DATA STORAGE
17100
17200 001074
17300

17400
17500
17600

17700

17800

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

MACRO M1110

20-APR-78 04:21

PAGE 3

SEQ 0022

COMMON DATA STORAGE
.SBTTL
DZADDR: 160000
;ADDRESS OF 1ST DZ11
DZVECT: 000300
;ADDRESS OF 1ST DZ11 VECTOR
;TEMP STORAGE FOR DZ XMIT INTERRUPT ROUTINE
000000
DXTMP:
MSGTYP: 000000
MSGADR: 000000

SENDTM: 000000
000000
ERROR:
000000
SEQ:
TEST:
000000
000000
SO:
SRCONT: 000001
177570
SWR:
PASSNO: 000000
ANTMPO: 000000
ANTMP1: 000000
ANTMP?: 000000
TEMP:
000000
NOTYET: 090000
:
HOOK
000000
PC:
000314
LOO

LOOP]:
LOOPO:
TSTMP:
NUML IN:
coMm1l:

000000

JERROR SWITCH

JHOLDS TEST TABLE POINTER
;POINTER TO CURRENT TEST

JTHIS IS THE SIMULATED SWITCH REGISTER

;THIS IS THE SWITCH REGISTER CONTROL SWITCH
JPOINTER TO SWITCH REG, OR SOFT SR
;THIS 1S THE PROGRAM PASS NUMBER

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

TSTTYP:
GO:
UuT:

000000
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

coM2:

:
WORK
WORK1:

WORK?:
WORK3:
CHARIN:

WIDTH:
:
MODE
:
PMODE
RCTMP:
DZNUM-

ONL INE :

PNTR:
:
TMPTST

;SET 70 120 FOR 80 COLM
;DZ TRANSMIT MODE
;PMT MODE

FLAG

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

JH OF UNITS UNDER TEST

100 001220

200 001224
300 001232
400 001236
500

012706

052737
004737
000137

MACRO M1110
001000
100000
003754
001342

20-APR-78 04:21

001120

012706
004737
012737
012737
012737
012737
012737
005037

001320
001326
001326
001332
1900 001336

012737

8382328338583

001242
001246
001252
001260
001266
001274
001302
001310
001314

2000

2400 001342
2500 001344
2600 001350
2700 001356
2800 001362
2900 001366
3000 001370
3100 001374
3200 001400
3300
3400 001402
3500 001410
3600 001414
3700 001416
3800 001420
3900 001422
4000 001426
4100 001432
4200 001434
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

005037

012705
004737
000137

000240
005037
012737
013700
005037
005710
005237
062700
000772

012737
005737
001002
000000
000776
012706
013701
006301
006301
006301
010137
005000
012702
010260
010260
010260
062760
005060
005060
005060
005060
005060

001000
003754
017234
000200
000066
000200
000101
001210
001120
020326

000060
000062
000064
000066
177560
001206

SEQ 0023
#1000,SP

MOV
BIS
JSR
JMP

;START HERE

600

700

START:

PAGE 4

KSTART: MOV
JSR
MOV
MOV
MOV
MOV
MOV
CLR
CLR
MOV

#BIT15,SRCONT
PC,SWRTST

MOV
JSR
JMP

:SET SWITCH CONTROL

INIT

SEND C

034442
020304
001342

;SETUP STACK POINTER

IN CONSOLE CONTROL
#1000, SP

JINIT THE STACK

#TTYIN, 60
#PRIG ,aN62
#66,64
#PR14 ,aN06
#101,a#177560

JINIT CONSOLE VECTOR AREAS
; COMMANDS HAVE PRIORITY

#TKBUF ,PNTR

s INPUT BUFFER POINTFR

PC,SWRTST

TMPTST
SRCONT

#MSGOO

#MSGOO,RS

T£i$SEND

;TURN ON THE CONSOLE

;SEND TEST 1ID

.GET MESSAGE ADDRESS

s SEND MESSAGE

SHERE WE INI T THE DZ11 ROUTINES
001216
001402
001074
001202

INIT:

000004
1%:

001202
000010
000006
001202

CLR
MoV
MOV
CLR

uuT

DZADDR,RO

“GET FIRST DZ ADDRESS

INC
ADD

DZNUM
?lO,RO

:DZ PRESENT ?
SYES COUNT IT
*POINT TO NEXT ADDRESS

#6, TRAPG

:FIX TRAP CATCHER

TST

000004

001000
001202

2%:

3%:

MOV
TST

BNE
HALT
BR

MOV
MOV
ASL

ASL
ASL

001152
020746
025126
025246
025366
000050
025006
024166
024666
024306
024546

NOP

MOV
CLR

4%:

025366

MOV
MOV
MOV
MOV
ADD
CLR
CLR
CLR
CLR
CLR

#2% , TRAPG

DZNUM
(RO)

%§~un
,

#1000.,5P
gg~un.a1
R1

:SU TRAP CATCHER

SANY DZ'S ?

:NO- NOTHING TO TEST

:CLEAR THE STACK POINTER

SGET DZ COUNT

R1
sé.NUMLIN

:8 LINES PER D2
SSAVE TOTAL NO OF LINES

#DZCOMB,R2
R2.,COMIN(RO)
R2. COMOUT (RO)
R2 . COMEND (RO)
#50,COMEND(RO)
COMCNT (RQ)

:START OF

CURREP (RQ)
CURADD (RO)
CURTER(RO)
STOP(RO)

COMMAND BUFFERS

;END IS 20 WORDS AWAY

—~

CZLAIAO LAOO DMT PROG

START POINT FOR PROGRAM

5600 001520

5700 001526
5800 001532
5900 001536

MA(RO M1110

012760

000145
000002
000050

012702
012703
013705
013704
010225
012725
010325
012725
062703
062702
005304
001364

032330
032246
001076
001202

20-APR-78 04:21

MOV
ADD
ADD
DEC
BNE

020626

6000 001540

6100
6200

6300
6400 001542

6500 001546
6600 001552
6700 001556
6800 001562
6900 001564
7000 001570
7100 001572
7200 001576
7300 001602
7400 001606
7500 001610
7600 001612

000240

000240
000240
000012
000012

PAGE 4-1

SEQ 0024

(RO) JINIT TO 300 BAUD ODD PARITY
#145,DZLINE
#2,R0O
#50,R2
sNEW BUF=0LD BUF + 20.
R1
4%

;SETUP VECTORS FOR INTERRUPTS

INIT1:

1%:

MOV
MOV
MOV

MOV
MOV
MOV
MOV
MOV
ADD
ADD
DEC
BNE

NOP

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

;FIRST

VECTOR ADDRESS

;SETUP A COUNT FOR DZS
sSETUP RECIEVE INT VECTOR
JAND ITS PRIORITY
;SETUP TRANSMIT VECTOR
JAND ITS PRIORITY

JSET POINTER TO NEXT INT SERVICE ROUTINE

;SU NEXT RX INT SVC ROUTINE
JNEXT LINE PLEASE
;IF THERE IS ONE

—~A

CILAIAQ LAQO DMT PROG

STARY POINT FOR PROGRAM

CZLAIAO LAOO DMT PROG

START POINT FOR PROGRAM
7800
7900
8000 001614

8100 001620
8200 001624
8300 001626
8400 001632
8500 001636
8700 001646

8338828828

10700 001726
10800 001732
10900 001736
001742
001744
001746
001752

MACRO M1110

013701
012702
005000
005060
010260
010260
010260
010269
062760
062700
062702
005301
001355

001152
026446

013700
012701
013702
010221
012712
062702
005300
001371

001202
031546
001074

013701
012702
012703
010322

001202
025506
000001

025626
026066
026206
026326
025746
000016
000002
000020

20-APR-78 04:21

1%:

025746

12200 002002
12300 002006
12400 002010
12500 002014
12600 002016
12700 002022
12800 002024
12900 002030
13000 002032
13100 002040
13200
13300 002044
13400

1¢%:

#KBBUF ,R?
RO
KBCNT (RO)
R2 ,KBBUFB(RO)
R2 ,KBBUF
] (RO)
R2,KBBUFO(RQO)
R2,KBBUFE (RO)
(RO)
#16 ,KBBUFE
#2 RO
#20,R2
R1
1%

MoV

#DZCSR,R1

DEC
BNE

RO
1%

[ 01Y)
MOV
MOV
ADD

DZADDR,R2
R2,.(R1)+
#20, (R2)
#10,R2

JGET # OF LINES

;SETUP FIRST KEYBOARD BUFFERhASEAOATDRESS
;ZERO CHAR COUNT
;DEFINE BEGINING OF BUFFER
JINIT PUT IN POINTER

JAND TAKE OUT POINTER
;DEFINE END OF BUFFER
;AS 16 BYTES PAST BEGINING

sNEXT LINE PLEASE

;BUFFER AREAS ARE 20 BYTES LONG EACH
JANY MORE TO SETUP?
JYES. DO SO

;COUNT OF DZS
;SETUP ADDRESS OF TABLE
;SETUP ADDRESS OF 1ST (SR
JPUT A CSR ADDRESS INTO THE TABLE
;CLEAR THE DZ
;CSRS ARE 4 WORDS APPART
JANY MORE

TO DO?

;YES. DO EM.

JINITIALIZE TABLE OF TCR BITS
INIT4:
1%:

2%:

000400

INITS:
000004

1%:

2%:

012730
000002

001202

000006
002046

MOV
(LR
CLR
MOV
MOV
MOV
Mov
ADD
ADD
ADD
DEC
BNE

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

000020
000010

002044
031546
012720
000002

SEQ 0025

JINIT DZ11 RECIEVE
NUML IN,R1
MOV
INIT2:

001754
001756

001760
001762
001764
2000 001772
12100 001776

PAGE 5

000004
5%:

MOV
MOV
MOV
MOV
ASL
CMP
BNE
DEC
BNE

DZNUM,R1
#TCRBIT,RZ
#1,R3
R3,(R2)+
R3
#400,R3
2%
R1
1%

CLR
CLR
L [01Y)
MOV
MOV
MOV
INC

RO
R3
#5%, TRAPS

MOV

#6, TRAPS

DZCSR(RO)
,R1
#12720,R2

CMP
BNE
ADD
INC
CMP
BNE

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

JMP

INIT6

HALT

;RX-ON,300,P-0DD,1-STOP,7=-BIT

;LOAD LPR REG

;DONE ALL LINES ?

;DZLPR TRAPPED (16XXX2)

CZLAIAO LACO DMT PROG

START PQINT
13600
13700
13800
13900
14000
14100
14200
14300
14400
14500
14600
14700
14800
14900
15000
15100
15200

FOR PROGRAM

002046
002050

002112
002120

002126
002134
002140
002142
002144
002152

15300
15400
15500 002156
15600 002160
15700
15800 002164
15900 002166
16000
16100 002172
16200 002174
16300
16400 002200
16500 002202
16600 002206
16700 002210
16800 002214
16900
17000

MACRO M1110

001202
031546
002156
000006
002164
040140
002172
000377
002200
000377
000002
000006
002220

002202

002202
002202
001120

001242
001220

20-APR-78 04:21

INIT6:
000004

1%:

000004
000004
000004
000004
000005

PAGE 6

CLR

MOV
MOV
MOV
TST
MOV
MOV
MOV
MovB
MOV

DZNUM,R1
DZCSR(RO)
,R2
#5$ TRAP4

ADD
DEC

#2,R0
R1
1

MOVB
BNE

000004

SEQ 0026

MOV
JMP

6(R2)

#6%, TRAP4
#40140, (R2)
#78, TRAPS

JENABLE ALL LINES TX >> T(R

#377.,5(R2)

;SET DTR ALL LINES >> T(R+1

#8$ TRAPS

#6, TRAPG

ISEQ

HALT
JMP

6%:

HALT
JMP

108

7%:

HALT
JMP

10%

8%:

HALT
TST

11%:

BNE

JMP
JMP

JSCAN-EN,RX INT EN,TX INT EN >>CSR

#377,4(R2)

5%:

10%:

;RING-CARRIER REG.

108

SRCONT
11%
KSTART
START

; TRAPPED FROM 16XXX6 RING/CARRIER

s TRAPPED

FROM 16XXX0

CSR

; TRAPPED FROM 16XXX4

TXMIT

. TRAPPED FROM 16XXX5

DTR

CTL

SIERSEN..........

MACRO M1110
CZLAIAO LAOO DMT PROG
START POINT FOR PROGRAM
17200
17300
17400
17500
17600 002220
17700 002224

17800 002232

18100
18200
18300
18400
18500

002256
002260
002264
002272
002300

002300
002304
18600 002310

18700 002314
18800 002316

002316
002322
18900 002326

002326
002332
19000 002336
19100 002340
19200
19300
19400
19500 002342
19600 002350
19700 002356
19800 002364

19900 002366
20000 002374
20100 002376
20200 002402
20300 002410
20400 002416
20500 002422
20600 002430
002430
002434
20700 002440
20800 002446
20900

20-APR-78 04:21

PAGE 7

SEQ 0027

;TEST SEQUENCER SUSROUTINE

: TEST SEQUENCE INITIALIZATION
012706
012737

001000
020326

012705
005037
004737
004737
005737
001402
000137
012737
012737

034442
001174
031700
004216
001120

012705
004737
004737
000001

042125
020304
034166

012705
004737

042113
020304

012705
004737
000001
000776

042164
020304

002450
002342
000000

I1SEQ:

001206

MOV

#1KBUF ,PNTR

SENDALL #MSGOQ
MOV
#MSGOO RS
CLR
JSR
JSR
TST

BEQ
4%

000060
000062

JMP

MOV
MOV
SENDC
MOV
JSR
JSR

WAIT

SEQS8:

WSEQ:

MODE
PC.SEND
PC,SCAN
SRCONT

LSEQ

#SEQMS ,a#60
#PR10,a#62
#MMSGK2
#MSGK2 RS
PC,CSEND
PC,QUIET

SENDC
MOV
JSR
SENDC
MOV
JSR

#MSGK4
RS
#MSGK4
PC,CSEND

WAIT

;SET STACK AT 1000
JINIT TTY BUFFER POINTER

SP
#1000,

#MSGK1
#MSGK1,RS
PC.,CSEND

;SEND TEST 1.D.
;BUILD SEND CALL USING MESSAGE ADDRESS
;NOW SEND THE MESSAGE
;SIZE FOR TERMINALS
;SWITCH CONTROL ?
JYES-JUMP

;SU TTI RECV INTR VECTOR

(PRI O
;PMT MODE MSG.

;GET MESSAGE ADDRESS
;SEND MESSAGE

;SEND 'READY"’

;GET MESSAGE ADDRESS
;SEND MESSAGE
;"ENTER COMMANDS''
.GET MESSAGE ADDRESS
s SEND MESSAGE

;. MODE ANSWER AND TTY VECTOR SETUP
113777
142777
122777
001004

052737
000402
005037
012737
012737
005037
117737

012705
004737
012737
000002

000120

176636
176630
176622

100000

001176

177562
000240

001176
017234
000340
001160
176560

001160
020304
000101

000060
000062

SEQMS$:

2$:
3%:

001160

177560

MOVR
BICB
CMPB
BNE
BIS
BR
CLR

MOV

MOV
CLR
MOVB
SENDC
MOV
JSR
MOV
RTI

aN177562,aPNTR
#240,3aPNTR
#'P,aPNTR
2%
#8I1T15,PMODE
3%
PMODE

#TTYIN,a#60

#PR17 3462
WORK
aPNTR,WORK
#WORK
#WORK ,RS
PC,CSEND
#101,a4177560

:GET INPUT ANSWER

;STRIP PARITY B LC
;PMT MODE ?
JNO~ JUMP

:YES= FLAG [T

;DMT MODE
JSET TTY IN VECTOR

;PRIORITY 7

;ECHO THE CHARACTER

.GET MESSAGE ADDRESS
MESSAGE
s SEND
;CONSOLE ACTIVE

CZLAIAO LAQO DMT PROG

START POINT FOR PROGRAM

21100
21200
21300 002450
21400 002454
21500 002456
21600 002462
21700 002470
21800 002472
21900 002476
22000 002502
22100 002504
22200 002510
22300 002514
22400 002520
22500 002522
22600 002526
22700 002534
22800 002536
22900 002542
002542
002546
002552
23000 002556
23100 002562
23200 002566
23300
23400 002572
002572
002576
002602
23500 002606
23600 002612
23800 002616
23900 002622
24000 002626
24100 002634

MACRO M1110

20-APR-78 04:21

PAGE 8

SEQ 0028

JINITIAL TEST STARTUP SEQUENCE
005737
001471
004737
032737
001452
004737
005737
001433
004737
004737
005737
001402
000137
032737
001412
005037

001120

012705
005037
004737
000137
105237
000137

042336
001174
031700
002730
001116
002462

004036
002000

001116

1%:

003302
001214

003356
003460
001214
002730
010000

001116

001214

005037
004737
005037
000137

042300
001174
031700
001214
002730

105037
004737
012737
000137

001116
003356
000001
002730

012705

LSEQ:

2%:
3%:
A ¥

1ST
BEQ
JSR
BIT
BEQ
JSR
IST
8EQ
JSR
JSR
TST
BEQ
JMP
BIT
BEQ
CLR
SENDALL
MOV
CLR
JSR
JMP

SRCONT

sSWITCH CONTROL ?

PC,GETSWS
#81710,S0

JREAD SWITCH REG.
JTEST NO. IN SWS ?

20%

10%

PC,GETTST
PC,MODCON
GO

3%
40%
#B1T712,S0
5%
GO
#MSGSE
#MSGS2,RS
MODE
PC,SEND

40%

INCB
JMP

10%:

SENDALL #MSGS1
#MSGS1,R5
MOV
MODE
CLR
PC,SEND
JSR
GO
CLR
40%
JMP

001214

CLRB
JSR

MOV

JMP

;NO- GOTO 13

;CHECK VALIDITY

5%:

13%:

;NO-JUMP TO 20

SO
1%

SO
PC,GETTST
#1,G0

:NO GOOD GOTO 10
JTEST ADDR & INFO
;MODE

CONFLICT

;YES- GOTO 3

;OK- GO START TEST
. SEQUENCE TESTS ?

;YES GOTO 5

;ERROR MODE CONFLICT swnwx

;BUILD SEND CALL USING MESSAGE ADDRESS

;NOW SEND THE MESSAGE
s TRY NEXT

TEST

JERROR INVALID TEST NO, *xxwx
;BUILD SEND CALL USING MESSAGE ADDRESS
;NOW SEND THE MESSAGE

;SU FOR TEST O

;TEST ADDR & INFO

40%

; CONSOLE CONTROL SECTION
24500 002640
24600 002644
24700 002650
24800 002654
24900 002656
25000 002662
25100 002666
25200 002672
25300 002676
25400 002700

25500 002710
25600 002716
25700 002722
25800 002730
25900 002734

004737
004737
005737
001402
000137
004737
042705
122705
001411

012705
004737
012737
000137
112737
005737
001405

003356
003460
001214

:
208

002730
004104
000240
000121

21s:
25%:

042113
020304

177777

002730
000001
001214

JSR
JSR
TST
BEQ
JMP
JSR
81C
CMPB
BEQ
SENDC
MoV

001214
001214

27%:

40%:

JSR
MOV
JMP
MOVB
TST
BEQ

PC.GETTST
PC ,MODCON
GO

25%

40%

PC.ANYWAY

#240 RS
#'Y RS

27%

#MSGK1
#MSGK1,R5
PC,CSEND
#-1,G0
40%
#1,G0
GO

43%

;GET TEST ADDR & INFO
;MODE CONFLICT ?
:YES- GOTO 25
;GO START TEST
JRUN ANYWAY

;YES GOTO 27
:SEND 'READY"'
.GET MESSAGE ADDRESS
E
MESSAG
s SEND
;GO BACK TO WAIT

MACRO M1110
CZLAIAO LAQO DMT PROG
START POINT FOR PROGRAM

26000 002736
26100 002740
26200 002744
26300 002750
26400

100002
000137
000137
000137

002336
002754
002450

20~APR-78 04:21

41%:
:
(2%

43%:

PAGE 8-1
BPL
JMP
JMP
JMP

SEQ 0029
42%

WSEQ
RSEQ

LSEQ

JWAIT FOR NEW COMMANDS
;START TESTING

;JGET NEW TEST DATA FROM SWS

CZLAIAQ LAOO DMT PROG

START POINT FOR PROGRAM

MACRO M1110

20-APR-78 04:21

26600
26700

26800
26900 002754
27000 002760
27100 002764
27200 002766
002766
002772
002776
27300 003002
27400 003006
27500 003012
27600 003016
27700 003022
27800 003026
27900 003030
28000 003036
28100 003044

28300 003054
28400 003056
28500 003062
28600 003070
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
30300 003174

SEQ 0030

;TEST RUN & POST RUN CONTROL

004737
005737
001474

033000
001216

012705
005037
004737
004777
004737
005277
004737
005737
001433
017737
032737
001404
052737
000402
005037
042737
053737
005137
042737
043737
032737
001423
032737
001406
005737
001401

037154

000137
000137

002316
002754

012705
004737
000000
000137

042244
020304

000000

RSEQ:

001174

005237

032737
001401

PC,RESETO
yuT
91%
BEQ
SENDALL #MSG?75
PC,SEND
PC,aTEST
PC,QUIET
aSEQ
PC,EOPT
SRCONT
5%
@SWR, WORK
:2IT9,UORK

;NOW SEND THE MESSAGE

001160

100000

001176

BIS

#81T15,PMODE

BIC

#007377 ,WORK

007377

001160

007377

001160

010000

001116

5%:

001116

6$%:

001160
001160
001160

000400

001116
001116

2%:

8%:
9%:
91%:

001116

10%:

177777

002754

11%:

001124
003634

15%:

001120

BIS
coM
BIC

8IT
BEQ
BIT

001116

16%:

2%
PMODE

WORK
, SO
WORK

#81712,50
108
#8178,S0

9%
SRCONT
8%

JMP
JMP

RSEQ

SENDC

#MSGK6

HALT

MoV
JSR

JMP

INCB

JWAIT

TILL DONE

JPASS COUNT +1

:REPORT PASS DONE

;SWITCH CONTROL ?
;NO- GO TO S5

;JCHECK SWITCH REG FOR CHANGES

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

SEQ8

#MSGK6 RS
PC,CSEND
ISEQ

PC,GETTST
TEST, 4-1
15%
PC,MODCON
GO
108
RSEQ

INC
JSR

PASSNO
PC,EOP

#B8178,S0
19%
SRCONT
17%

;SEQUENCE TESTS ?

JYES= JUMP TO 10

JEND OF TEST HALT ?
;NO JUMP
JSWITCH CONTROL ?
JNO JUMF
; END OF TEST
JGET NEW CONTROL INFO

JSR
(MP
BEQ
JSR
TST
BEQ
JMP

BIT
BEQ
TST
BEQ

;G0 DO TEST >=>=>=>=>=d>=d>=>=>

#007377 ,WORK

WORK
, SO

BEQ
TST
BEQ

HALT

002220

000400

BR
CLR

BIC

001120

TERMINALS

;BUILD SEND CALL USING MESSAGE ADDRESS

MODE

001160

001176

THE

JANY TERMINALS TO TEST ?

#MSG75,R5

176066

001000

JRESET

MoV

JSR
JSR
JSR
INC
JSR
TST
BEQ
MOV
gég

003460
001214

21100

JSR
TST

CLR

031700
176106
034166
176074
003510
001120

003356
001114

30600 003212
30700 003214
30800 003220
30900 003224
21000 003226

31200 003232
31300 003236
31400 003242
31500 003250
31600 003252
31700 003256

PAGE 9

:RESTART

TEST

JNO TERMINALS SELECTED ...
.GET MESSAGE ADDRESS
;SEND MESSAGE

JPOINT TO NEXT TEST
;GET TEST ADDR & INFO
JEND OF TABLE ?
JYES- JuMP
s CHECK MODE
;BAD- TRY NEXT TEST

;0K GO DO NEXT TEST

;PASS NUMBER +1

JREPORT PASS COMPLETE
JEND OF PASS HALT ?
JNO- JUMP
;SWITCH CONTROL ?
;NO JUMP

START PCINT FOR PROGRAM
31800 003260

35888 003262

32100 003266

000000

002450

17%:

105037

001116

19%:

004737
000137

32600 003302
32700 003306
32800 003312

005037
105737
002407

32900 003314
33000 003322

20-APR-78 04:21

000137

32200 GU3272
32300 003276

32400
32500

MACRO M1110

003356
002754
001214
001116

000022

000001

001214

33500 003340
33600 003344
33700 003346
g%ggg 003354

105037
005737
100403
012737
000207

001214

34000 003356
34100 003362
34200 003366
34300 003374
34400 003400
34500 003406
34600 003412
34700 003420
34800 003426
34900 003434
35000 003442
35100 003450
%g%gg 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

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

112737
005737
001405
105737
100002
005037
000207

000001
001176

33400 003334

001212

000001

001214

001160
001112

001112
001112
001114
001;15
001
001 112
001214

001212
001214

%2%88

005037
113737
012705
004737

001134
001116
020574
033646

36900 003540
37000 003546
37100 003554
37200 003560
37300 003564
37400 003572

113737
017737
012705
004737
113737
113737

020601
175340
020574
033646
020577
020600

36800 003532

113737

020600

001134

034672

034673
001134

034661
034662

CLRB

LSzZQ

JEND OF PASS ...i.eiurernerecnocaanans

(LR
TSTB
BLT

CMPB
BGT
MoV
RTS

GO
N
4%

REAL:

C(LRB

1$:

TST
BMI
MOV
RTS

JSET TEST O
;START TEST.....

TSTTYP
1%
#1,G0
PC
WORK
SEQ
SO, WORK
WORK
WORK
, SEQ
SEQ
WORK
, SEQ
#TSTTBL,SEQ
aSEQ, 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

EOPT:

;GET NEW TEST NO. ETC.

S0.#22
33
#1,G0
PC

GETTST: CLR
CLR
MOvB
ASL
ADD
ASL
ADD
ADD
MoV
ADD
MOV
ADD
RTS

;END OF

36400 003510
36500 003514
36600 003522
36700 003526

JMP

PC,GETTST
RSEQ

VALID:

001116

HALT

SEQ 0031

JSR
JMP

22%:

123727
003003
012737
000207

33100 003324
%%ggg 003332

PAGE 9-1

;POINT TO PASS NO.

TEST PASS ROUTINE

(LR TEMP

MOVB

SO, TEMP

MOV
JSR

#EBUF ,RS
PC.BIOCT

MOVB
MOV
MOV
JSR
MOVB
MOVB

EBUF +5 ,MS5G03+24.
aSEQ, TEMP
#EBUF ,R5
PC,BIOCT
EBUF +3,MSG03+14.
EBUF +4 ,MSG03+15.

MOVB

EBUF +4 ,M5G03+23.

;CONVERT TEST NO TO ASCII

;PUT IN MSGO3
; CONVERT PASS NO.

;PUT IN MSGO3

—

CILAIAO LAQO DMT PROG

37500 003600
37600 003606
003606
003612
003616
37700 003622

113737

020601

012705
005037
004737

034643
001174
031700

012705
004737
000207

034643

20-APR-78 04:21

PAGE 9-~2

SEQ 0032

MOVB
EBUF +5,MSG03+16.
;REPORT END OF TEST PASS
SENDALL #MSGO3
MoV
#MSGO3
R5
;BUILD SEND CALL USING MESSAGE ADDRESS

034663

CLR
JSR

MODE
PC,SEND

;NOW SEND THE MESSAGE

MOV
JSR

#MSGO3,RS
PC,CSEND

.GET MESSAGE ADDRESS
s SEND MESSAGE

SENDC

020304

RTS

#MSGO3
PC

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

”OF """
"PASS SUBROUTINETM
SEND

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

38500

003672
003702

003712
003716
003716
003722
003726
003726
003732
003736
003742
003742
003746
003752

EOP:

004002
004010
004016

004020
004026
004034

SENDC
MOV

#MSGO1
#MSGO1,RS

JSR
MoV

001134

MODE
PC,SEND

PC,CSEND
PASSNO, TEMP

#EBUF ,R5
PC.BIOCT
EBUF +6
SENDALL #EBUF
#EBUF ,RS
MoV
CLR
MODE
PC,SEND
JSR
#EBUF
SENDC
MOV
#EBUF ,R5
PC,CSEND
JSR

10}
JSR
CLRB

SENDALL #MSG75

MoV
CLR

#MSG75 ,RS
MODE

SENDC
MOV

#MSG75
#MSG75,R5

JSR

JSR
RTS

012737
012737
017737
000240
000407
012737
017737
000002
012737
012737
000207

#MSGO1,RS

CLR
JSR

T TEST
003754
003762
003770
003776

SENDALL #MSGO1

MoV

004002
000340
175126

000004
000006
001116

000176
175106

001122
001116

000006
000000

000004
600006

SWR -

PC,CSEND
PC

;NOW SEND THE MESSAGE

;GET MESSAGE ADDRESS

s SEND MESSAGE
; CONVERT PASS NO TO ASCII
;PRINT

PASS NO.

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

:GET MESSAGE ADDRESS

;SEND MESSAGE

;SEND CRLF

;BUILD SEND CALL USING MESSAGE ADDRESS

;NOW SEND THE MESSAGE

;GET MESSAGE ADDRESS
s SEND MESSAGE
:RE TURN

FOR’ HARDWARE SWiTCH REGISTERTM TMTM T Tt
176 IF NONE ON SYSTEM

SWRTST: MOV
MOV
18:

PC,SEND

;BUILD SEND CALL USING MESSAGE ADDRESS

MOV
NOP

#2%,TRAP4
#PRI7, TRAP4 +2
a@SWR,SO

28:

MOV
MOV

#176,SWR
aSuR.SO

:TRAPPED TO 4 SET UP FOR
: SOF TWARE SWITCH REG.

38:

MOV

#6, TRAPS

;RESET TRAP CATCHER

RTS

MOV

#0, TRAP4+2

—4r

MACRO M1110
CZLAIAQ LAOO DMT PROG
START POINT FOR PROGRAM

41200
41300
41400
41500
41600
41700
41800
41900
42000
42100
42200

001122

000176

175046
001000

001116
001116

100000

001176

GETSWS:

3%:

1%:

001176

2%:

(MP
BNE

SWR,#000176
3%

MOV
8IT

aSWR, SO
#B1T79,S0
1%
#BIT15,PMODE

HALT

BEQ
BIS
BR
CLR

RTS

JREAL SWS ?
JYES SKIP HALT

023727
001001
000000
017737
032737
001404
052737
000402
005037
000207

;ALLOW OPERATOR TO CHANGE 176
;READ SWS TO WORK COPY
;PMT MODE ?
2NO

JYES= SET THE FLAG

PMODE
PC

REgpd NNBRERR

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

012737
005005

004146

012705
004737

042212
020304

012705
004737

023420
033614

113705

43600
43700
43800
43900 004152
44000
446100
44200
44300
44400
44500
44600
44700

20000000000

43300
43400
43500

SEQ 0033

S"ROUTINE TO

R RRERR RRERRRR

43200

PAGE 9-3

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

42300

42400
42500
42600
42700
42800
42900
43000
43100

20-APR-78 04:21

105705
001002
112705

000207
012737

105737
100375
110537

012705
004737
005037
012737

000002

000060

MOV

JSR

TSTR

000116
177562

017234
177564

1%:

BNE
MOVR

3s:

MOVB

2%:
000060

177566

037154
020304
001146
000101

ANYWAY: MOV
CLR
SENDC
MOV
JSR
STALL

177560

A ¥

#3% 3460
RS
#MSGKS
#MSGKS5 RS
PC,CSEND
#10000.
#10000. ,R5

MOV
RTI

JRUN ANYWAY

? MSG

:GET MESSAGE ADDRESS

s SEND MESSAGE

;SETUP STALL TIME CONSTANT

PC . MSTALL

JASSUME NO OF NO ANS

RTS

MOV
TSTB
BPL
MOVR
SENDC
MOV
JSR
CLR

;SET INTERRUPT TO 3%

a¥177562,R5

#TTYIN,a#60

an177564
3

RS,a#177566
#MSG75
#MSG75
RS
PC,CSEND

LOOPO
#101,a4177560

sGET ANS

JRESTORE TTY INTR HANDLER

JECHO THE (HAR

;GET MESSAGE ADDRESS
s SEND ME SSAGE
;JABORT THE TIMEOUT
JENABLE CONSOLE

-4

MACRO M1110
CZLAIAO LAOO DMT PROG
START POINT FOR PROGRAM

20-APR-78 04:21
;

44900
45000

45100
45200
45300

45400

45500

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

004410

012705
005037
004737

034741
001174
031700

012705
004737
005037
023737
001424
013700
006300
?05760
00006
042760
005237
000760

013560
033614
001160
001160

001140

SCAN:

001152

1%:

020626
100200
001160

020626

000200
024046
001160

020626

3%:

4%:

001152

6$%:

001204

JSR
STACL
MCV

PC,SEND
#6000.
#6000. ,R5

;NOW SEND THE MESSAGE
JWAIT A WHILE
;JSETUP STALL TIME CONSTANT

BEQ
MOV
ASL
TST
BPL
BIC
IgC

JALL LINES DONE ?
JYES- EXIT
4%
WORK RO
;X2 FOR WORD OFFSET
RO
DZL INE (RO)
;BIT 15 SHOULD BE SET
3%
;NO RESPONSE- DESELECT
(RO)
DZL
INE
#100200,
¥2RK
;CHECK NEXT LINE

JSR
CLR
(MP

BIS
CLR

PC,MSTALL
WORK
WORK ,NUML IN

#B177,DZLINE (RO)
ACTIVE (RO)

INC

WORK

CLR

HOOK

CLR

JSET LINE INACTIVE
JCHECK NEXT LINE

ONL INE

CLR

uut

BEQ
MOV

8%
ONL INE ,RO

CMP

;BUILD SEND CALL USING MESSAGE ADDRESS

ONL INE ,NUML
IN

020626

ASL
TSTB

001216
001204

INC
INC

uut
ONL INE

JSR
g%g

rL,KBOUT
g?IT15.DZLINE(RO)

BMI
7%:

8%:

004737
052760
000207

JLINK TO RECV ROUTINE
;JPROMPT TERMINALS

001160

001140
001204
001216
001204

MOV
#5%,HOOK
SENDALL #MSGOS
?OX
;83?05,R5

033364

100000

020626

5%:

BR
RTS

RO
DZLINE(RV)

6%
PC

;REMOVE CHAR FROM BUFFER
;SET RESPONDED BIT

MACRO M1110
CZLAIAO LAOQO DMT PROG
START POINT FOR PROGRAM

CILAIAO LAQO DMT PROG

START POINT FOR PROGRAM
100

200
300
400
500
600

20-APR-78 04:21

PAGE 11

;ONE WORD OF PASS COUNT
TSTTBL:

1100 004424
1200 004426
1300 004430
1400 004432
1500 004434
1600 004436
1700 004440
1800 004442
1900 004444
2000 004446
2100 004450
2200 004452
2300 004454
2400 004456
2500 004460
2600 004462
2700 004464
2800 004466

005410
000000
000000
005452
000001
000000
005700
000002
000000
005732
000003
000000
006040
000004
000000
006412
000005
000000

3000 004472
3100 004474

000006
000000

000007
000000
010072
000010
000000
010464
000011
000000
011164
000012
000000
011630
000013
000000
012170
000014
000000
015676
000015
000000
016334
000016
000000
004612
000217

000007
000000
TEST10
000010
000000
TESTN
000011
000000
TEST12
000012
000000
TEST13
000013
000000
TEST14
000014
000000
TEST15
000015
000000
TEST16
000016
000000
TEST17
000217

2900 004470
3200 004476

3300 004500
3400 004502
3500 004504
3600 004506
3700 004510
3800 004512
3900 004514
4000 004516
4100 004520
4200 004522
4300 004524
4400 004526
4500 004530
4600 004532
4700 004534
4800 004536
4900 004540
5000 004542
5100 004544
5200 004546
5300 004550
5400 004552
5500 004554
5600 004556
5700 004560

SEQ 0035

.SBTTL TEST SCQUENCE TABLE
;ONE WORD OF TEST ADDRESS
;ONE WORD OF TEST DESCRIPTION DATA
;
BIT7
TEST MANUAL INTERVENTION
BIT4:0 TEST NUMBER
H

700

800
900
1000 004424

MACRO M1110

006610

007520

TESTO0
000000
000000

;DATA PATHS TEST

TESTO1

;ALL PRINTABLE CHARACTERS TEST

TESTO2
000002
000000
TESTO3
00C003
000000
TESTO4
000004
000000
TESTOS
000005
000000

;NON-PRINTABLE CHARACTERS TEST

000001
000000

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

TESTO06

sSET MARGINS TEST

TESTO?7

JHORIZONTAL TABS TEST
JMULTIPLE LINE FEED TEST
;HORIZONTAL MOTION TEST
;BUFFER OVERRUN TEST

JVERTICAL PITCH TEST
;BELL TEST

JLIFE TEST
JDYNAMIC EXERCISOR
;BAUD RATE TEST

CZLAIAO LAOO DMT PROG

TEST

SEQUENCE

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

TABLE

000000
012260
000220
000000
014412
000221
000000
015214
000222
000000
177777

000000

MACRO M1110

20-APR-78 04:21

PAGE 11-1

SEQ 0036

000000
TEST20
000220
000000
TEST21
000221
000000

TEST22
000222
000000
177777

000000

;DMT KEYBOARD ECHO TEST

;DMT CHARACTER CODE EC‘'O TEST
;DMT PITCH SETUP TEST
JEND OF

TABLE FLAG

20-APR-78 04:21

7800

7900
8000

8100
8200
8300 004612
004612
004616
004622
8400 004626
8500 004632
8600 004636
8700 004642
8800 004646
004646
004652
004656
8900 004662
004662
004666
004672
9000 004676
004676
004702
004706
9100 004712
9200 004716
9300 004722
9400 004726

004726
004732
004736

9500 004742
004742
004746
004752
9600 004756
004756
004762
004766
9700 004772
9800 004776
9900 005002

10000

(¥

(Yl

b
b
—

— =

10100 005004
10200 005006
10300 005012
10400 005020
10500 005026
10600 005030
10700 005034
10800 005040

00 005056

PAGE

SEQ 0037

LSBTTL

TESTS

A TEST

OF " THE VARIOUS
BAU

INTERVENTION IS REQUIRED

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

rxJ

012705
005037
004737
012703
012704
012702
004737

035546
001174
031700
035636
035€60
005374
033442

012705
005037
004737

037463
001174
031700

012705
005037
004737

035743
001174
031700

012705
005037
004737
004737
012702
004737

036116
001174
031700
005004
005402
033442

012705
005037
004737

037463

012705
005037
004737

036112
001174
031700

012705
005037
004737
004737
005037
000207

036116
001174
031700
005004
001140

000240
005037

012737
023737
002402
000137
013700
006300
105760
100003

005237
000761

000240

TEST17:
" SENDALL #MSG2
MOV
CLR
JSR

MOV

MOV
MOV
JSR
SENDALL
MOV
CLR
JSR
SENDALL
MOV
CLR
JSR
SENDALL
MoV

CLR
JSR
JSR
MoV
JSR
SENDALL
MOV
CLR
JSR
SENDALL

001174
031700

001204
034746
001204

005372
001204

MOV

CLR
JSR
SENDALL
MOV
CLR
JSR
JSR
CLR
RTS

5%:

001160
001152

6%:

66%:

020626
001204
61%:

NOP
CLR
MoV
(MP

BLT

JMP
MOV
ASL
TSTB
BPL

INC
BR
NOP

>lolo-00"0.)!00!'001000'0loln'llllvllllooool'll

#MSG27 ,R5

MODE
PC,SEND

#MSG30,R3
#MSG31,R4
#T0378BL ,R2
PC,ANVENT
#MSG88
#MSG88,R5
MODE
PC,SEND
#MSG32
#MSG32,R5
MODE
PC,SEND
MSG36
#MSG36,RS
MODE
PC,SEND

PC,5%

#10318B2,R2
PC ,ANVENT
#MSG88
#MSG88,R5
MODE
PC,SEND
#MSG35

#MSG35,R5

MODE
PC.,SEND

#MSG36
#MSG36,R5
MODE
PC,SEND

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

;SETUP ADDRESS OF 1ST PART OF MESSAGE
;SETUP ADDRESS OF 'HIT RETURN WHEN DONE "' MESSAGE
;SETUP TABLE ADDRESS
;GO THRU ALL TABLE ENTRIES
JPRINTED AT MSG

;BUILD SEND CALL USING MESSAGE ADDRESS
;??g SEND THE MESSAGE

'BUILD SEND CALL USING MESSAGE ADDRESS
:gRUDSEND THE MESSAGE
;BAU

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

;GET ANSWER BACK
2SU NEXT PASS
;GO THRU TABLE AGAIN
JPRINTED AT

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

EBUILD SEND CALL USING MESSAGE ADDRESS
:NOW SEND THE MESSAGE
;BAUD

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

PC,5%

;GET ANSWER BACK

ONL INE
, WORK
#MSGO6
IN
ONL INE ,NUML
66%

;SHOULD BE MESSAGE
;DO ALL LINES

HOOK
PC

JINIT LINE O

20%
ONL INE ,RO

RO
L
INE (RO)
DZ
61%
ONL INE
6%

;IS LINE SELECTED /
;NO TRY AGAIN

e Ngn |

TESTS

MACRO M1110

CZLAIAO LAOO DMT PROG

11400 005060

005037
012737
012737
012737

010070
016320
177777
005220

012705

004737

034741
600010
001204
031700
034166

012705
004737
005737

003720
033614
001136

112737

113737
004737

12100 005146
12200 005152
12300 005154
12400 005160
12500 005164
12600 005170
12700 005174

MACRO M1110

20-APR-78 04:21

001162
001136
001140
001175
001174

001204
005020
034677
020346

7%:

8%:

035201
020346
001204
005020

13700 005232
13800
13900
14000
14100
14200
14300
14400
14500
14600
14700
14800

005236
005242
005250
005252
005256
005260
005264
005270
005274
005276
005302

5200 005322

10%:

177600
173730

010070
001162
010070

000007

031561

031560
035201
020346

033364

11%:

001136
016320
010070

001162

173630

12%:

13%:

001160
001162
010070

16100
16200
16300
16400

005362
005364
005370
005372

040600
020346

14%:

001204

18%:

20%:

PAGE

1<-1

CLR
MOV
MOV
MOV
SENDI
MOV
mMovs
MOvVB
JSR
JSR
STALL
MOV
JSR
TST
BNE
INC
JMP
MoV

JSR
NOP
MoV
JSR
HALT
INC
JMP
NOP
B81C
MovB
INC
INC
cMP
BEQ
TSTB
BEQ
CLR
MOV
JSR
HALT
JSR
RTS
CLR
MOV
TST
8EQ
(MPB
BNE
INC

INC
DEC
BR

MOV

JSR

NOP
INC
BR
RTS

SEQ 0038
COUNT
#T30BUF ,WORK1

#-1,NOTYET
#10%
, HOOK
#MSGOS,ONL
INE
#MSGOS RS
#10,MODE
+1
ONL INE ,MODE
PC,SEND
PC.QUIET

; INPUT CHAR COUNT =0
;BORROW A BUFFER AREA
JGETS CLEARED WHENE DONE
JLINK TO RECV ROUTINE
JESCAPE SEQ TO TERMINAL

;MESSAGE ADDRESS TO RS
sSET SINGLE LINE MODE
JSELECTED LINE NO.

#2000.
#2000. ,RS

JALLOW 2 SEC FOR ANSWERBACK

NOTYET
7%
ONL INE
6$
#MSGO4
, - (SP)

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

#MSG15,-(SP)

;ERROR MESSAGE

PC,MSTALL

PC,ERRORT

PC.ERRORT

ONL INE
6%
#177600,R5
RS, aWORK1

COUNT

WORK1

COUNT 47

12%
RECERR+1(R0O)

1%
RECERR(RO)
#MSG15,-(SP)
PC.ERRORT

PC,KBOUT

PC
NOTYET

#71308UF ,WORK1
COUNT
18%
, 3WORK 1
dWORK
14%
WORK
WORK1
COUNT
13%
#MSG148,-(SP)

;SETUP STALL TIME CONSTANT

;NO RESPONSE

6%
PC

ADDRESS

;TO ERROR ROUTINE

JIF 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
;ERROR SET ?
;RESET THE ERROR FLAGS
;ERROR MSG ADDRESS
:TO ERROR ROUTINE

JIF BIT1S IS SET

;WAIT FOR MORE
;TURN OFF FOR NOW

JRESET BUFFER POINTER
;COMPARE ALL 5 CHARS

PC,ERRORT

ONL INE

JTEST NEXT LINE

CZLAIAO LAOO DMT PROG

TESTS

16500
16600
16700
16800 005374
16900 005376
17000 005400
17100 005402
17200 005404
17300 005406
17400
17405
17410
17415
17420
17425
17430
17635
17440
17500
17600
17700
17800
17900 005410
005410
005414
005420
18000 005424
005424
005430
005436
005444
18100 005450
18200
18300

MACRO M1110

20-APR-78 04:21

035743
011320
000000
036112
012720
000000

PAGE 12-2

SEQ 0039

TO3TRL: MSG32

;110 , ODD PARITY , 7 BIT

000000
T031R2: nggg

;300 BAUD , ODD PARITY ,

11320

000000

;END OF

7 BIT

TABLE

CTHIS 1S THE TEST
OF DATA PATHS WITHI

“THE sU+*U PATTERN IS ALTERNATING O AN
...............................................................

o090 000000000000

012705
005037
004737

036535
001174
031700

012705

036571
000004
000020
031700

112737
112737
004737
0002v7

TESTOO:

TR NN NN

4%:

MOV

#MSG42 RS

JSR
SENDR
MOV
MovB
MOVB

PC, SEND
3, A44
#MSG4
3 ,R5
#MSG4L

CLR

001174
001175

SENDALL #MSG42

JSR
RTS

MODE

#4 ,MODE
#20 ,MODE +1
PC,SEND
PC

EEE

JANOUNCE TEST

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

CILAIAQ LAOO DMT PROG

TESTS

CZLAIAO LAQO DMT PROG

TESTS

18500
18600
18700
18800
18900
19000
19100 005452

19200
19300
19400
19500
19600
19700
19800
19900

005452
005456
005462

005466
005474
005500
005506
005510
005514
005516
005524

20000 005532
20100 005540
20200 005542
20300 005546
20400 005550

MACRO M1110

aaaaaaa

“ASCII CODES 041 THRU 176.

012705
005037
004737
013737
005037
162737
003403
005237
000771
012737
013737
123727
002050

037231
001174
031700
001172

010070
000006

000041
010070
001164

013705
012737

001164
000004
000020
032226

005574
005600
005606
005614
20600 005620

012705

112737

004737

012737

112737
004737
004737
105237
005337
000736

TESTO1:

001160
001160

1%:

010070

005550
005554
005562
005570

005646
21100 005652
21200 005660
21300 005662
005662
005666
005672
21400 005676
21500
21600

SEQ 0040

“THIS TEST PRINTS FOUR OF EACH PRINTABLE CHARACTER.

001160

20700 005624
20800 005630
20900 005634

PAGE 13

000000

005737
003433

20500 005574

20-APR-78 04:21

001164
001160
000177

2%:

3%:
4%:

5%:
001174
001175

012705
005037
004737
000207

037157
001174
031700

MOV
MOV

CMPB

BGE
TST
BLE

SENDC?2

MOV
MOV
MOVB

SENDC?2

MOV
MOV

001160
037154
001174
031700
010070

CLR
JSR
MOV
CLR
SUR
BLE
INC
BR

JSR

001174
001175

012705
005037
004737
013737
000724

SENDALL #MSG81

MOV

6%:

MovB
JSR
JSR
INCB
DEC
B8R
SENDALL
MOV

CLR

JSR

001160

RTS

JSEND TEST ID
;BUILD SEND CALL USING MESSAGE ADDRESS

PC,SEND
WIDTH,WORK

;JNOW SEND THE MESSAGE

#6 ,WORK

JWORK = WIDTH / 6

COUNT

COUNT
1%
#41 ,WORK?2
COUNT ,WORK

WORKZ2 ,#177
8%
WORK

6%
, #4
WORKZ
WORKZ2.R5

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

#2 ,MODE
#20,MODE
+1
PC.CHROUT
PC,QUIET

WORK?2

JINIT ASCII CODES

;DO WHILE CHAR < 177

;DO WHILE WORK > O
;SEND CHAR 4 TIMES

:GET CHAR TO RS

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

;SEND 2 SPACES
;JGET CHAR TO RS
;GET REPEAT COUNT

;SET REPEAT MODE
;CALL CHAR OUTPUT ROUTINE
JNEXT ASCII

CODE

WORK

#MSG75
#MSG75,RS
MODE
PC.,SEND

COUNT ,WORK
3%
B8R
SENDALL #MSG?77
#MSG77
RS
MOV
MODE
CLR
PC,SEND
JSR

MOV

8%:

#MSG81.,RS5
MODE

;CRLF
;BUILD SEND CALL USING MESSAGE ADDRESS

;NOW SEND THE MESSAGE
JRESTORE WIDTH/6

;SKIP 3 LINES

;BUILD SEND CALL USING MESSAGE ADDRESS
JNOW SEND

THE MESSAGE

CZLAIAO LAOO DMT PROG

TESTS

MACRO M1110

20-APR-78 04:21

PAGE 14

SEQ 0041

;THIS IS THE NON PRINTING CHARACTER TEST.

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

;A BLANK
005700
005700
005704
005710
005714
005714
005720
005724
005730

012705
005037
004737

036670
001174
031700

012705
005037
004737
000207

037000
001174
031700

TESTO2:

LINE.

SENDALL #MSG&44

?Ex

:88244.R5

;BUILD SEND CALL USING MESSAGE ADDRESS

JSR
PC,SEND
SENDALL #MSG45
Mov
#MSG4S RS

;NOW SEND THE MESSAGE

JSR

;NOW SEND THE MESSAGE

CLR

MODE

RTS

;BUILD SEND CALL USING MESSAGE ADDRESS

PC,SEND

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

:DOT MATRIX TEST
;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,
;*'S AND SPACES , AND #°'S AND SPACES. THIS OVERPRINT
;CREATES TEN BOXES THAT SHOULD BE ALL BLACK.
IR

24400

24500

24600

24700
24800
24900

012705
005037
004737

037275
001174
031700

012705
005037
004737

037157
001174
031700

012705
005037
004737

037322
001174
031700

012705
112737
112737
004737

037334
000004
000020
031700

012705
005037
004737
000207

037157
001174
031700

EEEEEE

TESTO3:

AN BN A

AN AN R

BN R

BN A

AR AN R

A4 o0 000000

sSEND TEST ID
;BUILD SEND CALL USING MESSAGE ADDRESS

JSR
PC,SEND
SENDALL #MSG?77
?OX
;ggg??,RS

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

JSR
PC,SEND
SENDALL #MSGB4
?OX
:33284.R5

JNOW SEND THE MESSAGE
;SEND THE CHARS
;BUILD SEND CALL USING MESSAGE ADDRESS

JSR

;sNOW SEND THE MESSAGE

PC,SEND

SENDR
MOV

#MSGBS,#4
RS
#MSGB5

MOvB

#20,MODE
+1

MOVB

5%:

SENDALL #MSG83
?OX
:83283.R5
L

2%:

JSR

JMAKE 4 LINES OF 10 BOXES

#4 ,MODE

PC,SEND

SENDALL #MSG?77
MOV
#MSG77 ,R5

;SKIP 3 LINES
;BUILD SEND CALL USING MESSAGE ADORESS

JSR

;NOW SEND THE MESSAGE

CLR

MODE

RTS

PC,SEND

CZLAIAO LAOO DMT PROG

TESTS

25100
25200
25300
25400
25500
25600
25700
25800
25900

26000

26100
26200
26400
26500

26700
26800
26900
27000
27100

27200
27300

27400

275u

27600

27700

27800

MACRO M1110

20-APR-78 04:21

PAGE

SEQ 0042

PI*
HORTZONTAL

TEST

AN AN A

3K B

AR BN AN AN B

BT AN AN AN AN AR

;SETUP FOR THIS EST IS DOWN LINE LOADED FROM THE PROGRAM.
;A MESSAGE WILL BE PRINTED IDENTIFYING THE CURRENT PITCH,
;JFOLLOWED BY THREE LINES OF A..7 AT THE CURRENT PITCH.

;PITCHES TESTED

10,

12,

13.2,

16.5 CPI. ALL AT

6 LPI.

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

000000000000

TESTO4:

012705
005037
004737

037704
001174
031700

012705
005037
004737
005037
023727
003122
005037
005037
005037
013737
013737
062737
062737

037157
001174
031700
001160
001160

000006

001164
006366
006370
001160
006366
006402
006372

006366
006370
006370
006366

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

1%:

SENDALL #MSG109
#MSG109,R5
MODE
CLR
PC,SEND
JSR
SENDALL #MSG77
#MSG77 ,R5
MOV
MODE
CLR
PC,SEND
JSR
MOV

CLR
CMP
B8GT
CLR
CLR

CLR

MOV

MoV

ADD
ADD
SENDALL
MOV
CLR

2%:

0000000000000

WORK

WORK ,#6.
4%
WORK?2
T11A
1118
WORK,T11A
T1'A,T118B

#TABLHF ,T118B
#TABLH,T11A

ar118
a@T11B,RS

JSR
STALL
MOV
JSR
SENDALL #MSG7S
#MSG75.RS
MOV
MODE
CLR
PC, SEND
JSR
SENDALL #MSG8S8
#MSG88 RS
MOV
MODE
CLR
PC,SEND
JSR
SENDALL aT11A
MOV
aT11A,RS
MODE
CLR
PC,SEND
JSR
SENDALL #MSG93
#MSG93,RS
MOV
MODE
CLR
PC,SEND
JSR
#MSG96
SENDALL
#MSG96,RS
MOV
MODE
(LR
PC,SEND
JSR
#MSGO8
SENDALL
#MSG98,RS
MOV
MODE
CLR
PC,SEND
JSR

CAX I

AN N

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

;3 LINES

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

;DO WHILE WORK > 0

;GET TABLE OFFSET
;POINTER TO FORMAT (MD
POINTER TO ID MSG
sSETUP HORIZ PITCH
;BUILD SEND CALL USING MESSAGE ADDRESS
JNOW SEND THE MESSAGE

;SETUP STALL TIME CONSTANT
;SEND CRLF

;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

;BUILD SEND CALL USING MESSAGE ADDRESS
;NOW SEND

THE MESSAGE

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

CZLAIAO LAOO DMT PROG

TESTS

27900 006304
006304
006310

006314
28000 006320
28100 006326
28200 006330
28300 006334
28400 006336
28500 006344
28600 006350
006350
006354
006360
28700 006364

28800
28900 006366
29000 006370
29100 006372
006400
29200 006402
006410
29300
29400
29500

012705
005032
004737
023727
003003
005237
000717
062737
000137

012705
005037
004737
000207
000000
000000
037532
037513
037572
037677

MACRO M1110

037642
001174
031700
001164

20-APR-78 04:27

PAGE

SEQ 0043

SENDAL
L #MSG10Q7
#MSG107 ,R5
MODE
(LR
PC,SEND
JSR
WORKZ
, 43
cMp
T
BG
INC
BR

MoV

000003

001164
000002
006074

15-1

001160

3%:
4%

037157
001174
031700

;BUILD SEND CALL USING MESSAGE ADDRESS
;JNOW SEND

JGET NEXT PITCH

ADD

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

;JBUILD SEND CALL USING MESSAGE ADDRESS
;NOW SEND THE MESSAGE
..
JEXIT.

RTS

T118:

000000
000000
MSG92,MSG91
,MSG90 ,MSG8S
MSG99,MSG100,MSG101,MSG108

T11A:

037525

037520

TABLH:

.WORD
-WORD
.WORD

037577

037604

:
TABLHF

.WORD

THE MESSAGE

CZLAIAO LAOO DMT PROG

TESTS

29700
29800
29900
30000
30100
30200
30300
30400
30500
30600 006412

JX'S AND SPACES. TWO LINES ARE PRINTED PER PASS.

006422
006426

004737
012737

031700
000002

006440

003454

006454
006462
006462

006466

006474
006502

005037
005737

012705

037221

112737
004737

000020
031700

113737

000240
000240

006520
006524
006524
006530
006536
006544
31900 006550
006550

006237

006554

006560
32000 006564
32100 006570
32200 006572
006572
006576
006602
32300 006606

010070
001172
001160

162737

TESTOS: SENDALL #MSG/8
MOV
#MSG78,R5

001174

013737
006237

006506
006510

006512

SEQ 0044

; THEN BACKSPACES THROUGH THE LINE OVERPRINTING THE '/' S
sWITH *\'S. THE RESULTING LINE SHOULD BE A LINE OF ALTERNATING

037164

006442
006450

PAGE 16

;THIS TEST PRINTS A LINE OF ALTERNATING SLASHES AND APA(ES.

012705

006434

20-APR-78 04:21

;SPACE - BACKSPACE TEST

006412

006416

32400
32500

MACRO M1110

000002

001160

010070
001160

001160

001175

001172

001160

012705
113737

037224
001160

001174

004737

031700

112737

000020

012705

037154

004737
005337
000721

031700
010070

005037

012705
005037
004737
000207

TST

COUNT

BLE

4%:

001175
6%:

;NOW SEND THE MESSAGE
;SU FOR 2 LINES

;DO UNTIL COUNT -0

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

;MAKE SHURE WE'RE NOT AT MARGIN
;SEND '/ "

WIDTH,WORK
WORK

MOVB

WORK ,MODE

NOP
NOP

MOV

ASR
SENDR
MoV
MOVB
vOvVB
JSR
SENDALL
MoV
CLR

7$:

PC,SEND
#2,COUNT

MOV
ASR

MOVB
JSR

001174

037157
001174
031700

MODE

sSuB
SENDR
MOV

001174

013737

001160

2%:

CLR

JSR
MOV

JSR
DEC
BR
SENDALL
MOV
CLR
JSR
RTS

;SEND TEST ID
;BUILD SEND CALL USING MESSAGE ADDRESS

#20,MODE
+1
PC,SEND
WIDTH,WORK

WORK
#MSGB0,WORK
#MSGBO,RS
WORK ,MODE
#20,MODE
+1
PC,SEND
#MSG75
#MSG75,RS

JRESET COLM COUNT
;SEND 'BS BS \ BS"'

PC,SEND
COUNT
2%
#MSG77
#MSG77 ,R5
MODE
PC,SEND
PC

;NOW SEND THE MESSAGE

MODE

s CRLF
;BUILD SEND CALL USING MESSAGE ADDRESS

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

CZLATAOQ LAOO DMT PROG

TESTS

MACRO M1110

20-APR-78 04:21

32700

PAGE 17

SEQ 0045

32800

Ceeeteeeeeeteessestteiecteessetes
ettt esessseesetcsseesssseissses

33000
33100
33200
33300

;

32500
33600
33700

32900

;SET MARGINS TEST

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

;

33400

MARGIN.

A REFERENCE LINE WILL BE PRINTED SHOWING THE
MARGIN LIMITS BEING SET UP.
ALL HORIZ PITCH SETTINGS WILL BE TESTED.

33800
33900

JEXAMPLE

34100

ERROR [F NOT AT LH MARGIN

e eeeeeeeeeetieiieeeeseetsesteseseesesesecectsssecsisssanssanss

24000

;

34200

34300

34400

34500 006610
006610

012705

037770

006620

004737

031700

34800 006634
34900 006640
35000 006646

0050337
023727
003402

007512
CT07512

006614

34600 00662«
34700 006630

35100 006650

35200 006654
35300 006660
35400 006666
35500 006674
006674

005037

005037
005037

000137

006337
012737

CLR

MODE

CLR
(LR

WORK
WORK1

JSR

001160
001162

000003

007432

007516
007516

1%:

4%:

CLR
MP
BLE
JMP

ASL
MOV

;DO 4 PITCH SETTINGS
;1F DONE GOTO 30

w1l
#TABLHF ,W3

;%2 FOR WORD OFFSET
;PITCH MSG TABLE

30%

004737
006237
005037

031700
007512
007514

JSR
ASR
(LR

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
37100 007030
37200 007036
37300 007044
37400 007046

003402
000137

35800 006720

023727

012705
005037
004737
013737
006337
013701
062701
013737
062737
117737
013737
062737
117737
123737
103405
012737

007514

000004

007422
007500
001174
031700
007514
007516
007516
007454
007574
007466
000504
007514
007473
000462
001162
0000605

2%:
5%:

007516

007516
007516
001160
007516
007516
001162
001172
007514

CTMwP

BLE
JMP
SENDALL
MOV
CLR
JSR
MOV
ASL
MOV
ADD
MOV
ADD
MOVB
MOV
ADD
MOVB
(MPR
BLO
MOV

;SEND TEST ID
;BUILD SEND CALL USING MESSAGE ADDRESS

w1
W1,43
4%

006704
35600 006710
35700 006714

CLR

=—=-=Z===._z==-

:NOW SEND THE MESSAGE

000616
001174

=_=z=z==

PC,SEND

017705

005037

007512

-=_====

ADD
Wi, w3
SENDALL aw3
MOV
aw3,RS

006700

063737

..., Vet eeeroooeaneeanannas Veeouoon.

TESTO6: SENDALL #MSG111
MOV
#MSG111,RS

001174

007512
006402

MODE

JSETUP H PITCH
;BUILD SEND CALL USING MESSAGE ADDRESS

PC,SEND

;NOW SEND THE MESSAGE

;DO 5 MARGINS TESTS

W, #4

5%
20%
#T12F1X
#T12FIX,RS
MODE
PC,SEND
w2, w3
w3
w3,R1
#TBL12A.R1
w2 ,w3
#TBL12B,W3
aw3,WORK
wo,w3
#TBL12C,W3
aw3,WORK1
WORK1 ,WIDTH
3%
#5,42

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

;POINT TO SETUP ADDR

;POINT TO LH MARGIN
JGET LH MARGIN
;POINT TO RH MARGIN
:GET RH MARGIN

;WITHIN RANGE OF PAPER ?

;NO DO NEXT PITCH GROUP

CILAIAO LAOO DMT PROG

TESTS

MACRO M1110

37500 007054
37600 007060
37700 007066
37800 007072
007072

000137
113737
005337

007422
001160
001164

012705

037154

007102
37900 007106
007106
007112
007120

004737

031700

012705
113737
112737

037073
001164
000020

007076

007126

38000 007132
007132

007136

007142
38100 007146

38200 007154

38300 007162
38400 007166
007166

007172
007200

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

007316
007322

005037

004737

031700

000126

004737
013737

032226
001162

163737

005337

001160
001164

000056
001164
000020
032226

012705

000126

004737
013737
163737

032226
001172
001162
000056

112737
004737
011137

000020
032226
001164

013737

001164

013705

001164

004737
004737

031700
034166

005037

012705

001174
001175

001164

001174
001175

20%
WORK
, WORK 2
WORKZ2
#MSG7S
#MSG75,RS

JSR
SENDR
MOV
MOvVB
MOVB

PC,SEND
#MSG62,WORKZ2
#MSG62
RS
WORKZ2 ,MODE
#20,MODE
+1

;sNOW SEND THE MESSAGE
;PRINT PERIODS....

#'V
#'V,R5

JPRINT A "V
;GET CHAR TO R5

PC,CHROUT
WORK
1 ,WORKZ2

;CALL CHAR OUTPUT ROUTINE

JSR

001174

001175

001174

037154

MODE

PC,SEND

CLR
JSR
MoV

MODE

DEC
SENDC2
MOV

WORK?2
#'. ,WORK?
¥ ..R5

suB

MOV
mMovB

JSR
SENDCH
MOV
CLR

001164
001164

SEQ 0046

JMP
MOvB
DEC
SENDALL
MOV

SENDCH
MoV

001174

012705

3%:

PAGE 17-1

CLR

001174

012705
013737
112737
004737
005037

001164

001174

012705

005037

20-APR-78 04:21

JSR
MOV
suB
SENDC2
MOV

MOV

MOVB
JSR
MOV
SENDALL
MoV
CLR
JSR
JSR
SENDALL

MoV

WORKZ2 ,MODE
#20 ,MODE +1
PC,CHROUT
#'V
#'V,RS

MODE

PC, CHROUT
WIDTH,WORK?
WORK
1, WORK?
#'. ,WORKZ2
#'..R5

WORKZ2 ,MODE

#20,MODE +1
PC, CHROUT
(R1) ,WORK?
WORKZ2
WORKZ RS
MODE
PC, SEND
PC,QUIET
#MSG75

#MSG75 RS

005037
004737

001174
031700

012705
112737
112737
004737

040043
000031
000020
031700

007352

012705

040045

MOV

#MS5116,RS

007362
39500 007366
007366
007372

004737

031700

012705

037154

JSR
SENDALL
MOV
(LR

PC,SEND
#MSG7.
#MSG75,R5
MODE

39300 007326
007326
007332
007340
007346
39400 007352

007356

005037

001174

CLR
JSR

WORK , WORK?2

001174
001175

SENDR
MOV
MOVB
MOVB

MODE
PC,SEND

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

JSR
PC,SEND
SENDALL #MCG116
CLR

MODE

;SEND CRLF
JBUILD SEND CALL USING MESSAGE ADDRESS

;STD MODE

; “RH-LH
;PRINT PERIODS
JGET CHAR TO RS

:GET REPEAT COUNT
;SET REPEAT MODE

;CALL CHAR OUTPUT ROUTINE
JPRINT A "V
;GET CHAR TO RS
;STD mMODt

;CALL CHAR OUTPUT ROUTINE
;PRINT MORE PERIODS
;GET CHAR TO RS

.GET REPEAT COUNT

;SET REPEAT MODE
;CALL CHAR OUTPUT ROUTINE

;SETUP MARGINS
;BUILD SEND CALL USING MESSAGE ADDRESS
;JNOW SEND THE MESSAGE
JWAIT FOR CATCHUP
:SEND CRLF
;BUILD SEND CALL USING MESSAGE ADDRESS
sJNOW SEND THE MESSAGE

;SEND '-' 25 TIMES

;AND ERROR [F

MSG
JBUILD SEND CALL USING MESSAGE ADDRESS

;JNOW SEND THE MESSAGE
s SEND CRLF
;BUILD SEND CALL USING MESSAGE ADDRESS

CZLAIAO LAOO DMT PROG

TESTS

MACRO M1110

20-APR-78 04:21

031700

012705
004737
005237
000137
005237
000137
004737

000300
033614
007514
006720
007512
006640
033000

007442
007446
007452

012705
005037
004737
000207

057157
001174
031700

007454
007462

041234
041266

041244
041300

041255

007466
007471
007473
007476
007500
007503
007506

002

032

062

41100
41200 007512
41300 007514
41400 007516
41500
41600
41700
4" 800

116

146

033

073
062

000000
000C00
000000

144

174
133
061
163

20%:

30%:

STALL
MOV
JSR
INC
JMP
INC
JMP
JSR
SENDALL
MOV

CLR
JSR

SEQ 0047
PC,SEND

#300
#300,R5

PC,MSTALL

Wl
2%

Wl
1%
PC,RESETO
#MSG77
#MSG77
RS
MODE

sNOWw SEND THE MESSAGE
JSETUP STALL

TIME CONSTANT

JNEXT MARGIN PAIR
JNEXT H PITCH
JRESET

THE

TERMINAL

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

RTS

PC,SEND
PC

TRL12A:

.WORD

MSG180,MSG181,MSG182,MSG183,MSG184

064

TBL12B:

.BYTE

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

114

TBL12C:

.BYTE

26.,50.,76.,102.,12¢.

061
063

T12FIX:

.BYTE

33,133,61.73,61.,63,62,163,0

-WORD
.WORD
.WORD

(o]l

007432
007436
007436

17-2

JSR

004737

007376
39600 007402
007402
007406
007412
007416
007422
007426

PAGE

000

.EVEN

MACRO M1110

20-APR-78 04:21

PAGE 18

SEQ 0048

2000
42100

MR
R
R
;HOR]ZONTAL TABS TEST.

42700

;64 CHARACTER SPACES.

42200
42300
42400
42500
42600

R R

;A REFERENCE LINE IS PRINTED, MADE UP OF PERIODS AND V'S
;TAB STOPS ARE THEN SET CORRESPONDING TO THE POSITION OF
JTHE V'S. THREE LINES OF TABS AND I'S ARE PRINTED, WHERE
JTHE I°S SHOULD LINE UP UNDER THE V'S.
;THIS IS REPEATED FOR TAB SETTINGS OF 4,8,9,16,18,32, AND

42800

I
N
N R RRR RR

42900

43000 007520

TESTO7: SENDALL #MSG60

007520 012705 037031
007524

007530
43100 007534
43200 007542
43300 007550
007550

007554
007560
43400 007564
43500 007572
43600 007576
43700 007602
43800 007606
007606
007612
007616
43900 007622

44000 007630

44100 007632
44200 007634
007634
007640
007644
007652
44300 007656
007656

005037

004737
012737
013737

012705

005037
004737
117737
005237
105077
9013701

001174

031700
010050
001172

012705

037154

004737
163737

031700
010066

005037

002433

037075

007666
44400 007672
007672
007676
007702
44500 007706
44600 007712
44700 007716

004737

031700

012705

000126

004737
105277
013701
000741

032226
171252
010066

44900 007720
45000 007726
45100 007734
45200 007736
007736
007742
007746
45300 007752

012737
117737
001430

000003
171232

012705
005037
004737

037154
001174
031700

012705

037102

005037

3%:

012705

007752

001162

005301

000056
001174
000020
032226

44800

010066

001174

012705
010137
112737
004737

007662

1%:
2%:

037070

001174
031700
171374
001164
171362
010066

#MSG60, RS

;BUILD SEND CALL USING MESSAGE ADDRESS

JSR
MOV
MOV
SENDALL
MOV

PC,SEND
#TABL13,WORK?
WIDTH,WORK
#MSG61
#MSG61 RS

;NOW SEND THE MESSAGE

PC,SEND
aWORK
2, TAB
WORK?2
SWORK
2
TAB R1
#MSG75
#MSG75,RS
MODE
PC,SEND
TAB,WORK1

:NOW SEND THE MESSAGE

;PRINT TAB -1 PERIODS
;PRINT PERIODS
JGET CHAR TO RS
;GET REPEAT COUNT
;SET REPEAT MODE
;CALL CHAR QUTPUT ROUTINE
;SET TAB STOP
;BUILD SEND CALL USING MESSAGE ADDRESS

CLR

001164
001162

001175
5%:

001174

CLR
JSR
MOvVB
INC
CLRB
MOV
SENDALL
MOV
CLR
JSR
Su8
BLT

DEC
SENDC2
MOV
MOV
MOVB
JSR
SENDALL
MOV
CLR

JSR
SENDCH
MOV
CLR
JSR
INCB
MOV
BR

001174

010070
010066

6%:
7%:

8%:

;SEND TEST ID

MoV

MOV
MOVB
BEQ
SENDALL
MOV
CLR
JSR
SENDALL

MOV

MODE

MOCDE

#'.,R1

#'..R5
R1,MODE
#20 ,MODE +1
PC, CHROUIT
#MSG63
#MSG63,RS
MODE

PC, SEND
#'V
#'V,R5
MODE
PC, CHROUT
aWORK2
TAB,R1
3%

JESC-2 RESETS TABS
JBUILD SEND CALL USING MESSAGE ADDRESS

sSEND CRLF

;BUILD SEND CALL USING MESSAGE ADDRESS
;NOW SEND THE MESSAGE
;SU TAB (COUNT PER LINE

;NOW SEND THE MESSAGE
JPRINT A 'V
;GET CHAR TO RS
;STD MODE
;CALL CHAR OUTPUT ROUTINE

Jees VaioVoLL
VLl VLUV

#3,COUNT
aWORK
2, TAB
1%
#MSG75
#MSG75,RS
MODE
PC,SEND
#MSG65

#MSG6S RS

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

—

CILAIAO 1 ACO DMT PROG

TESTS

45500
45600
45700
45800
45900

010002
010006
010010
010014
010016
010016
010022
010026
010032
010036
010044
010046

46000
46100
46200
46300
46400
46500
46600 010050
46700 010052
46800 010054
46900 010056
47000 010060
47100 010062
47200 010064
47300 010066
47400 010070
47500
47600

005037
004737

001174
031700

012705
005037
004737
005337
001361
005337
001344

000111
001174

012705
005037
004737
005237
023727
001236
000207

037157
001174
031700

000004
000010
000011
000020
000022
000040
000100
000000
000C02

20-APR-78 04:21

PAGE 18-1

CLR

MODE
PC,CHROUT

#'1,RS

;NOW SEND THE MESSAGE
JPRINT AN "'T"'

;JGET CHAR TO R5

.STD MODE
;CALL CHAR QUTPUT ROUT INE

10%:

010070

001164

MODE
PEiSEND

JSR

010066

001164

(LR
JSR
SENDCH

MOV

032226

SEQ 0049

*®

007756
007762
45400 007766
007766
007772
007776

MACRO M1110

11%:

SENDALL #MSG77
#MSG77 RS
MODE
CLR
PC,SEND
JSR
WORK?2
INC
WORK? ,#TAB
(MP
BNE
2%

MoV

010066

TABL13:

TAR:

:
COUNT

RTS

.WORD
.WORD
-WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

NOORW—= =000 &
LS00

CZLAIAQ LAGO DMT PROG

TESTS

;BUILD SEND CALL USING MESSAGE ADDRESS

;NOW SEND THE MESSAGE

JEXIT

CZLATIAO LAOO DMT PROG

TESTS

MACRO M1110

20~-APR-78 (4:21

47800
47900
48000
48100
48200
48300
48400
48500
48600

50200

50300

50400

PAGE

SEQ 0050

sMULTIPLE LINE FEED TEST """

THIS TEST WILL PRINT 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
=1707. AT 6 LINES PER INCH.

TEST10: SENDALL #MSG123
#MSG123,RS
MOV

012705
005037
004737

040141
001174
031700

012705
005037
004737
012737
012737

037157
001174
031700
000001
000012

012705
005037
004737
023727
001532
013737

040176
001174
031700
001160

000010

001160

001162

012705
113737
112737
004737
013700
062700
111037

001164

012705
012737
112737
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

001162

000020
031700
001162
041060
001166

MODE
CLR
PC,SEND
R
JS
SENDALL #MSG77
#MSG77
RS
MOV
MODE
CLR
PC,SEND
JSR
#1,WORK
MOV
#12 ,WORK?2
MOV
SENDALL #MSG124
MSG124
RS
MoV
MODE
CLR

001160
001164

PC,SEND

WORK ,#10
48
, WORK 1
WORK
#JORK?2 ,WORK 1
#MIORKZ2
RS

1%:

;BUILD SEND CALL USING MESSAGE ADDRESS

;NOW SEND THE MESSAGE

;SKIP 3 LINES

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

;SEND LINE OF DASHES

;JBUILD SEND CALL USING MESSAGE ADDRESS
:NOW SEND THE MESSAGE
;JALL DONE ?
JYES- JUMP

JSEND LINE FEEDS

WORK1 ,MODE

001174
001175

#20,MODE
+1
PC,SEND
whRrRK1 ,RO

(RO) ,WORK3

N'-,26
#'-,RS5
#6 ,MODE
#20 ,MODE +1
PC,CHROUT
#'0
#'0,RS
MODE
PC.,CHROUT

001174
001175

WORK3
WORK3 RS

3%:

001174
001175

;SEND TEST ID

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

SENDR

MOV
MOVB

MOvB
JSR

#WORK?2 ,WORK1
#WORKZ2 ,R5
WORK1 ,MODE
#20 ,MODE +1
PC,SEND

JGET NUMERIC CHARACTER

JSEND 6 DASHES

:GET CHAR TO R5
;GET REPEAT COUNT
;SET REPEAT MODE
;CALL CHAR OUTPUT ROUTINE
;AND A ZERO

:GET CHAR TO RS

;STD MODE
;CALL CHAR OUTPUT ROUTINE

;AND THE NUMBER FROM ABOVE

:GET CHAR TO R5
;STD MODE
;CALL CHAR OUTPUT ROUTINE
sNOW RETURN (CHAR
;BUILD SEND CALL USING MESSAGE ADDRESS

sNOW SEND THE MFSSAGE
;SKIP A LINE

CILAIAO LAOO OMY PROG

TESTS

50500 010344

010344
010350
010356

50600

50700

50800

50900
51000
51100
51200 010446
010446

010452
010456
51300 010462

51400
51500
51600

MACRO M1110

012705
012737
112737
004737

000055
000006
000020
032226

012705
005037
004737

000060
001174
032226

013705
005037
004737

001166

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

SENDC2
MOV
MOV
MOvB
JSR
SENDCH
MoV
CLR
JSR

001174
001175

SENDCH
Mov

CLR
JSR
SENDALL
MOV
CLR
JSR

001174
032226

INC WORK

4%:

SEQ 0051

#'-,46
#'-,R5

#6,MODE

+1
#20,MODE
PC,CHROUT

#'
#'0,R5

MODE
PC,CHROUT

WORK3
WORK3,RS

MODE
PC,CHROUT
#MSG66
#MSG66,RS
MODE
PC.SEND

JSR
BR

?g.QUIET

MOV
CLR

#MSG77 ,RS
MODE

RTS

SENDALL #MSG77

JSR

PC,SEND

;SEND 6 DASHES

JGET (HAR TO RS
JGET REPEAT COUNT
;SET REPEAT MODE

;CALL CHAR OUTPUT ROUTINE

;GET CHAR TO RS
;STD MODE

;CALL CHAR OUTPUT ROUTINE

:GET CHAR TO RS

;STD MODE

;CALL CHAR OUTPUT ROUTINE
;SEND CR

;BUILD SEND CALL USING MESSAGE ADDRESS

JNOW SEND THE MESSAGE
;CHANGE NO OF LF'S
;SKIP 3 LINES

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

MACRO M1110

20-APR-78 04:21

PAGE 20

SEQ 0052

51800

R L

52200

"WIDTH''

TEST11:

SENDALL
MOV
CLR
JSR
MOV
MOV
MovB
BEQ
CMPS
BHI
CMPS
BEQ
BHI
MOV
Su8
CMPB
8LO
SENDALL
MOV
CLR
JSR
DEC
BR

#MSGZ28
#MSG28,R5
MODE
PC,SEND
#COLTBL ,R3
#1,WORK
(R3)+,WORK1
9%
WORK1,WIDTH
1$
WORK 1, WORK
8%
4%
WORK1,WORK?
#12 ,WORK?
WORK
, WORK 2
6%
#MSGO8
#MSGO8,R5
MODE
PC.,SEND
WORK
2%

sSEND TEST ID
;BUILD SEND CALL USING MESSAGE ADDRESS

MOV
Sus
SENDCZ
MOV
MOV
MOVB
JSR
MOV

WORK1,WORK 3
WORK , WORK 3
#40,WORK3
#40,R5
WORK 3 ,MODE
#20,MODE +1
PC,CHROUT
WORK1,WORK

;CALCULATE # OF SPACES
sDEST - POSITION
s SEND SPACES
JGET CHAR TO RS
;GET REPEAT COUNT
sSET REPEAT MODE
;CALL CHAR OUTPUT ROUTINE
;POS = DEST

SENDALL
MOV
CLR
JSR
MOV
BR

#MSGQ9
#MSGO9,RS
MODE
PC,SEND
#1,WORK
2%

;SEND RETURN FIRST
;BUILD SEND CALL USING MESSAGE ADDRESS

SENDCH
MOV
CLR
JSR
JSR
INC
CLR
JMP

#'H
#'H,R5
MODE

JPRINT AN H
:GET CHAR TO RS
;STD MODE

51900
52000
52100

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
56000 010602
22;88 010606

564300 010610
54400 010616
54500 010624
010624
010630
010636
010644
54600 010650
22588 010656

54900 010660
010660
010664
010670
55000 010674
22588 010702
55300 010704
010704
010710

55400
55500
55600
55700
55800

; HORIZONTAL MOVEMENT TEST
;
X'S ARE PRINTED AT RANDOM COLUMN POSITIONS
;
UNTIL THE LINE IS FULL. CONTROLLED BY THE

010714
010720
010724
010730
010734

el s eeeese s
012705
005037
004737
012703
012737
112337
001510
123737
101371
123737
001462
101023
013737
162737
123737
103435

035573
001174
031700
010756
000001
001162

012705
005037
004737
005337
000750

034756
001174
031700
001160

013737
163737

001162
001160

012705
013737
112737
004737
013737

000040
001166
000020
032226
001162

012705
005037
004737
012737
000712

034760
001174
031700
000001

012705
005037
004737
004737
005237
005037
000137

000110
001174
032226
034166
001160
001162
010512

000412

001160

001162

001172

001162

001160

001162
000012
001160

001164
001164
001164

001166
001166

1$:

2%:

001174
001175
001160

001160
8%:

AS DETERMINED AT STARTUP.

et sssisesstseeseestssee
et esssssesieesssessassarre

6%:

PC,CHROUT
PC,QUIET
WORK
WORK1
1%

;NOW SEND THE MESSAGE
POINTER TO TABLE OF COLUMNS
;PRESENT POSITION
;DESTINATION 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
JELSE BACKSPACE 1
;BUILD SEND CALL USING MESSAGE ADDRESS

;NOW SEND THE MESSAGE
;POS = POS-1

JNOW SEND THE MESSAGE
;POS =1
p

sCALL CHAR OUTPUT ROUTINE
sNEW POSITION
sGET NEW DEST COLMN

—

CZLAIAO LACO DMT PROG
TESTS

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

163
174
004
177
064
123
164
007
067

003
055
203
110
072
057
117
100

MACRO M1110

20-APR-78 04:21
9%:

037157

001174
031700

PAGE 20-1

SEG 0053

SENDALL #MSG?77
MOV
#MSG77 ,RS
CLR
JSR
RTS

.RADIX 10
COLTBL: .BYTE

MODE
PC,SEND
PC

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

134
076
030
130

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

027

BYTE

31,16,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

047

BYTE

54,77,39,73,87,95.115,108,41,124,48,19.4

154
060

051
023

065
135
062
073

147
125
053
071

BYTE

127.53,103,52,93.85,83,50,43.116,59,57.7

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

006
015
103

127

043
010
152

137

29,92,40,128,62,102,110,24,22,9.89,74,126

CZLAIAO LAOO DMT PROG

TESTS

011157
57400 017160
57500
57600
57700
57800

032
063

000010

MACRO M1110

056

20-APR-78 04:21

000

PAGE 20-2

.EVEN
.RADIX 8

BYTE

SEQ 0054
51,46,0

CZLAIAO LAOO DMT PROG

TESTS

MACRO M1110

20-APR-78 04:21

S8000

PAGE 21

SEQ 0055

58100
58200

S
ettt ettt eeaeteetseetttetetssteseseeesestessessrsenases
- "BUFFER OVERRUN TEST

58800

58300
58400
58500
58600
58700

:
;
;
:
:

58900 011164
011164

011170

012705

005037

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
THE BUFFER. WHEN THE TERMINAL HAS EMPTIED THE BUFFER
TO 10 CHARS IT SHOULD SEND AN XON.

ettt at

et et stecetectteesettectectsterssecssessesserererns

TEST12: SENDALL #MSG37

036126
001174

MOV

#MSG37.RS

:BUILD SEND CALL USING MESSAGE ADDRESS

JSR

PC.,SEND

:NOW SEND THE MESSAGE

CLR

011174 004737 031700

MODE

59000 011200
011200

012705

037070

SENDALL #MSG61
MOV
#MSG61,RS

011210

004737

031700

JSR

012705

036157

011224
59200 011230
59300 011236
59400 011242
59500 011250
011250

004737
013737
00633/
062737

031700
001152
001166
024546

012705

036263

011260
59600 011264

004737

011270

004737

011204

59100 011214
011214

011220

011254

005037

001174

011264

012705

021450

59700 011274
59800 011300
59900 011304
60000 011310
60100 011314
60200 011316
60300 011320
60400 011322
60500 011326
60600 011334
60700 011336
60800 011342
60900 011346
61000 011350
61100 011352
61200 011354
61300 011360

005037
012700
063700
020037
103034
105710
100006
042710
062737
000761
012702
063702
105712
100001
000765
006237
013737

001160
024546
001160
001166

61500 011372

004737

020346

61700 011400
61800 011404
61900 011406

006337
000750

001160

004737
000240

0061166

CLR

JSR
STALL

MOV

JSR

1$:

001160

020626
001160

001160
001360

0116406 012705 007640

011412
62000 011416

001166

033614

61400 011366 012746 036225
000000

CLR

JSR
MOV
ASL
ADD
SENDALL
MOV

031700

000200
000002

033614

MODE

PC,SEND

SENDALL #MSG38
MOV
#MSG38.RS

001174

005037

61600 011376

CLR

2$:
3%

001204

48:

:NOW SEND THE MESSAGE

“SET TABS AT COL 1 & 132
'BUILD SEND CALL USING MESSAGE ADDRESS

PC,SEND
NUML
IN, WORK 3
WORK
3
#STOP
, WORK3
#MSG41
#MSG41.RS

:NOW SEND THE MESSAGE

PC, SEND
#9000.

:NOW SEND THE MESSAGE
;SHOULD GET XOFF FROM ALL

MODE

#9000. .RS
PC.MSTALL

:STUFF THE BUFFER FULL

‘BUILD SEND CALL USING MESSAGE ADDRESS

SSETUP STALL TIME CONSTANT

CLR
MOV
ADD
P
BHIS
TSTB
BPL
BIC
ADD
BR
MOV
ADD
TSTB
BPL
BR
ASR
MOV

WORK
:CHECK ALL LINES FOR XOFF
#STOP,RO
WORK ,RO
RO, WORK3
5%
(RO)
:BIT? SET ?
3
:NO- POSSABLE ERROR
#8177, (RO)
#2 ,WORK
:OK=- CHEFK NEXT LINE
18
#DZL INE .R2
;IS LINE ACTIVE ?
WORK ,R2
(R2)
43
:YES- REAL ERROR NO XO°F
28
'NO- CHECK NEXT LINE
WORK
*GET REAL LINE NO.
WORK
, ONL INE

JSR

PC,ERRORT

MOV

HALT

MODE

“CLEAR ALL TAB STOPS
"BUILD SEND CALL USING MESSAGE ADDRESS

#MSG4L0, - (SP)

ASL
BR
STALL

WORK
2$
#4000.

JSR
NOP

PC,MSTALL

MOV

#4000. RS

: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

CZLAIAO LAOO DMT PROG

TESTS

62100 011420
62200 011424
62300 011430
62400 011434
62500 011440
62600 011442
62700 011446
62800 011450
62900 011454
011462
011464
011470
011474
011476
011500
011502
011506
011514
011520
011524
011526
011532
011536
011540
011540
011544
011550
011554
011560
011564
011570
011574

011576
011602

011610
011612
011612
011616
011622
011626

005037
012700
063700
020037

103037
032710
001406
042710
062737
000760
012702
063702
105712
100001
000765
006237
013737
012746
004737
000000
006337
052712
000746

MACRO M1110
001160
024546
001160

6%:

001166

000001
000001
000002

001160

001160
001160
036170
020346

7%:

8%:

020626
001160

001204

9%:

034760
001174
031700
001160
024546
001160
001166

042710
062737
000763

000201
000002

012705
005037
004737
000207

037070
001174
031700

PAGE 21-1
(LR

MOV
ADD

(MP
BHIS
BIT
BEQ
BIC
ADD
B8R

MOV
ADD
TSTR

8PL
BR
ASR

MOV
MoV

JSR

001160
000200

012705
005037
004737
005037
012700
063700
020037
103006

20-APR-78 04:21

15%:

16%:

001160
20%:

SEQ 0056
WORK
#STOP RO

JCHECK ALL LINES FOR XON

#8170, (RO)
8%
#BIT0, (RO)

JHAS XON BEEN RECVD ?
;NO- POSSABLE ERROR

WORK RO
RO,WORK3
15%

#2 ,WORK

JCHECK NEXT LINE

#DZL INE ,R2

;IS LINE ACTIVE °

WORK ,R2
(R2)
9%

#MSG39,-(SP)

;MSG ADDRESS FOR ERROR REPORT

WORK
WORK
, ONL INE
PC ,ERRORT

RO,WORK3
20%
#201, (RO)

MOV

#MSG61,RS

#2 ,WORK
16%
SENDALL #MSG6T

RTS

NO XON

sNO CONTINUE
;GET REAL LINE NO.

CTMMP
BHIS
BIC

CLR
JSR

;YES ERROR,

HALT
ASL
WORK
#8177, (R2)
BIS
7%
BR
SENDALL #MSGO9
#MSGO9,R5
MOV
MODE
CLR
PC,SEND
JSR
WORK
CLR
#ST0P,RO
MoV
WORK ,RO
ADD

ADD
BR

JTEST BIT 7

MODE
PC,SEND
PC

;REPORT ERROR NOW

;IF BIT1S IS SET

JRESTORE POINTER
;DESELECT LINE IT'S DEAD.
:SEND <CR>

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

;CLEAR BITS 7 & O IN TABLE

;CLEAR THE FLAG BITS
;DO NEXT LINE
;CLEAR ALL TABS

JBUILD SEND CALL USING MESSAGE ADDRESS
JNOW SEND THE MESSAGE

CZLAIAO LAOO DMT PROG

TESTS

MACRO M1110

20-APR-78 04:21

PAGE 23

SEQ 0057
NN NN

PITCIH TEST

AV AN

AN A

AR
K L 4

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

011630
011630
011634
011640
011644
011644

011650
011654
011660

011664

011672
011674
011700
011704
011710
011716
011724
011732
011740
011740
011744
011750
2100 011754
011754
011760
2200 011764
2300 011772
2400 011774
011774
012000
012004
2500 012010
012010
012014
012020
2600 012024
012024
012030
012034
2700 012040
012040
012044
012050
2800 012054
012054
012060
012064
2900 012070
012070
012074

012705
005037
004737

037737
001174
031700

012705
005037
004737
005037
023727
003111
005037
005037
005037
013737
013737

037157
001174
031700
001160
001160

000012

062737

001164
012134
012136
001160
012'34
012154
012140

012134
012136
012136
012134

017705
005037
004737

000172
001174
031700

012705
004737
023727
001445

000250
033614

012705
005037
004737

037463
001174
031700

012705
005037
004737

037513
001174
031700

012705
005037
004737

037537
001174
031700

017705
005037
004737

000070
001174
031700

012705
005037
004737

037565
001174
031700

012705
004737

000200
033614

062737

001164

TEST13: SENDALL #MSG110
MoV
#MSG110,RS

JSEND TEST ID
JBUILD 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

;JNOW SEND THE MESSAGE

1%:

CLR

MODE

CLR

MODE

CLR
cMP

WORK
WORK ,#12

BGT
CLR
CLR
CLR
MOV

MOV
ADD
ADD

T17A,7T178

#TABLVF ,T178
#TABLV,T17A

JGET TABLE OFFSET

;BUILD SEND CALL USING MESSAGE ADDRESS

JSR

PC,SEND

;NOW SEND THE MESSAGE

MOV
JSR

#250 ,R5
PC MSTALL

JSETUP STALL

STALL

2%:

4%
WORK
2
T17A
1178
WORK ,T17A

SENDALL a@T173
?OX
aggEB.RS
L

000006

PC.,SEND

#250

TIME CONSTANT

CMP
BEQ
SENDALL
MoV

WORKZ2 ,#6
3%
#MSG88
#MSG88,R5

JPRINT MESSAGE LINE
;BUILD SEND CALL USING MESSAGE ADDRESS

JSR

PC,SEND

JNOW SEND THE MESSAGE

CLR

MODE

SENDALL #MSG8Y
MOV
#MSG8Y RS
CLR

MODE

CLR

MODE

CLR

MODE

CLR

MODE

;BUILD SEND CALL USINC MESSAGE ADDRESS

JSR
PC,SEND
SENDALL #MSG93
MOV
#MSG93,R5

;NOW SEND THE MESSAGE

JSR
PC,SEND
SENDALL aT17A
MOV
aT17A,RS

;NOW SEND THE MESSAGE

JSR
PC,SEND
SENDALL #MSG98
MOV
#MSGI8,RS

;NOW SEND THE MESSAGE

JSR
STALL
MoV

:NOW SEND THE MESSAGE

JSR

PC, SEND
#200
#200 ,R5

PC,MSTALL

;BUILD SEND CALL USING MESSAGE ADDRESS

;SeTUP STALL TIME CONSTANT

CZLAIAO LAOO DMT PROG

SRESER KENFar&RS

b
b el cd
e
)
D
—

b
b e
d
b
—

nd od
d med
d
i
ek e d

PNV

—
e Suur Qs Gar Gy

000000

AONOALRVNONY

3000
3100
3200
3300
3400

000000000

TESTS

005237
000727

MACRO M1110

PAGE 23-1

001164

062737
000663

0002002

012705
005037
004737
000207

037157
001174
031700

000000
000000
037520
037551
037623
040101

20-APR-78 04:21

037561
037545
037635
037630

001160

3%:
A ¥

037555
040106
037616
037611

SEQ 0058
WORK?2
2%

INC
BR
ADD
BR

#2 ,WORK
1%
SENDALL #MSG77
#MSG77 RS
MOV
MODE
CLR
PC,SEND
JSR
PC
RTS

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

000000
000000

T17A:

.WORD

TABLV:

.WORD

MSGP0,MSG97 ,MSGC96,MSG5 ,MSG94 ,MSG118

.WORD

MSG104 ,MSG106,MSG103,M5G117 ,MSG105,MSG102

T178:

TABLVF:

.WORD

000800

JPRINTER BELL T EST
THIS TE ST WILL

000000000000

00000000

ISSUE 8 BELL CODES, WITH A DELAY

SEC BETWEEN EACH BELL.

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

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

012705
005037
004737
012737
005037
112737

040112
001174
031700
000010
001164
000007

012705
005037
004737

001164
001174
031700

012705
004737
005337
001363
000207

000100
033614
001160

TEST14:

SENDALL #MSG120
#MSG120,R5

M2V

CLR
JSR

MODE

CLR

WORK?2

PC,SEND
#10,WORK

001160

MOV

001164

#7 ,WORK?2
MovB
SENDALL #WORK?2
#WORK?2 RS
MOV
MODE
CLR
PC,SEND
JSR
#100
STALL
#100,RS
MoV
PC,MSTALL
JSR
WORK
DEC
1%
BNE
PC
RTS

1%:

;SEND TEST ID
;BUILD SEND CALL USING MESSAGE ADDRESS
;NOW SEND THE MESSAGE
.8 BELL COUNT

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

;SETUP STALL TIME CONSTANT

CZLAIAO LAOO DMT PROG

TESTS

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

MACRO M1110

20-APR-78 04:21

PAGE 24

SEQ 0059

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

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

FAC I

7100 012260
7200 012264

7300 012272
7600 012276

7500 012302
7600 012310

7700 012312

7800 012316
7900 012322
8000 012324

8100 012330
8230 012332
012332
012336
012344
012352
8300 012356
8400 012362
012362
012366
012374
012402
8500 012406
8600 012414
8700 012422
8800 012426
012426
012432
8900 012436
9000 012444
9100 012446
9200 012452
9300 012456
9400 012460
9500 012464
9600 012470
9700 012472
9800 012476

012524

005037
013737
006337
013702
023737

001204
001204
001160
001160
001204

000137

014370
020626

005237
000755

001204

012705
112737
113737
004737
005037

041130
000010
001204
031700
014302

012705

040226
000010
001204
031700
012734
004000
034166

103402

105762
100003

112737
113737

004737
012737
042737

004737

012705
004737
032737
001445
012703
020327
103405

011610
033614
020000

001160
001152

001175
001174

001140
014302

3%:

014302

013772
001110
8%:

000002
113737

001170

001162

012705

001142
000010

001175

ONL INE
ONL INE , WORK

AN A

BN BT AT A

AV AR A

1STB

JYES EXIT

?gLINE

NO GET NEXT LINE NO

8PL
INC
BR
SENDI
MoV

MOV
MovB
MOvVB
JSR
MOV
BIC
JSR
STALL
MOV
JSR
BIT
MOV
cMP

AN AN 2N AN AN 2K N

AN 4 2000

;SET CURRENT LINE TOU ZERO

.+6
END22
D%LINE(RZ)

8EQ

7%:

WORK ,R?

Movs
MOVB
JSR
CLR

001175
001174

CLR
MOV
ASL
MOV

SEND]

001170

112737

cmp
BLO
MP

2%:

014140
014300

100000

WORK

IN
ONL INE ,NUML

JALL DONE

;1S THIS LINE SELECTED ?
JYES DO TEST
;SEND TEST ID

#MSG164,
ONL INE

RS
#MSG164

;MCSSAGE ADDRESS TO RS

#10 ,MODE +1
ONL INE ,MODE

JSET SINGLE LINE MODE
sSELECTED LINE NO.

FLAG21

;CLEAR TEST FLAG BITS
sPRINT INSTRUCTIONS

PC,SEND

#MSG140,0NL
INE
#MSG140,R5

#10 ,MODE +1
ONL INE ,MODE
PC,SEND
#6$ ,HOOK

#BIT11,FLAG2T

PC,QUIET
#5000.
#5000. RS
PC_,MSTALL

#BIT13,FLAGAT

4%
#KEYTBL ,R3

R3,#KEYEND
8%
PC,T21E
ERROR

3%
CHARIN, (R3)

9%
#2,R3
7%
#BI1115, (R3)

CHARIN,WORK1

#WORK
1, ONL INE
#WORK1 ,RS
#10,MODE
+1

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

;JLINKAGE TO RECV ROUTINE
JRESET LEFTOVER FLAG
;5 SECOND TIMEOUT
;SETUP STALL TIME CONSTANT

;CHAR IN SET ?
;POINT

TO KEY

JALL DONE ?

TABLE

;NO

JREPORT ERROR.....

;COMPARE TO TABLE

JPOINT TO NEXT ENTRY
JKEEP 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

MACRO M1110
001204
031700
010000

012705
112737
113737
004737

040565

012612
012616
012624
012632

012705

004737

041160
000010
001204
031700

012636
012642
012650
012656
00 012662

012705
112737
113737
004737
042737
005237
000137

040514
000010
001204
031700
000200
001110
013374

012705

040452
000010
001204
031700
000200

11100 012636

00 012670
00 012674
00 012700
012700
012704
012712

012720

1600 012724
1700 012732
1800

112737
113737

112737

113737
004737
052737
000625

000010
001204
031700

PAGE 24-1

MOvB
JSR

001174

014302

013010
0146302

012566
012572
012600
012606

11000 012612

20-APR-78 04:21

001175
001174

ONu INE ,MODE
PC,SEND

ggITTZ.FLAGZ1

;CHECK FOR DONE BIT

JMP
1S18
B8PL
SEND]

1%
FLAGZ1

JELSE TIMEOUT ERROR
JFIRST TIMEOUT ?
;YES TRY AGAIN
;NO SPACE MSG.....

#MSG146,0NLINE

MOV

#MSG146,RS

MOV

#MSG165,RS5

JSR

PC,SEND

JSET SINGLE LINE MODE
JSELECTED LINE NO.

MOVB
MOVB

;SET SINGLE LINE MODE
JSELECTED LINE NO.

#MSG143,0ONLINE
#MSG143 ,R5

JSELECTED LINE NO.

PC,SFND

BIC

#BI1T7,FLAG2T

JMP
SENDI
MOV

17%
#MSG142,0NL
INE

ERROR

#MSG142,RS5

;GO TO SECTN=-2
JHIT “PACE MSG.....
;MESS~LE ADDRESS TO RS

#BIT7 ,FLAG2T

;SET 2ND TRY FLAG

CLR

LOOPO

JRESET TIMEOUT COUNT

BI1C

#177600,R5

BIS
(MPS
8EQ

#BIT13,FLAG21
RS,#40
1118

RTS
NO°

MOvVB
MOVB
JSR

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

BIS
BR

;SET SINGLE LINE MODE

ONL INE ,MODE

INC

014302

;MESSAGE ADDRESS TO RS

#10 ,MODE +1

JSR

001175
001174

;MESSAGE ADDRESS TO RS

#10 ,MODE +1
ONL INE ,MODE

MOVB

5%:

;MESSAGE ADDRESS TO R5

MOVB
#10,MODE +1
MCvVB
ONL INE ,MODE
PC,SEND
JSR
INE
SENDI ~ #MSG165,0NL

MovB

014302

JSELECTED LINE NO.

géé

SENDI
MoV

001175
001174

SEQ 0060

;SET SINGLE LINE MODE
sSELECTED LINE NO.

SCAN ROUTINE

005037
005037
042705
010537
052737

120527

001403
004737
000207
000240
052737
000770

001146
001162
177600
001170
020000
000040

6%:

010000

MOV

014302
108:

033364
014302

CLR

111s

JSR

B!S
ER

WORK1

;CLEAR PARITY BIT

RS,CHARIN

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

PC,kBOUT

;REMOVE (HAR FROM BUFFER

#BIT12,FLAG2Y

;SET DONE FLAG

10%

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

LEF TOVERSTM
SCAN' ROUTINE
012705
112737
113737
004737

037154
000010
001204
031700

118:

001175
001174

SENDI
MOV
MOVB
MOVB
JSR

#MSG75, ONL INE

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

s CRLF

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

CZLAIAO LAOO DMT PROG

TESTS

13900 013034
14000 013040
14100 013046
14200 013052
14300 013056
14400
14500
14600

14700
14800
14900

15000

012703
042737
005037
020327
001431
005723
100773
005037
052737
005303
114337

016140
010C00
001162
014300

012705
112737
113737
004737
004737
062703
000744
032737
001465

041073
000010
001204
031700
034166
000002

012705

040514
000010
001204
031700
014276

112737
113737

004737
012703
042713
005237

013737
042737
023727
003026

013242
013250
013256
16500 013262
013262

013266
013274
013302
16600 013306
16700

16800 013312
16900 013316
17000 013322

17100 013324
17200 013330
17300 013334
17400 013340
17500 013342
17600 013346
013346
013352
013360

MACRO M1110

001160
004000

20-APR-78 04:21

014302
12%:

001175
001174

ADD

014302

001175
001174

100000

014302
014302

177770
001160

012705
112737
113737
004737

040550
000010
001204
031700

012705
112737
113737
004737
000137

040416
000010
001204
031700
012406

MOV
BIC
CLR
MP
8tQ
TST
BM]

(LR
BIS
DEC
MOVB
SEND]
MOV
MOvB
MovB
JSR
JSR

014302

041073

004000

PAGE 24-2

001160
001160
000003

001175
001174

13%:

BIT

BEQ
SENDI
MOV
MOvB
MovB
JSR
MOV
8IC
INC
MOV
8IC
cmP
BGT
SENDI
MOV

MOVB

SEQ 0061
#KEYTBL
,R3
#BIT12,FLAG2T
WORK1
R3,#KEYEND
13%
(R3)+
12%

WORK
#BIT11,FLAG2Y

R3
-(R3) ,MSG162
#MSG162,0NL
INE
#MSG162
RS
#10,MODE+1
ONL INE ,MODE
PC,SEND
PC,QUIET

;JPOINT

TO TABLE

;DONE YET ?

JYES ..GO TO 133
;CHECK CHAR IN FLAG(BIT 15)
JSET LEFTOVER KEY FLAG
;PUT

CHAR

IN MSG

JAND TYPE T OUT

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

#2,R3
12%

;GET NEXT TABLE ENTRY
JKEEP SCANNING FOR LEFTOVERS

15%
#MSG143,ONLINE
#MSG143,RS
#10,MODE
+1
ONL INE ,MODE

JNO GO CLEAN THE TABLE ETC.

#8IT11,FLAG2T

PC,SEND

#KEYEND-2
,R3

JANY LEFTOVERS
;NOT

SEEN MSG.....

JMESSAGE ADDRESS TO RS
;SET SINGLE LINE MODE
JSELECTED LINE NO.

#8I1T15,(R3)

JRESET

14%
#MSG144,ONL
INE
#MSG144
RS
#10,MODE
+1
ONL INE ,MODE

;3 STRIKES YOU'RE OUT !!!

#MSG145,ONL
INE
#MSG145,R5

JHIT SPACE LAST MSG.....

FLAG2]
FLAG21,WORK
#-8. ,WORK

PC,SEND

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

SPACE

IN FLAG

;OPERATOR GETS THREE

TRIES

:TRY AGAIN MSG.....

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

sMESSAGE ADDRESS TO R5

;SET SINGLE LINE MODE
;SELECTED LINE NO.

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

012746 040514
004737 020346
000000 012703 014140
100000
042723
020327 014300
103773
005037 014302

012705
112737
113737

037157
000010
001204

oooooooooooooooooo

PC,ERRORT

#KEYTBL ,R3
#BIT15,(R3)+
R3,#KEYEND
16%
FLAGZ21
#MSG77,0NL
INE
#MSG/77
RS
#10,MODE
+1
ONL INE ,MODE

JNEVER RECVD

ERROR MSG....

JCLEAN THE TABLE FLAGS

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

CZLAIAO LAOO DMT PROG

TESTS

013366
17700 013372

17800
17900
18000
18100
18200 013374
18300 013402
18400 013406
18500 013412
18600 013420
18700 013424
18800 013426
18900 013432
19000 013436
19100 013442
19200 013444
19300 013446
19400 013454
19500 013456
19600 013464

013464
013470
013476
013504
19700 013510
013510
013514
013522
013530
19800 013534
013534
013536
013544
013552
013556
013562
013562
013566

004737
000240

MACRO M1110

20-APR-78 04:21

PAGE 24-3
JSR

031700

SEQ 0062
PC,SEND

NOP
ooooooooooooooooooooooooooooo

SZ(OC. ESC. CTL.
ON
5" TSHIFTLCAP
= CTI
CSE
llllllll

012737
012703
012704
012737
005777
001004
005237
000137
062703
005713

001004
062737
000761

042737

014304
014312
014352
013740
165542

001140

001204
012264
000002
001166

000200

014302

040641
000010

017705
112737
113737
004737

165452
000010
001204

001204
031700

031700

17%:

18%:

001175
001174

20%:

#CTLTBL,WORK3
#SHITBL=2.R3

MOV
TST
BNE
INC
JMP
ADD
TST
BNE
ADD
BR
8IC
SEND!
MOV
Movs
MovB
JSR

#22% ,HOOK
?39““3

SENDI

001175
001174

MOV
Movs

MOVB
JSR
SENDI

SYES EXIT

SEND OF

#2 . WORK3
18%

SHITBL

TEST

#BIT7 ,FLAG21

:CLEAR DONE FLAG

#MSG150.R5

:MESSAGE 'ADDRESS TO RS

#MSG150, ONL INE
#10 ,MODE +1

ONL INE ,MODE
PC.SEND

aWORK3,ONLINE
WORK3 RS
#10 ,MODE +1

ONL INE ,MODE
PC, SEND

(R3)
, ONL INE

(R3) .RS

SSEND INSTRUNT IONS

:SET SINGLE LINE MODE

SSELECTED LINE NO.

;SEND INSTRUCTION #2
“MESSAGE ADDRESS TO RS
:SET SINGLE LINE MODE

SSELECTED LINE NO.

:MESSAGE ADDRESS TO RS

#5000.
#5000. .RS

;WAIT 5 SECONDS
"SETUP STALL TIME CONSTANT

FLAG2T
218

:DONE FLAG SET
*YES
BRANCH

012705
004737
105737
100445

011610
033614

MOV

012705
112737
113737
004737
162703

040565
000010
001204
031700
000002

MOV
MOVB
MOVB

012305
112737
113737
004737

000010
001204
031700

012705
112737
113737
004737

040514
000010
001204
031700

JSR
JSR
STALL

JSR
1ST8B
BMI
SENDI

JSR
SuB
SENDI
MOV
MOVB
mMov8
JSR
SENDI

001175
001174

208

SSELECT NEXT LINE

ONL INE
1%
#2.R3
(R3)

SEND OF CTLTBL

#10,MODE +1
ONL INE ,MODE

000010
001204
031700
034166

014302

#CODTBL
R4

MOV
MOVB
Movs

112737
113737

004737
004737

00000

MOV
MOV

MoV

19%:

000002

012705
112737
113737
004737

011305

001166

MOV

MOVB
MOVB
JSR

PC.SEND
PC.QUIET

PC.MSTALL

#MSG146, ONL INE
#MSG146.RS
#10.MODE +1

ONL INE ,MODE
PC.,SEND

*SET SINGLE LINE MODE
;SELECTED LINE NO.

“ERROR DIDN'T RECV CHAR
*MESSAGE ADDRESS TO RS

:SET SINGLE LINE MODE

SSELECTED LINE NO.

#2°R3

(R$)+,ONLINE
(R3) +.RS

#10 ,MODE +1

ONL INE ,MODE
PC,SEND

#MSG143,
ONL INE

#MSG143.RS
#10,MODE +1

ONL INE ,MODE
PC,SEND

:MESSAGE ADDRESS TO RS

;SET SINGLE LINE MODE

;SELECTED LINE NO.

:MESSAGE ADDRESS TO RS

;SET SINGLE LINE MODE

;SELECTED LINE NO.

CZLAIAQ LAOO DMT PROG

TESTS

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

005237
005737
100253
000000
000240
123724
001646
004737
005304
162703
000137

MACRO M1110

20-APR-78 04:21

PAGE 264-4

001110
001116
21%:

001170
013772
000002
013436

DSl

INC
TST
BPL
HALT
NOP
CMPR
BEQ
JSR
DEC
SUB
JMP

SEQ 0063
ERROR
SO

19%

CHARIN, (R4) +
19%
PC.T21E
R4
#2,R3
19%

: CODE CHECKER ROUTIN

gg%

22200 013740
22300 013742
22400 013750
22500 013754
22600 013760
22700 013764

22800 013770
22900

000240
052737
042705
010537
005037
004737
000207

000200
177600
001170
001146

014302

23%:

033364

032737

020000

001116

23500 014002
23600 014010
23700 014014
23800 014020
23900 014026
24000 014034
24100 014042
014042
014046
014054

013737
012705
004737
113737
113737
113737

001170
020574
033646
020577
020600
020601

001134

012705
112737
113737

040565
000010
001204

014062

001056

004737

031700

014066
014072

012705
112737

040600
000010

014112

012705

040716

014100
014106
24300 014112
014116
014124
014132
26400 014136
24500
24600

113737
004737
112737
113737
004737
000207

001204
031700

T21E:

;CHECK FOR CORRECT CODE
:CALL ERROR ROUTINE

iiliieiiiiiiiiiiiiiii

JGET CHAR FROM FIFO
#BIT7,FLAG2]
JSET DONE FLAG
#177600,RS
:CLEAR PARITY BIT
RS,CHARIN
LOOPO
:TURN OFF TIMER
PC.,kBOUT
PC

040716
040717
040720
001175
001174

MoV
MOV
JSR
MOvB
MOVR
MOVB
SEND]
MOV
MOVB
MOVB

CHARIN,TEMP
JSET UP CONVERTER
#EBUF RS
PC,.BIOCT
;CONVERT T0 ASCII
EBUF +3,MSG149
EBUF +4 ,MSG149+1.,
EBUF +5,MSG149+2.
#MSG146,0NL
INE
#MSG146,RS
:MESSAGE ADDRESS TO RS
#10,MODE+1
;SET SINGLE LINE MODE
ONL INE ,MODE
;SELECTED | INE NO.

SEND]

#MSG148,0NL
INE

MOVB
JSR
SEND]

ONL INE ,MODE
PC,SEND
#MSGT49,0NL
INE

MOV
MOVB

001174

001175
001174

#B81T713,S0

BNE

JSR

001175

000010
001204
031700

BIT

MOV

26%:

MOVB
MOVB
JSR
RTS

24700 014140

000054

C€00055

000056

KEYTBL: .WORD

24800 014166

000065

000066

000067

.WORD

014146
014154
014162

IF BIT 15 SET

D el
eiiiiiiiiiis
:BAD CHAR CODE ROUTINE

23300 013772

246200 014066

NOP
8IS
BIC
MOV
CLR
JSR
RTS

23000
533,;88

23400 014000

22%:

JHALT ON ERROR ?

000057
000062
000073

000060
000063
000047

000061
000064

26%

;CHECK SW 13

PC,SEND

#MMSG148,RS
#10,MODE +1

#MSG149,RS

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

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

;MESSAGF ADDRESS TO RS

;SET SINGLE LINE MODE
;SELECTED LINE NO.

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

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

CZLAIAO LAOO DMT PROG

TESTS

014174
014202
24900 014210
014216
014224
25000 014230
014236
014244
25100 014250
014256
014264
25200 014270
014276
25300 014300
25400 014302
25500
25600 014304
014312
25700
25800 014314
014322
25900 014330
014336
26000 014344
26100
26200 014352
014355
014360
014363
014366
26300
26400
26500 014370
014374
26700 014400
26800 014404
26900 014410
27000

000070
000133
000140
000143
000146
000150

000153
000156
000160
000163
000166
000170
000040
000000

MACRO M1110
000071
000134
000141
000144
000147
000151
000154
000157
000161
000164
000167
000171

20-APR-78 04:21

PAGE 24~5

000075
000135
000142
000145

S
SEQ 0064

.WORD

160.161.162.163,144.,145.146,147

000152
000155

.WORD

150.151,152.153.154.155,156,157

000162
000165

.WORD

160,161.162.163,164.165,166.167

000172

.WORD

170,171.172,40

:
KEYEND

FLAGZ21:

-WORD
.WORD

0
0

000000

041232
000000

040674

040776

CTLTBL:

-WORD

MSG170,MSG156,M5G157,0

040722
041047
041202
041226
041226

040652
040753
041215
040747
040747

041041
041166
000000
000000
000000

SHITBL:

.WORD

MSG151,MSG152,MSG158 ,MSG159,MSG154 ,MSG166

.WORD

MSG167,MSG168,000000,MSG169,M5G153,000000

.WORD

MSG169,MSG153,000000

101
015
012
C44

020
177

102

on
010

CODTBL:

.BYTE

101,102,011,015,020,010,012,177,104,044,104,064,0

104

064

CLR
CLR
CLR

LOOPO
ONL INE
FLAG21

000

005037
005037
005037
005037
000207

104

.EVEN

001146
001204
014302
001140

END22:

CLR

RTS

HOOK
PC

CZLAIAO LAOO DMT PROG

TESTS

MACRO M1110

20-APR-78 04:21

27200
2730C
274600
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

;
:

:
;

103402
000137
105760
100003
005237
000761

001204
014302
001204
001204

035310

012705

010000

000010
001204
031700
015164
034166

033614

014522
29600 014526
29700 014534
29800 014536
014536
014542
014550
014556

004737
032737
001013
012705
112737
113737
004737
000753

042152
000010
001204
031700

30100 014564

005037
123727
001557
005037
113737
113737
105037
012705
004737
113737
113737
113737

014302
001170

012705
112737
113737

040716
000010
001204
031700

29900 014562

30200 014570
30300 014576
30400 014600
30500 014604
30600 014612
30700 014620
30800 014624
3090G 014630
31000 014634
31100 014642
31200 014650
31300 014656
014656
014662
014670
014676
31400 014702

004737

000004

001160
001170
001160

001135
016320
033646
016323
016324
016325

AT B

TO EXIT THIS TEST.

AN A

AN Y

AN BN B

BN AN AN A

AN A

AR AN K

AR AR AR A

;SU FOR LINE O

MOV
ASL
(MP
BLO
JMP
TSTR

ONL INE ,RO
RO
ONLINE ,NUMLIN
4%
20%
DZL INE (RO)

SEND]
MOV

#MSG18,ONLINE
#MSG18,RS

;SEND TEST ID MSG
;MESSAGE ADDRESS TO RS

MOV
JSR
STALL
MOV

#30$
, HOOK
PC,QUIET
#10000
#10000,R5

;JWAIT FOR PRINTING TO FINISH
;THEN WAIT 10 SECONDS
JSETUP STALL TIME CONSTANT

BIT

#BIT2,FLAG21

;CHAR RECVD FLAG SET ?

MovB
MOovB

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

;NO- PROMPT OPERATOR
;MESSAGE ADDRESS TO RS
sSET SINGLE LINE MODE
;SELECTED LINE NO.

B8R

2%:

CLR FLAG21

BPL
INC
BR

movs
MOovS
JSR

001175
001174

3s:

JSR

014302

BNE
SENDI
MOV

001175
001174

000177

1$:

4%:

001140

TYPE A DELETE

CLR ONLINE

001204

012705
112737
113737
004737
012737
004737

RECIEVED, ALONG WITH THE CHARACTER IF IT IS PRINTABLE.
[F NONPRINTABLE THE MNEMONIC WILL BE RETURNED.

TEST21:

001152

015146
020626

SEQ 0065

21
CHO TEST
CHARA(CTER THIS TEST WILL ECHO THE OCTAL CODE OF THE CHARACTER

PRI

005037
005037
013700
006300
023737

PAGE 25

JSR

5%:

CLR

(MPB

BEQ

2%
ONL INE
1%

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

PC MSTALL

PC,SEND

FLAG21

CHARIN, #177
108

CLR

WORK

JSR

PC,BIOCT

001160
001134

MOVB
MOvVB
CLRB
(0}

040716
040717
040720

MOvB
MovB
MOVB
SEND]

MOV

MOVB

MOVB
JSR

SENDI

CHARIN,WORK
WORK , TEMP
TEMP+1
#130BUF ,R5

JMAKE WORD OFFSET TO TABLES
;DONE YET ?
;IS LINE SELECTED ?
JYES- GO TEST LINE
;JNO- TRY NEXT LINE

;SET SINGLE LINE MODE
sSELECTED LINE NO.

;YES GOTO 5

;DELETE CHAR ?

JYES JUMP TO 10

;SAVE (HAR
;SU TO CONVERT TO OCTAL/ASCII

;CONVERT & STORE AT T30BUF

T308UF +3,MSG149
+4 ,MSG149+1
T30BUF
T30BUF
+5 ,MSG149+2
;SEND OCTAL DATA
#MSG149,0ONLINE

#MSG149,RS
#10 ,MODE +1

ONL INE ,MODE
PC,SEND

#MSG115,0ONLINE

;MESSAGE ADDRESS TO RS

sSET SINGLE LINE MODE

;SELECTED LINE NO.

;AND AN '='

CILAIAO LAOO DMT PROG

TESTS

MACRO M1110

014702

012705

040043

014722
31500 014726

004737
004737

031700
034166

31900 014742
32000 014746
32100 014750
32200 014754
32300 014760

012704
005003
113703
006337
063703

32500 014770
32600 014772
32700 014776
32800 015000
32900 015004
015004

005203
116324
005203
116314

014706
014716

31600 014732
glggg 014740

30400 014764

015010
015016
015024

112737
113737

123727
101034

116324

012705

112737
113737
004737

ggggg 015030 000415

20-APR-78 04:21

000010
001204

001175
001174

001160

000040

040716

6$:

035747

035747
000010
001204
031700

001175
001174

037114

113737

001170

012705
112737
113737

037114
000010
001204

001175
001174

334,00 015064
33500 015072
33600 015074

032760
001405
012746

040000

031560

33800 015104
33900 015106
015106
015112

000000

33700 015100

004737

012705

031700

015120
015126
34,000 015132
34,200 015136
%2288 015142

34500 015146
015146

012705

037157

332(7’88 015162

015156

004737
000207

031700

34800 015164

005037

001146

35000 015176
35100 015202

042705
010537

177600
001170

015152

005037

000010
001204
031700
014512
001204
014422

004737
000207

8$:

9% :
001175
001174
108:

208:

001174

033364

CMPR
BHI

WORK , #40
7%

JPRINTABLE CHARACTER ?
SYES- GOTO 7

MOV
CLR
MOVB
ASL
ADD

#MSG149,R4
R3
WORK,R3
WORK
WORK ,R3

:CODE *3 FOR TABLE OFFSET

INC
MOVB
INC
MOVB
SEND]
MOV

R3
MSG33(R3),(R4)+
R3
MSG33(R3).(R4)
;GET MNEMONIC CHARS
MMSGT49,0NL INE
:PRINT CHAR MNEMONIC
#MSG149.RS
*MESSAGE ADDRESS TO RS

MOVB
SENDI
MoV
MOVB
MOVB
JSR

BIT
8EQ
MOV
JSR

34,900 015170 052737 000004 014302

35200 015206
35300 015212

7%:

020346

037154

PC, SEND
PC.QUIET

;SET SINGLE LINE MODE
;SELECTED LINE NO.

MOVEB
MOVB
JSR

035201

112737
113737
004737
000137
005237
000137

JSR
JSR

HALT
SENDI
MOV
MOVB
MOVB
JSR
JMP
INC
JMP

MSG33(R3).(R4)+

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

:SET SINGLE LINE MODE
SSELECTED LINE NO.

CHARIN ,MSG70

;ECHO RECVE CHARACTER

#MSG70,R5
#10,MODE+1
ONLINE,MODE

:M:SSAGE ADDRESS TO RS
;SET SINGLE LINE MODE
:SELECTED LINE NO.

#MSG70.ONLINE

PC, SEND

#81T14 ,RECERR (RO)
:PARITY OK ?
9%
#MSG15,=(SP)
:NO CALL ERROR RTN.
PC,ERRORT

#MSG75,ONLINE

#MSG7S ,RS

#10,MODE+1
ONL INE,MODE
PC, SEND
3¢
ONL INE
1%

SIF BIT 15 SET IN SWR

;MESSAGE ADDRESS TO RS

:SET SINGLE LINE MODE
;SELECTED LINE NO.
;TEST NEXT LINE

SENDALL #MSG77
MOV
MSG77,RS

JBUILD SEND CALL USING MESSAGE ADDRESS

JSR

CLR

30$:

:MESSAGE ADDRESS TO RS

#10,MODE+]
ONLINE,MODE

B8R

33200 015032
33300 01504C
015040
015044
015052

015060

#MSG115,RS

MOVB

035747

SEQ 0066

MOV

MOVE
MOVB

001160
001160
001160

040716

PAGE 25-1

MODE

RTS

PC, SEND
PC

:NOW SEND THE MESSAGE

CLR

LOOPO

SABORT TIMEOUT

81C
MOV

#177600.RS
RS, CHARIN

BIS

JSR
RTS

#B1T12,FLAG2
PC .KBOUT
PC

"SET CHAR RECVD FLAG
;TO RECV RITN.

CZLAIAO LAOO DMT PROG

TESTS

MACRO M1110

20-APR-78 04:21

PAGE 26

SEQ 0067

35500

ittt et liieiddiiiiiieeiiiiiessdsiialiiiiiiis

35700
35800
356900
36000

;

THIS TEST WILL REQUIRE THE OPERATOR TO ENTER
SETUP MODE, AND CHANGE THE MODE TO THAT SPECIFIED.
A LINE OR LINES OF DATA WILL BE PRINTED AND
SHOULD BE AT THE NEW PITCH.

35600

: PITCH SETUP TEST

36100
36200

36300 01>214
36400 015¢20

005037
012701

001204
015622

36600 015230

012737

015602

001140

001204

001152

36500 015224

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

015356

005037

013700
006300
023737
001550
105760

100003

001160

001204

012705

041722

113737

0012046

112737

004737

005037
023727
002403

000010
031700

001164
001164

005237
000740

001204

012705
1112737

041403
000010

113737
004737

TEST22: CLR
MOV

ONL INE
#TABLZ24
R

MOV

#1118 ,HOOK

CLR

1%:

020626

005237
000763

001204
031700

i iiiiiiliiiiiiiieiiiiddiiiiiiiiiiiiis

MOV
ASL
MP
BEQ
TSTR

BPL

°%:
001175

001174

000012

ONL INE ,MODE

A ¥
001175
001174

INC
BR
SEND]
MOV
MOVB
MOVB
JSR

#10,MODE +1

ONL INE
1%
#MSG303,0NL INE
#MSG303.RS
#10 ,MODE +1
ONL INE ,MODE

MOV

WORKZ2,R1

015370
015374
015402
015410
38500 015414
015414

016105
112737
113737
004737

015622
00C210
001206
031700

012705
112737

041462
000010

MoV
MOVB
MOVB
JSR
SENDI
MOV

TABL24 (R1) ,R5
#10 ,MODE +1
ONL INE ,MODE
PC,SEND
#MMSG304
, ONL INE
#MSG304 RS

MOVB
JSR
MOV

ONL INE ,MODE
PC,SEND
#<1.NOTYET

015420

015426
015434
38600 015440

38700 015446

113737

004737

012737

001204
031700
177777

015446
015452
38800 015456
38900 015462
39000 015464
39100 015470

012705
004737
005737
001420
105761
100410

035230
033614
001136

39300 015476

004737

020346

39200 015472

012746

024546

036225

001175

001174

001175

MOVB

001174

001136

5%:

STALL

MOV
JSR
TST
BEQ
TSTB
BM]

MOV

JSR

;SEND TEST ID
:MESSAGE ADDRESS TO RS

:SET SINGLE LINE MODE

;SELECTED LINE NO.

:SUBTEST O OF 9
:DONE 10 YET?
;NO KEEP TESTING

:YES GET NEXT LINE

JSEND INSTRUCTIONS
;MESSAGE APDRESS TO RS
;SET SINGLE LINE MODE
JSELECTED LINE NO.

PC,SEND

001164

ASL
SEND]

;NO- TRY NEXT LINE

WORK 2
WORK?2 ,#10.
4%

013701

006301

:YES~= START TESTS

PC.,SEND

38200 015362

38300 015366
38400 015370

:DONE ALL LINES ?
;YES JUMP
;ACTIVE LINE ?

MOVB

CLR
CMP
BLT

:SET INTR CATCHER

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

JSR

3%:

WORK

INC
BR
SEND]
MOV
MOVB

;START ON LINE O

R1
TABL24 (R1) ,ONL INE

#10_,MODE+1

#15600

#15000. ,R5
PC,MSTALL
NOTYET
7%
STOP(R1)
6%

#MSG4LO,~-(SP)
PC,ERRORT

;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
;SELECTED LINE NO.

;GETS CLEARED BY XON MSG

:ALLOW SETUP TIME 15 SEC

;SETUP STALL TIME CONSTANT

;SEEN XON YET ?
;YES CONTINUE
JLINE SELECTED ?
:YES WAIT MORE TIME

:REPORT ERROR

CZLAIAO LAOO DMT PROG

TESTS

39400 015502
39500 015504
39600 015510
39700 015512
39800 015514
39900 015520
40000 015524

40100 015526
40200 015532

40300 015534
015534
015540
015546
015554
40400 015560
40500 015564

000000
005237
000652
000240
105062
000137
000240
005761
001414

MACRO M1110

20-APR-78 04:21

PAGE 26-1
HAL TM

001204
6%:

024546
015446

7%:

015650

SEQ 0068

INC
B8R

ONL INE
1%

(LRB
JMP

STOP(R?2)
5%

NOP
NOP

TST

;IF

SW 15 SET

JTRY NEXT LINE

TAB24B(R1)

BEQ
SEND]

9%
JYES
TAB24B(R1) ,ONL INE

MOVR
MOVB

#10 ,MODE +1
ONL INE ,MODE

JSET SINGLE LINE MODE
JSELECTED LINE NO.

INC
JMP
CLR

WORK 2
3%
HOOK

;SU NEXT SUBTEST

(MP8
BNE
CLR
CLR

#21,RS
12%

;XON ?

LOOPO

JABORT TIMEOUT

.WORD

MSG309,MSG310,MSG311,MSG312,MSG317,MSG314

MOV

TAB24B(R1) ,R5

JUMP
:SEND THE MSG

:MESSAGE ADDRESS TO RS

40800 015600

016105
112737
113737
004737
004737
005237
000137
005037
000207

41100 015602
41200 015606
41300 015610
41400 015614
41500 015620

122705
001004
005037
005037
000207

000021

41800 015622
015630
41900 015636
015644

041541
041577
041611
041635

041553
041661
041527

041565
041623
041647

TABL24:

.WORD

MSG313,MSG308,M5G316,MSG315,000000

42100 015650

037642
037642
042010
042060

gzqggg

037642

TAB24B: .WORD

MSG107,MSG107,MSG107,MSG107
,MSG321

042030

042050

.WORD

40600 015570
40700 015574

015656

42200 015662
015670

000010
001204

031700
034166

001175
001174

001164
015320
001140

9% :

11%:

10%:

001136

001146

000000

042070

12%:

000000

JSR
JSR

RTS

PC,SEND
PC,QUIET

NOTYET
PC

JRELCASE INTR CATCHER
JEXIT.......

JCLEAR IN XON

MSG322,MSG323.MSG324,MSG325,M5G326,000000

CZLAIAQ LAOO DMT PROG

TESTS

MACRO M1110

20-APR-78 04:21

PAGE 27

SEQ 0069

59700

sl et eeeeeeecacsantencecsttecisoeesetteceeeseteeseesessesssensssse

59900
60000
60100
60200
60300
60400
60500

;
;
;
:
:
;
;

59800

CLIFETTEST

"#°8

THIS TEST WILL PRINT A CONTINUOUS PATTERN
OF ALL PRINTABLE CHARACTERS. EACH CHARACTER
WILL BE PRINTED ON 2 FULL LINES,
WITH THE PASS COUNT INSBEDDED IN THE LINES.
THIS PATTERN WILL PRECESS 1 CHAR POSITION
EACH LINE PRINTED.

LOOPING IS CONTROLLED BY SWITCH #12.
S s e ceceeeisecencestosetsessesesetseeeesseesessesessseeesessseveseves

60600

60700

60800 015676
015676

012705

041313

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

004737
032737
001021

031700
010000

012705
013737
112737
004737

000101
001172
000020
032226

012705

037157

015756
21288 015762

004737
000207

031700

61500 015764

013737

015702

015752

61600 015772
61700 016000
61800 016006
61900 016014

005037

162737
113737
012737
112737

001174

62200 016032

62300 016040
62400 016042
62500 016050
62600 016052

004737

032737

001742
013737
001412

016052 013705

016056
016064
016072
62700 016076

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

013737
112737
004737

001172

000005
001160
000041
000002
016264

001116

001174
001175

2%:

001160

001160
007512
001160
007514

001162

007516

007516
000020
032226

041376
001174
031700

013705

001160

007512
001162

007516
000020
032226

3$:

4$:

:NOW SEND THE MESSAGE
“IF LOOPING GO TO SECTION &

PC,SEND
PC

:NOW SEND THE MESSAGE
CEXIT e e eeeeeaannnn

MOV

WIDTH, WORK

SGET WIDTH

CLR

WORK 1

*CURRENT PRECESS COUNT

6% :

007516
007516

001176
001175

SUB
MOVB
MOV
MOVB
JSR

BIT

MOVB

MODE

#5,WORK
WORK,W1
#41,WORK
#2.W2

PC,GETPN

#81T12.50

BEQ
MOV
BEQ
SENDC2

2%
WORK1,W3
6%
WORK,W3

MOV
MOVB
JSR
SENDALL

W3,MODE
#20,MODE+1
PC, CHROUT
#MSG271

MOV

001174
001175

MODE

:SEND TEST ID
*BUILD SEND CALL USING MESSAGE ADDRESS

PC,SEND
#81712.50
3¢
#'A.WIDTH
#'A.RS
WIDTH,MODE
#20,MODE+1
PC, CHROUT
#MSG?77
#MSG77.RS

CLR

001116

001160

JSR
BIT
BNE
SENDC2
MOV
MOV
MOVB
JSR
SENDALL
MOV
JSR
RTS

010000

012705
005037
004737
005003
113737
163737
001412
013737
112737
004737

CLR

001174

62000 016022 005037 001162
62100 016026

TEST1S: SENDALL #MSG270
MOV
#MSG270,RS

MOV
CLR
JSR
CLR
W1,W3
SUB
BEQ
SENDC2
MOV
MOV
MOVB
JSR

WORK _R5

:PRINT A FULL LINE OF A'S
SGET CHAR TO RS
:GET REPEAT COUNT
:SET REPEAT MODE
SCALL CHAR OUTPUT ROUTINE
SSKIP 3 LINES
*BUILD SEND CALL USING MESSAGE ADDRESS

:PRECESS LIMIT
$SAVE IN W1
SPRINTING CHAR CODE
2SU 2 LINES PER CHAR

*CONVERT PASSNO TO ASCII

: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
“PRINT THE PASS COUNT

#MSG271.RS
*BUILD SEND CALL USING MESSAGE ADDRESS
MODE
PC,SEND
:NOW SEND THE MESSAGE
R3
:CHAR COUNT = WIDTH - § - PRECESS CNT
WORK1,W3
8%
WORK,W3
:PRINT CHARS TO END
WORK .RS
“GET CHAR TO RS
W3, MODE
*GET REPEAT COUNT
#20,MODE+1
*SET REPEAT MODE
PC.CHROUT
sCALL CHAR OUTPUT ROUTINE

CILAIAQ LAOO DMT PROG

TESTS

63300 016156

016156

016162
016166
63400 016172

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

64800
64900

65000 016264

65100 016272
65200 016276
65300 016302
65400 016310

65500 016316
65501
65502
65503
65504

65505 016320

012705

005037
004737
005237

123737
103402
005037
105337
001020
112737
005237
123727
001007
012737
005237

MACRO M1110

20-APR-78 04:21
8%:

037154

001174
031700
001162

001162

001162
007514

001160

004737
000137

000041
001126
016264
016032

013737

001124

001134

000207

016320
033646
016324
016325

#MSG75,RS
MODE
PC,SEND
WORK 1

108 :

CMPB
8LO
CLR
DECB
BNE
MOVB
INC
(MP8
BNE
MOV
INC
JSR
JMP

GETPN:

MOV

PASSNO, TEMP

RTS

9%:
007514

SEQ 0070

SENDALL #MSG75

MOV

(LR
JSR
INC

007512

000002
001160
001160

012705
004737
113737
113737

PAGE 27-1

000177

041377
041400

T308UF:

MOV
JSR
MOVB
MOVB

.BLKW

WORK1, W1
9%
WORK1
Wl
108
#2,We
WORK
WORK ,#177
10%
#41,WORK
PASSNO
PC.GETPN
4%

s SEND CRLF

;BUILD SEND CALL USING MESSAGE ADDRESS
;JNOW SEND THE MESSAGE
JNEW PRECESS COUNT
JRESET TO O IF MAX
;2 LINE DONE YET?
JYES RESET LINE COUNT
;GET NEXT CHAR CODE
JUNLESS ALL DONE
;THEN RESET CHAR (CODE AND
2 INC PASS COUNT
JREFORMAT MSG
;GO CHECK SW 11

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

CILAIAO LAOO DMT PROG

TESTS

MACRO M1110

20-APR-78 04:21

100

500
600
700
388

PAGF 28

SEQ 0071

cervesres i esiescesesecstsssecesessesitesessss
st iteneasss s
: PRINTER EXERCISOR

H
:

1000

1100 016334

016334

012705

041333

016344
1200 01¢350
1300 016354

004737
112703
123727
101002
112703

031700
000011
001172

012705

037157

016400
1700 016404
016404
016410
016414
1800 016420
1900 016424
2000 016432
2100 016434
2200 016440
2300 016444
26400 016446
2500 016452
016452

004737

031700

012705

037623

004737
005037
023727
003402
000137
013700
006300
016001

031700
007512
007512

016460
2600 016464
2700 016472
2800 016476
2900 016500
3000 016504

004737
016037
005737
001002
000137
005037

016340

1400 016362
1500 016364

1600 016370
016370
016374

016454

3100 016510

3200 016514
016514
016520
016524
3300 016530
3400 016534
3500 016536
3600 016542
3700 016546
3800 016550
3900 016554
016554
016556
016562
4000 016566

4100 016572
4200 016574

005037

010105

005037

004737

012705
005037
004737
023703
003402
000137
013700
006300
016001
010105
005037
004737
004737
000240
000240

TEST16: SENDALL #MSG280

001174

000120

7%:

001174

000005

016776
007512

1%:
2%:

012154
001174

016766

007516
034166

007514

3%:
4%:

037154
001174
031700
007516

5%:

016756
007516

6%:

017114
001174
031700
034166

MOV

#MSG2BO,R5

JSR
Movs
(MP8

PC,SEND
#9. ,R3
WIDTH, 4120

CLR

000007

031700
017150
007514

THIS TEST WILL PRINT A 10 BY 6 INCH MATRIX OF CHARACTERS
UTILIZING ALL POSSABLE COMBINATIONS OF PITCH SETTINGS.

BHI
MovB

MODE

7%
#7,R3

SENDALL #MSG?77
MoV
#MSG77 ,RS
CLR

MODE

CLR

MOVE

JSR
SENDALL
MoV
CLR
JSR
CLR
P
BLE
JMP
MOV
ASL
MoV
SENDALL
MoV
JSR
MOV
TST
BNE
JMP
CLR
JSR

SENDALL
MoV
CLR
JSR
CMP
BLE
JMP
MoV
ASL
MoV
SENDALL
MOV
CLR
JSR
JSR
NOP
NOP

JSEND TEST ID

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

;SKIP 3 LINES
;BUILD SEND CALL USING MESSAGE ADDRESS

PC,SEND
;NOW SEND THE MESSAGE
#MSG104
JSET H-PITCH T0 16.5
#MSG104 RS
;BUILD SEND CALL USING MESSAGE ADDRESS
MODE
PC,SEND
;NOW SEND THE MESSAGE
W’
;DO 6 V PITCH GROUPS
W1, #5
;IF W1 > 5 GOTO 50
2%
50%
w1,RO
;GET V GROUP NO.
RO
TABLVF (RO) ,RT
;POINT TO V PITCH SETUP
R1
;SETUP V PITCH
R1,RS
;BUILD SEND CALL USING MESSAGE ADDRESS
PC,SEND
TBL31E(RO)
,W2
w2
4%
40%
w3
PC,QUIET

sNOW SEND THE MESSAGE
;GET LINE COUNT FOR THIS PITCH
JIF ALL LINES DONE GOTO 40

;DO 10 H PITCH GROUPS PER LINE

#MSG75
;SEND A CRLF
#MSG75 ,R5
;BUILD SEND CALL USING MESSAGE ADDRESS
MODE
PC,SEND
JNOW SEND THE MESSAGE
W3,R3
;1F 10 DONE GOTO 30
6%
308
w3,RO
;POINT TO H PITCH SETUP
RO
TBL31C(RO),RT
;ADDRESS IN R1
R1
JSETUP H PITCH
R1,R5
;BUILD SEND CALL USING MESSAGE ADDRESS
MODE
PC,SEND
;NOW SEND THE MESSAGE
PC.QUIET

CZLAIAO LAOGC DMT PROG

TESTS

4300 016576
4400 016602
4500 016604
4600 016610
4700 016614
4800 016620
4900 016624
5000 016630
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
016742
016746
016752
016756
016762
016766
016772
016776
017002
017002
017006
017012
7100 017016
7200
7300

7400
7500

013700
006300
010037
006337
006337
063700
063700
116037

013737
006337
062737
017700

MACRO M1110
007512

001166
001166
001166
001166
007516
017020
007516
001162

016001

013737
006337
062737
017737
11371

010105
113737
112737
004737
004737
005237
000137
005337

000137
005237
000137
004737
012705
005037
004737
000207

20-APR-78 04:21

MOV
ASL
[[0)%
ASL
ASL
ADD
ADD
MOVB
MOV
ASL
ADD
MOV
MOV
[ [0)7
ASL
ADD
MOV
MOVB

001160
001162
001162
001162

001160
001164
000020
031700
034166
007516
016530
007514
016472
007512
016424
033000

037157

001174
031700

PAGE 28-1

001162
001164

001174
001175

30¢:
40%:
61%:
50%:

SENDR
MOV
MOVB
MoVB
JSR
JSR
INC
JMP
DEC
JMP
INC
JMP
JSR
SENDALL
MOV
CLR
JSR
RTS

SEQ 0072
w1,RO
RO
RO,WORK3
WORK
3

;GET ADDRESS OF CHARA(CTER

WORK3
;RO= W1x10.
WORK3,R0
+ (COLM OFFSET
ROW
V
JRO=
w3,R0O
TBL31A(RQ) ,WORK ;PUT (CHAR IN WORK
;GET FORMAT SELECTOR
W3,WORK1
WORK1

#18L31G,WORK1
aWwORK1,R0O
,R1
TBL31D(RO)
W3,WORK1
WORK1
#TBL31F ,WORK 1
AWORK
1, WORK?2
WORK
, (R1)
R1,WORK?2
R1,RS
WORK
2 ,MODE
#20,MODE
+1
PC,SEND
PC,QUIET

w3
5%
we
3%
w1
1%
PC,RESETO
#MSG77
#MSG77 RS
MODE
PC,SEND
PC

;RO HAS SELECTOR
;JR1 HAS OUTPUT MSG ADDRESS

;GET PRINT REPEAT COUNT
JWORK?2 HAS REPEAT COUNT
;PUT CHAR I[N QUTPUT MSG
JPRINT H GROUP OF CHARS

JNEXT H GROUP

;JADJUST LINE COUNT -1

;DO NEXT LINE

sNEXT V GROUP

;DO NEXT V GROUP
JRESET THE TERMINALS
;JBUILD SEND CALL USING MESSAGE ADDRESS
;NOW SEND THE MFSSAGE
;ALL DONE...BYE

20-APR-78 04:21

MACRO M1110

PAGE 29

7700
7800
7900
8000
8100

SEQ 0073

6 GROUPS OF

OwVwn

) i

BYTE

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

—-0Own
OO

.BYTE

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

==
wvinus

.BYTE

162.163,164,165,75,112,113,114,115,116

BYTE

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

.BYTE

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

.WORD

MSG99,MSG100,MSG101,MSG108,MSG99

.WORD

MSG100,MSG101,MSG108,MSG101,MSG101

e
v
—
e
—
—

ONrN

TBL31A:

—_— - O
WS

52,141,142,143,144,1465,166,53,101,102

S — —d

.BYTE

—

10 SELECTORD TO TBL31D

——d
—a

TABLE OF

-d—lo—‘—l-—j—l-‘—l—l

10 CHARACTER CODES

OF 10 H PITCH MESSAGE ADDRESSES
OF & OUTPUT MESSAGE ADDRESSES
OF 6 LINE COUNTS PER V PIT(H
OF 10 PRINT REPEAT COUNTS

NN
WOO

9500 017114

TABLE
TABLE
TABLE
TABLE

NSRS
SOV —
AV
To Yo JVIRV, 1,8 L]

8200
8300
8400
8500
8600 017020
017023
017026
017031
8700 017032
017035
017040
017043
8800 017044
017047
017052
017055
8900 017056
017061
017064
017067
017070
017073
017076
017101
9100 017102
017105
017110
017113
9200
9300

.EVEN

037604

TBL31C:

037572
037677
037577
037604

037604

041374

037114

037117

TBL31D:

.WORD

MSG281,MSG70,MSG71,MSG72

017156

000014
000004

000010
000003

000006
000002

TBL31E:

.WORD

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

017172
017200
017206

000020
000012
000006
000004

000014
000010
000005

000014
000006
000004

TBL31F:

.WORD

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

017122
017126
017134

9700
9800 017140

017146

10000 017150
10100
10200 017164

10300
10400 017210

10500

—

CZLAIAO LAOO DMT PROG

TESTS

037123

037677

MACRO M1110
CZLAIAO LAQO DMT PROG
CONSOLE DRIVER ROUTINES

20-APR-78 04:21

PAGE 30

SEQ 0074

CONSOLE DRIVER ROUTINES

100

.SBTTL

400

; CONSOLE RECV INTERRUPT HANDLER

200
300

[ E RN

500
600 017234

700 017240

833838338

800 017242

105737
100402
000137
113777
162777
122777
001002
000137
105737
100375
117737
122777
001010

012705
2000 017332
2100 017336
2200 017342
2300 017350
2400 017352
017352
017356
2500 017362

2600 017366
2700 017372
2800
2900
3000
3100

017400
017402
017410
017416

3200 017420
3300 017426
3400 017434
3500 017436
3600 017444
3700 017450
3800 017456
3900 017460

4000 017466
4100 017474
4200 017500
4300 017504
4400 017512
4500 017514
4600 017522

4700
4800
4900
5000
5100
5200
5300

017530
017534
017540
017546
017550
017556
017564

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

005237

177560

TTYIN:

017372

177562
000200
000033

1%:

020144
177564
161676

000003

042113
020304
002336
017372
000015
037154
020304
017402
001206
000101

TSTB

BM]
JMP
mMOvB
8I(8B
CMPB

EEN

211%
17,562 ,aPNTR

;FALSE

INTERRUPT

#200,3PNTR
#33 aPNTR
111$
18%

aPNTR,a#177566

0000000

ANBN
B A

;READ CHAR INTO BUFFER
;STRIP PARITY BIT

:DECODE INPUT IF ESCAPE

;ECHO THE CHAR

#03 ,aPNTR
113%
#MSGK1
#MSGK1,R5
PC,CSEND
#WSEQ, (SP)

;CTL=-C ?

#15,3PNTR
2%
#MSG75
#MSG75,R5

;DECODE INPUT IF

211%

113%:

o
r e e

JREADY

1118

177566
161666

ar177560

aN177564

111s:

161636

;SEND READY

.GET MESSAGE ADDRESS

; SEND MESSAGE
JRETURN TO WAIT STATE

PC,CSEND

;ECHO CRLF
;GET MESSAGE ADDRESS
s SEND MESSAGE

PNTR

JGET NEXT BUFFER SPACE

177560

2%:
211s:

#101,a4177560

020326
161572

001206
000071

3%:

#TKBUF ,PNTR

4%:

000040
161554

161560
000015

dPNTR, 471
5%

5%:

aPNTR,#15

JRESET LC BIT IF ALFA
;STOP DECODE IF CR

020326
017372
000110

001206

#TKBUF ,PNTR

JRESET BUFFER POINTER fIRST
JHALT

100000
100000
001206
017410
000114

001116
001210

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

040000
040000
001206
017410
000103

001116
001210

140400
140400
001206

001116
001210

161530

161474

161440

#40,aPNTR

211%

6%:

7%:

#B1T714,S0
#BIT14,TMPTST
PNTR
4%

#'C,aPNTR
9%
#140400,S0

8%:

INC

#140400, TMPTST
PNTR

;TURN CONSOLE ON AGAIN
JRETURN

COMMAND?

JYES- SET BIT 15

;LOOP COMMAND ?

JYES- SET BIT 14

;CLEAR COMMAND ?
JRESET

THE

BITS

MACRO M1110
CZLAIAQO 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

000137
122777

001035
010046
005000

017410
000127

:
9%

001172
000204

000204
001172

001172
000040

000040
017410
000122

001172

010000

001210

161302

BNE

25%:
26%:

27%:
10%:

161242

012000

001210

002425
127727
003021
127727

161202

001116
001210

001206

001206
161122

000060

161112

000071

161102

000070

000077

MR
BLE
MOV
CMP
BGE
MOV
JMP
cMPB
BNE
BIS
MOV

SEQ 0075
4%

#'W,aPNTR

12%:

131%:

INC

14%:

SENDC

JSET WIDTH ?

10%
RO,=-(SP)
;SAVE RO
RO
PC.15%
;CONVER NEXT CHARS TO OCTAL
RO,WIDTH
LSET NEW WIDTH LIMIT
(SP)+,RO

WIDTH

25%

#2064 ,WIDTH
WIDTH,4#204
26%

#2064 ,WIDTH

WIDTH, 4#32.
27%

#32. ,WIDTH
4%
#'R,aPNTR
1%
#BIT12,TMPIST
RO,-(SP)
RO
PC,15%
PC ,NUMCHK

(SP)+,R0O
4%

#'S,aPNTR

11$:

JSR

042152

020304
020326
017372

MoV

CLR
JSR
JSR
MOV

017410
000123

000400
000400
001206
017410

127727

JMP
(MPB
BNE

MOV
MOV
TST

000204
001172

017410
000056

005237

30-1

CLR
JSR

020054
001172

020054
020230

012705
004737
012737
000137

PAGE

MOV

020054
020230

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

10800 020110

161404

001172

7000 017664
7100 017672
7200 017676
7300 017704
7400 017706
7500 017714
7600 017716
7700 017720
7800 017724
7900 017730

10700 020106

20-APR-78 04:21

12%
#012000, TMPTST
RO,-(SP)
RO
PC,15%
PC ,NUMCHK

(SP)+,R0O
4%
#'..,3PNTR
14%
#8178.,S0

JRUN TEST COMMAND ?

;SET THE CNTL BITS

;CONVERT NEXT TO OCTAL

s SEQUENCE COMMAND ?

s CONVERT NEXT TO OCTAL

s TERMINATOR ?

#BIT8, TMPTST
PNTR

4
#MSGK3
#MSGK3,RS

141%:

PC,CSEND
#TKBUF ,PNTR

15%:

PNTR

JUNDEF INED COMMAND (CHAR
;GET MESSAGE ADDRESS
;SEND MESSAGE

211%

aPNTR,#60
16%

JPOINT TO NEXT CHAR IN BUFFER
JEXIT IF NOT NUMERIC

APNIR, #71

16%
aPNTR,#70
17%
#77.RO

;DECIMAL OR OCTAL ?

;DECIMAL ;

INVALID

CZLAIAQ LAQO DMT PROG

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

11388 020142

11800 020144
020144
020150
11900 020154
12000 020162
12100 020166
12200 020172
12300 020200
020200
020204
12400 020210
12500 020216
020216

020222

uculé?
000370

012705
004737
013737
062706

035443
020304
001210
000002

012737

020326

001206

012705
004737
012737

042113
020304
000101

177560

012705

000100

012746

004737

12800 020230
12900 020232
13000 020234
13100 020240
13200 020246

105700
001006
105037
042737
000207

13400 020254
13500 020256

003006
052737

13800 020272
020272
020276
13900 020302

012705
004737
000756

14000
14100
14200

120027

110037
000766

16%:

002450

001116

001210

002000

001210

042152
020304

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

SENDC
MOV
JSR
MOV
ADD

#MSG22
#MSG22,RS
PC,CSEND
TMPTST, SO
#2.SP
#LSEQ,~(SP)
#TKBUF ,PNTR
#MSGK1
#MSGK1,RS
PC,CSEND
#101,a4177560
#100
#100,RS

RTS

MOV

MOV
SENDC
MOV
JSR
MOV
STALL
MOV
RTI

001210

NUMCHK: TSTB
BNE
CLRB
1%:
BIC
2%:
RTS

3%:

001219

SEQ 0076

JMP
BICB
ASL
ASL
ASL
BISB
BR

JSR

000022
002000

PAGE 30-2

PC,MSTALL

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

CEXIT OCTAL IN RO

:ECHO $ AND CRLF
:GET MESSAGE ADDRESS
:SEND MESSAGE
;PUT TEST NO IN SO
:FIX RETURN PC
:TO TEST SEQUENCER
:RESTORE BUFFER POINTER
:SEND 'READY’
:GET MESSAGE ADDRESS
:SEND MESSAGE
;ENABLE CONSOLE
:SETUP STALL TIME CONSTANT
:TO TEST SEQUENCER

RO
3%
TMPTST
#BIT10,TMPTST
PC

JTEST NO. ENTERED ?

8GT
BIS

4%
#BIT10,TMPTST

JYES
;0K SELECT TEST

SENDC
MOV
JSR
BR

#MSGK3
#MSGK3,RS
PC,CSEND
1%

C(MPB

MOVAR
B8R

RO, 422

RO, TMPTST
2%

;NO SELECT
:BYE

;700 BIG ?

;SAVE TEST NO.
272202

:GET MESSAGE ADDRESS
:SEND MESSAGE

Ceeecececececsesacseresessteteseerestesesssesectsesrsecesnenes
: CONSOLE TRANSMIT ROUTINE

14600 020304
14700 020306
14800 020310
14900 020314

105715
001406
105737
100375

15100 020322
}g%gg 020324

000770
000207

15600

18%:

033614

}2?88

12288 020326

17%:

161046

14300

15000 020316

161060

000207

000002

13600 020264
13700 020270

20-APR-78 04:21

G00137
142777
006300
006300
006300
157700
000745

13388 020226

13300 020250

MACRO M1110

112537

CSEND:

177564

TSTBR
BFQ
TST8
BPL

(RS)
2%
ar177564
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

CZLATIAO LAOO DMT PROG

ERROR HANDLER

15800
15900
16000
16100
16200
16300
16400
16500
16600 020346
16700 020354
16800 020356
16900 020364
17000 020370
17100 020374
17200 020402
17300 020410
17400 020416
17500 020424

17600 020430
17700 020434

17800 020442
17900 020450
020450
020454
020462
020470
18000 020474
18100 020476
18200 020502
020502

020504
020512
020520

18300 020524
020524

020530
18400 020534
020534
020536
18500 020542
18600 020544

18700 020550
18800
18900
19000
19100
19200

020554
020560
020564
020566
020572

19500 020574
020602
19600 020604
020607
020612
020615
020620

020623

MACRO M1110

20-APR-78 04:21

PAGE 31

.SBTTL
:
;

ERRORT

;
;

ERROR HANDLER

THIS ROUTINE WILL HANCLE

020000

001116

ERRORT: BIT

001204
020574
033646
020600
020601
001212
177700
020574
033646
020600
020601

001134

MOV
MOV
JSR

012705
112737
113737
004737
010346
016603

020604
000010
001204
031700

113737
113737

000010
001204
031700

012705
004737

020604
020304

100402

0000G0
000000
124
124
060

000000
105

060

001174

040
054
m

040
040

EBUF +4 ,MSGE +5
EBUF
+5 ,MSGE +6
#MSGE , ONL INE
#MSGE ,RS
#10,MODE +1
ONL INE ,MODE

MO\
MOV
SENDI
MOV
MOvB
MOVB

R3,-(LP)
4(SP) ,R3
R3,ONLINE
R3,R5
#10 ,MODE +1
ONL INE ,MODE

JSR

SENDC
MOV

JSR
SEND(C
MoV
JSR
1%:

000002
000002
001110
001116

000002

114
105

001175

020304

062716
000207

MOVB
MOVB
SENDI
MOV
MOVB
MOVB
JSR

MOV

JYES JUMP

;CONVERT LINE NO.

PC,SEND

#MSGE
#MSGE RS

PC,CSEND
R3
R3.RS
PC,CSEND

(SP)+,R3

JGET TEST NO.
;CONVERT IT TO ASCII

;FCRMAT ERROR MSG

JTEST AND LINE NO'S
;JMESSAGE ADDRESS TO RS
;SET SINGLE LINE MODE
JSELECTED LINE NO.
;SAVE R3
;GET MSG ADDRESS FROM STACK
;SEND ERROR MSG

;MESSAGE ADDRESS TO RS
;SEYT SINGLE LINE MODE
JSELECTED LINE NO.

;SAME THING TO CONSOLE
JGET MESSAGE ADDRESS

;SEND MESSAGE

;GET MESSAGE ADDRESY
;SEND MESSAGE

JRESTORE R3

(SP) ,2(SP)

#2,SP
ERROR

B8M]

JERASE ADDR F0M STA(CK

sADJUST STACK POINTER
;FLAG THE ERROR

JHALT ON ERROR SET ?

2%:

ADD
RTS

#2,(SP)
PC

;JUMP OVER ERROR HALT
JRETURN

000000

EBUF :

.WORD

0,0.0,0

;BUFFER AREA

123
060
040
116
060

MSGE :

LASCIZ

/TEST 00, LINE 00 /

000

TO ASCII

;CALL CONVERTER
.FORMAT ERROR MSG

PC,BIOCT

ADD
INC
TST

JINHIBIT PRINT ?

MOvVB
MOV
BIC
MOV
JSR

001175
001174

#81713,50
ONL INE , TEMP
#EBUF ,R5
PC,BI0CT
EBUF +4 ,MSGE+14.
EBUF +5 ,MSGE+15.
TSTTYP,TEMP
#177700, TEMP
#EBUF RS

MOVB

000004

010305
112737
113737
004737

010305
004737
012603
011666
062706
005237
005737

BNE

020611
020612

THE PRINTING OF

ERROR MESSAGES, UPDATE ERROR COUNTS, AND
CHECK ON SWITCH 13.

032737
001073
013737
012705
004737
113737
113737
013737
042737
012705
004737

020622
020623
001134
001134

SEQ 0077

;STD MSG HEADER

CZLAJAO LAOO DMT PROG
ERROR HANDLER
19700
19800

MACRQO M1110

20-APR-78 04:21

PAGE

31-1

.EVEN

SEQ 0078

100

200
300

400
500

600
700
800

MACRO M1110

20-APR-78 04:21

PAGE 32

SEQ 0079

DZ11 CLRIVER ROUTINES
LSBTTL
; THSES ROUTINES WIIL HANDLE FROM 1

TO 8 DZ11'S

;JOHN COMEAU INVENTED THESE 1JONDERFULL ROUTINES
;NOW A BUNCH OF
JHERE

TABLES

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

HOLD THE LINES BAUD RATE INFO
BITS 3-0/5AUD

50
0000
.
75
0001
;
110
0010
;
134.5
0011
;
150
0100
;
300
0101
:
600
0110
;
1200
01
H
1800
1000
:
2000
1001
:
2400
1010
H
3600
1011
:
4800
1100
H
7200
1101
H
9600
1110
:
RESERVED
111
H
;BIT 6 SELECTS THE TYPE OF PARITY, 0= EVEN 1-0DD
;BIT 5 IT THE PARITY ENABLIN G BIT, O IF NO PARITY, 1 IF PARITY
3800 020626

DZLINE: .BLKW

DZCON*S8.

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

JHERE ARE THE DZ11 COMMAND BUFFER AREAS
;THERE IS ONE FOR EACH LINE.

;EACH OF 20 WORDS LONG

;THE

COMMAND FORMAT

IS AS FOLLOWS.

;1ST WORD IS THE ADDRESS> OF THE MESSAGE BEING TYPED
;THE 2ND WORD. IF O, STANDARD MEGSSAGE

5
5400 020746
5500

;IF HIGH BYTE IS 10, LOW SYTE HOLDS LINE NO TO SEND TO
;1F 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

CILAIAO LAOO DMT PROG

ERROR HANDLER

5700
5800 024046
5900
6000

6100

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.

JHERE

TABLE OF

CURRENT

.BLKW

DZCON*8.

6200 024166

CURREP:

6500 024306

CURTER:

6800 024426

JHERE IS THE LINE REPLY TABLE
REPTBL: .BLKW
DZCON+8.

7100 024546

STOP:

76400 024666

JHERE IS THE TABLE OF CURRENT TEXT ADDRESSES
CURADD: .BLKW
DZCON%8.

JHERE

THE

.BLKW

DZCON+8.

IS A TABLE OF

.BLKW

JHERE ARE

SWITCH WORDS SET TO CLEAR TCR REG

DZCON=8.

THE PRINTING COMMAND BUFFER POINTERS

7700 025006
7800 025126

7900 025246
8000 025366

COMCNT:
COMIN:
COMOUT:
COMEND:

.BLKW
.BLKW
.BLKW
.BLKW

DZCON+8.
DZCON+8.
DZCON+8.
DZCON*8.

8200 025506

TCRBIT:

.BLKW

DZCON+8.

8500 025626

KBCNT:

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

TERMINATORS

;CHAR COUNT

.BLKW

JLINET-1, LINE2=2, LINE3=4, LINE&4=10

DZCON*8.

;END OF BUFFER TABLE

KBBUFE:

.BLKW

DZCON+*8.

JBEGIN OF BUFFER TABLE

KBBUFB:

.BLKW

DZCON=8.

;BUFFER PUT IN POINTER
.BLKW
DZCON*8.

KBBUFI:

JBUFFER TAKE OUT POINTER

KBRUFO:

.BLKW

DZCON=8.

JHERE

.DZ11

STATUS REG ADDRESS TABLE

KBBUF:

DZCSR:

THE KEYBOARD BUFFER AREA

.BLKW

DZCON*8.+20.

DZCON

;D211 RECIEVE ERROR BIT TABLE

RECERR:

.BLKW

DZCON+8.

;8 WORDS TIMES 8 LINES TIMES # OF DZS

;ONE CSR PER DZ11(REALLY.)

(N r~

CZLAIAO LAOO DMT PROG
DZ11 DRIVER ROUTINES

D211 DRIVER ROUTINES

MACRO M1110

20-APR-78 04:21

PAGE 34

SEQ 0081

11000
11100
11200

Jeeiecsseseseesssitecetssiitiesesitieseeteiiceciiesiesistsiiiiics
;DZ SEND ROUTINE
;CALLING SEQUENCES

11400

;

11300

11500

11600
11700
11800
11900
12000

010046
010146
010246
010537
122737
001014

13300 031726

013700

14200 031770
14300 031776
14400 032000
14500 032004
14600 032006
032006
032012
14700 032016
14800 032022

14900 032024
15000 032030
15100
15200 032036
15300 032040
15400 032044
15500 032052
15600 032056
15700 032062
15800 032066
15900 032072
16000 032100
16100 032104

16200 032112
16300 032120
16400 032126

HIGH BYTE
0
10

s CALL

;THIS IS THE MESSAGE ADDRESS

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

LOW BYTE
0
SELECT

REPEAT

TERMIN

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

G i il iiiiiiiiiieiiiiiiiiriiiiiisieiesisiesitetiititiiiivasiiiis

12600 031700
12700 031702
12800 031704
12900 031706
13000 031712
13100 031720

13800 031752
13900 031760
14000 031762
14100 031766

MODE

:
:

12400

13400 031732
13500 031734
13600 031740
13700 031746

PC,SEND

12200
12300

13200 031722

JSR

. MODE
:
:
:
;

12100

12500

;

105037

006300
005037
012737
000137

013737
005000
105760
100506

SEND:
001104
000010

001175

001106

020626

026027
002435
005760
100017

025006

013705

000144

RO,=(SP)
R1,-(SP)
R2,~(SP)
RS ,MSGADR
#10,MODE +1
2%

;SAVE RO
JAND R1
;AND RZ

MoV

MODE ,RO

;GET LINE #

CLRB

001174
001174
000001
031762
001152

MOV
MOV
MoV
MoV
CMPB
BNE

2%:
SEND1:

Mov
CLR
TSTB
B8M]

033614
024546

CMP
BLT
TST
BPL
STALL
01
JSR
TST

105260
126027

024046
024046

INCB
MP8

103002
000137
052760
005337
005060
005060
000137
013770
105060
062760

031762
000200
001216
024546
024046
032204
001104
024046
000002

004737
005760
100006

013770
062760
026060

000010

ASL
CLR
Mov
JMP

024046

001174
000002
025366

8PL

000310

020626

1%:
2%:

025126

6%:

025126
025126
025126
075126

BHIS
JMP
BIS
DEC
CLR
CLR
JMP
MOV
CLRB
ADD
MOV
ADD
MP

;IS THIS MESSAGE MEANT FOR ONLY 1 TERMINAL®

MODE +1

;NO.
JYES

RO
MODE
#1,SENDTM
SEND1

;MAKE WORD OFFSET
;JNO SPECIAL STUFF FOR INDIVIDUAL LINES
;COUNT = 1 LINE ONLY
;00 DO IT

NUMLIN,SENDTM
RO
DZL INE (RO)
7%

COMCNT(R0O) ,#8.
4%
ACTIVE(RO)
2%
100.
100. ,R5
PC,MSTALL
STOP(RO)
1%

; A COUNT OF LINES SC WE KNOW WHEN WE ARE THROUGH
;JSTART WITH THE 1ST LINE
;1S THE LINE INACTIVE?
;IF SO, DONT TRY TO SEND IT ANYTHING.
;ALREADY FULL?
;IF ROOM IS THERE, PUT STUFF
;IS THE LINE ACTIVE ?
sNO- DESELECT THE LINE

[N,

;WAIT A SHORT TIME THEN RETRY
;SETUP STALL TIME CONSTANT
;IS LINE WAITING FOR XON
sNO-~

ACTIVE (RO)
;COUNT THIS PASS THRU
ACTIVE (RO) ,#200.
sCHECK FOR EXCESSIVE DELAY
;ALLOW 20 SECONDS MAX.
2%
;TOO LONG- ABORT WAIT
SEND1
#BIT7,DZLINE(RO)
SDESELECT THE LINE
uuT
JONE LESS UNIT TO TEST
STOP (R0O)
ACTIVE (RO)
4]
:TRY THE NEXT LINE
MSGADR,aCOMIN(RO)
;PUT MESSAGE ADDRESS INTO THE COMMAND BUFFER
ACTIVE (RO)
JERASE ANY DELAY COUNT
#2,COMIN(RO)
;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?

N r~

CILAIAO LAOO DMT PROG

16500 032134
16600 032136
16700 032144
16800 032150
16900 032154
17000 032156
17100 032160
17200 032162
17300 032164
17400 032166
17500 032172
17600 032176
17700 032204
17800 032210

101003
162760

005260
005760
100413
010001
006201
006201
006201
042701
016101
156061

17900 032214

18000
18100
18200
18300
18400
18500
18600
18700

MACRO M1110

000050
024005
0246546

20-APR-78 04:21

025126

PAGE

6$%:

177761

031546
025506
000002
001106

000004

7%:

18800 032226
18900 032232

19000 032234
19100 032240

19200
19300 032244
19400

BHI
SuB
INC
TST
BMI
MOV
AR
ASR
ASR
BIC
MoV
BISB
ADD
DEC
BNE
MOV
MOV
MoV
RTS

032216
032220
032222
032224

34-1

SEQ 0082
6%
#50,COMIN(RO)

COMCNT (RO)
STOP(RO)
7%

;IF NOT.
JYES, AT END.,

RESET

T TO THE BEGINING

;ADD 1 TO COUNT OF COMMANDS N THERE
;1S THE LINE WAITING FOR XON?
;YES. DONT SET TCR BIT

RO,R1
R1
R1
R1
#177761
,R1
DZCSR(R1) ,R1
;JGET CSR ADDRESS
TCRBIT(RO) ,4(R1);SET THE LINES TCR BIT
#2 RO

SENDTM
SEND1

(SP)+,R2
(SP)+,R1
(SP)+,RO
PC

JNEXT LINE #

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

; SINGLE CHARACTER OUTPUT ROUTINE ALL TERMINALS
162705
006305
062705
004737

000207

000040
042370
031700

CHROUT:

suB
ASL
ADD

#40,R5S

JSR

RS
#PCTABL RS
PC,SEND

RTS

;CHARACTER TABLE STARTS AT 40
;MAKE WORD OFFSET
;ADD PRINT (HAR TABLE ADDRESS
s SEND MESSAGE WORD

[V Nean)

C/LATAO LAOO DMT PROG
DZ11 DRIVER ROUTINES

CZLAIAO LAOO DMT PROG
DZ11 DRIVER ROUTINES

MACRO M1110

19600

032246

20-APR-78 04:21

X=X+2

010046
012700

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

000137

SEQ 0083

;HERE ARE THE “RANSMIT
DZTINT:
x-0
DZCON
.REPT

000000
000005

032246
032250
032254

PAGE 35

.ENDR

000000
032412
000002
032472

000004
032412

X—X+2

X-X+2

X=X+2

032412

000010
032412

X X+2

X-X+2

;SAVE RO

MOV
MOV
JMP

RO,=-(SP)
#x,RO
TXINT

MOV
MOV
JMP

RO,=-(SP)
#X,RO
TXINT

MOV
MOV
JMP

RO,=(SP)
#x,R0O
TXINT

;SAVE RO

MOV
MOV

RO,-(SP)
#X RO

;SAVE RO

TXINT

;GO TO MAIN ROUTINE

MOV

RO,~-(SP)
#X RO

:SAVE RO

TXINT

;G0 TO MAIN ROUTINE

MOV
MOV

RO,~-(SP)
#X,RO

:;SAVE RO

JMP

TXINT

JMP

MOV

000006

INTERRUPT ROUTINES

JMP

JPUT DZ # IN RO

;GO TO MAIN ROUTINE
;SAVE RO

;PUT DZ #

IN RO

;GO TO MAIN ROUTINE
;PUT DZ # IN RO

;GO TO MAIN ROUTINE
:PUT DZ # IN RO

JPUT DZ #

IN RO

;PUT DZ # IN RO
;GO TO MAIN ROUTINE

032400
032402
032406
21800
21500

X-X+2
.ENDR

000000
033102
000002
033102

000004
033102
000006
033102
000010
033102

X X+2

X-X+2

X=X+2

X-X+2

MOV
MOV

- (SP)
RO,
#X,R0O
RCINT

;SAVE RO

MOV
MOV

RO,=(SP)
#X,R0
RCINT

;SAVE RO

MOV
MOV

RO,-(SP)
#X,R0O
RCINT

:SAVE RO

MOV
MOV

RO,=(SP)
#X,RO
RCINT

;SAVE RO

MOV
MOV

JMP

RO,=(SP)
#X,RO
RCINT

MOV
MOv

RO,-(SP)
#X RO

JMP

RCINT

JPUT DZ # IN RO

;GO TO MAIN ROUTINE

JPUT DZ # IN RO
;GO TO MAIN ROUTINE
JPUT DZ 4 IN RC

;GO TO MAIN ROUTINE
JPUT DZ # IN RO

;GO TO MAIN ROUTINE
;SAVE RO

JPUT DZ # IN RO

;GO TO MAIN ROUTINE
:SAVE RO

;PUT DZ # IN RO

;GO TO MAIN ROUTINE

DD DD

000005

INTERRUPT ROUTINES

A MAAMMMAMMMMMMMMMMMMMTTDD DD

032366
032370
032374

SEQ 0084

S~ s~~~ g~ S~~~

032354
032356
032362

. S~ S S~ S~

032342
032344
032350

PAGE

:HERE ARE THE RECIEVE
DZRINT:
x=0
DZCON
.REPT

000000

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

20-APR-78 04:21

- S S S pn S S—s P P

20900
21000 032330
2 1100
21200
21300
21400
21500
21600
21700
032330
032332
032336

MACRO M1110

— e e e

DRIVER ROUTINES

CZLAIAQ LAQO DMT PROG

DZ11

005760
100005
146061
000137
052760
005760
001012
005760
001051
146061
005060
000137
117037
005260
123760
001101
005360
003071
005060
062760
026060
103403
162760
005360

25900 032622
26000 032624

26100 032632
26200 032636
26300 032642
26400 032650
26500 032654
26600 032660
26700 032664
26800 032670
26900 032674
27000 032676
27100 032704
27200 032706
27300 032714
27400 032716
27500 032720
27600 032726
27700 032732
27800 032736

006300

001007
146061

005060
000137
017060
005060
005060
016002
062702
011237
001416
122737
001412
122737
001401
000000
113760
000137
105037
013760

001100
001101
177770
001100

001100
001100

JHERE IS THE MAIN TRANSMIT INTERRUPT ROUTINE
TXINT: MOV
R1,-(SP)
;SAVE ALL OF
MOV
RZ,=(SP)
JREGS WE INTEND TO USE
NOP
MOV
DZCSR(RO) ,R1
;D211 CSR ADDRESS
ASL
RO
ASL
RO
JGET LINE #
(R1) ,DXTMP
MOV
MOVB
DXTMP+1,DXTMP
;MOVE INTO LOW BYTE
BIC
#177770,DXTMP
;CLEAR ALL BITS EXCEPT LINE # BITS
ADD
DXTMP,RO
;BIG LINE # IF DZ# PLUS LINE #

026546
025506
032770
100000
024666

000004
024046

1%:

025006
025506
024046
032770
024666
024666
001100

000004

001100

2%:

024306

024166
024666
000004
025246

025246
025366

000050
025006

025246

025506
024046
032770

000004

025246
024166
024306
025246
000002
001100

024666

000020

001101

000030

001101

001100
032476
001101
001100

024306

024166

SEQ 0085

3s:

4%:

ASL

BNE
BICB

4%
TCRBIT(RO) ,4(R1)

TST
BPL
BICB
JMP
BIS
TST
BNE
TST
BNE
BICB
CLR
JMP
MovB
INC
CMPB
BNE
DEC
BGT
CLR
ADD
MP
BLO
SuB
DEC
CLR
JMP

MOV
CLR
CLR
MOV
ADD
MOV
BEQ

5%:
6%:

CMPB
BEQ
(MPB
BEQ
HALT
MOVB
JMP
CLRB
MOV

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

STOP(RO)
1%
TCRBIT(RO) ,4(R1)
9%
#81T15 ,ACTIVE(RO)
JSET LINE ACTIVE FLAG
CURADD (RO)
2%
COMCNT (RO)
4%
TCRBIT(RO) ,4(R1)
ACTIVE (RO)
;CLEAR THE LINES ACTIVE FLAG
9%
aCURADD
(RO) ,DXTMP
CURADD (RO)
;JPOINT AT THE NEXT NEXT (HAR
DXTMP,CURTER(RO)
;IS IT THE TERMINATOR?
8%
;NO. GO XMIT IT.
CURREP (RO)
7%
CURADD (RO)
#4,COMOUT (RO)
COMOUT
(RO) , COMEND (RO)
3%
#50,COMOUT
(RO)
COMCNT (RO)
ACTIVE (RO)
9%

@COMOUT
(RO) , CURADD (RO)
CURREP(RQ)
CURTER(ROQ)
COMOUT(RO)
,R2
;GET ADDR OF ADDR
#2,R2
(R2) ,DXTMP
6%

#20,DXTMP+1
6%
#30,DXTMP+1
5%
DXTMP,CURTER(RO)
1%
DXTMP+1
DXTMP, CURREP (RO)

AL ALELL

]

23500 032456
23600 032462
23700 032464
23800 032472
23900 032476
24000 032504
24100 032510
24200 032512
24300 032516
24400 032520
24500 032526
24600 032532
24700 032536
24800 032544
24900 032550
25000 032556
25100 032560
25200 032564
25300 032566
25400 032572
25500 032600
25600 032606
25700 032610
25800 032616

23400 032454

031546

= = = S NNV

010146
010246
000240
016001
006300
006300
011137
113737
042737
063700

22100

22200
22300 032412
22600 032414
22500 032416
22600 032420
22800 032424
22900 032426
23000 032430
23100 032434
23200 032442
23300 032450

PAGE 37

20-APR-78 04:21

OMO L

CZ_AIAD LAQO DMT PROG

DZ11 DRIVER ROUTINES

MACRO M1110

CILAIAO 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
%3?88

29200 033000
033000

000137
017060
000137
113761
012602
012601
012600

MACRO M1110
032476
025246
032476
001100

20-APR-78 04:21

024666

7$:

000006

8%:

9%:

000002

PAGE 37-1
JMP
MOV
JMP
MOvVB
MOV
MOV
MoV
RTI

;

THIS ROUTINE

SEQ 0086
1%
a(OMOUT
(RO) , CURADD (RQ)
1%
DXTMP,6(R1)
;PUT CHAR INTO XMIT BUFFER
(SP) +,R2
JRESTORE THE
(SP)+,R1
JREGISTERS THAT WE
(SP)+,R0
;DESTROYED

IS USED TO RESET ALL TERMINALS

RESETO: SENDALL #MSG103
Mov
#MSG103,R5

012705

037616

033010
29300 033014
033014
033020
033024
294600 033030
033030

004737

031700

012705

037677

004737

031700

012705

007500

033040
29500 033044

004737

031700

033044

033050

012705

037070

MOV

033054

005037

004737

031700

JSR

012705

034762

SENDALL #MSG10
MoV
#MSG10,RS

004737
004737

031700
034166

JSR
JSR

033004

033034

29600 033060
033060
033064

033070
29700 033074

29800 033100

005037

000207

001174

CLR

JSR
SENDALL
MOV
CLR
JSR
SENDALL
MoV
CLR

MODE

PC,SEND
#MSG108
#MSG108,R5
MODE
PC,SEND
#T12FIX
#T12FIX,R5
MODE

JSR
PC,SEND
SENDALL #MSG61
CLR

#MSG61,RS

MODE

PC,SEND

CLR

MODE

RTS

PC,SEND
PC,QUIET

JSET 6 LPI.
;BUILD SEND CALL USING MESSAGE ADDRESS
;sNOW SEND THE MESSAGE
JSET 10 CPI.
;BUILD SEND CALL USING MESSAGE ADDRESS

;NOW SEND THE MESSAGE
JRESET MARGINS
;BUILD SEND CALL USING MESSAGE ADDRESS
;NOW SEND THE MESSAGE
JRESET ALL TABS

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

;SET TABS EVERY 8
;BUILD SEND CALL USING MESSAGE ADDRESS
sJNOW SEND THE MESSAGE

CILAIAO 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
%%?88 033250

33200 033252
33300 033260
33400 033266

010546
010246
010146
016001
016105
100401
000000
010537
113737
042737
006300
006300
063700
006300
050560
042760
042705
032760
001405
042760
005237
122705

031546
000002
001200
001201
177770

001200
001200

001200

031560
107777
177400
000200

031560
020626

000200
001216
000023

020626

052760
146061

100200
025506

024546
000004

122705

000021

001010

000137

001013

000004
024546
024546

062760
026060

026206
000002
026206

026206
025746

34000 033322
34100 033330

016060
105260

026066
025626

34300 033336
34400 033340
34500 033344
34600 033346
34700 033352
34800 033354
34900 033356
35000 033360
35100 033362

000000
005737
001402
004777
012601
012602
012605
012600
000002

33600 033300
33700 033304
33800 033312

33900 033320

34200 033334

35200
35300
35400
35500

042760
052760
000137
010570
001003

001001

033340

001140

145566

026206

SEQ 0087

JHERE 1S THE M\IN RECIEVE INTERRUPT ROUTINE
RCINT: MOV
R5,=(SP)
MOV
R2,=(SP)
MOV
R1,-(SP)
MoV
DZCSR(RQ)
,R1
MOV
2(R1) RS
BMI
1%
HALT
;INVALID DATA FROM DZ 2 2 2 2 2 2 ?
1%:
MOV
R5,RCTMP
RCTMP+1 ,RCTMP
movs
8I1C
#177770,RCTMP
ASL
RO
ASL
RO
ADD
RCTMP,RO
ASL
RO
BIS
RS ,RECERR(RO)
;COPY ERROR BITS
BIC
#107777 ,RECERR(RD)
sDATA VALID,LINE NO.,DATA
BIC
#177400,R5
;CLEAR ERROR BITS
BIT
#8177 ,DZLINE (RO)
;IS UNIT SELECTED ?
BEQ
6%
BIC
#B1T7,DZLINE(RO)
;SELECT THE LINE
INC
uuT
;ADD TO UNIT COUNT
6%:
CMPB
#23,R5
BNE

BIS
BICB
7$:

025506
100000
000001

33500 033274

156061

033340

PAGE 38

9s%:
8%:

KBN:

JMP

(MPB

BNE

BISB
BIC
BIS
JMP

MOV
ADD
cMP
BNE

1%:

RCRTN:
2%:

7%
#100200,STOP(RC;SET STOP FLAG & XOFF FLAGS
TCRBIT(RO) ,4(R1)
;DISABLE TX INITR
RCRTN

#21,R5
KBN

TCRBIT(RO) ,4(R1)

.ENABLE TX INTR

#BIT15,STOP(RO)
#BITO,STOP(RO)
RCRTN
RS,aKBBUFI(RO)

;CLEAR STOP FLAG
SET XON FLAG

. IF NOT.

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

MOV
INCB

KBBUFB(RO)
,kKBBUF I (RO); YES IT WAS AT THE END. RESET IT
KBCNT (RO)
;TALLY UP ONE MORE ENTRY

HALT
TST
BEQ
JSR
MOV
Mov
MoV
MOV
RTI

RCRTN

;AND GO RETURN IF WE HAVE LESS THAN 377 OF THEM

HOOK
2%
PC,aHOOK
(SP)+ ,R1
(SP)+,R2
(SP)+,RS
(SP)+,RO

;FROM INTERRUPT CATCHER

BNE

2600 ENRTYS IS TOO MANY. LET THIS HALT SERVE AS WARN
;DOES ANOTHER ROUTINE WANT TO SEE CHARS IMMEDIATLY?
JNO. GO RETURN
;YES. GO OFF TO SOME MYSTERIOUS PLACE

CILAIAO LAOO DMT PROG

D211 DRIVER ROUTINES
35700
35800
35900
36000 033364

MACRO M1110

36100 033370
36200 033372
36300 033376

105760
001003
012705
000420

025626

36700 033414
36800 033422
36900 033430

062760
022760
001003

36400 033400
2500 033404
36600 033410

37000 033432

37100 033440

37200

20-APR-78 04:21

SEQ 0C88

:THIS 1S THE TAKE STUFF OUT OF THE KBFO BUFFER ROUTINE
;CALL USING A "'JSR PC'".
:IT RETURNS WITH R5 = THE KBRST ENTRY
KBOUT:
TSTBR
KBCNT (RO)
;ANYTHING THERE?

177777

005360
017005
042705

025626
026326
000400

000002
025746

026326
026326

016060

026066

026326

000207

PAGE 39

2%:

BNE
MOV
BR

DEC
MOV
BIC
ADD
(MP
BNE
MOV
RTS

18
;1 HOPE SO
#-1,RS
2%
KBCNT (RO)
;REDUCE COUNT OF # ENTRYS IN THERE
akKBBUFO(R0O)
,RS ;GET KBRST ENTRY
#400,RS
#2 ,KBBUFO(RO)
:BUMP POINTER TO NEXT ENTRY
#XBBUFE ,KBBUFO(R0O) ;REACHED THE END OF THE BUFFER SPACE?
2%
:IF NOT, JUST RETURN
KBBUFB(RO) ,KBBUFO(R0) ;YES, REACHED END. KESET POINTER TO THE BEGININ
PC
;RETURN

CILAIAQ LAQO DMT PROG

DZ11

DRIVER ROUTINES

MACRO M1110

20~-APR-78 04:21

37400
37500
37600
37700
37800
37900
38000

;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 ZND PART OF MESSAGE
YHE 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
38700 033460
033460
033462
033466
033472
033472
033474
033500
033504
033510
033512
033516
033520
033524
033526
033532
033536
033544
033550
033556
033562
033570
033572
033576
033602
033606
033612

PAGE 40

;CALL THIS SUBROUTINE WITH A JSR,PC
;TABLE FINISHED ?
(R2)
: TST
ANVENT
4%
BEQ
. YES BRANCH
SENDALL R3
;SEND FIRST PART

005712
001462
010305
005037
004737
012205
005037

004737
010405
005037
004737
004737
005000
013700
006300
162700
100424
016001
005037
013737
061237
013761
005237

022737
001362

000137
004737

062702
000137
000207

001174
031700

001174
031700
001174
031700
034166

001202
1%:

000002

031546
001126
001126
001130
001130
001126
000010

033520
034366
000002
033442

001130

2%:

000002

001126
3%:
A ¥

R3,RS
;BUILD SEND CALL USING MESSAGE ADDRESS
MOV
MODE
CLR
;NOW SEND THE MESSAGE
PC,SEND
JSR
SENDALL (R2)+
;SEND FROM TABLE
(R2)+,RS
MOV
;BUILD SEND CALL USING MESSAGE ADDRESS
MODE
CLR
PC,SEND
JSR
;NOW SEND THE MESSAGE
SENDALL R&
;SEND LAST PART
R4&,RS
;BUILD SEND CALL USING MESSAGE ADDRESS
MOV
MODE
CLR
;JNOW SEND THE MESSAGE
PC, SEND
JSR
JWAIT TILL DONE
PC.QUIET
JSR
RO
(LR
DZNUM, RO
MOV
JGET DZ NO.
RO
ASL
#2,R0O
SUB
3%
BM]
,R1
MOV
DZCSR(RO)
;GET DZ CSR ADDRESS
ANTMPO
CLR
ANTMPQ ,ANTMP1
MOV
(R2) ,ANTMP1
ADD
MOV
ANTMP1,2(R1)
ANTMPO
INC
#10,ANTMPO
(MP
BNE
2%
1%
JMP
PC,AWAIT
JSR
#2,R2
ADD
ANVENT
JMP
;DO FOR NEXT TABLE ENTRY
PC
RTS
;DONE ALL LINES ON ALL DZ'S. RETURN

SEQ 0089

CILAIAQ LAOO DMT PROG
DZ11 DRIVER ROUTINES

MACRO M1110

20-APR-78 04:21

41000
41100
41200

41700 033620
41800 033626
41900 033¢ 30
42000 033634
42100 03363¢
42200 033647
42300 033644

42400
42500
42600
42700
42800
42900
43000
43100
43200

43300 033646
43400 033654
43500 033660
43600 033666
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

010537
013737
0002460
005337
001374
005337
003366
000207

001146
001142

SEQ 0090

sSTALL ROUTINE
;CALL WITH JSR,PC
;THE LOCATION FOLLOWING THE CALL SHOULD CONTAIN
;THE AMOUNT OF MILLISECONDS TO HANG IN A NULL LOOP
JRETURN IS TO THE LOCATION +4 OF THE CALL

41300

41400
41500
41600 033614

PAGE 41

001144

MSTALL: MOV
;::
e 01Y)
:

NOP

DEC

B8NE
DEC
B8GT

001146

RTS

R5,LO0OPO
LOOPC.LOOP]

JGET # OF MILLISECONDS
JSETUP CONSTANTFOR CORRECT STALLING TIME

LOOP]

2%
LOOPO
1%
PC

;ONE MILLISECOND DOWN
:SOME MORE TO GO
;RETURN

;BINARY TO ASCII CONVERT SUBROUTINE.
;CALL USING A *JSR PC*

:DERIVES ASCII CHARACTERS REPRESENTING THE CONTENTS
. OF LgCATION 'TEMP', AND PUTS THEM INTO THE 6 BYTES POINTED TO
;BY R

:THIS IS A STOLLEN ROUTINE. IT IS ROTTENLY WRITEN

113765

006037
113765
006037
006037
113765

006037
113765

006037
006037
113765

006037
113715

142715
142765
142765
142765
142765
142765
152715
152765
152765
152765
152765
152765
000207

BIOCT:

MOVB

001134

000005

001135

000002

MOVB

001134

000004

MOVB

001135

000001

MOVB

001134
001134
001135

000003

MOVB
ROR
MOVB

001134
001134
001134

001134

001134
001134

000376
000370
000370
000370
000370
000370
000060
000060
000060
000060
000060
000060

000001
000002
000003
000004
000005
000001
000002
(00003
000004
000005

ROR

TEMP,5(RS)
TEMP

TEMP+1,2(RS)

ROR
ROR

TEMP
TEMP

ROR

TEMP

ROR
ROR

TEMP
TEMP

8I(B
8I1CB
BI(B
BI(B
8ICR
B8I(CB
8ls8
8I1S8
8ls8
81SB
8I1S8B
BISR
RTS

TEMP,4(RS)
TEMP+1,1(RS)
TEMP, 3(RS)
TEMP
TEMP+1, (RS)

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

s YEAH

CZLAIAO LAOO DMT PROG

0211 DRIVER ROUTINES

MACRO M1110

20-APR-78 04:21

46100

46200

JCALL WITH A JSR SP
,WROTE

46500 034052
46600 034054
46700 034056
46800 034062
46900 034066

010346
010446
012706
112725
100005

034154

47100 034074

112763

000235

47000 034070

47200 034102
47300 034106
476400 034110
47500 034114
47600 034116
47700 034120
47800 034124
47900 034126
48000 034130
48100 034136
48200 034142
48300 034146
48400 034150
48500 034152
48600

48700
48800 034154

48900 034156
49000 034160
49100 034162

49200 034164
49300
49400

BIDEC:

000260

005137

001134

112713
105213
161437
100374
005203
062437
005714
001365
062737
113713
01263
012604
012603

000257

50000 034174
50100 034200
50200 034202
50300 034204
50400 034206
50500 034210
50600 034214
50700 034216
50800 034222
50900 034224
034224
034230
000 034234
100 034240
200 034242
300 034244
ggg 034246

177777

001734

000260
CU1134
001134

THIS MYSELF.

1%:
’%:

001134

000206

ITS WONDERFULL.

MOV
MOV
MOV
MOvVB
BPL

R3,~(SP)
R4, ~(SP)
#BIDECC,RS
#260, (R5) ¢
18

;SAVE R3
JALSO R4 WHICH WE WILL USE
JPOINT R4 AT SOME CONSTANTS
;MAKE THE FIRTS DIGIT OF THE NUMBER 0
;1S THE # POSITIVE?

MOVB

#235,-1(R3)

JAND CHANGE THAT 1ST DIGIT TO A ="'

RTS

001134

MovB
IN(B
SUB
BPL
INC
ADD
TST
BNE
ADD
MOvB
MOV
MOV
MOV

TEMP

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

JNO. MAKE IT SO

JINIT A DIGIT
JADD 1 TO THE DIGIT
JKEEP SUBTRACTING CONSTANT TILL IT GOES NEGATIVE
;JIF WE ARE STILL POSITIVE, DO IT AGAIN
JNO WE WENT NEGATIVE. POINT AT THE NEXT DIGIT
JADD BACK THE CONSTANT, AND GO ON TO THE NEXT (ONSTA
:DONE THE 1ST 5 DIGITS YET?
;IF NOT, GO BACK AND DO ANOTHER
JYES. ONE REMAINS TO BE DONE
JSET THE LAST DIGIT NOW.
JRESTORE EVERYTHING
s THAT WE USED TO
;1TS ORIGINAL VALUE
JAND RETURN
.

;CONSTANTS
BIDECC: 10000.

023420
001750
000144
000012
000000

1000.
100.
10

23288

49700 034166
49800 034170
49900 034172

SEQ 0091

;JBINARY TO DEC.MAL CONVERT ROUTINE

46300
46400

PAGE 42

; WAIT FOR MESSAGE TO FINISH PRINTING
010046
010146
010546

QUIET:

013700
006300
005001
020100
001414
005761
100403
062701
000770

001152

012705

000010

004737
000137
012605
012601
012600
000207

RE
2%:
024046
000002

3%:

4%:

033614

034202

5%:

MOV
MOV
MOV

MOV
ASL
CLR
cMpP
BEQ
TST
BMI]
ADD
BR
STALL
MOV
JSR
IMP
Mov
MoV
MOV
RTS

RO,-(SP)
R1,-(SP)
RS,-(SP)

NUML IN,RO
RO
R1
R1,RO
5%
ACTIVE (R1)
4%
#2,R1
2%
#10
#10,R5
PC,MSTALL
1%
(SP)+,R5
(SP)+,R1
(SP)+,R0
PC

;GET NO OF LINES

;IF DONE GO TO 5
;STILL WORKING ?

sSTILL SET -BRANCH
JTEST NEXT LINE
;DELAY A WHILE
;SETUP STALL TIME CONSTANT

CZLAIAQ LAOO DMT PROG
DZ11 DRIVER ROUTINES

MACRO M1110

20-APR-78 04:21

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

010046
010146
013700
006300
162700
100404
005060
000137
012737

001152
000002

001140

012705
004737
012737
012601
012600

000764
033614
000000

001140

53600 034332
53700 034336
53800 034340
53900 034344
54000 034346
54100 034354
564200 034356
54300 034364
54400
54500
54600
54700
54800 034366
54900 034374
55000 034402
55100 034406
55200 034410
22288 034414

020527
001007
022705
001407
112760
000403
112760
000207

000023

012737
012737
005737
001375
005037
000207

55500 034416

042705

55600 034422
55700 034426
55800 034430
55900 034434
56000 034440
56100
56200
56300

SEQ 0092

sTHIS IS THE REPLY SUBROUTINE
JCALL WITH A JSR PC

024426
034262
034332

ggégg 034330

PAGE 43

000207

122705
001002
005037
004737
000207

;1T 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)
s SAVE REGS WE USE
MOV
NUML IN,RO
ASL
RO
1%:
SUB
#2 RO
8MI]
2%
CLR
REPTBL (R0)
JMP
1%
2%:
MoV
#9% , HOOK
JPUT CLAWS INTO INPUT ROUTINE
STALL
#500.
JWAIT .5 SECONDS
MOV
#500. ,R5
sSETUP STALL TIME CONSTANT
JSR
PC.MSTALL
MOV
#0,HOOK
. TAKE HOOK OUT OF INPUT ROUTINE
MOV
(SP)+,R1
MOV
(SP)+,R0
9%:

000021
000001

024427

000001

024426

000001
034416
001136

001136
001140

001140

2s:
4%:

JRETURN

cMP
BNE
CMP
BEQ
MOvB
BR
MOvB
RTS

RS,#23
3%
#21,R5
4%
#1 ,REPTBL+1(RO)
4%
#1,REPTBL(RO)
PC

;1S THE (CHAR XOF?
:NO.
;IS THE CHAR XON?
;JYES. LET RECIEVE ROUTINE HANDLE IT
;YES. SET HIGH BYTE
;SET LOW BYTE INDICATING NOT XON OR XOF

;THIS IS THE SUBROUTINE THAT WAITS FOR A CARRIAGE RETURN
AWAIT:
MOV
#1 _NOTYET
JSET NO CR YET SWITCH
MOV
#2% ,HOOK
sPUT HOOK INTO RECIEVE ROUTINE SO WE CAN TEST
1%:
TST
NOTYET
;SEEN A CARRIAGE RETURN YET?
BNE
1%
;NO, KEEP 1.00KING
CLR
HOOK
RTS
PC
;RETURN

177600

2%:

001136
033364

3$:

000015

RTS

BIC

CMPB
BNE
CLR
JSR
RTS

#177600,R5

#15,R5
3%
NOTYET
PC,KBOUT
PC

JREMOVE JUNK FROM DATA BITS

;CARRIAGE RETURN ?
:NO.
;YES. MAKE THE SWITCH REFLECT
;REMOVE (HAR FROM BUFFER

CZLAJAO LAQO DMT PROG

SYSTEM MESSAGES
100
200

MACRO M1110

300 034442
(00 034473
500 034552

012
124
063

015
110
060

1200 034760

015

000

600 034624
700 034643
800 034677
900 034741
1000 034746
1100 034756

1300 034762
1400 034777
1500 035020

1600 035036
1700 035050
1800 035071

1900 035" 13
2000 035¢01
2100 035241

2200 035267
2300 035310
2400 035340
2500 035366
2600 035414
2700 035443
2800 035447
2900 035472
3000 035546
3100 035573

012
012
116
033
033
010

033
064
073
073
120
120

110
102
104

015
015
117
133
133
000

133
060
070
061
101
114

111
101
101

20-APR-78 04:21

103
m
060
105
105
040
060
077

070
073
070

036263
036270
036275
036302
036307
036314
036321
036326
036333

130
130
130
130
130
130
130
130
130
000003

4700

4800

on
071
on
0N
011
on
011
011
011

.BYTE
.BYTE
.BYTE

L.ASCIZ

33,133,70.73.61,66.73,62,64,73,63,62,73
64,60,73,64,70,73,65,66,73,66,64,73,67,62.73,70,60
73,70,70,73,71.66,73,61,60,664,73,61,61,62
73,61,62,60,73,61,62,70,165,0

7110/
/NULSOHSTXETXEOTENQACKBELBS HT LF /

060
114

000011

MSG10:

<12><15>/END OF PASS /
<12><15>/END OF PASS 000 TEST 00/<12><15>
/NO RESPONSE TO ATTRIBUTE PROMPT/<12><15>
33,133,60,143,0 ;TERMINAL ATTRIBUTE PROMPT
33,133,77.,63.73.60,143,0.LA00 DEV ATTRIBUTE RESPONSE
<10>

.ASCIZ
.ASCI]

061
125

4500 036263
4600

<15>

.ASCIZ
.ASCIZ
.ASCIZ
.BYTE
.BYTE
L.ASCIZ

/7 8BIT AND SPACE./
/CHAR CODE ECHO TEST 21/<12><15>
/TYPFE DELETE TO EXIT/<1
<15
/7 BIT AND ODD PARITY./
/7 BIT AND EVEN PARITY./
/%/<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 /

061
116

124
13
060
102
125
133
122
122

MSGO9:

MSGO1:
MSG03:
MSGO&4:
MSGOS5:
MSGO6:
MSGO8:

.ASCIZ
.ASCII
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

3500 035743
3600 035747

126
123
063
040
102
033
105
105

<12><15>/CZLAIAQ 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>

MSG17:
MSG18:
MSG19:
MSG20:
MSG21:
MSG22:
MSG2S:
MSG26:
MSG27:
MSG28:
MSG29:
MSG30:

124
104
124

3200 035627
3300 035636

3700 036010
3800 036051
3900 036112
4000 036116
4100 036126
4200 036157
4300 036170
4400 036225

MSGO0: .ASCII
JASCII
\ASCIZ

BYTE
.ASCIZ
_ASCIZ

102
101
120
102
102
015
116
122
125
122
060
105

102

.SBTTL SYSTEM MESSAGES
NLIST BEX

MSG12:
MSG13:

040
10
131
40
040
012
117
125
101
117
060
114

040

SEQ 0093

062
122
105

067
103
124
067
067
044
130
124
102
110
060
120

3400 035660

PAGE 44

101

040
116
060
101
106
061
122
122

130
130
130
130
130
130
130
130
130

MSG14:
MSG15:
MSG16:

MSG31:

MSG32:
MSG33:

MSG35:
MSG36:
MSG37:
msc38:
MSG39:
MSG40:
MSG41:

/PARITY TEST 24/<12><15>
/PLEASE SETUP FOR /

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

.ASCIZ

JASCII
JASCI]
.ASCIZ
.ASCIZ
.ASCIZ
.BYTE
.ASCIZ
.ASCIZ

LREPT 9.

7/ BAUD./<12><15>/ HIT RETURN WHEH DONE FOR ALL TERMINALS./<12><15>
/VT FF CR SO SI DLEXONDC2XOFDC4NAK/
/SYNETBCANEM SUBESCFS GS RS US SP /
7300/
/ BAUD/<12><15>
/BUFFER OVERRUN TEST 12/<12><15>
33,133,61,73,61,63,62.165,0
/ERROR » XON NEVER RECIEVED/<12><15>
/ERROR * XOFF NEVER RECIEVED/<12><15>

JASCIT

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

JASCIT
LASCIT
ASCII
JASCII
JASCILD
JASCIT
LASCIT
JASCIT
JASCIT
.REPT 3

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

.ENDR

7400
7500 037164

037221
037224
037231
037273
037275
037322
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

7600
7700
7800
7900
8000
8100
8200

PAGE 44-1

MSG42:
MSG43:
MSG44:
MSG4S5:
MSG47:
MSG60:
MSG61:
MSG62:
MSG63:

:
MSG64
MSG6S5:

011

MSG66:
:
MSG67
MSG68:
MSG70:
MSG71:
MSG72:
MSG73:
MSG75:
MSG77:

MSG78:
MSG79:
MSG80:
MSG81:
MSG82:
MSG83:
MSG84:
MSG85:

MSG88:
MSG89:
MSG90:
MSG91:
MSG92:

MSG93:
MSG9%:
MSG9S5:
MSG96:

—h

——

—
—
—_—

OO
L) -

N
-

—_—

b N

—

LYY

—

OO
- OO

LYY
%
.

%
.

—b
b

\JI1s
o

A == —

NOO

JEr QU
WY

—h

—

— o

——

OO0

—

— b

OO
—O00

LSRN

—
—

—

[o]e]

—

.
-

—_—

—

oo
L) -«

[le)
LY -

b
-

—

b
—

OO
OO

]

—

)

—t

)
-

——

OO
OO
AOQO

N
— —
VOO
AN
s

—

—_

—

[eole)

—_—

Dk N

V =

.BYTE
.BYTE
.ASCIZ
.ASCIZ

.ENDR
LASCII
BYTE
.BYTE
LASCII
.BYTE
.BYTE
LASCII

040

LASCII
.BYTE

SEQ 0094

036340
036364
036376
036410
036434
036446
036460
036504
036516
5300 036530
5600 036535
5500 036571
5600 036670
5700 037000
5800 037026
5900 037031
6000 037070
6100 037073
6200 037075
6300 037100
6400 037102
6500 037104
6600 037106
6700 037110
6800 037114
6900 037117
7000 37123
7100 037130
7200 037154
7300 037157

20-APR-78 04:21

4900
5000
5100
5200

MACRO M1110

=00

CZLAIAO LAOO DMT PROG
SYSTEM MESSAGES

/TEST 00 - DATA PATH TEST/<12><15><12>

/tUfiUtUtUtUtUtUtUtUnUtUtUtUnUtUtUtUtUtUtUtUtU«UtUtUtUtUtUtUtU/(12)(1
.ASCIZ
/TEXT 02 = NON PRINTING CHARACTER TEXT. THE NEXT LINE SHOULD BE BLAN
LASCIZ
2.6,20,23,26,31,35,177,21,24,27,32,36,22,25,30,34,37,21,12.,15.0
.BYTE
LASCIZ /X /
/TEST 07 HORIZONTAL TAB TEST/<12><15>
.ASCI2

LASCIZ
LASCIZ
.ASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
.BYTE
LASCIZ

+ASCIZ

.ASCIZ
LASCIZ
LASCIZ
LASCIZ
.ASCIZ
LASCIZ
LASCIZ
.ASCIZ
.ASCIZ
LASCIZ
.ASCI2
.ASCII
.ASCI1I
.ASCI1I
.ASCII
.ASCIZ
.ASCIZ
LASCIZ
LASCIZ
.ASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ

<33>/2/
/./
<33>/H/
/v/
<11
<15>
/X/

12,15.,11.0

/1?7 /
/7
/
/?
/

<12><15>/POWER FAIL TRAP/<12><15>

<12><15>
<12><12><12><15>

/;PACE - BACKSPACE TEST 05/<12><15><12>
4

<10><10>/\/<10>

;A&L PRINTABLE CHARACTERS TESTO1/<12><15>

/DOT MATRIX TEST 03/<12><15>
JIH*AS /<12><15>
1111/<1%>
111
/121
HHHH/<15>
/H HH HHH
x%x

xxx

/N RN

/$ 3%

$33

xxan/<15>

NN/ <15>

$383/<12><15>

<12><15>/THIS LINE PRINTED AT /

10900 037704
11000 037737
11100 037770
11200 040015
11300 040030
11400 040043
11500 040045
11600 040101
11700 040106
11800 040112
11900 040141
12000 040176
1210€ 040214
12200 040226
12300 040276
12400 040326
12500 040365

12600 040416
12700 040452
12800 040514

12900 040550
13000 040565
13100 040600
13200 040626
13300 040641
13400 040652
13500 040674
13600 040716
13700 040722

13800 040747
13900 040753
14000 040764
14100 040776
14200 041041
14300 041047
14400 041060
14500 041073

14600 041077
14700 041130
14800 041160
14900 041166
15000 041202
15100 041215
15200 041226
15300 041232

110
126
123
033
033
075
105
033
040
120
115
055
055
123
120
012
054

120
120
040

124
012
111
124
120
040
123
077
040

064
040
040
122
124
122

060
077

1M
115
123
102
114
104
104
040

117
105
105
133
133
000
122
133
062
122
125
055
055
105
122

015
040

122
122
124
060
060

122
066
040
m
14
055
055
124
105

104
102

105
105
040

MSG145:
MSG142:
MSG143:

012
103
105
105
101
105

126
123
10%
110
124
077
110
015
124
123
123
102
124

MSG148:
MSG147:
MSG150:
MSG152:
MSG156:
MSG149:
MSG151:
MSG153:
MSG154:
MSG155:
MSG157:
MSG158:
MSG159:

061
032

116
m
120
101
11
105
012
000

131
105

062
015

126
101
101
103
116
114
015

MSG144:
MSG146:

MSG160:
MSG162:

MSG163:
MSG164:
MSG165:
MSG166:
MSG167:
MSG168:
MSG169:
MSG170:

.ASCII
LASCII
.ASCI]
LASCIZ
LASCIZ
.ASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
.ASCIZ
.ASCIZ
LASCIZ
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
LASCIZ
LASCIZ
LASCIZ
.ASCI2
LASCIZ
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
LASCIZ
.ASCIZ
LASCIZ

3 .1
5 .1
33713306 2 .
4

<12><15>/ABCDEF

8
8
8
&
&

4 .1

3 .1
4 .1

MOOOOOOOO

’

NNNNNOONON

4 .1

ORI NNN

=g
b
b

.BYTE
.BYTE
LASCIZ
.BYTE
LASCIZ

rONONONONONON

.BYTE
.BYTE
.BYTE

.BYTE

MSG109:
MSG110: LASCIZ
MSG111: LASCIZ
MSG113: .BYTE
MSG114: .BYTE
MSG115: .ASCIZ
MSG116: .ASCIZ
MSG117: .BYTE
MSG118: LASCIZ
MSG120: LASCIZ
MSG123: ASCIZ
MSG124: .ASCIZ
MSG125: LASCIZ
MSG140: LASCII

122
122
072

122
015
116
105
122
122
105
077
114

LASCIZ
LASCIZ
.BYTE

MSG97:
MSG98:
MSG99:
MSG100:
MSG101:
MSG102:
MSG103:
MSG104:
MSG105:
MSG106:
MSG107:
MSG108:

040
1M
064
063
062
064
061
063
065
062
101
061

SEQ 0095

070
120
133
133
133
133
133
133
133
133
015
133

PAGE 44-2

—

040
114
033
033
033
033
033
033
033
033
012
033

20-APR-78 04:21

~
N NNN
N NN
WWNWWNWNINWNN

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

MACRO M1110

NN NN NN
S N
NN WNINN NN

CZLAIAO LAOO DMT PROG

SYSTEM MESSAGES

GHI JKLMNOPQRSTUVWXYZ/

33,133.61,167.0
JHORIZONTAL PITCH TEST 04/<12><15>
JVERTICAL PITCH TEST 13/<12><15>
/SE1 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>
;3é1;3.66.172.0

/PRINTER BELL TEST 14/<12><15>

;HULTIPLE LINS fiEED 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/
/?/<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><1S>

15800
15900
16000
16100
16200
16300

16400
16500
16600
16700
16800
16900
17000
17100
17200
17300
17400
17500
17600
17700
17800
17900
8000

041300
041313
041333
041374
041376
041403

0414662
041527
041541
041553
041565
041577
041611
041623
041635
041647
041661
041673
041722
041750
041760
041770
042000

00 042010
8200 042020

18200 042030
18400
18500
18600
18700
18800

0420490
042050
042060
042070
042100

19000
19100
19200
19300
19400
19500

042125
042152
042164
042212
042244
042300

18900 042113

106

060

060
105

1M1
106
104
103
102
10
101
102
104
105
103
040
124

055
055
055
055
055
055
055
055
055
055
055
055

122
124

077
105
116

015
015

19600 042336

19700
19800 042370

000041
000061
000101
000114

19900 042430
20000 042470
20100 042516
20200 042546
20300 042576

20400 042626
20500 042652
20600

20-APR-78 04:21
062
062
065
067
061

041234
041244
041255
041266

—lo-fl—d—l—l—l—l—l—l—l-—l—‘—d—l—l—l—l—l—d—l—l—l—l—l—l—‘
o =2 NN IWNNNWWNIWNIN N WN NN = NN =2 = 22N 0O
JV,]
NN NN WWWWNINIWNNINWAN
NG (@Yo Yo Yo Yo Yo Yo Yololelele

15400
15500
15600
15700

MACRO M1110

000130

000171
001220

000144
000160
000172

015
105
105

000042
000062
000102
000115
000131
000145
000161
000173

PAGE 44=3

SEQ 0096

MSG180:
MSG181:
MSG182:

.BYTE
.BYTE
.BYTE
MSG183: .BYTE
MSG184: .BYTE
MSG270: LASCIZ
MSG280: .ASCIZ
MSG281: LASCIZ
MSG271: .ASCIZ
MSG303: LASCIZ
MSG304: .ASCI12
MSG308: .ASCIZ
MSG309: .ASCIZ
MSG310: .ASCI2Z
MSG311: LASCIZ
MSG312: LASCIZ
MSG313: LASCIZ
MSG314: LASCIZ
MSG315: .ASCIZ
MSG316: .ASCIZ
MSG317: ASCIZ
MSG318: .ASCIZ
MSG320: LASCIZ
MSG321: .ASCII
LASCII
LASCII
.ASCII
MSG322: .ASCII
.ASCII
MSG323: .ASCII
LASCII
MSG324: LASCII
MSG325: LASCII
MSG326: LASCII
LASCIZ
MSGK1:
.ASCIZ
MSGK?2:
ASCIZ
MSGK3:
LASCIZ
MSGK4:
LASCIZ
MSGKS:
LASCIZ
MSGK6:
LASCIZ
MSGS1:
LASCIZ
MSGS2:
.ASC12Z
.EVEN
: .WORD
PCTABL
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.END

.WORD
START

67 70 73 61, 60.

3.61,60,60,73,61,6
.163,0
E TEST #15/<12><15>
;L?OO DYNAMIC EXERCISOR TEST 16/<12><15>
—_e

CZLAIAO LAQO DMT PROG

SYSTEM MESSAGES

/ 00 /
<12><15>/ENTER SETUP MODE,

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) /<12><15>
/V=A(CR) /<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>
[[~==== /7<12><15>
[[===—- /<12><15>
/[===—- /<12><15>

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

[[===== /7€12><15>

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

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

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

/7?2 7 2 2/<A2><A15
(S) /<12><15>
<12><15>/ENTER COMMAND
/RUN INTERVENTION TEST ?2/<12><15>
<007><12><15>/NO TERMINALS SELECTED/<007><12><15>
<12><15>/ERROR * INVALID TEST NO./<12><15><07>
<12><15>/ERROR * PMT CONFLICT/<12><15><07>

40,41,42,63,44,45,46,47,50,51,52,53,54,55,56.57
60.61.62.63.64.65.66.67.70.71.72.73.764.75.76.77

100,101.102.10%.104,105.106.,107.110.111,112

113.114.115.116.117.120.121.122.123.124.125.126
127.130°131.132.133.134.135.136.137.140.141.142
143°144.145.146.147.150.151.152.153.154.155.156
157°160.161.162.163.164.165.166.167.170
17212172°173.174.175.176

20-APR-78 04:21

PAGE 44-4

CZLAIAO LAOO DMT PROG

MACRO M1110

ACTOVC 000041
ACTIVE 024046
ANTMPO 001126
ANTMPT1 001130
ANTMP?2 001132
ANVENT 033442
ANYWAY 004104
APTHDR 001000
AWAIT
034366
BIDEC
034052
BIDECC 034154
BIOCT
033646
BITO = 000001
BIT1 = 000002
BIT10 = 002000
8IT11 = 004000
BIT12 = 010000
BIT13 = 020000
BIT14 = 040000
BIT1S = 100000
BIT2 = 000004
BIT3 = 000010
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
coM1
001154
cam2
001156
COUNT
010070

END22
EOP
EOPT
ERROR
ERRORT
FLAG21
GETPN
GETSWS
GETTST
GO
HOOK
INIT
INITT
INITZ2
INIT3
INIT4
INITS
INIT6
ISEQ
KBBUF
KBBUFB
KBBUFE
KBBUF1
KBBUFO
KBCNT
KBN
KBOUT
KEYEND
KEYTBL
KSTART
LOOPC
LOOPI
LOOPO
LSEQ
MODCON
MODE
MSGADR
MSGE
MSGK1

014370
003634
003510
001110
020346
016302
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
001104
020604
042113

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

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
060416
040565
040626
040600
040716
035201
040641
040722
040652
040747
040753

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
MSG322
MSG323
MSG324

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
042010
042030
042050

MSG63
MSGé4
MSG65
MSG66
MSG67
MSG68
MSG70
MSG71
MSG72
mMsG73
MSG75
MSG77
MSG78
MSG79
MSG80
MSG81
MSG82
MSG83
MSG84
MSG85
MSGB8
MSG89
MSG90
MSG91
MSG92
MSG93
MSG96
MSG9S
MSG96
MSG97
MSG98
MSG99
MSTALL
NOTYET
NUMCHK
NUMLIN
ONLINE
PASSNO
PCTABL

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
001204
001124
042370

DZCON - 000005
DZCSR
031546
DZLINE 020626
DZINUM
001202
DZRINT 032330
DZTINT 032246
DZVECT 001076
EBUF
020574

MSGO3
MSGO4
MSGOS
MSGO6
MSGO8
MSGO9
MSG10
MSG100

034643
034677
034747
034746
034756
034760
034762
037577

MSG165
MSG166
MSG167
MSG168
MSG169
MSG17
MSG170
MSG18

041160
041166
041202
041215
041226
035267
041232
035310

MSG42
MSG43
MSG44
MSG45
MSG47
MSG60
MSG61
MSG62

036535
036571
036670
037000
037026
037031
037070
037073

REAL
RECERR
REPLY
REPTBL
RESETO
RSEQ
SCAN
SEND

003334
031560
034250
024426
033000
002754
004216
031700

SYMBOL TABLE

CSEND
020304
CTLTBL 014304
CURADD 024666
CURREP 024166
CURTER 024306
DLRVEC= 000060
DL TVEC= 000064
DXxTMP
001100
D.ADDR 001074
DZCUMB 020746

MSGKZ2
MSGK3
MSGKé&
MSGKS
MSGK6
MSGS1
MSGS2
MSGTYP
MSGOO
MSGOT

042125
042152
042164
042212
042244
042300
042336
001102
034442
034624

MSG155
MSG156
MSG157
MSG158
MSG159
MSG16
MSG160
MSG162
MSG163
MSG164

040764
040674
040776
0410641
041047
035241
041060
041073
041077
041130

SEQ 0097

MSG325
MSG326
MSG33
MSG35
MSG36
MSG37
MSG38
MSG39
MSG40
MSG41

042060
042070
035747
036112
036116
036126
036157
036170
036225
036263

PFAIL
000024
PMODE
001176
PNTR
001206
PRIV = 000000
PRI4 = 000200
PRI7 = 000340
QUIET
034166
RCINT
033102
RCRTN
033340
RCTMP
001200

CZLAJAOD LAOO DMT PROG

SYMBOL

TABLE

SENDTM
SEND1
StQ
SEQMS

001106
031762
001112
002342
002316
014314
001116
001120
001220
024546
001122
003754
010066
006372
006402
012140
012154
010050
015622

SEQ8

SHITBL
SO
SRCONT
START
STOP

SWR
SWRTST
TAB
TABLH
TABLHF
TABLV
TABLVF

TABL13
TABL 24
TAB24B

TBL12A

T8L 128
TBL12C

TBL31A

T8L31C
T8L31D
TBL31E
TBL31F
TBL31G
TCRBIT
TEMP
TEST

TESTOO
TESTO1
TESTO2
TESTO3
TESTO4
TESTOS
TESTO6
TESTO?7
TEST10

015650

007454

042666
000000
ERRORS DETECTED:
.

MACRO M1110

TEST1

ABS.

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

VIRTUAL MEMORY USED:

( 18 PAGES)
4382 WORDS
( 22 PAGES)

5956 WORDS
DYNAMIT MEMORY:
00:01:14
ELAPSED TIME:

CZLAIA.BIN,CZLAIA.LST/=SP-CZLAIA.P11

PAGE 44-5
T12F IX

TEST12
TEST13

T17A
T178

TEST14

T21E
T 30BUF
uut
VALID
WIDTH
WORK
WORK1
WORK
2
WORK
3
WSEQ
Wl
w2
w3

TEST15
TEST16
TEST17
TEST20
TEST21
TEST22
TKBUF
TMPTST

TRAP4

TSTMP
TSTTBL
TSTTYP

TTYIN

TXINT

TO3TBL
1037182
T11A
1118

SEQ 0098

006366
006370

$BASE
$CPU
$DEVCT
$DEVM

007500
012134
012136
013772
016320
001216
003302
001172
001160
001162
001164
001166
002336
007512
007514
007516
000012
001070
001042
001024
001072

SETABL
SETEND
SFATAL
SMAIL
SMEMAD
SMEMAR

SMEMA2
$MEMA3
SMEMAS
SMEMR2
SMEMR3

SMEMRS
$MSGAD
$MSGL
$PASNO
$SWREG
$TSTNO
SUNIT
SVECT]

SVECT?Z

001034
001074
001016
001014
001044

001046
001050

001054

001060
001052
001056
001062
001030
001032
001022
001036
001020
001026
001064
001066