Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/mcode6.lst
There are no other files named mcode6.lst in the archive.
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 1
MCOD6T MAC 17-Oct-88 14:29 DATA PATH TEST - PART 3
1 XLIST
2 LIST
3
4
5
6
7 TITLE MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1
8
9
10
11
12
13 ^
14
15
16
17
18 COMMENT $
19
20 MCODE6 IS THE 3RD PART OF A 4 PART MICRODIAGNOSTIC OF THE HIGH SPEED
21 DATA PATH. IT TESTS THE PROPER EXECUTION OF THE OPERATIONAL ROM FORMATTING
22 PROGRAMS. THE FIRST 2 PARTS (MCODE4 AND MCODE5) TESTED THE CONTROL LOGIC
23 USING SINGLE STEPPING AND ROM DIAGNOSTIC PROGRAMS. MCODE5 SIMULATES
24 NORMAL CONDITIONS AND EXECUTES THE OPERATIONAL ROM PROGRAMS WITH THE
25 FORMATTER BASE CLOCK ENABLED. THE LOOP BACK MODE IN THE CHANNEL BUS
26 INTERFACE IS USED TO SIMULATE HAVING A DEVICE ON THE CHANNEL BUS. IN
27 THIS WAY, "SLVE REQ" CAN BE GENERATED AND DATA CAN BE SENT TO AND RECEIVED
28 FROM THE DATA PATH.
29
30 FOR WRITE AND READ FORWARD TESTS, THE NUMBER OF BYTES AND WORDS TRANSFERRED
31 IS CHOSEN SO AS TO FORCE TWO PASSES THROUGH THE ROM PROGRAM. THESE TRANSFERS
32 ARE ALWAYS FULL WORDS.
33
34 FOR READ REVERSE, ALL "PARTIAL WORD TRANSFERS" ARE ATTEMPTED. THIS MEANS
35 STARTING THE ROM PROGRAM AT EACH OF ITS ALLOWABLE ENTRY POINTS AND
36 TRANSFERRING A NUMBER OF BYTES WHICH REQUIRES PRE-PADDING OF ZERO BYTES
37 TO MAKE FULL WORD TRANSFERS.
38
39 TO TEST POST-PADDING, A WRITE HIGH DENSITY MODE TRANSFER IS DONE WITH A
40 BYTE COUNT OF ONE. THIS TESTS THAT THE ROM PROGRAM PADS ENOUGH ALL ZERO
41 BYTES AFTER THE DATA BYTE TO MAKE A FULL WORD.
42
43 EACH TEST INVOLVES SETTING UP THE ROM START ADDRESS, DATA PATTERN INFORMATION,
44 AND BYTE AND WORD COUNTS. THEN EITHER THE READ XFER OR WRITE XER SUBROUTINE
45 IS CALLED TO EXECUTE THE TRANSFER. FOR ALL XFERS, IF "SLVE REQ" FAILS TO
46 CLEAR AFTER EACH BYTE IS SENT TO OR RECEIVED FROM FROM THE CHANNEL BUS INTERFACE,
47 THEN AN ERROR MESSAGE IS TYPED. FOR READ XFERS, IF "MSTR END XFER" DOES
48 NOT OCCUR AFTER ALL BYTES HAVE BEEN TRANSFERRED, AN ERROR IS REPORTED.
49 THE READ DATA IS CHECKED AT THE HOST AND ANY ERRORS ARE REPORTED.
50 FOR WRITE XFERS, THE WRITTEN DATA IS READ FROM THE CHANNEL BUS INTERFACE
51 AND STORED IN WORKING MEMORY. WHEN THE XFER IS COMPLETED, THE DATA IS
52 CHECKED. IF A DATA ERROR IS FOUND, ONLY THE FIRST INCORRECT BYTE IS TYPED.
53
54 IN ALL TESTS, THE BYTE SEQUENCE OF READ OR WRITTEN DATA IS
55 1,-1,2,-2,3,-3,ETC.
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 1-1
MCOD6T MAC 17-Oct-88 14:29 DATA PATH TEST - PART 3
56 FOR AS MANY BYTES AS ARE REQUIRED.
57 $
58 000100 RPTCNT= 100 ;SET REPEAT COUNT TO 100 TIMES
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 2
MCOD6T MAC 17-Oct-88 14:29 DATA PATH BIT REGISTER DEFINITIONS
59 SUBTTL DATA PATH BIT REGISTER DEFINITIONS
60
61 ;DEFINE THE DATA PATH REGISTERS
62
63 000000 REG0=0 ;REGISTER 0 (READ ONLY)
64 000001 REG1=1
65 000002 REG2=2
66 000003 REG3=3 ;READ ONLY
67 000004 MCLO=4 ;MASSBUS COUNTER BITS 7-0
68 000005 MCHI=5 ;MASSBUSS COUNTER BITS 15-8
69 000006 BCLO=6 ;BYTE COUNTER BITS 7-0
70 000007 BCHI=7 ;BYTE COUNTER BITS 15-8
71 000010 DFRMAD=10 ;DF ROM ADDRESS BITS 7-0
72 000011 RMDALO=11 ;DF ROM DATA BITS 7-0 (READ ONLY)
73 000012 RMDAHI=12 ;DF ROM DATA BITS 15-8 (READ ONLY)
74 000013 ARLO=13 ;ASSEMBLY REGISTER BITS 7-0
75 000014 ARHI=14 ;ASSEMBLY REGISTER BITS 15-8
76 000015 REG15=15 ;READ ONLY
77 000016 REG16=16 ;READ ONLY
78 000017 REG17=17 ;READ ONLY
79
80 000011 LDRMDA=11 ;LOAD ROM DATA PULSE (WRITE ONLY)
81 000012 CLKPLS=12 ;BASE CLOCK PULSE (WRITE ONLY)
82 000013 HSDPIN=13 ;HS DP INIT PULSE (WRITE ONLY)
83 000014 SETRUN=14 ;SET RUN PULSE (WRITE ONLY)
84
85 ;REGISTER 0
86
87 000001 UBPEFG=1B35 ;MICROBUS PARITY ERROR FLAG
88 000002 DPPEFG=1B34 ;DATA PATH PARITY ERROR FLAG
89 000004 BCOVF=1B33 ;BYTE COUNT OVERFLOW FLAG
90 000010 MCOVF=1B32 ;MASSBUS COUNTER OVERFLOW FLAG
91
92 ;REGISTER 1
93
94 000001 DXHISP=1B35 ;DX HIGH SPEED
95 000002 BCLKEN=1B34 ;BASE CLOCK ENABLE
96 000004 DSLVRQ=1B33 ;DIAGNOSTIC SLAVE REQUEST
97 000010 DMSTRQ=1B32 ;DIAGNOSTIC MASTER REQUEST
98 000020 SLVACK=1B31 ;SLAVE ACK
99 000040 MSTACK=1B30 ;MASTER ACK
100 000100 SLVRQ=1B29 ;SLAVE REQUEST
101 000200 MSTRQ=1B28 ;MASTER REQUEST
102
103 ;REGISTER 2
104
105 000001 RMADR8=1B35 ;ROM ADDR BIT 8
106 000002 SEBCOV=1B34 ;SLVE END ON BC OVFL EN
107 000004 MEMCOV=1B33 ;MSTR END ON MC OVFL EN
108 000010 MEONFE=1B32 ;MSTR END ON FMTR END EN
109 000100 SRHDOF=1B29 ;SLVE REQ HLDOFF
110 000200 MRHDOF=1B28 ;MASTER REQ HLDOFF
111
112 ;REGISTER 3
113
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 2-1
MCOD6T MAC 17-Oct-88 14:29 DATA PATH BIT REGISTER DEFINITIONS
114 000002 NSEXFR=1B34 ;NOT SLVE END XFER
115 000004 NMEXFR=1B33 ;NOT MSTR END XFER
116 000010 NFEXFR=1B32 ;NOT FMTR END XFER
117
118 ;REGISTER 4 (MASSBUS COUNTER 7-0 - MCLO)
119
120 000377 MCLOBT=377B35 ;BITS 7-0 OF MASSBUS COUNTER
121
122 ;REGISTER 5 (MASSBUS COUNTER 15-8 - MCHI)
123
124 000377 MCHIBT=377B35 ;BITS 15-8 OF MASSBUS COUNTER
125
126 ;REGISTER 6 (BYTE COUNTER 7-0 - BCLO)
127
128 000377 BCLOBT=377B35 ;BITS 7-0 OF BYTE COUNTER
129
130 ;REGISTER 7 (BYTE COUNTER 15-8 - BCHI)
131
132 000377 BCHIBT=377B35 ;BITS 15-8 OF BYTE COUNTER
133
134 ;REGISTER 10 (DF ROM ADR 7-0 - DFRMAD)
135
136 000377 RMADLO=377B35 ;BITS 7-0 OF DF ROM ADDRESS
137
138 ;REGISTER 11 (DF ROM DATA 7-0 - RMDALO)
139
140 000377 RDLOBT=377B35 ;BITS 7-0 OF DF ROM DATA
141
142 ;REGISTER 12 (DF ROM DATA 15-8 - RMDAHI)
143
144 000377 RDLOBT=377B35 ;BITS 15-8 OF DF ROM DATA
145
146 ;REGISTER 13 (ASSEMBLY REGISTER 7-0 - ARLO)
147
148 000377 ARLOBT=377B35 ;BITS 7-0 OF ASSEMBLY REGISTER
149
150 ;REGISTER 14 (ASSEMBLY REGISTER 15-8 - ARHI)
151
152 000377 ARHIBT=377B35 ;BITS 15-8 OF ASSEMBLY REGISTER
153
154 ;REGISTER 15
155
156 000003 AR1716=3B35 ;BITS 17-16 OF ASSEMBLY REGISTER
157 000004 NCLRAR=1B33 ;NOT CLEAR ASSEMBLY REG
158 000010 NENMDM=1B32 ;NOT ENABLE MUX/DEMUX
159 000020 LDCB=1B31 ;LOAD CHANNEL BUFFER
160 000040 LDSB=1B30 ;LOAD SILO BUFFER
161 000100 EXTRUN=1B29 ;EXTEND RUN
162
163 ;REGISTER 16
164
165 000001 SLVEPE=1B35 ;SLVE PARITY ERROR
166 000002 MSTRPE=1B34 ;MSTR PARITY ERROR
167 000004 NCLRN=1B33 ;NOT CLR RUN
168 000010 NOTRUN=1B32 ;NOT RUN
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 2-2
MCOD6T MAC 17-Oct-88 14:29 DATA PATH BIT REGISTER DEFINITIONS
169 000020 DFCPH0=1B31 ;DF CLK PH 0
170 000040 DFCPH1=1B30 ;DF CLK PH 1
171 000100 NRNDAT=1B29 ;NOT RUN DATA
172
173 ;REGISTER 17
174
175 000001 SLVRDY=1B35 ;SLAVE RDY
176 000002 SLRDY1=1B34 ;SLAVE RDY DLY 1
177 000004 SLRDY2=1B33 ;SLAVE RDY DLY 2
178 000010 MSTRDY=1B32 ;MASTER RDY
179 000020 MSRDY1=1B31 ;MASTER RDY DLY 1
180 000040 MSRDY2=1B30 ;MASTER RDY DLY 2
181
182 ;DEFINE SOME CHANNEL BUS INTERFACE REGISTERS WHICH ARE REFERENCED
183
184 000000 CSR0=0
185 000001 CSR1=1
186 000002 TOR0=2
187 000003 TOR1=3
188 000006 DRLO=6
189 000007 CBILO=7
190 000011 BORLO=11
191 000006 CLKDRL=6 ;WRITE TO REG 6 CLOCKS DRLO REG
192 000004 SLAK25=4 ;WRITE TO REG 4 GENERATES "SLVE ACK DL25"
193
194 ;DEFINE SOME CHANNEL BUS INTERFACE REGISTER BITS WHICH ARE USED
195
196 000001 CHANL=1B35 ;CHANNEL MODE BIT
197 000004 LOOPEN=1B33 ;LOOP ENABLE BIT
198 000010 DISACK=1B32 ;DIAG SLVE ACK
199 000040 EVPAR=1B30 ;EVEN PARITY FORCED
200 000001 STAINL=1B35 ;STA IN LOOPED BACK
201 000200 SRVINL=1B28 ;SRV IN LOOPED BACK
202 000002 CLRFLG=1B34 ;CLEARS REG 0 FLAGS
203
204 ;ROM ADDRESSES WITH DIAGNOSTIC DATA
205
206 000340 ZERADR=340 ;ADDR OF 1ST ROM LOC AFTER OPERATIONAL PROGRAMS
207 000310 DIAGAD=310 ;ADDR OF 1ST DIAG ROM LOC
208
209 000310 DMXSHF=310
210 000314 MUXSHF=314
211
212 000320 ZEROS=320
213 000321 ONES=321
214
215 000322 CC0=322
216 000327 CC1=MSK0
217 000323 CC2=323
218 000324 CC4=324
219 000325 CC5=325
220 000326 CC8=326
221
222 000327 MSK0=327
223 000330 MSK1=330
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 2-3
MCOD6T MAC 17-Oct-88 14:29 DATA PATH BIT REGISTER DEFINITIONS
224 000331 MSK2=331
225 000332 MSK3=332
226 000333 MSK4=333
227 000334 MSK5=334
228 000335 MSK6=335
229 000336 MSK7=336
230 000337 MSK8=337
231 000360 MSK1S=MSHF0
232
233 000340 DSHF0=340
234 000341 DSHF1=341
235 000342 DSHF2=342
236 000343 DSHF3=343
237 000344 DSHF4=344
238 000345 DSHF5=345
239 000346 DSHF6=346
240 000347 DSHF7=347
241 000350 DSHF10=350
242 000351 DSHF11=351
243 000352 DSHF12=352
244 000353 DSHF13=353
245 000354 DSHF14=354
246 000355 DSHF15=355
247 000356 DSHF16=356
248 000357 DSHF17=357
249
250 000360 MSHF0=360
251 000361 MSHF1=361
252 000362 MSHF2=362
253 000363 MSHF3=363
254 000364 MSHF4=364
255 000365 MSHF5=365
256 000366 MSHF6=366
257 000367 MSHF7=367
258 000370 MSHF10=370
259 000371 MSHF11=371
260 000372 MSHF12=372
261 000373 MSHF13=373
262 000374 MSHF14=374
263 000375 MSHF15=375
264 000376 MSHF16=376
265 000377 MSHF17=377
266
267 ;OPERATIONAL ROM PROGRAMS
268
269 000000 WINCM=0
270 000010 RINCMF=10
271 000027 RINCR1=27
272 000022 RINCR2=22
273 000021 RINCR3=21
274 000020 RINCR4=20
275 000030 WCDMP=30
276 000040 RCDMPF=40
277 000057 RCDMR1=57
278 000053 RCDMR2=53
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 2-4
MCOD6T MAC 17-Oct-88 14:29 DATA PATH BIT REGISTER DEFINITIONS
279 000052 RCDMR3=52
280 000051 RCDMR4=51
281 000050 RCDMR5=50
282 000060 WHIDN=60
283 000100 RHIDNF=100
284 000137 RHIDR1=137
285 000131 RHIDR2=131
286 000130 RHIDR3=130
287 000127 RHIDR4=127
288 000136 RHIDR5=136
289 000123 RHIDR6=123
290 000122 RHIDR7=122
291 000121 RHIDR8=121
292 000120 RHIDR9=120
293 000140 WASC6=140
294 000150 RASC6F=150
295 000177 RAS6R1=177
296 000176 RAS6R2=176
297 000163 RAS6R3=163
298 000162 RAS6R4=162
299 000161 RAS6R5=161
300 000160 RAS6R6=160
301 000200 WAS71=200
302 000210 RAS71F=210
303 000227 RA71R1=227
304 000223 RA71R2=223
305 000222 RA71R3=222
306 000221 RA71R4=221
307 000220 RA71R5=220
308 000230 WAS72=230
309 000240 RAS72F=240
310 000257 RA72R1=257
311 000253 RA72R2=253
312 000252 RA72R3=252
313 000251 RA72R4=251
314 000250 RA72R5=250
315 000260 WEM1=260
316 000264 REM1F=264
317 000271 REM1R1=271
318 000270 REM1R2=270
319 000274 WEM2=274
320 000300 REM2F=300
321 000305 REM2R1=305
322 000304 REM2R2=304
323 000310 WCOBOL=310
324 000320 RCOBLF=320
325 000337 RCBLR1=337
326 000332 RCBLR2=332
327 000331 RCBLR3=331
328 000330 RCBLR4=330
329
330 ;DEFINE RHDATA IN ORDER TO BE ABLE TO USE WRITE, READ, AND READB MACROS.
331 000001 RHDATA=1
332
333 ;DEFINE CATAB IN ORDER TO BE ABLE TO USE "ERRORD" CALLS
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 2-5
MCOD6T MAC 17-Oct-88 14:29 DATA PATH BIT REGISTER DEFINITIONS
334
335 000001 CATAB=1
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 1
MCERR MAC 17-Oct-88 14:28 DATA PATH BIT REGISTER DEFINITIONS
336 IF2 <PRINTX STARTING BINARY FILE>
337 SEARCH DX20CA ;READ THE CROSS ASSEMBLER
338
339 ;MASSBUS REGISTER BIT DEFINITIONS
340
341 ;STATUS & CONTROL REGISTER 1
342
343 000000 MPSCR0== 0 ;REGISTER NAME
344 000001 RUN== 1 ;RUN LINE FROM RH20
345 000002 GO== 2 ;GO BIT
346 000174 FN== 174 ;FUNCTION CODE
347 000004 F0== 4 ;FUNCTION BIT 0
348 000010 F1== 10 ;FUNCTION BIT 1
349 000020 F2== 20 ;FUNCTION BIT 2
350 000040 F3== 40 ;FUNCTION BIT 3
351 000100 F4== 100 ;FUNCTION BIT 4
352 000200 WCLK== 200 ;WRITE CLOCK LINE FROM RH20
353
354 ;STATUS AND CONTROL REGISTER 2
355
356 000001 MPSCR1== 1 ;REGISTER NAME
357 000001 DONE== 1 ;DATA TRANSFER DONE (READ)
358 000001 EBL== 1 ;SET EBL (WRITE)
359 000002 EXC== 2 ;EXCEPTION LINE FROM RH20 (READ)
360 000002 CLRGO== 2 ;SET TO CLEAR GO (WRITE)
361 000004 CMPERR== 4 ;COMPOSITE ERROR FLAG (READ)
362 000004 START== 4 ;START A DATA TRANSFER (WRITE)
363 000010 DTD== 10 ;DATA TO DEVICE
364 000020 OCC== 20 ;OCCUPIED
365 000040 ILF== 40 ;ILLEGAL FUNCTION
366 000100 MPERR== 100 ;MICRO-PROCESSOR DETECTED ERROR FLAG
367 000200 ATA== 200 ;ATTENTION
368
369 ;ERROR CODE REGISTER
370
371 000002 MPECR== 2 ;REGISTER NAME
372
373 ;DRIVE TYPE REGISTER
374
375 000003 MPDTR== 3 ;REGISTER NAME
376
377 ;HARDWARE VERSION REGISTER
378
379 000004 MPHVR== 4 ;REGISTER NAME
380
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 2
MCERR MAC 17-Oct-88 14:28 DATA PATH BIT REGISTER DEFINITIONS
381 ;DATA BUFFER REGISTER 0
382
383 000005 MPDB0== 5 ;REGISTER NAME
384
385 ;DATA BUFFER REGISTER 1
386
387 000006 MPDB1== 6 ;REGISTER NAME
388
389 ;DATA BUFFER REGISTER 2
390
391 000007 MPDB2== 7 ;REGISTER NAME
392
393 000003 DB== 3 ;DATA BUFFER BITS 16 AND 17
394 000004 DBPAR== 4 ;PARITY BIT
395 000010 DBPARE== 10 ;PARITY ERROR (READ)
396 000020 DBEVEN== 20 ;DATA BUFFER EVEN PARITY CONTROL
397
398 ;GENERAL PURPOSE REGISTERS
399
400 000010 MPGP0==10 ;REGISTER NAMES
401 000011 MPGP1==11
402 000012 MPGP2==12
403 000013 MPGP3==13
404 000014 MPGP4==14
405 000015 MPGP5==15
406 000016 MPGP6==16
407 000017 MPGP7==17
408 000020 MPGP10==20
409 000021 MPGP11==21
410 000022 MPGP12==22
411 000023 MPGP13==23
412 000024 MPGP14==24
413 000025 MPGP15==25
414 000026 MPGP16==26
415 000027 MPGP17==27
416
417 ;MP STATUS REGISTER
418
419 000036 MPSTAT==36 ;REGISTER NAME
420 000001 INT0== 1 ;INTERRUPT LINE 0
421 000002 INT1== 2 ;INTERRUPT LINE 1
422 000004 INT2== 4 ;INTERRUPT LINE 2
423 000010 INT3== 10 ;INTERRUPT LINE 3
424 000020 C== 20 ;CARRY BIT
425 000040 Z== 40 ;ZERO BIT
426
427 ;I/O BANK SELECT REGISTER
428
429 000037 IOSEL==37 ;REGISTER NAME
430 000007 INADR== 7 ;INPUT BANK ADDRESS
431 000070 OUTADR== 70 ;OUTPUT BANK ADDRESS
432 000100 SPRES== 100 ;STACK POINTER RESET
433 000200 INIT== 200 ;INITIALIZE
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 3
MCERR MAC 17-Oct-88 14:28 DATA PATH BIT REGISTER DEFINITIONS
434 ;THE FOLLOWING AC'S ARE USED BY THE ERROR HANDLER
435
436 ; AC7 FLAG REGISTER
437 ; AC6 REPEAT COUNTER
438 ; AC5 SAVE OF BR (DURING CALL ONLY)
439 ; AC4 SAVE OF I/O SELECT REGISTER (DURING CALL ONLY)
440 ; AC1 CORRECT DATA FOR ERRORA CALL
441 ; AC0 ACTUAL DATA FOR ERRORA AND ERRORM CALLS
442
443 ;FLAG REGISTER BITS
444
445 ; BIT 7 ERROR LOOP
446 ; BIT 6 ERROR DETECTED
447 ; BIT 5 RELIABILITY MODE
448 ; 4 - 0 LAST ERROR NUMBER
449
450 777777 777777 %TNUM== -1 ;SET TEST NUMBER TO -1 SO ENTIRE DRIVE REGISTER
451
452 000000 %REQ==0
453 000001 IFDEF RHDATA,<%REQ==1>
454 IFDEF CUADRS,<%REQ==1>
455 ;IS LOADED WITH TEST NUMBER ON FIRST TEST
456
457 DEFINE DEFTST(PROG),<
458 DEFINE TEST(E,NAME,X<;*>),<
459
460 LALL
461 X'**********************************************************************
462 X PROG * TEST E * NAME
463 X'**********************************************************************
464 SALL
465
466 IFN <^D'E^!%TNUM>&177400,<
467 IFG %TNUM,<DATI IOSEL,AC6 ;;SAVE THE IOSEL REG>
468 LDBR 11 ;;GET DEVICE CODE FOR MASSBUS INTERFACE
469 MOVB IOSEL ;;LOAD INTO I/O SELECT REGISTER
470 LDBR ^D'E_-8 ;;GET HIGH ORDER BITS OF TEST NUMBER
471 MOVB MPGP1 ;;LOAD INTO MASSBUS REG 20
472 IFG %TNUM,< MOV AC6,BR ;;GET SAVED IOSEL REG
473 MOVB IOSEL ;;RESTORE IT>
474 >
475 LDBR ^D'E&377 ;;GET LOW ORDER BITS OF TEST NUMBER
476 GOINK TESTI ;;GO INITIALIZE TEST
477 %TNUM==^D'E ;;REMEMBER TEST NUMBER
478 %EMES==0 ;;CLEAR ERROR MESSAGE NUMBER
479 TST==TST'E ;;REMEMBER TEST PC
480 LALL
481
482 TST'E: SALL
483 >>
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 4
MCERR MAC 17-Oct-88 14:28 DATA PATH BIT REGISTER DEFINITIONS
484 000200 PNT==200 ;ADDITIONAL PRINT ROUTINE REQUEST FLAG
485 ;ERROR PRINT ROUTINE NUMBER MUST BE IN DXGP3
486
487 DEFINE ERRMAC(ADR,LADR,PRTN,COR),<
488 GOINK ERRSET ;;GO SET ERROR DETECTED FLAG
489 LPADR==ADR ;;REMEMBER ERROR LOOP ADDRESS
490 CORF==<PRTN&PNT>!COR ;;REMEMBER IF CORRECT AND ACTUAL DATA
491 LALL
492
493 ERLOOP LADR ;;IF ERROR, LOOP TO LADR
494 >
495
496 DEFINE ERROR(LADR,MES1,MES2,PRTN<0>),<ERRMAC ERLP,LADR,PRTN,0>
497
498 DEFINE ERRORM(LADR,MES1,MES2,PRTN<0>),<ERRMAC ERLPM,LADR,PRTN,100>
499
500 DEFINE ERRORA(LADR,MES1,MES2,PRTN<0>),<ERRMAC ERLPA,LADR,PRTN,100>
501
502 DEFINE ERRORD(LADR,MES1,MES2,PRTN<0>),<ERRMAC ERLPD,LADR,PRTN,40>
503
504 DEFINE ERLOOP(ADR),<SALL
505 IFN %EMES&<^-37>,<IF2 <
506 LALL
507
508 PRINTX ?TOO MANY ERROR MESSAGES IN ONE TEST
509 SALL
510 >>
511 LDBR CORF!%EMES ;;LOAD MESSAGE NUMBER
512 GOINK LPADR ;;GO TO ERROR HANDLER
513 JMPZ ADR ;;LOOP IF Z IS SET
514 %EMES==%EMES+1 ;;UPDATE THE MESSAGE NUMBER
515 >
516
517 DEFINE REPEAT(RADR),<
518 GOINK REPTU ;;GO TO REPEAT ROUTINE
519 JMPZ RADR ;;REPEAT IF Z IS SET
520 >
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 5
MCERR MAC 17-Oct-88 14:28 DATA PATH BIT REGISTER DEFINITIONS
521 IFDEF RHDATA,<
522 DEFINE WRITE,<GOINK SETWRT ;;CALL ROUTINE TO SET UP RH20>
523 DEFINE READ,<GOINK SETRD ;;CALL ROUTINE TO SET UP RH20>
524 DEFINE READB,<GOINK SETRDB ;;CALL ROUTINE TO SET UP RH20>
525
526 DEFINE CHKRH(LADR,PRTN,CODE),<
527 LDBR <PRTN&PNT>!%EMES!CODE ;;SET UP CODE FOR EC REGISTER
528 GOINK CKTRM ;;CALL HOST TO CHECK TERMINATION OF RH20
529 LALL
530
531 ERRLOP LADR ;;IF ERROR, LOOP TO LADR
532 %EMES==%EMES+1
533 >
534 DEFINE CHKTRM(LADR,MES1,MES2,PRTN<0>),<CHKRH LADR,PRTN,40>
535 DEFINE CHKERR(LADR,MES1,MES2,PRTN<0>),<CHKRH LADR,PRTN,140>
536
537 DEFINE ERRLOP(LADR),<SALL
538 JMPZ LADR ;;IF ERROR, LOOP TO LADR
539 >
540 >
541 IFDEF CUADRS,<
542 DEFINE SNDADR,<GOINK SENDAD ;;CALL ROUTINE TO SEND CU ADDRESSES>
543 >
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 6
MCERR MAC 17-Oct-88 14:28 DATA PATH BIT REGISTER DEFINITIONS
544 000000 %ADRH==0 ;;CLEAR HIGH ADDRESS REFERENCE FLAG
545
546 DEFINE GOINK(ADR),<
547 IFE .&<^-1777>,<
548 JMPSUB ADR ;;GO TO ADDRESS IN LOW 1K
549 >
550 IFN .&<^-1777>,<
551 IFIDN <ADR><TESTI>,<
552 JMPSUB TESTIH
553 %ADRH==%ADRH!1
554 >
555 IFIDN <ADR><LPADR>,<
556 IFE <LPADR-ERLP>,<
557 JMPSUB ERLPH
558 %ADRH==%ADRH!2
559 >
560 IFE <LPADR-ERLPM>,<
561 JMPSUB ERLPMH
562 %ADRH==%ADRH!4
563 >
564 IFE <LPADR-ERLPA>,<
565 JMPSUB ERLPAH
566 %ADRH==%ADRH!10
567 >
568 IFDEF CATAB,<
569 IFE <LPADR-ERLPD>,<
570 JMPSUB ERLPDH
571 %ADRH==%ADRH!400
572 >
573 >
574 >
575 IFIDN <ADR><ERRSET>,<
576 JMPSUB ERSETH
577 %ADRH==%ADRH!20
578 >
579 IFIDN <ADR><REPTU>,<
580 JMPSUB REPTUH
581 %ADRH==%ADRH!40
582 >
583 IFDEF RHDATA,<
584 IFIDN <ADR><SETWRT>,<
585 JMPSUB STWRTH
586 %ADRH==%ADRH!100
587 >
588 IFIDN <ADR><SETRD>,<
589 JMPSUB STRDH
590 %ADRH==%ADRH!100
591 >
592 IFIDN <ADR><SETRDB>,<
593 JMPSUB STRDBH
594 %ADRH==%ADRH!100
595 >
596 IFIDN <ADR><CKTRM>,<JMPSUB CKTRMH>
597 >
598 IFDEF CUADRS,<
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 6-1
MCERR MAC 17-Oct-88 14:28 DATA PATH BIT REGISTER DEFINITIONS
599 IFIDN <ADR><SENDAD>,<
600 JMPSUB SNDADH
601 %ADRH==%ADRH!200
602 >
603 >
604 >
605 >
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 7
MCERR MAC 17-Oct-88 14:28 DATA PATH BIT REGISTER DEFINITIONS
606 DEFINE .ECRAM,<
607 IFE .&<^-1777>,< JMP BEGEND>
608 IFN .&<^-1777>,< JUMP BEGEND>
609 IFN %ADRH&1,< TESTIH: MOVB AC5
610 JUMP TEST0I>
611 IFN %ADRH&2,< ERLPH: MOVB AC5
612 JUMP ERLP0>
613 IFN %ADRH&4,< ERLPMH: MOVB AC5
614 JUMP ERLPM0>
615 IFN %ADRH&10,< ERLPAH: MOVB AC5
616 JUMP ERLPA0>
617 IFN %ADRH&20,< ERSETH: JUMP ERRSET>
618 IFN %ADRH&40,< REPTUH: JUMP REPTU>
619 IFN %ADRH&100,< STWRTH: LDBR 1
620 JMP CALLH
621 STRDH: LDBR 2
622 JMP CALLH
623 STRDBH: LDBR 3
624 CALLH: MOVB AC5
625 JUMP CALL0
626 CKTRMH: MOVB AC5
627 JUMP CKTRM0>
628 IFN %ADRH&200,< SNDADH: LDBR 200
629 MOVB AC5
630 JUMP CALL0>
631 IFN %ADRH&400,< ERLPDH: MOVB AC5
632 JUMP ERLPD0>
633 >
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 8
MCERR MAC 17-Oct-88 14:28 DATA PATH BIT REGISTER DEFINITIONS
634 ;MICRO-DIAGNOSTIC START ROUTINE
635
636 .INIT ^ ;INITIALIZE THE CROSS ASSEMBLER
637
638 SALL
639 000000 0 002000 01 0000
640
641 000001 0 002011 0 1 0 011 BEGIN: LDBR 11 ;SELECT THE MASSBUS
642 000002 0 066371 3 3 0 17 11 MOVB IOSEL ;INTERFACE
643 000003 0 022000 1 1 0 00 00 WAITGO: DATI MPSCR0,BR ;READ CONTROL REGISTER
644 000004 0 014000 0 6 0 000 SHR ;SHIFT GO BIT TO BIT 0
645 000005 0 104007 4 2 0007 JMPB0 .+2 ;JUMP AROUND IF GO IS SET
646 000006 0 100003 4 0 0003 JMP WAITGO ;NOT YET, KEEP WAITING
647 000007 0 022000 1 1 0 00 00 DATI MPSCR0,BR ;READ THE FUNCTION CODE AGAIN
648 000010 0 014000 0 6 0 000 SHR ;SHIFT RIGHT
649 000011 0 014000 0 6 0 000 SHR ;SHIFT F0 TO BIT 0
650 000012 0 104031 4 2 0031 JMPB0 CMDF0 ;JUMP IF F0 IS SET
651 000013 0 014000 0 6 0 000 SHR ;SHIFT F1 TO BIT 0
652 000014 0 104017 4 2 0017 JMPB0 .+3 ;JUMP IF RELIABILITY MODE REQUESTED
653 000015 0 002000 0 1 0 000 LDBR 0 ;SET UP FLAG REG WITH ALL ZEROS
654 000016 0 100020 4 0 0020 JMP .+2
655 000017 0 002040 0 1 0 040 LDBR 40 ;SET RELIABILITY MODE FLAG
656 000020 0 072171 3 5 0 07 11 MOVB AC7 ;PUT IN AC7
657 000021 0 002300 0 1 0 300 LDBR INIT+SPRES ;RESET THE DX20
658 000022 0 066371 3 3 0 17 11 MOVB IOSEL ;AND THE STACK POINTER
659 000023 0 002011 0 1 0 011 LDBR 11 ;SELECT THE MASSBUS
660 000024 0 066371 3 3 0 17 11 MOVB IOSEL ;INTERFACE AGAIN
661 000025 0 002000 0 1 0 000 LDBR 0 ;CLEAR RIGHT HALF OF DXGP3
662 000026 0 064351 3 2 0 16 11 MOVB MPGP6 ;TO INDICATE NO ADDITIONAL ERROR PRINTER
663 000027 0 116033 4 7 0033 JMPSUB OFFGO ;TURN OFF GO
664 000030 0 100300 4 0 0300 JMP TSTART ;GO START THE FIRST TEST
665
666 000031 0 014000 0 6 0 000 CMDF0: SHR ;SHIFT F1 TO BIT 0
667 000032 0 016000 0 7 0 000 RETURN ;RETURN TO CALLER
668
669 000033 0 002000 0 1 0 000 OFFGO: LDBR 0 ;GET A ZERO
670 000034 0 064051 3 2 0 02 11 MOVB MPECR ;CLEAR ERROR CODE REGISTER
671 000035 0 032121 1 5 0 05 01 DATI MPSCR1,AC5 ;READ STATUS REGISTER 1
672 000036 0 002010 0 1 0 010 LDBR DTD ;GET MASK OF DIRECTION BIT
673 000037 0 072133 3 5 0 05 13 LANDBR AC5 ;KEEP ONLY THAT BIT
674 000040 0 002002 0 1 0 002 LDBR CLRGO ;GET BIT TO CLEAR GO
675 000041 0 062134 3 1 0 05 14 LORB AC5,BR ;COMBINE WITH COPY OF DTD
676 000042 0 064031 3 2 0 01 11 MOVB MPSCR1 ;CLEAR GO AND ATA
677 000043 0 016000 0 7 0 000 RETURN
678
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 9
MCERR MAC 17-Oct-88 14:28 DATA PATH BIT REGISTER DEFINITIONS
679 ;TEST INITIALIZATION
680
681 000044 0 062130 3 1 0 05 10 TEST0I: MOV AC5,BR ;GET TEST NUMBER BACK
682 000045 0 001000 0 0 2 000 TESTI: LDMAR 0 ;CLEAR MEMORY ADDRESS REGISTER
683 000046 0 000400 0 0 1 000 LDMARX 0 ;ALL BITS
684 000047 0 132157 5 5 0 06 17 DATI IOSEL,AC6 ;SAVE IOSEL REG
685 000050 0 010011 0 4 0 011 LDMEM 11 ;GET DEVICE CODE FOR MASSBUS INTERFACE
686 000051 0 046371 2 3 0 17 11 MOVMEM IOSEL ;LOAD INTO I/O SELECT REGISTER
687 000052 0 064211 3 2 0 10 11 MOVB MPGP0 ;WRITE TEST NUMBER INTO DXGP0
688 000053 0 062150 3 1 0 06 10 MOV AC6,BR ;GET SAVED IOSEL REG
689 000054 0 066371 3 3 0 17 11 MOVB IOSEL ;RESTORE IT
690 000055 0 002040 0 1 0 040 LDBR 40 ;GET MASK OF ONLY RELIABILITY BIT
691 000056 0 072173 3 5 0 07 13 LANDBR AC7 ;CLEAR ERROR AND MESSAGE NUMBER BITS
692 000057 0 062170 3 1 0 07 10 MOV AC7,BR ;GET FLAGS
693 000060 0 014000 0 6 0 000 SHR ;SHIFT RELIABILITY MODE BIT TO BR4
694 000061 0 106064 4 3 0064 JMPB4 .+3 ;JUMP AROUND IF RELIABILITY MODE
695 000062 0 002000 0 1 0 000 LDBR 0 ;QUICK VERIFY, LOAD A ZERO COUNT
696 000063 0 100065 4 0 0065 JMP .+2
697 000064 0 002077 0 1 0 077 LDBR RPTCNT-1 ;GET REPEAT COUNT
698 000065 0 072151 3 5 0 06 11 MOVB AC6 ;SAVE IN AC6
699 000066 0 016000 0 7 0 000 RETURN ;NOW START THE TEST
700
701 ;I/O SELECT REGISTER GENERAL ROUTINES
702
703 000067 0 132117 5 5 0 04 17 SAVIOS: DATI IOSEL,AC4 ;SAVE I/O SELECT REGISTER IN AC4
704 000070 0 002011 0 1 0 011 LDBR 11 ;SELECT MASSBUS INTERFACE
705 000071 0 066371 3 3 0 17 11 MOVB IOSEL ;GO I/O
706 000072 0 016000 0 7 0 000 NRTN: RETURN
707
708 000073 0 062110 3 1 0 04 10 RESIOS: MOV AC4,BR ;GET SAVED I/O SELECT REGISTER
709 000074 0 066371 3 3 0 17 11 MOVB IOSEL ;RESTORE IT
710 000075 0 016000 0 7 0 000 RETURN
711
712 ;ROUTINE TO SET ATA AND/OR MPERR IN STATUS REGISTER
713 ;ENTER WITH BITS TO SET IN BR
714
715 000076 0 032121 1 5 0 05 01 SETATA: DATI MPSCR1,AC5 ;READ STATUS REGISTER
716 000077 0 072134 3 5 0 05 14 LORBR AC5 ;SET REQUESTED BITS
717 000100 0 002310 0 1 0 310 LDBR ATA+MPERR+DTD ;GET MASK OF ONLY BITS TO SET
718 000101 0 062133 3 1 0 05 13 LANDB AC5,BR ;CLEAR OTHER BITS READ
719 000102 0 064031 3 2 0 01 11 MOVB MPSCR1 ;WRITE INTO STATUS REGISTER
720 000103 0 016000 0 7 0 000 RETURN
721
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 10
MCERR MAC 17-Oct-88 14:28 DATA PATH BIT REGISTER DEFINITIONS
722 ;ERROR HANDLER ROUTINES
723
724 000104 0 002300 0 1 0 300 ERRSET: LDBR 300 ;GET ERROR LOOP AND DETECTED FLAGS
725 000105 0 072174 3 5 0 07 14 LORBR AC7 ;SET BOTH BITS IN FLAG REGISTER
726 000106 0 016000 0 7 0 000 RETURN
727
728 ;CHECK IF TO REPORT AN ERROR
729
730 000107 0 062170 3 1 0 07 10 ERRCHK: MOV AC7,BR ;GET FLAG REGISTER
731 000110 0 110112 4 4 0112 IFNDEF .ERROR,<JMPB7 .+2> ;SKIP IF IN ERROR LOOP
732 IFDEF .ERROR,<JMP REPORT> ;REPORT ALL ERRORS
733 000111 0 016377 0 7 0 377 RETURN -1 ;RETURN WITH Z SET TO CONTINUE TEST
734 000112 0 062165 3 1 0 07 05 SHL AC7,BR ;SHIFT ERROR DETECTED BIT TO BR7
735 000113 0 110126 4 4 0126 JMPB7 REPORT ;REPORT IT IF SET
736 000114 0 002037 0 1 0 037 LDBR 37 ;GET MASK FOR ERROR NUMBER
737 000115 0 072133 3 5 0 05 13 LANDBR AC5 ;CLEAR CONTROL BITS IN CURRENT NUMBER
738 000116 0 062173 3 1 0 07 13 LANDB AC7,BR ;EXTRACT LAST ERROR NUMBER
739 000117 0 060137 3 0 0 05 17 OSB AC5 ;COMPARE LAST AND CURRENT ERROR NUMBERS
740 000120 0 114122 4 6 0122 JMPZ NOFAIL ;JUMP IF AT SAME ERROR
741 000121 0 016377 0 7 0 377 RETURN -1 ;NO, RETURN WITH Z SET TO CONTINUE TEST
742 000122 0 116067 4 7 0067 NOFAIL: JMPSUB SAVIOS ;SAVE I/O REGISTER, SELECT MASSBUS
743 000123 0 002200 0 1 0 200 LDBR ATA ;GET ATA BIT
744 000124 0 072131 3 5 0 05 11 MOVB AC5 ;SAVE IN AC5
745 000125 0 016000 0 7 0 000 RETURN ;RETURN WITH Z CLEAR TO SIGNAL END OF LOOP
746
747 000126 0 116067 4 7 0067 REPORT: JMPSUB SAVIOS ;SAVE I/O REGISTER, SELECT MASSBUS
748 000127 0 062130 3 1 0 05 10 MOV AC5,BR ;GET ERROR NUMBER
749 000130 0 064051 3 2 0 02 11 MOVB MPECR ;PUT IN ERROR CODE REGISTER
750 000131 0 002240 0 1 0 240 LDBR 240 ;GET MASK OF LOOP AND RELIABILITY BITS
751 000132 0 072173 3 5 0 07 13 LANDBR AC7 ;LEAVE ONLY THOSE TWO BITS IN FLAG REG
752 000133 0 002037 0 1 0 037 LDBR 37 ;GET MASK OF ERROR NUMBER
753 000134 0 062133 3 1 0 05 13 LANDB AC5,BR ;GET CURRENT NUMBER FROM AC5
754 000135 0 072174 3 5 0 07 14 LORBR AC7 ;MERGE AND PUT IN FLAG REGISTER
755 000136 0 002300 0 1 0 300 LDBR ATA+MPERR ;GET ATA AND ERROR BITS
756 000137 0 072131 3 5 0 05 11 MOVB AC5 ;SAVE IN AC5
757 000140 0 016000 0 7 0 000 RETURN ;RETURN WITH Z CLEAR TO SIGNAL ERROR REPORT
758
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 11
MCERR MAC 17-Oct-88 14:28 DATA PATH BIT REGISTER DEFINITIONS
759 000141 0 072131 3 5 0 05 11 ERLP: MOVB AC5 ;SAVE MESSAGE NUMBER IN AC5
760 000142 0 116107 4 7 0107 ERLP0: JMPSUB ERRCHK ;CHECK FOR ERROR
761 000143 0 114072 4 6 0072 JMPZ NRTN ;NO, RETURN WITH Z CLEAR TO CONTINUE TEST
762 000144 0 100161 4 0 0161 JMP ERRCOM ;GO TO COMMON ROUTINE
763
764 000145 0 072131 3 5 0 05 11 ERLPM: MOVB AC5 ;SAVE MESSAGE NUMBER IN AC5
765 000146 0 116107 4 7 0107 ERLPM0: JMPSUB ERRCHK ;CHECK FOR ERROR
766 000147 0 114072 4 6 0072 JMPZ NRTN ;NO, RETURN WITH Z CLEAR TO CONTINUE TEST
767 000150 0 044311 2 2 0 14 11 MOVMEM MPGP4 ;PUT CORRECT DATA IN RIGHT HALF OF DXGP2
768 000151 0 100157 4 0 0157 JMP ERRCA ;JUMP AROUND
769
770 000152 0 072131 3 5 0 05 11 ERLPA: MOVB AC5 ;SAVE MESSAGE NUMBER IN AC5
771 000153 0 116107 4 7 0107 ERLPA0: JMPSUB ERRCHK ;CHECK FOR ERROR
772 000154 0 114072 4 6 0072 JMPZ NRTN ;NO, RETURN WITH Z CLEAR TO CONTINUE TEST
773 000155 0 062030 3 1 0 01 10 MOV AC1,BR ;GET CORRECT DATA FROM AC1
774 000156 0 064311 3 2 0 14 11 MOVB MPGP4 ;PUT IN RIGHT HALF OF DXGP2
775 000157 0 062010 3 1 0 00 10 ERRCA: MOV AC0,BR ;GET ACTUAL DATA FROM AC0
776 000160 0 064331 3 2 0 15 11 MOVB MPGP5 ;PUT IN LEFT HALF OF DXGP2
777 000161 0 062130 3 1 0 05 10 ERRCOM: MOV AC5,BR ;GET BITS TO SET IN STATUS REGISTER
778 000162 0 116076 4 7 0076 CHKLOP: JMPSUB SETATA ;GO SET THE BITS
779 000163 0 116003 4 7 0003 CHKLP: JMPSUB WAITGO ;WAIT FOR GO TO SET
780 000164 0 104170 4 2 0170 JMPB0 ELOOPC ;JUMP IF TO CONTINUE
781 000165 0 116033 4 7 0033 JMPSUB OFFGO ;TURN OFF GO
782 000166 0 116073 4 7 0073 JMPSUB RESIOS ;RESTORE I/O SELECT REGISTER
783 000167 0 016377 0 7 0 377 ZRTN: RETURN -1 ;RETURN WITH Z SET TO LOOP
784
785 000170 0 116033 4 7 0033 ELOOPC: JMPSUB OFFGO ;TURN OFF GO
786 000171 0 116073 4 7 0073 JMPSUB RESIOS ;RESTORE I/O SELECT REGISTER
787 000172 0 016000 0 7 0 000 RETURN ;RETURN WITH Z CLEAR TO CONTINUE
788
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 12
MCERR MAC 17-Oct-88 14:28 DATA PATH BIT REGISTER DEFINITIONS
789 XLIST
790 LIST
791 000173 0 072131 3 5 0 05 11 ERLPD: MOVB AC5 ;SAVE MESSAGE NUMBER IN AC5
792 000174 0 116107 4 7 0107 ERLPD0: JMPSUB ERRCHK ;CHECK FOR ERROR
793 000175 0 114072 4 6 0072 JMPZ NRTN ;NO, RETURN WITH Z CLEAR TO CONT TEST
794 000176 0 062125 3 1 0 05 05 SHL AC5,BR ;LEFT ADJUST MPERR BIT
795 000177 0 110201 4 4 0201 JMPB7 .+2 ;JUMP IF REPORTING ERROR
796 000200 0 100161 4 0 0161 JMP ERRCOM ;ELSE, JUST NOTIFY HOST
797 000201 0 062010 3 1 0 00 10 MOV AC0,BR ;STORE BYTE COUNT FOR PRINTOUT
798 000202 0 064371 3 2 0 17 11 MOVB MPGP7
799 000203 0 072007 3 5 0 00 07 DECR AC0 ;DEC BYTE CNT FOR LOOP CNT
800 000204 0 002000 0 1 0 000 LDBR 0 ;CLEAR CONTROL BITS
801 000205 0 064351 3 2 0 16 11 MOVB MPGP6
802 000206 0 061030 3 0 2 01 10 MOV AC1,MAR ;SET CORRECT DATA ADDR
803 000207 0 044311 2 2 0 14 11 MOVMEM MPGP4 ;STORE CORRECT DATA
804 000210 0 061050 3 0 2 02 10 MOV AC2,MAR ;SET ACTUAL DATA ADDRESS
805 000211 0 044331 2 2 0 15 11 MOVMEM MPGP5 ;STORE ACTUAL DATA
806 000212 0 062130 3 1 0 05 10 MOV AC5,BR ;GET BITS TO SET IN STATUS REG
807 000213 0 116076 4 7 0076 JMPSUB SETATA ;GO SET ATTEN PLUS OTHER BITS
808 000214 0 022016 1 1 0 00 16 ERLPD1: DATI MPGP6,BR ;READ CONTROL BIT REG
809 000215 0 104217 4 2 0217 JMPB0 .+2 ;JUMP IF HOST SET DATA ACCEPTED BIT
810 000216 0 100214 4 0 0214 JMP .-2 ;ELSE, KEEP WAITING
811 000217 0 072007 3 5 0 00 07 DECR AC0 ;DEC BYTE COUNT
812 000220 0 114232 4 6 0232 JMPZ ERLPD2 ;JUMP IF SENT ALL DATA
813 000221 0 072023 3 5 0 01 03 INCR AC1 ;INC CORRECT DATA ADDR
814 000222 0 072043 3 5 0 02 03 INCR AC2 ;INC ACTUAL DATA ADDR
815 000223 0 061030 3 0 2 01 10 MOV AC1,MAR ;SET CORRECT DATA ADDR
816 000224 0 044311 2 2 0 14 11 MOVMEM MPGP4 ;STORE CORRECT DATA
817 000225 0 061050 3 0 2 02 10 MOV AC2,MAR ;SET ACTUAL DATA ADDRESS
818 000226 0 044331 2 2 0 15 11 MOVMEM MPGP5 ;STORE ACTUAL DATA
819 000227 0 002000 0 1 0 000 LDBR 0 ;CLEAR ACCEPT BIT TO SIGNAL HOST
820 000230 0 064351 3 2 0 16 11 MOVB MPGP6 ;THAT MORE DATA IS AVAILABLE
821 000231 0 100214 4 0 0214 JMP ERLPD1 ;GO WAIT FOR HOST TO ACCEPT
822
823 000232 0 002002 0 1 0 002 ERLPD2: LDBR 2 ;CLEAR ACCEPT BIT AND SET DONE BIT
824 000233 0 064351 3 2 0 16 11 MOVB MPGP6 ;TO SIGNAL HOST
825 000234 0 100163 4 0 0163 JMP CHKLP
826
827 XLIST
828 LIST
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 13
MCERR MAC 17-Oct-88 14:28 DATA PATH BIT REGISTER DEFINITIONS
829 XLIST
830 LIST
831 000235 0 002200 0 1 0 200 SENDAD: LDBR 200 ;SET UP CODE FOR HOST
832 000236 0 100244 4 0 0244 JMP CALL
833 000237 0 002001 0 1 0 001 SETWRT: LDBR 1 ;SET UP CODE FOR HOST
834 000240 0 100244 4 0 0244 JMP CALL
835 000241 0 002002 0 1 0 002 SETRD: LDBR 2 ;SET UP CODE FOR HOST
836 000242 0 100244 4 0 0244 JMP CALL
837 000243 0 002003 0 1 0 003 SETRDB: LDBR 3 ;SET UP CODE FOR HOST
838 000244 0 072131 3 5 0 05 11 CALL: MOVB AC5 ;SAVE CODE IN AC5
839 000245 0 116067 4 7 0067 CALL0: JMPSUB SAVIOS ;SAVE I/O SELECT REG., SELECT MASSBUS
840 000246 0 062130 3 1 0 05 10 MOV AC5,BR ;GET CODE TO PASS TO HOST
841 000247 0 064051 3 2 0 02 11 MOVB MPECR ;WRITE INTO ERROR CODE REGISTER
842 000250 0 002200 0 1 0 200 LDBR ATA ;GET ATTENTION BIT
843 000251 0 116076 4 7 0076 JMPSUB SETATA ;SET ATTENTION IN STATUS REGISTER
844 000252 0 116003 4 7 0003 JMPSUB WAITGO ;WAIT FOR GO TO SET
845 000253 0 116033 4 7 0033 JMPSUB OFFGO ;TURN GO OFF AGAIN
846 000254 0 116073 4 7 0073 JMPSUB RESIOS ;RESTORE THE I/O SELECT REGISTER
847 000255 0 016000 0 7 0 000 RETURN ;RETURN, RH20 IS SET UP
848
849 000256 0 072131 3 5 0 05 11 CKTRM: MOVB AC5 ;SAVE MESSAGE NUMBER IN AC5
850 000257 0 116067 4 7 0067 CKTRM0: JMPSUB SAVIOS ;SAVE I/O SELECT REG., SELECT MASSBUS
851 000260 0 062130 3 1 0 05 10 MOV AC5,BR ;GET MESSAGE NUMBER AGAIN
852 000261 0 064051 3 2 0 02 11 MOVB MPECR ;WRITE IT INTO ERROR CODE REGISTER
853 000262 0 002200 0 1 0 200 LDBR ATA ;GET ATTENTION BIT
854 000263 0 100162 4 0 0162 JMP CHKLOP ;TELL HOST, DECIDE IF TO LOOP ON RESPONSE
855
856 XLIST
857 LIST
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 14
MCERR MAC 17-Oct-88 14:28 DATA PATH BIT REGISTER DEFINITIONS
858 ;REPEAT TEST ROUTINE
859
860 000264 0 072147 3 5 0 06 07 REPTU: DECR AC6 ;DECREMENT REPEAT COUNT
861 000265 0 114072 4 6 0072 JMPZ NRTN ;IF NOW -1, RETURN WITH Z CLEAR
862 000266 0 016377 0 7 0 377 RETURN -1 ;RETURN WITH Z SET TO REPEAT TEST
863
864 ;REPORT END OF DIAGNOSTIC WITH 0 ERROR CODE AND 0 TEST NUMBER
865
866 000267 0 002011 0 1 0 011 BEGEND: LDBR 11 ;SELECT MASSBUS INTERFACE
867 000270 0 066371 3 3 0 17 11 MOVB IOSEL ;IN I/O SELECT REGISTER
868 000271 0 002000 0 1 0 000 LDBR 0 ;GET A ZERO
869 000272 0 064211 3 2 0 10 11 MOVB MPGP0 ;MAKE TEST NUMBER 0
870 000273 0 064231 3 2 0 11 11 MOVB MPGP1 ;TO SAY END OF DIAGNOSTIC
871 000274 0 002200 0 1 0 200 LDBR ATA ;GET ATTENTION BIT
872 000275 0 064031 3 2 0 01 11 MOVB MPSCR1 ;SET IT
873 000276 0 116003 4 7 0003 JMPSUB WAITGO ;WAIT FOR GO TO SET
874 000277 0 100001 4 0 0001 JMP BEGIN ;START DIAGNOSTIC OVER AGAIN
875
876
877 000300 TSTART: ;COME HERE TO START THE TESTING
878
879
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 1
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
880 SUBTTL DATA PATH TEST - PART 3
881
882 DEFTST MCODE6
883 TEST 247,TEST WRITE INDUSTRY COMPATIBLE FORMATTING
884 ;***********************************************************************
885 ;* MCODE6 * TEST 247 * TEST WRITE INDUSTRY COMPATIBLE FORMATTING
886 ;***********************************************************************
887 SALL
888 000300 0 002011 0 1 0 011
889 000301 0 066371 3 3 0 17 11
890 000302 0 002000 0 1 0 000
891 000303 0 064231 3 2 0 11 11
892 000304 0 002367 0 1 0 367
893 000305 0 116045 4 7 0045
894
895 000306 TST247: SALL
896
897 ;*WRITE FOUR 18-BIT WORDS (EIGHT BYTES)
898
899 000306 0 002053 0 1 0 053 LDBR ^D43 ;SET DATA PATTERN NUMBER
900 000307 0 072011 3 5 0 00 11 MOVB AC0
901 000310 0 002004 0 1 0 004 LDBR 4 ;SET 18-BIT WORD CNT
902 000311 0 072111 3 5 0 04 11 MOVB AC4
903 000312 0 002010 0 1 0 010 LDBR ^D8 ;SET BYTE CNT
904 000313 0 072051 3 5 0 02 11 MOVB AC2
905 000314 0 002000 0 1 0 000 LDBR WINCM ;SET ROM PROGRAM START ADDRESS
906 000315 0 072071 3 5 0 03 11 MOVB AC3
907 000316 0 002034 0 1 0 034 LDBR TSTDAT ;SETUP ADDR OF EXPECTED TEST DATA
908 000317 0 072031 3 5 0 01 11 MOVB AC1
909 000320 0 002011 0 1 0 011 GOSUB WRSEQ ;GO RUN THE PROGRAM
910 000321 0 177631 7 7 3 11 11
911 000322 0 114324 4 6 0324 JMPZ .+2 ;JUMP IF NO ERRORS IN XFER
912 000323 0 116104 4 7 0104 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE WRITE,,PNT
913
914 ERLOOP TST ^SALL
915 000324 0 002200 0 1 0 200
916 000325 0 116141 4 7 0141
917 000326 0 114306 4 6 0306
918 000327 0 002041 0 1 0 041 CHKTRM TST,RH20 ERROR DETECTED DURING WRITE XFER
919 000330 0 116256 4 7 0256
920
921 ERRLOP TST ^SALL
922 000331 0 114306 4 6 0306
923 000332 0 002261 0 1 0 261 GOSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
924 000333 0 177631 7 7 3 11 11
925 000334 0 114336 4 6 0336 JMPZ .+2 ;JUMP IF NONE WERE FOUND
926 000335 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
927
928 ERLOOP TST ^SALL
929 000336 0 002002 0 1 0 002
930 000337 0 116141 4 7 0141
931 000340 0 114306 4 6 0306
932 000341 0 002266 0 1 0 266 GOSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
933 000342 0 177631 7 7 3 11 11
934 000343 0 114345 4 6 0345 JMPZ .+2 ;JUMP IF NONE WERE FOUND
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 1-1
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
935 000344 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
936
937 ERLOOP TST ^SALL
938 000345 0 002003 0 1 0 003
939 000346 0 116141 4 7 0141
940 000347 0 114306 4 6 0306
941 000350 0 002300 0 1 0 300 GOSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
942 000351 0 177631 7 7 3 11 11
943 000352 0 114354 4 6 0354 JMPZ .+2 ;JUMP IF NONE WERE FOUND
944 000353 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
945
946 ERLOOP TST ^SALL
947 000354 0 002004 0 1 0 004
948 000355 0 116141 4 7 0141
949 000356 0 114306 4 6 0306
950 000357 0 002126 0 1 0 126 GOSUB CHKDAT ;GO CHECK THE DATA RECEIVED AT CHANNEL BUS
951 000360 0 177631 7 7 3 11 11
952 000361 0 114363 4 6 0363 JMPZ .+2 ;JUMP IF NO ERRORS IN DATA
953 000362 0 116104 4 7 0104 ERRORD TST,DATA ERROR IN WRITTEN DATA
954
955 ERLOOP TST ^SALL
956 000363 0 002045 0 1 0 045
957 000364 0 116173 4 7 0173
958 000365 0 114306 4 6 0306
959 000366 0 116264 4 7 0264 REPEAT TST
960 000367 0 114306 4 6 0306
961
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 2
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
962 TEST 248,TEST READ INDUSTRY COMPATIBLE FORWARD FORMATTING
963 ;***********************************************************************
964 ;* MCODE6 * TEST 248 * TEST READ INDUSTRY COMPATIBLE FORWARD FORMATTING
965 ;***********************************************************************
966 SALL
967 000370 0 002370 0 1 0 370
968 000371 0 116045 4 7 0045
969
970 000372 TST248: SALL
971
972 ;*READ FOUR 18-BIT WORDS (EIGHT BYTES)
973
974 000372 0 002053 0 1 0 053 LDBR ^D43 ;SET DATA PATTERN NUMBER
975 000373 0 072011 3 5 0 00 11 MOVB AC0
976 000374 0 002004 0 1 0 004 LDBR 4 ;SET 18-BIT WORD CNT
977 000375 0 072111 3 5 0 04 11 MOVB AC4
978 000376 0 002010 0 1 0 010 LDBR ^D8 ;SET BYTE CNT
979 000377 0 072051 3 5 0 02 11 MOVB AC2
980 000400 0 002010 0 1 0 010 LDBR RINCMF ;SET ROM PROGRAM START ADDRESS
981 000401 0 072071 3 5 0 03 11 MOVB AC3
982 000402 0 002263 0 1 0 263 GOSUB RDSEQ ;GO RUN THE PROGRAM
983 000403 0 177231 7 7 2 11 11
984 000404 0 114406 4 6 0406 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
985 000405 0 116104 4 7 0104 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
986
987 ERLOOP TST ^SALL
988 000406 0 002200 0 1 0 200
989 000407 0 116141 4 7 0141
990 000410 0 114372 4 6 0372
991 000411 0 002365 0 1 0 365 GOSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
992 000412 0 177231 7 7 2 11 11
993 000413 0 114415 4 6 0415 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
994 000414 0 116104 4 7 0104 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
995
996 ERLOOP TST ^SALL
997 000415 0 002001 0 1 0 001
998 000416 0 116141 4 7 0141
999 000417 0 114372 4 6 0372
1000 000420 0 002261 0 1 0 261 GOSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
1001 000421 0 177631 7 7 3 11 11
1002 000422 0 114424 4 6 0424 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1003 000423 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
1004
1005 ERLOOP TST ^SALL
1006 000424 0 002002 0 1 0 002
1007 000425 0 116141 4 7 0141
1008 000426 0 114372 4 6 0372
1009 000427 0 002266 0 1 0 266 GOSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
1010 000430 0 177631 7 7 3 11 11
1011 000431 0 114433 4 6 0433 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1012 000432 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
1013
1014 ERLOOP TST ^SALL
1015 000433 0 002003 0 1 0 003
1016 000434 0 116141 4 7 0141
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 2-1
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
1017 000435 0 114372 4 6 0372
1018 000436 0 002300 0 1 0 300 GOSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
1019 000437 0 177631 7 7 3 11 11
1020 000440 0 114442 4 6 0442 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1021 000441 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
1022
1023 ERLOOP TST ^SALL
1024 000442 0 002004 0 1 0 004
1025 000443 0 116141 4 7 0141
1026 000444 0 114372 4 6 0372
1027 000445 0 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
1028 000446 0 116256 4 7 0256
1029
1030 ERRLOP TST ^SALL
1031 000447 0 114372 4 6 0372
1032 000450 0 116264 4 7 0264 REPEAT TST
1033 000451 0 114372 4 6 0372
1034
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 3
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
1035 TEST 249,TEST READ INDUSTRY COMPATIBLE REVERSE FORMATTING 1
1036 ;***********************************************************************
1037 ;* MCODE6 * TEST 249 * TEST READ INDUSTRY COMPATIBLE REVERSE FORMATTING 1
1038 ;***********************************************************************
1039 SALL
1040 000452 0 002371 0 1 0 371
1041 000453 0 116045 4 7 0045
1042
1043 000454 TST249: SALL
1044
1045 ;*READ FOUR 18-BIT WORDS (FIVE DATA BYTES WITH THREE ZERO BYTES PRE-PADDED)
1046
1047 000454 0 002063 0 1 0 063 LDBR ^D51 ;SET DATA PATTERN NUMBER
1048 000455 0 072011 3 5 0 00 11 MOVB AC0
1049 000456 0 002004 0 1 0 004 LDBR 4 ;SET 18-BIT WORD CNT
1050 000457 0 072111 3 5 0 04 11 MOVB AC4
1051 000460 0 002005 0 1 0 005 LDBR ^D5 ;SET BYTE CNT
1052 000461 0 072051 3 5 0 02 11 MOVB AC2
1053 000462 0 002027 0 1 0 027 LDBR RINCR1 ;SET ROM PROGRAM START ADDRESS
1054 000463 0 072071 3 5 0 03 11 MOVB AC3
1055 000464 0 002260 0 1 0 260 GOSUB RRDSEQ ;GO RUN THE PROGRAM
1056 000465 0 177231 7 7 2 11 11
1057 000466 0 114470 4 6 0470 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
1058 000467 0 116104 4 7 0104 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
1059
1060 ERLOOP TST ^SALL
1061 000470 0 002200 0 1 0 200
1062 000471 0 116141 4 7 0141
1063 000472 0 114454 4 6 0454
1064 000473 0 002365 0 1 0 365 GOSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
1065 000474 0 177231 7 7 2 11 11
1066 000475 0 114477 4 6 0477 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
1067 000476 0 116104 4 7 0104 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
1068
1069 ERLOOP TST ^SALL
1070 000477 0 002001 0 1 0 001
1071 000500 0 116141 4 7 0141
1072 000501 0 114454 4 6 0454
1073 000502 0 002261 0 1 0 261 GOSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
1074 000503 0 177631 7 7 3 11 11
1075 000504 0 114506 4 6 0506 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1076 000505 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
1077
1078 ERLOOP TST ^SALL
1079 000506 0 002002 0 1 0 002
1080 000507 0 116141 4 7 0141
1081 000510 0 114454 4 6 0454
1082 000511 0 002266 0 1 0 266 GOSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
1083 000512 0 177631 7 7 3 11 11
1084 000513 0 114515 4 6 0515 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1085 000514 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
1086
1087 ERLOOP TST ^SALL
1088 000515 0 002003 0 1 0 003
1089 000516 0 116141 4 7 0141
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 3-1
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
1090 000517 0 114454 4 6 0454
1091 000520 0 002300 0 1 0 300 GOSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
1092 000521 0 177631 7 7 3 11 11
1093 000522 0 114524 4 6 0524 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1094 000523 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
1095
1096 ERLOOP TST ^SALL
1097 000524 0 002004 0 1 0 004
1098 000525 0 116141 4 7 0141
1099 000526 0 114454 4 6 0454
1100 000527 0 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
1101 000530 0 116256 4 7 0256
1102
1103 ERRLOP TST ^SALL
1104 000531 0 114454 4 6 0454
1105 000532 0 116264 4 7 0264 REPEAT TST
1106 000533 0 114454 4 6 0454
1107
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 4
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
1108 TEST 250,TEST READ INDUSTRY COMPATIBLE REVERSE FORMATTING 2
1109 ;***********************************************************************
1110 ;* MCODE6 * TEST 250 * TEST READ INDUSTRY COMPATIBLE REVERSE FORMATTING 2
1111 ;***********************************************************************
1112 SALL
1113 000534 0 002372 0 1 0 372
1114 000535 0 116045 4 7 0045
1115
1116 000536 TST250: SALL
1117
1118 ;*READ FOUR 18-BIT WORDS (SIX DATA BYTES WITH TWO ZERO BYTES PRE-PADDED)
1119
1120 000536 0 002064 0 1 0 064 LDBR ^D52 ;SET DATA PATTERN NUMBER
1121 000537 0 072011 3 5 0 00 11 MOVB AC0
1122 000540 0 002004 0 1 0 004 LDBR 4 ;SET 18-BIT WORD CNT
1123 000541 0 072111 3 5 0 04 11 MOVB AC4
1124 000542 0 002006 0 1 0 006 LDBR ^D6 ;SET BYTE CNT
1125 000543 0 072051 3 5 0 02 11 MOVB AC2
1126 000544 0 002022 0 1 0 022 LDBR RINCR2 ;SET ROM PROGRAM START ADDRESS
1127 000545 0 072071 3 5 0 03 11 MOVB AC3
1128 000546 0 002260 0 1 0 260 GOSUB RRDSEQ ;GO RUN THE PROGRAM
1129 000547 0 177231 7 7 2 11 11
1130 000550 0 114552 4 6 0552 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
1131 000551 0 116104 4 7 0104 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
1132
1133 ERLOOP TST ^SALL
1134 000552 0 002200 0 1 0 200
1135 000553 0 116141 4 7 0141
1136 000554 0 114536 4 6 0536
1137 000555 0 002365 0 1 0 365 GOSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
1138 000556 0 177231 7 7 2 11 11
1139 000557 0 114561 4 6 0561 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
1140 000560 0 116104 4 7 0104 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
1141
1142 ERLOOP TST ^SALL
1143 000561 0 002001 0 1 0 001
1144 000562 0 116141 4 7 0141
1145 000563 0 114536 4 6 0536
1146 000564 0 002261 0 1 0 261 GOSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
1147 000565 0 177631 7 7 3 11 11
1148 000566 0 114570 4 6 0570 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1149 000567 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
1150
1151 ERLOOP TST ^SALL
1152 000570 0 002002 0 1 0 002
1153 000571 0 116141 4 7 0141
1154 000572 0 114536 4 6 0536
1155 000573 0 002266 0 1 0 266 GOSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
1156 000574 0 177631 7 7 3 11 11
1157 000575 0 114577 4 6 0577 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1158 000576 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
1159
1160 ERLOOP TST ^SALL
1161 000577 0 002003 0 1 0 003
1162 000600 0 116141 4 7 0141
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 4-1
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
1163 000601 0 114536 4 6 0536
1164 000602 0 002300 0 1 0 300 GOSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
1165 000603 0 177631 7 7 3 11 11
1166 000604 0 114606 4 6 0606 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1167 000605 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
1168
1169 ERLOOP TST ^SALL
1170 000606 0 002004 0 1 0 004
1171 000607 0 116141 4 7 0141
1172 000610 0 114536 4 6 0536
1173 000611 0 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
1174 000612 0 116256 4 7 0256
1175
1176 ERRLOP TST ^SALL
1177 000613 0 114536 4 6 0536
1178 000614 0 116264 4 7 0264 REPEAT TST
1179 000615 0 114536 4 6 0536
1180
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 5
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
1181 TEST 251,TEST READ INDUSTRY COMPATIBLE REVERSE FORMATTING 3
1182 ;***********************************************************************
1183 ;* MCODE6 * TEST 251 * TEST READ INDUSTRY COMPATIBLE REVERSE FORMATTING 3
1184 ;***********************************************************************
1185 SALL
1186 000616 0 002373 0 1 0 373
1187 000617 0 116045 4 7 0045
1188
1189 000620 TST251: SALL
1190
1191 ;*READ FOUR 18-BIT WORDS (SEVEN DATA BYTES WITH ONE ZERO BYTE PRE-PADDED)
1192
1193 000620 0 002065 0 1 0 065 LDBR ^D53 ;SET DATA PATTERN NUMBER
1194 000621 0 072011 3 5 0 00 11 MOVB AC0
1195 000622 0 002004 0 1 0 004 LDBR 4 ;SET 18-BIT WORD CNT
1196 000623 0 072111 3 5 0 04 11 MOVB AC4
1197 000624 0 002007 0 1 0 007 LDBR ^D7 ;SET BYTE CNT
1198 000625 0 072051 3 5 0 02 11 MOVB AC2
1199 000626 0 002021 0 1 0 021 LDBR RINCR3 ;SET ROM PROGRAM START ADDRESS
1200 000627 0 072071 3 5 0 03 11 MOVB AC3
1201 000630 0 002260 0 1 0 260 GOSUB RRDSEQ ;GO RUN THE PROGRAM
1202 000631 0 177231 7 7 2 11 11
1203 000632 0 114634 4 6 0634 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
1204 000633 0 116104 4 7 0104 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
1205
1206 ERLOOP TST ^SALL
1207 000634 0 002200 0 1 0 200
1208 000635 0 116141 4 7 0141
1209 000636 0 114620 4 6 0620
1210 000637 0 002365 0 1 0 365 GOSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
1211 000640 0 177231 7 7 2 11 11
1212 000641 0 114643 4 6 0643 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
1213 000642 0 116104 4 7 0104 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
1214
1215 ERLOOP TST ^SALL
1216 000643 0 002001 0 1 0 001
1217 000644 0 116141 4 7 0141
1218 000645 0 114620 4 6 0620
1219 000646 0 002261 0 1 0 261 GOSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
1220 000647 0 177631 7 7 3 11 11
1221 000650 0 114652 4 6 0652 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1222 000651 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
1223
1224 ERLOOP TST ^SALL
1225 000652 0 002002 0 1 0 002
1226 000653 0 116141 4 7 0141
1227 000654 0 114620 4 6 0620
1228 000655 0 002266 0 1 0 266 GOSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
1229 000656 0 177631 7 7 3 11 11
1230 000657 0 114661 4 6 0661 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1231 000660 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
1232
1233 ERLOOP TST ^SALL
1234 000661 0 002003 0 1 0 003
1235 000662 0 116141 4 7 0141
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 5-1
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
1236 000663 0 114620 4 6 0620
1237 000664 0 002300 0 1 0 300 GOSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
1238 000665 0 177631 7 7 3 11 11
1239 000666 0 114670 4 6 0670 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1240 000667 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
1241
1242 ERLOOP TST ^SALL
1243 000670 0 002004 0 1 0 004
1244 000671 0 116141 4 7 0141
1245 000672 0 114620 4 6 0620
1246 000673 0 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
1247 000674 0 116256 4 7 0256
1248
1249 ERRLOP TST ^SALL
1250 000675 0 114620 4 6 0620
1251 000676 0 116264 4 7 0264 REPEAT TST
1252 000677 0 114620 4 6 0620
1253
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 6
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
1254 TEST 252,TEST READ INDUSTRY COMPATIBLE REVERSE FORMATTING 4
1255 ;***********************************************************************
1256 ;* MCODE6 * TEST 252 * TEST READ INDUSTRY COMPATIBLE REVERSE FORMATTING 4
1257 ;***********************************************************************
1258 SALL
1259 000700 0 002374 0 1 0 374
1260 000701 0 116045 4 7 0045
1261
1262 000702 TST252: SALL
1263
1264 ;*READ FOUR 18-BIT WORDS (EIGHT DATA BYTES WITH NO PRE-PADDING)
1265
1266 000702 0 002066 0 1 0 066 LDBR ^D54 ;SET DATA PATTERN NUMBER
1267 000703 0 072011 3 5 0 00 11 MOVB AC0
1268 000704 0 002004 0 1 0 004 LDBR 4 ;SET 18-BIT WORD CNT
1269 000705 0 072111 3 5 0 04 11 MOVB AC4
1270 000706 0 002010 0 1 0 010 LDBR ^D8 ;SET BYTE CNT
1271 000707 0 072051 3 5 0 02 11 MOVB AC2
1272 000710 0 002020 0 1 0 020 LDBR RINCR4 ;SET ROM PROGRAM START ADDRESS
1273 000711 0 072071 3 5 0 03 11 MOVB AC3
1274 000712 0 002260 0 1 0 260 GOSUB RRDSEQ ;GO RUN THE PROGRAM
1275 000713 0 177231 7 7 2 11 11
1276 000714 0 114716 4 6 0716 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
1277 000715 0 116104 4 7 0104 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
1278
1279 ERLOOP TST ^SALL
1280 000716 0 002200 0 1 0 200
1281 000717 0 116141 4 7 0141
1282 000720 0 114702 4 6 0702
1283 000721 0 002365 0 1 0 365 GOSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
1284 000722 0 177231 7 7 2 11 11
1285 000723 0 114725 4 6 0725 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
1286 000724 0 116104 4 7 0104 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
1287
1288 ERLOOP TST ^SALL
1289 000725 0 002001 0 1 0 001
1290 000726 0 116141 4 7 0141
1291 000727 0 114702 4 6 0702
1292 000730 0 002261 0 1 0 261 GOSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
1293 000731 0 177631 7 7 3 11 11
1294 000732 0 114734 4 6 0734 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1295 000733 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
1296
1297 ERLOOP TST ^SALL
1298 000734 0 002002 0 1 0 002
1299 000735 0 116141 4 7 0141
1300 000736 0 114702 4 6 0702
1301 000737 0 002266 0 1 0 266 GOSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
1302 000740 0 177631 7 7 3 11 11
1303 000741 0 114743 4 6 0743 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1304 000742 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
1305
1306 ERLOOP TST ^SALL
1307 000743 0 002003 0 1 0 003
1308 000744 0 116141 4 7 0141
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 6-1
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
1309 000745 0 114702 4 6 0702
1310 000746 0 002300 0 1 0 300 GOSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
1311 000747 0 177631 7 7 3 11 11
1312 000750 0 114752 4 6 0752 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1313 000751 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
1314
1315 ERLOOP TST ^SALL
1316 000752 0 002004 0 1 0 004
1317 000753 0 116141 4 7 0141
1318 000754 0 114702 4 6 0702
1319 000755 0 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
1320 000756 0 116256 4 7 0256
1321
1322 ERRLOP TST ^SALL
1323 000757 0 114702 4 6 0702
1324 000760 0 116264 4 7 0264 REPEAT TST
1325 000761 0 114702 4 6 0702
1326
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 7
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
1327 TEST 253,TEST WRITE CORE DUMP FORMATTING
1328 ;***********************************************************************
1329 ;* MCODE6 * TEST 253 * TEST WRITE CORE DUMP FORMATTING
1330 ;***********************************************************************
1331 SALL
1332 000762 0 002375 0 1 0 375
1333 000763 0 116045 4 7 0045
1334
1335 000764 TST253: SALL
1336
1337 ;*WRITE FOUR 18-BIT WORDS (TEN BYTES)
1338
1339 000764 0 002054 0 1 0 054 LDBR ^D44 ;SET DATA PATTERN NUMBER
1340 000765 0 072011 3 5 0 00 11 MOVB AC0
1341 000766 0 002004 0 1 0 004 LDBR 4 ;SET 18-BIT WORD CNT
1342 000767 0 072111 3 5 0 04 11 MOVB AC4
1343 000770 0 002012 0 1 0 012 LDBR ^D10 ;SET BYTE CNT
1344 000771 0 072051 3 5 0 02 11 MOVB AC2
1345 000772 0 002030 0 1 0 030 LDBR WCDMP ;SET ROM PROGRAM START ADDRESS
1346 000773 0 072071 3 5 0 03 11 MOVB AC3
1347 000774 0 002066 0 1 0 066 LDBR CRDMP ;SETUP ADDR OF EXPECTED TEST DATA
1348 000775 0 072031 3 5 0 01 11 MOVB AC1
1349 000776 0 002011 0 1 0 011 GOSUB WRSEQ ;GO RUN THE PROGRAM
1350 000777 0 177631 7 7 3 11 11
1351 001000 0 115002 4 6 1002 JMPZ .+2 ;JUMP IF NO ERRORS IN XFER
1352 001001 0 116104 4 7 0104 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE WRITE,,PNT
1353
1354 ERLOOP TST ^SALL
1355 001002 0 002200 0 1 0 200
1356 001003 0 116141 4 7 0141
1357 001004 0 114764 4 6 0764
1358 001005 0 002041 0 1 0 041 CHKTRM TST,RH20 ERROR DETECTED DURING WRITE XFER
1359 001006 0 116256 4 7 0256
1360
1361 ERRLOP TST ^SALL
1362 001007 0 114764 4 6 0764
1363 001010 0 002261 0 1 0 261 GOSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
1364 001011 0 177631 7 7 3 11 11
1365 001012 0 115014 4 6 1014 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1366 001013 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
1367
1368 ERLOOP TST ^SALL
1369 001014 0 002002 0 1 0 002
1370 001015 0 116141 4 7 0141
1371 001016 0 114764 4 6 0764
1372 001017 0 002266 0 1 0 266 GOSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
1373 001020 0 177631 7 7 3 11 11
1374 001021 0 115023 4 6 1023 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1375 001022 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
1376
1377 ERLOOP TST ^SALL
1378 001023 0 002003 0 1 0 003
1379 001024 0 116141 4 7 0141
1380 001025 0 114764 4 6 0764
1381 001026 0 002300 0 1 0 300 GOSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 7-1
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
1382 001027 0 177631 7 7 3 11 11
1383 001030 0 115032 4 6 1032 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1384 001031 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
1385
1386 ERLOOP TST ^SALL
1387 001032 0 002004 0 1 0 004
1388 001033 0 116141 4 7 0141
1389 001034 0 114764 4 6 0764
1390 001035 0 002126 0 1 0 126 GOSUB CHKDAT ;GO CHECK THE DATA RECEIVED AT CHANNEL BUS
1391 001036 0 177631 7 7 3 11 11
1392 001037 0 115041 4 6 1041 JMPZ .+2 ;JUMP IF NO ERRORS IN DATA
1393 001040 0 116104 4 7 0104 ERRORD TST,DATA ERROR IN WRITTEN DATA
1394
1395 ERLOOP TST ^SALL
1396 001041 0 002045 0 1 0 045
1397 001042 0 116173 4 7 0173
1398 001043 0 114764 4 6 0764
1399 001044 0 116264 4 7 0264 REPEAT TST
1400 001045 0 114764 4 6 0764
1401
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 8
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
1402 TEST 254,TEST READ CORE DUMP FORWARD FORMATTING
1403 ;***********************************************************************
1404 ;* MCODE6 * TEST 254 * TEST READ CORE DUMP FORWARD FORMATTING
1405 ;***********************************************************************
1406 SALL
1407 001046 0 002376 0 1 0 376
1408 001047 0 116045 4 7 0045
1409
1410 001050 TST254: SALL
1411
1412 ;*READ FOUR 18-BIT WORDS (TEN BYTES)
1413
1414 001050 0 002054 0 1 0 054 LDBR ^D44 ;SET DATA PATTERN NUMBER
1415 001051 0 072011 3 5 0 00 11 MOVB AC0
1416 001052 0 002004 0 1 0 004 LDBR 4 ;SET 18-BIT WORD CNT
1417 001053 0 072111 3 5 0 04 11 MOVB AC4
1418 001054 0 002012 0 1 0 012 LDBR ^D10 ;SET BYTE CNT
1419 001055 0 072051 3 5 0 02 11 MOVB AC2
1420 001056 0 002040 0 1 0 040 LDBR RCDMPF ;SET ROM PROGRAM START ADDRESS
1421 001057 0 072071 3 5 0 03 11 MOVB AC3
1422 001060 0 002263 0 1 0 263 GOSUB RDSEQ ;GO RUN THE PROGRAM
1423 001061 0 177231 7 7 2 11 11
1424 001062 0 115064 4 6 1064 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
1425 001063 0 116104 4 7 0104 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
1426
1427 ERLOOP TST ^SALL
1428 001064 0 002200 0 1 0 200
1429 001065 0 116141 4 7 0141
1430 001066 0 115050 4 6 1050
1431 001067 0 002365 0 1 0 365 GOSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
1432 001070 0 177231 7 7 2 11 11
1433 001071 0 115073 4 6 1073 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
1434 001072 0 116104 4 7 0104 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
1435
1436 ERLOOP TST ^SALL
1437 001073 0 002001 0 1 0 001
1438 001074 0 116141 4 7 0141
1439 001075 0 115050 4 6 1050
1440 001076 0 002261 0 1 0 261 GOSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
1441 001077 0 177631 7 7 3 11 11
1442 001100 0 115102 4 6 1102 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1443 001101 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
1444
1445 ERLOOP TST ^SALL
1446 001102 0 002002 0 1 0 002
1447 001103 0 116141 4 7 0141
1448 001104 0 115050 4 6 1050
1449 001105 0 002266 0 1 0 266 GOSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
1450 001106 0 177631 7 7 3 11 11
1451 001107 0 115111 4 6 1111 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1452 001110 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
1453
1454 ERLOOP TST ^SALL
1455 001111 0 002003 0 1 0 003
1456 001112 0 116141 4 7 0141
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 8-1
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
1457 001113 0 115050 4 6 1050
1458 001114 0 002300 0 1 0 300 GOSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
1459 001115 0 177631 7 7 3 11 11
1460 001116 0 115120 4 6 1120 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1461 001117 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
1462
1463 ERLOOP TST ^SALL
1464 001120 0 002004 0 1 0 004
1465 001121 0 116141 4 7 0141
1466 001122 0 115050 4 6 1050
1467 001123 0 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
1468 001124 0 116256 4 7 0256
1469
1470 ERRLOP TST ^SALL
1471 001125 0 115050 4 6 1050
1472 001126 0 116264 4 7 0264 REPEAT TST
1473 001127 0 115050 4 6 1050
1474
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 9
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
1475 TEST 255,TEST READ CORE DUMP REVERSE FORMATTING 1
1476 ;***********************************************************************
1477 ;* MCODE6 * TEST 255 * TEST READ CORE DUMP REVERSE FORMATTING 1
1478 ;***********************************************************************
1479 SALL
1480 001130 0 002377 0 1 0 377
1481 001131 0 116045 4 7 0045
1482
1483 001132 TST255: SALL
1484
1485 ;*READ FOUR 18-BIT WORDS (SIX DATA BYTES WITH FOUR ZERO BYTES PRE-PADDED)
1486
1487 001132 0 002067 0 1 0 067 LDBR ^D55 ;SET DATA PATTERN NUMBER
1488 001133 0 072011 3 5 0 00 11 MOVB AC0
1489 001134 0 002004 0 1 0 004 LDBR 4 ;SET 18-BIT WORD CNT
1490 001135 0 072111 3 5 0 04 11 MOVB AC4
1491 001136 0 002006 0 1 0 006 LDBR ^D6 ;SET BYTE CNT
1492 001137 0 072051 3 5 0 02 11 MOVB AC2
1493 001140 0 002057 0 1 0 057 LDBR RCDMR1 ;SET ROM PROGRAM START ADDRESS
1494 001141 0 072071 3 5 0 03 11 MOVB AC3
1495 001142 0 002260 0 1 0 260 GOSUB RRDSEQ ;GO RUN THE PROGRAM
1496 001143 0 177231 7 7 2 11 11
1497 001144 0 115146 4 6 1146 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
1498 001145 0 116104 4 7 0104 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
1499
1500 ERLOOP TST ^SALL
1501 001146 0 002200 0 1 0 200
1502 001147 0 116141 4 7 0141
1503 001150 0 115132 4 6 1132
1504 001151 0 002365 0 1 0 365 GOSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
1505 001152 0 177231 7 7 2 11 11
1506 001153 0 115155 4 6 1155 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
1507 001154 0 116104 4 7 0104 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
1508
1509 ERLOOP TST ^SALL
1510 001155 0 002001 0 1 0 001
1511 001156 0 116141 4 7 0141
1512 001157 0 115132 4 6 1132
1513 001160 0 002261 0 1 0 261 GOSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
1514 001161 0 177631 7 7 3 11 11
1515 001162 0 115164 4 6 1164 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1516 001163 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
1517
1518 ERLOOP TST ^SALL
1519 001164 0 002002 0 1 0 002
1520 001165 0 116141 4 7 0141
1521 001166 0 115132 4 6 1132
1522 001167 0 002266 0 1 0 266 GOSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
1523 001170 0 177631 7 7 3 11 11
1524 001171 0 115173 4 6 1173 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1525 001172 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
1526
1527 ERLOOP TST ^SALL
1528 001173 0 002003 0 1 0 003
1529 001174 0 116141 4 7 0141
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 9-1
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
1530 001175 0 115132 4 6 1132
1531 001176 0 002300 0 1 0 300 GOSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
1532 001177 0 177631 7 7 3 11 11
1533 001200 0 115202 4 6 1202 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1534 001201 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
1535
1536 ERLOOP TST ^SALL
1537 001202 0 002004 0 1 0 004
1538 001203 0 116141 4 7 0141
1539 001204 0 115132 4 6 1132
1540 001205 0 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
1541 001206 0 116256 4 7 0256
1542
1543 ERRLOP TST ^SALL
1544 001207 0 115132 4 6 1132
1545 001210 0 116264 4 7 0264 REPEAT TST
1546 001211 0 115132 4 6 1132
1547
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 10
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
1548 TEST 256,TEST READ CORE DUMP REVERSE FORMATTING 2
1549 ;***********************************************************************
1550 ;* MCODE6 * TEST 256 * TEST READ CORE DUMP REVERSE FORMATTING 2
1551 ;***********************************************************************
1552 SALL
1553 001212 0 132157 5 5 0 06 17
1554 001213 0 002011 0 1 0 011
1555 001214 0 066371 3 3 0 17 11
1556 001215 0 002001 0 1 0 001
1557 001216 0 064231 3 2 0 11 11
1558 001217 0 062150 3 1 0 06 10
1559 001220 0 066371 3 3 0 17 11
1560 001221 0 002000 0 1 0 000
1561 001222 0 116045 4 7 0045
1562
1563 001223 TST256: SALL
1564
1565 ;*READ FOUR 18-BIT WORDS (SEVEN DATA BYTES WITH THREE ZERO BYTES PRE-PADDED)
1566
1567 001223 0 002070 0 1 0 070 LDBR ^D56 ;SET DATA PATTERN NUMBER
1568 001224 0 072011 3 5 0 00 11 MOVB AC0
1569 001225 0 002004 0 1 0 004 LDBR 4 ;SET 18-BIT WORD CNT
1570 001226 0 072111 3 5 0 04 11 MOVB AC4
1571 001227 0 002007 0 1 0 007 LDBR ^D7 ;SET BYTE CNT
1572 001230 0 072051 3 5 0 02 11 MOVB AC2
1573 001231 0 002053 0 1 0 053 LDBR RCDMR2 ;SET ROM PROGRAM START ADDRESS
1574 001232 0 072071 3 5 0 03 11 MOVB AC3
1575 001233 0 002260 0 1 0 260 GOSUB RRDSEQ ;GO RUN THE PROGRAM
1576 001234 0 177231 7 7 2 11 11
1577 001235 0 115237 4 6 1237 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
1578 001236 0 116104 4 7 0104 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
1579
1580 ERLOOP TST ^SALL
1581 001237 0 002200 0 1 0 200
1582 001240 0 116141 4 7 0141
1583 001241 0 115223 4 6 1223
1584 001242 0 002365 0 1 0 365 GOSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
1585 001243 0 177231 7 7 2 11 11
1586 001244 0 115246 4 6 1246 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
1587 001245 0 116104 4 7 0104 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
1588
1589 ERLOOP TST ^SALL
1590 001246 0 002001 0 1 0 001
1591 001247 0 116141 4 7 0141
1592 001250 0 115223 4 6 1223
1593 001251 0 002261 0 1 0 261 GOSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
1594 001252 0 177631 7 7 3 11 11
1595 001253 0 115255 4 6 1255 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1596 001254 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
1597
1598 ERLOOP TST ^SALL
1599 001255 0 002002 0 1 0 002
1600 001256 0 116141 4 7 0141
1601 001257 0 115223 4 6 1223
1602 001260 0 002266 0 1 0 266 GOSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 10-1
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
1603 001261 0 177631 7 7 3 11 11
1604 001262 0 115264 4 6 1264 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1605 001263 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
1606
1607 ERLOOP TST ^SALL
1608 001264 0 002003 0 1 0 003
1609 001265 0 116141 4 7 0141
1610 001266 0 115223 4 6 1223
1611 001267 0 002300 0 1 0 300 GOSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
1612 001270 0 177631 7 7 3 11 11
1613 001271 0 115273 4 6 1273 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1614 001272 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
1615
1616 ERLOOP TST ^SALL
1617 001273 0 002004 0 1 0 004
1618 001274 0 116141 4 7 0141
1619 001275 0 115223 4 6 1223
1620 001276 0 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
1621 001277 0 116256 4 7 0256
1622
1623 ERRLOP TST ^SALL
1624 001300 0 115223 4 6 1223
1625 001301 0 116264 4 7 0264 REPEAT TST
1626 001302 0 115223 4 6 1223
1627
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 11
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
1628 TEST 257,TEST READ CORE DUMP REVERSE FORMATTING 3
1629 ;***********************************************************************
1630 ;* MCODE6 * TEST 257 * TEST READ CORE DUMP REVERSE FORMATTING 3
1631 ;***********************************************************************
1632 SALL
1633 001303 0 002001 0 1 0 001
1634 001304 0 116045 4 7 0045
1635
1636 001305 TST257: SALL
1637
1638 ;*READ FOUR 18-BIT WORDS (EIGHT DATA BYTES WITH TWO ZERO BYTES PRE-PADDED)
1639
1640 001305 0 002071 0 1 0 071 LDBR ^D57 ;SET DATA PATTERN NUMBER
1641 001306 0 072011 3 5 0 00 11 MOVB AC0
1642 001307 0 002004 0 1 0 004 LDBR 4 ;SET 18-BIT WORD CNT
1643 001310 0 072111 3 5 0 04 11 MOVB AC4
1644 001311 0 002010 0 1 0 010 LDBR ^D8 ;SET BYTE CNT
1645 001312 0 072051 3 5 0 02 11 MOVB AC2
1646 001313 0 002052 0 1 0 052 LDBR RCDMR3 ;SET ROM PROGRAM START ADDRESS
1647 001314 0 072071 3 5 0 03 11 MOVB AC3
1648 001315 0 002260 0 1 0 260 GOSUB RRDSEQ ;GO RUN THE PROGRAM
1649 001316 0 177231 7 7 2 11 11
1650 001317 0 115321 4 6 1321 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
1651 001320 0 116104 4 7 0104 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
1652
1653 ERLOOP TST ^SALL
1654 001321 0 002200 0 1 0 200
1655 001322 0 116141 4 7 0141
1656 001323 0 115305 4 6 1305
1657 001324 0 002365 0 1 0 365 GOSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
1658 001325 0 177231 7 7 2 11 11
1659 001326 0 115330 4 6 1330 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
1660 001327 0 116104 4 7 0104 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
1661
1662 ERLOOP TST ^SALL
1663 001330 0 002001 0 1 0 001
1664 001331 0 116141 4 7 0141
1665 001332 0 115305 4 6 1305
1666 001333 0 002261 0 1 0 261 GOSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
1667 001334 0 177631 7 7 3 11 11
1668 001335 0 115337 4 6 1337 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1669 001336 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
1670
1671 ERLOOP TST ^SALL
1672 001337 0 002002 0 1 0 002
1673 001340 0 116141 4 7 0141
1674 001341 0 115305 4 6 1305
1675 001342 0 002266 0 1 0 266 GOSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
1676 001343 0 177631 7 7 3 11 11
1677 001344 0 115346 4 6 1346 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1678 001345 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
1679
1680 ERLOOP TST ^SALL
1681 001346 0 002003 0 1 0 003
1682 001347 0 116141 4 7 0141
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 11-1
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
1683 001350 0 115305 4 6 1305
1684 001351 0 002300 0 1 0 300 GOSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
1685 001352 0 177631 7 7 3 11 11
1686 001353 0 115355 4 6 1355 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1687 001354 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
1688
1689 ERLOOP TST ^SALL
1690 001355 0 002004 0 1 0 004
1691 001356 0 116141 4 7 0141
1692 001357 0 115305 4 6 1305
1693 001360 0 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
1694 001361 0 116256 4 7 0256
1695
1696 ERRLOP TST ^SALL
1697 001362 0 115305 4 6 1305
1698 001363 0 116264 4 7 0264 REPEAT TST
1699 001364 0 115305 4 6 1305
1700
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 12
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
1701 TEST 258,TEST READ CORE DUMP REVERSE FORMATTING 4
1702 ;***********************************************************************
1703 ;* MCODE6 * TEST 258 * TEST READ CORE DUMP REVERSE FORMATTING 4
1704 ;***********************************************************************
1705 SALL
1706 001365 0 002002 0 1 0 002
1707 001366 0 116045 4 7 0045
1708
1709 001367 TST258: SALL
1710
1711 ;*READ FOUR 18-BIT WORDS (NINE DATA BYTES WITH ONE ZERO BYTES PRE-PADDED)
1712
1713 001367 0 002072 0 1 0 072 LDBR ^D58 ;SET DATA PATTERN NUMBER
1714 001370 0 072011 3 5 0 00 11 MOVB AC0
1715 001371 0 002004 0 1 0 004 LDBR 4 ;SET 18-BIT WORD CNT
1716 001372 0 072111 3 5 0 04 11 MOVB AC4
1717 001373 0 002011 0 1 0 011 LDBR ^D9 ;SET BYTE CNT
1718 001374 0 072051 3 5 0 02 11 MOVB AC2
1719 001375 0 002051 0 1 0 051 LDBR RCDMR4 ;SET ROM PROGRAM START ADDRESS
1720 001376 0 072071 3 5 0 03 11 MOVB AC3
1721 001377 0 002260 0 1 0 260 GOSUB RRDSEQ ;GO RUN THE PROGRAM
1722 001400 0 177231 7 7 2 11 11
1723 001401 0 115403 4 6 1403 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
1724 001402 0 116104 4 7 0104 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
1725
1726 ERLOOP TST ^SALL
1727 001403 0 002200 0 1 0 200
1728 001404 0 116141 4 7 0141
1729 001405 0 115367 4 6 1367
1730 001406 0 002365 0 1 0 365 GOSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
1731 001407 0 177231 7 7 2 11 11
1732 001410 0 115412 4 6 1412 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
1733 001411 0 116104 4 7 0104 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
1734
1735 ERLOOP TST ^SALL
1736 001412 0 002001 0 1 0 001
1737 001413 0 116141 4 7 0141
1738 001414 0 115367 4 6 1367
1739 001415 0 002261 0 1 0 261 GOSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
1740 001416 0 177631 7 7 3 11 11
1741 001417 0 115421 4 6 1421 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1742 001420 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
1743
1744 ERLOOP TST ^SALL
1745 001421 0 002002 0 1 0 002
1746 001422 0 116141 4 7 0141
1747 001423 0 115367 4 6 1367
1748 001424 0 002266 0 1 0 266 GOSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
1749 001425 0 177631 7 7 3 11 11
1750 001426 0 115430 4 6 1430 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1751 001427 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
1752
1753 ERLOOP TST ^SALL
1754 001430 0 002003 0 1 0 003
1755 001431 0 116141 4 7 0141
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 12-1
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
1756 001432 0 115367 4 6 1367
1757 001433 0 002300 0 1 0 300 GOSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
1758 001434 0 177631 7 7 3 11 11
1759 001435 0 115437 4 6 1437 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1760 001436 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
1761
1762 ERLOOP TST ^SALL
1763 001437 0 002004 0 1 0 004
1764 001440 0 116141 4 7 0141
1765 001441 0 115367 4 6 1367
1766 001442 0 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
1767 001443 0 116256 4 7 0256
1768
1769 ERRLOP TST ^SALL
1770 001444 0 115367 4 6 1367
1771 001445 0 116264 4 7 0264 REPEAT TST
1772 001446 0 115367 4 6 1367
1773
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 13
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
1774 TEST 259,TEST READ CORE DUMP REVERSE FORMATTING 5
1775 ;***********************************************************************
1776 ;* MCODE6 * TEST 259 * TEST READ CORE DUMP REVERSE FORMATTING 5
1777 ;***********************************************************************
1778 SALL
1779 001447 0 002003 0 1 0 003
1780 001450 0 116045 4 7 0045
1781
1782 001451 TST259: SALL
1783
1784 ;*READ FOUR 18-BIT WORDS (TEN DATA BYTES WITH NO PRE-PADDING)
1785
1786 001451 0 002073 0 1 0 073 LDBR ^D59 ;SET DATA PATTERN NUMBER
1787 001452 0 072011 3 5 0 00 11 MOVB AC0
1788 001453 0 002004 0 1 0 004 LDBR 4 ;SET 18-BIT WORD CNT
1789 001454 0 072111 3 5 0 04 11 MOVB AC4
1790 001455 0 002012 0 1 0 012 LDBR ^D10 ;SET BYTE CNT
1791 001456 0 072051 3 5 0 02 11 MOVB AC2
1792 001457 0 002050 0 1 0 050 LDBR RCDMR5 ;SET ROM PROGRAM START ADDRESS
1793 001460 0 072071 3 5 0 03 11 MOVB AC3
1794 001461 0 002260 0 1 0 260 GOSUB RRDSEQ ;GO RUN THE PROGRAM
1795 001462 0 177231 7 7 2 11 11
1796 001463 0 115465 4 6 1465 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
1797 001464 0 116104 4 7 0104 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
1798
1799 ERLOOP TST ^SALL
1800 001465 0 002200 0 1 0 200
1801 001466 0 116141 4 7 0141
1802 001467 0 115451 4 6 1451
1803 001470 0 002365 0 1 0 365 GOSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
1804 001471 0 177231 7 7 2 11 11
1805 001472 0 115474 4 6 1474 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
1806 001473 0 116104 4 7 0104 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
1807
1808 ERLOOP TST ^SALL
1809 001474 0 002001 0 1 0 001
1810 001475 0 116141 4 7 0141
1811 001476 0 115451 4 6 1451
1812 001477 0 002261 0 1 0 261 GOSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
1813 001500 0 177631 7 7 3 11 11
1814 001501 0 115503 4 6 1503 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1815 001502 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
1816
1817 ERLOOP TST ^SALL
1818 001503 0 002002 0 1 0 002
1819 001504 0 116141 4 7 0141
1820 001505 0 115451 4 6 1451
1821 001506 0 002266 0 1 0 266 GOSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
1822 001507 0 177631 7 7 3 11 11
1823 001510 0 115512 4 6 1512 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1824 001511 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
1825
1826 ERLOOP TST ^SALL
1827 001512 0 002003 0 1 0 003
1828 001513 0 116141 4 7 0141
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 13-1
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
1829 001514 0 115451 4 6 1451
1830 001515 0 002300 0 1 0 300 GOSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
1831 001516 0 177631 7 7 3 11 11
1832 001517 0 115521 4 6 1521 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1833 001520 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
1834
1835 ERLOOP TST ^SALL
1836 001521 0 002004 0 1 0 004
1837 001522 0 116141 4 7 0141
1838 001523 0 115451 4 6 1451
1839 001524 0 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
1840 001525 0 116256 4 7 0256
1841
1842 ERRLOP TST ^SALL
1843 001526 0 115451 4 6 1451
1844 001527 0 116264 4 7 0264 REPEAT TST
1845 001530 0 115451 4 6 1451
1846
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 14
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
1847 TEST 260,TEST WRITE HIGH DENSITY FORMATTING
1848 ;***********************************************************************
1849 ;* MCODE6 * TEST 260 * TEST WRITE HIGH DENSITY FORMATTING
1850 ;***********************************************************************
1851 SALL
1852 001531 0 002004 0 1 0 004
1853 001532 0 116045 4 7 0045
1854
1855 001533 TST260: SALL
1856
1857 ;*WRITE EIGHT 18-BIT WORDS (EIGHTEEN BYTES)
1858
1859 001533 0 002055 0 1 0 055 LDBR ^D45 ;SET DATA PATTERN NUMBER
1860 001534 0 072011 3 5 0 00 11 MOVB AC0
1861 001535 0 002010 0 1 0 010 LDBR ^D8 ;SET 18-BIT WORD CNT
1862 001536 0 072111 3 5 0 04 11 MOVB AC4
1863 001537 0 002022 0 1 0 022 LDBR ^D18 ;SET BYTE CNT
1864 001540 0 072051 3 5 0 02 11 MOVB AC2
1865 001541 0 002060 0 1 0 060 LDBR WHIDN ;SET ROM PROGRAM START ADDRESS
1866 001542 0 072071 3 5 0 03 11 MOVB AC3
1867 001543 0 002034 0 1 0 034 LDBR TSTDAT ;SETUP ADDR OF EXPECTED TEST DATA
1868 001544 0 072031 3 5 0 01 11 MOVB AC1
1869 001545 0 002011 0 1 0 011 GOSUB WRSEQ ;GO RUN THE PROGRAM
1870 001546 0 177631 7 7 3 11 11
1871 001547 0 115551 4 6 1551 JMPZ .+2 ;JUMP IF NO ERRORS IN XFER
1872 001550 0 116104 4 7 0104 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE WRITE,,PNT
1873
1874 ERLOOP TST ^SALL
1875 001551 0 002200 0 1 0 200
1876 001552 0 116141 4 7 0141
1877 001553 0 115533 4 6 1533
1878 001554 0 002041 0 1 0 041 CHKTRM TST,RH20 ERROR DETECTED DURING WRITE XFER
1879 001555 0 116256 4 7 0256
1880
1881 ERRLOP TST ^SALL
1882 001556 0 115533 4 6 1533
1883 001557 0 002261 0 1 0 261 GOSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
1884 001560 0 177631 7 7 3 11 11
1885 001561 0 115563 4 6 1563 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1886 001562 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
1887
1888 ERLOOP TST ^SALL
1889 001563 0 002002 0 1 0 002
1890 001564 0 116141 4 7 0141
1891 001565 0 115533 4 6 1533
1892 001566 0 002266 0 1 0 266 GOSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
1893 001567 0 177631 7 7 3 11 11
1894 001570 0 115572 4 6 1572 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1895 001571 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
1896
1897 ERLOOP TST ^SALL
1898 001572 0 002003 0 1 0 003
1899 001573 0 116141 4 7 0141
1900 001574 0 115533 4 6 1533
1901 001575 0 002300 0 1 0 300 GOSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 14-1
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
1902 001576 0 177631 7 7 3 11 11
1903 001577 0 115601 4 6 1601 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1904 001600 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
1905
1906 ERLOOP TST ^SALL
1907 001601 0 002004 0 1 0 004
1908 001602 0 116141 4 7 0141
1909 001603 0 115533 4 6 1533
1910 001604 0 002126 0 1 0 126 GOSUB CHKDAT ;GO CHECK THE DATA RECEIVED AT CHANNEL BUS
1911 001605 0 177631 7 7 3 11 11
1912 001606 0 115610 4 6 1610 JMPZ .+2 ;JUMP IF NO ERRORS IN DATA
1913 001607 0 116104 4 7 0104 ERRORD TST,DATA ERROR IN WRITTEN DATA
1914
1915 ERLOOP TST ^SALL
1916 001610 0 002045 0 1 0 045
1917 001611 0 116173 4 7 0173
1918 001612 0 115533 4 6 1533
1919 001613 0 116264 4 7 0264 REPEAT TST
1920 001614 0 115533 4 6 1533
1921
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 15
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
1922 TEST 261,TEST READ HIGH DENSITY FORWARD FORMATTING
1923 ;***********************************************************************
1924 ;* MCODE6 * TEST 261 * TEST READ HIGH DENSITY FORWARD FORMATTING
1925 ;***********************************************************************
1926 SALL
1927 001615 0 002005 0 1 0 005
1928 001616 0 116045 4 7 0045
1929
1930 001617 TST261: SALL
1931
1932 ;*READ EIGHT 18-BIT WORDS (EIGHTEEN BYTES)
1933
1934 001617 0 002055 0 1 0 055 LDBR ^D45 ;SET DATA PATTERN NUMBER
1935 001620 0 072011 3 5 0 00 11 MOVB AC0
1936 001621 0 002010 0 1 0 010 LDBR ^D8 ;SET 18-BIT WORD CNT
1937 001622 0 072111 3 5 0 04 11 MOVB AC4
1938 001623 0 002022 0 1 0 022 LDBR ^D18 ;SET BYTE CNT
1939 001624 0 072051 3 5 0 02 11 MOVB AC2
1940 001625 0 002100 0 1 0 100 LDBR RHIDNF ;SET ROM PROGRAM START ADDRESS
1941 001626 0 072071 3 5 0 03 11 MOVB AC3
1942 001627 0 002263 0 1 0 263 GOSUB RDSEQ ;GO RUN THE PROGRAM
1943 001630 0 177231 7 7 2 11 11
1944 001631 0 115633 4 6 1633 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
1945 001632 0 116104 4 7 0104 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
1946
1947 ERLOOP TST ^SALL
1948 001633 0 002200 0 1 0 200
1949 001634 0 116141 4 7 0141
1950 001635 0 115617 4 6 1617
1951 001636 0 002365 0 1 0 365 GOSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
1952 001637 0 177231 7 7 2 11 11
1953 001640 0 115642 4 6 1642 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
1954 001641 0 116104 4 7 0104 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
1955
1956 ERLOOP TST ^SALL
1957 001642 0 002001 0 1 0 001
1958 001643 0 116141 4 7 0141
1959 001644 0 115617 4 6 1617
1960 001645 0 002261 0 1 0 261 GOSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
1961 001646 0 177631 7 7 3 11 11
1962 001647 0 115651 4 6 1651 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1963 001650 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
1964
1965 ERLOOP TST ^SALL
1966 001651 0 002002 0 1 0 002
1967 001652 0 116141 4 7 0141
1968 001653 0 115617 4 6 1617
1969 001654 0 002266 0 1 0 266 GOSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
1970 001655 0 177631 7 7 3 11 11
1971 001656 0 115660 4 6 1660 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1972 001657 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
1973
1974 ERLOOP TST ^SALL
1975 001660 0 002003 0 1 0 003
1976 001661 0 116141 4 7 0141
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 15-1
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
1977 001662 0 115617 4 6 1617
1978 001663 0 002300 0 1 0 300 GOSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
1979 001664 0 177631 7 7 3 11 11
1980 001665 0 115667 4 6 1667 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1981 001666 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
1982
1983 ERLOOP TST ^SALL
1984 001667 0 002004 0 1 0 004
1985 001670 0 116141 4 7 0141
1986 001671 0 115617 4 6 1617
1987 001672 0 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
1988 001673 0 116256 4 7 0256
1989
1990 ERRLOP TST ^SALL
1991 001674 0 115617 4 6 1617
1992 001675 0 116264 4 7 0264 REPEAT TST
1993 001676 0 115617 4 6 1617
1994
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 16
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
1995 TEST 262,TEST READ HIGH DENSITY REVERSE FORMATTING 1
1996 ;***********************************************************************
1997 ;* MCODE6 * TEST 262 * TEST READ HIGH DENSITY REVERSE FORMATTING 1
1998 ;***********************************************************************
1999 SALL
2000 001677 0 002006 0 1 0 006
2001 001700 0 116045 4 7 0045
2002
2003 001701 TST262: SALL
2004
2005 ;*READ SIX 18-BIT WORDS (TEN DATA BYTES WITH FOUR ZERO BYTES PRE-PADDED)
2006
2007 001701 0 002074 0 1 0 074 LDBR ^D60 ;SET DATA PATTERN NUMBER
2008 001702 0 072011 3 5 0 00 11 MOVB AC0
2009 001703 0 002006 0 1 0 006 LDBR ^D6 ;SET 18-BIT WORD CNT
2010 001704 0 072111 3 5 0 04 11 MOVB AC4
2011 001705 0 002012 0 1 0 012 LDBR ^D10 ;SET BYTE CNT
2012 001706 0 072051 3 5 0 02 11 MOVB AC2
2013 001707 0 002137 0 1 0 137 LDBR RHIDR1 ;SET ROM PROGRAM START ADDRESS
2014 001710 0 072071 3 5 0 03 11 MOVB AC3
2015 001711 0 002260 0 1 0 260 GOSUB RRDSEQ ;GO RUN THE PROGRAM
2016 001712 0 177231 7 7 2 11 11
2017 001713 0 115715 4 6 1715 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
2018 001714 0 116104 4 7 0104 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
2019
2020 ERLOOP TST ^SALL
2021 001715 0 002200 0 1 0 200
2022 001716 0 116141 4 7 0141
2023 001717 0 115701 4 6 1701
2024 001720 0 002365 0 1 0 365 GOSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
2025 001721 0 177231 7 7 2 11 11
2026 001722 0 115724 4 6 1724 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
2027 001723 0 116104 4 7 0104 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
2028
2029 ERLOOP TST ^SALL
2030 001724 0 002001 0 1 0 001
2031 001725 0 116141 4 7 0141
2032 001726 0 115701 4 6 1701
2033 001727 0 002261 0 1 0 261 GOSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
2034 001730 0 177631 7 7 3 11 11
2035 001731 0 115733 4 6 1733 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2036 001732 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
2037
2038 ERLOOP TST ^SALL
2039 001733 0 002002 0 1 0 002
2040 001734 0 116141 4 7 0141
2041 001735 0 115701 4 6 1701
2042 001736 0 002266 0 1 0 266 GOSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
2043 001737 0 177631 7 7 3 11 11
2044 001740 0 115742 4 6 1742 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2045 001741 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
2046
2047 ERLOOP TST ^SALL
2048 001742 0 002003 0 1 0 003
2049 001743 0 116141 4 7 0141
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 16-1
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
2050 001744 0 115701 4 6 1701
2051 001745 0 002300 0 1 0 300 GOSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
2052 001746 0 177631 7 7 3 11 11
2053 001747 0 115751 4 6 1751 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2054 001750 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
2055
2056 ERLOOP TST ^SALL
2057 001751 0 002004 0 1 0 004
2058 001752 0 116141 4 7 0141
2059 001753 0 115701 4 6 1701
2060 001754 0 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
2061 001755 0 116256 4 7 0256
2062
2063 ERRLOP TST ^SALL
2064 001756 0 115701 4 6 1701
2065 001757 0 116264 4 7 0264 REPEAT TST
2066 001760 0 115701 4 6 1701
2067 001761 0 002000 0 1 0 000 JUMP NXTBNK ;JUMP TO NEXT BANK OF CRAM
2068 001762 0 160231 7 0 0 11 11
2069 002000 .LOC 2000
2070 002000 NXTBNK:
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 17
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
2071 TEST 263,TEST READ HIGH DENSITY REVERSE FORMATTING 2
2072 ;***********************************************************************
2073 ;* MCODE6 * TEST 263 * TEST READ HIGH DENSITY REVERSE FORMATTING 2
2074 ;***********************************************************************
2075 SALL
2076 002000 1 002007 0 1 0 007
2077 002001 1 117713 4 7 1713
2078
2079 002002 TST263: SALL
2080
2081 ;*READ SIX 18-BIT WORDS (ELEVEN DATA BYTES WITH THREE ZERO BYTES PRE-PADDED)
2082
2083 002002 1 002075 0 1 0 075 LDBR ^D61 ;SET DATA PATTERN NUMBER
2084 002003 1 072011 3 5 0 00 11 MOVB AC0
2085 002004 1 002006 0 1 0 006 LDBR ^D6 ;SET 18-BIT WORD CNT
2086 002005 1 072111 3 5 0 04 11 MOVB AC4
2087 002006 1 002013 0 1 0 013 LDBR ^D11 ;SET BYTE CNT
2088 002007 1 072051 3 5 0 02 11 MOVB AC2
2089 002010 1 002131 0 1 0 131 LDBR RHIDR2 ;SET ROM PROGRAM START ADDRESS
2090 002011 1 072071 3 5 0 03 11 MOVB AC3
2091 002012 1 002260 0 1 0 260 GOSUB RRDSEQ ;GO RUN THE PROGRAM
2092 002013 1 177231 7 7 2 11 11
2093 002014 1 114016 4 6 0016 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
2094 002015 1 117721 4 7 1721 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
2095
2096 ERLOOP TST ^SALL
2097 002016 1 002200 0 1 0 200
2098 002017 1 117716 4 7 1716
2099 002020 1 114002 4 6 0002
2100 002021 1 002365 0 1 0 365 GOSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
2101 002022 1 177231 7 7 2 11 11
2102 002023 1 114025 4 6 0025 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
2103 002024 1 117721 4 7 1721 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
2104
2105 ERLOOP TST ^SALL
2106 002025 1 002001 0 1 0 001
2107 002026 1 117716 4 7 1716
2108 002027 1 114002 4 6 0002
2109 002030 1 002261 0 1 0 261 GOSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
2110 002031 1 177631 7 7 3 11 11
2111 002032 1 114034 4 6 0034 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2112 002033 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
2113
2114 ERLOOP TST ^SALL
2115 002034 1 002002 0 1 0 002
2116 002035 1 117716 4 7 1716
2117 002036 1 114002 4 6 0002
2118 002037 1 002266 0 1 0 266 GOSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
2119 002040 1 177631 7 7 3 11 11
2120 002041 1 114043 4 6 0043 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2121 002042 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
2122
2123 ERLOOP TST ^SALL
2124 002043 1 002003 0 1 0 003
2125 002044 1 117716 4 7 1716
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 17-1
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
2126 002045 1 114002 4 6 0002
2127 002046 1 002300 0 1 0 300 GOSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
2128 002047 1 177631 7 7 3 11 11
2129 002050 1 114052 4 6 0052 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2130 002051 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
2131
2132 ERLOOP TST ^SALL
2133 002052 1 002004 0 1 0 004
2134 002053 1 117716 4 7 1716
2135 002054 1 114002 4 6 0002
2136 002055 1 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
2137 002056 1 117735 4 7 1735
2138
2139 ERRLOP TST ^SALL
2140 002057 1 114002 4 6 0002
2141 002060 1 117723 4 7 1723 REPEAT TST
2142 002061 1 114002 4 6 0002
2143
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 18
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
2144 TEST 264,TEST READ HIGH DENSITY REVERSE FORMATTING 3
2145 ;***********************************************************************
2146 ;* MCODE6 * TEST 264 * TEST READ HIGH DENSITY REVERSE FORMATTING 3
2147 ;***********************************************************************
2148 SALL
2149 002062 1 002010 0 1 0 010
2150 002063 1 117713 4 7 1713
2151
2152 002064 TST264: SALL
2153
2154 ;*READ SIX 18-BIT WORDS (TWELVE DATA BYTES WITH TWO ZERO BYTES PRE-PADDED)
2155
2156 002064 1 002076 0 1 0 076 LDBR ^D62 ;SET DATA PATTERN NUMBER
2157 002065 1 072011 3 5 0 00 11 MOVB AC0
2158 002066 1 002006 0 1 0 006 LDBR ^D6 ;SET 18-BIT WORD CNT
2159 002067 1 072111 3 5 0 04 11 MOVB AC4
2160 002070 1 002014 0 1 0 014 LDBR ^D12 ;SET BYTE CNT
2161 002071 1 072051 3 5 0 02 11 MOVB AC2
2162 002072 1 002130 0 1 0 130 LDBR RHIDR3 ;SET ROM PROGRAM START ADDRESS
2163 002073 1 072071 3 5 0 03 11 MOVB AC3
2164 002074 1 117260 4 7 1260 JMPSUB RRDSEQ ;GO RUN THE PROGRAM
2165 002075 1 114077 4 6 0077 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
2166 002076 1 117721 4 7 1721 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
2167
2168 ERLOOP TST ^SALL
2169 002077 1 002200 0 1 0 200
2170 002100 1 117716 4 7 1716
2171 002101 1 114064 4 6 0064
2172 002102 1 117365 4 7 1365 JMPSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
2173 002103 1 114105 4 6 0105 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
2174 002104 1 117721 4 7 1721 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
2175
2176 ERLOOP TST ^SALL
2177 002105 1 002001 0 1 0 001
2178 002106 1 117716 4 7 1716
2179 002107 1 114064 4 6 0064
2180 002110 1 117661 4 7 1661 JMPSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
2181 002111 1 114113 4 6 0113 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2182 002112 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
2183
2184 ERLOOP TST ^SALL
2185 002113 1 002002 0 1 0 002
2186 002114 1 117716 4 7 1716
2187 002115 1 114064 4 6 0064
2188 002116 1 117666 4 7 1666 JMPSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
2189 002117 1 114121 4 6 0121 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2190 002120 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
2191
2192 ERLOOP TST ^SALL
2193 002121 1 002003 0 1 0 003
2194 002122 1 117716 4 7 1716
2195 002123 1 114064 4 6 0064
2196 002124 1 117700 4 7 1700 JMPSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
2197 002125 1 114127 4 6 0127 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2198 002126 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 18-1
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
2199
2200 ERLOOP TST ^SALL
2201 002127 1 002004 0 1 0 004
2202 002130 1 117716 4 7 1716
2203 002131 1 114064 4 6 0064
2204 002132 1 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
2205 002133 1 117735 4 7 1735
2206
2207 ERRLOP TST ^SALL
2208 002134 1 114064 4 6 0064
2209 002135 1 117723 4 7 1723 REPEAT TST
2210 002136 1 114064 4 6 0064
2211
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 19
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
2212 TEST 265,TEST READ HIGH DENSITY REVERSE FORMATTING 4
2213 ;***********************************************************************
2214 ;* MCODE6 * TEST 265 * TEST READ HIGH DENSITY REVERSE FORMATTING 4
2215 ;***********************************************************************
2216 SALL
2217 002137 1 002011 0 1 0 011
2218 002140 1 117713 4 7 1713
2219
2220 002141 TST265: SALL
2221
2222 ;*READ SIX 18-BIT WORDS (THIRTEEN DATA BYTES WITH ONE ZERO BYTE PRE-PADDED)
2223
2224 002141 1 002077 0 1 0 077 LDBR ^D63 ;SET DATA PATTERN NUMBER
2225 002142 1 072011 3 5 0 00 11 MOVB AC0
2226 002143 1 002006 0 1 0 006 LDBR ^D6 ;SET 18-BIT WORD CNT
2227 002144 1 072111 3 5 0 04 11 MOVB AC4
2228 002145 1 002015 0 1 0 015 LDBR ^D13 ;SET BYTE CNT
2229 002146 1 072051 3 5 0 02 11 MOVB AC2
2230 002147 1 002127 0 1 0 127 LDBR RHIDR4 ;SET ROM PROGRAM START ADDRESS
2231 002150 1 072071 3 5 0 03 11 MOVB AC3
2232 002151 1 117260 4 7 1260 JMPSUB RRDSEQ ;GO RUN THE PROGRAM
2233 002152 1 114154 4 6 0154 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
2234 002153 1 117721 4 7 1721 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
2235
2236 ERLOOP TST ^SALL
2237 002154 1 002200 0 1 0 200
2238 002155 1 117716 4 7 1716
2239 002156 1 114141 4 6 0141
2240 002157 1 117365 4 7 1365 JMPSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
2241 002160 1 114162 4 6 0162 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
2242 002161 1 117721 4 7 1721 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
2243
2244 ERLOOP TST ^SALL
2245 002162 1 002001 0 1 0 001
2246 002163 1 117716 4 7 1716
2247 002164 1 114141 4 6 0141
2248 002165 1 117661 4 7 1661 JMPSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
2249 002166 1 114170 4 6 0170 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2250 002167 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
2251
2252 ERLOOP TST ^SALL
2253 002170 1 002002 0 1 0 002
2254 002171 1 117716 4 7 1716
2255 002172 1 114141 4 6 0141
2256 002173 1 117666 4 7 1666 JMPSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
2257 002174 1 114176 4 6 0176 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2258 002175 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
2259
2260 ERLOOP TST ^SALL
2261 002176 1 002003 0 1 0 003
2262 002177 1 117716 4 7 1716
2263 002200 1 114141 4 6 0141
2264 002201 1 117700 4 7 1700 JMPSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
2265 002202 1 114204 4 6 0204 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2266 002203 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 19-1
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
2267
2268 ERLOOP TST ^SALL
2269 002204 1 002004 0 1 0 004
2270 002205 1 117716 4 7 1716
2271 002206 1 114141 4 6 0141
2272 002207 1 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
2273 002210 1 117735 4 7 1735
2274
2275 ERRLOP TST ^SALL
2276 002211 1 114141 4 6 0141
2277 002212 1 117723 4 7 1723 REPEAT TST
2278 002213 1 114141 4 6 0141
2279
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 20
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
2280 TEST 266,TEST READ HIGH DENSITY REVERSE FORMATTING 5
2281 ;***********************************************************************
2282 ;* MCODE6 * TEST 266 * TEST READ HIGH DENSITY REVERSE FORMATTING 5
2283 ;***********************************************************************
2284 SALL
2285 002214 1 002012 0 1 0 012
2286 002215 1 117713 4 7 1713
2287
2288 002216 TST266: SALL
2289
2290 ;*READ EIGHT 18-BIT WORDS (FOURTEEN DATA BYTES WITH FOUR ZERO BYTES PRE-PADDED)
2291
2292 002216 1 002100 0 1 0 100 LDBR ^D64 ;SET DATA PATTERN NUMBER
2293 002217 1 072011 3 5 0 00 11 MOVB AC0
2294 002220 1 002010 0 1 0 010 LDBR ^D8 ;SET 18-BIT WORD CNT
2295 002221 1 072111 3 5 0 04 11 MOVB AC4
2296 002222 1 002016 0 1 0 016 LDBR ^D14 ;SET BYTE CNT
2297 002223 1 072051 3 5 0 02 11 MOVB AC2
2298 002224 1 002136 0 1 0 136 LDBR RHIDR5 ;SET ROM PROGRAM START ADDRESS
2299 002225 1 072071 3 5 0 03 11 MOVB AC3
2300 002226 1 117260 4 7 1260 JMPSUB RRDSEQ ;GO RUN THE PROGRAM
2301 002227 1 114231 4 6 0231 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
2302 002230 1 117721 4 7 1721 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
2303
2304 ERLOOP TST ^SALL
2305 002231 1 002200 0 1 0 200
2306 002232 1 117716 4 7 1716
2307 002233 1 114216 4 6 0216
2308 002234 1 117365 4 7 1365 JMPSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
2309 002235 1 114237 4 6 0237 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
2310 002236 1 117721 4 7 1721 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
2311
2312 ERLOOP TST ^SALL
2313 002237 1 002001 0 1 0 001
2314 002240 1 117716 4 7 1716
2315 002241 1 114216 4 6 0216
2316 002242 1 117661 4 7 1661 JMPSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
2317 002243 1 114245 4 6 0245 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2318 002244 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
2319
2320 ERLOOP TST ^SALL
2321 002245 1 002002 0 1 0 002
2322 002246 1 117716 4 7 1716
2323 002247 1 114216 4 6 0216
2324 002250 1 117666 4 7 1666 JMPSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
2325 002251 1 114253 4 6 0253 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2326 002252 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
2327
2328 ERLOOP TST ^SALL
2329 002253 1 002003 0 1 0 003
2330 002254 1 117716 4 7 1716
2331 002255 1 114216 4 6 0216
2332 002256 1 117700 4 7 1700 JMPSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
2333 002257 1 114261 4 6 0261 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2334 002260 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 20-1
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
2335
2336 ERLOOP TST ^SALL
2337 002261 1 002004 0 1 0 004
2338 002262 1 117716 4 7 1716
2339 002263 1 114216 4 6 0216
2340 002264 1 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
2341 002265 1 117735 4 7 1735
2342
2343 ERRLOP TST ^SALL
2344 002266 1 114216 4 6 0216
2345 002267 1 117723 4 7 1723 REPEAT TST
2346 002270 1 114216 4 6 0216
2347
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 21
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
2348 TEST 267,TEST READ HIGH DENSITY REVERSE FORMATTING 6
2349 ;***********************************************************************
2350 ;* MCODE6 * TEST 267 * TEST READ HIGH DENSITY REVERSE FORMATTING 6
2351 ;***********************************************************************
2352 SALL
2353 002271 1 002013 0 1 0 013
2354 002272 1 117713 4 7 1713
2355
2356 002273 TST267: SALL
2357
2358 ;*READ EIGHT 18-BIT WORDS (FIFTEEN DATA BYTES WITH THREE ZERO BYTES PRE-PADDED)
2359
2360 002273 1 002101 0 1 0 101 LDBR ^D65 ;SET DATA PATTERN NUMBER
2361 002274 1 072011 3 5 0 00 11 MOVB AC0
2362 002275 1 002010 0 1 0 010 LDBR ^D8 ;SET 18-BIT WORD CNT
2363 002276 1 072111 3 5 0 04 11 MOVB AC4
2364 002277 1 002017 0 1 0 017 LDBR ^D15 ;SET BYTE CNT
2365 002300 1 072051 3 5 0 02 11 MOVB AC2
2366 002301 1 002123 0 1 0 123 LDBR RHIDR6 ;SET ROM PROGRAM START ADDRESS
2367 002302 1 072071 3 5 0 03 11 MOVB AC3
2368 002303 1 117260 4 7 1260 JMPSUB RRDSEQ ;GO RUN THE PROGRAM
2369 002304 1 114306 4 6 0306 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
2370 002305 1 117721 4 7 1721 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
2371
2372 ERLOOP TST ^SALL
2373 002306 1 002200 0 1 0 200
2374 002307 1 117716 4 7 1716
2375 002310 1 114273 4 6 0273
2376 002311 1 117365 4 7 1365 JMPSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
2377 002312 1 114314 4 6 0314 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
2378 002313 1 117721 4 7 1721 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
2379
2380 ERLOOP TST ^SALL
2381 002314 1 002001 0 1 0 001
2382 002315 1 117716 4 7 1716
2383 002316 1 114273 4 6 0273
2384 002317 1 117661 4 7 1661 JMPSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
2385 002320 1 114322 4 6 0322 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2386 002321 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
2387
2388 ERLOOP TST ^SALL
2389 002322 1 002002 0 1 0 002
2390 002323 1 117716 4 7 1716
2391 002324 1 114273 4 6 0273
2392 002325 1 117666 4 7 1666 JMPSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
2393 002326 1 114330 4 6 0330 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2394 002327 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
2395
2396 ERLOOP TST ^SALL
2397 002330 1 002003 0 1 0 003
2398 002331 1 117716 4 7 1716
2399 002332 1 114273 4 6 0273
2400 002333 1 117700 4 7 1700 JMPSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
2401 002334 1 114336 4 6 0336 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2402 002335 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 21-1
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
2403
2404 ERLOOP TST ^SALL
2405 002336 1 002004 0 1 0 004
2406 002337 1 117716 4 7 1716
2407 002340 1 114273 4 6 0273
2408 002341 1 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
2409 002342 1 117735 4 7 1735
2410
2411 ERRLOP TST ^SALL
2412 002343 1 114273 4 6 0273
2413 002344 1 117723 4 7 1723 REPEAT TST
2414 002345 1 114273 4 6 0273
2415
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 22
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
2416 TEST 268,TEST READ HIGH DENSITY REVERSE FORMATTING 7
2417 ;***********************************************************************
2418 ;* MCODE6 * TEST 268 * TEST READ HIGH DENSITY REVERSE FORMATTING 7
2419 ;***********************************************************************
2420 SALL
2421 002346 1 002014 0 1 0 014
2422 002347 1 117713 4 7 1713
2423
2424 002350 TST268: SALL
2425
2426 ;*READ EIGHT 18-BIT WORDS (SIXTEEN DATA BYTES WITH TWO ZERO BYTES PRE-PADDED)
2427
2428 002350 1 002102 0 1 0 102 LDBR ^D66 ;SET DATA PATTERN NUMBER
2429 002351 1 072011 3 5 0 00 11 MOVB AC0
2430 002352 1 002010 0 1 0 010 LDBR ^D8 ;SET 18-BIT WORD CNT
2431 002353 1 072111 3 5 0 04 11 MOVB AC4
2432 002354 1 002020 0 1 0 020 LDBR ^D16 ;SET BYTE CNT
2433 002355 1 072051 3 5 0 02 11 MOVB AC2
2434 002356 1 002122 0 1 0 122 LDBR RHIDR7 ;SET ROM PROGRAM START ADDRESS
2435 002357 1 072071 3 5 0 03 11 MOVB AC3
2436 002360 1 117260 4 7 1260 JMPSUB RRDSEQ ;GO RUN THE PROGRAM
2437 002361 1 114363 4 6 0363 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
2438 002362 1 117721 4 7 1721 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
2439
2440 ERLOOP TST ^SALL
2441 002363 1 002200 0 1 0 200
2442 002364 1 117716 4 7 1716
2443 002365 1 114350 4 6 0350
2444 002366 1 117365 4 7 1365 JMPSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
2445 002367 1 114371 4 6 0371 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
2446 002370 1 117721 4 7 1721 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
2447
2448 ERLOOP TST ^SALL
2449 002371 1 002001 0 1 0 001
2450 002372 1 117716 4 7 1716
2451 002373 1 114350 4 6 0350
2452 002374 1 117661 4 7 1661 JMPSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
2453 002375 1 114377 4 6 0377 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2454 002376 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
2455
2456 ERLOOP TST ^SALL
2457 002377 1 002002 0 1 0 002
2458 002400 1 117716 4 7 1716
2459 002401 1 114350 4 6 0350
2460 002402 1 117666 4 7 1666 JMPSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
2461 002403 1 114405 4 6 0405 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2462 002404 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
2463
2464 ERLOOP TST ^SALL
2465 002405 1 002003 0 1 0 003
2466 002406 1 117716 4 7 1716
2467 002407 1 114350 4 6 0350
2468 002410 1 117700 4 7 1700 JMPSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
2469 002411 1 114413 4 6 0413 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2470 002412 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 22-1
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
2471
2472 ERLOOP TST ^SALL
2473 002413 1 002004 0 1 0 004
2474 002414 1 117716 4 7 1716
2475 002415 1 114350 4 6 0350
2476 002416 1 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
2477 002417 1 117735 4 7 1735
2478
2479 ERRLOP TST ^SALL
2480 002420 1 114350 4 6 0350
2481 002421 1 117723 4 7 1723 REPEAT TST
2482 002422 1 114350 4 6 0350
2483
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 23
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
2484 TEST 269,TEST READ HIGH DENSITY REVERSE FORMATTING 8
2485 ;***********************************************************************
2486 ;* MCODE6 * TEST 269 * TEST READ HIGH DENSITY REVERSE FORMATTING 8
2487 ;***********************************************************************
2488 SALL
2489 002423 1 002015 0 1 0 015
2490 002424 1 117713 4 7 1713
2491
2492 002425 TST269: SALL
2493
2494 ;*READ EIGHT 18-BIT WORDS (SEVENTEEN DATA BYTES WITH ONE ZERO BYTE PRE-PADDED)
2495
2496 002425 1 002103 0 1 0 103 LDBR ^D67 ;SET DATA PATTERN NUMBER
2497 002426 1 072011 3 5 0 00 11 MOVB AC0
2498 002427 1 002010 0 1 0 010 LDBR ^D8 ;SET 18-BIT WORD CNT
2499 002430 1 072111 3 5 0 04 11 MOVB AC4
2500 002431 1 002021 0 1 0 021 LDBR ^D17 ;SET BYTE CNT
2501 002432 1 072051 3 5 0 02 11 MOVB AC2
2502 002433 1 002121 0 1 0 121 LDBR RHIDR8 ;SET ROM PROGRAM START ADDRESS
2503 002434 1 072071 3 5 0 03 11 MOVB AC3
2504 002435 1 117260 4 7 1260 JMPSUB RRDSEQ ;GO RUN THE PROGRAM
2505 002436 1 114440 4 6 0440 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
2506 002437 1 117721 4 7 1721 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
2507
2508 ERLOOP TST ^SALL
2509 002440 1 002200 0 1 0 200
2510 002441 1 117716 4 7 1716
2511 002442 1 114425 4 6 0425
2512 002443 1 117365 4 7 1365 JMPSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
2513 002444 1 114446 4 6 0446 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
2514 002445 1 117721 4 7 1721 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
2515
2516 ERLOOP TST ^SALL
2517 002446 1 002001 0 1 0 001
2518 002447 1 117716 4 7 1716
2519 002450 1 114425 4 6 0425
2520 002451 1 117661 4 7 1661 JMPSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
2521 002452 1 114454 4 6 0454 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2522 002453 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
2523
2524 ERLOOP TST ^SALL
2525 002454 1 002002 0 1 0 002
2526 002455 1 117716 4 7 1716
2527 002456 1 114425 4 6 0425
2528 002457 1 117666 4 7 1666 JMPSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
2529 002460 1 114462 4 6 0462 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2530 002461 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
2531
2532 ERLOOP TST ^SALL
2533 002462 1 002003 0 1 0 003
2534 002463 1 117716 4 7 1716
2535 002464 1 114425 4 6 0425
2536 002465 1 117700 4 7 1700 JMPSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
2537 002466 1 114470 4 6 0470 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2538 002467 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 23-1
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
2539
2540 ERLOOP TST ^SALL
2541 002470 1 002004 0 1 0 004
2542 002471 1 117716 4 7 1716
2543 002472 1 114425 4 6 0425
2544 002473 1 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
2545 002474 1 117735 4 7 1735
2546
2547 ERRLOP TST ^SALL
2548 002475 1 114425 4 6 0425
2549 002476 1 117723 4 7 1723 REPEAT TST
2550 002477 1 114425 4 6 0425
2551
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 24
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
2552 TEST 270,TEST READ HIGH DENSITY REVERSE FORMATTING 9
2553 ;***********************************************************************
2554 ;* MCODE6 * TEST 270 * TEST READ HIGH DENSITY REVERSE FORMATTING 9
2555 ;***********************************************************************
2556 SALL
2557 002500 1 002016 0 1 0 016
2558 002501 1 117713 4 7 1713
2559
2560 002502 TST270: SALL
2561
2562 ;*READ EIGHT 18-BIT WORDS (EIGHTEEN DATA BYTES WITH NO PRE-PADDING)
2563
2564 002502 1 002104 0 1 0 104 LDBR ^D68 ;SET DATA PATTERN NUMBER
2565 002503 1 072011 3 5 0 00 11 MOVB AC0
2566 002504 1 002010 0 1 0 010 LDBR ^D8 ;SET 18-BIT WORD CNT
2567 002505 1 072111 3 5 0 04 11 MOVB AC4
2568 002506 1 002022 0 1 0 022 LDBR ^D18 ;SET BYTE CNT
2569 002507 1 072051 3 5 0 02 11 MOVB AC2
2570 002510 1 002120 0 1 0 120 LDBR RHIDR9 ;SET ROM PROGRAM START ADDRESS
2571 002511 1 072071 3 5 0 03 11 MOVB AC3
2572 002512 1 117260 4 7 1260 JMPSUB RRDSEQ ;GO RUN THE PROGRAM
2573 002513 1 114515 4 6 0515 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
2574 002514 1 117721 4 7 1721 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
2575
2576 ERLOOP TST ^SALL
2577 002515 1 002200 0 1 0 200
2578 002516 1 117716 4 7 1716
2579 002517 1 114502 4 6 0502
2580 002520 1 117365 4 7 1365 JMPSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
2581 002521 1 114523 4 6 0523 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
2582 002522 1 117721 4 7 1721 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
2583
2584 ERLOOP TST ^SALL
2585 002523 1 002001 0 1 0 001
2586 002524 1 117716 4 7 1716
2587 002525 1 114502 4 6 0502
2588 002526 1 117661 4 7 1661 JMPSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
2589 002527 1 114531 4 6 0531 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2590 002530 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
2591
2592 ERLOOP TST ^SALL
2593 002531 1 002002 0 1 0 002
2594 002532 1 117716 4 7 1716
2595 002533 1 114502 4 6 0502
2596 002534 1 117666 4 7 1666 JMPSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
2597 002535 1 114537 4 6 0537 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2598 002536 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
2599
2600 ERLOOP TST ^SALL
2601 002537 1 002003 0 1 0 003
2602 002540 1 117716 4 7 1716
2603 002541 1 114502 4 6 0502
2604 002542 1 117700 4 7 1700 JMPSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
2605 002543 1 114545 4 6 0545 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2606 002544 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 24-1
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
2607
2608 ERLOOP TST ^SALL
2609 002545 1 002004 0 1 0 004
2610 002546 1 117716 4 7 1716
2611 002547 1 114502 4 6 0502
2612 002550 1 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
2613 002551 1 117735 4 7 1735
2614
2615 ERRLOP TST ^SALL
2616 002552 1 114502 4 6 0502
2617 002553 1 117723 4 7 1723 REPEAT TST
2618 002554 1 114502 4 6 0502
2619
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 25
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
2620 TEST 271,TEST WRITE 6-BIT ASCII FORMATTING
2621 ;***********************************************************************
2622 ;* MCODE6 * TEST 271 * TEST WRITE 6-BIT ASCII FORMATTING
2623 ;***********************************************************************
2624 SALL
2625 002555 1 002017 0 1 0 017
2626 002556 1 117713 4 7 1713
2627
2628 002557 TST271: SALL
2629
2630 ;*WRITE FOUR 18-BIT WORDS (TWELVE BYTES)
2631
2632 002557 1 002056 0 1 0 056 LDBR ^D46 ;SET DATA PATTERN NUMBER
2633 002560 1 072011 3 5 0 00 11 MOVB AC0
2634 002561 1 002004 0 1 0 004 LDBR 4 ;SET 18-BIT WORD CNT
2635 002562 1 072111 3 5 0 04 11 MOVB AC4
2636 002563 1 002014 0 1 0 014 LDBR ^D12 ;SET BYTE CNT
2637 002564 1 072051 3 5 0 02 11 MOVB AC2
2638 002565 1 002140 0 1 0 140 LDBR WASC6 ;SET ROM PROGRAM START ADDRESS
2639 002566 1 072071 3 5 0 03 11 MOVB AC3
2640 002567 1 002100 0 1 0 100 LDBR ASCII6 ;SETUP ADDR OF EXPECTED TEST DATA
2641 002570 1 072031 3 5 0 01 11 MOVB AC1
2642 002571 1 117411 4 7 1411 JMPSUB WRSEQ ;GO RUN THE PROGRAM
2643 002572 1 114574 4 6 0574 JMPZ .+2 ;JUMP IF NO ERRORS IN XFER
2644 002573 1 117721 4 7 1721 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE WRITE,,PNT
2645
2646 ERLOOP TST ^SALL
2647 002574 1 002200 0 1 0 200
2648 002575 1 117716 4 7 1716
2649 002576 1 114557 4 6 0557
2650 002577 1 002041 0 1 0 041 CHKTRM TST,RH20 ERROR DETECTED DURING WRITE XFER
2651 002600 1 117735 4 7 1735
2652
2653 ERRLOP TST ^SALL
2654 002601 1 114557 4 6 0557
2655 002602 1 117661 4 7 1661 JMPSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
2656 002603 1 114605 4 6 0605 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2657 002604 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
2658
2659 ERLOOP TST ^SALL
2660 002605 1 002002 0 1 0 002
2661 002606 1 117716 4 7 1716
2662 002607 1 114557 4 6 0557
2663 002610 1 117666 4 7 1666 JMPSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
2664 002611 1 114613 4 6 0613 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2665 002612 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
2666
2667 ERLOOP TST ^SALL
2668 002613 1 002003 0 1 0 003
2669 002614 1 117716 4 7 1716
2670 002615 1 114557 4 6 0557
2671 002616 1 117700 4 7 1700 JMPSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
2672 002617 1 114621 4 6 0621 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2673 002620 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
2674
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 25-1
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
2675 ERLOOP TST ^SALL
2676 002621 1 002004 0 1 0 004
2677 002622 1 117716 4 7 1716
2678 002623 1 114557 4 6 0557
2679 002624 1 117526 4 7 1526 JMPSUB CHKDAT ;GO CHECK THE DATA RECEIVED AT CHANNEL BUS
2680 002625 1 114627 4 6 0627 JMPZ .+2 ;JUMP IF NO ERRORS IN DATA
2681 002626 1 117721 4 7 1721 ERRORD TST,DATA ERROR IN WRITTEN DATA
2682
2683 ERLOOP TST ^SALL
2684 002627 1 002045 0 1 0 045
2685 002630 1 117740 4 7 1740
2686 002631 1 114557 4 6 0557
2687 002632 1 117723 4 7 1723 REPEAT TST
2688 002633 1 114557 4 6 0557
2689
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 26
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
2690 TEST 272,TEST READ 6-BIT ASCII FORWARD FORMATTING
2691 ;***********************************************************************
2692 ;* MCODE6 * TEST 272 * TEST READ 6-BIT ASCII FORWARD FORMATTING
2693 ;***********************************************************************
2694 SALL
2695 002634 1 002020 0 1 0 020
2696 002635 1 117713 4 7 1713
2697
2698 002636 TST272: SALL
2699
2700 ;*READ FOUR 18-BIT WORDS (TWELVE BYTES)
2701
2702 002636 1 002056 0 1 0 056 LDBR ^D46 ;SET DATA PATTERN NUMBER
2703 002637 1 072011 3 5 0 00 11 MOVB AC0
2704 002640 1 002004 0 1 0 004 LDBR 4 ;SET 18-BIT WORD CNT
2705 002641 1 072111 3 5 0 04 11 MOVB AC4
2706 002642 1 002014 0 1 0 014 LDBR ^D12 ;SET BYTE CNT
2707 002643 1 072051 3 5 0 02 11 MOVB AC2
2708 002644 1 002150 0 1 0 150 LDBR RASC6F ;SET ROM PROGRAM START ADDRESS
2709 002645 1 072071 3 5 0 03 11 MOVB AC3
2710 002646 1 117263 4 7 1263 JMPSUB RDSEQ ;GO RUN THE PROGRAM
2711 002647 1 114651 4 6 0651 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
2712 002650 1 117721 4 7 1721 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
2713
2714 ERLOOP TST ^SALL
2715 002651 1 002200 0 1 0 200
2716 002652 1 117716 4 7 1716
2717 002653 1 114636 4 6 0636
2718 002654 1 117365 4 7 1365 JMPSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
2719 002655 1 114657 4 6 0657 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
2720 002656 1 117721 4 7 1721 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
2721
2722 ERLOOP TST ^SALL
2723 002657 1 002001 0 1 0 001
2724 002660 1 117716 4 7 1716
2725 002661 1 114636 4 6 0636
2726 002662 1 117661 4 7 1661 JMPSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
2727 002663 1 114665 4 6 0665 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2728 002664 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
2729
2730 ERLOOP TST ^SALL
2731 002665 1 002002 0 1 0 002
2732 002666 1 117716 4 7 1716
2733 002667 1 114636 4 6 0636
2734 002670 1 117666 4 7 1666 JMPSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
2735 002671 1 114673 4 6 0673 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2736 002672 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
2737
2738 ERLOOP TST ^SALL
2739 002673 1 002003 0 1 0 003
2740 002674 1 117716 4 7 1716
2741 002675 1 114636 4 6 0636
2742 002676 1 117700 4 7 1700 JMPSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
2743 002677 1 114701 4 6 0701 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2744 002700 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 26-1
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
2745
2746 ERLOOP TST ^SALL
2747 002701 1 002004 0 1 0 004
2748 002702 1 117716 4 7 1716
2749 002703 1 114636 4 6 0636
2750 002704 1 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
2751 002705 1 117735 4 7 1735
2752
2753 ERRLOP TST ^SALL
2754 002706 1 114636 4 6 0636
2755 002707 1 117723 4 7 1723 REPEAT TST
2756 002710 1 114636 4 6 0636
2757
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 27
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
2758 TEST 273,TEST READ 6-BIT ASCII REVERSE FORMATTING 1
2759 ;***********************************************************************
2760 ;* MCODE6 * TEST 273 * TEST READ 6-BIT ASCII REVERSE FORMATTING 1
2761 ;***********************************************************************
2762 SALL
2763 002711 1 002021 0 1 0 021
2764 002712 1 117713 4 7 1713
2765
2766 002713 TST273: SALL
2767
2768 ;*READ FOUR 18-BIT WORDS (SEVEN DATA BYTES WITH FIVE ZERO BYTES PRE-PADDED)
2769
2770 002713 1 002105 0 1 0 105 LDBR ^D69 ;SET DATA PATTERN NUMBER
2771 002714 1 072011 3 5 0 00 11 MOVB AC0
2772 002715 1 002004 0 1 0 004 LDBR 4 ;SET 18-BIT WORD CNT
2773 002716 1 072111 3 5 0 04 11 MOVB AC4
2774 002717 1 002007 0 1 0 007 LDBR ^D7 ;SET BYTE CNT
2775 002720 1 072051 3 5 0 02 11 MOVB AC2
2776 002721 1 002177 0 1 0 177 LDBR RAS6R1 ;SET ROM PROGRAM START ADDRESS
2777 002722 1 072071 3 5 0 03 11 MOVB AC3
2778 002723 1 117260 4 7 1260 JMPSUB RRDSEQ ;GO RUN THE PROGRAM
2779 002724 1 114726 4 6 0726 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
2780 002725 1 117721 4 7 1721 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
2781
2782 ERLOOP TST ^SALL
2783 002726 1 002200 0 1 0 200
2784 002727 1 117716 4 7 1716
2785 002730 1 114713 4 6 0713
2786 002731 1 117365 4 7 1365 JMPSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
2787 002732 1 114734 4 6 0734 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
2788 002733 1 117721 4 7 1721 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
2789
2790 ERLOOP TST ^SALL
2791 002734 1 002001 0 1 0 001
2792 002735 1 117716 4 7 1716
2793 002736 1 114713 4 6 0713
2794 002737 1 117661 4 7 1661 JMPSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
2795 002740 1 114742 4 6 0742 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2796 002741 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
2797
2798 ERLOOP TST ^SALL
2799 002742 1 002002 0 1 0 002
2800 002743 1 117716 4 7 1716
2801 002744 1 114713 4 6 0713
2802 002745 1 117666 4 7 1666 JMPSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
2803 002746 1 114750 4 6 0750 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2804 002747 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
2805
2806 ERLOOP TST ^SALL
2807 002750 1 002003 0 1 0 003
2808 002751 1 117716 4 7 1716
2809 002752 1 114713 4 6 0713
2810 002753 1 117700 4 7 1700 JMPSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
2811 002754 1 114756 4 6 0756 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2812 002755 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 27-1
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
2813
2814 ERLOOP TST ^SALL
2815 002756 1 002004 0 1 0 004
2816 002757 1 117716 4 7 1716
2817 002760 1 114713 4 6 0713
2818 002761 1 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
2819 002762 1 117735 4 7 1735
2820
2821 ERRLOP TST ^SALL
2822 002763 1 114713 4 6 0713
2823 002764 1 117723 4 7 1723 REPEAT TST
2824 002765 1 114713 4 6 0713
2825
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 28
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
2826 TEST 274,TEST READ 6-BIT ASCII REVERSE FORMATTING 2
2827 ;***********************************************************************
2828 ;* MCODE6 * TEST 274 * TEST READ 6-BIT ASCII REVERSE FORMATTING 2
2829 ;***********************************************************************
2830 SALL
2831 002766 1 002022 0 1 0 022
2832 002767 1 117713 4 7 1713
2833
2834 002770 TST274: SALL
2835
2836 ;*READ FOUR 18-BIT WORDS (EIGHT DATA BYTES WITH FOUR ZERO BYTES PRE-PADDED)
2837
2838 002770 1 002106 0 1 0 106 LDBR ^D70 ;SET DATA PATTERN NUMBER
2839 002771 1 072011 3 5 0 00 11 MOVB AC0
2840 002772 1 002004 0 1 0 004 LDBR 4 ;SET 18-BIT WORD CNT
2841 002773 1 072111 3 5 0 04 11 MOVB AC4
2842 002774 1 002010 0 1 0 010 LDBR ^D8 ;SET BYTE CNT
2843 002775 1 072051 3 5 0 02 11 MOVB AC2
2844 002776 1 002176 0 1 0 176 LDBR RAS6R2 ;SET ROM PROGRAM START ADDRESS
2845 002777 1 072071 3 5 0 03 11 MOVB AC3
2846 003000 1 117260 4 7 1260 JMPSUB RRDSEQ ;GO RUN THE PROGRAM
2847 003001 1 115003 4 6 1003 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
2848 003002 1 117721 4 7 1721 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
2849
2850 ERLOOP TST ^SALL
2851 003003 1 002200 0 1 0 200
2852 003004 1 117716 4 7 1716
2853 003005 1 114770 4 6 0770
2854 003006 1 117365 4 7 1365 JMPSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
2855 003007 1 115011 4 6 1011 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
2856 003010 1 117721 4 7 1721 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
2857
2858 ERLOOP TST ^SALL
2859 003011 1 002001 0 1 0 001
2860 003012 1 117716 4 7 1716
2861 003013 1 114770 4 6 0770
2862 003014 1 117661 4 7 1661 JMPSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
2863 003015 1 115017 4 6 1017 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2864 003016 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
2865
2866 ERLOOP TST ^SALL
2867 003017 1 002002 0 1 0 002
2868 003020 1 117716 4 7 1716
2869 003021 1 114770 4 6 0770
2870 003022 1 117666 4 7 1666 JMPSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
2871 003023 1 115025 4 6 1025 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2872 003024 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
2873
2874 ERLOOP TST ^SALL
2875 003025 1 002003 0 1 0 003
2876 003026 1 117716 4 7 1716
2877 003027 1 114770 4 6 0770
2878 003030 1 117700 4 7 1700 JMPSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
2879 003031 1 115033 4 6 1033 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2880 003032 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 28-1
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
2881
2882 ERLOOP TST ^SALL
2883 003033 1 002004 0 1 0 004
2884 003034 1 117716 4 7 1716
2885 003035 1 114770 4 6 0770
2886 003036 1 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
2887 003037 1 117735 4 7 1735
2888
2889 ERRLOP TST ^SALL
2890 003040 1 114770 4 6 0770
2891 003041 1 117723 4 7 1723 REPEAT TST
2892 003042 1 114770 4 6 0770
2893
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 29
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
2894 TEST 275,TEST READ 6-BIT ASCII REVERSE FORMATTING 3
2895 ;***********************************************************************
2896 ;* MCODE6 * TEST 275 * TEST READ 6-BIT ASCII REVERSE FORMATTING 3
2897 ;***********************************************************************
2898 SALL
2899 003043 1 002023 0 1 0 023
2900 003044 1 117713 4 7 1713
2901
2902 003045 TST275: SALL
2903
2904 ;*READ FOUR 18-BIT WORDS (NINE DATA BYTES WITH THREE ZERO BYTES PRE-PADDED)
2905
2906 003045 1 002107 0 1 0 107 LDBR ^D71 ;SET DATA PATTERN NUMBER
2907 003046 1 072011 3 5 0 00 11 MOVB AC0
2908 003047 1 002004 0 1 0 004 LDBR 4 ;SET 18-BIT WORD CNT
2909 003050 1 072111 3 5 0 04 11 MOVB AC4
2910 003051 1 002011 0 1 0 011 LDBR ^D9 ;SET BYTE CNT
2911 003052 1 072051 3 5 0 02 11 MOVB AC2
2912 003053 1 002163 0 1 0 163 LDBR RAS6R3 ;SET ROM PROGRAM START ADDRESS
2913 003054 1 072071 3 5 0 03 11 MOVB AC3
2914 003055 1 117260 4 7 1260 JMPSUB RRDSEQ ;GO RUN THE PROGRAM
2915 003056 1 115060 4 6 1060 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
2916 003057 1 117721 4 7 1721 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
2917
2918 ERLOOP TST ^SALL
2919 003060 1 002200 0 1 0 200
2920 003061 1 117716 4 7 1716
2921 003062 1 115045 4 6 1045
2922 003063 1 117365 4 7 1365 JMPSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
2923 003064 1 115066 4 6 1066 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
2924 003065 1 117721 4 7 1721 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
2925
2926 ERLOOP TST ^SALL
2927 003066 1 002001 0 1 0 001
2928 003067 1 117716 4 7 1716
2929 003070 1 115045 4 6 1045
2930 003071 1 117661 4 7 1661 JMPSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
2931 003072 1 115074 4 6 1074 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2932 003073 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
2933
2934 ERLOOP TST ^SALL
2935 003074 1 002002 0 1 0 002
2936 003075 1 117716 4 7 1716
2937 003076 1 115045 4 6 1045
2938 003077 1 117666 4 7 1666 JMPSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
2939 003100 1 115102 4 6 1102 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2940 003101 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
2941
2942 ERLOOP TST ^SALL
2943 003102 1 002003 0 1 0 003
2944 003103 1 117716 4 7 1716
2945 003104 1 115045 4 6 1045
2946 003105 1 117700 4 7 1700 JMPSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
2947 003106 1 115110 4 6 1110 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2948 003107 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 29-1
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
2949
2950 ERLOOP TST ^SALL
2951 003110 1 002004 0 1 0 004
2952 003111 1 117716 4 7 1716
2953 003112 1 115045 4 6 1045
2954 003113 1 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
2955 003114 1 117735 4 7 1735
2956
2957 ERRLOP TST ^SALL
2958 003115 1 115045 4 6 1045
2959 003116 1 117723 4 7 1723 REPEAT TST
2960 003117 1 115045 4 6 1045
2961
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 30
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
2962 TEST 276,TEST READ 6-BIT ASCII REVERSE FORMATTING 4
2963 ;***********************************************************************
2964 ;* MCODE6 * TEST 276 * TEST READ 6-BIT ASCII REVERSE FORMATTING 4
2965 ;***********************************************************************
2966 SALL
2967 003120 1 002024 0 1 0 024
2968 003121 1 117713 4 7 1713
2969
2970 003122 TST276: SALL
2971
2972 ;*READ FOUR 18-BIT WORDS (TEN DATA BYTES WITH TWO ZERO BYTES PRE-PADDED)
2973
2974 003122 1 002110 0 1 0 110 LDBR ^D72 ;SET DATA PATTERN NUMBER
2975 003123 1 072011 3 5 0 00 11 MOVB AC0
2976 003124 1 002004 0 1 0 004 LDBR 4 ;SET 18-BIT WORD CNT
2977 003125 1 072111 3 5 0 04 11 MOVB AC4
2978 003126 1 002012 0 1 0 012 LDBR ^D10 ;SET BYTE CNT
2979 003127 1 072051 3 5 0 02 11 MOVB AC2
2980 003130 1 002162 0 1 0 162 LDBR RAS6R4 ;SET ROM PROGRAM START ADDRESS
2981 003131 1 072071 3 5 0 03 11 MOVB AC3
2982 003132 1 117260 4 7 1260 JMPSUB RRDSEQ ;GO RUN THE PROGRAM
2983 003133 1 115135 4 6 1135 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
2984 003134 1 117721 4 7 1721 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
2985
2986 ERLOOP TST ^SALL
2987 003135 1 002200 0 1 0 200
2988 003136 1 117716 4 7 1716
2989 003137 1 115122 4 6 1122
2990 003140 1 117365 4 7 1365 JMPSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
2991 003141 1 115143 4 6 1143 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
2992 003142 1 117721 4 7 1721 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
2993
2994 ERLOOP TST ^SALL
2995 003143 1 002001 0 1 0 001
2996 003144 1 117716 4 7 1716
2997 003145 1 115122 4 6 1122
2998 003146 1 117661 4 7 1661 JMPSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
2999 003147 1 115151 4 6 1151 JMPZ .+2 ;JUMP IF NONE WERE FOUND
3000 003150 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
3001
3002 ERLOOP TST ^SALL
3003 003151 1 002002 0 1 0 002
3004 003152 1 117716 4 7 1716
3005 003153 1 115122 4 6 1122
3006 003154 1 117666 4 7 1666 JMPSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
3007 003155 1 115157 4 6 1157 JMPZ .+2 ;JUMP IF NONE WERE FOUND
3008 003156 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
3009
3010 ERLOOP TST ^SALL
3011 003157 1 002003 0 1 0 003
3012 003160 1 117716 4 7 1716
3013 003161 1 115122 4 6 1122
3014 003162 1 117700 4 7 1700 JMPSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
3015 003163 1 115165 4 6 1165 JMPZ .+2 ;JUMP IF NONE WERE FOUND
3016 003164 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 30-1
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
3017
3018 ERLOOP TST ^SALL
3019 003165 1 002004 0 1 0 004
3020 003166 1 117716 4 7 1716
3021 003167 1 115122 4 6 1122
3022 003170 1 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
3023 003171 1 117735 4 7 1735
3024
3025 ERRLOP TST ^SALL
3026 003172 1 115122 4 6 1122
3027 003173 1 117723 4 7 1723 REPEAT TST
3028 003174 1 115122 4 6 1122
3029
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 31
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
3030 TEST 277,TEST READ 6-BIT ASCII REVERSE FORMATTING 5
3031 ;***********************************************************************
3032 ;* MCODE6 * TEST 277 * TEST READ 6-BIT ASCII REVERSE FORMATTING 5
3033 ;***********************************************************************
3034 SALL
3035 003175 1 002025 0 1 0 025
3036 003176 1 117713 4 7 1713
3037
3038 003177 TST277: SALL
3039
3040 ;*READ FOUR 18-BIT WORDS (ELEVEN DATA BYTES WITH ONE ZERO BYTE PRE-PADDED)
3041
3042 003177 1 002111 0 1 0 111 LDBR ^D73 ;SET DATA PATTERN NUMBER
3043 003200 1 072011 3 5 0 00 11 MOVB AC0
3044 003201 1 002004 0 1 0 004 LDBR 4 ;SET 18-BIT WORD CNT
3045 003202 1 072111 3 5 0 04 11 MOVB AC4
3046 003203 1 002013 0 1 0 013 LDBR ^D11 ;SET BYTE CNT
3047 003204 1 072051 3 5 0 02 11 MOVB AC2
3048 003205 1 002161 0 1 0 161 LDBR RAS6R5 ;SET ROM PROGRAM START ADDRESS
3049 003206 1 072071 3 5 0 03 11 MOVB AC3
3050 003207 1 117260 4 7 1260 JMPSUB RRDSEQ ;GO RUN THE PROGRAM
3051 003210 1 115212 4 6 1212 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
3052 003211 1 117721 4 7 1721 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
3053
3054 ERLOOP TST ^SALL
3055 003212 1 002200 0 1 0 200
3056 003213 1 117716 4 7 1716
3057 003214 1 115177 4 6 1177
3058 003215 1 117365 4 7 1365 JMPSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
3059 003216 1 115220 4 6 1220 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
3060 003217 1 117721 4 7 1721 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
3061
3062 ERLOOP TST ^SALL
3063 003220 1 002001 0 1 0 001
3064 003221 1 117716 4 7 1716
3065 003222 1 115177 4 6 1177
3066 003223 1 117661 4 7 1661 JMPSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
3067 003224 1 115226 4 6 1226 JMPZ .+2 ;JUMP IF NONE WERE FOUND
3068 003225 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
3069
3070 ERLOOP TST ^SALL
3071 003226 1 002002 0 1 0 002
3072 003227 1 117716 4 7 1716
3073 003230 1 115177 4 6 1177
3074 003231 1 117666 4 7 1666 JMPSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
3075 003232 1 115234 4 6 1234 JMPZ .+2 ;JUMP IF NONE WERE FOUND
3076 003233 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
3077
3078 ERLOOP TST ^SALL
3079 003234 1 002003 0 1 0 003
3080 003235 1 117716 4 7 1716
3081 003236 1 115177 4 6 1177
3082 003237 1 117700 4 7 1700 JMPSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
3083 003240 1 115242 4 6 1242 JMPZ .+2 ;JUMP IF NONE WERE FOUND
3084 003241 1 117721 4 7 1721 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 31-1
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
3085
3086 ERLOOP TST ^SALL
3087 003242 1 002004 0 1 0 004
3088 003243 1 117716 4 7 1716
3089 003244 1 115177 4 6 1177
3090 003245 1 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
3091 003246 1 117735 4 7 1735
3092
3093 ERRLOP TST ^SALL
3094 003247 1 115177 4 6 1177
3095 003250 1 117723 4 7 1723 REPEAT TST
3096 003251 1 115177 4 6 1177
3097
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 32
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
3098 003252 1 101711 4 0 1711 JMP END ;JUMP AROUND SUBROUTINES
3099
3100 003253 1 002222 0 1 0 222 INITL: LDBR INIT+22 ;SET INIT
3101 003254 1 066371 3 3 0 17 11 MOVB IOSEL
3102 003255 1 002022 0 1 0 022 LDBR 22 ;CLR INIT & SELECT DP
3103 003256 1 066371 3 3 0 17 11 MOVB IOSEL
3104 003257 1 016000 0 7 0 000 RETURN
3105
3106 ;*THE FOLLOWING IS THE SEQUENCE OF ACTIONS INVOLVED IN PERFORMING THE
3107 ;*READ TRANSFER TESTS.
3108
3109 ;*DO A MICROBUS INIT TO INSURE A KNOWN STARTING STATE.
3110 ;*ENABLE THE BASE CLOCK AND CLEAR "DX HIGH SPEED", THIS CLEARS CLOCK PHASES.
3111 ;*SETUP DATA IN GP REGS NEEDED BY HOST.
3112 ;*ZERO THE BYTE COUNTER AND THE MASSBUS COUNTER.
3113 ;*SETUP CB BOARD LOOPING.
3114 ;*SET "MSTR END XFER ON FMTR END XFER" BIT.
3115 ;*LOAD THE ROM PROGRAM ADDRESS.
3116 ;*SETUP THE RH20 FOR A READ XFER.
3117 ;*SET "OCC" AND CLEAR "DATA TO DEVICE" IN THE MASSBUS INTERFACE.
3118 ;*WAIT FOR "RUN" TO SET IN THE MASSBUS INTERFACE.
3119 ;*DO A HS DP INIT.
3120 ;*SET "DX HIGH SPEED".
3121 ;*SET THE "START" BIT IN THE MASSBUS INTERFACE.
3122 ;*CLOCK THE 8-BIT BYTES FROM THE CB BOARD ONTO THE SLVE DATA LINES.
3123 ;*AFTER EACH BYTE, WAIT FOR "SLVE REQ" TO CLEAR - REPORT ERROR IF IT DOESN'T.
3124 ;*AFTER ALL BYTES ARE XFERED, SET "SLVE END XFER".
3125 ;*WAIT FOR "MSTR END XFER" TO SET - REPORT ERROR IF IT DOESN'T.
3126 ;*WHEN IT SETS, END THE XFER.
3127 ;*SIGNAL THE HOST TO CHECK CORRECTNESS OF THE DATA IT RECEIVED.
3128
3129 003260 1 002377 0 1 0 377 RRDSEQ: LDBR -1 ;SET READ REVERSE FLAG
3130 003261 1 072131 3 5 0 05 11 MOVB AC5
3131 003262 1 101265 4 0 1265 JMP RD
3132 003263 1 002000 0 1 0 000 RDSEQ: LDBR 0 ;SET READ FORWARD FLAG
3133 003264 1 072131 3 5 0 05 11 MOVB AC5
3134 003265 1 117253 4 7 1253 RD: JMPSUB INITL ;MAKE SURE "MSTR REQ" IS CLEARED
3135 003266 1 002002 0 1 0 002 LDBR BCLKEN ;CLEAR CLOCK PHASES
3136 003267 1 064031 3 2 0 01 11 MOVB REG1
3137 003270 1 002011 0 1 0 011 LDBR 11 ;SELECT MASSBUS INTERFACE
3138 003271 1 066371 3 3 0 17 11 MOVB IOSEL
3139 003272 1 062010 3 1 0 00 10 MOV AC0,BR ;SETUP DATA PATTERN NUMBER
3140 003273 1 066011 3 3 0 00 11 MOVB MPGP10
3141 003274 1 002001 0 1 0 001 LDBR 1 ;SETUP BLOCK CNT=1
3142 003275 1 066031 3 3 0 01 11 MOVB MPGP11
3143 003276 1 064351 3 2 0 16 11 MOVB MPGP6 ;SETUP ADDITIONAL PNT ROUTINE NUMBER
3144 003277 1 062110 3 1 0 04 10 MOV AC4,BR ;COMPUTE AND STORE THE
3145 003300 1 014000 0 6 0 000 SHR ;36-BIT WORD CNT
3146 003301 1 064251 3 2 0 12 11 MOVB MPGP2
3147 003302 1 002000 0 1 0 000 LDBR 0 ;CLEAR HI ORDER WRD CNT BITS
3148 003303 1 064271 3 2 0 13 11 MOVB MPGP3
3149 003304 1 002022 0 1 0 022 LDBR 22 ;SELECT DATA PATH
3150 003305 1 066371 3 3 0 17 11 MOVB IOSEL
3151 003306 1 002000 0 1 0 000 LDBR 0
3152 003307 1 064151 3 2 0 06 11 MOVB BCLO ;CLEAR THE BC
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 32-1
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
3153 003310 1 064171 3 2 0 07 11 MOVB BCHI
3154 003311 1 064111 3 2 0 04 11 MOVB MCLO ;CLEAR THE MC
3155 003312 1 064131 3 2 0 05 11 MOVB MCHI
3156 003313 1 117630 4 7 1630 JMPSUB CBLOOP ;SETUP CB BOARD LOOPING
3157 003314 1 002010 0 1 0 010 LDBR MEONFE ;CLEAR ROM ADDR BIT 8
3158 003315 1 064051 3 2 0 02 11 MOVB REG2 ;AND SET "MEX ON FEX"
3159 003316 1 062070 3 1 0 03 10 MOV AC3,BR ;SETUP THE ROM PROGRAM ADDRESS
3160 003317 1 064211 3 2 0 10 11 MOVB DFRMAD
3161 003320 1 064011 3 2 0 00 11 MOVB REG0 ;CLEAR FLAGS
3162 003321 1 072047 3 5 0 02 07 DECR AC2 ;SET LOOP CNT=BYTE CNT MINUS 1
3163 ;SETUP A READ XFER
3164 003322 1 060130 3 0 0 05 10 MOV AC5 ;CHECK FOR REVERSE
3165 003323 1 115326 4 6 1326 JMPZ RDREV ;JUMP IF A READ REVERSE
3166 003324 1 117727 4 7 1727 READ ;SETUP FOR A READ FORWARD
3167 003325 1 101327 4 0 1327 JMP .+2
3168 003326 1 117731 4 7 1731 RDREV: READB ;SETUP FOR READ REVERSE
3169 003327 1 002011 0 1 0 011 LDBR 11 ;SELECT MASSBUS INTERFACE
3170 003330 1 066371 3 3 0 17 11 MOVB IOSEL
3171 003331 1 002020 0 1 0 020 LDBR OCC ;SET MASK OF BITS TO BE SET
3172 003332 1 064031 3 2 0 01 11 MOVB MPSCR1 ;AND WRITE IT TO STATUS REG
3173 003333 1 117576 4 7 1576 JMPSUB RUNWAT ;WAIT FOR "RUN" TO SET
3174 003334 1 002022 0 1 0 022 LDBR 22 ;SELECT DATA PATH
3175 003335 1 066371 3 3 0 17 11 MOVB IOSEL
3176 003336 1 064271 3 2 0 13 11 MOVB HSDPIN ;DO HS DP INIT
3177 003337 1 002003 0 1 0 003 LDBR DXHISP+BCLKEN ;SET "DX HIGH SPEED"
3178 003340 1 064031 3 2 0 01 11 MOVB REG1
3179 003341 1 117606 4 7 1606 JMPSUB STRMB ;GO START THE XFER
3180 003342 1 001034 0 0 2 034 LDMAR TSTDAT ;SET MAR TO POINT TO TEST DATA
3181 003343 1 117644 4 7 1644 RDLP: JMPSUB CLKDAT ;GO CLOCK DATA ONTO SLVE LINES
3182 003344 1 117555 4 7 1555 JMPSUB SLVWT ;GO WAIT FOR "SLVE REQ" TO CLEAR
3183 003345 1 115351 4 6 1351 JMPZ OKRD ;JUMP IF IT CLEARED
3184 003346 1 117567 4 7 1567 JMPSUB SETDAT ;SETUP LOOP CNT VALUE FOR HOST
3185 003347 1 117621 4 7 1621 JMPSUB ABTXFR ;ABORT THE XFER
3186 003350 1 016000 0 7 0 000 RETURN ;GIVE ERROR RETURN
3187 003351 1 073447 3 5 3 02 07 OKRD: DECR AC2,I ;DEC LOOP CNT AND INC DATA ADDR
3188 003352 1 115354 4 6 1354 JMPZ .+2 ;JUMP IF ALL DATA SENT
3189 003353 1 101343 4 0 1343 JMP RDLP ;ELSE, CONTINUE
3190 ;SET "SLVE END XFER"
3191 003354 1 002033 0 1 0 033 LDBR 33 ;SELECT CHANNEL BUS INTERFACE
3192 003355 1 066371 3 3 0 17 11 MOVB IOSEL
3193 003356 1 002004 0 1 0 004 LDBR LOOPEN ;SET LOOP ENABLE
3194 003357 1 064031 3 2 0 01 11 MOVB CSR1
3195 003360 1 002001 0 1 0 001 LDBR STAINL ;SET "STA IN"
3196 003361 1 064051 3 2 0 02 11 MOVB TOR0
3197 003362 1 002022 0 1 0 022 LDBR 22 ;SELECT DATA PATH
3198 003363 1 066371 3 3 0 17 11 MOVB IOSEL
3199 003364 1 016377 0 7 0 377 RETURN -1 ;GIVE NO ERROR RETURN
3200
3201 003365 1 002000 0 1 0 000 MEXWAT: LDBR 0 ;CLEAR WAIT CNT
3202 003366 1 072011 3 5 0 00 11 MOVB AC0
3203 003367 1 022003 1 1 0 00 03 ENDWAT: DATI REG3,BR ;READ REG 3
3204 003370 1 014000 0 6 0 000 SHR ;RIGHT ADJUST "NOT MSTR END XFER"
3205 003371 1 014000 0 6 0 000 SHR
3206 003372 1 105374 4 2 1374 JMPB0 .+2 ;JUMP IF "MSTR END XFER"=0
3207 003373 1 101401 4 0 1401 JMP DONERD ;JUMP IF READ IS FINISHED
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 32-2
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
3208 003374 1 072003 3 5 0 00 03 INCR AC0 ;INC WAIT CNT
3209 003375 1 113377 4 5 1377 JMPC .+2 ;JUMP IF TIMED OUT
3210 003376 1 101367 4 0 1367 JMP ENDWAT ;ELSE, KEEP WAITING
3211 003377 1 117621 4 7 1621 JMPSUB ABTXFR ;ABORT THE XFER
3212 003400 1 016000 0 7 0 000 RETURN ;GIVE ERROR RETURN
3213
3214 003401 1 117621 4 7 1621 DONERD: JMPSUB ABTXFR ;END THE XFER
3215 003402 1 002033 0 1 0 033 LDBR 33 ;SELECT CHANNEL BUS INTERFACE
3216 003403 1 066371 3 3 0 17 11 MOVB IOSEL
3217 003404 1 002000 0 1 0 000 LDBR 0 ;CLEAR LOOP ENABLE
3218 003405 1 064031 3 2 0 01 11 MOVB CSR1
3219 003406 1 002022 0 1 0 022 LDBR 22 ;SELECT DATA PATH
3220 003407 1 066371 3 3 0 17 11 MOVB IOSEL
3221 003410 1 016377 0 7 0 377 RETURN -1 ;GIVE NO ERROR RETURN
3222
3223
3224 ;*THE FOLLOWING IS THE SEQUENCE OF ACTIONS INVOLVED IN PERFORMING THE
3225 ;*WRITE TRANSFER TESTS.
3226
3227 ;*DO A MICROBUS INIT TO INSURE A KNOWN STARTING STATE.
3228 ;*ENABLE THE BASE CLOCK AND CLEAR "DX HIGH SPEED", THIS CLEARS CLOCK PHASES.
3229 ;*SETUP DATA IN GP REGS NEEDED BY HOST.
3230 ;*LOAD THE BYTE COUNTER AND THE MASSBUS COUNTER.
3231 ;*SETUP CB BOARD LOOPING.
3232 ;*SET "MSTR END XFER ON MC OVERFLOW" AND "SLVE END XFER ON BC OVERFLOW".
3233 ;*LOAD THE ROM PROGRAM ADDRESS.
3234 ;*SETUP THE RH20 FOR A WRITE XFER.
3235 ;*SET "OCC" AND "DATA TO DEVICE" IN THE MASSBUS INTERFACE.
3236 ;*WAIT FOR "RUN" TO SET IN THE MASSBUS INTERFACE.
3237 ;*DO A HS DP INIT.
3238 ;*SET "DX HIGH SPEED".
3239 ;*SET THE "START" BIT IN THE MASSBUS INTERFACE.
3240 ;*SET "SLVE REQ" ON THE CB BOARD.
3241 ;*WAIT FOR IT TO CLEAR - REPORT ERROR IF IT DOESN'T.
3242 ;*STORE THE RECEIVED 8-BIT BYTE IN MEMORY.
3243
3244 ;*CHECK IF "SLVE END XFER" IS SET.
3245 ;*IF NOT, REPEAT THE PREVIOUS 4 STEPS.
3246 ;*IF IT IS SET, END THE XFER AND CHECK THAT THE RECEIVED DATA IS CORRECT.
3247
3248 003411 1 117253 4 7 1253 WRSEQ: JMPSUB INITL ;MAKE SURE "MSTR REQ" IS CLEARED
3249 003412 1 002002 0 1 0 002 LDBR BCLKEN ;CLEAR CLOCK PHASES
3250 003413 1 064031 3 2 0 01 11 MOVB REG1
3251 003414 1 002011 0 1 0 011 LDBR 11 ;SELECT MASSBUS INTERFACE
3252 003415 1 066371 3 3 0 17 11 MOVB IOSEL
3253 003416 1 062010 3 1 0 00 10 MOV AC0,BR ;SETUP DATA PATTERN NUMBER
3254 003417 1 066011 3 3 0 00 11 MOVB MPGP10
3255 003420 1 002001 0 1 0 001 LDBR 1 ;SETUP BLOCK CNT=1
3256 003421 1 066031 3 3 0 01 11 MOVB MPGP11
3257 003422 1 064351 3 2 0 16 11 MOVB MPGP6 ;SET ADDITIONAL PNT ROUTINE NUMBER
3258 003423 1 062110 3 1 0 04 10 MOV AC4,BR ;COMPUTE AND STORE THE
3259 003424 1 014000 0 6 0 000 SHR ;36-BIT WORD CNT
3260 003425 1 064251 3 2 0 12 11 MOVB MPGP2
3261 003426 1 002000 0 1 0 000 LDBR 0 ;CLEAR HI ORDER WRD CNT BITS
3262 003427 1 064271 3 2 0 13 11 MOVB MPGP3
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 32-3
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
3263 003430 1 002022 0 1 0 022 LDBR 22 ;SELECT DATA PATH
3264 003431 1 066371 3 3 0 17 11 MOVB IOSEL
3265 003432 1 002032 0 1 0 032 LDBR ENDSTR-STORIT ;COMPUTE SIZE OF SCATCH AREA MINUS 1
3266 003433 1 072011 3 5 0 00 11 MOVB AC0
3267 003434 1 001001 0 0 2 001 LDMAR STORIT ;SET SCRATCH AREA ADDRESS
3268 003435 1 002000 0 1 0 000 LDBR 0 ;CLEAR BR
3269 003436 1 070011 3 4 0 00 11 CLRLP: MOVB MEM ;ZERO MEM LOC
3270 003437 1 073407 3 5 3 00 07 DECR AC0,I ;DEC LOOP CNT AND INC MEM ADDR
3271 003440 1 115442 4 6 1442 JMPZ .+2 ;JUMP IF TABLE ALL CLEARED
3272 003441 1 101436 4 0 1436 JMP CLRLP ;ELSE, CONTINUE
3273 003442 1 002000 0 1 0 000 LDBR 0
3274 003443 1 072011 3 5 0 00 11 MOVB AC0 ;SETUP A ZERO REG
3275 003444 1 062110 3 1 0 04 10 MOV AC4,BR ;MOVE WORD CNT TO BR
3276 003445 1 062016 3 1 0 00 16 TSB AC0,BR ;COMPUTE 2'S COMP OF 18-BIT WORD CNT
3277 003446 1 064111 3 2 0 04 11 MOVB MCLO ;PUT IT IN MC
3278 003447 1 062050 3 1 0 02 10 MOV AC2,BR ;MOVE THE BYTE CNT TO BR
3279 003450 1 062016 3 1 0 00 16 TSB AC0,BR ;COMPUTE 2'S COMP OF BYTE CNT
3280 003451 1 064151 3 2 0 06 11 MOVB BCLO ;PUT IT IN BC
3281 003452 1 002377 0 1 0 377 LDBR -1 ;PUT ONES INTO HIGH ORDER MC AND BC
3282 003453 1 064131 3 2 0 05 11 MOVB MCHI
3283 003454 1 064171 3 2 0 07 11 MOVB BCHI
3284 003455 1 117630 4 7 1630 JMPSUB CBLOOP ;SETUP CB BOARD LOOPING
3285 003456 1 002006 0 1 0 006 LDBR SEBCOV+MEMCOV ;CLEAR ROM ADDR BIT 8 AND SET
3286 003457 1 064051 3 2 0 02 11 MOVB REG2 ;"SEX ON BC OVRFLW" & "MEX ON MC OVRFLW"
3287 003460 1 062070 3 1 0 03 10 MOV AC3,BR ;SETUP THE ROM PROGRAM ADDRESS
3288 003461 1 064211 3 2 0 10 11 MOVB DFRMAD
3289 003462 1 064011 3 2 0 00 11 MOVB REG0 ;CLEAR FLAGS
3290 ;SETUP A WRITE XFER
3291 003463 1 117725 4 7 1725 WRITE ;SETUP FOR A DEVICE WRITE
3292 003464 1 002011 0 1 0 011 LDBR 11 ;SELECT MASSBUS INTERFACE
3293 003465 1 066371 3 3 0 17 11 MOVB IOSEL
3294 003466 1 002030 0 1 0 030 LDBR DTD+OCC ;SET MASK OF BITS TO BE SET
3295 003467 1 064031 3 2 0 01 11 MOVB MPSCR1 ;AND WRITE IT TO STATUS REG
3296 003470 1 117576 4 7 1576 JMPSUB RUNWAT ;WAIT FOR "RUN" TO SET
3297 003471 1 002022 0 1 0 022 LDBR 22 ;SELECT DATA PATH
3298 003472 1 066371 3 3 0 17 11 MOVB IOSEL
3299 003473 1 064271 3 2 0 13 11 MOVB HSDPIN ;DO HS DP INIT
3300 003474 1 002003 0 1 0 003 LDBR DXHISP+BCLKEN ;SET "DX HIGH SPEED"
3301 003475 1 064031 3 2 0 01 11 MOVB REG1
3302 003476 1 117606 4 7 1606 JMPSUB STRMB ;GO START THE XFER
3303 003477 1 001001 0 0 2 001 LDMAR STORIT ;SET MAR TO POINT TO STORAGE AREA
3304 003500 1 117641 4 7 1641 WRLP: JMPSUB SETSLV ;GO SET SLVE REQ ON CB BOARD
3305 003501 1 117555 4 7 1555 JMPSUB SLVWT ;GO WAIT FOR "SLVE REQ" TO CLEAR
3306 003502 1 115506 4 6 1506 JMPZ OKWR ;JUMP IF IT CLEARED
3307 003503 1 117567 4 7 1567 JMPSUB SETDAT ;SETUP LOOP CNT VALUE FOR HOST
3308 003504 1 117621 4 7 1621 JMPSUB ABTXFR ;ABORT THE XFER
3309 003505 1 016000 0 7 0 000 RETURN ;GIVE ERROR RETURN
3310 003506 1 002033 0 1 0 033 OKWR: LDBR 33 ;SELECT CHANNEL BUS INTERFACE
3311 003507 1 066371 3 3 0 17 11 MOVB IOSEL
3312 003510 1 031406 1 4 3 00 06 DATI DRLO,MEM,I ;READ DATA INTO MEMORY
3313 003511 1 002022 0 1 0 022 LDBR 22 ;SELECT DATA PATH
3314 003512 1 066371 3 3 0 17 11 MOVB IOSEL
3315 003513 1 022003 1 1 0 00 03 DATI REG3,BR ;READ REG 17
3316 003514 1 014000 0 6 0 000 SHR ;MOVE "NOT SLVE END XFER" INTO BIT 0
3317 003515 1 105500 4 2 1500 JMPB0 WRLP ;JUMP IF NO SLVE END XFER YET
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 32-4
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
3318 003516 1 117621 4 7 1621 JMPSUB ABTXFR ;END THE XFER
3319 003517 1 002033 0 1 0 033 LDBR 33 ;SELECT CHANNEL BUS INTERFACE
3320 003520 1 066371 3 3 0 17 11 MOVB IOSEL
3321 003521 1 002000 0 1 0 000 LDBR 0 ;CLEAR LOOP ENABLE
3322 003522 1 064031 3 2 0 01 11 MOVB CSR1
3323 003523 1 002022 0 1 0 022 LDBR 22 ;SELECT DATA PATH
3324 003524 1 066371 3 3 0 17 11 MOVB IOSEL
3325 003525 1 016377 0 7 0 377 RETURN -1 ;GIVE NO ERROR RETURN
3326
3327 003526 1 002001 0 1 0 001 CHKDAT: LDBR STORIT ;SETUP ACTUAL DATA ADDR IN AC2
3328 003527 1 072071 3 5 0 03 11 MOVB AC3
3329 003530 1 062050 3 1 0 02 10 MOV AC2,BR ;PUT BYTE CNT IN AC0
3330 003531 1 072011 3 5 0 00 11 MOVB AC0
3331 003532 1 062030 3 1 0 01 10 MOV AC1,BR ;PUT CORRECT ADDR IN AC5
3332 003533 1 072131 3 5 0 05 11 MOVB AC5
3333 003534 1 072047 3 5 0 02 07 DECR AC2 ;SET LOOP CNT=BYTE CNT MINUS 1
3334 003535 1 061070 3 0 2 03 10 CKLOOP: MOV AC3,MAR ;SET MAR TO ACTUAL DATA
3335 003536 1 052111 2 5 0 04 11 MOVMEM AC4 ;PUT ACTUAL DATA IN AC4
3336 003537 1 061030 3 0 2 01 10 MOV AC1,MAR ;SET MAR TO CORRECT DATA ADDR
3337 003540 1 040117 2 0 0 04 17 OSM AC4 ;CHECK FOR CORRECT DATA
3338 003541 1 115547 4 6 1547 JMPZ CONCHK ;JUMP IF CORRECT
3339 003542 1 062130 3 1 0 05 10 MOV AC5,BR ;MOVE CORRECT DATA ADDR TO AC1
3340 003543 1 072031 3 5 0 01 11 MOVB AC1
3341 003544 1 002001 0 1 0 001 LDBR STORIT ;PUT ACTUAL DATA ADDR IN AC2
3342 003545 1 072051 3 5 0 02 11 MOVB AC2
3343 003546 1 016000 0 7 0 000 RETURN ;GIVE ERROR RETURN
3344 003547 1 072063 3 5 0 03 03 CONCHK: INCR AC3 ;INC ACTUAL DATA ADDR
3345 003550 1 072023 3 5 0 01 03 INCR AC1 ;INC CORRECT DATA ADDR
3346 003551 1 072047 3 5 0 02 07 DECR AC2 ;DEC LOOP CNT
3347 003552 1 115554 4 6 1554 JMPZ .+2 ;JUMP IF DONE
3348 003553 1 101535 4 0 1535 JMP CKLOOP ;ELSE, CONTINUE
3349
3350 003554 1 016377 0 7 0 377 RETURN -1 ;GIVE NO ERROR RETURN
3351
3352
3353 003555 1 002000 0 1 0 000 SLVWT: LDBR 0 ;CLEAR WAIT COUNT
3354 003556 1 072011 3 5 0 00 11 MOVB AC0 ;STORE IN AC0
3355 003557 1 032121 1 5 0 05 01 WTLP1: DATI REG1,AC5 ;READ REG 1 FOR "SLVE REQ"
3356 003560 1 062125 3 1 0 05 05 SHL AC5,BR ;LEFT ADJUST "SLVE REQ"
3357 003561 1 111563 4 4 1563 JMPB7 .+2 ;JUMP IF STILL SET
3358 003562 1 016377 0 7 0 377 RETURN -1 ;GIVE "SLVE REQ" CLEARED RETURN
3359 003563 1 072003 3 5 0 00 03 INCR AC0 ;INC WAIT COUNT
3360 003564 1 113566 4 5 1566 JMPC .+2 ;JUMP IF TIMED OUT
3361 003565 1 101557 4 0 1557 JMP WTLP1 ;KEEP WAITING
3362 003566 1 016000 0 7 0 000 RETURN ;GIVE TIMEOUT RETURN
3363
3364 003567 1 002011 0 1 0 011 SETDAT: LDBR 11 ;SELECT MASSBUS INTERFACE
3365 003570 1 066371 3 3 0 17 11 MOVB IOSEL
3366 003571 1 062050 3 1 0 02 10 MOV AC2,BR ;PUT LOOP CNT INTO BR
3367 003572 1 064311 3 2 0 14 11 MOVB MPGP4 ;STORE FOR ERROR LOOPING CONTROL
3368 003573 1 002022 0 1 0 022 LDBR 22 ;SELECT DATA PATH
3369 003574 1 066371 3 3 0 17 11 MOVB IOSEL
3370 003575 1 016000 0 7 0 000 RETURN
3371
3372 003576 1 002000 0 1 0 000 RUNWAT: LDBR 0 ;CLEAR WAIT CNT
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 32-5
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
3373 003577 1 072011 3 5 0 00 11 MOVB AC0
3374 003600 1 072003 3 5 0 00 03 RUNLP: INCR AC0 ;INCREMENT WAIT CNT
3375 003601 1 113605 4 5 1605 JMPC RUNBCK ;JUMP IF TIMED OUT, TEST WILL FAIL
3376 003602 1 022000 1 1 0 00 00 DATI MPSCR0,BR ;CHECK "RUN" BIT
3377 003603 1 105605 4 2 1605 JMPB0 .+2 ;JUMP IF SET
3378 003604 1 101600 4 0 1600 JMP RUNLP ;ELSE, KEEP WAITING
3379 003605 1 016000 0 7 0 000 RUNBCK: RETURN
3380
3381 003606 1 002011 0 1 0 011 STRMB: LDBR 11 ;SELECT MASSBUS INTERFACE
3382 003607 1 066371 3 3 0 17 11 MOVB IOSEL
3383 003610 1 032001 1 5 0 00 01 DATI MPSCR1,AC0 ;READ PRESENT STATE OF STATUS
3384 003611 1 002030 0 1 0 030 LDBR OCC+DTD ;SET MASK OF BITS TO KEEP
3385 003612 1 072013 3 5 0 00 13 LANDBR AC0
3386 003613 1 002004 0 1 0 004 LDBR START ;SET MASK OF START BIT
3387 003614 1 062014 3 1 0 00 14 LORB AC0,BR ;SET IT INTO PRESENT STATUS
3388 003615 1 064031 3 2 0 01 11 MOVB MPSCR1
3389 003616 1 002022 0 1 0 022 LDBR 22 ;SELECT DATA PATH
3390 003617 1 066371 3 3 0 17 11 MOVB IOSEL
3391 003620 1 016000 0 7 0 000 RETURN
3392
3393 003621 1 002011 0 1 0 011 ABTXFR: LDBR 11 ;SELECT MASSBUS INTERFACE
3394 003622 1 066371 3 3 0 17 11 MOVB IOSEL
3395 003623 1 002001 0 1 0 001 LDBR EBL ;SET MASK OF BIT TO BE SET
3396 003624 1 064031 3 2 0 01 11 MOVB MPSCR1 ;AND WRITE IT TO STATUS REG
3397 003625 1 002022 0 1 0 022 LDBR 22 ;SELECT DATA PATH
3398 003626 1 066371 3 3 0 17 11 MOVB IOSEL
3399 003627 1 016000 0 7 0 000 RETURN
3400
3401 003630 1 002033 0 1 0 033 CBLOOP: LDBR 33 ;SELECT CHANNEL BUS INTERFACE
3402 003631 1 066371 3 3 0 17 11 MOVB IOSEL
3403 003632 1 002045 0 1 0 045 LDBR LOOPEN+EVPAR+CHANL ;SET LOOP ENABLE AND EVEN PARITY
3404 003633 1 064031 3 2 0 01 11 MOVB CSR1 ;AND CHANNEL MODE
3405 003634 1 002000 0 1 0 000 LDBR 0 ;INSURE "STA IN" IS CLEAR
3406 003635 1 064051 3 2 0 02 11 MOVB TOR0
3407 003636 1 002022 0 1 0 022 LDBR 22 ;SELECT DATA PATH
3408 003637 1 066371 3 3 0 17 11 MOVB IOSEL
3409 003640 1 016000 0 7 0 000 RETURN
3410
3411 003641 1 002033 0 1 0 033 SETSLV: LDBR 33 ;SELECT CHANNEL BUS INTERFACE
3412 003642 1 066371 3 3 0 17 11 MOVB IOSEL
3413 003643 1 101652 4 0 1652 JMP CLKIT1 ;GO GENERATE "SLVE REQ"
3414 003644 1 002033 0 1 0 033 CLKDAT: LDBR 33 ;SELECT CHANNEL BUS INTERFACE
3415 003645 1 066371 3 3 0 17 11 MOVB IOSEL
3416 003646 1 002000 0 1 0 000 LDBR 0 ;COMPUTE THE COMPLEMENT OF MEM CONTENTS
3417 003647 1 072011 3 5 0 00 11 MOVB AC0
3418 003650 1 042012 2 1 0 00 12 LORCM AC0,BR ;PUT IT IN BR
3419 003651 1 064231 3 2 0 11 11 CLKIT: MOVB BORLO ;LOAD DATA INTO BOR
3420 003652 1 002200 0 1 0 200 CLKIT1: LDBR SRVINL ;SET "SRV IN"
3421 003653 1 064071 3 2 0 03 11 MOVB TOR1
3422 003654 1 002000 0 1 0 000 LDBR 0 ;CLEAR "SRV IN"
3423 003655 1 064071 3 2 0 03 11 MOVB TOR1
3424 003656 1 002022 0 1 0 022 LDBR 22 ;SELECT DATA PATH
3425 003657 1 066371 3 3 0 17 11 MOVB IOSEL
3426 003660 1 016000 0 7 0 000 RETURN
3427
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 32-6
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
3428 003661 1 022000 1 1 0 00 00 DPPAR: DATI REG0,BR ;READ FLAG REG
3429 003662 1 014000 0 6 0 000 SHR ;RIGHT ADJUST "DP PE" FLAG
3430 003663 1 105665 4 2 1665 JMPB0 .+2 ;JUMP IF IT SET
3431 003664 1 016377 0 7 0 377 RETURN -1 ;GIVE NO ERROR RETURN
3432 003665 1 016000 0 7 0 000 RETURN ;GIVE ERROR RETURN
3433
3434 003666 1 002033 0 1 0 033 CBPAR: LDBR 33 ;SELECT MASSBUS INTERFACE
3435 003667 1 066371 3 3 0 17 11 MOVB IOSEL
3436 003670 1 032000 1 5 0 00 00 DATI CSR0,AC0 ;READ FLAG REG
3437 003671 1 002022 0 1 0 022 LDBR 22 ;SELECT DATA PATH
3438 003672 1 066371 3 3 0 17 11 MOVB IOSEL
3439 003673 1 062010 3 1 0 00 10 MOV AC0,BR
3440 003674 1 014000 0 6 0 000 SHR ;RIGHT ADJUST "DP PE" FLAG
3441 003675 1 105677 4 2 1677 JMPB0 .+2 ;JUMP IF IT SET
3442 003676 1 016377 0 7 0 377 RETURN -1 ;GIVE NO ERROR RETURN
3443 003677 1 016000 0 7 0 000 RETURN ;GIVE ERROR RETURN
3444 003700 1 002011 0 1 0 011 MBPAR: LDBR 11 ;SELECT MASSBUS INTERFACE
3445 003701 1 066371 3 3 0 17 11 MOVB IOSEL
3446 003702 1 032007 1 5 0 00 07 DATI MPDB2,AC0 ;READ BUFFER REG
3447 003703 1 002022 0 1 0 022 LDBR 22 ;SELECT DATA PATH
3448 003704 1 066371 3 3 0 17 11 MOVB IOSEL
3449 003705 1 062005 3 1 0 00 05 SHL AC0,BR ;MOVE "DP PE" FLAG TO BIT 4
3450 003706 1 107710 4 3 1710 JMPB4 .+2 ;JUMP IF IT SET
3451 003707 1 016377 0 7 0 377 RETURN -1 ;GIVE NO ERROR RETURN
3452 003710 1 016000 0 7 0 000 RETURN ;GIVE ERROR RETURN
3453
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 33
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
3454 003711 1 002267 0 1 0 267 END: .ECRAM
3455 003712 1 160211 7 0 0 10 11
3456 003713 1 072131 3 5 0 05 11
3457 003714 1 002044 0 1 0 044
3458 003715 1 160211 7 0 0 10 11
3459 003716 1 072131 3 5 0 05 11
3460 003717 1 002142 0 1 0 142
3461 003720 1 160211 7 0 0 10 11
3462 003721 1 002104 0 1 0 104
3463 003722 1 160211 7 0 0 10 11
3464 003723 1 002264 0 1 0 264
3465 003724 1 160211 7 0 0 10 11
3466 003725 1 002001 0 1 0 001
3467 003726 1 101732 4 0 1732
3468 003727 1 002002 0 1 0 002
3469 003730 1 101732 4 0 1732
3470 003731 1 002003 0 1 0 003
3471 003732 1 072131 3 5 0 05 11
3472 003733 1 002245 0 1 0 245
3473 003734 1 160211 7 0 0 10 11
3474 003735 1 072131 3 5 0 05 11
3475 003736 1 002257 0 1 0 257
3476 003737 1 160211 7 0 0 10 11
3477 003740 1 072131 3 5 0 05 11
3478 003741 1 002174 0 1 0 174
3479 003742 1 160211 7 0 0 10 11
3480 003743 777777 777777 .MEM
3481 000000 000000 000000 0 ;FIRST MEM LOC IS FOR SCRATCH
3482 000001 000000 000000 STORIT: 0
3483 000002 000000 000000 0
3484 000003 000000 000000 0
3485 000004 000000 000000 0
3486 000005 000000 000000 0
3487 000006 000000 000000 0
3488 000007 000000 000000 0
3489 000010 000000 000000 0
3490 000011 000000 000000 0
3491 000012 000000 000000 0
3492 000013 000000 000000 0
3493 000014 000000 000000 0
3494 000015 000000 000000 0
3495 000016 000000 000000 0
3496 000017 000000 000000 0
3497 000020 000000 000000 0
3498 000021 000000 000000 0
3499 000022 000000 000000 0
3500 000023 000000 000000 0
3501 000024 000000 000000 0
3502 000025 000000 000000 0
3503 000026 000000 000000 0
3504 000027 000000 000000 0
3505 000030 000000 000000 0
3506 000031 000000 000000 0
3507 000032 000000 000000 0
3508 000033 000000 000000 ENDSTR: 0
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 33-1
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
3509 000034 000000 000001 TSTDAT: 1
3510 000035 777777 777777 -1
3511 000036 000000 000002 2
3512 000037 777777 777776 -2
3513 000040 000000 000003 3
3514 000041 777777 777775 -3
3515 000042 000000 000004 4
3516 000043 777777 777774 -4
3517 000044 000000 000005 5
3518 000045 777777 777773 -5
3519 000046 000000 000006 6
3520 000047 777777 777772 -6
3521 000050 000000 000007 7
3522 000051 777777 777771 -7
3523 000052 000000 000010 ^D8
3524 000053 777777 777770 -^D8
3525 000054 000000 000011 ^D9
3526 000055 777777 777767 -^D9
3527 000056 000000 000012 ^D10
3528 000057 777777 777766 -^D10
3529 000060 000000 000013 ^D11
3530 000061 777777 777765 -^D11
3531 000062 000000 000014 ^D12
3532 000063 777777 777764 -^D12
3533 000064 000000 000015 ^D13
3534 000065 777777 777763 -^D13
3535 000066 000000 000001 CRDMP: 1
3536 000067 777777 777777 -1
3537 000070 000000 000002 2
3538 000071 777777 777776 -2
3539 000072 000000 000003 3
3540 000073 777777 777775 -3
3541 000074 000000 000004 4
3542 000075 777777 777774 -4
3543 000076 000000 000005 5
3544 000077 000000 000013 13
3545 000100 000000 000001 ASCII6: 1
3546 000101 000000 000077 77
3547 000102 000000 000002 2
3548 000103 000000 000076 76
3549 000104 000000 000003 3
3550 000105 000000 000075 75
3551 000106 000000 000004 4
3552 000107 000000 000074 74
3553 000110 000000 000005 5
3554 000111 000000 000073 73
3555 000112 000000 000006 6
3556 000113 000000 000072 72
3557 000114 000000 000001 ASCI71: 1
3558 000115 000000 000177 177
3559 000116 000000 000002 2
3560 000117 000000 000176 176
3561 000120 000000 000003 3
3562 000121 000000 000175 175
3563 000122 000000 000004 4
MCODE6 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 3 VERSION 0.1 MACRO %53B(1252) 15:56 6-Mar-89 Page 33-2
MCOD6M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 3
3564 000123 000000 000174 174
3565 000124 000000 000005 5
3566 000125 000000 000373 373
3567 000126 000000 000001 ASCI72: 1
3568 000127 000000 000177 177
3569 000130 000000 000002 2
3570 000131 000000 000176 176
3571 000132 000000 000003 3
3572 000133 000000 000175 175
3573 000134 000000 000004 4
3574 000135 000000 000174 174
3575 000136 000000 000005 5
3576 000137 000000 000173 173
3577 .END
3578
3579 END
NO ERRORS DETECTED
PROGRAM BREAK IS 000000
ABSOLUTE BREAK IS 004104
CPU TIME USED 03:08.875
29P CORE USED
ABTXFR 3185 3211 3214 3308 3318 3393#
AC0 775 797 799 811 900 975 1048 1121 1194 1267 1340 1415 1488 1568
1641 1714 1787 1860 1935 2008 2084 2157 2225 2293 2361 2429 2497 2565
2633 2703 2771 2839 2907 2975 3043 3139 3202 3208 3253 3266 3270 3274
3276 3279 3330 3354 3359 3373 3374 3383 3385 3387 3417 3418 3436 3439
3446 3449
AC1 773 802 813 815 908 1348 1868 2641 3331 3336 3340 3345
AC2 804 814 817 904 979 1052 1125 1198 1271 1344 1419 1492 1572 1645
1718 1791 1864 1939 2012 2088 2161 2229 2297 2365 2433 2501 2569 2637
2707 2775 2843 2911 2979 3047 3162 3187 3278 3329 3333 3342 3346 3366
AC3 906 981 1054 1127 1200 1273 1346 1421 1494 1574 1647 1720 1793 1866
1941 2014 2090 2163 2231 2299 2367 2435 2503 2571 2639 2709 2777 2845
2913 2981 3049 3159 3287 3328 3334 3344
AC4 703 708 902 977 1050 1123 1196 1269 1342 1417 1490 1570 1643 1716
1789 1862 1937 2010 2086 2159 2227 2295 2363 2431 2499 2567 2635 2705
2773 2841 2909 2977 3045 3144 3258 3275 3335 3337
AC5 671 673 675 681 715 716 718 737 739 744 748 753 756 759
764 770 777 791 794 806 838 840 849 851 3130 3133 3164 3332
3339 3355 3356 3456 3459 3471 3474 3477
AC6 684 688 698 860 1553 1558
AC7 656 691 692 725 730 734 738 751 754
AR1716 156#
ARHI 75#
ARHIBT 152#
ARLO 74#
ARLOBT 148#
ASCI71 3557#
ASCI72 3567#
ASCII6 2640 3545#
ATA 367# 717 743 755 842 853 871
BCHI 70# 3153 3283
BCHIBT 132#
BCLKEN 95# 3135 3177 3249 3300
BCLO 69# 3152 3280
BCLOBT 128#
BCOVF 89#
BEGEND 866# 3454
BEGIN 641# 874
BORLO 190# 3419
C 424#
CALL 832 834 836 838#
CALL0 839# 3472
CALLH 3467 3469 3471#
CATAB 335# 790 2099 2108 2117 2126 2135 2171 2179 2187 2195 2203 2239 2247
2255 2263 2271 2307 2315 2323 2331 2339 2375 2383 2391 2399 2407 2443
2451 2459 2467 2475 2511 2519 2527 2535 2543 2579 2587 2595 2603 2611
2649 2662 2670 2678 2685 2717 2725 2733 2741 2749 2785 2793 2801 2809
2817 2853 2861 2869 2877 2885 2921 2929 2937 2945 2953 2989 2997 3005
3013 3021 3057 3065 3073 3081 3089
CBILO 189#
CBLOOP 3156 3284 3401#
CBPAR 932 1009 1082 1155 1228 1301 1372 1449 1522 1602 1675 1748 1821 1892
1969 2042 2118 2188 2256 2324 2392 2460 2528 2596 2663 2734 2802 2870
2938 3006 3074 3434#
CC0 215#
CC1 216#
CC2 217#
CC4 218#
CC5 219#
CC8 220#
CHANL 196# 3403
CHKDAT 950 1390 1910 2679 3327#
CHKLOP 778# 854
CHKLP 779# 825
CKLOOP 3334# 3348
CKTRM 849# 919 1028 1101 1174 1247 1320 1359 1468 1541 1621 1694 1767 1840
1879 1988 2061
CKTRM0 850# 3475
CKTRMH 2137 2205 2273 2341 2409 2477 2545 2613 2651 2751 2819 2887 2955 3023
3091 3474#
CLKDAT 3181 3414#
CLKDRL 191#
CLKIT 3419#
CLKIT1 3413 3420#
CLKPLS 81#
CLRFLG 202#
CLRGO 360# 674
CLRLP 3269# 3272
CMDF0 650 666#
CMPERR 361#
CONCHK 3338 3344#
CORF 913# 915 927# 929 936# 938 945# 947 954# 956 986# 988 995# 997
1004# 1006 1013# 1015 1022# 1024 1059# 1061 1068# 1070 1077# 1079 1086# 1088
1095# 1097 1132# 1134 1141# 1143 1150# 1152 1159# 1161 1168# 1170 1205# 1207
1214# 1216 1223# 1225 1232# 1234 1241# 1243 1278# 1280 1287# 1289 1296# 1298
1305# 1307 1314# 1316 1353# 1355 1367# 1369 1376# 1378 1385# 1387 1394# 1396
1426# 1428 1435# 1437 1444# 1446 1453# 1455 1462# 1464 1499# 1501 1508# 1510
1517# 1519 1526# 1528 1535# 1537 1579# 1581 1588# 1590 1597# 1599 1606# 1608
1615# 1617 1652# 1654 1661# 1663 1670# 1672 1679# 1681 1688# 1690 1725# 1727
1734# 1736 1743# 1745 1752# 1754 1761# 1763 1798# 1800 1807# 1809 1816# 1818
1825# 1827 1834# 1836 1873# 1875 1887# 1889 1896# 1898 1905# 1907 1914# 1916
1946# 1948 1955# 1957 1964# 1966 1973# 1975 1982# 1984 2019# 2021 2028# 2030
2037# 2039 2046# 2048 2055# 2057 2095# 2097 2104# 2106 2113# 2115 2122# 2124
2131# 2133 2167# 2169 2175# 2177 2183# 2185 2191# 2193 2199# 2201 2235# 2237
2243# 2245 2251# 2253 2259# 2261 2267# 2269 2303# 2305 2311# 2313 2319# 2321
2327# 2329 2335# 2337 2371# 2373 2379# 2381 2387# 2389 2395# 2397 2403# 2405
2439# 2441 2447# 2449 2455# 2457 2463# 2465 2471# 2473 2507# 2509 2515# 2517
2523# 2525 2531# 2533 2539# 2541 2575# 2577 2583# 2585 2591# 2593 2599# 2601
2607# 2609 2645# 2647 2658# 2660 2666# 2668 2674# 2676 2682# 2684 2713# 2715
2721# 2723 2729# 2731 2737# 2739 2745# 2747 2781# 2783 2789# 2791 2797# 2799
2805# 2807 2813# 2815 2849# 2851 2857# 2859 2865# 2867 2873# 2875 2881# 2883
2917# 2919 2925# 2927 2933# 2935 2941# 2943 2949# 2951 2985# 2987 2993# 2995
3001# 3003 3009# 3011 3017# 3019 3053# 3055 3061# 3063 3069# 3071 3077# 3079
3085# 3087
CRDMP 1347 3535#
CSR0 184# 3436
CSR1 185# 3194 3218 3322 3404
CUADRS 454 541 2078 2095 2099 2104 2108 2113 2117 2122 2126 2131 2135 2138
2142 2151 2167 2171 2175 2179 2183 2187 2191 2195 2199 2203 2206 2210
2219 2235 2239 2243 2247 2251 2255 2259 2263 2267 2271 2274 2278 2287
2303 2307 2311 2315 2319 2323 2327 2331 2335 2339 2342 2346 2355 2371
2375 2379 2383 2387 2391 2395 2399 2403 2407 2410 2414 2423 2439 2443
2447 2451 2455 2459 2463 2467 2471 2475 2478 2482 2491 2507 2511 2515
2519 2523 2527 2531 2535 2539 2543 2546 2550 2559 2575 2579 2583 2587
2591 2595 2599 2603 2607 2611 2614 2618 2627 2645 2649 2652 2658 2662
2666 2670 2674 2678 2682 2686 2688 2697 2713 2717 2721 2725 2729 2733
2737 2741 2745 2749 2752 2756 2765 2781 2785 2789 2793 2797 2801 2805
2809 2813 2817 2820 2824 2833 2849 2853 2857 2861 2865 2869 2873 2877
2881 2885 2888 2892 2901 2917 2921 2925 2929 2933 2937 2941 2945 2949
2953 2956 2960 2969 2985 2989 2993 2997 3001 3005 3009 3013 3017 3021
3024 3028 3037 3053 3057 3061 3065 3069 3073 3077 3081 3085 3089 3092
3096 3167 3169 3292
DB 393#
DBEVEN 396#
DBPAR 394#
DBPARE 395#
DFCPH0 169#
DFCPH1 170#
DFRMAD 71# 3160 3288
DIAGAD 207#
DISACK 198#
DMSTRQ 97#
DMXSHF 209#
DONE 357#
DONERD 3207 3214#
DPPAR 923 1000 1073 1146 1219 1292 1363 1440 1513 1593 1666 1739 1812 1883
1960 2033 2109 2180 2248 2316 2384 2452 2520 2588 2655 2726 2794 2862
2930 2998 3066 3428#
DPPEFG 88#
DRLO 188# 3312
DSHF0 233#
DSHF1 234#
DSHF10 241#
DSHF11 242#
DSHF12 243#
DSHF13 244#
DSHF14 245#
DSHF15 246#
DSHF16 247#
DSHF17 248#
DSHF2 235#
DSHF3 236#
DSHF4 237#
DSHF5 238#
DSHF6 239#
DSHF7 240#
DSLVRQ 96#
DTD 363# 672 717 3294 3384
DXHISP 94# 3177 3300
EBL 358# 3395
EDIT 2# 2 639
ELOOPC 780 785#
END 3098 3454#
ENDSTR 3265 3508#
ENDWAT 3203# 3210
ERLP 759# 913 927 936 945 986 995 1004 1013 1022 1059 1068 1077 1086
1095 1132 1141 1150 1159 1168 1205 1214 1223 1232 1241 1278 1287 1296
1305 1314 1353 1367 1376 1385 1426 1435 1444 1453 1462 1499 1508 1517
1526 1535 1579 1588 1597 1606 1615 1652 1661 1670 1679 1688 1725 1734
1743 1752 1761 1798 1807 1816 1825 1834 1873 1887 1896 1905 1946 1955
1964 1973 1982 2019 2028 2037 2046 2055 2095 2098 2104 2107 2113 2116
2122 2125 2131 2134 2167 2170 2175 2178 2183 2186 2191 2194 2199 2202
2235 2238 2243 2246 2251 2254 2259 2262 2267 2270 2303 2306 2311 2314
2319 2322 2327 2330 2335 2338 2371 2374 2379 2382 2387 2390 2395 2398
2403 2406 2439 2442 2447 2450 2455 2458 2463 2466 2471 2474 2507 2510
2515 2518 2523 2526 2531 2534 2539 2542 2575 2578 2583 2586 2591 2594
2599 2602 2607 2610 2645 2648 2658 2661 2666 2669 2674 2677 2685 2713
2716 2721 2724 2729 2732 2737 2740 2745 2748 2781 2784 2789 2792 2797
2800 2805 2808 2813 2816 2849 2852 2857 2860 2865 2868 2873 2876 2881
2884 2917 2920 2925 2928 2933 2936 2941 2944 2949 2952 2985 2988 2993
2996 3001 3004 3009 3012 3017 3020 3053 3056 3061 3064 3069 3072 3077
3080 3085 3088
ERLP0 760# 3460
ERLPA 770# 2099 2108 2117 2126 2135 2171 2179 2187 2195 2203 2239 2247 2255
2263 2271 2307 2315 2323 2331 2339 2375 2383 2391 2399 2407 2443 2451
2459 2467 2475 2511 2519 2527 2535 2543 2579 2587 2595 2603 2611 2649
2662 2670 2678 2685 2717 2725 2733 2741 2749 2785 2793 2801 2809 2817
2853 2861 2869 2877 2885 2921 2929 2937 2945 2953 2989 2997 3005 3013
3021 3057 3065 3073 3081 3089
ERLPA0 771#
ERLPD 791# 954 1394 1914 2099 2108 2117 2126 2135 2171 2179 2187 2195 2203
2239 2247 2255 2263 2271 2307 2315 2323 2331 2339 2375 2383 2391 2399
2407 2443 2451 2459 2467 2475 2511 2519 2527 2535 2543 2579 2587 2595
2603 2611 2649 2662 2670 2678 2682 2685 2717 2725 2733 2741 2749 2785
2793 2801 2809 2817 2853 2861 2869 2877 2885 2921 2929 2937 2945 2953
2989 2997 3005 3013 3021 3057 3065 3073 3081 3089
ERLPD0 792# 3478
ERLPD1 808# 821
ERLPD2 812 823#
ERLPDH 2685 3477#
ERLPH 2098 2107 2116 2125 2134 2170 2178 2186 2194 2202 2238 2246 2254 2262
2270 2306 2314 2322 2330 2338 2374 2382 2390 2398 2406 2442 2450 2458
2466 2474 2510 2518 2526 2534 2542 2578 2586 2594 2602 2610 2648 2661
2669 2677 2716 2724 2732 2740 2748 2784 2792 2800 2808 2816 2852 2860
2868 2876 2884 2920 2928 2936 2944 2952 2988 2996 3004 3012 3020 3056
3064 3072 3080 3088 3459#
ERLPM 764# 2099 2108 2117 2126 2135 2171 2179 2187 2195 2203 2239 2247 2255
2263 2271 2307 2315 2323 2331 2339 2375 2383 2391 2399 2407 2443 2451
2459 2467 2475 2511 2519 2527 2535 2543 2579 2587 2595 2603 2611 2649
2662 2670 2678 2685 2717 2725 2733 2741 2749 2785 2793 2801 2809 2817
2853 2861 2869 2877 2885 2921 2929 2937 2945 2953 2989 2997 3005 3013
3021 3057 3065 3073 3081 3089
ERLPM0 765#
ERRCA 768 775#
ERRCHK 730# 760 765 771 792
ERRCOM 762 777# 796
ERRSET 724# 912 926 935 944 953 985 994 1003 1012 1021 1058 1067 1076
1085 1094 1131 1140 1149 1158 1167 1204 1213 1222 1231 1240 1277 1286
1295 1304 1313 1352 1366 1375 1384 1393 1425 1434 1443 1452 1461 1498
1507 1516 1525 1534 1578 1587 1596 1605 1614 1651 1660 1669 1678 1687
1724 1733 1742 1751 1760 1797 1806 1815 1824 1833 1872 1886 1895 1904
1913 1945 1954 1963 1972 1981 2018 2027 2036 2045 2054 3462
ERSETH 2094 2103 2112 2121 2130 2166 2174 2182 2190 2198 2234 2242 2250 2258
2266 2302 2310 2318 2326 2334 2370 2378 2386 2394 2402 2438 2446 2454
2462 2470 2506 2514 2522 2530 2538 2574 2582 2590 2598 2606 2644 2657
2665 2673 2681 2712 2720 2728 2736 2744 2780 2788 2796 2804 2812 2848
2856 2864 2872 2880 2916 2924 2932 2940 2948 2984 2992 3000 3008 3016
3052 3060 3068 3076 3084 3462#
EVPAR 199# 3403
EXC 359#
EXTRUN 161#
F0 347#
F1 348#
F2 349#
F3 350#
F4 351#
FN 346#
GO 345#
HSDPIN 82# 3176 3299
I 3187 3270 3312
ILF 365#
INADR 430#
INIT 433# 657 3100
INITL 3100# 3134 3248
INT0 420#
INT1 421#
INT2 422#
INT3 423#
IOSEL 429# 642 658 660 684 686 689 703 705 709 867 889 1553 1555
1559 3101 3103 3138 3150 3170 3175 3192 3198 3216 3220 3252 3264 3293
3298 3311 3314 3320 3324 3365 3369 3382 3390 3394 3398 3402 3408 3412
3415 3425 3435 3438 3445 3448
LDCB 159#
LDRMDA 80#
LDSB 160#
LOOPEN 197# 3193 3403
LPADR 913# 916 927# 930 936# 939 945# 948 954# 957 986# 989 995# 998
1004# 1007 1013# 1016 1022# 1025 1059# 1062 1068# 1071 1077# 1080 1086# 1089
1095# 1098 1132# 1135 1141# 1144 1150# 1153 1159# 1162 1168# 1171 1205# 1208
1214# 1217 1223# 1226 1232# 1235 1241# 1244 1278# 1281 1287# 1290 1296# 1299
1305# 1308 1314# 1317 1353# 1356 1367# 1370 1376# 1379 1385# 1388 1394# 1397
1426# 1429 1435# 1438 1444# 1447 1453# 1456 1462# 1465 1499# 1502 1508# 1511
1517# 1520 1526# 1529 1535# 1538 1579# 1582 1588# 1591 1597# 1600 1606# 1609
1615# 1618 1652# 1655 1661# 1664 1670# 1673 1679# 1682 1688# 1691 1725# 1728
1734# 1737 1743# 1746 1752# 1755 1761# 1764 1798# 1801 1807# 1810 1816# 1819
1825# 1828 1834# 1837 1873# 1876 1887# 1890 1896# 1899 1905# 1908 1914# 1917
1946# 1949 1955# 1958 1964# 1967 1973# 1976 1982# 1985 2019# 2022 2028# 2031
2037# 2040 2046# 2049 2055# 2058 2095# 2098 2099 2104# 2107 2108 2113# 2116
2117 2122# 2125 2126 2131# 2134 2135 2167# 2170 2171 2175# 2178 2179 2183#
2186 2187 2191# 2194 2195 2199# 2202 2203 2235# 2238 2239 2243# 2246 2247
2251# 2254 2255 2259# 2262 2263 2267# 2270 2271 2303# 2306 2307 2311# 2314
2315 2319# 2322 2323 2327# 2330 2331 2335# 2338 2339 2371# 2374 2375 2379#
2382 2383 2387# 2390 2391 2395# 2398 2399 2403# 2406 2407 2439# 2442 2443
2447# 2450 2451 2455# 2458 2459 2463# 2466 2467 2471# 2474 2475 2507# 2510
2511 2515# 2518 2519 2523# 2526 2527 2531# 2534 2535 2539# 2542 2543 2575#
2578 2579 2583# 2586 2587 2591# 2594 2595 2599# 2602 2603 2607# 2610 2611
2645# 2648 2649 2658# 2661 2662 2666# 2669 2670 2674# 2677 2678 2682# 2685
2713# 2716 2717 2721# 2724 2725 2729# 2732 2733 2737# 2740 2741 2745# 2748
2749 2781# 2784 2785 2789# 2792 2793 2797# 2800 2801 2805# 2808 2809 2813#
2816 2817 2849# 2852 2853 2857# 2860 2861 2865# 2868 2869 2873# 2876 2877
2881# 2884 2885 2917# 2920 2921 2925# 2928 2929 2933# 2936 2937 2941# 2944
2945 2949# 2952 2953 2985# 2988 2989 2993# 2996 2997 3001# 3004 3005 3009#
3012 3013 3017# 3020 3021 3053# 3056 3057 3061# 3064 3065 3069# 3072 3073
3077# 3080 3081 3085# 3088 3089
MAR 802 804 815 817 3334 3336
MBPAR 941 1018 1091 1164 1237 1310 1381 1458 1531 1611 1684 1757 1830 1901
1978 2051 2127 2196 2264 2332 2400 2468 2536 2604 2671 2742 2810 2878
2946 3014 3082 3444#
MCHI 68# 3155 3282
MCHIBT 124#
MCLO 67# 3154 3277
MCLOBT 120#
MCOVF 90#
MEMCOV 107# 3285
MEONFE 108# 3157
MEXWAT 991 1064 1137 1210 1283 1431 1504 1584 1657 1730 1803 1951 2024 2100
2172 2240 2308 2376 2444 2512 2580 2718 2786 2854 2922 2990 3058 3201#
MPDB0 383#
MPDB1 387#
MPDB2 391# 3446
MPDTR 375#
MPECR 371# 670 749 841 852
MPERR 366# 717 755
MPGP0 400# 687 869
MPGP1 401# 870 891 1557
MPGP10 408# 3140 3254
MPGP11 409# 3142 3256
MPGP12 410#
MPGP13 411#
MPGP14 412#
MPGP15 413#
MPGP16 414#
MPGP17 415#
MPGP2 402# 3146 3260
MPGP3 403# 3148 3262
MPGP4 404# 767 774 803 816 3367
MPGP5 405# 776 805 818
MPGP6 406# 662 801 808 820 824 3143 3257
MPGP7 407# 798
MPHVR 379#
MPSCR0 343# 643 647 3376
MPSCR1 356# 671 676 715 719 872 3172 3295 3383 3388 3396
MPSTAT 419#
MRHDOF 110#
MSHF0 231 250#
MSHF1 251#
MSHF10 258#
MSHF11 259#
MSHF12 260#
MSHF13 261#
MSHF14 262#
MSHF15 263#
MSHF16 264#
MSHF17 265#
MSHF2 252#
MSHF3 253#
MSHF4 254#
MSHF5 255#
MSHF6 256#
MSHF7 257#
MSK0 216 222#
MSK1 223#
MSK1S 231#
MSK2 224#
MSK3 225#
MSK4 226#
MSK5 227#
MSK6 228#
MSK7 229#
MSK8 230#
MSRDY1 179#
MSRDY2 180#
MSTACK 99#
MSTRDY 178#
MSTRPE 166#
MSTRQ 101#
MUXSHF 210#
NCLRAR 157#
NCLRN 167#
NENMDM 158#
NFEXFR 116#
NMEXFR 115#
NOFAIL 740 742#
NOTRUN 168#
NRNDAT 171#
NRTN 706# 761 766 772 793 861
NSEXFR 114#
NXTBNK 2067 2070#
OCC 364# 3171 3294 3384
OFFGO 663 669# 781 785 845
OKRD 3183 3187#
OKWR 3306 3310#
ONES 213#
OUTADR 431#
PNT 484# 913 918 927 936 945 954 986 995 1004 1013 1022 1027 1059
1068 1077 1086 1095 1100 1132 1141 1150 1159 1168 1173 1205 1214 1223
1232 1241 1246 1278 1287 1296 1305 1314 1319 1353 1358 1367 1376 1385
1394 1426 1435 1444 1453 1462 1467 1499 1508 1517 1526 1535 1540 1579
1588 1597 1606 1615 1620 1652 1661 1670 1679 1688 1693 1725 1734 1743
1752 1761 1766 1798 1807 1816 1825 1834 1839 1873 1878 1887 1896 1905
1914 1946 1955 1964 1973 1982 1987 2019 2028 2037 2046 2055 2060 2095
2104 2113 2122 2131 2136 2167 2175 2183 2191 2199 2204 2235 2243 2251
2259 2267 2272 2303 2311 2319 2327 2335 2340 2371 2379 2387 2395 2403
2408 2439 2447 2455 2463 2471 2476 2507 2515 2523 2531 2539 2544 2575
2583 2591 2599 2607 2612 2645 2650 2658 2666 2674 2682 2713 2721 2729
2737 2745 2750 2781 2789 2797 2805 2813 2818 2849 2857 2865 2873 2881
2886 2917 2925 2933 2941 2949 2954 2985 2993 3001 3009 3017 3022 3053
3061 3069 3077 3085 3090
RA71R1 303#
RA71R2 304#
RA71R3 305#
RA71R4 306#
RA71R5 307#
RA72R1 310#
RA72R2 311#
RA72R3 312#
RA72R4 313#
RA72R5 314#
RAS6R1 295# 2776
RAS6R2 296# 2844
RAS6R3 297# 2912
RAS6R4 298# 2980
RAS6R5 299# 3048
RAS6R6 300#
RAS71F 302#
RAS72F 309#
RASC6F 294# 2708
RCBLR1 325#
RCBLR2 326#
RCBLR3 327#
RCBLR4 328#
RCDMPF 276# 1420
RCDMR1 277# 1493
RCDMR2 278# 1573
RCDMR3 279# 1646
RCDMR4 280# 1719
RCDMR5 281# 1792
RCOBLF 324#
RD 3131 3134#
RDLOBT 140# 144#
RDLP 3181# 3189
RDREV 3165 3168#
RDSEQ 982 1422 1942 2710 3132#
REG0 63# 3161 3289 3428
REG1 64# 3136 3178 3250 3301 3355
REG15 76#
REG16 77#
REG17 78#
REG2 65# 3158 3286
REG3 66# 3203 3315
REM1F 316#
REM1R1 317#
REM1R2 318#
REM2F 320#
REM2R1 321#
REM2R2 322#
REPORT 735 747#
REPTU 860# 959 1032 1105 1178 1251 1324 1399 1472 1545 1625 1698 1771 1844
1919 1992 2065 3464
REPTUH 2141 2209 2277 2345 2413 2481 2549 2617 2687 2755 2823 2891 2959 3027
3095 3464#
RESIOS 708# 782 786 846
RHDATA 331# 453 521 2078 2095 2099 2104 2108 2113 2117 2122 2126 2131 2135
2137 2142 2151 2167 2171 2175 2179 2183 2187 2191 2195 2199 2203 2205
2210 2219 2235 2239 2243 2247 2251 2255 2259 2263 2267 2271 2273 2278
2287 2303 2307 2311 2315 2319 2323 2327 2331 2335 2339 2341 2346 2355
2371 2375 2379 2383 2387 2391 2395 2399 2403 2407 2409 2414 2423 2439
2443 2447 2451 2455 2459 2463 2467 2471 2475 2477 2482 2491 2507 2511
2515 2519 2523 2527 2531 2535 2539 2543 2545 2550 2559 2575 2579 2583
2587 2591 2595 2599 2603 2607 2611 2613 2618 2627 2645 2649 2651 2658
2662 2666 2670 2674 2678 2682 2686 2688 2697 2713 2717 2721 2725 2729
2733 2737 2741 2745 2749 2751 2756 2765 2781 2785 2789 2793 2797 2801
2805 2809 2813 2817 2819 2824 2833 2849 2853 2857 2861 2865 2869 2873
2877 2881 2885 2887 2892 2901 2917 2921 2925 2929 2933 2937 2941 2945
2949 2953 2955 2960 2969 2985 2989 2993 2997 3001 3005 3009 3013 3017
3021 3023 3028 3037 3053 3057 3061 3065 3069 3073 3077 3081 3085 3089
3091 3096 3166 3168 3291
RHIDNF 283# 1940
RHIDR1 284# 2013
RHIDR2 285# 2089
RHIDR3 286# 2162
RHIDR4 287# 2230
RHIDR5 288# 2298
RHIDR6 289# 2366
RHIDR7 290# 2434
RHIDR8 291# 2502
RHIDR9 292# 2570
RINCMF 270# 980
RINCR1 271# 1053
RINCR2 272# 1126
RINCR3 273# 1199
RINCR4 274# 1272
RMADLO 136#
RMADR8 105#
RMDAHI 73#
RMDALO 72#
RPTCNT 58# 697
RRDSEQ 1055 1128 1201 1274 1495 1575 1648 1721 1794 2015 2091 2164 2232 2300
2368 2436 2504 2572 2778 2846 2914 2982 3050 3129#
RUN 344#
RUNBCK 3375 3379#
RUNLP 3374# 3378
RUNWAT 3173 3296 3372#
SAVIOS 703# 742 747 839 850
SEBCOV 106# 3285
SENDAD 831#
SETATA 715# 778 807 843
SETDAT 3184 3307 3364#
SETRD 835#
SETRDB 837#
SETRUN 83#
SETSLV 3304 3411#
SETWRT 833#
SLAK25 192#
SLRDY1 176#
SLRDY2 177#
SLVACK 98#
SLVEPE 165#
SLVRDY 175#
SLVRQ 100#
SLVWT 3182 3305 3353#
SPRES 432# 657
SRHDOF 109#
SRVINL 201# 3420
STAINL 200# 3195
START 362# 3386
STORIT 3265 3267 3303 3327 3341 3482#
STRDBH 3168 3470#
STRDH 3166 3468#
STRMB 3179 3302 3381#
STWRTH 3291 3466#
TEST0I 681# 3457
TESTI 682# 893 968 1041 1114 1187 1260 1333 1408 1481 1561 1634 1707 1780
1853 1928 2001
TESTIH 2077 2150 2218 2286 2354 2422 2490 2558 2626 2696 2764 2832 2900 2968
3036 3456#
TOR0 186# 3196 3406
TOR1 187# 3421 3423
TST 894# 917 922 931 940 949 958 960 969# 990 999 1008 1017 1026
1031 1033 1042# 1063 1072 1081 1090 1099 1104 1106 1115# 1136 1145 1154
1163 1172 1177 1179 1188# 1209 1218 1227 1236 1245 1250 1252 1261# 1282
1291 1300 1309 1318 1323 1325 1334# 1357 1362 1371 1380 1389 1398 1400
1409# 1430 1439 1448 1457 1466 1471 1473 1482# 1503 1512 1521 1530 1539
1544 1546 1562# 1583 1592 1601 1610 1619 1624 1626 1635# 1656 1665 1674
1683 1692 1697 1699 1708# 1729 1738 1747 1756 1765 1770 1772 1781# 1802
1811 1820 1829 1838 1843 1845 1854# 1877 1882 1891 1900 1909 1918 1920
1929# 1950 1959 1968 1977 1986 1991 1993 2002# 2023 2032 2041 2050 2059
2064 2066 2078# 2099 2108 2117 2126 2135 2140 2142 2151# 2171 2179 2187
2195 2203 2208 2210 2219# 2239 2247 2255 2263 2271 2276 2278 2287# 2307
2315 2323 2331 2339 2344 2346 2355# 2375 2383 2391 2399 2407 2412 2414
2423# 2443 2451 2459 2467 2475 2480 2482 2491# 2511 2519 2527 2535 2543
2548 2550 2559# 2579 2587 2595 2603 2611 2616 2618 2627# 2649 2654 2662
2670 2678 2686 2688 2697# 2717 2725 2733 2741 2749 2754 2756 2765# 2785
2793 2801 2809 2817 2822 2824 2833# 2853 2861 2869 2877 2885 2890 2892
2901# 2921 2929 2937 2945 2953 2958 2960 2969# 2989 2997 3005 3013 3021
3026 3028 3037# 3057 3065 3073 3081 3089 3094 3096
TST247 894 895#
TST248 969 970#
TST249 1042 1043#
TST250 1115 1116#
TST251 1188 1189#
TST252 1261 1262#
TST253 1334 1335#
TST254 1409 1410#
TST255 1482 1483#
TST256 1562 1563#
TST257 1635 1636#
TST258 1708 1709#
TST259 1781 1782#
TST260 1854 1855#
TST261 1929 1930#
TST262 2002 2003#
TST263 2078 2079#
TST264 2151 2152#
TST265 2219 2220#
TST266 2287 2288#
TST267 2355 2356#
TST268 2423 2424#
TST269 2491 2492#
TST270 2559 2560#
TST271 2627 2628#
TST272 2697 2698#
TST273 2765 2766#
TST274 2833 2834#
TST275 2901 2902#
TST276 2969 2970#
TST277 3037 3038#
TSTART 664 877#
TSTDAT 907 1867 3180 3509#
UBPEFG 87#
VERSIO 2# 2 639
WAITGO 643# 646 779 844 873
WAS71 301#
WAS72 308#
WASC6 293# 2638
WCDMP 275# 1345
WCLK 352#
WCOBOL 323#
WEM1 315#
WEM2 319#
WHIDN 282# 1865
WINCM 269# 905
WRLP 3304# 3317
WRSEQ 909 1349 1869 2642 3248#
WTLP1 3355# 3361
Z 425#
ZERADR 206#
ZEROS 212#
ZRTN 783#
%ADRH 544# 2078 2078# 2095 2095# 2099 2099# 2104 2104# 2108 2108# 2113 2113# 2117
2117# 2122 2122# 2126 2126# 2131 2131# 2135 2135# 2142 2142# 2151 2151# 2167
2167# 2171 2171# 2175 2175# 2179 2179# 2183 2183# 2187 2187# 2191 2191# 2195
2195# 2199 2199# 2203 2203# 2210 2210# 2219 2219# 2235 2235# 2239 2239# 2243
2243# 2247 2247# 2251 2251# 2255 2255# 2259 2259# 2263 2263# 2267 2267# 2271
2271# 2278 2278# 2287 2287# 2303 2303# 2307 2307# 2311 2311# 2315 2315# 2319
2319# 2323 2323# 2327 2327# 2331 2331# 2335 2335# 2339 2339# 2346 2346# 2355
2355# 2371 2371# 2375 2375# 2379 2379# 2383 2383# 2387 2387# 2391 2391# 2395
2395# 2399 2399# 2403 2403# 2407 2407# 2414 2414# 2423 2423# 2439 2439# 2443
2443# 2447 2447# 2451 2451# 2455 2455# 2459 2459# 2463 2463# 2467 2467# 2471
2471# 2475 2475# 2482 2482# 2491 2491# 2507 2507# 2511 2511# 2515 2515# 2519
2519# 2523 2523# 2527 2527# 2531 2531# 2535 2535# 2539 2539# 2543 2543# 2550
2550# 2559 2559# 2575 2575# 2579 2579# 2583 2583# 2587 2587# 2591 2591# 2595
2595# 2599 2599# 2603 2603# 2607 2607# 2611 2611# 2618 2618# 2627 2627# 2645
2645# 2649 2649# 2658 2658# 2662 2662# 2666 2666# 2670 2670# 2674 2674# 2678
2678# 2682 2682# 2686 2686# 2688 2688# 2697 2697# 2713 2713# 2717 2717# 2721
2721# 2725 2725# 2729 2729# 2733 2733# 2737 2737# 2741 2741# 2745 2745# 2749
2749# 2756 2756# 2765 2765# 2781 2781# 2785 2785# 2789 2789# 2793 2793# 2797
2797# 2801 2801# 2805 2805# 2809 2809# 2813 2813# 2817 2817# 2824 2824# 2833
2833# 2849 2849# 2853 2853# 2857 2857# 2861 2861# 2865 2865# 2869 2869# 2873
2873# 2877 2877# 2881 2881# 2885 2885# 2892 2892# 2901 2901# 2917 2917# 2921
2921# 2925 2925# 2929 2929# 2933 2933# 2937 2937# 2941 2941# 2945 2945# 2949
2949# 2953 2953# 2960 2960# 2969 2969# 2985 2985# 2989 2989# 2993 2993# 2997
2997# 3001 3001# 3005 3005# 3009 3009# 3013 3013# 3017 3017# 3021 3021# 3028
3028# 3037 3037# 3053 3053# 3057 3057# 3061 3061# 3065 3065# 3069 3069# 3073
3073# 3077 3077# 3081 3081# 3085 3085# 3089 3089# 3096 3096# 3167 3167# 3169
3169# 3292 3292# 3456 3459 3462 3464 3466 3477
%EMES 894# 915 918 918# 923 923# 929 932 932# 938 941 941# 947 950
950# 956 959 959# 969# 988 991 991# 997 1000 1000# 1006 1009 1009#
1015 1018 1018# 1024 1027 1027# 1032 1032# 1042# 1061 1064 1064# 1070 1073
1073# 1079 1082 1082# 1088 1091 1091# 1097 1100 1100# 1105 1105# 1115# 1134
1137 1137# 1143 1146 1146# 1152 1155 1155# 1161 1164 1164# 1170 1173 1173#
1178 1178# 1188# 1207 1210 1210# 1216 1219 1219# 1225 1228 1228# 1234 1237
1237# 1243 1246 1246# 1251 1251# 1261# 1280 1283 1283# 1289 1292 1292# 1298
1301 1301# 1307 1310 1310# 1316 1319 1319# 1324 1324# 1334# 1355 1358 1358#
1363 1363# 1369 1372 1372# 1378 1381 1381# 1387 1390 1390# 1396 1399 1399#
1409# 1428 1431 1431# 1437 1440 1440# 1446 1449 1449# 1455 1458 1458# 1464
1467 1467# 1472 1472# 1482# 1501 1504 1504# 1510 1513 1513# 1519 1522 1522#
1528 1531 1531# 1537 1540 1540# 1545 1545# 1562# 1581 1584 1584# 1590 1593
1593# 1599 1602 1602# 1608 1611 1611# 1617 1620 1620# 1625 1625# 1635# 1654
1657 1657# 1663 1666 1666# 1672 1675 1675# 1681 1684 1684# 1690 1693 1693#
1698 1698# 1708# 1727 1730 1730# 1736 1739 1739# 1745 1748 1748# 1754 1757
1757# 1763 1766 1766# 1771 1771# 1781# 1800 1803 1803# 1809 1812 1812# 1818
1821 1821# 1827 1830 1830# 1836 1839 1839# 1844 1844# 1854# 1875 1878 1878#
1883 1883# 1889 1892 1892# 1898 1901 1901# 1907 1910 1910# 1916 1919 1919#
1929# 1948 1951 1951# 1957 1960 1960# 1966 1969 1969# 1975 1978 1978# 1984
1987 1987# 1992 1992# 2002# 2021 2024 2024# 2030 2033 2033# 2039 2042 2042#
2048 2051 2051# 2057 2060 2060# 2065 2065# 2078# 2097 2100 2100# 2106 2109
2109# 2115 2118 2118# 2124 2127 2127# 2133 2136 2136# 2141 2141# 2151# 2169
2172 2172# 2177 2180 2180# 2185 2188 2188# 2193 2196 2196# 2201 2204 2204#
2209 2209# 2219# 2237 2240 2240# 2245 2248 2248# 2253 2256 2256# 2261 2264
2264# 2269 2272 2272# 2277 2277# 2287# 2305 2308 2308# 2313 2316 2316# 2321
2324 2324# 2329 2332 2332# 2337 2340 2340# 2345 2345# 2355# 2373 2376 2376#
2381 2384 2384# 2389 2392 2392# 2397 2400 2400# 2405 2408 2408# 2413 2413#
2423# 2441 2444 2444# 2449 2452 2452# 2457 2460 2460# 2465 2468 2468# 2473
2476 2476# 2481 2481# 2491# 2509 2512 2512# 2517 2520 2520# 2525 2528 2528#
2533 2536 2536# 2541 2544 2544# 2549 2549# 2559# 2577 2580 2580# 2585 2588
2588# 2593 2596 2596# 2601 2604 2604# 2609 2612 2612# 2617 2617# 2627# 2647
2650 2650# 2655 2655# 2660 2663 2663# 2668 2671 2671# 2676 2679 2679# 2684
2687 2687# 2697# 2715 2718 2718# 2723 2726 2726# 2731 2734 2734# 2739 2742
2742# 2747 2750 2750# 2755 2755# 2765# 2783 2786 2786# 2791 2794 2794# 2799
2802 2802# 2807 2810 2810# 2815 2818 2818# 2823 2823# 2833# 2851 2854 2854#
2859 2862 2862# 2867 2870 2870# 2875 2878 2878# 2883 2886 2886# 2891 2891#
2901# 2919 2922 2922# 2927 2930 2930# 2935 2938 2938# 2943 2946 2946# 2951
2954 2954# 2959 2959# 2969# 2987 2990 2990# 2995 2998 2998# 3003 3006 3006#
3011 3014 3014# 3019 3022 3022# 3027 3027# 3037# 3055 3058 3058# 3063 3066
3066# 3071 3074 3074# 3079 3082 3082# 3087 3090 3090# 3095 3095#
%REQ 452# 453# 830
%TNUM 450# 888 892 894# 967 969# 1040 1042# 1113 1115# 1186 1188# 1259 1261#
1332 1334# 1407 1409# 1480 1482# 1553 1558 1562# 1633 1635# 1706 1708# 1779
1781# 1852 1854# 1927 1929# 2000 2002# 2076 2078# 2149 2151# 2217 2219# 2285
2287# 2353 2355# 2421 2423# 2489 2491# 2557 2559# 2625 2627# 2695 2697# 2763
2765# 2831 2833# 2899 2901# 2967 2969# 3035 3037#
.ERROR 731 732
CHKERR 535#
CHKRH 526# 918 1027 1100 1173 1246 1319 1358 1467 1540 1620 1693 1766 1839
1878 1987 2060 2136 2204 2272 2340 2408 2476 2544 2612 2650 2750 2818
2886 2954 3022 3090
CHKTRM 534# 918 1027 1100 1173 1246 1319 1358 1467 1540 1620 1693 1766 1839
1878 1987 2060 2136 2204 2272 2340 2408 2476 2544 2612 2650 2750 2818
2886 2954 3022 3090
DATI 643 647 671 684 703 715 808 1553 3203 3312 3315 3355 3376 3383
3428 3436 3446
DECR 799 811 860 3162 3187 3270 3333 3346
DEFTST 457# 882
ERLOOP 504# 914 928 937 946 955 987 996 1005 1014 1023 1060 1069 1078
1087 1096 1133 1142 1151 1160 1169 1206 1215 1224 1233 1242 1279 1288
1297 1306 1315 1354 1368 1377 1386 1395 1427 1436 1445 1454 1463 1500
1509 1518 1527 1536 1580 1589 1598 1607 1616 1653 1662 1671 1680 1689
1726 1735 1744 1753 1762 1799 1808 1817 1826 1835 1874 1888 1897 1906
1915 1947 1956 1965 1974 1983 2020 2029 2038 2047 2056 2096 2105 2114
2123 2132 2168 2176 2184 2192 2200 2236 2244 2252 2260 2268 2304 2312
2320 2328 2336 2372 2380 2388 2396 2404 2440 2448 2456 2464 2472 2508
2516 2524 2532 2540 2576 2584 2592 2600 2608 2646 2659 2667 2675 2683
2714 2722 2730 2738 2746 2782 2790 2798 2806 2814 2850 2858 2866 2874
2882 2918 2926 2934 2942 2950 2986 2994 3002 3010 3018 3054 3062 3070
3078 3086
ERRLOP 537# 921 1030 1103 1176 1249 1322 1361 1470 1543 1623 1696 1769 1842
1881 1990 2063 2139 2207 2275 2343 2411 2479 2547 2615 2653 2753 2821
2889 2957 3025 3093
ERRMAC 487# 912 926 935 944 953 985 994 1003 1012 1021 1058 1067 1076
1085 1094 1131 1140 1149 1158 1167 1204 1213 1222 1231 1240 1277 1286
1295 1304 1313 1352 1366 1375 1384 1393 1425 1434 1443 1452 1461 1498
1507 1516 1525 1534 1578 1587 1596 1605 1614 1651 1660 1669 1678 1687
1724 1733 1742 1751 1760 1797 1806 1815 1824 1833 1872 1886 1895 1904
1913 1945 1954 1963 1972 1981 2018 2027 2036 2045 2054 2094 2103 2112
2121 2130 2166 2174 2182 2190 2198 2234 2242 2250 2258 2266 2302 2310
2318 2326 2334 2370 2378 2386 2394 2402 2438 2446 2454 2462 2470 2506
2514 2522 2530 2538 2574 2582 2590 2598 2606 2644 2657 2665 2673 2681
2712 2720 2728 2736 2744 2780 2788 2796 2804 2812 2848 2856 2864 2872
2880 2916 2924 2932 2940 2948 2984 2992 3000 3008 3016 3052 3060 3068
3076 3084
ERROR 496# 912 926 935 944 985 994 1003 1012 1021 1058 1067 1076 1085
1094 1131 1140 1149 1158 1167 1204 1213 1222 1231 1240 1277 1286 1295
1304 1313 1352 1366 1375 1384 1425 1434 1443 1452 1461 1498 1507 1516
1525 1534 1578 1587 1596 1605 1614 1651 1660 1669 1678 1687 1724 1733
1742 1751 1760 1797 1806 1815 1824 1833 1872 1886 1895 1904 1945 1954
1963 1972 1981 2018 2027 2036 2045 2054 2094 2103 2112 2121 2130 2166
2174 2182 2190 2198 2234 2242 2250 2258 2266 2302 2310 2318 2326 2334
2370 2378 2386 2394 2402 2438 2446 2454 2462 2470 2506 2514 2522 2530
2538 2574 2582 2590 2598 2606 2644 2657 2665 2673 2712 2720 2728 2736
2744 2780 2788 2796 2804 2812 2848 2856 2864 2872 2880 2916 2924 2932
2940 2948 2984 2992 3000 3008 3016 3052 3060 3068 3076 3084
ERRORA 500#
ERRORD 502# 953 1393 1913 2681
ERRORM 498#
GOINK 546# 893 912 916 919 926 930 935 939 944 948 953 957 959
968 985 989 994 998 1003 1007 1012 1016 1021 1025 1028 1032 1041
1058 1062 1067 1071 1076 1080 1085 1089 1094 1098 1101 1105 1114 1131
1135 1140 1144 1149 1153 1158 1162 1167 1171 1174 1178 1187 1204 1208
1213 1217 1222 1226 1231 1235 1240 1244 1247 1251 1260 1277 1281 1286
1290 1295 1299 1304 1308 1313 1317 1320 1324 1333 1352 1356 1359 1366
1370 1375 1379 1384 1388 1393 1397 1399 1408 1425 1429 1434 1438 1443
1447 1452 1456 1461 1465 1468 1472 1481 1498 1502 1507 1511 1516 1520
1525 1529 1534 1538 1541 1545 1561 1578 1582 1587 1591 1596 1600 1605
1609 1614 1618 1621 1625 1634 1651 1655 1660 1664 1669 1673 1678 1682
1687 1691 1694 1698 1707 1724 1728 1733 1737 1742 1746 1751 1755 1760
1764 1767 1771 1780 1797 1801 1806 1810 1815 1819 1824 1828 1833 1837
1840 1844 1853 1872 1876 1879 1886 1890 1895 1899 1904 1908 1913 1917
1919 1928 1945 1949 1954 1958 1963 1967 1972 1976 1981 1985 1988 1992
2001 2018 2022 2027 2031 2036 2040 2045 2049 2054 2058 2061 2065 2077
2094 2098 2103 2107 2112 2116 2121 2125 2130 2134 2137 2141 2150 2166
2170 2174 2178 2182 2186 2190 2194 2198 2202 2205 2209 2218 2234 2238
2242 2246 2250 2254 2258 2262 2266 2270 2273 2277 2286 2302 2306 2310
2314 2318 2322 2326 2330 2334 2338 2341 2345 2354 2370 2374 2378 2382
2386 2390 2394 2398 2402 2406 2409 2413 2422 2438 2442 2446 2450 2454
2458 2462 2466 2470 2474 2477 2481 2490 2506 2510 2514 2518 2522 2526
2530 2534 2538 2542 2545 2549 2558 2574 2578 2582 2586 2590 2594 2598
2602 2606 2610 2613 2617 2626 2644 2648 2651 2657 2661 2665 2669 2673
2677 2681 2685 2687 2696 2712 2716 2720 2724 2728 2732 2736 2740 2744
2748 2751 2755 2764 2780 2784 2788 2792 2796 2800 2804 2808 2812 2816
2819 2823 2832 2848 2852 2856 2860 2864 2868 2872 2876 2880 2884 2887
2891 2900 2916 2920 2924 2928 2932 2936 2940 2944 2948 2952 2955 2959
2968 2984 2988 2992 2996 3000 3004 3008 3012 3016 3020 3023 3027 3036
3052 3056 3060 3064 3068 3072 3076 3080 3084 3088 3091 3095 3166 3168
3291
GOSUB 909 923 932 941 950 982 991 1000 1009 1018 1055 1064 1073 1082
1091 1128 1137 1146 1155 1164 1201 1210 1219 1228 1237 1274 1283 1292
1301 1310 1349 1363 1372 1381 1390 1422 1431 1440 1449 1458 1495 1504
1513 1522 1531 1575 1584 1593 1602 1611 1648 1657 1666 1675 1684 1721
1730 1739 1748 1757 1794 1803 1812 1821 1830 1869 1883 1892 1901 1910
1942 1951 1960 1969 1978 2015 2024 2033 2042 2051 2091 2100 2109 2118
2127
INCR 813 814 3208 3344 3345 3359 3374
JMP 646 654 664 696 762 768 796 810 821 825 832 834 836 854
874 2068 3098 3131 3167 3189 3207 3210 3272 3348 3361 3378 3413 3455
3458 3461 3463 3465 3467 3469 3473 3476 3479
JMPB0 645 650 652 780 809 3206 3317 3377 3430 3441
JMPB4 694 3450
JMPB7 731 735 795 3357
JMPC 3209 3360 3375
JMPSUB 663 742 747 760 765 771 778 779 781 782 785 786 792 807
839 843 844 845 846 850 873 893 910 912 916 919 924 926
930 933 935 939 942 944 948 951 953 957 959 968 983 985
989 992 994 998 1001 1003 1007 1010 1012 1016 1019 1021 1025 1028
1032 1041 1056 1058 1062 1065 1067 1071 1074 1076 1080 1083 1085 1089
1092 1094 1098 1101 1105 1114 1129 1131 1135 1138 1140 1144 1147 1149
1153 1156 1158 1162 1165 1167 1171 1174 1178 1187 1202 1204 1208 1211
1213 1217 1220 1222 1226 1229 1231 1235 1238 1240 1244 1247 1251 1260
1275 1277 1281 1284 1286 1290 1293 1295 1299 1302 1304 1308 1311 1313
1317 1320 1324 1333 1350 1352 1356 1359 1364 1366 1370 1373 1375 1379
1382 1384 1388 1391 1393 1397 1399 1408 1423 1425 1429 1432 1434 1438
1441 1443 1447 1450 1452 1456 1459 1461 1465 1468 1472 1481 1496 1498
1502 1505 1507 1511 1514 1516 1520 1523 1525 1529 1532 1534 1538 1541
1545 1561 1576 1578 1582 1585 1587 1591 1594 1596 1600 1603 1605 1609
1612 1614 1618 1621 1625 1634 1649 1651 1655 1658 1660 1664 1667 1669
1673 1676 1678 1682 1685 1687 1691 1694 1698 1707 1722 1724 1728 1731
1733 1737 1740 1742 1746 1749 1751 1755 1758 1760 1764 1767 1771 1780
1795 1797 1801 1804 1806 1810 1813 1815 1819 1822 1824 1828 1831 1833
1837 1840 1844 1853 1870 1872 1876 1879 1884 1886 1890 1893 1895 1899
1902 1904 1908 1911 1913 1917 1919 1928 1943 1945 1949 1952 1954 1958
1961 1963 1967 1970 1972 1976 1979 1981 1985 1988 1992 2001 2016 2018
2022 2025 2027 2031 2034 2036 2040 2043 2045 2049 2052 2054 2058 2061
2065 2077 2092 2094 2098 2101 2103 2107 2110 2112 2116 2119 2121 2125
2128 2130 2134 2137 2141 2150 2164 2166 2170 2172 2174 2178 2180 2182
2186 2188 2190 2194 2196 2198 2202 2205 2209 2218 2232 2234 2238 2240
2242 2246 2248 2250 2254 2256 2258 2262 2264 2266 2270 2273 2277 2286
2300 2302 2306 2308 2310 2314 2316 2318 2322 2324 2326 2330 2332 2334
2338 2341 2345 2354 2368 2370 2374 2376 2378 2382 2384 2386 2390 2392
2394 2398 2400 2402 2406 2409 2413 2422 2436 2438 2442 2444 2446 2450
2452 2454 2458 2460 2462 2466 2468 2470 2474 2477 2481 2490 2504 2506
2510 2512 2514 2518 2520 2522 2526 2528 2530 2534 2536 2538 2542 2545
2549 2558 2572 2574 2578 2580 2582 2586 2588 2590 2594 2596 2598 2602
2604 2606 2610 2613 2617 2626 2642 2644 2648 2651 2655 2657 2661 2663
2665 2669 2671 2673 2677 2679 2681 2685 2687 2696 2710 2712 2716 2718
2720 2724 2726 2728 2732 2734 2736 2740 2742 2744 2748 2751 2755 2764
2778 2780 2784 2786 2788 2792 2794 2796 2800 2802 2804 2808 2810 2812
2816 2819 2823 2832 2846 2848 2852 2854 2856 2860 2862 2864 2868 2870
2872 2876 2878 2880 2884 2887 2891 2900 2914 2916 2920 2922 2924 2928
2930 2932 2936 2938 2940 2944 2946 2948 2952 2955 2959 2968 2982 2984
2988 2990 2992 2996 2998 3000 3004 3006 3008 3012 3014 3016 3020 3023
3027 3036 3050 3052 3056 3058 3060 3064 3066 3068 3072 3074 3076 3080
3082 3084 3088 3091 3095 3134 3156 3166 3168 3173 3179 3181 3182 3184
3185 3211 3214 3248 3284 3291 3296 3302 3304 3305 3307 3308 3318
JMPZ 740 761 766 772 793 812 861 911 917 922 925 931 934 940
943 949 952 958 960 984 990 993 999 1002 1008 1011 1017 1020
1026 1031 1033 1057 1063 1066 1072 1075 1081 1084 1090 1093 1099 1104
1106 1130 1136 1139 1145 1148 1154 1157 1163 1166 1172 1177 1179 1203
1209 1212 1218 1221 1227 1230 1236 1239 1245 1250 1252 1276 1282 1285
1291 1294 1300 1303 1309 1312 1318 1323 1325 1351 1357 1362 1365 1371
1374 1380 1383 1389 1392 1398 1400 1424 1430 1433 1439 1442 1448 1451
1457 1460 1466 1471 1473 1497 1503 1506 1512 1515 1521 1524 1530 1533
1539 1544 1546 1577 1583 1586 1592 1595 1601 1604 1610 1613 1619 1624
1626 1650 1656 1659 1665 1668 1674 1677 1683 1686 1692 1697 1699 1723
1729 1732 1738 1741 1747 1750 1756 1759 1765 1770 1772 1796 1802 1805
1811 1814 1820 1823 1829 1832 1838 1843 1845 1871 1877 1882 1885 1891
1894 1900 1903 1909 1912 1918 1920 1944 1950 1953 1959 1962 1968 1971
1977 1980 1986 1991 1993 2017 2023 2026 2032 2035 2041 2044 2050 2053
2059 2064 2066 2093 2099 2102 2108 2111 2117 2120 2126 2129 2135 2140
2142 2165 2171 2173 2179 2181 2187 2189 2195 2197 2203 2208 2210 2233
2239 2241 2247 2249 2255 2257 2263 2265 2271 2276 2278 2301 2307 2309
2315 2317 2323 2325 2331 2333 2339 2344 2346 2369 2375 2377 2383 2385
2391 2393 2399 2401 2407 2412 2414 2437 2443 2445 2451 2453 2459 2461
2467 2469 2475 2480 2482 2505 2511 2513 2519 2521 2527 2529 2535 2537
2543 2548 2550 2573 2579 2581 2587 2589 2595 2597 2603 2605 2611 2616
2618 2643 2649 2654 2656 2662 2664 2670 2672 2678 2680 2686 2688 2711
2717 2719 2725 2727 2733 2735 2741 2743 2749 2754 2756 2779 2785 2787
2793 2795 2801 2803 2809 2811 2817 2822 2824 2847 2853 2855 2861 2863
2869 2871 2877 2879 2885 2890 2892 2915 2921 2923 2929 2931 2937 2939
2945 2947 2953 2958 2960 2983 2989 2991 2997 2999 3005 3007 3013 3015
3021 3026 3028 3051 3057 3059 3065 3067 3073 3075 3081 3083 3089 3094
3096 3165 3183 3188 3271 3306 3338 3347
JUMP 2067 3454 3457 3460 3462 3464 3472 3475 3478
LANDB 718 738 753
LANDBR 673 691 737 751 3385
LDBR 641 653 655 657 659 661 669 672 674 690 695 697 704 717
724 736 743 750 752 755 800 819 823 831 833 835 837 842
853 866 868 871 888 890 892 899 901 903 905 907 909 915
918 923 929 932 938 941 947 950 956 967 974 976 978 980
982 988 991 997 1000 1006 1009 1015 1018 1024 1027 1040 1047 1049
1051 1053 1055 1061 1064 1070 1073 1079 1082 1088 1091 1097 1100 1113
1120 1122 1124 1126 1128 1134 1137 1143 1146 1152 1155 1161 1164 1170
1173 1186 1193 1195 1197 1199 1201 1207 1210 1216 1219 1225 1228 1234
1237 1243 1246 1259 1266 1268 1270 1272 1274 1280 1283 1289 1292 1298
1301 1307 1310 1316 1319 1332 1339 1341 1343 1345 1347 1349 1355 1358
1363 1369 1372 1378 1381 1387 1390 1396 1407 1414 1416 1418 1420 1422
1428 1431 1437 1440 1446 1449 1455 1458 1464 1467 1480 1487 1489 1491
1493 1495 1501 1504 1510 1513 1519 1522 1528 1531 1537 1540 1554 1556
1560 1567 1569 1571 1573 1575 1581 1584 1590 1593 1599 1602 1608 1611
1617 1620 1633 1640 1642 1644 1646 1648 1654 1657 1663 1666 1672 1675
1681 1684 1690 1693 1706 1713 1715 1717 1719 1721 1727 1730 1736 1739
1745 1748 1754 1757 1763 1766 1779 1786 1788 1790 1792 1794 1800 1803
1809 1812 1818 1821 1827 1830 1836 1839 1852 1859 1861 1863 1865 1867
1869 1875 1878 1883 1889 1892 1898 1901 1907 1910 1916 1927 1934 1936
1938 1940 1942 1948 1951 1957 1960 1966 1969 1975 1978 1984 1987 2000
2007 2009 2011 2013 2015 2021 2024 2030 2033 2039 2042 2048 2051 2057
2060 2067 2076 2083 2085 2087 2089 2091 2097 2100 2106 2109 2115 2118
2124 2127 2133 2136 2149 2156 2158 2160 2162 2169 2177 2185 2193 2201
2204 2217 2224 2226 2228 2230 2237 2245 2253 2261 2269 2272 2285 2292
2294 2296 2298 2305 2313 2321 2329 2337 2340 2353 2360 2362 2364 2366
2373 2381 2389 2397 2405 2408 2421 2428 2430 2432 2434 2441 2449 2457
2465 2473 2476 2489 2496 2498 2500 2502 2509 2517 2525 2533 2541 2544
2557 2564 2566 2568 2570 2577 2585 2593 2601 2609 2612 2625 2632 2634
2636 2638 2640 2647 2650 2660 2668 2676 2684 2695 2702 2704 2706 2708
2715 2723 2731 2739 2747 2750 2763 2770 2772 2774 2776 2783 2791 2799
2807 2815 2818 2831 2838 2840 2842 2844 2851 2859 2867 2875 2883 2886
2899 2906 2908 2910 2912 2919 2927 2935 2943 2951 2954 2967 2974 2976
2978 2980 2987 2995 3003 3011 3019 3022 3035 3042 3044 3046 3048 3055
3063 3071 3079 3087 3090 3100 3102 3129 3132 3135 3137 3141 3147 3149
3151 3157 3169 3171 3174 3177 3191 3193 3195 3197 3201 3215 3217 3219
3249 3251 3255 3261 3263 3265 3268 3273 3281 3285 3292 3294 3297 3300
3310 3313 3319 3321 3323 3327 3341 3353 3364 3368 3372 3381 3384 3386
3389 3393 3395 3397 3401 3403 3405 3407 3411 3414 3416 3420 3422 3424
3434 3437 3444 3447 3454 3457 3460 3462 3464 3466 3468 3470 3472 3475
3478
LDMAR 682 3180 3267 3303
LDMARX 683
LDMEM 685
LORB 675 3387
LORBR 716 725 754
LORCM 3418
MOV 681 688 692 708 730 748 773 775 777 797 802 804 806 815
817 840 851 1558 3139 3144 3159 3164 3253 3258 3275 3278 3287 3329
3331 3334 3336 3339 3366 3439
MOVB 642 656 658 660 662 670 676 687 689 698 705 709 719 744
749 756 759 764 770 774 776 791 798 801 820 824 838 841
849 852 867 869 870 872 889 891 900 902 904 906 908 975
977 979 981 1048 1050 1052 1054 1121 1123 1125 1127 1194 1196 1198
1200 1267 1269 1271 1273 1340 1342 1344 1346 1348 1415 1417 1419 1421
1488 1490 1492 1494 1555 1557 1559 1568 1570 1572 1574 1641 1643 1645
1647 1714 1716 1718 1720 1787 1789 1791 1793 1860 1862 1864 1866 1868
1935 1937 1939 1941 2008 2010 2012 2014 2084 2086 2088 2090 2157 2159
2161 2163 2225 2227 2229 2231 2293 2295 2297 2299 2361 2363 2365 2367
2429 2431 2433 2435 2497 2499 2501 2503 2565 2567 2569 2571 2633 2635
2637 2639 2641 2703 2705 2707 2709 2771 2773 2775 2777 2839 2841 2843
2845 2907 2909 2911 2913 2975 2977 2979 2981 3043 3045 3047 3049 3101
3103 3130 3133 3136 3138 3140 3142 3143 3146 3148 3150 3152 3153 3154
3155 3158 3160 3161 3170 3172 3175 3176 3178 3192 3194 3196 3198 3202
3216 3218 3220 3250 3252 3254 3256 3257 3260 3262 3264 3266 3269 3274
3277 3280 3282 3283 3286 3288 3289 3293 3295 3298 3299 3301 3311 3314
3320 3322 3324 3328 3330 3332 3340 3342 3354 3365 3367 3369 3373 3382
3388 3390 3394 3396 3398 3402 3404 3406 3408 3412 3415 3417 3419 3421
3423 3425 3435 3438 3445 3448 3456 3459 3471 3474 3477
MOVMEM 686 767 803 805 816 818 3335
NAME 2# 2
OSB 739
OSM 3337
READ 523# 3166
READB 524# 3168
REPEAT 517# 959 1032 1105 1178 1251 1324 1399 1472 1545 1625 1698 1771 1844
1919 1992 2065 2141 2209 2277 2345 2413 2481 2549 2617 2687 2755 2823
2891 2959 3027 3095
RETURN 667 677 699 706 710 720 726 733 741 745 757 783 787 847
862 3104 3186 3199 3212 3221 3309 3325 3343 3350 3358 3362 3370 3379
3391 3399 3409 3426 3431 3432 3442 3443 3451 3452
SHL 734 794 3356 3449
SHR 644 648 649 651 666 693 3145 3204 3205 3259 3316 3429 3440
TEST 882# 883 962 1035 1108 1181 1254 1327 1402 1475 1548 1628 1701 1774
1847 1922 1995 2071 2144 2212 2280 2348 2416 2484 2552 2620 2690 2758
2826 2894 2962 3030
TSB 3276 3279
WRITE 522# 3291
.ECRAM 606# 3454
.END 3577
.INIT 636
.LOC 2069
.MEM 3480