Digital PDFs

AH-8541D-MC

November 1979

49 pages

Original

2.4MB

view download

OCR Version

2.2MB

view download

Document:	CZDMBD0 DM11 DM11 DATA TST NOV 1979 bw
Order Number:	AH-8541D-MC
Revision:	000
Pages:	49
Original Filename:	CZDMBD0__DM11__DM11_DATA_TST__AH-8541D-MC__NOV_1979_bw.pdf

OCR Text

DM11 DATA TST

CZDMBDO

AH 8541D MC

DATA 1STS

MACY1!

Z3=JuL~79 15:08

30A(1052)

24-5UL-79

CB:37

PAGE

SEQ 0001

-REM 2

VN =2 OO0 N

(IDMBDO DMIT1
(IDMBD.P11Y

o8~ o

e Lt Lre

Lna L Ure 9 Y

WM WS = D000 NS W

A A A LAY LS 1AV 1 U T VY N

=S 008

o AR

IDENTIFICATION
PRODUCT

(ODE:

AC-8540D-M(

PRODUCT

NAME:

CZDMBDC DM11

PRODUCT

DATE:

JuLy,

MAINTAINER:

DATA

TSI

1979

DIAGNOSTIC

GROUP

THE INFORMATION IN THIS DOCUMENT IS
SUBJECT
TO
C(HANGE
NOTICE
AND
SHOULD
NOT BE CONSTRUED AS A COMMITMENT BY

EQUIPMENT

CORPORATION.

RESPONSIBILITY

FOR

NO RESPONSIBILITY

ANY

SOF TWARE ON EQUiPMENT

AFFILIATED

COMPANIES.

(C)

ASSUMED

THAT

FOR

1S NOT

(ORPORATION ASSUMES NO

MAY

APPEAR

THE

yJSE

SUPPLIED

1972,1979 BY DIGITAL EQUIPMENT

FOLLOWING ARE

DIGITAL
DEC

DIGITAL EQUIPMENT

ERRORS

TRADEMARKS OF

PDP
DECULS

DIGITAL

UN]IBUS
DECTAPE

W]THOUT
DIGITAL

THIS DOCUMENT.

RELIABILITY

DIGITAL

I1§

CORPORATION

EQUIPMENT

CORPORATION:

MASSBUS

OFf

¥4 DABOU DAT1

2 DMBD.P11

DATA

TSTS

MACY1T

23-3uUL=-79 15:08

30A(1052)

26=JUL-79

08:37

PAGE 2
SEQ@ 0002

40
61

ABSTRACT

TWO SEPARATE

DM11

DIAGNOSTIC PROGRAMS ARE

(ASYNCHRONOUS DATA MULTIPLEXER),

PROVIDED

CZDMA

TESTS), AND CZDMB (DMY1 MULTIPLE LINE DATA
THE LOGICC TESTS INDIVIDUALLY TEST EACH OF

LINES AND ALL COMMON LOGIC.

RUN SEVERAL

LINES

THE MULTIPLE

CONCURRENTLY

AND ARE

FOR

(DM1Y

TESTING

LCGIC

THE

TESTS).
THE 16 DM

LINE DATA TESTS

USED

TEST

(LINE

INTERACTION AND DATA TRANSMISSICON/RECEPTION RELIABILITY.

OO0 ~wo u [ 3XV ]VY

VI
Y IV YV AV AV AV IV 2V 3

THIS DOCUMENT
THE AVAILABLE

DESCRIBES THE
TESTS ARE:

MULTIPLE

LINE

DATA

TESTS.

PRGO - DATA TESTS
PRG] -~ DATA TEST(ALL LINES SIMULTANEOUSLY)
PRG2 = TRANSMIT TO TERMINALS

PRG3 - ECHO RECEIVED DATA

REGUIREMENTS

EQUIPMENT
A.

PDP

JUMPERS CONNECTING 16 TRANSMITTERS
RECEIVERS.
TERMINALS (]F AVAILABLE)

8.
D.

2.2

DM11

DMIT

FAMILY

THEIR RESPECTIVE

DISTRIBUTION PANEL

STORAGE
THIS PROGRAM USES
FOR THE LOADERS.

2.3

PROCESSER

PREREQUISITE

CIDMA__ DM11

ALL

CORE

{4K)

EXCEPT

YO LOAD

THE

THAT

AREA RESERVED

PROGRAMS

LOGIC

TESTS

LOADING PROCEDURE
THE

ABSOLUTE

LOADER

USED

PROGRAM,

LLVURBVU

VAT

(IDMBD.P11
79

80
81
82
83
86

8%
86

UAIA

1510

RMALYLT

23=JuL=79 15:08

c&=JUL-79

JSUACI0)Z)

08:37

PAGE

SEQ 0003
4,

USE PROCEDURE

4.1

STARTING PROCEDURE

BEFORE
THREE

STARTING MAYE

USED TO INITIALLY
THE

=000 N VD NN —OD

O OVWNO NS W
Pu

UNIT

TEST.

TTY

IN REMOTE MODE.

THE

VECTOR

PARAMETERS, AND MUST

PROGRAM,
IS

AND WHENEVER ANY

CHANGED.

ADDRESS OF

THE

DM11

RECEIVER

#(8)?

RESPONSE:
THE DM11 UNIT NUMBER CORRESPONDS T0 THE
ADDRESS TO WHICH THE CLOCK STATUS REGISTER (CSR) RESPONDS.

CARRIAGE

RETURN

DM11
0
|
2
3
4
5
6
7

UNIT

SELECTS UNIT

(SR ADDRESS
175100
175110
175120
175130
175140
175150
175160
175170

DM11
10
1
12
13
14
15
'6
17

# 0.

PRG #
RESPONSE:
TYPE PROGRAM NUMBER Of PROGRAM YOU WISH
RUN. CARRIAGE RETURN SELECTS PROGRAM ¥ 0.

CARRIAGE

ANY
THE

START

(C(ARRIAGE RETURN SELECTS 0300

(SR ADDRESS
175000
175010
175020
175030
175040
175050
175060
175070

O lelelels] o lelelols)

el el

THE

PROVIDED.

PARAMETERS LISTED BELOW

VECTOR ADDRESS ?
RESPONSE:
TYPE IN

UNDER

—t

THAT

0200 - THIS STARTING ADDRESS REQUESTS DM11
Of

et bt et et s et a2

SURE

STARTING ADDRESSES ARE

RETURN TERMINATES ALL RESPONSES.

UNACCEPTABLE RESPONSE WILL RESULT IN A
PARAMETER WILL AGAIN BE REQUESTED.

TYPEOUT

AND

0204 - THIS STARTING ADDRESS USES PREVIOUSLY DEFINED DM1i
PARAMETERS

AND

REQUESTS

PROGRAM YOU WISH

TO RUN.

THE

PROGRAM NUMBER

THE

0210 - THIS STARTING ADDRESS STARTS ThE PREVIOUSLY SELECTED
PROGRAM USING PREVIOQUSLY

SELECTED

PARAMETERS.

UNIT

CZDRMEDO DM11
C20MBD.P11

123
}Sg
%%g

129

30
31
32
22

35
36
37
38
39

142
143
}:g

DATA TSTS
MACYTT
23-JUL=79 15:08

30A(1052)

24-0uL-79

4.2

08:37

PAGE &

SWITCH SETTINGS
THE FOLLOWING SWITCH SETTINGS APPLY 10O PROGRAM #0.

SR 0-6

ROUTINE 1O BE RUN (IF ENABLED BY SR-9)

SR 9

SR
SR
SR
SR

LOOP SELECTED ROUTINE

11
13
14
15

INHIBIT ITERATION (DO EACH ROUTINE ONCE)
INHIBITM PRINTOUT
SCOPE (LOOP ROUTINE)
HALT ON ERROR

THIS PROGRAM HAS BEEN MODIF1ED TO RUN ON A PROCESSOR WITH OR WlTHOUT
A HARDWARE SWITCH REGISTER. WHEN FIRST EXECUTED THE PROGRAM TESTS
THE EXISTENCE OF A HARDWARE SWITCH REGISTER. IF NOT FOUND A
SOFTWARE SWITCH REGISTER LOCATION (SWREG=LOC. 176 ) IS DEFAULTED 10.

1f THIS IS THE CASE, UPON EXECUTION THE CONTENTS Of THE SWREG ARE
DUMPED IN OCTAL ON THE CONSOLE TTY AND ANY CHANGES ARE REQUESTED

(1E)

SWR XXXXXX

NEW-

}6?

POSSIBLE RESPONSES ARE:

148
149
150
151
}2%

1.
2.

<CR>
6 DIGITS 0-7

‘U

154
155
156
157
158
159

BUILT INTO THE PROGRAM IS THE ABILITY TO DYNAMICALLY CHANGE THE
CONTENTS OF SWREG DURING PROGRAM EXECUTION. BY STRIKING *G
(CNTL G) ON CONSOLE TTY THE OPERATOR SETS A REQUEST FLAG TO {MANGE
THE CONTENTS OF SWREG, WHICh IS PROCESSED IN KEY AREAS OF THE PROGRAM
CODE (1E) ERROR ROUTINES, AFTER HALTS END OF PASS, AND OTHER
APPLICABLE AREAS.

IF NO CHANGES ARE TO BE MADE
TO REPRESENT IN OCTAL THE NEW SWITCH REGISTER
VALUE ;LAST DIGIT FOLLOWED BY <(R>.

TO ALLOW REENTERING VALUE

KEYING IN SWREG VALUE.

ERROR

1S C(OMMITTED

CZDMBDO DM11 DATA TSTS

(IDMBD.P11
160
161
162

MACYIT1 30A(1052)

23=JuL-79 15:08

24-JUL-79

08:37

PAGE 5

SEG

}gz

5.0

PROGRAM CESCRIPTIONS

}gg

5.1

PRGO - LOGIC TESTS

167
168
169
170
};;

173

174
175
};g

PRGO CONSISTS OF 34(8) INDEPENDENT ROUTINES WHICH TRANSMIT VARIOUS
DATA PATTERNS ON ALL LINES WITH A DECREASING DELAY BEFORE STARTING
SUCCESSIVE LINES. THE DATA IS CHECKED WHEN ALL TRANSMITTERS HAVE
COMPLETED TRANSMITTING. IF A DATA ERROR OCCURS THE ERROR TYPEOQUT
WILL SHOW THE DATA FAILURE AND THE LINE NUMBER.

5.2

PRG1 -

DATA TEST

(ALL LINES SIMULTANEOUSLY)

PROGRAM 1 TRANSMITS ' A QUICK BROWN FOX JUMPED OVER THE LAZY DOGS
BACK 1234567890' ON AtL LINES SIMULTANEOUSLY. WHEN ALL LINES HAVE
FINISHED RECEIVED DATA IS VERIFIED. AN ERROR TYPEOUT IS AS IN PRGO.

178
179
;g?

5.3

182
183
184
189
186
187
188
189
190
191
192
}35

5.4

PRG3 ECHO RECEIVED DATA
NOTE:
THIS PROGRAM MAY ONLY BE RUN [F USING AN
ASR 33 NOT MODIFIED BY DEC.
PROGRAM 3 ECHOES BACK DATA RECEIVED FROM A TERMINAL.
NOTE:
PROGRAM 3 SHOULD BE RUN AND DATA TYPED AT ALL AVAILABLE
DMIT TERMINALS. 1T IS THE ONLY TEST THAT INSURES CORRECT OPERATION
Of THE DM11 DISTRIBUTION PANEL LOGIC. IF THE TERMINALS ARE ASR-33
WITH A PAPER TAPE READER/PUNCH | SUGGEST THAT INDIVIDUAL TAPES BE
MADE UP FOR EACH LINE. THIS CAN BE DONE BY RUNNING PROGRAM 2 WlTH
THE PUNCH TURNED ON.
PROGRAM 2 WILL THEN PUNCH A TAPE ON FACH TERMINA,
WITH THE LINE NUMBER IDENTIFIER AT THE BEGINNING OF EACH TAPE.
PROGRAM 3 CAN BE RUN WITH THESE TAPES IN THE PAPER TAPE READLRS.

6.0

(HANGE HISTORY

195

}8?

PRGZ TRANSMIT TO TERMINALS
PROGRAM 2 IS THE SAME AS PROGRAM 1
DATA IS NOT CHECKED.

EXCEPT

THAT

THE

RECEIVED

}gg

NOTE:

200
201
202

(ZDMBDO - TABLE BASE ADDRESS (T1BR) REGISTER WILL ONLY WORK [Ff SE!
10 400 WORD BOUNDARY (1000,1400,2000,ETL.). THEREFOR
LOC. 1100 CHANGED TO 1200, AND (OC. 1106 (HANGED 10 1400

CHANGE HISTORY STARTS WITH REV.

DATA

1515

MACYY1

23=JuL~-79 15:08

30A(1052)

264-JUL-79

203
204
205
206
207
208

PAGE 6

VITLE CZDMBDO DM11
-NLIST
-L1ST
ENABLE ABS, AMA

DAVA

1STS

;CIDMBDO DM11 GATA 1STS

;COPYRIGHT

1972,1979 DIGITAL EQUIPMENT

;PRGO- DATA TESTS

;PRG1- DATA TEST

(ORP.,

MAYNARD, MASS,

01754

(ALL LINES SIMULTANEOUSLY)

:PRG2- TRANTMIT TO TERMINALS
:PRG3- ECHO RECEIVED DATA

:STANDARD SR SWITCH OPTIONS [SWITCH SET

;SR15- HALT ON ERROR

;SR14- SCOPE.
;SR13- INMIBIT

;SR6 THROUGH SRO - NUMBER OF

ROUTINE

10 BE

LOOPED.

STATEMENTS
CC=177776

PSW=177776
ERRVEC=4
NOP=240

OPEN=0

MANUAL=BIT15

P RN R

SN
NOD D =
T O TR T R T IR T <o
[IEda
P 22 VP o —_POS
=
OO0 [elolole]
OOOO
(=]

b et ek b e
Y WYV
+
N

5=100000

000040
000020
000019
000004
000002
000001
005726
022626
000340
000300
000240
000200
000140
000100
000040

(UP)]

020000

010000
004000
002000
001000
000400
000200
000100

;EQUATE

S [

177776
177776
000004
000240
000000
100000
100000
040000

TO A

PRINTOUY

;SR12- INHIBIT TRACE
:SR11- INMIBIT ITERATION.
;SR9- LOOP ROUTINE.

NO =2 PNIWNS
e
2 T TR T I S T

o RV Y. RNT, 3 u'bwN—-OOONOU\buN—-Oom\JOwme—‘O (=]
0

RororofuNINND
OO N
NNNNNNNNN'\)NNNN
B
N N N N

08:37

sE0 0006

=5726
POPSP2=022626
PRTY?=340
PRTY6=300
PRTYS5:=240
PRTY4=200
PRIY3 140
PR1YZ2-100
PRTYY 40
o -

(D MBDO DMY1

(ZomBD.P11

;POP THE
:POP

STACK.,

STACK

SAME AS TST

TWICE.

SAME

(6)+

(MP

;PRIORITY LEVEL DEFINITIONS

¢,

CZOMBDO DPYT
(ZDMBD.P1

259
260
26°
262
263

DATA

T1STS

000000
000000
000001
000002
000003
000004
000005
000006
000007
1046000

104001
104002
104003
104004

SOJNG
N
a0 —

[aYdaS 1.V 1,V1, V1, VY ¥ [pS 1V1,V
OB NN~~~ NTNN
N

MACY11

23=JUL-79 15:08

106006
1064007

30A(1052)

26=3UL-79

08:37

PAGE 7

PRIY0=0
RO=20
R1-21
R2=%2
R3-13
R4-24
R5=%5
SP=%6
PC=27

SEMT CALLS

TYPE=EMT+0
TYPES=EMT+]

STALL=EMT+?

ERROR=EMT+3

DATCHK-EMT
+4
STRXV=EMT+6
STIXV=EMT+7

FHALT=EMT+10

SCOPE=EMT+12

SAVREG=EMT+13

RSTREG=EMT+14

ERROR1=EMT+15
SUSWR=EMT+16
KBDIN=EMT+17
CNTLU=EMT+20

000007
177777
125252

052525
000000
177777

000000
000002
000004
000006
000010
000012
000014
000016
000020
000022
000024
000026
000030
000032
000034

000036
000040
000042
000044

000046
000050
000052

BELL=007

ATLAST==1
ALT0=1252 52
ALT1=0525 25

y=0

000000
000000
000000
000000
000006
000000
000012
000000
000016
000000
000022
000000
000026

000000
003064

000340
000036
000000
V00042

000000
000046
000000
000052
000600

SALTERNATING 0'S
ALTERNATING 1°'S

PATTERN
PATTERN

;5P OVERFLOW, BUS ERROUR TRAP

;RESERVED INSTRUCTION TRAP
s TRACE

TRAP

; TRAP

T0 CALL

]Ox

;POWER FAIL TRAP
EMTINT
PRIY?7

;EMT

TRAP

;TRAPPED 1O PREV]OUS ADDRESS.

STRAPPED

10 PREVIOUS ADDRESS.

:TRAPPED

10 PREVIOUS ADDRESS.

(/DMBDL DM11
CZDMBD.P1Y

315
316
317
318

DAIA TSTS
MACYYT
23-JUL=79 15:08

000054
000056
000060
000062

319 000064
320 000066
321
000070
322
000072
323 000074
326 000076
325 000100
326 000102
327 000104
328 000106
329 000110
330 000112
331
000114
332
000116
333 000120
334
000122
335 000124
3% 000126
337
000130
3138
u00132
339 00013

340
3641

000136
000140

000056
000000
000062
000000

000066
000000
000072
000000
000076
000000
000102
000000
000106
000000
000112
000000
000116
000000
000122
000000
000126
000000
000132
000000
000136

000000
000142

30A(1092)

24-4uL-79

O0B:37

PAGE

560 0098

.2
HALT
Y.
HALT

.2
HALT
.42
HALT
Y.
HALT
.42
HALT
.42
HALT
L2
HALT
.42
HALT
Y.
HALT
.42
HALT
.42
HALT
.42

;TRAPPED 10 PREVIOUS ADDRESS.

;TRAPPED TO PREVIOUS ADDRESS.
:TRAPPED TQO PREVIOUS ADDRESS.
;TRAPPED TO PREVIOUS ADDRESS.

;TRAPPED TO PREV]IOUS ADDRESS.
;TRAPPED TO PREVIOUS ADDRESS.
:TRAPPED TO PREVIOUS ADDRESS.

;TRAPPED 10 PREVIOUS ADDRESS.
;TRAPPED TO PREVIOUS ADDRESS.
;TRAPPED TO PREVIOUS ADDRESS.

:TRAPPED T0 PREVIOUS ADDRESS.
;TRAPPED 10O PREVIOUS ADDRESS.

HALT
L4

;:TRAPPED 10 PREVIOUS ADDRESS.

342

000142

000000

HALT

;TRAPPFD TQ PREVIOUS ADDRESS.

344

000146

000000

HALT

;TRAPPED 10 PREVIOUS ADDRESS.

343

345
346
347
348
349
350
351
352
355
354
355
356
357
358
359
360

000144

000150
000152
000154
000156
000160
000'62
00C164
000166
000170
000172
000174
000176
000200
000202
000204
000206

000146

000152
000000
000156
000000
000162
000000
000166
000000
000172
000000
000176
000000
000202
000000
000206
000000

.42

L2
HALT
.42
HALT
.42
HALT
.42
HALT
.42
HAL !
.42
HALT
.42
HALT
.42
HALT

361
362

000210
000212

000212
000000

.42
HAL T

3664
365
366
367
368
369

000216
000220
000222
000224
000226
000230

000000
000222
000000
000226
000000
000232

HALT
.42
HALT
.42
HALT
.42

363

370

000214

000222

000216

000000

.42

; TRAPPED 1O PREVIOUS ADDRESS.

:TRAPPED TO PREVIOUS ADDRESS.
;TRAPPED TO PREVIOUS ADDRESS.

; TRAPPED TO PREVIOUS ADDRESS.

;TRAPPED TO PREVIOUS ADDRESS.
;TRAPPED TO PREVIOUS ADDRESS.

; TRAPPED 10 PREVIOUS ADDRESS.

;TRAPPED TO PREVIOUS ADDRESS.
;TRAPPED 10 PREVIOUS ADDRESS.

:TRAPPED 10 PREVIQUS ADDRESS.
;TRAPPED TO PREVIOUS ADDRESS.
;TRAPPED TO PREVIOUS ADDRESS.
;TRAPPED 10 PREVIOUS ADDRESS.

-d<><ND~qOWhrw~nfi:g;

L L0 L W L L i A e N e AN AN e L
U W e
~0 O 00 G Oo OB OB OB OB 00
NN~ N NN N~
OO~
Sy

(/DMBDO DAY
(Z0MBD Pl

000234
000236
000240
000242
000244
000246
000250
000252

000254
000256

000260
000262
000264
000266
000270
000272
000274

000276
000300
000302
000304
000306
000310

000312
000314
000316
000320
000322
000324

2 OO~V
N (-

P 2l ol oIP

L WY O P
Sy

410

DATA TSTS

000326
000330
000332
000334
000336
000340
000342
000344
000346
000350
000352
000354
000356
000360
000362
000364
000366
000370
000372
000374
000376

MACYIY

23-4UL-79 15:08
000236
000000
000242

000000
000246
000000
000252
000000
000256
000000
000262
000000
000266
000000
000272
000000
000276
000000
000302
000000
000306
000000
000312
000000
000316
000000
000322
000000
000326
000000
000332
000000
000336

000000

000342
000000

000346
000000
000352
000000

000356
000000
000362
000000
000366
000000
000372
000000
000376
000000

30A(1052)

24=-JUL-79

08:37

PAGE 9

Sta 000¢

.42

HALT

: TRAPPED

10 PREVIOUS ADDRESS.

HALT

: TRAPPED

TO PREVIOUS ADDRESS.

HALT

:TRAPPED

TO PREVIOUS

ADDRESS.

HALT

:TRAPPED

10 PREVIOUS

ADDRESS.

HALT

: TRAPPED

YO PREVIOUS ADDRESS.

HALT

: TRAPPED

TO PREVIOUS

ADDRESS.

HAL
T

; TRAPPED

10 PREVIOUS

ADDRESS.

HALT

: TRAPPED

ADDRESS.

HALT

; TRAPPED

TO PREVIOUS

ADDRESS.

HALT

; TRAPPED

T0 PREVIOUS

ADDRESS.

HALT

: TRAPPED

TO PREVIOUS ADDRESS.

HALT

; TRAPPED

T0 PREVIOUS

ADDRESS.

HALT

: TRAPPED

ADDRESS.

HALT

: TRAPPED

10 PREVIOUS

ADDRFSS.

HALT

: TRAPPED

T0 PREVIOUS ADDRESS.

HALT

; TRAPPED

TO PREVIOUS ADDRESS.

HALT

s TRAPPED

10 PREVIOUS

ADDRESS.

HALT

; TRAPPED

TO PREVIOUS

ADDRESS.

HALT

;TRAPPED

10 PREVIOUS

ADDRESS.

HALT

: TRAPPED

TO PREVIOUS ADDRESS.

HALT

;s TRAPPED

TO0

HALT

; TRAPPED

10 PREVIOUS ADDRESS.

HALT

; TRAPPED

T0 PREVIOUS ADDRESS.

HALT

; TRAPPED

TO PREVIOUS ADDRESS.

HALT

; TRAPPED

T0 PREVIOUS ADDRESS,

.42

.42
.42
.42
.42

.42

.42
.42
.42

.42

.42
.42
.42

.42

.42
.*2

ADDRESS.

CZOMBDO DMIY
(lomB8D.P1I
622

623
624
625
626
627
628
629
630

631
632
633
434
63%
636
637
438

DATA TSTS

000200
000137
000137

002404
002422

JAP
JHP

S#START
SARSTATY

000210

000137

002472

JMp

AFRSTAT?

001440

466

467
468
469
470
N

672
673

474

475
476

.-46

SACTTT

SENDAD

HOOKS

.=952
020000
2174
DISPREG: 0
SWREG:
0

.=200

;60 TO STARYT OF DIAGNOSTIC,
;G0 GET PROGRAM # & RESTART PROGRAM
:USING PRE/IOUS DM11 PARAMETERS

;RESTART

PREVIOUS PROGRAM USING

;PREVIOUS OM11

447
448
449
450
651
452
453
654
455
656
657
658
459
4«60
461
662

465

See 0010

000200
000204

001400

463

PAGE

000174
000000
000000

445

464

08:37

000174
000176

001200
001202
001204

446

24-JuUL-79

000952

442
463

23-JUL-79 15:08

30A(1052)

000046
003027
000052
020000

000046

439

440
44

MACY1T

001500

001540
001542
001544
001546
001550
001552
001554
001556
001560
001562
001564
001566
001570
001572
001600
002000
002002
002004
002006
002010
002012
002014
002016
002020
002022

001200

.=1200

000000
177570
177570
001400
000000
001440
000000
001500
000000
001540
000000
175000

SPBOT:
0
SWR:
177570
DISPLAY: 177570

175002
175004

175006
000000
000240
000000
000240
000000
000000
000000
000000
000000
001600
000000
002000
000060
000200
000064
000200
000000
000000
000000
000000
000000
000000

.=16400

.=CAT+32,

;STARTING ADDRESS Of
:CURRENT ADDRESS TABLE

CAT:

OPEN

WwiT:

OPEN

BAT:

OPEN

VA(C:
CSR:
BAR:
BK(SR:
BASREG:
(LKINT:
CLKLVL:
XHTlhT:
XMTLVL:

LWCT+32,

.=BAT+32,
OPEN
175000

TIPIR:

175002
175004
175006
OPEN
PRYYS
OPEN
PRTYS
OPEN
OPEN
OPEN
OPEN
OPEN

TUMTAB:

OPEN

BARIM:
TTDAT:

LINBIT:
BARDAT:

TKVIR:
TKLVL:
TPVIR:
TPLVL:
KSTART:

CURTSTY:

RTNNO:
NXTST:

ICTR:
SCOPTR:

PARAMETERS

LSVAC+32,

.=TUMTAB+128.
60
PRTYG

64
PRTYS
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN

;STARTING ADDRES Of
;WORD COUNT TABLE

JSTARTING ADDRESS OF
;BIT ASSEMBLY TABLE

;32. SPARE WORDS
;ADDRESS OF

CLOCK

STATUS REGISTER

sADDRESS OF BUFFER ACTIVE REGISTER
;ADDRESS OF BREAK STATUS REGISTER
;ADDRESS OF BASE REGISTER

:OM11 VECTIR ADDRESS (RECEIVER)

;PRIORITY

LEVEL

;DM11 VECTOR ADDRESS (TRANSMITTER)

;TRANSMITTER PRIOR]TY
,PROGRAM BAR [MAGE

LEVEL

;TUMBLE TABLE DATA
;LINE BIT (FOR BAR)

;BAR DATA

;PROGRAM TUMBLE

TABIE

POINTER

;STARTING ADDRESS OFf

; TUMBLE

TABLE

;ULSR INTERRUPT VECTOR
:LSR PRIORITY LEVEL
:LSP INTERRUPT VECTOR
JLSP PRIORITY LEVEL
: CURRENT PROGRAM START ADDRESS.
;CONTAINS ADDR OF CURRENT TEST,
CONTAINS CURRENT TEST #,
;CONTAINS ADDR OF NEXT TEST,
sCONTAINS CURRENT JTERATION COUNT
;CONTAINS CURRENT SCOPE POINTER,

(REV,

DO)

(REvV.

DO)

DMBDO DMIT DATA T1STS MACY1T 30A(1052)

(20M8D.P11
478
479
480
481
482

«83

i@ Rele B NTe RV P FUT VBT w Ve T
(O R RV LS

(S LR

AV AV SV LU IV LV IV IV IV W

IV IV IV IV TV 1V 1

POPIPOPOUNIND
= —2 b et ecd et et b b
o0

484
485
486
“87
488
489
490
491
692
493
494
499

002024
002026
002030
002032
002034
002036
002040
002042
00204¢
002046
002050
002052
002054
002056
002060
002062
002064
002066
002070
002072
002074
002076
002100
002102
002104
002106

23-JuL-79 15:08
177774

002146

002150
002152
002154

PRGL IN:
PRGTAB:

-4

PRGO
PRGI
PRG2
PRG3
RSTART: PRGOR
PRGIR
PRG2R
PRG3R
EMTTAB: T1YP
OPEN
OPEN
ERR
DT(HK
OPEN
OPEN
OPEN
OPEN
OPEN
ESCOPE
SAVRG
RSTRG

000000
177560
177562

SRT:

:PRGO START ADDRESS
:PRG1

START

ADDRESS

:PRG2 START ADDRESS
;PRG3 START ADDRESS
:PRGO RESTART ADDRESS
;PRGI
'
'
:PRGZ

;PRG3

)

;POINTER
;POINTER

TO TYPEUUT ROUTINE
TO CHAINED MESSAGES

ROUTINE

;PGINTER TO RANDOM STALL ROUTINE

;PCINTER

TO ERROR

ROUTINE

ERR1
SUSWRR

KBDINTT
CNTLUU

TK(CSR:

TKDBR:
TPCSR:
TPDBR:
RCVDAT:
XMTDAT:
CARMSK:
TEMP:
PCADD:
APCADD:
PRVCNT:

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

LINE:
:
L INBUF
PASS:
COUNT:

104000

INCRIN:

013300
000207

SEQ 0011

005660
006640
007024
007034
005702
006656
007030
007052
003220
000000
002000
002224
002156
000000
000000
000000
000000
000000
002650
003116
003156
002242
004412
004256
004332

177564
177566
000000

002144

24-JuL-79 08:37 PAGE 11L

OPEN
177560

177562
177564
177566
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN

OPEN
OPEN

T1YPE
M1
RTS

:EVTE

JEXIT,

INCORRECY RCUTINE

SELECTED.

b
2 AR ALY IV )
AN LN N NN LN N WM N A

\J\hUNfi::U\p

<HD~a0wn:wuNh-ChDGPusf

(ZDMBDO DM11
(lomBD P11

DATA T1STS

002156

MACYTT

23-JUL~-79 15:08

123737

001416
004737
032777
001010
004537
002140
013254

002122
002356
02000C¢

30A{1052)

002124

:DATA (HECK ROUTINE.

DT(HK:

177002

(MPB

RCVDAT XMTDAT

JSR
81T

7.CNVDAT
#BIT13,3SWR

;CONVERT RCVDAT £ XMTDAT
;ERROR TYPEOUT DESIRED?

JSR

S.3#0A(NY

;CONVERT LINE

Bta

BNE

005112

LINE
SLINE

13
't

TYPE

— O DO~NO
IV
N —

1%:

000402
0027132

002324
002134

000240
002132
002356

002324
002134

020000

176710

;COMPARE EXPECTED AND RFCEIVED

sCHARS. BRANCH
;BRANCH

SAME,

NO TYPEQUT

10O ASC!I]

DESIRED

;NUMBER
;10 ASCII

ERRI:
ERRA:

000042
176634

002354

ERRHLT:
ERREX:

000002

(HLT)
;MOV BR .+6 T0 ERRB
;GET PC WHERE ERROR OCCURRED

#B1113,35uWR

;ERROR PRINTOUT DESIRED

JSR

5,380ACNV

;CONVERT

KBDIN

JSR

ERRC:

ERRC

5.,3Y0ACNV

TYPE
EMO
OPEN
TYPE

ERDAT

002366
002370
002374

004537
002124
013220
000C06
004537
002122

005112

(NVDAT:

ANOTHER

JBR

ERRECX

;G0 TO EXIT

S,0ACNYV

JSR

5.0ACNY

RCVDAT

;FOR

ERRHLY

JSR

XMTDAT
AASB
6

;DATA

ERROR

aSWR

;IN MESSAGE.

NO PRINTOUT

;1F

T¢T

HALT
«XBDIN
RTI

;10
JAS(Il

;TYPE

INL2 346

8PL

;BRANCH

:TYPE ERROR
sMESSAGE
;NOP 1f ERROR!,

cmp

BEQ

;CHECK FOR *G

;PRINTOUT

;SUBROUTINE TO CONVERT RCVDAT AND XMIDAT

002356
002362
002364

PAR]T

BIT

RINNC
gTNUHB

000046

;MOVE NOP TQ ERRB
;GET PC WHERE ERROR OCCURRED
;CONVERT RCVDAT & XMIT DAT 10 ASCII

AP(
6

ERRB:

#24L0 ,ERRB
o#PCADD ,a#APCADD
7,3#CNVDAT

BNE

005112

LINE

;OF ERROR MESSAGE
; EXIT.

MOV
MOV
JSR

APCADD

564

;TYPE

L INEM
R7l

JERROR SERVICE ROUTINE CALLED BY TRAP
ERR:
MOV
#4502 ,ERRB
ggv
2=;CADD,81APCADD

005112

AN NN NN N NN

PAGE

ERROR1

[o Xo No o BV IV IV IV IV SV V.2V IV

WNAN AT

08:37

]

SEQ 0012

540

(S AV AV IV LV IV IV YV 1V ][V IV TV T0 1V IV IV 1V
WO NN~~~
N~ NNNO>OoOOoOOoO
Eed=A o1+ V1. YV
PV LVwYVele
- Ra¥Te V)

24-JUL-79

JACTIN?

.+6

ERROR

MESSAGE

YES

;HALT ON ERROR

IF NO MALT ON ERROR

JHALT
JCHECK FOK *G
;sRETURN

10 ASCI]

AND PLACE

Cl OMBDO DM11
(1 OMBD P11

O VN

(o> ol

LY A ld ol

Mo e

JV IV LV 1.V

He o No No ¥e Wo No N

¥o ¥o

ko & T B
V1 N1 V1 ,N7 §) W] V%,

Py —

coococoO00oco oo

= OO0

NV~ OO0
NI () — O0O0F
O NN N OOV~

582
583
584
585
58¢
587
588
589
590
591
592
593
594
599
596
597
598
599
600
601
602
603
604
605
606

637

DATA T1ST1S

002376
002400
002402

013235
000006
000207

002404
002410
002412
002416
002422
002426
002434
002436
002440
002442
002446
002450
002456
002462
002466
002472
002476
002502
002506
002514
002516
002524
002526
002530
002532
002534
002536
002540
002546
002554
002560
002564
002566
002572
002600
002602
00606
002610
002614
002620

012706
104016
004737
004737
012706
023737
001405
104000
013260
004537
000000
043737
006337
013700
000170

002624
002626
002632
002640
002642

002646

002650

002652

HA(;A‘ 30A€1052) 24-JuL-79 O08:37 PAGE !3"

23=4UL~79 15

012706

013700
000170
022737
001410

023737

001405

AUAS

001200

003334
004042
001200
000042

START:

000046

004076
002024
002446
002446
002026
001200
002446
002036
000176

001202

000042

000046

002446

RSTAT1:

PRGNUM.

RSTATZ:

000240
005077

SJEXIT

MOV

#SPBOT,26

JINITIALIZE STACK
;CHECK FOR HARDWARE SW]ITCH REGISTER
JGET DM11 PARAMETERS

SUSWR
JSR
JSR

Mov

CMF
BEQ
TYPE
M0
JSR
0
8IC

SRSET:

JMP
MCv
Mov
JMP
CMp

BEQ

(mMp
BEQ

TYPE

013330
000000
000401
104020

6
RTS

ASL
Mov

104000

013737
012737
005037
012706
000005
004737
032777
001003
000177
000461
017700
042700
123700
001002
000177
022737
(01352
004737
000734

SEQ 0013

7,3#DMPAR
7 ,a00VRLAY

;PUT

¥SPBOT,
RS

002010
000006
177776
001200

003032
001000

002016

000004

176402

177204
176366
177600

B1C

002014

177160
177777

002016

GTRDYD:

052150

(MPB
BNE
JMP
cmp
BNE
JSR
BR

. SCOPE ROUTINE

176664

ESCOPE:

NCP
(LR

ALl ,akkb

JACTIY?

PRGNUM+?

;BR IF

5.RECD

PRGNUM
, XC
aPRGTAB(D)
#SPBOT,
X6
PRGNUM%0
,
aRSTART(0)
FSWREG, SWR
1%
LY
LI
GETRDY

;PUT 1T HERE
;MASK OFF UNUSFD BITS

sSH1FT PROGRAM #
;GET PROGRAM #
;60 START PROGRAM
JINITIALIZE

STACK

:GET PROGRAM #
;GO0 RESTART PROGRAM
JACTIN?
:BR 1F YES
:TYPE OPTIONS MESSAGE
;WAIT

GETRDY
KSTART ,NXTST
#6,INERRVEC
PSW
#SPBOT,
%6

X7,FORWD

#BIT9,aSWR
GTRDYC
aCURTST
SCOPED

FOR USER

TO SET

OPTIONS

:ADDR OF 1ST ROUTINE TO NXTS?I
sRESET ERROR TRAP,
:SET BOTTOM OF STACK.
; 1SSUE RESET.
:ROLL FORWARD TO ‘'NEXT'' ROUTINE.
;CHECK SELECT ROUTINE SwIT(H
;BRANCH IF SELECT ROUTINE SWITCH IS SET,
;GO RUN CURRENT ROUTINE.
:NO GO. MANUAL RTN BYPASSED.

: (SR) T0 RO

aSWR, %0

#177600,%0
RTNNO,20
GTROYD
aCURTST
#-1,NXTST
GIRDYA
X7,INCRIN
GETRDY

a(SR

YES

;6ET THE PRGNUM g

PRGLIM,PRGNUM
PRGNUM

(CALLED By

IN VECTOR AREA

sINITIALIZE STACK

HALT
BR
1%:
CNTLU
GETRDY: Mov
GTRDYX: Mov
CLR
MOV
RESET
GTRDYA: JSR
BIT
BNE
JMP
BR
GTRDY(: MOV

HALT,.+2

;MASK UNDESIRED BITS
; COMPARE RTNNO TO (R0)
;BRANCH IF ROUTINE NOT FOUND YET,
;60 RUN ROUTINE.
:NO. CHECK FOR LAST ROUTINE.
;BRANLY TF NOT LAST ROUTINE.
;YES. INCURRECT ROUTINE SELECTED.
;START OVER.
EMT

INST.)

SINTYIALTZE

638
639

640
641
642

643
b4b

645

646

647
648
649
650

651
652
653
654
6595
656
657
658
659
660
661
662
663

D ATA

002656
102662
002666
002570
002676

002704
002706
002712
002714
002722
002724
002752
002734
002740
002742
002746
002750
002752
002760
002762
002770
002772
002776
003000

T181%§

¢3%-JuL-79

unrv;l
-

C/DMBDG DMYY
(10MBD P

26=,UL-79

176664
176656

012777
032777
001403
013716

001400
040000

(LR

176652
176276

002022

SCOPEA:

004000

176260

000042

000046

002020

SCOPEB:

176222

177777

002016

002144

000042

688
689
690
691
692
693

003030
002016
002014
002016
002020
002022
002012

003114

OO0 —-=00—0O
~ OO
—— O —
WO
N~ =Ny —
O NNOO
O N
)t
O = (g s S
~NOoO OO
wOoO O

684
685
686
087

$ENDAD:

003116

012637

003064
003066
003072

003076
003102
003106
003110

fORWD:

JEMT

000002

mov
811
BEQ

#CAT ,3BASREG
#81114,5uR
SCOPEB

Moy
R11

B11
BNE
np
BNE

NOP
NOP
NOP
NOP

SCOPIR, 326

#B817T11,aSuwR
SCoPEC
alNL2 ,anL6
1%

S#PASS
SCOPEC
ICTR

SCOPEA

#B1719,aSWR
GETRDY
#-1 NXTST
GTRDYX
a#PASS

000000
000001

;CHECK

FOR SCOPE

;BRANCH IF

Y LY
¥
GETRDY

SCOPE

QPT]ON.

SW NOT SET.,

:SET UP TO RETURN TO ROUTINE.
;RETURN TO ROUTINE.

:TEST INHIBIT ITERATION SWITCH
;BRANCH IF INHIBIT ]TERATION Sw SET.
JACTNN?

:BR IF NO

;18T PASS?
:BR IF YES

;OECREMENT ITERATION COUNT,
;BRANCH IF COUNT NOT 0.

;POP

STACK

TWICE

sCHECK SELECT ROUTINE SWITCH
sBRANCH IF SELECT RTN Sw SET
JLAST TEST?
;BRANCH

NOT

LAST

JIND PASS

;END!
sCHECK DDP/ACTI1

;RETURN TO DDP/ACTI11

MOV
MOV
MOV
MOy
MOV
MoV
RIS

NXTST,2S
(5)+,RINNO
(9)+ NXTIST
(5)+,1CIR
(5)+,SCOPIR
25,CURTST
1¥4

;ADDR OF

;ADDR

NOW

MOV

SUB
MOV
ASL
ADD

MoV

(6),-(6)

#2,06)
(6),PCADD

8(6),(6)

1(8)

(6)
SEMTTAB,
(6)

27
alb)e,

:SAVE REGS 0 10 & SUBROUTINE.
MOV

(6)+,1%

TEST.

MONITOR HOOK

7.(2)

CLRB

SAVRG:

;DM

JSR

NOP
NOP
NOP

MOV

002046

: THE

;TYPE

TRAP INTERPRETER

EMTINT:

002132

003152

@BK (SR

aBAR

BNE
SCOPEC: POPSP?2
SCOPED: 817
BNE
cmp
BNE
INC
TYPE
"2
MOV
BEQ
RESET

666

680
68
682
683

(LR
¥BDIN

187
BEQ
DEC

1%:

001000

664

679

StQ 0014

002144

003032
003036
003042
003046
003052
003056
003062

PAGE

665

667
668
669
670
671
672
673
674
675
676
677
678

08-37

005077
005077
106017

30A(10%2)

ROUTINE

MONITOR

TO RS,

;GET NEXT ROUTINE NUMBER.
;GET ADDR OF NEXT ''NEAT'' ROUTINE.
;GET JTERATION COUNT,
:GET SCOPE LOOP ENTRY POINTER.
OF

CURRENT

TEST

SEXIT FORWD SUBROUTINE.

:GET PC OF NEXT INSTRUCTION
;POINT SP TO PC OF EMT
:GET PC OF EMT CALL

SGET

EMT

CALL

:STRIP EMT & SAVE IDENTIFIER
SSHIFY IDENTIFIER LEFT

;60 10 PROPER EMT
;SAVE

PC AND PSW,

CURTST,

(ZDMBDO DM11
(20mB0 P11

700
701
702
703
706

003122
003126
003130
003132
003134
003136
003140
003144
003150
003152
003154

012637
010446
010346
010246
010146
010046
013746
013746
000002
000000
000000

003156

000240
012637
012637
012600
012601
012602
012603
012604
013746
013746
000002
000000
000000

Hery OOV
N NI NN —

NN~ \l\l\l\l\i\l\l\l\d\j\l

003160

725
726
727
728
r29
730
731
732
733
734
735
736
737
738

739

740
741
742
743
746
745
746

747

768
749

1S1S§

003164
003170
003172
00317¢
003176
003200
003202
003206
003212
003214
003216
003220
003222
003224
003230
003232
003236
003244
003246
003250
003256
003260
00326¢
003266

000240
011600
062716
011000
112037

122737

_, OO
— so
o
2O
OO0 — o
o
—
SNV OOWVMLNO
NNNMNVINNNNNSNO (=)
WHNHNWNO
NN
W= WO O
NN N N WA SN NN NN
R —

694
695
696
697
698
699

MACY1Y
23-JuL=79 15:08

DATA

000
122
001
004

004737
000740
000000

30A(1052)

26=JUL-79

08:37

mov

(6)+,2%

Moy
Mov
MoV
nov

003154
0035152
1%:

2%:

nov
nov
MoV
RT11

000002

003332

1%:

OPEN

NOP
MOV
ADD
Mov
MOvB

;CONTAINS SAVED PSW

TO OUTPUT ASCI1 MESSAGE ON TELETYPE PRINTER.

003332

2%:

176624

3%:

RTI

(MPB
BEQ
JSR
BR
MOVB
TST8

BPL

000015
003266
000012
003266

;RESTORE PC AND PSW.

;CONTAINS SAVFD PSW

(MPB
BNE

003266
176616

sSAVE REGS 0 - 4
;IN STACK.

SJEXIT.
;CONTAINS SAVED PC

OPEN
OPEN

: SUBROUTINE

TYF:

003332

14,-(6)
13.-(6)
12,-(6)
I1,-(6)
20.,-(6)
2%,-(6)
1%,-(6)

:RESTORE REGS O 10 & SUBROUTINE.
RSTRG:
NOP
MOV
(6)+,1%
;SAVE PC AND PSW.
Mov
(6)+,2%
MOV
(6)+,%0
JRESTORE REGS 0 - 4
MOV
(6)+,%1
;FROM STACK,
MOV
(6)+,%2
Mov
(6)+,%3
MOV
(6)+,%
MOV
2%,-(6)
;RESTORE PC AND PSW.
Mov
1%,~-(6)
RTI
JEXLT
1%:
OPEN
; CONTAINS SAVED PC

003214
005216

000045

SEQ 0015

003154

003332
000100

PAGE 15

003332

4%:

003332

RTS
MOVB

JSR

MovB
JSR

5%:

B8R
OPEN

(SP),%0
¥2,(SP)

820,20
(0)+,5%

#100,5%

#45,5%
4%
};,ss

5% ,3T1PDBR

;GET ADDRESS THAT (ONTAINS MESSAGE
;SET UP EXIT.
;ADDRESS OF MESSAGE TQ RO.
;GET CHARACTER
;CHECK FOR''a''CHARACTER

;BRANCH IF NOT''3''.

;TERMINATOR

000046

DMPAR:

NOP
CMP
BNE

EXIT.

;OUTPUT CHARACTER TO PRINTER

;WAIT

X7
#15,5%
17,343%

SEXIT
;MOVE CARRIAGE RETURN (ODE
;60 TYPE CHAR.

?;.Ss

;GO TYPE (HAR.

#12,5%

sVECTOR ADDRESS

000042

DONE.

arzcsn

;MOVE

FOR DONE

;SUBROUTINE TO GET DM11 PARAMI TERS

000240
023737
001060

CHAR.

;CHECK FOR''X'".
;BRANCH F''%'"
;TYPE CHAR IN 5%

Y 98T [N
6%

;BEGIN

SACT1Y?
;BR 1F NO

CODE

FLAG.

10 5%.

10 5%

ADDRESS.

MACY11
23=JuLL-79 15:08

coodsoa8222225882ee

750
791
752
753
75
75%
756
757
758
759

DATA TSTS

—~o—-00000O

760
761
762
763

764

765

30AC1052)

177776

4%:

000003

000776
003462
000340
177777

007362
000105
177776
000001
177777

002146

000004
003522
000016
004042

003620
003626
003630

003632

003634

003640
003642
003650
003652
003654

023737
001405

000014
00001¢
001440
001400

3%:

176112

17610¢
00214¢

CLR

MOV
2%:

5¢:

000014

VECTOR:

000770

000007

003522

003522
000004

003522

001552
003522
00155¢

000042

000046

000000
023727
101403
104000
013300

PAGE 16

VECOK:

VECOKB:

000017

;SET BPT VEC(T
;8 PSW
SSET TO XMIT 1

aNPSE

;LvL 0

#-1,COUNT
COUNT

SWALT

#BIT16+4BIT2+B!70,a(SR

#B1710,aBAR

3%
¥4, (SP)

VECOK
7 ,0VRLAY

JSR
0

7 ,0OVRLAY

S,RECD

151

VECTOR

mMov

#300,VECTOR

CMp
BHIS
T{PE
M

VECOK

VECTOR,#300
VECOKB

DRPAR

BHI

VECOKA

cMp

VECTOR,#770

#7,VECTOR

MOV
ADD
MoV

VECTOR,a#CLKINT
#4 VECTOR
VECTOR,@#XMTINT

JUNIT NUMBER

UN]T:

3
58,3014
#340,3016
£-1,uC1
#OUTBUF ,CAT

BR
JSR

TYPE
WHERE

VECOKA

(MP
BEQ

L2 3046
UNIT+2

JSR

S.RECD

(MP
BLOS
TYPE

SSET UP FLOATING VECT

AREA

#776.R0

(SP) ,@#VECTOR
16,3014

BNE

DMPARB:

#302,R0
RO.-2(RO)
#3,(RO)+
(RO)
¢

MOV
MOV

TYPE
WHI(H

004076
003640

BNE
ERROR
BR
SUB

BNE

VECOKA:

003522

Mov
DEC

JSR

6%:

003522
000300

8PL
Mov
MOV
Mov
Mov

Mov

104000

013143
004537

nov
MoV
MoV
187

CcAp

003522
000300
003522

08:37

;S1ZE FOR _INTERRUPY vE(LTOR INM AUTO MODE

000302

004076

003612

264=JUL-79

SE0 0016

004042

OO0
=000 —=—=00
—_O = OWONO
OO N —
NI
2 PO -2 L O N B
NN
NN NN NN N
NOO NN
WNWNOM
N NN
OO O NI
NNNWNN
=Y NOO W~

l OMBDO DM11
l DMBD NaR

UNIT,#17
1%

JSET

CHAR

JXMIT

sNO INT OCCURRED
;RECPEAT 1T
SsCALC INT VECT
;STORE IT
;RESTORE BPT

VECT

;.%2, HALT IN VECT AREA

;PUT HALT,.+2

IN VECTOR AREA

.ASK USER FOR RECEIVER
;OF UNIT UNDER TEST

:GET
;PUT

INT.

VELTOR

THE VECTOR &
IT HERE

;SET VECTOR - 10 0300

;1S VECTOR HIGHER CR
;EQUAL TO 0300

STYPE

;ASK

*2°

FOR ANOTHER VECTOR

.15 VECIOR

10 OR

SLESS THAN 770

;LSB OF

VECTOR MUST BE ALL 0'S

SACT1Y?
;B2 IF YES

sGET

THE UN]T £

sPUT

MERE

(ZDMBDO DM11
(ZDM8D.P11

DATA TSTS

003656

¢3-JuL-79 15:08
000760

N Ll —

j=ielelaleTe) [=leloelelolats)
OO = i o o Y
oo
TN

= O D00 N
W

844
845

B4b
847
B48

30A(1052)

003640
003640

nov
MOV

2%:

001600

177776

#370,(1)
UNIT, (1)«

ADD

32
2%

DEC
BNE

sCALCULATE CHARARACTER LENGTH
MOV

MOV
Mov
MOV
MoV
MOV

175562
175556

;PRE

SET

THE

(HARACTER MASK

CHARACTER ON LINE O

CLR
BI(B
CLR

;WAIT

TUMTAB, CARMSK
PSw

RIS

;LOAD CHARACTER LENGTH MASK
:RESTORE PROCEESSER TO PRIORITY
JRESTORE THE STACK POINTER

POPSP2

;EXIT

FOR

RECEIVER

INTERRUPT

OVRLAY:
1%:

x2,(1)+
(1)¢
X2 M776
2%

BEG

000004

ne,%2
1%

ADD

000240
000207

2%:

HALTS

#300,%1
#302,%2

MOV

MOV
MOV

(LR
Mp

000776

PARAMETERS ROUTINE

;ROUTINE TO LOAD TRAP/INTERRUPT VECTOR AREA WITH HALT,.+2.
:AT ADDRESS OF TRAP/INTERRUPT VECTOR +2,

000300
000302

TRANSMITTED

#3%,aCLKINT
;LOAD ReCEIVER INTERRUPT
#340,aCLKLVL
;AND PRIORITY LEVEL
TUMTAB
#1 ,3BAR
: START TRANSMITTING
#BIT6+BIT2+BIT0,aCSR
;SET 1E,MAINT AND GO BITS

Moy
MOV
WAIT

1%:

;LOAD QUTBUF WITH CHRAR TO BE
;SET UP TO TRANSMIT 1 (HAR

#OUTBUF ,CAT

CLR

175534
175524

002126

#CAT ,@BASREG
alSR
#-1,0UTBUF
-1,uC1
#-1,38CARMSK

CLR
Mov

004040

004042
004046
004052
004054
004056
0040062
004064
004070
004072
004074

#CSR,
X1

Bi(

007362
00144C
002126
001400

175516

PAGE 17

DMPARB
UNIT
UNIT
UNIT
8,32

ASL
ASL

175622

001600
000001
000105

08:37

BR
ASL

1$:

849

BR
NOP

JEXTTY

;SUBROUTINE 1O RECEIVE DATA
;THIS SUBROUTINE RECEIVES DATA FROM THE KEYBOARD (UP 10 SIX OCTAL
;DIGITS AND PLACES THEM INTO THE ADDRESS FOLLOWING THE SUBROUTINE

850
851
852

853
854
855
856
857
858
859
860
861

26-4UL-79

SEQ 0017

003640
000004
001542
000370
003640

PIPOPIN)
b s s s De
s ey

0o G0 Qo O QD OB 00 00 09 OB OO O O

On 0D 0o Qo OB O0 00 0o Op OO
2~ ol
R I VIV v v
OO0 O~
O
ety
Pl o
we o

oo oo

841

MACY1Y

;CALL

(JSR 5,RECD).

;SUBROUTINE

004076
004100
004102
004110
004114

RECD:

000007
175776

004254

1%:

2%:

MOV

CLR
MOv

1518

BPL

INPUT

NO REGISTER

DATA FROM

RO,=-(SP)
(5)
#7,0NT
?TKCSR

CONTENTS ARE

DISTURBED.

1Ty

JCLEAR OLD DATA

;SET CHAR COUNT

;WAIT

FOR (HAR

PROCRAM

CZOMBDO DMIY
(ZOMBD.P11

004116
004122
004126
004132

30A€1052)

24-suL-79

MOvB

000200
175766
000025

WUNMO

— ke 2 MDD
—[
WAANN
s O O No

B8i(B
MOvVB
(mP8

BEQ

000015

(neg

BEQ

000060

000110

879
880
881
882
883
834
885
886
887
888
889
890
891

892
893
894
895

000744
105777
100375
012777
105777
100375
005077
105777
100375
005725
012600
000205
104000
013300
104000
013140
000712
000000

6%:

175704

175672
175664

8%:
9%:

7%:

5%:
(NT:

908

909
910

004326
004330

104020
000002

004324

N —2

004274
004276
004302
004310
004316

——, s OO0
N = OONNON
PONI AN — e — P
NNNO
S NO~N

903
9064
905
906
907

004256
004264
004246

N NNV
N — Ny

;ROUTINE

900
901
902

001001

000176

00'202

000042

000046

004370

175606

000200
000007

022737
001023
104000

004370

004370
004370

001202

¢3

#110,R0
7%

B8R

T0 CHECK

(MP

BNE

TYPE

sBRANCH

(NT

(RS)+
(SP)+,R0
RS

FOR

“G BEING

a3TKDBR, TAP1

NOT

;ONLY 6 (HAR'S PLEASE

JNEXT

CHARACTER

;WAIT FOR READY
JTYPE

<LF>

;WALIT FOR READY
JNEXT

CHARACTER

:WAIT FOR READY
;ADJUST

;RESTORE RO

TYPED

;BRIF

CONTENTS OF

#SWREG,
SWR
FAJAG

JACTIY?

YES
sCLEAR "EMP AREA

JFETCH THE BUFFER
;STRIP OFF PAR]TY
SWAS 1T %G

#20C, TMP1
N7,1MpP1
1%

C(HANGE

;START OVER

#SWREG,
SWR
1%
ane2,ansb
1%
TMP1

(NTLU
RTI

;CHECK FOR 0-7 (8)

;SHIFT DATA
;INSET NEW (HAR

1S7
MoV
RIS
TYPE
M1

PAR]TY

;ECHO CHARACTER
;IS IT A *u
:BRANCH IF YES
JIS IT A <R
;BRANCH IF YESS

7%
2%
aTP{SR
6%
#12 ,371PDBR
aTPC3R
8%
aTPDBR
aTPCSR
9%

TYPE
$CTLU

JSTRIP OFF

#15,R0

8EQ
BR
1S1B
BPL
MoV
1818
BPL
(LR
1518
8PL

BI(B
(MPB
BNE

(NTtuu:

#200,R0
RO,3TPDBR
#25,R0

(5)
(5)
(5)
RO, (5)

MOvB

1%:

000176

a81KDBR RO

ASL
ASL
ASL
BISB

KBDINYT:(MP
BNE
(MP
BEQ
(LR

JROUTINE

V04332
004340
004342

#60,R0

DEC

175712

000012
175676

PAGE

BI(B

8118
BNE

004254
004176
004200
0064204
004206
004214
004220
004222
006226
004232
004234
004236
004240
004242
004244
004246
004250
004252
004254

08:37

SEQ 0018

175772

NS~

862
863
864
865

DATA T1SI1S
?g(agl
23-0uL-79

;NOP
;60 CHANGE
SEX1T

SWREG(LOC

176)

0 oMt
PN

D ALA 1STS

¢3-JuL=-79 °5:08
013111
004537
000176
0i2120
000006

004356
004360
004362
004364
004370
004372
004400
004402
004410

022737
001403
013777
000002

004412
004416
004422
004430
004436
004440
004442
004444
004452
004460
004464
004470

OO0 OO0O0OOO
=4 ek et = NI ONY 2 o —a
OMOMNMRTLNIO
oM NN
(e Ko S NENTo S 3 N NTNN
N

004344
004346
004352
00435¢

PACY I

30A(1052)

26-JUL-79

N NNNNO NN

o WANWWNNNO
O NN S

PAGE 19

6
SEG

$SWUREG
J3R
SUREG
:VILUE

005112

104000

013120
004537
000000

08:37

RS, DA(NY

;CONVERY

10 ASCII

T1YPE

004076

000007

004254

004370

174572

000006
000004
004442
177777

MP1:

FAJAG:

SUSWRR:

000004
174544

SVALUE
JSR
0
(mp
BEQ

MoV
R11

Mov
MOV
MOv
(mp

BEQ
8R

000176
000174
000004
000006

001202
001204

cmp
MOV
MOV
MoV
Mov
RT]

5.RELD
7 ,(NT
FAJAG
TMP1,aSuR

ane,-(sSPj

o¥&,~(SP)
AR I
#-1,354R

2%
3%

(SP)+,(SP)+
#SWREG,
SWR
#DISPREG,DISPLAY
(SP)+ 304
(SP,)+
an6

sGET

;PUT

THE
1T

TMPY

nERE

;CHANGE

JSAVE

CONTENTS

SWREG

VECTORS

;SET UP FOR TIMEOUT

;REFERENCE

HARDWARE

JADJUST STACK

;POINT

SOF TWARE

SWIT(H

SWITCH

;POINT TO SOFT
sRESTORE VECTORS

REG

DISPLAY

REG

oy,

CIDMBOMG DMYY
(10MBD P

DATA

MACYIY
23=-JuL~-79 15:08

TSTS

30A€1052)

999
1000
1001

LINES.

THE

DELAY

175046

DLYXMT:

(=] o o

O
— N -~
N a O yOWwm

OO (=) OO o

NOP
(LR
"oV

175026
004524
005200

10$:

JSR
OPEN

#CAT ,@BASREG
7,98 1DENT
a(SR
(5)+,10%
5.3#BMOVE

ggTBUF

001600
005200

CLR

JSR

TUMTAB
TUMTAB+1

177
JSR

005200

000006

TUMTAB
(NTTAB
16.
CLR

JSR
LNOBUF
1599.

002446

(Mp

BNE
JMP
Mov

SNNNNNNN

007062
001600
001552
005426
001554
005620

001572

Mov

001560

002446

NO N~ —

006666
010101
000001
002140
002140
~

NOP
MOV
JSR

a¥TUMTAB

5 .a#BMOVE

FOR

THE

TEST

IS SUPPLIED BY

5 .a#BMOVE

a# L NOBUF
5.3#BMOVE

o
(=2

005222

2%:

001440

001375
062737
006337

000002
001566

005760

001440

103361

1%:

002140
is.

sGFT MESSAGE ADDRESS
sLOAD TUTPUT BUFFER
;WITH DATA 10
;BE TRANSMITTED
;CLEAR

TUMBLE

;TABLE

(200

:CLEAR (HARACTER C(OUNT

L)
PRG3A
(5)+,%4

NTUMTAB,a#TTPTR

TARLE

SCLEAR ALL
SLINE'S INPUT

;BUFFERS

#6,PRGNUM

;(16.

;GET

BUFFERS OF

# OF

100.

(HARS.

;INITIALIZE

TUMBLE

LINE

JMP

PRG1A

;RETURN

PROGRAM

MOV
NOP

LINE, %0

;LINE
;NOP

10 RO

#BIT12+BIT6+BIT0,
(SR
#1,30LINB]T
SfLINE

JSR

5.aMXM11D

(mp

246,WiT(0)

ASL

LINBIT

-64.

BNE
ADD

B((
151

;SET

:ON LINE

(ODE

& GO BITS

;TRANSMIT
# AS

BEFORE

TABLE POJINTER

;GET RECEIVER VECTOR ADDRESS
;LOAD RECEIVER VECTOR
;AND PRIORITY LEVEL
;LOAD TRANSMITTER VECTOR
AND PRIORITY LEVEL
:RUNNING PROGRAM (?

MOV
MOV
(LR

EAC(H)

CHARACTERS TO TRANSMIT

;TRANSMITTYING ON NEXT

afCLKINT, 2!
FRINT,(1)+
SMCLKLVL, (1)
FTINT, (1)«
SNXMILVL, (1)¢
PRGNUM

THE

# ON EACH L INE

sNGY

MOV
MOV
Mov
Mov
MOV
187

BEQ
174652
001566

;BEGIN TEST
JSET UP BASE REGISTER
sTRANSMIT LINE

;BYTES)

LNOBUF +1

177700
P

993
994
995
996
997
298

004676
004702
004706
004710
004714
0064716
004722
004724
004732
006736
004740

» OWWVNNO
=
NN WD

992

004616
004624
004630
004634
004640
004644
004650
004654
004656
004662
004670

001400
005024

007526
005200

990

004502
004506
004510
004514
004520
004524
004526
006530
004532
004536
006542
004544
004546
004550
004554
004556
004560
004562
004566
004572
004574
004576
004600
004606
004610
004614

000240
012777
004737
000240
005077
012537
004537
000000
007362
000100
005037
004537
001600
001601
000177
004537
001600

G976
977
978
979
980
981
982
983
984
985
986
987
988
989

004472
004474

OO0V OO0O0O0O0OOOTCOOOT

971
972
973
974
975

sCALLING JSR INSTRUCTION. DATA 1S (HECKED AFTER ALt
SLINES HAVE FINISHED TRANSMITTING.

960
961
962
963
964
965
966
967
968
969
970

PAGE 20

;SUBROUTINE TGO TRANSMIT ON ALL LINES WITH A DELAY BETWEEN TRANSMITTING

:ON SUCCESSIVE

958
9%9

08:37

946

947
948
94,9
950
951
992
953
954
955
956
957

24-JuL-79

64 (MARACIERS

SPECIFIED

IN ADDRESS

LINE

:WA]T FOR THE WORD COUNT TO DEC 1O TME

2%
#2,LINE

;CORRECY VALUE BEFORE STARTING NEXT
SFNRA NEXT LINE NUMBER

1%
w(1(3)

SSTART NEXT LINE
SWALT FOR LAST LINE

SSHIFY

LINE

BIT

10 FiN]om

L INE

(/DMBDO DM11
(ZDM8O P

PMACYIY
25-JuL-79 15:08

004744
004746
004754
004760
004762
004770
004772
004776
005002
005006
005010
005012
005014
005020
005022

174556

30A(1052)

26-3UL-79

08:37

176566

118

002122

174540
1745%6

BNE
Bil

005320

5¢:

~ MW

~ VN~
O O O

NNNNI IO

~ NNNNNONOND
NN

W WO NN
O et wn

NN
) — g

001375
000240
000207

006037
005302
001356

001566
000002
001566

001566

001400
001440

1%:

cMALT FOR RECEIVER 1G RECEIVE

MoV

SBAR,RCVDAT

sALL

TRANSMITIED DATA

;GET

AND

BNE

8EC
(LR
(LR
(LR

4%
YRTDAT
a(SR
8BAR

B8R

cmp

7,80 CHKDAT
(6)+,(6)+

NOP
JSR

002140

174440

;OCTAL

OACNv:

005176
177770
000060
000007
005176
005176
005176

18:

005176

2%:

005200

104013

BMOVE:

;GET
;GET

1TS LINE NUMBER (CRLF

LINE
LINE

NUMBER 0
BIT

TO ASCI]

CONVERT ROUTINE
3(5)+,2%
(5)¢,%1

(5)+,%2
2.1

MOV

29,23

ADD
MOVB

#60,%3
23.-(1)

ROR
ROR
ROR

2%
2%
2%

#177770,%3
¥7,2%

} ¥4

RSTREG

RT1S

JSUBROUTINE

10O MOVE

OPEN

SAVREG

SUFICIENT

XX CRLF),

;LOAD WORD COUNT
;SET BAR BT

SEXIT

BIC

.LOAD CAT

MOV
ADD

(LEAR

;G0 TEST DATA
JRESET THE STACK

RTS

DEC

000205
000000

DID NOT

BAR

;FORM NEXT

LINBITY
1%
aBAR
2%

BNE

104014

sERROR.

#2,1 INE

SAVREG
[0}
MOV

(ONTENTS

. SCOPE

-6,uCT1(2)
LINBIT,a3BAR

ASL
BC(
1S+
BNE
NOP

BAR

[S CLEAR

SEXIT TEST

afL INE
#1,afLINBIT
LINE, X2
IC(2),CAT(2)

BIC

005170
005172
005174
005176

TEST

sBRANCH 1F

TO TRANSMIT ON EACH LINE

ADD

’$:

005176

(LR
MOV
Mov
MOV

MOV
BIS

174460

(SR

#1,R0

:SUBROUTINE
IDENT:

;CLEAR ODD BYTE OF

ADD

SCOPE

177772

3s
#177600,3(SR

ERROR1

002140
200001
002140
012706

PAGE 21

SEQ 002

002124

w WNI~OOOOOOIN—

005142
005144
005152
005156
005162
005166

000001

o g2l lelololele] o
o OOC
N
s
o

005024
005030
005036
005042
005050
005056
005064
005072
005076
005100
005104
005106
005110

177400

(=l =d=] —_,OQOOQOOO—
[=1e¥ P
L et Ot
O
oo n DMV
O NN N
o O ~N.M~NN~NONVLNO

[V IV TE TV IV IV TP

vy v

DO NO N W=D
O

1002
1003

DATA 1STS

LINE

NUMBER

JFORM NEXT LINE B]T
;BRANCH [F NOT DONE
;WAIT FOR BAR 10 CLEAR

SUBROUTINE

;SAVE REGISTERS ON THE
sGET OCTAL VALUE.
;OGET DESTINATION ADDR.

sGET CONVERT COUNT.
:DEVELOP ADDR TO STORE

STA(K

1ST

(MAR.

;1SOLATE LEAST SIGN]FICANT DIGIT.

;CONVERT DIGIT 10 ASCII,
;STORE ASCI] CHARA(TER,

;DONE ALL DIGITS?

;BRANCH IFf

;RESTORE

NOT DONE.

THE

;OONE. EXIT,

REGISTERS

A VARIABLE NUMBER OF BYTES,
:SAVE REGS.

TIME

012501
1
1

NONOO

0
0

1063
1064
1065

MACY'1

3-s0L-79 15:08
AN
=
NN

1062

005202
005204
005206
005210
005212
005214
005216
005220

TSTS

B aY L 1.V1
V1. V)

10%8

1059
1060
1061

DATA

OO =00

CZDMBDO OM1Y
(20mMBD P11

106014

000205

30A(10S¢)

24-JUL-79

08:37

PAGE 22

4
St0 0022

MoV

MoV
MOV
novB
DE(
BNE
RSTIREG
R1S

(5)4,2)
(5)¢,22
(5)¢.,23
(1)e,(2)e

;GET'FROM''ADDRE
SS
;GET''TO"'ADDRESS
;GET COUNT

:MOVE

BYIE

;DECREMENT COUNT
sBRANCH IF NOT DONE.

sRESTORE

;DONE

REGS.

EXIT

CIOMBDO OMYY

Cl0MBD.P11I

DATA TSTS

MACYIT

23%-JuL~-79 15.08

30AC1052)

24-JUL-79

0B8:37

PAGE

2‘
SEQ 0027

1066

1067

1068

1069
1070
1071
1072
1073

:SUBROUTINE TO TRANSMIYT DATA.

005222
0052264
005226
009232
005240
005244

000240
010046
013700
012760
012560
053737

1076
1075
}8;9

005252

053777

1078
1079
}839

005260
005262
005264

012600
000240
000205

1082
1083
1086
1085
1086
1087
1088
1089
1090
1091

005266
005270
005274
005300
005302
005306
005312
005314
005316

010046
005037
013700
000261
006137
162700
100373
012600
100207

1092

1093
1094

1095

005320

005322
005%24
005326
005332
005334
005340
005344
005350

000240
005001
012702
005003
010337
012237
005337
005237

1105
1106
1107
1108
1109
1110
1111
1112
1118
11164
1115

005362
005370
005376
005400
005402
005406
005410
005412
005414
005420
005422

005424

116137
043737
104004
005201
020127
001360
005001
005203
020327
002745
104014

000207

1118
1119
1120
1121

005426
00% 30

000240
104013

}:;g

005354

001440
001566
001566

001400

117737

MoV
8IS
8IS

001562

174264

MOV
NOP
RTS

001566

002140
001566
000002

;SUBROUTINE

CHKDAT:
012626

002140

002142
002142
002142

174562

007362
002126

000100

000020

;SAVE RO ON THE STACK
GET LINE
;LOAD FIRST CHAR ADDRESS

(SP)+,%0

;RESTORE RO

SEXIT

IN CAT
(5)¢,WCTC0)
;LOAD WORD COUNT INTO LINE'S TABLE ADDRESS
SFLINBIT Q#BARIM;LOAD LINE POSITION INTO BAR ]MAGE
LINBIT,aBAR
;?YAR} ;??NSHITTING ON LINE SPECIFIED

1%:

002122

002124
002124

2%:

TO CHECK

SAVREG

NOP
CLR
MOV
CLR
MoV
Mov
DEC
INC

MOV8B

MOVB
BiC
DATCHK
INC
CMP
BNE
(LR
INC
cmp
BLT
RSTREG

RTS

SUBROUTINE CALLED BY

20.-(SP)
2FLINE X0
#OUTBUF ,CAT(0)

;SUBROUTINE 10 FORM LINE BIT
GILINB: MOV
20,-(5P)
CLR
afLINBIT
MoV
SFLINE .20
SEC
1$:
ROL
LINBIT
SUB
¥2,%0
BPL
1%
MoV
(SP)+,%0
RTS
7

104013

1096
1097
1098
1099
1100
1101
1102
1103

1106

002140
007362

;JSR S,XMITD
XMITD:
NOP
MOV
MoV
MOv

sIN LIN

POSITION WITH THE LINE #
;SAVE RO ON THE STA(K

sGET LINE
;SET CARRY
JSHIFT LINE BIT
;SUBTRACT

2 FROM LINE

IN LINE

NUMBER

;RESTORE RO
SEXIT

TRANSMITTED DATA

:SAVE THE REGISTERS ON THE

3t
#INTAB,X2
23
23,30 INE
(2)+,98LINBUF
L INBUF
L INBUF

9L INBUF ,@#RCVDAT

STA(X

;NOP
;CLEAR CHARACTER COUNT
;GET ADDRESS OF LINE'S INPUT BUFFER
;ADDRESS ;GET LINE COUNT
;MOVE LINE # 10 LINE
JGET LINE'S INPUT BUFFER ADDRESS
sSUBTRACT 1 FROM LINE'S INPUT BUFFER ADDRESS
s INCREMENT LINE'S INPUT: BUFFER ADDRESS

;GET RECEIVED CHARACTER

QUTBUF
(1) ,XMTDAT:GET TRANSMITTED CHARACTER
S¥CARMSK,XMTDAT ;CLEAR UNTRANSMITTED BITS
; COMPARE CHARACTERS
%1
JINCREMENT CHARACTER COUNY
X1, 864,
;ALL CHARACTERS BEEN COMPARED
2%
;60 CHECK NEXT CHAR., 1F NOT
13
JCLEAR CHARACTER COUNT
1 3]
; INCREMENT LINE COUNT
13,010,
JALL LINES CHECKED?
1%
sBRANCH IF ALL LINES NOT (HECKED
;RESTORE REGISTERS

JRECEIVER INTERRUPY
RINT:
NOP
SAVREG

SEX1T

SUBROUTINE

SERVICE ROUTINE
;BEGIN
JSAVE THE

REGISTERS ON THE

STAk

O DM
P11

DATA TSTS
MACYI1
23-JuUL-79 15:08

005432
0056436
005442
005644
005446

005450

013701
011137
100410
104003
000454

011137

005454
005456
005460
005462
005464
005466
005474
005500
005502
205510
005512
009514
008520
005524
005550
005536
005540
005546
005550
005554

001451
100402
104003
000425
005011
0462737
113702
010204
016237
006202
005003
116203
105262
060337
113777
000240
016437
003405
010437
104015

005556
005560

000005
104012

005562

005566
005570

022701

001002
012701

005574
005576
005600

005721
000724
042777

005614
005616

000240
000002

005620
005622
005630
005637
005634
005642
005646
005650
005656

000240
032777
001404
104003
042777
005777
100003
042777
000002

005606
005612

010137
104014

30A(1092)

24-4uL-79

CO01564

1%:

1606400
0015565

001564

012626

002142

012666

002142
(0015¢4

176404

001440

002122

3%:

002124
;TYPE

001776

4%:

001576
000200

PAGE 24

2
SEQ 002«

001572
001564

001572

0B:37

5¢:

17373%

6%:

MoV
nov
Bnl
ERROR
BR

BEQ
amn]
ERROR
BR
CLR
8IC
MOvB
MoV
MoV
ASR
CLR
MOVB
INCB
ADD
mMove
NOP
MOV
BLE
MoV
ERROR1

QUT

SHOWS

RESET
SCOPE
cMp

BNE
MOV

060000

173712

060000
173674

173700

100000

173664

%2%:

(1),38TTDAT

;GET TUMBLE TABLE FNTRY

c$
2%

;GO TG EXIY IF NO DATA ENTRY
;BRANCH IF VALID DATA ENTRY
JERROR! NO VALID DATA ENTRY INDICATOR

s
()
;CLEAR TUMBLE TABLE ENTRY
#160400,a#TTDAT ;CLEAR ALL BUT CHAR. & LINE #
TIDAT+1, %2
:PUT LINE # IN R2 (LINE WILL BE IN LSH)
%2.%4
INTAB(2) ,3#LINBUF
;GET LINE'S INPUT BUFFER ADDRESS
X2
JSHIFT LINE #
%3
CNTTAB(2),23
;GET LINE'S RECEIVED CHAR. COUNT
CNTTAB(2)
; INCREMENT CHARACTER COUNT
X3,LINBUF
;FORM ADDRESS WHERE CHAR. IS 10 Bf STORED
TIDAT,3LINBUF
;STORE CHMAR. IN LINE'S INPUT BUFFER
,NOP
WCT(4) ,RCVDAT
;GET TRANSMITTERS WORD COUNT
43
;BRANCH IF WORD COUNT 1S O OR NEGATIVE
%4, XMTDAT
;GET LINE # OF FAILING LINE
;ERROR' INCORRECT WORD COUNT IN
FAILING LINE

STUMTAB+176,%1

151
BR
8IC
MOV
RSTREG
NOP
RT1]

NOP
BIY
BEQ
ERROR
BIC
181
BPL
BicC
RT1

;GET TUMBLE TABLE POINTER
;GET TUMBLE TABLE ENTRY
sBRANCH 1F VALID DATA ENTRY
;ERROR! FALSE INTERRUPI
JEXIT

Mnov

;TRANSMITTER

TINT:

AFTIPIR, XY
(1), TT1DAY
2%

bt )
#TUMTAB-2,%1
(1)+
1%
#B117,3CSR
%21,TTPIR

AND

FAILING LINE'S

;STOP THE DM
SEXIT TES,

;1S THE

TUMB_E

WORD

COUNT

TABLE POINTER AT

:THE END OF THE TABLE
;RESET POINTER

: INCREMENT POINTER
;G0 CHECK NEXT ENTRY
;CLEAR PECEIVER DONE FLAG

. SAVE PGINTER
JRESTORE THE REGISTERS
JEXIT SERVICE ROLTINE

INTERRUPT

SERVICE

ROUTINE

:BEGIN
#BIT14+BIT13,8CSR;
TEST ERROR FLAGS
1%
BRANCH IF NO ERROR FLAGS
;ERROR' ERROR FLAG S SET
#BIT14+BIT13,a(SR;
CLEAR ERROR FLAGS
8(SR
;TEST READY FLAG
2%
;BRANLH IF READY IS C(LEAR
#B1115,3(SR
;CLEAR READY FLAG

THE

MBDO DMI!

DAIA T1STS

2%-JuL-79 15:08

005660
205662
009564
005672
005676
005702
005710
005714

005720
005722
005724
005726

MACY11

30A(1052)

24-JuL-79

PAGE 25

4
SEG vuef

PRGO:

005720
002014
002506
005720
002014
002540

08:37

002016

002010

PRGOA:

PRGOR:

T(PE
PRGOM
MOV

CLR
JAP
MmOy
CLR
JHP

#RT0,KSTART
RINNO
SRSET
#RT0,KSTART
RINNO
GETRDY

:GET ADDRESS OF FIRST
;CLEAR ROUTINE #

TEST

;GET ADDRESS OF FIRST TEST
:CLEAR ROUTINE NUMBER
:GO AND START PROGRAM

:"..""""."""""".".""""'..'"'.""""."

R10:

'."'""."'Q"

0
RT

;ROUTINE
IADDR OF

RTOA1

;SCOPE

000000

# 0
NEXT

.
.

ROUTINE.

:1TERATION COUNT

X=X+

ENTRY

POINT,

:t"tt."""t""l""""""i""'l'l""'t""t""

't"'t.'t"t""t'

;TEST

005730
005734
005736

005740
005742
005744
005746

004537
013743
000000

004472

TO TRANSMIT

JNEXT LINE.

RTOA:

JSK
MSG1

ON EACH LINE

WITH A DELAY BEFORE

5,DLYXMI

:GO DO TEST.
sTRANSMIT THIS MESSAGE

000001
005760
000002
005750
000001

RT1:

STATING

THE

;DELAY THIS MUCH BETWEEN LINES

;ROUTINE

RT2

:ADDR OF

2
RTTA1

I T

’

ROUTINE.

sITERATION COUNT
;SCOPE ENTRY POINT,

X=X+

:!l'i"t"""ttttt"'t""""'"'t"i".i'tl""t'.l'tt'.

l.l""!'t't'l

005750
005754
005756

004537
013743

004472

;TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE
INEXT LINE.

RTT1A:

177740

JSR
MSG1

5, DLYXMT

STATING THE

;GO DO TEST.
:TRANSMIT THIS MESSAGE &

-32.

:DELAY THIS MUCH BETWEEN LINES

;tt""tl"'l'ti"""t"""i"""""'lti..l"'llit't"'t"ll.'l'Q""

005760
005762
005764
005766

000002
006000
000002
005770
000002

RT2:

2
RT3

mzA1
X=X+

:ROUTINE # 2
:ADDR OF NEXT ROUTINE.

.
.

:SCOPE ENTRY POINT.

; ITERATION COUNT

DOW VO

WP AUNIPL NI PO PO NUN) — —

—

W~ O OB~

;tt"l't'i"'t'""tl"'i"l"l"""""""'Q"ill""'l'ttt't'il'tttl'

005770
005774
005776

004472

JJEST
JNEXT

RT2A:

TO TRANSMIT
LINE.

JSR
MsSG1

ON EACH LINE WITii A DELAY BEFORE

5.,DLYXMTY

STATING

THE

;60 DO TEST.
;TRANSMIT THIS MESSAGE &

-48.,

sDELAY THIS MUCH BETWEEN LINES

:Ql"'l'f""'.'l""'."'"""""".'I'""".".".l'l""'l"""l'l

006000
006002
006004
006006

R13:

;ROUTINE # 3

RY4

;ADDR OF

2
RT3A
X=x+1

ROUTINE.

;ITERATION COUNT
;SCOPE ENTRY POINT,

.
.

;."'.'."'."""""""'.l"."l""."...'."I.l'l."'.'l'."""ll'l

006010
006014

004537
013743

004472

JTEST
JNEXT

RT3A:

TO TRANSMIT
LINE.

JSR
MSG1

ON EACH

5.0t YXMY

LINE

WITH

A DELAY

BEFORE

STATING

.60 DO TEST,
;TRANSMIT THIS MESSAGE

THE

unmunun»unm:~b:\b:\b:\bt\,wfiszgyvnnunnv
UMFLANJ—*CNOOD*QO*thkflhu—dC)(HD\QONIJ‘VNU‘*CD{N"M

AT LY IR 1 VT VT ST Y N NN e
DL L L N NN
000‘0000000@0\:

lalal

—.-‘—.—“—.d—.—.—.—.—‘_.
—n
mn
s
ek
s
et
—

b e
e

006916

30AC1052)

24-JuL-79

177710

il el all ekl T
el il
il sl
el ekl el
Al

PAGE 26

-56.
AR

006(20
006022
006024
006026

08:37

SE0 0026

000004
006040
£00002
006030
000004

R1G:

¢DELAY THIS MUCH BETWEEN LINES
Ry

sROUTINE

RTS

:ADDR OF

RTLA1
X=X+

;SCOPE

YTM

NEXT ROUTINE.

sITERATION COUNT
ENTRY

POINT.

:'..t""l"""'"'t"t'l'"'"""""!'..""""

'.l"".""'.""l"

:TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE

JNEXT
RT4A:

006030
006034
006036

006040
006042
006064
006046

LINE.
JSR

5,DLYXMY

MSG1
-60.

;60 DO TEST.

sTRANSMIT THIS MESSAGE &
sDELAY THIS MUCH BETWEEN LINES

:'!""'.""'.'I'!'."""""'."'"'."."'."

RTS:

'.".".""""'"l""

;ROUTINE ¥ S

RT6

;ADDR OF

000095

ROUTINE.

s ITERATION COUNT

R’I‘}A.|

;SCOPE

X=X+

ENTRY POINT,

:lllt"'lf."""'i"ttt'l"'t""'llt'."t't"tt"'t"""

I"'t"'t'll'i

:TEST

006050
006054
006056

0046537
013743
177702

TO TRANSMIT

JNEXT LINE.

RTS5A:

JSR

ON EACH

LINE

WITH

5.DLYXMT

MSG1

A DELAY

BEFORE

STATING

.60 DO TEST.

:TRANSMIT

-62.

THIS MESSAGE

THE

;DELAY THIS MUCH BETWEEN LINES

:'t"""'."""""""""'t'"""""'Q'fl"."llttt't""'t'

006060
006062
006064
006066

000006
006100

l'l'l'l'

RT6:

000002

;ROUTINE

R17

¥ 6

;ADDR OF

NEXT ROUTINE.

;1TERATION COUNT

R76A1
X=X+

:SCOPE
e

ENTRY

POINT.

.
I

InmnmmmmImmmmm

TMY

JTEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE

JNEXT
RT6A:

006070
006074
006076

LINE,
JSR
MSG1

5.0LYXNT

;60 DO TEST.
s TRANSMIT THIS MESSAGL

-63.

006100
006102
0061C4
006106

RY7:

;DELAY THIS MUCH BETWEEN LINES

7
RT10

;ROUTINE # 7
;ADDR OF NEXT ROUTINE.

.
’

RT?A]

sSCOPE ENTRY POINT,

;1 TERATION COUNT

X=X+

et el

il e

et e

A AT A LA L LA 1V 1, Y LY, V1L¥1, 87,91 V7,V ¥ SIS IA
on VOB OB OB OB~
N~~~ NN N
P AL WO =TDOBNONE
N —O 00O~

e el

DO DMI1 DATA TSTS MACYIT
P11
23-JuL=79 15:08

;t'.l."""""t"""""Q"""."""'.."'.l."'.I'tl'lli.'l'll""'

sTEST
JNEXT

006110
006114
006116

RT7A:

TO TRANSMIT
LINE.

JSR
MSG1
-b4,

ON EACH LINE

WITH

5.DLYXMT

A DELAY

BEFORE

STATING

THE

;60 DO TEST.
;TRANSMIT THIS MESSAGE &
SDELAY THIS MUCH BETWEEN LINES

:l'ttt"t""t't'ttt't0't't't'l"'ttl'tlllt'l"flll".t't!l'l'ittlt'l.'!t'

006120
006122
006124
006126

RT10:

19
RTTY

;ROUTINE # 10
;ADDR OF NEXT ROUTINE.

RT10A
X=x¢1

:SCOPE

000010
M

AAAR

4
.

;ITERATION COUNT

ENTRY POINT,

.
N

NN R

NN}

{

!l OMBDO OM11

( 10MBD PN
1287
1288
1289
1290
1291
1292
1293
1294
1299
1296
1297

1298
1299
1300

—h‘—‘—hfi—‘—‘—”‘—‘—hfl—‘—‘—h‘—‘—hfl—‘—hfl—‘—“fl—‘—“——‘—L“_‘—hfl
A AR L A L A L L N L
(VI IV RV IV T IV IV
TV TP T e (Y AV AV IV IV
VIV
oyY
| 2l Al QR V. 1V 1V IV TPV TPV TN WWMMNORSPURNONURNUPRONUPUNG
— 5 s e bt et ey s (=1
Ve OO
NO Ny
— OCOD®NO NI WV —=OOW
O NI WPy O O

1301

DATA TSTS

MACYI1

23%-JUL-79 15:08

006130
006134
006136

004537
0146044

006140
006142
006144
006146

000011
006160
000002
006150
000011

006472

30A(1052)

26-JUL-79

08:37

PAGE 27

3
SEQ 00¢7

STEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE
SNEXT LINE.
RTI0A:
JSR
5.DLYXNT
;GO DO TEST,

NSG2

177740

sTRANSMIT

-32.

STATING

THIS MESSAGE

THE

sDELAY THIS MUCH BETWEEN LINES

:..'I.'I.""C'."l.""'..'""""""'..'..

RT1%:

.""".'."""".""'"'

11
RT12

sROUTINE # N
:ADDR OF NEXT ROUTYINE.

.
.

Rlll:

;SCOPE ENTRY POINT,

sITERATION COUNT

X=X+

:'l’lt.'."’.""'tttt't""t"'t""."."lil".'l

l'."t.".""!"""'

006150
006154
006156

004537
014044

006160
006162
006164
006166

000012
006200
000002
006170
000012

004472

:TEST
sNEXT

RT11A:

TO TRANSMIT
LINE.

JSR
MSG2
~48.

177720

ON EACH LINE

5.,0LYXMY

WITH A DELAY BEFORE

STATING

THE

;G0 DO TEST.
sTRANSMIT THIS MESSAGE &
;DELAY THIS MUCH BETWEEN LINES

:..""'.""""t't""'t"t"""'*""""""..".

"'"'l"".'.""'

RT12:

12
RT13

;ROUTINE ¥ 12
;ADDR OF NEXT ROUTINE.

2
RT\Z?

.
.

JITERATION COUNT
:SCOPE ENTRY POINT.

X=X+

:""Q"""""l""ttt"l'tt'"'t"tt't"'t.tt't"t"'t"'t

"t'lttlt'tt

STEST

006170
006174
006176

006200
006202
006204
006206

004537
014044
177710

004472

TO TRANSMIT

INEXT LINE.

RT12A:

JSR

MSG2
-56.

ON EACH LINE

5,DLYXMT

WITH A DELAY

BEFORE

STATING

THE

;60 DO TEST.

:TRANSMIT THIS MESSAGE &
:DELAY THIS MUCH BETWEEN L INES

:".."""""'""'""""'1"""""."'I"l.tt"""".fi

000013
006220
000002
006210
000013

"tt"l'!.t

RT13:

;ROUTINE # 13

RT14

:ADDR OF

RTIB?
X=X+

:SCOPE

ROUTINE.

:1TERATION COUNT
ENTRY

POINT.

:"ll""i"l't""t""""t"!'"'t'fi"t'l"'tt'!tl't""t

t‘tttt"!""

006210
006214
006216

004537
014044
177704

006220
006222
006226
006226

000014
006240
000002
006230
006014

004472

¢TEST
JNEXT

RT13A:

TO TRANSMIT
LINE.

JSR
MSG2
-60.

RT1&:

ON EACH LINE

S.DLYXMT

14
RT15

R“‘?
X=X+

WITH A DELAY

BEFORE

STATING

THE

;60 DO TEST.
:TRANSMIT THIS MESSAGE &
;DELAY THIS MUCH BETWEEN LINES
R

;ROUTINE # 14
;ADDR OF NEXT ROUTINE.

.
'

;SCOPE

JITERATION COUNT

ENTRY POINT.

;lt'l"t""""ii'.ttl"t'it"""'i"""'l'.ll"'lt"""'l"'i"'l'll

006230
006234
006236

004537
014044
177702

006240
006242

000015
006260

004472

STEST TO TRANSMIT ON EACH LINE
INEXT LINE.
RT14A:
JSR
5, DLYXMT

MSG2
-62.

WITH A DELAY

BEFORE

STATING

THE

:GC DO TEST,

;TRANSMIT THIS MESSAGE &
:DEI
AY THIS MUCH BETWEEN LINES

;"'."""'""l""""i"I""Qt"""'fi""l!'!"l."'.lll.tltl'l!"'

RT1S:

15
RT16

:ROUTINE # 15
:ADDR OF NEXT ROUTINE.

.
.

(IOMBDO OM11
(20mB80 A1

DATA TSTS

006244
006246

0me\u~NJ—-Chocl~40wfil*uuv-a<><)

L0 LA L

L W

M NN

O%!OW}o%>owaunnuunufizsa:3n#

1348

23=-JuL-79 15:08

24-JuL-79

004537
0140446
177701

PAGE 28

SEQ 0028

JITERAT{ON COUNT

004472

:TES}

I? gRANS"]T ON EACH LINE WITH A DELAY BEFORE

SNEXT

RT15A:

CINE.

JSR
MsG2

S,DLYXMT

000016
006300
000002
006270
000016

RT16:

TTTrTr

STATING THE

;60 DO TEST.
;TRANSMIT THIS MESSAGE

~-63.
A

:SCOPE ENTRY POINT,

X=X+

MALAAL LRSS

006260
006262
006264
006266

08:37

RT}S?

;DELAY THIS MUCH BETWEEN LINES

16
R117

AR R

;ROUTINE # 16
;ADDR OF NEXT ROJTINE,

’
.

;SCOPE

;1TERATION COUNT

Rle?
X=X+

ENTRY

POINT,

:"'t""'t""t't"i'tt'l'ttl'"'l"""t'l.'t'!'

ttt't"tt"t't!'tt""'

006270
006274
006276
006300
006302
006304
006306

004537
014044
177700

004472

;TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE
INEXT LINE.

RT16A:

JSR
MSG2
-64.

5,DLYXMT

;60 DO TEST.
;TRANSMIT THIS MESSAGE &
:DELAY THIS MUCH BETWEEN LINES

:"'t.""'"""""t'i"""ii"'"*""t"'t'tt'

000017
006320
000002
006310
000017

ttt""'tl"""""t'

RT17:

17
RT20
2
RT]??

;ROUTINE ¥ 17
;ADDR OF NEXT ROUTINE.

.
.

:SCOPE ENTRY POINT.

:1TERATION COUNT

X=X+

‘

;t'tfit"t'tti'ft"lt"'t't"'ttt"il.l'ttttt'ttt't*.tttl"t"

ttt""tltt'

006310
006314
006316

004537
0146144
177720

004472

sTEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE
JNEXT LINE.

RT17A:

JSR

006320
006322
006324
006326

000020
006340
000002
006330
000020

5.0LYXMT

MSG3
-48.

;G0 DO TEST.

s TRANSMIT THIS MESSAGE &
;DELAY THIS MUCH BETWEEN LINES

RT20:

20
RT21

;ROUTINE # 20
;ADDR OF NEXT ROUTINE.

2
RTZO?

.
.
.
.

;ITERATION COUNT
;SCOPE ENTRY POINT,

X=X+

:tl""""I"'""""""t"""t""lltit'i'!'lll'lll.tl'tt""'lt't.'

;TEST TO TRANSMIT ON cACH LINE WITH A DELAY BEFORE STATING THE

04537

—_0O0

006330
006334
006336

15144
77704

004472

JNEXT

RT20A:

LINE.

JUSR
MSG3
-60.

222

Lt A L

30A(1052)

000002
006250
000015

L A

A A L U L LA

N N

oo 00 QB O3 0o O 00 00 0D ~y NNNNNNNY YO
oo ~NO NS
T — OO WO
N WO =C PO

368

006250
006254
006256

MACYI1

006340
006342
006344
006346

000021
006360
000002
00€350
00C021

R121:

5.DLYXMY

;60 DO TEST.
s TRANSMIT THIS MESSAGE &
sDELAY TH]S MUCH BETWEEN LINES
R

21
RT22

X=X+

006350
006354

004537
014144

004472

RT21A:

TRANSMIT

JSR

MSG3

IImImmmmn

ON EACH LINE

5.0LYXMY

;60 DO TEST.

S TRANSMIT

.
.

WITH A DELAY BEFORE

*
.

ROUTINE.

;ITERATION COUNT
:SCOPE ENTRY POINT.

JNEXT LINE.

;ROUTINE # 21
sADDR OF NEXT

2
912‘?
JTEST

STATING

THIS MESSAGE

THF

]

CIDMBDO DMT11
C 10MBD
. P11

1399
1400
1401

DATA TSTS
MACYI1
23=JuL-79 15:08

006356

006360
006362
006364
006366

30A(1052)

264-JUL-79

O08:37

PAGE 29

D
3EQ

177701

-63.

sDELAY THIS MUCH BETWEEN L INFS

:.'tt.."t"""t"t""'t""'tt't'l""'t't'

lt"t"'ltl"ttl

000022
006400
000002
006370
000022

R122:

ES E

RN ERE NN

22
R123

:ROUTINE ¥ 22
ADDR OF NEXT ROUTINE.

.
*

RTZZ?

;SCOPE ENTRY POINT.,

;1TERATION COUNT

X-X+

;"C'l'.ffl"'.t""'l""""tt""'t""'t't"'l"'.

't't"l'l"t"""'t

006370
006374
006376

006400
006402
006404
006406

004537
014144

;TEST
JNEXT

004472

RI22A:

TO TRANSMIT
LINE.

JSR
MSG3

177700

ON EACH LINE

S.,DLYXMY

WITH

A DELAY

BEFORE

STATING

THE

;GO DO TEST.
sTRANSMIT THIS MESSAGE &
;sDELAY THIS MUCH BETWEEN LINES

-64.

;tt."fit"'tt""t"'!"'tt't'titt""tt"ttt!'lit'tt

tit'tltt""tttt"t

000023
006420
000002
006410
000C23

R123:

23
R124

sROUTINE # 23
;ADDR OF NEXT ROUTINE.

*
.

RTZS?

;SCOPE ENTRY POINT.

sITERATION COUNT

X=X+

;t'l"'l'.tt't't""""'""""'t"'l."l"ltttt"t

'tl'tt"tlt'tt"t"'

:TES}

006410
006414
006416

004537
0146244
177740

006420
006422
006424
006426

000024
006440
000002
006430
000024

004472

SNEXT

RT23A:

T? ERANSHIT
LINE.

RT24:

006440
006442
006444
006446

000025
006460
000002
006450
000025

sTRANSMIT

004472

RT24A:

THIS MESSAGE

8§

;DELAY THIS MUCH BETWEEN LINES

sROUTINE

R125
2
RT?Q?

I I

# 24

TO TRANSMIT
LINE.

JSR

ON EACH

LINE

5,DLYXMT

MSG4

WITH

DELAY

.
*
.

BEFORE

;ADDR OF NEXT ROUTINE.
;1TERATION COUNT
;SCOPE ENTRY POINT,

X=X+

;TEST
JNEXT

STATING THE

:60 DO TEST.

-32.

004537
014244
177710

5,DLYXMT

MSG4
A

006430
006434
006436

ON EACH LINE WITH A DELAY BEFORE

InImnmmmmmm"TMTM

STATING

THE

GO DO TEST.

:TRANSMIT

-56.

THIS MESSAGE

;DELAY THIS MUCH BETWEEN LINES

:'tttt't't".t!t""'"t'tt""t"""'t"'tl't'li""lttltllt

l"t"ttttt

RT25:

25
RT26
2
9125?

;ROUTINE # 25
;ADDR OF NEXT ROUTINE.
:1TERATION COUNT
:SCOPE ENTRY POINT,

X=X+

.
.
.
.

;""""Q'lli"t'.tl"""i'""l!'l"'li"t't"tl"llit.tt.lt'li'ttl'lt

;TEST

006450
006454
006456

004537
014244

004472

TO TRANSMIT

JNEXT LINE.

RT25A:

177702

JSR
MSG4

ON EACH LINE WITH A DELAY BEFORE

5,DLYXMY

STATING

;G0 DO TEST.
sTRANSMIT THIS MESSAGE

-62.

sDELAY

THE

THIS MUCH BETWEEN LINES

;ltt'tt"t'ttt"l"t'ttt't"I!tltt!lt'tttlttttllttlttllttl!iit"t.!l.lt"

006460
006462
006464
006466

000026
006500
000002
006470
000026

RT26:

26
RYZ7
2
RYZb?

;ROUTINE # 26
;ADDR OF NEXT ROUTINE.

:1TERATION COUNT
;SCOPE ENTRY POINT,

X-X¢
M

[}

ALEEARAR

.
.

SRS

.
.
N

R N R

005

(ZOMBDO DM11 DATA TSTS HA(Y&I
CI0mBD. P
23-JuL~79 15:0
1495
1456
1457
1458
1459
1460
1461
1462
1463
1464
1465
16466
1467
1468
16469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479

1480
16481
1482
16483
1484
1485
1486
1487

1488
1489
1490

1491
1492

'493%
1494
1495
1496
1497
1498
1499
1500
1501
1502
1503

504
1505
1506
1507
1508

1509
1510

006470
006674
006476
006500
006502
006504
006506

004537
0146244

004472

30A(1052)

26-JUL-79

08:37

PAGE 30

Sea 0030
;TEST TO TRANSMIT ON EACH (INE
NEXI LINE.
QIZbA
JSR
S,DLYXMY

WITH A DELAY BEFORE

THE

;60 DO TEST.

MSGL

177700

STATING

sTRANSMIT

=64.

sDELAY

THIS MESSAGE

THIS MUCH BETWEEN LINES

'tcattt'tttt'tttanca'tt'tt'tttaa"t'ttt'tttt'tttnot

000027
006520
000002
006510
000027

't-c"'to-t'o'-'--'-.

RTZ?

27
R130

;ROUTINE
;ADDR OF

RTZ??

:SCOPE ENTRY POINT,

# 27
NEXT ROUTINE.

.
.
.
.

;1TERATION (OUNT

X=X+

..'t""".""'t""'i""t""""t"'t'tt'l'tt'.'t'

l't".i".t"l.".

006510
006514
006516

0046537
014344
177720

006520
006522
006524
006526

000030
006540
000002
00¢530
00€030

004472

;TEST
INEXT

RT27A:

TO TRANSMIT
LINE.

JSR

ON EACH

LINE

WITH

5,DLYXMT

MSGS

A DELAY

BEFORE

STATING

THE

;G0 DO TEST.

STRANSMIT

-48.

THIS MESSAGE

;DELAY THIS MUCH BETWEEN LINES

t"..""'l""t'""'tl'""'Q't""t'il.'t.t't't"

'lltt.ttlt"'ttttt't

RT30:

30
RT31

;ROUTINE # 30
:ADDR OF NEXT ROUTINE.

:1TERATION

RTSO?

.
.

COUNT

:SCOPE ENTRY POINT.

X=X+

;'l"'.'t."'t".li'!"'tl"lt""""".tt."'l."'

Q"'.tl't't'l"tl"tl

;TEST

006530
006534
006536
006540
006542
006544

006546

004537
014344

004472

JNEXT

RT30A:

TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE

LINE.

JSR
MSGS
-56.

177710

't'"'t"'t

000031
006560
000002
006550

RT31:

31
R132

004672

TO TRANSMIT

JNEXT LINE.
RT31A:
JSR

MSGS
-60.

.
*
.

ROUTINE.
SITERATION COUNT
;SCOPE ENTRY POINT,

X=X+

;TEST

006556

:ROUTINE # 31
sADDR OF NEXT

2
RT31?

000031

004537
014344
177704

;60 DO TEST.
sTRANSMIT THIS MESSAGE §
;DELAY THIS MUCH BETWEEN LINFS

;'I"""""""'l""i"'"""tl"""'tl'fi'I."tttlttt"tt

006550
006554

5,DLYXMT

STATING THE

ON EACH LINE WITH A DELAY

5.0LYXMT

BEFORE

.
ImIIImImMmMmmmIT T

STATING

THE

;60 DO TEST.
¢ TRANSMIT THIS MESSAGE §
JDELAY THIS MUCH BETWEEN LINES

tt'l"t""tttt"l!!Qt""ttt'tlttt'!'tl'tlt!tt'lltlt'lttttilttltttlittt

006560
006562
006564
006566

000032
006600
000002
006570
000032

R132:

32
R133
2
RTSZ?

;ROUTINE # 32
:ADDR OF NEXT ROUTINE,
;1TERATION COUNT
;SCOPE ENTRY POINT,

K=X+

.
.
'
.

:I"t""""‘l"'t"'"'l"t'l""""'tt't"t"'l't'!!'l"'l'."!ll!ltl

006570
006574
006576

004537
014344
177702

004472

;TEST
JNEXTM

RT32A.

TO TRANSMIT
LINE.

JUSR
MSGS
-62.

GN EACH

S,DLYXMY

LINE

WITH

A DELAY

BEFORE

STATING

[HE

;60 DO TEST,
;TRANSMIT THIS MESSAGE &
,DELAY THIS MUCH BETWEEN L INES

".."""l'!'l"""'l"'
f""""""""t"""'l!'l""!.l..'l.'l’l'

000600
006602

000033
006620

R133:

R34

;ROUTINE # 33
;ADDR OF

ROUVINE.

.
.

2
RT133A
X-X+1

S.DLYXMY

THE

OM EACH

5.0LYXM”

LINE

WITH

A DELAY

BEFORE

.
*
.
.
I

STATING

THE

;GO DO TEST.
STRINSMIT THIS MESSAGE &
JDELTY THIS MUCH BETWEEN LINES

TO TRANSMIT
LINE.

RY135=-1

STATING

;ROUTINE # 34
;ADDR OF NEXT ROUTINE.
:ITERATION COUNT
:SCOPE ENTRY POINT,
R

JSR
MSG5
-64.

BEFORE

RT34A:

177777

006472

004537
014344
177700

006630
006636
00663%

34
RT3S
2
RT34A
X=X+1

.60 DO TEST,
;TRANSMIT THIS MESSAGE 8
;DELAY THIS MUCH BETWEEN LINES

RT34:

;TEST
sNEXT

WITH A DELAY

000034
177777
000002
006630
000034

ON EACH LINE

TO TRANSMIT

STEST

004472

NEXT LINE.
RT33A:
JSR
MSGS
-63.

;1TERATION COUNT
;SCOPE ENTRY POINT,

006620
006622
006624
006626

PAGE 31

SEQ 0031

000002
006610
000033

004537
014344
177701

08:37

24-4UL-79

006610
006616
006616

30A(1052)

006604
006606

MACYIT

23-JUL=-79 15:08

[+ XV LN
PN

Y
—= D VBN,
o —O 000~

DATA T1STS

B
R

@
QO
O

OMI1

P11

—.—.—.—.v-‘-.—--‘_‘—.—.—. - el e ot — ot — e i
DAl il el ol 1V T IO N NS REalV
AV LV [P oLV RV IV IO N}
AV AV 3 A MY 2aY L A ¥T YT Y YUY P
st — i o o ot
b

CIOMBDO DM1Y

(20MBD P11

DATA

006640
006642
006644

006652
006654
006656
006662
006664
006666
0. A74
00¢ 00
006712
006704
006706
006714
006720
006722
006724
006726
006734
006742
006744
006752
006760
0067064

T1STS

MACYTY
Z3=JuL-79 15:08

013447
022737
001001
104020

004537
015743
177700

012737
004537
001400
001402
000040
012737
004537
001440
001442

007362

005200

177700

005200

172560

172544
002446

012706
000715

PAGE

;PRG1DATA TESTS ALL LINES
:QUICK BROWUN FOX JUMPED OVER
PRGI:
TYPE
PRGIN
PRGX :
cmp
#SWREG,SWR
PRGIR
BNE

PRGIR:

001400

PRGIA:

CNTLUY
JSR
MSG1
=-64.

MOV

JSR
CAl
CAT+2

32.

001440

MoV

JSR

Wil

177777

013303

08:37

5.DLYXMY
#OUTBUF (AT

5.,BMOVE

#-64 .

SIMULTANEQUSLY. DATA TRANSMITTED
THE LAZY DOGS BACK 1234567890'
;TYPE
;PROGRAM TITLE
JSEE

W(T

*'THE

SWITCH-LESS

;BRANCH

NOT

sGET SWREG SETTINGS
;00 TO DLYXMT TO SET uP DMIN
;MSGY WILL BE THE DATA TRANSMITTED
;DO NOT DELAY
;LOAD

CURRENT

;ADDRESS TABLE

;10 POINT
; OUTBUF

5.8MOvE

;LOAD

WORD

;10 =64,

T0O

COUNIT

WCTe¢2

000001

104000

001202

004472

010100
002446

005320
001200

32.

172606
000004

MOV

(Mp
BEQ
BIS

172570
172564

000004

MOv
157

PRG1C:

PRGID:

PRGIEX:

BNE
INC
BNE
CLR
(MmP
BEQ
JSR
TYPE
M2
MOV

#BIT12+4B176,aCSR;SET TRANSMITTER & RECIEVER
PR?SUH,JL
;RUNNING PROGRAM #??
P

BITS

#BIT10,a(SR
#-1,3BAR

:SET

THE GO BT

;START

382R

;WAIT

TRANSMITTING ON ALL

FOR ALL

LINES

INES

TO COMPLETE

%5
.=2

a(sP

PRGNUM, #4
PRG1D

7.CHKDAY

;DO NOT CHMECK
;PROGRAM & ?

DATA

RUNNING

;G0 CHECK RECEIVED DATA

#SPBOT,SP

PRGTMR

. TYPE
; 'PKGEND'
;RESET THE STACK
;GO RESTART TEST

POINTER

;PRG2-PROGRAM 2 RUNS PROGRAM 1 EXCEPT FOR THE DATA CHECKING
SWHEN ALL LINES ARF FINISHED TRANSMITTING. THIS ALLOWS THE DATA
;TRANSMITTED

007024
007026
007030

QOO
O—O
Owd
—_ N
WO
~N~NO

OB~ AW
= OO

(S AV RV RV LTV V
LN 2V XV XV _JV J
NNNNNNNNNNYYO

000176

26-JUL-79

StQ 0032

106000

006766
006770

006772
006776
007004
007006
007012
007014
007016
007022

30A(1052)

TO BE

SENT

TERMINALS,

;REMOVE THE JUMPERS C(ONNECTING THE

PRG?:

006644

PRGZR:

TYPE
PRGZM
JMP

; TYPE

;AND

PRGX

BEFORE

STARTING

THIS

PROGRAM

TRANSMITTERS 1O THE RECEIVERS,
PROGRAM T]TLE

INSTRUCTIONS

;GO RUN PRG!

1617

1618
1619
1620
1621
1622
1623

16264

1625

1626

1627
1628
1629
1630
1621
1632
1633

1634

JSR

5.0LYXMT

007262
007206
007272
007300
007304
007306
007312

062703
010362
053777
022701
001002
012701
00571

010101
000001

172420

PRG3A:

N01560

001572
0G1564
001564

160400

001564

001566

172332

001566

172322

060000

172310

100000
001564
177777

007362
001400
001566
00177¢
001576

MOV
MOV
INC
8R

#BIT12+B116+B1T0,aCSR ;SET
#1,%0
%20
.=2

NOP
NOP

MOV
RINT3A: MOV
BtQ

040000

001569
002140
005266

#TUMTAB,TTPIR
CLXINT, 21
FRINTZ, (1)
CLEKLVL, (1)
FTINTE, (1)

172276
007362
001440

172244

(LR

BIT
BNF
B1(

MOvVB
MOV
JSR

BIT
BEQ

XMTLVL, (1)

#BIT14,TIDAY
RINT3B
#160400,11DATY

;WAS BREAK RECEIVED
;D0 NOTHING ABOUT 11
;CLEAR ALL BUT LINE # AND DATA

TIDAT+1,%?2
X2,.LINE
7,GTLINR

;CLEAR ENTRY

;GET LINF NUMBER
;FETCH LINE NUMBER
;FORM LINE BIT FOR BAR

#BIT14+BIT13,3(5R

MOV
BIS
RINTIB: (MP
BNE

AND GO RIIS

;GET SOFTWARE POINTER
sGET TUMBLE TABLE ENIRY
JEXIT IF NO ENTRY

811

NONAC1: KOVB
MoV
MoV
ADD

TTPIR,X
(1),11DA1
RINT3X

glg

BEQ
ERROR
BIC

sINITIALIZE SOF TWARE POINTER
JLOAD RECEIVER
;AND TRANSMITTER
JVECTORS AND PRIORITY
SJLEVELS

LINELT,8BAR
NONACT
L!:ElT.BBAR

THE

;DLYXMT ROUTINE
;SET UP DM

MOV
MOV
MOV
Moy
MOV

MOV

RINT3:

SWREG SETTINGS

JUSE PART OF

aft -

001572

MSGH
NOP

;GET

;1S THIS LINE ACTIVE
JLINE NOT ACTIVE
;WAIT FOR LINE
;BRANCH

NO ERRORS

#BIT15,3(SR
;CLEAR TRANSMIT DONE
TIDAT,QUTBUF
(2) ;STORE RECEIVED (HARA(TER
#-1,6C1(2)
;LOAD LINE'S WORD COUNT
2,323

#OUTRUF
X3
X3.CAT ()
LINBIT,aBAR
FTUMTAB+176,%1
.

MOV

#TUMTAB-2,21

157

(1)«

JAND CURRENT ADDRESS
JECHO RECEIVED (HARA(TER
:(HECK TUMBLE
:TABLE

POINTER

DR W

001600
001552
007132
001554
007336

CNTLU

9% "R

000240
000240
013701
011137
001463
005011
032737
001047
042737
113702
010237
004737
03%777
001414
033777
001374
032727
001401
104003
042777
113762
012762
010203

PRG3R:

007132
007134
007136
007142
007146
007150
007152
007160
007162
007170
007174
007200
007204
007212
007214
007222
007224
007232
00723«
007236
0072644
007252
007260

004472

;TYPE PROGRAM
STITLE
JSEE IF SWITCH=-LESS
JBRANCH F NOT

#SUWREG, SWR
PRG3R

001202

INSURES PROPER OPERATION

T1YPE
PRG3M
g,
BNE

TMAT

PRGY:

IS THE ONLY TEST

DISTRIBUTION PANEL LOGIC.

-on

THIS TEST

THE OM11

DM1)

TV UV T

1608
1609
1610
1611
1612
1613
1614
1615
1616

012721
013721
012777
012700
005200
000776

000176

THIS PROGRAM ECHOS BACK DATA RECEIVED FROM ANY

SNOTE:

;OF

104000
013956
022737
001001
104020
004537
013743
000240
012737
013701
012721
013721

]

33
tu

sPRG3I-E(HMO TEST
;TERMINAL(S)

00703«
007036
007040
007046
007050
007052
007056
007060
007062
007070
007074
007100
007104
007110
007114
007122
007126
007130

PAGE

1607

08:37

1606

264-JuL-79

T2 "N

1588
1589
1590
1591
1§92
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604
1605

2350179 15:08

3GAC1052)

1586
1987

MACYIT

IA LA IA LA

1580
1581
1682
1583
1584
1589

TSTS

LA IALIAILAEIALA LI

(10MBD LIV

DATA

[DMBOO DAY

(JDMBDO

DM11

(I0M80 PN

1636
1637
1638
1639
1640

1641
1642

16463

1644

1649
1646
1647
1648

DATA

157TS

MACYY1

Z3=4UL=79 15:08

007314
007316
007324
007330
007332
00733

00C71¢
062777
010137
000240
000240
000002

007336
007340
007346
007350
007352
007360

000240
032777
001401

060000

042777

160000

104003

000002

000205
001572

30A(1052)

26-JUL-79

08:37

PAGE 3¢

SEQ 0054
172216

RINT3xX:

BR
BiC

nov
NOP
NOP
R1]

172174

172162

TINTS:

RINT3A
#8117, a(5R

11, T1IPIR

sCLEAR

(HARACTER DONE

SRESTORE POINTER

FLAG

JEXIY

NOP

Bl1
BEQ
ERROR
BI(C

IBE!IA'BIIIS.GCSR

+ANY ERROR FLAGS SE?

lBlTlS’BlTlL'Bl!Ié.?%SR
SEX

sCLEAR ALL

FLAGS

(IDMBDO DM11
(I0MBD.P11

1669
1650
1651

1692

1653
16%¢4

1655
1656

1657
1658

1659
1660

1661
1662
1663
1664
1665
1666
1667
1668
1669
1670
1671
1672
1673
1674
1675
1676

1677

007362

007526

007672
010036
010202

010346
010512
010656

011022
0311166

011332
011476
011642

012006

0121%2

1678
1679
1680
1681

012662

1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697

012626
012630
012632
012634
012636
012640
012642
012644
012646
012650
012652
012654
012656
012660
012¢62

1682
1683

1698

DATA TSTS
MACYI1
3-JuL~79 15:08

012316

012664

000000
007526
000000
007672

000000
010036

000000
010202

000000
010346

000000
010512

000000
010656
000000
011022
000000
011166
000000
011332

000000
011476
000000
011642

000000

012006
000000
012152
000000
012316
000000
012462
000000
012626
00752%
007672
010036
010202
010346
010512
010656
011022
011166
011332
011474
011642
012006
012152
012316

30A(1052)

24-suL-79

08:37

SEG 0055
QuTIBUF: 0
.=0UTBUF+100.
tNOBUF: O

.ZLNOBUF
<« 100.

NIBUF: O
.=LNT1BUF+100.

LN2BUF: 0
.=LN2BUF +100.
LNIBUF: 0
.=LN3BUF +100.
LN4BUF: 0
. SLNGBUF +100.
LNSBUF: 0
.=LNSBUF +100.
LN6BUF: 0
. =LN6BUF «100.
LN7BUF: 0
.=LN7BUF +100.
LN10BF: O
.=LN10BF+100.
LNTIBF: 0
.=LNT1BF+100.
LN12BF: O
.SLN12BF +100.
LN13BF: 0
.=LN13BF+100.
LN14BF: 0
.SLN14BF+100.

LN1SBF: 0
LN16BF:
LN17BF:

INTAB:

012462

.=LN15BF+100.
O
.<LN16BF +100.
0

.=LN178F+100.
LNOBUFf
LN1BUF
LNZ2BUF
LN3BUF
LN4GBUF
LNSBUF
LN6BUF
LN7BUF
LN10BF
LN11Bf
LN12BF
LN13BF
LN14BF
LN15BF
LN16BF
LN178BF

1699
1;89

Q12666

000000
012706

(NTTAB: O
.=(NTTAB+16.

1702
1208
1206

012706
0127210
012712

012746
012752
012758

ID:

PAGE

IDENTO
1DENTY
IDENT?2

fD0Diu0DnD0fDlD0;D”0DDuOn0R”U0Rs1OR0%.1”O0mR1O0R%O”1RM0O.1Rf0OlL1m00nR1%1O”|WRm.O}IsWR3O.5WI0MR5<W0|O5RW11M.5RW115O.2WR5MN2WI5RO3.W5IO3RW15.W
LD7oAALO7S1’L01OLk071O0N0AA7el1N0I170oF1¥0lMN710BO1270-0oN127~4D—T12780OYP127N=4BN127M?S0.OS217be4ON2761V02e7620oO~4oOD762m0Dm0O7m620Am4B7i062l0T0“07OR5‘020l047Il1520“T1N‘1T5N2!10Rl.4U5qN120No'.I5l\N20"I1eOl4105Il12N0—“M.05N‘1—Oa2R—5~l2
L4[2Aw@e-tNWola—N-.e—3WO2—Oa--.=e—WU—o-Ne—JLOF—Ma-a=s2MO&—M-os6e—4UO-aN“-a_n——WJU2r—&-[-.eOEVL>Oo—X=I—0@—oRoZN-.lePOaO—WZ-asZIW—eNoTe-XDJBWFL—eaWX.Don2tdWMo—aWMBXDRt}LAWNe&—a2XDlyN|IWo—(X=b0DXYJWOEw©WW —BQ—e&LCeBeREBEBstrTR-TRrErFArTH
DATA

23=4LL-79 15:08

TSTS
MACYIT

gPOg— g gYgNgan gvgOEnpaOns Me IpumVo

A—01gM.NPmu0=O2¥P0Te20Nv02L>P]0N20YNT20Loa)Y20)N)e20ON0Ne02oM4YeO60e2oM0be2VOD2oY4LOOoo62OtT0~2OTo22O45—2Oo663—O073—o28N3—4936o05v0152o23453--—6o4305372o63747376o387e0377e2507T43176327055723474357
|94 DMBDO DM11
(Z0m80.P11
30A(1 052)

24-JuL-79
08:37
PAGE 36

3
nye
7y

(JDMBDO DM11
CI0MBL.P1T

1753
17%4
1755
1756
1757

1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
1771
1772
1773
1776
1775
1776
1777
1778
1779
1780

1781

1782
1783
1784
1785
1786
1787
1788
1789
1790
1791
1792
1793
1794

1795
1796
1797
1798
1799
1800
1801
1802

1803
1804

1805

1806

1807
1808

DATA TSTS
MACYT!
23-4uL-79 15:08

013050
013056
013066
013072
013100
013106
013111
013116
013120
013126
013134
013140
013143
013150
013156
013164
013177
013200
013206
013214
013220
013226
013234
013235
013242
013245

013252

013254
013260
013266
013274
013300
013303
013310
013316
013324
013330
013336
013344
013352

013360
013366
013371
013376
013404
013412
013420
013421

042045
042522
051105
047524
0511064
020075
045
040040
020060
020040
036527
036445
045
020110
040440
052517
044524
042045
051105
041057
020040
020040
040
040
020040
114

020040
100
067111

020040
052045
051120
020115
037445
045
041440
041440
052105
051445
020122
047117
051117

040040
050131
043517
040043
100
042524
062132
046517
040105
052105
050117
027123
040515

020043

050117
047511
123
030060
050040
041440
100
045

030515
042503
053040
020122
051505
100
053523
020060
020060
040040
040
044127
066504
062522
052040
043516
052101
020122
02007
020040
060527

051105
116
020122

01356
013462

052040
051126

051505
047101

045

040504

L 3

036522

$SWREG:

.ASCII

‘%SWR- a'

020040
042516

S$VALUE:

.ASCII

$CTLU:
WHICH:

_ASCIY
.ASCIl

'%:=
'%WH.CH DMI1

ERDAT:

.ASCII

*XDATA ERR

020040
035123

AASB:

.ASCII

020040

AwAS:

.ASCI]

020105

CLINEM:

_ASCI!]

'LINE

ALINE:
MO:

LASCI1]
"ASCII

°
3'
'XTYPE

PROGRAM #a'

M1
M2

ASCIT
"ASCI]

'173°
'XTEST

(ZDMB CIMPLETER’

M3:

LASCIT

"XSET

JASCIT

'SR - 000000 PRESS CONT.a"'

PRGOM:

_ASCII

*XDATA TEST AL. LINES 3°'

PRGIM:

_ASCII

*XDATA TEST

041511
030461
056440
051505
040060
020101
051440

020105
040522
052123
041115
046120
051440
044524
047040
020114

RECEIVER VECYOR ADDRESS

NEW- @°

ARE

S/B:

YOU TESTING 3°

WAS:
3’

SR OPTIONS.

NORMAL OPERATION®

052101

020124
046523

042516

PAGE 37

*XDMT1

040524
020124
044514
100

013442

013447

052040
046101

08:37

JMESSAGES
WHERE:
_ASCIT

02006
05311
041505
042101
020123

020075
030060
051523

047117

24-JuL-79

S£Q 0037

030060
042522

040504
051505
020114
020123

013426
013434

30AC1052)

027134

040524

TRANSMIY ON ALL

LINES SIMULTANEOUSL
ve

MBOO DMI1

DATA

T1STS

PACYIY 30A(1052) 264-JUL~-79 C8:37 PAGE 38"

23-JuUL~79 15:08

020116
0464514
064523
047191
054514

051124
052111

047101

PRGZM:

-ASCII

'TTRANSAIT

PRG3M:

ASCL]

'TECHO TESTA'

020124
064440
030050
042504
047111
026470

PRGI:

ASCl]

‘RPUT

CHAR

POPPAR:

LASCII

'XTYPE

PARITY

055105

020105
05452¢4
047511
047075
051505
047440
020054
047105

020122
020040

041520

ATNUMB:

EMO:

LASCl]
LASCI]

020040

APC:

LASCL]

WSSO
NN
O OO
— &~
(=] SSANNNAN
st s s N
o
oo Ot
PO N — N
O WNSOWMTIN
~
—

020
047

047640
020114
020123
052114
051525

MSG1:

.BYTE
LASCHI

912

MSGe:

042524

042

020040
020075
020040
100

015
040
052521
051102
047506
050115
042526

02010°¢
042040
040502
031462
034470

052040
046522
040123
020117
100

el=lelelelelololeYe)

SOOI

= ONO O

OCNOVUWNENS —-ON

NN~
WM
N —

SO0 OSSN

(=) NNV
et

.EVEN

.BYTE
177400
177400
177400
177400
177400
177400
177400
177400

>eQ 0038

TO 1ERMINALS]'

IN SR(0-7),DELAY

OPTION

(N NO'

[N SR(8-15)a’

DESIRED 0=00D,

15,12
' THE QUICK BROWN FOX JUMPED OVER

15,12

THE

LAZY

E-EVENa'

DOGS BACK

1234567890°

COFOONIOTNONANO—NOTROIINNUMTONTD6P0O2—46T0V25466708294061022344650627486900216250425466708296010223

—N08%y_WgON~81NWOI81NiONOIW81NS0O18OoCo1lOo18NndoI1%lC8NanOIdl[2C%oI—8%—O2%NoC8Mr—O3Uv8Ur—O3U1=o58”1—4?—o871-4=87159081=59v081=69"81069F—81=079T18T‘7091T9‘o%910P09T19‘T0091T19O191190119o29120o.2\2'0o3130ol*31l30o”l61fko0i“41“
( l DMBDO DM11
( IOMBD.P11

DATA TSTS

23=JuL-79 15:08

MACY11

012

30A(Y 052)

26-JUL-79

012

M504

08:37
PAGE 39

3
SE0 0039

u””667700112253344%”5“%66“%7777%00%111“222
g'SOmpIr—mvgNrIO-\e'—IgevBOrGIOU'OGMI0oPYGNa0GMnBYcO[GlO0WvOOJF—l0'OOPl~0NN.—O‘0—.rlAOOQ—od.MNo-!ONe-AlPlOoMilNInoBOMlLvHOlaVvEQlNovON0leEaq—VEuDVLlgNwOvq1ydlAC'RlbOl1v0dlO‘c1SlClDvO“eld1l.slC‘‘D1ORlvl1f.OD1olliG.1ADlT10'I!DCf1VSlUooE0.sDlofeoolAin0evAaoDwm0halnh50AoeD7t07D7Ao00Da0bDa00AboaI0ta0m0rbdA.ha0b{Ia1l50bDAa71Dbe7l1?AHe0’0ed1t0\A10ab
9O&O05CIg”10W'N1%OWO!N50?9’O—1~2W'M5N09IO:O1%N‘OM2TWM1NA50I9'1%TN.M2IT'AO509.O1%M'I2NNO“1TM5A09k%'2QO41N5:0M9”ON|fA2SOO4%M¢Ti5Z09IMS|2A4ClQ~T509_—SN'2XT)4Q\"5o9|OS[M¢«2NZ6L|M5o9O‘At2Zo—S4|~N5o9lO4S2M—|O5o9Q44NS|25M5061N'o90”O4\12502.]‘o91”S452062"50‘o91}4210S2P15‘2No9461S0o2N‘5012912.450S‘4o2-\]‘53072911—.54572o.231572"96545‘62o03‘00b32251954bc0‘523o62|b05271e05-3028g«b251290—4435b420—65b07215304&7225‘b723—3‘4?624056e”3‘25305e6?206725=“?2073.45e?20865e412?0905e6220?5->T~4
PN =v
( JOMBDO DM11
D
. P 1Y
( (DOMB

DATA 1515

23-JuL-79 15:08

MACYT

O ~N

30A(1052)
26=JLL-79

x [%2) (%] "2l

08:37

PAGE 40

- ~N

SEQ 0040

CZDMBDO DMY1
(I0MBD.P11
1977
1978
1979
1980
1981
1982
1983
1984
1985

DATA TSTS
MACYIT
23-4UL=-79 15:08

014426
014430
014432
014434
014436
014440
014442
0144446

000200
177377
175775
167767
1377%7
177500
015
015
000001

012
012

30A(10592)

24-JUL-79

08:37

PAGE 4%

SEQ 006!
200
177377
175775
167767
137737
177500
.BYTE
.BYTE
LEND

15,12
15,12

8119
=
BKCSR
BMOVE
CARMSK
CAT
(C
=
(HKDAT
CLKINY
CLrive
(NT
CNTLU =

001000
001546
005200
002126
001400
177776
005320
001552
001554
004254
104020

CNTLUVU
(NTTAB
CNVDAT
(OQuN?
CRLF
=

004332
(012666
002356
002146
105215

(SR

001542

CURTST

002012

4544
957
5124
L4508

2284

1014
4564
“S74
859+

283
503

968

53
5204

1718

1744

4520
1168+
W73

b w——d

639+

827+

1006

1075+
64le
450

952+

761

828

989

1557

1600

1168
1612

1622
1622

1644
1644

989

1554

1600

9N
1106
760¢

10578

1545

1550

818

823+

952

1023

1073

1544«

1546

1547

1630+

981
1597
927
1540

1595

1590

16994

1700

1726
17514
819«
1557«

1728

1730

1732

1734

1736

1738

1740

1762

828+
1563«

1600+

830«

955

989+
1625+

1003+
1637

1009+
1644

1157

1169

18414

1
1
1919
1
1
1

1558+

1559

1618

1620

O
N

H e
=2
&

et
—

-0

»no

-—

1076

Voo
— O

1029

—

1025+

—

1010+

1928
1941

00
—O
—00

1927
1940

1926
1939

OO
SN
WO

1896
1909

1895
1908

—

1894
1907

) oed
b

1934
1947

—

1892
1905
1918
1924
1937
1950

1902
1915
1921

234N
761

761
1157

828
1637

621
638+
962

655

446

641

1095#

1566

822+

791+
825+
876+
614
915#
1139
549
7640
1720
1746
637+
1169
623

966

831«

824+

983
895#
909
1140
5764
765¢
1722
1748
761
1177

629

1554+
679«

1647

532

64?2

£H e

646
989

18394
17784

——

565+

1622

1647

o
-

= 000200
= 000400

OO NN

8117
BI18

2854
2L
24BN
2394
238«
2374
2364
2354
233
24N
246N
245H
244N
243N
242N
2414
240N

SEQ 0042

OO OO O 0
AN
= OO

BAT
BELL
BI10
8171
81110 = 002000
BIT11 = 004000
BI112 = 010000
BI1113 = 020000
81114 = 040000
817115 = 100000
8112
= 000004
BITS
= 000010
BlT4
= 000020
B115
= 000040
B116
= 000100

17754
1782#
1889

wond e

001570
001562
001550
001500
= 000007
= 000001
= 000002

001544

CROSS REFERENCE TABLE -- USER SYMBOLS

—

BARDAT
BARIM
BASREG

1631+«
4632
L6040
4554
440N

BAR

wn W

ATLAST= 177777
ATNUMB
013724
AWAS
013235

PAGE &3

O —t O
OO
[Vale
AV N o)

013734
002134

‘\ NN RO

AP(
APCADD

052525

08:37

smsach

26-JUL-79

——

ALTT

125292

30A(1052)

00~ ~

2914

578

ALTO

000000
013220
013254

23-JuL-79 15:08

MACYIT

WO
NN NOD S
O

A
AASS
AL INE

DATA T1STS

—
i N — — oS
O O

(IDMBDO DM1!
(l0om8D.P11

6204

622

628

6164
L7648
1023
953
1702
1703
1704

it
et et D o
NN — OO [e
b
b et
N
»

~ NO

N —

b . SRR
S
e g —
[+« JE I
S
Py
END PPN —

Bt P
S
St S
St Bt Bt G

EOOO0OOO0O0VDOO
"ETE2ITTITZTZ

IDENTS

TABLE -- USER SYMBOLS

stC

1624

'646

633

656

663

1183

5292

1838«

1617

631
6254
6304
658
652+

17024
10204
1718«
17204

5634

— PN\

6834
689
17724
544N
5504
547
566#
5714
5704
767
538
616+
5474
6364
928
674K
613

9304

6154

677+

17224

17244
17264
17284
17304

17324
17342
17364
17384
17404
17420
17444
17646#
1748

632

1136

502

S00#

550

640

Hoonr
- \N
O

omet wmd

1167

——

~NO

1253
1409

1241
1397
1591

——

1505
76478
806

WY
A~
=
O~

1193
1349

1098

2824

PRV
)

609

10834

—a

IDENTS

? 62
7 66
7
7
002
006
0
0
022
026

500
497
916
620

000004
002242
002650
004410
003032
002540
005266
002566
002610

2724
280#
2304

941
941

—

104003
104015

IDENTO

IDENTI
IDENT?2
IDENTS

4LB7#
565
490
546
544
552
569
567

PAGE 4¢

1107

013721
003064
002046
013200
002224
002262
002324
002332
002352
002350

GTRDY(
GIRDYD
GIRDYX
1CTR
1D
IDENTY

2764
562
305

GIRDYA

104010

FORWD
GETRODY
GTLINB

7964
491

FAJAG

590

ERREX
ERRHLT
ERROR =
ERROR1=
ERRVEC=
ERR1
ESCOPE

003334
003620
002156

—

DMPAR
DMPARB
DTCHK
EMALT =
EMO
EMTINT
EMTTAB
ERDAT
ERR
ERRA
ERRB
ERR(

2738

4432
L2008
951#
1337
1493

08:37

CROSS REFERENCE

DA TCHK= 106004
DISPLA
001204
D1SPRE
000174
DLYXMT
006472

26=JUL-T79

~ 0o

¢3-JuL-79 15:08

30A(1052)

—

MACY1T1

O
e

DATA 1STS

wn TNNTNTNSNITNTNNYNY
YN

94 OMBDO DM11
(Z0MBD.P11Y

0047

(IDMBDD DM11
(IDMB8D.P11Y

NONACT
NOP
=
NXTST
OACNY
OPEN
=

ou1BUf

OVRLAY

PASS

PRGO
PRGOA
PRGOM

PRGOR
PRGY

0O
iy
oo WNNNO
£
- QO
- [XV]
LAYAY] =5 OO —=un o~
WO~
~oo NNOOo RN o oo N

5174
540
970+
16534
16674

) ol sl e

P o
Fo

330

16574
16594
16614

16634
16654
1194
1290
1374
1422
1470
596

524
661
611
1619

231

615
990+

1101»

535

17802
972

1654

1668
1670
1672
1674
1676
1678
1680
1682
1656
1658
1660

1662

01357
002024
002646
002026
006644
005660
005664
0132
008702
006640

1218
1314
1398
1646
1494

1482
17834
785
1568
17914
16264

591
519#
S144

1021«
1103
992

1104

998+«

1027+
113¢.
1020+

16510

1652

1683

1025

1075

1141
1022

1076
1142+
1026+

1266
1362

10864+

1087«

1618

1620

1072

1085

1100

1616

1278
13564

1562

1592

463
494
519

L6464

1650

1631

19524

805

833

599
5984
602

599+

1802#
1181»
15364

StQ 004

17874

656

1579
11764

1181

676+
919

514
958
1105

10354
458
488
515
1052
1544

460
489
516

461
492

517

662
493
518

1626+

1629

1649#

604

975

986

1555

1564

456
&77

774
659+
548

18294

18224
“78%
594
“794
15384
479
11784
1177
483
«80

973
1684
1691
1692
1693
1694
1695
1696
1697
1698
1685
1686
1087
1688

1206
1302
1386
1434

672
505
703
760

2504
2514

1178«
999+«
1102+
991

1689
1690

534
2324

007362
006042
002144

24-JUL-79
08:37
PAGE 45
CROSS REFERENCE TABLE -- USER SYMBOLS

1664

1666

4754

PCADD
002132
POPPAR
013640
POPSP = 005726
POPSP2= 022626

PRG]
PRGL
M
PRGNUM
PRGTAB
PRGX

728
6620
5184

30A(1052)

[
IENTV.
D 3P AV, Yo 3
PO = s 8NN
WWNOD
—
O

MSG5
MO
M1
M2

MACYIT

233

MSG3

MSG4

SV e P 0000 Lo LaT1a8 1,V ] (¥ E g

MANUAL
=
MSG!
MSG2

LN7BUF

LNSBUF

LN6BUF

LN4BUF

(L LV SV TW R L

LN178F
LN2BUF
LN3BUH

N
2~

{ N16BF

j=lolelol lelotoleYe) QOOOOOO O0OO0O00O

LN1SBF

002142
002140
013245
; 26

il il il el el —
m a0 el

LN13BF

LN14BF

TSTS

23=JuL-79 15:08

002010
001566

LINBIT
L INBUF
LINE
LINEM
LNOBUF
LNIBUF
LN10BF
LN113F
LN12BF

KSTART

DATA

600+

601

495

520

bbb

496
563

R116A
RY17
RTI2A

006260

006270
006300
006310

s U
8 —a

=
-l
ard) ——t
) ———

AN PO PO PO N

—
wml) ———l

N AN

vl el

7074

i
)
==l

84
82
96

16372
605
5924
603
1050
NI LD NN
= OOLVOO
O 00w
AN AN = L D = Y ND S N AN A =
D
N AN
e OO
L 2
R
R
E
R
R E R R
R
R
R
R
RS TR Y

R11s

B8
86
00

1570

762+

581
800

B32e
1006+
8574

1104

1064

1115

1159

627

675

1179«

925

1144

16324

000230
006240
006250

006210
006220

499
L7468
178

529
777
11204
16064
1636

—ald

RT14A
RT1S
RTISA

RTI13A
R114

2794

617+

006150
006160
006170
006200

005750
006120
(06130
006140

16094
1615
1610
<834
434
436

15412

306

RT1A
R110
RT10A
RTI
RT11A
RT12
RT12A
RT1S

5164
229
5104
597
982
1596

005720
005730
005740

71
459

WM AN LA WA A AN AN N

002014

469
657

R1Q
RTOA
RTI

1591

2594
2584
2574
2564
255#
254#
2534
2524

1539

RINNO

157§
485
482
977
1587
486

s —

RSTAT2
002472
RSTREG= 104014
RSTRG
003156

1567#

19774
18164
15792
15864
15948
18204
1589

NI A

002036
002422

15442

1806#

484
481

PO NO N

007316

26-JUL-79 08:37
PAGE 46
CROSS REFERENCE TABLE -- USER SYMBOLS

1637

R NP

RSTART
RSTATY1

007132
007142
007300

988

RINTZ
RINTZA
RINTIB
RINTZX

005426

30A(1052)

15644
1565
15698

RINTY

007030
007034
007062
013556
007052
000000
000040
000100
000140
000200
000240
000300
000340
002136
177776
002122
004076

23=3uL-79 15:08

M AN M

PRG2R
PRGS
PRG3A
PRGIM
PRG3R
PR1YQ =
PRIYY =
PRTY2 =
PRTY3 =
FRIY4G =
PRTYS =
PRIYE =
PRIY? =
PRVCNT
PSw
=
RCVDAT
RECD

006666
006776
007012
007916
013447
006656
007024
013527

MACYTY

5B MN—=rOO
O
NSO
CO 00 &

PRGIA
PRGIC
PRGID
PRGIEX
PRGIM
PRGIR
PRG2
PRG2M

DATA T1STS

(IDMEOG DM1Y
(20m80.P11

11854

1782+

SEQ 0045

(ZDMBDO DMI1
(IDMBD.P11
R12

R12A

R120

R120A
RT21
R121A

R122
RY22A
R12%
R1¢3A

R124

RI24A
R125
R125A

R126

R126A
R127
R127A

R13

RT3A
k130
RT30A
RT3
R131A
R132
RY32A
R133
RT33A
RT34
RT34A
RIZS
=
R1&
RTGA
R1S
RTSA
RT&
R16A
R17
R17A
SAVREG=

00576C

005770

006320

006330
006340
006350

SCOPEB

SCOPTIR
SPBOT
SRSET
SR

STALL =
STARY
STRXV =
STixv =
SUSWR SUSWRR

1198

1212

1366

1380
1378
1392

30A(1052¢
12094

1377

13854
13894
1397

1390
1404
1402
1416

14014
1409#
16138
164214

006430
006440
006450

1428
1626
1440

14334
14374
164454
14490
14570
164614

006420

006460

16414

1438

006470
006500
006510

1452
1450
1464

006010
006520
006530
006540
006550
006560
006570
006600
006610
006620
006630
177777
006020
006030
006040
006050
006060
006070
006100
006110
104013

1224
1462
1476
1474
1488
1486
1500
1698
1512
1510
1524
1622
1222
1236
1234
1248
1246
1260
1258
1272
278%

006000

1210

498
2774
bL4LN

002714

643

002022
001200
002506
002110

477N
AT ]
6064
505#

002750
002752

104002
002404
104006
104007
104016
00441/

647
626

bIAY]
633
274
275#
281
501

14254

164694
12210
12294
14734
164810
1485#
14934
14974
15054
15094
1517#
1521
15294
15324
12338
12414
12454
1253
12574
12654
12694
12774
1035

6934
1016
653
646N

651
6554

644
588
1180

5884

589
933

24-suUL-79
08:37
PAGE 47
(ROSS REFERENCE TABLE ~- USER SYM3OLS

1217#

006360
006370
006400
006410

SAVRG
003116
SCOPE = 104012
SCOPEA
002706

SCOPEC
SCOPED

DATA TSTS
MACYI1
23=JUL=79 15:08

1057

1095

1121

603

618

1150

654
678+
592

1569

SEQ 0046

004370

TXkvIR

002000

TPCSR

002116

TPOBR
TPLvL

002120
002006

TPVIR
TIDAY
TIPIR

002004
001564
001572

TUMIAB
Tvp
TYPE

TYPES

UNLT

VA(C

vECOK
VECOKA
VECOKB
VECTOR
Wit

001600

=
=

003220
104000

104001

003640

001940

003540
003550
003556
003522
0014640
WHE RE
013050
WHICH
013143
X
= 000034

XMITD

XMIDAT
XMTINT

005222

(002124
001556

XMTLVL
001560
Y
= 000000

$CTLU
SENDAD
$SWREG
SVALUE
.
:

013140
(003022
01311
0'3'20
0146446

5084
5094

L7
470N
LH1a
GHLN
LO66N
1634

487

2694
89?2
2704

797
4514
773
7844
783
770+
L4

642

920

940

1538

1588

9264

929

1134
1594
961«

1142
1608

1609+

963

1638«
964

646

655

900

1612

1614

1615

1626

967

980

1152

660

775

915

929

1154

159¢

1632

784

798

804

890

1551

1552

1627+

1244
1321#
16400

12498
1328
14059

11644
16434

860
862

905

905+

906+
879

735
734«

1123+
980+«
467
7224

864t

907
882
881+

885
884

523
917

923

564
1536

595
1567

610
1577

801#

802

808+

809«

813

465
780
788
7874
778#
448
17554

539

1586

‘

7824
790
779
759+

787
1001

789
1024+

791
1074

792+
1144

793
1549«

189#

1208
1285#

12134
1292

1 220
1 2974
1 376
4
14534

12250
1304
13814
1460

1232
13094
1388
164658

13454
1424
15014

16410

1520

1369
1448
1525#

577

1106+

1146

1364

TTMMP1

L6
4684
904
*

S064
S07#

625

002002

002114

621

TkLvt

TKDBR

606

LV
YV ], V]
N ND —* N
NIANO
~
=
=

1598

568

1588
915

—

007336
002112

606

551
1538
900

SEQ 0047

14778

1484

317

319
365

1599

17634

297
325
351
37

<03
L399
1603
16664

299
327
153
379

405

(AN|

1621
16688

101
329
355
3181

407

L4608

1623

16708

3
3
3
3

409
448
1633
16724

307
333
359
385

(1
4500
1645
1674#

309
335
361
3187

413
4650
1650
16764

313
339
365
391

TINTS
TKCSR

513
084

532
940+

PAGE 48

TABLE -- USER SYMBOLS

000176
002130
005620

08:37

(ROSS REFERENCE

N~
- LN

SWREG
TEMP
TINT

4429
936
4300

26-JUL-79

001202

23-JuL-79 15:08

30A(1052:

Swh

MACYIT

(I0MBD.P1
1

DATA TSTS

O wat
s
N

(ZOMBDO DM11

417
736
16540
16808

315
341
367
393

419
976
16562
16828

343
369
395
4220
987
16588
17008

197

G240
1556

16608

1854#

ABS.

1364

014446

000

ERRORS DETECTED:

1376

1388
1208

1388

925

1220

1400
1220

1400

CIDMBD,BIN,CIDMBD,
L ST/C(RF/SOL/NL:TOC=CIDMBD.P11

RUN=TIME: 6 12 2 SECONDS
RUN-TIME RATIO: 121/21:5.5
(ORE USED:
B8k
(15 PAGES)

1
1
1
1

1244
1424
1244
1424

1256
1436
1256
1436

1268
1448
1268
1448

SEQ D0st
1280
1460

1280
1460

1292
1472
1292
1472

1304

1484
1304
1484

Pl
E Y
N =t L e
[o e
e o

13582

1376
1196

800

1208

ol
— —

1364
1184

777

1196

13%2
2118

597

1184

24-4uL-79
08:37
PAGE 50
(ROSS REFERENCE TABLE ~- MACRO NAMES

b A\

xMIDLY

211»

2118

30A(1052)

NN
RO RS

GE?

HEADER

DATA T1STS
MACYI1
23=JuL-79 15:08

LalaVF
o0 ¥

(IOMBDO DM11
(Iom8D.P11

1328

1508

1328

1508

1340
1520
1340
1520