Digital PDFs

AH-E783A-MC

January 1980

75 pages

Original

33MB

view download

OCR Version

45MB

view download

Document:	CZDRKA0 DR11W DR11-W INTRPROC EXER JAN 1980 gray
Order Number:	AH-E783A-MC
Revision:	000
Pages:	75
Original Filename:	CZDRKA0__DR11W__DR11-W_INTRPROC_EXER__AH-E783A-MC__JAN_1980_gray.pdf

OCR Text

DR11-W INTRPROC EXER

CZDRKAO

AH-E783A-MC

JAN 1980

FICHE 1 OF 1

IN USA
MADE

copvriGHT 1980

LOtORE0

MACRO 1111

26=AUG=-79 14:19

8
PAGE 2

SEa 0001

il it

N=OOVBNO
NS WN OO0
NO Ny

CIDRKAD DR11=-w INTRPROC EXER

s e

PRODUCT CODE:

AC-F782A-M(

PONUND =

s s e

IDENTIFICATION

PRODUCT NAME:

CZORKAO DR11-w INTRPROC EXER

DATE:

AUG 1979

MAINTAINER:

DIAGNOSTIC

(C)

ENGINEERING

1979

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
THIS SOFTWARE

IS FURNISHED UNDER A LICENSE FOR USE ONLY

ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH
THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE.
ThIS
SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO
THESE LICENSE TERMS.
TITLE TO AND OWNERSHIP OF
SOF TWARE SHALL AT ALL TIMES REMAIN IN DEC.

THE

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A (OMMITMENT BY DIGITAL EQUIPMENT CORPORATION.

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY
gECITS SOF TWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY

CIDRKAD DR11-w INTRPROC EXER

MACRO MI11T

24-AUG=79 14:19

4
PAGE 3

SEQ 0002

50
51
BR SR
53

TABLE OF CONTENTS
e

1.0

ABSTRACT

2.0

REQUIREMENTS

STORAGE

3.0

LOADING AND START

62
63

4.0
4.1

ERRORS
ERROR COMMENT

(.3

ERROR RECOVERY

6£.3.2

NON-RECOVERABLE ERRORS

69
70
7
;g

5.0
5.1
5.2
5.3

SOF TWARE SWITCH REGISTER
OPTIONS
IMPLEMENTAT
1ON
CONTROL

74
75
;?

6.0
6.1
6.2

M1SCELLANEOUS
DRV11B AND/OR DR11w BUS & VECTOR ADDRESS MODIFICATION
POWER FAIL

7.0

EXECUTION TIME

80
81
82
83
84

8.0
8.1
8.2

PROGRAM DESCRIPTION
GENERAL
PROGRAM SEGMENTS

4.2

4.3.1

EQU]PMENT

PROCEDURE

ERROR DATA

RECOVERABLE ERRORS

CIDRKAQ DR11-w INTRPROC EXER
87
88
89
90
91
92

MACRO M1:11

1.0

00000

D il

= OO
NO VNS W —=O OVNOWVEWNN—=O0eNo mbuN—-oomwgm R

. — —h el il il
S —h il

LS1=11
DRVI1=8

eececcecceces

==ecec-ee-

===meeemmsceeee
POP=11

POP=11
DR11-w

sececcccccccaePDP=11

==ecccmeee-

DR11-W

EACH CONFIGURATION USES THE DR11w EXERCISER LOADED INTO EACH
OF

THE

COMPUTERS INVOLVED.

2.0

REQUIREMENTS

2.1

EQUIPMENT

D il

D il D il D il

=ececcccccccse

DR11-W

s
D il il
D il

ABSTRACY

THE FOLLOWING CONFIGURATIONS ARE VALID

2.2

ONE PDP11

COMPUTER EQUIPPED WITH A DR11-W,

ONE LSI=11 EQUIPPED WITH A DRV11-B OR ANOTHER PDP11 WITH A DR11-w,

EACH SYSTEM EQUIPPED WITH AN 1/0 TERMINAL

CABLES

(TWO)

TO INTER CONNECT

THE

TWO DMA INTERFACES

STORAGE

THE PROGRAM USES THE LOWER 3400 WORDS OF MEMORY

il il il
il —
D it —

SEQ 0003

AND THE OTHER CONTAINS EITHER A DR11W OR A DRVIIB DMA INTERFACE.

D el il

B ELSDWAHWWHWWWWANENWNONNNONNINNINVIN
S S aaasdawaa

PAGE &

THE DR11W INTERPROCESSOR EXERCISER WAS DESIGNED TO PASS DATA BETWEEN
TWO COMPUTERS.
ONE COMPUTER CONTAINS A DR11Ww DMA INTERFACE

e
95
96
97
98
99
100
101
102
103

—r

26=AUG=79 14:19

3.0

LOADING AND START PROCEDURE
1.

CHOOSE ONE OF THE INTERPROCESSOR CONFIGURATIONS SPECIFIED
AND LOAD THE DR11-W INTERPROCESSOR EXERCISER INTO EACH SYSTEM.

MAKE SURE EACH DMA INTERFACE OF BOTH COMPUTER SYSTEMS
ARE

CABLED TOGETHER THRU THE

1/0 CONNECTIONS

CIDRKAO DR11-w INTRPROC EXER

MACRO M1111

24-AUG=79 14:19

1
SEQ 0004

150

INSURE THAT THE WALT SWITCH 1S DISABLED (IF ANY).

DEFINE WHAT COMPUTER IS TO BE THE INITIAL SLAVE = THE
OTHER WILL BE THE INITIAL MASTER (THE ONE STARTED AS
MASTER WILL REPORT THE 'END OF PASS' MESSAGE).

il
il
B el
il

Al Al alY LV LW LW LV ]

MAKE SURE THE DEVICE & VECTOR ADDRESSES AGREE WITH THE
DEFAULT VALUES DEFINED IN SECTION 6.1.
IF NOT, CHANGE
LOCATION(S) AS DESIRED VIA A "PATCH' METHOD CONSISTENT WITH
WITH THE SYSTEM USED.

START THE SLAVE #+FIRSTe#+ AT ADDRESS 204.

HAS BEEN STARTED THE

OOV
N -

145
146
147
::3

PAGE 4-1

DR11W INTERPROCESSOR EXERCISER

161
}:g

1S THIS CPU TESTING A DRV11B OR DR11W?
TYPE vV OR w:

164
}gg

THE OPERATOR TYPES v FOR DRV11B OR W FOR DR11W.
IF THE USER
WERE TO TYPE 'v' THEN THE FOLLOWING WOULD BE PRINTED:

167
}gg

DRV11B BOARD
INTERPROCESSOR LINK NOW IN PROGRESS....

‘;?

172
173

};g

THIS POINT

THE SLAVE

(LET'S SAY WITH A W)

STARTED.

THE

PRINTOUT WILL SHOW:

DR11Ww BOARD

};;

INTERPROCESSOR LINK NOW IN PROGRESS....

179

THE TWO SYSTEMS SHOULD NOW BE COMMUNICATING WITH THE

}g?

BEING PERFORMED.

1%%

THE

200

IS WAITING FOR THE MASTER TO BE

NOW START THE OTHER COMPUTER(MASTER) AT SA 200.
SIMILARLY
PROGRAM WILL REQUEST THE BOARD TYPE.
WHEN USER ANSWERS

176

184
185
18¢
187
188
189
190
191
192
193
194
195
5B
197
198
199

AFTER THE SLAVE

FOLLOWING PRINTOUT WILL OCCUR:

END OF

PASS MESSAGE

END PASS
END PASS
.
.
ETC.

4
*

WILL

SUSEQUENTLY

I S N

6.0
Rt

6.1

ERRORS
Rs

ERROR COMMENT

OCCUR AS FOLLOWS:

1
2

THE FIRST END PASS IS WITH NO ITERATIONS;
WITH ITERATIONS.

TESTS

ALL OTHERS ARE

THE

CIORKAG DR11-w INTRPROC EXER

MACRO M1111

201
202

FURTHER QUALIFICATION OF

THE ERROR CAN BE OBTAINED FROM THE
OF FROM THE TEST ITSELF.

6.2

NO VNS W

—-O

SEQ 0005

COMMENT AS TO THE TYPE OF FAILURE.

COMMENT AT

THE ERROR PC

ERROR DATA

ERRPC
BUSADR
EXPCT

LISTING ADDRESS WHERE THE ERROR WAS DETECTED
DRV11B BUS REG ADDRESS OF CONCERNED OPERATION
DATA THAT WAS EXPECTED

MEMADR

MEMORY

RCVD

b b s b
=

= OO0V

1
F
PAGE 4-2 .

ALL ERRORS ARE ACCOMPAINED WITH AN ENGLISH LANGUAGE DESCRIPTIVE

203

oo
RN NN

24-AUG=79 14:19

DATA THAT WAS RECEIVED

6.3

ERROR RECOVERY

6.3.1

RECOVERABLE ERRORS

ADDRESS OF

DATA ERROR

BECAUSE OF THE SYNCHRONIZATION ESTABLISHED WITH THE OTHER COMPUTER,
MOST ERROR CONDITIONS WILL CAUSE BOTH COMPUTERS TO RE-SYNCHRONIZE
AT THE START OF THE PROGRAM.
WHEN AN ERROR OCCURS, AN ERROR MESSAGE
WILL BE PRINTED.
FOLLOWING THIS , A DELAY OF 5-10 SEC wILL OCCUR
AND THE

COMPUTER STARTED AS SLAVE WILL PRINT:

*RESYNC...

THIS INDICATES THAT THIS CPU HAS SUCCESSFULLY STARTED ITS PROGRAM
AGAIN AND IS WAITING FOR MASTER CPU.
APPROX. 5-10 SEC LATER THE CPU STARTED AS MASTER WiLL TYPt:
*RESYNC...

AT THIS POINT BOTH CPU'S SHOULD BE AGAIN COMMUNICATING AND
WILL HAVE BEEN RESUMED FROM THE START OF THE PROGRAM,
&.5.2

TESTING

NON-RECOVERABLE ERRORS

SOME ERRORS CAN OCCUR DUE TO DMA INTERFACE MALFUNCTIONS,
INTERMITTENT CABLE CONNECTIONS, ETC.
1.

AN ERROR OF

THIS TYPE MAY RESULT

IN ONE OR BOTH SYSTEMS

STUCK IN ONE OF THE 'WAIT LOOPS' FOUND IN THE PROGRAM,
THE WAIT LOOP COULD BE A SOFTWARE LOOP INVOKED BY A SYSTEM WHILE
WAITING FOR ITS COMPANION TO SET A BIT IN IT'S REGISTER.

IF THIS NEVER COMES THEN THE SYSTEM WAITS INDEFINITELY AND

SYNCHRONIZATION IS LOST.

A TEST SUCH AS 'BURST DATA LATE
THE BUS OF

ONE

SYSTEM,

'MAY FAIL AND HANG

IN THIS CASE, THE CPU FAILS TO EXECUTE ANY FURTHER INSTRUCTIONS .
AS STATED IN 4.3.1 MOST ERROR CONDITIONS CAN BE HANDLED BY
RESYNCHRONIZATION.
HOWEVER,THE PROGRAMS WiLL NOT BE ABLE TO RECOVER

CIDRKAD DR11=Ww INTRPROC EXER

258
259
260
261
26?2
263
264
265
266
267
268
269

MACRO M1111

270

BP9

280

T e

ARt

5.0

SOF TWARE SWITCH REGISTER

5.1

OPTIONS

281

SWITCH
et

BI1T15=1

282
283
284
285
ggg

1
6
PAGE 4-3

SEQ 0006

THEMSELVES FROM THE ABOVE ERROR TYPES.
THEREFORE 1T BEHMOOVES THE OPERATOR TO
PERIODICALLY CHECK FOR 'END PASS' PRINTOUTS WHICH WILL OCCUR
APPROX. EVERY 2 MINUTES.
THIS WILL VERIFY THAT BOTH SYSTEMS
ARE STILL IN SYNC.
IF
SYNCHRONIZATION IS LOST,.BOTH SYSTEMS MUST BE HALTED WHEREBY THE ADDRESS
LOCATION OF EACH PROGRAM CAN BE DETECTED THRU 'ADDRESS' REGISTER
OR 'ODT' PRINTOUT. BOTH PROGRAMS MUST BE RE=-STARTED AS SPECIFIED
IN SECT. 3.0.

S;;

273
274
275
276
277
278

24-AUG=79 14:19

s S AN T

100000

BIT13=1
BIT10=1

5.2

OCTAL

FUNCTION

ape—

HALT ON ERROR

020000
002000

INHIBIT ERROR TYPEOUTS
BELL ON ERROR

IMPLEMENTATION

288
289
290
291

IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH
REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED WHICH ALLOWS

294
535

THE PROGRAM WILL REQUEST THAT THE SOF TWARE SWITCH REGISTER
BE LOADED UPON 1ST PASS OF THE PROGRAM,
IT WILL PRINT:

THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER.
I1f THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES

292
293

AND IT CONTAINS ALL ONES (177777) THEN THE SOF TWARE SWITCH
REGISTER (LOC. 176) 1S USED.
UNNDER THESE CONDITIONS

Sg;

SWR:=XXXXXX

299
ggq

5.3

302

gg!
&

305
306
307
308
1

2
3

“

NEW=

(USER ENTERS IN FOLLOWING NtWw=)

(ONTROL

THE SOFTWARE SWITCH REGISTER 'SWREG' (LOC. 176) CAN BE

THE SOFTWARE SWITCH REGISTER CAN BE CHANGED UNDER PROGRAM
CONTROL BY TYPING THE 'CONTROL & G' KEYS. THIS KEYBOARD
OPERATION WILL PRINT OUT THE CURRENT CONTENTS AND ACCEPT
NEW OCTAL SWITCH REGISTER DATA TERMINATED WITH A CARRIAGE

CHANGED BY USING

ODT FACILITIES.

WHEN USING THE ODT MODE AND ONCE 1T HAS BEEN ENTERED DUE TO AN ERROR
g

CONDITION WITH BIT15 SET (HALT ON ERROR), STEP #2 ABOVE
1S OF NO VALUE, SO RESORT TO STEP #1 TO ALTER THE CONTENTS.

[
P

- OVR~NO
W

NN
N N NN

CIDRKAOC DR11-w INTRPROC EXER

MACRO M1111

24-AUG=79 14:19

PAGE 4-4

6.0

MISCELLANEOUS

6.1

DRV11B AND/OR DR11w BUS & VECTOR ADDRESS MODIFICATION
MODiIFY LOCATION 'INTADR'
MODIFY LOLATION 'DRVECT'
NOTE:

IF BASE BUS ADDRESS IS NOT 172410
IF VECTOR ADDRESS IS NOT 124

USE APPROPRIATE PATCH FACILITIES TO MODIFY THESE LOCATIONS

AFTER PROGRAM LOAD.

6.2

POWER FAIL

THE PROGRAM OFFERS NO PROVISIONS FOR RESTART PROCEDURES
DUE TO POWER FAIL.
UPON POWER UP, AND ASSUMING NON

VOLATILE MEMORY, THE PROGRAM OF EACH SYSTEM MUST BE RESTARTED
ACCORDING TO SECT.

7.0

3.0.

EXECUTION TIME

EXECUTION TIME IS ABOUT 3 SEC

FOR NO ITERATIONS
EXECUTION TIME W/ITERATIONS IS DETERMINED BY THE SYSTEM CONFIGURATION
ACTUAL RUN TIMES ARE AS FOLLOWS:

11/34 = 11/05: 3MIN
11/70 = 11/45: 45SEC.
11/70 - 11/03: 1MIN 15SEC.

8.0

PROGRAM DESCRIPTION

8.1

GENERAL

THIS INTERPROCESSOR EXERCISER WAS DESIGNED TO TEST THE

1/0
ABILITY OF THE DR11W GENERAL PURPOSE INTERFACE TO COMMUNICATE TO
ANOTHER DR11W OR PRV11B LOCATED IN ANOTHER SYSTEM.
THE TWO
COMPUTERS ARE STARTED AT DIFFERENT ADDRESSES TO ESTABLISH

INITIAL SYNCHRONIZATION. THE SLAVE COMPUTER 1S STARTED 1ST
(START 204) AND THE MASTER COMPUTER 1S STARTED 2ND (START 200).

THE TERMS 'MASTER' AND 'SLAVE' SHOULD BE USED LOOSELY AS THE
MASTER WILL BECOME THE SLAVE AND THE SLAVE WILL BECOME THE
THE COMPUTER STARTED AT
MASTER AS THE PROGRAM ADVANCES.
ADDRESS 200 WILL ALWAYS REPORT THE 'END OF PASS' MESSAGE.

8.2

PROGRAM SEGMENTS

1A,

MTST1 = MASTER SENDS OUT PROGRAM (ONTROLLED SINGLE WORDS
THRU THE DATA BUFFER REGISTER AND EXPECTS THE SLAVE TO ECHO

SEQ 0007

CZDRKAD DR11=w INTRPROC EXER

MACRO M1111

24-AUG=79 14:19

PAGE 4-5

1
SEQ 0008

EACH WORD BACK TO THE MASTER VIA THE DATA BUFFER REGISTER.
8.

STST1 = SLAVE ECHOS ALL CHANGES IN THE DATA BUFFER REGISTER

2A.

TEST

THAT SLAVE CAN INTERRUPT MASTER:

TEST

THAT

SLAVE

F2(SLAVE)

ATTN(MASTER)

INTERRUPTS MASTER:F2 TO ATIN

-——e

MIST2 = MASTER SENDS OUT A "FNCT' BIT CODE IN THE COMMAND
STATUS REGISTER AND EXPECTS THE SLAVE TO ECHO EACH CODE IN

ITS "FNCT® BITS.

THE MASTER WILL READ THE

'STAT' BIT (ODE

FROM THE COMMAND/STATUS REGISTER AND COMPARE
CODE WRITTEN.

STST2 = SLAVE READS THE

STATUS REGISTER,

IT'S

TO THE

'STAT' BIT CODE FROM IT'S COMMAND/

CONVERTS THIS CODE AND WRITES IT

"ENCT' BITS IN THE COMMAND/STATUS REGISTER.

INTO

MTST3-BLOCK MODE XFER-MASTER SENDS OUT A 32 WORD
DATA BLOCK TO THE SLAVE

AND CHECKS FOR PROPER INTERRUPT STATUS,
AND BUFFER ADDRESS AT THE COMPLETION OF
4B.

WORD COUNT,
THE TRANSFER.

STST3-BLOCK MODE XFER-SLAVE RECEIVES A 32 WORD DATA BLOCK FROM THE

MASTER

AND

CHECKS

BUFFER ADDRESS,

FOR

PROPER

INTERRUPT

STATUS,

WORD

COUNT,

AND DATA CONTENT.

MTST4 BURST MODE WORD XFER-MASTER XMITS 32 WORDS TO SLAVE
(DR11-W TO (DR11-W ONLY)
SAME AS 4A EXCEPT BURST MODE:BOARD DOES NOT RELEASE BUS
UNTIL WORD COUNT OVERFLOW

58.

STST4& BURST MODE WORD XFER TEST-SLAVE RECEIVES 32 WORDS

FROM MASTER(DR11W TO DR11W ONLY)
SAME AS 4B EXCEPT BURST MODE

. MTSTS BURST DATA LATE TEST-MASTER XMITS 5 WORDS TO SLAVE
WHILE SLAVE RECEIVES 5 AND TIMES OUT (DR11-w TO DR11-W ONLY)
PROCEDURE: MASTER XMITS 5 WORDS 1O SLAVE

IN BURST MODE

SLAVE IS SETUP TO DO 10 XFERS. CHECK THAT MASTER INTERRUPTS
BY WCOF. CHECK CSR,WC,AND BA. AFTER 5 XFERS ARE DONE IN

SLAVE
, TIMEOUT OCCURS(50US), SINCE SLAVE WAITS FOR GO-AMEAD
FROM MASTER TO CONTINUE,BUT MASTER NEVER RESPONDS.

SLAVE: CHECK THA1 5 XFERS HAVE BEEN COMPLETED.
NOTE: S0US IS MAX TIMEOUT THAT REPRESENTS LENGTH OF TIME
BOARD HOLDS THE BUS WHILE WAITING FOR COMPANION . IT IS BEYOND
THE CAPABILITY OF THIS DIAGNOSTIC TO VERIFY A 50US TIMEOUT.
IN FACT, IF THE TIMEOUT FEATURE MALFUNCTIONS SO AS TO HOLD
THE BUS INDEFINITELY,THE PROGRAM WILL
WITH NO RECOVERY PROVIDED FOR.

'HANG UP'

THE (PU

CIDRKAD DR11=w INTRPROC EXER
429
430
43
32
433
634
435
436
637
43K
439

MACRO M1111

24-AUG=79 14:19

PAGE 4-6

SEQ 0009

THEREFORE ,OPERATOR SCRUTINY IS ADVISABLE
TO VERIFY
THAT THE PROGRAM IS STILL RUNNING AND THAT THE DR11-W HAS

AT LEAST RELEASED THE BUS IN TEST 5.
68.

STSTS BURST DATA LATE TEST-SLAVE RECEIVES 5 WORDS

FROM MASTER AND TIMES OUT WHILE EXPECTING MORE
(DR11-w TO DR11=W ONLY)

SETS UP TO RECEIVE 10 WORDS IN BURST MODE FROM MASTER,BUT MASTER WILL ONLY SEND
TIMEOUT OCCURS AND THE BUS 1S RELEASED
THEN CHECKS FOR PROPER INTERRUPT STATUS, W(,

BA & DATA

C(ZDRKAD DR11-w INTRPROC EXER

MACRO MT1111

641

470

24-AUG=79 14:19

LTITLE

PAGE 5

SEQ 0010

CZDRKAO DR11-w INTRPROC EXER

;*DIGITAL EQUIPMENT CORP.

;*MAYNARD, MASS. 01754
M

: *PROGRAM BY JOWN W. CIUKAJ
X

;'YHIS PROGRAM WAS ASSEMBLED USING THE PDP=11 MAINDEC SYSMAC
;*PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977,
X

471
672
473

$TN=1

000001
160000

$SWR=160000
;;HALT ON ERROR, LOOP ON TEST,
$SWR=122000
$TN=1
.SBTTL
OPERATIONAL SWITCH SETTINGS

122000

000001

INMIBIT ERROR TYPOUT

0000

SWITCH

mememmemsm

o
i

15
13

474

.SBTTL

coOeeoomee

USE
e

HALT ON ERROR
INHIBIT ERROR TYPEOUTS

BELL ON ERROR

BASIC DEFINITIONS

;*INITIAL ADDRESS OF THE STACK POINTER ##+ 1100 ##e

001100

STACK=
1100
ERROR=EMT

104000

000004

SCOPE=]0T

s*MISCELLANEOUS DEFINITIONS

000011
000012
000015
000200

HT=

LF=
(R=
CRLF=
:§= o

177776
177776
177774
177772
177570
177570

12
15
200
177776

;:CODE FOR HORIZONTAL TAB

;:CODE FOR LINE FEED
;:CODE FOR CARRIAGE RETURN
;;CODE FOR CARRIAGE RETURN-LINE FEED
;;PROCESSOR STATUS WORD

STKLMT= 177774

ssSTACK LIMIT REGISTER

PIRQ=

177772

; ;PROGRAM INTERRUPT REQUEST REGISTER

RO=

: :GENERAL REGISTER

R2=
R3=

%2
%3

; ;GENERAL REGISTER
; sGENERAL REGISTER

DSWR=
177570
; ;HARDWARE SWITCH REGISTER
DDISP=
177570
; sHARDWARE DISPLAY REGISTER ~
;*GENERAL PURPOSE REGISTER DEFINITIONS

000000
000001
000002
000003
000004
000005
000006
000007
000006
000007
000000
000040
000100
000140
000200
000240
000300

0207077

R1=
R4 =

RS=

Ré6=

:sGENERAL REGISTER
; sGENERAL REGISTER

; sGENERAL REGISTER

: ;GENERAL REGISTER

R7=
X7
:sGENERAL REGISTER
SP=
%6
::STACK POINTER
PC=
X7
; ;PROGRAM COUNTER
;*PRIORITY LEVEL DEFINITIONS

PRO=

::PRIORIVY LEVEL O

PR&4=

200

::PRIORITY LEVEL 4

PR1=
PR2=
PR3=

PRS=
PR6=

40
100
140

240
300

::PRIORITY LEVEL 1
::PRIORITY LEVEL 2
::PRIORITY LEVEL 3

::PRIORITY LEVEL S
::PRIORITY LEVEL 6

CIDRKAD DR 1 - INTRPROC EXER
BASIC DEFIN l 11 ONS

MACRO M1111 24-AUG=-79 14:19 PAGE %-1
PR7=

340

SEQ 0011

;sPRIORITY LEVEL 7

;*"'SWITCH REGISTER' SWITCH DEFINITIONS

000004
000002
000001
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001
100000
040000
020000
010000
004000
002000
001000

000400
000200
000100
000040
000020
000010
000004
000002
000001
001000
000400

000200
00010

000040 '
000020
000010
000004
000002
000001
000004

SWwi5=
100000
SWis=
40000
Swi3=
20000
swi2z=
10000
SWil=
4000
Sw10=
2000
sSw09=
1000
sSw08=
400
sw07=
200
swoe=
100
SWw05=
40
SWwos=
20
Swo3=
10
4
SWw02=
swol=
2
1
sSw00=
SW9=5w09
SW8-5w08
SW7=Sw07
SW6=SW06
SW5=5w05
SW4=5W04
SW3=5w03
SW2=5w02
SWi=Sw01
SW0=Sw00

;*DATA BIT DEFINITIONS (BITOO TO BIT1S)

100000
BIT15=
BIT14= 40000
BIT13= 20000
10000
B1T12=
BIT11= 4000
BIT10= 2000
1000
B17T09=
B1T08= 400
B1107= 200
100
B1T06=
BIT05= 40
B1T04= 20
10
B1103=
BIT02= &
BIT01= 2
1
B1100=
B1109
B119=
B178-B1108
B117=B1107
B1T6=B1106
BI1T75=B1105
B1T4=B1T104

BI173=BIT03
BI112=B1102
B8171=B1701
B8170=B1700
;*BASIC “'CPU'" TRAP VECTOR ADDRESSES
ERRVEC= &
;:TIME OUT AND OTHER ERRORS

CZORKAD DR11-W INTRPROC EXER

BASIC DEFINITIONS

MACRO M1111

24-AUG-79 14:19

;s TRACE TRAP
: ;BREAKPOINT TRAP (BPT)
;s INPUT/0OUTPUT TRAP (JOT) #«SCOPEw»
s ;POWER FAIL
:;EMULATOR TRAP (EMT) #+ERRORw+

PWRVEC= 24

EMTVEC= 30
TRAPVE(C=34
TKVEC=
60

.SBTTL

000000

000200

477 000204
478
479 000100
480

::TTY KEYBOARD VECTOR

TRSP CATCHER

;sTTY PRINTER VECTOR
: ;PROGRAM INTERRUPT REQUEST VECTOR
:INSTR EQUATE THAT MOVES BYTE TO PSw

- #ALL UNUSED LOCATIONS FROM & = 776 CONTAIN A *'.42,HALT"

“SEQUENCE T0 CATCH ILLEGAL TRAPS AND INTERRUPTS
:+LOCATION
0 CONTAINS 0 10 CATCH INPROPERLY LOADED VECTORS

000174
000000
000000

000137
000137
000100
000104

::""TRAP'" TRAP

TPVEC=
64
PIRQVE(C=240
MIPS=106427

000240
106427

000174
000176

SEQ 0012

: ;RESERVED AND ILLEGAL INSTRUCTIONS

000010
000014
000014

675
676

LR
PAGE 5-2

DISPREG: .WORD 0
SWREG:
.SBTTL

001506
001514
000200

000002

.WORD
STARTING ADDRESS(ES)
9#STARTI
JMP
SN#START2
JMP

.=100
.WORD

104,200,2

;;SOFTWARE DISPLAY REGISTER
: :SOFTWARE SWITCH REGISTER
::JUMP TO STARTING ADDRESS GF PROGRAM
;GO START AS SLAVE COMPUTER
;1F

'B EVENT' ON G-BUS IS CONNECTED

;JUST DO A RTI

(IGNORE IT)

|
|

CIZDRKAOD DR11-w INTRPROC EXER
COMMON TAGS

MACRO M1111

481

24-AUG=79 14:19

.SBTTL

PAGE 6

COMMON TAGS

:;""""""'."""'"""""""'"""'.'."""'t (22222222}

001100

001100
001100
001102
001103
001104
001106
001110
001112
001114
001115
001116
001120
001122
001124
001126
001130
001132
001134
001135
001136
001140
001142
001144
001146
001150
001152
001154

©00000
000
000
000000
000000
000000
000000
000
001
000000
000000
000000
000000
000000
000000
000000
000
000
000000
177570
177570
177560
177562
177564
177566
000

001163

000

001155
001156
001157
001160

001164
001165
001166

:*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS
s*USED IN THE PROGRAM.
.=1100
SCMTAG:
;:START CF COMMON TAGS
$PASS:
.WORD
O
: ;CONTAINS PASS COUNT
$TSTNM: .BYTE
O
s sCONTAINS THE TEST NUMBER
SERFLG: .BYTE
O
: sCONTAINS ERROR FLAG
$ICNT:
_WORD
O
s sCONTAINS SUBTEST ITERATION COUNT
SLPADR: .WORD
O
;;CONTAINS SCOPE LOOP ADDRESS
SLPERR: .WORD
0
;;CONTAINS SCOPE RETURN FOR ERRORS
SERTTL: .WORD
O
;;CONTAINS TOTAL ERRORS DETECTED
SITEMB: .BYTE
O
;;CONTAINS ITEM CONTROL BYTE
SERMAX: .BYTE
1
;;CONTAINS MAX. ERRORS PER TEST
SERRPC: .WORD
O
;s CONTAINS PC OF LAST ERROR INSTRUCTION
SGDADR: .WORD
0
; ;CONTAINS ADDRESS OF 'GOOD' DATA
$BDADR: .WORD
0
;;CONTAINS ADDRESS OF 'BAD' DATA
SGDDAT: .WORD
O
;;CONTAINS 'GOOD' DATA
$BDDAT: .WORD
O
;s CONTAINS 'BAD' DATA
.WORD
0
; ;RESERVED=--NOT TO BE USED
WORD
O
$AUTOB: .BYTE
0
;sAUTOMATIC MODE INDICATOR
SINTAG: .BYTE
O
;s INTERRUPT MODE INDICATOR
LWORD
0
SWR:
.WORD
DSWR
; sADDRESS OF SWITCH REGISTER
DISPLAY: .WORD DDISP
; sADDRESS OF DISPLAY REGISTER
$TkS:
177560
;:TTY KBD STATUS
$TKB:
177562
;:TTY KBD BUFFER
$TPS:
177564
;:TTY PRINTER STATUS REG. ADDRESS
$TPB:
177566
ssTTY PRINTER BUFFER REG. ADDRESS
SNULL:
.BYTE
0
: sCONTAINS NULL CHARACTER FOR FILLS

002
012
000
207
077
015
012

377

000

377

$FILLS:
SFILLC:
$TPELG:
$BELL:

.BYTE
.BYTE
.BYTE
.ASCIZ

2
12
0
<207><377><377>

;;CONTAINS # OF FILLER CHARACTERS REQUIRED
;s INSERT FILL CHARS. AFTER A "'LINE FEED"
;:"'TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)
;,;CODE FOR BELL

$QUES:
$CRLF:
SLF:

LASCII
LASCI1
LASCIZ

77/
<1%
12>

; ;QUESTION MARK
;s CARRIAGE RETURN
;sLINE FEED

.'“."""'""""""'"'"'.""""""'.'ll"l"l".'lt.t"'t

SEQ 0013

CIDRKAD DR11-w INTRPROC EXER

ERROR POINTER TABLE

MACRO M1111

24-AUG=79 14:19

.SBTTL

8
PAGE 7

SEQ 0014

ERROR POINTER TABLE

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.’

;*THE INFORMATION 1S OBTAINED BY USING THE INDEX NUMBER FOUND IN
;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
;*NOTE:
IF SITEMB 1S O THE ONLY PERTINENT DATA IS (SERRPC).

;s*NOTE2:
.

001179

482
483 001170

484 001172
485 001174
486 001176

013754
015633
015734
000000

001200
001202
001204
001206

014047
015633
015734
000000

001210
496 001212
497 001214
498 001216
499
500

014130
015633
015734
000000

487
488
489
490
491
492
493
494
495

501 001220
502 001222
503 001224
504 001226

014203
015633
015734
000000

EM
DH
DT
DF
|

EMI
DH1

DT1

;ERROR

2
EM2
DH1
DT1
0

3
EM3

DH1
AR
0

;ERROR

EACH ITEM IN THE TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOWS:

:;POINTS
;;POINTS
;sPOINTS
;;POINTS

TO
TO
TO
TO

THE
THE
THE
THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

FAILED TO ECHO DBR CONTENTS
RCVD
BUSADR EXPCT
;SERRPC $BDADR S$GDDAT S$BDDAT

;SLAVE
;ERRPC

;SLAVE

FAILED TO ECHO 'STAT' BITS

;ERRPC
BUSADR
;SERRPC $BDADR

EXPCT
$GDDAT

RCVD
$BDDAT

;FAILED TO INTR ON A °'DATI'
;ERRPC
BUSADR
EXPCT
RCVD

;SERRPC $BDADR

$GDDAT

$BDDAT

EM4

DH1
DT
0

;STATUS ER ON °DAT]'
;ERRPC

BUSADR

;SERRPC $BCADR

EXPCT

S$GDDAT

RCvVD

$BDNAT

e \ Y

(W LV LV IV IV ] VNN AN AN DN NN AN
NN N = o e s
i il il i

EM
DH
DT

sERROR

6
EM6

DH1
DT1
0

WSS
=

;ERROR

000000

3°
36 001300
37 001302
38 001304
39 001306

014554
015633
015734
000000

1310
1312
1314
1316

014624
015670
015734
000000

548 001320
549 001322
550 001324
001326

014665
015633
015734
000000

1 001340

62 001342

[=lelele]
[ R
owvwne
O~N~N~N
[ W N WAV
OO\

014505
015633
0157534
000000

[=l=lel=]
=lelele]

530 001270
531 001272
532 001274
533 001276

(o e XV TV RN TW AV LV IV LV IV ]
OOV®NOWVHWN
—

24-AUG=-79 14:19

:ERROR

527 001266

WAV AV IV IV IV WAV LV IV IV IV ]

MACRO M1111

—

CIDRKAO DR11-w INTRPROC EXER
ERROR POINTER TABLE

0150

0157

;ERROR

7
EM7
DH1
D11
0
10

EM10
DH1
DT
0
11

EMN
DH1
DT1
0
12

EM12
DH1
DT
0

;ERROR

EM13
DH2
AR

;ERROR

:ERROR

;ERROR

~ 3

C
PAGE 8

!
|

SEQ 0015

;WORD COUNT ER ON 'DATI'

;ERRPC BUSADR
;SERRPC $BDADR

EXPCT
SGDDAT

RCVD
$BDDAT

;BUFFER ADRS ER ON °'DATI'
;ERRPC BUSADR
;SERRPC $BDADR

EXPCT
$GDDAT

;FAILED TO INTR ON A

RCVD
S$SBDDAT

'DATO'

$GDDAT

RCVD
$BDDAT

;STATUS ER ON 'DATOQ'
;ERRPC BUSADR EXPCT
;SERRPC $BDADR S$GDDAT

RCVD
$BDDAT

;ERRPC

BUSADR

;SERRPC $BDADR

EXPCT

;WORD COUNT ER ON 'DATO®
;ERRPC
BUSADR
;SERRPC $BDADR

EXPCT
$GDDAT

RCVD
$BDDAT

;BUFFER ADRS ER ON °'DATO'
RCVD
;ERRPC BUSADR EXPCT
$BDDAT
;SERRPC $BDADR $GDDAT

;DATA ER ON 'DATO'
;ERRPC MEMADR EXPCT
;SERRPC $BDADR $GDDAT

RCVD
$BDDAT

;CSR READY BIT WAS SET = SHOULD BE CLEAR

;PROTOCOL

INITIALIZATION ERROR =MASTER AND SLAVE

;STUCK FOREVER WAITING FOR COME NION

CIDRKAO DR11-w INTRPROC EXER

ERROR POINTER TABLE

MACRO M1111

24-AUG-79 14:19

563 001344
ggg 001346

015752
000000

D13
0

566
567 001350
568 001352
569 001354
g;? 001356

015147
015725
015746
000000

;ERROR 17
EM17
DH3
D12
0

572
573 001360
574 001362
575 001364
g;g 001366

015241
015725
015746
000000

;ERROR 20
EM20
DH3
D12
0

578
579 001370
580 001372
581 001374
ggg 001376

015354
015725
015752
000000

;ERROR 21
EM21
DH3
D13
0

584
585 001400
586 001402
587 001404
588 001406
589

015446
015633
015734
000000

;ERROR

22
EM22
DH1
DT1
0

PAGE 8-1

2
SEQ 0016

; TIMEOUT ERROR BURST MODE XFER=INCURRED INTERRUPT

;SLAVE DID NOT INTERRUPT MASTER

;TEST

2-ERROR BIT

SET

IN MASTER

;BURST DATA LATE BIT IN EIR NOT SET

CIORKAO DR11-w INTRPROC EXER

ERROR POINTER TABLE

594
595
596 001410
597
598
599
600 001412
601

24-AUG=79 14:19

3
PAGE 9

SEQ 0017

; BASE REGISTER ADDRESS ASSIGNMENT
172410

INTADR:

172410

;MODIFY

THIS LOC

DIFFERENT

THIS LOC

DIFFERENT

: VECTOR ADDRESS ASSIGNMENT
00012¢

DRVECT:

124

;MODIFY

; BUS REGISTER ADDRESS POINTERS

602

603
604 001414
605 001416
606 001420
607 001422

MACRO M1111

172410
172412
172414
172416

W(R:

BAR:
CSR:
BDR:

172410

172412
172414
172416

;WORD COUNT
;BUFFER ADDRESS

; COMMAND/STATUS
;BUFFER DATA REGISTER

; VECTOR ADDRESS POINTERS
611 001424
612 001426
613
614
615
616 001430
617 001432
618 001434
619 001436
620 001440
621 001442
622 001444
623 001446
624 001450
625 001452
626 001454
627 001456
628 001460
629 001462
630 001464
631 001466

632 001470
633
634 001472
635 001474
63¢ 001476
637
638 001500
639 001502
640 001504
641

000124
000126

DRVCTO:
DRVCTZ2:

124
126

;READY & NEX VECTOR
;NEW PSW ON INTR

;COMMON PROGRAM LOCATIONCS)
000000
000000
000000
000000
000000
000009
000000
000000
000000
000000
000001
177740
015756
000511
177740

CNT:

BOARD:

NUM:

ABORT:
TESTPC:
TOTAL:
TIME:
TEMP:

;:DESCRIBES BOARD TYPE:DR11w OR DRV11B

0
O
O
0
0

;TIMER FOR ABORTING PROGRAM

;USED TO DETERMINE BOARD TYPE
;GENERAL PURPOSE COUNTER

0
O
ICOUNT: 1
XPRAM:
=32.
DBUF
511
RPRAM:
=32,
DBUF

;REG DATA SAVED HERE
;0=MASTER START - NON-ZERO=SLAVE

177773
015756
000501

XMITMO: =5

sXMIT BURST DATA LATE

177766

RCVIMO:=10.

015756
000113

015756
000103

SAVE:
MSTER:

113

DBUF
501

208

START

:# OF TIMES TO REPEAT ALL TESTS BEFORE END PASS MSG
sXMIT WORD COUNT
;XMIT BUFFER ADRS
sXMIT STATUS/CONTROL
sRCV WORD COUNT
;RCV BUFFER ADRS
sRCV STATUS/CONTROL

;RCV BURST DATA LATE

TEST.

TEST

CIORKAD DR11-w INTRPROC EXER

PROGRAM START

644

645 001506
646 001512
647 001514
648 001522
001522
001526
001530
001534
001536

005037
000403
012737

012706

177777

.SBTTL
(LR
BR
g}::}?: MOv
START1:

001452

001100

000004
001646
177570
001012
000403
012716

000002

012737
012737
012637
012700
013791
010120
062701
022700
001372
012700
013701
010120
062701
022700
001372

177570
177777

001140
001142

001756
001762
001764
001772
00177¢

005737
001006
023727
001005

000042

BNE
MOv

.~b
FSTACK,SP

:;LOOP BACK IF NO
;:SETUP THE STACK POINTER

#$SCOPE ,a#I0TVEC

;;10T VECTOR FOR SCOPE ROUTINE

MOV

#STRAP ,@#TRAPVEC

;;TRAP VECTOR FOR TRAP CALLS

#340,3#10TVEC+2 ;;LEVEL 7
#SERROR ,@#EMTVEC ;;EMT VECTOR FOR ERROR ROUTINE
#340 ,@#EMTVEC+2 ;;LEVEL 7
#340 ,@# TRAPVEC+2
;LEVEL 7

;:SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
;;EQUAL TO A "'=1"", SETUP FOR A SOFTWARE SWITCH REGISTER.
MOV
MOv
MOV
MOV

OFERRVEC,=(SP)
#64% ,QFERRVEC
#DSWR, SWR
#DDISP,DISPLAY

65%

;;SAVE ERROR VECTOR
;;SET UP ERROR VECTOR
;:SETUP FOR A HARDWARE SWICH REGISTER
;:AND A HARDWARE DISPLAY REGISTER
::TRY TO REFERENCE HARDWARE SWR
: :BRANCH IF NO TIMEOUT TRAP OCCURRED
;sAND
THE HARDWARE SWR IS NOT = -1
: ;BRANCH IF NO TIMEOUT

#SWREG, SWR

::POINT TO SOFTWARE SWR

(SP)+ ,a#ERRVEC
#WCR,RO ;SET UP
INTADR,R1
R1,(RO)+

;;RESTORE ERROR VECTOR
REG ADRS POINTERS
:GET BASE ADRS
:LOAD EM

#BDR+2,R0
SETUP?
#DRVCTO,RO
DRVECT,R1
R1,(RO)+
"2 ,R1

;ALL DONE?
:BR IF NOT
:SET UP
VECTOR ADRS POINTER
;GET BASE VECTOR ADRS
:
:

(MP
BNE

65%:
66%:

MOv
RT1

MOV

MOv

MOV
MOV
MOv
SETUPZ: MOV

CMP

;:TYPE

.SBTTL
000176

#SWR,R6 ; ;DONE?

MOV

(MP
BNE
MOV
MOV
SETUP3: MOV
ADD

177777

001140

::FIRST LOCATION TO BE CLEARED
s sCLEAR MEMORY LOCATION

MOV

.SBTTL

002010

;THIS IT MASTER START
sSKIP NEXT
:SLAVE START

#SCMTAG,RE
(R6)+

ADD

000002
001430

104401

SEQ 0018

MOV
CLR

MOV
MOV
MOV

64%:

001424
001412

005227
001041

PROGRAM START
MSTER
START
#-1,MSTER

;o INITIALIZE A FEW VECTORS

000004
007140
001142
177276

000002
001424

001744
001750
001752

104406

000020
000022
000030
000032
000034
000036

001654
000176
000174
000004
001414
001410

F
2
10

INITIALIZE THE COMMON TAGS

cMpP

001100

012452
000340
012172
000340
013320
000340

PAGE

;;CLEAR THE COMMON TAGS (SCMTAG) AREA

001140

001600

001644
001646
001652
001654
001662
001670
649 001674
650 001700
651 001704
652 001706
653 001712
654 001716
655 001720
656 001724
657 001730
658 001732
659 001736
660 001742
661

001452

24=AUG=79 14:19

.SBTTL

001542
001550
001556
001564
001572

001606
001612
001620
001626
001634
001642

MACRO M1111

#-1,3SWR
66%

#65%, (SP)

#DISPREG,DISPLAY

¥ ,R1

#DRVCT2+42,R0

SETUP3
BNE
TYPE PROGRAM NAME

THE NAME OF

INC
BNE

TYPE

f-1
64%

::SET UP FOR TRAP RETURN

;ALL DONE?

:BR IF NOT

THE PROGRAM IF

,65%

FIRST PASS

;sFIRST TIME?
; :BRANCH IF NO

;:TYPE ASCIZ STRING

GET VALUE FOR SOFTWARE SWITCH REGISTER
TST

BNE
(MP
BNE
GTSWR

ans?

66%
SWR,#SWREG
67%

;sARE WE RUNNING UNDER XXDP/ACT?

: :BRANCH IF YES
;:SOFTWARE SWITCH REG SELECTED?
: BRANCH IF NO
;:GET SOFT=-SWR SETTINGS

CIDRKAO DR11-w INTRPROC EXER
MACRO MT1111
GET VALUE FOR SOFTWARE SWITCH REGISTER

001776

000403

002006

000422

002054
662 002056

000240

885882

112737

000001

001134

264-AUG=79 14:19

gg::

::658:

6 2
PAGE 10-1

67%

#1,$AUTOB

::SET AUTO-MODE

648

::GET OVER THE ASCIZ

MOVE

.ASCIZ

NOP

INDICATOR

<CRLF>#DR11w INTERPROCESSOR EXERCISER

W<CRLF>

SEQ 0019

CIZDRKAD DR11-w INTRPROC EXER

BOARD TYPE DIALOGUE

MACRO M1111

664

665 002056
666 002056

667 002062
668 002064
669 002072
670 002076
671 002100
672 002104

012706
000005
012737
005227
001402
000137

001100

104401

002112

002110

000425

002164
673 002164
002170

000411

6764
675
676
677
678

002214
002214
002216
002222
002224
002232
002236

104401

104410

021627
001051
012737
104401

000411

002262
679 002262
002266

104401
000426

002344
002344
002346
002352
002354
002360

000576
021627
001414
104401
000410

680
681
682
683

002402
684 002402
685 002404
686 002412
002416

002440
687 002440
002444
002522
688 002522
689 002524
690 002524

691 002532
692 002534
693 002540
694 002542
695 002546
696 002550
002553
002556

000640

012737

104401
000410
104401

000426

000001

177777

BRDTYP:

001454

002524

5%:
;:65%:
64%:

002172

::67%:

66%:

2%:

000120
000126
002240

001434

;:69%:
68%:

002270

- 718s
70%:

000127

3%:

;

002362

:-738:
72%:

000127
002420

001434

002446

:77%:

76%:

000126

104401

002645

104401

002550

000500
000475
200
104

061

6%:
«+P758:
74%:

000507
022737
001403

26=AUG=-/9 16:19

200
122

061

001434

MORS:
4%:

040
126
102

8%:

H
2
11

SEQ 0020

LSBTTL

BOARD TYPE DIALOGUE

MOV
RESET
MOV

#STACK,SP

sALWAYS RESET STACK PTR

#1,1COUNT
;;1

:1ST TIME DO ALL TEST ONCE - THEN 100(10)
:DETERMINE BOARD TYPE ON FIRST PASS ONLY

INC
BEQ
JMP

TYPE

BR
ASCIZ
TYPE

LASCIZ

RDCHR

CMP

BNE
MOV
TYPE
BR

_ASCIZ

sINITIALIZE

BEFORE TESTING

MORS

,65%
64%

;s TYPE ASCIZ STRING
::GET OVER THE ASCIZ

,67%
669

;s TYPE ASCIZ STRING
::GET OVER THE ASCIZ

<CRLF>/1S THIS CPU TESTING A DRV11B OR DR1TW?/<(CRLF>

/TYPE

V OR W:

(SP) ,#126
3%

#126 ,BOARD
,69%

;s TYPE ASCIZ STRING
68%
;:GET OVER THE ASCIZ
/N/<CRLF><CRLF>/DRV11B BOARD/<CRLF>

TYPE

At
;s TYPE ASCIZ STRING
70%
::GET OVER THE ASCIZ
/INTERPROCESSOR LINK NOW IN PROGRESS..... /<CRLF><CRLF>

B
CMp

SYNCST
(SP) ,#127
6%
138
;s TYPE ASCIZ STRING
72%
::GET OVER THE ASCIZ
/ERROR IN ENTRY/

BR
JASCIE

BEQ

TYPE

BR
.ASCIlZ

BR
MOV

TYPE

BR
ASCI2

#127 ,BOARD
,75%
;s TYPE ASCIZ STRING
74%
::GET OVER THE ASCIZ
/W/<CRLF><CRLF>/DR11W BOARD/<CRLF>

BR
LASCIZ

JI7%
;s TYPE ASCIZ STRING
76%
:;GET OVER THE ASCI2
/INTERPROCESSOR LINK NOW IN PROGRESS

SYNCST

CMP

#126 ,BOARD
16%

TYPE

BEQ

TYPE

16%:

PAGE

TYPE

Bk
LASCII

15%
,8%
15%

<CRLF><CRLF>/

DRV11B BOARD/<CRLF>

/<CRLF><CRLF>

CZDRKAO DR11-w INTRPROC EXER

MACRO M1111

702

PAGE 11-1

SEQ 0021

O —
&N

—a

O Ottt OO =t O et
s et
ow VO =HH ==
oo
oo CVNVNOOOT
O OWWOS
O-00
e P e

O—=O
—

040

oo PN NOOCT
T OWWO &~

nNo Ot et OO =
it O et
e ow VO =S
= alroonrn LY

— s
)
ke e
TM I h
e R e

WO
NO —=NIWwWNNOY

O
VNN
=N
=N =N -

[

200
—
—NO
O —-=r OO
nNO O

002561
002564
002567
697 002570
002573
002576
002601
002604
002607
002612
002615
002620
002623
002626
002631
002634
002637
002642
698 002643
699 002645
002650
002653
002656
002661
002664
700 002665
002670
002673
002676
002701
002704
002707
002712
002715
002720 002723
002726
002731
002734
002737
701 002740

—
e i e e et e e e it AN\ et et O B PNOVONVOO et
] W Y o
NON —
s s v ONO — onvo
o oo sSfowWwm VWNON =ttt 2 OO = OO I
WO = NS NN
— o=~ OoO000 CWNO = NWS YV
=O —=O

BOARD TYPE DIALOGUE

264=AUG=79 14:19

7%:

NOW IN PROGRESS..... /<CRLF><CRLF><CRLF>

LASCII

/INTERPROCESSOP LINK

LASCIZ
LASCI1

/ /
<CRLF><CRLF>/

LASCII

/INTERPROCESSOR LINK NOW

LASCIZ
.EVEN

DR11Ww BOARD

/<(CRLF>

IN PROGRESS..... /<CRLF><CRLF><CRLF>

CIDRKAD DR11-w INTRPROC EXER
704
705
706
707
708
709
710
717

002742
002742
002746
002752
002756

MACRO M1111

24-AUG=79 14:19

J_2
PAGE 12

.SBTTL
.SBTTL
LSBTTL

004737
005737
001402
000137

013576
001452
006072

15%:
SYNCST: JSK
18T
BEO
JMP

SEQ 0022

MASTER TESTS
PC,CPUH]
MSTER
MINITI
SINITT

;START AS MASTER?
:YES = GO SEND TO SLAVE & C(HECK ECHO
:NO = GO ECHO MASTER'S DATA

CZDRKAO DR11-w INTRFROC EXER

MACRO M1111 24-AUG-79 14:19

713

714

715
716 002760
717 002766
718 002770
002774

003040

719 003040

720 003042
721 003046
722 003052
723 003056
724 003064
725 003072
726 003074
727 003100
728 003102

729 003104

032777
001425
104491
000421
000000

004737
012706
005977
012737
032777
001005
005337
001371
104015
104412

020000

176432

002776

;:658:

013576
001100
176342
001000
001000

001444

1%:

001444

176326

SEQ 0023

;MASTER PROTOCOL INIT=TEST

RR
R

MINIT1: BIT
BEQ
TYPE
BR

648

K_2

PAGE 13

_ASCIZ

HALT

JSR
MoV
CLR
MOV
2%:
BIT
BNE
DEC
BNE
104000415

RSYNC

#BIT13,39CSR
1%
,65%
64%

;. TYPE ASCIZ STRING
;.GET OVER THE ASCIZ

<CRLF>/CABLE 1S NOT INSERTED = HALTING /

PC,CPUHI
#STACK,SP
aCSR
#1000, TIME
#1000,aCSR
MTSTI
TIME
2%

sHAS SLAVE SET MASTER DSTATC

CZORKAD DR11-w INTRPROC EXER

* MIST1

TEST

THAT

MACRO M1111

24-AUG=79 14:19

SLAVE CAN ECHO THE DBR CORRECTLY

731

LSBTTL

« MIST1

L 2
PAGE 14

SEQ 0024

TEST THAT SLAVE CAN ECHO THE DBR CORRECTLY

732
733

::"'.'""'Q""'"""""""""""""'.""'.'Q"'."l.t"
R
R e
L

734
735
736
737
738
739
740

:MASTCR COMPUTER STARTS HERE FROM PROGRAM START
;17 SENDS OUT SINGLE WORDS (FLOATING 1/0 PTRN) THRU THE
:DBR TO THE SLAVE COMPUTER
;1T LOOKS FOR THE SLAVE TO ECHO THE DBR WORD CORRECTLY
:WITHIN A CERTIAN AMOUNT OF TIME
:1F IT FAILS TO RETURN THE WORD AN ERROR 1S REPORTED
:THIS TEST 1S NOT EXITED UNTIL ALL DATA PATTERNS HAVE

7‘.2
7‘3

::"".""""""""""""""""..".'."""'."""""'
.'.""'."""""""""""""""...."""""""'....'."'

761

744 003106
745 003106

746 003110
747 003114
748 003120
749 003124
750 003130
751 003136
752 003142
753 003150
754 003156
755 003162
756 003164
757 003172
758 003174
757 003176
760 003200
761 003202
762 003204

763 003206
764 003210
765 003212

766 003214

767 003222

768

:BEEN SENT AND RECEIVED CORRECTLY

005001

012700
010077
004737
010037
013737
004737
017737
012737
005337
001375
023737
001402
104001
104412
005100
005101

MisT1:
18:

177776
176302
013502
001124
001422
013414
176254
001000
001444

001122

001124

001126

28:

001126
001444

104000+1

4%:

001343

006300
005200
103740

012777
004737

38:

177001

013502

176200

(LR

MOV
MOV
JSR
MOV
MOV
JSR
MOV
MOV
DEC
BNE
CMP
BEQ
RSYNC

#-2,R0
RO, 3BOR
PC.GOCMPN
RO, SGDDAT
BDR, $BDADR
PC,WTCMPN
aBDR , $BDDAT
#1000, T1ME
TIME
38
$GDDAT,$BDODAT
6%

(CM

ASL
INC

RO
RO

COM
BNE
BCS

MOV

JSR

R1
2%

;R1

SAYS FLOAT 0 LEFT WHEN ZERO

:START WITH #177776 IN RO
:SEND PATTERN OUT
:TELL SLAVE T0 PROCEED
:SAVE IN EXPECTED
:SET UP DBR ADRS
:WAIT FOR SLAVE TO ECHO DATA
READ IT BACK
:
:DELAY
;CORRECT?
:BR IF SO
;RSYNC ON ERROR

;CONVERT PTRN TO FLOATING 1
;TIME TO FLOAT LEFT?
:BR IF NOT

:YES = FLOAT LEFT
;KEEP LSB SET

;BR IF

PC,GOCMPN

;TELL SLAVE TO READ TEST

#1770G01,9BOR

ZERO NOT TO CARRY YET

;TELL SLAVE TC GO TO NEXT TEST

TERMINATOR

’

TEST

MACRO M1111

770

LSBTTL

TEST THAT SLAVE CAN INTERRUPT MASTER: F2(SLAVE) TO

R
e R e e e e

773 003226
774 003234
775 003240
776 003242

012737
005337
001375
017737

001000
001444

O0C1444

176152

001446

778 003256
779 003264
780 003272
781 003274
782 003276
783 003300
784 003306
785 003314
786 003320
787 003326
788 003334
789 003342
790 003350
791 003356
792 003360
793 003366
794 003374
795 003402
796 003410
797 003412
798 003420
799 003426
800 003434

013777
032777
001402
104021
104412
012777
012777
004737
017737
042737
052737
013777
032777
001415
017737
042737
042737
013777
000414
017737
052737
042737
013777

001446
100000

176134
176126

804 003456
805 003460
806 003462

SEQ 0025

sMASTER PROTOCOL INIT-TEST?

772

801 003442
802 003450
803 003454

24-AUG-79 14:19 PAGE 15 ;

THAT SLAVE CAN ECHO THE DBR CORRECTLY

44!

777 003250

042737

012737
005337
001375

177775

001446

003462
000340
013624
176074
100000
000101
001446
000002

001446
001446
001446
176050
176042

176034
000002
100000
001446

001446
001446
001446
176010

176002
000002
100000
001446

001446
001446
001446
175756

010000
001444

176116
176112

001444

104020
104412

MINIT2: MOV
1%:
DEC
BNE
MOV

#1000,TIME
TIME
1%
oCSR,TEMP

MOV
BIT
BEQ
106000+
21
RSYNC
MOV
MOV
JSR
MOV
BIC
BIS
MOV
BIT
BEQ
MOV
BIC
BIC
MOV
BR
4$:
MOV
BIS
BIC
MOV

TEMP,aCSR
#100000,aCSR
.46

BIC

5%:
3%:

MOV
DEC
BNE

104000420
RSYNC
RTRN:

807 003462
808 003466
809 003474
810 003476
811 003504
812 003506
813 003514
g}g 003520

004737
032777
001372
012777
022626
012737
005337
001375

011200
002000

175724

000000

175714

001000
001444

001444

816 003522

005077

175674

1%:

2%:

#177775,1EMP

#RTRN,IDRVCTO
#340,aDRVCT?
PC,CPULOD
aCSR,TEMP
#BITYS,TEMP
#101,TEMP
TEMP ,aCSR
#2,3CSR
4%
aCSR,TEMP
#2,TEMP
#BIT15,TEMP
TEMP,aCSR
5%
aCSR,TEMP
#2,TEMP
#BIT15,TEMP
TEMP,aCSR

#10000,T1IME
TIME
3%

sWAIT FOR SLAVE TO CLEAR

;CLEAR ALL BUT F1
;1S ERROR BIT CLEAR

sRSYNC ON ERROR
;DEFINE RETURN
sALLOW CPU INTERRUPT
;1E,GO

;TELL SLAVE TO INTERRUPT MASTER

sDELAY;WAIT FOR SLAVE TO INTERRUPT

sRESYNC ON ERROR

JSR
BIT
BNE
MOV
CMP
MOV
DEC
BNE

PC,RSTVEC
#2000,aCSR
1%
#0,3CSR
(SP)+,(SP)+
#1000, TIME
TIME
2%

CLR

aBDR

;1S ATIN CLR?
sMAKE SURE DSTATC OF SLAVE
sREADJUST STACK
;DELAY

IS CLR

ATTN(MASTER)

——————c—

CZDRKAO DR11-w INTRPROC EXER

* MIST1

CIDRKAD DR1'-w INTRPROC EXER
MACRO M1111
24-AUG-79 14:19
* MIST2
TEST THAT SLAVE CAN ECHO THE °"STAT® BITS CORRECTLY

.SBTTL

~ MTST2

N 2
PAGE 16

SEQ 0020

TEST THAT SLAVE CAN ECHO THE °"STAT' BITS CORRECTLY
R

R
T
R

;MASTER SENDS OUT A "FNCT' CODE (1-7) TO THE SLAVE COMPUTER

;THE MASTER THEN LOOKS FOR THE SLAVE TO ECHO THE CODE VIA THE

;"STAT® BITS WITHIN A CERTIAN AMOUNT OF TIME
s1F IT FAILS TO RETURN THE CORRECT CODE AN ERROR 1S REPORTED
;THIS TEST IS NOT EXITED UNTIL ALL "FNCT' CODES HAVE BEEN
:SENT AND RECEIVED CORRECTLY

;:""""""""".'""""""""'."""..'t't"."'t"'t't
A

829 003526
830 003526
831 003534
832 003540
833 003546
834 003552
835 003556
836 003564
837 003570
838 003572
839 003600
840 003606
841 003610
842 003612
843 003614
844 003622
845 003626
846 003632
847 003634
848 003642
849 003646

001420
000002
001202

175646

013414
001000
001444

001122

001124
001444

M1ST12:

MOV
MOV
MOV

1%:

MOV
JSR

MOV

2%:

DEC

104000+2

004737

001002
000002
000020

001124

177002

175560

013502
013414

38:

TIME

$GDDAT,$BDDAT

e YADD

#1002,8GDDAT
#2,R0
#20,R0

MOV

#177002,aBDR

-",0‘811
BEQ
y
JSR
JSR

RRRRRRRRRRRR

:LOAD FNCT BITS
:LOOK FOR SLAVE TO ECHO VIA °'STAT' BITS
;DELAY

RSYNC

RO,aCSR
PC,WTCMPN
#1000, TIME

BNE

__ADD *

;SET UP CSR ADRS

MOV

BIT

CSR,$BDADR

#2,R0
#1202 ,8GDDAT

2%
aCSR,$BDDAT

BNE

175622
001124

PC,GOCMPN
PC,WTCMPN

sSET UP INITIAL FNCT BIT
;LD EXPECETD

COUNT

sREAD CSR
;CORRECT?
;BR IF SO

;RSYNC

ON ERROR

;BR

NOT

sADVANCE EXPECTED
;ADVANCE PTRN
;ALL BEEN DONE?
IF

;TELL SLAVE

TO GO TO NEXT

;G0 TO COMPANION
;WAIT FOR COMPANION

TEST

CZDRKAQ DR11-w INTRPROC EXER
MACRO M1111
24-AUG=79 14:19
* MIST3 BLOCK MODE WORD XFER-MASTER XMITS 32 WORDS TO SLAVE

PAGE 17

SEQ 0027

852

.SBTYL

855
856
857

HASTER XMITS A 32 WORD BLOCK OF DATA TO SLAVE
;:THEN CHECKS FOR PROPER INTERRUPT STATUS, WC £ BA
:THE SLAVE CHECKS THE SAME PLUS THE DATA RECEIVED

853
854

858
859

LY
RR
e Y

860 003652
861 003652
862 003656
863 003662
864 003670
865 003672
866 003700
867 003706

004737
005077
022777
001372
017737
042737
052737

013576
175536
000200

175530

175522
100000
000002

001446
001446
001446

869 003714
870 003722

013777
032777

001446
001000

175476
175470

872 003730
873 003732

001774
004537

011160

868
871

874 003736
875 003740

876 003744

877 003746
878 003754
879 003762
880 003770
881 003774

004172
004537

177740

012737
013777
013777
004737
017737

MIST3:
1$:
618:

JSR
CLR
CMP
BNE
MOV
BIC
BIS

PC,CPUHI
aCSR
#200,aCSR
413
9CSR,TEMP
#BIT15,TEMP
#2,TEMP

40%:

MOV
BIT

TEMP ,a(SR
#1000,aCSR

37¢:

BEQ
JSR

40%
RS,SETVEC

38%:

010000
001456
001460
013624
175420

-32.

001444
175432
175426

MOV
MOV
MOV
JSR

001446
001446
001446
175374
001446
001446
001446

042737
052737
013777
017737
042737
042737

100000
000010
001446
175370
100000
000002

889 004054
890 004062
891 004066
892 004070
893 004076
894 004104
895 004112

013777
005337
001375
017737
017737
042737
042737

001462
001444

175336

175324
175316
100000
000500

898 004120

013777

001446

900 004134

001404

BIC
BIS
MOV
MOV
BIC
BIC

888 004046 013777 001446 175344

897

899 004126

901 004136
902

MOV

TEMP ,aCSR

005710

001124

005310

001124

013737
104401
104003
000514

001420
015516

TEMP,3CSR

175272

012737

905 004154
906 004162
907 004166
908 004170

#BIT15,TEMP
#10,TEMP
TEMP,aCSR
aCSR,TEMP
#BIT15,TEMP
¥2,TEMP

001126
001446
001446
001446

001434

012737

#10000, TIME
XPRAM,aWCR
XPRAM+2 ,aBAR
PC,CPULO
aCSR,TEMP

XPRAM+4 ,aCSR
TIME
2%
oCSR,$BDDAT
9CSR,TEMP
#BIT15,TEMP
#500,TEMP

000127

000403

MOV

RS .LDBUF

MOV
DEC
BNE
MOV
MOV
BIC
BIC

022737

903 004144

904 004146

3%
JSR

011236

882 004002
883 004010
884 004016
885 004024
886 004032
887 004040

896

* MTST3 BLOCK MODE WORD XFER-MASTER XMITS 32 WORDS TO SLAVE

Re
e
"'tt"""'t't"t't""t't"t"""t't'tt'tlt"ttlt'tttt't't't

001122

2%:

CMP

458:
46%:

1064000+3

;SET DSTATC IN SLAVE

;TELLS SLAVE TO SETUP FOR XFERS
;DSTATC HERE SAYS SLAVE

MoV
TYPE

CSR,$BDADR
,MSG1

}

sSET UP INTR RETURN ADRS

;RETURN TO 3% ON INTR
;GO LOAD 'DBUF' WITH DATA PTRN

;00 32. LOCATIONS

;SINGLE CYCLE

;
I

;SET UP A TIMER VALUE
;SET UP WORD COUNT
;SET UP BUFFER ADRS
;ALLOW THE RDY INTR

;SET UP CONTROL - IE, FNCT 3 & GO,AND CYCLE
;WAIT FOR INTR
SUNTIL O
;READ CSR = SHOULD NEVER GET HERE
;DISABLE IE & CYCLECIF THIS IS
;A DRV1I1B:

CYCLE HIGH WILL

sPREVENT BDR FROM BEING READ)

;LD EXPECTED - STAT A & C, CYCLE, RDYf 1€, FNCT 3
;MUST BE DRV11B

46%

;1S READY TO DO XFERS

#5710,9GDDAT

;
;
i

sIF DR1TW:CYCLE WILL BE CLEAR

45%

MOV

;1S ONLY READY SET

#127 ,BOARD

BEQ

MOV

;NC INTR ALLOWED YET

g
'
i
3
:
,
;

‘:

|
|

#5310,9GDDAT

;STAT ARC,RDY,IE,FNCT 3

;GO RESYNC ON ERROR

:SET UP (SR ADRS

22222223

001126
001446
001446
001446
175166
001434

[=3=1=]

[ )% JER R

OOV NOWVSHWN—=O

VOO OOVOVOOVOO

CZDRKAQ DR11-w INTRPROC EXER
MACRO M1111
24-AUG=79 14:19
* MIST3 BLOCK MODE WORD XFER-MASTER XMITS 32 WORDS TO SLAVE

921

005710

001124

005310

001124

001126

3%:

BIC
BIC

MOV
CMpP

31%:

001122
104C00+4

001126

4%:

945 004420
946

10400045

001124

042737
023737
001431
013737
104401
104006

001124
175030
006001
00112¢
001416
015516

5%:

001126
001126
001126

104000+6

17-1

(SP)+,(SP)+

3CSR, $BODAT
ACSR.TEMP

#B1T15,TEMP
#500, TEMP
TEMP.aCSR

SEQ 0028

sFIX STACK SINCE NO RTI
;READ STATUS

;DISABLE 1E & CYCLE(CLR CYCLE IF THIS IS A DRV11B)

#127.BOARD
318
#5710,9GDDAT

BR
MOV

30%
#5310,8GDDAT

CMP
BEQ

$GDDAT,$BDDAT
'3
CSR,$BDADR

s CORRECT?
:BR _IF SO
sSET UP CSR ADRS

6%
$GDDAT
aWCR,$BDDAT
5%

;GO RESYNC ON ER
;LD EXPECTED WC
;READ WORD COUNT
:BR IF ZERO
;SET UP WCR ADRS

MOV
TYPE

BR
CLR

MOV

MOV
TYPE

BR
MOV

LMSG1

WCR,$BDADR

.MSG1

6%
XPRAM+2 ,$GDDAT

MOV
NEG
ASL
ADD
MOV

XPRAM,RO
RO
RO
RO,$GDDAT
9BAR,$BDDAT
#B81700,$BDDAT
gngAT.‘BDDAT

MOV
TYPE

BAR,$BDADR

BIC
CMP
BEQ

001122

BEQ
MOV

BEQ

001122

932 004334
933 004336
934 004340
935 004346
936 004352
937 004354
938 004356
939 004362
940 004370
941 004376
942 004404
943 004406
944 004414

CMP

MOV
MOV

PAGE

.MSG1

;LD EXPECTED = STAT A & C, CYCLE, RDY, IE, FNCT 3
;MUST BE DRV11B

:GO RESYNC ON ER
;GET STARTING ADRS OF
;GET W(
;GET ACTUAL #
: CONVERT TO WORD
;ADD TO BASE ADRS

;READ BAR ADRS

;ELIMINATE LSB
; CORRECT?
:BR 1F SO
;:SET UP BAR ADRS

XFER

MACRO M1111
24-AUG=79 14:19
CZDRKAQ DR11-w INTRPROC EXER
* MTST3 BLOCK MODE WORD KFER-MASTER XMITS 32 WORDS 1O SLAVE

7
958 004456
959 004464
960 004466
961
962

012737

001404

022737
001365

010000
001444

6%:
7%:

MOV
DEC
RESET
MOV

JCSR, SAVE

BEQ

248

1764754
170777

001450
001450

21%:

001000

001450

23%:

24%:

104412

BNE

BIC

CMP
BNE

RSYNC

#10000, TIME
TIME

3
SEQ 0029

010000
001444

001444

000002

174706
001450

#1000, SAVE
2%

174702
170777

MOV
DEC

#10000, TIME
TIME

9%:

MOvB
MOV

#2,aCSR
a(SR,SAVE

CMP
BEQ
BR

#1000, SAVE
10%
9%

JSR

PC,RSTVEC

001450
b

001000

001450

004737

011200

BIC
BEQ

RSYNC

;UNTIL DONE
;TELL

SLAVE WE HAVE

AN ERROR

;RSYNC ON ERROR

IN MASTER-WAIT ON SLAVE

8%:
20%:

BNE

;WAIT FOR SLAVE TO COMPLETE DATA (K
;COUNT AWAY

#170777,SAVE

;NO ERROR

963
964 004470
965 004476
966 004502
967 004504
968 004512
969 004520

973 004540
974 004542
975 004544

001444

—

251 004430
952 004434
953 004436
954 004440
955 004446
ggb 004454

;ERROR [N MASTER-WAIT ON SLAVE FOR ITS STATUS

O Lk

948
949
950 004422

PAGE

20%

#170777,SAVE
11%

FOR

ITS STATUS

;WAIT FQR SLAVE TO COMPLETE CKS
s COUNT AWAY
;UNTIL DONE
;TELL SLAVE ALL OK
:READ CSR

;SAVE 'STAT' BITS
;WAS THERE AN ERROR?
:NO ERROR?

:RSYNC ON ERROR

;G0 RESTORE

VECTOR

CZDRKAQ DR11-w INTRPROC EXER
MACRO M1111
26=AUG=79 14:19
* MTST3 BLOCK MODE WORD XFER-MASTER XMITS 32 WORDS TO SLAVE
MMAAA AR AR A

E
3
PAGE 19

SEQ 0030

;BURST MODE TESTING DETERMINATION

ARl

iRttt

ld)

;DETERMINE IF BURST XFERS AND BURST DATA LATE ARE
TEST WILL BE DONE ONLY IF BOTH MASTER AND SLAVE
;BE DONE.

;ARE BOTH DR11W'S.

OTHERWISE

,SLAVE WILL BECOME MASTER

;AND MASTER SLAVE AND TESTS 1 THRU 3 WILL BE DONE AGAIN.

::""""'"""""""""'""""""""'..'."'l'..t'ot"'

004550
004556
004562
004564

001000
001444

001444

001434

174630

004572
004576

013502
013414

004602

004606
004610
004614

001402
000137
000137

MSBRD:

1%:

MOV
DEC
BNE
MoV

JSR

174614

JSR
187

004620
006072

BEQ
JMP
JMP

2%:

#1000, TIME
TIME

1%
BOARD,aBDR
PC,GOCMPN
PC,WTCMPN
aBDR

MISTS

SINITI

;WAIT

FOR SLAVE

;TELL SLAVE WHAT BOARD
;:TYPE MASTER IS

;TELL SLAVE TO RESPOND
;WAIT

FOR SLAVE

TO EVALUATE

:SLAVE RESPONDS AND MASTER CAN
;FIND QUT IF TEST & SHOULD BE DONE
;0 SAYS NO

;YES;DO TEST &

CZORKAO DR11-w INTRPROC EXER
MACRO M1111
24-AUG-79 14:19
* MIST4L SURST MODE WORD XFER-MASTER XMITS 32 WORDS TO SLAVE
1002
1003

LSBTTL
LSBTTL

F
3
PAGE 20

SEG 0031

+ MTST4 BURST MODE WORD XFER-MASTER XMITS 32 WORDS TO SLAVE
(DR11=W TO DR11=W ONLY)

1004
1005

RR
R e Ry
RR
Ry

1008
1009

RR
R
Rl
R
R R

1006
1007

1010 004620
1011 004620
1012 004624
1013 004630
1014 004636
1015 004640
1016 004646
1017 004654
1018
1019 004662
1020 004670
1021
1022 004676

1023 004700
1024 004704
1025 004706
1026 004712
1027 004714
1028 004722
1029 004730
1030 004736
1031 004742
1032 004750
1033 004756
1034 004764
1035 004772
1036 005000
1037 005004
1038 005006
1039 005014
1040 005022
1041 005030
1042 005036
1043 005044
1044 005052

1045 005060
1046 005064
1047 005066

;SAME AS TEST 3 EXCEPT BURST MODE :BOARD DOES NOT RELEASE BUS
JUNTIL WORD COUNT OVERFLOW

013576
174570
000200

174562

174554
100000
000002

001446
001446
CO01446

013777
032777

001446
001000

176530
174522

001774

004537
005070
004537
177740
012737
013777
013777
004737
017737
042737
042737
013777
012777
005337
001375
017737
017737
042737
042737
013777
012737
013737

1048 005070
1049 005072
1050 005100
1051 005106
1052 005114
1053 005122
1054 005130

104401
104003
000504
022626
017737
017737
042737
042737
013777
012737

005136
1056 005144
1057 005146

023737
001407
013737

1055 005136

MTSTG:
1%:

004737
005077
022777
001372
017737
042737
052737

011160

41%:
38%:

40%:

§7%:

011236
010000

001444

174452

001446

001456
001460
013624
100000
000002

001446

000501
001444

174464
174460

001446
001446
174426
174420

174406

001126

100000
000100

001446
001446

001300
001420
015550

001124
001122

174400

001446

174322
174314

100000
000100
001446
001300

2%:

001446

174354

45%:
46%:
10400043

001126
001446

3%:

001446
001446

174270
001124

001124

00112¢

001420

001122

31%:

30%:

JSR
CLR
CMP
BNE
MOV
BIC
BIS

PC,CPUHI
a(SR
#200,aCSR
41%
a(SR,TEMP
#BIT1S,TEMP
#2,TEMP

MOV
BIT

TEMP,aCSR
#1000,aCSR

BEQ

40%

JSR
3%
JSR
-32.
MOV
MOV
MOV
JSR
MOV
BIC
BIC
MOV
MOV
DEC
BNE
MOV
MOV
BIC
BIC
MOV
MOV
MOV

TYPE

RS,SETVEC

RS,LDBUF
#10000, TIME

XPRAM,aW(CR
XPRAM+2 ,aBAR
PC,CPULO
aCSR,TEMP
#BIT15,TEMP
¥2,TEMP
TEMP ,3CSR
#501,aCSR
TIME
2%
9CSR,$BDDAT
aCSR,TEMP
#BIT1S5,TEMP
#100,TEMP
TEMP ,aCSR
#1300,8GDDAT
CSR,$BDADR

,MSG2

;NO INTR ALLOWED YET

;1S ONLY READY SET

;SET DSTATC IN SLAVE
sTELLS SLAVE TO SETUP FOR XFERS
;DSTATC HERE SAYS SLAVE
;1S READY TO DO XFERS

;SET UP INTR RETURN ADRS
;RETURN TO 3% ON INTR
:GO LOAD 'DBUF' WITH DATA PIRN
;D0 32. LOCATIONS
;SET UP A TIMER VALUE
;SET UP WORD COUNT
;SET UP BUFFER ADRS
;ALLOW THE RDY INTR

;SET UP CONTROL - IE, GO,AND CYCLE
:WAIT FOR INTR
JUNTIL O
;READ (SR - SHOULD NEVER GET HERE

;DISABLE IE

;STAT (,RDY,IE
;SET UP CSR ADRS

BR
CMP
MOV
MOV
BIC
BIC
MOV
MOV

6%
(SP)+,(SP)+
aCSR,$BDDAT
aCSR,TEMP
#BIT1S5,TEMP
#100,TEMP
TEMP,a(SR
#1300,8GDDAT

;GO RESYNC ON ERROR
;FIX STACK SINCE NO RTI
sREAD STATUS

CMP
BEQ
MOV

$GDDAT,$BDDAT
6%
(SR,$BDADK

;CORRECT?
sBR IF SO
;SET UP (SR ADRS

;DISABLE 1E

CIDRKAO DR11-w INTRPROC EXER
(DR11-W TO DR11=W ONLY)

1058 005154

1059 005160
1060 005162
1061 005164

1062 005170
1063 005176
1064 005200
1065 005206
1066 005212
1067 005214
1068 005216
1069 005224
1070 005230
1071 005232
1072 005234
1073 005240
1074 005246
1075 005254
1076 005262
1077 005264
1078 005272
1079 005276
1080

104401

104004
000446
005037

017737
001407
013737
104401
104005
000431
013737
013700
005400
006300
060037
017737
042737
023737
001437
013737
104401
104006

MACRO M1111

015550
001124
174220
001414
015550
001460
001456
001124
174152
000001
001124

001416
015550

24-AUG-79 14:19
LM5G2

BR
CLR
MOV
BEQ
MOV
TYPE

6%
$GDDAT
dW(R,$BDDAT
5%
WCR,$BDADR
,MSG2

;GO RESYNC ON FR
;LD EXPECTED WC
;READ WORD COUNT
;BR IF ZERO
;SET UP WCR ADRS
"

B8R
MOV
MOV
NEG
ASL
ADD
MOV
BIC
CMP
BEQ
MOV
TYPE

6%
XPRAM+2 $GDDAT
XPRAM,RO
RO
RO
RO,$GDDAT
aBAR,$BDDAT
#B1700,$BDDAT
$SGDDAT,$BDDAT
8%
BAR,$BDADR
,MSG2

;GO RESYNC ON ER
;GET STARTING ADRS OF
;GET WC
;GET ACTUAL #
;CONVERT TO WORD
;ADD TO BASE ADRS
;READ BAR ADRS
JELIMINATE LSB
;CORRECT?
;BR IF SO
;SET UP BAR ADRS

JERROR

IN MASTER-WAIT ON SLAVE FOR TS STATUS

MOV
PEC
BNE
RESET
MOV
MOV
BIC
(MP

#10000,TIME
TIME
7%

A¥

001122
10400045

001124

56EQ 0032

TYPE

104000+4

001126

6 3
PAGE 20-1

5%:

001126
001126
001126
001122

104000+6

XFER

1081
1082

‘ggz

1085 005300
1086 005306
1087 005312
1088 005314
1089 005316
1090 005324
1091 005332
1092 005340

012737
005337
001375
000005
012777
017737
042737
022737

1095 005350
1096 005356
}83; 005360

022737
001362
104412

}ggz 005346

1099
1100
118}
n
1103
1104
1105
1106
1107
1108

1109
1110
1111
1112
1113
1114

001404

010000
001444

001444

000010
174070
170777
(005000

174074
001450
001450
001450

004000

001450

69%:
7%:

21%:

BEQ
23%24%:

CMP
BNE
RSYNC

#10,9CSR
a(SR,SAVE
#170777,SAVE
#5000, SAVE
24%
#4000, SAVE
21%

sNO ERROR
005362
005370
005374
005376
005404
005412

005420
005426
005430
005436
005440
005442

012737
005337
001375
012777
017737
042737

022737
001405
022737
001362
104412
004737

010000
001444

001444

000012
174010
170777
005000

174014
001450
001450
001450
e
001450

004000
011200

B8%:
20%:

9%:

11%:
10%:

MOV
NEC
BNE
MOV
MOV
BIC

(MP
BEQ
(MP
BNE
RSYNC
JSR

sWAIT FOR SLAVE TO COMPLETE DATA (K
:COUNT AWAY
;UNTIL DONE
:1F ERROR THAN INIT
;TELL SLAVE WE HAVE AN ERROR

;RSYNC ON ERROR

IN MASTER-WAIT ON SLAVE

#10000,TIME
TIME
20%
#12,39CSR
o(SR,SAVE
#170777,SAVE

#5000, SAVE
10%
#4000, SAVE
9%
PC,RSTVEC

FOR

ITS STATUS

;WAIT FOR SLAVE TO COMPLETE
;COUNT AWAY
sUNTIL DONE
sTELL SLAVE ALL Ok
sREAD (SR
;SAVE 'STAT' BITS

;1F NO ER,CONTINUE
;ERROR?
;RSYNC ON ERROR
;G0 RESTORE VECTOR

(kS

WWWWNI
NN
NN NN NN = e b s

AFTER 5 XFERS ARE DONE IN
:BY WCOF.
sSLAVE,TIMEOUT OCCURS, SINCE SLAVE WAITS FOR GO-AHEAD
;FROM MASTER TO CONTINUE,BUT MASTER NEVER RESPONDS. IN

:SLAVG: CHECK THAT 5 XFERS HAVE BEEN COMPLETED.

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

1 005524

001774
004537
005666
004537

W WN NN

il
il i
D il
il
D il
il
i
D il
i
D
i
i

177740
012737
013777
013777
004737
013777

005576
005602
005604
005612

005337
001375
017737
017737

D
il

173742

D
il
i

o
o

Ad222222222t
iR
iR
RRiR
R
Rl

1%:

000200

173734

100000

173726

000002

001446
001446
001446

001446
001000

173702
173674

L1%:

38%:

173524
100000

001414

BIC
BIS

#200,3CSR

41%
aCSR,TEMP
#BIT15,TEMP
¥2,TEMP

;NO INTR ALLOWED YET
;1S ONLY READY SET

;SET DSTATC IN SLAVE
;TELLS SLAVE TO SETUP FOR XFERS

TEMP,aCSR
#1000,aCSR

BEQ
JSR

40%
R5,SETVEC

JSR

R5,LDBUF

001444
173636
173632

MOV
MOV
MOV

173622

MOV

#10000, TIME
XMITMO,awCR
XMITMO+2,aBAR
PC,CPULO
XMITMO+4 ,aCSR

:RETURN TO 3% ON INTR
;GO LOAD 'DBUF' WITH DATA PITRN
;D0 32. LOCATIONS
;SET UP A TIMER VALUE
;SET UP WORD COUNT
sSET UP BUFFER ADRS
;ALLOW THE RDY INTR
;SET UP CONTROL - IE, GO,AND CYCLE

TIME

;WAIT

FOR

sREAD

CSR -

37%:

JSR

001126
001446
001446
001446
173556
001124
001122

001446
001446
173500
001126

001122

DEC
BNE

MOv
MOV

BIC
B1C

104000+3

001446

30«

2%:

001444
173610
173602
100000
000100
001446

MOV

PC,CPUNI
aCSR

BIT

40%:

011236
010000
001472
001474
013624
001476

JSR
CLR
CMP
BNE

MOV

011160

000100
001446
173470
005730

HTSTS

013576

001300
001420
015602

D il

N=OOVDNO

* MTSTS BURST DATA LATE TEST-MASTER XMITS 5 WORDS TO SLAVE
WHILE SLAVE RECEIVES 5 AND TIMES OUT (DR11-w TO PR11=W ONLY)

;SLAVE 1S SETUP TO DO 10 XFERS. CHECK THAT MASTER INTERRUPTS

2 005526
3 005532
& 005534
5 005540
6 005542
7 005550
8 005556
9 005564
005570

D il

SEQ 0033

:PROCEDURE: MASTER XMITS 5 WORDS TO SLAVE IN BURST MODE

013777
032777

D il

';l'""'"""'"""""""""""""""""""""t't"'t

8 005510
9 005516

il
i
—

PAGE 21

::'".""'""'"""'""""""""""."""""""'tl"'t

004737
005077
022777
001372
017737
042737
052737

.SBTTL
.SBTTL

005446
005446
005452
005456
005464
005466
005474
005502

D il

D o

fl‘—.—.-.-—.—.-‘-‘—l_.—._‘—‘._.-‘—‘-.-.—.-‘-‘—.—‘—‘-.—.-.—.—‘-fl—.—"_‘_‘—l—.—‘—l—.-‘-‘_‘—‘-‘—._‘—.—.—‘—.—.—‘—‘dd

-4
w

OVONOWVESWN-=O
\h\h\fi\h\n\fl\h\fi\n\hl‘J‘J‘J\J\J‘l\f‘t‘é;hn
~u~e~eoho~OF8:0~O~O~O*O~2;
N WN
"dONfi&EU"U_‘CNOC'*iaflfiJ“UNU-JC><ND-q0- wn

MACRO M1111
CZDRKAO DR11-w INTRPROC EXER
264=AUG=79 14:19
BURST DATA LATE TEST-MASTER XMITS 5 WORDS TO SLAVE

3%:

MOV
MOv
MOV
TYPE

BR
CMP
MOV

BIC
BIC

MOV
MOV

BEQ

MOV

2%
a(SR,$BDDAT
(SR, TEMP
#BIT15,TEMP
#100,TEMP
TEMP,aCSR

;DSTATC HERE SAYS SLAVE
;1S READY TO DO XFERS
:SET UP INTR RETURN ADRS

INTR

JUNTIL O

SHOULD NEVER GET

;DISABLE IE

#1300,8GDDAT
CSR,$BDADR

STAT C
;LD EXPECTED
ADRS
CSR
:SET UP

;GO RESYNC ON ERROR

MSG3

(SP)+,(SP)+

aCSR,TEMP
#BIT15,TEMP
#100, TEMP
TEMP ,aCSR

aWCR,$BDDAT
9%
WCR,$BDADR

HERE

JFIX

STACK

;DISABLE

SINCE

;READ WORD COUNT
;BR If ZERO

;SET

UP WCR ADRS

NO RTI

. RDY,

CIZDRKAO DR11-w INTRPROC EXER

MACRO M1111
264=AUG=79 14:19
WHILE SLAVE RECEIVES 5 AND TIMES OUT (DR11-w TO DR11-W ONLY)
COQOOO0000
00 N NNNN~N
00 g\.flbU‘N-‘OO
ooooooog oo
Ng\J‘bWN-‘OOGNO\J‘J‘

TY PE

,MSG3

;GO RESYNC ON ER

oo~

il el
D
s

104000+5

D
D

il
D
)

D
D

e
e
el

D e

el
el
el e

D ot

D el

D
D

006030
006036

006014
006022

D el

015602

200 006046

1201
1202
1203
1204

000005
012777
017737
042737
022737
001404
022737
001362

173436
170777

005000

173442
001450
001450
001450

004000

001450

000010

106412

6%:

21%:

RESET

MOv

#10,aCSR

MOV

aCSR,SAVE

23%:

(MP
BEQ
(MP

24%:

RSYNC

#5000, SAVE
24%
#4000, SAVE
21%

BIC

BNE

;TELL SLAVE WE HAVE AN ERROR

#170777,SAVE

;RSYNC

ON ERROR

;NO ERROR IN MASTER-WAIT FOR SLAVE STATUS

—

005746
005750
005756
005764
005772
006000
006002
006010
006012

199 006040

—

104401
104005
000400

SEQ 0034

;ERROR IN MASTER-WAIT FOR SLAVE STATUS

D e

1173 005736
005742
005744

3
1
PAGE 21-1

006650
006056
006060
066066

017737
042737
022737
001410
022737
001362
012777

173400
170777
005000

001450
001450
001450

004000

001450

000010

173342

012777
004737

000012
011200

173332

104412

:
9%

MOv

BIC

#170777,SAVE

BEQ
(MP
BNE

10%
#4000, SAVE
9%

CMP

MOV

10%:

a(SR,SAVE

RSYNC

MOV
JSR

#5000, SAVE

#10,3CSR

#12,aCSR
PC,RSTVEC

;READ (SR
:SAVE

'STAT'

BITS

we==

;BR IF SLAVE DONE WITH NO ER'S
;WAS

THERE

;BR IF NOT

AN ER?

;RSYNC ON ERROR
;TELL SLAVE ALL Ok
;GO RESTORE VECTOR

CZDRKAOD DR11=w INTRPROC EXER

MACRO M1111

1207
1208
1209
1210
1211
1212

.SBTTL
.SBTTL
.SBTTL

SEQ 0035

SLAVE TESTS

AL
R
R R Rl

1214 006072
1215 006100
1216 006102
006106

032777
001425
104401
000421

006152
006152
006154
006160
006164

000000
004737
012706
005077

1222 006176
1223 006200
1224 006206

001404
032777
001374

1221

4.3
PAGE 23

:SLAVE PROTOCOL INIT=-TESTI

1213

1217
1218
1219
1220

24-AUG=79 14:19

006170

1225 006210
1226 006214
1227 006222
1228 006224

032777

004737
032777
001774
000137

020000

173320

006110

SINITY: BIT
BEQ
TYPE
BR

;:65%8:

64%:
013576
001100
173230

1$:

001000

173222

001000

173212

2%:

173176

4$:

013502

001000
006240

_ASCIZ

aCsSk

BEQ
BIT
BNE

3%
#1000,aCSR
2%

JSR

BIT
BEQ
JMP

;:TYPE ASCIZ STRING

;.GET OVER THE ASCIZ

<CRLF>/CABLE 1S NOT INSERTED = HALTING /

HALT
JSR
MOV
CLR

BIT

3%:

#BIT13,3CSR
%
,65%
64%

PC,CPUHI
#STACK,SP
#1000,3CSR

PC,GOCMPN

#1000,aCSR
4%
SL1STR

;WHAT

1S DSTATC

;1F CLR=BRANCH AND WAIT FOR MASTER
;1F NOT,WAIT FOR CLEAR
;HAS MASTER SET DSTATC
;NOT YET

IN SLAVE?

CZDRKAO DR11-W INTRPROC EXER
MACRO M1111
24-AUG=79 14:19
* STST1
RECEIVE MASTER'S DBR DATA AND SEND IT BACK VIA DBR
1230

LSBTTL

+ STST1

K
3
PAGE 24

SEQ 0036

RECEIVE MASTER'S DBR DATA AND SEND IT BACK VIA DBR

1231
1232

N
R R R R R T N R R PR C R R R R R R RN R RN RN RN RN RRA RN OROEN
;:"."t"!""""""'t"t"'"t""ll""'."'t"l".'ttl""'

1233
1234

:NOW THIS COMPUTER BECOMES THE SLAVE AND ECHOS MASTER'S DBR DATA
:SLAVE COMPUTER STARTS HERE FROM PROGRAM START 204

1235
1236

RN
R N R
R R R R P R R T R P R RN AR
RN RN TR R AR
RO R RO TR
;:t""""""t'""""'""'"""'Ql'.'"'.ttt""""t"t"t

1538

1239 006230
1240 006236
1241
1242 006240

004737
004737

013502
013414

017737

173156

1244 006254
12645 006256

001412
013777

1243 006246
1246 006264

1247
1248
1249
1250

006272
006276
006300
006302

022737
012737

005337
001375
000753
000240

177001

001450

001000
001444

STST1:

001450

001450
173136
001444

JSR
JSR

PC,GOCMPN
PC.WTCMPN

SLISTR: MOV

aBDR, SAVE

sTELL MASTER WE ARE READY
*DATA AVAILABLE?
SWAIT ON IT
:GET DATA

BEQ
MOV

4
SAVE ,9BDR

:BR IF SO
;SEND IT BACK

DEC
BNE
BR
NOP

TIME
5%
STST

CMP

5%
48

MOV

#177001, SAVE
#1000, T1IME

STEST TERMINATOR?

:DELAY BEFORE CALLING MASTER
;GO LOOK FOR-MORE DATA
:

CZDRKAO DR11-w INTRPROC EXER

* TEST

THAT

SLAVE

MACRC M1111

24=AUG=79 14:19

INTERRUPTS MASTER:F2 TO ATIN

1252
1253

.SBTTL

PAGE 25

3
SEQ 0037

+ TEST THAT SLAVE INTERRUPTS MASTER:F2 TO ATTN
:SLAVE PROTOCOL INIT-TEST2

125‘

";"'""'"""""""""""""."'.".'.""".""""'..'

}%gg 006304

SINITZ:

1257 006304

1258 006310
1259 006314
1260 006322
1261
1262
1263
1264

006330
006336
006344
006352

1269
1270
1271
1272

006410
006412
006416
006420

1265
1266
1267
1268

006360
006366
006374
006402

005077

004737
017737
042737

052737
013777
017737
042737

042737
013777
012737
032777

001404
005337
001371
104412

173110

013414
173100
100000

000004
001446
173050
100000

000004
001446
010000
001000
001444

001446
001446
001446
173054
001446
001446
001446
173024
001444
173010

CLR

aCSR

;CLR DSTATC OF MASTER

BIS
MOV
MOV
BIC

¥4, TEMP
TEMP ,aCSR
aCSR,TEMP
#BIT1S5,TEMP

;SET

BEQ
DEC
BNE
RSYNC

STST2
TIME
2%

JSR
MOV
BIC

2%:

BI1C
Mov
MOV
BIT

PC,WTCMPN
aCSR,TEMP
#BIT15,TEMP

¥4, TEMP
TEMP,aCSR
#10000, TIME
#1000,aCSR

INTERRUPT MASTER

;CLR F2
;WAIT DSTATC SLAVE TC CLEAR

BIIIFIN
OB~
NS

LSBTTL
B

————

SEQ 0038

RECEIVE MASTER'S °'STAT' BITS AND SEND 17 BACK VIA "FNCT' BITS

LA T

;RECEIVE 'STAT' BITS AND CONVERT TO "FNCT' BITS AND WRITE TO CSR
A

TR T

&
&~

L R
R
T
T
T

86 006450

1289 006466
1290 006474
1291 006476
1292

+ STST2
R

T R
R R R
Y

0o
0o 0o

NN
NN NN ~

Pe
YT Y S S
— —>

——d
e

mn3
CIDRKAQ DR11-w INTRPROC EXER
MACRO M1111
24-AUG-79 14:19
PAGE 26
* STST2 RECEIVE MASTER'S 'STAT' BITS AND SEND 1T BACK VIA 'FN

004737
012737
005337
001375
022777
001412
017737
042737
113777
000752
004737

51812:

013414
001000

001444

177002

172752

172742
170777
001451

001450
001450

001444

013502

4%:

5%:
2%:

JSR

MOV
DEC
BNE
CMP

#1000, TIME

MOV

aCSR,SAVE
#170777 ,SAVE
E:VEOI,BCSR

BEQ
BIC

172724

3%:

PC,WTCMPN

MOvVB
BR
JSR

TIME

#177002,3BDR

PC,GOCMPN

;WAIT

;DELAY

FOR MASTER

;TEST TERMINATOR?
:BR IF SO
;READ THE

CSR

;SAVE ONLY THE STAT BITS
;ECHO WITH FNCT BITS

;LOOK FOR NEXT °'STAT' (ODE
sTELL

MASTER

TO CONTINUE

~
N
~N

o
b=d
o

SRR

AR AR

——

A ittt
Rl ll)

:THIS TEST SETS UP TO RECEIVE A 32 WORD BLOCK OF DATA FROM THE MASTER
: THEN CHECKS FOR PROPER INTERRUPT STATUS, WC, BA & DATA
:1F AN ERROR IS DETECTED THE SLAVE TELLS THE MASTER, REPORTS THE
;ERROR, AND RESYNCS ON PROGRAM

::'"."""""""'""""'"""""'.'..'."."'"'t'"Q'.t'
:;'."l't""""""'""'""""""".'t.""."'tt""'tttt'

004737

013576
001000
001444
172672
001200

STST3:
001444

172664

0171160

1%:

40%:
41%:

39%:

010000
001464
001466
013624
172614
100000

000012
001446
001470
001444

172550
172542
100000
000100
001446

013737
104401
104007

000540
022626
017737
017737
042737
062737
013777
012737
023737
001407
013737
104401
104010

004312
001420

001420

015516

JSR
3%

#1000, TIME
TIME

aCSR
#1200,aCSR
41%
RS5,SETVEC

MOV
MOV
MOV

#10000, TIME
RPRAM,aWCR
RPRAM+2 ,aBAR

001446
001446
001446
172570
172562

MOV

aCSR,TEMP
#BIT15,TEMP
#12,TEMP
TEMP,aCSR

-32.

172626
172622

JSR

BIC
BIS

2%:

001126
001446
001446
001446
172516
001124
001122

172432

001124
001126
001122

DEC

BNE

MOV
MOV

BIC
BIC

MOV
MOV
MOV

104000+7

001126
001446
001446
001446

MOV
MOV

3%:

PC,CPULO

RPRAM+4
TIME

(SR

2%
aCSR,$BDDAT

aCSR,TEMP
#BIT15,TEMP
#100, TEMP
TEMP,aCSR

#4312 ,9GDDAT
CSR,$BDADR

TYPE

LMSG1

108
(SP)+,(SP)+

CMP

MOV
MCV

BIC
BIC

MOV
MOV

3CSR, $BODAT

aCSR, TEMP
#100
. TEMP
#BIT1S, TEMP
TEMP,aCSR

#4312, $GDDAT

CMP
BEQ

MOV

$GDDAT, SBDDAT
4%
CSR,$BDADR

TYPE

MSG1

104000410

;NO INTRS ALLOWED YET

40%

001444

172464

DEC
BNE
CLR
CMP
BNE

PC,CPUHI

R5,CLRBUF

015516

172456
000100
100000
001446
004312
001124

JSR
MOV

JSR

011220

FERE

WwWwwhoNrnNNo
N POMNONIN
&~

WORDS FROM MASTER

;;""".""'""'""""'"""'""'."."."""""'l'l'l"

‘NF!: N

1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
6 006642
7 006644
1
1
8 006652
1
9 006660
1
0 006666
1
1 006674
1
2 006702
1
3 006710
1
1 35 006716
1
1 37 006724
1 38 006726
1 39 006730
1 40 006736
1
1 006744
1 342 006752
1 343 006760
1 344 006766
1 345 006774
1 346 007002
1 g4 ; 007004
1 A
1 349 007012
1 350 007016

SEQ 0039

* STST3 BLOCK MODE WORD XFER TEST-SLAVE RECEIVES 32

.SBTTL
.SBTTL

W (W LV LV IV IV W LY
w
~n N =
os
o ~N or

e b e
b b e s e O j=d=
COVENOWVSWN=O L~ o~

vunuunvfiauunuunvunuuuvunuunuunvuuvunuunuunuun
gyfl
eRee
g 83233 238
$23S

1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
1304 006502
1 305 006502
1 306
506

N_3
PAGE 27

MACRO M1111
24-AUG=79 14:19
CZDRKAQ DR11-w INTRPROC EXER
* STST3 BLOCK MODE WORD XFER TEST-SLAVE RECEIVES 32

;ONLY DSTATC AND READY SET
;SET UP THE INTR RETURN ADRS

;RETURN TO 3% ON DATO INTR
;60 CLR 'DBUF'’
;D0 32. LOCATIONS
:SET UP A TIMER VALUE
:SET UP WORD COUNT
;:SET UP BUFFER ADRS
sALLOW THE INTR
ENCT 381

sSET UP CONTROL - FNCT 3 8 1, IE
;WAIT

FOR

INTR

& GO

;UNTIL ZERO
;READ CSR = SHOULD NEVER GET HERE
:DISABLE IE

;LD EXPECTED - STAT A, RDY, 1E & FNCT 3 8 1
:SET UP (SR ADRS

;G0 RESYNC ON ER
sFIX

STACK

SINCE NO RETURN

:READ STATUS

;DISABLE IE
;LD EXPECTED - STAT A, RDY,
;CORRECT?
:BR 1F SO
;SET

UP (SR ADRS

IE % FNCT

3 & 1

CZDRKAQ DR11-w INTRPROC EXER

WORDS FROM MASTER

1351
1352
1353
1354
}ggz

MACRO M1111

007020
007022
007026
007034
007036

000502
005037
017737
001407
013737

1357 007044
1358 007050
1359 007052
1360 007054

104401
104011
000465
013737

1362 007066
1363 007070
1364 007072
1365 007076
1366 007104
1367 007112
1368 007120
}ggg 007122

005400
006300
060037
017737
042737
023737
001407
013737

001124
172314
000001
001124

001126
001126
001126

001416

001122

1371 007130

104401

015516

1373 007136
1374 007140
1375 007144
1376 007150
1377 007154
1378 007156
1379 007160
1380 007162
1381 007164
1382 007166
1383 007170
1384 007172
1385 007174
1386 007176
1387 007200
1388 007202
1389 007204
1390 007210
}gg; 007214

000433
013700
013701
012702
005003
020220
001011
005201
001435
005102
005103
001371
006302
005202
103363
000765
014037
010037
010237

1392 007220
1394 007224

104401
104013

1361 007062

1372 007134

013700

104012

24-AUG=79 14:19

001124
172362

001126

001414

001122

BR
CLR
MOV
BEO
MOV

001124

TYPE
104000+ 11
BR
5%:
MOV

015516
001466

001464

001466
001464
177776

,
|
.
'

10%
RPRAM+2 ,$GDDAT

.
;60 RESYNC ON ERROR
;GET STARTING ADRS OF XFER

NEG
ASL
ADD
MOV
BIC
CMP
BEQ
MOV

RO
RO
RO,$GDDAT
aBAR,$BDDAT
#B1700,8BDDAT
$GDDAT,$BDDAT
6%
BAR,$BDADR

;GET ACTUAL #
:CONVERT TO WORD
:ADD TO BASE ADRS
:READ BAR ADRS
;ELIMINATE LSB
;CORRECT?
:BR IF SO
:SET UP BAR ADRS

TYPE

,MSG1

BR
MOV
MOV
MOV
CLR
CMP
BNE
INC
BEQ
COM
COM
BNE
ASL
INC
BCC
BR
MOV
MOV
MOV

108
RPRAM+2,R0
RPRAM,R1
#177776.R2
R3
R2,(RO)+
9%
R1
13$
R2
R3
8%
R2
R2
7%
8%
-(RO),$BDDAT
RO,$BDADR
R2,$GDDAT

1064000412

7%:

8%:

001126
001122
001124

9%:

015516

TYPE
104000413

10%
$GDDAT
aWCR,$BDDAT
5%
WCR,$BDADR

SEQ 0040

;60 RESYNC ON ERROR
;LD EXPECTED wC
:READ WCR
:BR IF SO
:SET UP WCR ADRS

MOV

6%:

B_ &
PAGE 27-1

LMSG1

RPRAM, RO

,MSG1

SGET WC

;

{

;G0 RESYNC ON ERROR
;GET BUFFER ADRS
;GET WORD COUNT
;GET 1ST DATA PTRN (FLOATING 0)
:R3 SAYS WHEN T0O SHIFT PTRN
: COMPARE DATA IN DBUF TO EXPECTED
:BR IF DATA ERROR
;:COUNT THE WORD COUNT
;BR IF DATA CHECKS DONE
;CONVERT PTRN TO FLOATING 1
;TIME TO SHIFT?
:BR IF NOT = GO CK NEXT
;FLOAT PTRN LEFT
;KEEP LSB SET
:GC RESET FLOATING PTRN
;GO CHECK NEXT
:GET BAD DATA
:GET MEM ADRS OF DATA ER
;LD EXPECTED DATA

|
i
?
:
|
1
|

WORDS FROM MASTER

MACRO M1111

;ERROR IN SLAVE-WAIT FOR MASTER STATUS

‘ggg 007226
1400 007230

1401 007236
1402 007274

16403 007246

1404 007254
}282 007256

000005
017737

108:
172164

042737

170777

001450

15%:

022737

001000

001450

16%:

001404

001365
104412

24%:

1407
1408

}:?g

1621
1422

&
C
PAGE 28
SEQ 0041

}gg?

1411
1412
1413
1414
1415
1416
1417
1418
}4;8

264-AUG-79 14:19

RESET
MOV

BIC

BEQ

(MP

BNE
RSYNC

;TELL MASTER WE HAVE ERROR
aCSR,SAVE

#170777,SAVE
24%

;LOOP ON ERROR

;BUT WAIT FOR MASTER

#1000, SAvt
15%

;RSYNC ON ERROR

:NO ERROR IN SLAVE-WAIT FOR MASTER STATUS
007260
007266
007274
007302
007304
007312
007314
007316
007320

112777
017737
042737
001405
022737
001402
000764
104412
004737

000002
172126
170777

172132
001450
001450

001000

001450

011200

13s$:
14$:

318:
308:

MovB
MOV
BIC
BEQ
CMP
BEQ
BR
RSYNC
JSR

#2,aCSR
aCSR,SAVE
#170777,SAVE
318
#1000, SAVE
30%
14%
PC,RSTVEC

;TELL MASTER ALL OK
;READ (SR
;SAVE 'STAT' BITS ONLY
;1S ER IN MASTER?
;MASTER 0OK?

:RSYNC ON ERROR
;GO RESTORE VECTOR

————————— ——

CZDRKAO DR11-w INTRPROC EXER

CIDRKAO DR11-w INTRPROC EXER

WORDS FROM MASTER

MACRO M1111

1424

1425

}2%9
1428
1429
16430 007324
1431

16432 007330
1433 007336
16434 007342
1435 007344

1436
16437 007352
16438 007360
1439 007366
1440
1441
1442 007370
16443 007374
1444 007400
16445 007404
16446 007412
1447

24-AUG-79 14:19

&
D
PAGE 29

SEQ 0042

:BURST MODE WORD XFER TEST DETERMINATION
R

R R

R R R R R R R

R R R R R

R R

X221 T

;gSLERHlNE TF BURST XFERS AND BURST DATA LATE ARE TO BE

::l't!";'t""'tt"t""'0"""""0"""Q'Qt""t't't"t'tttt

004737
:
012737
005337
001375
013737

013414

001000
001444

001444

001434

001442

067737
023727
001406

172044
001442

001442
000256

005077
004737
000137
012777
004737

172026
013502
010776
000001
013502

172010

SLBRD:
1%:

2%:

JSR

PC,WTCMPN

MOV
DEC
BNE
MOV

#1000, TIME
TIME
1%
BOARD, TOTAL

ADD
CMP
BEQ

aBDR, TOTAL
TOTAL,#256
2%

CLR
JSR
JMP
MOV
JSR

aBDR
PC,GOCMPN
SLVFIN
#1,3BDR
PC,GOCMPN

sWAIT FOR MASTER TO INDICATE
;WHAT BOARD TYPE IT IS
;WAIT ON MASTER
;DETERMINE IF BOTH MASTER
sAND SLAVE ARE DR11W'S
;DO BURST MODE

;sNO BURST MODE

&
E
PAGE 30

CIDRKAO DR11-w INTRPROC EXER
MACRO M1111
24-AUG-79 14:19
* STST4 BURST MODE WORD XFER TEST=-SLAVE RECEIVES 32

1449
1450

.SBTTL
.SBiTL

* STST4 BURST MODE WORD XFER TEST-SLAVE RECEIVES 32
WORDS FROM MASTER(DR11-w TO DR11-W ONLY)

1451

1452

1453
1454

R R

N R R R R N R R R R P R R R R R R R R NN R RN R

R R R R R R R R R R R R R N R N R AR R AN R R RO

RN RO

RO RN

RN R PR RN RN RO RO RORN

;THIS TEST SETS UP TO RECEIVE A 32 WORD BLOCK OF DATA FROM THE MASTER
:SAME AS TEST 3 EXCEPT BURST MODE

1455
1456

1457
1458
1459
1460

SEQ 0043

AR
R

007416
007416
007422
007430

1461 007434

1462 007436
1463 007442
1464 007450
1465 007452
1466 007456
1467 007460
1468 007464
1469 007466
1470 007474
1471 007502
1472 007510
1473 007514
1474 007522
1475 007530
1476 007536
1477 007544
1478 007552
1479 007556
1480 007560
1481 007566
1482 007574

004737
012737
005337

013576
001000
001444

005077
022777
001372
004537
007642
004537
177740
012737
013777
013777
004737
017737
042737
052737
013777
012777
005337
001375
017737
017737
042737

171756
001200

001375

010000
001464
001466
013624
171700
100000
000002
001446
000103
001444
171634
171626
100000

000100

}ng 007624

013737

001420

1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499

007632
007636
007640
007642
007644
007652
007660
007666
007674
007702
007710
007716

104401
104007
000540
022626
017737
017737
042737
042737
013777
012737
023737
001407

1502
1503
1504
1505

007726
007732
007734
007736

}gg? 007720

408:
641%:
39%:

011220

042737

013777
012737

171750

011160

1483 007602

1484 007610
1485 007616

001444

STST4:
18:

001446
000302

001444
171712
171706
001446
001446
001446
171654
171646
001126
001446
00144
001446
171602
001124
001122

015550

001126
001446
001446
001446
171516
001124
001126

013737

001420

001122

104401
104010
000502
005037

015550

JSR
MOV
DEC

BNE

CLR
CMP
BNE
JSR
3%
JSR
-32.
MOV
MOV
MOv
JSR
MOV
BIC
BIS
MOV
MoV
DEC
BNE
MOV
MOV
BIC

3%:

R R R R R R R R R R R R R R R R 2R
22 222D
R
R R R R R
R R R R R R R R R R R R AR R
2L T

PC,CPUHI
#1000, TIME
TIME

RS, CLRBUF

#10000, TIME
RPRAM,aWCR
RPRAM+2 ,3BAP
PC,CPULO
aCSR,TEMP
#BIT15,TEMP
#2,TEMP
TEMP,aCSR
#103.3CSR
TIME
2%
aCSR,$BDDAT
aCSR,TEMP
#BIT15,TEMP
#100,TEMP

MOV

CSR,$BDADR

TEMP ,aCSR
#302 ,9GDDAT

TYPE

.MSG2

BR
(MP
MOV
MOV
BIC
BIC
MOV
MoV
CMP
BEQ

108
(SP)+,(SP)+
a(SR,$BDDAT
aCSR,TEMP
#BIT15,TEMP
#100, TEMP
TEMP,aCSR
#302,8GDDAT
$GDDAT,$BDDAT
6%

MoV

TYPE
104000410
BR
6%:
(LR

;NO INTRS ALLOWED YET

40%

aCSR
#1200,aCSR
41%
RS,SETVEC

BIC

MOV
MOV

104000+7

171550
171542
100000
000100
001446
000302
001126

001124

2%:

R
R

CSR,$BDADR

;ONLY DSTATC AND READY SET
;SET UP THE

INTR RETURN ADRS

;RETURN TO 3% ON DATO INTR
;GO CLR °"DBUF'
;00 32.
;SET UP
;SET UP
:SET UP

SENCT

LOCATIONS
A TIMER VALUE
WORD COUNT
BUFFER ADRS
;ALLOW THE INTR

;SET UP CONTROL = FNCT
1, IE
& GO
;WAIT FOR INTR
;UNTIL ZERO
_
;READ CSR = SHOULD NEVER GET HERE

;DISABLE

;LD EXPECTED ;SET

UP (SR ADRS

RDY,

& FNCT

;G0 RESYNC ON ER
;FIX STACK SINCE NO RETURN
;READ STATUS
;DISABLE

;LD EXPECTED ; CORRECT?
;BR IF SO

RDY,

;SET UP (SR ADRS

MSG2
10%
$GDDAT

;GO RESYNC ON ERROR
;LD EXPECTED WC

IE & FNCT

CZDRKAO DR11-w INTRPROC EXER

MACRO M1111
WORDS FROM MASTER(DR11-Ww TO DR11-w ONLY)

oooogo
coNO
SN
NN—‘g
o

-l
i
i i

[=i=l=l=l=1~]

7776

10034
10036
NN
OV
OSSOSO

(=d=d=d=l=l=1=]

10044

000465
013737
013700
005400
006300
060037
017737
042737
023737
001407
013737
104401
104012

010134
010140

104401
104013

T ISV R

10074
10076
10100
10102
10104
010106
010110
010112
010114
010116
010120
010124
010130

000433
013700
013701
012702
005003
020220
001011
005201
001443
005102
005103
001371
006302
005202
103363
000765
014037
010037
010237

5
5
5
5
5
5
5
537
538
539
540
541
542
563
544
545
546
547

017737
001407
013737
104401
104011

[eleielelelellelelelelelelelelelelelelelelele Neleleleleleolete)

IV IV IV IV IV IV IV TV IV IV IV TV TV IV I

VIV TV IV T

guruuuuwmwmwmmmwm-_._..‘_._.._._-_._.o
= OOVONOWVIWN—=O
VNV WN =00V NO VNS WN =00

1506 007742
1507 007750
508 007752

24-AUG=79 14:19

PAGE

171446

001126

MOV

2:(R.SBDDA1

001414

001122

MOv

WCR,$BDADR

015550
001466
001464
001124

171400

000001
001126

001416

015550
001466
001464
177776

001124

BEQ

TYPE
104000411
BR

5%:

015550

MOV

NEG
ASL

ADD
MOV

001126

001126
001126

BIC

(MpP
REQ

001122

7%:

9%:

10%
RPRAM+2,$GDDAT
RPRAM,RO
RO
RO
RO,$GDDAT
aBAR,$BDDAT
#BI1T00,$BDDAT
ngbAI,iBDDAY

BAR,$BDADR

TYPE

.M562

MOV

10%
RPRAM+2
RO
RPRAM,R1
#177776,R2
R3

MOV
CLR

CMp

BNE
INC
BEQ
COM
COM
BNE
ASL
INC
BCC
BR
MOV

R2,(RO)+
9%
R1

MOV
MOV

13%
R2
R3
8%
R2
R2
7%
8%
=(RO) ,$BDDAT
RO,$BDADR
R2,$GDDAT

TYPE

.MSG2

104000+13

SEQ 0044

;READ WCR
:BR _IF SO
;SET UP WCR ADRS

MSG2

MOV

104000+12
BR
6%:
MOV

8%:

001126
001122
001124

MOV

F
4
30-1

;GO RESYNC ON ERROR
;GET STARTING ADRS OF
;GET WC
;GET ACTUAL #
: CONVERT TO WORD
;ADD TO BASE ADRS

XFER

;READ BAR ADRS

;ELIMINATE LSB
: CORRECT?
;BR IF SO
:SET UP BAR ADRS

;GO RESYNC ON ERROR
;GET BUFFER ADRS
;GET WORD COUNT
;GET 1ST DATA PTRN (FLOATING 0)

:R3 SAYS WHEN 70 SHIFT PTRN

; COMPARE DATA IN DBUF TO EXPECTED
:BR IF DATA ERROR
: COUNT THE WORD COUNT
:BR IF DATA CHECKS DONE
: CONVERT PTRN TO FLOATING

;TIME TO SHIFT?
;BR IF NOT = GO CK NEXT
;FLOAT PTRN LEFT
;KEEP LSB SET
;GO RESET FLOATING PTRN
.60 CHECK NEXT
;GET BAD DATA
;GET MEM ADRS OF DATA ER
;LD EXPECTED DATA

(ZDRKAO DR11-W INTRPROC EXER

NNNNOOOSOOOOO
WN—=OOVo~N

el il el

Al AN

D il

D i

AV IV AV IV AN

D il il

24-AUG-79 14:19

PAGE

¢
G
31

SEQ 0045

;ERROR IN SLAVE-WAIT FOR MASTER STATUS
[=lelelololelelel
=]

dh il il

D il el i il

p—

Al VNN AN
NN NN
[ AL AR YAV LV IV ] e
LY
VP WN OO0V NO WV WN—=O O

MACRO M1111
WORDS FROM MASTER(DR11-w TO DR11-Ww ONLY)

000010
171242

170777
005000

171246
001450
001450
001450

004000

001450

104412

10%:
15%:

165:

24%:

RESET

MOV
MOv

#10,3CSR
9CSR,SAVE
#170777,SAVE
#5000, SAVE

CMP
BNE
RSYNC

#4000, SAVE
15%

BIC
(MP
BEG

;TELL

MASTER WE

HAVE

:LOOP ON ERROR
;BUT WAIT FOR MASTER

AN ERROR

24%

;RSYNC ON ERROR

;NO ERROR IN SLAVE-WAIT FOR MASTER STATUS
012777
017737
042737
022737
001405
022737
001362
104412
004737

000012
171176
170777
005000

171202
001450
001450
001450

004000

001450

011200

13%:
14%:

MOV
MOv

BIC

(MP

BEQ
CMP
BNE

RSYNC

JSR

#12,3CSR
aC(SR,SAVE
#170777,SAVE
#5000, SAVE

30%

#4000, SAVE
14%
PC,RSTVEC

:TELL MASTER ALL Ok
;READ

;SAVE

CSR

'STAT'

BITS ONLY

:1F NO ER,CONTINUE
. 1F ERROR,RESYNC
;RSYNC

ON ERROR

;GO RESTORE VECTOR

CZDRKAD DR11-w INTRPROC EXER
MACRO M1111
24-AUG=79 14:19
* STSTS BURST DATA LATE TEST=-SLAVE RECEIVES 5 WORDS
1575
1576
1577

.SBTTL
.SBTTL
.SBTTL

PAGE 32

SEQ 0046

» STST5 BURST DATA LATE TEST-SLAVE RECEIVES 5 WORDS
FROM MASTER AND TIMES OUT WHILE EXPECTING MORE
(DR11-W TO DR11-W ONLY)

1578
1579

AR
P

1580
1581
1582
1583
1584
1585

:SETS UP 1O RECEIVE 10 WORDS IN BURST MODE FROM MASTER,BUT MASTER WILL ONLY SEND S WORDS.
: TIMEOUT OCCURS AND THE BUS 1S RELEASED
:THEN CHECKS FOR PROPER INTERRUPT STATUS, WC, BA & DATA
:1F AN ERROR 1S DETECTED THE SLAVE TELLS THE MASTER, REPORTS THE
;ERROR, AND RESYNCS ON PROGRAM
:1F ALL OK THEN THIS COMPUTER BECOMES MASTER AND GOES TO MTST1

1587

1586

1588 010260

1591 010272

1601
1602
1603
1604
1605
1606
1607

010276
010300
010304
010312
010314
010320
010322
010326
010330

010336
010344
010352
010356
010364
010372
010400

004737
012737

005337

001375
005077
022777
001372
004537
010424
004537
177740
012737

013777
013777
004737
017737
042737
052737
013777

}ggg 010406

013777

1610 010414
1611 010420
1612

005337
001375

010422
010424
010432
010440
010446
010454
010456
010460
010466

000416
017737
042737
042737
013777
104017
000471
017737
032737

1613
1614
1615
1616
1617
1618
1619
1620
1621
1622

1623
1624
1625
1626
1627
1628
1629
1630
1631

1589 010260
1590 010264
1592
1593
1594
1595
1596
1597
1598
1599
1600

010474
010476
0105064

010512
010516
010520
010522
010530
010536

001412
013737
013737
104401
104014
000450
012777
017737
032737

013576
001000

001444

171114
001200

STSTS:

001444

171106

011160

40%:

41%:

39%:

011220
040000
001500
001502
013624
171036
100000
000002
001446

001504

001444
171050
171044

171004

001444

001446
001446
001446
170744

170734
000200

001126
001126

001446
001420
015602

001124
001122

100000
170664
001000

170670
001126
001126

JSR
MOV

PC,CPUHI
#1000, T1IME

DEC

:
DEC
BNE

40%
a(SR
#1200,aCSR
41%
R5,SETVEC
RS, CLRBUF
.
#40000, TIME

RCVIMO,aWwCR
RCVIMO+2,aBAR
PC,CPULO
aCSR,TEMP
#BIT15,TEMP
#2,TEMP
TEMP ,a(SR

TIME
25%

BR
28%:
MOV
BIC
BI1C
MOV
104000417
BR
3%:
MOV
BIT

3%
(SR, TEMP
#BIT15,TEMP
#100,TEMP
TEMP (SR

TYPE
104000414
BR
5%:
MOV
MOV
BIT

.MSG3

BEQ
MOV
MOV

R R

S XL
RE RO

R SRR S R RSN R L

R R SR

SRR L

:NO INTRS ALLOWED YET
;DELAY ON MASTER

TIME

BNE
CLR
(MP
BNE
JSR
2%
JSR
-32.
MOV

H?YHEO 1RCVTHOM.SCSR
25%:

170770
100000
000100
001446

R
R
R R S SRR
R R R N R R R R R R R R R R R R RN R AR RN R R RN AR RN IR

MOV
MOV
JSR
MOV
BIC
BIS
MOV

001446
001446
001446
171012

10%
aCSR,$BDDAT
#B117,$BODAT

5%
TEMP ,$GDDAT
CSR,$BDADR

10%
#BIT15,3CSR
a(SR,$BDDAT
#B119,$BDDAT

;ONLY DSTATC AND READY

;SET UP
;RETURN
;G0 CLR
:D0 3¢.
;SET UP

THE INTR RETURN ADRS
TO 2% ON DATO INTR
'DBUF'
LOCATIONS
A TIMER VALUE

:SET UP WORD COUNT
;SET UP BUFFER ADRS
;ALLOW THE INTR

SENCT

;SET UP CONTROL:IE,FNCTT

& GO

;WAIT FOR MASTER TO SETUP;
: THEN SLAVE BUS WILL BE HELD FOR DURATION
;OF BURST XFERS;TIMEOUT WILL OCCUR WITH SUBSEQUENT

;RELEASE OF BUS AND PROGRAM CONTINUATION
;G0 TO CHECKS
;DISABLE

;READ STATUS
;TEST READY BIT

;60 10 EIR
:SAVE EIR
;TEST BURST

DATA LATE BIT

CIDRKAO DR11-w INTRPROC EXER
(DR11-w TO DR11-W ONLY)
1632 010544
1633 010546
1634 010554
1635 010562
1636 010570
1637 010574
1638 010576

001015

101000

001420
015602

1639 010600

1640 010606
1641 010614
1642 010622
1643 010624
1644 010632
1645 010636
1646 010640
1647
1648
1649
1650
1651
1652 010642
1653 010644
1654 010652
1655 010660
1656 010666
1657 010674
1658 010676
1659 010704
1660 010706
1661
1662
1663

000400

MACRO M1111

24-AUG-79 14:19

BNE

MOV

#101000, $GDDAT

TYPE

,MSG3

001126

BIC

001122

MOV

001124

177773
170602
001124

001124
001126
001126

001414
015602

001122

000400

#B1TE,$BDDAT
CSR,$BDADR

104000422
BR

4$:

108

MOV
MOV
CMP
BEQ
MOV

#177773,8GDDAT
aWCR, SBODAT
$GDDAT,$BDDAT
138
WCR, $BDADR

;GO RESYNC ON ERROR
;LD EXPECTED wC
WCR
D
;REA
: CORRECT?
:BR 1F SO
;SET UP WCR ADRS

10%

;GO RESYNC ON ERROR

TYPE
104000411

,MSG3

000005
012777
017737
042737
022737
001404
022737
001362

000010
170542
170777
005000

170546
001450
001450
001450

004000

001450

104412

10%:

15%:

16$:
24%:

RESET
MOV
MOV
BIC
CMP
BEQ
CMP
BNE
RSYNC

#10,3CSR
dCSR, SAVE
#170777.SAVE
#5000, SAVE
24%
#4000, SAVE
15%

000005

010712
010720
010724
010726
010734
010742

012737
005337
001375

011012
011014

012777
017737
042737
022737

13%:

010000
001444

001444

000012
70460
170777
005000

001450
001450
001450

004000

001450

170464

011200

14%:

001454

IN SLAVE-WAIT

RESET

MOv #10000,TIME
DEC

CHP
BNE

RSYNC

JSR
CKSWR
1S1

BNE
DEC
BNE

MOV

;LOOP ON ERROR
;BUT WAIT FOR MASTER

ON ERROR

FOR MASTER

STATUS

:SLAVE HAS TIMED OUT LEAVING
;READY CLEAR. FNCT BITS TO DSTAT
:BITS COMMUNICATION CAN BE
sRESUMED BY SETTING READY.RESET
;WILL SET READY.

TIME

BNE 118
MOV
#12,9CSR
MOV
oCSR,SAVE
BIC
#170777,SAVE
CMP
#5000, SAVE
BEQ

EOPT:
SLVFIN:

001452

000144

11%:

:1F ERROR,INIT

:RSYNC

sNO ERROR

010750
010756
010760
010766
010770
010772
010776
011000
011004
011006

;ERROR IN SLAVE-WAIT FOR MASTER STATUS

1666 010710

1667
1668
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678
1679
1680
1681
1682
1683
1684
1685
1686
1687
1688

32-1

SEQ 0047

1664

1665

PAGE

EOPT

#4000, SAVE
148
PC,RSTVEC

MSTER

EOPTA
1COUNT
EOPTA

#144,1C0UNT

sTELL MASTER ALL 0K
JREAD (SR

;SAVE 'STAT' BITS ONLY
:BR IF MASTER DONE WITH NO ER'S
;DOES MASTER HAVE AN ERROR?
:BR 1F NOT
;RSYNC ON ERROR

;G0 RESTORE VECTOR
;60 CHECK SWR
;WERE WE STARTED AS MASTER?
:BR IF NOT

:COUNT

TEST PASS

;RESET

PASS

:BR IF NOT DUE FOR "END PASS' MSG
COUNT

100

ITERATIONS

CZDRKAO DR11-w INTRPROC EXER

END OF

MACRO M1111

PASS ROUTINE

1690

24-AUG=79 14:19

.SBTTL

END OF

PAGE 33

&
SEQ 0048

PASS ROUTINE

:;"""""""""""""""""".""".".""""'."""

:*INCREMENT THE PASS NUMBER (SPASS)

;*TYPE "END PASS #XXXXX'' (WHERE XXXXX

:*1F THERES A MONITOR GO TO [T
:+1F

VWUVESE S WNWWWHWNINN
= - s e a0
SFNNOONS
O WOOSTrSTTNOOSTNNVO

013700
001405
000005
004710
000240
000240

000240

000137

—

o
oW

—
—

——h —

D ol

-l

—ld

el —l

104405
104401

—

104401

013746

(==

il el

il il

D il

000240
005037
005237
062737
005327
000901
003022
012737
000001
011044

$EOP:

IS A DECIMAL NUMBER)

THERE ISN'T JUMP TO EOPTA

NOP
CLR
INC
BIC
DEC
$EOPCT: .WORD
BGY
MOV
SENDCT: .WORD
$EOPCT
TYPE

$GET42:
$ENDAD:

$DOAGN:

Mov
TYPDS
TYPE
MCv

BEQ

RESET

JSR

NOP
NOP
NOP

$TSTNM
$PASS
#100000,8PASS
%PC)‘

;;JERO THE TEST NUMBER
;; INCREMENT THE PASS NUMBER
;;DON'T ALLOW A NEG. NUMBER
;.L00P?

$DOAGN
:PC)O,S(PC)O

$29ES

. SENDMG

;s TYPE "'END PASS #''

LSENULL

::60 TYPE-=-DECIMAL ASCII WITH SIGN
., TYPE A NULL CHARACTER

$DOAGN

; ;BRANCH IF

$PASS,=(SP)

ars? RO
PC,(RO)

;sRESTORE

COUNTER

;:SAVE SPASS FOR TYPEOUT

;;GET MONITOR ADDRESS

NO MONITOR

;:CLEAR THE WORLD

;:G0 TO MONITOR
;s SAVE ROOM

;s FOR

JACTI

$RTNAD:
$ENULL:
$ENDMG:

JMP
.WORD
.BYTE
LASCIZ

a(PC)+
s ;RETURN
EOPTA
-1,-1,0
::NULL CHARACTER STRING
<15><12>/END PASS #/

EOPTA:
EOPTB:

MOV
DEC

#1000, TIME

:SET UP A COUNT

EOPTB

UNTIL TIME=0

BNE
JMP

TIME

MINITI

:STALL

FOR OTHER CPU TO BECOME

:NOW BECOME MASTER

SLAVE

CZDRKAO DR11-w INTRPROC EXER

MACRO M1111

1696
1697
1698
1699
1700
1701

.SBTTL
.SBTTL

PAGE 34

SEQ 0049

PROGRAM SUBROUTINES

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

“iHIS ROUTINE SETS THE PRIORITY LEVEL FOR NO INTERRUPT :SETS UP THE
INTERRUPT TO RETURN ON INTERRUPT

1702

iT0 THE ADDRESS INDICATED ((RS)) BY THE CALL +2
i
il
—

~N~NoO
O
ocoro

(=lelele]

"'.."'""'"""""""""""".".".""""l"'."""

—_—

1703

24-AUG=79 14:19

004737
012577
012777
000205

013576
170234
000200

SETVEC:

170230

JSR

PC,CPUHI

:SET UP FOR NO INTERRUPT

MOV
RTS

#200,3DRVCT2
RS

;KEEP PRIORITY LEVEL AT TOP ON INTR

MOV

(R5)+,aDRVCTO

:SET UP INTR RETURN ADRS
EXIT

-, OO
oD

et
—

—

[=]elele]

:'t'ttttt't"""'ttt'tt'tt"'ttt't'ttt'ttttl't.t'ltt.ttt't't"tt

013777
005077
004737
000207

001426
170214
013576

170216

RSTVEC: MOV

DRVCT2,aDRVCTO

;POINT VECTOR TO HALT

PC,CPUHI

;RAISE PRIORITY LEVEL

CLR

aDRVCT2

RTS

JSR

;SET UP HALT
JEXIY

;:"'ttl"""""""'"""""'."'.'."tt'tt.'..".l'ttt.tt'l

:THIS ROUTINE CLEARS THE 'DBUF' BEFORE A 'DATI' XFER
;THE # OF LOCATIONS IN 'DBUF' TO BE CLEARED IS SPECIFIED BY
:THE VALUE
;THE

CALL

IN THE CALL 42 = WHEN ALL CLEARED THE RETURN IS TO

rororoNN
W

R
R e

=lelelelele)

SNNNNNNNNNNNNNN NNNN~N
N PONIPNONOININU
NI N b =
b e e e s

oo NOWVESAWN
=2 OVONO VS WNN=O

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

THIS ROUTINE RESTORES THE
INTERRUPT VECTOR TO A HALT
;AND RAISES THE PRIORITY LEVEL

012500
012701
005021
005200
001375
000205

015756

CLRBUF: MOV
1%:

MOV
CLR

INC

BNE
RTS

(RS)+,RO

;GET THE LOC COUNT

'DBUF.R1
(R1)+

:GET 1ST ADRS
sCLR MEM LOC

1%
RS

sUNTIL ALL DONE
JEAIT

s COUNT LOC

CIDRKAO DR11-w INTRPROC EXER

24-AUG=79 14:19
A

4
L
PAGE 35

SEQ 0050

LA ARl
R
2R
RRRRRRd
)

:THIS ROUTINE LOADS 'DBUF' WITH A FLOATING ZERO/ONE PATTERN
;THE # OF LOCATIONS IN 'DBUF' TO BE LOADED IS SPECIFIED BY
;THE VALUE

IN THE CALL 42 = WHEN ALL LOADED THE RETURN IS TO CALL

NN
NN NN

D
d
D
D
D e
D
D e
D
B

';""'""""""'."""""""""'l.""l"""'l""""'t

OO0 O0O0O0O0O0O0O0O0O0O0O00O

> o
b
>
D
s
D
D
b
D
D
D
D
D
o
D
e
e
—

NNNNNNNNNNNNNNNNN~N~ ~
LV 2P 2k 2P ok 2k ok P o o AW TV TV
Ww
~

PROGRAM SUBROUTINES

MACRO M1111

LDBUF:

60
62

1%:

a;rrr?o.az

2%:

MOV

R2,(R1)+

3%:

005202
103363
000765

(RS)+,R0

MOV
MOV
MoV

CLR

INC
BNE
RTS

COM
COM
BNE
ASL

INC
BCC
BR

#DBUF

.R1

;GET LOC COUNT
;GET 1ST ADRS
;SET UP FLOATING ZERO PTRN
;R3 SAYS WHEN TO SHIFT PTRN
;LOAD MEM WITH PTRN
s COUNT LOC

:BR IF MORE
JEXIT
;CONVERT PTRN TO FLOATING 1
; SHOULD WE SHIFT?

:BR IF NOT = THIS WiLL BE A FLOATING 1
;FLOAT ZERO LEFT
;KEEP LSB SET
;GO RESET FLOATING PATRN

;GO LOAD NEXT PATRN

CZDRKAO DR11-W [NTRPROC EXER

SYSMAC ROUTINES

MACRO M1111

264=-AUG-79 14:19

};gz

.SBTTL

1755

.SBTTL

PAGE 36

SEQ 0051

SYSMAC ROUTINES

TYPE ROUTINE

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

;*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.
;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
: *NOT El:

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.

;*NOTEZ2:
'NOTES

$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

'CALL

:*1) USING A TRAP INSTRUCTION

'OR

TYPE

,MESADR

::MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

011300

105737

011306
011310

000000
000407

011314

017600

011324
011326
011330
011334
011336
011342
011344
011350
011352
011354
011356
011360
011364
011366
011372
011376

005726
012600
062716
000002
122716
001430
122716
001006
005726
104401
001165
105037
000755
004737
123726
001350

011304

011312

011320
011322

011400

100002

010046
112046
001005

001157

4%:

011514
011450
001156

004737
105337
000770

011450
011514

011426
011430
011434
011442

112716
004737
132737
001372

000040
011450
000007

011450

105777

167474

100375

3%:

000200

000001

011454

60%:

000011

105366
002770

005726
000724

2%:

000002

001154

011444
011446

1%:

000002

013746

011404
011410
011412
011416
011422

STYPE

5%:
6%:

7%:

TYPE

MESADR

T1STB

$1PFLG

HALT
BR

::HALT HERE IF NO TERMINAL
;;LEAVE

82(SP),RO

::GET ADDRESS OF ASCIZ STRING

BPL

MOV

RO,=-(SP)

MOVB
BNE

(RO)+,=-(SP)
4%

MOV

TST
MOV

ADD
RT1
CMPB
BEQ
CMPB
BNE
TST
TYPE
$CRLF
CLRB

(SP)+
(SP)+,RO
#2,(SP)

#HT, (SP)
8%
#CRLF, (SP)
5%
(SP)+

::PUSH CHARACTER TO BE TYPED ONTO STALK
::BR IF 1T ISN'T THE TERMINATOR

::1F TERMINATOR POP IT OFF THE STACK
::RESTORE RO
::ADJUSY RETURN PC
: sRETURN
:sBRANCH IF <HT>

:;BRANCH IF NOT <CRLF>
::POP <CR><LF> EQUIV
::TYPE A CR AND LF

$CHARCNT
2%
PC,STYPEC
SFILLC,(SP)+
2%
$NULL ,-(SP)

;s CLEAR CHARACTER COUNT
::GET NEXT CHARACTER
::60 TYPE THIS CHARACTER
::1S 1T TIME FOR FILLER CHARS.?
::1F NO GO GET NEXT CHAR.
;:GET # OF FILLER CHARS. NEEDED

DECB
BLT

1(SP)
6%

;:DOES A NULL NEED TO BE TYPED?
::BR IF NO--GO POP THE NuLL OFF OF STACK

PC,8TYPEC
$CHARCNT
7%

:HORIZONTAL TAB PROCESSOR

011514

:;SAVE RO

BR
JSR
CMPB
BNE
MOV

JSR
DECB
BR

83
9%:

::1S THERE A TERMINAL?

;:BR IF YES

MOVB
JSR
B1TB
BNE
1S7
BR

$TYPEC: TSTB
BPL

;:AND THE NULL CHAR.

;:G0 TYPE A NULL
::D0 NOT COUNT AS A COUNT
; :LOOP

#' ,(SP)
PC,STYPEC
#7,9CHARCNT
9%

:;REPLACE TAB WITH SPACE
;s TYPE A SPACE
;;BRANCH IF NOT AT
;:TAB STOP

a%T1PS

;:WAIT UNTIL PRINTER 1S READY

(SP)+
2%

$TYPEC

;;POP SPACE OFF STACK
::GET NEXT CHARACTER

CZDRKAD DR11-w INTRPROC EXER

e -t
i
i
e
i
i

i
P

—

b
et OO~
orroONO
S N>~

011514

I it -

000002
000015

[=lelelelelelels) o

011456
VWYL

TYPE ROUTINE

000012

000207

MACRO M1111

167466

MOVB

000002

24-AUG=79 14:19

1%:

{MPB
BNE
CLRB
BR
CMPB
BEQ
INCB

$CHARCNT: .WORD
$TYPEX: RTS

2(SP),as$1PB

#CR,2(SP)
1%
$CHARCNT
$TYPEX
#LF,2(SP)
$TYPEX
(PC)+
O
PC

PAGE 36-1

SEQ 0052

;:LOAD CHAR TO BE TYPED INTO DATA REG.

::1S CHARACTER A CARRIAGE RETURN?
; sBRANCH IF NO
:sYES==CLEAR CHARACTER COUNT
JsEXIT
::1S CHARACTER A LINE FEED?
: :BRANCH IF YES
;:COUNT THE CHARACTER
;; CHARACTER COUNT STORAGE

CZDRKAO DR11-w INTRPROC EXER
MACRO M1111
BINARY TO OCTAL (ASCII) AND TYPE
1757

B.5

24-AUG=79 14:19

PAGE 37

SEQ 0053

.SBTTL

BINARY TO OCTAL (ASCII) AND TYPE

:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT
;*OCTAL (ASCII) NUMBER AND TYPE IT.

;*$TYPOS-==ENTER HERE
s*CALL:

o
o
:®
B

MOV
TYPOS
.BYTE
BYTE

TO SETUP SUPPRESS ZEROS AND NUMBER OF

NUM,-(SP)

DIGITS TO TYPE

; sNUMBER TO BE TYPED
:sCALL FOR TYPEOUT
ssN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE
;:M=1 0R 0

::1=TYPE LEADING ZEROS

::0=SUPPRESS LEADING ZEROS

]

;*$TYPON===<ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

;*$TYPOS OR $TYPOC
s*CALL:

ot
M
X

MOV
TYPON

NUM,-(SP)

;s sNUMBER TO BE TYPED
;;CALL FOR TYPEOUT

;*$TYPOC-=-=-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

011520

011526
011532
011536

011542
011544
011552
011560
011566
011570
011572
011574
011600
011602

011606
011612
011616
011622
0116264
011626
011630
011632
011634
011636
011640
011642
011646
011650
011654
011656
011660

011662
011664
011670

017646

116637
112637
062716

000406

112737
112737
112737
010346
010446
010546
113704
005404
062704

110437
113704
016605
005003
006105
000404
006105
006105
006105
010503
006103
105337
100016
042703
001002
005704
001403

005204
052703
052703

000000

£
'

000001
011745
000002

011743

000001
000006
000005

011743
011745
011742

011745
000006

011744
011743
000012

MOvVB
MOvVB
ADD

1(SP),$0FILL
(SP)+,$OMODE+1
#2,(SP)

a(SP),=(SP)

BR
S$TYPOC: MOVB
MOvB
STYPON: MOVB
MCv
MOV
MOV
MOovB
NEG
ADD

$TYPON

2%:

3%:

177770

000060
000040

NUM,-(SP) -

$TYPOS: MOV

011744

MOV
TYPOC

0%:
5%:

MOvVB
MOvVB
MOV
CLR
ROL
BR
ROL
ROL
ROL
MoV
ROL
DECB
BPL
BIC
BNE
181
BEQ

INC
BIS
BIS

#1,80FILL
#6,30MODE +1
#5,80CNT
R3,-(SP)
R4 ,=(SP)
R5,=(SP)
$OMODE +1,R4
R4
¥6,R4

R4 ,$OMODE
$OFILL,R4
12(SP) ,RS
R3
RS
3%
RS
RS
RS
R5.R3
R3
$OMODE
7%
#177770,R3
4%
R4
5%

R4
#'0,R3
" LR3

;sNUMBER TO BE TYPED
::CALL FOR TYPEOUT
:;PICKUP THE MODE
::LOAD ZERO FILL SWITCH
;;NUMBER OF DIGITS TO TYPE
: :ADJUST RETURN ADDRESS
::SET THE
::SET FOR
::SET THE
;s SAVE R3
: :SAVE R4
::SAVE RS
::GET THE

ZERG FILL SWITCH
SIX(6) DIGITS
ITERATION COUNT

NUMBER OF DIGITS TO TYPE

::SUBTRACT IT FOR MAX. ALLOWED

::SAVE IT FOR USE
::GET THE ZERO FILL SWITCH
:;PICKUP THE INPUT NUMBER
:;CLEAR THE OUTPUT WORD
; sROTATE MSB INTO ''C*
::60 DO MSB
::FORM THIS DIGIT

::GET LSB OF THIS DIGIT
::TYPE THIS DIGIT?
::BR IF NO
;:GEl RID OF JUNK
;. TEST FOR 0

: ;SUPPRESS THIS 0?
::BR IF YES
::DON'T SUPPRESS ANYMORE 0'S
:sMAKE THIS DIGIT ASCII
:sMAKE ASCII IF NOT ALREADY
.S———

s*CALL:

AND TYPE

110337
104401

O
011740
0117

24-AUG=79 14:19

7%:

o
o

—

016666

000002

000004

MOvB
TYPE
DECB

BGT
BLT
INC
BR
Mov

MOV
MOv

MOV

8%:

000000

PAGE

(.5
37-1

SEQ 0054

6%:
o

STTNNOOSNNOSO &~

Y] WNINININ
=
s 2 OO ~

(ASCII)

SN0

NNNNNNNNN*NNNNNNN o

Vol o

il
el
el
D i
il el
el
el
D
el e
il
il
il
il

Dttt
el D
R
——

jelelelelelelolololololeleleleleleT
)

BINARY TO OCTAL

MACRO M1111

$OCNT:
$OFILL:
$OMODE:

MOV
RTI

.BYTE
.BYTE
.BYTE
.BYTE
.WORD

R3,8%
8%

$OCNT

2%
6%
R4

2%
(SP)+,RS
(SP)+.R&4

(S P)+,R3

2( SP) ,4(SP)
{$ P)+,(SP)
OO OoOoO

CZDRKAO DR11-w INTRPROC EXER

;sSAVE FOR TYPING

;.60 TYPE THIS DIGIT
;s COUNT BY 1
;:BR IF MORE T0 DO
;:BR IF DONE
;s INSURE LAST DIGIT ISN'T A BLANK
;260 DO THE LAST DIGIT
; sRESTORE RS
;s sRESTORE R4
ssRESTORE R3
ssSET THE STACK FOR RETURNING
: ;RETURN
: :STORAGE FOR ASCII DIGIT

: ; TERMINATOR FOR TYPE

ROUTINE

::OCTAL DIGIT COUNTER
:ZERO FILL SWITCH
: NUMBER OF DIGITS TO TYPE

CIDRKAO DR11-w INTRPROC EXER

MACRO M1111
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
1759

24-AUG-79 14:19

.SBTTL
A

AAA

PAGE 38

5
SEQ 0055

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
A

2222222222223

:*THIS ROUTINE 1S USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT

;*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
: *NUMBER 1S POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN wILL BE TYPED
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
; *REPLACED WITH SPACES.

s*CALL:
=

je=lelelelelelelelelelolelelelelelelelelelelelolelelolelelelelelelelelelelele] OO0 O0O0O0O0O0O

$TYPDS:

020200
000020

000055

000001

012162
000040

2%:

012152

3%:

12024
12026
12030
12032
12034

4%:

1%:

5%:

VCVCUNNN'\J—‘—-gOO
SsHrooorrnonNooo
N

[
—

- —————

12050

rororoNNNNDNDNDNDNDNNN

NUM,=(SP)

;:PUT THE BINARY NUMBER ON THE STACK
::60 TO THE ROUTINE

MOV
MOV
MOV
MOV
MOv
MOv
MOV
BPL
NEG
MOvVB
CLR
MOV
MOvB
CLR
MOV
SuB
BLT
INC

RO,=(SP)
R1,-(SP)
R2,=(SP)
R3,=(SP)
RS,=(SP)
#20200,-(SP)
%g(SP).RS

:;PUSH RO ON STACK
::PUSH R1 ON STACK
: :PUSH R2 ON STACK
: ;PUSH R3 ON STACK
:;PUSH R5 ON STACK
::SET BLANK SWITCH AND SIGN
::GET THE INPUT NUMBER
::BR IF INPUT IS POS.

RS
¥'=-,1(5P)
RO
¥$DBLK ,R3
' L(R3)+
R2
$DTBL (RO) ,R1
R1,R5

000001
000060
000040

020027
002746
003002
010502
000764
105726
100003
116663
105013

012605
012603
012602
012601
012600
104401

177777

7%:

000010

1STB
BM]
ASLB
BCC
MOvVB

BIS
BIS

MOvVB
TST
CMP

1(SP),=1(R3)
#'0,R2
" LR
R2,(R3)¢
(RO)+

MOV

177777

012162

177776

9%:

1STB

BPL

MOVB
CLRB
MOV
MOV
MOV
MOV
MOV
TYPE

THE BINARY NUMBER POS.

: sMAKE THE ASCI] NUMBER NEG.
;s ZERO THE CONSTANTS INDEX
::SETUP THE OUTPUT POINTER
::SET THE FIRST CHARACTER TO A BLANK
::CLEAR THE BCD NUMBER
::GET THE CONSTANT
::FORM THIS BCD DIGIT
:iBR 1 F DONE
:: INCREASE THE BCD DIGIT BY !

;:BR

BLT
BGT

8%:

: :MAKE

::ADD BACK THE CONSTANT
;:CHECK IF BCD DIGIT=0
s o FALL THROUGH IF 0
;sSTILL DOING LEADING 0°'S?

ADD
1§71

BNE

12040

076

MOV
TYPDS

9%
=1(SP),=2(R3)
(R3)
(SP)+,RS
(SP)+ ,R3
(SP)+,R2
(SP)+,R1
(SP)+,R0

,$0BLK

YES

s sMSD?
;:BR IF NO
;s YES==SET THE SIGN

:sMAKE

THE BCD DIGIT

ASCII

;:MAKE IT A SPACE IF NOT ALREADY A DIGIT
::PUT THIS CHARACTER IN THE OUTPUT BUFFER
ING
;s JUST INCREMENT
;s CHECK THE TABLE INDEX
;:60 DO THE NEXT DIGIT
::G0 TO EXIT
::GET THE LSD
::G0 CHANGE TO ASCII
::WAS THE LSD THE FIRST NON-ZEROQ?
3:0R } F NO
;s YES==SET THE SIGN FOR TYPING

2:8817
;s POP
s :POP
;. POP

THE

TERMINATOR

STACK INTO RS
STACK INTO R3
STACK INTO R?
;. POP STACK INTO R
;:POP STACK INTO RO
;s NOW TYPE

THE

NUMBER

CIZDRKAQ DR11-w INTRPROC EXER

MACRO M1111

[

rorRoNNNONNNY

[olelelelelelele]

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

016665
012616
000002
023420
001750
000744
000012

000002

24=AUG-79 14:19

000004
$DTBL:

$DBLK:

.BLrW

38-1

SEQ 0056

- ADJUST THE STACK

MOV
MOV
RT1

10000.
1000.
100.
10.

PAGE

. :RETURN TO USER

’

CZDRKAO DR11-w INTRPROC EXER

ERROR HANDLER ROUTINE

MACRO M1111

1761

24-AUG-79 14:19

.SBTTL
IR

F
5
PAGE 39

ERROR HANDLER ROUTINE
R

;*THIS ROUTINE WILL

R R

INCREMENT

SEQ 0057

TR R TR AR

R R

C RN R R AR RN RN RO RO O RO

THE ERRCR FLAG AND THE

;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF
:*AND GO TO SWRCK ON ERROR

ERROR COUNT,

THE ERROR CALL

;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

;*SW15=1
;*SW13=1
;*SW10=1

s*CALL

012172
012172
012174
012176
012202
012204
012212
012220
012222
012226

]762

012232
012236
012244
012252
012260
012262
012266
012272
012272
012276
012300
012302
012304
012304

104407
104407
105237

001775
013777

032777
001402
104401
005237
011637
102737
117737
032777
001004
004737
104401
005777
100002
000000
104407

M
$ERROR:

001103
001102
002000

001160
001112
001116
000002
166646
020000
012306
001165
166642

166730
166720
1%:

001116
001114
166660

20%:
2%:

3%:

000002

1763
1764

ERROR

CKSWR
CKSWR
INCB

BEQ
MOV

BIT
BEQ
TYPE
INC

s sERROR=EMT AND N=ERROR ITEM NUMBER

;sTEST FOR CHANGE IN SOFT-SWR
,GO LOOK FOR SWR CHANGE
..SET THE ERROR FLAG

$ERFLG
7%
;DON'T LET THE FLAG GO TO ZERO
$TSTNM,aDISPLAY ..DlSPLAV TEST NUMBER AND ERROR FLAG
#B1T10,aSwWR
;sBELL ON ERROR?
1%
:
:iNO = SKIP
LSBELL
;sRING BELL
$ERTTL
;s COUNT THE NUMBER OF ERRORS

MOV
SUB
MOVB
BIT
BNE
JSR
TYPE

(SP) ,$ERRPC
#2,8ERRPC
9SERRPC,SITEMB
#BIT13,3SWR
20%
PC,SWRCK
LSCRLF

TST
BPL
HALT
(KSWR

aSWR
3%

;.GET ADDRESS OF ERROR INSTRUCTION

;:STRIP AND SAVE THE ERROR ITEM (CODE
::SKIP TYPEOUT IF SET
;:SKIP TYPEOUTS
;.60 TO USER ERROR ROUTINE
;s HALT
;sSKIP
;sHALT
;s TEST

RT1

ON ERROR
IF CONTINUE
,
ON ERROR!
FOR CHANGE IN SOFT=-SWR

: ;RETURN

;GO TYPE ERROR
;GO UPDATE SOFTWARE

1765

1766 012306
1767 012312
1768 012314

7%:

HALT ON ERROR
INHIBIT ERROR TYPEOUTS
BELL ON ERROR

SWR

'CNTRL/G'

;.'""0""""""!tt"t"'tt""""."l'ttt'tttt".t"t!'l't't

004737
106407
000207

(012316

SWR(CK:

JSR
CKSWR
RTS

PC,$ERRTYP

;60 TYPE ERROR
;60 LOOK FOR SWR CHANGE
sRETURN TO ERROR HANDLER

(ZDRKAO DR11-w INTRPROC EXER
ERROR MESSAGE TYPEOUT ROUTINE

MACRC MT111

24=AUG-79 14:19

PAGE 40

5
SEQ 0058

1770

.SBTTL

ERROR MESSAGE TYPEOUT ROUTINE

:.'"l'"'""""'"""0""'t"""""""'.'i""""t't""'

oSO

W
P

il
D
s s

(=lelolelele)

prd

oo
NN NN NN
WY
—

:*THIS ROUTINE USES THE ''ITEM CONTROL BYTE'' (SITEMB) TO DETERMINE WHICH
;*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE '‘ERROR TABLE'' (SERRTB),

2
2
2
2
2
2
2354
2360
2364
2366
2
2 372
2 376
2

: *AND REPORTS

1046401
010046
005000
153700
001004

013746

$ERRTYP:

001165
001114

BISB
BNE

001116

MOv

106402

000426
005300
006300
006300
006300
062700
012037
001404
104401
000000
104401
012037
001404
104401
000000
104401
011000
001004
012600
1046401

000207

1%:

. SCRLF
RO,=(SP)
RO
a¥SITEMB,RO

$ERRPC,=(SP)

2%:

001165
012406

3%:
4%:

001165

5%:

6%:

001165

040

8%:

;:"'CARRIAGE RETURN'' & "LINE
::SAVE RO
;sPICKUP THE ITEM INDEX

;:1F

1TEM NUMBER IS ZERO,

;:TYPE THE PC OF
::SAVE SERRPC

FOR

: ;ERROR ADDRESS
;.60

TYPE=--OCTAL

THE ERROR

FEED"

JUST

TYPEOUT

ASCIICALL

DIGITS)

::GET ouT
;sADJUST THE INDEX SO THAT IT wiLL
T
WORK FOR THE ERROR TABLE

MOV
BEQ

(RO)+,2%
3%

;sP1CKUP "'ERROR MESSAGE'' POINTER
;:SKIP TYPEOUT I1F NO POINTER

TYPE

#SERRTB,RO

;;FORM TABLE

;sTYPE

THE

POINTER

''ERROR MESSAGE''

.WORD

MOV
BEQ

(RO)+,4%
5%

;sPICKUP "'DATA HEADER'' POINTER
;:SKIP TYPEOUT IF 0

LWORD
TYPE
MOV

O
,SCRLF
(RO) ,RO

;s 'DATA HEADER'' POINTER GOES HERE
;s 'CARRIAGE RETURN'' & "‘LINE FEED"
;:PICKUP "'DATA TABLE'' POINTER

TYPE
RTS

LSCRLF
PC

;s 'CARRIAGE
;sRETURN

MOV

a(RO)+,=(SP)

::SAVE 9(RO)+

TYPE

BNE
MOV

7%
(SP)+,R0

:sTYPE

THE

RETURN'' & ''LINE

;:G0 TYPE THE DATA
;sRESTORE RO

RETURN'' & """ INE

FOR TYPEOQUT

,8%

;s TYPE

14 3
4

;:BR 1F

FEED"

''DATA HEADER'

(RO)

.EVEN

;:"'CARRIAGE

;:GC TYPE--OCTAL ASCIICALL
;3 1S THERE ANOTHER NUMBER?

ASCIY

;:"'ERROR MESSAGE'' POINTER GOES HERE

LOCRLF

BEQ

TYPE

000

ERROR.

6%
RO
RO
RO
RO

TYPOC
151

012446

INFORMATION CONCERNING THE

BR
DEC
ASL
ASL
ASL
ADD

104402

104401
000771
040

APPROPRIATE

TYPOC

013046

005710
001770

TYPE
MOV
CLR

THE

2 :1.00P

TWO(2)

;:TW0(2)

SPACES

FEED"

DIGITS)

CIDRKAO DR11-w INTRPROC EXER

SCOPE HANDLER ROUTINE

MACRO M1111

24=AUG=79 14:19

PAGE 41

SEQ 0059

1772

.SBTTL
R

SCOPE HANDLER ROUTINE
R

;*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT
:*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)

;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
s *CALL
s
SCOPE
::SCOPE=]0T

012452
012452
012454

104407
104407

012456

000416

2
2
2
2514
2514
2520
2
2
2
2

013746
012737
005737
012637
000404
022626
012637
000406
105237

011637
105037

013777
013716
000002

$SCOPE:

CKSWR
CKSWR

;MHNANSTART

$XTSTR:

000004
012504
177060
000004

000004

5%:

000004
001102
001106
001103
001102
001106

CODE

FOR

THE

XOR

MOV
MOV
151
MOV

ONERRVEC,-(SP)
#5% ,QNERRVEC

MOV

(SP)+ ,a#ERRVEC

ER
CMP

166404

FOR CHANGE IN SOFT-SWR
;. TEST
:60 LOOK FOR SWR CHANGE

TESTERWNNNN

::1F RUNNING ON THE ''XOR'' TESTER (HANGE

::THIS INSTRUCTION TO A "'NOP'" (NOP=240)
;;SAVE THE CONTENTS OF THE ERROR VE(TOR

::SET FOR TIMEOUT

ar177060

;s TIME OUT ON XOR?

$SVLAD
(SP)+,(SP)+

;.60 TO THE NEXT TEST
s CLEAR THE STACK AFTER A TIME OuT

(SP)+ ,a#ERRVEC

;;RESTORE

THE

ERROR

VECTOR

;;RESTORE

THE

ERROR VECTOR

$OVER
;:LOOP ON THE PRESENT TEST
6% : ; ANANIEND OF CODE FOR THE XOR TESTERAANNN
$SVLAD: INCB
$TSTNM
;s COUNT TEST NUMBERSMOv
(SP) ,$LPADR
;SAVE SCOPE LOOP ADDRESS
CLRB
$ERFLG
;:lERO THE ERROR FLAG
$CVER:
MOV
$TSTNM,aDISPLAY ;;DISPLAY TEST NUMBER
MOV
$LPADR, (SP)
::F?DGE RETURN ADDRESS
RT1

23R 1 RES

"CIDRKAOQ DR11-w INTRPROC EXER
TTY

INPUT ROUTINE

_
MACRO M1111

24-AUG-79 14:19

1.5
PAGE 42
SEQ 0060

1774

<SBTTL
R

.ENABL

TTY INPUT ROUTINE
R

AR R

LSB

::""'l"'""""""""""""""tl'.""""".'l LA AR

;*SOFTWARE SWITCH REGISTER CHANGE ROUTINE.

:*ROUTINE

022737
001074

105777
100071
117746

042716

022726
001062
123727
001456

166360

177600

001134

104401

013307

105777
100375
1177646

166302

7%:

166276
177600
000025

9% :

042716
021627
001005
1064401

062706
000757
021627
001022
005766
001403
016677
062706
104401
123727

001003
012777
000002
004737
021627
002420
021627
003015
042726
005766
001403
006316
006316
006316
005266

000176

013264

$GTSWR:

19%:

000006

20%:

000015

10%:

000004
000002
000006
001165
001135

000100
011450
000060

11%:
14%:

15%:
16%:

000067

000060
000002

000002

‘

T1STB
BPL
MOVB

a$TKsS
15%
a8$TKB,-(SP)

CMP
BNE
CMPB
BEQ

#7,(SP)+
15%
$AUTOB, 1
15%

;1S IT A CONTROL G?
::NO, RETURN TO USER
;sARE WE RUNNING IN AUTO-MODE?
;;BRANCH IF YES

MOV
TYPOC

SWREG,=-(SP)

CLR
CLR

-(SP)
-(SP)

s :SAVE SWREG FOR TYPEOUT
;.60 TYPE--OCTAL ASCIICALL DIGITS)
s ;PROMPT FOR NEW SWR
;s CLEAR COUNTER
;s THE NEW SWR
; :CHAR THERE?
;s
1F NOT TRY AGAIN
;:PICK UP CHAR
::MAKE IT 7-BIT ASCII
531S IT A CONTROL=U?
; sBRANCH IF NOT
;:YES, ECHO CONTROL=-U (*U)
: IGNORE PREVIOUS INPUT
;sLET'S TRY IT AGAIN
;1S 1T A <CR>?
: sBRANCH IF NO
s2YES, IS IT THE FIRST CHAR?

BIC

000007

013271
013276

005046
005046

2734
2736
2744
2746
2752
2756
2760
2764
2766
2772
2776
3000
3002

166364

001140

AND WILL

;*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL
; *WHEN OPERATING IN TTY FLAG MODE.
S$CKSWR: CMP
#SWREG, SWR
::1S THE SOFT-SWR SELECTED?
BNE
15%
: sBRANCH IF NO

104401
104401

013746
104402

2
2702
2706
2710
2716
2722
2726

000176

IS ENTERED FROM THE TRAP HANDLER,

S22

17%:

TYPE
TYPE

TYPE

T1STB
BPL
MOVB
BIC
CMP
8NE
TYPE
ADD
BR
ChP
BNE
TST

BEQ
MOV
ADD
TYPE
CMPB
BNE
MOV
RTI
JSR
CMP
BLT
CMP
BGT
BIC
181
BEQ
ASL
ASL
ASL
INC

I‘C177.(SP)

LSCNTLG
. SMSWR

., SMNEW

a%7KS
7%
a$TKB,-(SP)

#ACI77,(SP)
(SP) ,#25
10%
JOONTLUY

#6,SP
19%
(SP).,#15
16%
4 (SP)
11%
2(SP),aSwWR
¥6,SP
JOSCRLF
$INTAG, M

15%
#100,3%7kS

PC,STYPEC
(SP) ,#60
18%
(SP) ,#67
18%
#60,(SP)+
2(SP)
17%
(SP)
(SP)
(SP)
2(SP)

;s CHAR THERE?
;:1F NO, DON'T WAIT AROUND
; sSAVE THE CHAR

;:STRIP=-0OFF THE ASCII

;sECHO THE CONTROL=G (*G)
;s TYPE CURRENT CONTENTS

; sBRANCH IF YES
;sSAVE NEW SWR
;sCLEAR UP STACK
;:ECHO <CR> AND <LF>
. sRE-ENABLE TTY KBD INTERRUPTS?
: sBRANCH IF NOT
s sRE-ENABLE TTY KBD INTERRUPTS
s sRETURN
;sECHO CHAR
::CHAR < 0?
;sBRANCH IF YES
::CHAR > 7?
;;BRANCH IF YES
;sSTRIP-OFF ASCII
:31S THIS THE FIRST CHAR
; ;BRANCH IF YES
;NO, SHIFT PRESENT
2
CHAR OVER TO MAKE
ROOM FOR NEW ONE.
;KEEP COUNT OF CMAR

DRKAO DR11-w INTRPROC EXER
10
TY INPUT ROUTINE

013012

013016
013020
013024

056616
000707
104401
000720

MACRO M1111

177776

001164

J_
9
PAGE 42-1

26=AUG=79 14:19

18%:
.DSABL

BIS
BR
TYPE
BR
LSB

=2(SP), (SP)

, SQUES

SEQ 0061

;sSET IN NEW CHAR
;:GET THE NEXT ONE

;s TYPE ?2<CR><LF>

20%

;s SIMULATE CONTROL=U

:;""""""""""""'""""""t."'."..""I't"'t""'

;*THIS ROUTINE WILL
;*CALL:
i

]

013026
013030
013036
013042
013044
013052
013060

d
i
D
i
i
D
i

S NWHNN
=
o
sV o

ad add
i
b
i
-

102

N N N N NN

OO0 O0OO0O0OO0O0O0O

013066
013070
013074
013076

011646
016666
105777
100375
117766
042766

026627
001013

105777
100375
117746
042716
022627
01366
000750
026627
002407

026627
003003
042766
000002

000004

000002

166076
177600

600004
000004
000023

166102

000004

166050

$RDCHR:
18:

166044
177600

000004

000140

000004

000175

000040

000004

3s:

4&:

RETURN HERE

MOV
MOV
1518

;;PUSH DOWN THE PC
::SAVE THE PS
;:WALIT FOR

MOVB

(SP),=(SP)
4(SP),2(SP)
sTKS
1%
as$TKB,4(SP)

CMP
BNE
TSTB
BPL

4(SP),#23
3s
asTKS
2%

BIC

#2C177.(SP)

BPL

CMP
BNE
BR
CMP
BLT
CMP
BGT
BIC
RTI

#AC<177>,4(SP)

a$TKB,~(SP)

(SP)+,#21
2%
1%
4(SP),#140
4%
4(SP),M75
4%
#40,4(SP)

;*CALL:

NS WNSONO SN
NOWOOC
—=—= =0 o
W= YN = NN WO W w

O O O
et et e
OO0t Ot et s O et O

O‘O‘\‘{\\I\l‘
F

—

wuuwmwwuu\:uuwuuuuu

olelelelelelaleleleolelelelelelelele)

S g
———

212

;A CHARACTER

:sREAD THE TTY
;sGET RID OF JUNK IF ANY
;31S 1T A CONTROL=-S?
;;BRANCH IF NO
;sWAIT

FOR A CHARACTER

;:MAKE

7-BIT ASCII

;sMAKE

UPPER CASE

;:LOOP UNTIL ITS THERE
:sGET CHARACTER

:31S 1T A CONTROL=-Q?
;:1F NOT DISCARD IT
;s YES, RESUME
::1S 1T UPPER CASE?
: ;BRANCH IF YES
::1S 1T A SPECIAL CHAR?
: ;BRANCH IF YES

::6G0 BACK TO USER

"'.t""""""""""'i""""""t"tt'.l.l"'l'ttltttl"

S*THIS ROUTINE WILL

202

TTY

;s INPUT A SINGLE CHARACTER FROM THE TTY
;s CHARACTER 1S ON THE STACK
;:WITH PARITY BIT STRIPPED OFF

MOVB

000021

A SINGLE CHARACTER FROM THE

RDCHR

BIC
2%:

INPUT

013254
013264

RDLIN

RETURN HERE

$SRDLIN: MOV
1%:
MOV

2%:

CMP
BLOS

RDCHR

000177
001164

013252
013252
000015
177777
001166

108:

MOVB
CMPB

4$:

TYPE

—
38

INPUT A STRING FROM THE

BNE
BR

MOVB
TYPE

CMPB
BNE
CLRB
T1PE

MOV
MOV

R3,=(SP)
#STTYIN,R3

#STTYIN+8.
,R3
4%
(SP)+,(R3)
#177,(R3)

,$QUES

(R3),9%
,9%

TTY

;:INPUT A STRING FROM THE TTY
; ;ADDRESS OF

FIRST

CHARACTER WILL BE ON THE

;s TERMINATOR WILL BE A BYTE OF ALL 0'S
;s SAVE R3
::GET ADDRESS
:sBUFFER FULL?
;:BR IF YES
::G0 READ ONE CHARACTER FROM THE TTY
.sGET CHARACTER
SR
::1S IT A RUBOUT
JiSKIP IF NOT
2:TYPE A *Y°

;:CLEAR THE BUFFER AND LOOP
;sECHO THE CHARACTER

#15,(R3)+
2%
=1(R3)

::CHECK FOR RETURN
::LOOP IF NOT RETURN

(SP)+,R3

:sRESTORE R3
;sADJUST THE STACK AND PUT ADDRESS OF THE

LSLF

(SP),=(SP)

:;CLEAR RETURN (THE 15)

::TYPE

A LINE

FEED

STACK

INPUT ROUTINE

0 1 3234
013 262
013250
013252
013253
013254
013264
013267
013271
013274
013276
013301
013304
013307
013312
013315

016666
012766
000002
'
000
136
012
136
012
015
127
975
040
105
075

000004
013254

000002
000004

24=AUG-79 14:19
MOV

015

MOV
RT1
9%:
.BYTE
.BYTE
$STTYIN: .BLKB
SCNTLU: .ASCIZ

015

$CNTLG:

123
040
000
116

000

K_5

PAGE 42-2

(SP),2(SP)
$TTYIN,&(SP)

w-s

TTY

MACRO M1111

SEQ 0062

FIRST ASCII CHARACTER ON IT

; sRETURN

‘U/<15><12>

::STORAGE FOR ASCI] CHAR. TO TYPE
;s TERMINATOR
::RESERVE 8 BYTES FOR TTY INPUT
;;CONTROL "'U"

.ASCIZ

/*G/<15><12>

;;CONTROL ''6"'

$SMSWR:

LASCIZ

<15><12>/SWR = /

SMNZW:

LASCIZ

NOOOO

CIZDRKAO DR11-w INTRFROC EXER

CZORKAO DR11-w INTRPROC EXER

TTY

MACRO M1111

INPUT ROUTINE

1776
1777

24-AUG=79 14:19

L.
5
PAGE 43

SEQ 0063

.EVEN
.SBTTL

TRAP DECODER

AL ARl ARt
il
llllld

;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ''TRAP'' INSTRUCTION
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL

013320

010046

013322
013326
013330
013337
013330
013340
013342
013344
013346
013352

016600
005740
111000
022700
003002
000000
000776
006300
016000
000200

013354
013356
013364

011646
016666
000002

;*GO TO THAT ROUTINE.

$TRAP:

000002
000026

013366

000004

000002

MOV

MOv
18T
MOvVB
CMP
BGT
HALT
BR
ASL
MOv
RTS

RO,=(SP)

2(SP) ,RO
-(RO)
(RO) ,RO
#STERM, RO
.*6
o=
RO
$TRPAD(RO)
,RO
RO

;s SAVE RO

;:GET TRAP ADDRESS
; sBACKUP BY 2
;:GET RIGHT BYTE OF TRAP
;:CHECK FOR OUT OF BOUNDS
::BR_IF 0K
::0UT OF BOUNDS
: s HANGUP
;;POSITION FOR INDEXING
:;INDEX TO TABLE
::60 TO ROUTINE

::THIS

IS USE TO HANDLE THE ""GETPRI'' MACRO

.SBTTL

TRAP TABLE

$TRPAD:

.WORD
$TYPE
$TYPOC
$TYPOS
$TYPON

$TRAP2: MOV
MOV
RTI

(SP) ,=(SP)
&(SP),2(SP)

::MOVE THE PC DOWN
::MOVE THE PSW DOWN
: RESTORE THE PSW

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED
;*BY THE ''TRAP'' INSTRUCTION.
ROUTINE
:
013366
013370
013372

013374
013376
013400
013402
013404
013406
013410
1778 013412

1779
1780

013354
011300
011544

011520
011560
011746
012614
012544
013026
013146
013652
000026

$TRAPZ2
;;CALL=TYPE
;;CALL=TYPOC

;;CALL=TYPOS
;;CALL=TYPON
$TYPDS ;;CALL=TYPDS
$GTSWR
;;CALL=GTSWR
SCKSWR
;;CALL=CKSWR
SRDCHR ; ; CALL=RDCHR
SROLIN ;:CALL=RDLIN
RESYNC
;;CALL=RSYNC

$TERM=,-$TRPAD

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)

TRAP+5(104405)
TRAP+6(104406)
TRAP+7(104407)
TRAP+10(104410)
TRAP+11(104411)
TRAP+12(104412)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)

TYPE DECIMAL NUMBER (WITH SIGN)
GET SOFT-SWR SETTING
TEST FOR CHANGE IN SOFT-SWR
TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE
RESYNC PROGRAM

CIDRKAO DR11-w INTRPROC EXER

TRAP TABLE

MACRO M1111

24-AUG=79 14:19

1782

1783
1784
1785

.SBTTL

1786

010000
001000

001436
165770

WTICMPN: MOV
BIT

013432
013440
013442
013446

032777
001017
005337
001371

001000

165760

1%:

013450
013452
013460
013462
}gg% 013466

000407
032777
001407
005337
001371

1804 013470
1805

011637

};g? 013430

1806 013474
1807 013476
1808
1809 013500
1810

001010

001000

165740

2%:

001436
001440

3%:

R T T

.
#10000,ABORT
#1000,aCSR

sSETUP ABORT TIMER

;1F DSTATC IS ONE,WAIT FOR 0

BIT
BNE
DEC
BNE

#1000,aCSR
4%
ABORT
1%

;WAIT FOR DSTATC=1
;GO AHEAD;IT HAS COME

BR
BIT
BEQ
DEC
BNE

3%
#1000,aCSR
4%
ABORT
2%

MOV

(SP),TESTPC

104016
104412

104000+16
RSYNC

000207

A ¥

1811

RTS

;1F NOT STUCK IN WAIT LOOP,
sKEEP WAITING
;WAITED TOO LONG;ABORT PROGRAM
;WAIT DSTATC=0
;GO AHEAD;IT HAS COME
;KEEP WAITING
sSAVE LOCATION WHERE PROGRAM
;ORIGINATED

sRESYNCHRONIZE BOTH PROGRAMS
;FROM START

R
e T Y

1813

; GOCMPN

1814

1830

BNE

001436

1812

1825
1826
1827
1828
1829

INTERBOARD COMMUNICATION SUBROUTINES
sWTCMPN

012737
032777

1815
1816
1817
1818
1819
1820
1821
1822
1823
1824

SEQ 0064

BRI R
R
LR R R R T T

1787
1788 013414
1789 013422

1792
1793
1794
1795
1796
1797
1798
1799
1800
1801

m5
PAGE 44

Re
T e Y

013502
013502
013510
013512
013520
013526
013534
013542
013544

013552
013560
013566
013574

032777
001415
017737
042737
042737
013777
000207
017737

042737
052737
013777
000207

000002

165710

165702
100000
000002
001446

001446
001446
001446
165656

165650
100000
000002
001446

001446
001446
001446
165624

18:

GOCMPN:
BIT
BEQ
MOV
BIC
BIC
MOV
RTS
MOV

BIC
BIS
MOV
RTS

#2,3CSR
1%
aCSR,TEMP
#BIT15,TEMP
#2,TEMP
TEMP,aCSR
PC
oCSR,TEMP

#BIT15,TEMP
¥2,TEMP
TEMP ,aCSR
PC

:1S F1 CLR?
;1F SO,SET F1
;F1

1S SET,CLR

CIZDRKAO DR11-w INTRPROC EXER

CPU PRIORITY SUBROUTINES

MACRO M1111

1832

.SBTTL

1833

1834

1835

1836
1837 013576
1838 013576
1839 013604
1840 013606

013610
}gz; 013612

000200
000207

1843 013614

012737

}g:g 013622

000207

001434

000340

000126

177776

1846

; CPUNI

R R

R N

CMP
BNE
106427
200
RTS

BOARD,#126
1%

MOV

#340,PS

RTS

P R R

RN NN AR

R
RN AR

Y
R RS

;1S THIS CPU LSI?
;NO,IT IS UNIBUS

PC
PC

;SET HIGH PRIOR.

IN UNIBUS

R
R R R
L

1849

1856 013650

s CPULO

1848

013624
013624
013632
013634
013636
1854 013640
1855 013642

1%:

R
R
e o

1847

1850
1851
1852
1853

CPUHI:

SEQ 0065

CPU PRJORITY SUBROUTINES

023727
001003
106427

N 5
PAGE 45

24-AUG=79 14:19

023727
001003
106427
000000
000207
(012737
000207

001434

000126

CPULO:

(mp
BNE
106427

BOARD ,#126
1%

RTS
MOV

PC
#0,PS
PC

000000

177776

1%:

RTS

CZDRKAO DR11-w INTRPROC EXER
MACRO M1111
24=AUG-79 14:19
INTERPROCESSOR PROGRAM RESYNCHRONIZATION
ROUTINE
1858

.SBTTL

1859

PAGE 46

SEQ 0066

INTERPROCESSOR PROGRAM RESYNCHRONIZATION

ROUTINE

RR
R
Y

1860

]865

186
1863 013652
1864 013656
1865 013662

1866 013666
1867 013670
1868
1869 013676
1870 013700

1871
1872
1873
1874
1875
1876
1877
1878

013706
013706
013710
013712
013714
013720
013722
013724
013730

013750
}g;g 013750
1881
1882 013754

013757
013762
013765
013770
013773
013776
014001
014004
1883 014005
014010
014013
014016
014021
014024
014027
014032
014035
014040

0146043

014046
1884 0146047
014052
014055

014060
014063
014066
1885 014067
014072
014075

004737
012706
005737

001404
012737
000403
012737
005001
005301
001376
005337
001372
000005
104401
000407

011200
001100
001452

RESYNC: JSR
MOV
181

000017

001444

000036

001444

001444
013732

;:65%:

002742

124
124
040
040
101
123
115
124

105
040
040
123
124
072
101
105

123
061
040
124
125
040
123
122

114

105
101
105
124
105
117
102
103
124

101
040
m
104
117
103
040
122
117
105

123

126

116

000
040
101
123

115
124
200
123
126
106

BR
MRDELY: MOV
WISYNC:
1%:
CLR
2%:
DEC
BNE
DEC
BNE
RESET
TYPE
BR
64%:

000137

200
123
126
106
114
040
040
110
104
040
116

BEQ
SLDELY: MOV

124

LSBTTL
EMI:

sRSYNC

PC,RSTVEC
#STACK,SP
MSTER

MRDELY
#15. TIME
el
WISYNC
#30.,TIME

sWAS THIS CPU STARTED AS MASTER?

JYES
sSLAVE CPU;WAIT FOR MASTER TO REACH ITS
JRESYNC ROUTINE

R1
b
2%
T1ME
1%

_ASCIZ

,65%
;s TYPE ASCIZ STRING
64%
;:GET OVER THE ASCIZ
<CRLF>/*RESYNC.../<CRLF>

JMP

SYNCST

ASCII MESSAGES
LASCIT
/TEST 1

STATUS: MASTER/<CRLF>

LASCIZ

/SLAVE FAILED TO FCHO DBR CONTENTS/

LASCID

/7 STATUS: MASTER/<CRLF>

LASCIZ

/SLAVE FAILED TO ECHC 'STAT®' BITS/

123

124
072
101
105

125
040
123
122

114
105
101

101
040
m

EM2:

CIDRKAQ DR11-w INTRPROC EXER

MACRO M1111

ASCI1 MESSAGES

014100

040

016111

110

0146106

0146114

016117
014122
014125
1886 014130
014133

014136
014141
0146144
0146147

040

047

101
040
124
040
101

105

117

105

103

117

040

124
102
123
123
124

047
111
000
1264
125

123

040
123
122

101
104

101
105
124
111
122
116

111

040
101

11
104
117
116
040
040

047

009

101
123

124
072

125
040

014217
014222

124
200

105

122

014226
014231
014234
014237

124
040
040
040

125
105
117
047

014245

047

000

014252
014255
014260
014263
014266

101
123
115
124
200

124
072
101
105

104
117

040
125

0146172
0146175

014200

1888 014203

014206
014211

0146214

1889 014223

0142642

1890 014247

014267

014272
014275

014300
014303
014306
014311

040

115

123

101

040

127

126

101

126

123

126

125
040
123
122

EMS:

122

103
116

1892 014317

040

123

126

1893 014337

102

101
123
115
124
200

LASCII

Ll
7/ STATUS: MASTER/<CRLF>

LASCIZ

/FAILED TO INTR ON A 'DATI'/

LASCII

LASCIZ

/STATUS ER ON

LASCII

7/ STATUS: MASTER/<CRLF>

.ASCIZ

/WORD COUNT ER ON

LASCILT

7/ STATUS: MASTER/<CRLF>

.ASCIZ

/BUFFER ADRS ER ON 'DAT]'/

STATUS:

MASTER/<CRLF>

'DATI'/

105
117
047
124

014322
014325
014330
014333
014336

EM&:

123
122
116
104

124

047

EM3:

101

040
040
040
101

123

124
122
116
104

0146314

SEQ 0067

047
124

123

117

124

072
101
105

106
114
040
040
124
117

PAGE 46-1

104

124

123
115
124
200

1887 014150
014153
014156
014161
014164
014167

1891

114

014103

24-AUG-79 14:19

000

124
072
101
105

125
040
123
122

125

106

EM6:

°'DATI'/

CIZDRKAO DR11-W INTRPROC EXER

ASCI1 MESSAGES

014342
014345
014350
014353
014356
014361
014364
014367

106
040
122
105
117
047
124
000

MACRO M1111

105
101
123
122
116
104
m

122
104
040
040
040
101
047

1894 014370
014373
014376
014401
014404
1895 014407

040
101
123
123
126
106

123
124
072
114
105
101

126
125
040
101
200
111

014415

040

124

117

014434
014437
1896 014442

104
117
040

014453
014456

123
126

014412

014420
014423
014426
014431

0ees0

1897 014461

014464
014467
014472
014475
014500
014503
1898 014505
014510
014513
014516
014521
1899 014524
014527
014532
014535
014540
014543
014546
014551
1900 014554

014557
014562
014565
014570
1901 014573
014576
014601
014604
014607

114

040
124
117
101

123

124
040
040
040
101
047
040
101
123
123
126
127
104
117
124
122
116
104
117
040

101
123
123
126
102
106
040
122
105

105

m
122
116
040
101
047
123

104

124
000
126

124

101

125
105
117
047
126
000
123
124
072
114
105
117
040
125
040
040
040
101
047
123

124
072
114
105
125
105
101
123
122

PAGE 46-2

LASCIT

/7 STATUS:

.ASCIZ

/FAILED TO INTR ON A

_ASCII

/ STATUS:

.ASCIZ

/STATUS ER ON 'DATO'/

_ASCII

/ STATUS:

SEQ 0068

SLAVE/<CRLF>

'DATO'/

116
040
040
047

o012
114
105

EM7:

24-AUG=79 14:19

EM10:

101
200

123
122
116
104
117
126

125
040
101
200
122
103
116
105
117
047
124
000
126
125
040
101
200

106
122
104
040
040

EM11:

SLAVE/<CRLF>

EM12:

.ASCIZ

/WORD COUNT ER ON 'DATO'/

_ASCII

/ STATUS: SLAVE/<CRLF>

.ASC1Z

/BUFFER ADRS ER ON ‘'DATO'/

1908
s

s =

15007

014756
014761
014764
014767
014772
&

NN—=0O0O

o
&»S
o

TM Lt TM R
NN —=SNOoONS~O
VLN = O W—=5rO
—

117

—

—
oS
NDWWO

— s ) it O i el el il il el ol il ol ol il
— et NO P
)= = O
—=O
N
O =N
O =
f = VNWHWNIWN—=NOWN

it )

W =RoHswkw

—

OO~NNNIN

s il it () s () il i - i
OO = =N = O ==Ll OHr =000
S, AP ONN=O
VO —=O0
W —

— il il il il el el

1906 014753
— e e

s ) et D) et s e N et ) s

O=UNHENNESs
W

NNV CONS —=ONNooOo SN
o WN—=OHf
YNNI O —=O0OWnESs

~N—O

& o~

O—=0O

NSO

TM
]

—

WWONWON SRS NS
& WNSTON=
DO WW—=OO IS~~~

014706
014711
014714
014717
014722
014725
014730
014733
014736
014741
014744
014747
014752

ON VORI VW= OO = WSO,

1905 014703

014670
014673
014676
014701

LWV

1904 014665

WSRO

1903 014643
014646
014651
014654
014657
014662

014627
014632
014635
014640

TM b
b ¥ B
TM L e T
R
P
—[ R
el = L R
I
Y
Y N CO—=O—
=N
=
N —=ONN—=NVOF 0000 —=—=rwm ON S OONO—=NNINN—=O—=NOONNNO S, O
=

1902 014624

S =2OwWOWVN

NP
RO N = .

oleolelelelele)

(W IV IV IV IV IV IV

014612
014615
014620
014623

TM
NNV

——

1907 014773

014776
015001
015004

(elelelelelalelalelelalele]

ASCI1 MESSAGES

CIDRKAO DR11-w INTRPROL EXER
MACRO M1111

EM13:

EM14:

EM15:

24-AUG-79 14:19
E
6
PAGE 46-3

LASCIT
/7 STATUS: SLAVE/<CRLF>

.ASCiZ
/DATA ER ON

LASCIT
/STATUS: SLAVE/<CRLF>

LASCIZ
/READY BIT

LASCI1
7/ STATUS: MASTER/<CRLF>

LASCI]
/MASTER CANNOT

LASCIZ
/WALITING FOR DSTATC

WAS SET

SEQ 0069

'DATO'/

START

IT
SHOULD BE

/<(RLF>

CLEAR/<CRLF>

COMMUNICATION WITH SLAVE=/

JITN—NNO—O—<=aOON[~-w=_v=9N—)INITONNOOw-—vd—ITWNOO[—=—-vIe]LTNONOOTNO~FTww-=-OJv—LNANANONT
Or—vr—vr—0nN —D N—
—

o= .~ -0

oCNOIO~ONOVOOMON=TwONOV0go—ue-C‘O7205O003O6OOCOSCFOINO-ooM—ONOICNONOOMOOO—o=OrOOIC~AOONCNONOOOOMOOIOO~NOOOCI—ooo OadN|OOOOMOVO=O
4o4[+ .a— -<

[
<
o
4
«
t
z
=
w
a
<
S
T
t
X
Y
o
z
v
9
L
=
2
w
[
v
t
e
)
[4—« 4-2
(
w
v
%
]
~
—
x
—
o
z
NAaoYNVOlbV)NN OTP—NrT0IrT0reICNrITIrN
= =

ASCI1 MESSAGES

MACRO M1111

CZDRKAO DR11-Ww INTRPROC EXER

264=AUG=79 14:19
F
6
PAGE 46-4

SEQ 0070

<“~

CZDRKAC DR11-w INTRPROC EXER

ASCI1 MESSAGES

MACRO M1111

015322
015325
015330
015333
1915 015336
015341
015344
015347
015352

125
040
040
103
126
040
124
123
200

120
1264
117
125
111
101
116
105
000

124
117
103
122
101
124
040
124

015357
015362
01535
015370
015373
015376
015401

124
040
123
124
072
101
105

040
040
124
125
040
123
122

062
040
101
123
115
12
200

015407
015412
015415
015620
015423
015426
015431
01543
015437
015442
015445
1918 015446
015451
01545
015457
015462
015465
015470
015473
015476
015501
015504
015507
015542
gy 015575

117
102
040
040
123
122
123
116
040
105
000
102
123
104
101
101
040
124
106
111
127
040
124
105
000

122
111
111
115
124
040
122
117
103
101

040
124
116
101
105
103
040
124
114
122

125
124
101
040
124
102

122
040
124
114
105
111
117
105
040
123
117
123
200

EM22:

1920 015516
015521
015526

200
123
063

124
124
055

105
040
102
103
115
105
106
123

105
040
102
123

1916 015354

1917 015404

015527
015532
015535
015540
01553
015546
1921 015550
015553
015556
015561

124

105

114
113
117
0«0
105
200
200
123
064
12

105

122

040
040
122
101
116
040
1264

117
040
104
130
122
00C
124
124
055
122

123

24-AUG=79 14:19

PAGE 46-5

SEQ 0071

|
ASCIZ

/VIA ATIN SET/<CRLE>

.ASCIl

/TEST

.ASCIZ

/ERROR BIT

LASCIZ

/BURSY

MSG!:

JASCIZ

<CRLF>

/TEST

MSG2:

.ASCIZ

<CRLF>

)
/TEST 4=BURST MODE XFERS/<lRLF>
-

EM21:

122

STATUS:

MASTER/<CRLF>

IN MASTER (SR NOT

DATA LATE BIT OF

CLEAR/

EIR WAS NOT

SET/<CRLF>

3-BLOCK MCDE XFERS/<(CRLF>
|

CZDRKAD DR11-Ww INTRPROC EXER

MACRO M1111

ASCI1 MESSAGES

015564
015567
015572
015575
015600

1922 015602

015605
015610
015613
015616
015621
015624
015627
015632

1923 015633

124
117
040
105
200

040
104
130
122
000

123
065
125
124
101
040
124
000

124
055
122
040
124,
114
105

040
102
123
104
101
101
200

122

200

105

124

105

103
040

040
102

015647
015652
015655

104
040
120

122
105
103

040
130
124

125

123

040
122
104

040
103
000

040
126
:

015673
015676
015701

120
040
105

103
040
115

040
115
101

105

122

104
040
120
040
122
104
105
120

122
105
103
040
103
000
122
103

001116

001122

001116

000000

001126

001440

000000
000000

MSG3:

122

DHI1:

1933 015756
1934

LASCIZ

DH2:

5<BURST

DATA LATE/<CRLF>

/ERRPC

BUSADR

EXPCT

LASCIZ

/ERRPC

MEMADR

EXPCT

RCVD/

122

DH3:

LASCIZ

001124

DT1:

SERRPC,$BDADR,$GDDAT,$BDDAT,0

DT2:

$ERRPC,0

DT3:

/ERRPC(/

.EVEN

TESTPC,O

it2222222000222
R i R R R R R R R R R R 2 2222222222222

1S THE WORKING AREA IN MEM FOR ALL NPR OPERATIONS

.':"ttltt.t""t't"tttl't't"'l'tt""t"ttt.tt'tt'tttt'ttt"lll

000000
000001

,
'

124
040
126
000

‘

RCVD/

040
130

;'DBUF'

<CRLF>/TEST

lggg

ASCIZ

.
:

101

015660
015663
015666

015704
015707
015712
015715
015720
015723
1925 015725
015730
1926
1927 015734
015742
1928 015746
}ggg 015752

115
105
106
123

120
040

1924 015670

PAGE 46-6
SEQ 0072

015636
015641

~015644

24-AUG-79 14:19

DBUF:

.END

:1ST

ADRS OF

DATA BUFFER

CIZCPKAOD DR11-w INTRPROC EXER

MACRO MT1111

ABORT
BAR
BDR

014442
014505
014554

SYMBOL TABLE

8170
81100
81101
B1702
81103
B1704
81105
81106
81107
81108
81109

=
=
=
=
=
=
=
=
=
=
=

001436
001416
001422
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000

BIT1
= 000002
B1110 = 002000

BIT11
BIT12
‘B1T13
BIT14
BIT15
8112
B113
BIT4

=
=
=
=
=
=
=
=

004000
010000
026000
040000
1000C0
000004
000010
000020
BITS = 000040
B116
= 000100
BIT7 = 000200
BIT8 = 000400
B119 = 001000
BOARD
001434
BPTVEC= 000014
BRDTYP 002056
CKSWR = 104407
CLRBUF
011220
CNT
001430
CPUHI
013576
CPULO
013624
CR
= 000015
CRLF
= 000200
CSR
001420
DBUF
015756
DDISP = 177570
DH1
015633
DH2
015670
DH3
015725
DISPLA 001142
DISPRE
000174
DRVCTO 001424

DRVCT2
DRVECT
DSWR =
pT
Y2
D13
EMTVEC=
EM1

001426
001412
177570
015734
015746
015752
000030
013754

EM10
EM
EM12
EM13
EM14
EM1S
EM16
EM17
EM2
EM20
EM21
EM22
EM3
EMS

014624
014665
014753
015075
015147
014047
015241
015354
015446
014130
014203

EMS
EM6

0146247

014317
EM7
014370
EOPT
010772
EOPTA
011140
EOPTB
011146
ERROR = 104000
ERRVEC= 00000«
GOCMPN 013502
GTSWR = 104406
HT
= 000011
ICOUNT
001454
INTADR 001410
I0TVEC= 000020
LDBUF
011236
LF
= 000012
MINITYT
002760
MINIT2 003226
MORS
002524
MRDELY
013700
MSBRD
004550
MSG1
015516
MSG2
015550
MSG3
015602
MSTER
001452
MTPS
= 106427
MTST1
003106
MTIST2
003526
MTISTS
003652
MTISTG
004620
MTISTS
005446
NUM
001432
PIRQ
= 177772
PIRQVE= 000240

PRO
PR1
PR2
PR3
PR¢
PRS
PR6
PR7

=
=
=
=
=
=
=
=

000000
000040
000100
000140
000200
000240
000300
000340

24=AUG=79 14:19
PS
= 177776
PSW
= 177776
PWRVEC= 000024
RCVIMO 001500
RDCHR = 104410
ROLIN = 104411
RESVEC= 000010
RESYNC 013652
RPRAM
001464
RSTVEC
011200
RSYNC = 104412
RTRN
003462
R6
=%0000C6
R7
=%000007

SAVE
001450
SCOPE = 0060004

SETUP2
SETUPY
SETVEC
SINIT1
SINIT2
SLBRD
SLDELY
SLVFIN

001704
001730
011160
006072
006304
007330
013670
010776

STACK =
START
START1
START2
STKLMT=
STST1
STST2
STST3
STST4
STSTS
SWR
SWRCK
SWREG
Sw0
=
Sw00
=
Sw01
=
Sw02
=
sw03
=

001100
001522
001506
001514
177774
006230
006422
006502
007416
010260
001140
012306
000176
000001
000001
000002
000004
000010

SLISTR

Sw04
SWw0S5
Sw06
Sw07
SW08
Sw09
Swl
SWw10
Swil
sWw12
Swi3
Swl4a

=
=
=
=
=
=
=
=
=
=
=
=

006240

000020
000040
000100
000200
000400
001000
000002
002000
004000
010000
020000
040000

I
6
PAGE 46-7

SEQ 0073

SWw15
=
SWw2
=
Sw3
=
Swé&
=
SWS
=
Swé
=
SWw7
=
Sw8
=
SWw9
=
SYNCST
TBITVE=
TEMP
TESTPC
TIME

100000
000004
000010

000020
000040
000100
000200
000400
001000
002742
000014
001446
001440
001444

TKVEC = 000060
TOTAL
001442

TPVEC =
TRAPVE=
TRTVEC=
TYPDS =
TYPE
=
TYPOC =
TYPON =
TYPOS =

WCR

WICMPN
WISYNC
XMITMO
XPRAM
SAUTOB
$BCADR
$BDDAT
$BELL
$CHARC
$CKSWR
$CMTAG
$CM3
=
$CNTLG
SCNTLU
$CRLF
$DBLK
$DOAGN
$DTBL

$ENDAD
SENDCT
SENDMG
$SENULL
S$EOP
SEOPCT
$SERFLG
SERMAX
$ERROR
$SERRPC
$SERRTB
SERRTY

000064
000034
000014
104405
104401
104402
104404
104403

001414

013414
013706
001472
001456
001134
001122
001126
001160
011514
012544
001100
000000
013271
013264
001165
012162
011114
012152

011104
011052
011123
011120
011022
011044
001103
001115
012172
001116
001170
012316

SERTTL
$FILLC
$SFILLS
$GDADR
$SGDDAT
$GET42
$GTSWR

001112
001156
001155
001120
001124
011074
012614

$HD
=
$ICNT
$INTAG
SITEMB
SLF
SLPADR
SLPERR

000003
001104

SMNEW

001135
001114
001166
001106
001110

013307

SMSWR
013276
SNULL
001154
SOCNT
011742
SOMODE
011744
$OVER
012530
$PASS
001100
$SQUES
001164
$SRDCHR 013026
SROLIN 013140
$RDSZ = 000C10
$SRTNAD
011116
$SCOPE
012452
$SETUP= 000107
$STUP = 177777
$SVLAD
012514
$SWR
= 122000
$SWRMk= 000000
$TERM = 000026
$TKB
001146
$TKS
001144
$IN
= 000001
$1PB
001152
$TPFLG
001157
$TPS
001150
$TRAP
013320
$TRAP2 013354
$TRP = 000013
S$STRPAD 013366
$TSTNM 001102
STTYIN 013254
$STYPDS 011746
$TYPE
011300
$TYPEC
011450

$TYPEX
$TYPOC
$TYPON
$TYPOS
$XTSTR
$$GET4=
$OFILL

011516
011544
011560
011520
012456
000000
011743

CZDRKAD DR11-w INTRPROC EXER

SYMBOL TABLE

. ABS.

015760
000000
ERRORS DETECTED:

MACRO M1117

24-AUG=79 14:19

PAGE 46-8

SEQ 0074

000
001

VIRTUAL MEMORY USED:
35848 WORDS
( 141 PAGES)
DYNAMIC MEMORY:
20746 WORDS
( 79 PAGES)
ELAPSED TIME:
00:05:21
LINK,LINK=SYSMAC.MLB/ML,LINK.P1]

L Lo

U R