Digital PDFs

AH-E783B-MC

April 1984

78 pages

Original

31MB

view download

OCR Version

37MB

view download

Document:	CZDRKB0 DR11-W DR11-W INTERPROC EXER APR 1984 bw
Order Number:	AH-E783B-MC
Revision:	000
Pages:	78
Original Filename:	CZDRKB0__DR11-W__DR11-W_INTERPROC_EXER__AH-E783B-MC__APR_1984_gray.pdf

OCR Text

CZDORKBO DR11-W INTRPROC EXER

MACRO Mi200

.REM

b4
3

27-DEC-83 11:11

PAGE S8

SEQ 1

[
7

8
9
R

e e

e et

IDENTIFICATION

L
e =

PRODUCT CODE:

AC-E7828-MC

PRODUCT NANME
;

CZDRKBO DR11-W INTRPROC EXER

DATE:

DEC 1983

MAINTAINER:

DIAGNOSTIC ENGINEERING

21
22
23

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY

27
28

ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH
THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE.
THWIS

EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO

SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.

&%
30
32

SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON
THESE LICENSE TERMS.

TITLE TO AND OWNERSHIP OF THE

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE

WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COM-

MITMENT BY DIGITAL EQUIPMENT CORPORATION.

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY

:(1’

gcxts SOF TWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY

CZDRBO DR11-W INTRPROC EXER

MACRO M1200

27 DEC-83 11:11

PAGE 59

SEQ 2

aa
45

Qe
49

TABLE
d

CONTENTS

EEEETEERE

1.0

ABSTRACT

2.0

REQUIREMENTS

2.2

STORAGE

2.1

EQUIPMENT

Ssbg

5.0

LOADING AND START

S8
59

4.0
4.1

ERRORS
ERROR COMMENT

4.3

ERROR RECOVERY

62
2

4.2

4.3.1

4.3.2

5.0

5.2

S.1

PROCEDURE

ERROR DATA

RECOVERABLE ERRORS

NON-RECOVERABLE ERRORS

SOF TWARE SWITCH REGISTER

OPTIONS

IMPLEMENTATION

5.3

CONTROL

70
71
;g

6.0
6.1
6.2

MISCELLANEOUS
DRV118 AND/OR DR11W RUS € VECTOR ADDRESS MODIFICATION
POMER FAIL

;;

7.0

EXECUTION TIME

8.0

PROGRAM DESCRIPTION

8.2

PROGRAM SEGMENTS

8.1

9.0

GENERAL

MODIFICATION HISTORY
——
e
=

a6
47

CZDRKBO DR11-W INTRPROC EXER

MACRO M1200

27-DEC-83

11:11

PAGE 60

SEQ 3

84
a5
86
87
88
89
90
91
92
93

1.0

ABSTRACT
THE
TWO
AND
THE

DR11W INTERPROCESSOR EXERCISER WAS DESIGNED TO PASS DATA BETWEEN
COMPUTERS.
ONE COMPUTER CONTAINS A DR11W DMA INTERFACE
THE OTHER CONTAINS EITHER A DR11W OR A DRV11B DMA INTERFACE.
FOLLOWING CONFIGURATIONS ARE VALID

Wemnesemcivenn:
B
L
apecenenshin

...........................

LSI-11
-t
o

POP-11

POP-11
DR11-W

cavesieens

POP-11

DR11-W

EACH CONFIGURATION USES THE DR11W EXERCISER LOADED INTO EACH
OF THE COMPUTERS INVOLVED.

2.0

REQUIREMENTS

2.1

EQUIPMENT

2.2

ONE PDP11 COMPUTER EQUIPPED WITH A DR11-W.

ONE LSI-11 EQUIPPED WITH A DRV11-8 OR ANOTHER PDP11 WITH A DR11-W.

EACH SYSTEM EQUIPPED WITH AN I/0 TERMINAL

CABLES (TWO) TO INTER CONNECT THE TWO DMA INTERFACES

STORAGE
THE PROGRAM USES THE LOWER 3400 WORDS OF MEMORY

3.0

LOADING AND START PROCEDURE

CHOOSE ONE OF THE INTERPROCESSOR CONFIGURATIONS SPECIFIED

MAKE SURE EACH DMA INTERFACE OF BOTH COMPUTER SYSTEMS

AND LOAD THE DR11-W INTERPROCESSOR EXERCISER INTO EACH SYSTEM.

ARE CABLED TOGETHER THRU THE I/0 CONNECTIONS

CZDRKBO DR11-W INTRPROC EXER

MACRO M1200

140
141
142
143
144
145
146
147
148
149
150

PAGE 60-1

4
SEQ

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

151
152
153
154
155
156
157
158
159
160
161

INSURE THAT THE MALT SWITCH IS 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).

START THE SLAVE ¢oFIRSTes AT ADDRESS 204.
AFTER THE SLAVE
HAS BEEN STARTED THE FOLLOWING PRINTOUT WILL OCCUR:

DR11W INTERPROCESSOR EXERCISER
IS THIS CPU TESTING A DRV118 OR DR11W?
TYPE V OR W:
THE OPERATOR TYPES V FOR DRV11B OR W FOR DR11W.
IF THE USER
WERE TO TYPE 'V’ THEN THE FOLLOWING WOULD BE PRINTED:

162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182

DRV118 BOARD
INTERPROCESSOR LINK NOW IN PROGRESS....
AT THIS POINT THE SLAVE IS WAITING FOR THE MASTER TO BE STARTED.

NOW START THE OTHER COMPUTER(MASTER) AT SA 200.
SIMILARLY THE
PROGRAM WILL REQUEST THE BOARD TYPE.
WHEN USER ANSWERS
(LET'S SAY WITH A W) THE PRINTOUT WILL SHOW:

OR11W BOARD
INTERPROCESSOR LINK NOW IN PROGRESS....
THE TWO SYSTEMS SHOULD NOW BE COMMUNICATING WITH THE

BEING PERFORMED.

TESTS

THE END OF PASS MESSAGE WILL SUSEQUENTLY OCCUR AS FOLLOWS:

END PASS
END PASS

183
184
185
186
187
188
189
190
191
192
193
194
195
196

27-DEC-83 11:11

@
&

1
2

ETC.

THE FIRST END PASS-IS WITH NO ITERATIONS; ALL OTHERS ARE

WITH ITERATIONS.

4.1

ERROR COMMENT

CZDRKBO DR11-W INTRPROC EXER

MACRO M1200

27-DEC-83

11:11

PAGE 60-2

SEQ S

ALL ERRORS ARE ACCOMPAINED WITH AN ENGLISH LANGUAGE DESCRIPTIVE
COMMENT AS TO THE TYPE OF FAILURE.
FURTHER QUALIFICATION OF
THE ERROR CAN BE OBTAINED FROM THE COMMENT AT

OF FROM THE TEST ITSELF.

4.2

THE ERROR PC

ERROR DATA

ERRPC

LISTING ADDRESS WHERE THE ERROR WAS DETECTED

EXPCT
RCVD

DATA THAT WAS EXPECTED
DATA THAT WAS RECEIVED

BUSADR
MEMADR

DRV11B BUS REG ADDRESS OF CONCERNED OPERATION
MEMORY ADDRESS OF DATA ERROR

4.3

ERROR RECOVERY

4.3.1

RECOVERABLE ERRORS

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 S-10 SEC WILL OCCUR
AND THE COMPUTER STARTED AS SLAVE WILL PRINT:

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 TYPE:

AT THIS POINT BOTH CPU'S SHOULD BE AGAIN CWICATI'B AND TESTING

WILL HAVE BEEN RESUMED FROM THE START OF THE PROGRAM

4.3.2

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 'MAY FAIL AND HANG

THE BUS OF ONE SYSTEM.
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

CZDRKBO DR11-W INTRPROC EXER

MACRO M1200

254
255
256

259

5.0

SOFTWARE SWITCH REGISTER

S.1

OPTIONS

274
27

eeeeccecccccccccccncnn-

SWITCH
OCTAL
FUNCTION
eseses
esees
eeeeceee-

276
277
278

BIT15-1
BIT13=1

g;g
g:g

100000
020000

BIT10=1
S.2

002000

286

THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER.

287

IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES

288
289
290
g‘%

AND IT CONTAINS ALL ONES (177777) THEN THE SOFTWARE SWITCH
REGISTER (LOC. 176) IS USED.
UNNDER THESE CONDITIONS
THE PROGRAM WILL REQUEST THAT THE SOFTWARE SWITCH REGISTER
BE LOADED UPON 1ST PASS OF THE PROGRAM.
IT WILL PRINT:

SWR: =XXXXXX

5.3

NEW=

(USER ENTERS IN FOLLOWING NEW=)

CONTROL

298

301
302
303
304

BELL ON ERROR

IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH

285

295

HALT ON ERROR
INHIBIT ERROR TYPEOUTS

IMPLEMENTATION

284

ggg

WHEREBY THE ADDRESS

OR 'ODT’ PRINTOUT. BOTH PROGRAMS MUST BE RE-STARTED AS SPECIFIED
IN SECT. 3.0.

262
263
264
265
266

281

SYNCHRONIZATION IS LOST,BOTH SYSTEMS MUST BE HALTED

LOCATIW OF EACH PROGRAM CAN BE DETECTED THRU ‘ADDRESS'

260
261

S?lg

SEQ 6

ARE STILL IN SYNC.

258

267

PAGE 60-3

THEMSELVES FROM THE ABOVE ERROR TYPES.
THEREFORE IT BEMOOVES THE OPERATOR TO
PERIODICALLY CHECK FOR 'END PASS' PRINTOUTS WHICH WILL OCCUR
APPROX. EVERY 2 MINUTES.
THIS WILL VERIFY THAT BOTH SYSTEMS

257

68
269
270
271

27-DEC-83 11:11

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

CHANGED BY USING

ODT FACILITIES.

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

307
308
309

WHEN USING THE ODT MODE AND ONCE IT HAS BEEN ENTERED DUE TO AN ERROR
CONDITION WITH BIT1S SET (HALT ON ERROR), STEP #2 ABOVE
IS OF NO VALUE, SO RESORT TO STEP @1 TO ALTER THE CONTENTS.

RETURN.

3382

CZDRKBO DR11-W INTRPROC EXER
311
312
313
314
315
316
317
318

MACRO M1200

27-DEC-83 11:11

PAGE 60-4

SEQ 7

6.0

MISCELLANEOUS

6.1

DRV11B AND/OR DR11W BUS &€ VECTOR ADDRESS MODIFICATION
MODIFY LOCATION ‘INTADR’
MODIFY LOCATION ‘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. 3.0.
7.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: ASSEC.
11/70 -

8.0

11/03:

1MIN 15SEC.

PROGRAM DESCRIPTION

8.1
THIS INTERPROCESSOR EXERCISER WAS DESIGNED TO TEST THE I/0

ABILITY OF THE DR11W GENERAL PURPOSE INTERFACE TO COMMUNICATE TO
ANOTHER DR11W OR DRV118 LOCATED IN ANOTHER SYSTEM.

THE TWO

COMPUTERS ARE STARTED AT DIFFERENT ADDRESSES TO ESTABLISH
INITIAL SYNCHRONIZATION.
THE SLAVE COMPUTER IS STARTED 1ST
(START 204) AND THE MASTER COMPUTER IS 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
MASTER AS THE PROGRAM ADVANCES.
THE COMPUTER STARTED AT

ADDRESS 200 WILL ALWAYS REPORT THE 'END OF PASS'

8.2

MESSAGE.

PROGRAM SEGMENTS

1A.

MTST1 - MASTER SENDS OUT PROGRAM CONTROLLED SINGLE WORDS

THRU THE DATA BUFFER REGISTER AND EXPECTS THE SLAVE TO ECHO

CZDRKBO DR11-W INTRPROC EXER
368
369

370

371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391

MACRO M1200

27-DEC-83 11:11

PAGE 60-S5

SEQ 8

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

STST1

2A.

TEST

THAT SLAVE CAN INTERRUPT MASTER:

28.

TEST

THAT SLAVE INTERRUPTS MASTER:F2 TO ATTN

3A.

- SLAVE ECHOS ALL CHANGES IN THE DATA BUFFER REGISTER

MTST2 - MASTER SENDS OUT A 'FNCT’'

F2(SLAVE) TO

ATTN(MASTER)

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 CODE

FROM THE COMMAND/STATUS REGISTER AND COMPARE IT

CODE WRITTEN.

TO THE

STST2 - SLAVE READS THE 'STAT' BIT CODE FROM IT'S COMMAND/
STATUS REGISTER, CONVERTS THIS CODE AND WRITES IT INTO
IT'S 'FNCT' BITS IN THE COMMAND/STATUS REGISTER.
MTST3-BLOCK MODE XFER-MASTER SENDS OUT A 32 WORD
DATA BLOCK TO THE SLAVE
AND CHECKS FOR PROPER INTERRUPT STATUS, WORD COUNT,
AND BUFFER ADDRESS AT THE COMPLETION OF THE TRANSFER.
‘8.

STST3-BLOCK MODE XFER-SLAVE RECEIVES A 32 WORD DATA BLOCK FROM THE
MASTER AND CHECKS FOR PROPER INTERRUPT STATUS, WORD COUNT,

BUFFER ADDRESS,

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

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 S WORDS TO SLAVE
WHILE SLAVE RECEIVES 5 AND TIMES OUT (DR11-W TO DR11-W ONLY)
PROCEDURE: MASTER
XMITS S WORDS TO SLAVE
IN BURST MODE
SLAVE IS SET\P TO DO 10 XFERS. CHECK THAT MASTER INTERRUPTS

BY WCOF. CHECK CSR,WC,AND
BA. AFTER S XFERS ARE DONE IN
SLAVE, TIMEOUT OCCURS(S0US), SINCE SLAVE WAITS FOR GO-AHEAD

TED.
NOTE: SOUS 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 SOUS TIMEOUT.

IN FACT, IF THE TIMEOUT FEATURE MALFUNCTIONS SO AS TO HOLD
THE BUS INDEFINITELY,THE PROGRAM WILL 'HANG UP' THE CPU
WITH NO RECOVERY PROVIDED FOR.

CZDRKBO DR11-W INTRPROC EXER
425
426

427
428
429
430
431
432
433
434
435
436

MACRO M1200

27-DEC-83 11:11

PAGE 60-6

SEQ 9

THEREFORE ,OPERATOR SCRUTINY IS ADVISABLE
TO VERIFY
THAT THE PROGRAM IS STILL RUNNING AND THAT THE DR11-W MAS
AT LEAST RELEASED THE BUS IN TEST S.

STSTS BURST DATA LATE TEST-SLAVE RECEIVES S 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 S WORDS.
TIMEOUT OCCURS AND THE BUS IS RELEASED
THEN CHECKS FOR PROPER INTERRUPT STATUS,

WC,

BA £ DATA.

CZDRKBO DR11-W INTRPROC CXER
438
439
440
441
442
443
444
445
446

MACRO M1200

9.0

27-DEC-83 11:11

IK1

PAGE 61

MODIFICATION HISTORY
REV B.0 12-DEC-83
H.P. HOLSINGER (CWO)
ALTERED TEST EXIT (MTST4ES, STST4E€S5) COMPANION STATUS

CHECK TO COMPENSATE FOR ANY STATUS LINE SKEWING.
ADDED SAVE PC TO RESYNC CODE FOR LINK DEBUG ASSISTANCE.

SEQ 10

CZDRKBO DR11-W INTRPROC EXER
448
477

MACRO M1200

27-DEC-83 11:11

.TITLE

PAGE 62

SEQ 11

CZDRKBO DR11-W INTRPROC EXER

:*COPYRIGHT (C) 1979
;*DIGITAL EQUIPMENT CORP.

; *MAYNARD,

MASS.

01754

i®

1 *PROGRAM BY JOHN W.

CIUKAJ

1#THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC

1 #PACKAGE (MAINDEC-11-DZQAC-CS), JAN,
L

000001
478
479
480

122000
000001

$TN=1

$SWR=160000
.SBTTL

1981.

; sHALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT

OPERATIONAL SWITCH SETTINGS

1*®

e
e
s

481

.SBTTL

001100

SWITCH
cesceece

15
13
10

USE

ecceccccccccccccccss

HALT ON ERROR
INHIBIT ERROR TYPEOUTS
BELL ON ERROR

BASIC DEFINITIONS

s¢INITIAL ADDRESS OF THE STACK POINTER #4+ 1100 ##s

STACK=

1100

ERROR=EMT

SCOPE=IOT

s sMISCELLANEOUS DEFINITIONS

000011

HT=

:3CODE FOR HORIZONTAL TAB

000015
200

CR=

13CODE FOR CARRIAGE RETURN

177776
177776
177774
177772
177570
177570

LF=

CRLF=

:g; ot

200

177776

STKLMT= 177774
PIRQ=
177772

DSWR=
ODISP=

177570
177570

+3CODE FOR LINE FEED

+3CODE FOR CARRIAGE RETURN-LINE FEED

+ sPROCESSOR STATUS WORD

$3STACK LIMIT REGISTER
3+ 1PROGRAM INTERRUPT REQUEST REGISTER
s tHARDWARE SWITCH REGISTER

3+ tHARDWARE DISPLAY REGISTER

3 $GENERAL PURPOSE REGISTER DEFINITIONS
‘RO=
%0
1 sGENERAL REGISTER
R1=

1 sGENERAL REGISTER

R2=

R4s=

R3=
RS=

R6=

SP=
PC=

%6
7

R7=

s sGENERAL REGISTER

s sGENERAL REGISTER
s sGENERAL REGISTER

1 sGENERAL REGISTER
1 sGENERAL REGISTER

1 sSTACK POINTER
1 1PROGRAM COUNTER

s PRIORITY LEVEL DEFINITIONS
PRO=
0
1 sPRIORITY LEVEL O
PR1=
40
+ sPRIORITY LEVEL 1
PR2=
100
1 sPRIORITY LEVEL 2

CZDRKBO DR11-W INTRPROC EXER
BASIC DEFINITIONS
000140
000200
000240
000300

000340

MACRO M1200

PR3=
PR4=
PRS=
PR6=
PR7=

27-DEC-83

140
200
240
300
340

11:11

PAGE 62-1
: sPRIORITY LEVEL 3

: sPRIORITY LEVEL 4

: sPRIORITY LEVEL S
: sPRIORITY LEVEL 6
1 sPRIORITY LEVEL 7

§;;§HITCH REGISTER"” SWITCH DEFINITIONS

SWi4=
SW13=
Suizs=
SWil=
4000
SW10=
2000
SW09=
1000
SWo8=
400
SWo7=
200
SWo6=
100
SW0S5=
40
SWo4=
20
SWo3=
10
4
SWo2=
SWoi1=
2
SWo0=
1
SW9=SW09
SW8=5W08
SW7=SW07
SW6=5uW06
SW5=SW0S
SW4 =SW04
SW3=SWO03
SW2=5W02
SW1=SW01
SWO=SW00

s#DATA BIT DEFINITIONS (BITOO TO BIT1S)
BIT15=
100000
BITi4=
40000
BIT13=
20000
BIT12=
BITil=
4000
BIT10=
2000
B8IT09=
1000
BITO8=
400
BIT07=
200
BITO6=
100
BITOS=
40
BITO4=
20
8ITO3=
10
BIT02=
4
BITO1=
2
8IT00=
1
BIT9=BIT09
BIT8=BITO08
BIT7=BITO07
BIT6=BIT06
BITS=BITOS
BIT4=8IT04

SEQ 12

CZDRKBO DR11-W INTRPROC EXER
BASIC DEFINITIONS

MACRO M1200

PAGE 62-2

SEQ 13

BIT3=BITO3
BIT2=BITO02
BIT1=BITO1
BITO=BITOO

000004
000010
000014
000014
000014
000020
000024
000030

;#*BASIC "CPU” TRAP VECTOR ADDRESSES
ERRVEC= 4
:sTIME OUT AND OTHER ERRORS
RESVEC= 10
s {RESERVED AND ILLEGAL INSTRUCTIONS
TBITVEC=14
$3"T" BIT
TRTVEC= 14
+ s TRACE TRAP
BPTVEC= 14
+ sBREAKPOINT TRAP (BPT)
IOTVEC= 20
+ s INPUT/0UTPUT TRAP (IOT) #+SCOPEs#
PWRVEC= 24
: sPOWER FAIL
EMTVEC= 30
s sEMULATOR TRAP (EMT) #+ERROR+#+

000060
000064

TKVEC=
TPVEC=

000240
106427

483

11:11

000010
000004
000002
000001

000034

482

27-DEC-83

TRAPVEC=34

i3 "TRAP"
TRAP

PIRQVEC=240

: tPROGRAM INTERRUPT REQUEST VECTOR

60
64

+3T7TY KEYBOARD VECTOR
+3TTY PRINTER VECTOR

MTPS=106427
.SBTTL

000000

TRAP CATCHER

+INSTR EQUATE THAT MOVES BYTE TO PSW

.=0
s#ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ", +2,HALT"
+*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
z‘LOCATImlg‘CWTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS

000378
000174
000176

000000
000000

000200
:gg 000204

000137
%{gz

001506
001514

486 000100
487

000104

000200

DISPREG: .WORD O
SWREG:
.WORD ©
.SBTTL
STARTING ADDRESS(ES)
JMP
80START1
000002

"';OO

80START2

.WORD

104,200,2

3 s SOF TWARE DISPLAY REGISTER
: sSOFTWARE SWITCH REGISTER

+sJUMP TO STARTING ADDRESS OF PROGRAM
;GO START AS SLAVE COMPUTER
:IF 'B EVENT' ON Q-BUS IS CMCTED
+JUST DO A RTI (IGNORE IT

CZDRKBO DR11-W INTRPROC EXER
T AGS
COMMON

MACRO M1200

27-DEC-83 11:11

.SBTTL

488

PAGE

5EQ

COMMON TAGS

1100800000000 00000000000000000800000000800000800000000008000880000800

t¢THIS

TABLE

CONTAINS

VARIOUS

COMMON

STORAGE

LOCATIONS

1 8USED IN THE PROGRAM,

001163

001164
001165
001166

SNULL
:

377

SFILLS:
SFILLC:
S$TPFLG:
$BELL :

SQUES:
SCRLF:
SLF:

177560

OO0OO0O0O0000

$TKS:
$TKB:
$TPS:
$TPB:

1 sAUTOMATIC MODE INDICATOR
+ s INTERRUPT MODE INDICATOR

)

DISPLAY:

SHR :

= 0000000000

001136
001140
001142
001144
001146
001150
001152
001154
001155
001156
001157
001160

$AUTOB:
$INTAG:

3888888 5558

001130
001132
001134
001135

:13START OF COMMON TAGS
:1 sCONTAINS PASS COUNT
s sCONTAINS THE TEST NUMBER
1 sCONTAINS ERROR FLAG
s sCONTAINS SUBTEST ITERATION COUNT
1 sCONTAINS SCOPE LOOP ADDRESS
31 sCONTAINS SCOPE RETURN FOR ERRORS
1 sCONTAINS TOTAL ERRORS DETECTED
s sCONTAINS ITEM CONTROL BYTE
31 sCONTAINS MAX, ERRORS PER TEST
s sCONTAINS PC OF LAST ERROR INSTRUCTION
1 sCONTAINS ADDRESS OF 'GOOD‘ DATA
1 sCONTAINS ADDRESS OF 'BAD' DATA
1 sCONTAINS ‘GOOD' DATA
s sCONTAINS 'BAD’' DATA
s sRESERVED--NOT TO BE USED

001SP

001116
001120
001122
001124
001126

.WORD
.BYTE

001115

.*1100

——

001104
001106
001110
001112
001114

$CMTAG:
$PASS:
STSTNM:
S$ERFLG:
S$ICNT:
SLPADR:
SLPERR:
SERTTL:
SITEMB:
SERMAX;
SERRPC ;
$GDADR:
$BDADR:
$GDDAT ;
$BDDAT:

@D®

001103

001100

§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§g

001100
001100
001102

0
2
12
0

<207><377><377>

<15»>
12>

s sADDRESS OF SWITCH REGISTER
1 sADCRESS OF DISPLAY REGISTER

313TTY
13 7TY
33 TTY
s3T7TY

KBD STATUS
KBDO BUFFER
PRINTER STATUS REG.
PRINTER BUFFER REG.

ADDRESS
ADDRESS

1 sCONTAINS ML CHARACTER FOR FILLS
1 sCONTAINS @ OF FILLER CHARACTERS REQUIRED
s sINSERT FILL CHARS. AFTER A “LINE FEED"

13 “TERMINAL AVAILABLE” FLAG (BIT<07>=0=YES)

13CODE FOR BELL

1 1QUESTION MARK
1 iCARRIAGE RETURN
1 sLINE FEED

1300888080000 00000000080800000000000000000080080000000080000000000

CZDRKBO DR11-W INTRPROC EXER
ERROR POINTER TABLE

MACRO M1200

27-DEC-83

.SBTTL

11:11

PAGE

C.")
64

5EQ

ERROR POINTER TABLE

1¢THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
1¢THE

INFORMATION

1oLOCATION S$ITEMB.

1 eNOTEL :

001170
001172
001174
001176

014234
016113
016214
000000

496 001200
497 001202

014327
016113
016214

490
491
492
493

498 001204

499 001206

502
503
S04
505

001210
001212
001214
001216

014410
016113
016214

508
509
510
S11

001220
001222
001224
001226

014463
016113
016214
000000

1 sPOINTS TO THE ERROR MESSAGE

1 sPOINTS TO THE DATA

tERROR

FAILED TO ECHO DBR CONTENTS

gtl

;1 SERRPC

$BDADR

2
EM2

sSLAVE

FAILED TO ECHO 'STAT' BITS

1 SERRPC

$BDADR

tERRPC

sERRPC

BUSADR

EXPCT

$GDDAT

EXPCT

$GDDAT

RCVD

$BDDAT

RCVD

$BDDAT

EM3

sFAILED TO INTR ON A 'DATI’

871

;1 SERRPC

DH1

;ERROR

1 sPOINTS TO THE DATA FORMAT

sSLAVE

DH1

iERROR

1 sPOINTS TO THE DATA HEADER

EM1

DH1

tERROR

INDEX NUMBER FOUND

$ERRTB:

001170

THE

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

ie
ie

USING

THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT,

IF S$ITEMB IS O THE ONLY PERTINENT DATA IS (S$ERRPC).

1 eNOTEZ2:
1e

IS OBTAINED BY

EM4
DH1

DTl

tERRPC

BUSADR

EXPCT

RCVD

1STATUS ER ON ‘DATI’
;ERRPC BUSADR EXPCT

RCVD

$BDADR

1 SERRPC $BDADR

$GDDAT

$BDDAT

CZORKBO DR11-W INTRPROC EXER

ERROR POINTER TABLE

513
S14 001230
515
516
S17
S18
519
520

001232
001234
001236

001240

001242
001244
001246

014527
016113
016214
000000

014577
016113

MACRO M1200

27-DEC-83

1ERROR

014722
016113
016214
000000

1ERROR

1BUFFER ADRS ER ON 'DATI’
1ERRPC BUSADR EXPCT
RCVD
1 SERRPC

1ERROR

001310
001312
001314
001316

$BDADR

$GDDAT

sFAILED TO INTR ON A

tERRPC BUSADR
1 $ERRPC SBDADR

:1ERROR

014765
016113
016214
000000

549
350
551
532
353
554
355

SEQ 16

sWORD COUNT ER ON 'DATI’
tERRPC BUSADR EXPCT
RCVD
1 $ERRPC $BDADR
S$GDDAT
$BDDAT

016214
000000

014650
016113
016214
000000

11:11

PAGE 65

$BODDAT

‘DATO’

EXPCT
$GDDAT

RCVD
$BODDAT

1STATUS ER ON 'DATO’
iERRPC BUSADR EXPCT
$GDDAT
1 SERRPC $BDADR

RCVD
$BDDAT

1WORD COUNT ER ON 'DATO’
1ERRPC BUSADR EXPCT
RCVD
1 SERRPC $BDADR
$GDDAT
$BDDAT

015034
016113
016214
000000

EM12

1BUFFER ADRS ER ON 'DATO’
tERRPC BUSADR EXPCT
RCVD
1 SERRPC $BDADR
$GDDAT
$BDDAT

015104
016150
016214
000000

EM13
DH2

1DATA ER ON 'DATO’

015145
016113
016214
000000

015233
016205
016226
000000
015355
016205

tERRPC MEMADR
s SERRPC $BDADR

EXPCT
$GDDAT

RCVD
$BDDAT

1CSR READY BIT WAS SET - SHOWLD BE CLEAR

5:;5

tPROTOCOL INITIALIZATION ERROR -MASTER AND SLAVE

oTe
16
5:1.%6

1STUCK FOREVER WAITING FOR COMPANION

CZDRKBO DR11-W INTRPROC EXER
ERROR POINTER TABLE
570
571
572
573
S74
575
576
577
578
579
580
581
582
583
S84
585
586
S87
588
589
590
591
592
593
594
595
596

001344
001346

016232
000000

001350
001352
001354
001356

015427
016205
016226
000000

001360
001362
001364
001366

015521
016205
016226
000000

001370
001372
001374
001376

015634
016205

001400
001402
001404
001406

015726

MACRO M1200

27-DEC-83 11:11

PAGE 65-1

T3
0
tERROR 17
EM17

; TIMEOUT ERROR BURST MODE XFER-INCURRED INTERRUPT

:ERROR 20

1SLAVE DID NOT INTERRUPT MASTER

EM21

s TEST 2-ERROR BIT SET IN MASTER

22
EM22

1BURST DATA LATE BIT IN EIR NOT SET

016232
000000

016113
016214
000000

;ERROR

SEQ 17

CZDRKBO DR11-W INTRPROC EXER
ERROR POINTER TABLE
601
602
603 001410
604
605
606
607 001412
608
609
610
611 001414
612 001416
613 001420
614 001422
615
616
617
618 001424
619 001426

MACRO M1200

27-DEC-83

11:11

PAGE 66

+ BASE REGISTER ADDRESS ASSIGNMENT
172410

INTADR:

172410

tMODIFY THIS LOC IF DIFFERENT

+ VECTOR ADDRESS ASSIGNMENT
000124

DRVECT:

124

+MODIFY THIS LOC IF DIFFERENT

+ BUS REGISTER ADDRESS POINTERS
172410
172412
172414
172416

WCR:
BAR:
CSR:

BOR:

172410
172412
172414
172416

sWORD COUNT
1BUFFER ADDRESS
1 COMMAND/STATUS
1BUFFER DATA REGISTER

+ VECTOR ADDRESS POINTERS
000124
000126

DRVCTO:
DRVCT2:

124
126

+READY € NEX VECTOR
tNEW PSW ON INTR

001430
001432
001434
001436
001440
001442
629 001444
001446
001450
001452
001454

CNT:

NUM:

BOARD:
ABORT:
TESTPC:

177740
016236
000511
177740
016236
000113

28eEg lgflOOOOOOOOOO

: COMMON PROGRAM LOCATION(S)

sDESCRIBES BOARD TYPE:DR11W OR DRV118
s+TIMER FOR ABORTING PROGRAM

sUSED TO DETERMINE BOARD TYPE
1GENERAL PURPOSE COUNTER
+1REG DATA SAVED HERE
10=MASTER START - NON-ZERO=SLAVE START

1@ OF TIMES TO REPEAT ALL TESTS BEFORE END PASS MSG
s XMIT WORD COUNT
s XMIT BUFFER ADRS
s XMIT STATUS/CONTROL
sRCV WORD COUNT
sRCV BUFFER ADRS
sRCV STATUS/CONTROL

177773

XMITMO:

1 XMIT BURST DATA LATE TEST.

177766

RCVTMO: -10.
DBUF
103

sRCV BURST DATA LATE TEST

016236
000501

016236
000103

SEQ 18

CZORKBO DR11-W INTRPROC EXER

PROGRAM START

651
652
653
654
655

001506
001512
001514
001522

001522
001526
001530
001534

001536

005037
000403
012737

012706
005026
022706
001374

177777

001452

001100
001140

012714

000020

001556
001564

012737
012737

012434
000340

000030
000032

001606
001612
001620
001626
001634
001642

213746
012737
012737
012737
022777
001012

001644
001646
001652
001654
001662
001670

000403
012716
000002
012737
012737
012637

656 001674
657 001700

012700
013701

658 001704
659 001706
660 001712
661 001716

001720
001724
001730
001732
001736
001742

010120
062701
022700
001372

012700
013701
010120
062701
022700
001372

001744
001750
001752

005227
001041
104401

001756
001762
001764
001772

005737
001006
023727
001005

000340

013572
000340

000004
001646
177570
177570
177777

000034
000036

MOV

@4$SCOPE ,80IOTVEC ;;I0T vecroa FOR SCOPE ROUTINE

MOV
MOV
MOV
MOV

@$ERROR
, 9#EMTVEC ;;EMT VECTOR FOR ERROR ROUTINE
#340,80EMTVEC+2 ;;;LEVEL 7
OOTRAP SOTRAPVEC llTRAP VECTOR FOR TRAP CALLS
9340, um»vec.aueva

MOV
MOV
MOV
MOV
cHP
BNE

..ENVEC.°(SP)
0644 ,00ERRVEC
#0SWR, SWR
Q0DISP,DISPLAY
-1,85WR
664

BR
MOV
RTI
MOV
MOV
MOV

654
#654,(SP)

65%:
664 :

MOV
MOV

QCR,RO ;SET UP
INTAOR,
R1
R1,(RO).
#2,R1
#BDR+2,RO
SETUP2
®ORVCTO,RO
DRVECT,R1
R1,(RO).
#2.R1
SORVCT2+2,R0O
SETUP3

SETUP2: MOV
ADD
ce
BNE

000002
001424
001424
001412

MOV
MOV
SETUP3: MOV
ADD
cHP
BNE

000002
001430

+ sFIRST LOCATION TO BE CLEARED
1 sCLEAR MEMORY LOCATION

13LOOP BACK IF NO

13SETUP THE STACK POINTER

#340,90I0TVEC+2 ssLEVEL
7

13SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
$3EQUAL TO A "-1", SETUP FOR A SOFTWARE SWITCH REGISTER.

644:
001140
001142

MOV

000004
001140
001142
177276

001414
001410

.SBTTL

1 :SAVE ERROR VECTOR
;;SET UP ERROR VECTOR
lSETW FOR A HARDWARE SWICH REGISTER
;;AND
A HARDWARE DISPLAY REGISTER
13 TRY TO REFERENCE HARDWARE SWR
$3BRANCH IF NO TIMEOUT TRAP OCCURRED

$3AND

THE HARDWARE
SWR IS NOT = -1

1 3BRANCH IF NO TIMEOUT
13SET UP FOR TRAP RETURN

OSWREG, SWR
1 sPOINT TO SOFTWARE SWR
#DISPREG,DISPLAY
(SP)+ ,80ERRVEC
; ;RESTORE ERROR VECTOR

TYPE PROGRAM NAME

REG ADRS POINTERS
1GET BASE ADRS
1LOAD EM
[
sALL DONE?
18R _IF NOT
+SET UP
VECTOR ADRS POINTER
1GET BASE VECTOR ADRS
i
:
tALL DONE?
1BR IF NOT

13TYPE THE NAME OF THE PROGRAM IF FIRST PASS
INC
-1
1 sFIRST TIME?

177777

002010

.SBTTL

000042
001140

s THIS IT MASTER START
1 SKIP NEXT
1SLAVE START

#$CMTAG,R6
(R6)+
OSWR,R6 ; ;DONE?
. -6
#STACK, SP

1 sINITIALIZE A FEW VECTORS

000022

001654
000176
000174
000004

PROGRAM START
MSTER
START
@-1,MSTER

SEQ 19

INITIALIZE THE COMMON TAGS

MOV
CLR
CcMP
BNE

012737

012737
012737

START2:
START:
.SBTTL

.SBTTL
CLR
BR
MOV

PAGE 67

13CLEAR THE COMMON TAGS ($CMTAG) AREA

001542

012737

27-DEC-83 11:11

START1:

001100

001572
001600

668

001452

012706

001550

662
663
664
665
666
667

MACRO M1200

000176

BNE
644
M
IF NO
TYPE
6354
TYPE ASCIZ STRING
GET VALUE FOR SOF TWARE SUITCH REGISTER
TST
8042
1 1ARE WE mm UNDER XXDP/ACT?
BNE
664
1 $BRANCH IF
Y
cHP
SWR, #¢SWREG
HSG' TWARE SHITCH REG SELECTED?
BNE
674
1 1BRANCH IF NO

MACRO M1200
CZORKBO DR11-W INTRPROC EXER
GET VALUE FOR SOFTWARE SWITCH REGISTER

001774
001776
002000
002006
002006
002054
669 002054

104406
000403
112737
000422
000240

000001

001134

27-DEC-83 11:11

66$:
67%:

:1:658:
64%:

He2

PAGE 67-1

SEQ 20

g
MOvB

13GET SOFT-SWR SETTINGS

01, $AUTOB

+3SET AUTO-MODE

BR
.ASCIZ

644
1 3GET OVER THE ASCIZ
<CRLF>#DR11W INTERPROCESSOR EXERCISER

NOP

INDICATOR

#<CRLF>

CZDRKBO DR11-W INTRPROC EXER
BOARD TYPE DIALOGUE
671
672 002056
673 002056
674 002062
675 002064
676 002072
677 002076
678 002100
679 002104
002104
002110

012706

177777

002236

691

693

Ss:

002112

1:658:

64%:

002172

13678
104410
021627
001051
012737
104401
000411

000426

690

001454

002524

104401

687

27-DEC-83

BRDTYP:

001100
000001

002164
002164
002170
002214
002214
002216
002222
002224
002232

MACRO M1200

000576

021627
001414

2s:

000126
000126
002240

001434

68%:

002270

000127

000640
012737
000410

MOV
RESET
MOV

OSTACK,SP

tALWAYS RESET STACK PTR

1, ICOUNT

+1ST

000127
002420

001434

.650

13 TYPE ASCIZ STRING

678

$3TYPE ASCIZ STRING

ASCIZ

TYPE

ASCIZ
RDCHR
cHP
BNE
MOV

.ASCIZ
TYPE

BR
cMP
BEQ

%375‘:
44

33778:
76%:

001434

MORS:

040

102

84:

g;l

664
/TYPE V OR M:

:3GET OVER THE ASCIZ
/

§SP).0126
€126 ,80ARD
694

684

:sTYPE ASCIZ STRING

1+ 3GET OVER THE ASCIZ

/V/<CRLF><CRLF>/DRV118 BOARD/<CRLF>

718

:1sTYPE ASCIZ STRING

704
:1:GET OVER THE ASCIZ
/INTERPROCESSOR LINK NOW IN PROGRESS..... /<CRLF
> <CRLF>

SYNCST
giP).0127

TYPE

.ASCIZ

TYPE

THEN 100(10)

3 3GET OVER THE ASCIZ
<CRLF>IIS THIS CPU TESTING A DRV11B OR DR11W?/<CRLF>

.ASCIZ
LoV

tDETERMINE BOARD TYPE ON FIRST PASS ONLY

. 738
:3TYPE ASCIZ STRING
728
3+3GET OVER THE ASCIZ
/ERROR IN ENTRY/
€127 ,B0ARD

75¢

740

313 TYPE ASCIZ STRING

1 sGET OVER THE ASCIZ

/HI¢CRLF>¢CRLF>/0RIIU BOARD/ <CRLF >
278

1 3sTYPE ASCIZ STRING

.ASCIZ

76
13GET OVER THE ASCIZ
/INTERPROCESSOR LINK NOW IN PROGRESS...../<CRLF><CRLF>

SYNCST

9126 ,B0ARD

BEQ

TYPE

164

TEST ONCE

TYPE

3s:

64:

BEFORE TESTING

TIME DO ALL

MORS

.ASCIZ

33738:
72%:

s INITIALIZE

INC
BEQ
JMP

TYPE

000410

SEQ 21

BOARD TYPE DIALOGUE

s3718:

70%:

PAGE 68

LSBTTL

TYPE

:369¢:

11:11

B8R
TYPE
BR
.ASCII

164
o 78

15¢
.84
154
<CRLF><CRLF>/ DRV11B BOARD/<CRLF>

CZDRKBO DR11-W INTRPROC EXER
BOARD TYPE DIALOGUE
002561
002564
002567

704 002570

002573
002576

705 002643
706 002645

707 002665

040
101
200
111
105
122
105
117
114
113
117
111
120
107
123
056
056
200
040
200
104
061
102
122
200
111
105
122
105
117
114
113
117
111
120
107
123
056
056
200
040

MACRO M1200

102
122

117
104

116

124
120
103
123
040
116
116
040
040
117

122
117
123
122

111
040

127
116
122
122
123

27-DEC-83

11:11

PAGE 68-1

.ASCII

/INTERPROCESSOR LINK NOW IN PROGRESS

.ASCIZ

7 /

.ASCII

/INTERPROCESSOR LINK NOW IN PROGRESS

.ASCIZ
VEN

/7 7/

SEQ 22

/<CRLF><CRLF><CRLF>

105

056

7%:

.ASCII

<CRLF><CRLF>/ DR11W BOARD /<CRLF>

/<CRLF><CRLF><CRLF>

CZDRKBO DR11-W INTRPROC EXER
711
712
713
714
715
716
717
718

002742
002742
002746
002752
002754

004737
005737
001402
000137

014050
001452
006162

MACRO M1200

27-DEC-83

15s:
SYNCST:

11:11

.SBTTL
.SBTTL
.SBTTL
JSR
TST
BEQ
JMP

IK2

PAGE 69

SEQ 23

MASTER TESTS
PC,CPUHI
MSTER
MINIT1

SINIT1

1START AS MASTER?
sYES - GO SEND TO SLAVE & CHECK ECHO
:NO - GO ECHO MASTER'S DATA

DR11-W INTRPROC EXER

MACRO M1200

27-DEC-83 11:11

PAGE

{MASTER PROTOCOL
L

032777
001425
104401
000421
000000
004737
012706

012737
032777
001005
005337
001371
104015
104412

020000

176432

MINIT1:

002776
é:?S‘:
014050
001100
176342
001000
001000

001444

1%:

001444

176326

BIT

BEQ
TYPE
BR
.ASCIZ
HALT

JSR
MOV
CLR
MOV
2%:
BIT
BNE
DEC
BNE
104000+15

L&
70

SEQ 24

INIT-TEST
Yy

1
Y Yy

PP Y Yy

:BITlS.flCSR
,65%

13 TYPE ASCIZ STRING

644
3 3GET OVER THE ASCIZ
<CRLF>/CABLE IS NOT INSERTED - HALTING /
PC,CPUHI
SP
OSTACK,
8CSR
€1000, TIME
€1000,8CSR
MTST1
TIME
24

tHAS SLAVE SET MASTER DSTATC

MACRO M1200
27-DEC-83
CZDRKBO DR11-W INTRPROC EXER
& MTST1
TEST THAT SLAVE CAN ECHO THE DBR CORRECTLY
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755

756

757
758

759

760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775

.SBTTL

& MTST1

11:11

PAGE

M2
71

SEQ 25

TEST THAT SLAVE CAN ECHO THE DBR CORRECTLY

1 028 8 8 480 0080000000000
A A0 00t itbttbtttss
1 8528 8 2080

0 000000000000

RARR AR AR

RAER AR ARt

attbbb bbbttt

tMASTER COMPUTER STARTS HERE FROM PROGRAM START
:IT SENDS OUT SINGLE WORDS (FLOATING 1/0 PTRN) THRU THE
:DBR TO THE SLAVE COMPUTER
:IT LOOKS FOR THE SLAVE TO ECHO THE DBR WORD CORRECTLY
sWITHIN A CERTIAN AMOUNT OF TIME

+IF IT FAILS TO RETURN THE WORD AN ERROR IS REPORTED
:THIS TEST IS NOT EXITED UNTIL ALL DATA PATTERNS HAVE
;BEEN SENT AND RECEIVED CORRECTLY

1 2 8 48 80 8 0888480080080440003
0880400080844
0 00ttt
bbbttt bbbt
1888888

005001
012700
010077
004737
010037
013737
004737
017737
012737
005337
001375
023737
001402
104001
104412
005100
005101
001343
005200
103740
012777
004737

MTST1:

1s:

177776
176302
013754

001124
001422
013666

176254

001000
001444

001124

24:
001122
001126
001444

3%:

001126

880858888 8888088884540 0888004 8484404000000 00 000400000

CLR
MOV
MOV
JSR
MOV
MOV
JSR
MOV
MOV
DEC

BNE
cMP

104000+1

4%:

177001
013754

176200

BEQ

R1
@-2,R0
RO, 88DR
PC,GOCMPN
RO, $GDDAT

tR1 SAYS FLOAT O LEFT WHEN ZERO
1 START WITH 177776 IN RO
:SEND PATTERN OUT
s TELL SLAVE TO PROCEED
$SAVE IN EXPECTED

PC,WTCMPN
8BDR, $BDDAT
91000, TIME
TIME
3%
$GDDAT, $8DDAT

sWAIT FOR SLAVE TO ECHO DATA
sREAD IT BACK
s DELAY

BOR, $8DADR

1SET _UP DBR ADRS

;CORRECT?

iBR IF SO

RSYNC
coM

tRSYNC ON ERROR
sCONVERT PTRN TO FLOATING 1

ASL

sYES - FLOAT LEFT

CcoM
BNE

INC
B8CS
MOV
JSR

R1
4

RO
24

2177001, 88DR
PC,GOCMPN

:TIME TO FLOAT LEFT?
:BR IF NOT

sKEEP LSB SET
tBR IF ZERO NOT TO CARRY YET
s TELL SLAVE TO GO TO NEXT TEST
s TELL SLAVE TO READ TEST TERMINATOR

MACRO M1200
27-DEC-83 11:11
CZDRKBO DR11-W INTRPROC EXER
&« MTST1
TEST THAT SLAVE CAN ECHO THE DBR CORRECTLY
777
778
779
780
781
782
783
784
785
786

787
788
789
790

PAGE

Ne
72

SEQ 26

tMASTER PROTOCOL INIT-TEST2
.SBTTL

012737
005337
001375
017737
042737
013777
032777
001402
104021
104412
012777
012777
004737
017737
042737
052737
013777
032777
001415
017737
042737
042737
013777
000414
017737
052737
042737
013777
012737
005337
001375
104020
104412

001000
001444

001444

176152
177775

001446
001446
176134
176126

004737
032777
001372
012777
022626
012737
005337
001375

011360

005077

175674

001446
100000

L i

MINIT2:

1$:

TEST

THAT

SLAVE

MOV
DEC

F2(SLAVE)
YT PP PPy

:CLEAR ALL BUT F1
+IS ERROR BIT CLEAR

8CSR, TEMP
oBIT1S,TEMP
2101, TEMP
TEMP,8CSR
#2,8CSR

001446
001446
001446
176010

MASTER:
Y

@177775, TEMP
TEMP,8CSR
0120000.9CSR

ORTRN, S8DRVCTO
#340,80RVCT2
PC,CPULO

176050
176042

tWAIT FOR SLAVE TO CLEAR

001446
001446
001446

INTERRUPT

8CSR, TEMP

176116
176112

CAN

tRSYNC ON ERROR
;DEFINE RETURN
sALLOW CPU INTERRUPT
+1IE,GO
: TELL SLAVE TO INTERRUPT MASTER

02, TEMP

o8IT1S, TEMP
TEMP ,8CSR
02, TEMP

#B8IT15,TEMP
TEMP,8CSR
€10000, TIME
TIME
3%

001444

;DELAY;WAIT FOR SLAVE TO INTERRUPT

+RESYNC ON ERROR
PC,RSTVEC

175724

€2000,8CSR

175714
001000
001444

001444

24:

:IS ATTN CLR?
sMAKE SURE DSTATC OF SLAVE IS CLR
sREADJUST STACK
;DELAY

ATTN(MASTER)

CZORKBO DR11-W INTRPROC EXER
MACRO M1200
e MTST2
TEST THAT SLAVE CAN ECHO THE 'STAT'

27-DEC-83 11:11
BITS CORRECTLY

PAGE

B
73

5€EQ 27

825
826

.SBTTL
o MTST2 TEST THAT SLAVE CAN ECHO THE "STAT' BITS CORRECTLY
11000000000000000000000000000000000000000000000000000000000000000

827

1 1000000000000000000000000000000000000000000000000000000000000000

829
83C
831
832
833

1 THE MASTER THEN LOOXS FOR THE SLAVE TO ECHO THE CODE VIA THE
+'STAT' BITS WITHIN A CERTIAN AMOUNT OF TIME
s IF IT FAILS TO RETURN THE CORRECT CODE AN ERROR IS REPORTED
s THIS TEST IS NOT EXITED UNTIL ALL 'FNCT' CODES MAVE BEEN
1SENT AND RECEIVED CORRECTLY

ac2s

tMASTER SENDS OUT A 'FNCT'

A34

11000000000000000000000000000000000000000000000000000000000000000

83s

1 1000000000000000000000000000000000000000000000000000000000000000

836 003526

837 003526
838 003534
839 003540
840 003546

013737
012700
012737
010077

001420
000002
001202
175646

001122

842 003556
843 003564
844 003570
845 003572

012737
005337
001375
017737

001000
001444

001444

175622

001126

841 003552

846 003600

847 003606

848 003610

849 003612

850 003614
851 003622
852
853
854
855
856

CODE (1-7) TO THE SLAVE COMPUTER

003626
003632
003634
003642
003646

004737

033737

001002

013666

001124

104412

032700
001745
012777
004737
004737

18:
2%:

001126

104002

062737
062700

MTST2:

MOV
MOV
MOV
MOV

CSR, $BDADR
02,R0
#1202, $GODAT
RO, 8CSR

1SET UP CSR ADRS
$SET UP INITIAL FNCT BIT COUNT
;LD EXPECETD
sLOAD FNCT BITS

MOV
DEC
BNE
MOV

#1000, TIME
TIME
24
8CSR, $BDDAT

sDELAY

JSR

8IT

BNE

104000.2

001002
000002

001124

177002
013754
013666

175560

000020

3s%:

RSYNC

ADOD
ADD

BIT
BEQ
MOV
JSR
JSR

PC.WTCMPN

S$GDDAT, $BDDAT

#1002, $GDDAT
2,R0

020,R0
14
#177002, 88DR
PC.GOCMPN
PC.WTCMPN

sLOOX FOR SLAVE TO ECHO VIA 'STAT' BITS

+READ CSR

;CORRECT?

1BR IF SO

sRSYNC ON ERROR

s ADVANCE EXPECTED
1 ADVANCE PTRN

sALL BEEN DONE?
1BR IF NOT
s TELL SLAVE TO GO TO NEXT
:GO_TO COMPANION
iWAIT FOR COMPANION

TEST

MACRO M1200
27-DEC-83 11:11
CZDRKBO DR11-W INTRPROC EXER
e MTSTS BLOCK MODE WORD XFER-MASTER XMITS 32 WORDS TO SLAVE

859

.SBTTL

860

PAGE

SEQ 28

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

11000000000000000000000000000000000000000000000000000000000000000

861

11000000000000000000000000000000000000000000000000000000000000000

862

tMASTER XMITS A 32 WORD BLOCK OF DATA TO SLAVE

864
865

1 THE SLAVE CHECKS THE SAME PLUS THE DATA RECEIVED
11000000000000000000000000000000000000000000000000000000000000000

863

+ THEN CHECKS FOR PROPER INTERRUPT STATUS, WC £ BA

866

1100080800000 0000000000000000000000000800000000800000000000080000

867 003652

868 003652

004737

014050

022777
001372
017737

000200

869 003656

005077

873 003700

042737

870 003662
871 003670
872 003672

874 003706
875
876 003714
877 003722
878

175536

175522
000002

013777
032777

001446
001000

175476
175470

004537
177740

011416

042737
052737
013777

100000
000010
001446

892

893 004032
894 004040
895 004046
897
898
899
900
901
902

903
904

004054

004062
004066
004070
004076
004104
004112

004172

012737
013777
013777
004737
017737

017737

010000
001456
001460
014076
175420

175370

100000
000002
001446

005337
001375
017737
017737
042737
042737

001444

013777

004120
004126
004134
004136

013777
022737
001404
012737

910
911
912
913
914
915

004144
004146
004154
004162
004166
004170

000403
012737
013737
104401
104003
000514

001462

a14:

38%:

001446

011340

042737
042737
013777

905
906
907
908

909

001446

052737

882 003740
883 003744

889 004002
890 004010
891 004016

175530
001446

001774
004537

884 003746
885 003754
886 003762
887 003770
888 003774

18:

100000

879 003730
880 003732
881 003736

MTSTS:

005710

001124

005310
001420
015776

001124
001122

+IS ONLY READY SET

8IS

02, TEMP

1SET DSTATC IN SLAVE
s TELLS SLAVE TO SETUP FOR XFERS

8IC

eBIT1S5,TEMP

37s:

40¢
RS,SETVEC

JSR
-32.

RS,LDBUF

3¢

MOV
MOV
MOV
JSR
MOV

8IC
8IS
MOV

001446
001446
175344

175272
001434

200, 8CSR
414
8CSR, TEMP

BEQ
JSR

001446

001446
000127

cHe
BNE
MOV

TEMP,8CSR
#1000, 8CSR

001446
001446
175374

001126
001446
001446
001446

iNO INTR ALLOWED YET

8CSR

MOV
BIT

001446

175324
175316
100000
000500

PC,CPUHI

40s:

001444
175432
175426

175336

JSR

CLR

8CSR, TEMP

eBIT1S,TEMP
010, TEWP
TEMP ,8CSR

TO DO XFERS

$SET UP INTR RETURN ADRS
tRETURN TO 3¢ ON INTR

1GO LOAD '‘DBUF’' WITH DATA PTRN
100 32. LOCATIONS
1SET UP A TIMER VALUE
1SET UP WORD COUNT
1SET UP BUFFER ADRS
tALLOW THE RDY INTR
s SINGLE CYCLE

8CSR, TEMP

MOV

XPRAM+4 ,8CSR

1SET UP CONTROL

SCSR, $BDOAT
SCSR, TEMP
eBITiS, TENP
0500, TEMP

sDISABLE IE € CYCLECIF TMIS IS

DEC
BNE
MOV
MOV
8IC
8IC

#BITiS, TEW
02, TEWP
TEMP,8CSR

MOV
cw
BEQ
MOV

TEMP,8CSR
€127 ,80ARD
454
#5710, $GDDAT

BR
MOV
MOV
TYPE
104000+3
BR

464
#3310, $GDDAT
CSR, $BDADR
MSG1

45¢:
464:

+ IS READY

MOV
8IC
8IC
MOV

2s:

€10000, TIME
XPRAM, SWCR
XPRAM«2, 8BAR
PC,CPULO

1DSTATC HERE SAYS SLAVE

- IE, FNCT 3 & GO.AND CYCLE

tWALIT FOR INTR
tUNTIL O
tREAD CSR - SHOULD NEVER GET HERE

sA DRV118: CYCLE MIGH WILL
1PREVENT BOR FROM BEING READ)

+IF DR11W:CYCLE WILL BE CLEAR
1LD EXPECTED - STAT A € C, CYCLE, RDY,

1MUST BE DRvV118

1STAT AEC,.RDY,IE,FNCT 3
1SET UP CSR ADRS
1GO RESYNC ON ERROR

IE, FNCT 3

MACRO M1200
CZDRKBO DR11-W INTRPROC EXER
27-DEC-83 11:11
& MTST3 BLOCK MODE WORD XFER-MASTER XMITS 32 WORDS TO SLAVE

916
917
918
919
920
921

004172
004174
004202
004210
004216
004224

022626
017737
017737

923 004240
924 004242

001404
012737

927 004252

000403
012737

922 004232

925
926 004250
928 004260

929
930
931
932
933
934
935
936

937
938
939
940
941
942

004266
004270
004276
004302
004304
004306
004312
004320
004322
004330
004334
004336
004340
004346

023737
001407
013737
104401
104004
000446
005037
017737
001407
013737
104401
104005
000431
013737
013700
005400
006300
060037
017737
042737
023737
001431
013737
104401
104006

175220
175212
100000

000500
001446
000127

001126
001446
001446
001446

175166
001434

3s:

cMP

PAGE

D3
74-1

(SP)+,(SP)+
8CSR, $BDDAT
8CSR, TEMP
#8IT15, TEMP
€500, TEMP

001124

TEMP,BCSR
127,80ARD
314
#5710, $GDDAT

005310

001124

30¢
05310, $GDDAT

001124

001126

:(‘SODAT « $BDDAT

001420
015776

001122

CSR, $BDADR

005710

001124

175076

001126

001414
015776

001122

001460
001456

001124

001124
175030
000001
001124
001416
015776

001126
001126
001126
001122

+MSG1

64
$GDOAT

?‘Cfl « $BDDAT

SEQ 29

tFIX STACK SINCE NO RTI
tREAD STATUS
tDISABLE IE & CYCLE(CLR CYCLE IF THIS IS A DRV11B)

tMUST BE DRV118B

sCORRECT?

t1BR IF SO
1SET UP CSR ADRS

1GO RESYNC ON ER

lLDAEXPECYED wWC

WCR, $BDADR
+MSG1

1SET UP WCR ADRS

64
XPRAM+2, $GDDAT

1GO RESYNC ON ER
1GET STARTING ADRS OF XFER

RO
RO, $GDDAT
SBAR, $BDDAT

1GET ACTUAL ¢
1CONVERT TO WORD
1ADD TO BASE ADRS
sREAD BAR ADRS

#B8IT00, $BDDAT
$GDDAT, $BDDAT

BAR, :.DADR

’ GET

sELIMINATE LS8
s1CORRECT?
1BR IF SO
1SET UP BAR ADRS

CZDRKBO DR11-W INTRPROC EXER
MACRO M1200
27-DEC-83 11:11
& MTST3 BLOCK MODE WORD XFER-MASTER XMITS 32 WORDS TO SLAVE
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978

981
982
983

PAGE

E3
75

tERROR IN MASTER-WAIT ON SLAVE FOR ITS STATUS
012737
005337
001375
000005
017737
042737
001404

010000
001444

001444

64:
7¢:

MOV

174754
170777

001450
001450

21s:

MOV
8IC

022737
001365
104412

001000

001450

238
244

DEC
BNE

RESET

10000, TIME

TIME
7

8CSR, SAVE

TO COMPLETE DATA CK

1 TELL SLAVE WE HAVE AN ERROR

€170777,SAVE

HEQ

CHP
BNE

#1000, SAVE
21

RSYNC

tWAIT FOR SLAVE

sCOUNT AWAY
tUNTIL DONE

1RSYNC ON ERROR

tNO ERROR IN MASTER-WAIT ON SLAVE FOR ITS STATUS
012737
005337
001375

112777

017737

010000
001444

001444

000002

174702
170777

174706
001450
001450

001000

001450

011360

208:
9¢:

11¢:
10¢:

DEC
BNE
MOVe
MOV
8IC

210000, TIME

tWAIT FOR SLAVE TO COCMPLETE CKS

204
#2,8CSR

tUNTIL DONE
s TELL SLAVE ALL O

#170777,SAVE
11¢
#1000, SAVE

1SAVE 'STAT' BITS
1WAS THERE AN ERROR?
iNO ERROR?

TIME

8CSR, SAVE

BEQ
cHP
BEQ
BR

JSR

PC.RSTVEC

RSYNC

10¢

sCOUNT AWAY
tREAD CSR

tRSYNC ON ERROR

1GO RESTORE VECTOR

F3
MACRO M1200
27-DEC-83 11:11
CZDRKBO DR11-W INTRPROC EXER
& MTST3 BLOCK MODE WORD XFER-MASTER XMITS 32 WORDS TO SLAVE

SEQ 31

1BURST MODE TESTING DETERMINATION

985
986
987
988
989

990
991
992
993

PAGE

11000000000000000000000000000000000000000040000000040000800000048

004550
004556

97 004564

004572
004576

004610
004614

012737
005337
001375
013777

001000

001444

001434

174630

004737
004737
005777
001402
000137
000137

ATV E

MSBRD:

1DETERMINE IF BURST XFERS AND BURST DATA LATE ARE
:BE DONE.
TEST WILL BE DONE ONLY IF BOTH MASTER AND SLAVE
tARE BOTH DR11W’'S.
OTHERWISE ,SLAVE WILL BECOME MASTER
tAND MASTER SLAVE AND TESTS 1 THRU 3 WILL BE DONE AGAIN.
R

MOV

01000, TIME

MOV

B0OARD, 88DR

013754
013666
174614

JSR
JSR
TST

PC.GOCMPN
PC,WTCMPN
880R

004620
006162

JHP
JHP

BEQ

2s:

MTST4
SINIT1

PRy

1WAIT FOR SLAVE

s TELL SLAVE WHAT BOARD

s TYPE MASTER IS

s TELL SLAVE TO RESPOND
sWAIT FOR SLAVE TO EVALUATE
1SLAVE RESPONDS AND MASTER CAN
sFIND OUT IF TEST 4 SHOULD BE DONE
10 SAYS NO

s YES;D0 TEST 4
:

CZDRKBO DR11-W INTRPROC EXER
& MTST4 BURST MODE WORD

MACRO M1200

XFER-MASTER XMITS 32 WORDS TO SLAVE

.SBTTL
.SBTTL

1009
1010
1011
1012
1013
1014

G35

PAGE 77

SEQ 32

& MTSTA BURST MODE WORD XFER-MASTER XMITS 32 WORDS TO SLAVE
(DR11-W TO DR11-W ONLY)

110000000000000000000000000000000000040000000000000000000000000000
110000A0000000000000000000000000000000000800000000000000000000000

1SAME AS TEST 3 EXCEPT BURST MODE:BOARD DOES NOT RELEASE BUS
tUNTIL WORD COUNT OVERFLOMW

1015

1016
1017
1018
1019
1020
1021
1022
1023
1024

27-DEC-83 11:11

1 208 28 8 0 08000800000808000000000888400000080000000840800000000
1 80 8 8 80 4 8000280080040000000880000008000000800000080004000000008

004620
004620
004624
004630
004636
004640
004646
004654

1025
1026 004662
1027 004670
1028
1029 004676
1030 004700
1031 004704
1032 004706
1033 004712
1034 004714

1035 004722
1036 004730
1037 004736

MTST4:

004737
005077
022777
001372
017737
042737
052737

014050
174570
000200

174554
100000

000002

001446
001446
001446

013777
032777

001446
001000

174530
174522

001774
004537
005070
004537

177740

012737
013777
013777
004737
017737
042737
042737
013777
012777
005337
001375
017737
017737
042737
042737
013777
012737
013737
104401
104003
000504
022626
017737
017737
042737
042737
013777
012737

023737
001407
013737

18:

174562

174452

40%:

+IS ONLY READY SET

BIC
BIS

BIT1S,TEMP
02, TEMP

MOV
BIT

BEQ

JSR

24:

001446
001446
458

464

#1000,8CSR

408

s TELLS SLAVE TO SETUP FOR XFERS
s1DSTATC HERE SAYS SLAVE

1+IS READY TO DO XFERS

RS ,.LDBUF

:1GO LOAD 'DBUF' WITH DATA PTRN

MOV

€10000, TIME

XPRAM, SMCR
XPRAM+2, 8BAR
.
0
8CSR, TEMP
#BIT1S,TEMP
02,.TEMP
TEMP ,8CSR

tRETURN TO 3¢ ON INTR

100 32. LOCATIONS

1SET UP A TIMER VALUE
1SET UP WORD COUNT
:SET UP BUFFER ADRS
sALLOW THE RDY INTR

MOV

#501,8CSR

$SET UP CONTROL - IE,

BNE

sUNTIL O

MOV
MOV
BIC
BIC
MOV
MOV

MOV

TYPE

cHP

gg::

TEMP,8CSR

1SET DSTATC IN SLAVE

JSR

1040003
BR

3s:

8CSR, TEMP

1SET UP INTR RETURN ADRS

DEC

001126

8CSR

RS,SETVEC

MOV
MOV
JSR
MOV
BIC
BIC
MOV

001446
001446

001122

€200,8CSR
418

-32.

174460

174354

cMP
BNE

MOV

001444

174426
174420

sNO INTR ALLOWED YET

38s:

011416
010000
001456
001460
014076

PC,CPUHI

CLR

37s:

011340

JSR

41s:

MOV
MOV
BIC
BIC
MOV
MOV

cHP
BEQ
MOV

SCSR, $BDDAT
8CSR, TEMP
#MBIT1S,TEMP
€100, TEMP
TEMP,8CSR

#1300, SGDDAT

CSR, $BDADR
MSG2

sWAIT FOR INTR

sREAD CSR - SHOULD NEVER GET HERE
s1DISABLE IE
1STAT C,RDY,IE

1SET UP CSR ADRS

1GO RESYNC ON ERROR

SCSR, $BDDAT
SCSR, TEMP
#BIT1S,TEMP
€100, TEMP
TEMP,8CSR
#1300, $GDDAT

sREAD STATUS

(SP)+,(SP)e

$GDDAT, $BDDAT

(3
CSR, $BDADR

GO,AND CYCLE

sFIX STACK SINCE NO RTI

1DISABLE IE

1CORRECT?

1BR IF SO
1SET UP CSR ADRS

DR11-W INTRPROC EXER
TO DR11-W ONLY)

005154
005160
005162
005164
005170
005176
005200
005206
005212
005214
005216
005224
005230
005232
005234
005240
005246
005254
005262
005264
005272
005276

104401
104004
000446
005037
017737
001407
013737
104401
104005
000431
013737
013700
005400
006300
060037
017737
042737
023737
001446
013737
104401
104006

MACRO M1200

27-DEC-83

016030
104000.4

001124
174220

001126

001414
016030

001122

001460
001456

001124

001124
174152
000001
001124
001416
016030

H3
PAGE

77-1

SEQ 33

TYPE

+MSG2

BR
CLR

6
$GDDAT

1GO RESYNC ON ER
1LD EXPECTED WC

BEQ

1BR IF ZERO

MOV

TYPE

104000+S

Ss:

11:11

SWCR, $BDDAT

WCR, $BDADR
.MSG2

tREAD WORD COUNT

1SET UP WCR ADRS
1GO RESYNC ON ER

001126
001126
001126

MOV
MOV
NEG
ASL
ADD
MOV
8IC
cMP

XPRAM+2, $GDDAT
XPRAM,RO
RO
RO
RO, $GDDAT
8BAR, $BDDAT
#8IT00, $BDDAT
$GDDAT, $BDDAT

;GET STARTING ADRS OF XFER
1GET WC
sGET ACTUAL ¢
;CONVERT TC WORD
sADD TO BASE ADRS
sREAD BAR ADRS
sELIMINATE LSB
1CORRECT?

001122

MOV

BAR, $BDADR

:SET UP BAR ADRS

BEQ

104000+6

TYPE

MSG2

1BR IF SO

;ERROR IN MASTER-WAIT ON SLAVE FOR ITS STATUS
005300
005306
005312

005316

012737
005337
001375
000005
012777

010000
001444

000010

001444 6$:

78:

174074
-

005324
005332
005340

017737
042737
001771

174070
170777

001450
001450

005342
005350
005356
005364

017737
042737
022737
001404

174052
170777
005000

001450
001450
001450

005366
005374

022737
001353

004000

001450

005376

104412

910000, TIME

sMAIT FOR SLAVE TO COMPLETE DATA CK

BNE
RESET
MOV

74
#10,8CSR

sUNTIL DONE
;IF ERROR THMAN INIT
s TELL SLAVE WE HAVE AN ERROR

TIME

sCOUNT AMWAY

s THIS SECTION MODIFIED FOR STATUS LINE SKEW

MOV

DEC

MoV
BIC
BEQ
MOV
8IC
ce
BEQ
cHe
BNE
RSYNC

@CSR, SAVE
0170777,SAVE
214
8CSR, SAVE
#170777,SAVE
#5000, SAVE
2as
#4000, SAVE
214

: READ STATUS
; CLEAR DON'T CARES
: LOOP IF COMPANION NOT READY YET
: RE-READ STATUS
; CLEAR DON'T CARES
s CHECK FOR GOOD STATUS
: IF EQ THEN RESYNC
+ ELSE CHECK FOR COMPANION ERROR
+ IF NE THEN COMPANION STILL NOT READY
sRSYNC ON ERROR

tNO ERROR IN MASTER-WAIT ON SLAVE FOR ITS STATUS
005400
005406
005412
005414

012737
005337
001375
012777

010000
001444

001444

000012

173776

8%:

20%:

MOV

DEC
BNE

MOV

€10000, TIME

tWAIT FOR SLAVE TO COMPLETE CKS

012,8CSR

1 TELL SLAVE ALL Ox

TIME
204

1COUNT AWAY
IUNTIL DONE

s THIS SECTION MODIFIED FOR STATUS LINE SKEW

DR11-W INTRPROC EXER
TO DR11-W ONLY)
005422
005422
005430
005436

017737

042737

001771

005440
005446
005454
005462

017737
042737
022737
001405

005464
005472
005474
005474
005476
005476

022737
001353

9s:

27-DEC-83 11:11

PAGE 77-2

8CSR, SAVE

173772
170777

001450
001450

173754
170777

MOV

005000

001450
001450
001450

8IC
cHp
BEQ

9170777 ,SAVE
5000, SAVE
10¢

004000

001450

cMP
BNE

#4000, SAVE
9

11%:

104412
004737

MACRO M1200

011360

10%:

MOV
BIC
BEQ

;170777.SAVE
b

8CSR, SAVE

+ READ CSR
s+ SAVE 'STAT' BITS

IF COMPANION NOT READY

PC.RSTVEC

THEN LOOP

RE-READ STATUS

CLEAR DON'T CARES
CHECK FOR COMPANION OK
IF SLAVE OK THEN CONTINUVE

+ ELSE CHECK FOR COMPANION ERROR
s+ IF NE THEN COMPANION STILL NOT READY

sRSYNC ON ERROR

RSYNC

JSR

SEQ 34

+GO RESTORE VECTOR

CZDRKBO DR11-W INTRPROC EXER
& MTSTS BURST

DATA LATE

MACRO M1200

TEST-MASTER

XMITS S WORDS

1139
1140
1141
1142
1143

.SBTTL

PAGE

TO SLAVE
MTSTS BURST

J3
78

DATA LATE

SEQ 35
TEST-MASTER

XMITS

S WORDS

SLAVE

WHILE SLAVE RECEIVES 5 AND TIMES OUT (DR11-W TO DR11-W ONLY)

110000000000000000000000000000000000000400000000000000000000000sn

P1000000000000000000000000000000000400000000000000000000000000080

1144

1145
1146
1147
1148
1149
1150
1151
1152 005502
1153 005502

27-DEC-83 11:11

tPROCEDURE: MASTER XMITS 5 WORDS TO SLAVE IN BURST MODE
sSLAVE IS SETUP TO DO 10 XFERS. CHECK THAT MASTER INTERRUPTS
AFTER 5 XFERS ARE DONE IN
18Y WCOF,
1 SLAVE, TIMEOUT OCCURS, SINCE SLAVE WAITS FOR GO-AHEAD
sFROM MASTER TO CONTINUE,BUT MASTER NEVER RESPONDS. IN
sSLAVE: CHECK THAT S XFERS HAVE BEEN COMPLETED.

118888804800888080800828804048004008400480080408808088800008808080008
$100840800000000088000000000800000000000400000400000000888008080480

MTSTS:
1¢:
41s:

004737
005077
022777
001372
017737
042737
052737

014050
173706
000200

173700

173672
100000
000002

001446
001446
001446

013777
032777

001446
001000

173646
173640

001774
004537

011340

404
RS,SETVEC

011416

RS,LDBUF

013777
005337
001375
017737
017737

010000
001472
001474
014076
001476

001444

JSR

CLR
cHP
BNE

MOV
B8IC
BIS

tNO INTR ALLOWED YET

PC,CPUHI
8CSR

#200,8CSR
414

:IS ONLY READY SET

02,TEMP

1SET DSTATC IN SLAVE
+TELLS SLAVE TO SETUP FOR XFERS

8CSR, TEMP
#BIT1S, TEMP
TEMP,8CSR
1000, 8CSR

1DOSTATC HERE SAYS SLAVE
+IS READY TO DO XFERS

001444
173602

173576

PC,CPULO

173566

XMITMO+4,8CSR

24:

173554
173546

100000

TTME

2¢
8CSR, $BDDAT
. TEMP
8CSR
eB8ITiS, TEMP
0100, TENP
TEMP, 8CSR
#1300, $GDDAT

CSR. $BDADR

104000+3

MSG3

?;n (sP)
[]

8CSR, TEMP
042737
013777
017737
001441
013737

BITiS, TEWP
€100, TEMP
TEMP, 8CSR

’m‘ * $8DDAT
WCR, $BDADR

1SET UP INTR RETURN ADRS
tRETURN TO 3¢ ON INTR
1GO LOAD '‘DBUF’ WITH DATA PTRN
100 _32. LOCATIONS
1SET UP A TIMER VALUE
$SET UP WORD COUNT
1SET UP BUFFER ADRS
tALLOW THE RODY INTR
$SET UP CONTROL - IE, GO,AND CYCLE

tWAIT FOR INTR
sUNTIL O
tREAD CSR - SHOULD NEVER GET HERE
1DISABLE IE
1LD EXPECTED
STAT C
UP C SR ADRS
1SET

1GO RESYNC ON ERROR
$FIX STACK SINCE NO RTI

1DISABLE IE
tREAD WORD COUNT
1BR IF ZERO
1SET UP WCR ADRS

. RDY,

MACRO M1200
27-DEC-83 11:11
WHILE SLAVE RECEIVES 5 AND TIMES OUT (DR11-W TO DR11-W ONLY)

CZORKBO DR11-W INTRPROC EXER
1196 005772
1197 005776
1198 006000
1199
1200

104401
104005
000400

016062

104000+5

TYPE

+MSG3

IK3
PAGE

78-1

SEQ 36

1GO RESYNC ON ER

tERROR IN MASTER-WAIT FOR SLAVE STATUS
000005
012777
006012

000010

173406

017737
042737
001771

173402
170777

001450
001450

017737
042737
022737
001404

173304
170777
005000

001450
001450
001450

022737
001353

004000

001450

68:

218:

238

€10,8CSR

s TELL SLAVE WE HAVE AN ERROR

s THIS SECTION MODIFIED FOR STATUS LINE SKEW.
MOV

8IC
BEQ

8CSR, SAVE

9170777,SAVE
214

READ STATUS
CLEAR DON'T CARES
IF COMPANION NOT READY THEN LOOP

MOV

8CSR, SAVE

cHP
BEQ

#5000, SAVE
244

RE-READ STATUS
CLEAR DON’'T CARES
CHECK FOR COMPANION OK
IF EQ THEN RESYNC

cHP
BNE

94000, SAVE
21

8IC

104412

RESET

MOV

#170777,SAVE

s+ CHECK FOR COMPANION ERROR

IF NE THEN COMPANION STILL NOT READY

tRSYNC ON ERROR

RSYNC

tNO ERROR IN MASTER-WAIT FOR SLAVE STATUS
s THIS SECTION MODIFIED FOR STATUS LINE SKEM.

017737
042737
001771

173326
170777

001450
001450

017737
042737
022737
001410

173310
170777
005000

022737
001353

MOV

8CSR, SAVE

BEQ

#170777,SAVE

READ CSR
SAVE 'STAT' BITS
IF COMPANION NOT READY THEN LOOP

001450
001450
001450

MOV

8CSR, SAVE

RE-READ STATUS

cHP
BEQ

#5000,
10¢

CHECK FOR COMPANION OK
IF SLAVE OK THEN CONTINUE

004000

001450

cHe
BNE

94000, SAVE
9

012777

000010

173252

.nov

€10,8CSR

012777
004737

000012
011360

173242

MOV
JSR

012,8CSR
PC.RSTVEC

104412

8IC

10%:

#170777,SAVE

SAVE

ELSE CHECK FOR COMPANION ERROR
IF NE THEN COMPANION STILL NOT READY
REPORT ERROR STATUS TO SLAVE

RSYNC ON ERROR

TELL SLAVE ALL Ox

GO RESTORE VECTOR

DR11-W INTRPROC EXER

MACRO M1200

27-DEC-83

.SBTTL

11:11

PAGE

L3
80

SEQ 37

SLAVE TESTS

.SBTTL

:SLAVE PROTOCOL INIT-TEST1

1100808000 000400080800000000000000000000000000000000000000000040404

006162
006170
006172
006176

032777
001425
104401
000421

000000
004737
012706

032777
001404
032777
001374
004737
032777
001774
000137

173230

SINIT1: BIT
BEQ
TYPE
BR

$3658:

64%:

18:

014050
001100
173140
001000

173132

001000

173122

2s:

013754
001000

173106

4s:

006330

3s:

(ASCIZ

HALT

JSR

OBIT13,8CSR
14
654

13 TYPE ASCIZ STRING
644
3 3GET OVER THE ASCIZ
<CRLF>/CABLE IS NOT INSERTED - MALTING /

MOV
CLR
BIT
BEQ

PC,CPUHI
#STACK,SP
8CSR
€1000,8CSR
38

JSR

PC,GOCMPN

BEQ

BIT

JMP

gooo.acsa

SL1STR

tWHAT IS DSTATC
+IF CLR-BRANCH AND WAIT FOR MASTER
+IF NOT,WAIT FOR CLEAR

sHAS MASTER SET DSTATC IN SLAVE?

sNOT YET

CZDRKBO DR11-W INTRPROC EXER
&

STST1

MACRO M1200

RECEIVE MASTER'S DBR DATA AND SEND

27-DEC-83 11:11

IT BACK

VIA DBR

SEQ 38

1271

.SBTTL

1273
1274
1275

18080000 80000000000000000000000004008000008000000040000804404
tNOW THIS COMPUTER BECOMES THE SLAVE AND ECHOS MASTER' S DBR DATA
:SLAVE COMPUTER STARTS HERE FROM PROGRAM START 204
-

1272

1 0 8480 0 80 00000000000008008000000000888000004084088800400040848

10804040 08000000000000004000000008008004800040880400000408800408

1280 006320
1281 006324

004737
004737

013754
013666

1283 006330

017737

173066

1282

1284 006336

022737

1286 006346
1287 006354
1288 006362
1289 006366

013777
012737
005337
001375

1285 006344

1290 006370

1291 006372

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

188008080 000080000000000000000000004000000000084004800008800408

1276

12;7
1278
1279

STST1

PAGE 81

001412

000753

000240

177001

001450
001000
001444

STST1:
001450

001450
173046
001444

JSR
JSR

PC,GOCMPN
PC,WTCMPN

SL1STR: MOV

8BDR, SAVE

cMP

BEQ

S$:
4s:

MOV
MOV
DEC
BNE
BR

NOP

0177001 SAVE
SAVE 88DR
01000 TIME
TIME
S$
STST1

;sTELL MASTER WE ARE READY
:1DATA AVAILABLE?

sWAIT ON IT
;:GET DATA

s TEST TERMINATOR?
;B8R IF SO

.sem IT BACK
;:DELAY BEFORE CALLING MASTER
;GO LOOK FOR MORE DATA

CZDRKBO DR11-W INTRPROC EXER
&

TEST

THAT

SLAVE

MACRO M1200

INTERRUPTS MASTER:F2

1293

27-DEC-83 11:11

PAGE

TO ATTN

.SBTTL

TEST

THAT

SLAVE

N3
82

SEQ 39

INTERRUPTS MASTER:F2

TO ATTN

:SLAVE PROTOCOL INIT-TEST2

1000 ARAAARAALAARAAAARARAAASAAER00AAAAAAR000000000000000400

SINIT2:
005077
004737
017737
042737
052737
013777
017737
042737
042737
013777
012737
032777
001404
005337
001371
104412

8CSR
001446
001446
001446
172764
001446
001446
001446
172734
001444
172720

PC,WTCMPN

8CSR, TEMP
o8IT1S5, TEMP
04, TEMP
TEMP,8CSR

8CSR, TEMP
e8BIT15, TEMP
04, TEMP
TEMP,8CSR
2%:

210000, TIME
©1000,8CSR

STST2

TIME
2

;CLR DSTATC OF MASTER

:SET INTERRUPT MASTER

;CLR F2

sWAIT DSTATC SLAVE TO CLEAR

DR11-W INTRPROC EXER
MACRO M1200
27 DEC 83 11:11
PAGE
RECEIVE MASTER'S "STAT
BITS AND SEND IT BACK VIA
FN
.SBTTL

o STST2

b4
83

5EQ 40

RECEIVE MASTER'S

'STAT'

BITS AND SEND IT BACK VIA

110000000000000000000000000000000000000000000800000000000000000000
11000000000000000000000000000000000000000000000000000000000000000

sRECEIVE

'STAT'

BITS AND CONVERT TO ‘FNCT'

BITS AND WRITE

TO CSR

11000000000000000000000000000000000000000000000000000000000000000
11000000000000000000000000000000000000000000000000000000000000000

006512

STST2:

006512
006516
006524
006530
006532
006540
006542

004737
012737
005337
001375
022777
001412
017737

013666
001000
001444

001444

177002

172662

006556
006564
006566

113777
000752
004737

001451

006550

042737

172652

170777

013754

4as:

Ss:
2%:

001450

JSR
MOV
DEC
BNE
cHe
BEQ
MOV

PC,WTCMPN
01000, TTME
TIME
St
0177002, 880R
3
8CSR, SAVE

iWAIT FOR MASTER
sDELAY

MOvVB
BR
JSR

SAVE.1,8CSR
a5
PC.GOCMPN

;ECHO WITH FNCT BITS
;LOOK FOR NEXT ‘STAT' CODE
sTELL MASTER TO CONTINUE

8IC

172634

5s:

@170777,5AVE

1 TEST TERMINATOR?
18R IF SO
;READ THE CSR
1SAVE ONLY

THE

STAT BITS

'FNCT

BITS

7
e

DR11-W INTRPROC EXER
STSTY BLOCK MODE WORD XFER TEST

MACRO M1200

27-DEC-83

SLAVE RECEIVES 32
LSBTTL
.SBTTL

11:11

STSTS BLOCK

PAGE

MODE

WORD

WORDS FROM MASTER

SEQ 41
XFER

TEST-SLAVE

RECEIVES

110000000000 0000000000000000000000008000000000080000000000000000800
1100000800000 0000000000000000000000008000000008%000080800000800008000

s THIS TEST SETS UP TO RECEIVE A 32 WORD BLOCK OF DATA FROM THE MASTER
s THEN CHECKS FOR PROPER

INTERRUPT

STATUS,

WC,

BA £ DATA

1 IF AN ERROR IS DETECTED THE SLAVE TELLS THE MASTER, REPORTS THE
;ERROR, AND RESYNCS ON PROGRAM

1100000000000 00000000000800000000080000080000000000880000080080000
1100000000000 0000000000000000000000000000000000000000000008000000

1345 006572
1346 006572
1347 006576

5TSTS:
18:

004737
012737
005337
001375
005077

JSR

408

#1200,8CSR
414

39%:

004537
007016
004537

012, TEW

tFNCT 3E1

910000, TIME
RPRAM, SWCR
RPRAM.2, 8BAR

8CSR, TEMP
#BIT1S, TEMP

1SET
UP CONTROL - FNCT
3 £ 1, IE
€ GO
sWAIT FOR INTR
sUNTIL ZERO
sREAD CSR - SHOULD NEVER GET HERE

24:

#8IT13,TENW

€100, TEWP
TEMP,8CSR

;DISABLE IE

CSR, $BDADR

1SET UP CSR ADRS

#4312, $GDDOAT

104401
104007
000540
022626
017737
017737
042737
042737
013777
0127537
023737
001407
013737

015776

104401
104010

015776

sONLY DSTATC AND READY SET

PC,CPULO

RS ,CLRBUF

012737
013777
013777
004737
017737
042737
052737
013777
013777
005337
001375
017737
017737
042737
042737
013777
012737
013737

sNO INTRS ALLOWED YET

$SET UP THE INTR RETURN ADRS
sRETURN TO 3¢ ON DATN INTR
:1GO CLR ‘'DBWF°
100 32. LOCATIONS
1SET UP A TIMER VALUE
1SET UP WORD COUNT
1SET UP BUFFER ADRS
sALLOW THE INTR

RS,SETVEC

177740

1371 006756
1372 006764
1373 006772
1374 007000
1375
1376 007006
1377 007012
1378 007014
1379 007016
1380 007020
1381 007026
1382 007034
1383 007042
1384 007050
1385 007056
1386 007064
1387 007072
1388 007074
1389
1390 007102
1391 007106

#1000, TIME
TIME
404

8CSR

41s:

022777
001372

PC,CPUHI

1LD EXPECTED -

STAT A,

RDY,

IE EFNCT
3 €1

1GO RESYNC ON ER
1FIX STACK SINCE NO RETURN

172374
172366

1READ STATUS

1DISABLE IE

000100

100000

001446
004312
001124

#4312, §GDOAT

iL0 EX’E?TEO - STAT A, RDY, IE € FNCT 3 £ 1

001420

CSR. $BDADR

1BR IF SO
1SET UP CSR ADRS

OWT $BDOAT

TYPE

104000.10

MSG1

CZDRKBO DR11-W INTRPROC EXER
WORDS FROM MASTER
1392 007110
1393 007112
1394 007116
1395 007124
1396 007126

1397
1398 007134
1399 007140
1400 007142
1401 007144
1402

1403

1404
1405
1406

1407

1408
1409
1410
1411
1412
1413
1414
1415

1433

1434 007310
1435 007314

000502
005037
017737

001407
013737

104401
10‘01;
00046
013737
013700
005400
006300
060037
017737
042737
023737
001407
013737
104401
104012
000433
013700
013701
012702
005003
020220
001011

001124

MACRO M1200

44 :

172272

001126

001414

001122

001124
172224

000001
001124

001416

11:11

10%

MOV
BEQ
MOV

gHCR.OBODA!

CLR

015776
001466
001464

PAGE

27-DEC-83

$GDDAT
$

WCR, $BDADR

104

001124

RPRAM.2, $GDDAT
RPRAM,RO

RO
RO, SGDDAT

001126

8BAR, $BDDAT
#B81IT00, $BDDAT

001126

$GDDAT, $BDDAT
6%
BAR, $BDADR

oo1122

MSG1

001466
001464
177776

RPRAM+2,R0

9¢:

MOV

TYPE

sGET STARTING ADRS OF XFER
3GET WC

1GET ACTUAL ¢
sCONVERT TO WORD
1ADD TO BASE ADRS
tREAD BAR ADRS
;tELIMINATE LS8
1CORRECT?
1BR IF SO
1SET UP BAR ADRS

1GO RESYNC ON ERROR

RPRAM,R1
0177776.R2
R3

1GET WORD COUNT
sGET 1ST DATA PTRN (FLOATING O)
1R SAYS WHEN TO SHIFT PTRN
1COMPARE DATA IN DBUF TO EXPECTED
1BR IF DATA ERROR
s1COUNT THE WORD COUNT
1BR IF DATA CHECKS DONE
sCONVERT PTRN TO FLOATING 1
sTIME TO SHIFT?
s1BR IF NOT - GO CK NEXT
1FLOAT PTRN LEFT
sXEEP LSB SET
1GO RESET FLOATING PTRN

8s
RO, $BDADR
R2, $GDDAT

104000+13

1GO RESYNC ON ERROR

104

R%.(RO)O

015776

1GO RESYNC ON ERROR
sLD EXPECTED WC
sREAD WCR
1BR IF SO
1SET UP WCR ADRS

+MSG1

015776

001126
001122
001124

84-1

MSG1

1GET BUFFER ADRS

1GO CHECK NEXT
1GET BAD DATA
1GET MEM ADRS OF DATA ER
1LD EXPECTED DATA

CZORXBO DR11-W INTRFROC EXER
WORDS FROM MASTER

MACRO M1200

1437

1438
1439
1440
1441
1442
1443

27-DEC-83

11:11

PAGE

E4
85

SEQ 43

tERROR IN SLAVE-WAIT FOR MASTER STATUS
007316

000005

007320
007326
007334
1444 007336
1445 007344
1446 007346
1447
1448
1449
1450
1451
1452 007350
1453 007356
14754 007364
1455 007372
1456 007374
1457 007402
1458 007404
1459 007406
1460 007410
1461
1462
1463

017737
042737
001404
022737
001365
104412

112777
017737
042737
001405
022737
001402
000764
104412
004737

10%:

RESET

s TELL MASTER WE HAVE ERROR

172074
170777

001450
001450

15¢:

MOV

8CSR, SAVE

001000

001450

16%:

cMP
BNE
RSYNC

#1000, SAVE
15

FLIE

000002

172042

172036
170777

001450
001450

001000

001450

011360

13¢:
143

31%:
30s:

BIC
BEQ

@170777,SAVE
24

;LOOP ON ERROR

1BUT WAIT FOR MASTER

'
tRSYNC ON ERROR

tNO ERROR IN SLAVE-WAIT FOR MASTER STATUS

MOVE

s TELL MASTER ALL OK

;SAVE 'STAT*

#2,8CSR

MOV

®CSR, SAVE

{READ CSR

BEQ

#1000, SAVE
30¢
143
PC.RSTVEC

314

:IS ER IN MASTER?

8IC

cHe
BEQ
BR
RS YNC
JSR

0170777,SAVE

BITS ONLY

{MASTER OK?

JRSYNC ON ERROR
1GO RESTORE VECTOR

CZDRKBO DR11-W INTRPROC EXER
WORDS FROM MASTER

MACRO M1200

27-DEC-83

1465

PAGE

F4
86

SEQ 44

1BURST MODE WORD XFER TEST DETERMINATION

1466

1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482

11:11

11000000000000000000000000000000000000000000000000000000000000040

tDETERMINE IF BURST XFERS AND BURST DATA LATE ARE
: DONE

TO BE

1308 0 0 08 8 0000080080008000000808080888000480000008000000000000s

007414

004737

013666

007420
007426
007432
007434

012737
005337
001375
013737

001000
001444

001444

001434

001442

007442
007450
007456

067737
023727

171754

001442
000256

1483 007460
1484 007464
1485 007470

005077
004737
000137
012777
004737

1486 007474
1487 007502
1488

001406

001442

171736
013754
011156
013754

SLBRD:
18:

JSR

PC,WTCMPN

tWAIT FOR MASTER TO INDICATE

MOV
DEC

#1000, TIME

sWAIT ON MASTER

TIME
14
BOARD, TOTAL

8BDR, TOTAL

TOTAL
, 0256
2t

sWHAT BOARD TYPE IT

;DETERMINE IF BOTH MASTER

sAND SLAVE ARE DR11W'S

;00 BURST MODE

8BDR

PC.GOCMPN

171720

2%:

MOV

SLVFIN

:NO BURST MODE

CZDRKBO DR11-W INTRPROC EXER
MACRO M1200
27-DEC-83 11:11
& STST4 BURST MODE WORD XFER TEST-SLAVE RECEIVES 32

PAGE

G4
87

SEQ 45

1490
1491
1492

.SBTTL

1494
1495
1496

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

1498 007506
1499 007506

57574

.SBTTL

& STST4 BURST MODE WORD XFER TEST-SLAVE RECEIVES 32

WORDS FROM MASTER(DR11-W TO DR11-W ONLY)

110800000000000000000000000040000000000000000000000000000080000000

1493

11000004000000000000000000000000000000000000000040000000000000000

110000000000 00000800000000000000000000000000000000000000800000000

1497

1500 007512
1501 007520
007524
007526
007532
007540
007542
007546
007550
007554
007556
007564
007572
007600
007604

110000000000000000000000000000000000000000000000008000000000000400

004737
012737
005337

013777
004737
017737

010000
001464
001466
014076
171610

001444
171622
171616
001446

JSR
MOV
DEC
BNE
CLR
cHP
BNE
JSR
38
JSR
-32.
MOV
MOV
MOV
JSR
MOV

052737

000002

001446

8IS

001375
005077
022777
001372
004537
007732

014050
001000
001444

171666
001200

011400

007612

042737

100000

007626
007634

013777
012777

001446
000103

007650
007656
007664
007672
007700
1526 007706
1527 007714

017737
017737
042737
(42737
013777
012737
013737

171544
171536
100000
000100
001446
000302
001420

104401

016030

007642
007646

1528
1529 007722
1530 007726
1531 007730
1532 007732
1533 007734
1534 007742
1535 007750
1536 007756
1537 007764
1538 007772
1539 010000
1540 010006
1541 010010
1542
1543 010016
1544 010022
1545 010024
1546 010026

005337
001375

104007
000540
022626

017737
017737

042737
042737
013777
012737
023737
001407

171660

011340

004537
177740
012737
013777

007620

001444

171460
171452

100000
000100
001446
000302
001124

013737

001420

104401
104010
000502
005037

016030
001124

1%:

40%:
414:

39%:

001446

171564
171556

001126
001446
001446
001446
171512
001124
001122

8IC

2s:

MOV
MOV

DEC
BNE

MOV
MOV
8IC
B8IC
MOV
MOV
MOV
TYPE

001126
001446

001446
001446
171426
001124
001126

001122

104000+7
BR
3¢:
cHp

MOV
MOV

8IC
B8IC
MOV

MOV
cHpP
BEQ

MOV

TY
104000.10
BR
as:
CLR

PC,CPUHI
01000, TIME
TIME

40
8CSR
#1200,8CSR
414
RS,SETVEC
RS ,CLRBUF

#10000, TIME
RPRAM, SWCR
RPRAM+2, 8BAR
PC,CPULO
8CSR, TEMP
#BITiS, TEMP

02, TEMWP

TENP, BCSR
€103,8CSR

TIME
24

8CSR, $BODAT
8CSR, TEMP
#BIT1S,TEMP
€100, TEMP
TEMP,8CSR
9302, $GDDAT
CSR, $BDADR

tNO INTRS ALLOWED

YET

sONLY DSTATC AND READY SET

1SET UP
tRETURN
1GO CLR
100 32.
$SET UP
1SET UP
1SET UP

THE INTR RETURN ADRS
TO 3¢ ON DATO INTR
'DBUF’
LOCATIONS
A TIMER VALUE
WORD COUNT
BUFFER ADRS
tALLOW THE INTR

tFNCT 1
sSET UP CONTROL

sWAIT FOR INTR
sUNTIL ZERO
tREAD CSR

- FNCT

€ GO

SHOULD NEVER GET HERE

1DISABLE IE
sLD EXPECTED RODY,
1SET UP CSR ADRS

IE € FNCT

«MSG2

1GO RESYNC ON ER

SCSR, $8DDAT
S8CSR, TEMP

tREAD STATUS

(SP)+,(SP).
0BIT1S,TEMP
€100, TEMP
TEMP,8CSR

#9302, $GDDAT
$GDDAT, $BDDAT
4

CSR, $BDADR

tFIX STACK SINCE NO RETURN

1DISABLE IE
sLD EXPECTED
;CORREC T?
1BR _IF

RODY,

1SET WP CSfl ADRS

JMSG2
104
$GDDAT

1GO RESYNC ON ERROR
1LD EXPECTED WC

IE € FNCT

MACRO M1200
CZDRKBO DR11-W INTRPROC EXER
WORDS FROM MASTER(DR11-W TO DR11-W ONLY)

1547 010032
1548 010040
1549 010042
1550
1551 010050
1552 010054
1553 010056
1554 010060
1555 010066
1556 010072
1557 010074
1558 010076
1559 010102
1560 010110
1561 010116
1562 010124
1563 010126
1564
1565 010134
1566 010140
1567 010142
1568 010144
1569 010150
1570 010154
1571 010160
1572 010162
1573 010164
1574 010166
1575 010170
1576 010172
1577 010174
1578 010176
1579 010200
1580 010202
1581 010204
1582 010206
1583 010210
1584 010214
1585 010220
1586
1587 010224
1588 010230

017737
001407
013737

171356

001126

001414

001122

104401

016030

104011
000465
013737
013700
005400
006300
060037
017737
042737

023737
001407
013737

104401
104012
000433
013700
013701
012702

001466
001464

001124

171310

000001
001124

001416
016030
001466
001464

177776

001124

H4
27-DEC-83

016030

PAGE

MOV
BEQ
MOV

8WCR, $BDDAT
54
WCR, $BDADR

TYPE

+MSGe

104000+11
BR
5Ss:
MOV
MOV
NEG
ASL

ADD
MOV
8IC

001122

BEQ
MOV

64
BAR, $BDADR

TYPE

+MSG2

001126

cHpP

104000.12
BR
68
MOV
MOV
78

MOV

cvpP

87-1

10¢
RPRAM.2, $GDDAT
RPRAM,
RO
RO

001126
001126

RO, $GDDAT
8BAR, $BDDAT
e8IT00, $BDDAT

$GDDAT, $BDDAT

104
RPRAM+2 ,RO
RPRAM,
R1

0177776, ,R2

SEQ 46

+READ WCR

1BR _IF SO

1SET UP WCR ADRS

1GO RESYNC ON ERROR
tGET STARTING ADRS OF XFER
sGET WC

1GET ACTUAL ¢
sCONVERT TO WORD
1ADD TO BASE ADRS
sREAD BAR ADRS
sELIMINATE LSB
;CORRECT?
:BR IF SO
:SET UP BAR ADRS

1GO RESYNC ON ERROR

CLR

BNE
INC
BEQ
com
com
BNE

94
R1
134
R2
R3
8¢

:1GET 1ST DATA PTRN (FLOATING 0)
:R3 SAYS WHEN TO SHIFT PTRN
;COMPARE DATA IN DBUF TO EXPECTED
1BR IF DATA ERROR
sCOUNT THE WORD COUNT
1BR IF DATA CHECKS DONE
sCONVERT PTRN TO FLOATING 1
;:TIME TO SHIFT?
1BR IF NOT - GO CK NEXT

R2
74
8¢
-(RO), $BODAT
RO, $BDADR
R2, $GDDAT

sKEEP LSB SET
1GO RESET FLOATING PTRN
:1GO CHECK NEXT
:GET BAD DATA
1GET MEM ADRS OF DATA ER
;LD EXPECTED DATA

ASL

001126
001122
001124

11:11

INC
8CC
BR
MOV
MOV
MOV

R2,(RO).

+MSG2

1tFLOAT PTRN LEFT

MACRO M1200
CZDRKBO DR11-W INTRPROC EXER
WORDS FROM MASTER(DR11-W TO DR11-W ONLY)

1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601

27-DEC-83

:ERROR

010232
010234
010242
010242
010250
010256

010260
010266
010274
010302
010304
010304
010312
010314
010314

000005
012777

000010

171156

017737
042737
001771

171152
170777

001450
001450

017737
042737
022737
001404

171134
170777
005000

001450
001450
001450

022737
001353

004000

001450

10%:

15%:

16%:
24%:

104412

RESET
MOV

11:11

PAGE

14
88

SEQ 47

IN SLAVE-WAIT FOR MASTER

STATUS

s TELL MASTER WE HAVE AN ERROR

: THIS SECTION MODIFIED FOR STATUS LINE SKEW.
MOV
8IC
BEQ

8CSR, SAVE
€170777,SAVE
15¢

:+
:
+

MOV
8IC

8CSR, SAVE
#170777,SAVE

+ RE-READ STATUS
+ CLEAR DON'T CARES

244

cMP

#5000, SAVE

cHpP
BNE

4000, SAVE
15¢

BEQ

RSYNC

READ STATUS
CLEAR DON'T CARES
IF COMPANION NOT READY THEN LOOP

s+ CHECK FOR COMPANION O
IF EQ THEN RESYNC

ELSE CHECK FOR COMPANION ERROR
¢+ IF NE THEN COMPANION STILL NOT READY
+

RSYNC ON ERROR

iNO ERROR IN SLAVE-WAIT FOR MASTER STATUS
010316
010324
010324
010332
010340
010342
010350
010356
010364
010366
010374
010376
010376
010400
010400

012777

000012

171074

017737
042737
001771

171070
170777

001450
001450

017737
042737

171052
170777
005000

001450
001450
001450

022737

001405

022737
001353

144

31%:

011360

MOV

30¢:

#12,8CSR

TELL MASTER ALL 0K

s THIS SECTION MODIFIED FOR STATUS LINE SKEW.
MOV
8IC

8CSR, SAVE
#170777,SAVE

MOV
8IC
cHP

8CSR, SAVE
#170777,SAVE
#5000, SAVE

BEQ

001450

104412
004737

13%:

144

BEQ

30¢

cHP
BNE

#4000, SAVE
144

RSYNC
JSR

s+ READ CSR
+ SAVE 'STAT'

BITS ONLY

+ IF COMPANION NOT READY THEN LOOP
RE-READ STATUS
CLEAR DON'T CARES
CHECK FOR COMPANION OK

IF MASTER OK THEN CONTINUE

ELSE CHECK FOR COMPANION ERROR
s+ IF NE THEN COMPANION STILL NOT READY
+ RSYNC ON ERROR

PC.RSTVEC

+ GO RESTORE VECTOR

CZDRKBO DR11-W INTRPROC EXER
¢

STSTS BURST DATA LATE

27-DEC-83

11:11

PAGE

TEST-SLAVE RECEIVES S WORDS

1635
1636
1637
1638
1639
1640

.SBTTL
.SBTTL

.SBTTL

Jad
89

SEQ 48

« STSTS BURST DATA LATE TEST-SLAVE RECEIVES S WORDS
FROM MASTER AND TIMES OUT WHILE EXPECTING MORE
.

(DR11-W TO DR11-W ONLY)

118828820828 00482002080800000800800080800888080808084000040000000000

1188888820084448400808800808000000000000008000088080000080080800008

$SETS UP TO RECEIVE 10 WORDS IN BURST MODE FROM MASTER,
1BUT MASTER WILL ONLY SEND S WORDS.
s TIMEOUT OCCURS AND THE BUS IS RELEASED
s THEN CHECKS FOR PROPER INTERRUPT STATUS, WC, BA € DATA
sIF AN ERROR IS DETECTED THE SLAVE TELLS THE MASTER, REPORTS THE
tERROR, AND RESYNCS ON PROGRAM
+IF ALL OK THEN THIS COMPUTER BECOMES MASTER AND GOES TO MTST1

1641
1642

1643
1644
1645
1646
1647
1648
1649
1650
1651
1652
1653
1654
1655

MACRO M1200

110000000000000000000000000000000000000000000000000008880880088000
110000000800000000000080000080000000000000800000000800080000000000

010404
010404
010410
010416
010422

010436

004737
012737
005337
001375
005077
022777
001372
004537
010550
004537
177740
012737
013777
013777
004737
017737
042737
052737
013777
013777
005337
001375
000416
017737
042737
042737

013777
104017
000471
017737
032737
001412
013737
013737
104401
104014
000450
012777
017737

STSTS:
1¢:

014050
001000
001444

40%:

170770

414:

BNE
CLR

40
8CSR

0{200+8CSR

sONLY DSTATC AND READY

011340

39s:

JSR

RS,SETVEC

1SET UP THE INTR RETURN ADRS

JSR

RS ,CLRBUF

:GO CLR 'DBUF’

001200

011400
040000
001500

JSR

PC,CPUHI

DEC

TIME

MOV

g;:

MOV

MOV
MOV
JSR

001502
014076
170712
100060
000002

MOV
8IC
BIS
MOV

001446
001504

€1000, TIME

440000, TIME

RCVTMO, SMWCR
RCVTMOD+2,8BAR
PC,CPULO
8CSR, TEMP
#BIT1S, TEMP
02, TEMP
TEMP ,8CSR

'?;mwthTMOQ+8CSR
i

001444

F~1 1

170644

2s:

MOV

8CSR, TEMP

000100
001446

BIC
MOV
104000+17
BR

€100, TEMP
TEMP ,8CSR

170610
000200
001446
001420
016062

100000
170540

3s:

DEC

BNE
BR

B8IC

#BIT1S,TEMP

104

TYPE

MOV

;s RETURN TO 2% ON DATO INTR
$SET UP A TIMER VALUE

$SET UP WORD COUNT
1SET UP BUFFER ADRS
sALLOW THE INTR
sFNCTL

$1SET UP CONTROL:IE,FNCT1 € GO
s THEN SLAVE BUS WILL BE HELD FOR DURATION
$1OF BURST XFERS; TIMEOUT WILL OCCUR WITH SUBSEQUENT
sRELEASE OF BUS AND PROGRAM CONTINUATION

8CSR, $BDDAT
#B8IT7,$BDDAT

104000+14
BR

sDELAY ON MASTER

sWAIT FOR MASTER TO SETUP;

25¢

MOV
BIT

BEQ
MOV
MOV

Ss:

TIME

sNO INTRS ALLOWED YET

Ss
TEMP, SGDDAT
CSR, $BDADR

:1GO TO CHECKS
1DISABLE IE

iREAD STATUS
s TEST READY BIT

10¢

#B81IT15,8CSR
8CSR, $BDDAT

;GO TO EIR
1SAVE EIR

CZDRKBO DR11-W INTRPROC EXER
(DR11-W TO DR11-W ONLY)
1692 010662
1693 010670
1694 010672
1695 010700
1696 010706
1697 010714
1698 010720
1699 010722
1700 010724
1701 010732
1702 010740
1703 010746
1704 010750
1705 010756
1706 010762
1707 010764
1708

032737
001015
042737
012737
013737

104401
104022

000421
012737
017737

023737

001441
013737
104401
104011
000400

MACRO M1200

1<4
27-DEC-83

001000

001126

gg{

000400
101000
001420
016062

001126
001124
001122

BIC

177773
170456
001124

001124
001126
001126

001414
016062

001122

PAGE

89-1

:eIT9.0BDDAT
2101000, $GODAT
CSR, $BDADR
+MSG3

MOV

@177773, SGDDAT

MOV
cMP
BEQ
MOV

TYPE

104000+11

SEQ 49

)

: TEST BURST DATA LATE BIT

0BIT8, $BDDAT

MOV
MOV
TYPE

104000+22
BR

as:

11:11

10%

:GO RESYNC ON ERROR

SWCR, $BDDAT
$GDDAT, $BDDAT
134
WCR, $BDADR

sREAD WCR
s CORRECT?
tBR IF SO
$SET UP WCR ADRS

10¢

1GO RESYNC ON ERROR

+MSG3

;LD EXPECTED WC

)

1709

1710
1711
1712
i713
1714
1715
1716
1717
1718
1719
1720
1721
1722
1723
1724
1725
1727
1728
1729
1730
1731

;ERROR IN SLAVE-WAIT FOR MASTER STATUS
010766
010770
010776
010776
011004
011012

011014
011022
011030
011036
011040
011040
011046
011050
011050

000005
012777

000010

170422

017737
042737
001771

170416
170777

001450
001450

017737
042737
022737
001404

170400
170777
005000

001450
001450
001450

022737
001353

004000

001450

10%:

15s:

MOV

8CSR, SAVE

BEQ

15¢

1733
1734

1736 011052
1737
1738

#170777,SAVE

1746
1747 011076
1748 011076

+ READ STATUS

s+ CLEAR DON'T CARES

IF COMPANION NOT READY THEN LOOP

8CSR, SAVE

cHP

#5000, SAVE

3 CHECK FOR COMPANION OK

cHP
BNE

#4000, SAVE
15¢

BEQ

2170777, SAVE

RSYNC

RE-READ STATUS

s+ CLEAR DON'T CARES
:+

IF EQ THEN RESYNC

: ELSE CHECK FOR COMPANION ERROR
s+ IF NE THEN COMPANION STILL NOT READY
s+ RSYNC ON ERROR

13s¢:

RESET

tSLAVE HAS TIMED OUT LEAVING

tREADY CLEAR. FNCT BITS TO DSTAT
1BITS COMMUNICATION CAN BE

1739

1745

ERROR, INIT

iNO ERROR IN SLAVE-WAIT FOR MASTER STATUS

1735

1740
1741 011054
1742 011062
1743 011066
1744 011070

+ IF

MOV

8IC

16%:

€10,8CSR

s THIS SECTION MODIFIED FOR STATUS LINE SKEW.
8IC

244
:;

104412

RESET
MOV

012737
005337
001375
012777

017737

010000
001444

001444

000012

170322

170316

001450

11%;

14%;

MOV #10000, TIME
DEC TIME
BNE 114
MOV
€12,8CSR

sRESUMED BY SETTING READY.RESET
sWILL SET READY.

s TELL MASTER ALL OK

s THIS SECTION MODIFIED FOR STATUS LINE SKEW.
MOV

8CSR, SAVE

+ READ CSR

CZDRKBO DR11-W INTRPROC EXER
(DR11-W TO DR11-W ONLY)

MACRO M1200

27-DEC-83 11:11

PAGE 89-2

1749 011104
{;2? 011112

042737
001771

170777

001450

8IC
BEQ

i
:+

1752
1753
1754
{;gz

011114
011122
011130
011136

017737
042737

170300
170777
005000

001450
001450
001450

MOV
8IC
CMP
BEQ

8CSR, SAVE
#170777,SAVE
#5000, SAVE
EOPT

+ RE-READ STATUS
+ CLEAR DON'T CARES
s+ CHECK FOR COMPANION OK
:+ IF MASTER OK THEN END OF PASS

1757 011140
i?S.,sg 011146

022737
001353

004000

001450

CMP
BNE

#4000, SAVE
144

s+ ELSE CHECK FOR COMPANION ERROR
+ IF NE THEN COMPANION STILL NOT READY

1760 011150

104412

1762 011152

004737

1764 011156
1765 011160
1766 011164
1767 011166
1768 011172
1769 011174

104407
005737
001055
005337
001052
012737

1761 011152

1763 011156

022737
001405

EOPT:

011360

SLVFIN:

001452
001454
000144

001454

RSYNC

SAVE 'STAT' BITS ONLY
IF COMPANION NOT READY THEN LOOP

s RSYNC ON ERROR

JSR

PC,RSTVEC

:GO RESTORE VECTOR

CKSWR
TST
BNE
DEC
BNE
MOV

MSTER
EOPTA
ICOUNT
EOPTA
2144, ICOUNT

:GO CHECK SWR
tWERE WE STARTED AS MASTER?
$BR IF NOT
sCOUNT TEST PASS
:BR IF NOT DUE FOR 'END PASS' MSG
sRESET PASS COUNT TO
100 ITERATIONS

SEQ 50

CZDRKBO DR11-W INTRPROC EXER
END OF PASS ROUTINE

MACRO M1200

1771

27-DEC-83

.SBTTL

M4
11:11

PAGE

390

SEQ@ 51

END OF PASS ROUTINE

1000000000000 000000000000000000000000000000000000800800000000004

s *INCREMENT THE PASS NUMBER ($PASS)

;#TYPE

"END PASS &#XXXXX"

(WHERE

;#IF THERES A MONITOR GO TO IT
;¢IF THERE ISN'T JUMP TO EOPTA
$EOP:
001102
001100
100000

$EOPCT:
$ENDCT:

011303

001100
011300
000042

116

1772
1773
1774
1775

000
012737
005337
001375
000137

$TSTNM
$PASS

:3ZERO THE TEST NUMBER
: s INCREMENT THE PASS NUMBER

(PC)e

::LOOP?

BIC

#100000, $PASS

.WORD

DEC
BGT

$DOAGN

MOV

(PC)+,8(PC).

TYPE
MOV
TYPDS
TYPE

« SENDMG
$PASS, -(SP)

.WORD
$SEOPCT

. SENULL

s:sDON'T ALLOW A NEG. NUMBER

:3YES

3 sRESTORE COUNTER

:sTYPE "END PASS o"
1 sSAVE $PASS FOR TYPEOUT
:+3GO TYPE--DECIMAL ASCII WITH SIGN
::sTYPE A NULL CHARACTER

$GET42: MOV

8042,R0

$ENDAD:

JSR

PC.(RO)

::GO TO MONITOR

JMP

8(PC)+

: sRETURN

MOV
DEC

01000, TIME
TIME

:SET UP A COUNT
:STALL FOR OTHER CPU TO BECOME SLAVE

MINIT1

sNOW BECOME MASTER

$DOAGN:

377
012

IS A DECIMAL NUMBER)

—

CLR
INC

001100

XXXXX

SRTNAD:
$ENLL:
$ENDMG:

BEQ
RESET
NOP
NOP
NOP
.WORD
.BYTE
ASCIZ

$DOAGN

: sGET MONITOR ADDRESS

: sBRANCH IF NO MONITOR
: sCLEAR THE WORLD
: s SAVE ROOM
1 sFOR
:3ACT11

EOPTA
-1,-1,0
i sNULL CHARACTER STRING
<15><12>/END PASS @/

101
040
001000
001444

002760

EOPTA:
EOPTB:

BNE

EOPTB

sUNTIL TIME=O

CZDRKBO DR11-wW INTRPROC EXER

MACRO M1200

1777
1778
1779
1780
1781
1782
1783

27-DEC-83 11:11

.SBTTL
.SBTTL
L

PAGE

N4
91

SEQ 52

PROGRAM SUBROUTINES
L

Y Y

Y Yy Y

PPy Y

PPV PP P

PPV

: THIS ROUTINE SETS THE PRIORITY LEVEL FOR NO INTERRUPT :SETS UP THE
INTERRUPT TO RETURN ON INTERRUPT
:TO THE ADDRESS INDICATED ((RS)) BY THE CALL +2

1106888880800 0000000040000000000000000400000000000040000000000000

011340
011344
011350
011356

004737
012577
012777
000205

014050
170054
000200

SETVEC:
170050

JSR
MOV
:?g

PC,CPUHI
(RS)+,80RVCTO
:gOO.flDRVCTZ

:SET UP FOR NO INTERRUPT
;SET UP INTR RETURN ADRS
'g§§¢ PRIORITY LEVEL AT TOP ON INTR
;

110088800080844888080884048084804400848040040484004088440800080004

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

1080880 4008084000080808088040004000888008844088844488400880048000

011360

011366
011372
011376

013777
005077
004737
000207

001426
170034
014050

170036

RSTVEC:

MOV

DRVCT2,80RVCTO

;POINT VECTOR TO HALT

JSR

PC.CPUHI

sRAISE PRIORITY LEVEL

CLR
RTS

S8DRVCT2

1SET UP HALT
sEXIT

110088008088 880800800804880888000004804000408800880800880000000800800

s THIS ROUTINE CLEARS THE 'OBUF' BEFORE A 'DATI' XFER
:THE @ OF LOCATIONS IN ‘DBUF' TO BE CLEARED IS SPECIFIED BY
:THE VALUE IN THE CALL +2 - WHEN ALL CLEARED THE RETURN IS TO
s THE CALL

-4

118888888 0480800040000000008000848080400880008088000000000000000400

011400
011402
011406
011410
o11412
011414

012500
012701
001375
000205

016236

CLRBUF: MOV

1s:

(R5)+,RO

:GET THE LOC COUNT

(R1).

:CLR MEM LOC

MOV

@DBUF ,R1

INC

RTS

CLR

BNE

sGET 1ST ADRS
sCOUNT LOC

sUNTIL ALL DONE
sEXIT

CZORXBO DR11 -w INTRPROC txER

PROGRAM SUBROU
INET
S

MACRO M1200

27 DEC 8% 11:11

PAGE

G S?*

18183
1814

110000000000000000000000000000000000000000000000000000000000000080
;THIS ROUTINE LOADS 'OBUF° WITH A FLOATING ZERO/ONE PATTERN

1816

sTHE

181%
1817

:THE @ OF LOCATIONS IN

1818 011416
1819 011420

012500
012701

16823 011434

005200

1820 011424
1821 011430
1822 011432

1824 011436
1825 011440

1826 011442
1827 011444
1828 011446

1829 011450
1830 011452
1831 011454
1832 011456

012702
005003
010221

001001
000205

005102
005103
001371
006302
005202

103363
000765

VALUE

IN THE CALL

DBUF*

TO BE LOADED IS SPECIFIED B

WHEN ALL

LOADED

THE RETURN IS

T0 CALL

11000000000000000000000000000000000000000000000000000000000000000

01623¢
177776

LDBUF:
18:
2s:

MOV
MOV

(RS).,RO
e0BF ,R1

1GET LOC COUNT
1GET 1ST ADRS

INC

sCOUNT LOC

com
com
BNE
ASL
INC

R2
RS
2t
R2
Re

MOV
CLR
MOV

BNE
RTS

8CcC
BR

177776 ,R2
RS
R2,(R1).

38
RS

18
24

-4

$SET UP FLOATING ZERO PTRN
1RS SAYS WHEN TO SHIFTY PTRN
sLOAD MEM WITH PTRN
1BR IF MORE
EXIT

sCONVERT PTRN TO FLOATING 1
sSMOULD WE SHIFT?
s8R IF NOT - THIS WILL BE A FLOATING 1
1FLOAT ZERO LEFT
IKEEP LSB SET
1GO RESET FLOATING PATRN
1GO LOAD NEXT PATRN

CZDRXBO DR11-W INTRPROC EXER
SYSMAC ROUTINES

MACRO M1200

27-DEC-83

.SBTTL

1834
1835
18%

.SBTTL

PAGE

11:11

Ce
93

SEQ %4

SYSMAC ROUTINES

TYPE ROUTINE

11000000000000000000000000000000000000000000000000000000000000000

1oROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.
1¢THE ROUTINE
1oNOTEL:

WILL

1oNOTEZ2:

1 oNOTES:

INSERT

A NUMBER OF

NULL

CHARACTERS

AFTER

A LINE

FEED.

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
S$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

soCALL:
1¢1) USING A TRAP INSTRUCTION
3

1o0R
i®

TYPE

+MESADR

1 1MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

TYPE

MESADR

011540
011544
011546
011552
011556
011560
011564
011570
011572
011576
011602

24:

608 :
3s:

000011

BR
MOV
MOV
MOV8
BNE
ST

MOV

ADD

18:

HALT

011472
011474
011500

011502
011504
011506
011510
011514
011516
011522
011524
011530
011532
011534
011536

T1STB

B8PL

RTI
cMP8

BEQ
crP8
BNE
1ST
SCRLF

011630
001156

Ss:
64:

CLR8
BR
JSR
cP8
BNE
MOV

7¢:

DECB

001154

011630
011756

BLY
JSR
DECB
B

s sLEAVE
1 sSAVE RO
1 3GET ADDRESS OF ASCIZ STRING
31 sPUSH CHARACTER TO BE TYPED ONTO STACK
13BR IF IT ISN'T THE TERMINATOR
13 IF TERMINATOR POP IT OFF THE STACK

1 tBRANCH IF <HT>

1 1BRANCH IF NOT <CRLF>

<CR><LF> EQUIV
131POP
ssTYPE A CR AND LF

TYPE

011756

$3IS THERE A TERMINAL?
:13BR IF YES
s sHALT HERE IF NO TERMINAL

$TYPE:

001157

011460
011464
011466
011470

Sge -3 gas =
78

$CHARCNT
2%

PC,STYPEC

SFILLC,.(SP).
24
SNULL
, -(SP)

I(SP)

PC STYPEC
$CHARCNT

1 sCLEAR CHARACTER COUNT
13GET NEXT CHARACTER
$13GO TYPE THIS CHARACTER
uIS IT TIME FOR FILLER CHARS.?
$1IF NO GO GET NEXT CHAR,
uGEY ® OF FILLER CHARS. NEEDED
$sAND THE NULL CHAR,
13sDOES A NULL NEED TO BE TYPED?
13BR IF NO--GO POP THE NUALL OFF OF STACK
13GO TYPE A NULL
3300 NOT COUNT AS A COUNT
1 sLOOP

sHORIZONTAL TAB PROCESSOR
011604
011610
011614
011622

011630
000007

8s:

011756

9s:

MOVe
JSR

8IT8
BNE

e ,(SP)
PC,.0TYPEC

:z. $CHARCNT

1 sREPLACE TAB WITH SPACE
13 TYPE A SPACE
1 1BRANCH IF NOT AT

1:TAB STOP

CZORKBO DR11-W INTRPROC EXER
TYPE

ROUTINE

011624
011626

005726
000724

011630
011634
011636
011642

105777
100022
017746
042716

011630

011646
011652

011654

011654
011660
011662

011666

011672
011676

011700

122716
001012
105777
100375
117716

042716

122716
001366

011700

005726

011702
011706
011710
011716
011720
011726
011734
011736
011742
011744
011752
011754
011756

105777
100375
126627
001420
116677
122766
001003
105037
000406
122766
001402
105227
000000

011702

011760

000207

MACRO M1200

27-DEC-83 11:11

$TYPEC:

167310

167304
177600
000023

101%:

167264
167260
177600
000021

10%:

167242

000002

000021

000002
00001S

167224
000002

011756

000012

000002

SEQ S5

(SP).
24

1sPOP SPACE OFF STACK
1 3GET NEXT CHARACTER

1ST8
BPL
MOV
8IC
cMP8
BNE

98TKS
104
88TKB, -(SP)
#177600,(SP)

1 1CHAR IN KVOD BUFFER?
11BR _IF
11GET cm
13STRIP EXTRANEOUS BITS

TST8
BPL
MOve

84TKS
1014
987TKB,(SP)

1 sWAIT FOR CHAR

CcMPB
BNE

@3$XON, (SP)
101

1 3GET CHAR
$3STRIP IT
$sWAS IT XON?
131BR IF NOT

(SP).

$3FIX STACK

84TPS
10¢
2(SP),#3$XON
$TYPEX
2(SP),84TPB
OCR 2(SP)

1 3WALIT UNTIL PRINTER IS READY

OMCNT
$TYPEX
OLF ,2(SP)
$TYPEX
(PC).
O

13YES--CLEAR CHARACTER COUNT
s 3EXIY
13IS CHARACTER A LINE FEED?
1 $BRANCH IF YES
1 sCOUNT THE CHARACTER
: 1ICHARACTER COUNT STORAGE

TST

TST8
BPL
cvPe
BEQ
MOV8
cP8
BNE
CLR8
B8R
14:
cvPe
BEQ
INCB
SCHARCNT: .WORD
S$TYPEX:

PAGE 953-1

TST
BR

8IC

102%:

RTS

@$XOFF ,(SP)
1024

#177600,(SP)

1 1WAS CHAR XOFF
131BR IF NOT

13IS CHARACTER A RANDOM XON?
1 $BRANCH IF YES
+3LOAD CHAR TO BE TYPED INTO DATA REG.
13IS CHARACTER A CARRIAGE RETURN?
1 1BRANCH IF NO

$MJDOO1
1MJD001
sMJDOO01
$MJDOO1
:MJDOO1
+MJDOO1

$MJDOO1

$MJDOO1
$MJD001
$1MJD001
1MJDOO1

1MJDOO1
sMJDOO1

$MJDOO1

1MJD001

$MJDOO1
1MJD001
sRANOO1
sRANOO1

EL-)
BINARY

TO OCTAL

SEQ 56

(ASCII) AND TYPE

1838

.SBTTL

BINARY TO OCTAL (ASCII) AND TYPE

1 08 8 8 0 08 0000800000008800000080008000000000000000000000000000

1¢THIS ROUTINE

IS USED

TO CHANGE

16-BIT

BINARY

NUMBER

TO A 6-DIGIT

1¢0CTAL (ASCII) NUMBER AND TYPE IT.
uéHtOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
ie

;@
;e
;e

MOV

TYPOS
.BYTE
.BYTE

NUM, -(SP)
N
M

1 sNUMBER TO BE TYPED

13CALL FOR TYPEOUT
$sN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE
1iM=1 OR O
$31=TYPE LEADING ZEROS

1 10=SUPPRESS LEADING ZEROS

1&8TYPO
- - -ENTER
N- HERE

1¢8TYPOS OR $TYPOC
seCALL
:

MO,

TYPON

TO TYPE OUT WITH THE

NUM, -(SP)

SAME PARAMETERS AS THE LAST

1 sNUMBER TO BE TYPED

313CALL FOR TYPEOUT

3 e

fléxm---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

;e
011762
011766
011774
012000

017646
116637
112637
062716

000000
000001
012207
000002

012006
012014
012022
012030
012032
012034
012036
012042
012044

112737
112737
112737
010346
010446
010546
113704
005404
062704

000001
000006
000005

012004

012050
012054
012060
012064
012066
012070
012072
012074
012076
012100
012102
012104
012110

110437
113704
016605
005003
006105
000404
006105
006105
006105
010503
006103
105337
100016

012116
012120
012122
012124

001002
005704
001403
005204

012112

042703

012207
000006
012206
012205
000012

012205

012205
012207
012204

TYPOC

NUM, -(SP)

1 sNUMBER TO BE TYPED

:13sCALL FOR TYPEOUT

$TYPOS: MOV
MOV8
MOVB
ADD

8(SP),-(SP)
1(SP),SOFILL
(SP)+,$0MODE+1
02,.(SP)

+ sPICKUP THE MODE
3$3LOAD ZERO FILL SWITCH
;;NUMBER OF DIGITS TO TYPE
1 sADJUST RETURN ADDRESS

$TYPOC:

#1,00FILL
#6,80M0DE -1
@5, SOCNT
RS, -(SP)
R4, -(SP)
RS, -(SP)
$OMODE +1 ,R4
RS
6 ,R4

$3SET THE ZERO FILL SWITCH
$3SET FOR SIX(6) DIGITS
13SET THE ITERATION COUNT

MOVB
MOVB
$TYPON: MOVB
MOV
MOV
MOV
MOV8
NEG
ADD

16:
24:

012206

MOV

3¢:

177770

MOVB
MOV
MOV
CLR
ROL
BR
ROL
ROL
ROL
MOV
ROL
DECB
BPL
BIC

BNE
ST
BEQ
INC

$TYPON

R4, $0MODE
SOFILL R4
12(SP).RS
R3
RS
3¢
RS
RS
RS
RS.R3
R3
$OMODE
7

®177770,R3

49
R4
S¢
R4

1 sSAVE R3
1 1SAVE R4

1 $SAVE RS
31 sGET THE NUMBER OF DIGITS TO TYPE
s3SUBTRACT IT FOR MAX. ALLOWED
$3SAVE IT FOR USE
13sGET THE ZERO FILL SWITCH
1sPICKUP THE INPUT NUMBER
1 sCLEAR THE OUTPUT WORD
1 sROTATE MSB INTO “C*
1360 DO MSB
13sFORM THIS DIGIT

$3GET LSB OF THIS DIGIT
13 TYPE THIS DIGIT?
13sBR IF NO
13GET RID OF JUNK

13 TEST FOR O
1 1SUPPRESS THIS 07
13BR IF YES
1sDON'T SUPPRESS ANYMORE 0'S

CZORKBO DR11-W INTRPROC EXER
MACRO M1200
BINARY TO OCTAL (ASCII) AND TYPE
012126
012132

052703
052703

000060
000040

012142

104401

012202

012136

110337

012146
012152

105337
003347

012156
012160
012162
012164
012166
012170
012176

005204
000744
012605
012604
012603
016666
012616

012154

012200

012202
012203
012204
012205
012206

012202

012204

27-DEC-83 11:11

S4:

7%:

002402

000002

000
000
000
000

000000

8IS
BIS

68:

000002

8%:
SOCNT:
SOFILL:

$OMODE:

.84

13GO TYPE THIS DIGIT

DECB
B8GT

SOCNT
24

INC
BR
MOV
MOV
MOV
MOV
MOV
RTI

.BYTE
.BYTE
.BYTE
.BYTE

.WORD

SEQ 57
s sMAKE THIS DIGIT ASCII
1 tMAKE ASCII IF NOT ALREADY

R3,8%

BLY

PAGE 94-1

©'0,R3
@' ,R3

MOvB
TYPE

R4
24
(SP)+,RS
(SP)+,R4
(SP)+,R3
2(SP),4(SP)
(SP)+,(SP)

0
O
O
O

1 3SAVE FOR TYPING

13COUNT BY 1
13BR IF MORE TO DO
13BR _IF DONE

$ s INSURE LAST DIGIT ISN'T A BLANK
13GO DO THE LAST DIGIT
s sRESTORE RS
s sRESTORE R4
1 sRESTORE R3
$3SET THE STACK FOR RETURNING
1 tRETURN

13STORAGE FOR ASCII DIGIT
1 s TERMINATOR FOR TYPE ROUTINE
$30CTAL DIGIT COUNTER
$3ZERO FILL SWITCH
1 sNUMBER OF DIGITS TO TYPE

CZDRKBO DR11-W INTRPROC EXER
CONVERT BINARY

TO DECIMAL AND

MACRO M1200
TYPE ROUTINE

1840

27-DEC-83

.SBTTL

11:11

PAGE

CONVERT BINARY

G5
95

SEQ 58

TO DECIMAL AND TYPE ROUTINE

11000000000000000000000080000000000000000000000000000000080000004

s¢THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A S-DIGIT
1#SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
1NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
1#BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
1 REPLACED WITH SPACES.
soCALL :
MOV
1sPUT THE BINARY NUMBER ON THE STACK
TYPDS
:13GO TO THE ROUTINE
012210
012210
012212
012214
012216
012220

1 1PUSH RO ON STACK
:3PUSH R1 ON STACK
11PUSH R2 ON STACK
:1:PUSH RS ON STACK
1sPUSH RS ON STACK
$3SET BLANK SWITCH AND SIGN
13GET THE INPUT NUMBER

MOV

#$DBLK,R3

:' +(R3)e
2
$OTBL(RO),R1
RS

$13SET THE FIRST CHARACTER TO A BLANK
1sCLEAR THE BCD NUMBER
3$3GET THE CONSTANT
1 sFORM THIS BCD DIGIT

:1sBR IF DONE
1 s INCREASE THE BCD DIGIT BY 1
1 3ADD BACK THE CONSTANT
uClfiCK IF 8CD DIGIT=0
s3sFALL THROUGH IF O
uSTILL DOING LEADING 0'S?
11BR IF YES

~NO

I(SP). -1(R3)
o0, 32

«>® e

177777

s 3sMSD?

az.éas)o
.l

(RO)«
RO, #10
2¢
8

RS,R2

177777

177776

9s:

68
(SP).
9
-1(SP), -2(R3)
R3)

e .RS

012372

LR
J

*,R3

R2
R1

ufl IF NO
13YES--SET THE SIGN
1 sMAKE THE BCD DIGIT ASCII
$sMAKE IT A SPACE IF NOT ALREADY A DIGIT
13PUT THIS CHARACTER IN THE OUTPUT BUFFER
1 3 JUST INCREMENTING

uCrECK THE TABLE INDEX
13GO DO THE NEXT DIGIT
13GO TO EXIT

13GET THE LSD
13GO CHANGE TO ASCII
$tMAS THE LSD THE FIRST NON-ZERO?
11BR IF NO
$3YES--SET THE SIGN FOR TYPING
$3SET THE TERMINATOR
1 sPOP STACK INTO RS
13POP STACK INTO R3
11POP STACK INTO R2
13sPOP STACK INTO R}

012374
012376
012402
012410
012412
012414
012416
012420
012422
012424

012600
104401
016665
012616
000002
023420
001750
000144
000012

012424
000002

27-DEC-83

MOV

TYPE
MOV

000004

$DTBL
:

11:11

PAGE

(SP).,RO
., $DBLK
2(SP),4(SP)
(SP)+,(SP)

SEQ 59

95-1

;sPOP STACK INTO RO
1 sNOW TYPE THE NUMBER
: sADJUST THE STACK
+sRETURN TO USER

MACRO M1200
CZDRKBO DR11-W INTRPROC EXER
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

CZDRKBO DR11-W INTRPROC EXER

MACRO M1200

27-DEC-83

ERROR HANDLER ROUTINE

.SBTTL

1842

11:11

PAGE

15
96

SEQ 60

ERROR HANDLER ROUTINE

110000000000000000000000000000000000000000000000000000000000000s0

1¢THIS ROUTINE WILL

INCREMENT

THE ERROR FLAG AND

THE ERROR COUNT,

1#SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL

1*AND GO

TO SWRCK ON ERROR

1¢THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
HALT ON ERROR
;4SW1S=1
INHIBIT ERROR TYPEOUTS
1oSH13=1
;6SW10=1

;sCALL

$ERROR :

001103
001102

78:

166466
166456

001160

001112
001116
000002

012550
001165
166400

1¢:
001116
001114
166416

BELL ON ERROR

ERROR

CKSWR
CKSWR

1 3TEST FOR CHANGE IN SOFT-SWR
;GO LOOK FOR SWR CHANGE
OEflF LG
$:SET THE ERROR FLAG
3sDON'T LET THE FLAG GO TO ZERO
OTSTM SDISPLAY HDISPLAY TEST NUMBER AND ERROR FLAG
SITIO..SUR
ON ERROR?
'
$3sNO - SKIP
. $BELL
3 sRING BELL
SERTTL
1 3COUNT THE NUMBER OF ERRORS
13GET ADDRESS OF ERROR INSTRUCTION

INCB

BEQ
MOV
BIT
BEQ

TYPE

INC

MOV
SuUB
HOVe
BIT

s ;ERROR=EMT AND N=ERROR ITEM NUMBER

13STRIP AND SAVE THE ERROR ITEM CODE
3 3SKIP TYPEOUT IF SET
1 3SKIP TYPEOUTS
131G0 TO USER ERROR ROUTINE

BNE
JSR

208
28:

3s:
(318282 8020 2

TYPE

TST
BPL
HALT
CKSWR

s sHALT ON ERROR
3 sSKIP IF CONTINUE

RTI

3 sRETURN

1 sHALT ON ERROR!
$3VEST FOR CHANGE IN SOFT-SWR

2400220848080040800088R0004
8480080042805 22423080308200

TYPE ERROR
160
1GO UPDATE SOFTWARE SWR IF 'CNTRL/G’

1300048800 R6EERLCEBLLR RSB ELBLBL238BDSEBLRAEDERSBLRL
G EBERESHGAR

004737
104407
000207

012560

SWRCK:

JSR
CKSWR

RTS

PC,SERRTYP

1GO TYPE ERROR
1GO LOOK FOR SWR CHANGE

tRETURN TO ERROR HANDLER

CZDRKBO DR11-W INTRPROC EXER

ERROR MESSAGE

TYPEOUT ROUTINE

MACRO M1200

1851

27-DEC-83 11:11

.SBTTL

PAGE 97

SEQ 61

ERROR MESSAGE TYPEOUT ROUTINE

1100008000000 00000000000000000000000000000000000000000000000s0sss

1#THIS ROUTINE

USES

THE

"ITEM CONTROL BYTE”

1«ERROR IS TO BE REPORTED.
1#AND REPORTS

012560
012560
012564
012566
012570
012574

104401
010046
005000
153700
001004

001165

012576

013746

001116

012602
012604
012606
012610
012612
012614

104402
000426

012622
012626
012630

005300
006300
006300
006300
062700
012037
001404
104401

012634
012640

104401
012037

012616

012632
012644
012646

012650

012652
012656

012660
012662
012664
012670

012672
012672
012674
012676

012700
012702
012706

012710

000000
001404
104401

000000

104401
011000

001004
012600
104401
000207

$SERRTYP:

001114

18:

001170

012632

2%:

001165
012650

3s:
48

001165

Ss:
64:

001165

78:

013046
104402
005710
001770
104401
000771

040

THE APPROPRIATE

000

8%:

TO DETERMINE

INFORMATION CONCERNING

» SCRLF
RO, -(SP)
RO
S0$ITEMB,RO
1s

1 s "CARRIAGE RETURN” £ “LINE FEED"”
1 sSAVE RO
31 3PICKUP THE ITEM INDEX

MOV

$ERRPC, -(SP)

1 sSAVE S$ERRPC FOR TYPEOUT
: sERROR ADDRESS
$+:GO TYPE--OCTAL ASCIICALL DIGITS)

TYPOC
BR

6¢

DEC
ASL
ASL
ASL
ADD
MOV
BEQ
TYPE

RO
RO
RO
RO
@$ERRTB,RO
(RO)+, 2%
3

TYPE
MOV

. SCRLF
(RO)+ .48

.MORD

BEQ
TYPE

TYPE
MOV

» SCRLF
(RO),RO

.MORD

BNE
MOV
TYPE
RTS

7
(SP)+,RO
« SCRLF
PC

MOV
TYPOC
TST

8(RO)+,-(SP)

.A%'I‘Z

(RO)

64
.88
7¢

WHICH

THE ERROR.

TYPE
MOV
CLR
BISB
BNE

BEQ
TYPE

012710

(S$ITEMB)

IT THEN OBTAINS, FROM THE “ERROR TABLE" (S$ERRTB),

s3IF ITEM NUMBER IS ZERO, JUST
:sTYPE THE PC OF THE ERROR

$3GET OUT

1 sADJUST THE INDEX SO THAT IT WILL
i
WORK FOR THE ERROR TABLE

: sFORM TABLE POINTER

31 sPICKUP “ERROR MESSAGE"” POINTER
1 sSKIP TYPEOUT IF uo POINTER
1sTYPE THE “ERROR MESSAGE"

1 s "ERROR MESSAGE” POINTER GOES HERE

311 "CARRIAGE RETURN” € “LINE FEED”
s sPICKUP “DATA HEADER” POINTER
1 sSKIP TYPEOUT IF O
ssTYPE THE “DATA HEADER"

13 "DATA HEADER” POINTER GOES HERE

13 "CARRIAGE RETURN” € “LINE FEED"
31 sPICKUP “DATA TABLE” POINTER

313GO0 TYPE THE DATA
1 sRESTORE RO
33 "CARRIAGE RETURN” &€ "LINE FEED"
3 sRETURN
$3SAVE 9(RO)+ FOR TYPEOUT
3360 TYPE--OCTAL ASCIICALL DIGITS)
13IS THERE ANOTHER NUMBER?
13BR IF NO
13 TYPE TWO(2) SPACES

3 1LOOP

13 TWO(2) SPACES

CZDRKBO DR11-W INTRPROC EXER
SCOPE HANDLER ROUTINE

MACRO M1200

1853

27-DEC-83 11:11

.SBTTL

I<K5

PAGE 98

SEQ 62

SCOPE HANDLER ROUTINE

110008000000000000000000000000000000000000000000000000040484400808888

+#THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT
1#AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
$#AND LOAD THE ERROR FLAG ($ERFLG) INTO DISPLAY<15:08>
isCALL

012714
012714
012716

104407
104407

012720

000416

$SCOPE
:

013746
012737
005737
012637
000404
022626
012637
000406

000004
012746

012756
012762
012766
012772
013000
013004

105237
011637

001102
001106
001103
001102
001106

105037

013777
013716
000002

: sSCOPE=IOT

CKSWR
CKSWR

$3sTEST
FOR CHANGE IN SOFT-SWR
1GO LOOK FOR SWR CHANGE

;100000START OF CWE FOR THE XOR TESTER"M
$XTSTR: BR
313IF RUNNING ON THE

012722
012726
012734
012740
012744
012746
012750
012754

012756

SCOPE

177060
000004

MOV
MOV
TST
MOV
BR
cHP
MOV
BR

SOERRVEC, -(SP)
54 ,00ERRVEC

$SVLAD:

INCB
MOV

$TSTNM
(SP), SLPADR

SOVER:

MOV
MOV
RTI

$TSTNM,S8DISPLAY
S$LPADR,(SP)

000004

Ss:

000004

80177060
(SP)+,80ERRVEC
$SVLAD
(SP)+,(SP)e
(SP)+ ,80ERRVEC
S$OVER

;;SAVE THE CONTENTS OF THE ERROR VECTOR
$3SET FOR TIMEOUT
$sTIME OUT ON
XOR?
.mesrm THE ERROR VECTOR
$13GO0 TO THE NEXT TEST
$3sCLEAR THE STACK AFTER A TIME OUT
;;RESTORE THE ERROR VECTOR
33LO0OP ON THE PRESENT TEST

68:;00000END OF CODE FOR THE xoa TESTERGGGOO

166142

CLR8S

$ERFLG

“XOR” TESTER CHANGE

HTHIS INSTRUCTION TO A "NOP” (NOP=240)

3 sCOUNT TEST NUMBERS
s sSAVE SCOPE LOOP ADDRESS
ZERO THE ERROR FLAG
nDIS’LAY TEST NUMBER
1 sFUDGE RETURN ADDRESS
1 sFIXES PS

CZORKBO DR11-W INTRPROC
TTY

INPUT ROUTINE

EXER

MACRO M1200 27-DEC-83 11:11

1855

.SBTTL

TTY

PAGE 99

SEQ 63

INPUT ROUTINE

1180008880882 88408088888004004000080000000080008800808080880000008

.ENABL

LSB

11000000000000000000000000000000000000040400000000000000000000008

000176

001140

166122

1*SOF TWARE SWITCH REGISTER CHANGE ROUTINE.
1*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL
1*SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP CALL
s *WHEN OPERATING IN TTY FLAG MODE.
S$CKSWR: CMP
OSWREG, SWR
13IS THE SOFT-SWR SELECTED?
BNE
15¢
1 sBRANCH IF NO

TST8B

166116

000001

013543
013550
000176

166040

BIC
cHP
BNE

otC177,(SP)
®7,(SP)+
15¢

1 sSTRIP-OFF THE ASCII
$3IS IT A CONTROL G?
313sNO, RETURN TO USER

cMP8
BEQ

7%:

166034
177600

013116
013122
013124
013130
013134

000025

9s:

013536
000006

.
20¢:

013136
013142
013144
013150
013152
013160
013164
013170
013176
013200
013206
013210
013214
013220

000015

108:

000004
000002
000006
001165
001135

000001

000100

165736

000060

1 sCHAR THERE?
$3IF NO, DON'T WAIT AROUND

TYPE
$GTSWR: TYPE
MOV
TYPOC
TYPE
19¢:
CLR
CLR

013561

011630

88TKS
154

MOVB

177600
000007
001134

BPL

165760

118;
148;

15¢;

164:

94TKB, -(SP)

$AUTOB, #1
15¢

. SCNTLG
. SMSWR
SWREG, -(SP)

1 sSAVE THE CHAR

$3ARE WE RUNNING IN AUTO-MODE?
1 sBRANCH IF YES

« SMNEW
-(SP)
-(SP)

$+sECHO THE CONTROL-G (*G)
1 sTYPE CURRENT CONTENTS
: sSAVE SWREG FOR TYPEOUT
313GO TYPE--OCTAL ASCIICALL DIGITS)
1 sPROMPT FOR NEW SWR
1 sCLEAR COUNTER
1 sTHE NEW SWR

s 3IF NOT TRY AGAIN

TST8

88TKS

MOVB
BIC

88TKB, -(SP)
®*C177,(SP)

:3sPICK UP CHAR
s sMAKE IT 7-BIT ASCII

cHp
BNE
TYPE
ADD
BR

(SP),#25
104
« SCNTLV
#6,5P
194

33IS IT A CONTROL -U?
1 sBRANCH IF NOT
313YES, ECHO CONTROL-V (tU)
1 1 IGNORE PREVIOUS INPUT
s3LET'S TRY IT AGAIN

cp
BMNE
TSTBEQ
MOV
ADD
TYPE
cHP8
BNE
MOV

(SP),e15
164
4(SP)
114
2(SP),8SuR
#6,5P
+ SCRLF
S$INTAG, #1
15¢
#100,94TKS

13IS IT A <CR>?
31 1BRANCH IF NO
$3YES, IS IT THE FIRST CHAR?
1 1BRANCH IF YES
1 sSAVE NEW SWR
13CLEAR UP STACK
1 sECHO <CR> AND <LF>
1 sRE-ENABLE TTY KBD INTERRUPTS?
1 sBRANCH IF NOT
1 tRE-ENABLE TTY KBD INTERRUPTS

JSR

PC,$TYPEC

1 sECHO CHAR

BPL

RTI

cHP
BLT

(SP),#60
184

1 sCHAR THERE?

1 sRETURN

1sCHAR < 07
1 1BRANCH IF YES

CZDRKBO DR11 -W_ INTRPROC EXER
TTY

INPUT ROUTINE

013222
013226
013230
013234
013240
013242
013244
013246
013250
013254
013260
013262
013266

021627
003015
042726
005766
001403
006316
006316

006316
005266

056616
000707
104401
000720

MACRO M1200

27-DEC-83

000067

17%:

001164

18%:

SEQ 64

BIC

#60,(SP).

1 sSTRIP-OFF ASCII

BEQ

2(SP)

; stBRANCH IF

13IS

YES

THIS THE FIRST CHAR

: tBRANCH IF YES

ASL

(SP)

ASL
INC

(SP)
2(SP)

Y
ROOM FOR NEW ONE.
s sKEEP COUNT OF CHAR

.OMS

s3sTYPE 2<CR><LF>
$ sSIMULATE CONTROL
-V

BIS
BR

TYPE

.DSABL

99-1

1:CHAR > 7?2

ASL

177776

PAGE

(SP),067

TST

000002

CcMP

BGT

000060
000002

11:11

LSB

(SP)

-2(SP).(SP)

204

1 3NO, SHIFT PRESENT
i

CHAR OVER TO MAKE

$3SET IN NEW CHAR
1 sGET THE NEXT ONE

1:088808480848888880802888080008800088080888080000888888084880808000400

+¢THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY
soCALL:

RDCHR

RETURN MERE

s sINPUT A SINGLE CHARACTER FROM THE TTY
: sCHARACTER IS ON THE STACK
: sMITH PARITY

BIT

STRIPPED

OFF

SROCHR: MOV
165640

18:

: 3SAVE THE PS

BPL
MOV

1
98TKB,4(SP)

s sA CHARACTER
s sREAD THE TTY

BIC

165606

BNE

24:

TST8

BPL
MOV8
BIC

165602
177600
000021

cMP
BNE
BR
cHP
BEQ
cHP
BLTY
cHP
BGT
B8IC

3s:
000140
000175
48

: sPUSH DOWN THE PC

A(SP),2(SP)

TST8

165634
177600

(SP),-(SP)

MOV

RTI

88 TKS

0tCc177>,4(SP)

4(SP),e23

i sMAIT FOR

;;GET RID OF JUNK IF ANY

$3IS IT A CONTROL-S?

:1 sBRANCH IF NO

24
88TKB, -(SP)
o*C177,(SP)

3:LOOP UNTIL ITS THERE
: sGET CHARACTER
;s sMAKE IT 7-BIT ASCII

887KS

(SP).,021

2%
14
4(SP),08X0ON
14

4(SP), 0140
44
4(SP), 0175
44
#40,4(SP)

s sWAIT FOR A CHARACTER

$13IS IT A CONTROL-Q?
33IF NOT DISCARD IT
13 YES, RESUME
$13IS IT A RANDOM XON?
1 sBRANCH IF YES
13IS IT UPPER CASE?
1 sBRANCH IF YES
$13IS IT A SPECIN. CHAR?
3 sBRANCH IF YES
uHME IT UPPER CASE

:RANOO1
:RANOO1

13GO0 BACK TO USER

11008884808 004848088888808400008808088880008880088888008024800808000888

“E:EE ROUTINE WILL INPUT A STRING FROM THE TTY
e

e
T

013420
013422
013426

010346
012703
022703

013526
013536

ROLIN

RETURN HERE

$ROLIN: MOV
1%:
MOV
2%:
cHP

RS, -(SP)
@$TTYIN,R3

@$TTYIN+8.,R3

1 3INPUT A STRING FROM THE TTY

1 tADDRESS OF FIRST CHARACTER WILL BE ON THE STACK

+ s TERMINATOR

1 :SAVE R3
11GET ADDRESS

WILL

;;BUFFER FULL?

BYTE

ALL

0'S

CZDRKBO DR11-W INTRPROC EXER
TTY

INPUT ROUTINE

013432
013434
013436
013440
013444
013446
013452
013454
013460
013464
013470
013472
013476
013502
013504
013506
013514
013522
013524
013525
013526
013536
013541
013543
013546
013550
013553

013556
013561
013564
013567

101405
104410
112613
122713
001003
104401
000763
111337
104401
122723
001356
105063
104401
012603
011646

016666
012766
000002
000
000

136
012
136
012
015
127

MACRO M1200

27-DEC-83

11:11

BLOS

RDCHR

000177

10%:

001164

4s:

013524
013524
000015

3%:

0177,(R3)
38

TYPE

MOvB
TYPE

(R3),9¢
94

MOV
MOV
MOV

(SP)+,R3
(SP),-(SP)
4(SP),2(SP)

9s:

.BYTE

$TTYIN:

.BLKB

000002
000004

015

+ $QUES

015,(R3)+
2
-1(R3)

TYPE

:?}

S$CNTLU:

.BYTE

.ASCIZ

99-2

(SP)+,(R3)

CMPB
BNE

CMPB
BNE
CLRB

177777
001166

000004
013526

MOvVB

PAGE

o SLF

O$TTYIN,4(SP)

ssTYPE A

' 2

:3sCLEAR THE BUFFER AND LOOP
1 sECHO THE CHARACTER
: sCHECK FOR RETURN
;sLOOP IF NOT RETURN
: sCLEAR RETURN (THE 15)

:sTYPE A LINE FEED

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

FIRST ASCII CHARACTER ON IT

: sRETURN

/tU/<15><12>

: sCONTROL “G*”

SCNTLG:

.ASCIZ

/tG/<15><12>

123

$MSWR:

.ASCIZ

<15>¢<12>/SWR = /

116

SMNEW:

.ASCIZ

040

:3BR IF YES
:3GO READ ONE CHARACTER FROM THE TTY
:3GET CHARACTER
+3IS IT A RUBOUT
: sSKIP IF NOT

: sSTORAGE FOR ASCII CHAR. TO TYPE
:+ s TERMINATOR
: sRESERVE 8 BYTES FOR TTY INPUT
: sCONTROL "U”

015
040
000

SEQ 65

NEW = /

CZDR<BO DR11 W INTRPROC EXER
TTy

INPUT

ROUTINE

MACRO M1200

1857
1858

27-DEC-83 11:11

.EVEN
.SBTTL

PAGE

B¢

100

SEQ 66

TRAP DECODER

1100000800000 00000000000000000000000000000000000000000000000800000

1¢THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION
1¢AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
100F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
19GO

013572
013574
013600
015602
013604
013610
013612
013614
013616
013620
013624

010046
016600
005740
111000
022700
003002
000000
000776
006300
016000
000200

$TRAP:

000002
000026

013640

THAT ROUTINE.

MOV
MOV
TST
MOve
cHe
8GT
MALT
B8R
ASL
MOV
RTS

RO, -(SP)
2(SP),RO
-(RO)
(RO),RO
OS$TERM, RO
.*6
. -2
RO
$TRPAD(RO),RO
RO

1 1SAVE RO
11GET TRAP ADDRESS
1 1BACKUP BY 2
13GET RIGHT BYTE OF TRAP
1 sCHECK FOR OUT OF BOUNDS
13BR _IF 0K
1 10UT _OF BOUNDS
3 s HANGUP
$sPOSITION FOR INLEXING
;;INDEX TO TABLE
13G0 TO ROUTINE

13 THIS IS USE TO HANDLE THE “GETPRI" MACRO
013626
013630
013636

011646
016666
000002

000004

000002

$TRAP2: MOV
MOV
RTI

.SBTTL
16THIS

:
013642
013644
013646
013650
013652

011460
012006
011762
012022
012210

013654

013056

013656
013660
013662
1859 013664

013006
013270
013420
014124

1860

000026

1 sMOVE THE PC DOWN
3 sMOVE THE PSW DOWN
1 tRESTORE

THE PSW

TRAP TABLE
TABLE

1oBY THE

013640 013626

(SP),-(SP)
4(SP),2(SP)

CONTAINS

THE

STARTING ADDRESSES OF

“TRAP" INSTRUCTION.

THE ROUTINES CALLED

ROUT INE

STRPAD: .WORD

$TYPE
STYPOC
STYPOS
STYPON
STYPDS

$TRAP2

4 4CALL=TYPE
3sCALL=TYPOC
33CALL=TYPOS
1iCALL-TYPON
5iCALL-TYPDS

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

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 (MITH SIGN)

IGTSMR

;;CALL-GTSWR

TRAP.6(104406)

GET SOFT-SWR SETTING

SCKSMR
SROCHR
SROLIN
RESYNC

5 ;CALL=CKSWR
;;CALLROCHR
1iCALLROLIN
3)CALLSRSYNC

TRAP.7(104407)
TRAP.10(104410)
TRAP+11(104411)
TRAP+12(104112)

TEST FOR CMANGE IN SOFT-SWR
TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE
RESYNC PROGRAM

S$TERMe. - $ TRPAD

—

- —

- ————

——
e

. e,
e
e

C¢,
CZORXBO DR11-W INTRPROC EXER
TRAP

TABLE

MACRO M1200

1863

1865
1866
1867

SEQ 67

INTERBOARD COMMUNICATION SUBROUTINES
i WTCMPN
11000000000000000000000000000000000000000000000000000000000000000

1869 013666

012737

::;g 013702

001010

1870 013674

010000

032777

001000

013704
013712
013714
013720

032777
001017
005337
001371

001000

1879 013722
1880 013724

000407
032777

1882 013734
}::z 013740

005337
001371

001436

1885 013742
1886

011637

001440

1888 013750
1889

104412

1878

101

.SBTTL

1868

1873

PAGE

110000000000000000000000000000000000000000000000000000000000000080

1864

1874
1875
1876
1877

27-DEC-83 11:11

1881 013732

001407

001436
165516

165506

WTCMPN: MOV

1%:

001436

001000

165466

210000,ABORT

1SETUP ABORT TIMER

BNE

+ IF DSTATC IS ONE ,WAIT FOR O

BIT
BNE
DEC
BNE

01000,8CSR
44
ABORT
14

tWAIT FOR DSTATC-1
1GO AHEAD;IT HAS COME

BR
8IY

3
€1000,8CSR

tWAITED TOO LONG;ABORT PROGRAM
tWAIT DSTATC=0

8IT

2%:

BEQ

MOV

(SP),TESTPC

DEC
BNE
38:

1887 013746

104016

10400016

1890 013752
1891
1892
1893

000207

ABOART
24

RSYNC
RTS

$IF NOT STUCK IN WAIT LOOP,
IKEEP WAITING

1GO AMEAD;IT HAS COME

IKEEP WAITING

1SAVE LOCATION WHERE PROGRAM
s1ORIGINATED
tRESYNCHRONIZE BOTH PROGRAMS
1tFROM START

11000000000000000000000000000000000000000000000000000000000000000

1894

1 GOCMPN

1897 013754
1898 013754
1899 013762
1900 013764
1901 013772
1902 014000
1903 014006
1904 014014
1905 014016
1906 014024
1907 014032
1908 014040
{m 014046

€1000,8CSR

11000000000000000000000000000000000000000000000000000000000000000

032777
001415
017737
042737

0427357
013777
000207
017737
042737

052737
013777

000207

000002

165436

165430
100000
000002
001446

001446
001446
001446
165404

165376
100000

001446
001446

000002
001446

001446
165352

14:

GOCMPN:
817
#2,8CSR
8EQ
1%
MOV
8CSR, TEWP
8IC
eBIT1S,TEWP
8IC
02, TEWP
MOV
TEMP ,8CSR
RTS
PC
MOV
8CSR, TEWP
8IC
®BIT1S,TENP
8IS
02, TEWP
MOV
TEMP ,8CSR
RTS
PC

+IS F1 CLR?
+IF SO,SET F1
1F1 IS SET,CLR IT

CZDRKBO DR11-W INTRPROC EXER
CPU PRIORITY SUBROUTINES

014050
014050
014056
014060
014062
1922 014064
1923
1924 014066
1925 014074
1926
1927
1928
1929
1930
1931 014076
1932 014076
1933 014104
1934 014106
014110
1935 014112
1936 014114
1937 014122

27-DEC-83

.SBTTL

11:11

PAGE

102 _

CPU PRIORITY SUBROUTINES

1100000000808 08080000000000000000000008000800000000800000000000000080

1 CPUMI

J100880800000000000080000000000000000008080000000000000000000008000s

023727

001003
106427
000200
000207

012737
000207

001434

000340

000126

177776

CPUMI
:

cMP

BOARD, #0126

RTS

BNE
106427
200
18:

MOV

RTS

#340,PS

$IS THIS CPU LSI1?
sNO,IT

IS UNIBUS

$1SET HIGH PRIOR.

IN UNIBUS

1100000000000000000000000000000000000000000000000000008000008000008

CPULO

;;ooo.oooo0..ooo:oooooooooooooooooooooooooooooooooo‘ooooooooooooo
023727
001003
106427
012737
000207

001434

000126

177776

CPULO:

18:

cHP
BNE
%06427

BOARD, 0126
1

RTS

MOV

®0,PS

1913
1914
1915
1916
1917
1918
1919
1920
1921

MACRO M1200

D¢

MACRO M1200
CZORKBO DR11-W INTRPROC EXER
27-DEC-83 11:11
INTERPROCESSOR PROGRAM RESYNCHRONIZATION
ROUTINE

1939
1940

.SBTTL

1941
1942
1943
1944 014124
1945

1957
1958
1959
1960
1961
1962
1963
1364

103

SEQ 69

INTERPROCESSOR PROGRAM RESYNCHRONIZATION

ROUTINE

sRSYNC

1 0 080 0 0 0 000800000000800080000000000080000800040800000000008000

004737

011360

RESYNC:

JSR

PC.RSTVEC

+MOVE TESTPC VALUE TO BOR FOR COMPANION
014130

013777

001440

014136
014142
014146
014150

012706
005737
001404
012737

001100
001452

014156
014160
014166
014166
014170
014172
014174
014200
014202
014204
014210

000403
012737

014230
1965 014230
1966
1967
1968 014234
014237
014242
014245
014250
014253
014256
014261
014264
1969 014265
014270
014273
014276

1970

11000000000000000000000000000000000000800000000000000000008800008

1946

1947
1948
1949
1950
1951
1952
1953
1954
1955
1956

PAGE

005001
005301
001376
005337
001372
000005
104401
000407

000137

165264

MOV

000017

001444

SLDELY:

MOV
TST
BEQ
MOV

000036

001444

MRDELY: MOV
WTSYNC:

16:

2s:
001444
014212

002742

105

644

.SBTTL
EM1:

#STACK,
SP

MSTER

MRDELY
015.,TIME

WTSYNC
€30.,TIME

s+ SAVE ERROR PC
lusg THIS CPU STARTED AS MASTER?
Y

:SLAVE CPU;WAIT FOR MASTER TO REACH ITS
tRESYNC ROUTINE

CLR

DEC

BNE
DEC
BNE
RESET
TYPE

13658:

TESTPC,880R

_ASCIZ

.65%
64

:1sTYPE ASCIZ STRING

13GET OVER THE ASCIZ

<CRLF>/eRESYNC.
. ./<CRLF>

SYNCST

ASCII MESSAGES
/TEST 1
.ASCII

STATUS:

MASTER/<CRLF>

123

EM2:

.ASCIZ

/SLAVE FAILED TO ECHO DBR CONTENTS/

LASCII

7/ STATUS:

MASTER/<CRLF>

CZDRKBO DR11-W INTRPROC EXER
ASCII MESSAGES

014343
014346
1971 014347
014352
014355
014360
014363
014366
014371
014374
014377
014402
014405
1972 014410
014413

014416
014421
014424
014427
1973 014430
014433
014436
014441
014444
014447
014452
014455
014460
1974 014463
014466
014471
014474
014477
014502
1975 014503
014506
014511
014514
014517
014522
014525
1976 014527
014532
014535
014540
014543
014546
1977 014547
014552
014555
014560
014563
014566
014571
014574
1978 014577
014602

MACRO M1200

27-DEC-83

Fe
11:11

PAGE

103-1

SEQ 70

124

EM3:

.ASCIZ

/SLAVE FAILED

.ASCII

/ STATUS:

.ASCIZ

/FAILED

.ASCII

/ STATUS:

.ASCIZ

/STATUS ER ON 'DATI'/

.ASCII

/ STATUS:

.ASCIZ

/WORD COUNT ER ON

.ASCII

/ STATUS:

TO ECHO

'STAT'

MASTER/<CRLF>

INTR ON A

'DATI'/

MASTER/<CRLF>

'DATI'/

MASTER/<CRLF>

BITS/

(3¢
W
CZDRXKBO DR11-W INTRPROC EXER
ASCII MESSAGES

014605

072

1979 014617
014622
014625
014630
014633
014636
014641

125
105
101
123
122

014656
014661
014664

1981 014667
014672
014675

014700
014703
014706
014711
014714
014717
1982 014722
014725
014730
014733
014736
1983 014741
014744
014747
014752
014755
014760
014763
1984 014765
014770
014773
014776

015001
1985 015004
015007
015012
015015
€15020
015023
015026
015031
1986 015034
015037
015042
015045
015050

27-DEC-83

11:11

PAGE

103-2

SEQ 71

040

123
122
.ASCIZ

/BUFFER

ADRS ER ON

'DATI'/

.ASCII

/ STATUS:

.ASCIZ

/FAILED

.ASCII

/ STATUS:

.ASCIZ

/STATUS ER ON

.ASCII

/ STATUS:

.ASCIZ

/WORD COUNT ER ON 'DATO'/

.ASCII

/ STATUS:

116
104
111

123
124
or2
114
105
101
105

EM7:

EM10:

014644
014647
1980 014650
014653

101
105

geBhEgRs

014610
014613
014616

MACRO M1200

EM11:

EM12:

SLAVE/<CRLF>

TC INTR ON A

'DATO'~/

SLAVE/<CRLF>

'DATO'7

SLAVE/<CRLF>

CZDRKBO DR11-W INTRPROC EXER

ASCII MESSAGES

MACRO M1200

1987 015053
015056
015061
015064
015067
015072
015075
015100

102
106
040
122
105
117
047
124

125
105
101
123
122
116
104
117

106
122
104
040
040
040
101
047

1988 015104
015107

040
101

123
124

124
125

015103

015112
015115

015120

1989 015123

015126
015131
015134

000
123
123

072
114

040
101

104

101

124

126

105

200

101
122
116

040
040
040

105
117
047

015142
1990 015145
015150

117
123
124

047
124
125

000
101
123

015156
015161

114
105

101
200

126

015137

015153

1991 015163

015166

104

101

072

040

122

105

104

131

123
101

111
127
040

040
040
117
104
105
114
122

111
123
125
040
040
105
200

1992 015233

055
124
110
114
102
103
101
000

040

101
123
115
124
200

123

124
072
101
105

124

125
040
123

101

123

1993 013253

115

.ASCIZ

/BUFFER ADRS ER ON 'DATO'~/

.ASCII

7/ STATUS:

.ASCIZ

/DATA ER ON 'DATO'/

.ASCII

/STATUS: SLAVE/<CRLF>

.ASCIZ

/READY BIT WAS SET - IT SHOUWLD BE CLEAR/<CRLF>

.ASCII

7/ STATUS: MASTER/<CRLF>

.ASCII

/MASTER CANNOT START COMMUNICATION WITH SLAVE-/

SLAVE/<CRLF>

101
123
040

EM1S:

122

124
040
116
124
124
124
117
125
103

105
103
116
040
101
040
115
116
101

101
117
123
122
103
115
111
124

015314

040

127

111

103-3

124

015256
015261
015264
015267
015272
015275
015300
015303
015306
015311

EM14:
.

040

102
040
123

015236
015241
015244
015247
015252

PAGE

124

015171
015174
015177
015202

015205
015210
015213
015216
015221
015224
015227
015232

EM13:

27-DEC-83 11:11

[}

SEQ 72

CZDRKBO DR11-W INTRPROC EXER
ASCII MESSAGES

015317
1994 015330

1995 015355

124
123
126
127
124
107
117
104
101

040

110
114
105
101
111
040
122

123
124

123
103
127

MACRO M1200

040
101
055
111
116
106
040

107
117
103

11:11

PAGE

103-4

SEQ 73

.ASCIZ

/WAITING FOR DSTATC /<CRLF>

EM16:

.ASCIZ

/STUCK WAITING FOR COMPANION FOR GO-AHEAD/<CRLF>

EM17:

.ASCII

/TEST S TIME OUT ERROR-/

.ASCIZ

/SLAVE SHOULD NOT HAVE

.eSCII

/ STATUS: MASTER/<CRLF>

.ASCII

/MASTER IS LEFT WAITING FOR INTERRUPT TO OCCUR/

124
103

000

125
040
111
116
106
040

124

27-DEC-83

115

116
116

117
107

101
101
000
123
065
111
040
124
122

1996 015427

015451
015454
1997 015455
015460
015463
015466
015471
015474
015477
015502
015505
015510
015513
015516
1998
1999 015521

101

124

123

EM20:

INTERRUPTED/<CRLF>

CZORKBO DR11-W INTRPROC EXER
ASCII MESSAGES

015563
015566
015571

015574
015577

124

107
117

111

125

MACRO M1200

27-DEC-83 11:11

PAGE

103-5

SEQ 74

111
040
122
116
122
120
124

117

2001 015616

125

.ASCIZ

/VIA ATTN SET/<CRLF>

.ASCII

/TEST 2

.ASCIZ

/ERROR BIT IN MASTER CSR NOT CLEAR/

EM22:

.ASCIZ

/BURST DATA LATE BIT OF EIR WAS NOT SET/<CRLF>

MSG1:

.ASCIZ

<CRLF>

111

EM21:

2003 015664

2005
2006 015776
016001
016004

016007
016012
016015
016020
016023

STATUS:

MASTER/<CRLF>

/TEST 3-BLOCK MODE XFERS/<CRLF>

CZORKBO DR11-W INTRPROC EXER

ASCII MESSAGES
016026

2007 016030
016033
016036

000
124
124
055

MACRO M1200

105

27-DEC-83

11:11

I<6
PAGE

103-6

SEQ 75

MSGe:

.ASCIZ

<CRLF>

MSG3:

.ASCIZ

<CRLF>/TEST S-BURST DATA LATE/<CRLF>

2009 016113
016116
016121
016124
016127
016132
016135
016140
016143
016146
2010 016150
016153
016156
016161
016164

DH1:

.ASCIZ

/ERRPC

BUSADR

EXPCT

RCVD/

DH2:

.ASCIZ

/ERRPC

MEMADR

EXPCT

RCVD/

2011

DOH3:

.ASCIZ

/ERRPC/

016041
016044
016047
016052
016055
016060
016062
016065
016070
016073
016076
016101
016104
016107
016112

040
102

/TEST 4-BURST MODE XFERS/<CRLF>

016167
016172
016175

.EVEN

2013
2014
2015
2016

2017
2018
2019

s ERRPC, 0

DT2:

oT73:

TESTPC,O

1'DBUF’

IS THE WORKING AREA IN MEM FOR ALL NPR OPERATIONS

110060000000000000000088000000000000000080000000000008808008080008000
§10000000800000000000000000000000000000000000000080000000000800000

END

11ST ADRS OF DATA BUFFER

CZORKBO DR11-W INTRPROC EXER
SYMBOL. TABLE

MACRO M1200

ABORT

001436

B8ITO
=
B8IT00 =
BITO1 =
B8IT02 =
BITO3 =
BITO4 =
BITOS =
BIT06 =
BITO7 =
BITO8 =
8IT09 =
BIT1
=
BIT10 =
BIT11 =
8IT12 =
BIT13 =
BIT14 =
B8IT1S =
BIT2
=
BITS
=
BIT4
=
BITS
=
BIT6
=
BIT7
=
BIT8
=
8IT9
=
BOARD
BPTVEC=
BROTYP
CKSWR =
CLRBUF

000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000
010000
020000
040000
100000
000004
000010
000020
000040
000100
000200
000400
001000
001434
000014
002056
104407
011400

BAR
BDR

CONT

CPUMI
CPULO

001416
001422

001430

014050
014076

= 000015

CSR
DBUF

001420
016236

CRLF

= 000200

DDISP = 177570

DH1
DH2
DH3

DISPLA
DISPRE
DRVCTO
DRVCT2
DRVECT
DSMR
=
DTl

DT12
D713

016113
016150
016205

001142
000174
001424
001426
001412
177570
016214

016226
016232

EMTVEC= 000030
EM1
014234

EM10
EM11
EM12
EM13
EM14
.EM1S
'EM16

27-DEC-83

11:11

014722
014765

PS
PSW

= 177776
= 177776

015145
015233
015355

ROCHR = 104410
ROLIN = 104411
RESVEC= 000010

015034
015104

015427
014327
015521
015634
015726
014410
014463
014527
014577

014650
011152
011320
011326
104000
000004
013754
104406
000011
001454
001410
000020
011416

000012
002760
003226
002524
014160
004550
015776
016030
16062
001452

106427
003106
003526
003652
004620
005502
001432

177772
000240
000000
000040
000100
000140
000200
000240
000300
000340

PAGE

103-7

PWRVEC= 000024
RCVTMO 001500

SEQ 76

SW2 .
SW3

= 000004
= 000010

SFILLS
$GDADR

SW6
SW7
SW8

= 000100
= 000200
= 000400

$GTSWR
013056
$HD
= 000003
S$ICNT
001104

SW4
SWS

RESYNC 014124
RPRAM
001464
RSTVEC 011360
RSYNC = 104412
RTRN
003462
R6
=%000006
R7
=%000007
SAVE
001450

= 000020
= 000040

SW9
= 001000
SYNCST 002742
TBITVE= 000014
TEMP
001446
TESTPC 001440
TIME
001444
TKVEC = 000060
TOTAL
001442

SCOPE = 000004

TPVEC = 000064

001155
001120

$GDDAT
$GET42

001124
011254

$INTAG
$ITEMB
SLF
SLPADR
SLPERR
SMNEW
$MSWR
SNULL

001135
001114
001166
001106
001110
013561
013550
001154

SOCNT

012204

SETUP2 001704
SETUPS 001730
SETVEC 011340
SINIT1L 006162
SINIT2 006374
SLBRD
007420
SLDELY 014150
SLVFIN 011156
SL1STR 006330
STACK = 001100
START
001522
START1 001506

TRAPVE= 000034
TRTVEC= 000014
TYPDS = 104405
TYPE
= 104401
TYPOC = 104402
TYPON = 104404
TYPOS = 104403
WCR
001414
WTCMPN 013666
WTSYNC 014166
XMITMO 001472
XPRAM
001456

$OMODE 012206
SOVER
012772
$PASS
001100
SQUES
001164
SROCHR 013270
SROLIN 013420
$RDSZ = 000010
SRTNAD 011276
$SCOPE 012714
$SETUP= 000107
$STUP = 177777
$SVLAD 012756

STKLMT=
STST1
STST2
STSTS
STST4
STSTS
SWR
SWRCK
SWREG
SWO
=

$BDADR
$BDDAT
$BELL
SCHARC
S$CKSWR
SCMTAG
$CM3 =
SCNTLG
SCNTLVU
SCRLF

$SWRMK=
$TERM =
$TKB
$TKS
$TN
=
$TPB
$TPFLG
$TPS
$TRAP
$TRAP2

000000
000026
001146
001144
000001
001152
001157
001150
013572
013626

S$TYPEX
$TYPOC

011760
012006

START2

001514

177774
006320
006512
006572
007506
010404
001140
012550
000176
000001

SWO0
SWo1
SW02
SWO3
SWo4
SWOS
SW06

= 000001
= 000002
= 000004
= 000010
= 000020
= 000040
= 000100

SW09
SWl
SW10
SWil
SWi2
SW13
SWi4a
SW1S

001000
000002
002000
004000
010000
020000
040000
100000

SWO7
SW08

=
=
=
=
=
=
=
=
=
=

000200
000400

SAUTOB

001134

SDBLK
SDOAGN
SOTBL
SENDAD
SENDCT
SENDMG
SENLL

012424
011274
012414
011264
011232
011303
011300

SEOP
SEOPCT

$ERFLG
SERMAX
$ERROR
SERRPC
$ERRTB
S$ERRTY
SERTTL
SFILLC

001122
001126
001160
011756
013006
001100
000000
013543
013536
001165

011202
011224

001103
001115
012434
001116
001170
012560
001112
001156

$SWR

= 122000

$TRP =
$TRPAD
$TSTNM
S$TTYIN
$TYPDS
S$TYPE
S$TYPEC
STYPON
$TYPOS
$XOFF =
$XON =
$XTSTR
$$GET4=
SOFILL

000013
013640
001102
013526
012210
011460
011630

012022
011762
000023
000021
012720
000000
012205

CZDRKBO DR11-W INTRPROC EXER
SYMBOL TABLE
.

ABS.

016240

000000

ERRORS DETECTED:

MACRO M1200

27-DEC-83 11:11

000
O

001

VIRTUAL MEMORY USED:
65456 WORDS
( O PAGES)
DYNAMIC MEMORY:
20060 WORDS
( 77 PAGES)
ELAPSED TIME:
00:02:21

CZDRKB .BIN,CZDRXB.LST/-SP=SYSMAC.SML
,CZDRXB .P11

PAGE

103-8

SEQ 77