Digital PDFs

AH-8521C-MC

January 1980

58 pages

Original

3.2MB

view download

OCR Version

2.8MB

view download

Document:	CZDLBC0 DL11-E DL11-E ON LINE TEST JAN 1980 bw
Order Number:	AH-8521C-MC
Revision:	000
Pages:	58
Original Filename:	CZDLBC0__DL11-E__DL11-E_ON_LINE_TEST__AH-8521C-MC__JAN_1980_bw.pdf

OCR Text

DL11-E ON LINE TEST

CczZDLBCO

AH-8521C-MC

JAN 1980

FICHE1 OF1

IN USA
MADE

copvriGHT 72-80

TNMBRAD

(2CLBCO DL11-E ON LINE TSET
19=JUL=79 15:06
c70LBC.P1Y

19-JUL-79

15:10

PAGE
1

SEQ 000

.REPT 0O

NN N

NONIPOMININ)
2 b —d D D ek b ek ea

NN 2O 000 NN\

000000

MACY1T

30A(1052)

2OV

IDENTIFICATION

(¥,]

PRODUCT

CODE:

AC-8520C-MC

PRODUCT NAME:

(ZDLBCO DL11-E

ON LINE

PRODUCT DATE:

JuLY

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHOR :

ROBERT WHITTON

TEST

'979

THE INFORMATION IN THIS DOCUMENT [S SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL

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

SOF TWARE

DESCRIBED

THIS DOCUMENT

IS FURNISHED UNDER A

LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE
TERMS OF

SUCH LICENSE.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE
USE OR RELJABILITY OF ITS SOF TWARE ON EQUIPMENT THAT S NOY
SUPPLIED BY DIGITAL.

1972,1979 BY DIGITAL EQUIPMENT CORPORATION

(20LBCO DL11~E ON LINE TSET
19-JUL=79 15:06
r2DLBC. P11

MACY1T

30A(105¢)

19-JUL=-79

15:10

PAGE

SEQ 0002

ABSTRACT
TWO SEPARATE

DIAGNOSTIC PROGRAMS ARE PROVIDED FOR

THE

DL17-F

(ASYNCRONOUS LINE INTERFACE), CZDLA (DL11~E OFF LINE
TESTS) AND CZDLB (DL1'-E ON LINE TESTS).
THE OFF LINE
TESTS TEST ALL DL11-E LOGIC AND MAY BE USED TO INDIVIDUALLY
TEST UP TO 31 DL11-E'S.
THE OFF LINE TESTS DO NOT REQUIRE THE

USE OF A MODEM, HOWEVER A SPECIAL JUMPER CONNECTOR IS REQUIRED.
THE ON LINE TESTS ARE ESSENTIALLY DATA RELIABILITY TESTS REQUIRING THE USE OF MODEMS AND A SUITABLE TERMINAL DEVICE.
THREE

STARTING ADDRESSES ARE PROVIDED.

THEY ARE:

200 - NORMAL START
210 - REMAP DEVICES PRESENT AND RESTART
220 - MODIFY DEVICE ADDRESSES IF NON STANDARD
INSTRUCTIONS TO DO THIS ARE

THIS DOCUMENT DESCRIBES THE ON LINE
THE AVAILABLE

PRGO
PRG1

PRG2

PRG3
PRG4

TYPED OUT.

TESTS.

1ESTS ARE:

SINGLE CHARACTER LINE MODE DATA TEST

BINARY COUNT LINE MODE

DATA TEST

MESSAGE TRANSMIT ONLY W/W/0 PARITY

RECEIVE DATA TEST

MESSAGE

TRANSMIT

(SPIRAL)

ONLY W/W/0 PARITY,

REQUIREMENTS

EQUIPMENT

2.2

PDP 11

SYSTEM

DL11-E(S)

SUITABLE TERMINAL DEVICE

MODEM TYPE 103 OR 202 OR EQUIVALENT

(ASR 33, 37. DATA POINT, ETO)

STORAGE

THIS PRCGRAM USES 8K OF MEMORY

(ZDLBCO DL11~-E ON LINE TSET
(Z0LBC.P11
19-JUL=79 15:06

MACY11

19-JUL=79

30AC105)

15:10

:
OPERATING PROCEDURE

LOADING PROCEDURE
THE ABSOLUTE LOADER

3.2

D o

BIT1-0

b e

BIT1
0
0

1
1

SE@ 0003

1S USED TO LOAD

THE

PROGRAM.

DL11-E PARAMETERS ARE:

CHARACTER LENGTH

BITO
0
1
0
1

(HAR. LENGTH
8
7
6
5

WHEN A TERMINAL 1S INVOLVED DL11-E PARAMETERS
SET ACCORDING TO TERMINAL SPECIFICATIONS.

ko
—d od d cnd D e e

DL11-E PARAMETER SELECTION
THE SELECTABLE

D e

D ad b d

NESo®mIT
hran 2o 3RIRARIB2S8E &

94
95

PAGE

3.3

PDP-11

SHOULD BE

STANDARD OPERATING PARAMETERS

SW15
SWi4

1
1

HALT ON ERROR
SCOPE LOOP (NOT USED)

Sw1i

INHIBIT ITERATION (NOT USED)

SwW13
SwWi2

1
1

INHIBIT ERROR PRINTOUT
INHIBIT TRACE TRAP (NOT USED)

Om
ooy

Qoo

b —
e

& 000~

19=-JUL=79

15:10

1
PAGE 4

SEQ 0004

GENERAL
THERE ARE

THREE

CONFIGURATIONS USING DL11-E/MODEM PAIRS WHICH

MAY BE SELECTED BY PRGO AND PRG1.

el o

MACY11

3.4

ed
B e
D oD ed oD ek
D
D

D
ed

b
D ed e

e e

D D

IV IV IV IV IV IV TV IV TV, Pl S o o o S

—t o rd d ek e

lalal

C M DL1T~E ON LINE TSET
C LY
19-JUL=79 15:06

30A(1052)

THESE CONFIGURATIONS

ARE SELECTED BY THE USER WHEN REQUESTED BY THE PROGRAM DURING
THE LINE CONNECTION ROUTINE.
THE FOLLOWING PROCEEDURES SHOULD BE FOLLOWED TO SELECT ANY
OF THE THREE SELECTABLE CONFIGURATIONS:

CONFIGURATION O:
THIS CONFIGURATION TRANSMITS DATA FROM THE
DL11-E CONNECTED TO THE LINE THAT WAS CALLED TO THE MODEM THAT
CAL_ED (THE CALLER). THIS CONFIGURATION MAY BE USED TO TRAN-

Mm.T DATA TO A TERMINAL DEVICE. NOTE NO DATA CHECKING IS PER-~
FORMED BY THE PROGRAM,HOWEVER,DATA MAY BE VISUALLY CHECKED AT
THE TERMINAL DEVICE. TU INITIATE PROGRAM ACTION CALL THE MO-

DEM CONNECTED TO A DL11~-E FROM A MODEM CONNECTED TO THE TERMINAL
DEVICE. WHEN THE PHONE RINGS AT THE PDP11 THE PROGRAM WILL REQUEST
THE CONFIGURATION. SET BITSO-1=00 BY TYPING IN OCTAL FOLLOWED BY A (R.
WHEN THE 'HANDSHAKING' IS COMPLETED THE PROGRAM WILL REQUEST DL11-E
PARAMETERS. TYPE THE PARAMETERS AS REQUESTED.
THE PROGRAM
WILL TYPE "LINE CONNECTION MADE' AND BEGIN DATA TRANSMISSION.

(3822233322222 ¢823 3]

AANARNRANAA
R AA NS AR

DATA SET

zzz_zz=z_~z

*
~

DATA SET

224 202438222d 2 a8

(3232838222802
8]

(22222222223 d2dd R

AENKAAARNRRRNAA
NN R WTM

«
*

DL11-F

12832323220

RaRE

REMOTE

TERMINAL

RAARRAAARR
A AR EN

=
*

CONF IGURATION O
CONF IGURATION 1:
THIS CONFIGURATION TRANSMITS DATA FROM THE
DL11-E CONNECTED TO THE LINE THAT WAS CALLED TO THE DL11-E CONNECTED TO THE LINt 7HAT CALLED (THE CALLER). TO INITIATE
PROGRAM ACTION CALL THE DL11-E YOU WISH TO TRANSMIT ON FROM THF

LINE CONNECTED TO THE DL11-E YOU WISH 10 RECEIVE THE DATA ON.
WHEN THE PHONE RINGS AT THE PDP11 THE PROGRAM WILL REQUEST
THE CONF IGURATION AND MODEM TYPE. TYPE BIT0-1=01 & BIT2=0 If

A 103 (OR EQUIV.) AND BITZ2=1

IF A 202 (OR EQUIV.).

THE PROGRAM WILL REQUEST THE LINE NUMBER THAT YOU CALLED FRQOM,
TYPE THIS IN OCTAL FOLLOWED BY A CARRIAGE RETURN. WHEN THE CARK %=

CZDLBCO DL11~E ON LINE

(20LBC.PM

Sviged

10-JUL=79

30A(105)

15:10

PAGE 5

<@ 0005

IS HEARD [N THE HEADSET PRESS THE DATA BUTTON ON THE DATA SET.
YOU HAVE APPROXIMATLY 10 SECONDS IN WHICH TO DO THIS. WHEN

THE

"HANDSHAKING'

COMPLETED

THE

PROGRAM WILL

REQUEST

DL11-E PARAMETERS. TYPE THE PARAMETERS AS REQUESTED.
THE PROGRAM WILL TYPE 'LINE CONNECTION MADE' AND

BEGIN DATA TRANSMISSION. WHEN 100. CHARACTERS HAVE BEEN

PROCESSED (TRANSMITTED/RECEIVED AND CHECKED) THE BELL WILL
RéggfggngE TTY, AND ANOTHER 100. CHARACTER BLOCK WILL BE
P

NOTE, DL11-EA#X REFERS TO THE
FERS TO THE CALLING DL11-E.
22222200

DL11-E, AND DL11-EAY Rt-

AARNRARA
NN AN AAR

oo~

—t

Nolle)

L2222

'CALLED'

d i

19-JUL=-79 15:06

MACY1T

d ol

P e

KERIC2EBS i

D e

179
180

TSET

DAJA SET

w=-z*

1432238428222

199

_== = ==

-=_-__

-«

DATA SET

8ddq 1

AARAR

AR RN
ARAR

ARNARRNRARARN

(22833223222288
221

L2228

DL11-E
22222222

2R}

DLNM-E

1223233232232
22322 3]

UNIBUS

CONF IGURATION 1 103 OR 202
CONF IGURATION 2 103 ONLY

30A(105¢)

10-JyL=79

15:10

CONFJGURATION 2:
THE

CALLED

PAGE

“FQ 0006

THIS CONFIGURATION TRANSMITS DATA FROM BOTH

TRANSMITTER AND

THE

TRANSMITTER CONNECTED

TO THE

LINE THAT WAS CALLING,].E. IN ADDITION TO THE DATA TRANSMITTED
AS IN CONFIGURATION 1 DATA IS ALSO TRANSMITTED IN THE REVERSE
DIRECTION. TO INITIATE PROGRAM ACTION CALL THE DL'1-E
YOU WISH
TO TRANSMIT ON FROM THE DL11-E YOU WISH TO RECEIVE/TRANSMIT ON.
WHEN THE PHONE RINGS AT THE PDP11 THE PROGRAM WILL REQUEST THE

CONF IGURATION AND MODEM TYPE. TYPE BITO-1 -10 AND BIT2=0. NOTE:
«wxwxatxxD0 NOT USE MODEM 1YPE 202 (OR EQUIV) USING CONFIG #2x=w~

THE FROGRAM WILL REQUES/ THE LINE YOU CALLED FROM. TYPE THE
NUMRER IN OCTAL FOLLOWED BY A (R. WHEN THE CARRIER IS
HEARD IN THE HEADSET PRESS THE DATA BUTTON ON THE DATA SET.
NOTE YOU HAVE APPROXIMATLY 10 SECONDS IN WHICH TO DO THIS.
WHEN THE "HANDSHAKING IS COMPLETED THE PROGRAM WILL REQUEST
TWO SETS OF DL11-E PARAMETERS. THE CHARACTER LENGTH OF BOTH SETS
MUST BE THE SAME AND THE SPEED OF THE SECOND SET MUST BE GREATER
THAN THE SPEED OF THE FIRST. WHEN THE PARAMETERS HAVE BEEN LOAD-

ED THE PROGRAM WILL TYPE 'LINE CONNECTION MADE' AND BEGIN TO
WAY DATA TRANSMISSION. WHEN 100. CHARACTERS HAVE BEEN RECEIVED
AND CHECKED THE BELL WILL RING AT THE TTY, AND ANOTHER BLOCK
OF 100. CHARACTERS WILL BE PROCESSED.
NOTE, DL11-EA#X REFERS TO THE ‘'CALLED' DL11-E, AND DL11-ERY REFERS

'CALLING'

DL11-F.

L INE NUMBERS

LINE
LINE
LINE
LINE
LINE
LINE
LINE
LINE

77561
77562X
77563X
77564X
77565X
77656X
77567x
77570X

00
01
02
03
04
05
06
07

b oned

LINE
LINE
LINE
LINE
LINE
LINE
LINE
LINE

LINE NUMBER REFERS TO THE ADDRESSES TO WwHICH THE DL11-E RESPONDS.

3.5

TO THE

NOAWNDINWNN
- O

MACY11

(Z0LBCO DL11=E ON LINE TSET
19=4UL=79 15:06
czoLec.P1

77571X
77572X
77573X
77574X
77575X
77576X
77577X
77600X

LINE
LINE
LINE
LINE
LINE
LINE
LINE
LINE

20
21
22
23
24
25
26
27

77601x
77602Xx
77603X
77604X
77605X
77606X
77607X
77610x

1 INE
LINE
LINF
LINE
LINE
UiINF
(INE

30
31
32
33
34
35
36

77611x
77612x
77613x
77614X
77615X
77616X
77617x

ZDLBCO DL11-E ON LINE TSET

CIDLBC.PIT
254

19~JUL=-79 15:06

MACY11 30A(1052)
4.

257
258
259
260
261
262

19-JUL-79

15:10

PAGE 7

£Q 0007

USE PROCEDURE

THIS PROGRAM HAS BEEN MODIFIED TO RUN WITH OR W]THOU?
A CONSOLE PROCESSOR.
IF A CONSOLE MACHINE IS USED: THEN THE PROGRAM
LOUOKS AT THE HARDWARE SWITCH REGISTER.
iIF A CONSOLE-LESS MACHINE IS USED;THEN THE PROGRAM
AUTOMATICALLY LOOKS AT THE CONTENTS OF LOCATION

ggz

SOFTSR (176) AS A SWITCH REGISTER.

265

IF A HARDWARE SWITCH REGISTER DOES NOT EXIST,

THE PROGRAM WlLL

266

USE THE CONTENTS OF LOCATION 176 AS THE VALUE OF THE SWITCHES.

S;?

TYPE

267
268
269

S;g

THE PROGRAM WILL PRINT OUT THE PRESENT CONTENTMS OF THE SOF TWARF
SWITCH REGISTER WHEN THE PROGRAM IS STARTED.
IT WILL THEN ASK
FOR THE NEW CONTENTS TO BE INPUT TO THE SOFTWARE SWITCH REGISTER.

4.°

PRGO

CARRIAGE RFTURN TO FINISH INPUT.
SINGLE

CHARACTER LINE MODE DATA TEST

S;g

LOAD ADDRESS
= 000200 (RESTART LOAD ADDR. = 000200)

3;(;

START - PROGRAM WILL REQUEST PROGRAM NUMBER

278

ggl

Sgg

283

Sgg

4.2

PRG1

THE PROGRAM WILL NOW REQUEST THE DATA.

FOLLOWED BY A CARRIAGE RETURN.

MAKE LINE CONNECTION.

SEE SECT

TYPE

3.4

- BINARY COUNT LINE MODE DATA TEST

539

LOAD ADDRESS = 000200

ggg

START - PROGRAM WILL REQUEST PROGRAM NUMBER

gg?

C. MAKE LINE CONNECTION

292
332

4.3

THE DATA IN O(CTAL

SEE SECT 3.4

PRG2 - SPECIAL MESSAGE XMIT ONLY

532

LOAD ADDRESS= 000200

Sgg

START - PROGRAM WILL REQUEST PROGRAM NUMBER

299
38?

DEPRESS START - THE PROGRAM WILL IDENTIFY ITSELF AND
TYPE INSTRUCTIONS TO SELECT DESIRED DL11-E PARAMETERS

%8%

(SEE SECT 3.2)

304

389

PARITY AND CLEAR TO TRANSMIT EVEN PARITY.

305

308

309

TYPE IN PARAMETERS. IF IT IS DESIRED TO TRANSMIT

DATA WITH PARITY SET BiTé. ALSO SET BITS TO TRANSMIT QDD

BIT6
BITS

1/0

ENABLE/DISABLE PAR]TY

TRANSMIT ODD/EVEN PARITY

(ZDLBCO DL11=E ON LINE TSET
C2DLBC.PN
19=-JUL=79 15:06
W SN
—

jut Pud-uuit Y-y

310

MACY11

3CA(105¢)

19-JUL=79

WHEN

YOU WISH

WHEN THE
'THE

15:10

'MAKE LINE

PAGE 8

CONNECTION

TRANSMIT ON FROM THE

'HANDSHAKING'

]S TYPED CALL

THE DL11-¢f

TERMINAL MODEM.

IS COMPLETED THE MESSAGE

QUICK BROWN FOX JUMPED OVER

0123456789 WILL BE TRANSMITTED.

THE LAZY DOGS BA(K

TO TERMINATE, HANG UP,

(ZDLBCO DL11~E ON LINE TSET
19-JUL-79 15:06
(ZbLBC.P11

MACY11 30A(1052)
4.4

19-JUL=79

15:10

PRG3 ~ RECEIVE

1
PAGE 9

£Q0 NNNGQ

TRANSMIT MESSAGE

TEST

LOAD ADDRESS
= 000200

START - PROGRAM WILL REQUEST PROGRAM NUMBER

THE PROGRAM WILL

SET

TYPE

INSTRUCTIONS

(DENTIFY ITSELF AND

TO SELECT DESIRED OPT]ONS.

IN OPTIONS AND PRESS CONTINUE.

E.
WHEN 'MAKE LINE CONNECTION' IS TYPED CALL THE DL11-E
YOU WISH TO TRANSMIT ON. WHEN THE 'HANDSHAKING' IS COMPLETED

THE DL11-E WILL TRANSMIT A CRLF TO THE TERMINAL DEVICE. AT THIS
TIME YOU MAY BEGIN TO SEND DATA FROM THE DEVICE TO THE DL11-E
WHERE 1T WILL BE ECHOED BACK TD THE TERMINAL. TYPE ANY (HARA(CTER
TO SIGNAL START OF MESSAGE. THEN TYPE MESSAGE AND THE SAME
CHARACTER TO SIGNAL END OF MESSAGE. CONTROL C WILL CAUSE THE
BUFFERS CONTENTS TO BE TRANSMITTED WHEN TYPED.
F. IF NO ECHO IS DESIRED (ON A CHARA(CTER BASIS FOR EXAMPLE
WwHEN USING A TERMINAL THAT PRODUCES ITS OWN LOCAL (OPY)

SET BiT7 OF SWITCH REGISTER.

4.5

PRG4

- SPECIAL MESSAGE

XMIT ONLY

LOAD ADDRESS = 000200

OPTIONS
i,
BITS Q-2 = 4

BITS 3-6 = LINE NUMBER (SEE SECT 3.5)

DEPRESS START -~ THE PROGRAM WILL IDENTIFY ITSELF AND
TYPE

INSTRUCTIONS

TO SELECT DESIRED DL11-E PARAMETERS

(SEE SECT 3.2)
D.
SET IN PARAMETERS IF IT IS DESIRED TO TRANSMIT
DATA WITH PARITY RAISE SR6. ALSO RAISE SR5 TO TRANSMIT 0DD
PARITY AND LOWER

B8lT6
BITS

TO TRANSMIT EVEN PARITY.

1/0
170

ENABLE/DISABLE PARITY
TRANSMIT ODD/EVEN PARITY

E.
WHEN 'MAKE LINE CONNECTION * IS TYPED CALL THE DL1-E
YOU WISH TO TRANSMIT ON FROM THE TERMINAL MODEM.
WHEN THE °'HANDSHAKING' IS COMPLETED A SPIRAL
PATTERN WILL BE TRANSMITTED.

TO TERMINATE, HANG UP.

(Z0LBCO DL11~E ON LINE TSET
rZDLBC.P11
19-JUL=79 15:06

MACY11

20A(105¢)

19-4UL-79

15:10

PAGE 10

SEQ 0010

PROGRAM DESCRIPTIONS

PRGO -~ SINGLE

CHARACTER LINE MODE

DATA

TEST

PRGO TRANSMITS USER SPECIFIED DATA AND A CARRIAGE RETURN/LINE

EVERY 72ND CHARACTER.

5.2

PRG1

- BINARY

COUNY

PATTERN LINE MODE

DATA

TEST

PRG1T TRANSMITS A BINARY COUNT PATTERN.
THIS PROGRAM [S THE
AS PRGO EXCEPT FOR THE DATA TRANSMITTED.

5.3

PRG2 - SPECIAL MESSAGE

FEED

SAME

TRANSMIT ONLY

PRG2 TRANSMITS THE MESSAGE
THE QUICK BROWN FOX JUMPED OVER THE LAZY DOGS BACK 0123456789.
NO DATA ERROR CHECKING IS PERFORMED BY THE PROGRAM.

5.4

PRG3 - RECEIVE/TRANSMIT MESSAGE TEST
PRG3 - RECEIVES DATA FROM A TERMINAL AND READS THE RECEIVED MESSAGE
BACK, AND TYPES THE MESSAGE ON THE PDP-11 TTY WHEN THE MESSAGE
IS TERMINATED.
CHARACTERS MAY BE ECHOED BACK (IF REQUIRED) CN
?SC¥¢gggTER BASIS THEREBY CREATING LOCAL COPY AS THE MESSAGE

TRANSMISSION MAY BEGIN AT THE TERMINAL WHEN A CR/LF IS RECEIVED
AT THE TERMINAL.
THIS PROGRAM IS RESTRICTED TO USE BY ONLY
FULL DUPLEX MODEMS.

5.5

PRG4 - SPECIAL MESSAGE
PRG4

TRANSMITS A SPIRAL

NO DATA CHECKING

TRANSMIT ONLY
PATTERN.

IS PERFORMED BY

THE PROGRAM.

CZ0LBLO DL11-E ON LINE TSET
19-JUL=-79 15:06
(7DLBC.PU

397
398
399

400

«N

402
403
404
405
406

407
408
409
410
411
412
413
4146

415

416

417
418
419
420
421
422

423
424
425
426
627
428
429
430
431
432
433
434
435
436

437

438
439
440
441
642
443
444

445

MACY11

30A(i052)
6.0

19-JUL=79

ERRORS

THERE ARE

15:10

1
PAGE

TWO TYPES OF

ERRORS WHICH ARE

DETECTED BY

LINE FAILURE ,AND DATA ERRORS.
LINE FAILURES ARE DETECTED AND REPORTED BY ALL

THESE

TEST

TESTS, AND

DATA ERRORS ARE DETECTED CNLY IN PRG 0 &1 WHEN USING CONF GURATIONS 1 OR 2. DATA ERRORS IN THE OTHER TESTS MAY BE DETE(CTED BY VISUAL INSPECTION OF THE DATA AT THE TERMINAL.
LINE FAILURES ARE REPORTID BY TYPING THE PC,THE RECEIVER (ON-

TROL STATUS REGISTER ADDRESS, AND ITS CONTENTS. SEE THE PROGRAM LISTING FOR A DETAILED DESCRIPTION OF THE ERROR.
THE MOST FREQUENTLY ENCOUMTERED ERROR WILL PROBABLY BE THE
LOSS OF CARRIER. THIS ERROR WILL BE REPORTED IF AFTER A LINE
CONNECTION IS MADE THE CARRIER IS LOST, EITHER BY °'HANGING UP'

OR A 'GLITCH' ON THE LINE CAUSING THE CARRIER TO MOMENTARILY
DROP. IN EITHER INSTANCE THE PROGRAM DISCONNECTS THE DL11-E
FROM THE MODEM

(BY CLEARING DATA TERMINAL READY)

AND

THE

LINE WILL HAVE TO BE RECONNECTED TO RESUME TESTING.
IF 1T IS PHYSICALLY IMPOSSIBLE TO GET TO THE DATA BUTTON
WITHIN THE TIME ALLOTTED (APPROX. 10 SECONDS) TO MAKE THE
LINE CONNECTION, THIS TIME MAY BE INCREASED BY PUTTING A
LARGER NUMBER INTO THE DELAY. PATCH THE LARGER NUMBER
INTO THE ADDRESS FOLLOWING THE DELAY EMT (BETWEEN RINTBG AND
RINTBH) .FOR EXAMPLE PATCHING IN 72460 WILL ALLOW APPROXIMATE.Y
30 SECONDS IN WHICH TO RESPOND.
DATA ERRORS ARE REPORTED BY TYPING THE PC, THE RECEIVER CONTROL
REGISTER ADDRESS OF THE LINE THAT FAILED ,WHAT THE DATA SHOULD
HAVE BEEN,WHAT THE DATA WAS,AND THE CHARACTER NUMBER.
PC=XXXXXX 174010 DATA S/B 301 WAS 321

CHAR NO 23

THIS TYPEOUT INDICATES A DATA ERROR ON LINE 1

IF CONFIGURATION 2 IS SELECTED TWO ERROR TYPOUTS MAY OCCUR

FOR A SINGLE ERROR DEPENDING ON WHERE THE ERROR OCCURED.

CON-

FIGURATION 2 COMPARES THE DATA RECEIVED AT THE CALLED DL11-E
WITH THE DATA TRANSMITTED BY THE CALLED DL11-E, AND ALSO THE DATA
RECEIVED AT THE CALLING DL11-E (CALLER) WITH THE DATA TRANSMITTED

BY THE CALLED DL11-E.

IF FOR EXAMPLE A DATA ERROR OCURRED AT THE RECEIVER OF THE CALLING
DL11-E CAUSING IT TO TRANSMIT INCORRECT DATA TO THE CALLED DL11-E TWO
TYPEOUTS WILL OCCUR AS SHOWN BELOW:

PC=XXXXXX 174010 DATA S/B 301 WAS 321 CHAR NO 23
PC=XXXXXX 174000 DATA S/B 301 WAS 321 CHAR NO 23
THESE TYPEQUTS SHOW THAT THE RECEIVER ON LINE O WAS THF (AUSE

OF THE ERROR ANN THE RECEIVER ON LINE 1 RECEIVED THE CORRE(Y
INCORRECT DATA.

446

447
448
449

450

451
452

wxnknenksrr

FCO

HISTORY

wxnnwnnnnw

CHGC1 - NEW STORAGE LOCATIONS FOR REFERENCE IN “G MODE
CHGC2 - CHANGE START UP FOR ENTERING SOF TWARE SWITCH REGISTER INFO.
CHGC3 - SOF TWARE STORAGE LOCATIONS
CHGCS -~ ROUTINE TO CHECK PRINTOUT, UPDATE SOF TWARE SWIT(H REG.

CZDLBCO DL11-E ON LINE TSET
19=-JUL=79 15:06
(ZDLBC.P1
453
454
455
456

MACY11 30A(1052)

19-JUL-79

15:10

PAGE 12

CHGCS - NEW MESSAGES FOR SOF "WARE SWITCH REG ROUTINES.
(HGC6 -~ PART OF (HGC2.
NECESSARY TO DIVIDE INTO TWO PARTS
(2333322232222
882d0R200 R0 RRdR R0 2R N2

.ENDR

C(ZOLBCO DL11-E ON LINE TSET
19-4UL-79 15:06
czoLBc.P11

30A(105¢ )

19-JuL-79

15:10

N1
PAGE

SEQ 0073

LTITLE
CZDLBCO DL11-E ON LINE TSET
.ENABLE ABS,AMA

457
458
459
460
461
462
463

;THIS TEST CHECKS THE DL11-E USING MODEMS

JREFER ALSO TO TEST DZIDLA (DL17~E OFF LINE TESTS)

:STARTING PROCEEDURE

LOAD ADDRESS 200

STACK POINTER IS AT 1200

464
465
466

PRESS START

*AVAILABLE PROGRAMS

467
468
469

470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
49N
492
493
494
495
496
497
498
499

MACY11

PRGO~
PRG1~
PRG2PRG3PRG4~
PRG5-

SINGLE CHARACTER LINE MODE DATA TEST,
SPECIAL BINARY COUNT LINE MODE DATA TEST.
SPECIAL MESSAGE XMIT ONLY W/W/0 PARITY
RECEIVE DATA TEST
SPIRAL PATTERN MESSAGE XMIT ONLY W/W/0 PARITY
DATA ECHO TEST (USES FACILITY AT MAYNARD)

;STANDARD SR SWITCH OPTIONS (SWITCH SET 70 A 1)

:SR15- HALT ON ERROR.

000000
004576
000000
004576
000040
004576
000100
004576
000140
004704
000340
002724
000340
002300
000340
004576
000340
000042
000000
000167

:SR14:SR13~;SR12;SR11-

SCOPE (NOT USED)
INHIBIT PRINTOUT

INHIBIT TRACE (NOT USED)
INHIBIT ITERATION (NOT USED)

.=0

JUNASSIGNED TRAP

ERTP
0
MACHER: ERTP
40
ERTP
100
ERTP
140
MAPVE
C
PRTY7

:SP OVERFLOW, BUS ERROR TRAP
SRESERVED INSTRUCTION TRAP
: TRACE

;TRAP TO MAP VECTOR

;POWER FAIL TRAP

PFAIL

PRTY?7
EMTINT
PRTY7
ERTP
340

JEMT TRAP

.42

HALT

.REPT
.42

119,

4
.ENDR

177776
001200
000000
100000
100000
040000
020000

TRAP

JEQUATE STATEMENTS

PSW=177776

STKPTR=1200
OPEN=0
MANUAL=BIT15
B81715=100000
B1T114=40000

BI1T13=20000

:TRAP TO MAP MAKER

000040
000020
000019
00000«
000002
000001
005726

15:10

PAGE

000240
000200
000140
000100
000040
000000

104000
104001
104002
104003
106004
104005
104006
104007
104010
104011
104012
104013
1046014
104015
104016
000000
000000

SEG 0014

10000
elele]
(=]

POPSP=5726
POPSP2=022626
PRTY7=340
PRTY6=300
PRTY5=240
PRTY4=200
PRTY3=140
PRTY2=100
PRTY1=40
PRTY0=0
TYPE=EMT+0

022626
000340
000300

Rl AS R AR TR o R
eP o e B N [
elelele] OOONI&H
[elelsleléle]

OODODDODE©DEODD

e Pt Bt St Bt Bt Bt Bt Bt ot B

010000
004000
002000
001000
000400
000200
000100

= PNIN VNN NOOND — b —a
@
mnnuwnaninigo-=rn

19~JUL=79 15:06

19-4uUL=79

30A(105¢)

[)

Aol IV AV, LV, LV, IV, IV, | (V4]
POND) —2
e cd i b —
—O000 NN W

(20LB8C.P11

MACY11

—

(20LBCO DL1"-E ON LINE TSET

;POP

THE

STACK.

;POP STACK

SAME

TWICE.

TST

(6)+

SAME AS (MP

JPRIORITY LEVEL DEFINITIONS

(6)+,{6)+

TYPES=EMT
+1

STALL=EMT+?

ERROR=EMT
+3

T
DATCHK=EM+4

CHALT=EMT
+5
STRXV=EMT
+6
STIXV=EMT+7
EHALT=EMT+10
T
+11
SAVREG=EM

RSTREG=EM
+12
T

ERROR1=EMT+13
ERRTX=EMT+14

ERRRX=EMT+15

DEbAY=EHT+16

A=0
.MACR

JSR

SR{
DST
COUNT
.ENDM

RISR'N':

MACR

JMP

(NVCA

X5 .,0ACNY

SRC,DST,COUNT

GO TO OCTAL TO ASCII CONVERT.
;SOURCE ADDR.

;DESTINATION ADDR.
JMOF DIGITS TO CONVERT.

ISR
MOV

#'N',X0

ISRT

RISR

;GO TO COMMON INTERRUPT SERVICE ROUTINE

. ENDM

TISR'N':

.MACR

MOV

#'N',20

sPUT LINE # IN RO

(ZDLBCO DL11~E ON LINE TSET
(ZDLBC P11
19=JUL=79 15:06

569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594

595

596
597
598
599
600
601
602

MACY11

30A{105¢)

15:10

19=-4uUL=-79

PAGE

TISR

SEQ 0015

;GO TO COMMON INTERRUFT SERVICE

.ENDM

MACR
RRCV
175610+N
.ENDM

N.A

.MACR
RBUF F
175612+N
.ENDM

N.A

MACR
TXMT
175614+N
. ENDM

N,A

TBUF F
.MACR
175616+N
. FNDM

N.A

IRRRANRRRNR

000170
000172
000174
000176

000170
177570

SRPTR:
DISPREG:

177570
000000

.=170

DISPLAY:
SWREG:

000000

CHGCS

;ADDRESS OF RECEIVER LINE # ‘A’

JADDRESS OF

RECEIVER BUFFER LINE #

'Al

;ADDRESS

TRANSMITTER

OAI

TRANSMIT BUFFER LINE #

'Al

JADDRESS OF

(SR LINEt

wrmneennnn

177570
177570

OPEN
OPEN

:SOFT SW REG POINTER
:DISPLAY PGINTER
; SOF TWARE DISPLAY REGISTER
;SOF TWARE SWITCH REG

:titlfitt'ttfifiltfittfit*'lttifltlt

603
605

007

000200

000210
000216
000220
000226

000200
012737
000407
012737
000403
012737
012706

001436

000312

001432

000312

002102
001200

000312

.=200
MoV
BR
MoV
BR
MOV

STCONT: MOV

#START ,STAD
STCONT
#REMAP,STAD
STCONT
#MODEV ,STAD
#STKPIR, %6

;SET UP FOR NORMAL START
. CONT INUE
;SET FOR A REMAP START

JSET TO MODIFY ON START
;SET BOTTOM OF STAC~

;fi'fi"'*ittfil*'fit.'.‘

000232
000242

000250
000256
000260
000262

000272
000300
000304

013746
013746
012737

000006
000004
000262

000004

022777
001402
000407
022626
012737
012737
012637
012637

177777

177712

000176
000174
000004
000006

000170
000172

CHGC2:

MoV
Mov

6.-(SP)
4,-(SP)

:SAVE CURRENT VECTOR

CMP

#-1,aSRPTR

;REFERENCE HARDWARE SWITCH REGISTER

MoV
MOV

(SP)+, 44
(SP)+, a6

JRESTORE VECTORS

MoV

648:
65%:
66%:

BEG
BR
(MP
MOV
MOV

HE4LS , 80

SET UP LOC. & FOR NON-EXISTANT
;MEMORY TRAP

65%
JIF IT = <1, USE SOFT SW REG
663
s THEN USE HARDWARE SW REG
(SP)+,(SP)+
JCORRECT THE STACA NO HDWE Sw REG
#SWREG,SRPTR
JPOINT TO SOFT SW REg
#DISPLAY ,DISPREG
;POINT TO SOFT DISP KIG

(ZDLBCO DL1"~E ON LINE TSET
(ZDLB(C.P11
19=-JUL=79 15:06
625

626

627
628
629
630
631
632
¢33
634
635
636
637

000310

000137

19-4uUL-79

ERARAR AR AR AN N

STAD:

JMP

001200
001202
001206
001206
001210
001212
001214
001216
001220

000000
001200
000000
000000
000000
000000
000000
000200
000000
000200
177560

RXCSR:
RXBUF:
TXCSR:
TXBUF:
RXVTR:
RXLVL:
TXVTR:
TXLVL:
TKS:

0
.=120C
O
O
O
0
OPEN
PRTYS
OPEN
PRTYS
177560

639
640
641
642
643

001224
001226
001230
001232
001234

177564
177566
000060
000200
000064

TPS:
TPR:
TKVIR:
TKLVL:
TPVTR:

177564
177566
60
PRTYS4
64

649

001250

638

644
645
646
647
648

000312

MACY11 30A(105¢,

001222

177562

001236
001240
001242
001244
001246

000200
000000
000000
006502
006616

650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
g;g

001252
001254
001256
001260
001262
001264
001266
001270
001272
001274
001276
001300
001302
001304
001306
001310
001312
001314
001316
001320
001322
001324
001326
001330
001332
001334

007016
007552
007764
002432
002432
003200
003322
000000
002570
002470
002444
003120
003150
002456
002332
002372
002612
002766
003010
003544
000000
000000
000000
000000
000000
000000

677
678
679
680

001336
001340
001342
001344

000000
000000
000000
000000

TKB:

TPLVL:
PRGNUM:
PRGID:
PRGTAB:

006720

177562

PRTYS
OPEN
OPEN
PRGO
PRGY

PRGZ2

EMTTAB:

PARBIT:
COUNT:
SAVE:
LINE:
CONF IG:
NUMBER:

PRG3
PRG4
PRGS
INCPRG
INCPRG
TYP
TYPS
OPEN
ERR
DTCHK
CHLT
STRVRYV
STXMTV
EHLT
SAVRG
RSTRG
ERR1
TXERR
RXERR
OLY
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN

OLDPS:
TOPC:
Q
FROMPC: 0
FTITLE: O

15:10

Q(PC)+

PAGE 16

SEQ 0016

JJUMP TO SELECTED START
JRECEIVER (SR UNDER TEST
JRECEIVER BUFFER UNDER TEST
JTRANSMITTER (SR UNDER TEST
;TRANSMITTER BUFFER UNDER TEST
;RECEIVER VECTOR
JRECEIVER PRIORITY LEVEL
JTRANSMITTER VECTOR
s TRANSMITTER PRIORITY LEVEL
;LSR CSR

;LSR BUFFER

;LSP CSR
,LSP BUFFER
;LSR INTERRUPT VECTOR
;LSR PRIORITY LEVEL
;LSP INTERRUPT VECTOR

;LSP PRIORITY LEVEL
;CONTAINS CURRENT PROGRAM#
;CONTAINS PROGRAM INDICATORS
;PRGO START ADDRESS
;PRG1 START ADDRESS

;PRG2 START ADDRESS

;PRG3 START ADDRESS
:PRG4 START ADDRESS
:PRG5 START ADDRESS
JPOINTER TO TYPEOUT ROUTINE
;POINTER TO CHAINED MESSAGES ROUTINE

:POINTER TO RANDOM STALL ROUTINE
sPOINTER TO ERROR ROUTINE
;sPOINTER TO DATA (CHECK ROUTINE
;COMMON HALT
JPOINTER TO ROUTINE TO SET RCVR VECTOR AND PRIORITY
;POINTER TO ROUTINE TO SET XMIT VECTOR AND PRIORITY
JPOINTER TO ERROR HALT ROUTINE.
JPOINTER TO SAVE REGISTERS ROUTINE
JPOINTER TO RESTORE REGISTERS ROUTINE
JPOINTER TO ERROR ROUTINE
JPOINTER TO XMIT ERROR ROUTINE
;POINTER TO RCVR ERROR ROUTINE
JPOINTER TO DELAY ROUTINE

“J0LBCO OL""~E ON LINE TSET
19-JUL=79 15:06
" 70t BC P

001410
001412
001414

30A(105¢)
FNONE:

000000
000000
000000
000000
000000

FMAP:

TEMP1:

10-,UL~79

PAGF

719
720
721
722
723
724
725
726
727
728
729
731
732
733

735

001432
001436
001442
001444
001450
001456
001464
001470
001472
001474

RECDAT:
XMTDAT:

:
CARMSK
OPEN
CTRD:
TXCSRT: OPEN

000000
000000
000000
200000
000000
000000
000000
000000

RXCSRT:
TEMP:

SRT:
INBUFP:
BUFFP:
CALLER:
CALLED:
OTBUFP:

OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN

000000
00000C
000000

TBUFFP:
MODEM:

000000
000000
000000
000000
000000
000000

COUNT1: OPEN

001476

001502
001506
001514
001522
001530
001534
001540
001544
001546
001552

001556
001560

005037
012706
000005

005037

01273/
012737
005737
001145

OPEN
OPEN

TEMPST:
TIB:

OPEN
OPEN

MODE :

;CONTAINS ADDRESS FROM WHERE NEXT TRANJSMITTED CHAR.

OPEN
OPEN
OPEN

CNT:
FILLY1:

001344
001200
177776
004576
000040
001344

REMAP:

START:

000004
000006

104000

012576
005237
005037
012737
012737
012737
012704
005237
020427
001477
005037
005774
000240
000240

SEQ 0017

LINENO: O

CHGC

ARA
AR RRN

OPEN

001344
001346

177777

001564
000340
011216
001354
011314
177776

000000

001354
000004
000006
MAPA:

CLR
MOV
RESET
CLR
MOV
MOV
TST
BNE
TYPE
MTITLE
INC
CLR
MOV
MOV
MOV
MOV
INC
MP
BEQ
CLR
TST
NOP
NOP

(IN OUTBUF)

TCO COME

;CONTAINS MODEM TYPE 0=103,4-202
;CONTAINS ADDRESS FROM WHERE NEXT TRANS;MITTED CHAR. (CALLER'S LINE) IS TG COME
;LOOP COUNT FOR TEST

sITERATION COUNT

"t.tt’tfi*fi't'fittiitltfit.l’ttktt

711
712
713
714
715
716
717
718

:tttt"".tt

001416
001420
001422
001424
001426
001430

15:10

FIITLE
STKPTR,
%6

sZERO FILL
JNUMBER OF
;TEMP WORK
; TEMPORARY

SWITCH
DIGITS TO TYPE
LOCATION
KYBD BUFFER STORAGE

;SET BOTTOM OF SP STALK.

PSW

#ERTP ,MACHER

#40 MACHER+2
FTITLE

START1

FTITLE
FNONE
#-1,L INENO
AMAPNE ,MA(CHER

;TITLE PRINTED
JYES,

SKIP THIS

sSET TITLE PRINTED FLAG
;CLEAR NO DEVICE FLAG

;SET UP FOR NO DEVICE ANSWER

#PRTY7 ,MACHER+2
#RCSR,
X4
;SET UP DEVICE PCINTER
INENO
L
X4, #RBUF
JLAST DEVICE
MAPEND
JYES
PSW

ald)

;TEST DEVICE
U,

001346
001350
001352
001354
001356
001360
001362
001364
001366
001370
001372
001374
001374
001400
001402
001404
001406

MACY1T

(ZDLBCO DL11~E ON LINE TSEY
19-JUL=79 15:06
c2oLBC.P1

751

752

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

768

769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785

786

787

788
789
790
791

PR
33 TN

ooooo

8888832383

766
747
748
749
750

V.1V 1V}

737

738
739
740
761
762
743
764
745

001622

000404
062704
022626
000760
011437
004537
001352
012 723
000006
094537
001354
012715
000002
011401
004737
052737
042777
052777

000240
012737
005737
001406
013707
006301
013761
042777
004537
001210
012735
000004

MACY1T

)
00000z

30A(°052)

:
MAPNE

]
001352
003606

:
MAPOK

022737
001015
004737
013701
012727
013721
005777
012777

ADD

POPSP?2

B8R

Mov
JSR

JSR
L INENO

003606

PAGE

MAPOK
82,%4

MAPA

(4) ,TEMPT
%5,0ACNV

;SAVE DEVICE FOR TYPING

%5,0ACNY

004762
000001
000100
000100
000340
001210

177336
177230

2
MOV
JSR
8IS
BIC
BIS

177776

MOV

001350

NOP
TST

8EQ
MOV

001354

001210
000100
003606

011120
177270

ASL

MOV
MAPOKA: 8IC

JSR

RXVIR
MTRAP

(4),%1
X7 .,FORMAD
M1T0,FMAP
#IT6,aTXCSR
MIT6,a8TXCSR

JGET RXCSR DEVICE ADDRESS

#PRTY7 ,PSW

RXVTR

MAPOKA
X1
LINENO,
X1

RXVIR,VECTAB(1)
#BIT6, ATXCSR

;STORE VECTOR

X5,0ACNY

TYPE
ML INE

001346
000002
004576
000040
001346

INC

ADD

000004
000006

187

BNE

001436

010464
001230
010712
001232
177162
000100

MOV

MAPERR: TYPE
MNONE
(LR
HALT

001344

000176

BR
MAPEND: MOV

FNONE

n2, %

MAPA
#ERTP ,MACHER

#40 ,MACHER+?
FNONE

START]

FTITLE

JMP

START

(TMP
BNE
JSR
MOV

#SWREG, SRPTR
60%
PC,CNTLU
TKVIR,R1

TST

3TkB

:titttttltttttttiittt

000170

CHG(6:
START1:

MOV
MOV
177152

MOV

HTTINTS,(R1)+
TKLVL,(R1)+
#100.97KS

CHRNENRRENANR
RN A
A NN

005037

15:10

ML INE

104000

012745
005037
000000
000137

B8R

TEMP1
gDADR

104000

012715
005237
062704
000674
012737
012737
005737
001007

19-JUL-79

177776

60%:

PSW

JIS SOFT SWREG SELECTED
+IF NOT, BR OVER NEX1 OPER
;SOFT SW REG INPUT ROUTINE

;VECTCR ADDRESS TO LOC 60

JPRIORITY TO LOC 6¢

JCLEAR DONE FLAG
JSET TTy INTERRUPT ON

SEQ 0018

JUiBOU DL1"=-E ON LINE TSET
19=-JUL=79 15:06
0L 8C PN

793
794
795

796

797
798

799

800
801
802
803

002052
002054
002056
002062
002064
002070
002074
002076
002102
002106
002110

e
e
e s
et
d et
—

—-O

06 00 00 00 0o 00 0o G0 0o 00

002114

002116
002120
002124
002126
002132
002134
002140
002142
002144
002146
002150
002152
002154
002160
002164
202166
002170
002172
002174
002176
002200
002204
002206
002212
002214
002220
002222
002226
002230

002234
002236
002242
002244
002250
002252
002254
002256
002262
002266
002270
002274

MA(CY'1

30A(105¢)

TYPE
MSWSEL

003372
001240

177776

003372
177740

000G3¢

MODEV:
MODEV1:

20.,PRGNUM

. SAVE PROGRAM #

JMP

APRGTAB(0)

;GO TO SELECTEC PROGRAM.

MOV

%6
#STKPTR,

CLR
TYPE
MMOD1
JSR

PSW
PC,RDOCT

ASL

RESET

MOV
BIC

(MP
BLOS

B8R

011314
000002

ADD

011412
000002
011510

#1777%0.%0
20

(SP).,%0
#177740,%0

(SP)+ A36
MODEV?

X
MMOD
MODEV1
BR
MODEVZ: TYPE
MMOD?2
JSR
PC,RDOCT
#MIT0, (SP)
BIT
BEQ
MODE
v$

MODEV3: MOV
MOV
ADD
MOV
ADD
MoV
ADD

000002

SEQ 0019

MOV

TYPE
MMODD

011216

JGET

TYPE

003372
000001

PAGE

PC.RDOCT
(SP)+.%0

ASL

001244

15:'0

JSR
MOV

BIC

177770

001200

19-JUL=79

MOV
MoV
ADD
MOV
ADD
MOV
ADD
MOV

TYPE

MODEV?2

(SP)+,%1
20,13
#RCSR,X3
21.(3)
#2,%1
0,23
#RBUF
, %3

11.(3)

#2.%1

20,23
#TCSR,
23
21.(3)
#2.%1
20.13
#TBUF %3
21,(3)

MMOD
3
JSR

PC,RDOCT

BEQ

V|
MODE

cMP

(LR
NP

(SP)+.M177277

FTITLE
START

“EMT TRAP INTERPRETER

INPUT

J(SR)Y

TO RO

;LIMIT (SR) 10 BITS 2-0

;ROX2

JGET INPUT

;BRANCH IF > 36

:GET INPUT

;SAVE DEV ADR

;UPDATE DEV ADR

JUPDATE DEV ADR

JGET INPUT

“IDLBCC DLYT~E ON LINE TSET
19-JUL =79 15:06
IDLBC LR

849
850
851
852

853
854

855
856
857
858
859
860
861
862
863
864
865
866
867

868

869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
8%
895
896
897
896
899
900
901
902

903
904

002300
002302
002306
002312
002314
002320
002326
002330

011646
162716
017616
006116
042716
062716
017616
000136

002332
002336
002342
0023446
002346
002350
002352
002354
002360
002364
002366
002370

012637
012637
010446
010346
010246
010146
010046
013746
013746

002372
002276
002402
002404
002406
002410
002412
002414
002420
002424
00242¢
002430
002432
002434
002436
002440

012637
012637
012600
012601
012602
012603
012604
013746
013746

000002
000000
000000

30A(1052)

19-JUL=79

EMTINT: MOV
SUB
MOV

000002
000000

EMTA:

177007

001264
000000

ROL

81(

ADD

MOV
JMP

15:10

2
PAGE 20

JGET SAVED PC.
;DECREMENT PC BY 2.

#177001,a%6

JREMOVE 7 MSB.

axe

JEMT ARG X 2.

#EMTTAR,aX6

;FORM EMT RTN ADDR.

a(6),axb
a(6)+

;SAVE REGS O TO 4 SUBROUTINE.

002366
002370

SAVRG:

MOV

MOV
MOV
MoV
MOV
MOV
MOV

002370
002366
SVRP(C:

SVRPSW:

RT]
OPEN
OPEN

RSTRG:

MOV
Moy
MOV
MoV

MOV

MOV
MOV
MOV
RTI

002430
002426

INCPRG:

;SAVE PC AND PSW.

246 ,~(6)

;SAVE REGS 0 ~ ¢4

x3.-(6)
x2.-(6)

21.-(6)
X0,-(6)
SVRPSW,~(6)
SVRP( ,-(6)

(6)+ RSTPC
(6) ¢+ ,RSTPSW

(6)+,20
(6)+.X1
(6)+,X2

JMP

001436

002456
002462
002464
002466

175506

EHLT:

HALT
RTI

JFTONDITIONAL ERROR HALT ROUTINE.

0463737

123737

001430

001362
0013256

001360
001360

HALY

aSRPIR
EHLTA

RT]

BIC
CMPB
BEQ

:SAVE P(C AND PSW.

:RESTORE REGS O - 4
:FROM STA(K.

;RESTORE PC AND PSW.
JEXIY

INCORRECT PROGRAM SELECTED.

;DEVELOP ADDRESS OF C(ALLER.
JHALT, ADDRESS OF CALL
JIN DATA LIGHTS.

INSIRUCTION

;CHECK FOR HALT ON ERROR.
*BRANCH IF NO HALT DESIRED.
JHALT.

JIN DATA LIGHTS.

;DATA CHECK ROUTINE.

DTCHK:

(EXIT.

START

000002

EHLTA:

JRESTORE PC AND PSwW.

;TYPE

;COMMON HALT ROUTINE
CHLT:
MO
aX6,20
SUB
#2,20

TST
BPL

JIN STACK.

(6)+,%3

(6)+, %4
RSTPSW,=(6)
RSTPC.=(6)

TYPE

AINPRG
HALT

;GO TO EMT ROUTINE.

(6)+,SVRP(

(6)+,SVRPSW

:RESTORE REGS 0 TO 4 SUBROUTINE.

002426
002430

SEQ 0020

ax6,=(6)
#2,a%6
3(6),ax6

RSTPC:
OPEN
RSTPSW: OPEN

002444
002446
002452
002454

002470
002476
002504

MACY1Y

CARMSK ,XMTDAT
RECDAT ,XMTDAT
DTCHKA

;CLEAR UNTRANSMITTED BITM¢
;COMPARE TRANSMITTED AND RE(E vk
;CHARS, BRANCH IF SAME.

©ZDLBCO DL11~E ON LINE TSET
ZOUBC. P11

905

906

907
908
909
910
911

19-JUL=-79 15:06

CNVOA
ERROR1
CSRADD
JSR
CTRD

RXCSR,CSRADD,6

104013
013126
004537
001364

002570
002576
002604
002610
002612
002616

072737
012737
005037
000413
011637
017737

002566

924
925

002624
002632

927

002646

002640

004274

000002

012737
012737
032777

001020

002702
000060
177777
000002

020000

002702

002704
102722
175322

002724
002732
002734
002742
002744
002750
002752
002754
002760

012737
000000
012737
000005
012706
104000
015073
013700
006300

002734

000024

002724

000024

000370

001244

955
956
957
958

002766
003000
003006
003010

012737
000410

013214

003104

960

003030

012757 013235
011637

003104

959

003022

002720
000002

002702
002704

104011
104001
013176
000000
177777
104012
104010
063716
000002
000000
000000

002762

011637
162737

S ,BDCNV

ERR:

ERR1:

ERRA:

002720

ERRB:
ERR(:

002722

ERRD:
ERRE:

001200
001240

003102

; EXIT.

MOV
MOV
CLR
BR
MOV
MOV

#-1,ERRB
#240,ERRB+2
ERRE
ERRA
8%6,ERRB
RERRB, ERRB

BNE

ERRC(

MOV
MOV
BIT
MOV
SuB
CNVOA
SAVREG
TYPES
EMO
OPEN
-1
RSTREG
EHALT
ADD
RTI
OPEN
OPEN

; CONVERT
*CHAR #

170 DECIMAL
‘6 BITS

DTCHKA: RTI
177777
000240
002722

EQ 0071

XMTDAT.(SB.$

CRNUM
4
ERROR1
CERDAT

002650
002054
002662
002674
002676
002700
002702
002704
002706
002710
002712
002716
002720
002722

945
946
947
948
949
950
951
952
ggz

2
PAGE °1

002532
002544
002546
002550
002554

918
919
920
921
922
923

943
944

RECDAT,(WAS,3

CNVOA

016112
000004
104013
014047

928
929
930
931
932
933
934
935
936
937
938
939
940
&;

15:10

CNVOA

002556
002560
002562
002564

926

19-JUL=-79

002506

002520

912
913
914
915

g}g

MACY11 30A(1052)

#-1,ERRB+2
#2 ERRE
#8IT13,aSRPTR
3%6,ERRD
#2 ERRD
ERRD,APC.6

SSET UP ONE MESSAGE CALL.

:DEVELOP ADDT'L MESSAGE ADDR.
SSTORE AT ERRB.

; INHIBIT ERROR PRINT?

SBRANCH TO INHIBIT PRINT.
*DEVELOP CALLING ADDR.

:CONVERT CALL ADDR TO ASI!:.
sTYPE:
*ERROR HEADER,
SADDT'L ERROR MESSAGE

ERRE ,3%6

:GO ERR HALT

ANY.

IF DESIRED.

SEXIT.

‘POWER FAIL SERVICE
,
PFAIL:
MOV
APURUP
, a8 24
HALT
PWRUP:
MOV
#OFALL ,aN24
RESET
MOV
#STKPTR,
26
TYPE
MPWRF
RESTRT: MOV
PRGNUM,
X0
ASL
20

JMP

SPRGTAB(0)

RXERR:

CNVOA
MOV
BR
CNVOA

TXCSRT,ATXWAS,6 ;CONVERT CONTENTS OF TXCSR YO ASCII.
#ATXCSR, CRXTXB
CRXTX
RXCSRT,ARXWAS,6 ;CONVERT CONTENTS OF RXCSR TO ASCI{.

CRXTX:

MOV

3%6, CRXTXA

TXERR:

MOV

#ARXCSR, CRXTXB

;DEVELOP ADDR OF ADDTT'L ERROR MESSAGE.

.JDLBCO DL11~E ON LINE TSETY
19-0UL=79 15:06
(20L8C P

961
962
963
964
965
966
967
968
%9

970
971
972
Q73
974
975
976
977
978
979
980
981
982
983
984
985
986

G87

988

989

990
991
992
993
994
995
996
997
998
999
1000
101
1002
1003
1004
1005
1C06
1007
1008

el vl ard

) ol ek

NS
WN O

R
s
e B
e
R

jolelelelelele]

1009

017737
032777
001017
011627
162737

MACYTT

002720
000002

002720

SuB

#2 ERRD

BNE
MOV

CNVOA
TYPES

CRXTX(
%6 ,ERRD

ERRD,APC.6

EMO
CRXTXA: OPEN
CRXTXB: OfifN
CRXTXC:

017637
062716
013701
012721
013721
000002

000000
000002
001210
000000
001212

003140

017637
062716
013701
012721

000000
000002
001214
000000
001216

003170

010037
011600
062716
011000
112037
122737
001003
013700
000002
122737
001412
004737
000760
113777
105777
100375
000207
112737
004737
112737
004737
000736
000000

2
PAGE 22

ICRXTXA, CRXTXA
#BIT13,9SRPTR

000002

MOV
8I7

062716

013721

15:10

03102
175120

013176
000000
000000

0600002

19-JUL=79

000042
020000

104001

177777
104010

30A(105¢)

ADD
MoV
MOV
MOV
RT!

cROUTINE

JBRANCH TO INHIBIT PRINT.
;DEVELOP CALLING ADDR.

s CONVERT CALLING ADDR TO ASCII.
;TYPE ERROR MESSAGE.

;ERR _HEADER
JADDT'L ERR MESSAGE
;TXCSR OR RXCSR CONTENTS.

#2,a%6

;GO HALT

DESIRED.

JEXIT.

STPPA:

#2,a%6
%1
RXVIR,
#OPEN, (1) +
RXLVL, (1)«

SSET UP EXIT

sSET VECTOR ADDRESS
;SET PRIORITY
JEXIT

TO SET TRANSMITTER INTERRUPT VECTOR AND PRIOCRITY.

STXMTV: MOV

ADD
MOV
MOV
MOV
RTI

a(6) ,STPPA+?2
#2,a%6
TXVIR,Z1
#OPEN, (1) ¢
TXLVL, (1)

sMOVE VECTOR ADDR TO STPPA+?2
JSET UP EXIT

;SET VECTOR ADDRESS.
;SET PRIORITY
JEXIT.

- SUBROUTINE TG OUTPUT ASCII MESSAGE ON TELETYPE PRINTER.
TYP:

000002

003320

TYFA:

MoV

003320

TYP(:

003320
175736

175744

TYPD:

000015
003254
000012
003254

003320

TYPF:

003254

003320
TYPDAT:

X0 ,SAVRO

: SAVE RO

MOV
ADD

8%6,%0
#2,a%6

JGET ADDRESS THAT C(ONTAINS MESSAGE ADDRESS.
SSET UP EXIT.

MOVB

(0)+,TYPDAT

;GET CHARACTER

Mov

cMP8
BNE
MOV

003370
000045

;INRIBIT PRINT?

JROUTINE TO SET RECEIVER INTERRUPT VECTOR AND PRIORITY
STRVRV: MOV
@(6) ,STPRA+?
;MOVE VECTOR ADDR TO STPRA+?2
STPRA:

003370

003320
000100

EHALT

ADD
RT!

s fQ 002(

RTI

(MPB
BEQ
JSR

a8%0.%0

#100, TYPDAT
TYPC
SAVR0, %0

sADDRESS OF MESSAGE TO RO.
:CHECK FOR® '@'CHARACTER
JBRANCH IF NOT'@'°.
:RESTORE RO

;TERMINATOR (HAR.

DONE. ExIT.

#45, TYPDAT
TYPF
X7, TYPD

sCHECK FOR'X''.
JBRANCH [F' '
;sTYPE CHAR IN TYPDAT

TYPDAT ,aTPB

;OUTPUT CHARACTER TO PRINTER

RTS

1 %4

JEXIT

TYPA

B8R

MOVB

1ST8B
8PL
MOVB
JSR
MOVB
JSR
OPEN

TYPA

alPS
.=

#15, TYPDAT
X7,TYPD
#12,TYPDAT
X7,TYPD

JWAIT FOR DONE FLAG.

sMOVE CARRIAGE RETURN CODE
;G0 TYPE CHAR.
JMOVE LF CODE TO TYPDAT,
;GO TYPE CHAR.

TO TYPDAY

;SUBROUTINE TO OUTPUT A SERIES OF ASCII MESSAGES ON TELETYPE PRINTER

’

(ZDLB(C DL11-E ON LINE

{zoLec.pP1
1017
1018
1019
1020

19-JUL=79 15:06

1024
1025
1026
1027
1028
1029

003322
003326
003330
003334
003340
003346
003350
003354
003356
003362
003364
003366
003370

010037
011600
062716
011037
022737
001003
013700
000002
013700
104000
000000
000757
000000

1032
1033
1034
1035
1036
1037

003372
003374
003376
003400
003402
003406

011646
010046
010146
005001
005037
105777

1021
1022
1023

1038
1039
1040
1041
1042

003412
003416
003420
003426
003430

100375
117746
042716
105777
100375

"043

003432

111677

1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055

003442
003444
003450
003452
003456
003460
003464
003466
003472
003500
003502

001432
122716
001423
122716
003020
122716
002415
005237
022737
003407
006301

1057
1658
1059
1060
1061
1062
1063
1064
1065

003506
003510
003514
003516
003520
003522
003524
003526
003530

006301
162716
062601
000733
104000
014001
005726
000724
010166

1067
1068
1069

003536
003540
003542

012601
012600
000207

1044

105

1066

1072

003436

003504

003534

00354«

TSET

122716

MACY11

003370
000002
003364
177777

30A(105¢>
TYPS:
TYPSAA:

TYPSA:

TYPSB:

SAVRO:

011637

PAGE 23

SEQ 0022

;GET ADDRESS THAT C(ONTAINS MESSAGE ADDKE 5SS
JUPDATE TO NEXT MESSAGE ADDRESS

cMp

#-1,TYPSR
TYPSA

;CHECK FOR TERMINATOR
JBRANCH IF NOT TERMINATOR.

MOV
RTI
MOV
TYPE

OPEN
BR

OPEN

a%0,TYPsB
SAVRO, 20

SAVRO,
%0
TYPSAA

;ADDRESS OF MESSAGE TO TYPSB
JRESTORE RO

; TERMINATOR,

EXIT

;JCALL ON TYP SUB TO TYPF MESSAGE
;ADDRESS OF MESSAGE GOES HERE
;GO PROCESS NEXT MESSAGE

:SUBROUTINE TO READ OCTAL DATA FROM THE TELETYPE PRINTER

RDOCT:

INDAT:

001324
175606

RDDAT:

175602
000200
175574

ECDAT:

175570

000015

000177

001324

BLE

ASL
ASL
ASL

RREAD:

003604

TSTR
BPL
MOVB
BI(C
T1ST1B
BPL
MOvB
ctMP8
BEQ
cMPS

BLY
INC
e

000060

000010

(LR
CLR

cMP8
BGT
CMPB

000067

001324
000067

MOV
Mov
MoV

BEQ

000060

006301

005726

X0, SAVRO
9%6,%0
#2,3%6

BNE

003370

15:10

MOV
MOV
ADD

MOV

003364

003370

19~JuL=79

RETRN:

suB
ADD
B8R
TYPE

DTERR

TST
BR
MOV
TST
MOV
MOV
RTS

(SP) .~ (SP)
20,-(SP)

X1.-(SP)
3
COUNT
aTKS
RDDAT
aTkB,-(SP)

:MAKE ROOM FOR DATA WORD
*SAVE RO
*SAVE R1
*CLEAR DATA WORD
*SET NO. OF DIGITS - 0
STEST TTY READ STATUS
‘WAIT
*PUSH DIGIT ON STACK

aTPs
ECDAT
(SP) ,aTP8
#15,(SP)
RETRN
#177,(SP)
RREAD
#60. (SP)
RREAD
#67, (SP)
RREAD

STEST TTY PRINT STATUS
SWAIT
“ECHO CHARACTER
SIS IT A TERMINATOR?
*BR IF YES
218 IT A RUBOUT?
*BR IF YES
*1IS IT AN OCTAL DIGIT®
*BR IF NO
*TEST AGAIN
‘BR IF NO

#8177, (SP)

COUNT

#67, COUNT

“INC NO. OF DIGITS

*MORE THAN SIX DIGITS?

RREAD

‘BR IF YES

*OF DATA WORD

#60, (SP)
(SP)+.%1
RDDAT

:CONVERT TO BINARY
“ADD DIGIT TO DATA WORD
*GET NEXT DIGIT

(SP)+

;GET RID OF

INDAT
21.10(sP)
(SP) +
(SP)+,%1
(SP)+.%0
PC

*CLEAR LOWEST THREE BITS

STELL USER ABOUT ILLEGAL CHARACTER
ILLEGAL CHARACTER

*START SUBROUTINE AGAIN
*STORE DATA WORD ON STACK
*INC STACK POINTER
*RESTORE R1
*RESTORE RO
*RETURN

*SUBROUTINE TO DELAY A SPECIFIED NUMBER OF MILLISECONDS

DLY:

MoV

%6 ,DLCNT

;GET DELAY COUNT ADDRESS.

(ZDLBCO DL11-E ON LINE

czoLsc.pP1?

003550
003554
003560
003562
003566
003570
003572
003574
003576

003600

003604

003606
003610
003612
003614
003616

e
e
i
d
oD
D i
e
d i
) rd

h vl
cd

d
vd

el o

e
s
e
b i

—d erd cood wad

19=-JUL=79 15:06

082

80?0068
VRIS
NN
—
CFRFSRERESLIE
R2

D el wa® md e

1073
1074
1075
1076
1077
1078
1079
1080
1081

TSET

003622
003626
003632
003634
003640
003642
003644
003646
003650
003652
003654

062716
017746
001407
012746
005316
001376
005726
005316
001371

30A(105¢)

000002
000024
000226

DLYA:
DLYB:

19-JuL=79

15:10

2
PAGE 24

SEQ 002¢

ADD

#2,3%6

JSET UP EXIT ADDRESS

DEC
BNE

)4,
DLYB

;1 MSEC COUNT TO STA(K
;DECREMENT 1 MSEC COUNT
JBRANCH [F NOT 0.

MOV
BEQ
MOV
POPSP

005726
000002
000000

104011
013500
012501
012502
060201
010003
042703
062703
110341
042700
006000
(06000
006000
005302
001363
104012
000205

MACY11

DLYC:

DEC.
BNE
FCPSP

DLCNT:

OPEN

aDLCNT - (6)
DLY(
#226,-(6)

3%
DLYA

RT]

,DELAY

:ZERO.

COUNT

TO STA(K

UNCOVER MSECS.

COUNT.

*DECREMENT T
;BR IF NOT DONE DLLAYING
;DONE
EXIT.

;CONTAINS MILLISECONDS COUNT ADDRESS.

:OCTAL TO ASCII CONVERT ROLTINE
OACNV:
SAVRFG
;SAVE REGS.
MOV
a(5)+,%0
;GET OCTAL VALUE.
MGV
(5)+.41
:GET DESTINATION ADDR.
MOV
(5)+;%2
:GET_CONVERT COUNT.
ADD
x2.%1
;DEVELOP ADDR TO STORE 1ST (HAR.

177770
000060

000007

OACNVA: MOV
8IC
ADD
MOVB

X0,%3
#177770,%3
#60,%3
x3,-(1

;ISOLATE LEAST SIGNIFICANT DIGIT.
;CONVERT DIGIT TO ASCII.
;STORE ASCII CHARACTER.

BIC
#7.%0
ROR
X0
ROR
X0
ROR
%0
DEC
%2
:DONE ALL DIGITS?
BNE
OACNVA
:BRANCH IF NOT DONE.
RSTREG
*RESTORE REGS.
RIS
%5
IDONE. EXIT,
;SUBROUTINE TO GENERATE PARITY ON DATA FOR 5.6,

SPARITY BIT IS THE MSB OF THE (HARACTER PARITY
;EVEN OR _0ODD
sGENERATES ODD/EVEN PARITY.

ONOWVNEWN
2OV NN NN —O

NOVNEBWN~O

b
d

D
b
b

h b —b

b
d

b o

b e

d b

b e

b o o

b eh

b
D

b cad

AN =200
SV\\A\AW\A\AMMMM&\J\J\
=OVOENOWNBWNI=200V0N VB

MACYT1

30A(1052)

000200

001362

GENPAR: BIT

000100

001362

000040

001362

000200
000007

001322
001324

177600

BIT

EIGHT:

SIX:

000040
000005
177740

001322
001324

000100
000006

001322
001324

SEVEN:

000020
000004
177760

001322

FIVE:

177700

001324

001326

DOIT:
AGAIN:

001324

RTN:

000040

001374

001322
001326

001326

001322

001326

DONE:
ADD1:

003372

KRUEROERENIRISR

004102

—a?-—l—l—l—l—l—d—l—l—i—a_‘—l

MOV
MOV

15:10

#8117, CARMSK

EIGHT
#8176, CARMSK
SEVEN

#BITS, CARMSK
SIX
FIVE

8IC

#177740,%1

MOV

#81T6,PARBIT

#5, COUNT

DOIT

#6,COUNT

BIC

#177700.%1

BIC

#177760.%1

BR
MOV
MOV
8R
MOV
ROR
BCS
DEC

BNE

BEQ
ADD
MOV
RTS
ADD
BR

JTEST MSB CHAR LENGTH
;CHAR LENGTH IS 7

;GO AND GENERATE PARITY FOR 8

#8IT5,PARBIT

MOV

;CHAR IS 8

DOIT

MOV

B8R

JTEST LSR CHAR LENGTH

;PLACE PARITY BIT [N PROPER POSITION

#177600,%1

MOV

SEQ 00c°

#8177 ,PARBIT
#7 , COUNT

BIC
8R

2
PAGE 25

DOIT
#BIT4 PARB!T
#4 , COONT
DOIT
X1,SAVE
11
ADD1

;SET UP ROTATE COUNTER=7
JMASK OFF UNUSED BITS
JPLACE PARITY BIT

IN PROPER POSITION

sSET UP ROTATE COUNTER=5
JMASK OFF UNUSED BITS
;GO AND GENERATE PARITY fOR
;PLACE PARITY BIT IN PROPER PUSIiTION
:SET UP ROTATE COUNTER=6
sMASK OFF UNUSED BITS
;GO AND GENERATE PARITY FOR 7
sPLACE PARITY BIT IN PROPER POSITION
;SET UP ROTATE (OUNTER-4
;MASK OFF UNUSED BITS
;GO AND GENERATE PARITY FOR

AGAIN

:SAVE DATA
;ROTATE DATA
;IF CARRY SET ADD IN PARBIT
;DECREMENT COUNTER
;NOT DONE DO IT AGAIN

DONE
PARBI
T, SAVE
SAVE,
X1
7
PARBIT, SAVE
RTN

c1F EVEN F INISHED
;IF ODD ADD IN ANOTHER 1
+PLACE DATA + PARITY BACK IN R1
SAND EXIT
;ADD PARBIT TO DATA
SRETURN TO COUNTER

COUNT

#8ITS,SRT

:DONE EVEN OR ODD PARITY?

;SUBROUTINE TO SELECT LINE AND LOAD VECTOR ASSIGNMENT

b 2D

BEQ
BR

8IT

LINSEL:

e weh
md camd

Dl wvd
D

ik ek o v
mh e

e wd od wd ok —d
b

b e o
od

19-4UL=79

BEQ
BIT
BEQ

b o

b ond e

d rd

b od b

d eed e o

b ed

D rd

b d

d o

b o

b e wed

032737
001411
032737
001427
032737
001412
000433
012737
012737
042701
000433
012737
012737
042701
000422
012737
012737
042701
000411
012737
012737
042701

NINININDNINININPIND
—d b b b b b
b

CZOLBCO DL11-E ON LINE TSET
19-JUL=79 15:06
C20LBC P

177407

001372
001200
000004
011216
000002

011120

022121

LINSA:

TYPE
LDL INE
JSR
MOV
BIC

ASR
ASR
MOV
MOV
MOV
MOv
MOV
ADD
DEC
BNE
MOV
MOV
MP

PC ,RDOCT

+, X1
(SP)
17740721

4, X6
RCSR(1).,%2

JGET INPUT
JLOAD R1

JMASK OFF ALL BUT LINE BITS

;SAVE LINE #
JLOAD ADDRESS OF REGISTERS
;SET UP COUNTER

X2,(3)+

#2,%2
%4
L INSA
VECTAB(1),X1

21,(3)+
(D+,(1)+

;GET LINE VECTOR ADDRESS
;LOAD INTO PROG. RXVTR

JADD +4 TO RXVIR TO = TXVIR

PINININ)
= —d d d b b

r RS NNSRTBH

NNNNNNNNN

SIS

(¥,]

B8R IR REN 28 BB IR O RAR 2B IIIFFNANIIDSHLE o 3

D o
d e

d d b ed D

D d i

D d v

D e

005723
010113
022737
001001
000205
006237

MACY11

O O O O O 0 00 Qo 0o Qo 0o Qo 00 0o 0o
0O

1208

3
b o

mih

d ad

D wd

OB NOWNSHWN
O

P
S S S G

30A(7052)

000005

001240

1.3
#Sl,.PRGNUM

RTS

PAGE 26

(3)+

MOV
gmlg

ASR
CNVOA

001372

TYPE
AL INEX

RTS

;POINT

SEQ 0026
TO PROG TXVIR

;LOAD INTO PROG TXVIR
JRUNNING PROGRAM # 5

TEMP
TEMP,TLINEX,?
5

;RETURN TO PROG 5

;POSITION

JT/PE LINE # THAT
;WAS CALLED

;SUBROUTINE TO LOAD BINARY COUNT PATTERN INTO OUTPUT BUFFER
INFIL:
CLRB
NUMBER
JINITIALIZE BINARY COUNT
FILL:
MOV
(5)+.,%0
;GET ADDRESS

001334
001364
001334
001334
001364

FILLA:

MOV
MOVB

INCB

(5)+,CTRD
NUMBER, (0) +
NUMBER

BNE

FILLA

DEC

RTS

CTRD
5

:GET COUNT
;LOAD ADDRESS WITH BINARY (OUNT

;INC. BINARY COUNT
;DEC.

COUNT

JEXIT

: SUBROUTINE TO MOVE A VARIABLE NUMBER OF BYTES.

BMOVE:

104011
012501
012502
012503
112122

BMOVA:

005303
001375

SAVREG

MOV
MOV
Mov

(5)+.%1
(5)+,%2
(5)+,23

DEC

MOVB

BNE

104012

RSTREG
RTS

000205

(1)+,(2)+

BMOVA
X5

s SAVE REGS.

;GET'
¥ROM' 'ADDRESS
;GET''TO"'ADDRESS
;GET COUNT

;MOVE BYTE

;DECREMENT COUNT

:BRANCH IF NOT DONE.
SRESTORE REGS.
;DONE EXIT

;BINARY TO DECIMAL ASCII CONVERT SUBROUTINE.

104011

BDCNV:

012700
013501
012537
012537
012702
012737
012237
004737
005337
001371
163700
010037
004537
000000
000000
000000
104012
000205
005037
163701

004434
004436

005237

004434

103403

15:10

104000
014433
000205
105037
012500
012537
113720
105237
005337
001371
000205

19-4UL-79
TST

e e

D =D
d

D e ed

b D b D b e

e
d e

d D e
d ed d

D e

b d —ad b e e

d
b
D ed d e

b d ad = cd d b ed o

d e ed
b
—

[ASTSLNTN
L O, 1S 18 1,8 1,87 ,8

013

(ZDLBCO DL11~-E ON LINE TSET
19=-JUL=79 15:06
€2oLBC P11

SAVREG

#DECVAL ,X0

MOV
MOV
MOV

(5)+,BDCNVC
(5)+,BDCNVD
SADTENP, X2

DESTINATION ADDR TO BDCNVC.
;COUNT TO BDCNVD.
;ADDR OF TEN POMWER STRING TO RC.

BDCNVA: MOV

(25+, TENPWR

;MOVE POWER OF TFN VALUE TC TENPWR.

CNVCTR

:DONE 5 CONVERSIONS?

MOV

004432

;SAVE REGS.

MOV

a(s)+. 11

#5,CNVCTR

JSR

%7 ,SUBTEN

BNE

BDCNVA

DEC

suB
MOV
JSR

B8DCNVB: OPEN
BDCNVC: OPEN
BDCNVD: OPEN
RSTREG
RTS
SUBTEN: CLR

SUBTNA: SUB
?C%
N

BDCNVD, X0
20.BDCNVB
X5 ,BMOVE

x5
DIGIT

TENPWR, X1
S&B}"}B

DIG

;SET UP ADDR TO STORE DECIMAL ASCII IN RO
;BINARY VALUE TO R1.

;SET UP FOR S POWER CONVERSIONS.

;PERFORM CONVERSION

SBRANCH IF NOT YET 5.

sSET UP ADDR TO MOVE DECIMAL
sDATA FROM.
;MOVE DECIMAL DATA TO DESTINATION.
2 SRC _ADDR.
;DEST ADDR.
s COUNT.
RESTORE REGS.
JYES, EXIT.
;CLEAR DIGIT

;SUBTRACT TEN POWER FROM BINARY VALUE.
JBRANCH TF UNSUCCESSFUL SUBTRACTION.

RRIEERERNRENS
-ACho&Luxhh¥a~mhag;O

)

D sd

d ot

CZDLBCO DL11-E ON LINE TSE”
19-JUL=79 15:06
(20LBC P

004410
004412
004416
004426
004430
004432
004434
004436
004440
004442

004444

004446
004450
004452
004455
004460
004462
004464
004470
004474
004506
004510
004512
004520
004526
004530
004536
004544
004546
004554
004556
004564
004566
004574
004576
004604
004612
004616
004622
004626
004634
004642
004646
004652
004654
004656

000772
063701
062737
113720

000207
000000
000000
020000
023420
001750
00014
00001$
040
040

104000
013624
004737
012637

004436
000060
004434

MACY1T

004436

SUBTNB: ADD

ADD
MOVB
RTS
(NVCTR: OPEN
OPEN
DIGIT:
TENPWR:

OPEN

DECVAL:

.BYTE

ADTENP:

040
040

003372
001374

013737

000002

177400

001362
001374

177700
000001

001362
001374

177740

01362

000001

001374

177600

001362

177776

001336
177776

000340
001336
001336
001336
177740

001336
001342
003606

00360¢

TBIT1:

PAGEL 27

, X1
TENPWR

#60,DIGIT
DIGIT,(0)+
174

SEQ 0027

JRESTORE SUBTRACTED vALUE.
;CONVERT (DIGIT) TO ASCII
:?2¥$ ASCI] CHAR TO DECVAL FIELD.

10000.
1000.
100.
}0.

TYPE
SELPAR
JSR

MOV
(NVOA

104000

014124
012737
032737
001413
012737
032737
001403
012737
000207
032737
001773
012737
000767

SUBTNA

040,040,040,060,040,040

. SUBROUTINE TO SET

SETPAR:

15:10

19-JuL-79

30A(1052)

TYPE
PARMTS

MOV

C(HARACTER LENGTH PARAMETER

PC.RDOCT
(SP)+,SRT
SRT,APARM,3
#177400, CARMSK

BIT

#3]T1,SRT

MOV
8IT

#177700, CARMSK
#81T0,SRT

MOV

177740, CARMSK

BEQ

PAREX:
RTS
STPARA: BIT

BEQ
MOV
BR

STPARA

PAREX

¥4
#81T0,SRT
STPARA-?2
#177600, CARMSK
PAREX

JTYPE:

SELECT PARAMETERS.

;GET INPUT

sSET CHARACTER MASK TO 8 BITS.
;SEE IF SR BIT 1 IS SET.
sBRANCH [F NOT SET.
; CHANGE CHAR MASK TO 6 BITS.
;SEE ,F SR BITO IS SET.
;BRANCH IF NOT SET.
:gc??GE CHAR MASK TO 5 BITS.

;SEE IF SR BITO IS SET.
;JBRANCH IF NOT SET.

;CHANGE (CHAR MASK TO 7 BITS.

;ERROR TRAP HANDLER - TYPE TO AND FROM WHERE ERROR TRAP OCCURS
;SAVE OLDPS
ERTP:
MOV
PSW,0LDPS
#PRTY7 ,PSW
MOV

001336
001340

ERTPA:

ASR
ASR
ASR

OLDPS
OLDPS
OLDPS

JSR

X5.0ACNV

BIC
MoV
MOV
TOP(
MTO

6
JSR

FROMPC
MFROM

TYPE
MTERR
HALT

#177740,0LDPS
OLDPS, TOPC
%6, FROMP(

%5,0ACNV

CZDLBCO DL11~-E ON LINE TSET
19-JUL~=79 15:06
(ZDLBC P11

ERRERIRRS S8
~
SVRRRITZE
o

ed e

o _p —d

004700

e
D mad
b
d

§?§ SRAR
VONONS AN —=O

el mad od

b
ik

ek
d e

d ad
i

D
e
d

d o
b

WA N AN NN N N N NN

1289

1320

000137

001436

011637
022626
011637

001340

162737

005737
001746
013737
162737

013737
005037
000002

001342
000004
001350
001340
000004
001340
001350

MACY11

POPSP2

001340

000146
174132

174134

1746120
040000

001370
001370

000006

174100

174070
174064

001370

BEO
MOV
SUB

ERTPA
TOPC, TXVTR
#4,TOPC

CLR

FMAP

MoV

FORMAD: MOV

ADD

MOV
ADD
MOV
ADD

MOV
RTS

SEQ 0028

FMAP

;NOT MAPPING, REPORT ERROR
*STORE VECTOR

TOPC.,RXVTR

LINCA:
LINCB:

X1 .RXBUF
#2.%1
%7.TXCSR
#2.%1

X1, TXBUF

#BITI3.RXCSRT

BIC

#1646, IRXCSR

MAK CON
MOV

SRXCSR,RX(SRT

BEQ

LINCB

BNE

ST
TYPE

BIT

SRXBUF

SCLEAR DONE
;TYPE

#BIT14.RXCSRT

#6.,3RXCSR

BNE

LINCF

ERRRX

BR
MOV
ST
TYPE

L INMAD

IS CLEAR TO SEND UP

“YES CONNECTION IS MADE.

SRXCSR,RXCSRT
SRXBUF

L INCHM

:YES,

LINEUP

MOV
ST

8IT

LINCF:

@RXCSR,RXCSRT

BIT

BIS
DELAY
10000.

001370

£1.,RXCSR

#2.%

*SUBROUTINE TO MAKE LINE CONNECTION.

LINCON: MOV

014146

174040
174034

3
PAGE 28

*FORMAD - FORM DEVICE AT ADDRESS

001370
001370

012701
012702
012711
062701

3%6
., FROMPC
¥4, TOPC

RTI

174154
020000

000741
017737
005777
104000
014176
000205

START

MOV
SUB
ST

001214
001340
001210

017737
032737
001046
042777
005777

020000

15:10

'MAPVEC ~ MAP VECTOR VECTOR OR REPORT FRRuk DEPENDING ON FMAP F[AG
MAPVEC: MOV
a%6, TOPC

001200
000002
001202
000002
001204
000002
001206

014020
017737
032737
001771
052777
104016
023420
017737
005777
032737
001003
104015

19-4uUL-79
JMP

010137
062701
010137
062701
010137
062701
010137
000207

104000

30A{1052)

#BIT13,RXCSRT

LINCA
@RXCSR,RXCSRT
ARXBUF

*CLEAR IE BIT AND DTR, RQ TO SND
FLAG

P'MAKE LINE CONNECTION'

;DID YOU RING

‘GO WAIT FOR RING

*SET DTR, RQ TO SND
*CLEAR TO SEND

“WAIT 10 SECONDS FOR
;CLEAR DONE

:IS CLEAR TO SEND UP?
*YES.

*NO.

GO TO LINCF

PRINT ERROR MESSAGE

S'CLEAR TO SEND NOT SET®
*START OVER AGAIN
:CLEAR ALL FLAGS
“AND DONE
*TYPE MESSAGE

SCONNECTION IS MADE'

LINEUP: RTS

“EXIT LINE CONNECTION ROUTINE WiTH

OVRLAY: MOV
MOV

#OUTBUE , X1
26, .12

;GET OUTBUF ADDRESS
*GET COUNTER

#72..%1

‘ADD OFFSET

JSUBROUTINE TO OVERLAY <CRLF> IN'DATA PATTERN (EVERY 72.ND CHAR)

OVRLYA: MOV
ADD

#105215, (1)

*INSERT CRELF

OO0~ WN—=O

% RERELLE 227495

—

d emd e

h e

N NN
NN

d ik e md e

b i

)

D o

ced ed —d e

D ad vk

)

AN NN N NN N NN

)

d e

D e

b d

NN
N NN

EFRARR INEN S MERPNIENE
T SR R S ¢ S riv

(ZDLBCO DL1I-E ON LINE TSETM
19=-JUL=79 15:06

MACY11

3CA(105¢)

DEC

005302
001372
000207
000240
010037

006300
016037
017737

100570
105737
001002

BNE
RTS

MOV

001330
011216
173754

117077

005237
022737
001430

AStL
MOV

001200
001370

MOV
BM]

001370

TSTB

BNE
ERROR

000002
117077
005237

022737
002401
000002
022737
001405
022737
001405
000002

052770
000002
000240
012737
012702
012703

010237
022737

001015
112337
112237
104004
005237

022737
001365
000137
000240

001404

RISRA:

RT]

(MP
BNE
TST

001412

BEQ
;?}

011314
011314
001376
017626

15:10

PAGE 29

¥4

OVRLYA
7

SEQ 0029

;DONE?
JEXIT

;RECEIVER INTERRUPTS COMMON HANDLER
RISR:
NOP

104003

000002
020037
001020
005737
001403
005770
000002

19-JUL=79

1746104

001376

RISRAA: MOVB
INC

cMP

%0,LINE

%0
RCSR(0) ,RXCSR
SRXCSR,RXCSRT
DCERR
RXCSRT

RISRA

X0, CALLED
RISRB

MODEM

RISRAA
aRBUF (0)

;GET ADDRESS OF INTIRRUPTING DL11-E*'S RCSR
;GET CSR CONTENTS
s CHECK INT
;TEST DONE

;FALSE INTERRUPTY
JEXIT

;DID CALLED LINE INTERRUPT?
;BRANCH IF CALLER INTERRUPTED
; CHECK MODEM TYPE

;BRANCH IF 103
JREAD CALLED LINES DATA

@RBUF (0) .aINBUFP;STORE CHARACTER IN INPUT BUFFER
INBUFP
; INCREMENT POINTER

#INBUF +100. , INBUFP;HAVE 100.

011314
001400
015670

001400

000002

001332

cMP

#2,CONF1G

016022

001400

cMP

#BUFF +100. ,BUFFP;HAVE 100. CHARACTERS BEEN RECEIVED~

000100

011412

174062

RISRB:

L
RTI

BEQ
gg?

RISRBB: g{?

RISRC

CHARACTERS BEEN RECEIVED>

BEQ
RTI
MOVB
INC
éflfi

;GO CHECK DATA IF YES
JEXIT IF NO
aRBUF
(0) ,aBUFFP ;STORE CHARACTER [N INTERMEDIATE DATA BUFFER
BUFFP
; INCREMENT POINTER
#BgFF+10..BUFFP ;HAVE 10 CHARACTERS BEEN RECEIVED
.+

RISRB8B

SEXIT

JRUNNING CONF IGURATION 2?

RISRC

:gglgHECK DATA IF

YES,OTHERWISE

#8IT6,aTCSR(0)

:E;??T CALLERS TRANSMITTER

. CHECK DATA CONFIGURATION #1

000001
015656
015512
001400
000001

001364

001332

001360
001356
001364
000101

RISRC:

NOP

MOV
MOV
MOV
MoV
MP
BNE
RISRCA: MOVB

mMov8

DATCHK
INC
tMp

001364

BNE
JMP

005554

#1,CTRD
#BUFF X2
#OUTBUF X3
X2 BUFFP
#1,CONFIG
RISRD
(3)+ XMTDAT

(2)+ ,RECDAT

CTRD
#101,CTRD
RISRCA
FINISH

SCHECK DATA CONF JGURATION #¢

RISRD:

NOP

JINITIALIZE CHARACTER COUNT
POINT R2 TO CALLERS RECEIVED DATA BUFFER
;R3 = FIRST ADDRESS OF QUTPUT DATA BUFFER
JRESTORE CALLERS RCVD DATA BUFFER PTR
;CHECK CONF IGURATION
JGET TRANSMITTED CHARACTER

;GET RECEIVED CHARACTER

;CHECK DATA
2 INCREMENT CHARACTER COUNT
JHAS ALL DATA BEEN CHECKED

005456
005462
005465
005474
005500
005506
005512
005516
005520
005524

005532
005536
005540

— e OO2—= =00

(20LBCO DL11=-E ON LIME TSET
19-0UL=79 15:06
~20L8C P11

005756
005760
005762
005764
005766

001402
011216
001356

001364
000101

005544
005552
005554
005556
005562
005566
005570
005572
005574
005576
005604
005606

005610
005616
005620
005622
005624
005632
005640
005646
005654
005662
005664
005670
005672
005674
005676
005710
005712
005714
005720
005724
005730
005736
005742
005750
005752

017462
001376
015656
001404
011216
001360
001356

MACY11

30A(1052)

=
41 jL~79
1Q
MOV

001410

001200

MOV

MOV
RISRDA: MOV

MOV

MOVB
MOVB

DATCHK
MOV
MOV
MOVB
DATCHK
INC

001200

001364

CMP

FINISH:

001404
004224

BNE

NOP

MOV
JSR
OUTBUF
100.

15:10

PAGE 30

# INBUF
, %4

%6, INBUFP

#SUFF ,TBUFFP
CALLED,
X1

SEQ 0030

;POINT R4 TO CALLED LINES RECEIVER
JDATA BUFFER & INIT. POINTER

RCSR(1) ,RXCSR

(3)+,XMTDAT

(2)+.RECDAT

. COMPARE TRANSMITTED DATA WITH DATA

%1
CALLER,
RCSR(1) ,RXCSR
(4)+,RECDAT

. COMPARE TRANSMITTED DATA WITH DATA

CTRD

JRECEIVED BY

CALLED LINE

JRECEIVED BY CALLER

#101,CTRD
R]SRDA

X1
CALLED,
S,FILL

TYPE

000100

ENDPAS
BIS
NOP

011412

#BIT6,ATCSR(T)

RTI

032770
001402

100000

011314

104015

013126
012737
012737
012737
012737
032737
001005
004737
104015
013126
000002

015512
0174662
015656
015656
040000

001406
001376
001400
001410
001370

RISRF:

JSR

ERRRX
CSRADD

RISREX:

001404
003372
001412
177773
001332

ERRRX
CSRADD
MOV
MOV
MOV

MOV
8IT
BNE

006312

104000

014463
010037
004737
011637
042737
012637
042737
001042
004737
104000
014763
104016
023420
005770

:ERROR SERVICE ROUTINE
DCERR:
BIT
#81T15,aRBUF
(0)
RISRF
BEQ

RTI
CNVOA
TYPE
AL INE

MOV

#OUTBUF ,OTBUFP
, INBUFP
#INBUF
#BUFF BUFFP
., TBUFFP
#BUFF

#MIT14 RXCSRT
RISREX
7.DISCON

;TEST ERROR

;SET OUTPUT BUFFER PGINTER
SSET INPUT BUFFER POINTER
sSET INTERMEDIATE BUFFER POINTER
;SET POINTER FOR CONFIG #2 TRANSMITTER
sCHECK RING INDICATOR
;BRANCH [F RING
JERROR SET - NO RING

LINE,TLINE,?

X0, CALLED

JSR
MOV

PC.RDOCT
(SP) ,MODEM

JGET INPUT
;GET MODEM TYPE
;0=103,4=202

006326

BNE
JSR

RISRF(
7., CONN

011314

BUTTON
DELAY
10000.
ST

;G0 TO SERVICE FOR CONFIG 1 OR 2
JCONNECT LINE IF CONFIGURAT! ON C
JTYPE MESSAGE TQ PRESS DATA
;BUTTON ON DATA PHONE

177774

00412

001332

BIC
MOV
BIC

TYPE

#177773
. MODEM
(SP)+,CONFIG
#1777%4
. CONF1G

sWAIT FOR CARRIER

aRBUF (0)

210 SECONDS
JREAD BUFFER TO (LEAR DONE

IDLBCO DLIT~-E ON LINE TSETY
19=-JUL=79 15:06
r2DLBC.P1"

1469
1470
1471
1472

1473
1474

1475
1476

1477

1478

1479

1480
1481
1482
1483
1484
1485
1486
1487
1488

1489
1490
1491
1492
1493

1694
1495
1496
1497
1498
'L 99

006130
006136

006140
006142
006144
006146
006154
006162
006164
006166
006172
006200
006202
006210
006212
006220
006222
006224
006230
006236

006262
006250
006252
006254

104000

011412
004460

001204

RISRFRB:

014176
104000

014225
052770
000002

000100

042701
010137

104000

032771
001003

104003
000137

JSR

7,D1ISCON

RT]
MOV

JSR

TCSR(Q),TXCSR

7 .,SETPAR

CONFIG,TCONF1G,2

BIS
RTI

#BIT6,ATCSRO)

177740

001402
006326
000002

TYPE
WRU

011216

BIS

TYPE

006317
000006

011216

BUTTON
DELAY
10000.
CMP
BIT
BNE
ERROR
RISRFD: JSR
BIC

000002

001332

RISRFF:

010000

011216

011314
020000

001200

11216

RTI

P
BEQ
WP
BNE
ERROR
JMP
RISRFE: MOV
JMP

PC.RDOCT
(SP)+,X1

#177740,%1
%1,LINE
LINE,URA,?2

%1
X1.CALLER
7 . CONN

#M]T1,aRCSR{1)

B8NE

ERROR
JMP

SEQ 0031

JTEST FOR CLEAR TO SEND

DID NOT RECEIVE CLEAR TO SEND

JWITHIN TIME ALLOTTED

;DISCONNECT LINE
JAND EXIT

(10 SEC.)

JGET CALLED LINES TXCSR ADDRESS

;LOAD USER PARAMETERS

sTYPE "LINE
JMADE'

CONNECTION

JAND EXIT

JASK USER WHICH LINE HE
:DIALING ON
:GET

INPUT
:GET LINE #

;MASK UNUSED BITS
REPORT

LINE

# ON TTY

;SAVE CALLERS LINE #
;CONNECT CALLED LINE

;SET DTR ON CALLERS LINE
:TYPE MESSAGE TO PRESS DATA
;ON DATA PHONE

WAIT 10 SECONDS FOR CLEAR TO SEND
;SET AT CALLED LINE

ARBUF (0) ,3RBUF (1)

:READ BUFFERS

;?gégg.aacsn(o> :TEST FOR CLEAR TO SEND AT CALLED LINE

7.DISCON
#6,3RCSR(1)
#2 CONF
G
RISRFG

;ERROR!

CLEAR TO SEND NOT SET AT CALLED o INE

:DISCONNECT
JLINE

JAND EXIT

;?gggg,ancsn(1> :CHECX CARRIER AT CALLERS LINE
RISRFD

RCSR(1) ,RXCSR

RISRFB

SHERE IF CONFIGURATION 2

RISRFG: BIT

JERROR!

CNVOA

MOV
BIC
MOV
CNVOA
TYPE
UR
ASL
MOv
JSR

001330

104016

104003
004737
042771
000002
022737
001414
022771
001003
104003
00013/
016137
000137

3
PAGE

g?é;;g.QRCSR(O)

JSR

003372

014763

023420
027071
032770
001007

"HERE IF CONFIGURATION 1 OR 2

RISRFC:

104000

014730
006301
010137
004737
052771

15:10

8IT
BNE
ERROR

TYPE
ACONF ]G

011412

104000

014633
004737
012601

19-JUL=79

TYPE
L INMAD

1467
1468

000002
016037
004737

006312

1464
1465
1466

004737

[
%

1462
1463

006056
006060
006062
006066
006070
006074
006100
006112
006114
006116
006120
006124

104003

—

1460
1461

30A(105¢2)

011216

1458
1459

006004
006010
006012
006020
006024
006026
006030
006042
006044
006046
006054

020000

——

1455
1456
1457

006002

032770
0C1004

—

1451
1452
1453
1454

0NS772
006000

1444
1445
1446
1447
1448
1449
1450

MACY'T

;ERROR! NO CARRIER AT CALLERS LINE
;GO DISCONNECT LINES

;GO GET PAREMETERS AND ENABLE

sCALLED TRANSMITTER AND EXIT

MBIT13,38RCSR(1)

;TFST CALLERS CLEAR 10 SEND

RISRFD

JERROR! NO (TS AT (ALLERS LINE
;GO DISCONNECT LINE AND EX]°

RISRFH

(ZDLBCO DL11-E ON L INE

(ZoLBC.P11

1590

1501

1502

1503

1504

006260

TSET

19-JUL=79 15:06

016037

011216

006276

006300

006266

016137

MACY11

30A(105¢)

19-4uL-79

001200

RISRFH: MOV

004737

0131412

0046460

001204

016137

€11216

001200

MOV

15:10

3
PAGE 32

R(SR(0) ,RX(SR

MOV

TCSR(1),TXCSR

JSR

7.5t TPAR

RCSR(1) ,RXCSR

;TRANSMITTER AND CALLED RECEIVER

}282

006306

000137

006012

1507
1508

006312

042770

000006

011216

;SUBROUTINE
DISCON: BIC

TO DISCONNECT LINE RO HAS LINE #
#6,aRCSR(0)

011216

(ONN:

JSUBROUTINE

TG CONNECT LINE RO HAS LINE #

1509
}2}(1)

006320
006324

005770
000207

011216

1513

006326

052770

000006

1515
1516
1517

006336
006340

000240
006300

1520
1521

006350
006352

104003
000002

006366

001015

1512
1514

1518
1519

0063346

006342
006346

1522
1523
1526

006354
006360
006362

1526

006370

1528

006402

1525

1527

000207

105770
100402

JMP

;GO GET PARAMETERS FOR CALLERS

1ST
RTS

SRCSR(0)
7

RTS

;TRANSMITTER
TISR:
NOP
ASL

011412

TISRAA:

005737
001420
020037

001332

TISRA:

117770

173014

011510

016022

001410

000100

011412

172760
001406
001332

011510

001402

#6,3R(SR(0)
7

INTERRUPT

JSET DTR, RQ TC SND

COMMON HANDLER

;RO HAS LINE #

TSTB
B8M]

aTCSR(O)
TISRA

TST
BEQ

(ONF ]G
TISR(C
%0, CALLER

MOVB

aTBUFFP ,’TRBUF (0)

(mMP

#BUFF +100. ,TBUFHP

MOVB
INC
TST
BNE

a0TBUFP,aTBUF (0)
JTRANSMIT THE NEXT CHARA(TER
OTBUFP
;STEP POINTER TO NEXT CHAR.
CONF |G
;WAS CONF JGURATION O SELECTED
TISRB
JBRANCH IF CONFIG #1 OR #2

BNE

T1SRAA

ERROR
RT]

(MP
BNE

FALSE

INTERRUPT

. THIS CONFIGURATIO 02
JBRANCH IF YES
;DiD CALLER INTERRUPT
;TRANSMI T

1529
1530
1531

006410
006412
006420

001003
042770
(000002

1536

006442

022737

017462

001406

006452

012737

015512

001406

TISRBB: MOV

#OUTBUF ,OTBUFP

006462
006470
Q06472

022737
001330
042770

015656

001606

TISRB:

000100

011472

#OUTBUF
+100. ,0TBUFP;HAVE 100. CHARS. BEEN SENT?
TISRAA
JEXIT IF NOT
#3]T6,aTCSR(0)
;DISABLE TRANSMITTER INTERRUPT

1537

1538

1539
b

1541
1542
1543

}22?

006422
006430
006434
006440
006450

006460

006500

117770
005237
005737
001010
001340
000002

000764

TISRC:

BNE
BIf
RTI

(MP

RTI

(MP
BNE
BI(

1546

JKEARRARARN

1547

(PRGO - SINGLF

1548

JERRRERANEN

1549
1550
1551

006502
006504
006506

000240
104000
013256

155%
1554

006512
006514

013712
004737

1552

*555

006510

006520

PRGO:

104000

112607

TBUFFP

JERROR!
JEXIT

005237

1532
1533
1534
1535

INC

TISRC

;CHECK FOR DONE
JBRANCH IF DONE

006376

022737

030140

B1S

RISRFR

.+10
MIT6,aTCSRO)

HOUTBUF
+1000. ,0TBUFP;HAVE 1000.

T1SRBA

MOovB

CHARS. BEEN SENT

;RESET POINTER

TAND EXIT

JRESET POINTER AND EXITY
TEST.

;BEG]N PRGO
s TYPE
;PROGRAM TI]TLE

TYPE

003372

SEXIT IF NOT

C(HARACTFR LINE MODE

NOP
TYPE
POTIT
SELCAR
JSR

;STEP POINTER

P( RDOCT

(SP)+, %1

JGET

INPUT

JGET USER SPECIFIED

[CATA

{DiBCO DL1~E ON LINE TSET

JDLBC.P
1556

1557
1558

006522

006526
006532

‘O=JuL~79 15:06
010137

004537
015572

0°5513
001747

1564

006554

004737

010240

012702

000140

004737
004737
004737

006560

1567

006572

012701

011216

006606

005037

177776

1566

006566

1568
1569
1570

006576
006602
006604

1572
1573

006612
006614

1571

1574

012737
004537
104000
014020
000001
000776

JSR
OUTBUF

OUTBUF +1
999,

005154
010352
010304

1565

000340

104000
013322
012737
00453/

1582

006636

001750

1587

5 .BMOVE

s AND

JLOAD
;INTO

JOUTPUT
;BUFFER

7,LDTVEC

MOV

#PRTY7 ,PSW

;SET PROCESSOR PRIOR]ITY=/

MOV

#RCSR, X1

7 ,LDVECS

#1460,%°

CLR

WAIT
BR

S.MOVIT

PSW

JSET IE

;BIT IN

JALL RECEIVERS
;TYPE
;'MAKE LINE CONNECTION'®

:SET PROCESSOR PRIORITY=0
JWALT
JHERE

PRGOA

IRERRARRRAK

;LOAD RECEIVER VE(CTORS

SHARA
R A NN

006616
006620
006622
006630

1586

%1.0UTBUf

SEQ 0033

;PRG1 =~ SPECIAL BINARY COUNT PATTERN LINE MODE TEST.

1577
1578
1579
1580

1583
1584
1585

PAGE 33

;OVER LAY (R,LF'S [N DATA
;LOAD PRIORITY LEVEL IN VECTOR+?2
;LOAD TRANSMITTER VECTORS

JSR
TYPE
MAKCON

PRGQA:

7 .OVRLAY
7.,LDPR]

MOV

010174

15:10

JSR
JSR
JSR
JSR

177776

;g;g

1581

19-JuL~=79
MOV

004252

006534
00653

006540
0065446
006550

30A(T10S¢.

015512

1559
1560

561
1562
1563

MACY"1

(06634

015514

PRG1:

105215
004220

015512

TYPE
PITIT
MOV
JSR

. TYPE PROGRAM TITLE.

OUTBUF +¢
1000.

#105215,0UBUF
S,INFIL

006640
006646
006652

012737
004737
004737

000100
010352
010304

001334

MOV
JSR
JSR

#100 ,NUMBER
7.LDPR]
7.LDTVEC

006662

012737

000340

177776

MOV

APRTY7 ,PSW

006674
006700

012701
004537

MOV
JSR

#RCSR, %1
5.MovIT

006656

1588

006670

1591
1592
1593
1594
1595

006704
006706
006710
0067146
006716

(004737

7 ,LDVECS

;LOAD PRIORITY LEVEL IN VECTOR +2
JLOAD TRANSMITTER VECTORS

;LOAD RECEIVER VECTORS

;SET PROCESSOR PRIORITY=7

PSW
PRG1C

:TYPE
;"MAKE LINE CONNECTION'
;SET PROCESSOR PRIORITY=0
JWALT
JHERE

1597

;PRGZ2~-SPECIAL MESSAGE

TRANSMIT ONLY THIS PROGRAM TRANSMITS

1599

;THE MESSAGE

1596

011216
010174

177776

PRGIC:

JENRRAAARNRN

}289
1603
1604

;BACK

006720

004072

006734

052777

000004

1607

006742

1611

PRGZ:

013371
00464537

006730

1608
1609
1610

104000

006722
006726

1605

1606

TYPE
MAK CON
CLR
WA]T
BR

JRNANRARENR

1598

1602

MOV

;COUNT PATTERN

,GET IE BIT

104000
014020
Q05037
000001
000776

000140

JSR

.WITH BINARY

#160,%2

1589
1590

012702

010240

;LOAD CRLF
:LOAD OUTPUT

006746
006752
006754

006760

004737

004537
012702
112201
020127

001772

006460
005020
014252

000045

172236

PRGZB:
PRG2(:

'A QUICK BROWN FOX JUMPED OVER THE LAZY DOGS

1234567890,
TYPE

: TYPE PROGRAM

P2TIT
JSR

5.LINSEL

BIS

#B]1T2,aRXCSR

MOV
MOVB
{MP

#PRG2M, X¢
(2)+,%1
11.4'2

JSR

PRG2A:

JGET FIRST (SR ADDRESS
;AND MOVE 17

JSR

BEQ

JTITLE

7.,SETPAR

;G0 SET PARAMETERS

5,LINCON

G0 MAKE LINE CONNECTION

PRGZR

;SET REQUEST

TO SEND

;GET ADDRESS OF MESSAGE
;GET FIRST CHARACTER
;TERMINATOR (HARACTER

JRESEND MESSAGE

JDLBCO DL11-E ON LINE TSET?
T70LBf P11
19-JUL=79 15:06

006762
00677C
006772
006776
007002
007006
007012
007014

032737
001402
004737
004537
010177
105777
100375

000100

MACY11

30A(105¢)

001374

10-JUL=79

BIT
BEQ
JSR
JSR
MCV

003656
005020
172200

172172

1ST8

BPL
BR

000754

:ttttittttt

15:10

FAGE

#81T6,SRT
. +6
7 .GENPAR

S.LINCON
¥1.aTXBUF

arzcsn

PRG2(

SEQ 003

JPARITY ENABLED

;GENERATE PARITY
;CHECK LINE CONNECTION
;LOAD BUFFER

JAND WAIT FOR CHARACTER
;TO BE TRANSMITTED
JGET NEXT CHARACTER.

;PRG3-PROGRAM TO RECEIVE A MESSAGE.
S

007016
007020
007022
007026
007032
007036
007044
007050
007052
007054
007056

007060
007064
007070
007074
007100
007104
007112
007116
007124
007130
007132
007134
0371462

007144
007150
007152
007156
007164
007170
007174
007176
007202

007204
007210
007212

PRG3:

104000

013441
004537
004737
012706
052777
004537
104006

004072
004460
001176
000004
005020

104007

007346
005037
013700
012720
013710
012701
052737
004737

052777
005037

000001
000776
017737
100461
105737

100064

005237
017737
113711

005737

100455
105777
100405
105777
100375
11177

007546
001234
007500
001236
015512
100000

007732
000140

177776
172040

007546
172020

007550
007550

7232

100441
121103

007544

122127

001401
000002

001370

"77550

000203

8IS

RINT3:

001604

:TYPE

TYPE

P3TIT
JSR
JSR
MoV
BIS
JSR
STRXV
RINT3
STTXV
TINT3
CLR
MOV
MOV
MOV
MoV
BIS
JSR

LR
WAIT
BR
MOV
8M]
1518
8PL

INC

MOV
MovBe
TST
8MI]
1ST8

8M]

171774

005737
001404

172054

170766

171770
007546

001411

007544

001370

023727

007234
007236
007240
007244
007246

PRG3A:

007134

007216
007224

007226

A322 222021

TSTB
BPL
Move
RINT3A: mp

BEQ

TST
BM]
(MPS
BEQ
CMPS
BEQ
RT!

S.LINSEL

7 ,SETPAR
#STKPTR=2,%6

#BI1T2,IRXCSR
S.LINCON

sTITLE

PROGRAM

;GET PARAMETERS

JREPOSITION STACK POINTER

;SET REQUEST TO SEND
sMAKE LINE CONNECTION

;SFT RECEIVER INTERUPT

;TO THIS ADDRESS
;SET TRANSMITTER INTERRUPT

WORDS
TPVTR,20
#TPINT, (0)+
TPLVL, (0)

, %1
#OUTBUF
#BIT15,TFLAG
7, TCRLF
#140,3RXCSR
PSW

=2
3RXCSR,RXCSRT
ERR3A

RXCSRT

ERR38
WORDS
ARXBUF ,RXBUF T
(1)
RXBUFT.
RXBUF
T

ERR3C

;TO THIS ADDRESS

;LOAD TELEPRINTER VECTOR
;AND PRIORITY
;CET BUF ADD
;SET BIT 15
;SEND CRLF
;ENABLE RECEIVER INTERRUPTS
;DO
:NOTHING
;GET RXCSR DATA
:BRANCH IF tRROR
JTEST

;GET DATA

aSRPTR
RINT3A
aTXCSR

JECHO OPTION SELECTED

(1), aTXBUF

;ECHO CHARACTER

RINT3A

JYES EXIT

WORDS
, #900.
TFLAG

RINT3E
(1,33
+

RINTSB

JEND OF BUFFER ALLOWED

;IS THIS THE FIRST

;CHARACTER BRANCH IF YES,

JLAST CHARACTER RECEIVED
;CONTROL €
SJEXIT

(ZDLBCO DLT11=-E ON LINE TSETY
19-JUL-79 15:06
£zoL8c P11

ERR3(:

005237

171620
007546

001431
023727

007546

001366

001604

000203
0
7
7

001372

MOV
8IS
BIS
RT!
ERRRX
LFAIL
BIC
B8R

ERRRX

CLR
MOVB

MOV
1ST8
8PL
MOVB
INC
cMP8
8EQ
cMP
BEQ
CMPEs
BEQ
RTI
TINT3B: MoV

CLR

B8PL
ERRTX
TINTM

000100
000100

171546
—

001372

TINT3C:

000203

TPINT:

3
PAGE

WORDS
#140,aRXCSR
#OUTBUF +1,%1

x1,%2
#B1T6,aTXCSR
#BIT6,ITPS

SEQ 0035

;DISABLE RECEIVER

JINITIALIZE BUFFER POINTER

;ENABLE TRANSMITTER
:E§T¢BLE TELEPRINTER

STYPE ERROR MESSAGE
#140,3aRXCSR
PRG3A

‘DISABLE RECEIVER
s TYPE

;ERROR MESSAGE

JEXIT

TFLAG

(1)+,%3

aTXCSR, TXCSRT
TXCSRT

TINT3B
(1) +,RTXBUF
WORDS
(1,%3
TINT3C
WORDS ,#900.
TINT3C
(1) ,4203
TINT3(C
alPS, TEMP
aTPS
QTES

;GET TXCSR DATA
sTEST
. TRANSMIT CHARACTER

JALL

CHARACTERS TRANSMITTED

;= CONTROL (

JRETURN TO MAIN PROGRAM
sSAVE TELEPRINTER STATUS
;DISABLE INTERRUPT

JWALIT FOR
JTELEPRINTER TO FINISH

:TYPE

1518
BPL
MOV
RTI

arfis

TEMP,aTPS

;ERROR MESSAGE
;WAIT FOR TELEPRINTER
;70 FINISH
:g;?;ORE TELEPRINTER STATUS

BIC
BI7
BEQ

#B176,3TX(SR

;DISABLE INTERRUPT

PRG3EX

MOvB
CMP8

(2)+,aTPB
(2),%3

RTI

171522

ERRRX
ROVER
RT1

TINT3:

171556

15:10

RINTM
RTI

7518

[V, 1V ]

032777
001421

171632

042777

CLR
BIC

RTI

001366

001425
121127
001422
000002
017737
005077
105777
100375
104014
013156
105777
100375
013777
000002

RINT3E:

007544

—

3
WA =20V NOWNSWN=O

PONIAIN)
=d = och b ok o = owd b ek

b
el
d
b
)
b
e
b
b
d wmh vd

ERR3B:

017737
105737

121103

D ek

171660

104015

100016
112177

NN NNNNNN
NN NN NN

000140

19-4UL=79

MOV

171706

014371
000002
112103
000002

RINT3B:

171720

013135
000002

005037

171716

30A(105¢)

ERR3A:

[«F
N ,¥)

1677
1678
1679
1680
1681
1682
1683

000002
104015
014353
042777
000644
104015

000100
000100

—t
vl
b

1674
1675
1676

007546
000140
015513

NNN

1671
1672
1673

005037
042777
012701
010102
052777
052777

[V,1V,
Yo

1670

007250
007254
007262

b
b w—ad

1668

1669

MACY1?

BEQ

(MPB
BEQ

#B1T6,dTPS

TPINTA

(2) ,4203
TPINTA

;1S TTY ACTIVE

:TYPE CHARACLTER

;WAS

THIS

THE LAST (HAR.

;= CONTROL €

rZDLBCO DL11~E ON LINE TSET
19-JUL=79 15:06
£20L8C PN

007516
007520
007526

007534
007536
007540
007544
007546
007550

000002

042777
032777
001401

000100
00C100

171 476
171450

007022

30A(1052)

19-JuL=79
RT]

15:10

TPINTA: BIC
BIT
BEQ

#BIT6,aTPS
#RIT6,9TXCSR
RIA

PRG3EX:
TFLAG:

PRG3A

WORDS:

RXBUFT:

RT!

JMP
O

3
PAGE 36

SEQ 0036

;DISABLE INTERRUPT
;IS TRANSMITTER A(TIVE
JEXIT

0
O

cHRARNARA
A kR

:FRG4=SPECIAL MESSAGE TRANSMIT ONLY THIS PROGRAM TRANSMITS
TRRRANRN NN

'MESSAGE SPIRAL PATTERN
007552
007554
007556
007562
007566
007574
007502

007612
007616

007620
007622
007626

007630
007634
007636
007644
007646
007652
007656
007662
007666
007670
007672
007676
007700
007706
007712
007714
007720
007722
007726
007730

PRG4 :

104000

013477
004537
004737
052777
012737
012703
004537
004737
010302
110201
120127

001003
012702
000771

032737

001402
004737
004537
010177
105777
100375
005202

005337
001350
012737
004737
005203
120327
001336
012703
000733

004072
004460
000004
000110
000040
005020
007732

171404
007730
PRG4A:

PRG4B:

PRG4C:

V00136
000040

000100

001374

PRG4D:

003656
005020
171324
171316

P4TIT

007730

5,LINSEL
7 ,SETPAR
#B1T2,3RXCSR
#72.,COLMN
#40,23

JSR

7, TCRLF

JSR

000040

COMN:

5.LINCON

sTITLE

;GO SET PARAMETERS
;SET REQUEST TO SEND
sJINIT PAGE WIDTH

JSET LINE START CHAR
;60 MAKE LINE

007732
007740
007744
007746
007754
007760

12777
05777
100375
112777
105777
100375

000015

171246

000012
171224

171232

171240

TCRLF:

CONNECTION

MOV

13.%2

;GET FIRST CHARACTER

cMPB
BNE
MOV
BR

X1.4136
PRG4D
#40,%2
PRG4(

; TERMINATOR CHARA(CTER
JRESEND MESSAGE

JSR
JSR

7.GENFAR
5. LINCON

MOVB

BIT
BEQ

2.1

#81T6,SRY
. +6

vi.arxBur
.4

.GET CHARACTER

JPARITY ENABLED

:GENERATF PARITY
sCHECK LINE CONNECTION

MOV
TSTB
BPL

@TXCSR

DEC

COLMN

SALL COLUMNS PRINTED?

:UPDATE LINE START CHAR

PRG4A
#40,%3
PRG4B

‘NO
*YES, RESET
“GET NEXT CHARACTER.

BNE
MOV
JSR

PRG4C
#72..COLMN
7. TCALF

(P8

23,4136

INC

000136

; TYPE PROGRAM

JSR
JSR
BIS
MOV
MoV

INC

007730

000110
007732

TYPE

BNE
MOV
B8R
O

*L0AD BUFFER
"AND WAIT FOR CHARACTER
STO BE TRANSMITTED
*SET FOR NEXT CHAR

*NO, GET NEXT CHAR
*RESET COLUMN COUNTER
TLAST IN SET

JSEND CR LF
b

NNN NN NN
Om\ngm%wm—-

D e
)
d —d ad
—

NNNNN

d ned md

1724
1725

MACY11

MOVB
TSTR

#15.aTXBUF
BTXCSR

Mov8

#12,aTXBUF

BPL

TSTB

.~6

aTXCSR

;SEND CR.LF

(ZDLBCO DL11~E ON LINE TSET

(20LBC.P1T

1780

1781

007762

19=-JUL=-79 15:06

MACY11 30A(1052)

000207

RTS

IRRRRARANRE

1782

007774
007776

104000
013546
004537
000005
004737

1790

010010

104000

1792

1793
1794
1795

007764
007766

007770

010002

052777

010012

014020

C10016
010022
010030

005777
032777
001003

010014

1796
1797

010032
010034

1799

010040

1798

000000

004072
004460

000006

171160
020000

014176
005037

1803
1804
1805

010054
010056
010062

112201
020127
001440

012702

014252

032737

000100

1808

010074

004727

003656

1810

1811
1812
1813

1814
1815

1816

1817
1818

1819
1820
1821
1822
1823
1824
1825
1826
1827

1828
1829

]'g%)

010100

010106
010110
010114

010120

001402

032777

001751

010177
005777
100001

020000

SEQ 0037

104003
105777

171050

010132
010136

117703
043701

177044
001362

010130

010142
010144
010146
010150
010154
010160
010162
010164
010166

010170
010172

100375

120103
001403

104003

005237
105777
100375

010214

010231

010210

012700

aRXBUF
#BI1T13,aRXCSR
PRG5B

PRG5SA

TYPE
LINCHM

TYPE

L INMAD
CLR

ERRCNT

JWAIT FOR USER TO MAKE LINE

JREAD BUFFER
;TEST FOR CLEAR TO SEND

CONNECTION

:TYPE ERROR MESSAGE

JAND TRY AGAIN

#81T6,SRT

JWAS PARITY OPTION SELECTED?

7 ,GENPAR

;GENERATE PARITY ON CHAR.

MOVB
e
BEQ
BEQ

JSR

;BRANCH IF NO PARITY DESIRED

1,aTXBUF
SRXBUF

ERROR
TS78

aRXCSR

;ERROR! SOME ERROR FLAG IS SET
JWAIT FOR THE RECEIVER TC RECEIVE

MOVB
8I1¢

@RXBUF .13
CARMSK , X1

JSAVE IT IN R3
;CLEAR NON- TRANSMITTED BITS

ERROR

INC
TSTB
8PL

TYPE
ENDPAS

BR
ERRCNT: OPEN

PRG5AA
.44
.4

21,23
PRG5D

ERRCNT
aTXCSR
=4

;CHECK CLEAR TO SEND

IN R1

MOV
TST

M8
BEQ

PRG5SE:

.+6

;GET A CHARACTER
JWAS IT THE TERMINATOR?

MIT13,3RXCSR

BEQ

PRGSD:

(2)+,%1
X1,4'%
PRGSE

B1T

8PL

010172
171024

;TYPE MESSAGE TO MAKE

JLINE CONNECTION

TST
B8IT
BNE

8PL

000727
000000

1835

MAKCON

;SET DTR RO TO SND

8IiT

171077

104000
014117

012737
012737

TYPE

7,SETPAR

#6,aRXCSR

;GET BASE ADDRESS OF DATA 70 BE TRANSMITTED

001374

000734

010174
010202

8IS

5.LINSEL

#PRG2M, X2

171072
171062

010122
010126

1832
1833

1834

PAGE 37

PRGSBR: MOV
PRGSC:

000045

010064

1809

171150

010172

1806

TYPE
PSTIT
JSR
RESET
JSR

HALT

PRGSB:

(10042
010044

010072

PRGSA:

104000

1800
1801

1807

171170

PRGSAA:

000764

010050

PRGS:

104000
014146

010036

1802

JRRRRNRERRY

17846
1785
1786
1787
1788

1791

15:1C

. PROGRAM 5

1783

1789

19-JuL=-79

;TYPE ERROR MSG. IF NOT SET
;TRANSMIT THE CHARACTER
;ANY ERROR FLAGS?

;BRANCH IF NG ERROR FLAGS

;THE TRANSMITTED CHARACTER

;WAS RECEIVED & TRANSMITTED DATA THE SAME

;ERROR! DATA ERROR
JWAIT FOR TRANSMITTER TO FINISH

PRG5C

PRG588

:éHIpSnROUUNE MOVES THE CONTENTS OF R2 TO THE ADDRESS SPECIFIED

000006
000002

000037

000004
000006

.8Y

MOVIT:

MOV
MOV

MOV

MOVITA: MOV

#6,4
#2,6

#31.,%0

X2.a(1)¢

;SET UP FOR RETURN

;GET COUNTER

JMOVE

THE DATA

(ZDLBCO DL11-E ON LINE TSET
19-JUL=-79 15:06
czoLBC P11
1836
1837
1838
1839
1840

PRRRRRRE

00 NN
NN —

005300
001375
012737
012737
000205

1849

MACY11

30A(1052)

M
19-JUL-79

DEC

004576
000040

011606
011120
000010
000037
000001

010266
010272
010274
010276
010300
010302

012701
012702
012703
012704
032712
001002
010172
060301
005722
005304
001367
000207

010304
010310
010314
010320
010324
010330
010332
010334
010340
010342
010344
010346
010350

012701
012702
012703
012704
032712
001003
011200
010160
060301
005722
005304
001366
000207

012176
011120
000010
000037
000001

010352
010356
010362
010366
010372
010374
010376
010402
010404
010406
010410

012701
012702
012703
032711
001003
011104
010264
005721
005303
001367
000207

011120
000340
000037
000001

000000

000004
000006

MOVITA

MOV
RTS

#40 ,MACHER+2
5

MOV

#ERTP ,MACHER

SEQ 0038

JALL DATA MOVED?
sNO.

RETURN

JRETURN

;SUBROUTINE TO LOAD ALL VECTORS
#RISRO.%1
LDVECS: MOV
MOV
W#VECTAB,
X2
MoV

#10,23

MoV
LDVECB: BIT
BNE
MOV
LDVECT: ADD

#31.,%4
#110,(2)
LDVEC]
X1,a(2)
3.0

LDTVEC: MOV
MOV
MOV
MOV

#TISRO,%1
WNVECTAB,
X2
410,23
#31.,%

LDTVED: BIT
BNE

MOV
MOV

LDVECZ2: ADD
TSTY
DEC
BNE

RTS

000002

3
PAGE

BNE

TST
DEC
BNE
RTS

000004

15:10

;DOES THIS VECTOR EXIST
:NO, SKIP LOADING
.LOAD VECTOR

(2)+
X4
LDVECB
7

#38110,(2)
LDVECZ2
(2),%0
21,400

;DOES THIS VECTOR EXIST
;NO, SKIP LOADING

13.01
(2)+

%
LDTVED

"ROUTINE TO LOAD PRIORITY LEVEL 7 IN VECTOR +2

{DPRI:

MOV

#VECTAB, X1

LDPRIA: BIT

#1710, D

MOV
MOV

BNE
MOV

LDPRIX:

MOV
TST

DEC

BNE
RTS

;GET BASE WVECTOR

#340,%2
#31..%3

‘GET LEVEL 7
*LOAD COUNTER

LDPRIX
(1),

:NO SKIP" LOADING
*LOAD VECTOR +2

X2,2(4)
13+

LDPRIA
7

;DOES THIS VECTOR EXIST

:POINT TO NEXT VECTOR

*DECREMENT COUNTER

:'i*tl’i‘l‘tt

JCHECK SWITCH REGISTER ROUTINE.
CHECKS FOR “G TO ALLOW CHANGING
JOF LOC 176. ROUTINE 1S ENTERED AT CNTLU FOR START UP PURPOSES.

JWHEN A “G IS GIVEN, THE PROGRAM ENTERS AT (KSWR.
THE PROGRAM
;GETS CONTENTS OF SOFT. SWITCH REG., TYPES IT OUT, AND THEN SEEKS

CZDLBCO DL11-E ON LINE TSET

CZ0LBC P11

19-JUL=79 15:06

MACY11

19-4UL-79

30A(105¢)

15:10

PAGE

SEQ 0039 |

;NEW DATA FROM OPERATOR.
ONCE DATA IS SUPPLIED, IT INSERTS THIS
;DATA INTO THE SOFT. SWITCH REG. AND RESUMES OPERATION IN THE
INCORRECT ENTRIES (SUCH AS 8,9,LETTERS) ARE DELETFD
‘MAIN PROGRAM.
*AND THE PROCESS RESTARTED.

TYPING *U ALLOWS

YO BE DELETED AND THE PROCESS RESTARTED.

THE

PRESENT ENTRY

:'Qtttitittt

PON) b

0000V
OV VOO0

b b d et et wcd d wd ek

=SOVONOWVNEWN
O

SREREREEERERE
R CEERE

1900

022737
001133
105777
100130
017737
042737
022737
001116
104000
015455
005077
104000

015463
017746
004737
022600

000176

000170

CHGC4:
CKSWR:

170572

170566
177600
000007

MOV

001430
001430
001430

BIC
CMP

BNE

TYPE

170542

CNTLU:

167474
010730

105777
100375
117737
105777
100375
113777

042737
122737
001001
000736
122737
001006
104000
015510
022737
001033
122737
003004
122737
002003

TYPE

001426
000007
170474

001416

170470
170464

001430

001430
177600
000025

170456
001430
001430

000015

001430

NEW
CLR

1%:

8$:

3%
2% :

000007

001416

000060

001430

000067

001430

4%:

5%:

001426

6%:

#SWREG,SRPTR
ouT
aTKS
ouT

aTKB,TIB

#177600.T18
#7.TIB
ourt

aTPB

,
- (SP)
aSRPTR
PC.TYPOC
(SP)+.RO

MoV

TEMPST
#7.,COUNT1

BPL

TSTB

aTkS

CMPB

BGT
CMPB
BGE
TYPE

QUEST

B8R

ASL

JALLOW SWR

TO BE TYPED

MOV CONTENTS OF

SWR

;OCTAL TYPE OUT ROUTINE
;CORRECT STACK POINTER
JALLOW NEW= TO BE TYPED
;CLEAR TEMP STORAGE LOC

;SET UP TO ACCEPT 7 CHAR
:1S CHARACTER THERE?
;IF NOT, TRY AGAIN

;WAS <CR> FIRST CHAR
s CHANGE SWREG IF NOT FIRST <CR>

5¢
#67.TIB
6$

;GO TO ? ROUTINE IfF SO

3¢

;START INPUT STRING OVER
IMULTIPLY BY TEN

#177600,718

SCRLF
cTMP
BNE

;ECHO *G

#7,COUNT1
7

BIC

(MPB
BNE
BR
(M8
BNE

SW REG PRES?

;NO, GET OUT
JYES, IS CHARACTER READY?
;JIF NOT, GET OUT
;STORE BUFFER
:STRIP OFF GARBAGE
IS IT A %G
JIF NOT GET QuUT

#25.TI8
2
CNTLU
#15,TIB
43

aTkB.TIB

TSTB
8PL
MOVB

;SOF TWARE

;PICKUP CHARACTER
JCHECK PRINTER STATUS
;NOT READY, TRY AGAIN
JPRINT IT
;STRIP OFF GARBAGE
JIS IT AU
;BRANCH IF NOT
;START OVER
JIS IT A <CR>
;BRANCH IF NOT

MOVB

TYPE

104000

015503
000752
006337

CNTG
CLR
TYPE
SWR

MOV
JSR
P

104000

015473
005037
012737

CMP

BNE
TSTB
BPL

QTIPS
8s
TIB,alPs

#60.TIB

TEMPST

;TYPEOUT <CKR> AND <LF>

;1S IT LESS THAN 0

;1S IT GREATER THAN 7
;GO TO ? ROUTINE IS SO
JSET UP FOR ? TYPEOQUT

(Z0LBCO DL11-E ON LINE TSET
19-JUL=-79 15:06
€Z0LBC P

001426
001426
000060
001430
001416

010646
010652
010656
010664
010672
010676
010700
010702
010710

001426

010712
010714
010716
010722
010724
10726

7%:
QuT:

000001
000006
000005

001422
001425
001420

=2 —d o

OONSrNUO

A =

Foonn

SIRRR
—=0O0

MOV

RO,-(SP)

MoV
JSR
MoV
MOV

MOVB

000060
170144

003345

5%:

170140
170132

8%:

001420

7%:

#6.R4
R4 ,MODE

BR
ROL
ROL
ROL
MOV
ROL
DE(B
BPL

3$
RS
RS
RS
RS.R3
R3
MODE
7%

BNE

8177770,R3
R4

BEQ
INC
BIS

5%
Ré
#60,R3

8PL
Mov8

5%
R3,aTPB

1S18

BPL

DECB

86T

;SAVE RO AND R1

JSET THE Z2ERO FILL SWITCH

+1
#6 ,MODE

FILLT R4
10(SP) RS
R3
RS

TSTB

JINTERRUPT SERVICE ROUTINE

;GO TO SUBR TO SERVICE
JRESTORE R1 AND RO

MOvVB
MoV
CLR
ROL

TST

JIF = 7 TOO MANY NUMBERS
JGET NEXT (HAR
;CHANGE SWR CONTENTS

R1,-(SP)
PC,CKSWR
(SP)
+ ,R1
(SP)+,R0

R3,-(SP)
R4 ,-(SP)
R5,=(SP)
MODE +1.,R4
R4

81C

4%:

QSRPTR

MOV
MoV
MOV
MovB
NEG
ADD
MOvB

R
R
I
R
R
PN P
B
N R
e

JRETURN TO PROGRAM

TEMPST,

#5,CNT

177770

R
S
e R
P

MOVB

3%:

SEQ 0040

RTS

MOV

TYPON:

2%:

DE(
BEQ
BR

M FILLY

1%:

4
PAGE

:CLEAR OF ASCII
:MOV CHAR TO TEMPST
JONLY WANT 6 NUMBERS AND <(R>

MOvVB

000006
001424
001422
000010

TEMPST
TEMPST

TYPOC:

001425

001424

15:10

#60,718
TIB, TEMPST
COUNT
5%
1%

BICB
BISB

RT1

Y
T
I
PP

001430
001426

167260

19-4UL-7S
ASL
ASL

010412

010744
010752
010754
010756
010760
010764

30A(105¢)

TTINTS:

010730
010736

[alelelelelalalelalelolololelalolelolalololele]

MACY11

alPS

CNT

TTY INTERRUPT

JRETURN FROM INTERRUPT

JSET FOR SIX (6) DIGITS
JSET THE ITERATION (OUNT
;SAVE R3

;SAVE Ré

;SAVE RS

:GET THE NUMBER OF DIGITS TO TYPE

;SUBTRACT IT FOR MAX. ALLOWED
;SAVE IT FOR USE
sGET THE ZERO FILL SWITCH
;PICKUP THE INPUT NUMBER
;CLEAR THE OUTPUT WORD

;ROTATE MSB INTO °C**
;G0 DO Ms8

;FORM THIS DIGIT

JGET LSB OF THIS DIGIT

;TYPE

THIS DIGIT?

JBR IF NO
JGET RID OF JUNK

JTEST FOR 0
;SUPPRESS THIS O
;JBR IF YES
;DON'T SUPPRESS ANYMORE Q'S
JMAKE THIS DIGIT ASCII
;1S PRINTER READY FOR CHARACTER?

;IF NOT, TRY AGAIN
;TYPE OUT NUMBER

;MAKE SURE LAST DIGIT TYPES

;COUNT BY 1

;BR If MORE 10 DO

(ZDLBCO DL11~-E ON LINE

011102
011104
011106
011110
011112
011114
011116

011120
011122
011124
011126
011130
011132
011134
011136
011140
011142
011144
011146
011150
011152
011154
011156
011160
011162
011164
011166
011170
011172
011174
011176
011200
011202
011204
011206
011210
011212
011214

011216

30A(105¢)

6%:

19-JUL-79

BLT
INC

6%
R4

MOV
MOV

(SP)+_R4
(SP)+ ,R3

B8R
MOV
RTS

2%
(SP)+,RS

PAGE 41

SEQ 0041

;BR IF DONE
s INSURE LAST DIGI T ISN'T A BLANK
;GO DO THE LAST D 16 17
JRESTORE R5
JRESTORE R4
JRESTORE R3
JRETURN FROM [NTERRUPT PC

:itfl.tfit*tl

000301
000311
000321
000331
000341
000351
000361
000371
000401
000411
000421
0004317
000441
000451
000461
000471
000501
000511

;VECTOR ASSIGNMENT TABLE

VECTAB:

321
331
341
351
361

371
401

411
421

431

441
451
461
471

501
511

000521
000537
000541
000551
000561
000571
000601
000611
000621
000631
000641
000651
000661

000000
000000
000037

301
3

000000
000900
000037

22 VECTOR
23 VECTOR
24 VECTOR

25
26
27
30
31
32
33
34
35

561
571
601
611

621
631
641
651
661

:DL1I-E REGISTER ADDRESSES
RCSR:

N=0
A=0

.REPY

RRCV

:
RBUF

A-A+l
.ENDR
N=0
A=0
-REPT
RBUFF
=N+10
A-A+]

VECTOR
VECTOR
VECTOR
VECTOR
VECTOR
VECTOR
VECTOR
VECTOR
VECTOR
VECTOR
VECTOR
VECTOR
VECTOR
VECTOR
VECTOR
VECTOR
VECTOR

21 VECTOR

521
531
541
551

N=N+10

0'1314

15:10

ONOWVIH WO

2004
2005
2006
2007
2008
2009
2010
201
2012
2013
2014
2015
2016
2017
2018
2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029
2030
2031
2032
2033
2034
2035
2036
2037
2038
2039
2040
2041
2042
2043
2044
2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
2055
2056
2057
2058
2059

19-JUL-79 15:06

MACY11

PTGSENEraras
LNT, V. F NV .V
)

rI0LBC.P11

TSET

31.

\N,\A

31.

\NLAA

VECTGR
VECTOR
VECTOR

VECTOR
VECTOR
VECTOR
VECTOR
VECTOR
VECTOR

36 VECTOR

(ZOLBCO DLV1-E ON LINE TSEY
19-JUL=79 15:06
C2DLBC.P11

2060
2061
2062
2063
2064
2065
2066
2067
2068
2069

011412

011510

38 ~
) nd ol =

000000
000000

000037

.ENDR
N=(
A=0
.REPT
TXMT

15:10

&
PAGE &2

SEQ 0047

INC\A

21.

:
TBUF

\N,\A

000000
000037

31.

000000
000040

32.

;MESSAGES

041445
030103
026461
046040
042524
045
043117
041511
042522
045
045
020040
020122
051124
022524
040

042132
042040
020105
067111
052123
040515
042040
051505
042523

041114
030514
047117
020105
045
020120

044514
026504
020040
050101

042516
042101
020040
040440

020040

ML INE:

LASCH]

040
020040

020040
020040
020040
100
047516
052517

020040
040
020040

:
MDADR

LASCIY

MTRAP:

LASCII

042516
042116

:
MNONE

LASCI]

*XNONE FOUNDZA'

050131
050040
046501
042502
040040
051122

020105
047522
047040
020122

MSWSE..:

LASCI]

'XTYPE

051117

MTERR:

LASCII

'XERROR - UNEXPECTED TRAP'

040

012742
012745
012752

W —=O
N

— e

TCSR:

19-JUL=79

A=A+1

012730
012735

—a—a.—a—a_.n..a—l.—aa

000000
000000
000037

30A(1052)

N=N+10

012576
012604
012612
012620
012626
012633
012640
012646
012654
012662
012663
012670
012676
012704
012712
012715
012722
012723

ASLASTLS LTINS 181,148}

MACY11

042445

100

MTITLE:

053105
050040
052116

LASCII

'%CZDLBCO DL11-E ON LINE

TESTZ®

LASCII

'XMAP OF

DEVICES PRESENTX®

LASCII

*XLINE

D-ADR

TRAP ATXa'

zal

IN PROGRAM NUMBER

d e
—

mmbwwwm—a—'g

kb
d md
D
D md
d
D
d
kb ed e

WA N LA N AN O NN N NN AN N
o} d oh D B b b b
[
ey — b d
ON ~
WO n
[e Yo T NIV P e N NIV, F 3

[elelslelelolalololalelolololele)

b
D
D
h =D e
d
d
b
D
d
e
— e

W
~N

026440
050130
020104
052045
042105
040
040
020040
045
042520
046517
040
040

020040
020040

100
045
020105
051040

043045
044440
046515

050745
040
020040
020040
020122
020040
100
040
051123
040
040040
022445
026440
046107

051101
020105
052040
022445
026440
020103
047503
044514
042117
052123
045
020062
041505
042515
020105
046440
042524
045
020063
042503

MACY?T

052440
041505
051124
040522
052040

042516
042524
050101
050120
020117

020040

30A(105¢/

MTO:

19-JUL=79

15:10

4
PAGE 43

LASCII

‘XTRAPPED

LASCII

'XTRAPPED FROM PC

040
051124
020104
050040

050101
051106
020103

020040

020049

MFROM:

.AS(CII

020040

CSRADD:

.ASCII

040506
047111
053103
046101
052116
0460124
036503
020040
040040
054124
020075
020040

051514
027124
040122
042523
054040

RINTM:

_ASCII

"XFALSE

INT.

TINTM:

_ASCII

"XFALSE

INT XxITa'

040040
020040

020040

040

SEQ 0043

]

RCVR®'

051503

ATXCSR:

.ASCII

020040

ATXWAS:

.ASCII

051040
036440
020040

041530

ARXCSR:

.ASCII

ARXWAS:

_ASCII

051120
051440
020105
046040
047515
051505
051120
051440
044502
047125
042516
020105

030107
047111
044103
047111
042504
040124
030507
042520
020116
020124
046440
042524

POTIT:

L.ASCIlI

"YIPRGO - SINGLE CHAR LINE MODE

P1TIT:

LASCII

'XXPRG1

050045
020055
040511

043522

P2TIT:

ASCII

'X%PRGZ - SPECIAL MESSAGE LINE MODE

P3TIT:

ASC!I

"%XPRG3 - RECEIVE MESSAGE TESTa'

100

051523
044514
042117
052123
050045
020055
053111

040
020040

050123
020114
043501
042516
020105
100

043522
042522
020105

TXCSR =
.

RXCSR =
3

TEST@'

- SPEC BIN COUNT LINE MODE

013024
013032

gwguwuumwmmmmmmwm
NN =2 OO0 NN
NN 2O —
V00 N o

b —

ACIANT S LN T N1 N [N 1,01, N1,V 1,8 T,V N, VY. VY, 91 VT ST U, VY. V)[a¥]

(ZDLBCO DLIT-E ON LINE TSET
(70LBC. P
19-JUL=79 15:06

TESTa'

3y
SR

)

N
N

— ——t e

- ol

\G
&

13562

g o

RN 28BEIRRRRTX

b aed od o

ANIASIAS T U IAVIAC1aN 1U1 AT AN T VA Y V1 VT, V1,8 1,01 VT, ¥

13542

2195

014120
014121

MACY1T

30A105¢)

19-JJL=79

15:10

PAGE 44

SEQ 0044

062515
020105

051523
042524

043501
052123

045
020064
041505

052045
020055
040511
051523
042524
050123
040051
043522

043522
050123
020114
043501
052123
0511

PLT]IT:

LASCII

'%%PRG4 ~ SPECIAL MESSAGE

040504
044103

PSTIT:

LASCII

*%XPRGS - DATA ECHO TEST USING MAYNARD FACILITYa'

052123
043516

020065
040524
020117

040516
041501
040131
050131
050040
052105
051501
047514

052440
046440
042122
046111

020105
051101
051105
043040
051527

SELPAR:

LASCII

'XTYPE

LASCIE

‘XBIT1-0 = CHAR LENGTHZa'

100

D o —_

jelelololelololelolelslolololols]
o
—

(ZDLBCO DL11~E ON LINE TSET
(Z0LBC.P11
19-JUL=-79 15:06

042515
020105

024040
046101
050045
020055
042440
042524
044523
05450
043040
052111
052045
047111
046501
020123
046117
072
045
030055
040510
043516
052045
042524
040510
042504
044502
052111
0460440
040524
042524
100
045
040507
040524
046445
044514
047117
047511
040
051440
020040
051501
020040
040510
020056
020040
607
100
045

044502
036440
020122
044124
050131

030524
041440
042514
040045

SELCAR:

LASCII

*XTYPE

042514
040504

DTERR:

LASCI

"RILLEGAL DATAZa'

045501
042516
042516
027116
040504
041057
020040
020072
020040
020122

020105
041440
052103

MAKCON:

LASCHT

'IMAKE LINE CONNECTION.Q'

040524
020072
053440

CERDAT:

LASCI]

* DATA S/B:

{SR:

LASCIHI

WAS:

041440
047516

CWAS:

LASCII

CHAR NO.

020040

100

CRNUM:
ENDPAS:

LASCII
.BYTE
LASCII
LASCII

052123

046111
020114
040045

040077

100

AINPRCG:

(SPIRAL)Q'

IN PARAMETERS AS FOLLOWS:'

020105
041440
047503
020116
041055
043117
041517
056502
020040

020122
044440
033524
020060
020116
020114
020040

TEST

TEST CHAR CODE

)

IN BIT7-BITO OF AN OCTAL BYTE

Z0LBCO DL11-E ON LINE TSET

H
n

d ed od

F o ¥ o o o O3 o

—

SNV N

19~JUL~79 15:06

—

nONNININY

d
b
—

WO
—‘?
nMWVON)

D ed md e D

014240
014246

042101
045
043511
04751
020040

D s

176

014252
014254
014262
014270
014276
014304
014312
014320
014326
014334
014336
014344
014352
014353
014360
014366
014371
014376
014404
014412
014420
014426

014433

047503
044524

015
044124
041511
053517
020130
042105
020122
040514

043517
045503
030040
033065
045

045
043040
022504
045
052522
040522
051117
052111
047522

014440

2270
2271
2272
2273
2274
2275
2276
2277
2278
2279

014443
014450
014456
016463
014470
014473
014500
014506
014510
014516
014524

2281
2282
2283

014546
014554

2269

050045
052105
020075

020040
041440
052040
042116
051440
046045

H PR AR aF aF

WNANAN

LERR W) —

WINW

ASIASIAS
IS, V1, N1 N ]
[AS1aV 1,V 1N T,81,¥7,¥)

2228
2229
2230

00000000000
OO

rZDLB( P11

051101
051105
040040
042514
020117
047040
052105
047111
047116
047117
027105
047503
051125
020116
040040
012
020105
020113
020116

046501
020123

PARMTS:

19-JUL=-79

LASC]]

ACONF 1G:

020043

TCONF1G:

PRGZ2M:

PAGE 45

'YPARAMETERS ]

LINMAD:

15:10

SEQ 0045 ;

C(LEAR TO SEND NOT SET.a'

'XLINE

CONNECTION MADE.a'

LASCIT

"XCONFIGURATION # °

LASCIT

.EVEN
.BYTE
LASCII

015,012

LASCII

054532
020123

031061
034067

032063
027071

044514
044501
100
053117
026116

042516

LFAIL:

LASCII

'XLINE FAILEDXD'

051105
043040
020054
051101
051105

ROVER:

LASCII

'XOVERRUN, FRAME, OR PARITY FRRORXa'

042516

AL INEX:

LASCHI

'ALINE # '

040527
042514

TLINEX:

LASCLH]

044514
040
020040

042516

AL INE :

LASCII

'ZLINE & *

040503

040527
046114

TUINE:

LASCII

050131
047440
020072
043511
047511
041040
020061

020105
052103
047503
051125
020716
052111
020046

LASCII

"XTYPE IN OCTAL: CONFIGURAT{ON IN BITO-1 & MODEM YYPE'®

052512
047440

044124

042515
050040
020131
022522
044514
042523
042105

026460

30A(1052)

052521
051102
047506
050115
042526
020105
042040
040502

040
020040

014532
014540

MACY?1

042514

100

‘THE

QUICK BROWN FOX

JUMPED OVER

THE

LAZY DOGS BALK'®

0123456789.%"'

WAS SELECTEDA®

WAS CALLED'

r—

(ZDLBCO DL11-E ON LINE

rIDLB(.P11

2284
2285
2286
2287
2288
2289
2290
2291

2292

2293
2294
2295
2296
2297
2298
2299
2300
2301
2302
2303
2304
2305
2306
2307
2308
2309
2310
2311
2312
2313
2314
2315
2316
2317
2318
2319
2320
2321
2322
2323
2324
2325
2326
2327
2328
2329
2330
2331
2332
2333
2334
2335

2336
2337
2338
2339

047515
054524
044445
031126
030475
036461
020040
100

014640
014646
014654
014662
014670
014676
014704
014712
014720
014726
014730
014736
014744
014752
014760
014763
014770
014776
015004
015012
015020
015024
015032
015040
015046
015054
015062
015070
015073
015100
015106
015114
015122
015130
015131
015136
015144
015152
015153
015160
015166
015174
015202

044440
040524
041040
020064
044514
054440
042522
0445146
047522
040040
054445
046101
051106
047111
020040
045
020123
0410640
020116
052101
047117
052045
0644514
027117
041517
047111
031440
020040
045
042526
051106
053517
044501
100
045
040507
042516
100
045
040507
044526
042104
100

015216
015224

044440
040524
044502

015203
015210

MACY!" 30AC105.)

042504
062520
020116
020040
031460
030062
0200640

020115
044502
030050
020054
026462
020040

054524

19-JUL=79 15:06

014562
014570
01457«
01464602
014610
014616
014624
014632

014633

TSET

045

19-JUL=79

15:10

LASCIT

'%IN BIT2

PAGE 46

(0=103, 1=202)

StQ 004

a’

020116
020114
052111
044124
042516
052517
041440
043516
020115

042520

041517
047111
026460
020105
02144C
040440
046'01
143040
020040

WRU:

LASCIT

'XTYPE IN OCTAL IN BITO~4 THE LINE # YOU ARE TALLING FROM

052517
042514
046517
020105
100
051120
040504
052125
047117
020101
040105
050131
042516
064440
040524
041040
033455
100
042522
042522
046517
051105
052514

041440
020104
0D4L6040
020043

UR:

LASCJT

"4YOU CALLED FROM LINE # °

URA:
BUTTON:

JASCIT
.ASCIiI

Y
@t
‘*XPRESS DATA BUTTON ON DATA PHONER'

020105
047040
020116
020114
052111
020040

LDLINE:

.ASCII

*XTYPE LINE NO.

047503
020104
050040
043040
042522

MPWRF:

_AST]]

*¥RECOVERED FROM POWER FAILUREQG"

046711
020114
047040

042514
044514
027117

MMODX:

ASCII

'XILLEGAL LINE NG.a'

046111
020114
042503
042522

042514
042504
040440
051523

TMMMODD:

,ASCII

‘'XILLEGAL DEVICE ADDRESSa'

054524
020116

042520
041517

TMMMOD1:

ASCII

'XTYPE

020114
020124

051505
040524
047524
062040
044120

020072
026460

IN OCTAL IN BIT 3-7

IN QCTAL : BIT 0-5 THE LINE NUMBER OF DEVICE ADDRESS 10 Bt®

RO OWO

NN
wwr
WwWWWSN
NN =2 2O

s JJo 1,V

b ——d
ad —d
D

A WAL

d
e
e

—

(ol lololelelalelelelalels]

SANNNL200 [0 JaNTo RV, P XVIT

TS TNT,V1,87,¥]
A AS1AVTaS
\fixnudfi\n&: RERRRPRRR ¥

(70LBCO DL11-E ON LINE TSET
19~-JUL=-79 15:06
(ZDLBC PN

015367
015374
015402
015410
015416
015424

015431
015436
015444

015452
015455
015462
015463
015470
015473
015500
015503
015510

MACYT1

30A(105¢)

10-JuL-79

15:10

044124

047524
040
044506
020040
045
044440
020127
020122
042503
042522
020040
045
044440
033467
047524
043516
052117
040
042503
042522
020040

041040
047515
042105
100
054524
02011
054122
042504
040440
051523
100
054524
020116
033467
041440
020105
042510
042504
040440
051523
100

040

057040

020107

CNTG:

LASCII

%G a/

051440
100
047040
160
037440

051127

SWR:

ASCII

SWR= @/

053505

NEW:

LASCIT

NEW- @/

040040

QUEST:

.ASCII

7 &/

020075
040
020075
040
0460045

105
044504
020040

LASCII

' MODIFIED

017462

000000
017462
000000

021432

000001

021432
015656

SEQ 0047

042520
042516
051503
044526
042104
020040

MMODZ2:

LASC]!

'XTYPE

IN NEW RXCSR DEVICE ADDRESS

042520
033461
020040
040510
047101

MMOD3:

LASCII1

‘XTYPE

IN 177777

LASCI1

122

044526
042104
020040
sannanex

SCRLF:

(HGLS

.ASCIl

DEVICE ADDRESS

wewwnn

/%a/

JRNRARRNEARNCENANCRARR

015512

PAGE &~

020105
047040
020122
053105
042101
020123

020065

100
040

.EVEN
OUTBUF: OPEN

INBUF:
DEND :

. =0UTBUF +1000.
OPEN

.= INBUF +1000.
BUF F =OUTBUF +100.
.END

TO CHANGE

ANCTHER®

p—

CNVCTR
(OLMN

004432
007730

20554

20614

20624

20684

20694

1247

1251

"847

1860

1874

1317

1444

1479

1496

1794

1809

1368
1806

410

1457

1530

1420
1365

1528

23824

1246%

1249+

1253+

1818

1120
754
1714
1109

1557
1373
1359+

694H

23084

1440

6874
915
5414

1113

6134

1743+

8904

1962

1971«

2002+

19154
1206+
1761+

1933
12254
1763+

23684

1420+

14631

1391
1471+
1109

6964
6954

785
1203~

2C754

2139

962
1422
1414
1628

11864
1360

660

SEQ 004r

~ —

5254
524
5154
5144
5134
512#
511#
509
523#
522#
5214
520#
5194
1673
518#
5174
5164
11904

19044
705#
1913

PAGE 49

TABLE == USER SYMBOLS

—

) s
—
b

2227#
2272#
22674
22314
967

12044
1209+
1200+
1201=

19034
782#4

11424
12284
1136

000200
000400
001000
004262
004252
015656
001400
014763
001404
001402
001362
014047
104005
000232
010412
002004
002444
010412
001420
075455
010464

2054n

15:70

BIT7 =
BIT8
BITS
BMOVA
BMOVE
BUFF_
BUFFP
BUTTON
CALLED
CALLER
CARMSK
CERDAT
CHALT =
(HGC2
CHGC4
CHGC6
CHLT
CKSWR
CNT
CNTG
CNTLU

20484
22404

19-JuL=79

CROSS REFERENCE

WO
N

004274
004326
004360
004362
004364
000001
000002
002000
004000
010000
020000
040000
100000
000004
000010
000020
000040
000100

30A(105¢)

BOCNV
BOCNVA
BDCNVB
BDCNVC
BOCNVD
=
BITO
BIT1
=
BIT10 =
BIT11 =
BIT12 BIT13
BIT14 BIT15 =
BIT2
=
BIT3 BIT4
BITS
B1T6

MACY11

—

014433

014142
013203
013235
013247
013214
013226

—‘NOO‘L‘H\) Late N2V}
L3

ALINEX

APARM
APC
ARXCSR
ARXWAS
ATXCSR
ATXWAS

076225
004062
004440
004024
014121
014463

= 000037

-—

ACONFI
ADD1
ADTENP
AGAIN
AINPRG
ALINE

19=-2UL=79 15:06
pod ol ol el ol o] NS00~
- Saon
= AN £ NWNOOINO NN
OO0

(Z0LBC.P11

TSET

Fate 1oV}

(ZDLBCO DL11-E ON LINE

17704

1543

1612

1672

(ZDLBCO DL11-E ON LINE TSET
19~JUL=79 15:06
(Z0LBC.P11

CONFIG

CONN
COUNT

COUNT1

CRNUM
CRXTX
CRXTXA
(RXTXB
CRXTXC
cSB
CSRADD
CTRD
CWAS
DATCHK
DCERR
DECVAL
DELAY =
DEND
DIGIT
DISCON
DISPLA
DISPRE
DLCNT
DLY
DLYA
DLYB
DLYC
DOIT
DONE
DTCHK
DTCHKA
DTERR
ECDAT
EHALT =
EHLT
EHLTA
EIGHT
EMTA
EMTINT
EMTTAB

ERR
ERRA
ERRB
ERRC
CRRONT
ERRD
ERRE
ERROR

ERROR1

ERRRX
ERRTX
ERR1

ERR3A
ERR3B

ItHaon

EMO
ENDPAS

001332
006326
001324
001416
014112
003030
003102
003104
003110
014062
013126
001364
014074
104004

005610
004452
104016

674N

1438

6714

704m
912

957
960+
956+
963
907
908

6884

9604
961«
G59=

9694
9704

2224m

9724
22194
909

1455

1485

1522

1534

1053

1117«

1121*

1125+

1129+

1135+«

6417
178+

1426
1181+

21304
1372«

1381~

1382

1400+

14017

1814

1821

1952+

1476

1216%
1424

1219+
1448

1222*
1482

1223
15084

12264

1074
1072#
1081
1078
1082#
1122
11404

10844

1131

11324

904

1062
10414
5444

1110
852#
494
6554
933
1409

658

921
918%
927
1801+
928+
920«

5394
S4L7K
5494

S548#
666
1646
1648

SEQ 0049

1436

1441

622
622*

PAGE 50

1435~

1399

5974
5964
1072+
669
10764
10774
1075
1119
1138
659

CROSS REFERENCE TABLE -~ USER SYMBOLS

1395

663
897

007306
007322

1376
15134
1052*
1938

15:10

1380
1414
12334
1313

002456
002466
003710
002312
002300
001264
013176
014117
002570
002640
002702
002710
010172
002720
002722
104003
104014
002612

1363
1472
1036+
1923«

19=-JguUL=79

2.2

2383

104013
104015

30A(1052)

906
5404
1342
1198
5504

021432
004434
006312
000174
000172
003604
003544
003562
003566
003600
004020
004054
002470
002565
014001
003424
104010

MACY11

1127

9024

9164

22104
1042
937
8964
8994
11164
8454
854
968
1827
9184
9264
919«

9374
1822*
929+
925+
1345
908
1319

1706
9224
16754
16794

972

21384
22254
922+«
18294

931
938
1446

914
1416

923«

924+

9344

9404
9414
1481

964 *

965+

967

1489

1498

1520

1425

1675

1679

1682

(¥ 10,

137

C2DLBCO DL11-E ON L INE Y?
CZDLBC.P11
19-JUL=79
15:06

ERR3C
ERTP
ERTPA

FILL
FILLA
FILLT
FINISH
FIVE
F MAP
FNONE
FORMAD
FROMPC
FTITLE

GENPAR
INBUF
INBUFP
INCPRG
INDAT
INFIL
LDL INE
LDPRI
LDPRIA

LDPRIX
LDTVEC
LOTVED
LDVECB
LDVECS
LDVECT1
LDVECZ2
LFAIL
LINCA
LINCB
LINCF
LINCHM
LINCON
L INE
LINENO
LINEUP
LINMAD
LINSA
LINSEL

MACHER
MAKCON
MANUAL
MAPA
MAPEND
MAPERR
MAPNE
MAPOK
MAPOKA
MAPVEC

MDADR
MFROM
MLINE
MMODD
MMODX

007330
004576
004646

1653
482
12654

001422
005554
003776

7064
1384
1115
6824
6814
751
6794
680#

004224
004232

001350
001346
004762
001342
001344

003656
017462
001376
002432
003400
004220
015024
010352
010366

010402
010304
010324
010260
010240
010272
010340
014353
005036
005054
005134
014146
005020
001330
001354
005152
014176
004134
004072

000004
014020
100000
001534
(01744
001766
001564
001574
001706
004704

012723
013115
012715
015153
015131

11774
11794

11094
1355
6934
653
10354
11764
1147
1562
18744

1875
1563
18604
18474
1564
1848
1861
1676
13054
13094
1318
1320
13024
6734
6844
1304
1325
11574
11464
4844
1308
5094
7304
732
776M
727
737
758
490

744
1271
748
822
814

MACYT1
16824

484

1284
1405
1182
1969+
14034
11284
752*

725+

12924
1264
%
714
1614
1388
1353«

654

1064
1580

23144
1584

1880

18784
1585
1867
1853
1586
18504
18644

19=-JuL~79
15:10
PAGE 51
30A(1052)
(ROSS REFERENCE TABLE =~- USER SYMBOLS
486

488

496

718

778%

845+

SEQ 0050

772

12574

1838

773

1838+

1839+

1979

1283
769+

1288+
774

1270

1281+
724
1808
23804

720
1755
1419
12354«
885#

1355

2381

1389«

1419+

1745

1756

18714
18564

18434

22584
1321
1311
13224
1797
1607

1338+
726+
13264
1453
1160
1604
718«

1570

740
7724

22324
1615
1429
730+

1629
16466+
747

1800

22364

1625
719+
1592

1740
727
1791

771

7384

r41n
7624

12794
21034
21284
768

2331
23274

21014

1468

759

1786
728«

22134

772«

038

(2DLBCO DL11~E ON LINE TSET

(20L8C.P11

MMOD1
MMO02
MMOD3
MNONE

MOOE
MODEM
MODEV

MODEV1
MODEVZ
MODEV3
MOViT
MOVITA
MPWRF

MSWSEL
MTERR
MTITLE

MTO

MTRAP

015203
015321
015367
012745

001424
001412
002102

002114
002150
002174
010174
010214
015073

012762
013016
012576
013063
012735

19-JUL-79 15:06

MACY11 30A(1052)

806
817
841
777
7074
7004

23364
23504
23574
21074

1970+
1349

1975
16433«

8054
812
820
1568
18354
950

815
8164
8244
1590
1837
23214

844
823

610

794
1274

723

1267
765

19=-JUL=79

CROSS REFERENCE

8024

21104
21154
20864
21224
21054

PAGE 52

TABLE == USER SYMBOLS

1989«

20544

2061&

20684

20754

2080#

20854

1179
763

1180«
906

1583~
907

908

931

956

959

967

1087

1171

1241

1259x
598

1260+
633

1261+
635

1262%
645

1263
646

657

670

671

672

673

674

704
969
1227
1536

705
970
1829
1538+

706
980
2378
1541

707
988
2380

708
1015

709
1027

869
1029

870
1084

883
1211

1556

1558

1559

1579«

1581

1638

18324

000040
015473
001334
003606

SS1a
1921
6754
742

OACNVA
OLOPS
OPEN

003620
001336
000000

1092#
6778
5084

1101
1257+«
597

697
884
1212
6974
1905

699
934
1213
1418+
1907

700
940
1225
1532
1911

701
941
1226
1533«
19564

1670
1328¢

23784
1561

2379

2382

1418

1536

1538

1541

6704
1248

1116
12504

1120«
1254

1124«

1128+«

1139

1142

1079
739

1082
1280

951
953

OTBUFP
ouT

OUTBUF

001406
010710
015512

OVRLAY

005154

675

1328

OVRLYA

005164

13304

PARMTS
PFAIL

014124
002724

1242
492

PARBIT
PAREX

001322
004554

POPSP = 005726
POPSP2= 022626

5264
5274

685

1374

1333

22284
944n

PRGID
PRGNUM
PRGTAB
PRGO
PRGOA
PRG1
PRGIC

001242
001240
001244

006502
006612
006616
006714

647
15724
648
15944

798+
800
15494
1573
15774
1595

PRG2A
PRGZB
PRG2C
PRG2M
PRG3

006742
006746
006752
014252
007016

16074
1608¢
1609¢
1608
650

1611
1619
1802
16234

PRG2

PRG3A

006720

007032

646N
6454
647N

1269

649

1627#

1429

686

1406

1455

687

946

16024

1678

SEQ 0051

1978+
1434+

N
NEW
NUMBER
OACNV

1265

20474
23724
1176
746

15:10

22454
1729

1166

1468

688

689

690

691

692

693

694

695

696

CZOLBCO DL11~E ON LINE TSET

(Z0LBC.P11

19-JUL=79 15:06

MACY11 3DA(105¢)

1715
651
17454
17474

1767

PRG4D

007636

1750

17534

PRGS
PRGSA

007764
010010

PRGSAA

PRGSB
PRG588
PRGSC
PRGSD
PRGSE
PRTYO =
PRIY1 =
PRTYZ =
PRTY3
PRTY4
PRTYS
PRTY6

=
=
=
=

POTIT

652
17904

010032

17964

000140
000200
000240
000300

5324
5314
5304
S

010040
010050
010054
010154
010164
000000
000040
000100

PRTY7 = 000340
PSW
= 177776
PWRUP

17484

002734

013256

1795
1802#
18034
1820
1805
5354
5344
5334

495
733>

528#
756%

728
792+

1551

21494

1739
1785
1945
731

21754
21824
2374K
830

1351

1353

1358

1508+«
1060

1509

1513«

729

RDDAT

REMAP
RESTRT
RETRN
RINTM
RINT3
RINT3A
RINT3B

RINT3E
RISR
RISRA
RISRAA
RISRB
RISRBB
RISRC
RISRCA
RISRD
RISRDA
RISREX
RISRF

17994
1828
1825
18234
18264

493
717

011216

RDOCT
RECDAT

1810

49N
5064

RCSR

Q13477
013546
015503
011314

17844
1798

644

1578
1603
1624

9464

826

1156

807
903

818
906

842
1379«

1666

16684

003406

1504
1038

001432
002754
003530
013135
007134
007216
007250

608
9514
1045
1680
1631
1655
1660

7144

007336
005202
005242
005264
005310
005356
005366
005427
005454
005474

005676
005624

795
685#

1662
13374
1344
1350
1348
1364
1356
13784
1377
13914
1423
1415

756
804x

1258
1257

1565
1258+«

1587
1565+

1414

1443

1478

20564

1567

1589

20494

1238

1632

1571+

1587+

1593+

1642+

1479

1483«

1487

149

1496

1463

1554

21554
21624
21694

1500
1037#

003372
001356

SEQ (0%,

1762

642

013322
013371
013441

PAGE 53

1769

636

PITIT
P2TIT
P3TIT

P4TIT
PSTIT
QUEST
RBUF

1752

634

944

17294
17384

007540
007552
007606
007616
007620

15:10

CROSS REFERENCE TABLE -~ USER SYMBOLS

PRG3EX
PRG4
PRG4A
PRG4B
PRG4C

19-JuL-79

10654
21324
16454
16594
1664
16864
2080
13474
13534
13584

13684
1366
1383

13874
1402

14284
14184

13714

1340

1392

1397

10324
1394x

1148
1398+

14644

1673«

(ZDLBCO DL11~E ON LINE T S
19-0UL-79 1
(Z0LBC.P11

1505

1499

\lO*U\bg

b e
d cd

NNNNNNN
n
Yo N
o

RISR17

RISR2
RISR20

1492

[0 5

RISR1S

RISR16

b nd i

RISR14

14504
16614
1490
14914
14854
14964
15004

SEQ 0053

2080#

RISR10
RISR11
RISR12
RISR13

006012
006056

5
B
15:10
19-J4UL=79
PAGE 54
30A(1052)
CROSS REFERENCE TABLE ~- USER SYMBOLS

—

RISRFB
RISRF(
RISRFD
RISRFE
RISRFF
RISRFG
RISRFH
RISRO
RISR1

MACY11

ROVER
RREAD
RSTPC
RSTPSW
RSTREG=
RSTRG
RTN
RXBUF
RXBUF
T
RXCSR

RXCSRTY
RXERR

RXLVL
RXVTR

SAVE

[o Yo

Ghur Ginur Qo P
Qs G

& PN FREERR 3

RISR6
RISR7

== =PI
—t d el
b
b
d —
oy

RISR36

RISR4
RISRS

[=lelolololelolelslelo]

RISR31
RISR3?
RISR33
RISR34
RISR35

pur Qe Qo

RISR26
RISR27
RISR3
RISR30

Ghry

RISR1
RISR22
RISR23
RISR24
RISR25

22614
1049

881
880
936
8734
1143
129%«
1651
908
1491+
1815
959

9584
981
757

1132«

1051

8834
884
1102

10614

1214

1306

1323

1650

1793

1812

1817

1154
1500+

1302
1606+

1305«
1628«

1309
1641«

1312
1645

1315
1669+

1322
1677+

1340+
1742+

1341
1789+

1392+
1794

1302+

1309+

1310

1315+

1317

1322+

1341+

1343

1622

1645+

761
1139+

1142+

979

1287+

1652

CZ0LBCO DL11-t ON LINE TSET

(20LBC.P11

SAVREG= 104011

SAVRG

SAVRO

SCRLF
SELCAR
SELPAR
SETPAR
SEVEN
SIX
SRPTR
SRT
STAD
STALL =
START
START1
STCONT
STKPTR=
STPARA
STPPA
STPRA
STRVRV
STRXV =
STTXV =
STXMTV
SUBTEN
SUBTNA
SUBTNB
SVRPC
SVRPSW
SWR
SWREG
TBITT
TBUF
TBUFFP
TCONFI
TCRLF
TCSR

TEMP

664

015510
013712
013624
004460
003754
003732
000170
001374
000372
104002
001436
002004
000226
001200
004556
003166
003136
003120
104006
104007
003150
004372
004376
004412
002346
002370
015463
000176

1937
1553
1237
12364
1112
1114
5954
6924
606+
S38#
606
721
607
SO7#
1245
985+
977«
661
5428
5434
662
1205
12174
1218
859+
860+
1916
5984

003370

004512
011510
001410
014246
007732
011412

001372

001426
001352
004436
007544

TINTM
TINT3
TINT38
TINT3C
TISR

013156
007346
007416
007460
006336

TISRA
TISRAA
TISRB
TISRBB
TISRC
TISRO
TISRT
TISR1I0

5454

002332

TEMPST
TEMP1
TENPWR
TFLAG

riB

19=-0UL=79 15:06

001430

006354
006352
006462
006452
006422
012176

012206
012276

993+

12434
838
6994
1455
1640
834

6914

7084
6834
1204+
1639
7094
1707
1633
1692
1696
15164

1519
15214
1535
15384
1523
1856

20854
2085#

MACY11 30A(1052)

19-JuL=79

CROSS REFERENCE

15:10

PAGE 55

TABLE =-- USER SYMBOLS

SEQ 0054

93"

1087

1186

1197

1000

1017~

1023

1025

10254

1502

1605

1626

1741

1788

621+
1239«
610=

782
1241
6274

896
1244

926
1247

962
1251

1654
1612

1904
1753

1917
18C6

780
7834
6114
715
1252

846

888

1276

80¢

948

1627

1530«

1543«

20634

1931

1934

1940

8594

23754
22004
2190#
1451
11244
11204
617
1137
608+

7154
775
609
611
12514

9884
9804
9774
1630
1632
9BS#
12164
1220
12214
867
866
23704
621

8694
8704
783

1904

1526
1390+
22434
1746
1368+

1532«
1421+

20704
1526

1527«

1528

1764
1410+
1947+
743
1221
1686+«

16457«
1702«

1949+

1501
1710

1518

1922«
741«
1217
1661

17744
1450
1171

1651«

1955

1926«

1929

1930«

1153~

1908+

21354
16904
17024
1698
2085

15224
1537
15414
1544
1525
20854

1955+

1169+

1909+

1700

1542
15324

1948+«

12274
17304

1910

17134

1942

1950

1951

2 DIBCO DL11~E ON LINE TSET
19-JUL=79 15:06
cZ20LBC.PI

TISR2S
TISR26
TISR27

TISRY
TISRIO
TISR31
TISR32
TISR33
TISR34
TISR3S
TISR36

TISR37
TISR4
TISRS

012426
012436
(12446
012456
012466
012226
012476
012506
012516
012526

012536

(12546
012556
012566
012236
012246
012256

TISR6
TISR7
KB
TKLVL
TKS
TKVTIR
TL INE
TLINEX
TOPC
P8
TPINT
TPINTA
TPLVL
1PS

001224

TPVIR
TTINTS
TXBUF
TXCSR

001234
010712
001206
001204

TXCSRT
TXERR
TXLvt
TXVIR
TYP

001366
002766
001216
001214
003200

TYPDAT

003320

TYPA
TYPC
TYPD

012266

001222
001232
001220
001230
014473
014443
001340
001226
007500
007520

001236

003214
003236
003254

2085
20854
20854
20854
20854
2085#
20854

20854
2085#

20854
20854
2085#
2085#
2085#
20854
2085#
20854
20854
2085#
20854
2085#
20854
2085#
20854
20854
2085#
20854
2085#

2085#

6384
6424
6374
64 1M
1429

179
678#
6404
1636
1727
644K

639#
2000
6434
787

6324
6314

1758

6894
667
6364
6354
655
97
999

1004
997*

789
788
790%
786

1039

1908

1926

1037

1906

1924

1263+
1006+
17194
1723
1637
1007

1266
1043~

1279«
1719

1282«
1914x

1285
1920«

1286+
1999«

1287

1041

1673«

1702

1703

1704

1708

1710

1714

1725+

1927

1997

1616%
754»
1778

1658+
762x

1693~
1296+

1757
1450+

1777«
1617

1811»
1656

1672+

1690

1713

1726

1010«

1012+

22744
22694

17254

1635

19604
1298+
753«
1775
956
9554
989

1690+

987
9934

1285+

10064

1011
1002

1005
10024
998

1823
1691

TISR23
TISR24

012356
012366
012216
012376
012406
012416

SEQ 0055

TISR16
TISR17
TISRZ
TISR2Q0
TISR21
TISR22

012326

012336
012%é6

~—t B

TISR13

TISR14
TISR1S

012306
012316

10~
UL =79
'5:10
PAGE 56
30A(105¢°
(ROSS REFERENCE TABLE =- USER SYMBOLS

TISR1T
TISR12

MACY11

1014
1013

1006

10154

(ZDLBC O CL1I-E
cz2oL8c
TYPE

= 104000

TYPES = 1046001
TYPF
003272
TYPOC
010730
TYPON
010744
TYPS
003322
TYPSA

003356

003326
003364
UR
014730
URA
014760
VECTAB
011120
WORDS
007546
WRU
014633
XMTDAT
001360
= 021432
TYPSAA
TYPSB

:06

S36#

1061
1461

1796

5374
1003
1918
19714

656

1022
10184
1020+
1469

MACY11

30A(1052)

722
1146
1468
1799

767
17
1474
1826
967

932
10104

PAGE 57

TABLE == USER SYMBOLS

776
1236
1550
1912

793
1241
1552
1915

805
1273
1569
1920

813
1307
1577
193¢

17314

10274

1161
1649+

1844
1659

1857
1668+

1871
1694

20154
1697

903
504

907
5944

1378+
6054

1393«
6284

6864

22924
902+

23814

10174
10254
1028
1021

1468

4814
1657

CROSS REFERENCE

15:10

SEQ 0056
816

821

1324
1591
1944

1408
1602

840
1429
1623

1167
1779

1361

1529

885

1439

949

1738

1452
1784

1613
1816

1824

1026
1455

1790

19654

23034
23074

761«
1634«
1462

19-JUL=79

498
1705

1709

1727

1754

1759

1008

1776

1807

1813

1618

1644

2375#

(ZDLBCO DL1°~E ON LINE TSET

(ZDLBC.P11

(NVOA
ISR
1SRY

RBUF F
RRCV

TBUFF

TXMT

. ABS.

19=JUL~79 15:06

5544
5614
5674

S?7#

573

585

581

021432

ERRORS DETECTED:

905
2080
2085
2061

906

MACY11

30A(1052)

907

930

2054

2075

2068

000
O

NL
BC.P11
/SOL/
: TOC=CZDL
,CZDLBC.LST/CRF

RUN-TIME. 10 17 3 SECONDS
RUN-TIME RATIG: 91/31=2.9
CORE USED:
10k
(19 PAGES)

19-JuL=79

15:10

PAGE 59

(ROSS REFERENCE TABLE -~ MACRO NAMES

95%

958

966

1170

SEQ 0057

1240

1428

1454

1467