Digital PDFs

AH-8509G-MC

September 1982

54 pages

Original

27MB

view download

OCR Version

36MB

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

OCR Text

EXER

ONLINE DIAG
CZDJBGO

AH-B509G-MC
FICHE 1 OF 1

iz
weaoe N usa

(ZDJBGO DJ11 EXER & ONLNE
(ZDJBG.P11
07-JUN-8
16:32

MACY11

.REM

30A(1052)

07-JUN-82

16:36

SEQ 1

PAGE 2

IDENTIFICATION

PRODUCT 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 COMMITMENT
BY DIGITAL EQUIPMENT
CORPORATION.
DIGITAL _ EQUIPMENT
CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT
MAY APPEAR IN THIS DOCUMENT.

NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABI
SOFTWARE ON EQUIPMENT THAT 1S NOT SUPPLIED BY DIGITAL OR
ITS AFFILIATED COMPANIES.

FOLLOWING

CORPORATION:

DIGITAL
DEC

ARE

DIGITAL

TRADEMARKS

PDP
DECUS

EQUIPMENT
OF

UNIBUS
DECTAPE

CORPORATION

DIGITAL

EQUIPMENT

MASSBUS

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

MACY11

30A(1052)

07-JUN-82

16:36

SEQ 2

PAGE 3

s
s
*

SN
-

W
-

WTM
=

VIS
s WRONONIN)
—
OOOQQQ.NOOOOMU'U‘
.
.
.
.
.
.
.
.
.
.
.

CONTENTS

ABSTRACT
REQUIREMENTS

EQUIPMENT
STORAGE

PRELIMINARY PROGRAMS
LOADING PROCEDURE
STARTING PROCEDURE
CONTROL SWITCH 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 G
INSERTED THE LINE "MOV #0,3#PS' IN THE ROUTINE °*BEGIN®
TO INSURE THAT INTERUPTS WILL BE ALLOWED.

!
'

CZDJBGO DJ11
| CZDJBG.P1T

EXER & ONLNE

07-JUN-82 16:32

MACY11

30A(1052)

07-JUN-82

16:36

SEC 3

PAGE 4

|
|

ABSTRACT

THIS PROGRAM CONSISTS OF THREE SUB~PROGRAMS
WHICH
EXRECISE
THE
DJ11 ASYNCRONOUS MULTIPLEXER.
PROGRAM 1 IS AN OFF
=L INE

EXERCISER.
~PROGRAM 2
IS
AN
ON=-LINE
EXERCISER
WHICH
CONTINUOUSLY TRANSMITS THE LAST CHARACTER RECEIVED.
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 8K, EXCEPT ABSOLUTE LOADE
R.

2.3

PRELIMINARY PROGRAMS

CZDJA

DJ11 LOGIC TESTS

LOADING PROCEDURE

USE STANDARD PROCEDURE FOR ABS TAPES.
STARTING PROCEDURE

4.1

CONTROL SWITCH SETTINGS

SEE 5.1 (ALL DOWN FOR WORST CASE TESTING)
4.2

STARTING ADDRESS
THE_PROGRAM SHOULD ALWAYS BE STARTED

200,

MAY

RESTARTED AT 1000 AFTER ALL PARAMETERS HAVE BEEN SELECT
ED.

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

4.3

MACY11

30A(1052)

07-JUN-82

16:36

1
SEQ 4

PAGE
§

PROGRAM AND OPERATCR ACTION

1) LOAD PROGRAM INTO MEMORY USING ABS LOADER.

2) LOAD ADDRESS 200.
3) IF_HARDWARE SWITCH REGISTER IS AVAILABLE, SET SWITCHES
4)

(SEE SEC.
5.1), ALL DOWN FOR WORST CASE. PRESS START.
IF SWITCH-LESS PROCESSOR SIMPLY PRESS START.

5) ENTER THE PROGTMAM NUMBER (1, 2,

6) SELECT LINES IF SW<8> IS ON'A 1.

OR 3).

7) PROGRAM 1 WILL LOOP AND BELL WILL RING ONCE EVERY PASS.

“ECF'* IS ALSO PRINTED ON EACH PASS.

OPERATING PROCEDURE
OPERATIONAL SWITCH SETTINGS

AT SA 200, ALL SWITCHES DOWN IS
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:

SW<15. =1 ..... HALT ON ERROR
SW<13> = 1 ..... INHIBIT PRINTOUT

SW<12> = 1 ..... PRINT SILO ALARM LEVEL (PROG1 ONLY)

SW<10> = 1

SW<H>
SW<8>

..... BELL ON ERROR

0 ..... BELL ON PASS COMPLETE (PROG1 ONLY)
=1 ..... INHIBIT MAINTENANCE (PROG1 ON~-LINE)
=1 ..... SELECT LINES FOR TEST (SEE S5.3)

PROG1 ONLY:

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

3-7 ... 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 (SWREGSLOC.
176) 1S DEFAULTED TO.
IF THIS IS
THE CASE,
UPON EXECUTION

THE CONTENTS OF THE SWREG ARE DUMPED IN OCTAL ON THE CONSOLE

TTY AND ANY CHANGES ARE REQUESTED

(I1.E.) SWR=XXXXXX NEW=

POSSIBLE RESPONSES ARE:
1.

6 DIGITS 0-7

IF NO CHANGES ARE TO BE MADE.

TO REPRESENT IN OCTAL THE NEW SWITCH
QEgSTER VALUE; LAST DIGIT FOLLOWED BY

T0 ALLOW REENTERING VALUE

ERROR

COMMITTED KEYING IN SWREG VALUE.

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

MACY11

30A(1052)

07-JUN=8B2

16:36

SEQ 5

PAGE 6

BUILT INTO THE PROGRAM IS THE ABILITY TO DYNAMICALLY
THE CONTENTS OF SWREG DURING PROGRAM EXECUTION.

CHANGE

BY STRIKING

*G (CNTL G) ON 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 ABSTRACTS

5.2.1

HLT
THIS ROUTINE

(CALLED BY AN EMT INSTRUCTION:

ERROR MESSAGE (SEE 6.1).

A 1.

OUT

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

ALMCK (PROG1 ONLY)

IN THE NORMAL OPERATION
THE
°'DONE'' BIT
I
CHARACTER
IS READ
INTO THE FI/FO BUFFER(

"DONE"" CONDITION CAN BE DELAYED TO CAUSE DONE ON THE
OR 17 CHARACTER.
THIS IS DONE BY CUTTING ONE OF
(W1,W2,W3) ON THE M7285 CONTROL BOARD.

5,
-

m
w

9,
%]

5.2.2

PRINTS

TO INWIBIT TYPEOUTS, PUT SW<13> ON

FOR
THIS
‘*SILO ALARM LEVEL'' AND IF SW12 IS SET (1) IT WILL
PRINT OUT THE LEVEL CIN OCTAL) AT WHICH EACH DJ11
IS WILL

SET
“DONE''.
~THE SUBROUTINE ALSO ADJUSTS THE CHARACTER
COUNTERS TO ENSURE THAT THE MAXIMUM NUMBER OF CHARACTERS TO

TRANSFERED

IS A MULTIPLE OF THE SILO ALARM LEVEL.

ENSURES THAT ALL DATA WILL BE READ OUT OF

THE

THIS

SILO.

DONE

A .42 - "HALT" SEQUENCE IS REPEATED FROM
0 - 56 TO

DETECT

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
ANY
UNEXPECTED
TRAPS
AND
A
*.+2"
=~
“IOT'"
REPEATED FROM 60 = 776 TO DETECT ANY UNEXPECTED

SEQUENCE IS
_INTERRUPTS.

THUS _ANY UNEXPECTED TRAPS WILL WALT AT THE VECTOR + 2.
UNEXPECTED INTERRUPTS WILL RESULT IN AN ERROR MESSAGE

5.3

ANY
AND

PROGRAM AND OPERATOR ACTION
AFTER THE DEVICE PARAMETERS ARE REPORTED.

THE PROGRAM

TYPES

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

SELECT

G
EXER & ONLNE
07-JUN-82 16:32

MACY11

LINES

30A(1052)

07-JUN-82

16:36

SEQ 6

PAGE 7

="' THE OPERATOR RESPONDS BY TYPING IN AN OCTAL NUMBER

REPRESENTING THE LINE(S) WHICH ARE TO

DJI1.(INPUT

FOR

TESTED

FOR

THAT

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

THE SAME AS IF YOU WERE DIRECTLY
SETTING
THE
TCR
OF
THE
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 FORMAT

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
TELLS WHAT WAS BEING CHECKED AND WHAT WAS EXPECTED.

6.2

ERROR RECOVERY
RESTART AT 200 OR 1000.

ERROR COUNTER
AN ERROR COUNT IS KEPT IN "ERRORS' .
;:EOGREgJSOLE.
BY RESTARTING
AT

IT CAN BE CLEARED FROM
.
OR BY RELOADING THE

RESTRICTIONS

ALL BE CONTIGUOUS.

THIS PROGRAM REQUIRES THAT THE
FLOATING ADDRESS CONVENTION (
AT 160010, THEN THE DH11'S

IF THE

(OTHER THAN 160010 ) THE
CONTAIN THIS NONSTANDARD ADDRESS.
=

6.3

(ZDJBGO DJ11
| CZDJBG.PTT

CE ADDRESSES FOLLOW THE
S WILL BE FIRST, STARTING
T. THE VECTOR ADDRESSES
SH ADDRESS IS NONSTANDARD

MUST

IF THIS PROGRAM IS RUN WITH A MONITOR, I.E.

CHANGED

ACT11

DDP,

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

MACY11

30A(1052)

ONLY PROGRAM 1

07-JUN~B2

16:36

PAGE 8

IS RUN.

MISCELLANEOUS

8.1

EXECUTION TIME

(PROG1 ONLY)

DUE TO THE VERIOUS BAUD RATES AVAILABLE AND THE
ABILITY
TO
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,

PDP=11/20

FOR

STOP

BITS,

MULTIPLE DJ11'S.

AND

PARITY

MULTIPLY THESE TIMES BY

THE NUMBER OF UNITS SELECTED FOR TEST.
APPROX

BAUD RUN TIME
wo
o

75 00:10:00
1
:07:(530

8.2

STACK POINTER

STACK IS INITALLY SET TO 1200
8.3

PASS COUNT (PROG! ONLY)

A 32 BIT (2 WORDS) PASS COUNT IS KEPT IN "PCNT'' .

CLEARED FROM THE
CONSOLE,
RELOADING THE PROGRAM,

8.4

RESTARTING

IT CAN BE

. 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'* AND RESTART
THE

PROGRAM WITH NO OTHER ERROR TYPEOUTS.

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

MACY11

30A(1052)

07-JUN=82

16:36

SEC 8

PAGE 9

PROGRAM DESCRIPTION

THIS PROGRAM CONSISTS OF THREL SUB=PROGRAMS
WHICH
EXERCISE
THE LOGIC OF UP TO 16 DJ11 ASYNCHRONOUS DATA MULTIPLEXERS.
PROGRAM 1:
EXERCISER (OFF=LINE)
THIS
PROGRAM
EXERCISES
UP
TO

256

LINES

(16

DJ11'S)

SIMULTANEOUSLY
IN MAINTENANCE
MODE.
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 CONTINUOUSLY TRANSMITS THE
LAST
CHARACTER

RECEIVED ON
THE RESPECTIVE LINE.
A NULL (000) WILL
72 TIMES AND THEN TURN OFF THE TRANSMITTER.

“ECHO’

PROGRAM 3:
ECHO TEST (ON-LINE)
THIS PROGRAM TRANSMITS A HEADINC (=ECHO TEST+) ON EACH
LINE
AND THEN ECHOS EVERYTHING THAT IT RECEIVES.
CAUTION:
IF 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.
I.E.
NO PASSES.
ACT17 AND DDP MONITORS WILL ONLY RUN PROGT.

J
CZDJBGO DJ11
(20JBG.P11

EXER & ONLNE
07-JUN-82 16:32

:
Swis=
SWi4=

|
f

SW13=

sSwi2=
SW1l=

SW10=

SW9=

MACY11

30A(1052)

SWITCH
100000
40000

20000

10000
4000

07-JUN-82
16:36
SWITCH SETTINGS

SEQ 9

PAGE 10

USE
sHALT ON ERROR
+NOT USED
¢ INHIBIT ERROR TYPEOUTS

¢PRINT SILO ALARM LEVEL
sNOT USED

2000

;0 = BELL ON PASS COMPLETE

1000

sON=-LINE (PROG1)

SW8=
400
:gg=9:2>

= BELL ON ERROR

sSELECT LINES C(INITIALIZATION TIME ONLY)
SELECT MESSAGE (PROG! ONLY)

DJ11 REGISTER BIT ASSIGNMENTS:

CONTROL STATUS REGISTER (CSR) XXXXXO0

BITO
BIM
BIT?

BIT3
BIT4
BITS
BIT6
BIT7
BIT8
BIT9

RECEIVER ENABLE (READ/WRITE)
HALF DUPLEX SELECT (READ/WRITE)
MAINTENANCE (READ/WRITE)

CLEAR MOS (WRITE ONLY)
CLEAR MOS FLAG (READ ONLY)
NOT USED
RECEIVER INTERUPT ENABLE (READ/WRITE)
DONE (READ ONLY)
MASTER TRANSMITTER SCAN ENABLE (READ/WRITE)
NOT USED

BIT10
BIT11

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

BIT14
BITI5

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

BIT12
BIT13

STATUS ENABLE (READ/WRITE)
FI/FO OVERRUN (READ ONLY)

RECEIVER BUFFER REGISTER (RBUF) XXXXX2 (READ ONLY)

BITO~7
BIT8-11
BIT12
BIT13
BIT14
BIT15

RECEIVED CHARACTER
LINE NUMBER
PARITY ERROR
FRAMING ERROR
UART OVERRUN ERROR
CHARACTER PRESENT

TRANSMITTER CONTROL REGISTER (TCR) XXXXX4

(READ/WRITE)

BITO-15 STOP THE SCANNER ON CORRESPONDING LINE
TRANSMITTER BUFFER (TBUF) XXXXX6

BITO-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 EXER & ONLNE
(20JBG.P11
07-JUN-82 16:32

MACY11 30A(1052)

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

BITO=15 TRNSMIT A BREAK ON CORRESPONDING LINE!
SCOPE=

BIT
BIT

TRAP

N=Or-

HLT=
TYPE=
PS=

0
0,0

;LOCATIONS 4 THRU 56 CONTAIN .+

sLOCATIONS 60 THRU

000046
014622
000174
000176

000200
001000

000174
000000
000000

000200
000137
001000
000137

001200

sTRAP CATCHER IN LOCATIONS O THRU 776
é]..OCA"PIS
JND 2 CONTAIN "MALT'" INSTRUCTIONS

AND “HALT'* IN EVERY VECTOR
776 CONTAIN °',+2'' AND “"IOT** IN EVERY VECTOR

174

JMP

RESTAR

SENDAD

DISPREG:0
SWREG:
0

006312
007316

1000

1200

;200 ALWAYS IS THE STARTING ADDRESS

sRESTART ADDRESS

SEQ 10

| CZDJBGO DJ11 EXER & ONLNE

M) =

o e

d e o e

OV
WV
N —

Al
LV, IV TV TV TV, 1V, )

| CZDJBG.P11

07-JUN-82 16:32

001200
001202
001204

000000
000000
000000

001210
001212

177570
177570

001214
001216
001220
001222
001224
001226
001230
001232
001234
001236
001240
001242
001244
001246
001250

000000

MACY11 30A(1052)

ICNT:
0
ERRORS: 0

PCNT:

0.0

SWR:

177570

SAVIT:
TIMES:

0
20
OPEN
OPEN
OPEN

SVSW3:
SVSWé&:
SVSWS:
SVSW6:
SVSW7:
SVSW10:
SVSW11:
SVSW12:
SVSW13:
SVSW14:
SVSW15:
SVSW16:

001256

sITERATION COUNT=LH, TEST NO.=RH
+ERROR COUNT REGISTER
sPASS COUNT REGISTER

DISPLAY:177570

SvSW0:
SVSW1:
SVSW2:

001252
001254

_
sMINIMUM NUMBER OF MESSAGES (PROG1)

sMAP OF LINES SELECTED, DJ11 #0
sMAP OF LINES SELECTED, DJ11 #1
sMAP OF LINES SELECTED, DJ11 #2

OPEN
OPEN
OPEN
OPEN
OPEN

sMAP OF
sMAP OF
sMAP OF
+sMAP OF
sMAP OF
sMAP OF
sMAP OF
sMAP OF
sMAP OF
sMAP OF
sMAP OF
sMAP OF

OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN

001262
001264
001266
001270
001272
001274
001276
001300
001302
001304
001306
001310

BUFSIZ: 30

UNITS:
DEVADR:
VECADR:
RCVLVL:
XMTLVL:
ISRFLG:

LINES
LINES
LINES
LINES
LINES
LINES
LINES

SELECTED,
SELECTED,
SELECTED,
SELECTED,
SELECTED,

DJ11
DJ11
DJ11
DJ11
DJ11

DJ11
DJ11
DJ11
DJ11
DJ11
DJ11
DJ11
DJ11

#3
#4
#5
#6
#7

#10
#11
#12
#13
#14
#15
#16
#17

sRECEIVE BUFFER SIZE (PROG3)

1
160010
300
240
240
0

sNUMBER OF UNITS ON THE SYSTEM
sFIRST DEVICE ADDRESS
sFIRST VECTOR ADDRESS
sRECEIVER BR LEVEL = §
sTRANSMITTER BR LEVEL = S
JINTR SYC RTN FLAG

ALMFLG: 0

sSILO ALARM LEVEL FLAG

TIMERA: 0
TIMERB: 0

COUNT:
SUM:

LINES
LINES
LINES
LINES
LINES

SELECTED,
SELECTED,
SELECTED,
SELECTED,
SELECTED,
SELECTED,
SELECTED,
sMAP OF LINES SELECTED,

axggl?: 8PEN

001260

SEQ 11

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

sseoF

sTIME COUNTERS

0
0

sVALUE OF THE SILO ALARM LEVEL

:tl..'t'.fi..'.t.t.ttt'.".tl"i.l....Ql..t.

‘..........IQ...Q'..Q.Q....QQ

sTABLES

:t..itt..."."l.!.Q.t"'.Qt...'..Ql...

.....Q'...Q.......Q‘l.....t......

001312

000400

XMTTAB:

.BLKW

400

sTRANSMIT DATA POINTER TABLE

002312

0004C0

RCVTAB:

.BLKW

400

sRECEIVE DATA POINTER TABLE (PROG!)

.BLKW

400

+POINTER FOR XMIT/RCV BFRS.

sRECEIVE DATA TABLE (PROG2 AND PROG3)

003312

000400

MAXTAB:

004312

000400

004313

XMTCNT: .BLKW
400
RCVCNT=XMTCNT+1

sTRANSMIT DATA COUNTER
sRECEIVE DATA COUNTER

005312

000400
005313

MASK:
.BLKW
CNTTAB=MASK+1

JCHARACTER MASK TABLE
sITERATION COUNT AND FLAGS

400

soeeF

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

- CZDJBG P11

706
737
737

8 eieleleloleleloleTe)
b e e ed e b d ) d d
vy
o flv&qzhthA"UJ\hflU
W
n

006312

001200
000000
016236
000020
015720
000340
015556
000340
014636
000340
001202
001204
001206
000300

MACY11

177776

012737

BEGIN:

07-JUN-82

SET UP AREA
MOV
MOV
JSR

MOV
MOV

MOV

MOV
CLR
CLR
CLR

28:

177776
000004
001000

000400
000106
000106
000001

30A(1052)

MOV
ST
MOV

#STACK, SP
#0,a#P$
PC .SUSWRR

sSET UP STACK POINTER
¢sALLOW INTERUPTS

#10TRAP,
(RO) +

;10T VECTOR (20)

#PDOW
, (RO)
NS+

;POWER FAIL VECTOR (24)

ognri.

sEMT VECTOR (30)

#20,R0

#340,

' (RO)+

#340,

(RO)+

#3460,
ERRORS
PCNT
PCNT+2

(RO)+

CMP

#1000,

MoV

LG
#256. ,CNTNIT
#70. .CNTNIT+4
#70. .CNTNIT+10
1, TIMES

BGT
CLR
MOV
MOV
MOV

SEQ 12

PAGE 13

#300,
(RO)+
RO,

MOV

011240
011244
011250
001216

16:36

#10T,

=2(R0)
(RO)+

VRG-060382

sCLEAR ERROR COUNTER
sCLEAR PASS COUNTER

:START OF FLOATING VECTOR AREA
:UPDATE POINTER

:PUT "' +2°" IN EACH VECTOR

:AND “'IoT*
:CHECK FOR END OF FLOATING VECTOR AREA
:BRANCH IF MORE
:CLEAR THE ALARM FLAG

:SET MAXIMUM SIZE VALUES
:FOR PROG #1

sSET FOR QV ON FIRST PASS

:tt.tt.!..t'...Q...Q‘Q..Q..Q.....t...I...t

t.t...l...t..tt.i..tt...t..t.t

sROUTINE TO MAP ALL THE DJ11°'S ON THE SYSTEM

:.Q't.Q.Q.'..Qt'lt...'..'.....t..fi.‘.....

.....Q..Qtt.t'...-t..t.t.t.....

013700
012702
012737
005001
000261
005710
103404
005201
000771
005037
010137
001005

000000
000137

DJMAP:

5%:
18:
000010

000006
001264

016632
014550

MOV
MOV
MOV
CLR
SEC
TST
B(S

6$:

ADD
INC
BR

7$:

CLR
MOV
BNE
TYPE,
HALT
JMP

DEVADR, RO
]
R2

znil.

sGET FIRST FLOATING ADDRESS
sCOUNTER FOR DJ11°S
sRTI WHEN TIME-OUT
+SET UP COUNTER
sSET CARRY
sCHECK FOR A DEVICE

:GO 10 Ié:? DEVICE ADDRESS

<COUNT DJ11°S
sLOOK FOR MORE

sRESTORE TIMEOUT VECTOR
s SAVE COUNT

sTYPE *NO DJ11°S!"

+FATAL ERROR
SRESTART

:t..".ltfittt..t..'...'t..QIQQ....i.."..tl..ifi'.

sROUTINE TO DETERMINE VECTOR ADDRESSES OF DJ11°'S

:t..'.t."t't"'tti."'.i'ttt...Q.'Q'l..i'.l.

.Q.Qt'..l......tl‘tt.l'

...‘.t...l‘QQ...QI“Q.‘Q.Q.

006542

006554
006560

013746
012737
013701
012711

000020
006576
001266
040400

000020

GETVEC: MOV
MoV
MOV
MoV

20,

~(SP)

8’31».
0504002 3{50
(R1)

+SAVE 10T VECTOR
sRESET IOT VECTOR
FIR SESRJ ADDRESS

: SET

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

MACY11 30A(1052)

|
|

1
|

012761
000001
000407

011602
162716
011637
022626
000002
012637
005742
013703

000001

000004

000020

3$:

001264

;BIT8= TRANS SCAN ENABLE
:B1T14= TRANS INTERRUPT ENABLE

MOV

MOV
SUB
MOV
CMP
RTI

(SP),
#10,
(SP3,
(SP)+,

R2
(SP)
VECADR
(SP)+

sSAVE VECTOR ADR. (+4)
sREPOSITION ADR TO RCV. VEC.
;SAVE FIRST VECTOR
;RESET STACK FROM 10T

(SP)+,

ax20

sRESTORE 10T VECTOR
sPOINT TO XMT. VEC. +2
sSET UP UNIT COUNTER

WAIT

18:

000010
001270

SEQ 13

07-JUN-82
16: 36 PAGE 14
DJ11 VECTOR MAPPING ROUTINE

MOV

ST
MOV

-(R2)
UNITS,

4(R1)

:TCR,

LINE 0

:WAIT FOR AN INTERRUPT

;CONTINUE AFTER INTERUPT

sRETURN FROM INITIAL INTERUPT

;CHECK THAT VECTORS ARE CONTIGUOUS
005061
005011
012712
005303
001415
062701
062702
012712
01271
012761
000001
000754

000004

28:

000004
000010
600010
000002
040400
000001

CLR

(R1)
#10T,

ADD
ADD

210,
#10

DEC
BEO

MOV

000004

4(R1)

CLR
MOV

MOV

MOV
WAIT
BR

R3
REPORT

#RTI

#40400,
",

(R2)

JCLEAR TCR
sCLEAR CSR
sRESTORE IOT TO XMT. VEC.+2

R1
R2
(R2)
(R1)
4(R1)

sUPDATE DJ ADR. POINTER
sUPDATE VECTOR POINTER
sRTI ON INTERRUPT
sSET CSR
:TCR LINE O

sCHECK FOR MORE DJ11°S
sBRANCH IF DONE

sWAIT FOR AN INTERRUPT

sREPORT CONF IGURATION
032777
001026
000004
000004
000004
013705
004737
000004
013705
004737
000004
013705
004737

172304

REPORT: BIT
BNE

#BIT13, asWR
GETLEN
MSGMDN
RETURN
MSGADR
DEVADR, TTY

sCHECK FOR INHIBIT TYPOUT

sSKIP REPORT IF SET

:gécgglfl

sTYPE DEVADR IN OCTAL
sTYPE LEADING ZERO'S

VECADR,TTY

sTYPE VECADR IN OCTAL

:g.FRINTS
UNITS,TTY

PC,PRINTS

¢AND SUPRESS LEADING ZERO'S

sTYPE UNITS IN OCTAL

¢AND SUPRESS LEADING ZERO'S

B
- CZDJBGO DJ1! EXER & ONLNE
- CZDJBG.P11
07-JUN-82 16:32

MACY11

668
669
670

30A(1052)

SEQ 14

07-JUN-82

16:36 PAGE 15
CHARACTER LENGTH MAPPING ROUTINE

'ttt'it'.t‘ti't'tttii'tt.tfittt'ttit

tt'tttt.ttttttfi.ttttttttt.tttttttt"

:ROUTINE TO MAP CHARACTER LENGTHS

671
672
673
674
675
676
677
678

t'tt.t"t.!ttt'tfi't"'ti't'ttt'tttttt

fi.t'tt.tttttfitttttttttt'tfittt.ttt

18:

MOV
MOV

DEVADR. R1

108:

BIT

2%:
3s:

MOV
TST

MOV

000006

177760

177400

04is

#8174,

10$
R2

(R1)

#377,
R2
R2
R2
R2

48:
5$:

MOV
MOV

4(R1)
6(R1)

n;
R

ggfit).

Rg.

#177760,R5
RS
Rg.
RS

0177&00,&4

RG.

RG.
R,
R3

000010

(R1)

4(R1)
210,
RO
1$
UNITS,
DEVADR,
#MASK,
'

Ré,

007142

007150
007152
007154
007160
007164
00716€

UNITS,

20,
#40,
RO
48

(RS)+

(RS)+
(RS)+

Rl
R2

sSET UP UNIT COUNTER
+SET UP DEVICE ADDRESS POINTER
sSET UP LINE MARKER

:RCV_ENB, CMOS, MAINT.,
:WAIT FOR MOS TO CLEAR

TRANS SCAN ENB

sTRANS CONTROL, ONE LINE AT A TIME

:WAIT FOR TRANS READY

sSEND A RUBOUT
sSKIP & LINES

sBRANCH BACK IF MORE LINES
sCLEAR TCR
:UPDATE POINTER TO NEXT UNIT

:CHECK FOR MORE UNITS

sSET UP UNIT COUNTER
.SET UP DEVICE ADDRESS POINTER
sSET UP CHAR LEN TABLE POINTER

sSET UP CHAR COUNTER

sSAVE AND CHECK CHAR PRESENT
DUP DATA

gE& lN LOW BYTE

AR ALL BUT LINE #

POINTER TO CHAR TABLE
DATA INTO MASK
UPPER BYTE

e MASK

PC,CNTLU

000004
000010

001264
001266
005312
000004
000002

JSR

6%:

000004

#SWREG, SWR

016134
001264
001266
000001
000415
000020

GETLEN: CMP
BNE

.fll“

001210

000176

2000
= fliflfifi

022737
001002
004737
013700
013701
012702
012711
032711
001375
010261
005711

000377

717

THE MASK
THE
&

sADDRESS POINTER TO NEXT DJ

sCHAR LEN TABLE POINTER
+COUNT UNITS
sBRANCH BACK IF MORE

c
(ZDJBGO DJ11
C2DJBG P11

EXER & ONLNE

07-JUN-82 16:32

MACY11

718
719
720
721
722
723
724

725

726
727
728
729
730
731
732
733

30A(1052)

07-JUN-82

16:36

PROGRAM SELECTION

2
SEQ 15

PAGE 16

:tt'.t'.tt.'t.ii.i"tfit't'tttttttttttt'ttt

tttttttttt.ttttt.ttttttttt.itt

;SELECT THE PROGRAM TO BE RUN

+PROGRAM 1:

sPROGRAM 2:
:PROGRAM 3:

OFF=LINE EXERCISER
ON-LINE EXERCISER (TRANSMIT LAST CHARACTER RECEIVED)
ON=LINE ECHO EXERCISER

:tttttit"'.t.'t*'..t"""'fittttit.'.!

.tt.tlt.ttl.tttttttt't.!tt.t'ttlt

007170
007174
007176
007202
007206
007210
007212

005737
001040
000004

004537

007340

001367
032777

001426
005000

012701
000004
000004
010005
004737
000004
004537
001214
013721

005200
020037
001356

000042

SELPRO: TST
BNE
TYPE,

016613
015030
000400
001220
016442
016417

015404
016422
015030

001214

JSR

WORD

BNE
BIT

171770

BEQ
CLR

MOV
SWITCH: TYPE,
TYPE,
MOV
JSR
TYPE,
JSR
.WORD
MO

001264

013700
012701
012721

005300

001264
001220
177777

001374

013700
001722
022700
103717

006300
000170

000001
007350
012012
013216

ALL:
1$:
.SBTTL

007340
©00003

READIN

sREAD A NUMBER FROM THE CTY

SELPRO
#8178,

aSWR

;CHECK FOR SW<B>, SELECT LINES
sBRANCH IF NOT
sSET UP UNIT COUNTER, DISPLAY
sSET UP SWITCH TABLE POINTER

RO, TTY

;PRINT THE NUMBER OF THE DR11C

MSGSEL

sASL FOR THE SELECTED LINES

PROGNO

ALL

#SVSWO,R1
RETURN
MNUM
PC.PRINTS

RS,READIN
SAVIT
SAVIT, (R1)+

RESTAR

MOV
MOV
MOV

a5V

DEC

RESTAR: MOV
BEQ
cMP
BLO

ASL

007340

MSGPRG

RO
RO

BNE

JMP

sCHECK FOR ACY 11 OR DDP
sBRANCH IF MONITOR

R5,

INC

cMpP
BNE

000410

ane2

ALL

SWiTCH

UNITS,

UNITS

sCOUNT UNITS
sCHECK FOR MORE UNITS
sBRANCH IF MORE
:60 DO IT

sSET UP UNIT COUNTER

+(R1)+

sSET ALL LINES
sCOUNT UNITS

RO
1$
RESTART POINT

sSET UP SWITCH TABLE POINTER

'S.SLPRD

@PROGAD (RO)

PROGNO
:

PROGAD: 1
PROG1
PROG
PROG

;DEFAULT TO PROGRAM 1

b
' CZDJBGO DJ11 EXER & ONLNE
€20JBG.P11
07-JUN-82 16:32

MACY11

768
772

?76

786
787

788

789
790

;33

801
802
803
804
805

806
807
808

809

810
811
812

813
814
815

SW<9 = 1

tt.tttttttttttttt.tttt't

007350
007352
007356
007362

007370

007374
007400
007402

007404
007406
007412

007414
007416

007420

000005
005037
012706
052737

012701

012702
005021
005302

001375
012702
005207

001276
001200
000340

001312

002000

000400

105021
005302

PROG1:

177776

RESET
CLR

MOV
BIS

ISRFLG
#STACK, SP
#340,34PS

;CLEAR OUT THE WORLD
;CLEAR INTR. SVC. RTN. FLAG.
JRESET THE STACK POINTER
;PROCESSOR TO LEVEL 7

sieef

MOV
CLR
DEC

#2000,R2
(R1)+
R2

;LENGTH OF TABLES (WORDS)
;CLEAR THE TABLE

sreef

MOV
18:

28:

001374

BNE
MOV
INC

CLRB
DEC

BNE

#XMTTAB,R1

18
#400,R2

;FIRST TABLE POINTER

sLENGTH OF MASK/COUNT TABLE

*SKIP 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

799

ON=LINE:

.'tttttttttittttttttttt'tt"tttttttttttt.tttttttt

793
794,
795
796
800

USES THE DATA TABLE SELECTED BY SW<2:0>
EACH LINE REPEATS THE PATTERN AT LEAST 16 TIMES
PER PASS.

sSET TCR'S, ALL LINES ENABLED
007422

007424

007430
007434
(07440
007442
007446

007450
007452
007456

007460

007462
007466
007470

007472
007474

005000

013701

013702
012703
010322
013722
022323

010113
062723
005723

010322

013722
022323
010123

005011
052711

001266

001270
010400

001272

PTINIT: CLR

MOV

118:

MOV
MOV
MOV
MOV
cMP

MOV
ADD

000002

783
784
785

:
:
:

782

TRANSMIT AND RECEIVE ALL LINES SIMULTANEOUSLY
OFF=LINE:
SW<9> = 0

780
781

SEQ

PAGE 17

:PROGRAM 1:
:

773
774
775

778
779

30A(1052)
07=JUN-82
16:36
PROG1:
OFF=LINE EXERCISER

:tttttttttttt.tttttt'tt'tt'tttttttttttttttttttttttt.tttttttt.ttttttttttt

770
771

777

00127%

MOV
CMP
MOV
CLR
BIS

050510

DEVADR, R1

VECADR,
#SRISRO,
R3.
RCVLVL,
(R3)+,
R1,
2
gi»

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

;SET UP RECEIVER INTERUPT VECTOR

(R3)
(R3)+

:ADD & TO R3
;ADDRESS OF CSR
;ADDRESS OF RBUF

(R2)+

:SET UP TRANSMITTER INTERUPT VECTOR

xMfLvL, (R2)+
(R3)+,” (R3)+
R1
(R3)+

(R1)
#50510, (R1)

816

;ADDRESS OF CSR

sCLEAR CSR
:SET UP CSR
:BIT3 = CLEAR MOS

817

:ang = RECEIVER INTERUPT ENABLE

820

:BIT12 = STATUS ENABLE
;BIT14 = TRANSMITTER INTERUPT ENABLE

818
819

821

822

823

:BIT8

007500

032711

000020

005737

001300

007504

001375

007512

001002

007506

138:

BIT

'g{"'

Aams

BNE
BNE

108

(R1)

= TRANSMITTER SCAN ENABLE

CHECK FOR MOS TO CLEAR

sHAS THE SILO ALARM LEVEL BEEN CHECKED?

TYES

E
- CZDJBGO DJ11 FXER & ONLNE
: CZDJBG.P1M
07=-JUN-82 16:32

824
825
826
827
828
829
830
831
832
833
834
835

836

837
838
839

840
841
842
843

844

845
846

847

848

849

850
851
852
853
856

007514
007520
007522
007530
007532
007540
007544
007550
007552
007554
007556
007564

007566

007574
007602
007610

007616
007620
007624
007626

007634

007636
007642

007646

007650

007654

007660
U07662
007666
007670
007676

004737
006300
016061
006200
012737
017705
042705
006305
006305
012304
033761
001414

016564

016564
116564
116564

005724
06337
103354
032777

001024

000004

000001
171444
177770

001260

000004

011236

011236
011240
011240

001000

000001

062701

005200
020037
001264
012737

042737

000406

857
858
859

007706
007712
007716

052711
005761
100775

000001

000140

000001
000002

871
872

873

874
875
876

877
878

879

158:

PC,ALMCK
RO
SVSWO(R0) ,4(R1)
RO
",
MARK
asSWR,
RS
#177%70.R5
RS
RS
(R3)+,
R4
MARK,
4(R1)
158

MOV
MOVB
MOVB

ADRNIT(5) "RCVTAB(4)
CNTNIT(5).XMTCNT(4)
CNTNIT(5).RCVCNT(4)

128:

001300

177776

;SET UP OFFSET TO TABLES
:CHECK FOR LINE SELECTED IN TCR

ADRNIT(5) ,XMTTAB(4)

(R4)+
MARK
148
#BIT9,

BIS
BIT

#14,
(R1)
#8174, (R1)

:SET THE MAINTENANCE BIT AND CLR MOS
SWAIT FOR MOS TO CLEAR

BIS

#1,(R1)

;TURN ON RCV ENABLE

BNE

ADD

INC
CMP
BNE
MOV

218

@SWR

70,1

;CHECK FOR ON-LINE

*BRANCH IF ON~-LINE

;POINT TO THE NEXT CSR

RO
RO
UNITS
11$
#1,ALMFLG

sSET THE ALARM LEVEL FLAG

FORGND

260 DO IT

#140,

BIS
TIST
BMI

#1,(R1)
(R1)

B8R

;INC OFFSET TO NEXT LINE

208

BIC

B8R
218:
228:

;NO.GO DO IT
SUNIT #
2
:SET TCR BITS (CSR + 4)
*RESTORE UNIT COUNTER
:SET UP MARKER
:GET SWITCH SETTINGS
:MASK MESSAGE #

TST
ASL
BCC
BIT

BNE
20$:

SEQ 17

PAGE 18

JSR
ASL
MOV
ASR
MOV
MOV
BIC
ASL
ASL
MOV
BIT
BEQ

MOV

000755

@#PS

:LOWER PROCESSOR PRIORITY

:TURN ON RCV EN
;CLEAR JUNK OUT OF THE RBUF

:It.titfi.."."..i'..'t...t'.t...Q..ll'...it.‘...!.QQ.Q..

..Q.Q...Q.Qttt.

;PROG1 BACKGROUND PROGRAM TO MONITOR TABLES
....".t'."t"tt..fil.'tt'.l'..l..h.t.t.‘tt..tt..Qfit..l..t
.t..ttt..tfit.t
: NOTE- PROGRAM MAY HANG IN A LOOP.

ggg

870

14$:

001264

“2

868

108:

171354

000010

863
“‘
865
869

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

001312

002312
004312
004313

001260

052711

007704

007720

001220

000014
000020

ggg

gg?

010032

052711
032711

001375

MACY11

: IF THIS HAPPENS, RUN DZDJA.
007722

012701

007726

012702

007734
007736

001376
062701

007732

007742

007744
007746
007752
007756

007762

105711

005302

001372
012701
012702
121137

003375

004312

000400

FORGND: MOV
218:

MOV

ISTB

#XMTCNT ,R1

#400,R2
(RD)

000002

BNE
ADD

004313
000400

BNE
MOV
MOV

218
#RCVCNT,R1
#400,R2°

B8GT

228

001306

DEC

228:

CMPB

218
#2.R1

(R1).COUNT

:CHECK roa COUNT TABLE CLR

*BRANCHIF NOT
:60 TO uexr LINE ENTRY

*COUNT LINES

-mncu IF MORE LINES
;1S # OF CHAR LEFT IN RBUF LESS THAN
sTHE SILO ALARM LEVEL

;1F NO WAIT FOR men

F
| CZDJBGO DJ11 EXER & ONLNE

CZDJBG.P11
880
881
882
883
8846
885
886
837
888

889
890
891

892
893
896
895
896
897
898
899
900
901

902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918

919

920

921
922
923
926
925
926
927
928

930
931
932
933
934
935

007764
007770
007772
007774
010000
010002
010006
010012
010014

010020
010026
010032

010040
010044
010050
010054
010060
010064
010072
010074
010076
010104

010110
010112
010114
010120
010122
010124
010126
010132
010136
010144
010146
010156
010162
010164
010166
010174
010202

010210

010216

010224
010226
010236
010242
0102644
010252
010260
010266
010272
010276
010300
010306
010312
010314
010320

07-JUN-82 16:32
062701
005302
001371
005337
001402
000137
005737
001002
000004

012737
000137
012761

052711
052711
005037
005037
005037
012737
005711
100373
112761

005237

105711
100405

004537
000773
000760
000742
042711
052711
022737
001437
063737
023727
002771
001403
163737
013737
013737

063737

023727

002771
163737
013737

000411

012737
012737
012737
042711
032711
001375
004737
032777
001413
000004
010105

MACY11

30A(1052)

000002

001216
007350
001276

016366
000020
014550
000001

000004
000001
001306
001310
001302
000200
000377
001306

238:
001216

18:

000004

ALMCK:

001304

28:

000006

1$:

010344

000001
000010
000001

001306

001306
001310

001310
000106

001306
001310
001310

001310
011244
011250
001310

001306

38:

001310

000377

001306
001310

001310
011240

000377
000106
000106
000004
000020

011240
011244
011250

016316
010000
016741

170676

58%:

68:
7%:

108:
4$

118:
128:

07-JUN-82

16:36

BACKGROUND MONITOR
ADD
DEC
BNE
DEC
BEQ
‘MP
ST
SNE
TYPE,

#2 R1

1ST8
BMI
JSR
BR
BR
BR
8IC
8IS
CMP
BEQ
ADD
CHP
BLT
BEQ
SuB
MOV
Mov

223
TIMES
23%
PROG1
ISRFLG
8
TRNERR
#20,TIMES
@#DONE
#1,4(R1)
08172
(R1)
. (R1)
COUNT
SUM
1iMERA
#200, TIMERB
(R1)
2s
#377,6(R1)
COUNT
(R1)
38
RS, TIME
1$
28
ALMCX
#8170, (R1)
#BIT3, (R1)
#1,COUNT
48’
COUNT , SUM
SUM,#70.
58
68
COUNT, SUM
SUM, CNTNIT+4
SUH.CNTI(T*!O

cMP

;gfl-

MOV
JMP
MOV

8IS
BIS
CLR
CLR
CLR
MOV
TST
BPL
MOvB
INC

ADD

BLY
Sue
MOV

MOV
MoV
MOV
8IC

BIT
BNE
JSR

BIT

BEQ
TYPE,
MoV

S;¥"

COUNT, SUM
SUN.CNTMIY
118
#377 ,CNTNIT
#70. .CNTNIT+4
#70.,CNTNIT+10
#81T2,(R1)
‘glf. (R1)

PC,KBDINT
‘ifl ~ASWR
MALARM
R1,TTY

SEQ 18

PAGE 19

sIF YES IGNORE THEM
sCOUNT LINES
/BRANCH IF MORE LINES
;D0 THIS AGAIN?
¢NO, GET ourt
:SEE IF FLAG IS ZERO
:IF NOT, BR
:1F YES, RCV DATA ERROR

:DO IT 16 TIMES THE NEXT TIME
sSKIP ISR'S
:SET LINE 0 IN THE TCR

:SET THE MAINT BIT
:SET RCV EN AFTER MAINTENANCE BIT

sSET UP TIME CONSTANTS
:WAIT FOR TRANSFER READY BIT
sOUTPUT A CHAR TO TBUF
sCOUNT EACH CHAR

:CHECK_FOR DONE IN THE CSR
cIF SET GET_OUT OF THE LOOP
sGIVE DONE TIME TO SET
sRETURN TO TEST FOR DONE AGAIN
sRETURN TO OUTPUT ANOTHER CHAR
sERROR RETURN TRY AGAIN
:TURN OFF RCV ENABLE
sCLEAR MOS
sIF SILO LEVEL SET FOR 1 THEN GET OUT
:GET THE LARGEST MULTIPLE OF THE
sSILO ALARM LEVEL AND USE IT IN THE
sTHREE SIZE LOCATIONS
<IF EQUAL USE IT
<IF GREATER SUBTRACT ONE COUNT OFF
+AS CLOSE TO 70 AS POSSISLE
sCONTINUE TO A COUNT OF 256

sAS CLOSE TO 256 AS POSSIBLE
cALL SET GET
sPUT SIZE TO Hfil VALUE

TURN OFF THE MAINT BIT
WAIT FOR MOS TO CLEAR
sGET NE SWITCH REGISTER
¢FRINT ALARM LEVEL?
:NO
:YES, PRINT CSR FIRST

sie+F
s eeF
JieeF

G
CZDJBGO DJ11 EXER & ONLNE
' CZDJBG.P11
07-JUN-82 16:32

004737
000004
013705
004737
000207

937

105237

001012
005237

13%:

001302

950

010370

952
953
954

010372
010374
010376

TIME:

001304

005725
005725
000205

TYPE,
MOV
JSR
RTS

INCB

BNE

000022

2$:
18:

16:36

BACKGROUND MONITOR
JSR

001306

ST
TST
RTS

:PROG1

SEQ 19

PAGE 20

PC,PRINTR

MSGDAS
COUNT, TTY

;E.PRXNTR

IMERA

$
1 MERE
$
OUNT ,#22
$

(RS) +

(RS)+
RS

sPRINT ALARM LEVEL

- INCREMENT THROUGH ONE WORD

;GO TEST FOR DONE AGAIN

sMAKE TIMERB LARGER IF FAST PROCESSOR

sHAVE OUTPUTTED 18 TIMES
:NO, GO OUTPUT ANOTHER CHAR

:;gszbggg DID NOT SET AFTER 18 OUTPUTS

*SET
RS FOR ERROR RETURN

*SET RS FOR NEXT OUTPUT RETURN
*RETURN FROM ABCVE OR RETEST DONE

CARERRANARANRAANANNAARERENAARRAR b

LINKERS TO DJ11 INTERRUPT SERVICE ROUTINES

s .'.tl.tt"'t....i....'..'.".'...'.ttt.t...t

tt.....Qtt.t'.t...tt‘.'.t-t

et
ks

RISRS:
XISRG:

RISRS:

XISR6:

(=l=lep

RISR6:

—

XISRS:

—

XISR3:

RISR3:

RISR7:

XISR7:

RN NEEEEEEE “8

XISR2:

RISR2:

fi§r:§§§=§§§:§§§:z§::—§
fOOCO N
SHOOO 58 8‘

XISR1:

JSR

o—h

RISR1:

XISRO:

JSR
-WORD
JSR

011000

010424

RISRO:

965

010400
010404
010410
010414

—

960
961
962
963

—

07-JUN-82

e Coe Cur oo Cue Cue Cuo Coo

MACY11 30A(1052)

RO,RCVISR

<16001 ;:o-to>>.<‘o-o>

g&?fi)gmlo».«o-b
<1600124<1+10>>,<40+1>

2?853{6221010>>.<60-1>
:‘1’ o 3%'10».«002»
Eg&fi : *10>>,<40+2>
<1803150<3'1o>>.<£o-3>
€40010¢3+105
<40s3>
>,
< ‘%’1’ fimo».«o-o
5&:.55534.10».«0-0
<16081£0<Stlo>>.<60-5>
z?éwmmo».«om
:?&38\1' 326-10»,«0-»

gzlfi §:<:6010»,<40~6>
<1&o& +<7¢10>>,<40+7>

<?65515§<7-1o>>.<&o-7>

RO, XMTISR

CZDJBGO DJ11 EXER & ONLNE

(2DJBG.P1

993

010600

07-JUN-82 16:32

004037

011114
000400
004037 011000
160110 000400
004037 011114
000440
011000
000440
011114
000500
011000
000500
011114
000540
011000
000540
011114
000600
011000
000600
011114
000640
011000
000640
011114
000700
011000
000700
011114
000740
011000
000740
160112

MACY11

30A(1052)

07-JUN-82
ISR LINKERS

RISR10: JSR
«WORD
XISR10: JSR
«WORD
RISR11: JSR
- WORD
XISR11: JSR
«WORD

RISR12: JSR
XISR12:
RISR13:

XISR13:
RISR14:

XISR14:
RISR1S:

XISR15:
RISR16:

XISR16:

RISR17:

XISR17:

16:36

SEQ 20

PAGE 21

RO,RCVISR

<1éoo1zo<1o-10>, <40%10>

XMTISR
<1600
10o<1o-1o>> <40+10>
RCVISR
<1éoo120<11-1o>> <40%11>

RO, XMTISR

<1600100<11t10>> <40*11>

;
<1623}“<12
~1o>> <40%12>
<1éoo10¢<12-1o>> <40%12>
ncv

<1éoo15;<13-1o>> <40+13>

<1éoo1o‘<13-1o>> <40+13>
RCVISR
<160012#<
14-10>> <40%14>
RO XMTIS

<1&ooto#<14-1o>> <40*14>

<1
124<15+10
>>,<40+15>
ao8
'£
ISR
<1600100<15t10>> <40+15>
RO,RCVISR
600120<16-10>> <40*16>
<1sootoo<1outo>> <40*16>
<1600124<
sos
o17210>>,<40+17>

<160015¢<17-10>> <40*17>

"..t..'t'....'t..'...‘....'..Q.....Q...QQ.

:PROG1

....Q....Q..t....i.t.t..t...

TRANSMITTER INTERRUPT SERVICE ROUTINE

'."Q..
-4
.'..t"'.t...Q.."....'....Q'...Q.'.........

1030
1031
1032

1033
1034

011000
011002
011004

011006
011010

010146
010246
012001

005711
100035

XMTISR:

1$:

l...t.l...Qtit......

Il.°(6)
-(6)

:PUSH R1 ON STACK
;PUSH R2 ON STACK

‘

:CHECK FOR TRANS READY

75m.nz

sGET LINE NO.

(Rfi)*.li
(RO)
,R2

grcnuz)

;TST FOR ZERD

aunrrnat::.act) sSEND A CHARACTER
xutcutcg
:COUNT CHARACTERS

2%:

{H!TAB( )

JUPDATE TABLE POINTER

-(SP)

;CLEAR TABLE POINTER

xnfrAa(2>

ggo:.nz

PAGE 22

0
X b
W~

0D
(=Tl
V]

+* ~

- B

+
+ +

MOV
MOV
MOV
RTI

ADWD
D

PPN
O~

ROL

DEC
BPL
BIC

MOV

4$:

16:36

;CLEAR TCR _BIT FOR LINE

JRESTORE R3

;POP STACK INTO R2

sPOP STACK INTO R1
;POP STACK INTO RO

:Qt.tltti.it'.t.'..'..'..'t"...'..t.

1063

;PROG1

....t.t..tt"...Qt'..t.t'tttt'tt'tt

RECEIVER INTERRUPT SERVICE ROUTINE

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

i
SRKERRREFREZ

e wd o e
b w—d —h b b b d d cd h o d e e ) e

CO0O0CO0COO0O

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

010146
010246
010346
010446
012001
011102
100032

RCVISR:

1%:

032702
001403
104002

MoV
MOV
MOV
MOV
MOV
MOV

BPL
8IT
BEQ

HLT+2

R1,-(6)

'tttttt

sPUSH R1 ON STACK
sPUSH R2 ON STACK
sPUSH R3 ON STACK

R;.-(6)

R3.=(6)

Ré.=(6)

PUSH R4 ON STACK

(RO +,R1

(R1) ,R2

78
#70000,R2
28

sGET RBUF ADDRESS
sREAD THE DATA
sBRANCH IF NO CHAR PRESENT
sCHECK FOR ERRORS
sBRANCH IF OK
::gCElVER Efififlgs

012604
012603

7%:

SRCVIAB(R,R3
G)

MASK
(4) ,R3

gz.RZ

#177600,R3

Ré
(RO) R4

?’ ALSO CLR CHAR PRESENT

Ré4

R4
R4

R2,

IR
A TE TR ]

=Rgeazse
3s:

#70000, R2

BRANCH IF 0K
SURE UPPER BYTE CLEAR
ATA ERROR
1=RBUF ADDRESS
DO

g PN S S SN

S
(=1 Y. ¥ N1

HLT+3

v
— v

BIC
MOV
CLRB

CMPB

2$:

sBIT13=FRAMING ERROR
sBIT14=UART OVERRUN
sCLEAR ERROR BITS FOR SPEED
;DUP THE RBUF
sCLEAR THE DATA
sLINE # TO LOW BYTE

sR2=CONTENTS OF RBUF
sBIT12=PARITY ERROR

b ed ok ek d ed o d
w—h wd wd o wond b o o b b b
b o o o o o o e o eh
oH

1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075

CLR
SEC

012602
012601
012600
000002

3s:

07=-JUN-82

TRANSMITTER ISR

100375
040361
012603
000741

30A(1052)

covN

b
-

005003
000261
006103
005302

MACY11

oMY

::::::‘Saaéés
SRROSIVIFXY

b
b

e Gy -

1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062

1048

coocoooooo OO0

—=o

CZDJBGO
J11 EXER & ONLNE
(ZDJBG.P
07-JUN-82 16:32

;RZ=CONTENTS OF RBUF (DATA)
R3=EXPECTED DATA

DE(CB

RCVCNT (&)

INC

R C VTAB(4)

JUPDATE TABLE POINTER

MOV
MoV

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

sPOP STACK INTO R4
+POP STACK INTO R3

7$
18

s CONT INUE

| CZDJBGO DJ11 EXER & ONLNE

;CZDJBG.P11
[
1106
1105
f
1106

[
;

1107
;;33

1110

011222
011224
011226

011230
11234

07-JUN-82 16:32
012602
012601
012600

005237
000002

MACY11 30A(1052)

001276

1152
1153
1156
1155
1156
1157

1158
1159

011236
011240
011242
011244
011246
011250
011252

011254
011256
011260
011262
011264
011266
011270
011272
011274
011302
011303
071304
011305
011306
011307
011310
011311
011312
011313
011314
011315
011316
011317
011320
011321
011322
011323
011324
011325
011326
C11327

011330
011331
011332
011333
011334

011335

011336
011337

011302
000377
011702
000106
011274
000106
016776
000001
017376
000001
017776
000001
020376
000001
020776
005015
040

041
042
043
044
045
046
047
050
051

052
053
054

055

056
057
060
061
062

DATA TABLES

ADRNIT:
CNTNIT:

177777

BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
.BYTE
BYIE

BYTE
BYTE
BYIE

BYTE

BHYIE
BYTE
BYTE
BYTE
.BYTE

41
&
&
&4
45
&
&
S0
51

§
S
54

S5
5
6?
6
6;

BYT
BYT
.BYTE
.BYTE
.BYTE
BYTE
BYTE

073

BYIE

074
075

sPOP STACK INTO R2
¢POP STACK INTO R1
sPOP STACK INTO RO

sSTEP INT SVC RTN FLAG

A A

R L

L L

Jie+F
L

L L T

T T T T

BINARY
:SW<2:0>=0 BINARY COUNT PATTERN
377
:SI12E=256.
PHRASE
;SW<2:0>=1 "'THE QUICK SILVER GRAY FOX..."’
70.
:SI1ZE=70.
SIxeIT
:SW<2:0>=2 040 THRU 137
70.
:SI12E=70.
END
1
END+400
1
END+1000
1
END+1400
1
END+2000
SIXBIT: .ASCII
<1551 2><377><377><377><377>
sCR-LF, FILLERS
BINARY: .BYTE
40

063
064
065
066
067
070
071

072

A A

SEQ 22

PAGE 23

ISRFLG

Hhbebbdiaidedodebodededdedebede b

+sPROG1

16:36

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

INC
RTI

1112

1131
1132
1133
1136
1135
1136
1137
1138
1139
1140
1141
1142
1143
1146
1145
1146
1147
1148
1149
1150
1151

RECEIVER ISR
Qv
vV
MOV

1111

1113
1114
1115
1116
1117
1118
1119
1120
1121
1122
1123
1126
1125
1126
1127
1128
1129
1130

07-JUN-82

BYTE

BYTE
BYTE

0
71
7
74
75

K
(ZDJBGO DJ11 EXER & ONLNE
CZDJBG.P11
07-JUN-82 16:32

1160
1161

1162

1163
11664
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176

1213
1214
1215

30A(1052)

07-JUN~82
DATA TABLES

011340
011341

076
077

.BYTE
.BYTE

76
77

011343
011344
011345
011346
011347
011350
011351
011352
011353
011354
011355
011356
011357
011360

101
10%
10
104
105
106
107
110
11
112
113
114
115
116

.BYTE
.BYTE
.BYTE
BYTE
BYTE
«BYTE
BYTE
BYTE
BYTE
BYTE
.BYTE
BYTE
BYTE
.BYTE

101
102
103
104
105
109
10
110
1M
112
113
114
115
116

011342

1177 011361
1178 011362
1179 011363
1180 011364
1181
011365
1182 011366
1183 011367
1186 011370
1185 011371
1186 011372
1187 011373
1188 011374
1189 011375
1190 011376
1191
011377
1192 011400
1193 011401
1196 011402
1195 011403
1196 011404
1197 011405
1198 011406
1199 011407

1200
1201
1202
1203
1206
1205
1206
1207
1208
1209
1210
1211
1212

MACY11

011410
011411
011412
011413
011414
011415
011416
011417
011420
0114217
011422
011423
011424

011425
011426
011427

100

117
120
121
122
123
124
125
126
127
130
131
132
133
134
135
136
137
140
141
142
143
144
145

146
147
150
151
152
153
154
155
156
157
160
161
162

163
164
165

.BYTE

BYTE
.BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYIE
BYTE
BYTE
+BYTE
BYTE
BYTE
BYTE
.BYTE
BYTE
BYTE
BYTE

.BYT
BYTE
.BYTE
.BYTE
BYTE
BYTE
LBYTE
.BYT
.BYT
BYIE
.BYTE
BYTE
SYTE

BYTE
BYTE
BYTE

100

117
120
121
1 g
1
124
125
1 9
1
1
131
1
1
1
135
1;’
1
140
141
16;
14
144
145

16’
14
150
l;
1
15
154
155
159
15
160
1
1

1
164
165

16:36

2
PAGE 24

SEQ 23

L
| CZDJBGO DJ11 EXER & ONLNE
| CZDJBG.P11
07-JUN-82 16:32
1216

L1217
1218

|
1219
|
1220
1221
1222

1223

1224
1225
1226
1227
1228
1229
1230
1231
1232

1233
1234
1235
1236

1237

1238

1239
1240
1241

1262
1243
1244
1245
1265
1247
1248
1249
1250
1251
1252
1253
1256
1255
1256
1257
1258
1259

1260
1261

1262
1263
1266
1265
1266
1267
1268
1269
1270
1271

011430

011431

011432

MACY11

30A(1052)

07-JUN-82
DATA TABLES

166

.BYTE

166

170

.BYTE

170

167

‘BYTE

171
172
173
174

BYTE
BYTE
BYTE
BYTE

171
172
173
174

011440
011441
011442
011443
011444
011445
011446
011447
011450

176
177
200
201
202
208
204
205
206

.BYTE
.BYTE
.BYTE
.BYTE
BvIE
.BYTE
BYTE
.BYTE
.BYTE

176
177
200
201
202
20
204
205
206

011451
011452
011453
011454

011455

011456

011457
011460
011461

011462
011463
011464
011465
011466
011467
011470
011471
011472
011473
011474
011475
011476
011477
011500
011501
011502
011503

011506
011505
011506
011507
011510
011511
011512
011513
011514
011515
011516
011517

175

207
210
211
212

.BYTE

.BYTE
BYIE
BYTE
BYTE

213

BYTE

215
216
217

BYTE
BYIE
BYTE

214

220
221
222
223
224
225
227
230
231

233
234
235
236
237

240
241
242
243
244
245
246
247
250
251
252
253
254
255

BYTE

.BYTE
BYTE
BYTE
.BYTE
BYTE
BYTE
-BYTE
-BYTE
.BYTE
.BYTE
-BYTE
.8YT
-BYT
-BYTE
.BYTE
-BYTE
.BYTE
:

BYTE
¥

BYTE
BYTE
BYTE
BYTE
BYTE
-BYTE
.BYTE
-BYTE
.BYTE
.BYTE

SEQ 24

PAGE 25

167

011433
01143%
011435
011436

011437

16:36

175

207
210
211
212
21

214

215
216
21

221
222
324
225

240
41
240
4
244
245
246
24
250

254
255

.
.
I

‘ CZDJBGO DJ11 EXER & ONLNE

| CZDJBG.P11
1272
1273

1274
1275
1276
12727
1278
1279
1280
1281
1282
1283

1286
1285
1286
1287
1288
1289
1290
1291
1292
1293

129
1295
1296

011520
011521
011522
011523
011524
011525
011526
011527
011530

011531
011532
011533
011534
011535
011536
011537
011540
011541
011542
011543
011544
011545

011546
011547
011550
011551
011552
011553
011556
011555

1297
1298
1299
1300
1301
1302 011556
1303 011557
130 011560
1305 011561
1306 011562
1307 011563
1308 011564
1309 011565
1310 011566
1311
011567
1312 011570
1313 011571
1314 011572
1315 011573
1316 0115764
1317 011575
1318 011576
1319 011577

1320
1321
1322
1323
1326
1325
1326
1327

011600
011601
01160
01160
011604
011605
011606
011607

07-JUN=82 16:32
256
257

260
261
262
263
264
265
266
267
270
271

272
273
274

275
276
277
300
301
302
303

304
305
306

307
310
311
312
313
314
315
316
317
320
321
322
323
324
325
326
327
330
331
332
333
33
335

336
337
340
341
342
343
344
345

MACY11 30A(1052)

07-JUN=-82

DATA TABLES
.BYTE
‘BYTE

"BYTE
.BYTE
BYIE
BYTE
BYTE
.BYTE
BYTE
.BYTE
.BYTE
BYTE

.BYTE
.BYTE
.BYTE

.BYTE
BYTE
BYIE
.BYTE
BYTE
BYIE
.BYTE

.BYTE
BYTE
-BYTE
.BYTE
BYIE
BYTE
BYIE
BYTE

BYTE
BYTE
BYTE
BYTE
.BYTE
BYTE
-8YT
.BYT
JBYTE
BYTE
.BYTE
-BYTE
-BYTE
-BYTE
-BYTE
-BYTE
.BYTE
.BYT

.BYT
-BYTE
-BYTE
.BYTE
.BYT
-BYT
-BYTE
-BYTE

256
257

260
261
262
26
264
265
266
267
270
271

272
273
274

275
276
277
300
301
302
30

304
305

307
310
31
312
3
314
315
316
31

331
:

334
325

M2
16:36 PAGE 26

SEQ 25

N
2
' CZDJBGO DJ11 EXER & ONLNE
| CZDJBG.P11
07-JUN-82 16:32

1328

1329
1330
1331
1332
1333
1334
1335
1336
1337
1338

1339

011610

011611
011612
011613
011614
011615
011616
011617
011620
011621
011622

011623

1340
1341
1342
1343
1344
1345
1346
1347

011624
011625
011626
011627
011630
011631
011632
011633

1349
1350
1351
1352
1353
135,
1355
1356
1357
1358
1359
1360
1361
1362
1363

011635
011636
011637
011640
011641
011642
011643
011644
011645
011646
011647
011650
011651
011652
€11653

1348701163

1366

1365
1366
1367
1368
1369
1370
1371
1372
1373
137,
1375
1376
1377
1378
1379
1380
1381
1382
1383

0116564

011655
011656
011657
011660
011661
011662
011663
011664
011665
011666
011667
011670
011671
011672
011673
011674
011675
011676
011677

346

347
350
351
352
353
354
355
356
357
360

361

MACY11

30A(1052)

07-JUN-82
DATA TABLES

BYTE

BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE

BYTE

361

362
36
364
365
366
367
370
371

373
374
375
376
377
000
001
002
003
004
005
006
007
010
011

BYTE
.BYTE
BYTE
.BYTE
.BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYIE
BYTE
BYTE
BYTE
BYTE

373
374
375
378
377
0
1
2
3
&
5
6
7
10
11

BYTE
BYTE
.BYTE
BYIE
BYIE
BYTE
BYTE
BYIE
BYTE
BVIE
BYTE
BYTE
BYTE
.BYTE
BYTE
BYTE
BYTE
BYTE
.BYTE

13
14
15
18
1
20
21
22
2
2
25
26
2
30
31
32
3
3%
35

012

013
014
015
016
017
020
021
022
023
024
025
026
027
030
031
032
033 .
034
035

BYTE

SEQ 26

346

BYIE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE

BYTE

PAGE 27

347
350
351
352
353
354
355
356
357
360

362
363
364
365
366
367
370
371

372

16:36

372

-4

—_—

MACY11 30A(1052)

NW
oo

SHoonnsoon

\h&bwz NNYN
o
s

177777

052521
044523
043440
047506
050115
042526
033470
026063

—

NNN~

—=o

— «—
—
) e —
—

b
ok

1390
1391
1392
1393
1394
1395
1396
1397
1398
1399

D o

1388
1389

07-JUN-82 16:32

b e

1386
1387

1384
1385

11 EXER & ONLNE

el=lelelelatola) OCOoO00

| C2ZDJBGO

' CZDJBG

043517
012012

020523

PHRASE:

.EVEN

07-JUN-82

DATA TABLES

16:36

3
PAGE 28

.BYTE
.BYTE

36
37

.ASCII
«ASCIZ

<15><12><377><377><377><377>

“'THE QUICK SILVER GRAY FOX JUMPED OVER 9.,876,543,210.0
LAZY DOGS!''’

SEQ 27

c
CZDJBGO DJ11
(2DJSG PN

EXER & ONLNE

07-JUN-82 16:32

MACY11 30A(1052)
PROG2:

1400
1401
1402
1403

07-JUN-82

16:36

SEQ 28

PAGE 29

ON~LINE EXERCISER (TRANSMIT LAST CHARACTER RECEIVED)

:tttttt'ttitfit.tt"t.tQttt.itttttt't

:PROGRAM 2:

t.ttt'ttttt'tittttttttttttttttt.tttt

ON=LINE MULTI-ECHO EXERCISER
TRANSMITS

LINE.

THE

LAST

CHARACTER RECEIVED ON

ITS RESPECTIVE

_A CARRIAGE RETURN AND LINE FEED ARE INSERTED

EVERY 72 CHARA(TERS.

;t.'ttfitttt'tt't..t't"i'ttttitttttt

tttt't.tt.tt.ttt'tfit.ttttittttttt'.

000005
012706
052737
012701

012050
012052
012054
012056

001200
000340
001312
002000

PROG2:

177776

RESET
Mov

BIS

18:

2s:

001374

#3460,

Q4PS

:CLEAR OUT THE WORLD
JRESET THE STACK POINTER
sPROCESSOR TO LEVEL 7
:FIRST TABLE POINTER
;LENGTH OF TABLES (WORDS)
:CLEAR THE TABLE

MoV
MOV
CLR
DEC

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

Mov

#400,R2

;LENGTH OF MASK/COUNT TABLE

CLRB
DEC
BNE

(R1)+
R2
2%

:CLEAR COUNT

BNE

000400

#STACK, SP

INC

:SKIP MASK

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
¢SET TCR'S, ALL LINES ENABLED
012060
012062

012072
012076
012100
012104
012106
012110
012114
012116
012120
012124
012126

AN NN

—d cnd o

coocooooo

) —d —

012130

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

P2INIT: CLR
MoV
Mov
MOV
1$:
MOV
MOV
CMP
MOV

001266
001270
012250

001272
000002

(R3)+

:ADDRESS OF RBUF

MOV

R3,

(R2)+

;SET UP TRANSMITTER INTERUPT VECTOR

CMP

(R3)+,”

(R3)+

MOV

001220
000001
001260

48:

(R$)+

XMTLVL,

(R2)+

(R3)+

#50501, (R1)+

(R1)+

ASL

MOV

MARK

Sé;

genx,

(R1)

MOV
ASR

001260

:;ADD & TO R3
:ADDRESS OF CSR

MOV

050501

sSET UP POINTER TO LINKERS

;SET UP RECEIVER INTERUPT VECTOR

ADD
ST

001274

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

MOV

SVSWO(R0),
(R1)
RO

(R$)+,

:ADDRESS OF CSR

:SET UP CSR

:BITO = RECEIVER ENABLE
:BITé = RECEIVER INTERUPT ENABLE
:BIT8 = TRANSMITTER SCAN ENABLE
:BIT12
= STATUS ENABLE
:BIT14 = TRANSMITTER INTERUPT ENABLE

SUNI
# «T
2

:SET TCR BITS FOR SELECTED LINES
:RESET UNIT COUNTER

:SET UP MARKER

sSET UP OFFSET TO TABLES

:CHECK FOR LINE SELECTED

;o v+F

164

172

LSS LY]

200
202

NN
= O
nNoMsMNOO

1456
1457
1458
1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1671
1472
1473
1474
1475
1476
1477
1478
1479

55322‘32933
=
nunnununnu“”unu“’

(ZDJBGO DJ11 EXER & ON LNE
' C2DJBG P1
07-JUN-82 16:32

012764
012764
005724
006337
103363

022121
005200
020037

001326
042737

016647
000045

001312
004312

001260

5%:

001264
000140

SEQ ¢9

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

:2§GP2. XMTTAB(4)
.
XMTCNT(4)

ASL
BCC

MARK
48

INC

TST

CMP

BNE
BIC

177776

(R4) +

¢INC OFFSET TO NEXT LINE

(R1)+,

(R1)+

RO,

UNITS

1$
#1640,

;SET UP XMTR TABLE
;SET UP COUNT

awPs

;ADD 4

sLOWER PROCESSOR PRIORITY

:ti.'ti.'ltt.t.t..l.t'.".'tt't.tttlf

:PROG2

i.ltfi..ttt.tt.ttttt.ttttttttttttt'.

FOREGROUND PROGRAM TO READ/WRITE MEMORY

:'.t..ittt.ti..t'..tt."i'.t'.tt.fi.'

.tt..tttt'..l'tittt.fitttt..tttttt't

012230
012234
012236
012240
012242
012244
012246

01270C
000241
005540
001376
005700
001374
000770

020000

FORP2:
18:

MOV
CLC

ADC

BNE
TST

BNE
BR

#20000,R0
=(RO)

;TOP OF 4K BANK OF MEMORY
;FAST READ/WRITE TO MEMORY

sRAPID REPEAT

sCHECK FOR LOC 0

1$
FORP2

;BRANCH IF MORE MEMORY
:LOCP FOR EVER!

:t.t'.t...'t..fi.t."""".fi.Ittfi.tt

.t..lt.Qt'.t.ttt.'t..ttt.il'ttttttt

1480

1481
1482
1483
1484
1485
1486
1487
1488
1489
1490
1491

MACY11

;PROG2 LINKERS TO DJ11 INTERRUPT SERVICE ROUTINES

:‘t..tt.'..'t'......t..."'..t......iIt..t'

..t‘t.ttlttt.tttt‘.tttt..tttt

012250

R2SRO:

X2SRO:
R2SR1:

X2SR1:
R2SR2:

JSR
WORD
JSR

RO,P2RISR
<160012+<0+10>>,<0+40>
RO,P2XISR

JSR
LWORD
JSR

RO pzassa
<160012+<1¢10>>, <1+40>
RO,P x&sa

JSR
MORD

RO,P2RISR
<1600124<2+10>>,<2+40>

JWORD

.WORD

<160020+<0+10>
<0*40>
>,

<1Aog£ +<1+10>>, <1440>

1492
1493
1494
1495

X2SR2:

JSR

RO, P2XISR

R2SR3:

JSR

RO,P2RISR

1497

X2SR3:

JSR

R? PZ%&SR

1496

R2SR4:

000300
013042

JWORD

.WORD

WORD
JSR
LWORD

+<2010>>, <2+40>

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

<
+<3+10>>,<3+40>
RO.P2RISR
<160012+4<4+10>>,<é*40>

X2SR4:

JSR

RO,P xés'

R2SRS:

X2SRS:

JSR
LWORD
JSR

RO,P Ris'
<1600124<5+10>>,<5+40>
RO, P xssn

R2SR6:

JSR

RO,P ngsu

LWORD

_— f
JSR

X2SR6:

R2SR7:

<1600204<4+10>>, <4240>

<160020+<5+10>>, <5+40>

<16001 o;6-10>>.<6-40>

<?6 26§<6'1o>>.<6'4o>

RO,P2X

RO,P2RISR

VIV . AW

-Jd—.d-‘d-‘d-‘—d-.d

WRORSRORORR A”vngnhd-a_ha.atggnc
KROKZE
~Daruonn&uunhu¢><un~u0nn&w~na

(ZDJBGO DJ11
CZDJBG P11

EXER & ONLNE

012434
012440
012444
012450

07-JUN-82 16:32
160102

004037
160110

004037
160112

004037
160120

004037

MACY11

000340
012650
000340
013042
000400
012650
000400
013042

30A(1052)

07-JUN=-82

ISR LINKERS

«WORD
JSR
«WORD
R2SR10: JSR
«WORD
X2SR10: JSR
«WORD
R2SR11: JSR
«WORD
X2SR11: JSR
«WORD
R2SR12: JSR
.WORD
X2SR12: JSR
.WORD
R2SR13: JSR
«WORD
X2SR13: JSR
«WORD
R2SR14: JSR
-WORD
X2SR14: JSR

X2SR7:

R2SR1S:

16:36

3
SEQ 30

PAGE 31

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

<160020+<7-1o>> <7%40>
<160012+<1o-1o>> <10%40>
<16gog?o<1o-1o>> <10%40>
<1éoo12+<11-10>> <11%40>
RO,P2RIS

RO,P2XISR

<1éog£?§<11-1o>> <11%40>

<160012;<12-10>> <12%40>
<160020;;12'10>> <12+%40>
<16go}lo<1s-1o>> <13%40>
<1éoozo;<13-10>> <13%40>
<1éog}§*<14-10>> <14%40>
<1600200<16-10>> <14*40>

<160§?50<1s-1o>> <15+40>

X2SR15:

mrxu

R2SR16:

ao P

X2SR16:
R2SR17:

<160023;;16-1o>> <1640>

X2SR17:

no P2X

204<15+10>>,<1540>
ssa

;
1 :16~10>>.<16-40>

<16001 o<17-10>> <17+40>

20¢<17010D>.<17~£0>

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

:PROG2

TRANSMITTER INTERRUPT SERVICE ROUTINE

...ti.‘..t.t..tt..tttt.tt

..Q'...Q..Q..'...Q.'.Q.O"Q.....Q.tfi‘i....

....l.t........’.t..ttt.tittt

012650
012650
012652
012654
012656
0126690

P2XISR:

010146
010246
012001
005711
100064

sPUSH R1 ON STACK

2: )

sCHECK FOR TRANS READY

7(R1) ,R2
R2
(RO) ,R2
XMTCNT(2)

:GET LINE NO.

‘2 ;36"
1$:

000007

004312
001312

00531§

[rr————————

R1,~(6)

001312

000006

;PUSH R2 ON STACK

:TST FOR Z2ERO

<GET OUT

iXflTTAB(;’.é(R1):SEND CHARACTER
XMTCNT(
sCOUNT CHARACTERS
gNVTAB( )
s
CHECK FOR NESSAGE OR DATA
$
sBRANCH l DAT
XMTTAB(2)
sUPDATE TABLE PO!NTER

F
CZDJBGO DJ11 EXER & ONLNE
CZDJBG.P11
07-JUN-82 16:32
1568

1569
1570
1571
1572
1573
1576

1575
1526

1577

1578

1579

1580

1581

1582

1583

012724

012726
012732
012734
012742
012746
012754

012760
012762

012764

012766

012772

012774

013000

013002

013004

000754

105162
001430
012762
060262
112762
105762

001336
161002

006202

005037

000261

006137

005302

100374

013030

000712

013032
013034
013036

012602
012601
012600

1588

1589
1590
1591

;ggg

013032

013040

016442

1605

1608
1609

BNE
SUB
ASR

001312

004312

1$
(RO),

ROL

MARK

:MOVE MARKER

BPL

5§

BIC

*COUNT LINES

MARK,

4(R1)

#2,

XMTCNT(2) :COUNTER OF 2 CHARACTERS

38:

MOVE

MOV
MOV
MOV

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

;POP STACK INTO R2
:POP STACK INTO R1
*POP STACK INTO RO

: ..t'.l.t..l'.'.."......QQ.....Q.t...t'.l‘t..'tt'.

013042

013042
013044
013046
013050
013652
013054

013056

013062
013064

010146
010246
010346
012001
011102
100053

032702

001402
104002

P2RISR:

18:
070000

A A L

MoV
MoV
MOV
MOV
MOV
8PL
BIT

BEQ
HLT+2

R1.=(6)
R2.~(6)
R3.~(6)
(RO)+ R
(R1) ,R2
78

#70000,R2

000771

1615

013070

010203

1619

L L

...t..‘.tt...t..ttt.t

L L

T rvvrrrrrsosw e

:PUSH R1 ON STACK
:PUSH R2 ON STACK
:PUSH RS ON STACK
;GET RBUF ADDRESS
:READ THE DATA
sBRANCH IF NO CHAR PRESENT

sCHECK FOR ERRORS

*BRANCH IF OK
:RECEIVER ERROR

sR1=RBUF ADDRES
:
TS OF RBUF

:BIT12=PARITY ERROR
:BIT13=FRAMING ERROR

013066

1620
1621
1622
1623

:CLEAR TCR BIT

1$
: CONT INUE
#RETURN,XMTTAB(2) :TYPE CARRIAGE RETURN, LINE FEED

;PROG2 RECEIVER INTERRUPT SERVICE ROUTINE

}ggz
1616
1617
1618

:BRANCH IF MORE

B8R
MOV

1610
1611

1612

*BRANCH IF REAL DATA
*RECOVER LINE NUMBER
;SET UP MARKER

DEC

000004

CNTTAB(2)
: CHANGE FLAG
3%
:BRANCH IF WAS DATA
ORCVTAB.XHTTAB(ZS sSET UP POINTER TO KECEIVER TABLE
R
XMTTAB(2) :ADD OFFSET
#72..,
XMTCNT(2) :COUNT 72. CHARACTERS TO THE LINE
RCVTAB(2)
JCHECK FOR A BREAK

MARK

SEC

58:

SEQ 31

PAGE 32

CLR

RTI

1596

1606
1607

004312

000002

1595

1599
1600
1601
1602
1603
1604

COMB
BEQ
MOV
ADD
MOVB
TST8B

001312

48:

159‘

1597
1598

07-JUN=82
16:36
TRANSMITTER ISR
BR

28:

001260

000002

1587

30A(1052)

001260

112762

000721
012762

013022

002312
001312
000110
002312

001260

013012
013014

1586

005313

043761

1584
1585

MACY11

013072
013074
013076

013100

013102
013106
013110

BR
28:

105003
000303
106303

061003

136302
001401
104002

005312

MOV

*BIT14=UART OVERRUN

13
R2,

:FORGET THE DATA
R3

C(LRB
SWAB
ASLB

R
R
R

BITB
BEQ
HLT+2

MASK(3),R2
3s

ADD

(R0) ,R3

:DUP THE RBUF

sCLEAR THE DATA
sLINE # TO LOW BYTE
SLINE # « 2. ALSO CLR CHAR PRESENT

*ADD OFFSET

;CHECK CHARACTER LENGTH
:BRANCH IF OK
:CHARACTER LENGTH ERROR
:R1=RBUF ADDRESS

b b
d e

07-JUN-82
16:36
RECEIVER ISR

3s:

TST8
BNE
Move

sus
ASR

1644
1645
1646
1647
1648

012603
012602
012601
012600
000002

5$:
-

012763
112763
000723

CLR
SEC

ROL

DEC
BPL

PAGE 33

RCVTAB(3)

é§6>.

;RECOVER LINE NUMBER

;UPDATE MARKER

:BRANCH IF REAL DATA

;SET UP MARKER

MARK
MARK,

;R2=CONTENTS OF RBUF (DATA)

:CHECK FOR BREAK

RCVTAB(3) ;SAVE THE DATA

MARK

LS1,¥]

002312
005313
016442
000002

110263
105163

000002

wWw

001260

48:

(=]

100374

053761
000736

1640
1641
1642

1643

30A(1052)

ggWNNN—‘—D
oo
oo

001260

oSN

b—

001260

002312

—

b — b o
b
b
b
b

002312

MACY11

§°

1638
1639

(eleleleTe] j=lelelele]

1624
1625
1626
1627
1628
1629
1630
1631
1632
1633
1634
1635
1636
1637

WWWW WWWWWW

CZDJBGO DJ11 EXER & ONLNE
CZDJBG.P11
C7-JUN-82 16:32

:COUNT LINES

2(K1)

:BRANCH IF MORE
:SET TCR BIT

: CONT INUE

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

#RETURN,XMTTAB(3) :TYPE CARRIAGE RETURN, LINE FEED

ff'

7%:

(6)+,R3

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

XMTCNT(3) ;MESSAGE LENGTH

sPOP STACK INTO R3

sPOP STACK INTO R2
<POP STACK INTO R1
sPOP STACK INTO RO

SEQ 32

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

MACY11

1649
1650
1651
1652

1653
1654

1655
1656
1657

1667

1668
1669

SEQ 33

PAGE 34

:"'t'fi"lt‘t.t...t..tt'tt'.tt.'t..tt.ttt'i

:PROGRAM 3:

ECHO EXERCISER

fi..tttttttt.ttttt.fi't'ttttttt

:"..'t'.'.t.'.t"'t.'t"'t"Qtit!

'tt.lt"tt"tttt..ttt!tt'tt"t"..

013216
013220

000005

1658
1659
1660
1661
1662
1663
1664
1665

1666

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

001200
000340
001312

PROG3:

RESET

177776

002000

#340,

a#Ps

#XMTTAB,R1

1$:

000400

#STACK,

2$:

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

012705

016776

#END,

ttt.

:CLEAR OUT THE WORLD
:RESET THE STACK POINTER
:PROCESSOR TO LEVEL 7

:FIRST TABLC

POINTER

:LENGTH OF TABLES (WORDS)
:CLEAR THE TABLE

sLENGTH OF MASK/COUNT TABLE

:SKIP MASK
sCLEAR COUNT

sSET UP BUFFER POINTER

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

1670
1671

1672
1673
1674
1675
1676
1677
1678

P3INIT: CLR
MOV
MOV
MoV
1$:
MOV
MOV
CMP
MOV
ADD
TST

001266
001270
013570

1679

1680
1681
1682
1683

001272
000002

016011
006,

001312
002312

(R2)+

(R3)+,

(R3)+
(R3)+

(R1)+
RO

001220

001260

(R$)+

056‘00. (R1)+

050400

000001

(R3)+

(R3)
(R3)+

005721

006300

(R3)+,

R1.
2

XMTLVL, (R2)+

001274

012721

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

sADDRESS OF RBUF
sSET UP TRANSMITTER INTERUPT VECTOR

sADDRESS OF CSR
sSET UP CSR, TRANSMITTER ONLY
sBIT8 = TRANSMITTER SCAN ENABLE
sBIT12 = STATUS ENABLE
sBIT14 = TRANSMITTER INTERUPT ENABLE

zeix.

i (R1)

RS, XMTTAB(4)
R5. RCVTAB(4)

+SET UP HEADER MESSAGE
+SET uP REC EIVER TABLE

R+,

2%:

sADD 4 TO R3
-ADDRESS OF CSR

UNIT # * 2
SE T TCR BITS
ITS
FOR SELECTED LINES
RE ;ET UNIT COUNTER
SE uP
SE T UP OFFSET TO TABLES
PUSH R2 ON STACK
sPUSH R3 ON STACK
s CHECK F OR LINE SELECTED

SVSWO(RO), (R1)
RO

001260

sSET UP POINTER TO LINKERS
sSET UP RECEIVER INTERUPT VECTOR

MARK

Ré

-+ +F

013702
012703

001262
016715

3s:

b d

5%:

003312

6%:

001260

MOV
MoV

MOVB

BEQ
DEC
BNE
B8R
CLRB

CMP
INC
CMP
BNE
BIC

001264
000140

177776

BUFSIZ, R2
#MSGP3, R3
;RB)#.
(R5)+

RS.MAXTAB(4)

(RG)+

MARK

(6)+,R3
(6)+,R2
(R1)+,
(R1)+
RO
?2.
UNITS
#1640,

asPsS

SEQ 34

PAGE 35

DEC

BNE
MOV
TST
ASL
BCC
MOV

MOV

sSET UP COUNTER
;SET UP MESSAGE POINTER
sMOVE MESSAGE INTO BUFFER
;BRANCH IF END OF MESSAGE
+COUNT BUFFER SIZE
sBRANCH IF MORE
sBRANCH IF DONE
;CLEAR REST OF BUFFER
sCOUNT BUFFER SIZE
sBRANCH IF MORE

sSETUP BFR POINTER TABLE.
sINC OFFSET TO NEXT LINE

sPOP STACK INTO R3

sPOP STACK INTO R2

sADD 4

;LOWER PROCESSOR PRIORITY

:Q'Q..t......t..t.............tl'...

;PROG3

l....'...'.tt.'.ttt.t.ttt.It.'t'tttt

FOREGROUND PROGRAM TO START RECEIVERS, THEN EXERCISE MEMORY.

:t..".'.Q.tfi...'t.".."'..'...'l....

t...tt.......l...t..l.'..t..t...'.

FORP3:
18:

000002

062701
005300
001372

MEMX3:
18:

28:

ADD
DEC

000010

020000

#XMTTAB,R1

#400,R2
(R1)

sCHECK FOR XMTR TABLE CLR
sBRANCH IF NOT
sG0 TO NEXT LINE ENTRY
s COUNT .LINES
sBRANCH IF MORE LINES
<SET UP UNIT COUNTER
+AND DEVICE ADDRESS POINTER
<SET RECEIVER ENABLES OF CSR

:BITO = RECEIVER ENABLE
;BIT6 = RCV INTERRUPT ENABLE
sUPDATE TO NEXT DJ11
sCOUNT DJ11°S
;TOP OF 4K BANK OF MEMORY

sFAST READ/WRITE TO MEMORY
sRAPID REPEAT
< CHECK FOR LOC 0
sBRANCH IF MORE MEMORY
:LOOP FOR EVER!

052711

001264
001266
000101

MOV
MOV
IST

2328 3 RRE

001312
000400

@TM

012701
012702
005711

b
-

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

48:

NN~ ~
NN N

b d o

b e e

d b

— d b d b

IS IIINNNIN
NN
-‘Ooaflom‘““N—‘os“

o md

33333
fifig‘fi‘fiflnNO SO
SO aggfiu gflggy“

eii=l-ll=ToToToT
=lelelelele)
d ok d d

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

't.ti.t"tt'.'.'Q...'.'".ilt.Q..Qt..ll'.t..

;PROG3

‘.Qt.ll.i.liltt.ittil'.'t..i

LINKERS TO DJ11 INTERRUPT SERVICE ROUTINES

:tt.ttt'.'t.!I.Q"t.'"""i.QQ.Q'.'.'!'I".Q.Q

'Q.‘.Ql'..t..t.'.‘t.'t‘.‘

R3SRO:

JSR

RO,P3RISR

X3SRO:

JSR

RO,P XISR

.WORD

<1éogt +<0*10>>, <0%40>

soeef

J
CZDJBGO DJ11 EXER & ONLNE
CZDJBG.P11
07-JUN=82 16:32
1761

1762

013604

013610

1600 o

004037

000000

014320

1763 013614 160022 000040
013620
004037
014170
1765 om%:. 160030 000040
1264

MACY11

30A(1052)

07-JUN-82
ISR LINKERS

R3SR1:

JSR

X3SR1:

JSR

.WORD

.WORD
.WORD

1766
1767
1768

013630
013634
013640

004037
160032
004037

014320
000100
014170

R3SR2:
X3SR2:

JSR
.WORD
JSR

1770

013650

004037

014320

R3SR3:

JSR

1769 013644 160040 000100

1771
1772
1773
1776
1725
1776
1727

013654
013660
013664
013620
013674
013762
013704

1779

013714

1776

1780

013710

160042 000140
004037 014170
160050 000140
004037 014320
160052 000200
004037 014170
1
000200

004037

160062

013720

004037

1782

013730

004037

013734
013740
013744
013750

160072
004037
160100
004037

1788

013760

004037

1787

013754

160102

R3SR4:

X3SR4:

.WORD
JSR
. WORD
JSR
.WORD
JSR
.WORD

014320

R3SRS:

JSR

014170

X3SRS:

JSR

014320

R3SR6:

JSR

000240

1781 0137264 160070 000240

1783
1784
1785
1786

X3SR3:

.WORD

000300
014170
000300
014320

014170

000340

1789 013764 160110 000340
179C 0137720 004337 014320
1791 013774 160112 000400

16:36

3
PAGE 36

<1eoozoo<o-1o» <0%40>

RO.P3RISR

<16001zo<1-1o>> <1%40>
RO,P3XISR
<1éoozoo<1«1o» <1%40>

RO,P3RISR
<1éoo1zo<z-1o>> <2%40>
RO,P3XISR

<1éoozoo<2-1o>> <2%40>
P3RI

<16001z¢<3-1o>> <3%40>
RO,P3XIS
<1éoozo+<3-1o» <340>
5
<1éom +<4%10>>, <4*40>
RO,P3XISR
60020«4-10» <4%40>

ao P3RIS

.WORD

<1soo
g
<s-1o».<s-4o>

.WORD

<1éoo o<s-1o>> <5%40>

RO,P3R

R3SR7:

WORD
JSR
LWORD
JSR

<1
1«5-10» <6*40>
RO,P
<1
0<6-10» <6*40>
RO,P gsa

X3SR7:

JSR

<1$og£oo<mo» <7*40>
3
<1l.og‘ +<10210>>, <10+40>

X3SR6:

.WORD

.WORD
.WORD

R3SR10: JSR

124<7210>>, <7+40>

1792
1793
1796
1795
1796

014000
014006
014010
014014
014020

004037
160120
004037
160122
004037

014170
000400
014320
000440
014170

X3SR10: JSR
LWORD
R3SR11: JSR
MORD
X3SR11: JSR

RO,P3XISR
<1
+<10210>>, <10+40>
RO,P ssa
<1600124<11010>>,<11240>
RO, P3XISR

1798

014030

004037

014320

R3SR12: JSR

1800

014040

004037

014170

.WORD

X3SR12: JSR

<1&ogt +<12¢10>>, <12+40>

MNORD

1797 014026 160130 000440

1799 014034 160132 000500

1801

180z

1803
1804
1805
1806

014046

014050

160140

004037

074054
014060
014064
014070

160142
004037
160156
004037

014100
014106
014110

1812

1814

1807

1808
1809
1810

1811

014320

1815

R3SR13: JSR

l
SR

RO,P

014170
000540
014320

JWORD
X3SR13: JSR
LHORD
R3SR14: JSR

004037
160160
004037

014170
000600
014320

X3SR14: JSR
LWORD
R3SR15: JSR

014120

004037

(34170

X3SR15: JSR

RO,P3XISR

014130

004037

014320

. WORD

R3SR16: JSR

014740

004037

014170

.WORD

ag gsa

X3SR16: JSR

XISR

014074

014114

160152

000600

umgz 000640

1813 014126 160170 000640
1816

. WORD <1éog.25«n-w» <11+40>

014134

160172

000700

. WORD

WORD

12410>>,<12+40>

<160012+<13+10>>, <13+40>
SR
<
+<13210>>,<13+40>
uor 5

6081 +<14210>>,<14240>
<

n%sn
+<142105>, <14 240>
p
SR

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

<16 204<15+10>>, <15+40>
o<16-1o>>.<1o-4o>

SEQ 35

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

- C2DJBG.P11

014144
014150
014154
014160
014164

160200
004037
160202

004037
160210

000700
014320
000740
014170
000740

30A(1052)

07=JUN=82
ISR LINKERS

16:36

SEQ 36

PAGE 37

LWORD
R3SR17: JSR

<1600204<16*105>>,<16+40>
RO,P3RISR

X3SR17: JSR

RO,P3XISR

JWORD

<160012+<17410>>,<17+40>

<180020+<17+10>>,<17+40>

;tt..'tt'ltttt"ttt"Qt'i."t.'ttt'.ttt

:PROG3

tttt.lttt..ttt.t.tt'ttt.t.ttttt't

TRANSMITTER INTERRUPT SERVICE ROUTINE

;tt.tt.t't.tttttttttt't.tt!tttit'ttl'ttt'.

'.ttttt.ttttttttt.tttt.ttttttt

P3XISR:

010146
010246
012001
005711

R1,=(6)
R2.=(6)

;PUSH R1 ON STACK
:PUSH R2 ON STACK

;g{

;CHECK FOR TRANS READY

MOVB
ASL

7(R1).R2
R2

:GET LINE NO.

MOVB

aunrina(s).ota1>;seuo A CHARACTER

CMP
BNE
SUB
TSTB
BNE
MOV
CLR
SUB
ASR

MAXTAB(2) ,XMTTAB(Z) ;CHECK FOR END OF BUFFER
58
:BRANCH IF NOT
BUFSIZ2,XMTTAB(2)
:RESET BUFFER POINTER
@XMTTAE(2)
;CHECK NEXT CHARACTER
3
SBRANCH IF MORE DATA
-(SP)
XMTTAB(2)
;CLEAR TABLE POINTER
(RO) ,R2
a;

MOV

CLRB
INC

b
—b

MOV
MOV

ADD

NJR; oo
-

—

prer e S

026262

0007
W

006302
061002
117261

100043
116102

18:

88 8888
v P Gt

014170
014170
014172
014174
014176

1817
1818
1819
1820
1821
1822
1823
1824

MACY11

001312

58:

28:

014266

CLR

014270
014272
014274
014276
014300
014304
014306

014310
014310

SEC

38:

ROL

“

MOV
BR

014312
014314
014316

(RO)+,R1

(RO) ,R2

@XMTTAB(2)
XMTTAB(2)

:CLR TABLE AFTER USE
;UPDATE TABLE POINTER

DEC
BPL
BIC

R3,4(R1)

;CLEAR TCR BIT FOR LINE

MOV
MOV
:?Y

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

:POP STACK INTO R2
:POP STACK INTO R1
;POP
STACK INTO RO

(SP)+,R3
13

:RESTORE R3

H diebebie
b
inie
Ltt
L L L id
T T T Ty eb
rrrrrr ie
e s s TR
bt

;PROG3

RECEIVER INTERRUPT SERVICE ROUTINE

;Q.Q."Q....'.'.Q...l."..fi'.l.....'.Q.....Q..Q...

014320
014320
014322

014330
014332

010146

011102

P3RISR:

1$:

MOV
MOV
MOV
MOV
MOV

MOV

R1,~(6)
R2,~(6)
R3,~(6)
RG . =(6)
(RO)+,R1
(R1) ,R2

:PUSH R1 ON STACK
:PUSH R2 ON STACK
:PUSH R3 ON STACK
;PUSH R4 ON STACK
:GET RBUF ADDRESS
*READ THE DATA

.Qi...t.l!.ttl.‘..t.ti

s1eeF
o

|
' CZDJBGO DJ11 EXER & ONLNE
| CZDJBG.P1T
07-JUN-82 16:32

1873 014334 100077

1874
1875
1876

1877
1878
1879

014336
014342
014344

032702
001402
104002

L3
MACY11

30A(1052)

07-JUN-82
16:36
RECEIVER ISR

BPL

070000

BIT
BEQ _
HLT+2

#70000,R2
2§

:BIT13=FRAMING ERROR

014346
014350
014352
014354
014356
014360

000771
010204
105004
000304
106304
061004

1889
1890
1891

014366
014370

001401
104002

1893
189
1895

014372
014376
014400

005764
001002
104002

014402

000753

1883
1884
1885
1886
1887

1888

1892

1896
1897

1898

1899
1900

:BRANCH IF NO CHAR PRESENT

;CHECK FOR ERRORS
:BRANCH IF OK
:RECEIVER ERROR

:R1=RBUF ADDRESS
:R2=CONTENTS OF RBUF
:BIT12=PARITY ERROR

1380

1881
1882

014362

014404
014410

136402

105774
001403

28:

005312

BR
MOV
CLRB
SWAB
ASLB
ADD

BITB

BEQ
HLT+2

002312

3%:

002312

48:

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

MASK{4),R2

:BIT14=UART OVERRUN
:SKIP_BAD DATA

:DUP THE RBUF
:CLEAR THE DATA
:LINE # TO_LOW BYTE
sLINE # = 2, ALSO CLR CHAR PRESENT
:ADD OFFSET

:CHECK CHARACTER LENGTH

:BRANCH_IF OK
:CHARACTER LENGTH ERROR
:R1=RBUF “ADDRESS

IST
BNE _
HLT+2

RCVIAB(4)
4$

:CHECK FOR UNSELECTED LINE
:BRANCH IF OK
:RECEIVED DATA ON UNSELECTED LINE

TSTB
BEQ _

BRCVTAB(4)
5§

:R2=CONTENTS OF RBUF (DATA)

:R1= RBUF_ADDRESS
:R2 = CONTENTS OF RBUF
:1GNORE THE DATA

:CHECK FOR DATA BUFFER FULL
:BRANCH IF 0K

1901

014412

1909

014414

000137

013216

:POSSIBLE TRANSMITTER PROBLEM
:R1= RBUF_ADDRESS
:R2 CONTENTS OF RBUF
SNOTE: IF THE ABOVE ERROR WAS DUE TO= OVERLO
AD, INCREASING THE CONTENTS
:
OF "BUFSIZ' MAY RECTIFY THE
EM.
:
BUFSIZ" MUST BE A MULTIPLE OF
:
INCREASING IT MAY CAUSE THE BUFFERS TO OVERFLOW 4K.
JWP

1911
1912
1913
1914
1915
1916
1917

014420
014426
014426
014432
014436
014444
014446

005764
001414
110274
005264
026464
001332
163764

001312

S$:

1919

014456

1902
1903
1904
1905
1906
1907
1908

1918

1920
1921
1922
1923
1924
1925
1926
1927
1928

SEQ 37

PAGE 38

014454

014464
014472
014500
014504
014510
014512
014514
014516
014520

104002

000726

016464

163764
016464
110274
005264
161004
006204
005003
000261
006103

HLT+2

PROGS

002312
002312
003312

002312

001262

002312

003312

001262
002312
002312
002312

002312

002312
001312

6S:

7$:

IST
BEQ
MOVB
INC
C(MP
BNE
SUB

MOV

SUB
MOV
MOVB
INC
SUB
ASR
(LR
SEC
ROL

:SOFTWARE DATA BUFFER OVERFLOW

;RESTART ON THIS TYPE ERROR

XMTTAB(4)
;CHECK FOR TRANSMITTER ACTIVE
68
:BRANCH IF INACTIVE
RZ. SRCVIAB(4)
PUT THE DATA IN THE BUFFER
RCVIAB(4)
{UPDATE POINTER T0 NEXT SPACE
MAXTAB(4),RCVTAB(&)
:CHECK FOR END OF BUFFER
18
;BRANCH IF NOT
BUFSIZ,RCVTAB(4) ;RESET BUFFER POINTER

MAXTAB(4) RCVTAB(4) :RESET TABLE POINTER

BUFSIZ RCVTAB(4)
:RESET BUFFER
RCVTAB
4>.xmmm
R2, SRCVTAB(4)
RCVTAB(4)
;UPDATE POINTER TO NEXT SPACE
(RO),Ré
R4
R3
R3

seeF

szeeF
s1eeF

ZieeF

m3
CZDJBGO DJ11 EXER & ONLNE

=lelolelelolotle
e
—
b b b b

| CZDJBG.P11

07-JUN-82 16:32

MACY11 30A(1052)

005304
100375

050361
000677

RECEIVER ISR

DEC
BPL

000002

BIS
BR

012604
012603
012602
012601
012600
000002

004737
062737
005537
000004
032777
001004
000004
000004
013700
001405
00000 5
014622
004710
000240
000240
000240
000137

07-JUN-82

Mov
MOV
MoV
MoV

MOV

016316

DONE:

001206

RTI

ADD

16:36

R4
7%
R3,2(R1)
1%

4S:

sSET TCR BIT FOR LINE

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

:POP STACK INTO R4

;POP STACK INTO R2

sPOP STACK INTO R2

:POP STACK INTO R1
:POP STACK INTO RO

KBDINT

#1,PCNT+2
PCNT

sADD 1 TO THE PASS COUNT
:MAKE IT DOUBLE PREC.

08010 aSWR

.zéflfi THE BELL?

°§%‘

sRING THE BELL
sTYPE A FILLER FOR 11/05

.MEOP

164410

PAGE 39

a#462,R0
3s

:END OF PASS INDICATOR

:GET MONITOR ADDRESS
s IF

:RESET AND

260 TO MONITOR
SAVE ROOM

*FOR
007316

3s:

RESTAR

JACT1
JRETURN

SEQ 38

N
- CZDJBGO DJ11 EXER & ONLNE
' CZDJBG.P11
07-JUN-82 16:32

[

MACY11 30A(1052)

1959

07-JUN-82

16:36

3
SEQ 39

PAGE 40

BELL AND SCOPE ROUTINE

}32?

1962

;THIS ROUTINE PRINTS OUT ERROR MESSAGES STARTING WITH THE

[

1963

1964

1965

;AND HAS THE CAPABILITY OF LOOPING ON ERROR, BELL ON ERROR,

[

1973

1974
1975
1976
1977
1978
1979
1980
1981
1982

1983

1984
1985
1986

¢'HALT'' ON ERROR,

014636
014642
014650
014652
014656

004737
032777
001402
000004
005237

014670
014672
014702
014706
014714
014722
014726
014732
014742

001026
000004
011637
162737
117737
013705
004737
000004
004737

014662

014746

014752
014754
014756

032777

005777

100001
000000
004737

014762

000002

1989
1990
1991
1992
1993
1996
1995

014764
014766

000000
000000

014770
014776
015002
015004
015012
015014
015020
015024
015026

042737
105337
100411
062737
010005
004737
000004
000764
000207

1998
1999
2000

AND

INHIBIT

TYPEOUTS.

AN OPTIONAL ARGUEMENT

s(HLT+3) WILL BE PLACED IN "HLTCTS:'" FOR ADITIONAL TYPEOUTS.

}gg;

1996
1997

ERROR TYPEOUT HANDLER

¢ADDRESS OF THE "HLT''. IT ALSO COUNTS THE NUMBER OF ERRORS

}ggg
1968
1969
1970
1971
1972

SHLT

016316
002000

164340

000007
001202
020000

164320

014676
014766
000002
000046
014766
015374
014736
014770
164236

EMTS:

1$:

014766
014764

28:

016316

JSR
BIT
BEQ
TYPE
INC

BIT

BNE
TYPE
MOV
SuB
MOVB
MOV
JSR
TYPE
JSR

BPL
HALT
JSR

RTI

PC,
KBDINT
#SW10,aSWR
1$
LBELL
ERRORS

;BELL ON ERROR?
:NO = SKIP
JRING BELL
sCOUNT THE NUMBER OF ERRORS

28
v ¥2
(6) ,HLTADR
#2 ,HLTADR
@HLTADR,HLTCTS
HLTADR,TTY
PC.PRINTR
eet2
PC,ERRORS

:SKIP TYPEOUTS
;. ASCIZ <155¢<12>
sPUT ADDRESS OF INSTRUCTION ON STACK
sFUDGE ADDRESS
;GET HLT ARGUEMENT
sTYPE HLTADR IN OCTAL
sTYPE LEADING ZERO'S
s.ASCIZ ** **
;GO TO USER ERROR ROUTINE

;SKIP IF CONTINUE
sHALT ON ERROR!

#5W13,aSWR

aSWR

PC.KBDINT

HLTCTS: 0
HLTADR: 0

007700
014764

015012

000100

015012

015374
016450

ERRORS: BIf
18:
DF¢B
€Al
AD
28:
MCcv
JSh
TYPE,
BR
38:
RTS

sSKIP TYPEOUT IF SET

sHALT ON ERROR

sRETURN
SHLT ARGUEMENT
sLAST HLT INSTRUCTION EXECUTED

#7700 ¢
HLTCTS
3s
#100,2%
20, T7Y
X7,PRINTR
SPACE
1$
PC

sTYPE REGISTER X IN OCTAL

B
CZDJBGO DJ11
- CZDJBG.P11

EXER & ONLNE

07-JUN-82 16:32

MACY11

30A(1052)

07-JUN-82
16:36 PAGE 41
OCTAL NUMBER INPUT ROUTINE

2001

;SUBROUTINE TO SAVE INPUT AS OCTAL NUMBER
012737

000001
015176

015322

READIN: MOV

015102

015106

015110
015114
015120
015122
015124
015126

015100

N on
W
N

88~2222

L15322

000020
015324
000120

016214

1%:

000015

BEQ

000060
177770

#INPUT ,R2

#120, (R2)

;GO READ TTY UNTIL (R

;PUSH R1 ON STACK
:PUSH R2 ON STACK
:PUSH R3 ON STACK

sCHECK FOR 'P'’

(R1)
(R2)+,R3

R3, 415
3s

sBRANCH WHEN DONE

#60,R3

;BRANCH IF BAD DATA

(R1)

R3,(R1)
CNT
18

016214
177776

015174

177776

3s:

@4PS, = PSTEMP
(6)+,R3
(6)+,R2
(6)+,R]

:gTEHP. arPs
PSTEMP:

015324
015344

READS:
1$:

2$:

177560

016132

R3,=(6)

#INPUT ,R3
#INPUT+20,R3
43

#177,(3)
43
055.(3)

4$:

3s:

sMAKE SURE Z-BIT IS CLR

SAVE CONDITION CODES
sPOP STACK INTO R3
sPOP STACK INTO R2
sPOP STACK INTO R1

sRESTORE CONDITION CODES

s TEMPORARY STORAGE FOR PS

77560
.4
30177522.(3)
0209.( )

177562
000200
000177

015250
—————————

(R§)+,

#20,CNT

0v0025

INHRE
R1,=(6)
R2.=(6)
R3.=(6)

(R1)

015174

015176
015200
015204
015210
015212
015216

#1, INHRE
PC,
READS

#177770.R3

015130
015132
015134

015136
015140
015144
015146
015150
015156
015160
015162
015164
015172

JSR
CLR
MOV
Mov
MOV
MoV
MOV
MOV
CMPB
BEQ
CLR
MOovB
CMPB

sSAVE R3

sGET ADDRESS
sBUFFER FULL?
:YES = TYPE

SWAIT FOR
sA_CHARACTER
sGET CHARACTER
sGET RID OF JUNK

<IS IT A RUBOUT
:SKIP IF NOT

(3),.TYPE

sASCIZ "' 15x<1>= *

sZAP THE BUFFER AND LOOP

+SET UP FOR TYPING

SEQ 40

sSooso
s

(=J=] NN N

000004
122723

001343
005737

N
&~

b e

d o

Vi
22 8
WWWWW ‘Ngsuun\n
nONOND

——
D
2

2067
2068
2069

2057
2058
2059
2060
2061
2062
2063
2064
2065
2066

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

2070
2071

2072
2073
2074
2075
2076
2077

012603
000207

MACY11

30A(1052)

016132
600015

07-JUN=-82

TTY INPUT ROUTINE
TYPE

015322
177777
060012

5%:
6%:

000000
000020

INHRE:
INPUT:

16:36

CMPB
BNE
TST
8EQ
BR
CLRB

TYPE
MOV
RTS

0
$OCTAL

:THIS ROUTINE

.. TYPE

sECHO IT
sCHECK FOR RETURN
;LOOP IF NOT RETURN

#15,(3)+

INHRE

5%
6$
=1(3)

:ZAP RETURN (THE 15)

.12
(6)+,R3

sTYPE A LINE FEED
sRESTORE R3
sRETURN

SEQ 41

PAGE 42

:TTY INPUT AREA

OCTAL TYPEOUT ROUTINE

IS USED TO TYPE AN OCTAL NUMBER ON THE TTY.

IT WILL TYPE

;ALL 6 CHARACTERS, SUPPRESS LEADING ZEROES, TYPE AN 18 BIT ADDRESS, OR TYPE
sTHE 16 BITS. IT IS CALLED VIA THE DUMP, SDUMP, DUMP18, OR BITYPE MACRO'S.
012737
000411

112737
000402
005037
112737
010446
012704
105074
000411
105014

032737
001004
006105

170101

015532

BITYPS: MOV

000001

015532

PRINTR: Move

015532
177772

015533

015534

PRINTS:

PTIT:

000100

015532

.PRL:

#.PR+2
R4
«PRF

(4)

106114

.PRF:

106114
105714

(43
TTY
(%)
%)

*SET COUNT

:SAVE Ré
sSET POINTER TO FIRST ASCII CHAR.
sCLEAR FIRST BYTE
sROTATE FIRST BIT
sCLEAR BYTE OF CHARACTER
sBIT TYPING MODE?
;YES = SKIP 2 ROTATES
sROTATE BIT INTO C
sPACK IT
sROTATE BIT INTO C
+PACK IT
sROTATE BIT INTO C
sPACK IT

.
-

105237
105737

015532
015532

152724
105237

000060
015533

.
-

IS IT ZERO?
SKIP INC
SET FILL SWITCH
CHECK FILL SWITCH

+SKIP BITSET

sMAKE INTO ASCII CHAR

; INC_COUNT

015534
000060

015534
015532

:SUPRESS LEADING ZERO'S

1844

006105

001351

.PR
#-6,.PR+1
R4 ,=(6)

.46

«PRF
TTY

106114

001402

;SET BIT FLAG ANS 16. CHARACTER COUNT
:NOW TYPE IT IN BIT FORM
:gfipzem FILL SWITCH

006105

001402

#170101,.PR
LPTIT
‘1..”

.PR:

REPEAT
sEMPTY BUFFER?
sSKIP IF NOT
sLOAD 1 ZERO
sNULL TERMINATOR
JTYPE IT
sRESTORE Ré
sRETURN
sCOUNT, SWITCH, AND QUTPUT BUFFER

' CZDJBGO DJ11 EXER & ONLNE

' C(ZDJBG.P1
(=lelele]

015556

07-JUN-82 16:32

015704
000340

015612

015656
015664
015700

015716

000126
000122

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

PUPS:

1%:

07-JUN-82

MoV
CLR
INC

BNE

MoV

015556

000024
000026

16:36

SEQ 42

PAGE 43

POWER DOWN AND UP ROUTINES

MOV

#ILLUP,QPUVECS

JSET FOR FAST UP

#340,3aPUVECS+2

sPRIO:7

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

sPUSH R

RO,=(6)
R1,=(6)

SP
. SAVR6
,
#PUPS ,aPUVECS
SP
S AVR6,
1
1

sPUSH RO On STACK
+PUSH R1 ON < TACK
sPUSH R2 ON STACK

ON STACK

sPUSH R4 ON STACK

;sPUSH RS ON STACK

:SAVE SP
sSET UP VECTOR

;WAIT FOR PF

;GET SP

JWAIT LOOP FOR THE TTY
sWAIT FOR THE INC

s OF WORD
sPOP STACK INTO RS
+POP STACK INTO R4
;POP STACK INTO R3
<POP STACK INTO R2
sPOP STACK INTO R1
sPOP STACK INTO RO
:ES}OU; THE POWER DOWN VECTOR

.ASCIZ <155<12>" POMER""

:JMP TO USER ADDRESS

015704
015706
015710
015712

30A(1052)

000072

015620

015622
015626
015630
015632
015634
015636
015640
015642
015644
015646
015650

MACY11

000026

ILLUP:

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

. SAVR6:
PUVECS:

sPUT THE SP HERE
sPOWER UP VECTOR

YESRT:

sRETURN FROM TRACE TRAP

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

MACY11

16:36

SEQ 43

PAGE 44

itt"tit.t'tttttttt.ttttttttttttt'tt

;10T HANDLER = REENTERENT ROUTINE TO INDICATE A FALSE

o e

INTERRUPT OR

TRAP,

OR TO TYPE A MESSAGE

;t'.....'t'.t'...ltt'.t!".lttt.'t'.'

t'."tt.ttfi.t.'tt.ttttttttttttttttt

016014
016016
016022
016024

000004
015736
047125
052103
052116
020124

TYPE,

NOOO
ERL IV

000004

IOTRAP: CMP
BLT
sus
YR
T NV N

162716

001000

AN
ed

022716
002440

Hwnisswn

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

OO0
O

#1000,
1078
G4

(sSP)

(SP)

sCHECK RETURN ADDRESS
+BRANCH IF TYPE COMMAND
sGET VECTOR ADDRESS
: TYPE MESSAGE

JASCIZ

<15><12>''UNEXPECTED INTERUPT TO *

015404

MOV
JSR

(SP)+,TTYV
PC,PRINTS

016004
047522

TYPE,

TST

020115

015404

(SP)+

.42

ASCIZ

TM From *

MOV
JSR
HALT

\SP), TTY
PC,ORINTS

RT]

sTYPE

(SP)+ IN OCTAL

sAND SUPRESS LEADING ZERO'S
sPOP _STACK
s TYPE MESSAGE

:TYPE (SP) IN OCTAL
;AND SUPRESS LEADING ZERO'S
:FATAL ERROR

;CONTINUE IF DESIRED

STYPE

MESSAGE TYPEOUT ROUTINE

sTHIS ROUTINE IS USE TO TYPE ASCII MESSAGES ON THE TTY. THE
:CALL CAN BE IN ONE OF 3 FORMS: 1) “TYPE ,ADRTM - TYPES THE
;MESSAGE STARTING IN LOCATION ‘‘ADR:*', 2) “TYPE ,CHARTM - TYPES

STHE ASCII "'CHARTM, AND

3) ‘PRINT <<15><12>*MESSAGE'> - TYPES

sTHE MESSAGE WHICH IS INLINE ASCII.
107$:

000002
177400

), TTY

8IT

#177400,
1Y

016132
016132

MOV
MOV

T7Y,.TYPE
#.TYPE,TTY

177566
177564

MOV8

000002
000002
000002

000002
000001
000002
016120

-—,

b b cd cd cd o e

07=JUN-82
I0OT HANDLER

:t'.t.tt't"".'i.'l."fiit'ttfiit't..f

LU OV LN LN LS T NT ST NTNY

2146
2147

30A(1052)

BNE

IST8

000004

28:

:IS IT A TYPEM?

JNO

3GET THE CHARACTER
;FUDGE THE ADDRESS

(vrm‘zmrs“ sLOAD AND TYPE THE CHMARACTER

an77s

;IS THE PRINTER READY

BPL
B8R
MOV
ADD
cMP

4
is
(6) .~(6)
#2,4(8)
(6)+,2(6)

sWAIT UNTIL IT IS
:ggr THE NEXT CHARACTER
;GET ADDRESS TO BE TYPED
sADD 2 TO THE ADDRESS
SIS IT 422

ADD

#2,11Y

;ADD 2 TO THE ADDRESS

MOV

T1Y,2(6)

BNE
BIC

3s:

SAVE T1Y

:GET ADDRESS TO BE TYPED

MOV
RT]

(6)4,TTY

:NO

:BACK UP TO AN EVEN BYTE

JRESTORE ADDRESS
*RESTORE TTY

*RETURN

016132

000000

022737
001023
000004
013705
004737
000004
004537
016364
001360
022737
001403
013777
000207

000176

001210

016314

016316
016324

013746
013746
012737
022777
001402
000407
022626
012737
012737
012637
012637
000297

022737

07-JUN=-82

TYPE ROUTINE

CNTLU:

CMP
BNE

#SWREG, SWR
1$

MOov

SWREG, TTY

TYPE

016214

016364

162776

18:

.SWREQ

PC,PRINTR

JSR
LWORD
BNE

RS,READIN
TMP1
CNTLU

CMP
MOV
BEQ

RTS

CNT:

PAGE 45
sCHARACTER TYPE LOCATION

JSR

TYPE

000020

16:36

.TYPE:

016226
v00176
015374
016216
015030

000000
020040
000040
005015
000040

30A(1052)

,NEWIS

#20, CNT
1$
TMP1, 3SWR

042516

036527

NEWIS:

LASCIZ

053523

036522

SWREQ:

ASCIZ

<15><12>''SwR= *'

MOV
MOV
MoV
CMP

6,-(SP)
4.=(SP)
#is.4
#-1.3SuR

MOV
MOV
MOV

#DISPREG,DISPLAY
(SP)+,4
(SP)+.6

000006
000004
016266
177777

SUSWRR:

BEQ
B8R

000176
000174
000004
000006

000176

RTS

001210

016364
177562

KBDINT: CMP
BNE

mm
BICB

000007

016134

1$:

NEW= **

#SUREG,
SWR

{%62 TMP1

#200,

ThP1

CMPB

0%1

RTS

BNE
JSR

TMP1:

:TYPE SWREG IN OCTAL
;TYPE LEADING ZERC'S

18
PC,CNTLY

047516
020101
053111

042040
042522
042105

TRNERR:

«ASCIZ <15><12>'WN0 DATA RECEIVED'

062412

050117

MEOP:

LASCIZ <15><12>"E0P'"

eoofF

MACY1?!

(ZDJBGO DJ1? EXER & ONLNE
(ZDJBG.P11
07-JUN-82 16:32

4
L5

30A(1052)

07-JUN=-82

TYPE ROUTINE

16:36

4
SEQ 45

PAGE 46

MNUM:
MSGSEL:

LASCIZ
JASCIZ "* SELECT LINE =

RETURN:
SPACE:
MSGMDN:

.
.

MSGADR:

«ASCIZ

<15><12>''FIRST DJ11 ADDRESS:

MSGVEC:

+ASCI2

<15><12>''VECTOR ADDRESS:

MSGNUM:

+ASCIZ

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

047522
021440

MSGPRG:

«ASCI2

<15><12>''PROGRAM #:

062040
020523

MSGO1:

+ASCIZ

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

MSGP2:

-ASCIZ

<15><i2>'PROG2:

MSGP3:

ASCIZ

<155<12>
" «ECHO TEST*''C15><12>

e
ot Bt

NNN

055103
026507
045104
042530

alale]

000377

L7 %]

041505
042516

Ol’

000040
046105
044514
000040
177777
000
177412

O
o

22 RRRRERI2R

i
y—
g
Dl
B

000
043
051440
020124
036440
005015
020040

MACY11

>
> >

1 EXER & ONLNE
07-JUN-82 16:32
= —
EAHS NN
SINENN

_og
y—g—

oo cooocoocooo

(ZDJBGO
CZDJBG.P

—lc

.<.15.>.<12><377><377><377>
<15><12><377>''CZ0JB=G=0

DJ11 EXER § ONLNE'’

047117
051522
030461

*°

035123
050012

046501
000040
047516
023461

°**

CONTINUOUS ECHO EXERCISER''<15><12>

MSGDAS: +ASCIZ
+ASCIZ <15><12>"'SILO ALARM LEVEL FOR CSR'<15><12>

MALARM:

016762
016770
016776

051503
000000
000001

.EVEN

.END

(ZDJBGO DJ11 EXER & ONLNE
(ZDJBG.P11
07-JUN-82 16:32
| ADRNIT

CALL

| ALMCK
| ALMFLG

836

837

1114

010032
001300

824
S44

8914
SB6*

907
822

| BEGIN
006312
| BELL
= 000007
| BINARY
011302

| BITYPS 015364
BITO = 000001
| BIT1
= 000002
| BIT10 = 002000
BIT11 = 004000
BIT12 = 010000
BIT13 = 020000
BIT14 = 040000
BIT15 = 100000
BIT2 = 000004
BITS = 000010
BIT4
= 000020
BITS = 000040
BIT6é = 000100
BIT7 = 000200
BIT8 = 000400
BIT9 = 001000
BUFSIZ 001262
CNT
016214
CNTLU
016134
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
FORP3
GETLEN
GETVEC
HLT
=

HLTADR
HLTCTS
ICNT
ILLUP
INHRE
INPUT
IOTRAP
1018
ISRFLG
KBDINT
LEVEL7=

(007722

012230
013500
006762
006542
104000

014766
014764
001200
015704
015322
015324
015720
016026
001276
016316
000340

727

506
W18
114

20764
4728
4730
4824
4830
4848
485¢
4864
4874
4744
475¢
476
4778
4788
4798
4808
4814
S37#
2011+
615,
587+
5654
S474
539
5168
5008
5964
612

575
1120
5128
1982
855

14718
17314
656

459¢
1976+
1978+
5114
2111
2004+
2012
571
2153
S43¢
931
4884

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

011236

007276

733

5674
1947
1130#

7498

853w

197

908

655
892
909
680

732
843
1705
2029«

2g0ar
588+
1565
877
596
2234»
2234

890
19684
1122
577«
1992#

928
B20

846

929

1841
2213
2012
589+
1569+
8%~
620

1917
22184
2047
838
1639+
901+
660

1920

1126
1972+«

839

917«

918+

923e

925+

926+

927+«

910
677

912
696

916
800

919
1429

922
1676

938
1739

948

1126
1989

1128

1667

23064

1076
1978
1993+

1093
1979

1607
1

1622

1876

1890

1895

1901

2060
2043

20684
20694

19400

1477

6734
6184
950
1977«
19894

2138#
2006+
2042
2154
21814
779+
1941

886

1968

1107+

1986

22404

115#

)

I
(ZDJBGO DJ11 EXER & ONLNE
(ZDJBG.P11
07-JUN-82 16:32
MALARM

MARK
MASK

| MAXTAB
MEMX3

MEOP

MNUM

MSGADR
MSGDAS
MSGMDN

MSGNUM

MSGPRG

MSGP2
MSGP3

MSGSEL
MSGVEC
MSGOT

016741

001260
005312

003312

013550

23004

1697«

1701

1717+

5594

1715«

1839

5644

17464

016411

1944

016514
016735
016453

659
937
657

016417

016570

016613

737

665

728

016647
016715

1456
1706

= 000040

399¢
11438
11564
1169
11824
11954
12084
12214
12344
126478

016422
016544
016632

740
662
610

12608
12738
12864
1299
1312#

13254

1338#
13514
13644

NERIS
016216
OPEN = 000000

828+

834

841+

1452+

1454

697

1089

1620

1888

11324
11458
1158¢
N7
11844

11334
11464
115%#
172#
11854

12094
1222#
1235¢
12488
12614
12740
12874
1300¢
13134

12104
12?‘:
12
12494
1262¢
127
12884
13014
13140

1339#
135%:
136

136?:
135
13?8:

565

1752

1459«

1578+«

1580+

1583

1630«

1632+«

1635

11354
11488
11614
117644
11874

11364
1149
11624
11754
1188#

11374
11504
11634
11764
1189%

11384
11514
11644
11778
11904

11394
1152¢
1165#
11784
11914

11408
11538
11664
1179%#
1192¢

11420
1155#
1168#
11814
1194#

12114
1;“
12374
125
1
l.s:
1
1;‘
131

121
1560
1239+
1
gl
19.:
1
12914
1
13174

12140
12278
1‘2:
125
1%:
1
12928
1
1318#

12154
1228¢
126418
12540
12678
12804
1293¢
1
1319

12164
12
12428
12554
12688
12814
129%#¢
1307#
13;00

12178
12308
12438
12564
1269%
12824
1
1308y
13214

1218¢
12314
12448
12578
12708
1283¢
12968
1309¢
13228

11414
1154%
11678
1180
11938
1206%#
1219¢
1232¢
124584
12588

12714
1284¥
1297%¢
1310¢
1323

1220#
1233#
1246#
1259#
1272#
1285#
1298#
1311#
1324#

13414
13544
13674

1
15‘:
lggz

13648
1;5"
13708

13454
13584
13714

13468
1359
13728

13478
1360#
13738

1348¢
13614
13724¢

1349¢
1362¢
1375¢

1350#
1363#
1376w

529

530

531

1915

1919

2257#

22594

22714
22994
22654

22794

22834

22894
2296+

22604
22754
22864

11314
11440
1157
1170#
11834
11964

1356'

1377¢
2209
l;ggl

1378¢
22
23

11974

13274

1198#

102:

1§”

132:

12014

lgz"

13864

525

526

527

528

1725«

2032

2036

524
1959

579+

1942+

PRINTR
PRINTS
PROGAD
PROGNO
PROG1

015374
015404
007340
007340
007350

661
664
761
730
765

936
667
7644
756
778#

939
»

1938‘
N

1997
2162

078#
169

2208

PS
= 177776
PSTEMP 015174

4618
2032+

568+
ZOBg,

781+
20394

B854v

1410%

1465

1656

2112«

2120«

21424

PTINIT

015622

007422

2120

2111+

7994

212

1334#

1385¢

578+

015712

13338

1204#

13844

513#

PUVECS

lg‘SZI

1203%

13838

001204

PUPS

1202%#

13824

PCNT

SEQ 47

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

934

536#

7634
885

1205#

1335#¢

13364

1207#

1337#

R2SR13
R2SR14

R2SR15
R2SR16
R2SR17
R2SR2
R2SR3

R2SR4
R2SR5

R2SR6

R2SR7
R3SRO
R3SR1
R3SR10

972
10664
1680
1099«
1919«

2210
1957

1640

1507

151

1515

1519

1523

1527

1531

1501

1505

1509

1513

1517

1521

1525

1529

1533

1774

1778

1782

1786

1790

1794

1798

1802

1806

1776

1780

1784

1788

1792

1796

1800

1804

1808

988

992

996

1000

1004

1008

1627+
1923+

1638+

1704+

1893

1899

1913«

976

1571
1920+

2136

22634

1552#

1503

VIO®moos

:7@“0&

—_

e 2
—

-y
[\ I T

394
15434

SEQ 48

1499

HO £H0
Wi W—

gfl@ N~
O=WWNONNON—=ON

1770
18664
1772
1827#
1097+

W, AN

1495
1598#
1497

CVONro0

£~ 0000
-0~

wvisSwne

b e

1483#

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

1585

R2SR10
R2SR11
R2SR12

007316

RISR12
RISR13
RISR14
RISR15
RISR16
RISR17
RISR2
RISR3
RISR4
RISRS
RISRS
RISR?7
R2SRO
R2SR1

015176
006676

b o v

REPORT

RESTAR
RETURN
RISRO
RISR1
RISR10
RISR11

015030

READIN
READS

001272

964

002312

ViV
e

RCVLVL
RCVTAB

WO
= On
e le R 1N

RCVCNT= 004313
RCVISR
011114

014170

—

P3XISR

MACY11

CO0ONOoO~N

013270
014320

CENE 15

P3INIT

{ P3RISR

\‘l \l\lfll!wg ~n

012650

| P2XISR

—l—‘_.-l—ld-.d—.-l

012060
013042

OOWVI0D
NN NS s

P2INIT
P2RISR

-t ONON
-2 o = 1 NN
OO N OON)
nNOO

CZDJBGO DJ11 EXER & ONLNE
(ZDJBG.P11
07-JUN-82 1

K
CZDJBGO DJ11 EXER & ONLNE

' C2ZDJBG.P1
' R3SR11
R3SR12
R3SR13
R3SR14
R3SR15
R3SR16
R3SR17
R3SR2
R3SR3
R3SRG
R3SRS
R3SR6é
R3SR7?
SAVIT

07-JUN-82 16:32

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

17944
1798#
1802#
1806#
18104
18144
18184
17664
17704
17744
1778#
1782#
1786#
S18#

SELPRO 007170
SIXBIT 011274
SPACE
016450
STACK = 001200
Sum
001310
SUSWRR 016236
SVSW0
001220
SVSW1
001222
SVSW10 001240
SVSW11
001242
SVSW12 001244

7264
1118
1998
4904
5484
569
5204
214
528#
5294
5304

SVSW14
SVSW15
SVSW16

5324
533#
534#
5354
5224

SCOPE = 104400

SVSW13

SVSW17
SVSW2
SvSWw3
SvsWé
SvsWws
SVSW6
SVSW7
SWITCH
SWR

001246

001250
001252
001254

458#%

524n
5254
5264
5274
7364
23}3'

SWREQ
016226
W10 =
SW11
= 004000

2206
409
408#

000176

SWwi2 = 010000
SWw13 = 020000
SWi4 = 040000
SW15 = 100000
SW8
= 000400
sWw9
= 001000
TIME
010344
TIMERA 001302
TIMERB 001304

;‘:55 8?2%22
TRNERR 016366

MACY11

30A(1052)

742

743

731
11294
2264#
567
895«
22264
735

757

759

780
912+

1409
913

1655
916+

917

750

826

1450

1695

732

829

843

07-JUN=82

16:36

SEQ 49

PAGE 51

CROSS REFERENCE TABLE =-- USER SYMBOLS

918

919

920

922+

923

5314

001256
001224
001226
001230
001232
001234
001236
007230
001210

SWREG

5234

503#

7
zgsg.

2 220
19

407#
4068
4054
404w
4124
4114
904
5454
5464

1987
944w
899'
g9 *

888

5253l

Zg}?’

2207

1968

1969

2233

2240

2244

2245

932

93§
197

2?2.

944
946+

252 ‘

2322'
»

22504

1945

1969

1973

1983

2204

2215+

L
. CZDJBGO DJ11 EXER & ONLNE
' CZDJBG.P11
07-JUN-82 16:32

' TYPE

‘UNIYS

VECADR
XISRO
XISR1
XISR10
XISR11
XISR12
XISR13
XISR14
XISR1S
XISR16
XISR17
XISR2

XISR3
XISRG
XISRS

= 000004

001264

001270
010410
010430
010610
010630
010650
010670
010710
010730
010750
010770
010450

XISR6

010470
010510
010530
010550

XMTISR

011000

55?251 8323;3
5:%%:% gg}g;g
X2SRO
X2SR1
X2SR10
X2SR11
X2SR12
X2SR13
X2SR14
X2SR15
X2SR16
X2SR17
X2SR2
X2SR3
X2SR6
X2SRS
X2SR6

X2SR7

X3SRO
X3SR1
X3SR10
X3SR11
X3SR12
X3SR13
X3SR14
X3SR15

X3SR16

X3SR17
X3SR2
X3SR3
X35R¢

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

4604

937

MACY11

610

1944

657

1947

658

1948

659

1971

662

695

745

Zlgg

749

851

1463

1723

1738

1457

1561

1564

1411

1456

663

801

143

1677

5614

562

838

868

1038

1041

962

1014

gg%:

16640
14854
148%#
1517#
15214
1525#
1529+
1533#
15374
1541#
1545#
14934
14974
15014
1505#
1509#

1513#

17604
17644
1792#
17964
1800#
1804#
1808#
1812#

18164

18204
17,
17724
17764

966

1018

g;g

1657

970

974

1022

':3§

1703«

} 0
1731

978

1042
1836

982

2064

630+

974n
978#
9824
986#

740

2057

S40n
9624
9664
994
#
9984
1002#
1006#
1010#
10144
1018#
1022#
9704

737

2054

2209

666

736

1998

2206

636

728

1981

2164

608+

665

1975

2155

5384

SEQ 50

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

1045

@«

986

1837«

1838«

990

1839

994

1563

1841

1573

998

1567
1842

1586

1002

1571

934

2135

1661+

1006
ES

1845«

572

191N

1010
-

1585«

1921«

M
CZD0JBGO DJ11 EXER & ONLNE
C2DJBG.P11
07=-JUN=-82 16:32

X3SRS
X3SR6

X3SR?

YESRT

013720
013740

013760

015716

SENDAD= 014622
.
= 017000

SEQ 51

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

17804
17844

1788#

21454

499
4914

.BIT

= 132000

1952
2096
13:;0

.PR
.PRF
.PRL
LPTIT
.SAVR6
TYPE

015532
015452
015430
015416
015710
016132

2076
2085
2086
2077
2119«
2056

19524
495
1959

2099
404

2078+«
2088
2102
2082#
2123
2057

4984

S04

505#

SO7#

S10#

5544

5564

5594

S61#4

5644

1399#

1975
2104
405

19764
21104
406

1981
2135
407

19824
2139
408

1984
2155
409

1989
2164
410

1990
21678
411

2046
2191
412

2054

206%#

2079

1945

1968

1973

2080
2093#

2081+

2083

2087

2097«

2098

2101«

2103

2107

2110#

2186

2202#

2141#
2185«

M 1 1W”322222333333
S S e l e e S S e e mat i R
' BCP

BITYPE
BLKBLK
BUFHDR
DUMP

DUMP18

LNKBLK
opT11
oDT11X
FILBLK

PRINT
PUSH
SCOPE.
SCOP.

TRACE
TRNBLK
TYPEM
WRITE

$CATCH
$CMTAG
SCNTL
SEND
SEQUAT

SHLT

$IOCAT
$107
$KBIN
SKRAT

$LOADR
SOCTAL
$POWER
$RAND
$RAND4
$SREAD

1%
14
14

2041

$SWDOC
14
14
1%

401

$SCOPE
$SETUP
$SRAT
14
14
1L
1#
14
1LJ
1#
1#
&
1#
1#
1L
1#
#
1#
14
1#
1#
1#
1#
14
Ik
1#
1#
14

3994

39947

1940
458
1960
491

2239

1#
1#
1#
14
e

4884

488#

2203

2070
21

04O0 7U9M2O 3O 5O6T M v00O 5W7

ONMN MIOTON

gMOVO—YfNNlN1ON3N-NmM~OI—MMMNguTCOIgU7MN=gW¢Ng)O=NO£M7=JtOI :5—nOgwOwfeil—NMrlW

1YNg00OY1Ngo1MM=oS1(oOUNVN1eo=)1GoOOMU1voB)1G=U0O(NNM1=UvM)1GO1OD1M=1Y1COO1OUU e1MeOo)1e0e=O0AO1e=MU)1==QMOOIU=M1F)N
VV=
wYNgN-NOFY~YONY—o0gSO—1gVgYMMIN2gg2O‘—MM MM oeRgO—5TgNIO7OggAo8SoIeOoNNO0eoO=OLN1oeoTONO”AOe00TO‘gLO0oMNOG0mNTAowOTOnNNIoO OoOT=NooGORO=oNN=oT
NOeOCOU=NNgIOeOTVNOrNg=OPU==PMON==U==UNPV=OO =NO T
O0—YYOOT
ITNN
NOrgM—=NYMgN0)—G--ONO OMO =NV-r)M=MNG-1MN OgO0WNOOVOOrO)=V
NNITOTMOTMM OITGMOOVTO)OOGUTV)MGONNVT)MGOONM=)OOGOMV)O=—G=0=
NOO
oNOMoNMM oNIMoMONWONoVO=NOMWNOW NOW O—= D
' C2DJBGO DJ11 EXER & ONLNE
(2DJBG.P11
07-JUN-82 16:32

660

663

MACY11

1979

666

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

1827

2161
2168

SEQ 52

2207

C10USD3OAMv=\I~0OLA eTGOP CNOUR

1933

2033
2127

1866

2007
2113

B
'

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

| $SWRDF
| $SWRRR
| $TRAP

| $TYPE
SURAT

1
1%
14

| .SCOP
| «SCOPE

1
#

. ABS.

017000

ERRORS DETECTED:

MACY11

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

514
2225

2173

000

CZDJBG,CZDJBG/S
: TOC=CZDJB
OL/CR
G.MAC,CZD
F/NL
JBG.P11

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

5
SEQ 53