Digital PDFs

AH-8509F-MC

January 1979

52 pages

Original

2.7MB

view download

OCR Version

2.3MB

view download

Document:	CZDJBF0 DJ11 EXERCISER ONLINE TEST JAN 1979 bw
Order Number:	AH-8509F-MC
Revision:	000
Pages:	52
Original Filename:	CZDJBF0__DJ11__EXERCISER__ONLINE_TEST__AH-8509F-MC__JAN_1979_bw.pdf

OCR Text

ONLINE TEST
& SER
EXERCI

CZDJBFO

AH-8509F-MC

JAN 1979

1
FICHE1 OF

IN USA
MADE

(ZDJBFO DJ1T EXER & ONLNE
CZDJBF P
21-JUN-78 1 3:56
.REM

MACY11

30A(1052)

1
PAGE 2

8
14:01

21-JUN-78

SEQ 0001

)

IDENTIFICATION

PRODULCT

CODE
:

AC-8507F-M(

PRODUCT NAME:

CZDJBFO DJ11

PROGRAM DATE
:

JUNE

MAINTAINER:

DIAGNOSTIC

THE

INFORMATION

EXER & ONLNE

1978

THIS

EMNGINEERING

DOCUMENT

SUBJECT

(HANGE

WITHOUT
NOTICE
AND SHOULD NOT BE CONSTRUED AS A COMM]TMENT
BY
DIGITAL
EQUIPMENT
CORPORATION.
DIGITAL
EQUIPMENT
CORPORATION
ASSUMES
NO
RESPONSIBILITY FOR ANY ERRORS THAT
MAY APPEAR IN THIS DOCUMENT.
NO RESPONSIBILITY

IS ASSUMED

SOF TWARE ON EQUIPMENT THAT
ITS AFFILIATED COMPANIES.

"OPYRIGHT

()

1972,

THE
FOLLOWING
(ORPORATION:

DIGITAL
DEC

1978 BY

ARE

FOR

THE

DIGITAL

TRADEMARKS

PhP
DECUS

USE OR RELIABILITY OF

IS NOT SUPPLIED BY DIGITAL OR

EQUIPMENT
OF

UNIBUS
vECTAPE

(ORPORATION

DIGITAL

EQUIPMENT

MA > SBUS

(ZDJBFO DJ11 EXER & ONLNE
CZDJBF .P11
21-yUN-78 13:56

MACY11

30A(1052)

21-JUN-78

¢
14:01

ABSTRACT

(NN
—=

NV =

WIrY

REQUIREMENTS

S WY
—

Fold Jo oXo o Yo oo JaNTa No Yo No SU,IV. IV IV I ol o3 oWSYUST
G 1 U1, 1, ¥ 01

CONTENTS

EQUIPMENT
STORAGE

PREL IMINARY 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
MISCELLANEOQUS

EXECUTION TIME
STACK POINTER

PASS COUNTER
POWER FAIL
PROGRAM DESCRIPTION

1
PAGE 3

SEQ 0002

CZDJBFO DJ11 EXER & ONLNE
CZDJBF .P1

MACY1T

21-JUN-78 13:56

30A(1052)

21-JUN-78

[
14:01

I
PAGE 4

SEQ 0003

ABSTRACT
THIS PROGRAM CONSISTS OF

THE

DJ11

THREE

SUB-PROGRAMS

ASYNCRONOUS MULTIPLEXER.

PROGRAM 1

WHICH

EXRECISE

IS AN OFF-LINE

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.,

REQUIREMENTS

2.1

EQUIPMENT
PDP-11

STANDARD COMPUTER WITH CONSOLE

LEVEL

SETTING.

TELETYPE

UP TO 16 DJ11 ASYNCRONOUS MULTIPLEXERS.

2.2

STORAGE
THIS PROGRAM (JSES ALL OF

2.3

EXCEPT ABSOLUTE LOADER.

PREL IMINARY PROCRAMS
(ZDJA

DJ11

LOGIC

TESTS

LOADING PROCEDURE
USE

STANDARD PROCEDURE FOR ABS TAPES.

STARTING PROCEDURE

o.1

CONTROL

SWITCH SETTINGS

SEE 5.1

(ALL DOWN FOR WORST CASE

4.2

TESTING)

STARTING ADDRESS
THE OROGRAM SHOULD ALWAYS BE STARTED
AT
209,
IT
MAY
BE
RESTARTED AT 1000 AFTER ALL PARAMETERS HAVE BEEN SELSCTED.

CZDJBFO DJ11 [XER & ONLNE
CZDJBF .P11
21-JUN-78 13:56

6.3

MACY11

30A(1052)

21-JUN-78

14:01

PAGE 5

SEQ 0004

PROGRAM AND OPERATOR ACTION
')

LOAD PROGRAM INTO MEMORY USING ABS LOADER.

4 )

’)

PRUGRAM 1

2 ) LOAD ADDRESS 200.
3 ) 1F HARDWARE SWITCH REGISTER IS AVAILABLE, SET SWITCHES
(SEE SEC.
5.1), ALL DOWN FOR WORST CASE, PRESS START.
SwITCH=LESS PROCESSOR SIMPLY PRESS START.

p) ) ENTER THE PROGRAM NUMBER (1, 2, OR 3).
6 ) SELECT LINES IF SwW<8> IS ON A 1.
WILL

LOOP AND BELL

WILL

RING ONCE

EVERY PASS.

"EOP'" IS ALSO PRINTED ON EACH PASS.

OPERATING PROCEDURE

5.1

OPERATIONAL SWITCH SETTINGS
AT SA 200, ALL SWITCHES DOWN IS
WORST
C(ASE
TESTING.
FOR
PROGRAM 1 ONLY, THE BELL WILL RING AND EOP IS PRINTED UPON
COMPLETION OF A PASS OF THE ENTIRE PROGRAM.
THE

SWITCH SETTINGS ARE:

SW<15> =1
SW<13> =1
SwW<12>
1
SW<10> - 1
0
SW<o>
-1
Swe8>
- 1

PROG1

ONLY:

Sw<2:0>

(..., HALT ON ERROR
..., INHIBIT PRINTOUT
L., PRINT SILO ALARM LEVEL (PROG1 ONLY)
..., BELL ON ERROR
..... BELL ON PASS COMPLETE (PROG1 ONLY)
... INHIBIT MAINTENANCE (PROG1 ON-LINE)
..... SELECT LINES FOR TEST (SEE 5.3)

0 ..... BINARY COUNT PATTERN
1 ..... “THE QUICK SILVER GRAY FOX
2 .e... 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 NCT FOUND A SOFTWARE SWITCH REGISTER LOCATION (SWREG=LOC.
176) IS DEFAULTED TO.
IF THIS IS THE CASE,
UPON
EXECUTION
THE CONTENTS O-F THE SWREG ARE DUMPED
TTY AND ANY CHANGES ARE REQUESTED

(I.E.)
POSSIBLE

<CR>

ON THE

CONSOLE

SWR=XXXXXX NEW=

RESPONSES ARE:

6 DIGITS 0-7

IN OCTAL

IF NO CHANGES ARE

TO REPRESENT IN

RESJSTER
<CR>.

VALUE;

TO BE MADE.

OCTAL

THE

NEW

SWITCH

LAST DIGIT FOLLOWED BY

TO ALLOW RECMTERING VALUE
[F
ERROR
COMMITTED KEYING IN SWREG VALUE.

CZDJBFO DJ11 EXER & ONLNE
CZDJBF .P11
21-JUN-78 13:56

MACY11

BUILT
THE

30A(1052)

F
14:01

21-JUN-78

1
PAGE 6

INTO THE PROGRAM IS THE ABILITY TO DYNAMICALLY

CONTENTS OF

SWREG DURING PROGRAM EXECUTION.

CHANGE

CONTENTS OF

(CNTL G)

ON CONSOLE
THE

5.2

SUBROUTINE ABSTRACTS

5.2.1

HLT
THIS ROUTINE

ERROR MESSAGE

SWREG,

(CALLED BY AN EMT

SEE 6.1).

A 1.

TO RING THE BELL

ALMCK

(PROG1 ONLY)

CHANGE

BY STRIKING

TTY THE OPERATOR SETS A REQUEST
WHICH

[S PROCESSED

AREAS OF THE PROGRAM CODE (IE) ERROR ROUTINES,
END OF PASS, AND OTHER APPLICABLE AREAS.

5.2.2

SEQ 0005

INSTRUCTION)

AFTER

PRINTS

FLAG

IN KEY

HALTS

OUT

TO INHIBIT TYPEOUTS, PUT SW<13> ON

ON AN ERROR,

PUT

SW<10> ON A 1.

IN THE NORMAL OPERATION
THE
°‘DONE'' BIT
IS
SET
CHARACTER
IS
RtAD
INTO
THE FI/FO BUFFER(SILO).,

AS
EACH
BUTI 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

'"SILO ALARM LEVEL'' AND

THE

LEVEL

(IN OCTAL)

SW12 IS SET

AT WHICH EACH

(1)

DJ11

IT WILL

WILL

BE
TRANSFERED
IS A MULTIPLE OF THE SILO ALARM LEVEL.
ENSURES THAT ALL DATA WILL BE READ QOUT OF
THE
SILO.

THIS
DONE

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

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
SILO ALARM LEVEL.)

5.2.3

THE

TRAPCATCHER
A ''+2"" - "HALT'' SEQUENCE

IS REPEATED FROM 0 - 56 TO

DETECT

ANY
UNEXPECTED
TRAPS
AND
A
‘"+2''
=
‘'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
"HALT''
IN ''IOTRAP'.

5.3

IN AN

ERROR

MESSAGE

AND

PROGRAM AND OPERATOR ACTION
AFTER THE DEVICE PARAMETERS ARE REPORTED, THE PROGRAM
TYPES
"PROGRAM
#:
', AT WHICH TIME THE OPERATOR ENTERS *11'', "2,

OR """ DEPENDING ON THE SUB-PROGRAM HE WISHES TO RUN
IF

SW<B8> IS ON A 1,

THE PROGRAM wILL

TYPE QUT

‘'

SELECT

CZDJBFO DJ11 EXER & ONLNE
CZDJBF .P11
21-JUN~-78 13:56

MACYTT

LINES

30A(1052)

6
14:01

1
PAGE 7

SEQ 0006

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

REPRESFNTING THE

DJIT.C(INPUT
THE

21-JUN-78

SAME AS

DJ11.)

LINE(S)

FOR

WHICH ARE

TESTED

FOR

THAT

THE

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

YOU WERE DIRECTLY

SETTING

IF MORE DJ11°'S ARE ON THE SYSTEM THE

THE

TCR

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

ADR

(R1)

[S AS FOLLOWS:

(R?)

(R3,

(R&)

:
WHERE
ADR
(RN)

~ ADDRESS OF ERROR HLT
= CONTENTS OF GENERAL REGISTER
FOUR

FOLLOWING

THESE

MAY

THE

HLT;

THRU (R3);
HLT
ADR AND DJUADR.

(BY

TYPED

E.G.,

ITSELF)

'W''.

FROM

DEPENDING ON

HLT+3

WOULD

NONE
THE

NUMBER

TYPE

(R1)

WOULD STOP AFTER TYPING

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.

6.3

ERROR COUNTER
AN ERROR COUNT IS KEPT IN "ERRORS'' .
IT CAN BE CLEARED FROM
THE
CONSOLE,
BY
RESTARTING
AT
200,
OR BY RELOADING THE
PROGRAM.

RESTRICTIONS
THIS PROGRAM REQUIRES THAT THE DCLVICE ADDRESSES
FOLLOW
THE
FLOATING
ADDRESS CONVENTION (DJ11'S WILL BE F]RST, STARTING

160010,

ALL BE

(OTHER

THEN THE DH11°'S) AND THAT

CONTIGUOUS.
THAN

160010

)

THE

FIRST DJ11

THEN LOC.

(ONTAIN THIS NONSTANDARD ADDRESS.

1270

THIS PROGRAM [S RUN WITH A MONITOR,

THE

VECTOR

ADDRESS

ADDRESSES

1S NONSTANDARD

MUST

[.E.

A(T11

C(HANGED

T0O

DDP,

(ZDJBFO DJ11

CZDJBF .P11

EXER & ONLNE

21-JUN-78 13:56

MACY11

30A(1052)

ONLY PROGRAM 1

21-JUN-78

H
14:01

1
PAGE 8

SEQ 0007

IS RUN.

MISCELLANEOUS

EXECUTION TIME

(PROGT

ONLY)

DUE TO THE VERIOUS BAUD RATES AVAILABLE AND THE
ABILITY
TO
CHECK
UP
TO 16 DJ11°S AT ONCE, THE EXICUTION TIME (AN VARY
ANYWHERE FROM 3 SECONDS TO NEARLY AN
HOUR.
THE
FOLLOWING
TYPICAL

TIMES

ARE

SPEED, 8 LEVEL CODE,

POP-11/20
.
THE NUMBER OF

FOR ONE

STOP

DJ11

WITH ALL

BITS,

AND

L.NES

FOR
MULTIPLE DJ11'S, MULTIPLY
UNITS SELECTED FOR TEST.

THE

PARITY

THESE

SAME

TIMES BY

APPROX
BAUD RUN TIME

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

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

8.3

STACK PGINTER

STACK

PASS

(OUNT

INITALLY SET
(PROG1

TO 1200

ONLY)

A 32 BIT (2 WORDS) PASS COUNT IS KEPT IN 'PCNT'' .
CLEARED
FROM
THE
CONSOLE,
BY
RESTARTING
AT
RELOADING

8.4

THE

IT (AN BE
200, OR BY

PPOGRAM,

POWER FAIL

EACH PROGRAM (AN BE POWER FAILED WITH NO
ERROKS.
T0
WUSE,
START
THE
PROGRAM
AS
USUAL AND POWER NOWN THeN US AT ANY
TIME.
THE ROUTINE
SHOULD
TYPE
°POWER'® AND
RESTART
THE
PROGRAM WITH NG OTHER ERROR

TYPEQUTS.

CZDJBFO DJ11 EXER & ONLNE
C2DJBF .P1N
21-JUN-78 13:56

MACY11

30A(1052)

21-JUN-78

14:01

PAGE
9

SEQ 0008

PROGRAM DESCRIPTION

"HIS PROGRAM CONSISTS OF THREE SUB~PROGRAMS
WHICH
EXERCISE
THE LOGIC OF UP TO 16 DJ11 ASYNCHRONOUS DATA MULTIPLEXERS.
PROGRAM 1:

THIS

EXERCISER

PROGRAM

SIMULTANEOQUSLY

(OFF-LINE)

EXERCISES

PATTERNS MAY BE

MAINTENANCE

SELECTED FROM THE

256

LINES

(16

DJ11'S)

SWITCH REGISTER.

THE DATA

MODE.

THREE DIFFERENT 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

PROGRAM 2:

THE

SAME

SPEED.)

(CONTINUOUS ECHO EXERCISER

THIS PROGRAM CONTINUOUSLY

TRANSMITS

(ON-LINE)

THE

LAST

(HARACTER

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

WILL

"ECHO"

PROGRAM 3:
ECHO TEST (ON~LINE)
THIS PROGRAM TRANSMITS A HEADING (*ECHO TEST*) ON EACH
LINE
AND THEN ECHOS EVERYTHING THAT IT RECEIVES.
CAUTION:
IF (HARACTERS ARE RECEIVED FASTER THAN THEY CAN BE
TRANSMITTED,

NOTE:

THE

SOF TWARE

ON-LINE

BUFFERS MAY

EXERCISERS

OVERFLOW.

(PROGZ2 AND PROG3)

DEPENDENT,
AMD
THEREFORE
DO
NOT
LOOP.
ACT?1 AND DDP MONITORS WILL ONLY RUN PROCT.

1.E.

ARE OPERATOR

NO PASSES.

CZ0JBFO DJ11 EXER € ONLNE
CZDJBF .P11
21-JUN-78 13:56

;

MACY11

30A(1052)

SWITCH

21-JUN-78

14:01

SWITCH SETTINGS

100000
40000
20000
10000
4000
2000

JHALT ON ERROR
;NOT USED
JINHIBIT ERROR TYPEOUTS
JPRINT SILO ALARM LEVEL
;NOT USED
;0 = BELL ON PASS COMPLETE

SWo=

1000

;ON=LINE

;3?;0:2>

DJ11

SEQ 0009

USE

Sw15Swlé=
Sw13Swle=
Sw11
SW10=
Sw8-

PAGE 10

;1 - BELL ON ERROR

400

(PROG1)

JSELECT LINES

(INITIALIZATION “IME ONLY)

(PROG! ONLY)

SELECT MESSAGE

CONTROL

STATUS REGISTER

(CSR)

XXXXXO

BITO

RECEIVER ENABLE

BIT3

CLEAR MOS (WRITE ONLY)

BIT]
BIT?

(READ/WRITE)

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

BIT4

CLEAR MOS FLAG

(READ ONLY)

BITS

NOT USED

BIT7
BIT8
BIT9
BIT10
BIT11
BIT12
BIT13
BIT14

DONE (READ ONLY)
MASTER TRANSMITTER SCAN ENABLE (READ/WRITE)
NOT USED
READ/WRITE BREAK REGISTER (READ/WRITE)
NOT USED
STATUS ENABLE (READ/WRITF)
FJ]/FO OVERRUN (READ ONLY)
MASTER TRANSMITTER INTERUPT ENABIE (READ/WRITE)

BIT6

RECEIVER INTERUPT ENABLE

BIT1S

TRANSMITTER READY (READ ONLY)

RECEIVER BUFFER REGISTER

BIT0-7
BIT8-11
BIT12
BIT13
BIT14
BIT15
TRANSMITTER

(READ/WRITE)

(RBUF)

XXXXX2

(READ ONLY)

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

CONTROL

(TCR)

XXXXX&

(READ/WRITE)

BIT0=15 STOP THE SCANNER ON CORRESFONDING L INE
"RANSMITTER BUFFER

(TBUF)

XXXXX6

BITO-7
TRANSMITTED (HARACTER (WRITE ONLY)
BIT8~11 LINE NUMBER (RFAD ONLY)
BREAK (ONTROL

STATUS REGISTER

(B(SR}

XXXXX&

(BIT10 OF

(SR SET)

(READ/WRITE)

CZDJBFO DJ11 EXER & ONLNE
CZDJBF .P11
21-JUN-78 13:56

MACY11

30A(1052)

1
K
21-JUN-78
14:01
PAGE 11
DJ11 SPECIFICATIONS

SEQ 0010

BITO-15 TRNSMIT A BREAK ON CORRESPONDING L INE.
SCOPE=

H.T=

TYPE=
PS=

RO=
Ri=

R?2=
R3-

R4
=

TTY=

SP=

PC=

BELL=
BIT10=

TRAP

EMT
107
177776

X0
X1
)¥4
%2
%4
%5

%26

%7
7

BIT1=
BIT2BIT3=

BIT4-

20
40
BITS=
100
BIT6=
8IT17=
200
400
BIT8
1000
BIT9B8IT10=
2000
4000
BIT1110000
BIT12=
BIT1320000
40000
BIT14100000
BIT15=
LEVEL?7 = 340
OPEN =
0
00000

STACK
000000
000000

000046

000046
014614

000174
000176

000174
000000
000000

000200
001000

000200
002137
001000
000137
001200

1200

000000

:TRAP CATCHER

IN LOCATIONS O THRU 776

0,0
;LOCATIONS O AND 2 CONTAIN ‘HALT'' INSTRUCTIONS
;LOCATJONS 4 THRU 56 _CONTAIN ' +2'" AND 'HALT'' IN EVERY VECTOR
LOCATIONS 60 THRU 776 CONTAIN ‘'.+2'° AND '‘IOT*' IN EVERY VECTOR

46
$ENDAD

174

DISPREG-0
SWREG:
0

006312
007310

200
JMP

1000

JMP

1200

BEGIN
RESTAR

;200 ALWAYS IS THE STARTING ADDRESS

JRESTART

ADDRESS

177570
177570

200000

MACY11

30A(1052)

PCNT:

0,0

SWR:
177570
DISPLAY: 177570
TIMES:

SvSW0:
SVSW1:
SVSW2:
SVSW3:
SvSW4:
SVSWS:

;MINIMUM NUMBER OF MESSAGES (PROG1)
;MAP OF LINES SELECTED,
DJ11 #0
:MAP OF LINES SELECTED. DJ11 #1
sMAP OF LINES SELECTED, DJ11 #2
;MAP OF LINES SELECTED, DJ11 43
;JMAP OF LINES SELECTED, DJ11 44
;MAP OF LINES SELECTED, DJ17 45
;MAP OF LINES SELECTED, DJ11 #6
JMAS OF LINES SELECTED, DJ11 #7
;MAP OF LINES SELECTED, DJ11 410
;MAP OF LINES SELECTED, DJ11 #11
;MAP OF LINES SELECTED, DJ11 412
;MAP OF LINES SELECTED, DJ11 #13
;MAP OF LINES SELECTED, DJ11 #14
;MAP OF LINES SELECTED, DJ11 #15
;MAP OF LINES SELECTED, DJ11 416
;MAP OF LINES SELECTED, DJ11 #17

OPEN
OPEN
OPEN
OPEN
OPEN
OPEN

SVSW6:
VSU?:
b}
SvSwW10:
SVSW11:
SVSWTM2:

OPEN
OPEN
OPEN
OPEN
OPEN

SVSW14:
SVSW15:
SVSW16:
SVSW17:

OPEN
OPEN
OPEN

MARK :

OPEN

BUFSIZ: 30
UNITS:
1
DEVADR:
VECADR: 300
RCVLVL: 240
XMTLVL: 240
ISRFLG: O

001274
001276
001300
001302
001304
001306
(€01310

SEQ 0011

;ITERATION COUNT-LH, TEST NO.-RH
;ERROR COUNT REGISTER
;PASS COUNT REGISTER

SVSW13: OPEN

532
533
534
535
536
537
538

PAGE 12
21-JUN-78
DJ11 SPECIFICATIONS

ICNT:
0
ERRORS: 0

SAVIT:

~n
W
N

88 88 833

000000
000000
000000

b
b
b
-

(L LV, LU, LV

00NN
S NN

IV, LV, 1V, |

)

CZ0JBFO DJ11 EXER & ONLNE
C2DJBF .P1
21-JUN-78 13:56

L
14:01

ALMFLG:
TIMERA:
TIMERB:

COUNT:
SUM:

RECEIVE BUFFER SIZE

(PROG3)

:INTR SVC RTN FLAG

O
0
0

..**F

:SILO ALARM LEVEL FLAG

s TIME COUNTERS

O
0

;JVALUF OF THE SILO ALARM LEVEL

:t!t*ttittttttfitfittttttttttttttt*ttttttttttitfittt*t'tttttttfiittit.ititt'

s TABLES

ALAES

Eds

ittt

2222222 2222222222220

564

001372

000400

XMTTAB:

.BLKW

400

;TRANSMIT DATA POINTER TABLE

566

002312

000400

RCVTAB:

.BLKW

400

JRECEIVE DATA POINTER TABLE (PROG1)
;RECEIVE DATA TABLE (PROGZ AND PROG3)

549

003312

000400

MAXTAB:

.BLKW

400

cPOINTER FOR XMIT/RCV BFRS.

551

004312

000400
004313

XMTCNT: .BLKW
RCVONT=XMT(NT
+1

400

s TRANSMIT DATA COUNTER
RECEIVE DATA COUNTER

554

005312

000400
005313

MASK :

400

s CHARACTER MASK TABLE
;ITERATION COUNT AND FLAGS

BLKW

CNTTAB-MASK
+1

.-¢¢F

CZDJBFO DJ11 EXER € ONLNE
CZDJBF .P11
21-JUN-78 13:56

556
557
558

006312
006316

012706
004737

560
561
562
563

006326
006332
006336
006342

012720
012720
012720
012720

006352

012720

559

006322

012700

MACY11

001200
016230

30A(1052)

21-JUN-78
SET UP AREA

BEGIN:

MOV
JSR

000020

MOV

015712
000340
015550
000340

MOV
MOV
MOV
MOV

000340

MOV

564 006346 012720 014630

565

566
567
568
569
570
571

006356
006362
006366
006372
006376
006400

574
575
576
577
578
ggg

006414
006416
006422
006430
006436
006444

572
573

006404
006410

005037
005037
005037
012700
005720
010060

012720
022700

003370
005037
012737
012737
012737
012737

MOV

001202
001204
001206
000300

177776

000004
001000
001300
000400
000106
000106
000001

CLR
CLR
CLR
MOV
TST
MOV

MOV
CMP

8GT
CLR
MOV
MOV
MOV
MOV

011232
011236
011242
001216

581

M1
14:01
PAGE 13

#STACK, SP
PC sucunn

JSET UP STACK POINTER

#IOTRAP, (RO)+
#340,
“(RO)+
#PDOWNS, (RO)+
#340,
(RO)+

;10T VECTOR (20)

#20’.RO

cenri (RO)+
#3460,

ERRORS
PCNT
PCNT+2
#300,
(RO) +
RO,

#107
#1006,

(RO)+

RO
=2(RO)

(RO)+
RO

2s
ALMFLG
#256.
. CNTNIT
#70..CNTNIT+4
#70..CNTNIT+10
#1,TIMES

:POWER FAIL VECTOR (24)

:EMT VECTOR (30)

:CLEAR ERROR COUNTER
:CLEAR PASS COUNTER

;START OF FLOATING VECTOR AREA
*UPDATE POINTER
:PUT '".+2'" IN EACH VECTOR

:AND "'[OT""
*CHECK FOR END OF FLOATING VECTOR AREA

*BRANCH IF MORE
*CLEAR THE ALARM FLAG
-SET MAXIMUM SIZE VALUES
:FOr PROG #°

;SET FOR Qv ON FIRST PASS

'-tttttttttttttttttttttttt*ittttttttttttttttttttt*ttttt*ttttttttttttttttt

582

JROUTINE TO MAP ALL THE DJ11'S ON THE SYSTEM

583

"tttttttttttttttttt!tttttttttttttttttt*ttitttttttttttttttttttt*ttfitttttt

584
585
586
587
588
589
590
591
59¢
593
ggg

006452
006456
006462
006470
006472
006474
006476
006500
006504
006506

000261
005710
103404
062700
005201
000771

596
597
598
599
600
281

006510
006514
006520
006522
006526
006530

005037
010137
001005
000004
000000
000137

013700
012702
012737
005001

001266
000001
000002

DJMAP:

000006

5%
1s:

000010

£h:

000006
001264

7%:

016624
014542

MOV
MOV
MOV
CLR

SEC
ST
BCS
ADD
INC
8R

(LR
MOV
BNE
TYPE,
HALT
JMP

DEVADR, RO
21,
R2
#RTI,
a6
R1
(RO)
7%
#10,
R1
1%
a¥é
R1,
GETVEC
MSGO1

UNITS

a#DONE

;GET FIRST FLOATING ADDRESS
“COUNTER FOR DJ11'S
*RTI WHEN TIME=-OUT
:SET UP COUNTER

*SET CARRY
*CHECK FOR A DEVICE
*BRANCH IF NONE
;G0 TO NEXT DEVICE ADDRESS
*COUNT DJ11°'S
*L0OK FOR MORE
JRESTORE TIMEOUT VFCTOR
;SAVE COUNT

;TYPE "NO DJ11°'S."
*FATAL ERROR
*RESTART

603

ttttttttttfittttttttttitttitttttttt*tttttttittttttttttttttttttttttfitfittt

604

ROUTINE

605

606
607
608
609
610
611

TO DETERMINE VYECTOR ADDRESSES OF DJ11°'S

tttttl’tttttttt*tttttttttttttttttittttttttttttttttttl*tttttttttttttttttt

006534
006540
006546
006552

013746
012737
013701
012711

000020
006570
001266
040400

000020

GETVEC: MOV
MOV
MOV
MOV

20,
-(SP)
#1$,"
@#20
DEVADR, R1
#0600, (R1)

:SAVE 10T VECTOR
:RESET ]OT VECTOR
*FIRST DJ ADDRESS
SSET CSR
;BIT8= TRANS SCAN ENARLE

SEQ 0012

CZDJBFO DJ11 EXER & ONLNE
CZDJBF .P11
21-JUN-78 13:56

006556

006566

012761
000001
000407
011602

162716

011637
022626
000002
012637
005742
013703

000001

MACY11

30A(1052)

000004

MOV

”,

B8R

WAIT

1%:

000010
001270

1
N
21-JUN-78
14:01
PAGE 14
DJ11 VECTOR MAPPING ROUTINE

MOV

000020

001264

:WAIT FOR AN INTERRUPT

*CONTINUE AFTER INTERUPT
:SAVE VECTOR ADR.

(SPJ,

VECADR

-SAVE FIRST VECTOR

(SP)+,

a#20

CMP
RT]

(SP)+,

TST
MOV

:TCR, LINE 0O

#10

MOV

;BIT14= TRANS INTERRUPT ENABLE

(SP),

SUB

MOV

4(R1)

SEQ 0013

-(R2)
UNITS,

(SP)

(SP)+

(+4)

*REPOSITION ADR TG RCV. VEC.
:RESET STACK FROM IOT
*RETURN FROM INITIAL INTERUPT

:RESTORE IOT VECTOR

*POINT TO XMT. VEC. +2
SSET UP UNIT COUNTER

;CHECK THAT VECTORS ARE CONTIGUOUS
005061
005011

000004

2%:

CLR

4(R1)

000004

MOV

#10T,

000010
00CV10
000002
040400
000001

BEQ
ADD
ADD
MOV
MOV
MOV

REPORT
#10,
R1
#10.
R2
#RTI.
(R2)
#60400, (RT)
a,
4(R1)

B8R

CLR

DEC

000004

WAIT

(R1)

:CLEAR TCR
(R2)

*CLEAR CSR

*RESTORE

10T

TO XMT.

VEC.+2

*CHECK FOR MORE DJ11°S

:BRANCH IF DONE
*UPDATE DJ ADR. POINTER
*UPDATE VECTOR POINTER
*RTI ON INTERRUPT
*SET CSR
:TCR LINE O
*WAIT FOR AN INTERRUPT

;REPORT CONF IGURATJON

020000

016445

172312

REPORT: BIT
BNE

TYPE,
TYPE.
TYPE,

MOV
JSR

#BIT13, @aSWR
GETLEN

;CHECK FOR INHIBIT TYPOUT
*SKIP REPORT IF SET

DEVADR, TTY
PC.PRINTR

:TYPE DEVADR IN OCTAL
:TYPE LEADING ZERO'S

VECADR, TTY

;TYPE VECADR IN OCTAL

MSGNUM
UNITS,TTY
PC,PRINTS

;TYPE UNITS

MSGMDN
RETURN
MSGADR

TYPE,

MSGVEC

JSR

PC,PRINTS

MOV

TYPt,
MOV
JSR

*AND SUPRESS LEADING ZERO'S
IN OCTAL

*AND SUPRESS LEADING ZERO'S

CZDJBFO DJ11 EXER & ONLNE
CZbJsf .P11

21-JUN-78 13:56

MACY11

30A(1052)

21-JUN-78

14:01
PAGE 15
CHARACTER LENGTH MAPPING ROUTINE

=7
258

;t'tt'ttttttttttt‘ti.itt'l""i*fit'ikttt*fiittttttttitttfititttttttt.ttti*tt

"tttfitttt*fi*'t*'fi*ttfi""fittt'tttttt*t*ttttfit*titttttttttttt'ttttttittt*

659

66]
662
663

664

665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688

689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706

JROUTINE TO MAP (HARACTER LENGTHS

006754
006762

022737
001002

000176

006770
006774
007000
007004
007010
007014
007016
007022
007024
007026
007034
007036
007040
007042
007044
007046
007052
007056
007060
007062
007066
007072
007076
007102

013700
013701
012702
012711
032711
001375
010261
005711
100376
012761
006302
006302
006302
006302
103364
005061
062701
005300
001347
013700
013701
012702
012703
016104

006764

007106
007110
007112
007114
007120
007122
007124
007126
007132
007134
007136

007140
007142
007144
007146
007152
007156
007160

004737

100375
010405
000305
042705
006305
060205
105104
042704
010425
010425
010425

010425
005303
001356
062701
062702
005300
001346

001210

GETLEN:

(MP
BNE

#SWREG,
SWR
63

001264
001266
000001
000415
000C20

6%:

000004

2%:
3%:

MOV
MOV
MOV
MOV
BIT
BNE
MoV
TST
BPL
MOV
ASL
ASL
ASL
ASL
8CC
CLR
ADD
DEC
BNE
MOV
MOV
MOV
MoV
MOV

UNITS,
DEVADR,
a1,
#4415,
#8IT4,
10$
R2,
(R1)
3%
#377,
RS
R2
R2
R2
2%
4(R1)
#10,
RO
1%
UNITS,
DEVADR,
AMASK,
Hé,
2(R1),

016126

000377

1%:
10%:

000006

000004
000010
001264
001266
005312
000004
000002

177760

177400

000010
000040

4%:
5%:

JSR

BPL
MOV
SWAB
8IC
ASL
ADD
(oMB
BIC
MOV
MoV
MOV
MOV
DEC
BNE
ADD
ADD
DEC
BNE

PC,CNTLU

RO
R1
R2
(R1)
(R1)

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

4(R1)

;TRANS CONTROL, ONE LINE AT A TIME
JWAIT FOR TRANS READY

6(R1)

;SEND A RUBOUT
;SKIP 4 LINES

R1
RO
R’
R2
R3
R4

5%
R4,
RS
RS
#177760,RS
RS
RC,
RS
R4
#177400,R4
R4,
(R5)+
R4,
(R5)+
R4,
(R5)+

R4,
R3
5%
410,
#40,
RO
4%

;BRANCH BACK IF MORE LINES
;CLEAR T(CR
cUPDATE POINTER TO NEXT UNIT
;CHECK FOR MORE UNITS
;SET UP UNIT COUNTER
;SET UP DEVICE ADDRESS POINTER
;SET UP CHAR LEN TABLE POINTER
;SET UP (CHAR COUNTER
;SAVE AND CHECK CHAR PRESENT
:DUP DATA
JLINE # IN LOW BYTE
;CLEAR ALL BUT LINE #
;%2
;MAKE POINTER TO (HAR TABLE
sMAKE DATA INTO MASK
;CLEAR UPPER BYTE
;SAVE THE MASK
;SAVE THE MASK
;SAVE THE MASK

(R5)+

;SAVE THE MASK
JCOUNT TO 4

JADDRESS POINTER TO NEXT DJ

;CHAR LEN TABLE POINTER
sCOUNT UNITS
;BRANCY BACK [F MORE

SEQ 0014

CZDJBFO DJ11 EXER & ONLNE
CZDJBF .P11
21-JUN-78 13:5

MACY11

707
708

30A(1052)

21-JUN-78

1 4:

SEQ 0015

PROGRAM SELECT I

tttttt*tttttfi'*fitt't*tttttt'tttt'tt'iittt'ttittttttttttttttt't"ttttltt

:SELECT THE PROGRAM TO BE RUN
P
ROGRAM 1:
OFF=LINE EXERCISER
*PROGRAM 2:
ON-LINE EXERCISER (TRANSMIT LAST CHARACTER RECEIVED)
;PROGRAM 3.
ON~-LiNE ECHO EXERC'SER

;'*ttt***ttttttt*ttttt'tt'!tttt?.i4tttttttttttttttttt*tttittttttttttttti

000042

SELPRO:

TST

016605
015022
000400

001220
016434
016411

001356

007266

000410

007270
007274
007300
007304
007306

013700
012701
012721
005300
001374

007310
007314
007316
007322
007324
007326

007332

007340

013700
001722
022700
103717
006300
000170

000001
007342
012004
013210

RS,

PROGNO

SELPRO

171776

sCHECK FOR ACT 11 OR DDP
;BRANCH [F MONITOR

a6l

ALL
MSGPRG

HBIT8,

ALL

READIN

JREAD A NUMBER FROM THE (CTY

aSWR

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

#SVSWO,R1
RETURN
MNUM

SWITCH:

RO, TTY

015376
016414
015022

PC,PRINTS
MSGSEL

001214

SAVIT,(R1)+
RO
RO,
UNITS
SWITCH

R5,READIN

RESTAR

177777

ALL:

MoV

RESTAR:

UNITS,
RO
#SVSWO,R1

#177777,(R1)+

1%:

RO
1%

.SBTTL

007332

JASL

THE NUMBER OF

FOR

THE

DR11C

SELECTED LINES

SAVIT

001264

001264
001220

;PRINT

RESTART POINT

MOV

000003

007332

PROGNO,
SELPRO
N3,
SELPRO
RO

dPROGAD

PROGNC.
PROGAD
:
PROG!
PROG?Z

PROG?3

sCOUNT UNITS
;CHECK FOR MORE UNITS

;BRANCH IF MORE

;GO DO IT

JSET UP UNIT COUNTER
sSET UP SWITCH TABLE POINTER
sSET ALL LINES
sCOUNT UNITS
;BRANCH IF MORE

(RO)

;DEFALLT

TO PROGRAM 1

CZDJUBFO DJ11 EXER & ONLNE

CZDJuBF .P11

21=JUN-78 13:56

MACY1T

757

30A(1052)

PROG1:

21-JUN-78

OFF-LINE EXERCISER

758

759
760
761
762
763
764

;PROGRAM 1:
N
;
;
.
N

765

766
767
768
769
770
771

007342
007344
007350
007354
007362

000005
005037
012706
(052737
012701

773
776
775
776
777
778
779
;g?

007372
007374
007376
007400
0076404
007406
007410
0076412

005021
005302
001375
012702
005201
105021
005302
001374

772

007366

012702

001276
001200
000340
001312

002000

000400

782
783
784
785

792
793
794
795
796

797

798
799

800
801
802
803
804
805
806
807
808
809
810
8
812
i

PROG1:
177776

2%:

AR AR R R A

RN A A RN AN

SEQ 0016

AN NN NN NN NN NRAR RN AR AN RNRR RN RN R

AR R R AR AR AR

AR RAR

TRANSMIT AND RECEIVE ALL LINES SIMULTANEOUSLY
OFF=LINE:
SW<9 =0
ON-L INE:
SW<9 = 1
USES THE DATA TABLE SELECTED BY SW<2:0>
EACH LINE REPEATS THE PATTERN AT LEAST 16 TIMES
PER PASS.
AN RN RN AN AR R RARA R

RESET
CLR
MOV
8IS
MOV

ISRFLG
#STACK, SP
#340,a#PS
#XMTTAB R1

CLR
DEC
BNE
MOV
INC
CLRB
DEC
BNE

(R1)+
R2
1%
#400,R2
R1
(R1)+
R?
Pt 3

MOV

2
PAGE 17

#ZOOO.Ré

AN AR RANR AR R AR R RR

AR AR

AR AR RNNRA

sCLEAR OUT THE WORLD
;CLEAR INTR. Sv(C. RTN. FLAG.
JRESET THE STACK POINTER
;PROCESSOR TO LEVEL 7
JFIRST TABLE POINTER

JLENGTH OF TABLES (WORDS)

cCLEAR THE TABLE

JLENGTH OF MASK/COUNT
;SKIP MASK
. CLEAR COUNT

TABLE

JROUTINE TO INITIALIZE ALL DJ11°'S AND THEIR [SR'S:
JSET UP ALL INTERRUPT VECTORS
JSET UP DEVICE ADDRESSES IN LINKER ROUTINES
;SET CSR'S EVERYTHING ENABLED

;gg

788
789
790
791

AR RN AR

D
14:01

JSET TCR'S, ALL LINES ENAB_ED

007414
007416
007422
007426

007432
007434
007440
007442
007444

007450

007452
007454

005000
013701
013702
012703

010322
013722
022323
010113
062723

005723

010322
013722

007460
007462
007464
007466

022323
010123
005011
052711

007472
007476
007500
007504

032711
001375
005737
001002

PTINIT:

000002

CLR
MOV
MOV
MOV
MOV
MOV
MP
MOV
ADD

R3,
RCVLVL,
(R3)+,
R1,
ne

001274

MOV
MOV

R3,
XMTLVL,

001266
001270
010372

001272

11%:

TST

050510

000020

001300

13%:

RO
DEVADR,
VECADR,
#RISRO,

(R$)+

CMP
Mov
(LR
BIS

(R3)+,
R1,
(R1)
#5050,

BIT
BNE
TST
BNF

#MIT4,
13%
ALMFLG
10%

RI1
RZ2
R3
(R2)+
(R2)+
(R3)+
(R3
(R3)+
(R2)+
(R2)+
(R3)+

(R3)+

(R1)

JSET UP RECEIVER INTERUPT VECTOR
;ADD 4 TO R3
.ADDRESS OF CSR
;ADDRESS OF RBUF
cSET UP TRANSMITTER

INTERUPT VECTOR

.ADDRESS OF CSR
;CLEAR CSR
cSET UP CSR
JBIT2 = CLEAR MOS
;BIT6 = RECEIVER INTERUPT ENABLE
;BIT8 ~ TRANSMITTER SCAN ENABLE
;JBIT12 = STATUS ENABLE
;BIT14 = TRANSMITTER INTERUPT ENABLE
;CHECK FOR MOS TO CLEAR
JHAS THE SILO ALARM LEVEL BEEN CHECKED?
JYES

sotef

;. ++F

CZDJBFO ?#11 EXER €& ONLNE
.P
CZDJBF
21-JUN-78 13:56

813

007506

004737

MACY11

010024

001220

000004

000001
171452

001260

30A(1052)
PROGT:

10$:

000004

011230
011230
011232
011232

001312
002312
004312
004313

001260
001000

001264

171362

20%:

000001
000010

12%:

001264
000001
000140

052711
005761

000001
000002

100775

000014
000020

012737
042737
000406

14%:

001300

177776

21%:
22%:

000755

E
14:01

OFF-LINE EXERCISER

2
PAGE 18

JSR
ASL
MOV
ASR
MOV

PC.ALMCK
RO
SVSWO(R0),4(R1)
RO
#1,
MARK

ASL
ASL

RS
RS

MOV
BIC

177770

001260

21-JUN-78

aSWR
#177770, RS

:NO,GO DO IT
UNIT # = 2
-SET TCR BITS (CSR + 4)
*RESTORE UNIT COUNTER
;SET UP MARKER

<GET SWITCH SETTINGS
*MASK MESSAGE #

MOV
Séé

(R3)+,
ngx.

MOV

ADRNIT(5) ,XMTTAB(4)

ST
ASL
BCC

(RG) +
MARK
14%

MOV
MOVB
MOVB

R&
4(R1)

SEQ 0017

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

ADRNIT(5) CRCVTAB(4)
CNTNIT(5),XMTCNT (4)
CNTNIT(5)_RCVCNT(4)

BIT
BNE
BIS
BIT
BNE
BIS
ADD
INC
cMP
BNE
MOV
BIC
BR

#BIT9,
aSWR
21s
214,
(R1)
MBIT4, (R1)
20%
#1,(R1)
#10,R1
RO
RO,
UNITS
11%
#1,ALMFLG
#140,
#APS
FORGND

BIS
rST
BM]
BR

#1,(R1)
2(R1)
22%
12%

;INC OFFSET

TO NEXT LINE

;CHECK FOR ON-LINE
:BRANCH IF ON-LINE
*SET THE MAINTENANCE BIT AND CLR MOS
‘WAIT FOR MOS TO CLEAR
;TURN ON RCV ENABLE
*POINT TO THE NEXT CSR

;SET THE ALARM LEVEL FLAG
:LOWER PROCESSOR PRIORITY
;60 DO IT

:TURN ON RCV EN
SCLEAR JUNK OUT OF

THE RBUF

t*t*tttttt*tt*tttttt*ttttitttttttfiittttttttttt*tttfitt\tQttttttttttttttt

:PROG1

BACKGROUND PROGRAM TO MONITOR

TABLES

tttt*ti*ttttttl‘*t**tttttti'tttt’ttittiil’*ttttttkt'tIt*ttttttttttttit'tt

: NOTE - PROGRAM MAY HANG IN A LOOP.
; IF THIS HAPPENS, RUN DZDJA.

007714
007720
007724
007726
007730
007734
007736
007740
007744
007750
007754

004312
000400

FORGND:

21%:

000002

22%:

AXMTCNT
R

#4600 ,R2

ADD

#2,R1

TSTR
BNE
DEC
BNE

004313

000400
001306

MOV

MoV

(R1)
218

R2
21%

MOV
MOV

#RCVCNT
,R®
#400,R2

BGT

22%

(MPB

(R1),COUNT

;CHECK FOR COUNT TABLE CLR
/BRANCH IF NOT
;GO TO NEXT LINE ENTRY
s COUNT LINES
;BRANCH 1F MORE LINES
IS # OF CHAR LEFT [N RBUF LESS THAN
;THE SILO ALARM LEVEL
;iF NO WAIT FOR THEM

CZDJBFO DJ11 EXER & ONLNE
CZDJBF
.P1
21-JUN-78 13:56

869
870
871

007756
007762
007764

062701

MACY11

30A(1052)

000002

ADD

001216
007342
001276
016360

23%:
001216

000004

000200
000377
001306

001304

AL M(CK :

2%:

000006
1%:

010336

3%
001306

001306
001310
001306

001310
001306

001310

001310
000106
001310
011236
011242
001310
000377

001310
011232

000377
000106
000106
000004
000020

016310

010000

016733

F
14:01
BACKGROUND MONITOR

21=JUN-78

5%:

6%:
7%:

108
4%:
11%:

170704

DEC
BNE
DEC
BEQ
JMP
TST

BNE

TYPE,
MOV
JMP
MOV
BIS
BIS
CLR
CLR
CLR
MOV
TST
8PL

MOVB
INC
TSTB

8M]
JSR
BR
BR
BR
BI{
BIS
cMP
BEQ
ADD

[0 &
BLT
BEQ

PAGE

#2,R1
R

SEQ 0018

;IF YES IGNORE THEM
sCOUNT LINES
JBRANCH IF MORE LINES
;DO THIS AGAIN?
JNO, GET Our

22%

TIMES

23%

PROG1

ISRFLG
1%

;SEE

#20,TIMES
a#DONE
#1,4(R1)

;DO IT 1€ TIMES THE NEXT TIME

FLAG IS ZERO

ieeF

YES. RCV DATA ERROR

TRNERR

“IF

#8112,

JSET LINE O IN THE TCR
JSET THE MAINT BIT
JSET RCV EN AFTER MAINTENANCE BIT

(R1)

#1,(R1)
COUNT
SUM
TIMERA
#200, TIMERS
(R1)

#377 ,6(R1®
COUNT
(R1)

ALMCK

#8170, (R1)
#BIT3,(R1)

#1,COUNT
4%
COUNT, SUM

SUM. #70.

5¢
6$
COUNT, SUM

SUM, CNTNIT+4

SUM.CNTNIT+10
COUNT, SUM

SUM, 4377

7
COUNT, SUM
SUM, CNTNIT
11%
#377 ,CNINIT
#70. ,CNTNIT+4
#70. CNTNIT*10

;SKIP ISR'S

;SET UP TIME CONSTANTS
;WAIT FOR

TRANSFER READY BIT

;OUTPUT A CHAR TO TBUF
;COUNT EACH CHAR
;CHECK FOR DONE IN THE (SR
JIF SET GET OUT OF THE LOOP

;GIVE DONE TIME TO SET
JRETURN TO TEST FOR DONE AGAIN
JRETURN TO OUTPUT ANOTHER (HAR
;ERROR RETURN TRY AGAIN
s TURN OFF

RCV ENABLE

. CLEAR MOS
JIF SILO LEVEL SET FOR 1

;GET THE LARGEST MULTIPLE OF THE
sSILO ALARM LEVEL AND USE IT IN THE

;THREE

SIZE

LOCATIONS

;IF EQUAL USE IT
;IF GREATER SUBTRACT ONE COUNT OFF
;AS CLOSE TO 70 AS POSSIBLE

JCONTINUE TO A COUNT OF 256

:AS CLOSE TO 256 AS POSSIBLE
AL SET GET OU
;PUT SIZE TO MAX VALUE

#;72.(R1)

sTURN OFF THE MAINT BIT
JWAIT FOR MOS TO CLEAR

PC.KBDINT

JGET THE SWIT(H REGISTER
:ZSINT ALARM LEVEL?

MIT4L, (R
12%
#5W12,aSWR
13%
M. ARM
R1,TTy

THEN GET OUT

JYES, PRINT (SR FRST

CZDJBFO DJ11 EXER & ONLNE
CZDJBF .P11
21-JUN-78 13:56

010314
010320
010324
010330
010354

004737
000004
013705
004737
000207

015366
016727
001306
015366

010336
010342
010344
010350
010352
010360
01036¢

105237

001302

010370

001012
005337
001007
023727
001002

MACY11

30A(1052)

13%:

TIME:

001304
001306

000022

104001

005725
005725
000205

2%:
1%:

G
14:01
g 1-JUN-78
BACKGROUND MONITOR

PAGE 20

JSR
TYPE,
MOV
JSR

PC,PRINTR
MSGDAS

JPRINT ALARM LEVEL

RTS

COUNT,TTY
PC,PRINTR

INCB

TIMERA

DEC
BNE
CMP
BNE
HLT+1

TIMERR
1%
COUNT ,#22

s INCREMENT THROUGH ONE WORD
;GO TEST FOR DONE AGAIN
;JMAKE TIMERB LARGER IF FAST PROCESSOR

BNE

TST
TST
RTS

JHAVE OQUTPUTTED 18 TIMES

sNO, GO OUTPUT ANOTHER (HAR
:g%S,D?gg DID NOT SET AFTER 18 OQUTPUTS

(R5)+
(RS)
+
RS

JSET R5 FOR ERROR RETURN

;SET RS FOR NEXT OUTPUT RETURN
JRETURN FROM ABOVE OR RETEST DONE

"ttttttttttttfitttt*tfi*i'ttt*'tfii'ittttfii*tttt**ttttttwtitttt!tttttiitttt

:PROG1

LINKERS TO DJ11

RISRO:

JSR
.WORD
JSR
. WORD

INTERRUPT SERVICE ROUTINES

"ttt'*ltttfii'tfitttfittttt'*tttttt*il’t*tttttt*t*t*ttiti*ttttttttflt'tttfittt

010372
010376
010402
010406
010412
010416
010422

011106
000000
010772
000000

XiSRO:
RISR1:

XISR1:
RISRZ:
XISR2:

RISR3:

010772

000140
011106
000200
010772

160100

000200
011106
000240
010772
000240
011106
000300
010772
000300
011106
000340
010772
000340

XISR3:
RISR4:

XISR&:

RISRS:

XISR5:
RISR6:
XISR6:

RISR7:

XISR?7:

JSR
.WORD
JSR

RO,RCVISR
<160012+<0*10>>,<40«0>
RO, XMTISR
<160010+<0*10>>,<40%0>
RO,RCVISR
<160012+<1210>>,<40+1.
RO.XMT]SR
<160010+<1+10>>,<40%1>

RO.RCVISR

<160012+<2+10>>,<40%2>
RO, XMT]SR

<160010+<2+10>>,<40%2>
RO,RCV]ISR
<160012+<3%10>>,<40+3>
RO, XMT]ISR
<160010+<3+10>>,<40+3>
RO.RCVISR
<160012+<4*10>>,<40%4>
RO, XMTISR
<160010+<4x10>>,<40%4>

RO,RCVISR
<160012+<5%10>> ,<4(=5>
RO, XMTISR
<160010+<5+10>>,<40«5>
RO,RCVISR

<160012+<6*10>>,<40*6>
RO,XMTISR
<160010+<6+10,>,<40*6>
RO,RCV]ISR
<160012+<7+10>>,<40x7>
RC,XMT ISR
<160010+<7+10>>,<40%7>

SEQ 0019

CZDJBFO DJ11 EXER & ONLNE
CzZbJsf .P1
21-JUN-78 13:56
010572
010576
010602
010606
010612
010616
010622
010626
010632
010636
010642

004037

MACY11

011106

30A(1052)

21-JUN-78
ISR LINKERS

RISR10:

JSR

JWORD
XISR10: JSR
WORD
RISR11: JSR
WORD
XISR11:

JSR
MWORD
RISR12: JSR
WORD
XISR12: JSR
WORD
RISR13: JSR
XISR13:

XISR14:

)

RISR15:

XISR17:

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

RO,XMTISR
<160010+<10+10>>,<40%10>
RO,RCVISR
<160012+<11%10>>,<40%11>
RO, XMTISR
<160010+<11¢10>>,<40+11>
RO,RCVISR
<160012+4<12+10>>,<40%12>
RO, XMTISR
<160010+<12+10>>,<40*12>
RO,RCVISR
<160012+<13%10:>,<40+13>

RO,XMTISR
<160010+<13%10>>,<40%13>
RO.RCV]ISR

JSR
JWORD
JSR

RO, XMT ISR
<1600104<14x10>>,<40%14>
RO,RCVISR

LWORD

WORD

JSR
LWORD

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

<160012+<15+10>>,<40+15>
RO, XMTISR
<160010+<15%10>>,<40+15>
RO.RCVISR
<160012+<16%10>> ,<40%16>
RO, XMTISR
<160010+<16*10>>,<40*16>
RO.RCVISR
<1600124<17+10>>,<40%17>
RO, XMT ISR
<160010+4<17%10>>,<40%17>

TRANSMITTER

PN RPN

INTERRUPT

RARAARR AN RARNNRAARNANRARNANRAAARNANTANNANRER

SERVICE

RRRRERR222888373
ole]

nNOSNVO

b
b
)
d ——d

b —d —
e
D

)

) c—d

md —
d
D

i —d
) ——d

—d vl

—t e

—

OoONOHMNOHRNOONNN

:tttttilt'l‘t.t'fit.ttf"‘ I AARAAARER

XMTISR:

MOV
MOV
MOV

TST
BPL
MOVB
ASL
ADD

000007

004312
001312
004312
001312

001312

TSTR

000006

’$:

SEQ 0020

RO,RCVISR

CHA RN RN ARNRARANARARANAANR

“PROG1

2
PAGE 21

JSR
.WORD
JSR

XISR1S: JSR
WORD
RISR16: JSR
LWORD
X]SR16: JSR
.WORD
RISR17: JSR

000740
010772
000740

eleloleleololelelalelololololololelole)

——

[o]e]
leolele)
NN b e ) wd ed b —d b o
=0 Nolo ENTe SU.P XV, S P

8888883388

RISR14:

.WORD

H
14:01

BEQ
MOVB
DE(B
INC
BR
MOV
CLR
SuB
ASR

R1,-(6)
R2,=(6)
(RO)+,R1
(R1.

6%
7(R1) ,R2
R?
(RO) ,R2

XMTCNT (2)
2%
ATTAB(2,6(1)
XMTCNT (2)
XMTTAB(?)
i
R3,-(SP)
XMTTAB(2)

("N ,Re
ke

ROUTINE

SRR

22222222 XX2R2Z2

;PUSH R1 ON STA(K

JPUSH RZ2 ON STA(K

sCHECK FOR TRANS READY

JGET LINE NO.
;TST

FOR ZERO

JSEND A (HARACTER

s COUNT (CHARACTERS
JUPDATE TABLE POINITER
C.EAR TABLE POINTER

CZDJBFOP9%11 EXER & ONLNE
(ZDJBF .
21-JUN-78 13:56
1037
1038
1039
1040

1041
1042
1043
1044
1045
10646
1047
1048
1049
1050

011056
011056
011060
011062
011064
011066

011072
011076
011076
011076
011100
011102
011104

005003
000261
006103
005302
100375
040361
012603
000741

000004

4%:

012602
012601
012600
000002

1052

105%

1058
1059
1060
1061
1062
1063
1064
1065

1066
1067
1068
1069
1070
1071
1072
1073
1076

1075
1076
1077
1078
1079

1080
1081

1082

1083

1084
1085
1086
1087
1088
1089
1090
1091
1092

30A(1052)

1051

1054
1055
1056
1057

MACY11

010146

011112
011114
011116
011120
011122
011124
011130
011132

010346
010446
012001
011102
100032
032702
001403
104002

011110

011134
011140
011142
C11144
011146
011150
011152
011156
011162
011164
011166

011172

011174
011200
011202
011206
011210
011210
011212

104003

105364
001403
005264
000744
012604
012603

MOV
MOV
MOV
RT!

R3
R3
RZ
3%
R3.4(R1)
(SP)+ ,R3
1%
(6)+,R2
(6)+,R1
(6)+,R0

%
070000

’%:

002312
005312
177400

;POP STACK
;POP STACK
;POP STACK

002312
s ¥

INTO R?
INTO R1
INTO RO

MOV

R1,-(6)

;PUSH R1

MOV
MOV
MOV
MOV
8PL
BIT
BEQ
HLT+2

R3,-(6)
R4 ,~(6)
(RO)+ R
(R1) ,R2
7%
#70000,R7
2%

;JPUSH R3 ON STA(K
JPUSH R4 ON STACK
;GET RBUF ADDRESS
JREAD THE DATA
JBRANCH [F NO (HAR PRESENT
;CHECK FOR ERRORS
.BRANCH IF 0K
JRECEIVER ERROR

BI(
MOV
(LRB
SWAR
ASLB
ADD
MOVB
BIC
(MPB
BEQ
8IC

HLT+3

;CLEAR TCR BIT FOR LINE
;RESTORE R3

RECEIVER INTERRUPT SERVICE ROUTINE

MOV

004313

SEQ 0021

;PROGY!

RCVISR:

070000

PAGE 22

010246

042702
010204
105004
000304
106304
061004
117403
046403
120302
001403
042703

CLR
SEC
ROL
DEC
BPL
8IC
MOV
BR

011106
011106

21-JUN=78
14:01
TRANSMITTER ISR

R2,-16)

#70000, R?
RZ,
R4
Ré
R4
R4
(RO) ,R4
aRCVTAB(R4)
,R3
MASK (&) ,R3
R3,R?
3
#1776400,R3

ON STAC(CK

JPUSH R2 ON STA(K

;R1-RBUF ADDRESS
JR2=CONTENTS OF RBUF
JBIT12=PARITY ERROR
;BIT13=FRAMING ERROR
;BIT14=UART OVERRUN
cCLEAR ERROR BITS FOR SPEED
;DUP THE RBUF
;CLEAR THE DATA
JLINE # TO LOW BYTE
JUINE # « 2, ALSO CLR (HAR PRESENT
;ADD OFFSET
;GET EXPECTED DATA
JMASK CHARACTER LENGTH
JBRANCH [F Ok
.MAKE SURE UPPER BYTE

;DATA ERROR

;R1-RBUF ADDRESS

(LEAK

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

DE(B
BEQ
INC
BR

RCVINT (&)
7%
RCVTAB(&)
1%

JUPDATE TABLE POINTER
:CONTINUE

MOV
MOV

(LYe R4
(6)¢,R3

JPOP STA(CK
JPOP STACK

INTO R4
[NTO R3

CZDJBFO DJ11 EXER & ONLNE
CZDJBF .P11
21-JUN-78 13:56
1093
1096

1095
1096

?88;

011214
011216

011220
011222

011226

MACY11

012602
012601

012600
005237

000002

MOV
INC

001276

RTI

;PROG1

1101

1104
1105
1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
1116
1117
1118
1119
1120
1121

1122
1123
1124
1125

1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
145
1146
1147
1148

(6)+,R2
(6)+,R)

(6)+,RO
ISRFLG

2
PAGE 23

;POP STACK INTO RO
;STEP INT SVC RTIN FLAG

DATA TARLES

"t"fifi'tfittt.t'*.tifi‘ttt"'itfittttttfit..t..!'t.'fifi.‘tfifittt'...QQ't'tt'i.

011230

011232
011234
011236
011240
011242
011244
011246
011250
011252
01125
011256
011260
011262
011264
011266
011274
011275
011276

011277
011300
011301
011302

011303
011304
011305
011306
011307
011310
01131
011312
011313
011314
011315
011316
011317
011320
011321
011322
011323
011324
011325
011326
011327
011330
0113%7

011274

000377
011674
000106
011266
000106
016770
000001
017370
000001
017770
000001
020370
000001
020770
005015
040
041
042

043
044
045
046
047
050
051
052
053
054
055
056
057
060
061
062
063
064
065
066
067
070
021
072
073

074
075

ADRNIT: BINARY
CNTNIT:

177777

SIXBIT:
B’ ARY:

;SW<2:0>=0 BINARY COUNT PATTERN

377
s SIZE=256.
PHRASE
JSW<2:0>=1 "THE QUICK SILVER GRAY fFOX..."'
70.
.S12E=70.
SIXBIT
;SW<2:0>=2 040 THRU 137
70.
;SIZE=70.
END
1
END+400
1
END+1000
]
END+1400
1
END+2000
.ASCII
<15><12><377><377><377><3/77>
;CR-LF, FILLERS
.BYTE
40
BYTE
41
BYTE
42

BYTE
BYTE
BYTE
BYTE

BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYIE
RYTE
BYTE
BYTE
BYTE

43
44
45
46

47
50
51
52
53
54
55
56
57
60
6]
62
63
64
65
66
67
70
71
72
73
74
75

SEQ 0022

;POP STACK INTO R?
;POP STACK INTO R1

"ttfit't'tttittttt'ttttl't'ittttfitt'Qfit...t.t'fii.ttt'tt.ttt'.t".."i'tt'

1100

1102

J
21-JUN-78
14:01
RECEIVER ISR
MOV
MOV

10%

1103

30A(1052)

Joeef

NwA70l0\nRv1eN0|1602e4A;0N31017|N1q.ul|aN.c1Om|e<1JM.OW./nU|1O|4fi|c4OtJI41:5r27072Imnv21.2“N33e-30U3M33OI3N3O44N“U4M“4O“N4O—5“5T5N5U5M55O65NO6N“66“6M%
NONe—N(T
8MIl=O—O{—Lr=IO—%M—l—OUo{M—9l—=Uarl=—O9N—OPIoetIlO~—Mee—PIl%MQr—TODeTNN9—l—eeN\ON%—tIlOPNIoA9T=NeOMl0OFo\A—MlWTNNa”MeT0lA%o2OITel~O0oT—NelTMFeoIOT—leN0TNSQTeoOOlOI=PTNoNlF6OoONU=lN6o2—oMlSToeTNaMMA2“dlTePOI=6P—dlIeAo~dO&lM1leMONsoT6lMIlMoE&oNlNoMOo6llNo70oeOlIPlOManodOPl—l7ONeeoAoNleOTleONlNA7eeCaPIsNl—lUIPeMoMe7NlelJIosONl—elZOoI27MIlOClTIoMOaN”eOedlTClMOasU%lTOMlMNa8QeeMeeOlNgIMarl—el—Me8NoArlNNl—a&IneodeNllMe8OYOelooTIJol%MelTaIJNal8n—dWOlaalNeOelOooIOlleoMNNcaln—elFNOoeOWTNlle—aIeNlTeONoOtMINlIIOesMTlN0JOoMNTOMlIIQaNTQONlOMRaOITNlNNO MsOOeTNlA~TN TYet
CZDJBFO D11 EXER & ONLNE
CZDJBF .P11
21-JUN-78 13:56
076

MACY11
30A(1052)
DATA TABLES

21-JUN-78
K
14:01

2
PAGE 24

SEQ 0023

CZOJBFC DJ11 EXER & ONLNE

czbJsrF .P11
1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223

1224
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
12640
1241
1242
1243
1244
1245
12646
1247
12648
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260

011422
011423
011424
011425
011426
011427
011430
011431
011432
011433
011434
011435
011436
011437
011440
011441
011442
011443
011444

011445
011446
011447
011450
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
011504
011505
011506
011507
011510
01151

21-JUN-78 13:56
166
167
170
171
172
173
174
175
176
177
200
201
202
203
204
205
206
207
210

211
212
213
214
215
216
217
220
221
222
223
224
225
226
227
230
231
232
233
234
235
236
237
240
241
42
243
244
245
246
247
250
251
252
253
25
255

MACY11

30A(1052)

21-JUN-78

DATA TABLES
.BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
.BYTE
BYTE
BYTE
BYTE
.BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE

166
167
170
171
172
173
174
175
176
177
200
201
202
203
204
205
206
207
210

BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
.BYTE

211
212
213
214
215
216
217

BYTE
8YTE
BYTE
BYTE
BYTE
BYTE

22
221
222
223
224
225

BYTE

BYTE
BYTE
BYTE

BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
.BYTE
BYTE
BYTE

BYTE
BYTE
BYTE
BYTE
BYTE
.BYTE
BYTE
LRYTE
BYTE
BYTE
BYTE

226

227
230
231
232
233
234
235
236
237
240
241
242
243
244
245
24y
247
50
251
252
253
20/
255

14:01

PAGE 25

SEQ 0024

CZDJBFO DJ11 EXER & ONLNE
CZ0JBF .P11
21-JUN-78 13:56
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276

011512
011513
011514
011515
011516
011517
011520
011521
011522
011523
011524
011525
011526
011527
011530

011531

1277
1278
1279
1280
1281
1282
1283

011532
011533
011534
011535
011536
011537
011540

1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301

011546
011547
011550
011551
011552
011553
011554
011555
011556
011557
011560
011561
011562

1284
1285
1286
1287
1288

1302
1303
1304
1305
1306
1307
1308
1309
1310
1311
1312
1313
1314
1315
13176

011541
011542
011543
011544
011545

011563
011564
011565
011566
011567
011570
011571
011572
011573
011574
011575
011576
011577
011600
01160?

MACY11

30A(1052)

21-JUN-78
DATA TABLES

256
257
260
261
262
263
264
265
266
267
270
271
272
273
274

BYTE
BYTE
.BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BrTE

256
257
260
26]
262
263
264
265
266
267
270
271
272
273
274

276
277
300
301
302
303
304

BYTE
BYTE
BYTE
BYTE
BYTE
.BYTE
BYTE

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
334
335
33
337
340
341
342
343
3/
345

275

305
306
307
310
in
312
313
314
315
316
317
320
321
322
323
324
325
326
327
330
33
332
333
334
335
336
337
340
341
342
343
344
345

BYTE

BYTE
BYTE
.BYTE
BYTE
BYTE

BYTE
RYTE
BYTE
BYTE
BYTE
BYTE
.BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE

BYTE
.BYTE
BYTE
BYTE
.BYTE
BYTE
.BYTE
BYTE
.BYTE
BYTE
BYTE
RYTE
BYTE
BYTE
BYTE

275

M2
14:01
PAGE 26

SEQ 0025

CZDJBFO DJ11 EXER & ONLNE
CZ0JBF .P11
21-JUN-78 13:56
1317
1318
1319
1320
1321
1322
1323
1326
1325
1326
1327
1328
1329
1330
1331
1332
1333

1334

1335
1336
1337
1338
1339
1340
1341
1342
1343
1344
1345
1346
1347
1348
1349
1350
1351
1352
1353
1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
1371
1372

011602
011603
011604
011605
011606
011607
011610
01161
011612
011613
011614
011615
011616
011617
011620
011621
011622
011623
011624
011625
011626
011627
011630
011631
011632
011633
011634
011635
011636
011637
011640
011641
011642
011643
011644
011645

011646
011647
011650
011651

011652
011653
011654
011655
011656
011657

011660
011661
011662
011663
011664
011665
011666
011667
011670
01167

MACY11

30A(1052)

21-JUN-78
DATA TABLES

346
347
350
351
352
353
354
355
356
357
360
361
362
363
364
365
366
367
370
3N
372
373
374
375
376
377
000
001
002
603
004
005

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

012
013
014
015

BYTE
BYTE
BYTE
BYTE

006
007
010
01

016
017
020
021
022
023

024
025
026
027
030
031
032
033
03¢
035

BYTE
BYTE
BYTE
BYTE

BYTE
BYTE
BYTE
BYTE
BYTE
BYTE

BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
RYTE
BYTE
BYTE
BYTE

346
347
350
351
352
353
354
355
356
357
360
361
362
363
364
365
366

367

370
371
372
373
374
375
376
377
O
1
2
3
4
S
6
7
10
11
12
13
14
15
16
17
20
21
22
23
24
25
26
27
30
N
32
33
3
35

N
14:01

2
PAGE 27

SEQ 0026

CZDJBFO DJ11 EXER & ONLNE
CZ0./8F .P1
21=-JUN-78 13:56
1373

011672

011673

037

1376
1377
1378
1379
1380
1381
1382
1383
1384
1385
1386
1387
1388

011674
011702
011710
011716
011724
011732
011740
011746
011754
011762
011770
011776

005015
044124
041511
053114
040522
020130
042105
020122
026066
030462
040514
043517
012004

}g;g

MACY11

30A(1052)

036

21-JuN-78
DATA TABLES
BYTE

177777
020105
020113
051105
020131
052512
047440
026071
032065
027060
054532
020523

177777
052521
044523
043440
047506
050115
042526
033470
026063
020060
042040
000

PHRASE:

.EVEN

14:01

PAGE 28

SEQ 0027

BYTE

.ASCII
LASCIZ

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

CZDJUBFO DJ11 EXER & ONLNE
CZDJBF
.P11
21-JUN-78 13:56
1389
1390
1391
1392
1393
1394
1395
1396
1397
1398
1399
1400
14601

AR R AR A AN AR

AR AN AR A AR R AN RRAANRNRRA R R RN

;PROGRAM 2:

ON-LINE MULTI-ECHO EXERCISER

;

LINE.

;

TRANSMITS

THE

LAST

AR R AR

SEQ 0028

RN,

CHARACTER RECEIVED ON ITS RESPECTIVE

_A CARRIAGE RETURN AND LINE FEED ARE INSERTED

EVERY 72 CHARACTERS.

t*t*i*tttt*ttt*t*ttt*tttt*tttt*ittttt*tttfitttt*tkittttfit*tttttttttttttt

000005

012706
052737
012701
012702
005021
005302
001375
012702
005201

001200
000340
001312
002000

PROG2:
177776

2%:

105021

;CLEAR OUT THE WORLD
cJRESET THE STACK POINTER

MOV
MOV
CLR

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

;FIRST TABLE POINTER
JLENGTH OF TABLES (WORDS)
;CLEAR THE TABLE

MOV

#400,R2

JLENGTH OF MASK/COUNT

CLRB
DEC
BNE

(R1)+
R2
2%

;CLEAR COUNT

BIS
1%:

000400

RESET
MOV

005302
001374

DEC
BNE
INC

K#STACK,

#4340,

a#PS

R2
1%
R1

;PROCESSOR TO LEVEL 7

; SKIP MASK

TABLE

;ROUTINE TO INITIALIZE ALL DJ11'S AND THEIR ISR'S:
;StT UP ALL INTERRUPT VECTORS
;SET UP DEVICE ADDRESSES IN LINKER ROUTINES

sSET CSR'S EVERYTHING ENABLED
JSET TCR'S, ALL LINES ENABLED
P2INIT:

001266
001270
012242

4
NESENNT

b
b

b o
b

——d
e
)

d cmd
b

b
e
—

— ol

rorONLALNLNLNOND

QOOOOOOO

001272

012074

MOV
MOV
MOV

VECADR, RZ
#RISRO-R3
R3,
(R2)+

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

(R3)+,

(R3)+

:ADD 4 TO R3

(R3)+

-ADDRFSS OF RBUF

(RQ)+

MOV

R1.

(R3)

ADD

4?2

MOV

R3,

(R2)+

(R3)+.

(R3)+

MOV

cMP

MOV
MOV

050501

RCV' VL,

TST

001274

DEVADR,

MOV

cMP

000002

012721

CLR

MOV

(R3)+

XMTLVL,

R,
#50501,

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

:ADDRESS OF

(SR

:SET UP TRANSMITTER INTERUPT VECTOR
;ADDRESS OF CSR
:SET UP (SR

‘BITO = RECEIVER ENABLE
*BIT6 = RECEIVER INTERUPT ENABLE
‘BIT8 = TRANSMITTER SCAN ENABLE

005721
006300
016011
0045
012737

2304
N

W —

800

711
406

—

SyNMNNJ
OONNHOON
KOO

VWA

b o
ed
D
b

b
=D
D —d
b
D
b
—d

AN1AN 1N N1 N1 N 1,8 1,N)

“BIT12 = STATUS ENABLE
oleloelelelelolol

D
el
)
—t el wd ed e

AR AR A AR T AR

;

Nele R NTe SV, F NV, §)

d
d

T
md o

T
P
Y
P

d
b
md

30A(1052)
21-JUN-78
14:01
PAGE 29
PROGZ2:
ON-LINE EXERCISER (TRANSMIT LAST CHARACTER RECEIVED)
SRR R

012046
012050

—

MACY11

ASL
MOV

001220

000001

001260

MOV

RC
SVSWO(R0O),
(R')
RO
P2
MARK

SUNIT # 2 2
*SET TCR BITS FOR SELECTED LINES
*RESET UNIT COUNTER
-SET UP MARKER

BIT
BEQ

MRk, T
5%

*CHECK FOR LINE

ASR

001260
48 :

‘BIT14 = TRANSMITTER INTERUPT ENABLE

(R1)+

MOV

(R$)+,

(R1)

*SET UP OFFSET TO TABLES
SELECTED

Jo+eF

CZDJBFO DJ11 EXER & ONLNE
CZDJBF .P11
21-JUN-78 13:56
1445
1446
1647

012764
012764
005724
006337
103363

022121
005200
020037
001326
042737

016641
000045

MACY11

001312
004312

001260

5%:

012222
012226
012230
012232
012234
012236
012240

012700
000241
005540
001376
005700
001374
000770

MARK
4%
(RDO+,
RO
RO,
1%
#1640,

177776
MALAE A

020000

RS AL

;LOWER PROCESSOR PRIORITY

sttt

slilsd

s ssssssssssssssesssyy

AN RN R AR RN A AN RN TN

FORP2:

MOV
CLC
ADC
BNE
TST
8NE
BR

R2SRO:

AARRARRRANAAARRA AR ARAARANNAARN AR NN

#20000,RO

;TOP OF 4K BANK OF MEMORY

-(RO)
1%
RO
1$
FORP?

;FAST READ/WRITE TO MEMORY
JRAPID REPEAT
;CHECK FOR LOC O
;BRANCH IF MORE MEMORY
;LOOP FOR EVER!

R AR AR RN AR AR A AR AR

AR AR A

AR NT

AR AR AT

AR AN AR

INTERRUPT SERVICE ROUTINES

AR R A AR R AR R AR R R AR R AR R AR AN AN AR A AN RN AANNANRRR

R2SR1:
X2SR1:

RO,P2X]ISR

R2SR2:

RO,P2RISR
<160012+<2*10>>,<2*40>
RO.P2XISR

X2SRO:

R2SR3:

X2SR3:
R2SR4
:

X2SR4:

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

<160020+<1¢10>>,<1240>

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

RO.P2RISR
<160012+<3210>>,
340>
RO.,P2X1SR
<160020+<3+10>>,<3%40>
RO.P2R]ISR
<1600124<4x10>> ,<4%40>
RO, P2X]ISR
<160020+<4*10>>,<4*40>

R2SR5:

RO,P2R]ISR

X2SRS:

RO,P2X]SR
<160020+<5+10>>,<5%40>
RO.P2RISR
<160012+<6+%10>>,<6+40>

R2SR6:

X2SR6:
R2SR7:

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

RO,P2X]SR
<*40020+<6210>>,<6%40>
RO,P2RISR

RN RANRNAN RN AN AR AN RANNANANARRNAANNRANR

RO,P2RISR
<160012+<0+10>>,<0*40>
RO ,P2X]1SR
<160020+<0«10>>,<0*40>
RO.P2RISR

X2SR2:

004037

Q#PS

Rttt

;PROGZ LINKERS TO DJ11

012406
012412
012416
012422

UNITS

SRR AR

SRR

013034
000000

;ADD 4

FOREGROUND PROGRAM TO READ/WRITE MEMORY

SRR

012242
012246

(R1)+

;PROGZ

1%:

SEQ 0029

#MSGP2, XMTTAB(4) ;SET UP XMTR TABLE
#45,
XMTCNT (&) ;SET UP COUNT
(R4)+
JINC OFFSET TO NEXT LINE

MOV
MOV
TST
ASL
BCC

001264
000140

30A(10S52)
21-JUN-78 14:01
PAGE 30
PROGZ:
ON-LINE EXERCISER (TRANSMIT LAST CHARACTER RECEIVED)

CZDJBFO DJ11 EXER & ONLNE
CZDJBF .P1
21-JUN-78 13:56
012426
012432

160102

004

MACY11

000340

30A(1052)

X2SR7:

NININPURINIPNIAIMNIN)
D —
b
b
D

D
b
b
D ed
b ed

vivivivivivaiuviaunu

d
d
b
b ed
d
d
b
b
ed o
) e
e
e
d
D

R2SR11:

¥2SR11:

LWORD
JSR
LMWORD
JSR
LWORD
JSR
.WORD
JSR
LWORD
JSR
LWORD

E
14:01

3
PAGE 31

SEQ 0030

<160012+4<7+10>>,<7%40>
RO, P2X]1SR
<1600204<7¢10>> ,<7%40>
RO.P2RISR
<160012+4<10+10>>,<10%40>
RO ,P2XISR
<160020+<10%10>>,<10%40>
RO,P2RISR
<160012+4<11210>>,<11%40>
RO,P2XISR
<160020+4<11+10>>.<11%40>
RO,P2RISR

<160012+4<12+10>>,<12+40>
RO,P2XISR
<160020+4<12%10>>,<12640>
RO.P2RISR
<160012+4<13+10>>,<13%40>
RO,P2XISR
<160020+<13%10>>,<13+40>
RO,P2R]ISR
<160012+<14%10>>,<14%40>
RO.P2X]ISR
<160020+<14+10>>,<14%40>
RO.P2RISR
<160012+4<15=10>>,<15+40>
RO,P2XISR
<160020+<15¢«10>>,<15+40>
RO,P2R]SR
<160012+4<16*10>>,<16%40>
RO,P2XISR
<160020+<16*10>>,<16*40>
RO,P2RISR
<160012+<17x10>>,<17%40>
RO ,PZ2X]ISR
<160020+<17x10>>,<17%40>

"tt!tt'ttiiittttttfittfit"*tttitittfit'!tlfiiiitfitt'!tittttttt'ttittt'litti

:PROG2

d e

ISR LINKERS

R2SR12: JSR
LWORD
X2SR12: JSR
LMWORD
R2SR13: JSR
JWORD
X2SR13: JSR
.WORD
R2SR14: JSR
.WORD
X2SR14: JSR
LWORD
R2SR15: JSR
WORD
X2SR15: JSR
WORD
R2SR16: JSR
LWORD
X2SR16: JSR
.WORD
R2SR17: JSR
WORD
X2SR17: JSR
.WORD

D md

X2SR10:

NN NN NN

R2SR10:

21-JUN-78

TRANSMITTER

INTERRUPT

SERVICE

ROUTINE

VW=
OV
NN W=

o o
AP oW S o
Pl o R P
N UAAL AL Y

b md —d ed md

) e

)

"itttttfitfitttfiititfittfiittt*tt'ttittfiiifittt!ttfitttttttt. L ARRSASRSRRARER

P2X]ISR:
MOV

S
00064

16102

1%:

004312

7261
5362

001312
004312

?762

005262

005313

001312

TST

BPL

000007

?762

MOV
MOV

000006

R1,=(6)

JPUSH R1

(R1)

;CHECK

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

ON STACK

JPUSH R2 ON STACK
FOR

TRANS READY

MOVR
AS_
ADD
TSTB
BEQ
MOVB
DECB

XMTCNT (2)
;T1ST FOR ZERO
2%
JGET OUT
IXMTTAB(2) ,6(R1) ;SEND A CHARA(CTER
XMTCNT (2?
s COUNT CHARACTERS

BNE
INC

12
XMTTAB(2)

TSTB

7(R12 ,R2
R2
(RU) ,R2

(NTTAB(2)

sGET LINE NO.

;CHECK FOR MESSAGE

OR DATA

JBRANCH [F DATA
JUPDATE TABLE FOINTER

CZDJBFO DJ11 EXER & ONLNE
CZDJBF PN
21-JUN-78 13:56
1557

1558

1559
1560
1561

012716
012720
012724
012726
012734
012740
012746
012752
012754
012756
012760

000754%
105162
001430
012762
060262
112762
105762

001336

013032

005313
002312
001312
000110
002312

30A(1052)

2%:
001312

21-JUN=78

TRANSMITTER

cOMB

BEQ
MOV

ISR

3
PAGE 32

CNTTAB(2)
3$

001260

5%:

001260

000004

016434
000002

001312
Co4312

SEQ 0031

. CHANGE FLAG

‘BRANCH [F WAS DATA

#RCVTAB,XMTTAB(2) ;SET UP POINTER TO RECEIVER TABLE

XMTTAB(2) ;ADD OFFSET
XMTCNT(2) ;COUNT 72. CHARACTERS TO THE LINE
RCVTAB(2)
;CHECK FOR A BREAK
18
JBRANCH IF REAL DATA
(ROY,
R2
JRECOVER LINE NUMBER

R2
MARK

001260

;SET UP MARKER

ROL
4(R1)

3%:
4%:

012602
012601
012600
000002

F
14:01

n7e..

004312

161002

006202
005037

012772
012774
012776
013004
013006
013014

013022
013024
013024
013026
013030

MACY11

MOV

MOvVB

MOV

MOV
MOV
RT1

;MOVE MARKER
;COUNT LINES
JBRANCH IF MORE
;CLEAR T(CR BIT
. CONTINUE

#RETURN, XMTTAB(2) :TYPE CARRIAGE RETURN, LINE FEED
1;,

XMTCNT(2)

(6)+,R2
(6)+,R]

(6)+,R0O

;COUNTER OF

2 CHARA(TERS

JPOP STACK INTO RZ
POP STACK INTO R1

;POP STACK INTO RO

"t*Qt!'tttt'l‘tttttl't**‘ifi'Qt't'fifittittttt*ttflfitti'ittt'ttttttttttttt'ttfi

:PROGZ

RECEIVER INTERRUPT SERVICE ROUTINE

"tttttlttttitttt‘fifit'tfi'i"t‘it!t‘ttitt't*ttttfiitttilttttittfitttttttttt‘

013034
013034
013036
013040
013042
013044
013046
C13050

013054

013056

P2RISR:

010146
010246

010346
012001
011102
100053

032702
001402

1%:

070G0C

MOV
MOV
MOV
MOV
MOV
B8PL

BIT
BEQ

104002

2
LT

R1,-(6)
RZ,=(6)
R3,-(6)

(RO)+,R1

§R1),R2

#70000,R2

JPUSH R1

ON STA(K

JPUSH R2 ON STA(K
;PUSH R3 ON STA(K

;GET RBUF ADDRESS
JREAD

THE

DATA

JBRANCH IF NO CHAR PRESENT

s CHECK FOR ERRORS
JBRANCH IF OK
JRECEIVER ERROR

;R1=RBUF

ADDRESS

JR2=CONTENTS OF RBUF
;BIT12=PARITY ERROR
;BIT13=FRAMING ERROR

000771

;BIT14=UART OVERRUN

;FGRGET THE DATA

010203

°%:

005312

MOV

;DUP THE RBUF
JCLEAR THE DATA
JLINE 2 TO LOW BYTE

CLRB
SWAB

ASLB
ADD

CIRLC]
BEQ
HLT+2

(RO) ,R3

MASK
(37 R
3%

JLINE # « 2, ALSO (LR (HAR PRESENT
;JADD OFFSET
;JCHECK CHARACTER LENGTH
JBRANCH [F 0K
JCHARACTER LENGTH ERROR

;R1-RBUF

ADDRESS

CZDJBFO DJ11 EXER & ONLNE
CZDJBF .P11
21-JUN-78 13:56
1613
1614
1615
1616
1617
1618
1619
1620
1621
1622
1623
1624
1625
1626
1627
1628
1629

1630
1631
1632
1633
1634
1635
1636
1637

013104
013110
013112
013116
013120
013122
013126
013130
013134
013136
013140
013146
013150
013154
013160
013166
013174
013176

013176
013200
013202
013204
013206

105763

001017

MACY11

002312

112763

000723
012603
012602
012601
012600
000002

RECEIVER
TSTB

ISR

;RECOVER LINE NUMBER

000002

RCVTAB(3) ;SAVE THE DATA

;SET UP MARKER

MARK

000002

SEQ 0032

égé).
MARK

002312
005313
016434

3
PAGE 33
;R2=CONTENTS OF RBUF (DATA)
;CHECK FOR BREAK
:BRANCA [F REAL DATA

001260
4%:

G
14:01

RCVTAB(3)
5%

0C1260

012763

21-JUN-78

002312

001260

110263
105163

30A(1052)

;UPDATE MARKER

R3
X3
MARK,

2(R1)

R2,

RCVTAB(3)

CNTTAB(3)

*COUNT LINES
*BRANCH IF MORE
-SET TCR BIT

*CONT INUE

;SAVE

THE DATA

-SET MESSAGE FLAG

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

0013°2
004312

f%'

7%:

(6)+.R3

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

RT]

(6)+,R0O

XMTCNT(3)

:MESSAGE LENGTH

;POP STACK

INTO R3

*POP STACK

INTO R1

:POP STACK INTO R2

;POP STACK INTO RO

CZOJBFO DJ11 EXER & ONLNE
.P1N
CZ0JBF
21-JUN-78 13:56

MACY11

1638
1633

1640
1641
1642
1643
1646
1645
1646
1647
1648
1649
1650
1651
1652
1653
1654
1655
1656
1657
1658

1665
1666

1667
1668
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678

1679
1680
1681
1682
1683
1684
1685

1686
1687
1688
1689
1690
1691

1692

1693

PAGE 34

SEQ 0033

ltttttttttt'tttttitt'tQ"tt"fi"'tittttttfifi*'fifittttttttttittttt'tttfittt

:PROGRAM 3:

ECHO EXERCISER

ttt.Qtttttti*ttfi.'tttt"'ttttttttttttttttttttt'*tt'ttttfittttttQ'tt'tt't

013210
013212
013216
013224

013230
013234
013236
013240
013242
013246
013250
013252
013254
013256

000005
012706
052737
012701
012702
005021
005302
001375
012702
005201

001200
000340
001312
002000

PROG3:
177776
19%:

000460

°%:

105021

0053G¢2
001374

012705

016770

RESET
MOV
BIS
MOV
MOV
(LR
DF(
BNE
MOV
INC
CLRB
DEC
BNE
MOV

MMTTAB,R1

:CLEAR OQUT THE WORLD
JRESET THE STACK POINTER
;PROCESSOR TO LEVEL 7
sFIRST TABLE POINTER
JLENGTH CF TABLES (WORDS)
:CLEAR THE TABLE

1%
#400,R2
R1
(R1)+
R

LENGTH OF MASK/COUNT TARLE
JSKIP MASK
;CLEAR COUNT

#STACK,

#3640,

Q#PS

#2000,
(R1)+
R2

NEND,

JSET UP BUFFER POINTER

JROUTINE TO INITIALIZE ALL DJ11°'S AND THEIR [SR'S:
JSET UP ALL INTERRUPT VECTORS
;SET UP DEVICE ADDRESSES IN LINKER ROUTINES
JSET CSR'S EVERYTHING ENABLED
;SET TCR'S, ALL LINES ENABLED

1659
1660
1661
1662

1663
1664

30A(1052)
14:01
21-JUN-78
PROG3:
ECHO EXERCISER

013262

013264
013270

013274
013300
013302
013306
013310
013312
013316
013320
(13322
013326
013330
013332

005000
013701
013702

012703

PIINIT:

00126¢
001270
013562

1%:

001272
000002

CLR
MOv
MOV
MOV
MOV
MOV
(MP
MOV

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

;ADDRESS OF

MOV
MOV
TMMP
MOV
MOV

(R2)+
(R2)+

JSET

ACD
TST

001274

050400

¥4

(R3)+

(R3)+
(R3)+

#50400, (R1)+

JSET UP POINTER TO L INKERS
JSET UP RECEIVER INTERUPT VECTOR
JADD 4 TO R3

(SR

;ADDRESS OF RBUF

P TRANSMITTER INTERUPT VECTOR

;ADDRESS OF

(SR

sSET UP (SR, TRANSMITTER ONLY
;BIT8 = TRANSMITTER SCAN ENABLE

;BIT12 = STATUS ENABLE
013336
013340
013342
013346

013350
013356
013360
013362
013364
013370

013372

013376

TST
ASL

001220

000001

0C1260

001312
002312

001260

’%:

MOV
ASR
MOV
MOV
MOV
MOv
BIT
BtQ
MOv
MOV

;BIT14 = TRANSMITTER INTERUPT ENARLE

(R1)+
RC

)
, (R1)
SVSWO(RO

(R$)+,

JUNIT & = 2

JSET TCR BITS FOR SELECTED L INES
JRESET UNIT

COUNTER

;SET UP MARKER
JSET UD OFFSET TO TABLES

(RY)

PUSH R3 ON STA(K
JCHECK FOR LINE SELECTED

MARK

K., XMTTAB(&)
RS, R(VTAB(&)

sPUSH R2

ON STACK

sSET UP HEADER ME SSAGE
JSET UP REFEIVER TABLE

Jo++F

(Z0JBFO DU11
CZDJBF .PIN
1696
1695
1696

EXER & ONLNE
21-JUN-78 13:56

013402
013406
013412

013702
012703
112325

1697
1698
1699
1700
1701

013414
013416
013420
013422
013424

001404
005302
001374
000403
105025

1703
1706
1705
1706
1707
1708
1709
1710
1711

013430
013432
013436
013440
013444
013446
01345C
013452
013454

001375
010564
005724
006337
103347
012603
012602
022121
005200

1702

1712
1713

1;}2

013426

013456
013462

0134664

MACY11

001262
0146707

020037
001306

042737

MOV
MOV
MOVB

A ¥

005302

5%:

003312

001264

BUFSIZ, R?
#MMSGP3, R3
(R3)+,
(RS)+

5%
RZ
3%
63
(RS5) +

BNE
MOV
TST
ASL
BC(
MOv
MOV
(MP
INC

43
R5,MAXTAB(4)
(R4 )+
MARK
23
(6)+,R3
(6)+,R2
(R1)+,
(R1)+
RC

C
BNE

17777¢

RC,
18

BIC

8140,

1717

:PROG3

1719

1720
1721

013472

012701

013476

012702

013504

001376

1722

013502

1726
1725
1726

013506
013512
013514

062701
005302
001372

1728

013522

013701

1723

1727
1729
1730

1731

1732

1733

173¢
1735

1736
1737

1738
1739
17640

;;2;

013516

013526
013532

013536

005711

001264

052711

000101

062701

005300

001372
012700

013552
013554
013556

001376
005700
001374

013560

000241
005540

FORPY:

1¢:

00126¢

i 3

A A N

AN N

#400,R2

(R1)

2 ,R1
R2
1%

MOV

UNITS,

8IS

2101,

ADD

210,

DEC

BNE
MOy

L
AD(

(R1)

2%
#20000,R0

-(R0O)

MEMX 3

LINKERS TQ DJ11

014312

RISRZ:

JSR

RO,P3K]SR

0'4'¢¢

x3SkG:

JSK

&0,P3X]5R

1747

1749

01356¢

013566
013572

Q06037
160G°'2

004037

000000

INTO R3
INTO RZ2

;LOWER PROCESSOR PRIOR]TY
s s

THEN EXERCISE MEMORY.

A N A N R P AN R AN A NN R R AN AR A AN R RN AN R R AN AR

TR RN

NOT

;GO TO NEXT LINE ENTRY
JCOUNT LINES
JBRANCH [F MORE LINES

JSET UP UNIT COUNTER

JAND DEVICE ADDRESS POINTER

JSET RECEIVER ENABLES OF
;BITO = RECEIYER ENABLE

(SR

;BITé = RCV INTERRUPT ENABLE
JUPDATE

TO NEXT DU

JCOUNT DJ11°S
;TOP OF

4K BANK OF

MEMORY

TO MEMORY

INTERRUPT SERVICE ROUTINES

LWORD

.LOOP FOR EVER

:PROG3

1748

MR Add

JRAPID REPEAT
JCHECK FOR LOC O
JBRANCH |F MORE MEMORY

L
L

JPOP STACK
,POP STACK
JADD 4

;FAST READ/WR'TE

'$
RC
1%

1744

JCOUNT BUFFER SIZE
JBRAN(CH IF MORE
JBRANCH IF DONE
;CLEAR REST OF BUFFER
;COUNT BUFFER SIZE
JBRANCH |F MORE
;SETUP BFR POINTER TABLE.
cINC OFFSET TO NEXT LINE

JBRANCH [F

DEVADR,

B8R

1745

JBRANCH IF END OF MESSAGE

;CHECK FOR XMTR TARLE (LR

1743

1746

)

N AN

MOV

BNE
ST
BNE

000770

JSET UP COUNTER
JSET UP MESSAGE POINTER
JMOVE MESSAGE INTO BUFFER

AXMTTAR
R

MOV

MEMX3:

MOV

ADD
DE(
BNE

000010
02000¢

R N

BNE

’%:

SEQ 0034

FOREGROUND PROGRAM TO START REFEIVERS,

TST

013700

(13540
(01352

013546
013550

001312

000400

UNITS

1216

1718

PAGE

BEQ
DEC(
BNE
BR
(LRB

DEC

001260

000140

30A(1052)
21-JUN-78
14:01
PROG3:
ECHO EXERCISER

<4001 2¢<(Ce105>,<0%40>

I
R

(ZDJBFO DJ11
C(ZDJBF .PIN
1750
1751
1752
1753
1754
1755
1756
1757
1758
1759

EXER & ONLNE

013576

1760

1761
1762
1763

21-JUN-78 13:56
000000
0146312
200040
0146162
000040
014312
000100
016162
000100
016312
000140
0146162

MACY11

30A(1052)

R3SR1:

X3SR1:
R3SR?:

X3SR2:
R3SR3:

X3SR3:
R3SR4:

1764
1765
1766

X 3SR4
:

1767

R3SRS:

1768
1769
1770

X3SRS:

1771

R3SR6:

1772
1773
1774
1775
1776
1777

X35R6:
R3SR7:

X3SR7:
R3ISR1G:
X3SR10:
R3ISR11:

<160012+<1210>>,<1%40>

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

RO,P3XISR
<160020+<3+10>>, <3x40>
RO,P3RISR

<160012+<4+10>>,<4*40>
RO,P3XISR
<160020+¢<4*10>>,<4%40>
RO,P3R]ISR
<160012+4<5+10>>,<5+40>
RO,P3X]ISR
<160020¢<5+10>>,<5+40>
RO,P3RISR
<160012+<6%10>>,<6+40>
RO,.P3X]ISR
<160020+<6+10>>, <6%40>
RO,P3R]ISR
<160012+<7+10>>, <7*40>
RO,P3XISR
<160020+<7=10>>, <7*60>
RO.P3RISR

<160012+<10+10>> .<10%40>

RO.P3X]ISR
<160020+<10+10>>, <*0*60>
RO,P3R]ISR
<160012+<11«10>>, <11+40>

X3SR1S:
R3SR16:

RO,.P3X]SR
<160020+<15+1(0>>, <15+40>
RO,.P3R]SR

X3SR16:

RO,P3XISR

R3SR14:
a4

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

RO,P3R]SR

XISR13:

PAGE 36

R3ISR1S:

R3SR13:

X3SR14:

X3SR12:

P ur G

. WORD
JSR
. WORD
JSR
. WORD
JSR
. WORD
JSR
. WORD
JSR
.WORD
JSR
. WORD
JSR
. WORD
vSR
.WORD
JSR

14:01

RO,P3X]SR
<160020+<11210>>, <11+40>
RO,P3R]SR
<160012+<12+10>>, <12+40>
RO,P3X]SR
<160020+<12+10>>, <12+40>
RO,P3RISR
<160012+<13+10>>, <13«40>
RO,P3X]SR
<160020+<13+10>>, <13+40>
RC,P3R]SR
<160012+<14+10>>, <" 440>
RO,P3x]SR

R3SR12:

olelelelolelele]

g RORERYFYL IRV

X3SR11:

21-JUN-78
ISR L INKERS

<1000204<74+10>>, <14=460>

<160012+<15+10>>, <15240>

<:140012+<16+10>> ,<16240>

SEQ 0035

CZDJBFO DJ11
CZDJBF .P1
1806
1807
1808
1809

}g}?

EXER & ONLNE
21-JUN-78 13:56

014136
014142
014146
014152

014156

160200
004037
160202
004037

160210

MACY11

000700
014312
300740
Q14162

30A(1052)

:PROG3
N

014162
014162
014164
014166
014170
014172
0141746
014200
014202
014204
014212
014216

010146
010246
012001
005711
100043
116102
006302
061002
117261
105072
005262

1831
1832
1833
1834
1835
1836
1837

014240
014244
014246
014250
014254
014256
014260

105772
001351
010346
005062
161002
006202
005003

1828
1829
1830

014222
014230
014232

026262
001003
163762

1838

014262

000261

1840
1841
1842

014266
014270
014272

005302
100375
040361

014306

012602
012601
012600

1839

1843
1844
1845
1846
1847
1848

}ggg

014264

(014276
014300
014302
014302
014304

014310

003312

001312

001262
001312

001312

5%:
’$:

3%:
000004

4%:

000002

1851
1852

1854
1855
1856
1857
1858
1859

014312
014312
04314
014316
014320

010146
019246
010346
010446

1861

014324

011102

014322

012001

AN AN

RO,P3XISR

A AR NN R AR AR RO AN AR R AR AN AR A A A AN AR AN AR A AN NN RN

TRANSMITTER INTERRUPT SERVICE ROUTINE

MOV
MOV
MOV
TST
8PL
MOovB
ASL
ADD
MOVB
CLRB
iNC

P3RISR:

AN AN RAARI RN NS

AN RAN N AN

MAXTAB(2) ,XMTTAB(2) ;CHECK FOR END OF BUFFER
5%
;BRANCH IF NOT
BUFSIZ,XMTTAB(2)
JRESET BUFFER POINTER

ROL

DEC
BPL
BIC
MOV
B8R

R2
33
R3,4(R1)

cCLEAR

MOV
MOV
MOV

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

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

MTTAB(2)
1%
R3,-(SP)
XMTTAB(2)
(RO) ,R2
R
R3

(SP)+,R3
1%

RN A A AN R R

Jitef

TCR_BIT FOR LINE

;RESTORE R3S

R R R R AR RN A RN A AN R

AR AR R AN NN AN R R R NARARN RN

A N RN AN AR AN NI AN

R1,-(6)
RZ.=(6)
R3,-(6)
R&4, =(6)

;PUSH
;PUSH
;PUSH
;PUSH

R1
R2
R3
R4

MOV

(RV) ,R?

JREAD

THE DATA

PEy e R

Jovef

;CLEAR TABLE POINTER

MOV
MOv
MOV
MOv

MOV

;CHECK NEXT CHARACTER
;BRANCH IF MORE DATA

AR AN AR R AR AN A T AN R AN R A AR AN R A A NN R AN N
RECEIVER INTERRUPT SERVICE ROUTINE
A AN RN

R1,-(6)
;PUSH R1 ON STACK
R2,=(6)
;PUSH R2 ON STACK
(RO)+,R1
(R1)
sCHECK FOR TRANS READY
43
?(R1) ,R2
;GET LINE NC.
R
(RO) ,R2
IXMTTAB(2)
,6(R1) ;SEND A CHARACTER
IXMTTAB(2)
;CLR TABLE AFTER USE
XMTTAB(2)
;UPDATE TABLE POINTER

(MP
BNE
SuB
TSTR
BNE
MOV
CLR
SUB
ASR
CLR
SEC

RTI

PN
R
;PROG3

1853

1860

000007

000006

JSR

AN A AR R RN R AN N AR AN NN R AN N AR R AR R AN NN A AN AR R AR AN AR R AN

006103

012603
000733

P3XISR:

001312
001312
001312

SEQ 0036

<160020+<17210>>,<17%40>

1813

1817
1818
1819
1820
1821
1822
1823
1824
1825
1826
1827

PAGE 37

JWORD

1815
1816

<160020+<16%10>>,<16+40>
RO,P3RISR
<160012¢<17+10>>,<17%40>

1812

1814

14:01

WORD
R3SR17: JSR
LWORD
X3SR17:

000740

21-JUN-78
ISR LINKERS

ON
ON
ON
ON

STACK
STACK
STACK
STA(CK

:GET RBUF ADDRESS

RN NN

CZ0JBFO DJ11 FXER & ONLNE
CZDeBF P11
21-JUN-78 13:56
1862

014326

1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
1882
1883
1884
1885
1886
1887
1888
1889
1890
1891
1892
1893
1894
1895

014334
014336

001402
104002

014340
014342

014344
014346
014350
014352
014354
014360
014362

000771
010204
105004
000304
106304
061004
136402
001401
104002

014364
014370
014372

005764
001002
104002

014374
014376
014402
014404

000753
105774
001403
104002

1863

014330

100077

032702

005312

002312

3%:

002312

4%:

;NOTE:
;

000137

013210

1900
1901
1902
1903
1904
1905
1906
1907
1908
1909
1910
1911
1912
1913
1914

014412
014416
014420
014424
014430
014436
014440
014446
014450
014456
014464
014472
014476
014502
014504

005764
001414
110274
005264
026464
001332
163764
000726
016464
163764
016464
110274
005264
161004
006204

001312

014510
014512

000261
006103

014506

21-JUN-78
14:01
RECEIVER ISR
BPL

BEQ
HLT+2

BIT

2%:

014406

1915

30A(1052)

070000

1896
1897
}ggg

1916
1917

MACY11

:
;

5%:

002312
002312
003312

002312

001262

0023°2

003312
001262
002312
002312
002312

002312
002312
001312

6$%:

005003

PAGE 38

SEQ 0037

;BRANCH IF NO CHAR PRESENT

;CHECK FOR ERRORS

JBRANCH IF 0K
JRECEIVER ERROR
;R1=RBUF ADDRESS
;R2=CONTENTS OF RBUF
;BIT12=PARITY ERROR
;BIT13=FRAMING ERROR
;BIT14=UART OVERRUN
BR
1%
;SKIP BAD DATA
MOV
RC,
R&
;DUP THE RBUF
CLRB
R&
;CLEAR THE DATA
SWASB
R&
JLINE # TO LOW BYTE
ASLB
R4
JLINE # = 2, ALSO CLR CHAR PRESENT
ADD
(RO) ,R4
;ADD OFFSET
BITR
MASK (4) .R2
sCHECK CHARACTER LENGTH
BEQ
3%
JBRANCH IF 0K
HLT+?2
s CHARACTER LENGTH ERROR
;R1=RBUF ADDRESS
sR2=CONTENTS OF RBUF (DATA)
TST
RCVTAB(4)
sCHECK FOR UNSELECTED LINE
BNE
4%
JBRANCH IF 0K
HLT+2
JRECEIVED DATA ON UNSELECTED LINE
/R1 = RBUF ADDRESS
;R2 = CONTENTS OF RBUF
BR
1%
; IGNORE THE DATA
TSTR
aRCVTAB(4)
;CHECK FOR DATA BUFFER FULL
BEQ
5%
JBRANCH IF 0K
HLT+2
: SOF TWARE DATA BUFFER QVERFLOW
JPOSSIBLE TRANSMITTER PROBLEM
JR1 = RBUF ADDRESS
;R2 = CONTENTS OF RBUF
IF THE ABQOVE ERROR WAS DUE TO OVERLOAD, INCREASING THE CONTENTS
OF "BUFSIZ'' MAY RECTIFY THE PROBLEM.

"BUFSIZ'' MUST BE A MULTIPLE OF 2.
INCREASING IT MAY CAUSE THE BUFFERS TO OVERFLOW 4K.
JMP
PROG3
JRESTART ON THIS TYPE ERROR

1ST
BEQ
MOV
INC
(MP
BNE
Su8
BR
MOV
SUB
MOV
MOvVB
INC
SuB
ASR

(LR

’$:

#70000,R2

SEC
ROL

XMTTAB(4)
sCHECK FOR TRANSMITTER ACTIVE
63
JBRANCH If INACTIVE
R2, @RCVTAB(4)
;PUT THE DATA IN THE BUFFER
RCVTAB(4)
;UPDATE POINTER TO NEXT SPA(E
MAXTA
(&) ,RCVTAB(4)
B ;CHECK FOR END OF BUFFER
1$
;BRANCH [F NOT
BUFSIZ ,RCVTAB(4) ;RESET BUFFER POINTER
1%
MAXTAB(4) ,RCVTAB(4) ;RESET TABLE POINTER
BUFSIZ ,RCVTAB(4)
JRESET BUFFER
RCvTAB(4) XMTTAB(4)
R2, aRCVTAB(4)
RCVTAB(4)
;UPDATE POINTER TO NEXT SPACE
(RO) ,R4
R4

Joeef
Joeef
JoeeF

Joeef

CZDJBFO DJ11 EXER & ONLNE
CZDJBF .P11
21-JUN~78 13:56

MACY11 30A(1052)

200002
8%:

21-JUN-78

RECEIVER ISR

DEC
8PL
BlS
BR
MOV

MOV
MOV

016310
000001
001204
016403
002000
000007
000177
000042

:
DONE

001206

BIT
BNE
4%

TYPE
TYPE

MOV
BEQ

RESET

Ré
7%
R3,2(R1)
1%
(6)+,R4

007316

3¢

JSR
NOP
NOP
NOP
JMP

sPOP STACK

;POP STACK INTO R1

;POP STACK
KBDINT

#1,PCNT+2

PCNT
MEOP
#5W10,aSwR

BELL

177
a#62 RO

7,0)

INTO RO

JADD 1 TO THE PASS COUNT
;JMAKE IT DOUBLE PREC.
JEND OF PASS INDICATOR
;zé?G THE BELL?

¢RING THE BELL
cTYPE A FILLER FOR 11/05

JGET MONITOR ADDRESS
;IF NONE
JRESET AND
;GO TO MONITOR
: SAVE ROOM
FOR

RE<TAR

INTO R4

;POP STACK INTO R3
JPOP STACK INTO RZ

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

SEQ 0038

;SET TCR BIT FOR LINE

(6)+,R3

SENDAD = |

014614

014624

JSR
ADD
ADC

TYPE

164416

014612

014616
014620
014622

MOV
MOV
RTI

m3
14:01
PAGE 39

SACT11

;RETURN

CZDJBFO DJ11 EXER & ONLNE
CZDJBF .P11
21-JUN-~78 13:56

MACYT1

1948

30A(1052)

21-JUN-78
14:01
PAGE 40
BELL AND SCOPE ROUTINE

}3%3

1951
1952
1953
1954

;THIS ROUTINE PRINTS OUT ERROR MESSAGES STARTING WITH THE
;ADDRESS OF THE “HLT''. IT ALSO COUNTS THE NUMBER OF ERRORS
JAND HAS THE CAPABILITY OF LOOPING ON ERROR, BELL ON ERROR,
J'HALT'' ON ERROR, AND INHIBIT TYPEOUTS. AN OPTIONAL ARGUEMENT

}322

014630
014634
014642
014644
014650
014654
014662

.
1968
1969
1970
1971
1972
1973
1974
1975
}3;9

014706
014714
014720
014724
014734
014740
014744
014746
014750
014754

117737
013705
004737
000004
004737
005777
100001
000000
004737
000002

1978

014756

000000

1981
1982

014762
014770

042737
105337

007700
014756

(15004

1984
1985
1986
1987
1988
1989

014776
015004
015006
015012
015016
(15020

062737
010005
004737
000004
000764
000207

000100

015004

}ggg

1983

ERROR TYPEOUT HANDLER

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

1957
1958
1959
1960
1961
1962
1963

1964

SHLT

014664
M46746
J14700

014760

0147746

004737
032777
001402
000004
005237
032777
001026

000004
011637
162737

016310
002000

164346

000007
001202
020000

164326

014670
014760
000002

000046
014760
015366
014730
014762
164244

1%:

JSR
BIT
BEQ
TYPE
INC
BIT
BNE

TYPE
MOV
SUB

014760

014756

2%:

016310
HLTCTS:

000000

100411

EMTS:

MOVR
MOV
JSR
TYPE
JSR
ST
BPL
HAL T
JSR
RT]

PC,
KBDINT
#SW10,aSWR
1%
,BELL
ERRORS
#SW13,aSWR
23

L. 42
(6) ,HLTADR
#2 ,HLTADR

SHLTADR HLTCTS
HLTADR,TTY
PC,PRINTR
L. 42
PC,ERRORS
ASWR
Y

PC,KBDINT

015366
(16442

#7700,2%
HLTCTS

ADD
MOV
JSR
TYPF
8R
RTS

#100,2%
X0,TTY
%7 .PRINTR
SPACE
1%

3%:

;GET HLT ARGUEMENT
;TYPE HLTADR IN OCTAL
;TYPE LEADING ZERO'S
;JLASCIZ " "
;GO TO USER ERROR ROUT INE
JHALT ON ERROR
:SKIP IF CONTINUE
sHALT ON ERROR.

;RETURN
LAST HLT INSTRUCTION EXECUTED

ERRORS: BIC
1$:
DECR
2%:

:JASCIZ <15><12>
;PUT ADDRESS OF INSTRUCTION ON STACK
;FUDGE ADDRESS

sHLT ARGUEMENT

HLTADR: O

8MI]

;BELL ON ERROR?
JNO = SKIP
JRING BELL
;COUNT THE NUMBER OF ERRORS
JSKIP TYPEOUT [IF SET
:SKIP TYPEQUTS

:TYPE REGISTER X IN OCTAL

SEQ 0039

CZDJBFO DJ11 EXER & ONLNE
CZDJBF P
21-JUN-78 13:56

MACYTT

30A(1052)

B 4
21-JUN-78
14:01
PAGE 41
OCTAL NUMBER INPUT ROUTINE

SEQ 0040

;SUBROUTINE TO SAVE INPUT AS OCTAL NUMBER

612737

015314

READIN: MOV
JSR
CLR

#1, INHRE
PC,
READS
INHRE
R1,-(6)
R2.=(6)

R3,-(6)

000020

015216

016206

MOV

000120

1%:

MOVB

00006C
177770

#INPUT ,R2
#120,(R2)

000015

(RE)+,

#20,CNT

JPUSH R1 ON STA(CK

;PUSH R2 ON STACK
;PUSH R3 ON STACK

;CHECK FOR 'P*’

(R1)
(R2)+ ,R3

R3.415

3
#60,R3

;BRANCH WHEN DONE

JBRANCH IF BAD DATA

#177770.R3
(R1)

—

;GO READ TTY UNTIL CR

R3, (R1)
CNT

016206

000244
013737
012603

015164

012602
012601
013737
000205

015166

000000

015179

010346

177776

015166

015316

015336

015166

2%:
3%:

177776

Lz
MOV

MOV

PSTEMP:

READS:
1%:

MOV

2%:

111337

a#PS, _ PSTEMP
(6)+,R3
(6)+,R2
(6)+,R1
PSTEMF,

a#PS

R3,-(6)

#INPUT ,R3
ziNPUT+20.R3

aal77550

177562
000200
000177

177562,
(3)

015242
016124

#200, (3)
#177.(3)
43
#25,(3)

;POP STACK

INTO R3

;POP STACK

INTO R1

;POr STACK INTO R2

JRESTORE CONDITION CODES
STORAGE

FOR PS

;SAVE R3
;GET ADDRESS
JBUFFER FULL?

JYES - TYPE "

JWAIT FOR
;A CHARACTER
;GET CHARACTER
SGET RID OF JUNK
IS IT A RIBOUT
;SKIP IF NOT

4%:

;MAKE SURE Z-BIT IS CLR
sSAVE CONDITION CODES

: TEMPORARY

177560

000025

000004
000750

MOVR

(3),.TYPE

JJASCIZ "2 A5

:JAP THE BUFFER AND LOOP
JSET UP FOR TYPING

CZDJBFO DJ11 EXER & ONLNE
cZbJBF P
21-JUN-78 13:56

MACY11

30A(1052)

14:01
TTY INPUT ROUTINE

016124
000015

015256

21-JUN-78

.. TYPE
#15,(3)+

000000
000020

INHRE:
INPUT:

SEQ 0041

;CHECK FOR RETURN
;LOOP 1F NOT RETURN

5%:
6%:

1727777

000012

PAGE 42

JECHO IT

015314

000
012603
000207

¢4

;ZAP RETURN (THE 15)

;TYPE A LINE

FEED

JRESTORE R3
sRETURN
O
.BLKW

TTY

INPUT AREA

OCTAC "YPEOUT ROUTINE

$OCTAL

:THIS 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
;THE 16 BITS. IT IS CALLED VIA THE DUMP, SDUMP, DUMP18, OR BITYPE MACRO'S.
012737

170101

015524

000001

015524

015524
177772

015525

015526

BITYPS: MOV
BR
PRINTR:

PRINTS:

PTIT:

MOVB

BR
CLR
MOvVB

#170101,.PR
LPTIT

#1,.PR

JSET BIT FLAG ANS 16. CHARACTER COUNT
NOW TYPE IT IN BIT FORM
cSET ZERO FILL SWITCH
.SKIP
.SUPRESS LEADING ZERO'S
;SET COUNT
:SAVE R4
;SET POINTER TO FIRST ASCII CHAR.
;CLEAR FIRST BYTE

000100

015524

;ROTATE FIRST BIT

.PRL:

cCLEAR BYTE OF CHARAC(TER

;BIT TYPING MODE?
;YES = SKIP 2 ROTATES

JROTATE BIT
JPACK IT

;ROTATE BIT
JPACK

:
.PRF
o

JRCTATE BIT INTO C
JPACK IT
;1S IT ZERO?

.+6
#'0,(4)+

000060
015525

.PR+1
.PRL

015526
PONUN)
— —

Gy GG

elslelelelolele]

INTO C

JSKIP INC

015524
015524

pour QG G

INTO C

#.PR+2 ,R4
+6

000060

#'C,(4)+
(4)

015526

..PR+2

(6)+,R4

.PR:

JSET FILL SWITCH
cCHECK FILL SWITCH
JSKIP BITSET
;MAKE INTO ASCII CHAR
s INC COUNT
:REPEAT

cEMPTY BUFFER?

;SKIP IF NOT
;LOAD 1 ZERO
cNULL TERMINATOR

JTYPE

JRESTORE R4
JRETURN
JCOUNT, SWITCH, AND QUTPUT BUFFER

CZDJBFO DJ11 EXER & ONLNE
CZDJBF
.P
21-JUN-78 13:56

012777
012777
010046
010146
010246
010346

382

D
b
e
D
D
=D
D
D e
D
b
D
D
d ed
D
—

N POPNIN) = =
bl S =D
W =200V
NIWVNISWN=0O

AININININ
N AN
NN NN NININON)

2100

015676
000340

015650
015656
015672

012601
012600
012737
012737
000004
000137

015676
015700

000000
000776

015702
015704

000000
000024

015710

000002

000126
000122

PDOWNS:

21-JUN-78

0
14:01

PAGE 43
POWER DOWN AND UP ROUUTINES

;SET FOR FAST UP
PRIO:7

R1.-(6)
RZ,=(6)

sPUSH R]1 ON STA(CK

R5,=(6)
SP, .SAVR6

000072

015702

#PUPS ,3PUVE(CS

PUPS:

SEQ 0042

#ILLUP,aPUVE(CS
#340,aPUVEC$+2

R4 ,=(6)

015614

005001
005201
001376
012605
012604
012603
012602

30A(1052)

R3,-(6)

015702

013706

MACY11

SP
SAVR6,

1%:

:PUSH RO ON STACK

:PUSH R2 ON STACK

sPUSH R3 ON STACK
JPUSH R4 ON STACK
;PUSH RS ON STACK

;SAVE SP

:SET UP VECTOR
JWAIT FOR PF

;GET SP
;WAIT LOOP FOR THE

JWAIT FOR THE INC

:0OF

TTY

WORD

;POP STACK
:POP STACK
;POP STACK

015550
000340
015662
007310

000026

(6)+,"RO

000024
000026

#PDOUNS k24

TYPE
JMP

#3460, 3426
,.+e
RESTAR

INTO RS
INTO R4
INTO R3
;POP STACK INTO R?
;POP STACK INTO R1
;POP STACK INTO RO
.SET UP THE POWER DOWN VECTOR
;PRIO:7

;. ASCIZ <15><12>' POWER''
;JMP TO USER ADDRESS

[LLUP:

HALT
BR

PUVE(CSY:

.SAVR6:

0
24,26

;PUT

YESRT:

RTI

JRETURN FROM TRACE TRAP

.=l

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

SP HERE

;POWER UP VECTOR

CZDJBFO DJ11 EXER & ONLNE
CZDJBF P11
21-JUN-78 13:56

MACYTT

30A(1052)

E
14:01

21-JUN=-78
IOT HANDLER

4
PAGE 44

SEQ 0043

SRR P A AR R AR AR R AR A AR A AR R AN AR AR A AR

AR AR AANAA A AN AAA AR AANAAN AN

AN AN RS

. I0OT HANDLER - R EENTERENT ROUTINE TO INDICATE A FALSE

INTERRUPT OR TRAP, OR TO TYPE A MESSAGE

MNIMLNLALNINLALNLAYNLALNLNI
NI NI AL NN AV NINL NN NV NININL NI NV NINL NV NN AN NN NN N NI NI AL NI NN NN

015712
015716
015720
015724
015730
015736
015744
015752
015760
015762
015764
015770
015772
015776
016004

022716
002440

001000
000004
015730
047125
052103
052116
020124

AL EALAR RSttt

[IOTRAP:

CMP
BLT
SuB

#1000,

(SP)

s CHECK RETURN ADDRESS

(SP)

*GET VECTOR ADDRESS

LASCIZ

<15><12>"UNEXPECTED

MOV

(SP)+,TTY
°C,PRINTS
(SP) +

015376
015776
047522

TYPE,

LASCIZ

.EVEN

016006
016010
016014
016016

MOV

015376

JSR
HALT
RTI

.42

FRm

(SP),TTY

PC,PRINTS

)
D

ittt

ssliileissslds)

*BRANCH IF TYPE COMMAND

*TYPE MESSAGE

INTERUPT TO *'

JTYPE (SP)+ IN OCTAL
JAND SUPRESS LEADING ZERO'S
;POP STACK

:TYPE MESSAGE

;TYPE
JAND

(SP)

IN OCTAL

SUPRESS LEADING ZERO'S

;FATAL ERROR

;CONTINUE IF DESIRED

$TYPE

MESSAGE

TYPEOUT ROUTINE

;THIS ROUTINE IS USE TO TYPE ASCII MESSAGES ON THE TTY. THE

d e

$CALL CAN BE

IN ONE OF 3 FORMS:

''TYPE

*MESSAGE STARTING IN LOCATION ''ADR:'',

,ADR''- TYPES THE

2) “TYPE ,CHARTM - TYPES

STHE ASCII "'CHAR'', AND 3) "PRINT <<15><12>'MESSAGE'S> - TYPES

d e
b ed
nd
el

b —

~N NNSNNN ~J

) —h —
b
md emd
) ed el
d —ed

30 Q0 00 Q0 00 QO 0o 0o OO

ed
—

JSR
TS7T

020115

ittt

10T$

TYPE,

054105
042105
051105
047524

)

D ed

SIBIRRRIV2S
IS NOWNESWWN ~n —-Ov
\J\logogogooogmmwmmmmmm\Ab
=
~
NN
NS WA 2O V00
w W

) ed

)

141

AALASAS

*THE MESSAGE WHICH

016020
016022
016026

010546

017605

I0T$:

000002
177400

016124
016124

MOV
MOV
BIT

010566
012605
000002

000002
000001
000002

INLINE ASCII.

TTY,=-(6)

JSAVE TTY

7177400,TTY

;18 IT A TYPEM?
;N
.GET THE CHARACTER

a2(6),TTY
TTY,.TYPE

TSTB

177566
177564

000002
000002
000002

#.TYPE,TTY

(TTY)

.GET ADDRESS TO BE TYPED

;FUDGE

THE

ADDRESS

. TERMINATOR?

JGET OUT IF SO

(TTY)+,a#177566 ;LOAD AND TYPE THE CHARACTER

177564

000004

2%:

MOV

SWAIT UNTIL IT IS
JGET THE NEXT CHARAC(CTER

#2,4(6)
(6)+,2(6)

JADD 2 TO THE ADDRESS
JIS 1T 422

@2(6),-(6)
3%

MOV

;IS THE PRINTER READY

=4
1%

B2, TTY
#1,TTY
TTY,2(6)
((Y+,TTY

.GET ADDRESS TO BE TYPED

;NO

JADD 2 TO THE ADDRESS
;BACK UP TO AN EVEN BYTE
;RESTORE ADDRESS
JRESTORE TTY

JRETURN

CZDJBFO DJ11 EXER & ONLNE
CZDJBF
.P
21=-JUN-78 13:56

016126
016134
016136

016142
016146
016152
016156
016162
016164
016166
016174
016176
016204

000000

022737

001023
000004
013705
004737
000004
004537

21-JUN-78

TYPE ROUTINE

14:01

PAGE 45

.TYPE:

200176

001210

CNTLU:

016220

cMP

#SWREG, SWR

.SWREQ

PC,PRINTR

0
015022

SEQ 0044

;CHARACTER TYPE LOCATION

SWREG, TTY

NEWIS

;TYPE SWREG IN OCTAL
;TYPE LEADING ZERO'S

RS ,READIN
TMP1

000020

016206

016356

163004

016206

1%:

CNTLU
#20,CNT
1%
TMP1,aSWR

(NT:

016210
016216
016220
016226
013746
013746
012737
022777

042516

C36527

NEWIS:

053523

036522

SWREQ:

<15><12>''SWR=
'

SUSWRR:

6.-(SP)
4,~(SP)
#1%.,4

000006
000004
016260
177777

000004
162734

(SP)+,(SP)+

016310
016316
016320
016324
016332
016340
016346
016350
016354

001002
004737
000207

016356

000000

022737
001016
005037
113737
142737
122737

005015
052101
042503
000
015

#SWREG,SWR
#DISPREG,DISPL
AY

(SPY+,4
(SP)+,6

000176

KBDINT:

016356
177562
000200
000007

#SWREG,
SWR

TTMMP1
177562, TMP1
#4200, TMP1
47,TMP1
1%

016126

1%:

PC,CNTLU

TMP1Y:

0475
0201
0531

016302
016306

e 3
3%

000176
000174
000004
000006

016276

NEw—

—_O
—

016230
016234
016240
016246
016254
016256
016260
016262
016270

30A(1052)

042040
042522
042105

TRNERR:

LASCIZ <'5><12>'NO DATA RECEIVED''

0424

—

D e

[aS1aS1a0
1oV 1,0 1a0)

016124

MACYT1

050117

MEOP:

LASCIZ <15><12>"E0P"’

EXER & ONLNE
21-JUN-78 13:56

RRRK REXRRLR
&EXG
oS =20

2222 2282222

CZDJBFO DJ11
CZDJBF P11

000
043
051440

000040
0646105

=N =D

055103
026506
045104
042530
047117

30A(1052)

21-JUN-78

TYPE ROUTINE
.I’

G
14:01

4
PAGE 46

SEQ 0045

MNUM:
:
MSGSEL

LASCIZ
LASCIZ " SELECT LINE - "'

RETURN:
:
SPACE
MSGMDN:

LASCIZ
LASCIZ
LASCIZ

<15><12><377>''CIDJB=-F-0

MSGADR:

LASCIZ

<15><12>"'FIRST DJ11

MSGVEC:

LASCIZ

<15><12>'VECTOR ADDRESS:

515a<12><377><377><377>

000105
044506
045104
042104
020072
042526
040440
051523

051522
030461
042522
000040
052103
042104
020072

047516
042040
035123

020056
030512
020040

MSGNUM:

LASCIZ

<15><12>'NO.

050012
046501
000040
047516

047522
021440

MSGPRG:

LASCIZ

<15><12>' PROGRAM #:

042040
020523

MSGO1:

LASCIZ

<15><12>'NO Dy11*S.*’

050012
020072
044524
020123
042440
051511
000

047522
041440
052516
041505
042530
051105

MSGPZ2:

LASCIZ

<15><12>'PROGZ:

041505

MSGP3:

<15><12> *ECHO

DJ11

EXER & ONLNE''

ADDRESS:

DJ11°S:

CONTINUOUS ECHO EXERCISER''<15><12>

TEST+'¢15><12>

N
b
—

)

o
o
)
S3o

020

S NANYNO S OO
NN

=2 NOOWNWNWN—
—

oR
SRRIRI
VI
N ==y
—

015

016770

041505
042516
000377

023461

016707
016714
016722
016727
016733
016740
016746
016754
016762

MACY11

MSGDAS:
MALARM:

006522

.EVE
END:
.END

.
|,

<15><12>''SILO ALARM LEVEL FOR (SR''<15><12>

CZDJBFO D211 EXER & ONLNE
CZDJBF .P11
21-JUN-78 13:56

BIT3

BIT4
BITS
BIT6

BIT7

011230
007270
010024
001300
006312
Q00007
011274
015356
000001
000002
002000
000
010000
020000
040000
100000
000004

= 000010

- 000020
= 000040
= 000100

= 000200

BIT8
=
BI'9 =
BUFSIZ
CNT
CNTLU
CNTNIT
CNTTAB=
COUNT
DEVADR
DISPLA
DISPRE
DJMAP
DONE
EMTS
ENO
ERRORS
ERRORS

000400
001000
001262
016206
016126
011232
005313
001306
001266
001212
000174
006452
014542
014630
016770
001202
014762

FORGND
FORP2
FORP3

007714
012222
(013472

HLT
HLTADR
HLTCTS

104000
014760

GETLEN
GETVEC

ICNT

006754
006534

014756

001200

ILLUP
INHRE
INPUT
IOTRAP
0TS
ISRFLG

015676
015314
015316
Q15772
016020
001276

LEVEL7

000340

KBDINT

016310

825

716

813
5344

«96

4614
1103

20654
L6200
4634
L72N

30A(1052)

826

11034
7384

722

8804

S75«
5574
1936
11194

896
811

21-JUN-78

H
14:01

SEQ 0046

842+

1960

897

L734

LG74H
L7548
L76H
4774
LE4n
LO5H
L6664

644

917

LG7H
4684

835

918

1906

1909

4704
L71H

5274
2000+
664
576+
5554
5374
529#
S506#

22074
2236
1628+

890+

649

LGN
5854
601
564
1109
5024
1971

828

906+

907+

899
666

901
685

905

117

1656

22954

1596

1611

18¢5

789

912+«

914+

915+

916«

1418

908

911
1665

927
1728

937

1879

1884

1890

844

14604
17204

645
598

LLOn
1965
1967+

S0
2100
199%x
2001
560
2142
533
920
o784

1065

1082
1068

2049
2032

2057~

Ny
~N VN

ADKNIT
ALL
ALMCK
ALMFLG
BEGIN
=
BELL
BINARY
BITYPS
BITO =
BIT1
=
BIT10 =
8IT11 =
BIT12 =
BIT13 =
BIT14 =
BIT1S =
8172
=

4
PAGE 48
CROSS REFERENCE TABLE =-- USER SYMBOLS

MACY11

1096+

1967
1982+

19794

2058+

1975

Fo2om

11044

CZDJBFO DJ11 EXER & ONLNE
CZDJBF P
21-JUN-78 13:56
016733
001260

30A(1052)
14:01
PAGE 49
21-JUN-78
CROSS REFERENCE TABLE =-- USER SYMBOLS

SEQ 0047

0~4oBVeX¥o0)NM—«yOmuMN—NRIt71hFM3W?IfARNAiFU¥ALO.“IB0N£HOI(f<IlMi—BTQN&NZII(I:1ENA0M;|MI4NI5T7OI3NL;NUI«AL&O?3AWAL&USL—Of£M2Yl(¢IWIAn3W£VA”N?RE1N&O|L) -0oN ]0[eM*O

MALARM

MACY11

830«

Or)<:)fluMNMUa3MnO5UO3VO3—8e03—2— OQoM

I3qc~F*'a'” QaaU»'oMyLwVNMO-cO-l—0A—~.MNO——OOp—ANeANM—NNMOIMN—eIAFMTNOONNON-ReN—ADDNuOI—0PQOkIURNODOxONUOIM—ON—~0OOU—MNNIMNTMRUINII0—PINONRTTOIMNONNONtO——IMON-y2OMONOPI3ec=—MOD5—TON—rON6MMM=Ree—ITINOF7-RW=rIN8N—RYeN—ArM0——N- 0oo1¥c'V!No0Nl1oANO
N—OI—NM—NUI—OMO—NeO— NOOTeN—MMPIWTMNOAePNePNe

MARK

MEMX
3
MEOP

MNUM

MSGADR
MSGDAS

016506
016727

MSGPRG

016605

MSGMDN
MSGNUM

MSGP2
MSGP3
MSGSEL
MSGVEC
MSGO1

016445
016562

016641
016707

016414
016536

016624
000040

PDOWNS
PHRASE
PRINTR
PRINTS
PROGAD
PROGNO
PROG1

001204

015550
011674
015366
015376
007332
007332

PSTEMP
PUPS

PUVECS
PY1IN]T

(015166

015614
(0'57
00744

1572

1619+

1621+

1624

saM

®¥

A=7—oM)of—aM7oO—YIPNToUNTeM==VNTo[aVIaTVQVTVaeNTe3eetmdPietPeotePtP

—

. L —T
L3—3- — RR RN—r—SR—TIerX—Ire—Ze—N—

PCNT

016210
000000

1569+

2264K

22754

—v—tr— I925ZH&

NEWIS
OPEN

1078

1567+

22464
2248#
260
22884
2254w
22684
2272
2278#
22854
2245

OM—-M—VOCU5OUM7TYO8GGO9,O1OT2V34—=r6——7——8——eT—-

-—

005 3 12
003 3 12
013 5 T4
01640 3
016411

1448+

IITINSA33

MAXTAB

1643

~
—R
—r——
e RN
NNMM UUMM MMOO O OVV=O —=—ee
S""'A2"I FI1d”"’T“I1AI1SMWA2RB2S

MASK

1641«

154

284

S4n

678

2804
2934
3064
3194
3324
3454
5
71

514

515

516

517

2021

2025+

1948

20674
2158

2197

645

714

518

NYOINW—MARNM

519

13654

520

521

CZDJBFO DJ11 EXER & ONLNE
CZDJBF P11
21-JUN-78 13:56
P2INIT
P2RISR

012052
013034

P2XISR

012642

P3INIT

013262

P3RISR

014372

P3XISR

014162

RCVCNT= 004313
RCVISR
011106

RCVLVL
RCVTAB

001272
002312

READIN
READS
REPORT
RESTAR
RETURN
RISRO
RISR1
RISR10
RISR11
RISR12
RISR13

015022
015170
006670
007310
016434
010372
010412
010572
010612
010632
010652

RISR14
RISR15
RISR16

RISR17
RISRZ
RISR3
RISRG
RISRS
RISR6
RISR7
RISRO
R2SR1
R2SR10
R2SR11
R2SR12
RZ2SR13
R2SR14
R2SR15
R2SR16
R2SR17
R2SR2
R2SR3
R2SR4
R2SRS
R2SR6
R2SR7
R3SRO
R3SR1
R3SR10

010672
010712
010732

010752
010432

(010452
010472
010512
010532
010552
012242
012262
012442
012462
012502
012522
012542

012562
012602
012622
012302
012322
012342
012362
012402
012422
013562
013602
013762

MACY11

16174
1472
1524

1476
1528

1526

1530

1474

30A(1052)
21-JUN-78
14:01
PAGE 50
CROSS REFERENCE TABLE -- USER SYMBOLS
1480
1532

1484
15874

SEQ 0048

1488

1492

1496

1500

1504

1508

1512

1516

1520

1478

1482

1486

1490

1494

1498

1502

1506

1510

1514

1518

1522

1747

1751

1755

1759

1763

1767

1771

1775

1779

1783

1787

179

1795

1765

1766

1773

1777

1781

1785

1789

1793

1797

1801

1805

1809

18164
965

969

972

977

981

985

989

993

997

1560
1909+

1563
1910

1614
1911«

1616

1627«

1693~

1882

1888

1902+

16644

1799
1749

524
949
1001
5314
S46a
1903+
718
1994
€33
498
647

791
9534
9814
9854
9894
9934

1803
1753

828+
953
1005
793
826«
1904
730
20304
XY
736
725

9454

9974
10014
10054

10094
9574

961a
G654
6N
9734
9774
1420
14764
15044
15084
1512#
15164
15204

1524#
1528#
15324
14804
14844
14884
14924
14964
15004
1667
1751#
17794

14724

17478

1534

1807
1757

15414

18554
1761

864
957
1009
1422
1077
1906«
1993

1086+
961
10554
1669
1088~
1908+«
2199

726,54
1574

1946
1629

212%
22524

1912~

CZDJBFO DJ11 EXER & ONLNE
CZDJBF P11
21-JUN-78 13:56
R3SR11
R3SR12
R3SR13
R3SR14
R3SR1S
R3SR16

014002

R3SR17

MACYTT

K
4
30A(1052)
21-JUN-78
14:01
PAGE 51
CROSS REFERENCE TABLE =-- USER SYMBOLS

SEQ 0049

17834
17874
1791#
17954
17954
18034
1807#
17554

R3SR2
R3SR3
R3SR4
R3SRS
R3SR6
R3SR7
SAVIT

1759#
17634
1767#
17714
17754
508#

SCOPE
SELPRO
SIXBIT
SPACE
STACK
SUM
SUSWRR

LLBA
7154
1107
1987

L8004
538#
558
510#
5114
5184
5194

SVSWO
SvSw1
SVSWi10
SVSwWi1
SVSW12
SvSw13
SVSW14
SVSW15
SVSW16

731

732

720
11184

746

748

557
884+
22154

769
901«

1398
902

1644

905«

90¢

739

815

1439

1684

662
2229
2193

721

818

832

219¢

2222

2229

1957

1958

233

223%

2253

724

907

908+

909

911«

912

Svsw17
SVSW2
SVSW3

SVSW4
SVSWS

SVSWé

SVSW?
SWITCH

007222
001210

SWR

SWREG
SWREQ

TIME
TIMERA
TIMERB
TIMES
TMP1

TRNERR

22114
1934

921

1962

W10
Sw11
sw12
Swi13
SW14
Sw15
Sw8
Sw9

735

644
2222+

1976
9334

885
886+
579«
2204
224N

933«

935«
872

2231+

878+

2232+

22394

1934

1958

1962

1972

2193

2204+

CZDJBFO DJ1T1 EXER & ONLNE
CZDJBF .P11
21-JUN-78 13:56
TYPE

UNITS
VECADR
X1SRO
X1SR1
XISR10
XISR11
XISR12

= 000004

MACY11

30A(1052)

L
14:01

&
PAGE 52

SEQ 0050

CROSS REFERENCE TABLE =-- USER SYMBOLS

646

1936

001264

21-JUN-78

647

1937

2195
625
652

2198
655
790

827+
959

857
963

648

1960

665

1419

1964

651

654
1970

1987

717

725
2043

2046

2053

729

877
2096

684

734

738

840

1452

1712

1727

1575+
991

1630+
995

1666

726

923

2124

m\l\lw\lw\\’l‘wmbbbbbmmmmmmmm

824

i
‘Q%\Q‘fik;?Q&
S s

W\wal\l\l\‘\l\‘\wg

Gusr Gunr Py G

G GerGunrd

—

d ——d

164784

WL
[s o No
i lelelele
N
(V.
oW SN Y]
NN AN AN =2 NYASHUN = N == NN —
JASLASTASLANIANT
AN .S, LN, N1,81,81, §1,81,§)

X3SR2

X3SR3
X3SRé

Qhuur Qhiny husr G

X3SR17

X2SRé4
X2SR5
X2SR6
X2SR7
X3SRO
X3SR1
X3SR10
X3SR11
X3SR12
X3SR13
X3SR14
X3SR15
X3SR16

elelelololalelalolalelaloleololalolalolololololololele]

X2SR16

X2SR17
X2SR2
X2SR3

Phur Qe

X2SRO
X2SR1
X2SR10
X2SR11
X2SR12
X2SR13
X2SR14
X2SR15

1034«
1826+

1560+
1834+

10184
1675
1029
1720

1550
979

1011
1428
825+
1692«

XMTLVL
XMTTAB

1030+
971

XMT ISR

XISR14
XISR1S
XISR16
XISR17
XISRZ
XISR3
X1SR4
XISRS
XISR6
X1SR?7
XMTCNT

——

XISR13

1574+
1910+

CZDJBFO DJ11 EXER & ONLNE
CZDJBF .P11
21-JUN-78 13:56
X35RS
X3SR6
X3SR7
YESRT

013712
013732
013752
015710

= 132000

.PR
.PRF
.PRL
LPTIT
.SAVR6
JYPE

015524
015444
015422
015410
015702
016124

. ABS.

016772

ERRORS DETECTED:

21-JUN=78

PAGE 53

CROSS REFERENCE TABLE == USER SYMBOLS

2134k

«89
4814

1941

19414
485
1948

4884

1964

19654

4954

1970

SEQ 0051

5004

2068

399

1962

2093

20994

2124

2128

2144

2065+
2074
20754
2066
2108+
2045+

2067+
2077
2091
20714
2112
2046

2069+
20824

2070+

2072

2076

2086+

2175

21914

394

395

21304
2174«

396

397

000
O

RUN=TIME RATIO: 124/17 7.2
CORE USED:
20k
(39 PAGES)

398

13884

1973

2088

18%2#

951

497n

19714

2085

DSKZ : CZDJBF ,DSKZ: CZDJBF . SEQ-DSKZ : CZDJBF .MAC,DSKZ: CZDJRF .P11
RUN-TIME: 6 9 .6 SECONDS

DOCUMENT PAGES:

14:01

17694
17734
17774

$ENDAD= 014614
.
= 016772
.BIT

MACYT1 30A(1052)