Digital PDFs

AH-8541D-MC

November 1979

49 pages

Original

25MB

view download

OCR Version

34MB

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

OCR Text

DM11 DATA TST

CZDMBDO

AH 8541D MC

DATA 1ST5
MACYI!
23=JuL=79 15:08

30A(1052)

24-juL-79

OCB:37

NN AN NN N N N N T PO NG PO PO TV PO PO TN — s e e

PAGE

!
5E@ 0001

-REM 2

IDENTIFICATION

e o il

oo NV U'"-‘-O*OO\IO\I"‘“WN—‘OOONO‘\FJ‘“N-‘OOONO‘\I‘P\MN-—A

(ZDMBDO DM11
(ZDMBD.P11

PRODUCT

CODE:

AC-8540D-M(

PRODUCT

NAME:

CZDMBDC DM11

PRODUCT DATE:

JuLy,

MAINTAINER:

DIAGNOSTIC

DATA

TST

1979
GROUP

THE INFORMATION IN THIS DOCUMENT IS
SUBJECT
T0
(HANGE WITHOUT
NOTICE
AND
SHOULD
NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL

EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.

NO RESPONSIBILITY 1S ASSUMED
FOR
SOFTWARE ON EQUIPMENT THAT IS NOT
AFFILIATED COMPANIES.

THE
USE
SUPPLIED

OR
BY

EQUIPMENT

CORPORATION

THE

(C)

1972,1979 BY DIGITAL

FOLLOWING ARE

DIGITAL
DEC

TRADEMARKS OF

PDP
DECUS

RELIABILITY
DIGITAL
OR

DIGITAL EQUIPMENT

UNIBUS
DECTAPE

Of
ITS

CORPORAT]ON:

MASSBUS

LLOMBOU DML

(ZDMBD.P11

DATA

TSTS

MACYTT

23=JuL=79 15:08

30A(1052)

264=JUL-79

O0B:37

PAGE 2
SEC 0002

40
41
42

ABSTRACT

TWO SEPARATE DIAGNOSTIC PROGRAMS ARE

DM11

PROVIDED FOR

(ASYNCHRONOUS DATA MULTIPLEXER), CZDMA (DM11

TESTING

LQGIC

THE

TESTS), AND CZDMB (DM11 MULTIPLE LINE DATA TESTS).
THE LOGICC TESTS INDIVIDUALLY TEST EACH OF THE 16 DM11

el
Ak Tl ¥
N

V®NC
NP NN =D O ~

LINES AND ALL COMMON LOGIC.

THE MULTIPLE LINE DATA TESTS

RUN SEVERAL LINES CONCURRENTLY AND ARE

USED

TO TEST

LINE

INTERACTION AND DATA TRANSMISSION/RECEPTION RELIABILITY.

THIS DOCUMENT DESCRIBES THE MULTIPLE
THE AVAILABLE TESTS ARE:

LINE

DATA

TESTS.

PRGO - DATA TESTS
PRG1
DATA TEST(ALL LINES SIMULTANEOUSLY)
PRGZ = TRANSMIT TO TERMINALS
PRG3 - ECHO RECEIVED DATA
REGUIREMENTS

ow>»

EQUIPMENT

2,8

.
.

PDP

DM11

FAMILY

PROCESSER

JUMPERS CONNECTING 16 TRANSMITTERS
RECEIVERS.
TERMINALS (IF AVAILABLE)

DM11

DISTRIBUTION PANEL

STORAGE
THIS PROGRAM USES ALL OF
FOR THE LOADERS.

TG THEIR RESPECTIVE

PREREQUISITE

CZDMA__ DM11

CORE

{(4K)

EXCEPT

70 LOAD

THE

THAT

AREA RESERVED

PROGRAMS

LOGIC TESTS

LOADING PROCEDURE
THE

ABSOLUTE

LOADER

[S USED

PROGRAM,

LEURBJUU

DALY

(ZDMBD.P11

DATA

1515

MALYILY

23=JuL-79 15:08

JSUALIUDZ)

Z26-JUL-79

0B:57

FPAGE

SEQ 0003

USE PROCEDURE

4.1

STARTING PROCEDURE

86
87
gg

BEFORE STARTING MAYE SURE THAT THE TTY IS IN REMOTE MODE.
THREE

94
95
gg

98
99
100
101
102
103
104
105
106
}85

113

114
}}5
6

117
118

};8

121
122

PROVIDED.

0200 - THIS STARTING ADDRESS REQUESTS DM11 PARAMETERS, AND MUST
BE USED TO INITIALLY START THE PROGRAM, AND WHENEVER ANY
OF THE PARAMETERS LISTED BELOW IS CHANGED.

90
91
gg

109
110
}};

STARTING ADDRESSES ARE

VECTOR ADDRESS ?
RESPONSE:
TYPE IN THE VECTOR ADDRESS QF THE DM11
UNDER TEST.
CARRIAGE RETURN SELECTS 0300

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

CSR ADDRESS
175000
175010
175020
175030
175040
175050
175060
175070
CARRIAGE RETURN
C.

RECEIVER

DM11 UNIT #
CSR ADDRESS
0
175100
1
175110
2
175120
3
175130
&
175140
5
175150
6
175160
7
175170
SELECTS UNIT # 0.

DMT1 UNIT #
10
11
12
13
14
15
16
17

PRG #
RESPONSE:
TYPE PROGRAM NUMBER OF PROGRAM YOU WISH T0
RUN. CARRIAGE RETURN SELECTS PROGRAM # 0.

CARRIAGE RETURN TERMINATES ALL RESPONSES.

ANY UNACCEPTABLE RESPONSE WILL RESULT IN A ?
THE PARAMETER WILL AGAIN BE REQUESTED.

TYPEQUT AND

0204 = THIS STARTING ADDRESS USES PREVIOUSLY DEFINED DM1:
PARAMETERS AND REQUESTS THE PROGRAM NUMBER OF THE
PROGRAM YOU WISH TO RUN.

0210 = THIS STARTING ADDRESS STARTS THE PREVIOUSLY SELECTED
PROGRAM USING PREVIOUSLY SELECTED PARAMETERS.

DATA TSTS
MACYI1
23=JuL=79 15:08

30A(1052)

24-JuL-79

08:37

6.2

SWITCH SETTINGS

THE

8
9
0

SR 0-6
SR 9
SR 11

2
2

SR 14
SR 15

PAGE &
o

CLZDMEDO DM11
(ZDMBD.P11

FOLLOWING SWITCH SETTINGS APPLY

TO PROGRAM #0.

ROUTINE TO BE RUN (IF ENABLED BY SR-9)
LOOP SELECTED ROUTINE
INHIBIT ITERATION (DO EACH ROUTINE ONCE)
INHIBIT PRINTOUT

SCOPE (LOOP ROUTINE)
HALT ON ERROR

7
8
9
0

el Ll P

2k b

uF 2 o

V® NV W=D
0BT N
rw

THIS PROGRAM HAS BEEN MODIFIED 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 T0.
IF 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)
POSSIBLE

RESPONSES

<CR>

NEW=

ARE:

6 DIGITS 0-7

SWR=XXXXXX

NO CHANGES ARE

T0 REPRESENT

VALUE

;LAST

TO BE MADE

IN OCTAL

DIGIT

THE NEW SWITCH REGISTER

FOLLOWED BY

TO ALLOW REENTERING VALUE

KEYING

IN SWREG VALUE.

<(CR>.

ERROR

BUILT INTO THE PROGRAM IS THE ABILITY TO DYNAMiCALLY CHANGE
CONTENTS OF SWREG DURING PROGRAM EXECUTION. BY STRIKING “G

IS COMMITTED
THE

(CNTL G) ON CONSOLE TTY THE OPERATOR SETS A REQUEST FLAG TO CMANGE
THE CONTENTS OF SWREG, WHICH 1S PROCESSED IN KEY AREAS OF THE PROGRAM
CODE (1E) ERROR ROUTINES, AFTER HALTS END OF PASS, AND OTHER
APPLICABLE AREAS.

(ZDMBDO DM11
(ZDMBD.P11
160
161
162
163
164
165
166
167
168
169
170
171
172

DATA TSTS

MACYT1

23=JuL=-79 15:08

30A(1052)

24-JUL-79 08:37 PAGE 5

5.0

PROGRAM DESCRIPTIONS

5.1

PRGO - LOGIC TESTS
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.

173
174
175
176

5.2

178
179
180

3.5

BACK

202

1234567890' ON ALL LINES SIMULTANEOUSLY.

FINISHED RECEIVED DATA

177

181
182
183
1 84
1 85
1 86
| 87
| 88
1 89
| 90
] 91
| 92
193
| 94
| 95
1 96
|97
1 98
| 99
2 00
20 1

PRG1 =
DATA TEST (ALL LINES SIMULTANEOUSLY)
PROGRAM 1 TRANSMITS ' A QUICK BROWN FOX JUMPED OVER

5.4

IS VERIFIED.

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

PRG3 -

ECHO RECEIVED DATA

NOTE:
THIS PROGRAM MAY ONLY BE
ASR 33 NOT MODIFIED BY DEC.

RUN

AN ERROR

EXCEPT

THE

LAZY

DOGS

WHEN ALL LINES HAVE

TYPEOUT

THAT

THE

IS AS

IN PRGO.

RECEIVED

USING AN

PROGRAM 3 ECHOES BACK DATA RECEIVED FROM A TERMINAL.

NOTE:

DM11

PROGRAM 3 SHOULD BE RUN AND DATA TYPED AT

TERMINALS.

IS THE ONLY TEST THAT

ALL AVAILABLE

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 WITH
THE PUNCH TURNED ON.
PROGRAM 2 WILL THEN PUNCH A TAPE ON EACH TERMINAL
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

CHANGE
NOTE:

HISTORY
CHANGE

HISTORY

STARTS WITH REV.

(ZDMBDO - TABLE BASE ADDRESS

(TBR)

10 400 WORD BOUNDARY

LOC.

(1000,1400,2000,ETC.),

1100 CHANGED TO 1200, AND LOC.

THEREFOR

SET

1106 (HANGED 10 1400

Efonsoo DM11 DATA T1S1S
DMBD.P11

MACY!!

23=JUL=79 15:08

203
204
205
206
207
208

30A(1052)

24=-jUL=-79

O0B:37

PAGE 6
SEQ 0006

.TITLE CZDMBDO DMi1 DATA T1STS
NLIST
MC.MD
LLIST
ME
.ENABLE ABS.,AMA

5?8
211
212

;CIDMBDO DM11 DATA TSTS
;COPYRIGHT 1972,1979 DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754

213
214
215

;PRGO- DATA TESTS
;PRG1- DATA TEST (ALL LINES SIMULTANEOUSLY)
;PRG2- TRANSMIT TO TERMINALS

S}?

;PRG3-

218

ECHO RECEIVED DATA

;STANDARD SR SWITCH OPTIONS [SWITCH SET TO A 1

219

;SR15- HALT ON ERROR

220
221

222

;SR14~- SCOPE.
;SR13- INMIBIT PRINTOUT
;SR12- INHIBIT TRACE

224
S%Z

;SR9- LOOP ROUTINE.
;SR6 THROUGH SRO = NUMBER OF

225%

;SR11= INHIBIT ITERATION.

227
228
229
230
23
232
233
234
235

177776
177776
000004
000240
000000
100000
100000
040000

;EQUATE STATEMENTS
CC=177776
PSW=177776
ERRVEC=4
NOP=240
OPEN=0
MANUAL=BIT15
BIT15=100000
BIT114=40000

237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252

010000
004000
002000
001000
000400
000200
000100
000040
000020
000019
000004
000002
000001
005726
022626
000340

BIT12=10000
BIT11=4000
BI1110=2000
B119=1000
B178=400
B117=200
BI116=100
BI115=40
B114=20
BI13=10
BI112:=4
BIT1=2
BI10=1
POPSP=5726
POPSP2=022626
PRTY7=340

000040

PRTY1=40

23%6

253
254
255
256
257
258

(UP)]

020000

000300
000240
000200
000140
000100

ROUTINE TO BE LOOPED.

BI1T113=20000

PRTY6=300
PRTYS5=240
PRTY4=200
PRTY3=140
PR1Y2=100

;POP THE STACK. SAME AS TST (6«
;POP STACK TWICE. SAME AS (MP (6)+,(6)
;PRIORITY LEVEL DEFINITIONS

(ZOMBDO DR11

(IZDMBD.P11

259

DATA

T1STS

000000

260
26"

000000
000001

262
263
264
265
266
267

000002
000003
000004
000005
000006
000007

269
270
271
272

1064000
104001
104002
104003

268

273
274

MACY11

23=JUL=-79 15:08

30A(1052)

24-3UL-79

O0B:37

PAGE

PRIYO=0

RO=20
R1=21

R2=-%2
R3-23
R4=%4
R5=%5
SP=%6
PC=%7

SEMT CALLS

TYPE=EMT+0
TYPES=EMT+1
STALL=EMT+?2
ERROR=EMT+3

104004
104006

DATCHK-EMT+4
STRXV=EMT+6

ggz

104010
104012
104013
104014
104015
104016
104017

104020

EHALT=EMT+10
SCOPE=EMT+12
SAVREG=EMT+13
RSTREG=EMT+14
ERROR1=EMT+15
SUSWR=EMT+16
KBDIN=EMT+17

285

000007

BELL=007

287

125252

ALT0=125252

275

1046007

276
277
278
279
280
281
282

286

1727117

288
289
290

052525
000000
177777

291
292
293
294
295
296
297
298
299
300
301
302
303
306
305

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

308
309
310

000036
000040
000042

i}%

000046
000050
000052

306
307

311

314

000032
000034

00004&

STIXV=EMT+7

CNTLU=EMT+20

ATLAST==-1

ALT1=052525
y=0
X=-1

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

A=0
oF
HALT
HALT
42
HALT
.42
HALT
.42
HALT
.42
HALT
42
HALT
EMTINT

000000
000042
000000
000046
000000
000052
000000

HALT
N
HALT

000340
000036

PR1Y7
.42

.42

HALT
v e
HALT

sALTERNATING 0'S PATTERN

sALTERNATING 1'S PATTERN

;SP OVERFLOW, BUS ERROR TRAP
;RESERVED INSTRUCTION TRAP
;TRACE TRAP

;TRAP T0 CALL 10X
;POWER FAIL TRAP
;EMT

TRAP

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

DATA TSTS

000054
000056

VGO

NN
N W
L
NL N
N
N U N N N
N1 N
~
NN NN
NL
Wi
NNPNONPININUN
- s s

=O VRN NS NN =D OO o

(ZOMBOU DM11
CZDMBD P11

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

340

COVBYO
NI NN -=0O

B LI
N
e e
o Y I IV IV IV IV IV AW

000000
000142
000000
000146
000000
000152
000000
000156
000000

361

000232

MACYIT1

23=JuL-79 15:08

000162
000000
000166
000000
000172
000000
000176
000000
000202
000000
000206
000000
000212
000000
000216
000000
000222
000000
000226
000000
000232
000000

30A(1052)

26=JUL-79

O0B:37

PAGE B
5FQ 0008

.42

HALT

; TRAPPED

TO PREVIOUS

HALT

; TRAPPED

TO PREVIOUS ADDRESS.

HALT

; TRAPPED

TO PREVIOUS ADDRESS.

HALT

; TRAPPED

T0 PREVIOUS ADDRESS.

HALT

; TRAPPED

TO PREVIOUS

ADDRESS.

HALT

: TRAPPED

TO PREVIOUS

ADDRESS.

HALT

; TRAPPED

TO PREVIOUS

ADDRESS.

HALT

; TRAPPED T0 PREVIOUS ADDRESS.

HALT

; TRAPPED

TO PREVIOUS ADDRESS.

HALT

; TRAPPED

10 PREVIOUS

ADDRESS.

HALT

: TRAPPED

TO PREVIOUS

ADDRESS.

HALT

; TRAPPED TO PREVIOUS ADDRESS.

HALT

; TRAPPED

TO PREVIOUS

ADDRESS.

HALT

; TRAPPED. TC PREVIOUS

ADDRESS.

HALT

; TRAPPED

T0 PREVIOUS ADDRESS.

HALT

: TRAPPED

TO PREVIOUS ADDRESS.

HALT

: TRAPPED TO PREVIOUS ADDRESS.

HALT

; TRAPPED

T0 PREVIOUS ADDRESS.

HALT

; TRAPPED

TO PREVIOUS ADDRESS.

HALT

; TRAPPED

TO0 PREVIOUS ADDRESS.

HALT

; TRAPPED

TO PREVIOUS ADDRESS.

HALT

; TRAPPED

TO PREVIOUS ADDRESS.

HALT

; TRAPPED

TO PREVIOUS ADDRESS.

HALT

: TRAPPED

T0 PREVIOUS ADDRESS.

HALT

: TRAPPED 10 PREVIOUS ADDRESS.

.*2

.42

.42
o*2

.42

«42

-‘2

o¥2

o %2
.’2

42
.42

.‘2

. 42
.+

.42

HALT

-.2

HALT

.42

HALT

ADDRESS.

s TRAPPED

TO PREVIOUS ADDRESS.

; TRAPPED

TO PREVIOUS ADDRESS.

s TRAPPED

10 PREVIOUS ADDRESS.

€2 DMBDO DM11
CZDMBD.P1 !

371
372
373
3764
375
376
377
378
379
380
381
382
383
584
385
386
387
388
389

390

DATA TST1S
MACY11
23-JuL=-79 15:08

000234
000236
000240
000242
000244
000246
000250
000252
000254
000256
000260
000262
000264
000266
000270
000272
000274
000276
000300

000302

000236
000000
000242
000000
000246
000000
000252
000000
000256
000000
000262
000000
000266
000000
000272
000000
000276
000000
000302

000000

30A(1052)

24-juL-79

.42
HALT
.+2
HALT
.42
HALT
.42
HALT
.42
HALT
.42
HALT
Y.
HALT
.42
HALT
.42
HALT
R

HALT

391
392
393
394
395
396
397
398

000304
000306
000310
000312
000314
000316
000320
000322

000306
000000
000312
000000
000316
000000
000322
000000

2
HALT
.42
HALT
.42
HALT
.42
HALT

400
401
402
40%
404
405
406
407
408
409
410
411
41¢
413
414
415
416
417
418

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

000000
000332
000000
000336
000000
000342
000000
000346
000000
000352
000000
000356
000000
000362
000000
000366
000000
000372
000000

HALT
.42
HALT
.42
HALT
.42
HALT
,42
HALT
.42
HALT
.42
HALT
.42
HALT
.42
HALT
.2
HALT

399

419
«3?
&

000324

000374
000376

000326

000376
000000

.42
HALT

08:37

PAGE 9

SEQ 0006

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

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

:TRAPPED TO PREVIOUS ADDRESS.

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

;TRAPPED TO PREVIOUS ADDRESS.
:TRAPPED TO PREYIOUS ADDRESS.
:TRAPPED TO PREVIOUS ADDRESS.
;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 TO PREVIOUS ADDRESS.
;TRAPPED TO PREVIOUS ADDRESS.
;TRAPPED TO PREVIOUS ADDRESS.
; TRAPPED TO PREVIOUS ADDRESS.
;TRAPPED T0 PREVIOUS ADDRESS.

(ZDMBDO DM11
CZDMBD.P11
422

423
424
425
426
427
428
429
430

431

432
433
434
435
436

437
438
“39

DATA TSTS

23=JuL~-79 15:08

000200
000137
000137

002404
002422

JMP
JMP

a¥#START
a#RSTATI

000210

000137

002472

JMP

A#RSTAT?

.=46
SENDAD

SACTT1

HOOKS

.=92
020000

.=174

DISPREG: 0
SWREG:
0

.=200

001200

TV P

A AT
LY

~ oo

Lo ol s RV RV L

elelelelolels]

001500

1.1

465

466

470
47
472
473
W74
475
476
77

;GO TO START OF DIAGNOSTIC.
;GO GET PROGRAM # & RESTART PROGRAM
:USING PREVIOUS DM11 PARAMETERS

;RESTART

PREVIOUS PROGRAM USING

;PREVIOUS DM11

001440

469

5eQ 0010

000200
000204

47
448
449
450
451
452

468

PAGE 10

000174
000000
000000

001400

467

0B:37

000174
000176

445

453
454
455
456
457
458
459
460
461
462
463

24-JUL-79

000052

001200
001202
001204

44b

30A(1052)

000046
003022
000052
020000

000046

440
441
442
443
Gyl

MACY11

002000
002002
002004
002006
002010
002012
002014
002016
002020
002022

000000
177570
177570

001400
000000
001440
000000
001500
000000
001540
000000
175000
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

PARAMETERS

.=1200
SPBOT:
0
177570
SWR:
DISPLAY: 177570
.=1400
CAT:
OPEN
.=CAT+32,
wirT:
OPEN
LcW(T+32,
T:
BA
OPEN
.=BAT+32,
VAC:
OPEN
175000
CSR:
175002
BAR:
175004
BKCSR:
BASREG: 175006
CLKINT: OPEN
CLKLVL: PRTYS
XMTIN : OPEN
XMTLVL: PRTYS
BARIM:
OPEN
TTDAT:
OPEN
LINBIT: OPEN
BARDAT: OPEN
TTPTR:
OPEN
TUMTAB:
TKVIR:
TKLVL:
TPVIR:
TPLVL:
KSTART:

CURTST:

RTNNO:
NXTST:

ICTR:
SCOPTIR:

.=VAC+32,

OPEN
.=TUMTAB+128.

PRTY4

PRTY4
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN

:STARTING ADDRESS OF
:CURRENT ADDRESS TABLE
;STARTING ADDRES OF
;WORD COUNT

TABLE

:STARTING ADDRESS OF
;BIT ASSEMBLY TABLE

:32. SPARE WORDS
;ADDRESS OF

;ADDRESS OF

CLOCK STATUS REGISTER

BUFFER

ACTIVE

;ADDRESS OF BREAK STATUS REGISTER
:ADDRESS OF BASE REGISTER

;:DM11 VECTOR ADDRESS (RECEIVER)

;PRIORITY

LEVEL

;DM11 VECTOR ADDRESS (TRANSMITTER)

;TRANSMITTER PRIORITY LEVEL
;PROGRAM BAR IMAGE

;TUMBLE TABLE DATA
;LINE BIT (FOR BAR)

;BAR DATA

;PROGRAM TUMBLE

TABLE

POINTER

;STARTING ADDRESS OF

: TUMBLE

TABLE

;LSR INTERRUPT VECTOR
;LSR PRIORITY LEVEL
;LSP INTERRUPT VECTOR
sLSP PRIORITY LEVEL
:CURRENT PROGRAM START ADDRESS,
;CONTAINS ADDR OF CURRENT TEST,
;CONTAINS CURRENT TEST &,
;CONTAINS ADDR OF NEXT TEST,
;CONTAINS CURRENT ITERATION COUNT
;CONTAINS CURRENT SCOPE POINTER,

(REvV.

DO)

(REV.

DO)

CZDMBDO DM11
(20UMBD P11

478
479
480
481
482

48%

484
485

686

4«87

488
489
490

491
492
493
494

495
496
497

WB W

VB NN —=O

AL AU AU AN AU AU AN U AU U AU U
NW
POPTOPUNUNUNG
= = et et d et et s s
j=jelele]

498
499

DATA TSTS

002024

MACY11

23=JuL=79 15:08
177774

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

177564
177566
000000
000000
000000
000000
000000
000000
000000
000000

000000

30A(1052)

24-JUL-79
PRGL IM:
PRGTAB:

RSTART:

EMTTAB:

-4

PRGO
PRGI
PRG2
PRG3
PRGOR
PRGIR
PRGZ2R

;PRGO START ADDRESS

;PRG1

START

ADDRESS

;PRG2 START ADDRESS

;PRG3 START ADDRESS
;PRGO RESTART ADDRESS

PRG3R

TYP
OPEN
OPEN
ERR
DTCHK
OPEN
OPEN
OPEN
OPEN
OPEN
ESCOPE
SAVRG
RSTRG

:PRG‘

:PRG2
:PRG3

'
)

G
"

;POINTER
sPOINTER
sPOGINTER
;PCINTER

TO TYPEOUT ROUTINE
TO CHAINED MESSAGES ROUTINE
TO RANDOM STALL ROUTINE
TO ERROR ROUTINE

ERR1

SUSWRR
KBDINTT
CNTLUU

SRT:

TKCSR:
TKDBR:
TPCSR:
TPDBR:
RCVDAT:

XMTDAT:
:
CARMSK
TEMP:

PCADD:
APCADD:
PRVCNT:

LINE:
:
L INBUF

PASS:

104000

INCRTIN:

013300
000207

PAGE

SEQ 00N

000000

08:37

COUNT:

OPEN

177560
177562
177564
177566
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
TYPE
M1
RTS

;TYPE

“EXI
Y.

INCORRECT RCUTINE SELECTED.

ala)
~e

0O OM11 D ATA 151§

g\l‘\l‘\l‘sNNN

UYWL NN
WA Y A
Wi~ NN
no
0L+
T VBN
=00V~ o

23-JuL~-79

123737

001416
004737
032777
001010
004537
002140
013254
000002
104015

?;(5;1

30A(1052)

002122

002124

S NNNNNNNONN

oo
S =SS WO W
—_no NONNNS NN
WwiN — N
NN =
N

=d= OO —-0000

AT AT LIV IV
Al IV
-0
A

O WA e b
OVeeNOUnS W

et AR Al LAV TV

013734
000006
004537

002014
013724
000003
104000

002356
02000¢C

177002

005112

WO N~~~ NNNN~N
OOV Ny
—

002354

002356
002362

1%:

002364
002366
002370
002374

?gvDAl.XHTDAY

7,CNVDAT
#BIT13,3SWR
£ °
5.,3#0ACNV

;COMPARE EXPECTED AND RECEIVED
sCHARS. BRANCH IF SAME,
;CONVERT RCVDAT & XMTDAT TO ASCII
sERROR TYPEOUT DESIRED?
;BRANCH IF NO TYPEOUT DESIRED
; CONVERT LINE
:NUMBER
;70 ASCII

;TYPE

LINEM
R71

;OF
:

LINE

# AS PART

ERROR MESSAGE

EXLT.

;ERROR SERVICE ROUTINE CALLED BY TRAP (HLT)
MOV
#4602 ERRB
;MOV BR

000492
002132

002324
002134

ERR:

000240
002132
002356

002324
002134

ERR1:

BR
MOV
MOV

020000

176710

ERRA:

KBDIN

005112

MOV

JSR

BIT
BNE
JSR

APCADD
APC
6
JSR
RTNNO
ATNUMB

005112

.+6 TO ERRB

a#PCADD ,a#APCADD

;GET

7 ,@#CNVDAT

;MOVE NOP TO ERRB
;GET PC WHERE ERROR OCCURRED
;CONVERT RCVDAT & XMIT DAT TO ASCI!I

ERRA
#240,ERRB
a#PCADD ,a#APCADD

#BIT13,3SwR
ERRC
5,3#0ACNV

5.3%#0ACNV

PC WHERE

;CHECK

FOR

;TYPE

ERROR

ERROR OCCURRED

;ERROR PRINTOUT DESIRED
sBRANCH 1F NO PRINTOUT
s CONVERT
;DATA
;10
sASCII
;FOR
sPRINTOUT

TYPE

000042

000046

ERRB:

EMO
OPEN

ERRC:

ERDAT
(mp

176634

000000
104017
000002

004537
002124
013220
000006
004537
002122

(MPB
BEQ
JSR
BIT
BNE
JSR
LINE
ALINE
TYPE

104000

100001

2
ERROR1

013721
000000

013200
023737
001403
005777

PAGE 12

:DATA (HECK ROUTINE.

DTCHK:

104000

548

08:37

SEQ

013245
000002

Aol
LV IV LV TV IV TV}

24-JuL-79

ERRHLT:
ERREX:

005112

sMESSAGE

:NOP IF ERROR1, BR .+6
;TYPE ANOTHER MESSAGE

TYPE

BEQ

187
BPL
HALT
KBDIN
RTI

CLLY LI
ERRHLT
aSWR
ERREX

;ACT11?
;BR

sHALT

YES

ON ERROR

;G0 TO EXIT
JHALT

IF NO HALT ON ERROR

;CHECK FOR *G
;RETURN

5 ,0ACNY

ERROR

;1F ERROR 1

;SUBROUTINE TO CONVERT RCVDAT AND XMIDAT T0 ASCII AND PLACE
; IN MESSAGE.
5.0ACNY
CNVDAT: JSR
XMTDAT
AASB
6
JSR
RCVDAT

001

HA(sgl 30A(1052) 24-Jui-79 08:37 PAGE ISN

CZDMBDO DM11 DATA T1STS
(Z0MBD P11
23-JuL=79 15

L ek

637

002650
002652
x

012706
104016
004737
004737
012706
023737
001405
104000
013260

004537
000000
043737
006337
013700
000170
012706

013700
000170
022737
001410

023737
001405

AWAS

6
RTS

001200
003334
004042
001200
000042

START:

000046

004076
002024
002446
002446
002026
001200
002446
002036
000176

001202

000042

000046

002446

RSTAT1:

MOV
SUSWR
JSR
JSR
MOV

CMF
BEQ
TYPE
M0
JSR
PRGNUM: 0
BIC

RSTATZ:
SRSET:

ASL
MOV
JMP
MCv
MOV

JMP
CMP

BEQ

(MP
BEQ

TYPE

SEXIT

¥SPBOT,26

SINITIALIZE STACK
;CHECK FOR HARDWARE SWITCH REGISTER
:GET DM11 PARAMETERS
;PUT HALT,.+2 IN VECTOR AREA
SINITIALIZE STACK
;ACT11?
;BR IF YES

7 ,a#DMPAR
7 ,a#0VRLAY

#SPBOT,
X6

aNL2

PRGNUM+?2

5.RECD
PRGL IM,PRGNUM
PRGNUM

PRGNUM,
%G
aPRGTAB(0)
#SPBOT%6
,
PRGNUM%0
,
dRSTART(0)

#SWREG,
SWR

1%
L2 ,ansé
GETRDY

HALT

~ NUWN—=ONNNS
2O N NONONNO
WWWNWNO
OO OO0 NONWO
O WWWN
P NNV NNNOOO
= NW NN
NN~NO

002516
002524
002526
002530
002532
002534
002536
002540
002546
002554
002560
002564
002566
002572
002600
002602
00606
002610
002614
002620
002624
002626
002632
002640
002642
002646

013235
000006
000207

o (=] - o l=le etod=loleleleleleleleleTe
T
o > o NOONS wO00WOO—=0O—=—0O
< &~ —=NVO =W
NOO =S OoONVMINW
S

ed L A IV IV L WL N WL N

S ST ST

YDN et

s e e

s el

OV W —=OO0ONO
WD
iy — OOV
NV
W —

ococoocococoocococococCocCc> coocooococooco

582 002376
583 002400
584 002402
585
586
587
588 002404
589 002410
590 002412
591
002416
592 002422
593 002426
594 002434
595 002436
596 002440
597 002442
598 002446
599 002450
600 002456
601
002462
602 002466
603 002472
604 002476
002502
002506
002514

000240
005077

SEQ 0013

002010
000006
177776

002016
000004

001200

003032
001000

176402

177204

176366
177600

002014

177160
177777
002150

002016

BR
CNTLU

1%:
GETRDY: MOV
GTRDYX: MOV
CLR

GTRDYA:

MOV
RESET

KSTART ,NXTST
#6,3/ERRVEC
PSW
#SPBOT,
%6

JSR

%7,FORWD

JMP
BR

dCURTST
SCOPED
aSWR, %0
#177600,%0
RTNNO,
%0
GTRDYD
aCURTST

BIT
BNE

GTRDYC: MOV
BIC
CMPB
BNE
JMP
:
GTRDYD
(MpP
BNE
JSR
BR

: SCOPE ROUTINE

176664

GETRDY

ESCOPE: NCP
CLR

#B119,aSWR
GTRDYC

#-1_NXTST
GIRDYA

%7 ,INCRIN
GETRDY

(CALLED BY EMT
a(SR

;GET THE PRGNUM §
;PUT IT HERE

;MASK

OFF

UNUSED BITS

;SHIFT PROGRAM #
:GET PROGRAM #

:GO START PROGRAM

;INITIALIZE STACK
:GET PROGRAM #
;GO RESTART PROGRAM
SACTIN?

;BR IF YES
:TYPE OPTIONS MESSAGE

;WAIT FOR USER TO SET OPTIONS
:ADDR OF

1ST

ROUTINE

sRESET ERROR TRAP.

TO NXTSIT

:SET BOTTOM OF STACK.
; ISSUE RESET.
;ROLL FORWARD TO "NEXT'' ROUTINE.
;CHECK SELECT ROUTINE SWITCH
:BRANCH IF SELECT ROUTINE SWITCH IS SET,
;GO RUN CURRENT ROUTINE.
:NO GO. MANUAL RTN BYPASSED.

:(SR) T0 RO

:MASK UNDESIRED BITS
: COMPARE RTNNO TO (RO)

;BRANCH IF ROUTINE NOT FOUND YET,

;G0 RUN ROUTINE.
:NO. CHECK FOR LAST ROUTINE.
;BRANLY IF NOT LAST ROUTINE.
;YES. INCURRECT ROUTINE SELECTED.

;START OVER.

INST.)

JINITIALTZE

654
655

656
657
658

659
660
661
662

NN NI O U N NN~

R T

001400
040000

176652
176276

002922
004000

000042

17626C

000046

002144
002020
001000

176222

177777

002016

KBDIN

BNE

CcMpP
BNE
INC
TYPE
M2
MOV

BEQ

RESET
NOP
NOP
NOP
NOP

666

NNNNNNWT

OWRNWWNWO

rVVUOBVUOYA
N

olelelelalels]
L
R
oo
W

SCOPEB
SCOPTR,a%6

N2 ,anub

1%
9#PASS
SCOPEC
ICTR
SCOPEA

#B1T19,aSwR
GETRDY
#=1,NXTST

GTRDYX
a#PASS

CLLY
AN ¥4
GETRDY

;DM

;CHECK FOR SCOPE OPTION.
;BRANCH IF SCOPE SWw NOT SET.
sSET UP TO RETURN TO ROUTINE.

:RETURN TO ROUTINE.

;TEST

INHIBIT ITERATION SWITCH

;BRANCH IF INHIBIT
JACT11?

ITERATION SWw SET.

:BR IF NO

;1ST PASS?

;BR IF YES
;DECREMENT ITERATION COUNT.
sBRANCH IF COUNT NOT 0.

;POP STACK

TWICE

;CHECK SELECT ROUTINE SWITCH
:BRANCH IF SELECT RTN Sw SET
JLAST TEST?
sBRANCH IF NOT LAST TEST.
s IND PASS
:TYPE

;"END!
sCHECK DDP/ACT11

MONITOR HOOK

;RETURN TO DDP/ACT11

FORWD:

NXTST,%5
(5)+ ,RTNNO
(5)+ NXTST
(5)¢,1CTR
(5)+,SCOPTR
%5, CURTST
%7

;ADDR OF NEXT ROUTINE TO RS.
;GET NEXT ROUTINE NUMBER.
;GET ADDR OF NEXT ''NEXT'' ROUTINE.

MOV
MOV
MOV
MOV
MOv
MOV
RTS

EMTINT: MOv
SUB
MOV
MOV

CLRB

ASL
ADD
MOV

002046

003152

: THE

7.62)

;EMT TRAP INTERPRETER

000002
002132
000000
000001

SENDAD: JSR

NOP
NOP
NOP

OO0 —-=00—0O
P OO~
—a O —=
WO
N~y == N —
O NWO OO WO
O = s O — g — I~
~woooowoo

@BK (SR
@BAR

#BIT11,3SWR
SCOPEC

RT11

BIT
BNE
(mMp
BNE
187
BEQ
1%:
DEC
BNE
SCOPEC: POPSP2
SCOPED: BIT

664

012637

SCOPEB:

000042

003032
003036
003042
003046
003052
003056
003062

#CAT ,@BASREG
#BITI14, QSWR

66%

667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693

PAGE

MCv
g1
BEQ
SCOPEA: MOV

002144

663

0B8:-37

(LR
(iR

653

002740
002742
002746
002750
002752
002760
002762
002770

254-,UL-79

176664
176656

647
648
649
650
651
652

30A(1052)

646

645

bbb

NNVVNOWWNESE N NO N %
“3
WO NN WVARO RO W = O = O~y TM =~ ~y

640
b1
642
643

002656
002662
002666
002670
002676
002704
002706
002712
002714
002722
002724
002732
002734

MACYTT
2%=JuL-79 15:08

OOOOOO
=

638

639

DATA 151S

OO0V

CZDMBDO DM11
(ZDMBD

(6),-(6)

(6),PCADD
a(6),(6)
1(6)
(6)
#EMTTAB,
(6)

a(6)+,27

:SAVE REGS 0 10 & SUBROUTINE.

SAVRG:

MOV

(6)+,1%

MONITOR

;GET ITERATION COUNT.
;GET SCOPE LOOP ENTRY POINTER.
;ADDR OF NOW CURRENT TEST TO CURTST,
;EXIT FORWD SUBROUTINE.
:GET PC OF NEXT

INSTRUCTION

;POINT SP TO PC OF EMT
;GET PC OF EMT CALL
SGET EMT CALL
;STRIP EMT B SAVE IDENTIFIER
;SHIFY IDENTIFIER LEFT
;G0 TO PROPER EMT
;SAVE PC AND PSW,

NN—a.‘—a_.—a—n—._.—-

NN NNNNNNNNN~

—OV®WNO
VI
N —

706

000240
012637
012637

012600

003214
003216
003220
003222
003224
003230
003232

S —-00 N

VMW

—O

NNNNNN NNNNNNNN~N
Ltk ok
L UM L
N
L
N

re9

012637
010446
010346
010246
010146
010046
013746
013746
000002
000000
000000

003236
003244

003246
003250

012601
012602
012603
012604
013746
013746
000002
000000
000000

000240
011600
062716
011000

O—=0O—=0O—=—=—00
—_, OO
- O—=O—=000—00
OO
—
SFOSFNOOWVMWO
S
O —noN
NNNNNVWNNNNS YNOONO
WHNHWWHWO
NN N
W= WO O W
NNNNNUMNNNONNO
NN - NN

701
702
703
704
705

AU
S

694
695
696
697
698
699
700

FRSrOFFRERN

(ZDMBDO DM11 DATA TSTS
HA(V&I
(ZOMBD.P11
23-JUL=79 15:0

001

000740
000000

30A(1052)

000240
023737
001060

08:37

PAGE 15

C
SEQ 0015

003154

MOV

MoV
MOV
MOV
MOV
Mov

003154
003152

MOV
MOV

1%:

2%:

RT1
OPEN

(6)+,2%

24,-(6)
23.-(6)
22,-(6)
%1.,-(6)
20,-(6)

2%,-(6)
1%,-(6)

sSAVE REGS 0 - &
sIN STACK.

;RESTORE PC AND PSW.
SEXIT.
;CONTAINS

OPEN

SAVED PC

;CONTAINS SAVFD PSW

sRESTORE REGS 0 TO & SUBROUTINE.

RSTRG:

003214
003216

003216
003214

NOP

MOv
MOV

(6)+,1%
(6)+,2%

;SAVE PC AND PSW.

MOV
MOV
MOV
MOV
MOV

(6)+,%0
(6)+,%1
(6)+,%2
(6)+,%3
(6)+,%4

JRESTORE REGS 0 - 4
;FROM STACK.

MOV
MOV
1%:
2%:

RT1

2%,-(6)
1%,-(6)

sCONTAINS SAVED PC
sCONTAINS SAVED PSW

YF:

MOV

000002

ADD

1%:

MOV

ASCI1 MESSAGE ON TELETYPE

(SP),%0

;GET

8%0,%0

;ADDRESS OF

#2,(SP)

ADDRESS THAT

SR P ERIT.

CONTAINS MESSAGE

MESSAGE

TC RO.

003332

000045

003332

2%:

CMPB
BEQ
é:R

#45,5%
4%
}2.55

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

003332

176624

3%:

MOVB

5%,3TPDBR

;OUTPUT CHARACTER TO PRINTER

000015
003266
000012
003266

003332

4$%:

176616

003332
5%:

RT1

1S18B
BPL
RTS

MOVB
JSR
MOVB
JSR
BR
OPEN

(0)+,5%
#100,5%
2%

PRINTER.

003332
000100

003266

MOVB
CMPB
BNE

JRESTORE PC AND PSW.
SEXLY

OPEN
OPEN

%SgBROUYLQE TO OUTPUT

745

746
747
748
749

24-JuL-79

aTPCSR
=4
x7
#15,5%

%7,343%
#12,5%
%7.3%
1%

;GET CHARACTER
;CHECK FOR''®''CHARACTER
;BRANCH IF NOT'@'.

;TERMINATOR CHAR.

000046

DMPAR:

NOP

CMP
BNE

aNL2 ,an4b
6%

EXIT.

;WAIT FOR DONE FLAG.
JEXIT

;MOVE CARRIAGE RETURN CODE 10 5%
;60 TYPE CHAR.
;sMOVE LF CODE 1O 5%.
;GO TYPE CHAR.

sSUBROUTINE TO GET DM11 PARAMETERS
sVECTOR ADDRESS

000042

DONE.

;BEGIN

ACT11?
;BR IF NO

ADDRESS.

Cl DMBDO DM11 DATA 1STS
MACYI1
CZDMBD.P11
23=JUL=79 15:08

750
751

752
753

754
755
756
757
758
759
760
761
762
765
764
765
766
767

768
769

770

771
772
773
774
775
776
777
778
779
780
781
782
785
784
785
786
787
788
789
790
791
792

;32

795
796
797
798
799
800
801

802

803
804
805

003346

003352
003356

003362
003364
003370
003372
003400
003406
003414
003422
003430
003434
003442
003450
003454
003456

003460
003462

003466

003472
003500
003504
003506
003512
003514
003516
003522
003524
003530
003532
003540
003546
003550
003552
003554
003556
003564
003566
003574
003576
003604

003612

003620
003626
003630
003632

003634
003640

003642
003650

003652
003656

012700

010060
012720

005720
022700
100370
012737
012737
012737
012737
012777
005037
012777
012737
005337
001375
104003

000752
162716

011637

012737
004737
000415
004737
104000
013050
004537
000000
005737
001003
012737
023727
103003
104000
013300
000667
023727
101371
032737
001365
013737
062737

013737

023737
001405
104000
013143

004537
000000

023727
101403

104000
013300

30A(1052)

000302

177776
000003

24-JuL-79

4%:

000776

003462
000340
177777
007362
000105
177776
000001
177777
002146

000014
000016
001440
001400
176112
s
176102
002146

000004

003522

000016
004042

000014

004076
003522

003522
000300

003522

000770

000007

003522

003522
000004

001552
003522

003522
000042

001556
000046

004076

003640

2%:

5%:

004042

000300
003522

3%:

000017

08:37

PAGE 16

SEQ 0016

:SIZE FOR INTERRUPT VECTOR IN AUTO MODE
MoV
#302,R0
;SET UP FLOATING VECT AREA

MOV
MOV

1871
cMP
BPL
MOV
MOV
MOV
MOV
MOV
CLR
MOV
MOV
DEC
BNE
ERROR

BB
SUB

MoV

MOV
JSR
BR
6%:
JSR
TYPE
WHERE
JSR
VECTOR: 0
181
BNE
MOV
VECOK:
CMP
BHIS
VECOKA: TYPE
M1
BR
VECOKB: CMP
BHI
BIT
BNE
MOV
ADD

MoV

;UNIT NUMBER
DMPARB: (MP
BEQ
TYPE
WHICH
JSR
UNIT:
O

(mMpP

BLOS
TYPE
M1

RO,-2(R0)
#3,(R0O)+

(RO)+
¥#776 RO
4%
#5% an14
:SET BPT VECT
#340,ar16
;R PSW
£-1,uC1
;SET TO XMIT 1 CHAR
#OUTBUF ,CAT
#BIT64BIT2+B!T0,aCSR
;SET IE
arPsk
;LVL 0
#B170,3BAR
JXMIT
#-1,COUNT
WALT
COUNT
2%
;NO INT OCCURRED

3%
#5,(SP)

(SP) ,@#VECTOR

16,3814
7.,0VRLAY
VECOK
7,0VRLAY
S,RECD

VECTOR
VECOK
#300,VECTOR
VECTOR,#300
VECOKB

;KEPEAT IT
sCALC INT VECT

:STORE

;RESTORE BPT VECT
;.+2, HALT IN VECT AREA
;PUT HALT,.+2 IN VECTOR AREA
;ASK USER FOR RECEIVER INT. VECTOR

;OF UNIT UNDER TEST
;GET THE VECTOR &
:PUT IT HERE

;SET VECTOR = 10 0300
;1S VECTOR HIGHER OR

;EQUAL TO 0300

:TYPE

*?°

DMPAR
VECTOR,#770
VECOKA
#7,VECTOR
VECOKA
VECTOR,a#CLKINT
#45 ,VECTOR

;ASK FOR ANOTHER VECTOR
;1S VECIOR = T0 OR
;LESS THAN 770
;LSB OF VECTOR MUST BE ALL 0'S

NG, aNb
UNIT+2

;ACTIY?
;B2 IF YES

S.RECD

;GET THE UNIT &
;PUT |1 HERE

VECTOR,3#XMTINT

UNLT,#17
1%

CZOMBDO DMT1
CZDMBD.P11

806
807
808
809
810
811
812
813
814
g}g

817

818
819

DATA TSTS
MACYIT
Z3=JuL=-79 15:08

003656
003660
003664
003670
003674
003700
0037064
003710
003714
003716

000760
006337
006337
006337
012702
012701
042711
063721
005302
001372

003720
003726

012777
005077

820
821
822
823
824
825
826
827
828
829
830
831
832

003732
003740
003746
003754
003762
003770
003776
004002
004010
004016
004020
004024
004032

012737
012737
012737
012737
012777
012777
005037
012777
012777
000001
005077
143737
005037

ggg

004040

000207

833

836
837
838
839
840
841

842
843
844
845

846

ga;
&

004036

004042
004046
004052
004054
004056
004062
004064
004070
004072
004074

022626

012701
012702
010221
005021
020227
001403
062702
000770
000240

30A(1052)

177777
177777
177777
007362
004020
000340
001600
000001
000105
175516
001600
177776

1$:

2%:

175622

002126

1]
ASL
ASL
ASL
MOV
MOV
BIC
ADD
DEC
BNE
MOV
CLR

175534
175524

DMPARB
UNIT
UNIT
UNIT
#,%2
#CSR,
%1
#370,(1)
UNIT,(1)+
%2
2%

3%:

#CAT ,@BASREG
aCSR
#-1,0UTBUF
#-1,uWC1
#-1,3#CARMSK

MOV
MOV
MoV
MOV
MoV
MOV
CLR
MOV
MOV
WAIT
CLR
BICB
CLR

TUMTAB,CARMSK
PSW

RTS

POPSP2

;LOAD OUTBUF WITH CHAR TO BE TRANSMITTED
;SET UP TO TRANSMIT 1 (HAR
;PRE SET THE CHARACTER MASK
;1 CHARACTER ON LINE 0O
;LOAD RECEIVER INTERRUPT
JAND PRIORITY LEVEL

#OUTBUF ,CAT
#38 ,aCLKINT
#340,aCLKLVL
TUMTAB
#1,3BAR
;START TRANSMITTING
#B1T6+BIT2+BIT10,aCSR
;SET 1E,MAINT AND GO BITS
:WAIT FOR RECEIVER INTERRUPT
aCSR

;LOAD CHARACTER LENGTH MASK
;RESTORE PROCEESSER TO PRIORITY 0

;RESTORE THE STACK POINTER
;EX1T PARAMETERS ROUTINE

;ROUTINE TO LOAD TRAP/INTERRUPT VECTOR AREA WITH HALT,.+2. HALTS PROGRAM
;AT ADDRESS OF TRAP/INTERRUPT VECTOR +2.
OVRLAY: MOV
#300,%1
MOV
#302,%2
1%:
MOV
%2,(1)+
CLR
(1)

000300
000302

000776
000004

2%:

000207

cMpP
BEG
ADD
BR
NOP
RTS

22,0776
2%
#6,%2
1%
7

JEXIT

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

ggg

;CALL (JSR 5,RECD).

854

ggs

857
858
859
860
861

PAGE 17

;CALCULATE CHARARACTER LENGTH

007362
001440
002126
001400
175562
175556

849
850
851

08:37

SEQ 0017

003640
003640
003640
000004
001542
000370
003640

001400
175610

24-juL-79

NO REGISTER CONTENTS ARE DISTURBED.

;SUBROUTINE TO INPUT DATA FROM TTY

004076
004100
004102
004110
004114

010046
005015
012737
105777
100375

000007
175776

004254

RECD:
1%:
2%:

MOV
CLR
MOV
1S1B
BPL

RO,=(SP)
(9)
#7,0NT
dTKCSR
2%

;CLEAR OLD DATA
;SET CHAR COUNT
;WALIT FOR CHAR

~0 <0 <0 O 0o 0o 0o O

thu*c»oo-\ure:gfizgfi:gglg WNO
NS w0

OB 0D 0D 0D 0o OO G0 0O Oo OB OB O OB 0D 0o Qo 00 0o Go 00 OO 0o oo

NN~ NN~

862
863
864
865
866
867
868
869
870

894
895

DATA TS1S
?g(sgl
23-JuL-79

004116
004122
004126
004132
004136
004140
004144
004146
004152
004156
004160
004162
004164
004166
004170
0041764
004176
004200
004204
004206
004214
004220

004222
004226
004232
004234
004236
004240
004242
004244
004246

004250
004252
004254

1
14
11
12
00
12
00
14
13
00
006
006
006
1500
005337
001422
000744
105777
1
0
1
1

0
}

VO
VBV O W o
o NWNOW~N~NW
o NNNNNNN~N
o VWU NNV

CZDMBDO DM11
(ZDMBD.P11

30A(1052)

24-JuUL-79
MOVB

000200
175766
000025

Bi(B
MOVB
CMPB

BEQ

000015

CMPB

BEQ

000060
000110

BI(B
8118
BNE
ASL
ASL

004254
6%:

175704

175672
175664

8%:

9%:

0 00
01
?80205

7$:

01
104000
013140
000712
000000

5%:
(NT:

—NINNNWY
N - N

004256
004264
004286
004274
004276
004302
004310
004316
004324
004326
004330

Ot
s OO0O0OO0O
oS
OO0
O N
—_PON
WY = e — N
ONNNOMNO~N
O NN NN — NN N

;ROUTINE

900
901
902
903
904
905
906
907
908
909
910

aTKDBR RO

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

(39

;BRANCH

7%
2%
aTPCSR
6%

;ONLY 6 CHAR'S PLEASE
sNEXT CHARACTER

MOV

1S1B
BPL
CLR
1ST1B
BPL

187
MOV
R1S
TYPE
M1

CNT

004342

022737
001023
104000

READY

<LF>

;WAIT FOR READY

JNEXT

CHARACTER

;WAIT

FOR

;ADJUST RS

(RS)+
(SP)+,RO
RS

* ;RESTORE

READY

TYPE

$CTLU
BR

70 CHECK

;START

FOR

anL2 ,ansb
1%
TMP1

(MPB

BNE

CNTLU
RTI

(NTLUU: CMP
BNE

TYPE

9TKDBR, TMP1

;BR

#SWREG, SWR

JACTIY?

YES
;CLEAR TEMP AREA

sFETCH THE BUFFER

#20C, TMPY
#7,TMP1
1%

FAJAG

OVER

*G BEING TYPED

CMP
BEQ
CLR
MOVB
BIC(B

001202

FOR

sTYPE

aTPCSR
8%
aTPDBR
aTPCSR
9%

000046

000176

;WAIT

#12,aTPDBR

sROUTINE TO CHANGE CONTENTS Of

004332
004340

NOT

BEQ
BR
1S1B
BPL

1%:

;SHIFT DATA
sINSET NEW CHAR

000042

104020
000002

YESS

(5)
RO, (5)

:2UREG.SUR

000007

;CHECK FOR 0-7 (8)

7%
(5)
(5)

KBDINTT:;HP

004370
004370

;BRANCH

#60,R0
#110,R0

001202

004370

;STRIP OFF PARITY
;ECHO CHARACTER
SIS IT A *U
;BRANCH IF YES
JIS IT A <CR>

#15,R0

000176

004370
175606
000200

ASL
BISB

DEC

175712
175676

PAGE

SEQ 0018

175772

000012

08:37

;STRIP OFF

PAR]ITY

;NOP
;60 CHANGE
SEXIT

JWAS

SWREG(LOC

176)

30AC1052)

24-JuL-79

013120
004537
000000
022737
001403
013777
000002

s
N =

0B:37

PAGE

6
5¢C

$SWREG
J5R
SWREG

005112

RS .OACNY

;CONVERT

TO ASC!I

:VALUE

104000

j=l=lela)

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

013111
004537
000176
013120
000006

NNNNNO NN

939

004 344
004346
004352
004354
004356
004360
004362
004364
004370
004372
004400
004402
004410

ororororN O=PRI
b= ok S
e
N
T . 5 S NNNN
O NN WM CONWNE
S

N LN N

V00V OVOOO

WY NI
—

O omi1 D ATA 1515 MACIIT
P11
23-JuL-79

TYPE

004076

000007

004254

004370

174572

000006
000004
004442
177777

000176
000174
000004
000006

000004
174544

001202
001204

TMP1:

FAJAG:

$VALUE
JSR
0
cmp
BEQG

MOV
RT1

SUSWRR: MOV
MOV
MOv
cmp

BEQ
BR
CMp

MOV
MOV
MOV
MOV

R1]

5.RECD
#7,(NT
FAJAG
TMP1,aSuWR

al6,-(SP)

¥4, -(SP)
AR I
#-1,3SWR

2%
3%

(SP)+,(SP)+
#SWREG,
SWR
#DISPREG,DISPLAY
(SP)+ Q¥4
(SP)+,a#6

sGET

;PUT

THE
1T

TmMP1

HERE

s CHANGE

;SAVE

CONTENTS

SWREG

VECTORS

;SET UP FOR TIMEQUT
;REFERENCE HARDWARE

;ADJUST STACK
;POINT TO SOF TWARE

;POINT TO
;RESTORE VECTORS

SWITCH REGISTER

SWITCH REG

SOFT

DISPLAY

REG

l DMBDO DM11
(2 DMBD P11

1000

1001

004616
004624
004630
004634
004640
004644
004650
004654
004656
004662
004670
004676
004702
004706
004710

004714
004716
004722
004724
004732
004736

006740

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

OWO
W

NV
NO NN =
Y NNNNN~N
WW N
OWH OWWNWOWNINNNO
W
NNUVWOONIODONNNNUN—
— b a o~y

004472
004474
004502
004506
004510
004514
004520
004524
004526
004530
004532
004536
004542
004544
004546

w~ NWES

999

24-JuL-79

08:37

PAGE 20

5¢ G

:SUBROUTINE

004550
004554
004556
004560
004562
004566
004572
004574
004576
004600
004606
004610
004614

994
995

30A(1052)

TO TRANSMIT ON ALL

LINES WITH A DELAY BETWEEN TRANSMITTING

sON SUCCESSIVE LINES. THE DELAY FOR THE TEST IS SUPPLIED BY THE
:CALLING JSR INSTRUCTION. DATA IS (HECXED AFTER ALL
LINES HAVE FINISHED TRANSMITTING.

OO jelele]
—OoOoNO
O —=row
W—=0O~NOwm

951
952
953
954
955
956
957
958
959
960
961
962
963

MACYTT
23=JuL~79 15:08

oo OCO—-=000 0000000
OODO
oo
o N =t ONPOWUNITUNIO
— WMIWNN
N wWn

946
947
948
949
950

DATA 15715

001400
005024

175046

DLYXMT: NOP
MOV

JSR

NOP
CLR
MOV

175026

004524
005200

10%:

001600
005200

JSR
OPEN
OUTBUF
64.
CLR
JSR

TUMTAB
TUMTAB+1

#CAT ,aBASREG

7 ,9#1DENT

a(SR
(5)+,10%
5 .a#BMOVE

;BEGIN TEST
:SET UP BASE REGISTER
sTRANSMIT

sNGP

;GFT

MESSAGE

:BE

5 .a#BMOVE

sCLEAR

:CLEAR

007526
005200

CNTTAB
16.
CLR
JSR

a¥# L NOBUF
5.a#BMOVE

;CLEAR ALL

002446

CMP
BNE
JMP
MOV

007062
001600
001552
005426
001554
005620

001572

MOV
MOV
MOV
MOv
MOV
MOV
157

001560
002446
006666
010101
000001
002140
002140

BEQ
JMP

174652
001566

MOV
MOV

1%:

005222

2%:

001440
000002
001566
001440

002140
i%.

CLR
MOV
NOP

#TUMTAB,a#TTPTR

,
afCLKINTX!
FRINT,(1)+

OFCLKLVL,(1)+
FTINT, (1)¢

SNXMILVL,(1)+

PRGNUM

LINE, 20

(MP

26 ,WiT(0)

ADD
ASL

#2,LINE
LINBIT
1%
wiT(O)

BCC
181

TARLE

;LINE'S INPUT
;(16.

BUFFERS OF

100.

(HARS.

EACH)

;GET # OF

CHARACTERS TO TRANSMIT BEFORE

:TRANSMITTING ON NEXT

LINE

;INITIALIZE TUMBLE TABLE POINTER
;GET RECEIVER VECTOR ADDRESS
;LOAD RECEIVER VECTOR

;AND PRIORITY LEVEL

;LOAD TRANSMITTER VECTOR

;AND PRIORITY

LEVEL

;RUNNING PROGRAM 0?

PRGIA
;RETURN TO PROGRAM 1 (ODE
#BIT12+BI16+BIT10,aCSR
;SET IE & GO BITS
#1,9NLINBIT
OFLINE

S.aMMI1D

BNE

CHARACTER C(OUNT

.+6

PRG3A
(5)+,%6

JSR

=64,

(200

;BUFFERS

#6,PRGNUM

LINE

;TABLE

;BYTES)

5.a#BMOVE

000006

EACH

ADDRESS

TUMBLE

177
JSR

LNOBUF
F
LNOBU+1
1599,

TRANSMITTED

005200

TUMTAB

sLOAD JUTPUT BUFFER

;WITH DATA

a¥TUMTAB

LINE

;LINE # X2 TO RO
:NOP

;TRANSMIT

(HARACTERS

;ON LINE # AS SPECIFIED IN ADDRESS LINE
:WAIT FOR THE WORD COUNT TO DEC 10 TME
;CORRECT VALUE BEFORE STARTING NEXT LINE
SENRM NEXT

L INE

;SHIFT LINE BIT

NUMBER

SSTART NEXT LINE
sWALT FOR LAST LINE

FINIOM

(ZDMBDO DM11
CZDMBD.P11

1002
1003
1006
1005

1006
1007
1008
1009

1010

DATA 1STS
MACYIT
23=JUL-79 15:08

004744
004746
004756
004760

004762
004770
004772
004776

005002

001375
042777
062700
001375

017737
001410
005037
005077
005077
104015
000403

1011
1012
1013
10164
1015
1016

005006
005010
005012
005014
005020
005022

000240
004737
022626
104012

1019
1020
1021

005024
005030

005037
012737

1018
1022
1023
1024
1025

10¢6
1027
1028
1029
1030
1031

}8%%
1034

1035

1036
1037
1038
1039
10640
1041
1042
10643
1044
1045
1046
1047
1048
10649

1050
1051
1052
1053

1054
1055
1056
1057

005036
005042
005050
005056

005064
005072

005076
005100
005104
005106

013702
016262
012762
053777

062737
006337

103357
005777
001375
000240

005110

000207

005112

104013

005114
005120
005122
005124
005126
005132
005136
005142
005144
005152
005156
005162
005166
005170

013537
012501
012502
060201
013703
042703
062703
110341
042737
006037
006037
006037
005302
001356

30A(1052)

24-3uL-79

174566

174556

002122

31s:

002124
174540
174536

4%:

005320

002140
012706
177772
001566

000002
001566

5%:

001566

001400
001440
174460

1$:

;OCTAL

OACNV:

005176
177770
000060

NOP
JSR
(Mp
SCOPE

MOV
MOV
MOV
BIS

ADD
ASL

2%:

005176

BNE
BiC
ADD
BNE
MOV
BEQ
(LR
CLR
(LR
ERROR1
L]

s
#177400,3CSR
#1,R0
zZ1%

@BAR,RCVDAT
4t
YMTDAT
a(SR

;CLEAR ODD BYTE OF (SR
sWAIT FOR RECEIVER 10 RECEIVE
ALL TRANSMITTED DATA

;GET AND TEST BAR CONTENTS
;BRANCH IF IS CLEAR

aBAR

;ERROR! BAR DID NOT
SEXIT TEST

7.3#(CHKDAT
(6)+,(6)+

1%:

005176

LINE, %2
IC(2),CAT(2)
#-6,WCT(2)
LINBIT,aBAR

#2,LINE
LINBIT

BCC
187
BNE
NOP
RTS

1%
aBAR
2%

TO ASCI]

CONVERY ROUTINE

MOV
MOV
MOV
ADD
MOV
BIC
ADD
MOVB
BIC
ROR
ROR
ROR
DEC
BNE

8(5)+,2%
(5)+,%1
(5)+,%2
x2.%1
2%,23
#177770,%3
#60,%3
23.-(1)
§7,2%
2%
2%
2%
b ¥4
1%

SAVREG

RSTREG
RTS
OPEN

005172
005174
00517¢

104014
000205
000000

2%:

005200

104013

:SUBROUTINE 10O MOVE
BMOVE:
SAVREG

CLEAR

IN SUFICIENT

;GO TEST DATA
RESET THE STACK
: SCOPE

;SUBROUTINE TO TRANSMIT ON EACH LINE ITS LINE NUMBER
IDENT:
(LR
9fL INE
;GET LINE NUMBER 0
MOV
#1,a0LINBIT
;GET LINE BIT

002140

174440

000007
005176
005176
005176

PAGE 21

560

177400
000001

002140
000001

08:37

(CRLF

XX CRLF).

;LOAD CAT
;LOAD WORD COUNT
;SET BAR BIT

;FORM NEXT LINE NUMBER
;FORM NEXT LINE BIT

;BRANCH IF NOT DONE
;WAIT FOR BAR T0 CLEAR

;EXIT SUBROUTINE
;SAVE REGISTERS ON THE STA(K
:GET OCTAL VALUE.
;GET DESTINATION ADDR.
;GET CONVERT COUNT.
;DEVELOP ADDR TO STORE

1ST (MAR.

s ISOLATE LEAST SIGNIFICANT DIGIT.
;CONVERT DIGIT TO ASCII.
;STORE ASCI] CHARACTER.

;DONE ALL DIGITS?
JBRANCH 1F NOT DONE.
sRESTORE THE REGISTERS
;DONE. EXIT,

A VARIABLE NUMBER OF BYTES,
sSAVE REGS.,

TIME

CZDMBOO DM11 DATA TSTS MACY'1 30A(105¢)

(2DMBD.P11
1058
1059
1060
1061

1062

1063
1064
1065

005202
005204
005206
005210
005212
005214
005216
005220

23%=JuL=79 15:08
012501
012502
012503
112122

005303
001375
104014

000205

24-JuUL-79 08:37 PAGE ZZJ
MOV

1%:

(5)+,%1
(5)¢,22
(5)+,23

MOv
MOV
MOVB
DEC

RSTREG
R1S

BNE

(1)+,(2)¢

sGET"'FROM''ADDRESS
;GET''TO''ADDRESS

;GET COUNT
;MOVE BYTE
;DECREMENT COUNT
;BRANCH IF NOT DONE.

sRESTORE

;DONE

REGS.

EXIT

CZDMBDO DM11 DATA 15715
MACY1]
CZDMBD.P1)
23-JuL-79 15:08

30A(1052)

24-JuL-79

0B:37

PAGE 23

SEQ 0027

:SUBROUTINE TO TRANSMIT DATA.

:JSR 5 ,XM1TD

005222
005224
005226
005232
005240

XMITD:

002140
007362
001440
001566
001566

005244
005252

001400
001562
176264

005426
005430

20,-(SP)

:SAVE RO ON THE

@¥L INE,X0
#OUTBUF ,CAT(0)

sGET LINE
;LOAD FIRST

MOV

(SP)+,%0

;RESTORE

RTS

SEXIT

STACK

CHAR ADDRESS IN CAT
(5)+,WCT(0)
;LOAD WORD COUNT INTO LINE'S TABLE ADDRESS
OFLINBIT, 3#BARIM;LOAD LINE POSITION INTO BAR IMAGE
LINBIT,aBAR
;START TRANSMITTING ON LINE SPECIFIED

;IN LINBIT

oSUBROUTINE TO FORM LINE BIT POSITION WITH THE LINE # IN LINE

GTLINB:

001566
002140

MOV
CLR

MoV

001566
000002

1%:

SEC
ROL
SUB
BPL

MOV

RTS

%0,-(SP)
afLINBIT

;SAVE RO ON THE

afLINE,20

;GET

LINBIT
#2,%0
1%

(SP)+,%0

STACK

LINE

;SET CARRY
JSHIFT LINE BIT
;SUBTRACT 2 FROM LINE NUMBER
;RESTORE

JEXIT

:SUBROUTINE TO CHECK TRANSMITTED DATA

NNOWVWNM —=OWVMN WO Yy
o v

CHKDAT:
o j=lelelelele
il elelelele=] o
o NOOONOOH = =00 —=—=0 —

s s il el el ol el el el el el el el el el el el el et e et et C

-—Chocl\ur»nrwafiu—-CMoeb~u0nal~uuu-‘cflgci

NNttt
et et et 2 s 2 O OO OO OOOO

005340
005344
005350
005354
005362
005370
005376
005400
005402
005406
005410
005412
005414
005420
005422
005424

SUBROUTINE CALLED BY

MOV
MOV

NOP

005266
005270
005274
005300
005302
005306
005312
005314
005316

097

NOP
MOV

MOV
BIS
BIS

005260
005262
005264

005320
005322
005324
005326
005332
005334

012626

002140
002142
002142
002142
174562
007362
002126

1%:

002122
002124

2%:

SAVREG
NOP
CLR
MOV

CLR

MOV
MOV
DEC

INC

MOVB

MOVB
BIC
DATCHK
INC
cMp

002124

000100

BNE

CLR

INC
(MP
BLT

000020

RSTREG
RIS

000240

104013

21
#INTAB,%2

3, 90LINE
(2)+,34LINBUF
L INBUF

L INBUF

:SAVE THE REGISTERS ON THE STA(K
s NOP
;CLEAR CHARACTER COUNT
:GET ADDRESS OF LINE'S INPUT BUFFER

;ADDRESS ;GET LINE COUNT

:MOVE LINE # TO LINE
;GET LINE'S INPUT BUFFER ADDRESS
;SUBTRACT 1 FROM LINE'S INPUT BUFFER ADDRESS

: INCREMENT LINE'S INPUTi BUFFER ADDRESS
;GET RECEIVED CHARACTER
OUTBUF
(1) ,XMTDAT sGET TRANSMITTED CHARACTER
S#CARMSK
, XMTDAT ;CLEAR UNTRANSMITTED BITS
s COMPARE CHARACTERS
%1
; INCREMENT CHARACTER COUNT
X1.,066.
;ALL CHARACTERS BEEN COMPARED
2%
;GO CHECK NEXT CHAR. IF NOT
%1
;CLEAR CHARACTER COUNT
X3
s INCREMENT LINE COUNT
X3.410.
JALL LINES CHECKED?
1%
sBRANCH IF ALL LINES NOT CHECKED
;RESTORE REGISTERS
7
SEXIT SUBROUTINE

aL INBUF ,@#RCVDAT

JRECEIVER INTERRUPT SERVICE ROUTINE
NOP
;BEGIN

RINT:

SAVREG

sSAVE

THE

REGISTERS ON THE

STA(K

(ZDMBDO DM11 DATA TSTS

CZOMBD.P11
1122
1125
1126
1125
1126
1127
1128

1129
1130
1131

1132

1135
1136
1135
1136
1137
1138
1139
1140
1141
1142

1143
1144

005432
005436
005442
005444
005446
005450
005454

005456
005460
005462

0056464

005466
005474
005500
005502
005510
005512
(05514
005520
005524
005530

23-JUL-79 15:08
013701
011137
100410
104003
000454
011137
001451

005011

042737
113702
010204
016237
006202
005003
116203
105262

060337
113777

000240
016437
003405
010437
104015

}}g?

005556

005560

000005

1152
1153
1154
1155
1156
1157
1158
1159
1160
}}g;

005562
005566
005570
005574
005576
005600
005606
005612
005614
005616

022701
001002
012701
005721
000724
042777
010137
104014
000240
000002

005620
005622
005630
005632
005634
005642
005646
005650
005656

000240
032777
001404
104003
042777
005777
100003
042777
000002

1163

~N~

1164
1165
1166
1167
1168
1169
1170
1171
;;75

30A(1052)

24-JuL-79

001572
001564

CO1564

1%:

100402
104003
000425

005536
005540
005546
005550
005554

1145
1146
1147
1148
1149

MACYI1

160400
0015565

001564

012626

002142

012666
012666
002142
001564

174404

001440

002122

002124

104012

2%:

08:37

MOV
MOV
BMI
ERROR
1]
MOV
BEQ

BM]
ERROR
BR
CLR
BIC
MOVB

MOV
MOV
ASR
CLR
MOVB
INCB

3%:

ADD
MOVB

NOP
MOV
BLE
MOV
ERROR1
;TYPE OUT SHOWS
RESET

PAGE 24

aFTIPIR, X1
(1),T1DATY
2%

6%
(1),a#TT1DATY
(39
2%

4%:

001576

000200
001572

5%:
173734

6%:

cMP
BNE
MOV
151
BR
BIC
MOV
RSTREG
NOP
RTI

SEQ 0024
;GET TUMBLE TABLE POINTER
;GET TUMBLE TABLE ENTRY
;BRANCH IF VALID DATA ENTRY
;ERROR! FALSE INTERRUPT
JEXIT
;GET TUMBLE TABLE FENTRY
;GO TG EXIT IF NO DATA ENTRY

;BRANCH I1F VALID DATA ENTRY
;ERROR! NO VALID DATA ENTRY

;CLEAR TUMBLE

%3,LINBUF
TTIDAT,3LINBUF

;FORM ADDRESS WHERE CHAR. IS TO BE STORED
;STORE CHAR. IN LINE'S INPUT BUFFER

TABLE ENTRY

WCT(4),RCVDAT
4%
%4 ,XMTDAT
FAILING LINE #,

;NOP
;GET TRANSMITTERS WORD COUNT

;BRANCH IF WORD COUNT IS O OR NEGATIVE
;GET LINE # OF FAILING LINE
;ERROR! INCORRECT WCRD COUNT IN
AND FAILING LINE'S WORD COUNT
;STOP THE DM

SEXIT TESS

#TUMTAB+176,%1
5%
#TUMTAB-2,%]
(1)+
1%
#B117,3CSR
%1,TTPIR

;1S THE TUMBLE TABLE POINTER AT
;THE END OF THE TABLE
:RESET POINTER
: INCREMENT POINTER
;G0 CHECK NEXT ENTRY
;CLEAR RECEIVER DONE FLAG
;SAVE PGINTER
sRESTORE THE REGISTERS

;EXIT SERVICE ROUTINE

;TRANSMITTER INTERRUPT SERVICE ROUTINE

060000

173712

060000
173674

173700

100000

173664

TINT:

1%:
2%:

NOP
BIT
BEQ
ERROR

;BEGIN
#BIT14+BIT13,3CSR;
TEST ERROR FLAGS
1%
;BRANCH IF NO ERROR FLAGS
;ERROR' ERROR FLAG ]S SET

BIC
187

#B1T14+BIT13,0(SR;CLEAR ERROR FLAGS
a(SR
;TEST READY FLAG

BPL
BiC
RT1

INDICATOR

#160400,a#TTDAT ;CLEAR ALL BUT CHAR. & LINE #
TTDAT+1,%2
;PUT LINE # IN R2 (LINE WILL BE IN LSH)
%2.%4
INTAB(2) ,a#L INBUF
;GET LINE'S INPUT BUFFER ADDRESS
%2
;SHIFT LINE #
%3
CNTTAB(2),%3
;GET LINE'S RECEIVED CHAR. COUNT
CNTTAB(2)
; INCREMENT CHARACTER COUNT

SCOPE

001776

2%
#BIT15,3CSR

;BRANCH IF READY 1S CLEAR
;CLEAR READY FLAG

THE

l DMBDO DMi1 DATA TSTS
MACY11
IDMBD.P11
2%=JuL=-79 15:08

1175
1176
1177
1178
1179
1180
1181

1182
”gz

005660
005662
005666
005672
005676
005702
005710

005714

104000
013421
012737
005037
000137
012737
005037

000137

30A(1052)

24-JuL-79

002014
002540

002010

PRGOA:

002010

PRGOR:

005720
005722
0057264
005726

1190

000000
005740
000002
005730
000000

1191
1192
1193
1194
1195

005730
005734
005736

004537
013743
000000

1197
1198
1199

005740
005742
005744

000001
005760
000002

1196

1200

1201

005746

1202

1203
1204

1205
1206

1207

1208

1209

1210
1211
1212

1213

005750
005754

005756
005760

005762
005764
005766

1214

1215
1216
1217
1218
1219
1220

1221

1222
1223
1226

1225

1227
1228
1229
1230

004537
013743

004472

RT1A:

N R R

R A N

I ImMmMmmm

-32.

A R R

R P R

P A R R R R R R AN RN RN

R AR A

X=X+1

P O RN

mInmmmmn

;60 DO TEST.
;TRANSMIT THIS MESSAGE &

R R R A R

;DELAY THIS MUCH BETWEEN LINES
R R

A RN R R A R AR

RN NN RN NN

E RN R R RAR N

R OO ROy

;ROUTINE # 2

;ADDR OF NEXT ROUTINE.
;ITERATION COUNT
:SCOPE ENTRY POINT.

N R

.
.
*

R R

.
.

AN R R A R RN R RN R R RN AN R RN R

RN RN RO NN R RO

sTEST TO TRANSMIT ON EACH LINE WITii A DELAY BEFORE STATING THE
JNEXT LINE.
RT2A:
JSR
5.DLYXMT
;G0 DO TEST,
MSG1
;TRANSMIT THIS MESSAGE B
-48.
;DELAY THIS MUCH BETWEEN LINES
RTZ:

;SCOPE ENTRY POINT.

RT3
2
R12A

T TTMT

.
.
*
.

R P R N R A R A RN R AN RN AR R R R R R R R R TR PR RN RO TR

5,DLYXMT

R RS s e

R R SRR

ER Y

;ROUTINE # 3

RT3A

;SCOPE ENTRY POINT,

RTS
2

X=xX+1

004472

;ROUTINE # 1
;ADDR OF NEXT ROUTINE.
;ITERATION COUNT

JSR
MSG1

000003

004537
013743

X=X+1

RT2:

006020
000002

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

004472

;ROUTINE # 0
sADDR OF NEXT ROUTINE.
;1TERATION COUNT
;SCOPE ENTRY POINT.

1
RT2
2

000002

006010

RT1A

004472

TEST

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

GETRDY
R

R N

RT1:

006000
000002
005770

006006

sGET ADDRESS OF FIRST
;CLEAR ROUTINE #

;TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE
sNEXT LINE.
RTO0A:
JSK
5,DLYXMT
;GO DO TEST.
MSG1
sTRANSMIT THIS MESSAGE §
0
sDELAY THIS MUCH BETWEEN LINES
PR

000002

000003

#RT0,KSTART
RTNNO
SRSET
#RT0,KSTART
RTNNO

0
RT1
2
RTOA
X=X+1

177740

006000

006010
006014

RT0:

000001

004537
013743
177720

1226

005750

005770
005774
005776

006002
006004

T(PE
PRGOM
MOV
CLR
JMP
MOV
(LR

JMP

1185
1186
1187
1188
1189

PAGE 25

SEG G025
PRGO:

005720
002014
002506
005720

08:37

sADDR OF NEXT ROUTINE.
;ITERATION COUNT
R

.
.
R

R R

;TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE
JNEXT LINE.
RT3A:
JSR
S.,DLYXMT
G0 DO TEST.
3
MSG1

sTRANSMIT

THIS MESSAGE &

BDOO DM11 DATA TSTS MACY11
PN
23-JuL=-79 15:08

006016

30A(1052)

24-JuL-79

08:37

PAGE 26

SEQ 0026

177710

-56.

;DELAY THIS MUCH BETWEEN LINES

006020
006022
006024
006026

000004
006040
£00002
006030
000004

RT4:

“

sROUTINE

RTS

I I I

mmT

# &

:ADDR OF

NEXT ROUTINE.

;ITERATION COUNT

R‘kll

:SCOPE

X=X+

ENTRY POINT.

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

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

;TEST

TO TRANSMIT

SNEXT LINE.

006030
006034
006036

004537
013743
177704

RT4A:

006040
006042
006044
006046

000005
006060
000002
006050
000005

RTS:

JSR

ON EACH LINE WITH A DELAY

5.DLYXMY

MSG1

BEFORE

STATING

THE

;G0 DO TEST.

: TRANSMIT THIS MESSAGE &

-60.

sDELAY THIS MUCH BETWEEN LINES

;ROUTINE # 5

RT6

;ADDR OF

I mmTmmmmTTMTTMT

ROUTINE.

;ITERATION CGUNT

RISA]

:SCOPE ENTRY POINT.

X=X+

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

"""l"'.

:TES}

006050
006054
006056

004537
013743
177702

10 ERANSH11

SNEXT

LINE.

RT5A:

JSR
MSG1
-62.

ON EACH LINE WITH A DELAY BEFORE

5,DLYXMT

006060
006062
006064
006066

000006
006100
000002
006070
000006

RT6:

STATING THE

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

sROUTINE

R17

I mnmmmmmmmmTMT

¥ 6

:ADDR OF NEXT ROUTINE.

;ITERATION COUNT

R'bAI
X=X+

;SCOPE ENTRY

POINT.

:"'l."'."'l""""'l""""""I"'Il."!t"'t't't""l"'t'l'lt"ll

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

006070
006074
006076

JNEXT LINE.
RT6A:
JSR

;60 DO TEST.

;TRANSMIT THIS MESSAGL 8

«63.

006100
006102
006104
006106

5,0LYXMT

MsSG1

RT7:

;DELAY THIS MUCH BETWEEN LINES

7
RT10

RN AN R AR A PN R RN R R N R AR AR RN R R RN IR R NN RO N

;ROUTINE # 7
:ADDR OF NEXT ROUTINE.

2
RWA1

'
.
.
’

; ITERATION COUNT
:SCOPE ENTRY POINT.

X=X+

;YES} ‘? ERANSH!T ON EACH LINE WITH A DELAY BEFORE STATING THE

006110
006114
006116

JNEXT
RT7A:

LINE.
JSR
MSG1

5.DLYXMT

;60 DO TEST.
s TRANSMIT THIS MESSAGE &

=64,

sDELAY

THIS MUCH BETWEEN LINES

R o

006120
006122
006124

RT10:

RT1

2
R“O?

006126
.

*
.

NEXT ROUTINE.

sITERATION COUNT
;SCOPE ENTRY POINT,

X=X+

;ROUTINE # 10
;ADDR OF

R R R

.
.

VOOV
OOV O OTM > DE
Owatwunh—c»osz
OO

HJ—‘CMOCI‘UOHfi“U-NhflCD<N’*UOH’J‘Uflv-‘CMOGI*GOHfiJ‘Uflv-dCD(H’~qon’J\u"u-ac>
<>C>CNDC)CND<>C§8

B o

_a—.—.—.—.—O-.‘—.—.d—.-._‘—.—.—.—.-—.—._.—l_‘—-—.—-—.—._.—o—a_._.—.
—.—.—.—._‘—.—.—.—.—.“—.—.—.-‘ s
e el e
e
o
A L M L
L L
U
e
e L e e NI
N I I N e e WNN N NN N N
N0 N PN
P
s WA N N NNTUTNOTNUTNUTOTNUTUTNY
— — s s
s b e
so
NN NI NN NI A
0
[+ ] ~
~

lale)

O DM11 DATA TSTS MACY11
P11
23=JuL-79 15:08

006130
006134
006136

004537
014044
177740

006140
006142
006144
006146

000011
006160
000002
006150
000011

30A(1052)

26=-JUL-79

08:37

PAGE 27

B
SEQ 0027

:TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE
SNEXT LINE.
RT10A:
JSR
5S.DLYXMT
;GO DO TEST.

MSG2

sTRANSMIT

-32.

RT11:

STATING

THE

THIS MESSAGE &

sDELAY THIS MUCH BETWEEN LINES

R st
e I mnImnmmmmmmmmmmTTTMr

11
RT12

sROUTINE # 11
;ADDR OF NEXT ROUTINE.

.
.

R“‘?

;SCOPE ENTRY POINT.

;ITERATION COUNT

X=X+

:"'."'.C""'.t"'t"""""t".'t't."'I."'.'..'

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

;TEST
INEXT

006150
006154
006156

004537
014044
177720

RT11A:

006160
006162
006164
006166

000012
006200
000002
006170
000012

RT12:

TO TRANSMIT
LINE.

JSR
MSG2
-48.

ON EACH LINE WITH A DELAY BEFORE

5,DLYXMT

STATING THE

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

:...l"'..l.."""t't"'t'lt""'I"""'l"t'.t'.

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

12
RT13
2
RIIZ?

;ROUTINE # 12
:ADDR OF NEXT ROUTINE.

.
.

:1TERATION COUNT
:SCOPE ENTRY POINT.

X=X+

.
.

;.'Itt.’t""""l""""!'l"'"."""l"".'l"""tl"'I."t

'tt"'tt

;TEST

006170
006174
006176
006200
006202
006204
006206

004537
014044
177710

TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE

INEXT LINE.

RT12A:

JSR

MSG2
-56.

5,DLYXMT

STATING

THE

;GO DO TEST.

:TRANSMIT THIS MESSAGE &
:DELAY THIS MUCH BETWEEN LINES

;".""""'"""."'i"""Q"'""'."..'..l'.t'l"."

000013
006220
000002
006210
000013

RT13:

I."""ll"l"

:ROUTINE # 13

RT14

:ADDR OF

2
RT13A
X=X+1

NEXT ROUTINE.

:1TERATION COUNT
:SCOPE ENTRY POINT.

.
'

:.""""""""""""""'"""'Qll""l"t'lt.'."t'.'#ll'."."

;TEST

004537
014044
177704

TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE

sNEXT LINE.

RT13A:

JSR
MSG2
-60.

006220
006222
006224
006226

000014
006240
000002
006230
000014

RT14:

5.DLYXMT

14
RT15
2

STATING THE

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

;ROUTINE # 14
;ADDR OF NEXT ROUTINE.
:1TERATION COUNT

RT“?

.
*
.

;SCOPE ENTRY POINT.

X=X+

R R
R
I

;TEST
sNEXT

006230
006234
006236

004537
014044
177702

RT14A:

006240
006242

000015
006260

RT15:

10 ERANSHIY
LINE.

JSR

MSG2
-62.

ON EACH LINE

S.,DLYXMT

WITH A DELAY BEFORE

STATING

THE

;6C DO TEST.

;TRANSMIT THIS MESSAGE 8
:DELAY THIS MUCH BETWEEN LINES

:'ttttt't't""'tttt"t't'tt.ltl'lii.tt'ttl!'ttt.ltl'l!"tl'.t'il't'!tl!'

R116

:ROUTINE # 15

;ADDR OF

NEXT ROUTINE,

(Z DMBOO OM11
CZDMBD P11
1343

DATA TSTS

006244
006246

MACY11

23-JuL~79 15:08

30A(1052)

24-JuL-79

000002
006250
000015

08:37

PAGE 28

;ITERATION COUNT

:l}S?

;SCOPE ENTRY POINT.

=X+

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

"."".""".."'Q."!""0

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

006250
006254
006256

004537
014044
177701

004472

SNEXT LINE.

RT15A:

JSR
MSG2
-63.

5,DLYXMT

006260

006262
006264
006266

000016
006300
000002
006270
000016

RT16:

;GO DO TEST.
;s TRANSMIT THIS MESSAGE B
;DELAY THIS MUCH BETWEEN LINES

16
R117

nmImmmmmTTTMT

;ROUTINE # 16
:ADDR OF NEXT ROUTINE.

.
.

;SCOPE ENTRY POINT.

sITERATION COUNT

RT16?
X=X+

;C"t""""""""'t't'i"""""'."Qlt""".'"

"tt""'"'tt"t"

;TEST

006270
006274
006276

004537
014044
177700

004472

TO TRANSMIT

sNEXT LINE.

RT16A:

JSR
MSG2

ON EACH LINE

5,DLYXMT

-64.

000017
006320
000002
006310
000017

RT17:

17
RT20

STATING

THE

;GO DO TEST.
;sTRANSMIT THIS MESSAGE &

;DELAY

006300
006302
006304
006306

WITH A DELAY BEFORE

THIS MUCH BETWEEN LINES

I MM

;ROUTINE # 17
;ADDR OF NEXT ROUTINE.

2
RT17Q

*
r

s ITERATION COUNT
;SCOPE ENTRY POINT.

X=X+

.
’

;t.tfit'.""'""'!t'l'l"""""'t""'.ttli'.l'

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

006310
006314
006316

004537
014144
177720

004472

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

RT17A:

JSR
MSG3

5,DLYXMT

-48B.

000020
006340
000002
006330
000020

RT20:

;GO DO TEST.
;TRANSMIT THIS MESSAGE &

;DELAY THIS MUCH BETWEEN LINES

006320
006322
006324
006326

STATING THE

20
RT21

,mMmmm

TMMTM

;ROUTINE # 20
;ADDR OF NEXT ROUTINE.

2
RTZO?

.
*

;ITERATION COUNT
;SCOPE ENTRY POINT.

X=X+

.
.

:.'""""""""'Q"""l""""t.""tt"'t..!tt"tl"'tt"'l"tl't

006330
006334
006336

004472

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

RT20A:

JSR
MSG3
-60.

5,DLYXMT

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

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

006340
006342
006344
006346

R121:

00C021

:ROUTINE # 21

RT22
2
RT21A

:ADDR OF NEXT ROUTINE.
:1TERATICN COUNT
:SCOPE ENTRY POINT.

X=X+

.
.
.

:""""'l""".""'.'.'llt'l"."t""'.!'t'!.l"tt.'l".l't.l"'l.l'

STEST

006350

006354

004537
014144

004472

TO TRANSMIT

JNEXT LINE.

RT21A:

JSR
MSG3

ON EACH LINE

5.DLYXMT

WITH A DELAY BEFORE

STATING

;60 DO TEST.
;TRANSMIT THIS MESSAGE &

THE

](ZDHSDO DM11 DATA TSTS MACYI1 30A(1052) 24-JuL-79 08:37 PAGE 29 D
CZDMBD.P11
23-JuL-79 15:08
006356

177701

-63.
A

006360
006362
006364
006366

000022
006400
000002
006370
000022

sDELAY THIS MUCH BETWEEN LINES

RT22:

M-

22
R123

;ROUTINE # 22
;ADDR OF NEXT ROUTINE.

.
*

RTZZ?

;SCOPE ENTRY POINT.

sITERATION COUNT

X=X+

;'."'.""".'.""'""l""""."""'t".""'lt

'l'"""""l"""

006370
006374
006376

004537
014144
177700

006400
006402
006404
006406

000023
006420
000002
006410
000023

;TEST
JNEXT

004472

RT22A:

TO TRANSMIT
LINE.

JSR
MSG3
-64.

ON EACH LINE WITH A DELAY BEFORE

5.DLYXMT

THE

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

R123:

STATING

23
RT24

e I

I mmmmmmmTTTMT

;ROUTINE # 23
;ADDR OF NEXT ROUTINE.

.
.

;SCOPE ENTRY POINT.

;ITERATION COUNT

RTZS?
X=X+

:".t."".t"t"""t"""l"'"'t"'l""'ttt"'

lt'tlItl"t"""""'

006410
006414
006416

006420
006422
006424
006426

004537
014244
177740

004472

;TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE
JNEXT LINE.
RT23A:
JSR
5,DLYXMT
;60 PO TESY.,
MSG4
sTRANSMIT THIS MESSAGE &

-32.

;sDELAY THIS MUCH BETWEEN LINES

:ll'ttt'tttt"t't't"tt'l'ttt'Qt"t't'lt.t'tttttt'ttt

RT124:

000024
006440
000002
006430
000024

ttl"t"lt'tt'ttt'nt

sROUTINE # 24

k125
2
RTZ&?

;ADDR OF NEXT ROUTINE.
;ITERATION COUNT
;SCOPE ENTRY POINT.

X=X+

*
*
*

;.t'.'t"'."""""t"""'"'l"'t'ltt"lt'tt.'t!"ttt'it"l""t"t

000025
006460
000002
006450
000025

RT24A:

177710

JSR

MSG4

WITH A DELAY BEFORE

5.DLYXMT

STATING

THE

;GO DO TEST.

;TRANSMIT

-56.

THIS MESSAGE

;DELAY THIS MUCH BETWEEN LINES

R Rt
e
I Im
TMTM

RT125:

;ROUTINE ¥ 25

RT26

;ADDR OF NEXT ROUTINE.

;SCOPE ENTRY POINT.

;ITERATION COUNT

RTZS?
X=X+

:l'""""'l"""'t"l"".'Il"i'""""'.t"'.."'tl!'..ll""'tl'l'

JSR

MSG4

5,DLYXMT

RT25A:

;G0 DO TEST.
sTRANSMIT

-62.

004472

THIS MESSAGE

004537
014244
177702

:DELAY THIS MUCH BETWEEN LINES

006450
006454
006456

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

:...""'I""".'.."'"'"""'"""'.'."'..".""'.l.'.l."'lI"!"

006460

006462
006464

006466

000026
006500
000002
006470
000026

R126:

;ROUTINE # 26

RY27
2
RT26A
X=X¢1
RS RS R

;ADDR OF NEXT ROUTINE.
;ITERATION COUNT
;SCOPE ENTRY POINT.
R

006440
006442
006444
006446

004472

ON EACH LINE

R R

.
.
.
R

]

004537
014244

TO TRANSMIT
LINE.

006430
0064 34
006436

;TEST
JNEXT

1399
1400
1601
1402
16403
1604
1405
1406

S5EQ 0029

(ZOMBDO DM11
CZ0MBD P11
1455
1456
1457
1458
1459
1460
1461
1462
1463
1664
16465

DATA TSTS

006470
006474
006476
006500
006502
006504
006506

MACY11

23=JuL=79 15:08

004537
014244

004472

30A(1052)

264=JUL-79

08:37

PAGE 30

SEQ 0030
;TEST TO TRANSMIT
SNEXT LINE.

RT26A:

JSR

MSG4

177700

ON EACH LINE WITH A DELAY BEFORE

5.DLYXMT

;60O DO TEST.

sTRANSMIT

-64.

000027
006520
000002
006510
000027

R127:

STATING THE

THIS MESSAGE

;DELAY THIS MUCH BETWEEN LINES

II I

sROUTINE # 27

RT130
2

X=X+

mMmMmmmTMr

;ADDR OF NEXT ROUTINE.

;SCOPE ENTRY POINT.

;ITERATION COUNT

RIZ??

't"'tl'.'..""'"""""'t"l"."'"'t'tll"

"tl"tll""""'!""l'

LD IE- 2020 2k

aF O S

(hOCDQIOIOlOlODGHDQIOI~q*d~q~u~4~a~4\rfl
-—<><H)~q0nntwunr~c><uh~40wn:wnhr—

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

006510
006514
006516

004537
014344
177720

006520
006522
006524
006526

000030
006540
000002
00¢530
000030

004472

INEXT

RT27A:

LINE.

JSR
MSGS
-48.

5,DLYXMT

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

"l."""""'."

RT30:

30
RT31
2
RTSO?

:ROUTINE # 30
:ADDR OF NEXT ROUTINE.
:ITERATION COUNT
:SCOPE ENTRY POINT.

X=X+
R

:TES}

006530
006534
006536

004537
014344

004472

177710

000031
006560
000002
006550

T? gRANSHIT

SNEXT
LINE.
RT30A:
JSR
MSG5
-56.
S

006540
006542
006544
006546

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

RT31:

31
R132

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

R R A N R R

N R R R NN R R R R

R AR AN AR AR RO TN

.
.

:1TERATION COUNT
:SCOPE ENTRY POINT.

X=X+

I mmTf»TMT

STATING THE

;ROUTINE # 31
;ADDR OF NEXT ROUTINE.

2
a131?

000031

ON EACH LINE WITH A DELAY BEFORE

5,DLYXMY

.
.
.
.

.
.

:l.l.""""""'I"""""""""".."'.""'t.t""ttl'

.ll"'t"'"

;TEST

006550
006554
006556

004537
014344
177704

004472

TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE

INEXT LINE.
RT31A:
JSR

MSGS
-60.

5,DLYXMT

;GO DO TEST.

:TRANSMIT THIS MESSAGE &
:DELAY THIS MUCH BETWEEN LINES

;"l.""""""""""'"'l"""".'I"..'.t.l"i'.t'l'"'tl"'ttl"'

006560

006562
006564
006566

000032
006600
000002
006570
000032

R132:

32
R133

;ROUTINE # 32
:ADDR OF NEXT ROUTINE.

2
n152?

'
.

:1TERATION COUNT
:SCOPE ENTRY POINT.

X=X+

)
.

Y I
TV R
[

SO~

I I

-*C>=>C>§EC>C>C>
LR SRV

;'.'t""""‘".'t"'.""Q.'l."".l"'t...""ll'.t."..""'t'lll"l‘

006570
006574
006576

004537
014344
177702

004472

;TEST
INEXT

RT32A:

TO TRANSMIT
LINE.

JSR
MSGS
-62.

GON EACH LINE

S,DLYXMT

WITH A DELAY BEFORE

STATING

[IHE

:GO DO TEST,
:TRANSMIT THIS MESSAGE &
:DELAY THIS MUCH BETWEEN LINES

:"'.""'l"'l.'l""""l"'I.""""'."'..'Q....I'.l"."l'..'.".l'

006600
006602

000033

006620

RT33:

33
R134

;ROUTINE # 33
:ADDR OF NEXT ROUTINE.

.
.

000002

006636

004537

014344

177700
\Weddqad

;ADDR OF NEXT ROUTINE.
;1TERATION COUNT

.
.
.

;SCOPE ENTRY POINT.

;"t'!t"'l"t't'ttlt'ttt'tt't'ttt't"ttt'lttt't't'tt'tt"ttttt""tt'tt'

004472

;TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE
NEXT LINE.
RT34A:
JSR
5,DLYXM]
;GO DO TEST.
MSGS

RT35==1

-64.

;TRANSMIT

THIS MESSAGE

sDEL'Y THIS MUCH BETWEEN LINES

531
532

006630

006634

RT34A
X=X+1

;ROUTINE # 34

530

RT35
2

GBS

527
528
529

006630
000034

526

177777
000002

006626

;t.t't.'t't'ttttffilQtt't"""""""'t'.tt't't"0'."""'tt"t""tt"

RT34:

526
525

006622
006624

004472

522
523

;!tttl'.'t'."'t".t"t't"tt"'tt't"ttt't'lt'."lt"lt't""'tt't""t.

sTEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE
sNEXT LINE.
RT33A:
JSR
S,DLYXMT
;GO DO TEST.
MSGS
;TRANSMIT THIS MESSAGE §
-63.
;DELAY THIS MUCH BETWEEN LINES

000034

:SCOPE ENTRY POINT.

006620

X=X+1

;ITERATION COUNT

521

520

RT33A

004537
014344
177701

006610
006614
006616

515
516
517
518
519

PAGE

SEQ 0031

006610

000033

08:37

51‘

24-JuL-79

51%

006604

006606

30A(1052)

511

512

DATA T1STS
MACY!1
23=JuL=-79 15:08

HBgO DM11
MBD.P11

DATA

0. A74

006724
006726
006734
006742
006744
006752
006760
006764
006766
006770
006772
006776
007004
007006
007012
007014
007016
007022

30A(1052)

104020

004537
013743
177700
012737
004537
001400
001402
000040
012737
004537
001440
001442
000040
012777
023727

000176

177700

005200

010100
002446

000001

177777

172560

172544
002446

001200

08:37

PAGE 32

:PRG1DATA TESTS ALL LINES
;QUICK BROWN FOX JUMPED OVER
PRG1:
TYPE
PRGIM
PRGX:
CMp
#SWREG, SWR
PRGIR
BNE

PRGIR:

001400

PRGTA:

CNTLY
JSR
MSG1

-64.
MOV

JSR
CAT

CAT+?2
3¢

001440

MOV

JSR

Wil
WCT+2

005320

012706
000715

001202

004472

007362
005200

26=JUL-79

3
SEG 0057

104000

013447
022737
001001

32.

172606
000004

MOV
CMpP

BEQ
BIS

172570
172564

000004

MOV
181

PRG1C:

BNE
INC
BNE
CLR

(MP

BEOQ
JSR
PRGID:
TYPE
m2
PRGTEX: MOV
BR

5.DLYXMT
#OUTBUF ,CAT

5.,BMOVE

SIMULTANEQUSLY. DATA TRANSMITTED
THE LAZY DOGS BACK 1234567890'
:TYPE
;PROGRAM TITLE
sSEE IF SWITCH=-LESS
sBRANCH IF NOT

5 ,BMOVE

*THE

sGET SWREG SETTINGS

;GO TO DLYXMT TO SET uP DMII
;MSGY WILL BE THE DATA TRANSMITTED
;DO NOT DELAY
;LOAD

CURRENT

;ADDRESS TABLE

;10 POINT

;OUTBUF

¥=-64.,WCT

;LOAD WORD COUNT

;170 =-64.

#BIT12+BI1T16,aCSR;SET TRANSMITTER & RECIEVER
PR?gUH,IL
sRUNNING PROGRAM #?2?

BITS

#B110,aCSR
#-1,3BAR
382R

;SET THE GO BIT
;START TRANSMITTING ON ALL i INES
sWAIT FOR ALL LINES TO COMPLETE

%5
=2

aCSe

PRGNUM, #4
PRGI1D

7.,CHKDAT

#SPBOT,SP

PRGIR

;DO NOT CHECK DATA IF
;PROGRAM # 2

RUNNING

;G0 CHECK RECEIVED DATA

;TYPE

; "PKGEND'

;RESET

THE

;GO RESTART

STACK

TEST

POINTER

;PRG2=PROGRAM 2 RUNS PROGRAM 1 EXCEPT FOR THE DATA CHECKING

;WHEN ALL LINES ARE FINISHED TRANSMITTING. THIS ALLOWS THE DATA
;TRANSMITTED TO BE SENT TO TERMINALS. BEFORE STARTING THIS PROGRAM
~~NO

007024
007026
007030

OO
O—O
Ows
— N
WO

DRl LN RV R
N R
b Ak’ AR
NNNNNNNNNYNNO
QWO AP W
=D O

00¢ 00
006712
006704
006706
006714
006720
006722

MACYTY
3=JuL=79 15:08

NNONNNNO
~ IV NNNWw

006640

006642
006644
006652
006654
006656
006662
006664
006666

T1ST1S

o OO0
o =l=l=
vl
-—
W=t
PO N —

CIOMBDO DM11
(ZDMBD P11

;REMOVE THE JUMPERS CONNECTING THE TRANSMITTERS 10 THE RECEIVERS.

PRGZ:

006644

PRG2R:

TYPE

PRG2M
JMP

PRGX

;TYPE PROGRAM TITLE
;AND INSTRUCTIONS
;GO RUN PRG!

001564

001565
002140
005266
001566

001566

172322

060000

172310

172276

007362
001440

SYNUAN N RO N

172244

001576

NONACT:

AND

GO BITS

;GET SOFTWARE POINTER

(1),11DAT
RINT3X
(1)
#BIT14,TTDAT
RINT3B
#160400,TTDAT

MOV
JSR
BIT
BEQ
BIT
BNE
BIT
BEQ
ERROR

%2.LINE
;FETCH LINE NUMBER
7,GTLINB
;FORM LINE BIT FOR BAR
LINEIT,aBAR
;1S THIS LINE ACTIVE
NONACT
;LINE NOT ACTIVE
LINBIT,3BAR
;WAIT FOR LINE
» =0
#BIT14+BIT13,3CSR
)
;BRANCH IF NO ERRORS

MOVB

TTDAT,OUTBUF(2)

TTIDAT+1,%2

:GET TUMBLE TABLE ENTRY
SEXIT IF NO ENTRY
:CLEAR ENTRY
;WAS BREAK RECEIVED
;D0 NOTHING ABOUT 1T
;CLEAR ALL BUT LINE # AND DATA

;GET LINE NUMBER

BIC

#BIT15,9CSR

;CLEAR TRANSMIT DONE

MOV

#-1,WCT1(2)

;LOAD LINE'S WORD COUNT

MOV
ADD
MOV
BIS
RINT3B: (MP
BNE
MOv
1S1

%2,13
#OUTBUF
%3
%3,CAT(2)
LINBIT ,aBAR
#TUMTAB+176,%1
.46

#TUMTAB-2,%!
(1)

;STORE RECEIVED CHARACTER

TTIPIR, %1

MOV
BEQ
CLR
BIT
BNE
BIC

%0
*2

MOV

MOVB

172332

160400

;SET

001564

XMTLVL, (1)+
#BI112+BIT6+BIT0,aCSR
#1,%0

ok o

040000

AU =

o OCONOC OO

005721

RINT3A:

;LOAD RECEIVER
sAND TRANSMITTER
sVECTORS AND PRIORITY
sLEVELS

NOP
NOP

001572
001564

CLKINT, %1
FRINT3, (1)+
CLKLVL,(1)+
FTINT3, ()¢

.k ok o

INC
BR

#TUMTAB,TTPTR

MOV
MOv
MOV
MOV
MOV
MOv
MOV

172420

PRG3A:

5.,0LYXMT

:TYPE PROGRAM
SHITLE
sSEE IF SWITCH-LESS
;BRANCH IF NOT
;GET SWREG SETTINGS
;USE PART OF THE
;DLYXMT ROUTINE 10
;SET UP DM
;INITIALIZE SOFTWARE POINTER

010101
000001

NN — NS NS NN NN NI~ N =

N
YN NNONO
S —
NO O TNNN=NWHWO WS WwW—=0Ww
—

ONWVN
=
= s = P OOWONO
WD — —

~ ON"VWNNUNNYNO
S YN NSE

007306
007312

001572

RINT3:

~ = PNIWONIONIWNN
IS =N

007260
007262
007266
007272
007300
007304

001600
001552
007132
001554
007336

001560

PRG3R:

F#SWREG, SWR
PRG3R

INSURES PROPER OPERATION

TYPE
PRG3M
cmp
BNE
CNTLU
JSR
MSG1
NOP
MOV

DM11]

T YETOYT

PRG3:

IS THE ONLY TEST THAT

DISTRIBUTION PANEL LOGIC.

T YN T

THIS TEST

THE DM11

001202

004472

o jolelelelelele
b e
il>lolelelele
BT

OOO‘OOOOOO‘%

VP
W —~OO0RNO NS W —O 0

rono POPTOPNOUNUNY
= b et el et et e el et s

coocoocoocoO

d—.—.—.—.dd—.dd—.—.—.—.—.—.d—‘

1608

007132
007134
007136
007142
007146
007150
007152
007160
007162
007170
007174
007200
007204
007212
007214
007222
007224
007232
007234
007236
007244
007252

104000

THIS PROGRAM ECHOS BACK DATA RECEIVED FROM ANY

:NOTE:

;OF

000176

33
S5¢Q

;PRG3-ECHO TEST
:TERMINAL(S)

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

PAGE

YT Y

0B:37

Y T

24-JuL-79

:AND CURRENT ADDRESS
;ECHO RECEIVED CHARACTER
;(HECK TUMBLE
;TABLE POINTER

30AC1052)

. R T

MACYTT
23=JuL=79 15:08
TST1S

. R

(20MBD P11

DATA

(2 DMBOO DM1Y

(2 DMBDO DM11

94 DMBD.P11

1636
1637
1638
1639
1640

1641
1642
1643
1644
1645
1646
1647
1648

DATA 1515

MACY!1

23=JUL=79 15:08

007314
007316
007324
007330
007332
007334

000712
062777
010137
000240
000240
000002

007336
007340
007346
007350

000240
032777
001401

060000

062777

160000

007352

0073%60

104003

000002

000200
001572

30A(1052)

26=-JUL-79

08:37

PAGE 34

3
SEQ

172216

BR
RINT3X: BiC

MOV

NOP
NOP

RINT3A
#BIT7,a(SR

21, TTPIR

RTI

172174

172162

TINTS:

sCLEAR (HARACTER DONE
;RESTORE

POINTER

FLAG

SEXIT

NOP

BIT
BEQ
ERROR
BIC

RT1

#BIT14+BIT13,3CSR

;ANY

#BIT15+4BIT14+BIT13,3CSR

SEXIT

ERROR

FLAGS

;CLEAR

ALL

SET

FLAGS

'1,

{

1649
1650

MACYIT

23=JuL=79 15:08

24-JuL-79

:
«N1BUF

010036

:
LNZBUF

010202

LN3BUF:

010346

LN4GBUF-

010512

LNSBUF:

010656

:
LN6BUF

011022

LN7BUF:

011166

LN10BF:

011332

LN11BF:

011476

:
LN12BF

011642

LN13BF:

012006

:
LN14BF

012152

LN15BF:

012316

LN16BF:

012462

LN17BF: 0
.=LN17BF+100.
INTAB:
LNOBUF

it ) e s il ol ol el el el el e D et et et D
VOV
— — s s e OO0 OO NN no
~ Of W—=O0 Ff Ww—0O0NWNOO wor
O OO0 = WNO
S NWO
NN =S OWw ~ oo
OO
O UV
NNONNO OO N >0

TM|
OO

OO
N NUNOND
coococooco>cooo
(o o
- XY IV IV IV 8
orNNooOrTNVNOoOO

¥
L

it
—

263

B vl

(sleleloelelelelelelslelalelele]

12632
1
1
1 2640
1 2642
1 2644
1
1
1
1
1
1
1
1
1

—

012626
012630

rorono

=LNOBUF +100.
=LN1BUF+100.

.=LN2BUF+100.

.=LN3BUF+100.

. =LN4BUF +100.

. =LN5BUF +100.

. =LN6BUF +100.

.=LN7BUF +100.

.=LN10BF+100.
.=LN11BF+100.

.=LN12BF+100.

.=LN13BF+100.

007526

(=lele i elolslelelelelalelelelelelelclalate] o

007672

=0UTBUF+100.

:
L NOBUF

OUTBUF:

000000
007526

30A(1052)

007362

ooC

coococoooo coocococoocoococo>
oo 0000000000
W~y ~i~~y NN~~~
o W
—-0O0

1651
1652
1653
1654
1655
1656
1657
1658
1659
1660
1661
1662
1663
1664
1665
1666
1667

DATA TSTS

(=]

CZDMBOO DM11
(2DMBD P11

.=LN14BF+100.

.=LN15BF+100.

.=LN16BF+100.

LN1BUF
LN2BUF

LN3BUF
LN4BUF

LNSBUF
LN6BUF
LN7BUF
LN10BF
LNT11BF
LN12BF
LN13BF
LN14BF
LN15BF
LN16BF
(NTTAB:

ID:

buI?BF

.=CNTTAB+16.

IDENTO
IDENT!
IDENT?2

SEQ

003

a0lnon0onoo0oOO0OOrOr0OO0r0~
OOONTOONTONTT 1‘22223335“"555566667777

Lal=Lal L )
DATA T1STS

23=JuL=79 15:08

MACYI!

q—q—q— gg—p— g g P

Gy3easrg0Ssien.0(Se-Re0Aotte0-(sR0.IOP(—s0(gIt2eTgtl0NG2.4Pi-2-.0S2e4Ts46.—S20N.l802NoT2O‘Sy046OS020T5N025N2‘L0A46O020T05020H2‘a0tO460520TNT02OE2‘ORO4620b20O‘266LDN0220N62R64BN022RN46BN02e
La—owPE—Ce-]4clA&EAX—[e2P.eto=eDRK"[—NwOPe=Y“E«RrN(D—M-.e=EYTY“2ARNO[—o.oeT=FY“[ERXr(Ng—e-P=“YELArOo—[T.-etRl2SERLT[r—-e=.E=]YJWI[—©VL.OY=OZRYELBr—[[E.NS=EW[—W0R-.L‘=YOLA—e[EWn.ST=C,LTO—Waeb.BE‘WEW[—eN.=|’DW—QWe.LOEWLI—[oe-o.TW=‘iDLueW—RQSBB “l|ZeOteL0sSLErd0‘sULMNstSvLEOOROLrC?RMLWOSV
2 DMBDO DM11
94 DMBD.P11

30A€1052)
26=JUL-T9
08:37
PAGE 36

3
v

1
VU

1LYs

(ZOMBDO DM11 DATA TS7S
NA(V&I
C20MBD.P11
23-JuL=79 15:0

30A(1052)

24-JuL-79

08:37

PAGE 37

SEQ 0037

1753

1754
1755

1756
1757
1758
1759

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

1781

1782

013050
013056
013066
013072
013100
013106
01311
013116
013120
013126
013134
013140
013143
013150
013156

013164
013172
013200
013206
013214
013220
013226
013234
013235
013242
013245

013252

013254

0420645
042522
051105
047524
051104
020075
045
040040
020040
020040
036527
036445
045
020110
040440

030515
042503
053040
020122
051505
100
053523
020040
020040
040040
040
044127
046504
042522

052517
044524
042045
051105
041057
020040
020040
040
040
020040
114

020040
100
047111

020040

040040

020043

052040
043516
052101
020122
020072
020040
040527

;MESSAGES
WHERE:
.ASCI1

*%DM11

036522

S$SWREG:

.ASCI]

'%SWR= @'

020040
042516

$VALUE:

.ASCI1

°*

$CTLU:
WHICH:

.ASCII
LASCI1

'%=°
‘%WHICH DM11

ERDAT:

.ASCII

"%DATA ERR

020040
035123

AASB:

.ASCII

°*

020040

AwWAS:

.ASCII

020105

LINEM:

_ASCI1

°LINE #

ALINE:

LASCII

"%TYPE PROGRAM #3'

M1:
mM2:

ASC11
LASCI1

'%TEST (ZDMB COMPLETER'

M3:

LASCI]

"%SET

LASCIT

'SR = 000000 PRESS CONT.d'

02006%
053111
041505
042101
020123

041511
030461
056440
051505
040040
020101
051440

RECEIVER VECTOR ADDRESS - a'

NEW:= @°

ARE YOU TESTING a'

S/B:

WAS:

1783
1784
1785
1786
1787
1788
1789
1790
1791
1792
1793
17964
1795
1796
1797
1798
1799
1800
1801
1802

013260
013266
013274
013300
013303
013310
013316
013324
013330
013336
013344
013352
013360
013366
013371
013376
013404
013412
013420
013421

052045
051120
020115
037445
045
041440
041440
052105
051445
020122
047117
051117
050117
047511
123
030060
050040
041440
100
045

050131
043517
040043
100
042524
042132
046517
040105
052105
050117
027123
040515
051105
116
020122
030060
042522
047117

020075
030060
051523
027124

040504

040524

PRGOM:

_ASCI]

'XDATA TEST ALL LINES @'

1806
1805
1806
1807
1808

013434
013442
013447
013454
013462

046101
042516
045
052040
051124

020114
020123
040504
051505
047101

044514
100
040524
020124
046523

PRGIM:

_ASCI1

°"XDATA TEST

1803

013426

052040

051505

020105
040522
052123
041115
046120

051440
044524
047040
020114
052101

020124

MO:

SR OPTIONS. NORMAL OPERATION'

;

TRANSMIT ON ALL LINES SIMULTANECUSLYa

DATA TSTS

MACYIT

23=JUL=79 15:08
052111
07
516
052515
505

020116
044514
044523
047101
054514

4
1
4
1

047101
052040
046522
040123

0
1

3
1
1
¢

704
712
720
721
726
732
734
742
743
745
752
760
766
776

002
010
016
024
032
040
044
046
050
052
05¢
05¢
060
062
064

040520
047440
020116
052117
051111

047475
036505
100
045
020040
020075
020040
100
015
040
052521
051102
047506
050115

042526
020105
042040
040502
031462
034470

014044
015
177400
177400
177400
177400
177400
177400
177400
177400

044522
052120
047050
042040
042105

24-JUL-79

CB:37

_ASCII

"XTRANSMIT

020}65

PRG3M:

_ASCI1

'XECHO TESTa'

020124

PRGI:

LASCII

"RPUT CHAR IN SR(0-7),DELAY IN SR(8-15)a"

POPPAR:

.ASCII

'XTYPE PARITY OPTION (N=NOT DESIRED 0=0DD, E=EVENa'

"%R
°*

044440

TO TERMINALSA'

030050

042504
047111

026470

020105
054524

047511
047075
051505

047440

020054
047105

020122
020040

041520

EMO:
ATNUMB:

LASCIT
.ASCI1

020040

APC:

A5t

012
044124

020105

MSG1:

.BYTE
LASCII

012

PRG2M:

042104
0535105

041511
053517
020130
042105
020122
040514
043517
045503
032464
060

PAGE 38

5EQ 0038

047440
020114
020123
052114
051525

3646
3654
3662
670
676

30A(1052)

020113
020116
052512
047440
044124
054532
020123
030440
033466

MSGe:

.EVEN
.BYTE
177400
177400
177400
177400
177400
177400
177400
177400

PCz "

?'
15.12
' THE QUICK BROWN FOX JUMPED OVER THE LAZY DOGS BACK

15.12

1234567890'

¥%) WO0O0O0O0COOCOOOOOOOOOOoOCoOoCOOV
M~e<(O=<—01%l]"0%Oe1O0“O1UO‘0ULO.0oe’O0U1OoO0U1O0AO0U1lO‘f01Il5O&'J2O)vQU8Al-Os2LTI5Oa8l2‘58LA15l=Oo2OlO81No5lO5DA2sOl81DolOO2sA1O8lOT9Us21NOc&9Os'2.l6e9Os728lO99'Us2((wo"=-0aO!]v¥]1A9Tis2.lT210sA~32'rA‘1N0T5s26A'7N“Is1320IA'9Ts!I0N20T"1sn2'2901n31.n4“5lln506“l718"9l1011l"7“-l"!2"7-o~‘—w,e4LTy7L1iLy7sy<4eL‘y7v4y7L4ST‘Y74L7S4LS‘7eT4lTS7S“Tl7lSTlwSll7Snl7Se‘l7lef7ei7el8enLleweLlelneLT.L0el0LD0Lt~w-0N—L=jN{0e=LelNk=0lRNL=lRN=0lNLe=ll0eklLeelNl0yoeLlSlo0lSRo.olloe0LolleeIol0le.loeLl0lolol.p0roelLleel.l0eeeLlleIe0leo.-llAeIBLoll
(ZDMBDO DM11 DATA TSTS MACY1Y
(ZDMBD.P11
23=JuL-79 15:08

30A(1052)
26-JUL-T79
08:37
PAGE 39

3
SEQ 0039

eFyO\oIe8oovNvTo=POSFOe-vOBBeNSR&A7SA‘AN“AA‘A——A—AQ.O‘A0A-NAIOARSAAOANA

NOoeOg90U—of'~L—glO—NM1go9SnA—0O‘M—OUgCl1—uo19"SO)1~:pMN'l—o9Ns11t—qR!_1cAoo9NI—‘a_NS‘nW1OL—1ORwo51S97M58:M431o9ScN2Wh~NOec'1ao9Vc’aol1nMo9)wBN;uo?R‘~tlo91Ih'c1OqRWwco9(P—v1‘a&o2mc;1o9a&3;“c&SosA11cRo9&Na'1c&o"0e1—512;o9&2O71(:o‘‘G;l9o&16aOF;c0co0aT)¢O’c9o211"|&o41Fn1T&v9o6DF2A":9o0v172!e1I(o2|T’1e;&o9‘11T~1PM£o6!OoTW1&990o1:Ogo2o7iO;io:9‘bziOo&6oNJzon&09;vTo&n2N;ov&49no;Iv&61oa}:0o6aVn:2o)u:osOarm&o7Va.m:OAOal!N:oOOJ;'In:oO1UiTnonlvGOv,on"0ONcvnolNivfnoTl0cv
'Log.l.'NIvLlAPO.McNNlLM.MOOIM.lNNo~LSl.LlOJvlL'N-tLr~ANqSAlLN.NNlOLqNMMlOMOvLltJlLoONleqL—l'LwO q-lvLlevlIv_lLql-Lc8l—'000007577670307e0e0e70e(l)0e70e7e070e603e070N000L—ld
2 DMBDO DM11
2 DMBD.P11

DATA T1STS

23-JUL=79 15:08

MACY11

o ~N

30AC1052)

264=JUL-T9

= v (] w

08:37
PAGE 40

—wgo

SECG 0040

(ZOMBDO DM11 DATA TSTS
MACYIT
CZDMBD.P11
23-JuL=-79 15:08
1977
1978

1979
1980
1981
1982
1983
1984
1985

014426
014430

014432
014434
014436
014440
014442
014444

000200
177377

175775
167767
137737
177500
01%
015
000001

30A(1052)

24-JUL-79

O08:37

PAGE &1

SEQ 0041
200
177377

012
012

175775
167767
137737
177500
BYTE
BYTE
.END

15,12
15,12

2914

013254

536

013220

ALINE

ALTO

ALTT

= 052525

125252

APC
APCADD

013734
002134

ATNUMB
AWAS

013724
013235

ATLAST= 177777

BAR

BARDAT

BARIM
BASREG

BAT
BELL

BITO

BIT1
BI1110
BIT11
BIT12
BI1135
BIT14
BIT15
BI112

BIT3

578

287
1901
1914
288¢
1933
1946
555
5154
2864
559
582

554

639+

763+

827+

4604
4554

1075«
641

818+

952+

24L9#

761

763

646
989
532
642
2340
761

Lo3N

= 000001

= 000002
= 002000
= 004000
= 010000
= 020000
= 040000
= 100000
= 000004

= 000010

4494
285#

24LBH
2394
2384
2374
2364
2354
233
2478

24L6H

BlT4

= 000020

2454

BIT6

= 000100

243N

BITS

= 000040

BI17 = 000200
BIT8
= 000400
BI119
= 001000
BKCSR
001546
BMOVE
005200
CARMSK
CAT

2440

2420
2414
240N
4540
957

450

761

10954
791«
825«
876+
614
915#
1139
549
764
1720

(SR

001542

CURTST

002012

473

1554
551
1165
1171
828

828

1896
1909

1897
1910

1898
1911

1899
1912

1900
1913

1926
1939

1927
1940

1928
1941

1929
1942

1930
1943

1931
1944

1932
1945

1010«

1025«

1029

1076+

1558+«

1559

1618

1620

989

1557

1600

1600
1165
1168
1625

1168
1612
1647

1622
1622

1644
1644

989

1554

1600

966
831«
641

971
1106
760+

1057#

1545

1550

818

823+

952

1023+

1073

1544«

1546

1547

1630+

1566
824
983
895#
909

981
1597
927
1540

1595

1699

1700

1724

1726

1728

1730

1732

1734

1736

1738

1740

1742

989+

1003+

1009+

1157+

1165

655

1014
4564
4570
859+
283
503
968
531
520#
1718
1744
452
1168

828

1895
1908

621
638+
962

005320
001552
001554
004254
1046020

002146
105215

1006

1894
1907

1637

822+
446

004332
012666
002356

1893
1906
1919
1925
1938
1951

1157

5124
4458

2284

1892
1905
1918
1924
1937
1950

18394
17784

002126
001400

= 177776

CHKDAT
CLKINT
CLkLvL
CNT
CNTLU =
CNTLUU
CNTTAB
CNVDAT
COUNT
CRLF
=

1889
1902
1915
1921
1934
1947
18414
545«

548+

001570

001500
= 000007

17754

1891
1904
1917
1923
1926
1949

122%#

SEQ 0042

1782

1890
1903
1916
1922
1935
1948

001544
001562
001550

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

1746
637+
1169

623

1140
5764
765+
1722
1748
761+
1171»

629

1750
811
1554+

679+

1647
1647

1590

1751#
819+
1557+

828+

1563+

830«

1600+

955+

1622

1625+

1637«

1644

1647

————————

= 000000

30A(1052)

AASB

DATA TSTS
MACY11
23=JUL=79 15:08

(ZDMBDO DM11
CZDMBD.P11

2 DMBDO DM11 DATA TSTS
MACY11
CZOMBD.P11
23=JUL=79 15:08
DATCHK=

DISPLA

104004

001204

DISPRE
DLYXMT

000174
004472

DMPAR

003334

UMPARB
003620
DTICHK
002156
EMALT = 104010
EMO
013721
EMTINT
003064
EMITAB 002046
ERDAT
013200
ERR
002224
ERRA
002262
ERRB
002324
ERRC
002332
ERREX
002352
ERRHLT
002350
ERROR = 104003
ERROR1= 104015

30A(1052)

273%#

1107

429
9514
1337

941
1193
1349

1205
1361

590

7474

786

L4438

1493

1505

1838#
6834
689
17724
S4L4LN
5504
547
5664
5714
5704
767
538

GETRDY
GTLINB
GTRDYA
GTRDYC
GTRDYD
GTRDYX

004410
003032
002540
005266
002566
002610
002632
002546

916
620
609
10834
6204
622
628
6164

928
6748
613
1617
631
6254
6304
658

10
IDENT
IDENTO
IDENTT
IDENT2
IDENTS
IDENT&G

012706
005024
(012746
012752
012756
012762
012766

1023
953
1702
1703
1704
1705
1706

17024
10204
17184
1720%
17220
17244
17264

012776
013002
013006
013012
013016
013022

1708
1709
1710
171
1712
1713

1730#
17324
17348
17364
17384
17408

INCRIN
INTAB

002150
012626

523w
1098

KBDINT

004256

502

FAJAG
FORWD

ICTR

IDENTS

IDENTE
IDENT7
IDNT10
IDNT11
JONT12
IDNT13

IDNT14
JIONT1S
IONT16
IDNT17

KBDIN =

002020

012772

013026
013032
013036
013042
104017

2304
500
497

L4760

17C7

SEQ 0047

941

7964
491
2764
562
305
4LBT7#
565
490
546
544
552
569
567
2724
2804

ERRVEC= 000004
ERR1
002242
ESCOPE
002650

&
E
24-JUL-79
O0B:37
PAGE 44
CROSS REFERENCE TABLE -- USER SYM3OLS

1517

806
529#

616+
5474
6364

652+

1217
1373

1229
1385

1241
1397

1253
1409

1130
1147

1167

1624

1646

633

656

663

1183

1529

1541

5634

1125
1011

9304

615#

677+

1728#

1714
1715
1716
1717

174208
174408
17464
1748%

282#

550

632
1136

900#

1591

1683#
o

640

1265
1421

1277
1433

1289
1445

1301
1457

1313
1469

1325
1481

DMBDO DM11

DATA

DMBD.P11

4720
4620
5184

wn—

5174
540
970+
16534
16674

worno

SOV

oo NN

OWe -vnOo i~

i— OS>

MACY11

23=JuL=79 15:08

002010
001566

NOOO VWO &

TSTS

30A(1052)

615
990+

1101=

535

1780#
972

1654

1668
1670
1672
1674
1676
1678
1680
1682
1656
1658
1660
1662
1664
1666

1178+«
999«

1102+

991+

973
1684
1691
1692
1693
1694
1695
1696
1697
1698
1685

1181+
1021+

1025

1103»
992

1104

998+

1027+
113¢¢
1020+

16514

1652

1683

1206
1302
1386
1434

1482
17834
785
1568
17914
16264

SEQ 0044

1075
1141«
1022

1076
1142«
1026+

1266
1362

1084+

1087«

1618

1620

1072

1085

1100«

1616+

1278
18564

1542

1592

18434

460
489
516

461
492

462

493
518

463
494
519
1650

676+
919

449
475
512
719
959

456
477

838#

10354
458
488

514
958
1105

1052
1544

1626+

1629

164698

604

975

986

1555

1564

515

685+
POPSP =
POPSP2=
PRGI
PRGL IM

PRGNUM
PRGTAB
PRGX

600+

PRGO
PRGOA

PRGOM
PRGOR

PRG)

006640

1631

1952#

657
576

004042

24-JuUL-79
0B8:37
PAGE 45
CROSS REFERENCE TABLE -- USER SYMBOLS

601

495

520

L66

496

563

762+
581
800

O =W N
— 00

O VY NN

RRRRERRRRERRRT
R
RN R

s —a N

O 00w

N AN N PO PO N

OOV

N N N

N D —

WNIN —=

N WY =

N AN N

N LA

NOOWVES N

NN =N OO O O 000
ONNDOTD oororos

—
—

il
ol

N N

ol
ol
il
ol
il
il

88
86
00

WO T TN

2794

499
4740
178

ettt
T
—

006310

471
459

RT17A

006250
006260
006270
006300

1591#

4834
434
436

NN
WOV

RTISA
R116
R116A
RY17

006210

1570

832+

1006+

1104+
925

1064

1115

1159

627

6750

1179«

8574

1144+

1610

006220
006230
006240

RT13A

15412

16094
1613

RT14
RT14A
RT1S

1539
1577#

982
1596

002422
002472
104014
003156
002014
005720
005730
005740
005750
006120
006130
006140
006150
006160
006170
006200

18064

5164

N N

RSTAT1
RSTAT2
RSTREG=
RSTRG
RTNNO
R10
RTOA
RT
RT1A
RT10
RT10A
RTI
RT11A
RT12
RT12A
RT13

1567#

2294
5104
597

002036

<
6
24-JuL-79
08:37
PAGE 46
C(ROSS REFERENCE TABLE -- USER SYMBOLS

15449

259
2584
2574
2564
2554
254
2534
252

RSTART

007300
007316

1537
484
481
1578
485
482
977
1587
486

—

RINT3B
RINTZX

988

—

PR1Y1 = 000040
PRTY2 = 000100
PRTY3 = 000140
PR1Y4 = 000200
PRTYS = 000240
PR1YE = 000300
PRTY7? = 000340
PRVCNT
002136
PSWw
= 177776
RCVDAT
002122
RECD
004076
RINT
005426
RINTS
007132
RINT3A
007142

30A(1052)

15644
1565
15694

——

007030
007034
007062
013556
007052
000000

23=JUL=79 15:08

—

PRG2R
PRG3
PRG3A
PRG3M
PRG3R
PRIYO =

006666
006776
007012
007016
013447
006656
007024
013527

MACY11

—

PRGIA
PRGIC
PRGID
PRGIEX
PRGIM
PRGIR
PRG2
PRG2M

DATA TS1S

——"

CZOMEDO DM1Y
(I0MBD.P11

NN AMNIMANIN

1185#

1182+

SE0 0045

CZDMBDO DMY1
(ZOMBD .P11
R12
R12A

R120

DATA T1STS
MACYIT
23=JuL=79 15:08

005760
005770

006320

R120A
R121
R121A
R122
R122A

006330
006340
006350
006360
006370

R1Z3A
R124

006410
006420

R123%

RT124A

R125
R125A
R126

RT126A

R127
RT127A

006400

006430

006440
006450
006460

006470

006500
006510

1198
1212

12094
1217#

1380
1378
1392
1390
1404

13854
1389
1397#
14012
14094

1366

16402

1426
1440
1438

14374
14454
14494

1450
1464

14614
1469%

1428

1452

006000
006010
006520
006530
006540
006550
006560
006570
006600
006610
006620
006630
177777
006020
006030

1524
1522
1222
1236

RTSA
R16
RT6A
RY7
RT7A

006050
006060
006070
006100
006110

1248
1246
1260
1258
1272

SAVREG=
SAVRG
SCOPE =
SCOPEA
SCOPEB
SCOPEC
SCOPED
SCOPTR
SPBOT
SRSET
SRT
STALL =
START
STRXV =
STTXv =
SUSWR =
SUSWRR

006040

104013
003116
104012
002706
002714
002750
002752

002022
001200
002506
002110
104002
002404
104006
104007
104016
004412

14138

14214
14254

1210
1224
1462

1476
1474
1488
1486
1500

1498
1512
1510

1234

278%
498
277K
644N
643
647
6264
4778
AT ]
606#
505#
2714
433
2744
2754
281#
501

14334

14574

12214
12294
14734

14814
14854
14934
14974
15054

15094
1517#
15214

15294
1532#
12334
126414

12454

12534
12574
12654
12694
1277#

1035
693#
1016
653
646N
651
6554
644
588
1180

5884
589
933#

’

24-JUL-79
0B:37
PAGE 47
CROSS REFERENCE TABLE -- USER SYMBOLS

1377

1416
1414

RT3
RT3A
K130
RT30A
RT3
RT31A
R1%2
RT32A
R133
RT33A
RY 34
RT34A
RT3
=
RT4
RT4A

RT1S

30A(1052)

1057

1095

1121

603

618

1150
6544

678+
592

1569

560 0066

014446

$SENDAD
$SWREG
$SVALUE

003022
013111
013120

940

1538

1588

907
882
881+

885
884+

9264

929

1134
1594«

1142
1608
963

1609+

655

900

1612

1614+

1615

1626

964

967

980

1152

660
1586

775

929«

1154

1594

1632

784

798

804

890

1551

1552

1627+

1249#
1328
1605#

%
-

1123+
980+
467

00 W

906+
879
Bb4r

905+
735
734

905

—

860
862

00
= s

11644
16434

961+

1638+

7224

561

564

917

923

1176

1536

1567

595

610
1577

797
4514
773
7844
783
770
LLTH

465
780
788
7874
7784

801#

802

807+

808+

809+

813

1189#
1268
13454
1424
1501#

1196
12734

1352
14294
1508

1208
1285#
13€4

12254
1304
13814
1460

1232
13094

1520

1213#
1292
13694
1448
1525#

577

1008+

1106+

11460

14410

1388
14654

1244
1321#
1400

164778

1484

315
341
367
393
419

317
343
369
365

319
345

793
1549

792+
1144

—

791
1074~

—

789
1024+

—

787
1001

781+
821+

779
759+

—

7824
790

—

523

892

2708

915

S mwmnro
~NNO
— N
RN~

005222
002124
001556
001560
000000
013140

920

646

1599

1763#

297
325
351
377

403
6394
1603

o668

299
327
353
379

405

LaLy

1621
16684

301
329
355
381

407

XY|

1623
16708

3
3
3
3

409
448
1633
16724

611
4504
1645
16744

309
335
361
387

413
465K
1650%
16764

313
339
365
391

LR
B 3

XMITD
XMTIDAT
XMTINT
XMTLVL
Y
=
$CTLU

2694

642

S wroro
N0
N
WO NO

003640
001540
003540
003550
003556
003522
001440
013050
013143
000034

487

625

104001

4704
LH1#
Lo4LN
LO6N
1634

621

ONND
VO W~

UNIT
VAC
VECOK
VECOKA
VECOKB
VECTOR
Wt
WHERE
WHICH
X
=

104000

5084
5094
4714

606

003220

469N
4684
904

SEQ 0047

1588
915

TYPES

5074

900

568

TABLE -- USER SYMBOLS

WO NND

TYPE

1598
5064

606

551

1538

PAGE 48

TYpP

5134
984

532

940+

08:37

CROSS REFERENCE

000176
002130
TINT
005620
TINIS
007336
TKCSR - 002112
TKDBR
002114
TkLve
002002
TKVIR
002000
Pl
004370
TPCSR
002116
TPOBR
002120
TPLVL
002006
TPVIR
002004
TIDAT
001564
TTPIR
001572
TUMTAB
001600

44298
936
4308

26=-JUL-79

SWREG
TEMP

23-JuL=-79 15:08

30A(1052;

001202

MACY1Y

SWR

DATA TSTS

O =t —a
oo

(ZDMBDO DM11
CZDMBD.P11

417
736
16548

1680#

976
16564

1682#

4228
987
16588
17008

571
397

G240
1556

16608

18548

(ZDMBDO DM11
CZOMBD.P11

GE?Y

HEADER

XMIDLY

ABS,

DATA T1STS

MACY!T

23=JuL=-79 15:08

PARYJ

1352
211
1352

014446

ERRORS DETECTED:

597
1184
1364
1184
1364

777

11%
1376
1196
1376

3CA(1052)

26=-JUL-79

CROSS REFERENCE

800
1208
1388

1208
1388

925
1220
1600
1220
1400

000
0

ST /CR¥ /SOL/NL:TOC=CZDMBD.P11
(ZDMBD ,.BIN,CZDMB D.LS
RUN=T
[ ME : 6 122 SECO NDS
RUN=TIME RATIO: 121/2 1=5.
(15
(ORE USED:
15
p AGES
8«
vw

08:37

1232

PAGE 50

TABLE -- MACRO NAMES
1244
1424
1244
1424

1256
1436
1256
1436

1268
1448
1268
1448

SEQ

1280
1460

1280

1460

1292
1472
1292
1472

1304

1484
1304
1484

1316
1496
1316
1496

1328

1508
1328
1508

1340
1520
1340
1520

004L