Digital PDFs

AH-E150B-MC

September 2000

103 pages

Original

59MB

view download

OCR Version

82MB

view download

Document:	CZLAIB0 LA00,34,38 LA00 DMT DIAG SEP 1979 gray
Order Number:	AH-E150B-MC
Revision:	000
Pages:	103
Original Filename:	CZLAIB0__LA00,34,38__LA00_DMT_DIAG__AH-E150B-MC__SEP_1979_gray.pdf

OCR Text

LA0O,34,38

CZLAIBO

corment: e DN
FICHE 1 OF 1

JUAIBO LAOQ, LA34 DMT PROG

MACRO M1110

8
PAGE 3

26-FEB-79 14:37

SEG 0001

IDENT
IF ICATION

PRODUCT

CODE:

AC-E 149B-MC

PRODUCT NAME:

CZLAIBO

DATE CREATED:

23 FEB 1979

MAINTAINER

DIAGNOSTIC ENGINEERING

AUTHOR

RALPH A.

LAGO,LA34,LA38 DMT DIAG

SCHAUBER

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

THAT MAY

APPEAR IN THIS DOCUMENT.
THE SOF TWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER
A
LICENSE
AND
MAY
ONLY BE USED OR COPIED IN ACCORDANCE
WITH THE TERMS OF SUCH LICENSE.

DIGITAL EQUIPMENT CORPORATION ASSUMES
NO RESPONSIBILITY
FOR
THE
USE
OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT
THAT

IS NOT SUPPLIED BY DIGITAL.

RATION

1978, 1979 BY DIGITAL EQUIPMENT

CORPO-

(ZLAIBO LAQO,

LA34 DMT

PROG

MACRO M1110

26~FEB-79 14:37

£
PAGE 4

3
SEQ 0002

100

200
300

PAGE 2

400

500
600
700
800
900

1000
1100
1200
1300
1400

1500
1600
1700
1800
1900

EDIT HISTORY

REV BO

23~FEB=79

RALPH SCHAUBER

(HANGED QUIET SUBROUTINE TO INCLUDE TIMEOUT IF XON IS
NOT
RECIEVED
WITHIN
TEN
SECONDS.
ALSO CHANGED SEND ROUTINE
TIMEOUT FROM TWENTY TO TEN SECONDS.
INCLUDED ERROR REPORT CALLS IN TIMEOUT ROUTINES TO IDENTI-

FY FAILING LINE NUMBERS.

LIFE

TEST NOW RESETS THE PASS NO.

TO O ON STARTUP.

(ZLAIBO LAOO, LA34 DMT PROG

MACRO M1110

26-FEB-79 14:37

D
PAGE 5

SEQ@ 0003

100

200
300

PAGE 3

400
500

600

TABLE

700
800
900
1000
1100
1200
1300
1400
1500
1600

CONTENTS

ABSTRACT
1.1 FUNCTIONAL DESCRIPTION
1.2 INTENDED USERS
REQUIREMENTS

2.1 EQUIPMENT
2 .2 RELATED PROGRAMS
2 .3 TERMINAL CONFIGURATION

1700
1800
1900

L OADING AND INITIALIZATION
3 1 STARTING ADDRESSES

2000
2100
2200

3 .2 MODIFICATIONS TO PROGRAM
3 .3 EXECUTION TIME

2300

C ONTROL AND TEST SELECTION
1 SWITCH REGISTER CONTROL

4 .2

CONSOLE CONTROL

4.2.7

COMMANDS

TEST GROUPS

5.1 TERMINAL TESTS
5.2 INTERVENTION TESTS
5.3 EXERCISORS

6.0

TEST DESCRIPTIONS
6.1
TESTO0
DATA PATHS TEST
6.2
TESTO1
PRINTABLE CHARACTERS TEST
6.3 TESTO
NONPRINTABLE CHARACTERS TEST
6.4
TESTO
DOT MATRIX TEST
6.5
TESTO4
HORIZONTAL PITCH TEST

6.6
6.7

6.8
6.9
6.10
6.11
6.12
6.13
6.14
6.15
6.16
6.17
6.18
6. 19

TESTO5
TESTO06
TESTO07
TEST10
TEST1]
TEST12
TEST13
TEST14
TEST15
TEST16
TEST17
TEST20
TESTZ]
TESTed

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

(ZLAIBO LAQU, LA34 DMT PROG

MACRO M1110

26-FEB-79 14:37

E
PAGE 6

SEQ (0004
PAGE

1.0

ABSTRACT
THIS PROGRAM IS A FUNCTIONAL

NAL.

CAN

TEST

TEST OF

THE LAOO,LA3%4,LA38

UP TO 40 TERMINALS AT A TIME,

TERMI-

INTERFACED

THROUGH A DZ11-A/E ASYNCRONOUS MULTIPLEXERS.
THIS PROGRAM WAS
DESIGNED
TO_TEST ALL OF THE FUNCTIONAL CHARACTERISTICS OF THE

LAOO,LA34,LA38 TERMINAL IN A DMT GR PMT ENVIORNMENT.
1.7

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
g;?ggisozglNTER FUNCTION TESTS, MANUAL INTERVENTION TESTS, AND

1.2 INTENDED USERS
THIS PROGRAM WAS DESIGNED TO
TEST
EVERY
FUNCTIONAL
CHARACTERISTIC
OF
THE LAOO,LA34,LA38 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
3600

2.0

THIS PROGRAM IN THOSE AREAS IS NOT RECOMMENDED.

REQUIREMENTS

3800

2.1 EQUIPMENT

4000

THIS PROGRAM WILL REQUIRE A PDP-11 PROCESSOR, WITH 16K OF MEMORY.
FOR EACH EIGHT TERMINALS TO BE TESTED A DZ11-A,E IS REQUIRED ALONG WITH ONE H317-E DISTRIBUTION PANNEL FOR EACH SIX-

4100
4200
4300

4400
4500
4€00
4700

TEEN TERMINALS UNDER TEST.
A HARDWARE SWITCH REGISTER IS SUPPORTED, BUT IS NOT REQUIRED.
IF PROGRAM CONTROL IS TO BE
VIA
CONSOLE TERMINAL THEN A TERMINAL AND INTERFACE AT THE STANDARD

ADDRESS & VECTOR ARE REQUIRED.

4800

(ZLAIBO LAOC, LA3% DMT PROG

MACRO M1110

26~FEB=79 14:37

PAGE

1
SEG CO05

100

200
300

400
500

600

700
800
900
1000
1100

PAGE

2.2 RELATED PROGRAMS.
THIS PROGRAM WILL PERFORM CURSORARY TESTING OF THE DZ11 INTER=FACE,
AND
SHOULD
NOT BE CONSIDERED A VALID TEST OF ANYTHING

OTHER THAN THE LAOO,LA34,LA38 TERMINAL.

PDP=-11 PROCESSOR

AND

1200

MEMORY
DIAGNOSTIC
~PROGRAMS,
ALONG WITH DZ11 DIAGNOSTIC PROgzengg¢ggLD BE RUN PERIODICLY TO INSURE CORRECT OPERATION OF

1600
1700

OTHER LAQO,LA34,LA38 DIAGNOSTIC PROGRAMS:
CILAJA-0 LAOO,LA34,LA38 FART PROGRAM
2.3 TERMINAL CONFIGURATION

1300
1400
1500

18C0
1900

2000
2100
2200
2300
2600
2500
2600

THIS PROGRAM REQUIRES

THAT ALL

TERMINALS TO BE

TESTED

SET

UP _FOR 300 BAUD, 1 STOP BIT, ODD PARITY, AND XON-XOFF ENABLED.
ENTER SETUP MODE AND TYPE AN 8 TO GET A PRINTOUT OF
RENT SWITCH SETTINGS.

IF NOT CORRECT CHANGE

THE

CUR-

THE SWITCHES THEN

VERIFY AGAIN USING THE 8 KEY AGAIN.
THESE SWITCHES ARE LOCATED ON THE PC BOARD DIRECTLY UNDER THE KEYBOARD ASSY.

C(ZLAIBO LAOO, LA34 DMT PROG

MACRG M1110

Q26-FEB-79 14:37

PAGE 8

SEa 0006

100
200
300

400
500
600
700
800
900

1000
1100
1200
1300
1400
1500
1600
1700
1800
1900

2000
2100
2200

2300
2400

2500
2600
2700
2800

2500
3000
3100
3290
3300
2400
3500
3600
3700
3800

PAGE 6

3.0 LOADING PROCEDURE AND INITIALIZATION

LOAD THE LAOO,LA34,LA38 DIAGNOSTIC PROGRAM TAPE FOLI.OWING NOR-

MAL 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 SWITCH VALUE BEFORE STARTING THE PROGRAM

WHEN

NOT USING SWITCHES.

3.1

STARTING ADDRESSES

THERE ARE

TWO STAKRTING ADDRESSES FOR THIS

PROGRAM.

STARTING

AT
LOCATION 000200 WILL PUT THE TESTING UNDER SWITCH REGISTER
CONTROL.
STARTING AT LOCATION 000204
WILL
PUT
THE
PRCGRAM
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 LOOPC CONTAINS A TIME GCONSTANT AND IS
INITIALLY
SET
FOR
A
PDP-11/20 PROCESSOR. _THIS TIME CONSTANT IS NOT CRITICAL, BUT LARGE VARIATIONS FROM THROSE LISTED IN THE TABLE
WILL
RESULT
IN
INEFFICIENT
OPERATION.
IT
IS BETTER TO HAVE A
LONGER TIME CONSTANT THAN ONE TCO SHORT BECAUSE
THE ROUTINES
THAT
USE
THE TIMEOQUT FEATURE WILL ABORT THE TIMEOUT WHEN THE
REQUIRED INPUT IS RECIEVED.

THOSE TESTS THAT

INTERVENTION WILL NOT FUNCTION CORRECTLY IF

FAST FOR OPERATOR RESPONSE TIMES.
THIS TABLE

LOOPC:

REQUIRE

THE TIMEOUT IS TOO

IS DUPLICATED IN THE LISTING.

000314

;TIME CONSTANT FOR11/20

;SET TO 202 FOR 11/03
*SET TO 251 FOR 11/10

*SET TO 554 FOR 11/40
*SET TO 755 FOR 11/45,

MANUAL

11/60

*SET TO 1237 FOR 11745, 11/70

*SET TO 2127 FOR 11/45°BIP, 11/55

(ZLAIBO LAQO, LA34 DMT PROG

MACRO M1110

26~FEB=-79 14:37

PAGE 9

SEQ 0007
PAGE

3.3 EXECUTION TIME
AT 300 BAUD AND EXCLUDING MANUAL INTERVENTION TESTS THIS
GRAM SHOULD TAKE APPROXIMATELY 13 MIN.
4.0 CONTROL AND
THERE ARE
PROGRAM:

PRO-

TEST SELECTION
TWO MEANS OF
VIA THE

CONTROLLING THE

EXECUTION OF

THIS

CONSOLE SWITCH REGISTER, OR VIA THE CONSOLE TERMINAL.

Igu}'?EHPROGRAM IS STARTED AT LOCATION 200 AND NO HARDWARE
REGISTER EXISTS THE PROGRAM WILL USE
176 AS THE SWITCHES
4.1

THE CONTENTS OF

LOCATION

SWITCH REGISTER CONTROL

THE VARIOUS SWITCHES AND THEIR
FUNCTIONS
ARE
LISTED
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
14

12
10
9

8
(=0

DESCRIPTION

1(UP)

= HALT ON ERROR

1(UP)

= LOOP ON TEST

1(UP)

= INHIBIT ERRCR REPORTS

1(UP)

= RUN INDIVIDUAL TEST

1(UP)

= GET TEST NO.

1(UP)

= PMT MODE MINIMUM MANUAL

O(DOWN) = CONTINUE AFTER ERROR REPORT
IF

O(DOWN) = CONTINUE TESTING

ERROR DETECTED

O(DOWN) = PRINT ERROR REPORTS

O(DOWN) = RUN TESTS IN SEQUENCE
FROM SWS 4

O(DOWN) = USE DEFAULT TEST #0

INTERVENTION

O(DOWN) = DMT MODE INTERVENTION REQUIRED

1(UP)
= RUN 1 PASS OF TEST SEQUENCE THEN HALT
O(DOWN) = KEEP RUNNING TEST OR SEQUENCE
TEST NUMBER SELECTION

(ZLAIBO LACG, LA34 DMT PROG

MACRO M1110

26-FEB-79 14:37

1
I
PAGE 10

SEQ 00038

100

200

PAGE 8

300

420

500

600
700

800
900

1000

4.1.1 SWITCH 15

PLACING SWITCH 15 DOWN WILL CAUSE

THE PROGRAM TC

(CONTINUE

ON_ERRORS DURING ANY OF THE i/0 TESTS. WITH SWITCH 15 uUP,
THE PROGRAM WILL HALT (AT ERRHLT) ON ANY ERROR DURING THE
170

TESTS WITH THE LOCATION OF THE ERROR IN RO.

CONTINUE WILL

}z%

TINUE WILL CAUSE THE PROGRAM TO LOOP ON THE FAILING TEST.

1200
1500

1600
1700

1800
1900

2000
ci00
2200
2300
2400
2500
2600
2700
58008
3000
3100

3200

;288

3500
3600
3700
3800
3900
4000

4100
4200

4300

CAUSE

THE PROGRAM TO CONTINUE

IS POWN (LOOP ON ERROR).

PRESSING

1100

SWITCH

WITH SWITCH 12 UP, PRESSiNG CON-

4.7.2 SWITCH 14
PLACING SWITCH 14 UP WILL CAUSE THE PROGRAM

'1OOP

TEST'' IF AN ERROR IS DETECTED IN THAT TEST. ERROR REPORTS
WILL BE TYPED UNLESS INHIBITED (SWITCH 13 UP).
LCOPING

WILL OCCUR AUTOMATICLY, WITHOUT OPERATOR INTERVENTION, AND
WILL AND WILL CONTINUE UNTIL THE ERROR CEASES TO HAPPE, OR
THE SWITCH IS PLACED DOWN OR =0.
4.1.2 SWITCH 14
PLACING SWITCH 14 UP WILL CAUSE THE PROGRAM TO °‘100P ON
TEST'' IF AN ERROR IS DETECTED IN THAT TEST.
cRROR REPORTS
WILL 'BE TYPED UNLESS INHIBITED (SWITCH
13 UP).
LOOPING
WILL OCCUR AUTOMATICLY, WITHOUT OPERATOR INTERVENTION, AND
WILL CONTINUE UNTIL THE ERROR CEASES TO HAPPEN,
OR THE
SWITCH IS PLACED DOWN OR =0.
4.1.3 SWITCH 13
PLACING SWITCH 13 UP WILL INHIBIT THE PRINTING OF ALL

ERROR REPORTS. CAN BE USED IN CONJUNCTION WITH SWITCH
14 TO LOOP IN ERRORS FOR TROUBLESHOOTING.

4.1.4 SWITCH 12
PLACING SWITCH 12 UP WILL CAUSE THE PROGRAM TO LOOP IN THE
CURRENT, OR SELECTED TEST.
IF SWITCH 8 IS UP THE TEST
WILL HALT AT THE END OF THE TEST. PRESSING CONTINUE WILL
CAUSE THE TEST TO BE STARTED OVER AGAIN. PLACING SWITCH
12 DOWN WILL CAUSE THE NEXT SEQUENTIAL TEST TO BE EXECUTED
.
UNLESS THE TEST IS AN INTERVENTION TEST AND PMT MODE IS
SELECTED.

4400
4500

4.1.5 SWITCH N
NOT USED.

4700
4800
4900

4.1.6 SWITCH 10
PLACING SWITCH 10 UP wILL CAUSE THE PROGRAM TO USE THE
CONTENTS OF
SWITCHES 4 THRU O AS THE TEST NUMBER.
If

4600

5000
5100
5200

5300

5400
5500
5600
5700

SWITCH 12_IS UP THIS IS THE TEST THAT WILL BE RUN, IF
SWITCH 12 IS DOWN THE SEQUENCE OF TESTS TO BE RUN WILL
START WITH THIS TEST.

4.1.7 SWITCH 9
PUTTING SWITCH 9 UP AT THE START OF TESTING WILL INHIBIT
MANUAL INTERVENTION TESTS , AND USE A FIXED SET OF PARAMETERS AS LISTED IN THE DESCRIPTION OF EACH TEST.

CZLAIBO LAOO, LA34 DMT PROG

MACRO M1110

26~FEB=79 14:37

PAGE 11

SEQ 0CO2

100

200
300
400
500

PAGE 9

4.1.8 SWITCH 8
WITH SWITCH 8 DOWN THE PROGRAM WILL LOOP ON
TEST

COR

THE

TEST SEQUENCE AS SELECTED BY SWITCH 12.

SELECTED

SWITCH 8 UP WILL CAUSE THE PROGRAM TO HALT AT THE
TION OF THE CURRENT TEST, OR TEST SEQUENCE.
TINUE WILL RESULT IN THE PROGRAM RESTARTING

SEQUENCE DEPENDING ON SWITCH 12.
4.1.9 SWITCHES 4 TO 0

SWITCHES 4 TO O ARE USED TO

SELECT

UNDER SWITCH REGISTER_CONTROL.

OCTAL, FROM 00

22.

PLACING

COMPLE~

PRESSING CONTHE
TEST
OR

SPECIFIC

TESTS

WHEN

EFFECT

TEST NUMBERS ARE ALWAYS IN

4.2 KEYBOARD CONTROL

SWITCHES ON THE CONSOLE SWITCH REGISTER WILL
HAVE
WHEN UNDER TERMINAL CONTROL EXCEPT FOR SWITCH 13.

THE PROGRAM WILi PRINT THE FOLLOWING :
ENTER
MODE
D
OR
P
:
RESPCND
BY TYPING EITHER A ‘D' FOR DMT MODE, OR A 'P' FOR
PMT MODE (NO MANUAL INTERVENTION).
THE PROGRAM WILL PRINT
READY
COMMANDS FROM THE KEYBOARD.

THE FOLLOWING COMMANDS WILL BE RECOGNIZED
EOoIrvu>o

ON THE CONSCLE,

THEN WAIT FOR

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
?E;;g RUNNING A TEST, OR TO STOP AFTER RUNNING A
SEQUENCE
OF

CZLAIBO LAOD, LA34 DMT PROG

MACRO M1110

26-FEB-79 14:37

K_1

PAGE 12

SEQ 0010

100

200
300

400
500

PAGE 10

TO ABORT OPERATIONS AND RETURN TO THE WAIT STATE AT
ANY
TIME
TYPE
A
C(TL=C.
THE PROGRAM WILL RESPOND WITH READY
AND WAIT
FOR COMMAND INPUT.

ENTER ONE COMMAND PER LINE, FOLLOWED BY

RETURN.

FLICTING COMMANDS ARE ENTERED THE LAST ENTRY WILL BE USED.

CON-

TO EXIT ''COMMAND MODE'’' TYPE AN ESCAPE.
THE PROGRAM WILL
TYPE
READY ~ AND
BEGIN EXECUTION OF THE COMMANDS.
COMMANDS CAN
BE ENTERED AT ANY TIME, BUT NEW TESTS WILL NOT START UNTIL THE
ESCAPE CHARACTER IS RECIEVED.
EXAMPLES OF COMMANDS :
R12

RUN TEST 12

R23.

RUN TEST 23 THEN HALT

SEQUENCE ALL TESTS THEN HALT

$e7

SEQUENCE ALL TESTS STARTING WITH TEST 27

w100

SET WIDTH TO 100 (OCTAL) COLUMNS

( 204=132 COLM, 120=80 COLM )

IF A TEST 1S SELECTED THAT IS AN OPERATOR
INTERVENTION TEST,
AND PMT MODE 1 S%ELECTED THE FOLLOWING WILL BE TYPED:
RUN
INTERVENTION T
:§
ANSWER Y OR N.
IF Y IS TYPED THE TEST
géLL BE RUN.
IF F N IS TYPED A NEW TEST NUMBER WILL BE REQUEST-

;

THE R,S,H.L.W, AND C MAY BE EITHER UPPER OR
LOWER
CASE,
THE
TEST
NUMBER MUST ALWAYS BE A 2 DIGIT OCTAL NUMBER.

BUT
THE

COMMAND, TEST NUMBER, AND TERMINATOR ARE ECHOED BY THE
PROGRAM,
THUS EACH CHARACTER WILL BE PRINTED TWICE IF THE TERMINAL IS IN HALF DUPLEX.
IF AN ERROR IS5 DETECTED
IN THE
TEST
SELECTION
(ILLEGAL
TEST NUMBER OR COMMAND CHARACTER) A QUESTION MARK IS PRINTED AND THE MESSAGE WILL BE REPEATED.
READY

CZLAIBO LAOC, LA34 DMT PROG

MACRO M1110

L1
PAGE 13

26-FEB-79 14:37

100

200

300

SEQ 001

PAGE 11

400
500

1000

1100
1200
}‘3.88

1500
1600

S 8 SR RIS

1588

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
PMI MODE. SEE DESCRIPTION
OF SWITCH 9
4.1.7 .

TESTOC

3300

TESTO1
TESTO2

3500

TESTO4

3400

3600
3700
3800
3900
4000
4100
4200
4300
4400
4500
4600
4700
4800
4900
5000
$100

5200

5300

5400

£500
5600

TESTO3

TESTO5S
TESTO6
TESTO7
TEST10
TEST11
TEST12
TEST13
TEST14
TEST15
TEST16
TEST17
TEST20
TEST21
TEST22

LAQD,LA34,LA38 DATA PATHS TEST

00,LA34.LA38 ALL PRINTABLE CHARACTERS TEST
LAQQ,LA34.LA38 NON PRINTABLE CHARACTERS TEST

600
700
800
900

LAQO,LA34,LA38 PRINTHEAD DGT MATRIX TEST

LAOO.LA.'“.tfig HORIZONTAL PITCH TEST

LAQO,LA34,
SPACE-BACKSPACE TEST
LAQO,LA34,LA38 SET MARGINS TEST
LAQQ,LA34,LA38 HORIZONTAL TABS TEST
LAQO,LA34,LA38 MULTIPLE LINE FEED TEST
LAOO,LA34,
HORIZONTAL MOTION TEST
LAOO,LAS4,
BUFFER OVERRUN TEST
LAQO,LA34,
VERTICAL PITCH TEST
LAQQ,LA34,LA38
BELL TEST
LAQO,I.A34,LA38
LIFE TEST
LAOO,LA34,L
PRINTER DYNAMIC EXERCISOR
DMT
INTERFACE SPEEDS TEST
DMT
KEYBOARD ECHO TEST
DMT
CHARACTER CODE ECHO TEST.
DMT
PITCH SETUP TEST

6.0. TEST LESCRIPTION

(ZLAIBO LAOO, LA34 DMT PROG

5800

MACRO M1110

26-FEB=79 14:37

M1
PAGE 13-1

6.1 DATA PATHS TESTO0

SEG 0012

CZLAIBO LAOO, LA34 DMT PROG

MACRO M1110

26-FEB-79 14:37

PAGE 14

SEQ 0013

100

200
300
400
500
600

83888 88885852838

700

PAGE 12

THIS TEST WILL PRINT FOUR LINES OF ALTERNATING
+U*U
PATTERN.
IT
IS A CONFIDENCE TEST OF THE INTERNAL DATA BUS,

AND RECIEVER LOGIC.

EXAMPLE

*UxUnUsUxUxUxUrU, . .
UrUrUrUrUsUsUsUx, . |
xUrUrUrUrUrUrUxU. . .
UrUsUrUrUsUsUrUx, . .

ESTIMATED TIME AT 300 BAUD 18 SECONDS.

6.2 ALL PRINTABLE CHARACTERS TESTO1

THIS TEST WILL PRINT EACH OF THE PRINTABLE
CHARACTERS
IN
GROUPS OF FOUR, SEPERATED BY TWO SPACES.
THE GROUPS WILL
BE 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

RXXX

CCCC

DDDD

5555

6666

FFFF

GGGG

HHHH

2222

ESTIMATED TIME AT 300 BAUD 30 SEC

6.3 NON PRINTABLE CHARACTERS TEST02

THIS TEST CHECKS ALL NON-PRINTABLE

CHARACTERS.

THIS

TEST ALL NON-PRINTABLE CHARACTER CODES ARE TRANSMITTED,
FOLLOWED BY THE WORDS:
'NON-PRINTING CHARACTER TEST.THE
NEXT LINE SHOULD BE BLANK.

IF ANY CHARACTERS APPEAR ON THE NEXT LINE AN ERROR EXISTS.
THE FOLLOWING CODES ARE TRANSMITTED :

000

NUL

002

031
035

EM
GS

032
036

020
023
026

177

DLE
DC3
SYN
DEL

021
024
027
021

STX

006

suB
RS

034
037

DC1
DC4
ETB

022
025
030

DCT(XON)

ACK

DC2
NAK
CAN

FS
uS

ESTIMATED TIME AT 300 BAUD 5 SECONDS

(ZLAIBO LAOO, LA34 DMT PROG

5800

MACRO M1110

26-FEB=79 14:37

PAGE

B ¢
14-1

6.4 DOT MATRIX TESTO3

SEQ 0014

(ZLAIBO LAQO, LA34 DMT PROG

MACRO M1110

¢
&
PAGE 15

26-FEB=79 14:37

SEG 0015

100

200
300
400

500
600
700
800
900
1000

1100
1200
1300
1400
1500
1600
1700
1800
1900

2000
2100
2200
2300
2400
2500
2600
2700
2800
2900
3000
3100
3200
3300
2400
3500
3400
3700
3800
3900
2000

4100

PAGE

THIS TEST WILL PRINT THE
FIVE
CHARACTERS
ZH*#%
,
THEN
PRINT
FOUR
LINES OF DATA THAT WILL CREATE BLACK BOXES BY

OVERPRINTING THE SAME FIVE CHARACTERS AS ABOVE.
TEN BOXES
WILL
APPEAR_
ON EACH OF THE FOUR LINES AT DIFFERENT SPA(INGS.
THIS TEST WILL AMPLIFY ANY
WEAK
OR
[INTERMITTANT
HEAD
WIRE PROBLEMS.
THE BOXES SHOULD APPEAR AN EVEN DARK
BLACK, WITH NO DOTS MISSING OR LITE STREAKS.

ESTIMATED TIME AT 300 BAUD 10 SECONDS

6.5 HORIZONTAL PITCH TESTO4

THIS TEST WILL PRINT FIVE GROUPS OF LINES AT EACH
OF
THE
HORIZONTAL
PITCH SETTINGS.
EACH GROUP OF LINES WILL CON-

SIST OF FIRST A LINE STATING THE CURRENT

PITCH

SETTINGS,

THEN
A LINE OF THE CHARACTERS A THRU Z.
THIS_IS DONE FOR
HORIZONTAL PITCH SETTINGS OF 10 CPI, 12 CPI, 13.2 CPI, AND

16.5 CP1.

THE SETUP FOR THIS TEST IS DOWN LINE LOADED.

ESTIMATED TIME AT 300 BAUD 30 SECONDS
SPACE-BACKSPACE TESTO5

A LINE OF ALTERNATING SLASHES AND SPACES IS PRINTED ACROSS
THE
PAGE.
THE
PROGRAM WILL THEN BACKSPACE THROUGH THE

LINE AND OVERPRINT
THE
SLASHES WITH BACKSLASHES.
TWO
LINES ARE PRINTED FOR EACH PASS OF THE TEST.
THE PATTERN

PRODUCED IS A LINE OF ALTERNATING X'S AND SPACES.
THE TWO
§LASHE§ERSH0ULD CROSS EXACTLY IN THE MIDDLE CREATING THE X
EXAMPLE

X X X X X X X X X X XXX XXXXXXXXXXX

ESTIMATED TIME AT 300 BAUD 45 SECONDS

(ZLAIBO LACO, LA34 DMT PROG

MACRO M1110

D
PAGE 16

26~FEB=79 14:37

Se@ 001¢

PAGE

6.7 SET MARGINS TESTO06

THIS TEST WILL SET 4 PAIRS OF LEFT AND RIGHT MARGINS,

THEN

IT
WILL
FRINT A LINE OF '='S THAT SHOULD BE WITHIN THOSE
MARGINS.
ALSO A MESSAGE WILL BE SENT SPECIFYING Aw ERROR
IF
IT'S NOT AT THE LEFT MARGIN.
A REFERENCE LINE WILL BE
PRINTED SHOWING THE MARGIN LIMITS BEING SET UP.

ZONTAL PITCH SETTINGS WILL BE TESTED.

EXAMPLE

ALL HORI~-

:
——————————————
————
————
eSS

E Tz

ERROR IF NOT AT LH MARGIN

ESTIMATED TIME AT 300 BAUD 40 SECONDS

6.8 HORIZONTAL TABS TESTO7

THIS TEST WILL PRINT A REFERENCE LINE COMPOSED OF A NUMBER

OF
PERIODS
FOLLOWED BY A 'V'.
THIS PATTERN IS REPEATED
ACROSS THE PAGE.
THE LOCATION OF EACH V WILL MARK THE 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.
cfig I'S SHOULD LINE UP DIRECTLY UNDER THE
REFERENCE
LINE
EXAMPLE

:
Vv

THIS WILL BE REPEATED FOR A VARIETY OF DIFFERENT TAB

SETTINGS.

BY THE

THE NUMBER OF TABS PER LINE WILL BE CONTROLED

‘'WIDTH'' SPECIFIED AT THE START OF THE DIAGNCSTIC.

ESTIMATED TIME AT 300 BAUD, 132 COL - 2 MIN

(ZLAIBO LADO, LA34 DMT PROG

MACRG M1110

E_2

26-FEB=79 14:37

PAGE 17

SEQ 0017
PAGE 15

6.9

MULTIPLE LINE FEED TEST10

THIS TEST WILL PRINT A REFERENCE LINE OF DASHES THEN
SKIP
N
LINES
AND
PRINT
THE NO.
OF LINFS SKIPPED ALONG WITH

SOME DASHES FOR VISUAL REFERENCE.
EACH SKIP COUNT IS DONE
m%fiE
FOR N =1 TO 7.
VERTICAL PITCH WILL BE 6 LINES PER

EXAMPLE

ESTIMATED TIME AT 300 BAUD 15 SECONDS

6.10 HORIZONTAL MOTION TEST11
THIS TEST WILL EXERCISE

THE

HEAD

POSITIONING

LOGIC

PRINTING A_ LINE 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 TEST12
THIS TEST WILL FORCE

(023)

ISSUEING

THE

TERMINAL TO

SEND

XOFF

CHAR

SERIES OF TIME CONSUMEING MOVEMENT

COMMANDS, FOLLOWED BY ENOUGH CHARACTERS TO FILL THE BUFFER
PAST IT'S 118 CHARACTER LIMIT.
WHEN THE TERMINAL HAS EMPTIED THE BUFFER
TO
THE
10 CHARACTER LEVEL
IT
SHOULD
TRANSMIT AN XON CHARACTER (021) ALLOWING THE HOST TO FINISH SENDING DATA,
ANY TERMINAL THAT FAILS TO SEND THE XON
WILL
BE
CONSIDERED TO BE 'DEAD'' , AND WILL BE DESELECTED
OR SET INACTIVE.

ESTIMATED TIME AT 300 BAUD 10 SECONDS.

CZLAIBC LAOO, LA34 DMT PROG

MACRO M111C

26-FEB-79 14:37

PAGE

18
SEC 0018

100

200

PAGE 16

300

<00

600

700

6.12 VERTICAL PITCH TEST13
THIS

800

PITCH

TEST WILL PRINT SIX LINES AT

SETTINGS:

2,3.4,6,8

AND

EACH

THE

VERTICAL

12 LINES PER INCH.

THE

900
1000

LINE PRINTED WILL BE A MESSAGE THAT LISTS THE CURRENT (PI
AND LPI
SETTINGS.
THE SETUP FOR THIS TEST IS DOWN L INE

'{‘3.88

ESTIMATED TIME AT 300 BAUD 40 SECONDS

;;88

1500

1600
1700

1800
1900

2000

LOADED.

6.13 BELL TEST14
THIS TEST CHECKS THE PRINTER BELL

IMUM

RATE

THE OPERATOR TO HEAR THE BELLS.

2300

ESTIMATED TIME 1

5500

6.14 LAOO,LA34,LA38 LIFE TEST15
ORDINARILY THIS TEST SIMPLY PRINTS A LINE OF

WHEN THIS TEST IS LOOPED ON,

3100

BEEN DONE,

'35‘5'88

DETERMINED

3200
3300

3600

3700
3800

2000

4100

2%88

2288
4600

4700

THAT

EIGHT

SECOND

2900

3000

INSURE

TO THE PRINTER THEN WAITS 2.5 SECONDS TO ALLOW

5;88

2600
.%88

BELLS ARE DISTINCTLY HEARD, EVEN WHEN SENT A7 THE MAXIMUM
TRANSFER RATE.
THE PROGRAM SENDS 8 BELL CODES AT THE MAX-

PRINTABLE

CHARACTER.

'A°’S.

IT PRINTS TWO LINES

EACH

WHEN ALL PRINTABLE CHARACTERS HAVE

THEY WILL SIMPLY BE REPEATED.

THE CURRENT PASS

NUMBER IS PRINTED ON EACH LINE, WITH A 1 COLUMN OFFSET ON
EACH NEW LINE.THE NUMBER OF CHARACTERS PER LINE WILL BE
BY THE 'WIDTH'' AS SELECTED AT PROGRAM STARTUP.

EXAMPLE :

¢CCC 01 cccecececcecececcecccceccceccc..

CECCL 01 geccrreececeeceeceecee..

ESTIMATED TIME 1 LINE 300 BAUD S SECONDS

(ZLAIBC LAOC, LA34 DMT PROG

MACRO M1110

26-FEB=79 14:37

G ¢
PAGE 19

SEQ 0019
PAGE

6.15 LAOO,LA34,LA38 DYNAMIC EXERCISOR TEST16
THIS TEST WILL PRINT 35 LINES OF

PATTERN

WILL

MATRIX,

WHERE

MIXED

FORMAT

CREATED WHICH IS COMPRISED OF

DATA.

THE UPPER

AND LOWER CASE CHARACTER SET PLUS
EIGHT
OF
THE
SPECIAL
SYMBOLS.
THIS PATTERN WILL BE IN THE FORM OF A 10" BY 6''
THE UPPER LEFT CORNER WILL

HAVE

THE GREATEST

CHARACTER DENSITY AND THE LOWER RIGHT CORNER WILL HAVE THE
LOWEST DENSITY,
ALL POSSABLE COMBINATIONS
CF
HORIZONTAL

AND VERTICAL PITCH WILL BE USED.

ESTIMATED TIME AT 300 BAUD 2.5 MIN.
INTERVENTION TESTS
NO TIME ESTIMATES GIVEN

6.16 INTERFACE BAUD RATES TEST17
THIS TEST WILL REQUEST THAT

ALL_

TERMINALS

110

TRANSMIT A MESSAGE TO ALL

THE OPERATOR CHANGE

BAUD.

TERMINALS

THE

SPEED

BAUD

RATE,

THE PROGRAM WILL THEN

THIS

IDENTIFING
THE
CURRENT
SPEED, THEN BY USE OF THE ESCAPE
SEQUENCE
ESC [OC
THE TERMINAL ID MESSAGE WILL BE
SENT

FROM
EACH
TERMINAL
TO
THE
TRANSMISSION AND RECEPTION BY

PDP-11
TO
VERIFY
CORRECT
THE
TERMINAL.
THIS
SAME

PROCEDURE
IS REPEATED FOR 300 BAUD.
TION NO TIME ESTIMATE IS GIVEN

BECAUSE OF

INTERVEN-

THIS TEST WILL REQUIRE THE OPERATOR TO TYPE ALL

THE PRINT-

6.17 KEYBOARD ECHO TEST20

ING KEYS ON THE KEYBOARD.
IF ANY KEYS ARE NOT SEEN BY THE
HOST THEY WILL BE REQUESTED AGAIN , AND A
THIRD
TIME
IF

NECESSARY.
INSTRUCTIONS
WILL THEN BE TYPED TO PRESS THE
TAB, RETURN, AND OTHER NON PRINTING KEYS.
FIVE SECONDS IS

ALLOWED PER KEY DELAY.
4400
4500

4700

4800
4900
5000
51

5300
5400

6.18 CHARACTER CODE ECHO TESTZ21
THIS

TEST WILL PRINT

THE OCTAL

CODE OF

ALONG
WITH THE ASCII CHARACTER.
NON PRINTABLE CODE THE
MNEMONIC
PRINTED.
THEN THE

ANY

KEY

PRESSED,

WHERE THE CHARACTER IS A
OF
THAT
(ODE
WILL
BE

~THE
DELETE
C(HAR WILL BE ECHOED AS A MNEMONIC,
TEST WILL BE DONE.

MACRO M1110

26-FEB=79 14:37

PAGE 20

SEQ 0620

1CC

200
300
éOO

PAGE

600

6.19 PITCH SETUP TEST22

700

THIS

800

SETUP

900
1000
1100
}%88
1400

TEST WILL REQUIRE
TO

THAT

THE OPERATOR TO CHANGE

REQUESTED.

AFTER

THE

TERMINAL

EACH SETUP (HANGE

THE

PDP=11 WILL SEND A LINE 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
INCH
gg?TICALV.
THAT IS EIGHT LINES AFTER THE CHANGE TO 8 LPI
.ENDR

]

CZLAIBO LAQO, LA34 DMT PROG

(ZLAIBO LAQO, LA3& DMT PROG

MACRO M1110 26-FEB=79 14:37 PAGE .!.‘1

SEQ 0021

100

200
288

500

CZLAIBO LAOO, LA34 DMT PROG

.SBTTL

DMT/PMT PROGRAM FOR LAQO TERMINAL

600

;

800 000000

.ENABL

700

PATCHED QUIET

; 23-FEB-79
ABS

SUBROUTINE

R.SCHAUBER

900
1000

.ENABLE AMA
LIST MC,ME

}:2588

;SOME DEF INITIONS

1100

1400
1500
1600
1700

1800

000060
000064
000000
000200

000340

DLRVE(C=60
DLTVEC=64
PR10=000000
PRI14=200

2000

000001

BIT0=1

2200
2300
2400

000004
000010
000020

BIT2=4
BIT3=10
BIT4=20

010000

81712=10000

1900

2100

2500
2600
2700
2800
2900
3000
3100

000040
000100
000200
000400
001000
002000
004000

3300
3400
gg%

020000
040000
100000

%;88

B1713=20000
B1T14=40000
BI1T15=100000
DZCON=5.

000000

10500 000004
000012

000006
000000

000000
000016

10600

000024

10800
10900 000041

11000 000042
11100 000044
17200 000046
11300 000950
}1
000052

:MAX NO. OF DZ11'S

THIS COMPILE

LASECT

000000
8888812’

16700 000024

XON NOT RECVD

BIT5=40
BIT6=100
BIT7=200
BI1T78=400
8179=1000
BIT10=2000
BIT11=4000

10200
11813.88 000000

000020

BIT1=2

000005

3900 000000
10100

TO TIMEOUT

PR17=340

000002

3200

LTITLE

000022

001220

000041
000

000000
001000
003634
000000
026000

000000
000000

.=
000012
000000

TRAP4:

.=24

PFAIL:

.=41
ACTPVC:

.WORD

2,0

.WORD

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

.WORD

START,PRIO

.BYTE

.WORD
.WORD
.WORD
WORD
.WORD

O
APTHDR
EOP
0
20000

;START OF TRAP CATCHER AREA

sACT11 LOAD MEDIUM

;ACT11 MODE
0O IS MANUAL MODE
;APT11 HEADER BLOCK ADDRESS
JACT11 END OF PASS HOOK ROUTINE
;ACT11 MANUAL MODE ONLY

CZLAIBO LAQC, LA34 DMT PROG

MACRO M1110

DMT/PMT PROGRAM rOR LAQO TERMINAL

12300

12400 000200
12500 000204

000200

000137
000137

001220
001242

26-FEB=79 14:37

.=200

JMP
JMP

J.
@
PAGE 21~1

START
KSTART

SEQ 002¢

CZLAIBO LAQO, LA34 DMT PROG
MACRGC M111C
DMT/PM1 PRCGRAM FCR LAOO TERMINAL
12700
12800
12900
13000
13100

001C00

13300 001000
13400 001002
13500 001004
13600 001006
13700 001010
13800 001012
13900
14000
14100
14200 001014
14300 001016
14400 001020
14500 001022
14600 001024

000000
001214

13200

14700 001026

wvivioaunaiuoaunmaiuon
o

14800 001030
14900 001032
15000

200
200 001034
00 001035
5 00 001036
600 001040
700 001042
800 001044

26-FEB=-79 14:37

PAGE 22

2
SEQ 0023

.=1000

.EVEN

:TOP OF STACK AREA
:

APT

PARAMETER BLOCK

APTHDR:

000360

001440
000012
000030

.WORD

"WORD
"WORD
.WORD
"WORD
"WORD

;HIGH ORDER ADDRESS BITS

$MAIL
:ADDRESS OF APT MAILBOX
240,
:TIME FOR LONGEST TEST 4 MIN.
800.
:TIME FOR QUICK PASS
10.
*TIME FOR EACH ADDITIONAL DVC
SETEND=-SMAIL/2
:LENGTH OF MAILBOX + ETABLE

;APT MAILBOX AREA
000000
000090
000000
000000
000000
000000
000000
000000

SMAIL:
SFATAL:

$TSTNO:
$PASNO:
$DEVCT:
$UNIT:
$MSGAD:
$MSGL:

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

000000
000000
000000
000000
000000
000000
000000
000000

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

:APT ENVIORNMENT TABLE

SETABL:

.BYTE

;0= STAND ALONE, 1=AUTOMATIC MODE

$SWREG:

.WORD
JWORD
.WORD
.WORD
.WORD

000000
000000
000000
000000
000000

:APT SWITCH REG:ISTER
:USER SWITCHES
:CPU TYPE AND OPTIONS
:MEM TYPE & HIGH ORDER BITS
:MEMORY ADDRESS- HIGH

SMEMRR: .WORD

800000

$CPU:
SMEMAD:
SMEMAR:

BYTE

SMEMAZ2: .WORD

SMEMAL: . WORD

SMEMR4: . WORD
SVECT1. .WORD

$VECT2:
$BASE:
$DEVM:

$ETENL

.WORD
.WORD
.WORD

000000

000000
000CO0
000000

*CONTROL BITS

;VECTOR #1, AND PRIORITY
:VECTOR #2. AND PRIORITY

:BASE ADDRESS OF DEVICES
-DEVICE MAP

‘END: OF ETABLE

CZLAIBO LAOO, LA34 DMT PROG

COMMON DATA STORAGE

160010
000300

17700 001102
17800 001104
17900 001106
18000 001110

000000
000000
000000
000000

26-FE3~79 14:37
.SBTTL
DZADDR
DZVECT:

18100 001112
18200 001114
18300 001116

000000
000000
000000

18500 001122
18600 001124
18700 001126
18800 G01130
18900 001132
19000 001134
19100 001136
19200 001140
19300 001142

177570
000000
000000
000000
000000
000000
000000
000000
000314

SWR
PASSNO :
ANTMPO :
ANTMP1
ANTMP?2
TEMP
NOTYET
HOOK:
LOOPC:

177570
000000
000000

000000
000000
000000
000000
000000

LOOPI:
LOOPO:
TSTMP:
NUML IN:
COM1:

000000
000000
000000
000000
000000

000000

18400 001120 000001

1144
1146
1150
1152
1154

88888

Ngl\)'\)m—n_n_a_n

19400
19500

20500 001156
20600 001160
20700 001162
20800 001164
20900 001166
21000 001170
21100 001172
21200 001174
21300 001176

000000
000000
000000
000000
000000
000000
000204
000000
000000

21500 001202
21600 001204
21700 001206
21800 001210
21900 001212
22000 001214
22100 001216
22200

000000
000000
000000
000000
000000
000000
000000

21400 001200

22300

000000

DXTMP:

SRCONT : 000001

com2:
WORK:
WORK1:
uonxg:
:
CHARIN:
WIDTH:
MODE
:
PMODE
:
RCTMP:

2
SEQ 0024

COMMON DATA STORAGE
160010
JADDRESS OF 1ST DZ11

000300
000000
MSGTYP: 000000
MSGADR: 000000
SENDTM: 000000
ERROR:
000000
SEQ:
000000
TEST:
000000
50:
000000

17600 00179

PAGE 23

583c8883¢

17300
17400 001074
17500 001076

MACRO M1110

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

;ERROR SWITCH
JHOLDS TEST TABLE POINTER
JPOINTER TO CURRENT TEST
;THIS IS THE SIMULATED SWITCH REGISTER

sTHIS IS THE SWITCH REGISTER CONTROL SWITCH
;POINTER TO SWITCH REG, OR SOFT SR
;THIS IS THE PROGRAM PASS NUMBER

00V000

000008

000000

000314

;TIME CONSTANT FOR 11/20
;SET T0 202 FOR 11/03
;SET TO 251 FOR 11/10
sSET TO 554 FOR 11740
;SET TO 755 FOR 11/45, 11/60
sSET TO 1237 FOR 11/45, 11/70
;SET TO 2127 FOR 11/45 BIP, 31/55

000000
000000

000000

132.

000000
000000

;SET TO 120 FOR 80 COLM

:DZ TRANSMIT MODE
;PMT MODE FLAG

DZNUM:
ONL INE :
PNTR:
TMPTST:
TSTTYP:
GO:
UuT:

000000
000000

sNO. OF DZ'S ACTUALLY ON SYSTEM
;LINE NO. UNDER TEST

000000

;# OF UNITS UNDER TEST

.SBTTL

START POINT FOR PROGRAM

000000
000000
000000
000000

;CONSOLE BUFFER POINTER
;CONSOLE ROUTINE TEMP FLAGS
:TEST DESCRIPTION DATA

CZLAIBO LAQO, LA34 DMT PRCG

START POINT FOR PROGRAM

012706
052737
004737
000137

001000
100000
003754
001342

001120

83888338

700
800 001242
900 001246

1900 001336
2000
2100
2200
2300
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

012706
004737
012737
012737
012737
012737
012737
005037
005037
012737

001000
003754
017240
000200
000066
000200
000101
001210
001120
020332

012705
004737
000137

034650
020310
001342

000240
005037
012737
013700
005037
005710
005237

062700
000772
012737
005737
001002
000000
000776

26-FEB=79 14:37
START:

000060
000062
000064
000066
177560

5100 001474
5200 001500
5300 001504
5400 001510
£500 001514

#1000, SP

JSR

PC,SWRTST

BIS

#81T15, SRCONT

SEQ 0025

;SETUP STACK POINTCR
sSET SWITCH CONTROL

INIT

;START HERE IF

IN CONSOLE CONTROL

KSTART: MOV
JSR

#1000,
SP
PC,SWRTST

001206

JINIT THE STACK

MOV
MOV
MOV
MOV
MOV

#TTYIN,a#60
#PR14 ,aN62

sINIT CONSOLE VECTOR AREAS
;COMMANDS HAVE PRIORITY

#101,a#177560

;TURN ON THE CONSOLE

MOV
SENDC
MOV

#TKBUF ,PNTR
#MSGOO
#MSGO0,R5

JMP

INIT

:INPUT BUFFER POINTER
;SEND TEST ID
;GET MESSAGE ADDRESS
; SEND MESSAGE

CLR
CLR

JSR

#66,64
#PR14 ,an66
TMPTST
SRCONT

PC,CSEND

JHERE WE INIT THE DZ11 ROUTINES
001216
001402
001074
001202

INIT:

1$:

001202
000010

?:I(L);

MOV
MOV

060004

28:

000006
001202

:SU TRAP CATCHER
:GET FIRST DZ ADDRESS

ADD

#10,R0

;DZ PRESENT ?
:YES COUNT IT
;POINT TO NEXT ADDRESS

MOV

#6, TRAPS

;FIX TRAP CATCHER

BNE

CLR
1ST
INC

TST

HALT

38:

001000
001202

DZNUM

.~2

ASL
ASL
ASL

R1
R1
R1

CLR

MOV

020754
025134
025254

MOV
MOV

025374

#1000,
SP

MOV

025374
000050
025014
024174
024674
024314
024554

DZNUM
(RO)
DZNUM

MOV

001152

4%:

uut

#2%, TRAPS
DZADDR,RO

4200 001434

4300 001436
4400 001440
4500 001444
4600 001446
4700 001452
4800 001456
4900 001462
5000 001466

PAGE 24

MOV

JMP

100 001220
200 001224
300 001232
400 001236
500

MACRO M1110

MOV
MOV
ADD

CLR
CLR
CLR
CLR
CLR

sANY DZ°'S ?

:NO- NOTHING TO TEST

DZNUM,R1

;CLEAR THE STACK POINTER
;GET DZ COUNT

R1,NUMLIN

:8 LINES PER DZ
;SAVE TOTAL NO OF LINES

#DZCOMB,R2
R2,COMIN(RO)

;START OF COMMAND BUFFERS

#50, COMEND (RO)

;END IS 20 WORDS AWAY

R2. COMOUT (RO)
R2 . COMEND (RO)
COMCNT (RO)
CURREP (RO)
CURADD (RO)
CURTER(RO)
STOP(R0)

CZLAIBO LAQO, LA34 DMT PROG

START PCINT FOR PROGRAM

5600 001520

§700 001526
5800 001532

012760

000145

062700
062702

000002
000050

6200
6300
6400 001542
6500 001546
6600 001552
6700 001556

012702
012703
013705
013704

032412
032330
001076
001202

6900 001564
7000 001570
7100 001572

012725
010325
012725

000240

5900 001536
6000 001540

6100

6800 001562

7200 001576

005301
001344

010225

062703

7300 001602

062702

7500 001610

001364

7400 001606 005304

7600 001612

000240

000240
000012
000012

MACRO M1110
020634

26-FEB=79 14:37

N 2
PAGE 24-1

MOV

#145,DZL INE (RO) JINIT TO

DEC
BNE

R1
4

ADD
ADD

#2 RO
#50,R2

;SETUP VECTORS FOR INTERRUPTS
INITT:
MmOV
#DZRINT ,R2
MOV
#DZTINT.R3
MOV
DZVECT,RS
MOV
DZNUM, R4

1%:

SEQ 0026

MOV

R2, (R5) +

MOV
MOV
MOV

#240, (R5) +
R3, (R5) +
#240, (R5) +

ADD

#12.R2

ADD

DEC

BNE

NOP

#12,R3

Ré

300 BAUD ODD PARITY

JNEW BUF=0LD BUF + 20.

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

CZLAIBO LAQO, LA34 DMT PROG

START POINT FOR PROGRAM

7800
7900

8000 001614
8100 001620
8200 001624

8300 001626

013701
012702
005000

005060

8400 001632
8500 001636
8600 001642
8700 001646
8800 001652
8900 007660

010260
010260
010260
010260
062760
062700

910C 201670
g%gg 001672

005301
001355

9000 001664

9400
9500
9600
G700
9800
9900
10000
10100
10200
10300

062702

001674
001700
001704
001710
001712
001716
001722
001724

013700
012701
013702
010221
012712
062702
005300
001371

001726
001732
001736
001742
001744
001746

013701
012702
012703
010322
006303
022703

10400
10500
10600
10700
10800
10900
11000
11100
11200
11300
11400

001752
001754

11288 001756

001367

11700
11800
11900
12000
12100

001760
001762
001764
001772
001776

005000
005003
012737
016001
012702

12300 002006

005202

12200 002002

001373
005301

010261

12400 002010
12500 002014
12600 002016
12700 002022
12800 002024
12900 002030

022702
001372
062700
005203
023703
001360

}gzgg 002044

000000

13000 002032
}%;88 002040

012737
000137

INIT D211

021152
026454

INIT2:

025634

026074
026214
026334
025754
000016
000002

1%:

025754

000020

SEQ 0027

RECIEVE

NUML IN,R]
#KBBUF ,R2
RO

sGET # OF LINES
;SETUP FIRST KEYBOARD BUFFER AREA ADDRESS

MOV
MoV
MOV
MOV
ADD
ADD

]2,KBBUFB(RO)
R2,KBBUFI(RO)
R2,KBBUFO(RO)
R2,KBBUFE(RO)
#16 ,KBBUFE(RO)
#2 ,RO

;DEFINE BEGINING OF BUFFER
;INIT PUT IN POINTER
;AND TAKE OUT POINTER
;DEFINE END OF BUFFER
;AS 16 BYTES PAST BEGINING
JNEXT LINE PLEASE

DEC
BNE

R1
1%

CLR

KBCNT (RO)

;ZERO CHAR COUNT

#20,R2

;BUFFER AREAS ARE 20 BYTES LONG EACH
;ANY MORE TO SETUP?
;YES. DO SO

:INIT DZ11 CSR REGISTER TABLE
INIT3:
MOV
DZNUM,RO
MoV
#DZCSR,R1
MOV
DZADDR,R2
1%:
MoV
R2,(R1)+
MOV
#20. (R2)
ADD
#10,R2
DEC
RO
BNE
1%

000020
000010

SINITIALIZE TABLE OF

001202
025514
000001

INIT4:

1%:
2$:

000400

000004

000002

1%:

2%:

DZNUM,R1
#TCRBIT
,R2
#1.R3
R3,(R2)+
R3
#400,R3

BNE

012730

RO
R3
#5%, TRAPS
DZCSR(RO)
,R1
#12720,R2

INC

cMP
BNE
ADD
INC
(MP
BNE
MOV
JMP

000002
001202

000004
5%:

HALT

OF DZS
ADDRESS OF TABLE
ADDRESS OF 1ST CSR
CSR ADDRESS INTO THE TABLE
;CLEAR THE DZ
;CSRS ARE 4 WORDS APPART
;ANY MORE TO DO?
;YES. DO EM.

2%
R1

(LR
CLR
MOV
MoV
MOV

MOV

;COUNT
;SETUP
;SETUP
;PUT A

TCR BITS

MOV
MOV
MOV
MOV
ASL
cMP

BNE
DEC
INITS:

000006
002046

MOV
MOV
CLR

ADD

001202
031554
001074

002044
031554
012720

MACRO M1110 26-FEB-79 14:37 PAGE 35

R2,2(RT)

#12730,R2
2%
#2,R0O
R3
DZNUM,R3
1%

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

:LOAD LPR REG

;DONE ALL LINES ?

#6, TRAP4
INITE

:DZLPR TRAPPED (16XXX2)

CZLAIBO LAOC, LA34 DMT PRCG

START POINT FOR PROGRAM

13600
13700 002046
13800 002050
13900 002054

MACRO M1110 26-FEB=79 14:37 PAGE 56

005000
013701

001202

14000 002060

012737

002156

000004

14200 002072

012737

002164

14400 002104

012737

002172

14100 002066
14300 002100

14500 002112

016002

031554

005762

000006

012712

040140

112762

MOV

#40140, (R2)

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

#7%, TRAPS

#377,5(R2)

;SET DTR ALL LINES >> TCR+1

000006

000004

15800 002164

000000

000137

002202

16100 002172
}2588 002174

000C00
000137

002202

16400 002200
16500 002202
16600 002206

000000
005737
001002

12388 002214

000137

17000

000004

;RING=CARRIER REG.

MOVB

000CO0

000137

#6%, TRAPS

6(R2)

000005

15500 002156

16700 002210

MOV

000377
000002

}2388 002166

000004

;ENABLE ALL LINES TX >> TCR

062700
005301
001344
012737
000137

000137

#5%, TRAPG

#377.4(R2)

14800 002134
14500 002140
15000 002142
15100 002144
15200 002152

32988 002160

MOV

002200

12200

MOV

RO
DZNUM,R1
DZCSR(RO)
,R2

000004

012737

112762

1$:

CLR
MOV

SEQ 0028

000377

14600 002120

14700 002126

INIT6:

002220

002202

001120
001242

001220

000004

MOV

ADD
DEC
BNE
MOV
JMP

#8$, TRAP,

#2,R0
R1
1%
#6, TRAPS
1SEQ

HAL T

6$:

HALT

JMP

108

7%:

HALT
JMP

108

8$:
108:

HALT
TST
BNE

118:

JMP

108

SRCONT
1is
KSTART

START

:TRAPPED FRCM 16XXX6 RING/CARRIER
:TRAPPED FROM 16XXX0

CSR

:TRAPPED FROM 16XXX4

TXMIT CTL

:TRAPPED FROM 16XXX5

DTR

CZLAIBO LAOO, LA34 DMT PROG

START POINT

FOR PROGRAM

MACRO M1110

26-FEB-79 14:37

PAGE 27

};%88

;TEST SEQUENCER SUBROUTINE

13?88

17600 002220
17700 002224

012706
012737

001000
020332

002236
002242

012705
005037
004737

034650
001174
031706

17800 002232
002232

17900 002246
18000 002252
18100 002256
18200 002260
18300 002264
18400 002272

004737
005737
001402
000137
012737
012737

002450
002342
000000

002300
002304

012705
004737

042341
020310

18500 002300

18600 002310
18700 002314
18800 002316

002316
002322
18900 002326
002326
002332
19000 002336
}3588 002340

004737
000001

000060

48:

000062

042327
020310

012705
004737
000001
000776

042400
020310

JSR
ST
BEQ
JMP
MOV
MOV

SENDC

MOV
JSR

034250

012705
004737

MOV
MOV

SENDALL
MOV
CLR
JSR

004216
001120

JSR
WAIT
SENDC

SEQ8:

WSEQ:

13288
19500
19600
19700
19800
19900

TEST SEQUENCE INITIALIZATION

ISEQ:

001206

SEQ 0029

MOV
JSR
SENDC
MOV
JSR
WAIT
BR

#1000, SP
#TKBUF ,PNTR

#MSGO0
#MSGOO,RS

MODE
PC, SEND

PC.SCAN
SRCONT
4
LSEQ
#SEQMS , a#60
#PRIO, 3462

#MSGK2

#MSGK2 ,RS
PC, CSEND
PC.QUIET
#MSGK1

#MSGK1,RS
PC, CSEND
#MSGK4
#MSGK4 ,RS
PC,CSEND

;SET STACK AT 1000
YINIT TTY BUFFER POINTER

*SEND TEST I.D.
;BLILD SEND CALL USING MESSAGE ADDRESS

;NOW SEND THE MESSAGE

“SIZE FOR TERMINALS
:SWITCH CONTROL
*YES-JUMP

;SU TT1 RECV INTR VECTOR
‘PRI

“PMT MODE MSG.

*GET MESSAGE ADDRESS
:SEND MESSAGE
:SEND 'READY'

*GET MESSAGE ADDRESS
;SEND MESSAGE
:"ENTER COMMANDS'*
*GET MESSAGE ADDRESS
:SEND MESSAGE

; MODE ANSWER AND TTY VECTOR SETUP
002342
002350
002356
002364
002366

113777
142777
122777
001004
052737

177562
000240
000120

176636
176630
176622

100000

001176

20100 002376
20200 002402
20300 002410
20400 002416
20500 002422
20600 002430
002430
002434

005037
012737
012737
005037
117737

001176
017240
000340
001160
176560

012705
004737

001160
020310

20800 002446
20900

000002

20000 002374

20700 002440

000402

012737

000101

000060
000062

SEQMS:

28:
3$:

001160

177560

4%:

MOVB
BICB
CMPB
BNE
BIS

a#177562.aPNTR
#240,3PNTR
#'P.aPNTR
2
#81T15,PMODE

:GET INPUT ANSWER
*STRIP PARITY & LC
*PMT MODE ?
‘NO- JUMP
“YES- FLAG IT

CLR
MOV
MOV
CLR
MOVB
SENDC
MOV
JSR

PMODE
#TTYIN, a#60
#PR17, 262
WORK
aPNTR,WORK
#WORK
#WORK ,RS
PC,CSEND

:DMT MODE
*SET TTY IN VECTOR
:PRIORITY 7

B8R

MOV
RTI

#101,3#177560

;ECHO THE CHARACTER
*GET MESSAGE ADDRESS
;SEND MESSAGE

:CONSOLE ACTIVE

(ZLAIBO LAQO,

START POINT

LA34 DMT PROG

FOR PROGRAM

MACRO M1110

JINITIAL

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
S%ggg 002566

005737
001471
004737
032737
001452
004737
005737
001433
004737
004737
005737
001402
000137
032737
001412
005037

001214

012705
005037
004737
000137
105237
000137

042552
001174
031706
002730
001116
002462

23400 002572
002572
002576
002602
23500 002606
53988 002612

012705
005037
004737
005037
000137

042514
001174
031706
001214
002730

105037
004737
012737
000137

001116
003356

24000 002626
52;88 002634

001120

004036
002000

LSEQ:
001116

1%:

003302
001214
003356
003460
001214
002730
010000

000001
002730

001116

28:
3%:
4%:

5%:

108:

13%:
001214

52288
24500 002640
24600 002644
24700 002650
24800 002654
24900 002656
25000 002662
25100 002666
25200 002672
25300 002676
25400 002700
002700
002704
25500 002710
25600 002716
25700 002722
25800 002730
25900 002734

E
PAGE 28

SEG 0030

5;388

23800 002616
23900 002622

26-FEB=79 14:37

TEST STARTUP SEQUENCE

TST
BEQ
JSR
BIT
BEQ
JSR
TST
BEQ
JSR
JSR
TST
BEQ
JMP
BIT
BEQ
CLR
SENDALL
MOV
CLR
JSR
JMP
INCB
JMP

SRCONT
20%
PC,GETSWS
#BIT10,S0
13%
PC,VALID
GO
108
PC,GETTST
PC,MODCON
GO
3%
40%
#B1T12,S0
5%
GO
#MSGS?2
#MSGS2
R5
MODE
PC, SEND
408
SO
1%

SENDALL
MoV
CLR
JSR
CLR
JMP

#MSGS1
#MSGS1,R5
MODE
PC,SEND
GO
408

sJERROR INVALID TEST NO. x#xx=
;BUILD SEND CALL USING MESSAGE ADDRESS

CLRB
JSR
MOV
JMP

SO
PC,GETTST
#1,G0
40%

;SU FOR TEST O
;TEST ADDR & INFO

;SWITCH CONTROL 7
;NO=JUMP TO 20
JREAD SWITCH REG.

;TEST NO. IN Sws ?
;NO= GOTO 13
;CHECK VALIDITY
;NO GOOD GOTO 10

;TEST ADDR & INFO

;MOCE CONFLICT ?

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

:ERROR MODE CONFLICT ##s%s
:BUILD SEND CALL USING MESSAGE ADDRESS

;NOW SEND THE MESSAGE
;TRY NEXT TEST

sNOW SEND THE MESSAGE

; CONSOLE CONTROL SECTION
004737
004737
005737
001402
000137
004737
042705
122705
001411

003356
003460
001214

208%:

002730
004104
000240
000131

21%:
25%:

012705

042327

012737
000137
112737
005737
001405

177777
002730
000001
001214

004737

020310

001214
001214

27%:
408%:

JSR
JSR
TST
BEQ
JMP
JSR
BIC
CMPB
BEQ
SENDC
MoV
JSR
Mov
JMP
MOVB
TST
BEQ

PC,GETTST
PC ,MODCON
GO
25%
408
PC ,ANYWAY
#240,R5
#'Y.,RS
27%
#MSGK1
#MSGK1,R5
PC,CSEND
#-1,G0
40%
#1,G0
GO
43%

;GET TEST ADDR & INFO
sMODE CONFLICT ?

;YES- GOTO 25

;GO START TEST
;RUN ANYWAY ?

;YES GOTO 27

:SEND 'READY''
:GET MESSAGE ADDRESS

; SEND MESSAGE
;GO BACK TO WAIT

(ZLAIBO LAQO,

START

POINT

FOR PROGRAM

26000 002736
26100 002740
26200 002744

26300 002750

26400

LA34 DMT PROG

100002
000137
000137

000137

002336
002754

002450

MACRO M1110

26-FEB=79

14:37

41%:
42%:

BPL
JMP
JMP
JMP

43%:

PAGE

28~1

42%
WSEQ
RSEQ
LSEQ

SEC 0031

JWAIT FOR NEW COMMANDS
;START TESTING

JGET NEW TEST DATA FROM SwS

CZLAIBO LAOO, LA3%4 DMT PROG

START POINT FOR PROGRAM

MACRO M1110

26~FEB=79 14:37

26690

5%88

26900 002754
27000 002760
27100 002764
27200 002766
002766
002772
002776
27300 003002
276400 003006
27500 003012
27600 003016
27700 003022
27800 003026
27900 003030

28000 003036

004737
Q05757
001474

033062
001216

012705
005037
004727
004777
004737
005277

037370
001174
031706
176106
034250
176074

004737
005737
001433
017737

032737

001404
052737
000402
005037

28600 003070
28700 003076
23800 003102
28900 003110
29000 003116
29100 003124
29200 003126
29300 003134
29400 003136
29500 003142
29600 003144
29700 003146
533800 003152

053737
005137
042737
043737
032737
001423
032737
001406
005737
001401
000000
0007137
000137

20000 003156
003156
003162

3
SEQ 0032

;TEST RUN & POST RUN CONTROL

28100 003044
28200 003046
28300 003054
28400 003056

28500 003062

PAGE 29

042737

30100 003166
30200 003170
30300 003174
3040C 003200
30500 003204
30600 003212
30700 003214
30800 003220
30900 003224
%}% 003226

012705
004737
000000
000137
105237
004737
023727
001407
004737
005737
001763
000137

31200 003232
31300 003236
3140C 003242
31500 003250
31600 003252
31700 003256

005237
004737
032737
001406
005737
001401

RSEQ:

003510
001120
176066

001000
100000

001176

067377

001160

001176

1%:

001160
001160
007377
001160
010000

2%:

001160
001116
001116

5%:

000400

001116

6%:

001116

001120

002316
002754

8%:
9%:
91%:

042460
020310

10%:
177777

003460
001214

;

002754

118:

001124
003634
000400

15%:

00112C

001116

PC,RESETO
uuT
91%
#MSG75
#MSG75,R5
MODE
PC,SEND
PC,aTEST
PC,QUIET
aSEQ
PC,EOPT
SRCONT
5%
aSWR , WORK

JRESET THE TERMINALS
JANY TERMINALS TO TEST

BEQ
BIS
BR
CLR

1%
#BI1T15,PMODE
2%
PMODE

;CHECK SWITCH REG FOR CHANGES

BIT

001160

002220
001116
003356
001114

JSR
TST
BEQ
SENDALL
MoV
CLR
JSR
JSR
JSR
INC
JSR
TST
BEQ
MoV

16%:

BIC

BIS
COM
BIC
BIC
BIT
BEQ
BIT
BEQ
TST
BEQ
HALT
JMP
JMP

#B1T9, WORK

#007377 ,WORK

;BUILD SEND CALL USING MESSAGE ADDRESS

;NOW SEND THE MESSAGE
;GO DO TEST >=d=d=>=>=d>=>=>=>
;WAIT TILL DONE
sPASS COUNT +1
JREPORT PASS DONE
;SWITCH CONTROL ?
;NO- GO TO §

;LOOK AT BITS 15,114,713, £8

WORK
, SO
WORK
#007377 ,WORK
WORK
, SO
#81T12,S0
;SEQUENCE TESTS ?
108
;YES= JUMP TO 10
#B1T78,S0
SEND OF TEST HALT ?
9%
:NO JUMP
SRCONT
sSWITCH CONTROL ?
8%
:NO JUMP
FEND O BT iiicsisisinsnnneenssvenss
SEQ8
;GET NEW CONTROL INFO
RSEQ
cRESTART TEST

SENDC ~ #MSGK%S
MOV
#MSGK6 RS
JSR
PC,CSEND
HALT
JMP
ISEQ
INCB
SO
JSR
PC,GETTST
(MP
TEST A1
BEQ
15%
JSR
PC ,MODCON
TST
GO
BEQ
108
JMP
RSEQ

INC
JSR
BIT
BEQ
IST
BEQ

PASSNO
PC,EOP
#B178,S0
19%
SRCONT
17%

sNO TERMINALS SELECTED !!!
:GET MESSAGE ADDRESS
: SEND MESSAGE

sPOINT TO NEXT TEST
;GET TEST ADDR B INFO
;END OF TABLE ?
: YES= JUMP
s CHECK MODE
;BAD= TRY NEXT TEST
;0K GO DO NEXT TEST

;PASS NUMBER +1
sREPORT PASS COMPLETE
sEND OF PASS HALT ?
sNO= Jump
:SWITCH CONTROL ?
+NO JUMP

CZLAIBO LAQO, LA34 DMT PROG

START POINT FOR PROGRAM

MACRO M1110

26~FEB=79 14:37

31800 003260
%;888 003262

000000
000137

002450

17%:

32100 003266
32200 003272
32300 00327¢
32400
32500
32600 003302
32700 003306
32800 003312
32900 003314
33000 003322
33100 003324
33200 003332
33300
33400 003334
33500 003340
33600 003344
33700 003346
33800 003354
33900
34000 003356
34100 003362
34200 003366
34300 003374
34400 003400
34500 003406
34600 003412
34700 003420
34800 003426
34900 003434
35000 003442
35100 003450
35200 003456
35300
35400 003460
35500 003466
35600 003472
35700 003474
35800 003500
35900 003502
36000 003506
36100
26200
36300
36400 003510

105037
004737
000137

001116
003356
002754

19%:

005037
105737
002407
123727
003003
012737
000207

001214
001116

36500 003514
36600 003522
36700 003526
36800 003532
36900 003540
37000 003546
37100 003554
37200 003560
37300 003564
37400 003572

000022

000001

001214

LSEQ

CLRB
JSR

SO
PC,GETTST

VALID:

CLR

4%:

BLT
CMPB
BGT
%
RTS

4%
S0, #2¢2
4%
#1,G0
PC

REAL:

CLRB

JMP

TSTB

105037
005737
100403
012737
000207

001214
001212

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

001
001
001
001
001
001112
001160
004424
175460
000002
175444
000002

001112
001114
001112
001212
001112

ADD
MOV
ADD
MOV
ADD

112737

000001

001214

MODCON: MOVB

005737
001405
105737
100002
005037
000207

000001

001176

001214

1%:
GETTST:

TST
BMI

MOV
RTS

001160

CLR
CLR
MovB

001112

ADD

001112

SEQ
WORK
, SEQ

1518

8PL
2%:

CLR
RTS

ISET

1E3T O

;START

TEST.....

;POINT

TO PASS NO.

TSTTYP
1%
#1,G0
PC

ASL
ADD

BEQ

PASS ccceqsetecsinghnedsonucnn
JGET NEW TEST NO. ETC.

ASL

TST

O OF

RSEQ

WORK
SEQ
SO,WORK
WORK

RTS

001212
001214

SEQ 0033

HALT
JMP

22%:

001116

H 3
PAGE 29-1

WORK
, SEQ

#TSTTBL,SEQ
dSEQ,TEST
#2,SEQ
asSEQ,TSTTYP
#2,SEQ
PC

#1,G0
PMODE

GO
PC

;END OF TEST PASS ROUTINE
005037
113737
012705
004737
113737
113737
017737
012705
004737

001134
001116
020600
033730
020604
020605
175340
020600
033730

113737

020604

113737

020603

001134
035106
035107
001134

035075
035076

EOPT:

CLR TEMP

MOVB
MOV
JSR
MOovB
MovBs
MoV
MOV
JSR
MOvB
MOVB

SO, TEMP
#EBUF ,R5
PC.BIOCT
EBUF +4 ,MSGO3+23.
EBUF +5 ,MSG03+24.
asSEQ, TEMP
#EBUF ,RS5
PC,BIOCT
EBUF +3,MSGO3+14.
EBUF +4,MS5GO3+15.

sCONVERT TEST NO TO ASCII

sPUT IN MSGO3
s CONVERT PASS NO.

sPUT IN MSGO3

CZLAIBO LAOO, LA34 DMT PROG

START POINT FOR PROGRAM

37500 003600
37600 003606
003606
003612
003616
37700 003622
003622
003626
37800 003632
37900
38000
38100
38200
38300 003634

003634

003640
003644
38400 003650
003650
003654
38500 003660
38620 003666
38700 003672
38800 003676
38900 003702
003702
003706
003712
39000 003716
003716
003722
39100 003726
003726
003732
003736
39200 003742
003742
003746
39300 003752
39400
39500
39600
39700

d-h

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

113737

020605

012705
005037
004737

035057
001174
031706

012705
004737
000207

035057
020310

MACRO M1110

26~FEB=79 14:37

PAGE 292
SEQG 0034

035077

MOVB
EBUF+5,MSG03+16.
SENDALL #MSGO3
JREPORT END OF TEST PASS
?Ex
;gggos.ns
;BUILD SEND CALL USING MESSAGF ADDRESS
JSR

PC,SEND

;NOW SEND THE MESSAGE

JSR

PC,CSEND

;SEND MESSAGE

SENDC
MOV
RTS

#MSGO3
#MSGO3,R5
PC

:GET MESSAGE ADDRESS

“END” OF " PASS” SUBROUTINE
"

012705
005037
004737

012705
004737
013737
012705
004737

EOP:

035040

001174

031706
035040
020310
001124
020600

105037

033730
020606

012705
005037
004737

020600
001174
031706

012705
004737

020600
020310

012705
005037
004737

037370
001174
031706

012705
004737
000207

037370
020310

JSR
SENDC

001134

004002
000340
175126

PC,CSEND

:SEND MESSAGE

MOV
MOV

PASSNO, TEMP
#EBUF ,RS

:BUILD SEND CALL USING MESSAGE ADDRESS

JSR

PC,SEND

:NOW SEND THE MESSAGE

MOV
JSR

#EBUF ,RS
PC,CSEND

:GET MESSAGE ADDRESS
:SEND MESSAGE

JSR
_NDC

PC,SEND
#MSG7S

:NOW SEND THE MESSAGE

JSR

PC,CSEND

:SEND MESSAGE

RTS

175106

000006
000000

000004
000006

:CONVERT PASS NO TO ASCII

PC,BIOCT
EBUF+6
#EBUF
:Sggr.ns

MOV

001122
001116

:GET MESSAGE ADDRESS

JSP
CLk3
SENDALL
ta)x

WEBUF

SENDALL #MSG75
u&)x
;noggnRS

000176

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

#MSGO1,RS

SENDC

000004
000006
001116

PC,SEND
#MSGO1

MOV
JSR

:
:
012737
012737
017737
000240
000407
012737
017737
000002
012737
012737
000207

SENDALL #MSGO1
r&)g
mggoms

#MSG7S RS
PC

:PRINT PASS NO.

:SEND CRLF
;BUILD SEND CALL USING MESSAGE ADDRESS

:GET MESSAGE ADDRESS

*RETURN

TEST FOR HARDWARE SWITCH REGISTER
SWR = 176 IF NONE ON SYSTEM

SWRTST: MOV

#2%, TRAP4

1$:

MOV

aSwWR,
SO

BR
2%:

3$
MOV
g?}/

#176,SWR
ASWR, SO

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

3$:

MOV

#6, TRAP

:RESET TRAP CATCHER

MOV
NOP

g?\sl

#PR17,TRAPL+2

:?.rwuz

CZLAIBO LAQO, LA34 DMT PROG

START PCINT FOR PROGRAM

MACRO M1110

41200
23288
41500
41600
417CC
41800

26-FEB=79 14:37

J
3
PAGE 29-3

SEQ 0035

veadadatat it ile iRt Rl ddedssdicidiiitsdidisdsisissitisiissisiiss
S ROUTINE TO GET' SWITCHES
004036
004044
004046
004050

41900 004056

023727
001001
©00000
017737

032737

42000 004064
42100 004066

001404
052737

42300 004076
42400 004102

005037
000207

42200 004074

42500

000402

001122

000176

GETSWS:

175046

001116

3%:

00100
100000

001116
001176

001176

1$:
2%:

42600
2;;&9

CMP
BNE
HALT
MOV

ASWR, SO

;REAL SWS ?
JYES SKIP HALT
JALLOW OPERATOR TO CHANGE
*READ SWS TO WORK COPY

BEQ
BIS

1%
#BIT15,PMODE

‘NO
:YES= SET THE FLAG

BIT

B8R

CLR
RTS

SWR,#000176
3%

#BIT9.50

*PMT MODE ?

PMODE
PC

SRENBECRES AP AR E PR E P R
R R bt aACtRne
*"ROUTINE TO" HANDLE 'MODE’ CONFLICTS

42900 004104

43000 004112

43100 004114

004114

004120

43200 004124

004124

004130

43300 004134

012737

004146

012705

042426

MOV

#MSGKS ,RS

012705

023420

MOV

STALL

#10000.

JSR

PC,MSTALL

005005

004737

004737
105705

43400 004136

001002

2% 004144

000207

43500 004140
43800 004146

112705

113705

43900 004152

012737

44100 004164

100375

44000 004160

4200 004166
44300 004172

105737

110537

000060

44600 004214
44700

005037
012737
000002

CLR

SENDC

020310

JSR

033676

TSTB

000116
177562

017240
177564

1$:

28:

000060

177566

001146
000101

38:
48:

BNE

sss5si838csEss

#38,a460

;SET INTERRUPT TO 3%

#MSGKS

;RUN ANYWAY ? MSG

PC, CSEND

;SEND MESSAGE

:GET MESSAGE ADDRESS

#10000. ,RS

;SETUP STALL TIME CONSTANT

#'N.RS

;ASSUME NO OF NO ANS

MOVB

a#177562.RS

:GET ANS

TSTB

aN177564

RTS

MOV
BPL

MOV
JSR
177560

MOVB

MOVB
SENDC

004172 012705 037370
004176 004737 020310

44400 004202
44500 004206

ANYWAY: MOV

CLR
MOV
RTI

176

#TTYIN, 3460

*RESTORE TTY INTR HANDLER

:ECHO THE CHAR

#MSG75 RS
PC,CSEND

:GET MESSAGE ADDRESS
;SEND MESSAGE
*ABORT THE TIMEOUT
:ENABLE CONSOLE

RS,a#177566
#MSG7S

LOOPD
#101,a#177560

CZLAIBO LAOO, LA34 DMT PROG

START POINT FOR PROGRAM

MACRO M1110

44900
45000

K 3
PAGE 30

SEQ 0036

: THIS ROUTINE WILL SCAN ALL LINES FOR ACTIVE TERMINALS
: BE REQUESTING AN ANSWERBACK FROM ALL LINES. THE SELECT

2?588

Y BIT WILL BE SET ACCORDINGLY IN THE DZLINE TABLE.

45300

45400 004216
45500 004224

004224

00423C
004234

012737

004410
001174
031706

004240 012705

013560

004244
45700 004250

004737
005037

45900 004262

001424

45800 004254

46000 004264

001140

023737

033676
C01160

001160 001152

006300
005760

020634

46400 004300

042760

100200

020634

46800 004322
46900 004326

005060
005237

000200

024054
001160

020634

47100
47200
47300
47400

004334
004340
004344
004350

005037
005037
005037
023737

001140
001204
001216
001204

47600 004360
47700 004364
47800 004366

013700
006300
105760

001204

48000 004374
48100 004400

005237
005237

001216
001204

48309 004406

000207

46500 004306 005237
46600 004312 000760
46700 004314 052760
47000 004332

47500 004356

47900 004372

48200 004404

48600 004410
48700 004414
288800900 004422

000750

001413

100402

000761

004737
052760
000207

001160

;LINK TO RECV ROUTINE

MOV

#MSGO5 ,RS

‘BUILD SEND CALL USING MESSAGE ADDRESS

STALL

#6000,

JSR
CLR

1$:

001152

WORK ,RO

INC
B8R
BIS
CLR
INC

B8R

68:

8s:

020634

5%:

RO
DZL INE (RO)

ACTIVE (RO)
WORK

MOV
ASL
TSTB

ONL INE ,RO
RO
DZLINE(RO)

INC
INC

uuT
ONL INE

RTS

JSR
8IS
RTS

TERMINALS

;NOW SEND THE MESSAGE

‘WAIT A WHILE

:SETUP STALL TIME CONSTANT

;ALL LINES DONE ?
YYES= EXIT

;X2 FOR WORD OFFSET
*BIT 15 SHOULD BE SET

“NO RESPONSE- DESELECT

WORK
;CHECK NEXT LINE
1%
:
#B177,DZL INE (RO)
;SET LINE INACTIVE
HOOK
ONL INE
uut
ONL INE ,NUML
IN

BEQ

*PROMPT

#100200,DZL
INE (RD)

CLR
CLR
CLR
MP

aMI
7%:

PC MSTALL
WORK

MOV
BIC

48:

#6000. ,RS

WORK , NUML IN

B8PL
3$:

MODE_
PC, SEND

CMP

BEQ

ASL
15F

020634

033446
100000

#5% ,HOOK

SENDALL #MSGOS

MOV

013700 001160
100006

MOV
CLR
JSR

46100 004270
46200 004272

46300 004276

SCAN:

012705 035155

005037
004737

45600 004240

49000

26-FEB=79 14:37

:CHECK NEXT LINE

PC ,KBOUT
#BIT15,DZL INE (RO)
PC

:REMOVE CHAR FROM BUFFER
*SET RESPONDED BIT

CZLAIBO LAQO, LA34 DMT PROG

START POINT FOR PROGRAM

MACRO M1110

26~FEB=79 14:37

PAGE 31

3
SEQ 0037

TEST SEQUENCE TABLE
.SBTTL
;ONE WORD OF TEST ADDRESS
ONE WORD OF TEST DESCRIPTION DATA

TEST MANUAL INTERVENTION
BIT7
BIT4:0 TEST NUMBER
ONE WORD OF PASS COUNT
TSTTIBL:

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

;PRINTHEAD DOT MATRIX TEST

;HORIZONTAL PITCH TEST

2400 004456
2500 004460
2600 004462
2700 004464
2800 004466
2900 004470
3000 004472
3100 004474
3200 004476
3300 004500
3400 004502
3500 004504

;SPACE - BACKSPACE TEST
:SET MARGINS TEST

sHORIZONTAL TABS TEST
sMULTIPLE LINE FEED TEST

JHORIZONTAL MOTION TEST
000000
011164

5700 004560

004612
000217

OWW

mé -ags -

—_—

—

—
-0
-0
m
moo
mo
v
wnoo
—
OO~
—
2
-.—DO-A —lo-d-l
NNOONONOWnWn
S

011630
000013
000000
012170
000014
000000
015676
000015
000000
016340
000016

;BUFFER OVERRUN TEST

TES

000

;VERTICAL PITCH TEST

sBELL TEST
sLIFE TEST

;DYNAMIC EXERCISOR
;BAUD RATE TEST

CZLAIBO LAOO, LA34 DMT PROG

TEST

SEQUENCE

5800 004562
5900 004564
6000 004566
6100 004570
6200 004572

TABLE

000000
012260
000220
000000
014412

6300 004574
6400 004576

000221
000000

6700 004604
6800 004606
9388 004610

000000
177777
000000

6500 004600
6600 004602

015214
000222

MACRO M1110

26-FEB=79 14:37
000000
TEST20
000220
000000
TEST21
000221
000000
TEST22
000222
000000
177777
000000

M 3
PAGE 31-1

SEC 0038

;DMT KEYBOARD ECHO TEST

;DMT CHARACTER CODE ECHO TEST
;DMT PITCH SETUP TEST

JEND OF TABLE FLAG

CZLAIBO LAOO, LA34 DMT PROG

TESTS

MACRO M1110

26-FEB=79 14:37

7200
7300

N 3
PAGE 3¢

.SBTTL

7400
7500
7600
7700 004612

004612
004616
004622

7800 004626
7900 004632

8000 004636
8100 004642
8200 004646
004646
004652
004656
8300 004662
004€62
004666
004672
8400 004676
004676
004702
004706
8500 004712
8600 004716
8700 004722
8800 004726
004726
004732
004736
8900 004742
004742
004746
004752
9000 004756
004756
004762
004766
9100 004772
9200 004776
9300 005002
9400

10600 005054
10700 005056

TESTS

(1 OF " THE" VAR100S BAUD" RATES.
INTERVENTION IS REQUIRED

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

SENDALL " #MSG

012705
005037
004737
012703
012704
012702
004737

035762
001174
031706
036052
036074
005374
033524

012705
005037
004737

037677
001174
031706

012705
005037
004737

036157
001174
031706

012705
005037
004737
004737
012702
004737

036332
001174
031706
005004
005402
033524

012705
005037
004737

037677
001174
031706

012705
005037
004737

036326
001174
031706

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

012705
005037
004737
004737
005037
000207

036332
001174
031706
005004

JSR

000240
005037
012737
023737
002402
000137
013700

MOV
CLR
JSR
MOV
MOV
MOV
JSR

27.""'l'lllll'lll"ll"'l'll'lll'lllll""l'll'

#MSG27 ,R5

;BUILD SEND CALL USING MESSAGE ADDRESS

PC,SEND

;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
;PRINTED AT MSG

MODE

#MSG30,R3
#MSG31,R4
#T037BL ,R2
PC ,ANVENT

SENDALL #MSG88
#MSGB8,R5
MoV
MODE
CLR
PC,SEND
JSR
SENDALL #MSG32
MOV
#MSG32 ,R5
MODE
CLR
PC,SEND
JSR
SENDALL #MSG36

#MSG36,R5
PC.5$

#103782,R2
PC ,ANVENT

#MSG88
#MSG88,RS

001140

;BUILD SEND CALL USING MESSAGE ADDRESS
7% SEND THE MESSAGE

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

E%fi?o SEND CALL USING MESSAGE ADDRESS
;NOW SEND THE MESSAGE
;GET ANSWER BACK
:SU NEXT PASS
;GO THRU TABLE AGAIN
;PRINTED AT

:BUILD SEND CALL USING MESSAGE ADDRESS

;NOW SEND THE MESSAGE

EgS?LD SEND CALL USING MESSAGE ADDRESS

:NOW SEND THE MESSAGE

SENDALL
MOV
CLR
JSR

EMD SEND CALL USING MESSAGE ADDRESS
:NOW SEND THE MESSAGE
:GET ANSWER BACK

CLR

RTS

5%:

001204
03516¢
001204

6%:

005372
001204

66%:

NOP
CLR
MOV
CMP
BLT
JMP
MOV

61%:

BPL
INC
BR
NOP

020634
10500 005050

SEG 0039

001204

ASL
TSTB

ONL INE
#MSGO6
, WORK
IN
ONL INE ,NUML

66%
208
ONL INE ,RO

RO
DZL
INE (RO)
61%
ONL INE
6%

SINIT LINE O

s SHOULD BE MESSAGE

;DO ALL LINES

;IS LINE SELECTED /
;NO TRY AGAIN

(ZLAIBO LAOO, LA34 DMT PROG

TESTS

10800
10900
11000
11100
11200

005037
012737
012737
012737

010070
016324

005106
005112
005120
005126
200 005132

012705
112737
113737
004737
004737

035155
000010
001204
031706
034250

005136
005142

012705
004737

003720
033676
001136

005060
005064
005072
005100
005106

o
o

(¥,]

005237
023727
001415
105760
001407
005060
012746
004737
000000

100 005232

S
)

0o~

200 005236
300 005242

000240
042705
110577

]

500 005252
600 005256
700 005260
3800 005264
1 3900 005270

[

]

vl v

w—

— vd —d —

14000
14100
14200
14300
14400
14500
14600
14700
14800

005737
001004
005237
000137
012746
004737
000240
012746
004737
000000
005237
000137

2800 005220
2900 005222
3000 005226
WINNININNWN

26-FEB=79 14:37

B_4
PAGE 32-1
SEQ 0040

11500 005146
11600 005152
11700 005154
1
11900 005164
12000 005170
12100 005174
12200 005176
12300 005202
12400 005206
12500 005210
12600 005214
12700
:

MACRO M1110

005274
005276
005302
005304
005310
005316
005322
005324
005332

4900 005334
5000 005340
5100 005344
5200 005350
5300 005352
§400 005356

500 005362
5 600 005364
5 700 005370
5 800 005372

005237

004737

000207
005037
012737
005737
001420
127777
001007
005237
005237
005337
000762
012746
004737
000240

005237

000613
000207

177777
005220

CLR
MOV
MoV
MoV
SENDI
MOV
MOVB
mMOVB
JSR
JSR

001162
001136
001140

001175
001174

STALL

MoV

001204
005020
035113
020352

7%:

035415
020352

8%:

001204
005020
177600
173730
010070
001162
010070

108:

000007

JSR
TST
BNE
INC
JMP
MOV
JSR
NOP
MOV
JSR
HALT
INC
JMP
NOP
BIC
MovB
INC
INC
CMP

BEQ

031567
031566
035415
020352
033446

11%:

001136
016324
010070

001162

12%:

173630

13%:

0011€0
001162
010070

041014
020352

14%:

001204

i8%:

20%:

1ST18
BEQ
CLR
MOV
JSR
HALT
JSR
RTS

CLR

MoV
TST
BEQ
(MPB
BNE
INC
INC
DEC
BR
MoV
JSR
NOP
INC
BR
RTS

COUNT

#T30BUF
, WURK 1
#-1 NOTYET

#10$ , HOOK
#MSG
, ONL
OS
INE
#MSGOS5 .RS
#10,MOD+1
E
ONL INE ,MODE
PC, SEND
PC.QUIET

#2000.

#2000. ,RS
PC,MSTALL
NOTYET
7%
ONL INE

6%
#MSGO4 ,~(SP)
PC,ERRORT

#MSG15,-(SP)

s INPUT CHAR COUNT =0
;BORROW A BUFFER AREA
;GETS CLEARED WHENE DONE
;LINK TO RECV ROUTINE
JESCAPE SEQ TO TERMINAL

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

JALLOW 2 SEC FOR ANSWERBACK
;SETUP STALL TIME CONSTANT
sSHOULD BE CLR IF MSG RECVD
;GO REPORT ERROR
;DO NEXT LINE

;NO RESPONSE

;ERROR MESSAGE

ADDRESS

PC,ERRORT

;TO ERROR ROUT INE

ONL INE
6%

;DO NEXT LINE

#177600,R5
RS, aWORK1
COUNT

WORK1
COUNT 47
12%
RECERR+1(R0)
11%
RECERR(RQ)
#MSG15,-(SP)
C.ERRORT

PC ,KBOUT
PC
NOTYET

#T308UF
, WORK 1

;IF BIT15 IS SET

:CLEAR PARITY BIT
;SAVE IN BUFFER
:BUMP CHAR COUNT
;BUMP BUFFER POINTER
;LOOKING FOR 7 CHARS
:GO COMPARE TO SHOULDBE
;ERROR SET ?
sRESET THE ERROR FLAGS
sERROR MSG ADDRESS
:TO ERROR ROUT INE

:IF BIT15 IS SET

;WAIT FOR MORE

:TURN OFF FOR NOW

cRESET BUFFER _POINTER
;COMPARE ALL 5 CHARS

#MSG148,~(SP)
PC,ERRORT

ONL INE
6%

sTEST NEXT LINE

(ZLAIBO LAOO, LA34 DMT PROG

TESTS

MACRO M1110

26-FEB=79 14:37

PAGE

C_4&

32-2

SEG 0041

15900

16000

16100
16200 005374
16300 005376
16400 005400
16500 005402
16600 005404
16700 005406
16200
16900
17000
17100
17200
17300
17400
17500
17600
17700
17800
};888

18100 005410

036157
011320
000000
036326
012720
000000

TO3TBL: MSG32
11320
000000
TO3TB2: MSG35
12720
000000

036751
001174
031706

005424
005430

012705
112737

037005
000004

001174

005444
18300 005450

004737
000207

031706

005436

18400
18500

112737

000020

7 BIT

;300 BAUD , ODD PARITY ,
JEND OF

7 BIT

TABLE

=U*U PATTERN IS ALTERNATING O AND ONE BITS

TESTOO: " SENDALL #MSG42

012705
005037
004737

, ODD PARITY

e e i ieseses et seseess et assset sttt st estsstsssbtes sttt iss
sTHIS IS THE TEST OF DATA PATHS WITHIN THE LAOO
;THE

005410
005414
005420

18200 005424

;110

MoV
CLR
JSR

#MSG42 RS
MODE
PC,SEND

MOV
MOvVB

#MSG43,R5
#4 ,MODE

SENDR

001175

MOovB
4%:

JSR
RTS

#MSG43,
44

#20,MODE
+1
PC,SEND
PC

sANOUNCE TEST

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

(ZLAIBO LAOO, LA34 DMT PROG

TESTS

MACRO M1110

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

*PRINTABLE " CHARA CTERS
IS

sTHIS

19100
19200
19300 005452

005452
005456
005462

19400 005466
19500 005474
19600 005500
19700 005506
19800 005510
19900 005514

20000 005516
20100 005524
20200 005532
20300 005540
20400 005542
20500 005546
20600 005550
005550
005554
005562
005570
20700 005574
005574
005600
005606
005614
20800 005620
20900 005624
21000 005630
21100 005634
21200 005636
005636
005642
005646
21300 005652
21400 005660
21500 005662
005662
005666
005672
21600 005676

21700

D_4
PAGE 33
SEQ 0042

18700
18800
18900
19000

21800

26~FEB-79 14:37

AN ER RN

TEST

TEST PRINTS FOUR OF

sASCII CODES 047 THRU 176.

EACH PRINTABLE

CHARACTER.

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

012705
005037
004737

013737
005037
162737
003403
005237
000771

037445
001174
031706
001172
010070
000006

TESTO1:

001160

000041
010070
001164

001160

1%:

001164
001160
000177

2%:

013705
012737
112737
004737

001164
000004
000020
032310

012795
012737
112737
004737
004737
105237
005337
000736

000040
000202
000020

001160

032310
034250
001164

3%:
4%:

5%:
001174
001175

037370
001174
031706
010070

012705
005037
004737
000207

037373
001174
031706

SENDALL
MOV
CLR
JSR

CLR
SuB
BLE
INC
BR

MOV
MOV
CMPB
BGE
TST
BLE

SENDC2

MoV
MOV
MovB

JSR

SENDC2

MOV
MOV
MOvB
JSR
JSR

001174
001175

001160

012705
005037
004737
013737
000724

MoV

010070

012737
013737
123727
002050
005737
003433

6%:

001160

8%:

INCB
DEC
BR
SENDALL
MOV
CLR
JSR

#MSG81
#MSG81,RS
MODE
PC,SEND

WIDTH,WORK
COUNT
#6,WORK

#41 ,WORK2
COUNT
, WORK

. 2 4177
WORK
8%
WORK

é$
, #4
WORK2
WORK2 .RS
#4 ,MODE

#20,MODE
+1
PC, CHROUT

#4042

#40.RS
#2 ,MODE

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

WORK2
WORK

3s
#MSG7S
#MSG75,RS

MODE
PC, SEND
cgum.uonx

MOV
BR
3
SENDALL #MSG77

MOV
CLR
JSR
RTS

#MSG77 ,R5

MODE
PC,SEND
PC

;SEND TEST ID
JBUILD SEND CALL USING MESSAGE ADDRESS
sNOW SEND THE MESSAGE
JWORK = WIDTH 7/ 6

sINIT ASCII CODES
;DO WHILE CHAR < 177
;DO WHILE WORK > 0
;SEND CHAR 4 TIMES

;:GET CHAR TO R5
;GET REPEAT COUNT
;SET REPEAT MODE

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

CODE

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

;RESTORE WIDTH/6

:SKIP 3 LINES

sBUILD SEND CALL USING MESSAGE ADDRESS

sNOW SEND THE MESSAGE

CZLAIBO LAOO,
TESTS

22000
22100
22200
22300
22400
22500
22600
22700 005700
005700
005704
005710
22800 005714
005714
005720
005724
22900 005730
23000
23100
23200
23300
23400
23500
23600
23700
23800
23900
24000
24100
24200
24300
24400 005732
005732
005736
005742
24500 005746
005746
005752
005756
24600 005762
005762
005766
005772
24700 005776
005776
006002
006010
006016
24800 006022
006022
006026
006032
24900 006036
25000
25100

LA34 DMT PROG

MACRC M1110

26~FEB=79 14:37

PAGE 34

&
SEQ 0043

:..Thi's.i.s'.Thé.'NM"Péi.N'Ti&'G'EMA'A&'Téh"Tég.r""""“".""""."""'

*ALL NON=-PRINTING CHARS ARE SENT TO THE LAOO.
‘A BLANK LINE.

THE RESULT SHOULD BE

fré.si'b'z':"séhbkii’ filSlez"llllfillll'Ol"llll'llllll'l'lll'lll'l'lll'lll

012705
005037
004737

037104
001174
031706

012705
005037
004737
000207

037214
001174
031706

?Ex

;ggg44RS

;BUILD SEND CALL USING MESSAGE ADDRESS

JSR
PC, SEND
SENDALL #MSG45
gfx
;ggg4s.ns

;BUILD SEND CALL USING MESSAGE ADDRESS

JSR

:NOW SEND THE MESSAGE

RTS

PC,SEND
PC

:NOW SEND THE MESSAGE

:.'D.oi".M'A.Tkii‘i'ég"r""""""""""""""'.""":::::::::::::::::

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

012705
005037
004737

037511
001174
031706

012705
005037
004737

037373
001174
031706

012705
005037
004737

037536
001174
031706

012705
112737
112737
004737

037550
000004
000020
031706

012705
005037
004737
000207

037373
001174
031706

TESTO3:

?ER

SENDALL #MSG83

CHSGB3 RS

:SEND TEST ID

JSR

PCs;no

;NOW SEND THE MESSAGE

JSR

PC, SEND

SENDALL #MSG77
bc‘l(-)x
mgg??RS

28:

*SKIP 3 LINES
;BUILD SEND CALL USING MESSAGE ACDRESS
NOW SEND THE MESSAGE

SENDALL #MS$G84
?Ex
:SggB‘RS

SEND THE CHARS
BUxLD SEND CALL USING MESSAGE ADDRESS

JSR

:NOW SEND THE MESSAGE

SENDR

MOV

MOVB

MovB

;BUILD SEND CALL USING MESSAGE ADDRESS

JSR

PC, SEND

#MSG8S, 44

#MSG8S RS

‘MAKE 4 LINES OF 10 BOXES

#4 MODE

#20,MODE+1
PC, SEND'

SENDALL #M$G77

?EX

;ggg??.RS

;SKIP 3 LINES

JSR

PC,SEND

:NOW SEND THE MESSAGE

RTS

JBUILD SEND CALL USING MESSAGE ADDRESS

TESTS

25300
25400
25500
25600
25700
25800
25900
26000
26100 006040
006040
006044
006050
26200 006054
006054
006060

26300 006070

26400
26500
26600
26700
26800
26900
27000
27100
27200
27300

006074
006102
006104
006110
006114
006120
006126
006134
006142
006150
006150
006154
006160
27400 006164
006164
006170
27500 006174
006174
006200
006204
27600 006210
006210
006214

006220
27700 006224
006224
006230
006234
27800 006240
006240
006244
006250
27900 006254
006254
006260
006264
28000 006270
006270
006274
006300

LA34 DMT PROG

MACRO M1110

26-FEB=79 14:37

PAGE

F
4
35

SEQ 0044
---------------------------------------------------------------------

mm
-~

CZLAIBO LAOO,

S DOWN LINE LOADED FROM THE PROGRAM.
NTED IDENTIFYING THE CURRENT PITCH,
A MESSAGE WILL B
;FOLLOWED BY THREE
NES OF
.Z AT THE CURRENT PITCH,
:PITCHES TESTED : 10, 12, 13.2, 16.5 CP1. ALL AT
6 LPI.
--------------------------------------------------------------------

lll'.ll'.l.l.ll'l'l'.l."l"'.l'lCllllll'l'll"l"lll"ll'lll'll'll'l

TESTO4:

SENDALL #MSG109
MOV
#MSG109,RS
CLR
MODE

012705
005037
004737

040120
001174
031706

012795
005037
004737
005037
023727
003122
005037
005037
005037
13737
013737
062737
062737

037373
001174
031706
001160
001160

000006

001164
006366
006370
001160
006366
006402
006372

006366
006370
006370
006366

017705
005037
004737

000214
001174
031706

012705
004737

000250
033676

012705
005037
004737

037370
001174
031706

012705
005037
004737

037¢77
001174
031706

017705
005037
004737

000136
001174
031706

nov

012705
005037
004737

037753
001174
031706

MOV

012705
005037
004737

037771
001174
031706

MOV

012705
005037
004737

040001
001174
031706

JSR

PC,SEND

;NOW SEND THE MESSAGE

MOV

#MSG77 ,RS

:BUILD SEND CALL USING MESSAGE ADDRESS

SENDALL #MSG77

1%:

(LR
JSR
CLR
CMP

BGT
CLR
CLR
CLR
MOV
MOV
ADD
ADD

SENDALL
MOV
CLR
JSR

STALL

2%:

;SEND TEST ID
;BUILD SEND CALL USING MESSAGE ADDRESS

MOV
JSR
SENDALL
MOV
CLR
JSR

SENDALL
MOV .
CLR
JSR

MODE
PC,SEND
WORK
WORK ,#6.

4%
WORK?2
T11A
7118
WORK,T11A
T11A,7118

#TABLHF ,T118B
#TABLH,T11A

aT11B
al11B,RS
MODE
PC,SEND

#250

#250,R5
PC,MSTALL
#MSG75
#MSG75 RS

MODE
PC,SEND

#MSG88
#MSG88.RS
MODE
PC, SEND

SENDALL arhA

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

:SETUP STALL TIME CONSTANT

s SEND CRLF
;BUILD SEND CALL USING MESSAGE ADDRESS
sNOW SEND THE MESSAGE
:SEND ID MESSAGE
sBUILD SEND CALL USING MESSAGE ADDRESS

sNOW SEND THE MESSAGE

PC, SEND

;NOW SEND THE MESSAGE

#MSG93 RS

;BUILD SEND CALL USING MESSAGE ADDRESS

MODE
PC, SEND

#MSG96 RS
MODE
PC, SEND

SENDALL #MS$GS8
MOV
#MSG98,RS
CLR
JSR

;DO WHILE WORK > 0

sBUILD SEND CALL USING MESSAGE ADDRESS

SENDALL #MSG96
CLR
JSR

;NOW SEND THE MESSAGE

aT11A.R

MODE

SENDALL #MSG93

CLR
JSR

;3 LINES

MODE
PC,SEND

sNOW SEND THE MESSAGE
JBUILD SEND CALL USING MESSAGE ADDRESS
sNOW SEND THE MESSAGE
JBUILD SEND CALL USING MESSAGE ADDRESS

;NOW SEND THE MESSAGE

(ZLAIBO LADO, LA34 DMT PROG
|

STS

28100 006304
006304
006310

006314

28200 006320
28300 006326
28400 006330
28500 006334
28600 006336
28700 006344
28800 006350

006350
006354
006360
28900 006364
29000
29100 006366

29200 006370
29300 006372
006400
29400 006402
006410
29500
29600
29700

012705
005037

004737

023727
003003
005237
000717
062737
000137
012705
005037
004737
000207
000000
000000
037746
037727
040006
040113

040056
001174
031706
001164

MACRO M1110

26-FEB=79 14:37

35-1

SEG 0045
SENDALL
MOV

000003

001164

000002
006074

PAGE

001160

7%:
4%:

037373
001174
031706

037741

037734

040013

0400620

CLR
JSR
CMP
BGT
INC
BR

ADD
JMP

#MSG107
#MSG107
RS
MODE
PC,SEND

WORK?2 ,#3

JBUILD SEND CALL USING MESSAGE ADDRESS
sNOW SEND

JGET NEXT PITCH

SENDAL
L. #MSG77
;ggg??,RS
CLR
PC,SEND
JSR

MOV

THE MESSAGE

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

RTS

T11A:
T11B:

TABLH:

. WORD
. WORD
.WORD

000000
000000

MSG92,MSG91,MSG90,MSG8S

TABLHF
:

.WORD

MSG99,MSG100,MSG101,MSG108

CZLAIBO LAQO, LA34 oMT PROG

TESTS

MACRO M1110

26-FEB=79 14:37

PAGE

SEG 0046
:.'Sf,A'cE";'éAEkgfiAté"Té's.r.".".""."'

LA A

e re

'l..'l.;.l

sTHIS TEST PRINTS A LINE OF ALTERNATING SLASHES AND APA(ES,
s THEN BACKSPACES

sWITH

'\'S,

THROUGH THE

LINE

THE RESULTING LINE

;X'S AND SPACES.

OVERPRINTING THE

'/'

SHOULD BE A LINE OF

ALTERNATING

TWO LINES ARE PRINTED PER PASS.

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

LECL A

30800 006412
006412
006416
006422
30900 006426
31000 006434
31100 006440
31200 006442
31300 006450
31400 006454
31500 006462
006462
006466
006474
006502
31600 006506
31700 006510
31800 006512
31900 006520
32000 006524
006524
006530
006536
006544
32100 006550

006550
006554
006560
32200 006564

32300 006570
32400 006572

006572
006576
006602
32500 006606
22600
32700

012705
005037
004737
012737
005737
003454
013737
006237
162737

037400
001174
031706
000002
010070
001172
(01160
000002

012705
113737
112737
004737
000240
000240
013737
006237

001172
001160

012705
113737
112737
004737

037440
001160
000020
031706

012705
005037
004737
005337

037370
001174
031706
010070

000721

012705
005037
004737
000207

037435
001160
000020
031706

037373
001174
031706

TESTOS5:

010070

2%:

001160

001174
001175

)

;NOW SEND THE MESSAGE

TST

COUNT

MOV
BLE

#2,COUNT

;DO UNTIL COUNT =0

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

JMAKE SHURE WE'RE NGT AT MARGIN
;SEND °7 "'

WIDTH,WORK
WORK

MovB

WORK ,MODE

JSR
NOP
NOP
MCV
ASR

PC,SEND

WIDTH,WORK
WORK

MOV

#MSG80,RS

JSR

;SU FOR 2 LINES

MOV
ASR

MOV

7%:

PC,SEND

MOovB
6%:

JSR

SENDR

001174
001175

;SEND TEST ID
JBUILD SEND CALL USING MESSAGE ADDRESS

MOovB

4%:

SENDALL #MSG78
?ex
;ggg?S,RS

SuB
SENDR
MOV

001160

#20 ,MODE +1

#MSG80,WORK

JRESET COLM COUNT

;SEND ‘BS BS \ BS"’

WORK ,MODE

#20,MODE
+1
PC,SEND

SENDALL #MSG7S

'EIEX

%?S.RS

:CRLF

JSR
DEC

PC,SEND
COUNT

:NOW SEND THE MESSAGE

SENDALL #MSG?77
??X
mgg??.ns

JSR

RTS

PC,SEND
PC

;BUILD SEND CALL USING MESSAGE ADDRESS

:SKIP 3 LINES
JBUILD SEND CALL USING MESSAGE ADDRESS

;NOW SEND THE MESSAGE

SENREY.

(ZLAIBO LAQO, LA34 DMT PRCG

TESTS

32900
33000
33100
33200
33300
33400
33500
33600
33700
33800
33900
34000
34100
34200
34300
34400
34500
34600
34700 006610
006610
006614
006620
34800 006624
34900 006630
355000 006634
35100 006640
35200 006646
35300 006650
35400 006654
35500 006660
35600 006666
35700 006674
006674
006700
006704
35800 006710
35900 006714
36000 006720
36100 006726
36200 006730
36300 006734
006734
006740
006744

36400 006750
36500 006756
36600 006762
36700 006766
36800 006772
36900 007000
37000 007006
37100 007014
37200 007022
37300 007030
37400 007036
37500 007044
37600 007046

MACRO M1110

26-FEB=79 14:37

1_4
PAGE 37
SEQ 0047

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

*SET MARGINS TEST
LN

:
:

007516
007516

017705
005037
004737
006237
005037
023727
003402
000137

000616
001174
031706
007512
007514
007514

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

007500
001174
031706
007514
007516
007516
007454
007514
007466
000504
007514
007473

117737
123737
103405

(12737

000004

007422

gfigélgPEClFYING AN ERROR

1%:
48:

IT'S NOT AT

THE LH

.au... PGB
U IO AL,

JSR
CLR

PC,SEND
WORK
WORK1
Wi
W1.+3

:NOW SEND THE MESSAGE

wi
#TABLHF ,W3

;%2 FOR WORD OFFSET
*PITCH MSG TABLE

CLR
CLR
MP
BLE
JMP

ASL
MOV

ADD

:DO 4 PITCH SETTINGS
*IF DONE GOTO 30

43
30%

w1, W3

SENDALL aw3

28:

:SEND TEST ID
*BUILD SEND CALL USING MESSAGE ADDRESS

:SETUP H PITCH

?EX

:ggéns

:BUILD SEND CALL USING MESSAGE ADDRESS

JSR
ASR

PC . SEND
Wi

:NOW SEND THE MESSAGE

CLR
cTMP
BLE
JMP
SENDALL

W2
W2,
44
5%
208
#T12FIX

:DO 5 MARGINS TESTS

QEAEFIX‘RS

:RESET MARGINS
*BUILD SEND CALL USING MESSAGE ADDRLSS

JSR

PC, SEND

;NOW SEND THE MESSAGE

ASL

ADD

#TBL12A,R1

;POINT TO SETUP ADDR

#TBL128.W3

;POINT TO LH MARGIN

#TBL12C, W3
@w3,WORK!

:POINT TO RH MARGIN
*C”T RH MARGIN

#5,we

sNO DO NEXT PITCH GROUP

?EX

MOV
ADD

MOVB
MOV

007514

SENDALL #MSG111
??X
‘ggg111.as

MOV

000005

ERROR IF NOT AT LH MARGIN

MOV

001172

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

000462
001162

:
:
:

TESTO6:

007432
007512
006402
007512

THIS TEST WILL SET 4 PAIRS OF L & R MARGINS
THEN WILL PRINT A LINE OF = SIGNS THAT SHOULD

000003

BE WITHIN THOSE MARGINS. ALSO A MESSAGE wiii BF

CEXAMPLE

040204
001174
037706
001160
001162
007512
007512

:
:

212705
005037
004737
005037
005037
005037
023727
003402
000137
006337
012737
063737

ADD
MOVB

gnge
L

MOV

we,w3

W3,R1

w2, W3

aw3,WORK
w2, W3

ggnx1.uxorn

*GET LH MARSIN

‘WITHIN RANGE OF PAPER ?

CZLAIB) LAOO, LA34 DMT PROG

TESTS

37700 007054

000137

37900 007066
38000 007072
007072
007076
007102
38100 007106
007106
007112

005337

37800 007060

007120

007422

113737

001160

012705
005037
004737

037370
001174
031706
i
037307
001164

012705
113737
1127%7
004737

001164

000020

001164

001164
001164

SENDC2
MOV

#°.,W0k2
.05

;PRINT PERIODS
;GET CHAR TO RS

#70,MODE +1
#C,CHROUT
#'V
#'V,R5
MODE
PC,CHROUT
WIDTH,WORKZ2
WORK
i ,WORK2
#'. ,WORK2
#'..R5
WORK2 ,MODE
#20,MODE+1
PC,CHROUT

;SET REPEAT MODE
;CALL CHAR OUTPUT ROUT INE
JPRINT A "V
;GET CHAR TO RS
;STD MODE
;CALL CHAR OUTPUT ROUTINE

012705

000056

112737
004737

001164

000020
032310

001174

012795
005037
004737
013737
163737

000126
001174
032310
001172
001162

001164
001164

012705
013737
112737
004737

000056
001164
000020
032310

007200
007206
38700 007212
007212
007216
007222
38800 007226
28900 097234
39000 007242
007242
007246
007254
007262

013737

39100 007266
39200 007272

011137

007276
a
007302
39300 007306
39400 007312
007312
007316
007322
39500 007326
007326
007332
007340

005037
004737
004737
012705
005037
004737

037370
001174
031706

012705

040257

39600 007352
00735¢
007356
007362
39700 007366

112737
004737

000020
031706

012705
005037
004737

040261
001174
031706

012705
005037

037370
001174

007272

7346

007366
007372

013705

112737

001175

001174
001175

001164

mMCvB

DEC

MOV

MOvB
JSR
SENDCA
MOV
CLR
JSK
MOV
SUB
SENDC2
MOV
MOV
MOvVB
JSR

MOV

001174
031706
034250

001174
001175

CLR
JSR
JSR
SENDALL
MOV
CLR
JSR
SENDR
"0V
MOVE
MOVB
JSR

SENDALL
MOV
CLR
JSR
SENDALL
MOV
CLR

;SEND CRLF
;BUILD SEND CALL USING MESSAGE ADDRESS

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

#20 ,MODE +1

WORK2 :

wOP~.2 ,MODE

MOV
(R1) ,WORK2
SENDALL WORK2

001164

000031

20%

WORK ,WORK2

PC,SEND
#'V
#'V,RE
MODE
PC,CHROUT
WORK
1, WORK?
L'ORK ,WORK?2

38600 007166
007166

007172

JMP

MOvVB

SEC 0048

JSR
SENDCH
MoV
CLR
JSR
MOV
SUB

001175

000126
001174
032310
001162
001160

001164

3%:

J_ 4
PAGE 37-1

001174

012705
005037
004737
013737
163737

005337

26=FEB=79 14:37

DEC
WORK
SENDALL #MSG75
MoV
#MSG75,RS
CLR
MODE
JSR
PC,SEND
SENDR #MSG62 ,V'IRK2
MOV
#MSGE2 RS
MOVB
WORK2 ,MODE

007126
38200 007132
007132
007136
007142
38300 007146
38400 007154

38500 007162

031706

MACRO M1110

WORKZ2,R5

MODE
PC,SEND
PC,QUIET
#MSG7
#MSG75 RS
MODE
PC,SEND
#MSG115,425.
#MSG115,R5
#25. ,MODE
#20,MODE
+1
PC,SEND

#MSG116
#MSG116,RS
MODE
PC,S;ND
#MSG75

#MSG75,RS5
MODE

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

; =RH=-LH

:GET RFPEAT COUNT

;PRINT MORE PERIODS
:GET CHAR TG R5
:GET REPEAT COUNT
;SET REPEAT MODE
;CALL CHAR OQUTPUT ROUTINE

:SETUP MARGINS

sBUILD SEND CALL USING MESSAGE ADDRESS
sNOW SEND THE MESSAGE
sWAIT FOR CATCHUP
sSEND CRLF
sBUILD SEND CALL USING MESSAGE ADDRESS

sNOW SEND THE MESSAGE
;SEND ‘="' 25 TIMES

sAND ERROR IF
MSG
¢BUILD SEND CALL USING MESSAGE ADDRESS
sNOW SEND THE MESSAGE
+SEND CRLF

sBUILD SEND CALL USING MESSAGE ADDRESS

MACRO M1110

(ZLAIBO LAOO, LA34 DMT PROG

TESTS

40000
40100
40200
40300
40400

007416
007422
007426
007432
007436

007436
007442
007446

40500 007452
40600
40700
40800 007454

007462

40900
41000 007466
007471
41100 007473

007476

41200 007500

007503
007506

41300
41400 007512

41500 007514
41600 007516
41700

41800
41900
42000

K_4

PAGE 37-2

SEQ 0049

004737

031706

012705
004737
005237
000137
005237
000137
004737

000300
033676
007514
006720
007512
006640
033062

012705
005037
004737
000207

037373
001174
031706

041450
041502

041460
041514

041471

TBL12A:

. WORD

MSG180,MSG1871,MSG182,MSG183
,MSG184

002
116
032

032

064

TBL12B:

BYTE

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

062

114

TBL12C:

.BYTE

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

061
163

061
063
000

T12FIX:

146

033

073
062

144

174
133

JSR
STALL
MOV
JSR

INC

20%:
30%:

PC,

SEND

#300

#300,RS
PC,MSTALL

JMP
INC
JMP
PC,RESETO
JSR
SENDALL #MSG77
#MSG77 ,R5
MoV
MODE
CLR
PC,SEND
JSR
PC
RTS

JNOW SEND THE ME SSAGE

JSETUP STALL TIME CONSTANT
JNEXT MARGIN PAIR
;NEXT H PITCH

JRESET_THE TERMINAL
;SKIP 3 LINES

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

:BYE.--.

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

000000
000000

[=lele)

007376
39800 007402
007402
007406
39900 007412

26-FEB=79 14:37

000000

.EVEN

CZLAIBO LAQU, LA34 DMT PROG

MACRO M1110

TESTS

L 4
PAGE 38

26~FEB=79 14:37

SEQ 0050

42200
42300
42400
42500
42600
42700
42800
42900
43000
43100
43200 007520

007520
007524
007530
43300 007534
43400 007542
43500 607550
007550
007554
007560

43600 (07564
43700 007572
43800 007576
43900 007602
44000 007606

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

sTHIS 1S REPEATED FOR TAB SETTINGS OF 4,8,9,16,18,32, AND
;64 CHARACTER SPACES.

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

012705
005037
004737
012737
013737

037245
001174
031706
010050
001172

012705
005037
004737

037304
001174
031706

117737
005237
105077
013701

171374
001164
171362
010066

007606
007612
007616
44100 007622
44200 007630
44300 007632
44400 007634
007634
007640
007644
007652
44500 007656
007656
007662
007666

012705
005037
004737
163737
002433
005301

037370
001174
031706
010066

012705
010137
112737
004737
_
012705
005037
004737

000056
001174
000020
032370

037311
001174
031706

007672
007676
007702
44700 007706

012705
005037
004737
105277

000126
001174
032310
171252

44600 007672

44800 007712
44900 007716
45000
45100 007720

013701
000741

010066

012737
117737
001430

000003
171232

007736
007742
007746

012705
005037
004737

037370
001174
031706

007752

012705

037316

45200 007726
45300 007734
45400 007736

45500 007752

PRINTED, MADE UP OF PERIODS AND V'S

SET CORRESPONDING TO THE POSITION OF
S OF TABS AND 1'S ARE PRINTED, WHERE
UP UNDER THE V'S.

TESTO7:

001164
001162

1$:
2%:

010066

001162

SENDALL #MSG60

JSR
MOV
MOV

PC, SEND
#TABL13,WORK2
WIDTH, WORK1

:NOW SEND THE MESSAGE

??X

:83261.R5

*BUILD SEND CALL USING MESSAGE ADDRESS

SENDALL #MSG61

:ESC=2 RESETS TABS

JSR

:NOW SEND THE MESSAGE

PC, SEND

PC,SEND
géa.uonx1

:NOW SEND THE MESSAGE
*SU TAB COUNT PER LINE

48:

DEC

;PRINT TAB -1 PERIODS

MOvB

#20,MODE+1

*SET REPEAT MODE

SENDC2
MOV
MOV
JSR

#'..RI
#'..RS
R1.MODE

PC, CHROUT

SENDALL #MSG63
?Ex
qgggos.ns
JSR
SENDCH
MOV
CLR
JSR
INCB

PC, SEND
#°'V
#'V.RS
MODE
PC, CHROUT
awORK?2

B8R

MOV
MOV

#3, COUNT

*BUILD SEND CALL USING MESSAGE ADDRESS

*PRINT PERIODS
“GET CHAR TO RS
*GET REPEAT COUNT

*CALL CHAR OUTPUT ROUTINE

*SET TAB STOP
*BUILD SEND CALL USING MESSAGE ADDRESS
:NOW SEND THE MESSAGE
SPRINT A 'V**
*GET CHAR TO RS
*STD MODE
*CALL CHAR OUTPUT ROUTINE

;.o.uVacl.Vl---v....v.-.-v....v

aWORK2,TAB

"?X

:ggg?S.Rs

118
BEQ
SENDALL #MSG7S
JSR

;SEND CRLF

TAB,R1

MOVB

8$:

;BUILD SEND CALL USING MESSAGE ADDRESS

JSR
gE?

78:

:SEND TEST ID

3s:

68:

ggggso.ns

awORK2,TAB
WORK2
@WORK2
TAB,R1
#MSG7S
fl33275'R5

?EX

MOVB
INC
CLRB
MOV
SENDALL
?EX

001175

010070
010066

PC,SEND

SENDALL #MSG6S
MOV
#MSG65 RS

:BUILD SEND CALL USING MESSAGE ADDRESS

:NOW SEND THE MESSAGE

TISSUE A TAB
)
‘BUILD SEND CALL USING MESSAGE ADDRESS

$£§¢180 LAOO, LA34 DMT PROG
S

007755
007762

005037
004737

001174
031706

007772
007776

012705
005037
004737

000111
001174
032310

45600 007766
007766
5700 010002
45800 010006
45900 010010
46000 010014
46100 010016

005337
001361
C05337
001344

46200 010032
46300 010036
46400 010044
46500 010046

005237
023727
001236
000207

010016
010022
010026

46600
46700
46800 010050
46900 010052

47000
47100
47200
47300
47400
47500
47600
47700
47800

010054
010056
010060
010062
010064
010066
010070

012705
005037
004737

000004
000010
000011
000020
000022
000040
000100
000000
000002

MACRO M1110

26-FEB=79 14:37

010066
010070

10%:
11%:

037373
001174
031706
001164
001164

(LR
JSR
SENDCH
MOV
CLR
JSR
DEC

MODE
PC,SEND
#']
#'1,R5
MODE
PC,CHROUT
TAB

MOV
CLR
JSR

#MSG77 ,R5
MODE
PC,SEND

BNE
PEC
BNE
SENDALL

INC
CMP
BNE
RTS

010066

PAGE 38-1

8$
COUNT
7%
#MSG77

WORK?2
WORKZ ,#TAB
2%
PC

TABL13:

.WORD

TAB:
COUNT:

.WORD
.WORD
.WORD
.WORD
WORD
.WORD

16.
18.
32,
64.
O
2

SEQ G051
;NOW SEND THE MESSAGE
JPRINT AN *'T"'

;GET CHAR TO R5

;STD MODE

;CALL CHAR QUTPUT ROUTINE

;BUILD SEND CALL USING MESSAGE ADDRESS
sNOW SEND THE MESSAGE

SEXIT

TESTS

MACRO M1110

N &
PAGE 39

26~FEB=79 14:37

SEQ 005¢

48000
48100
48200
48300
48400
48500
48600
48700
48800
48900
49000 010072

010072
010076
010102

49100 010106
010106

010112
010116

49200 010122
49300 010130
49400 010136

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

DASHES
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
=) 10 7. AT 6 LINES PER INCH.

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

012705
005037
004737

040355
001174
031706

012705
005037
004737
012737
012737

037373
001174
031706
000001

SENDALL #MSG123

MOV
CLR
JSR

#MSG123,RS
MODE
PC, SEND

SENDALL #MSG77
MOV
#MSG77 RS
CLR
JSR

MOV

MODE
PC,SEND

#1 . WORK

MOV
#12,WORK2
SENDALL #MSG124

000012

040412
001174
031706
001160

000010

001160

001162

010170
010174
010202
010210
49900 010214
50000 010220
50100 010224
50200 010230
010230
010234
010242
010250
50300 010254
010254
010260
010264
50400 010270
010270
010274
010300
50500 010304
010304
010310
010314

012795
113737
112737
004737
013700
062700
111037

001164
001162
000020
031706
001162
041274
001166

012705
012737
112737
004737

000055
000006
000020
032310

012705
005037
004737

000060
001174
032310

013705
005037
004737

001166
001174
032310

012705
005037
004737

037320
001174
031706

012705
13737
112737
004737

001164

031706

TEST10:

012705
005037
004737
023727
001532
013737

50600 010320
010320
010324
010332
010340

W ILL PRINT A REFERENCE LINE OF

010136
010142
010146
49500 010152
49600 010160
49700 010162

MOV

1$:

b
—

NN
Vi

001174
001175

49800 010170

EDTEST

w—b

CZLAIBO LAOO, LA34 DMT PROG

CLR
JSR
cMP
BEQ
MOV

#MSG124
RS

MODE
PC, SEND
WORK ,#10
4$
WORK
, WORK 1

SENDR
MOV
MOVB
MOVB
JSR

#WORK?2, WORK 1
MJORK2
. RS
WORK1,MODE
#20,MODE+1

ADD
MOVB
SENDC2

#M5G160,R0
(RO),WORK3

WORK1,RO

MOV
MOV

#'-,46
#'-_RS
#6 ,MODE

JSR

#20,MODE+1
PC, CHROUT

SENDCH #°0

MOV
CLR

JSR

SENDCH
MOV
CLR

#'0,RS
MODE

PC, CHROUT

WORK3
WORK3,RS
MODE

PC, CHROUT
JSR
SENDALL #MSG66

MOV
3$:

CLR
JSR

SENDR
MOV
MOVB
MOVB
JSR

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

;SKIP 3 LINES

;BUILD SEND CALL USING MESSAGE ADDRESS
;NOW SEND THE MESSAGE
;SEND LINE OF DASHES

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

;ALL DONE ?
;YES- JUMP

sSEND _LINE FEEDS

PC,SEND

MOV

mOvB

#MSG66,RS
3
PC, SEND

MJORK2,WORK1
. RS
#JORK2
WORK1,MODE
#20,MODE+1
PC, SEND

sGET NUMERIC CHARACTER
:SEND 6 DASHES

:GET CHAR TO RS
:GET REPEAT COUNT
:SET REPEAT MODE

sCALL CHAR OUTPUT ROUTINE

sAND A ZERO

:GET CHAR TO RS
:STD MODE
:CALL CHAR OUTPUT ROUTINE
:AND THE NUMBER FROM ABOVE

:GET CHAR TO R5
:STD MODE
sCALL CHAR OUTPUT ROUTINE
+NOW RETURN CHAR
;BUILD SEND CALL USING MESSAGE ADDRESS
sNOW SEND THE MESSAGE
:SKIP A LINE

(ZLAIBO LAOO, LA34 DMT PROG

TESTS

50700 010344
010344
010350

012705
012737

000055
000006

010364

004737

032310

010370
010374
010400
50900 010404
010404
010410
010414
51000 010420
010420
010424
010430
51100 010434
51200 010440

012705
005037
004737

000060
001174
032310

013705
005037
004737

001166
001174
032310

012705
005037
004737
005237
004737

037320
001174
031706
001160
034250

010356

50800 010370

51300 010444

51400 010446
010446
010452
010456
5150 010462
§1600
51700
51800

112737

000642

012705
005037
004737
000207

000020

037373
001774
031706

MACRO M1110

26-FEB=79 14:37

001174

001175

5
SEQ 0053

SENDC2
MOV
MOV

#'=, 46
#'- RS
#6 ,MODE

:SEND 6 DASHES
*GET CHAR TO RS
*GET REPEAT COUNT

JSR

PC, CHROUT

*CALL CHAR OUTPUT ROUTINE

MOVB

SENDCH

48:

PAGE 39-1

#20,MODE
+1

#°'0

*SET REPEAT MODE

MOV
#'0,RS
CLR
MODE
JSR
PC, CHROUT
SENDCH WORK3
MOV
WORK3,RS
CLR
MODE
JSR
PC, CHROUT
SENDALL #MSG66
MOV
#MSG66 RS
CLR
MODE
JSR
PC,SEND
INC WORK
JSR
PC,QUIET

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

SENDALL
MOV
CLR
JSR
RTS

:SKIP 3 LINES
:BUILD SEND CALL USING MESSAGE ADDRESS

B8R

#MSG?77
#MSG77,RS
MODE
PC,SEND
PC

:GET CHAR TO RS
:STD MODE
:CALL CHAR OUTPUT ROUTINE
*SEND CR
:BUILD SEND CALL USIMNG MESSAGE ADDRESS
:NOW SEND THE MESSAGE
*CHANGE NO OF LF'S

:NOW SEND THE MESSAGE

CZLAIBO LAOO, LA34 DMT PROG

TESTS

52000
52100
52200
59300
52400
52500
52600
52700 010464
010464
010470
010474
52800 010500
52900 010504
53000 010512
53100 010516
53200 010520
53300 010526
53400 010530
53500 010536
53600 010540
53700 010542
53800 010550
53900 010556
54000 010564
54100 010566
010566
010572
010576
54200 010602
54300 010606
54400
54500 010610
54600 010616
54700 010624
010624
010630
010636
010644
54800 010650
54900 010656
55000
55100 010660
010660

010664
010670
55200 010674
55300 010702
55400
55500 010704
010704
010710
010714
600 010720

MACRO M1110

¢26-FEB=79 14:37

C
5
PAGE 40
SEQ 0054

*"HORIZONTAL MOVEMENT' TES

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

036007
001174
031706
010756
000001
001162

001160

001162

001172

001162

001160

001162
000012
001160

001164
001164
001164

012705
005037
004737
005337
000750

035172
001174
031706
001160

013737

001162
001160

012705
013737
12737
004737
013737
000412

000040
001166
000020

163737

TEST11:

1%:
2%

X'S ARE PRINTED AT RANDOM COLUMN POSITIONS

UNTIL THE LINE IS FULL. CONTROLLED BY THE
WIDTH''

;SEND TEST

JSR

PC,SEND

;NOW SEND THE MESSAGE

(R3)+,WORK1

:DESTINATION POSITION

#COLTRL ,R3
#1,WORK

BEQ
CMPB
BHI
CMPB
BEQ

9%
WORK1,WIDTH
1%
WORK1,WORK
8$

MOV

WORK 1, WORK 2

MOVB

SuUB

CMPB

012705
005037
004737
012737
000712

035174
001174
031706.
000001
001160

012705
005037
004737
004737
005237
005037
000137

000110
001174
032310
034250
001160
001162
010512

:BR
*IN
*NO
*IF
:IF

IF END OF TABLE
RANGE OF PAPER ?
GET NEW DEST.
DEST > POS THEN SPACE
DECT = POS THEN PRINT X
*IF DEST < POS THEN
:IF DEST < POS-12 DO CR FIRST

*THEN SPACES

JSR
DEC

PC, SEND
WORK

:NOW SEND THE MESSAGE
*POS = POS-1

MOV

WORK 1, WORK 3

:CALCULATE # OF SPACES

PC ., CHROUT

*CALL CHAR OUTPUT ROUTINE

SuB
SENDC2
MOV
MOV
MOVB

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

*DEST - POSITION
*SEND SPACES
*GET CHAR TO RS
:GET REPEAT COUNT
:SET REPEAT MODE
:POS = DEST

SENDALL #MSG09
?Ex
:gggo9.n5

:SEND RETURN FIRST
‘BUILD SEND CALL USING MESSAGE ADDRESS

JSR

PC,SEND

#1,WORK
2%

:NOW SEND THE MESSAGE

:POS = 1

SENDCH
MOV

#'H
#'H,RS

;PRINT AN H
*GET CHAR TO RS

MOV
B8R
8%:

#12,WORK2

WORK,WORK2

*POINTER TO TABLE OF COLUMNS
*PRESENT POSITION

;ELSE BACKSPACE 1
*BUILD SEND CALL USING MESSAGE ADDRESS

MOV
BR
6$:

:BUILD SEND CALL USING MESSAGE ADDRESS

BLO
6$
SENDALL #MSGO8
?E;
:gggos.ns

JSR

0323210
001162

‘gggze.ns

MOV
MOV

BHI

4$:

AS DETERMINED AT STARTUP.

SENDALL #MSG28

?EX

BR
001166
001166

CLR
JSR
JSR
INC

(LR
JMP

MODE
PC, CHROUT
PC.QUIET
WORK

WORK1
1%

*STD MODE
:CALL CHAR OUTPUT ROUTINE

;NEW POSITION

;GET NEW DEST COLMN

(ZLAIBO LAOO, LA34 DMT PROG

TESTS

010750

NN A

N N

leoleloleolololololols]

WOWNN
= WOWNSH -0 N0 ~

D sud gl WD e
d
ol —h
el e S
)
ol D —d
D D ) S e e
— e el D d

57000

jeleolalelolelelolelslolololele]

56200 010754
56300
56400
56500
56600 010756
010761
010764
010767
010772
56700 010773

56900

D
e
—

d —d

)

d o

—d

D —d

mmabbwfiwml\u\)—l-a—'—loo
0NN
S~ —=OVIiY
20w
N

)

— —

)
D e
)

) ——d rd
d
—d
d

e o
—

—d
e
o
o
e
el

57500

kD —d o

57400

slelelelelslolelelololslolelelslels)

57300

012705
005037
004737
000207
000012

035
200
156

PAGE 40-1

146

165
162
142
14
106

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

BYTE

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

070
046
040
021

.BYTE

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

105

.BYTE

117.25.69,114,65,30,98,90,125,12,120,10,70

.BYTE

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

027
043

010
152

077

202
022
052
061
017
066

113

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

047
137
051
023

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

020
005
041

11
163
174

117
100

.RADIX 10
COLTBL: .BYTE

173
012

171
002

072
057

;NOW SEND THE MESSAGE

PC,SEND

173
153
122
045

036

037

110

JSR

112

025
136
075

007
067
003
055
203

;SKIP 3 LINES
;BUILD SEND CALL USING MESSAGE ADDRESS

026

141
166
140

123
164

SENDALL #MSG77
?EX
;ggg??.PS
RTS

050

011
176
151
167
204
001

004
177
064

9%:

037373
001174
031706

172

57100

57200

26~FEB=79 14:37

SEQ 0055

56100 010740
010740
010744

56800

MACRO M1110

065
135

147
125

.BYTE

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

073

053
071

107
157

104
144

.BYTE

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

BYTE

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

116

013

042
033
155
150

054
024

034

124

120

BO LAQO, LA34 DMT PROG

MACRO M1710

26-FEB=79 14:37

PAGE 40=2
SEQ 0056

032
063
000010

056

000

.EVEN

.RADIX 8

BYTE

51,46,0

CZLAIBO LAQO, LA34 DMT PROG
TESTS

58200
58300
58400
58500
58600
58700
58300
58900
59000
59100 011164
011164
011170
011174
59200 011200
011200
011204
011210
59300 011214
011214
011220
011224
59400 011230
59500 011236
59600 011242
59700 011250

56800 011264

011270
59900 011274

:J\J\J\J\

RE&RSRONE-YRPTvr w

P
P

e s

s o o
s o

il Sl sl sl
sl i
s

o Poms fon P, P

cotll sl s

ine
S
e

sl e

elololeleloleloleleleolelelolele]

8§§§§8§§
3

Q00200
-

Lo ]

soul s

60800 0

P’

60000 011300
6C100 011304
60200 011310
60300 011314
60400 011316
60500 011320
60600 011322
60700 011326

MACRO M1110

26-FEB=79

14:37

F
PAGE 41

5
SEQ 0057

3
:
:

THIS

TEST WILL

FORCE

?Ez

;ggg37.R5

;BUILD SEND CALL USING MESSAGE ADDRESS

JSR

PC,SEND

;NOW SEND THE MESSAGE

JSR

PC,SEND

sNOW SEND THE MESSAGE

PC,SEND

;NOW SEND THE MESSAGE

012705
005037
004737

037304

001174
031706

012705
005037
004737
013737
006337
062727

036373
001174
031706
001152
001166
024554

012705
005037
004737

036477
001174
031706

012705
004737
005037
012700
063700
020037

021450
033676
001160
024554
001160
001166

MOV

#9000. ,R5

MoV

#STOP RO

042710
062737
000761
012702
063702
105712
100001
000765
006237

013737
012746
004737
000000
006337
000750
012705

004737
000240

000200
000002

SENDALL #MSG61
?Ex
;ggg61,R5

SENDALL #MSG38
?EX
:83?38.R5
JSR

001166

MOV

NUML
IN, WORK 3

001166

ADD

#5TOP,WORK3

ASL

020634
001160

3$:

001204

4$:

;STUFF

JSR
STALL

PC,SEND
#9000.

;NOW SEND THE MESSAGE
sSHOULD GET XOFF FROM ALL

PC ,MSTALL
WORK

;CHECK ALL LINES FOR XOFF

JSR
CLR

ADD

WORK ,RO

TSTB

;20)

007640
03367¢

5%:

RO,WORK3
5%

THE BUFFER FULL

;BUILD SEND CALL USING MESSAGE ADDRESS

;SETUP STALL TIME CONSTANT

:BIT7 SET ?

BIC
ggo

#BIT7. (RO)
{%.uonx

MOV
ADD
TSTB

#DZLINE ,R2
WORK ,R2
(R2}

:NO- POSSABLE ERROR

:0K- CHECK NEXT LINE
;1S LINE ACTIVE ?

:YES- REAL ERROR NO XCFF

ASR

WORK

*GET REAL LINE NO.

MOV

#MSG40, = (SP)

:MSG ADDR FOR ERROR REPORT

ASL

WORK

*RESTORE POINTER

STALL

#4000.

&85

PCMSTALL

MOV

JSR
HALT

001160

WORK
3

%gfl RS

B8PL
001160
001160
036441
020352

;SET TABS AT (OL 1 & 132
;BUILD SEND CALL USING MESSAGE ADDRESS

?EX

BPL

28:

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

SENDALL #MSG41

(MpP
BHIS

001160

TO TRANSMIT AN XOFF

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.

036342
001174
031706

103034
105710
100006

TERMINAL

BY JAMMING A SERIES OF TIME CONSUME ING MOVEMENT CHARS

012705
005037
004737

1%:

THE

B8R

MOV

WORK , ONL INE
PC,ERRORT

#4000, ,RS

*NO- CHECK NEXT LINE

*REPORT ERROR
*IF BIT1S IS SET

*CHECK NEXT LINE

SWAIT FOR TERMINALS TO CATCH UP

:SETUP STALL TIME CONSTANT

CZLAIBO LAQOQ, LA34 DMT PROG
TESTS
62300 011420
62400 011426
62500 011430
62600 011434
62700 011440
62800 011442
62900 011446
63000 011450

63100 011454

63200 011462
63300 011484
63400 01147C
63500 011474
63600 01147¢
63700 011500
63800 011502
63900 011506

64000 011514

64100 011520
64200 011525
64300 011526
64400 011532
64500 011536
64600 011540
011540
011544
011550
64700 011554
64800 011560
64900 011564
65000 011570
65100 011574
65200 011576

65300 011602

005037
012700
063700
020037
103037
032710
001406
042710

062737

000760
012702
063702
105712
100001
000765
006237
013737

012746

004737
000000
006337
052712
000746

012705
005037
004737

005037
012700
06370C
020037
103006
042710

062737

65400 011610 000763
65500 011612
011612
011616
011622

012705
005037
004737

MACRO M1110

001160
024554
001160
001166

26=FEB=79 14:37

000001

C€00002

001160

020634

88:

001160

001160
001160

036404

7$:

001204

9%:

001160
000200
158:

001160
024554
001160
001156
000207

000002
037304
001174
031706

168:

001160

(LR
MOV
ADD
C(MP
BHIS
BIT
BEQ
BIC

WORK
#STOP,RO
WORK
, RO
RO,WORK3
15§
#8170, (RO)
8$
#8110, (RO)

BR
MOV
ADD
1STB
BPL
BR
ASR
MOV

WA
#DZLINE,R2
WORK ,R2
(R2)
9%
7%
WORK
WORK,ONL INE

ADD

MOV

020352

035174
01174
031706

G S5
PAGE 41~

JSR
HALT
ASL
BIS
&
SENDALI
MOV
CLR
JSR
(LR
MOV
ADD
(MP
BHIS
BIC

;

208:

ADD

SENDALL
MOV
CLR
JSR

#2.,WORK

#MSG39,-(SP)
PC,ERROFT

WORK
#8117, (R2)
7$
#MSGO9
#MSGO9,RS
MODE
PC, SEND
WORK
#STGP,RO
WORK,RO
RO,WORK3
208
#201, (RO)

SEQ 0058
;CHECK ALL LINES FOR XON

;HAS XON BEEN RECVD ?
:NO- PCSSABLE ERROR

;CHECK NEXT LINE
;1S LINE ACTIVE ?
TEST BT 7
:YES ERROR, NO XON
:NO_CONTINUE
*GET REAL LINE NO.

;MSG ADDRESS FUR ERROR REPORT
:REPORT ERROR NOW
:IF BIT15 IS SET
:RESTORE POINTER
:DESELECT LINE IT S DEAD.
:SEND <CR>

:BUILD SEND CALL USING MESSAGE ADDRESS
:NOW SEND THE MESSAGE
;CLEAR BITS 7 € 0 IN IABLE

:CLEAR THE FLAG BITS

#2 ,WORK

DO NEXT LINE

#MSG61
#MSG61,KS
MODE
PC,SEND

:CLEAR ALL TABS
:BUILD SEND CALL USING MESSAGE ADDRESS

168

;NOW SEND THE MESSAGE

(ZLAIBO LAQC, LA3GL DMT
TESTS

100 011626

0002C7

BROG

AACRO MITT10

26=~FER=7G 14:37

PAGE 42
£G

RTS

CZLAIBO LAOC,

TESTS

LA34 DMT

PROG

MACRO M1110

26-~FEB=79

14:37

PAGE

5
SEC

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

D ol e e
) e e

~N
WNNNN~N
s
o viwvaun
(&) SO QOSSO

d ek = D
e

d ed d
e’

—d e

d o

) e

D el d

)

=]
o

d d DD

géloml‘wf\)—‘
888338

) e e nd

elelolalololajslololelslolololololelolololololelolele]e)]

LAC AR

764

1774

2600

2700

2800

2500

012070
012074

012705
005037
004737

040153
00117«
031706

012705
005037

037373
001174
031706
001160
001160

004737
005037
023727
003111
005037
005037
005037
013737
013737
062737

TEST13:

1%:

;SEND TEST ID
;BUILD SEND CALL USING MESSAGE ADDRESS

JSR

PC,SEND

;NOW SEND THE MESSAGE

?Ex

;ggg??,RS

;BUILD SEND (CA.l. USING MESSAGE ADDRESS

JSR
(LR

PC,SEND
WORK

sNOW SEND THE MESSAGE

CMP

WORK ,#12

ADD
ADD

#TABLVF ,T178
#TABLV,T17A

BGT
CLR
(LR
CLR
MOV
MOV

062737

001164
012134
012136
001160
012134
012154
012140

017705
005037
004737

000172
001174
031706

?EX

012795
004737
023727
001445

000250
233676
001164

MOV

012705

005037
004737

037677
001174
031706

012705
005037
004737

4%
WORK?2
T17A
T178
WORK, T17A
T17A,T178

SENDALL aT178

JSR

;GET TABLE OFFSET

gsgza.ns

:BUILD SEND CALL USING MESSAGE ADDRESS

PC,SEND

:NOW SEND THE MESSAGE

#250,RS

:SETUP STALL TIME CONSTANT

STALL

#250

JSR

PC,MSTALL

??x

:sggss.as

:PRINT MESSAGE LINE

JSR

PC,SEND

:NOW SEND THE MESSAGE

037727
0V1174
031706

?8:

:33889.R5

;BUILD SEND CALL USING MESSAGE ADDRESS

JSR

PC, SEND

:NOW SEND THE MESSAGE

012705
005037
004737

037753
001174
031706

?EX

:ggg93.ns

;BUILD SEND CALL USING MESSAGE ADDRESS

JSR

PC,SEND

;NOW SEND THE MESSAGE

017705
005037
004737

000070
001174
031706

??x

gsAZA.RS

;BUILD SEND CALL USING MESSAGE ADDRESS

JSR

PC, SEND

:NOW SEND THE MESSAGE

012705
005037
004737

040001

?Ex

:ggg98.ns

:BUILD SEND CALL USING MESSAGE ADDRESS

PC, SEND

:NOW SEND THE MESSAGE

012705
004757

000200
033676

#200,RS

;SETUP STALL TIME CONSTANT

001174
031706

(MP
BEQ

JSKIP 3 LINES

WORK?2
, #6
3%
SENDALL #MSG88

000006

2%:

SENDALL #MSG110
??x
;ggg110.R5

SENDALL #MSG77

000012

SENDALIL. #MSG89

SENDALL #MSGS3

SENDALL @Ti7A

SENDALL #MSG98

JSR

STALL

0268

JSR

PC ,MSTALL

MOV

*BUILD SEND CALL USING MESSAGE ADDRESS

C060

BO LAOO, LA34 DMT PROG

MACRO M1110

J
9
PAGE 44-1

26-FEB=79 14:37

— e d i D D D td ek
(WNIN)
— —

005237

001164

062737
000663

000002

012705
005037
004737
000207

037373
001174
031706

— ) nd D
—
OV
DWW

-—

s d —d e b

—d D

e cd d

SEQ 0067

000000
000000
037734
037765
040037
040315

000727

037775
037761
040051
040044

001160

WORK?2

ADD

#2 ,WORK

B8R

48:

037771
040322
040032
040025

INC

SENDALL #MSG?7

JSKIP 3 LINES
;BUILD SEND CALL USING MESSAGE ADDRESS

JSR
RTS

:NOW SEND THE MESSAGE

MOV
CLR

#MSG77 RS
MODE

T17A:
T178:
TABLV:

.WORD
.WORD
.WORD

0C0000
000000

MSG90
,MSG96,MSG9
,MSG5 ,MSG9%4 ,MSG118
7

TABLVF:

.WORD

MSG104,MSG106,MS35103,M5G117,MSG105,MSG102

PC.,SEND
PC

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

4500
4600
4700
4800
490C 012170

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

*PRINTER BELL TEST
:
THIS TEST WILL

ISSUE 8 BELL CODES, WITH A DELAY

.1 SEC BETWEEN EACH BELL.

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

LA AR

012705
005037
004737
012737
005037

001174

112737

012705
005037
004737

001164
001174
031706

012705
004737
005337
001363
000207

000100
033676
001160

TEST14:

040326

031706
000010
001164
000007

1$:

SENDALL #MSG120

MOV
CLR
JSR

#MSG120,KS
MODE
PC, SEND

CLR
MOVB

WORK2
#7.WORK2

MOV

001160
001164

#10, WORK

SENDALL
MOV
CLR
JSR

AWORK2
#WORK2 ,RS
MODE
PC, SEND

MOV

#100,RS

STALL

JSR
DEC

BNE

RTS

#100

PC,MSTALL
WORK

;SEND TEST ID
;BUILD SEND CALL USING MESSAGE ADDRESS

:NOW SEND THE MESSAGE
;8 BELL COUNT

sBUILD SEND CALL USING MESSAGE ADDRESS

sNOW SEND THE MESSAGE
sSETUP STALL TIME CONSTANT

CZLAIBO LAOO, LA34 DMT PROG

TESTS

MACRO M1110

K
5
PAGE 45

26~FEB=79 14:37

SEQ CO62

5900
6000
6100
6200
6300

WILL REQUIRE THE OPERATOR TO TYPE ALL

NG KEYS ON THE KEYBOARD.

IF ANY KEYS ARE

NOT SEEN BY THE PROGRAM THEY WILL BE REQUESTED

:
:
:

INSTRUCTIONS WILL BE TYPED TO PRESS THE SHIFTS
CAPS=LOC, ECS, AND FUNCTION KEYS.
FIVE SECONDS 1S ALLOWED PER KEY .

AGAIN, AND A THIRD TIME IF NECESSARY.

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

7000

7100 012260

7200 012264
7300 012272
7400 012276
7500 012302
7600 012310
7700 012312
7800 012316
7900 012322

8000 012324
8100 012330
8200 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 072444
9100 012446
9200 012452
9300 012456
9400 01246C
9500 012464
9600 012470
9700 012472
9800 012476
9900 012500
10000 012504
10100 012506
10200 012512
10300 012520
012520

012524

005037
013737
006337
013702
023737
103402
000137
105762
100003
005237
000755

001204
001204
001160
001160
001204

012705
112737

040442
000010

113737
004737
012737
042737
004737

001204
031706
012734
004000
034250

012705
004737
032737
001445

011610
033676
020000

103405
004737
005237
000746
123712
001403
062703
000762
052713
113737

012705
112737

001152

2%:

001140
014302

7%:

013772
001110

8$:

000002
001162

001175

98 :

ONL INE , WORK

;YES EXIT
*1S THIS LINE SELECTED ?
*YES DO TEST

%JLINE

#MSG164 RS
PC,SEND

FLAG2]

#MSG140,ONL
INE

#MSG140.RS

#10,MODE+1
ONLINE ,MODE

PC, SEND
#6$, HOOK

;SET CURRENT LINF TO ZERO

END22
DZLINE(R2)
28

#10,MODE+1
ONLINE ,MODE

JSR
MOV
BIC
JSR
STALL

:ALL DONE

MOVB
MOVB

ONLINE,NUMLIN

#MSG164 ,ONL INE

*NO GET NEXT LINE NO

;SEND TEST ID

“MESSAGE ADDRESS TO RS

;SET SINGLE LINE MODE
:SELECTED LINE NO.

:CLEAR TEST FLAG BITS

:PRINT INSTRUCTIONS

*MESSAGE ADDRESS TO RS

;SET SINGLE LINE MGDE
;SELECTED LINE NO.

#BIT11,FLAG21

;LINKAGE TO RECV ROUTINE
:RESET LEFTOVER FLAG

#5000.

;5 SECOND TIMEOUT

gég

zgms,ruca

;CHAR IN SET ?

MOV
CMP
BLO

#KEYTBL ,R3
R3, #KEYEND
8%

;POINT TO KEY TABLE
*ALL DONE ?
NO

INC

ERROR

JSR

001170

SENDI

MOV
JSR

014302

MOV

BLO

SENDI

3$:

WORi
WORK ,R2

CLR

001175
001174

ASL
MOV

JSR

ONL INE

MOV

001175
001174

CLR

MOV

égc

014300

001162
000010

JMP
TSTB
BPL

014140

100000
001170

CMP

001204
041344
000010
001204
031706
014302

020327

TEST20:

1$:

014370
020634

012705
112737
113737
004737
005037

012703

001160

PC,QUIET

#5000. ,RS
PC,MSTALL

PC,T21E

:SETUP STALL TIME CONSTANT

*REPORT ERROR.....

g’g‘;fl

ggmm.(as)

ADD
B8R
BIS

#2.R3
78

:POINT TO NEXT ENTRY
*KEEP LOOKING

CHARIN.WORK1

-ECHO THE CHARACTER

MOVE

SENDI

MOV

MOVB

#BIT15, (R3)

#WORK1.ONL INE

#WORK 1 RS

#10,MODE+1

:COMPARE TO TABLE

*SET CHAR IN FLAG
f

;MESSAGE ADDRESS TO RS

;SET SINGLE Llwc MODE

CZLAIBO LAOO, LA34 DMT PROG

TESTS

012532
012540

113737
004737

(01204
031706

10400 012544

032737

010000

10600 012554
10700 012560

000137
105737

013010
014302

10500 012552

1080C 012564

10900 012566

001715

100045

012566
012572
012600
012606

012705
112737
113737
004737

041001
000010
007204
031706

012612
012616
02624
012632

012705
112737
113737
004737

041374
000010
001206
031706

012636

712705

040730

11000 012612

11100 012636

012642
012650
012656
11200 012662

11300 012670
11400 012674
11500 012700

012700
012704
012712
012720

11600 012724

11700 €12732

11800

112737
113737
004737
042737

005237
000137

012705
112737
113737
004737

052737

000625

000010
001204
031706
000200
001110
013374

040666
000010
001204
031706

000200

MACRD M1110

26-FEB=79 14:37

001174
014302

PAGE 45-1

MOVB
JSR

ONLINE,MODE
PC, SEND

BEQ

BIT
48:

JMP
TSTB

BPL

SENDI

#BiT12,FLAG21

;CHECK FOR DONE BIT

118
FLAG2T
5¢
#MSG146,ONL
INE

;ELSE TIMEOUT ERROR
*FIRST TIMEOUT ?

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

001175
001174

MOV
MOVE
MOVB
JSR

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

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

SENDI

#MSF165,0NL
INE

SENDI

#MSG143,O0NLINE

MOV

001175
001174

#MSG143 RS

MOVB
MOVB
JSR
BIC

014302
5%:

001175
001174
014302

INC
NP
SENDI

MOV
MOVB
MOVB
JSR
BIS

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

;GO TO SECTN-2
:HIT SPACE MSG.....

#BIT7,FLAG21

;SET 2ND TRY FLAG

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

B8R

12500 012750
12600 012754
12700 012762

010537
052737
120527

001170
020000
000040

12900 012770
13000 012774
13100 012776
13200 013000

004737
000207
000240
052737

033446

042705

12800 012766 001403

13300 013006

13400

000770

177600

P TR T T SR P C T e P

010000

108
014302

13500

111$:

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

DR B a0

R S

CLR
CLR

LOOPO
WORK1

MOV
BIS
CMPB

RS, CHARIN
#8I1T13,FLAG21
RS, #40

*1IS CHAR A SPACE ?

JSR
RTS
NOP
8IS

PC,KBOUT
PC

:REMOVE CHAR FROM BUFFER

#BIT12,FLAG21

;SET DONE FLAG

BIC
014302

:MESSAGE ADDRESS TO RS

;SET SINGLE LINE MODE
;SELECTED LINE NO.
:

ERROR
17%
#MSG142.ONL
INE

" " SCAN ROUTINE

12400 012744

:NO SPACE MSG.....

001175
001174

A P
001146
001162

*YES TRY AGAIN

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

15988

005037
005037

;SELECTED LINE NO.

MOV
MOVB
MOVE
JSR

11900
12200 012734
12300 012740

SEQ 0063

BEQ

B8R

#177600,RS
1118

1C$

sRESET TIMEGUT COUNT

:CLEAR PARITY BIT
;SET CHAR IN FLAG

sr s sEs RO Rar eI RCsRCOpO RGOSR RBRSACREbOessbRRbRREEERREERES

}%ggg

:"LEFTOVERS SCAN ROUTINE

13800 013010
013010
013014

012705
112737

037370
000010

013030

004737

031706

013022

113737

001204

001175

001174

SENDI
MOV
MOVB

MOVB
JSR

#MSG7S.,ONL
INE
#MSG75 RS
#10,MODE+1

ONL INE ,MODE
PC,SEND

:CRLF
*MESSAGE ADDRESS TO RS
;SET SINGLE LINE MODE

;SELECTED LINE NO.

CZLAIBO LAQO, LA34 DMT PROG

TESTS

—

—d ed

d o

13900 013034
14000 013040
14100 013046
14200 013052
14300 013056
14400 013060
14500 013062
14600 013064
14700 013070
14800 013076

V12703
042737
005037
<0327
001431
005723

100773
005037
052737
005303

001160
004000

012705
112737
113737

041307
000010
001204
031706

112737
113737

004737
012703
042713
005237
013737
042737
023727
003026

004000

040730
000010
001204
031706
014276

013262
013266
013274
013302

012705

040632
000010
001204
031706
012406

16800 013312
16900 013316

CMP

R3,#KEYEND

BEQ

001175
001174

014302

138:

MOV
BIC
P

FLAG21 ,WORK
#-8. ,WORK
WORK,#3 -

MOV

#MSG144
RS

JSR
JMP

040730
020352

148"

014140

15$:

012705
112737
113737

037373
000010
001204

100000

168:

014300

"MOV

001175
001174

:3 STRIKES YOU'RE OUT !'!!

#10,MODE+1
ONLINE,MODE

PC,SEND
#MSG145.RS5

#MSG145.0NLINE

#10,MODE+1
ONLINE ,MODE

PC, SEND
3$

#MSG1435.-(5P)

R3,#KEYEND

MOV

MOVB
MOVB

;ANY LEFTOVERS ?

14$
#MSG144,ONL
INE

CMP

CLR
SENDI

;PUT CHAR IN MSG
JAND TYPE IT OUT
;MESSAGE ADDRESS TO RS
;SET SINGLE LINE MODE
;SELECTED LINE NO.

;RESET SPACE
IN FLAG
;OPERATOR GETS THREE TRIES

#KEYTBL ,R3

BIC

;SET LEFTOVER KEY FLAG

FLAG21

JSR
HAL
T
MOV

8LO

014302

PC, SEND
#KEYEND=-2 ,R3

#8IT15, (R3)

MOVE
MOVB

..GO TO 13%

;CHECK CHAR IN FLAG(BIT 15

#MSG143.RS

BIC

MOV

;DONE YET ?

;YES

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

#10,MODE+
ONLINE,MODE

SENDI

;POINT TO TABLE

;GET NEXT TABLE ENTRY
;KEEP SCANNING FOR LEFTOVERS

MOVEB
MOVB

JSR

SEQ 0064

12§

#81T11,FLAG21
15$
#MSG143,ONL
INE

MOVB
MOVB

012746
004737
000000
012703
042723
020327
103773
005037

-(R3),MSG162
#MSG162,ONL
INE

BIT
BEQ
SENDI

BGT
SEND]

001175
001174

128%

#MSG162
RS
#10,MODE+1
ONLINE,MODE
PC, SEND
PC.QUIET
#2'R3

INC

001175
001174

(R3)+

MOV
MOVB
MOVB
JSR
JSR
ADD

JSR
MOV

001160
001160
000003

13§

WORK
#BIT11,FLAG21T
R3

MOV

001175
001174

#BIT12,FLAG21
WORK1

CLR
BIS
DEC

MOVB
SENDI

100000

014302
014302
177770
001160
040764
000010
001204
031706

004737
000137

014302

034250

012705
112737
113737
004737
112737
113737

#KEYTBL .R3

BMI

000002

013236
013242
013250
013256

16500 013262

12%:

M 5
PAGE 45-2

MOV

BIC
CLR
TST

041307

004737
004737
062703
000744
032737
001465

26-FEB=79 14:37

014302

014300

114337

012705

15700 013176
15800 013202
15900 013206
16000 013212
16100 013220
16200 013226
16300 013234
16400 013236

014149
010000
001162

MACRO M1110

PC,ERRORT

#BIT15, (R3)+

:TRY AGAIN MSG.....

sMESSAGE ADDRESS TO RS
sSET SINGLE LINE MODE
sSELECTED LINE NO.

sHIT SPACE LAST MSG.....
sMESSAGE ADDRESS TO RS
sSET SINGLE LINE MODE
sSELECTED LINE NO.

sNEVER RECVD

ERROR MSG....

sCLEAN THE TABLE FLAGS

168

FLAG21
#MSG77.ONL
INE

#MSG77.RS

#10,MODE+1
ONLINE,MODE

:SKIP 3 LINES

:MESSAGE ADDRESS TO RS
LINE MODE
SINGLE
sSET
sSELECYED LINE NO.

5¢

CZLAIBO LAOO, LA34 DMT PROG

TESTS

013366

17700 013372

17800

17900
18000
18100
18200 013374
18300 013402

004737

000240

26-FEB=79 14:37

031706

JSR
NOP

N 5
PAGE 45-3

SEQ 0065

PC,SEND

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

012737
012703
012704
012737
005777
001004
005237
000137
062703
005713
001004
062737
000761
042737

19700

MACRO M1110

014304
014312

014352
013740
165542

001166

000200

014302

017705
112737
113737
004737

165452
000010
001204

112737
113737

004737
004737

031706
000010
001204
031706
034250

@WORK3
19%

19%:

000002

041055
000010
001204
031706

#SHITBL=-2,R
#CODTBL ,R4
#22% ,HOOK

001140

001204
012264
000002

012705
112737
113737
004737

011305

001166

001175
001174

ONL INE
1%
#2,R3

(R%)

208
#2 ,WORK3

20%:

18$

#BIT7 ,FLAG21

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

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

(R3) .RS

#10,MODE+1

ONL INE ,MODE

gg'éfi&?r

#5000.

011610
033676
014302

012705
112737
113737
004737
162703

041001
000010
001204
031706
000002

#10,MODE
+1
ONL INE ,MODE
PC, SEND
#2°R3

112737
113737

004737

000010
001204
031706

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

012705
112737
113737
004737

040730
000010
001204
031706

#10,MODE
+1
ONL INE ,MODE

#5000. RS
PC,MSTALL

FLAG21
218
#MSG146,
ONL INE
#MSG146.RS

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

#MSG143,
ONL INE
#MSG143.RS
PC., SEND

;END OF SHITBL ?

012705
004737
105737
100445

012305

CTLTBL

sSELECT NEXT LINE
;YES EXIT TEST

(R$) ,ONL INE

001175
001174

;END OF

;CLEAR DONE FLAG

s SEND INSTRUNT IONS
;MESSAGE ADDRESS TO R5
;SET SINGLE LINE MODE
;SELECTED LINE NO.

;SEND INSTRUCTION #2
sMESSAGE ADDRESS TO RS

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

;WAIT 5 SECONDS

sSETUP STALL TIME CONSTANT

;DONE FLAG SET ?
;YES BRANCH
;ERROR DIDN'T RECV CHAR
;MESSAGE ADDRESS TO RS
;SET SINGLE LINE MODE
sSELECTED LINE NO.

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

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

CZLAIBO LAQO, LA34 DMT PROG

TESTS

MACRO M1110

B 6
PAGE 45-4
SEQ 0066

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

005237
005737
100253
000000
000240
123724
001646
004737
005304
162703
000137

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

000240
052737
042705
010537
005037
004737
000207

23300 013772
23400 014000

032737
001056

001110
001116
21%:

001170
013772
000002
013436

21900
55988

014002
014010
014014
014020
014026

24000 014034

24100 014042

014042

000200
177600
00i170
001146
033446

014302

22%:

23%:

NOP
BIS
BIC
MOV
CLR
JSR
RTS

T T S R
;BAD CHAR CODE

013737
012705
004737
113737
113737

020000

001116

001170
020600
033730
020603
020604

001134

113737

020605

012705

041001

112737
113737
004737
012705
112737
113737
C04737

041014
000010
001204
031706

001175
001174

012705
112737
113737
004737
000207

041132
000010
001204
031706

001175
001174

24700 014140
014146

000054
000057

000055
000060

000056
000067

000062
000073
000065

000010
001204
031706

000063
000047
000066

T21€:

BIT
BNE

MOV
MOV
JSR
MOVB
MOVB

ERROR
SO

JHALT ON ERROR ?

19%

JIF BIT 15 SET

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

JCHECK FOR CORRECT CODE
;CALL ERROR ROUTINE

P E e B

;GET CHAR FROM FIFO
#B1T7,FLAG2T
;SET DONE FLAG
#177600,R5
;CLEAR PARITY BIT
RS5,CHARIN
LOOPO
;TURN OFF TIMER
PC ,KBOUT
PC

T e D
e
ROUTINE

#B8IT13,S0
26%

e AR

R e SN B

;CHECK SW 13

SEND]

26%:

MOVB
MOVB
JSR
SEND]
MOV
MOVB
MOVB
JSR
SENDI
MOV
MOVB
MOVB
JSR
RTS

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

KEYTBL:

.WORD

54,55,56,57,60,61,62.63,64,73,47

.WORD

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

MOVB

MOV

001175
001174

#MSG146,RS5

;MESSAGE ADPDRESS TO RS

;SET SINGLE LINE MODE
;SELECTED LINE NO.

;MESSAGE ADDRESS T9 RS
sSET SINGLE LINE MODE
;SELECTED LINE NO.

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

000064

000067

CHARIN, TEMP
;SET UP CONVERTER
#EBUF ,RS
PC,BIOCT
;CONVERT TO ASCII
EBUF +3,MSG149
EBUF +4 ,MSG149+1.
EBUF +5 ,MSG149+2.
#MSG146,0NL
INE

041132
041133
041134

014046
014054
014062
24200 014066
014066
014072
01410C
014106
24300 014112
014112
014116
0141264
014132
24400 014136

014154
014162
24800 014166

INC
TST
BPL
HAL T
NOP
CMPR
BEQ
JSR
DEC
Sus
JMP

P e T AP T RE s Ierra P L PR
; CODE CHECKER ROUTINE

23000
gg;gg

23500
23600
23700
23800
23900

26~FEB=79 14:37

(ZLAIBO LAOO, LA34 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
¢5900 014330
014336
26000 014344
26100
26200 014352
014355
014360
014363
014366
26300
26400
26500 014370
26600 014374
26700 014400
26800 014404
26900 014410
27000

000070
000133
000140
000143

000146
000150
000153
000156
000160
000163
000166
000170
000040
000000
000000

000071

000134
000141
000144
000147
000151
000154
000157

000161
000164
000167
000171

MACRO M1110 26=FEB=79 14:37 PAGE 45-2
C

000075
000135
000142
000145

.WORD

140,141,142,143,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,4C

KEYEND:
FLAGZT:

. WORD
.WORD

0
0

041446
00CC00

041110

041212

CTLTBL:

.WORD

MSG170,MSG156 ,MSG157,0

041136
041263
041416
041442
041442

041066
041167

SHITBL:

.WORD

MSG151,MSG152,MSG158,M5G159,MSG154,MSG166

041431
0471163
041163

041255
041402
000000
000000
CC0000

.WORD

MSG167,MSG168,000000,M5G6169,MSG153,
000000

.WORD

MSG169,M56153, 00000

102

011

:
CODTBL

.BYTE

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

END22:

CLR
CLR

LOOPO
ONL INE

RTS

101
015
012
044
000

005037
005037
005037
005037
000207

020

177
104

001146
001204
014302
001140

010
104
064

CLR
CLR

FLAG21
HOOK

SEQ 0067

(21 AIBO LAOC, LA34 DMT PROG

TESTS

MACRO M1110

SEG 0068

27200

27500

014676
31400 014702

o;me

mme

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

27300
27400

7600
27700
27800
27900
28000 014412
28100 014416
28200 014422
28300 014426
28400 014430
28500 014436
28600 014440
28700 014444
28800 014450
28900 014452
29000 014456
29100
29200 014460
014460
014464
014472
014500
29300 014504
29400 014512
29500 014516
014516
014522
29600 014526
29700 014534
29800 014536
014536
014542
014550
014556
29900 014562
30000
30100 014564
30200 014570
30300 014576
30400 014600
30500 014604
30600 014612
30700 014620
30800 014624
30900 014630
31000 014634
31100 014642
31200 014650
31300 014656
014656
014662
014670

D 6
PAGE 46

26-FEB=7S 14:37

HO THE OCTAL

CODE OF

THE

CHARACTER

G WITH THE CHARACTER IF IT IS PRINTABLE.
IF NONPRINTABLE THE MNEMONIC WILL BE RETURNED.

TYPE A DELETE

TO EXIT THIS TEST.

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

LEL A

005037
005037
013700
006300
023737
103402
000137
105760
100003
005237
000761

012795
004737
032737
001013

010000
03367¢
000004

113737
004737
000753

042366

000010
C01204
031706

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

014302
001170

012705
112737
113737

041132
000010
001204
031706

(04737

001152
4%:

001204

035524
000010
001204
031706
015164
034250

012705
112737

1%:

015146
020634

012705
112737
113737
004737
012737
004737

001160
001170
001160
001135
016324
033730
016327
016330
016331

AL B

TEST21:

001204
014302
001204

001204

001175
001174
001140

3%:

001175
001174

000177

;SU FOR LINE O

ASL
CMP
BLO

RO
ONLINE,NUMLIN
4$

:MAKE WORD OFFSET TO TABLES
DONE YET ?

TSTB
BPL
INC

DZLINE(RO)
28
ONL INE

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

JMP

20$

SENDI
#MSG18,ONLINE
MOV
#MSG18.RS
MOVB
#10,MODE+1
MOVB
ONLINE ,MODE
JSR
PC, SEND

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

JSR

:WAIT FOR PRINTING TO FINISH

MOV

#308
, HOOK

STALL

#10000

PC,QUIET

#10000,RS
PC,MSTALL

BIT
BNE
SENDI
MOV
MOVB

#B8IT2,FLAG21
5$
#MSGK3,ONLINE
#MSGK3 RS
#10,MODE+1

B8R

MOVB
JSR

5%:

CLR FLAG21
MOV
ONL INE ,RO

MOV
JSR

014302

CLR ONLINE

B8R
2%:

CLR
CMPB
BEQ

ONLINE,MODE
PC,SEND

FLAG21
CHARIN,#177
108

CLR
MOVB
MOVB
CLRB

WORK
CHARIN,WORK
WORK,TEMP

JSR

pc.BIOCT

TEMP+1

MOV

#T308UF ,RS

MOVB

T30BUF+3,MSG149

“THEN WAIT 10 SECONDS

‘

:SETUP STALL TIME CONSTANT

;CHAR RECVD FLAG SET ?
*YES GOTO 5
:NO- PROMPT OPERATOR
:MESSAGE ADDRESS TO RS
;SET SINGLE LINE MODE
:SELECTED LINE NO.

:DELETE CHAR 2
:YES JUMP TO 10
;SAVE CHAR
*SU TO CONVERT TQ OCTAL/ASCII

:CONVERT & STORE AT T30RUF

MOVE T30BUF +4,MSG149+1
MOVB T30BUF +5.M5G149+2
SEND]
#MSG149,ONLINE
;SEND OCTAL DATA
MOV
#MSG149 RS
:MESSAGE ADDRESS TO RS
MOVB
#10,MODE+1
;SET SINGLE LINE MODE
MOVB
JSR
SENDI

ONLINE,MODE
PC, SEND
#MSGT15,ONLINE

;SELECTED LINE NO.

;AND AN '=*

(Z2LAIBO LAOO, LA34 DMT PROG

MACRO M1110

26-FEB=79 14:37

PAGE 46-1

SEQ 0069

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

015010
015016
015024
33000 015030

23100
33200 075032
33300 015040
015040
015044
015052
015060
334,00 015064
33500 015072
33600 015074
33700 015100
33800 015104
33900 015106
015106
015112
015120
015126
34000 015132
34100 015136
34200 015142
34300
34400 015146
015146
015152
015156
34500 015162
34600
34,700 015164
34800 015170
34900 015176

35000 015202
35100 015206
35200 015212

012705
112737
113737
004737
004737
123727
101034

040257
000010
001204
031706
034250
001160

012704
005003
113703
006337
063703
116324
005203

041132

MOV

001175
001174

MOVB
mMovB

JSR
JSR
CMPB
BHI

000040

6%:

001160
001160
00116G
036163

MOV

CLR
MOVB
ASL
ADD
MOVB

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

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

WORK , #40
7%

JPRINTABLE CHARACTER ?
“YES= GCTO 7

PC, SEND
PC.QUIET

#MSG149,R4

R3
WORK ,R3
WORK
WORK ,R3

g§633(R3).(R4)¢

036163

2%633(R3).(R4)+

116314

036163

012705
112737
113737
004737
000415

041132
000010
007204
031706

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

113737

001170

012705
112737
113737
004737
032760
001405
012746
004737
000000

037330
000010
001204
031706
040000

#10 ,MODE +1

ONL INE ,MODE

037370
000010
007204
031706
014512
001204
014422

Ci2705
005037
004737
000207

037373
001174
031706

005037
052737
042705
010537
004737
000207

001146

000004

177600

001170
033446

;GET MNEMONIC CHARS
:PRINT CHAR MNEMONIC
“MESSAGE ADDRESS TG RS

;SET SINGLE LINE MODE

;SELECTED LINE NO.

PC, SEND

037330

7%:

CHARIN,MSG70
#MSG70
, ONL INE
#MSG70.R5

#10,MODE +1

001175
001174

031566

ONL INE ,MODE

PC, SEND

8%:

#MSG15,-(SP)
PC,ERRORT

9%:

SENDI

001175
001174
108:

014302

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

gg.ssno

20%:

30%:

:ECHO RECVD CHARACTER
:MESSAGE ADDRESS TO RS

:SET SINGLE LINE MODE

:SELECTED LINE NO.

g21r14.afcsnn<no>

035415
020352

012705
112737
113737
004737
000137
005237
000137

;CODE *3 FOR TABLE OFFSET

QQLINE

SENDALL #MSG77

MOV
CLR
JSR
RTS

CLR
BIS
BIC
MOV
JSR
RTS

:PARITY OK ?

:NO CALL ERROR RIN.

:IF BIT 15 SET IN SWR
:MESSAGE ADDRESS TO RS
;SET SINGLE LINE MODE
:SELECTED LINE NO.
;TEST NEXT LINE

:33@77.R5

;BUILD SEND CALL USING MESSAGE ADDRESS

gg.senv

:NOW SEND THE MESSAGE

LOOPO

;ABORT TIMEOUT

#BI1T2,FLAG21

#177600,RS
RS, CHARIN
PC.KBOUT
PC

*SET CHAR RECVD FLAG

;7O RECV RTN.

(ZLAIBO LAQD, LA34 DMT PROG

TESTS

35400
35500
35600
35700
35800
35900
36000
36100
36200 015214
36300 015220
36400 015224
36500 015230
36600 015236
36700 015242
36800 015244
36900 015252
37000 015254
37100 015260
37200 015262
37300 015266
37400 015270
015270
015274
015302
015310
37500 015314
37600 015320
37700 015326
37800 015330
37900 015334
38000 015336
015336
015342
015350
015356
38100 015362
38200 015366
38300 015370
015370
015374
015402
015410
38400 015414
015414
015420
015426
015434
38500 015440
38600 015446
015446
015452
38700 015456
38800 015462
38900 015464
39000 015470

39100 015472
39200 015476

MACRO M1110

26-FEB=79 14:37

PAGE 47

SEQ@ 0070

005037
012701
005037
012737
013700
006300
023737
001550

001204
015622
001160
015602
001204
001204

105760
100003

020634

005237
000763

001204

012705

042136
000010
001204
031706
001164
001164

112737
113737

004737
005037
023727
002403
005237
000740

041617
000010
001204
031706
001164

016105

015622
000010
001204
031706

012705
112737
113737
004737
012737

041676
000010
001204
031706

012705
004737
005737
001420

035230
033676
001136

105761
100410

012746
004737

TEST WILL REQUIRE

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.

TEST22:

CLR
MOV
CLR
MOV
MOV
ASL

ONL INE
#TABL24
,R1
WORK
#11$,HOOK

1$:

001152

000012

177777

024554

036441
020352

48:

001175

001174

DZLINE(RO)

*ACTIVE LINE

9§L1~E

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

;YES= START TESTS

*NO- TRY NEXT LINE

;SEND TEST ID
*MESSAGE ADDRESS TO RS
:SET SINGLE LINE MODE
;SELECTED LINE NO.
:SUBTEST 0 OF 9

BLT

*NO KEEP TESTING

cMP

WORK2,#10.

éfi‘

?gLINE

SENDI

#MSG303.ONL
INE

MOVG

#10,MODE+1

MOV

#MSG303.RS

ONL INE ,MODE
PC,SEND
:?nxz.a1

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

#MSG304 ,ONL INE
#M3G304 .RS

MOVB

ONLINE,MODE

JSR
MOV

STALL

#10,MODE+1

PC, SEND
#-~1 NOTYET

#15000.

MoV

#15000. ,RS

TST

NOTYET

TSTB

STOP(R1)

JSR

BEQ
BMI
MOV
JSR

*DONE 10 YET?

*YES GET NEXT LINE
sSEND INSTRUCTIONS

*MESSAGE ADDRESS T0 RS

;SET SINGLE LINE MODE

;SELECTED LINE NO.
:POINT TO MSG TABLE

TABL24(R1),ONLINE
TABL24 (R1) .RS

SENDI
MOV

MOVB

SYES JUMP

WORK?

MOVR
MOVZ
JSR

001174

108

CLR

SENDI
MOV

001175
001136

SENDI
MOV
MOVB
MOVR

MOVB
JSR
22{

001175
001174

:SET INTR CATCHER

ONL INE ,RO

TSTB

JSR

2$:

;START ON LINE O

;DONE ALL LINES ?

éfic

001175
001174

TO ENTER

RO
ONL INE ,NUML IN

BPL

2%:

THE OPERATOR

CMP

BEQ

001204

012705
112737
113737
004737
013701
006301
112737
113737
004737

001140

:
:
:

THIS

PC,MSTALL

:SEND MSG FOR SUBTEST
‘MESSAGE ADDRESS TO RS
;SET SINGLE LINE MODE
;SELECTED L INE NO.

;MESSAGE ADDRESS TO RS

sSET SINGLE LINE MODE

+SELECTED LINE NO.

;GETS CLEARED BY XON MSG

SALLOW SETUP TIME 15 SEC

sSETUP STALL TIME CONSTANT

sSEEN XON YET ?

sYES CONTINUE

6%
#MSG40,=(SP)
PC,ERRORT

sYES WAIT MORE

+LINE SELECTED ?
sREPORT ERROR

TIME

15564

40500 015570
40600 015574
40700 015600
40800
41000 015602

41100
41200
41300
41400
41500

015606
015610
015614
015620

41600
41700 015622

016105
112737
113737

004737
004737

005237
000137
005037
000207
122705

001004
005037
005037
000207

6%:

024554
015446

7%:

015650
015650
000010
001204

031706
034250
001164
015320
001140

9%:

000021

11%:

JTRY NEXT L INE

STOP(RZ2)
5%
TAB24B(R1)

JYES

TAB24B(R1) ,ONL INE

TAB24B(R1) ,RS5

#10,MODE +1
ONL INE ,MODE

PC,SEND

PC,QUIET

JUMP

;SEND THE MSG

JMESSAGE ADDRESS TO RS

JSET SINGLE LINE MODE
JSELECTED LINE NO.

JRELEASE INTR CATCHER
YENLY v

#21,R5
12%
NOTYET
lfi?OPO

JXON ?

12%:

CMPB
BNE
CLR
CLR
RTS
.WORD

MSG309,MS5310,M56311,MS6312,M5G317,MSG314

.WORD

MSG313,MS6308,M5G316,M5G
000000
315,

.WORD

MSG107,MSG107,MSG107,MSG107,MSG321

041767
042075
041743
000000

042001
042037
042063

TABL24:

075656
42700 015662
015670

040056
040C56
042224
62274

040056
042164
042244

040056

TARBZ4RB:

042264
000000

INC

J1F SW 15 SET

HOOK
PC

041755
042013
042025
042051

042304

JSR
JSR

?gLINE

;SU NEXT SUBTEST

C15630
41800 015636
015644

41900
42000 015650

G_6
PAGE 47-1

ggRKZ

108.

001136
001146

BR
NOP
CLRB
JMP
NOP
TST
BEQ
SEND]

MOV
MOVB
MOVB

NN
£Haen

000137
000240
005761
001414

HALT
INC

001204

—_—

105062

26~FEB=79 14:37

SEQ 0071

—

000000
005237
000652
000240

MACRO M1110

oo
oo

OJ\O*OY*‘J\ WNNN—-‘—-‘—‘?O
OO SO
S

40300

d e

D e

D D

D e

ALY AL IV, LWL LV [V, LV, [V, TV, TVLTV | v
vy
i

39300

39400
39500
39600
39700
39800

elelolelololelslolololololelole)

CZLAIBO LAQQ, LA34 DMT PROG
TESTS

JMP
CLR
RTS

sCLEAR IN XON
JABORT TIMEOUT

MSG322 ,MSG323,MSG324 ,MSG325,M5G326, 000000

AIBC (L ADD,
3

LA3L DMT PROG

MA_RO M1110

26-FEB=79 14:37

PAGE 48
SEG

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

SLIFETTEST " 418

;

:
:
:
:

THIS

TEST

WILL

PRINT A CONTINUOUS PATTERN

OF ALL PRINTABLE CHARACTERS. EACH CHARACTER
WILL BE PRINTED ON 2 FULL LINES,
WiTH THE PASS COUNT INBEDDED IN THE LINES.
THIS PATTERN WILL PRECESS 1 CHAR POSITION

:
:

EACH LINE PRINTED.
LOOPING IS CONTROLLED BY SWITCH #12.

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

43400 015676

43500
43600
43700
43800

012705
005037
004737
005037
032737
001021

041527
001174
031706
001124
010000

015726
015732
015740
015746

012705
013737

000101
001172
000026
032310

015752
015756
015762

012705
005037
004737
000207

037373
001174
031706

013737
162737

001172
000005
001160
000041
€00002
001162
016270
010000

015676
015702
015706

015712
015716
015724
015726

43900 015752

44000 015766
44100
44200 015770
44300 015776
44400 016004
44500 016012
44600 01602C
44700 016026
44800 016032
44900 016036
45000 016044
15100 016046

45200 916054
45300 016056

112737

004737

113737

012737
112737

005037
004737
032737
001742
C13737
001412

014056
016062
016070
016076

13705
013737

016102
016106
016112
45500 016116

012705
005037
004737
005003

45400 016102

112737

004737

c01162
001160
007516
000020
032310

113737
163737

001412

007512
001162

016136
016142
016150

012705
013737
112737

001160
007576
000020

45900 016136

000800000000

TESTTS:

001716

001174
001175

2%:

3%:

001116

4%:

007512
001160
007514

6$:

001174

001175

MOVE

:NOW SEND THE MESSAGE
: START WITH PASS 0
:IF LOOPING 0 T0 SECTION 4
:PRINT A FULL LINE OF A'S

?Ez

:83?77,R5

;BUILD SEND CALL USING MESSAGE ADDRESS

#'A.RS
WIDTH,MODE
#20 ,MODE +1
PC,CHROUT
#MSG77
PC,SEND

:GET CHAR TO RS
;GET REPEAT COUNT
;SET REPEAT MODE
;CALL CHAR QUTPUT ROUT INE
;SKIP 3 LINES
sNOW SEND THE MESSAGE

RTS

BRIL ie sonsimaniun
oo

MOV
SuB

WIDTH,WORK
#5 ,WORK

;GET WIDTH
;PRECESS LIMIT

JSR
gég

WORK , W1
#41 ,WORK
#2 W2
WORK 1
PC,GETPN
52X712.SO

;SAVE IN W1
sPRINTING CHAR CODE
sSU 2 LINES PER CHAR
;CURRENT PRECESS COUNT
s CONVERT PASSNO TO ASCII
;DO WHILE BIT 12 = 1

MOV

WORK1,W3

:GET PRECESS COUNT

BEQ
6%
SENDC2 WORK,W3
MOV
WORK ,R5
MOV
W3 MODE
MOVB #20 MODE+1

001174
001175

007516
007514

MODE
PC,SEND
PASSNO
#8iT12.50

;SEND TEST ID
;BUILD SEND CALL USING MESSAGE ADDRESS

#'A,WIDTH

MOvB
MOV
Movs
CLR

007516

#MSG270,RS

PPPPPRPERINIIIEPIIEIIPIIIESPE
YN
II

SENDC2

MOV
MOV
mMovs
JSR
SENDALL
JSR

001160
001160

000000000

SENDALL #MSG270

MOV
(LR
JSR
CLR
8IT

)

041612
001174
031706

45600 016120
45700 016126
45800 016134

OBP

;PRINT THE

CHARACTER

:GET CHAR 70 RS

“GET REPEAT COUNT
“SFT REPEAT MODE

JSR.
PC,CHROUT
SENDALL #MSG271

NOY "

MSGo71.RS

“CALL CHAR OUTPUT ROUTINE
“PRINT THE PASS COUNT

Jsg

gg.SEND

NOW SEND THE MESSAGE

W1 W3
SUBT

WoRKT
w3

SENDC?
MOV
MOV

WORK,W3
WORK ,RS
w3, MODE

MOVE

“BUILD SEND CALL USING MESSAGE ADDRESS

CHAR COUNT = WIDTH = § = PRECESS CNT

#20,MODE+1

sPRINT

CHARS TO END

JGET CHAR TO RS
:GET REPEAT COUNT
;SET REPEAT MODE

BO LAOC,

004737

032310

016162
016166
016172

012705
005037
004737
005237

037370

46100 016176
46200 016202

46300 016210
016212
016216
016222
016224
016272
016236
016244
016246
016254
016260

47600 016264

47500

PRQOG

016156

46000 016162

46400
46500
46600
46700
46800
46900
47000
47100
47200
47300

LA3S DMT

«7600
47700 016270
47800 016276
47900 016302
48000 016306
481C0 016314
48200 016322
48300
48400
48500
48600
48700 016324

123737
103402

005037
105337

001020
112737
005237
123727
001007
012737
005237
004737
000137

013737
012705
004737

112737
113737

000207

MACRO M1110

26=FEB=79 14:37

8%:

001174

031706
001162
001162

007512

001162
007514

000002
001160
001160

007514

000041
001124
016270
016036

001160

001124
016324
033730
016330
016331

001134

10%:

041613
041614

JSR
SENDALL
MOV
CLR
JSR
INC
CMPB
BLO
CLR
DECB
BNE

GETPN:

PC,CHROUT

;CALL

;33275'35

JBUILD SEND CALL USING ME SSAGE

#MSG7S

PC,SEND

WORK 1
32““1'”’
WORK1

CHAR QUTPUT

JSEND (KLF

ROUTINE

;NOW SEND THF MESSAGE

JNEW PRECESS (OUNT
JRESET TO O IF MAX

?8:

;2 LINE DONE YET?

MOVR

#2,W2
WORK
¥8§x.fi177

JYES RESET LINE COUNT
:GET NEXT (HAR CODE
JUNLESS ALL DONE

MOV

#41, WORK
PASSNO
PC,GETPN

;THEN RESET CHAR CCDE AND
:INC PASS (OUNT
REFORMAT MSG

INC
CMPB
BNE

000177

PAGEF 48-1

INC
JSR
JMP

MOV
MOV
JSR
MOVB
MOVR
RTS

T30BUF: .BiKW

;GO CHECK Sw 11

PASSNO, TEMP

#71308UF ,RS
PC,BIOCi

:CONVERT

T30BUF
+4 ,MSG271+1

T30BUF +5,MSG271+2

)

TO ASCII

ADDRE
S>

L AIBO LAOO,

STS

LA34 DMT PROG

MACRO M1110

26-FEB=79 14:37

PAGE 49

6
SEG 0074

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

WILL PRINT A 10 BY 6 INCH MATRIX OF CHARACTERS

UTILIZING ALL POSSABLE COMBINATIONS OF PITCH SETTINGS.

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

800 016340

016340
016344
016350
900 016354
000 016360
1 00 016366
10

00 016370
00 016374
016374
016400
016404

1400 016410

016410
016414

016420
500 016424
600 016430

700 016436

2100 016452
2200 016456
016456
016460
016464
2300 015470
2400 016476
2500 016502
2600 016504
2700 016510
2800 016514
2900 016520
016520
016524
016530
3000 016534
3100 016540
3200 016542

3300 016546
3400 016552

3509 016554
3600 016560
016560
016562
016565
3700 016572

3800 016576
3900 016600

012705
005037
004737
112703

041547
001174
031706
000011
001172

123727
101002
112703

000007

012705
005037
004737

037373
001174
031706

012705
005037
004737
005037
023727
003402
000137
013700
006300
016001

040037
001174
031706
007512
067512

010105

005037
004737
016037
005737
001002
000137
005037
004737
012705

005037

013700
006300
016001
10105
005037
004737
004737
000240
000240

000120

7$:

000005

1%:

2$:

007514

3$:
4$:

SENDALL #MSG280
?Ex
;ggg?BO.RS

;SEND TEST ID
;BUILD SEND CALL USING MESSAGE ADDRESS

JSR
MOVB
CMPB

;NOW SEND THE MESSAGE
;1F 80 COL MAKE 6X8 MATRIX

PC,SEND
#9.,R3

BHI
MOVB

WIDTH,#120
7%
#7 ,R3

?8;

SENDALL #MSG77

:ggg??.R5

;SKIP 3 LINES

ISR

PC,SEND

sNOW SEND THE MESSAGE

CLR
JSR

MODE
PC,SEND

Wi, 45

SENDALL #MSG104
MOV
#MSG104 ,R5

012154

016772
007516
034250

TEST1S:

017002
07512

001174
031706
017154
007514

CLR

BLE
JMP
MOV

;BUILD SEND CALL USING MESSAGE ADDRESS

;SET H=PITCH TO 16.5
JBUILD SEND CALL USING MESSAGE ADDRESS
;NOW SEND THE MESSAGE

;DO € vV PITCH GROUPS

2%
508
w1,RO

:GET V GROUP NO.

ASL

?Ex

R1,RS

:IF W1

> 5 GOTO 50

MOV
TABLVF (RO) ,R1T
SENDALL R1

;POINT TO V PITCH SETUP
;SETUP vV PITCH

JSR

sNOW SEND THE MESSAGE
cGET LINE COUNT FOR THIS PITCH

MOV
TST

:BUILD SEND CALL USING MESSAGE ADDRESS

PC,SEND

53L31E(R0).U2

*IF ALL LINES DONE GOTO 40

BNE
JMP
CLR
JSR

4
4os
ogm

?E%

SENDALL
#MSG

mSG7S RS

:SEND A

:DO 10 H PITCH GROUPS PER LINE

CRLF

03737C
001174
031706
007516

58:

Pc.s§~o
W3.R
68

:NOW SEND THE MESSAGE
*1F 10 DONE GOTO 30

016762
007516

JSR
TMP
BLE

68:

:'g‘f

gg.no

:POINT TO H PITCH SETULP

017120

MOV

TBL31C(RO),R1

;ADDRESS IN R1

001174
031706
034250

JSR
JSR

PC,SEND
PC,GUIET

sNOW SEND THE MESSAGE

JMP

308

SENDALL R1
??x
:8625

NOP
NOP

*BUILD SEND CALL USING MESSAGE ADDRESS

“SETUP H PITCH
;BUILD SEND CALL USING MESSAGE ADDRESS

(ZLAIBO LAOO, LA34 DMT PROG

TESTS

4000 016602
4100 016606

4200 016610
4300 016614
4400 016620
4500 016624
4€00 016630
4700 016634
4800 016642
4900 016650
5000 016654
5100 016662
5200 016666

5300 016672
5400 016700
5500 016704
5600 016712
5700 016720
5800 016724
016724
016726
016734
016742
5900 0167456
6000 016752
6100 016756
6200 016762
6300 016766
6400 016772
6500 016776
6600 017002
6700 017006
017006
017012
017016
6800 017022
6900

7000
7100
7200

013700
006300
010037
006337
006337
063700
063700
116037
013737
006337
062737
017700
016001
013737
006337
062737
017737
113711

010105
113737
112737
004737
004737
005237
000137
005337
000137

005237
000137
004737

012705
005037
004737
000207

MACRO M1110

26~FES=79 14:37

007512
001166
001166
001166
001166
007516
017024
007516
001162
017214
162274

017144
007516
001162
017170
162244

001160

001164
000920
031706
034250
007516

016534

007514
016476
007512
016430
033062
037373
001174
031706

001162

w1,R0
RO
RO, WORK 3
WORK
3
WORK3
WORK3,R0

MOVR
MOV
ASL

WORK1

ADD
MOV
MOV
MOV
ASL
ADD
Mov
MCVB

001162
001162
001164

50¢%:

;RO= W1#*10,

;RO= V ROW + COLM OFFSET
TBL3TA(RO) ,WORK JPUT (HAR [N WORK
W3,WORK1
JGET FORMAT SELECTOR

JNEXT H GROUP

DEC
JMP

w2
3%

;ADJUST LINE COUNT -1
;DO NEXT LINE

JSR

PC,RESETO

INC

40%:
41%:

;GET ADDRESS OF CHARACTER

JSR
JSR

MOVB
MOVB

30%:

w3,R0

SEQ 0075

#TBL31G,WORK1
aWORK1,R0
TBL31D(RO)
,R1
W3,WORK1
WORK1
#TBL31F ,WORK1
aWORK
1, WORK2
WORK
, (K1)
R1,WORK?
R1,RS
WORKZ2 ,MODE
#20,MODE
+1
PC,SEND
PC,QUIET

SENDR
MOV

001174
001175

MOV
ASL
MOV
ASL
ASL
ADD

ADD

001160
001162

PAGE 49-1

INC
JMP

w1
1%

SENDALL #MSG77
MOV
#MSG77
RS
CLR
JSR

RTS

MODE
PC,SEND
PC

;RO HAS SELECTOR
;R1 HAS OUTPUT MSG ADDRESS

;GET PRINT REPEAT COUNT

;WORK2 HAS REPEAT COUNT

;PUT CHAR IN OQUTPUT MSG
;PRINT H GRGUP OF

(HARS

JNEXT V GROUP
;DO NEXT V GROUP
JRESET THE TERMINALS

;BUILD SEND CALL USING MESSAGE ADDRESS
sNOW SEND THE MESSAGE
sALL DONE...BYE

MACRO M1110

(ZLAIBO LAOO, LA34 DMT PROG

TESTS

26-FEB=79 14:37

L 6
PAGE 50

7400
8.0, 0, 08,

7500
7600

017117

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

WS
AW

.BYTE

Oy
—suniv

166,167,170,45,117,120,121,122.123,124

b
D

NN
WOO

BYTE

Ounwun
&b =

162,163,164 ,1€5,75,112,113,114,115,116

e
Wi -

e
il

2OV
OON

==
Vi

— kb
——a O

— d

4 OUTPUT MESSAGE ADDRESSES

TABLE OF 6 LINE COUNTS PER V PITCH
TABLE OF 0 PRINT REPEAT COUNTS
TABLE OF 10 SELECTORD TO TBL3iD

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

ooy
N=0

O=y o~
SO W

TABLE OF

10 CHARACTER CODES

10 H PITCH MESSAGE ADDRESSES

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

BYTE

—_,—t—

TABLE OF

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

.BYTE

=N
NN

6 GROUPS OF

BYTE

Ownivn
WWO

—

TBL31A:

TBL31
T8L
31
TBL 31
TBL31

BYTE

el
il

146

102
147
152
044
105

WM
N
o

017075

8700 01707¢
017077
017102
017105
017106
17111
017114

052
143

— —d —
L
O
L O
WNININTVNI
RN = 2 ONON— oW
NN
=S =2y ONOWND
— oOowWm

7900
8000
8100
8200
8300 017024
017027
077032
017035
8400 017036
017041
017044
017047
8500 017050
017053
017056
017061
8600 017062
017065
017970

S.vs

7700
7800

TBL 31
TBL 31

oOMMoOa
P

SEQ 0076

017120
017126
017132
017140

040006
040113

040013
040006
40020
040020

017144
017152

041610
037337

037330

037333

TBL31D:

MSG281,MSG70,MSG71,M5G72

017154
017162

0060014
000004

N00010
000C03

000006
000002

TBL31E:

12..8..6.4,3,2

017170
017176
017204
017212

000020
000012
000006
000004

002014
000010
000005

000014
000006
000004

TBL31F:

.WORD

16.,12.,12.,10.,8.,6.6,5.4.4

017214
017222
017230
017236

000000
000000
000002
000006

TBL31G:

.WORD

0,0.0,0,2,2.2,2.4.6

000002

000000
000002
000004

040013
040020

040020

TBL31C:

MSG99,MSG100,MSG101,MSG108
,MS599

040113

MSG100,MSG101,MSG108,MSG101,MSG101

C7LAIBO LAOO, LA34 DMT FROG

CONSOLE DRIVER ROUTINES

MACRO M1110

100

.SBTTL

200
300

105737
100402

0001 37
113777
162777
122777

4200 017504
4300 017510
4400 017516
4500 017520
4600 017526
4700 017534
4800 017540
4900 017544

5000 017552
5100 017554
5200 017562
5300 017570

SEQ 0077

CONSOLE DRIVER ROUTINES

+ CONSOLE RECV INTERRUPT HANDLER

001002
000137
105737
100375

2200 017346
2300 017354
2400 017356
017356
017362
2500 017366
2600 017372
2700 017376
2800 017404
2900 017406
3000 017414
3100 017422
3200 017424
3300 017432
3400 017440
3500 017442
3600 017450
3700 017454
3800 017462
3900 017464
4000 017472
4100 017500

PAGE 51

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

400

500
600 G17240
700 017244
800 017246

26-FEB=79 14:37

177560

017376

177562
000200

000033

012705
004737
012716
000137

042327
02031C
002336
017376
000015

127727

002403

142777
127727
001005

012737
000137

122777
001012
052737
052737
005237
000137
122777
001012
052737
052737
005237
000137
122777
001012
042737
042737
005237

037370
020310
017406
001206
000101

17118:

177564

161672
000003

012705
004737
000137
005237
012737
000002
012737

161726
161720
161712

020150

117737
122777
001010

122777
001006

TTYIN:

177566
161662

TSTB
BM]
JMP

a#177560
1%
2118

BNE
JMP

111$
18$

MOVB
BICB
CMPB

MOVB
CMPB

@PNTR,a#177564
#03,aPNTR

sCTL=C ?

SENDC

#MSGK1

JSR
MOV
JMP

PC,CSEND
#MJSEQ, (SP)
2118

BNE
SENDC
MOV

23
#MSG7S
#MSG75 RS

(MPB

JMP
INC

1118

113§

#MSGK1,RS

PC,CSEND

sGET NEXT BUFFER SPACE
;TURN CONSOLE ON AGAIN

$
PNTR

#1017, 34177560

020332

161566

001206
000071

38:
4$:

MOV
CMPB

#TKBUF ,PNTR
@PNTR,471

000040
161550

161554
000015

5$:

BICB
CMPB

020332
017376
000110

001206

100000
100000

001116
001210

001206
017414
000114

161470

040000
040000
001206
017414
000103

001116

140400
140400

001116
001210

001206

MOV

6$:

7%:

161434

8$:

#40,aPNTR
aPNTR, #15

JRETURN

SRESET LC BIT IF ALFA
;STOP DECODE IF CR

#TKBUF ,PNTR

;RESET BUFFER POINTER FIRST

CMPB

#'H,aPNTR

sHALT COMMAND?

BIS
BIS
INC
JMP

#81715,50
#BIT15,TMPTST
PNTR
43

:YES- SET BIT 15

BNE

JMP

BNE

CMPB

BIS

001210

sRETURN TO WAIT STATE

;ECHO CRLF
;GET MESSAGE ADDRESS
: SEND MESSAGE

E?Y

BNE

s SEND MESSAGE

;DECODE INPUT IF

2118:

BLT

;SEND READY
;GET MESSAGE ADDRESS

#15,aPNTR

177560

161524

;READ CHAR INTO BUFFER
;STRIP PARITY BIT
;DECODE INPUT IF ESCAPE
JECHO THE CHAR

JSR

28:

INTERRUPT

aN177564

BNE

1138:

;FALSE

TSTB

BPL

MOV
161632

a#177562,aPNTR
#200,aPNTR
#33,3PNTR

JREADY ?

2118

#'L.aPNTR

;LOOP COMMAND ?

#81T714,50

sYES= SET BIT 14

#'C,aPNTR

s CLEAR COMMAND 2

BIS
INC
JMP

#BIT14.TMPTST
PNTR
43

BNE
BIC
BIC
INC

9
#140400,
50
#140400, TMPTST
PNTR

CMPB

JRESET THE BITS

CZLAIBO LAOO, LA34 DMT PROG

CONSOLE DRIVER ROUTINES

5400 017574
5500 017600
5600 017606
5700 017610
5800 017612
5900 017614
6000 017620
6100 017624
6200 017626
6300 017632
6400 017634
6500 017642
6600 017650
6700 017652
6800 017660
6900 017666
7000 017670

000137
122777

001035

10500 020102
10600 020104
10700 020112
10800 020114

26~FEB=79 14:37

005000
004737
010037
012600
005737
001003
012737

161400

9%:

020060
001172
001172
000204
001172

001172
000204

000204
001172

001172
000040

000040

001172

017414
000122
010000

161276

25%:
26%:

108:

001210

020060
020234

BLE

MOV
CMP
BGE
MOV
JMP
CMPB
BNE
8IS
MOV
CLR

JSR
JSR

MOV
JMP
(MPB

161236

012000

001210

BNE
8IC

161176

JSR
MOV
JMP
CMPB

11%:

MOV
CLR
JSR

020060
020234
122777
001012
052737
052737
005237
000137

000400
001206
017414

012705
004737
012737
000137

042366
020310
020332
017376

005237
127727
002425
127727
003021
127727
002404

001206

112700

JMP
(MPB
BNE
MOV
(LR
JSR
MOV
MOV
TS1
BNE
MOV
CMP

017414
000123

017414
000056

000400

001116
001210

12%:

001206

000060

161106

000071

161076

000070

4%
#'W,aPNTR

JSET WIDTH ?

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

25%

#204 ,WIDTH
WIDTH,#204

26%

#204 ,WIDTH
WIDTH, 432.
27%
#32. ,WIDTH
4$
#'R,aPNTR
11%

#B81T12,TMPTST
RO,=(SP)

RO
PC,15%

PC ,NUMCHK

(SP)+,R0
43

#'S,aPNTR

12%
#012000, TMPTST
RO,=(SP)
RO
PC,158
PC ,NUMCHK

(SP)+,R0
48

#'. ,3PNTR

14%

JRUN TEST COMMAND ?

;SET THE CNTL BITS

s CONVERT NEXT TO OCTAL

; SEQUENCE COMMAND ?

:CONVERT NEXT TO OCTAL

: TERMINATOR ?

#B178,50
#BIT8,TMPTST

131%:

PNTR
43
#MSGK3
#MSGK3 RS

14%:

161116

000077

N 6
PAGE 51-1

SEGC 0078

010046

7100 017676
7200 017702
7300 01771C
7400 017712
7500 017720
7600 017722
7700 017724
7800 017730
7900 017734

8000 017736
8100 017742
8200 017750
8300 017752
8400 017760
8500 017762
8600 017764
8700 017770
8800 017774
8900 017776
9000 020002
9100 020010
9200 020012
9300 020020
9400 020026
9500 020032

017414
000127

MACRO M1110

PC,CSEND
#TKBUF ,PNTR

1418:

sUNDEF INED COMMAND CHAR
;GET MESSAGE ADDRESS
s SEND MESSAGE

211%

15%:

PNTR

aPNTR, #60
16%

cPOINT TO NEXT CHAR IN BUFFER
SEXIT IF NOT NUMERIC

aPNTR, 471
16%

aPNTR, 470

MOvB

17%
#77 RO

;DECIMAL OR OCTAL ?

sDECIMAL ; INVALID

(ZLAIBO LAOO, LA34 DMT PROG

CONSOLE

DRIVER ROUT INES

10900 020120

11000 020124

00 020132

000137
142777

MACRO M1110

26~FEB=79 14:37

020146
000370

161054

17%:

16%:

020210

12400 020214

12500 020222
020222
020226
12600 020232
12700

12800 020234

12900 020236
13000 020240
13100 020244
13200 020252
13300 020254
13400 020260
13500 020262
12600 020270
13700 '020274
13800 020276

13900
14000
14100
14200
14300
14400
14500
14600
14700
14800
164900

020276
020302

020306

020310
020312
020314
020320

15000 020322
15100 020326
15200 020330
15300
15400 020332
15500
15600

18%:

012705
004737
013737
062706
012746
012737

035657
020310
001210
000002
002450
020332

001206

012705
004737
012737

042327
020310
000101

177560

012705
004737
000002

000100
033676

105700
001006

105037

042737
000207
120027

003006
052737
110037
000766

012705
004737
000756

5715
1406
05737
100375
112537
000770
000207
el
TM B
OO

020150
020154

I
SEQ 0079

161042

00 020150

PAGE 51-2

001116

001210

000022

002000
001210

042366
020310

177564

ASL
ASL
ASL

BISB
BR
RTS

SENDC
MoV
JSR

MOV

ADD
MoV
MOV
SENDC
MOV
JSR
MOV
STALL
MOV
JSR
RTI
NUMCHK:

001210
002000

JMP
BI(B

1%:

2%:
3¢:

001210

4%:

TSTB
BNE
CLRB
BIC

RTS
CMPB

BGT
BIS
MOVB
BR
SENDC
MOV

16$
;87o,ap~ra

;STRIP AWAY ASCII BITS

RO
RO
aPNTR,RO
15%

:MAKE ROOM FOR NEW DIGIT
*ADD NEW LSD
“GET NEXT CHAR

“EXIT OCTAL

IN RO

#MSG22
#MSG22 RS

JECHO $ AND CRLF
:GET MESSAGE ADDRESS

:}8&.a~177560

*ENABLE CONSOLE

PC, CSEND
TMPTST, S0
#2,SP
#LSEQ,~(SP)
#TKBUF ,PNTR
#MSGK 1
#MSGK1,RS
PC, CSEND

#100,R5

PC.MSTALL

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

;SETUP STALL TIME CONSTANT
;TO TEST SEQUENCER

:TEST NO. ENTERED ?

TMPTST

#BIT10,TMPTST

:NO SELECT

:BYE

RO, #22
4%

1700 BIG ?
:YES

#MSGK 3

5399

PC, CSEND

;SEND MESSAGE

#BIT10,TMPTST
gg.rnprsr
#MSGK3,RS

:0K SELECT TEST
*SAVE TEST NO.
;GET MESSAGE ADDRESS

:.&wgbiél?b’m

ii.fi%?jh&'..l'....."l."l....'.l..l..l..-'..

CSEND:

(RS)
2%

: NULL?
SYES= ALL DONE

(RS)+,a#177566

:SEND CHARACTER

177566

TSTB
BEQ
53{8

MOVB

2%:
TKBUF:

B8R

?:177564

CSEND

RTS

.BLkW

‘WAIT FOR READY BIT

:CONSOLE INPUT BUFFER AREA

(ZLAIBO LAOO, LA34 DMT PROG
ERROR HANDLER

MACRO M1110

26-FEB=79 14:37

SEQ 0080

15800

.SBTTL

15900
16000
16100

16200
16300
16400
16500
16600 020352
16700 020360
16800 020362
16900 020370
17000 020374
17100 020400
17200 020406
17300 020414
17400 020422
17500 020430
17600 020434
17700 020440
17800 020446
17900 020454

020454
020460
020466
020474

013737

012705
004737
113737
113737
013737
042737
012705
004737
113737
113737
012705
112737
613737

18000 020500
18100 020502
18200 020506

012705
004737

020540
020542

010305
004737
012603
011666
062706
005237
005737
100402
062716
000207

18500 020546

18600 020550

18700 020554
18800 020560
18900 020564
19000 020570
19100 020572
19200 020576
19300
19400
19500 020600

020606

19600 020610

020613
020616
020621
020624
020627

001204
020600
033730
020604
020605
001212

001134

177700

020600
033730
020604
020605
020610
000010
001204
031706

000010
001204
031706

020530
020534

18409 020540

001116

000000
000000
124

020626
020627
001134
001134

MOV

JSR

124

060
114
105

060

105

2%:

#177700, TEMP

#EBUF RS
PC,BIOCT

*CONVERT LINE NO.

;GET TEST NO.

;CONVERT IT TO ASCII

R3,=(SP)
4(5P),R3
R3,ONLINE
R3:RS

;SAVE R3
*GET MSG ADDRESS FROM STACK
*SEND ERROR MSG
:MESSAGE ADDRESS TO R5

ONLINE,MODE
PC,SEND
#MSGE
#MSGE ,RS

:SELECTED LINE NO.

WMSGE ,ONL INE

ONL INE,MODE
PC, SEND

MOVB

#10,MODE+1

PC, CSEND

;FORMAT ERROR MSG
;TEST AND LINE NO'S
;SELECTED LINE NO.

*SET SINGLE LINE MODE

;SAME THING TO CONSOLE

*GET MESSAGE ADDRESS

:SEND MESSAGE

MOV

R3
R3.RS
PC . CSEND
(SP)+.R3

ADD
INC
éfi}

#2,5P
ERROR
gg

ADD

#2,(SP)

:JUMP OVER ERROR HALT

:BUFFER AREA

MOV

RTS

(SP),2(SP)

:GET MESSAGE ADDRESS
*SEND MESSAGE

*RESTORE R3

“ERASE ADDR FROM STACK
*ADJUST STACK POINTER
*FLAG THE ERROR
*HALT ON ERROR SET ?
RETURN

0,0,0,0

123

MSGE:

.ASCIZ

/TEST 00, LINE 00 /<15><12>

060
015

040
116

TO ASCII

;CALL CONVERTER
*FORMAT ERROR MSG

.WORD

040
040

ONL INE , TEMP
#EBUF ,RS
PC,BIOCT
EBUF+4 ,MSGE+14.
EBUF+5.MSGE+15.
TSTTYP. TEMP

EBUF:

060

:INHIBIT PRINT ?
‘YES JUMP

000000

040
054
11

#B1T13,50
1%

MOVB
JSR

JSR

000002

*MESSAGE ADDRESS TO RS
;SET SINGLE LINE MODE

SENDC
MOV

1$:

#MSGE RS
#10,MODE+1

JSR

000002
000002
001110
001116

MOV
MOVB

MOVB
JSR
SENDC
MOV

020310

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

MOV
MOV
SENDI
MOV

001175
001174

MOVB
MOVB

SENDI

001175
001174

CHECK ON SWITCH 13.

BIC

020615
020616

LA B

THIS ROUTINE WILL HANDLE THE PRINTING OF
ERROR MESSAGES, UPDATE ERROR COUNTS, AND

MOV
MOV
JSR
MOVB
MOVB
MOV

020610
020310

000000

ERRORT: BIT
BNE

000004

020506
020510
020516
020524

18300 020530

020000

ERROR HANDLER

ERRORT

;
:
:
032737
001073

c.7

PAGE 52

:STD MSG HEADER

(ZLAIBO LAQQ,

ERROR HANDLER

19700

19800

020632

MACRO M1110

LA34 DMT PROG

26-FEB=79 14:37

PAGE 52-1

012

000

EVEN

£Q 008

CZLAIBO LAQQ, LA34 DMT PROG
ERROR HANDLER

MACRO M1110

20-FEB=79 14:37

E_7

PAGE 53

SEQ 0082

.SBTTL

DZ11 DRIVER ROUTINES

sTHSES ROUTINES WILL HANDLE

FROM 1

TO 8 DZ11'S

:JOWN COMEAU INVENTED THESE WONDERFULL ROUTINFS
sNOW A BUNCH OF

JHERE

TABLES

1S A ONE WORD PER LINE

s THE PROGRAM IS RESPONSIBLE

TABLE.

iT HOLDS LINE PARAMETERS

FOR SETTING IT UP.

;THE DZ11 ROUTINES SIMPLY READ IT.

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

4100
4200

4300

4400
4500
4600

4700
4800
4900

5000
5100 020754
5200

— N
VN —=WNO

o
o
o

2000
2100
2200
2300
2400
2500
2600
2700
2800
2900
3000
3100
3200
3300
3400
3500
3600
3700
3800 020634
3900
4000

HOLD THE LINES BAUD RATE INFO
815303-0/BAUD

ek
ke kD = DO
O
ek B B DO OO 2 bk
== OO==200—==200
—=-O=-O—-2O—-0O0—-0—0

1900

;BITS 3-0
:

300
600

1200
1800

2000
2400
3600

4800
7200

9600
:
RESERVED
;BIT 6 SELECTS THE TYPE OF PARITY,
0= EVEN

1=0DD

;BIT 5 IT THE PARITY ENABLING BIT, O IF NO PARITY, 1 IF PARITY

DZLINE: .BLKW

DZCON#8.

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

JHERE ARE THE DZ11 COMMAND BUFFER AREAS
sTHERE 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
;1F HIGH BYTE IS 10, LOW BYTE HOLDS LINE NO TO SEND TO
;IF HIGH BYTE IS 20 LOW BYTE HOLDS REPEAT COUNT
;IF HIGH BYTE IS 30 LOW BYTE HOLDS SPECIAL TERMINATOR.

DZCOMB:

.BLKW

DZCON=*8.%20.

: 8 LINES PER DZ TIMES 20. wORDS PER LINE

LZLAIBO LAQC, LA34 DMT PROG
DZ11 DRIVER ROUTINES
5600
5500 024054
5600
5700
5800
5900 024174
6000
6100
6200 024314
6300

MACRO M1110

26-FEB=79 14:37

PAGE 54

7
SEQ 0083

;TABLE OF FLAGS FOR ACTIVE LINES

ACTIVE:

.BLKW

DZCON+8,

JHERE 1S THE TABLE OF CURRENT REPEAT COUNTS.
CURREP:
JHERE

CURTER:

.BLKW
THE

.BLKW

DZCON+8,

TABLE OF

CURRENT

DZCON*8.

TERMINATORS

;HERE IS THE LINE REPLY TABLE

6500 024434

REPTBL:

6800 024554

STOP:

7100 (24674

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

.BLKW

DZCON+8.

SHERE IS A TABLE OF SWITCH WORDS SET TO CLEAR T(R REG
.BLKW

sHERE ARE

DZCON=8.

THE PRINTING COMMAND BUFFER POINTERS

7400 025014

025134
025254
025374

COMCNT:
COMIN:
COMOUT:
COMEND:

.BLKW
.BiLKW
.BLKW
.BLKW

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

025514

TCRBIT:

.BLKW

DZCON+8.

7500
7600
7700
7800
7900
8000
8100

8200 025634
8300
8400
8500 025754
8600
]700
8800 026074
8900
9000
9100 026214
9200
9300
9400 026334
9500
9600
9700
,
9800 026454
9900
10000
10100
10200 031554

1030C
10400

10500 031566

: CHAR COUNT

KBCNT:

.BLKW

SLINET=1, LINE2=2, LINE3=4, LINE4=10

DZCON=*8.

;END OF BUFFER TABLE

KBBUFE:

.BLKW

DZCON+8.

;BEGIN OF BUFFER TABLE

KBBUFB:

.BLKW

DZCON*8.

;BUFFER PUT IN POINTER
KBBUF]: .BLKW
DZCON=*8.

JBUFFER TAKE OUT POINTER
KBBUFO: .BLKW
DZCON+8.
;HERE IF THE KEYBOARD BUFFER AREA
KBBUF: .BLKW
DZCON*8.+20.

;D211 STATUS REG ADDRESS TABLE

DZCSR:

.BLKW

DZCON

:DZ11 RECIEVE ERROR BIT TABLE

RECERR:

.BLKW

DZCON+8.

;B WORDS TIMES 8 LINES TIMES # OF DZS

;ONE (SR PER DZ11tREALLY!)

CZLAIBO LAQO, LA34 DMI PROG
DZ71 DRIVER ROUTINES

MACRC M1110

‘D2 SEND ROUTINE

1¢:800

10900

o
o0
oo

*CALLING SEQUENCES

:
:
:
*

83 oo\:ogbwr\)—'
3888888

d e = —

PAGE

SEQ 0084

10700

;

)

12100
12200

12300 031706
126400 031710

12500 031712

12600 031714
1270C 031720
12800 031726
12900 031730
13000 031734
13100 031740
13200 031742
13300 031746
13400 031754
13500 031760
13600 031766
13700 031770
13800 031774
13900 031776
14000 032004
14100 032006

14200 032012
14300 032014

032014
032020

010246
010537
122737

001014
105037
013700
006300
005037
012737
000137
013737
005000
105760
100534
026027
002463

005760

100017

013705
004737

14900
15000
15100
15200

103002
000137
052760
005337

15300 032064
15400 032070
15500 032074
15600 032100
15700 032104
15800 032110

15900 032114

6000
16100 032120

MODE

HIGH BYTE

126027

005060
005060
(12705

004737
010037
006237
012705

004737

001104
000010

;CALL
“THIS 1S THE MESSAGE ADDRESS

:THIS SPECIFIES
LOW BYTE

SELECT

REPEAT

:
:

TERMIN

RO,=(SP)

:SAVE RO

SEND:

010046
010146

005760
100006
105260

032044
032046
032052
032060

MODE

PC,SEND

14400 032024
14500 032030
14600 032032

;2288 032036

JSR
RS

:
;

b eed ed

—
e
i JUE

26-FEB=79 14:37

MOV

TYPE OF MESSAGE AS FOLLOWS...

SEND TO ALL ACTIVE DZ LINES
;SEND TO SELECTED LINE
*USE LOW BYTE AS LINE NO.

SEND TO ALL ACTIVE LINES

USE

LOW BYTE

THE MESSAGE

REPEAT

SEND TO ALL ACTIVE LINES
USE LOW BYTE AS MESSAGE TERMINATOR

MOV
MOV

R1.=(SP)
R2.=(SP)

*AND R1
*AND R2

(MPB

#10,MODE+1

;1S THIS MESSAGE MEANT FOR ONLY 1 TERMINAL?

C(LRB

MODE+1

MOV

01175

THE

BNE

RS 'MSGADR

(OUNT

JNO.

001175
001174

MOV

MODE ,RO

001174
000001
031770
001152

28:

CLR
MOV
JMP
MOV

MODE
#1,SENDTM
SEND1
NUMLiN,SENDTM

SGET LINE #
*MAKE WORD OFFSET
*NO SPECIAL STUFF FOR INDIVIDUAL LINES
SCOUNT = 1 LINE ONLY
DO DO IT
: A COUNT OF LINES SO WE KNOW WHEN WE ARE THROUGH

SEND1:

TSTB

DZLINE(RO)

:1S THE LINE INACTIVE?

ASL

007106

001106

020634
025014

000010

024054

031770
000200
001216

024554
024054
036404
020310
001134
001134

BPL

1$:
2%

ACTIVE (RO)

100.

100. ,RS

JSP

PC,MSTALL

ST
8PL

020634

78
COMCNT (RO) ,#8.

MoV

000144

BLT

STALL

024554

(024054

BM]
CMP
ST

000144
033676
024054

CLR

TYES

*START WITH THE 1ST LINE

*iF SO, DONT TRY TO SEND IT ANYTHING.
:ALREADY FULL?

*IF ROOM IS THERE, PUT STUFF
;IS The LINE ACTIVE ?

IN.

*NO- DESELECT THE LINE

SWAIT A SHORT TIME THEN RETRY

*SETUP STALL TIME CONSTANT

INCB
CMPB

STOP(RO)
1$

;1S LINE WAITING FOR XON
*NO-

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

BHIS

:TOO LONG= ABORT WAIT

SALLOW 10 SECONDS MAX.

JMP
BIS
DEC

SEND1
#8117,D2L INE (RO)
:DESELECT THE LINE
wuT
;ONE LESS UNIT TO TEST

JSR
MOV

PC,CSEND
RO, TEMP

CLR
CLR .
MOV
ASR

STOP(RO)
ACTIVE (RO)
RS
#MSG39
TEMP

020600

MOV

#EBUF ,RS

033730

JSR

PC,BIOCT

;

REPORT NO xON

CZLAIBO 1.A00, LA34 DMT PROG
0Z17 DRIVER ROUTINES

16200 032126
16300 032132

113737
113737

020604
020605

000137

032266

16800 032162
16900 032166

105060
062760

024054
000002

17100 032202

062760

000002

16600 032140
16500 032144

012705
004737

16700 032154

013770

16600 032150

17000 032174

013770

17200 32210

026060

176400
17500
17600
17700
17800

032220
032226
032232
032236
032240

162760
005260
005760
100413
010001

18000
18100
18200
18300
'9400
18500

032244
032246
032250
032254
032260
032266

006201
006201
042701
016101
15€061
062700

18700 032276
18800 032300
18900 032302

001234
012602
012601

17300 032216

17900 032242

18600 032272

19000 032304
19100 032306
19200
19300

101003

02062C
020310

001104

26-FEB=79 14:37

020626
020627

025134

MOVB
MOVB

4%:

025134

55-1

SEQ 0085

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

MOv
SR

#MSGE+10,R5
PC,LSEND

MOV

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

JMP

CLRB
ADD

; TRY THE NEXT LINE

ACTIVE (RO)
#2,COMIN(RO)

;ERASE ANY DELAY COUNT
;BUMP POINTER

#2,COMIN(RO)

;BUMP POINTER

025134

MOV

MODE ,aCOMIN(RO)

025374

(025134

CMP

COMEND (RO) , COMIN(RO)
; IN POINTER AT EMD OF CUMMAND BUFFER?

000050
025014
024554

025134
025134

ADD

6%:

(006201

005337

PAGE

001174

177761
031554
025514
000092

00110¢

9G0004

7%:

(©12690
000207

BHI

ASR

sSuB
INC
TST
8M]
MOV

#50,COMIN(RO)
COMCNT (RO
STOP(RO)
7%
RO,R1

;PUT PRINTING MODE INTO THE BUFFER ALSO
;IF NOT,

;YES, AT END. RESET IT TO THE BEGINING
JADD 1 TO COUNT OF COMMANDS IN THERE
;15 THE LINE WAITING FOR XON?
;YES. DONT SET TCR BIT

ASR
ASR
8IC
MOV
B8ISB
ALD

R1
R1
#177761 ,R1
DZCSR(R1) ,R1
;GET CSR ADDRESS
TCRBIT(RO) ,4(R1);SET THE LINES TC(R BIT
#2,RC
SNEXT LINE #

BNE
MOV
MOV

SEND1
(SP)+,R2
(SP)+ R1

DEC

MOV
RTS

713%88

SENDTM

(SP)+,R0O
PC

;DONE AL! OF THEM?

;NO, GO DO ANCTHER
;NOW ALL WE HAVE TO DO
RESTORE REGS WE

s SAVED UPON ENTRY
;RETURN

; SINGLE CHARACTER OUTPUT ROUTINE ALL TERMINALS

19600 032310
19700 032314

162705
006305

000040

;9900 032322

004737

031706

20100 032326
20200

000207

19800 032316

MACRO M1110

062705

042604

CHROUT:

SUB
ASL

#40,R5
RS

sCHARACTER TABLE STARTS AT 40
sMAKE WORD OFFSET

JSR

PC,SEND

s SEND MESSAGE W
RD

ADD
RTS

#PCTABL RS
PC

;ADD PRINT (HAR TABLE ADDRESS

(ZLAIBO LAQO, L A3L DMT PROG
021! DRIVER R OUTINES
20600
20500

20600 032330
20700

20800
20900
21000
21100
21200
21300

03233G
032332
032336

032354
032356
032362
032366
032370
032374

032400
032402
032406
27400

0
000005

010046
012700
200137
000002
010046
0127Q9

000137
000004

0190046
212700
000137
000006
010046
012700
000137
00010
010046
012700
000137
000012

7
SEQ 0086

JHERE ARE THE TRANSMIT INTERRUPT ROUTINES
DZTINT:
x=0
DZCON
.REPT
MoV
RO,=(SP)
;SAVE RO
#X,R0
TXINT

JPUT DZ #

;SAVE RO

JMP

RO,=(SP)
#X,R0
TXINT

MOV
MOV
JMP

#X,R0
TXINT

RO,=(SP)

;SAVE RO
JPUT DZ # IN RO

MOV

032342
032344
032350

21500

MACRO M1110 26-FEB=79 14:37 PAGE gb

X=X+2
.ENDR
000000

032474

000002
032474

000004
032474
00000¢
032474
000010
022474

y=X+2

X=X+2

JMP

MoV
MOV

MOV

MC/
JMP

IN RO

;GO TO MAIN ROUTINE

JPUT DZ # IN RO

;GO TO MAIN RCUTINE

;GO TO MAIN ROUTINE

RO,=(SP)
#X,RO
TXINT

;SAVE RO
;PUT DZ # IN RO

RO,=(SP)
#X,R0O

;SAVE RC
;PUT DZ # IN RO

RO,-(SP)

;SAVE RO
;PUT DZ # IN RO

TXINT

#X,R0O
TXINT

;GO TO MAIN ROUTINE

;G0 TO MAIN ROUTINE

,GO TO MAIN ROUTINE

(ZLAIBO LADO, LA34 DMT PROG
DZ11 DRIVER ROUTINES

21700
21800 032412
21900
22000
22100
22200

22300
22400
22500

032424
032426
032432

010046
012700
000137
0000C4
010046
012700
000137
000006
010046
012700

032462
032464
032470
22€00
22700

012700
000137
000032

000137

000010
010046
012700
000137
000012

X=X+¢
.ENDR

000000
033154
0000C2
033164
000004
033104

X=X+2

K=X+2

X=X+2

000006

033164

000010
033164

PAGE

4.7
57

SEQ 0087
ARE

THE

DZRINT:
x=0
.REPT
DZCON

000000
000005

010046

032450
032452
032456

26-FER=79 14:37
;HERE

032412
032414
032420

032436
032440
032444

MACRO M1110

X=X+2

RECIEVE

INTERRUPT ROUTINES

MOV

RO,=(SP)
#X,R0
RCINT

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

MOV
MOV
JMP

RO,=(SP)
#X,R0

;SAVE RO

RCINT

JPUT DZ # IN RO
;GO TO MAIN ROUT INE

RO,=(SP)

;SAVE RO

PO,=(SP)

MOV
JMP

MOV

MOV
JMP

#X,R0O
RCINT

MOV
MOV
JMP

#X,R0O
RCINT

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

MOV
MOV
JMP

#X,RO

RO,=(SP)

;SAVE RO

RCINT

:GO TO MAIN ROUTINE

MOV
MOV
JMP

RO,=(SP)

#X,R0
RCINT

JPUT DZ # IN RO
;GO0 TO MAIN ROUTINE

JPUT DZ # IN RO

;SAVE RO
;PUT DZ # IN RO

;GO TC MAIN ROUTINE

L0 AIBO LAQO,

LA34 DMT PROG
0211 DRIVER ROUTINES
22900
23000
23100 032474

MACRO M1110

26-FEB=79 14:37

23200 032476 010246
000240
23400 032502 016001 031554

MOV
NOP
MOV

23300 032500

000300
006300

23800 032516
23900 032524

13737
042737

24100 032536
24200 032540

006300
005760

23700 032512 011137 001100
001101
177770

24000 032532 063700 001100

ASL
ASL

24300 032544 100005
146061
025514
000004
24500 032554 000137 03305¢
26600 032560 052760 100000 024054
24700 032566 005760 024674
24800 032572 001012
24400 032546

005760

025014

25100 032602
25200 032610

146061
005060

025514
024054

25000 032600 001051

25300 032614 000137 033052
25400 032620 117037 024674
25500 032626 005260 024674
25600 032632 123760 001100
25700 032640 001101

25800 032642
25900 032646
26000 032650

005360
003071
005060

024674

26500 032700

005360

025014

26700 032706
26800 032714

146061
005060

025514
024054

26100 032654
26200 032662
26300 032670
26400 032672

001100

BICB
CLR

024174

000004

26900 032720 000137 033052
27000 032724 017060 025254 024674
27100 032732
27200 032736

005060
005060

024174
024314

27400 032746

062702

000002

27600 032756

001416

JMP
MOVB
INC
CMPB
BNE
DEC
BGT
CLR

3$:

000030

001101

28200 033002

113760

001100

024314

28400 033014
28500 033020

105037
C13760

001101
001100

28100 033000 000000

28300 033010 000137 032560

024174

5¢:
68:

COMCNT (RO)

TCRBIT(RO).4(R1)
ACTIVE (RO)

;CLEAR THE LINES ACTIVE FLAG

9%
@CURADD(RO) ,DXTMP
CURADD (R0)
:POINT AT THE NEXT NEXT CHAR
DXTMP,CURTER(RO):IS IT THE TERMINATOR?
8s
*NO. GO XMIT IT.
CURREP (RO)
78
CRADD (R0)

9
aCOMOUT
(RO) , CLRADD (RO)

CLR
CLR

COMCNT (RO)

TCRBIT(RO),4(R1)
ACTIVE (RO)

CURREP (R0)
CURTER(RO)

conogmm.nz

ADD

#2 R

BEQ

(R2) ,DXTMP

(MPB
BEQ
CMPB
BEQ

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

MOVE

DXTMP,CURTER(RO)

CLRB
Mov

DXTMP+1
DXTMP, CURREP (RQ)

HALT
JMP

;SET LINE ACTIVE FLAG

JMP
MOV

MOV
001101

1%
TCRBIT(RO),4(R1)
9%
#BIT15,ACTIVE (RO)
CURADD (RO)
2

DEC

27500 032752 011237 001100
000020

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

BNE

MOV

122737
001412
122737
001401

*BIG LINE # IF DZ# PLUS LINE #

#4 ,COMOUT (RO)
COMOUT
(RO) , COMEND (RO)
3
#50, COMOUT (RO}

27300 032742 016002 025254
27700 032760
27800 032766
27900 032770
28000 032776

DXTMP, RO

-MOVE INTO LOW BYTE
:CLEAR ALL BITS EXCEPT LINE # BITS

ADD
cMP
8LO
SUB
BICB
CLR

48:

SGET LINE #

RO
STOP(RO)

024314

(R1) ,DXTMP

RO
RO

ASL
ST

BNE
28:

‘REGS WE INTEND TO USE
;D211 CSR ADDRESS

DXTMP+1,DXTMP
#177770,DXTMP

BPL
BICB
JMP
1%:
BIS
ST
BNE

000004

R2.=(5P)
DZCSR(ROY
,R1T

MOVB
BIC

ADD

062760 002004 025254
026060 025254 025374
103403
162760 000050 025254

26600 032704 001007

MOV

001100
001100

024554

24900 032574

SFQ 0088

JHERE IS THE MAIN TRANSMIT INTERRUPT ROUTINE
TXINT:
MOV
R1,=(SP)
;SAVE ALL OF

010146

23500 032506
23600 032510

7
K
PAGE 58

:GET ADDR OF ADDR

(2LAIBO LAQOO, LA34 DMT PROG
CZ11 DRIVER ROUTINES

28600 033026
28700 033032
28800 033040
289CC 033044
29000 033052
29100 033054
29200 033056
29300 033060
29400
29500
29600
29700
29800
29900 033062
033062
033066
033072
30000 033076
033076
033102
033106
30100 033112
033112
033116
033122
30200 033126
033126
033132
033136
30300 033142
033142
033146
.
033152
30400 033156
30500 033162
20600

000137
017060
000137

113761
012602
012601

032560
025254
032560

001100

MACRO M1310

26~FEB=79 14:37

024674

7%:

000006

8%:
9%:

012600
000002

Jme
MOV
JMP

MOVR
MOV
MOV

MOV
RT]

;

012705
005037
004737

040032
001174
031706

012705
005037
004737

040113
001174
031706

012705
005037
004737

007500
001174
031706

012705
005037
004737

037304
001174
031706

012705
005037
004737
004737
000207

025176
001174
031706

034250

THIS ROUTINE

RESETO:

SENDALL
MOV
(LR
JSR
SENDALL
MOV
CLR
J3R
SENDALL
MOV
CLR
JSR
SENDALL
MOV
CLR
JSR
SENDALL
MOV
CLR
JSR
JSR
RTS

PAGE 581

SEQ 008Y

1%
?gOMOUT(RO).CURADD(RO)

DXTMP,6(R1)
(SP)+,R2
(SP)+,R1
(SP)+,RO

JPUT CHAR INTO XMIT BUFFER
;RESTORE THE
JREGISTERS THAT WE
;DESTROYED

IS LZED TO RESET ALL

TERMINALS

#MSG103
#MSG103,R5
MODE

sSET 6 LPI.
;BUILD SEND CALL USING McSSAGE ADDRESS

#MSG108

;SET 10 CPI.

PC,SEND

;NOW SEND THE MESSAGE

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

;BUILD SEND CALL USING MESSAGE ADDRESS

PC,SEND

#MSG61
#MSG61,R5

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

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

#MSG10,RS
MODE
PC,SEND
PC,QUIET
PC

;SET TABS EVERY 8
sBUILD SEND CALL USING MESSAGE ADDRESS
sNOW SEND THE MESSAGE

(2 LAIBO LAQO, LA34 DMT PROG
Dz 11 DRIVER ROUTINES

30800
30900
31000 033144
31100 033166
31200 033170
31300 033172

31400 033176
31500 033202
31600 033204

31700 033206
31800 033212

31900 033220
32000 033226
33100 033230
32200 033232
32300 033236
32400 033240
32500 033244
32600 033252
32700 033256
32800 033264
32900 033266
33000 033274
33100 033300
33200 033304
33300 033306
33,00 033314
33500 033322
33600 033326
33700 033332
33800
33900 033334
34,000 033342
34,100 033350
34,200 033356
34,300 033362
34,400 033366
34500 033374
34,600 033402
34,700 033404
34800 033412
34,900 033416
35000 033420
35100 033422
35200 033426
35300 033430
35400 033434
35500 033436
35600 033440
35700 033442
35800 033444
35900
36000
36100
36200

MACRO M1110

016105
100401

000000
010537

;HERE IS THE MAIN RECIEVE
RCINT:
RS .~(SP)
MOV
R2,=(SP)
MOV
MOV
R1.=(SP)

113737

042737

031554
000002

001200
001201
177770

001200
001200

1$:

031566
020634

000200
001216
000023

020634

100200

024554
000004

025514
033422
000021

MOV
MOV
BM]
T
HAL
MOV
MCvB
BIC
ASL

ASL
ADD
ASL

001200
031566
107777
177400
000200

M7
PAGE 59
SEQ 0090

010546
01024¢

010146
016001

26~FEB=79 14:37

6%:

7%:

BIS
BIC
BIC
BIT
BEQ
BIC
INC
CMPB
BNE
BIS
BI(B
JMP
CMPB

INTERRUPT ROUTINE

)
,R1
DZCSR(RO

$§n1>.as

:INVALID DATA FROM DZ 2 2 2 2 2 2 2

RS,RCTMP
RCTMP+1,RCTMP
#177770.RCTMP
RO
RO
ggw.no

RS ,RECERR(R0)

;COPY ERROR BITS

#177400.RS

*CLEAR ERROR BITS

#107777 ,RECERR (RO)
zgm.ozn.memm

#8177,DZLINE (RO)
uuT
%B.RS

:DATA VALID,LINE NO.,DATA
“IS UNIT SELECTED ?

:SELECT THE LINE
*ADD TO UNIT COUNT

#100200,STOP(R0)
;SET STOP FLAG & XOFF FLAGS

TCRBIT (R0 ,4 (R1)

:DISABLE TX INTR

TCRBIT(RO) ,4(R1)

;ENABLE TX INTR

RCRTN
#21,R5

025514

000004

024554
024554

#BIT15,STOP(RO) ;CLEAR STOP FLAG
:gg;g.smpmo) *SET XON FLAG

026214

026214
025754

#2 ,XBBUF I (RO)
;GIVE THE POINTER A LITTLE PUSH TO THE NEXT EMPTY PL
n;gan«no».m:s;?o:n¢ ;1S THAT THE END?

026074
025634
001140
145504

026214

RS,@KBBUFI(RO)

1%:

RCRTN:

2%:

;STICK IT IN THERE

KBBUFB(RO)
,KBBUF I (RO) ; YES IT WAS AT THE END. RESET IT

KBCNT (RO)

;TALLY UP ONE MORE ENTRY

HOOK

*DOES ANOTHER ROUTINE WANT TO SEE CHARS IMMEDIATLY?

PC ,8HOOK

*YES. GO OFF TO SOME MYSTERIOUS PLACE

RCRTN

(SP)+,R1

(SP)+.R2
(SP)+.R5
(SP)+.RD

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

:400 ENRTYS IS TOO MANY. LET THIS HALT SERVE AS WARN

*NO. GO RETURN

:FROM INTERRUPT CATCHER

rC%%AIBO LAOO, LA34 DMT PROG
1

DRIVER ROUTINES

MACRO M1110

56400
36500

36600

36700 033446
36800 033452
36900 033454
37000 033460

37100 033462

37200 033466
37300 033472
37400 033476

37500 033504

37600 033512
37700 033514
37800 033522
37900

105760
001003
012705
000420
005360
017005
042705
062760

022760

001003
016060
000207

26-FEB=79 14:37

7
SEQ 0091

sTHIS IS THE TAKE STUFF QUT OF THE KBFO BUFFER ROUT INE
sCALL USING A ''JSR PC'’,
;1T RETURNS WITH R5 = THE KBRST ENTRY

025634

KBOUT:

177777

025634

1%:

026334
000400
000002

026334

026074

026334

025754

PAGE 60

026334

TSTIB
BNE
MOV
BR
DEC
MOV
BIC
ADD

KBCNT(RO)
1%
#-1,R5
2%

JANYTHING THERE?
;1 HOPE SO

IKBBUFO(RO) ,RS
#400,R5
#2 ,KBBUFO(RO)

;GET KBRST ENTRY

BNE
MOV
RTS

2%
;IF NOT, JUST ReTURN
g%BUFB(RO).KBBUFO’gg?&LES. REACHED END. RESET POINTER TO THE BEGININ

CMP

2%:

KBCNT (RO)

2
JREDUCE COUNT OF # ENTRYS IN THERE
:BUMP POINTER TO NEXT ENTRY

#KBBUF E ,KBBUF 0(RO) ;REACHED THE END OF THE BUFFER SPACE?

ZLAIBO LAOO, LA34 DMT PROG
Z11 DRIVER ROUTINES

MACRO M1110

26-FEB=79 14:37

B 8
PAGE 61
SEQ 0092

;THIS SUBROUTINE DOES MANUAL

INTERVENTION TESTING, WHERE A CARRIAGE RETURN

:MUST 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
THE TABLE CONSISTS OF 2WORD ENTRIES. 1ST WORD IS MESSAGE ADDRESS

39100 033524
39200 033526
39300 033530
033530
033532
033536
39400 033542
033542
033544
033550
39500 (33554
033554
033556
033562
39600 033566
39700 033572
39800 033574
39900 033600
40000 033602

40100 033606
40200 033610
40300 033614
40400 033620
40500 033626
40600 033632
40700 033640
40800 033644
40900 033652
41000 033654
41100 033660
41200 033664
41300 033670
41400 033674
41500

:2ND WORD IS PARAMETER TO BE SEND TO THE DZ11 LINE
;A 000000 WORD MARKS THE END OF THE TABLE.
:CALL THIS SUBROUTINE WITH A JSR,PC
ANVENT: TST
(R2)
sTABLE FINISHED ?
4%
BEQ
;YES BRANCH
SENDALL R3
;SEND FIRST PART

005712
001462
010305
005037
004737

001174
031706

012205
005037
004737

001174
031706

010405
005037
004737
004737
005000
013700
006300
162700
100424

016001
005037
013737
061237
013761
005237
022737
001362
000137
004737
062702
000137
000207

R3,R5
MOV
;BUILD SEND CALL USING MESSAGE ADDRESS
CLR
MODE
pc SEND
JSR
sNOW SEND THE MESSAGE
SENDALL (R2)+
;SEND FROM TABLE
(R2)+,R5
MOV
;BUILD SEND CALL USING MESSAGE ADDRESS
CLR
JSR
;NOW SEND THE MESSAGE
SENDALL
;SEND LAST PART
MOV
;BUILD SEND CALL USING MESSAGE ADDRESS
CLR
JSR
;NOW SEND THE MESSAGE
JSR
sWAIT TILL DONE
CLR
MOV
:GET DZ NO.

001174
031706
034250
001202

000002

031554
001126
001126
001130
001130
001126
000010
033602
034574
000002
033524

1%:

001130

2%:

000002
001126

ASL

SuB

)
,R1
DZCSR(RO
ANTMPO |
ANTMPO ,ANTMP1
(R2) ,ANTMP1
ANTMP1,2(R1)
ANTMPO
#10,ANTMPO

:GET DZ CSR ADDRESS

3%:
4%:

1%
PC,AWAIT

#2,R2
ANVENT
PC

;DO FOR NEXT TABLE ENTRY
;DONE ALL LINES ON ALL DZ'S. RETURN

CZ%AIBO LAOO, LA34 DMT PROG
DZ11 DRIVER ROUTINES

MACRO M1110

41700
41800

SEQ 0093

sCALL WITH JSR,PC
;THE LOCATION FOLLOWING THE CALL SHOULD C(ONTAIN
s THE AMOUNT OF MILLISECONDS TO HANG IN A NULL LOOP

010537
013737

000240
005337
001374
005337
(003366
000207

001146
001142

001144

;RETURN IS TO THE LOCATION +4 OF THE CALL
MSTALL: MOV
R5,L00PQ
JGET # OF MILLISECONDS
1%:
MOV
LOOPC,LOOPI
;SETUP CONSTANTFOR CORRECT STALLING TIME
2%:

001146

NOP
DEC
BNE
DEC
BGT
RTS

JBINARY TO ASCII

43400
43500

LOOP]
2%
LOOPO
1%
PC

JONE MILLISECOND DOWN
;SOME MORE TO GO
;RETURN

CONVERT SUBROUTINE.

;CALL USING A 'JSR PC'
_
sDERIVES ASCII CHARACTERS REPRESENTING THE CONTENTS

2??%

,(B)t légCATICN 'TEMP', AND PUTS THEM INTO THE 6 BYTES POINTED T0

2%388

44000 033730
44100 033736
44200 033742
44300 033750
44400 033754
44500 033760
44600 033766
44700 033772
44800 034000
44900 034004
45000 034010
45100 034016
45200 034022
45300 034026
45400 034032
45500 034040
45600 034046
45700 034054
45800 034062
45900 034070
4600C 034074
46100 034102
4€200 034110
46300 034116
46400 034124
46500 034132
46600

C_8

PAGE 62

sSTALL ROUTINE

41900
42000
42100

142200
42300 033676
42400 033702
42500 033710
42600 033712
42700 033716
42800 033720
42900 033724
43000 033726
43100
43200
43300

26~FEB-79 14:37

sTHIS IS A STOLLEN ROUTINE.

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

001134
001134
001135
001134
001134
001134
001134
001135
001134
001134
001134
001134
001135
000376
000370
000370
000370
000370
000370
000060
000060
000060
000060
000060
000060

000005
000002
000004
000001
000003

000001
000002
000003
000004
000005
000001
000002
000003
000004
000005

BIOCT:

MOVB
ROR
MOVB
ROR
ROR
MOVB
ROR
MOvVB
ROR
ROR
MOVB
ROR
MOVB
8I(B
BI(B
BICB
BICB
BICB
BICB
BISB
BISB
BISA
BISA
BISB
BISB
RTS

TEMP,5(R5)
TEMP
TEMP+1,2(R5)
TEMP
TEMP
TEMP,4(RS)
TEMP
TEMP+1,1(R5)
TEMP
TEMP
TEMP,3(R5)
TEMP
TEMP+1, (R5)
#376, (RS)
#370,1(R5)
#370,2(R35)
#370,3(R3)
#370,4(RS)
#370,5(R5)
#60, (R5)
#60,1(R3)
#60,2(R5)
#60,3(R5)
#60,4(R5)
#60,5(R5)
PC

IS ROTTENLY WRITEN

JYEAH

CZLAIBO LAOO, LA34 DMT PROG

DZ11

DRIVER ROUTINES

MACRO M1110

46800

46900
47000
47100

47200 034134

47300 034136
476400 034140

010446
012704

47600 034150
47700 034152

100005
005137

47900 034164
48000 034170
48100 034172
48200 034176
48300 034200
48400 034202
48500 034206
48600 034210

112713
105213
161437
100374
005203
062437
005714
001365

48900
49000
49100
23%%

034224
034230
034232
034234

012637
072604
012603
000206

034236
034240
034242
034244
034246

023420
001750
000144
000012
000000

47500 034144

47800 034156

48700 034212
48800 034220

49400

49500
49600
49700
49800
49900

50000
50100

010346

112725

112763

062737
113713

000257

177777

1$:
2%:

001134
001134

000260
001134

52300 034342
52400 034346

MOV

SEQ 0094

R3,=(SP)

001134

;SAVE R3

MOV
MOV

R4 ,=(SP)
#BIDECC R4

JALSO R4 WHICH WE WIIL USE
JPOINT R4 AT SOME CONSTANTS

8PL
COM

1%
TEMP

;1S THE # PCSITIVE?
sNO. MAKE IT SO

MOVB

#260, (R5) +

MOVB

MOVB
INCB
SUB
BPL
INC
ADD
TST
BNE

#235,-1(R3)

sMAKE THE FIRTS DIGIT OF THE NUMBER 0
;AND CHANGE

THAT

1ST DIGIT

;INIT A DIGIT
JADD 1 TO THE DIGIT
;KEEP _SUBTRACTING CONSTANT TILL IT GOES NEGATIVE
;1F WE ARE STILL POSITIVE, DO IT AGAIN
sNO WE WENT NEGATIVE. POINT AT THE NEXT DIGIT
sADD BACK THE CONSTANT, AND GO ON TO THE NEXT CONSTA
;DONE THE 1ST 5 DIGITS YET?
;1F NOT, GO BACK AND DO ANOTHER

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

sRESTORE EVERYTHING
:THAT WE USED TO
;ITS ORIGINAL VALUE

#260, TEMP
TEMP, (R3)

RTS

;YES. ONE REMAINS TO BE DONE
sSET THE LAST DIGIT NOW.

;AND RETURN

:CONSTANTS

BIDECC:

10000.
1000.
100.
i0.
0.

; WAIT FOR MESSAGE TO FINISH PRINTING
010046
010146
010546
013700
006300
005001
020100
001466
005761
100403
062701
000770
005761
100047
105261
126127
002441
052761
005337

005061
005061

QUIET:
001152
18:
2%:

024054

000002

3%:

024554
(24054
024054
000200
001216
024554
024054

4%:
000144
020634

MOV
MOV
MOV
MOV
ASL
CLR
CMP
BEQ
TST
8M]
ADD
BR
TST
BPL
INCB
CMPB
BLT
BIS
DEC

CLR
CLR

TO A "'’

#257,(R3)
(R3)
(R4),TEMP
2%
R3
(R4)+,TEMP
(R&)
1$

ADD
MOVB
MOV
MOV
MOV

gg%g?)
50400 034250
50500 034252
50600 034254
50700 034256
50800 034262
50900 034264
51000 034266
51100 034270
51200 034272
51300 034276
51400 034300
51500 034304
51600 034306
51700 034312
51800 034314
51900 034320
52000 034326
52100 034330
52200 034336

BIDEC:

000260
000235

PAGE 63

:BINARY TO DECIMAL CONVERT RCUTINE
JCALL WITH A JSR SP
JWROTE THIS MYSELF. ITS WONDERFULL.

034236
001134

26-FEB=79 14:37

RO,=(SP)
R1,-(SP)
RS,=(SP)
NUML IN,RO
;GET NO OF LINES
RO
R1
R1,RO
:IF DONE GO TO 5
5%
ACTIVE(R1)
sSTILL WORKING ?
4%
sSTILL SET -BRANCH
#2 ,R1
sTEST NEXT LINE
2%
STOP(R1)
; WAITING FOR XON ?
7%
. NO
ACTIVE(R1)
; COUNT OF PASSES
ACTIVE(R1) ,#100.
; ALLOW 10 SECONDS
7%
#BIT7,DZLINE(RY)
; DESELECT THE LINE
uuT

STOP(R1)
ACTIVE(R1)

(ZLAIBO LAQO, LA34 DMT PROG
DZ11 DRIVER ROUI INES

52500 034352
52600 034356
52700 034362
52800 034366
25888 034372

012705
004737
010137
006237
012705

036404
020310
001134
001134
020600

53100 034376
53200 034402
53300 034410
53400 03441€
53500 034422
53600 034426
53700 034432

004737
113737
113737
012705
004737
000137

033730
020604
020605
020620
020310
034264

012705
004737

000144
033676

034432
034436

53800 034442
53900 034446

54000 034450
54100 034452
54200 034454
54300

000137
012605
012601
012600
000207

034264

MACRO M1110

26~FEB=79 14:37

E_8
PAGE 63-1
SEG 0095

MOV
JSR
MOV
ASR

MoV

020626
020627

7%:

58%:

#MSG39,RS
PC,CSEND

R1,TEMP

PC,BIOCT

#100.

JSR
JMP
MOV

1%
(SP)+,RS

MOV
MoV
RTS

REPORT NO XON

TEMF
#EBUF RS

JSR
MOVB
MOVA
MOV
JSR
JMP
STALL

MOV

;

EBUF +4 ,MSGE+14.
EBUF +5 ,MSGE
+15.
#MSGE+10,RS
?S.CSEND

#100. ,R5
PC MSTALL
(SP)+,R1

(SP)+,R0O

; DELAY A WHILE

JSETUP STALL TIME CONSTANT

2L AIBO LAOO, LA34 DMT PROG
DZ11 DRIVER ROUTINES

54500
54600
54700
54800
54900 034456
55000 034460
55100 034462

010046
010146
013700

55200 034466 006300
55300 034470
162700
55400 034474 100404

55500 034476
55600 034502
55700 034506
55800 034514
034514
034520
55900 034504
56000 034532
56100 034534
36200 034536

MACRO M1110

000002

005060
000137
012737

024434
034470
034540

001140

012705
004737
012737
072601
012600
000207

000764
033676
000000

001140

000001

024435

57100 034572 000207

000001

024434

57200
57300
57400
57500
57600 034574

012737

000001

001136

000021

034624

57800 034610 005737 001136

57900 034614
58000 034616
58190 034622

001375
005037
000207

001140

58300 034624
58400 034630

042705
122705

177600
000015

58600 034636
58700 034642
58800 034646
58900
59000
59100

005037
004737
000207

001136
033446

58500 034634

001002

28:

9% :

001007
022705
001407
112760
000403
112760

012737

SEC 0096

001152

034544
034546
034552
034554
034562
034564

57700 034602

F
8
PAGE 64

;THIS 1S THE REPLY SUBROUTINE
*CALL WITH A JSR PC
JIT WILL WAIT .5 SECONDS FOR REPLYS FROM ON ALL LINES
:IF IT SEES A REPLY, THE WORD FOR THE LINE IN THE REPTBL
REPLY:
MOV
RO,=(SP)
MOV
R1.=(5P)
;SAVE REGS WE USE
MOV
NUMLIN,RO

56400 034540 020527 000023
56500
56600
56700
56800
56900
57000

26-FEB=79 14:37

001140

4$:

ASL
SUB
BM]

RO
28

#2,R0

CLR
P
MOV
STALL
Mov
JSR
MOV
MOV
MOV
RTS

REPTBL(RO)
1$
#9%,HOOK
#500.
#500.,RS
PC.MSTALL
#0.HOOK
(SP)+,R1
(5P)+.RO
PC

C(MP

RS,#23

BNE
CMP
860
MOVR
BR
MOVB

RTS

Is SET

38
#21,RS
38
#1,REPTBL+1(RO)
4$
#1,REPTBL(RO)

;PUT CLAWS INTO INPUT ROUTINE
‘WAIT .5 SECONDS
;SETUP STALL TIME CONSTANT

;TAKE HOOK OUT OF

INPUT ROUTINE

:RETURN

;1S THE CHAR XOF?

:NO.
1S THE CHAR XON?
YES. LET RECIEVE ROUTINE HANDLE
: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
;SET NO CR YET SWITCH

18:

25.

Mov

BNE
CLR
RIS
BIC
(MPB

BNE
38:

CL
JSR
RIS

#2%,HOOK

PUT HOOK INTO RECIEVE ROUTINE SO WE CAN TEST

18
HOOK
PC

NO, KEEP LOOKING

#177600.RS
#15,RS

;REMOVE JUNK FROM DATA BITS
*CARRIAGE RETURN ?

NOTVET

NOTYET
PC,KBOUT
. pe

*SEEN A CARRIAGE RETURN YET?

;RETURN

:NO,

YES. MAKE THE SWITCH REFLECT IT
‘REMOVE CHAR FROM BUFFER

(ZLAIBO LACO, LA34 DMT PROG

MACRO M1110

SYSTEM MESSAGES

100

200
300 034650

400 034707
500 03476%

600 035040

JSBTTL

012

915

012

015

116
033

17
133

124
053

700 035057

012

1000 035162

023

1200 035174
1300 035176

1500 035234

800 035113
900 035155

1100 035172

1400 035213

103

<17><15.,/CZLAIBO LAOO, LA34 DMT PROG/<15><12>

105

MSGO1:

.ASCIZ

<12><15>/END OF PASS /

040
060

MSGO4:
MSGOS:

.ASCIZ
.BYTE

/NO RESPONSE TO ATTRIBUTE PROMPT/<12><15»
33,133,60,143,0 ;TERMINAL ATIRIBUTE PROMPT

110
060

11
060

015

105

.BYTE

015
033

000
133

070

MSGO®:
MSG10:

.ASCIZ
.BYTE

073

070

064

060

120
110

114
11

105
124

2100 035455

104

101

124

061

3500 036157

3600 036163
3700 036224
3800 036265
3900 036326
4000 036332
4100
4200
4300
4400

036342
036373
036404
036441

4500 036477

4500

4700

036477

102

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

116
126
123
063
040

102
033
105
105
000011

040
110
131
040
040
012
117
125
101
117
060
114
102

125
24
131
060
102

125
133
122
122

104

MSG15:

BYTE

64.60,73,64,70,73,65,66,73,66,64,73,67,62,73,79,60

BYTE

73.61,62.60.73.61.62.70.165,0

<15>
:
33,133,70,73%,61,66,73.62,64,73.63,62.73

73.70,70.73.71.66.73.61.60.64.73.61.61.62

.ASCIZ

/PARITY

TEST 24/<12><15>

.ASCIZ

/BAD PARITY RECIEVED FROM LA00/<12><15>

L.ASCIZ
/PLEASE SETUP FOR /
.ASCIZ /MIT RETURN KEY WHEN YOU ARE DONE WITH ALL

.ASCIZ

/DATA OVERRUN ERROR /<12><15>

TERMINALS/<72><15>

/7 BIT AND SPACE./
/CHAR CODE FCHO TEST 21/<12><15>
/TYPE DELETE TO EXIT/<12><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 /
/ BAUL./<12><15>/ HIT RETURN WHEH DONE FOR ALl TERMINALS./<12><15>

114
040
114
060
101

MSG33:
MSG3S5:
MSG26:

.ASCI]
LASCIT
JASCI1
.ASCIZ
.ASCIZ

/NULSOHSTXETXEOTENQACKBELBS HT LF /
/VT FF CR SO SI DLEXONDC2XOF DC&NAK/
/SYNETBCANEM SUBESCFS GS RS US SP /
7300/
/ BAUD/<12><15>

MSG41:

.REPT 9.

060

106
061
122
122

011
011
011
011

130
130
130
136

130
130
130
130
000003

33.133.77.63.73,60,143,0;LA00 DEV ATTRIBUTE RESPONSE

<10>

.ASCIZ
.ASCI]
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

130

011

PASS 000 TEST 00/<12><15>

MSG17:
MSG18:
MSG19:
MSG20:
MSG2':
MSG22:
MSG2S:
MSG26:
MSG27:
MSG8:
MSG29:
MSG30:
MSG31:

011

130

MSGi6:

<12><15>/END OF

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

130

036523

MSG13:
M3G14:

/THIS TEST ASSUMES ALL TERMINALS ARE SETUP FOR/<i2><15>
7300 BAUD, 1 STOP, ODD PARITY, XOFF=XON./<12><15>

.ASCIZ

BYTE
MSG12:

130

011
01

MSGO8:

122

011

130
130

036530
036535
036542
036547

101

062

130

036504
036511

036516

«800

061

073

1800 035305
1900 035327

2200 035503
2300 035524
2400 035554
2500 035602
2600 035630
2700 035657
2800 035663
2900 035706
3000 035762
3100 036007
2200 036043
3300 036052
2400 036074

.ASCIZ

MSGO6:

073

2000 035415

MSGO3:

LASCII
LASCIZ

077

000

SEQ 0097

SYSTEM MESSAGES

133

010

G 8
PAGE 65

INLIST BEX
MSGOO: .ASCII

1600 035252

1700 035264

26-FEB=79 14:37

130
130
130

MSG32: .ASCIZ

MSG37:
MSG38:
MSG39.
MSG40:

.ASCIZ
.BYTE
.ASCIZ
.ASCIZ

7110/

/BUFFER OVERRUN TEST 12/<”2><15>
33,133,61.73.61.63,62.165.0
7ERPOR * XON NEVER RECIEVED/<12><15>
/ERROR * XOFF NEVER RECIEVED/<12><15>

ASCIL

/X/<112/X/<12><15>

CASCIT

/X/<115/X/<125<15>

-ENDR

JASCIT
ASCIT
JASCIT

JASCIT

CASCID
CASCIT
CASCID
TASCID
"REPT 2

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

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

7X/7<11>/%/<122<15>
/X7<115/%/<12><15>
/X/<115>/%7€12><18>
/X/7€11>/X/<125<15>

CZLAIBO LAQO, LA34 DMT PROG
SYSTEM MESSAGES

4900
5000
9100
5200

H 8
PAGE 65~1

26~FEB=79 14:37

SEQ@ 0098

104
132
132
110

052
043
044
012

040
040

061
061
040
040
040
040

110

040
040
040
040

015
061
061
063
066

103

063
064
066

oS
Sy

—

OO
COoO
nNOO

—_—

il 0

N—.—l

—

NNN

S
g
P

NWNICOOOOOOOO

e rmiciclelelelolelolela]

.3 0
5

0, 1
0., 1

1 0, 0 1
1 0, 0 1

’

e
l—th—-h.b—-h— MM

NINININININNNN

101

000
134

114

124

052
132

110

NINNNINNE

011
000
04
040
120
000
012

MSG78:
MSG79

MSGEO0:
MSG81:

MSG82:

MSG83:
MSG84:

MSGBS-

052

043

044
124
060

056
056

120
040
040
040

MSGS88:
MSG89:
MSGR0:

MSG91:
MSG92:
MSG93:

MSG94:

MSGG5:
MSG96:

.AS(C I
LASC 1
1

1
1
)|
1
|
!
AS 1
1
|
[
1
1
A
I
|
1
1
1
I

ANIPNININNINNANIN
N b s e e NN

8000 037511
8100 037536
8200 037550
8300 037571
8400 037612
8500 037633
8600 037654
8700 037677
8800 037727
8900 037734
9000 037741
9100 037746
9200 037753
9300 037761
9400 037765
9500 037771
9600

120
040
010
114
000
117

.10, 0, 1
.10, 0. 1

MSG42:
/TEST 00 - DATA PA H T ST/<12><15><12>
LASC
/tUtUtUQUQU.UtUtUtUQUtUtUtUtU.UtUtUtUtU'd'UtUQUQUQU'U.UtUQUtU/(12)(1
MSG43:
LASC
/TEXT 02 = NON PRINTING CHARACTER TEXT. THE NEXT LINE SHOULD Bf BLAN
MSG44: .AS(]
MSG45:
/i
,6,20,23,26,31,35,177,21,24,27,32,36,22 25,30,34,37,21,12,15.0
LASCi
MSG47:
/TEST N7
HORIZONTAL TAB TEST/<12><15>
.ASC
MSG60:
MSG61:
LASC
<33>/2/
MSG62:
Lod
.ASC
<33>/H/
MSG63:
LAS{
N/
MSG64:
.ASCI
<1i»
MSG6E5:
LASCI
<15>
LASCIZ
MSGE6:
.ASC]
MSG67:
/X/
MSG68:
12 15 11,0
.BYTE
MSG70:
1
/’
MSG71:
/
<ASC 1
MSG72:
12y
.AS(C 1
MSG73:
<12><15>/POWER FAIL TRAP/<12><15>
-ASC 1
<12><15>
MSG75:
-ASC |
<12><12><12><15>
MSG77:
i

>> >

123
057
010
101
040

015
040
040
040
015
015
012

LASCLI
BYTE
BYTE
JASCII
.BYTE

ailalalnialnlalnlatelaletete
el

037400
037435
037440
037445
037507

110

000
0Co

000
000

BYTE

> JIe > > 3>

037337
037344
037370
037373

01
015
130
C12
077
077
077
012
012
012

130

/
ol
.

BYTE
.ENDR
LASCI]

Lornuninn wnunn

126

(W, [,

B N e

o N

SO OOCOOOOCO

052
124
002
130
124
033
056
033

CO—=00
=
=l deol lole] NO ==
N oSNl
(@ LLNIV,
Lo To AV, VMNNOOOOOOOCO

5500 037005
5600 037104
5700 037214
5800 037242
590C 037245
6000 037304
6100 037307
6200 037311
6300 037314
6400 037316
6500 037320
6600 037322
6700 037324
6800 037330
6900 037333

N = e

5400 036757

i leleoleolelols]

LASCII

036554
036600
036612
036624
036650
036662
036674
036720
036732
5300 036744

7000
7100
7200
7300
7400
7500
7600
7700
800
7900

MACRO M1110

/;PACE = BACKSPACE
u

TEST 05/<12><15><12>

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

5A$L PRINTABLE CHARACTERS TESTO1/<12><15>
/DOT MATRIX TEST 03/<12><15>
/IH*AS /<12><15>
/7 27
121
1111/<15>
/H HH HHH
HHHH/<15>
FARE

L B

wnan/<15>

/8 RN

BAR

BRRR/<15>

/% 88

388

$88%8/<12><15>

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

CZLAIBO LAQO, LA34 DMI PROG
SYSTEM MESSAGES
9700 (37775

040

9800 040001
9900 040006
10000 040013

114
033
033

10200 040025
10300 040032
10400 040037
10600 040051

10100 040020

10500 040044

10700 040056

10800
10900
11000
11100
11200

MACRO M1110
070

133
133
133

064
061
063

MSG102:
MSG103:
MSG104:

.BYTE
.BYTE
.BYTE

033

133

062

MSG106:

033

012

133

015

11400 040257

075

000

11706 040322

040

062

115
055

125
055

11800 040326

11900 040355
12000 040412

033

105
033
120

133
117
105
105
133

133

065

101

061
122
122
124
060

060

055

12300 040512
12600 040542

120
012

122
015

105
104

12700 040666

054
120

120

040
122
122

/PRESS /<12><15>

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

/SET SHIFT LOCK , /
/27%/
7/ LH SHIFT
AND
‘A/<12><15>
/4/<12><15>
/ CTL=P/<12><15>
/ ESCAPE/<12><15>

015
126

MSG156:
MSG149:
MSG151:
MSG153:
MSG154:
MSG155:
M5G157:
MSG158:
MSG159:
MSG160:
MSG162:
MSG163:

101

MSG165:

.ASCIZ

15000 041416
15100 041431
15200 041442

MSG167:

.ASCIZ

15300 041446

122

040

105

123

110

105
077
114
012
103
105

124
077
110
015
124
123

122

105

124

105
101

062

111

101

103

012
116
120

114

1M1

104
104

040

123
102

061

123
102

/pnsss THE SPACE BAR IF FINISHED/<12><15>

/, BS, OR FUNCTION KEYS./<12><15>
/PRESS THE SPACE BAR LAST./<12><15>

.ASCIZ

122
124

14900 041402

.ASCIZ

LASCII
.ASCIZ

TAB, RETURN/

MSG150:

122

123
077
040
064
040
040

115

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

105

14100
14200
14300
14400
14500
14600

14800 041374

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

JASCI]
JASCi]

122

040

14700 041344

/======00/<15>

/INVALID CODE RECVD

13400 041066

077
111

MSG145:

.ASCI]

.ASCIZ

105

060

MSG140:

/MULT!PLE LINE FEED TEST 10/<12><15>
/~weeeccscaee /<15>

MSG148:

124

041110
041132
041136
041163
C41167
041200
041212
041255
041263
041274
041307
041313

MSG125: .ASCIZ

105
012

000

116

114
015

MSG143:

.ASCIZ

MSG146: .ASCIZ
MSG147:

14/<12><15>

126

13200 041042

13500
13600
13700
13800
1390C
14000

.ASCIZ
.ASCI]

TEST

116

015

120

/PRINTER BELL

7 2 7

nmn&m

012

13300 041055

.ASCIZ

MSG144: .ASCIZ

13000 041001

111

102
105

/ERROR IF NOT AT LM MARGIN/<i2><15>
33,133,66,172.0

MSG118: .ASCIZ
MSG123:
MSG124:

7=/

.ASCIZ
.BYTE

131

072

13100 041014

.ASCIZ

MSG142:

040

124

MSG115:

33,133.61,167,0
/HORIZONTAL PITCH TEST 04/<125><15>
/VERTICAL PITCH TEST 13/<12><15>
/SET MARGINS TEST 06/<15>
33,13%,60,60,61,73.£1,63,62,163.,0

105

12800 040730

12900 040764

124

33.133.62.172.0

33.133,60.60.60.73.60.60.60.163.0

.BYTE
.ASCIZ
.ASCIZ
.ASCIZ
.BYTE

MSGi20:

105

33.133.65.172.0

MSG114: .BYTE

MSG108:
MSG109:
MSG110:
MSG111:
MSG113:

111

114
055

.BYTE

33,133,64.172.0
33.133761.172°0
33.133.63.172.0

<12><15>/ABCDEF GHIJKLMNOPQRS TUVWXYZ/

122

040

.BYTE

/LPI./
33,133,64,167.0
33.133°63°167.0

MSG107: .ASCIZ

MSG116:
MSG117:

055

12500 040601
12600 040632

MSG105:

122
066

055

123

MSG101:

122
133

12100 040430
12200 040442

33.133.62.167.0

033
033
033

062

SEG 0099

.BYTE

.ASCIZ
.BYTE
.BYTE

133

/ 8 /

MSG98:
MSG99:
MSG100:

033

PAGE ©5=2

.ASCIZ

11
064
063

033
110
126
123
033

11500 040261
11600 040315

MSG97:

120
133
133

040113
040120
040153
040204
040231

11300 040244

040

26=FEB=79 14:37

.ASCIZ

KEYS WERE NOT RECIEVED/<12><15>

<12><15>/£nnon ./

/TEST #21/<12><15>

MSG152: .ASCIZ 7/ RH SHIFT AND B/<12><15>

/RESET suxrr LOCK,

SET

CAPS LOCK,

/TAB/<12><15>
/RETURN/<12><15>
70123456789/
/7/<12><15>
/INVALID SEQUENCE RECVD/<12><15>

MSG164: .ASCIZ

/MIAN KEYBOARD TEST 20/<12><15>

MSG166:

.ASCIZ

/BACKSPACE/<12><15>

.ASCIZ
.ASCIZ

/DELETE/<12><15>
/D/<12><15>

MSG168:
MSG169:

MSG170:

.ASCIZ

/SPACE/

/LINEFEED/<12><15>
/7 /

(ZLAIBO LAQO, LA34 DMT PROG
SYSTEM MESSAGES

N == oA
OANNVO
NA

~N =~

700 042164

800 042174

1790C 042204
18000 042214
18100 042224
18200 042234
18300 042244
18400 042254
18500 042264
18600 042274
18700 042304
18800 042314
18900 042327
19000 042341
19100 042366
19200 042400
19300 042426
19400 042460
19500 042514
19600 042552
19700
19800 042604
19900 042644

20000 042704
20100 042732
20200 042762
20300 043012
20400 043042
20500 043066
20600

NANNWWWWNWWHNWWNWWNWWOO
NN OVOO O OO

-t

n
o
n

500 042107
600 042136

060

104
103
102
101

MSG309:
MSG310:
MSG311:
MSG312:

104

MSG315:

124

MSG320:

101
102

105
103
040

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

122
124

077

000172

MSG180:
MSG181:
MSG182:
MSG183:
MSG184:
MSG270:
MSG280:
MSGe¢81:
MSG271:
MSG303:

MSG304:

105
116
015
105
105

001220

26~FEB=-7S

105
1M1

106

OO = d ed —d i —d = md e D D ed D e D e d e d D e D D
NO = N WNIN NN W N NN N WNND = PO NI N NN — 3 3 — no

d -B e

wpid sl

RRERFRRRRR

WA
—

D
o
d od o
d
d

1767

d d ed e e e e
NNNN
—d d

062
062
065
067
061
106
060

514

—

VV%‘O‘ % Q&R
3883 83383 8

D D ol

[aafe Yo No XV, IV, 1V |

15400 041450
15500 041460
15600 041471
700 041502

MACRO M1110

000042
000062
000102
000115
00131
000145
000161
000173

MSG30.::

MSG313:
MSG314:
MSG316:
MSG317:
MSG318:

MSG321:

i4:37

BYTE

PAGE 65-3

SEQ 0100

33,133,62,73,62.66,163,0

BYTE
.BYTE
BYTE

33,133,62,66,73,65,60,163,0
33,133,65,6¢2,73,67,66,163,0
33,133,67,70,73,61,60,62,163,0

LASCIZ

7LIFE TEST #15/<125<15>

. ASCIZ

/EXIT SETUP MODE , AND TYPE A CTL=Q/<12><15>
/V=F(CR)/<12><15>

BYTE

.ASCIZ
JASCIZ
. ASCIZ
LASCIZ
. ASCIZ
LASCIZ
JASCIZ
. ASCIZ

. ASCIZ
. ASCIZ

. ASCIZ

. ASCIZ
ASCIZ
LASCIZ
LASCIZ
ASCII

33,133,61,60,60,7%,61,62,64,163,0

/LAOO DYNAMIC EXERCISOR TEST 16/<12><15>
/77
7/ 00 /
<12><15>/ENTER SETUP MODE. THEN T(PE THE FOLLOWING : /

/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>
/[e===~ /<12><15>
/Le====/<12><15>
/[=====/<125<15>
/[=====/<12><15>
/[ =====/<12><15>
/[o====/<12><15>
/[om==- /<12><15>

LASCII
LASCI]
ASCII
MSG322: ASCIL
ASCII
MSG323: LASCII
ASCIL
MSG324: LASCI]
MSG325: ASCI]
MSG326: LASCIL
ASCIZ
MSGK1
:
JASCIZ

/[=====/<12><15>
/[=====/<12><155<12><12>
<12><15>/READY/<12><15>

ASGK3:

/2 2 27 2/<12><15>

MSGK2:

MSGK&:
MSGKS:

MSGK6:

LASCIZ

JASCIZ

LASCIZ
ASCIZ
LASCIZ
ASCIZ

MSGS1:
MSGS2:
.EVEN
PCTABL: .WORD

LWORD

-WworD

LWORD
WORD
.WORD
.WORD

.END

g?fifi?

/E----/<12><15>
/[ =====/<12><15>

/ENTER MODE

D OR P :/

<12><15>/ENTER COMMAND(S) /<12><15>

/RUN INTERVENTION TEST 2/<12><15>
<Og7><12><1 >/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,43,44,45,46,47,50,51,52.53.54.55.56.57
60,61,62,63,64,05,66,67,70,71,72,73,74,75,

100.101,102.10%.104.105.106.167.110.111.11

113,114,115,116.,117,120,121,122.123.124.12
127,130,131,132,133,134,135,136,137.140,141
143,146 ,145,146,147,150,151,152,153,154.15
157,160,161,162,163,164,165,166,167,170
11,172,173, 1046 V15 V6

DZCSR
DZL INE
DZNUM
DZRINT
DZTINT
DZVECT

EBUF

MSG100

042327
042341
042366
042400

MSG142
MSG143
MSG144
MSG145
MSG146
MSG147

MSG148
MSG149
MSG15
MSG150
MSG151
MSG15
MSG15
MSG154
MSG155
MSG156
MSG157
MSG158
MSG159

MSG16

MSG160
MSG16,
MSG16
MSG164
MSG165

MSG166

MSG167
MSG168
MSG169

MSG17
MSG170

MSG18

040442
0666

MSG31
MSG310
MSG311

MSG309

035554
035602
035630
035657
035663
035706
035762
041527
041612
036007
041547
041610
036043
036052

041617

041676

041743
041755

036074
041767

MSG312

MSG313
MSG314
MSG315

MSG63
MSG64

MSG55
MSG66
MSG67
MSG68
MSG70
MSG71
MSG72
MSG73
MSG75
MSG77
MSG78
MSG79
MSG80

MSG81

MSG82
MSG83
MSG84

MSG85

MSG88
MSG89
MSG90
MSG91
MSG92
MSG93
MSG9%
MSG95
MSG96
MSG97
MSG98
MSG99
MSTALL
NOTYET
NUMCHK
NUML IN
ONL INE
PASSNO
PCTABL
PFAIL
PMODE
PNTR
PRIO
PRI&

PRI7
QUIET

MSGTYP

MSGOC
MSGO1
MSGO3
MSGO4
MSGOS5
MSGO6
MSGO8
MSG0?
MSG10

001242
001142
001144
001146
002450
003460
001174
001104
020610

MSG14
MSG140

035305
035327

041514

a3 P o b
SRGAVRR

MSGK1
MSGK2
MSGK3
MSGK4
MSGK5
MSGK6
MSGS1
MSGS2

014300
014140

MSG117
MSG118
MSG12
MSG120
MSG123
MSG124
MSG125
MSG13

041502

KBBUF
KBBUFB
KBBUF
E
KBBUF
I
KBBUFO
KBCNT
KBN
KBOUT
KE YEND
KEYTBL
KSTART
LOOPC
LOOPI
LOOPO
LSEQ
MODCON
MODE
MSGADR
MSGE

MSG116

041450
041460
041471

NN
NN NN AN
NN N NN NN

INIT4
INITS
INIT6
ISEQ

MSG180
MSG181

felolelelelalelele]

INIT2
INIT3

MSG113
MSG114
MSG115

MSG182
MSG183
MSG184
MSG19
MSG20
MSG21
MSG22
MSG25
MSG26
MSG27
MSG270
MSG271
MSG28
MSG280
MSG281
MSG29
MSG30
MSG303
MSG304
MSG308

288

INIT
INIT]

040020
040025
040032
040037
040044
040051
040056
040113
040120
040153
040204
040231
040244
040257
040261
040315
040322
035264
040326
040355
040412
040430

8% §-‘OJ\—‘°
&M.Ju—l
WVIVARD 8NN -

HOOK

MSG101
MSG102
MSG103
MSG104
MSG105
MSG106
MSG107
MSG108
M3G109
MSG110
MSG111

B OWNL=ONNS
DB WSSO

ann

ANVENT
ANYWAY
APTHDR
AWAIT
BIDEC

14370
003634
003510
001110
020352
014302
016270
004036
003356
001214
001140
001342
001542
001614
001674
001726
001760
002046
002220
026454
026074
025754
026214
026334
025634
033362
033446

SSNITUNY =3
< =2

ANTMPG
ANTMP1
ANTMP?2

END22

EOP
EOPT
ERROR
ERRORT
FLAGZ1
GETPN
GETSWS
GETTST
GO

000041
024054
001126
001130
001132
033524
004104
001000
034574
034134
034236
033730

NSNS SN

ACTDVC

ACTIVE

SEC 0101

NJ‘OJ‘W—‘OV% ~ O N0\
= b

TAB!

K
8
PAGE 65-4

26-FEB-79 14:37

SRARRRRRRRRRIRRRRRRRRRRERRRRR
) = wd D cmd e o e e i A Y v o v i e e e el e e A S e e e e

SYMBOL

MACRO M1110

ATV =2

(ZLAIBO LAO 8. LA34 DMT PROG

RCINT
KCRTN
RCTMP
REAL
RECERR
REPLY
REPTBL

RESETO
RSEQ

SCAN
SEND

037311
037314
037316
037320
037322
037324
037330
037333
N37337
037344
037370
037373
057400
027435
037440
037445
037507
037511
037536
037550
037677
037727
037734
037741
037746
027753
037761
037765
C37771
037775
040001
040006
033676
001136
020234
001152
001204
001124
042604
000024
001176
001206
000000

TAB
TABLH
TABLHF
TABLV
TABLVF
TABL13
TABL24
TAB24B

TBL12A

010066
006%72
006402
012140
012154
010050
015622
015650

TESTO1
TESTQ2
TESTC3
TESTO4
TESTOS
TESTO6
TESTO7
TEST10

007454

TEST11

. ABS.

043102
000000
ERRORS DETECTED:

TESTZ22

001

010464

000
001

VIRTUAL MEMORY USED:
21488 WORDS
( 84 PAGES)
DYNAMIC MEMORY:
20620 WORDS
( 79 PAGES?

ELAPSED TIME:

00:02:12

CZLAIB.BIN,CZLAIB.SEQ=CZLAIB.MAC

006370

$CPU
$DEVCT
$DEVM

$MEMA3

SMEMAS
SMEMR2
$MEMR3
$SMEMR4
$MSGAD
$MSGL
$PASNC
$SWREG
$TSTNO
SUNIT
$VECT]
$VECT?2

222258
O«l\l\O\l\\‘b

B e

TEMP
TEST
TESTO0

TBL31G
TCRBIT

$E TABL
$ETEND
SFATAL
$MAIL
$MEMAD
$MEMAR
SMEMA2

8888838

024554
001122
003754

001120
001220

n;s&rt\“oC:floNM)AshaOnh<>

STOP
SWR
SWRTST

TBL31C
TBL31D
TBL 31E
TBL31F

o o i=lelelelelelele
o]
o o OO0 =24
— —
NN WO N
—
L
NN N = —
= WO
NO =N “VWWNO

SRCONT
START

002342
002316
014314
001116

007466
007473

SEQ 0102

lolelolelelalelslsls]
N DOt
oWV
=
NWN
S TVON WO —ON —
= N—= =0 = BN NN
OHfHOoONNMNONNOONOO
S

SEQM$
SEQ8
SHITBL
SO

TBL12B
TBL12C
TBL31A

—_— e ————

001106
031770
001112

NOFY =3 =3 33 ea
—=SONOWNS
N

SENDTM
SENDT
SEQ

—— 4
—

TABLE

uuuvunmuvmumom

SYMBOL

MACRO M1110 26-FEB=79 14:37 PAGE L65-2
mmmmmmmm

(ZLAIBO LAOO, LA34 DMT PROG

050