Digital PDFs

AH-8509F-MC

January 1979

52 pages

Original

24MB

view download

OCR Version

31MB

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

OCR Text

ONLINE TEST
& SER
EXERCI

CZDJBFO

AH-8509F-MC

JAN 1979

1
FICHE1 OF

IN USA
MADE

CZDJBFO DJ11 EXER & ONLNE

CZDJBF P11

21-JUN-78 13:56
.REM

MACY11 30A(1052)

1
PAGE
2

B
14:01

21=JUN-78

SEQ 0001

IDENTIFICATION

PRODUCT CODE:

AC-8507F
-MC

PRODUCT NAME:

CZDJBFO DJ11

PROGRAM DATE
:

JUNE

MAINTAINER:

DIAGNOSTIC ENGINEERING

EXER & ONLNE

1978

THE INFORMATION
IN
THIS
DOCUMENT
IS
SUBJECT
TO
CHANGE
WITHOUT
NOTICE
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT
BY
DIGITAL
EQUIPMENT
CORPORATION.
DIGITAL ~ EQUIPMENT
CORPORATION
ASSUMES
NO
RESPONSIBILITY FOR ANY ERRORS THAT
MAY APPEAR IN THIS DOCUMENT.

NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF
SOF TWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR
ITS AFFILIATED COMPANIES.

1972,

THE
FOLLOWING
CORPORATION:

DIGITAL
DEC

1978 BY

ARE

DIGITAL

TRADEMARKS

POP
DECUS

EQUIPMENT
OF

UNIBUS
vECTAPE

CORPORATION

DIGITAL

EQUIPMENT

MAS SBUS

CZDJBFO DJ11 EXER & ONLNE

21-JUN-78 13:56

21-JUN-78

¢
14:01

ABSTRACT

HWNnY =

NN
=

S B WwWhohorOND —

CONTENTS

N 000C 000000 NONONONON YNNI LS B

CZDJBF .P11

MACY11 30A(1052)

REQUIREMENTS
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
MISCELLANEOUS
EXECUTION TIME
STACK POINTER
PASS COUNTER
POWER FAIL

PROGRAM DESCRIPTION

1
PAGE 3

SEQ 0002

CZDJBFO DJ11 EXER & ONLNE

CZDJBF .P11

MACYT1 30A(1052)

21-JUN-78 13:56

21-JUN-78

D
14:01

1
PAGE 4

SEQ 0003

ABSTRACT
THIS PROGRAM CONSISTS OF

THREE

SUB-PROGRAMS

WHICH

EXRECISE

LEVEL

SETTING.

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

REQUIREMENTS

EQUIPMENT
PDP=11

STANDARD COMPUTER WITH CONSOLE

TELETYPE

UP TO 16 DJ11 ASYNCRONOUS MULTIPLEXERS.

&.4

STORAGE
THIS PROGRAM USES ALL OF

2.5

EXCEPT ABSOLUTE LOADER.

PREL IMINARY PROGRAMS
CZDJA

8k,

DJ11

LOGIC

TESTS

LOADING PROCEDURE
USE

STANDARD PROCEDURE FOR ABS TAPES.

STARTING PROCEDURE

“.1

CONTROL

SWITCH SETTINGS

SEE 5.1

(ALL DOWN FOR WORST CASE TESTING)

4.2

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

CZDJBFO DJ11 EXER & ONLNE

CZDJBF .P11

MACY11 30A(1052)

21-JUN-78 13:56

4.3

21-JUN-78

E
14:01

1
PAGE 5

SEQ 0004

PROGRAM AND OPERATOR ACTION
1) LOAD PROGRAM INTO MEMORY USING ABS LOADER.

2) LOAD ADDRESS 200.
3) IF HARDWARE SWITCH REGISTER IS AVAILABLE, SET SWITCHES
(SEE SEC.
5.1), ALL DOWN FOR WORST CASE, PRESS START.

SWITCH-LESS PROCESSOR SIMPLY PRESS START.

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

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

EOP'' IS ALSO PRINTED ON EACH PASS.

OPERATING PROCEDURE

OPERATIONAL SWITCH SETTINGS
AT SA 200, ALL SWITCHES DOWN IS
WORST
CASE
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>
Sw<13>
SW<12>
SW<10>
SP
Sw<8>

PROGT

=1
=1
=1
= 1
-+
8 Y
=1

ONLY:

.....
.....
.....
.....
JPR—
cens
,....

SW<2:0>= 0 .....
} ansue
g arwea
3-7 ...

HALT ON ERROR
INHIBIT PRINTOUT
PRINT SILO ALARM LEVEL (PROGT ONLY)
BELL ON ERROR
BELL ON PASS COMPLETE (PROG1 ONLY)
INHIBIT MAINTENANCE (PROG1 ON-LINE)
SELECT LINES FOR TEST (SEE 5.3)
BINARY COUNT PATTERN
"THE QUICK SILVER GRAY FOX ... "
ALPHA-NUMERIC (40-177)
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

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

THE CONTENTS OF THE SWREG ARE DUMPED
TTY AND ANY CHANGES ARE REQUESTED

(I.E.)

IN OCTAL ON THE

CONSOLE

SWR=XXXXXX NEW=

POSSIBLE RESPONSES ARE:
1.

<CR>

6 DIGITS 0=7

IF NO CHANGES ARE

TO REPRESENT IN

5EgiSTER

VALUE;

TO BE MADE.

OCTAL

THE

NEW

SWITCH

LAST DIGIT FOLLOWED BY

TO ALLOW RECMTERING VALUE

ERROR

COMMITTED KEYING IN SWREG VALUE.

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

MACY11 30A(1052)

21-JUN-78

F
14:01

1
PAGE 6

SEQ 0005

BUILT INTO THE PROGRAM 1S 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

HLT
THIS ROUTINE

(CALLED BY AN EMT

INSTRUCTION)

PRINTS

OUT

ERROR MESSAGE .SEE 6.1).
TO INHIBIT TYPEOUTS, PUT SW<13> ON
A 1.
TO RING THE BELL ON AN ERROR, PUT SW<10> ON A 1.

5.2.2

ALMCK (PROGT ONLY)
IN THE NORMAL OPERATION
THE
‘DONE'' BIT
IS
SET
AS
EACH
CHARACTER
IS
READ
INTO
THE FI/FO BUFFER(SILO).
BUT THIS
"DONE’* CONDITION CAN BE DELAYED TO CAUSE DONE ON THE
5,
9,

OR 17 CHARACTER.
(W1,W2,W3)

THIS IS DONE BY CUTTING ONE OF THE JUMPERS

ON THE M7285 CONTROL BOARD.

FORTM

THIS

SET

°'DONE''.

"SILO ALARM LEVEL'' AND IF

PRINT OUT THE LEVEL

THE

(IN OCTAL)

SUBROUTINE

THE

AT WHICH EACH

ALSO

PROGRAM

SW12 IS SET

ADJUSTS

(1)

DJ11

TESTS

IT WILL

WILL

THE CHARACTER

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

IS
SET
ON EACH CHARACTER IN THE BUFFER, REGARDLESS OF
SILO ALARM LEVEL.)

$.2.3

THE

TRAPCATCHER

.+2'" = "HALT'' SEQUENCE IS REPEATED FROM O - 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 IN AN
"HALT'' IN "'IOTRAP'',
%3

ERROR

MESSAGE

AND

PROGRAM AND OPERATOR ACTION
AFTER THE DEVICE PARAMETERS ARE REPORTED, THE PROGRAM
TYPES
"PROGRAM
#:
AT WHICH TIME THE OPERATOR ENTERS '“1°', ',

OR "3'* DEPENDING ON THE SUB-PROGRAM HE WISHES TO RUN.

IF SW<8> IS ON A 1, THE PROGRAM WILL TYPE OUT

‘'

SELECT

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

MACY11 30A(1052)

LINES

21-JUN-78

14:01

PAGE 7

SEQ 0006

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

REPRESENTING THE LINE(S) WHICH ARE TC

TESTED

FOR

THAT

DJIT.C(INPUT
A
1
FOR LINE O,A 7 FOR LINES O,71,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
ERROR PRINTOUT
THE

FORMAT

ADR

(R1)

[S AS FOLLOWS:

(R2)

(R3)

(R4)

:
WHERE
ADR

(RN)

= ADDRESS OF

= CONTENTS OF
FOUR

ERROR HLT

GENERAL

FOLLOWING THE HLT;

THRU (R3);
HLT
ADR AND DJADR.
TO FIND THE

THESE MAY BE

FAILING

TEST,

'WN''.

FROM

TYPED DEPENDING ON

E.G.,

HLT+3

WOULD

NONE

THE

TYPE

(R1)

(BY ITSELF) WOULD STOP AFTER TYPING
LOOK

THE

LISTING

ABOVE

ADDRESS
TYPED.
IN MOST
CASES THE COMMENT BESIDE
TELLS WHAT WAS BEING CHECKED AND WHAT WAS EXPECTED.

6.2

NUMBER

THE

THE HLT

ERROR RECOVERY
RESTART AT 200 OR 1000.

6.3

ERROR COUNTER
AN ERROR COUNT IS KEPT IN "ERRORS'' .
IT CAN BE CLEARED FROM
;‘*:SGRS’(“NSOLE.
BY
RESTARTING
AT
200,
OR BY RELOADING THE

RESTRICTIONS
THIS PROGRAM REQUIRES THAT THE DLVICE ADDRESSES
FOLLOW
THE
FLOATING
ADDRESS CONVENTION (DJ11'S WILL BE FIRST, STARTING

160010,

THEN THE DH11°'S) AND THAT

THE

VECTOR

ADDRESSES

ALL BE CONTIGUOUS.
IF THE FIRST DJ11 ADDRESS IS NONSTANDARD
(OTHER THAN 160010) THEN LOC.
1270
MUST
BE
CHANGED
TO

CONTAIN THIS NONSTANDARD ADDRESS.

THIS PROGRAM IS RUN WITH A MONITOR,

[.E.

ACT11

DDP,

CZDJBFO DJ11 EXER & ONLNE

CZDJBF .P11

21-JUN-78 13:56

MACY11 30A(1052)

ONLY PROGRAM 1
8.

MISCELLANEOUS

8."

EXECUTION TIME

21-JUN-78

14:01

PAGE 8

SEQ 0007

IS RUN.

(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

SPEED, 8 LEVEL CODE,

PDP=11/20

FOR

FOR ONE

STOP

DJ11

WITH ALL

BITS,

AND

LINES

MULTIPLE DJ11°'S, MULTIPLY THESE

THE NUMBER OF UNITS SELECTED FOR TEST.

8.2

THE

PARITY

SAME

TIMES BY

STACK POINTER
STACK IS INITALLY SET TO 1200

8.3

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

8.4

IT CAN BE
200, OR BY

POWER FAIL
EACH PROGRAM CAN BE POWER FAILED WITH NO ERROKS.
TO USE,
START
THE
PROGRAM AS
USUAL AND POWER DOWN THEN U® AT ANY
TIME.

THE ROUTINE

SHOULD

PROGRAM WITH NG OTHER ERROR

TYPE

‘POWER'®

TYPEQUTS.

AND

RESTART

THE

CZDJBFO DJ11 EXER & ONLNE

CZDJBF .P11

21=-JUN-78 13:56

MACY11

30A(1052)

21-JUN-78

14:01

PAGE
9

SEQ 0008

PROGRAM DESCRIPTION

THIS PROGRAM CONSISTS OF

THREE

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>

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
IT
RECEIVED
ON
THE RESPECTIVE LINE.
A NULL (000) WILL “ECHO'
72 TIMES AND THEN TURN OFF THE TRANSMITTER.

PROGRAM 3:
ECHO TEST (ON-LINE)
THIS PROGRAM TRANSMITS A HEADING (*ECHO TEST*)
AND THEN ECHOS EVERYTHING THAT IT RECEIVES.

CAUTION:

ON EACH

LINE

IF CHARACTERS ARE RECEIVED FASTER THAN THEY CAN BE

TRANSMITTED,

THE

SOF TWARE BUFFERS MAY OVERFLOW.

NOTE:
THE ON-LINE EXERCISERS (PROG2 AND PROG3) ARE OPERATOR
DEPENDENT,
AND
THEREFORE
DO
NOT
LOOP.
I.E.
NO PASSES.
ACT11

AND DDP MONITORS WILL ONLY RUN PROCT.

MACY11 30A(1052)

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

H
SW15=
SW14=
SWw13=
Swi2=
Sw11=
Sw10=

SWITCH

J
21-JUN-78
14:01
SWITCH SETTINGS

1
PAGE 10

SEQ 0009

USE

100000
40000
20000
10000
4000
2000

JHALT ON ERROR
sNOT USED
JINHIBIT ERROR TYPEOUTS
JPRINT SILO ALARM LEVEL
;NOT USED
;0 - BELL ON PASS COMPLETE
;1 - BELL ON ERROR
;ON=-LINE (PROG1)
JSELECT LINES (INITIALIZATION TIME ONLY)

SW9=
1000
Sw8=
400
:Sw<0:2>

SELECT MESSAGE

.REM!

(PROG1 ONLY)

DJ17 REGISTER BIT ASSIGNMENTS:
CONTROL STATUS REGISTER (CSR) XXXXXO
RECEIVER ENABLE (READ.WRITE)
BITO
HALF DUPLEX SELECT (READ/WRITE)
BIT1
BITZ2
MAINTENANCE (READ/WRITE)
BIT3
CLEAR MOS (WRITE ONLY)
BIT4
CLEAR MOS FLAG (READ ONLY)
BITS
NOT USED
RECEIVER INTERUPT ENABLE (READ/WRITE)
BIT6
BIT?7
DONE (READ ONLY)
m§rsgfgam5mnm SCAN ENABLE (READ/WRITE)
BIT8

BIT9
BIT10
BIT11
BIT12
BIT13
BIT14
BIT1S

READ/WRITE BREAK REGISTER

NOT USED
STATUS ENABLE

FI/FO OVERRUN

BITO-7
BIT8-11
BIT12
BIT13
BIT15

(READ/WRITE)

(READ ONLY)

MASTER TRANSMITTER INTERUPT ENABLE
TRANSMITTER READY (READ ONCY)

RECEIVER BUFFER REGISTER

BIT14

(READ/WRITE)

(RBUF)

XXXXX2

(READ/WR]TE)

(READ ONLY)

RECEIVED CHARACTER

LINE NUMBER

PARITY ERROR
FRAMING ERROR

UART OVERRUN ERROR
CHARACTER PRESENT

TRANSMITTER CONTROL

(TCR)

XXXXX4

(READ/WRITE)

BITO-15 STOP THE SCANNER ON CORRESFONDING L INE
TRANSMITTER BUFFER

(TBUF)

XXXXX6

BITO-7 TRANSMITTED C(HARACTER (WRITE ONLY)
BIT8-11 LINE NUMBER (READ ONLY)
BREAK (ONTROL

STATUS REGISTER (BCSR) XXXXX&

(BIT10 OF

(SR SET)

(READ/WRITE)

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

MACY11 30A(1052)

21-JUN-78

K
14:01

DJ11 SPECIFICATIONS

1
PAGE 11

BITO-15 TRNSMIT A BREAK ON CORRESPONDING LINE!
EMT
107
177776

%0
%1
%2
%32
%4

%5
%5

%6
%7
4

40
100

200

400
1000

2000

4000
10000

20000

C00000

40000
100000
LEVEL7 = 340
OPEN =
0
STACK = 1200
000000
000000 000000

:TRAP CATCHER IN LOCATIONS 0 THRU 776
;LOCATIONS O AND 2 CONTAIN ‘HALT'' INSTRUCTIONS

0,0

;LOCATIONS 4 THRU 56 CONTAIN '‘.+2" AND ‘HALT'' IN EVERY VECTOR

;LOCATIONS 60 THRU 776 CONTAIN '‘.+2'* AND ''IOT'' IN EVERY VECTOR

000046

000046
014614

46
$ENDAD

000174
000176

000174
000000
000000

174

000200
001000

000200
0002137
001000
000137

001200

DISPREG-0
SWREG:
0

006312

007310

. =
.

200
JMP
1000
JMP
1200

BEGIN

RESTAR

;200 ALWAYS IS THE STARTING ADDRESS

JRESTART ADDRESS

SEQ 0010

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

501

it
il St

St Yt P

200000

ICNT:
0
ERRORS: 0

PCNT:

SWR:
1
DISPLAY:1

000000
000020

SAVIT:
TIMES:

;MINIMUM NUMBER OF "ESSA[(;ES1 (%061)

SVSW7:
SVSW10:
SVSW11:
2:
SvsSw*
SVSW13:
SVSW14:
SvSwi15:
SVSw16:
SVSw17:

sMAP OF
sMAP OF
:MAP OF
;MAP OF
;MAP OF
;MAP OF
;MAP OF
sMAP OF
:MAP OF
;MAP OF
;MAP OF
;MAP OF
;MAP OF
;MAP OF
;MAP OF
;MAP OF

BUFSIZ: 30
UNITS:
1
DEVADR:
VECADR: 300

;RECEIVE BUFFER SIZE (PROG3)
sNUMBER OF UNITS ON THE SYSTEM
sFIRST DEVICE ADDRESS
FIRST VECTOR ADDRESS

SVSW6:

519

SEQ 0011

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

SVSWO:
SVSW1:
SVSW2:
SvSw3:
SVSW4:
SVSW5:

21-JUN-78 14:01 PAGE 12
DJ11 SPECIFICATIONS

177570
177570

CONO
VIS NN =

SRR
AR R

000000
000000
000000

MACY11 30A(1952)

:
MARK

RCVLVL: 240

LINES SELECTED
1
LINES SELECTED, DJ11 #1
LINES SELECTED, DJ11 #2

LINES
LINES
LINES
LINES
LINES
LINES
LINES
LINES
LINES
LINES
LINES
LINES
LINES

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

XMTLVL: 240
ISRFLG: 0

s ++F

ALMFLG: 0
TIMERA: 0
TIMERB: 0

COUNT:
SUM:
LA

O
0

s TABLES

TII‘E COUNTERS

;VALUE OF THE SILO ALARM LEVEL

ARttt

eIl

222222222%;

I2222222222222;

001312

000400

XMTTAB:

.BLKW

400

;TRANSMIT DATA POINTER TABLE

002312

000400

RCVTAB:

.BLKW

400

;RECEIVE DATA POINTER TABLE (PROG1)
;RECEIVE DATA TABLE (PROG2 AND PROG3)

003312

000400

MAXTAB:

.BLKW

400

;POINTER FOR XMIT/RCV BFRS.

004312

000400
004313

RCVCONT=XMTCNT
+1

XMTCNT:

.BLKW

400

s TRANSMIT DATA COUNTER
JRECEIVE DATA COUNTER

005312

000400
005313

MASK :

BLKW

400

sCHARACTER MASK TABLE
;ITERATION COUNT AND FLAGS

CNTTAB=MASK +1

Jr++F

CZDJBFO DJ11 EXER & ONLNE

CZDJBF .P11
556
§57
558

006312
006316

21=JUN-78 13:56
012706
004737

§59 006322 012700
006326 012720
561 006332 012720
562 006336 012720
563 006342 012720

MACY11 30A(1052)

001200
016230

BEGIN:

21-JUN-78

SET UP AREA
MOV
JSR

000020
015712
000340
015550
000340

MOV
MOV
MOV
MOV
MOV

565 006352 012720 000340
566 006356 005037 001202

MOV
CLR

564 006346 012720 014630
567
568

006362
006366

005037
005037

570

006376

005720

569 006372
571
572
573

574
575

006400
006404
006410
006414
006416

576 006422
577 006430
578 006436

006444

001204
001206

012700 000300

010060
012720
022700

177776
000004
001000

003370
005037

001300

012737

000001

012737
012737
012737

28:

000400
000106
000106

001216

#STACK, SP
PC, SUSWRR

#20 R0
#I0TRAP, (RO)+
#340,
“(RO)+
#PDOWNS, (RO)+
#340,
(RO)+

MOV

cfnri. (RO)+

CLR
CLR

PCNT
PCNT+2

;SET
UP STACK POINTER

;10T VECTOR (20)
;POWER FAIL VECTOR (24)

;EMT VECTOR (30)

#340,
ERRORS

(RO)+

MOV

#300,

;START OF FLOATING VECTOR AREA

MOV
MOV
cMP

RO,
#10T,
#1000,

<2(R0O)
(RO)+
RO

:PUT "+2“ IN EACH VECTOR
-AND *'IOT
*CHECK FOR END OF FLOATING VECTOR AREA

MOV
MOV
MOV

#256. ,CNTNIT
#70..CNTNIT+4
#70. . CNTNIT+10

BGT
CLR

011232
011236
011242

L
14:01
PAGE 13

MOV

:CLEAR ERROR COUNTER
:CLEAR PASS COUNTER

(RO)+

2$
ALMFLG

1.TIHES

*UPDATE POINTER

*BRANCH
IF MORE
*CLEAR THE ALARM FLAG

:SET MAXIMUM SIZE VALUES
-FOR PROG #1

;SET FOR QV ON FIRST PASS

581

"ttttttttttttttttttttttttt"ttttttttttttttttttttfittttttttttttttttttttttt

583

;ttttttttttttttttttl’tttttttttttttttttti*tttttttttttttt.ttttt'ttttttttttt

582

JROUTINE TO MAP ALL THE DJ11'S ON THE SYSTEM

584
585

006452

013700

588
589
590
591
592
593

ggts.

006470
006472
006474
006476
006500
006504

006506

005001
000261
005710
103404
062700
005201

596

006510

005037

000006

599

006522

000004

016624

586
587

597
598

600
6‘31

006456
006462

012702
012737

000001
000002

DJMAP:

000006

000010

5%:
1%:

($:

000771

006514
006520

010137
001005

006526
006530

000000
000137

001266

MOV

MOV
MOV
CLR
SEC
ST
BCS
ADD
INC

(RO)
7%
#10,
R1

CLR

Y 1)

B8R
7%:

001264

MOV
BNE

TYPE,

HAL T
JMP

014542

DEVADR, RO

21,
#RTI,
R1

R2
an6

R1,
GETVEC

;GET FIRST FLOATING ADDRESS

*COUNTER FOR DJ11°'S
*RTI WHEN TIME-OUT

*SET UP COUNTER
*SET CARRY
*CHECK FOR A DEVICE
*BRANCH IF NONE
‘GO TO NEXT DEVICE ADDRESS
*COUNT DJ11'S

*LOOK FOR MORE

UNITS

MSGOT

JRESTORE TIMEOUT VECTOR

:SAVE COUNT

;TYPE 'NO DJ11°S!"

“FATAL ERROR
*RESTART

a4DONE

tttttttttttttfitttttttttttttttttittttttttttttttttttttttttttttttttttttttt

tttttttttttttttttttttttttttttttttttttttttttttttttltttttttttttnttttttttt

604
606
607

608

610
611

ROUTINE TO DETERMINE VECTOR ADDRESSES OF DJ11'S

006534

006540
006546
006552

013746

012737
013701
012711

000020

006570
001266
040400

000020

GETVEC: MOV

MOV
MOV
MOV

420,

=(SP)

#1$,"
a#20
DEVADR, R1
#50400° (R1)

:SAVE IOT VECTOR

:RESET IOT VECTOR
*FIRST DJ ADDRESS
“SET CSR

;BIT8= TRANS SCAN ENABLE

SEQ 0012

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

14: 01

PAGE 14

SEQ 0013

1 VECTOR MAPPING ROUTINE

000004

B8R

MOV

(SP),

;SAVE VECTOR ADR.

(SPS,

VECADR

:SAVE FIRST VECTOR

SUB

#10

CMP

(SP)+,

MOV
TST
MOV

(SP)+,
-(R2)
UNITS,

MOV
RT]

000020

3$:

001264

4(R1)

;BIT14= TRANS INTERRUPT ENABLE
;TCR, LINE O

MOV

WAIT

1%:

000010
001270

‘WAl T roa AN INTERRUPT

*CONTINUE AFTER INTERUPT
(SP)

(SP)+

@#20
R3

(+4)

:REPOSITION ADR TO RCV. VEC.
:RESET STACK FROM 10T

SRETURN FROM INITIAL INTERUPT

;RESTORE IOT VECTOR
*POINT TO XMT. VEC. +2
*SET UP UNIT COUNTER

:CHECK THAT VECTORS ARE CONTIGUOUS

000004

28:

000004

000010
00CJ10
000002
040400
000001

CLR
CLR

:CLEAR TCR
*CLEAR CSR

MOV

#10T,

(R2)

:RESTORE IOT TO XMT.

BEQ
ADD
ADD

REPORT
#10,
#10.

R1
R2

*BRANCH IF DONE
*UPDATE DJ ADR. POINTER
*UPDATE VECTOR POINTER

MOV

4(R1)

DEC

000004

4(R1)
(R1)

MOV
MOV
WAIT

#RT]
(R2)
:40460 (R1)

VEC.+2

:CHECK FOR MORE DJ11°'S

:RTI ON INTERRUPT
*SET CSR

:TCR LINE 0

‘WAIT FOR AN INTERRUPT

;REPORT CONF IGURAT ION
172312

EP=EN

W nO
~N o

(o8 &S

—

3228 228
—_

011602

000001

(V.Y
NV, Py, NV, Py

012761
000001
000407

006556
006564
006566

MACY11 30A(1052)D
21=JUN=-78

REPORT: BIT
BNE

#BIT13, @SWR
GETLEN

;CHECK FOR INHIBIT TYPOUT
*SKIP REPORT IF SET

DEVADR,TTY
PC,PRINTR

;TYPE DEVADR IN OCTAL
;TYPE LEADING ZERO'S

VECADR,TTY

TYPE,
TYPE,
TYPE,

MSGMDN
RETURN
MSGADR

TYPE,

MSGVEC

JSR

PC,PRINTS

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

UNITS,TTY

sTYPE UNITS

MOV
JSR
MOV

TYPE,

MSGNUM

JSR

PC,PRINTS

MOV

IN OCTAL

JAND SUPRESS LEADING ZERO'S

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

MACY11 :SOA(‘IOSZ)C 21-JUN-78

14:01
PAGE 15
HARACTER LENGTH MAPPING ROUTINE

658

ittt

i ittt
22332322323332

*ROUTINE TO MAP CHARACTER LENGTHS

659

SRR

022737

000176

001210

016126

AR A

GETLEN: CMP
BNE
JSR

6%:
1%:

10%:

2%:
3%:
000006

MOV
MOV
MOV
MOV

BIT
BNE

MOV
TST
BPL
MOV
ASL
ASL

ASL
ASL
BCC
CLR
ADD

A A A A A

5%:

177760

A A A AR AR

AR AR AR AR RRA

AR AR

AR AR AR AR AR AR

#SWREG, SWR

PC,CNTLU

UNITS,
RO
DEVADR, R1

JSET UP UNIT COUNTER
sSET UP DEVICE ADDRESS POINTER

#4615,

(R1)

sRCY ENB, CMOS, MAINT., TRANS SCAN ENB

R2,

4(R1)

;TRANS CONTROL, ONE LINE AT A TIME

#377,

6(R1)

;SEND A RUBOUT

?giflo,

(R1)

§21)

R2
R2
R2
R2

;SET UP LINE MARKER

JWAIT FOR MOS TO CLEAR

;WAIT FOR TRANS READY

;SKIP & LINES

;BRANCH BACK IF MORE LINES

4(R1)
#10,
?2

;CLEAR TCR
JUPDATE POINTER TO NEXT UNIT
sCHECK FOR MORE UNITS

UNITS,

JSET UP UNIT COUNTER

#MASK,
"6,

2£R1).

R2
R3

;SET UP CHAR LEN TABLE POINTER
;SET UP CHAR COUNTER

R4,
RS

;DUP DATA
JLINE # IN LOW BYTE

DEVADR,

(%:

A R

SEQ 0014

z;???bO.RS

;SET UP DEVICE ADDRESS POINTER

sSAVE AND CHECK CHAR PRESENT

,'CléEAR ALL BUT LINE #
- %

177400

R2.
RS
R&
#177400,R4
R4,
(RS)+
R4,
(RS)+
R4,
(RS)+
R4,
(RS)+

’;2

000010
000040

#10,
#40,

RO
4%

R1
R2

;MAKE POINTER TO CHAR TABLE
JMAKE DATA INTO MASK

;CLEAR UPPER BYTE
;SAVE THE MASK
;SAVE THE MASK

;SAVE THE MASK
;SAVE THE MASK

:COUNT TO 4

;ADDRESS POINTER TO NEXT DJ
.CHAR LEN TABLE POINTER
JCOUNT UNITS
sBRANCHY BACK IF MORE

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

MACY11 30A(1052)

SRR

1 4:

21=JUN-78

SEQ 0015

PROGRAM SELECT 1

AR A AR

AR AR AR

AR AR R AR AR AR RN AR AR AR AR AR R AR AR R AR AR AR

AR AR

:SELECT THE PROGRAM TO BE RUN
:PROGRAM 1:
OFF=LINE EXERCISER
ON-LINE EXERCISER (TRANSMIT LAST CHARACTER RECEIVED)
*PROGRAM 2:
:PROGRAM 3:
ON-LINE ECHO EXERC'SER
SRR

000042

AR A

SELPRO:

016605
015022
000400

001220
016434

016411

TST
BN

A AR

RS,

;CHECK FOR ACT 11 OR DDP
sBRANCH IF MONITOR

aSwWR

RO
#SVSWO,R1

sCHECK FOR SW<8>, SELECT LINES
sBRANCH IF NOT
sSET UP UNIT COUNTER, DISPLAY
sSET UP SWITCH TABLE POINTER

RO, TTY

;PRINT THE NUMBER OF

ALL

RETURN
MNUM

015376
016414

PC,PRINTS
MSGSEL

001214

SAVIT,(R1)+
RO
RO,
UNITS
SWITCH

R5 ,READIN

RESTAR

177777

ALL:

18:
.SBTTL

013700
001722
022700
103717
006300
000170

000001
007342
012004
013210

007332

sASL

THE DR11C

FOR THE SELECTED LINES

SAVIT

001264

001264
001220

AR AR AR AR R AR RN

sREAD A NUMBER FROM THE (TY

SELPRO

015022

AR AR AR AR AR AR AR AR AR AR

READIN

#BIT8,

SWITCH:

AR P AR

w42

ALL
MSGPRG

PROGNO

171776

R R

RESTAR:

000003

UNITS,

RO
1%

RESTART POINT

PROGNO,
SELPRO

43,

SELPRO
RO
@PROGAD

007332
PROGNG:
PROGAD
:

#SVSWO ,R1
#177777.(R1)+

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

sSET UP UNIT COUNTER
;SET UP SWITCH TABLE POINTER
sSET ALL LINES
sCOUNT UNITS
sBRANCH [F MORE

RO
(RO)

;DEFAULT TO PROGRAM 1

CZDJBFO DJ11 EXER & ONLNE
CZDJBF .P11
21-JUN-78 13:56
757
758
759
760
761
762
763
764
765
766
767
768
769
770
77
772
773
774
775
776
777
778
779
780

it
o
b

nN—=O

2
PAGE 17

AR AR AR AR

AR A AR A AR AR

SEQ 0016

AR ARk

TRANSMIT AND RECEIVE ALL LINES SIMULTANEOUSLY

OFF=LINE:
SW<% = 0
ON=LINE:
SW<9® =1
USES THE DATA TABLE SELECTED BY Sw<2:0>
EACH LINE REPEATS THE PATTERN AT LEAST 16 TIMES
PER PASS.

:tttttt*ttttt'tfitt*tttittttttt*fitttttififittttttttttttttt"tttttfittttttttt

001276
00

PROG1:

177776

000400

RESET
CLR
MOV

ISRFLG
#STACK,

MOV

#XMTTAB,R1

CLR

(R1)+

BIS
1§

2%:

MOV

DEC
BNE
MOV
INC
CLRB
DEC
BNE

#340, I¥PS

#2000,R2

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

*FIRST TABLE POINTER

*LENGTH OF TABLES (WORDS)

*CLEAR THE TABLE

R2
1$
#400,R2
R1
(R1)+
R2
2

;LENGTH OF MASK/COUNT TABLE

-*SKIP MASK

*CLEAR COUNT

;SET CSR'S EVERYTHING ENABLED
;SET TCR'S, ALL LINES ENABLED
001266
001270
010372
001272

PTINIT:

11%:

032711
001375
005737
001002

000020
001300

MOV
MOV
MOV
MOV

VECADR, R2
#RISRO, R3
R3,
(R2)+
RCVLVL, (R2)+

MOV
ADD

R1,
#2

MOV
MOV
CMP
MOV
CLR
BIS

R3,
XMTLVL.
(R3)+,
R1,
(RT)
#50510,

(R1)

BIT

#B%Té,

(R1)

TST

ALMFLG

TST

001274

050510

CMP

000002

052711

CLR

MOV

13%:

BNE

DEVADR, R1

(R3)+,

(R%)+

108

(R3)+

;SET UP RECEIVER INTERUPT VECTOR

:;ADD 4 TO R3

(R3)
(R3)+

*ADDRESS OF CSR
:ADDRESS OF RBUF

(R2)+
(R2)+

;SET UP TRANSMITTER INTERUPT VECTOR

(R3)+

;ADDRESS OF CSR
*CLEAR CSR
*SET UP CSR

(R3)+

JieeF

*PROCESSOR TO LEVEL 7

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

797
798
799

000000

A A AR AR AR

787
788
789
790
791
792
793
794
795

807
808
809

AT AR

;PROGRAM 1:

781
782
783
784
785

801
802
803
804
805

MACY11 30A(1052)
21-JUN-78 14:01
PROG1:
OFF-LINE EXERCISER

‘BITZ = CLEAR MOS
‘BITé = RECEIVER INTERUPT ENABLE
;BIT8 = TRANSMITTER SCAN ENABLE
;BIT12 = STATUS ENABLE
;BIT14 = TRANSMITTER INTERUPT ENABLE

;CHECK FOR MOS TO CLEAR
JHAS THE

JYES

SILO ALARM LEVEL BEEN CHECKED?

sie+F

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

813
814
815
816
817

007506
007512
007514
007522
007524

820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839

007542
007544
007546
007550
007556
007560
007566
007574
007602
007610
007612
007616
007620
007626
7630
007634
007640
007642
007646
007652

818
819

007532
007536

004737
006300
016061
006200
012737

017705
042705

006305
006305
012304

033761
001414
016564
016564
116564
116564
005724
006337
103354
032777
001024
052711
032711
001375
052711
062701
005200

MACY11 30A(1052)
21-JUN-78
14:01
PROG1:
OFF=LINE EXERCISER

010024
001220

171452
177770

000004
001260

'
001260

000004

011230
011230
011232
011232

001312
002312
004312
004313

001260
001000

10%:

158:

171362

000014
000020

20%:

000001
000010

12%:

840
841
842
843
gzg

007654
007660
007662
007670
007676

020037
001264
012737
042737
000406

001264

846
847
848
gég

007700
007704
007710
007712

052711
005761
100775
000755

000001
000002

000001
000140

’

001300
177776

21%:
22%:

851

SRR

852

PROG1

853

854

SEQ 0017

PC,ALMCK
RO
SVSWO(RO) ,4(R1)
RO
",
HARK

ASL
ASL
MOV

RS
RS
(R3)+,
R4
JSET UP CFFSET TO TABLES
MARK ,
4(R1)
sCHECK FOR LINE SELECTED IN TCR
15%
ADRNIT(5) ,XMTTAB(4)
ADRNIT(5) ,RCVTAB(4)
CNTNIT(5) ,XMTCNT(4)
CNTNIT(S)
,RCVCNT(4)
(R4)+
sINC OFFSET TO NEXT LINE
MARK
14%
#BIT9,
aSWR
;CHECK FOR ON-LINE
21%
JBRANCH IF ON-LINE
#14,
(R1)
sSET THE MAINTENANCE BIT AND CLR MOS
#BIT4,(R1)
;WAIT FOR MOS TO CLEAR
208
#1,(R1)
;TURN ON RCV ENABLE
#10,R1
JPOINT TO THE NEXT CSR
RO

BIT

BEQ
MOV
MOV
MOVB
MOVB
TST
ASL
BCC
BIT
BNE
BIS
BIT
BNE
BIS
ADD
INC
{MP
BNE
MOV
BIC
BR
BIS
ST
BMI
BR
AR R

ASWR
#177770, RS

RO,
UNITS
11%
#1 ,ALMFLG
#140,
#PS
FORGND

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

sNO,GO DO IT
SUNIT # = 2
;SET TCR BITS (CSR + &)
RESTORE UNIT COUNTER
:SET UP MARKER

sGET SWITCH SETTINGS
:MASK MESSAGE #

;SET THE ALARM LEVEL FLAG
;LOWER PROCESSOR PRIORITY
;GO DO IT

sTURN ON RCV EN
sCLEAR JUNK OUT OF THE RBUF

AR AR AR AR AR A AR A AR A AR R AR AR

AR R AR AR R AR AR

BACKGROUND PROGRAM TO MONITOR TABLES

RN AR AR R AR P AR AR AR AR

AR AR AR R AR

AR AR

AN AR

R AR

AN AR

AR RN AR ARAN RN

RR AR

: NOTE - PROGRAM MAY HANG IN A LOOP.

ggg

857
858
859
860
861
862
863
864
865
866
867
868

PAGE 18

JSR
ASL
MOV
ASR
MOV

MOV
BIC

14%:

. IF THIS HAPPENS, RUN DZDJA.
007714
007720
007724
007726
007730
007734
007736
007740
007744
007750

012701
012702
105711
001376
062701
005302
001372
012701
012702
121137

007754

003375

004312
000400
000002
004313
000400
001306

FORGND: MOV
MOV
21%:
TSTB
BNE
ADD
DEC
BNE
MOV
MOV
22%:
CMPB
BGT

#XMTCNT
R
#400,R2
(R1)
21%
#2.R1
R2
21%
#RCVCNT ,R1
#400,R2
(R1),COUNT
22%

;CHECK FOR COUNT TABLE CLR
sBRANCH IF NOT
;GO TO NEXT LINE ENTRY
;COUNT LINES
:BRANCH IF MORE LINES
,IS # OF CHAR LEFT IN RBUF LESS THAN
sTHE SILO ALARM LEVEL
JiF NO WAIT FOR THEM

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

869
870
871
872
873
874
875
876
877

007756
007762
007764
007766
007772
007774
010000
010004
010006

062701
005302
001371
005337
001402
000137
005737
001002
000004

879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
8%
895
8%
897

010020
010024
010032
010036
010042
010046
010052
010056
010064
010066
010070
010076
010102
010104
010106
010112
010114
010116
010120

000137
012761
052711
052711
005037
005037
005037
012737
005711
100373
112761
005237
105711
100405
004537
000773
000760
000742
042711

899
900
901

010130
010136
010140

022737
001437
063737

903
904
905
906

010154
010156
010160
010166

908

878

898

902

010012

010126

010146

012737

052711

023727

MACY11 30A(1052)

000002

016360

000020

014542
000001
000004
000001
001306
001310
001302
000200
000377
001306

3%:

JMP
MOV
BIS
BIS
CLR
CLR
CLR
MOV
TST
8PL
MOVB
INC
1STB
BM]
JSR
BR
BR
BR
BIC

S#DONE
#1,4(R1)
#IT2, (R1)
#1, (R1)
COUNT
SUM
TIMERA
#200, TIMERB
(R1)
2$
#377.6(R1)
COUNT
(R1)
3s
RS, TIME
1%
2%
ALMCK
#BITO, (R1)

5%:

CMP
BEQ
ADD

BLT
BEQ
SUB
MOV

13
6$
COUNT, SUM
SUM,CNTNIT+4

*THREE SIZE LOCATIONS
*IF EQUAL USE IT
*IF GREATER SUBTRACT ONE COUNT OFF
:AS CLOSE TO 70 AS POSSIBLE

ADD

COUNT , SUM

;CONTINUE TO A COUNT OF 256

COUNT
, SUM
SUM, CNTNI T
11%

;AS CLOSE TO 256 AS POSSIBLE
*ALL SET GET OUT

001216

1i$:

000004

ALMCK:

001304

2%:

000006
1%:

010336

000010
000001

001306

001310

002771
001403
163737
013737

001310

000706

001306
001310

001310
011236

6$:

010202

063737

001306

001310

7%:

91C
911
912
913

010216
010220
010226
010234

002771
163737
013737
11

001306
001310

001310
011232

10%8:

915

010244

4$:

907
909

914

010174

010210

013737

023727

001310

011242

000377

010236

012737

000377

011232

916

010252

012737

000106

011242

918
919
920
921
922
923
924

010264
010270
010272
010276
010304
010306
010312

032711
001375
004737
032777
001413
000004
010105

000020

917

010260

012737

042711

000106

000004

016310
010000

016733

011236

11$:
128:

170704

SEQ 0018

#2,R1
R2
22%
TIMES
23s
PROG1
ISRFLG
1%
TRNERR

23$:

000001

2
PAGE 19

ADD
DEC
BNE
DEC
BEQ
JMP
ST
BNE
TYPE,

001216
007342
001276

F
21-JUN-78
14:01
BACKGROUND MONITOR

MOV

BIS

cMP

MOV
CMP

BLT
SuB
MOV
BR

#20, TIMES

#BIT3. (R1)
#1,COUNT
4$
COUNT, SUM

SUM,#70.

SUM. CNTNIT+10
SUM, #3577

MOV

#377.,CNTNIT

MOV

#70. CNTNIT+10

BIT
BNE
JSR
BIT
BEQ
TYPE,
MOV

#BIT4. (R1)
12%
PC,KBDINT
#SW12,aSWR
13$
MALARM
R1,TTY

MOV

BIC

#70.
. CNTNIT+4

#BiT2.(R1)

:IF YES IGNORE THEM
*COUNT LINES
"BRANCH IF MORE LINES
:DO THIS AGAIN?
:NO, GET OUT

:SEE IF FLAG IS ZERO
*IF NOT, BR
*IF YES. RCV DATA ERROR

i ++F
i ++F
Liesf

‘DO IT 16 TIMES THE NEXT TIME

*SKIP ISR'S
SSET LINE O IN THE TCR
“SET THE MAINT BIT
*SET RCV EN AFTER MAINTENANCE BIT

:SET UP TIME CONSTANTS
;WAIT FOR TRANSFER READY BIT
;OUTPUT A CHAR TO TBUF
*COUNT EACH CHAR
SCHECK FOR DONE IN THE CSR
“IF SET GET OUT OF THE LOOP

*GIVE DONE TIME TO SET
*RETURN TO TEST FOR DONE AGAIN
*RETURN TO OUTPUT ANOTHER CHAR
:ERROR RETURN TRY AGAIN
*TURN OFF RCV ENABLE

*CLEAR MOS

JIF SILO LEVEL SET FOR 1

THEN GET OuT

:GET THE LARGEST MULTIPLE OF

THE

:SILO ALARM LEVEL AND USE IT IN THE

*PUT SIZE TO MAX VALUE

:TURN OFF THE MAINT BIT
‘WAIT FOR MOS TO CLEAR

JGET THE SWITCH REGISTER
*PRINT ALARM LEVEL?
INO
JYES, PRINT (SR FIRST

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

010314

004737
000004

MACY11 30A(1052)

21-JUN-78

BACKGROUND MONITOR

015366

JSR

015366

001302

PC,PRINTR

COUNT,TTY
PC,PRINTR
PC

;PRINT ALARM LEVEL

13%:

MOV
JSR
RTS

MSGDAS

TIME :

INCB

TIMERA

; INCREMENT THROUGH ONE WORD

ggg

{;MERB

JMAKE TIMERB LARGER IF FAST PROCESSOR

000022

BNE

2%:

1%:

;GO TEST FOR DONE AGAIN

CMP
BNE

COUNT ,#22
2%

TST

(RS)+

RTS

HLT+1

010370

2
PAGE 20

TYPE,

001304
001306

G
14: 01

TST

;HAVE OUTPUTTED 18 TIMES
;NO, GO OUTPUT ANOTHER CHAR

;KES.DEQE DID NOT SET AFTER 18 OUTPUTS
;SET RS FOR ERROR RETURN

(RS)+

;SET RS FOR NEXT OUTPUT RETURN

JRETURN FROM ABOVE OR RETEST DONE

:ttttttttttttfitt'tttttt"ttttttttfittttttt..tttttttitt'tttttttttttttttttt

;PROGT

LINKERS TO DJ11

INTERRUPT SERVICE ROUTINES

"!tttttttttttttfitttttti'ttt"ttttttttttttttttttttt'ttttt'ttttQ't'tttt'tt

010372

RISRO:

JSR

RO,RCVISR

XiSRO:

JUSR

RO, XMTISR

RISR1:

JSR

RO.RCVISR

XISR1:

JSR

RO, XMTISR

RISR2:

JSR

RO,RCVISR

XISR2:

JSR

RO_XMTISR

.WORD
.WORD

WORD
.WORD

.WORD

<160012+<0*10>>,<40+0>
<160010+<0*10>>,<40+0>
<160012+<1+10>>,<401>
<160010+<1%10>>,<40+1>

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

RISR3:

WORD
JSR

<160010+<2+10>>,<40%2>
RO.RCVISR

XISR3:

JSR

RO XM

RISR4:

JSR

RO,RCVISR

XISR4:

JSR

RO, XMTISR

RISRS:

JSR

RO,RCVISR

XISRS:

JSR

RO, XMTISR

RISR6:

JSR

RO,RCVISR

XISR6:

JSR

RO, XMTISR

RISR7:

JSR

RO,RCVIS

XISR7:

JSR

RC,XMTISR

.WORD
.WORD

.WORD
.WORD
LWORD
.WORD

.WORD
LWORD

<160012+<3-10>> <40+3>

<160010¢<3t10>> <40+3>
<160012+<4-10>>.<40-4>
<160010+<4t10>>,<40'4>

<160012¢<S-10>> <40*5>
<160010+<St10>> <40+5>
<160012+<6*10>>,<40%6>
<160010+<6-10>> <40*6>

<1600120<7-10>> <40x7>
<160010+<7+10>>,<40%+7>

SEQ 0019

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

981

010572
010576
010602
0606

RISR10: JSR

.WORD

RO, XM

RISR13: JSR

RO,.RCVISR

XISR13: JSR
.WORD

RO XMTIS
<160010¢<13-10>> <40%13>

JSR

.WORD

g
D
d
d
d
D
D e
)

<160010¢<12'10>> <40*12>
<160012+<13*10,> <40%13>

RO,RCVISR

<160012+<14t10>> <40*14>

RISR1S5:

RO.RCVISR

.WORD

JSR

.WORD

<1600104<14t10>> <40%14>

<1600120<1St10>> <40*15>

RO, XMTISR
<160010¢<15t10>> <40%15>

RISR16:

JSR

RO.RCVISR

XISR16:

JSR

RO _XMTISR

RISR17: JSR

RO.RCVISR

XISR17: JSR

RO, XMTISR

.WORD
.WORD

.WORD

<160012¢<16'10>> <40*16>
<160010*<16'10>> <40%16>

<160012*<17'10>> <40x17>

<160010¢<17-10>> <40%17>

SRR A

A A AR AR A AR R AR A

:PROG1

TRANSMITTER

AR AR

INTERRUPT

A AR R AN AR A AR AR AR AR AR R AR AR AR R R AR AR

AR AR

SERVICE ROUTINE

'tt'ttfi..t..t'.ti.lflt.'it."t.tfiI'.t'tt't.tt...t.t..t"tt.'t.'."'.'.'.

RRR I=r=) N=
OOOO§ %
rE nNOoOSMMNO

R
S Y
R
S

G
R

JESES SN SR Y

elelelelelelolelolelelelels]

—

<160012+<12t10>> <40*12>

RO, XMTISR

.WORD

VOO
NS WN=O

D
D
)
D

<160010+<11t10>> <40%11>

XISR14: JSR

XISR15: JSR
.WORD

<160012¢<11t10>> <40*11>

XISR12: JSR

RISR14:

1008

ISR

RO,RCVISR

.WORD

<160012+<1o-1o>> <40%10>

RISR12: JSR

.WORD

RO,RCVISR

RO, XM

.WORD

SEQ 0020

XISR11: JSR

.WORD

eleololololelololels)

2
PAGE 21

.WORD <1éoo10+<1o~10>>
<40%10>
RISR11: JSR
RO,RCVISR
XISR10: JSR

.WORD

—

H
14:01

MACY11 30A(1052)ISZ1-JUN-78
R LINKERS

010146
010246
012001
005711
100035
116102

006

XMTISR:

18:

000007

001312

MOV
ST

BPL
MOVB
ASL
ADD

004312

001312
004312
001312

MOV
MOV

TSTR

000006

’$:

BEQ
MOVB
DECB
INC
BR
MOV
(LR
SUB
ASR

R1,-(6)
R2.-(6)

:PUSH R1 ON STACK
*PUSH R2 ON STACK

(R1)

:CHECK FOR TRANS READY

(RO) +.R1

43
7(R1).R2
R2
(RO) ,R2

XMTCNT(2)

2%
aXATTAB(2),6(1)
XMTCNT (2)
¥QTTAB(?)
i
R3,-(SP)
XMTTAB(2)
(n?) ,Re

:GET LINE NO.
:TST FOR ZERO

;SEND A (HARACTER
s COUNT CHARACTERS
JUPDATE TABLE POINTER
JCLEAR

TABLE POINTER

CZDJBFO DJ11 EXER & ONLNE
CZDJBF .P11
21-JUN-78 13:56
1037
1038
1039
1040

011054
011056
011060
011062

005003
000261
006103
005302

1042

011066

040361

1045

011076

1049

011104

1041

011064

100375

1043 011072 012603
1044 011074 000741

4%:

000002
:PROG1

011106
011106
011110
011112
011114

RCVISR:

010146
010246
010346
010446

18:

1065
1064
1065

011156
011130
011132

032705
001403
104002

070000

1071
1072
1073
1074
1075

011134
011140

042702
010204

070000

1077

011152

011150

061004

011142
011144
011146

105004
000304
106304

117403

011156

046403

1080
1081
1082

011164
011166
011172

001403
042703
104003

1086
1087

011174
011200

105364
001403

1090
1091

011210
011210

012604

1083
1084
1085

011162

1088 011202
1089 011206
1092

SEQ 0021

R3
R2

BIC

R3,4(R1)

;CLEAR TCR BIT FOR LINE

MOV
MOV
MOV

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

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

MOV
BR

(SP)+,R3
13

*RESTORE R3

RECEIVER INTERRUPT SERVICE ROUTINE

.'t'Qtt'QQ'Q.‘.t.tt'.'t."'."t'....'........'........Q.t"..'.....'."...

1060 011116 012001
1061 011120 011102
1062 011122 100032

1079

PAGE 22

:tttQttQt't.t"t..t.'ttt"'"."QQ.Q..'....fit.t'......tQtt't.'...'t.".t

1052

1078

(LR
SEC
ROL
DEC

RTI

1053

1076

21-JUN=78
14:01
TRANSMITTER ISR

BPL

000004

1051

1066
1067
1068
1069
1070

30A(1052)

38:

1046 011076 012602
1047 011100 012601
1048 011102 012600

1054
1055
1056
1057
1058
1059

MACY11

011212

120302

005264
000744

012603

2%:

R1,-(6)
R2.-(6)
R3.-(6)
Ré&.=(6)

;PUSH R1 ON STACK
:PUSH R2 ON STACK

BIT
BEQ
HLT+2

#70000,R2
2%

:CHECK FOR ERRORS
BRANCH IF OK
:RECEIVER ERROR

BIC
MOV
(LRB
SWAB
ASLB

#70000, R2
R2,
RG
R4
R4
R4

MOVB

@RCVIAB(R4)
,R3

MOV
MOV
BPL

ADD

002312
005312

38:

002312
7%

(RO) + R
(R1) ,R2
7$

(RO) R4

BIC

MASK(4),R3

(MPB

R3,R2

BEQ
BIC _
HLT+3

177400

004313

MOV
MOV
MOV
MOV

33
#177400,R3

DECB
BEQ

RCVCNT(4)
7$

MOV

(L)

INC
BR

MOV

RCVTAB(4)
k3
,R4

(6)+.R3

PUSH R3 ON STACK
:PUSH R4 ON STACK

:GET RBUF ADDRESS
:READ THE DATA
:BRANCH IF NO CHAR PRESENT

:R1=RBUF ADDRESS
R2=CONTENTS OF RBUF
:BIT12=PARITY ERROR
:BIT13=FRAMING ERROR
*BIT14=UART OVERRUN

:CLEAR ERROR BITS FOR SPEED
:DUP THE RBUF

*CLEAR THE DATA
SLINE # TO LOW BYTE
ILINE # « 2, ALSO CLR CHAR PRESENT

:ADD OFFSET

:GET EXPECTED DATA

IMASK CHARACTER LENGTH

;BRANCH IF 0K
MAKE SURE UPPER BYTE CLEAR
:DATA ERROR

:R1=RBUF_ADDRESS
:R2=CONTENTS OF RBUF (DATA)
:R3=EXPECTED DATA

;UPDATE TABLE POINTER
* CONT INUE
;POP STACK

INTO R4

*POP STACK INTO R3

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

MACY11 30A(1052)

21-JUN-78
14:01
RECEIVER ISR

1093

011214

012602

MOV

1095
1096
;ggg

011220
011222
011226

012600
005237
000002

MOV
INC
RTI

1094

011216

012601

MOV

001276

2
PAGE 23

SEQ 0022

(6)+,R2

: POP STACK INTO R2

(6)+,R0
ISRFLG

sPOP STACK INTO RO
;STEP INT SVC RTN FLAG

(6)+,R1

;POP STACK INTO R1

1099

1100
1101
1102
1103

;PROG1
DATA TABLES
AR AR AR AR AR R RN AR AR R R RN R R AR R R AR AR AR

011230

011274

ADRNIT: BINARY

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
1145
1146
1147
1148

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
011311
011312
011313
011314
011315
011316
011317
011320
011321
011322
011323
011324
011325
011326
011327
011330
0113%7

011674
000106
011266
000106
016770
000001
017370
000001
017770
000001
020370
000001
020770
005015
04
041
042
043
044
045
046
047
050
051
052
053
054
055
056
057
060
061
062
063
064
065
066
067
070
071
072
073
074
075

PHRASE
;SW<2:0>=1 "THE QUICK SILVER GRAY FOX..."'
70.
:SIZE=70.
SIXBIT
;SW<2:0>=2 040 THRU 137
70.
:SIZE=70.
END
1
END+400
1
END+1000
1
END+1400
1
END+2000
)
SIXBIT: .ASCII
<15><12><377><377><377><377>
;CR=LF, FILLERS
BINARY: .BYTE
40
BYTE
&
BYTE
42
BYTE
43
BYTE
44
BYTE
45
BYTE
46
BYTE
47
BYTE
50
BYTE
51
BYTE
52
BYTE
53
BYTE
54
BYTE
55
BYTE
56
BYTE
57
BYTE
60
BYTE
61
BYTE
62
BYTE
63
BYTE
64
BYTE
65
BYTE
66
BYTE
67
BYTE
70
BYTE
71
BYTE
72
BYTE
73
BYTE
74
BYTE
75

1106

011232

000377

CNTNIT: 377

177777

sovof
RN

AR RN AR AR

AN AR AN AR

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

;SI1Z2E=256.

R R

1|q|

PPTj——oel—OTe)epTl—oeOlTe=loelT=olTe=UlM=OTa0l=TelO=OeO(lT=Ne.=leAT=lOe0TFTloU00lMoT00l=oT0Pl0a0TP©lM00OeOlo00eWlM=00TAeTsl00oMCT0l0UoTM00lMore00—lOoT00leoO00lNe00ol=W0NAolA0eZo=SRlU00oRAMl0T0=oRr00lA==Ro=A©00lPo00lAO=o01FlA1e0AlFTe00olA(TOOoURlMToA=TleTRoeOTAloRTelAIoeTTlI0aeTlSTTelSUTToMlBeTToBl=TToSOelTTAoITlTAoeVTlUoOTVlAeITVlOLoUAlOMeR
N—0—UOTM~MTOIO—O—ANTNTWNT—NN=IO=MJTNFWNT=OSNTST—r=STN—INrMTNIOS—OrMTN—TrMI—NMrU—M(MO—=NOeNTOTIeOIe—OIeCeIeOIeUMeOeeIeeOeTIONONeONe

1231S2g3Yg5S7YG9S1PP2P3GG5G7PP8GG.9G0[1GG234g56GG7g8g9g1gG3g5g7G9(D0ge1g2g3g4g5g6gg7g8P

4Own506075015O2Nn35n455n%i7&an061&TN263“T46N5%T66N7&N06T17S2M374M57M6M770O17N2”3&N48N568NO7&I08M1%283“485%69O79091%293%49W59W6”O7mO0mO1mO2Ow3Om
CZDJBFO D211 EXER & ONLNE
CZDJBF .P11
21-JUN-78 13:56
MACY11
30A(1052)
DATA TABLES

21-JUN-78
14:01

2
PAGE 24

SEQ 0023

CZDJBFC DJ11 EXER & ONLNE
CZDJBF P11
21-JUN-78 13:56
1205
1206
1207
1208
1209
1210
1211

1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1226
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260

011422
011423
011494
011425
011426
011497
011430

01143]
011432
011433
01143
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
011511

166
167
170
171
172
173
17

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
941
42
243
244
245
246
247
250
251
252
253
254
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
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
BYTE
BYTE
BYTE
BYTE
BYTE

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
207
230
231
232
233
234
235
236
237
240
241
242
243
244
245
244
247
250
251
252
253
227
255

14:01

PAGE 25

SEQ 0024

E%gjg;OPDJ11 EXER & ONLNE
1"
21-JUN-78 13:56
1261

1262
1263
1264
1265
1266

1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278

1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307
1308
1309
1310
1311
1312
1313
1314
1315
1316

011512

011513
011514
011515
011516
011517

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
011554
011555
011556
011557
011560
011561
011562
011563
011564
011565
011566
011567
011570
011571
011572
011573
011574
011575
011576
011577
011600
011607

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
3N
312
313
314
315
316
317
320
321
322
323
324
325
326
327
330
331
332
333
334
335
336
337
340
341
342
343
344
345

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
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
BYTE
BYTE
BYTE
BYTE
BYTE

256

257
260
261
26
26
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
334
335
33¢
337
340
341
342
343
347
345

m
14:01

2
PAGE 26

SEQ 0025

g1eB1e0e1go1o(=1(.o01l001001s0010.010s0100,10010.01200y1,00.100101001001T01TT1T01TT1OT1TT1TT1TT1TT1O

A ~ —

Rtlie=olIo=lSele&lsleole8leRle8olaeloeB&wlene6alueRn&lenolIe&lo&ele6\lnoleo6le6oleSl6ea]lel6oRlol&olOMol&RoMlel&MSeNo3RlMo&Nlo3lo6Alol3o6Rlol36olol6oelolal8eol0el5ol0oTRlNM0elN0e—lM0rol0oMl0&eNloMlNelMetNole
CZDJBFO DJ11 EXER & ONLNE
21-JUN-78 13:56
CZDJBF .P11

MACY11 30A(1052)

21-JUN-78
DATA TABLES
14:01

2
PAGE 27

SEQ 0026

CZDJBFO DJ11 EXER & ONLNE
CZD.BF .P11
21-JUN-78 13:56
1373

011672

}%;g

011673

037

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

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

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

MACY11 30A(1052)

21-JUN-78
DATA TABLES

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

PHRASE:

.EVEN

PAGE 28

SEQ 0027

.BYTE

.ASCII
LASCIZ

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

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

14:01

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

MACY11

1389
1%80

RN RRE R AR

1395

SRR AR

1391
1392
1393
1394

1396
1397
1398
1399
1400
1401
1402
1403
1404
1405

1406
1407
1408
1409
1410
1411
1412

;PROGRAM 2:
]
5
012004
012006
012012
012020
012024
012030
012032
012034
012036
012042
012044
012046
012050

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

001200
000340
001312
002000

PROG2:

177776
1%:

000400

2%:

1414

}2}2
012052
012054
012060
012064
012070
012072
012076
012100
012102

005000
013701
013702
012703
010322
013722
022323
010113
062723

1427
1428
1429
1643C

012110
012112
012116
012120

010322
013722
022323
010123

012106

012122

005723

012721

1432
1433
1434
1435
1436
1437
1438
1439
1640
1441

012126
012130
012132
012136
012140

005721
006300
016011
005200
012737

1443
1444

012150
012154

033711
001406

1642

RESET
MOV
BIS
MOV
MOV
CLR
DEC
BNE
MOV

INC
CLRB
DEC
BNE

ON=LINE MULTI-ECHO EXERCISER
TRANSMITS THE LAST CHARACTER RECEIVED ON ITS RESPECTIVE
LINE.
A CARRIAGE RETURN AND LINE FEED ARE INSERTED
EVERY 72 CHARACTERS.

AR AR

R AR

#STACK, SP
#340,
a#PS
#XMTTAB,R1
#2000,
R2
(R1)+
R2
1%
#400,R2

R1
(R1)+
R2
2%

R R AR AR AR AR AR AR AR

AANRRAARRAAAAR AR AR

;CLEAR OUT THE WORLD
JRESET THE STACK POINTER
;PROCESSOR TO LEVEL 7
;FIRST TABLE POINTER
sLENGTH OF TABLES (WORDS)
;CLEAR THE TABLE

sLENGTH OF MASK/COUNT TABLE
:SKIP MASK
;CLEAR COUNT

;SET TCR'S, ALL LINES ENABLED

1417
1418
1419
1620
1421
1622
1423
1424
1425

1431

012146

012304

P2INIT:

001266
001270
012242

1%:

001272

000002
001274

050501

001220
000001
001260

CLR
MOV
MOV
MOV
MOV
MOV
CMP
MOV
ADD

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

MOV
MOV
cMP
MOV

R3,
XMTLVL,
(R3)+,
R1

TST

001260
4% :

(R3)+

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

MOV

#50501, (R1)+

ST
ASL
MOV
ASR
MOV

(R})+
RO
SVSWO(RO)
(R1)
,
RO
#1
MARK

BIT
BEQ

Mk,
5%

MOV

SEQ 0028

R R AR AR AR RN AR AR AR ARRARRARARARARARRA AR AR AR

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

1413

1426

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

(R$)+,

(R1)

;SET UP POINTER TO LINKERS
:SET UP RECEIVER INTERUPT VECTOR
:ADD 4 TO R3
*ADDRESS OF CSR
:ADDRESS OF RBUF

;SET UP TRANSMITTER INTERUPT VECTOR
:ADDRESS OF CSR

:SET UP CSR

:BITO = RECEIVER ENABLE
*BIT6 = RECEIVER INTERUPT ENABLE
‘BIT8 = TRANSMITTER SCAN ENABLE
*BIT12 = STATUS ENABLE
BIT14 = TRANSMITTER INTERUPT ENABLE

SUNIT #
2
:SET TCR BITS FOR SELECTED LINES
SRESET UNIT COUNTER
-SET UP MARKER

:SET UP OFFSET TO TABLES

:CHECK FOR LINE SELECTED

308

ER & ONLNE
21-JUN-78 13:56

012764

016641
000045

MACY11 30A(1052)
PROGZ :

001312
004312

001260

5%:

177776
AR

;PROGZ
s

020000

14:01

3
PAGE 30

MOV
MOV
TST
ASL

#MSGP2, XMTTAB(4) ;SET UP XMTR TABLE
w45,
XMTCNT(4) ;SET UP COUNT
(R4) +
sINC OFFSET TO NEXT LINE
MARK

(MP
INC
CMP
BNE
BIC

(R1)+,
RO
RO,
1%
#1640,

(R1)+

;ADD &

UNITS
a#PS

AR AR A AR AR

;LOWER PROCESSOR PRIORITY
AR AR AR

AR AR

AR AR AR

AR AR AR AR AR

AR AR AR A AR R AR AR AR AR R AR AR AR ARk

#20000,R0

;TOP OF 4K BANK OF MEMORY

1%:

ADC

-(R0O)

JFAST READ/WRITE TO MEMORY

BNE
TST
BNE
AR

1%
RO
1%

FORPZ2

;LOOP FOR EVER!

e R332
33323322222322 222322222

SRR

A AR AR

R2SRO:

JSR

X2SR0O:
R2SR1:

012642
000040
013034

R2SR2:

012642

X2SR2:

100

X2SR1:

R2SR3:
X2SR3:
R2SR4:

X2SR4:
R2SRS5:

JSR

LWORD

RO,P2RISR

<160012+<0*10>>,<0*40>
RO,P2XISR
<160020+<0*10>>,<0*40>
RO,P2RISR
<160012+<1%10>>,<1%40>
RO,P2XISR
<160020+<1+10>>,<1%40>

JSR
LWORD
JSR

RO,P2RISR

JSR
LWORD
JSR
.WORD
JSR
LWORD

RO,P2XISR
<160020+<2+10>>,<2*40>
RO,P2RISR
<160012+<3*10>>,<3%40>
RO,P2XISR
<160020+<3+10>>,<3%40>

LWORD

JSR

.WORD
JSR

LWORD

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

RO.P2RISR

<160012+<4*10>>,<4*40>
RO,P2XISR

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

RO,P2RISR
<100012+<5«10>>,<5+40>
RO,P2XISR

X2SR6:

JSR
LWORD
JSR

RO,.P2RISR
<160012+4<6%10>>,<6+40>
RO,P2XISR

R2SR7:

JSR

RO,P2RISR

R2SR6:

012422

.WORD
JSR
WORD

AR A AR AR R A A AR AR AR AR

JSR
.WORD
JSR

X2SRS5:

ke ehk

;RAPID REPEAT
sCHECK FOR LOC O
;BRANCH IF MORE MEMORY

:PROG2 LINKERS TO DJ11 INTERRUPT SERVICE ROUTINES

000040

AR AR A AR ARk

FOREGROUND PROGRAM TO READ/WRITE MEMORY

AR A AR

013034
000000
012642
000000
013034

?Eg

012242

FORP2:

012240

SEQ 0029

ON-LINE EXERCISER (TRANSMIT LAST CHARACTER RECEIVED)

B8CC

001264
000140

21-JUN-78

.WORD

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

<750020+<6*10>>,<6+40>

AR AR AR AR AR R AR AR R A A AR R AR AR AR AR AR

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

MACYT1 30A(1052)

21-JUN-78
ISR LINKERS

PAGE 31

1501
1502

012426
012432

160102
004037

000340
012642

X2SR7:

1506

012442

004037

013034

R2SR10: JSR

RO.P2RISR

012452

004037

012642

X2SR10: JSR

RO,P2XISR

012462
012466
012472
012476
012502

004037
160122
004037
160130
004037

013034
000440
012642
000440
013034

R2SR11: JSR
LWORD
X2SR11: JSR
LWORD
R2SR12: JSR

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

012512
012516
012522
012526
012532
012536
012542
012546
012552
012556
012562
012566
012572
012576
012602
012606
012612
012616
012622
012626
012632

004037
160140
004037
160142
004037
160150
004037
160152
004037
160160
004037
160162
004037
160170
004037
160172
004037
160200
004037
160202
004037

012642
000500
013034
000540
012642
000540
013034
000600
012642
000600
013034
000640
012642
000640
013034
000700
012642
000700
013034
000740
012642

X2SR12: JSR
LWORD
R2SR13: JSR
LWORD
X2SR13: JSR
LWORD
R2SR14: JSR
LWORD
X2SR14: JSR
LWORD
R2SR15: JSR
LWORD
X2SR15: JSR
LWORD
R2SR16: JSR
LWORD
X2SR16: JSR
LWORD
R2SR17: JSR
LWORD
X2SR17: JSR

RO, P2XISR
<160020+<12+10>>,<12%40>
RO,.P2RISR
<160012+<13+10>>,<13%40>
RO.P2XISR
<160020+<13%10>>,<13+40>
RO.P2RISR
<160012+<14*10>>,<14*40>
RO.P2XISR
<160020+<14%10>>, <14%40>
RO.P2RISR
<160012+<15%10>>,<15%40>
RO,P2XISR
<160020+<15+10>>,<15%40>
RO.P2RISR
<160012+<16%10>>,<16%40>
RO.P2XISR
<160020+<16%10>>,<16*40>
RO.P2RISR
<160012+<17%10>>,<17%40>
RO,P2XISR

1503
1505

1506

1507

1508
1509
1510
1511
1512

1513

1514
1515
1516
1517
1518
1519
1520
1521
1522
1523
1524
1525
1526
1527
1528
1529
1530
1531
1532
1533
1534

%ggg

012436
012446
012456

012506

012636

160110

000340

160112

000400

160120

000400

160132

160210

.WORD

000500

LWORD

000740

LWORD

;PROGZ

1539

1544

1547

1548
1549
1550
1551
1552
JSSS
1554
1555
1556

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

<160020+<7%10>>,<7%40>

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

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

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

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

.'titt'ttttttttitttttttt"tttttttt.'tt'ttttQt.tttttttttt!"'tttit'tti'..t

1538

1545
1546

LWORD
LWORD

1537

1540
1541
1542
1543

WORD
JSR

14:01

TRANSMITTER INTERRUPT SERVICE ROUTINE

:tttttttt'ttt.ttttttt'ttt'ttt.ttQtttttttt'ttt.ttttlttt"Qttttttt"tttt.t

012642
012642
012644

010146
010246

012650
012652

005711
100064

012660
012662
012664
012670
012672
012700
012704
012710
012712

006302
061002
105762
001413
117261
105362
105762
001357
005262

012646

012654

P2XISR:

012001

116102

1%:
000007

005313

001312

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

:PUSH R1 ON STACK
;PUSH R2 ON STACK

TST
BPL

(R1)
43
7(R1) ,R2
R2
(RO) ,R2

;CHECK FOR TRANS READY

MOV
MOVR

004312
001312
004312

MOV
MOV

000006

ASL
ADD
TSTB
BEQ
MOVB
DECB
TSTB
BNE
INC

(RO) +,R1

sGET LINE NO.

XMTCNT(2)
:TST FOR ZERO
2$
*GET oUT
AXMTTAB(2) ,6(R1):SEND A CHARACTER
XMTCNT (2)
;COUNT CHARACTERS
CNTTAB(?2)
sCHECK FOR MESSAGE OR DATA
13
*BRANCH IF DATA
XMTTAB(2)
*UPDATE TABLE POINTER

SEQ 0030

CZDJBFO DJ11 E XER & ONL NE
CZDJBF .P11
21-JUN-78 13:56

000754

30A(1052)

21-JUN-78

001312

—3

N
N
~N
N

001260

000004

016434
000002

001312
004312

3%:

RCVTAB(2)
1%
,§§°’ .,

XMTTAB(2) -ADD OFFSET

XMTCNT(2) :COUNT 72. CHARACTERS TO THE LINE

;CHECK FOR A BREAK

*BRANCH IF REAL DATA
*RECOVER LINE NUMBER

MARK

:SET UP MARKER

ROL
DEC
BPL
BIC
BR

MARK
R2
5%
MARK,
1%

;MOVE MARKER
*COUNT LINES
*BRANCH IF MORE

ggva

MOV
MOV

Q?Y
TR

072

gk?

MOV

4%:

012602
012601
012600

: CHANGE FLAG
‘BRANCH IF WAS DATA

TSTB

BNE
ztsg

001260

1%
(NTTAB(2)
3

SEQ 0031

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

MOVB

001260

3
PAGE 32

MOV
ADD

004312

F14:01

TRANSMITTER ISR

BR
COM8
BEQ

2%:

WA
—

29%%

ELEEE EREE

012716

MACY11

4(R1)

CLEAR TCR BIT
ONT INUE

#RETURN, xnrrAe(2$ :TYPE CARRIAGE RETURN, LINE FEED
XMTCNT(2)

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

:COUNTER OF
2 CHARACTERS

:POP STACK INTO R2
*POP STACK INTO R1

(6)+.R0O

*POP STACK INTO RO

AR AR AR AR A AR AR AR AR AR R R AR AR AR AR AR AR AR AR AR AR

:PROG2

RECEIVER INTERRUPT SERVICE ROUTINE

AR AR AR AR R AR AR

:'tfitttt'.Qttttttttttfiti't".tt'fifi'i.t'tfi'titti*tttfi!fil.'tt.ttttttt'ttt'

P2RISR:

MOV

MOV
MOV

1$:

070000

MOV
MOV

BPL
BIT
BEQ
HLT+2

R1,-(6)

:PUSH R1 ON STACK

(RO) +,R1

*GET RBUF ADDRESS

7%
#70000,R2
2%

*BRANCH IF NO CHAR PRESENT
*CHECK FOR ERRORS
*BRANCH IF OK
:RECEIVER ERROR
R1=RBUF ADDRESS

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

*PUSH R2 ON STACK
*PUSH R3 ON STAEK

(R1) ,R2

*READ

THE DATA

R2 CONTENTS OF RBUF
*BIT12=PARITY ERROR

*BIT13=FRAMING ERROR
2%:

8?@0?
_— - O
o
~n

il
e
i
b

cooocoo

013064

005312

*BIT14=UART OVERRUN

MOV
CLRB
SWAR

R2,
R3
R3

BITB
BEQ
HLT+2

MASK(3),R2
3%

ASLB
ADD

R3
(RO) ,R3

“FGRGET THE DATA

;:DUP THE RBUF
“CLEAR THE DATA
SLINE ¥ ro LOW BYTE

SLINE # = 2, ALSO (LR CHAR PRESENT
ADD OFFSET

“CHECK CHARACTER LENGTH
*BRANCH IF OK
*CHARACTER LENGTH ERROR

:R1=RBUF

ADDRESS

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

013104
013110

105763
001017

1617

013116

161003

1616

013112

110263

002312

013120
013122
013126
013130
013134
013136
013140

013146

000736

1627
1628

013150
013154

110263
105163

002312
005313

1630
1631
1632
1633
163
1635
1636
1637

013166
013174
013176
013176
013200
013202
013204
013206

112763
000723

000002

1629

013160

012763

012603
012602
012601
012600
000002

3$:

002312

1618
1619
1620
1621
1622
1623
1626

12222

006203
005037
000261
006137
005303
100374
053761

MACYT1 30A(1052)

001260

016434

TSTB
BNE

4%:
000002

001312
004312

7%:

PAGE 33

SEQ 0032

RCVTAB(3)
5%

;R2=CONTENTS OF RBUF (DATA)
*CHECK FOR BREAK
‘BRANCH IF REAL DATA

(RD.,

:RECOVER LINE NUMBER

ASR
CLR
SEC
ROL
DEC
BPL
BIS

R3
MARK

MARK
R3
4%
MARK,

MOVB
COMB

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

BR
5% :

MOVB

SUB

001260

21-JUN-78
14:01
RECEIVER ISR

RCVTAB(3) :SAVE THE DATA

:SET UP MARKER

2(R1)

;UPDATE MARKER
:COUNT LINES
*BRANCH IF MORE
:SET TCR BIT

* CONT INUE

MOV

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

MOV
MOV
MOV
MOV
RTI

(6)+,R3
(6)+.R2
(6)+.R1
(6)+,R0O

MOVB
BR

42,
1%

XMTCNT (3)

*MESSAGE LENGTH

;POP
*POP
*POP
;POP

STACK
STACK
STACK
STACK

INTO R3
INTO R2
INTO R1
INTO RO

CZDJBFO DJ11 EXER & ONLNE

CZDJBF .P11

21-JUN-78 13:56

MACY11 30A(1052)

PROG3:

21-JUN-78

14:01

ECHO EXERCISER

3
PAGE 34

12;%

.-tttt’tttttttttttttttt't""t't.'QI'Qtt..ttttlttt.tt.t.ttttt'fitt'ttttitt

16‘.1

;tttttt'tttttt'ttt'tttttttt"'tt.tttt.tttfittttt.ttittQttttttttt"t.tttt'

1640

1642
1643
1646
1645
1646
1647
1648
1649
1650
1651
1652
1653
1654
1655
}ggg

:PROGRAM 3:

013210
013212
013216
013226
013230
013234
013236
013240
013242
013246
013250
013252
013254
013256

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

001200
000340
001312
002000

PROG3:
177776
1%:

000400

2%:

016770

013262

005000

1666
1667
1668
1669

013270
013274
013300
013302

013702
012703
010322
013722

1673

1674

1675
1676
1677

1678

1679
1680

1681

1682
1683
1684

1685
1686

1687
1688

1689
1690
1691

1692
1693

#END,

;LENGTH OF MASK/COUNT TABLE
;SKIP MASK
*CLEAR COUNT

:SET UP BUFFER POINTER

:SET TCR'S, ALL LINES ENABLED

1664

1671
1672

#400,R2
R1
(R1)+
R2
2$

“SET UP ALL INTERRUPT VECTORS
:SET UP DEVICE ADDRESSES IN LINKER ROUTINES
*SET CSR'S EVERYTHING ENABLED

}ggg

1670

MOV
INC
CLRB
DEC
BNE

:CLEAR OUT THE WORLD
*RESET THE STACK POINTER
:PROCESSOR TO LEVEL 7
*FIRST TABLE POINTER
*LENGTH CF TABLES (WORDS)
*CLEAR THE TABLE

;ROUTINE TO INITIALIZE ALL DJ11'S AND THEIR ISR'S:

1659
1660
1661

1665

#STACK, SP
#340, = a#PS
#XMTTAB,R1
#2000,
R2
(R1) +
R2

MOV

1658

ECHO EXERCISER

RESET
MOV
BIS
MOV
MOV
CLR
DEC

BNE

013264

013306

013701

022323

013310
013312

010113
062723

013320

010322

013316

013322
013326
013330

013332

013336
013340
01332

013346
013350

013356

013360

013362
013364
013370

013372
013376

005723

013722
022323
010123

012727

005721
006300
016011

00
012737

012304

P3INIT:

00126¢

001270
013562

1%:

001272

001274

010564
010564

001220

0013%1
00231

VECADR. R2
#R3SRO.R3
R3,
(R2)+
RCVLVL, (R2)+

MOV
ADD

R1,
#2

(R3)
(R3)+

MOV

R3,

(R2)+

MOV

#50400, (R1)+

ST
ASL
MOV

(R1)+
RC
SVSWO(R0)
(R1)
,

MOV
cTMP
MOV

050400

001260

MOV
MOV
MOV
MOV

001260

2%:

DEVADR, R1

(R3)+,

(R%)+

XMTLVL,
(R3)+.
R1

ASR
MOV

RO
P2

MOV

R§,-(6)

MOV

010246

010346
033711
001420

000002

000001

CLR

MOV

MOV
BIT
BEQ

MOy
MOV

SEQ 0033

(R$)+,

R3.=(6)
MARK,
6%

(R3)+

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

MARK

(R1)

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

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

:ADD 4 TO R3

*ADDRESS OF CSR
:ADDRESS OF RBUF

:;SET P TRANSMITTER INTERUPT VECTOR
:;ADDRESS OF (SR

:SET UP (SR, TRANSMITTER ONLY

*BIT8 = TRANSMITTER SCAN ENABLE
‘BIT12 = STATUS ENABLE

:BIT14 = TRANSMITTER INTERUPT ENABLE

SUNIT # = 2
:SET TCR BITS FOR SELECTED LINES
SRESET UNIT COUNTER
:SET UP MARKER

:SET U® OFFSET TO TABLES
*PUSH n§ ON STACK

*PUSH R3 ON STACK
SCHECK FOR LINE SELECTED
JSET UP HEADER ME SSAGE
:SET UP RECEIVER TABLE

sieoF

CZDJBFO DJ11 EXER & ONLNE

CZDJBF .P11
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704
1705
1706
1707
1708
1709
1710
1711

1712
1713
mg

013402
013406
013412
013414
013416
013420
013422
013424
013426
013430
013432
013436
013440
013444
013446
01345C
013452
013454

013456
013462
013464

21-JUN-78 13:56
013702
012703
112325
001404
005302
001374
03
105025
005302
001375
010564
005724
006337
103347
012603
012602
022121
005200

020037
001306
042737

001262
016707

PROG3:

4%:
5%:
£$:

001260

001264

000140

1717

;PROG3

1719
1720
1721

013476

012702

000400

1723
1724

013504
013506

001376
062701

000002

1725

1726

1727
1728

1729

1730

173

1732

1733

1734
1735

1736

1737
1738
1739
1740

};z;

013472

013502

013512

012701

005711

005302

013514

001372

013522

013701

013516

013526
013532

013536

(01350
013542

01356

013550
013552
013554
013556

013560

001312

013700

001264

052711

000101

062701

000010

005300

001372
012700

000241

001266

020000

005540
001376

1749

A AR

BUFSIZ, R%
#MSGP3, R
(R3)+,
(RS)+
5%
R2
33
6%
(R5)+
R2
3
RS ,MAXTAB(4)
(R4) +
MARK
2%
(6)+,R3
(6)+,R2
(R1)+,
(R1)+
RC

MOV

000770

;SET UP COUNTER
sSET _UP MESSAGE POINTER
;MOVE MESSAGE INTO BUFFER
sBRANCH IF END OF MESSAGE
sCOUNT BUFFER SIZE
;BRANCH IF MORE
sBRANCH IF DONE
sCLEAR REST OF BUFFER
s COUNT BUFFER SIZE
;BRANCH [F MORE
:SETUP BFR POINTER TABLE.
JINC OFFSET TO NEXT LINE

UNITS

@#°S

R AR AR R R

RRR R

;LOWER PROCESSOR PRIORITY

R R AR R R AR R AR AR AR AR AR IR R AR AR AN RN R AN RN RR

R R

THEN EXERCISE MEMORY.

R A AR AR AR AR RN R AR AR R AR N RN AN ARANRAR AR

%
#2 ,R1

sBRANCH [F NOT
GO TO NEXT LINE ENTRY

sJBRANCH [F MORE LINES

(R1)

;CHECK FOR XMTR TABLE CLR

DE(

MOV

UNITS,

BIS

#1071,

ADD

#10,

MOV

sCOUNT LINES

DEVADR, R1

BNE
MOV

2%
#20000,R0

AD(
BNE

-(R0O)
%
RO
1%

(LC

R RS

#XMTTAB
R

BNE
ADD

TST

;o8

;POP STACK INTO R3
;POP STACK INTO R2
ADD 4

#400,R2

DEC

MEMX3:

RC,
1%
#140,

SEQ 0034

MOV

BNE

’%:

PAGE 35

FOREGROUND PROGRAM TO START RECEIVERS,

AR AR

ST
BNE

LINKERS TO DJ11

sAND DEVICE ADDRESS POINTER

sSET RECEIVER ENABLES OF (SR

;BITO = RECEIVER ENABLE

;BIT6 = RCV INTERRUPT ENABLE
;UPDATE

TO NEXT DJ11

sCOUNT DJ11'S

;TOP OF 4K BANK OF MEMORY

TO MEMORY

JCHRECK FOR LOC O
;BRANCH IF MORE MEMORY

MEMX 3

;PROG3

sSET UP UNIT COUNTER

;FAST READ/WR!TE
JRAPID REPEAT

.LOOP FOR EVER!

17‘5

1748

1%:

005700
001374

1744

1747

FORP3:

18:

17643

1746

R R R AR R

SRR AR

14:01

ECHO EXERCISER

CMP
BNE
BIC

177776

21-JUN-78

MOV
MOV
MOvVB
BEQ
DEC
BNE
BR
CLRB
DEC
BNE
MOV
TST
ASL
8CC
MOv
MOV
(MP
INC

1716

1722

30A(1052)

3%:

.
003312

1718

MACY11

T R R R R R R L R R R

INTERRUPT SERVICE ROUTINES

R R R R

.'....'..'..t....O'..."".""'..'.......t.'.'.O".."'...'...Q.'Q..'..'

013562

004037

014312

R3SRO:

JSR

RO,P3R]SR

013572

004037

0'%%¢7

x35k0:

JSR

RO,P3X]SR

013566

160012

000000

JWORD

<:40012+<0010>>,<0%40>

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

1750
1751
1752
1753

013576
013602
013606
013612

160020
004037
160022
004037

1755

013622

004037

1757
1758
1759
1760
1761

013632
013636
013642
013646
013652

004037
160040
004037
160042
004037

1763

013662

004037

1765
1766

013672
013676

1768

013706

1754

1756

1762

1764

1767

013616

013626

013656

013666

000000
014312
000040
014162

MACY11

30A(1052)

21-JUN-78
ISR LINKERS

14:01

PAGE 36

X3SR1:

LWORD
JSR
LWORD
JSR

<160020+<0+10>>,<0+40>
RO.P3R]ISR
<160012+<1%10>>,<1%40>
RO.P3XISR

014312

R3SR2:

JSR

RO.P3R]ISR

014162
000100
014312
000140
014162

X3SR2:
R3SR3:

X3SR3:

JSR
LWORD
JSR
LWORD
JSR

RO,.P3XISR
<160020+<2+10>>,<2%40>
RO.P3RISR
<160012+<3%10>>,<3%40>
ROPSS%SR

014312

R3SR4:

JSR

RO.P3R]ISR

004037
160060

014162
000200

X3SR4:

160062

000240

160030

000040

160032

000100

160050

160052

013702

004037

1769
1770
1771
1772
1773
1774
1775
1776
1777
1778
1779
1780
1781

013712
013716
013722
013726
013732
013736
013742
013746
013752
013756
013762
013766
013772

1783

1785
1786
1787

000140

200

R3SR1:

LWORD

LWORD
JSR

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

<160012+<2+10>>, <2+40>

<160020+<3*10>>, <3%40>

<160012+<4*10>>,<4*40>

RO.P3XISR
<160020+<4*10>>, <4*40>

014312

R3SRS:

004037
160070
004037
160072
004037
160100
004037
160102
004037
160110
004037
160112
004037

014162
000240
014312
000300
014162
000300
014312
000340
014162
000340
014312
000400
014162

X3SRS:

JSR
LWORD
R3SR6:
JSR
LWORD
X35R6:
JSR
LWORD
R3SR7:
JSR
LWORD
X3SR7:
JSR
LWORD
R3SR10: JSR
LWORD
X3SR10: JSR

014002

004037

014312

R3SR11: JSR

ao.osagsa

014012
014016
014022

004037
160130
004037

014162
000440
014312

X3SR11: JSR
LWORD
R3SR12: JSR

RO,.P3XISR
<160020+<11+10>>,<11%40>
RO,.P3RISR

1789

014032

004037

014162

X3SR12: JSR

RO.P3XISR

1791

014042

004037

014312

R3SR13: JSR

nopsnésn

1793
1794

014052
014056

004037
160150

014162
000540

X3SR13: JSR
LWORD

RO.P3XISR
<1
+<13210>>,<13+40>

1796

014066

160152

000600

1798

014076

1800

014106

1802
1803

014116
014122
014126

1782
1784

1788

1790

1792

1795

1797

1799

1801

1804

1805

013776
014

014026
014036

014

160120

1601%;

160132
160140

160142

014062

004037

014072

000400

000440

000500

000540

LWORD

. WORD

RO,.P3R]ISR

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

RO.P3XISR
<160020+<5+10>>,<5+40>
RO.P3RISR
<160012+<6+10>>,<6%40>
RO.P3XISR
<160020+<6+10>>,<6%40>
ao.pzaésn
<160012+<7%10>>,<7%40>
RO, P3XISR
<160020+<7%10>>, <7%40>
RO,P3RISR
<160012+<10+10>>,<10+40>
RO.P3XISR

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

<160012+<11+10>>,<11+40>

<160012+<12+10>>,<12+40>

<160020+<12%10>>,<12%40>

<1&ogv +<13%10>>,<13+40>

014312

R3SR14: JSR

RO,P

004037

014162

X3SR14: JSR

RO,P %sa

014102

004037

014312

R3SR15: JSR

RO,P

014112

004037

014162

X3SR15: JSR

Ropxz%sn

160172

000700

014132

160169 000600

1601?; 000640

160170
004037
004037

LWORD

55&

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

+<14210>>, <14240>

5”

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

0
014312

. WORD
R3SR16: JSR

<1&og“ +<15+10>>,<15+40>
RO.P 551:

014162

X3SR16:

RO.P3X]ISR

LWORD

JSR

<140012+<16+10>>,<16%40>

SEQ 0035

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

MACY11

30A(1052)

21-JUN-78
ISR LINKERS

14:01

3
PAGE 37

1806
1807

014136
014142

160200
004037

000700
014312

JWORD
R3SR17: JSR

<160020+<16%10>>,<16+40>
RO,.P3RISR

1809

014152

004037

014162

X3SR17: JSR

RO.P3XISR

1808

}g}g

014146

014156

160202

160210

000740

LWORD

000740

LWORD

SEQ 0036

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

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

1812

:ttttttttttttt.tt.tttt't'tttfit.tttt.tttttttttnttttttttttittttt.ttt.'tttt

1813
1814
1815
1816

*PROG3
SRR
014162

1820

014170

1822
1823
1824

014176
014200
014202

116102
006302
061002

000007

1826

014212

105072

001312

1817 014162
1818 014164
1819 014166

010146
010246
012001

1821

1825

014172

014204

1827 014216
1828 014222
1829 014230
1830
1831

1832
1833
1834
1835

014232
014240

014244
014246
014250
014256

005711

001312

005262
026262
001003

001312
003312

163762
105772

001351
010346
005062
161002

014256
014260
014262

006202
005003
000261

1840

014266

005302

1841

014270

1843
1844

014276
014300

1842

1845
1846
1847
1848

}315'8

014272

014302
014302
014304
014306
014310

100375

040361

012603
000733
012602
012601
012600

1861

001312

000006

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

BPL

MOVB

aXMTTAB(2),6(R1);SEND
A CHARACTER

TST

CLRB

001312
001312

MOV
MOV
MOV
MOVB
ASL
ADD

5%:

2%:

3$:

4%:

R AR

(R1)

JCHECK FOR TRANS READY

7(R1),R2
R2
(RO) ,R2

;GET LINE NO.

@XMTTAB(2)

“CLR TABLE AFTER USE

XMTTAB(2)
“UPDATE TABLE POINTER
MAXTAB(2) ,XMTTAB(2) ;CHECK FOR END OF BUFFER
58
;BRANCH IF NOT

BNE
MOV
CLR
SUB

1%
R3,=(SP)
XMTTAB(2)
(RO) ,R2

ROL

SuB
TSTB

ASR
CLR
SEC
DEC

BUFSIZ , XMTTAB(2)
JRESET BUFFER POINTER
AXMTTAB(2)
JCHECK NEXT CHARACTER

*BRANCH IF MORE DATA
;CLEAR TABLE POINTER

R2
R3
R2

BIC

R3,4(R1)

JCLEAR TCR BIT FOR LINE

MOV
MOV
MOV
RT]

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

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

MOV
B8R

AR AR

:PUSH R1 ON STACK
*PUSH R2 ON STACK

INC
CMP
BNE

BPL

000004

000002

(SP)+,R3
1%

*RESTORE R3

.'!lttttttt.tttttt.t't.'t'tttt.tttt.ttt.ttttt'tt.t..ttttttt.t"tttt.ttttt
*PROG3 RECEIVER INTERRUPT SERVICE ROUTINE

1853

1856
1857
1858
1859
1860

001262
001312

006103

1851
1852

1854
1855

1%:

117261

1836
1837
1

1839 014264

P3XISR:

TRANSMITTER INTERRUPT SERVICE ROUTINE
AR AR AR AR AR
AR R R AR AR AR R AR AR AR AR AR

"tttttttttttttQtt..tttttt'.'t.tttt!ltt'ttttttt'.ttttttttttt'tttt"!."'t

014312

014312
014314
014316
014320
014322
014324

010146
010246
010346
010446
012001
011102

P3RISR:

1%:

MOV
MOV
MOV
MOV
MOV
MOV

R1,=(6)
Rg.-m
R3.=(6)
R4 =(6)
(RA)+ R
(R1) ,R2

:PUSH R1 ON STACK
*PUSHR2 ON STACK
‘PUSHR3 ON STACK
*PUSH R& ON STACK
*GET RBUF ADDRESS
JREAD THE DATA

sieeF
Jre+F

CZDJBFO DJ11 EXER & ONLNE

CZDJBF .P11
1862
1863
1864
1865

1866
1867

21-JUN-78 13:56

014326
014330
014334
014336

100077
032702
001402
104002

014340
014342
014344
014346
014350
014352
014354
014360
014362

000771
010204
105004
000304
106304
061004
136402
001401
104002

014

005764

MACY11 30A(1052)

070000

21-JUN-78

RECEIVER ISR

14:01

BPL
BIT
BEQ
HLT+2

8%
#70000,R2
2%

BR
MOV
CLRB
SWAB
ASLB
ADD
BITB
BEQ
HLT+2

1%
R2,
R&
R4
R4
R4
(RO) ,R4
MASK (4) .R2
3%

PAGE 38

1880
1881

1882

1883
1884

014370
014372

1887
1888
1889
1890

014374
014376
014402
014404

1885
1886

1891

1892
1893
1894
1895
1896
1897

001002
104002

000753
105774
001403
104002

2%:

005312

002312

3%:

002312

4%:

;NOTE:
:
:
:

014406

000137

013210

1900
1901
1902

014412
014416
014420

005764
001414
110274

001312

1904

014430

026464

003312

002312

001262

00231

003312
001262
002312
002312

002312
002312
001312

1903

1905
1906
1907
1908
1909
1910
1911

1912

1913
1914
1915

1916
1917

014424

014436
014440
014446
014450
014456
014464
014472

014476

014502
014504
014506

014510
014512

005264

001332
163764
000726
016464
163764
016464
110274

005264

161004
006204
005003

000261
006103

5%:

002312

TST

BR
TSTB
BEQ
HLT+2

1%
aRCVTAB(4)
5%

TST
BEQ
MOvB

;R1=RBUF ADDRESS
;R2=CONTENTS OF RBUF (DATA)

sCHECK FOR UNSELECTED LINE

sBRANCH IF OK
RECEIVED DATA ON UNSELECTED LINE

= RBUF ADDRESS
R2 = CONTENTS OF RBUF

: IGNORE THE DATA
sCHECK FOR DATA BUFFER FULL
:BRANCH
IF OK
s SOFTWARE DATA BUFFER OVERFLOW

POSSIBLE TRANSMITTER PROBLEM

PROG3

:RESTART ON THIS TYPE ERROR

XMTTAB(4)
6%
R2, @RCVTAB(4)

sCHECK FOR TRANSMITTER ACTIVE
:BRANCH IF INACTIVE
:PUT THE DATA IN THE BUFFER

RCVTAB(4)

:UPDATE POINTER TO NEXT SPACE

HAXTAB(‘) LRCVTAB(4) ;CHECK FOR END OF BUFFER

BNE
SuB
BR
MOV
SUB
MOV
MOVB

1$
:BRANCH IF NOT
BUFSIZ ,RCVTAB(4) ;RESET BUFFER POINTER
1%
MAXTAB(4) ,RCVTAB(4) ;RESET TABLE POINTER
BUFSIZ ,RCVTAB(4)
;RESET BUFFER
RCVTAB(4), XMTTAB(4)
R2, @RCVTAB(4)

SuB
ASR
CLR

(RO) ,R4
R4
R3

INC

7$:

;BIT14=UART OVERRUN
:SKIP BAD DATA
;DUP THE RBUF
;CLEAR THE DATA
sLINE # TO LOW BYTE
;LINE # = 2, ALSO CLR CHAR PRESENT
sADD OFFSET
s CHECK CHARACTER LENGTH
sBRANCH IF OK
sCHARACTER LENGTH ERROR

= RBUF ADDRESS
R2 = CONTENTS OF RBUF
IF THE ABOVE ERROR WAS DUE TO OVERLOAD, INCREASING THE CONTENTS
OF "BUFSIZ'' MAY RECTIFY THE PROBLEM.
"BUFSIZ'' MUST BE A MULTIPLE OF 2.
INCREASING IT MAY CAUSE THE BUFFERS TO OVERFLOW 4K.

INC

002312

RCVTAB(4)

BNE
HLT+2

CMP

68%:

;BRANCH IF NO CHAR PRESENT
:CHECK FOR ERRORS
:BRANCH
IF 0K
RECEIVER ERROR

R1=RBUF ADDRESS
RZ-CWTENTS OF RBUF
:BIT12=PARITY ERROR
:BIT13=FRAMING ERROR

1868
1869

1870
1871
1872
1873
1874
1875
1876
1877
1878
1879

SEQ 0037

SEC
ROL

RCVTAB(4)

;UPDATE POINTER TO NEXT SPACE

AR
i

soeeF
300

C%DJg;OI‘HH EXER & ONLNE
21-JUN-78 13:56
1918
1919
1920
1921

1922
1923
1926
1925
1926
1927
1928
1929
1930
1931
1932
1933
1934
1935
1936
1937
1938
1939
1940

1941

1942
1943
1944
1945

}&9

014514
014516
014520
014524

014526
014526
014530
014532
014534
014536
014540
014542
014542
014546
014554
014560
014564
014572
014574
014600
014604

005304
100375
050361

000677

000002
8%:

014610
014612

014614
014616
014620

004710
000240
000240

016310
000001
001204
016403
002000

000007
000177
000042

DONE:
001206

164416

4%:

014614

000240
000137

m3
21-JUN-78 14:01
PAGE 39
RECEIVER ISR
DEC
B8PL
BIS

012604
012603
012602
012601
012600
000002
004737
062737
005537
000004
032777
001004
000004
000004
013700
001405
000005

014622
014624

MACY11 30A(1052)

Ré4
7%
R3,2(R1)

3%:

MOV
MOV
MOV
MOV
MOV
RTI

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

JSR
ADD
ADC
TYPE
BIT
BNE
TYPE
TYPE
MOV
BEQ
RESET

PC,
KBDINT
#1,PCNT+2
PCNT
.MEOP
#SW10,aSWR
3
BELL
177
a#42 RO
3s

JSR
NOP
NOP
NOP

7,0

JMP

sSET TCR BIT FOR LINE

$ENDAD =,

007310

SEQ 0038

RESTAR

sPOP
;POP
. +POP
sPOP
;POP

STACK
STACK
STACK
STACK
STACK

INTO R4
INTO R3
INTO R2
INTO R1
INTO RO

:ADD 1 TO THE PASS COUNT
MAKE IT DOUBLE PREC.
:END OF PASS INDICATOR
:RING THE BELL?
:NO!
sRING THE BELL
sTYPE A FILLER FOR 11/05
sGET MONITOR ADDRESS
s IF _NONE
JRESET AND
;GO TO MONITOR
:SAVE ROOM
;FOR
SACTN

sRETURN

MACY11 30A(1052)

VIS WN-=O0
00

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

BELL AND SCOPE ROUTINE

ERROR TYPEOUT HANDLER

:ADDRESS OF THE "HLT''. IT ALSO COUNTS THE NUMBER OF ERRORS
s AND HASJ"HE CAPABILITY OF LOOPING ON ERROR, BELL ON ERROR,
J"HALT''
ERROR, AND INHIBIT TYPEOUTS. AN OPTIONAL ARGUEMENT

164326

—_

NWVININN

—-—

§O-‘—'O
2tz
uawuw

014670
014760
000002
000046
014760
015366
014730

164346

016310
002000

:(HLT+3) WILL BE PLACED IN ‘MLTCTS:"* FOR ADITIONAL TYPEOUTS.

3
PAGE 40

;THIS ROUTINE PRINTS OUT _ERROR MESSAGES STARTING WITH THE

§88538888

014762
014770
014774

TYPE
INC

BIT
BNE

PC,
KBDINT
ngO.aSUR

(BELL
ERRORS
#SW13,3SWR

015004

#2 HLTADR

:FUDGE ADDRESS

@HLTADR HLTCTS

HLTADR,TTY

000100

015004

ERRORS:
1%:

2%:

3%:

:RING BELL
sCOUNT THE NUMBER OF ERRORS
:SKIP TYPEOUT IF SET

:SKIP TYPEQUTS
;. ASCIZ <155<12>

sPUT ADDRESS OF INSTRUCTION ON STACK

GET HLT ARGUEMENT

;TYPE HLTADR IN OCTAL

PC.PRINTR

:TYPE LEADING ZERO'S

aSWR

:HALT ON ERROR

T
PC ,ERRORS
.+

PC,KBDINT

007700
014756

;BELL ON ERROR?
:NO = SKIP

2%
.o ¥2

HLTCTS:
HLTADR:

015366
016442
015020

JSR
BIT
BEQ

(6) ,HLTADR

016310

014756
014760

1978
1979

014754

1%:

2%:

64244

1976

EMTS:

4760
4756

?1 4762

N
14:01_

SHLT

000007
001202
020000

21=JUN-78

;. ASCIZ
;GO TO USER ERROR ROUTINE
:SKIP IF CONTINUE

:HALT ON ERROR'

;RETURN
JHLT ARGUEMENT

sLAST HLT INSTRUCTION EXECUTED
#7700,2%

gL TCTS
$

#100,2%

%0, 7Ty
%7 ,PRINTR

SPACE
1%

;TYPE REGISTER X IN OCTAL

SEQ 0039

MACY11 30A(1052)

21-JUN-78

B
14:01

&
PAGE 41

SEQ 0040

OCTAL NUMBER INPUT ROUTINE

;SUBROUTINE TO SAVE INPUT AS OCTAL NUMBER
015022

012737
004737
005037
010146

000001
015170
015314

015314

READIN: MOV

#1, INHRE
PC,
READ$

000020
015316
000120

016206

;PUSH R1 ON STACK
;PUSH R2 ON STACK

#INPUT ,R2
#120, (R2)

;CHECK FOR 'P*’

= 2
ROMNI & KFRRINESKS NN
A NOONSN &3

8—.-‘:‘

;BRANCH IF BAD DATA

(R1)

£$

(R1)
2%

R3,(R1)
CNT

016206

Y
S

D —d
d
D

(RT)

WS W

YN Y
R

;BRANCH WHEN DONE

#177770.R3

) —d

YRS YO

R3.#15

#60 R3

)

R
JEE

D
D

(R1)
(R2)+,R3

000060
177770

)
e

(W AV AV LV LV LV, LV AV LV LV (V. IV, LV IV, |

D
—
—

e R
D

o
—_

) —d —d

(eleleolelelalelelolololelolelolelelele]

000015

177776

015166

177776

2%:
58:

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

:gTEMP.

PSTEMP:

READS:

2%:

a#PS

R3,-(6)

016124

;SAVE R3

.~4

;A CHARACTER

4%
#25,(3)

3%:

CODES
R3
RZ
R1

CONDITION CODES

;GET ADDRESS
sBUFFER FULL?
sYES - TYPE 7

#200, (3)
#17°7,(3)

015242

;RESTORE

#INPUT ,R3
#INPUT+20,R3
4%

177562, (3)

4%:

;MAKE SURE Z-BIT IS CLR

;SAVE CONDITION
;POP STACK INTO
;POP STACK INTO
;POP STACK INTO

: TEMPORARY STORAGE FOR PS

a#177560

000025

015252

;PUSH R3 ON STACK

1%:

;GO READ TTY UNTIL CR

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

R3,-(6)

(elelelololelelelele]
B YR R
e e I s QO G
Y
)

CELELEEREE 38888888 33

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

SWAIT FOR

;GET CHARACTER
;GET RID OF JUNK
SIS IT A RUBOUT
:SKIP IF NOT

(3),.TYPE

s ASCIZ "' <155<12>''= **

*ZAP THE BUFFER AND LOOP

“SET UP FOR TYPING

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

2046

015256

000004

2048
2049
2050
2051

015266
015270
015274
015276

001343
005737
001401
000402

2053
2054
2055

015304
015310
015312

000004
012603
000207

2057
2058

015314
015316

000000
000020

2047

015262

2052 015300

2059

122723

MACYTT 30A(1052) 21-JUN-78 = 14:01
INPUT ROUT INE

016124

TYPE

000015
015314

105063 177777

5% :

000012

2070
2071
2072
2073
2074
2075
2076
2077
2078
2079
2080
2081
2082
2083

015356

015364
015366
015374
015376

012737
000411
112737
000402
005037

2089
2090

112737
010446
012704
105014
000411
105014
032737
001004
006105
106114
006105
106114
006105
106114
105714
001402
105237
105737
001402
152724
105237

2092

015500

209
2095
209
2097
2098
2099

015506
015512
015514
015520
015522
015524

2091

*LOOP IF NOT RETURN

*TYPE A LINE FEED
*RESTORE R3
*RETURN

TYPE
MOV
RIS

12
(6)+.R3
PC

INHRE:
INPUT:

0
.BLKW

$OCTAL

:ZAP RETURN (THE 15)

;TTY INPUT AREA

OCTALC ’YPEOUT ROUT INE

:THE 16 BITS. IT IS CALLED VIA THE DUMP, SDUMP, DUMP18, OR BITYPE MACRO'S.

015402
015410
015412
015416
015420
015422
015424
015432
015434
015436
015440
015442
015444
(015446
015450
015452
015454
015460
015464
015466
015472

2085
2086
2087

=1(3)

*CHECK FOR RETURN

28
INHRE
5%
6$

:ALL 6 CHARACTERS, SUPPRESS LEADING ZEROES, TYPE AN 18 BiT ADDRESS. OR TYPE

2063

2066
2067
2068
2069

CLRB

BNE
TST
BEQ
BR

;ECHO IT

:THIS ROUTINE IS USED TO TYPE AN OCTAL NUMBER ON THE TTY. IT WILL TYPE

2062

2065

#i5,(3)+

5061

. TYPE

(MPB

4
PAGE 42

015476

2093 015504

170101

015524

000001

015524

015524
177772

015525

BITYPS:
MOV

BR
PRINTR: MOVB
BR
PRINTS: CLR

#170101,
PTIT
#1,.PR
46
"PR

000060
015525

MOVB
MOV
MOV
CLRB
BR
CLRB
BIT
BNE
ROL
ROLB
ROL
ROLB
ROL
ROLB
1STB
BEQ
INC(B
1STB
_BEQ
BISB
INCBB

#-6,.PR+1
R4,=(6)
#.PR+2.Ré
(&)
.PRF
(4)
#100,.PR
.PRF
T
(4
TTY
(4)
TTY
(4)
(4)
.+6
PR
.PR
-+6
#'0,(4)+
.PR+1

022704

015526

(MP

#.PR+2,R4

112724
105014
000004
012604
000207
000012

000060

MOVB
CLRB
TYPE
MOV
RTS
LBLKW

#'C,(4)+
(4)
,.PR+2
(6)+,R4
P(
12

001351

001002

015526

000100

015524

PTIT:

.PRL:

PRF:

015524
015524

BNE

015526
PR:

"PRL

:SET BIT FLAG ANS 16. CHARACTER COUNT

NOW TYPE IT IN BIT FORM
*SET_ZERO FILL SWITCH
SKIP
*SUPRESS LEADING ZERO'S

*SET COUNT
*SAVE R4
*SET POINTER TO FIRST ASCII CHAR.
*CLEAR FIRST BYTE
*ROTATE FIRST BIT
*CLEAR BYTE OF CHARACTER
*BIT TYPING MODE?
YES = SKIP 2 ROTATES
sROTATE BIT INTO C
PACK IT
*ROTATE BIT INTO C
*PACK IT
*RCTATE BIT INTO C
,'PACK IT
‘IS IT ZERO?
*SKIP INC
SET FILL SWITCH
*CHECK FILL SWITCH
*SKIP BITSET
MAKE INTO ASCII CHAR
*INC_COUNT

*REPEAT

EMPTY BUFFER?

*SKIP IF NOT

*LOAD 1 ZERO
NULL TERMINATOR
STYPE IT
“RESTORE R4
*RETURN
*COUNT, SWITCH, AND OUTPUT BUFFER

SEQ 0041

2123
21

b a

i alh

eolelelelelels]

o
NEEoBIr
R 2o B38IKIRA N

el il

il sl cnll il

) i

ASIASTAS SIS AN [AS AN 1S 1S 1N 1S 1S TS TN TN TN TS 1N 1,8 ]n

il anlh cad wnid as iy

2100
2101

ailh

CZDJBFO DJ11 EXER & ONLNE
CZ DJBF.
21-JUN-78 13:56

012777
012777
010046
010146
010246
010346

015676
000340

015672

015710

D
14:01

4
PAGE 43

#1LLUP,QPUVECS

PDOWNS:

#340,PUVECS+2
RO,=-(6)
R4 ,=(6)
R5,=(6)
SP,
. SAVR6
#PUPS ,3PUVE(S

000072

015702

SP
.SAVR6,

PUPS$:

1$:

015550
000340
015662
007310

SET FOR FAST UP

PR1O:7

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

:PUSH RS ON STACK

:SAVE SP
sSET_UP VECTOR
sWAIT FOR PF

;GET SP
JWAIT LOOP FOR THE TTY
JWAIT FOR THE INC

;OF

WORD

INTO RS
INTO R4
INTO R3
INTO R2
INTO R1
INTO RO
;SET UP THE POWER DOWN VECTOR
;POP STACK
;POP STACK
;POP STACK
;POP STACK
;POP STACK
;POP STACK

000024
000026

;PRIO:7

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

ILLUP:

000026

SEQ 0042

DOWN AND UP ROUTINES

R3,-(6)

015676
015700
015702
015704

000126
000122

21;JUN-78

R1.=(6)

015702
015614

013706
005001

MACY11 30A(1052)

.SAVR6:

;THE POWER UP SEQUENCE WAS STARTED

; BEFORE THE POWER DOWN WAS COMPLETE

PUVECS:

24,26

YESRT:

RTI

sPUT THE SP HERE

;POWER UP VECTOR
JRETURN FROM TRACE TRAP

CZDJBFO DJ11 EXER & ONLNE
CZDJBF .P11

21=JUN-78 13:56

MACY11 30A(1052)

2135

21-JUN-78

10T HANDLER

E
14:01

&
PAGE 44

SEQ 0043

2136

IRERRFRRRRARRRRRRRARRRR
AR
RRRRRRRARRRRRRARRRRRRRRARRRARRARARAARRRAAARA

2137

;10T HANDLER = REENTERENT ROUTINE TO INDICATE A FALSE
:
INTERRUPT OR TRAP, OR TO TYPE A MESSAGE

2138

2139

2140
2141
2142
2143
2144
2145
2146
2147
2148
2149
2150
2151
2152
2153
2154
2155
2156
2157
2158
2159
g}g?

015712
015716
015720
015724
015730
015736
015744
015752
015760
015762
015764
015770
015772
015776
016004
016006
016010
016014
016016

022716
002440
162716
000004
005015
042520
044440
050125
000040
012605
004737
005726
0000064
043040
000
016006
011605
004737
000000
000002

001000

000004
015730
047125
052103
052116
020124

054105
042105
051105
047524

IOTRAP: (MP
BLT
suB
TYPE,
LASCIZ

MOV
JSR
TST
TYPE,
ASCIZ

015376

015776
047522

020115

.EVEN
MOV
JSR
HAL T
RTI

015376

#1000,
(SP)
sCHECK RETURN ADDRESS
10T$
;BRANCH IF TYPE COMMAND
&
(SP)
sGET VECTOR ADDRESS
.+
: TYPE MESSAGE
<15><12>"UNEXPECTED INTERUPT TO '’

(SP)+,TTY
AC,PRINTS
(SP)+
.+2
" FROM "'

:TYPE (SP)+ IN OCTAL
*AND SUPRESS LEADING ZERO'S
*POP STACK
*TYPE MESSAGE

(SP),TTY
PC,PRINTS

;TYPE (SP) IN OCTAL
*AND SUPRESS LEADING ZERO'S
*FATAL ERROR
*CONTINUE IF DESIRED

3}2%

;

2164
2165
2166

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

g}gg

*THE MESSAGE WHICH IS INLINE ASCII.

2167

016020
016022

010546
017605

2173
2174
2175
2176
2177
2178
2179
2180

016032
016034
016040
016044
016046
016050
016054
016060

001004
010537
012705
105715
001406
112537
105737
100375

2182
2183

016064
016070

017646
062766

2181

2184

2185
2186
2187
2188
2189
2190

MESSAGE TYPEOUT ROUTINE

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

2170
2171

2172

$TYPE

016026

016062

032705

000770

016076 022666

016102
016104
016110
016114
016120
016122

001006
062705
042705
010566
012605
000002

I0T$:

000002

177400

1$:

177566
177564

000002
000002
000001
000002

TTY,=(6)
@2(6),TTY

:SAVE TTY
*GET ADDRESS TO BE TYPED

BNE
MOV
MOV
TSTB
BEQ
MOVB
TSTB
BPL

1$
TTY,.TYPE
#.TYPE,TTY
(TTY)
2%
(TTY)+,a#177566
aW177564
b

*NO
*GET THE CHARACTER
*FUDGE THE ADDRESS
*TERMINATOR?
*GET OUT IF SO
:LOAD AND TYPE THE CHARACTER
*IS THE PRINTER READY
*WAIT UNTIL IT IS

MOV
ADD

@2(6) ,=(6)
#2,4(6)

“GET ADDRESS TO BE TYPED
*ADD 2 TO THE ADDRESS

BNE
ADD
BIC
MOV
MOV
RTI

3$
#2,TTY
#10TTY
TTY,2(6)
(CV+,TTY

BIT

016124
016124

000002
000002

MOV
MOV

000004

28:

B8R

CMP

#177400,TTY

(65+,2(6)

YIS IT A TYPEM?

“GET THE NEXT CHARACTER

YIS IT 422

*NO
*ADD 2 TO THE ADDRESS
*BACK UP TO AN EVEN BYTE
*RESTORE ADDRESS
*RESTORE TTY
*RETURN

T T T T

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

016124

000000

016126
016134
016136
016142
016146
016152
016156
016162
016164
016166
016174
016176
016204

022737
001023
000004
013705
004737

MACY11 30A(1052)

020040
000040
005015
000040

016230
016234
016240
016246
016254
016256

013746
013746

001210

CNTLU:

CMP

016206

016356

163004

JSR

R5,READIN

BNE

1%:

012637
000207

016310

022737
001016

.SWREQ

SWREG, TTY
PC,PRINTR

TYPE

000020

CMP
BEQ
MOV
RTS

(NT:

NEWIS

NEw= "'

NEWIS:

JASCIZ

053523

036522

SWREQ:

ASCIZ2

<15>412>''SwWR= '

016260
177777

MOV
CMP

000176
000174
000004
000006

000176

RTS

CLR
MOVB
BICB
CMPB
BNE

016126

1%:

c$
3%

(SP)+,(SP)+
H#SWRE
G, SWR
#DISPREG DISPLAY
(SP)+,4

KBDINT: CMP

016356

6.=(SP)
4,-(SP)
#1%,4
#-1,aSWR

CMP
MOV
MOV
MOV

MOV

JSR

;TYPE LEADING ZERO'S

#20,CNT
1%
TMP1,aSWR

036527

SUSWRR: MOV
MOV

;TYPE SWREG IN OCTAL

TMP1
CNTLU

042516

000006
000004

SEQ 0044

:gwREG.SUR

MOV
JSR

016302
016306

PAGE 45

;CHARACTER TYPE LOCATION

TYPE

(SP)+,6

qgwREG.SUR

TMP1
177562, TMP1
#200, TMP1
#7,TMP1
1%

PC,CNTLU
PC

TMP1
:
N

047
020
0531

04241

005015
052101
042503
000
015

—_—
—=aar

016260
016262
016270
016276

.TYPE:

016206
016210
016216
016220
016226

21-JUN-78

TYPE ROUTINE

14:01

042040
042522
042105

TRNERR:

LASCIZ <15><12>'NO DATA RECEIVED"'

050117

MEOP:

LASCIZ <15><12>"E0P"’

sivof

MACY11 30A(1052)

016442
016445
016452
016460
016466
016474
016502

S38
NNNO SOOIV

=NOOWVVN=20O
RN
= ed A N\ = b

o jolele]
W NN
=lele]
v— e
O
o —_——

000001

SEQ 0045

LASCIZ
.ASCIZ
.ASCIZ

§153<12><377><377><377>

MSGADR:

LASCIZ

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

MSGVEC:

LASCIZ

<15><12>'VECTOR ADDRESS:

020056
030512
020040

MSGNUM:

LASCIZ

<15><12>'NC. OF pJ11°'S:

047522
021440

MSGPRG:

LASCIZ

<15><12>''PROGRAM #:

042040

MSGO1:

LASCIZ

<15><12>'N0 Dy11°'S!"’

047522
041440
052516
041505
042530
051105

MSGP2:

ASC11

<15><12>'PROG2:

041505
051505
000
000
046111
051101
042526
020122
000012

MSGP3:

LASCIZ

<15><12>""*ECHO TEST*''<15><12>

MSGDAS
:
MALARM:

LASCIZ
LASCIZ <15><12>''SILO ALARM LEVEL

051522
030461
042522

SR
SRRIRK
VI
N=NNN
=
016770

l.’

&
PAGE 46

RETURN:
SPACE:
MSGMDN:

000377

000040
052103
042104
020072

016754
016762

TYPE ROUTINE

G
14:01

LASCIZ
.ASCIZ " SELECT LINE = "'

055103
026506
045104
042530
047117

047516

21-JUN-78

MNUM:
:
MSGSEL

041505
042516
~
~N
~
~

1
1

043
051440
—_

TXXXXR
RENRZS

lelolelelels]

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

020523

.EVEN
END:
.END

<15><12><377>''CZDJB=F=0

DJ11 EXER & ONLNE''

CONTINUOUS ECHO EXERCISER''<15><12>

FOR (SR''<15><12>

CZDJBFO D211 EXER & ONLNE
CZDJBF .P11
21-JUN-78 13:56
ADKNIT
ALL
ALMCK
ALMFLG
BEGIN

011230
007270
010024
001300
006312

BELL
=
BINARY 011274
BITYPS 015356
BITO =
1
BIT1
=
2

BIT10 = 002000
BIT11 =

000

BIT12 = 010000
BIT13 = 020000

BIT14 = 040000
BIT15 = 100000
BITZ2 = 000004

BIT3
BIT4
BITS
BIT6
BIT7

=
=
=
=
=

000010
000020
000040
000100
000200

BIT8 = 000400
BIT9 = 001000
BUFSIZ
001262
CNT
016206
CNTLU
016126
CNTNIT 011232
CNTTAB= 005313
COUNT
001306
DEVADR 001266
DISPLA 001212
DISPRE
000174
DJMAP
006452
DONE
014542
EMTS
014630
END
016770
ERRORS 001202
ERRORS 014762
FORGND

FORPZ
FORP3

ICNT
ILLUP

001200
015676

IOTRAP
10T$
ISRFLG
KBDINT

813
5344
&

826

722

8804
S75*
5574

1936
11194

L62oHn

897

4634

L72K
4734
L74M
L75#
L76H
L7748
LO4LH

L65#
LOE6H
LE7R
4684

PAGE 48

SEQ 0046

CROSS REFERENCE TABLE == USER SYMBOLS

4614
1103

2065#

14:01

11034
7384
896
811

842

1960

644

881
669

918

LE9%

4704
L4714
S27#
2000«
664
576%

1909

5554
S37#
5294

506#
4L92oH
5854

828

906+

907+

899
666

901
685

905

117

1656

22954

1611

1865

789

912+

914

915+

916+

1418

908

911
1665

927
1728

937

1879

1884

1890

601

564

007714

006754
006534
104000
014760

INHRE
INPUT

716

21-JUN-78

012222
013472

GETLEN
GETVEC
HLT
=
HLTADR
HLTCTS

825

MACY11 30A(1052)

014756

015314
015316

015712
016020
001276
016310

LEVEL7= 000340

1082
1968

20574

20584
1096+
1975

11044

O2X ooxFO30[N"aOllV.NaleNeOeAMDNNITOMoIOM—0NOUnyMNIINO4NBA6IIO7MZANOBMIFITNNZ=OAONM—E—N o

*o« oM-7E3I9RLS30¥1RT334RE537lRE0N’NA3IS3—AhOesSP3IRO3NNIeIAyR3 oM =

AR3NSaSR00(0oq5Il;&«5fl”f~lz.(m"LA302uNI‘mRn3Sew43wMcIh5RALuXQy7OJnIN1bu&-ON]NCu2eULImlMLAtLE24nPO'JPwnIs2’wyy1-Amu:2“kS17I/NbMmw'etWuZnn—ux&asr&smwras©0wIJomX]M0-wGAOXMBGN

Sm-82%z12?”B%OWW78ArsE383505453%=
hm“S,O

V]VToWYVToN VI[AVolelol Lt

nu%huwyzlyowa

PTINIT

00744
11204

[

1898

843
20264

1399«

/1‘:'

109+

830«

1078
1904

Ne—

1441~

1609

1443

514

1448+

515

874

20674
2158

2197

1645

1714

1567+

1569+

1948

516

2021

2025+

1572

518

V] VT T[V oV gV LV

M11”M1 11 11 1112"""1212212

MACY11

=
Y1MV 3OV4ONV5]I6NUoOT8UTNM9WNV0=
OTV2I@[2AVo3l o5l6el7Lo9—l
MY AUMNVN O V — = —

1| 1

RaT8BsSR5ne5SSm52R8m¥8FIOryESR5oEOR5Nal"au4L3—1%5Ru8S1—nO—p13—o1—\s11D—1RT171S2R1122I31=25UTA122D3e317M4eB\62S1e73CR28zoN8iY0RScaroiSnRoOoNsoEinTenSsnNI.sNN52O8%8
-c' c=. ’— m——MT1T——x“————rfMi——1——/———M1————N—e—10N1r—T21—NM——OF21r—N—nOrrN21rr————rM21~rIr£F,=3-rr~U1r<rLIr0r—N=n1roA—oNr, cl
—————N—0——T—NL—Alr——rtrT—rTyNr—r———
CZDJBFO DJ11 EXER & ONLNE
CZDJBF .P11
21-JUN-78 13:56
30A(1052)

4
I
PAGE 49
21=JUN-78 14:01
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0047

1619+

519

1621+

520

1624

521

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

012052
013034

P2XISR

012642

P3INIT

013262

P3RISR

014312

P3XISR

014162

RCVCNT= 004313
RCVISR
011106

RCVLVL
RCVTAB

001272
002312

READIN
READS
REPORT
RESTAR
RETURN
RISRO
RISRT
RISR10

015022
015170
006670
007310
016434
010372
010412
010572

RISR11
RISR12
RISR13
RISR14
RISR1S
RISR16

010612
010632
010652
010672
010712
010732

RISR3
RISRG

010452
010472

RISR17
RISRZ2

RISRS
RISR6
RISR7
R2SRO
R2SR1
R2SR10
R2SR11
R2SR12
R2SR13
R2SR14
R2SR15
R2SR16
R2SR17
R2SR2
R2SR3
R2SR4

R2SRS

R2SR6
R2SR7
R3SRO
R3SR1T
R3SR10

164174
1472
1524
1474
1526
16644

SEQ 0048

1480
1532
1482
1534

1484
15874
1486
15414

1488

1492

1496

1500

1504

1508

1512

1516

1520

1490

1494

1498

1502

1506

1510

1514

1518

1522

1747

1751

1755

1759

1763

1767

1771

1775

1779

1783

1787

1791

1795

1801

1805

1809

18164

1765

1773

1777

1781

1785

1789

1793

1797

1799
1749
5524
949
1001
5314
5464
1903«

718
1994
633
498
647
791
9534
9814

1803
1753
828+
953
1005
793
826«
1904

730
20304
64l
736
725
9494

9854
9894
9934
9974
10014
10054

10094
9574

010512
010532

964
9734

012242
012262
012442
012462
012502
012522
012542
012562
012602
012622
012302
012322
012342
012362
012402
012422
013562
013602

1420
14764
15044
15084
15124
15164
15204
15244
1528#
15324
14804
14844
14884
14924
14964
15004
1667
17514

013767

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

1476
1528
1478
1530

010752
010432

010552

MACYT1

9614
9654
9774

1779

14724

17474

1807
1757
864
957
1009
1422
1077
1906+

18554
1761

965

969

972

977

981

985

989

993

997

1563
1910

1614
1911«

1616
1912«

1693«

1882

1888

1902+

2199

1560
1909+«

1627+

19934

1086+
961
10554
1669
1088+
1908+

7458
1574

1946
1629

2125
22524

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

R3SR11
R3SR12
R3SR13
R3SR14
R3SR1S

R3SR16
R3SR17

014002
014022
014042
014062
014102

014122

014149
R3SR2
013622
R3SR3
013642
R3SRG
013662
R3SRS
013702
R3SR6
013722
R3SR7
013742
SAVIT
001214
SCOPE = 104400
SELPRO 007162
SIXBIT
011266
SPACE
016442
STACK = 001200
SUM
001310
SUSWRR 016230
SVSWO
001220
SVSW1
001222
SVSW10 001240
SVSW11
001242
SVSW12 001244
SVSW13 001246
SVSW14 001250
SVSW15 001252
SVSW16 001254
SVSW17 001256
SVSW2
001224
SVSW3
001226
SVSWe
001230
SVSWS
001232
SVSW6
001234
SVSW7
001236
SWITCH 007222
SWR
001210
SWREG
SWREQ

W10
swil
Sw12
Sw13
Swis
Sw15
SW8
Sw9

TIME
TIMERA

TIMERB
TIMES

TMP1
TRNERR

=
=
=
=
=
=
=
=

000176
016220

002000
004000
010000
020000
040000
100000
000400
001000
010336
001302

001304
001216

016356
016360

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

SEQ 0049

17834
17874
17914
17954
17994

18034
18074

17554
17554
17634
17674
17714
17754
508¢
4484
715
1107
1987
©
4B0W
5384
558
5108
5114
5184
5194
5204
5014
524
5034
5044
5054
5124
5134
5144
5154
5164
5174
7258
5054
2218
4938
2195

3994
3984
3078
3968
3054
3944
4024
4014

893
5354

534
50904

2200
877

731

732

720
11184
2253#4
557
884+
2215#4
724

746

748

769
901x

1398
902

1644
905«

90¢

739

815

1439

1684

662

721

818

832

2193

219¢

2222

2229

1957

1958

2233«

735
64b

2222+

662
22114

1934

2229

907

921

921
1962

1976

9334
885+

886*
579%

2204
224LoM

933«

935+
872«

2231%

878w

2232«

2239

908+

1934

909

1958

9M*

1962

912

1972

2193

2204+

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

UNITS
VECADR
XISRO

= 000004

001264
001270
010402

4504

926
2144
5284
5304

XISR1
XISR10
XISR11
XISR12

010422
010602
010622
010642

9514
9554
9834
9874
9914

XISR14
XISR1S
XISR16
XISR17
XISRZ
XISR3
XISR4
XISRS

010702
010722
010742
010762
010442
010462
010502
010522

999%
10034
10074
10114
9594
9634
9674
9714

XISR13

010662

010542
010562
004312
010772

XMTLVL
XMTTAB

001274
001312

X2SRO
X2SR1
X2SR10
X2SR11
X2SR12
X2SR13
X2SR14
X2SR15

012252
012272
012452
012472
012512
012532
012552
012572

14744
14784
15064
15104
15144
15184
15224
15264

X2SR17
X2SR2

012632
012312

15344
14824

X2SR3
X2SR4
X2SR5
X2SR6
X2SR7
X3SRO

X3SR1
X3SR10
X3SR11
X3SR12
X3SR13
X3SR14
X3SR15
X3SR16
X3SR17
X3SR2
X3SR3
X3SR4

012612

012332
012352
012372
012412
012432
013572

013612
013772
014012
014032
014052
014072
014112
014132
014152
013632
013652
013672

599

646

647

1933
2153
597
619+

1936
2195
625
652

1937
2198
655
790

552
955
1007
799
771
1646

827«
959
1011
1428
825+
1692«

857
963
10184
1675
1029
1720

648

651

654

SEQ 0050
717

725

726

729

877

923

1960

1964

1970

1987

2043

2046

2053

2096

2124

665
1419

684
1666

734

738

840

1452

1712

1727

1027
967

1030*
971

1446*
975

1550
979

1553«
983

1562+«
987

1575+
991

1630+
995

999

1031«
1825

1034+
1826«

1400
1827«

16445+«
1828

1552
1830«

1556%
1831

1560«
1834+

1561%
1900

1574+
1910+

9954

XISR6
XISR7
XMTCNT
XMTISR

X2SR16

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

9754
974
5514
951
1003
5324
5444
1629*

15304

14864
14904
14944
14984
15024
17494

17534
17814
17854
1789%
17934
17974
1801#
1805#
18094
17574
17614
17654

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

X3RS
X3SR6
X3SR7
YESRT

013712
013732
013752

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

SEQ 0051

1769#
17734
17774

015710

21344

SENDAD= 014614
.
= 016772

489
4814

19414
485

1941

1948

4884

1964

4914

19654

L4954

1970

L4974

19714

5004

1973

5S4k

1978

S464

1979

.BIT

= 132000

2085
13%2’

2088
394

2093
395

20994
396

2124
397

2128
398

2144
399

2153
400

21564
401

.PR
.PRF
.PRL
LPTIT
.SAVR6
LTYPE

015524
015444
015422
015410
015702
016124

2065+
2074
20754
2066
2108+
2045+

2067+
2077
2091
20714
2112
2046

2069+
20824

2070

2072

2076

2086+

2087

2090«

2175

21914

. ABS.

016772

ERRORS DETECTED:

21304
2174«

000
O

DSKZ :CZDJBF ,DSKZ : CZDJBF . SEQ=DSKZ : CZDJBF .MAC ,DSKZ : CZDJRF .P11
RUN-TIME: 6 9 .6 SECONDS
RUN-TIME RATIO: 124/17=7.2
CORE USED:
20k
(39 PAGES)
DOCUMENT PAGES:

5494

2035

2180
402
2092

5514

5544

13884

2043

20584

2068

1934

1957

1962

2096

20994