Digital PDFs

AC-F650A-MC

June 1979

20 pages

Original

2.0MB

Document:	CXTUAA0-TU-58-Module
Order Number:	AC-F650A-MC
Revision:	0
Pages:	20
Original Filename:	http://bitsavers.org/pdf/dec/pdp11/xxdp/x11_listings/AC-F650A-MC_CXTUAA0-TU-58-Module_Jun79.pdf

OCR Text

t
TUAA DEC/Xli SYSTEM EXERCISEP MODULE
XTUAA0.Pl1
lS-JUN-79 12126
1
:2
1
4

MACYl1 30A(1052)
.REM

n-JUN ... 19

12136

PAGE '2

IDEHTU'ICUION
...............

5
6

7
9

PRODUCT CODER

AC"F650A-MC

9
HlJ

PRODUCT NAMES

CXTUAA0 TU-58 MODULE

PRODUC T DATE I

JUNE 1979

MUNTUNEPS

DEC/Xii SUPPORT GROUP

11
12
13
14
15
16

17
18
19

20
:U
:22
23
24

25
26
27

28
29
30
31

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT
BY DIGITAL EQUIpMENT
CORPORATION.
DIGITAL
EQUIPMENT
CORPORATION ASSUMES NO RESPONSIBILITY rOR ANY ERRORS THAT
MAY APPEAR IN THIS MANUAL.
THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE \
PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER \
SYSTEM AND CAN BE COPIED (WITH INCLUSION or DIGITALS
COPYRIGHT NOTICE) ONLY FOR USE IN SUCH S~STEM, EXCEPT AS MAY
OTHERwrSE BE PROVIDED IN WRITING BY DIGITAL.
DIGITAL EQUIpMENT COPPORATION ASSUMES NO RESPONSIBILITY FO~
THE USE OR RELIABILITY OF ITS sOFTWARE ON EQUIPMENT THAT IS
NOT suprLIED BY DIGITAL.
COPYRIGHT eCl

1979 DIGITAL EQUIPMENT CORPORATION

SEQ "'001

TUAA DEC/XI1 SYSTEM EXERCISER MODULE
XTUAA0.Pll
15-JUN-79 12126
33
34
35

MACY11 30A(1052)
1.0

36
37
38
39
42
44

45
46

PAGE 3

SEQ 0002

ABSTRACT
........

ALL ISOLATAaLE ERRORS (DATA CHECK OR CO~MUNICATIONS) WILL BE
REPORTED TO THE CONSOLE DEVICE. UPON OCCURRANCE OF NON-FATAL
ERROR, THE DEVICE IS RE-INITIALIZED ANNO THE TEST SEQUENCE RESTARTED AT THE FIRST OPERATION (SELF TEST).

47
48

2.0

56
57
58
59
60
61
62

67
68
69
70
71
72

12136

THE EXERCISE ITSELF wILL CONSIST OF A SEQUENCE OF WRITE (RANDOM
DATA) OPERATIONS FOLLOWED BY READ SAME BLOC~ FOR RANDOM 8LOC~S
ON TAPE, WITH RETRIES (IF NECESSARY) PERFORMED AT THE DEVICE
LEVEL.

63
64
65
66

15-JUN-79

TUA IS AN IOMOD THAT EXERCISES A TU58 CO~TROLLER CONFIGURED
~ITH EITHER 1 OR 2 DRIVES.
THE ACTUAL DEVICE INTERFACE TO THE
PDP-11 BUS IS COMPATIBLE WITH THE DL11 FAMILY, AND HOST<-·>DEVICE
COMMUNICATIONS IS I~PLEMENTED AS SPECIFIED ay RADIAL SERIAL
PROTOCOL.

40
41

50
51
52
53
54

REQUlPEIolENTS
.....
-.•....
ONE DL11 COMPATIBLE INTERFACE TU58 CONTROLLER
WITH AT LEAST ONE DRIVE (DRIVE 0).

HARDWARE.
STORAGE:

DECIMAL WORDS'
OCTAL WORDS.
OCTAL BYTES.
3.0

1593
3071
6162

PASS DEFINITION
••••••••••• _

• • 118

A NUMBER OF WR/RD BLOCK OPERATIONS AVERAGED TO ALLOw FOR MAX.
10-SECOND REWINDS PER TAPE.
4.0

13
74

EXECUTION TIME
..
-_ ......•...
VARIES WITH COMMUNICATIONS PATE BUT SHOULD BE LESS THAN ONE
~INUTE AT 9600 aAUD OR GREATER,

75
76
'17

78
79
80
81
B2
83
84

85
86
87
911

5.!/!

CONFIGURATION PARAMETERS

..•.................... -

DEFAULT PARAMETERS I
OVAl

17650111

VCTS 3C110,

BR1: 4

AT CONFIGURATION TIME SPECIFYa
Dve • 1 FOR TEST DHIVE " ONLY

BR2: 0,

DVC I 1

•

TUAA DEC/Xli SYSTEM EXE~CISER MODULE
XTUAA0.Pl1
15-JUN.79 12126

~ACY11

30A(1052)

OF-VICE OPTION SETUP

6.0

................ -..

MAKE SUPE SCRATCH TAPE CARTRIDGE IS
FOR ALL APPROPRIATE D~IVtS.

97
98
99
101

7.0

MODULE OPERATION

7.1

SUB MODULE
...
--- •.•.•...••.. _-INIT.

THIS ROUTINE PROVIDES RADIAL SERIAL "BREAK" TO
THE DEVICE, AND EXPECTS THE APPROPRIATE RESPONSF..
IT IS INVOKED UPON STARTUP AND AFTER CERTAIN
ERRORS. FAILURE TO INIT IS GROUNDS FOR MODULE
DROP.

SYSINI I

SETS UP BOTH INPUT AND OUTPUT INTERRUPT ROUTINES·
VECTORS AND PRIORITIES.INIT·S DRIVE CONFIGURATION
AND VARIABLES.

DECODa

RETRIEVES NEXT FUNCTIONAL OP-CODE (RD, WR, ETC,)
FROM TEST TABLE IN PREPARATION FOR NEXT COMMUNICATIO~
PACKET (COMMAND OR DATA), THEN C~EATES THE
CORPECT PACKET USING TijAT OP CODE THEN
SETS UP THE EXPECTED RESPONSE PARAMETERS
FROM UNIT a THE EXPECTED RECEIVE PACKET BYTE
COUNT(S),AND THE EXPECTED FLAG BYTE(S),

GVNTAKI

THIS ~OUTINE SETS INTERRUPT ENABLE FOP SEND AND
RECEIVE, THEN ENTERS WAIT LOOp UNTIL PKSNT IS
ASSERTED. IT THEN WAITS ON PKRCV TO COMPLETE,
THEN RETUPNS. THESE FLAGS ARE INDICITIVE OF
ENTIRE PACKET SENT OR ~ECEIVED, NOT A SINGLE
BYTE.

SNDHNO.

SEND INTERRUPT ROUTINE SENDS PACKET TO DEVICE.
ASSERTS PKSNT AT FINISH, DOES RTI.

RCVHND.

RECEIVE INTERRUPT ROUTINE GETS ~ESPONSE FROM
UNIT (MAY BE MULTIPLE PACK~TS) AND CHECKS 1ST
BYTE OF EACH PACKET TO DETERMINE IF IT IS ~HAT
WAS EXPECTED IN ORDER TO ADJUST RECEIVE BYTE
COU~T If NOT. CHECKS FOR EARLY END PACK
OR DLV "OVERRUN" (DATA LATE). ASSERTS PKRCVD
AT COMPLETION AND PTI'S SINCE UNITS RESPONSE IS
CONTINUOUS (NO HANDSHAKE) AND FAST (38,4K BAUD
MAXI).

1 HI
111

112

113
114
115
116

119

120
121
122
123
124
125
126
127
128
129
131'1
131
132
133
134

135
136
137
138
139

140
141
142

143
144

PLACE AND WRITE ENABLED

DEFl~ITIONS

107
108
109

tt7

............ -- ..

102
103
1134
105
106

PAGE 4

DVC • 2 FOR TEST DRIVE 1 ONLY
DVC • 3 FOR TEST DRIVE 0 AND DRIVE

100

12136

SEQ ~IM/J3

90
91
92
93
94
95

15-JUN-79

.....

,-/

'"
&I

TUAA DEC/Xll SYSTEM EXERCISER MODULE
XTUAA0.Pll
lS-JUN-79 12126

MACY1! 30A(10S2)

145

lS-JUN-79

CHUNSS

146

147
148
149
150
151

7.2

12136

PAGE 5

BAlED ON THE RESPONSE, THIS ROUTINE CALLS ROUTINES
TO CHECK CHECKSUM, CHECK END PACKET, ANDIOR CHECK DATA.

DESCRIPTION OF TABLES, QUEUES, BurFERS
••••••••••••••••••••••••••••••••••••••

152

153
154
155

onBLI

LIST OF ENCODED WORDS CONTAINING THE NEXT PACKET
TO SEND, WHICH DRIVE TO ENABLE, AND IF PACKET IS
COMMAND OR DATA.

157

SNDBUF.

AREA WHERE PACKET IS BUILT AND SUBSEQUENTLY SENT
VIA INTERRUPT ROUTINE. CONTAINS 1 PACKET • BE
IT COMMAND OR DATA.

RCVBUF.

AREA WHERE PACKET(S) ARE RECEIVED DURING INTERRUPT
SERVICE. MAY CONTAIN MAX OF. (DATA-DATA-DATADATA-ENDl PACKETS IN SEQUENCE,

156
158
159

160
161
162
163
164

165
166
167
168
169
170
171

8,0

OPERATOR OPTIONS

.••..•••..•...•.

USE THE "MOD' COMMAND TO DUMp THE BUFrERS IN ORDER TO MAXIMIZE
ERROR INFORMATION.

SEQ "004

TUU DEC/XII SYSTEM EXFRCISEP MOD\ILF
XTUAA0,PII
15_JUN.79 12126
173
174

175
176
177

178
179

~(tt0000'

0"'~0I0Q'·

052524

18~

"~(i005"

~e"

183
184
185
186
187

188
189
19~

191
192
193
194
195
196
197
198
199

2Y0
201
202
2~3

204
2~5

,
I

206
207
208

209
210

211
212
213

214
215

216
217
218
219

22~

221

222
223
224
225

226

176500
00030"
000012"
200
000
Y"0"13'
000014' 000003
000016' 000000
000~20' "",,000
"~"022' 00000l'
~"0024' ""0"00
0"'0~06"

""001~'

""0"26' 140000

A""~l0· 0"'915091"

"00032' 00Y224'
0P0lbl4' 00000"

""0036' 00"001

0100040" 0"0"00

"'''0042'' .. ",,000
"0~044'

00000"

000"'46"

000~0~

1100050' 0~0000
0"0052' 000000
000054' 001'000
0P0056'
"00056' 0""000
000060' 0011000
0"0062' 11011110f)
""""'64' 0001100
000066' 000000
1'00070' 000000
"""072' 0110000
000074' 000000
0110"76' 0""000
""0100' 0~"00e
"00102'
000102'
0"0104'
000104"

""0106'
0.. 0106' 000000
"00110' ""00011
000112' 000562'
""0114' 900000
"00116' 000000
""0120' 0000119
110"122' 000017
""0040

227

TUAA DEC/XII SYSTE" EXERCISER "ODULE
XTUAAIl,PII
I5-JUN-79 12126

MACYII 30A(1052)

230

232

00"224'

(TU_A

1213.

PAGE.

),1'65~0,3~~,4,0,2,1,17

"ODULE 1'"""0,TUAA ,176500,300,4,0,2,1,17
, 'fITLY TUAA DEC/XII SYSTFM EJERCISEP MODULE
23-MAY-78
DPXCOM VF.PSION 6
RrN
,LIST
,***************** ••• ** •• ******* •• ********************.*.***********.*.*
PEGI"I
.OCNA"I ,ASCII /TUAA / ,MODULE NAME.
,USED TO KEEP TRACK OF WBUFr USAGE
OPEN
XFLAGI ,RYTE
176590+0
'1ST DEVICE ADDR.
ADDRI
liST DEVICE VECTOR,
VECTORI 300+0
,BYTE
PPTY4+0
liST SR LEVEL,
BRII
12ND
BR LtVEL,
,BYTE
PRTY0+1l
BR21
IDEVICE INDICATOR I.
DVIDII 2.1
,S~ITCH
R~GI8TER I
OPEN
SRI I
ISWITCH REGISTER 2
OPEN
SUI
ISWITC~
REGISTER
3
OPEN
SRlI
OPEN
'SWITCH REGISTER 4
SR41
:*.*******••• ********.********* •••• ***** ••• *********** •••••• ***********
STATI
140000
,STATUS ~ORD.
INIT'
STAPT
'MODULE START ADDR,
SPOIN~, MOD&P
,MODULE STACK POINTER,
PASCNTI 0
IPASS COUNTER.
ICONTI I
II or ITERATIONS PEP PASa.1
ICOUNTI e
ILOC TO COUNT ITERATIOhS
SOFCNTI p
,LOC TO SAVE TOTAL SOFT EPRORS
HRDCNTI 0
:LOC TO SAVE TOTlL HAPD EIIRORS
SOrPASI ~
,LOC TO SAVE SOFT ERROIIS PER PASS
HRDPASI 0
ILOC TO SAVE HUD ERIIOIIS PER PASS
SYSCNT I 0
"
OF SYS EIIRORS ACCU"ULATED
RANNUMI 0
'HOLDS IIANDOH • WHEN UNO ~ACPO IS CALLED
CONFIG,
,RESERVED FOR MONITOR USE
Rtsll
0
'PESEPVED FOR MONITOR USE
RES21
0
IRES~RVED rop "OBITOR USE
SVRel
OPEN
,LOC TO SAVE Re.
SVR1'
OPEN
,LOC TO SAVE RI.
SVR2'
OPEN
'LOC TO SAVE 112.
SVR3,
OPEN
,LOC TO SAVE R3.
SVR41
OPEN
'LOC TO SAVE R4.
SVR51
OPEN
,LOC TO SAVt RS.
SVR6,
OPEN
'LOC TO SAVE R6.
CSPAI
OPEN
,ADDP or CUIIPENT CSP.
SBADR'
,ADDII or GOOD DATA, OR
ACSR,
OPEN
,CONTENTS or CSR,
WASADPI
,ADDR or BAD DATA, OR
ASTAT, OPEl!
,STATUS REG CONTENTS,
ERRTYP'
'TYPE or ERROP
ASB,
OPEN
,EXPECTED DATA,
AWlSI
OPEN
'ACTUAL DATA,
PSTRT, IIESTRT
:RESTART ADDRESS AFTER END OF PASS
WOTOI
OPEN
,WORDS TO MEMORY PER ITERATION
WDrR,
OPEN
,WORDS FROM MEMORY PEII ITtRATION
INTP'
oPtN
I' or INTERRUPTS PER ITERATION
IDNUMI 17
,MODULE IDENTIrICATION NUMBER_17
,PEPT
spsIZ
,MODULE STACK STARTS HEIIF.,
,NLIST

228
229

231

IS-JU"·79

3P(lII52)
10.00

172

181
182

"~CYI1

MODSP,
J

,WORD
,LIST
,ENDR

IS-JUN·79

12136

PAGE 7

*****************.**.*.*****.************.****** •• * ••• **.....*.**.**** ••

YUH DfC/XII SYST'" EXERCYSFP MOOIlL!:
XTUAA0,PII
IS.Jt'N.H 12126

]"'(1"5')
15·JU',·19
CAT' srcnCN

12136

: ............. FLAGS ....

234
235

~TC

.............. "' ............................................................................................... ..

0A~000

PKSNTI ,WOP~
PKRCVD 1 ,~OPD
LASTOPI ,~ORD
rSTYLGI ,_ORO
RCSRI
,~OPD
RCDSI
,WORD
XMSRI
,WOPD
X-Dal
,WORD
DVIDXI ,wOPD

,PACKEl SENT
,PACKET RECEI VEO
'I.PASS.THROUGH.TABLE FLAG
'~XPECTI~G_YLAG.aYTE FLAG
,PECV STATUS REG, ADDR,
'RECV DATA BUI"FER lDDR,
,TRl'SMIT STATUS REG. ADDR.
'TRANSMIT DATA BUFFER ADDR.
,DRIVE CONFIGURATION

0~0000

SYSTlTI .WORD

,SYSTEM STATUS WORD
,BITlaOUT-rO-LUNCH ER~OP (CHKlNS)
,BIT I-SELF TEST SENT
'BIT0.CH~SUM ODD
,CURR!NT DRIVE NUMBER
'ASCII OF CURRENT DPIV! NUMBEP

236
237
238
239
240
241
242
243

00An4'

0~A00~

;244
245

000244'

000246'

~A0226'

0~C1I0"'''

000230'

0~0000

0~0212'

0~~A00

000234' 00P000
000236' 0~~000
000240' 00A00~
0e0242' 000000

,.......•....................•...... __ ....•.•...•••..••.•...•.•...•••...

250

251
252
253
254
255
256

257
258
259
260

261
262

263
264

265
2U
267

268
269
270

271

272

273
274
275
276

217
278
279
280
281
282
283
284

285
286
287

PAGE B

,snn. MODULE DATA nCTIO"

246
247
248
249

~Acrll
~~DULF.

000250' 0~0000
000352' 000002
BAUS6' 000000
110n60' 000000

D~VI

,WORD

AlORVI

,BL"W

00U62' 0~00·2
000266 ' O00000
000270' 000000

AUDSTI ,BLKW
,.ORD

000272' 000000
000274' 000000
000216' 00~~00
000300' 000000
000302' 00000O
000304' 000000
00U06' 000000
0003\0' 01'0000
0003\2 ' 000000
0003\4' 000000
0003\6' 000000
000320' 001'00"
"00322' 00000~
000334' ""0000
000326' 000000
00033'" 0119000
000332' 0~0000
000334' 900~1"
000354' 000000
"00356' 001"'00
000360' 0~1I000
000362' 000000
000364' P,00000
000366' 0""000
000379' 900000

RECI
PArRNI
SUCCSI

288

TUAA DEC/XII SYSTEM EXERCISER MODULE
XTUAA0,PII
IS-JUN-79 12126

0
~

,~ORD

P~PTRI

XGPTRI
TBLTOPI
TBLPTRI
SNDPT"I
SNDCNTI
RCVPTRI
PCP~NMI

,WORD

,MlORD

,ASCII or I or BAD BYTES

2
0

,!lOPD
,WORD
,IoIORD
,WORD

,RECORD NUMBER
'DATA PATTERN
,SUCCESS CODE or END PAC~ET
'TOP or CURRENT PACKET CADOR,)
,POINTER TO NEXT XIFLG OR X$CNT
'TOP or Op TABLE
,POINTER TO OP CODE IN OPTBL
'POINTER TO XMIT BurrER
,NUMBER or BYTES REMAINING TO aEND
'POINTER IN RECEIVE BUrFER
,.OF PACKETS LEFT DURING REC IEVE
,. or PACKETS BEING CHECKED IN CHKANS
,ACTUAL COUNT USED IN RECEIVE
'COUNT USED IN CHECKANS
,EXPECTED • or PACKETS TOTAL
'THE EXPECTED FLAG BYTE OF 1ST PACKET
,AND IT'S TOTAL BYTE COUNT
,MULTIPLE PACKET EXPECTED FLAGs AND COUNTS
,THE TABLE OP CODE ON ERROR
'THE EXPECTED FLAG ON EIIROR (PUnR)
,ERROR FLAG
'CONTENTS OF DLV RCDB ON DLV ERROR
,.PKPTR ON ERROR-lIT l BYTES
,.PKPTR+Z ON ERROR-NEXT 2 BYTES
,NUMBER or BAD DATA BYTES (MAX, 13B,)

.wOJiO

,WORD
.WOFtD
,WORD
.WORD
,WORD
.WORD
,WORD
,WORD
,WORD
,WORD

pKCHKDI
RCVCNTI
RCBCNTI
UPKNMI
XSrLGI .~ORD
UCNTI ,WORD
.8LKW
ERROPI ,WORD
r.RRFLGI ,WORD
FRII!RI ,WORD
EPRWDI .WORD
UPAKI ,WORD
ATPAKll ,WORD
BD~YTSI ,WORD

,.•.••.•••....•••.•..........•••..•.•...•••...•.•..••••.•.••••..•.••.•••

MACYII 30A(1052) 15-JUN-79
~ODULF. DATA SECTION

12136

PAGE 9

289
29~

291
292

"e~372 ' 00,,0P0
000374'
004
000375 •
00A

;

293
294

296
299

300

000100
000000

01
DIDATA
DTAFtI
DTAFL2
DTAFt]
DTAFL4
CMNDFL
DRV0
DRVI

000"~1

3~1

00001~

000011
000100
1000011
000000
000401'

303
304
305
306

.••....•.••••.........•....•...•.•••••.••..•.•.•.......•.•••••.•••••••.

0~0100

)03

,2 NULL BYUS
'I~IT BYTE
,RSCDNT EXPECTED HERE

RIINIT
0

,._-_. GrNERAL EQUATES

295

297
298

BRKWDI ,_ORD
INITWD I ,BYTE
,HTE

II'"

°I

•

••••••••••••••••••• ~••••••••••••••• D ••••••••••••

100

IP0
100000

30'

"400
;..•....•.....••.......•....

309
310

,._ ••• PROTOCOL EQUATES

lee

311
312

H~.W._

.•.

&.w • • • _ • • • w • • • • •

_B .•. •••.. _.•....

• • • ~ • • • • • _ • • • • • _ • • • _ • • • g • • • • • • • • • • • DDm.D • • • DD • • •

:FLAG BYTE CODESI

3ll
314
315
316
317
3\9
3\9

000004
000001

l2~

~00002

0~0002

00~020
0~002~

0~0023

PSCMNO
RScnNT
PSXON

2
8

puorr •

PUNI'J'

RGDATA
UEND

·•

20
23
4

I
RSC_NO

321
322
323
324
325
326
327

:SIZES'

000222
000016

00~2A4

PINDSZ
RSMSn
PSDASZ
RIDHSZ
RSSNS!

332

,,001e0

!>$SEND

333

~~00~3

334

RSS"P

335

0~00e2
000~05

328
329
330
HI

~00016

000012

14,

\e,
132.

RsnASZ.RSNDSZ
RSMSlZ+4

,END PACK SIZE
'~ESSAGE sIZE
,DATA PACK SIZE
,DATA pLUS EhD PACK SIZE
,EthD SIZE OF "ESSAGE PACK

,OP CODES.

336

000000

PURn
PsaSH
"$8NOD

337

00~~01

~"NIT

~~~~~(i(7

PUSLF

342

"~"'I-"Nl

'SO~

343
314

t'712V1

fSAM

171767

!.SOCkT

IV0
3
2
5

•,
1

339

,SUCCESS COOES

340
341

"_0,

.. 4J:i •

GO no SllCCE55
PAD CO""/IoIAND
N()

C~FT.

TUAA DoC/XII SYSTEM EXERCISER MODULE
XTUAA0,PII
IS-JUN-79 12.26
177770
177776
177740
000001
177765
177737
177720
177711
117757
177777
177757
117757
! 77757

345
346
341
348
349
35~

351
352
353
354
355
356
357
358
359

TUAA DEC/XII SYSTEM EXE~CISER MODULE
XTUAA0,PII
!5.JUN·79 12.26
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401

MACYII

15.JUN·79

30~(1052)

12.36

PAGE 10

MDULE DATA SECTION

E$NONX
EfPART

'2,

nSK

-]2 0

ESTRY
HWLOe

-11 •

-R,

·n,

E'NO~O

ESCMD
ESPEC

"'155,

'48,

oSCKS

-17,

USLF

-I,

ESCXSM

E'C~S

ESWP
ESRO

ESC~S

;NO O~IVE
,E.O,M,

,SEEK EPROR
,PETRIES
,WRln PROT,
I"OTOR STOPPED
I.B~D COM"AND
IBAD RECORD. SENT
,DATA CHECK ERROP
I SELF TEST rUL

E'C~S

MACYll 30A(1052) 15-JUN-79
MODULE DATA SECTION

12136

PAGE 11
SEa ~010

: ............. TEST COM".AND TABLE ................. ''''''' .......... 11> ........ Il10 • • ' ' ' 'l1li .. ''''''' ...... '''' ... ' ' 011' ' ',.. ......... <11' ......... ''''' .. ...

000376' 100007
0~0400' 100003
000402' 000001
000404' 000010
000406' 000011
000410' 000100
00~412' 100002
000414' 100407
000416' 109403
000420' 000401
000422' 000410
000424' 000411
000426' 000500
000430' 100402
000432' 177777

OPTBLI

000434' 100407

DRIOP.

,WORD
,wOPD
,WORc
,WORD
~WORD

,WORD
,WOPD
OPTBL21 ,WORD
,WORD
,WORD
,WORD
,WORD
,WORD
.WORD
,WORD
,WORD

RUSLF ICMNDrL IDRVe
R•• WR1CMNDFLIDRV0
DIDATAIDTAFLI1DRV0
DSDATAIDTArL21DRV0
DIDATA IOTArL31DRV0
D.DATAIDTAfL4IDRV0
R,.RD1CMNDFLIDRV0
R•• SLF1CMNDFLIDRVI
RS'WRICMNDFLIDRVI
DIOATAIDTAFL11DRVI
OSDATAIDTAFL21DRVI
D.OATAIDTAFL3IDRVI
DIDATAIDTAFL41DRV!
R.IRDICMNDYLIDRVI

R'$SLY1C~NDrLIDRVI

:w •••• TABLE FOR EXTENDED EPROR INFO .................................. .
000436'
000440'
000442'
000444'
000446'
000450'
000452'

000354'
000272'
000274'
000314'
000356'
000300'
000374'
~00454' 000362'
000456' 000322'
000460' 000324'
000462' 000326'
000464' 000330'
000466' 000332'
000470' 000320'
000472' 000364'
000474' 000366'
000476' 177777

ERRTBL I

ERFTB21

• WO~D

EPROP

;WOFi!D

REC

,WORD

PATRN

~WOFi!D

RCVPTP

,WORD
,WOPD
,WOPD
,WORD
,WORD
,WORD
,WORD
,WOPD
,WORD
,WOPD

ERRFLG
PKPTR
INITWD
EPRWD
RCVCNT
RCBCNT

.WORO
,WO~D

ATPAK
ATPAK2

,WORD

X'P~NM

X8FLG
XlCNT
pKCHKD

,OP CODE IN COMMAND TABLE (OPfBL)
,THE RECORD NUMBER
ITHE DATA PATTERN
'BYTE POINTER IN RECIEVE BurFER
,THE EXPECTED FLAG BYTE or CURRENT _PACK
'POINTER TO TOP OF CURRENT PACKET
,RESPONSE Dr INIT DP (BITI5'81T8)
'CONTENTS OF DLV RCDB If DLV ERROR
,I BYTES UNPECEIVED, IF ANY
,. BYTES EXPECTED CURRENT PACKET
II or PACKETS EXPECTED
ITHE EXPECTED FLAG BYTE or 1ST PACKET
ITHE EXPECTED COUNT or 1ST PACKET
II or CURRENT PACKET BEING CHECKED
liST AND 2ND BYTES or CURRENT PACKET
,3RD AND 4TH BYTES or CURRENT PACKET

; "' ................... "' ............................................... "" ................ .,. ......................... "' ........................................... "" ......... 1ID . . . . e ....... ...

TUA4 n~c IX II SYSTFM FXERClSFP _ODULF
15_JU~.79 12.26
XTUAA0,PII
402
403
4~4

4~5

406
407
409
409
410
411
412
413
414
415
416
417

418
419
420
421

422

0".500'

O167~6

00~504'
"'~1"'512 •

"16767
126737
0,,1052€ ' 0111016
0~0522' 105737
0110526' 0"10e4
DJttVl53P' 042767
000536' 000407
~A0S40" 122737
000546' 00101'3
0~0550' 042767
000556' 004767
000562' 000240
000564' 10441 7
000570' 016767
000576' V42767

15-JUN-79
"ACYl I 3~A(lA52)
~AIN PPOGPA. CONT~OL
PROGRAM CONT.OL
SPOlNT,SP
MOV
MV
DVlDI,OVIOX
lDNUM,U41
C·PB
&NE
28
. . 4V
TSTB
8NE
IS
.PIT0,OVIDX
elC
BP
21
U,U40
IS.
CMPB
BNE
21
IPITI,DVIOX
BIC
BYUNI
CALL
211
PESTPT. NOP
,S8TTL
START.

177326
177304

177532

1774~4

0~P.41

0"004.
0""o01

1775"6

000001

000040

000002

177466

0~031C

438
439
440

PANNUM,RfC
'177000, PEC

000624' 004767

000456

CALL

DECOD

,I"TERPRET OPERATION FROM TABLE, MAKE PACKET

000630'
000634 '
000640'
000644'
000650'

004767
004767
004767
005767
0el413

0~1652

000100
001666
177510

PSTRT2. CALL
CALL
CALL
TST

CLRBUF
GVNTAK
CHKANS
EPRER

,ZERO RECEIVE BUFFEP
'SEND PACKET, RECEIVE RESPONSE
,INTERPRET RESPONSE
,ERROR?
,NO

000652'
000660'
000664'
009670'
000674'
000700'
000704'
000710'
000712'

016767
005067
095067
005067
004767
004767
005767

177426
177414
117356
177212
001372
000402
177320

PANDI,BEGI"
RANNUIo\,PATRN
MOV
BIC
'177400,PATPN

17724~

177450

BEQ

177426

381

IS.

~01747

104413

01101100'

MOV
CLR
CLII
CLR
CALL
CALL
TST

TBLTOP, TBLPTR
ERREP
&YaTAT
ERPTYP
DOeRK
DECOD
LASTOP
BEQ
R&TRT2
ENDITe,BEGIN

441

442
445
446
447

000720' 042777
~00726' 042777
000734' 104410

00010~

880100

177306
177304

462
463
464
465

466
467
468
469
470
471
472

D~OP'

00000~·

'JlESET ERROII FLAG
,RESET SYSTEM STATUS
'RESET EIlIlOR TYPE
,INIT DEVICE
,DECODE NEXT OPEIIATION
,DONE ONE TABLE'S WORTH7
,NOT YET
,SIGNAL END OF ITERATION.
,MONITOII sHALL TUT E~D OF PUI
,KEEP ON

IOI,UCSR
BIC
.OI,UMSP
BIC
ENDf,BEGIN

.SHUT orr
'ALL INTERRUPTI

"ACYl! .30A(l052] 15-.:IUN-79 12136
GVNTAK I MAIN COM~UNICATIONS LOOPS
.SBTTL

000740' 012167
000746' 005067
000752' 005067
000756' 00'067
090762' 016167
900770' 016767
000776' 012767
001004' 012767
001012' 012767
001020' .052777
001026' 052777
001034'
l1li1034' 104401
001040' 1114407
001044' 005767
001050' 1101771
001052'
001052' 104407
001056' 104407
001062' 005767
001066' 1101771
~~1070' 000207

,YES, -->IST OPERATION,

J•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

TUU DECIXII SYSTEM EXERCISER ,"ODULE
XTUAA0.PII
IS-.:IUN-79 12126

448
449
45"
451
452
453
454
455
456
457
458
459
460
461

'PROCURE DATA
'I-RUE IT

BII
IIESTIIT
,..............................••..•.•..•••.•••••..................•..•.

000716' 000721

443

444

.GET PECOIID •
,SIZE IT FOP TU58

".,.,N''''· 177456
177400

~~Il

.THE INlT or INITS
,COPY DRIVE CONFIGURATION
'ARE WE THE LOAD DEVICE?
"0
rYES-ORIVE 0?
,NO
'YES-DESELECT
,CONTINUE
,NOT DR0,DR!1
,.O-SOME OTHEP DR
/YES DESELECT
,SET VECTOR GET CONFIG.
,MAIN LOOP

000604' 104417
000610' 016767
000616' 042767

431
432
433
434
435
436
U7

SEQ

~AIN

Io\OV
BIC

177474
177466

423
424
425
426
427
428
429
430

PAGF 12

RAND.,BEGI~

e01it00p·
17726~
1770~~

12.36

808081
177252
177250
177314
177344
177332
00e330'
005122'
"04714'
000100
000100

177264

GVNTAKI

GVNTAK I

Mav

II ,FSTFLG

PKSNT
PKRCVD

CLII
MOV
MOV
MOV
MOV
MOV
BIS
BIS

177212
17128S

succs

UCNT,RCVCNT
UPKNM,~CPKNM

lX.rLG,UPTIl
'PCVBUF,IICVPTR
nRBUF ,aNDPTIl
.n,OXMSR
In,.lIeSR

,SET IST.BYTE FLAG
,PACK NOT SENT YET
,PACK NOT RECEIVED YET
,NO IUCCESS CODE YET
,COpy • BYTES TO RICIEVE
,COpy • PACKETS TO IICV
,COPY laT FLAG BYTE ADDR, POINTER
, •• >TOP or RECEIVE Burr
, •• >TOP OF XMIT BUrrER
'SET UP TO SEND
.AND RECEIVE

181
11110000'
"0e00~'

177154

281
1100000'
000000'
177140

SEU 0012

COMMUNICATIONS LOOPS

CLR
CL~

177332
177320
177276
177302
111270

~AIN

PAGE !3

BIlEAU, SEGIN
8REAKt,8EGIN
TIT
PKaNT
BEQ
IS

,TEMPORAllY RETURN TO MONITOP ••••
,THEN CONTINUE AT NEXT IN&T~UCTION.
.DONE IlENDING!
,NO

8RElKI,BEGIN
8P1AU, BEGIN
PKI!CVD
TIT
BEQ
21
IITS
PC

,TEMPORARY RETURN TO MONITOR ....
'THEN CONTINUE AT NEXT INST~UCTION.
,DONE UCEIVING'
,NO

.....-...................................•.......................•.•...

TUAA DEC /X II SYSTEM EXEPCISfR MOnt'LE
XTUAA0.PII
15-JUN-79 12.26
47)

474
475
416
411
478
479
480

481
482
483
484
485
486
487
488

489
490
491
492
493
494
495
496
497
498
499
500
501

r
I

502
503
504
505
506
507
508
509

.S~TTL

001072' 016700
A01016' ~1212~
@01102' 11612r.
0~1106'

1~512~

~tJt110"

V.12720

001114' 116710
001120' ~1670P,
001124' 010067
001130' 005720
001132' 010067
"01136' 00572"
1"1I14~ , 010067
~01144' 005720
001146' f'IA067
001152' 032167
00116'" ~~1416
001162' 012767
1101170' 012767
0~1176 ' 032767
001204' r01420
001206' ~161b7
001214' 000414
001216' 032767
001224' 001002
001226' 004767
001232 ' 012767
001240' 016767
001246' 016767
001254' 004767
001260' 005067
001264' 005067
001270' ~05067
001274' ~05067
00130P' ~05061
001304' ~0A207

176712
AH2~'7!1'

1767U
0u2~34'

116672
176662
171104
17710~

177074
17707"
000001
0~0376'

177771
0~~002

177064

177222

1772~0

000~02

177020

177466
000414' 177~44
177170 177146
117032 177032
001012
177074
177072
177074
176746
176602

512
513

514
515
516
517
518

519
520
521
522
523
524
525
526
527
528
529
530
531
532
533

534
535
536
537
538
539
540
541
542
543
544
545
546

547
548

549
550
551
552
553

0e1306' 027727
001314' 001007
001316' 016767
001324' 1105267
001330' 00~167
1'101334' 012100
001340' 005777
""1344' 1011460
001346' 0127~0
001352' 112710
001356' 112760
001364' 012702
001370' 005720
001372' 116720
001376' 005302
001400' 001374
001402' 012767
0111410' 012701
001414' 012700
1101420' 004767
001424' 01011~
"01426' 032777
001434' 001412
1101436' 012767
001444' 012767
0111452' 012767
1101460' 000554
001462' 012767
001470' "12767
1101476' 012767
001504' 000542
001506' 000240
0015111' 112710
001514' 112761'
001S2Z' 117760
001530' 105060
001534 ' 105060
001540' 005067
001544' 037777
001552' 001404
001554' 1052611
00156A' 0115267
001564'

176174

177777

176762 176762
176700
000476
004714'
176742

000100

176652

0001102
1100016
0"0001

176664
176660
176646

1100020
000001
01101101

176640
176634
176622

000002
0001112
176560
000003

0110001
0110002

0~0004

176504
000400

176534

181

CMP
BNE
MOV
INC
JMP
HOV
TST
Bn
MOV
MOVB
MOV8
MOV
TST
HOVll
DEC
8NE
MOV
MOV
MOV
CALL
MOV
SIT
BEQ
MOV
MOV
~OV

3S.

BP
MOV
~OV
~OV

BR
DECCMD. NOP
MOVB
MOV"
MOVB
CLRB
CLRB
CLR
BIT
INCB
INC

411

lA506~

0A~A~5

0"'t60"'· 005060

V,A0A06

~1276e

DECOD.

BEQ

560

9101604'

~OV

0~000~'

~(II1 PlPl0

~1676.

176454

~01620'

0127·1

"HHHl!t2

0'-'1624'

"~5721

"''";1626'

012767

""'~0?16

AP025~"

AAAAI0
~"0AI2

17.456

SEQ 0ell

SYSTEM (MODULE) INIITIALIZATIOVFCTOR,R0
IPCVHND,(R0).
BRI,(R0).
(P0).
'SNOHND,(R0).
B.I,8P0
ADDR ,R0
P',PCSR

IS~T UP VECTORS.
'FECEIVE ROUTINE
,AND PFIORITY
I-->XMIT VECTOR ADDR
,SET UP SEND ROUTINE ADDR
lAND PRIORITY
,GET DEVICE ADDRESSES.

(R~)+
R~,RCDB

/
/

(R0)+

~~,XMSR

(P0)t
P0,X~DB

laITe,DVIDX
IS

'OPTBL,TFLTOP
'-I,OPTBL2
'RITI,DVIDX
SYSSET
DRIOP,OPTBL2
SYSSET
'BITI,DVIDX
2.
DPOP
'OPTBL2,TBLTOP
ORIOP,OPTBL2
TBLTOP,TBLPTR
OOBRK
ERRER
E"RWD
B08YTS
SYSTU
ERRTYP
PC

I /
,DR0 SELECTED?
,NO
,YES-TABLE STARTS AT DR0 OPERATIONS
'PRESET AS NO DRI
,SELECTED HOWEVEF?
INO-ALL SET
IYES-INSERT OP CODE
,CONTINUE
,HERE.NO DR0,.,DRI?
'YES-CONTINUE
,NO DRIVEsaNO WAY
'JUST DRI-TOP IS DRI START
,INSERT OP CODE
, NOW SET POINTER TO TOP.
,INIT UNIT
IANP ERR OF NUMBER
lAND ERROR WORD
, AND BAD BYTES
,AND SYSTEM STATUS
, AND ERROR TYPE

MACYlI 30A(l052) IS-JUN-79 12136 PAGE IS
SYUNI / SYSTEM (MODULE) INIITIALIZATION

000004
176464

A01564' 104421
001572' A"''''252'

001612'

MOV
SIT
SEQ
MOV
BR
SIT
8NE
CALL

MOV
nSSEr' MOV
CALL
CLP
CLR
CLR
CLR
CLR
FTS

000204 176702
000202
004114'
002n2

555
556
557
558
559
561
562
563
564
565

"'
2$1

211

554

001574'

~OV

004714'
000001
000200 000001
0002110
176676

SYSINI

SYUNI. MOV
MOV
MOVe
TSTP
MOV
Move
MOV
HOV
TST
MOV
TST
HOV
TST
MOV
BIT
BEQ

117114
171216
171040

fUAA DEC/XII SYSTEM EXERCISF.R MODULE
XTUAA0.PII
15-JUN·79 12126
510
511

15-JUN-7Q 12.36 PAGE 14
~ACYII 3@A(lA52)
SYSINI / SYSTF~ (·OOULE) IN IITlALIZATtON

eTBLPTR,'-1

,LAlIT OP CODE PROCESseD?

;NO

TBLTOP, TBLPTR
,YES-POINT TO TOP
LASTOP
,SET FLAG
DECRET
,EXIT
ITRBur,R0
'POINT TO TOP or TRANSMIT BurFER
, IS IT COMMAND?
nBLPTR
DV.CCMD
!YES
tTR8Ur,R0
,NO-THEREFORE IS DATA PACK.
IPfDATA,8R0
,FLAG BYTE
IBYTE COU~T
U28 .. IlR0)
U28. ,R2
,rOR DATA INSERTION COUNT
(R0)+
,GET BY THE BYTE COUNT
PATRN,(R0).
,AND INSERT DATA
,UNTIL
R2
,COMPLETED
21
#l32. ,SNDCNT
,TOTAL COUNT rOR SENDING
1130, ,III
'COUNT FOil CHECKSUM ROUTINE
,TFBUf,R0
,POINT TO TOP AGUN
CHKSUM
,CALC, THE C~ECKSUM
RI, (PII)
IRETURNED IN PI WITH R0 AS POINTER
'DTAFL4,8TBLPTR :LAST DATA PACKET?
,NO, EXPECT CONTINUE, ~TC.
3$
,YES, EXPECT END PACK
'P$END,UfLG
.UNOSZ,X8CNT
,THIS 8IG
'AND ONLY I PACKET RESPONSE
" ,XlPKN~
DECRTI
,EXIT
IHER~ ~OT LAST PACKET
'RICONT ,UYLG
,EXPECT. CONTINUE, I BYTE
'l,xaCNT
II, XlPKNM
II PACK
DECRTI
IrXIT
,HERE WE BUILD A COMMAND PACKETI
IPICMNo,aR0
,fLAG BYTE
.HMSlZ,1 (RII)
IMESSAGE SIZE
nBLPTR,2(R~)
ITHE OP CODE
3(P0)
'NOT VEPIFY
,PRESET TO DRIVE II
4lP0)
DPV
'DITTO
.RIT8,nBLPTP
,WAS DPIVE I, THOUGH?
45
,NO
4(P0)
,YES-SELECT DRI
DRV
IDITTO

, ••••••• ***** •• ***************.***** •• *****************.******
BTODG,SEGIN,DPV,ASDPV

,CONVERT DRV TO ASCII AND
,STOllE AT ASDRV

;*************************************************************
CLRA
5(RPl
I~'O ~ODlYIERS
6(R.)
CI.R
f~IO SF.QLI~NCE If
#'512."B o (R0)
,USF STA"DARO SLOCK SIZE
"OV
IO".C, 19'., (.R~)
: I -SERT RECORD NUMer.p
"OV
#PS"'SIZ,Pl
:"ES5AGV PAC~ET SIZE
"OV
(Ql) +
TST
IPLUS ~YTF COONT AND fLAG
f.1('IV
#~ SStIISZ, S~IDCNt
I SIZI; TO SEND

SEQ 0014

TUAl DEC/XII SYSTEM EXERCISER MODULE
XTUAA0,PII
IS-JlIN-H 12126
566
567
56B
569
570
571
572
573
574
575
576
577
'578
579
580

S81

5B2
583
584
585
586
587
588

589
59~

591
592
59)
594
595
596
597
59B

0~1634 '

0"4767
"10110

~~1656

~0164~'

~'"'t642"

~42767

00~~~2

122777
0"1015
001660' "52767
O~1666' "12767
0"1674' 012767
~1t'17P2· 012767
001710' .0e44~
001712' 122777
00172'" ~01A12
001722' "12767
"'0173ra' "12767
~01736' 012767
001744 • ~00422
"01746' ."5000
0111750' "12703
0~17S4' 012723
0~176P' 012723
"k11764' 00520 ..
001766 ' 0227""
~01772' 001170
001774' 012723
0u2000' "127\3
002004' "12767

00 •• 07

~hH650·

MACY11 3~A!l052) 15-JU"-79 12136 PAGE I"
8Y81NI I SISTE~ ("ODULE) IN IITIALlZATtON
CALL
110V

"02012' 1>17767
"""21"291' (162767
~02~26'
0~2032'

?~5067

P"'2~]2'

P"~2P7

,GET CHECKSUM, RETURNED
,IN RI WITH R0-.>WHERE
,THF CH~CKSUM .ORD GOES
,,'OT SELF TEST PRESET
'HITI,51STAT
.RUSLF ,OTBLPTR ,WAS THE OPERATION SELF TEST?

CH~SIl~

RI,IR0

176376
176430

eIC
CMPR
BNE
AI5

IRITI,SISTAT

0"""02

17636.
176434

MOV

#R'~ND,UFLG

000~16

176430

~,OV

00~.01

176416

~~A"01

17b366

~~t6!56·

0~0"02

M~V
B~

181

POAAA!
0"9J~~1

176400
176374
176362

nBLPTR,ERROP
02,TBLPTR
LASTOP

,COpy OP CODE IN CASE EPROP
'UPDATE POINTER rOR NEXT OPERATION
,INDICATE STILL IN TABLE

PTS

~OV
~OV

~OV

00033!1'''

0.0001
"00204

0"0004
~00002
0~~016

000.05

176314

176270

176334
176260

Cl'P0c:tr.2

SP
np

DECRTII

176176
DECPETI

MOV
MOV
INC
eMP
bNE
HOV
MV
MV
~OV

#4. ,R0

)

,EXIT

ADD
CLP

MOV

211

#PSNDSZ,XlCNT
# I, XfPKNM
DECPTI
'PUWP,nBLPTR
2.
IPSCONT,XSFLG
#I ,UCNT
#I,XSPKNM
OECPTI
RA
IXSrLG,R3
'R.DATA, (P31.
3132 .. (R3).
P0

,~o

,YES-SELF TEST FLAG SET
,YES-EXPECT END PACK
,or PROPER SIZE
'AND ONLY I PACKET

38
,RIENO, (P3).
'RI~DSZ, (R3)
.5,XlPKNM

~tl[

0~0020

,NOT SELF TEST-WAS IT WRITE?
,NO
,YES-EXPECT CONTINUE
,AND I BYTE
,AND I PACKET
,EXIT
,HERE TRANSACTION ~UST BE READ
,GET ADDH, OF XIFLG
'INSEPT TOTAL or
,4 DATA FLAG BYTES EXPECTED,
'SAND~ICHED WITH
,THE COUNT or
,EACH
,THEN THE END PACK
'AND ITS sIZE
,CORPECT TO 5 EXPECTED PACn

CMPB

IEQ 0015

)

TUAA DEC/XII SYSTEM EXERCISER MODULE
XTUAA0,PII
15-JUN-H 12126
599
60O
601

,SBTTL

6~2

~02034' 117777
002042' 005267

17625"
176242

6~3

0~2046'

~e5367

17624~

604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632

002052' 0el005
002054' 005267
e02060' 042777
002066' 0001102

176144
00ele"

633

634
635
636
637
638
639
640

"ACYlI 30A(l052) 15-JUN·79 12136
I INTERRUPT SERVICE POUTINES I

042777
002076' "17767
002104' 116777
002112' 005767
002116' 1000e3
"02120' 005261
002124' "'00461
002126' 005067
B02132' 005767
0~2136' P01423
002140' 005067
""2144' 127777
"~2IS2' ""1415
002154' 012767
002162' 012767
""217"' 127727
"02176' 01'11003
0"2200' 012767

~001~0

""22~6' ~~5267

176102

~~2212'

1761~4

~"2220' 0~5367

176972

AA20'7~'

005367
002216' 0~1016

002224' ~01417
"02226' ~62767
~"2234' 1'17767
002242' 162767
"~2250' 0aS267
002254' e52777
0~2262'

A0"4~2

002264 ' 005267
~0227~'

110001'2

176134
176252
176244

176200

176152
176136
176256
176202

17611'2
176230
176074

SNDHNDI Move
INC
DEC
BNE
INC
8IC
1$1
RTI

aSNDPTP,aXMDB
SNDPTP
S"DCNT

PCVHNDI BIC
MOV
Move
TST
ePL
INC
SP
PCVO~I
CLR

,OI,'RCSP
aRCDB,EPPWO
EPPwO,aRCVPTP
ERPWD
RCVOK
PXPCVD
prVRET

BEQ
CLP
C'PB
BEO
MOV
MOV
CMPB
eNE

176~66

176142

0"0"~1

000001
17612r

176140
176126
0"0002

0~0"16

176114
111

175752

3$1

EPR~O

rSTFLG
IS

P'5TFLG
U'PTP,'RCVPTR
U
'1,~CVCNT

# !,PCPKNM

'RCVPTH, 'PUND
IS
'~'NDSZ,RCVCNT

RCVPTR
RCVCNT

INC
US
8R

175736

IOI,UMSR

I~C

sue

2$1

IS
P~SNT

~OV

OEC
SNE
DEC
!lEO
ADD
MOV

176046
176"60
176032

SEQ 0~16

INTERPUPT SERVICE ROUTINES I

TST

176132

000006
176042
000ep2
175756
0rel00

PAGE 17

INC

PCVRET. RTI

RCP~N~

.6,X'PTP
n,PTR,RCVCNT
."XSPT~

FSTFLG

on,.PCSR
RCVNET
pfRCVP

,OUTPUT BYTE
J •• >NEXT
,ANY MORE?

,YES

,NO-SET FLAG
,AND NO MORE INTS
,FAST AND Funous
ANY NESTING
,Gn 8YTE+ERROR
,SAVE BYTE IN BUFFER
,ERPOR?
,~ILL

,110

,YES SET RC VD FLAG
,EXIT
,NO.CLEAR ERPOR
,IS THIS A 1ST BYTE?
,NO
,YES-CLEAR
,WAS IT THE FLAG WE EXPECTED?
,YES-CONTINUE
,OOPS-PRESET FOP EXIT
,IS LAST PACKET, TOO,
,WAS IT A PREMATURE END PACK?
,NO WAY
'YES USE COPPECT COUNT
,-->NEXT SLOT
'MORE OF THIS PACKET?
,YES
,NO-ANY MORE PACKETS?
,NO
,YES-->NEXT EXPECTED COUNT
,GET NEW COUNT
,-->N~XT EXPECTED FLAG
,SAY IT'S 1ST BYTE
,OK TO R~·ENABLE INTS.
,QUIT, QUIC~LY
'NEP~ LAST P~CKET pcv'O
, HIT

TUAA DEC/XI1 SYSTEM EXUC ISER MOlmLE
15-JUN-79 12126
XTUAA0,PI!
641
642
643
644
645
646

647
648
649

65O
651
652
653
654
655
656
657
658
659
6611
661
662
663
664
665
666
667
668
669
6711
671
672
673
674
675
676
677
678
679
6811
681
682
683
684

.S8TTL
""2272' ""0240
002274' 1"5067
""2300' ~42777
"023"6' 042777
002314' 052777
002322' 11127"4
002326'
002326 ' 1"4407
002U2' 104407
""2U6' 185717
""2342' 1011371
,,"2344' 116777
""2352' ""5304
002314' 8111364
11112356' 042777
002364' 017704
01123711' 11127"4
002374'
002374' 1114481
111124011' 104481
""2411.' 1115777
0024111' 100371
""2412' 116777
111124211' 111153114
""2422' 0111364
IIn424 ,
""2424" 184481
0nU0' 1044"7
0112414' 105777
01112440' '""371
""2442' 117767
""2450' 126727
£102456' 1101412
IIn4'"' 11104767
""24U' 012767

D08R~1

0""111"
00""01

175732
175720
175716

""""I~

18'

"'•• 00'
0001180'
175676
176"22

175670

00eeel
175646
"""""2

175654
2'1

0.110110'
"00011111'
1756311
175756

175622

12136

PAGE 18
SEQ

~1617

SEQ

~"18

UTILITY SUBROliTINES
~OP

BIS

INI'UD+I
.DI,.XMSR
'OI"RCSR
.BIT0,UMSR

MOV

'8, ,R4

CUB
fIC
BIC

1761175
""010~

BREAK"BEGIh
BPEAKS, BEGIN
AXM5R
TIITB
II
SPL
8RKWD,UMDB
MOVS
R4
DEC
8NE
Ie
tB ITe, txM8Il
BIC
1I0V
aRCDB,1I4
12,114
MOV
BREU.,BEGIN
SUAKf,SEGIN
UMSR
TSTB
SPL
2.
MOVS
INITND,UIIDB
DEC
R4
BNE
2.

lUND INIT TO DEVICE
I 8T ART rRESH
IKILL SEND
InLL RECEIVE
IUT '8REA~'
IUT COUNT
ITEMPORARY RETURN TO MOtlltOP: ....
ITHEN CONTINU! AT NEXT INSTRUCtION,
,READY!
'NO
,UNO NULL
,MORE NULLS TO SEND?

,ns

,NO-CLEAR 'BREA~'
,CLEAR PoasIBLE GARBAGE
,NUMBER OF 'INITS' TO SEND

,TEMPORARY RETURN TO MOtoiITOR ••••
'THEN CONTINUE AT NEXT INSTRUCTION,
, READY TO &END?
'NO
,nS-UND
,MOllE'
,nS-COMTlNUE

3$,

175570
175721

175725
001111211

,TEMPORARY RETURN TO MONITOR" ..
BREAKt, BEGIN
SREAK$,BEGIN
, THEN CONTINUE AT NEXT INSTRUCTION,
,nADY TO RECEIVEr
TSTB
.RCIIR
,NO
BPI.
3$
MOVS
.RCDB,INITND+I ,YES-GET RESPONSE
CMPB
INITWD+l, 'UCONT '11 CONTINUE?

91111126
0""1134

175414

CALL
MOV

"02472' 1044115

1111111111'"

0'''416'

""DER' ,BEGIN ,ERRTBL

0112US' 0114767

116214

'".11'''''
011.11110'
175574

BEG

ERRaET
U4,EltlITYP

,YE.
,NO-PREPARE EXTENDED ERROR INro,
,CODE rOR 'CAN NOT INITIALIZE"

*** •••••• ** ••••••••• ** •••••• ******

J. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

,CAN'T INIT

, **** •••• *** •••••• ********* ••• ***.*.********** •• ******* ••• *.****
CALL DIIOP

,FATAL

4 ..

"02504'

~Ta

""25114' 110112117

TUU DEC/XII SYSTEM EXEIICISER MODULE
XTUUII.pll
15-.lUN-79 12126

685
686
687
688
689
690
691
692
693

MACYI! 30~(1~52l 15-JUN-79
lITIUTY SUBROUTINES

MACYI! lPAllfII52) I5-JUN-79
UTILITY IIUBROUTINEa

12,36

PAGE 19

,MODUlo! TO ZERO THE 542, BYTE RECEIVE BUrFER 'RCVBUF"
1182586'
011251'"
"02514'
""2520'
Me2522'
002526'

0011240
"12703
012704
005023
1627114

~025311'

111110207

""1374

"05122'
IIPln6
01111""2

eLIIBun NOP
MOV
MOV
Itl
CLR
SUB
BNE
IITS

'~CVBU",R3

U42"R4
(R])+

n,R4
II
PC

,ZEROES ~ECEIV£ BUFFER
, GET ADDRESS
,AND THE IIlZE
,CLEAII
'2 BYTES LESS
,IIR IF MORE

TUAA DEC/XII SYSTE" EXE~CISEP "OOULE
XTUAA0,PII
U-JUN-79 12126

,MODULE TO

694
695
696
697

698

""2534'

~05067

7AS
701

702

~e25S6'

703
7"'.
'705

706
707

708
709

710

"'U701
11825U' 111111167
1102566' IIIIU67
0112572' 1111167
11112576' 0"'4767
082682' 1311113
8112684' 081837
Ae2686' 121"'27
812612' 111115110

713

714

715
716
717
718

719
7211

721

732

723
724
725
726
727
728

729

ANY

PAGE 211

12136

~E8PO~SE

S0etllll' 1104556'

MaY
/lCBCNT,~4
TST
·(~4)
CALL
CKCKS~
BCC
28
MSGN8,BEGIN,CHKaMR

eee4l6'

HRDERI,BEGIN,ERRTBL

ICHECKSUM ERI\OR

175506

MOV
BII
CMPB
SNE
CALL
811
CfoIPI!
BNE
CALL

CHUUC
CHIIUT
'R8DATA,eRIJ
OTLEIIR
COMPAR

8R8INIT,eR0
..

000330'
IIA0en

181

175512
175526

175576
001010

IIe26U' 111670.
0112620' 11115744
'S2622' 884767
1102626' \83012
"~2Ue' 104483

elll1146

8nU6' 104405

lIell8g0'

11112644' 012767
11112652' 8811475
1102654' 132710
"8266'" 08111113
0112662' 864767
8S2666' 1188467
8826711' 132710
'82614' PII1056
1102676' 11114767
""'27112' 0011444

177777

1755114

PKC~KD

HOV
HOV
HOV
"OV
lDtI

.~CVBU,,~0

XlPKNM,R2
.x.rLG,~3
~3,~1

'2,Pl

~OV

RP,PKPT~

IllC

PKCHKD

MOV

_U,~CBCNT

CALL

EI\RSET

C~PB

'~."~3

BNE
CMPS
BEQ

'RII,'~'CONT

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

,
,...............................................................
.
FLAG

281
eae240

33.

808."1

CL~

IEQ e819

FROM DEVICE.

,EVALUATE TH! TOTAL ~ESPONSE '~OM UNITI
,.
PACKS INTO T~ANIACTION.II.
,GET BU'P'E~ ADD~.
lAND. OF PACItETI EXPECTED
,ADD~E'8
18T EXPECTED FLAG
,COpy TO AI
,NOW ~1··)U8CNT 'O~ 1ST PACKET
,HERE ~e->TOP OF PACKET
,ONE ~OI\E PACK INTO ~!8PONal!:
'COPY COUNT
IPItEP ro~ E~IIOR
lilT BYTE_EXPECTED!
IUH OH •••• RANCH
,OK, II IT 1 8YTE7
IYES, .. ONTO NEXT PlCII
INa,
> 1 BYTE (NEVE~ EXPECT INI!II
180 THEN un EXPECTED COUNT
IADJUST FROM RECIIYE COUNT TO CHECKSUM eNf
ICHECK THE CHECUUM
INO CARRY .. ,NO INCORRECT
IABCll MEUAGE CALL IIITH COMMON KEADER

175560
005122'
175556

711

712

INTE~PPET

CHKANSI NOP

IIAl53Z' ."8340
1102540' 012711'"
002544' 0167112
""2550' 1112703
002554' 111113"1

699

MACYll 301(1052) 15.JUN.79
UTILITY SUBROUTINES

001032

'.I,a:~RER

CH~~ET

.~nIlD ,(~e)

IERROR
IEXIT
I END 'AIC7
INO

,rES-SEE IF 8UCCUI CODE YAL·ID
I EXIT
IDATA PAIIY
,NO
,YES-CHECK DATA
ION TO NEXT PACK

730

731

802706' 12271 ~
882712' "81012
002714' 1044"3

000,,"4

Nap
CM'B
BNE

IW0009' 004579'

MSGN',BEGIN,~CINIT

,HERE CHECKS UNEXPECTED RESPONSE
ItNIn
INa
'ASCII MESlIAGE CALL WITI! CO"MON HEADER

737

002723' 104405

000PIII)' 000436'

H~DER.,8EGIN,EIIUBL

lIMIT RECIEVED

738
739
1411

1102730' 012767
082736' 9811443

177777

MOV

742

092740' U271~

111101102

743
744
745
746

6"2744' 001032

733
733

734

735
736

741

747

882704' 00112.0

1182746' P12704
002752' 0~5744
002754' 004767

,.....•.•..........•..............•.•..............•..•.••••.••.
I·········································.······.····
...•....•.
.-I,ERRER
,rAUL

175422
65.

000016

1100714

748
749

SYSTEM EXERCISER MODULE
15-JUN-79 12126

OTLER~

foIOV
TST
CALL

C~CKSM

US!ND, (RII)
#R8NDSZ,R4
-(M)

002762' 004767

CALL

012766' 1100427

CHKSUC
CHKRET

002770'
11027711- 104403

00111100' 0114556'

foISGNO ,BEGIN ,CHKSMR

756

902776' 184405

9001100' 0"'0436'

HRDER.,BEGIN,E~RT8L

757
758
759

1103084' 1112767
11(113012' 099415

177777

MOV

'-I,E~Rn

769
761
762

CHKRET

e031114' 005302
Blnll16' 001413

DEC

112

763

764
765

766
767
768
769

1113767

12.36

PAGE 21
SEQ

'$I
1753911

BEQ
ADD
CMP
C~P

BR
177777
000010

175320

IASCII MEUAGE CALL WITH COMMON HEADER

**.*** •• ***** ...... ** •••••••••••••••••••••••••••••••••••••••

OTLER~I "OV

CHKRET
~CBCNT,Re

(Rl )+,(RII+
(R3l+. (R3l+

IS
'-I,tRIIER
.8IT3,8Y8TAT
ERPWD

,CHECKSUM ERROR
I FATAL
IEXIT

IND. OF 'lcnT. LEF'I' TO CHECK
IALL DONIE
IPOINT TO IIEXT PACKET
.PDINT to IIEXT EXPll:CUD COUNT
I AND EXPlEC'1'ED rUG
'TRY ANOTHER,THEt'n SMALL
I HEU-nItAIIG! RESPONSE

052767
095767
""1407
104403

000~1J~'

004616'

BEQ
9S
MSGN3,BEGIN,DLEltR

774
775

1103062' 104405

0e000~'

000436'

HPDER8,BtGIN,ERRTBL

IDLV

776

093070' ""0415

BII

IEXIT

770
171

772

175200

BIS

CHKRETI TST

175310

003072'
g911ee'
IInUI2'
003110'

032767
001411
042767
IU40J

003116' 1944115

,...••........•....•...........................•....•••••••••...
108

BIT
.BITJ,lIYaTAT
,WAS THERE OTL E~~OR7
BEQ
108
INO-EXIT
BIC
tBITl,8YSTAT
lYES.~!s1!:T AND PRINTI
MSG'f8,BEGIN,OTL 'AlIcn M!SSAGE CALL WITH COMMON HEADER

000000' 000436'

HPDER8,BEGIN,ERRTBL

175146

911

003124'
"03124'

~002117

E~RO~

000010 175136
090000' 004602'

000010

7B4

785
786

ISET O.T,L. FLAG
,DLV ER~OR7
INO-BRANCH
,Ascn MUSAGE CALL WITH COMIION HEADU

,....•..................•.•••.•.•.•.......•......•...•••.••.••.•

773

777
778
779
780
781
782
783

~020

,OK,NOW TEST SUC. COD!
IEXIT

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

175346

0031136' "'22323
110311311' 111111654
110311)2'
11831140'
01131146'
""31152'
11113054'

,YES-TOTAL SIZE MINUS
'TWO (THE CHKSUM)
ICHECK IT

1081
J .......

""31120' 06678e
9"31124' 022121

lEND!
,NO-OUT TO LUNCH

lOOPS

MACYll 30A(1052]
15-JUN-79
UTILITY SUBROUTINES

752
753
754
755

CHun

Bca

TUAA DECIXII
XTUUII.PI1

750
751

C"PB
BNE

1081

,.•.....•....................••...............................••
,...........................•.....•......•..............•.......

PTS

IUNKNOW" 'LAG BYTE

TUAA DEC/XI t 5YSTF" FX"eC1SFP MODIJLE
XTUAA0,PII
IS.JUN·79 12'26
181
188
189
190
191
792
79l
794
795
196
197
798
199
A~"

A01
802
80l
804
805
806
8.7
808
809
810
Bll
812
A13
814
815
A16
817
818
819
820
821
822
823
824
825
826
827
A28
829
810
Bll
B32

Bll
834
835
836
837
838
839
84r
841
B42

~~'3126"

~0"24'1

"0313.'
003134'
"03142'
003150'
"03152'

010067
116061

0v)0I(.\~3

175134

12276~

0(~~r-0(l

PJ~0~0]

862
863
864
865
866
867

15-.}l'N.79

SIJBPOIJTH~ES

C~'SUCI

NOP
MOV

175144

MOV~

CMP~

SEQ
CALL

"01561
.04767

M~,PKPTJI

J(R01.S!lCCS
'E$OK,3CR<I)
12$
ERRSET

003156' 12276"
003164' 001007
003166' 104403

000001

000003

0"~~0"'

004654'

CMPB
#E$TRY,l(R0)
SNE
2<1'
M&GNS,BEGIN,RTRY

003174' 104406

"'00"'0~"

0004l6'

sorERS,8EGIN,ERRTSL

177737

000003

003202' 000544
0032~4' 12276.
i.'03212" ~~1010
003214' 104403
0~3222'

PAGE 22

,SEE If VALID SUCCESS CODEI
'COpy TOP OF PlOET POIhr
,GET SUCC,SS CODE
,GOOD SUCCESS?
, YES-EXIT
IPOTENTIAL HARD ERROR PREP,
10K BUT RETRIES?
,NO
IASCII MESSAGE CALL

.IT~

COMMON HEADER

,RETRIES OCCURRED

,****************************************************************

00A0~""

004102"

175464
177757

000003

2~"

8R
CMPB

12.
'!8NOMO,3(RA)

BNE

,YES-EXIT
INO ~OTOR?
rNO •••

,.*.**••• _.* .. **.*** __ * •••,'NO
***.*.*.*_** •• **._.*.*.* __ •• **.**4****
HRDERS,REGIN,ERRTBL
MOTOR' ERROR
MSGN.,BEGIN,NOMOT

'ASCII MESSAGE CALL WITH COMMON HEADER

1********************************************************.***.**

18'

CALL
CMPB
SNE

DROP
tE8CKS,3(R0)
138

MSGN',BEGIN,DACH~

,FATAL-COULD UN~IND CASSETTE
'ChECKSUM ERROR?
,NO
IASCII ~ESSAGE CALL WITH COMMON HEADER

,********.* •• ****.************ ••••• ********.***.**.******.**** ••

003252' 104405

HRDER$,SEGIN,ERRTBL

003260' 000515
0~3262' 032767
003270' 001413

SR
BIT
BEQ

,READ RETRIES TAILED

,*********-*.**.*.***** •• **-*.*************.********************

000002

174756

13S1

12$
'SITI,SYSTAT
30

003272' 105760
003276' 100106
003300' 104403

000A00' 004624'

TST8
3CR0)
BPL
12.
MSG'S, BEGIN, SLfOTL

00330&' 104405

000AAA' 000436'

HPDERS,BEGIN,ERRTBL

,YES-EXIT
'SELf TEST?
,NO

,NEGATIVE IF rAIL
,OK
,ASCII ~ES5AGE CALL WITH COMMON HEADER

.*****.*********************************************************
ISELF TEST rAIL

'***************************************************************

003314' 004767

175400

003320' 122760
003336' 001007
003330' 012767

177740

000003

000051

174550

003336' 104405

CALL

DROP

,FATAL UNEQUIVICALLY

CMPB
SN!
MOV

#!$SK, J(R~)
4.
.51,ERRTYP

,SEEK ERROn
,NO

000000' 000416'

HRDERI,8!GIN,ERPT8L

,SEEK ERROR

171767

BR
CMPS
8NE

,YES,
'***************************************************************
,************.************.***************************.*********

003344' ~00460
003346' 122760
~03154' 001007
<103356' 104403

000000' 004516'

~SGNS,SEGIN,NOCART

003364' 104405

00000A' 000 n 6 '

HPDER$,BEGIN,ERRTB.

000003

4*1

108
nt.HCRT,3IR0)
S3

IEXIT-!:RROR
'NO CART?
,NO
'ASCII MESSAGE CALL WITN COMMON HEADER

'*********************************************************.*****
,NO MEDIA

,***************************************************************

003372' 000445

SYSTE~

EXERCISEP MODULE
15.JUN.79 12126

10$

MACY11 30A(!052) 15-.1UN-79
UTILITY SUBROUTINES
CMPB
BEQ
CMPB
BEQ
CMPS

#E$CMD, 3C R0)
11*
iE8NONX,3(R0)
118
nSWLOC, 3 (RB)

093374 ' 122760
0~3402' 001436
003404' 122760
003412' 001432
~03414' 122760
003422 ' 001007
0~3424 ' 1044~]
003431' 104495

000000' 000436'

HRDtRG,BEGIN,ERRTBL

177776

0000eJ

SR
CMPB

177711

000003

931

17772~

0~0003

5$1

177770

000003

611

177765

0~0003

731

0001i100~

004530'

BNE

M8GNe,B[GIN,WRPRO

,EXIT -ERROR

12136

PAGE 23
SEQ 0022

,NO UNDERSTAND HOSTl
,YES
,NON EXISTENT UNIT
,YES
,WRITE .OCKED
,NO
J ABC II MESSAGE CALL WITH COMMON HEADEP

,*********** •• ***********.******************************.** ••• **
,WRIT! LOCKED

,*.**************************.****.* ... ************._*************

003440 ' 000422
903442 ' 122760
@03450' 001413
003452' 122760
003460' 001407
003462 ' 10440]

000000' 004542'

CMPB
~UREC,3(R0)
BEQ
11$
MSGN3,BEGIN,SUCOTL

003470' 104405

0009!01l1' 000436'

HRDER3,BEGIN,ERRTB.

003476' 000403
003500'
~03500' 104403
~01506' 012767
003514'
003514' ~00207

12136

,****************************************************************

104405

003230' 0~4767
003234' 12276.
003242' 001007
"03244' 104403

TUAA VEC/Xll
XTUAAA,PII
B43
B44
845
846
847
849
849
B50
851
852
853
854
855
856
857
858
859
860
961

"AClI\ 30A (! 052)
UTILITY

BEQ

177777

,EXIT-ERROR
,PARTIH on
,YES
,WRONG RECORD
IEXIT
, ASC II MESSAGE CALL WITH COMMON HEADER

J***************************************************** **********
,UNKNOWN SUCCESS CODE

,itit************_* .. *********.* •• *•••• * ... _.*****.* .... ***************

BR
0"'~00rl41

10'
#EfPART,3(R0)
11$

1131
004666'
174644 1081

10.

MSGN$,BEGIN,SDSUC
HOV
'-I,ERRER

1251
RTS

,EXIT -ERROR

,ASCII MESSAGE CALL WITH COMMON HEADER
,OPERATION FATAL

TUAA DECIXI t SYSTEM EXE~ClSEF MODUI.'
IS_JU'I.7Q 12126
XTUAA0.PI t

IS-J1IN-79
"ACYII 3~A(I"S~)
UTILJTY SlIBPOtlTT"'.S

868
869

:C~KSUM

87~

;++

871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907

SLQ 00n

CHEC~SU"

P0 POl~TS TO PAC~ET
PI • BYTES IN PACKET
I nITI
PI • CHECKSU"
R0 POINTS TO AnDRESS VOP PACKET CHECKSUM
#-.
093516'
003516' "10346
003520' "10246
0~3522' 1642767
00.)530' 032701
003534' 0014"3
~0]536' 052767

CHKSU~I

HOY
HOY
BIC
BIT
BEQ
BIS

Plo-(SP)
P2,-(SP)
,AIT0,Pl
IS
'RIT0,SYSTAT

'"CHECKSUM IS ODD" 8IT
IAN ODD • OF BYTES?
'NO
,JUST USED AS TEMP STOPAGE

181

POP

:12 FOR WORDS

003546' 00500]

281

Ct,P

1103550' 062003
003552' 005503
003554' "~5301
903556' 001374

311

AI'D

(R0).,P3

A~C

DtC
8NE

000001
0110001

IH516

000P0\

174502

003544' 01160,,1

011]5U'
003566'
11113570'
",U572'
003576'
'IOU600,

032767
001405
112002
~42702

000~0\

177400

0602113
005503

1101602' 010301
003614' 012602
0'13606' 012603
003610' 000207

003612 '
003620'
003626'
003634'
00J642'
003650'
003656'
003664'
"~3672'

BIT
BEQ

174460

016767
017767
016767
017767
017767
062767
017767
162767
000207

174416
174410
174444
174442

\74412
000002
174416
0""~02

174260
174254
174250
174514
174514
174422
174502
174406

~~CY11

UTILITY

'~IT0,SY5TAT

31
'~IT0,8YSTAT

~OYB

••

BIC
ADD
ADC

1177400,U
P2,P3
U

MOV
MOY
MOY

R3,PI
(8P).,R2
(SP)+,R3
PC

~TS

908
909
911
912
913
914
915
916
917
918

PAG_ 24

!:~TEFI

TUAl DECIXII SYSTEM EXEPCISEP MODULE
XTUAl0.PII
15-.IUN-79 12126

910

I rcP" THf PACKET

12136

30A(1052)

(~0l+,R2

IS-JUN·79

,VORM SUM
,WITH CAPPY
,ONE LESS WORD
'BP IF ~ORE LEFT
,WAS IT ODD
,NO
,YES-COpy TO R2
'SIGN UN-EXTEND
I ADD LAST BYTE
lAND CAPRY JUST IN CASE
,RETUPN IT IN CORRECT PLACE

12136

PAGE 25
SEQ 0024

SUB~OUTINES

:MODULE TO FILL

E~RTBL

ERPSETI MOV
MOV
HOV
MOV
HOY
ADD

PCSR,CSPA
'PCSR,lCIIR
SUCCS,ASTAT

WITH EXTENDED !RROP INFORMATION

~XlPTR,ERRnG
~PKPTR,ATPAK

• 2,PKPTR

~OV

JP~PTR,ATPA~2

SUB

12,PKPTR
PC

ICOPY CSR
lAND CONUNTS
,AND SUCCESS IF APPt,IClBLE
'COpy EXPECTED FLAGBYTE
liST AND 2ND BYTES OF ACTUAL PACK
'POINTE~ INC •
,COpy 311D AND 4TH BYTE
,(:OIlRE<:T POINTEP

TUAA DEC/XII
XTUAA~.PII

SYSTE~

EXERCISrR MODULE
U-JIIN-79 12126

MACYII 30A(I~'2) 15-JUN.79
UTILITY SUBROUTIN,S

121]6

PAGE 26
SEQ 0025

919

:MODULE TO CHEC~ THE CHK8UM OF A RECEIVgD

921
922
923
9H
925
926
927
938
929
930
931
932
9)3

I't+

PAC~ET

934
935

9)6
937
938
939
940

I ENTER I
I "4. PACKET ~YTE COUNT
I R0 POINTS TO TOP OF PACKET
I

CALLS I
·CIIKSUM"
TO FO". CHECF SUM.
EXIT I
CAPRY SET • ERROR
RESET • 110 ERROR

:-0~3674'
0~3674'

CIICKS"1

010146
003676' 010046
003700' 010401
"~3702' "04767

177610
: HERE R0

~ov

Rl,-(8P)

MOV
MOV
CALL

P4,RI
CI'nUM

-.~

R.~,.(SP)

X"nTED CHIISUM, RI-CHKSUM CALC'D

941
942
943
944
945
946
947
948
949
95~

951
952
953
954
955

ICOPY BYTE COUNT TO CO"RECT
,R!GISTER FOR CHIISUM AND CALL

CMPB
BN!

(R"H,Rl
2.

ILOWER ORD!R CHECK
,NE COMPAREZ PASI

"83712' 0003fl

SWAB

:OK-NOW ·FOR OTHER HALn

<103714' 1Z2001
0U716' 001002
~113721l' 000241
003722' 000401
003724' 0011261
083726'
003726' 012600
0113730' 012601
003732' 11"0207

CMPS
BN!
CLC

(R0).,~1

IWRO~G-8RA"CH

BII

I NO ERROR rLAG
IEXIT-NO ERROR
IERROR FLAG

0037f16' 1220 .. 1
11113710' 001005

211
lei

SEC
MOV
MOV
IIT8

,~IGH

ORDER CHECK

(SP).,RI!I
(5P)+,1I1
PC

(

TUAA DEC/XII SYSTEM EXERCISER
XTUU0.PII
U-JUh19 12126

956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984

985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
10'0

~ODULE

1S~JUN~79
MACYII 30A(1052)
UTILITY SUBROUTINES

12136

PAGE 27
SEQ 81136

,COMPAR / COMPARE PATTERN WRITTEN TO DATA RECY'D
"03734'
003734'
003736'
1183740'
003742'
003746'
0113752'
"03756'
003760'
083762'

COMPARI
0111046
818446
010146
005867
018067
016784
005204
111401
042701

174422
174326
174322
177400

MOV
MOV
MOV
nR
MOV
MOV
INC
MOVB
BIC

R0,-(5P)
R4,-(8P)
RI,-(SP)
BDBYTS
R",PKPTR
PKPTR,R4
R4

INC
CNPB
BEQ
TST
BNE
DEC
MOVB
MOV
INC
INC
PEC
BNE
TST
BEQ

R4
PATRN, (R4).

~OV

RrC,ACSR
"ATRN, SIADR
PATRH,AS8

tR4,ltI
1177488,RI

,NONE WRONG YET
IR8·>TOP or PACKET
,GET TOP or PACKET
,LOCATE COUNT
IGET IT
,aIGN UN"EXTEND

,Muar TEST BYTE-WIllE ...
003766'
0037711'
003774'
0"3776'
004002'
""4004'
""'4086'
004012'
004016'
004020'
004024'

005204

126724

174300

,-·>rIRIT DATA BYTE
IIiAS WHAT NAS WRITTEN!
lOKI
,WRONG-FIRST ERROR'
,NO, DnOUI! I n ADDREaa SETUP
,UN-AUTO INCREMENT
ISAVE BAD IYTE
,AND lAVE ADDRUS
'CORRECT POINTER
,ONE MORE BAD BYTE
,MORE LEFT?

1101413
""5767
1101006
005304
111467
1110467
1105204
005267
1105301
~1I4026' 11"1360
0115767
1I~403"
11114034' 1101422
0041136' ~16767
1104044' 012767
004052' 1116767

1742311 114036
"0Ill74' 174030
174216 114026

MOV
MOV

004060' 104404

000000'

DATER, ,BEGIN

0~0A0~'

0~1l370'

ICONVERT BDBYTS TO ASCII AND
ISTORE AT UBDBT
BTOD.,BEGIN,BDBYTS,A.BDBT

00"00~-

004644'

~sGN$,B!GIN,BADBY

0041164' 104421
004072' 1Il1'0262,
""'4074'
1104102'
1104102'
1104104'
004106'
""41111'

11144113

174366
1741'176
174066
174344

3$1

281
174334

28
BDBYTS
]$

R4
fR4,AWAS
R4,WASADR
R4
BCBYTS·
RI
11
BDBYTS
4$

,ANY WRONG?
,NO. EXIT
I YES-GET RECORD
I ADDR SHOULD BE
IDATA SHOULD BE

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

, _

,DATA ERRORIII

, ••••••••••••••••••••••••••••••••••••••••• * •••••••••••••••••••••
:•••• _........... _••• __ •••• __ .-.-•••••••••••• - •••••••••••• * ••

,....... _......... _......... _... _.......__.__......_.. __._it._.

481
1112601
012604
012600
1100207

,YES

MOV
MOV
MOV

PTS

IIIP)+,RI
(SP).,R4
(SPl+, P0
PC

IASCII

MESS.G~

CALL

WIT~ CO~~ON H~ADER

TUH DEC/XII
XTUAA0,PII

EXEPCISn MODULE
IS-JlIN-79 12126

SYSTEM

MACYll 30A(1052)
MESSAGE FORMAT

15-JUN-79

12136

PAGE 28

.5BTTL

MESSAGE fORMAT

MESI!

,lSCn

'UUSS CONTROLLER -

ME521

,ASCIZ

" OPIVE "

M[531

,lSCn

'~DLV

M!B41

,ASCI!

'UELY TEn FAIL' •

042101
054522
047440

MESSI

,ASCI!

"PlAD P~TRYS ON

042510
020115
022522
042522
047111
052111
042525

045503
051105
000
04250)
020\07
05104.
052123

~ES71

,ASCIZ

'%CHECKSUM ERROR"

MEsa,

,ASCI!

'%RECEIVING INIT PEQUEST,'

~52105

100\

SEQ 0827

10~2

1003

1004
1005
1~06

004112' W52045
00412~" 04750)
004126" 046114
"04134' 042040

1007
1009
1009
10\A
1011
1012
1013

042045
004152' 051122
~"416iJ\"
000
004161'
045
0"'4166" 052040
0~4114"

04~50b

1~14

",,4202'

000

1015
1016
1017

004203'

1~le

1019
1020
'021
1022
1023
1024
1025
1026

('J~4t42"

032525
052116
051105
044522

020070
047522
000040
042526

053114
0511 !7

042440
022440

042523

043114
020114
020045

000040

"~4144"

045
00421':'1" 051040
004216' 020123
"04224 .. 027120
004230' 041445
004236 ' ~52523
~hl4244 ' 047522
00425 I '
045

004256 ' 053\ II
004264' 04111 !
004272 ' 050505
0~4H'fi' 000045
004302' ~51045
0~43!0' 051505

0515~5

046111
042522
052105
~47117

EPROR

"
OP.'-

0~.045

,ASClZ

',RETUES FAI~ED ON OP.' '

020104
02 712~

044522
044501
047117
020045

~E891

1031

004316' ~42514
004324 ' 04744"
000
004332'

1032

004333'

045

047516
051117
04751\

046440

M~S!0i

,ASCI!

',NO MOTOR ACTION%'

040440
0225\6
MES111

,ASCI!

-%NO CARTPIDGU'

MES121

.A5CIZ

'%WUTE PROTECUD,'

MUlll

,Ascn

'%TOTAL B~D BYTES • •

1027
1028
1029
1~30

1033
1034
1035
1036
1037
1038
1~39

1040
1041
1042

1043
1044
1045

1046
1047
1049
1049
1050
1051
1052
i053

1054
1055
1056

004340' A521 t7

004346 ' 052103
004354'
000
004355'
045
004362' 051101
004370 ' "42507
0M374' 053445
004402' 050040

004410' 052103
~~4416' 052045
004424' ~41040
004432 ' ~5213\
00444~' 000040
004442 • .51440
004450 II 051523
""4456' 022505
~04461'
040
004466' 041040
004474'
000
004475'
045
045
"~4477·
004504- "53517
004511'
102

043~40

047516
051124
000045
044522
047522
042105

052117
042101
051505

041440

042111
042524
042524
000045
046\01
041040
036440
04250)
042117

MESIB I

,ASCIZ

' SUCCESS CODU'

041440

000
046106
052131

043501
022505

ME519i

,Ascn

' FLAG BYTE%'

000
047125
020116
042101

ME5201
047113
000
000040

MEs211

,ASCIZ
,ASCIZ

MES22.

,ASC IZ

041525

"'UNKNOWN '
"~AD

.EVEN

lUAA DECIXII SYSTEM EXERCISER MODULE
XTUAA0.PII
IS-JUN-79 12126
1057

MACYII 30A!l0521 IS-JUN-79
MESSAGE CONSTRUCTS
,SBTTL

12136

PAGE 29
SEQ 0028

MESSAGE CON5TPUCTS

t~5B

1059

0A4516#

t!iH;0

004134'
004522' 000252'
004524' 004355'
004526' 177777

1061
1062
1063

()J04112~

0~4520'

NOCART I MEat
MEa2
UDRV
MElli

-I

1064
1065

~04530"

1066
1067

004532' 004134'

106B
1069

004536' 004314'

~"'4112"

,CAPTRIOGE NOT INSERTED

WRPROI

004534' 000252'
004540' 177777

MEGI
"&82
UDRV
MES12
-I

,CARTRIDGE WRITE PROTECTED

1070

1071
1072

004542' 004112'
004544'

0~41l4'

\073

004546'
004550'

~00252'
~04477'
0~4442'

1074
1075

0~4552'

1076
1077

004554' 177777

1078

004556' 0f'4112'

1079

004560' 004134'

I~B0

~04562#

1081
1082
10B3

004564' 0"4230'
~04566'

1084
1085

0~4510'"

0~4572'

leB6
1087
1088

fH~4514"

004134'
000252'"

10B9
1090
1091
1092

1093

1094
1095
1096
1097
1099
1099
1100

1101
1102
1103
\104
1105

1106

1107

-I

177777
0~4112'"

RCINITI HESI

,,HOST RECEIVED

MESl
UDPV
MESS
MESI
MES2
A$DRV
MES2\

"E51

BLFon, MES 1
Mfs4

004632" 01'14112'

OACHK;

"~~252'

(1[114640" ""'43~2"

111 !

004644" Vl~4416"
(HH646" (\1·Hi262"

;DEVICE'S SELF TEST FAILED BUT COULD
!STILL SEND AN I"TELIGENT PAC~ET (II

-I

""4634' 004134'
'J"4642' 177777

;OVERRU- OR FRAMING ERROR IN RECEIVE

ME5l
-I

0!~4624" 004112"
0~4626' 0e4161'
0"4630' 177777

Ii "9
1110

.,ST 9YT£ or PACKET U"INTERPRETABLE

-I

DLERR,

0A4622' 177777

0~4636"

REQUEST

MES19

ItW4461 (I

004614' \71777
~(il4112"
~H}4144·

'I~IT"

OTLi

ItHil4606" 000252'
004610'" "~44'"

0"4620"

INTERPRET SUCCESS CODE

,HOST CALCULATED CHECKSUM rOR
IPACKET DOESN'T EQUAL TRANSMITTED ONE,

0"0252 e

004602' 004112'
004604' 004134-

0134616"

~OT

"tau

004576'" ~~42S1~
004600' 177777

0~4612"

,COULD

CHKSMRI MESI
MES2
A$DPV
ME57
-I

1108

\112

aUCOTL, MESI
MESl
ASDRV
MEa21

MESI
MES2
ASDRV

,DEVICE RETRIED OPERATION 8 TI~ES
,ANO FAILED

MFS9
-j

BAD"Y;

",ESIl
ASB08T

,"ESSAGE FOR THE TOTAL I"COPRECT
:DATA BYTES PER PACKET.

TUU DEC/Xli nnEM EXERCISER MODULE
XTUUII,PII
U-JUN-79 12126
l1U
1114
1115
1116
1117
1118
1119
11211
1121
1122
1123

1124
1125
1126
1127
1128
1129
IU0
lUI
1132
1133

MACYII 3I1A(1052) IS-JUN.79
MEalAGE CONST~UCT5

12136

PAGE 30
aEQ 8112.

MES2e
-I

0046511' 11114475'
8114652' 177777
.114654' 11114112'
11114656' IIUll4'
104669' 000252'
a14662 , 11842.3'
110.4664' 177777

RTnl

11114666' 1184112'
814678' 1184U4'
"4672' "'212'
11114674' 814511'
"114676' 184442'
1111418'" 177777

BOSUCI

111114112' 11114112'
00.'114' 1114134'
"04786' 0011352'
804110' 111II4U3'
'114712' 177777

NOMOTI

ME81

,OEVICE RETIIIED OPERATION BUCCEII'ULLf

MEl2
AlDRV
MUS

-I
MEII
IIn2
UOPV

,SUCCESS COD! VALID BUT OPERATION FULED

MEl2l
"ESII

-I

MEal

,DEVICE COULDN'T GET ANY MEANIRGrUL lIGNA!.
,FIIOM TAPE

M!sl
AlDIIV
MEalll
-I

(

TUlA DEC /X 11 IYBTEM EXERCISER MODULE
XTUAAII,PII
"-JUN-n 12126

1134
IUS
1131
1137
1138
1139
1140
1141

MACYII leA!!052)
BUrrER AREAS I
,SBTTL

"'5122' 0811136
81188111

,END

PAGE 11
SEQ

TRBun

L8TAD~1

12136

BtlFrER AREAS I

11114714' 011.28.
11115120' 0.11810
1111616"- AII ••Il.

U-JUN-79

.1I0~O

,BLn Ill.
,WORD
e

RCV8url ,BLKB 4*1I.DAlZ+lltllDIII
8

,DATA PACK aIlE MAX.
,4 DAtA .ACU AND EIID

0030

TUAA DEC/XII SYSTEM EXERCISER MODULE
15-JUN-79 12126
XTUU0,Pll
ACIR
81111102R
II11ell1l6R
"DDR
ADOR22- 811111.9
AlB
'''"1116R
1111111114R
ASTAT
ATPAIt
1I1Ie364R
ATPAlt2 1I1U!l366R
AlIAa
''''II11IlR
AeBDBT 8111'1262R
MDRV
eenUR
oIlI4644R
BADlY
BD8ns IIIIU71lR
1I11l4666R
aDauc
BEGIN
lI"'III1lIlIlR

215'

91h
481

23)1
219'
2111
28U

91'*

1811

2851
22'"
2511

ClIIIlIIIII
811111102
""2111111
11114111111
I'It"lIl1l!1
11211111111
11488811
1801100
811811114
BIT]
111111010
8114
11110"20
111181140
BIT5
BIT6
ellll1811
11111121111
BIT7
BIT8
11"041111
BIT9
001000
BREUt 1044117
BItKWD
111101721t
Bltl
""0B 12 It
BR2
1I"".iJlt
810D8 • 1114421
CDUU- 104412
CHUNS 01125321t
CHKItET e1ll0461t
CHU"1t 1l045561t
CHKSUC "~312611
CHK5U~
011151611
CKCK8M 119367411
CLIIBur 1111251161t
CMNDF!._ 1111'101111
COMPAII 08]1341t
CONrIG 0011056R
caRA
11911111111t
DACHK
"04632R
DATCKS· 1114411
DAUII'_ 111 . . 0.
DECCMD 11111511611
DECOO
111I13116R
DECItET en0321t

992

851
233'
233'

551

884
817

886

897

661

662

416
669
798
858
409

4211
6711

4411
679

111

462

463
735

812

814
995

.,,"

41l

489
493

864
647

446
716
807
987
657

497

569

992
883
572

769

778

780

467

468

6511

651

75t

759

762

7701

369

370

375

aUI

156

1124

651

611
774

772

669

67.

661
711

84'

23U
23H
2331

2]U
2131
2331
23]'
2]31
233'
233'
23]'
233'

2331

548

23]'
2]3'
290.
18]'

462
654
477

463

1841
3331

556

992

6961
725
754

7411
10781

750.

7891

566*
747.

. . II.

938"

363

368

480

2331

428.
721
7t6
724*
529.

714*
426*

6871
362
9581

]114'
72'*
21131
2UI
812

91111105.

2331
517
424·
514

987
5411
437.
5971

379

2]31

3921
218#
283'

435+

""~04"P

468
754

824

992

EIIRTB2 1'101145611
EIIUIP I1IIII106R
ERRWO
00036211
EXI1$ a 111441111
UASO. 1777211
EICKS - 177757
E8CKSMa 177757
I.CND • 1777211
EUCRTs 177761
EUOMO_ 177737
EtNONX. 1777711
tlOK
01'100011
E'PAItTa 177776
E.IID • 177757
EUEC. 171711
!18K
17774111
E88!.F • 177777
ESTRI • 001111111
UW!.OC' 177765
EIIiR
177757
rUFt.G """23211
GETPUa 104415
GVNTAK 001174111t
GWBU,._ 1114414
HROCNT 0000441t
HRDERS- 1"""5

""012211

467
737
822

11186

981

706.
679
8611

rDNU~

1118

1118.

97 . .

2811.
676·
3841
851

""01!'5111t
"00036R

1117

1073

972

536
2911
772

HROPAS
ICONT
ICOUNT

11192

11167

DECRTI 11112111211
DI
- 11"1111111
DURR
0i14616R
DOBItK
110227211
DIIOP
1I111J7211R
DItV
1i10825eA
DIIV0 • 11110111111
DRVI - 0111J41111
801143411
D1l10'
OTAF!.I_ 1111110111
DTAr!.2. 1111111110
DUFt.3- 011111111
OTArL4- 11001011
DVIDX
011024411
OVIDI
''''1101411
DIDATA_ 0111101111
EI
BII0 I 011
ENDIU_ 10441)
END.
1114410
ERRER
1J1I0l61111
EllllrLG 11110l56R
ERIIOP
110035411
EItIlSET 0U612R
£III1T8!. 01'1114]6'

1112

962"

TUAl DEC/XII IIYSTEM EXEItCrSEII MODULE
XTUJlAfl,PII
15·.JU~·79 12126

-•

914*
91h

leU

556
11111

SEQ BIll

981*

5"'*
11221

2541
995
2861
864
17 . .
662

783
BITII
BIT 1
BIT111
BITll
BIT12
8IT13
8IT14
8ITIS
UTa

912.
398
399
915*

15.JUN-n 12136 PAGE II
~ACYII 3I1A[1052l
CROSS REFERENCE TAB!.E •• USER aYM80t.S

436·
444.

nu
Ill"
3."
37"
3.".
31111
311U
311U

540
444
1119H
5U.

49,.

5.'"
362
369
495
364
365

115.

366
367
414*
4114

299.

)64

291.

459

2U'

448
446

282'
281.

429
)18
]84

2441

2331

5111.

MACYlI 311A(1052) 15-JUN-79 12U6 PAGE ]4
CItOSS IttF!RENCE TA8!.£ •• USER UMBOL8
576
445

582
6116

594.
6119

682.

88h

826.

Ut-

556
364

645

UQ0032

646

6431

363
3711
511t
371

37t

365
372

366

367

373

374

171

37'

372

373
374
411'.

531
413*

489

493

497

365
4611

366

367

37t

372

373

)74

413*

504*

720.

73'"

758*

768"

US"

91U
737

756

774

783

800

8117

612

616.

7711

913 ..
594.
794*
718

636

50h
505"

671.

]91

61110

8]h
611

355

356

357

810

617

619.

635"

718

737

756

814

124

832

839

233.

H3I

]5U
355'
]51#
344#
]50'
345'
342'
)461

]5"
352'
34H
]541
34U

]491
3561
239#
23]1

427.
2lU
1981
233'
B60
2"'"
195.
1961
225.

843
835

811]
845
792
854

856
UB
796
847
450*

'\
/

450.
679

4'"

774

78]

807

814

824

832

8)9

851

TUU DEC/X11
XTUAAIl.P11

EXEPCllltP MODULE
IS-JUN-" 12126

000340
PIITY7
P!
177776
paw
II 177776
PUSH • 005746
PUSHa B 024646
PANDS .. 104417
IIANNUM 00005411
IICBCNT 00032411
IICDB
00023611
PCINIT 00457811
IICPKNII 00031611
RcaR
O11023411
RCVBUF 005122R
IICVCNT OO032211
RCVHND 00207011
IICVOK
00212611
IICVPTR 110031411
RCVRItT 110227011
IIEC
1100272R
1I£8T1I1 110056211
11£81
000056R
RES2
000061lR
flSTRT
O0011211
R8TRT2 1l006l0R
IITIIY
00465411
IISCMNO" 000A02
UCONT- O000211
II'DASZ_ 0110204
UDATA- 000001
R,DHU_ 000222
RUND • 00111111112
IIUNITa 00001114
Ullin- 0111011112
R,NDSZ_ OO0016
IIUNaZ- 0110016
RUOr,. 000023
UXON D 0"0020
flUENDa 1110011110
RI$N11- 11110001
IIUNOh 00001110
IIURD. 000002
RUSEIta 0"""05
UISLF- 00011107
RUWII • 000003
SBADR
00010211
SLFOTL 111I4624R
SNOCNT 000312R
SNDHNO 002030
SHDPTP 01110310R
SOrCNT 1101104211
SOrERS· 104406
SOrpAS 00004611
SPOINT 011003211
SPSIZ • 000040
SRI
00""1611
SIl2
~'''''''20P

nSTE~

MACY11 30A(10S2) 15-.1UN-79 12136 PAGE 36
CPOSS REFEIlENC! TABLE •• USEII SYMBOLS

SEQ

2U •

Ull
23U
23J1
23lt
2UI
202'
2751
2411
735
272.
24 ••

457
274.

416
61l
271#

416
417
393
484*
10841

420
421
705*
610

455.

623*
460*
698

444"
688
392
60"
6161
387

454*

712
658
630*

60'"

6]6.

646*

626*

62'*

6n*

611*

621

624

627*

418.

563

983

674

7119

482·
11191
622*

415.

457.
640'
41,.
442

439
1116#
32O
531
327
519

542
579
IU9
585

327t
32O.
391

573

590

3181

325'
324*

328
327
565

733
543
534

563

615

637

2621
221
2041
205.

31S

2211
4261
798
3141
315'
3214

3191

328.
317'

763
673

726

624

722

742

574

591

626

745

5711

3160

3UI
337#
3360
33U

us.

U80
HH
214.
822
270#
479
269.
197.
2H'
199#
19]#
10

IRU
187'

368

375

362
363
9844

369
370

379
-577

565.

603*

601

602*

I\0U

52h
6010
4580
800
403
226

671

lU9

9UI

911

~034

TUAA OEC/XII
XTUAA0,P! I

SRl
aM
START
STAT

succa
sucon
aVR0
BVRI
SVRl
SVRl
SVR4
SVRS

aVM
5YSCNT
Sf SIN!
SYSB!:T
SYSlA!
TBLPTR
TSLTOP
IPSU.
TPPO.O.
VECTOP
WASAOP
WDfP
WOTD
WRPPO
XPLAG

XMDB
XMSR
XSCNT
XSFLG

Sl5TE~

!:X!:RCISER MonliLE
IS-JtJN.79 12.26

000022R

000276R
004542R
000062R
000064R
000066R
000070R
000072R
000074R
000076R
000052R
001072R
001246R
000246R
000306R
000304p
004714f

188.
189'
192
191#
264.
958
206.
2070
208#
209'
210.
211<
212'
20U
414494
249<
2680
267#
458

~00022

2JH

000~24R

000S00R
~00026R

000010P
000104P
000116P
000114R
004S30R
000005R
000242R
000240p

te2'
216'

A8S~

&to 0035

403.
453*

791_

912

502#
5070
502"
491*
518

569.
510
51110*

1~7U

475.
496

434"
432"
432
515

528

572'
512"
502
1136'

769.
516
512

778
531

645*
574*

647.

573*

579*

575·
634*

581*

592·

699

913

780*
544

817
548

883.
570

652

657*

663

584

700

475
976*

233#
2230
849

1065.

190.
243#

242'

00~332R

278'
27H
276.
266'
2544

000330R
X$P~NM
000326R
X$PTR
000302R
• 006162R
~

IS-JUN-79 12.36 PAGE 37
MACYlI 30A(1052l
CROSS RErERENC" TABLE •• usrR SYMPOLS

000000

0~0

~06162

001

48h
445*
396
395
394
4560
2SU

ERRORS DETECTED I
0
DEFAULT GLOBALS GENERATED.
XTUAA0,XTUAA0/S0L/CRF,SY'.ODXCOM,XTUAA0
RUN-TIMEl 5 9 I SECONDS
RUN-TIME FATIO. 35/1782,0
COFE USED.
7~
113 PAGES)

601*
459*
454

456
455
620
2791

654*
486*
534*

533"
535·
632"
1136#

665*
606"
5]8*
537*
539.
633
1139.

580*

886.

577

897
S94

595"

~---