Digital PDFs

AH-E783B-MC

April 1984

78 pages

Original

3.2MB

view download

OCR Version

2.7MB

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

OCR Text

MACRO Mi200

.REM

27 DEC

11:11

PAGE

S€Q
1

IDENTIF ICATION

PRODUCT

COOE:

AC-E7828
-MC

PRODUCT

NAtF
-

CZDRKBO DR11-W

INTRPROC

DATE:

OEC

MAINTAINER:

DIAGNOSTIC ENGINEERING

EXER

1983

[

Y. XV

el
o
) [

¥V J,V) = OOB® IO NE N+

CZORKRO DR11 W INTRPROC EXER

MASS,

IS FURNISHED UNDER A LICENSE FOR USE OMLY

ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH
THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE.
TMIS
SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON
EXCEPT FOR USE ON SUCH SYSTEN AND TO ONE WHO AGREES TO
THESE LICENSE TERMS.
TITLE TO AND OWNERSHIP OF THE
SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.
fHE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE
WITHOUT NOTICE AND SHOLD NOT BE CONSTRUED AS A COM-

MITHMENT B8Y DIGITAL EQUIPMENT

CORPORATION.

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

ol
A
4

CZDRXRC DR11 W INTRPROC EXER
44
45
46

MACRO M1200

27 DEC 83 11:11

TABLE

cee

OF
e

PAGE

S€Q 2

CONTENTS
e

1.0

ABSTRACT

52
53

2.0
2.1

REQUIREMENTS
EQUIPMENT

3.0

LOADING AND START

58
59
60
61
62
gz

4.0
4.1
4.2
4.3
4.3.1
4.3.2

ERRORS
ERROR COMMENT
ERROR DATA
ERROR RECOVERY
RECOVERABLE ERRORS
NON-RECOVERABLE ERRORS

5.0

5.2

2.2

STORAGE

PROCEDURE

SOF TWARE SWITCH REGISTER

S.1

OPTIONS

5.3

CONTROL

6.0

MISCELLANEOUS

6.1

DRV118 AND/OR DR11W RUS & VECTOR ADDRESS MOOIFICATION

7.0

EXECUTION TIME

8.0

PROGRAM DESCRIPTION

8.2

PROGRAM SEGMENTS

80
81

6.2

8.1

9.0

IMPLEMENTATION

POMER FAIL

GENERAL

MODIFICATION HISTORY

CZDRXBO DR11-W INTRPROC EXER
83
84
85
86
87
aa
89

MACRO M1200

1.0

27 DEC-83

D1
60

SEQ

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 DRV118 DMA INTERFACE.
FOLLOWING CONFIGURATIONS ARE VALID

LSI-11
DRV11-B

97
98
N

100
101
102
103
104
105
106
107
108
109
110
111
112

PAGE

ABSTRACTY
THE
TWO
AND
THE

90
91
92
93
94

11:11

---cevcu--

POP-11

DR11-W

-ccecoonn-

POP-11
DR11-W

POP-11

DR11-W

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

2.0

REQUIREMENTS

2.1

EQUIPMENT

113
114

115
116

117

118
119
120
121
122
123
124
125
126
127
128
129
130
131
132

133
134
135
136
137
138
139

e.2

ONE POP11 COMPUTER EQUIPPED WITH A DR11-W.

ONE LSI-11 EQUIPPED WITH A DRV11-B OR ANOTHER PDP11

EACH SYSTEM EQUIPPED WITH AN I/0 TERMINAL

CABLES (TWO)

THE

TWO DMA INTERFACES

STORAGE
THE PROGRAM USES

5.0

TO INTER CONNECT

WITH A DR11-W.

THE LOWER

3400 WORDS OF

MEMORY

LOADING AND START PROCEDURE

CHOOSE ONE OF

MAKE SURE EACH DMA INTERFACE OF BOTH COMPUTER SYSTEMS

ANO LOAD

ARE CABLED

THE

THE INTERPROCESSOR CONFIGURATIONS SPECIFIED

OR11-W INTERPROCESSOR EXERCISER INTO EACH SYSTEM.

TOGETHER THRU THE

I/0 CONNECTIONS

CZDORXBO DR11-W INTRPROC EXER

MACRO M1200

140
141
142

27-DEC-83

143
14;
14
14?

11:11

PAGE

60-1

SEQ 4

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

14
148

INSURE

THAT

THE HALT

SWITCH IS DISABLED

DEFINE

WHAT

COMPUTER

151
152

149
120
lgz
1

TO BE

THE

INITIAL

ANY),

SLAVE

THE

OTHER WILL BE THE INITIAL MASTER (THE ONE STARTED AS
MASTER WILL REPORT THE 'END OF PASS’' MESSAGE).

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

igz

DR11W INTERPROCESSOR EXERCISER

157
1558
1

IS THIS CPU TESTING A DRV11B OR DR11W?
TYPE V OR W:

160

(IF

THE OPERATOR TYPES V FOR DRV118B OR W FOR DR11W.

lgé
1
163
1.2;

WERE

ig@l

TO TYPE

'V’

IF THE USER

THEN THE FOLLOWING WOULD BE PRINTED:

ORV118 BOARD
INTERPROCESSOR LINK NOW IN PROGRESS....

168

169

i;g

THIS POINT

THE SLAVE

IS WAITING FOR THE MASTER

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

TO BE

STARTED.

SIMILARLY THE

WHEN USER ANSWERS

(LET'S SAY WITH A W) THE PRINTOUT WILL SHOW:

172

OR11W B0ARD

{;’2

INTERPROCESSOR LINK NOW IN PROGRESS....

175
%;g

THE TWO SYSTEMS SHMOULD NOW BE COMMUNICATING WITH THE
BEING PERFORMED.

i;g

THE END OF PASS MESSAGE WILL SUSEQUENTLY OCCUR AS FOLLOWS:

180

END PASS

181
182
183

END PASS
.
.

184

THE FIRST END PASS

188

196

ETC.

185
186
187
189
190
191
192
193
194
195

TESTS

WITH ITERATIONS.
4.0

ERRORS
...

4,1

ERROR COMMENT

IS WITH NO ITERATIONS;

ALL OTHERS ARE

CZORKBO DR11-W INTRPROC EXER

MACRO M1200

27 DEC-83

197

198
199
200

201
202
203
204
205
206
207
208
209
210
21l
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245

246
247
248
249

250
251
252
257

ALL

F1
11:11

PAGE

ERRORS ARE

COMMENT AS
THE

ERROR

OF FROM

SEQ@ 5

ACCOMPAINED WITH AN ENGLISH LANGUAGE

THE

CAN BE

THE

60-2

TEST

TYPE

OF FAILURE,

OBTAINED FROM

ITSELF,

THE

DESCRIPTIVE

FURTMER QUALIFICATION OF

COMMENT

THE

ERROR

ERROR DATA

ERRPC

LISTING ADDRESS WHERE

EXPCT

DATA THAT WAS EXPECTED

BUSADR

THE ERROR WAS DETECTED

ORV11B BUS REG ADDPESS OF CONCERNED OPERATION

RCVD

DATA THAT

MEMADR

WAS RECEIVED

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

OCCUR

sRESYNC. ..

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:

sRESYNC. ..
AT THIS POINT B0TH CPU'S SHOULD BE AGAIN COMMUNICATING 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.

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 COLD BE A SOFTWARE LOOP
WAITING FOR ITS COMPANION TO SET A BIT

INVOKED BY A SYSTEM WHILE
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 MHANG

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 B8E ABLE TO RECOVER

CZORKBO DR11 W INTRPROC EXER

MACRO M1200

254
255
256
257
258
259

27-DEC-83

11:11

Gl
PAGE

THEMSELVES FROM THE

60-3

SEQ 6

ABOVE ERROR

TYPES.

THEREFORE

IT BEMOOVES

THE

PERIODICALLY CHECK FOR 'END PASS’' PRINTOUTS WHICH WILL OCCUR
APPROX, EVERY 2 MINUTES.
THIS WILL VERIFY THAT BOTH SYSTEMS
ARE STILL IN SYNC.

IF
SYNCHRONIZATION IS LOST,BOTH SYSTEMS MUST BE HALTED
WHEREBY
LOCATION OF EACH PROGRAM CAN BE DETECTED THRU 'ADDRESS' REGISTER
?R

'SCE)(C)}'

5.0

SOF TWARE

5.1

OPTIONS

S.2

gR(I)NTOUT.

BOTH PROGRAMS MUST

BE RE-STARTED AS

OPERATOR

THE ADDRESS

SPECIFIED

SWITCH REGISTER

SWITCH

OCTAL

FUNCTION

B8IT15-1
B8IT13-1
BIT10=1

100000
020000
002000

HALT ON ERROR
INHIBIT ERROR TYPEOUTS
BELL ON ERROR

IMPLEMENTATION
IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH
REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED WHICH ALLOWS
THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER.
IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES
AND IT CONTAINS ALL ONES (177777) THEN THE SOF TWARE SWITCH
REGISTER (LOC. 176) IS USED.
UNNDER THESE CONDITIONS
THE PROGRAM WILL REQUEST

THAT

THE SOF TWARE SWITCH REGISTER

BE LOADED UPON 1ST PASS OF THE PROGRAM.

SHWR : s XXXXXX
5.3

NEW=

IT WILL PRINT:

(USER ENTERS IN FOLLOWING NEW=)

CONTROL
1.

THE SOFTWARE SWITCH REGISTER 'SWREG’
CHANGED BY USING
00T FACILITIES.

(LOC.

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

176) CAN BE

a&ElTJugCNTAL SWITCH REGISTER DATA TERMINATED WITH A CARRIAGE
WHEN USING THE ODT MODE

AND ONCE

IT HAS BEEN ENTERED DUE TQO 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.

T0O

CZDRKBO DR11-W INTRPROC EXER

MACRO M1200

311
312
313
314
315
316
317
318
319
320
321
322
323

327
328

329
330
331
332
333
334
335
336
337

11:11

PAGE

H1
60-4

SEQ 7

MISCELLANEOUS

DRV11B AND/OR DR11W BUS & VECTOR ADDRESS MODIFICATION
MODIFY LOCATION

324

325
326

27-DEC-83

‘' INTADR'

'DRVECT'

IF BASE BUS ADDRESS IS NOT

MODIFY

LOCATION

VECTOR ADDRESS

IS NOT

NOTE:

USE APPROPRIATE PATCH FACILITIES TO MOOIFY

THESE LOCATIONS

AFTER PROGRAM LOARD.

6.2

172410

124

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
ACTUAL RUN TIMES ARE AS FOLLOWS:
11/34 - 11/05: 3MIN

11/70 - 11/4S:

11/70 -

11/03:

8.0

PROGRAM DESCRIPTION

8.1

GENERAL

SYSTEM CONFIGURATION

4S5SEC.

1MIN 15SEC.

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

8.2

'END OF PASS’'

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
368
369
310

W INTRPROC EXER

MACRO M1200

27 DEC-83

11:11

PAGE

EACH WORD BACK
1B.

STSTL

SLAVE

60-5
TO

SEQ 8

THE MASTER VIA

ECHOS

ALL

CHANGES

THE
IN

DATA BUFFER REGISTER.
THE

71
372

373

2A.

TEST

THAT

SLAVE CAN INTERRUPT MASTER:

375
376
-2
378
379

28.

TEST

THAT

SLAVE

380
381
382
8
384
385
386
38
8
389
390
391

38.

AND CHECKS FOR PROPER
AND BUFFER ADDRESS AT

398
399

il
SA.

405
406

S8.

4c3

416
417
418

STST3-BLOCK MODE

INTERRUPT STATUS, WORD COUNT,
THE COMPLETION OF THE TRANSFER.

XFER-SLAVE RECEIVES A 32 WORD DATA BLOCK FROM

WORD COUNT.,

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

UNTIL WORD COUNT OVERFLOW

407

414
415

ATTN(MASTER)

TO ATTN

MASTER AND CHECKS FOR PROPER INTERRUPT STATUS,
BUFFER ADDRESS, AND DATA CONTENT,

400
401
402

413

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

4B.

411

INTERRUPTS MASTER:F2

F2(SLAVE)

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.

394
395
3%

410

25
3A.
MTST2 - MASTER SENDS OUT A ‘FNCT' BIT CODE IN THE COMMAND
STATUS REGISTER AND EXPECTS THE SLAVE TO ECHO EACH CODE IN
ITS ‘FNCT' BITS. THE MASTER WILL READ THE 'STAT’ BIT CODE
FROM THE COMMAND/STATUS REGISTER AND COMPARE IT TO THE
CODE WRITTEN.

392

409

DATA BUFFER

STST4 BURST MODE WORD XFER TEST-SLAVE RECEIVES 32 WORDS
FROM MASTER(DR11W TO DR11W ONLY)

SAME AS 48 EXCEPT BURST MODE

6A.

MTSTS BURST DATA LATE

TEST-MASTER XMITS S WORDS TO SLAVE

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

PROCEDURE:

MASTER XMITS S WORDS TO SLAVE IN BURST MODE

SLAVE IS SETUP TO DO 10 XFERS. CHECK THAT MASTER INTERRUPTS
B8Y WCOF. CHECK CSR,WC,AND BA, AFTER 5 XFERS ARE DONE IN
SLAVE, TIMEOUT OCCURS(S0US), SINCE SLAVE WAITS FOR GO-AHEAD
FROM MASTER TO CONTINUE,BUT MASTER NEVER RESPONDS. IN
SLAVE: CHECK THAT S XFERS MAVE BEEN COMPLETED.

419
420
421
422
423

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

424

WITH NO RECOVERY PROVIDED FOR,

THE

CZDRKBO DR11-W INTRPRQOC EXER

MACRO M1200

27-DEC-83

425

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

426

427
428
429
430
431
432
433
434
435
436

J1
11:11

6B.

STSTS BURST DATA LATE

FROM MASTER

AND

TIMES

TEST-SLAVE RECEIVES S5 WORDS
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
438

439
440
441

INTRPROC CXER

MACRO M1200
9.0

11:11

PAGE

<1
61

SEQ@

MODIFICATION HISTORY
REV 8.0 12-DEC-83
ALTERED TEST EXIT

44?2

H.P. HOLSINGER
(MTST4E5, STST4ES)

(CWO)
COMPANION

STATUS

CHECK TO COMPENSATE FOR ANY STATUS LINE SKEWING.

443
444

ADDED

445

446

27 DEC-83

SAVE

RESYNC

CODE

FOR

LINK

DEBUG ASSISTANCE.

CZDRKBO DR11

W INTRPROC EXER

MACRO M1200

27-DEC-83

11:11

PAGE

L1
62

SEQ

448

477

.TITLE

CZDRKBO DR11-W

INTRPROC

EXER

; #COPYRIGHT (C) 1979
:«DIGITAL EQUIPMENT CORP.

‘HAYNARD

MA5S.

;‘PROGRAH 8Y

01754

JOHN

CIUKAJ

;‘THIS PROGRAM WAS ASSEMBLED USING THE PDP-11
1 sPACKAGE (MAINDEC-11-DZQAC-CS), JAN, 1981.

MAINDEC

SYSMAC

1 e

478
479
480

000001
160000

122000
000001

$TN=1
$SWR=160000

1 sHALT ON ERROR,

$SWR=122000
$TN=1
.SBTTL
OPERATIONAL

SWITCH

LOOP ON

TEST,

INHIBIT

ERROR

SETTINGS

]

481

1 e

SWITCH

3¢

eeccee

i e
is

.SBTTL

ssINITIAL

000011
000012
000015

HT=
LFs=
CR=

177776

PSe=

177570

HALT

ON ERROR

INHIBIT ERROR TYPEQUTS
BELL ON ERROR

ADDRESS OF

STACK=
1100
ERROR=EMT
SCOPE=IOT

177776
177774
177772

ececccccccccccccarenaa

BASIC DEFINITIONS

001100
104000
000004

000200

USE
|

THE

STACK POINTER

#s«

11
12
15

1 sCODE FOR HORIZONTAL TAB
$ sCODE FOR LINE FEED
;:CODE FOR CARRIAGE RETURN

CRLF=

200

PSW=PS
STKLMT=
PIRQ=

177776

1 sPROCESSOR STATUS WORD

177774
177772

$31STACK LIMIT REGISTER
$ 1PROGRAM INTERRUPT REQUEST REGISTER

177570

s stHARDWARE DISPLAY REGISTER

DSWR=

177570

1 sCODE FOR CARRIAGE RETURN-LINE FEED

s tHARDWARE

SWITCH REGISTER

ODISP=

000000
000001
000002
000003
000004
000005
000006

‘RO=
R1=
R2=
R3=
R4
RS5s=
R6=

¢1
o2
%3
)
%S
%6

1 sGENERAL
1 1GENERAL
1 sGENERAL
s sGENERAL
1 sGENERAL
1 sGENERAL
s sGENERAL

000006
000007

SP=
PC»

%6
o7

1 sSTACK POINTER
1 sPROGRAM COUNTER

000000
000040
000100

#s»

s sMISCELLANEOUS DEFINITIONS

177570

000007

1100

x-GENERAL PURPOSE REGISTER DEFINITIONS

R7s=

s sPRIORITY

PRO=
PR1=
PR2=

0
40
100

1 sGENERAL REGISTER

LEVEL

DEFINITIONS

1 1PRIORITY LEVEL O
s s1PRIORITY LEVEL 1
1 sPRIORITY LEVEL 2

TYPOUT

CZDRKBO DR11-W INTRPROC EXER
BASIC DEFINITIONS

MACRO M1200

000140
000200
000240
000300
000340

PR3=
PR4=
PRS=
PR6=
PR7=

100000

SW15=

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

000004

000002
000001

27-DEC-83

11:11

PAGE 62-1

140
200
240
300
340

: :PRIORITY LEVEL 3
: sPRIORITY LEVEL 4

: sPRIORITY LEVEL S
;s tPRIORITY LEVEL 6
1 sPRIORITY LEVEL 7

;1¢"SWITCH REGISTER” SWITCH DEFINITIONS
100000

SuWl4-

40000

SuWllis

4000

SW13s
SW12=
SW10=
SW09=
SWo8=
SWO7=
SWO6=

SWOSe=

20000
10000
2000
1000
400
200
100

SWOA =

SWo2=

SWO3s=
SWOls=

SWO0=
1
SW9=SW09
SW8=SW08
SW7=SW07
SW6=SW06
SW5=SWOS
SW4 =SWO4
SW3=SW03
SW2=SW02
SW1=SW01
SWO=SWO0

;¢DATA BIT

DEFINITIONS

8IT1S=
100000
B8IT14=
40000
8IT13=
20000
8ITi2=
10000
8IT11=
4000
8IT10=
2000
8IT09=
1000
BITO8=
400
B8IT07=
200
8IT06=
100
B8ITOS5=
40
B8ITO04=
20
BITO3=
10
8IT024
B8IT01=
2
B8IT00=
1
BIT9=81709
8IT8-BIT08
B8IT7«BIT07
BIT6=BIT06
BITS5=BIT05
B81T4-81T04

(BITO0

TO BIT1S)

SEQ 12

CZDRKBO DR11-W INTRPROC EXER
BASIC DEFINITIONS

482
483

MACRO M1200

486
487

11:11

PAGE 62-2

000010
000004
000002
000001

BIT3-8IT03
B8IT2=8IT02
BIT1=BITO1
BITO=BITOO

000004
000010
000014
000014
000014
000020
000024
000030
000034
000060
000064
000240
106427

ERRVEC= 4
RESVEC= 10
TBITVEC=14
TRTVEC= 14
BPTVEC= 14
IOTVEC= 20
PWRVEC= 24
EMTVEC= 30
TRAPVEC=34
TKVEC=
60
TPVEC=
64
PIRQVEC=240
MTPS=106427
.SBTTL
TRAP CATCHER

000000

. =0
;#ALL UNUSED LOCATIONS FROM 4

;s TIME OUT AND OTHER ERRORS
: sRESERVED AND ILLEGAL INSTRUCTIONS
"7 BIT
: s TRACE TRAP
: ;BREAKPOINT TRAP (BPT)
1 s INPUT/Z0UTPUT TRAP (IOT) #sSCOPEss«
: 1POWER FAIL
: itEMULATOR TRAP (EMT) #+ERROR4»
;i "TRAP" TRAP
;3 7TY KEYBOARD VECTOR
;3 TTY PRINTER VECTOR
; sPROGRAM INTERRUPT REQUEST VECTOR
;INSTR EQUATE THAT MOVES BYTE TO PSW

776 CONTAIN A

“,+2,HALT"

;¢SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
; sLOCATION $4C0NTAINS O TO CATCH IMPROPERLY LOADED VECTORS

.=1

000174
000176

000000
000000

000200

000137

001506

000100

000104

000200

000137
000100

SEQ

;#BASIC "CPU" TRAP VECTOR ADDRESSES

000174

484 000204
485

27-DEC

DISPREG: .WORD
O
SWREG:
.WORD
O
.SBTTL
STARTING ADDRESS(ES)
JMP
S0STARTL

001514

000002

JMP
.=100

. WORD

805TART2

104,200,2

; ; SOF TWARE DISPLAY REGISTER
; $SOF TWARE SWITCH REGISTER
: ; JUMP TO STARTING ADDRESS OF PROGRAM
:GO START

SLAVE

COMPUTER

;IF 'B EVENT' ON @-8BUS
;JUST DO A RTI (IGNORE

IS CONNECTED
IT)

b,
CZDRKBO DR11 W
COMMON TAGS

INTRPROC EXER

MACRO M1200

27 DEC A3

.SBTTL

488

11:11

PAGE

5EQ

COMMON TAGS

1100000000400 0000000000000000000000000860000008000008000000808000000

1oTHIS

TABLE

CONTAINS

VARIOUS

COMMON

STORAGE

LOCATIONS

1eUSED IN THE PROGRAM,

377

OO000O000O0

1 iICONTAINS
1 1CONTAINS
s sCONTAINS
;s siCONTAINS
1 iICONTAINS
1 sCONTAINS
1 sCONTAINS

1 s INTERRUPT MODE

.ASCII
.ASCII
.ASCIZ2

SCRLF
:
SLF:

SCOPE RETURN FOR ERRORS
TOTAL ERRORS DETECTED
ITEM CONTROL BYTE
MAX. ERRORS PER TEST
PC OF LAST ERROR INSTRUCTION
ADDRESS OF 'GOOD° DATA
ADORESS OF 'BAD' DATA

$ sAUTOMATIC MOOE INDICATOR

SWR:
DISPLAY: . WORD
$TKS:
177560
$TKB:
177562
sTPS:
177564
$TPB:
177566
SNUALL
:
.BYTE
SFILLS: .BYTE
SFILLC: .BYTE
S$TPFLG: .BYTE
$BELL:
.ASCI2
SQUES:

COMMON TAGS
PASS COUNT
THE TEST NUMBER
ERROR FLAG
SUBTEST ITERATION COUNT
SCOPE LOOP ADDRESS

1 sCONTAINS ‘GOOD*' DATA
1 ;:CONTAINS 'BAD’' DATA
1 sRESERVED--NOT TO BE USED

S$AUTOB:
$INTAG:

.BYTE

s3START OF
;s siICONTAINS
1 1CONTAINS
1 tCONTAINS
1 sCONTAINS
s 1CONTAINS

001115

001116
001120
001122
001124
001126
001130
001132
001134
001135
001136
001140
001142
001144
001146
001150
001152
001154
00115S
001156
001157
001160
001163
001164
001165
001166

. WORD

0000000000

001114

.*1100

=T 5558
B3

$CMTAG:
$PASS:
STSTNM:
SERFLG:
S$ICNT:
$LPADR:
SLPERR:
SERTTL:
SITEMB:
SERMAX:
SERRPC:
$GOADR
$80ADR:
$GDDAT
:
$BODAT;

001100
001100
001102
001103
001104
001106
001110
001112

INDICATOR

s sADDRESS OF SWITCH REGISTER
s sADCRESS OF DISPLAY REGISTER

1:7TY
$:7TY
s3TTY
:13TTY

KBD STATUS
XBDO BUFFER
PRINTER STATUS REG.
PRINTER BUFFER REG.

ADDRESS
ADORESS

2
12

1 iCONTAINS NMAL CHARACTER FOR FILLS
1sCONTAINS @ OF FILLER CHARACTERS REQUIRED
$ s INSERT FILL CHARS., AFTER A "LINE FEED"

<207><377><377>

13CODE FOR BELL

]

<«15>
<12>

13 "TERMINAL

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

1 IQUESTION MARK
;s sCARRIAGE RETURN
s sLINE FEED

110000000800 00000000000008000000000000080000800000000000000080000000

CZORKB0O DR11-Ww INTRPROC EXER
ERROR POINTER TABLE

MACRO M1200

27 DEC-83

.SBTTL

11:11

ERROR POINTER

PAGE

5EG

TABLE

1oTHIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR,
1¢THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN

1oLOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
s eNOTEL:
IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).
1 8NOTE2:

1 sPOINTS TO THE DATA HEADER

s sPOINTS TO THE DATA FORMAT

SERRTB:

001170
001172
001174
001176

014234
016113
016214
000000

001200
001202
001204
001206

014327
016113

001210
001212
001214
001216

014410

016113
016214

001220
001222
510 001224
511 001226

014463
016113
016214
000000

tERROR

EM1
DH1

iERROR

THE

ERROR MESSAGE

s 1POINTS TO THE DATA

FAILED TO ECHMO DBR CONTENTS
BUSADR
EXPCT
RCVD

€EM2

$SLAVE

FAILED TO ECHO ‘STAT'

871

1 SERRPC

$BDADR

DHl

016214
000000

sSLAVE
sERRPC

tERROR

1 sPOINTS

TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:

001170

EACH ITEM IN THE

;s SERRPC

tERRPC

$BDADR

BUSADR

$GDDAT

EXPCY

$GDDAT

EMS

1FAILED TO INTR ON A

8T1

; SERRPC

OH1

tERRPC

BUSADR
$BDADR

EXPCT

¢BDDAT

RCVD

$BDODAT

‘DATYTI'

$GDDAT

RCVD

$BODDAT

000000

tERROR

4
EMA
OH1
oT1

1STATUS ER ON 'DATI:
1ERRPC
BUSADR
EXPCT
;s SERRPC $BDADR
$GDDAT

RCVD
$BDOAT

BITS

CZDRKBO DR11-W INTRPROC EXER

ERROR POINTER

513
514
515
516
517
518
519

TABLE

001230
001232
001234
001236

014527
016113
016214
000000

001240
001242
001244
001246

014577
016113

001250
S27 001252
528 001254
529 001256
330
S31 001260
532 001262
533 001264
S34 001266
535
536
537 001270
538 001272
539 001274
001276

014650
016113
016214
000000

001300
001302
001304
001306

015034
016113
016214
000000

001310
001312
001314
001316

015104
016150
016214
000000

001320
001322
001324
001326

015145
016113
016214
000000

001330
001332
001334
001336

015233
016205
016226
000000

001340
001342

015355
016205

520
521
522
523
524
525
526

MACRO M1200

:ERROR

1ERROR

014765
016113
016214
000000

1ERROR

;ERROR

s ERROR

SEQ

tERRPC
BUSADR
1 SERRPC $BDADR

'DATI’

EXPCT
$GDDAT

RCVD
$BDDAT

EM7
DH1
oT1
0
10
EM10
OH1
or1
0
11
EMlL

12
EM12
oW1
oT1

13
EM13
oH2
oTL
0
14
EM14
OH1
oT1
o

s ERROR 15
EHgS
(8]
oTe
0

s ERROR

1BUFFER ADRS ER ON 'DATI'
tERRPC
BUSADR
EXPCT
RCVD
1 SERRPC $B8DADR
$GDDAT
$BODAT

1ERROR

D¢

6
EM6
DH1
ng

1 ERROR

PAGE

1WORD COUNT ER ON

DOH1
1281

sERROR

11:11

S
EM5

DM1
oT1
0

016214
000000

014722
016113
016214
000000

DEC-83

16
EM16
OH3

tFAILED TO INTR ON A 'DATO’
tERRPC
BUSADR
EXPCT
RCVD
1 SERRPC $8DADR
$GDDAT
$BODAT
1STATUS ER ON

1ERRPC
BUSADR
: SERRPC $BDADR

‘DATO’

EXPCT
$GDDAT

1WORD COUNT ER ON

tERRPC BUSKDR
s SERRPC $BDADR

RCVD
$BDDAT

'DATO’

EXPCT
$GDDAT

RCVD
$BDDAT

tBUFFER ADRS ER ON 'DATO’
sERRPC
BUSADR
EXPCT
RCVD
1 SERRPC $BDADR
$GDDAT
$BDDAT

1DATA ER ON 'DATO’
tERRPC
MEMADR
EXPCT
s SERRPC $BDADR
$GDDAT

$CSR READY BIT

tPROTOCOL

WAS SET

INITIALIZATION ERROR

RCVD
$BDDAT

SHOULD BE CLEAR

-MASTER AND SLAVE

1STUCK FOREVER WAITING FOR COMPANION

CZDRKBO DR11-W INTRPROC EXER
ERROR POINTER TABLE
570
SN
S72
573
S74
575
576
577
578
579
580

MACRO M1200

27 DEC-83

001344
001346

016232
000000

001350
001352
001354
001356

015427
016205

016226
000000

17
EML7
DH3
0T2
0

001360
001362
001364
001366

015521
016205
016226
000000

;ERROR 20
EM20
DH3
oT2
0

001370
001372

015634
016205
016232

001374
001376

000000

001400
001402
001404
001406

015726
016113
016214
000000

11:11

Ee
PAGE

SEQ

DT3
0

$ERROR

{ERROR 21

EM21
DH3
OT3
0

;ERROR

EM22
OH1
oT1
0

: TIMEOUT

ERROR

BURST

MODE

XFER-INCURRED

INTERRUPT

:SLAVE DID NOT INTERRUPT MASTER

s TEST 2-ERROR BIT SET IN MASTER

1BURST DATA LATE BIT IN EIR NOT SET

vrmm

me————

CZDRKBO DR11-W INTRPROC EXER
ERROR POINTER TABLE

MACRO M1200

27-DEC-83 11:11

PAGE 66

601
602
603 001410

s BASE REGISTER ADDRESS ASSIGNMENT
172410

INTADR:

172410

$MODIFY THIS LOC IF DIFFERENT

+ VECTOR ADDRESS-ASSIGNMENT
001412

000124

" DRVECT: 124

$MODIFY THIS LOC IF DIFFERENT

3 BUS REGISTER ADDRESS POINTERS
001414
001416
001420
001422

172410
172412
172414
172416

WCR:
BAR:
CSR:

BOR:

172410
172412
172414

172416

sWORD COUNT

1BUFFER ADDRESS

s COMMAND/STATUS
$BUFFER DATA REGISTER

3 VECTOR ADDRESS POINTERS
001424
001426

000124
000126

DRVCTO:
ORVCT2:

124
126

$READY & NEX VECTOR
sNEW PSW ON INTR

0000000000

sDESCRIBES BOARD TYPE:DR1iW OR DRv1iiB
sTIMER FOR ABORTING PROGRAM

$USED TO DETERMINE BOARD TYPE
$GENERAL PURPOSE COUNTER
$REG DATA SAVED HERE
10=MASTER START - NON-ZERO=SLAVE START

10 OF TIMES TO REPEAT ALL TESTS BEFORE END PASS MSG

177740

016236
000113

177740
016236
000511

001430
001432
001434
001436
001440
001442
001444
001446
001450
001452
001454

sCOMMON PROGRAM LOCATION(S)

08
113

$XMIT WORD COUNT
s XMIT BUFFER ADRS
s XMIT STATUS/CONTROL
$RCV WORD COUNT
$RCV BUFFER ADRS

$RCV STATUS/CONTROL

177773
016236
000501

XMITHO:
-5
DBUF
501

$XMIT BURST DATA LATE TEST.

177766

RCVTMO: -10.
DBUF
103

$RCV BURST DATA LATE TEST

016236
000103

SEQ 18

CZDRKBO DR11 W INTRPROC EXER

PROGRAM

651
652
653
654
655

START

001506
001512
001514
001522

668

177777

001452

001542

012737

012714

000020

001556
001564
001572
001600

012737
012737
012737
012737

012434
000340
013572
000340

000030
000032
000034
000036

001606
001612
001620
001626

213746
012737
012737
012737

001642

001012

022777

001644
001646
001652
001654
001662
001670

000403
012716
000002
012737
012737
012637

001674
001700
001704
001706

012700
013701
010120
062701

001712
001716
001720
001724
001730
001732
001736
001742

022700
001372
012700
013701
010120
062701
022700
001372

001744
001750
001752

005227
001041
104401

001756
001762
001764
001772

005737
001006
023727
001005

START2:
START:
.SBTTL

001140
001100

000340

000004
001646
177570
177570
177777

PROGRAM START
MSTER
START
0-1,MSTER

INITIALIZE

SEQ 19

1 THIS IT MASTER START
1 SKIP NEXT
tSLAVE START

THE COMMON TAGS

#3$CMTAG,R6
(R6).
OSWR,R6 ; sDONE?
-6
#STACK, SP

MOV

@$SCOPE ,80I0TVEC

MOV
MOV
MOV
MOV

@$ERROR
, BIEMTVEC ; ;EMT VECTOR FOR ERROR ROUTINE
#340,80EMTVEC+2 ;LEVEL 7
O3 TRAP ,84TRAPVEC nTRAP VECTOR FOR TRAP CALLS
9340, UOTRAPVECOZ&LEVEL

65%:
66¢:

DOERRVEC.-(SP)
0644 , 00ERRVEC
#0SWR, SWR
®00ISP,DISPLAY

BNE

664

BR
MOV
RTI
MOV
MOV
MOV

65%
#654,(SP)

MOV
MOV
SETUP2: MOV
ADD

crp
BNE
MOV
MOV
SETUP3: MOV
ADOD
cHP
BNE

001424
001412

000002
001430

3+ sLOOP BACK IF NO
13:SETUP THE STACK POINTER
;;IOT VECTOR FOR SCOPE ROUTINE

#340,8¢I0TVEC2 ssLEVEL 7

MOV
MOV
MOV
MOV

cHP

648

000002
001424

s sFIRST LOCATION TO BE CLEARED
3 :CLEAR MEMORY LOCATION

+:SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
$1EQUAL TO A ~-1%, SETUP FOR A SOF TWARE SWITCH REGISTER.

177276

001140
001142

MOV
CLR
CMP
BNE
MOV

MOV

000004
001140
001142

001414
001410

-1,85WR

$ 1SAVE ERROR VECTOR
t3SET UP ERROR VECTOR
HSETLP FOR A HARDWARE SWICH REGISTER
$AND A HARDWARE DISPLAY REGISTER
nTRY TO REFERENCE HARDWARE SWR
$13BRANCH IF NO TIMEOUT TRAP OCCURRED

$3AND

THE HARDWARE SWR IS NOT =

3 sBRANCH IF NO TIMEOUT
$3SET UP FOR TRAP RETURN

OSUREG, SWR
1 sPOINT TO SOF TWARE SWR
S0ISPREG,DISPLAY
(SP)+ ,80ERRVEC
;;RESTORE ERROR VECTOR

OUCR,RO ;SET UP REG ADRS POINTERS
INTADR,R1
sGET BASE ADRS
R1,(RO).
1LOAD EM
#2,R1
'

#BDR+2,RO
SETUP2
SORVCTO,RO

tALL OONE?
18R IF NOT
$1SET UP
VECTOR ADRS POINTER

ORVECT,R1
R1,(RO).
#2,R1
SORVCT2+2,R0O
SETUP3

tGET BASE VECTOR ADRS
s
’
tALL DONE?
1BR IF NOT

.SBTTL
TYPE PROGRAM NAME
11 TYPE THE NAME OF THE PROGRAM IF FIRST PASS

177777
002010

.SBTTL

000042
001140

11 INITIALIZE A FEW VECTORS

000022

001654
000176
000174
000004

.SBTTL
CLR
B8R
MOV

PAGE

+sCLEAR THE COMMON TAGS ($CMTAG) AREA

001100

012737

27-DEC-83 11:11

START1:

012706
005026
022706
001374
012706

001634

660
661
662
663
664
665
666
667

001452

001522
001526
001530
001534
001536

001550

656
657
658
659

005037
000403
012737

MACRO M1200

000176

INC
e-1
$sFIRSY TIME?
BNE
644
1 sBRANCH IF NO
TYPE
639
13TYPE ASCIZ STRING
GET VALUE FOR SOF TWARE SWITCH REGISTER
TST
8042
1 1ARE WE RUNNING UNDER XXDP/ACT?
BNE
664
1 tBRANCH IF YES
cHP
SWR , #SWREG
1 1SOFTWARE SWITCH REG SELECTED?
BNE
674
1 sBRANCH IF NO

CZORKBO DR11-W INTRPROC EXER
MACRO M1200
GET VALUE FOR SOF TWARE SWITCH REGISTER
001774
001776
002000
002006
002006
002054
669 002054

104406
000403
112737
000422

000240

000001

001134

27-DEC-83

66%:

67%:
:65%:
64%:

GTSWR
B8R
MOVB

BR
.ASCIZ
NOP

H¢
11:11

674

PAGE

67-1

5EQ 20

$:GET SOFT-SWR SETTINGS

41, $AUTOB

13SET

AUTO-MODE

INDICATOR

6414

1 3GET OVER THE ASCIZ

<CRLF>0DR11W INTERPROCESSOR EXERCISER

#<CRLF>

CZDRKBO DR11-W INTRPROC EXER
B0ARD TYPE DIALOGUE
671
672 002056

673 002056
002062
002064
002072
002076
002100

012706
000005
012737
005227
001402
000137

001100

104401
000425

002112

002164
680 002164
002170

104401
000411

002172

002214
002214
002216
002222
002224
002232
002236

104410
021627
001051
012737
104401
000411

002262
002262
002266

000426

002344
687 002344
002346
689 002352
690 002354
002369

000576
021627
001414
104401
000410

002402
691 002402
692 002404
693 002412
002416

000640
012737
104401
000410

002440
694 002440
002444

104401
000426

674
675
676
677
678
679

681
682
683

685

002104
002104
002110

002522
002522
002524
002524
002532
002534
002540
002542
002546
002550
002553
002556

104401

000001
177777

MACRO M1200

BROTYP:
001454

002524

Ss:

$:65%:
64s:

13678
664:

000126
000126
002240

24:
001434

33694
68¢:

002270

1371
70¢:

3s:

000127

000127
002420

.SBTTL

BOARD

TYPE DIALOGUE

MOV
RESET
MOV

#STACK, SP

1 ALWAYS RESET

#1, ICOUNT
g;l

$+1ST TIME DO ALL
s+DETERMINE BOARD

INC
8EQ
JMP

TYPE

B8R
.ASCIZ
TYPE

BR
.ASCIZ
ROCHR
cHP
BNE
MOV
TYPE

164
040

126
102

8s:

sINITIALIZE

STACK PTR

BEFORE TESTING
TEST
TYPE

ONCE - THEN 100(10)
ON FIRST PASS ONLY

MORS

,65%

$ i TYPE ASCIZ STRING

648

s 3GET OVER

THE ASCIZ

678

s 1 TYPE ASCIZ STRING

<CRLF>/1IS THIS CPU TESTING A DRV11B OR DR11W?/<CRLF>

664

/TYPE

:3GET OVER THE ASCIZ
/

(SP),#126
3

€126 ,80ARD

694

s TYPE ASCIZ STRING

B8R
.ASCIZ

TYPE

. 718
s s TYPE ASCIZ STRING
704
:;GET OVER THE ASCIZ
/INTERPROCESSOR LINK NOW IN PROGRESS..... /7<CRLF
> <CRLF>

BR
CHP

SYNCST
g%P).0127

8EQ

. 738

;3 TYPE ASCIZ STRING

BR
.ASCIZ

728

B8R

St
€127 ,B0ARD
. 7158

/ERROR

IN ENTRY/

:3sGET OVER

THE ASCIZ

:3TYPE ASCIZ STRING

744
:13GET OVER THE ASCIZ
/W/<CRLF><CRLF>/DR11W BOARD/<CRLF>

TYPE

LI78
764

B8R

SYNCST

cHP
8EQ

#126,B0ARD

B8R

15¢
84
15¢
<CRLF><CRLF>/ DRV118 BOARO/<CRLF>

TYPE

002550

SEG 21

684
::GET OVER THE ASCIZ
/V/<CRLF><CRLF>/DRV118 BOARD/ <CRLF>

BR
.ASCIZ

001434

BR
.ASCIZ

002645

200
122
061

PAGE

LoV
TYPE

001434

002446

000126

11:11

TYPE

002362

000507
022737
001403
104401
000500
104401
000475
200
104
061

27-DEC-83

TYPE

B8R
.ASCII

$13TYPE ASCIZ STRING
s 3sGET OVER THE ASCI2
/INTERPROCESSOR LINK NOW IN PROGRESS..... 7<CRLF »<CRLF >

164
L 78

CZDRKBO DR11-W INTRPROC EXER
BOARD TYPE DIALOGUE

704

705
706

707

708
709

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

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

102
122

117
104

116
122
117
123
122
111
040

124
120
103
123
040
116
116
040
040

127

116
122
122
123

056

200
000
200
122

127
117
104
116
122

117
123
122

114
113

111
040

111
120
107

116
122
122
123
056
200

117

123

056
056
200
040

MACRO M1200

127

000

27-DEC-83

J2
11:11

PAGE

68-1

.ASCII

/INTERPROCESSOR LINK NOW IN PROGRESS

.ASCIZ
.ASCIXI

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

.ASCII

/INTERPROCESSOR LINK NOW IN PROGRESS

ASCIZ
.EVEN

7 /

SEQ 22

/<CRLF><CRLF><CRLF>

117

105
056
056
200
040
061
040
101
040

124
120
103
123
040
116
116
040
040
117
105
056
056
200

T¢:

/<CRLF><CRLF><CRLF>

CZDRKBO DR11-W

711
712
713
714 002742

INTRPROC EXER

27 DEC 83

11:11

PAGE

LSBTTL
SBTTL
.SBTTL

715 002742
716 002746
717 002752

004737
005737
(01402

001452

718

000137

006162

002754

MACRO M1200

014050

15¢:
SYNCST:

MASTER

JSR

PC,CPUHI

TST
BEQ

MSTER
MINIT1

JMP

SINIT1

SEQ 23

TESTS

;START
sYES iNO

AS MASTER?
GO SEND TO

ECHO

SLAVE

MASTER'S

CHECK

DATA

ECHO

CZDRKBO DR11-uW INTRPROC EXER
720
721
722
723 002760
724 002766
725 002770

002774

726
727
728
729
730
731
132
733
734
735
736

003040
003040
003042
003046
003052
003056
003072
003074
003100
003102
003104

MACRO M1200

27-DEC-83

11:11

PAGE

Le
70

SEQ@ 24

{MASTER PROTOCOL INIT-TEST 1

1 0208 54 0 0 08408020004880000800488088884885488
0004004400008 4400448

032777
001425
104401
000421

000000
004737
012706
005077
012737
032777
001005
005337
001371
104015
104412

020000

176432

MINIT1:

BEQ

TYPE

002776

$3165¢:

644

014050
001100
176342
001000
001000
001444

BIT

1$:
001444

176326

B8R
_ASCIZ
HALT
JSR
MOV

CLR

MOV
2%:
BIT
BNE
OEC
BNE
10400015
RSYNC

oB8IT13,8CSR
1
644

<CRLF>/CABLE

$3TYPE ASCIZ STRING

+ sGET OVER THE ASCIZ

IS NOT

INSERTED

HALTING /

PC,CPUHI
OSTACK,SP

8CSR
91000, TIME

01000,3CSR

MTST1

TIME
2

:HAS

SLAVE

SET

MASTEF

DSTATC

MACRO M1200
27-DEC-83
CZDRKBO DR11-W INTRPROC EXER
« MTST)
TEST THAT SLAVE CAN ECHO THE DBR CORRECTLY

11:11

M2
PAGE

THAT

SLAVE CAN ECHO THE DBR CORRECTLY

SEQ 25

738
739

.SBTTL

740

1080000004840 80880008088040R0000008004000000000000000000000000s0s

741
742
743
744
745
746
747
748
749
750

tMASTER COMPUTER STARTS HERE FROM PROGRAM START
:IT SENDS OUT SINGLE WORDS (FLOATING 1/0 PTRN) THRU THE
:0OBR TO THE SLAVE COMPUTER
+IT LOOKS FOR THE SLAVE TO ECHO THE DBR WORD CORRECTLY
tMITHIN A CERTIAN AMOUNT OF TIME
sIF IT FAILS TO RETURN THE WORD AN ERROR IS REPORTED
s THIS TEST IS NOT EXITED UNTIL ALL DATA PATTERNS HAVE
:BEEN SENT AND RECEIVED CORRECTLY

755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
172
773
774
775

TEST

1000040008004 000008000000004000004800000000000000844480888808004048

188800888884 880408088808800480040280800000800080800000488840048044

751

752
753
754

& MTST1

1180000000800 8840000808008808840840000808044400000000004048000400

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

MTSTL:

1%:

177776
176302
013754

001124
001422
013666
176254
001000
001444

001124

2%:

MOV
JSR

RO, 88DR
PC.GOCMPN

MOV
JSR
MOV

B80R, $8DADR
PC.WTCHMPN
S8BOR, $BDDAT

MOV

001122
001126
001444

CLR

MOV

3¢:

001126

104000+1

MOV
OEC
BNE
cMP
8EQ
RSYNC

177001
013754

176200

1START WITH #177776

RO, $GODAT

$sSAVE

1000, TIME
TIME
3¢
$GDDAT, $80DAT
4

CcOoM
coM
BNE

RO
R1
2

INC
8Cs
MOV

RO
2
0177001, 880R

ASL

JSR

1tR1 SAYS FLOAT O LEFT WHEN ZERO

@-2,R0

PC,GOCHMPN

IN RO

:SEND PATTERN OUT
s TELL SLAVE TO PROCEED
IN EXPECTED

$sSET UP DBR ADRS
tWAIT FOR SLAVE TO ECHO DATA
;READ IT BACK
s DELAY

s CORRECT?
:BR IF SO
tRSYNC ON ERROR

1CONVERT PTRN TO FLOATING 1
:TIME TO FLOAT LEFT?
sBR IF NOT
i+ YES

FLOAT LEFT

sKEEP LSB SET
$BR IF ZERO NOT TO CARRY YET
:TELL SLAVE TO GO TO NEXT TEST

;sTELL SLAVE TO READ TEST TERMINATOR

MACRO M1200
27-DEC-83
CZDRKBO DR11-W INTRPROC EXER
& MTST1
TEST THAT €_AVE CAN ECHO THE DBR CORRECTLY
777
778
779
780
781
782

783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799

800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
8¢
822
823

11:11

PAGE

N
72

SEQ 26

tMASTER PROTOCOL INIT-TEST2
&
TEST THAT SLAVE CAN INTERRUPT MASTER:
.SBTTL

F2(SLAVE)

PiRSRANANAEAA0AEEIA00000040040000000000440040008500040040000000400

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

001000
001444

001444

176152
17777S

001446
001446

001446
100000

003462
000340
014076
176074

176134

176126

MINIT2:

MOV

1%:

DEC
BNE
MOV
8IC
MOV

BIT
BEQ
104000+21

RSYNC
MOV
MOV

176116
176112

JSR
MOV
8IC
BIS

001446
001446
001446

176050
176042

MOV

001446
001446
001446

001446
001446

44:

001446
175756

012737
005337

tWAIT FOR

@177775, TEMP
TEMP,8CSR
#100000,aCSR

;CLEAR ALL BUT F1

aCSR, TEMP

.+6

ORTRN,8DRVCTO
€340,80RVCT2
PC.CPULO

8CSR, TEMP
eBIT15,TEMP
€101, TEMP
TEMP,8CSR

8IT
8EQ

02,8CSR
44

8IC
8IC

02, TEMP

MOV

176010

#1000, TIME
TIME
1$

MOV

001375
104020
104412

TO CLEAR

;IS ERROR BIT CLEAR
:RSNC

ON ERROR

;DEFINE RETURN

sALLOW CPU INTERRUPT

: IE,GO
; TELL SLAVE TO INTERRUPT MASTER

8CSR, TEMP
BIT1S5, TEMP
TEMP,8CSR

S¢
8CSR, TEMP
02, TEMP
#BIT15, TEMP
TEMP ,8CSR
€10000, TIME
TIME
3¢

001444

SLAVE

;:DELAY ;WAIT FOR SLAVE

TO INTERRUPT

;RESYNC ON ERROR

004737
032777
001372
012777
022626
012737
005337
001375

011360
002000

005077

175674

PC,RSTVEC
OEOO0.0CSR
1
€0.8CSR

175724
175714

001000

001444

(SP)+,(SP).

2%:

91000, TIME
TIME

8BDR

;IS ATTN CLR?
{tMAKE SURE DSTATC OF
sREADJUST STACK
;:DELAY

SLAVE

IS CLR

ATTN(MASTER)

)

S
MACRO M1200
CZ0RXBO DR11 W INTRPROC EXER
e MTSTY
TESY THAT SLAVE CAN ECHO THE
STAT:

27 DEC 83 11:11
BITS CORRECTLY

.SBTTL

825

o MTST2

TEST

PAGE

2EQ 27

THAT

SLAVE CAN ECHO THE

STAT'

BITS CORRECTLY

1106060000000000000000000000000000000000080800000000000000000000000

8: b4

110000000000000000000000000000000000000000000000000000000060000000

tMASTER SENDS OUT A "FNCT'

ao8
829
83¢

1 THE

MASTER

THEN LOOKS FOR

CODE (1-7) TO THE SLAVE COMPUTER
THE

SLAVE

TO ECHO

THE

CODE

VIA

THE

1 STAT' BITS WITHIN A CERTIAN AMOUNT OF TIME
sIF IT FAILS TO RETURN THE CORRECT CODE AN ERROR IS REPORTED
s THIS

TEST

IS NOT

EXITED UNTIL

tSENT AND RECEIVED CORRECTLY

ALL

'FNCT

CODES MAVE

BEEN

1106000000000000000000000000000000000000000000000000000000000000800
1 1000000000000000000000000000000000000000000000000000000000000000

0137%7
012700
012737
010077
004737
012737
005337
001375

001420
000002
001202

001122

001000
001444

001444

033737
001002
104002
104412
062737
062700
032700
001745
012777
004737
004737

001124

175622

001126

017737

175646
013666

001124

MTST2:

18:
2%:

001126

MOV
MOV
MOV

MOV
JSR
MOV
0€EC
BNE
MOV
8IT
BNE

104000.2

001002
000002
000020

001124

177002
013754

175560

013666

3%:

CSR, $BDADR
02,R0
01202, $GODAT

1SET UP CSR ADRS
1SET UP INITIAL FNCT B8IT COUNT
;LD EXPECETD

#1000, TIME
TIME
24
8CSR, $8DDAT
$GODAT, $8DOAT
3

sDELAY

RO, 8CSR
PC.MTCHMPN

sLOAD FNCT BITS
sLOOX FOR SLAVE YO ECHO vIA

STAT:

sREAD CSR
1CORRECT?

18R IF SO

RSYNC
ADO
ADD
B8IT

#1002, $GDDAT
e2,R0
#20,R0

1RSYNC ON ERROR
s ADVANCE EXPECTED
1 ADVANCE PTRN
+ALL BEEN DONE?

MOV
JSR

0177002, 880R
PC,GOCMPN

s TELL SLAVE TO GO TO NEXT TEST
:GO YO COMPANION

BEQ

JSR

PC.WTCHMPN

18R IF NOY

;WAIT FOR COMPANION

BITS

\
CZDRKBO DR11-W INTRPROC EXER
e

MISTS

BLOCK MODE

MACRO M1200

27 DEC

WORD XFER MASTER XMITS 32 WORDS

LSBTTL

859
860

11:11

SLAVE

PAGE

7EQ 28

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

;;0‘0.000‘00.0‘0.‘0.“0.000"0000‘0‘.‘0‘0000“0‘.0.000.000000‘000

861

110008000000 008808800048000000080080000000080000008000000800000800000

tMASTER XMITS A 32 WORD BLOCK OF DATA TO SLAVE
1 THEN CHECKS FOR PROPER INTERRUPT STATUS, WC £ BA

862

864
865

1 THE SLAVE CHECKS THE SAME PLUS THE DATA RECEIVED

867 003652

MTISTS:

;.0000‘.00.000000‘0.“00“000‘0000‘000‘0‘..0“0‘.0000‘0000000‘0.‘
;;ooooooooooo‘ooooooooooooooo‘otooooooooooooooooooooooooooooooooo

003652

869 003656
870 003662
871 003670
872 003672
873 003700
874 003706
875
876 003714
003722

003730

003732

003736
003740
003744
003746
003754
003762
003770
003774

004112
004120

004134
004136
910
911
912
913
914
915

004144
004146
004134
004162
004166
004170

004737
005077
0227177
001372
017737
042737
052737

014050
175536

013777
032777

001446
001000

001774
004537
004172
0043537
177740
012737
013777
013777
004737
0177%7
042737
052737
013777
017737
042737
042737
013777
013777
003337
001375
017737
017737
042737
042737
013777
022737
001404
012737
000403
012737
013737
104401

104003

000514

000200

175530

175522

001446

000002

001446

100000

001446

175476
175470

011340

1s:
a1s:

38%:

4&0$:

37¢:

011416

JSR
CLR

PC,CPUMI
8CSR

:2c‘>o.ocsn
1

tNO INTR ALLOWED YET
+IS ONLY READY SET

MOV

SCSR, TEMP

BIS

02, TEMP

+SET DSTATC IN SLAVE

MOV
8IT

TEMP,8CSR
#1000, 8CSR

tDSTATC HERE SAYS SLAVE

BEQ

40%

8IC

JSR

®BIT1S,TEMP

s TELLS SLAVE TO SETUP FOR XFERS
11IS READY

TO DO XFERS

RS,SETVEC

1SET UP INTR RETURN ADRS

JSR

RS ,LOBUF

;GO LOAD 'DBUF' WITH DATA PTRN

€10000, TIME
XPRAM, SWCR
XPRAM:2 , 8BAR
PC.CPULOD
SCSR, TEMP

3¢

-32.

tRETURN TO 38 ON INTR

;00 32.

LOCATIONS

010000
001456
001460
014076
175420

001444
175432
175426
001446

MOV
MOV
MOV
JSR
MOV

000010
001446
175370

001446
175374
001446

8IS
MOV
MOV

€10, TEMP
TEMP,BCSR
8CSR, TEMP

175344
175336

TEMP, BCSR
XPRAM.4 ,8CSR
TIME
24
8CSR, $BDDAT
SCSR, TEMP

1SET UP CONTROL - IE, FNCT 3 &€ GO.AND CYCLE
tWAIT FOR INTR
t$UNTIL O
tREAD CSR - SHOUWLD NEVER GET HERE

0500, TEMP

;DISABLE IE & CYCLECIF THIS IS

100000

100000
000002

001446
001462
001444

001446

8IC

001446
001446

8IC
8IC

175324
175316

001126
001446

MOV
MOV
DEC
BNE
MOV
MOV

000500

001446

8IC

100000

001446

24:

001446

8IC

oBIT1S,TEMP

1SET UP A TIMER VALUE
1SET UP WORD COUNT
1SET UP BUFFER ADRS
tALLOW THE ROY INTR
:+SINGLE CYCLE

#BIT1IS, TEMP
02, TEMP

BIT1S,TEMP

000127

001434

175272

MOV

g’;

:gi."l.eomo

1IF DR11M:CYCLE WILL BE CLEAR

005710

001124

MOV

#5710, $GODAT

1LD EXPECTED - STAT A £ C, CYCLE, RDY, IE, FNCT 3

B8R

464

005310
001420
015776

001124
001122

45¢:
469$;

MOV
MOV

104000+3

TYPE

TEMP,8CSR

+A DRV118: CYCLE HIGH WILL
sPREVENT BOR FIOM BEING READ)

tMUST BE DRV118

05310, $GDDAT
CSR, $BDADR

1STAT AEC,.RDY,IE.FNCT 3
1SET UP CSR ADRS

1GO RESYNC ON ERROR

+MSG1

CZDRKBO DR11-W INTRPROC EXER
MACRO M1200
27-DEC-83 11:11
s MTST3 B8LOCK MODE WORD XFER-MASTER XMITS 32 WORDS TO SLAVE
916 004172
917 004174
918 004202
919 004210
920 004216
921 004224
922 004232
923 004240

924 004242
925
926
927
928

022626
017737
017737
042737
042737
013777
022737
001404
012737

000403
012737

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

3s:

001126
001446
001446
001446

001124

005310

001124

001126

001124

BIC
BIC

175166
001434

005710

001420
015776

ce
MOV
MOV

MOV

31s:
30¢:

001122

1040004
4%

D4
PAGE

74-1

(SP)e,(SP)e
8CSR, $B80DAT
OCSR, TEMP
BIT15, TEMP
9500, TEMP
TEMP,QCSR
0127,80ARD

30¢
05310, $GDOAT

cep
BEQ
MOV

TYPE

CSR, $BDADR
+MSG1

sCORRECT?
tBR IF SO

CLR

64
$GDDAT

1GO RESYNC ON ER
1LO EXPECTED WC

$GODAT, $8DDATY

001122

WCR, $BDADR

001460
001456

001124

68
XPRAM«+2, $GOOAT
XPRAM,RO

001122

IE & CYCLE(CLR CYCLE

B8R
MOV

001414
015776

001416
015776

1DISABLE

31
#5710, $GODAT

001126

001126
001126
001126

1READ STATUS

cHP
B8EQ
MOV

175076

001124
175030
000001
001124

tFIX STACK SINCE NO RTI

g?CR.OBOOAT

+MSGL

1LD EXPECTED - STAT A £ C,
1MUST BE DRV118

1SET UP CSR ADRS

sREAD WORD COUNT
1BR IF ZERO

1SET UP WCR ADRS
sGO RESYNC ON ER
1GET STARTING ADRS OF XFER

sGET WC

S$GODAT, 6éBDOAT

1GET ACTUAL ¢
s CONVERT TO WORD
tADD TO BASE ADRS
sREAD BAR ADRS
sELIMINATE LSB
sCORRECT?

B8AR, $BDADR

1SET UP BAR ADRS

SBAR, $B0OAT
481700, $BDDAT

+MSG1

18R IF SO

CYCLE,

THIS IS A DRv11B)

RDY,

IE,

FNCT 3

CZORKBO DR11-W INTRPROC EXER
¢

MTST3 BLOCK

MODE

WORD

MACRO M1200

XFER-MASTER

XMITS

ggz

WORDS

tERROR

957

004422

012737

010000

958
959
960
961
962
ggz

004430
004434
004436
004440
004446
004454

005337
001375
000005
017737
042737
001404

001444
174754
170777

001450
001450

21%:

965 004456
966 004464
gg; 004466

022737
001365
104412

001000

001450

23%:

9?9
970
971 004470

972 004476
973 004502
974
975
976
977
978
979

27-DEC-83

004504
004512
004520
004526
004530
004536

980 004540

981 004542
982 004544
983

001444

11:11

001444

000002
174702
170777

174706
001450
001450

001000

001450

011360

SEQ 30

IN MASTER

WAIT

ON SLAVE FOR

ITS
SLAVE

MOV

€10000, TIME

tWAIT FOR

78:

DEC
BNE
RESET
MOV
8IC
“EQ

TIME
7

sCOUNT AWAY
sUNTIL DONE
s TELL SLAVE

8%:
208 :

9%:

000764

104412
004737

68:

244

010000
001444

E5)

SLAVE

cHP
BNE
RSYNC

8CSR, SAVE
#170777,SAVE
243
41000, SAVE
21

$NO ERROR

012737
005337
001375
112777
017737
042737
001405
022737
001402

PAGE

118:
10¢:

MOV
OEC
BNE
MOVB
MOV
8IC
8EQ
cHP
8EQ

IN MASTER-WAIT

STATUS
TO COMPLETE

WE HAVE

AN ERROR

:RSYNC ON ERROR
ON SLAVE FOR

ITS

STATUS

010000, TIME
TIME
20¢
#2,8CSR
8CSR, SAVE
#170777,SAVE
118

1WAIT FOR SLAVE TO CCMPLETE
$COUNT AWAY
sUNTIL OONE
s TELL SLAVE ALL 0K
tREAD CSR
$SAVE 'STAT' BITS
1WAS THERE AN ERROR?

#1000, SAVE
104

tNO ERROR?

B8R

RSYNC
JSR

PC,RSTVEC

DATA CK

tRSYNC ON ERROR
16O RESTORE VECTOR

CKS

F 2

CZORKBO DR11-W INTRPROC EXER
s

MTST3 BLOCK MODE

WORD

MACRO M1200

XFER-MASTER

XMITS

985

27-DEC-83 11:11

32 WORDS

1DETERMINE

988
989

001000

001444

996 004562
997 004564
998
999 004572

001375
013777

001434

174630

1004 004610
}ggz 004614
1007

TESTING DETERMINATION

IF BURST

XFERS AND BURST DATA LATE

ARE

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

012737

1003 004606

SEQ 31

110000800000 00000000000000000000000000480800000000000000080800000800

994 004550

1001 004602
1002

;BE DONE.
TEST WILL BE DONE ONLY IF BOTH MASTER AND SLAVE
tARE BOTH DR11W'S.
OTHERWISE ,SLAVE WILL BECOME MASTER

990

1000 004576

PAGE

1100000000000 00000000000840800000000000080004080000400000004600044

987

995 004556

SLAVE

1BURST MODE

986

991
992
993

005337

001444

MSBRD:
1¢:

MOV

01000, TIME

BNE
MOV

13
B0OARD, 88DR

DEC

TIME

004737

013754

JSR

PC,GOCMPN

005777

174614

TST

880R

004737

001402

000137
000137

013666

004620
006162

JSR
8EQ

2s:

JHP
JHP

PC,WTCMPN
24

MTSTA
SINITL

tWAIT FOR SLAVE
s TELL SLAVE WHAT BOARD
1 TYPE MASTER IS
: TELL SLAVE TO RESPOND

tWAIT FOR SLAVE TO EVALUATE

1 SLAVE RESPONDS AND MASTER CAN
sFIND OUT IF TEST 4 SHOULD BE DONE
10 SAYS NO

s YES;00 TEST 4
i

(3 d

)

MACRO M1200
27-DEC-83 11:11
CZDRKBO DR11-W INTRPROC EXER
s MTSTA BURST MODE WORD XFER-MASTER XMITS 32 WORDS TO SLAVE

1009
1010
1011
1012
1013
1014
1015
1016
1017 004620
1018 004620
1019
1020
1021
1022
1023
1024
1025
1026
1027 004670
1028
1029 004676
1030 004700
1031 004704
1032 004706
1033 004712
1034 004714
1035 004722
1036 004730
1037 004736
1038 004742
1039 004750
1040 004756
1041 004764
1042 004772
1043
1044
1045
1046 005014
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059 005114
1060 005122
1061
1062

1063 005144
1064 005146

.SBTTL
.SBTTL

PAGE

SEQ

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

1106006000000000000000000000048800400000000000888000000040000000008
110600000000000000800000000000000000000000808040000004000400008880800¢

tSAME AS TEST 3 EXCEPT BURST MOOE :B0ARD DOES NOT RELEASE BUS
sUNTIL WORD COUNT OVERFLOW

1 0 80 8 8 8 80008888480080820000480008804880400808000008000000880400
1 0 8 8 40 40 84082880884400400008084000804880880080008004800000808000

004737
005077
022777
001372
017737

014050
174570
000200

174562

174554

001446

042737
052737

100000
000002

013777
032777

001446
001000

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

MTSTA:

001446
001446

174530
174522

011340

14:
414

JSR
CLR
g:z

PC.CPUHI
8CSR
:i?0.0CSR

38%:

MOV

8CSR, TEMP

40%:

37s:

011416
010000
001456
001460
014076

001444
174464
174460

000002
001446
000501

001446
174426
174420

174452
100000

001444

001446
001446

174406

001126

100000
000100
001446
001300
001420
016030

001446
001446
174354
001124
001122

174400

001446

174322
174314
100000
000100
001446

001126
001446
001446
001446
174270

001124

001126

001420

001122

001300

001124

8IC
8IS

$SET DSTATC

IN SLAVE

;s TELLS SLAVE TO SETUP FOR XFERS

TEMP,8CSR
#1000,8CSR

BEQ
JSR
3
JSR
-32.
MOV
MOV
MOV
JSR

404
RS,SETVEC

10000, TIME
XPRAM, BWCR
XPRAM+2, 8BAR
PC.CPULO

:1SET UP INTR RETURN ADRS
tRETURN TO 38 ON INTR
sGO LOAD 'DBUF' WITH DATA PTRN
s00 32. LOCATIONS
$SET UP A TIMER VALUE
$1SET UP WORD COUNT
sSET UP BUFFER ADRS
tALLOW THE RODY INTR

8IC
MoV
MOV

0”2, TEMP
TEMP,8CSR
4501 ,8CSR

$1SET UP CONTROL

BNE

sUNTIL O

MOV

SCSR, TEMP

DEC

MOV

8IC
8IC
MoV
4S5%:
MOV
46¢:
MOV
TYPE
1040003
BR
3s:
ce
MOV
MOV

8IC

gé::

sIS ONLY READY SET

MOV
BIT

MOV
8IC

BIT1S, TEMP
2, TEMP

1NO INTR ALLOWED YET

BIC
MOV
MOV
ce
BEQ
MOV

RS, LDBUF

SCSR, TEMP
BITIS,TEMP

TIME

SCSR, 8DDOAT
BIT1S,TEMP
#100, TEMP
TEMP,8CSR
#1300, SGDDAT
CSR, $8DADR
MSGe

;OSTATC HERE SAYS SLAVE

+IS READY

TO DO XFERS

1WAIT FOR INTR

IE,

GO,AND CYCLE

tREAD CSR - SHOULD NEVER GET MERE
1DISABLE

1STAT C,ROY,IE
1SET UP CSR ADRS

64
(SP)e,(SP)e
8CSR, $BDOAT
SCSR, TEMP
BITLIS,TEMNP
€100, TEMP
TEMP,8CSR

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

$GDOAT, ¢BDDAT
44
CSR, $8DADR

sCORRECT?
t1BR IF SO
tSET UP CSR ADRS

1DISABLE

#1300, $GDOAT

CZDRxBO DR11-W INTRPROC EXER
(DR11-W TO DR11-W ONLY)
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078

005154
005160
005162
005164
005170
005176
005200
005206
005212
005214
005216
005224
005230
005232
005234
005240
005246

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

as:

104000.5

1110
1111
1112
1113
1114

1115
1116
1117
1118
1119
1120
1121

010000
001444

«MSG2

B8R
CLR

63
$GODAT

8EQ
MOV
TYPE

$
WCR, $8DADR

MOV

000010

001126
001126
001122

001450
001450

017737
042737
022737
001404

174052
170777

005000

001450
001450
001450

004000

001450

022737
001353

64:
Ts:

MSG2

21s:

1GO RESYNC ON ER
1LD EXPECTED WC
tREAD WORD COUNT

1BR IF ZERO
$1SET UP WCR ADRS
1GO RESYNC ON ER
$tGET STARTING ADRS OF XFER

1GET WC

;GET ACTUAL ¢
;CONVERT TC WORD

sADD

TO BASE

ADRS

;?DDAT.‘BDDAT

BAR, $BDADR

;SET UP BAR ADRS

IN MASTER-WAIT

TIME
7

s8R IF SO

ON SLAVE FOR

ITS STATUS

iWAIT FOR SLAVE

sCOUNT AWAY

TO COMPLETE

DATA CK

sUNTIL DONE
s IF ERROR THAN INIT
1 TELL SLAVE WE HAVE AN ERROR

s THIS SECTION MOOIFIED FOR STATUS LINE SKEW
MOV
8IC
8eQ
MOV
8IC

23¢:

SEQ

sREAD BAR ADRS
tELIMINATE LSB
sCORRECT?

#10,8CSR

244

104412

gflCR.tBDDAT

910000, TIME

174074

174070
170777

77-1

MSG2

104000+6

017737
042737
001771

H 4

64
XPRAM+2, $GDDAT
XPRAM,RO
RO
RO
RO, $GDDATY
8BAR, $BDDAT
#B81I700, $BDDAT

St:

001126

001444

PAGE

TYPE

;ERROR

012737
005337
001375
000005
012777

11:11

8CSR, SAVE

#170777,SAVE

218

8CSR, SAVE

s+ READ STATUS
i+ CLEAR DON'T CARES
s LOOP IF COMPANION NOT READY YET

crP
BEQ

#5000, SAVE
244

: RE-READ STATUS
+ CLEAR DON'T CARES
1+ CHECK FOR GOOD STATUS
+ IF EQ THEN RESYNC

cHP
BNE

21t

#4000, SAVE

+ ELSE CHECK FOR COMPANION ERROR

#170777,SAVE

RSYNC

IF NE THEN COMPANION STILL NOT READY

tRSYNC ON ERROR

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

010000
001444

001444

000012

173776

84:
208

MOV
DEC
BNE

MOV

€10000, TIME
TIME

204

012,8CSR

sWAIT FOR SLAVE TO COMPLETE CKS
1COUNT AWAY
tUNTIL DONE
s TELL

SLAVE

ALL

s THIS SECTION MODIFIED FOR STATUS LINE SKEW

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

1123 005422

1124 005430
1155 005436

017737

173772

042737
001771

170777

1127 005440
1128 005446

017737
042737

173754
170777

1%3? 005462

001405

1126

1129 005454
1132
1133
1134
1135
1136
1137

005464
005472
005474
005474
005476
005476

022737

005000

022737
001353

004000

001450

9s:

001450

011360

27 DEC-83 11:11

MOV

BIC
BEQ

001450
001450

001450

10¢:

PAGE

77-2

B8CSR, SAVE

#170777,SAVE
9

SEQ 34

3 READ CSR
i
+

SAVE ’'STAT' BITS
IF COMPANION NOT READY

MOV
8IC

9CSR, SAVE
€170777,SAVE

1+
1+

RE-READ STATUS
CLEAR DON'T CARES

BEQ

10¢

IF SLAVE OK

CMpe

11$:

104412
004737

MACRO M1200

CHe
BNE

95000, SAVE

94000, SAVE
9

RSYNC
JSR

;
:+

CHECK FOR COMPANION OK

THEN CONTINUE

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

1RSYNC ON ERROR
PC,RSTVEC

THEN LOOP

GO RESTORE VECTOR

MACRO M1200
CZDRKBO DR11-W INTRPROC EXER
27-DEC-83 11:11
& MISTS BURST DATA LATE TEST-MASTER XMITS S WORDS TO SLAVE

1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195

/ML
.SBTTL

J5
PAGE

DATA

LATE

SEQ

MTSTS

BURST

WHILE

SLAVE RECEIVES 5 AND TIMES OUT

TEST-MASTER

XMITS

WORDS

SLAVE

(DR11-W TO DRil-W ONLY)

110000000000000000000080000000400000000008400000000000004808880008

110800860040000400000000800880000000008400804000000000006080080000488

:PROCEDURE: MASTER XMITS S WORDS

TO SLAVE

IN BURST MOOE

1SLAVE IS SETUP TO DO 10 XFERS. CHECK THAT MASTER INTERRUPTS
18Y WCOF,
AFTER 5 XFERS ARE DONE IN
s SLAVE, TIMEQUT OCCURS, SINCE SLAVE WAITS FOR GO-AMEAD

1FROM MASTER

:SLAVE:

TO CONTINUE,BUT MASTER NEVER RESPONDS.

CHECK THAT S XFERS HAVE BEEN COMPLETED.

11080080000000800800800000004000000004800000000000008008808888800480
1108080600000 800088404000000000000000084040040000400000000808888000040

004737
005077
022777
001372
017737
042737
052737
013777
032777

005722
005724
005732
005740
005746
005754
005762
005764

173672

100000
000002

001446
001000

001774
004537
005722
004537

011416

012737
013777
013777
004737
013777

010000
001472
001474
014076
001476

005337
001375
017737
017737
042737
042737
013777
012737
013737
104401
104003
000430
022626
017737
042737
042737
013777
017737
001441
013737

001444

177740

005716

014050
173706
000200

MTSTS:

1s:

173700
001446
001446
001446

173646
173640

173470
100000

CLR

JSR

PC,.CPUHI

38¢:

cHp
BNE
MOV
8IC
8IS

#200,8CSR
41
OCSR, TEMP
#BIT1S,TEMP
€, TEMP

MOV

408

BIT

8CSR

TEMP ,8CSR

#1000,8CSR

sNO INTR ALLOWED YET
:IS ONLY READY SET

sSET DSTATC IN SLAVE

1 TELLS SLAVE TO SETUP FOR XFERS
sOSTATC HERE

SAYS SLAVE

:IS READY TO DO XFERS

408
RS,SETVEC

001444

BEQ
JSR
3
JSR
-32.
MOV

410000, TIME

1SET UP INTR RETURN ADRS
IRETURN TO 3¢ ON INTR
1GO LOAD 'DBUF’' WITH DATA PTRN
;00 32. LOCATIONS
$SET UP A TIMER VALUE

173566

JSR
MOV

PC.CPULO
XMITMO.4,8CSR

tALLOW THE ROY INTR
$1SET UP CONTROL - IE,

DEC
BNE
MOV
MOV
BIC
BIC
MOV
MoV
MOV
TYPE

TIME
24
SCSR, $8DDAT
SCSR, TEMP
eBIT1S,TEMP
100, TEMP
TEMP ,8CSR
#1300, $GODAT
CSR, $BDADR
+MSG3

B8R

011340

173554
173546
100000
000100
001446
001300
001420
016062

414

37¢:

MOV
MOV

173602
173576

2s:
001126
001446
001446
001446
173522
001124
001122

1040003

900100
001446
173434

001446
001446
001446
173444
001126

001414

001122

3s:

cHP
MOV
8IC
8IC
MOV
MOV

B8EQ
MOV

RS,LDBUF

XHMITMO, SWCR
XMITMO .2, 88BAR

(SP)+,(SP).
8CSR, TEMP
#BIT1S,TEMP
€100, TEMP
TEMP ,BCSR
SWCR, $BDDAT

WCR, $BDADR

sSET UP WORD COUNT
1SET UP BUFFER ADRS

GO,AND CYCLE

sMAIT FOR INTR
sUNTIL O

$READ CSR

SHOULD NEVER GET HERE

1DISABLE IE
sLD EXPECTED
STAT C
sSET UP CSR ADRS

;GO RESYNC ON ERROR

sFIX STACK SINCE NO RTI

sDISABLE IE
sREAD WORD COUNT

t1BR IF ZERO

$SET UP WCR ADRS

ROY,

1IE

1<
CZDRKBO DR11-W INTRPROC EXER

WHILE

SLAVE RECEIVES 5 AND

1196 005772
1197 005776
llgg 006000
11

104401
104005
000400

MACRO M1200

TIMES OUT

(DR11-W

016062

11:11

TO DR11-W ONLY)

104000+5

1200
1201
158%

TYPE

+MSG3

B8R

PAGE

78-1

SEQ 36

1GO RESYNC ON ER

tERROR IN MASTER-WAIT FOR SLAVE

1204 006002
1582 006004
1

1207
1208
1209
1210
ig{%

006012
006012
006020
006026

1213
1214
1215
1216
1217
1218

00000S
012777

000010

173406

017737
042737
001771

173402
170777

001450
001450

006030
006036
006044
006052
006054
006054

017737
042737
022737
001404

173304
170777
005000

001450
001450
001450

022737
001353

004000

001450

iggé 006064

104412

1219 006062
1220 006064

64:

21s:

23%:
248
:

1223
1224

{ggg

RESET
MOY

#10,8CSR

STATUS

; TELL SLAVE WE HAVE AN ERROR

: THIS SECTION MODIFIED FOR STATUS LINE SKEMW.
MOV
8IC
8EQ

8CSR, SAVE
#170777,SAVE
214

s+
s+
s+

READ STATUS
CLEAR DON'T CARES
IF COMPANION NOT READY

MOV
8IC
cHP
eEQ

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

1+
s+
1+
3

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

cHP
BNE

#4000, SAVE
21

s+
s+

CHECK FOR COMPANION ERROR
IF NE THEN COMPANION STILL NOT READY

RSYNC

THEN LOOP

tRSYNC ON ERROR

stNO ERROR IN MASTER-WAIT FOR SLAVE STATUS

1227
1228 006066
1229 006066

1230 006074
{ggé 006102
1233
1234
1235
igg?

27-DEC-83

006104
006112
006120
006126

1238 006130

s THIS SECTION MODIFIED FOR STATUS LINE

017737
042737

173326
170777

001450
001450

017737
042737
022737
001410

173310
170777
005000

001450
001450
001450

001771

igig 006136

001353

022737

004000

001450

1241
1242
1243
1244
1245

012777
104412

000010

173252

012777
004737

000012
011360

173242

006140
006146
006150
006150
006156

9¢:

MOV
8IC

SCSR, SAVE
#170777,SAVE

3+
¢

READ CSR
SAVE ‘STAT'

MOV
8IC
crHe
8EQ

SCSR, SAVE
®170777,SAVE
#5000, SAVE
10¢

s
s+
1
s+

RE-READ STATUS
CLEAR DON‘'T CARES
CHECK FOR COMPANION OK
IF SLAVE OK THEN CONTINUE

etQ

cHP

10¢:

SKEM.

BITS
IF COMPANION NOT READY THEN LOOP

BNE

#4000, SAVE

ELSE CHECK FOR COMPANION ERROR

MOV
RSYNC

€10,8CSR

+
1

REPORT ERROR STATUS
RSYNC ON ERROR

MOV
JSR

€12,8CSR
PC.RSTVEC

s
s+

TELL SLAVE ALL OK
GO RESTORE VECTOR

IF NE THEN COMPANION STILL NOT READY
TO SLAVE

CZORKBO DR11l W INTRPROC EXER

MACRO M1200

27 DEC-83

1248

.S8T1

1250

.SBTTL

1249

.SBTTL

1251
1252
1253

SLAVE

TESTS

SEQ@ 37

INIT-TEST1

1000640 004008000280484000000000000000404000040008000008880000080404

1255 006162

1256 006170
1257 006172
006176
1258
1259
1260
1261
1262
1263
1264
1265
i
1267
1268
1269

PAGE

:SLAVE PROTOCOL

1254

11:11

006242

006242
006244
006250
006254
006260
006266
006270
006276
006300
006304
006312
006314

032777

001425
104401
000421
000000
004737
012706
005077
032777
001404
032777
001374
004737
032777
001774
000137

020000

173230

SINIT1:

006200

$:658:
644:
014050

1¢:

001100
173140
001000

173132

001000

173122

2%:

013754
001000

173106

3¢:
4%:

006330

BIT

BEQ
TYPE
BR

.ASCIZ

HALT
JSR
MOV
CLR
817
B8EQ
BIT
B8NE
JSR
B8IT
8EQ
JMP

0BIT13,8CSR

1
,65%
644

13 TYPE ASCIZ STRING
;3GET OVER THE ASCIZ

<CRLF>/CABLE IS NOT INSERTED - HALTING /

PC,CPUHI

#STACK,SP
8CSR
#1000,8CSR
3¢

#1000, 8CSR
2
PC,GOCMPN
€1000,8CSR
4%
SL1STR

tWHAT IS DSTATC
1 IF CLR-BRANCH AND WAIT FOR MASTER
:IF NOT,WAIT FOR CLEAR
:HAS MASTER SET DSTATC
;NOT YET

IN SLAVE?

CZDRKBO DR11-W INTRPROC EXER
s

STST1

RECEIVE

MASTER'S

DBR

MACRO M1200

DATA

AND

SEND

27-DEC-83 11:11

BACK

VIA

DBR

PAGE

2
M3

SEQ 38

1271
1272

.SBTTL
STST1
RECEIVE MASTER'S DBR DATA AND SEND IT BACK VIA DBR
150000880880 0000408040408000008000000000000040400400048400044080888848

1274
1275

iNOW THIS COMPUTER BECOMES THE SLAVE AND ECHOS MASTER’'S DBR DATA
i SLAVE COMPUTER STARTS HERE FROM PROGRAM START 204
-

1277

(1000048800000 40000000088800000000400040400000044008000404080000484

1273

110088880040 00848800088800000840088000800000000000004404800000008408

1276

1278
1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289

110004000000 000000400840000800004000000000040400400040000080088040004

006320
006324

004737
004737

013754
013666

006330
006336
006344
006346
006354
006362
006366

017737
022737
001412
013777
012737
005337
001375

173066
177001

001450
001450

001450
001000
001444

173046
001444

1291 006372

000240

1290 006370

000753

STST1:

JSR
JSR

PC ,GOCMPN
PC,WTCMPN

SL1STR:

MOV
cMP
BEQ
MOV
MOV
DEC
BNE

88DR, SAVE
9177001, SAVE
a4
SAVE, 8BDR
91000, TIME
TIME
54

S¢:
4%

B8R

NOP

STST1

s TELL MASTER WE ARE READY
1DATA AVAILABLE?
tWAIT ON IT
1GET DATA
1 TEST TERMINATOR?
1BR IF SO
:SEND IT BACK
;DELAY BEFORE CALLING MASTER

;GO LOGK FOR MORE DATA

N?
D

CZDRKBO DR11-W INTRPROC EXER
¢

TEST

1293
1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
1305

THMAT

SLAVE

INTERRUPTS

MACRO M1200

MASTER:F2

27-DEC-83

ATTN

.SBTTL

TEST

11:11

THAT

PAGE

SLAVE

:SLAVE PROTOCOL

INTERR

SEQ 39
PTS

MASTER:F2

ATTN

INIT-TESTZ2

1 28 0 8 0848 434888808800040804008040484800088040448884488208040804804400

SINITZ2:

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

173020
013666
173010
100000
000004
001446
172760
100000
000004
001446
010000
001000
001444

CLR
JSR

MOV

001446
001446
001446
172764
001446
001446
001446

8IC
8IS
MOV
MOV

8IC
8IC

172734

001444
172720

2%:

MOV
MOV

BIT
BEQ
DEC
BNE

RSYNC

@CSR

PC,WTCMPN

8CSR, TEMP
08IT15,TeMP

:CLR DSTATC OF MASTER

04, TEMP
TEMP ,BCSR

sSET INTERRUPT MASTER

04, TEMP
TEMP ,8CSR
910000, TIME
€1000,8CSR
STST2
TIME
2s

;CLR F2

8CSR, TEMP
o8IT1S, TEMP

;WAIT DSTATC SLAVE TO CLEAR

PAGE
MACRO M1200
27 DEC 83 11:11
CZORxB80 DR11 W INTRPROC EXER
STAT
BITS AND SEND IT BACK VIA
FN
e STST?
RECEIVE MASTER S

1315
1316
1817
1318
1319
1820
1321
1322
1323
1324

.SBTTL

STST2

“EQ 40

RECEIVE MASTER'S

'STAT'

BITS AND SEND

BACK

VIA

1 0 0 0 0 0 0 00008000000000000000000000000000000000000000000000000
1 0 0 0 0 0 000000000000000000000000000008000000000000000000000800

tRECEIVE

‘' STAT

BITS AND CONVERT

'FNCT:

BITS AND WRITE

10 CSR

1 0 0 0 0 0 0 00000000000000080000000000000000000000080000000000000
1 0 0 0 0 0 0 00000080000000000000000000000000000000000000000000000

006512
006512

006516
006524
1325 006530
1326 006532

1327
1328
1329
1330
1331
1332
1333

006540
006542
006550
006556

006566

004737
012737
005337
001375
0227717
001412
0177%?

042737

113777
000752
004737

STST?:

013666
001000

001444

177002

172662

172652

001450
001450

001444

170777

001451
013754

Ss:

2s:

172634

3s:

JSR

a0
DEZ
BNE
crw
BEQ
MOV
8IC
MOve
8R
JSR

PC.WTCMPN

01000, TIME
TIME

S5
;177002.8809
$

SCSR, SAVE

€170777,SAVE

SAVE.]1,9CSR

PC.GOCMPN

sWAIT FOR MASTER

sDELAY
s TEST

TERMINATOR?

18R IF SO
sREAD THE CSR
$SAVE ONLY THE STAT BITS
;ECHO WITH FNC: BITS
1LOOX FOR NEXT
sTELL

‘STAT

MASTER

COODE

CONTINUE

FNC”

BXY,‘

-—

DR11 w INTRPROC EXER
8L OCx MODE

WORD

xFER

MACRO M1200

TEST

SLAVE

RECEIVES

LSBTTL
.SBTTL

DEC

3¢

11:11

PaGt

STST3 BLOCK MODE WORD
WORDS FROM MASTER

5EQ 41
XFER

TEST

SLAVE

RECEIVES

1100000460000 0800800000000000048000060800000800000000000000000000000
1100800000000 060000000600000000080000000000800088000000800000000000000

1 THIS TEST SETS UP TO RECEIVE A 32 WORD BLOCK OF DATA FROM THE MASTER

s THEN CHECKS FOR PROPER

INTERRUPT

sIF AN ERROR IS DETECTED THE SLAVE
1ERROR, AND RESYNCS ON PROGRAM

STATUS,

TELLS

WC, BA £ DATA
THE MASTER, REPORTS

THE

$1100000000000000000000000000008000000000800008008000080000000800
1100000000000 000000000008080800800008000000000000000000000008500000

006572
006372
006576
006610

004737
012737
005337
001375
005077
022777
001372
004537
007016
004537
177740
012737
013777
013777
004737
017737
042737
052737
013777
013777
005337
001373
017737
017737
042737
042737
013777
012737
013737

014050
001000
001444

104401
104007
000340
022626
017737
017737
042737
042737
013777
012737
023737
001407
013737

013776

104401
104010

015776

172602

001200

001444

172574

571818
18:
404

JSR

MOV

172524
100000

000012
001446

RS,SETVEC

172536
172532

8CSR, TEMP
BIT13, TEMP

172500

001126
001446
001446
001446
172426
001124
001122

000100

PC.CPULO

001446
001446
001446

172460
172432

172374
172366

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

001444

172472

100000
000100
001446
004312
001420

TIME
404

RS,CLRBUF

001470

001444

28:

1SET UP THE INTR RETURN ADRS

sRETURN Y0 3¢ ON DATN INTR
1GO CLR ‘DOBuF'
100 32. LOCATIONS
1SET UP A TIMER VALUE

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

012, TEMWP
TEMP, BCSR
RPRAM.4 ,BCSR
TIME
24

1tFNCT 3€1

0100, TEMP
TEMP,BCSR
#4312, IGDOAT

tDISABLE IE

SCSR, $BDOAT
8CSR, TEMP
8IT13, TEMP

CSR, $8DADR

1SET UP CONTROL
sWAIT FOR

- FNCT 3 € 1,

INTR

€ GO

sUNTIL ZERO
IREAD CSR - SHOULD NEVER GET HERE

;LD EXPECTED

STAT

1SET UP CSR ADRS

RDY,

IE € FNCT

3 £

MSG1

1040007
001126
001446
001446
001446

sNO INTRS ALLOWED YET

tONLY DSTATC AND READY SET

011400
010000
001464
001466
014076

#1000, TIME

39¢:

011340

PC,CPUMI

10¢

3s:

160 RESYNC ON ER
s 'IX STACK SINCE NO RETURN
1READ STATUS

BITiS, TENP

100000
001446
004312
001124

001124
001126

TEMNP, BCSR
#4312, IGODAT
OGOOAT $800AT

001420

001122

CSR $BDADR

172342

TYPE

104000.10

MSG1

1DISABLE IE
t1LD EXPECTED

1CORRECT?

STAT

tBR IF SO
$1SET UP CSR ADRS

ROY,

IE EFNCT
3 € 12

CZDRKBO DR11 w INTRPROC EXER
WORDS FROM MASTER
1392
1393
1394
1395
1396
1397
1398
1399
1400
1401
1402
1403
1404
1405
1406
1407
1408
1409
1410
1411
1412
i413
1414
1415
1416
1417
1418
1419

007110
007112
007116
007124
007126

000502
005037
017737
001407
013737

GO7134
007140
007142
007144
007152
007156
007160
007162
007166
007174
007202

104401

007210
007212

007220
007224
007226
007230
007234
007240
007244
007246
1420 0072%0
1421 007252
1422 007254
1423 007256
1424 007260
1425
1426
1427
1428
1429
1430

007262
007264
007266
007270
007272
007274
1431 007300
1432 007304
1433
1434 007310
1435 007314

104011
000465
013737
013700
005400
006300

060037
017737
042737
023737
001407
013737
104401
104012
000433

013700
013701
012702
005003
020220

001124

172272

001414

MACRQ M1200

a4 ;

001126

DEC

CLR
MOV

BEQ
MOV

001122

015776

001466
001464

001124

172224

001416

001122

177776

D4
84

104

$GODAT

gHCR.‘BDDAY
$

WCR, $BDADR

RPRAM+2, $GDDAT
RPRAM
RO
RO
RO
RO, $GDOAT

cHe
8EQ
MOV

SBAR, $BDOAT
#81700, $BDDAY
$GDDAT, $BODAT
68
BAR, $BDADR

TYPE

.MSG1

104000+12
B8R
64:
MOV
MOV
7¢:

8s:

001011

PAGE

104

001124

001126
001126
001126

001466
001464

11:11

1GO RESYNC ON ERROR
;LD EXPECTED WC
1READ WCR

1BR

$SET UP WCR ADRS

+MSG1

000001
001124

015776

MOV

CLR
cp

104
RPRAM2,RO
RPRAM,R1
®177776 ,R2

$GO RESYNC ON ERROR
$GET STARTING ADRS OF XFER
sGET wWC

1GET ACTUAL o
sCONVERT TO WORD
sADD TO BASE ADRS
tREAD BAR ADRS
sELIMINATE LS8
sCORRECT?
tBR IF SO
$SET UP BAR ADRS

1GO RESYNC ON ERROR
1GET BUFFER ADRS
sGET WORD COUNT
1GET

1ST DATA PTRN (FLOATING O)

1R3 SAYS WHEN TO SHIFT

PTRN

1COMPARE DATA IN DBWF T0O EXPECTED
1BR IF DATA ERROR
sCOUNT THE WORD COUNT
1BR IF DATA CHECKS DONE
tCONVERT PTRN TO FLOATING 1
s TIME 10O SHIFT?
1BR

IF NOT

sFLOAT

- GO CK NEXT

PTRN LEFT

sKEEP LS8 SET

000765
014037
010037
010237
104401
104013

001126
001122
001124
015776

)

-(RO), $BDOAT

RO, $80ADR
R2, $GDDAT

+MSG1

1GO RESEY FLOATING PTRN
;GO CHECK NEXT
iGET BAD DATA

1GET MEM ADRS OF DATA ER

;LD EXPECTED DATA

CZORXBO DR11-W INTRFROC EXER
WORDS FROM MASTER

1437
1438
1439 007316
1440
1441
1442
1443
1444
1445
1446
1447
1448
1449
1450

1451
1452
1453
1454
1455

1456

1457
1458
1459

1460
1461
1462

1463

007320
007326
007334
007336
007344
007346

MACRO M1200

DEC

tERROR

000005
017737
042737
001404
022737
001365
104412

10%:

RESET

11:11

E4
PAGE

IN SLAVE -WAIT FOR MASTER

STATUS

1 TELL MASTER WE

172074
170777

001450
001450

15%:

MOV
gég

8CSR, SAVE
5270777.SAVE

001000

001450

16%:

CcHP
BNE
RSYNC

#1000, SAVE
15

244

SEQ 43

HAVE

ERROR

1LOOP ON ERROR
1BUT WAIT FOR MASTER

tRSYNC ON ERROR

tNO ERROR IN SLAVE -WAIT FOR MASTER STATUS
007350
007356
007364
007372
007374
007402
007404
007406
007410

112777

017737
042737
001405
022737
001402
000764
104412
004737

000002

172036
170777

001000

011360

172042

001450

13¢:

14%;

001450

MOVB

30¢:

s TELL MASTER ALL Ok

#170777,SAVE

$SAVE

8CSR, SAVE

8EQ
cHP

31
#1000, SAVE

8IC

8eEQ

31s:

#2,8CSR

MOV

RSYNC
JSR

30¢
14

PC,RSTVEC

tREAD CSR

'STAT'

BITS ONL
Y

:1IS ER IN MASTER?
tMASTER OK?

tRSYNC ON ERROR
;GO RESTORE

VECTOR

F4
CZDRKBO DR11 W INTRPRGCC EXER
WORDS FROM MASTER
1465
1466
1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485

MACRO

DFC

11:11

PAGE

SEQ 44

tBURST MODE WORD XFER TEST DETERMINATION

1100800048004 084808408000000808880400040¢0008000888008006000004800800000480

;gEYERHINE

DONE

IF BURST

XFERS AND BURST DATA LATE ARE

TO BE

130080800004 40400000000800080800000000000008008000000480000008000080000

007414

004737

013666

007420
007426
007432
007434

012737
005337
001375
013737

001000
001444

001444

001434

001442

007442
007450
007456

067737
023727
001406

171754
001442

001442
000256

007460
007464
007470
1486 007474
1487 007502

005077
004737
000137
012777
004737

1488

M1200

SLBRD:
18:

171736

013754
011156
013754

171720

28:

JSR

PC,WICMPN

MIvV
DEC
BNE
MOV

#1000, TTME
TIME
18
BOARD, TOTAL

ADD
cHP
8EQ

88DR, TOTAL
TOTAL
, 0256
et

CLR
JSR
JHP
MOV
JSR

880OR
PC.GOCMPN
SLVFIN
#1,880R
PC,GOCMPN

tWAIT FOR MASTER
;WHAT BOARD TYPE
iWALIT ON MASTER

;DETERMINE
$AND SLAVE

TO
IT

INDICATE
IS

IF BOTH MASTFR
ARE DR11W'S

;00 BURST MODE

:iNO BURST MODE

CZDRKBO DR11-W INTRPROC EXER
s STSTA BURST MODE WORD XFER

MACRO M1200
27 DEC-83
TEST SLAVE RECEIVES 32

1490

.SBTTL
.SBTTL

1491
1492
1493

STST4

BURST

PAGE

MODE

WORD

SEQ 4S
XFER

TEST-SLAVE

RECEIVES

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

1100000800000488004640000400004000004008480040008480000000800080008008
1106000000000 00406008000008080000000000480000000060000806004000000008

1494

1495
1496
1497
1498
1499
1500
1501
1502
1503

(54
11:11

t THIS TEST SETS UP TO RECEIVE A 32 WORD BLOCK
$SAME AS TEST 3 EXCEPT BURST MODE

DATA FROM

THE MASTER

110000008000000804800088000000400000000800004080000000000008004840888
1100000040000 008880000048000840000044000000000000800008000040000080

007506
007506
007512
007520
007524
007526
007532
007540
007542
007546
007550
007554
007556
007564
007572
007600
007604
007612
007620
007626
007634
007642
007646
007650
007656
007664
007672
007700
007706
007714

004737
012737
005337
001375
005077
022777
001372
004537

007732

014050
001000
001444

171666
001200

011400

012737
013777
013777

010000
001464
001466
014076

004737
017737
042737
052737

013777
012777
005337
001375
017737
017737
042737
42737
013777
012737
013737

007722
007726
007730
007732
007734
007742
007750
007756
1537 007764
007772
1539 010000
010006
010010

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

010016
010022
010024
010026

104401

104010
000502
005037

001444

171660

011340

004537

177740

STSTA:

171610

100000
000002
001446
000103
001444

171544
171536

100000
000100
001446
000302
001420

171622
171616

JSR
MOV
OEC
BNE
CLR
cMP
BNE
JSR
3¢
JSR
-32.
MOV
MOV
MOV

171564
171556

2s:

DEC

171512

TIME

sONLY OSTATC AND READY SET
R5,SETVEC

RS ,CLRBUF

RPRAM, BWCR
RPRAM.2, 8BAR
PC,CPULO

TEMP ,8CSR
€103,8CSR
TIME

24
8CSR, $BDOAT
8CSR, TEMP
BIT15,TEMP

1SET UP
iRETURN
1GO CLR
sD0 32.
$1SET UP
$1SET UP
:SET UP

sFNCT

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

1SET UP CONTROL
1WAIT FOR INTR

sUNTIL ZERO
tREAD CSR

FNCT

€ GO

SHOWLD NEVER GET HERE

€100, TEMP

1OISABLE IE

CSR, $BDADR

ROY,
LD EXPECTED +SET UP CSR ADRS

€ FNCT

+MSG2

1040007

10¢
(SP)e ,(SP).
SCSR, $8DOAT
8CSR, TEMP
oBIT1S, TEMP

3¢:

€100, TEMP
TEMP ,8CSR
0302, $GDOATY
OEDDAT.OBDDAT

8EQ

TYPE

MSH2

CLR

10¢
$GDDAT

104000-10
4%

1NO INTRS ALLOWED rET

404

TEMP,8CSR
9302, $GDOAT

001124
001122

001122

41000, TIME

o2, TEMP

001126
001446
001446
001446

001420

PC,CPUHI

S8CSR, TEMP
#BIT15, TEMP

001446
001446
001446

000100
001446
000302
001124

001124

414

001444

001126
001446
001446
001446
171426
001124
001126

016030

40%:

39¢:

016030

171460
171452

1¢:

CSR, $BDADR

1GO RESYNC ON ER
tFIX STACK SINCE NO RETURN
sREAD STATUS

1DISABLE IE
LD EXPECTED 1CORRECT?
:+BR IF

RDY,

1SET UP CSR ADRS

1GO RESYNC ON ERROR
1LD EXPECTED WC

€ FNCT

-4}

CZORKBO DR11-W INTRPROC EXER

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

1547 010032
1548 010040
lg;g 010042

017737
001407
013737

010050
010054
010056
010060
010066
010072
010074
010076
010102
010110
010116
010124
010126

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

010134
010140
010142
010144
010150
010154

1583 010210
1584 010214
1585 010220

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

1587 010224
1588 010230

104401
104013

1
1551
1552
1553
1554
1555

1556
1557
1558

1559

1560
1561
1562
1563
1564
1565
1566
1567
1568
1569
1570

1571 010160

1572
1573
1574
1575
1576
1577
1578
1579
1580
1581
1582

010162
010164
010166
010170
010172
010174
010176
010200
010202
010204
010206

171356
001414

001126

MOV

8eQ

001122

016030

001466
001464

001124

001124
171310
000001
001124

001126
001126
001126

001416

001122

27 DFC 83

11:11

PAGE

SHCR.OBDDAT

MOV

$
WCR, $BDADR

TYPE

.MSG2

104000+11
B8R
Ss:
MOV
MOV

NEG
ASL
ADD
MOV

8IC
crp
8EQ
MOV

104

RPRAM.2, $GDDAT
RPRAM,
RO
RO
RO
RO, $GODAT

S8BAR, $B0ODAT
#8IT00, $BDDAT
$GDDAT, §BDDAT
68
BAR, $BDADR

016030

+M5G2

001466
001464
177776

RPRAM.2,R0O
RPRAM,
R1
€¢77776,R2
R3

104

R2,(RO).

9
R1

13¢

R2
R3

001126
001122
001124
016030

94:

84
R2
R2
74
8¢

-(RO), $BODAT

RO, $BDADR
R2, $GOOAT

«MSG2

SEQ 46
tREAD

s8R

WCR

sSET UP WCR ADRS

sGO RESYNC ON ERROR
tGET STARTING ADRS (Of XFER

1GET WC

1GET ACTUAL ¢
;sCONVERT TO WORD
sADD TO BASE ADRS

sREAD BAR ADRS

sELIMINATE LSB
sCORRECT?
${BR IF

iSET UP BAR ADRS

sGO RESYNC ON ERROR
1GET BUFFER ADRS
;GET WORD COUNT

sGET 1ST DATA PTRN (FLOATING 0)
;:R3 SAYS WHEN TO SHIFT PTRN

sCOMPARE DATA IN DBUF TO EXPECTED
1BR IF DATA ERROR
1COUNT THE WORD COUNT
1BR IF DATA CHECKS DONE
sCONVERT PTRN TO FLOATING 1
sTIME TO SHIFT?
tBR IF NOT - GO CK NEXT
;tFLOAT PTRN LEFT
IKEEP LSB SET

GO RESET FLOATING PTRN

sG0 CHECK NEXT
1GET BAD DATA

1GET MEM ADRS OF DATA ER

;LD EXPECTED DATA

CZORKBO DR11 W

INTRPROC EXER

MACRO M1200

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

1230

;ERROR

1591

1592 010232
lggz 010234
1

1595
1596
1597
1598
izgg
1601
1602
1603
1604
1605
1606
1607
1608
1609
1610
611
1612

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

108

15%:

16¢:
248

104412

{giz

010324
010324

012777

000012

171074

010332
010340

017737
042737
001771

171070
170777

001450
001450

010342
010350
010356
010364

017737
042737
022737
001405

171052
170777
005000

1628 010366
1629 010374

022737
001353

004000

1623
1624
1625
igg?

RESET
MOV
;s THIS

11:11

PAGF

14
88

SEQG 47

IN SLAVE -WAIT FOR MASTFR STATUS
#10,8CSR

s TELL MASTER WE HAVE

SECTION MODIFIED FOR

STATUS LINE

AN ERROR

SKEMW.

MOV
BIC
BEQ

SCSR, SAVE
#170777,SAVE
15

:
;
s+

READ STATUS
CLEAR DON'T CARES
IF COMPANION NOT READY

MOV
BIC
cHe
BEG

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

;s
s
;
:

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

cHp
BNE

€4000, SAVE
15

:
:

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

RSYNC ON ERROR

RSYNC

THEN LOOP

;NO ERROR IN SLAVE-WAIT FOR MASTER STATUS

ig%g 010316
1617
1618
1619
1620
iggé

27 DEC-83

1630 010376
1631 010376

1632 010400
1633 010400

14%;

011360

MOV

#12,8CSR

TELL MASTER ALL 0K

s THIS SECTION MODIFIED FOR STATUS LINE

SKEW.

MOV
8IC
BEQ

8CSR, SAVE
€170777,SAVE
148

:
i+
:

READ CSR
SAVE 'STAT' BITS ONLY
IF COMPANION NOT READY

001450
001450
001450

MOV
8IC
cHP
BEQ

SCSR, SAVE
#170777,SAVE
#5000, SAVE
30¢

;s
s
;
:

RE-READ STATUS
CLEAR DON'T CARES
CHECK FOR COMPANION 0K
IF MASTER OK THEN CONTINUE

001450

cHP
BNE

#4000, SAVE
144

s
:

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

RSYNC ON ERROR

GO RESTORE

31$:

104412
004737

13s:

30¢:

RSYNC
JSR

PC,RSTVEC

VECTOR

THEN LOOP

MACRO M1200
27-DEC-83 11:11
CZDRKBO DR11-W INTRPROC EXER
s STSTS BURSY DATA LATE TEST-SLAVE RECEIVES S WORDS

1635
1636
1627
1638
1639
1640

.SBTTL
.SBTTL
.SBTTL

SEQ 48

& STSTS BURST DATA LATE TEST-SLAVE RECEIVES S WORDS
FROM MASTER AND TIMES OUT WHILE EXPECTING MORE
(OR11-W TO DR11-W ONLY)

11000000080046480004800008000008840480080000000000000000004884648000006008
110000800000444460000000000440000000000060000000000800048048000006000

$SETS UP TO RECEIVE 10 WORDS IN BURST MODE FROM MASTER,
18UT 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 MTST)

1641
1642

1643
1644
1645
1646

1647
1648
1649
1650
1651
1652
1653
1654
1655

J4
PAGE

110668800460000048040000000008084804800000000000000000088084800480008008
1100000808808000080000080008048084480000000008000008044080004040000008

010404
010404
010410
010416
010422
010424
010430
010436
010440
010444
010446
010452
010454
010462
010470
010476
010502
010510
010516
010524
010532
010540
010544
010546
010550
010556
010564
010572
010600
010602
010604
010612
010620
010622
010630
010636
010642
010644
010646
010654

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

014050
001000
001444

170770

001200

STISTS:
001444

170762

40%:

414

39s¢:

011340

011400

254

000100
001446

001446
001446
001446
170620

170610
000200

001126
001126

001446
001420
016062

001124

100000
170540

170544
001126

PC.CPUMI

DEC

TIME

FA N

sDELAY ON MASTER

g;:

:{200.“59

sONLY DSTATC AND READY

JSR

RS,SETVEC

;SET UP THE INTR RETURN ADRS

2t
JSR
-32.

8CSR
$

RS,CLRBUF

440000, TIME
RCVTMO, SWCR

s TIMEQUT

DEC

RCVTMO.2,8BAR
PC.CPULO
SCSR, TEMP
BIT15,TEMP
2, TEMP
TEMP,8CSR
RCVTMO+4,8CSR
TIME

BNE

254

B8R
MOV

34
8CSR, TEMP

MOV

TYPE

10400014
BR

Ss:

;NO INTRS ALLOWED YET

404

CLR

8IC
8IC
MOV
104000.17
BR
3s:
MOV
BIT
BEQ

001122

#1000, TIME

BNE

MOV
JSR
MOV
8IC
8IS
MOV
MOV

001446
001446
001446
170666
170660

170644

JSR

MOV

MOV
MOV

001444
170724
170720

005337
001375
000416
017737
042737
042737
013777
104017
000471
017737
032737
001412
013737
013737
104401
104014
000450
012777
017737

1s:

MOV

sRETURN TO 2% ON DATO INTR
;GO CLR ‘'DBUF’
s00 32. LOCATIONS

1SET UP A TIMER VALUE
$1SET UP WORD COUNT
$SET UP BUFFER ADRS
sALLOW THE INTR
iFNCT1

1SET UP CONTROL:IE,FNCTY & GO
tWAIT FOR MASTER TO SETUP;

s THEN SLAVE BUS WILL BE HELD FOR DURATION

$OF BURST XFERS; TIMEOUT WILL OCCUR WITH SUBSEQUENT
iRELEASE OF BUS AND PROGRAM CONTINUATION

:GO TO CHECKS

#BIT1S,TEMP
€100, TEMP
TEMP ,8CSR

sDISABLE

10¢
SCSR, $BDDAT
#8IT7,$BD0AT
St

sREAD STATUS
1 TEST READY BIT

TEMP, $GDDAT

CSR, $BDADR
MSG3

10¢
eBIT1S,8CSR

8CSR, $B8DDAT

:1GO T0 EIR

$1SAVE EIR

1“4}
CZDRKBO DR11-W INTRPROC EXER
(DR11 W TO DR11-W ONLY)
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704
1705
1706
1707
1708
1709
1710
1711

010662
010670
010672
010700
010706
010714
010720
010722
010724
010732
010740
010746
010750
010756
010762
010764

1714
1715
1716
1717
1718
1719
1720
1721
1722

010770

1712
1713 010766

001000

001126

000400
101000
001420
016062

001126
001124

177773
170456
001124

001124
001126
001126

001414
016062

001122

DEC

MOV
MOV
TYPE

104000.22
BR

11:11

PAGE

104

;GO RESYNC ON ERROR
;LD EXPECTED WC

BURST

DATA LATE

BIT

€101000, $GDDAT
CSR, $BDADR
«MSG3

MOV
cMP
BEQ
MOV

SWCR, $B80DAT
$GDDAT, $BODAT
138
WCR, $8DADR

B8R

SEQ 49
; TEST

€177773, $GDDAT

TYPE

08IT9, $BODAT
44
#8178, $BDDAT

MOV

104000.11

+MSG3

10¢

sREAD WCR

s CORRECT?
s8R IF SO
$SET UP WCR ADRS
;GO RESYNC ON ERROR

;ERROR IN SLAVE-WAIT FOR MASTER STATUS
000005
0127177

000010

170422

017737
042737
001771

170416
1707717

001450
001450

011014

017737

170400
170777

004000

001450

011036
011040
011040
011046
011050
011050

BIT
BNE
8IC

001122

010776
010776
011004
011012

1723 011022
1724 011030

1725
1726
1727
1728
1729
1730
1731
1732
1733
1734
1735
1736
1737
1738
1739
1740
1741
1742
1743
1744
1745
1746
1747
1748

032737
001015
042737
012737
013737
104401
104022
000421
012737
017737
023737
001441
013737
104401
104011
000400

MACRO M1200

042737
022737
001404

022737
001353

005000

10¢:

15¢:

RESET
MOV

#10,8CSR

+ IF ERROR, INIT

s THIS SECTION MOOIFIED FOR STATUS LINE SKEW.
MOV
8IC
BEQ

8CSR, SAVE
#170777,SAVE
15%

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

001450

MOV

8CSR, SAVE

s RE-READ STATUS

001450

cMP
BEQ

#5000, SAVE
244

: CLEAR DON'T CARES
;s CHECK FOR COMPANION OK
s+ IF EQ THEN RESYNC

cHP
BNE

4000, SAVE
15¢

:
:

8I1C

001450

16%:

:
244

104412

#170777,.SAVE

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

i RSYNC ON ERROR

RSYNC

sNO ERROR IN SLAVE-WAIT FOR MASTER STATUS
011052

13¢:

RESET

$SLAVE HAS TIMED OUT LEAVING
tREADY CLEAR. FNCT BITS TO DSTAT
1BITS COMMUNICATION CAN BE
{RESUMED BY

011054
011062
011066
011070
011076
011076

012737
005337
001375
012777

017737

010000
001444

001444

000012

170322

170316

001450

11%:

144

MOV #10000, TIME
DEC TIME
BNE 11¢
#12,8CSR
MOV

SETTING READY.RESET

sWILL SET READY.

s TELL MASTER ALL OK

: THIS SECTION MODIFIED FOR STATUS LINE SKEW.
MOV

8CSR, SAVE

READ CSR

CZDRKBO DR11 W INTRPROC EXER
(DR11 W TO DR11-W ONLY)
1749
1750
1751
1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769

MACRO M1200

011104
011112

042737
001771

170777

001450

Ollll4
011122
011130
011136

017737
042737
022737
001405

170300
170777
005000

001450
001450
001450

011140
011146

022737
001353

004000

001450

011150
011152
011152
011156
011156
011160
011164
011166
o11172
011174

104412

004737

104407
005737
001055
005337
001052
012737

EOPT:

011360

SLVFIN:

001452

001454
000144

L4
27

001454

DtC

11:11

PAGE

BIC
BEQ

#170777,SAVE
14

SAVE ’'STAT' BITS ONLY
IF COMPANION NOT READY

MOV

8CSR, SAVE

RE -READ

8IC
cHP
BEQ

EOPT

o
oy
BNE

#4000, SAVE
14

#170777,SAVE
95000, SAVE

RSYNC

JSR

CKSWR
TS7
BNE
DEC
BNE
MOV

MSTER
EOPTA

ICOUNT
EOPTA

€144, ICOUNT

STATUS

CLEAR DON'T CARES
CHECK FOR COMPANION OK
IF MASTER OK THEN END OF PASS

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

PC,RSTVEC

THEN LOOP

ON ERROR

;GO RESTORE VECTOR
;GO CHECK SWR
tWERE WE STARTED AS MASTER?
;BR IF NOT

sCOUNT TEST PASS
;BR IF NOT DUE FOR 'END PASS*' MSG
;RESET PASS COUNT TO
100 ITERATIONS

SEQ 50

CZDRKBO DR11 W INTRPROC EXER
END OF PASS ROUTINE

M4
MACRO M1200

1771

.SBTTL

DEC

11:11

PAGE

SEQ 51

END OF PASS ROUTINE

1580800000000 0004040080484400080000400000408000080400848000000000400484

;¢ INCREMENT THE PASS NUMBER ($PASS)

i¢TYPE

“END PASS

&XXXXX"

(WHERE

JuMP

EOPTA

;s¢IF THERES A MONITOR GO 7O IT

;oIF

011202
011202

011204
011210

0l1214
011222
011224
011226
011230
011232
011234
011236
011242
011246
011250
011254
011260
011262
011264
011266
011270
011272
011274
011274

1772
1773
1774
1775

011276
011300
011303
011306
011311
011314
011317

011320
011326
011332
011334

000240
005037
005237
042737
005327
000001
003022
012737
000001
011224
104401
013746
104405

104401
013700

001405
000005
004710
000240
000240
000240

123
000
012737
005337
001375
000137

ISN'T

A DECIMAL

NUMBER)

$EOP:

001102
001100
100000

001100

$EOPCT:
$ENDCT:

011303

001100

011300
000042

$GET42:
$ENDAD:

$D0AGN:
377
012

105

101

123
043

001000
001444

001444

040

002760

NOP
CLR
INC
8IC
DEC
.WORD
8GT
MOV
.WORD

$TSTNM
$PASS
#100000, $PASS
(PC)»
1
$DOAGN
(PC)+,8(PC)

s 3ZERO THE TEST NUMBER
: s INCREMENT THE PASS NUMBER
s:OON'T ALLOW A NEG. NUMBER
;:LOOP?

TYPE
MOV

. $SENDMG
$PASS, -(SP)

;s TYPE
: ;SAVE

$EOPCT

000137

011320
377
015
116
120

THERE

XXXXX

SRTNAD:
$ENULL:
$ENDMG:

EOPTA:
EOPTB:

TYPDS
TYPE

MOV
BEQ
RESET

. SENULL
8042,R0

$D0AGN

s s YES
: ;RESTORE COUNTER
"END PASS o
$PASS FOR TYPEOUT

$:GO TYPE--DECIMAL ASCII
s; TYPE A NULL CHARACTER

s ;GET MONITOR ADDRESS
; ;BRANCH IF NO MONITOR
;sCLEAR THE WORLD

JSR

PC.(RO)

$3:GO

JMP

8(PC).

s ;RETURN

NOP
NOP
NOP
.WORD
.BYTE
.ASCIZ

MOV
OEC
BNE
JHP

TO MONITOR

: ; SAVE ROOM
s sFOR
s :ACT11

EOPTA
-1,-1,0
;s sNULL
<«15><12>/END PASS 0/

91000, TIME
TIME
EoPTB
MINIT1

WITH SIGN

CHARACTER

STRING

;SET UP A COUNT
:STALL FOR OTHER CPU TO BECOME
sUNTIL TIME=O
tNOW BECOME MASTER

SLAVE

CZDRKBO DR11 W INTRPROC EXER
1777
1778
1779
1780
1781
1782
1783
1784
1785 011340
1786 011344
1787 011350
1788 011356
1789
1790
1791
1792
1793
1794 011360
1795 011366
1796 011372
1797 011376
1798
1799
1800
1801
1802
1803
1804
1805
1806
1807
1808
1809
1810
1811

MACRO M1200

.SBTTL
.SBTTL

DEC-83 11:11

PAGE

N4
91

SEQ

PROGRAM SUBROUTINES

18000000 000800400000000408000000000000000008000004808480060808040000084

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

1888888400808 0828800840840400080808030404808808880880884844400880000

004737
012577
012777
000205

014050
170054
000200

SETVEC:
170050

JSR

PC,CPUHI

:SET UP FOR NO INTERRUPT

MOV

4200,80RVCT2

{KEEP PRIORITY

MOV

RTS

(R5)+,80RVCTO

;SET UP INTR RETURN ADRS
tEXIT

LEVEL

TOP

INTR

1500084004880 008480000088808000008008808008808000084840480008080044

s THIS ROUTINE RESTORES THE
INTERRUPT VECTOR TO A MALT
$AND RAISES THE PRIORITY LEVEL

$:80088888480048800880888804088880488888008804080888440800800000048

013777
005077
004737
000207

001426
170034
014050

170036

RSTVEC:

MOV

CLR
JSR
RTS

ORVCT2,80RVCTO

;POINT

sEXIT

8ORVCT2
PC.CPUHI

VECTOR

TO HALT

$SET UP HALT
sRAISE PRIORITY LEVEL

10080088800 0000884000800080008008400048004000800488800004000800444

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

150008088800 080880008000008088488048048400008808088480004080400484

011400
011402
011406
011410
011412
011414

012500
012701
005021
005200
001375
000205

016236

CLRBUF: MOV
MOV
1¢:
CLR
INC
BNE

RTS

(RS)+,RO
00BUF ,R1

(R1).
RO
1
RS

;GET THE LOC COUNT
;GET 1ST ADRS
;CLR MEM LOC
;:COUNT LOC
;UNTIL ALL DONE
EXIT

CZOR%B0 OR11 w INTRPROC t xtR

PROGRAM

1818
1814
1815
1816
1817
1618
1819
1820
1821
1822
168283
1824
1825
182¢
1827
1828

SUBROUT
INE S

MACRO M1.00C

2 DEC A%

11:11

PAGE

%0 99

;;....‘000.00.000000.0000000‘00.0.00.000.00000..00.0.000.00000000

;THIS ROUT NE LOADS
OBUF
WITk A FLOATING ZERO/ONE PATTERN
;THME @ OF LOCATIONS IN
DBF
TO BE LOADED IS SPECIFIED B8
sTeE VALUR IN THE CALL 2
WHEN ALL LOADED TME RETURN IS 10 CALL
011416
011420
011424

011430
011432
011434
011436
011440
011442

011444

011446

011450
1830 011452
1831 011454
1882 011456

012500
012701
012702
005003
010221

016230

177"

.D8UF:

1s:

2s:

001001

003102
005103
001371
006 302
005202
103363
000765

LI N

MOV

(RS).,RO

sGET

LOC

COUNT

CLR

;RS

SAYS

WHEN

RTS

MOV
MOV

"0/
INC
BNE
com

com

BNE
ASL

INC

8CC

B8R

o0BF R}
0177776 ,R2

R2,(R1).
RO
3
Re

RS
2t

R2
18

-4

1GET 1ST ADRS
$1SET UP FLOATING ZERO PTRN
TO

SHIFT

;LOAD MEM W1ITM PTRN
;1COUNT LOC
s8R IF MORE

PTRN

EXITY

1CONVERT PTRN TO FLOATING 1

sSHOULD WE SHMIFT?
18R IF NOY
tFLOAT

THIS WILL BE A FLOATING 1

ZERO LEFT

IKEEP LSB SET

1GO RESET FLOATING PATRN

150 LOAD NEXT PATRN

rt
-

CZORxXBO DR11 W INTRPROC EXER
SYSMAC ROUTINES

MACRO M1200

DEC 83

LSBTTL

1834
1835
18%¢

.SBTTL

TYPE

11:11

PAGE

LEQ

SYSMAC ROUTINES

ROUTINE

110060000000000000000000000000000000000006000000000008480000000000

1oROUTINE

TYPE

ASCIZ

MESSAGE.

MESSAGE

MUST

TERMINATE

WITH

BYTE.

1¢THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.

1oNOTE
L:

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER,
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.

1oNOTEZ2:

SFILLC CONTAINS

s oNOTES:

THE CHARACTER TO FILL AFTER,

:
s oCALL
101) USING A TRAP INSTRUCTION
FE)
TYPE
.MESADR

;1 o0R
e

]

s sMESADR IS FIRST ADORESS OF AN ASCIZ STRING

‘VPE

MESADR

t®

011460
011464
011466
011470
011472
011474
011500
011502
011504
011506
011510
011514

011516
011522
011524
011530
011532
011334
011336
011540
011544
011346
011552
011556
011560
011564
011570
011572
011576
011602

105737

100002
000000
000407
010046
017600
112046
001005
005726
012600
062716
000002
122716
001430
122716
001006
005726
104401
001165

103037
000755
004737
123726
001350

013746

sTYPE:

001157

HALTY

1%:
24:
604 :
3s:
'R

000011

000200

B8R
MoV
3 01"
MOv8
BNE
IST
MOV
ADD

RTI
creo

8EQ
cr8
8NE
T1S7

TYPE

011756

011630

S
64:

001156

001154

105366

002770
004737
105337
000770

TST8B

8PL

78:

011630

011756

SCRLF
CLRS
B8R
JSR
ce
BNE
MOV
DECB

8LY
JSR
OECB
B8R

$TPFLG
1t
3¢

82(SP),RO
(RO)., -(SP)

(sP).
(SP)+ RO

02,(SP)

O?T.(SP)

8
OCRLF ,(SP)
St

13IS THERE A TERMINAL?
s 1BR IF YES
1 1HALT HERE IF NO TERMINAL
1 iLEAVE

s 1SAVE RO
s 1GET ADORESS OF ASCIZ STRING
1 1PUSH CHARACTER TO BE TYPED ONTO STACK
11BR IF IT ISN'T THE TERMINATOR
13IF

TERMINATOR POP IT OFF

1 sRESTORE RO

$ sADJUST RETURN PC

1 1RETURN

1 1BRANCH IF <MHT»>

1 tBRANCH IF NOT <CRLF>

(SP).

<«CR><LF> EQUIV
1 1POP
1:TYPE A CR AND LF

;EHARCNT

1 1CLEAR CHARACTER COUNT
11GET NEXT CHARACTER
11G0 TYPE THIS CHARACTER
$3IS IT TIME FOR FILLER CHARS.?
13IF NO GO GET NEXT CHAR,
1:GET & OF FILLER CHARS. NEEDED
$sAND THE NULL CHAR,

PC.STYPEC

SFILLC.(SP).
2¢
SNULL
, -(SP)

1(SP)

PC.STYPEC
;CHARCNi
¢

ssDOES A NULL NEED TO BE TYPED?
131BR IF NO--GO POP THE NMALL OFF OF STACK
13GO TYPE A NULL

1300 NOT COUNT AS A COUNT
13:LOOP

sHORIZONTAL TAB PROCESSOR
011604

011610
011614
011622

112716
004737
132737
001372

000040
011630
000007

8s:

011756

9s:

MOVe
JSR

8178
BNE

THE STACK

e ,(SP)
PC.$TYPEC

:7.‘CnARCNY
'

1 sREPLACE TAB WITH SPACE
1sTYPE

A SPACE

1 1IBRANCH IF NOT AT

1:TAB STOP

CZDRKBO DR11
TYPE

ROUTINE

W INTRPROC EXER

011624
011626

005726
000724

011630
011634
011636
011642
011646
011652

105777

011630

011654
011654

011660
011662
011666
011672
011676
011700
011700
011702

011702
011706
011710
011716
011720
011726
011734
011736
o11742
011744
0117352
011754
011756
011760

100022
017746
042716
122716
001012

105777
100375
117716

042716
122716
001366

MACRO M1200

001420

116677
122766
001003
105037

000406

122766
001402
105227
000000
000207

27 DEC-83

$TYPEC:

167310

167304
177600
000023

11:11

PAGE

1:POP SPACE OFF STACK
$1GET NEXT CHARACTER

1S18
8PL

88 TKS
104

11CHAR IN KYBD BUFFER?
13BR IF NOT
11GET CHAR
13STRIP EXTRANEQUS BITS
$ tWAS CHAR XOFF

1024

1018

88TKS
101¢
8871K8,(SP)

167260
177600
000021

0177600,(SP)
@4XON, (SP)

1024
:
10¢:

167242

s31FIX

$13WALIT UNTIL PRINTER IS READY

000002
000015

000002

167224

2(SP),881PB

$ TYPEX

:ER.Z(SP)

i¢:

CHP8
BEQ
INCS
$CHARCN
: . WORD
T
$TYPEX: RTS

13GET CHAR
$13STRIP IT

(SP).

000021

000002

1 sWAIT FOR CHAR

s 1WAS IT XON?
118R IF NOT

000002

CLR8

$13BR IF NOT

101¢

947TPS
104
2(SP),#4XON

011756

SEQ 59

(SP).
2t

#177600,(SP)
QIXOFF ,(SP)

167264

000012

95-1

B8R

197

005726

105777
100375
126627

D*,

SCHARCNTY

STACK

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

$3YES--CLEAR CHARACTER

$TYPEX
oLF ,2(SP)
$TYPEX

s 3EXIY

0
PC

;s iCHARACTER COUNT

(PC).

COUNT

13IS CHARACTER A LINE FEED?
: tBRANCH IF YES
: sCOUNT THE CHARACTER
STORASGE

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

27-DEC-83 11:11

.SBTTL

BINARY

——

[

. -

a— ———

-—

—— a—

PAGE 94

TO OCTAL (ASCII) AND TYPE

IS USED

TO CHANGE

$80CTAL (ASCII) NUMBER AND TYPE IT.

16-BIT BINARY

NUMBER

TO A 6-DIGIT

1#3TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

seCALL:

MOV

TYPOS

.BYTE

NUM, -(SP)

1 sNUMBER TO BE TYPED
1sCALL FOR

TYPEOUT

1sN=1 TO 6 FOR NUMBER OF DIGITS YO TYPE

1iM=1 OR O

s31=TYPE LEADING ZEROS

1 10=SUPPRESS LEADING ZEROS

1#8TYPON----ENTER HERE
ss$TYPOS OR $TYPOC

1eCALL:
1e
MOV

TYPON

TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

NUM, -(SP)

s sNUMBER TO BE TYPED

$3CALL FOR TYPEOUT

8‘EHEOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
ie

011762
011766
011774
012000
012004
012006
012014

017646
116637
112637
062716
000406
112737
112737

012030
012032
012034
012036
012042
012044
012050
012054
012060
012064
012066
012070
012072
012074
012076
012100
012102
012104
012110
012112
012116
012120
012122
012124

010346
010446
010546
113704
005404
062704
110437
113704
016605
005003
006105
000404
006105
006105
006105
010503
006103
105337
100016
042703
001002
005704
001403
005204

012022

112737

000000
000001
012207
000002
000001
000006
000005

012205

012205
012207
012204

TYPOC

$TYPOS:

MOV
MOVB
MOVB
ADD
B8R
$TYPOC: MOVB
MOVB

$TYPON:

012207
000006
012206
012205
000012

1¢:
{ H

012206

MOV

3s:

177770

MOVB

MOV
MOV
MOV
MOVB
NEG
ADD
MOVB
MOVB
MOV
CLR
ROL
B8R
ROL
ROL
ROL
MoV
ROL
DECB
8PL
8IC
BNE
1ST
BEQ
INC

NUM, -(SP)

s sNUMBER TO BE TYPED

8(sP), -(SP)
1(SP), SOFILL
(SP)+,$0MODE«1
02,(5P)
$TYPON
01, $0FILL
06, $0M0DE +1

» IPICKUP THE MODE
s3LOAD ZERQ FILL SWITCH
;;NUMBER OF DIGITS YO TYPE
s sARDJUST RETURN ADDRESS

@5, $0CNT

R3,-(SP)
R4, -(SP)
RS, -(SP)
$0MODE +1 R4
R4
06,R4
R4, $OMODE
SOFILL R4
12(SP).RS
R3
RS
3¢
RS
RS
RS
R5,R3
R3
$ OMODE
74
@177770,R3
48
R4
St
R4

c——

SEQ 56

150000000000004000000084004008800000000800880000000000000008088800¢

1oTHIS ROUTINE

- e

$sCALL FOR TYPEOUT

$3SET THE ZERO FILL SWITCH
$sSET FOR SIX(6) DIGITS
13SET THE ITERATION COUNT
1 $SAVE R3
1 $SAVE R4
1 $SAVE RS
$3GET THE NUMBER OF DIGITS T0 TYPE
13SUBTRACT IT FOR MAX. ALLOWED
$1SAVE IT FOR USE
13GET THE ZERO FILL SWITCH
11PICKUP THE INPUT NUMBER
1 1CLEAR THE OUTPUT WORD
s sROTATE MSB8 INTO *C*
13G0 DO MSB
1 sFORM THIS DIGIT

$3GET LS8 OF THIS DIGIT
s sTYPE THIS DIGIT?
138R IF NO
1$GET RID OF JUNK
13 TEST FOR O
$ s1SUPPRESS THIS 07
11BR IF YES
$3DON'T SUPPRESS ANYMORE 0'S

Fe,
MACRO M1200
CZDRXBO DR11 W INTRPROC EXER
BINARY TO OCTAL (ASCII) AND TYPE

012126
012132
012136
012142
012146
012152
012154

052703
052703
110337
104401
105337
003347
002402

012160

000744

012156
012162

012164
012166
012170
012176
012200
012202

012203
012204
012205
012206

000060
000040
012202
012202
012204

27 DEC

S¢:

7¢:

64:

000002

81S
BIS

MOV

005204

012605
012604
012603
016666
012616
000002
000
000
000
000
000000

000004
8s:

S$OCNT:
$SOFILL:
$ OMODE
:

TYPE

DECB
8GT
eLY
INC
BR
MOV
MOV
MOV
MOV
MOV
RTI

.BYTE
.BYTE
.BYTE
.BYTE
. WORD

11:11

0'0,R3
o
,R3
R3,88

PAGE

S5EQ 57

1 sMAKE THIS DIGIT ASCII
s sMAKE ASCII IF NOT ALREADY

1 1SAVE FOR TYPING
131GO TYPE THIS DIGIT
s sCOUNT BY 1
$3BR IF MORE TO DO
1 1BR IF DONE
s sINSURE LAST OIGIT ISN'T A BLANK
1:GO DO THE LAST DIGIY
1 sRESTORE RS
s sRESTORE R4
1 sRESTORE R3
$11SET THE STACK FOR RETURNING

s sRETURN
13STORAGE FOR ASCII DIGIT
s s TERMINATOR FOR

TYPE ROUTINE

130CTAL DIGIT COUNTER
$3ZERO FILL SWITCH

s iNUMBER OF DIGITS TO TYPE

(5%
CZDRKBO DR11
CONVERT

W INTRPROC EXER

BINARY

TO DECIMAL

AND

MACRO M1200

TYPE

ROUTINE

1840

27 DEC 83

.SBTTL

11:11

PAGE

CONVERT BINARY

SEQ S8

TO DECIMAL

AND

TYPE

ROUTINE

1100000006000 00000060000808000800448000008000080000080040068000080808

1oTHIS

ROUTINE

USED

CHANGE

16-BIT

BINARY

NUMBER

S-DIGIT

1¢SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT., DEPENDING ON WHETHER THE
s oNUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
1oBEFORE THE FIRSY DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
s *REPLACED

1oCALL:
i
MOYv

012210

010046

012214

010246

012212

012216
012220
012222
012226

012232

$TYPDS:

010146
010346
010546
012746
016605

100004

000774
060105
005702
001002
105716
100407
106316
103003
116663
052702
052702
110223
005720
020027
002746
003002
010502
000764
105726

012354
012362
012364
012366
012370

116663
105013
012605
012603
012602

012352

012372

100003

012601

THE

ROUTINE

MOV

RO, -(SP)

11PUSH RO ON STACK

MOV

R2, -(SP)

1 1PUSH R2 ON STACK

R1,-(SP)

R1 ON STACK

11BR IF INPUT 1S POS.

MOV

®$DBLK,R3

1sMAKE THE ASCII NUMBER NEG.
11 ZERO THE CONSTANTS INDEX
11SETUP THE OUTPUT POINTER

CLR
MOV
SUB
BLY
INC
BR
ADD
TST
BNE
1Ss18
BMI
ASLSB
8CC
MOVB
8IS
8IS
MOVS
TST
cre
8LY
86T
MOV
B8R
1S78

R2
$0TBL(RO),R1
R1,RS
41
R2
3
R1,R5
R2
S
(SP)
78
(SP)
64
1(SP), -1(R3)
¢ 0,R2
® R2
R2.(R3).
(RO).
RO, #10
24
.1
RS .R2
6
(SP)e.

MOve
CLRS
MOV
MOV
MOV

-1(SP), -2(R3)
(R3)
(SP)+,RS
(SP)+,R3
(SP).,R2

8PL

000001

000040

1¢:

28:

012414

Ss:

00000F
000060
000040

177777

64:
7¢:

000010

8s:
177777

1717776

9s:

CLR

MOV8

8PL

MOV

RS, -(SP)
RS, -(SP)
020200, -(SP)
207SP) RS

012424

005002
016001
160105
002402

RS
o -,1(SP)

012703

012256
012260
012264
012266
012270
012272
012274
012276
012300
012302
012304
012306
012310
012312
012320
012324
012330
012332
012334
012340
012342
012344
012346
012350

s sPUT THE BINARY NUMBER ON THE STACK
$13GO

NEG
MOvB

012246

112723

NUM, -(SP)

020200
000020

000055

012252

SPACES.

MOV
MOV
MOV
MOV

005405
112766
005000

TYPDS

MOV

012234
012236
012244

WITH

(R3).

(SP)+,R1

131PUSH RS ON STACK
$13PUSH RS ON STACK
$3SET BLANK SWITCH AND SIGN
13GET THE INPUT NUMBER
1 1MAKE THE BINARY NUMBER POS.

11SET THE FIRST CHARACTER TO A BLANK
1sCLEAR THE BCD NUMBER
$31GET THE CONSTANT
1 sFORM THIS B8CO DIGIT

1 1BR IF DONE
1 s INCREASE THE BCD DIGIT BY
13ADD BACK

THE CONSTANT

1 ;CHECK IF 8CD OIGIT=0
ssFALL THROUGH IF O
$3STILL DOING LEADING 0°'S?
$1sBR IF YES
s 1MSD?
118R IF NO
$i1YES--SET THE SIGN
1 sMAKE THE BCD DIGIT ASCII
ssMAKE IT A SPACE IF NOT ALREADY A DIGITY
11PUT THIS CHARACTER IN THE OUTPUT BUFFER
1 1 ST INCREMENTING
11CHECK THE TABLE INDEX
1160 DO THE NEXT DIGIT

13G0 70 EXIT

1:GET THE LSD
11G0 CHANGE TO ASCII
13WAS THE LSD THE FIRST NON-ZERO?

11BR IF NO

$3sYES--SET THE SIGN FOR
11SET THE TERMINATOR
s sPOP STACK INTO RS
1 1POP STACK INTO R3
11POP STACK INTO R2

1 1POP STACK INTO R}

TYPING

CZDRKBO DR11-W INTRPROC EXER
CONVERT BINARY TO DECIMAL AND
012374
012376
012402
012410
012412
012414
012416
012420
012422
012424

012600
104401
0166¢
~
0126.6
000002
023420
001750
000144
000012

012424
000002

HE
MACRO M1200

TYPE

ROUTINE

27 DEC

000004
s0T8L
:

$DBLK;

MOV
TYPE
MOV
MOV
RTI

11:11

(SP)«,RO

, $08LK

2(SP),4(SP)
(SP)+,(SP)

10000.

1000.
100.
10.
.BLKW

PAGE

SEQ@ 59

95-1

:1sPOP STACK INTO RO
; 1NOW TYPE THE NUMBER
s sADJUST

THE

STACK

1 tRETURN T0O USER

CZOR¥BO DR11 W INTRPROC EXER

MACRGC M1200

DEC

11:11

PAGE

L
96

SEQ 60

ERROR HANDLER RQUTINE

.SBTTL

1842

ERROR HANOLER ROUTINE

1:0600000000000000000000800000000004800000848000000000400000840000008

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

;#AND GO TO SWRCK ON ERROR
;oTHE SWITCH OPTIONS PROVIDED BY

HALT ON ERROR

;oSW1Se1

;1#SW13=1
:16SW10=1
s oCALL

1e
012434
012434
012436
012440
012444
012446

012454
012462
012464
012470
012474
012500
012506
012514
012522
012324
012530
012534
012534
012540

1843
1844
1845

012542
0123544
012546
012546

1847 012550
1848 012554
1849 012556

104407
104407
105237
001775
013777
032777
001402
104401
005237
011637

162737
117737

032777
001004
004737
104401
005777
100002

S$ERROR:

7%:

001103

001102
001160
001112
001116

166404

001116
001114
166416

012550

001165

166400

:
204

28:

104407

ERROR

CKSWR
CKSWR

ARE:

;1 ;ERROR-EMT AND N=ERROR ITEM NUMBER

s3TEST FOR CHANGE IN SOFT-SWR
;GO LOOK FOR SWR CHANGE

INCB
BEQ

$ERFLG
74

BIT

#8IT10,85WR

$3BELL ON ERROR?

TYPE

. $BELL

: sRING BELL

B8EQ
1¢:

ROUTINE

INHIBIT ERROR TYPEOUTS
BELL ON ERROR

MOV

166466
166456

THIS

INC

MOV
SUB
MOove

$TSTNM,BDISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG

SERTTL

(SP), $ERRPC
02, SERRPC
SIERRPC,SITEMB

BIT
BNE
JSR

®BIT13,95WR
20
PC., SWRCK

ST
8PL
HALT

5WR
3

TYPE

1:SET THE ERROR FLAG
ssDON'T LET THE FLAG GO TO ZERO

« SCRLF

CKSWR

s3sNO - SKIP

1sCOUNT THE NUMBER OF ERRORS

1 3sGET ADORESS OF ERROR INSTRUCTION

;;STRIP AND SAVE THE ERROR ITEM CODE
s 1SKIP TYPEOUT IF SET

1 $SKIP TYPEOUTS
$31G0 TO USER ERROR ROUTINE
s tHALT ON ERROR
;1 3SKIP IF CONTINUE
1sHALT ON ERROR!

11TEST FOR CHANGE IN SOFT-SWR

RTI

1 sRETURN

11000000000000000000000000008000000000000008088800080004088080000088

160 TYPE ERROR

1GO UPDATE SOF TWARE SWR IF 'CNTRL/G’

1106000000000000000000000000000008080180000000080088888808480000008

004737
104407
000207

012560

SWRCK:

JSR

PC, S$ERRTYP

RTS

CKSWR

1GO TYPE ERROR

1G0 LOOK FOR SWR CHANGE

IRETURN TO ERROR HANDLER

CZDRKBO DR11 W INTRPROC EXER

ERROR MESSAGE

TYPEQUT

MACRO M1200

ROUTINE

Jo
27 DEC 83

.SBTTL

1651

PAGE

11:11

ERROR MESSAGE

SEQ 61

TYPEOUT ROUTINE

$10000000000400000000800000040000000000000000000480000000848004000040

:#THIS

ROUTINE

USES

THE

“ITEM

+oERROR IS TO BE REPORTED.,
;1#AND

012560
012560
012564
012566
012570
012574

104401
010046
005000
153700

001114

012576

013746

001116

012602
012604
012606
012610
012612
012614
012616
012622
012626
012630
012632
012634
012640
012644
012646
012650
012652
012656
012660
012662
012664
012670
012672
012672
012674
012676
012700
012702
012706
012710

001004

REPORTS

$SERRTYP:

001165

THE

TYPE
MOV

CLR

81s8
BNE
MOV
TYPOC

1s:

001170
012632

012600
104401
000207
013046
104402
005710
001770
104401
000771
040

001165

$ERRPC, -(SP)

6¢
RO

(RO)., 28

TYPE

@$ERRTB,RO

« SCRLF

. WORD
TYPE

0
« SCRLF

CONCERNING

1 s "CARRIAGE RETURN" £

DETERMINE

THE

ERROR,

“LINE FEED"”

3 $SAVE RO
1 sPICKUP THE ITEM INDEX

ssIF ITEM NUMBER IS ZERO, JUST
;13 TYPE THE PC OF

THE ERROR

1 sSAVE SERRPC FOR TYPEOUT
s ;tERROR ADDRESS
1:GO TYPE--OCTAL ASCIICALL DIGITS)

s sFORM TABLE POINTER
1 sPICKUP “ERROR MESSAGE” POINTER
1 3SKIP TYPEOUT IF NO POINTER
THE

“ERROR MESSAGE“

13 "ERROR MESSAGE” POINTER GOES HERE
11 "CARRIAGE RETURN” € “LINE FEED"”
1 sPICKUP

"DATA HEADER” POINTER

1sSKIP TYPEOUT IF O
1:TYPE

THE

“DATA HEADER*

TYPE
RTS

(RO),RO
7
(sP).,RO

. SCRLF
PC

MOV

8(RO)+,-(SP)

1sSAVE 8(RO)+ FOR TYPEOUT

(RO)
6
.88

$3IS THERE ANOT:EER NUMBER?

MoV
BNE
MOV

B8R

ASCIZ
.EVEN

T4¢

WHICH

"ERROR TABLE" ($ERRTB),

1 s “OATA MEADER” POINTER GOES HERE
13 "CARRIAGE RETURN” & “LINE FEED"
s iPICKUP ~“DATA TABLE*” POINTER
:13GO TYPE THE DATA
; IRESTORE RO

TYPOC
TS7
8EQ
TYPE

8%:

INFORMATION

13 TYPE

44 :

012710

(SITEMB)

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

01"

TYPE
. WORD

BYTE”

s3GET OUT

(RO)., 48
St

68:

000

80$ITEMB,RO
1

MOV
BEQ
TYPE

7¢:

040

3s:

Ss:

001165

« SCRLF
RO, -(SP)

RO
RO
RO

BEQ

2s:

APPROPRIATE

ASL
ASL
ASL

ADD

001165
012650

104401
011000

B8R
DEC

CONTROL

IT THEN OBTAINS, FROM THE

11 “CARRIAGE RETURN” & “LINE FEED"“
1 sRETURN
360 TYPE--OCTAL ASCIICALL DIGITS)
118R IF NO

13 TYPE TWO(2) SPACES

sl ooP
13 TWO(2) SPACES

CZDRKBO DR11 W INTRPROC EXER
SCOPE HANDLER ROUTINE

1<%
MACRO M1200

1853

27 DEC-83

.SBTTL

11:11

PAGE

SEQ 62

SCOPE HANDLER ROUTINE

1106600000000 00080000080004048000400800400800040080880000400044008084

1#THIS ROUTINE

CONTROLS

THE

LOOPING

SUBTESTS.

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>
s oCALL
i e

012714
012714
012716

104407
104407

012720

000416

012722
012726
012734
012740
012744
012746
012750
012754
012756
012756
012762
012766
012772
013000
013004

$SCOPE
:

CKSWR
CKSWR

; 00000START

$XTSTR:

013746
012737
005737
012637
000404
022626
012637
000406

000004
012746
177060
000004

105237
011637
105037

001102
001106
001103
001102
001106

013777
013716
000002

SCOPE

S5%:

000004

; sSCOPE-TOT

CODE

FOR

166142

$OVER:

XOR

TESTERSGGGS

$3IF RUNNING ON THE

MOV
MOV
TST
MOV

SOERRVEC, -(SP)
5%, 86ERRVEC
80177060
(SP)+ ,80ERRVEC

;;SAVE THE CONTENTS OF THE ERROR VECTOR
$3SET FOR TIMEOUT
ssTIME OUT ON XOR?
;;RESTORE THE ERROR VECTOR

cHP

(SP)+,(SP).

1sCLEAR THE STACK AFTER A TIME OUT

S$OVER

1;L00P ON THE PRESENT TEST

B8R

MOV

$SVLAD

(SP)+ ,80ERRVEC

68:;00000END OF CODE FOR

$SVLAD:

THE

53 TEST
FOR CHANGE IN SOFT-SWR
;G0 LOOK FOR SWR CHANGE

INCB

$TSTNM

THE XOR

MOV

(SP), SLPADR

MOV
MOV
RTI

$TSTNM,S8DISPLAY
SLPADR, (SP)

CLR8

$ERFLG

”“"XOR”

TESTER CHANGE

$ 3 THIS INSTRUCTION TO A “NOP“” (NOP=240)

33G0 TO THE NEXT TEST

;;RESTORE THE ERROR VECTOR
TESTER#SGSeS

1 1ICOUNT TEST NUMBERS

1 sSAVE SCOPE LOOP ADDRESS

1:ZERO THE ERROR FLAG

;;DISPLAY TEST NUMBER
1 sFUDGE RETURN ADDRESS
1 sFIXES PS

CZORKBO DR11
TTY

INPUT

INTRPROC EXER

MACRO M1200

ROUTINE

1855

27-DEC-83

.SBTTL

TTY

11:11

PAGE

LS
99

SEQ 63

INPUT ROUTINE

1 0 080842808 88808888888040088888888048000808088000044000445000046008

.ENABL

LSB

11066600600000000000040004000000000080040404000000004080040008840

1¢SOF TWARE SWITCH REGISTER CHANGE ROUTINE.

1*ROUTINE

013006
013014
013016
013022
013024
013030
013034
013040
013042
013050

022726
001062
123727
001456

013052
013056
013062
013066
013070
013074
013076
013100
013104

104401
104401
013746
104402
104401
005046
005046
105777
100375

013106
013112

042716

022737
001074
105777

100071
117746
042716

000176

001140

B8PL
MOVB

166116
177600
000007

166034
177600

021627
001005

000025

013116
013122
013124
013130
013134

104401
062706
000757

013536

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

021627
001022
005766
001403
016677
062706
104401
123727
001003
012777
000002
004737
021627
002420

000015

7s:

HANDLER,

AND

WILL

+SCNTLG

. SMSWR
SWREG, -(SP)
» SHNEW

1578

-(SP)
-(SP)
887TKS
7¢

13IF NO, OON'T WAIT AROUND
$ $SAVE THE CHAR
1 1STRIP-OFF THE ASCII
13IS IT A CONTROL G?
$3NO, RETURN TO USER
1 sARE WE RUNNING IN AUTO-MODE?
1 tBRANCH IF YES
$ 1ECHO THE CONTROL
-G (tG)

s 31TYPE CURRENT CONTENTS

1 $SAVE SWREG FOR TYPEOUT

3360 TYPE--OCTAL ASCIICALL DIGITS)
1 :PROMPT FOR NEW SWR

1 sCLEAR COUNTER
1 s THE NEW SWR

1 sCHAR THERE?
11 IF NOT

TRY AGAIN

$1PICK UP CHAR

31 sMAKE IT 7- BIT ASCII

9s:

$3IS IT A CONTROL -U?

1 1BRANCH IF NOT

$3YES,

108:

165760

000100

165736

11¢;
144

ECHO CONTROL
-V (tU)

1 1 IGNORE PREVIOUS INPUT
$3LET'S TRY IT AGAIN

:
204

000002
000006
001165
001135

011630
000060

otC177,(SP)
€7,(SP).
$AUTO8,
#1

19¢:;

166040

84Tk8, -(SP)

15¢
$GTSWR:

013561

TRAP

1 sCHAR THERE?

154

000001

013543
013550
000176

117746

THE

TST8

166122

001134

IS ENTERED FROM

1¢SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL
s *WHEN OPERATING IN TTY FLAG MODE.
$CKSWR: CMP
OSWREG,
SWR
$3IS THE SOFT-SWR SELECTED?
BNE
$ $IBRANCH IF NO

(SP),#5

164
4(SP)
114

2(SP),8SWR
“.”

. SCRLF

131IS IT A <CR>»?
s sBRANCH IF NO

$1YES, IS IT THE FIRST CHAR?
s ;sBRANCH IF YES
1 1SAVE NEW SWR

s sCLEAR UP STACK

AND <LF>
TTY KBD INTERRUPTS?

$INTAG,
#1

15¢

15¢:
164

€100,8¢TKS

PC,STYPEC

(SP),#60
18¢

: tRETURN

1 1ECHO CHAR

NOT
TTY KBD INTERRUPTS

1 sCHAR < 0?
: 1IBRANCH IF YES

CZORKBO DR11
TTY

INPUT

W INTRPROC EXER

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

M
27 DEC

cMP

000067

000060
000002

17%:

001164

18¢:

99-1

(SP), 867

SEQ 64

1 sCHAR >

183
#60,(SP).
2(SP)
17

: 1BRANCH IF YES
s iSTRIP-OFF ASCII
$31IS THIS THE FIRST CHAR
s ;1BRANCH IF YES

ASL

(spP)

]

INC
8IS

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

TYPE

. SQUES

ASL

B8R

.OSABL

PAGE

8GT
8IC
ST
BEQ
ASL

000002
177776

11:11

B8R

LSB

(SP)

204

s sNO,

SHIFT

PRESENT

CHAR OVER T0O MAKE
ROOM FOR NEW ONE
.

s 1KEEP COUNT OF CHAR
s3iSET IN NEW CHAR

$3GET THE NEXT ONE

13 TYPE

2¢CR><LF>

s sSIMULATE CONTROL
-V

1i080008208888484808088880800888800008888008804800046880040000688000488

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

ROCHR

RETURN HERE

s 3 INPUT A SINGLE CHARACTER FROM THE TTY

s sCHARACTER
$sWMITH

PARITY

BIT

THE

STACK

STRIPPED

OFF

013270
013272
013300
013304
013306
013314
013322

013330
013332

013336
013340
013344
013350
013354
013356
013360
013366
013370
013376
013400
013406
013410
013416

011646
016666
105777
100375
117766
042706
026627
001013
105777
100375
117746
042716
022627
001366
000750
026627
001744
026627
002407
026627
003003
042766
000002

165640
165634
177600

000002

SROCHR: MOV
MOV

1¢:

1ST8
8PL
MOV8
8IC
cp

000023

165606

BNE

24:

000021

000140
000175

$ sBRANCH IF NO

MOVE
BIC
cp
BNE

94TKB, -(SP)
&rC177,(SP)
(SP).,021
24

-1 ]

1 1WAIT FOR A CHARACTER

$3iLOOP UNTIL ITS THERE
: ;GET CHARACTER
s tMAKE IT 7-BIT ASCII
$:IS IT A CONTROL -Q?
131IF NOT DISCARD IT

11 YES, RESUME

1 3BRANCH IF YES

4(SP),#$XON
14
4(SP), 0140
44
4(SP), 0175

8IC

#40,4(SP)

RTI

$ 1WAIT FOR
1sA CHARACTER
1 sREAD THE TTY
1;GET RID OF JUNK IF ANY
$3IS IT A CONTROL-S?

1¢

cP
BEQ
cHp
eLY
cp

B8GT
48

3¢

88 TKS
1
847KB,4(SP)
O1Cc177>,4(SP)
4(SP), 023
88 7KS

B8R

3s:

:sPUSH DOWN THE PC
:1SAVE THE PS

1ST8

8PL

165602
177600
000021

(SP),-(SP)
A4(SP),2(SP)

$3IS IT A RANDOM XON?
1 1BRANCH IF YES
$3IS IT UPPER CASE?
1 1BRANCH IF YES
33IS IT A SPECIAL CHAR?

;:RANOO1
; RANOO1L

1 sMAKE IT UPPER CASE
$11G0 BACK

TO USER

11060006000460040048000000460888800888088440000008000000680008808480808

305:{5 ROUTINE WILL INPUT A STRING FROM THE TTY
;e
Y]
)

1 e

013420
013422
013426

010346
012703
022703

013526
013536

$SROLIN:
1¢:
es:

RDL IN
RETURN HERE

s INPUT A STRING FROM THE TTY
1 sADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
1 s TERMINATOR

MOV
MOV
cHP

R3, -(SP)
®$TTYIN,RS
#$TTYIN.8, ,R3

WILL

$ 1SAVE R3
3 1GET ADDRESS
11BUFFER FULL?

BYTE

ALL

0'S

CZDRKBO DR11-W INTRPROC EXER
TTY

MACRO M1200

27-DEC-83

11:11

PAGE

B8LOS

cHPB8
BNE

#177,(R3)

99-2

SEQ@ 65

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
i27
075
040

105

075

RDCHR
MOVB

000177

10$:

001164

4%
:

013524
013524
000015

3s:

TYPE

MOVB
TYPE

cMPB8
BNE
CLRB

177717
001166

TYPE
MOV
MOV
MOV

000004
013526

1 3BR IF

(SP)+,(R3)

s s SKIP IF NOT
ssTYPE A ' 7

. $QUES

(R3),9¢

s sCLEAR THE BUFFER AND LOOP
:sECHO THE CHARACTER

-1(R3)

3 ;CHECK FOR RETURN
::LOOP IF NOT RETURN
1 sCLEAR RETURN (THE 15)

(SP)+,R3
(SP),-(SP)

;1 tRESTORE R3
s sADJUST THE STACK AND PUT ADDRESS OF THE

94
215,(R3).
2s

13 TYPE A LINE FEED

JSLF

4(SP),2(SP)
O$TTYIN,4(SP)

$TTYIN:
$CNTLU:

MOV
RTI
.BYTE
.BYTE
.BLKB
.ASCIZ

$CNTLG:

.ASCIZ

/tG/<15><12>

$MSWR:

.ASCIZ

<15>¢12>/SWR

$MNEW:

.ASCIZ

9¢:

YES

:3GO READ ONE CHARACTER FROM THE TTY
;1 $GET CHARACTER
::IS IT A RUBOUT

FIRST

: sRETURN

ASCII

CHARACTER

TO TYPE

0
0
8.

s sSTORAGE FOR ASCII CHAR.

/tU/<¢15>¢12>

;s sRESERVE 8 BYTES FOR TTY INPUT
: sCONTROL "VU”
; ;CONTROL

: : TERMINATOR

NEW

“G*”

v
CZDR<BO DR11 w INTRPROC EtXER
\RA INPUT ROUT INL

MACRO M1200

185°

27 DEC 83

.EVEN
.SBTTL

18458

11:11

PAGE

100

SEQ 66

TRAP DECODER

1 0 0 040 0 00008000000000000808000080000080000000800000000004080000000

1oTHIS ROUTINE

WILL

PICKUP

THE

LOWER BYTE

THE

“TRAP“

INSTRUCTION

1¢AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
1¢0F
3¢GO

013572
013574
013600
013602
013604
013610
013612
013614
013616
013620
013624

013626
013630
013636

010046
016600
005740
111000
022700
003002

000776
006300

016000
000200

011646

016666
000002

THE DESIRED ROUTINE.
TO THAT ROUTINE.

$TRAP:

013640

000004

2(SP),RO
O$TERM,RO
.6

. -2

$TRPAD(RO),RO
RO

MOV

RTS

$3THIS

IS USE

$TRAP2:

MOV
MOV

000002

TO HANDLE

.SBTTL

TRAP

THE

(SP), -(SP)

4(SP),2(SP)

RTI

013626
011460
012006
011762
012022
012210

013654
013656
013660
013662
1859 013664
1860
1861

TRPAD:

OBTAINED

WILL

11GET RIGHT BYTE OF TRAP
s sCHECK FOR OUT OF BOUNDS
13BR IF O
1 10UT OF BOUNDS
3 1 HANGUP
s3POSITION FOR IN EXING
13 INDEX YO TABLE
1360 TO ROUTINE

“GETPRI"

MACRO

;1 tMOVE THE PC DOWN

;1 sMOVE THE PSW DOWN
;1 sRESTORE THE PSW

TABLE

16THIS TABLE CONTAINS THE STARTING
168Y THE "TRAP~ INSTRUCTION.

013640
013642
013644
013646
013650
013652

ADORESS

3 1BACKUP BY 2

-(RO)
(RO),RO

ASL

THE

1 $SAVE RO
11GET TRAP ADDRESS

RO, -(SP)

MQY

MOV
TSY
MOVB
Crp
8G7Y
HALT
B8R

000026

THEN USING

.WORD

s TRAP?2

ADORESSES

THE

ROUTINES

CALLED

13sCALL=TYPE
131CALL=TYPOC
3 tCALL=TYPOS
$ sCALL=TYPON
$sCALL
= TYPDS

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

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

013056

s sCALL=GTSWR

TRAP +6(104406)

GET

013006
013270
013420
014124
000026

s sCALL »CKSWR
1 1CALL =ROCHR
1 1CALL *ROL IN
s sCALL *RSYNC

TRAP+7(104407)
TEST FOR CHANGE IN SOFT-SWR
TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE
TRAP+11(104411) TTy TYPEIN STRING ROUTINE
TRAP.12(104112) RESYNC PROGRAM

RESYNC
$TERM=, - $ TRPAD

SOFT-SWR SETTING

(

CZORXBO DR11
TRAP

TABLE

INTRPROC EXER

MACRO M1200

1863
1864
1865

.SBTTL

1867

012737
0327717
001010

010000
001000

001436
165516

WTICMPN:

013704
013712
1876 013714
1877 013720
1878
1879 013722
1880 013724
1881 013732
1882 013734
1883 013740
884
1885 013742
1886
1887 013746
1888 013750
1889
1890 013752

032777
001017
005337
001371

001000

165506

1¢:

1891
1892

1902
1903
1904

1905
1906
1907
1908
1909
1910

1911

11:11

PAGE

5EQ 67

101

INTERBOARD COMMUNICATION SUBROUTINES
s WICMPN

1100000000800 00000000000800000000000008800000800008000000800000800

013666
013674
013702

1893
1894
1895
1896
1897
1898
1899
1900
1901

DEC

3100000600006 000000000000000000080000000800000000008000000008048000000

1866

1868
1869
1870
1871
1872
1878
1874
1875

000407
032777
001407
005337
001371

011637

MOV

er1v
BNE

BIT

1SETUP ABORT TIMER

€1000,8CSR

tWAIT FOR DSTATC=1

4 $

001436

001000

010000, ABORT
#1000, 8CSR
2t

ABORT
14

165466

24:

817

34
€1000,8CSR

ABORT

001436

(SP),TESTPC

001440

104016
104412

s IF DSTATC IS ONE ,WAIT FOR O

1GO AHEAD;IT HAS COME

1 IF NOT STUCK IN WAIT LOOP,

tKEEP WAITING
tWAITED TOO LONG;ABORT

tWAIT DSTATC-0

PROGRAM

160 AMEAD;IT HAS COME
$KEEP WAITING

1SAVE LOCATION WHERE PROGRAM
tORIGINATED

sRESYNCHRONIZE BOTH PROGRAMS
sFROM START

000207

1100000000000 00000088080000000000080002000000000008000008080000000

s GOCMPN

1108080000000 00000080000000080080000800000000000000000000000800008000

013754
013754
013762
013764
013772
014000
014006
014014
014016
014024
014032
014040
014046

032777
001415
017737
042737
042737
013777
017737
042737
032737
013777
000207

000002

165436

:f.UCSR

163430
100000

001446
001446
001446

8CSR, TEMP
0B1IT1S, TEMP

000002
001446

163376

163404

001446
001446
001446

163332

1¢;

MoV

02, TEMP
TEMP,8CSR
PC

S8CSR, TEMP
BIT15,TEMP
02, TEMP
TEMP,8CSR

+IS F1 CLR?
s IF SO,SET F1
sF1 IS SET,CLR IT

CZORXBO DR11 W INTRPROC EXER
CPU PRIORITY

MACRO M1200

SUBROUTINES

1913
1914
191%
1916
1917
1918
1919
1920
1921

014050
014050
014056
014060
014062
1922 014064

1923
1924 014066
1925 014074
1926
1927
1928
1929
1930
1931 014076
1932 014076
2933 014104

1934 014106
014110
1935 014112
1336 014114
1937 014122

.SBTTL

DEC

DI
11:11

CPU PRIORITY

PAGE

102

SUBROUTINES

1100000000000 000400000400000000000000000000000000000000800000000000»

1 CPUMI
1100606000000 0000000000000000000006000000000000000000000000000000

023727
001003

001434

000126

CPUHI

106427

000200
000207

012737
000207

cMe
BNE
106427
200
RTS

000340

177776

18:

MOV

RYS

BOARD, #126
1

1 IS THIS CPUL LSI?
sNO,IT IS UNIBUS

#340,PS

$SET HIGH PRIOR.

IN UNIBUS

1100600000006 00000080850000000000000000080000000000060000000000000000

sCPULO

1108800000000 00080880000800048000000000008000000000080000000000000

023727
001003
106427
000000
000207
012737
000207

001434

000126

CPULO:

cHP
BNE
106427
0

RTS

177776

1s:

MOV

RTS

BOARD, #126
18
PC

€0,PS

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

1939

.SBTTL

1940
1941}
1942

1960
1961
1962
1963
1964

103

SEQ 69

INTERPROCESSOR PROGRAM RESYNCHRONIZATION

ROUTINE

s RSYNC

11008808000 08000800060000800480080000000880000000004000000060046008000

004737

011360

RESYNC:

1946

1957
1958
1959

PAGE

1108080000000 80080000800000080000000000800400000000080600000400000000

1943
1944 Olal24
1945

1947
1948
1949
1950
1951
1952
1953
1954
1955
1956

11:11

JSR

tMOVE
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
014301
014304
014307
014312
014315
014320
014323
014326
1970 014327
014332
014335
014340

005001
005301
001376
005337
001372
000005
104401
000407
000137

000017
000036

PC.RSTVEC

TESTPC VALUE

TO BDR FOR COMPANION

165264

MOY

TESTPC,8B8DR

001444

MOV
TST
BEQ
MOV

#STACK,SP
MSTER
MROEL Y

sWAS
1 YES

001444

SLDELY:
MROELY:
WISYNC:

18:
2

015, ,TIME

MOV

WTSYNC
€30, ,TIME

CLR
DEC

R1
R1

001444

SAVE ERROR PC
THIS CPU STARTED AS MASTER?

1SLAVE CPU;WAIT FOR MASTER TO REACH ITS

sRESYNC ROUTINE

TIME

014212

$1658:

002742

644

.SBTTL

124
124

EML:

.65%¢

B8R

SYNCST

_ASCIZ

13 TYPE ASCIZ STRING

131GET

OVER

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

ASCII MESSAGES
.ASCII

/TEST

.ASCIZ

/SLAVE

.ASCII

STATUS:

THE

ASCIZ

MASTER/<CRLF
>

040
040

101
123
115
124

EM2:

101

FAILED

STATUS:

TO ECHO DBR

MASTER/<CRLF>

CONTENTS/

CZDRXBO DR11-W INTRPROC EXER
ASCII

MACRO M1200

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

124

105

122

123

114
105
101
105
124
105
117
123
124

101
040
111
104

102

123
123
124

27 DEC

11:11

PAGE

1031

.ASCIZ

/SLAVE

.ASCII

.ASCIZ

/FAILED

.ASCII

.ASCIZ

/STATUS ER

LASCII

.ASCIZ

/WORD

.ASCII

FAILED

S€EQ

TO ECHO

'STAT'

117
103

040
124
047
111
000

124

EM3;

STATUS:

MASTER/ <CRLF»>

072

INTR ON A

‘DATI'/

124

101

EM4e:

123
124

STATUS:

MASTER/<CRLF»>

'DATI'/

040
101
047

101
123
1135
124

EMS:

127

STATUS:

MASTER/<CRLF>»

COUNT

'DATI'/

117

124
122
116

111
040
101

EM6:

STATUS:

MASTER/<CRLF>

BITS/

CZDRXBO DR11-W INTRPROC EXER
ASCII MESSAGES

1979

1981

1982

1983

014605
014610
014613
014616
014617
014622
014625
014630
014633
014636
014641
014644
014647
014650
014653
014656
014661
014664
014667
014672
014675
014700
014703
014706
014711
014714
014717
014722
014725
014730
014733
014736
014741
014744
014747
014752

014753
014760

014763
1984 014765
014770
014773
014776
015001
1985 015004
0135007
015012
013015
€15020
015023
015026
015031
1986 015034
015037
015042
015045
015050

123
115
124

072

101
105

125
105

101
123
122

MACRO M1200

106
122
104

123
124

124
125

105

105
124
111
122
116

040
101
047

123
124

PAGE

103-2

SEQ

.ASCIZ

/BUFFER

.ASCII

/7 STATUS:

.ASCIZ

/FAILED

.ASCII

/ STATUS:

.ASCIZ

/STATUS ER

.ASCII

.ASCIZ

/WORD COUNT

.ASCII

ADRS

'DATI'/

040
040
040
101

047

101

11:11

040
123
122

116
104
111

072
114

27 DEC-83

EM7:

040
101
200
111
104

SLAVE/<CRLF>

INTR

ON A

'DATO'~/

117

EM10:

SLAVE/<CRLF>

072

114
105
124
125
105
117
047
124
000

123
124

€EM11:

STATUS:

'DATQ'/

SLAVE/<CRLF>

072

114
105

117

ER ON

‘DATO'/

125

EM12:

STATUS:

SLAVE/<CRLF>

CZDRKBO DR11 W INTRPROC EXER

ASCII

MACRO M1200

MESSAGES

1987 015053
015056
015061
015064
015067
015072
015075
015100
015103
1988 015104
015107
015112
015115
015120
1989 015123
015126
015131
0135134
015137
015142
1990 015145
015150
015153
015156
015161
1991 015163
015166
015171
0135174
0135177
015202
015205
015210
015213
015216
015221
015224
015227
015232
015233
015236
015241
015244
015247
015252
1993 013253
015256
15261
015264
015267
015272
015275
015300
015303
015306
015311
015314

102
106
040
122
105
117
047
124
000
040
101
123
123
126
104
101
122
116
104

125
105
101
123
122
116
104
117

106
122
104
040
040
040
101
047

124
125
040
101
200
124

105
117
047
124
000
101
123
123
126

117

123

124

072

114

EM13:

EM14:

101
040
124
101

DEC

11:11

PAGE

¢,

103-3

SEQ

LASCIZ

/BUHFER

.ASCI1

.ASCIZ

/DATA ER

.ASCII

/STATUS:

SLAVE/<CRLF>

.ASCIZ

/READY

.ASCII

/7MASTER CANNOT

ADRS ER

STATUS:

‘DATO'/

SLAVE/<CRLF>

BIT

'DATO'/

WAS

SET

SHOULD BE

CLEAR/<CRLF>

123

040

111
123
125

EM1S:

101

115

127

STATUS:

MASTER/<CRLF>

START

COMMUNICATION WITH SLAVE-/

CZDRKBO DR11 W INTRPROC EXER

MACRO M1200

DEC-83

11:11

PAGE

103-4

SEQ

ASCII MESSAGES

015317
015322
015325
1994 015330
015333
015336
015341
015344
015347
015352
1995 015355
015360
015363
015366
015371
015374
015377
015402
015405
015410
015413
015416
015421
015424
1996 015427
015432
015435
015440
015443
015446
015451
015454
1997 015455
015460
015463
015466
015471
015474
015477
015502
015505
015510
015513
015516
1998
1999 015521
015524
015527
015532
015535
015540
2000 015541
015544
015547
015552
015555
015560

124
123
126
127
124
107
117
104
101
040
123
103

127
124
107
117
103

120
111
040
122

117

110
104
124
124
040
115
117
040
122
055
123
126
123
123
040
124
101

040
116
122
120
104
040

101
123
115
124

110
114
105
101
111
040
122
123
124
200
124
113
101
111
040
122

117

101

117

106
040
055
105
200
105
040
124
105
125
105

117

040
101
055
111
116
106
040

.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

.ASCII

7/ STATUS:

124
103

000

125
040
111
116

106

040

115
116
116
117
107
101
101

000

123
065
111
040
124
122
122

114

105
110
114
116

INTERRUPTED/<CRLF>

040
126
040

124
122
124
200

123
124

EM20:

MASTER/<CRLF>

072

101
103
101

105

111
114
124
101

LASCII

/MASTER IS LEFT WAITING FOR INTERRUPT TO OCCUR/

CZORKBO DR11l W INTRPROC EXER
ASCII

MESSAGES

015563
015566
015571
015574
015577
015602
015605
015610
015613
2001 015616
015621
015624
015627
015632
2002 015634
015637
015642
015645
015650
015653
015656
015661
2003 015664
015667
015672
015675
015700
015703
015706
015711
015714
015717
015722
015725
015726
015731
015734
015737
015742
015745
015750
015753
015756
015761
015764
015767
015772
015775

015776
016001
016004
016007
016012
016015
016020
016023

124
107
117
111
105
125

040
040

103
126

040

124
123
200
124
124

MACRO M1200

27-DEC-83

11:11

PAGE

103-5

SEQ

111
040
122
116

122
120
124
117
125

.ASCIZ

/VIA ATTN SET/<CRLF>

.ASCII

/TEST

.ASCIZ

/ERROR BIT

EM22:

.ASCIZ

/BURST DATA LATE BIT OF EIR WAS NOT

MSG1:

.ASCIZ

<CRLF>

111
101
116

EM21:

STATUS:

MASTER/<CRLF>

040
123

124

072
101

105
105
117
102

IN MASTER

CSR

NOT

CLEAR/

040
040

123
122
123

116
040
105
000
102
123
104

SET/<CRLF>

101
101
040
124
106
111

127

040
124
105
000

200
123
063
114
113

117

040

105

122

TEST 3-BLOCK MODE XFERS/<CRLF>

CZDRKBO DR11-W INTRPROC EXER

ASCII

MESSAGES

016026

2007 016030
016033
016036

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

200
200
123
064
125
124

117

040

105
200
200
123
065
125
124
101
040
124

016113

016116
016121
0l6124
016127
016132
016135
016140
016143
016146
2010 016150
016153
016156
016161
016164
016167
016172
016175
016200
016203
2011 016205
016210
2012
2013 016214
016222
2014 016226
2015 016232
2016
2017
2018
2019 016236
2020

001116
001126
001116
001440

000
124
124
055
122
040
104

130

122
000
124

124

053
122
040

MACRO M1200

105

040
102
123
115

I<¢F)
27 DEC-83

11:11

PAGE

103-6

SEQ

MSGe:

.ASCIZ

<«CRLF>

/TEST 4-BURST MODE

XFERS/<CRLF>

MSG3:

.ASCIZ

<«CRLF>/TEST

OH1:

.ASCIZ

/ERRPC

BUSADR

EXPCT

RCVD/

oH2:

.ASCIZ

/ERRPC

MEMADR

EXPCT

RCVD/

OH3:

.ASCIZ

/ERRPC/

0T1:

.EVEN
$ERRPC, $BDADR, $GDDAT, $8DDAT,0

105
106

123

105
040
102

S-BURST

DATA LATE/<CRLF>

123

oT2:

SERRPC,0

o73:

TESTPC,O

1'OBUF*

IS THE WORKING AREA IN MEM FOR ALL NPR OPERATIONS

DBUF :

OEND

150060008080088000080008400008000000000008008000000000000800800000
1100000006000000000000008004800000000880800000000000008000088880080

000000
000001

11ST ADRS OF DATA BUFFER

L F
CZDRKBO DR11
SYMBOL

TABLE

ABORT

BAR
BDR

8ITO

8IT00
B8ITO1
8IT02
8I703
81704

W INTRPROC EXER

001436

EM10

= 000001

EM13

001416
001422

=
=
=
=
=

000001
000002
000004
000010
000020

8IT0S = 000040
8I106 = 000100
BIT07 = 000200
8IT08

= 000400

8IT09 = 001000
8IT1
= 000002
B8IT1C = 002000

8IT11 = 004000
8IT12 = 010000

MACRO M1200
014722

EM11
EM12

014410

015521
015634
015726

EMe
EMs
EM6

014463
014527
014577

EM7
EOPT

014650
011152

011320
011326
104000
000004
013754
104406
000011
001454
001410
000020
011416
000012
002760
003226
002524
014160

CPUHMI
CPULO

014050
014076

MSG1
MSG2

015776
016030

MSTER

001452

CRLF

CSR
DBUF

= 000015

= 000200

DOISP =

OH1
DH2
OH3

OISPLA
DISPRE
ORVCTO
ORVCT2
DRVECT
DSWR
=
DT1
oT2
D13

001420
016236
177570

016113
016150
016205

€M1

MSBRD

MSG3

004550

016062

RSTVEC
011360
RSYNC = 104412
RTRN
003462
R6

=%000006

R7
=*%000007
SAVE
001450
SCOPE = 000004
SETUPZ2
SETUPS

SETVEC
SINIT1
SINIT2
SLBRD
SLOELY
SLVFIN
SL1STR
STACK =
START
START1
STARTZ2
STKLMT=
STST1L
STST2
STISTS
STST4

STSTS

SWR
SWRCK

SWREG

SWO

001704
001730

SW1S

TRAPVE= 000034
TRTVEC= 000014

S$MNEW

001166
001106
001110
013561

$MSWR
SNLL
SOCNT

013550
001154
012204

$PASS
SQUES
$ROCHR
SROLIN
$ROSZ =
SRTNAD
$SCOPE
$SETUP=
$STUP =

001100
001164
013270
013420
000010
011276
012714
000107
177777

$OMODE
SOVER

012206
012772

001160
011756

$TKB
$TKS

007506

SCKSWR

013006

$TN

001140

$CM3

010404

$CMTAG

001100

= 000000

$TP8

001146
001144
= 000001

001152

$TPFLG

001157

$TPS
$TRAP

001150
013572

$TRAP2

013626

012530
000176
= 000001

SCNTLG
SCNTLVU
SCRLF

013543
013536
001165

= 000004

$0TBL

012414

$TSTNM

001102

SENULL
$EQP
SEOPCT
S$ERFLG
S$ERMAX
$ERROR
$ERRPC
$ERRTB
S$ERRTY

011300
011202
011224
001103
001115
012434
001116
001170
012560

$TYPEC
$TYPEX
$TYPOC
$TYPON
$TYPOS
$XOFF =
$XON
=
$XTSTR
$$GET4=

011630
011760
012006
012022
011762
000023
000021
012720
000000

= 040000

= 000340

001444

TKVEC = 000060
TOTAL
001442
TPVEC = 000064

SLF
SLPADR
SLPERR

$BELL
SCHARC

SWi4

PR7

PR6

TIME

TB8ITVE= 000014
TEMP
001446
TESTPC
001440

013056
000003
001104
001135
001114

006512
006572

= 000300

014234

011254

$GTSWR
$HD
=
$ICNT
$INTAG
$ITEMB

$SVLAD
012756
$SWR
= 122000
$SWRMK= 000000
$TERM = 000026

= 000010
= 000020
= 000040

SWo6
SWO07
SWO8
SW09
SW1
SW10
SWi1
SWie
SW13

$GET42

000100
000200
000400
001000
002742

001456
001134
001122
001126

SWO3
SWo4
SWOS

001432
177772
000240
000000
000040
000100
000140
000200
000240

= 000040

SWw6
=
SW7?7
=
SW8
=
SW9
=
SYNCST

001120
001124

XPRAM
SAUTOB
$80ADR
$8DDAT

003652
004620
005502

NUM
PIRQ
=
PIRQVE=
PRO
=
PR1
=
PR2
=
PR3
=
PR4
=
PRS
=

001155

$GDADR
$GODAT

001506
001514
177774
006320

MTST3
MTST4
MTSTS

SWo2

SFILLS

104405
104401
104402
104404
104403
001414
013666
014166
001472

= 000001
= 000002

003526

= 000004

= 000010
= 000020

TYPDS =
TYPE
=
TYPOC =
TYPON =
TYPOS =
WCR
WICMPN
WISYNC
XMITMO

SW00
SWo1

nTST2

SW3
Swa

011340
006162
006374
007420
014150
011156
006330
001100
001522

MTPS
= 106427
MTST1
003106

001142
000174
001424
001426
001412
177570
016214
016226
016232

EMTVEC= 000030

SWS

EM3

EM20
EmM21
EM22

SEQ 76

001500

ROCHR = 104410
ROLIN = 104411
RESVEC= 000010
RESYNC
014124
RPRAM
001464

RCVTMO

103-7
SWe

015145
015233
015355
015427
014327

015104

PAGE

177776

EM14
EM1S
EM16
EM17
EM2

EOPTA
EOPTB
ERROR =
ERRVECe
GOCMPN
GTSWR =
HT
=
ICOUNT
INTADR
IOTVEC=
LOBUF
LF
=
MINIT1L
MINIT2
MORS
MROELY

PSW
= 177776
PWRVEC= 000024

020000
040000
100000
000004
000010
000020
000040
000100
000200
000400
001000
001434
000014
002056
104407
011400

001430

014765
015034

8IT13 =
8IT14 =
BIT15S =
8IT2
=
BIT3
=
8IT4
=
BITS
=
8IT6
=
8IT7
=
BIT8
=
8IT9
=
BOARD
BPTVEC=
BROTYP
CKSWR =
CLRBUF

CNT

27 DEC-83 11:11

=
=
=
=
=
=
=
=
=

000100
000200
000400
001000
000002
002000
004000
010000
020000

= 100000

S$OBLK
$O0AGN
SENDAD
SENDCT
SENDMG

SERTTL

$FILLC

012424
011274

011264
011232
011303

001112

001156

$TRP
= 000013
$TRPAD 013640
STTYIN
$TYPDS
S$TYPE

$OFILL

013526
012210
011460

012205

CZDORKBO DR11-W INTRPROC EXER
SYMBOL TABLE
.

ABS.

ERRORS

016240

000000

DETECTED:

MACRO M1200

27 DEC-83

000
O

001

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

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

11:11

PAGE

103-8

SEQ 77