Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/mcode2.lst
There are no other files named mcode2.lst in the archive.
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 1
MCOD2T MAC 17-Oct-88 14:28 CHANNEL BUS INTERFACE TEST - PART 1
1 XLIST
2 LIST
3
4
5
6
7 TITLE MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0.1
8
9
10
11
12
13 ^
14
15
16
17
18 COMMENT $
19
20 MCODE2 IS THE 1ST PART OF A 2 PART MICRODIAGNOSTIC OF THE
21 CHANNEL BUS INTERFACE. IT IS MAINLY A LOGIC TEST (AS OPPOSED TO A FUNCTIONAL
22 TEST) WHICH DOES THE FOLLOWING:
23
24 (1) TESTS THE WRITING AND READING OF THE MICROBUS REGISTERS,
25 (2) TESTS THE HANDSHAKING LOGIC ASSOCIATED WITH CHANNEL MODE
26 TRANSFERS. THIS IS ON BOTH THE DATA PATH SIDE AND THE
27 CHANNEL BUS SIDE.
28
29 IN ORDER TO SIMULATE THE ACTIONS OF A DEVICE ON THE CHANNEL BUS, THE LOOP
30 BACK FEATURE IS USED. THIS ALLOWS THE LOOPING BACK OF TAG OUT AND BUS OUT
31 LINES INTO TAG IN AND BUS IN LINES, RESPECTIVELY. THE BUS OUT LINES ARE
32 LOOPED BACK COMPLEMENTED.
33
34 WHEN THE DX20 IS OPERATING AS A CONTROL UNIT, IT IS REQUIRED THAT THE DIAGNOSTIC
35 NOT ALLOW ANY SIGNALS TO PROPAGATE ONTO THE TAG OUT OR BUS OUT LINES. TO
36 INSURE THIS, THE "ON LINE" BIT IS KEPT CLEARED. THIS DISABLES THE DRIVERS.
37 IN THE ONE TEST WHERE "ON LINE" IS SET (TO TEST THAT IT CAN BE SET), "CU RESET"
38 IS ENABLED SO THAT THE DRIVERS WILL REMAIN DISABLED. ALSO, AFTER CLEARING
39 "ON LINE" A WAIT PERIOD MUST BE OBSERVED BEFORE CHANNEL MODE OR LOOP ENABLE
40 CAN BE ASSERTED. THIS IS TO INSURE PROPAGATION OF "SEL OUT".
41
42 NOTE: ALL DOCUMENTATION USES THE TERM "SET" TO DENOTE THE ASSERTION OF A
43 SIGNAL AND "CLEAR" TO DENOTE ITS NEGATION, WHETHER OR NOT THE SIGNAL
44 IS ASSERTED HIGH OR LOW.
45
46 $
47 000100 RPTCNT= 100 ;SET REPEAT COUNT TO 100 TIMES
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 2
MCOD2T MAC 17-Oct-88 14:28 CHANNEL BUS INTERFACE REGISTER BIT DEFINITIONS
48 SUBTTL CHANNEL BUS INTERFACE REGISTER BIT DEFINITIONS
49
50 ;DEFINE CHANNEL BUS INTERFACE REGISTERS
51
52 000000 CSR0=0 ;CONTROL AND STATUS REGISTER 0 (READ/WRITE CLEAR)
53 000001 CSR1=1 ;CONTROL AND STATUS REGISTER 1 (READ/WRITE)
54 000002 TOR0=2 ;TAG OUT REGISTER 0 (READ/WRITE)
55 000003 TOR1=3 ;TAG OUT REGISTER 1 (READ/WRITE)
56 000004 TAGIN0=4 ;TAG IN REGISTER 0 (READ ONLY)
57 000005 TAGIN1=5 ;TAG IN REGISTER 1 (READ ONLY BITS 7-4)
58 000005 SPADR=5 ;SCRATCH PAD ADDRESS REGISTER (READ/WRITE BITS 3-0)
59 000006 DRLO=6 ;DATA REGISTER 0 (READ ONLY)
60 000007 CBILO=7 ;BUS IN REGISTER 0 (READ ONLY)
61 000010 SPDALO=10 ;SCRATCH PAD DATA REGISTER 0 (WRITE ONLY)
62 000011 BORLO=11 ;BUS OUT REGISTER 0 (WRITE ONLY)
63 000012 DRHI=12 ;DATA REGISTER 1 (READ ONLY)
64 000013 CBIHI=13 ;BUS IN REGISTER 1 (READ ONLY)
65 000014 SPDAHI=14 ;SCRATCH PAD DATA REGISTER 1 (WRITE ONLY)
66 000015 BORHI=15 ;BUS OUT REGISTER 1 (WRITE ONLY)
67 000016 CUSTAT=16 ;CONTROL UNIT RESET STATUS REGISTER (WRITE ONLY)
68
69 ;WRITEABLE PULSES DEFINITIONS
70
71 000004 CLSLRQ=4 ;CLEAR SLVE REQ PULSE
72 000006 CLKDRL=6 ;CLOCK DR REG 0
73
74 ;REGISTER BIT DEFINITIONS
75
76 ;CSR0
77
78 ;READ ONLY BITS
79
80 000200 EXFER=1B28 ;END XFER
81 000100 TIMOUT=1B29 ;TIME OUT FLAG
82 000040 DPPE=1B30 ;DP PE FLAG
83 000020 UBPE=1B31 ;UB PE FLAG
84 000010 MKPE=1B32 ;MK PE FLAG
85 000004 BUS1PE=1B33 ;BUS1 PE FLAG
86 000002 BUS0PE=1B34 ;BUS0 PE FLAG
87 000001 SLVSEL=1B35 ;SLVE SEL
88
89 ;WRITE ONLY BITS
90
91 000002 CLRFLG=1B34 ;CLEARS ALL FLAGS
92 000001 CSLVSL=1B35 ;CLEARS "SLVE SEL"
93
94 ;CSR1
95
96 000200 SPEN=1B28 ;SP ENABLE
97 000100 DIHISP=1B29 ;DIAG HIGH SPEED
98 000040 EVPAR=1B30 ;EVEN PAR
99 000020 EXTBUS=1B31 ;EXTENDED BUS
100 000010 MOD360=1B32 ;360 MODE
101 000004 LOOPEN=1B33 ;LOOP ENABLE
102 000002 ONLINE=1B34 ;ON LINE
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 2-1
MCOD2T MAC 17-Oct-88 14:28 CHANNEL BUS INTERFACE REGISTER BIT DEFINITIONS
103 000001 CHANL=1B35 ;CHANNEL MODE
104
105 ;TOR0
106
107 000200 SRVOUT=1B28 ;TOR SRV OUT
108 000100 CLKOUT=1B29 ;TOR CLK OUT
109 000040 MTROUT=1B30 ;TOR MTR OUT
110 000020 ADROUT=1B31 ;TOR ADR OUT
111 000010 HLDOUT=1B32 ;TOR HLD OUT
112 000004 TMREN=1B33 ;TIMER INTERRUPT ENABLE
113 000002 SELOUT=1B34 ;TOR SEL OUT
114 000001 CMDOUT=1B35 ;TOR CMD OUT
115
116 ;TOR1
117
118 000200 OPLOUT=1B28 ;TOR OPL OUT
119 000100 CURSEN=1B29 ;ENABLE CU RESET
120 000040 SUPOUT=1B30 ;TOR SUP OUT
121 000020 DATOUT=1B31 ;TOR DAT OUT
122 000010 DISACK=1B32 ;DIAG SLVE ACK
123 000004 DIMUX=1B33 ;DIAG MUX BIT
124 000002 TODOUT=1B34 ;TO DAT OUT
125 000001 TOSOUT=1B35 ;TO SRV OUT
126
127 ;TAGIN0
128
129 000200 OPLIN=1B28 ;TI OPL IN
130 000100 MK0IN=1B29 ;TI MK 0 IN
131 000040 MK1IN=1B30 ;TI MK 1 IN
132 000020 ADRIN=1B31 ;TI ADR IN
133 000010 TOHOUT=1B32 ;TO HLD OUT
134 000004 MTRIN=1B33 ;TI MTR IN
135 000002 SELIN=1B34 ;TI SEL IN
136 000001 STAIN=1B35 ;TI STA IN
137
138 ;TAGIN1
139
140 000200 SRVIN=1B28 ;TI SRV IN
141 000100 DISIN=1B29 ;TI DIS IN
142 000040 REQIN=1B30 ;TI REQ IN
143 000020 DATIN=1B31 ;TI DAT IN
144
145 ;SPADR
146
147 000017 SPABTS=17B35 ;SP ADDR BITS
148
149 ;CUSTAT
150
151 000004 SELRST=1B33 ;SEL RESET
152 000002 SYSRST=1B34 ;SYS RESET
153 000001 HALTIO=1B35 ;HALT I/O
154
155 ;LOOPED BACK BIT DEFINITIONS
156
157 ;TOR0
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 2-2
MCOD2T MAC 17-Oct-88 14:28 CHANNEL BUS INTERFACE REGISTER BIT DEFINITIONS
158
159 000200 OPLINL=1B28 ;OPL IN
160 000100 MK0INL=1B29 ;MK 0 IN
161 000040 MK1INL=1B30 ;MK 1 IN
162 000020 ADRINL=1B31 ;ADR IN
163 000010 HLDOTL=1B32 ;TO HLD OUT
164 000002 SELINL=1B34 ;SEL IN
165 000001 STAINL=1B35 ;STA IN
166
167 ;TOR1
168
169 000200 SRVINL=1B28 ;SRV IN
170 000100 DISINL=1B29 ;DIS IN
171 000040 REQINL=1B30 ;REQ IN
172 000020 DATINL=1B31 ;DAT IN
173
174 ;*SOME DATA PATH DEFINITIONS
175
176 000013 HSDPIN=13 ;HS DP INIT
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 1
MCERR MAC 17-Oct-88 14:28 CHANNEL BUS INTERFACE REGISTER BIT DEFINITIONS
177 IF2 <PRINTX STARTING BINARY FILE>
178 SEARCH DX20CA ;READ THE CROSS ASSEMBLER
179
180 ;MASSBUS REGISTER BIT DEFINITIONS
181
182 ;STATUS & CONTROL REGISTER 1
183
184 000000 MPSCR0== 0 ;REGISTER NAME
185 000001 RUN== 1 ;RUN LINE FROM RH20
186 000002 GO== 2 ;GO BIT
187 000174 FN== 174 ;FUNCTION CODE
188 000004 F0== 4 ;FUNCTION BIT 0
189 000010 F1== 10 ;FUNCTION BIT 1
190 000020 F2== 20 ;FUNCTION BIT 2
191 000040 F3== 40 ;FUNCTION BIT 3
192 000100 F4== 100 ;FUNCTION BIT 4
193 000200 WCLK== 200 ;WRITE CLOCK LINE FROM RH20
194
195 ;STATUS AND CONTROL REGISTER 2
196
197 000001 MPSCR1== 1 ;REGISTER NAME
198 000001 DONE== 1 ;DATA TRANSFER DONE (READ)
199 000001 EBL== 1 ;SET EBL (WRITE)
200 000002 EXC== 2 ;EXCEPTION LINE FROM RH20 (READ)
201 000002 CLRGO== 2 ;SET TO CLEAR GO (WRITE)
202 000004 CMPERR== 4 ;COMPOSITE ERROR FLAG (READ)
203 000004 START== 4 ;START A DATA TRANSFER (WRITE)
204 000010 DTD== 10 ;DATA TO DEVICE
205 000020 OCC== 20 ;OCCUPIED
206 000040 ILF== 40 ;ILLEGAL FUNCTION
207 000100 MPERR== 100 ;MICRO-PROCESSOR DETECTED ERROR FLAG
208 000200 ATA== 200 ;ATTENTION
209
210 ;ERROR CODE REGISTER
211
212 000002 MPECR== 2 ;REGISTER NAME
213
214 ;DRIVE TYPE REGISTER
215
216 000003 MPDTR== 3 ;REGISTER NAME
217
218 ;HARDWARE VERSION REGISTER
219
220 000004 MPHVR== 4 ;REGISTER NAME
221
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 2
MCERR MAC 17-Oct-88 14:28 CHANNEL BUS INTERFACE REGISTER BIT DEFINITIONS
222 ;DATA BUFFER REGISTER 0
223
224 000005 MPDB0== 5 ;REGISTER NAME
225
226 ;DATA BUFFER REGISTER 1
227
228 000006 MPDB1== 6 ;REGISTER NAME
229
230 ;DATA BUFFER REGISTER 2
231
232 000007 MPDB2== 7 ;REGISTER NAME
233
234 000003 DB== 3 ;DATA BUFFER BITS 16 AND 17
235 000004 DBPAR== 4 ;PARITY BIT
236 000010 DBPARE== 10 ;PARITY ERROR (READ)
237 000020 DBEVEN== 20 ;DATA BUFFER EVEN PARITY CONTROL
238
239 ;GENERAL PURPOSE REGISTERS
240
241 000010 MPGP0==10 ;REGISTER NAMES
242 000011 MPGP1==11
243 000012 MPGP2==12
244 000013 MPGP3==13
245 000014 MPGP4==14
246 000015 MPGP5==15
247 000016 MPGP6==16
248 000017 MPGP7==17
249 000020 MPGP10==20
250 000021 MPGP11==21
251 000022 MPGP12==22
252 000023 MPGP13==23
253 000024 MPGP14==24
254 000025 MPGP15==25
255 000026 MPGP16==26
256 000027 MPGP17==27
257
258 ;MP STATUS REGISTER
259
260 000036 MPSTAT==36 ;REGISTER NAME
261 000001 INT0== 1 ;INTERRUPT LINE 0
262 000002 INT1== 2 ;INTERRUPT LINE 1
263 000004 INT2== 4 ;INTERRUPT LINE 2
264 000010 INT3== 10 ;INTERRUPT LINE 3
265 000020 C== 20 ;CARRY BIT
266 000040 Z== 40 ;ZERO BIT
267
268 ;I/O BANK SELECT REGISTER
269
270 000037 IOSEL==37 ;REGISTER NAME
271 000007 INADR== 7 ;INPUT BANK ADDRESS
272 000070 OUTADR== 70 ;OUTPUT BANK ADDRESS
273 000100 SPRES== 100 ;STACK POINTER RESET
274 000200 INIT== 200 ;INITIALIZE
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 3
MCERR MAC 17-Oct-88 14:28 CHANNEL BUS INTERFACE REGISTER BIT DEFINITIONS
275 ;THE FOLLOWING AC'S ARE USED BY THE ERROR HANDLER
276
277 ; AC7 FLAG REGISTER
278 ; AC6 REPEAT COUNTER
279 ; AC5 SAVE OF BR (DURING CALL ONLY)
280 ; AC4 SAVE OF I/O SELECT REGISTER (DURING CALL ONLY)
281 ; AC1 CORRECT DATA FOR ERRORA CALL
282 ; AC0 ACTUAL DATA FOR ERRORA AND ERRORM CALLS
283
284 ;FLAG REGISTER BITS
285
286 ; BIT 7 ERROR LOOP
287 ; BIT 6 ERROR DETECTED
288 ; BIT 5 RELIABILITY MODE
289 ; 4 - 0 LAST ERROR NUMBER
290
291 777777 777777 %TNUM== -1 ;SET TEST NUMBER TO -1 SO ENTIRE DRIVE REGISTER
292
293 000000 %REQ==0
294 IFDEF RHDATA,<%REQ==1>
295 IFDEF CUADRS,<%REQ==1>
296 ;IS LOADED WITH TEST NUMBER ON FIRST TEST
297
298 DEFINE DEFTST(PROG),<
299 DEFINE TEST(E,NAME,X<;*>),<
300
301 LALL
302 X'**********************************************************************
303 X PROG * TEST E * NAME
304 X'**********************************************************************
305 SALL
306
307 IFN <^D'E^!%TNUM>&177400,<
308 IFG %TNUM,<DATI IOSEL,AC6 ;;SAVE THE IOSEL REG>
309 LDBR 11 ;;GET DEVICE CODE FOR MASSBUS INTERFACE
310 MOVB IOSEL ;;LOAD INTO I/O SELECT REGISTER
311 LDBR ^D'E_-8 ;;GET HIGH ORDER BITS OF TEST NUMBER
312 MOVB MPGP1 ;;LOAD INTO MASSBUS REG 20
313 IFG %TNUM,< MOV AC6,BR ;;GET SAVED IOSEL REG
314 MOVB IOSEL ;;RESTORE IT>
315 >
316 LDBR ^D'E&377 ;;GET LOW ORDER BITS OF TEST NUMBER
317 GOINK TESTI ;;GO INITIALIZE TEST
318 %TNUM==^D'E ;;REMEMBER TEST NUMBER
319 %EMES==0 ;;CLEAR ERROR MESSAGE NUMBER
320 TST==TST'E ;;REMEMBER TEST PC
321 LALL
322
323 TST'E: SALL
324 >>
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 4
MCERR MAC 17-Oct-88 14:28 CHANNEL BUS INTERFACE REGISTER BIT DEFINITIONS
325 000200 PNT==200 ;ADDITIONAL PRINT ROUTINE REQUEST FLAG
326 ;ERROR PRINT ROUTINE NUMBER MUST BE IN DXGP3
327
328 DEFINE ERRMAC(ADR,LADR,PRTN,COR),<
329 GOINK ERRSET ;;GO SET ERROR DETECTED FLAG
330 LPADR==ADR ;;REMEMBER ERROR LOOP ADDRESS
331 CORF==<PRTN&PNT>!COR ;;REMEMBER IF CORRECT AND ACTUAL DATA
332 LALL
333
334 ERLOOP LADR ;;IF ERROR, LOOP TO LADR
335 >
336
337 DEFINE ERROR(LADR,MES1,MES2,PRTN<0>),<ERRMAC ERLP,LADR,PRTN,0>
338
339 DEFINE ERRORM(LADR,MES1,MES2,PRTN<0>),<ERRMAC ERLPM,LADR,PRTN,100>
340
341 DEFINE ERRORA(LADR,MES1,MES2,PRTN<0>),<ERRMAC ERLPA,LADR,PRTN,100>
342
343 DEFINE ERRORD(LADR,MES1,MES2,PRTN<0>),<ERRMAC ERLPD,LADR,PRTN,40>
344
345 DEFINE ERLOOP(ADR),<SALL
346 IFN %EMES&<^-37>,<IF2 <
347 LALL
348
349 PRINTX ?TOO MANY ERROR MESSAGES IN ONE TEST
350 SALL
351 >>
352 LDBR CORF!%EMES ;;LOAD MESSAGE NUMBER
353 GOINK LPADR ;;GO TO ERROR HANDLER
354 JMPZ ADR ;;LOOP IF Z IS SET
355 %EMES==%EMES+1 ;;UPDATE THE MESSAGE NUMBER
356 >
357
358 DEFINE REPEAT(RADR),<
359 GOINK REPTU ;;GO TO REPEAT ROUTINE
360 JMPZ RADR ;;REPEAT IF Z IS SET
361 >
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 5
MCERR MAC 17-Oct-88 14:28 CHANNEL BUS INTERFACE REGISTER BIT DEFINITIONS
362 IFDEF RHDATA,<
363 DEFINE WRITE,<GOINK SETWRT ;;CALL ROUTINE TO SET UP RH20>
364 DEFINE READ,<GOINK SETRD ;;CALL ROUTINE TO SET UP RH20>
365 DEFINE READB,<GOINK SETRDB ;;CALL ROUTINE TO SET UP RH20>
366
367 DEFINE CHKRH(LADR,PRTN,CODE),<
368 LDBR <PRTN&PNT>!%EMES!CODE ;;SET UP CODE FOR EC REGISTER
369 GOINK CKTRM ;;CALL HOST TO CHECK TERMINATION OF RH20
370 LALL
371
372 ERRLOP LADR ;;IF ERROR, LOOP TO LADR
373 %EMES==%EMES+1
374 >
375 DEFINE CHKTRM(LADR,MES1,MES2,PRTN<0>),<CHKRH LADR,PRTN,40>
376 DEFINE CHKERR(LADR,MES1,MES2,PRTN<0>),<CHKRH LADR,PRTN,140>
377
378 DEFINE ERRLOP(LADR),<SALL
379 JMPZ LADR ;;IF ERROR, LOOP TO LADR
380 >
381 >
382 IFDEF CUADRS,<
383 DEFINE SNDADR,<GOINK SENDAD ;;CALL ROUTINE TO SEND CU ADDRESSES>
384 >
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 6
MCERR MAC 17-Oct-88 14:28 CHANNEL BUS INTERFACE REGISTER BIT DEFINITIONS
385 000000 %ADRH==0 ;;CLEAR HIGH ADDRESS REFERENCE FLAG
386
387 DEFINE GOINK(ADR),<
388 IFE .&<^-1777>,<
389 JMPSUB ADR ;;GO TO ADDRESS IN LOW 1K
390 >
391 IFN .&<^-1777>,<
392 IFIDN <ADR><TESTI>,<
393 JMPSUB TESTIH
394 %ADRH==%ADRH!1
395 >
396 IFIDN <ADR><LPADR>,<
397 IFE <LPADR-ERLP>,<
398 JMPSUB ERLPH
399 %ADRH==%ADRH!2
400 >
401 IFE <LPADR-ERLPM>,<
402 JMPSUB ERLPMH
403 %ADRH==%ADRH!4
404 >
405 IFE <LPADR-ERLPA>,<
406 JMPSUB ERLPAH
407 %ADRH==%ADRH!10
408 >
409 IFDEF CATAB,<
410 IFE <LPADR-ERLPD>,<
411 JMPSUB ERLPDH
412 %ADRH==%ADRH!400
413 >
414 >
415 >
416 IFIDN <ADR><ERRSET>,<
417 JMPSUB ERSETH
418 %ADRH==%ADRH!20
419 >
420 IFIDN <ADR><REPTU>,<
421 JMPSUB REPTUH
422 %ADRH==%ADRH!40
423 >
424 IFDEF RHDATA,<
425 IFIDN <ADR><SETWRT>,<
426 JMPSUB STWRTH
427 %ADRH==%ADRH!100
428 >
429 IFIDN <ADR><SETRD>,<
430 JMPSUB STRDH
431 %ADRH==%ADRH!100
432 >
433 IFIDN <ADR><SETRDB>,<
434 JMPSUB STRDBH
435 %ADRH==%ADRH!100
436 >
437 IFIDN <ADR><CKTRM>,<JMPSUB CKTRMH>
438 >
439 IFDEF CUADRS,<
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 6-1
MCERR MAC 17-Oct-88 14:28 CHANNEL BUS INTERFACE REGISTER BIT DEFINITIONS
440 IFIDN <ADR><SENDAD>,<
441 JMPSUB SNDADH
442 %ADRH==%ADRH!200
443 >
444 >
445 >
446 >
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 7
MCERR MAC 17-Oct-88 14:28 CHANNEL BUS INTERFACE REGISTER BIT DEFINITIONS
447 DEFINE .ECRAM,<
448 IFE .&<^-1777>,< JMP BEGEND>
449 IFN .&<^-1777>,< JUMP BEGEND>
450 IFN %ADRH&1,< TESTIH: MOVB AC5
451 JUMP TEST0I>
452 IFN %ADRH&2,< ERLPH: MOVB AC5
453 JUMP ERLP0>
454 IFN %ADRH&4,< ERLPMH: MOVB AC5
455 JUMP ERLPM0>
456 IFN %ADRH&10,< ERLPAH: MOVB AC5
457 JUMP ERLPA0>
458 IFN %ADRH&20,< ERSETH: JUMP ERRSET>
459 IFN %ADRH&40,< REPTUH: JUMP REPTU>
460 IFN %ADRH&100,< STWRTH: LDBR 1
461 JMP CALLH
462 STRDH: LDBR 2
463 JMP CALLH
464 STRDBH: LDBR 3
465 CALLH: MOVB AC5
466 JUMP CALL0
467 CKTRMH: MOVB AC5
468 JUMP CKTRM0>
469 IFN %ADRH&200,< SNDADH: LDBR 200
470 MOVB AC5
471 JUMP CALL0>
472 IFN %ADRH&400,< ERLPDH: MOVB AC5
473 JUMP ERLPD0>
474 >
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 8
MCERR MAC 17-Oct-88 14:28 CHANNEL BUS INTERFACE REGISTER BIT DEFINITIONS
475 ;MICRO-DIAGNOSTIC START ROUTINE
476
477 .INIT ^ ;INITIALIZE THE CROSS ASSEMBLER
478
479 SALL
480 000000 0 002000 01 0000
481
482 000001 0 002011 0 1 0 011 BEGIN: LDBR 11 ;SELECT THE MASSBUS
483 000002 0 066371 3 3 0 17 11 MOVB IOSEL ;INTERFACE
484 000003 0 022000 1 1 0 00 00 WAITGO: DATI MPSCR0,BR ;READ CONTROL REGISTER
485 000004 0 014000 0 6 0 000 SHR ;SHIFT GO BIT TO BIT 0
486 000005 0 104007 4 2 0007 JMPB0 .+2 ;JUMP AROUND IF GO IS SET
487 000006 0 100003 4 0 0003 JMP WAITGO ;NOT YET, KEEP WAITING
488 000007 0 022000 1 1 0 00 00 DATI MPSCR0,BR ;READ THE FUNCTION CODE AGAIN
489 000010 0 014000 0 6 0 000 SHR ;SHIFT RIGHT
490 000011 0 014000 0 6 0 000 SHR ;SHIFT F0 TO BIT 0
491 000012 0 104031 4 2 0031 JMPB0 CMDF0 ;JUMP IF F0 IS SET
492 000013 0 014000 0 6 0 000 SHR ;SHIFT F1 TO BIT 0
493 000014 0 104017 4 2 0017 JMPB0 .+3 ;JUMP IF RELIABILITY MODE REQUESTED
494 000015 0 002000 0 1 0 000 LDBR 0 ;SET UP FLAG REG WITH ALL ZEROS
495 000016 0 100020 4 0 0020 JMP .+2
496 000017 0 002040 0 1 0 040 LDBR 40 ;SET RELIABILITY MODE FLAG
497 000020 0 072171 3 5 0 07 11 MOVB AC7 ;PUT IN AC7
498 000021 0 002300 0 1 0 300 LDBR INIT+SPRES ;RESET THE DX20
499 000022 0 066371 3 3 0 17 11 MOVB IOSEL ;AND THE STACK POINTER
500 000023 0 002011 0 1 0 011 LDBR 11 ;SELECT THE MASSBUS
501 000024 0 066371 3 3 0 17 11 MOVB IOSEL ;INTERFACE AGAIN
502 000025 0 002000 0 1 0 000 LDBR 0 ;CLEAR RIGHT HALF OF DXGP3
503 000026 0 064351 3 2 0 16 11 MOVB MPGP6 ;TO INDICATE NO ADDITIONAL ERROR PRINTER
504 000027 0 116033 4 7 0033 JMPSUB OFFGO ;TURN OFF GO
505 000030 0 100207 4 0 0207 JMP TSTART ;GO START THE FIRST TEST
506
507 000031 0 014000 0 6 0 000 CMDF0: SHR ;SHIFT F1 TO BIT 0
508 000032 0 016000 0 7 0 000 RETURN ;RETURN TO CALLER
509
510 000033 0 002000 0 1 0 000 OFFGO: LDBR 0 ;GET A ZERO
511 000034 0 064051 3 2 0 02 11 MOVB MPECR ;CLEAR ERROR CODE REGISTER
512 000035 0 032121 1 5 0 05 01 DATI MPSCR1,AC5 ;READ STATUS REGISTER 1
513 000036 0 002010 0 1 0 010 LDBR DTD ;GET MASK OF DIRECTION BIT
514 000037 0 072133 3 5 0 05 13 LANDBR AC5 ;KEEP ONLY THAT BIT
515 000040 0 002002 0 1 0 002 LDBR CLRGO ;GET BIT TO CLEAR GO
516 000041 0 062134 3 1 0 05 14 LORB AC5,BR ;COMBINE WITH COPY OF DTD
517 000042 0 064031 3 2 0 01 11 MOVB MPSCR1 ;CLEAR GO AND ATA
518 000043 0 016000 0 7 0 000 RETURN
519
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 9
MCERR MAC 17-Oct-88 14:28 CHANNEL BUS INTERFACE REGISTER BIT DEFINITIONS
520 ;TEST INITIALIZATION
521
522 000044 0 062130 3 1 0 05 10 TEST0I: MOV AC5,BR ;GET TEST NUMBER BACK
523 000045 0 001000 0 0 2 000 TESTI: LDMAR 0 ;CLEAR MEMORY ADDRESS REGISTER
524 000046 0 000400 0 0 1 000 LDMARX 0 ;ALL BITS
525 000047 0 132157 5 5 0 06 17 DATI IOSEL,AC6 ;SAVE IOSEL REG
526 000050 0 010011 0 4 0 011 LDMEM 11 ;GET DEVICE CODE FOR MASSBUS INTERFACE
527 000051 0 046371 2 3 0 17 11 MOVMEM IOSEL ;LOAD INTO I/O SELECT REGISTER
528 000052 0 064211 3 2 0 10 11 MOVB MPGP0 ;WRITE TEST NUMBER INTO DXGP0
529 000053 0 062150 3 1 0 06 10 MOV AC6,BR ;GET SAVED IOSEL REG
530 000054 0 066371 3 3 0 17 11 MOVB IOSEL ;RESTORE IT
531 000055 0 002040 0 1 0 040 LDBR 40 ;GET MASK OF ONLY RELIABILITY BIT
532 000056 0 072173 3 5 0 07 13 LANDBR AC7 ;CLEAR ERROR AND MESSAGE NUMBER BITS
533 000057 0 062170 3 1 0 07 10 MOV AC7,BR ;GET FLAGS
534 000060 0 014000 0 6 0 000 SHR ;SHIFT RELIABILITY MODE BIT TO BR4
535 000061 0 106064 4 3 0064 JMPB4 .+3 ;JUMP AROUND IF RELIABILITY MODE
536 000062 0 002000 0 1 0 000 LDBR 0 ;QUICK VERIFY, LOAD A ZERO COUNT
537 000063 0 100065 4 0 0065 JMP .+2
538 000064 0 002077 0 1 0 077 LDBR RPTCNT-1 ;GET REPEAT COUNT
539 000065 0 072151 3 5 0 06 11 MOVB AC6 ;SAVE IN AC6
540 000066 0 016000 0 7 0 000 RETURN ;NOW START THE TEST
541
542 ;I/O SELECT REGISTER GENERAL ROUTINES
543
544 000067 0 132117 5 5 0 04 17 SAVIOS: DATI IOSEL,AC4 ;SAVE I/O SELECT REGISTER IN AC4
545 000070 0 002011 0 1 0 011 LDBR 11 ;SELECT MASSBUS INTERFACE
546 000071 0 066371 3 3 0 17 11 MOVB IOSEL ;GO I/O
547 000072 0 016000 0 7 0 000 NRTN: RETURN
548
549 000073 0 062110 3 1 0 04 10 RESIOS: MOV AC4,BR ;GET SAVED I/O SELECT REGISTER
550 000074 0 066371 3 3 0 17 11 MOVB IOSEL ;RESTORE IT
551 000075 0 016000 0 7 0 000 RETURN
552
553 ;ROUTINE TO SET ATA AND/OR MPERR IN STATUS REGISTER
554 ;ENTER WITH BITS TO SET IN BR
555
556 000076 0 032121 1 5 0 05 01 SETATA: DATI MPSCR1,AC5 ;READ STATUS REGISTER
557 000077 0 072134 3 5 0 05 14 LORBR AC5 ;SET REQUESTED BITS
558 000100 0 002310 0 1 0 310 LDBR ATA+MPERR+DTD ;GET MASK OF ONLY BITS TO SET
559 000101 0 062133 3 1 0 05 13 LANDB AC5,BR ;CLEAR OTHER BITS READ
560 000102 0 064031 3 2 0 01 11 MOVB MPSCR1 ;WRITE INTO STATUS REGISTER
561 000103 0 016000 0 7 0 000 RETURN
562
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 10
MCERR MAC 17-Oct-88 14:28 CHANNEL BUS INTERFACE REGISTER BIT DEFINITIONS
563 ;ERROR HANDLER ROUTINES
564
565 000104 0 002300 0 1 0 300 ERRSET: LDBR 300 ;GET ERROR LOOP AND DETECTED FLAGS
566 000105 0 072174 3 5 0 07 14 LORBR AC7 ;SET BOTH BITS IN FLAG REGISTER
567 000106 0 016000 0 7 0 000 RETURN
568
569 ;CHECK IF TO REPORT AN ERROR
570
571 000107 0 062170 3 1 0 07 10 ERRCHK: MOV AC7,BR ;GET FLAG REGISTER
572 000110 0 110112 4 4 0112 IFNDEF .ERROR,<JMPB7 .+2> ;SKIP IF IN ERROR LOOP
573 IFDEF .ERROR,<JMP REPORT> ;REPORT ALL ERRORS
574 000111 0 016377 0 7 0 377 RETURN -1 ;RETURN WITH Z SET TO CONTINUE TEST
575 000112 0 062165 3 1 0 07 05 SHL AC7,BR ;SHIFT ERROR DETECTED BIT TO BR7
576 000113 0 110126 4 4 0126 JMPB7 REPORT ;REPORT IT IF SET
577 000114 0 002037 0 1 0 037 LDBR 37 ;GET MASK FOR ERROR NUMBER
578 000115 0 072133 3 5 0 05 13 LANDBR AC5 ;CLEAR CONTROL BITS IN CURRENT NUMBER
579 000116 0 062173 3 1 0 07 13 LANDB AC7,BR ;EXTRACT LAST ERROR NUMBER
580 000117 0 060137 3 0 0 05 17 OSB AC5 ;COMPARE LAST AND CURRENT ERROR NUMBERS
581 000120 0 114122 4 6 0122 JMPZ NOFAIL ;JUMP IF AT SAME ERROR
582 000121 0 016377 0 7 0 377 RETURN -1 ;NO, RETURN WITH Z SET TO CONTINUE TEST
583 000122 0 116067 4 7 0067 NOFAIL: JMPSUB SAVIOS ;SAVE I/O REGISTER, SELECT MASSBUS
584 000123 0 002200 0 1 0 200 LDBR ATA ;GET ATA BIT
585 000124 0 072131 3 5 0 05 11 MOVB AC5 ;SAVE IN AC5
586 000125 0 016000 0 7 0 000 RETURN ;RETURN WITH Z CLEAR TO SIGNAL END OF LOOP
587
588 000126 0 116067 4 7 0067 REPORT: JMPSUB SAVIOS ;SAVE I/O REGISTER, SELECT MASSBUS
589 000127 0 062130 3 1 0 05 10 MOV AC5,BR ;GET ERROR NUMBER
590 000130 0 064051 3 2 0 02 11 MOVB MPECR ;PUT IN ERROR CODE REGISTER
591 000131 0 002240 0 1 0 240 LDBR 240 ;GET MASK OF LOOP AND RELIABILITY BITS
592 000132 0 072173 3 5 0 07 13 LANDBR AC7 ;LEAVE ONLY THOSE TWO BITS IN FLAG REG
593 000133 0 002037 0 1 0 037 LDBR 37 ;GET MASK OF ERROR NUMBER
594 000134 0 062133 3 1 0 05 13 LANDB AC5,BR ;GET CURRENT NUMBER FROM AC5
595 000135 0 072174 3 5 0 07 14 LORBR AC7 ;MERGE AND PUT IN FLAG REGISTER
596 000136 0 002300 0 1 0 300 LDBR ATA+MPERR ;GET ATA AND ERROR BITS
597 000137 0 072131 3 5 0 05 11 MOVB AC5 ;SAVE IN AC5
598 000140 0 016000 0 7 0 000 RETURN ;RETURN WITH Z CLEAR TO SIGNAL ERROR REPORT
599
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 11
MCERR MAC 17-Oct-88 14:28 CHANNEL BUS INTERFACE REGISTER BIT DEFINITIONS
600 000141 0 072131 3 5 0 05 11 ERLP: MOVB AC5 ;SAVE MESSAGE NUMBER IN AC5
601 000142 0 116107 4 7 0107 ERLP0: JMPSUB ERRCHK ;CHECK FOR ERROR
602 000143 0 114072 4 6 0072 JMPZ NRTN ;NO, RETURN WITH Z CLEAR TO CONTINUE TEST
603 000144 0 100161 4 0 0161 JMP ERRCOM ;GO TO COMMON ROUTINE
604
605 000145 0 072131 3 5 0 05 11 ERLPM: MOVB AC5 ;SAVE MESSAGE NUMBER IN AC5
606 000146 0 116107 4 7 0107 ERLPM0: JMPSUB ERRCHK ;CHECK FOR ERROR
607 000147 0 114072 4 6 0072 JMPZ NRTN ;NO, RETURN WITH Z CLEAR TO CONTINUE TEST
608 000150 0 044311 2 2 0 14 11 MOVMEM MPGP4 ;PUT CORRECT DATA IN RIGHT HALF OF DXGP2
609 000151 0 100157 4 0 0157 JMP ERRCA ;JUMP AROUND
610
611 000152 0 072131 3 5 0 05 11 ERLPA: MOVB AC5 ;SAVE MESSAGE NUMBER IN AC5
612 000153 0 116107 4 7 0107 ERLPA0: JMPSUB ERRCHK ;CHECK FOR ERROR
613 000154 0 114072 4 6 0072 JMPZ NRTN ;NO, RETURN WITH Z CLEAR TO CONTINUE TEST
614 000155 0 062030 3 1 0 01 10 MOV AC1,BR ;GET CORRECT DATA FROM AC1
615 000156 0 064311 3 2 0 14 11 MOVB MPGP4 ;PUT IN RIGHT HALF OF DXGP2
616 000157 0 062010 3 1 0 00 10 ERRCA: MOV AC0,BR ;GET ACTUAL DATA FROM AC0
617 000160 0 064331 3 2 0 15 11 MOVB MPGP5 ;PUT IN LEFT HALF OF DXGP2
618 000161 0 062130 3 1 0 05 10 ERRCOM: MOV AC5,BR ;GET BITS TO SET IN STATUS REGISTER
619 000162 0 116076 4 7 0076 CHKLOP: JMPSUB SETATA ;GO SET THE BITS
620 000163 0 116003 4 7 0003 CHKLP: JMPSUB WAITGO ;WAIT FOR GO TO SET
621 000164 0 104170 4 2 0170 JMPB0 ELOOPC ;JUMP IF TO CONTINUE
622 000165 0 116033 4 7 0033 JMPSUB OFFGO ;TURN OFF GO
623 000166 0 116073 4 7 0073 JMPSUB RESIOS ;RESTORE I/O SELECT REGISTER
624 000167 0 016377 0 7 0 377 ZRTN: RETURN -1 ;RETURN WITH Z SET TO LOOP
625
626 000170 0 116033 4 7 0033 ELOOPC: JMPSUB OFFGO ;TURN OFF GO
627 000171 0 116073 4 7 0073 JMPSUB RESIOS ;RESTORE I/O SELECT REGISTER
628 000172 0 016000 0 7 0 000 RETURN ;RETURN WITH Z CLEAR TO CONTINUE
629
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 12
MCERR MAC 17-Oct-88 14:28 CHANNEL BUS INTERFACE REGISTER BIT DEFINITIONS
630 XLIST
631 LIST
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 13
MCERR MAC 17-Oct-88 14:28 CHANNEL BUS INTERFACE REGISTER BIT DEFINITIONS
632 XLIST
633 LIST
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 14
MCERR MAC 17-Oct-88 14:28 CHANNEL BUS INTERFACE REGISTER BIT DEFINITIONS
634 ;REPEAT TEST ROUTINE
635
636 000173 0 072147 3 5 0 06 07 REPTU: DECR AC6 ;DECREMENT REPEAT COUNT
637 000174 0 114072 4 6 0072 JMPZ NRTN ;IF NOW -1, RETURN WITH Z CLEAR
638 000175 0 016377 0 7 0 377 RETURN -1 ;RETURN WITH Z SET TO REPEAT TEST
639
640 ;REPORT END OF DIAGNOSTIC WITH 0 ERROR CODE AND 0 TEST NUMBER
641
642 000176 0 002011 0 1 0 011 BEGEND: LDBR 11 ;SELECT MASSBUS INTERFACE
643 000177 0 066371 3 3 0 17 11 MOVB IOSEL ;IN I/O SELECT REGISTER
644 000200 0 002000 0 1 0 000 LDBR 0 ;GET A ZERO
645 000201 0 064211 3 2 0 10 11 MOVB MPGP0 ;MAKE TEST NUMBER 0
646 000202 0 064231 3 2 0 11 11 MOVB MPGP1 ;TO SAY END OF DIAGNOSTIC
647 000203 0 002200 0 1 0 200 LDBR ATA ;GET ATTENTION BIT
648 000204 0 064031 3 2 0 01 11 MOVB MPSCR1 ;SET IT
649 000205 0 116003 4 7 0003 JMPSUB WAITGO ;WAIT FOR GO TO SET
650 000206 0 100001 4 0 0001 JMP BEGIN ;START DIAGNOSTIC OVER AGAIN
651
652
653 000207 TSTART: ;COME HERE TO START THE TESTING
654
655
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 1
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
656 SUBTTL CHANNEL BUS INTERFACE TEST - PART 1
657
658 DEFTST MCODE2
659 TEST 154,TEST MICROBUS PARITY CHECKING NETWORK
660 ;***********************************************************************
661 ;* MCODE2 * TEST 154 * TEST MICROBUS PARITY CHECKING NETWORK
662 ;***********************************************************************
663 SALL
664 000207 0 002011 0 1 0 011
665 000210 0 066371 3 3 0 17 11
666 000211 0 002000 0 1 0 000
667 000212 0 064231 3 2 0 11 11
668 000213 0 002232 0 1 0 232
669 000214 0 116045 4 7 0045
670
671 000215 TST154: SALL
672
673 ;*WRITE TO INTERFACE WITH SPECIAL DATA PATTERNS DESIGNED TO TEST THE 74S280
674 ;*PARITY CHECKING CHIP.
675 ;*THIS WILL CHECK THAT THE MICROBUS PARITY NETWORK DETECTS CORRECT PARITY
676 ;*ON WRITES (DETECTION OF BAD PARITY ON WRITES WAS TESTED PREVIOUSLY).
677
678 ;*CLEAR "UB PE FLAG" IN REG 0.
679 ;*WRITE THE DATA PATTERN TO REG 2.
680 ;*CHECK THE "UB PE FLAG" IS NOT SET.
681
682 000215 0 010001 0 4 0 001 LDMEM 1 ;SET ADDITIONAL PNT ROUTINE NUMBER
683 000216 0 002221 0 1 0 221 GOSUB SETPNT
684 000217 0 177231 7 7 2 11 11
685 000220 0 002021 0 1 0 021 LDBR ^D17 ;SETUP LOOP COUNT MINUS 1
686 000221 0 072011 3 5 0 00 11 MOVB AC0
687 000222 0 001001 0 0 2 001 LDMAR PATS ;SET MAR TO FIRST DATA PATTERN
688 000223 0 002002 0 1 0 002 PAR2A: LDBR CLRFLG ;CLEAR REG 0 - UB PE FLAG
689 000224 0 064011 3 2 0 00 11 MOVB CSR0
690 000225 0 044171 2 2 0 07 11 MOVMEM CBILO ;WRITE PATTERN TO INTERFACE
691 000226 0 002011 0 1 0 011 LDBR 11 ;SELECT MASSBUS INTERFACE
692 000227 0 066371 3 3 0 17 11 MOVB IOSEL
693 000230 0 046051 2 3 0 02 11 MOVMEM MPGP12 ;STORE DATA FOR PRINTOUT
694 000231 0 002033 0 1 0 033 LDBR 33 ;SELECT CHANNEL BUS INTERFACE
695 000232 0 066371 3 3 0 17 11 MOVB IOSEL
696 000233 0 022000 1 1 0 00 00 DATI CSR0,BR ;READ REG 0 INTO BR
697 000234 0 106236 4 3 0236 JMPB4 .+2 ;JUMP IF "UB PE FLAG" SET
698 000235 0 100237 4 0 0237 JMP .+2 ;ELSE, RESULTS OKAY
699 000236 0 116104 4 7 0104 ERROR PAR2A,UB PARITY ERROR DETECTED,,PNT
700
701 ERLOOP PAR2A ^SALL
702 000237 0 002200 0 1 0 200
703 000240 0 116141 4 7 0141
704 000241 0 114223 4 6 0223
705 000242 0 073407 3 5 3 00 07 DECR AC0,I ;DEC LOOP CNT AND INC MAR
706 000243 0 114245 4 6 0245 JMPZ .+2 ;JUMP IF ALL DONE
707 000244 0 100223 4 0 0223 JMP PAR2A ;ELSE, CONTINUE
708
709 000245 0 002153 0 1 0 153 GOSUB INITL ;CLEAR REGS
710 000246 0 177231 7 7 2 11 11
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 1-1
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
711 000247 0 116173 4 7 0173 REPEAT TST
712 000250 0 114215 4 6 0215
713
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 2
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
714 TEST 155,TEST REGISTER 1 (CSR1)
715 ;***********************************************************************
716 ;* MCODE2 * TEST 155 * TEST REGISTER 1 (CSR1)
717 ;***********************************************************************
718 SALL
719 000251 0 002233 0 1 0 233
720 000252 0 116045 4 7 0045
721
722 000253 TST155: SALL
723
724 ;*TEST WRITING AND READING REGISTER 1.
725 ;*WRITING A ONE TO "ON LINE" MAY ENABLE THE BUS DRIVERS WHICH IS UNACCEPTABLE
726 ;*WHEN A CONTROL UNIT. THEREFORE, DEFER TESTING OF THAT BIT UNTIL LATER
727 ;*WHEN DRIVERS CAN BE DISABLED BY SETTING "CU RESET".
728
729 ;*WRITE ZEROS TO THE REGISTER.
730 ;*CHECK THAT BITS 7-2,0 ARE ZERO.
731
732 000253 0 001000 0 0 2 000 LDMAR 0 ;CLEAR MAR
733 000254 0 010000 0 4 0 000 LDMEM 0 ;WRITE ZEROS TO REG 1
734 000255 0 044031 2 2 0 01 11 MOVMEM CSR1
735 000256 0 032001 1 5 0 00 01 DATI CSR1,AC0 ;READ REG 1
736 000257 0 040017 2 0 0 00 17 OSM AC0 ;COMPARE DATA WITH EXPECTED
737 000260 0 114262 4 6 0262 JMPZ .+2 ;JUMP IF DATA CORRECT
738 000261 0 116104 4 7 0104 ERRORM TST,CAN NOT WRITE ALL ZEROS TO REG 1
739
740 ERLOOP TST ^SALL
741 000262 0 002100 0 1 0 100
742 000263 0 116145 4 7 0145
743 000264 0 114253 4 6 0253
744 ;*WRITE ONES TO THE REGISTER.
745 ;*CHECK THAT BITS 7-2,0 ARE ONES.
746
747 000265 0 010375 0 4 0 375 REG1A: LDMEM 375 ;WRITE ONES INTO REG 1
748 000266 0 044031 2 2 0 01 11 MOVMEM CSR1
749 000267 0 032001 1 5 0 00 01 DATI CSR1,AC0 ;READ REG 1
750 000270 0 040017 2 0 0 00 17 OSM AC0 ;COMPARE DATA
751 000271 0 114273 4 6 0273 JMPZ .+2 ;JUMP IF DATA CORRECT
752 000272 0 116104 4 7 0104 ERRORM REG1A,<CAN NOT WRITE ALL ONES TO BITS 7-2,0 OF REG 1>
753
754 ERLOOP REG1A ^SALL
755 000273 0 002101 0 1 0 101
756 000274 0 116145 4 7 0145
757 000275 0 114265 4 6 0265
758 ;*DO A MICROBUS INIT.
759 ;*CHECK THAT BITS 7-2,0 ARE ZERO.
760
761 000276 0 002153 0 1 0 153 GOSUB INITL ;DO A MICROBUS INIT
762 000277 0 177231 7 7 2 11 11
763 000300 0 032001 1 5 0 00 01 DATI CSR1,AC0 ;READ REG 1
764 000301 0 040017 2 0 0 00 17 OSM AC0 ;COMPARE DATA WITH EXPECTED
765 000302 0 114304 4 6 0304 JMPZ .+2 ;JUMP IF CORRECT
766 ERRORM REG1A,CAN NOT CLEAR ALL BIT(S) IN REG 1,^_
767 000303 0 116104 4 7 0104 DIAG DID A MICROBUS INIT
768
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 2-1
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
769 ERLOOP REG1A ^SALL
770 000304 0 002102 0 1 0 102
771 000305 0 116145 4 7 0145
772 000306 0 114265 4 6 0265
773 ;*WRITE FLOATING ZEROS AND FLOATING ONES PATTERNS TO THE REGISTER.
774 ;*CHECK THAT THE PATTERN GOT WRITTEN CORRECTLY.
775
776 000307 0 002015 0 1 0 015 LDBR ^D13 ;SETUP LOOP COUNT MINUS 1
777 000310 0 072031 3 5 0 01 11 MOVB AC1
778 000311 0 001023 0 0 2 023 LDMAR FLTZA ;SET MAR TO FIRST PATTERN
779 000312 0 044031 2 2 0 01 11 FLT1: MOVMEM CSR1 ;WRITE REG 1 WITH FLOATING PATTERN
780 000313 0 032001 1 5 0 00 01 DATI CSR1,AC0 ;READ IT BACK
781 000314 0 040017 2 0 0 00 17 OSM AC0 ;COMPARE WITH PATTERN WRITTEN
782 000315 0 114317 4 6 0317 JMPZ .+2 ;JUMP IF READ DATA IS CORRECT
783 ERRORM FLT1,FLOATING ONES/ZEROS FAILED,^_
784 000316 0 116104 4 7 0104 DIAG WROTE REG 1
785
786 ERLOOP FLT1 ^SALL
787 000317 0 002103 0 1 0 103
788 000320 0 116145 4 7 0145
789 000321 0 114312 4 6 0312
790 000322 0 073427 3 5 3 01 07 DECR AC1,I ;DEC LOOP CNT AND INC MAR
791 000323 0 114325 4 6 0325 JMPZ .+2 ;JUMP IF ALL DONE
792 000324 0 100312 4 0 0312 JMP FLT1 ;ELSE, CONTINUE
793
794 000325 0 116173 4 7 0173 REPEAT TST
795 000326 0 114253 4 6 0253
796
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 3
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
797 TEST 156,NO INTERRUPT TEST
798 ;***********************************************************************
799 ;* MCODE2 * TEST 156 * NO INTERRUPT TEST
800 ;***********************************************************************
801 SALL
802 000327 0 002234 0 1 0 234
803 000330 0 116045 4 7 0045
804
805 000331 TST156: SALL
806
807 ;*TEST THAT A MICROBUS INIT CLEARS ALL INTERRUPTS.
808
809 000331 0 002153 0 1 0 153 GOSUB INITL ;DO A MICROBUS INIT
810 000332 0 177231 7 7 2 11 11
811 000333 0 102167 4 1 0167 JMPI ZRTN ;JUMP IF INTERRUPT IS PRESENT
812 000334 0 114336 4 6 0336 JMPZ .+2 ;JUMP IF INTERRUPT JUMP WAS TAKEN
813 000335 0 100337 4 0 0337 JMP .+2 ;ELSE, NO INTERRUPTS
814 ERROR TST,UNEXPECTED INTERRUPT OCCURRED,^_
815 000336 0 116104 4 7 0104 DIAG DID A MICROBUS INIT AND SET CHAN MODE
816
817 ERLOOP TST ^SALL
818 000337 0 002000 0 1 0 000
819 000340 0 116141 4 7 0141
820 000341 0 114331 4 6 0331
821 000342 0 116173 4 7 0173 REPEAT TST
822 000343 0 114331 4 6 0331
823
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 4
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
824 TEST 157,TEST REGISTER 2 (TOR0)
825 ;***********************************************************************
826 ;* MCODE2 * TEST 157 * TEST REGISTER 2 (TOR0)
827 ;***********************************************************************
828 SALL
829 000344 0 002235 0 1 0 235
830 000345 0 116045 4 7 0045
831
832 000346 TST157: SALL
833
834 ;*TEST WRITING AND READING REGISTER 2.
835
836 ;*WRITE A ONE TO THE "TMR EN" BIT (THIS STARTS TIMER).
837 ;*CHECK THAT "TMR EN" SETS.
838
839 000346 0 001000 0 0 2 000 LDMAR 0 ;CLEAR MAR
840 000347 0 002004 0 1 0 004 LDBR TMREN ;START TIMER AND ENABLE INTERRUPT
841 000350 0 064051 3 2 0 02 11 MOVB TOR0
842 000351 0 022002 1 1 0 00 02 DATI TOR0,BR ;READ REG 2
843 000352 0 014000 0 6 0 000 SHR ;RIGHT ADJUST "TMR EN" BIT
844 000353 0 014000 0 6 0 000 SHR
845 000354 0 104356 4 2 0356 JMPB0 .+2 ;JUMP IF IT SET OKAY
846 000355 0 116104 4 7 0104 ERROR TST,"TMR EN" BIT DID NOT SET
847
848 ERLOOP TST ^SALL
849 000356 0 002000 0 1 0 000
850 000357 0 116141 4 7 0141
851 000360 0 114346 4 6 0346
852 ;*WAIT FOR 20 MS THEN CHECK THAT TIMER HASN'T TIMED OUT.
853
854 000361 0 002162 0 1 0 162 GOSUB WAIT ;GO WAIT FOR APPROX. 20 MS
855 000362 0 177231 7 7 2 11 11
856 000363 0 032000 1 5 0 00 00 DATI CSR0,AC0 ;READ TIME OUT BIT
857 000364 0 062005 3 1 0 00 05 SHL AC0,BR ;LEFT ADJUST IT
858 000365 0 110367 4 4 0367 JMPB7 .+2 ;JUMP IF IT SET TOO SOON
859 000366 0 100370 4 0 0370 JMP .+2 ;ELSE, CONTINUE
860 ERROR TST,"TIME OUT" FLAG SET TOO SOON,^_
861 000367 0 116104 4 7 0104 DIAG STARTED TIMER THEN WAITED APPROX 20 MS
862
863 ERLOOP TST ^SALL
864 000370 0 002001 0 1 0 001
865 000371 0 116141 4 7 0141
866 000372 0 114346 4 6 0346
867 ;*WAIT FOR ANOTHER 20 MS, THEN CHECK THAT THE "TIME OUT" BIT HAS SET.
868
869 000373 0 002162 0 1 0 162 GOSUB WAIT ;GO WAIT ANOTHER 20 MS
870 000374 0 177231 7 7 2 11 11
871 000375 0 032000 1 5 0 00 00 DATI CSR0,AC0 ;READ TIME OUT BIT
872 000376 0 062005 3 1 0 00 05 SHL AC0,BR ;LEFT ADJUST IT
873 000377 0 110401 4 4 0401 JMPB7 .+2 ;JUMP IF IT SET CORRECTLY
874 000400 0 116104 4 7 0104 ERROR TST,"TIME OUT" FLAG DID NOT SET AFTER 40 MS
875
876 ERLOOP TST ^SALL
877 000401 0 002002 0 1 0 002
878 000402 0 116141 4 7 0141
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 4-1
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
879 000403 0 114346 4 6 0346
880 ;*CHECK THAT "TIME OUT" CAUSES AN INTERRUPT.
881
882 000404 0 102167 4 1 0167 JMPI ZRTN ;JUMP IF INTERRUPT OCCURRED
883 000405 0 114407 4 6 0407 JMPZ .+2 ;JUMP IF INTERRUPT JUMP WAS TAKEN
884 000406 0 116104 4 7 0104 ERROR TST,"TIME OUT" FLAG DID NOT CAUSE AN INTERRUPT
885
886 ERLOOP TST ^SALL
887 000407 0 002003 0 1 0 003
888 000410 0 116141 4 7 0141
889 000411 0 114346 4 6 0346
890 ;*CLEAR "TMR EN" (THIS STARTS TIMER AGAIN).
891 ;*CHECK THAT IT CLEARS.
892
893 000412 0 002000 0 1 0 000 REG2A: LDBR 0 ;CLEAR "TMR EN"
894 000413 0 064051 3 2 0 02 11 MOVB TOR0
895 000414 0 022002 1 1 0 00 02 DATI TOR0,BR ;READ REG 2
896 000415 0 014000 0 6 0 000 SHR ;RIGHT ADJUST "TMR EN" BIT
897 000416 0 014000 0 6 0 000 SHR
898 000417 0 104421 4 2 0421 JMPB0 .+2 ;JUMP IF IT DIDN'T CLEAR
899 000420 0 100422 4 0 0422 JMP .+2 ;ELSE, OKAY
900 000421 0 116104 4 7 0104 ERROR REG2A,"TMR EN" BIT DID NOT CLEAR
901
902 ERLOOP REG2A ^SALL
903 000422 0 002004 0 1 0 004
904 000423 0 116141 4 7 0141
905 000424 0 114412 4 6 0412
906 ;*WAIT 40 MS FOR TIMER TO TIME OUT.
907 ;*CHECK THAT "TIME OUT" FLAG DOES NOT SET.
908
909 000425 0 002162 0 1 0 162 GOSUB WAIT ;WAIT 20 MS
910 000426 0 177231 7 7 2 11 11
911 000427 0 002162 0 1 0 162 GOSUB WAIT ;WAIT 20 MS
912 000430 0 177231 7 7 2 11 11
913 000431 0 032000 1 5 0 00 00 DATI CSR0,AC0 ;READ REG 0
914 000432 0 062005 3 1 0 00 05 SHL AC0,BR ;LEFT ADJUST IT
915 000433 0 110435 4 4 0435 JMPB7 .+2 ;JUMP IF IT SET, SHOULDN'T HAVE
916 000434 0 100436 4 0 0436 JMP .+2 ;ELSE, OKAY
917 000435 0 116104 4 7 0104 ERROR REG2A,"TIME OUT" FLAG SET WITH "TMR EN" CLEARED
918
919 ERLOOP REG2A ^SALL
920 000436 0 002005 0 1 0 005
921 000437 0 116141 4 7 0141
922 000440 0 114412 4 6 0412
923 ;*WRITE ZEROS TO THE REGISTER.
924 ;*CHECK THAT ALL BITS ARE ZEROS.
925
926 000441 0 010000 0 4 0 000 REG2B: LDMEM 0 ;WRITE ZEROS TO REG 2
927 000442 0 044051 2 2 0 02 11 MOVMEM TOR0
928 000443 0 032002 1 5 0 00 02 DATI TOR0,AC0 ;READ REG 2
929 000444 0 040017 2 0 0 00 17 OSM AC0 ;COMPARE DATA
930 000445 0 114447 4 6 0447 JMPZ .+2 ;JUMP IF ALL ZEROS
931 000446 0 116104 4 7 0104 ERRORM REG2B,CAN NOT WRITE ALL ZEROS TO REG 2
932
933 ERLOOP REG2B ^SALL
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 4-2
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
934 000447 0 002106 0 1 0 106
935 000450 0 116145 4 7 0145
936 000451 0 114441 4 6 0441
937 ;*WRITE ONES TO THE REGISTER.
938 ;*CHECK THAT ALL BITS ARE ONES.
939
940 000452 0 010377 0 4 0 377 REG2C: LDMEM -1 ;WRITE ONES TO REG 2
941 000453 0 044051 2 2 0 02 11 MOVMEM TOR0
942 000454 0 032002 1 5 0 00 02 DATI TOR0,AC0 ;READ REG 2
943 000455 0 040017 2 0 0 00 17 OSM AC0 ;COMPARE DATA
944 000456 0 114460 4 6 0460 JMPZ .+2 ;JUMP IF ALL ONES
945 000457 0 116104 4 7 0104 ERRORM REG2C,CAN NOT WRITE ALL ONES TO REG 2
946
947 ERLOOP REG2C ^SALL
948 000460 0 002107 0 1 0 107
949 000461 0 116145 4 7 0145
950 000462 0 114452 4 6 0452
951 ;*DO A MICROBUS INIT.
952 ;*CHECK THAT ALL BITS CLEARED.
953
954 000463 0 002153 0 1 0 153 GOSUB INITL ;DO A MICROBUS INIT
955 000464 0 177231 7 7 2 11 11
956 000465 0 032002 1 5 0 00 02 DATI TOR0,AC0 ;READ REG 2
957 000466 0 040017 2 0 0 00 17 OSM AC0 ;ALL BITS ZERO?
958 000467 0 114471 4 6 0471 JMPZ .+2 ;JUMP IF ALL ZEROS
959 ERRORM REG2C,CAN NOT CLEAR ALL BIT(S) IN REGISTER 2,^_
960 000470 0 116104 4 7 0104 DIAG DID A MICROBUS INIT
961
962 ERLOOP REG2C ^SALL
963 000471 0 002110 0 1 0 110
964 000472 0 116145 4 7 0145
965 000473 0 114452 4 6 0452
966 ;*WRITE FLOATING ZEROS AND FLOATING ONES PATTERNS TO THE REGISTER.
967 ;*CHECK THAT THE PATTERN GOT WRITTEN CORRECTLY.
968
969 000474 0 002017 0 1 0 017 LDBR ^D15 ;SETUP LOOP COUNT MINUS 1
970 000475 0 072031 3 5 0 01 11 MOVB AC1
971 000476 0 001003 0 0 2 003 LDMAR FLTZ ;SET MAR TO FIRST PATTERN
972 000477 0 044051 2 2 0 02 11 FLT2: MOVMEM TOR0 ;WRITE REG 2 WITH FLOATING PATTERN
973 000500 0 032002 1 5 0 00 02 DATI TOR0,AC0 ;READ REG 2
974 000501 0 040017 2 0 0 00 17 OSM AC0 ;CHECK FOR CORRECT DATA
975 000502 0 114504 4 6 0504 JMPZ .+2 ;JUMP IF DATA CORRECT
976 ERRORM FLT2,FLOATING ZEROS/ONES FAILED,^_
977 000503 0 116104 4 7 0104 DIAG WROTE REG 2
978
979 ERLOOP FLT2 ^SALL
980 000504 0 002111 0 1 0 111
981 000505 0 116145 4 7 0145
982 000506 0 114477 4 6 0477
983 000507 0 073427 3 5 3 01 07 DECR AC1,I ;DEC. AC1 AND INC. PATTERN ADDR
984 000510 0 114512 4 6 0512 JMPZ .+2 ;JUMP IF ALL DONE
985 000511 0 100477 4 0 0477 JMP FLT2 ;ELSE, CONTINUE
986
987 000512 0 116173 4 7 0173 REPEAT TST
988 000513 0 114346 4 6 0346
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 4-3
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
989
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 5
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
990 TEST 158,TEST REGISTER 3 (TOR1)
991 ;***********************************************************************
992 ;* MCODE2 * TEST 158 * TEST REGISTER 3 (TOR1)
993 ;***********************************************************************
994 SALL
995 000514 0 002236 0 1 0 236
996 000515 0 116045 4 7 0045
997
998 000516 TST158: SALL
999
1000 ;*TEST WRITING AND READING REGISTER 3.
1001 ;*BITS 2-0 ARE READ ONLY BITS.
1002
1003 ;*WRITE ZEROS TO THE REGISTER.
1004 ;*CHECK THAT BITS 7-3 ARE ZEROS.
1005
1006 000516 0 001000 0 0 2 000 LDMAR 0 ;CLEAR MAR
1007 000517 0 010000 0 4 0 000 LDMEM 0 ;WRITE ZEROS TO REG 3
1008 000520 0 044071 2 2 0 03 11 MOVMEM TOR1
1009 000521 0 032003 1 5 0 00 03 DATI TOR1,AC0 ;READ REG 3
1010 000522 0 002370 0 1 0 370 LDBR 370 ;SET MASK OF WRITEABLE BITS
1011 000523 0 072013 3 5 0 00 13 LANDBR AC0 ;ISOLATE THEM IN AC0
1012 000524 0 040017 2 0 0 00 17 OSM AC0 ;COMPARE DATA
1013 000525 0 114527 4 6 0527 JMPZ .+2 ;JUMP IF ZEROS
1014 000526 0 116104 4 7 0104 ERRORM TST,CAN NOT WRITE ZEROS TO BITS 7-3 OF REG 3
1015
1016 ERLOOP TST ^SALL
1017 000527 0 002100 0 1 0 100
1018 000530 0 116145 4 7 0145
1019 000531 0 114516 4 6 0516
1020 ;*WRITE ONES TO THE REGISTER.
1021 ;*CHECK THAT BITS 7-3 ARE ONES.
1022
1023 000532 0 010370 0 4 0 370 REG3A: LDMEM 370 ;WRITE ONES TO BITS 2-7 OF REG 3
1024 000533 0 044071 2 2 0 03 11 MOVMEM TOR1
1025 000534 0 032003 1 5 0 00 03 DATI TOR1,AC0 ;READ BACK REG 3
1026 000535 0 052013 2 5 0 00 13 LANDMR AC0 ;ISOLATE THE WRITEABLE BITS
1027 000536 0 040017 2 0 0 00 17 OSM AC0 ;COMPARE DATA
1028 000537 0 114541 4 6 0541 JMPZ .+2 ;JUMP IF ALL ONES
1029 000540 0 116104 4 7 0104 ERRORM REG3A,CAN NOT WRITE ONES TO BITS 7-3 OF REG 3
1030
1031 ERLOOP REG3A ^SALL
1032 000541 0 002101 0 1 0 101
1033 000542 0 116145 4 7 0145
1034 000543 0 114532 4 6 0532
1035 ;*DO A MICROBUS INIT.
1036 ;*CHECK THAT BITS 7-3 ARE CLEARED.
1037
1038 000544 0 002153 0 1 0 153 GOSUB INITL ;DO A MICROBUS INIT
1039 000545 0 177231 7 7 2 11 11
1040 000546 0 032003 1 5 0 00 03 DATI TOR1,AC0 ;READ REG 3
1041 000547 0 002370 0 1 0 370 LDBR 370 ;SET MASK OF CLEARABLE BITS
1042 000550 0 072013 3 5 0 00 13 LANDBR AC0 ;ISOLATE THEM IN AC0
1043 000551 0 040017 2 0 0 00 17 OSM AC0 ;CHECK IF ALL BITS GOT ZEROED
1044 000552 0 114554 4 6 0554 JMPZ .+2 ;JUMP IF THEY DID
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 5-1
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
1045 ERRORM REG3A,CAN NOT CLEAR BITS 7-3 OF REG 3,^_
1046 000553 0 116104 4 7 0104 DIAG DID A MICROBUS INIT
1047
1048 ERLOOP REG3A ^SALL
1049 000554 0 002102 0 1 0 102
1050 000555 0 116145 4 7 0145
1051 000556 0 114532 4 6 0532
1052 ;*WRITE FLOATING ZEROS AND FLOATING ONES PATTERNS TO THE REGISTER.
1053 ;*CHECK THAT THE PATTERN GOT WRITTEN CORRECTLY.
1054
1055 000557 0 002011 0 1 0 011 LDBR ^D9 ;SETUP LOOP COUNT MINUS 1
1056 000560 0 072031 3 5 0 01 11 MOVB AC1
1057 000561 0 001065 0 0 2 065 LDMAR FLTZD ;SET MAR TO FIRST PATTERN
1058 000562 0 044071 2 2 0 03 11 FLT3: MOVMEM TOR1 ;WRITE REG 3 WITH FLOATING PATTERN
1059 000563 0 032003 1 5 0 00 03 DATI TOR1,AC0 ;READ IT BACK
1060 000564 0 002370 0 1 0 370 LDBR 370 ;SET MASK OF WRITEABLE BITS
1061 000565 0 072013 3 5 0 00 13 LANDBR AC0 ;ISOLATE THEM IN AC0
1062 000566 0 040017 2 0 0 00 17 OSM AC0 ;COMPARE WITH PATTERN WRITTEN
1063 000567 0 114571 4 6 0571 JMPZ .+2 ;JUMP IF READ DATA IS CORRECT
1064 ERRORM FLT3,FLOATING ZEROS/ONES FAILED,^_
1065 000570 0 116104 4 7 0104 DIAG WROTE REG 3
1066
1067 ERLOOP FLT3 ^SALL
1068 000571 0 002103 0 1 0 103
1069 000572 0 116145 4 7 0145
1070 000573 0 114562 4 6 0562
1071 000574 0 073427 3 5 3 01 07 DECR AC1,I ;DEC LOOP CNT AND INC MAR
1072 000575 0 114577 4 6 0577 JMPZ .+2 ;JUMP IF ALL DONE
1073 000576 0 100562 4 0 0562 JMP FLT3 ;ELSE, CONTINUE
1074
1075 000577 0 116173 4 7 0173 REPEAT TST
1076 000600 0 114516 4 6 0516
1077
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 6
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
1078 TEST 159,TEST REGISTER 4 (TAGIN0)
1079 ;***********************************************************************
1080 ;* MCODE2 * TEST 159 * TEST REGISTER 4 (TAGIN0)
1081 ;***********************************************************************
1082 SALL
1083 000601 0 002237 0 1 0 237
1084 000602 0 116045 4 7 0045
1085
1086 000603 TST159: SALL
1087
1088 ;*WRITE REGISTER 2 AND READ REGISTER 4.
1089 ;*WITH LOOP ENABLE SET, BITS 7,6,4,3,1,0 OF REG 2 ARE READ BACK IN REG 4.
1090 ;*BIT 2 SHOULD ALWAYS BE ZERO.
1091 ;*WITH NO BUS EXTENSION, BIT 5 SHOULD ALWAYS BE ZERO.
1092 ;*LOOP ENABLE IS SET FOR THIS TEST.
1093
1094 ;*WRITE ZEROS TO REG 2.
1095 ;*CHECK THAT LOOPED BACK BITS IN REG 4 ARE ZEROS.
1096
1097 000603 0 001000 0 0 2 000 LDMAR 0 ;CLEAR MAR
1098 000604 0 002004 0 1 0 004 LDBR LOOPEN ;SET LOOP ENABLE FOR THIS TEST
1099 000605 0 064031 3 2 0 01 11 MOVB CSR1
1100 000606 0 010000 0 4 0 000 LDMEM 0 ;CLEAR REG 2
1101 000607 0 044051 2 2 0 02 11 MOVMEM TOR0
1102 000610 0 000000 0 0 0 000 NOP ;DELAY BEFORE DOING DATI
1103 000611 0 032004 1 5 0 00 04 DATI TAGIN0,AC0 ;READ REG 4
1104 000612 0 040017 2 0 0 00 17 OSM AC0 ;COMPARE WITH EXPECTED DATA
1105 000613 0 114615 4 6 0615 JMPZ .+2 ;JUMP IF CORRECT (LOOPED BACK BITS = ZEROS)
1106 ERRORM TST,CAN NOT READ ALL LOOPED-BACK BITS ZEROS,^_
1107 000614 0 116104 4 7 0104 DIAG CLEARED REG 2 AND READ REG 4 WITH LOOP ENABLED
1108
1109 ERLOOP TST ^SALL
1110 000615 0 002100 0 1 0 100
1111 000616 0 116145 4 7 0145
1112 000617 0 114603 4 6 0603
1113 ;*WRITE ONES TO REG 2.
1114 ;*CHECK THAT LOOPED BACK BITS IN REG 4 ARE ONES.
1115
1116 000620 0 010333 0 4 0 333 REG4A: LDMEM 333 ;SET LOAD DATA
1117 000621 0 044051 2 2 0 02 11 MOVMEM TOR0
1118 000622 0 000000 0 0 0 000 NOP ;DELAY BEFORE DOING DATI
1119 000623 0 032004 1 5 0 00 04 DATI TAGIN0,AC0 ;READ REG 4
1120 000624 0 040017 2 0 0 00 17 OSM AC0 ;COMPARE WITH EXPECTED DATA
1121 000625 0 114627 4 6 0627 JMPZ .+2 ;JUMP IF CORRECT (LOOPED-BACK BITS = ONES)
1122 ERRORM REG4A,CAN NOT READ ALL LOOPED-BACK BITS ONES,^_
1123 000626 0 116104 4 7 0104 DIAG WROTE ONES TO REG 2 AND READ REG 4 WITH LOOP ENABLED
1124
1125 ERLOOP REG4A ^SALL
1126 000627 0 002101 0 1 0 101
1127 000630 0 116145 4 7 0145
1128 000631 0 114620 4 6 0620
1129 ;*WRITE FLOATING ZEROS AND FLOATING ONES PATTERNS TO THE LOOPED BACK BITS
1130 ;*IN REG 2.
1131 ;*READ BACK REG 4 FOR THE PATTERN.
1132
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 6-1
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
1133 000632 0 002013 0 1 0 013 LDBR ^D11 ;SETUP LOOP COUNT MINUS 1
1134 000633 0 072031 3 5 0 01 11 MOVB AC1
1135 000634 0 001041 0 0 2 041 LDMAR FLTZB ;SET MAR TO FLOATING PATTERNS
1136 000635 0 044051 2 2 0 02 11 FLT4: MOVMEM TOR0 ;LOAD REG 2 WITH PATTERN
1137 000636 0 000000 0 0 0 000 NOP ;DELAY BEFORE DOING DATI
1138 000637 0 032004 1 5 0 00 04 DATI TAGIN0,AC0 ;READ REG 4
1139 000640 0 040017 2 0 0 00 17 OSM AC0 ;COMPARE WITH EXPECTED DATA PATTERN
1140 000641 0 114643 4 6 0643 JMPZ .+2 ;JUMP IF CORRECT
1141 ERRORM FLT4,FLOATING ZEROS/ONES FAILED,^_
1142 000642 0 116104 4 7 0104 DIAG WROTE REG 2 AND READ REG 4 WITH LOOP ENABLED
1143
1144 ERLOOP FLT4 ^SALL
1145 000643 0 002102 0 1 0 102
1146 000644 0 116145 4 7 0145
1147 000645 0 114635 4 6 0635
1148 000646 0 073427 3 5 3 01 07 DECR AC1,I ;DEC LOOP COUNT AND INC PATTERN ADDR
1149 000647 0 114651 4 6 0651 JMPZ .+2 ;JUMP IF ALL DONE
1150 000650 0 100635 4 0 0635 JMP FLT4 ;ELSE, CONTINUE
1151
1152 000651 0 116173 4 7 0173 REPEAT TST
1153 000652 0 114603 4 6 0603
1154
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 7
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
1155 TEST 160,TEST REGISTER 5 (TAGIN1)
1156 ;***********************************************************************
1157 ;* MCODE2 * TEST 160 * TEST REGISTER 5 (TAGIN1)
1158 ;***********************************************************************
1159 SALL
1160 000653 0 002240 0 1 0 240
1161 000654 0 116045 4 7 0045
1162
1163 000655 TST160: SALL
1164
1165 ;*WRITE REGISTER 3 AND READ REGISTER 5.
1166 ;*WITH LOOP ENABLE SET, BITS 7-4 OF REG 3 ARE READ BACK IN REG 5.
1167 ;*LOOP ENABLE IS SET FOR THIS TEST.
1168
1169 ;*WRITE ZEROS TO REG 3.
1170 ;*CHECK THAT LOOPED BACK BITS IN REG 5 ARE ZEROS.
1171
1172 000655 0 001000 0 0 2 000 LDMAR 0 ;CLEAR MAR
1173 000656 0 002004 0 1 0 004 LDBR LOOPEN ;SET LOOP ENABLE FOR THIS TEST
1174 000657 0 064031 3 2 0 01 11 MOVB CSR1
1175 000660 0 010000 0 4 0 000 LDMEM 0 ;WRITE ZEROS TO REG 3
1176 000661 0 044071 2 2 0 03 11 MOVMEM TOR1
1177 000662 0 000000 0 0 0 000 NOP ;DELAY BEFORE DOING DATI
1178 000663 0 032005 1 5 0 00 05 DATI TAGIN1,AC0 ;READ REG 5
1179 000664 0 002360 0 1 0 360 LDBR 360 ;MASK OUT SP ADR BITS
1180 000665 0 072013 3 5 0 00 13 LANDBR AC0
1181 000666 0 040017 2 0 0 00 17 OSM AC0 ;COMPARE WITH EXPECTED DATA
1182 000667 0 114671 4 6 0671 JMPZ .+2 ;JUMP IF CORRECT (LOOPED-BACK BITS = ZEROS)
1183 ERRORM TST,CAN NOT READ ALL LOOPED-BACK BITS ZEROS,^_
1184 000670 0 116104 4 7 0104 DIAG CLEARED REG 3 AND READ REG 5 WITH LOOP ENABLED
1185
1186 ERLOOP TST ^SALL
1187 000671 0 002100 0 1 0 100
1188 000672 0 116145 4 7 0145
1189 000673 0 114655 4 6 0655
1190 ;*WRITE ONES TO REG 3.
1191 ;*CHECK THAT LOOPED BACK BITS IN REG 5 ARE ONES.
1192
1193 000674 0 010360 0 4 0 360 REG5A: LDMEM 360 ;WRITE ONES TO LOOPED-BACK BITS IN REG 3
1194 000675 0 044071 2 2 0 03 11 MOVMEM TOR1
1195 000676 0 000000 0 0 0 000 NOP ;DELAY BEFORE DOING DATI
1196 000677 0 032005 1 5 0 00 05 DATI TAGIN1,AC0 ;READ REG 5
1197 000700 0 052013 2 5 0 00 13 LANDMR AC0 ;MASK OUT SP ADR BITS
1198 000701 0 040017 2 0 0 00 17 OSM AC0 ;COMPARE WITH EXPECTED DATA
1199 000702 0 114704 4 6 0704 JMPZ .+2 ;JUMP IF CORRECT (LOOPED-BACK BITS = ONES)
1200 ERRORM REG5A,CAN NOT READ ALL LOOPED-BACK BITS ONES,^_
1201 000703 0 116104 4 7 0104 DIAG WROTE ONES TO REG 3 AND READ REG 5 WITH LOOP ENABLED
1202
1203 ERLOOP REG5A ^SALL
1204 000704 0 002101 0 1 0 101
1205 000705 0 116145 4 7 0145
1206 000706 0 114674 4 6 0674
1207 ;*WRITE FLOATING ZEROS AND FLOATING ONES PATTERNS TO LOOPED BACK BITS
1208 ;*IN REG 3.
1209 ;*READ BACK REG 5 FOR PATTERN.
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 7-1
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
1210
1211 000707 0 002007 0 1 0 007 LDBR ^D7 ;SETUP LOOP COUNT MINUS 1
1212 000710 0 072031 3 5 0 01 11 MOVB AC1
1213 000711 0 001055 0 0 2 055 LDMAR FLTZC ;SET MAR TO FIRST PATTERN
1214 000712 0 044071 2 2 0 03 11 FLT5: MOVMEM TOR1 ;WRITE PATTERN TO REG 3
1215 000713 0 000000 0 0 0 000 NOP ;DELAY BEFORE DOING DATI
1216 000714 0 032005 1 5 0 00 05 DATI TAGIN1,AC0 ;READ REG 5
1217 000715 0 002360 0 1 0 360 LDBR 360 ;MASK OUT SP ADR BITS
1218 000716 0 072013 3 5 0 00 13 LANDBR AC0
1219 000717 0 040017 2 0 0 00 17 OSM AC0 ;COMPARE WITH PATTERN WRITTEN
1220 000720 0 114722 4 6 0722 JMPZ .+2 ;JUMP IF READ DATA IS CORRECT
1221 ERRORM FLT5,FLOATING ZEROS/ONES FAILED,^_
1222 000721 0 116104 4 7 0104 DIAG WROTE REG 3 AND READ REG 5 WITH LOOP ENABLED
1223
1224 ERLOOP FLT5 ^SALL
1225 000722 0 002102 0 1 0 102
1226 000723 0 116145 4 7 0145
1227 000724 0 114712 4 6 0712
1228 000725 0 073427 3 5 3 01 07 DECR AC1,I ;DEC AC1 AND INC MAR
1229 000726 0 114730 4 6 0730 JMPZ .+2 ;JUMP IF ALL DONE
1230 000727 0 100712 4 0 0712 JMP FLT5 ;ELSE, CONTINUE
1231
1232 000730 0 116173 4 7 0173 REPEAT TST
1233 000731 0 114655 4 6 0655
1234
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 8
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
1235 TEST 161,TEST REGISTER 5 (SPADR)
1236 ;***********************************************************************
1237 ;* MCODE2 * TEST 161 * TEST REGISTER 5 (SPADR)
1238 ;***********************************************************************
1239 SALL
1240 000732 0 002241 0 1 0 241
1241 000733 0 116045 4 7 0045
1242
1243 000734 TST161: SALL
1244
1245 ;*TEST WRITING AND READING BITS 3-0 OF REG 5 (SP ADR BITS).
1246 ;*LOOP ENABLE IS NOT SET FOR THIS TEST.
1247 ;*THE "CHAN MODE" BIT MUST BE SET TO ALLOW READING OF SP ADR BITS.
1248
1249 ;*WRITE ZEROS TO BITS 3-0.
1250 ;*CHECK THAT BITS 3-0 ARE ZEROS.
1251
1252 000734 0 001000 0 0 2 000 LDMAR 0 ;CLEAR MAR
1253 000735 0 002001 0 1 0 001 LDBR CHANL ;SET "CHAN MODE"
1254 000736 0 064031 3 2 0 01 11 MOVB CSR1
1255 000737 0 010000 0 4 0 000 LDMEM 0 ;WRITE ZEROS INTO BITS 3-0 OF REG 5
1256 000740 0 044131 2 2 0 05 11 MOVMEM SPADR
1257 000741 0 032005 1 5 0 00 05 DATI SPADR,AC0 ;READ BACK SP ADR BITS IN REG 5
1258 000742 0 002017 0 1 0 017 LDBR 17 ;SETUP BIT MASK FOR SP ADR BITS
1259 000743 0 072013 3 5 0 00 13 LANDBR AC0 ;ISOLATE THE SP ADR BITS
1260 000744 0 040017 2 0 0 00 17 OSM AC0 ;CHECK IF ALL ZEROS
1261 000745 0 114747 4 6 0747 JMPZ .+2 ;JUMP IF ALL ZEROS
1262 000746 0 116104 4 7 0104 ERRORM TST,CAN NOT WRITE ALL ZEROS TO BITS 3-0 OF REG 5
1263
1264 ERLOOP TST ^SALL
1265 000747 0 002100 0 1 0 100
1266 000750 0 116145 4 7 0145
1267 000751 0 114734 4 6 0734
1268 ;*WRITE ONES TO BITS 3-0 OF REG 5.
1269 ;*CHECK THAT BITS 3-0 OF REG 5 ARE ONES.
1270
1271 000752 0 010017 0 4 0 017 REG5AA: LDMEM 17 ;SETUP BIT MASK FOR SP ADR BITS
1272 000753 0 044131 2 2 0 05 11 MOVMEM SPADR ;WRITE ONES INTO SP ADR BITS
1273 000754 0 032005 1 5 0 00 05 DATI SPADR,AC0 ;READ REG 5
1274 000755 0 052013 2 5 0 00 13 LANDMR AC0 ;ISOLATE SP ADR BITS
1275 000756 0 040017 2 0 0 00 17 OSM AC0 ;CHECK IF ALL ONES
1276 000757 0 114761 4 6 0761 JMPZ .+2 ;JUMP IF ALL ONES
1277 000760 0 116104 4 7 0104 ERRORM REG5AA,CAN NOT WRITE ALL ONES TO BITS 3-0 OF REG 5
1278
1279 ERLOOP REG5AA ^SALL
1280 000761 0 002101 0 1 0 101
1281 000762 0 116145 4 7 0145
1282 000763 0 114752 4 6 0752
1283 ;*WRITE FLOATING ZEROS AND FLOATING ONES PATTERNS TO BITS 3-0 OF REG 5.
1284 ;*READ BACK BITS 3-0 OF REG 5 FOR THE PATTERN.
1285
1286 000764 0 002007 0 1 0 007 LDBR ^D7 ;SETUP LOOP COUNT MINUS 1
1287 000765 0 072031 3 5 0 01 11 MOVB AC1
1288 000766 0 001077 0 0 2 077 LDMAR FLTZE ;SET MAR TO FIRST PATTERN
1289 000767 0 044131 2 2 0 05 11 FLT5A: MOVMEM SPADR ;WRITE PATTERN TO BITS 3-0 OF REG 5
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 8-1
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
1290 000770 0 032005 1 5 0 00 05 DATI SPADR,AC0 ;READ REG 5
1291 000771 0 002017 0 1 0 017 LDBR 17 ;SETUP BIT MASK FOR SP ADR BITS
1292 000772 0 072013 3 5 0 00 13 LANDBR AC0 ;ISOLATE SP ADR BITS
1293 000773 0 040017 2 0 0 00 17 OSM AC0 ;CHECK FOR CORRECT PATTERN
1294 000774 0 114776 4 6 0776 JMPZ .+2 ;JUMP IF CORRECT PATTERN
1295 ERRORM FLT5A,FLOATING ZEROS/ONES FAILED,^_
1296 000775 0 116104 4 7 0104 DIAG WROTE BITS 3-0 OF REG 5
1297
1298 ERLOOP FLT5A ^SALL
1299 000776 0 002102 0 1 0 102
1300 000777 0 116145 4 7 0145
1301 001000 0 114767 4 6 0767
1302 001001 0 073427 3 5 3 01 07 DECR AC1,I ;DEC LOOP COUNT AND INC MAR
1303 001002 0 115004 4 6 1004 JMPZ .+2 ;JUMP IF ALL DONE
1304 001003 0 100767 4 0 0767 JMP FLT5A ;ELSE,CONTINUE
1305
1306 001004 0 116173 4 7 0173 REPEAT TST
1307 001005 0 114734 4 6 0734
1308
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 9
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
1309 TEST 162,TEST REGISTER 11 (BORLO) AND REGISTER 7 (CBILO)
1310 ;***********************************************************************
1311 ;* MCODE2 * TEST 162 * TEST REGISTER 11 (BORLO) AND REGISTER 7 (CBILO)
1312 ;***********************************************************************
1313 SALL
1314 001006 0 002242 0 1 0 242
1315 001007 0 116045 4 7 0045
1316
1317 001010 TST162: SALL
1318
1319 ;*WRITE REGISTER 11 AND READ REGISTER 7 FOR THE COMPLEMENT OF REGISTER 0.
1320 ;*LOOP ENABLE IS SET FOR THIS TEST.
1321
1322 ;*WRITE ZEROS TO REG 11.
1323 ;*CHECK THAT REG 7 IS ALL ONES.
1324
1325 001010 0 001000 0 0 2 000 LDMAR 0 ;CLEAR MAR
1326 001011 0 002004 0 1 0 004 LDBR LOOPEN ;SET LOOP ENABLE
1327 001012 0 064031 3 2 0 01 11 MOVB CSR1
1328 001013 0 002000 0 1 0 000 LDBR 0 ;WRITE ZEROS TO REG 11
1329 001014 0 064231 3 2 0 11 11 MOVB BORLO
1330 001015 0 010377 0 4 0 377 LDMEM -1 ;SETUP EXPECTED DATA
1331 001016 0 032007 1 5 0 00 07 DATI CBILO,AC0 ;READ REG 7
1332 001017 0 040017 2 0 0 00 17 OSM AC0 ;COMPARE DATA
1333 001020 0 115022 4 6 1022 JMPZ .+2 ;JUMP IF ALL ZEROS
1334 ERRORM TST,CAN NOT WRITE ALL ZEROS TO REG 11,^_
1335 001021 0 116104 4 7 0104 DIAG WROTE ZEROS TO REG 11 AND READ REG 7 WITH LOOP ENABLED
1336
1337 ERLOOP TST ^SALL
1338 001022 0 002100 0 1 0 100
1339 001023 0 116145 4 7 0145
1340 001024 0 115010 4 6 1010
1341 ;*WRITE ONES TO REG 11.
1342 ;*CHECK THAT REG 7 IS ALL ZEROS.
1343
1344 001025 0 002377 0 1 0 377 REG11A: LDBR -1 ;WRITE ONES TO REG 11
1345 001026 0 064231 3 2 0 11 11 MOVB BORLO
1346 001027 0 010000 0 4 0 000 LDMEM 0 ;SETUP EXPECTED DATA
1347 001030 0 032007 1 5 0 00 07 DATI CBILO,AC0 ;READ REG 7
1348 001031 0 040017 2 0 0 00 17 OSM AC0 ;COMPARE DATA
1349 001032 0 115034 4 6 1034 JMPZ .+2 ;JUMP IF ALL ONES
1350 ERRORM REG11A,CAN NOT WRITE ALL ONES TO REG 11,^_
1351 001033 0 116104 4 7 0104 DIAG WROTE ONES TO REG 11 AND READ REG 7 WITH LOOP ENABLED
1352
1353 ERLOOP REG11A ^SALL
1354 001034 0 002101 0 1 0 101
1355 001035 0 116145 4 7 0145
1356 001036 0 115025 4 6 1025
1357 ;*WRITE FLOATING ZEROS AND FLOATING ONES PATTERNS TO REG 11.
1358 ;*READ BACK REG 7 FOR THE COMPLEMENT OF THE PATTERN.
1359
1360 001037 0 002017 0 1 0 017 LDBR ^D15 ;SETUP LOOP COUNT MINUS 1
1361 001040 0 072031 3 5 0 01 11 MOVB AC1
1362 001041 0 001003 0 0 2 003 LDMAR FLTZ ;SET MAR TO FIRST PATTERN
1363 001042 0 002000 0 1 0 000 FLT11: LDBR 0 ;SETUP COMPLEMENT OF PATTERN
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 9-1
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
1364 001043 0 072051 3 5 0 02 11 MOVB AC2
1365 001044 0 042052 2 1 0 02 12 LORCM AC2,BR ;IN THE BR AND
1366 001045 0 064231 3 2 0 11 11 MOVB BORLO ;WRITE IT TO REG 11
1367 001046 0 000000 0 0 0 000 NOP ;DELAY BEFORE DOING DATI
1368 001047 0 032007 1 5 0 00 07 DATI CBILO,AC0 ;READ REG 7
1369 001050 0 040017 2 0 0 00 17 OSM AC0 ;CHECK FOR CORRECT DATA
1370 001051 0 115053 4 6 1053 JMPZ .+2 ;JUMP IF DATA CORRECT
1371 ERRORM FLT11,FLOATING ZEROS/ONES FAILED,^_
1372 001052 0 116104 4 7 0104 DIAG WROTE REG 11 AND READ REG 7 WITH LOOP ENABLED
1373
1374 ERLOOP FLT11 ^SALL
1375 001053 0 002102 0 1 0 102
1376 001054 0 116145 4 7 0145
1377 001055 0 115042 4 6 1042
1378 001056 0 073427 3 5 3 01 07 DECR AC1,I ;DEC. LOOP CNT AND INC. MAR.
1379 001057 0 115061 4 6 1061 JMPZ .+2 ;JUMP IF ALL DONE
1380 001060 0 101042 4 0 1042 JMP FLT11 ;ELSE, CONTINUE
1381
1382 ;*CLEAR LOOP ENABLE.
1383 ;*CHECK THAT REG 11 DOES NOT LOOP BACK TO REG 7.
1384
1385 001061 0 002000 0 1 0 000 REG11B: LDBR 0 ;CLEAR LOOP ENABLE
1386 001062 0 064031 3 2 0 01 11 MOVB CSR1
1387 001063 0 002252 0 1 0 252 LDBR 252 ;WRITE REG 11 WITH ALTERNATE 1'S & 0'S
1388 001064 0 064231 3 2 0 11 11 MOVB BORLO
1389 001065 0 010125 0 4 0 125 LDMEM 125 ;SET MEMORY TO COMPLEMENT OF THAT
1390 001066 0 032007 1 5 0 00 07 DATI CBILO,AC0 ;READ REG 7
1391 001067 0 040017 2 0 0 00 17 OSM AC0 ;CHECK FOR LOOPED BACK DATA
1392 001070 0 115072 4 6 1072 JMPZ .+2 ;JUMP IF DATA WAS LOOPED BACK
1393 001071 0 101073 4 0 1073 JMP .+2 ;ELSE, RESULTS OKAY
1394 001072 0 116104 4 7 0104 ERRORM REG11B,REG 11 DATA LOOPED BACK TO REG 7 WITHOUT LOOP ENABLED
1395
1396 ERLOOP REG11B ^SALL
1397 001073 0 002103 0 1 0 103
1398 001074 0 116145 4 7 0145
1399 001075 0 115061 4 6 1061
1400 001076 0 116173 4 7 0173 REPEAT TST
1401 001077 0 115010 4 6 1010
1402
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 10
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
1403 TEST 163,TEST REGISTER 6 (DRLO)
1404 ;***********************************************************************
1405 ;* MCODE2 * TEST 163 * TEST REGISTER 6 (DRLO)
1406 ;***********************************************************************
1407 SALL
1408 001100 0 002243 0 1 0 243
1409 001101 0 116045 4 7 0045
1410
1411 001102 TST163: SALL
1412
1413 ;*TEST THAT ONES, ZEROS, FLOATING ZEROS AND FLOATING ONES PATTERNS CAN BE CLOCKED
1414 ;*INTO THE DRLO REGISTER (7-0).
1415 ;*LOOP ENABLE IS SET FOR THIS OPERATION.
1416
1417 ;*CLEAR "DATA TO DEVICE".
1418 ;*WRITE COMPLEMENT OF PATTERN TO REG 11.
1419 ;*GENERATE A "CLOCK DR" PULSE.
1420 ;*READ REG 6 FOR PATTERN.
1421
1422 001102 0 002203 0 1 0 203 GOSUB DEVRD ;SETUP FOR A DEVICE READ
1423 001103 0 177231 7 7 2 11 11
1424 001104 0 002004 0 1 0 004 LDBR LOOPEN ;SET LOOP ENABLE
1425 001105 0 064031 3 2 0 01 11 MOVB CSR1
1426 001106 0 002021 0 1 0 021 LDBR ^D17 ;SET LOOP COUNT MINUS 1
1427 001107 0 072031 3 5 0 01 11 MOVB AC1
1428 001110 0 001001 0 0 2 001 LDMAR PATS ;SET MAR TO FIRST PATTERN
1429 001111 0 002000 0 1 0 000 FLT6: LDBR 0 ;SETUP COMPLEMENT OF PATTERN IN
1430 001112 0 072051 3 5 0 02 11 MOVB AC2
1431 001113 0 042052 2 1 0 02 12 LORCM AC2,BR ;BR THEN
1432 001114 0 064231 3 2 0 11 11 MOVB BORLO ;WRITE IT TO REG 11
1433 001115 0 064151 3 2 0 06 11 MOVB CLKDRL ;CLOCK THE DR REG
1434 001116 0 000000 0 0 0 000 NOP ;DELAY BEFORE DOING DATI
1435 001117 0 032006 1 5 0 00 06 DATI DRLO,AC0 ;READ DATA FROM DR REG
1436 001120 0 040017 2 0 0 00 17 OSM AC0 ;COMPARE WITH EXPECTED PATTERN
1437 001121 0 115123 4 6 1123 JMPZ .+2 ;JUMP IF CORRECT
1438 ERRORM FLT6,DATA PATTERN ERROR,^_
1439 001122 0 116104 4 7 0104 DIAG CLOCKED DATA FROM BORLO INTO THE DR REG USING LOOP BACK
1440
1441 ERLOOP FLT6 ^SALL
1442 001123 0 002100 0 1 0 100
1443 001124 0 116145 4 7 0145
1444 001125 0 115111 4 6 1111
1445 001126 0 073427 3 5 3 01 07 DECR AC1,I ;DEC LOOP COUNT AND INC PATTERN ADDR
1446 001127 0 115131 4 6 1131 JMPZ .+2 ;JUMP IF ALL DONE
1447 001130 0 101111 4 0 1111 JMP FLT6 ;ELSE, CONTINUE
1448
1449 001131 0 116173 4 7 0173 REPEAT TST
1450 001132 0 115102 4 6 1102
1451 001133 0 002000 0 1 0 000 JUMP NXTBNK ;JUMP TO NEXT BANK OF CRAM
1452 001134 0 160231 7 0 0 11 11
1453 002000 .LOC 2000
1454 002000 NXTBNK:
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 11
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
1455 TEST 164,TEST LOADING OF DRLO FROM SLVE DATA LINES
1456 ;***********************************************************************
1457 ;* MCODE2 * TEST 164 * TEST LOADING OF DRLO FROM SLVE DATA LINES
1458 ;***********************************************************************
1459 SALL
1460 002000 1 002244 0 1 0 244
1461 002001 1 117320 4 7 1320
1462
1463 002002 TST164: SALL
1464
1465 ;*TEST THAT CLOCKING DRLO WITH "DATA TO DEV" SET LOADS DRLO WITH
1466 ;*SLVE DATA LINES DATA. THE ACTUAL SLVE DATA LINES DATA CANNOT BE READ
1467 ;*DIRECTLY. HOWEVER, IF THE DATA PATH BOARDS ARE FUNCTIONING CORRECTLY,
1468 ;*A MICROBUS INIT SHOULD SET THEM TO ALL ONES.
1469
1470 ;*CLEAR "DATA TO DEV".
1471 ;*DO A MICROBUS INIT.
1472 ;*CLOCK ALL ZEROS INTO DRLO FROM BORLO.
1473 ;*SET "DATA TO DEV".
1474 ;*CLOCK DRLO.
1475 ;*CHECK THAT DRLO CONTAINS ALL ONES.
1476
1477 002002 1 117203 4 7 1203 JMPSUB DEVRD ;SETUP DEVICE READ
1478 002003 1 117153 4 7 1153 JMPSUB INITL ;DO A MICROBUS INIT
1479 002004 1 002004 0 1 0 004 LDBR LOOPEN ;SET LOOP ENABLE
1480 002005 1 064031 3 2 0 01 11 MOVB CSR1
1481 002006 1 010377 0 4 0 377 LDMEM -1 ;LOAD BORLO WITH ALL ONES
1482 002007 1 044231 2 2 0 11 11 MOVMEM BORLO
1483 002010 1 064151 3 2 0 06 11 MOVB CLKDRL ;CLOCK ALL ZEROS INTO DRLO
1484 002011 1 117212 4 7 1212 JMPSUB DEVWR ;SETUP DEVICE WRITE
1485 002012 1 064151 3 2 0 06 11 MOVB CLKDRL ;CLOCK DRLO
1486 002013 1 000000 0 0 0 000 NOP ;DELAY BEFORE DOING DATI
1487 002014 1 032006 1 5 0 00 06 DATI DRLO,AC0 ;READ DRLO
1488 002015 1 114017 4 6 0017 JMPZ .+2 ;JUMP IF DRLO IS ALL ONES
1489 ERRORM TST,DATA PATH DATA DID NOT LOAD INTO DRLO REG,^_
1490 <DIAG DID A MICROBUS INIT, LOADED DRLO WITH ALL ZEROS, THEN
1491 002016 1 117331 4 7 1331 SET "DATA TO DEVICE" AND CLOCKED DRLO.>
1492
1493 ERLOOP TST ^SALL
1494 002017 1 002100 0 1 0 100
1495 002020 1 117326 4 7 1326
1496 002021 1 114002 4 6 0002
1497 002022 1 117333 4 7 1333 REPEAT TST
1498 002023 1 114002 4 6 0002
1499
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 12
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
1500 TEST 165,TEST "ON LINE"
1501 ;***********************************************************************
1502 ;* MCODE2 * TEST 165 * TEST "ON LINE"
1503 ;***********************************************************************
1504 SALL
1505 002024 1 002245 0 1 0 245
1506 002025 1 117320 4 7 1320
1507
1508 002026 TST165: SALL
1509
1510 ;*TEST THAT THE "ON LINE" BIT CAN BE SET AND CLEARED.
1511 ;*TO INHIBIT TURNING ON THE CHANNEL BUS DRIVERS SET "CU RESET".
1512
1513 ;*WRITE ONES TO REG 16.
1514 ;*WRITE A ONE TO "ON LINE".
1515 ;*CHECK THAT IT SET.
1516
1517 002026 1 002007 0 1 0 007 LDBR 7 ;WRITE ONES TO REG 16 TO SET "CU RESET"
1518 002027 1 064351 3 2 0 16 11 MOVB CUSTAT
1519 002030 1 002100 0 1 0 100 LDBR CURSEN ;SET "CU RESET EN"
1520 002031 1 064071 3 2 0 03 11 MOVB TOR1
1521 002032 1 002002 0 1 0 002 LDBR ONLINE ;SET "ON LINE"
1522 002033 1 064031 3 2 0 01 11 MOVB CSR1
1523 002034 1 022001 1 1 0 00 01 DATI CSR1,BR ;READ "ON LINE"
1524 002035 1 014000 0 6 0 000 SHR ;RIGHT ADJUST IT
1525 002036 1 104040 4 2 0040 JMPB0 .+2 ;JUMP IF IT SET
1526 002037 1 117331 4 7 1331 ERROR TST,CANNOT WRITE A ONE TO "ON LINE"
1527
1528 ERLOOP TST ^SALL
1529 002040 1 002000 0 1 0 000
1530 002041 1 117323 4 7 1323
1531 002042 1 114026 4 6 0026
1532 ;*CLEAR "ON LINE".
1533 ;*CHECK THAT IT GOT CLEARED.
1534
1535 002043 1 002000 0 1 0 000 LDBR 0 ;CLEAR "ONLINE"
1536 002044 1 064031 3 2 0 01 11 MOVB CSR1
1537 002045 1 022001 1 1 0 00 01 DATI CSR1,BR ;READ "ON LINE"
1538 002046 1 014000 0 6 0 000 SHR ;RIGHT ADJUST IT
1539 002047 1 104051 4 2 0051 JMPB0 .+2 ;JUMP IF IT DIDN'T CLEAR
1540 002050 1 100052 4 0 0052 JMP .+2 ;ELSE, OKAY
1541 002051 1 117331 4 7 1331 ERROR TST,CANNOT WRITE A ZERO TO "ON LINE"
1542
1543 ERLOOP TST ^SALL
1544 002052 1 002001 0 1 0 001
1545 002053 1 117323 4 7 1323
1546 002054 1 114026 4 6 0026
1547 002055 1 002162 0 1 0 162 GOSUB WAIT ;WAIT BEFORE SETTING LOOPEN OR CHAN MODE
1548 002056 1 177231 7 7 2 11 11
1549 002057 1 002000 0 1 0 000 LDBR 0 ;CLEAR "CU RESET"
1550 002060 1 064351 3 2 0 16 11 MOVB CUSTAT
1551 002061 1 064071 3 2 0 03 11 MOVB TOR1 ;CLEAR "CU RESET EN"
1552 002062 1 117333 4 7 1333 REPEAT TST
1553 002063 1 114026 4 6 0026
1554
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 13
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
1555 TEST 166,TEST GENERATION OF "SLVE END XFER"
1556 ;***********************************************************************
1557 ;* MCODE2 * TEST 166 * TEST GENERATION OF "SLVE END XFER"
1558 ;***********************************************************************
1559 SALL
1560 002064 1 002246 0 1 0 246
1561 002065 1 117320 4 7 1320
1562
1563 002066 TST166: SALL
1564
1565 ;*TEST THAT "SLVE END XFER" SETS WHEN AND ONLY WHEN
1566 ;*"STA IN" AND "DX HIGH SPEED" ARE ASSERTED AND "DATA TO DEV" IS CLEARED.
1567 ;*LOOP ENABLE IS SET FOR THIS TEST.
1568
1569 ;*CLEAR "DATA TO DEV".
1570 ;*SET "DIAG HIGH SPEED" AND "STA IN".
1571 ;*CHECK THAT "SLVE END XFER" IS ASSERTED.
1572
1573 002066 1 117203 4 7 1203 JMPSUB DEVRD ;SETUP DEVICE READ.
1574 002067 1 002104 0 1 0 104 LDBR DIHISP+LOOPEN ;SET "DIAG HIGH SPEED" AND LOOP ENABLE.
1575 002070 1 064031 3 2 0 01 11 MOVB CSR1
1576 002071 1 002001 0 1 0 001 LDBR STAINL ;SET "STA IN"
1577 002072 1 064051 3 2 0 02 11 MOVB TOR0
1578 002073 1 117235 4 7 1235 JMPSUB RDSEX ;READ "SLVE END XFER" RIGHT ADJUSTED
1579 002074 1 104076 4 2 0076 JMPB0 .+2 ;JUMP IF IT SET
1580 ERROR TST,"SLVE END XFER" DIDN'T SET,^_
1581 002075 1 117331 4 7 1331 DIAG SET "STA IN" AND "DX HIGH SPEED" AND CLEARED "DATA TO DEVICE"
1582
1583 ERLOOP TST ^SALL
1584 002076 1 002000 0 1 0 000
1585 002077 1 117323 4 7 1323
1586 002100 1 114066 4 6 0066
1587 ;*CLEAR "STA IN".
1588 ;*CHECK THAT "SLVE END XFER" IS CLEARED.
1589
1590 002101 1 002000 0 1 0 000 SEX1: LDBR 0 ;CLEAR "STA IN"
1591 002102 1 064051 3 2 0 02 11 MOVB TOR0
1592 002103 1 117235 4 7 1235 JMPSUB RDSEX ;READ "SLVE END XFER" RIGHT ADJUSTED
1593 002104 1 104106 4 2 0106 JMPB0 .+2 ;JUMP IF IT SET
1594 002105 1 100107 4 0 0107 JMP .+2 ;ELSE, OKAY
1595 ERROR SEX1,"SLVE END XFER" DIDN'T CLEAR,^_
1596 002106 1 117331 4 7 1331 DIAG SET "DX HIGH SPEED" AND CLEARED "STA IN" AND "DATA TO DEVICE"
1597
1598 ERLOOP SEX1 ^SALL
1599 002107 1 002001 0 1 0 001
1600 002110 1 117323 4 7 1323
1601 002111 1 114101 4 6 0101
1602 ;*SET "STA IN" AND CLEAR "HIGH SPEED".
1603 ;*CHECK THAT "SLVE END XFER" IS CLEARED.
1604
1605 002112 1 002001 0 1 0 001 SEX2: LDBR STAINL ;SET "STA IN"
1606 002113 1 064051 3 2 0 02 11 MOVB TOR0
1607 002114 1 002004 0 1 0 004 LDBR LOOPEN ;CLEAR "DX HIGH SPEED"
1608 002115 1 064031 3 2 0 01 11 MOVB CSR1
1609 002116 1 117235 4 7 1235 JMPSUB RDSEX ;READ "SLVE END XFER" RIGHT ADJUSTED
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 13-1
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
1610 002117 1 104121 4 2 0121 JMPB0 .+2 ;JUMP IF IT SET
1611 002120 1 100122 4 0 0122 JMP .+2 ;ELSE, OKAY
1612 ERROR SEX2,"SLVE END XFER" DIDN'T CLEAR,^_
1613 002121 1 117331 4 7 1331 DIAG SET "STA IN" AND CLEARED "DX HIGH SPEED" AND "DATA TO DEVICE"
1614
1615 ERLOOP SEX2 ^SALL
1616 002122 1 002002 0 1 0 002
1617 002123 1 117323 4 7 1323
1618 002124 1 114112 4 6 0112
1619 ;*SET "HIGH SPEED" AND "DATA TO DEV".
1620 ;*CHECK THAT "SLVE END XFER" IS CLEARED.
1621
1622 002125 1 002104 0 1 0 104 SEX3: LDBR DIHISP+LOOPEN ;SET "DX HIGH SPEED"
1623 002126 1 064031 3 2 0 01 11 MOVB CSR1
1624 002127 1 117212 4 7 1212 JMPSUB DEVWR ;SET "DATA TO DEVICE"
1625 002130 1 117235 4 7 1235 JMPSUB RDSEX ;READ "SLVE END XFER" RIGHT ADJUSTED
1626 002131 1 104133 4 2 0133 JMPB0 .+2 ;JUMP IF IT SET
1627 002132 1 100134 4 0 0134 JMP .+2 ;ELSE, OKAY
1628 ERROR SEX3,"SLVE END XFER" DIDN'T CLEAR,^_
1629 002133 1 117331 4 7 1331 DIAG SET "STA IN" AND "DX HIGH SPEED" AND "DATA TO DEVICE"
1630
1631 ERLOOP SEX3 ^SALL
1632 002134 1 002003 0 1 0 003
1633 002135 1 117323 4 7 1323
1634 002136 1 114125 4 6 0125
1635 002137 1 117333 4 7 1333 REPEAT TST
1636 002140 1 114066 4 6 0066
1637
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 14
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
1638 TEST 167,TEST "DIS IN" INTERRUPT
1639 ;***********************************************************************
1640 ;* MCODE2 * TEST 167 * TEST "DIS IN" INTERRUPT
1641 ;***********************************************************************
1642 SALL
1643 002141 1 002247 0 1 0 247
1644 002142 1 117320 4 7 1320
1645
1646 002143 TST167: SALL
1647
1648 ;*TEST THAT AN INTERRUPT OCCURS WHEN AND ONLY WHEN "DIS IN" IS
1649 ;*RECEIVED WITH CHANNEL MODE SET.
1650 ;*LOOP ENABLE IS SET FOR THIS TEST.
1651
1652 ;*SET CHANNEL MODE AND "DIS IN".
1653 ;*CHECK FOR AN INTERRUPT.
1654
1655 002143 1 002002 0 1 0 002 LDBR CLRFLG ;CLEAR REG 0 INTERRUPT FLAGS
1656 002144 1 064011 3 2 0 00 11 MOVB CSR0
1657 002145 1 002005 0 1 0 005 LDBR LOOPEN+CHANL ;SET LOOP ENABLE AND CHANNEL MODE
1658 002146 1 064031 3 2 0 01 11 MOVB CSR1
1659 002147 1 002100 0 1 0 100 LDBR DISINL ;SET "DIS IN"
1660 002150 1 064071 3 2 0 03 11 MOVB TOR1
1661 002151 1 103152 4 1 1152 JMPI ZRTNH ;JMP IF INTERRUPT OCCURRED
1662 002152 1 114154 4 6 0154 JMPZ .+2 ;JMP IF TOOK INTERRUPT JMP
1663 002153 1 117331 4 7 1331 ERROR TST,NO INTERRUPT OCCURRED WHEN "DIS IN" SET IN CHANNEL MODE
1664
1665 ERLOOP TST ^SALL
1666 002154 1 002000 0 1 0 000
1667 002155 1 117323 4 7 1323
1668 002156 1 114143 4 6 0143
1669 ;*SET "OPL IN" AND "REQ IN" TO INSURE "CU RESET" INTERRUPT IS CLEARED.
1670 ;*CLEAR CHANNEL MODE.
1671 ;*CHECK THAT INTERRUPT GOES AWAY.
1672
1673 002157 1 002200 0 1 0 200 LDBR OPLINL ;SET "OPL IN"
1674 002160 1 064051 3 2 0 02 11 MOVB TOR0
1675 002161 1 002140 0 1 0 140 LDBR REQINL+DISINL ;SET "REQ IN"
1676 002162 1 064071 3 2 0 03 11 MOVB TOR1
1677 002163 1 002004 0 1 0 004 LDBR LOOPEN ;CLEAR CHANNEL MODE
1678 002164 1 064031 3 2 0 01 11 MOVB CSR1
1679 002165 1 103152 4 1 1152 JMPI ZRTNH ;JMP IF INTERRUPT STILL THERE
1680 002166 1 114170 4 6 0170 JMPZ .+2 ;JMP IF TOOK INTERRUPT JMP
1681 002167 1 100171 4 0 0171 JMP .+2
1682 ERROR TST,INTERRUPT OCCURRED WHEN "DIS IN" SET WITH CHANNEL ^_
1683 002170 1 117331 4 7 1331 MODE CLEARED
1684
1685 ERLOOP TST ^SALL
1686 002171 1 002001 0 1 0 001
1687 002172 1 117323 4 7 1323
1688 002173 1 114143 4 6 0143
1689 ;*SET CHANNEL MODE AND CLEAR "DIS IN"
1690 ;*CHECK THAT NO INTERRUPT OCCURS
1691
1692 002174 1 002000 0 1 0 000 DIS1: LDBR 0 ;CLEAR "DIS IN"
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 14-1
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
1693 002175 1 064071 3 2 0 03 11 MOVB TOR1
1694 002176 1 002005 0 1 0 005 LDBR LOOPEN+CHANL ;SET CHANNEL MODE
1695 002177 1 064031 3 2 0 01 11 MOVB CSR1
1696 002200 1 103152 4 1 1152 JMPI ZRTNH ;JMP IF INTERRUPT OCCURRED
1697 002201 1 114203 4 6 0203 JMPZ .+2 ;JMP IF TOOK INTERRUPT JMP
1698 002202 1 100204 4 0 0204 JMP .+2
1699 ERROR DIS1,INTERRUPT OCCURRED WITH CHANNEL MODE SET AND ^_
1700 002203 1 117331 4 7 1331 "DIS IN" CLEARED
1701
1702 ERLOOP DIS1 ^SALL
1703 002204 1 002002 0 1 0 002
1704 002205 1 117323 4 7 1323
1705 002206 1 114174 4 6 0174
1706 002207 1 117333 4 7 1333 REPEAT TST
1707 002210 1 114143 4 6 0143
1708
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 15
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
1709 TEST 168,TEST CHANNEL MODE HIGH SPEED WRITE XFER
1710 ;***********************************************************************
1711 ;* MCODE2 * TEST 168 * TEST CHANNEL MODE HIGH SPEED WRITE XFER
1712 ;***********************************************************************
1713 SALL
1714 002211 1 002250 0 1 0 250
1715 002212 1 117320 4 7 1320
1716
1717 002213 TST168: SALL
1718
1719 ;*SIMULATE A HIGH SPEED, DEVICE WRITE TRANSFER IN THE CHANNEL MODE.
1720 ;*VERIFY THAT THE CORRECT SIGNALS ARE GENERATED AT THE APPROPRIATE TIMES.
1721 ;*LOOP ENABLE IS SET FOR THIS TEST.
1722
1723 ;*SET "DATA TO DEVICE", "CHANNEL MODE", THEN "HIGH SPEED".
1724 ;*CHECK THAT "CU INIT" DID NOT GET SET.
1725
1726 002213 1 117153 4 7 1153 JMPSUB INITL ;DO A MICROBUS INIT
1727 002214 1 002005 0 1 0 005 LDBR LOOPEN+CHANL ;SET LOOP ENABLE AND CHANNEL MODE
1728 002215 1 064031 3 2 0 01 11 MOVB CSR1
1729 002216 1 002105 0 1 0 105 LDBR DIHISP+LOOPEN+CHANL ;SET "HIGH SPEED"
1730 002217 1 064031 3 2 0 01 11 MOVB CSR1
1731 002220 1 002000 0 1 0 000 LDBR 0 ;LOAD ZEROS INTO BORLO
1732 002221 1 064231 3 2 0 11 11 MOVB BORLO
1733 002222 1 064151 3 2 0 06 11 MOVB CLKDRL ;CLOCK ONES INTO DRLO
1734 002223 1 117212 4 7 1212 JMPSUB DEVWR ;SET DATA TO DEVICE
1735 002224 1 117310 4 7 1310 JMPSUB DPINIT ;DO A DATA PATH INIT
1736 002225 1 117265 4 7 1265 JMPSUB RDCUIN ;GO READ "CU INIT"
1737 002226 1 104230 4 2 0230 JMPB0 .+2 ;JUMP IF IT SET, SHOULDN'T HAVE
1738 002227 1 100231 4 0 0231 JMP .+2 ;ELSE OKAY
1739 ERROR TST,"CU INIT" SET WHEN IT SHOULDN'T HAVE,^_
1740 002230 1 117331 4 7 1331 DIAG SET CHANNEL MODE THEN SET "HIGH SPEED"
1741
1742 ERLOOP TST ^SALL
1743 002231 1 002000 0 1 0 000
1744 002232 1 117323 4 7 1323
1745 002233 1 114213 4 6 0213
1746 ;*SET "DAT IN".
1747 ;*CHECK THAT "ST DATA REQ", "DATA REQ DLY", AND "SLVE REQ" ARE SET.
1748 ;*CHECK THAT "DIS SLVE REQ", "DR READY", AND "TO DAT OUT" ARE NOT SET.
1749
1750 002234 1 002020 0 1 0 020 LDBR DATINL ;SET "DAT IN"
1751 002235 1 064071 3 2 0 03 11 MOVB TOR1
1752 002236 1 117273 4 7 1273 JMPSUB RDSDRQ ;READ "ST DATA REQ"
1753 002237 1 104241 4 2 0241 JMPB0 .+2 ;JUMP IF IT SET.
1754 002240 1 117331 4 7 1331 ERROR TST,"ST DATA REQ" DIDN'T SET WHEN "DAT IN" SET
1755
1756 ERLOOP TST ^SALL
1757 002241 1 002001 0 1 0 001
1758 002242 1 117323 4 7 1323
1759 002243 1 114213 4 6 0213
1760 002244 1 117262 4 7 1262 JMPSUB RDRDLY ;READ "NOT DATA REQ DLY"
1761 002245 1 104247 4 2 0247 JMPB0 .+2 ;JUMP IF IT SET
1762 002246 1 100250 4 0 0250 JMP .+2 ;JUMP IF CLEARED
1763 002247 1 117331 4 7 1331 ERROR TST,"DATA REQ DLY" DIDN'T SET WHEN "DAT IN" SET
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 15-1
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
1764
1765 ERLOOP TST ^SALL
1766 002250 1 002002 0 1 0 002
1767 002251 1 117323 4 7 1323
1768 002252 1 114213 4 6 0213
1769 002253 1 117276 4 7 1276 JMPSUB RDDSRQ ;READ "NOT DIS SLVE REQ"
1770 002254 1 104256 4 2 0256 JMPB0 .+2 ;JUMP IF IT SET
1771 002255 1 117331 4 7 1331 ERROR TST,"DIS SLVE REQ" SET WHEN "DAT IN" SET IN CHANNEL MODE
1772
1773 ERLOOP TST ^SALL
1774 002256 1 002003 0 1 0 003
1775 002257 1 117323 4 7 1323
1776 002260 1 114213 4 6 0213
1777 002261 1 117257 4 7 1257 JMPSUB RDSLRQ ;READ "SLVE REQ"
1778 002262 1 104264 4 2 0264 JMPB0 .+2 ;JUMP IF SET
1779 ERROR TST,"SLVE REQ" DIDN'T SET WHEN "DAT IN" SET,^_
1780 002263 1 117331 4 7 1331 <"CHANNEL MODE", "HIGH SPEED" AND "DATA TO DEVICE" ARE SET>
1781
1782 ERLOOP TST ^SALL
1783 002264 1 002004 0 1 0 004
1784 002265 1 117323 4 7 1323
1785 002266 1 114213 4 6 0213
1786 002267 1 117254 4 7 1254 JMPSUB RDRRDY ;READ "DR READY"
1787 002270 1 104272 4 2 0272 JMPB0 .+2 ;JUMP IF SET, SHOULDN'T BE
1788 002271 1 100273 4 0 0273 JMP .+2 ;ELSE, OKAY
1789 ERROR TST,"DR READY" SET BEFORE IT SHOULD HAVE,^_
1790 002272 1 117331 4 7 1331 DIAG SET "CHANNEL MODE" AND "HIGH SPEED" THEN SET "DAT IN"
1791
1792 ERLOOP TST ^SALL
1793 002273 1 002005 0 1 0 005
1794 002274 1 117323 4 7 1323
1795 002275 1 114213 4 6 0213
1796 002276 1 022003 1 1 0 00 03 DATI TOR1,BR ;READ REG 4
1797 002277 1 014000 0 6 0 000 SHR ;RIGHT ADJUST "TO DAT OUT"
1798 002300 1 104302 4 2 0302 JMPB0 .+2 ;JUMP IF IT SET, SHOULDN'T HAVE
1799 002301 1 100303 4 0 0303 JMP .+2 ;ELSE, OKAY
1800 ERROR TST,"TO DAT OUT" SET BEFORE IT SHOULD HAVE,^_
1801 002302 1 117331 4 7 1331 DIAG SET "CHANNEL MODE" AND "HIGH SPEED" THEN SET "DAT IN"
1802
1803 ERLOOP TST ^SALL
1804 002303 1 002006 0 1 0 006
1805 002304 1 117323 4 7 1323
1806 002305 1 114213 4 6 0213
1807 ;*SET "SLVE ACK".
1808
1809 ;*CHECK THAT "SLVE REQ" AND "DIAG SLVE ACK" GET CLEARED.
1810 ;*CHECK THAT "DR READY" AND "TO DAT OUT" GET SET.
1811 ;*CHECK THAT THE DRLO REG GETS CLOCKED.
1812 ;*CHECK THAT "2ND BYTE" DOESN'T GET SET.
1813
1814 002306 1 002030 0 1 0 030 LDBR DATINL+DISACK ;SET "DIAG SLVE ACK"
1815 002307 1 064071 3 2 0 03 11 MOVB TOR1
1816 002310 1 117257 4 7 1257 JMPSUB RDSLRQ ;READ "SLVE REQ"
1817 002311 1 104313 4 2 0313 JMPB0 .+2 ;JUMP IF IT DIDN'T CLEAR
1818 002312 1 100314 4 0 0314 JMP .+2 ;ELSE, OKAY
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 15-2
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
1819 ERROR TST,"SLVE REQ" DIDN'T CLEAR,^_
1820 002313 1 117331 4 7 1331 DIAG SET "SLVE REQ" THEN SET "DIAG SLVE ACK"
1821
1822 ERLOOP TST ^SALL
1823 002314 1 002007 0 1 0 007
1824 002315 1 117323 4 7 1323
1825 002316 1 114213 4 6 0213
1826 002317 1 117254 4 7 1254 JMPSUB RDRRDY ;READ "DR READY"
1827 002320 1 104322 4 2 0322 JMPB0 .+2 ;JUMP IF IT SET
1828 ERROR TST,"DR READY" DID NOT SET,^_
1829 002321 1 117331 4 7 1331 DIAG SET "SLVE REQ" THEN "DIAG SLVE ACK" WITH "DATA TO DEV" SET
1830
1831 ERLOOP TST ^SALL
1832 002322 1 002010 0 1 0 010
1833 002323 1 117323 4 7 1323
1834 002324 1 114213 4 6 0213
1835 002325 1 022003 1 1 0 00 03 DATI TOR1,BR ;READ REG 3
1836 002326 1 014000 0 6 0 000 SHR ;RIGHT ADJ "TO DAT OUT" BIT
1837 002327 1 104331 4 2 0331 JMPB0 .+2 ;JUMP IF IT SET
1838 ERROR TST,"TO DAT OUT" DID NOT SET,^_
1839 002330 1 117331 4 7 1331 DIAG SET "DAT IN" THEN SET "DR READY"
1840
1841 ERLOOP TST ^SALL
1842 002331 1 002011 0 1 0 011
1843 002332 1 117323 4 7 1323
1844 002333 1 114213 4 6 0213
1845 002334 1 010000 0 4 0 000 LDMEM 0 ;SET EXPECTED DATA
1846 002335 1 032006 1 5 0 00 06 DATI DRLO,AC0 ;READ DR
1847 002336 1 114340 4 6 0340 JMPZ .+2 ;JUMP IF ONES STILL THERE
1848 002337 1 100341 4 0 0341 JMP .+2 ;ELSE, IT GOT CLOCKED
1849 ERRORM TST,"DRLO" REG DID NOT GET CLOCKED,^_
1850 002340 1 117331 4 7 1331 DIAG SET AND CLEARED "SLVE REQ" WITH "DATA TO DEVICE" SET
1851
1852 ERLOOP TST ^SALL
1853 002341 1 002112 0 1 0 112
1854 002342 1 117326 4 7 1326
1855 002343 1 114213 4 6 0213
1856 002344 1 117251 4 7 1251 JMPSUB RD2BYT ;READ "2ND BYTE"
1857 002345 1 104347 4 2 0347 JMPB0 .+2 ;JUMP IF IT SET, SHOULDN'T HAVE
1858 002346 1 100350 4 0 0350 JMP .+2 ;ELSE, OKAY
1859 ERROR TST,"2ND BYTE" SET WITH NO BUS EXTENSION BOARD,^_
1860 002347 1 117331 4 7 1331 DIAG SET "SLVE ACK DL75"
1861
1862 ERLOOP TST ^SALL
1863 002350 1 002013 0 1 0 013
1864 002351 1 117323 4 7 1323
1865 002352 1 114213 4 6 0213
1866 002353 1 032003 1 5 0 00 03 DATI TOR1,AC0 ;READ REG 4
1867 002354 1 062005 3 1 0 00 05 SHL AC0,BR ;MOVE "DIAG SLVE ACK" TO BIT 4
1868 002355 1 106357 4 3 0357 JMPB4 .+2 ;JUMP IF IT DIDN'T CLEAR
1869 002356 1 100360 4 0 0360 JMP .+2 ;ELSE, OKAY
1870 ERROR TST,"DIAG SLVE ACK" DIDN'T CLEAR,^_
1871 002357 1 117331 4 7 1331 DIAG SET "SLVE REQ" THEN SET "DIAG SLVE ACK"
1872
1873 ERLOOP TST ^SALL
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 15-3
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
1874 002360 1 002014 0 1 0 014
1875 002361 1 117323 4 7 1323
1876 002362 1 114213 4 6 0213
1877 ;*CLEAR "DAT IN".
1878 ;*CHECK THAT "ST DATA REQ", "DATA REQ DLY", "DR READY", AND "TO DAT OUT" GET CLEARED.
1879 ;*CHECK THAT "END XFER" AND "CU RUN" DON'T SET.
1880
1881 002363 1 002000 0 1 0 000 LDBR 0 ;CLEAR "DAT IN"
1882 002364 1 064071 3 2 0 03 11 MOVB TOR1
1883 002365 1 117273 4 7 1273 JMPSUB RDSDRQ ;READ "ST DATA REQ"
1884 002366 1 104370 4 2 0370 JMPB0 .+2 ;JUMP IF DIDN'T CLEAR
1885 002367 1 100371 4 0 0371 JMP .+2 ;ELSE, OKAY
1886 ERROR TST,"ST DATA REQ" DIDN'T CLEAR,^_
1887 002370 1 117331 4 7 1331 DIAG SET AND CLEARED "DAT IN"
1888
1889 ERLOOP TST ^SALL
1890 002371 1 002015 0 1 0 015
1891 002372 1 117323 4 7 1323
1892 002373 1 114213 4 6 0213
1893 002374 1 117262 4 7 1262 JMPSUB RDRDLY ;READ "NOT DATA REQ DLY"
1894 002375 1 104377 4 2 0377 JMPB0 .+2 ;JUMP IF DIDN'T CLEAR
1895 ERROR TST,"DATA REQ DLY" DIDN'T CLEAR,^_
1896 002376 1 117331 4 7 1331 DIAG SET "DATA REQ DLY" THEN CLEARED "ST DATA REQ"
1897
1898 ERLOOP TST ^SALL
1899 002377 1 002016 0 1 0 016
1900 002400 1 117323 4 7 1323
1901 002401 1 114213 4 6 0213
1902 002402 1 117254 4 7 1254 JMPSUB RDRRDY ;READ "DR READY"
1903 002403 1 104405 4 2 0405 JMPB0 .+2 ;JUMP IF IT DIDN'T CLEAR
1904 002404 1 100406 4 0 0406 JMP .+2 ;ELSE, OKAY
1905 ERROR TST,"DR READY" DIDN'T CLEAR,^_
1906 002405 1 117331 4 7 1331 DIAG SET "DR READY" THEN CLEARED "DATA REQ DLY"
1907
1908 ERLOOP TST ^SALL
1909 002406 1 002017 0 1 0 017
1910 002407 1 117323 4 7 1323
1911 002410 1 114213 4 6 0213
1912 002411 1 022003 1 1 0 00 03 DATI TOR1,BR ;READ REG 4
1913 002412 1 014000 0 6 0 000 SHR ;RIGHT ADJUST "TO DAT OUT"
1914 002413 1 104415 4 2 0415 JMPB0 .+2 ;JUMP IF IT DIDN'T CLEAR
1915 002414 1 100416 4 0 0416 JMP .+2
1916 ERROR TST,"TO DAT OUT" DIDN'T CLEAR,^_
1917 002415 1 117331 4 7 1331 DIAG SET "TO DAT OUT" THEN CLEARED "DAT IN"
1918
1919 ERLOOP TST ^SALL
1920 002416 1 002020 0 1 0 020
1921 002417 1 117323 4 7 1323
1922 002420 1 114213 4 6 0213
1923 002421 1 022000 1 1 0 00 00 DATI CSR0,BR ;READ "END XFER"
1924 002422 1 110424 4 4 0424 JMPB7 .+2 ;JUMP IF IT SET, SHOULDN'T HAVE
1925 002423 1 100425 4 0 0425 JMP .+2 ;ELSE, OKAY
1926 ERROR TST,"END XFER" SET WHEN IT SHOULDN'T HAVE,^_
1927 002424 1 117331 4 7 1331 DIAG CLEARED "DATA REQ DLY" WITH "SLVE END XFER" CLEARED
1928
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 15-4
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
1929 ERLOOP TST ^SALL
1930 002425 1 002021 0 1 0 021
1931 002426 1 117323 4 7 1323
1932 002427 1 114213 4 6 0213
1933 002430 1 002104 0 1 0 104 LDBR LOOPEN+DIHISP ;CLEAR CHANNEL MODE TO READ "CU RUN"
1934 002431 1 064031 3 2 0 01 11 MOVB CSR1
1935 002432 1 032005 1 5 0 00 05 DATI SPADR,AC0 ;READ CU MODE BITS
1936 002433 1 062005 3 1 0 00 05 SHL AC0,BR ;MOVE "CU RUN" TO BIT 4
1937 002434 1 106436 4 3 0436 JMPB4 .+2 ;JUMP IF IT SET, SHOULDN'T HAVE
1938 002435 1 100437 4 0 0437 JMP .+2 ;ELSE, OKAY
1939 ERROR TST,"CU RUN" SET WHEN IT SHOULDN'T HAVE,^_
1940 002436 1 117331 4 7 1331 DIAG SET AND CLEAR "DATA REQ DLY" WITH "CU INIT" CLEARED
1941
1942 ERLOOP TST ^SALL
1943 002437 1 002022 0 1 0 022
1944 002440 1 117323 4 7 1323
1945 002441 1 114213 4 6 0213
1946 002442 1 117333 4 7 1333 REPEAT TST
1947 002443 1 114213 4 6 0213
1948
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 16
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
1949 TEST 169,TEST CHANNEL MODE HIGH SPEED READ XFER
1950 ;***********************************************************************
1951 ;* MCODE2 * TEST 169 * TEST CHANNEL MODE HIGH SPEED READ XFER
1952 ;***********************************************************************
1953 SALL
1954 002444 1 002251 0 1 0 251
1955 002445 1 117320 4 7 1320
1956
1957 002446 TST169: SALL
1958
1959 ;*SIMULATE A HIGH SPEED, DEVICE READ TRANSFER IN THE CHANNEL MODE.
1960 ;*VERIFY THAT THE CORRECT SIGNALS ARE GENERATED AT THE APPROPRIATE TIMES.
1961 ;*LOOP ENABLE IS SET FOR THIS TEST.
1962
1963 ;*CLEAR "DATA TO DEVICE".
1964 ;*SET "CHANNEL MODE" THEN "HIGH SPEED".
1965 ;*SET "SRV IN".
1966 ;*CHECK THAT "ST DATA REQ" AND "SLVE REQ" ARE SET.
1967 ;*CHECK THAT "DR READY" AND "TO SRV OUT" ARE NOT SET AND THAT
1968 ;*DRLO REG IS NOT CLOCKED.
1969
1970 002446 1 117153 4 7 1153 JMPSUB INITL ;DO A MICROBUS INIT
1971 002447 1 117203 4 7 1203 JMPSUB DEVRD ;CLEAR "DATA TO DEVICE"
1972 002450 1 002005 0 1 0 005 LDBR LOOPEN+CHANL ;SET LOOP ENABLE AND CHANNEL MODE
1973 002451 1 064031 3 2 0 01 11 MOVB CSR1
1974 002452 1 002105 0 1 0 105 LDBR DIHISP+LOOPEN+CHANL ;SET "HIGH SPEED"
1975 002453 1 064031 3 2 0 01 11 MOVB CSR1
1976 002454 1 117212 4 7 1212 JMPSUB DEVWR ;SET DATA TO DEVICE
1977 002455 1 117310 4 7 1310 JMPSUB DPINIT ;DO A DATA PATH INIT
1978 002456 1 117203 4 7 1203 JMPSUB DEVRD ;CLEAR DATA TO DEVICE
1979 002457 1 117175 4 7 1175 JMPSUB LOADDR ;GO LOAD DRLO WITH ZEROS
1980 002460 1 002200 0 1 0 200 LDBR SRVINL ;SET "SRV IN"
1981 002461 1 064071 3 2 0 03 11 MOVB TOR1
1982 002462 1 117273 4 7 1273 JMPSUB RDSDRQ ;READ "ST DATA REQ"
1983 002463 1 104465 4 2 0465 JMPB0 .+2 ;JUMP IF SET
1984 002464 1 117331 4 7 1331 ERROR TST,"ST DATA REQ" DIDN'T SET WHEN "SRV IN" SET
1985
1986 ERLOOP TST ^SALL
1987 002465 1 002000 0 1 0 000
1988 002466 1 117323 4 7 1323
1989 002467 1 114446 4 6 0446
1990 002470 1 117257 4 7 1257 JMPSUB RDSLRQ ;READ "SLVE REQ"
1991 002471 1 104473 4 2 0473 JMPB0 .+2 ;JUMP IF IT SET
1992 ERROR TST,"SLVE REQ" DIDN'T SET WHEN "SRV IN" SET,^_
1993 002472 1 117331 4 7 1331 "CHANNEL MODE" AND "HIGH SPEED" ARE SET AND "DATA TO DEVICE" IS CLEARED
1994
1995 ERLOOP TST ^SALL
1996 002473 1 002001 0 1 0 001
1997 002474 1 117323 4 7 1323
1998 002475 1 114446 4 6 0446
1999 002476 1 117254 4 7 1254 JMPSUB RDRRDY ;READ "DR READY"
2000 002477 1 104501 4 2 0501 JMPB0 .+2 ;JUMP IF SET, SHOULDN'T BE
2001 002500 1 100502 4 0 0502 JMP .+2 ;ELSE, OKAY
2002 ERROR TST,"DR READY" SET BEFORE IT SHOULD HAVE,^_
2003 002501 1 117331 4 7 1331 DIAG SET "CHANNEL MODE" AND "HIGH SPEED" THEN SET "SRV IN"
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 16-1
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
2004
2005 ERLOOP TST ^SALL
2006 002502 1 002002 0 1 0 002
2007 002503 1 117323 4 7 1323
2008 002504 1 114446 4 6 0446
2009 002505 1 022003 1 1 0 00 03 DATI TOR1,BR ;READ "TO SRV OUT"
2010 002506 1 104510 4 2 0510 JMPB0 .+2 ;JUMP IF IT SET, SHOULDN'T HAVE
2011 002507 1 100511 4 0 0511 JMP .+2 ;ELSE, OKAY
2012 ERROR TST,"TO SRV OUT" SET WITH "DR READY" CLEARED,^_
2013 002510 1 117331 4 7 1331 DIAG SET "SRV IN"
2014
2015 ERLOOP TST ^SALL
2016 002511 1 002003 0 1 0 003
2017 002512 1 117323 4 7 1323
2018 002513 1 114446 4 6 0446
2019 002514 1 010377 0 4 0 377 LDMEM -1 ;SET EXPECTED DATA
2020 002515 1 032006 1 5 0 00 06 DATI DRLO,AC0 ;READ DR REG
2021 002516 1 114520 4 6 0520 JMPZ .+2 ;JUMP IF DRLO CLOCKED
2022 ERRORM TST,"DRLO" REG DIDN'T GET CLOCKED,^_
2023 002517 1 117331 4 7 1331 DIAG SET "SRV IN" WITH "DATA TO DEV" CLEARED
2024
2025 ERLOOP TST ^SALL
2026 002520 1 002104 0 1 0 104
2027 002521 1 117326 4 7 1326
2028 002522 1 114446 4 6 0446
2029 ;*SET "DIAG SLVE ACK".
2030 ;*CHECK THAT "DR READY" AND "TO SRV OUT" ARE SET.
2031
2032 002523 1 002210 0 1 0 210 LDBR DISACK+SRVINL ;SET "DIAG SLVE ACK"
2033 002524 1 064071 3 2 0 03 11 MOVB TOR1
2034 002525 1 117254 4 7 1254 JMPSUB RDRRDY ;READ "DR READY"
2035 002526 1 104530 4 2 0530 JMPB0 .+2 ;JUMP IF SET
2036 ERROR TST,"DR READY" DIDN'T SET,^_
2037 <DIAG SET "SLVE REQ" THEN "DIAG SLVE ACK" WITH
2038 002527 1 117331 4 7 1331 "DATA TO DEV" CLEARED>
2039
2040 ERLOOP TST ^SALL
2041 002530 1 002005 0 1 0 005
2042 002531 1 117323 4 7 1323
2043 002532 1 114446 4 6 0446
2044 002533 1 022003 1 1 0 00 03 DATI TOR1,BR ;READ "TO SRV OUT"
2045 002534 1 104536 4 2 0536 JMPB0 .+2 ;JUMP IF SET
2046 ERROR TST,"TO SRV OUT" DIDN'T SET,^_
2047 002535 1 117331 4 7 1331 DIAG SET "SRV IN" THEN SET "DR READY"
2048
2049 ERLOOP TST ^SALL
2050 002536 1 002006 0 1 0 006
2051 002537 1 117323 4 7 1323
2052 002540 1 114446 4 6 0446
2053 ;*CLEAR "SRV IN".
2054 ;*CHECK THAT "ST DATA REQ" AND "TO SRV OUT" CLEAR.
2055
2056 002541 1 002000 0 1 0 000 LDBR 0 ;CLEAR "SRV IN"
2057 002542 1 064071 3 2 0 03 11 MOVB TOR1
2058 002543 1 117273 4 7 1273 JMPSUB RDSDRQ ;READ "ST DATA REQ"
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 16-2
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
2059 002544 1 104546 4 2 0546 JMPB0 .+2 ;JUMP IF IT DIDN'T CLEAR
2060 002545 1 100547 4 0 0547 JMP .+2 ;ELSE, OKAY
2061 ERROR TST,"ST DATA REQ" DIDN'T CLEAR,^_
2062 002546 1 117331 4 7 1331 DIAG SET AND CLEARED "SRV IN"
2063
2064 ERLOOP TST ^SALL
2065 002547 1 002007 0 1 0 007
2066 002550 1 117323 4 7 1323
2067 002551 1 114446 4 6 0446
2068 002552 1 022003 1 1 0 00 03 DATI TOR1,BR
2069 002553 1 104555 4 2 0555 JMPB0 .+2
2070 002554 1 100556 4 0 0556 JMP .+2
2071 ERROR TST,"TO SRV OUT" DIDN'T CLEAR,^_
2072 002555 1 117331 4 7 1331 DIAG SET "TO SRV OUT" THEN CLEARED "SRV IN"
2073
2074 ERLOOP TST ^SALL
2075 002556 1 002010 0 1 0 010
2076 002557 1 117323 4 7 1323
2077 002560 1 114446 4 6 0446
2078 002561 1 117333 4 7 1333 REPEAT TST
2079 002562 1 114446 4 6 0446
2080
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 17
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
2081 TEST 170,TEST CHANNEL MODE HIGH SPEED XFER TERMINATION
2082 ;***********************************************************************
2083 ;* MCODE2 * TEST 170 * TEST CHANNEL MODE HIGH SPEED XFER TERMINATION
2084 ;***********************************************************************
2085 SALL
2086 002563 1 002252 0 1 0 252
2087 002564 1 117320 4 7 1320
2088
2089 002565 TST170: SALL
2090
2091 ;*SIMULATE THE TERMINATION OF A HIGH SPEED, DEVICE READ XFER IN CHANNEL MODE.
2092 ;*VERIFY THAT THE CORRECT SIGNALS ARE GENERATED AT THE APPROPRIATE TIMES.
2093 ;*LOOP ENABLE IS SET FOR THIS TEST.
2094
2095 ;*CLEAR "DATA TO DEVICE", SET "CHANNEL MODE" THEN "HIGH SPEED".
2096 ;*SET "DAT IN".
2097 ;*SET "STA IN" TO SET "SLVE END XFER".
2098 ;*SET "DIAG SLVE ACK".
2099 ;*CLR "DAT IN" TO CLEAR "DATA REQ DLY".
2100 ;*CHECK THAT "END XFER" IS SET.
2101
2102 002565 1 117153 4 7 1153 JMPSUB INITL ;DO A MICROBUS INIT
2103 002566 1 117203 4 7 1203 JMPSUB DEVRD ;CLEAR "DATA TO DEVICE"
2104 002567 1 002005 0 1 0 005 LDBR LOOPEN+CHANL ;SET LOOP ENABLE AND CHANNEL MODE
2105 002570 1 064031 3 2 0 01 11 MOVB CSR1
2106 002571 1 002105 0 1 0 105 LDBR LOOPEN+DIHISP+CHANL ;SET "HIGH SPEED"
2107 002572 1 064031 3 2 0 01 11 MOVB CSR1
2108 002573 1 117212 4 7 1212 JMPSUB DEVWR ;SET DATA TO DEVICE
2109 002574 1 117310 4 7 1310 JMPSUB DPINIT ;DO A DATA PATH INIT
2110 002575 1 117203 4 7 1203 JMPSUB DEVRD ;CLEAR DATA TO DEVICE
2111 002576 1 002020 0 1 0 020 LDBR DATINL ;SET "DAT IN"
2112 002577 1 064071 3 2 0 03 11 MOVB TOR1
2113 002600 1 002001 0 1 0 001 LDBR STAINL ;SET "STA IN" TO SET "SLVE END XFER"
2114 002601 1 064051 3 2 0 02 11 MOVB TOR0
2115 002602 1 002000 0 1 0 000 LDBR 0 ;CLEAR "DAT IN"
2116 002603 1 064071 3 2 0 03 11 MOVB TOR1
2117 002604 1 000000 0 0 0 000 NOP ;DELAY BEFORE DOING DATI
2118 002605 1 022000 1 1 0 00 00 DATI CSR0,BR ;READ "END XFER"
2119 002606 1 110610 4 4 0610 JMPB7 .+2 ;JUMP IF IT SET, SHOULD HAVE
2120 ERROR TST,"END XFER" DIDN'T SET,^_
2121 002607 1 117331 4 7 1331 DIAG CLEARED "DATA REQ DLY" WITH "SLVE END XFER" SET
2122
2123 ERLOOP TST ^SALL
2124 002610 1 002000 0 1 0 000
2125 002611 1 117323 4 7 1323
2126 002612 1 114565 4 6 0565
2127 ;*SET "DAT IN".
2128 ;*CHECK THAT "SLVE REQ" DOES NOT SET AND "DR READY" DOES SET.
2129
2130 002613 1 002020 0 1 0 020 LDBR DATINL ;SET "DAT IN"
2131 002614 1 064071 3 2 0 03 11 MOVB TOR1
2132 002615 1 117257 4 7 1257 JMPSUB RDSLRQ ;READ "SLVE REQ"
2133 002616 1 104620 4 2 0620 JMPB0 .+2 ;JUMP IF SET, SHOULDN'T BE
2134 002617 1 100621 4 0 0621 JMP .+2 ;ELSE, OKAY
2135 002620 1 117331 4 7 1331 ERROR TST,"SLVE REQ" SET WITH "SLVE END XFER" SET
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 17-1
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
2136
2137 ERLOOP TST ^SALL
2138 002621 1 002001 0 1 0 001
2139 002622 1 117323 4 7 1323
2140 002623 1 114565 4 6 0565
2141 002624 1 117254 4 7 1254 JMPSUB RDRRDY ;READ "DR READY"
2142 002625 1 104627 4 2 0627 JMPB0 .+2 ;JUMP IF SET, SHOULD BE
2143 ERROR TST,"DR READY" DIDN'T SET,^_
2144 002626 1 117331 4 7 1331 DIAG SET "DAT IN" WITH "END XFER" SET
2145
2146 ERLOOP TST ^SALL
2147 002627 1 002002 0 1 0 002
2148 002630 1 117323 4 7 1323
2149 002631 1 114565 4 6 0565
2150 ;*CLEAR "DX HIGH SPEED"
2151 ;*CHECK THAT "END XFER" IS CLEARED.
2152
2153 002632 1 002005 0 1 0 005 LDBR LOOPEN+CHANL ;CLEAR "HIGH SPEED"
2154 002633 1 064031 3 2 0 01 11 MOVB CSR1
2155 002634 1 000000 0 0 0 000 NOP ;DELAY BEFORE DOING DATI
2156 002635 1 022000 1 1 0 00 00 DATI CSR0,BR ;READ "END XFER"
2157 002636 1 110640 4 4 0640 JMPB7 .+2 ;JUMP IF STILL SET
2158 002637 1 100641 4 0 0641 JMP .+2 ;ELSE, OKAY
2159 002640 1 117331 4 7 1331 ERROR TST,"END XFER" DIDN'T CLEAR WHEN "HIGH SPEED" CLEARED
2160
2161 ERLOOP TST ^SALL
2162 002641 1 002003 0 1 0 003
2163 002642 1 117323 4 7 1323
2164 002643 1 114565 4 6 0565
2165 ;*TEST THAT "END XFER" TOGGLES.
2166 ;*CLEAR "DATA TO DEVICE", SET "CHANNEL MODE" THEN "HIGH SPEED".
2167 ;*SET "DAT IN".
2168 ;*SET "STA IN" TO SET "SLVE END XFER".
2169 ;*SET "DIAG SLVE ACK".
2170 ;*CLR "DAT IN" TO CLEAR "DATA REQ DLY" AND SET "END XFER".
2171 ;*SET AND CLEAR "DAT IN" TO CLOCK "END XFER" AGAIN.
2172 ;*CHECK THAT "END XFER" IS CLEARED.
2173
2174 002644 1 117153 4 7 1153 EXFER1: JMPSUB INITL ;DO A MICROBUS INIT
2175 002645 1 117203 4 7 1203 JMPSUB DEVRD ;CLEAR "DATA TO DEVICE"
2176 002646 1 002005 0 1 0 005 LDBR LOOPEN+CHANL ;SET LOOP ENABLE AND CHANNEL MODE
2177 002647 1 064031 3 2 0 01 11 MOVB CSR1
2178 002650 1 002105 0 1 0 105 LDBR LOOPEN+DIHISP+CHANL ;SET "HIGH SPEED"
2179 002651 1 064031 3 2 0 01 11 MOVB CSR1
2180 002652 1 117212 4 7 1212 JMPSUB DEVWR ;SET DATA TO DEVICE
2181 002653 1 117310 4 7 1310 JMPSUB DPINIT ;DO A DATA PATH INIT
2182 002654 1 117203 4 7 1203 JMPSUB DEVRD ;CLEAR DATA TO DEVICE
2183 002655 1 002020 0 1 0 020 LDBR DATINL ;SET "DAT IN"
2184 002656 1 064071 3 2 0 03 11 MOVB TOR1
2185 002657 1 002001 0 1 0 001 LDBR STAINL ;SET "STA IN" TO SET "SLVE END XFER"
2186 002660 1 064051 3 2 0 02 11 MOVB TOR0
2187 002661 1 002000 0 1 0 000 LDBR 0 ;CLEAR "DAT IN"
2188 002662 1 064071 3 2 0 03 11 MOVB TOR1
2189 002663 1 002020 0 1 0 020 LDBR DATINL ;SET "DAT IN"
2190 002664 1 064071 3 2 0 03 11 MOVB TOR1
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 17-2
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
2191 002665 1 002000 0 1 0 000 LDBR 0 ;CLEAR "DAT IN"
2192 002666 1 064071 3 2 0 03 11 MOVB TOR1
2193 002667 1 000000 0 0 0 000 NOP ;DELAY BEFORE DOING DATI
2194 002670 1 022000 1 1 0 00 00 DATI CSR0,BR ;READ "END XFER"
2195 002671 1 110673 4 4 0673 JMPB7 .+2 ;JUMP IF STILL SET
2196 002672 1 100674 4 0 0674 JMP .+2 ;ELSE, OKAY
2197 ERROR EXFER1,"END XFER" DIDN'T CLEAR,^_
2198 002673 1 117331 4 7 1331 DIAG SET "END XFER" THEN TOGGLED "DATA REQ DLY"
2199
2200 ERLOOP EXFER1 ^SALL
2201 002674 1 002004 0 1 0 004
2202 002675 1 117323 4 7 1323
2203 002676 1 114644 4 6 0644
2204 002677 1 117333 4 7 1333 REPEAT TST
2205 002700 1 114565 4 6 0565
2206
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 18
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
2207 TEST 171,TEST OVERLAPPING "SRV IN" AND "DAT IN"
2208 ;***********************************************************************
2209 ;* MCODE2 * TEST 171 * TEST OVERLAPPING "SRV IN" AND "DAT IN"
2210 ;***********************************************************************
2211 SALL
2212 002701 1 002253 0 1 0 253
2213 002702 1 117320 4 7 1320
2214
2215 002703 TST171: SALL
2216
2217 ;*SIMULATE THE RECEPTION OF "DAT IN" WITH "SRV IN" ALREADY SET AND VICE-VERSA.
2218 ;*CHECK THAT THESE CONDITIONS ARE PROCESSED CORRECTLY, I.E., THE SECOND SIGNAL RECEIVED
2219 ;*IS NOT PROCESSED UNTIL THE FIRST ONE CLEARS.
2220 ;*LOOP ENABLE IS SET FOR THIS TEST.
2221
2222 ;*SET "CHANNEL MODE" AND "HIGH SPEED".
2223 ;*SET "SRV IN".
2224 ;*SET "DIAG SLVE ACK".
2225 ;*SET "DAT IN".
2226 ;*CHECK THAT "TO DAT OUT" IS NOT SET.
2227
2228 002703 1 117153 4 7 1153 JMPSUB INITL ;DO A MICROBUS INIT
2229 002704 1 002005 0 1 0 005 LDBR LOOPEN+CHANL ;SET LOOP ENABLE AND CHANNEL MODE.
2230 002705 1 064031 3 2 0 01 11 MOVB CSR1
2231 002706 1 002105 0 1 0 105 LDBR LOOPEN+CHANL+DIHISP ;SET "HIGH SPEED"
2232 002707 1 064031 3 2 0 01 11 MOVB CSR1
2233 002710 1 117212 4 7 1212 JMPSUB DEVWR ;SET DATA TO DEVICE
2234 002711 1 117310 4 7 1310 JMPSUB DPINIT ;DO A DATA PATH INIT
2235 002712 1 117203 4 7 1203 JMPSUB DEVRD ;CLEAR DATA TO DEVICE
2236 002713 1 002200 0 1 0 200 LDBR SRVINL ;SET "SRV IN"
2237 002714 1 064071 3 2 0 03 11 MOVB TOR1
2238 002715 1 002210 0 1 0 210 LDBR DISACK+SRVINL ;SET "DIAG SLVE ACK"
2239 002716 1 064071 3 2 0 03 11 MOVB TOR1
2240 002717 1 002220 0 1 0 220 LDBR DATINL+SRVINL ;SET "DAT IN"
2241 002720 1 064071 3 2 0 03 11 MOVB TOR1
2242 002721 1 000000 0 0 0 000 NOP ;DELAY BEFORE DOING DATI
2243 002722 1 022003 1 1 0 00 03 DATI TOR1,BR ;READ "TO DAT OUT"
2244 002723 1 014000 0 6 0 000 SHR ;RIGHT ADJUST IT
2245 002724 1 104726 4 2 0726 JMPB0 .+2 ;JUMP IF SET TOO SOON
2246 002725 1 100727 4 0 0727 JMP .+2 ;ELSE, OKAY
2247 ERROR TST,"TO DAT OUT" SET TOO SOON,^_
2248 002726 1 117331 4 7 1331 <DIAG SET "SRV IN", "DIAG SLVE ACK", THEN "DAT IN">
2249
2250 ERLOOP TST ^SALL
2251 002727 1 002000 0 1 0 000
2252 002730 1 117323 4 7 1323
2253 002731 1 114703 4 6 0703
2254 ;*CLEAR "SRV IN".
2255 ;*CHECK THAT "ST DATA REQ" IS SET.
2256
2257 002732 1 002020 0 1 0 020 LDBR DATINL ;CLEAR "SRV IN"
2258 002733 1 064071 3 2 0 03 11 MOVB TOR1
2259 002734 1 117273 4 7 1273 JMPSUB RDSDRQ ;READ "ST DATA REQ"
2260 002735 1 104737 4 2 0737 JMPB0 .+2 ;JUMP IF SET
2261 ERROR TST,"ST DATA REQ" DIDN'T SET,^_
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 18-1
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
2262 002736 1 117331 4 7 1331 DIAG SET "TO SRV OUT" THEN SET "DAT IN" AND CLEARED "SRV IN"
2263
2264 ERLOOP TST ^SALL
2265 002737 1 002001 0 1 0 001
2266 002740 1 117323 4 7 1323
2267 002741 1 114703 4 6 0703
2268 ;*SET "DIAG SLVE ACK".
2269 ;*CHECK THAT "TO DAT OUT" IS SET.
2270
2271 002742 1 002030 0 1 0 030 LDBR DATINL+DISACK ;SET "DIAG SLVE ACK"
2272 002743 1 064071 3 2 0 03 11 MOVB TOR1
2273 002744 1 000000 0 0 0 000 NOP ;DELAY BEFORE DOING DATI
2274 002745 1 022003 1 1 0 00 03 DATI TOR1,BR ;READ "TO DAT OUT"
2275 002746 1 014000 0 6 0 000 SHR ;RIGHT ADJUST IT
2276 002747 1 104751 4 2 0751 JMPB0 .+2 ;JUMP IF SET
2277 ERROR TST,"TO DAT OUT" DIDN'T SET,^_
2278 <DIAG SET "TO SRV OUT", SET "DAT IN", CLEARED "SRV IN" THEN
2279 002750 1 117331 4 7 1331 SET "DIAG SLVE ACK">
2280
2281 ERLOOP TST ^SALL
2282 002751 1 002002 0 1 0 002
2283 002752 1 117323 4 7 1323
2284 002753 1 114703 4 6 0703
2285 ;*SET "SRV IN".
2286 ;*CHECK THAT "TO SRV OUT" DOES NOT SET.
2287
2288 002754 1 002220 0 1 0 220 LDBR SRVINL+DATINL ;SET "SRV IN"
2289 002755 1 064071 3 2 0 03 11 MOVB TOR1
2290 002756 1 000000 0 0 0 000 NOP ;DELAY BEFORE DOING DATI
2291 002757 1 022003 1 1 0 00 03 DATI TOR1,BR ;READ "TO SRV OUT"
2292 002760 1 104762 4 2 0762 JMPB0 .+2 ;JUMP IF IT SET, SHOULDN'T HAVE
2293 002761 1 100763 4 0 0763 JMP .+2 ;ELSE, OKAY
2294 ERROR TST,"TO SRV OUT" SET TOO SOON,^_
2295 002762 1 117331 4 7 1331 DIAG SET "TO DAT OUT" THEN SET "SRV IN"
2296
2297 ERLOOP TST ^SALL
2298 002763 1 002003 0 1 0 003
2299 002764 1 117323 4 7 1323
2300 002765 1 114703 4 6 0703
2301 ;*CLEAR "DAT IN".
2302 ;*CHECK THAT "ST DATA REQ" IS SET.
2303
2304 002766 1 002200 0 1 0 200 LDBR SRVINL ;CLEAR "DAT IN"
2305 002767 1 064071 3 2 0 03 11 MOVB TOR1
2306 002770 1 117273 4 7 1273 JMPSUB RDSDRQ ;READ "ST DATA REQ"
2307 002771 1 104773 4 2 0773 JMPB0 .+2 ;JUMP IF SET OKAY
2308 ERROR TST,"ST DATA REQ" DID NOT SET,^_
2309 002772 1 117331 4 7 1331 DIAG SET "TO DAT OUT" THEN SET "SRV IN" AND CLEARED "DAT IN"
2310
2311 ERLOOP TST ^SALL
2312 002773 1 002004 0 1 0 004
2313 002774 1 117323 4 7 1323
2314 002775 1 114703 4 6 0703
2315 ;*SET "DIAG SLVE ACK".
2316 ;*CHECK THAT "TO SRV OUT" IS SET.
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 18-2
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
2317
2318 002776 1 002210 0 1 0 210 LDBR DISACK+SRVINL ;SET "DIAG SLVE ACK"
2319 002777 1 064071 3 2 0 03 11 MOVB TOR1
2320 003000 1 000000 0 0 0 000 NOP ;DELAY BEFORE DOING DATI
2321 003001 1 022003 1 1 0 00 03 DATI TOR1,BR ;READ "TO SRV OUT"
2322 003002 1 105004 4 2 1004 JMPB0 .+2 ;JUMP IF SET, SHOULD BE
2323 ERROR TST,"TO SRV OUT" DIDN'T SET,^_
2324 <DIAG SET "TO DAT OUT", SET "SRV IN", CLEARED "DAT IN" THEN
2325 003003 1 117331 4 7 1331 SET "DIAG SLVE ACK">
2326
2327 ERLOOP TST ^SALL
2328 003004 1 002005 0 1 0 005
2329 003005 1 117323 4 7 1323
2330 003006 1 114703 4 6 0703
2331 ;*CLEAR "SRV IN".
2332 ;*CHECK THAT "ST DATA REQ" IS CLEARED.
2333
2334 003007 1 002000 0 1 0 000 LDBR 0 ;CLEAR "SRV IN"
2335 003010 1 064071 3 2 0 03 11 MOVB TOR1
2336 003011 1 117273 4 7 1273 JMPSUB RDSDRQ ;READ "ST DATA REQ"
2337 003012 1 105014 4 2 1014 JMPB0 .+2 ;JUMP IF SET, SHOULDN'T BE
2338 003013 1 101015 4 0 1015 JMP .+2 ;ELSE, OKAY
2339 ERROR TST,"ST DATA REQ" DIDN'T CLEAR,^_
2340 <DIAG SET AND CLEARED "TO DAT OUT" THEN SET "TO SRV OUT" AND
2341 003014 1 117331 4 7 1331 CLEARED "SRV IN">
2342
2343 ERLOOP TST ^SALL
2344 003015 1 002006 0 1 0 006
2345 003016 1 117323 4 7 1323
2346 003017 1 114703 4 6 0703
2347 003020 1 117333 4 7 1333 REPEAT TST
2348 003021 1 114703 4 6 0703
2349
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 19
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
2350 TEST 172,TEST CHANNEL MODE XFER WITH SCRATCH PAD ENABLED
2351 ;***********************************************************************
2352 ;* MCODE2 * TEST 172 * TEST CHANNEL MODE XFER WITH SCRATCH PAD ENABLED
2353 ;***********************************************************************
2354 SALL
2355 003022 1 002254 0 1 0 254
2356 003023 1 117320 4 7 1320
2357
2358 003024 TST172: SALL
2359
2360 ;*SIMULATE A CHANNEL MODE WRITE XFER WITH THE SCRATCH PAD ENABLED.
2361 ;*CHECK THAT THE CORRECT SIGNALS ARE GENERATED AT THE APPROPRIATE TIMES.
2362 ;*LOOP ENABLE IS SET FOR THIS TEST.
2363
2364 ;*SET "DATA TO DEVICE", "CHANNEL MODE" AND "SP EN".
2365 ;*CHECK THAT "DR READY" IS NOT SET.
2366
2367 003024 1 117153 4 7 1153 JMPSUB INITL ;DO A MICROBUS INIT
2368 003025 1 117212 4 7 1212 JMPSUB DEVWR ;SET "DATA TO DEVICE"
2369 003026 1 002004 0 1 0 004 LDBR LOOPEN ;SET LOOP ENABLE
2370 003027 1 064031 3 2 0 01 11 MOVB CSR1
2371 003030 1 002205 0 1 0 205 LDBR LOOPEN+SPEN+CHANL ;SET LOOP AND SP ENABLE AND
2372 003031 1 064031 3 2 0 01 11 MOVB CSR1 ;CHANNEL MODE
2373 003032 1 117310 4 7 1310 JMPSUB DPINIT ;DO A DATA PATH INIT
2374 003033 1 117254 4 7 1254 JMPSUB RDRRDY ;READ "DR READY"
2375 003034 1 105036 4 2 1036 JMPB0 .+2 ;JUMP IF IT SET TOO SOON
2376 003035 1 101037 4 0 1037 JMP .+2 ;ELSE, OKAY
2377 003036 1 117331 4 7 1331 ERROR TST,"DR READY" SET WHEN DIAG SET "SP EN"
2378
2379 ERLOOP TST ^SALL
2380 003037 1 002000 0 1 0 000
2381 003040 1 117323 4 7 1323
2382 003041 1 115024 4 6 1024
2383 ;*SET "SRV IN".
2384 ;*CHECK THAT "DATA REQ DLY" AND "DR READY" GET SET AND
2385 ;*THAT "SLVE REQ" DOES NOT SET.
2386
2387 003042 1 002200 0 1 0 200 LDBR SRVINL ;SET "SRV IN"
2388 003043 1 064071 3 2 0 03 11 MOVB TOR1
2389 003044 1 117262 4 7 1262 JMPSUB RDRDLY ;READ "NOT DATA REQ DLY"
2390 003045 1 105047 4 2 1047 JMPB0 .+2 ;JUMP IF IT SET
2391 003046 1 101050 4 0 1050 JMP .+2 ;JUMP IF CLEARED
2392 ERROR TST,"DATA REQ DLY" DIDN'T SET,^_
2393 003047 1 117331 4 7 1331 DIAG SET "SRV IN" WITH "CHANNEL MODE" AND "SP EN" SET
2394
2395 ERLOOP TST ^SALL
2396 003050 1 002001 0 1 0 001
2397 003051 1 117323 4 7 1323
2398 003052 1 115024 4 6 1024
2399 003053 1 117254 4 7 1254 JMPSUB RDRRDY ;READ "DR READY"
2400 003054 1 105056 4 2 1056 JMPB0 .+2 ;JUMP IF SET, SHOULD BE
2401 ERROR TST,"DR READY" DIDN'T SET,^_
2402 003055 1 117331 4 7 1331 DIAG SET "SRV IN" WITH "CHANNEL MODE" AND "SP EN" SET
2403
2404 ERLOOP TST ^SALL
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 19-1
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
2405 003056 1 002002 0 1 0 002
2406 003057 1 117323 4 7 1323
2407 003060 1 115024 4 6 1024
2408 003061 1 117257 4 7 1257 JMPSUB RDSLRQ ;READ "SLVE REQ"
2409 003062 1 105064 4 2 1064 JMPB0 .+2 ;JUMP IF SET, SHOULDN'T BE
2410 003063 1 101065 4 0 1065 JMP .+2 ;ELSE, OKAY
2411 ERROR TST,"SLVE REQ" SET WHEN IT SHOULDN'T HAVE,^_
2412 003064 1 117331 4 7 1331 DIAG SET "SRV IN" WITH "HIGH SPEED" CLEARED
2413
2414 ERLOOP TST ^SALL
2415 003065 1 002003 0 1 0 003
2416 003066 1 117323 4 7 1323
2417 003067 1 115024 4 6 1024
2418 003070 1 117333 4 7 1333 REPEAT TST
2419 003071 1 115024 4 6 1024
2420
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 20
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
2421 TEST 173,TEST INHIBITING "DATA REQ"
2422 ;***********************************************************************
2423 ;* MCODE2 * TEST 173 * TEST INHIBITING "DATA REQ"
2424 ;***********************************************************************
2425 SALL
2426 003072 1 002255 0 1 0 255
2427 003073 1 117320 4 7 1320
2428
2429 003074 TST173: SALL
2430
2431 ;*TEST THAT "DATA REQ" DOES NOT GET GENERATED IF
2432 ;* (1) "HIGH SPEED" AND "SP EN" ARE BOTH CLEARED, OR
2433 ;* (2) "CHANNEL MODE" IS CLEARED AND "SLVE END XFER" IS SET
2434 ;*LOOP ENABLE IS SET FOR THIS TEST.
2435
2436 ;*SET CHANNEL MODE.
2437 ;*SET "SRV IN".
2438 ;*CHECK THAT "DATA REQ DLY" DOES NOT SET.
2439
2440 003074 1 117153 4 7 1153 JMPSUB INITL ;DO A MICROBUS INIT
2441 003075 1 002005 0 1 0 005 LDBR LOOPEN+CHANL ;SET LOOP ENABLE AND CHANNEL MODE
2442 003076 1 064031 3 2 0 01 11 MOVB CSR1
2443 003077 1 002200 0 1 0 200 LDBR SRVINL ;SET "SRV IN"
2444 003100 1 064071 3 2 0 03 11 MOVB TOR1
2445 003101 1 117262 4 7 1262 JMPSUB RDRDLY ;READ "NOT DATA REQ DLY"
2446 003102 1 105104 4 2 1104 JMPB0 .+2 ;JUMP IF SET, SHOULD BE
2447 ERROR TST,"DATA REQ DLY" SET WHEN IT SHOULDN'T HAVE,^_
2448 003103 1 117331 4 7 1331 DIAG SET "SRV IN" WITH "HIGH SPEED" AND "SP EN" CLEARED
2449
2450 ERLOOP TST ^SALL
2451 003104 1 002000 0 1 0 000
2452 003105 1 117323 4 7 1323
2453 003106 1 115074 4 6 1074
2454 ;*CLEAR "SRV IN".
2455 ;*SET "SLVE END XFER" BY SETTING "HIGH SPEED" AND "STA IN", AND CLEARING
2456 ;*"DATA TO DEVICE".
2457 ;*CLEAR "CHANNEL MODE".
2458 ;*SET "SRV IN".
2459 ;*CHECK THAT "DATA REQ DLY" DOES NOT SET.
2460
2461 003107 1 002000 0 1 0 000 DREQ1: LDBR 0 ;CLEAR "SRV IN"
2462 003110 1 064071 3 2 0 03 11 MOVB TOR1
2463 003111 1 002105 0 1 0 105 LDBR LOOPEN+DIHISP+CHANL ;SET "HIGH SPEED"
2464 003112 1 064031 3 2 0 01 11 MOVB CSR1
2465 003113 1 002001 0 1 0 001 LDBR STAINL ;SET "STA IN"
2466 003114 1 064051 3 2 0 02 11 MOVB TOR0
2467 003115 1 117203 4 7 1203 JMPSUB DEVRD ;CLEAR "DATA TO DEVICE"
2468 003116 1 002104 0 1 0 104 LDBR LOOPEN+DIHISP ;CLEAR "CHANNEL MODE"
2469 003117 1 064031 3 2 0 01 11 MOVB CSR1
2470 003120 1 002200 0 1 0 200 LDBR SRVINL ;SET "SRV IN"
2471 003121 1 064071 3 2 0 03 11 MOVB TOR1
2472 003122 1 117262 4 7 1262 JMPSUB RDRDLY ;READ "NOT DATA REQ DLY"
2473 003123 1 105125 4 2 1125 JMPB0 .+2 ;JUMP IF SET, SHOULD BE
2474 ERROR DREQ1,"DATA REQ DLY" SET WHEN IT SHOULDN'T HAVE,^_
2475 003124 1 117331 4 7 1331 DIAG SET "SRV IN" WITH "SLVE END XFER" SET AND "CHANNEL MODE" CLEARED
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 20-1
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
2476
2477 ERLOOP DREQ1 ^SALL
2478 003125 1 002001 0 1 0 001
2479 003126 1 117323 4 7 1323
2480 003127 1 115107 4 6 1107
2481 003130 1 117333 4 7 1333 REPEAT TST
2482 003131 1 115074 4 6 1074
2483
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 21
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
2484 TEST 174,TEST "SLVE ACK" PROPAGATION
2485 ;***********************************************************************
2486 ;* MCODE2 * TEST 174 * TEST "SLVE ACK" PROPAGATION
2487 ;***********************************************************************
2488 SALL
2489 003132 1 002256 0 1 0 256
2490 003133 1 117320 4 7 1320
2491
2492 003134 TST174: SALL
2493
2494 ;*SET "DIAG SLVE ACK" WITH "SLVE REQ" CLEARED.
2495 ;*SLVE ACK SHOULD NOT PROPAGATE AND "DIAG SLVE ACK" SHOULD REMAIN SET
2496
2497 003134 1 117153 4 7 1153 JMPSUB INITL ;CLEAR "SLVE REQ"
2498 003135 1 002010 0 1 0 010 LDBR DISACK ;SET "DIAG SLVE ACK"
2499 003136 1 064071 3 2 0 03 11 MOVB TOR1
2500 003137 1 000000 0 0 0 000 NOP ;DELAY BEFORE DOING DATI
2501 003140 1 032003 1 5 0 00 03 DATI TOR1,AC0 ;READ BACK "DIAG SLVE ACK"
2502 003141 1 062005 3 1 0 00 05 SHL AC0,BR ;MOVE IT TO BIT 4
2503 003142 1 107144 4 3 1144 JMPB4 .+2 ;JUMP IF STILL SET, OKAY
2504 ERROR TST,"DIAG SLVE ACK" GOT CLEARED,^_
2505 003143 1 117331 4 7 1331 DIAG CLEARED "SLVE REQ" THEN SET "DIAG SLVE ACK"
2506
2507 ERLOOP TST ^SALL
2508 003144 1 002000 0 1 0 000
2509 003145 1 117323 4 7 1323
2510 003146 1 115134 4 6 1134
2511 003147 1 117333 4 7 1333 REPEAT TST
2512 003150 1 115134 4 6 1134
2513
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 22
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
2514 003151 1 101316 4 0 1316 JMP END ;JUMP AROUND SUBROUTINES
2515
2516 003152 1 016377 0 7 0 377 ZRTNH: RETURN -1
2517
2518 003153 1 002233 0 1 0 233 INITL: LDBR INIT+33 ;SET INIT
2519 003154 1 066371 3 3 0 17 11 MOVB IOSEL
2520 003155 1 002033 0 1 0 033 LDBR 33 ;CLR INIT & SELECT CB
2521 003156 1 066371 3 3 0 17 11 MOVB IOSEL
2522 003157 1 001000 0 0 2 000 LDMAR 0 ;PUT MEMORY ADDRESS TO 0
2523 003160 1 010000 0 4 0 000 LDMEM 0 ;CLR MEMORY LOC. 0
2524 003161 1 016000 0 7 0 000 RETURN
2525
2526 ;"WAIT" IS USED TO WAIT APPROX 20 MS. IT CONSISTS OF AN INNER WAIT LOOP
2527 ;OF APPROX 960 NSEC AND AN OUTER LOOP OF APPROX 200 USEC.
2528 003162 1 002144 0 1 0 144 WAIT: LDBR ^D100 ;SET OUTER LOOP WAIT COUNT
2529 003163 1 072011 3 5 0 00 11 MOVB AC0
2530 003164 1 002317 0 1 0 317 WAITO: LDBR ^D207 ;SET INNER LOOP WAIT COUNT
2531 003165 1 072031 3 5 0 01 11 MOVB AC1
2532 003166 1 072027 3 5 0 01 07 WAITI: DECR AC1 ;DEC INNER LOOP COUNT
2533 003167 1 115171 4 6 1171 JMPZ .+2 ;JUMP IF INNER LOOP TIMED OUT
2534 003170 1 101166 4 0 1166 JMP WAITI ;ELSE, CONTINUE
2535 003171 1 072007 3 5 0 00 07 DECR AC0 ;DEC OUTER LOOP COUNT
2536 003172 1 115174 4 6 1174 JMPZ .+2 ;JUMP IF OUTER LOOP TIMED OUT
2537 003173 1 101164 4 0 1164 JMP WAITO ;ELSE CONTINUE
2538 003174 1 016000 0 7 0 000 RETURN
2539
2540 003175 1 002377 0 1 0 377 LOADDR: LDBR -1 ;LOAD ONES INTO BORLO
2541 003176 1 064231 3 2 0 11 11 MOVB BORLO
2542 003177 1 064151 3 2 0 06 11 MOVB CLKDRL ;LOAD ZEROS INTO DRLO
2543 003200 1 002000 0 1 0 000 LDBR 0 ;LOAD ZEROS INTO BORLO
2544 003201 1 064231 3 2 0 11 11 MOVB BORLO
2545 003202 1 016000 0 7 0 000 RETURN
2546
2547
2548 003203 1 002011 0 1 0 011 DEVRD: LDBR 11 ;SELECT MASSBUS INTERFACE
2549 003204 1 066371 3 3 0 17 11 MOVB IOSEL
2550 003205 1 002000 0 1 0 000 LDBR 0 ;SETUP FOR A DEVICE READ
2551 003206 1 064031 3 2 0 01 11 MOVB MPSCR1
2552 003207 1 002033 0 1 0 033 LDBR 33 ;SELECT CHANNEL BUS INTERFACE
2553 003210 1 066371 3 3 0 17 11 MOVB IOSEL
2554 003211 1 016000 0 7 0 000 RETURN
2555
2556 003212 1 002011 0 1 0 011 DEVWR: LDBR 11 ;SELECT MASSBUS INTERFACE
2557 003213 1 066371 3 3 0 17 11 MOVB IOSEL
2558 003214 1 002010 0 1 0 010 LDBR DTD ;SETUP FOR A DEVICE WRITE
2559 003215 1 064031 3 2 0 01 11 MOVB MPSCR1
2560 003216 1 002033 0 1 0 033 LDBR 33 ;SELECT CHANNEL BUS INTERFACE
2561 003217 1 066371 3 3 0 17 11 MOVB IOSEL
2562 003220 1 016000 0 7 0 000 RETURN
2563
2564 003221 1 002011 0 1 0 011 SETPNT: LDBR 11 ;SELECT MASSBUS INTERFACE
2565 003222 1 066371 3 3 0 17 11 MOVB IOSEL
2566 003223 1 044351 2 2 0 16 11 MOVMEM MPGP6 ;STORE ADDITIONAL PNT ROUTINE NUMBER
2567 003224 1 002033 0 1 0 033 LDBR 33 ;SELECT CHANNEL BUS INTERFACE
2568 003225 1 066371 3 3 0 17 11 MOVB IOSEL
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 22-1
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
2569 003226 1 016000 0 7 0 000 RETURN
2570
2571 003227 1 002000 0 1 0 000 RDBRP0: LDBR 0 ;SET "BOR P0" INDEX
2572 003230 1 064131 3 2 0 05 11 MOVB SPADR
2573 003231 1 101304 4 0 1304 JMP RDIT
2574
2575 003232 1 002002 0 1 0 002 RDB0OD: LDBR 2 ;SET "BUS0 ODD PAR" INDEX
2576 003233 1 064131 3 2 0 05 11 MOVB SPADR
2577 003234 1 101304 4 0 1304 JMP RDIT
2578
2579 003235 1 002003 0 1 0 003 RDSEX: LDBR 3 ;SET "SLVE END XFER" INDEX
2580 003236 1 064131 3 2 0 05 11 MOVB SPADR
2581 003237 1 101304 4 0 1304 JMP RDIT
2582
2583 003240 1 002004 0 1 0 004 RDTSFF: LDBR 4 ;SET "TRA SEL FF" INDEX
2584 003241 1 064131 3 2 0 05 11 MOVB SPADR
2585 003242 1 101304 4 0 1304 JMP RDIT
2586
2587 003243 1 002005 0 1 0 005 RDAMK1: LDBR 5 ;SET "ALLOW MK 1 OUT" INDEX
2588 003244 1 064131 3 2 0 05 11 MOVB SPADR
2589 003245 1 101304 4 0 1304 JMP RDIT
2590
2591 003246 1 002006 0 1 0 006 RDODDE: LDBR 6 ;SET "ODD END" INDEX
2592 003247 1 064131 3 2 0 05 11 MOVB SPADR
2593 003250 1 101304 4 0 1304 JMP RDIT
2594
2595 003251 1 002007 0 1 0 007 RD2BYT: LDBR 7 ;SET "2ND BYTE" INDEX
2596 003252 1 064131 3 2 0 05 11 MOVB SPADR
2597 003253 1 101304 4 0 1304 JMP RDIT
2598
2599 003254 1 002010 0 1 0 010 RDRRDY: LDBR 10 ;SET "DR READY" INDEX
2600 003255 1 064131 3 2 0 05 11 MOVB SPADR
2601 003256 1 101304 4 0 1304 JMP RDIT
2602
2603 003257 1 002011 0 1 0 011 RDSLRQ: LDBR 11 ;SET "SLVE REQ" INDEX
2604 003260 1 064131 3 2 0 05 11 MOVB SPADR
2605 003261 1 101304 4 0 1304 JMP RDIT
2606
2607 003262 1 002012 0 1 0 012 RDRDLY: LDBR 12 ;SET "DATA RDY DLY" INDEX
2608 003263 1 064131 3 2 0 05 11 MOVB SPADR
2609 003264 1 101304 4 0 1304 JMP RDIT
2610
2611 003265 1 002013 0 1 0 013 RDCUIN: LDBR 13 ;SET "CU INIT" INDEX
2612 003266 1 064131 3 2 0 05 11 MOVB SPADR
2613 003267 1 101304 4 0 1304 JMP RDIT
2614
2615 003270 1 002014 0 1 0 014 RDENSD: LDBR 14 ;SET "EN SRV/DAT OUT" INDEX
2616 003271 1 064131 3 2 0 05 11 MOVB SPADR
2617 003272 1 101304 4 0 1304 JMP RDIT
2618
2619 003273 1 002015 0 1 0 015 RDSDRQ: LDBR 15 ;SET "ST DATA REQ" INDEX
2620 003274 1 064131 3 2 0 05 11 MOVB SPADR
2621 003275 1 101304 4 0 1304 JMP RDIT
2622
2623 003276 1 002016 0 1 0 016 RDDSRQ: LDBR 16 ;SET "NOT DIS SLVE REQ" INDEX
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 22-2
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
2624 003277 1 064131 3 2 0 05 11 MOVB SPADR
2625 003300 1 101304 4 0 1304 JMP RDIT
2626
2627 003301 1 002017 0 1 0 017 RDDPPE: LDBR 17 ;SET "DP PE" INDEX
2628 003302 1 064131 3 2 0 05 11 MOVB SPADR
2629 003303 1 101304 4 0 1304 JMP RDIT
2630
2631 003304 1 022003 1 1 0 00 03 RDIT: DATI TOR1,BR ;READ REG 3
2632 003305 1 014000 0 6 0 000 SHR ;RIGHT ADJUST DIAG MUX BIT
2633 003306 1 014000 0 6 0 000 SHR
2634 003307 1 016000 0 7 0 000 RETURN
2635
2636 003310 1 002022 0 1 0 022 DPINIT: LDBR 22 ;SELECT DATA PATH
2637 003311 1 066371 3 3 0 17 11 MOVB IOSEL
2638 003312 1 064271 3 2 0 13 11 MOVB HSDPIN ;DO A HS DP INIT
2639 003313 1 002033 0 1 0 033 LDBR 33 ;SELECT CHANNEL BUS INTERFACE
2640 003314 1 066371 3 3 0 17 11 MOVB IOSEL
2641 003315 1 016000 0 7 0 000 RETURN
2642
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 23
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
2643 003316 1 002176 0 1 0 176 END: .ECRAM
2644 003317 1 160211 7 0 0 10 11
2645 003320 1 072131 3 5 0 05 11
2646 003321 1 002044 0 1 0 044
2647 003322 1 160211 7 0 0 10 11
2648 003323 1 072131 3 5 0 05 11
2649 003324 1 002142 0 1 0 142
2650 003325 1 160211 7 0 0 10 11
2651 003326 1 072131 3 5 0 05 11
2652 003327 1 002146 0 1 0 146
2653 003330 1 160211 7 0 0 10 11
2654 003331 1 002104 0 1 0 104
2655 003332 1 160211 7 0 0 10 11
2656 003333 1 002173 0 1 0 173
2657 003334 1 160211 7 0 0 10 11
2658 003335 777777 777777 .MEM
2659 000000 000000 000000 0
2660 000001 777777 777777 PATS: -1
2661 000002 000000 000000 0
2662 000003 000000 000376 FLTZ: 376
2663 000004 000000 000375 375
2664 000005 000000 000373 373
2665 000006 000000 000367 367
2666 000007 000000 000357 357
2667 000010 000000 000337 337
2668 000011 000000 000277 277
2669 000012 000000 000177 177
2670 000013 000000 000001 FLTO: 1
2671 000014 000000 000002 2
2672 000015 000000 000004 4
2673 000016 000000 000010 10
2674 000017 000000 000020 20
2675 000020 000000 000040 40
2676 000021 000000 000100 100
2677 000022 000000 000200 200
2678 000023 000000 000374 FLTZA: 374
2679 000024 000000 000371 371
2680 000025 000000 000365 365
2681 000026 000000 000355 355
2682 000027 000000 000335 335
2683 000030 000000 000235 235
2684 000031 000000 000135 135
2685 000032 000000 000001 1
2686 000033 000000 000004 4
2687 000034 000000 000010 10
2688 000035 000000 000020 20
2689 000036 000000 000040 40
2690 000037 000000 000100 100
2691 000040 000000 000200 200
2692 000041 000000 000332 FLTZB: 332
2693 000042 000000 000331 331
2694 000043 000000 000323 323
2695 000044 000000 000313 313
2696 000045 000000 000233 233
2697 000046 000000 000133 133
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 23-1
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
2698 000047 000000 000001 1
2699 000050 000000 000002 2
2700 000051 000000 000010 10
2701 000052 000000 000020 20
2702 000053 000000 000100 100
2703 000054 000000 000200 200
2704 000055 000000 000340 FLTZC: 340
2705 000056 000000 000320 320
2706 000057 000000 000260 260
2707 000060 000000 000160 160
2708 000061 000000 000020 20
2709 000062 000000 000040 40
2710 000063 000000 000100 100
2711 000064 000000 000200 200
2712 000065 000000 000360 FLTZD: 360
2713 000066 000000 000350 350
2714 000067 000000 000330 330
2715 000070 000000 000270 270
2716 000071 000000 000170 170
2717 000072 000000 000010 10
2718 000073 000000 000020 20
2719 000074 000000 000040 40
2720 000075 000000 000100 100
2721 000076 000000 000200 200
2722 000077 000000 000016 FLTZE: 16
2723 000100 000000 000015 15
2724 000101 000000 000013 13
2725 000102 000000 000007 7
2726 000103 000000 000001 1
2727 000104 000000 000002 2
2728 000105 000000 000004 4
2729 000106 000000 000010 10
2730 000107 000000 000334 FLTZF: 334
2731 000110 000000 000332 332
2732 000111 000000 000326 326
2733 000112 000000 000316 316
2734 000113 000000 000236 236
2735 000114 000000 000136 136
2736 000115 000000 000002 2
2737 000116 000000 000004 4
2738 000117 000000 000010 10
2739 000120 000000 000020 20
2740 000121 000000 000100 100
2741 000122 000000 000200 200
2742 000123 000000 000006 FLTZG: 6
2743 000124 000000 000005 5
2744 000125 000000 000003 3
2745 000126 000000 000001 1
2746 000127 000000 000002 2
2747 000130 000000 000004 4
2748 000131 000000 000011 EPATS: 11
2749 000132 000000 000102 102
2750 000133 000000 000220 220
2751 000134 000000 000366 366
2752 000135 000000 000044 OPATS: 44
MCODE2 DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 1 VERSION 0. MACRO %53B(1252) 15:29 6-Mar-89 Page 23-2
MCOD2M MAC 6-Mar-89 15:13 CHANNEL BUS INTERFACE TEST - PART 1
2753 000136 000000 000157 157
2754 000137 000000 000275 275
2755 000140 000000 000333 333
2756 000141 000000 000000 RAMADR: 0
2757 000142 000000 000001 1
2758 000143 000000 000002 2
2759 000144 000000 000004 4
2760 000145 000000 000010 10
2761 000146 777777 777777 -1
2762 .END
2763
2764 END
NO ERRORS DETECTED
PROGRAM BREAK IS 000000
ABSOLUTE BREAK IS 003505
CPU TIME USED 02:05.961
25P CORE USED
AC0 616 686 705 735 736 749 750 763 764 780 781 856 857 871
872 913 914 928 929 942 943 956 957 973 974 1009 1011 1012
1025 1026 1027 1040 1042 1043 1059 1061 1062 1103 1104 1119 1120 1138
1139 1178 1180 1181 1196 1197 1198 1216 1218 1219 1257 1259 1260 1273
1274 1275 1290 1292 1293 1331 1332 1347 1348 1368 1369 1390 1391 1435
1436 1487 1846 1866 1867 1935 1936 2020 2501 2502 2529 2535
AC1 614 777 790 970 983 1056 1071 1134 1148 1212 1228 1287 1302 1361
1378 1427 1445 2531 2532
AC2 1364 1365 1430 1431
AC4 544 549
AC5 512 514 516 522 556 557 559 578 580 585 589 594 597 600
605 611 618 2645 2648 2651
AC6 525 529 539 636
AC7 497 532 533 566 571 575 579 592 595
ADRIN 132#
ADRINL 162#
ADROUT 110#
ATA 208# 558 584 596 647
BEGEND 642# 2643
BEGIN 482# 650
BORHI 66#
BORLO 62# 1329 1345 1366 1388 1432 1482 1732 2541 2544
BUS0PE 86#
BUS1PE 85#
C 265#
CATAB 631 1496 1531 1546 1586 1601 1618 1634 1668 1688 1705 1745 1759 1768
1776 1785 1795 1806 1825 1834 1844 1855 1865 1876 1892 1901 1911 1922
1932 1945 1989 1998 2008 2018 2028 2043 2052 2067 2077 2126 2140 2149
2164 2203 2253 2267 2284 2300 2314 2330 2346 2382 2398 2407 2417 2453
2480 2510
CBIHI 64#
CBILO 60# 690 1331 1347 1368 1390
CHANL 103# 1253 1657 1694 1727 1729 1972 1974 2104 2106 2153 2176 2178 2229
2231 2371 2441 2463
CHKLOP 619#
CHKLP 620#
CLKDRL 72# 1433 1483 1485 1733 2542
CLKOUT 108#
CLRFLG 91# 688 1655
CLRGO 201# 515
CLSLRQ 71#
CMDF0 491 507#
CMDOUT 114#
CMPERR 202#
CORF 700# 702 739# 741 753# 755 768# 770 785# 787 816# 818 847# 849
862# 864 875# 877 885# 887 901# 903 918# 920 932# 934 946# 948
961# 963 978# 980 1015# 1017 1030# 1032 1047# 1049 1066# 1068 1108# 1110
1124# 1126 1143# 1145 1185# 1187 1202# 1204 1223# 1225 1263# 1265 1278# 1280
1297# 1299 1336# 1338 1352# 1354 1373# 1375 1395# 1397 1440# 1442 1492# 1494
1527# 1529 1542# 1544 1582# 1584 1597# 1599 1614# 1616 1630# 1632 1664# 1666
1684# 1686 1701# 1703 1741# 1743 1755# 1757 1764# 1766 1772# 1774 1781# 1783
1791# 1793 1802# 1804 1821# 1823 1830# 1832 1840# 1842 1851# 1853 1861# 1863
1872# 1874 1888# 1890 1897# 1899 1907# 1909 1918# 1920 1928# 1930 1941# 1943
1985# 1987 1994# 1996 2004# 2006 2014# 2016 2024# 2026 2039# 2041 2048# 2050
2063# 2065 2073# 2075 2122# 2124 2136# 2138 2145# 2147 2160# 2162 2199# 2201
2249# 2251 2263# 2265 2280# 2282 2296# 2298 2310# 2312 2326# 2328 2342# 2344
2378# 2380 2394# 2396 2403# 2405 2413# 2415 2449# 2451 2476# 2478 2506# 2508
CSLVSL 92#
CSR0 52# 689 696 856 871 913 1656 1923 2118 2156 2194
CSR1 53# 734 735 748 749 763 779 780 1099 1174 1254 1327 1386 1425
1480 1522 1523 1536 1537 1575 1608 1623 1658 1678 1695 1728 1730 1934
1973 1975 2105 2107 2154 2177 2179 2230 2232 2370 2372 2442 2464 2469
CUADRS 295 382 1462 1492 1496 1498 1507 1527 1531 1542 1546 1553 1562 1582
1586 1597 1601 1614 1618 1630 1634 1636 1645 1664 1668 1684 1688 1701
1705 1707 1716 1741 1745 1755 1759 1764 1768 1772 1776 1781 1785 1791
1795 1802 1806 1821 1825 1830 1834 1840 1844 1851 1855 1861 1865 1872
1876 1888 1892 1897 1901 1907 1911 1918 1922 1928 1932 1941 1945 1947
1956 1985 1989 1994 1998 2004 2008 2014 2018 2024 2028 2039 2043 2048
2052 2063 2067 2073 2077 2079 2088 2122 2126 2136 2140 2145 2149 2160
2164 2199 2203 2205 2214 2249 2253 2263 2267 2280 2284 2296 2300 2310
2314 2326 2330 2342 2346 2348 2357 2378 2382 2394 2398 2403 2407 2413
2417 2419 2428 2449 2453 2476 2480 2482 2491 2506 2510 2512
CURSEN 119# 1519
CUSTAT 67# 1518 1550
DATIN 143#
DATINL 172# 1750 1814 2111 2130 2183 2189 2240 2257 2271 2288
DATOUT 121#
DB 234#
DBEVEN 237#
DBPAR 235#
DBPARE 236#
DEVRD 1422 1477 1573 1971 1978 2103 2110 2175 2182 2235 2467 2548#
DEVWR 1484 1624 1734 1976 2108 2180 2233 2368 2556#
DIHISP 97# 1574 1622 1729 1933 1974 2106 2178 2231 2463 2468
DIMUX 123#
DIS1 1692# 1705
DISACK 122# 1814 2032 2238 2271 2318 2498
DISIN 141#
DISINL 170# 1659 1675
DONE 198#
DPINIT 1735 1977 2109 2181 2234 2373 2636#
DPPE 82#
DREQ1 2461# 2480
DRHI 63#
DRLO 59# 1435 1487 1846 2020
DTD 204# 513 558 2558
EBL 199#
EDIT 2# 2 480
ELOOPC 621 626#
END 2514 2643#
EPATS 2748#
ERLP 600# 700 816 847 862 875 885 901 918 1495 1527 1530 1542 1545
1582 1585 1597 1600 1614 1617 1630 1633 1664 1667 1684 1687 1701 1704
1741 1744 1755 1758 1764 1767 1772 1775 1781 1784 1791 1794 1802 1805
1821 1824 1830 1833 1840 1843 1854 1861 1864 1872 1875 1888 1891 1897
1900 1907 1910 1918 1921 1928 1931 1941 1944 1985 1988 1994 1997 2004
2007 2014 2017 2027 2039 2042 2048 2051 2063 2066 2073 2076 2122 2125
2136 2139 2145 2148 2160 2163 2199 2202 2249 2252 2263 2266 2280 2283
2296 2299 2310 2313 2326 2329 2342 2345 2378 2381 2394 2397 2403 2406
2413 2416 2449 2452 2476 2479 2506 2509
ERLP0 601# 2649
ERLPA 611# 1496 1531 1546 1586 1601 1618 1634 1668 1688 1705 1745 1759 1768
1776 1785 1795 1806 1825 1834 1844 1855 1865 1876 1892 1901 1911 1922
1932 1945 1989 1998 2008 2018 2028 2043 2052 2067 2077 2126 2140 2149
2164 2203 2253 2267 2284 2300 2314 2330 2346 2382 2398 2407 2417 2453
2480 2510
ERLPA0 612#
ERLPH 1530 1545 1585 1600 1617 1633 1667 1687 1704 1744 1758 1767 1775 1784
1794 1805 1824 1833 1843 1864 1875 1891 1900 1910 1921 1931 1944 1988
1997 2007 2017 2042 2051 2066 2076 2125 2139 2148 2163 2202 2252 2266
2283 2299 2313 2329 2345 2381 2397 2406 2416 2452 2479 2509 2648#
ERLPM 605# 739 753 768 785 932 946 961 978 1015 1030 1047 1066 1108
1124 1143 1185 1202 1223 1263 1278 1297 1336 1352 1373 1395 1440 1492
1495 1531 1546 1586 1601 1618 1634 1668 1688 1705 1745 1759 1768 1776
1785 1795 1806 1825 1834 1844 1851 1854 1865 1876 1892 1901 1911 1922
1932 1945 1989 1998 2008 2018 2024 2027 2043 2052 2067 2077 2126 2140
2149 2164 2203 2253 2267 2284 2300 2314 2330 2346 2382 2398 2407 2417
2453 2480 2510
ERLPM0 606# 2652
ERLPMH 1495 1854 2027 2651#
ERRCA 609 616#
ERRCHK 571# 601 606 612
ERRCOM 603 618#
ERRSET 565# 699 738 752 767 784 815 846 861 874 884 900 917 931
945 960 977 1014 1029 1046 1065 1107 1123 1142 1184 1201 1222 1262
1277 1296 1335 1351 1372 1394 1439 2654
ERSETH 1491 1526 1541 1581 1596 1613 1629 1663 1683 1700 1740 1754 1763 1771
1780 1790 1801 1820 1829 1839 1850 1860 1871 1887 1896 1906 1917 1927
1940 1984 1993 2003 2013 2023 2038 2047 2062 2072 2121 2135 2144 2159
2198 2248 2262 2279 2295 2309 2325 2341 2377 2393 2402 2412 2448 2475
2505 2654#
EVPAR 98#
EXC 200#
EXFER 80#
EXFER1 2174# 2203
EXTBUS 99#
F0 188#
F1 189#
F2 190#
F3 191#
F4 192#
FLT1 779# 789 792
FLT11 1363# 1377 1380
FLT2 972# 982 985
FLT3 1058# 1070 1073
FLT4 1136# 1147 1150
FLT5 1214# 1227 1230
FLT5A 1289# 1301 1304
FLT6 1429# 1444 1447
FLTO 2670#
FLTZ 971 1362 2662#
FLTZA 778 2678#
FLTZB 1135 2692#
FLTZC 1213 2704#
FLTZD 1057 2712#
FLTZE 1288 2722#
FLTZF 2730#
FLTZG 2742#
FN 187#
GO 186#
HALTIO 153#
HLDOTL 163#
HLDOUT 111#
HSDPIN 176# 2638
I 705 790 983 1071 1148 1228 1302 1378 1445
ILF 206#
INADR 271#
INIT 274# 498 2518
INITL 709 761 809 954 1038 1478 1726 1970 2102 2174 2228 2367 2440 2497
2518#
INT0 261#
INT1 262#
INT2 263#
INT3 264#
IOSEL 270# 483 499 501 525 527 530 544 546 550 643 665 692 695
2519 2521 2549 2553 2557 2561 2565 2568 2637 2640
LOADDR 1979 2540#
LOOPEN 101# 1098 1173 1326 1424 1479 1574 1607 1622 1657 1677 1694 1727 1729
1933 1972 1974 2104 2106 2153 2176 2178 2229 2231 2369 2371 2441 2463
2468
LPADR 700# 703 739# 742 753# 756 768# 771 785# 788 816# 819 847# 850
862# 865 875# 878 885# 888 901# 904 918# 921 932# 935 946# 949
961# 964 978# 981 1015# 1018 1030# 1033 1047# 1050 1066# 1069 1108# 1111
1124# 1127 1143# 1146 1185# 1188 1202# 1205 1223# 1226 1263# 1266 1278# 1281
1297# 1300 1336# 1339 1352# 1355 1373# 1376 1395# 1398 1440# 1443 1492# 1495
1496 1527# 1530 1531 1542# 1545 1546 1582# 1585 1586 1597# 1600 1601 1614#
1617 1618 1630# 1633 1634 1664# 1667 1668 1684# 1687 1688 1701# 1704 1705
1741# 1744 1745 1755# 1758 1759 1764# 1767 1768 1772# 1775 1776 1781# 1784
1785 1791# 1794 1795 1802# 1805 1806 1821# 1824 1825 1830# 1833 1834 1840#
1843 1844 1851# 1854 1855 1861# 1864 1865 1872# 1875 1876 1888# 1891 1892
1897# 1900 1901 1907# 1910 1911 1918# 1921 1922 1928# 1931 1932 1941# 1944
1945 1985# 1988 1989 1994# 1997 1998 2004# 2007 2008 2014# 2017 2018 2024#
2027 2028 2039# 2042 2043 2048# 2051 2052 2063# 2066 2067 2073# 2076 2077
2122# 2125 2126 2136# 2139 2140 2145# 2148 2149 2160# 2163 2164 2199# 2202
2203 2249# 2252 2253 2263# 2266 2267 2280# 2283 2284 2296# 2299 2300 2310#
2313 2314 2326# 2329 2330 2342# 2345 2346 2378# 2381 2382 2394# 2397 2398
2403# 2406 2407 2413# 2416 2417 2449# 2452 2453 2476# 2479 2480 2506# 2509
2510
MK0IN 130#
MK0INL 160#
MK1IN 131#
MK1INL 161#
MKPE 84#
MOD360 100#
MPDB0 224#
MPDB1 228#
MPDB2 232#
MPDTR 216#
MPECR 212# 511 590
MPERR 207# 558 596
MPGP0 241# 528 645
MPGP1 242# 646 667
MPGP10 249#
MPGP11 250#
MPGP12 251# 693
MPGP13 252#
MPGP14 253#
MPGP15 254#
MPGP16 255#
MPGP17 256#
MPGP2 243#
MPGP3 244#
MPGP4 245# 608 615
MPGP5 246# 617
MPGP6 247# 503 2566
MPGP7 248#
MPHVR 220#
MPSCR0 184# 484 488
MPSCR1 197# 512 517 556 560 648 2551 2559
MPSTAT 260#
MTRIN 134#
MTROUT 109#
NOFAIL 581 583#
NRTN 547# 602 607 613 637
NXTBNK 1451 1454#
OCC 205#
OFFGO 504 510# 622 626
ONLINE 102# 1521
OPATS 2752#
OPLIN 129#
OPLINL 159# 1673
OPLOUT 118#
OUTADR 272#
PAR2A 688# 704 707
PATS 687 1428 2660#
PNT 325# 700 739 753 768 785 816 847 862 875 885 901 918 932
946 961 978 1015 1030 1047 1066 1108 1124 1143 1185 1202 1223 1263
1278 1297 1336 1352 1373 1395 1440 1492 1527 1542 1582 1597 1614 1630
1664 1684 1701 1741 1755 1764 1772 1781 1791 1802 1821 1830 1840 1851
1861 1872 1888 1897 1907 1918 1928 1941 1985 1994 2004 2014 2024 2039
2048 2063 2073 2122 2136 2145 2160 2199 2249 2263 2280 2296 2310 2326
2342 2378 2394 2403 2413 2449 2476 2506
RAMADR 2756#
RD2BYT 1856 2595#
RDAMK1 2587#
RDB0OD 2575#
RDBRP0 2571#
RDCUIN 1736 2611#
RDDPPE 2627#
RDDSRQ 1769 2623#
RDENSD 2615#
RDIT 2573 2577 2581 2585 2589 2593 2597 2601 2605 2609 2613 2617 2621 2625
2629 2631#
RDODDE 2591#
RDRDLY 1760 1893 2389 2445 2472 2607#
RDRRDY 1786 1826 1902 1999 2034 2141 2374 2399 2599#
RDSDRQ 1752 1883 1982 2058 2259 2306 2336 2619#
RDSEX 1578 1592 1609 1625 2579#
RDSLRQ 1777 1816 1990 2132 2408 2603#
RDTSFF 2583#
REG11A 1344# 1356
REG11B 1385# 1399
REG1A 747# 757 772
REG2A 893# 905 922
REG2B 926# 936
REG2C 940# 950 965
REG3A 1023# 1034 1051
REG4A 1116# 1128
REG5A 1193# 1206
REG5AA 1271# 1282
REPORT 576 588#
REPTU 636# 711 794 821 987 1075 1152 1232 1306 1400 1449 2656
REPTUH 1497 1552 1635 1706 1946 2078 2204 2347 2418 2481 2511 2656#
REQIN 142#
REQINL 171# 1675
RESIOS 549# 623 627
RHDATA 294 362 1462 1492 1496 1498 1507 1527 1531 1542 1546 1553 1562 1582
1586 1597 1601 1614 1618 1630 1634 1636 1645 1664 1668 1684 1688 1701
1705 1707 1716 1741 1745 1755 1759 1764 1768 1772 1776 1781 1785 1791
1795 1802 1806 1821 1825 1830 1834 1840 1844 1851 1855 1861 1865 1872
1876 1888 1892 1897 1901 1907 1911 1918 1922 1928 1932 1941 1945 1947
1956 1985 1989 1994 1998 2004 2008 2014 2018 2024 2028 2039 2043 2048
2052 2063 2067 2073 2077 2079 2088 2122 2126 2136 2140 2145 2149 2160
2164 2199 2203 2205 2214 2249 2253 2263 2267 2280 2284 2296 2300 2310
2314 2326 2330 2342 2346 2348 2357 2378 2382 2394 2398 2403 2407 2413
2417 2419 2428 2449 2453 2476 2480 2482 2491 2506 2510 2512
RPTCNT 47# 538
RUN 185#
SAVIOS 544# 583 588
SELIN 135#
SELINL 164#
SELOUT 113#
SELRST 151#
SETATA 556# 619
SETPNT 683 2564#
SEX1 1590# 1601
SEX2 1605# 1618
SEX3 1622# 1634
SLVSEL 87#
SPABTS 147#
SPADR 58# 1256 1257 1272 1273 1289 1290 1935 2572 2576 2580 2584 2588 2592
2596 2600 2604 2608 2612 2616 2620 2624 2628
SPDAHI 65#
SPDALO 61#
SPEN 96# 2371
SPRES 273# 498
SRVIN 140#
SRVINL 169# 1980 2032 2236 2238 2240 2288 2304 2318 2387 2443 2470
SRVOUT 107#
STAIN 136#
STAINL 165# 1576 1605 2113 2185 2465
START 203#
SUPOUT 120#
SYSRST 152#
TAGIN0 56# 1103 1119 1138
TAGIN1 57# 1178 1196 1216
TEST0I 522# 2646
TESTI 523# 669 720 803 830 996 1084 1161 1241 1315 1409
TESTIH 1461 1506 1561 1644 1715 1955 2087 2213 2356 2427 2490 2645#
TIMOUT 81#
TMREN 112# 840
TODOUT 124#
TOHOUT 133#
TOR0 54# 841 842 894 895 927 928 941 942 956 972 973 1101 1117
1136 1577 1591 1606 1674 2114 2186 2466
TOR1 55# 1008 1009 1024 1025 1040 1058 1059 1176 1194 1214 1520 1551 1660
1676 1693 1751 1796 1815 1835 1866 1882 1912 1981 2009 2033 2044 2057
2068 2112 2116 2131 2184 2188 2190 2192 2237 2239 2241 2243 2258 2272
2274 2289 2291 2305 2319 2321 2335 2388 2444 2462 2471 2499 2501 2631
TOSOUT 125#
TST 670# 712 721# 743 795 804# 820 822 831# 851 866 879 889 988
997# 1019 1076 1085# 1112 1153 1162# 1189 1233 1242# 1267 1307 1316# 1340
1401 1410# 1450 1462# 1496 1498 1507# 1531 1546 1553 1562# 1586 1636 1645#
1668 1688 1707 1716# 1745 1759 1768 1776 1785 1795 1806 1825 1834 1844
1855 1865 1876 1892 1901 1911 1922 1932 1945 1947 1956# 1989 1998 2008
2018 2028 2043 2052 2067 2077 2079 2088# 2126 2140 2149 2164 2205 2214#
2253 2267 2284 2300 2314 2330 2346 2348 2357# 2382 2398 2407 2417 2419
2428# 2453 2482 2491# 2510 2512
TST154 670 671#
TST155 721 722#
TST156 804 805#
TST157 831 832#
TST158 997 998#
TST159 1085 1086#
TST160 1162 1163#
TST161 1242 1243#
TST162 1316 1317#
TST163 1410 1411#
TST164 1462 1463#
TST165 1507 1508#
TST166 1562 1563#
TST167 1645 1646#
TST168 1716 1717#
TST169 1956 1957#
TST170 2088 2089#
TST171 2214 2215#
TST172 2357 2358#
TST173 2428 2429#
TST174 2491 2492#
TSTART 505 653#
UBPE 83#
VERSIO 2# 2 480
WAIT 854 869 909 911 1547 2528#
WAITGO 484# 487 620 649
WAITI 2532# 2534
WAITO 2530# 2537
WCLK 193#
Z 266#
ZRTN 624# 811 882
ZRTNH 1661 1679 1696 2516#
%ADRH 385# 1462 1462# 1492 1492# 1496 1496# 1498 1498# 1507 1507# 1527 1527# 1531
1531# 1542 1542# 1546 1546# 1553 1553# 1562 1562# 1582 1582# 1586 1586# 1597
1597# 1601 1601# 1614 1614# 1618 1618# 1630 1630# 1634 1634# 1636 1636# 1645
1645# 1664 1664# 1668 1668# 1684 1684# 1688 1688# 1701 1701# 1705 1705# 1707
1707# 1716 1716# 1741 1741# 1745 1745# 1755 1755# 1759 1759# 1764 1764# 1768
1768# 1772 1772# 1776 1776# 1781 1781# 1785 1785# 1791 1791# 1795 1795# 1802
1802# 1806 1806# 1821 1821# 1825 1825# 1830 1830# 1834 1834# 1840 1840# 1844
1844# 1851 1851# 1855 1855# 1861 1861# 1865 1865# 1872 1872# 1876 1876# 1888
1888# 1892 1892# 1897 1897# 1901 1901# 1907 1907# 1911 1911# 1918 1918# 1922
1922# 1928 1928# 1932 1932# 1941 1941# 1945 1945# 1947 1947# 1956 1956# 1985
1985# 1989 1989# 1994 1994# 1998 1998# 2004 2004# 2008 2008# 2014 2014# 2018
2018# 2024 2024# 2028 2028# 2039 2039# 2043 2043# 2048 2048# 2052 2052# 2063
2063# 2067 2067# 2073 2073# 2077 2077# 2079 2079# 2088 2088# 2122 2122# 2126
2126# 2136 2136# 2140 2140# 2145 2145# 2149 2149# 2160 2160# 2164 2164# 2199
2199# 2203 2203# 2205 2205# 2214 2214# 2249 2249# 2253 2253# 2263 2263# 2267
2267# 2280 2280# 2284 2284# 2296 2296# 2300 2300# 2310 2310# 2314 2314# 2326
2326# 2330 2330# 2342 2342# 2346 2346# 2348 2348# 2357 2357# 2378 2378# 2382
2382# 2394 2394# 2398 2398# 2403 2403# 2407 2407# 2413 2413# 2417 2417# 2419
2419# 2428 2428# 2449 2449# 2453 2453# 2476 2476# 2480 2480# 2482 2482# 2491
2491# 2506 2506# 2510 2510# 2512 2512# 2645 2648 2651 2654 2656 2658
%EMES 670# 702 705 705# 721# 741 744 744# 755 758 758# 770 773 773#
787 790 790# 804# 818 821 821# 831# 849 852 852# 864 867 867#
877 880 880# 887 890 890# 903 906 906# 920 923 923# 934 937
937# 948 951 951# 963 966 966# 980 983 983# 997# 1017 1020 1020#
1032 1035 1035# 1049 1052 1052# 1068 1071 1071# 1085# 1110 1113 1113# 1126
1129 1129# 1145 1148 1148# 1162# 1187 1190 1190# 1204 1207 1207# 1225 1228
1228# 1242# 1265 1268 1268# 1280 1283 1283# 1299 1302 1302# 1316# 1338 1341
1341# 1354 1357 1357# 1375 1378 1378# 1397 1400 1400# 1410# 1442 1445 1445#
1462# 1494 1497 1497# 1507# 1529 1532 1532# 1544 1547 1547# 1562# 1584 1587
1587# 1599 1602 1602# 1616 1619 1619# 1632 1635 1635# 1645# 1666 1669 1669#
1686 1689 1689# 1703 1706 1706# 1716# 1743 1746 1746# 1757 1760 1760# 1766
1769 1769# 1774 1777 1777# 1783 1786 1786# 1793 1796 1796# 1804 1807 1807#
1823 1826 1826# 1832 1835 1835# 1842 1845 1845# 1853 1856 1856# 1863 1866
1866# 1874 1877 1877# 1890 1893 1893# 1899 1902 1902# 1909 1912 1912# 1920
1923 1923# 1930 1933 1933# 1943 1946 1946# 1956# 1987 1990 1990# 1996 1999
1999# 2006 2009 2009# 2016 2019 2019# 2026 2029 2029# 2041 2044 2044# 2050
2053 2053# 2065 2068 2068# 2075 2078 2078# 2088# 2124 2127 2127# 2138 2141
2141# 2147 2150 2150# 2162 2165 2165# 2201 2204 2204# 2214# 2251 2254 2254#
2265 2268 2268# 2282 2285 2285# 2298 2301 2301# 2312 2315 2315# 2328 2331
2331# 2344 2347 2347# 2357# 2380 2383 2383# 2396 2399 2399# 2405 2408 2408#
2415 2418 2418# 2428# 2451 2454 2454# 2478 2481 2481# 2491# 2508 2511 2511#
%REQ 293# 633
%TNUM 291# 664 668 670# 719 721# 802 804# 829 831# 995 997# 1083 1085#
1160 1162# 1240 1242# 1314 1316# 1408 1410# 1460 1462# 1505 1507# 1560 1562#
1643 1645# 1714 1716# 1954 1956# 2086 2088# 2212 2214# 2355 2357# 2426 2428#
2489 2491#
.ERROR 572 573
DATI 484 488 512 525 544 556 696 735 749 763 780 842 856 871
895 913 928 942 956 973 1009 1025 1040 1059 1103 1119 1138 1178
1196 1216 1257 1273 1290 1331 1347 1368 1390 1435 1487 1523 1537 1796
1835 1846 1866 1912 1923 1935 2009 2020 2044 2068 2118 2156 2194 2243
2274 2291 2321 2501 2631
DECR 636 705 790 983 1071 1148 1228 1302 1378 1445 2532 2535
DEFTST 298# 658
ERLOOP 345# 701 740 754 769 786 817 848 863 876 886 902 919 933
947 962 979 1016 1031 1048 1067 1109 1125 1144 1186 1203 1224 1264
1279 1298 1337 1353 1374 1396 1441 1493 1528 1543 1583 1598 1615 1631
1665 1685 1702 1742 1756 1765 1773 1782 1792 1803 1822 1831 1841 1852
1862 1873 1889 1898 1908 1919 1929 1942 1986 1995 2005 2015 2025 2040
2049 2064 2074 2123 2137 2146 2161 2200 2250 2264 2281 2297 2311 2327
2343 2379 2395 2404 2414 2450 2477 2507
ERRMAC 328# 699 738 752 767 784 815 846 861 874 884 900 917 931
945 960 977 1014 1029 1046 1065 1107 1123 1142 1184 1201 1222 1262
1277 1296 1335 1351 1372 1394 1439 1491 1526 1541 1581 1596 1613 1629
1663 1683 1700 1740 1754 1763 1771 1780 1790 1801 1820 1829 1839 1850
1860 1871 1887 1896 1906 1917 1927 1940 1984 1993 2003 2013 2023 2038
2047 2062 2072 2121 2135 2144 2159 2198 2248 2262 2279 2295 2309 2325
2341 2377 2393 2402 2412 2448 2475 2505
ERROR 337# 699 814 846 860 874 884 900 917 1526 1541 1580 1595 1612
1628 1663 1682 1699 1739 1754 1763 1771 1779 1789 1800 1819 1828 1838
1859 1870 1886 1895 1905 1916 1926 1939 1984 1992 2002 2012 2036 2046
2061 2071 2120 2135 2143 2159 2197 2247 2261 2277 2294 2308 2323 2339
2377 2392 2401 2411 2447 2474 2504
ERRORA 341#
ERRORD 343#
ERRORM 339# 738 752 766 783 931 945 959 976 1014 1029 1045 1064 1106
1122 1141 1183 1200 1221 1262 1277 1295 1334 1350 1371 1394 1438 1489
1849 2022
GOINK 387# 669 699 703 711 720 738 742 752 756 767 771 784 788
794 803 815 819 821 830 846 850 861 865 874 878 884 888
900 904 917 921 931 935 945 949 960 964 977 981 987 996
1014 1018 1029 1033 1046 1050 1065 1069 1075 1084 1107 1111 1123 1127
1142 1146 1152 1161 1184 1188 1201 1205 1222 1226 1232 1241 1262 1266
1277 1281 1296 1300 1306 1315 1335 1339 1351 1355 1372 1376 1394 1398
1400 1409 1439 1443 1449 1461 1491 1495 1497 1506 1526 1530 1541 1545
1552 1561 1581 1585 1596 1600 1613 1617 1629 1633 1635 1644 1663 1667
1683 1687 1700 1704 1706 1715 1740 1744 1754 1758 1763 1767 1771 1775
1780 1784 1790 1794 1801 1805 1820 1824 1829 1833 1839 1843 1850 1854
1860 1864 1871 1875 1887 1891 1896 1900 1906 1910 1917 1921 1927 1931
1940 1944 1946 1955 1984 1988 1993 1997 2003 2007 2013 2017 2023 2027
2038 2042 2047 2051 2062 2066 2072 2076 2078 2087 2121 2125 2135 2139
2144 2148 2159 2163 2198 2202 2204 2213 2248 2252 2262 2266 2279 2283
2295 2299 2309 2313 2325 2329 2341 2345 2347 2356 2377 2381 2393 2397
2402 2406 2412 2416 2418 2427 2448 2452 2475 2479 2481 2490 2505 2509
2511
GOSUB 683 709 761 809 854 869 909 911 954 1038 1422 1547
JMP 487 495 505 537 603 609 650 698 707 792 813 859 899 916
985 1073 1150 1230 1304 1380 1393 1447 1452 1540 1594 1611 1627 1681
1698 1738 1762 1788 1799 1818 1848 1858 1869 1885 1904 1915 1925 1938
2001 2011 2060 2070 2134 2158 2196 2246 2293 2338 2376 2391 2410 2514
2534 2537 2573 2577 2581 2585 2589 2593 2597 2601 2605 2609 2613 2617
2621 2625 2629 2644 2647 2650 2653 2655 2657
JMPB0 486 491 493 621 845 898 1525 1539 1579 1593 1610 1626 1737 1753
1761 1770 1778 1787 1798 1817 1827 1837 1857 1884 1894 1903 1914 1983
1991 2000 2010 2035 2045 2059 2069 2133 2142 2245 2260 2276 2292 2307
2322 2337 2375 2390 2400 2409 2446 2473
JMPB4 535 697 1868 1937 2503
JMPB7 572 576 858 873 915 1924 2119 2157 2195
JMPI 811 882 1661 1679 1696
JMPSUB 504 583 588 601 606 612 619 620 622 623 626 627 649 669
684 699 703 710 711 720 738 742 752 756 762 767 771 784
788 794 803 810 815 819 821 830 846 850 855 861 865 870
874 878 884 888 900 904 910 912 917 921 931 935 945 949
955 960 964 977 981 987 996 1014 1018 1029 1033 1039 1046 1050
1065 1069 1075 1084 1107 1111 1123 1127 1142 1146 1152 1161 1184 1188
1201 1205 1222 1226 1232 1241 1262 1266 1277 1281 1296 1300 1306 1315
1335 1339 1351 1355 1372 1376 1394 1398 1400 1409 1423 1439 1443 1449
1461 1477 1478 1484 1491 1495 1497 1506 1526 1530 1541 1545 1548 1552
1561 1573 1578 1581 1585 1592 1596 1600 1609 1613 1617 1624 1625 1629
1633 1635 1644 1663 1667 1683 1687 1700 1704 1706 1715 1726 1734 1735
1736 1740 1744 1752 1754 1758 1760 1763 1767 1769 1771 1775 1777 1780
1784 1786 1790 1794 1801 1805 1816 1820 1824 1826 1829 1833 1839 1843
1850 1854 1856 1860 1864 1871 1875 1883 1887 1891 1893 1896 1900 1902
1906 1910 1917 1921 1927 1931 1940 1944 1946 1955 1970 1971 1976 1977
1978 1979 1982 1984 1988 1990 1993 1997 1999 2003 2007 2013 2017 2023
2027 2034 2038 2042 2047 2051 2058 2062 2066 2072 2076 2078 2087 2102
2103 2108 2109 2110 2121 2125 2132 2135 2139 2141 2144 2148 2159 2163
2174 2175 2180 2181 2182 2198 2202 2204 2213 2228 2233 2234 2235 2248
2252 2259 2262 2266 2279 2283 2295 2299 2306 2309 2313 2325 2329 2336
2341 2345 2347 2356 2367 2368 2373 2374 2377 2381 2389 2393 2397 2399
2402 2406 2408 2412 2416 2418 2427 2440 2445 2448 2452 2467 2472 2475
2479 2481 2490 2497 2505 2509 2511
JMPZ 581 602 607 613 637 704 706 712 737 743 751 757 765 772
782 789 791 795 812 820 822 851 866 879 883 889 905 922
930 936 944 950 958 965 975 982 984 988 1013 1019 1028 1034
1044 1051 1063 1070 1072 1076 1105 1112 1121 1128 1140 1147 1149 1153
1182 1189 1199 1206 1220 1227 1229 1233 1261 1267 1276 1282 1294 1301
1303 1307 1333 1340 1349 1356 1370 1377 1379 1392 1399 1401 1437 1444
1446 1450 1488 1496 1498 1531 1546 1553 1586 1601 1618 1634 1636 1662
1668 1680 1688 1697 1705 1707 1745 1759 1768 1776 1785 1795 1806 1825
1834 1844 1847 1855 1865 1876 1892 1901 1911 1922 1932 1945 1947 1989
1998 2008 2018 2021 2028 2043 2052 2067 2077 2079 2126 2140 2149 2164
2203 2205 2253 2267 2284 2300 2314 2330 2346 2348 2382 2398 2407 2417
2419 2453 2480 2482 2510 2512 2533 2536
JUMP 1451 2643 2646 2649 2652 2654 2656
LANDB 559 579 594
LANDBR 514 532 578 592 1011 1042 1061 1180 1218 1259 1292
LANDMR 1026 1197 1274
LDBR 482 494 496 498 500 502 510 513 515 531 536 538 545 558
565 577 584 591 593 596 642 644 647 664 666 668 683 685
688 691 694 702 709 719 741 755 761 770 776 787 802 809
818 829 840 849 854 864 869 877 887 893 903 909 911 920
934 948 954 963 969 980 995 1010 1017 1032 1038 1041 1049 1055
1060 1068 1083 1098 1110 1126 1133 1145 1160 1173 1179 1187 1204 1211
1217 1225 1240 1253 1258 1265 1280 1286 1291 1299 1314 1326 1328 1338
1344 1354 1360 1363 1375 1385 1387 1397 1408 1422 1424 1426 1429 1442
1451 1460 1479 1494 1505 1517 1519 1521 1529 1535 1544 1547 1549 1560
1574 1576 1584 1590 1599 1605 1607 1616 1622 1632 1643 1655 1657 1659
1666 1673 1675 1677 1686 1692 1694 1703 1714 1727 1729 1731 1743 1750
1757 1766 1774 1783 1793 1804 1814 1823 1832 1842 1853 1863 1874 1881
1890 1899 1909 1920 1930 1933 1943 1954 1972 1974 1980 1987 1996 2006
2016 2026 2032 2041 2050 2056 2065 2075 2086 2104 2106 2111 2113 2115
2124 2130 2138 2147 2153 2162 2176 2178 2183 2185 2187 2189 2191 2201
2212 2229 2231 2236 2238 2240 2251 2257 2265 2271 2282 2288 2298 2304
2312 2318 2328 2334 2344 2355 2369 2371 2380 2387 2396 2405 2415 2426
2441 2443 2451 2461 2463 2465 2468 2470 2478 2489 2498 2508 2518 2520
2528 2530 2540 2543 2548 2550 2552 2556 2558 2560 2564 2567 2571 2575
2579 2583 2587 2591 2595 2599 2603 2607 2611 2615 2619 2623 2627 2636
2639 2643 2646 2649 2652 2654 2656
LDMAR 523 687 732 778 839 971 1006 1057 1097 1135 1172 1213 1252 1288
1325 1362 1428 2522
LDMARX 524
LDMEM 526 682 733 747 926 940 1007 1023 1100 1116 1175 1193 1255 1271
1330 1346 1389 1481 1845 2019 2523
LORB 516
LORBR 557 566 595
LORCM 1365 1431
MOV 522 529 533 549 571 589 614 616 618
MOVB 483 497 499 501 503 511 517 528 530 539 546 550 560 585
590 597 600 605 611 615 617 643 645 646 648 665 667 686
689 692 695 777 841 894 970 1056 1099 1134 1174 1212 1254 1287
1327 1329 1345 1361 1364 1366 1386 1388 1425 1427 1430 1432 1433 1480
1483 1485 1518 1520 1522 1536 1550 1551 1575 1577 1591 1606 1608 1623
1656 1658 1660 1674 1676 1678 1693 1695 1728 1730 1732 1733 1751 1815
1882 1934 1973 1975 1981 2033 2057 2105 2107 2112 2114 2116 2131 2154
2177 2179 2184 2186 2188 2190 2192 2230 2232 2237 2239 2241 2258 2272
2289 2305 2319 2335 2370 2372 2388 2442 2444 2462 2464 2466 2469 2471
2499 2519 2521 2529 2531 2541 2542 2544 2549 2551 2553 2557 2559 2561
2565 2568 2572 2576 2580 2584 2588 2592 2596 2600 2604 2608 2612 2616
2620 2624 2628 2637 2638 2640 2645 2648 2651
MOVMEM 527 608 690 693 734 748 779 927 941 972 1008 1024 1058 1101
1117 1136 1176 1194 1214 1256 1272 1289 1482 2566
NAME 2# 2
NOP 1102 1118 1137 1177 1195 1215 1367 1434 1486 2117 2155 2193 2242 2273
2290 2320 2500
OSB 580
OSM 736 750 764 781 929 943 957 974 1012 1027 1043 1062 1104 1120
1139 1181 1198 1219 1260 1275 1293 1332 1348 1369 1391 1436
REPEAT 358# 711 794 821 987 1075 1152 1232 1306 1400 1449 1497 1552 1635
1706 1946 2078 2204 2347 2418 2481 2511
RETURN 508 518 540 547 551 561 567 574 582 586 598 624 628 638
2516 2524 2538 2545 2554 2562 2569 2634 2641
SHL 575 857 872 914 1867 1936 2502
SHR 485 489 490 492 507 534 843 844 896 897 1524 1538 1797 1836
1913 2244 2275 2632 2633
TEST 658# 659 714 797 824 990 1078 1155 1235 1309 1403 1455 1500 1555
1638 1709 1949 2081 2207 2350 2421 2484
.ECRAM 447# 2643
.END 2762
.INIT 477
.LOC 1453
.MEM 2658