Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/mcode7.lst
There are no other files named mcode7.lst in the archive.
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 1
MCOD7T MAC 17-Oct-88 14:29 DATA PATH TEST - PART 4
1 XLIST
2 LIST
3
4
5
6
7 TITLE MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1
8
9
10
11
12
13 ^
14
15
16
17
18 COMMENT $
19
20 MCODE7 IS THE 4TH 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.
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 1-1
MCOD7T MAC 17-Oct-88 14:29 DATA PATH TEST - PART 4
56 FOR AS MANY BYTES AS ARE REQUIRED.
57 $
58 000100 RPTCNT= 100 ;SET REPEAT COUNT TO 100 TIMES
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 2
MCOD7T 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
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 2-1
MCOD7T 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
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 2-2
MCOD7T 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
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 2-3
MCOD7T 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
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 2-4
MCOD7T 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
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 2-5
MCOD7T MAC 17-Oct-88 14:29 DATA PATH BIT REGISTER DEFINITIONS
334
335 000001 CATAB=1
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 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
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 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
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 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 >>
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 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 >
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 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 >
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 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,<
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 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 >
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 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 >
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 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
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 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
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 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
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 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
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 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
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 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
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 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
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 1
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
880 SUBTTL DATA PATH TEST - PART 4
881
882 DEFTST MCODE7
883 TEST 278,TEST READ 6-BIT ASCII REVERSE FORMATTING 6
884 ;***********************************************************************
885 ;* MCODE7 * TEST 278 * TEST READ 6-BIT ASCII REVERSE FORMATTING 6
886 ;***********************************************************************
887 SALL
888 000300 0 002011 0 1 0 011
889 000301 0 066371 3 3 0 17 11
890 000302 0 002001 0 1 0 001
891 000303 0 064231 3 2 0 11 11
892 000304 0 002026 0 1 0 026
893 000305 0 116045 4 7 0045
894
895 000306 TST278: SALL
896
897 ;*READ FOUR 18-BIT WORDS (TWELVE DATA BYTES WITH NO PRE-PADDING)
898
899 000306 0 002112 0 1 0 112 LDBR ^D74 ;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 002014 0 1 0 014 LDBR ^D12 ;SET BYTE CNT
904 000313 0 072051 3 5 0 02 11 MOVB AC2
905 000314 0 002160 0 1 0 160 LDBR RAS6R6 ;SET ROM PROGRAM START ADDRESS
906 000315 0 072071 3 5 0 03 11 MOVB AC3
907 000316 0 002313 0 1 0 313 GOSUB RRDSEQ ;GO RUN THE PROGRAM
908 000317 0 177231 7 7 2 11 11
909 000320 0 114322 4 6 0322 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
910 000321 0 116104 4 7 0104 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
911
912 ERLOOP TST ^SALL
913 000322 0 002200 0 1 0 200
914 000323 0 116141 4 7 0141
915 000324 0 114306 4 6 0306
916 000325 0 002020 0 1 0 020 GOSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
917 000326 0 177631 7 7 3 11 11
918 000327 0 114331 4 6 0331 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
919 000330 0 116104 4 7 0104 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
920
921 ERLOOP TST ^SALL
922 000331 0 002001 0 1 0 001
923 000332 0 116141 4 7 0141
924 000333 0 114306 4 6 0306
925 000334 0 002314 0 1 0 314 GOSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
926 000335 0 177631 7 7 3 11 11
927 000336 0 114340 4 6 0340 JMPZ .+2 ;JUMP IF NONE WERE FOUND
928 000337 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
929
930 ERLOOP TST ^SALL
931 000340 0 002002 0 1 0 002
932 000341 0 116141 4 7 0141
933 000342 0 114306 4 6 0306
934 000343 0 002321 0 1 0 321 GOSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 1-1
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
935 000344 0 177631 7 7 3 11 11
936 000345 0 114347 4 6 0347 JMPZ .+2 ;JUMP IF NONE WERE FOUND
937 000346 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
938
939 ERLOOP TST ^SALL
940 000347 0 002003 0 1 0 003
941 000350 0 116141 4 7 0141
942 000351 0 114306 4 6 0306
943 000352 0 002330 0 1 0 330 GOSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
944 000353 0 177631 7 7 3 11 11
945 000354 0 114356 4 6 0356 JMPZ .+2 ;JUMP IF NONE WERE FOUND
946 000355 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
947
948 ERLOOP TST ^SALL
949 000356 0 002004 0 1 0 004
950 000357 0 116141 4 7 0141
951 000360 0 114306 4 6 0306
952 000361 0 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
953 000362 0 116256 4 7 0256
954
955 ERRLOP TST ^SALL
956 000363 0 114306 4 6 0306
957 000364 0 116264 4 7 0264 REPEAT TST
958 000365 0 114306 4 6 0306
959
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 2
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
960 TEST 279,TEST WRITE 7-BIT ASCII MOD 1 FORMATTING
961 ;***********************************************************************
962 ;* MCODE7 * TEST 279 * TEST WRITE 7-BIT ASCII MOD 1 FORMATTING
963 ;***********************************************************************
964 SALL
965 000366 0 002027 0 1 0 027
966 000367 0 116045 4 7 0045
967
968 000370 TST279: SALL
969
970 ;*WRITE FOUR 18-BIT WORDS (TEN BYTES)
971
972 000370 0 002057 0 1 0 057 LDBR ^D47 ;SET DATA PATTERN NUMBER
973 000371 0 072011 3 5 0 00 11 MOVB AC0
974 000372 0 002004 0 1 0 004 LDBR 4 ;SET 18-BIT WORD CNT
975 000373 0 072111 3 5 0 04 11 MOVB AC4
976 000374 0 002012 0 1 0 012 LDBR ^D10 ;SET BYTE CNT
977 000375 0 072051 3 5 0 02 11 MOVB AC2
978 000376 0 002200 0 1 0 200 LDBR WAS71 ;SET ROM PROGRAM START ADDRESS
979 000377 0 072071 3 5 0 03 11 MOVB AC3
980 000400 0 002114 0 1 0 114 LDBR ASCI71 ;SETUP ADDR OF EXPECTED TEST DATA
981 000401 0 072031 3 5 0 01 11 MOVB AC1
982 000402 0 002044 0 1 0 044 GOSUB WRSEQ ;GO RUN THE PROGRAM
983 000403 0 177631 7 7 3 11 11
984 000404 0 114406 4 6 0406 JMPZ .+2 ;JUMP IF NO ERRORS IN XFER
985 000405 0 116104 4 7 0104 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE WRITE,,PNT
986
987 ERLOOP TST ^SALL
988 000406 0 002200 0 1 0 200
989 000407 0 116141 4 7 0141
990 000410 0 114370 4 6 0370
991 000411 0 002041 0 1 0 041 CHKTRM TST,RH20 ERROR DETECTED DURING WRITE XFER
992 000412 0 116256 4 7 0256
993
994 ERRLOP TST ^SALL
995 000413 0 114370 4 6 0370
996 000414 0 002314 0 1 0 314 GOSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
997 000415 0 177631 7 7 3 11 11
998 000416 0 114420 4 6 0420 JMPZ .+2 ;JUMP IF NONE WERE FOUND
999 000417 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
1000
1001 ERLOOP TST ^SALL
1002 000420 0 002002 0 1 0 002
1003 000421 0 116141 4 7 0141
1004 000422 0 114370 4 6 0370
1005 000423 0 002321 0 1 0 321 GOSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
1006 000424 0 177631 7 7 3 11 11
1007 000425 0 114427 4 6 0427 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1008 000426 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
1009
1010 ERLOOP TST ^SALL
1011 000427 0 002003 0 1 0 003
1012 000430 0 116141 4 7 0141
1013 000431 0 114370 4 6 0370
1014 000432 0 002330 0 1 0 330 GOSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 2-1
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
1015 000433 0 177631 7 7 3 11 11
1016 000434 0 114436 4 6 0436 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1017 000435 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
1018
1019 ERLOOP TST ^SALL
1020 000436 0 002004 0 1 0 004
1021 000437 0 116141 4 7 0141
1022 000440 0 114370 4 6 0370
1023 000441 0 002161 0 1 0 161 GOSUB CHKDAT ;GO CHECK THE DATA RECEIVED AT CHANNEL BUS
1024 000442 0 177631 7 7 3 11 11
1025 000443 0 114445 4 6 0445 JMPZ .+2 ;JUMP IF NO ERRORS IN DATA
1026 000444 0 116104 4 7 0104 ERRORD TST,DATA ERROR IN WRITTEN DATA
1027
1028 ERLOOP TST ^SALL
1029 000445 0 002045 0 1 0 045
1030 000446 0 116173 4 7 0173
1031 000447 0 114370 4 6 0370
1032 000450 0 116264 4 7 0264 REPEAT TST
1033 000451 0 114370 4 6 0370
1034
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 3
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
1035 TEST 280,TEST READ 7-BIT ASCII MOD 1 FORWARD FORMATTING
1036 ;***********************************************************************
1037 ;* MCODE7 * TEST 280 * TEST READ 7-BIT ASCII MOD 1 FORWARD FORMATTING
1038 ;***********************************************************************
1039 SALL
1040 000452 0 002030 0 1 0 030
1041 000453 0 116045 4 7 0045
1042
1043 000454 TST280: SALL
1044
1045 ;*READ FOUR 18-BIT WORDS (TEN BYTES)
1046
1047 000454 0 002057 0 1 0 057 LDBR ^D47 ;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 002012 0 1 0 012 LDBR ^D10 ;SET BYTE CNT
1052 000461 0 072051 3 5 0 02 11 MOVB AC2
1053 000462 0 002210 0 1 0 210 LDBR RAS71F ;SET ROM PROGRAM START ADDRESS
1054 000463 0 072071 3 5 0 03 11 MOVB AC3
1055 000464 0 002316 0 1 0 316 GOSUB RDSEQ ;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 002020 0 1 0 020 GOSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
1065 000474 0 177631 7 7 3 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 002314 0 1 0 314 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 002321 0 1 0 321 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
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 3-1
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
1090 000517 0 114454 4 6 0454
1091 000520 0 002330 0 1 0 330 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
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 4
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
1108 TEST 281,TEST READ 7-BIT ASCII MOD 1 REVERSE FORMATTING 1
1109 ;***********************************************************************
1110 ;* MCODE7 * TEST 281 * TEST READ 7-BIT ASCII MOD 1 REVERSE FORMATTING 1
1111 ;***********************************************************************
1112 SALL
1113 000534 0 002031 0 1 0 031
1114 000535 0 116045 4 7 0045
1115
1116 000536 TST281: SALL
1117
1118 ;*READ FOUR 18-BIT WORDS (SIX DATA BYTES WITH FOUR ZERO BYTES PRE-PADDED)
1119
1120 000536 0 002113 0 1 0 113 LDBR ^D75 ;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 002227 0 1 0 227 LDBR RA71R1 ;SET ROM PROGRAM START ADDRESS
1127 000545 0 072071 3 5 0 03 11 MOVB AC3
1128 000546 0 002313 0 1 0 313 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 002020 0 1 0 020 GOSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
1138 000556 0 177631 7 7 3 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 002314 0 1 0 314 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 002321 0 1 0 321 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
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 4-1
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
1163 000601 0 114536 4 6 0536
1164 000602 0 002330 0 1 0 330 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
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 5
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
1181 TEST 282,TEST READ 7-BIT ASCII MOD 1 REVERSE FORMATTING 2
1182 ;***********************************************************************
1183 ;* MCODE7 * TEST 282 * TEST READ 7-BIT ASCII MOD 1 REVERSE FORMATTING 2
1184 ;***********************************************************************
1185 SALL
1186 000616 0 002032 0 1 0 032
1187 000617 0 116045 4 7 0045
1188
1189 000620 TST282: SALL
1190
1191 ;*READ FOUR 18-BIT WORDS (SEVEN DATA BYTES WITH THREE ZERO BYTES PRE-PADDED)
1192
1193 000620 0 002114 0 1 0 114 LDBR ^D76 ;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 002223 0 1 0 223 LDBR RA71R2 ;SET ROM PROGRAM START ADDRESS
1200 000627 0 072071 3 5 0 03 11 MOVB AC3
1201 000630 0 002313 0 1 0 313 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 002020 0 1 0 020 GOSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
1211 000640 0 177631 7 7 3 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 002314 0 1 0 314 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 002321 0 1 0 321 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
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 5-1
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
1236 000663 0 114620 4 6 0620
1237 000664 0 002330 0 1 0 330 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
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 6
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
1254 TEST 283,TEST READ 7-BIT ASCII MOD 1 REVERSE FORMATTING 3
1255 ;***********************************************************************
1256 ;* MCODE7 * TEST 283 * TEST READ 7-BIT ASCII MOD 1 REVERSE FORMATTING 3
1257 ;***********************************************************************
1258 SALL
1259 000700 0 002033 0 1 0 033
1260 000701 0 116045 4 7 0045
1261
1262 000702 TST283: SALL
1263
1264 ;*READ FOUR 18-BIT WORDS (EIGHT DATA BYTES WITH TWO ZERO BYTES PRE-PADDED)
1265
1266 000702 0 002115 0 1 0 115 LDBR ^D77 ;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 002222 0 1 0 222 LDBR RA71R3 ;SET ROM PROGRAM START ADDRESS
1273 000711 0 072071 3 5 0 03 11 MOVB AC3
1274 000712 0 002313 0 1 0 313 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 002020 0 1 0 020 GOSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
1284 000722 0 177631 7 7 3 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 002314 0 1 0 314 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 002321 0 1 0 321 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
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 6-1
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
1309 000745 0 114702 4 6 0702
1310 000746 0 002330 0 1 0 330 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
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 7
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
1327 TEST 284,TEST READ 7-BIT ASCII MOD 1 REVERSE FORMATTING 4
1328 ;***********************************************************************
1329 ;* MCODE7 * TEST 284 * TEST READ 7-BIT ASCII MOD 1 REVERSE FORMATTING 4
1330 ;***********************************************************************
1331 SALL
1332 000762 0 002034 0 1 0 034
1333 000763 0 116045 4 7 0045
1334
1335 000764 TST284: SALL
1336
1337 ;*READ FOUR 18-BIT WORDS (NINE DATA BYTES WITH ONE ZERO BYTE PRE-PADDED)
1338
1339 000764 0 002116 0 1 0 116 LDBR ^D78 ;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 002011 0 1 0 011 LDBR ^D9 ;SET BYTE CNT
1344 000771 0 072051 3 5 0 02 11 MOVB AC2
1345 000772 0 002221 0 1 0 221 LDBR RA71R4 ;SET ROM PROGRAM START ADDRESS
1346 000773 0 072071 3 5 0 03 11 MOVB AC3
1347 000774 0 002313 0 1 0 313 GOSUB RRDSEQ ;GO RUN THE PROGRAM
1348 000775 0 177231 7 7 2 11 11
1349 000776 0 115000 4 6 1000 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
1350 000777 0 116104 4 7 0104 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
1351
1352 ERLOOP TST ^SALL
1353 001000 0 002200 0 1 0 200
1354 001001 0 116141 4 7 0141
1355 001002 0 114764 4 6 0764
1356 001003 0 002020 0 1 0 020 GOSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
1357 001004 0 177631 7 7 3 11 11
1358 001005 0 115007 4 6 1007 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
1359 001006 0 116104 4 7 0104 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
1360
1361 ERLOOP TST ^SALL
1362 001007 0 002001 0 1 0 001
1363 001010 0 116141 4 7 0141
1364 001011 0 114764 4 6 0764
1365 001012 0 002314 0 1 0 314 GOSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
1366 001013 0 177631 7 7 3 11 11
1367 001014 0 115016 4 6 1016 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1368 001015 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
1369
1370 ERLOOP TST ^SALL
1371 001016 0 002002 0 1 0 002
1372 001017 0 116141 4 7 0141
1373 001020 0 114764 4 6 0764
1374 001021 0 002321 0 1 0 321 GOSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
1375 001022 0 177631 7 7 3 11 11
1376 001023 0 115025 4 6 1025 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1377 001024 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
1378
1379 ERLOOP TST ^SALL
1380 001025 0 002003 0 1 0 003
1381 001026 0 116141 4 7 0141
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 7-1
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
1382 001027 0 114764 4 6 0764
1383 001030 0 002330 0 1 0 330 GOSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
1384 001031 0 177631 7 7 3 11 11
1385 001032 0 115034 4 6 1034 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1386 001033 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
1387
1388 ERLOOP TST ^SALL
1389 001034 0 002004 0 1 0 004
1390 001035 0 116141 4 7 0141
1391 001036 0 114764 4 6 0764
1392 001037 0 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
1393 001040 0 116256 4 7 0256
1394
1395 ERRLOP TST ^SALL
1396 001041 0 114764 4 6 0764
1397 001042 0 116264 4 7 0264 REPEAT TST
1398 001043 0 114764 4 6 0764
1399
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 8
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
1400 TEST 285,TEST READ 7-BIT ASCII MOD 1 REVERSE FORMATTING 5
1401 ;***********************************************************************
1402 ;* MCODE7 * TEST 285 * TEST READ 7-BIT ASCII MOD 1 REVERSE FORMATTING 5
1403 ;***********************************************************************
1404 SALL
1405 001044 0 002035 0 1 0 035
1406 001045 0 116045 4 7 0045
1407
1408 001046 TST285: SALL
1409
1410 ;*READ FOUR 18-BIT WORDS (TEN DATA BYTES WITH NO PRE-PADDING)
1411
1412 001046 0 002117 0 1 0 117 LDBR ^D79 ;SET DATA PATTERN NUMBER
1413 001047 0 072011 3 5 0 00 11 MOVB AC0
1414 001050 0 002004 0 1 0 004 LDBR 4 ;SET 18-BIT WORD CNT
1415 001051 0 072111 3 5 0 04 11 MOVB AC4
1416 001052 0 002012 0 1 0 012 LDBR ^D10 ;SET BYTE CNT
1417 001053 0 072051 3 5 0 02 11 MOVB AC2
1418 001054 0 002220 0 1 0 220 LDBR RA71R5 ;SET ROM PROGRAM START ADDRESS
1419 001055 0 072071 3 5 0 03 11 MOVB AC3
1420 001056 0 002313 0 1 0 313 GOSUB RRDSEQ ;GO RUN THE PROGRAM
1421 001057 0 177231 7 7 2 11 11
1422 001060 0 115062 4 6 1062 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
1423 001061 0 116104 4 7 0104 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
1424
1425 ERLOOP TST ^SALL
1426 001062 0 002200 0 1 0 200
1427 001063 0 116141 4 7 0141
1428 001064 0 115046 4 6 1046
1429 001065 0 002020 0 1 0 020 GOSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
1430 001066 0 177631 7 7 3 11 11
1431 001067 0 115071 4 6 1071 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
1432 001070 0 116104 4 7 0104 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
1433
1434 ERLOOP TST ^SALL
1435 001071 0 002001 0 1 0 001
1436 001072 0 116141 4 7 0141
1437 001073 0 115046 4 6 1046
1438 001074 0 002314 0 1 0 314 GOSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
1439 001075 0 177631 7 7 3 11 11
1440 001076 0 115100 4 6 1100 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1441 001077 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
1442
1443 ERLOOP TST ^SALL
1444 001100 0 002002 0 1 0 002
1445 001101 0 116141 4 7 0141
1446 001102 0 115046 4 6 1046
1447 001103 0 002321 0 1 0 321 GOSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
1448 001104 0 177631 7 7 3 11 11
1449 001105 0 115107 4 6 1107 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1450 001106 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
1451
1452 ERLOOP TST ^SALL
1453 001107 0 002003 0 1 0 003
1454 001110 0 116141 4 7 0141
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 8-1
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
1455 001111 0 115046 4 6 1046
1456 001112 0 002330 0 1 0 330 GOSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
1457 001113 0 177631 7 7 3 11 11
1458 001114 0 115116 4 6 1116 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1459 001115 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
1460
1461 ERLOOP TST ^SALL
1462 001116 0 002004 0 1 0 004
1463 001117 0 116141 4 7 0141
1464 001120 0 115046 4 6 1046
1465 001121 0 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
1466 001122 0 116256 4 7 0256
1467
1468 ERRLOP TST ^SALL
1469 001123 0 115046 4 6 1046
1470 001124 0 116264 4 7 0264 REPEAT TST
1471 001125 0 115046 4 6 1046
1472
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 9
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
1473 TEST 286,TEST WRITE 7-BIT ASCII MOD 2 FORMATTING
1474 ;***********************************************************************
1475 ;* MCODE7 * TEST 286 * TEST WRITE 7-BIT ASCII MOD 2 FORMATTING
1476 ;***********************************************************************
1477 SALL
1478 001126 0 002036 0 1 0 036
1479 001127 0 116045 4 7 0045
1480
1481 001130 TST286: SALL
1482
1483 ;*WRITE FOUR 18-BIT WORDS (TEN BYTES)
1484
1485 001130 0 002060 0 1 0 060 LDBR ^D48 ;SET DATA PATTERN NUMBER
1486 001131 0 072011 3 5 0 00 11 MOVB AC0
1487 001132 0 002004 0 1 0 004 LDBR 4 ;SET 18-BIT WORD CNT
1488 001133 0 072111 3 5 0 04 11 MOVB AC4
1489 001134 0 002012 0 1 0 012 LDBR ^D10 ;SET BYTE CNT
1490 001135 0 072051 3 5 0 02 11 MOVB AC2
1491 001136 0 002230 0 1 0 230 LDBR WAS72 ;SET ROM PROGRAM START ADDRESS
1492 001137 0 072071 3 5 0 03 11 MOVB AC3
1493 001140 0 002126 0 1 0 126 LDBR ASCI72 ;SETUP ADDR OF EXPECTED TEST DATA
1494 001141 0 072031 3 5 0 01 11 MOVB AC1
1495 001142 0 002044 0 1 0 044 GOSUB WRSEQ ;GO RUN THE PROGRAM
1496 001143 0 177631 7 7 3 11 11
1497 001144 0 115146 4 6 1146 JMPZ .+2 ;JUMP IF NO ERRORS IN XFER
1498 001145 0 116104 4 7 0104 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE WRITE,,PNT
1499
1500 ERLOOP TST ^SALL
1501 001146 0 002200 0 1 0 200
1502 001147 0 116141 4 7 0141
1503 001150 0 115130 4 6 1130
1504 001151 0 002041 0 1 0 041 CHKTRM TST,RH20 ERROR DETECTED DURING WRITE XFER
1505 001152 0 116256 4 7 0256
1506
1507 ERRLOP TST ^SALL
1508 001153 0 115130 4 6 1130
1509 001154 0 002314 0 1 0 314 GOSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
1510 001155 0 177631 7 7 3 11 11
1511 001156 0 115160 4 6 1160 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1512 001157 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
1513
1514 ERLOOP TST ^SALL
1515 001160 0 002002 0 1 0 002
1516 001161 0 116141 4 7 0141
1517 001162 0 115130 4 6 1130
1518 001163 0 002321 0 1 0 321 GOSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
1519 001164 0 177631 7 7 3 11 11
1520 001165 0 115167 4 6 1167 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1521 001166 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
1522
1523 ERLOOP TST ^SALL
1524 001167 0 002003 0 1 0 003
1525 001170 0 116141 4 7 0141
1526 001171 0 115130 4 6 1130
1527 001172 0 002330 0 1 0 330 GOSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 9-1
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
1528 001173 0 177631 7 7 3 11 11
1529 001174 0 115176 4 6 1176 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1530 001175 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
1531
1532 ERLOOP TST ^SALL
1533 001176 0 002004 0 1 0 004
1534 001177 0 116141 4 7 0141
1535 001200 0 115130 4 6 1130
1536 001201 0 002161 0 1 0 161 GOSUB CHKDAT ;GO CHECK THE DATA RECEIVED AT CHANNEL BUS
1537 001202 0 177631 7 7 3 11 11
1538 001203 0 115205 4 6 1205 JMPZ .+2 ;JUMP IF NO ERRORS IN DATA
1539 001204 0 116104 4 7 0104 ERRORD TST,DATA ERROR IN WRITTEN DATA
1540
1541 ERLOOP TST ^SALL
1542 001205 0 002045 0 1 0 045
1543 001206 0 116173 4 7 0173
1544 001207 0 115130 4 6 1130
1545 001210 0 116264 4 7 0264 REPEAT TST
1546 001211 0 115130 4 6 1130
1547
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 10
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
1548 TEST 287,TEST READ 7-BIT ASCII MOD 2 FORWARD FORMATTING
1549 ;***********************************************************************
1550 ;* MCODE7 * TEST 287 * TEST READ 7-BIT ASCII MOD 2 FORWARD FORMATTING
1551 ;***********************************************************************
1552 SALL
1553 001212 0 002037 0 1 0 037
1554 001213 0 116045 4 7 0045
1555
1556 001214 TST287: SALL
1557
1558 ;*READ FOUR 18-BIT WORDS (TEN BYTES)
1559
1560 001214 0 002060 0 1 0 060 LDBR ^D48 ;SET DATA PATTERN NUMBER
1561 001215 0 072011 3 5 0 00 11 MOVB AC0
1562 001216 0 002004 0 1 0 004 LDBR 4 ;SET 18-BIT WORD CNT
1563 001217 0 072111 3 5 0 04 11 MOVB AC4
1564 001220 0 002012 0 1 0 012 LDBR ^D10 ;SET BYTE CNT
1565 001221 0 072051 3 5 0 02 11 MOVB AC2
1566 001222 0 002240 0 1 0 240 LDBR RAS72F ;SET ROM PROGRAM START ADDRESS
1567 001223 0 072071 3 5 0 03 11 MOVB AC3
1568 001224 0 002316 0 1 0 316 GOSUB RDSEQ ;GO RUN THE PROGRAM
1569 001225 0 177231 7 7 2 11 11
1570 001226 0 115230 4 6 1230 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
1571 001227 0 116104 4 7 0104 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
1572
1573 ERLOOP TST ^SALL
1574 001230 0 002200 0 1 0 200
1575 001231 0 116141 4 7 0141
1576 001232 0 115214 4 6 1214
1577 001233 0 002020 0 1 0 020 GOSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
1578 001234 0 177631 7 7 3 11 11
1579 001235 0 115237 4 6 1237 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
1580 001236 0 116104 4 7 0104 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
1581
1582 ERLOOP TST ^SALL
1583 001237 0 002001 0 1 0 001
1584 001240 0 116141 4 7 0141
1585 001241 0 115214 4 6 1214
1586 001242 0 002314 0 1 0 314 GOSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
1587 001243 0 177631 7 7 3 11 11
1588 001244 0 115246 4 6 1246 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1589 001245 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
1590
1591 ERLOOP TST ^SALL
1592 001246 0 002002 0 1 0 002
1593 001247 0 116141 4 7 0141
1594 001250 0 115214 4 6 1214
1595 001251 0 002321 0 1 0 321 GOSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
1596 001252 0 177631 7 7 3 11 11
1597 001253 0 115255 4 6 1255 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1598 001254 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
1599
1600 ERLOOP TST ^SALL
1601 001255 0 002003 0 1 0 003
1602 001256 0 116141 4 7 0141
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 10-1
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
1603 001257 0 115214 4 6 1214
1604 001260 0 002330 0 1 0 330 GOSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
1605 001261 0 177631 7 7 3 11 11
1606 001262 0 115264 4 6 1264 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1607 001263 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
1608
1609 ERLOOP TST ^SALL
1610 001264 0 002004 0 1 0 004
1611 001265 0 116141 4 7 0141
1612 001266 0 115214 4 6 1214
1613 001267 0 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
1614 001270 0 116256 4 7 0256
1615
1616 ERRLOP TST ^SALL
1617 001271 0 115214 4 6 1214
1618 001272 0 116264 4 7 0264 REPEAT TST
1619 001273 0 115214 4 6 1214
1620
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 11
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
1621 TEST 288,TEST READ 7-BIT ASCII MOD 2 REVERSE FORMATTING 1
1622 ;***********************************************************************
1623 ;* MCODE7 * TEST 288 * TEST READ 7-BIT ASCII MOD 2 REVERSE FORMATTING 1
1624 ;***********************************************************************
1625 SALL
1626 001274 0 002040 0 1 0 040
1627 001275 0 116045 4 7 0045
1628
1629 001276 TST288: SALL
1630
1631 ;*READ FOUR 18-BIT WORDS (SIX DATA BYTES WITH FOUR ZERO BYTES PRE-PADDED)
1632
1633 001276 0 002120 0 1 0 120 LDBR ^D80 ;SET DATA PATTERN NUMBER
1634 001277 0 072011 3 5 0 00 11 MOVB AC0
1635 001300 0 002004 0 1 0 004 LDBR 4 ;SET 18-BIT WORD CNT
1636 001301 0 072111 3 5 0 04 11 MOVB AC4
1637 001302 0 002006 0 1 0 006 LDBR ^D6 ;SET BYTE CNT
1638 001303 0 072051 3 5 0 02 11 MOVB AC2
1639 001304 0 002257 0 1 0 257 LDBR RA72R1 ;SET ROM PROGRAM START ADDRESS
1640 001305 0 072071 3 5 0 03 11 MOVB AC3
1641 001306 0 002313 0 1 0 313 GOSUB RRDSEQ ;GO RUN THE PROGRAM
1642 001307 0 177231 7 7 2 11 11
1643 001310 0 115312 4 6 1312 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
1644 001311 0 116104 4 7 0104 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
1645
1646 ERLOOP TST ^SALL
1647 001312 0 002200 0 1 0 200
1648 001313 0 116141 4 7 0141
1649 001314 0 115276 4 6 1276
1650 001315 0 002020 0 1 0 020 GOSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
1651 001316 0 177631 7 7 3 11 11
1652 001317 0 115321 4 6 1321 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
1653 001320 0 116104 4 7 0104 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
1654
1655 ERLOOP TST ^SALL
1656 001321 0 002001 0 1 0 001
1657 001322 0 116141 4 7 0141
1658 001323 0 115276 4 6 1276
1659 001324 0 002314 0 1 0 314 GOSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
1660 001325 0 177631 7 7 3 11 11
1661 001326 0 115330 4 6 1330 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1662 001327 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
1663
1664 ERLOOP TST ^SALL
1665 001330 0 002002 0 1 0 002
1666 001331 0 116141 4 7 0141
1667 001332 0 115276 4 6 1276
1668 001333 0 002321 0 1 0 321 GOSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
1669 001334 0 177631 7 7 3 11 11
1670 001335 0 115337 4 6 1337 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1671 001336 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
1672
1673 ERLOOP TST ^SALL
1674 001337 0 002003 0 1 0 003
1675 001340 0 116141 4 7 0141
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 11-1
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
1676 001341 0 115276 4 6 1276
1677 001342 0 002330 0 1 0 330 GOSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
1678 001343 0 177631 7 7 3 11 11
1679 001344 0 115346 4 6 1346 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1680 001345 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
1681
1682 ERLOOP TST ^SALL
1683 001346 0 002004 0 1 0 004
1684 001347 0 116141 4 7 0141
1685 001350 0 115276 4 6 1276
1686 001351 0 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
1687 001352 0 116256 4 7 0256
1688
1689 ERRLOP TST ^SALL
1690 001353 0 115276 4 6 1276
1691 001354 0 116264 4 7 0264 REPEAT TST
1692 001355 0 115276 4 6 1276
1693
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 12
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
1694 TEST 289,TEST READ 7-BIT ASCII MOD 2 REVERSE FORMATTING 2
1695 ;***********************************************************************
1696 ;* MCODE7 * TEST 289 * TEST READ 7-BIT ASCII MOD 2 REVERSE FORMATTING 2
1697 ;***********************************************************************
1698 SALL
1699 001356 0 002041 0 1 0 041
1700 001357 0 116045 4 7 0045
1701
1702 001360 TST289: SALL
1703
1704 ;*READ FOUR 18-BIT WORDS (SEVEN DATA BYTES WITH THREE ZERO BYTES PRE-PADDED)
1705
1706 001360 0 002121 0 1 0 121 LDBR ^D81 ;SET DATA PATTERN NUMBER
1707 001361 0 072011 3 5 0 00 11 MOVB AC0
1708 001362 0 002004 0 1 0 004 LDBR 4 ;SET 18-BIT WORD CNT
1709 001363 0 072111 3 5 0 04 11 MOVB AC4
1710 001364 0 002007 0 1 0 007 LDBR ^D7 ;SET BYTE CNT
1711 001365 0 072051 3 5 0 02 11 MOVB AC2
1712 001366 0 002253 0 1 0 253 LDBR RA72R2 ;SET ROM PROGRAM START ADDRESS
1713 001367 0 072071 3 5 0 03 11 MOVB AC3
1714 001370 0 002313 0 1 0 313 GOSUB RRDSEQ ;GO RUN THE PROGRAM
1715 001371 0 177231 7 7 2 11 11
1716 001372 0 115374 4 6 1374 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
1717 001373 0 116104 4 7 0104 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
1718
1719 ERLOOP TST ^SALL
1720 001374 0 002200 0 1 0 200
1721 001375 0 116141 4 7 0141
1722 001376 0 115360 4 6 1360
1723 001377 0 002020 0 1 0 020 GOSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
1724 001400 0 177631 7 7 3 11 11
1725 001401 0 115403 4 6 1403 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
1726 001402 0 116104 4 7 0104 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
1727
1728 ERLOOP TST ^SALL
1729 001403 0 002001 0 1 0 001
1730 001404 0 116141 4 7 0141
1731 001405 0 115360 4 6 1360
1732 001406 0 002314 0 1 0 314 GOSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
1733 001407 0 177631 7 7 3 11 11
1734 001410 0 115412 4 6 1412 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1735 001411 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
1736
1737 ERLOOP TST ^SALL
1738 001412 0 002002 0 1 0 002
1739 001413 0 116141 4 7 0141
1740 001414 0 115360 4 6 1360
1741 001415 0 002321 0 1 0 321 GOSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
1742 001416 0 177631 7 7 3 11 11
1743 001417 0 115421 4 6 1421 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1744 001420 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
1745
1746 ERLOOP TST ^SALL
1747 001421 0 002003 0 1 0 003
1748 001422 0 116141 4 7 0141
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 12-1
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
1749 001423 0 115360 4 6 1360
1750 001424 0 002330 0 1 0 330 GOSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
1751 001425 0 177631 7 7 3 11 11
1752 001426 0 115430 4 6 1430 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1753 001427 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
1754
1755 ERLOOP TST ^SALL
1756 001430 0 002004 0 1 0 004
1757 001431 0 116141 4 7 0141
1758 001432 0 115360 4 6 1360
1759 001433 0 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
1760 001434 0 116256 4 7 0256
1761
1762 ERRLOP TST ^SALL
1763 001435 0 115360 4 6 1360
1764 001436 0 116264 4 7 0264 REPEAT TST
1765 001437 0 115360 4 6 1360
1766
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 13
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
1767 TEST 290,TEST READ 7-BIT ASCII MOD 2 REVERSE FORMATTING 3
1768 ;***********************************************************************
1769 ;* MCODE7 * TEST 290 * TEST READ 7-BIT ASCII MOD 2 REVERSE FORMATTING 3
1770 ;***********************************************************************
1771 SALL
1772 001440 0 002042 0 1 0 042
1773 001441 0 116045 4 7 0045
1774
1775 001442 TST290: SALL
1776
1777 ;*READ FOUR 18-BIT WORDS (EIGHT DATA BYTES WITH TWO ZERO BYTES PRE-PADDED)
1778
1779 001442 0 002122 0 1 0 122 LDBR ^D82 ;SET DATA PATTERN NUMBER
1780 001443 0 072011 3 5 0 00 11 MOVB AC0
1781 001444 0 002004 0 1 0 004 LDBR 4 ;SET 18-BIT WORD CNT
1782 001445 0 072111 3 5 0 04 11 MOVB AC4
1783 001446 0 002010 0 1 0 010 LDBR ^D8 ;SET BYTE CNT
1784 001447 0 072051 3 5 0 02 11 MOVB AC2
1785 001450 0 002252 0 1 0 252 LDBR RA72R3 ;SET ROM PROGRAM START ADDRESS
1786 001451 0 072071 3 5 0 03 11 MOVB AC3
1787 001452 0 002313 0 1 0 313 GOSUB RRDSEQ ;GO RUN THE PROGRAM
1788 001453 0 177231 7 7 2 11 11
1789 001454 0 115456 4 6 1456 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
1790 001455 0 116104 4 7 0104 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
1791
1792 ERLOOP TST ^SALL
1793 001456 0 002200 0 1 0 200
1794 001457 0 116141 4 7 0141
1795 001460 0 115442 4 6 1442
1796 001461 0 002020 0 1 0 020 GOSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
1797 001462 0 177631 7 7 3 11 11
1798 001463 0 115465 4 6 1465 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
1799 001464 0 116104 4 7 0104 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
1800
1801 ERLOOP TST ^SALL
1802 001465 0 002001 0 1 0 001
1803 001466 0 116141 4 7 0141
1804 001467 0 115442 4 6 1442
1805 001470 0 002314 0 1 0 314 GOSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
1806 001471 0 177631 7 7 3 11 11
1807 001472 0 115474 4 6 1474 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1808 001473 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
1809
1810 ERLOOP TST ^SALL
1811 001474 0 002002 0 1 0 002
1812 001475 0 116141 4 7 0141
1813 001476 0 115442 4 6 1442
1814 001477 0 002321 0 1 0 321 GOSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
1815 001500 0 177631 7 7 3 11 11
1816 001501 0 115503 4 6 1503 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1817 001502 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
1818
1819 ERLOOP TST ^SALL
1820 001503 0 002003 0 1 0 003
1821 001504 0 116141 4 7 0141
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 13-1
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
1822 001505 0 115442 4 6 1442
1823 001506 0 002330 0 1 0 330 GOSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
1824 001507 0 177631 7 7 3 11 11
1825 001510 0 115512 4 6 1512 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1826 001511 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
1827
1828 ERLOOP TST ^SALL
1829 001512 0 002004 0 1 0 004
1830 001513 0 116141 4 7 0141
1831 001514 0 115442 4 6 1442
1832 001515 0 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
1833 001516 0 116256 4 7 0256
1834
1835 ERRLOP TST ^SALL
1836 001517 0 115442 4 6 1442
1837 001520 0 116264 4 7 0264 REPEAT TST
1838 001521 0 115442 4 6 1442
1839
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 14
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
1840 TEST 291,TEST READ 7-BIT ASCII MOD 2 REVERSE FORMATTING 4
1841 ;***********************************************************************
1842 ;* MCODE7 * TEST 291 * TEST READ 7-BIT ASCII MOD 2 REVERSE FORMATTING 4
1843 ;***********************************************************************
1844 SALL
1845 001522 0 002043 0 1 0 043
1846 001523 0 116045 4 7 0045
1847
1848 001524 TST291: SALL
1849
1850 ;*READ FOUR 18-BIT WORDS (NINE DATA BYTES WITH ONE ZERO BYTE PRE-PADDED)
1851
1852 001524 0 002123 0 1 0 123 LDBR ^D83 ;SET DATA PATTERN NUMBER
1853 001525 0 072011 3 5 0 00 11 MOVB AC0
1854 001526 0 002004 0 1 0 004 LDBR 4 ;SET 18-BIT WORD CNT
1855 001527 0 072111 3 5 0 04 11 MOVB AC4
1856 001530 0 002011 0 1 0 011 LDBR ^D9 ;SET BYTE CNT
1857 001531 0 072051 3 5 0 02 11 MOVB AC2
1858 001532 0 002251 0 1 0 251 LDBR RA72R4 ;SET ROM PROGRAM START ADDRESS
1859 001533 0 072071 3 5 0 03 11 MOVB AC3
1860 001534 0 002313 0 1 0 313 GOSUB RRDSEQ ;GO RUN THE PROGRAM
1861 001535 0 177231 7 7 2 11 11
1862 001536 0 115540 4 6 1540 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
1863 001537 0 116104 4 7 0104 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
1864
1865 ERLOOP TST ^SALL
1866 001540 0 002200 0 1 0 200
1867 001541 0 116141 4 7 0141
1868 001542 0 115524 4 6 1524
1869 001543 0 002020 0 1 0 020 GOSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
1870 001544 0 177631 7 7 3 11 11
1871 001545 0 115547 4 6 1547 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
1872 001546 0 116104 4 7 0104 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
1873
1874 ERLOOP TST ^SALL
1875 001547 0 002001 0 1 0 001
1876 001550 0 116141 4 7 0141
1877 001551 0 115524 4 6 1524
1878 001552 0 002314 0 1 0 314 GOSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
1879 001553 0 177631 7 7 3 11 11
1880 001554 0 115556 4 6 1556 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1881 001555 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
1882
1883 ERLOOP TST ^SALL
1884 001556 0 002002 0 1 0 002
1885 001557 0 116141 4 7 0141
1886 001560 0 115524 4 6 1524
1887 001561 0 002321 0 1 0 321 GOSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
1888 001562 0 177631 7 7 3 11 11
1889 001563 0 115565 4 6 1565 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1890 001564 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
1891
1892 ERLOOP TST ^SALL
1893 001565 0 002003 0 1 0 003
1894 001566 0 116141 4 7 0141
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 14-1
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
1895 001567 0 115524 4 6 1524
1896 001570 0 002330 0 1 0 330 GOSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
1897 001571 0 177631 7 7 3 11 11
1898 001572 0 115574 4 6 1574 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1899 001573 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
1900
1901 ERLOOP TST ^SALL
1902 001574 0 002004 0 1 0 004
1903 001575 0 116141 4 7 0141
1904 001576 0 115524 4 6 1524
1905 001577 0 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
1906 001600 0 116256 4 7 0256
1907
1908 ERRLOP TST ^SALL
1909 001601 0 115524 4 6 1524
1910 001602 0 116264 4 7 0264 REPEAT TST
1911 001603 0 115524 4 6 1524
1912
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 15
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
1913 TEST 292,TEST READ 7-BIT ASCII MOD 2 REVERSE FORMATTING 5
1914 ;***********************************************************************
1915 ;* MCODE7 * TEST 292 * TEST READ 7-BIT ASCII MOD 2 REVERSE FORMATTING 5
1916 ;***********************************************************************
1917 SALL
1918 001604 0 002044 0 1 0 044
1919 001605 0 116045 4 7 0045
1920
1921 001606 TST292: SALL
1922
1923 ;*READ FOUR 18-BIT WORDS (TEN DATA BYTES WITH NO PRE-PADDING)
1924
1925 001606 0 002124 0 1 0 124 LDBR ^D84 ;SET DATA PATTERN NUMBER
1926 001607 0 072011 3 5 0 00 11 MOVB AC0
1927 001610 0 002004 0 1 0 004 LDBR 4 ;SET 18-BIT WORD CNT
1928 001611 0 072111 3 5 0 04 11 MOVB AC4
1929 001612 0 002012 0 1 0 012 LDBR ^D10 ;SET BYTE CNT
1930 001613 0 072051 3 5 0 02 11 MOVB AC2
1931 001614 0 002250 0 1 0 250 LDBR RA72R5 ;SET ROM PROGRAM START ADDRESS
1932 001615 0 072071 3 5 0 03 11 MOVB AC3
1933 001616 0 002313 0 1 0 313 GOSUB RRDSEQ ;GO RUN THE PROGRAM
1934 001617 0 177231 7 7 2 11 11
1935 001620 0 115622 4 6 1622 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
1936 001621 0 116104 4 7 0104 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
1937
1938 ERLOOP TST ^SALL
1939 001622 0 002200 0 1 0 200
1940 001623 0 116141 4 7 0141
1941 001624 0 115606 4 6 1606
1942 001625 0 002020 0 1 0 020 GOSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
1943 001626 0 177631 7 7 3 11 11
1944 001627 0 115631 4 6 1631 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
1945 001630 0 116104 4 7 0104 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
1946
1947 ERLOOP TST ^SALL
1948 001631 0 002001 0 1 0 001
1949 001632 0 116141 4 7 0141
1950 001633 0 115606 4 6 1606
1951 001634 0 002314 0 1 0 314 GOSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
1952 001635 0 177631 7 7 3 11 11
1953 001636 0 115640 4 6 1640 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1954 001637 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
1955
1956 ERLOOP TST ^SALL
1957 001640 0 002002 0 1 0 002
1958 001641 0 116141 4 7 0141
1959 001642 0 115606 4 6 1606
1960 001643 0 002321 0 1 0 321 GOSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
1961 001644 0 177631 7 7 3 11 11
1962 001645 0 115647 4 6 1647 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1963 001646 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
1964
1965 ERLOOP TST ^SALL
1966 001647 0 002003 0 1 0 003
1967 001650 0 116141 4 7 0141
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 15-1
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
1968 001651 0 115606 4 6 1606
1969 001652 0 002330 0 1 0 330 GOSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
1970 001653 0 177631 7 7 3 11 11
1971 001654 0 115656 4 6 1656 JMPZ .+2 ;JUMP IF NONE WERE FOUND
1972 001655 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
1973
1974 ERLOOP TST ^SALL
1975 001656 0 002004 0 1 0 004
1976 001657 0 116141 4 7 0141
1977 001660 0 115606 4 6 1606
1978 001661 0 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
1979 001662 0 116256 4 7 0256
1980
1981 ERRLOP TST ^SALL
1982 001663 0 115606 4 6 1606
1983 001664 0 116264 4 7 0264 REPEAT TST
1984 001665 0 115606 4 6 1606
1985
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 16
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
1986 TEST 293,TEST WRITE 11-MOD 1 FORMATTING
1987 ;***********************************************************************
1988 ;* MCODE7 * TEST 293 * TEST WRITE 11-MOD 1 FORMATTING
1989 ;***********************************************************************
1990 SALL
1991 001666 0 002045 0 1 0 045
1992 001667 0 116045 4 7 0045
1993
1994 001670 TST293: SALL
1995
1996 ;*WRITE TWO 18-BIT WORDS (FOUR BYTES)
1997
1998 001670 0 002061 0 1 0 061 LDBR ^D49 ;SET DATA PATTERN NUMBER
1999 001671 0 072011 3 5 0 00 11 MOVB AC0
2000 001672 0 002002 0 1 0 002 LDBR 2 ;SET 18-BIT WORD CNT
2001 001673 0 072111 3 5 0 04 11 MOVB AC4
2002 001674 0 002004 0 1 0 004 LDBR ^D4 ;SET BYTE CNT
2003 001675 0 072051 3 5 0 02 11 MOVB AC2
2004 001676 0 002260 0 1 0 260 LDBR WEM1 ;SET ROM PROGRAM START ADDRESS
2005 001677 0 072071 3 5 0 03 11 MOVB AC3
2006 001700 0 002034 0 1 0 034 LDBR TSTDAT ;SETUP ADDR OF EXPECTED TEST DATA
2007 001701 0 072031 3 5 0 01 11 MOVB AC1
2008 001702 0 002044 0 1 0 044 GOSUB WRSEQ ;GO RUN THE PROGRAM
2009 001703 0 177631 7 7 3 11 11
2010 001704 0 115706 4 6 1706 JMPZ .+2 ;JUMP IF NO ERRORS IN XFER
2011 001705 0 116104 4 7 0104 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE WRITE,,PNT
2012
2013 ERLOOP TST ^SALL
2014 001706 0 002200 0 1 0 200
2015 001707 0 116141 4 7 0141
2016 001710 0 115670 4 6 1670
2017 001711 0 002041 0 1 0 041 CHKTRM TST,RH20 ERROR DETECTED DURING WRITE XFER
2018 001712 0 116256 4 7 0256
2019
2020 ERRLOP TST ^SALL
2021 001713 0 115670 4 6 1670
2022 001714 0 002314 0 1 0 314 GOSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
2023 001715 0 177631 7 7 3 11 11
2024 001716 0 115720 4 6 1720 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2025 001717 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
2026
2027 ERLOOP TST ^SALL
2028 001720 0 002002 0 1 0 002
2029 001721 0 116141 4 7 0141
2030 001722 0 115670 4 6 1670
2031 001723 0 002321 0 1 0 321 GOSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
2032 001724 0 177631 7 7 3 11 11
2033 001725 0 115727 4 6 1727 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2034 001726 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
2035
2036 ERLOOP TST ^SALL
2037 001727 0 002003 0 1 0 003
2038 001730 0 116141 4 7 0141
2039 001731 0 115670 4 6 1670
2040 001732 0 002330 0 1 0 330 GOSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 16-1
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
2041 001733 0 177631 7 7 3 11 11
2042 001734 0 115736 4 6 1736 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2043 001735 0 116104 4 7 0104 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
2044
2045 ERLOOP TST ^SALL
2046 001736 0 002004 0 1 0 004
2047 001737 0 116141 4 7 0141
2048 001740 0 115670 4 6 1670
2049 001741 0 002161 0 1 0 161 GOSUB CHKDAT ;GO CHECK THE DATA RECEIVED AT CHANNEL BUS
2050 001742 0 177631 7 7 3 11 11
2051 001743 0 115745 4 6 1745 JMPZ .+2 ;JUMP IF NO ERRORS IN DATA
2052 001744 0 116104 4 7 0104 ERRORD TST,DATA ERROR IN WRITTEN DATA
2053
2054 ERLOOP TST ^SALL
2055 001745 0 002045 0 1 0 045
2056 001746 0 116173 4 7 0173
2057 001747 0 115670 4 6 1670
2058 001750 0 116264 4 7 0264 REPEAT TST
2059 001751 0 115670 4 6 1670
2060 001752 0 002000 0 1 0 000 JUMP NXTBNK ;JUMP TO NEXT BANK OF CRAM
2061 001753 0 160231 7 0 0 11 11
2062 002000 .LOC 2000
2063 002000 NXTBNK:
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 17
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
2064 TEST 294,TEST READ 11-MOD 1 FORWARD FORMATTING
2065 ;***********************************************************************
2066 ;* MCODE7 * TEST 294 * TEST READ 11-MOD 1 FORWARD FORMATTING
2067 ;***********************************************************************
2068 SALL
2069 002000 1 002046 0 1 0 046
2070 002001 1 117743 4 7 1743
2071
2072 002002 TST294: SALL
2073
2074 ;*READ TWO 18-BIT WORDS (FOUR BYTES)
2075
2076 002002 1 002061 0 1 0 061 LDBR ^D49 ;SET DATA PATTERN NUMBER
2077 002003 1 072011 3 5 0 00 11 MOVB AC0
2078 002004 1 002002 0 1 0 002 LDBR 2 ;SET 18-BIT WORD CNT
2079 002005 1 072111 3 5 0 04 11 MOVB AC4
2080 002006 1 002004 0 1 0 004 LDBR ^D4 ;SET BYTE CNT
2081 002007 1 072051 3 5 0 02 11 MOVB AC2
2082 002010 1 002264 0 1 0 264 LDBR REM1F ;SET ROM PROGRAM START ADDRESS
2083 002011 1 072071 3 5 0 03 11 MOVB AC3
2084 002012 1 117316 4 7 1316 JMPSUB RDSEQ ;GO RUN THE PROGRAM
2085 002013 1 114015 4 6 0015 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
2086 002014 1 117751 4 7 1751 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
2087
2088 ERLOOP TST ^SALL
2089 002015 1 002200 0 1 0 200
2090 002016 1 117746 4 7 1746
2091 002017 1 114002 4 6 0002
2092 002020 1 117420 4 7 1420 JMPSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
2093 002021 1 114023 4 6 0023 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
2094 002022 1 117751 4 7 1751 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
2095
2096 ERLOOP TST ^SALL
2097 002023 1 002001 0 1 0 001
2098 002024 1 117746 4 7 1746
2099 002025 1 114002 4 6 0002
2100 002026 1 117714 4 7 1714 JMPSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
2101 002027 1 114031 4 6 0031 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2102 002030 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
2103
2104 ERLOOP TST ^SALL
2105 002031 1 002002 0 1 0 002
2106 002032 1 117746 4 7 1746
2107 002033 1 114002 4 6 0002
2108 002034 1 117721 4 7 1721 JMPSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
2109 002035 1 114037 4 6 0037 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2110 002036 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
2111
2112 ERLOOP TST ^SALL
2113 002037 1 002003 0 1 0 003
2114 002040 1 117746 4 7 1746
2115 002041 1 114002 4 6 0002
2116 002042 1 117730 4 7 1730 JMPSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
2117 002043 1 114045 4 6 0045 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2118 002044 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 17-1
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
2119
2120 ERLOOP TST ^SALL
2121 002045 1 002004 0 1 0 004
2122 002046 1 117746 4 7 1746
2123 002047 1 114002 4 6 0002
2124 002050 1 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
2125 002051 1 117765 4 7 1765
2126
2127 ERRLOP TST ^SALL
2128 002052 1 114002 4 6 0002
2129 002053 1 117753 4 7 1753 REPEAT TST
2130 002054 1 114002 4 6 0002
2131
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 18
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
2132 TEST 295,TEST READ 11-MOD 1 REVERSE FORMATTING 1
2133 ;***********************************************************************
2134 ;* MCODE7 * TEST 295 * TEST READ 11-MOD 1 REVERSE FORMATTING 1
2135 ;***********************************************************************
2136 SALL
2137 002055 1 002047 0 1 0 047
2138 002056 1 117743 4 7 1743
2139
2140 002057 TST295: SALL
2141
2142 ;*READ TWO 18-BIT WORDS (THREE DATA BYTES AND ONE ZERO BYTE PRE-PADDED)
2143
2144 002057 1 002125 0 1 0 125 LDBR ^D85 ;SET DATA PATTERN NUMBER
2145 002060 1 072011 3 5 0 00 11 MOVB AC0
2146 002061 1 002002 0 1 0 002 LDBR 2 ;SET 18-BIT WORD CNT
2147 002062 1 072111 3 5 0 04 11 MOVB AC4
2148 002063 1 002003 0 1 0 003 LDBR ^D3 ;SET BYTE CNT
2149 002064 1 072051 3 5 0 02 11 MOVB AC2
2150 002065 1 002271 0 1 0 271 LDBR REM1R1 ;SET ROM PROGRAM START ADDRESS
2151 002066 1 072071 3 5 0 03 11 MOVB AC3
2152 002067 1 117313 4 7 1313 JMPSUB RRDSEQ ;GO RUN THE PROGRAM
2153 002070 1 114072 4 6 0072 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
2154 002071 1 117751 4 7 1751 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
2155
2156 ERLOOP TST ^SALL
2157 002072 1 002200 0 1 0 200
2158 002073 1 117746 4 7 1746
2159 002074 1 114057 4 6 0057
2160 002075 1 117420 4 7 1420 JMPSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
2161 002076 1 114100 4 6 0100 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
2162 002077 1 117751 4 7 1751 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
2163
2164 ERLOOP TST ^SALL
2165 002100 1 002001 0 1 0 001
2166 002101 1 117746 4 7 1746
2167 002102 1 114057 4 6 0057
2168 002103 1 117714 4 7 1714 JMPSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
2169 002104 1 114106 4 6 0106 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2170 002105 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
2171
2172 ERLOOP TST ^SALL
2173 002106 1 002002 0 1 0 002
2174 002107 1 117746 4 7 1746
2175 002110 1 114057 4 6 0057
2176 002111 1 117721 4 7 1721 JMPSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
2177 002112 1 114114 4 6 0114 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2178 002113 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
2179
2180 ERLOOP TST ^SALL
2181 002114 1 002003 0 1 0 003
2182 002115 1 117746 4 7 1746
2183 002116 1 114057 4 6 0057
2184 002117 1 117730 4 7 1730 JMPSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
2185 002120 1 114122 4 6 0122 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2186 002121 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 18-1
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
2187
2188 ERLOOP TST ^SALL
2189 002122 1 002004 0 1 0 004
2190 002123 1 117746 4 7 1746
2191 002124 1 114057 4 6 0057
2192 002125 1 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
2193 002126 1 117765 4 7 1765
2194
2195 ERRLOP TST ^SALL
2196 002127 1 114057 4 6 0057
2197 002130 1 117753 4 7 1753 REPEAT TST
2198 002131 1 114057 4 6 0057
2199
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 19
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
2200 TEST 296,TEST READ 11-MOD 1 REVERSE FORMATTING 2
2201 ;***********************************************************************
2202 ;* MCODE7 * TEST 296 * TEST READ 11-MOD 1 REVERSE FORMATTING 2
2203 ;***********************************************************************
2204 SALL
2205 002132 1 002050 0 1 0 050
2206 002133 1 117743 4 7 1743
2207
2208 002134 TST296: SALL
2209
2210 ;*READ TWO 18-BIT WORDS (FOUR DATA BYTES WITH NO PRE-PADDING)
2211
2212 002134 1 002126 0 1 0 126 LDBR ^D86 ;SET DATA PATTERN NUMBER
2213 002135 1 072011 3 5 0 00 11 MOVB AC0
2214 002136 1 002002 0 1 0 002 LDBR 2 ;SET 18-BIT WORD CNT
2215 002137 1 072111 3 5 0 04 11 MOVB AC4
2216 002140 1 002004 0 1 0 004 LDBR ^D4 ;SET BYTE CNT
2217 002141 1 072051 3 5 0 02 11 MOVB AC2
2218 002142 1 002270 0 1 0 270 LDBR REM1R2 ;SET ROM PROGRAM START ADDRESS
2219 002143 1 072071 3 5 0 03 11 MOVB AC3
2220 002144 1 117313 4 7 1313 JMPSUB RRDSEQ ;GO RUN THE PROGRAM
2221 002145 1 114147 4 6 0147 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
2222 002146 1 117751 4 7 1751 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
2223
2224 ERLOOP TST ^SALL
2225 002147 1 002200 0 1 0 200
2226 002150 1 117746 4 7 1746
2227 002151 1 114134 4 6 0134
2228 002152 1 117420 4 7 1420 JMPSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
2229 002153 1 114155 4 6 0155 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
2230 002154 1 117751 4 7 1751 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
2231
2232 ERLOOP TST ^SALL
2233 002155 1 002001 0 1 0 001
2234 002156 1 117746 4 7 1746
2235 002157 1 114134 4 6 0134
2236 002160 1 117714 4 7 1714 JMPSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
2237 002161 1 114163 4 6 0163 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2238 002162 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
2239
2240 ERLOOP TST ^SALL
2241 002163 1 002002 0 1 0 002
2242 002164 1 117746 4 7 1746
2243 002165 1 114134 4 6 0134
2244 002166 1 117721 4 7 1721 JMPSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
2245 002167 1 114171 4 6 0171 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2246 002170 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
2247
2248 ERLOOP TST ^SALL
2249 002171 1 002003 0 1 0 003
2250 002172 1 117746 4 7 1746
2251 002173 1 114134 4 6 0134
2252 002174 1 117730 4 7 1730 JMPSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
2253 002175 1 114177 4 6 0177 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2254 002176 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 19-1
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
2255
2256 ERLOOP TST ^SALL
2257 002177 1 002004 0 1 0 004
2258 002200 1 117746 4 7 1746
2259 002201 1 114134 4 6 0134
2260 002202 1 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
2261 002203 1 117765 4 7 1765
2262
2263 ERRLOP TST ^SALL
2264 002204 1 114134 4 6 0134
2265 002205 1 117753 4 7 1753 REPEAT TST
2266 002206 1 114134 4 6 0134
2267
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 20
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
2268 TEST 297,TEST WRITE 11-MOD 2 FORMATTING
2269 ;***********************************************************************
2270 ;* MCODE7 * TEST 297 * TEST WRITE 11-MOD 2 FORMATTING
2271 ;***********************************************************************
2272 SALL
2273 002207 1 002051 0 1 0 051
2274 002210 1 117743 4 7 1743
2275
2276 002211 TST297: SALL
2277
2278 ;*WRITE TWO 18-BIT WORDS (FOUR BYTES)
2279
2280 002211 1 002062 0 1 0 062 LDBR ^D50 ;SET DATA PATTERN NUMBER
2281 002212 1 072011 3 5 0 00 11 MOVB AC0
2282 002213 1 002002 0 1 0 002 LDBR 2 ;SET 18-BIT WORD CNT
2283 002214 1 072111 3 5 0 04 11 MOVB AC4
2284 002215 1 002004 0 1 0 004 LDBR ^D4 ;SET BYTE CNT
2285 002216 1 072051 3 5 0 02 11 MOVB AC2
2286 002217 1 002274 0 1 0 274 LDBR WEM2 ;SET ROM PROGRAM START ADDRESS
2287 002220 1 072071 3 5 0 03 11 MOVB AC3
2288 002221 1 002034 0 1 0 034 LDBR TSTDAT ;SETUP ADDR OF EXPECTED TEST DATA
2289 002222 1 072031 3 5 0 01 11 MOVB AC1
2290 002223 1 117444 4 7 1444 JMPSUB WRSEQ ;GO RUN THE PROGRAM
2291 002224 1 114226 4 6 0226 JMPZ .+2 ;JUMP IF NO ERRORS IN XFER
2292 002225 1 117751 4 7 1751 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE WRITE,,PNT
2293
2294 ERLOOP TST ^SALL
2295 002226 1 002200 0 1 0 200
2296 002227 1 117746 4 7 1746
2297 002230 1 114211 4 6 0211
2298 002231 1 002041 0 1 0 041 CHKTRM TST,RH20 ERROR DETECTED DURING WRITE XFER
2299 002232 1 117765 4 7 1765
2300
2301 ERRLOP TST ^SALL
2302 002233 1 114211 4 6 0211
2303 002234 1 117714 4 7 1714 JMPSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
2304 002235 1 114237 4 6 0237 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2305 002236 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
2306
2307 ERLOOP TST ^SALL
2308 002237 1 002002 0 1 0 002
2309 002240 1 117746 4 7 1746
2310 002241 1 114211 4 6 0211
2311 002242 1 117721 4 7 1721 JMPSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
2312 002243 1 114245 4 6 0245 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2313 002244 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
2314
2315 ERLOOP TST ^SALL
2316 002245 1 002003 0 1 0 003
2317 002246 1 117746 4 7 1746
2318 002247 1 114211 4 6 0211
2319 002250 1 117730 4 7 1730 JMPSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
2320 002251 1 114253 4 6 0253 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2321 002252 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
2322
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 20-1
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
2323 ERLOOP TST ^SALL
2324 002253 1 002004 0 1 0 004
2325 002254 1 117746 4 7 1746
2326 002255 1 114211 4 6 0211
2327 002256 1 117561 4 7 1561 JMPSUB CHKDAT ;GO CHECK THE DATA RECEIVED AT CHANNEL BUS
2328 002257 1 114261 4 6 0261 JMPZ .+2 ;JUMP IF NO ERRORS IN DATA
2329 002260 1 117751 4 7 1751 ERRORD TST,DATA ERROR IN WRITTEN DATA
2330
2331 ERLOOP TST ^SALL
2332 002261 1 002045 0 1 0 045
2333 002262 1 117770 4 7 1770
2334 002263 1 114211 4 6 0211
2335 002264 1 117753 4 7 1753 REPEAT TST
2336 002265 1 114211 4 6 0211
2337
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 21
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
2338 TEST 298,TEST READ 11-MOD 2 FORWARD FORMATTING
2339 ;***********************************************************************
2340 ;* MCODE7 * TEST 298 * TEST READ 11-MOD 2 FORWARD FORMATTING
2341 ;***********************************************************************
2342 SALL
2343 002266 1 002052 0 1 0 052
2344 002267 1 117743 4 7 1743
2345
2346 002270 TST298: SALL
2347
2348 ;*READ TWO 18-BIT WORDS (FOUR BYTES)
2349
2350 002270 1 002062 0 1 0 062 LDBR ^D50 ;SET DATA PATTERN NUMBER
2351 002271 1 072011 3 5 0 00 11 MOVB AC0
2352 002272 1 002002 0 1 0 002 LDBR 2 ;SET 18-BIT WORD CNT
2353 002273 1 072111 3 5 0 04 11 MOVB AC4
2354 002274 1 002004 0 1 0 004 LDBR ^D4 ;SET BYTE CNT
2355 002275 1 072051 3 5 0 02 11 MOVB AC2
2356 002276 1 002300 0 1 0 300 LDBR REM2F ;SET ROM PROGRAM START ADDRESS
2357 002277 1 072071 3 5 0 03 11 MOVB AC3
2358 002300 1 117316 4 7 1316 JMPSUB RDSEQ ;GO RUN THE PROGRAM
2359 002301 1 114303 4 6 0303 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
2360 002302 1 117751 4 7 1751 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
2361
2362 ERLOOP TST ^SALL
2363 002303 1 002200 0 1 0 200
2364 002304 1 117746 4 7 1746
2365 002305 1 114270 4 6 0270
2366 002306 1 117420 4 7 1420 JMPSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
2367 002307 1 114311 4 6 0311 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
2368 002310 1 117751 4 7 1751 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
2369
2370 ERLOOP TST ^SALL
2371 002311 1 002001 0 1 0 001
2372 002312 1 117746 4 7 1746
2373 002313 1 114270 4 6 0270
2374 002314 1 117714 4 7 1714 JMPSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
2375 002315 1 114317 4 6 0317 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2376 002316 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
2377
2378 ERLOOP TST ^SALL
2379 002317 1 002002 0 1 0 002
2380 002320 1 117746 4 7 1746
2381 002321 1 114270 4 6 0270
2382 002322 1 117721 4 7 1721 JMPSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
2383 002323 1 114325 4 6 0325 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2384 002324 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
2385
2386 ERLOOP TST ^SALL
2387 002325 1 002003 0 1 0 003
2388 002326 1 117746 4 7 1746
2389 002327 1 114270 4 6 0270
2390 002330 1 117730 4 7 1730 JMPSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
2391 002331 1 114333 4 6 0333 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2392 002332 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 21-1
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
2393
2394 ERLOOP TST ^SALL
2395 002333 1 002004 0 1 0 004
2396 002334 1 117746 4 7 1746
2397 002335 1 114270 4 6 0270
2398 002336 1 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
2399 002337 1 117765 4 7 1765
2400
2401 ERRLOP TST ^SALL
2402 002340 1 114270 4 6 0270
2403 002341 1 117753 4 7 1753 REPEAT TST
2404 002342 1 114270 4 6 0270
2405
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 22
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
2406 TEST 299,TEST READ 11-MOD 2 REVERSE FORMATTING 1
2407 ;***********************************************************************
2408 ;* MCODE7 * TEST 299 * TEST READ 11-MOD 2 REVERSE FORMATTING 1
2409 ;***********************************************************************
2410 SALL
2411 002343 1 002053 0 1 0 053
2412 002344 1 117743 4 7 1743
2413
2414 002345 TST299: SALL
2415
2416 ;*READ TWO 18-BIT WORDS (THREE DATA BYTES AND ONE ZERO BYTE PRE-PADDED)
2417
2418 002345 1 002127 0 1 0 127 LDBR ^D87 ;SET DATA PATTERN NUMBER
2419 002346 1 072011 3 5 0 00 11 MOVB AC0
2420 002347 1 002002 0 1 0 002 LDBR 2 ;SET 18-BIT WORD CNT
2421 002350 1 072111 3 5 0 04 11 MOVB AC4
2422 002351 1 002003 0 1 0 003 LDBR ^D3 ;SET BYTE CNT
2423 002352 1 072051 3 5 0 02 11 MOVB AC2
2424 002353 1 002305 0 1 0 305 LDBR REM2R1 ;SET ROM PROGRAM START ADDRESS
2425 002354 1 072071 3 5 0 03 11 MOVB AC3
2426 002355 1 117313 4 7 1313 JMPSUB RRDSEQ ;GO RUN THE PROGRAM
2427 002356 1 114360 4 6 0360 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
2428 002357 1 117751 4 7 1751 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
2429
2430 ERLOOP TST ^SALL
2431 002360 1 002200 0 1 0 200
2432 002361 1 117746 4 7 1746
2433 002362 1 114345 4 6 0345
2434 002363 1 117420 4 7 1420 JMPSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
2435 002364 1 114366 4 6 0366 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
2436 002365 1 117751 4 7 1751 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
2437
2438 ERLOOP TST ^SALL
2439 002366 1 002001 0 1 0 001
2440 002367 1 117746 4 7 1746
2441 002370 1 114345 4 6 0345
2442 002371 1 117714 4 7 1714 JMPSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
2443 002372 1 114374 4 6 0374 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2444 002373 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
2445
2446 ERLOOP TST ^SALL
2447 002374 1 002002 0 1 0 002
2448 002375 1 117746 4 7 1746
2449 002376 1 114345 4 6 0345
2450 002377 1 117721 4 7 1721 JMPSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
2451 002400 1 114402 4 6 0402 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2452 002401 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
2453
2454 ERLOOP TST ^SALL
2455 002402 1 002003 0 1 0 003
2456 002403 1 117746 4 7 1746
2457 002404 1 114345 4 6 0345
2458 002405 1 117730 4 7 1730 JMPSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
2459 002406 1 114410 4 6 0410 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2460 002407 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 22-1
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
2461
2462 ERLOOP TST ^SALL
2463 002410 1 002004 0 1 0 004
2464 002411 1 117746 4 7 1746
2465 002412 1 114345 4 6 0345
2466 002413 1 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
2467 002414 1 117765 4 7 1765
2468
2469 ERRLOP TST ^SALL
2470 002415 1 114345 4 6 0345
2471 002416 1 117753 4 7 1753 REPEAT TST
2472 002417 1 114345 4 6 0345
2473
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 23
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
2474 TEST 300,TEST READ 11-MOD 2 REVERSE FORMATTING 2
2475 ;***********************************************************************
2476 ;* MCODE7 * TEST 300 * TEST READ 11-MOD 2 REVERSE FORMATTING 2
2477 ;***********************************************************************
2478 SALL
2479 002420 1 002054 0 1 0 054
2480 002421 1 117743 4 7 1743
2481
2482 002422 TST300: SALL
2483
2484 ;*READ TWO 18-BIT WORDS (FOUR DATA BYTES WITH NO PRE-PADDING)
2485
2486 002422 1 002130 0 1 0 130 LDBR ^D88 ;SET DATA PATTERN NUMBER
2487 002423 1 072011 3 5 0 00 11 MOVB AC0
2488 002424 1 002002 0 1 0 002 LDBR 2 ;SET 18-BIT WORD CNT
2489 002425 1 072111 3 5 0 04 11 MOVB AC4
2490 002426 1 002004 0 1 0 004 LDBR ^D4 ;SET BYTE CNT
2491 002427 1 072051 3 5 0 02 11 MOVB AC2
2492 002430 1 002304 0 1 0 304 LDBR REM2R2 ;SET ROM PROGRAM START ADDRESS
2493 002431 1 072071 3 5 0 03 11 MOVB AC3
2494 002432 1 117313 4 7 1313 JMPSUB RRDSEQ ;GO RUN THE PROGRAM
2495 002433 1 114435 4 6 0435 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
2496 002434 1 117751 4 7 1751 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
2497
2498 ERLOOP TST ^SALL
2499 002435 1 002200 0 1 0 200
2500 002436 1 117746 4 7 1746
2501 002437 1 114422 4 6 0422
2502 002440 1 117420 4 7 1420 JMPSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
2503 002441 1 114443 4 6 0443 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
2504 002442 1 117751 4 7 1751 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
2505
2506 ERLOOP TST ^SALL
2507 002443 1 002001 0 1 0 001
2508 002444 1 117746 4 7 1746
2509 002445 1 114422 4 6 0422
2510 002446 1 117714 4 7 1714 JMPSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
2511 002447 1 114451 4 6 0451 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2512 002450 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
2513
2514 ERLOOP TST ^SALL
2515 002451 1 002002 0 1 0 002
2516 002452 1 117746 4 7 1746
2517 002453 1 114422 4 6 0422
2518 002454 1 117721 4 7 1721 JMPSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
2519 002455 1 114457 4 6 0457 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2520 002456 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
2521
2522 ERLOOP TST ^SALL
2523 002457 1 002003 0 1 0 003
2524 002460 1 117746 4 7 1746
2525 002461 1 114422 4 6 0422
2526 002462 1 117730 4 7 1730 JMPSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
2527 002463 1 114465 4 6 0465 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2528 002464 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 23-1
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
2529
2530 ERLOOP TST ^SALL
2531 002465 1 002004 0 1 0 004
2532 002466 1 117746 4 7 1746
2533 002467 1 114422 4 6 0422
2534 002470 1 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
2535 002471 1 117765 4 7 1765
2536
2537 ERRLOP TST ^SALL
2538 002472 1 114422 4 6 0422
2539 002473 1 117753 4 7 1753 REPEAT TST
2540 002474 1 114422 4 6 0422
2541
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 24
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
2542 TEST 301,TEST WRITE COBOL EBCDIC FORMATTING
2543 ;***********************************************************************
2544 ;* MCODE7 * TEST 301 * TEST WRITE COBOL EBCDIC FORMATTING
2545 ;***********************************************************************
2546 SALL
2547 002475 1 002055 0 1 0 055
2548 002476 1 117743 4 7 1743
2549
2550 002477 TST301: SALL
2551
2552 ;*WRITE FOUR 18-BIT WORDS (EIGHT BYTES)
2553
2554 002477 1 002131 0 1 0 131 LDBR ^D89 ;SET DATA PATTERN NUMBER
2555 002500 1 072011 3 5 0 00 11 MOVB AC0
2556 002501 1 002004 0 1 0 004 LDBR 4 ;SET 18-BIT WORD CNT
2557 002502 1 072111 3 5 0 04 11 MOVB AC4
2558 002503 1 002010 0 1 0 010 LDBR ^D8 ;SET BYTE CNT
2559 002504 1 072051 3 5 0 02 11 MOVB AC2
2560 002505 1 002310 0 1 0 310 LDBR WCOBOL ;SET ROM PROGRAM START ADDRESS
2561 002506 1 072071 3 5 0 03 11 MOVB AC3
2562 002507 1 002034 0 1 0 034 LDBR TSTDAT ;SETUP ADDR OF EXPECTED TEST DATA
2563 002510 1 072031 3 5 0 01 11 MOVB AC1
2564 002511 1 002044 0 1 0 044 GOSUB WRSEQ ;GO RUN THE PROGRAM
2565 002512 1 177631 7 7 3 11 11
2566 002513 1 114515 4 6 0515 JMPZ .+2 ;JUMP IF NO ERRORS IN XFER
2567 002514 1 117751 4 7 1751 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE WRITE,,PNT
2568
2569 ERLOOP TST ^SALL
2570 002515 1 002200 0 1 0 200
2571 002516 1 117746 4 7 1746
2572 002517 1 114477 4 6 0477
2573 002520 1 002041 0 1 0 041 CHKTRM TST,RH20 ERROR DETECTED DURING WRITE XFER
2574 002521 1 117765 4 7 1765
2575
2576 ERRLOP TST ^SALL
2577 002522 1 114477 4 6 0477
2578 002523 1 002314 0 1 0 314 GOSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
2579 002524 1 177631 7 7 3 11 11
2580 002525 1 114527 4 6 0527 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2581 002526 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
2582
2583 ERLOOP TST ^SALL
2584 002527 1 002002 0 1 0 002
2585 002530 1 117746 4 7 1746
2586 002531 1 114477 4 6 0477
2587 002532 1 002321 0 1 0 321 GOSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
2588 002533 1 177631 7 7 3 11 11
2589 002534 1 114536 4 6 0536 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2590 002535 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
2591
2592 ERLOOP TST ^SALL
2593 002536 1 002003 0 1 0 003
2594 002537 1 117746 4 7 1746
2595 002540 1 114477 4 6 0477
2596 002541 1 002330 0 1 0 330 GOSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 24-1
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
2597 002542 1 177631 7 7 3 11 11
2598 002543 1 114545 4 6 0545 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2599 002544 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
2600
2601 ERLOOP TST ^SALL
2602 002545 1 002004 0 1 0 004
2603 002546 1 117746 4 7 1746
2604 002547 1 114477 4 6 0477
2605 002550 1 002161 0 1 0 161 GOSUB CHKDAT ;GO CHECK THE DATA RECEIVED AT CHANNEL BUS
2606 002551 1 177631 7 7 3 11 11
2607 002552 1 114554 4 6 0554 JMPZ .+2 ;JUMP IF NO ERRORS IN DATA
2608 002553 1 117751 4 7 1751 ERRORD TST,DATA ERROR IN WRITTEN DATA
2609
2610 ERLOOP TST ^SALL
2611 002554 1 002045 0 1 0 045
2612 002555 1 117770 4 7 1770
2613 002556 1 114477 4 6 0477
2614 002557 1 117753 4 7 1753 REPEAT TST
2615 002560 1 114477 4 6 0477
2616
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 25
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
2617 TEST 302,TEST READ COBOL EBCDIC FORWARD FORMATTING
2618 ;***********************************************************************
2619 ;* MCODE7 * TEST 302 * TEST READ COBOL EBCDIC FORWARD FORMATTING
2620 ;***********************************************************************
2621 SALL
2622 002561 1 002056 0 1 0 056
2623 002562 1 117743 4 7 1743
2624
2625 002563 TST302: SALL
2626
2627 ;*READ FOUR 18-BIT WORDS (EIGHT BYTES)
2628
2629 002563 1 002131 0 1 0 131 LDBR ^D89 ;SET DATA PATTERN NUMBER
2630 002564 1 072011 3 5 0 00 11 MOVB AC0
2631 002565 1 002004 0 1 0 004 LDBR 4 ;SET 18-BIT WORD CNT
2632 002566 1 072111 3 5 0 04 11 MOVB AC4
2633 002567 1 002010 0 1 0 010 LDBR ^D8 ;SET BYTE CNT
2634 002570 1 072051 3 5 0 02 11 MOVB AC2
2635 002571 1 002320 0 1 0 320 LDBR RCOBLF ;SET ROM PROGRAM START ADDRESS
2636 002572 1 072071 3 5 0 03 11 MOVB AC3
2637 002573 1 002316 0 1 0 316 GOSUB RDSEQ ;GO RUN THE PROGRAM
2638 002574 1 177231 7 7 2 11 11
2639 002575 1 114577 4 6 0577 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
2640 002576 1 117751 4 7 1751 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
2641
2642 ERLOOP TST ^SALL
2643 002577 1 002200 0 1 0 200
2644 002600 1 117746 4 7 1746
2645 002601 1 114563 4 6 0563
2646 002602 1 002020 0 1 0 020 GOSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
2647 002603 1 177631 7 7 3 11 11
2648 002604 1 114606 4 6 0606 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
2649 002605 1 117751 4 7 1751 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
2650
2651 ERLOOP TST ^SALL
2652 002606 1 002001 0 1 0 001
2653 002607 1 117746 4 7 1746
2654 002610 1 114563 4 6 0563
2655 002611 1 002314 0 1 0 314 GOSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
2656 002612 1 177631 7 7 3 11 11
2657 002613 1 114615 4 6 0615 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2658 002614 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
2659
2660 ERLOOP TST ^SALL
2661 002615 1 002002 0 1 0 002
2662 002616 1 117746 4 7 1746
2663 002617 1 114563 4 6 0563
2664 002620 1 002321 0 1 0 321 GOSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
2665 002621 1 177631 7 7 3 11 11
2666 002622 1 114624 4 6 0624 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2667 002623 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
2668
2669 ERLOOP TST ^SALL
2670 002624 1 002003 0 1 0 003
2671 002625 1 117746 4 7 1746
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 25-1
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
2672 002626 1 114563 4 6 0563
2673 002627 1 002330 0 1 0 330 GOSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
2674 002630 1 177631 7 7 3 11 11
2675 002631 1 114633 4 6 0633 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2676 002632 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
2677
2678 ERLOOP TST ^SALL
2679 002633 1 002004 0 1 0 004
2680 002634 1 117746 4 7 1746
2681 002635 1 114563 4 6 0563
2682 002636 1 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
2683 002637 1 117765 4 7 1765
2684
2685 ERRLOP TST ^SALL
2686 002640 1 114563 4 6 0563
2687 002641 1 117753 4 7 1753 REPEAT TST
2688 002642 1 114563 4 6 0563
2689
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 26
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
2690 TEST 303,TEST READ COBOL EBCDIC REVERSE FORMATTING 1
2691 ;***********************************************************************
2692 ;* MCODE7 * TEST 303 * TEST READ COBOL EBCDIC REVERSE FORMATTING 1
2693 ;***********************************************************************
2694 SALL
2695 002643 1 002057 0 1 0 057
2696 002644 1 117743 4 7 1743
2697
2698 002645 TST303: SALL
2699
2700 ;*READ FOUR 18-BIT WORDS (FIVE DATA BYTES WITH THREE ZERO BYTES PRE-PADDED)
2701
2702 002645 1 002132 0 1 0 132 LDBR ^D90 ;SET DATA PATTERN NUMBER
2703 002646 1 072011 3 5 0 00 11 MOVB AC0
2704 002647 1 002004 0 1 0 004 LDBR 4 ;SET 18-BIT WORD CNT
2705 002650 1 072111 3 5 0 04 11 MOVB AC4
2706 002651 1 002005 0 1 0 005 LDBR ^D5 ;SET BYTE CNT
2707 002652 1 072051 3 5 0 02 11 MOVB AC2
2708 002653 1 002337 0 1 0 337 LDBR RCBLR1 ;SET ROM PROGRAM START ADDRESS
2709 002654 1 072071 3 5 0 03 11 MOVB AC3
2710 002655 1 002313 0 1 0 313 GOSUB RRDSEQ ;GO RUN THE PROGRAM
2711 002656 1 177231 7 7 2 11 11
2712 002657 1 114661 4 6 0661 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
2713 002660 1 117751 4 7 1751 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
2714
2715 ERLOOP TST ^SALL
2716 002661 1 002200 0 1 0 200
2717 002662 1 117746 4 7 1746
2718 002663 1 114645 4 6 0645
2719 002664 1 002020 0 1 0 020 GOSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
2720 002665 1 177631 7 7 3 11 11
2721 002666 1 114670 4 6 0670 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
2722 002667 1 117751 4 7 1751 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
2723
2724 ERLOOP TST ^SALL
2725 002670 1 002001 0 1 0 001
2726 002671 1 117746 4 7 1746
2727 002672 1 114645 4 6 0645
2728 002673 1 002314 0 1 0 314 GOSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
2729 002674 1 177631 7 7 3 11 11
2730 002675 1 114677 4 6 0677 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2731 002676 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
2732
2733 ERLOOP TST ^SALL
2734 002677 1 002002 0 1 0 002
2735 002700 1 117746 4 7 1746
2736 002701 1 114645 4 6 0645
2737 002702 1 002321 0 1 0 321 GOSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
2738 002703 1 177631 7 7 3 11 11
2739 002704 1 114706 4 6 0706 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2740 002705 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
2741
2742 ERLOOP TST ^SALL
2743 002706 1 002003 0 1 0 003
2744 002707 1 117746 4 7 1746
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 26-1
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
2745 002710 1 114645 4 6 0645
2746 002711 1 002330 0 1 0 330 GOSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
2747 002712 1 177631 7 7 3 11 11
2748 002713 1 114715 4 6 0715 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2749 002714 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
2750
2751 ERLOOP TST ^SALL
2752 002715 1 002004 0 1 0 004
2753 002716 1 117746 4 7 1746
2754 002717 1 114645 4 6 0645
2755 002720 1 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
2756 002721 1 117765 4 7 1765
2757
2758 ERRLOP TST ^SALL
2759 002722 1 114645 4 6 0645
2760 002723 1 117753 4 7 1753 REPEAT TST
2761 002724 1 114645 4 6 0645
2762
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 27
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
2763 TEST 304,TEST READ COBOL EBCDIC REVERSE FORMATTING 2
2764 ;***********************************************************************
2765 ;* MCODE7 * TEST 304 * TEST READ COBOL EBCDIC REVERSE FORMATTING 2
2766 ;***********************************************************************
2767 SALL
2768 002725 1 002060 0 1 0 060
2769 002726 1 117743 4 7 1743
2770
2771 002727 TST304: SALL
2772
2773 ;*READ FOUR 18-BIT WORDS (SIX DATA BYTES WITH TWO ZERO BYTES PRE-PADDED)
2774
2775 002727 1 002133 0 1 0 133 LDBR ^D91 ;SET DATA PATTERN NUMBER
2776 002730 1 072011 3 5 0 00 11 MOVB AC0
2777 002731 1 002004 0 1 0 004 LDBR 4 ;SET 18-BIT WORD CNT
2778 002732 1 072111 3 5 0 04 11 MOVB AC4
2779 002733 1 002006 0 1 0 006 LDBR ^D6 ;SET BYTE CNT
2780 002734 1 072051 3 5 0 02 11 MOVB AC2
2781 002735 1 002332 0 1 0 332 LDBR RCBLR2 ;SET ROM PROGRAM START ADDRESS
2782 002736 1 072071 3 5 0 03 11 MOVB AC3
2783 002737 1 002313 0 1 0 313 GOSUB RRDSEQ ;GO RUN THE PROGRAM
2784 002740 1 177231 7 7 2 11 11
2785 002741 1 114743 4 6 0743 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
2786 002742 1 117751 4 7 1751 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
2787
2788 ERLOOP TST ^SALL
2789 002743 1 002200 0 1 0 200
2790 002744 1 117746 4 7 1746
2791 002745 1 114727 4 6 0727
2792 002746 1 002020 0 1 0 020 GOSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
2793 002747 1 177631 7 7 3 11 11
2794 002750 1 114752 4 6 0752 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
2795 002751 1 117751 4 7 1751 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
2796
2797 ERLOOP TST ^SALL
2798 002752 1 002001 0 1 0 001
2799 002753 1 117746 4 7 1746
2800 002754 1 114727 4 6 0727
2801 002755 1 002314 0 1 0 314 GOSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
2802 002756 1 177631 7 7 3 11 11
2803 002757 1 114761 4 6 0761 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2804 002760 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
2805
2806 ERLOOP TST ^SALL
2807 002761 1 002002 0 1 0 002
2808 002762 1 117746 4 7 1746
2809 002763 1 114727 4 6 0727
2810 002764 1 002321 0 1 0 321 GOSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
2811 002765 1 177631 7 7 3 11 11
2812 002766 1 114770 4 6 0770 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2813 002767 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
2814
2815 ERLOOP TST ^SALL
2816 002770 1 002003 0 1 0 003
2817 002771 1 117746 4 7 1746
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 27-1
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
2818 002772 1 114727 4 6 0727
2819 002773 1 002330 0 1 0 330 GOSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
2820 002774 1 177631 7 7 3 11 11
2821 002775 1 114777 4 6 0777 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2822 002776 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
2823
2824 ERLOOP TST ^SALL
2825 002777 1 002004 0 1 0 004
2826 003000 1 117746 4 7 1746
2827 003001 1 114727 4 6 0727
2828 003002 1 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
2829 003003 1 117765 4 7 1765
2830
2831 ERRLOP TST ^SALL
2832 003004 1 114727 4 6 0727
2833 003005 1 117753 4 7 1753 REPEAT TST
2834 003006 1 114727 4 6 0727
2835
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 28
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
2836 TEST 305,TEST READ COBOL EBCDIC REVERSE FORMATTING 3
2837 ;***********************************************************************
2838 ;* MCODE7 * TEST 305 * TEST READ COBOL EBCDIC REVERSE FORMATTING 3
2839 ;***********************************************************************
2840 SALL
2841 003007 1 002061 0 1 0 061
2842 003010 1 117743 4 7 1743
2843
2844 003011 TST305: SALL
2845
2846 ;*READ FOUR 18-BIT WORDS (SEVEN DATA BYTES WITH ONE ZERO BYTES PRE-PADDED)
2847
2848 003011 1 002134 0 1 0 134 LDBR ^D92 ;SET DATA PATTERN NUMBER
2849 003012 1 072011 3 5 0 00 11 MOVB AC0
2850 003013 1 002004 0 1 0 004 LDBR 4 ;SET 18-BIT WORD CNT
2851 003014 1 072111 3 5 0 04 11 MOVB AC4
2852 003015 1 002007 0 1 0 007 LDBR ^D7 ;SET BYTE CNT
2853 003016 1 072051 3 5 0 02 11 MOVB AC2
2854 003017 1 002331 0 1 0 331 LDBR RCBLR3 ;SET ROM PROGRAM START ADDRESS
2855 003020 1 072071 3 5 0 03 11 MOVB AC3
2856 003021 1 002313 0 1 0 313 GOSUB RRDSEQ ;GO RUN THE PROGRAM
2857 003022 1 177231 7 7 2 11 11
2858 003023 1 115025 4 6 1025 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
2859 003024 1 117751 4 7 1751 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
2860
2861 ERLOOP TST ^SALL
2862 003025 1 002200 0 1 0 200
2863 003026 1 117746 4 7 1746
2864 003027 1 115011 4 6 1011
2865 003030 1 002020 0 1 0 020 GOSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
2866 003031 1 177631 7 7 3 11 11
2867 003032 1 115034 4 6 1034 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
2868 003033 1 117751 4 7 1751 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
2869
2870 ERLOOP TST ^SALL
2871 003034 1 002001 0 1 0 001
2872 003035 1 117746 4 7 1746
2873 003036 1 115011 4 6 1011
2874 003037 1 002314 0 1 0 314 GOSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
2875 003040 1 177631 7 7 3 11 11
2876 003041 1 115043 4 6 1043 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2877 003042 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
2878
2879 ERLOOP TST ^SALL
2880 003043 1 002002 0 1 0 002
2881 003044 1 117746 4 7 1746
2882 003045 1 115011 4 6 1011
2883 003046 1 002321 0 1 0 321 GOSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
2884 003047 1 177631 7 7 3 11 11
2885 003050 1 115052 4 6 1052 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2886 003051 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
2887
2888 ERLOOP TST ^SALL
2889 003052 1 002003 0 1 0 003
2890 003053 1 117746 4 7 1746
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 28-1
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
2891 003054 1 115011 4 6 1011
2892 003055 1 002330 0 1 0 330 GOSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
2893 003056 1 177631 7 7 3 11 11
2894 003057 1 115061 4 6 1061 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2895 003060 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
2896
2897 ERLOOP TST ^SALL
2898 003061 1 002004 0 1 0 004
2899 003062 1 117746 4 7 1746
2900 003063 1 115011 4 6 1011
2901 003064 1 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
2902 003065 1 117765 4 7 1765
2903
2904 ERRLOP TST ^SALL
2905 003066 1 115011 4 6 1011
2906 003067 1 117753 4 7 1753 REPEAT TST
2907 003070 1 115011 4 6 1011
2908
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 29
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
2909 TEST 306,TEST READ COBOL EBCDIC REVERSE FORMATTING 4
2910 ;***********************************************************************
2911 ;* MCODE7 * TEST 306 * TEST READ COBOL EBCDIC REVERSE FORMATTING 4
2912 ;***********************************************************************
2913 SALL
2914 003071 1 002062 0 1 0 062
2915 003072 1 117743 4 7 1743
2916
2917 003073 TST306: SALL
2918
2919 ;*READ FOUR 18-BIT WORDS (EIGHT DATA BYTES WITH NO PRE-PADDING)
2920
2921 003073 1 002135 0 1 0 135 LDBR ^D93 ;SET DATA PATTERN NUMBER
2922 003074 1 072011 3 5 0 00 11 MOVB AC0
2923 003075 1 002004 0 1 0 004 LDBR 4 ;SET 18-BIT WORD CNT
2924 003076 1 072111 3 5 0 04 11 MOVB AC4
2925 003077 1 002010 0 1 0 010 LDBR ^D8 ;SET BYTE CNT
2926 003100 1 072051 3 5 0 02 11 MOVB AC2
2927 003101 1 002330 0 1 0 330 LDBR RCBLR4 ;SET ROM PROGRAM START ADDRESS
2928 003102 1 072071 3 5 0 03 11 MOVB AC3
2929 003103 1 002313 0 1 0 313 GOSUB RRDSEQ ;GO RUN THE PROGRAM
2930 003104 1 177231 7 7 2 11 11
2931 003105 1 115107 4 6 1107 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
2932 003106 1 117751 4 7 1751 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
2933
2934 ERLOOP TST ^SALL
2935 003107 1 002200 0 1 0 200
2936 003110 1 117746 4 7 1746
2937 003111 1 115073 4 6 1073
2938 003112 1 002020 0 1 0 020 GOSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
2939 003113 1 177631 7 7 3 11 11
2940 003114 1 115116 4 6 1116 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
2941 003115 1 117751 4 7 1751 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
2942
2943 ERLOOP TST ^SALL
2944 003116 1 002001 0 1 0 001
2945 003117 1 117746 4 7 1746
2946 003120 1 115073 4 6 1073
2947 003121 1 002314 0 1 0 314 GOSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
2948 003122 1 177631 7 7 3 11 11
2949 003123 1 115125 4 6 1125 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2950 003124 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
2951
2952 ERLOOP TST ^SALL
2953 003125 1 002002 0 1 0 002
2954 003126 1 117746 4 7 1746
2955 003127 1 115073 4 6 1073
2956 003130 1 002321 0 1 0 321 GOSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
2957 003131 1 177631 7 7 3 11 11
2958 003132 1 115134 4 6 1134 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2959 003133 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
2960
2961 ERLOOP TST ^SALL
2962 003134 1 002003 0 1 0 003
2963 003135 1 117746 4 7 1746
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 29-1
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
2964 003136 1 115073 4 6 1073
2965 003137 1 002330 0 1 0 330 GOSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
2966 003140 1 177631 7 7 3 11 11
2967 003141 1 115143 4 6 1143 JMPZ .+2 ;JUMP IF NONE WERE FOUND
2968 003142 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
2969
2970 ERLOOP TST ^SALL
2971 003143 1 002004 0 1 0 004
2972 003144 1 117746 4 7 1746
2973 003145 1 115073 4 6 1073
2974 003146 1 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
2975 003147 1 117765 4 7 1765
2976
2977 ERRLOP TST ^SALL
2978 003150 1 115073 4 6 1073
2979 003151 1 117753 4 7 1753 REPEAT TST
2980 003152 1 115073 4 6 1073
2981
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 30
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
2982 TEST 307,TEST READ HIGH DENSITY FORWARD FORMATTING 1 BYTE
2983 ;***********************************************************************
2984 ;* MCODE7 * TEST 307 * TEST READ HIGH DENSITY FORWARD FORMATTING 1 BYTE
2985 ;***********************************************************************
2986 SALL
2987 003153 1 002063 0 1 0 063
2988 003154 1 117743 4 7 1743
2989
2990 003155 TST307: SALL
2991
2992 ;*READ FOUR 18-BIT WORDS (ONE DATA BYTE AND EIGHT ZERO BYTES POST-PADDED)
2993
2994 003155 1 002136 0 1 0 136 LDBR ^D94 ;SET DATA PATTERN NUMBER
2995 003156 1 072011 3 5 0 00 11 MOVB AC0
2996 003157 1 002004 0 1 0 004 LDBR 4 ;SET 18-BIT WORD CNT
2997 003160 1 072111 3 5 0 04 11 MOVB AC4
2998 003161 1 002001 0 1 0 001 LDBR ^D1 ;SET BYTE CNT
2999 003162 1 072051 3 5 0 02 11 MOVB AC2
3000 003163 1 002100 0 1 0 100 LDBR RHIDNF ;SET ROM PROGRAM START ADDRESS
3001 003164 1 072071 3 5 0 03 11 MOVB AC3
3002 003165 1 117316 4 7 1316 JMPSUB RDSEQ ;GO RUN THE PROGRAM
3003 003166 1 115170 4 6 1170 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
3004 003167 1 117751 4 7 1751 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
3005
3006 ERLOOP TST ^SALL
3007 003170 1 002200 0 1 0 200
3008 003171 1 117746 4 7 1746
3009 003172 1 115155 4 6 1155
3010 003173 1 117420 4 7 1420 JMPSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
3011 003174 1 115176 4 6 1176 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
3012 003175 1 117751 4 7 1751 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
3013
3014 ERLOOP TST ^SALL
3015 003176 1 002001 0 1 0 001
3016 003177 1 117746 4 7 1746
3017 003200 1 115155 4 6 1155
3018 003201 1 117714 4 7 1714 JMPSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
3019 003202 1 115204 4 6 1204 JMPZ .+2 ;JUMP IF NONE WERE FOUND
3020 003203 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
3021
3022 ERLOOP TST ^SALL
3023 003204 1 002002 0 1 0 002
3024 003205 1 117746 4 7 1746
3025 003206 1 115155 4 6 1155
3026 003207 1 117721 4 7 1721 JMPSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
3027 003210 1 115212 4 6 1212 JMPZ .+2 ;JUMP IF NONE WERE FOUND
3028 003211 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
3029
3030 ERLOOP TST ^SALL
3031 003212 1 002003 0 1 0 003
3032 003213 1 117746 4 7 1746
3033 003214 1 115155 4 6 1155
3034 003215 1 117730 4 7 1730 JMPSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
3035 003216 1 115220 4 6 1220 JMPZ .+2 ;JUMP IF NONE WERE FOUND
3036 003217 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 30-1
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
3037
3038 ERLOOP TST ^SALL
3039 003220 1 002004 0 1 0 004
3040 003221 1 117746 4 7 1746
3041 003222 1 115155 4 6 1155
3042 003223 1 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
3043 003224 1 117765 4 7 1765
3044
3045 ERRLOP TST ^SALL
3046 003225 1 115155 4 6 1155
3047 003226 1 117753 4 7 1753 REPEAT TST
3048 003227 1 115155 4 6 1155
3049
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 31
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
3050 TEST 308,TEST READ INDUSTRY COMPATIBLE FORWARD FORMATTING 5 BYTE
3051 ;***********************************************************************
3052 ;* MCODE7 * TEST 308 * TEST READ INDUSTRY COMPATIBLE FORWARD FORMATTING 5 BYTE
3053 ;***********************************************************************
3054 SALL
3055 003230 1 002064 0 1 0 064
3056 003231 1 117743 4 7 1743
3057
3058 003232 TST308: SALL
3059
3060 ;*READ FOUR 18-BIT WORDS (FIVE DATA BYTES WITH THREE ZERO BYTES POST-PADDED)
3061
3062 003232 1 002137 0 1 0 137 LDBR ^D95 ;SET DATA PATTERN NUMBER
3063 003233 1 072011 3 5 0 00 11 MOVB AC0
3064 003234 1 002004 0 1 0 004 LDBR 4 ;SET 18-BIT WORD CNT
3065 003235 1 072111 3 5 0 04 11 MOVB AC4
3066 003236 1 002005 0 1 0 005 LDBR ^D5 ;SET BYTE CNT
3067 003237 1 072051 3 5 0 02 11 MOVB AC2
3068 003240 1 002010 0 1 0 010 LDBR RINCMF ;SET ROM PROGRAM START ADDRESS
3069 003241 1 072071 3 5 0 03 11 MOVB AC3
3070 003242 1 117316 4 7 1316 JMPSUB RDSEQ ;GO RUN THE PROGRAM
3071 003243 1 115245 4 6 1245 JMPZ .+2 ;JUMP IF NO ERRORS DURING XFER
3072 003244 1 117751 4 7 1751 ERROR TST,"SLVE REQ" DIDN'T CLEAR DURING THE READ,,PNT
3073
3074 ERLOOP TST ^SALL
3075 003245 1 002200 0 1 0 200
3076 003246 1 117746 4 7 1746
3077 003247 1 115232 4 6 1232
3078 003250 1 117420 4 7 1420 JMPSUB MEXWAT ;GO WAIT FOR "MSTR END XFER"
3079 003251 1 115253 4 6 1253 JMPZ .+2 ;JUMP IF IT WAS RECEIVED
3080 003252 1 117751 4 7 1751 ERROR TST,NO "MSTR END XFER" AFTER COMPLETING READ
3081
3082 ERLOOP TST ^SALL
3083 003253 1 002001 0 1 0 001
3084 003254 1 117746 4 7 1746
3085 003255 1 115232 4 6 1232
3086 003256 1 117714 4 7 1714 JMPSUB DPPAR ;GO CHECK FOR DATA PATH BOARD PAR ERRS
3087 003257 1 115261 4 6 1261 JMPZ .+2 ;JUMP IF NONE WERE FOUND
3088 003260 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN HIGH SPEED DATA PATH
3089
3090 ERLOOP TST ^SALL
3091 003261 1 002002 0 1 0 002
3092 003262 1 117746 4 7 1746
3093 003263 1 115232 4 6 1232
3094 003264 1 117721 4 7 1721 JMPSUB CBPAR ;GO CHECK FOR CHANNEL BUS BOARD PAR ERRS
3095 003265 1 115267 4 6 1267 JMPZ .+2 ;JUMP IF NONE WERE FOUND
3096 003266 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN CHANNEL BUS INTERFACE
3097
3098 ERLOOP TST ^SALL
3099 003267 1 002003 0 1 0 003
3100 003270 1 117746 4 7 1746
3101 003271 1 115232 4 6 1232
3102 003272 1 117730 4 7 1730 JMPSUB MBPAR ;GO CHECK FOR MASSBUS INTERFACE BOARD PAR ERRS
3103 003273 1 115275 4 6 1275 JMPZ .+2 ;JUMP IF NONE WERE FOUND
3104 003274 1 117751 4 7 1751 ERROR TST,"DP PE" FLAG SET IN MASSBUS INTERFACE
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 31-1
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
3105
3106 ERLOOP TST ^SALL
3107 003275 1 002004 0 1 0 004
3108 003276 1 117746 4 7 1746
3109 003277 1 115232 4 6 1232
3110 003300 1 002045 0 1 0 045 CHKTRM TST,DATA ERROR IN READ DATA
3111 003301 1 117765 4 7 1765
3112
3113 ERRLOP TST ^SALL
3114 003302 1 115232 4 6 1232
3115 003303 1 117753 4 7 1753 REPEAT TST
3116 003304 1 115232 4 6 1232
3117
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 32
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
3118 003305 1 101741 4 0 1741 JMP END ;JUMP AROUND SUBROUTINES
3119
3120 003306 1 002222 0 1 0 222 INITL: LDBR INIT+22 ;SET INIT
3121 003307 1 066371 3 3 0 17 11 MOVB IOSEL
3122 003310 1 002022 0 1 0 022 LDBR 22 ;CLR INIT & SELECT DP
3123 003311 1 066371 3 3 0 17 11 MOVB IOSEL
3124 003312 1 016000 0 7 0 000 RETURN
3125
3126 ;*THE FOLLOWING IS THE SEQUENCE OF ACTIONS INVOLVED IN PERFORMING THE
3127 ;*READ TRANSFER TESTS.
3128
3129 ;*DO A MICROBUS INIT TO INSURE A KNOWN STARTING STATE.
3130 ;*ENABLE THE BASE CLOCK AND CLEAR "DX HIGH SPEED", THIS CLEARS CLOCK PHASES.
3131 ;*SETUP DATA IN GP REGS NEEDED BY HOST.
3132 ;*ZERO THE BYTE COUNTER AND THE MASSBUS COUNTER.
3133 ;*SETUP CB BOARD LOOPING.
3134 ;*SET "MSTR END XFER ON FMTR END XFER" BIT.
3135 ;*LOAD THE ROM PROGRAM ADDRESS.
3136 ;*SETUP THE RH20 FOR A READ XFER.
3137 ;*SET "OCC" AND CLEAR "DATA TO DEVICE" IN THE MASSBUS INTERFACE.
3138 ;*WAIT FOR "RUN" TO SET IN THE MASSBUS INTERFACE.
3139 ;*DO A HS DP INIT.
3140 ;*SET "DX HIGH SPEED".
3141 ;*SET THE "START" BIT IN THE MASSBUS INTERFACE.
3142 ;*CLOCK THE 8-BIT BYTES FROM THE CB BOARD ONTO THE SLVE DATA LINES.
3143 ;*AFTER EACH BYTE, WAIT FOR "SLVE REQ" TO CLEAR - REPORT ERROR IF IT DOESN'T.
3144 ;*AFTER ALL BYTES ARE XFERED, SET "SLVE END XFER".
3145 ;*WAIT FOR "MSTR END XFER" TO SET - REPORT ERROR IF IT DOESN'T.
3146 ;*WHEN IT SETS, END THE XFER.
3147 ;*SIGNAL THE HOST TO CHECK CORRECTNESS OF THE DATA IT RECEIVED.
3148
3149 003313 1 002377 0 1 0 377 RRDSEQ: LDBR -1 ;SET READ REVERSE FLAG
3150 003314 1 072131 3 5 0 05 11 MOVB AC5
3151 003315 1 101320 4 0 1320 JMP RD
3152 003316 1 002000 0 1 0 000 RDSEQ: LDBR 0 ;SET READ FORWARD FLAG
3153 003317 1 072131 3 5 0 05 11 MOVB AC5
3154 003320 1 117306 4 7 1306 RD: JMPSUB INITL ;MAKE SURE "MSTR REQ" IS CLEARED
3155 003321 1 002002 0 1 0 002 LDBR BCLKEN ;CLEAR CLOCK PHASES
3156 003322 1 064031 3 2 0 01 11 MOVB REG1
3157 003323 1 002011 0 1 0 011 LDBR 11 ;SELECT MASSBUS INTERFACE
3158 003324 1 066371 3 3 0 17 11 MOVB IOSEL
3159 003325 1 062010 3 1 0 00 10 MOV AC0,BR ;SETUP DATA PATTERN NUMBER
3160 003326 1 066011 3 3 0 00 11 MOVB MPGP10
3161 003327 1 002001 0 1 0 001 LDBR 1 ;SETUP BLOCK CNT=1
3162 003330 1 066031 3 3 0 01 11 MOVB MPGP11
3163 003331 1 064351 3 2 0 16 11 MOVB MPGP6 ;SETUP ADDITIONAL PNT ROUTINE NUMBER
3164 003332 1 062110 3 1 0 04 10 MOV AC4,BR ;COMPUTE AND STORE THE
3165 003333 1 014000 0 6 0 000 SHR ;36-BIT WORD CNT
3166 003334 1 064251 3 2 0 12 11 MOVB MPGP2
3167 003335 1 002000 0 1 0 000 LDBR 0 ;CLEAR HI ORDER WRD CNT BITS
3168 003336 1 064271 3 2 0 13 11 MOVB MPGP3
3169 003337 1 002022 0 1 0 022 LDBR 22 ;SELECT DATA PATH
3170 003340 1 066371 3 3 0 17 11 MOVB IOSEL
3171 003341 1 002000 0 1 0 000 LDBR 0
3172 003342 1 064151 3 2 0 06 11 MOVB BCLO ;CLEAR THE BC
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 32-1
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
3173 003343 1 064171 3 2 0 07 11 MOVB BCHI
3174 003344 1 064111 3 2 0 04 11 MOVB MCLO ;CLEAR THE MC
3175 003345 1 064131 3 2 0 05 11 MOVB MCHI
3176 003346 1 117663 4 7 1663 JMPSUB CBLOOP ;SETUP CB BOARD LOOPING
3177 003347 1 002010 0 1 0 010 LDBR MEONFE ;CLEAR ROM ADDR BIT 8
3178 003350 1 064051 3 2 0 02 11 MOVB REG2 ;AND SET "MEX ON FEX"
3179 003351 1 062070 3 1 0 03 10 MOV AC3,BR ;SETUP THE ROM PROGRAM ADDRESS
3180 003352 1 064211 3 2 0 10 11 MOVB DFRMAD
3181 003353 1 064011 3 2 0 00 11 MOVB REG0 ;CLEAR FLAGS
3182 003354 1 072047 3 5 0 02 07 DECR AC2 ;SET LOOP CNT=BYTE CNT MINUS 1
3183 ;SETUP A READ XFER
3184 003355 1 060130 3 0 0 05 10 MOV AC5 ;CHECK FOR REVERSE
3185 003356 1 115361 4 6 1361 JMPZ RDREV ;JUMP IF READ REVERSE
3186 003357 1 117757 4 7 1757 READ ;SETUP FOR A READ FORWARD
3187 003360 1 101362 4 0 1362 JMP .+2
3188 003361 1 117761 4 7 1761 RDREV: READB ;SETUP FOR READ REVERSE
3189 003362 1 002011 0 1 0 011 LDBR 11 ;SELECT MASSBUS INTERFACE
3190 003363 1 066371 3 3 0 17 11 MOVB IOSEL
3191 003364 1 002020 0 1 0 020 LDBR OCC ;SET MASK OF BITS TO BE SET
3192 003365 1 064031 3 2 0 01 11 MOVB MPSCR1 ;AND WRITE IT TO STATUS REG
3193 003366 1 117631 4 7 1631 JMPSUB RUNWAT ;WAIT FOR "RUN" TO SET
3194 003367 1 002022 0 1 0 022 LDBR 22 ;SELECT DATA PATH
3195 003370 1 066371 3 3 0 17 11 MOVB IOSEL
3196 003371 1 064271 3 2 0 13 11 MOVB HSDPIN ;DO HS DP INIT
3197 003372 1 002003 0 1 0 003 LDBR DXHISP+BCLKEN ;SET "DX HIGH SPEED"
3198 003373 1 064031 3 2 0 01 11 MOVB REG1
3199 003374 1 117641 4 7 1641 JMPSUB STRMB ;GO START THE XFER
3200 003375 1 001034 0 0 2 034 LDMAR TSTDAT ;SET MAR TO POINT TO TEST DATA
3201 003376 1 117677 4 7 1677 RDLP: JMPSUB CLKDAT ;GO CLOCK DATA ONTO SLVE LINES
3202 003377 1 117610 4 7 1610 JMPSUB SLVWT ;GO WAIT FOR "SLVE REQ" TO CLEAR
3203 003400 1 115404 4 6 1404 JMPZ OKRD ;JUMP IF IT CLEARED
3204 003401 1 117622 4 7 1622 JMPSUB SETDAT ;SETUP LOOP CNT VALUE FOR HOST
3205 003402 1 117654 4 7 1654 JMPSUB ABTXFR ;ABORT THE XFER
3206 003403 1 016000 0 7 0 000 RETURN ;GIVE ERROR RETURN
3207 003404 1 073447 3 5 3 02 07 OKRD: DECR AC2,I ;DEC LOOP CNT AND INC DATA ADDR
3208 003405 1 115407 4 6 1407 JMPZ .+2 ;JUMP IF ALL DATA SENT
3209 003406 1 101376 4 0 1376 JMP RDLP ;ELSE, CONTINUE
3210 ;SET "SLVE END XFER"
3211 003407 1 002033 0 1 0 033 LDBR 33 ;SELECT CHANNEL BUS INTERFACE
3212 003410 1 066371 3 3 0 17 11 MOVB IOSEL
3213 003411 1 002004 0 1 0 004 LDBR LOOPEN ;SET LOOP ENABLE
3214 003412 1 064031 3 2 0 01 11 MOVB CSR1
3215 003413 1 002001 0 1 0 001 LDBR STAINL ;SET "STA IN"
3216 003414 1 064051 3 2 0 02 11 MOVB TOR0
3217 003415 1 002022 0 1 0 022 LDBR 22 ;SELECT DATA PATH
3218 003416 1 066371 3 3 0 17 11 MOVB IOSEL
3219 003417 1 016377 0 7 0 377 RETURN -1 ;GIVE NO ERROR RETURN
3220
3221 003420 1 002000 0 1 0 000 MEXWAT: LDBR 0 ;CLEAR WAIT CNT
3222 003421 1 072011 3 5 0 00 11 MOVB AC0
3223 003422 1 022003 1 1 0 00 03 ENDWAT: DATI REG3,BR ;READ REG 3
3224 003423 1 014000 0 6 0 000 SHR ;RIGHT ADJUST "NOT MSTR END XFER"
3225 003424 1 014000 0 6 0 000 SHR
3226 003425 1 105427 4 2 1427 JMPB0 .+2 ;JUMP IF "MSTR END XFER"=0
3227 003426 1 101434 4 0 1434 JMP DONERD ;JUMP IF READ IS FINISHED
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 32-2
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
3228 003427 1 072003 3 5 0 00 03 INCR AC0 ;INC WAIT CNT
3229 003430 1 113432 4 5 1432 JMPC .+2 ;JUMP IF TIMED OUT
3230 003431 1 101422 4 0 1422 JMP ENDWAT ;ELSE, KEEP WAITING
3231 003432 1 117654 4 7 1654 JMPSUB ABTXFR ;ABORT THE XFER
3232 003433 1 016000 0 7 0 000 RETURN ;GIVE ERROR RETURN
3233
3234 003434 1 117654 4 7 1654 DONERD: JMPSUB ABTXFR ;END THE XFER
3235 003435 1 002033 0 1 0 033 LDBR 33 ;SELECT CHANNEL BUS INTERFACE
3236 003436 1 066371 3 3 0 17 11 MOVB IOSEL
3237 003437 1 002000 0 1 0 000 LDBR 0 ;CLEAR LOOP ENABLE
3238 003440 1 064031 3 2 0 01 11 MOVB CSR1
3239 003441 1 002022 0 1 0 022 LDBR 22 ;SELECT DATA PATH
3240 003442 1 066371 3 3 0 17 11 MOVB IOSEL
3241 003443 1 016377 0 7 0 377 RETURN -1 ;GIVE NO ERROR RETURN
3242
3243
3244 ;*THE FOLLOWING IS THE SEQUENCE OF ACTIONS INVOLVED IN PERFORMING THE
3245 ;*WRITE TRANSFER TESTS.
3246
3247 ;*DO A MICROBUS INIT TO INSURE A KNOWN STARTING STATE.
3248 ;*ENABLE THE BASE CLOCK AND CLEAR "DX HIGH SPEED", THIS CLEARS CLOCK PHASES.
3249 ;*SETUP DATA IN GP REGS NEEDED BY HOST.
3250 ;*LOAD THE BYTE COUNTER AND THE MASSBUS COUNTER.
3251 ;*SETUP CB BOARD LOOPING.
3252 ;*SET "MSTR END XFER ON MC OVERFLOW" AND "SLVE END XFER ON BC OVERFLOW".
3253 ;*LOAD THE ROM PROGRAM ADDRESS.
3254 ;*SETUP THE RH20 FOR A WRITE XFER.
3255 ;*SET "OCC" AND "DATA TO DEVICE" IN THE MASSBUS INTERFACE.
3256 ;*WAIT FOR "RUN" TO SET IN THE MASSBUS INTERFACE.
3257 ;*DO A HS DP INIT.
3258 ;*SET "DX HIGH SPEED".
3259 ;*SET THE "START" BIT IN THE MASSBUS INTERFACE.
3260 ;*SET "SLVE REQ" ON THE CB BOARD.
3261 ;*WAIT FOR IT TO CLEAR - REPORT ERROR IF IT DOESN'T.
3262 ;*STORE THE RECEIVED 8-BIT BYTE IN MEMORY.
3263
3264 ;*CHECK IF "SLVE END XFER" IS SET.
3265 ;*IF NOT, REPEAT THE PREVIOUS 4 STEPS.
3266 ;*IF IT IS SET, END THE XFER AND CHECK THAT THE RECEIVED DATA IS CORRECT.
3267
3268 003444 1 117306 4 7 1306 WRSEQ: JMPSUB INITL ;MAKE SURE "MSTR REQ" IS CLEARED
3269 003445 1 002002 0 1 0 002 LDBR BCLKEN ;CLEAR CLOCK PHASES
3270 003446 1 064031 3 2 0 01 11 MOVB REG1
3271 003447 1 002011 0 1 0 011 LDBR 11 ;SELECT MASSBUS INTERFACE
3272 003450 1 066371 3 3 0 17 11 MOVB IOSEL
3273 003451 1 062010 3 1 0 00 10 MOV AC0,BR ;SETUP DATA PATTERN NUMBER
3274 003452 1 066011 3 3 0 00 11 MOVB MPGP10
3275 003453 1 002001 0 1 0 001 LDBR 1 ;SETUP BLOCK CNT=1
3276 003454 1 066031 3 3 0 01 11 MOVB MPGP11
3277 003455 1 064351 3 2 0 16 11 MOVB MPGP6 ;SETUP ADDITIONAL PNT ROUTINE NUMBER
3278 003456 1 062110 3 1 0 04 10 MOV AC4,BR ;COMPUTE AND STORE THE
3279 003457 1 014000 0 6 0 000 SHR ;36-BIT WORD CNT
3280 003460 1 064251 3 2 0 12 11 MOVB MPGP2
3281 003461 1 002000 0 1 0 000 LDBR 0 ;CLEAR HI ORDER WRD CNT BITS
3282 003462 1 064271 3 2 0 13 11 MOVB MPGP3
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 32-3
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
3283 003463 1 002022 0 1 0 022 LDBR 22 ;SELECT DATA PATH
3284 003464 1 066371 3 3 0 17 11 MOVB IOSEL
3285 003465 1 002032 0 1 0 032 LDBR ENDSTR-STORIT ;COMPUTE SIZE OF SCATCH AREA MINUS 1
3286 003466 1 072011 3 5 0 00 11 MOVB AC0
3287 003467 1 001001 0 0 2 001 LDMAR STORIT ;SCRATCH AREA ADDRESS
3288 003470 1 002000 0 1 0 000 LDBR 0 ;CLEAR BR
3289 003471 1 070011 3 4 0 00 11 CLRLP: MOVB MEM ;ZERO MEM LOC
3290 003472 1 073407 3 5 3 00 07 DECR AC0,I ;DEC LOOP CNT AND INC MEM ADDR
3291 003473 1 115475 4 6 1475 JMPZ .+2 ;JUMP IF TABLE ALL CLEARED
3292 003474 1 101471 4 0 1471 JMP CLRLP ;ELSE, CONTINUE
3293 003475 1 002000 0 1 0 000 LDBR 0
3294 003476 1 072011 3 5 0 00 11 MOVB AC0 ;SETUP A ZERO REG
3295 003477 1 062110 3 1 0 04 10 MOV AC4,BR ;MOVE WORD CNT TO BR
3296 003500 1 062016 3 1 0 00 16 TSB AC0,BR ;COMPUTE 2'S COMP OF 18-BIT WORD CNT
3297 003501 1 064111 3 2 0 04 11 MOVB MCLO ;PUT IT IN MC
3298 003502 1 062050 3 1 0 02 10 MOV AC2,BR ;MOVE THE BYTE CNT TO BR
3299 003503 1 062016 3 1 0 00 16 TSB AC0,BR ;COMPUTE 2'S COMP OF BYTE CNT
3300 003504 1 064151 3 2 0 06 11 MOVB BCLO ;PUT IT IN BC
3301 003505 1 002377 0 1 0 377 LDBR -1 ;PUT ONES INTO HIGH ORDER MC AND BC
3302 003506 1 064131 3 2 0 05 11 MOVB MCHI
3303 003507 1 064171 3 2 0 07 11 MOVB BCHI
3304 003510 1 117663 4 7 1663 JMPSUB CBLOOP ;SETUP CB BOARD LOOPING
3305 003511 1 002006 0 1 0 006 LDBR SEBCOV+MEMCOV ;CLEAR ROM ADDR BIT 8 AND SET
3306 003512 1 064051 3 2 0 02 11 MOVB REG2 ;"SEX ON BC OVRFLW" & "MEX ON MC OVRFLW"
3307 003513 1 062070 3 1 0 03 10 MOV AC3,BR ;SETUP THE ROM PROGRAM ADDRESS
3308 003514 1 064211 3 2 0 10 11 MOVB DFRMAD
3309 003515 1 064011 3 2 0 00 11 MOVB REG0 ;CLEAR FLAGS
3310 ;SETUP A WRITE XFER
3311 003516 1 117755 4 7 1755 WRITE ;SETUP FOR A DEVICE WRITE
3312 003517 1 002011 0 1 0 011 LDBR 11 ;SELECT MASSBUS INTERFACE
3313 003520 1 066371 3 3 0 17 11 MOVB IOSEL
3314 003521 1 002030 0 1 0 030 LDBR DTD+OCC ;SET MASK OF BITS TO BE SET
3315 003522 1 064031 3 2 0 01 11 MOVB MPSCR1 ;AND WRITE IT TO STATUS REG
3316 003523 1 117631 4 7 1631 JMPSUB RUNWAT ;WAIT FOR "RUN" TO SET
3317 003524 1 002022 0 1 0 022 LDBR 22 ;SELECT DATA PATH
3318 003525 1 066371 3 3 0 17 11 MOVB IOSEL
3319 003526 1 064271 3 2 0 13 11 MOVB HSDPIN ;DO HS DP INIT
3320 003527 1 002003 0 1 0 003 LDBR DXHISP+BCLKEN ;SET "DX HIGH SPEED"
3321 003530 1 064031 3 2 0 01 11 MOVB REG1
3322 003531 1 117641 4 7 1641 JMPSUB STRMB ;GO START THE XFER
3323 003532 1 001001 0 0 2 001 LDMAR STORIT ;SET MAR TO POINT TO STORAGE AREA
3324 003533 1 117674 4 7 1674 WRLP: JMPSUB SETSLV ;GO SET SLVE REQ ON CB BOARD
3325 003534 1 117610 4 7 1610 JMPSUB SLVWT ;GO WAIT FOR "SLVE REQ" TO CLEAR
3326 003535 1 115541 4 6 1541 JMPZ OKWR ;JUMP IF IT CLEARED
3327 003536 1 117622 4 7 1622 JMPSUB SETDAT ;SETUP LOOP CNT VALUE FOR HOST
3328 003537 1 117654 4 7 1654 JMPSUB ABTXFR ;ABORT THE XFER
3329 003540 1 016000 0 7 0 000 RETURN ;GIVE ERROR RETURN
3330 003541 1 002033 0 1 0 033 OKWR: LDBR 33 ;SELECT CHANNEL BUS INTERFACE
3331 003542 1 066371 3 3 0 17 11 MOVB IOSEL
3332 003543 1 031406 1 4 3 00 06 DATI DRLO,MEM,I ;READ DATA INTO MEMORY
3333 003544 1 002022 0 1 0 022 LDBR 22 ;SELECT DATA PATH
3334 003545 1 066371 3 3 0 17 11 MOVB IOSEL
3335 003546 1 022003 1 1 0 00 03 DATI REG3,BR ;READ REG 17
3336 003547 1 014000 0 6 0 000 SHR ;MOVE "NOT SLVE END XFER" INTO BIT 0
3337 003550 1 105533 4 2 1533 JMPB0 WRLP ;JUMP IF NO SLVE END XFER YET
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 32-4
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
3338 003551 1 117654 4 7 1654 JMPSUB ABTXFR ;END THE XFER
3339 003552 1 002033 0 1 0 033 LDBR 33 ;SELECT CHANNEL BUS INTERFACE
3340 003553 1 066371 3 3 0 17 11 MOVB IOSEL
3341 003554 1 002000 0 1 0 000 LDBR 0 ;CLEAR LOOP ENABLE
3342 003555 1 064031 3 2 0 01 11 MOVB CSR1
3343 003556 1 002022 0 1 0 022 LDBR 22 ;SELECT DATA PATH
3344 003557 1 066371 3 3 0 17 11 MOVB IOSEL
3345 003560 1 016377 0 7 0 377 RETURN -1 ;GIVE NO ERROR RETURN
3346
3347 003561 1 002001 0 1 0 001 CHKDAT: LDBR STORIT ;SETUP ACTUAL DATA ADDR IN AC2
3348 003562 1 072071 3 5 0 03 11 MOVB AC3
3349 003563 1 062050 3 1 0 02 10 MOV AC2,BR ;SAVE BYTE CNT IN AC0
3350 003564 1 072011 3 5 0 00 11 MOVB AC0
3351 003565 1 062030 3 1 0 01 10 MOV AC1,BR ;SAVE CORRECT DATA ADDR IN AC5
3352 003566 1 072131 3 5 0 05 11 MOVB AC5
3353 003567 1 072047 3 5 0 02 07 DECR AC2 ;SET LOOP CNT=BYTE CNT MINUS 1
3354 003570 1 061070 3 0 2 03 10 CKLOOP: MOV AC3,MAR ;SET MAR TO ACTUAL DATA
3355 003571 1 052111 2 5 0 04 11 MOVMEM AC4 ;PUT ACTUAL DATA IN AC4
3356 003572 1 061030 3 0 2 01 10 MOV AC1,MAR ;SET MAR TO CORRECT DATA ADDR
3357 003573 1 040117 2 0 0 04 17 OSM AC4 ;CHECK FOR CORRECT DATA
3358 003574 1 115602 4 6 1602 JMPZ CONCHK ;JUMP IF CORRECT
3359 003575 1 062130 3 1 0 05 10 MOV AC5,BR ;PUT CORRECT DATA ADDR IN AC1
3360 003576 1 072031 3 5 0 01 11 MOVB AC1
3361 003577 1 002001 0 1 0 001 LDBR STORIT ;PUT ACTUAL DATA ADDR IN AC2
3362 003600 1 072051 3 5 0 02 11 MOVB AC2
3363 003601 1 016000 0 7 0 000 RETURN ;GIVE ERROR RETURN
3364 003602 1 072063 3 5 0 03 03 CONCHK: INCR AC3 ;INC ACTUAL DATA ADDR
3365 003603 1 072023 3 5 0 01 03 INCR AC1 ;INC CORRECT DATA ADDR
3366 003604 1 072047 3 5 0 02 07 DECR AC2 ;DEC LOOP CNT
3367 003605 1 115607 4 6 1607 JMPZ .+2 ;JUMP IF DONE
3368 003606 1 101570 4 0 1570 JMP CKLOOP ;ELSE, CONTINUE
3369
3370 003607 1 016377 0 7 0 377 RETURN -1 ;GIVE NO ERROR RETURN
3371
3372
3373 003610 1 002000 0 1 0 000 SLVWT: LDBR 0 ;CLEAR WAIT COUNT
3374 003611 1 072011 3 5 0 00 11 MOVB AC0 ;STORE IN AC0
3375 003612 1 032121 1 5 0 05 01 WTLP1: DATI REG1,AC5 ;READ REG 1 FOR "SLVE REQ"
3376 003613 1 062125 3 1 0 05 05 SHL AC5,BR ;LEFT ADJUST "SLVE REQ"
3377 003614 1 111616 4 4 1616 JMPB7 .+2 ;JUMP IF STILL SET
3378 003615 1 016377 0 7 0 377 RETURN -1 ;GIVE "SLVE REQ" CLEARED RETURN
3379 003616 1 072003 3 5 0 00 03 INCR AC0 ;INC WAIT COUNT
3380 003617 1 113621 4 5 1621 JMPC .+2 ;JUMP IF TIMED OUT
3381 003620 1 101612 4 0 1612 JMP WTLP1 ;KEEP WAITING
3382 003621 1 016000 0 7 0 000 RETURN ;GIVE TIMEOUT RETURN
3383
3384 003622 1 002011 0 1 0 011 SETDAT: LDBR 11 ;SELECT MASSBUS INTERFACE
3385 003623 1 066371 3 3 0 17 11 MOVB IOSEL
3386 003624 1 062050 3 1 0 02 10 MOV AC2,BR ;PUT LOOP CNT INTO BR
3387 003625 1 064311 3 2 0 14 11 MOVB MPGP4 ;STORE FOR ERROR LOOPING CONTROL
3388 003626 1 002022 0 1 0 022 LDBR 22 ;SELECT DATA PATH
3389 003627 1 066371 3 3 0 17 11 MOVB IOSEL
3390 003630 1 016000 0 7 0 000 RETURN
3391
3392 003631 1 002000 0 1 0 000 RUNWAT: LDBR 0 ;CLEAR WAIT CNT
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 32-5
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
3393 003632 1 072011 3 5 0 00 11 MOVB AC0
3394 003633 1 072003 3 5 0 00 03 RUNLP: INCR AC0 ;INCREMENT WAIT CNT
3395 003634 1 113640 4 5 1640 JMPC RUNBCK ;JUMP IF TIMED OUT, TEST WILL FAIL
3396 003635 1 022000 1 1 0 00 00 DATI MPSCR0,BR ;CHECK "RUN" BIT
3397 003636 1 105640 4 2 1640 JMPB0 .+2 ;JUMP IF SET
3398 003637 1 101633 4 0 1633 JMP RUNLP ;ELSE, KEEP WAITING
3399 003640 1 016000 0 7 0 000 RUNBCK: RETURN
3400
3401 003641 1 002011 0 1 0 011 STRMB: LDBR 11 ;SELECT MASSBUS INTERFACE
3402 003642 1 066371 3 3 0 17 11 MOVB IOSEL
3403 003643 1 032001 1 5 0 00 01 DATI MPSCR1,AC0 ;READ PRESENT STATE OF STATUS
3404 003644 1 002030 0 1 0 030 LDBR OCC+DTD ;SET MASK OF BITS TO KEEP
3405 003645 1 072013 3 5 0 00 13 LANDBR AC0
3406 003646 1 002004 0 1 0 004 LDBR START ;SET MASK OF START BIT
3407 003647 1 062014 3 1 0 00 14 LORB AC0,BR ;SET IT INTO PRESENT STATUS
3408 003650 1 064031 3 2 0 01 11 MOVB MPSCR1
3409 003651 1 002022 0 1 0 022 LDBR 22 ;SELECT DATA PATH
3410 003652 1 066371 3 3 0 17 11 MOVB IOSEL
3411 003653 1 016000 0 7 0 000 RETURN
3412
3413 003654 1 002011 0 1 0 011 ABTXFR: LDBR 11 ;SELECT MASSBUS INTERFACE
3414 003655 1 066371 3 3 0 17 11 MOVB IOSEL
3415 003656 1 002001 0 1 0 001 LDBR EBL ;SET MASK OF BIT TO BE SET
3416 003657 1 064031 3 2 0 01 11 MOVB MPSCR1 ;AND WRITE IT TO STATUS REG
3417 003660 1 002022 0 1 0 022 LDBR 22 ;SELECT DATA PATH
3418 003661 1 066371 3 3 0 17 11 MOVB IOSEL
3419 003662 1 016000 0 7 0 000 RETURN
3420
3421 003663 1 002033 0 1 0 033 CBLOOP: LDBR 33 ;SELECT CHANNEL BUS INTERFACE
3422 003664 1 066371 3 3 0 17 11 MOVB IOSEL
3423 003665 1 002045 0 1 0 045 LDBR LOOPEN+EVPAR+CHANL ;SET LOOP ENABLE AND EVEN PARITY
3424 003666 1 064031 3 2 0 01 11 MOVB CSR1 ;AND CHANNEL MODE
3425 003667 1 002000 0 1 0 000 LDBR 0 ;INSURE "STA IN" IS CLEAR
3426 003670 1 064051 3 2 0 02 11 MOVB TOR0
3427 003671 1 002022 0 1 0 022 LDBR 22 ;SELECT DATA PATH
3428 003672 1 066371 3 3 0 17 11 MOVB IOSEL
3429 003673 1 016000 0 7 0 000 RETURN
3430
3431 003674 1 002033 0 1 0 033 SETSLV: LDBR 33 ;SELECT CHANNEL BUS INTERFACE
3432 003675 1 066371 3 3 0 17 11 MOVB IOSEL
3433 003676 1 101705 4 0 1705 JMP CLKIT1 ;GO GENERATE "SLVE REQ"
3434 003677 1 002033 0 1 0 033 CLKDAT: LDBR 33 ;SELECT CHANNEL BUS INTERFACE
3435 003700 1 066371 3 3 0 17 11 MOVB IOSEL
3436 003701 1 002000 0 1 0 000 LDBR 0 ;COMPUTE THE COMPLEMENT OF MEM CONTENTS
3437 003702 1 072011 3 5 0 00 11 MOVB AC0
3438 003703 1 042012 2 1 0 00 12 LORCM AC0,BR ;PUT IT IN BR
3439 003704 1 064231 3 2 0 11 11 CLKIT: MOVB BORLO ;LOAD DATA INTO BOR
3440 003705 1 002200 0 1 0 200 CLKIT1: LDBR SRVINL ;SET "SRV IN"
3441 003706 1 064071 3 2 0 03 11 MOVB TOR1
3442 003707 1 002000 0 1 0 000 LDBR 0 ;CLEAR "SRV IN"
3443 003710 1 064071 3 2 0 03 11 MOVB TOR1
3444 003711 1 002022 0 1 0 022 LDBR 22 ;SELECT DATA PATH
3445 003712 1 066371 3 3 0 17 11 MOVB IOSEL
3446 003713 1 016000 0 7 0 000 RETURN
3447
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 32-6
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
3448 003714 1 022000 1 1 0 00 00 DPPAR: DATI REG0,BR ;READ FLAG REG
3449 003715 1 014000 0 6 0 000 SHFTIT: SHR ;RIGHT ADJUST "DP PE" FLAG
3450 003716 1 105720 4 2 1720 JMPB0 .+2 ;JUMP IF IT SET
3451 003717 1 016377 0 7 0 377 RETURN -1 ;GIVE NO ERROR RETURN
3452 003720 1 016000 0 7 0 000 RETURN ;GIVE ERROR RETURN
3453
3454 003721 1 002033 0 1 0 033 CBPAR: LDBR 33 ;SELECT MASSBUS INTERFACE
3455 003722 1 066371 3 3 0 17 11 MOVB IOSEL
3456 003723 1 032000 1 5 0 00 00 DATI CSR0,AC0 ;READ FLAG REG
3457 003724 1 002022 0 1 0 022 LDBR 22 ;SELECT DATA PATH
3458 003725 1 066371 3 3 0 17 11 MOVB IOSEL
3459 003726 1 062010 3 1 0 00 10 MOV AC0,BR
3460 003727 1 101715 4 0 1715 JMP SHFTIT ;GO CHECK STATE OF PE FLAG
3461
3462 003730 1 002011 0 1 0 011 MBPAR: LDBR 11 ;SELECT MASSBUS INTERFACE
3463 003731 1 066371 3 3 0 17 11 MOVB IOSEL
3464 003732 1 032007 1 5 0 00 07 DATI MPDB2,AC0 ;READ BUFFER REG
3465 003733 1 002022 0 1 0 022 LDBR 22 ;SELECT DATA PATH
3466 003734 1 066371 3 3 0 17 11 MOVB IOSEL
3467 003735 1 062005 3 1 0 00 05 SHL AC0,BR ;MOVE "DP PE" FLAG TO BIT 4
3468 003736 1 107740 4 3 1740 JMPB4 .+2 ;JUMP IF IT SET
3469 003737 1 016377 0 7 0 377 RETURN -1 ;GIVE NO ERROR RETURN
3470 003740 1 016000 0 7 0 000 RETURN ;GIVE ERROR RETURN
3471
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 33
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
3472 003741 1 002267 0 1 0 267 END: .ECRAM
3473 003742 1 160211 7 0 0 10 11
3474 003743 1 072131 3 5 0 05 11
3475 003744 1 002044 0 1 0 044
3476 003745 1 160211 7 0 0 10 11
3477 003746 1 072131 3 5 0 05 11
3478 003747 1 002142 0 1 0 142
3479 003750 1 160211 7 0 0 10 11
3480 003751 1 002104 0 1 0 104
3481 003752 1 160211 7 0 0 10 11
3482 003753 1 002264 0 1 0 264
3483 003754 1 160211 7 0 0 10 11
3484 003755 1 002001 0 1 0 001
3485 003756 1 101762 4 0 1762
3486 003757 1 002002 0 1 0 002
3487 003760 1 101762 4 0 1762
3488 003761 1 002003 0 1 0 003
3489 003762 1 072131 3 5 0 05 11
3490 003763 1 002245 0 1 0 245
3491 003764 1 160211 7 0 0 10 11
3492 003765 1 072131 3 5 0 05 11
3493 003766 1 002257 0 1 0 257
3494 003767 1 160211 7 0 0 10 11
3495 003770 1 072131 3 5 0 05 11
3496 003771 1 002174 0 1 0 174
3497 003772 1 160211 7 0 0 10 11
3498 003773 777777 777777 .MEM
3499 000000 000000 000000 0 ;FIRST MEM LOC IS FOR SCRATCH
3500 000001 000000 000000 STORIT: 0
3501 000002 000000 000000 0
3502 000003 000000 000000 0
3503 000004 000000 000000 0
3504 000005 000000 000000 0
3505 000006 000000 000000 0
3506 000007 000000 000000 0
3507 000010 000000 000000 0
3508 000011 000000 000000 0
3509 000012 000000 000000 0
3510 000013 000000 000000 0
3511 000014 000000 000000 0
3512 000015 000000 000000 0
3513 000016 000000 000000 0
3514 000017 000000 000000 0
3515 000020 000000 000000 0
3516 000021 000000 000000 0
3517 000022 000000 000000 0
3518 000023 000000 000000 0
3519 000024 000000 000000 0
3520 000025 000000 000000 0
3521 000026 000000 000000 0
3522 000027 000000 000000 0
3523 000030 000000 000000 0
3524 000031 000000 000000 0
3525 000032 000000 000000 0
3526 000033 000000 000000 ENDSTR: 0
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 33-1
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
3527 000034 000000 000001 TSTDAT: 1
3528 000035 777777 777777 -1
3529 000036 000000 000002 2
3530 000037 777777 777776 -2
3531 000040 000000 000003 3
3532 000041 777777 777775 -3
3533 000042 000000 000004 4
3534 000043 777777 777774 -4
3535 000044 000000 000005 5
3536 000045 777777 777773 -5
3537 000046 000000 000006 6
3538 000047 777777 777772 -6
3539 000050 000000 000007 7
3540 000051 777777 777771 -7
3541 000052 000000 000010 ^D8
3542 000053 777777 777770 -^D8
3543 000054 000000 000011 ^D9
3544 000055 777777 777767 -^D9
3545 000056 000000 000012 ^D10
3546 000057 777777 777766 -^D10
3547 000060 000000 000013 ^D11
3548 000061 777777 777765 -^D11
3549 000062 000000 000014 ^D12
3550 000063 777777 777764 -^D12
3551 000064 000000 000015 ^D13
3552 000065 777777 777763 -^D13
3553 000066 000000 000001 CRDMP: 1
3554 000067 777777 777777 -1
3555 000070 000000 000002 2
3556 000071 777777 777776 -2
3557 000072 000000 000003 3
3558 000073 777777 777775 -3
3559 000074 000000 000004 4
3560 000075 777777 777774 -4
3561 000076 000000 000005 5
3562 000077 000000 000013 13
3563 000100 000000 000001 ASCII6: 1
3564 000101 000000 000077 77
3565 000102 000000 000002 2
3566 000103 000000 000076 76
3567 000104 000000 000003 3
3568 000105 000000 000075 75
3569 000106 000000 000004 4
3570 000107 000000 000074 74
3571 000110 000000 000005 5
3572 000111 000000 000073 73
3573 000112 000000 000006 6
3574 000113 000000 000072 72
3575 000114 000000 000001 ASCI71: 1
3576 000115 000000 000177 177
3577 000116 000000 000002 2
3578 000117 000000 000176 176
3579 000120 000000 000003 3
3580 000121 000000 000175 175
3581 000122 000000 000004 4
MCODE7 DX20 MICRO-DIAGNOSTIC OF THE DATA PATH - PART 4 VERSION 0.1 MACRO %53B(1252) 16:00 6-Mar-89 Page 33-2
MCOD7M MAC 6-Mar-89 15:13 DATA PATH TEST - PART 4
3582 000123 000000 000174 174
3583 000124 000000 000005 5
3584 000125 000000 000373 373
3585 000126 000000 000001 ASCI72: 1
3586 000127 000000 000177 177
3587 000130 000000 000002 2
3588 000131 000000 000176 176
3589 000132 000000 000003 3
3590 000133 000000 000175 175
3591 000134 000000 000004 4
3592 000135 000000 000174 174
3593 000136 000000 000005 5
3594 000137 000000 000173 173
3595 .END
3596
3597 END
NO ERRORS DETECTED
PROGRAM BREAK IS 000000
ABSOLUTE BREAK IS 004134
CPU TIME USED 03:11.295
29P CORE USED
ABTXFR 3205 3231 3234 3328 3338 3413#
AC0 775 797 799 811 900 973 1048 1121 1194 1267 1340 1413 1486 1561
1634 1707 1780 1853 1926 1999 2077 2145 2213 2281 2351 2419 2487 2555
2630 2703 2776 2849 2922 2995 3063 3159 3222 3228 3273 3286 3290 3294
3296 3299 3350 3374 3379 3393 3394 3403 3405 3407 3437 3438 3456 3459
3464 3467
AC1 773 802 813 815 981 1494 2007 2289 2563 3351 3356 3360 3365
AC2 804 814 817 904 977 1052 1125 1198 1271 1344 1417 1490 1565 1638
1711 1784 1857 1930 2003 2081 2149 2217 2285 2355 2423 2491 2559 2634
2707 2780 2853 2926 2999 3067 3182 3207 3298 3349 3353 3362 3366 3386
AC3 906 979 1054 1127 1200 1273 1346 1419 1492 1567 1640 1713 1786 1859
1932 2005 2083 2151 2219 2287 2357 2425 2493 2561 2636 2709 2782 2855
2928 3001 3069 3179 3307 3348 3354 3364
AC4 703 708 902 975 1050 1123 1196 1269 1342 1415 1488 1563 1636 1709
1782 1855 1928 2001 2079 2147 2215 2283 2353 2421 2489 2557 2632 2705
2778 2851 2924 2997 3065 3164 3278 3295 3355 3357
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 3150 3153 3184 3352
3359 3375 3376 3474 3477 3489 3492 3495
AC6 684 688 698 860
AC7 656 691 692 725 730 734 738 751 754
AR1716 156#
ARHI 75#
ARHIBT 152#
ARLO 74#
ARLOBT 148#
ASCI71 980 3575#
ASCI72 1493 3585#
ASCII6 3563#
ATA 367# 717 743 755 842 853 871
BCHI 70# 3173 3303
BCHIBT 132#
BCLKEN 95# 3155 3197 3269 3320
BCLO 69# 3172 3300
BCLOBT 128#
BCOVF 89#
BEGEND 866# 3472
BEGIN 641# 874
BORLO 190# 3439
C 424#
CALL 832 834 836 838#
CALL0 839# 3490
CALLH 3485 3487 3489#
CATAB 335# 790 2091 2099 2107 2115 2123 2159 2167 2175 2183 2191 2227 2235
2243 2251 2259 2297 2310 2318 2326 2333 2365 2373 2381 2389 2397 2433
2441 2449 2457 2465 2501 2509 2517 2525 2533 2572 2586 2595 2604 2612
2645 2654 2663 2672 2681 2718 2727 2736 2745 2754 2791 2800 2809 2818
2827 2864 2873 2882 2891 2900 2937 2946 2955 2964 2973 3009 3017 3025
3033 3041 3077 3085 3093 3101 3109
CBILO 189#
CBLOOP 3176 3304 3421#
CBPAR 934 1005 1082 1155 1228 1301 1374 1447 1518 1595 1668 1741 1814 1887
1960 2031 2108 2176 2244 2311 2382 2450 2518 2587 2664 2737 2810 2883
2956 3026 3094 3454#
CC0 215#
CC1 216#
CC2 217#
CC4 218#
CC5 219#
CC8 220#
CHANL 196# 3423
CHKDAT 1023 1536 2049 2327 2605 3347#
CHKLOP 778# 854
CHKLP 779# 825
CKLOOP 3354# 3368
CKTRM 849# 953 992 1101 1174 1247 1320 1393 1466 1505 1614 1687 1760 1833
1906 1979 2018
CKTRM0 850# 3493
CKTRMH 2125 2193 2261 2299 2399 2467 2535 2574 2683 2756 2829 2902 2975 3043
3111 3492#
CLKDAT 3201 3434#
CLKDRL 191#
CLKIT 3439#
CLKIT1 3433 3440#
CLKPLS 81#
CLRFLG 202#
CLRGO 360# 674
CLRLP 3289# 3292
CMDF0 650 666#
CMPERR 361#
CONCHK 3358 3364#
CORF 911# 913 920# 922 929# 931 938# 940 947# 949 986# 988 1000# 1002
1009# 1011 1018# 1020 1027# 1029 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 1351# 1353 1360# 1362 1369# 1371 1378# 1380 1387# 1389
1424# 1426 1433# 1435 1442# 1444 1451# 1453 1460# 1462 1499# 1501 1513# 1515
1522# 1524 1531# 1533 1540# 1542 1572# 1574 1581# 1583 1590# 1592 1599# 1601
1608# 1610 1645# 1647 1654# 1656 1663# 1665 1672# 1674 1681# 1683 1718# 1720
1727# 1729 1736# 1738 1745# 1747 1754# 1756 1791# 1793 1800# 1802 1809# 1811
1818# 1820 1827# 1829 1864# 1866 1873# 1875 1882# 1884 1891# 1893 1900# 1902
1937# 1939 1946# 1948 1955# 1957 1964# 1966 1973# 1975 2012# 2014 2026# 2028
2035# 2037 2044# 2046 2053# 2055 2087# 2089 2095# 2097 2103# 2105 2111# 2113
2119# 2121 2155# 2157 2163# 2165 2171# 2173 2179# 2181 2187# 2189 2223# 2225
2231# 2233 2239# 2241 2247# 2249 2255# 2257 2293# 2295 2306# 2308 2314# 2316
2322# 2324 2330# 2332 2361# 2363 2369# 2371 2377# 2379 2385# 2387 2393# 2395
2429# 2431 2437# 2439 2445# 2447 2453# 2455 2461# 2463 2497# 2499 2505# 2507
2513# 2515 2521# 2523 2529# 2531 2568# 2570 2582# 2584 2591# 2593 2600# 2602
2609# 2611 2641# 2643 2650# 2652 2659# 2661 2668# 2670 2677# 2679 2714# 2716
2723# 2725 2732# 2734 2741# 2743 2750# 2752 2787# 2789 2796# 2798 2805# 2807
2814# 2816 2823# 2825 2860# 2862 2869# 2871 2878# 2880 2887# 2889 2896# 2898
2933# 2935 2942# 2944 2951# 2953 2960# 2962 2969# 2971 3005# 3007 3013# 3015
3021# 3023 3029# 3031 3037# 3039 3073# 3075 3081# 3083 3089# 3091 3097# 3099
3105# 3107
CRDMP 3553#
CSR0 184# 3456
CSR1 185# 3214 3238 3342 3424
CUADRS 454 541 2071 2087 2091 2095 2099 2103 2107 2111 2115 2119 2123 2126
2130 2139 2155 2159 2163 2167 2171 2175 2179 2183 2187 2191 2194 2198
2207 2223 2227 2231 2235 2239 2243 2247 2251 2255 2259 2262 2266 2275
2293 2297 2300 2306 2310 2314 2318 2322 2326 2330 2334 2336 2345 2361
2365 2369 2373 2377 2381 2385 2389 2393 2397 2400 2404 2413 2429 2433
2437 2441 2445 2449 2453 2457 2461 2465 2468 2472 2481 2497 2501 2505
2509 2513 2517 2521 2525 2529 2533 2536 2540 2549 2568 2572 2575 2582
2586 2591 2595 2600 2604 2609 2613 2615 2624 2641 2645 2650 2654 2659
2663 2668 2672 2677 2681 2684 2688 2697 2714 2718 2723 2727 2732 2736
2741 2745 2750 2754 2757 2761 2770 2787 2791 2796 2800 2805 2809 2814
2818 2823 2827 2830 2834 2843 2860 2864 2869 2873 2878 2882 2887 2891
2896 2900 2903 2907 2916 2933 2937 2942 2946 2951 2955 2960 2964 2969
2973 2976 2980 2989 3005 3009 3013 3017 3021 3025 3029 3033 3037 3041
3044 3048 3057 3073 3077 3081 3085 3089 3093 3097 3101 3105 3109 3112
3116 3187 3189 3312
DB 393#
DBEVEN 396#
DBPAR 394#
DBPARE 395#
DFCPH0 169#
DFCPH1 170#
DFRMAD 71# 3180 3308
DIAGAD 207#
DISACK 198#
DMSTRQ 97#
DMXSHF 209#
DONE 357#
DONERD 3227 3234#
DPPAR 925 996 1073 1146 1219 1292 1365 1438 1509 1586 1659 1732 1805 1878
1951 2022 2100 2168 2236 2303 2374 2442 2510 2578 2655 2728 2801 2874
2947 3018 3086 3448#
DPPEFG 88#
DRLO 188# 3332
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 3314 3404
DXHISP 94# 3197 3320
EBL 358# 3415
EDIT 2# 2 639
ELOOPC 780 785#
END 3118 3472#
ENDSTR 3285 3526#
ENDWAT 3223# 3230
ERLP 759# 911 920 929 938 947 986 1000 1009 1018 1059 1068 1077 1086
1095 1132 1141 1150 1159 1168 1205 1214 1223 1232 1241 1278 1287 1296
1305 1314 1351 1360 1369 1378 1387 1424 1433 1442 1451 1460 1499 1513
1522 1531 1572 1581 1590 1599 1608 1645 1654 1663 1672 1681 1718 1727
1736 1745 1754 1791 1800 1809 1818 1827 1864 1873 1882 1891 1900 1937
1946 1955 1964 1973 2012 2026 2035 2044 2087 2090 2095 2098 2103 2106
2111 2114 2119 2122 2155 2158 2163 2166 2171 2174 2179 2182 2187 2190
2223 2226 2231 2234 2239 2242 2247 2250 2255 2258 2293 2296 2306 2309
2314 2317 2322 2325 2333 2361 2364 2369 2372 2377 2380 2385 2388 2393
2396 2429 2432 2437 2440 2445 2448 2453 2456 2461 2464 2497 2500 2505
2508 2513 2516 2521 2524 2529 2532 2568 2571 2582 2585 2591 2594 2600
2603 2612 2641 2644 2650 2653 2659 2662 2668 2671 2677 2680 2714 2717
2723 2726 2732 2735 2741 2744 2750 2753 2787 2790 2796 2799 2805 2808
2814 2817 2823 2826 2860 2863 2869 2872 2878 2881 2887 2890 2896 2899
2933 2936 2942 2945 2951 2954 2960 2963 2969 2972 3005 3008 3013 3016
3021 3024 3029 3032 3037 3040 3073 3076 3081 3084 3089 3092 3097 3100
3105 3108
ERLP0 760# 3478
ERLPA 770# 2091 2099 2107 2115 2123 2159 2167 2175 2183 2191 2227 2235 2243
2251 2259 2297 2310 2318 2326 2333 2365 2373 2381 2389 2397 2433 2441
2449 2457 2465 2501 2509 2517 2525 2533 2572 2586 2595 2604 2612 2645
2654 2663 2672 2681 2718 2727 2736 2745 2754 2791 2800 2809 2818 2827
2864 2873 2882 2891 2900 2937 2946 2955 2964 2973 3009 3017 3025 3033
3041 3077 3085 3093 3101 3109
ERLPA0 771#
ERLPD 791# 1027 1540 2053 2091 2099 2107 2115 2123 2159 2167 2175 2183 2191
2227 2235 2243 2251 2259 2297 2310 2318 2326 2330 2333 2365 2373 2381
2389 2397 2433 2441 2449 2457 2465 2501 2509 2517 2525 2533 2572 2586
2595 2604 2609 2612 2645 2654 2663 2672 2681 2718 2727 2736 2745 2754
2791 2800 2809 2818 2827 2864 2873 2882 2891 2900 2937 2946 2955 2964
2973 3009 3017 3025 3033 3041 3077 3085 3093 3101 3109
ERLPD0 792# 3496
ERLPD1 808# 821
ERLPD2 812 823#
ERLPDH 2333 2612 3495#
ERLPH 2090 2098 2106 2114 2122 2158 2166 2174 2182 2190 2226 2234 2242 2250
2258 2296 2309 2317 2325 2364 2372 2380 2388 2396 2432 2440 2448 2456
2464 2500 2508 2516 2524 2532 2571 2585 2594 2603 2644 2653 2662 2671
2680 2717 2726 2735 2744 2753 2790 2799 2808 2817 2826 2863 2872 2881
2890 2899 2936 2945 2954 2963 2972 3008 3016 3024 3032 3040 3076 3084
3092 3100 3108 3477#
ERLPM 764# 2091 2099 2107 2115 2123 2159 2167 2175 2183 2191 2227 2235 2243
2251 2259 2297 2310 2318 2326 2333 2365 2373 2381 2389 2397 2433 2441
2449 2457 2465 2501 2509 2517 2525 2533 2572 2586 2595 2604 2612 2645
2654 2663 2672 2681 2718 2727 2736 2745 2754 2791 2800 2809 2818 2827
2864 2873 2882 2891 2900 2937 2946 2955 2964 2973 3009 3017 3025 3033
3041 3077 3085 3093 3101 3109
ERLPM0 765#
ERRCA 768 775#
ERRCHK 730# 760 765 771 792
ERRCOM 762 777# 796
ERRSET 724# 910 919 928 937 946 985 999 1008 1017 1026 1058 1067 1076
1085 1094 1131 1140 1149 1158 1167 1204 1213 1222 1231 1240 1277 1286
1295 1304 1313 1350 1359 1368 1377 1386 1423 1432 1441 1450 1459 1498
1512 1521 1530 1539 1571 1580 1589 1598 1607 1644 1653 1662 1671 1680
1717 1726 1735 1744 1753 1790 1799 1808 1817 1826 1863 1872 1881 1890
1899 1936 1945 1954 1963 1972 2011 2025 2034 2043 2052 3480
ERSETH 2086 2094 2102 2110 2118 2154 2162 2170 2178 2186 2222 2230 2238 2246
2254 2292 2305 2313 2321 2329 2360 2368 2376 2384 2392 2428 2436 2444
2452 2460 2496 2504 2512 2520 2528 2567 2581 2590 2599 2608 2640 2649
2658 2667 2676 2713 2722 2731 2740 2749 2786 2795 2804 2813 2822 2859
2868 2877 2886 2895 2932 2941 2950 2959 2968 3004 3012 3020 3028 3036
3072 3080 3088 3096 3104 3480#
EVPAR 199# 3423
EXC 359#
EXTRUN 161#
F0 347#
F1 348#
F2 349#
F3 350#
F4 351#
FN 346#
GO 345#
HSDPIN 82# 3196 3319
I 3207 3290 3332
ILF 365#
INADR 430#
INIT 433# 657 3120
INITL 3120# 3154 3268
INT0 420#
INT1 421#
INT2 422#
INT3 423#
IOSEL 429# 642 658 660 684 686 689 703 705 709 867 889 3121 3123
3158 3170 3190 3195 3212 3218 3236 3240 3272 3284 3313 3318 3331 3334
3340 3344 3385 3389 3402 3410 3414 3418 3422 3428 3432 3435 3445 3455
3458 3463 3466
LDCB 159#
LDRMDA 80#
LDSB 160#
LOOPEN 197# 3213 3423
LPADR 911# 914 920# 923 929# 932 938# 941 947# 950 986# 989 1000# 1003
1009# 1012 1018# 1021 1027# 1030 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 1351# 1354 1360# 1363 1369# 1372 1378# 1381 1387# 1390
1424# 1427 1433# 1436 1442# 1445 1451# 1454 1460# 1463 1499# 1502 1513# 1516
1522# 1525 1531# 1534 1540# 1543 1572# 1575 1581# 1584 1590# 1593 1599# 1602
1608# 1611 1645# 1648 1654# 1657 1663# 1666 1672# 1675 1681# 1684 1718# 1721
1727# 1730 1736# 1739 1745# 1748 1754# 1757 1791# 1794 1800# 1803 1809# 1812
1818# 1821 1827# 1830 1864# 1867 1873# 1876 1882# 1885 1891# 1894 1900# 1903
1937# 1940 1946# 1949 1955# 1958 1964# 1967 1973# 1976 2012# 2015 2026# 2029
2035# 2038 2044# 2047 2053# 2056 2087# 2090 2091 2095# 2098 2099 2103# 2106
2107 2111# 2114 2115 2119# 2122 2123 2155# 2158 2159 2163# 2166 2167 2171#
2174 2175 2179# 2182 2183 2187# 2190 2191 2223# 2226 2227 2231# 2234 2235
2239# 2242 2243 2247# 2250 2251 2255# 2258 2259 2293# 2296 2297 2306# 2309
2310 2314# 2317 2318 2322# 2325 2326 2330# 2333 2361# 2364 2365 2369# 2372
2373 2377# 2380 2381 2385# 2388 2389 2393# 2396 2397 2429# 2432 2433 2437#
2440 2441 2445# 2448 2449 2453# 2456 2457 2461# 2464 2465 2497# 2500 2501
2505# 2508 2509 2513# 2516 2517 2521# 2524 2525 2529# 2532 2533 2568# 2571
2572 2582# 2585 2586 2591# 2594 2595 2600# 2603 2604 2609# 2612 2641# 2644
2645 2650# 2653 2654 2659# 2662 2663 2668# 2671 2672 2677# 2680 2681 2714#
2717 2718 2723# 2726 2727 2732# 2735 2736 2741# 2744 2745 2750# 2753 2754
2787# 2790 2791 2796# 2799 2800 2805# 2808 2809 2814# 2817 2818 2823# 2826
2827 2860# 2863 2864 2869# 2872 2873 2878# 2881 2882 2887# 2890 2891 2896#
2899 2900 2933# 2936 2937 2942# 2945 2946 2951# 2954 2955 2960# 2963 2964
2969# 2972 2973 3005# 3008 3009 3013# 3016 3017 3021# 3024 3025 3029# 3032
3033 3037# 3040 3041 3073# 3076 3077 3081# 3084 3085 3089# 3092 3093 3097#
3100 3101 3105# 3108 3109
MAR 802 804 815 817 3354 3356
MBPAR 943 1014 1091 1164 1237 1310 1383 1456 1527 1604 1677 1750 1823 1896
1969 2040 2116 2184 2252 2319 2390 2458 2526 2596 2673 2746 2819 2892
2965 3034 3102 3462#
MCHI 68# 3175 3302
MCHIBT 124#
MCLO 67# 3174 3297
MCLOBT 120#
MCOVF 90#
MEMCOV 107# 3305
MEONFE 108# 3177
MEXWAT 916 1064 1137 1210 1283 1356 1429 1577 1650 1723 1796 1869 1942 2092
2160 2228 2366 2434 2502 2646 2719 2792 2865 2938 3010 3078 3221#
MPDB0 383#
MPDB1 387#
MPDB2 391# 3464
MPDTR 375#
MPECR 371# 670 749 841 852
MPERR 366# 717 755
MPGP0 400# 687 869
MPGP1 401# 870 891
MPGP10 408# 3160 3274
MPGP11 409# 3162 3276
MPGP12 410#
MPGP13 411#
MPGP14 412#
MPGP15 413#
MPGP16 414#
MPGP17 415#
MPGP2 402# 3166 3280
MPGP3 403# 3168 3282
MPGP4 404# 767 774 803 816 3387
MPGP5 405# 776 805 818
MPGP6 406# 662 801 808 820 824 3163 3277
MPGP7 407# 798
MPHVR 379#
MPSCR0 343# 643 647 3396
MPSCR1 356# 671 676 715 719 872 3192 3315 3403 3408 3416
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 2060 2063#
OCC 364# 3191 3314 3404
OFFGO 663 669# 781 785 845
OKRD 3203 3207#
OKWR 3326 3330#
ONES 213#
OUTADR 431#
PNT 484# 911 920 929 938 947 952 986 991 1000 1009 1018 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 1351 1360 1369 1378 1387
1392 1424 1433 1442 1451 1460 1465 1499 1504 1513 1522 1531 1540 1572
1581 1590 1599 1608 1613 1645 1654 1663 1672 1681 1686 1718 1727 1736
1745 1754 1759 1791 1800 1809 1818 1827 1832 1864 1873 1882 1891 1900
1905 1937 1946 1955 1964 1973 1978 2012 2017 2026 2035 2044 2053 2087
2095 2103 2111 2119 2124 2155 2163 2171 2179 2187 2192 2223 2231 2239
2247 2255 2260 2293 2298 2306 2314 2322 2330 2361 2369 2377 2385 2393
2398 2429 2437 2445 2453 2461 2466 2497 2505 2513 2521 2529 2534 2568
2573 2582 2591 2600 2609 2641 2650 2659 2668 2677 2682 2714 2723 2732
2741 2750 2755 2787 2796 2805 2814 2823 2828 2860 2869 2878 2887 2896
2901 2933 2942 2951 2960 2969 2974 3005 3013 3021 3029 3037 3042 3073
3081 3089 3097 3105 3110
RA71R1 303# 1126
RA71R2 304# 1199
RA71R3 305# 1272
RA71R4 306# 1345
RA71R5 307# 1418
RA72R1 310# 1639
RA72R2 311# 1712
RA72R3 312# 1785
RA72R4 313# 1858
RA72R5 314# 1931
RAS6R1 295#
RAS6R2 296#
RAS6R3 297#
RAS6R4 298#
RAS6R5 299#
RAS6R6 300# 905
RAS71F 302# 1053
RAS72F 309# 1566
RASC6F 294#
RCBLR1 325# 2708
RCBLR2 326# 2781
RCBLR3 327# 2854
RCBLR4 328# 2927
RCDMPF 276#
RCDMR1 277#
RCDMR2 278#
RCDMR3 279#
RCDMR4 280#
RCDMR5 281#
RCOBLF 324# 2635
RD 3151 3154#
RDLOBT 140# 144#
RDLP 3201# 3209
RDREV 3185 3188#
RDSEQ 1055 1568 2084 2358 2637 3002 3070 3152#
REG0 63# 3181 3309 3448
REG1 64# 3156 3198 3270 3321 3375
REG15 76#
REG16 77#
REG17 78#
REG2 65# 3178 3306
REG3 66# 3223 3335
REM1F 316# 2082
REM1R1 317# 2150
REM1R2 318# 2218
REM2F 320# 2356
REM2R1 321# 2424
REM2R2 322# 2492
REPORT 735 747#
REPTU 860# 957 1032 1105 1178 1251 1324 1397 1470 1545 1618 1691 1764 1837
1910 1983 2058 3482
REPTUH 2129 2197 2265 2335 2403 2471 2539 2614 2687 2760 2833 2906 2979 3047
3115 3482#
RESIOS 708# 782 786 846
RHDATA 331# 453 521 2071 2087 2091 2095 2099 2103 2107 2111 2115 2119 2123
2125 2130 2139 2155 2159 2163 2167 2171 2175 2179 2183 2187 2191 2193
2198 2207 2223 2227 2231 2235 2239 2243 2247 2251 2255 2259 2261 2266
2275 2293 2297 2299 2306 2310 2314 2318 2322 2326 2330 2334 2336 2345
2361 2365 2369 2373 2377 2381 2385 2389 2393 2397 2399 2404 2413 2429
2433 2437 2441 2445 2449 2453 2457 2461 2465 2467 2472 2481 2497 2501
2505 2509 2513 2517 2521 2525 2529 2533 2535 2540 2549 2568 2572 2574
2582 2586 2591 2595 2600 2604 2609 2613 2615 2624 2641 2645 2650 2654
2659 2663 2668 2672 2677 2681 2683 2688 2697 2714 2718 2723 2727 2732
2736 2741 2745 2750 2754 2756 2761 2770 2787 2791 2796 2800 2805 2809
2814 2818 2823 2827 2829 2834 2843 2860 2864 2869 2873 2878 2882 2887
2891 2896 2900 2902 2907 2916 2933 2937 2942 2946 2951 2955 2960 2964
2969 2973 2975 2980 2989 3005 3009 3013 3017 3021 3025 3029 3033 3037
3041 3043 3048 3057 3073 3077 3081 3085 3089 3093 3097 3101 3105 3109
3111 3116 3186 3188 3311
RHIDNF 283# 3000
RHIDR1 284#
RHIDR2 285#
RHIDR3 286#
RHIDR4 287#
RHIDR5 288#
RHIDR6 289#
RHIDR7 290#
RHIDR8 291#
RHIDR9 292#
RINCMF 270# 3068
RINCR1 271#
RINCR2 272#
RINCR3 273#
RINCR4 274#
RMADLO 136#
RMADR8 105#
RMDAHI 73#
RMDALO 72#
RPTCNT 58# 697
RRDSEQ 907 1128 1201 1274 1347 1420 1641 1714 1787 1860 1933 2152 2220 2426
2494 2710 2783 2856 2929 3149#
RUN 344#
RUNBCK 3395 3399#
RUNLP 3394# 3398
RUNWAT 3193 3316 3392#
SAVIOS 703# 742 747 839 850
SEBCOV 106# 3305
SENDAD 831#
SETATA 715# 778 807 843
SETDAT 3204 3327 3384#
SETRD 835#
SETRDB 837#
SETRUN 83#
SETSLV 3324 3431#
SETWRT 833#
SHFTIT 3449# 3460
SLAK25 192#
SLRDY1 176#
SLRDY2 177#
SLVACK 98#
SLVEPE 165#
SLVRDY 175#
SLVRQ 100#
SLVWT 3202 3325 3373#
SPRES 432# 657
SRHDOF 109#
SRVINL 201# 3440
STAINL 200# 3215
START 362# 3406
STORIT 3285 3287 3323 3347 3361 3500#
STRDBH 3188 3488#
STRDH 3186 3486#
STRMB 3199 3322 3401#
STWRTH 3311 3484#
TEST0I 681# 3475
TESTI 682# 893 966 1041 1114 1187 1260 1333 1406 1479 1554 1627 1700 1773
1846 1919 1992
TESTIH 2070 2138 2206 2274 2344 2412 2480 2548 2623 2696 2769 2842 2915 2988
3056 3474#
TOR0 186# 3216 3426
TOR1 187# 3441 3443
TST 894# 915 924 933 942 951 956 958 967# 990 995 1004 1013 1022
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# 1355 1364 1373 1382 1391 1396 1398
1407# 1428 1437 1446 1455 1464 1469 1471 1480# 1503 1508 1517 1526 1535
1544 1546 1555# 1576 1585 1594 1603 1612 1617 1619 1628# 1649 1658 1667
1676 1685 1690 1692 1701# 1722 1731 1740 1749 1758 1763 1765 1774# 1795
1804 1813 1822 1831 1836 1838 1847# 1868 1877 1886 1895 1904 1909 1911
1920# 1941 1950 1959 1968 1977 1982 1984 1993# 2016 2021 2030 2039 2048
2057 2059 2071# 2091 2099 2107 2115 2123 2128 2130 2139# 2159 2167 2175
2183 2191 2196 2198 2207# 2227 2235 2243 2251 2259 2264 2266 2275# 2297
2302 2310 2318 2326 2334 2336 2345# 2365 2373 2381 2389 2397 2402 2404
2413# 2433 2441 2449 2457 2465 2470 2472 2481# 2501 2509 2517 2525 2533
2538 2540 2549# 2572 2577 2586 2595 2604 2613 2615 2624# 2645 2654 2663
2672 2681 2686 2688 2697# 2718 2727 2736 2745 2754 2759 2761 2770# 2791
2800 2809 2818 2827 2832 2834 2843# 2864 2873 2882 2891 2900 2905 2907
2916# 2937 2946 2955 2964 2973 2978 2980 2989# 3009 3017 3025 3033 3041
3046 3048 3057# 3077 3085 3093 3101 3109 3114 3116
TST278 894 895#
TST279 967 968#
TST280 1042 1043#
TST281 1115 1116#
TST282 1188 1189#
TST283 1261 1262#
TST284 1334 1335#
TST285 1407 1408#
TST286 1480 1481#
TST287 1555 1556#
TST288 1628 1629#
TST289 1701 1702#
TST290 1774 1775#
TST291 1847 1848#
TST292 1920 1921#
TST293 1993 1994#
TST294 2071 2072#
TST295 2139 2140#
TST296 2207 2208#
TST297 2275 2276#
TST298 2345 2346#
TST299 2413 2414#
TST300 2481 2482#
TST301 2549 2550#
TST302 2624 2625#
TST303 2697 2698#
TST304 2770 2771#
TST305 2843 2844#
TST306 2916 2917#
TST307 2989 2990#
TST308 3057 3058#
TSTART 664 877#
TSTDAT 2006 2288 2562 3200 3527#
UBPEFG 87#
VERSIO 2# 2 639
WAITGO 643# 646 779 844 873
WAS71 301# 978
WAS72 308# 1491
WASC6 293#
WCDMP 275#
WCLK 352#
WCOBOL 323# 2560
WEM1 315# 2004
WEM2 319# 2286
WHIDN 282#
WINCM 269#
WRLP 3324# 3337
WRSEQ 982 1495 2008 2290 2564 3268#
WTLP1 3375# 3381
Z 425#
ZERADR 206#
ZEROS 212#
ZRTN 783#
%ADRH 544# 2071 2071# 2087 2087# 2091 2091# 2095 2095# 2099 2099# 2103 2103# 2107
2107# 2111 2111# 2115 2115# 2119 2119# 2123 2123# 2130 2130# 2139 2139# 2155
2155# 2159 2159# 2163 2163# 2167 2167# 2171 2171# 2175 2175# 2179 2179# 2183
2183# 2187 2187# 2191 2191# 2198 2198# 2207 2207# 2223 2223# 2227 2227# 2231
2231# 2235 2235# 2239 2239# 2243 2243# 2247 2247# 2251 2251# 2255 2255# 2259
2259# 2266 2266# 2275 2275# 2293 2293# 2297 2297# 2306 2306# 2310 2310# 2314
2314# 2318 2318# 2322 2322# 2326 2326# 2330 2330# 2334 2334# 2336 2336# 2345
2345# 2361 2361# 2365 2365# 2369 2369# 2373 2373# 2377 2377# 2381 2381# 2385
2385# 2389 2389# 2393 2393# 2397 2397# 2404 2404# 2413 2413# 2429 2429# 2433
2433# 2437 2437# 2441 2441# 2445 2445# 2449 2449# 2453 2453# 2457 2457# 2461
2461# 2465 2465# 2472 2472# 2481 2481# 2497 2497# 2501 2501# 2505 2505# 2509
2509# 2513 2513# 2517 2517# 2521 2521# 2525 2525# 2529 2529# 2533 2533# 2540
2540# 2549 2549# 2568 2568# 2572 2572# 2582 2582# 2586 2586# 2591 2591# 2595
2595# 2600 2600# 2604 2604# 2609 2609# 2613 2613# 2615 2615# 2624 2624# 2641
2641# 2645 2645# 2650 2650# 2654 2654# 2659 2659# 2663 2663# 2668 2668# 2672
2672# 2677 2677# 2681 2681# 2688 2688# 2697 2697# 2714 2714# 2718 2718# 2723
2723# 2727 2727# 2732 2732# 2736 2736# 2741 2741# 2745 2745# 2750 2750# 2754
2754# 2761 2761# 2770 2770# 2787 2787# 2791 2791# 2796 2796# 2800 2800# 2805
2805# 2809 2809# 2814 2814# 2818 2818# 2823 2823# 2827 2827# 2834 2834# 2843
2843# 2860 2860# 2864 2864# 2869 2869# 2873 2873# 2878 2878# 2882 2882# 2887
2887# 2891 2891# 2896 2896# 2900 2900# 2907 2907# 2916 2916# 2933 2933# 2937
2937# 2942 2942# 2946 2946# 2951 2951# 2955 2955# 2960 2960# 2964 2964# 2969
2969# 2973 2973# 2980 2980# 2989 2989# 3005 3005# 3009 3009# 3013 3013# 3017
3017# 3021 3021# 3025 3025# 3029 3029# 3033 3033# 3037 3037# 3041 3041# 3048
3048# 3057 3057# 3073 3073# 3077 3077# 3081 3081# 3085 3085# 3089 3089# 3093
3093# 3097 3097# 3101 3101# 3105 3105# 3109 3109# 3116 3116# 3187 3187# 3189
3189# 3312 3312# 3474 3477 3480 3482 3484 3495
%EMES 894# 913 916 916# 922 925 925# 931 934 934# 940 943 943# 949
952 952# 957 957# 967# 988 991 991# 996 996# 1002 1005 1005# 1011
1014 1014# 1020 1023 1023# 1029 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# 1353 1356 1356#
1362 1365 1365# 1371 1374 1374# 1380 1383 1383# 1389 1392 1392# 1397 1397#
1407# 1426 1429 1429# 1435 1438 1438# 1444 1447 1447# 1453 1456 1456# 1462
1465 1465# 1470 1470# 1480# 1501 1504 1504# 1509 1509# 1515 1518 1518# 1524
1527 1527# 1533 1536 1536# 1542 1545 1545# 1555# 1574 1577 1577# 1583 1586
1586# 1592 1595 1595# 1601 1604 1604# 1610 1613 1613# 1618 1618# 1628# 1647
1650 1650# 1656 1659 1659# 1665 1668 1668# 1674 1677 1677# 1683 1686 1686#
1691 1691# 1701# 1720 1723 1723# 1729 1732 1732# 1738 1741 1741# 1747 1750
1750# 1756 1759 1759# 1764 1764# 1774# 1793 1796 1796# 1802 1805 1805# 1811
1814 1814# 1820 1823 1823# 1829 1832 1832# 1837 1837# 1847# 1866 1869 1869#
1875 1878 1878# 1884 1887 1887# 1893 1896 1896# 1902 1905 1905# 1910 1910#
1920# 1939 1942 1942# 1948 1951 1951# 1957 1960 1960# 1966 1969 1969# 1975
1978 1978# 1983 1983# 1993# 2014 2017 2017# 2022 2022# 2028 2031 2031# 2037
2040 2040# 2046 2049 2049# 2055 2058 2058# 2071# 2089 2092 2092# 2097 2100
2100# 2105 2108 2108# 2113 2116 2116# 2121 2124 2124# 2129 2129# 2139# 2157
2160 2160# 2165 2168 2168# 2173 2176 2176# 2181 2184 2184# 2189 2192 2192#
2197 2197# 2207# 2225 2228 2228# 2233 2236 2236# 2241 2244 2244# 2249 2252
2252# 2257 2260 2260# 2265 2265# 2275# 2295 2298 2298# 2303 2303# 2308 2311
2311# 2316 2319 2319# 2324 2327 2327# 2332 2335 2335# 2345# 2363 2366 2366#
2371 2374 2374# 2379 2382 2382# 2387 2390 2390# 2395 2398 2398# 2403 2403#
2413# 2431 2434 2434# 2439 2442 2442# 2447 2450 2450# 2455 2458 2458# 2463
2466 2466# 2471 2471# 2481# 2499 2502 2502# 2507 2510 2510# 2515 2518 2518#
2523 2526 2526# 2531 2534 2534# 2539 2539# 2549# 2570 2573 2573# 2578 2578#
2584 2587 2587# 2593 2596 2596# 2602 2605 2605# 2611 2614 2614# 2624# 2643
2646 2646# 2652 2655 2655# 2661 2664 2664# 2670 2673 2673# 2679 2682 2682#
2687 2687# 2697# 2716 2719 2719# 2725 2728 2728# 2734 2737 2737# 2743 2746
2746# 2752 2755 2755# 2760 2760# 2770# 2789 2792 2792# 2798 2801 2801# 2807
2810 2810# 2816 2819 2819# 2825 2828 2828# 2833 2833# 2843# 2862 2865 2865#
2871 2874 2874# 2880 2883 2883# 2889 2892 2892# 2898 2901 2901# 2906 2906#
2916# 2935 2938 2938# 2944 2947 2947# 2953 2956 2956# 2962 2965 2965# 2971
2974 2974# 2979 2979# 2989# 3007 3010 3010# 3015 3018 3018# 3023 3026 3026#
3031 3034 3034# 3039 3042 3042# 3047 3047# 3057# 3075 3078 3078# 3083 3086
3086# 3091 3094 3094# 3099 3102 3102# 3107 3110 3110# 3115 3115#
%REQ 452# 453# 830
%TNUM 450# 888 892 894# 965 967# 1040 1042# 1113 1115# 1186 1188# 1259 1261#
1332 1334# 1405 1407# 1478 1480# 1553 1555# 1626 1628# 1699 1701# 1772 1774#
1845 1847# 1918 1920# 1991 1993# 2069 2071# 2137 2139# 2205 2207# 2273 2275#
2343 2345# 2411 2413# 2479 2481# 2547 2549# 2622 2624# 2695 2697# 2768 2770#
2841 2843# 2914 2916# 2987 2989# 3055 3057#
.ERROR 731 732
CHKERR 535#
CHKRH 526# 952 991 1100 1173 1246 1319 1392 1465 1504 1613 1686 1759 1832
1905 1978 2017 2124 2192 2260 2298 2398 2466 2534 2573 2682 2755 2828
2901 2974 3042 3110
CHKTRM 534# 952 991 1100 1173 1246 1319 1392 1465 1504 1613 1686 1759 1832
1905 1978 2017 2124 2192 2260 2298 2398 2466 2534 2573 2682 2755 2828
2901 2974 3042 3110
DATI 643 647 671 684 703 715 808 3223 3332 3335 3375 3396 3403 3448
3456 3464
DECR 799 811 860 3182 3207 3290 3353 3366
DEFTST 457# 882
ERLOOP 504# 912 921 930 939 948 987 1001 1010 1019 1028 1060 1069 1078
1087 1096 1133 1142 1151 1160 1169 1206 1215 1224 1233 1242 1279 1288
1297 1306 1315 1352 1361 1370 1379 1388 1425 1434 1443 1452 1461 1500
1514 1523 1532 1541 1573 1582 1591 1600 1609 1646 1655 1664 1673 1682
1719 1728 1737 1746 1755 1792 1801 1810 1819 1828 1865 1874 1883 1892
1901 1938 1947 1956 1965 1974 2013 2027 2036 2045 2054 2088 2096 2104
2112 2120 2156 2164 2172 2180 2188 2224 2232 2240 2248 2256 2294 2307
2315 2323 2331 2362 2370 2378 2386 2394 2430 2438 2446 2454 2462 2498
2506 2514 2522 2530 2569 2583 2592 2601 2610 2642 2651 2660 2669 2678
2715 2724 2733 2742 2751 2788 2797 2806 2815 2824 2861 2870 2879 2888
2897 2934 2943 2952 2961 2970 3006 3014 3022 3030 3038 3074 3082 3090
3098 3106
ERRLOP 537# 955 994 1103 1176 1249 1322 1395 1468 1507 1616 1689 1762 1835
1908 1981 2020 2127 2195 2263 2301 2401 2469 2537 2576 2685 2758 2831
2904 2977 3045 3113
ERRMAC 487# 910 919 928 937 946 985 999 1008 1017 1026 1058 1067 1076
1085 1094 1131 1140 1149 1158 1167 1204 1213 1222 1231 1240 1277 1286
1295 1304 1313 1350 1359 1368 1377 1386 1423 1432 1441 1450 1459 1498
1512 1521 1530 1539 1571 1580 1589 1598 1607 1644 1653 1662 1671 1680
1717 1726 1735 1744 1753 1790 1799 1808 1817 1826 1863 1872 1881 1890
1899 1936 1945 1954 1963 1972 2011 2025 2034 2043 2052 2086 2094 2102
2110 2118 2154 2162 2170 2178 2186 2222 2230 2238 2246 2254 2292 2305
2313 2321 2329 2360 2368 2376 2384 2392 2428 2436 2444 2452 2460 2496
2504 2512 2520 2528 2567 2581 2590 2599 2608 2640 2649 2658 2667 2676
2713 2722 2731 2740 2749 2786 2795 2804 2813 2822 2859 2868 2877 2886
2895 2932 2941 2950 2959 2968 3004 3012 3020 3028 3036 3072 3080 3088
3096 3104
ERROR 496# 910 919 928 937 946 985 999 1008 1017 1058 1067 1076 1085
1094 1131 1140 1149 1158 1167 1204 1213 1222 1231 1240 1277 1286 1295
1304 1313 1350 1359 1368 1377 1386 1423 1432 1441 1450 1459 1498 1512
1521 1530 1571 1580 1589 1598 1607 1644 1653 1662 1671 1680 1717 1726
1735 1744 1753 1790 1799 1808 1817 1826 1863 1872 1881 1890 1899 1936
1945 1954 1963 1972 2011 2025 2034 2043 2086 2094 2102 2110 2118 2154
2162 2170 2178 2186 2222 2230 2238 2246 2254 2292 2305 2313 2321 2360
2368 2376 2384 2392 2428 2436 2444 2452 2460 2496 2504 2512 2520 2528
2567 2581 2590 2599 2640 2649 2658 2667 2676 2713 2722 2731 2740 2749
2786 2795 2804 2813 2822 2859 2868 2877 2886 2895 2932 2941 2950 2959
2968 3004 3012 3020 3028 3036 3072 3080 3088 3096 3104
ERRORA 500#
ERRORD 502# 1026 1539 2052 2329 2608
ERRORM 498#
GOINK 546# 893 910 914 919 923 928 932 937 941 946 950 953 957
966 985 989 992 999 1003 1008 1012 1017 1021 1026 1030 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 1350 1354 1359 1363
1368 1372 1377 1381 1386 1390 1393 1397 1406 1423 1427 1432 1436 1441
1445 1450 1454 1459 1463 1466 1470 1479 1498 1502 1505 1512 1516 1521
1525 1530 1534 1539 1543 1545 1554 1571 1575 1580 1584 1589 1593 1598
1602 1607 1611 1614 1618 1627 1644 1648 1653 1657 1662 1666 1671 1675
1680 1684 1687 1691 1700 1717 1721 1726 1730 1735 1739 1744 1748 1753
1757 1760 1764 1773 1790 1794 1799 1803 1808 1812 1817 1821 1826 1830
1833 1837 1846 1863 1867 1872 1876 1881 1885 1890 1894 1899 1903 1906
1910 1919 1936 1940 1945 1949 1954 1958 1963 1967 1972 1976 1979 1983
1992 2011 2015 2018 2025 2029 2034 2038 2043 2047 2052 2056 2058 2070
2086 2090 2094 2098 2102 2106 2110 2114 2118 2122 2125 2129 2138 2154
2158 2162 2166 2170 2174 2178 2182 2186 2190 2193 2197 2206 2222 2226
2230 2234 2238 2242 2246 2250 2254 2258 2261 2265 2274 2292 2296 2299
2305 2309 2313 2317 2321 2325 2329 2333 2335 2344 2360 2364 2368 2372
2376 2380 2384 2388 2392 2396 2399 2403 2412 2428 2432 2436 2440 2444
2448 2452 2456 2460 2464 2467 2471 2480 2496 2500 2504 2508 2512 2516
2520 2524 2528 2532 2535 2539 2548 2567 2571 2574 2581 2585 2590 2594
2599 2603 2608 2612 2614 2623 2640 2644 2649 2653 2658 2662 2667 2671
2676 2680 2683 2687 2696 2713 2717 2722 2726 2731 2735 2740 2744 2749
2753 2756 2760 2769 2786 2790 2795 2799 2804 2808 2813 2817 2822 2826
2829 2833 2842 2859 2863 2868 2872 2877 2881 2886 2890 2895 2899 2902
2906 2915 2932 2936 2941 2945 2950 2954 2959 2963 2968 2972 2975 2979
2988 3004 3008 3012 3016 3020 3024 3028 3032 3036 3040 3043 3047 3056
3072 3076 3080 3084 3088 3092 3096 3100 3104 3108 3111 3115 3186 3188
3311
GOSUB 907 916 925 934 943 982 996 1005 1014 1023 1055 1064 1073 1082
1091 1128 1137 1146 1155 1164 1201 1210 1219 1228 1237 1274 1283 1292
1301 1310 1347 1356 1365 1374 1383 1420 1429 1438 1447 1456 1495 1509
1518 1527 1536 1568 1577 1586 1595 1604 1641 1650 1659 1668 1677 1714
1723 1732 1741 1750 1787 1796 1805 1814 1823 1860 1869 1878 1887 1896
1933 1942 1951 1960 1969 2008 2022 2031 2040 2049 2564 2578 2587 2596
2605 2637 2646 2655 2664 2673 2710 2719 2728 2737 2746 2783 2792 2801
2810 2819 2856 2865 2874 2883 2892 2929 2938 2947 2956 2965
INCR 813 814 3228 3364 3365 3379 3394
JMP 646 654 664 696 762 768 796 810 821 825 832 834 836 854
874 2061 3118 3151 3187 3209 3227 3230 3292 3368 3381 3398 3433 3460
3473 3476 3479 3481 3483 3485 3487 3491 3494 3497
JMPB0 645 650 652 780 809 3226 3337 3397 3450
JMPB4 694 3468
JMPB7 731 735 795 3377
JMPC 3229 3380 3395
JMPSUB 663 742 747 760 765 771 778 779 781 782 785 786 792 807
839 843 844 845 846 850 873 893 908 910 914 917 919 923
926 928 932 935 937 941 944 946 950 953 957 966 983 985
989 992 997 999 1003 1006 1008 1012 1015 1017 1021 1024 1026 1030
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 1348 1350 1354 1357 1359 1363 1366 1368 1372 1375
1377 1381 1384 1386 1390 1393 1397 1406 1421 1423 1427 1430 1432 1436
1439 1441 1445 1448 1450 1454 1457 1459 1463 1466 1470 1479 1496 1498
1502 1505 1510 1512 1516 1519 1521 1525 1528 1530 1534 1537 1539 1543
1545 1554 1569 1571 1575 1578 1580 1584 1587 1589 1593 1596 1598 1602
1605 1607 1611 1614 1618 1627 1642 1644 1648 1651 1653 1657 1660 1662
1666 1669 1671 1675 1678 1680 1684 1687 1691 1700 1715 1717 1721 1724
1726 1730 1733 1735 1739 1742 1744 1748 1751 1753 1757 1760 1764 1773
1788 1790 1794 1797 1799 1803 1806 1808 1812 1815 1817 1821 1824 1826
1830 1833 1837 1846 1861 1863 1867 1870 1872 1876 1879 1881 1885 1888
1890 1894 1897 1899 1903 1906 1910 1919 1934 1936 1940 1943 1945 1949
1952 1954 1958 1961 1963 1967 1970 1972 1976 1979 1983 1992 2009 2011
2015 2018 2023 2025 2029 2032 2034 2038 2041 2043 2047 2050 2052 2056
2058 2070 2084 2086 2090 2092 2094 2098 2100 2102 2106 2108 2110 2114
2116 2118 2122 2125 2129 2138 2152 2154 2158 2160 2162 2166 2168 2170
2174 2176 2178 2182 2184 2186 2190 2193 2197 2206 2220 2222 2226 2228
2230 2234 2236 2238 2242 2244 2246 2250 2252 2254 2258 2261 2265 2274
2290 2292 2296 2299 2303 2305 2309 2311 2313 2317 2319 2321 2325 2327
2329 2333 2335 2344 2358 2360 2364 2366 2368 2372 2374 2376 2380 2382
2384 2388 2390 2392 2396 2399 2403 2412 2426 2428 2432 2434 2436 2440
2442 2444 2448 2450 2452 2456 2458 2460 2464 2467 2471 2480 2494 2496
2500 2502 2504 2508 2510 2512 2516 2518 2520 2524 2526 2528 2532 2535
2539 2548 2565 2567 2571 2574 2579 2581 2585 2588 2590 2594 2597 2599
2603 2606 2608 2612 2614 2623 2638 2640 2644 2647 2649 2653 2656 2658
2662 2665 2667 2671 2674 2676 2680 2683 2687 2696 2711 2713 2717 2720
2722 2726 2729 2731 2735 2738 2740 2744 2747 2749 2753 2756 2760 2769
2784 2786 2790 2793 2795 2799 2802 2804 2808 2811 2813 2817 2820 2822
2826 2829 2833 2842 2857 2859 2863 2866 2868 2872 2875 2877 2881 2884
2886 2890 2893 2895 2899 2902 2906 2915 2930 2932 2936 2939 2941 2945
2948 2950 2954 2957 2959 2963 2966 2968 2972 2975 2979 2988 3002 3004
3008 3010 3012 3016 3018 3020 3024 3026 3028 3032 3034 3036 3040 3043
3047 3056 3070 3072 3076 3078 3080 3084 3086 3088 3092 3094 3096 3100
3102 3104 3108 3111 3115 3154 3176 3186 3188 3193 3199 3201 3202 3204
3205 3231 3234 3268 3304 3311 3316 3322 3324 3325 3327 3328 3338
JMPZ 740 761 766 772 793 812 861 909 915 918 924 927 933 936
942 945 951 956 958 984 990 995 998 1004 1007 1013 1016 1022
1025 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 1349 1355 1358 1364 1367
1373 1376 1382 1385 1391 1396 1398 1422 1428 1431 1437 1440 1446 1449
1455 1458 1464 1469 1471 1497 1503 1508 1511 1517 1520 1526 1529 1535
1538 1544 1546 1570 1576 1579 1585 1588 1594 1597 1603 1606 1612 1617
1619 1643 1649 1652 1658 1661 1667 1670 1676 1679 1685 1690 1692 1716
1722 1725 1731 1734 1740 1743 1749 1752 1758 1763 1765 1789 1795 1798
1804 1807 1813 1816 1822 1825 1831 1836 1838 1862 1868 1871 1877 1880
1886 1889 1895 1898 1904 1909 1911 1935 1941 1944 1950 1953 1959 1962
1968 1971 1977 1982 1984 2010 2016 2021 2024 2030 2033 2039 2042 2048
2051 2057 2059 2085 2091 2093 2099 2101 2107 2109 2115 2117 2123 2128
2130 2153 2159 2161 2167 2169 2175 2177 2183 2185 2191 2196 2198 2221
2227 2229 2235 2237 2243 2245 2251 2253 2259 2264 2266 2291 2297 2302
2304 2310 2312 2318 2320 2326 2328 2334 2336 2359 2365 2367 2373 2375
2381 2383 2389 2391 2397 2402 2404 2427 2433 2435 2441 2443 2449 2451
2457 2459 2465 2470 2472 2495 2501 2503 2509 2511 2517 2519 2525 2527
2533 2538 2540 2566 2572 2577 2580 2586 2589 2595 2598 2604 2607 2613
2615 2639 2645 2648 2654 2657 2663 2666 2672 2675 2681 2686 2688 2712
2718 2721 2727 2730 2736 2739 2745 2748 2754 2759 2761 2785 2791 2794
2800 2803 2809 2812 2818 2821 2827 2832 2834 2858 2864 2867 2873 2876
2882 2885 2891 2894 2900 2905 2907 2931 2937 2940 2946 2949 2955 2958
2964 2967 2973 2978 2980 3003 3009 3011 3017 3019 3025 3027 3033 3035
3041 3046 3048 3071 3077 3079 3085 3087 3093 3095 3101 3103 3109 3114
3116 3185 3203 3208 3291 3326 3358 3367
JUMP 2060 3472 3475 3478 3480 3482 3490 3493 3496
LANDB 718 738 753
LANDBR 673 691 737 751 3405
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 913 916
922 925 931 934 940 943 949 952 965 972 974 976 978 980
982 988 991 996 1002 1005 1011 1014 1020 1023 1029 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 1353 1356 1362
1365 1371 1374 1380 1383 1389 1392 1405 1412 1414 1416 1418 1420 1426
1429 1435 1438 1444 1447 1453 1456 1462 1465 1478 1485 1487 1489 1491
1493 1495 1501 1504 1509 1515 1518 1524 1527 1533 1536 1542 1553 1560
1562 1564 1566 1568 1574 1577 1583 1586 1592 1595 1601 1604 1610 1613
1626 1633 1635 1637 1639 1641 1647 1650 1656 1659 1665 1668 1674 1677
1683 1686 1699 1706 1708 1710 1712 1714 1720 1723 1729 1732 1738 1741
1747 1750 1756 1759 1772 1779 1781 1783 1785 1787 1793 1796 1802 1805
1811 1814 1820 1823 1829 1832 1845 1852 1854 1856 1858 1860 1866 1869
1875 1878 1884 1887 1893 1896 1902 1905 1918 1925 1927 1929 1931 1933
1939 1942 1948 1951 1957 1960 1966 1969 1975 1978 1991 1998 2000 2002
2004 2006 2008 2014 2017 2022 2028 2031 2037 2040 2046 2049 2055 2060
2069 2076 2078 2080 2082 2089 2097 2105 2113 2121 2124 2137 2144 2146
2148 2150 2157 2165 2173 2181 2189 2192 2205 2212 2214 2216 2218 2225
2233 2241 2249 2257 2260 2273 2280 2282 2284 2286 2288 2295 2298 2308
2316 2324 2332 2343 2350 2352 2354 2356 2363 2371 2379 2387 2395 2398
2411 2418 2420 2422 2424 2431 2439 2447 2455 2463 2466 2479 2486 2488
2490 2492 2499 2507 2515 2523 2531 2534 2547 2554 2556 2558 2560 2562
2564 2570 2573 2578 2584 2587 2593 2596 2602 2605 2611 2622 2629 2631
2633 2635 2637 2643 2646 2652 2655 2661 2664 2670 2673 2679 2682 2695
2702 2704 2706 2708 2710 2716 2719 2725 2728 2734 2737 2743 2746 2752
2755 2768 2775 2777 2779 2781 2783 2789 2792 2798 2801 2807 2810 2816
2819 2825 2828 2841 2848 2850 2852 2854 2856 2862 2865 2871 2874 2880
2883 2889 2892 2898 2901 2914 2921 2923 2925 2927 2929 2935 2938 2944
2947 2953 2956 2962 2965 2971 2974 2987 2994 2996 2998 3000 3007 3015
3023 3031 3039 3042 3055 3062 3064 3066 3068 3075 3083 3091 3099 3107
3110 3120 3122 3149 3152 3155 3157 3161 3167 3169 3171 3177 3189 3191
3194 3197 3211 3213 3215 3217 3221 3235 3237 3239 3269 3271 3275 3281
3283 3285 3288 3293 3301 3305 3312 3314 3317 3320 3330 3333 3339 3341
3343 3347 3361 3373 3384 3388 3392 3401 3404 3406 3409 3413 3415 3417
3421 3423 3425 3427 3431 3434 3436 3440 3442 3444 3454 3457 3462 3465
3472 3475 3478 3480 3482 3484 3486 3488 3490 3493 3496
LDMAR 682 3200 3287 3323
LDMARX 683
LDMEM 685
LORB 675 3407
LORBR 716 725 754
LORCM 3438
MOV 681 688 692 708 730 748 773 775 777 797 802 804 806 815
817 840 851 3159 3164 3179 3184 3273 3278 3295 3298 3307 3349 3351
3354 3356 3359 3386 3459
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 973 975
977 979 981 1048 1050 1052 1054 1121 1123 1125 1127 1194 1196 1198
1200 1267 1269 1271 1273 1340 1342 1344 1346 1413 1415 1417 1419 1486
1488 1490 1492 1494 1561 1563 1565 1567 1634 1636 1638 1640 1707 1709
1711 1713 1780 1782 1784 1786 1853 1855 1857 1859 1926 1928 1930 1932
1999 2001 2003 2005 2007 2077 2079 2081 2083 2145 2147 2149 2151 2213
2215 2217 2219 2281 2283 2285 2287 2289 2351 2353 2355 2357 2419 2421
2423 2425 2487 2489 2491 2493 2555 2557 2559 2561 2563 2630 2632 2634
2636 2703 2705 2707 2709 2776 2778 2780 2782 2849 2851 2853 2855 2922
2924 2926 2928 2995 2997 2999 3001 3063 3065 3067 3069 3121 3123 3150
3153 3156 3158 3160 3162 3163 3166 3168 3170 3172 3173 3174 3175 3178
3180 3181 3190 3192 3195 3196 3198 3212 3214 3216 3218 3222 3236 3238
3240 3270 3272 3274 3276 3277 3280 3282 3284 3286 3289 3294 3297 3300
3302 3303 3306 3308 3309 3313 3315 3318 3319 3321 3331 3334 3340 3342
3344 3348 3350 3352 3360 3362 3374 3385 3387 3389 3393 3402 3408 3410
3414 3416 3418 3422 3424 3426 3428 3432 3435 3437 3439 3441 3443 3445
3455 3458 3463 3466 3474 3477 3489 3492 3495
MOVMEM 686 767 803 805 816 818 3355
NAME 2# 2
OSB 739
OSM 3357
READ 523# 3186
READB 524# 3188
REPEAT 517# 957 1032 1105 1178 1251 1324 1397 1470 1545 1618 1691 1764 1837
1910 1983 2058 2129 2197 2265 2335 2403 2471 2539 2614 2687 2760 2833
2906 2979 3047 3115
RETURN 667 677 699 706 710 720 726 733 741 745 757 783 787 847
862 3124 3206 3219 3232 3241 3329 3345 3363 3370 3378 3382 3390 3399
3411 3419 3429 3446 3451 3452 3469 3470
SHL 734 794 3376 3467
SHR 644 648 649 651 666 693 3165 3224 3225 3279 3336 3449
TEST 882# 883 960 1035 1108 1181 1254 1327 1400 1473 1548 1621 1694 1767
1840 1913 1986 2064 2132 2200 2268 2338 2406 2474 2542 2617 2690 2763
2836 2909 2982 3050
TSB 3296 3299
WRITE 522# 3311
.ECRAM 606# 3472
.END 3595
.INIT 636
.LOC 2062
.MEM 3498