Digital PDFs

AH-8509G-MC

September 1982

54 pages

Original

2.9MB

view download

OCR Version

2.8MB

view download

Document:	CZDJBG0 DJ11 EXER ONLINE DIAG SEP 1982 bw
Order Number:	AH-8509G-MC
Revision:	000
Pages:	54
Original Filename:	CZDJBG0__DJ11__EXER_ONLINE_DIAG__AH-8509G-MC__SEP_1982_bw.pdf

OCR Text

EXER

ONLINE DIAG
CZDJBGO

AH-B509G-MC
FICHE 1 OF 1

iz
weaoe N usa

CZDJBGO DJ11 EXER & ONLNE
(ZDJBG.P11
07-JUN-82 16:32

MACY11

30A(1052)

07-JUN-82

16:36

SEQ 1

PAGE 2

.REM

IDENTIFICATION

PRODLUCT

CODE:

AC~8507G-M(C

PRODUCT NAME:

CZDJBGO DJ11

PROGRAM DATE:

JUNE

MAINTAINER:

DIAGNOSTIC ENGINEERING

THE

INFORMATION

EXER & ONLNE

1982

THIS

DOCUMENT

SUBJECT

CHANGE

WITHOUT
NOTICE
AND SHOULD NOT BE CONSTRUED AS A COMM]TPENT
BY
DIGITAL
EQUIPMENT
CORPORATION.
DIGITAL _ EQUIFMENT
CORPORATION
ASSUMES
NO RESPONSIBILITY FOR ANY ERRORS THAT
MAY APPEAR IN THIS DOCUMENT.
NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR
ITS AFFILIATED COMPANIES.

(C3

1975,

FOLLOWING

CORPORAT[ON:
DIGITAL
DEC

1982 BY

ARE

DIGITAL

TRADEMARKS

PDP
DECUS

EQUIPMENT
OF

UNIBUS
DECTAPE

CORPORATION

DIGITAL

EQUIPMENT

MASSBUS

EXER & ONLNE
07-JUN-82 16:32

MACY11

30A(1052)

07-JUN-82

16:36

PAGE 3

W=
W
=
BAANN)
-

Yo Yo NIV

(NP
—

WS -

AV Y N £ BB APOMNONOND
—

CONTENTS

Redondeale To -To JoNTe N

(ZDJBGO DJ11
{Z0JBG.P1

ABSTRACT
REQUIREMENTS
EQUIPMENT
STORAGE
PRELIMINARY PROGRAMS
LOADING PROCEDURE
STARTING PROCEDURE
CONTROL SWIT(H SETTINGS
STARTING ADDRESS
PROGRAM AND OPERATOR ACTION
OPERATING PROCEDURE
OPERATIONAL SWITCH SETTINGS
SUBROUTINE ABSTRACTS

PROGRAM AND OPERATOR ACTION

ERRORS
ERROR PRINTOUT

ERROR RECOVERY

ERROR COUNTER

RESTRICTIONS
MISCELLANEOUS
EXECUTION TIME
STACK POINTER
PASS COUNTER
POWER FAIL
PROGRAM DESCRIPTION

HISTORY

JUNE 1982 REV F TO REV 6
INSERTED THE LINE 'MOV #0,a#PS' IN THE ROUTINE
TO INSURE THAT INTERUPTS WILL BE ALLOWED.

'BEGIN®

SEO 2

CZDJBGO DJ11
(ZDJBG.P1

EXER & ONLNE
07-JUN-82 16:32

MACY11

30A(1052)

07-JUN-82

16:36

SEQ 3

PAGE 4

ABSTRA(CT

THIS PROGRAM CONSISTS OF THREE SUB-PROGRAMS
WHICH
EXRECISE
THE
DJ11 ASYNCRONOUS MULTIPLEXER.
PROGRAM 1 |S AN OFF~_ INE

EXERCISER,
PROGRAM
2
IS
AN
ON=-LINE
EXERCISER
WHICH
CONTINUQUSLY TRANSMITS THE LAST CHARACTER REZEIVED.
PROGRAM

3 IS AN ECHO TEST.

NOTE:
PROGRAM 1 WILL RUN
ANY
SILO
ALARM
(FOR PROGRAM 2 AND 3 SEE SECTION 9.)

LEVEL

SETTING.

REQUIREMENTS

2.1

EQUIPMENT
PDP=11 STANDARD COMPUTER WITH CONSOLE TELETYPE
UP TO 16 DJ11 ASYNCRONOUS MULTIPLEXERS.

2.2

STORAGE
THIS PROGRAM USES ALL OF

2.3

8K,

EXCEPT ABSOLUTE LOADER.

PREL IMINARY PROGRAMS

CZDJA

DJ11

LOGIC TESTS

LOADING PROCEDURE

USE STANDARD PROCEDURE FOR ABS TAPES.
STARTING PROCEDURE
4.1

CONTROL SWITCH SETTINGS

SEE 5.1
6.2

(ALL DOWN FOR WORST CASE TESTING)

STARTING ADDRESS
THE PROGRAM SHOULD ALWAYS BE STARTED
AT
200.
IT
MAY
BE
RESTARTED AT 1000 AFTER ALL PARAMETERS HAVE BEEN SELECT
ED.

E
CZDJBGO DJ11 EXER & ONLNE
07-JUN-82 16:32

MACY11

(20JBG.P1N

07-JUN-B2

16:36

PAGE

SEQ 4

N
N Nt

NN
-

PROGRAM AND OPERATCR ACTION

NONWNESS

LOAD PROGRAM INTO MEMORY USING ABS LOADER.
LOAD ADDRESS 200,
IF _HARDWARE SWITCH REGISTER IS AVAILABLE, SET SWITCHES
(SEE SEC.
5.1), ALL DOWN FOR WORST CASE, PRESS START.
IF SWITCH-LESS PROCESSOR SIMPLY PRESS START.
ENTER THE PROGMAM NUMBER (1, 2, OR 3).
SELECT LINES IF SW<8> IS ON A 1.

PROGRAM 1

WILL LOOP AND BELL WILL RING ONCE EVSRY PASS.

"ECF'' IS ALSO PRINTED ON EACH PASS.

OPERATING PROCEDURE
OPERATIONAL SWITCH SETTINSGS
AT SA 200, ALL SWITCHES DOWN 1S
PROGRAM 1

ONLY,

WORST

CASE

TESTING.

FOR

THE BELL WILL RING AND EOP IS PRINTED UPON

COMPLETION OF A PASS OF

THE ENTIRE PROGRAM.

THE SWITCH SETTINGS ARE:

SW15. =1
SW<13> = 1

.....
.....
SW<12> = 1 .....
SW<10> = 1 .....
0 .....
SW<9>
=1 .....
SwW<B> =1 .....

PROGT

ONLY:

HALT ON ERROR
INHIBIT PRINTOUT

PRINT SILO ALARM LEVEL (PROG1 ONLY)

BELL ON ERROR
BELL ON PASS COMPLETE (PROG] ONLY)
INHIBIT MAINTENANCE (PROG1 ON-L INE)
SELECT LINES FOR TEST (SEE 5.3)

SW<2:0>= 0 ..... BINARY COUNT PATTERN
1 ..... "THE QUICK SILVER GRAY FOX ... "’
2 ..... ALPHA=NUMERIC (40-177)
W
'
~

6.3

30A(1052)

NOT USED

THIS PROGRAM HAS BEEN MODIFIED TO RUN ON A PROCESSOR WITH
OR
WITHOUT A HARDWARE SWITCH REGISTER.
WHEN FIRST EXECUTED THE
PROGRAM TESTS THE EXISTENCE OF A HARDWARE
SWITCH
REGISTER.

IF NOT FOUND A SOFTWARE SWITCH REGISTER LOCATION (SWREG=LOC.
176) IS DEFAULTED TO.
IF THIS IS THE CASE,
UPON EXECUTION

THE CONTENTS OF THE SWREG ARE DUMPED IN OCTAL ON THE CONSOL
E
TTY AND ANY CHANGES ARE REQUESTED
(1.E.)

SWR=XXXXXX NEW=

POSSIBLE RESPONSES ARE:

<CR>

6 DIGITS 0-7

IF NO CHANGES ARE TO BE MADE.

TO REPRESENT IN OCTAL
THE NEW SWITCH
5Eg§sren VALUE;
LAST DIGIT FOLLOWED BY

TO ALLOW REENTERING VALUE

ERROR

COMMITTED KEYING IN SWREG VALUE.

CZ0JBGO DJ11
(20JBG.P11

EXER & ONLNE
07-JUN-82 16:32

MACY11

30A(1052)

07-JUN-82

16:36

SEQ 5

PAGE 6

BUILT INTO THE PROGRAM IS THE ABILITY TO DYNAMICALLY
CHANSE
THE CONTENTS OF SWREG DURINGC PROGRAM EXECUTION.
BY STRIKING
*G (CNTL G) CN CONSOLE TTY THE OPERATOR SETS A REQUEST
FLAG

TO
CHANGE
THE CONTENTS OF SWREG, WHICH IS PROCESSED IN KEY
AREAS OF THE PROGRAM CODE (IE) ERROR ROUTINES,
AFTER
HALTS

END OF PASS, AND OTHER APPLICABLE AREAS.

5.2

SUBROUTINE ABSTRA(CTS

5.2.1

HLT

THIS ROUTINE

ERROR MESSAGE

5.2.2

(CALLED BY AN EMT

(SEE 6.1).

INSTRUCTION:

PRINTS

OUT

71O INHIBIT TYPEOUTS, PUT SW<13> ON

A 1.

TO RING THE BELL ON AN ERROR, PUT SW<10> ON A 1.

ALMCK

(PROG!

ONLY)

IN THE NORMAL OPERATION
THE
°'DONE'' BIT
IS
SET
CHARACTER
1S
READ
INTO
THE FI/FO BUFFER(SILO).

AS
EACH
BUT THIS

"DONE'' CONDITION CAN BE DELAYED TO CAUSE DONE ON THE
5,
9,
OR_ 17 CHARACTER.
THIS IS DONE BY CUTTING ONE OF THE JUMPERS
(W1,W2,W3) ON THE M7285 CONTROL BOARD.
THE
PROGRAM TESTS

FOR
THIS
PRINT OUT

SET

‘'SILO ALARM LEVEL'' AND IF SW12 IS SET (1) IT WILL
THE LEVEL (IN OCTAL) AT WHICH EACH
DJ11
IS
WwILL

'DONE'’.

~THE

SUBROUTINE

ALSO

ADJUSTS

THE CHARACTER

COUNTERS TO ENSURE THAT THE MAXIMUM NUMBER OF CHARACTERS
T0
BE
TRANSFERED
IS A MULTIPLE OF THE SILO ALARM LEVEL.
THIS
ENSURES THAT ALL DATA WILL BE READ QOUT OF
THE
SILO.
DONE
WILL NOT SET IF THE NUMBER OF CHARACTERS IN THE FI/FO BUFFER
IS LESS THAN THE SILO ALARM LEVEL.
(NOTE CHARACTER
PRESENT
IS
SET
ON
EACH CHARACTER IN THE BUFFER, REGARDLESS OF THE
SILO ALARM LEVEL.)

5.2.3

TRAPCATCHER

A '.+2" = “HALT'' SEQUENCE 1S REPEATED FROM 0 - S6 TO

DETECT

ANY
UNEXPECTED
TRAPS
AND
A
.42 <
IOT''
SEQUENCE IS
REPEATED FROM 60 = 776 TO DETECT ANY UNEXPECTED
INTERRUPTS.
THUS
ANY UNEXPECTED TRAPS WILL HALT AT THE VECTOR + 2.,
ANY

UNEXPECTED INTERRUPTS WILL RESULT IN AN
"HALT'' IN "'IOTRAP'.

5.3

ERROR

MESSAGE

AND

PROGRAM AND OPERATOR ACTION

AFTER THE DEVICE PARAMETERS ARE REPORTED,

THE PROGRAM

TYPES

"PROGRAM _ #:
*°, AT WHICH TIME THE OPERATOR ENTERS ''1'*, ‘72",
OR "3'° DEPENDING ON THE SUB-PROGRAM HE WISHES TO RUN.
IF SW<8> IS ON A 1, THE PROGRAM WILL TYPE OUT

SELECT

6
(ZDJBGO DJ11
(ZDJBG.PT

EXER & ONLNE
07-JUN-82 16:32

MACY11

LINES

30A(1052)

07-JUN-82

16:36

1
SEQ 6

PAGE 7

='' THE _OPERATOR RESPONDS BY TYPING IN AN OCTAL NUMBER

REPRESENTING THE LINE(S)

DJ11.(INPUT

THE SAME AS

FOR

WHICH ARE

TESTED

FOR

THAT

THE

LINE O,A 7 FOR LINES 0,1,AND 2, ETC.

YOU WERE DIRECTLY

SETTING

THE

TCR

DJ11.) IF MORE DJ11'S ARE ON THE SYSTEM THE
N WILL INDICATE
THE NEXT DJ11 AND THE PROMPT IS REISSUED.
WHEN
ALL
LINES

ARE SELECTED THE PROGRAM WILL RUN THE

SELECTED SUBPROGRAM.

ERRORS
6.1

ERROR PRINTOUT
THE FORMAY

IS AS FOLLOWS:

ADR

(R2)

(R1)

(R3)

(R&)

WHERE:
ADR
(RN)

= ADDRESS OF ERROR HLT
= CONTENTS OF GENERAL REGISTER
‘W''.
FROM NONE
TO
FOUR
OF THESE MAY BE TYPED DEPENDING ON THE NUMBER
FOLLOWING THE HLT;
E.G.,
HLT+3
WOULD
TYPE
(R1)
THRU (R3);
HLT (BY ITSELF) WOULD STOP AFTER TYPING
ADR AND DJADR.

TO FIND THE FAILING TEST, LOOK
AT
THE
LISTING
ABOVE
THE
ADDRESS
TYPED.
IN
MOST
CASES THE COMMENT BESIDE THE HLT
TEILS WHAT WAS BEING CHECKED AND WHAT WAS EXPECTED.

ERROR RECOVERY
RESTART AT 200 OR 1000.

6.3

ERROR COUNTER
AN ERROR COUNT IS KEPT IN "ERRORS' .
1T CAN BE CLEARED FROM
gggcnggNSOLE.
BY
RESTARTING
AT
200,
OR BY RELOADING THE

RESTRICTIONS
THIS PROGRAM REQUIRES THAT THE DE ¥ ¢ € ADDRESSES
FOLLOW THE
FLOATING
ADDRESS CONVENTION (DJ1
S WILL BE FIRST, STARTING
AT 160010, THEN THE DH11°'S) AND TgA T
THE
VECTOR
ADDRESSES

ALL BE CONTIGUOUS.
IF THE FIRST
J DJI 1 ADDRESS 1S NONSTANDARD
(OTHER THAN 160010 ) THEN LOC.
1 270 MUST BE
CHANGED T0
CONTAIN THIS NONSTANDARD ADDRESS.
IF

THIS PROGRAM IS RUN WITH A MONITOR,

I.E.

ACT11

DODP,

(ZDJBGO DJ11
(2DJBG.P11

EXER & ONLNE
07-JUN-82 16:32

MACY11

30A(1052)

ONLY PROGRAM 1

MISCELLANEOUS

8.1

EXECUTION TIME

07-JUN-82

16:36

SEQ 7

PAGE 8

IS RUN.

(PROG1 ONLY)

DUE TO THE VERIOUS BALD RATES AVAILABLE AND THE

ABILITY

CHECK
UP
TO 16 DJ11°S AT ONCE, THE EXICUTION TIME CAN VARY
ANYWHERE FROM 3 SECONDS TO NEARLY AN
HOUR.
THE
FOLLOWING
TYPICAL
TIMES
ARE
FOR ONE DJ11 WITH ALL LINES AT THE SAME

SPEED, 8 LEVEL CODE,

STOP

BITS,

AND

PARITY

PDP-11/20
.
FOR
MULTIPLE DJ11'S, MULTIPLY THESE
THE NUMBER OF UNITS SELECTED FOR TEST.

TIMES 8Y

APPROX
BAUD RUN TIME

75 00:10:00
110 00:07:00
134.5 00:05:40
150 00:05:00

300 00:02:30
600 00:01:15
1200 00:00:40
1800 00:00:30
2400 00:00:20
4800 00:00:10
9600 00:00:05
8.2

STACK POINTER
STACK IS INITALLY SET TO 1200

8.3

PASS COUNT (PROGT ONLY)
A 32 BIT (2 WORDS) PASS COUNT IS KEPTY IN "PCNT*' .

(LEARED
FROM
THE
CONSOLE,
RELOADING THE PROGRAM,

8.4

RESTARTING

T CAN BE

200, OR BY

POWER FAIL
EACH PROGRAM CAN BE POWER FAILED WITH NO ERRORS.
TO USE,
START
THE
PROGRAM AS
USUAL AND POWER DOWN THEN UP AT ANY

TIME.
THE ROUTINE
SHOULD
TYPE
‘''POWER'*
PROGRAM WITH NO OTHER ERROR TYPEQUTS.

AND

RESTART

THE

I
(ZDJBGO DJ11
(Z0JBG.P1

EXER & ONLNE
07-JUN-82 16:32

MACY11

30A(1052)

07-JUN-82

16:36

SEGC 8

PAGE 9

PROGRAM DESCRIPTION
THIS PROGRAM CONSISTS OF THREt SUB=PROGRAMS
WHICH
EXERCISE
THE LOGIC OF UP TO 16 DJ11 ASYNCHRONOUS DATA MULTIPLEXERS.

PROGRAM 1:
EXERCISER (OFF-LINE)
THIS
PROGRAM
EXERCISES
UP
TO

SIMULTANEOUSLY

MAINTENANCE

256

MODE.

LINES

(16

DJ11'S)

THREE DIFFERENT DATA

PATTERNS MAY BE SELECTED FROM THE SWITCH REGISTER.
THE DATA
PATTERN
IS
REPEATED
A
MINIMUM OF 16 TIMES FOR EACH PASS.
THE _PROGRAM SHOULD BE RUN FOR AT LEAST
2
PASSES
WITH
ALL
SWITCHES
DOWN. ~ SW<9>
ON
A
ONE DISABLES THE MAINTENANCE
MODE, REQUIRING TURN~AROUND CARDS AT THE TERMINATION OF EACH
LINE
BEING TESTED.
(NOTE:
THE RECIEVER AND TRANSMIT LINES
MUST BE JUMPERED FOR THE SAME SPEED.)
PROGRAM 2:
(CONTINUOUS ECHO EXERCISER (ON=-LINE)
THIS PROGRAM CONTINUQOUSLY TRANSMITS THE
LAST
CHARACTER

RECEIVED
ON
THE RESPECTIVE LINE.
A NULL (000) WILL “ECHO"
72 TIMES AND THEN TURN OFF THE TRANSMITTER.
PROGRAM 3:
ECHO TEST (ON-LINE)
THIS PROGRAM TRANSMITS A HEADIM. («ECHO TEST«) ON EACH
LINE
AND THEN ECHOS EVERYTHING THAY IT RECEIVES.
CAUTION:
I1F CHARACTERS ARE RECEIVED FASTER THAN THEY CAN BE
TRANSMITTED, THE SOFTWARE BUFFERS MAY OVERFLOW.

NOTE:
THE ON-LINE EXERCISERS (PROG2 AND PROG3) ARE OPERATOR
DEPENDENT,
AND
THEREFORE
DO
NOT
LOOP.
1.E.
NO PASSES.
ACT11 AND DDP MONITORS WILL ONLY RUN PROGI.

J
(ZDJBGO DJ11
(20J8G.P1

EXER & ONLNE
07-JUN-82 16:32

SwiS=

MACY11

30A(1052)

07-JUN~-82
16:36
SWITCH SETTINGS

SE@ 9

PAGE 10

SWITCH

100000

sHALT ON ERROR

SWi4é=

40000

sNOT USED
sINHIBIT ERROR TYPEQUTS

SWll=
SW10=

4000
2090

sNOT USED

SW9=

1000

SWi13=
Swi2=

20000
10000

SW8=
400
:
:SW<02>
.REM!

¢PRINT

SILO ALARM LEVEL

;0 - BELL ON PASS COMPLETE
;1 = BELL ON ERROR

sON-LINE (PROG1)
SSELECT LINES (INITIALIZATION TIME ONLY)

SELECT MESSAGE

(PROG1 ONLY)

DJ11 REGISTER BIT ASSIGNMENTS:
CONTROL STATUS REGISTER (CSR) XXXXXO
BITO
RECEIVER ENABLE (READ/WRITE)
BIT1
HALF DUPLEX SELECT (READ/WRITE)
BIT2
MAINTENANCE (READ/WRITE)
8IT3
CLEAR MOS (WRITE ONLY)
BIT4
CLEAR MOS FLAG (READ ONLY)
BITS
NOT USED
RECEIVER INTERUPT ENABLE (READ/WRITE)
8ITé
8IT7
DONE (READ ONLY)

BIT8
BIT9

BIT10
BIT1
BIT12
BIT13
BIT14
BIT1S5

%;TSQEERANSHITTER SCAN ENABLE

READ/WRITE BREAK REGISTER (READ/WRITE)
NOT USED

STATUS ENABLE (READ/WRITE)

FI/FO OVERRUN (READ ONLY)

MASTER TRANSMITTER INTERUPT ENABLE (READ/WRITE)
TRANSMITTER READY (READ ONLY)

RECEIVER BUFFER REGISTER

8I10-7
BIT8-11
BIT12
BIT13
8IT14
BIT15

(READ/WRITE)

(RBUF) XXXXX2 (READ ONLY)

RECEIVED CHARACTER
LINE NUMBER

PARITY ERROR
FRAMING ERROR

UART OVERRUN ERROR
CHARACTER PRESENT

TRANSMITTER CONTROL REGISTER

(TCR)

XXXXX4

(READ/WRITE)

8I1T0-15 STOP THE SCANNER ON CORRESPONDING LINE
TRANSMITTER BUFFER

(TBUF)

XXXXX6

B8I110-7 TRANSMITTED CHARACTER (WRITE ONLY)
BIT8-11 LINE NUMBER (READ ONLY)
BREAK CONTROL STATUS REGISTER (BCSR) XXXXX4

(BIT10 OF CSR SET)

(READ/WRITE)

CZDJBGO DJ11

(ZDJBG.P11

EXER & ONLNE

07-JUN-82 16:32

MACY11

30A(1052)

07-JUN-82

DJ11

16:36
PAGE
SPECIFICATIONS

BITO=15 TRNSMIT A BREAK ON CORRESPONDING LINE!

BELL

QN
—

)

-—f

TRAP
EMT

40
100

200

400
1000

2000

4000
10000
20000
40000
100000

= 340
0

491

STACK = 1200

000000

000000
000000

000046

014622

000174
000176

000174
000000
000000

000200
001000

000000

0
:TRAP CATCHER IN LOCATIONS 0 THRU 776
0.0
:LOCATIONS O AND 2 CONTAIN "MALT'' INSTRUCTIONS
SLOCATIONS 4 THRU 56 CONTAIN '".+ 2" AND "MALT'' IN EVERY VECTOR
;LOCATIONS 60 THRU 776 CONTAIN ', +2'° AND *'IOT*' IN EVERY VECTOR

000046

000200
000137
001000
000137
001200

$ENDAD
174

DISPREG: 0
SWREG:
-

006312
007316

200

JMP
1000
JMP

1200

BEGIN
RESTAR

:200 ALWAYS 1S THE STARTING ADDRESS

sRESTART ADDRESS

SEQ 10

o -—

IR
= — e 2b

)= O 000 ~ON N I~

VIWVHAN WA NV NN

d ed md

(ZDJBGO DJ11
(ZDJBG.P11

EXER & ONLNE

07-JUN-82 16:32

MACY11

30A(1052)

000000
000000
000000

001210
001212

177570
177570

SWR:
177570
DISPLAY:177570

001214
001216
001220
001222
001224
001226
001230
001232
001234
001236
001240
001242
001244
001246
001250
001252
001254
001256
001260
001262
001264
001266

000000
000020
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000030
000001
160010

SAVIT:
TIMES:

001270

000300
000240
000240
000000

000000
000000
000000
000000

000000

—

001272
001274
001276
001300
001302
001304
01306
001310

ICNT:
0
ERRORS: 0

PCNT:

SVSW0:
SVSWl:
SVSW2:
SVSW3:
SVSW4:
SVSWS:
SVSW6:
SVSW7:
SVSW10:
SVSW11:
SVSW12:
SVSW13:
SVSW14:
SVSW15:
SVSW16:
axg:17:

sITERATION COUNT=LH, TEST NO.=-RH
JERROR COUNT REGISTER

0.0

;PASS COUNT REGISTER

0
20

MINIMUM NUMBER OF MESSAGES (PROGT)

OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
8PEN

JMAP OF
sMAP OF
sMAP OF
;MAP OF
sMAP OF
¢MAP OF
sMAP OF
cMAP OF
;MAP OF
cMAP OF
sMAP OF
sMAP OF
sMAP OF
sMAP OF
sMAP OF
JMAP OF

BUFSIZ: 30
UNITS:
1
DEVADR: 160010
VECADR: 300
RCVLVL: 240

XMTLVL:
ISRFLG:
ALMFLG:
TIMERA:
TIMERB:
COUNT:
SUM:

SEQ 11

07-JUN-82
16:36
PAGE 12
DJ11 SPECIFICATIONS

001200
001202
001204

000000

LINES SELECTED, DJ11 #0
LINES SELECTED, DJ11 #1

LINES
LINES
LINES
LINES
LINES
LINES
LINES

SELECTED,
SELECTED,
SELECTED,
SELECTED,
SELECTED,
SELECTED,
SELECTED,

DJ11
DJ11
DJ11
DJ11
DJ11
DJ11
DJ11

#2
#3
#4
#5
#6
#7
#10

LINES SELECTED, DJ11 #11
LINES SELECTED, DJ11 #12

LINES SELECTED, DJ11 #13
LINES SELECTED, DJ11 #14

LINES SELECTED, DJ11 #15
LINES SELECTED. DJ11 #16
LINES SELECTED., DJ11 #17

RECEIVE BUFFER SIZE (PRUG3)
SNUMBER OF UNITS ON THE SYSTEM
JFIRST DEVICE ADDRESS
sFIRST VECTOR ADDRESS
JRECEIVER BR LEVEL = §
;TRANSMITTER BR LEVEL = §
sINTR SYC RIN FLAG
JSILO ALARM LEVEL FLAG
sTIME COUNTERS

240
O
O
0
0
O
0

so4+F

sVALUE OF THE SILO ALARM LEVEL

:fii"'t.**ti'tfil’tfi.*Q..‘Q'?tt'ili.l*..l

.lt“fi.Q"..fi."ifi'.‘tfifii'.i'.tIQ

;TABLES

:fitttt*'fiitfi.tfitfii'&I’t"Q‘"i‘t““l.‘Q.

tfi'..iltQ"ifiii.it""itltt..it't

001312

000400

XMTTAB:

.BLKW

400

sTRANSMIT DATA POINTER TABLE

002312

0004C0

RCVTAB:

.BLKW

400

RECEIVE DATA POINTER TABLE

(PROG1)

sRECEIVE DATA TABLE (PROGZ AND PROG3)

565

003312

000400

MAXTAB:

004312

000400
004313

XMTCNT: .BLKW
400
RCVCNT=XMTCNT +1

JTRANSMIT DATA COUNTER
JRECEIVE DATA COUNTER

005312

000400
005313

MASK :

sCHARACTER MASK TABLE

.BLKW

BLKW

CNTTAB=MASK+1

400

;POINTER FOR XMIT/RCV BFRS.

sITERATION COUNT AND FLAGS

Jreef

M
CZDJBGO DJ11
(Z0JBG.P11
566
567
368
569

570

571
5r2
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
gg?

EXER & ONLNE
07-JUN-B82 16:32

006312
006316
006324

006330

006334
006340
006344
006350
006354
006360
006364
006370
006374
006400
006404
006406
006412
006416
006422
006424
006430
006436
006444
006452

012706
012737
004737

012700

012720
012720
012720
012720
012720
012720
005037
005037
005037
012700
005720
010060
012725
022700
003370
965037
012737
012737
012737
012737

MACY11

0921200
000000
016236

177776

MOV
MoV
JSR

2s:

177776
000004
001000

001300
000400
000106
000106
000001

071240
011244
011250
007216

16:36

#STACK, SP
#0,34PS
PC,SUSWRR

sSET UP STACK POINTER
ssALLOW INTERUPTS

#10TRAP,(RQ)+
#3640,
(RO)+
#PDOWNS, (RO)+
#3640,
(RO)+
NEMTS,
(RO)+
#3640,
(RO)+
ERRORS
PCNT
PCNT+2
#300,
RO
(RO)+
RO,
<2(R0)
107
(RO)+
#1000,
RO
28
ALMFLG
#256. ,CNTNIT
#70.,CNTNIT+4
#70. ,CNTNIT+10
#1,TIMES

;IOT VECTOR (20)

#20,RO

Mov
Mov
Mov
MoV
MOV
MoV
CLR
CLR
CLR
Mov
TST
MOV
MOV
cMP
86T
CLR
MOV
MOV
MOV
Mov

SEQ 12

PAGE 13

VRG-060382

;POWER FAIL VECTOR (24)
;EMT VECTOR (30)
sCLEAR ERROR COUNTER
;CLEAR PASS COUNTER
sSTART OF FLOATING VECTOR AREA
sUPDATE POINTER
;PUT '‘.+2'' IN EACH VECTOR

;AND ‘‘IOT"’
;CHECK FOR END OF FLOATING VECTOR AREA
sBRANCH IF MORE
sCLEAR THE ALARM FLAG
cSET MAXIMUM SIZE VALUES
;FOR PROG #1
sSET FOR QV ON FIRST PASS

s 'ttit‘..tt'il‘ttt.fi.Q*‘Qit'fiQtttttt..i.t'ttilttl.t'.tt

fitt'i't.'ttttttttt

SROUTINE TO MAP ALL THE DJ11'S ON THE SYSTEM

594

:ttt'ttt.'t.t‘ttt.lttt"i"i‘.ttittitit't.lttttttttt.t.'.t

006460
006464
006470
006476
006500

013700
012702
012737
005001
000261

601
602
603
604
ggg

006502
006504
006506
006512
006514

005201
000771

607
608
609
610
611
g;%

006516
006522
006526
006530
006534
006536

005037
010137
001005
000004
000000
000137

005710
103404
062700

001266
000001
000002

DJMAP:

000006

58:
1$:

000010

6$:

000006
001264

7$:

016632

MOV
MoV
MoV
CLR
SEC

DEVADR, RO
n,
R2
#RTI,
6
R1

TST
8(S
ADD
INC
BR

(RO)
[4 ]
#10,
R1
1%

CLR
MOV

ané
R1,

BNE

GETVEC

014550

615

.tttt.tttttttt

sGET FIRST FLOATING ADDRESS
sCOUNTER FOR DJ11°'S
SRTI WHEN TINE-OUT
sSET UP COUNTER
sSET CARRY

sCHECK FOR A DEVICE
sBRANCH IF NONE
<GO TO NEXT DEVICE ADDRESS
s COUNT DJ11°S
cLOOK FOR MORE

UNITS

sRESTORE TIMEOUT VECTOR
:SAVE COUNT

TYPE,

MSGO1

;TYPE 'WO DJ11°S!*

JMP

S#DONE

SRESTARY

HALT

614

sFATAL ERROR

Hhiuidsiibaidnbddebdabiviiibbinihdtt it ittt

L L

AL AL

;ROUTINE TO DETERMINE VECTOR ADDRESSES OF DJ11°'S

619

618
619
620
621

BEGIN:

MoV

593

07-JUN-82
SET UP AREA

000020

015720
000340
015556
000340
014636
000340
001202
001204
001206
000300

592

595
596
597
598
599
600

30A(1052)

006542
006546
0065564
006560

013746
012737
013701
012711

000020
006576
001266
040400

000020

GETVEC: MOV
MoV
Mov
Mov

Al L A

3420,
#1,
DEVADR,
#40400,

=(SP)
@420
R1
(R1)

T T L

;SAVE 10T VECTOR
RESET 10T VECTOR
+EIRST DJ ADDRESS
;SET (SR

T L

L L L L T L T T T L T T

T rees

N1
CIDJBGO DJ11
(ZDJBG P

622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639

640

EXER & ONLNE

07-JUN-82 16:32

MACY11

30A(1052)

07-JUN-82
16: 36 PAGE 14
DJ11 VECTOR MAPPING ROUTINE
;BIT8= TRANS SCAN ENABLE

006564
006572
006574

012761
000001
000407

006576
006600
006604
06612

011602
162716
011637
022626
000002

006614
006620
006622

012637
005742
013703

106610

000001

000004

81,

MOV
SUB

(SP),
#10,"
(SP),
(SP)+,

R2
(SP)

(SP)+,

@#20

WAIT

1$:

000010
001270

MOV

MOV
CMP
RTI

000020

3$:

001264

MOV

TST
MOV

-(R2)
UNITS,

4(R1)

;8IT14= TRANS INTERRUPT ENABLE

sTCR, LINE O

+WAIT FOR AN INTERRUPT

*CONTINUE AFTER INTERUPT

VECADR
(SP)+

:SAVE VECTOR ADR. (+4)
:REPOSITION ADR TO RCV. VEC.

:SAVE FIRST VECTOR
:RESET STACK FROM 10T
;RETURN FROM INITIAL INTERUPT

:RESTORE IOT VECTOR

:POINT TO XMT. VEC. +2
*SET UP UNIT COUNTER

;CHECK THAT VECTORS ARE CONTIGUOUS
006626
006632
006634
006640
006642
006644
006650
006654
006660
006664
006672

006674

005061
005011
012712
005303
001415
062701
062702
012712
012711
012761
000001
000754

000004

28:

000004

00010
(v0010
000002
040400
©00001

000004

CLR

(LR
MOV
DEC
BEO
ADD
ADD
MOV

MOV

WAIT

B8R

4(R1)

;CLEAR TCR

(R1)
#10T,
R3
REPORT
#10.,
00,
#RTI,

R
R2
(R2)

*CLEAR CSR
:RESTORE IOT TO XMT. VEC.+2
;CHECK FOR MORE DJ11°'S
*BRANCH IF DONE
:UPDATE DJ ADR. POINTER
;UPDATE VECTOR POINTER
:RTI ON INTERRUPT

4(R1)

:TCR LINE O

(R2)

#40400, (R1)

:SET CSR

SWAIT FOR AN INTERRUPT

;REPORT CONF IGURATION
006676
006704
006706
006712
006716
006722
006726
006732
006736
006742
006746
006752

006756

032777
001026
000004
000004
000004
013705
004737
000004
013705
004737
000004
013705
004737

020000
016453
016442
016514
001266
015374
016544
001270
015404
015570
001264
015404

172304

REPORT: BIT
BNE

#BIT13, @SWR
GETLEN

;CHECK FOR INHIBIT TYPOUT
*SKIP REPORT IF SET

PC.PRINTR

sTYPE DEVADR IN OCTAL
:TYPE LEADING ZERG'S

TYPE,
TYPE.
TYPE,
MOV

MSGMDN
RETURN
MSGADR
DEVADR, TTY

TYPE,

MSGVEC

JSR

MOV
JSR
TYPE,
MOV

JSR

VECADR, TTY
PC,PRINTS
MSGNUM
UNITS, TTY

PC,PRINTS

;TYPE VECADR IN OCTAL
;AND SUPRESS LEADING ZERO'S
;TYPE UNITS IN OCTAL

:AND SUPRESS LEADING ZERO'S

SEQ 13

8
(ZDJBGO DJ1?
(Z0JBG.P1

EXER & ONLNE
07<JUN-82 16:32

MACY11

668
669
670

674
675

676
677
678

679
680
681
682
683
684
685
686
687
688
689
690
691
692
693

07-JUN-82

16:36

SEQ 14

PAGE 15

CHARACTER LENGTH MAPPING ROUTINE

;ttt'Iit'tti'.tfi'tt.t'fit't.fitttt

tt.itt'ittifittttttttfittttt'tttttt

ttttttt

;ROUTINE TO MAP CHARACTER LENGTHS

671

672
673

30A(1052)

:tttttti.ttttt".i'tttt'tti"tti

'ttt'ttt*fittfittttttttfittttt

000762
006770
006772
006776
007002
007006
007012
007016
007022
007024
007030
007032
007034
007042
007044
007046
007050
007052
007054
007060
007064
007066
007070
007074
007100
007104
007110
007114
007116
007120
007122
007126
007130
007132
007134

007140
007142
007144
007146
007150
007152
007154
007160
007164
00716¢€

022737
001002
004737
013700
013701
012702
012711
032711
001375
010261
005711
100376
012761
006302
006302
006302
006302
103364

005061
062701
005300
001347
013700
013701
012702
012703
016104
100375

010405
000305
042705
006305
060205
105104
042704
010425
010425
010425
010425
005303
001356
062701
062702
005300
007346

000176

001210

016134
001264
001266
000001
000415
000020

6$:
1%:

108:

000004
000377

GETLEN:

2%:
3s:
000006

000004
00010
001264
001266

005312

000004
000002

177760

CMP
BNE
JSR

MoV
Mov
MoV
MoV

8IT
BNE
MOV
TST
BPL
MOV
ASL
ASL
ASL
ASL
8C(
CLR
ADD
DEC
BNE

MOV

48
5%:

MOV
MOV
MOV
8PL
MOV
SWAB
8IC

ASL

177400

000010
000040

ADD
(oM
81C
MOV
MOV
MOV
MOV
DEC
ENE
ADD
ADD

DEC
BNE

tttttttt'tttt

#SWREG, SWR

PC,CNTLU

UNITS,

10%
R2,

4(R1)

3s
:377,

6(R1)

DEVADR, R1
4,
R2
#6415,
(R1)
#8174,
(R1)
(R1)

R2
R2
R2

23
4L(R1)

sSET UP UNIT COUNTER

sSET UP DEVICE ADDRESS POINTER
:SET UP LINE MARKER
JRCV ENB, CMOS, MAINT., TRANS SCAN ENB
;WAIT FOR MOS TO CLEAR

;TRANS CONTROL, ONE LINE AT A TIME

JWAIT FOR TRANS READY

:SEND A RUBOUT

JSKIP & LINES

JBRANCH BA(K IF MORE LINES
;CLEAR T(CR

”o,

JUPDATE POINTER TO NEXT UNIT

UNITS,
DEVADR,
#MASK,
¥,
§£R1).

RO
R1
R2
R3
R4

sSET UP UNIT COUNTER
sSET UP DEVICE ADDRESS POINTER
<SET UP CHAR LEN TABLE POINTER
JSET UP CHAR COUNTER
sSAVE AND CHECK CHAR PRESENT

R,
RS

:DUP DATA
SLINE # IN LOW BYTE

g;???fiO.RS

:CHECK FOR MORE UNJTS

:CSEAR ALL BUT LINE #

R2.

JMAKE POINTER TO CHAR TABLE

R4
#177400,R4
RG,
{RS)+
R4,
(RS)+
RG,
{RS)+
R4,
(RS)+

sMAKE DATA INTO MASK
sCLEAR UPPER BYTE
JSAVE THE MASK
JSAVE THE MASK
+SAVE THE MASK
sSAVE THE MASK

210,
840,
RO
11

sADDRESS POINTER TO NEXT DJ
sCHAR LEN TABLE POINTER
JCOUNT UNITS
;BRANCH BACK IF MORE

R1
R?

;COUNT TO &

c
(ZDJBGO DJ11
(7DJBG.P1

EXER & ONLNE

07-JUN-82 16:32

MACY11

718
719

736

737
738
739
740
741
762
743
744
745
746

747

748
749

750

751
752
753
754
755
756
757
758
759
760
761
762
763
764

765

766
767

16:36
PROGRAM SELECTION

PAGE

SEQ 15

itttt"tttttfitttttttt.ttitlt'.t'.t‘.

;SELECT THE PROGRAM TO BE RUN
<PROGRAM 1:
OFF=-LINE EXERCISER
;PROGRAM ?2:
ON-LINE EXERCISER (TRANSMIT LAST CHARACTER RECEIVED)
;PROGRAM 3:
ON-LINE ECHO EXERCISER

721
722
723
724

726
727
728
729
730
731
732
733
734
735

07-JUN-82

;'ttttt.ttttii't'ttfi'tti't'ttit.ttt

720

725

30A(1052)

:ttttt*fitttt'ittfi'ttQtttittttt.tf

iltQttttfittt.'tt"fitifi.tttt.t"ttt

007170
007174
007176
007202
007206
007210
007212
007220
007222
007224
007230
007234
007240
007242
007246
007252
007256
037260
007264
007266
007272
007274

005737
001040
000004
004537
007340
001367
032777
001426
005000
012701
000004
000004
010005
004737
000004
004537
001214
013721
005200
020037
001356
000410

007276
007302
007306
007312
007314

013700
012701
012721
005300
001374

000042

SELPRO:

016613
015030
000400

001220
016442
016417
015404
016422
015030

171770

Mov
SWITCH: TYPE,
TYPE,
MOV

JSR

TYPE,
JSR
.WORD
MOV
INC
(P

001214
001264

BNE

B8R

001264
001220

177777

Atl:

1$:

.S8TTL

007316
007322
007324
07330
007332
007334

013700
001722
022700

000003

006300
000170

007340

007340
007340
007342
007344
00734€

000001
007350
012012
013216

103717

TST
BNE
TYPE,
JSR
.WORD
BNE
BIT
BEQ
CLR

007340

MoV
MOV
MOV
DEC
BNE

RESTAR: MOV

BEQ
(Mp
8LO
ASL
JMp

PROGNO:
PROGAD
: 1
PROG!

PROG
PROG

ALL
MSGPRG

R5,

PROGNO
SELPRO
#BIT8,
ALL

t.t'tt

sCHECK FOR ACi 11 OR DDF
sBRANCH IF MONJTOR
READIN

JREAD A NUMBER FROM THE CTY

QASWR

;CHECK FOR SW<B>, SELECT LINES
+BRANCH IF NOT
;SET UP UNIT COUNTER, DISPLAY
JSET UP SWITCH TABLE POINTER

RO
#SVSWO,R1
RETURN

MNUM

RO, TTY

PC,PRINTS
MSGSEL

R5,READIN
SAVIT
SAVIT,(R1)+
RO
RO,
UNITS
SWITCH
RESTAR

UNITS,

#SvSwl, Rl
367777?.(a1)o
1$
RESTART POINT

;PRINT THE NUMBER OF
JASL

ggipao

THE DR11C

FOR THE SELECTED LINES

sCOUNT UNITS

cCHECK FOR MORE UNITS
:BRANCH [F MORE
;60 DO IT
SSET UP UNIT COUNTER
sSET UP SWITCH TABLE POINTER
SSET ALL LINES
sCOUNT UNITS
+BRANCH [F MORE

PROGNO, RO
SELPRO

@PROGAD (RO)

sDEFAULT TO PROGRAM 1

b
CZDJBGO DJ11
€ZDJyBG.P11

EXER & ONLNE

07-JUN~82 16:32

MACY11

30A(1052)
PROG1:

07-JUN-82

16:36

SEQ 16

PAGE 17

OFF=-LINE EXERCISER

768

769
270
mm

:tt.'ttiiititti'iti*t"t"ttfittttittt.tfltt

*PROGRAM 1:

:
:

772
773

774
775
776
777
778
779
780
781

782

783
784
785

fitttttttt.tfltttttttttt'tttttfit

TRANSMIT AND RECEIVE ALL LINES SIMULTANEOUSLY

OFF-LINE:
ON-L INE:

;

SW<9> = 0
SW<H> = 1

USES THE DATA TABLE SELECTED BY SW<2:0>

Eéfi”pkége

REPEATS

THE

PATTERN AT

LEAST

TIMES

':tttt**ttfiittttttttt.itttiitttttttttittfitttttttttttti'tttttttttttttt.

t't

007350
007352
007356
007362
007370
007374
007400
007402
007404
007406
007412
07414
007416
007420

000005
005037
012706
052737
012701
012702
005021
005302
001375
012702
005201
105021
005302
001374

001276
001200
000340
001312
€02000

000400

PROG1:

177776

RESET
CLR
MOV

8IS

MOV

18:

28:

MOV

CLR
DEC
BNE
MOV

INC

CLRB
DEC

BNE

ISRFLG
#STACK, SP

;CLEAR OUT THE WORLD
:CLEAR INTR. SVC. RTN. FLAG.
:RESET THE STACK POINTER

#XMTTAB,R1

;FIRST TABLE POINTER

#340,3#PS

#2000,R2

(R1) +
R2
1$
#400,R2

:PROCESSOR TO LEVEL 7

:LENGTH OF TABLES (WORDS)

*CLEAR THE TABLE

SLENGTH OF MASK/COUNT TABLE

1SKIP MASK

(R1)+
R2

*CLEAR COUNT

SROUTINE TO INITIALIZE ALL DJ11°'S AND THEIR ISR'S:
sSET UP ALL INTERRUPT VECTORS

sSET UP DEVICE ADDRESSES IN LINKER ROUTINES
sSET CSR'S EVERYTHING ENABLED
sSET TCR'S, ALL LINES ENABLED
007422
007424
007430
007434
007440
007442
007446
007450
007452
007456
007460
007462
007466
007470
007472
007474

005000
013701
013702
012703
010322
013722
022323
010113

001266
001270
010400

001272

PiINIT:

118:

CLR

Moy
MOV
MOV
[ o1
nov
cep

DEVADR,
VECADR,
#RISRO,
R3.
RCVLVL,
(R3)+,

R1
R?
R3
(R2)+
(R2)+
(R3)e+

;SET UP RECEIVER INTERUPT VECTOR

:ADD ¢ TO R3

062723
005723

000002

MoV
ADD

013722
022323
010123
005011
052711

001274

MOV
MOV

R3,
(R2)+
XMILVL, (R2)+

+SET UP TRANSMITTER INTERUPT VECTOR

050510

MOV
CLR
8Is

RY,
(R1)
#50510,

JADDRESS OF (SR
sCLEAR CSR
+SET UP (SR

010322

cMp

R1.,
' 74

(RS)+

(R3)+,

(R3)
(R3)+

(R3¢

(R3)+

(R1)

+ADDRESS OF (SR
;ADDRESS OF RBUF

:BIT3 = CLEAR MOS

sBIT6 = RECEIVER INTERUPT ENABLE

007500
007504
007506
007512

032711
001375
005737
001002

000020

001300

13s:

g*g

:?%T‘.

TST

ALMFLG

BNE

108

(R1)

cieef

;BIT8 = TRANSMITTER SCAN ENABLE
sBIT12 = STATUS ENABLE
:BIT14 = TRANSMITTER INTERUPT ENABLE

sCHECK FOR MOS TO CLEAR

sHAS THE SILO ALARM LEVEL BEEN CHECKED?

JYES

sceef

E
(20JBGO DJ11
CIDJ8G.P1

824
825
826
827
828
829

FXER & ONLNE
07-JUN-82 16:32

007514
007520
007522
007530
007532
007540

004737
006300
016061
006200
012737
017705

830
831
832
833
8346
835
836
837
838
839
840
841
842
843

007544
007550
007552
007554
007556
007564
007566
007574
007602
007610
007616
007620
007624
007626

042705
006305
006305
012304
033761
001414
016564
016564
116564
116564
005724
C€06337
103354
032777

845
846
847
848

007636
007642
007646
007650

052711
032711
001375
052711

844

849

850
851

007634

007654

007660
J07662

001024

062701

005200
020037

852
853
854
ggg

CN7666
007670
007676
007704

NN1264
012737
042737
000406

857
858
859
gg?

007706
007712
007716
007720

052711
005761
100775
000755

010032

001220

000004

000001
171444
177770

001260

000004

011236
011236
011240
011240

001312
002312
004312
004313

001260

001000

000010

14$:

158:

000001
000140
000001
000002

JSR
ASL
MOV
ASR
MOV
MOV

128:

001300
177776
218:
22%:

PAGE

PC,ALMCK
RO
SVSWO(RO) ,4(R1)
RO
#1,
MARK
ASWR
RS

SEQ 17

:NO.GO DO IT
JUNIT & + 2
;SET TCR BITS (CSR + &)
JRESTORE UNIT COUNTER
JSET UP MARKER
JGET SWITCH SETTINGS

BIC
ASL
ASL
MOV
BIT
BEQ
MOV
MOV
MOVB
Mov8
78T
ASL
8CC
8IT

CNTNIT(S) ,XMTCNT(4)
CNTNIT(5) ,RCVCNT (&)
(R4)+
JINC OFFSET TO NEXT LINE
MARK
148
#8IT9,
asSwR
JCHECK FOR ON-L INE

BIS
8l7
BNE
818

4,
(R1)
MBIT4,(RY)
20%
#1,(RY1)

BNE

001264

ADD

INC
P

#177%70,R5
sMASK MESSAGE #
RS
RS
(R3)+,
R4
;SET UP OFFSET TO TABLES
MARK,
4(R1)
;CHECK FOR LINE SELECTED IN TCR
158
ADRNIT(S5) ,XMTTAB(4)
ADRNIT(S) ,RCVTAB(4)

218

016.R1

RO
RO,

BNE
Mmov
8IC
BR

UNITS
118
#1,ALNFLG
lliO.
aPs
FORGND

8IS
TST
BNI
B8R

#1,(RY)
2(R1)
Zs:
1

;BRANCH If ON-LINE

¢sSET THE MAINTENANCE BIT AND CLR MOS
sWAIT FOR MOS TO CLEAR
sTURN ON RCV ENABLE

sPOINT T0O THE NEXT CSR

JSET THE ALARM LEVEL FLAG
;LOMER PROCESSOR PRIORJTY
<60 DO IV
:TURN ON RCV EN
JCLEAR JUNK OUT OF THE RBUF

:ttlttt.!tttttQttfiit!tttttttttttt.tt.ttltt.ttt.tQ.ltttt

sPROG1

864

BACKGROUND PROGRAM TO MONITOR TABLES

t.ttttttt.ttt.tti

:tt'tttt.t!tt&ntth.tttnt'ttti.tQttittttlttt.tttlt

865

: NOTE ~ PROGRAM MAY HANG IN A LOOP.

ggg

870
871
872
873
874
875
876
877
878
879

108:

208:

000001

863

868

30A(1052)
07-JUN-82
16:36
PROGT:
OFF-~LINE EXERCISER

171354

000014
000020

862

869

MACY11

.tttlttl.tttlttitt'tttt

s IF THIS HAPPENS, RUN DZDJA.
007722

007726

012701

012702

007732
007734
007736
007742
007744
007746
007752
007756

105711
001376
062701
005302
001372
012701
012702
121137

007762

003375

004312

000400

FORGND: MOV

218:

000002

004313
0004600
001306

22%:

MOV

#XNATONT R

#400,R2

IS8
BNE
ADD
DEC
8NE
MOV
MOV
CMPB

(R1)
218
JS.RI
R
218
#RCYCNT R
#400,R?
(R1),COUNT

BGT

22$%

sCHECK FOR COUNT TABLE CLR
JBRANCH IF NOT
260 TO NEXT LINE ENTRY
JCOUNT LINES
JBRANCH IF MORE LINES
IS # OF CHAR LEFT IN RBUF LESS THAN
sTHE SILO ALARM LEVEL
JIF NO WAIT FOR THEM

890
891
892
893

894
895

896

897
898
899

007764
062701
007770 005302
007772 001371
007774
005337
010000 001402
010002 000137
010005
005737
010012
001002
010014
000004
010020
012737
010026 000137
010032 012761
010040 052711
010044 052711
010050 005037
010054 005037
010060 005037
010064
012737
010072 005711
010074
100373
010076 112761
010104 005237
010110 105711
010112 100405
010114
004537
010120 000773
010122 000760
010124
000742
010126 042711
010132 052711
010136 022737
010144 001437
010146 063737
010154 023727
010162 002771
010164 001403
010166
163737
010174 013737
010202 013737
010210 063737
010216 023727

010224
010226
010234
010242
010244
010252
010260
010266
010272
010276
010300
010304

010312

010314
010320

002771
163737
013737
000411
012737
012737
012737
042711
032711
001375
004737
032777
001413
000004
010105

20A(1052)

000002
001216
007350
001276

016366

000020
014550
000001

000004
000001

23$:
001216

18:

000004

ALMCK:

001306
001310

001302
000200
000377
001306

001304

2s:

000006
1$:

010344

000001
000010
000001

001306

001306
001310

001310
000106

3s:

001306
001310
001310
001306
001310

001310
011244
011250
001310
000377

001306
001310

001310
011240

000377
000106
000106
000004
000020

011240
011244
011250

016316
010000
016741

5%:

6%:
78:

108:

4$:
b

886
837
888
889

07-JUN-82 16:32

MACY11

—

880
381
882
883
884
885

EXER & ONLNE

170676

\) wad
Lol
o]

(ZDJBGO DJ11
(2DJBG.P1Y

07~JUN-82

16:36

BACKGROUND MONITOR
ADD
DEC
BNE
DEC
8EQ
‘MP
ST
INE
MoV
JMP
MOV

8lS
8IS
CLR
CLR
CLR
MOV
TST
8PL
MOvB
INC
1ST8
8M!
JSR
BR
8R
BR

8Ic
8IS
CMP
8EQ

ADD
cMP

2
SEQ 18

PAGE 19

#2.R1
R2

;1F YES IGNORE THEM
sCOUNT LINES

TIMES

;DO THIS AGAIN?

223

;BRANCH ]F MORE LINES

238

‘NO, GET oUT

ISRFLG
18

;SEE IF FLAG IS ZERO
;IF NOT, BR

#20, TIMES
a#DONE

;D0 IT 16 TIMES THE NEXT TIME
‘SKIP ISR'S

#8iT2,

:SET THE MAINT BIT

PROG1

TRNERR

#1,4(R1)

1, (R1)

(R1)

COUNT
SUM

1I%ERA

sIF

YES. RCV DATA ERROR

iSET LINE O IN THE TCR

:SET RCV EN AFTER MAINTENANCE BIT

#200, TIMERB

;SET UP TIME CONSTANTS

#377,6(R1)

;OUTPUT A CHAR TO TBUF

521)

COUNT
(R1)

;WAIT FOR TRANSFER READY BIT

:COUNT EACH CHAR
;CHECK FOR DONE IN THE CSR

;IF SEY GET

;RETURN TO TEST FOR DONE AGAIN

ALMCK

:ERROR RETURN TRY AGAIN

RS, TIME

#8170, (R1)

#8173, (R1)
2;.counr
COUNT , SUM

OUT OF THE LOOP

:GIVE DONE TIME TO SET

;RETURN TO OUTPUT ANOTHER CHAR

sTURN OFF RCV ENABLE

;CLEAR MOS
:IF SILO LEVEL SET FOR ! THEN GET OUT
;GET THE LARGEST MULTIPLE OF THE

SUM,#%0.

;SILO ALARM LEVEL AND USE IT IN THE

COUNT., SUM

;IF GREATER SUBTRACT ONE COUNT OFF

5
6%

SUM,CNTNIT+4
SUM.CNTNIT+10
COUNT , SUM

sum. #577

:THREE SIZE LOCATIONS
;IF EQUAL USE IT

:AS CLOSE TO 70 AS POSSIBLE

;CONTINUE TO A COUNT Of 256

7
COUNT, SUM
SUM, CNTNIT
118
#377,CNINIT
#70. CNTNIT+4
#70, ,CNTNIT+10
#BITZ2,(RT)
?giT&,(Rl)

;TURN OFF THE MAINT BI?
JWAIT FOR MOS TO CLEAR

PC,KBDINT

JGET THE SWITCH REGISTER

;AS CLOSE TO 256 AS POSSIBLE
SALL SET GET OUT
sPUT SIZE TO MAX VALUE

#5W12,3S5WR
13%

;NO

R1,TTyY

JYES, PRINT (SR FIRST

MALARM

sFRINT ALARM LEVEL?

sieeF
o 4eF
Lleef

G
(ZDJBGO DJI1
(ZDJBG.P11Y

936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958

E ER & ONLNE
4 ~JUN-82 16:32

MACY11

004737
000004
01370s
004737
000207

010344
010350
010352
010356
010360

010366
010370

010372
010374
010376

105237

001012
005237
001007
023727
001002

30A(1052)

07-JUN-82
16:36
BACKGROUND MONITOR
JSR

TYPE,

13%:

001302

TIME:

001304
001306

000022

104001

28:
18:

SEQ 19

PAGE 20

PC,PRINTR

MSGDAS

MoV
JSR
RTS

COUNT, TTY
PC.PRINTR
PC

;PRINT ALARM LEVEL

INCB
BNE

TIMERA
1$

s INCREMENT THROUGH ONE WORD
:GO TEST FOR DONE AGAIN

gsg

{;MERB

IMAKE

CMP
BNE

COUNT ,#22
2%

sHAVE QUTPUTTED 18 TIMES
sNO, GO OUTPUT ANOTHER CHAR

HLT+1

005725
005725
000205

TST
TST
RTS

(RS)+
(RS)+
RS

TIMERB LARGER

FAST PROCESSOR

;;s Dggf DID NOT SET AFTER 18 QUTPUTS

sSET RS FOR ERROR RETURN
SET RS FOR NEXT OUTPUT RETURN
sRETURN FROM ABCVE OR RETEST DONE

"..."Qt.‘l't'tfi'fi"tt‘.itttll.'Q...t&tfit

:PROG1

LINKERS TO DJ11

tlfi'ttttttttttt.tttttttlttttt

INTERRUPT SERVICE ROUTINES

.tittt!itfi.tli'Qtt*t"'tt.t'.'t‘Qt'tltt...

.ttt'.tttttttttttttttttt'tt.t

010400 004037
010404
160012
010410 004037
010414
160010
010420 004037
160022
010424
010430 004037
160020
010434
010440 004037
010444
160032
010450 004037
010454
160030
012460 004037
0°0464
160042
010470 004037
010474
160040
010500 004037
010504
160052
010510 004037
010514
160050
010520 004037
010524 160062
010530 004037
010534
160060
010540 004037
010544
160072
010550 004037
160070
010554
010560 004037
010564 160102
010570 004037
010574
160100

011114
000000
011000
000000

011114
000040
011000
000040
011114
000300
011000
000100
011114
000140
011000
000140
011114
000200
011000
000200
011114
000240
011000
000240
011114
000300
011000
000300
011114
000340
011000
000340

RISRO:

JSR

X1SRO:

JSR

RISR1:

JSR

XISR1:

JSR

RISR2:

XISR2:

.WORD

<160012¢<o-10>> <40+0>

.WORD

&oo1Oo<o-10>> <40+0>

.WORD

.WORD
JSR
322“”

RCVISR

RO, XMTISR

6ootz¢<1-1o>> <&0+1>
RCVISR

no XMT]

<1300100<1t10>> <40=1>
RO, RCVIS
<1600120<2-10>> <40*2>

. WORD <1600100<2-10>> <402>

RISR3:

JSR

XISR3:

JSR

RISRG:

JSR

RO, RCVIS

XISRé:

JSR

uo XMTISR

RISRS:

JSR

RO,RCVIS

XISRS:

.WORD

JSR

RISRéG:

-WORD

JSR

<160010f<5t10>> <405

RO.RCVISR

X1SR6:

JSR

RO XMTISR

RISR7:

JSR

RO,RCVISR

X1SR7:

JSR

RO, XMTISR

.WORD

-WORD

. WORD

.WORD

WORD

.WORD

RO,RCVISR

<160012*<3-1o>> <40+3>

RO, XMTIS

<160010‘<3t10>> <40e3>

600129<4-10>> <40%¢>
<1600100<4-10>> <40vd>

60012+<S*1o>> <40%5>
0, XMT ISR

<160012*<6*10>> <40%6>
<160010¢<6+10>>,<40%6>

<1600120<7-10>> <40 7>

<160010*<7t10>>,<40-7>

CZDJBGO DJ11 EXER & ONLNE
07-JUN-82 16:32

(2DJBG.PT

992
993
994
995

996

997
998
999
1000
1001
1002
1003

1004

1005
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020

1021

1022
1022
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042

1043

1044

1045
1046
1047

010600
010604
010610
010614
010620
010624
010630
010634
010640
010644
010650
010654
010660
010664
010670
010674
010700
010704
010710
010714
010720
010724
010730
010734
010740
010744
010750
010754
010760
010764
010770
010774

004037
160112

004037
160110

004037
160122

004037
160120
004037
160132
004037
160130

004037

160142
004037
160140

004037
160152
00403°
160150

004037
160162

004037

160160
004037
160172
004037
160170
004037
160202
004037
16020C

MACY11

011114
000400
011000
000400
011114
000440
011000
000440
011114
000500
011000
000500
011114
000540
011000
000540

30A(1052)

RISR10:
XISR10:
RISR11:

XISR11:

RISR12:
XISR12:
RISR13:

XISR13:

011114

RISR14:

000600
011000
000600

XISR14:

011114

RISR1S:

000640
011000
000640

XISR15:

011114
000700
011000
000700
011114
000740
011000
000740

07-JUN=-82

ISR LINKERS

JSR
.WORD
JSR
.WORD
JSR
.WORD
JSR
.WORD
JSR
.WORD
JSR
.wORD
JSR
.WORD
JSR
.WORD
JSR
+WORD
JSR
.WORD
JSR
- WORD
JSR
+WORD

RISR16: JSR

«WORD
XISR16: JSR

- WORD
RISR17: JSR
-WORD
XISR17: JSR
-WORD

16:36

SEQ 20

PAGE 21

RO,RCVISR

<16001 2+<10%10>.,,<40%10>

RO_XMT]SR

<1600100<10-10>> <40«10>

RO,RCVISR

<1600120<11~10>> <40*11>

RO,XMTISR

<160010¢<11-10>> <40*11>

RO.RCVISR

<160012+<12+10>> ,<4012>

RO, XMTISR
<160010+<12¢10>>,<40+12>
RO.RCVISR

<1600120<13-10>> <40+13>

RO, XMTISR

<160010+<13-10>> <40*13>

RO,RCVISR

<1600124<14-10>> <40+14>

RO_XMT ISR
<160010+<14-10>> <40¢14>

RO, RCVISR

<1600124<15'10>> <40+15>

RO, XMTISR

<160010¢<15-10>> <40+15>
RCVISR

(1600120<16-10>> ,<40*16>
XMTIS
<1éooto.R<1e-1o>> <40+16>
RO.RCVIS
6oo1z‘<17o10>> <40e17>
XNTISR
<1éoo1o¢<17-1o>> <40+17>

.tt.tt.QQ'Q.Q.."*“.'.".Q.'...ti.l...

sPROG1

...ItQ.Q.‘.t..t't‘t't.t.t'.ttt.t.

TRANSMITTER INTERRUPT SERVICE ROUTINE

".'!t.ttlt.t'l&'.l'...t“"....Q.QQ..Q

.‘Q'Q‘...'.l.....t't‘tt..tlt....t

011000
011000
011002
011004
011006
011010
011012
011016
011020
011022
011026
011030
011036
011042
011046

011050
011052
011056
011060

XMTISR:

010146
010246
012001

005711

100035
116102

006302
061002
105762

001410

117261
105362
005262

000757
010346
005062
161002

006202

18:

000007

ASL
ADD
1578

004312
001312
004312
001312

001312

MOV
MoV
MoV
IST
8PL
MOove

000006

2$:

8EQ
MOVB
DECB
INC
BR
MoV
CLR

sus
ASR

Rl »~(6)

cPUSH R1 ON STACK

531)

¢CHECK FOR TRANS READY

z5R1).fl2

sGET LINE NO.

6;36;1

(RO) ,R2

§§TCNT(2)

SPUSH R2 ON STACK

sTST FOR ZERD

SXMTTAB(2),6(1) ;SEND A CHARACTER
XMTCNT(2)
{;TTAB(Z)

+COUNT CHARACTERS
sUPDATE TABLE POINTER

R3,=(SP)
XMTTAB(2)

:CLEAR TABLE POINTER

éSO).RZ

[

(Z0JBGO DJ11

(2DJBG.P11

1076
1077
1078
1679
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092

1093

1094

1095
1096
1097
1098
1099
1100
1101
1102
1103

30A(1052)

3s:
000004

07=JUN-82

TRANSMITTER

CLR
SEC

ROL

DEC
8PL
BIC

MOV

4(8:

012602
012601
012600
000002

MOV
MOV
MoV
RTI

16:36

ISR

‘SEQ 21

PAGE 22

R3
R3
RZ
38
R3,4(RT)
(SP)+,R3
18

(6)+,R2
(6)+ R1

(6)+,R0

sCLEAR TCR BIT FOR LINE
sRESTORE R3
sPOP STACK INTO R2

;POP STACK
;POP STACK

INTO R1
INTO RO

:.'tfi.t"ti"tt.ttttt"t't'fi.'.'tl.t

+PROG1

tttlt'Qtitttt't'titttt'.tt.tttttttt

RECEIVER INTERRUPT SERVICE ROUTYINE

;tt'itt.."'Q'Q".t'.""".l’tt't!t.t.tt

..ti‘t.!ttt'ttttt.tttttt'ttittt

011114
011114

011116

011120
011122
011124
011126
011130
011132
011136

011140

011142
011146
011150
011152
011154
011156
011160
011164
011170
011172
011174

011200

011202
011206
011210
011214
011216
011216
011220

RCVISR:

01014¢
010246
010346
010446
012001
011162
100032

032702
001403
104002

042702
010204

1%:

070000

105004

2s:

106304

117403

046403

120302

001403
042703
104003

105364

001402
005264
000744
012604
012603

002
005

002312

R1,-(6)

R2.-(6)
R3.-(6)
Ré.=(6)

(RO) +,R1

(R1) ,R2
73
#70000,R2

#70000, R2
R2,
R¢
Ré
Ré
Ré

(RO) R4
SRCVTAB(R,R3
L)
BASK
(&) ,R3
R3,R2

177400

004313

MOV
MOV
MOV
MOV
8PL

BIT
8EQ
HLT+2

000304

061004

MOV
MOV

#177400,R3

3$:

RCVCNT (4)

RCVIAB(4)

JPUSH R1 ON STACK
;PUSH R2 ON STACK

JPUSH R3 ON STACK

;PUSH R4 ON STACK
:GET RBUF ADDRESS
SREAD THE DATA

;BRANCH IF NO CHAR PRESENT

JCHECK FOR ERRORS
sBRANCH IF 0K

JRECEIVER ERROR
;R1=RBUF ADDRESS

:R2=CONTENTS 0f RBUF
;BIT12=PARITY ERROR
;BIT13=FRAMING ERROR
sBIT14=UART OVERRUN
:CLEAR ERROR BITS FOR SPEED
DUP THE RBUF

CLEAR THE DATA
LINE # TO LOW BYTE
LINE # = 2, ALSO CLR CHAR PRESENT

LS ATR THE

1069
1070
1071
1072
1073
1074
1075

011070
011072
011074
011100
011102
011104
011104
011106
011110
011112

—

1068

011066

005003
000261
006103
005302
100375
040361
012603
000741

1050

1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067

011062
011064

07-JUN-82 16:32

MACY11

1048
1049

EXER & ONLNE

JADD OFFSET
sGET EXPECTED DATA
JMASK CHARACTER LENGTH

sBRANCH IF 0K
sMAKE SURE UPPER BYTE C(LEAR

<DATA ERROR

cR1=RBUF ADDRESS
:R§=CONTENTS OF RBUF (DATA)
sRI=EXPECTED DATA

SUPDATE TABLE POINTER
s CONT INUE

(6)+,R4
(6)+.R3

<POP STACK INTO R3

+PCP STACK INTO R4

J
CZDJBGC DJ11 [XER & ONLNE
(ZDJBG.P11
07-JUN-82 16:32
1104
1105
1106
1107

gggg

011222
011224
011226
011230

11234

012602
012601
012600
005237

000002

MACY11

001276

Hbbhbhhiddbbdd

:PROG1

1112

1132
1133

1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1146
1145
1146
1147

1148
1149
1150
1151
1152
1153
1156
1155
1156
1157
1158

1159

011236
011240
011242
011244
011246
011250

011302
000377
011702
000106
011274
000106

011252
011254
011256
011260
011262
011264
011266
011270
011272
011274
011302
011303

016776
000001
017376
000001
017776
000001
020376
000001
020776
005015
040
041

011306
011307
011310
011311
011312
011313
011314
011315
011316
011317
011320
011321
011322
011323

044
045
046
047
050
051
052
053
054
055
056
057
060
061

011304
011305

011324
011325
011326
011327
011330
011331
011332
011333
011334
011335
011336
011337

042
043

062
063
064
065
066
067
070
071
072
073
074

075

bbb

DATA TABLES

A A

ADRNIT: BINARY
CNTNIT: 377
PHRASE
70.
SIxsIT
70.

177777

sPOP STACK INTO R?2
;POP STACK INTO R1
sPOP STACK INTO RO
JSTEP INT SVC RTN FLAG

A A A A

SEQ 22

PAGE 23

(6)+,R2
(6)+,R1
(6)+,RO
ISRFLG

RTI

111

1120
1121
1122
1123
1126
1125
1126
1127
1128
1129
1130
1131

07-JUN~B2
16:36
RECEIVER ISR
“ov
TM
Mov
INC

1110

1113
1114
1115
1116
1117
1118
1119

30A(7052)

T L 2

.BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
.BYTE
BYTE
.BYTE
.BYTE
BYTE
BYTE

s L

il Ll LT

L D

Ty P

:SW<2:0>=0 BINARY COUNT PATTERN
:S12E=256.
$SW<2:0>=1 "'THE QUICK SILVER GRAY FOX...''
:SIZE=70.
:SW<2:0>=2 040 THRU 137
:SI12E=70,

END
1
END+400
1
END+1000
1
END+1400
1
END+2000
.
SIXBIT: ASCII
<15><12><3775¢<377><377><377>
BINARY: .BYTE
40
BYIE
&
BYTE
42
LBYTE
43
BYTE
446
BYTE
45
BYTE
46
BYTE
&7
.BYTE
50
.BYIE
51
BYTE
52
BYTE
BYIE
BYTE
.BYTE
BYTE
BYTE
BYTE

soeef

53
54
55
56
57
60
61

6
6
64
65
66
67
70
71
72
73
74
75

sCR-LF, FILLERS

b cd

) eud b wud

147

011427
OO\ ONO\ONO M \NAAAVAWVIAA
VB W= O N
VB AN - O

.BYTE
.BYTE
.8YTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE
.BYTE
BYTE
BYTE
.BYTE

.BYTE
BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.8YTE
.8YTE
.BYTE
.BYTE
BYTE

.BYTE

AIND =2 O NONN B NN

.BYTE
BYTE
.BYTE

s O YON
D

s moldot ol o ol wndh el wod cad wnd ol v
L

D ol

s cld cnd

) wmd

D > B e

D e wmed

d cmd e

b N

AINININININ)
b e b e b ok b D O O OO OO OO ~Nos

el vud ol el vl

.BYTE
.BYTE
.BYTE
.BYTE
.8BYTE
.BYTE
.8YTE
BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.8BYTE

VAW D I

.BYTE
.BYTE
.BYTE

il i el nd salh s

e o md b b s (=]

.BYTE
.BYTE
.BYTE

143

30A(1052)

e sl vl e

b D o e

b o

NNNNNNN—‘—‘—‘—'-‘—‘—'—‘OOOOOOOO ~

b e o md b b b b o b e

O\IO\A‘\WN—‘ONOM#U‘N—‘Q\IOMJ\WN—'ONO‘V’IJ‘WN—GO ~

b wd w—b

D o oD o b b b -t b d e
b wod mrd b b b

076

MACYT1

OO ONONONON VWAV

N
-—d

b b cad wnd wed mub b wed mad
H D NN NN NN

Wh—=O~N

SRR

b o b o wd
b o b wmb e
W

i
l{=lelel-T-T-T.1.] inl{slelelelelatleY)(=L o)

NOMNIS
NN —

NNNNNNNNNOOO OO

b b cod b d b b b e b ed ok o o
b b b b bd
el ol b wd b i b b ad cnd cad e it b

(70JBGO DJ11 EXER & ONLNE
CZDJBG.P11
07-JUN-82 16:32

el vl o colh o

b wed ond med

SRIYR2RE0
28 SEIRIRER- ]

b vod wd

1160

wod vl wnd wmd mad

b b owd wnd b e

07-JUN-82

DATA TABLES

16.36

PAGE 24

SEQ 23

Qher Pru- P

1265

1271
P

h e

b ok ook

NOWVIBWN
2O

WVIVAVAWAWVIVAVAVA

222
.BYTE

.BYTE

.BYTE
BYTE

.BYTE
.BYTE
.BYTE
BYTE

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE
.BYTE
.BYTE
BYTE
.8YTE
.BYTE
BYTE
BYTE
.BYTE
.8YTE
.BYTE
.BYTE

.BYTE

BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.8BYTE
.BYTE

.BYTE
.BYIE
.BYTE

—b

d b d e

=2 QNN NIV

O NO VIS WA 2O NS NN = O~ o

.BYTE
.BYTE
.BYTE

AN LAY LN S TN LS TN N 1,8 )PONORNINININD)
~d =d ad cmd wd amd b —ad ok —
e cnd cd b COOOOOOO NN NNOON

.8YTE
.BYTE

NI
b b wed e

207

.BYTE
.BYTE
.BYTE

011447

—

30A(1052)

NN
2
D~

MACY11

VAVAAWIAAWIWVA
S

b b cod aed

166
167
NNSNNNN
N~
NON
NN — (=]

b md ok

CZDJBGO DJ11 EXER & ONLNE
07-JUN-82 16:32

PORINONINONONY

NN NININNINININONY
[\¥1,¥] b b b b b b ad b
-3 NOAD WO

—b

[=elelels) ~{=lelelotloto
Yol

(ZbJBG.P

e wmd el vk veh od

e Qour P

indoleleleloTT.]

07-JUN-82

DATA TABLES

222

16:36

2
PAGE 25

SEQ 24

b nd e

b e

b wd

e oveh ek

VWRNOWVBWN-D

b ek md

NN W W W IN W W W W

b b b o o

b e

b
nd b

b md b b )

2222222922220

Y —y

b b b ard cod e e cand d b [

(=]

ENE ‘*WWWWWWWWNNNNNNNN
NOM‘“WN—‘ONOM‘*WN—‘ONOU“*WN—'O

N VIV WMIWAWVIWAIWWMIVIWA
WAL VIV AV
AW
w W SN

07-JUN-82 16:32

1308

011607

MACY11
30A(1052)
.BYTE
.BYTE
.BYTE

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

.BYTE
.BYTE

.BYTE

.BYTE
.BYTE
.BYTE

.BYTE

.BYTE
.BYTE
BYTE
.BYTE
BYTE

.BYTE
.BYTE
.BYTE
.BYTE
BYTE

.BYTE

.BYTE
.BYTE

BYTE

.BYTE
.BYTE
.8YTE

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

ONORWVIH
NN = OO NS WO O

EXER & ONLNE

Wl AN AN N A N
N AN PO RNIPONIPV
NN PO NoIV
tpebe
e
bebo
e
bet
ottt
oP
O NNNNNNNNOON ONOCONONONONNAN
O NN
NI =2 O NN
NN

(ZDJBGO DJ11

b i o-

1284
1285

b b b b e

C(ZDJBG.P11

b nd el wnd med wmd

i ond b

1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283

OCOO0O0OO 00000000

oo ond wnd wad wud b cod

07-JUN~82

DATA TABLES

321

16:36
PAGE 26

SEQ 25

CZDJBGO DJ11 EXER & ONLNE
CIDJBG.P11
07-JUN-82 16:32

1328

1329

1330
1331
1332
1333
133,
1335
1336
1337
1338
1339
1320
1341

011610

011611

346

347

011612
011613
011614
011615
011616
011617
011620
011621
011622
011623
011624
011625

350
35
352
353
354
355
354
357
360
361
362
363

1343 011627
1344 011630
1345
011631
1346 011632
1347 011633
1348° 011636
1349 011635
1350 011636
1351
011637
1352
011640
1353 011641
1354 011642
1355
011643
1356 011644
1357 011645
1358 011646
1359 011647
1360 011650
1361
011651
1362 011652
1363 0116535
1364 011654
1365 011655
1366 011656
1367 011657

365
366
367
370
371
372
373
374
375
376
377
000
001
002
003
004
005
006
007
010
011
012
013
014
015

1342

1368
1369

1370
1371
1372
1373
1374
1375
1376

1377

1378
1379
1380
1381

1382
1383

011626

011660
011661

364

016
017

011662
011663
011664
011665
011666
011667
011670

020
021
022
023
02
025
026

011672
011673
011674
011675

030
031
032
033

011671

011676
011677

027

034
035

MACY11

30A(1052)

07-JUN-82
DATA TABLES

BYTE

346

.BYTE
BYTE
-BYTE
.BYTE
‘BYTE
BYTE
.BYTE
.BYTE
BYTE
BYTE
.BYTE
BYTE

350
351
352
333
354
335
356
357
360
361
362
363

.BYTE
.BYTE
BYTE
.BYTE
.BYTE
.BYTE
.BYTE
-BYTE
.BYTE
.BYTE
.BYTE
BYTE
BYTE
BYTE
-BYTE
BYTE
BYTE
BYTE
BYIE
-BYTE
BYIE
.BYTE
-8YTE
-BYTE
BYTE

365
368
367
370
371

BYTE

.BYTE

BYTE
BYTE

SEQ 26

364

372
373

374
375
376
377
D
1
2
3
&
S
6
7
10
1
12
13
1%
15

16
17

20
2
22
23
24
25
26

.BYTE
BYTE
BYTE
BYTE

30
3
32
33
34
35

.BYTE
.BYTE

PAGE 27

347

-8YTE
BYTE
BYTE
.BYTE
-BYTE
.BYTE
.BYTE

.BYTE

16:36

B
(ZDJBGO DJ11
CZDJBG.P11

EXER & ONLNE
07-JUN-82 16:32

13846
}ggg

011700
011701

036
037

1387
1388
1389
1390
1391

011702
011710

005015
044126

177777
020105

011724
011732
011740
011746
011754
011762
011770
011776
012004

053114
040522
020130
042105
020122
026066
030462
040514
043517
012012

051105
020131
052512
047640
026071
032065
027060
054532
020523

1392

1393
1396
1395
1396
1397
1398
1399

011716

041511

020113

MACY11

177777
052521

30A(1052)

PHRASE:

044523

043440
(047506
050115
042526
033470
026063
020060
042040
000

.EVEN

07-JUN-82
DATA TABLES

16:36

3
PAGE 28

.BYTE
.BYTE

36
37

.ASCII
-ASCIZ

<15><12><3775<377><377><377>
"'THE QUICK SIIVER GRAY FOX JUMPED OVER 9,876,543,210.0 LAZY
DOGS''’

SEQ 27

c
CZ0JBGO DJ11
(2DJSG P11

EXER & ONLNE

07-JUN=-B2 16:32

MACY11

3
SEQ 28

30A(1052)
07-JUN=82
16:36
PAGE 29
PROG2:
ON~LINE EXERCISER (TRANSMIT LAST CHARACTER RECEIVED)

1400
ttt'ttfit.t'ttttttttitttt'tttttttttt

:PROGRAM 2:

ON-LINE MULTI-ECHO EXERCISER

LINE.

TRANSMITS

THE

LAST

CHARACTER

RECEIVED

ITS

A CARRIAGE RETURN AND LINE FEED ARE

EVERY 72 CHARACTERS.

RESPECTIVE

INSERTED

:ifi'.tfittt'tt'tt.ifi.tt'fi'ttfi"t

ttttttfitt‘*ttttttttttttttt.t'tttfi

012012
012014
012020

012026

012032

012036

012040
012042
012044
012050
012052
012054
012056

000005
012706
052737
012701
012702
005021
005302
001375
012702
005201

001200
000340
001312
002000

PROG2:

177776

BIS

MOV

18:

000400

28:

105021

RESET

MOV

005302
001374

#STALK,

#340,

" a#PS

#XMTTAB,R1

MOV
CLR
DEC
BNE
MOV

#2000,
R2
(R1)+
R2
18
#600,R2

C(LRB
DEC
BNE

(R1)+
R2
28

INC

tttt't't

:CLEAR OUT THE WORLD

:RESET THE STACK POINTER

:PROCESSOR TO LEVEL 7
:FIRST TABLE POINTER

:LENGTH OF TABLES
:CLEAR THE TABLE

(WORDS)

:LENGTH OF MASK/COUNT TABLE

:SKIP MASK

:CLEAR COUNT

sROUTINE TO INITIALIZE ALL DJ11°'S AND THEIR ISR'S:
SSET UP ALL INTERRUPT VECTORS
sSET UP DEVICE ADDRESSES IN LINKER ROUTINES
;SET CSR'S EVERYTHING ENABLED
sSET TCR'S, ALL LINES ENABLED

012060

012062
012066
012072
012076
012100
012104
012106
012110
012114

012116
012120
012124
012126
012130

005000
013701
013702
012703
010322
013722
022323
010113
062723
005723
010322
013722
022323

010123

012721

P2INIT: CLR

001266
001270
012250

MOV
MOV
MOV
MoV
MOV
CMp
MOV
ADD

DEVADR, R1
VECADR, R2
#R2SRO,R3
R3,
(R2)+
RCVLVL, (R2)+
(R3)+,
(R3)+
R1,
(R3)
#2
(R3)+

001274

MOV
MOV
cMp

R3,
XMILVL,
(R3)+,

050501

MOV

1$:

001272
000002

MOV

(R$)+

R1,

#50501,

(R2)+
(R2)+
(R3)+

(R3)+

(R1)+

sSET UP POINTER TO L INKERS
:SET UP RECEIVER INTERUPT VECTOR
;ADD & TO R3
:ADDRESS OF (SR
:ADDRESS OF RBUF
;SET UP TRANSMITTER INTERUPT VECTOR
;ADDRESS OF (SR

;SET UP (SR

sBITO = RECEIVER ENABLE
:BIT6 = RECEIVER INTERUPT ENABLE
:BIT8 = TRANSMITTER SCAN ENABLE

b
b
b

Qur Prur P

b ek v

Y
P

b ek

RARSREYY

:BIT12 = STATUS ENABLE
NN

BNONL WO 0

:ttttttttttitfit.Qttt.tit""tttttfitt

olelelalelelel)

D
b

d e cnd

b ek

b ad

b ok

a2 2 X o F W S A

b s'~
b e ek Q

1601
1402
1403
1404
1405
1406
1407
1408

005721

006300
016011
006200
012737
012304
033711
001406

001220

000001
001260

001260
48:

ST
ASL
MOV
ASR
MOV

(R1)+
RO
SVSWO(RO),(R1)
RO
PE
MARK

gég

genx.

MOV

(R$)+,

:BIT14 = TRANSMITTER INTERUPT ENABLE

JUNIT # = 2
;SET TCR BITS FOR SELECTED LINES
;RESET UNIT COUNTER
SET UP MARKER

sSET UP OFFSET TO TABLES

;CHECK FOR LINE SELECTED

sieeF

D
(ZDJBGO DJ11
c20JBG.P11
1456
1457
1458
1459
1460
16461
1462

1463

1464

}222

EXER & ONLNE
07-JUN-82 16:32

012164
012172
012200
012202
012206
012210
012212

012214

012220

012222

012764
012764
005724
006337
103363
022121
005200

020037

001326

042737

016647
000045

012230
012236

012236

012240
012242
012244
012246

01270C
000241

020000

005540

1501
1502
1503
1504
1505
1506
1507
1508
1509
1510
1511

UNITS

BIC

#1640,

@#PS

:LOWER PROCESSOR PRIORITY
t'ttttt!tttttttttttttt'ttttttt

FOREGROUND PROGRAM 1D READ/WRITE MEMORY

tfittttttttt

ttttttttttttttttttttttt

MOV
cLe

#20000,R0

;TOP OF 4K BANK OF MEMORY

BNE
1si
BNE
8R

<(R0)

18
RO
18
FORP2

;FAST READ/WRITE TO MEMORY

ADC

*RAPID REPEAT
:CHELK FOR LOC 0
‘BRANCH IF MORE MEMORY
:LOCP FOR EVER'

:l"t'.fififi..'ttt.*t.ttttt"t'.t'tfilttttt'itt.tttttttttltttttittt'tttt'.tt

:PROG2 LINKERS TO DJ11

1481

1497
1498
1499
1500

FORP2:

1$:

001376
005700
001374
000770

1480

1496

RO,

:tittttttttttt'ttttttt't"'ttttttiltt.tttttfittttt

1479

1482
1483
1484
1485
1486
1487
1488
1489
1490
1491
1492
1493
1496
1495

177776

#M>GP2, XMTTAB(4) :SET UP XMTR TABLE
#45, ° XMTCNT(4) :SET UP COUNT
(R4)+
JINC OFFSET TO NEXT LINE
MARK
48
(R1)+,
[R1)+
JADD 4
RO

CMP

BNE

;PROG2

1469

1476
1475
1476
}2;5

MoV
MOV
TST
ASL
BC\
CMP
INC

:ttttttttttt.t"ttttt'ttttttttt

1468

1473

5%:

001264

000140

SEQ 29

20A(1052)
07-JUN=-B2
16:%6
PAGE 30
PROG2:
ON=-LINE EXERCISER (TRANSM]IT LAST CHARACTER RECEIVED)

001312
004312

001260

][.67

1470
1671
1472

MACY11

INTERRUPT SERVICE ROUTINES

;ttttttt'ttttt'ttttt'ttttttttit'ttttttttttttttitltinttit

012250
012254
012260
0122664
012270
012274
012300
0123064
012310
012314
012320
012324
012330

004037
160012
004037
160020
004037
160022
004037
160030
004037
160032
004037
160040
004037

013042
000000
012650
000000
013042
000040
012650
000040
013042
000100
012650
000100
013042

012340
012344
012350
012354

004037
160050
004037
160052

012650
000140
013042
000200

012334

012360
012364
012370
012374
012400
012404
012410
012414
012420
012424
012430

160042

004037
160060
004037
160062
004037
160070
004037
160072
004037
160100
004037

000140

012650
000200
013042
000240
012650
000240
013042
000300
012650
000300
013042

R2SRO:
_
AZSRO:
R2SR1:

X2SR1:
R2SR2:
X2SR2:
R2SR3:
X2SR3:

R2SR4:

X2SR4:
R2SR5:
X2SRS:

R2SR6:
X2SR6:
R2SR7:

JSR
MORD
JSR
LIORD
JSR
WORD
JSR
WORD
JSR
MWORD
JSR
JWORD
JSR

RO,P2RISR
<160012+<0+10>>, <0*40>
RO,PZXISR
<160020+<0¢10>>
<0*40>
,
RO,P2RISR
<160012+<1+10>>,<1+40>
RO.P2XISR
<160020+<1+10>>,
<1+40>
RO,P2RISR
<1600124<2+10>>, <2+40>
RO.P2XISR
<1600204<2+10>>
<2+40>
,
RO,P2RISR

JSR
LWORD
JSR
WORD

RO,P2XISR
<1600204<3+10>>,<3+40>
RO.P2RISR
<1600123<4*10>>, <4*40>

JWORD

JSR
JWORD
JSR
WORD
JSR
LWORD
JSR
JWORD
JSR
JWORD
JSR

<160012+¢3¢10>>,<3+40>

RO.P2XISR
<1600204<4*10>
440>
>,
RO,P2RISR
<160012+<5210>>,<5+40>
RO,P2XISR
<16002N+<5+10>>
<5+40>
,
RO,P2RISR
<160012+<6+105>
<6+40>
,
RO,P2XISR
<1600204<6%10>>,<6%40>
RO,P2RISR

'tfittttttttttttt

E
(ZDJBGO DJ11

OVMV
WA — O O 0 SNO

ViV VIV VIV
VLIS
WNNININI
NPOPINIPININ)
— s b ad

(2DJBG.P1

531
532
535

EXER & ONLNE

012434
012440
012644
012450
01245/
012460
012464
012470
012474
012500
012504
01510
012514
012520
012524
012530
012534
012540
012544
012550
012554
012560
012564
012570
012574
012600
012604
012610
012614
012620
012624
012630
012634
012640
012644

07-JUN-82 16.32
160102

004037
160110

004037
160112

004037

160120
004037
160122

004037
160130

004037

160132
004037
160140

004037
160142
004037
160150

004037
160152
004037
160160

004037
160162
004037
160170

004037
160172
004037
160200
004037
160202

004037
160210

MACY11

000340
012450
000340
013042
000400
012650
000400
013042
000440
012650
000440
013942
000500
012650
000500
013042
000540
012650
000540
013042
000600
012650
000600
013042
000640
012650
000640
013042
000700
012650
000700
013042
000740
012650
000740

30A(1052)

07-JUN-82

ISR LINKERS

.WORD
JSR
.WORD
R2SR10: JSR
.WORD
X2SR10: JSR
.WORD
R2SR11: JSR
.WORD
X2SR11: JSR
.WORD

X2SR7:

R2SR12: JSR

.WORD

X2SR12: JSR

16:36

3
SEQ 30

PAGE 31

<160012+<7+10>>,<7%40>
RO,P2XISR
<160020+<7+10>>,<7+40>
RO,P2RISR

<160012+<10%10>>,<10%40>

RO, P2XISR
<160020+<10%10>>,<10%40>
RO,P2R]ISR
<160012+4<11210>>,<11%40>
RO,P2XISR
<1600204<11¢10>>,<11+40>
RO,P2RISR
)
<160012+<12+10>>,<1¢240>
RO,P2XISR
<160620+<12+10>>,<12+40>
RO,P2RISR

.WORD
R2SR13: JSR
.WORD
X2SR13: JSR
«WORD
R2SR14: JSR
.WORD
X2SR14: JSR
+WORD
R2SR1S: JSR
.WORD
X2SR1S: JSR

RO,P2R]ISR
<160012+¢<14+10>>,<14240>
RO,P2XISR
<160020+<14+10>>,<14240>
RO,P2RISR
<160012+4<15+10>>,<15+40>
RO,P2XISR
]

R2SR16:

RO_P2RISR

<160012+<13+10>>,<13+40>
RO, P2XISR

<1600204<13¢10>>,<13+40>

<180020+<15+10>>, <15240>

<160012+<16+10>>,<16+40>

X2SR16:

RO, P2XISR

R2SR17:

RO.P2RISR

X2SR17:

RO, P2XISR

<160020+<16+105>>, <16240>

<160012¢<17%10>>,<17240>

<140020+<1710>>, <17+40>

;"."'".."...".'...""'..‘Q.....i.....

JPROG2

fl.Q""Q'.ltl.tll..tltt"tttt

TRANSMITTER INTERRUPT SERVICE ROUTINE

;'t.'t.it.t.lt.'...l'.“.'t...fi.t'i'fi.‘t!

t..I.tt't'.l.ttttt'tlttt'tttttt

012650
012650
012652
012654

012656

012650

012662

012666
012670
012672
012676
012700
012706
012712
012716
012720

010146
010246
012001
005711
100064
116102

006302
061002
105762

001413
117261
105362
105762
001357
005262

P2XISR:

18:

000007

001312

15718

ASL
ADD

004312

001312
004312
005313

MOV
MOV
MOV
187
BPL
MOVB

000006

8EQ
Move

DECB
1S18
BNE
INC

R1,~(6)
R2,~(6)

:PUSH R1 ON STACK
sPUSH R2 ON STA’X

zgt)

;CHECK FOR TRANS READY

;§R1).R2

;GET LINE NO.

(R0) ,R2
XMTCNT(2)

sTST FOR 2ERO

XMTCNT(2)
CNTTAB(2)
1%
XMTTAB(2)

sCOUNT CHARACTERS
sCHECK FOR MESSAGE OR DATA
sBRANCH [F DATA
SUPDATE TABLE POINTER

(ROY+.
R

28
SGET OUT
SXMTTAB(2) ,6(R1);SEND A CHARACTER

CZDJBGO DJ11
CZbJBG.P11
1568
1569
1570
1571
1572
1573
1576
1575
1576
1577
1578
1579
1580
1581
1582

1583

1584
1585

1586

1587

1588
1589
1590
1591
};3%

EXER & ONCNE
07-JUN-82 16:32

012724
012726
012732
012734
012742
012746
012754
012760
012762
012764
012766
012772
012?74
013000
013002

013004

000754
105162
001430

012762
060262
112762
105762
001336
161002

006202
005037
000261
006137
005302
100374

043761

013012
013014

000721
012762

013030

000712

013022

013032
013032
013034
013036
013040

112762

005313

002312
001312
000110
002312

001260
016442
000002

MOV
ADD
MOvB
I1ST8B
BNE
SuB

004312

ASR
CLR
SEC
ROL
DEC
8PL

5%:

000004
3$:

1%
CNTTAB(?2)
. CHANGE FLAG
3s
:BRANCH IF WAS DATA
#RCVTAB,XMTTAB(2} sSET UP POINTER TO KECEIVER TABLE
R2
XMTTAB(2) ;ADD OFFSET
l7é..
AMTCNT(2) ;COUNT 72. CHARACTERS TO THE LINE
RCVTAB(2)
;CHECK FOR A BREAK
1%
sBRANCH IF REAL DATA
(RO,
R2
+RECOVER LINE NUMBER
R2
MARK
:SET UP MARKER

MARK
R2
5%

sMOVE MARKER
;COUNT LINES
;BRANCH 1F MORE

MARK,

4(R1)

MOVB

a2,

XMYCNT(2)

MOV
MOV
MOV
RTI

(6)+,R2
(6)+ R1
(6)+,R0

SEQ 31

PAGE 32

BIC

B8R
MOV

A
¥

012602
012601
012600
000002

;CLEAR T(CR BIT

18
- CONT INUE
#RETURN,XMTTAB(2) :TYPE CARRIAGE RETURN, LINE FEED
18

;COUNTER OF 2 CHARACTERS

+POP STACK INTO R2
sPOP STACK INTO R1
sPOP STACK INTO RO

Hhbbhhiddhbddohbbdubbdbbbdidebd b L L2 T L L R L L L L L L T

:PROG2

1596

m——

001312

001312
004312

07-JiN-82
16:36
TRANSMITTER ISR
BR
coMB
BEQ

2s:

001260

1595

30A(1052)

001260

1594

1597
1598
1599
1600
1601
1602
1603
1606
1605
1606
1607
1608
1609
1610
1611
1612
}glz

013066

000771

1615
1616
1617
1618
1619
1620
1621

013076
013072
013074
013076
013100
013102
013106

010203
105003
000303
106303
961003
136302
001401

1622
1623

MACY11

013042
013042
(013044

013046
013050

013652
013054
013056
013062
013064

013110

MGV
MOV

010346
012001

104002

T N L Ll T

T T

L Y

T T Y

O p

P2RISR:

010146
010246

011102
100053
032702
001402
104302

RECEIVER INTERRUPT SERVICE ROUTINE

18:

070000

2%:

005312

MOV
MOV

MOV
8PL
BIT
BEQ
HLT+2

R1.-(6)
R2.=(6)

R3,~(6)
(RO)+,R1

{RY) ,R?
73
#70000,R2
2%

JPUSH RT ON STACK
sPUSH R2 ON STACK

JPUSH R ON STALK
:GET RBUF ADDRESS

JREAD THE DATA
sBRANCH IF NO (HAR PRESENT
JCHECK FOR ERRORS
JBRANCH IF Ok
JRECEIVER ERROR

B8R

;RI1=RBUF ADDRESS
JR2=CONTENTS OF RBUF
:BIT12=PARITY ERROR
;BIT13=FRAM!
4G ERROR
;BIT14=UART OVERRUN
+FORGET THE DATA

MOV
CLRB
SWAB
ASLB
ADD
8l18
BEQ

R2,
R3
R3
R3
R3
(RO) ,R3
MASK(3) ,RE
3s

;DUP THE RBUF
JCLEAR THE DATA
sLINE # TO LOW BYTE
SLINE # = 2, ALSO CLR CHAR PRESENT
sADD OFFSET
sCHECK CHARACTER LENGTH
JBRANCH IF OK

HLT+2

+CHARACTER LENGTH ERROR
;R1=RBUF ADDRESS

b md o amd

T, TN

Ll =1 ¥

C7-JUN-82 16:32

X 21, VT

&~ [

b cad

EXER & ONLNE

wn NN NININ)
b —

md
e
e

Puer Guur GuwGuar —

-P

o [elelolelele]

—t b cnd

[=lelelols)

W WINWW NI WWWWWW

i ead

(Z0JBGO DJ11
(Z0JBG.P1

013156
013162
013166
013174
013202
013204
013204
013206
013210
013212
013214

105763
001017
110263
161003
006203
005037
000261
006137

005303

100374
053761
000736
110263
105163

012763
112763

000723

012603
012602
012601
012600

000002

MACY11

002312

30A(1052)

07-JUN-82
16:36
RECEIVER ISR

3¢:

1ST8
BNE
MOvV8

002312
001260
001260

001260
002312
005313
016442
000002

4S:

000002
5%:

00131 2
00431 2
78:

;R2=CONTENTS OF RBUF (DATA)
sCHECK FOR BREAK

é§6>,

;RECOVER LINE NUMBER

5%
R2

MARK

ROL

MARK

DEC
BPL
8IS
BR

MOV
COM8
MOV
Move

MOV

MOV
MOV

Mov
RT1

SEC 32

PAGE 33

RCVTAB(3)

suB
ASR
CLR

SEC

:BRANCH IF REAL DATA
RCVTAB(3) :SAVE THE DATA

:SET UP MARKER
;UPDATE MARKER

X
MARK,

*COUNT LINES

2(n1)

*BRANCH IF MORE
.SET TCR BIT
*CONTINUE

R2,
RCVTAB(3) :SAVE THE DATA
CNTTAB(3)
:SET MESSAGE FLAG

#RETURN,XMTTAB(3)

f%,

(6)+,R3
(6)+,R2
(6)+,R1
(6)+,R0

XMTCNT(3)

TYPE

CARRIAGE RETURN,

;MESSAGE LENGTH

sPOP
sPOP
sPOP
sPOP

STACK
STACK
STACK
STACK

INTO
INTO
INTO
INTO

R3
R?
R1
RO

LINE

FEED

H
CZDJBGO DJ11
(Z0JBG.P1

EXER & ONLNE

07~JUN-82 16:32

MACY11

1649
1650

1677
1678
1679
1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704

013276

013302
013306

013310
013314
013316
013320
013324
013326
013330
013334
013336
013340

013344
013346
013350
013354

PROG3:

07-JUN-82

16:36

ECHO EXERCISER

PAGE

SEQ 33

.'i.'.'fi'iIQ...'.‘Q.Q.““"'" ittfitt

:PROGRAM 3:

ECHO EXERCISER

ttfittttit.tttttfitt.ttttttitt"t'tttti

:.ttt.'ttttttt'fi't'fitttttt'tttQ'ttttttt'

fit.t.tt.fitt.tttt!ttttttttttttttt

000005
012706
052737
012701
012702
005021
005302
001375
012702
005201
105021

001200
000340
001312
002000

PROG3:
177776

18:

MOV
MOV
CLR
DEC

WXMTTAB,R1
#2000,
R2
(R1)+
R2

:FIRST TABL, POINTER
:LENGTH OF TABLES (WORDS)
:CLEAR THE TABLE

MOV

#400,R2

:LENGTH OF MASK/COUNT TABLE

CLRB
DEC
BNE
MOV

(R1)+
R2
28
AEND,

:CLEAR COUNT

BNE

000400

2s:

016776

:CLEAR QUT THE WORLD

WSTACK,

BIS

005302

001374
012705

RESET

MOV

INC.

#340,

" 3PS

:RESET THE STACK POINTER

(PROCESSOR TO LEVEL 7

:SKIP MASK

:SET UP BUFFEP POINTER

sROUTINE TO INITIALIZE ALL DJ11'S AND THEIR ISR'S:
sSET UP ALL INTERRUPT VECTORS
sSET UP DEVICE ADDRESSES IN LINKER ROUTINES
cSET CSR'S EVERYTHING ENABLED
:SET TCR'S, ALL LINES ENABLED
005000
013701
013702
012703
010322
013722
022323
010113
062723
005723
010322
013722
022323
010123
012721

P3INIT:

001266

001270

013570

18:

001272

006200
012737
012304
010246
010346

033711
001420
010564
010564

RO
DEVADR, R1
VECADR. R2
#R3SRO.R3
R3,
(R2)+
RCVLVL, (R2)+

MOV
ADD

R1,
2

(RZ)
(R3)+

:ADDRESS OF CSR
:ADDRESS OF RBUF

MOV

R3,

(R2)+

;SET UP TRANSMITTER INTERUPT VECTOR

(R3¢,

(R3)+

cMP

000002

001274

MOV

cwp

MOV

050400

005721

006300
016011

CLR
MOV
MOV
MoV
MOV
MOV

(R3)+,

(R$)+

(R3)+

XMTLVL, (R2)+

(R3)+

#50400, (R1)+

;SET UP POINTER TO LINKERS
:SET UP RECEIVER INTERUPT VECTOR

:ADD & 7O R3

;ADDRESS OF CSR

3SET UP CSR. TRANSMITTER ONLY

:BIT8 = TRANSMITTER SCAN ENABLE

:BIT12 = STATUS ENABLE
:BIT14 = TRANSMITTER INTERUPT ENABLE
HH

1651
1652
1653
1654
1655
1656
1657
1658
1659
1660
1661
1662
1663
1664
1665
1666
1667
013264
1668
1669
1670
1671
1672
1673
1674
1675 013270
1676
013272

30A(1052)

ASL
MOV

001220
000001

001260
001312
002312

001260

RO
SVSWO(RO),(R1)

ASR
MOV

RO
1]

MOV

R2,~(6)

Sé;

ggnx.

Mov
MoV

R5, XMTTAB(4)
R5, RCVTAB(4)

MOV

28:

(R1)+

MOV

(R$)+,

R3.~(6)

MARK

(R1)

JUNIT & » 2
;SET TCR BITS FOR SELECTED LINES

SRESET UNIT COUNTER
:SET UP MARKER

;SET UP OFFSET TO TABLES
:PUSH R2 ON STACK

*PUSH R3 ON STACK

:CHECK FOR LINE SELECTED
;SET UP HEADER MESSAGE
;SET UP RECEIVER TABLE

sieek

o SO
000

—

~ NNNNN

NI hJNNUflURS-Jj b b o

b ad

NOWNHWN=O

b od ok ek b b d ad d b
W
NNNNNNN~N

CZDJBGO DJ11
(2DJBG.P11

1727
1728
1729
1730
1731
1732
1733
1734
1735
1736
1737

1738

1739
1740
1741
1742
1743
1744
1745
1746
1747
1748
1749
1750
1751
1752

1753
1754
1755
1756
1757
1758
1759
1760

EXER & ONLNE
07-JUN-82 16:3 2

013410
013414
013420
013422
013424
013426
013430
013432
013434
013436
013440
013444

013472

013702
012703
112325

MACYi1

001262
016715

3s:

001404
005302
001374

000403
105025

005302
001375
010564
005724
006337
103347
012603
012602
022121
005200
020037
001306
042737

30A(1052)
07-JUN-82
16:36
PROG3:
ECHO EXERCISER

A ¥

5%:

003312

6%:

001260

MOV
MOV

MOVB

8EQ
DEC
BNE
8R
CLARB
DEC
BNE
MOV
ST

ASL

8CC

Mov
Mov
CMP

INC
(MP
BNE
BIC

001264
000140

177776

BUFS1Z, R?

#MSGP3,

(R3)+,
5%
R2
3s
63

SEQ 34

PAGE 35

(R5)+

;SET UP COUNTER

cSET UP MESSAGE POINTER

;MOVE MESSAGE INTO BUFFER
;BRANCH IF END OF MESSAGE
sCOUNT BUFFER SIZE
JBRANCH 1F MORE
:BRANCH IF DONE

(R5) +
R2
48
R5 ,MAXTAB(4)
(R4)+

sCLEAR REST OF BUFFER
sCOUNT BUFFER SIZE
7BRANCH IF MORE
sSETUP BFR POINTER TABLE.
- INC OFFSET TO NEXT LINE

(6)+,R3
(6)+,R2
égT)*,
(R1)+

sPOP STACK INTO R3
:POP STACK INTO RZ
;ADD &

?2.

UNITS

#1640,

asPsS

sLOWER PROCESSOR PRIORITY

;tttt.ttt.t'fii'tti'tt."'t.'..t‘QQi'

;PROG3

tt.'ttttt'ttfi"tttt..tttttttt.t'tttt

FOREGROUND PROGRAM TO START RECEIVERS, THEN EXERCISE MEMORY.

;it.tfi.it'it't.t.ttttt.t.'ifitlQ!t..!l..t

t..t'..ttt..tt.i.t..'ttt.ttt.ttt

013500
013504

013510
013512

013514
013520
013522
013524
013530

013534

013540
013544
013546
013550
013554
013556

013560

013562
013564
013566

012701
012702
005711
001376
062701
005302
001372
013700
013701
052711

06270
005300
001372
012760
000241
005540
001376
005700
001374
000770

001312
000400

FORP3:

18:

000002

001264
001266
000101

ADD

2s:

000010

020000

MOV
MOV
TSTY
BNE

MEMX3:
1$:

DEC
BNE
MOV
MOV

#XMTTAB,R1

#400,R2
(R1)
18
#2.R1

R2
18
UNITS,
RO
DEVADR, R!

BIS

101,

ADD

20,

DEC
BNE
MOV
CLC
ADC

BNE
18T
BNE
B8R

sCHECK FOR XMTR TABLE CLR
sBRANCH IF NOT
:GO TO NEXT LINE ENTRY
s COUNT .LINES
cBRANCH IF MORE LINES
<SET UP UNIT COUNTER
sAND DEVICE ADDRESS POINTER

:SET RECEIVER ENABLES OF (SR

;BIT0 = RECEIVER ENABLE
;8176 = RCV INTERRUPT ENABLE

SUPDATE TO NEXT DJ11

sCOUNT DJ11°S

#20000,R0

sTOP OF 4K BANK OF MEMORY

=(R0)
1$

cFAST READ/WRITE TO MEMORY
sRAPID REPEAT

RO
1$
MEMX3

sCHECK FOR LOC O
sBRANCH IF MORE MEMORY

sLOOP FOR EVER!

:t.t!tt.ttttt'tfittttllt't.itt.it'QttQittt

;PROG3

l..Qi'Q!Q!tt"t"ittt!'it.‘t'tt

LINKERS TO DJ11 INTERRUPT SERVICE ROUTINES

;tttttt'.t'tt'tt.ttttt.'t".lifi'll‘l.Q.'.Q

"Qtt'ttit..tiiltt't'ttttt!ttt

013570
013574
013600

004037
160012
004037

014320
000000
014170

R3SRO:

JSR

X3SRO:

JSR

+WORD

RO,P3RISR
<160012+<0+10>>,<0+40>
RO,P3XISR

efF

J
(Z0JBGO DJ11
(2048G.P11

1761

1762
1763
1764

1765
1756
1767
1768
1769
1770

1771
1772
1773
1774
1775
1726
1777
1776
1779
1780
1781
1782
1783
1784
1785
1786
1787
1788

1789
179C

1791
1752
1793
1794
1795
1796
1797
1798
1799
1800
1801
180z
1803
1804
1805
1806
1807
1808
1809
1810
1811

1812
1813
1814
1815
1816

E XER & ONLNE

013604

013610
013614
013620

013624
013630
013634
013640
013644
013650

013656
013660
013664
013670
013674
013702
013704
013710
013714
013720
013724
013730
013734
013740
013744

013750
013754
013760
013764
013770
013774
014000
014004
014010
014014
014020
014024
014030
014034
014040
014044
014050
014054
014060
014064
014070
014074
014100
014104
014110
014114

014120
014124
014130
014134
014740

07-JUN-82 16:32
160020
004037
160022

004037

160030
004037
160032
004037
160040
004037
160042

004037
160050
004037

160052
004037
160060

004037
160062
004037
160070

004037
160072
004037
160100

004037
160102

004037
160110
004337
160112

004037

160120
004037
160122

004037
160130
004037
160132
004037

R3SR1:

014170

X3SR1:

000040

000040
014320
000100
014170
000100
014320

004037

RO,P3XISR
<160020+<1t10>> <1%40>
RO,P3RISR
<160012+<2t10>> <2+40>
RO,P3XISR

<160020+<2-10>> <r40>

R3SR5:

JSR

RO,P3R]SR

X3SRS:

JSR

014320
000300
014170

R3SR6:

X3SRé6:

JSR
.WORD
JSR

RO,P3RISR
<160012*<6'10>> <6*40>
RO,P3XISR

014320

R3SR7:

JSR

RO,P3RISR

014170
000340
014320

X3SR?7:

JSR

RO,P3X]ISR

000240

000300

000340

X3SR3:
R3SRS:

.WORD

-WORD

.WORD

<1600200<4'10>> <6x40>

<1600124<5t10>> <S+40>

RO,P3XISR

<1600200<5-10>> <5+40>

<1600204<6-10>> <6%40>

<160012*<7t10)> <7+40>

<1600200<7t10>> 740>

000400

R3SR10: JER
. WORD

RO,P3RISR
<5600120<10*10>>,<10%40>

000400
014320
000440

.WORD
RISR11: JSR

<1ooozo§<1o-1o>> <10+40>
PIRISR

014170

014170
000440
014320
000500
014170

014170

X3SR10: JSR

PIXISR

. WORD <169012¢<11~10>> <11440>

X3SR11: JSR

.WORD

R3SR12: JSR

.WORD
X3SR12: JSR

.WORD

R3SR13: JSR
.WORD
X3SR13: JSR

. WORD

R3SR14: JSR

.WORD

0,.PIXISR

<1600206<11~10>> <11+40>

RO.P3RIS
<1600120<12-10>> <12+40>
RO P3IXIS

<1600204<12t10>> <12+40>

RO,P3RISR

<1sgo;§;;13-1o>>,<13%40>

<1600200<13-1o>> <13¢40>
RO,P3RISR

<1600120<14.1o>> <14940>

X3SR14: JSR

RO,P3X]SR

014320

R3SR1S: JSR

RO,P3RISR

vi4170

X3SR15: JSR

RO,P3X1SR

R3SR16: JSR

RO,P3RISR

X3SR16: JSR

RO.P3XISR

000640

160170
004037
160172

000640
014320
000700

004037

.WORD

<160020+<0+10>>,<0%40>
RO,P3RISR
<160012+<1+10>>,<1440>

014320
000240
014170

000200
014170
000200

160162

004037

R3SR3:

PAGE 36

X3SRé:

000140

0146170
000140
014320

000540
014320
000600
014170
000600

160160

X3SR2:

LWORD
JSR
JWORD
JSR
.WORD
JSR
.WORD
JSR

16:36

RO,P3RISR
<1600124<3t10>> <3%40>
RO,P3XISR
<160020+<3'10>> <3*40>
RO,P3RISR
<1600120<4-10>> <4xl>
RO,P3XISR

160156
004037

004037

R3SR?:

07-JUN-82
ISR LINKERS

JSR
.WORD
JSR
.WORD
JSR
.WORD
JSR

000500
014320
000540

160152

30A(1052)

000000
014320

1606140
004037
160142

004037

MALY11

014170

LWORD

.WORD

<160020+<142105>>, <14%40>

<160012+<15-10>> <A5+«40>

<160020&<15r10>> <15«40>
<16001’0<16'10>> <16+40>

SEQ 35

K
(Z0JBGO DJ11
(ZDJBG.P11

EXER & ONLNE

07-JUN-82 16:32
160200

004037
160202

004037
160210

MACY11

000700
014320
000740
014170
000740

30A(1052)

07-JUN-82
ISR LINKERS

16:36

3
SEQ 36

PAGE 37

LWORD
R3SR17: JSR

<160020+<16210>>,<16%40>
RO,P3RISR

X3SR17: JSR

RO,P3IXISR

JWORD

LWORD

<160012+<17+10>>,<17+40>

<160020+<17¢10>>,<17%40>

:tt.itt'*tttitt'tt'tl'i't"ti..tttti

:PROG3

t'tfilttt.ttt'ttt'ttttttttttttfittt

TRANSMITTER INTERRUPT SERVICE ROUTINE

;ttt'it.ttt't..tti"'..tttltttttttti

ttt

tt.ttt'tttitttttttt.ttttttttttttttt

P3XISR:

010146
010246
012001
005711

18:

100043
116102

006302
061002
117261

000006

105072

005262
026262
001003
163762

001312
001312

105772

001351
010346

2s:

005062
161002

006202
005003
000261
006103
005302
100375
040361
012603
000733

3s:
000004
s

012602

014316

MOV
MOV

R1,~(6)
R2.~(6)

TST
8PL
MOV8
ASL
ADD
MOVB
CLRB
INC
CMP

(R1)
;CHECK FOR TRANS READY
48
7(R1).R2
;GET LINE NO.
R2
(RO) ,R2
@XMTTAB(2).6(R1);SEND A CHARACTER
3XMTTAB(2)
:CLR TABLE AFTER USE
XMTTAB(2)
;UPDATE TABLE POINTER
MAXTAB(2) ,XMTTAB(¢) ;CHECK FOR END OF BUFFER

SUB
TSTB
BNE

BUFSIZ.XMTTAB(2)
;RESET BUFFER POINTER
aXMTTAE(2)
;CHECK NEXT CHARACTER
18
:BRANCH IF MORE DATA

SuB
ASR
CLR
SEC

(RO) ,R2
R2
R3

MOV

BNE
5%:

MOV
CLR

ROL

DEC

(RO>+,R1

R3.=(SP)
XMTTAB(2)

MOV
ggy

:BRANCH IF NOT

;CLEAR TABLE POINTER

38
R3,4(R1)

MOV

;PUSH R1 ON STACK
:PUSH R2 ON STACK

BPL
8I¢

MOV

012601
012600
000002

(SP) +,R3Y

(6)+.R2

(6)+.R1
(6)+.R0

;CLEAR TCR BIT FOR LINE

:RESTORE R3

;POP STACK INTO R2

:POP STACK INTO R1
:POP STACK INTO RO

:tttittttt'.ttit'ttt&..‘!Q't.ifi.tt.tltlfi

;PROG3

!tii.‘.t..t.it'i't‘tii"t‘t'it‘.

RECEIVER INTERRUPT SERVICE ROUTINE

;i'tttl'ttitQ"'tt.'.'t!iifi'iitl.Q.i"‘l.ti

014320
014320
014322
014324
014326
014330
014332

P3RISR:

MOV
MOV

1$:

MOV
MOV

R1,~(6)
R2.~(6)

.t.i.i.ittiit'tli'tttt'tttltt

;PUSH R1 ON STACK
;PUSH R2 ON STACK

R3,~(6)

:PUSH RS

(RG> +, R

:GET RBUF ADDRESS

RG S =(6)

(R1).R2

ON STACK

:PUSH Ré ON STACK

*READ THE DATA

Jr++F

233

L
CZDJHGO DJ11
CZ0JBG.P1

EXER & ONLNE

1873
1874

1875
1876
1877
1878
1879
1380
1881
1882
1883
1884
1885
1886
1887
1888
1889
1890
1891
1892
1893
1894
1895
1896
1897
1898
1899
1900
1901
1902
1903

07-JUN-82 16:32

100077

032702
001402

MACY11

30A(1052)

07-JUN-82

RECEIVER

BPL
BIT
BEQ
HLT+2

070000

104002

ISR

16:36

3
SEQ 37

PAGE 38

8%
#70000,R2
2%

sBRANCH IF NO CHAR PRESENT
sCHECK FOR ERRORS
:BRANCH IF 0K
sRECEIVER ERROR

sR1=RBUF ADDRESS

sR2=CONTENTS OF RBUF
;BIT12=PARITY ERROR
014346
014350
014352
014354
014356
014360
014362
014366
014370

000771
010204
105004
000304
106304
061004
13€402
001401
104002

014372
014376
014400

005764
001002

014402
014404

000753
105774
001403
104002

014410

014412

2%:

005312

BR
MOV
CLRB
SWAB
ASLB
ADD

8lIr8

BEQ
HLT+2

002312

3s:

104002

002312

48:

TST

;BIT13=FRAMING ERROR
:BIT14=UART OVERRUN

1$
R2,
R4
Ré
R4
Ré
(RO) ,R4

:SKIP BAD DATA
:DUP THE RBUF
¢CLEAR THE DATA
SLINE # TO LOW BYTE
sLINE # = 2, ALSO CLR CHAR PRESENT
;ADD OFFSET

sBRANCH IF 0K
s CHARACTER LENGTH ERROR

MASK(4) ,R2

sCHECK CHARACTER LENGTH

;R1=RBUF ADDRESS
RCVTAB (&)

sR2=CONTENTS OF RBUF (DATA)

sCHECK FOR UNSELECTED LINE

BNE
HLT+2

‘s

sBRANCH IF 0K
SRECEIVED DATA ON UNSELECTED LINE
sR1 = RBUF ADDRESS

; IGNCRE THE DATA

1ST8
8EQ
HLT+2

SRCVTAB(4)
5%

:R2 = CONTENTS OF RBUF

sCHECK FOR DATA BUFFER FULL
sBRANCH IF 0K
;SOFTWARE DATA BUFFER OVERFLOW

;POSSIBLE TRANSMITTER PROBLEM

;R1 = RBUF ADDRESS

:NOTE:

014414

013216

014420
014424
014426
014432
014436
014444
014446
014454
014456
014464
014472

001312

014500
014504
014510
014512
014514
014516
014520

;R2 = CONTENTS OF RBUF

IF THE ABOVE ERROR WAS DUE TO OVERLOAD, INCREASING THE CONTENTS

OF 'BUFSIZ'' MAY RECTIFY THE PROBLEM.
"BUFSIZ'' MUST BE A MULTIPLE OF 2.

INCREASING 1T MAY CAUSE THE BUFFERS TO OVERFLOMW 4K.
JMP
PROG3
SRESTART ON THIS TYPE ERROR

002312
002312
003312

002312

001262

002312

003312
001262
002312
002312
002312

002312
002312
001312

6%:

187

8EQ
Move
INC
cHp
BNE

?gFSIZ.RCVTAB(Q) SRESET BUFFER POINTER

MOV
SuB

MAXTAB(4) ,RCVTAB(4) ;RESET TABLE POINTER
BUFSIZ ,RCVIAB(4)
sRESET BUFFER

MoV

RCVTAB(4
, XMTTAB(4)
)

INC
Sus

RCVTAB(4)
(RO) R4

MOovB

7$:

sCHECK FOR TRANSMITTER ACTIVE

gga

ASR

000261
006103

XMTTAB(4)

6$
cBRANCH IF INACTIVE
R2, RCVIAB(4)
;PUT THE DATA IN THE BUFFER
RCVTAB(4)
sUPDATE POINTER TO NEXT SPACE
?:XTAB(‘).RCVTAB(‘) sCHECK FOR END OF BUFFER
sBRANCH IF NOT

CLR
SEC
ROL

R2, SRCVTAB(4)

Ré

R3
R3

SUPDATE POINTER TO NEXT SPACE

soeef
- -"F

coeef

Joe¢f

m3
CZ0JBGO ?f11 EXER & ONLNE

(ZDbJBG.P

1929
1930
1931
1932
1933
1934
1935
1936

30A(1052)

005304

100375
050361

000677

1937

004737
062737
005537
000004
032777
001004
000004
000004

000002

1942
1943
1944
1945
1946

013700

014620

014622
014624
014626

014630
014632

001405
000005
014622
004710
000240
000240
000240
000137

000007
000177
000042

RECEIVER

8IS

8s:

016316
000001
001204
016411
002000

07-JUN-82

DEC
8PL

012604
012603
012602
012601
012600
000002

1938
1939
1940
1941

1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1958

07-JUN-82 16:32

MACY11

:
DONE

001206

B8R

MoV
MOV
Mov
MOV
MOV
RTI

JSR

ADD
ADC
TYPE

164410

sSET TCR BIT FOR LINE

(6)+,R4
(6)+,R3
(6)+,R2
(6)+,R1
(6)+,R0

sPOP
;POP
;POP
;POP
;POP

PC,

TYPE
MOV
BEQ
RESET

177
aNe2 RO
3s

.BELL

SENDAD = .
JSR
7.(0)

007316

3s:

KBDINT

#1,PCNT+2
PCNT
.MEOP

#5W10,aSWR
43

NOP
NOP
NOP
JMP

SEQ 38

PAGE 39

R4
7$
R>,2(R1)

8IT
BNE

TYPE

48:

ISR

16:36

RESTAR

STACK
STACK
STACK
STACK
STACK

INTO
INTO
INTO
INTO
INTO

R4
RZ
R2
R1
RO

sADD 1 TO THE PASS COUNT
JMAKE IT DOUBLE PREC.
sEND OF PASS INDICATOR

sRING THE BELL?
sNO!

JRING THE BELL

cTYPE A FILLER FOR 11/05
sGET MONITOR ADDRESS
:IF NONE
JRESET AND

;G0 TO MONITOR

;SAVE ROOM
;FOR
SACTH
JRETURN

N
CZDJBGO DJ11
(ZDJBG.F11

EXER & ONLNE

07-JUN-82 16:32

MACY11

30A(1052)

1959
1960
1961

1962
1963
1964
1965
1966
1967
1968
1969
1970
1971
1972

1973
1974
1975
1976
1977
1978
1979
1980
1981
1982
1983
1984
1985
1986
1987
1988
1989
1990
1991
1992
1993
1994
1995
1996
1997
1938
1999

2000

3
SEQ 39

07-JUN-82

16:36
PAGE 40
BELL AND SCOPE ROUTINE

SHLT

ERROR TYPEOUT HANDLER

sTHIS ROUTINE PRINTS OUT ERROR MESSAGES STARTING WITH THE

;ADDRESS OF

THE ''HLT''.

IT ALSO COUNTS THE NUMBER OF

ERRORS

sAND HAS THE CAPABILITY OF LOOPING ON ERROR, BELL ON ERROR,
JHALT'! ON ERROR, AN D INHIBIT TYPEOUTS, AN OPTIONAL ARGUEMENT

s(HLT+3) WILL BE PLA CED IN ""HLTCTS:"' FOR ADITIONAL TYPEOUTS.
014636
014642
014650
014652
014656
014662
014670
014672
014702
014706

014714
014722
014726
014732
014742
014746
014752

014754
014756

014762
014764

014766

014770
014776
015002
015004
015012
015014
015020
015024
015026

004737
032777
001402
000004
005237
032777
001026
000004
011637
162737
117737
013705
004737
000004
004737
005777

100001
000000
004737
000002

016316
002000
000007
001202
020000
014676
014766
000002
000046
014766

164340

164320

105337
100411

062737
010005
004737
000004
000764
000207

1%:

014766
014764

015374
014736

014770
164236

2s:

016316

JSR
8Ir
BEQ

PC,
KBDINT
#SW10,3SWR
1$

BIT

ERRORS
#SW13,aSWR

JRING BELL
¢COUNT THE NUMBER OF ERRORS
;sSKIP TYPEOUT IF SET

(6) ,HLTADR
#2 ,KLTADR
@HLTADR,HLTCTS
HLTADR,TTY
PC.PRINTR

;FUDGE ADDRESS
JGET HLT ARGUEMENT

TYPE
INC

BNE
TYPE
MoV
sSus
Movs
MOV
JSR
TYPE
JSR
TST
8PL
HALT

JSR

RTI

000000
000000
042737

EMTS:

,BELL

s
.o ¥

. *2

PC,.ERRORS
aSWR
PC,KBDINT

HLTCTS: 0

HLTADR:

007700
014764

000100
015374
016450

015012

2s:

3s:

€Al
ADD
MCV
JSR
TYPE,

RTS

JSKIP TYPEQUTS
s JASCIZ <15><12>

sPUT ADDRESS OF

INSTRUCTION ON STACK

sTYPE HLTADR IN OCTAL

;TYPE LEADING ZERQ'S

;.ASCIZ '

;G0 TO USER ERROR ROUTINE
JHALT ON ERROR
;SKIP IF CONTINUE

sHALT ON ERROR!

sRETURN
JHLT ARGUEMENT

ERRORS: BIr
18:
DF¢B

;BELL ON ERROR?
sNO - SKIP

sLAST HLT INSTRUCTION EXECUTED

ar;dn ¢

HLTCTS
3$

#100,2%

X0,17Y
%7.PRINTR

SPACE
1%

sTYPE REGISTER X

IN OCTAL

B
CZ0JBGO DJ11
(ZDJBG.P1

30A(1052)

012737
004737

000001

015176

16:36

SEQ 40

PAGE 41

OCTAL NUMBER INPUT ROUTINE

JSR
CLR
MOV
MOV

MOV
MOV
MOV
Mov

016214

1%:

000015
000060
177770

2053
2054
2055
2056

07-JUN-82

READIN: MOV

v15322

000020
015324
000120

b and sad cd wmd

015322

nN
~

- b

Ll L

MACY11

:SUBROUTINE TO SAVE INPUT AS OCTAL NUMBER

IV IV TV, TV, TV 1V )

2001
2002
2003
2004
2005
2006
2007
2008
2009
2010
2011
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 015172
2038
2039 015174
2040
2041
015176
2042 015200
2043 015204
2044 015210
2045 015212
2046 015216
2047 015220
2048 015224
2049 015230
2050 015234
015236
2051
2052 015242

EXER & ONLNE
07-JUN-82 16:32

gg'INH
REREAos
.
17

;G0 READ
EAD

R1,=(6)

;PUSH R1 ON STALK

(RS)+, R1

’

#20,CNT

#INPUT ,R2

CMPB
BEQ
CLR

ggzo.(ae)

CMPB
8EQ
SuB
BIT
BNE
ASL
8CS

R3. 415

MOVB

TTY UNTIL

N STACK

;CHECK FOR ‘P’

(R1)
(R2)+ ,R3

;BRANCH WHEN DONE

#60,R3

817777
,R3
0
3s

:BRANCH IF BAD DATA

(R1)

ASL

8CS

ASL

8(s
8IS

016214
177776

000205

015174

000000

010346
012703
022703
001415
105737
100375
113713
142713
122713
001403
122713
001006

000004
000750

111337

015324

015344

DEC

8R
CLZ
MOV

015174

MOV
Mov

MOV
MOV
RTS

177776
PSTEMP:

READS:
18:

MOV
MOV

2s:

177560

200177

0v0025

016132

48:

3s:

aAPS,

_ PSTEMP

(6)+,R3
(6)+,R2

(6)+,R}
:gYEHP. ares

<MAKE SURE Z-BIT IS CLR
SAVE CONDITION CODES

sPOP STACK INTO R3
;POP STACK INTO R2

sPOP STACK INTO R1
sRESTORE CONDITION CODES

s TEMPORARY STORAGE FOR PS

R3,-(6)

#INPUT ,R3
#INPUT+20,R3

;SAVE R3

:GET ADDRESS
sBUFFER FULL?

1578

43
30177560

sYFS = TYPE '
:uAéT FOR

MOv8

177562, (3)

sGET CHARACTER

BPL

177562
000200

015250

CMP
BEV

R3,(R1)
CNT
18

81(B
CMPB
BEQ
(MPB
BNE
TYPE

8R
mMovs

sA_CHARACTER

#200,(3)
:177.(3>

SGET RID OF JUNK
;gglgrl: zg?our

#25,(3)

’

L 42

(3),.TYPE

s ASCIZ **2'¢155<12>
=

:JAP THE BUFFER AND LOOP

JSET UP FOR TYPING

C
CZDJBGO DJ11
CZ0JBG PN

EXER & ONLNE
07-JUN-82 15:32

2057
2058
2059
2060
2061
2062

2063
2064
2065
2066
2067
2068
2069
2070
2071
2072
2073
2074
2075
2076
2077
2078
2079

2080
2081
2082
2083
2084

2085
2086
2087
2088
2089
2090
2091
2092
2093
2094
2095
2096
2097
2098
2099

2100

2101
2102
2103
2104

2105

2106
2107
2108
2109
2110

000004

122723

001343
005737
001401
000402
105063

000004
012603
000207

MACY11

30A(105¢2)

07-JUN-82

TTY

016132
600015

INPUT ROUTINE

TYPE
CMPB
BNE
TST
3EQ

015322

5¢%:

177777
000012

6%:

000000
000020

INHRE:
INPUT:

16:26

.. TYPE

#15,(3)+
INHRE

4
PAGE 42

¢ECHO T
sCHECK FOR RETURN
sLOOP IF NOT RETURN

CLRB

;ZAP RETURN (THE 15)

TYPE

:TYPE A LINE FEED

Mov
RTS

O
.BLKW

$OCTAL

sRESTURE R3

JRETURN

:TTY INPUT AREA

OCTAL TYPEOUT ROUTINE

;THIS ROUTINE IS USED TO TYPE AN OCTAL NUMBER ON THE TTY.

IT
;ALL 6 CHARACTERS, SUPPRESS LEADING ZEROES, TYPE AN 18 BITIADg
éégstvgs TYPE

:THE 16 BITS. IT IS CALLED VIA THE DUMP. SCUMP, DUMP18, OR BITYPE MACRO'S.
015364
015372
015374
015402
015404
015410
015416
015420
015424

015426
015431
015432
015440

015442

015444
015446
015450
015452
015454
015456
015460
015462
015466
015472
015474

015500
015504
015506

015512
015514
015520
015522
015526
015530
015532

012737
000411

112737
000402
005037
112737
010446

012704
105074

170101

015532

BITYPS: ggv

000001

015532

015532
177772

015533

015534

PRINTR: MOVB

#170101,.PR
LPTIT
#1,.PR

sSET BIT FLAG ANS 16. CHARACTER COUNT
:NOW TYPE IT IN BIT FORM
:ggIPZERO FILL SWITCH

PRINTS:

:SUPRESS LEADING ZERO'S
JSET COUNT

LPTIT:

000411

105014

032737
001004
006105

000100

015532

.PRL:

106114
006105
106114

006105

.PRF:

106114
105714

001402

105237
105737
001402
152724
105237

000060
015533

015534

112724

000060

000004
012604
000207
000012

015534

001002
105014

CLR

Mov8
MOV
MOV

CLRB
B8R
CLRB

BIT
BNE

ROL
ROLB
ROL
ROLB
ROL
ROLB
Ts18

8EQ
INCB
1S18
BEQ
81s8
INCB
BNE
cMp
BNE
MOVB
CLRB

015532
015532

001351
022704

B8R

.PR:

TYPE
MOV
RTS
BLKW

.46

#-6,.PR+1
R4 ,~(6)
#.PR+2
R4

(4)
.PRF
()

#100,.PR
+PRF

TTY
(4)
TTY

%)
TTY
(%)
(4)
. +6

.PR
PR

.46
#°'0.(4)+
PR+1
PRL
l.fiR*?.Ré
.t

#°'0,04)+
(&)
..PR+2

éé)f,Ra
¢
12

ISET
POINTER TO0 F FIRST ASCII CHAR.
H
cCLEAR FIRST BYTE

JROTATE FIRST BIT

cCLEAR BYTE OF CHARACTER
;8IT TYPING MODE?
2YES = SKIP 2 ROTATES
+ROTATE BIT INTO C
SPACK IT
SROTATE BIT INTO ¢
sPACK IT

cROTATE BIT INTO ¢

SPACK IT
;1S IT ZERO?
sSKIP INC
+SET FILL SWITCH
SCHECK FILL SWITCH

sSKIP BITSEY

sMAKE INTO ASCII CHAR
s INC COUNT
sREPEAT
SEMPTY BUFFER?
:SKIP IF NOT
JLOAD 1 2ERO
sNULL TERMINATOR

JTIYPE IT
RESTORE R4

RETURN
+cCOUNT, SWITCH, AND OUTPUT BUFFER

SEQ 41

D
CZDJBGO DJ11
(20J86.P11

EXER & ONLNE
07-JUN-82 16:32

2111
2112
2113
2114
2115
2116
2117
2118
2119
2120
S}S;

015556
015564
015572
015576
015576
015600
015602
015604
015606
015612
015620

012777
012777
010046
010146
010246
010346
010446
010546
010637
012777
000000

2123
2126
2125
2126
2127
2128
2129
2130
2131
2132
2133
2134
2135
g}gg

015622
015626
015630
015632
015634
015636
015640
015642
015644
015646
015650
015656
015664
015700

013706
005001
005201
001376
012605
012604
012603
012602
012601
012600
012737
012737
000004
000137

2138
%}28

015704
015706

000000
000776

2141
512%

015710
015712

000000
000024

2145

015716

0C0002

015704
000340

015710

015622

MACY11

30A(1052)

000126
000122

PDOWNS: MOV
MoV
MOV
MOV
MOV
MoV
MOV
MOV
MOV
MoV
HALT

#ILLUP,QPUVECS
#3640,8PUVECS+2
RO,=(6)
R1,-(6)
R2,=(6)
R3,-(6)
R4 ,=(6)
R5,=(6)
SP, .SAVR6
#PUPS ,QPUVECS

SET FOR FAST UP
;PRIO:7
sPUSH RO On¢ STACK
;PUSH R1 ON CTA(CK
JPUSH R2 ON S)1ACK
;PUSH R3 ON STACK
sPUSH R4 ON STA(CK
sPUSH RS ON STACK
;SAVE SP
;SET UP VECTOR
;WAIT FOR PF

PUPS:

MOV
CLR
INC
BNE
MOV
MOV
MOV
MOV
MOV
MOV
MOV
Mov
TYPE
JMP

.SAVR6, SP
R1
R1
1$
(6)+,R5
(6)+,R4
(6)+,R3
(6)+,R2
(6)+,R1
(6)+,R0
#PDOUWNS ,a#24
#340,a#26
.s ¥
RESTAR

;GET SP
sWAIT LOOP FOR THE TTY
;WAIT FOR THE INC
;0F
WORD
:POP STACK INTQ RS
sPOP STACK INTO R4
sPOP STACK INTO R3
:POP STACK INTO R2
sPOP STACK INTO R1
sPOP STACK INTO RO
;SET UP THE POWER DOWN VECTOR
;PRIO:?7
:.ASCIZ <15><12>' POWER"’
;JMP TO USER ADDRESS

HALT
BR

.~2

cTHE POWER UP SEQUENCE WAS STARTED
: BEFORE THE POWER DOWN WAS COMPLETE

000072

015710

18:

015556
000340
015670
007316

000024
000026

ILLUP:

000026

07-JUN-82
16:36
PAGE 43
POWER DOWN AND UP ROUTINES

.SAVR6: 0
PUVECS: 24,26

sPUT THE SP HERE
cPOVER UP VECTOR

YESRT:

:RETURN FROM TRACE TRAP

RTI]

SEQ 42

E
(ZDJBGO DJ11
CZ0JBG.P11

EXER & ONLNE
07-JUN-82 16:32

MACY11

30A(1052)

07-JUN-82
10T HANDLER

16:36

&
SEQ 43

PAGE 44

2146

2147

Hihdohbbdbduididihbddodddbddbbbd

2148
2149

2150

2151
2152
2153
2154
2155
2156
2157
2158
2159
2160
2161
2162
2163
2164
2165
2166
2167
2168
2169
2170
g};;

015729
015724
015726
015732
015736
015744
015752
015760
015766
(015770
015772
015776
016000
016004
016012

016014
016016
016022
016024

022716
002440
142716
000004
005015
042520
044440
050125
000040
012605
004737
005726
000004
043040
000
016014
011605
004737
(00000
C00002

001000
000004

015736
047125
052103
052116
020124

054105
042105
051105
047524

016004
047522

020115

015404

2175
2176
2177

s LT L

T R

R L L

L L T D

Ll L

T T T

T T PP

#1000,
(SP)
sCHECK RETURN ADDRESS
10T$
;BRANCH IF TYPE COMMAND
4
(SP)
:GET VECTOR ADDRESS
.42
s TVYPE MESSAGE
<15><12>"'UNEXPECTED INTERUPT TO **

MOV
JSR
1ST
TYPE,
LASCIZ

(SP)+,TTY
PC.PRINTS
(SP)+
.32
'* FROM ''

sTYPE (SP)+ IN OCTAL
;AND SUPRESS LEADING ZERO'S
sPOP STACK
:TYPE MESSAGE

.EVEN
MOV
JSR
HALTY
RT]

\SP),TTY
PC,.OPRINTS

sTYPE (SP) IN OCTAL
;AND SUPRESS LEADING ZERO'S
<FATAL ERROR
sCONTINUE IF DESIRED

STYPE

MESSAGE TYPEOUT ROUTINE

sTHIS ROUTINE IS USE TO TYPE ASCI] MESSAGES ON THE TTY. ThE
SCALL CAN BE IN ONE OF 3 FORMS: 1) “‘TYPE ,ADR'’ - TYPES THE
sMESSAGE STARTING IN LOCATION ‘ADR:'’, 2) "“TYPE ,CHARTM - TYPES

2178

csTHE ASCII ''CHAR'', AND 3) ‘PRINT <<1§><1Z>'¥SSAGE"> - TYPES

g}gg

2193
2196
2195
2196
2197
2198
2199
2200
2201

10TRAP: (MP
BLY
suB
TYPE,
CASCIZ

015404

5};2

2181
2182
2183
2184
2185
2186
2187
2188
2189
2190
2191
2192

¢ 10T HANDLER - REENTERENT ROUTINE TO INDICATE A FALSE
H
INTERRUPT OR TRAP, OR TO TYPE A MESSAGE
M
A

sTHE MESSAGE WHICH IS INLINE ASCII.

016026
016030
016034
016020
0160+2
016046
016052
01605¢
016056
016062
016066
016070

016072
016076
016104
016110
016112
016116
016122
016126
016120

G10546
017605
032705
001004
C?9537
012705
105715
001406
112537
105737
100375
000770

017646
062766
022666
001006
062705
042705
010566
012605
000002

1078:

000002
177400

016132
016132

18:

177566
177564

000002
000002
000002
000002
000001
000002

000004

28:

3s:

MmOV
MOV
Biv
BNE
MOV
MOV
1ST8
BEQ
MOve
TST8
BPL
B8R

MOV
ADD
(mMp
BNE
ADD
8lc(
MOV
MOV
RTI

TTY,-(8§)
82(6) ,TTY
0177460.YTY
18
TTY, . TYPE
®.YYPE TTY
(rry)
23
(TTY)+ @#177566
177564
.~
18

82(6) ,~(6)
#2,4(8)
(6)+,2(6)
3s
#2,77Y
1,17y
TTY,2(6)
(6)+,17Y

SSAVE 11y
<GET ADDRESS TO BE TYPED
1S IT A TYPEM?
<NO
sGET THE CHARACTER
+FUDGE THE ADDRESS
s TERMINATOR?
cGET OUT IF SO
;LOAD AND TYPE THE CHARACTER
+1S THE PRINTER READY
sWAIT UNTIL IT IS
cGET THE NEXT CHARALTER

;GET ADDRESS TO BE TYPED
JADD 2 TO THE ADDRESS
JIS IT 22
:NO
;ADD 2 TO THE ADDRESS
sBACK UP TO AN EVEN BYTE
+RESTORE ADDRESS
JRESTORE TTY
sRETURN

(<DJBGO DJ1Y
(ZDJBG.P11

2202
2203
2204
2205
2206
2207
2208
2209
2210

2211
2212
2213
2214
3215
2216
2217
2218
2219
2220
2221
2222
2223
22264
2225
2226
2227
2228

016132

000000

016134
01 6142
016 144
016 150
016154
0165160
016164
016170
016172
016176
016202

022737
001023

016204

000004
013705
s

004737
000004
0046537
016364
001360
022737
001403

013777

016212

000207

016214

000000

016216
016224
€16226
016234

020040
000040
005015
000040

016236
016242
016246
016254

013746
013746
012737
022777

015262

016264
016266

2257

EXER & ONLNE
07-JUN-82 16:32

001402

000407
022626

000176

MACY1'

001210

30A(1052)

07-JUN=-82

TYPE ROUTINE

.TYPE:

CNTLU:

CMP
BNE

#SWREG, SWR

JSR

PC,PRINTR

“SR
.WORD
BNE
CMP
8EQ
MOV

R5,READIN
TMP1
CNTLY
#20,CNT
1$
TMP1,aSWR

016226
G00176

TYPE
MOV

0
016216
015

TYPE

000020

016214

016364

162776

16:36

1$:

RTS

CNT:

. SWREQ
SWREG, TTY
LNEWIS

NEWIS:

LASCIZ

053523

036522

SWREQ:

LASCIZ

<15><12>''SWR= **

000004

MOV

162726

016270
0i6276
016304
016310
016314

012737
0312737
012637
012637
000207

000176
000174
000004
000006

016316
016324
016326
016332
016340
016346
016354
016356
016362

022737
001016
005037
113737
142737
122737
001002
004737
000207

000176

001210

016364
177562
000200
000007

016364
016364
016364

016364

000000

016366
016374
56402

005015
052101
042503
000
015

001210
001212

016134

#is,4

cnp
MOV
MOV

(SP)+_ (SP)«
#SWUREG,
SWR
#DISPREG.DISPLAY
(SP)+,4
(SP)+,6
PC

RTS

KBDINT:

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

#-1.3SWR
28

MOV
MOV

CMP
8NE

CLR
Mov8

#SWREG, SWR
1$
TMP1
177562, TMP1

8Ics

#200, TMP1

BNE
JSR

18
PC.INTLU

CMPB

1%:

RTS

TMP1:

SWREG IN OCTAL
LEADING ZERC'S

NEw= **

cMP
BEQ

B8R

<TYPE
;TYPE

036527

SUSWRR: MoV
MOV

s CHARACTER TYPE LOCATION

042516

000006
000004
016266
177777

PAGE 45

#7,TMPY

047516
020101
053111

062040
042522
042105

TRNERR:

<ASCIZ <15><12>'NO DATA RECEIVED'*

0642412

050117

MEOP:

CASCIZ <155<12>"E0P""

soe+F

G
EXER & ON LNE

07-JUN-82 16:32

000
043
051440
020124
036440
005015

020040

015
0451C4
020060
030461
020122
047114
005035
020124
040440
051523
005015
051117
042522
000040
005015
043117
023461
000
015
051107
020072
005015
030512

pour Gy Gur e

2258
2259
2260
2261
2262
2263
2264
2265
2266
2267
2268
2269
2270
227
2272
2273
2274
2275
2276
2277
2278
2279
2280
2281

elelolelelale
el
Gur s rd

-—'

cZDJBGO DJ11
(20)8G.P

015

031107
047117
052517
047510
0461522
005015
015

047510

025124
040
015
020117
020115
020114
051503
016776

000000
000001

000040
046105
044514
000040

177777
000
177612

026502
020040
04¢440
020046
000105
044506

MACY11

30A(1052)

041505

MNUM:
MSGSEL:

000377

RETURN:

042516

055103
026507
045104
0642530
047117

051522
030461
042522
000040
052103
042104
020072

07-JUN=82

TYPE ROUTINE

16:36

4
SEQ 45

PAGE 46

LASCIZ '» '
CASCIZ *' SELECT LINE =
5153<12><377><377><377>

SPACE:
MSGMDN:

<15><12><377>''C2DJB=~G~0

DJ11 EXER & ONLNE®'

MSGADR:

ASCIZ

<155<12>*'FIRST DJ11 ADDRESS:

MSGVEC:

«ASCIZ

<15><12>*'VECTOR ADDRESS:

020056

MSGNUM:

ASCIZ

<15><12>'N0. OF DJ11°S:

047522
021440

MSGPRG:

«ASCI2

<15><12>' PROGRAM #:

047516
023461

0462040
020523

MSGO1:

ASCIZ

<15><12>'N0 DJ11°S§!*

050012
020072
044524
020123
062440
051511
000
025012
052040
005015
020055
051412
046101
042514
047506
006522

047522
041440
052516
041505
042530
051105

MSGP2:

ASCIZ

<155><i2>'PROG2:

041505
051505
000
000
046111
051101
042526
020122
000012

MSGP3:

ASCIZ

<155<12> «ECHD TEST*"¢155<1>

045104
042104

020072
042526
040440
051523
047516
042040
035123
050012
046501
000040

030512
020040

*°

°**

CONTINUOUS ECHO EXERCISER *<15><12>

MSGDAS: JASCI2
MALARM: -ASCI2 <15><12>°'SILO ALARM LEVEL FOR CSR''<15><12>

.EVEN
END:
.END

(Z0JBGO DJ11
(ZDJBG.P1?
ADRNIT
ALL
ALMCK
ALMFLG

EXER & ONLNE
07-JUN-82 16:32

011236
007276
010032
001300

BEGIN
006312
BELL
= 000007

BINARY

BITYPS
BITO
=
8IT1
=
BIT10 =
BIT11 =
BIT12 =

011302

506
&71n

1114

015364
000001
000002
002000
004000
010000

20764
4724
4734
4824
4834
484n

BIT14 = 040000
BIT15 = 100000

4864
4874

BIT13 = 020000

FORP3
GETLEN
GETVEC

006762
006542

HLT
= 104000
HLTADR
014766

HLTCTS

ICNT
ILLUP
INHRE
INPUT
IOTRAP
1078
ISRFLG
KBDINT
LEveL7=

014764

001200
015704
015322
015324
015720
016026
001276
016316
000340

L4764
“77n
478%

675

1971

928
846

929

732
843
1705
2029+

1841
2213

1917
2218#

1920

589+
1569
894~
620

838
1639«
901«
660

839

917«

918«

923+

925+«

926+

927«

910
677

912
696

916
800

919
1429

922
1676

938
1739

948

1890

1895

1901

22044

588+
1565
877
596
2234~
2234
890

19684
1122
577«
19924

4594
1976+

950
1977«

5114
211
2004+
2012
74
2153
5434
931
4<88#

853«

820

868+
1477

1978+

11144
7494
907
822

680

855
14718
17314

656
609

SEQ 46

30A(1052)
07-JUN-82
16:36
PAGE 48
CROSS REFERENCE TABLE =-=- USER SYMBOLS

908

892
909

587«
5654
474
5394
S16#
5024
596#
612
575
1120
5124
1982

007722
012230
013500

11304

L74n
4754

CNTNIT
011240
CNTTAB= 005313
COUNT
001306
DEVADR
(001266
DISPLA
001212
DISPRE
000174
DJMAP
006460
DONE
014550
EMTS
014636
END
016776
ERRORS
001202
ERRORS 014770

FORGND
FORP2

5674
1947

655

4794
4804
4814
5374
2011+

016134

837
733
8914
586+

4854

BIT2 = 000004
BIT3
= 000010
BIT4
= 000020
BITS
= 000040
BiT6
= 000100
BIT7 = 000200
8178
= 000400
BIT9 = 001000
BUFSIZ
001262
CNT
016214
CNTLU

836
727
824
S44n

MACY17

2212

2247

19404

1124
1972+«

1126
1989

1128

1667

23064

1076
1978

1093
1979

1607
1990#

1622

1876

2060
2043

20684
20654

886
1968

1107+
1986

6734
618#

1989%#

21384
2006+
2042
2152#
2181»
779+«
1941

1993«

22404

M5«

CZDJBGO DJ11 EXER & ONINE

(20JBG.P11
MALARM
MARK

MASK
MAXTAB

MEMX3

MEOP
MNUM
MSGADR
MSGDAS
MSGMON
MSGNUM
MSGPRG
MSGP2

MSGP3

MSGSEL
MSGVEC
MSGO1
N
=

016741
001260

005312
003312

013550

016411
016417
016514
016735
016453
016570
016613
016647

016715

016422
016544
016632
000040

NEWIS
016216
OPEN
= 000000
PCNT
PDOWNS
PHRASE
PRINTR
PRINTS

PROGAD
PROGNO
PROGT
PROGZ

PROG3

001204
015556
011702
015374
015404

007340
007340
007350
012012

013216

PS
= 177776
PSTEMP 015174

PUP$
PUVECS
P1INIT

015622
015712
007422

07-JUN-82 16:32

MACY11

934
5364

23004
828+

5644
5594

565
17215«

1697~

176464

1944
737
659
937
657
665
728
1456

1706

740
662
610
3994

11630
11564
11694
11824
11954

1701

1752

30A(1052)

CROSS REFERENCE
834

1717«

1089
1915

11324

11334

174460
11574
11704
11834
11964

11654
11584
11714
11844
11974

532

533

534

766

767

4O1r
2032«

2120
2111+

7994

SEQ 47

PAGE 49

TABLE ~~ USER SYMBOLS
1452+«

1454

1620
1919

1888

16459+

1578«

11364

11374

1580«

1583

1630«

1632«

1635

11384

11398

11608

11418

11420

22964

22604
22754
22864
11314

12104
12234
12364
12494
12628
12754
12884
13014
13144
13274
13404
13534
13664
13794

761
730
765

16:36

22574
22594
22714
22994
22654
22794
22834
22894

12094
12228
12350
12688
12614
12760
12874
13004
13134
13264
13394
13524
13654
13780
22204

5134
573
1116
661
664

861e

697
1839

12084
12214
123640
126478
12600
12734
12864
12994
13120
13254
13380
13514
13647
137740
2209
4894

07-JUN-82

520

578«
21114
13874
936
667
764#
756
7784

14084

16544

568+
2036

21234
2112«

11460
11598
11720
11854
11984

11344

11478
11604
11738
11864
11994

11354

11484
11614
11740
1187¢
12004

11494
1162¢
117584
1188¢
12014

11502
116384
11768
1189¢
1202¢

11514
1164#
11778
1190#
1203#

1152¢
11658
11788
11918
1204#

1153#
11664
1179¢
1192¢
12054

1154#
11674
11804
11938
12064

1155#
1168#
11814
1194#
1207#
12204
1233#
12464
1259w

12114
1% 4O
12374
12504
12638
12768
1%89’
13024
13154
13284
13614
1354w
1367%
13804

1212#
12258
12368
1551!
12648
12778
1§9g0
13034
13164
13294
13420
13554
13684
13814

1%13’
1226
1239
12520
12658
1278
12914
1304#
13178
13304
1343¢
13564
13694
1382¢

12168
12278
12408
12538
12668
12798
1%920
13054
1318%
13314
13440
13572
13704
1383¢

12158
12284
12418
1254w
12678
12808
12938
13064
1319¢
13328
1335¢
13584
13714
13844

12164
1229¢
12428
1255
12688
12814
12948
1307¢
13208
13338
13%6@
1359¢
13728
13858

12178
12308
1243#
12568
1269#
12828
12954
1308Y
1321#
13%4e
13478
1360¢
1373
13864

1218%¢
1231
12448
12578
12708
12838
12968
1309
13228
13358
13488
13618
13748

12198
12328
12454
12588
12718
1284#
12978
1310¢
13234
13364
13492
13628
1375

12724
1285#
1298#
1311#
1324#
1337#
1350#
1363#
13764

522

523

524

525

526

527

528

529

530

531

579+
2133

1942«

1943«

1959

939
739

1980
20804

1997
2162

2078+
2169

2208

781+
20394

854+

1610+

1465+

1656+

1725+

2032

2036+

2120«

21424

521

535

7634
885

1909

J
(Z0JBGO DJT1
(ZDJBG.P11
P2INIT
P2RISR
P2XISR

EXER & ONLNE
07-JUN-82 16:32

012060
013042
012650

PIINIT
FIRISR

013270
014320

P3IXISR

014170

RCVCNT= 004313
RCVISR
011114
RCVLVL
RCVTAB

READIN
READS
REPORT
RESTAR
RETURN
RISRO
RISR1
RISR10
RISR11

RISR1Z2
RISR13
RISR14
RISR1S
RISR16
RISR17
RISR2
RISR3
RISRSG
RISRS
RISRS
RISR7
R2SRO
R2SR1
R2SR10

R2SR1T
RZ2SR12
R2SR13
R2SR14
R2SR15
R2SR16
R2SR17
R2SR2
R2SR3
R2SR4
R2SRS
R2SR6
R2SR7
R3SRO

R3SR1
R3SR10

001272
002312

015030
015176
006676
007316
016442
010400
010420
010600
010620

010640
010660
010700
010720
010740
010760
010440
010460
010500
010520
010540
010560
012250
012270
012450

012470
012510
012530
012550
012570
012610
012630
012310
012330
012350
012370
012410
012430
013570

013610
013770

14284
1483

1535

MACY11

1487

1539

4
SEQ 48

30A(1052)
07-JUN-82
16:36
PAGE 50
CROSS REFERENCE TABLE =-- USER SYMBOLS
1491

1495

1499

1503

1507

1511

1515

1519

1523

1527

1531

1543

1598«

1485

1489

‘93

1545

1497

1501

1505

1509

1513

1517

1521

1525

1529

1533

1675#
1758
1810
1760
1812
5624
960

1541

1762
1814
1764
1816
839«
964

1766
1818
1768
1820
875
968

1770
18664
1772
1827#
1097+
972

1774

1778

1782

1786

1790

1794

1798

1802

1806

1776

1780

1784

1788

1792

1796

1800

1804

1808

976

980

984

988

992

996

1000

1004

1008

1433
1088

1680
1099«

1571

1574

1625

1627«

1638+«

1704

1893

1899

1913«

1537

1012

S41a
5564

1914

729
2005
644
508
658
802
964
#
9924
9964
10004
10044
10084

1012#
1016#
10204
9684
9724
9764
980#
984m
988#
1431
14874
15154

1519#
1523#
1527#
1531#
15354
1539#
1543
1491#
14954
1499#
1503#
1507#
15114
1678

1762#
17904

1016

804
837

1915

741
20414
6554
747
736
9604

14834

1758#

1020

1917«

15524

1066#

1919«

20044

2210

7564
1588

1957
1640

1920+«

2136
22634

1921

1922«

1923«

C2ZDJBGO DJ11
(20JBG.P11

R3SR11
R3SR12
R3ISR13
"RISR14
R3ISR1S
R3SR16
R3ISR17
R3ISR2
R3SR3
R3SR4
R3SRS
R3ISR6
R3SR?
SAVIT
SCOPE =
SELPRO
SIXBIT

EXER & ONLNE
07-JUN-82 16:32

014010
014030
014050
014070
014110
(14130
014150
013630
013650
013670
013710
013730
013750
001214
104400
(007170
011274

17944
17984
1802#
1806#
18104
18144
18184
17664
17704
1774#
1778«
1782#
17864
S18#
4580
7264
1118

SPACE
016450
STACK = 001200
sum
001310
SUSWRR
016236
SVSW0
001220
SVSW1
001222
SVSW10 001240
SvSWi11
001242
SVSW12 001244

1998
4904
5484
569
5204
5214

SVSW14

532#

SVSW13

SVSW15S
SVSW16
SVSW17

SVSW2
SvSw3
SvVSwé

SVSWS

SvSwé
SVSW7
SWITCH
SWR
SWREG

SWREQ
SWw10 =
SWi11
=
SW12 =
Sw13 =
SW14 =

SW1S
SW8
SWw9
TIME

TIMERA
TIMERB

TIMES

TTMMP1

TRNERR

001246

001250

001252
001254
001256
001224
001226
001230
001232
001234
001236
007230
001210
000176

016226
002000
004000
010000
020000
040000

= 100000
= 000400
= 001000
010344
001302
001304

001216

016364

016366

MACYT

30A(1052)

742

743

Féi)
1129#
22644
567
895+
22264
735

757

759

780
912+

1409
913

1655
916+

917

750

826

1450

1695

673
2240
2204

732

829

843

2207

2233

2240

1968

1969

2244

2245

SEQ 49

07-JUN-8?2

CROSS REFERENCE

16:36
PAGE 51
TABLE =-- USER SYMBOLS

918

919»

920

922+

923

So8#
529#
S30#

S31#

533#
5344
5354
5224
5234
S24m
5254
5264
Se7#
7364
S15#

746
655

2229

2233+

2206
409
408#
LO7#
4064
405#

2222#
1945

503#

404N
412#
411y
904
545#
S464

S19#4

2211

888

673

932

932
1973

1987
944w
896+
897+«

590+

2215

22534

944
946
883«

2262+

889
2243w

22504

1945

1969

1973

1983

2204

2215+

L
(ZDJBGO DJ11 EXER & ONLNE
(20JBG.P11
07-JUN-82 16:32
TYPE

= 000004

460#

937
2155

UNITS
001264
VECADR
001270
XISRO
010410
XISR1
010430
XISR10
010610
XISR11
010630
XISR12
010650
XISR13 010670
XISR14
010710
XISR1S
010730
XISR16
010750
XISR17 010770
XISR2
010450
XISR3
010470
XISRG
010510
XISRS
010530
XISR6
010550
XISR?
010570
XMTCNT
004312
XMTISR

XMTLVL
XMTTAB

X2SRO
X2SR1

X2SR10
X2SR11
X2SR12
X2SR13
X2SR14
X2SR15
X2SR16
X2SR17
X2SR2
X2SR3
X2SR4
X2SRS
X2SR6

X2SR7
X3SRO
X3SR1
X3SR10
X3SR11
X3SR12
X3SR13
X3SR14
X3SR15

X3SR16
X3SR17

X3SR2
X3SR3
X3sR4

5384
5404
9624
9664
9944
9984
1002#
1006#
10104
10144
1018#
10224
9704
9744
9784
9824
9864
9904
5614

011000

001274
001312

012260
012300

012460
012500
012520
012540
012560
012600
012620
012640
012320
012340
012360
012400
012420

012440
013600
013620
014000
014020
014040
014060
014100
014120

014140
014160

013640
013660
013700

962

1014

42N
5544

1640
14854
14894

15174
15214
1525#
15294
15334
15374
15414
15454
14934
14974
15014
15054
1509#

15134
17604
17644
17924
17964
18004
1804#
1808#
18124

1
1

1
1
1

MACY11
610

1944
2164

608+
630+

562

966

1018
810
782

1657

SEQ 50

30A(1052)
07-JUN-B2
16:36
PAGE 52
CROSS REFERENCE TABLE ~~ USER SYMBOLS
657

1947
2206
636
663

838«

970

1022

1439
836

1703«

658

659

662

665

728

736

737

1971

1975

1981

1998

2054

2057

2064

740

888
2107

666
801

676
1430

695
1677

745

749

851

1463

1723

1738

868

1038

1061«

1457«

1561

1564+
994

1573«
998

1586+
1002

1641
1006

1010

1563
1841«

1567+
1842

1571
1845

1572«
m9m

1585+
1921«

1948
2209

974

10294
168¢
1040

1731

978

1042«

1836

982

1045+

1837«

986

1411

1838«

990
1456+

1839

934
2135

CZD0JBGO DJ11
CZDJBG.P11

X3SRS
X3SR6

X3SR7

YESRT

EXER & ONLNE
07-JUN-82 16:32

013720
013740

013760

015716

SENDAD= 014622
.
= 017000

MACY11

17804
1784#

1788#

21454

499
4ol
1952

209

19524
495
1959

2099

BIT

= 132000

015532

2076+

2078+

| JPRL_
PTIT
“SAVR6
TYPE

015430
015416
015710
016132

20864
2077
2119+
2056+

2102
2082«
2123
2057

| PRF

015452

SEQ 51

30A(1052)
07~JUN-B2
16:36
PAGE 53
CROSS REFERENCE TABLE == USER SYMBOLS

(a0

2085

406

2088

498
1975

2106
405

SO
19764

21104
406

S0SH
1981

2135

407

2080+

2081+

2083

21414
2185+

2186

22024

20934

5074
1982¢

2139
408

2087

S10M
1984

2155

409

2097«

554k
1989

2166

410

2098

5564
1990

SSON
2046

5614
2054

S64w
20698

1399w
2079

411

412

1945

1968

1973

2103

2107

21104

2167¢
2101«

3191

0~rLDCIT(NW=]OWEoOy o10ND[SEO2Ny0QA=KF&-.W4LAKLATPISO~OUAeNMMNANNNNOTNITMeeTeTe&
»

1827

1933

2033

2127

1866

2007

2113

\ —0 OO MR

Ll ad ok o AV T o VI VI VT VT Vo T ol aXalial gl gl

QigeRs.-P M1”2«.fl?2WO2VNAO3NDN3OM3—NMO

4e i

07-JUN-82 16:32

MACY11

N 3 W~

EX ER & ONLNE

AN DO o O O M 1D

ONM2O NI—VOOMN

BSDoI-N0DDwaOF3aRLFUOoCRxPdDxRPS&VLR3MSCMO2=«TICR"€vFS_l"T)FugJ.s,IlHE"IWsOC,Kbs4VA"\09xWsL‘OW.sP,o0-NR=sND"®¥RXsCSad"s0SadSswes0Os®m"sLWsULa2DD*MY7——VYYYN)20MOI—7MMYTMM2GHeeON7VU)IM2GeOO07VNNeN)20CeD7MONoP)2NO0l0NO7MMN)ONo20=UlOoO7Meel)e2QeleOOaM7nlYki2G=el0L8Mb@aM=nh
0o~O-ob0-]N~[ M-O-Wa=-w=@1nN1OWMA9-o\0wha[nD=L-o-yW%7Ooda0m~1)t[ (=oN3~N) 0VN—VvOgYOU-OMNON—DY=NNN—Y\TMMM-,gW)0YYOMGNFO3TNeO(Mg-M\AOJVMYIe=oM)—T~FO0MrN=eM—=MOM0—~WOM0TNODOOOOOYegNUIOMGOOOMWee0TOUIVOINMP)MONOAGFOTNNoVP0.INVUOO=MIYPNIUILN0OOSNPS0OINVNMMOPOYOWG=VTOeONOOO=M===MOee~UONINoQONT=U~MOMe==MR)OI-WNGN~=NFAO-03
)Y0MeOaDV0DN%gIOaMQ1MYgNVaU1IOAoMAM1NNOMo]TMQOeNNOTgNWQgNNRORTOOMeWNNTgNnOdaORg—Nda=enONda2ndLD—oot
ON OUNOOOUNCUN UCUNCOUN
M VMIOWONROoIOWRNNOWNNEOWTNOWeNOTW
(ZDJBGO DJ11
(20JBG.P11
30A(1052)
07~JUN-82
{ 6:36
PAGE 55
CROSS REFERENCE TABLE == MACRO NAMES
4

SEQ §2

B
(Z0JBGO DJ11
(2DJBG.P1N

$SWRDF
$SWRRR
$TRAP
$TYPE

SURAT

.SCOP
.SCOPE

ABS.

EXER & ONLNE
07-JUN-82 16:32

14
1x
14
1w

MACY11

30A(1052)
07-JUN-82
16:36
PAGE 56
CROSS REFERENCE TABLE =~ MACRO NAMES

514
2225
2173

»
»

017000

ERRORS DETECTED:

000

CZDJEG,C2DJB:G/SO
TOC=C2DJL/CR
BG.MAC,CZDJBG.P1
F/NL
1

m———

—

RUN-TIME: S 7 .7 _SECONDS
RUN-TIME RATIO: 38/14=2.7
CORE USED:
20k
(39 PAGES)

5
SEQ 53