Google
 

Trailing-Edge - PDP-10 Archives - klad_sources - klad.sources/mcode3.lst
There are no other files named mcode3.lst in the archive.
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 1
MCOD3T	MAC	17-Oct-88 14:28		CHANNEL BUS INTERFACE TEST - PART 2

     1						XLIST
     2						LIST
     3
     4
     5
     6
     7					TITLE	MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.1
     8
     9
    10
    11
    12
    13					^
    14
    15
    16
    17
    18						COMMENT	$
    19
    20						MCODE3 IS THE 2ND 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 SCRATCH PAD LOGIC - THE COUNTER AND THE RAM,
    25						(2)   TESTS THE PARITY CHECKING AND GENERATING LOGIC,
    26						(3)   TESTS THE CONTROL UNIT LOGIC -
    27							(A) THE HANDSHAKING LOGIC,
    28							(B) THE RESET LOGIC,
    29							(C) THE CONTROL UNIT SELECT LOGIC,
    30							(D) THE CONTROL UNIT ADDRESS COMPARE LOGIC. THIS REPORTS
    31								TO THE HOST THE ADDRESSES TO WHICH THE DX20 IS
    32								SETUP TO RESPOND.
    33
    34					IN ORDER TO SIMULATE THE ACTIONS OF A DEVICE ON THE CHANNEL BUS, THE LOOP
    35					BACK FEATURE IS USED.  THIS ALLOWS THE LOOPING BACK OF TAG OUT AND BUS OUT
    36					LINES INTO TAG IN AND BUS IN LINES, RESPECTIVELY.  THE BUS OUT LINES ARE
    37					LOOPED BACK COMPLEMENTED.
    38
    39					WHEN THE DX20 IS OPERATING AS A CONTROL UNIT, IT IS REQUIRED THAT THE DIAGNOSTIC
    40					NOT ALLOW ANY SIGNALS TO PROPAGATE ONTO THE TAG OUT OR BUS OUT LINES.  TO
    41					INSURE THIS, THE "ON LINE" BIT IS KEPT CLEARED.  THIS DISABLES THE DRIVERS.
    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
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 2
MCOD3T	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
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 2-1
MCOD3T	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
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 2-2
MCOD3T	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
   177
   178					;ASSEMBLY CONTROL SWITCH
   179
   180			000001		CUADRS=1			;ALLOWS ASSEMBLY OF CU ADDRESS PRINT LOGIC
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 1
MCERR	MAC	17-Oct-88 14:28		CHANNEL BUS INTERFACE REGISTER BIT DEFINITIONS

   181					IF2	<PRINTX STARTING BINARY FILE>
   182						SEARCH	DX20CA			;READ THE CROSS ASSEMBLER
   183
   184					;MASSBUS REGISTER BIT DEFINITIONS
   185
   186					;STATUS & CONTROL REGISTER 1
   187
   188			000000		MPSCR0== 0				;REGISTER NAME
   189			000001			RUN==	  1			;RUN LINE FROM RH20
   190			000002			GO==	  2			;GO BIT
   191			000174			FN==	174			;FUNCTION CODE
   192			000004			 F0==	  4			;FUNCTION BIT 0
   193			000010			 F1==	 10			;FUNCTION BIT 1
   194			000020			 F2==	 20			;FUNCTION BIT 2
   195			000040			 F3==	 40			;FUNCTION BIT 3
   196			000100			 F4==	100			;FUNCTION BIT 4
   197			000200			WCLK==	200			;WRITE CLOCK LINE FROM RH20
   198
   199					;STATUS AND CONTROL REGISTER 2
   200
   201			000001		MPSCR1== 1				;REGISTER NAME
   202			000001			DONE==	  1			;DATA TRANSFER DONE (READ)
   203			000001			EBL==	  1			;SET EBL (WRITE)
   204			000002			EXC==	  2			;EXCEPTION LINE FROM RH20 (READ)
   205			000002			CLRGO==	  2			;SET TO CLEAR GO (WRITE)
   206			000004			CMPERR==  4			;COMPOSITE ERROR FLAG (READ)
   207			000004			START==	  4			;START A DATA TRANSFER (WRITE)
   208			000010			DTD==	 10			;DATA TO DEVICE
   209			000020			OCC==	 20			;OCCUPIED
   210			000040			ILF==	 40			;ILLEGAL FUNCTION
   211			000100			MPERR==	100			;MICRO-PROCESSOR DETECTED ERROR FLAG
   212			000200			ATA==	200			;ATTENTION
   213
   214					;ERROR CODE REGISTER
   215
   216			000002		MPECR== 2				;REGISTER NAME
   217
   218					;DRIVE TYPE REGISTER
   219
   220			000003		MPDTR== 3				;REGISTER NAME
   221
   222					;HARDWARE VERSION REGISTER
   223
   224			000004		MPHVR== 4				;REGISTER NAME
   225
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 2
MCERR	MAC	17-Oct-88 14:28		CHANNEL BUS INTERFACE REGISTER BIT DEFINITIONS

   226					;DATA BUFFER REGISTER 0
   227
   228			000005		MPDB0== 5				;REGISTER NAME
   229
   230					;DATA BUFFER REGISTER 1
   231
   232			000006		MPDB1== 6				;REGISTER NAME
   233
   234					;DATA BUFFER REGISTER 2
   235
   236			000007		MPDB2== 7				;REGISTER NAME
   237
   238			000003			DB==	  3			;DATA BUFFER BITS 16 AND 17
   239			000004			DBPAR==	  4			;PARITY BIT
   240			000010			DBPARE== 10			;PARITY ERROR (READ)
   241			000020			DBEVEN== 20			;DATA BUFFER EVEN PARITY CONTROL
   242
   243					;GENERAL PURPOSE REGISTERS
   244
   245			000010		MPGP0==10				;REGISTER NAMES
   246			000011		MPGP1==11
   247			000012		MPGP2==12
   248			000013		MPGP3==13
   249			000014		MPGP4==14
   250			000015		MPGP5==15
   251			000016		MPGP6==16
   252			000017		MPGP7==17
   253			000020		MPGP10==20
   254			000021		MPGP11==21
   255			000022		MPGP12==22
   256			000023		MPGP13==23
   257			000024		MPGP14==24
   258			000025		MPGP15==25
   259			000026		MPGP16==26
   260			000027		MPGP17==27
   261
   262					;MP STATUS REGISTER
   263
   264			000036		MPSTAT==36				;REGISTER NAME
   265			000001			INT0==	  1			;INTERRUPT LINE 0
   266			000002			INT1==	  2			;INTERRUPT LINE 1
   267			000004			INT2==	  4			;INTERRUPT LINE 2
   268			000010			INT3==	 10			;INTERRUPT LINE 3
   269			000020			C==	 20			;CARRY BIT
   270			000040			Z==	 40			;ZERO BIT
   271
   272					;I/O BANK SELECT REGISTER
   273
   274			000037		IOSEL==37				;REGISTER NAME
   275			000007			INADR==	  7			;INPUT BANK ADDRESS
   276			000070			OUTADR== 70			;OUTPUT BANK ADDRESS
   277			000100			SPRES==	100			;STACK POINTER RESET
   278			000200			INIT==	200			;INITIALIZE
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 3
MCERR	MAC	17-Oct-88 14:28		CHANNEL BUS INTERFACE REGISTER BIT DEFINITIONS

   279					;THE FOLLOWING AC'S ARE USED BY THE ERROR HANDLER
   280
   281					;	AC7	FLAG REGISTER
   282					;	AC6	REPEAT COUNTER
   283					;	AC5	SAVE OF BR (DURING CALL ONLY)
   284					;	AC4	SAVE OF I/O SELECT REGISTER (DURING CALL ONLY)
   285					;	AC1	CORRECT DATA FOR ERRORA CALL
   286					;	AC0	ACTUAL DATA FOR ERRORA AND ERRORM CALLS
   287
   288					;FLAG REGISTER BITS
   289
   290					;	BIT 7	ERROR LOOP
   291					;	BIT 6	ERROR DETECTED
   292					;	BIT 5	RELIABILITY MODE
   293					;	4 - 0	LAST ERROR NUMBER
   294
   295		777777	777777		%TNUM==	-1				;SET TEST NUMBER TO -1 SO ENTIRE DRIVE REGISTER
   296
   297			000000		%REQ==0
   298					IFDEF	RHDATA,<%REQ==1>
   299			000001		IFDEF	CUADRS,<%REQ==1>
   300										;IS LOADED WITH TEST NUMBER ON FIRST TEST
   301
   302					DEFINE	DEFTST(PROG),<
   303					DEFINE	TEST(E,NAME,X<;*>),<
   304					
   305						LALL
   306					X'**********************************************************************
   307					X PROG * TEST E *    NAME
   308					X'**********************************************************************
   309						SALL
   310					
   311						IFN	<^D'E^!%TNUM>&177400,<
   312						IFG %TNUM,<DATI IOSEL,AC6	;;SAVE THE IOSEL REG>
   313						LDBR	11			;;GET DEVICE CODE FOR MASSBUS INTERFACE
   314						MOVB	IOSEL			;;LOAD INTO I/O SELECT REGISTER
   315						LDBR	^D'E_-8			;;GET HIGH ORDER BITS OF TEST NUMBER
   316						MOVB	MPGP1			;;LOAD INTO MASSBUS REG 20
   317						IFG %TNUM,<	MOV	AC6,BR	;;GET SAVED IOSEL REG
   318								MOVB	IOSEL	;;RESTORE IT>
   319						>
   320						LDBR	^D'E&377		;;GET LOW ORDER BITS OF TEST NUMBER
   321						GOINK	TESTI			;;GO INITIALIZE TEST
   322						%TNUM==^D'E			;;REMEMBER TEST NUMBER
   323						%EMES==0			;;CLEAR ERROR MESSAGE NUMBER
   324						TST==TST'E			;;REMEMBER TEST PC
   325						LALL
   326					
   327					TST'E:	SALL
   328					>>
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 4
MCERR	MAC	17-Oct-88 14:28		CHANNEL BUS INTERFACE REGISTER BIT DEFINITIONS

   329			000200		PNT==200				;ADDITIONAL PRINT ROUTINE REQUEST FLAG
   330										;ERROR PRINT ROUTINE NUMBER MUST BE IN DXGP3
   331
   332					DEFINE	ERRMAC(ADR,LADR,PRTN,COR),<
   333						GOINK	ERRSET			;;GO SET ERROR DETECTED FLAG
   334						LPADR==ADR			;;REMEMBER ERROR LOOP ADDRESS
   335						CORF==<PRTN&PNT>!COR		;;REMEMBER IF CORRECT AND ACTUAL DATA
   336							LALL
   337					
   338						ERLOOP	LADR			;;IF ERROR, LOOP TO LADR
   339					>
   340
   341					DEFINE	ERROR(LADR,MES1,MES2,PRTN<0>),<ERRMAC ERLP,LADR,PRTN,0>
   342
   343					DEFINE	ERRORM(LADR,MES1,MES2,PRTN<0>),<ERRMAC ERLPM,LADR,PRTN,100>
   344
   345					DEFINE	ERRORA(LADR,MES1,MES2,PRTN<0>),<ERRMAC ERLPA,LADR,PRTN,100>
   346
   347					DEFINE	ERRORD(LADR,MES1,MES2,PRTN<0>),<ERRMAC ERLPD,LADR,PRTN,40>
   348
   349					DEFINE	ERLOOP(ADR),<SALL
   350						IFN %EMES&<^-37>,<IF2 <
   351							LALL
   352					
   353							PRINTX ?TOO MANY ERROR MESSAGES IN ONE TEST
   354							SALL
   355						>>
   356						LDBR	CORF!%EMES		;;LOAD MESSAGE NUMBER
   357						GOINK	LPADR			;;GO TO ERROR HANDLER
   358						JMPZ	ADR			;;LOOP IF Z IS SET
   359						%EMES==%EMES+1			;;UPDATE THE MESSAGE NUMBER
   360					>
   361
   362					DEFINE	REPEAT(RADR),<
   363						GOINK	REPTU			;;GO TO REPEAT ROUTINE
   364						JMPZ	RADR			;;REPEAT IF Z IS SET
   365					>
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 5
MCERR	MAC	17-Oct-88 14:28		CHANNEL BUS INTERFACE REGISTER BIT DEFINITIONS

   366					IFDEF RHDATA,<
   367						DEFINE	WRITE,<GOINK	SETWRT	;;CALL ROUTINE TO SET UP RH20>
   368						DEFINE	READ,<GOINK	SETRD	;;CALL ROUTINE TO SET UP RH20>
   369						DEFINE	READB,<GOINK	SETRDB	;;CALL ROUTINE TO SET UP RH20>
   370					
   371						DEFINE	CHKRH(LADR,PRTN,CODE),<
   372							LDBR	<PRTN&PNT>!%EMES!CODE	;;SET UP CODE FOR EC REGISTER
   373							GOINK	CKTRM		;;CALL HOST TO CHECK TERMINATION OF RH20
   374							LALL
   375					
   376						ERRLOP	LADR			;;IF ERROR, LOOP TO LADR
   377							%EMES==%EMES+1
   378						>
   379						DEFINE	CHKTRM(LADR,MES1,MES2,PRTN<0>),<CHKRH LADR,PRTN,40>
   380						DEFINE	CHKERR(LADR,MES1,MES2,PRTN<0>),<CHKRH LADR,PRTN,140>
   381					
   382						DEFINE	ERRLOP(LADR),<SALL
   383							JMPZ	LADR		;;IF ERROR, LOOP TO LADR
   384						>
   385					>
   386					IFDEF	CUADRS,<
   387						DEFINE	SNDADR,<GOINK	SENDAD	;;CALL ROUTINE TO SEND CU ADDRESSES>
   388					>
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 6
MCERR	MAC	17-Oct-88 14:28		CHANNEL BUS INTERFACE REGISTER BIT DEFINITIONS

   389			000000		%ADRH==0				;;CLEAR HIGH ADDRESS REFERENCE FLAG
   390
   391					DEFINE	GOINK(ADR),<
   392						IFE	.&<^-1777>,<
   393							JMPSUB	ADR		;;GO TO ADDRESS IN LOW 1K
   394						>
   395						IFN	.&<^-1777>,<
   396							IFIDN <ADR><TESTI>,<
   397								JMPSUB	TESTIH
   398								%ADRH==%ADRH!1
   399							>
   400							IFIDN <ADR><LPADR>,<
   401								IFE <LPADR-ERLP>,<
   402									JMPSUB	ERLPH
   403									%ADRH==%ADRH!2
   404								>
   405								IFE <LPADR-ERLPM>,<
   406									JMPSUB	ERLPMH
   407									%ADRH==%ADRH!4
   408								>
   409								IFE <LPADR-ERLPA>,<
   410									JMPSUB	ERLPAH
   411									%ADRH==%ADRH!10
   412								>
   413								IFDEF CATAB,<
   414									IFE <LPADR-ERLPD>,<
   415										JMPSUB	ERLPDH
   416										%ADRH==%ADRH!400
   417									>
   418								>
   419							>
   420							IFIDN <ADR><ERRSET>,<
   421								JMPSUB	ERSETH
   422								%ADRH==%ADRH!20
   423							>
   424							IFIDN <ADR><REPTU>,<
   425								JMPSUB	REPTUH
   426								%ADRH==%ADRH!40
   427							>
   428							IFDEF RHDATA,<
   429								IFIDN <ADR><SETWRT>,<
   430									JMPSUB	STWRTH
   431									%ADRH==%ADRH!100
   432								>
   433								IFIDN <ADR><SETRD>,<
   434									JMPSUB	STRDH
   435									%ADRH==%ADRH!100
   436								>
   437								IFIDN <ADR><SETRDB>,<
   438									JMPSUB	STRDBH
   439									%ADRH==%ADRH!100
   440								>
   441								IFIDN <ADR><CKTRM>,<JMPSUB CKTRMH>
   442							>
   443							IFDEF CUADRS,<
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 6-1
MCERR	MAC	17-Oct-88 14:28		CHANNEL BUS INTERFACE REGISTER BIT DEFINITIONS

   444								IFIDN <ADR><SENDAD>,<
   445									JMPSUB	SNDADH
   446									%ADRH==%ADRH!200
   447								>
   448							>
   449						>
   450					>
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 7
MCERR	MAC	17-Oct-88 14:28		CHANNEL BUS INTERFACE REGISTER BIT DEFINITIONS

   451					DEFINE	.ECRAM,<
   452						IFE .&<^-1777>,<	JMP	BEGEND>
   453						IFN .&<^-1777>,<	JUMP	BEGEND>
   454						IFN %ADRH&1,<	TESTIH: MOVB	AC5
   455									JUMP	TEST0I>
   456						IFN %ADRH&2,<	ERLPH:	MOVB	AC5
   457									JUMP	ERLP0>
   458						IFN %ADRH&4,<	ERLPMH:	MOVB	AC5
   459									JUMP	ERLPM0>
   460						IFN %ADRH&10,<	ERLPAH: MOVB	AC5
   461									JUMP	ERLPA0>
   462						IFN %ADRH&20,<	ERSETH: JUMP	ERRSET>
   463						IFN %ADRH&40,<	REPTUH: JUMP	REPTU>
   464						IFN %ADRH&100,<	STWRTH:	LDBR	1
   465									JMP	CALLH
   466								STRDH:	LDBR	2
   467									JMP	CALLH
   468								STRDBH:	LDBR	3
   469								CALLH:	MOVB	AC5
   470									JUMP	CALL0
   471								CKTRMH:	MOVB	AC5
   472									JUMP	CKTRM0>
   473						IFN %ADRH&200,<	SNDADH:	LDBR	200
   474									MOVB	AC5
   475									JUMP	CALL0>
   476						IFN %ADRH&400,<	ERLPDH:	MOVB	AC5
   477									JUMP	ERLPD0>
   478					>
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 8
MCERR	MAC	17-Oct-88 14:28		CHANNEL BUS INTERFACE REGISTER BIT DEFINITIONS

   479					;MICRO-DIAGNOSTIC START ROUTINE
   480
   481						.INIT	^			;INITIALIZE THE CROSS ASSEMBLER
   482
   483						SALL
   484	000000	0 002000 01 0000 
   485
   486	000001	0 002011 0 1 0 011 	BEGIN:	LDBR	11			;SELECT THE MASSBUS
   487	000002	0 066371 3 3 0 17 11 		MOVB	IOSEL			;INTERFACE
   488	000003	0 022000 1 1 0 00 00 	WAITGO:	DATI	MPSCR0,BR		;READ CONTROL REGISTER
   489	000004	0 014000 0 6 0 000 		SHR				;SHIFT GO BIT TO BIT 0
   490	000005	0 104007 4 2 0007 		JMPB0	.+2			;JUMP AROUND IF GO IS SET
   491	000006	0 100003 4 0 0003 		JMP	WAITGO			;NOT YET, KEEP WAITING
   492	000007	0 022000 1 1 0 00 00 		DATI	MPSCR0,BR		;READ THE FUNCTION CODE AGAIN
   493	000010	0 014000 0 6 0 000 		SHR				;SHIFT RIGHT
   494	000011	0 014000 0 6 0 000 		SHR				;SHIFT F0 TO BIT 0
   495	000012	0 104031 4 2 0031 		JMPB0	CMDF0			;JUMP IF F0 IS SET
   496	000013	0 014000 0 6 0 000 		SHR				;SHIFT F1 TO BIT 0
   497	000014	0 104017 4 2 0017 		JMPB0	.+3			;JUMP IF RELIABILITY MODE REQUESTED
   498	000015	0 002000 0 1 0 000 		LDBR	0			;SET UP FLAG REG WITH ALL ZEROS
   499	000016	0 100020 4 0 0020 		JMP	.+2
   500	000017	0 002040 0 1 0 040 		LDBR	40			;SET RELIABILITY MODE FLAG
   501	000020	0 072171 3 5 0 07 11 		MOVB	AC7			;PUT IN AC7
   502	000021	0 002300 0 1 0 300 		LDBR	INIT+SPRES		;RESET THE DX20
   503	000022	0 066371 3 3 0 17 11 		MOVB	IOSEL			;AND THE STACK POINTER
   504	000023	0 002011 0 1 0 011 		LDBR	11			;SELECT THE MASSBUS
   505	000024	0 066371 3 3 0 17 11 		MOVB	IOSEL			;INTERFACE AGAIN
   506	000025	0 002000 0 1 0 000 		LDBR	0			;CLEAR RIGHT HALF OF DXGP3
   507	000026	0 064351 3 2 0 16 11 		MOVB	MPGP6			;TO INDICATE NO ADDITIONAL ERROR PRINTER
   508	000027	0 116033 4 7 0033 		JMPSUB	OFFGO			;TURN OFF GO
   509	000030	0 100236 4 0 0236 		JMP	TSTART			;GO START THE FIRST TEST
   510
   511	000031	0 014000 0 6 0 000 	CMDF0:	SHR				;SHIFT F1 TO BIT 0
   512	000032	0 016000 0 7 0 000 		RETURN				;RETURN TO CALLER
   513
   514	000033	0 002000 0 1 0 000 	OFFGO:	LDBR	0			;GET A ZERO
   515	000034	0 064051 3 2 0 02 11 		MOVB	MPECR			;CLEAR ERROR CODE REGISTER
   516	000035	0 032121 1 5 0 05 01 		DATI	MPSCR1,AC5		;READ STATUS REGISTER 1
   517	000036	0 002010 0 1 0 010 		LDBR	DTD			;GET MASK OF DIRECTION BIT
   518	000037	0 072133 3 5 0 05 13 		LANDBR	AC5			;KEEP ONLY THAT BIT
   519	000040	0 002002 0 1 0 002 		LDBR	CLRGO			;GET BIT TO CLEAR GO
   520	000041	0 062134 3 1 0 05 14 		LORB	AC5,BR			;COMBINE WITH COPY OF DTD
   521	000042	0 064031 3 2 0 01 11 		MOVB	MPSCR1			;CLEAR GO AND ATA
   522	000043	0 016000 0 7 0 000 		RETURN
   523
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 9
MCERR	MAC	17-Oct-88 14:28		CHANNEL BUS INTERFACE REGISTER BIT DEFINITIONS

   524					;TEST INITIALIZATION
   525
   526	000044	0 062130 3 1 0 05 10 	TEST0I:	MOV	AC5,BR			;GET TEST NUMBER BACK
   527	000045	0 001000 0 0 2 000 	TESTI:	LDMAR	0			;CLEAR MEMORY ADDRESS REGISTER
   528	000046	0 000400 0 0 1 000 		LDMARX	0			;ALL BITS
   529	000047	0 132157 5 5 0 06 17 		DATI	IOSEL,AC6		;SAVE IOSEL REG
   530	000050	0 010011 0 4 0 011 		LDMEM	11			;GET DEVICE CODE FOR MASSBUS INTERFACE
   531	000051	0 046371 2 3 0 17 11 		MOVMEM	IOSEL			;LOAD INTO I/O SELECT REGISTER
   532	000052	0 064211 3 2 0 10 11 		MOVB	MPGP0			;WRITE TEST NUMBER INTO DXGP0
   533	000053	0 062150 3 1 0 06 10 		MOV	AC6,BR			;GET SAVED IOSEL REG
   534	000054	0 066371 3 3 0 17 11 		MOVB	IOSEL			;RESTORE IT
   535	000055	0 002040 0 1 0 040 		LDBR	40			;GET MASK OF ONLY RELIABILITY BIT
   536	000056	0 072173 3 5 0 07 13 		LANDBR	AC7			;CLEAR ERROR AND MESSAGE NUMBER BITS
   537	000057	0 062170 3 1 0 07 10 		MOV	AC7,BR			;GET FLAGS
   538	000060	0 014000 0 6 0 000 		SHR				;SHIFT RELIABILITY MODE BIT TO BR4
   539	000061	0 106064 4 3 0064 		JMPB4	.+3			;JUMP AROUND IF RELIABILITY MODE
   540	000062	0 002000 0 1 0 000 		LDBR	0			;QUICK VERIFY, LOAD A ZERO COUNT
   541	000063	0 100065 4 0 0065 		JMP	.+2
   542	000064	0 002077 0 1 0 077 		LDBR	RPTCNT-1		;GET REPEAT COUNT
   543	000065	0 072151 3 5 0 06 11 		MOVB	AC6			;SAVE IN AC6
   544	000066	0 016000 0 7 0 000 		RETURN				;NOW START THE TEST
   545
   546					;I/O SELECT REGISTER GENERAL ROUTINES
   547
   548	000067	0 132117 5 5 0 04 17 	SAVIOS:	DATI	IOSEL,AC4		;SAVE I/O SELECT REGISTER IN AC4
   549	000070	0 002011 0 1 0 011 		LDBR	11			;SELECT MASSBUS INTERFACE
   550	000071	0 066371 3 3 0 17 11 		MOVB	IOSEL			;GO I/O
   551	000072	0 016000 0 7 0 000 	NRTN:	RETURN
   552
   553	000073	0 062110 3 1 0 04 10 	RESIOS:	MOV	AC4,BR			;GET SAVED I/O SELECT REGISTER
   554	000074	0 066371 3 3 0 17 11 		MOVB	IOSEL			;RESTORE IT
   555	000075	0 016000 0 7 0 000 		RETURN
   556
   557					;ROUTINE TO SET ATA AND/OR MPERR IN STATUS REGISTER
   558					;ENTER WITH BITS TO SET IN BR
   559
   560	000076	0 032121 1 5 0 05 01 	SETATA:	DATI	MPSCR1,AC5		;READ STATUS REGISTER
   561	000077	0 072134 3 5 0 05 14 		LORBR	AC5			;SET REQUESTED BITS
   562	000100	0 002310 0 1 0 310 		LDBR	ATA+MPERR+DTD		;GET MASK OF ONLY BITS TO SET
   563	000101	0 062133 3 1 0 05 13 		LANDB	AC5,BR			;CLEAR OTHER BITS READ
   564	000102	0 064031 3 2 0 01 11 		MOVB	MPSCR1			;WRITE INTO STATUS REGISTER
   565	000103	0 016000 0 7 0 000 		RETURN
   566
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 10
MCERR	MAC	17-Oct-88 14:28		CHANNEL BUS INTERFACE REGISTER BIT DEFINITIONS

   567					;ERROR HANDLER ROUTINES
   568
   569	000104	0 002300 0 1 0 300 	ERRSET:	LDBR	300			;GET ERROR LOOP AND DETECTED FLAGS
   570	000105	0 072174 3 5 0 07 14 		LORBR	AC7			;SET BOTH BITS IN FLAG REGISTER
   571	000106	0 016000 0 7 0 000 		RETURN
   572
   573					;CHECK IF TO REPORT AN ERROR
   574
   575	000107	0 062170 3 1 0 07 10 	ERRCHK:	MOV	AC7,BR			;GET FLAG REGISTER
   576	000110	0 110112 4 4 0112 	IFNDEF .ERROR,<JMPB7	.+2>		;SKIP IF IN ERROR LOOP
   577					IFDEF  .ERROR,<JMP	REPORT>		;REPORT ALL ERRORS
   578	000111	0 016377 0 7 0 377 		RETURN	-1			;RETURN WITH Z SET TO CONTINUE TEST
   579	000112	0 062165 3 1 0 07 05 		SHL	AC7,BR			;SHIFT ERROR DETECTED BIT TO BR7
   580	000113	0 110126 4 4 0126 		JMPB7	REPORT			;REPORT IT IF SET
   581	000114	0 002037 0 1 0 037 		LDBR	37			;GET MASK FOR ERROR NUMBER
   582	000115	0 072133 3 5 0 05 13 		LANDBR	AC5			;CLEAR CONTROL BITS IN CURRENT NUMBER
   583	000116	0 062173 3 1 0 07 13 		LANDB	AC7,BR			;EXTRACT LAST ERROR NUMBER
   584	000117	0 060137 3 0 0 05 17 		OSB	AC5			;COMPARE LAST AND CURRENT ERROR NUMBERS
   585	000120	0 114122 4 6 0122 		JMPZ	NOFAIL			;JUMP IF AT SAME ERROR
   586	000121	0 016377 0 7 0 377 		RETURN	-1			;NO, RETURN WITH Z SET TO CONTINUE TEST
   587	000122	0 116067 4 7 0067 	NOFAIL:	JMPSUB	SAVIOS			;SAVE I/O REGISTER, SELECT MASSBUS
   588	000123	0 002200 0 1 0 200 		LDBR	ATA			;GET ATA BIT
   589	000124	0 072131 3 5 0 05 11 		MOVB	AC5			;SAVE IN AC5
   590	000125	0 016000 0 7 0 000 		RETURN				;RETURN WITH Z CLEAR TO SIGNAL END OF LOOP
   591
   592	000126	0 116067 4 7 0067 	REPORT:	JMPSUB	SAVIOS			;SAVE I/O REGISTER, SELECT MASSBUS
   593	000127	0 062130 3 1 0 05 10 		MOV	AC5,BR			;GET ERROR NUMBER
   594	000130	0 064051 3 2 0 02 11 		MOVB	MPECR			;PUT IN ERROR CODE REGISTER
   595	000131	0 002240 0 1 0 240 		LDBR	240			;GET MASK OF LOOP AND RELIABILITY BITS
   596	000132	0 072173 3 5 0 07 13 		LANDBR	AC7			;LEAVE ONLY THOSE TWO BITS IN FLAG REG
   597	000133	0 002037 0 1 0 037 		LDBR	37			;GET MASK OF ERROR NUMBER
   598	000134	0 062133 3 1 0 05 13 		LANDB	AC5,BR			;GET CURRENT NUMBER FROM AC5
   599	000135	0 072174 3 5 0 07 14 		LORBR	AC7			;MERGE AND PUT IN FLAG REGISTER
   600	000136	0 002300 0 1 0 300 		LDBR	ATA+MPERR		;GET ATA AND ERROR BITS
   601	000137	0 072131 3 5 0 05 11 		MOVB	AC5			;SAVE IN AC5
   602	000140	0 016000 0 7 0 000 		RETURN				;RETURN WITH Z CLEAR TO SIGNAL ERROR REPORT
   603
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 11
MCERR	MAC	17-Oct-88 14:28		CHANNEL BUS INTERFACE REGISTER BIT DEFINITIONS

   604	000141	0 072131 3 5 0 05 11 	ERLP:	MOVB	AC5			;SAVE MESSAGE NUMBER IN AC5
   605	000142	0 116107 4 7 0107 	ERLP0:	JMPSUB	ERRCHK			;CHECK FOR ERROR
   606	000143	0 114072 4 6 0072 		JMPZ	NRTN			;NO, RETURN WITH Z CLEAR TO CONTINUE TEST
   607	000144	0 100161 4 0 0161 		JMP	ERRCOM			;GO TO COMMON ROUTINE
   608
   609	000145	0 072131 3 5 0 05 11 	ERLPM:	MOVB	AC5			;SAVE MESSAGE NUMBER IN AC5
   610	000146	0 116107 4 7 0107 	ERLPM0:	JMPSUB	ERRCHK			;CHECK FOR ERROR
   611	000147	0 114072 4 6 0072 		JMPZ	NRTN			;NO, RETURN WITH Z CLEAR TO CONTINUE TEST
   612	000150	0 044311 2 2 0 14 11 		MOVMEM	MPGP4			;PUT CORRECT DATA IN RIGHT HALF OF DXGP2
   613	000151	0 100157 4 0 0157 		JMP	ERRCA			;JUMP AROUND
   614
   615	000152	0 072131 3 5 0 05 11 	ERLPA:	MOVB	AC5			;SAVE MESSAGE NUMBER IN AC5
   616	000153	0 116107 4 7 0107 	ERLPA0:	JMPSUB	ERRCHK			;CHECK FOR ERROR
   617	000154	0 114072 4 6 0072 		JMPZ	NRTN			;NO, RETURN WITH Z CLEAR TO CONTINUE TEST
   618	000155	0 062030 3 1 0 01 10 		MOV	AC1,BR			;GET CORRECT DATA FROM AC1
   619	000156	0 064311 3 2 0 14 11 		MOVB	MPGP4			;PUT IN RIGHT HALF OF DXGP2
   620	000157	0 062010 3 1 0 00 10 	ERRCA:	MOV	AC0,BR			;GET ACTUAL DATA FROM AC0
   621	000160	0 064331 3 2 0 15 11 		MOVB	MPGP5			;PUT IN LEFT HALF OF DXGP2
   622	000161	0 062130 3 1 0 05 10 	ERRCOM:	MOV	AC5,BR			;GET BITS TO SET IN STATUS REGISTER
   623	000162	0 116076 4 7 0076 	CHKLOP:	JMPSUB	SETATA			;GO SET THE BITS
   624	000163	0 116003 4 7 0003 	CHKLP:	JMPSUB	WAITGO			;WAIT FOR GO TO SET
   625	000164	0 104170 4 2 0170 		JMPB0	ELOOPC			;JUMP IF TO CONTINUE
   626	000165	0 116033 4 7 0033 		JMPSUB	OFFGO			;TURN OFF GO
   627	000166	0 116073 4 7 0073 		JMPSUB	RESIOS			;RESTORE I/O SELECT REGISTER
   628	000167	0 016377 0 7 0 377 	ZRTN:	RETURN	-1			;RETURN WITH Z SET TO LOOP
   629
   630	000170	0 116033 4 7 0033 	ELOOPC:	JMPSUB	OFFGO			;TURN OFF GO
   631	000171	0 116073 4 7 0073 		JMPSUB	RESIOS			;RESTORE I/O SELECT REGISTER
   632	000172	0 016000 0 7 0 000 		RETURN				;RETURN WITH Z CLEAR TO CONTINUE
   633
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 12
MCERR	MAC	17-Oct-88 14:28		CHANNEL BUS INTERFACE REGISTER BIT DEFINITIONS

   634					XLIST
   635					LIST
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 13
MCERR	MAC	17-Oct-88 14:28		CHANNEL BUS INTERFACE REGISTER BIT DEFINITIONS

   636					XLIST
   637					LIST
   638	000173	0 002200 0 1 0 200 	SENDAD:	LDBR	200			;SET UP CODE FOR HOST
   639	000174	0 100202 4 0 0202 		JMP	CALL
   640	000175	0 002001 0 1 0 001 	SETWRT:	LDBR	1			;SET UP CODE FOR HOST
   641	000176	0 100202 4 0 0202 		JMP	CALL
   642	000177	0 002002 0 1 0 002 	SETRD:	LDBR	2			;SET UP CODE FOR HOST
   643	000200	0 100202 4 0 0202 		JMP	CALL
   644	000201	0 002003 0 1 0 003 	SETRDB:	LDBR	3			;SET UP CODE FOR HOST
   645	000202	0 072131 3 5 0 05 11 	CALL:	MOVB	AC5			;SAVE CODE IN AC5
   646	000203	0 116067 4 7 0067 	CALL0:	JMPSUB	SAVIOS			;SAVE I/O SELECT REG., SELECT MASSBUS
   647	000204	0 062130 3 1 0 05 10 		MOV	AC5,BR			;GET CODE TO PASS TO HOST
   648	000205	0 064051 3 2 0 02 11 		MOVB	MPECR			;WRITE INTO ERROR CODE REGISTER
   649	000206	0 002200 0 1 0 200 		LDBR	ATA			;GET ATTENTION BIT
   650	000207	0 116076 4 7 0076 		JMPSUB	SETATA			;SET ATTENTION IN STATUS REGISTER
   651	000210	0 116003 4 7 0003 		JMPSUB	WAITGO			;WAIT FOR GO TO SET
   652	000211	0 116033 4 7 0033 		JMPSUB	OFFGO			;TURN GO OFF AGAIN
   653	000212	0 116073 4 7 0073 		JMPSUB	RESIOS			;RESTORE THE I/O SELECT REGISTER
   654	000213	0 016000 0 7 0 000 		RETURN				;RETURN, RH20 IS SET UP
   655
   656	000214	0 072131 3 5 0 05 11 	CKTRM:	MOVB	AC5			;SAVE MESSAGE NUMBER IN AC5
   657	000215	0 116067 4 7 0067 	CKTRM0:	JMPSUB	SAVIOS			;SAVE I/O SELECT REG., SELECT MASSBUS
   658	000216	0 062130 3 1 0 05 10 		MOV	AC5,BR			;GET MESSAGE NUMBER AGAIN
   659	000217	0 064051 3 2 0 02 11 		MOVB	MPECR			;WRITE IT INTO ERROR CODE REGISTER
   660	000220	0 002200 0 1 0 200 		LDBR	ATA			;GET ATTENTION BIT
   661	000221	0 100162 4 0 0162 		JMP	CHKLOP			;TELL HOST, DECIDE IF TO LOOP ON RESPONSE
   662
   663					XLIST
   664					LIST
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 14
MCERR	MAC	17-Oct-88 14:28		CHANNEL BUS INTERFACE REGISTER BIT DEFINITIONS

   665					;REPEAT TEST ROUTINE
   666
   667	000222	0 072147 3 5 0 06 07 	REPTU:	DECR	AC6			;DECREMENT REPEAT COUNT
   668	000223	0 114072 4 6 0072 		JMPZ	NRTN			;IF NOW -1, RETURN WITH Z CLEAR
   669	000224	0 016377 0 7 0 377 		RETURN	-1			;RETURN WITH Z SET TO REPEAT TEST
   670
   671					;REPORT END OF DIAGNOSTIC WITH 0 ERROR CODE AND 0 TEST NUMBER
   672
   673	000225	0 002011 0 1 0 011 	BEGEND:	LDBR	11			;SELECT MASSBUS INTERFACE
   674	000226	0 066371 3 3 0 17 11 		MOVB	IOSEL			;IN I/O SELECT REGISTER
   675	000227	0 002000 0 1 0 000 		LDBR	0			;GET A ZERO
   676	000230	0 064211 3 2 0 10 11 		MOVB	MPGP0			;MAKE TEST NUMBER 0
   677	000231	0 064231 3 2 0 11 11 		MOVB	MPGP1			;TO SAY END OF DIAGNOSTIC
   678	000232	0 002200 0 1 0 200 		LDBR	ATA			;GET ATTENTION BIT
   679	000233	0 064031 3 2 0 01 11 		MOVB	MPSCR1			;SET IT
   680	000234	0 116003 4 7 0003 		JMPSUB	WAITGO			;WAIT FOR GO TO SET
   681	000235	0 100001 4 0 0001 		JMP	BEGIN			;START DIAGNOSTIC OVER AGAIN
   682
   683
   684	000236				TSTART:					;COME HERE TO START THE TESTING
   685
   686
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 1
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

   687						SUBTTL	CHANNEL BUS INTERFACE TEST - PART 2
   688
   689					DEFTST	MCODE3
   690						TEST	175,TEST MICROBUS INIT DURING CHANNEL MODE XFER
   691					;***********************************************************************
   692					;* MCODE3 * TEST 175 *    TEST MICROBUS INIT DURING CHANNEL MODE XFER
   693					;***********************************************************************
   694						SALL
   695	000236	0 002011 0 1 0 011 
   696	000237	0 066371 3 3 0 17 11 
   697	000240	0 002000 0 1 0 000 
   698	000241	0 064231 3 2 0 11 11 
   699	000242	0 002257 0 1 0 257 
   700	000243	0 116045 4 7 0045 
   701
   702	000244				TST175:	SALL
   703
   704					;*TEST THAT A MICROBUS INIT CLEARS "DATA REQ DLY" AND "SLVE REQ".
   705					;*LOOP ENABLE IS SET FOR THIS TEST.
   706
   707					;*SET "CHANNEL MODE" THEN "HIGH SPEED".
   708					;*SET "SRV IN" TO SET "DATA REQ DLY" AND "SLVE REQ".
   709					;*DO A MICROBUS UNIT.
   710					;*CHECK THAT "DATA REQ DLY" AND "SLVE REQ" ARE CLEARED.
   711
   712	000244	0 002115 0 1 0 115 		GOSUB	INITL			;DO A MICROBUS INIT
   713	000245	0 177631 7 7 3 11 11 
   714	000246	0 002005 0 1 0 005 	INIT1:	LDBR	LOOPEN+CHANL		;SET LLOP ENABLE AND CHANNEL MODE
   715	000247	0 064031 3 2 0 01 11 		MOVB	CSR1
   716	000250	0 002105 0 1 0 105 		LDBR	LOOPEN+DIHISP+CHANL	;SET "HIGH SPEED"
   717	000251	0 064031 3 2 0 01 11 		MOVB	CSR1
   718	000252	0 002154 0 1 0 154 		GOSUB	DEVWR			;SET DATA TO DEVICE
   719	000253	0 177631 7 7 3 11 11 
   720	000254	0 002260 0 1 0 260 		GOSUB	DPINIT			;DO A DATA PATH INIT
   721	000255	0 177631 7 7 3 11 11 
   722	000256	0 002145 0 1 0 145 		GOSUB	DEVRD			;CLEAR DATA TO DEVICE
   723	000257	0 177631 7 7 3 11 11 
   724	000260	0 002200 0 1 0 200 		LDBR	SRVINL			;SET "SRV IN"
   725	000261	0 064071 3 2 0 03 11 		MOVB	TOR1
   726	000262	0 002115 0 1 0 115 		GOSUB	INITL			;DO A MICROBUS INIT
   727	000263	0 177631 7 7 3 11 11 
   728	000264	0 002232 0 1 0 232 		GOSUB	RDRDLY			;READ "NOT DATA REQ DLY"
   729	000265	0 177631 7 7 3 11 11 
   730	000266	0 104270 4 2 0270 		JMPB0	.+2			;JUMP IF SET, SHOULD BE
   731	000267	0 116104 4 7 0104 		ERROR	INIT1,"DATA REQ DLY" DIDN'T CLEAR AFTER MICROBUS INIT
   732
   733						ERLOOP	INIT1			^SALL
   734	000270	0 002000 0 1 0 000 
   735	000271	0 116141 4 7 0141 
   736	000272	0 114246 4 6 0246 
   737	000273	0 002227 0 1 0 227 		GOSUB	RDSLRQ			;READ "SLVE REQ"
   738	000274	0 177631 7 7 3 11 11 
   739	000275	0 104277 4 2 0277 		JMPB0	.+2			;JUMP IF IT DIDN'T CLEAR
   740	000276	0 100300 4 0 0300 		JMP	.+2			;ELSE, OKAY
   741	000277	0 116104 4 7 0104 		ERROR	INIT1,"SLVE REQ" DIDN'T CLEAR AFTER MICROBUS INIT
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 1-1
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

   742
   743						ERLOOP	INIT1			^SALL
   744	000300	0 002001 0 1 0 001 
   745	000301	0 116141 4 7 0141 
   746	000302	0 114246 4 6 0246 
   747	000303	0 116222 4 7 0222 		REPEAT	TST
   748	000304	0 114244 4 6 0244 
   749
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 2
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

   750						TEST	176,TEST SCRATCH PAD (SP) ADDRESS COUNTER
   751					;***********************************************************************
   752					;* MCODE3 * TEST 176 *    TEST SCRATCH PAD (SP) ADDRESS COUNTER
   753					;***********************************************************************
   754						SALL
   755	000305	0 002260 0 1 0 260 
   756	000306	0 116045 4 7 0045 
   757
   758	000307				TST176:	SALL
   759
   760					;*VERIFY THAT THE SP ADR COUNTER DECREMENTS CORRECTLY WHEN
   761					;*	(1) REGISTER 10 (SP DATA) IS LOADED, OR
   762					;*	(2) A "CLK BOR" PULSE IS GENERATED.
   763					;*SP ENABLE AND CHANNEL MODE ARE SET FOR THESE TESTS.
   764
   765					;*LOAD SP ADDR WITH TEST DATA.
   766					;*PERFORM A LOAD TO REG 10.
   767					;*CHECK THAT SP ADDR IS DECREMENTED.
   768					;*REPEAT FOR TEST DATA (17-0).
   769					;*LOOP ENABLE IS NOT SET FOR THIS TEST.
   770
   771	000307	0 002201 0 1 0 201 		LDBR	SPEN+CHANL		;SET SP ENABLE AND CHANNEL MODE
   772	000310	0 064031 3 2 0 01 11 		MOVB	CSR1
   773	000311	0 002017 0 1 0 017 		LDBR	17			;SET TEST DATA AND LOOP CNT -1
   774	000312	0 072031 3 5 0 01 11 		MOVB	AC1
   775	000313	0 002016 0 1 0 016 		LDBR	16			;SET EXPECTED DATA
   776	000314	0 072051 3 5 0 02 11 		MOVB	AC2
   777	000315	0 062030 3 1 0 01 10 	SPADLP:	MOV	AC1,BR
   778	000316	0 064131 3 2 0 05 11 		MOVB	SPADR			;LOAD TEST DATA
   779	000317	0 064211 3 2 0 10 11 		MOVB	SPDALO			;LOAD REG 10
   780	000320	0 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
   781	000321	0 032005 1 5 0 00 05 		DATI	SPADR,AC0		;READ DEC'D SP ADDR.
   782	000322	0 002017 0 1 0 017 		LDBR	17			;SETUP MASK FOR SP ADDR BITS
   783	000323	0 072013 3 5 0 00 13 		LANDBR	AC0			;ISOLATE SP ADDR BITS
   784	000324	0 070053 3 4 0 02 13 		LANDB	AC2,MEM			;PUT MASKED EXPECTED DATA INTO MEMORY
   785	000325	0 040017 2 0 0 00 17 		OSM	AC0			;COMPARE
   786	000326	0 114330 4 6 0330 		JMPZ	.+2			;JUMP IF DEC'D DATA OKAY
   787						ERRORM	SPADLP,SP ADDR COUNTER DIDN'T DECREMENT CORRECTLY,^_
   788	000327	0 116104 4 7 0104 	DIAG LOADED SP ADDR WITH "CORRECT"+1 THEN LOADED REG 10
   789
   790						ERLOOP	SPADLP			^SALL
   791	000330	0 002100 0 1 0 100 
   792	000331	0 116145 4 7 0145 
   793	000332	0 114315 4 6 0315 
   794	000333	0 072047 3 5 0 02 07 		DECR	AC2			;DEC CORRECT DATA
   795	000334	0 072027 3 5 0 01 07 		DECR	AC1			;DEC TEST DATA AND LOOP CNT
   796	000335	0 114337 4 6 0337 		JMPZ	.+2			;JUMP IF DONE
   797	000336	0 100315 4 0 0315 		JMP	SPADLP			;ELSE, CONTINUE
   798
   799					;*LOAD SP ADDR WITH TEST DATA.
   800					;*GENERATE A "CLK BOR" PULSE BY PULSING "DATA REQ".
   801					;*CHECK THAT SP ADDR IS DECREMENTED.
   802					;*LOOP ENABLE IS SET FOR THIS TEST.
   803
   804	000337	0 002205 0 1 0 205 	SPAD1:	LDBR	SPEN+LOOPEN+CHANL	;SET LOOP ENABLE
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 2-1
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

   805	000340	0 064031 3 2 0 01 11 		MOVB	CSR1
   806	000341	0 002010 0 1 0 010 		LDBR	10			;LOAD SP ADDR WITH TEST DATA
   807	000342	0 064131 3 2 0 05 11 		MOVB	SPADR
   808	000343	0 002200 0 1 0 200 		LDBR	SRVINL			;SET "SRV IN" TO GEN "DATA REQ"
   809	000344	0 064071 3 2 0 03 11 		MOVB	TOR1
   810	000345	0 002000 0 1 0 000 		LDBR	0			;CLEAR "SRV IN"
   811	000346	0 064071 3 2 0 03 11 		MOVB	TOR1
   812	000347	0 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
   813	000350	0 032005 1 5 0 00 05 		DATI	SPADR,AC0		;READ DEC'D SP ADDR.
   814	000351	0 010007 0 4 0 007 		LDMEM	7			;SETUP CORRECT DATA
   815	000352	0 040017 2 0 0 00 17 		OSM	AC0			;COMPARE
   816	000353	0 114355 4 6 0355 		JMPZ	.+2			;JUMP IF DEC'D DATA OKAY
   817						ERRORM	SPAD1, SP ADDR COUNTER DIDN'T DECREMENT CORRECTLY,^_
   818	000354	0 116104 4 7 0104 	DIAG LOAD SP ADDR WITH 10 THEN TOGGLED "DATA REQ"
   819
   820						ERLOOP	SPAD1			^SALL
   821	000355	0 002101 0 1 0 101 
   822	000356	0 116145 4 7 0145 
   823	000357	0 114337 4 6 0337 
   824					;*CLEAR "SP EN".
   825					;*DO A LOAD TO REG 10.
   826					;*CHECK THAT SP ADDR COUNTER DID NOT DECREMENT.
   827
   828	000360	0 002001 0 1 0 001 	SPAD2:	LDBR	CHANL			;CLEAR "SP ENABLE"
   829	000361	0 064031 3 2 0 01 11 		MOVB	CSR1
   830	000362	0 010017 0 4 0 017 		LDMEM	17			;LOAD SP ADDR
   831	000363	0 044131 2 2 0 05 11 		MOVMEM	SPADR
   832	000364	0 064211 3 2 0 10 11 		MOVB	SPDALO			;WRITE REG 10 TO CLK SP ADDR CTR
   833	000365	0 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
   834	000366	0 032005 1 5 0 00 05 		DATI	SPADR,AC0		;READ SP ADDR BITS
   835	000367	0 052013 2 5 0 00 13 		LANDMR	AC0			;ISOLATE THEM
   836	000370	0 040017 2 0 0 00 17 		OSM	AC0			;COMPARE
   837	000371	0 114373 4 6 0373 		JMPZ	.+2			;JUMP IF SP ADDR DIDN'T DEC
   838	000372	0 116104 4 7 0104 		ERROR	SPAD2,SP ADDR COUNTER DECREMENTED WITH "SP EN" CLEARED
   839
   840						ERLOOP	SPAD2			^SALL
   841	000373	0 002002 0 1 0 002 
   842	000374	0 116141 4 7 0141 
   843	000375	0 114360 4 6 0360 
   844	000376	0 116222 4 7 0222 		REPEAT	TST
   845	000377	0 114307 4 6 0307 
   846
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 3
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

   847						TEST	177,TEST BORLO AND BUS0 PARITY NETWORKS
   848					;***********************************************************************
   849					;* MCODE3 * TEST 177 *    TEST BORLO AND BUS0 PARITY NETWORKS
   850					;***********************************************************************
   851						SALL
   852	000400	0 002261 0 1 0 261 
   853	000401	0 116045 4 7 0045 
   854
   855	000402				TST177:	SALL
   856
   857					;*TEST THE PROPER GENERATION OF BORLO PARITY AND THE PROPER DETECTION
   858					;*OF BUS0 PARITY.
   859					;*LOOP ENABLE IS SET FOR THIS TEST.
   860					;*THE DATA PATTERNS USED WERE SPECIFICALLY DESIGNED TO TEST THE 74S280 CHIP.
   861
   862					;*CLEAR "EVEN PAR".
   863					;*LOAD BORLO WITH AN EVEN PARITY DATA PATTERN.
   864					;*CHECK THAT "BOR P0" IS NOT SET.
   865					;*CHECK THAT "BUS0 ODD PAR" IS SET.
   866					;*REPEAT FOR 4 DIFFERENT PATTERNS.
   867
   868	000402	0 001000 0 0 2 000 		LDMAR	0			;CLEAR MAR
   869	000403	0 010001 0 4 0 001 		LDMEM	1			;SET ADDITIONAL PNT ROUTINE NUMBER
   870	000404	0 002163 0 1 0 163 		GOSUB	SETPNT
   871	000405	0 177631 7 7 3 11 11 
   872	000406	0 002044 0 1 0 044 		LDBR	LOOPEN+EVPAR		;SET LOOP ENABLE
   873	000407	0 064031 3 2 0 01 11 		MOVB	CSR1
   874	000410	0 002003 0 1 0 003 		LDBR	3			;SET LOOP CNT MINUS 1
   875	000411	0 072031 3 5 0 01 11 		MOVB	AC1
   876	000412	0 001133 0 0 2 133 		LDMAR	EPATS			;SET MAR TO DATA PATTERN ADDR.
   877	000413	0 044231 2 2 0 11 11 	PARLP1:	MOVMEM	BORLO			;LOAD DATA PATTERN
   878	000414	0 002171 0 1 0 171 		GOSUB	SETDAT			;GO SETUP PRINT DATA
   879	000415	0 177631 7 7 3 11 11 
   880	000416	0 002177 0 1 0 177 		GOSUB	RDBRP0			;READ "BOR P0"
   881	000417	0 177631 7 7 3 11 11 
   882	000420	0 104422 4 2 0422 		JMPB0	.+2			;JUMP IF SET, SHOULDN'T BE
   883	000421	0 100423 4 0 0423 		JMP	.+2			;ELSE, OKAY
   884						ERROR	PARLP1,<"BOR P0" SET WITH "EVEN PAR" CLEARED AND BORLO
   885	000422	0 116104 4 7 0104 	LOADED WITH EVEN PARITY DATA>,,PNT
   886
   887						ERLOOP	PARLP1			^SALL
   888	000423	0 002200 0 1 0 200 
   889	000424	0 116141 4 7 0141 
   890	000425	0 114413 4 6 0413 
   891	000426	0 002202 0 1 0 202 		GOSUB	RDB0OD			;READ "BUS0 ODD PAR"
   892	000427	0 177631 7 7 3 11 11 
   893	000430	0 104432 4 2 0432 		JMPB0	.+2			;JUMP IF SET, SHOULD BE
   894						ERROR	PARLP1,"BUS0 ODD PAR" DID NOT SET,^_
   895	000431	0 116104 4 7 0104 	DIAG LOOPED EVEN PARITY BORLO DATA INTO CBI BITS WITH "BOR P0" CLEARED,PNT
   896
   897						ERLOOP	PARLP1			^SALL
   898	000432	0 002201 0 1 0 201 
   899	000433	0 116141 4 7 0141 
   900	000434	0 114413 4 6 0413 
   901	000435	0 073427 3 5 3 01 07 		DECR	AC1,I			;DEC LOOP CNT AND INC PATTERN ADDR.
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 3-1
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

   902	000436	0 114440 4 6 0440 		JMPZ	.+2			;JUMP IF DONE
   903	000437	0 100413 4 0 0413 		JMP	PARLP1			;ELSE, CONTINUE
   904
   905					;*SET "EVEN PAR".
   906					;*LOAD BORLO WITH AN EVEN PARITY DATA PATTERN.
   907					;*CHECK THAT "BOR P0" IS SET.
   908					;*CHECK THAT "BUS0 ODD PAR" IS NOT SET.
   909					;*REPEAT FOR 4 DIFFERENT PATTERNS.
   910
   911	000440	0 002004 0 1 0 004 		LDBR	LOOPEN			;SET "EVEN PAR"
   912	000441	0 064031 3 2 0 01 11 		MOVB	CSR1
   913	000442	0 002003 0 1 0 003 		LDBR	3			;SET LOOP CNT MINUS 1
   914	000443	0 072031 3 5 0 01 11 		MOVB	AC1
   915	000444	0 001137 0 0 2 137 		LDMAR	OPATS			;SET MAR TO DATA PATTERN ADDR.
   916	000445	0 044231 2 2 0 11 11 	PARLP2:	MOVMEM	BORLO			;LOAD DATA PATTERN
   917	000446	0 002171 0 1 0 171 		GOSUB	SETDAT			;GO SETUP PRINT DATA
   918	000447	0 177631 7 7 3 11 11 
   919	000450	0 002177 0 1 0 177 		GOSUB	RDBRP0			;READ "BOR P0"
   920	000451	0 177631 7 7 3 11 11 
   921	000452	0 104454 4 2 0454 		JMPB0	.+2			;JUMP IF SET,SHOULD BE
   922						ERROR	PARLP2,<"BOR P0" DIDN'T SET WITH "EVEN PAR" SET AND BORLO
   923	000453	0 116104 4 7 0104 	LOADED WITH EVEN PARITY DATA>,,PNT
   924
   925						ERLOOP	PARLP2			^SALL
   926	000454	0 002202 0 1 0 202 
   927	000455	0 116141 4 7 0141 
   928	000456	0 114445 4 6 0445 
   929	000457	0 002202 0 1 0 202 		GOSUB	RDB0OD			;READ "BUS0 ODD PAR"
   930	000460	0 177631 7 7 3 11 11 
   931	000461	0 104463 4 2 0463 		JMPB0	.+2			;JUMP IF SET, SHOULDN'T BE
   932	000462	0 100464 4 0 0464 		JMP	.+2			;ELSE, OKAY
   933						ERROR	PARLP2,"BUS0 ODD PAR" SET WHEN IT SHOULDN'T HAVE,^_
   934	000463	0 116104 4 7 0104 	DIAG LOOPED EVEN PARITY BORLO DATA INTO CBI BITS WITH "BOR P0" SET,PNT
   935
   936						ERLOOP	PARLP2			^SALL
   937	000464	0 002203 0 1 0 203 
   938	000465	0 116141 4 7 0141 
   939	000466	0 114445 4 6 0445 
   940	000467	0 073427 3 5 3 01 07 		DECR	AC1,I			;DEC LOOP CNT AND INC PATTERN ADDR.
   941	000470	0 114472 4 6 0472 		JMPZ	.+2			;JUMP IF DONE
   942	000471	0 100445 4 0 0445 		JMP	PARLP2			;ELSE, CONTINUE
   943	000472	0 116222 4 7 0222 		REPEAT	TST
   944	000473	0 114402 4 6 0402 
   945
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 4
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

   946						TEST	178,TEST "BUS0 PE FLAG"
   947					;***********************************************************************
   948					;* MCODE3 * TEST 178 *    TEST "BUS0 PE FLAG"
   949					;***********************************************************************
   950						SALL
   951	000474	0 002262 0 1 0 262 
   952	000475	0 116045 4 7 0045 
   953
   954	000476				TST178:	SALL
   955
   956					;*TEST THAT "BUS0 PE FLAG" IS SET WHEN "BUS0 ODD PAR" IS CLEARED AND
   957					;*	(1) REG 7 IS READ, OR
   958					;*	(2) "CHK BUS IN PAR" IS GENERATED.
   959					;*VERIFY THAT IT STAYS SET AND IS CLEARED ONLY BY A MICROBUS INIT OR
   960					;*WRITING BIT 1 OF REG 0.
   961					;*LOOP ENABLE IS SET FOR THIS TEST.
   962
   963					;*CLEAR "EVEN PAR", THIS CAUSES "BUS0 ODD PAR" TO CLEAR
   964					;*READ REG 7.
   965					;*CHECK THAT "BUS0 PE FLAG" IS SET.
   966
   967	000476	0 002002 0 1 0 002 		LDBR	CLRFLG			;CLEAR FLAGS
   968	000477	0 064011 3 2 0 00 11 		MOVB	CSR0
   969	000500	0 002004 0 1 0 004 		LDBR	LOOPEN			;SET LOOP ENABLE
   970	000501	0 064031 3 2 0 01 11 		MOVB	CSR1
   971	000502	0 020007 1 0 0 00 07 		DATI	CBILO			;READ REG 7
   972	000503	0 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
   973	000504	0 022000 1 1 0 00 00 		DATI	CSR0,BR			;READ "BUS0 PE FLAG"
   974	000505	0 014000 0 6 0 000 		SHR				;RIGHT ADJUST IT
   975	000506	0 104510 4 2 0510 		JMPB0	.+2			;JUMP IF SET, SHOULD BE
   976						ERROR	TST,"BUS0 PE FLAG" DIDN'T SET,^_
   977	000507	0 116104 4 7 0104 	DIAG CLEARED "BUS0 ODD PAR" THEN READ REG 7
   978
   979						ERLOOP	TST			^SALL
   980	000510	0 002000 0 1 0 000 
   981	000511	0 116141 4 7 0141 
   982	000512	0 114476 4 6 0476 
   983					;*CHECK THAT IT CAUSES AN INTERRUPT.
   984
   985	000513	0 102167 4 1 0167 		JMPI	ZRTN			;JUMP IF INTERRUPT OCCUR
   986	000514	0 114516 4 6 0516 		JMPZ	.+2			;JUMP IF INTERRUPT JUMP TAKEN
   987	000515	0 116104 4 7 0104 		ERROR	TST,"BUS0 PE FLAG" DIDN'T CAUSE AN INTERRUPT
   988
   989						ERLOOP	TST			^SALL
   990	000516	0 002001 0 1 0 001 
   991	000517	0 116141 4 7 0141 
   992	000520	0 114476 4 6 0476 
   993					;*SET "EVEN PAR" TO SET "BUS0 ODD PAR".
   994					;*READ REG 7.
   995					;*CHECK THAT "BUS0 PE FLAG" STAYED SET.
   996
   997	000521	0 002044 0 1 0 044 		LDBR	LOOPEN+EVPAR		;SET "EVEN PAR"
   998	000522	0 064031 3 2 0 01 11 		MOVB	CSR1
   999	000523	0 020007 1 0 0 00 07 		DATI	CBILO			;READ REG 7
  1000	000524	0 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 4-1
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  1001	000525	0 022000 1 1 0 00 00 		DATI	CSR0,BR			;READ "BUS0 PE FLAG"
  1002	000526	0 014000 0 6 0 000 		SHR				;RIGHT ADJUST IT
  1003	000527	0 104531 4 2 0531 		JMPB0	.+2			;JUMP IF IT STAYED SET
  1004						ERROR	TST,"BUS0 PE FLAG" DIDN'T STAY SET,^_
  1005	000530	0 116104 4 7 0104 	DIAG SET "BUS0 PE FLAG" THEN SET "BUS0 ODD PAR" AND READ REG 7
  1006
  1007						ERLOOP	TST			^SALL
  1008	000531	0 002002 0 1 0 002 
  1009	000532	0 116141 4 7 0141 
  1010	000533	0 114476 4 6 0476 
  1011
  1012					;*DO A MICROBUS INIT.
  1013					;*CHECK THAT "BUS0 PE FLAG" CLEARS.
  1014
  1015	000534	0 002115 0 1 0 115 	B0PE1:	GOSUB	INITL			;DO A MICROBUS INIT
  1016	000535	0 177631 7 7 3 11 11 
  1017	000536	0 022000 1 1 0 00 00 		DATI	CSR0,BR			;READ "BUS0 PE FLAG"
  1018	000537	0 014000 0 6 0 000 		SHR				;RIGHT ADJUST IT
  1019	000540	0 104542 4 2 0542 		JMPB0	.+2			;JUMP IF DIDN'T CLEAR
  1020	000541	0 100543 4 0 0543 		JMP	.+2			;ELSE, OKAY.
  1021	000542	0 116104 4 7 0104 		ERROR	TST,"BUS0 PE FLAG" DIDN'T CLEAR AFTER MICROBUS INIT
  1022
  1023						ERLOOP	TST			^SALL
  1024	000543	0 002003 0 1 0 003 
  1025	000544	0 116141 4 7 0141 
  1026	000545	0 114476 4 6 0476 
  1027					;*CLEAR "EVEN PAR" AND "DATA TO DEV".
  1028					;*SET "CHANNEL MODE" AND "HIGH SPEED".
  1029					;*SET "SRV IN" TO GENERATE "CHK BUS IN PAR".
  1030					;*CHECK THAT "BUS0 PE FLAG" IS SET.
  1031
  1032	000546	0 002005 0 1 0 005 	B0PE2:	LDBR	LOOPEN+CHANL		;CLEAR "EVEN PAR" AND SET "CHANNEL MODE"
  1033	000547	0 064031 3 2 0 01 11 		MOVB	CSR1
  1034	000550	0 002105 0 1 0 105 		LDBR	LOOPEN+CHANL+DIHISP	;SET "HIGH SPEED"
  1035	000551	0 064031 3 2 0 01 11 		MOVB	CSR1
  1036	000552	0 002145 0 1 0 145 		GOSUB	DEVRD			;CLEAR "DATA TO DEV"
  1037	000553	0 177631 7 7 3 11 11 
  1038	000554	0 002200 0 1 0 200 		LDBR	SRVINL			;SET AND CLEAR "SRV IN"
  1039	000555	0 064071 3 2 0 03 11 		MOVB	TOR1
  1040	000556	0 002000 0 1 0 000 		LDBR	0
  1041	000557	0 064071 3 2 0 03 11 		MOVB	TOR1
  1042	000560	0 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  1043	000561	0 022000 1 1 0 00 00 		DATI	CSR0,BR			;READ "BUS0 PE FLAG"
  1044	000562	0 014000 0 6 0 000 		SHR				;RIGHT ADJUST IT.
  1045	000563	0 104565 4 2 0565 		JMPB0	.+2			;JUMP IF SET
  1046						ERROR	B0PE1,"BUS0 PE FLAG" DIDN'T SET,^_
  1047	000564	0 116104 4 7 0104 	DIAG CLEARED "BUS0 ODD PAR" THEN SET "DATA REQ" WITH "DATA TO DEVICE" CLEARED
  1048
  1049						ERLOOP	B0PE1			^SALL
  1050	000565	0 002004 0 1 0 004 
  1051	000566	0 116141 4 7 0141 
  1052	000567	0 114534 4 6 0534 
  1053					;*WRITE BIT 1 OF REG 0
  1054					;*CHECK THAT "BUS0 PE FLAG" CLEARS.
  1055
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 4-2
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  1056	000570	0 002002 0 1 0 002 	B0PE3:	LDBR	CLRFLG			;ATTEMPT TO CLEAR "BUS0 PE FLAG"
  1057	000571	0 064011 3 2 0 00 11 		MOVB	CSR0
  1058	000572	0 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  1059	000573	0 022000 1 1 0 00 00 		DATI	CSR0,BR			;READ "BUS0 PE FLAG"
  1060	000574	0 014000 0 6 0 000 		SHR				;RIGHT ADJUST IT
  1061	000575	0 104577 4 2 0577 		JMPB0	.+2			;JUMP IF IT DIDN'T CLEAR
  1062	000576	0 100600 4 0 0600 		JMP	.+2			;ELSE, OKAY
  1063	000577	0 116104 4 7 0104 		ERROR	B0PE2,"BUS0 PE FLAG" DIDN'T CLEAR WHEN BIT 1 OF REG 0 WAS WRITTEN
  1064
  1065						ERLOOP	B0PE2			^SALL
  1066	000600	0 002005 0 1 0 005 
  1067	000601	0 116141 4 7 0141 
  1068	000602	0 114546 4 6 0546 
  1069					;*SET "DATA TO DEVICE" TO INHIBIT "CHK BUS IN PAR".
  1070					;*SET "SRV IN".
  1071					;*CHECK THAT "BUS0 PE FLAG" DOES NOT SET.
  1072
  1073	000603	0 002154 0 1 0 154 		GOSUB	DEVWR			;SET "DATA TO DEV"
  1074	000604	0 177631 7 7 3 11 11 
  1075	000605	0 002200 0 1 0 200 		LDBR	SRVINL			;SET AND CLEAR "SRV IN"
  1076	000606	0 064071 3 2 0 03 11 		MOVB	TOR1
  1077	000607	0 002000 0 1 0 000 		LDBR	0
  1078	000610	0 064071 3 2 0 03 11 		MOVB	TOR1
  1079	000611	0 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  1080	000612	0 022000 1 1 0 00 00 		DATI	CSR0,BR			;READ "BUS0 PE FLAG"
  1081	000613	0 014000 0 6 0 000 		SHR				;RIGHT ADJUST IT.
  1082	000614	0 104616 4 2 0616 		JMPB0	.+2			;JUMP IF SET, SHOULDN'T BE
  1083	000615	0 100617 4 0 0617 		JMP	.+2			;ELSE, OKAY
  1084						ERROR	B0PE3,"CHK BUS IN PAR" SET WITH "DATA TO DEVICE" SET,^_
  1085	000616	0 116104 4 7 0104 	DIAG SET "SRV IN" AND "BUS0 PE FLAG" GOT SET
  1086
  1087						ERLOOP	B0PE3			^SALL
  1088	000617	0 002006 0 1 0 006 
  1089	000620	0 116141 4 7 0141 
  1090	000621	0 114570 4 6 0570 
  1091	000622	0 116222 4 7 0222 		REPEAT	TST
  1092	000623	0 114476 4 6 0476 
  1093
  1094
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 5
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  1095						TEST	179,TEST "DP PE" AND "DP PE FLAG"
  1096					;***********************************************************************
  1097					;* MCODE3 * TEST 179 *    TEST "DP PE" AND "DP PE FLAG"
  1098					;***********************************************************************
  1099						SALL
  1100	000624	0 002263 0 1 0 263 
  1101	000625	0 116045 4 7 0045 
  1102
  1103	000626				TST179:	SALL
  1104
  1105					;*TEST THE "DP PE" PARITY DETECTING NETWORK BY CLOCKING DATA PATTERNS
  1106					;*FROM THE BORLO REG INTO THE DRLO REG AND ONTO THE SLAVE DATA LINES.
  1107					;*ALSO, CHECK THAT "DP PE FLAG" SETS WHEN "DP PE" IS SET AND
  1108					;*"SLVE REQ" IS CLEARED.  VERIFY THAT IT STAYS SET AND IS CLEARED
  1109					;*BY WRITING BIT 1 OF REG 0.
  1110
  1111					;*LOOP ENABLE IS SET FOR THIS TEST.
  1112
  1113					;*CLEAR "DATA TO DEV" AND "EVEN PAR".
  1114					;*SET CHANNEL MODE AND HIGH SPEED.
  1115					;*LOAD ALL 1'S INTO BORLO.
  1116					;*SET "SRV IN" TO GENERATE "CLK DR BYTE 0" PULSE WHICH
  1117					;*CLOCKS CBI (ALL ZERO INCLUDING PARITY) INTO THE DRLO REG.
  1118					;*CHECK THAT "DP PE" IS SET.
  1119
  1120	000626	0 002115 0 1 0 115 		GOSUB	INITL			;DO A MICROBUS INIT
  1121	000627	0 177631 7 7 3 11 11 
  1122	000630	0 010002 0 4 0 002 		LDMEM	2			;SETUP ADDITIONAL PNT ROUTINE NUMBER
  1123	000631	0 002163 0 1 0 163 		GOSUB	SETPNT
  1124	000632	0 177631 7 7 3 11 11 
  1125	000633	0 002145 0 1 0 145 		GOSUB	DEVRD			;CLEAR "DATA TO DEV"
  1126	000634	0 177631 7 7 3 11 11 
  1127	000635	0 002377 0 1 0 377 		LDBR	-1			;LOAD ALL 1'S INTO BORLO, CAUSES
  1128	000636	0 064231 3 2 0 11 11 		MOVB	BORLO			;CBI TO BE ALL ZEROS, INCLUDING PARITY
  1129	000637	0 002005 0 1 0 005 		LDBR	LOOPEN+CHANL		;SET LOOP ENABLE AND CHANNEL MODE
  1130	000640	0 064031 3 2 0 01 11 		MOVB	CSR1
  1131	000641	0 002105 0 1 0 105 		LDBR	LOOPEN+DIHISP+CHANL	;SET "HIGH SPEED"
  1132	000642	0 064031 3 2 0 01 11 		MOVB	CSR1
  1133	000643	0 002200 0 1 0 200 		LDBR	SRVINL			;SET "SRV IN"
  1134	000644	0 064071 3 2 0 03 11 		MOVB	TOR1
  1135	000645	0 002251 0 1 0 251 		GOSUB	RDDPPE			;READ "DP PE"
  1136	000646	0 177631 7 7 3 11 11 
  1137	000647	0 104651 4 2 0651 		JMPB0	.+2			;JUMP IF SET, SHOULD BE
  1138						ERROR	TST,"DP PE" DIDN'T SET,^_
  1139	000650	0 116104 4 7 0104 	DIAG CLOCKED ALL ZEROS (INCLUDING PARITY) INTO DRLO WITH "DATA TO DEV" CLEARED
  1140
  1141						ERLOOP	TST			^SALL
  1142	000651	0 002000 0 1 0 000 
  1143	000652	0 116141 4 7 0141 
  1144	000653	0 114626 4 6 0626 
  1145					;*CLEAR "SLVE REQ".
  1146					;*CHECK THE "DP PE FLAG" SETS
  1147
  1148	000654	0 064111 3 2 0 04 11 		MOVB	CLSLRQ			;CLEAR "SLVE REQ"
  1149	000655	0 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 5-1
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  1150	000656	0 022000 1 1 0 00 00 		DATI	CSR0,BR			;READ "DP PE FLAG"
  1151	000657	0 014000 0 6 0 000 		SHR				;MOVE IT TO BIT 4
  1152	000660	0 106662 4 3 0662 		JMPB4	.+2			;JMP IF SET, SHOULD BE
  1153						ERROR	TST,"DP PE FLAG" DIDN'T SET,^_
  1154	000661	0 116104 4 7 0104 	DIAG SET "DP PE" THEN SET AND CLEARED "SLVE REQ"
  1155
  1156						ERLOOP	TST			^SALL
  1157	000662	0 002001 0 1 0 001 
  1158	000663	0 116141 4 7 0141 
  1159	000664	0 114626 4 6 0626 
  1160					;*CHECK THAT "DP PE FLAG" CAUSED AN INTERRUPT.
  1161
  1162	000665	0 102167 4 1 0167 		JMPI	ZRTN			;JUMP IF INTERRUPT OCCURRED
  1163	000666	0 114670 4 6 0670 		JMPZ	.+2			;JUMP IF INTERRUPT JUMP WAS TAKEN
  1164	000667	0 116104 4 7 0104 		ERROR	TST,"DP PE FLAG" DID NOT CAUSE INTERRUPT
  1165
  1166						ERLOOP	TST			^SALL
  1167	000670	0 002002 0 1 0 002 
  1168	000671	0 116141 4 7 0141 
  1169	000672	0 114626 4 6 0626 
  1170					;*CLEAR "SRV IN".
  1171					;*SET "EVEN PAR".
  1172					;*LOAD BORLO WITH ALL 0'S.
  1173					;*SET "SRV IN" TO GENERATE "CLK DR BYTE 0" PULSE WHICH
  1174					;*CLOCKS CBI (ALL 1'S INCLUDING PARITY) INTO DR REG.
  1175					;*CHECK THAT "DP PE" IS CLEARED.
  1176
  1177	000673	0 002000 0 1 0 000 		LDBR	0			;CLEAR "SRV IN"
  1178	000674	0 064071 3 2 0 03 11 		MOVB	TOR1
  1179	000675	0 002145 0 1 0 145 		LDBR	LOOPEN+DIHISP+CHANL+EVPAR	;SET EV PAR
  1180	000676	0 064031 3 2 0 01 11 		MOVB	CSR1
  1181	000677	0 002000 0 1 0 000 		LDBR	0			;LOAD ALL 0'S INTO BORLO
  1182	000700	0 064231 3 2 0 11 11 		MOVB	BORLO
  1183	000701	0 002200 0 1 0 200 		LDBR	SRVINL			;SET "SRV IN"
  1184	000702	0 064071 3 2 0 03 11 		MOVB	TOR1
  1185	000703	0 002251 0 1 0 251 		GOSUB	RDDPPE			;READ "DP PE"
  1186	000704	0 177631 7 7 3 11 11 
  1187	000705	0 104707 4 2 0707 		JMPB0	.+2			;JUMP IF SET, SHOULDN'T BE
  1188	000706	0 100710 4 0 0710 		JMP	.+2			;ELSE, OKAY
  1189						ERROR	TST,"DP PE" SET WHEN IT SHOULDN'T HAVE,^_
  1190	000707	0 116104 4 7 0104 	DIAG CLOCKED ALL ONES (INCLUDING PARITY) INTO DRLO WITH "DATA TO DEV" CLEARED
  1191
  1192						ERLOOP	TST			^SALL
  1193	000710	0 002003 0 1 0 003 
  1194	000711	0 116141 4 7 0141 
  1195	000712	0 114626 4 6 0626 
  1196					;*CLEAR "SLVE REQ".
  1197					;*CHECK THAT "DP PE FLAG" STAYS SET.
  1198
  1199	000713	0 064111 3 2 0 04 11 		MOVB	CLSLRQ			;CLEAR "SLVE REQ"
  1200	000714	0 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  1201	000715	0 022000 1 1 0 00 00 		DATI	CSR0,BR			;READ "DP PE FLAG"
  1202	000716	0 014000 0 6 0 000 		SHR				;MOVE IT TO BIT 4
  1203	000717	0 106721 4 3 0721 		JMPB4	.+2			;JUMP IF STILL SET
  1204						ERROR	TST,"DP PE FLAG" DIDN'T STAY SET,^_
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 5-2
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  1205	000720	0 116104 4 7 0104 	DIAG SET "DP PE FLAG" THEN CLEARED "DP PE" AND SET AND CLEARED "SLVE REQ"
  1206
  1207						ERLOOP	TST			^SALL
  1208	000721	0 002004 0 1 0 004 
  1209	000722	0 116141 4 7 0141 
  1210	000723	0 114626 4 6 0626 
  1211					;*WRITE BIT 1 OF REG 0.
  1212					;*CHECK THAT "DP PE FLAG" CLEARS.
  1213
  1214
  1215	000724	0 002002 0 1 0 002 		LDBR	CLRFLG			;WRITE BIT 1 OF REG 0
  1216	000725	0 064011 3 2 0 00 11 		MOVB	CSR0
  1217	000726	0 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  1218	000727	0 022000 1 1 0 00 00 		DATI	CSR0,BR			;READ "DP PE FLAG"
  1219	000730	0 014000 0 6 0 000 		SHR				;MOVE IT TO BIT 4
  1220	000731	0 106733 4 3 0733 		JMPB4	.+2			;JUMP IF IT DIDN'T CLEAR
  1221	000732	0 100734 4 0 0734 		JMP	.+2			;ELSE, OKAY
  1222	000733	0 116104 4 7 0104 		ERROR	TST,"DP PE FLAG" DIDN'T CLEAR WHEN BIT 1 OF REG 0 WAS WRITTEN
  1223
  1224						ERLOOP	TST			^SALL
  1225	000734	0 002005 0 1 0 005 
  1226	000735	0 116141 4 7 0141 
  1227	000736	0 114626 4 6 0626 
  1228					;*CLOCK FLOATING ONES AND FLOATING ZEROS PATTERNS INTO DR.
  1229					;*CHECK THAT "DP PE" DOES NOT SET.
  1230
  1231	000737	0 002017 0 1 0 017 		LDBR	^D15			;SET LOOP CNT MINUS 1
  1232	000740	0 072031 3 5 0 01 11 		MOVB	AC1
  1233	000741	0 001003 0 0 2 003 		LDMAR	FLTZ			;SET MAR FOR FLOAT PATTERNS
  1234	000742	0 044231 2 2 0 11 11 	DPPELP:	MOVMEM	BORLO			;LOAD BORLO WITH PATTERN
  1235	000743	0 064151 3 2 0 06 11 		MOVB	CLKDRL			;CLOCK DRLO
  1236	000744	0 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  1237	000745	0 032006 1 5 0 00 06 		DATI	DRLO,AC0		;READ DRLO DATA FOR PRINTOUT
  1238	000746	0 002011 0 1 0 011 		LDBR	11			;SELECT MASSBUS INTERFACE
  1239	000747	0 066371 3 3 0 17 11 		MOVB	IOSEL
  1240	000750	0 062010 3 1 0 00 10 		MOV	AC0,BR			;STORE DRLO DATA
  1241	000751	0 066051 3 3 0 02 11 		MOVB	MPGP12
  1242	000752	0 002033 0 1 0 033 		LDBR	33			;SELECT CHANNEL BUS INTERFACE
  1243	000753	0 066371 3 3 0 17 11 		MOVB	IOSEL
  1244	000754	0 002251 0 1 0 251 		GOSUB	RDDPPE			;READ "DP PE"
  1245	000755	0 177631 7 7 3 11 11 
  1246	000756	0 104760 4 2 0760 		JMPB0	.+2			;JUMP IF SET, SHOULDN'T BE
  1247	000757	0 100761 4 0 0761 		JMP	.+2			;ELSE, OKAY
  1248						ERROR	DPPELP,"DP PE" SET WHEN IT SHOULDN'T HAVE,^_
  1249	000760	0 116104 4 7 0104 	DIAG CLOCKED ODD PARITY DATA INTO DRLO WITH "DATA TO DEV" CLEARED,PNT
  1250
  1251						ERLOOP	DPPELP			^SALL
  1252	000761	0 002206 0 1 0 206 
  1253	000762	0 116141 4 7 0141 
  1254	000763	0 114742 4 6 0742 
  1255	000764	0 073427 3 5 3 01 07 		DECR	AC1,I			;DEC LOOP CNT AND INC PAT ADDR
  1256	000765	0 114767 4 6 0767 		JMPZ	.+2			;JUMP IF DONE
  1257	000766	0 100742 4 0 0742 		JMP	DPPELP			;ELSE, CONTINUE
  1258
  1259	000767	0 002115 0 1 0 115 		GOSUB	INITL
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 5-3
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  1260	000770	0 177631 7 7 3 11 11 
  1261	000771	0 116222 4 7 0222 		REPEAT	TST
  1262	000772	0 114626 4 6 0626 
  1263
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 6
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  1264						TEST	180,TEST WRITING AND READING SP RAM (REG 10)
  1265					;***********************************************************************
  1266					;* MCODE3 * TEST 180 *    TEST WRITING AND READING SP RAM (REG 10)
  1267					;***********************************************************************
  1268						SALL
  1269	000773	0 002264 0 1 0 264 
  1270	000774	0 116045 4 7 0045 
  1271
  1272	000775				TST180:	SALL
  1273
  1274					;*TEST WRITING AND READING EACH SP RAM LOCATION.
  1275					;*WRITE AND READ ONES, ZEROS, FLOATING ZEROS AND FLOATING ONES PATTERNS.
  1276
  1277					;*LOAD THE SP ADDR.
  1278					;*WRITE THE RAM LOCATION WITH THE PATTERN.
  1279					;*RELOAD THE SP ADDR.
  1280					;*READ THE RAM CONTENTS BACK COMPLEMENTED IN REG 7 BY SETTING "SRV IN".
  1281					;*THIS PULSES "DATA REQ" WHICH IN TURN GENERATES "CLK BOR".
  1282					;*LOOP ENABLE, SP ENABLE, AND CHANNEL MODE ARE SET.
  1283
  1284	000775	0 001000 0 0 2 000 		LDMAR	0			;CLEAR MAR
  1285	000776	0 010003 0 4 0 003 		LDMEM	3			;SETUP ADDITIONAL PNT ROUTINE NUMBER
  1286	000777	0 002163 0 1 0 163 		GOSUB	SETPNT
  1287	001000	0 177631 7 7 3 11 11 
  1288	001001	0 002205 0 1 0 205 		LDBR	SPEN+CHANL+LOOPEN	;SET SP EN AND LOOP ENABLE
  1289	001002	0 064031 3 2 0 01 11 		MOVB	CSR1			;AND CHANNEL MODE
  1290	001003	0 002017 0 1 0 017 		LDBR	^D15			;SETUP OUTER LOOP COUNT FOR ADDRESSES
  1291	001004	0 072031 3 5 0 01 11 		MOVB	AC1
  1292	001005	0 002021 0 1 0 021 	NXTLOC:	LDBR	^D17			;SETUP INNER LOOP COUNT FOR PATTERNS
  1293	001006	0 072051 3 5 0 02 11 		MOVB	AC2
  1294	001007	0 001001 0 0 2 001 		LDMAR	PATS			;SET MAR FOR FIRST PATTERN
  1295	001010	0 062030 3 1 0 01 10 	FLT10:	MOV	AC1,BR			;WRITE RAM ADDRESS
  1296	001011	0 064131 3 2 0 05 11 		MOVB	SPADR
  1297	001012	0 002000 0 1 0 000 		LDBR	0			;SETUP COMPLEMENT OF PATTERN IN
  1298	001013	0 072071 3 5 0 03 11 		MOVB	AC3
  1299	001014	0 042072 2 1 0 03 12 		LORCM	AC3,BR			;BR THEN
  1300	001015	0 064211 3 2 0 10 11 		MOVB	SPDALO			;WRITE PATTERN INTO RAM
  1301	001016	0 062030 3 1 0 01 10 		MOV	AC1,BR			;RESTORE SP ADDR
  1302	001017	0 064131 3 2 0 05 11 		MOVB	SPADR
  1303	001020	0 002200 0 1 0 200 		LDBR	SRVINL			;SET "SRV IN".  THIS SETS
  1304	001021	0 064071 3 2 0 03 11 		MOVB	TOR1			;"DATA REQ",WHICH CLOCKS RAM DATA TO BORLO
  1305	001022	0 002000 0 1 0 000 		LDBR	0			;CLEAR "SRV IN"
  1306	001023	0 064071 3 2 0 03 11 		MOVB	TOR1
  1307	001024	0 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  1308	001025	0 032007 1 5 0 00 07 		DATI	CBILO,AC0		;READ COMPLEMENTED RAM DATA FROM REG 10
  1309	001026	0 002011 0 1 0 011 		LDBR	11			;SELECT MASSBUS INTERFACE
  1310	001027	0 066371 3 3 0 17 11 		MOVB	IOSEL
  1311	001030	0 062030 3 1 0 01 10 		MOV	AC1,BR			;PUT RAM ADDR IN BR AND
  1312	001031	0 066051 3 3 0 02 11 		MOVB	MPGP12			;STORE IT FOR PRINTOUT
  1313	001032	0 046111 2 3 0 04 11 		MOVMEM	MPGP14			;STORE CORRECT FOR PRINTOUT
  1314	001033	0 062010 3 1 0 00 10 		MOV	AC0,BR			;PUT ACTUAL IN BR AND
  1315	001034	0 066131 3 3 0 05 11 		MOVB	MPGP15			;STORE IT FOR PRINTOUT
  1316	001035	0 002033 0 1 0 033 		LDBR	33			;SELECT CHANNEL BUS INTERFACE
  1317	001036	0 066371 3 3 0 17 11 		MOVB	IOSEL
  1318	001037	0 040017 2 0 0 00 17 		OSM	AC0			;COMPARE WITH EXPECTED PATTERN
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 6-1
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  1319	001040	0 115042 4 6 1042 		JMPZ	.+2			;JUMP IF CORRECT
  1320	001041	0 116104 4 7 0104 		ERROR	FLT10,DATA PATTERN ERROR,,PNT
  1321
  1322						ERLOOP	FLT10			^SALL
  1323	001042	0 002200 0 1 0 200 
  1324	001043	0 116141 4 7 0141 
  1325	001044	0 115010 4 6 1010 
  1326	001045	0 073447 3 5 3 02 07 		DECR	AC2,I			;DEC LOOP COUNT AND INC PATTERN ADDR
  1327	001046	0 115050 4 6 1050 		JMPZ	.+2			;JUMP IF ALL DONE WITH THIS LOC
  1328	001047	0 101010 4 0 1010 		JMP	FLT10			;ELSE, CONTINUE
  1329	001050	0 072027 3 5 0 01 07 		DECR	AC1			;DEC OUTER LOOP COUNT
  1330	001051	0 115053 4 6 1053 		JMPZ	.+2			;JUMP IF DONE WITH RAM
  1331	001052	0 101005 4 0 1005 		JMP	NXTLOC			;ELSE, CONTINUE WITH NEXT LOC
  1332
  1333	001053	0 116222 4 7 0222 		REPEAT	TST
  1334	001054	0 114775 4 6 0775 
  1335
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 7
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  1336						TEST	181,TEST SP RAM ADDRESSING
  1337					;***********************************************************************
  1338					;* MCODE3 * TEST 181 *    TEST SP RAM ADDRESSING
  1339					;***********************************************************************
  1340						SALL
  1341	001055	0 002265 0 1 0 265 
  1342	001056	0 116045 4 7 0045 
  1343
  1344	001057				TST181:	SALL
  1345
  1346					;*WRITE ZEROS TO A TEST ADDRESS.
  1347					;*WRITE ONES TO A DIFFERENT "OTHER" ADDRESS.
  1348					;*READ BACK THE COMPLEMENTED CONTENTS OF THE TEST ADDRESS AND CHECK THAT
  1349					;*IT IS ALL ONES (ACTUAL CONTENTS STILL ZEROS).
  1350					;*LOOP ENABLE AND "SP EN" ARE SET FOR THIS TEST.
  1351
  1352					;*THE SET OF "TEST" AND "OTHER" ADDRESSES IS (0,1,2,4,10).
  1353
  1354	001057	0 001000 0 0 2 000 		LDMAR	0			;CLEAR MAR
  1355	001060	0 010004 0 4 0 004 		LDMEM	4			;SETUP ADDITIONAL PNT ROUTINE NUMBER
  1356	001061	0 002163 0 1 0 163 		GOSUB	SETPNT
  1357	001062	0 177631 7 7 3 11 11 
  1358	001063	0 002205 0 1 0 205 		LDBR	SPEN+CHANL+LOOPEN	;SET LOOP ENABLE, SP EN AND
  1359	001064	0 064031 3 2 0 01 11 		MOVB	CSR1			;CHAN MODE
  1360	001065	0 002142 0 1 0 142 		LDBR	RAMADR-1		;SET "TEST ADDR" TABLE ADDR - 1
  1361	001066	0 072071 3 5 0 03 11 		MOVB	AC3			;SAVE IT IN AC3
  1362	001067	0 072063 3 5 0 03 03 	RMADRO:	INCR	AC3			;INC "TEST ADDR" ADDR
  1363	001070	0 061070 3 0 2 03 10 		MOV	AC3,MAR			;LET MEMORY POINT TO TEST ADDR
  1364	001071	0 052031 2 5 0 01 11 		MOVMEM	AC1			;GET TEST ADDR
  1365	001072	0 115144 4 6 1144 		JMPZ	RMDONE			;ALL ONES ADDR MARKS END OF TABLE
  1366	001073	0 002143 0 1 0 143 		LDBR	RAMADR			;SETUP "OTHER ADDR" ADDR
  1367	001074	0 072051 3 5 0 02 11 		MOVB	AC2
  1368	001075	0 061050 3 0 2 02 10 	RMADRI:	MOV	AC2,MAR			;LET MEMORY POINT TO OTHER ADDR
  1369	001076	0 040037 2 0 0 01 17 		OSM	AC1			;CHECK IF OTHER ADDR = TEST ADDR
  1370	001077	0 115101 4 6 1101 		JMPZ	.+2			;JUMP IF YES
  1371	001100	0 101102 4 0 1102 		JMP	.+2			;ELSE, DON'T INC ADDR
  1372	001101	0 073443 3 5 3 02 03 		INCR	AC2,I			;INC 'OTHER ADDR' ADDR
  1373	001102	0 040011 2 0 0 00 11 		MOVMEM				;CHECK FOR END OF TABLE
  1374	001103	0 115067 4 6 1067 		JMPZ	RMADRO			;JUMP IF AT END
  1375	001104	0 062030 3 1 0 01 10 		MOV	AC1,BR			;PUT TEST ADDR IN BR
  1376	001105	0 064131 3 2 0 05 11 		MOVB	SPADR			;SET SP ADDR TO TEST ADDR
  1377	001106	0 002000 0 1 0 000 		LDBR	0			;WRITE ZEROS TO TEST ADDR LOC
  1378	001107	0 064211 3 2 0 10 11 		MOVB	SPDALO
  1379	001110	0 044131 2 2 0 05 11 		MOVMEM	SPADR			;SET SP ADDR TO OTHER ADDR
  1380	001111	0 002377 0 1 0 377 		LDBR	-1			;WRITE ONES TO OTHER ADDR
  1381	001112	0 064211 3 2 0 10 11 		MOVB	SPDALO
  1382	001113	0 062030 3 1 0 01 10 		MOV	AC1,BR			;GET TEST ADDR AGAIN
  1383	001114	0 064131 3 2 0 05 11 		MOVB	SPADR			;SET SP ADDR TO TEST ADDR
  1384	001115	0 002200 0 1 0 200 		LDBR	SRVINL			;SET "SRV IN" TO
  1385	001116	0 064071 3 2 0 03 11 		MOVB	TOR1			;READ DATA FROM RAM
  1386	001117	0 002000 0 1 0 000 		LDBR	0			;CLEAR "SRV IN"
  1387	001120	0 064071 3 2 0 03 11 		MOVB	TOR1
  1388	001121	0 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  1389	001122	0 032007 1 5 0 00 07 		DATI	CBILO,AC0		;READ COMPLEMENTED LOOPED BACK RAM DATA
  1390	001123	0 002011 0 1 0 011 		LDBR	11			;SELECT MASSBUS INTERFACE
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 7-1
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  1391	001124	0 066371 3 3 0 17 11 		MOVB	IOSEL
  1392	001125	0 046071 2 3 0 03 11 		MOVMEM	MPGP13			;STORE "OTHER ADDR" FOR PRINTOUT
  1393	001126	0 062030 3 1 0 01 10 		MOV	AC1,BR			;STORE "TEST ADDR" FOR PRINTOUT
  1394	001127	0 066051 3 3 0 02 11 		MOVB	MPGP12
  1395	001130	0 062010 3 1 0 00 10 		MOV	AC0,BR			;STORE CHANGED DATA FOR PRINTOUT
  1396	001131	0 066111 3 3 0 04 11 		MOVB	MPGP14
  1397	001132	0 002033 0 1 0 033 		LDBR	33			;SELECT CHANNEL BUS INTERFACE
  1398	001133	0 066371 3 3 0 17 11 		MOVB	IOSEL
  1399	001134	0 060010 3 0 0 00 10 		MOV	AC0			;TEST FOR ALL ONES DATA
  1400	001135	0 115137 4 6 1137 		JMPZ	.+2			;JUMP IF TEST ADDR UNCHANGED
  1401	001136	0 116104 4 7 0104 		ERROR	RMADRI,SP RAM ADDRESSING ERROR,,PNT
  1402
  1403						ERLOOP	RMADRI			^SALL
  1404	001137	0 002200 0 1 0 200 
  1405	001140	0 116141 4 7 0141 
  1406	001141	0 115075 4 6 1075 
  1407	001142	0 072043 3 5 0 02 03 		INCR	AC2			;INC "OTHER ADDR" ADDR
  1408	001143	0 101075 4 0 1075 		JMP	RMADRI
  1409
  1410	001144	0 116222 4 7 0222 	RMDONE:	REPEAT	TST
  1411	001145	0 115057 4 6 1057 
  1412
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 8
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  1413						TEST	182,TEST "CLK BOR" GENERATION
  1414					;***********************************************************************
  1415					;* MCODE3 * TEST 182 *    TEST "CLK BOR" GENERATION
  1416					;***********************************************************************
  1417						SALL
  1418	001146	0 002266 0 1 0 266 
  1419	001147	0 116045 4 7 0045 
  1420
  1421	001150				TST182:	SALL
  1422
  1423					;*CHECK THAT "CLK BOR" IS NOT GENERATED IF "SP EN" IS CLEARED.
  1424					;*LOOP ENABLE IS SET FOR THIS TEST.
  1425
  1426					;*LOAD ALL ZEROS INTO BORLO
  1427					;*LOAD SP RAM WITH ALL ONES.
  1428					;*SET "SRV IN" TO GENERATE "DATA REQ".
  1429					;*CHECK THAT BORLO STILL CONTAINS ZEROS (USING CBI LOOPING).
  1430
  1431	001150	0 002000 0 1 0 000 		LDBR	0			;LOAD ALL ZEROS INTO BORLO
  1432	001151	0 064031 3 2 0 01 11 		MOVB CSR1			;CLEAR STATUS REG
  1433	001152	0 064231 3 2 0 11 11 		MOVB	BORLO
  1434	001153	0 064131 3 2 0 05 11 		MOVB	SPADR			;SET SP ADDR TO ZERO
  1435	001154	0 010377 0 4 0 377 		LDMEM	-1			;LOAD SP RAM WITH ALL ONES
  1436	001155	0 044211 2 2 0 10 11 		MOVMEM	SPDALO
  1437	001156	0 002005 0 1 0 005 		LDBR	LOOPEN+CHANL		;SET LOOPEN ENABLE AND CHANNEL MODE
  1438	001157	0 064031 3 2 0 01 11 		MOVB	CSR1
  1439	001160	0 002105 0 1 0 105 		LDBR	LOOPEN+CHANL+DIHISP	;SET HIGH SPEED
  1440	001161	0 064031 3 2 0 01 11 		MOVB	CSR1
  1441	001162	0 002200 0 1 0 200 		LDBR	SRVINL			;SET "SRV IN"
  1442	001163	0 064071 3 2 0 03 11 		MOVB	TOR1
  1443	001164	0 002000 0 1 0 000 		LDBR	0			;CLEAR "SRV IN"
  1444	001165	0 064071 3 2 0 03 11 		MOVB	TOR1
  1445	001166	0 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  1446	001167	0 032007 1 5 0 00 07 		DATI	CBILO,AC0		;READ COMPLEMENTED BORLO
  1447	001170	0 040017 2 0 0 00 17 		OSM	AC0			;CHECK IF CHANGED
  1448	001171	0 115173 4 6 1173 		JMPZ	.+2			;JUMP IF NOT
  1449						ERRORM	TST,"CLK BOR" WAS GENERATED WITH "SP EN" CLEARED,^_
  1450	001172	0 116104 4 7 0104 	BORLO CONTENTS CHANGED WHEN DIAG GENERATED "DATA REQ"
  1451
  1452						ERLOOP	TST			^SALL
  1453	001173	0 002100 0 1 0 100 
  1454	001174	0 116145 4 7 0145 
  1455	001175	0 115150 4 6 1150 
  1456	001176	0 116222 4 7 0222 		REPEAT	TST
  1457	001177	0 115150 4 6 1150 
  1458
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 9
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  1459						TEST	183,TEST 370 MODE CONTROL UNIT INITIALIZATION
  1460					;***********************************************************************
  1461					;* MCODE3 * TEST 183 *    TEST 370 MODE CONTROL UNIT INITIALIZATION
  1462					;***********************************************************************
  1463						SALL
  1464	001200	0 002267 0 1 0 267 
  1465	001201	0 116045 4 7 0045 
  1466
  1467	001202				TST183:	SALL
  1468
  1469					;*SIMULATE A 370 MODE CONTROL UNIT INITIALIZATION SEQUENCE WITH
  1470					;*"DATA TO DEVICE" CLEARED.  CHECK THAT THE CORRECT SIGNALS ARE GENERATED
  1471					;*AT THE APPROPRIATE TIMES.
  1472					;*LOOP ENABLE IS SET FOR THIS TEST.
  1473
  1474					;*CLEAR "DATA TO DEVICE".
  1475					;*LOAD THE DR REG 0 WITH ZEROS.
  1476					;*LOAD THE BORLO REG WITH A DIFFERENT PATTERN.
  1477					;*SET HIGH SPEED.
  1478					;*CHECK THAT "CU INIT", "DIS SLVE REQ", "ST DATA REQ", "DATA REQ DLY",
  1479					;*"DR READY", AND "TO DAT OUT" ARE ALL SET.
  1480					;*CHECK THAT "SLVE REQ" IS NOT SET.
  1481
  1482	001202	0 002115 0 1 0 115 		GOSUB	INITL			;DO A MICROBUS INIT
  1483	001203	0 177631 7 7 3 11 11 
  1484	001204	0 002145 0 1 0 145 		GOSUB	DEVRD			;CLEAR "DATA TO DEV"
  1485	001205	0 177631 7 7 3 11 11 
  1486	001206	0 002004 0 1 0 004 		LDBR	LOOPEN			;SET LOOP ENABLE
  1487	001207	0 064031 3 2 0 01 11 		MOVB	CSR1
  1488	001210	0 002104 0 1 0 104 		LDBR	LOOPEN+DIHISP		;SET HIGH SPEED
  1489	001211	0 064031 3 2 0 01 11 		MOVB	CSR1
  1490	001212	0 002137 0 1 0 137 		GOSUB	LOADDR			;LOAD DRLO WITH ZEROS
  1491	001213	0 177631 7 7 3 11 11 
  1492	001214	0 002154 0 1 0 154 		GOSUB	DEVWR			;SET DATA TO DEVICE
  1493	001215	0 177631 7 7 3 11 11 
  1494	001216	0 002260 0 1 0 260 		GOSUB	DPINIT			;DO A DATA PATH INIT
  1495	001217	0 177631 7 7 3 11 11 
  1496	001220	0 002145 0 1 0 145 		GOSUB	DEVRD			;CLEAR DATA TO DEVICE
  1497	001221	0 177631 7 7 3 11 11 
  1498	001222	0 002235 0 1 0 235 		GOSUB	RDCUIN			;GO READ "CU INIT"
  1499	001223	0 177631 7 7 3 11 11 
  1500	001224	0 105226 4 2 1226 		JMPB0	.+2			;JUMP IF IT SET
  1501						ERROR	TST,"CU INIT" DID NOT SET,^_
  1502	001225	0 116104 4 7 0104 	<DIAG CLEARED "CHANNEL MODE", "DATA TO DEV", AND "CU RUN">
  1503
  1504						ERLOOP	TST			^SALL
  1505	001226	0 002000 0 1 0 000 
  1506	001227	0 116141 4 7 0141 
  1507	001230	0 115202 4 6 1202 
  1508	001231	0 002246 0 1 0 246 		GOSUB	RDDSRQ			;GO READ "NOT DIS SLVE REQ"
  1509	001232	0 177631 7 7 3 11 11 
  1510	001233	0 105235 4 2 1235 		JMPB0	.+2			;JUMP IF IT SET
  1511	001234	0 101236 4 0 1236 		JMP	.+2			;ELSE, OKAY
  1512						ERROR	TST,"DIS SLVE REQ" DID NOT SET,^_
  1513	001235	0 116104 4 7 0104 	DIAG CLEARED "CHANNEL MODE" THEN SET "DIAG HIGH SPEED"
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 9-1
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  1514
  1515						ERLOOP	TST			^SALL
  1516	001236	0 002001 0 1 0 001 
  1517	001237	0 116141 4 7 0141 
  1518	001240	0 115202 4 6 1202 
  1519	001241	0 002243 0 1 0 243 		GOSUB	RDSDRQ			;GO READ "ST DATA REQ"
  1520	001242	0 177631 7 7 3 11 11 
  1521	001243	0 105245 4 2 1245 		JMPB0	.+2			;JUMP IF IT SET
  1522						ERROR	TST,"ST DATA REQ" DID NOT SET,^_
  1523	001244	0 116104 4 7 0104 	DIAG CLEARED "CHANNEL MODE" THEN SET "DIAG HIGH SPEED"
  1524
  1525						ERLOOP	TST			^SALL
  1526	001245	0 002002 0 1 0 002 
  1527	001246	0 116141 4 7 0141 
  1528	001247	0 115202 4 6 1202 
  1529	001250	0 002232 0 1 0 232 		GOSUB	RDRDLY			;GO READ "NOT DATA REQ DLY"
  1530	001251	0 177631 7 7 3 11 11 
  1531	001252	0 105254 4 2 1254 		JMPB0	.+2			;JUMP IF IT SET
  1532	001253	0 101255 4 0 1255 		JMP	.+2			;JUMP IF CLEARED
  1533						ERROR	TST,"DATA REQ DLY" DID NOT SET,^_
  1534	001254	0 116104 4 7 0104 	DIAG CLEARED "CHANNEL MODE" THEN SET "DIAG HIGH SPEED"
  1535
  1536						ERLOOP	TST			^SALL
  1537	001255	0 002003 0 1 0 003 
  1538	001256	0 116141 4 7 0141 
  1539	001257	0 115202 4 6 1202 
  1540	001260	0 002224 0 1 0 224 		GOSUB	RDRRDY			;GO READ "DR READY"
  1541	001261	0 177631 7 7 3 11 11 
  1542	001262	0 105264 4 2 1264 		JMPB0	.+2			;JUMP IF IT SET
  1543						ERROR	TST,"DR READY" DID NOT SET,^_
  1544	001263	0 116104 4 7 0104 	DIAG SET "DATA REQ" WITH "DIS SLVE REQ" ASSERTED
  1545
  1546						ERLOOP	TST			^SALL
  1547	001264	0 002004 0 1 0 004 
  1548	001265	0 116141 4 7 0141 
  1549	001266	0 115202 4 6 1202 
  1550	001267	0 002227 0 1 0 227 		GOSUB	RDSLRQ			;GO READ "SLVE REQ"
  1551	001270	0 177631 7 7 3 11 11 
  1552	001271	0 105273 4 2 1273 		JMPB0	.+2			;JUMP IF IT SET,SHOULDN'T HAVE
  1553	001272	0 101274 4 0 1274 		JMP	.+2			;ELSE,OKAY
  1554						ERROR	TST,"SLVE REQ" SET WITH "DIS SLVE REQ" SET,^_
  1555	001273	0 116104 4 7 0104 	DIAG CLEARED "CHANNEL MODE" THEN SET "DIAG HIGH SPEED"
  1556
  1557						ERLOOP	TST			^SALL
  1558	001274	0 002005 0 1 0 005 
  1559	001275	0 116141 4 7 0141 
  1560	001276	0 115202 4 6 1202 
  1561	001277	0 022003 1 1 0 00 03 		DATI	TOR1,BR			;READ "TO DAT OUT"
  1562	001300	0 014000 0 6 0 000 		SHR				;RIGHT ADJUST IT
  1563	001301	0 105303 4 2 1303 		JMPB0	.+2			;JUMP IF IT SET
  1564						ERROR	TST,"TO DAT OUT" DID NOT SET,^_
  1565	001302	0 116104 4 7 0104 	DIAG CLEARED "CHANNEL MODE" THEN SET "DIAG HIGH SPEED"
  1566
  1567						ERLOOP	TST			^SALL
  1568	001303	0 002006 0 1 0 006 
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 9-2
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  1569	001304	0 116141 4 7 0141 
  1570	001305	0 115202 4 6 1202 
  1571					;*SET "DAT IN".
  1572					;*CHECK THAT "CU RUN" AND "SLVE REQ" ARE SET.
  1573					;*CHECK THAT "TO DAT OUT", "CU INIT", "DIS SLVE REQ", AND "DR READY" ARE CLEARED.
  1574					;*ALSO, CHECK THAT THE DR REG 0 GOT CLOCKED ("CLK DR BYTE 0" WAS GENERATED).
  1575
  1576	001306	0 002020 0 1 0 020 		LDBR	DATINL			;SET "DAT IN"
  1577	001307	0 064071 3 2 0 03 11 		MOVB	TOR1
  1578	001310	0 002235 0 1 0 235 		GOSUB	RDCUIN			;GO READ "CU INIT"
  1579	001311	0 177631 7 7 3 11 11 
  1580	001312	0 105314 4 2 1314 		JMPB0	.+2			;JUMP IF IT SET, SHOULDN'T BE
  1581	001313	0 101315 4 0 1315 		JMP	.+2			;ELSE, OKAY
  1582						ERROR	TST,"CU INIT" DID NOT CLEAR,^_
  1583	001314	0 116104 4 7 0104 	DIAG SET "DIAG HIGH SPEED" THEN SET "DAT IN"
  1584
  1585						ERLOOP	TST			^SALL
  1586	001315	0 002007 0 1 0 007 
  1587	001316	0 116141 4 7 0141 
  1588	001317	0 115202 4 6 1202 
  1589	001320	0 032005 1 5 0 00 05 		DATI	SPADR,AC0		;READ "CU RUN"
  1590	001321	0 062005 3 1 0 00 05 		SHL	AC0,BR			;MOVE IT TO BIT 4
  1591	001322	0 107324 4 3 1324 		JMPB4	.+2			;JUMP IF IT SET OKAY
  1592						ERROR	TST,"CU RUN" DID NOT SET,^_
  1593	001323	0 116104 4 7 0104 	DIAG SET "DIAG HIGH SPEED" THEN SET "DAT IN"
  1594
  1595						ERLOOP	TST			^SALL
  1596	001324	0 002010 0 1 0 010 
  1597	001325	0 116141 4 7 0141 
  1598	001326	0 115202 4 6 1202 
  1599	001327	0 002246 0 1 0 246 		GOSUB	RDDSRQ			;GO READ "NOT DIS SLVE REQ"
  1600	001330	0 177631 7 7 3 11 11 
  1601	001331	0 105333 4 2 1333 		JMPB0	.+2			;JUMP IF IT SET,
  1602						ERROR	TST,"DIS SLVE REQ" DID NOT CLEAR,^_
  1603	001332	0 116104 4 7 0104 	DIAG SET "DIS SLVE REQ" THEN SET "CU RUN"
  1604
  1605						ERLOOP	TST			^SALL
  1606	001333	0 002011 0 1 0 011 
  1607	001334	0 116141 4 7 0141 
  1608	001335	0 115202 4 6 1202 
  1609	001336	0 002224 0 1 0 224 		GOSUB	RDRRDY			;GO READ "DR READY"
  1610	001337	0 177631 7 7 3 11 11 
  1611	001340	0 105342 4 2 1342 		JMPB0	.+2			;JUMP IF IT SET, SHOULDN'T BE
  1612	001341	0 101343 4 0 1343 		JMP	.+2			;ELSE, OKAY
  1613						ERROR	TST,"DR READY" DID NOT CLEAR,^_
  1614	001342	0 116104 4 7 0104 	DIAG SET "DIAG HIGH SPEED" THEN SET "DAT IN"
  1615
  1616						ERLOOP	TST			^SALL
  1617	001343	0 002012 0 1 0 012 
  1618	001344	0 116141 4 7 0141 
  1619	001345	0 115202 4 6 1202 
  1620	001346	0 002227 0 1 0 227 		GOSUB	RDSLRQ			;GO READ "SLVE REQ"
  1621	001347	0 177631 7 7 3 11 11 
  1622	001350	0 105352 4 2 1352 		JMPB0	.+2			;JUMP IF IT SET,SHOULD HAVE
  1623						ERROR	TST,"SLVE REQ" DIDN'T SET,^_
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 9-3
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  1624	001351	0 116104 4 7 0104 	DIAG SET "DIAG HIGH SPEED" THEN SET "DAT IN"
  1625
  1626						ERLOOP	TST			^SALL
  1627	001352	0 002013 0 1 0 013 
  1628	001353	0 116141 4 7 0141 
  1629	001354	0 115202 4 6 1202 
  1630	001355	0 022003 1 1 0 00 03 		DATI	TOR1,BR			;READ "TO DAT OUT"
  1631	001356	0 014000 0 6 0 000 		SHR				;RIGHT ADJUST IT
  1632	001357	0 105361 4 2 1361 		JMPB0	.+2			;JUMP IF IT SET, SHOULDN'T BE
  1633	001360	0 101362 4 0 1362 		JMP	.+2			;ELSE, OKAY
  1634						ERROR	TST,"TO DAT OUT" DID NOT CLEAR,^_
  1635	001361	0 116104 4 7 0104 	DIAG SET "DIAG HIGH SPEED" THEN SET "DAT IN"
  1636
  1637						ERLOOP	TST			^SALL
  1638	001362	0 002014 0 1 0 014 
  1639	001363	0 116141 4 7 0141 
  1640	001364	0 115202 4 6 1202 
  1641	001365	0 032006 1 5 0 00 06 		DATI	DRLO,AC0		;READ DR REG 0
  1642	001366	0 115370 4 6 1370 		JMPZ	.+2			;JUMP IF IT GOT CLOCKED
  1643						ERROR	TST,"DRLO" DIDN'T GET CLOCKED,^_
  1644	001367	0 116104 4 7 0104 	DIAG SET "DIAG HIGH SPEED" THEN SET "DAT IN"
  1645
  1646						ERLOOP	TST			^SALL
  1647	001370	0 002015 0 1 0 015 
  1648	001371	0 116141 4 7 0141 
  1649	001372	0 115202 4 6 1202 
  1650					;*CLEAR "DAT IN" AND SET "DIAG SLVE ACK".
  1651					;*CHECK THAT "TO SRV OUT" GETS SET.
  1652
  1653	001373	0 002000 0 1 0 000 		LDBR	0			;CLEAR "DAT IN"
  1654	001374	0 064071 3 2 0 03 11 		MOVB	TOR1
  1655	001375	0 002010 0 1 0 010 		LDBR	DISACK			;SET "DIAG SLVE ACK"
  1656	001376	0 064071 3 2 0 03 11 		MOVB	TOR1
  1657	001377	0 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  1658	001400	0 022003 1 1 0 00 03 		DATI	TOR1,BR			;READ "TO SRV OUT"
  1659	001401	0 105403 4 2 1403 		JMPB0	.+2			;JUMP IF IT SET OKAY
  1660						ERROR	TST,"TO SRV OUT" DID NOT SET,^_
  1661					<DIAG SET "DIAG HIGH SPEED",
  1662					SET AND CLEARED "DAT IN",
  1663	001402	0 116104 4 7 0104 	THEN SET "DIAG SLVE ACK">
  1664
  1665						ERLOOP	TST			^SALL
  1666	001403	0 002016 0 1 0 016 
  1667	001404	0 116141 4 7 0141 
  1668	001405	0 115202 4 6 1202 
  1669					;*SET "SRV IN".
  1670					;*CHECK THAT "TO SRV OUT" IS CLEARED.
  1671
  1672	001406	0 002200 0 1 0 200 		LDBR	SRVINL			;SET "SRV IN"
  1673	001407	0 064071 3 2 0 03 11 		MOVB	TOR1
  1674	001410	0 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  1675	001411	0 022003 1 1 0 00 03 		DATI	TOR1,BR			;READ "TO SRV OUT"
  1676	001412	0 105414 4 2 1414 		JMPB0	.+2			;JUMP IF IT DIDN'T CLEAR
  1677	001413	0 101415 4 0 1415 		JMP	.+2			;ELSE, OKAY
  1678						ERROR	TST,"TO SRV OUT" DID NOT CLEAR,^_
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 9-4
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  1679	001414	0 116104 4 7 0104 	DIAG SET "TO SRV OUT" THEN SET "SRV IN"
  1680
  1681						ERLOOP	TST			^SALL
  1682	001415	0 002017 0 1 0 017 
  1683	001416	0 116141 4 7 0141 
  1684	001417	0 115202 4 6 1202 
  1685					;*CLEAR "SRV IN" AND SET "DIAG SLVE ACK".
  1686					;*CHECK THAT "TO DAT OUT" SETS.
  1687
  1688	001420	0 002000 0 1 0 000 		LDBR	0			;CLEAR "SRV IN"
  1689	001421	0 064071 3 2 0 03 11 		MOVB	TOR1
  1690	001422	0 002010 0 1 0 010 		LDBR	DISACK			;SET "DIAG SLVE ACK"
  1691	001423	0 064071 3 2 0 03 11 		MOVB	TOR1
  1692	001424	0 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  1693	001425	0 022003 1 1 0 00 03 		DATI	TOR1,BR			;READ "TO DAT OUT"
  1694	001426	0 014000 0 6 0 000 		SHR				;RIGHT ADJUST IT
  1695	001427	0 105431 4 2 1431 		JMPB0	.+2			;JUMP IF IT SET OKAY
  1696						ERROR	TST,"TO DAT OUT" DID NOT SET,^_
  1697					<DIAG SET "DIAG HIGH SPEED",
  1698					SET AND CLEARED "DAT IN",
  1699					SET "DIAG SLVE ACK",
  1700					SET AND CLEARED "SRV IN",
  1701	001430	0 116104 4 7 0104 	THEN SET "DIAG SLVE ACK" AGAIN>
  1702
  1703						ERLOOP	TST			^SALL
  1704	001431	0 002020 0 1 0 020 
  1705	001432	0 116141 4 7 0141 
  1706	001433	0 115202 4 6 1202 
  1707	001434	0 116222 4 7 0222 		REPEAT	TST
  1708	001435	0 115202 4 6 1202 
  1709
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 10
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  1710						TEST	184,TEST 360 MODE CONTROL UNIT INITIALIZATION
  1711					;***********************************************************************
  1712					;* MCODE3 * TEST 184 *    TEST 360 MODE CONTROL UNIT INITIALIZATION
  1713					;***********************************************************************
  1714						SALL
  1715	001436	0 002270 0 1 0 270 
  1716	001437	0 116045 4 7 0045 
  1717
  1718	001440				TST184:	SALL
  1719
  1720					;*SIMULATE A 360 MODE CONTROL UNIT INITIALIZATION SEQUENCE WITH
  1721					;*"DATA TO DEVICE" SET.  CHECK THAT THE CORRECT SIGNALS ARE GENERATED
  1722					;*AT THE APPROPRIATE TIMES.
  1723					;*LOOP ENABLE IS SET FOR THIS TEST.
  1724
  1725					;*SET "DATA TO DEVICE".
  1726					;*SET "360 MODE" AND HIGH SPEED.
  1727					;*CHECK THAT "ST DATA REQ" IS SET.
  1728					;*AND THAT "DIS SLVE REQ" IS CLEARED.
  1729
  1730	001440	0 002115 0 1 0 115 		GOSUB	INITL			;DO A MICROBUS INIT
  1731	001441	0 177631 7 7 3 11 11 
  1732	001442	0 002154 0 1 0 154 		GOSUB	DEVWR			;SET "DATA TO DEVICE"
  1733	001443	0 177631 7 7 3 11 11 
  1734	001444	0 002260 0 1 0 260 		GOSUB	DPINIT			;DO A DATA PATH INIT
  1735	001445	0 177631 7 7 3 11 11 
  1736	001446	0 002004 0 1 0 004 		LDBR	LOOPEN			;SET LOOP ENABLE
  1737	001447	0 064031 3 2 0 01 11 		MOVB	CSR1
  1738	001450	0 002114 0 1 0 114 		LDBR	LOOPEN+MOD360+DIHISP	;SET LOOP ENABLE, 360 MODE, AND
  1739	001451	0 064031 3 2 0 01 11 		MOVB	CSR1			;HIGH SPEED
  1740	001452	0 002246 0 1 0 246 		GOSUB	RDDSRQ			;GO READ "NOT DIS SLVE REQ"
  1741	001453	0 177631 7 7 3 11 11 
  1742	001454	0 105456 4 2 1456 		JMPB0	.+2			;JUMP IF IT SET
  1743	001455	0 116104 4 7 0104 		ERROR	TST,"DIS SLVE REQ" SET WITH "DATA TO DEV" SET
  1744
  1745						ERLOOP	TST			^SALL
  1746	001456	0 002000 0 1 0 000 
  1747	001457	0 116141 4 7 0141 
  1748	001460	0 115440 4 6 1440 
  1749	001461	0 002243 0 1 0 243 		GOSUB	RDSDRQ			;GO READ "ST DATA REQ"
  1750	001462	0 177631 7 7 3 11 11 
  1751	001463	0 105465 4 2 1465 		JMPB0	.+2			;JUMP IF IT SET
  1752						ERROR	TST,"ST DATA REQ" DID NOT SET,^_
  1753					<DIAG SET "360 MODE" AND CLEARED "CHANNEL MODE" THEN
  1754	001464	0 116104 4 7 0104 	SET "DIAG HIGH SPEED">
  1755
  1756						ERLOOP	TST			^SALL
  1757	001465	0 002001 0 1 0 001 
  1758	001466	0 116141 4 7 0141 
  1759	001467	0 115440 4 6 1440 
  1760					;*SET "DIAG SLVE ACK".
  1761					;*CHECK THAT "TO SRV OUT" IS SET.
  1762
  1763	001470	0 002010 0 1 0 010 		LDBR	DISACK			;SET "DIAG SLVE ACK"
  1764	001471	0 064071 3 2 0 03 11 		MOVB	TOR1
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 10-1
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  1765	001472	0 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  1766	001473	0 022003 1 1 0 00 03 		DATI	TOR1,BR			;READ "TO SRV OUT"
  1767	001474	0 105476 4 2 1476 		JMPB0	.+2			;JUMP IF IT SET
  1768						ERROR	TST,"TO SRV OUT" DID NOT SET,^_
  1769					<DIAG SET "360 MODE" AND CLEARED "CHANNEL MODE" THEN
  1770	001475	0 116104 4 7 0104 	SET "DIAG HIGH SPEED" AND "DIAG SLVE ACK">
  1771
  1772						ERLOOP	TST			^SALL
  1773	001476	0 002002 0 1 0 002 
  1774	001477	0 116141 4 7 0141 
  1775	001500	0 115440 4 6 1440 
  1776					;*SET AND CLEAR "SRV IN".
  1777					;*SET "DIAG SLVE ACK".
  1778					;*CHECK THAT "TO SRV OUT" IS SET AGAIN.
  1779
  1780	001501	0 002200 0 1 0 200 		LDBR	SRVINL			;SET "SRV IN"
  1781	001502	0 064071 3 2 0 03 11 		MOVB	TOR1
  1782	001503	0 002000 0 1 0 000 		LDBR	0			;CLEAR "SRV IN"
  1783	001504	0 064071 3 2 0 03 11 		MOVB	TOR1
  1784	001505	0 002010 0 1 0 010 		LDBR	DISACK			;SET "DIAG SLVE ACK"
  1785	001506	0 064071 3 2 0 03 11 		MOVB	TOR1
  1786	001507	0 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  1787	001510	0 022003 1 1 0 00 03 		DATI	TOR1,BR			;READ "TO SRV OUT"
  1788	001511	0 105513 4 2 1513 		JMPB0	.+2			;JUMP IF SET
  1789						ERROR	TST,"TO SRV OUT" DID NOT SET A 2ND TIME,^_
  1790					<DIAG SET "DIAG HIGH SPEED",
  1791					SET "DIAG SLVE ACK",
  1792					SET AND CLEARED "SRV IN",
  1793	001512	0 116104 4 7 0104 	THEN SET "DIAG SLVE ACK" AGAIN>
  1794
  1795						ERLOOP	TST			^SALL
  1796	001513	0 002003 0 1 0 003 
  1797	001514	0 116141 4 7 0141 
  1798	001515	0 115440 4 6 1440 
  1799	001516	0 116222 4 7 0222 		REPEAT	TST
  1800	001517	0 115440 4 6 1440 
  1801	001520	0 002000 0 1 0 000 		JUMP	NXTBNK			;JUMP TO NEXT BANK OF CRAM
  1802	001521	0 160231 7 0 0 11 11 
  1803	002000					.LOC	2000
  1804	002000				NXTBNK:
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 11
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  1805						TEST	185,TEST CONTROL UNIT TERMINATION
  1806					;***********************************************************************
  1807					;* MCODE3 * TEST 185 *    TEST CONTROL UNIT TERMINATION
  1808					;***********************************************************************
  1809						SALL
  1810	002000	1 002271 0 1 0 271 
  1811	002001	1 117670 4 7 1670 
  1812
  1813	002002				TST185:	SALL
  1814
  1815					;*SIMULATE A CONTROL UNIT TERMINATION SEQUENCE TO CHECK THAT SETTING
  1816					;*"STA IN" AND "DR READY" CLEARS "CU RUN".
  1817					;*LOOP ENABLE IS SET FOR THIS TEST.
  1818
  1819					;*CLEAR "DATA TO DEVICE".
  1820					;*SET HIGH HIGH SPEED.
  1821					;*SET AND CLEAR "DAT IN" TO SET "CU RUN".
  1822					;*SET "DIAG SLVE ACK" TO SET "DR READY".
  1823					;*SET "STA IN".
  1824					;*CHECK THAT "CU RUN" IS CLEARED.
  1825
  1826	002002	1 117515 4 7 1515 		JMPSUB	INITL			;DO A MICROBUS INIT
  1827	002003	1 117545 4 7 1545 		JMPSUB	DEVRD			;CLEAR "DATA TO DEVICE"
  1828	002004	1 002004 0 1 0 004 		LDBR	LOOPEN			;SET LOOP ENABLE
  1829	002005	1 064031 3 2 0 01 11 		MOVB	CSR1
  1830	002006	1 117554 4 7 1554 		JMPSUB	DEVWR			;SET DATA TO DEVICE
  1831	002007	1 117660 4 7 1660 		JMPSUB	DPINIT			;DO A DATA PATH INIT
  1832	002010	1 117545 4 7 1545 		JMPSUB	DEVRD			;CLEAR DATA TO DEVICE
  1833	002011	1 002104 0 1 0 104 		LDBR	LOOPEN+DIHISP		;SET LOOP ENABLE AND HIGH SPEED
  1834	002012	1 064031 3 2 0 01 11 		MOVB	CSR1
  1835	002013	1 002020 0 1 0 020 		LDBR	DATINL			;SET "DAT IN"
  1836	002014	1 064071 3 2 0 03 11 		MOVB	TOR1
  1837	002015	1 002000 0 1 0 000 		LDBR	0			;CLEAR "DAT IN"
  1838	002016	1 064071 3 2 0 03 11 		MOVB	TOR1
  1839	002017	1 002010 0 1 0 010 		LDBR	DISACK			;SET "DIAG SLVE ACK"
  1840	002020	1 064071 3 2 0 03 11 		MOVB	TOR1
  1841	002021	1 002001 0 1 0 001 		LDBR	STAINL			;SET "STA IN"
  1842	002022	1 064051 3 2 0 02 11 		MOVB	TOR0
  1843	002023	1 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  1844	002024	1 032005 1 5 0 00 05 		DATI	SPADR,AC0		;READ "CU RUN"
  1845	002025	1 062005 3 1 0 00 05 		SHL	AC0,BR			;MOVE IT TO BIT 4
  1846	002026	1 106030 4 3 0030 		JMPB4	.+2			;JUMP IF SET, SHOULDN'T BE
  1847	002027	1 100031 4 0 0031 		JMP	.+2			;ELSE,OKAY
  1848						ERROR	TST,"CU RUN" DID NOT CLEAR,^_
  1849	002030	1 117701 4 7 1701 	DIAG SET "CU RUN" THEN SET "DR READY" AND "STA IN"
  1850
  1851						ERLOOP	TST			^SALL
  1852	002031	1 002000 0 1 0 000 
  1853	002032	1 117673 4 7 1673 
  1854	002033	1 114002 4 6 0002 
  1855					;*PERFORM ANOTHER SEQUENCE TO TEST THAT CLEARING "DATA REQ DLY"
  1856					;*WITH "SLVE END XFER" SET CLEARS "CU RUN" BUT DOES NOT SET "END XFER".
  1857					;*LOOP ENABLE IS SET FOR THIS TEST.
  1858
  1859					;*CLEAR "DATA TO DEVICE".
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 11-1
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  1860					;*SET HIGH SPEED.
  1861					;*SET AND CLEAR "DAT IN".
  1862					;*SET "STA IN" (SETS "SLVE END XFER").
  1863					;*SET "SRV IN" (CLEARS "DATA REQ DLY").
  1864					;*CHECK THAT "CU RUN" AND "END XFER" ARE CLEARED.
  1865
  1866	002034	1 117515 4 7 1515 	CUTRM1:	JMPSUB	INITL			;DO A MICROBUS INIT
  1867	002035	1 117545 4 7 1545 		JMPSUB	DEVRD			;CLEAR "DATA TO DEVICE"
  1868	002036	1 002004 0 1 0 004 		LDBR	LOOPEN			;SET LOOP ENABLE
  1869	002037	1 064031 3 2 0 01 11 		MOVB	CSR1
  1870	002040	1 117554 4 7 1554 		JMPSUB	DEVWR			;SET DATA TO DEVICE
  1871	002041	1 117660 4 7 1660 		JMPSUB	DPINIT			;DO A DATA PATH INIT
  1872	002042	1 117545 4 7 1545 		JMPSUB	DEVRD			;CLEAR DATA TO DEVICE
  1873	002043	1 002104 0 1 0 104 		LDBR	LOOPEN+DIHISP		;SET LOOP ENABLE AND HIGH SPEED
  1874	002044	1 064031 3 2 0 01 11 		MOVB	CSR1
  1875	002045	1 002020 0 1 0 020 		LDBR	DATINL			;SET "DAT IN"
  1876	002046	1 064071 3 2 0 03 11 		MOVB	TOR1
  1877	002047	1 002000 0 1 0 000 		LDBR	0			;CLEAR "DAT IN"
  1878	002050	1 064071 3 2 0 03 11 		MOVB	TOR1
  1879	002051	1 002001 0 1 0 001 		LDBR	STAINL			;SET "STA IN"
  1880	002052	1 064051 3 2 0 02 11 		MOVB	TOR0
  1881	002053	1 002200 0 1 0 200 		LDBR	SRVINL			;SET "SRV IN"
  1882	002054	1 064071 3 2 0 03 11 		MOVB	TOR1
  1883	002055	1 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  1884	002056	1 032005 1 5 0 00 05 		DATI	SPADR,AC0		;READ "CU RUN"
  1885	002057	1 062005 3 1 0 00 05 		SHL	AC0,BR			;MOVE IT TO BIT 4
  1886	002060	1 106062 4 3 0062 		JMPB4	.+2			;JUMP IF SET, SHOULDN'T BE
  1887	002061	1 100063 4 0 0063 		JMP	.+2			;ELSE,OKAY
  1888						ERROR	CUTRM1,"CU RUN" DID NOT CLEAR,^_
  1889					<DIAG SET "CU RUN" THEN SET "SLVE END XFER" AND
  1890	002062	1 117701 4 7 1701 	CLEARED "DATA REQ DLY">
  1891
  1892						ERLOOP	CUTRM1			^SALL
  1893	002063	1 002001 0 1 0 001 
  1894	002064	1 117673 4 7 1673 
  1895	002065	1 114034 4 6 0034 
  1896	002066	1 022000 1 1 0 00 00 		DATI	CSR0,BR			;READ "END XFER"
  1897	002067	1 110071 4 4 0071 		JMPB7	.+2			;JUMP IF SET, SHOULDN'T HAVE
  1898	002070	1 100072 4 0 0072 		JMP	.+2			;ELSE, OKAY
  1899						ERROR	CUTRM1,"END XFER" SET WITH CHAN MODE CLEARED,^_
  1900	002071	1 117701 4 7 1701 	DIAG SET "SLVE END XFER" THEN CLEARED "DATA REQ DLY"
  1901
  1902						ERLOOP	CUTRM1			^SALL
  1903	002072	1 002002 0 1 0 002 
  1904	002073	1 117673 4 7 1673 
  1905	002074	1 114034 4 6 0034 
  1906	002075	1 117703 4 7 1703 		REPEAT	TST
  1907	002076	1 114002 4 6 0002 
  1908
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 12
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  1909						TEST	186,TEST MICROBUS INIT DURING CONTROL UNIT INITIALIZATION
  1910					;***********************************************************************
  1911					;* MCODE3 * TEST 186 *    TEST MICROBUS INIT DURING CONTROL UNIT INITIALIZATION
  1912					;***********************************************************************
  1913						SALL
  1914	002077	1 002272 0 1 0 272 
  1915	002100	1 117670 4 7 1670 
  1916
  1917	002101				TST186:	SALL
  1918
  1919					;*SET "CU INIT" THEN DO A MICROBUS INIT.
  1920					;*CHECK THAT "CU INIT" GETS CLEARED.
  1921
  1922	002101	1 117515 4 7 1515 		JMPSUB	INITL			;DO A MICROBUS INIT
  1923	002102	1 002100 0 1 0 100 	CUINT1:	LDBR	DIHISP			;SET HIGH SPEED
  1924	002103	1 064031 3 2 0 01 11 		MOVB	CSR1
  1925	002104	1 117515 4 7 1515 		JMPSUB	INITL			;DO A MICROBUS INIT
  1926	002105	1 117635 4 7 1635 		JMPSUB	RDCUIN			;GO READ "CU INIT"
  1927	002106	1 104110 4 2 0110 		JMPB0	.+2			;JUMP IF STIIL SET
  1928	002107	1 100111 4 0 0111 		JMP	.+2			;ELSE, OKAY
  1929	002110	1 117701 4 7 1701 		ERROR	CUINT1,"CU INIT" DIDN'T CLEAR AFTER MICROBUS INIT
  1930
  1931						ERLOOP	CUINT1			^SALL
  1932	002111	1 002000 0 1 0 000 
  1933	002112	1 117673 4 7 1673 
  1934	002113	1 114102 4 6 0102 
  1935					;*SET "CU RUN" THEN DO A MICROBUS INIT.
  1936					;*CHECK THAT "CU RUN" CLEARS.
  1937
  1938	002114	1 002104 0 1 0 104 	CUINT2:	LDBR	LOOPEN+DIHISP		;SET LOOP ENABLE AND HIGH SPEED
  1939	002115	1 064031 3 2 0 01 11 		MOVB	CSR1
  1940	002116	1 002020 0 1 0 020 		LDBR	DATINL			;SET "DAT IN"
  1941	002117	1 064071 3 2 0 03 11 		MOVB	TOR1
  1942	002120	1 117515 4 7 1515 		JMPSUB	INITL			;DO A MICROBUS INIT
  1943	002121	1 032005 1 5 0 00 05 		DATI	SPADR,AC0		;READ "CU RUN"
  1944	002122	1 062005 3 1 0 00 05 		SHL	AC0,BR			;MOVE IT TO BIT 4
  1945	002123	1 104125 4 2 0125 		JMPB0	.+2			;JUMP IF STILL SET
  1946	002124	1 100126 4 0 0126 		JMP	.+2			;ELSE, OKAY
  1947	002125	1 117701 4 7 1701 		ERROR	CUINT2,"CU RUN" DIDN'T CLEAR AFTER A MICROBUS INIT
  1948
  1949						ERLOOP	CUINT2			^SALL
  1950	002126	1 002001 0 1 0 001 
  1951	002127	1 117673 4 7 1673 
  1952	002130	1 114114 4 6 0114 
  1953	002131	1 117703 4 7 1703 		REPEAT	TST
  1954	002132	1 114101 4 6 0101 
  1955
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 13
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  1956						TEST	187,TEST "EN SRV/DAT OUT"
  1957					;***********************************************************************
  1958					;* MCODE3 * TEST 187 *    TEST "EN SRV/DAT OUT"
  1959					;***********************************************************************
  1960						SALL
  1961	002133	1 002273 0 1 0 273 
  1962	002134	1 117670 4 7 1670 
  1963
  1964	002135				TST187:	SALL
  1965
  1966					;*TEST THAT "EN SRV/DAT OUT" SETS WHEN AND ONLY WHEN "END XFER" AND
  1967					;*"SUP DAT" ARE CLEARED.  THIS IMPLICITLY TESTS THAT "SUP DAT" SETS
  1968					;*AND CLEARS CORRECTLY.
  1969					;*LOOP ENABLE IS SET FOR THIS TEST.
  1970
  1971					;*DO A MICROBUS INIT.
  1972					;*CHECK THAT "EN SRV/DAT OUT" IS SET.
  1973
  1974	002135	1 117515 4 7 1515 		JMPSUB	INITL			;DO A MICROBUS INIT
  1975	002136	1 117554 4 7 1554 		JMPSUB	DEVWR			;SET DATA TO DEVICE
  1976	002137	1 117660 4 7 1660 		JMPSUB	DPINIT			;DO A DATA PATH INIT
  1977	002140	1 117545 4 7 1545 		JMPSUB	DEVRD			;CLEAR DATA TO DEVICE
  1978	002141	1 117640 4 7 1640 		JMPSUB	RDENSD			;GO READ "EN SRV/DAT OUT"
  1979	002142	1 104144 4 2 0144 		JMPB0	.+2			;JUMP IF SET
  1980	002143	1 117701 4 7 1701 		ERROR	TST,"EN SRV/DAT OUT" DID NOT SET AFTER A MICROBUS INIT
  1981
  1982						ERLOOP	TST			^SALL
  1983	002144	1 002000 0 1 0 000 
  1984	002145	1 117673 4 7 1673 
  1985	002146	1 114135 4 6 0135 
  1986					;*SET HIGH SPEED (SETS "CU INIT").
  1987					;*SET AND CLEAR "DAT IN" (SETS "CU RUN").
  1988					;*SET "DIAG SLVE ACK".
  1989					;*SET "REQ IN".
  1990					;*SET "SRV IN" (SETS "SUP DAT").
  1991					;*CHECK THAT "EN SRV/DAT OUT" CLEARS.
  1992
  1993	002147	1 002004 0 1 0 004 		LDBR	LOOPEN			;SET LOOP ENABLE
  1994	002150	1 064031 3 2 0 01 11 		MOVB	CSR1
  1995	002151	1 002104 0 1 0 104 		LDBR	LOOPEN+DIHISP		;SET LOOP ENABLE AND HIGH SPEED
  1996	002152	1 064031 3 2 0 01 11 		MOVB	CSR1
  1997	002153	1 002020 0 1 0 020 		LDBR	DATINL			;SET "DAT IN"
  1998	002154	1 064071 3 2 0 03 11 		MOVB	TOR1
  1999	002155	1 002010 0 1 0 010 		LDBR	DISACK			;CLEAR "DAT IN" AND SET "DIAG SLVE ACK"
  2000	002156	1 064071 3 2 0 03 11 		MOVB	TOR1
  2001	002157	1 002040 0 1 0 040 		LDBR	REQINL			;SET "REQ IN"
  2002	002160	1 064071 3 2 0 03 11 		MOVB	TOR1
  2003	002161	1 002240 0 1 0 240 		LDBR	REQINL+SRVINL		;SET "SRV IN"
  2004	002162	1 064071 3 2 0 03 11 		MOVB	TOR1
  2005	002163	1 117640 4 7 1640 		JMPSUB	RDENSD			;GO READ "EN SRV/DAT OUT"
  2006	002164	1 104166 4 2 0166 		JMPB0	.+2			;JUMP IF IT DIDN'T CLEAR
  2007	002165	1 100167 4 0 0167 		JMP	.+2			;ELSE, OKAY
  2008						ERROR	TST,"EN SRV/DAT OUT" DIDN'T CLEAR,^_
  2009	002166	1 117701 4 7 1701 	DIAG SET "SUP DAT" BY CLEARING "DATA REQ DLY" WITH "REQ IN" SET
  2010
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 13-1
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  2011						ERLOOP	TST			^SALL
  2012	002167	1 002001 0 1 0 001 
  2013	002170	1 117673 4 7 1673 
  2014	002171	1 114135 4 6 0135 
  2015					;*CLEAR "REQ IN" (CLEARS "SUP DAT").
  2016					;*CHECK THAT "EN SRV/DAT OUT" SETS.
  2017
  2018	002172	1 002200 0 1 0 200 		LDBR	SRVINL			;CLEAR "REQ IN"
  2019	002173	1 064071 3 2 0 03 11 		MOVB	TOR1
  2020	002174	1 117640 4 7 1640 		JMPSUB	RDENSD			;READ "EN SRV/DAT OUT"
  2021	002175	1 104177 4 2 0177 		JMPB0	.+2			;JUMP IF IT SET
  2022						ERROR	TST,"EN SRV/DAT OUT" DIDN'T SET,^_
  2023	002176	1 117701 4 7 1701 	DIAG CLEARED "REQ IN" WITH "END XFER" CLEARED
  2024
  2025						ERLOOP	TST			^SALL
  2026	002177	1 002002 0 1 0 002 
  2027	002200	1 117673 4 7 1673 
  2028	002201	1 114135 4 6 0135 
  2029					;*CHECK THAT CLEARING "CU RUN" CLEARS "SUP DAT" AND SETS "EN SRV/DAT OUT".
  2030					;*SET "SUP DAT".
  2031					;*SET "DR READY" AND "STA IN" (CLEARS "CU RUN").
  2032					;*CHECK THAT "EN SRV/DAT OUT" IS SET.
  2033
  2034	002202	1 117515 4 7 1515 	ESDO1:	JMPSUB	INITL			;DO A MICROBUS INIT
  2035	002203	1 002004 0 1 0 004 		LDBR	LOOPEN			;SET LOOP ENABLE
  2036	002204	1 064031 3 2 0 01 11 		MOVB	CSR1
  2037	002205	1 117554 4 7 1554 		JMPSUB	DEVWR			;SET DATA TO DEVICE
  2038	002206	1 117660 4 7 1660 		JMPSUB	DPINIT			;DO A DATA PATH INIT
  2039	002207	1 117545 4 7 1545 		JMPSUB	DEVRD			;CLEAR DATA TO DEVICE
  2040	002210	1 002104 0 1 0 104 		LDBR	LOOPEN+DIHISP		;SET LOOP ENABLE AND HIGH SPEED
  2041	002211	1 064031 3 2 0 01 11 		MOVB	CSR1
  2042	002212	1 002020 0 1 0 020 		LDBR	DATINL			;SET "DAT IN"
  2043	002213	1 064071 3 2 0 03 11 		MOVB	TOR1
  2044	002214	1 002010 0 1 0 010 		LDBR	DISACK			;CLEAR "DAT IN" AND SET "DIAG SLVE ACK"
  2045	002215	1 064071 3 2 0 03 11 		MOVB	TOR1
  2046	002216	1 002040 0 1 0 040 		LDBR	REQINL			;SET "REQ IN"
  2047	002217	1 064071 3 2 0 03 11 		MOVB	TOR1
  2048	002220	1 002240 0 1 0 240 		LDBR	REQINL+SRVINL		;SET "SRV IN"
  2049	002221	1 064071 3 2 0 03 11 		MOVB	TOR1
  2050	002222	1 002050 0 1 0 050 		LDBR	DISACK+REQINL		;CLEAR "SRV IN" AND SET "DIAG SLVE ACK"
  2051	002223	1 064071 3 2 0 03 11 		MOVB	TOR1
  2052	002224	1 002001 0 1 0 001 		LDBR	STAINL			;SET "STA IN" TO CLEAR "CU RUN"
  2053	002225	1 064051 3 2 0 02 11 		MOVB	TOR0
  2054	002226	1 117640 4 7 1640 		JMPSUB	RDENSD			;READ "EN SRV/DAT OUT"
  2055	002227	1 104231 4 2 0231 		JMPB0	.+2			;JUMP IF SET
  2056						ERROR	ESDO1,"EN SRV/DAT OUT" DIDN'T SET,^_
  2057	002230	1 117701 4 7 1701 	DIAG CLEARED "CU RUN" WITH "END XFER" CLEARED
  2058
  2059						ERLOOP	ESDO1			^SALL
  2060	002231	1 002003 0 1 0 003 
  2061	002232	1 117673 4 7 1673 
  2062	002233	1 114202 4 6 0202 
  2063					;*CHECK THAT "EN SRV/DAT OUT" DOES NOT SET WHEN "END XFER" IS SET.
  2064					;*SET CHANNEL MODE AND HIGH SPEED.
  2065					;*SET "SRV IN".
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 13-2
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  2066					;*SET "STA IN" (SETS "SLVE END XFER").
  2067
  2068					;*CLEAR "SRV IN" (CLEARS "DATA REQ DLY" AND SETS "END XFER").
  2069					;*CHECK THAT "EN SRV/DAT OUT" IS NOT SET.
  2070
  2071	002234	1 117515 4 7 1515 	ESDO2:	JMPSUB	INITL			;DO A MICROBUS INIT
  2072	002235	1 002004 0 1 0 004 		LDBR	LOOPEN			;SET LOOP ENABLE
  2073	002236	1 064031 3 2 0 01 11 		MOVB	CSR1
  2074	002237	1 117554 4 7 1554 		JMPSUB	DEVWR			;SET DATA TO DEVICE
  2075	002240	1 117660 4 7 1660 		JMPSUB	DPINIT			;DO A DATA PATH INIT
  2076	002241	1 117545 4 7 1545 		JMPSUB	DEVRD			;CLEAR DATA TO DEVICE
  2077	002242	1 002005 0 1 0 005 		LDBR	LOOPEN+CHANL		;SET LOOP ENABLE AND CHANNEL MODE
  2078	002243	1 064031 3 2 0 01 11 		MOVB	CSR1
  2079	002244	1 002105 0 1 0 105 		LDBR	LOOPEN+CHANL+DIHISP	;SET HIGH SPEED
  2080	002245	1 064031 3 2 0 01 11 		MOVB	CSR1
  2081	002246	1 002200 0 1 0 200 		LDBR	SRVINL			;SET "SRV IN"
  2082	002247	1 064071 3 2 0 03 11 		MOVB	TOR1
  2083	002250	1 002001 0 1 0 001 		LDBR	STAINL			;SET "STA IN"
  2084	002251	1 064051 3 2 0 02 11 		MOVB	TOR0
  2085	002252	1 002000 0 1 0 000 		LDBR	0			;CLEAR "SRV IN"
  2086	002253	1 064071 3 2 0 03 11 		MOVB	TOR1
  2087	002254	1 117640 4 7 1640 		JMPSUB	RDENSD			;GO READ "EN SRV/DAT OUT"
  2088	002255	1 104257 4 2 0257 		JMPB0	.+2			;JUMP IF SET, SHOULDN'T BE
  2089	002256	1 100260 4 0 0260 		JMP	.+2			;ELSE, OKAY
  2090	002257	1 117701 4 7 1701 		ERROR	ESDO2,"EN SRV/DAT OUT" SET WITH "END XFER" SET
  2091
  2092						ERLOOP	ESDO2			^SALL
  2093	002260	1 002004 0 1 0 004 
  2094	002261	1 117673 4 7 1673 
  2095	002262	1 114234 4 6 0234 
  2096	002263	1 117703 4 7 1703 		REPEAT	TST
  2097	002264	1 114135 4 6 0135 
  2098
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 14
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  2099						TEST	188,TEST "SYS RST"
  2100					;***********************************************************************
  2101					;* MCODE3 * TEST 188 *    TEST "SYS RST"
  2102					;***********************************************************************
  2103						SALL
  2104	002265	1 002274 0 1 0 274 
  2105	002266	1 117670 4 7 1670 
  2106
  2107	002267				TST188:	SALL
  2108
  2109					;*TEST THAT "SYS RST" SETS WHEN AND ONLY WHEN "OPL IN" AND "REQ IN" ARE
  2110					;*CLEARED AND "CU RESET EN" IS SET.  CHECK THAT "SYS RST" CAUSES AN INTERRUPT AND
  2111					;*IS CLEARED BY SETTING CHAN MODE OR CLEARING "CU RESET EN".
  2112					;*LOOP ENABLE IS SET FOR THIS TEST.
  2113
  2114					;* DO A MICROBUS INIT.
  2115					;*SET LOOP ENABLE.
  2116					;*CHECK THAT "SYS RST" IS SET.
  2117
  2118	002267	1 117515 4 7 1515 		JMPSUB	INITL			;DO A MICROBUS INIT
  2119	002270	1 002004 0 1 0 004 	SYRST1:	LDBR	LOOPEN			;SET LOOP ENABLE
  2120	002271	1 064031 3 2 0 01 11 		MOVB	CSR1
  2121	002272	1 002100 0 1 0 100 		LDBR	CURSEN			;SET "CU RESET EN"
  2122	002273	1 064071 3 2 0 03 11 		MOVB	TOR1
  2123	002274	1 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  2124	002275	1 022005 1 1 0 00 05 		DATI	SPADR,BR		;READ "SYS RST"
  2125	002276	1 014000 0 6 0 000 		SHR				;RIGHT ADJUST IT
  2126	002277	1 014000 0 6 0 000 		SHR
  2127	002300	1 104302 4 2 0302 		JMPB0	.+2			;JUMP IF IT SET
  2128	002301	1 117701 4 7 1701 		ERROR	TST,"SYS RST" DID NOT SET WITH "OPL IN" AND "REQ IN" CLEARED
  2129
  2130						ERLOOP	TST			^SALL
  2131	002302	1 002000 0 1 0 000 
  2132	002303	1 117673 4 7 1673 
  2133	002304	1 114267 4 6 0267 
  2134					;*CHECK THAT AN INTERRUPT OCCURRED.
  2135
  2136	002305	1 103514 4 1 1514 		JMPI	ZRTNH			;JUMP IF INTERRUPT PRESENT
  2137	002306	1 114310 4 6 0310 		JMPZ	.+2			;JUMP IF INTERRUPT JUMP WAS TAKEN
  2138	002307	1 117701 4 7 1701 		ERROR	TST,"SYS RST" DID NOT CAUSE AN INTERRUPT
  2139
  2140						ERLOOP	TST			^SALL
  2141	002310	1 002001 0 1 0 001 
  2142	002311	1 117673 4 7 1673 
  2143	002312	1 114267 4 6 0267 
  2144					;*SET CHAN MODE.
  2145					;*SET "OPL IN" AND "REQ IN" TO PREVENT RESETTING.
  2146					;*CLEAR CHAN MODE TO ALLOW READING OF "SYS RST".
  2147					;*CHECK THAT "SYS RST" IS CLEARED.
  2148
  2149	002313	1 002005 0 1 0 005 		LDBR	LOOPEN+CHANL		;SET CHANNEL MODE
  2150	002314	1 064031 3 2 0 01 11 		MOVB	CSR1
  2151	002315	1 002200 0 1 0 200 		LDBR	OPLINL			;SET "OPL IN"
  2152	002316	1 064051 3 2 0 02 11 		MOVB	TOR0
  2153	002317	1 002140 0 1 0 140 		LDBR	REQINL+CURSEN		;SET "REQ IN"
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 14-1
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  2154	002320	1 064071 3 2 0 03 11 		MOVB	TOR1
  2155	002321	1 002004 0 1 0 004 		LDBR	LOOPEN			;CLEAR CHAN MODE
  2156	002322	1 064031 3 2 0 01 11 		MOVB	CSR1
  2157	002323	1 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  2158	002324	1 022005 1 1 0 00 05 		DATI	SPADR,BR		;READ "SYS RST"
  2159	002325	1 014000 0 6 0 000 		SHR				;RIGHT ADJUST IT
  2160	002326	1 014000 0 6 0 000 		SHR
  2161	002327	1 104331 4 2 0331 		JMPB0	.+2			;JUMP IF IT SET
  2162	002330	1 100332 4 0 0332 		JMP	.+2			;ELSE, OKAY
  2163	002331	1 117701 4 7 1701 		ERROR	SYRST1,SETTING "CHAN MODE" DID NOT CLEAR "SYS RST"
  2164
  2165						ERLOOP	SYRST1			^SALL
  2166	002332	1 002002 0 1 0 002 
  2167	002333	1 117673 4 7 1673 
  2168	002334	1 114270 4 6 0270 
  2169					;*SET "SYS RST" AGAIN.
  2170					;*CLEAR "CU RESET EN".
  2171					;*CHECK THAT "SYS RST" IS CLEARED.
  2172
  2173	002335	1 002100 0 1 0 100 	SYRST2:	LDBR	CURSEN			;CLEAR "REQ IN"
  2174	002336	1 064071 3 2 0 03 11 		MOVB	TOR1
  2175	002337	1 002000 0 1 0 000 		LDBR	0			;CLEAR "OPL IN"
  2176	002340	1 064051 3 2 0 02 11 		MOVB	TOR0
  2177	002341	1 002000 0 1 0 000 		LDBR	0			;CLEAR "CU RESET EN"
  2178	002342	1 064071 3 2 0 03 11 		MOVB	TOR1
  2179	002343	1 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  2180	002344	1 022005 1 1 0 00 05 		DATI	SPADR,BR		;READ "SYS RST"
  2181	002345	1 014000 0 6 0 000 		SHR				;RIGHT ADJUST IT
  2182	002346	1 014000 0 6 0 000 		SHR
  2183	002347	1 104351 4 2 0351 		JMPB0	.+2			;JUMP IF IT SET
  2184	002350	1 100352 4 0 0352 		JMP	.+2			;ELSE, OKAY
  2185	002351	1 117701 4 7 1701 		ERROR	SYRST2,CLEARING "CU RESET EN" DIDN'T CLEAR "SYS RST"
  2186
  2187						ERLOOP	SYRST2			^SALL
  2188	002352	1 002003 0 1 0 003 
  2189	002353	1 117673 4 7 1673 
  2190	002354	1 114335 4 6 0335 
  2191					;*CLEAR "REQ IN" AND SET "OPL IN".
  2192					;*SET AND CLEAR "CHANNEL MODE".
  2193					;*CHECK THAT "SYS RST" IS CLEARED.
  2194
  2195	002355	1 002100 0 1 0 100 		LDBR	CURSEN			;CLEAR "REQ IN"
  2196	002356	1 064071 3 2 0 03 11 		MOVB	TOR1
  2197	002357	1 002200 0 1 0 200 		LDBR	OPLINL			;SET "OPL IN"
  2198	002360	1 064051 3 2 0 02 11 		MOVB	TOR0
  2199	002361	1 002005 0 1 0 005 	SYRST3:	LDBR	LOOPEN+CHANL		;SET CHANNEL MODE
  2200	002362	1 064031 3 2 0 01 11 		MOVB	CSR1
  2201	002363	1 002004 0 1 0 004 		LDBR	LOOPEN			;CLEAR CHANNEL MODE
  2202	002364	1 064031 3 2 0 01 11 		MOVB	CSR1
  2203	002365	1 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  2204	002366	1 022005 1 1 0 00 05 		DATI	SPADR,BR		;READ "SYS RST"
  2205	002367	1 014000 0 6 0 000 		SHR				;RIGHT ADJUST IT
  2206	002370	1 014000 0 6 0 000 		SHR
  2207	002371	1 104373 4 2 0373 		JMPB0	.+2			;JUMP IF IT SET
  2208	002372	1 100374 4 0 0374 		JMP	.+2			;ELSE, OKAY
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 14-2
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  2209						ERROR	SYRST3,"SYS RST" SET WITH "OPL IN" SET,^_
  2210	002373	1 117701 4 7 1701 	DIAG SET "OPL IN" THEN SET AND CLEARED "CHANNEL MODE"
  2211
  2212						ERLOOP	SYRST3			^SALL
  2213	002374	1 002004 0 1 0 004 
  2214	002375	1 117673 4 7 1673 
  2215	002376	1 114361 4 6 0361 
  2216					;*CLEAR "OPL IN" AND SET "REQ IN".
  2217					;*SET AND CLEAR CHANNEL MODE.
  2218					;*CHECK THAT "SYS RST" IS CLEARED.
  2219
  2220	002377	1 002000 0 1 0 000 		LDBR	0			;CLEAR	"OPL IN"
  2221	002400	1 064051 3 2 0 02 11 		MOVB	TOR0
  2222	002401	1 002140 0 1 0 140 		LDBR	REQINL+CURSEN		;SET "REQ IN"
  2223	002402	1 064071 3 2 0 03 11 		MOVB	TOR1
  2224	002403	1 002005 0 1 0 005 	SYRST4:	LDBR	LOOPEN+CHANL		;SET CHANNEL MODE
  2225	002404	1 064031 3 2 0 01 11 		MOVB	CSR1
  2226	002405	1 002004 0 1 0 004 		LDBR	LOOPEN			;CLEAR CHANNEL MODE
  2227	002406	1 064031 3 2 0 01 11 		MOVB	CSR1
  2228	002407	1 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  2229	002410	1 022005 1 1 0 00 05 		DATI	SPADR,BR		;READ "SYS RST"
  2230	002411	1 014000 0 6 0 000 		SHR				;RIGHT ADJUST IT
  2231	002412	1 014000 0 6 0 000 		SHR
  2232	002413	1 104415 4 2 0415 		JMPB0	.+2			;JUMP IF IT SET
  2233	002414	1 100416 4 0 0416 		JMP	.+2			;ELSE, OKAY
  2234						ERROR	SYRST4,"SYS RST" SET WITH "REQ IN" SET,^_
  2235	002415	1 117701 4 7 1701 	DIAG SET "REQ IN" THEN SET AND CLEARED "CHANNEL MODE"
  2236
  2237						ERLOOP	SYRST4			^SALL
  2238	002416	1 002005 0 1 0 005 
  2239	002417	1 117673 4 7 1673 
  2240	002420	1 114403 4 6 0403 
  2241	002421	1 117703 4 7 1703 		REPEAT	TST
  2242	002422	1 114267 4 6 0267 
  2243
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 15
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  2244						TEST	189,TEST "SEL RST"
  2245					;***********************************************************************
  2246					;* MCODE3 * TEST 189 *    TEST "SEL RST"
  2247					;***********************************************************************
  2248						SALL
  2249	002423	1 002275 0 1 0 275 
  2250	002424	1 117670 4 7 1670 
  2251
  2252	002425				TST189:	SALL
  2253
  2254					;*TEST THAT "SEL RST" SETS WHEN AND ONLY WHEN "REQ IN" AND
  2255					;*"OPL OUT" ARE SET AND "OPL IN" IS CLEARED.  CHECK THAT "SEL RST" CAUSES
  2256					;*AN INTERRUPT AND IS CLEARED BY DOING A MICROBUS INIT, SETTING CHAN MODE,
  2257					;*OR CLEARING "CU RESET EN".
  2258					;*LOOP ENABLE IS SET FOR THIS TEST.
  2259
  2260					;*DO A MICROBUS INIT.
  2261					;*SET LOOP ENABLE.
  2262					;*SET "OPL OUT" AND "REQ IN" AND "CU RESET EN".
  2263					;*CHECK THAT "SEL RST" IS SET.
  2264
  2265	002425	1 117515 4 7 1515 		JMPSUB	INITL			;DO A MICROBUS INIT
  2266	002426	1 002004 0 1 0 004 	SLRST1:	LDBR	LOOPEN			;SET LOOP ENABLE
  2267	002427	1 064031 3 2 0 01 11 		MOVB	CSR1
  2268	002430	1 002240 0 1 0 240 		LDBR	OPLOUT+REQINL		;SET "OPL OUT" AND "REQ IN"
  2269	002431	1 064071 3 2 0 03 11 		MOVB	TOR1
  2270	002432	1 002340 0 1 0 340 		LDBR	OPLOUT+REQINL+CURSEN	;SET "CU RESET EN"
  2271	002433	1 064071 3 2 0 03 11 		MOVB	TOR1
  2272	002434	1 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  2273	002435	1 022005 1 1 0 00 05 		DATI	SPADR,BR		;READ "SEL RST"
  2274	002436	1 014000 0 6 0 000 		SHR				;RIGHT ADJUST IT
  2275	002437	1 104441 4 2 0441 		JMPB0	.+2			;JUMP IF IT SET
  2276						ERROR	TST,"SEL RST" DID NOT SET,^_
  2277	002440	1 117701 4 7 1701 	DIAG SET "OPL OUT" AND "REQ IN" AND CLEARED "OPL IN"
  2278
  2279						ERLOOP	TST			^SALL
  2280	002441	1 002000 0 1 0 000 
  2281	002442	1 117673 4 7 1673 
  2282	002443	1 114425 4 6 0425 
  2283					;*CHECK THAT AN INTERRUPT OCCURRED.
  2284
  2285	002444	1 103514 4 1 1514 		JMPI	ZRTNH			;JUMP IF INTERRUPT PRESENT
  2286	002445	1 114447 4 6 0447 		JMPZ	.+2			;JUMP IF INTERRUPT JUMP WAS TAKEN
  2287	002446	1 117701 4 7 1701 		ERROR	TST,"SEL RST" DID NOT CAUSE AN INTERRUPT
  2288
  2289						ERLOOP	TST			^SALL
  2290	002447	1 002001 0 1 0 001 
  2291	002450	1 117673 4 7 1673 
  2292	002451	1 114425 4 6 0425 
  2293					;*DO A MICROBUS INIT.
  2294					;*CHECK THAT "SEL RST" IS CLEARED.
  2295
  2296	002452	1 117515 4 7 1515 		JMPSUB	INITL			;DO A MICROBUS INIT
  2297	002453	1 022005 1 1 0 00 05 		DATI	SPADR,BR		;READ "SEL RST"
  2298	002454	1 014000 0 6 0 000 		SHR				;RIGHT ADJUST IT
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 15-1
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  2299	002455	1 104457 4 2 0457 		JMPB0	.+2			;JUMP IF IT SET
  2300	002456	1 100460 4 0 0460 		JMP	.+2			;ELSE, OKAY
  2301	002457	1 117701 4 7 1701 		ERROR	SLRST1,MICROBUS INIT DIDN'T CLEAR "SEL RST"
  2302
  2303						ERLOOP	SLRST1			^SALL
  2304	002460	1 002002 0 1 0 002 
  2305	002461	1 117673 4 7 1673 
  2306	002462	1 114426 4 6 0426 
  2307					;*SET "SEL RST" AGAIN.
  2308					;*SET AND CLEAR CHAN MODE.
  2309					;*CHECK THAT "SEL RST" IS CLEARED.
  2310
  2311	002463	1 002004 0 1 0 004 	SLRST2:	LDBR	LOOPEN			;SET LOOP ENABLE
  2312	002464	1 064031 3 2 0 01 11 		MOVB	CSR1
  2313	002465	1 002340 0 1 0 340 		LDBR	OPLOUT+REQINL+CURSEN	;SET "OPL OUT" AND "REQ IN"
  2314	002466	1 064071 3 2 0 03 11 		MOVB	TOR1
  2315	002467	1 002100 0 1 0 100 		LDBR	CURSEN			;CLEAR "OPL IN" AND "REQ IN"
  2316	002470	1 064071 3 2 0 03 11 		MOVB	TOR1
  2317	002471	1 002005 0 1 0 005 		LDBR	LOOPEN+CHANL		;SET CHANNEL MODE
  2318	002472	1 064031 3 2 0 01 11 		MOVB	CSR1
  2319	002473	1 002004 0 1 0 004 		LDBR	LOOPEN			;CLEAR CHAN MODE
  2320	002474	1 064031 3 2 0 01 11 		MOVB	CSR1
  2321	002475	1 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  2322	002476	1 022005 1 1 0 00 05 		DATI	SPADR,BR		;READ "SEL RST"
  2323	002477	1 014000 0 6 0 000 		SHR				;RIGHT ADJUST IT
  2324	002500	1 104502 4 2 0502 		JMPB0	.+2			;JUMP IF IT SET
  2325	002501	1 100503 4 0 0503 		JMP	.+2			;ELSE, OKAY
  2326	002502	1 117701 4 7 1701 		ERROR	SLRST2,SETTING "CHAN MODE" DIDN'T CLEAR "SEL RST"
  2327
  2328						ERLOOP	SLRST2			^SALL
  2329	002503	1 002003 0 1 0 003 
  2330	002504	1 117673 4 7 1673 
  2331	002505	1 114463 4 6 0463 
  2332					;*SET "SEL RST" AGAIN.
  2333					;*CLEAR "CU RESET EN".
  2334					;*CHECK THAT "SEL RST" IS CLEARED.
  2335
  2336	002506	1 002340 0 1 0 340 	SLRST3:	LDBR	OPLOUT+REQINL+CURSEN	;SET "OPL OUT" AND "REQ IN"
  2337	002507	1 064071 3 2 0 03 11 		MOVB	TOR1
  2338	002510	1 002240 0 1 0 240 		LDBR	OPLOUT+REQINL		;CLEAR "CU RESET EN"
  2339	002511	1 064071 3 2 0 03 11 		MOVB	TOR1
  2340	002512	1 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  2341	002513	1 022005 1 1 0 00 05 		DATI	SPADR,BR		;READ "SEL RST"
  2342	002514	1 014000 0 6 0 000 		SHR				;RIGHT ADJUST IT
  2343	002515	1 104517 4 2 0517 		JMPB0	.+2			;JUMP IF IT SET
  2344	002516	1 100520 4 0 0520 		JMP	.+2			;ELSE, OKAY
  2345	002517	1 117701 4 7 1701 		ERROR	SLRST3,CLEARING "CU RESET EN" DIDN'T CLEAR "SEL RST"
  2346
  2347						ERLOOP	SLRST3			^SALL
  2348	002520	1 002004 0 1 0 004 
  2349	002521	1 117673 4 7 1673 
  2350	002522	1 114506 4 6 0506 
  2351					;*CLEAR "OPL OUT".
  2352					;*SET AND CLEAR CHANNEL MODE.
  2353					;*CHECK THAT "SEL RST" IS CLEARED.
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 15-2
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  2354
  2355	002523	1 002140 0 1 0 140 		LDBR	REQINL+CURSEN		;CLEAR "OPL OUT"
  2356	002524	1 064071 3 2 0 03 11 		MOVB	TOR1
  2357	002525	1 002005 0 1 0 005 	SLRST4:	LDBR	LOOPEN+CHANL		;SET CHANNEL MODE
  2358	002526	1 064031 3 2 0 01 11 		MOVB	CSR1
  2359	002527	1 002004 0 1 0 004 		LDBR	LOOPEN			;CLEAR CHANNEL MODE
  2360	002530	1 064031 3 2 0 01 11 		MOVB	CSR1
  2361	002531	1 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  2362	002532	1 022005 1 1 0 00 05 		DATI	SPADR,BR		;READ "SEL RST"
  2363	002533	1 014000 0 6 0 000 		SHR				;RIGHT ADJUST IT
  2364	002534	1 104536 4 2 0536 		JMPB0	.+2			;JUMP IF IT SET
  2365	002535	1 100537 4 0 0537 		JMP	.+2			;ELSE, OKAY
  2366						ERROR	SLRST4,"SEL RST" SET WHEN IT SHOULDN'T HAVE,^_
  2367	002536	1 117701 4 7 1701 	DIAG CLEARED "OPL OUT" THEN SET AND CLEARED "CHANNEL MODE"
  2368
  2369						ERLOOP	SLRST4			^SALL
  2370	002537	1 002005 0 1 0 005 
  2371	002540	1 117673 4 7 1673 
  2372	002541	1 114525 4 6 0525 
  2373					;*SET "OPL OUT".
  2374					;*CLEAR "REQ IN".
  2375					;*SET AND CLEAR CHANNEL MODE.
  2376					;*CHECK THAT "SEL RST" IS CLEARED.
  2377
  2378	002542	1 002300 0 1 0 300 		LDBR	OPLOUT+CURSEN		;SET "OPL OUT" AND CLEAR "REQ IN"
  2379	002543	1 064071 3 2 0 03 11 		MOVB	TOR1
  2380	002544	1 002005 0 1 0 005 	SLRST5:	LDBR	LOOPEN+CHANL		;SET CHANNEL MODE
  2381	002545	1 064031 3 2 0 01 11 		MOVB	CSR1
  2382	002546	1 002004 0 1 0 004 		LDBR	LOOPEN			;CLEAR CHANNEL MODE
  2383	002547	1 064031 3 2 0 01 11 		MOVB	CSR1
  2384	002550	1 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  2385	002551	1 022005 1 1 0 00 05 		DATI	SPADR,BR		;READ "SEL RST"
  2386	002552	1 014000 0 6 0 000 		SHR				;RIGHT ADJUST IT
  2387	002553	1 104555 4 2 0555 		JMPB0	.+2			;JUMP IF IT SET
  2388	002554	1 100556 4 0 0556 		JMP	.+2			;ELSE, OKAY
  2389						ERROR	SLRST5,"SEL RST" SET WHEN IT SHOULDN'T HAVE,^_
  2390	002555	1 117701 4 7 1701 	DIAG CLEARED "REQ IN" THEN SET AND CLEARED "CHANNEL MODE"
  2391
  2392						ERLOOP	SLRST5			^SALL
  2393	002556	1 002006 0 1 0 006 
  2394	002557	1 117673 4 7 1673 
  2395	002560	1 114544 4 6 0544 
  2396					;*SET "REQ IN".
  2397					;*SET "OPL IN".
  2398					;*SET AND CLEAR CHANNEL MODE.
  2399					;*CHECK THAT "SEL RST" IS CLEARED.
  2400
  2401	002561	1 002340 0 1 0 340 		LDBR	OPLOUT+REQINL+CURSEN	;SET "REQ IN"
  2402	002562	1 064071 3 2 0 03 11 		MOVB	TOR1
  2403	002563	1 002200 0 1 0 200 		LDBR	OPLINL			;SET "OPL IN"
  2404	002564	1 064051 3 2 0 02 11 		MOVB	TOR0
  2405	002565	1 002005 0 1 0 005 	SLRST6:	LDBR	LOOPEN+CHANL		;SET CHANNEL MODE
  2406	002566	1 064031 3 2 0 01 11 		MOVB	CSR1
  2407	002567	1 002004 0 1 0 004 		LDBR	LOOPEN			;CLEAR CHANNEL MODE
  2408	002570	1 064031 3 2 0 01 11 		MOVB	CSR1
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 15-3
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  2409	002571	1 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  2410	002572	1 022005 1 1 0 00 05 		DATI	SPADR,BR		;READ "SEL RST"
  2411	002573	1 014000 0 6 0 000 		SHR				;RIGHT ADJUST IT
  2412	002574	1 104576 4 2 0576 		JMPB0	.+2			;JUMP IF IT SET
  2413	002575	1 100577 4 0 0577 		JMP	.+2			;ELSE, OKAY
  2414						ERROR	SLRST6,"SEL RST" SET WHEN IT SHOULDN'T HAVE,^_
  2415	002576	1 117701 4 7 1701 	DIAG SET "OPL IN" THEN SET AND CLEARED "CHANNEL MODE"
  2416
  2417						ERLOOP	SLRST6			^SALL
  2418	002577	1 002007 0 1 0 007 
  2419	002600	1 117673 4 7 1673 
  2420	002601	1 114565 4 6 0565 
  2421	002602	1 117703 4 7 1703 		REPEAT	TST
  2422	002603	1 114425 4 6 0425 
  2423
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 16
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  2424						TEST	190,TEST "HALT IO"
  2425					;***********************************************************************
  2426					;* MCODE3 * TEST 190 *    TEST "HALT IO"
  2427					;***********************************************************************
  2428						SALL
  2429	002604	1 002276 0 1 0 276 
  2430	002605	1 117670 4 7 1670 
  2431
  2432	002606				TST190:	SALL
  2433
  2434					;*TEST THAT "HALT IO" SETS WHEN AND ONLY WHEN "ADR IN" AND "OPL OUT" ARE
  2435					;*SET, "TO HLD OUT" IS CLEARED, AND "CU RESET EN" IS SET.  CHECK THAT
  2436					;*"HALT IO" CAUSES AN INTERRUPT AND IS CLEARED BY DOING A MICROBUS INIT,
  2437					;*SETTING CHAN MODE, OR CLEARING CU RESET EN.
  2438					;*LOOP ENABLE IS SET FOR THIS TEST.
  2439
  2440					;*DO A MICROBUS INIT.
  2441					;*SET LOOP ENABLE AND "CU RESET EN".
  2442					;*SET "ADR IN" AND "OPL OUT".
  2443					;*CHECK THAT "HALT IO" IS SET.
  2444
  2445	002606	1 117515 4 7 1515 		JMPSUB	INITL			;DO A MICROBUS INIT
  2446	002607	1 002004 0 1 0 004 	HLTIO1:	LDBR	LOOPEN			;SET LOOP ENABLE
  2447	002610	1 064031 3 2 0 01 11 		MOVB	CSR1
  2448	002611	1 002020 0 1 0 020 		LDBR	ADRINL			;SET "ADR IN"
  2449	002612	1 064051 3 2 0 02 11 		MOVB	TOR0
  2450	002613	1 002200 0 1 0 200 		LDBR	OPLOUT			;SET "OPL OUT"
  2451	002614	1 064071 3 2 0 03 11 		MOVB	TOR1
  2452	002615	1 002300 0 1 0 300 		LDBR	OPLOUT+CURSEN		;SET "CU RESET EN"
  2453	002616	1 064071 3 2 0 03 11 		MOVB	TOR1
  2454	002617	1 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  2455	002620	1 022005 1 1 0 00 05 		DATI	SPADR,BR		;READ "HALT IO"
  2456	002621	1 104623 4 2 0623 		JMPB0	.+2			;JUMP IF IT IS SET
  2457						ERROR	TST,"HALT IO" DID NOT SET,^_
  2458	002622	1 117701 4 7 1701 	DIAG SET "ADR IN" AND "OPL OUT" AND CLEARED "TO HLD OUT"
  2459
  2460						ERLOOP	TST			^SALL
  2461	002623	1 002000 0 1 0 000 
  2462	002624	1 117673 4 7 1673 
  2463	002625	1 114606 4 6 0606 
  2464					;*CHECK THAT AN INTERRUPT OCCURRED.
  2465
  2466	002626	1 103514 4 1 1514 		JMPI	ZRTNH			;JUMP IF INTERRUPT PRESENT
  2467	002627	1 114631 4 6 0631 		JMPZ	.+2			;JUMP IF INTERRUPT JUMP WAS TAKEN
  2468	002630	1 117701 4 7 1701 		ERROR	TST,"HALT IO" DID NOT CAUSE AN INTERRUPT
  2469
  2470						ERLOOP	TST			^SALL
  2471	002631	1 002001 0 1 0 001 
  2472	002632	1 117673 4 7 1673 
  2473	002633	1 114606 4 6 0606 
  2474					;*DO A MICROBUS INIT.
  2475					;*CHECK THAT "HALT IO" IS CLEARED.
  2476
  2477	002634	1 117515 4 7 1515 		JMPSUB	INITL			;DO A MICROBUS INIT
  2478	002635	1 022005 1 1 0 00 05 		DATI	SPADR,BR		;READ "HALT IO"
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 16-1
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  2479	002636	1 104640 4 2 0640 		JMPB0	.+2			;JUMP IF IT SET
  2480	002637	1 100641 4 0 0641 		JMP	.+2			;ELSE, OKAY
  2481	002640	1 117701 4 7 1701 		ERROR	HLTIO1,MICROBUS INIT DIDN'T CLEAR "HALT IO"
  2482
  2483						ERLOOP	HLTIO1			^SALL
  2484	002641	1 002002 0 1 0 002 
  2485	002642	1 117673 4 7 1673 
  2486	002643	1 114607 4 6 0607 
  2487					;*SET "HALT IO" AGAIN.
  2488					;*SET AND CLEAR CHAN MODE.
  2489					;*CHECK THAT "HALT IO" IS CLEARED.
  2490
  2491	002644	1 002004 0 1 0 004 	HLTIO2:	LDBR	LOOPEN			;SET LOOP ENABLE
  2492	002645	1 064031 3 2 0 01 11 		MOVB	CSR1
  2493	002646	1 002020 0 1 0 020 		LDBR	ADRINL			;SET "ADR IN"
  2494	002647	1 064051 3 2 0 02 11 		MOVB	TOR0
  2495	002650	1 002300 0 1 0 300 		LDBR	OPLOUT+CURSEN		;SET "OPL OUT"
  2496	002651	1 064071 3 2 0 03 11 		MOVB	TOR1
  2497	002652	1 002000 0 1 0 000 		LDBR	0			;CLEAR "ADR IN"
  2498	002653	1 064051 3 2 0 02 11 		MOVB	TOR0
  2499	002654	1 002005 0 1 0 005 		LDBR	LOOPEN+CHANL		;SET CHANNEL MODE
  2500	002655	1 064031 3 2 0 01 11 		MOVB	CSR1
  2501	002656	1 002004 0 1 0 004 		LDBR	LOOPEN			;CLEAR CHAN MODE
  2502	002657	1 064031 3 2 0 01 11 		MOVB	CSR1
  2503	002660	1 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  2504	002661	1 022005 1 1 0 00 05 		DATI	SPADR,BR		;READ "HALT IO"
  2505	002662	1 014000 0 6 0 000 		SHR				;RIGHT ADJUST IT
  2506	002663	1 104665 4 2 0665 		JMPB0	.+2			;JUMP IF IT SET
  2507	002664	1 100666 4 0 0666 		JMP	.+2			;ELSE, OKAY
  2508	002665	1 117701 4 7 1701 		ERROR	HLTIO2,SETTING "CHAN MODE" DIDN'T CLEAR "HALT IO"
  2509
  2510						ERLOOP	HLTIO2			^SALL
  2511	002666	1 002003 0 1 0 003 
  2512	002667	1 117673 4 7 1673 
  2513	002670	1 114644 4 6 0644 
  2514					;*SET "HALT IO" AGAIN.
  2515					;*CLEAR "CU RESET EN".
  2516					;*CHECK THAT "HALT IO" IS CLEARED.
  2517
  2518	002671	1 002020 0 1 0 020 	HLTIO3:	LDBR	ADRINL			;SET "ADR IN"
  2519	002672	1 064051 3 2 0 02 11 		MOVB	TOR0
  2520	002673	1 002300 0 1 0 300 		LDBR	OPLOUT+CURSEN		;SET "OPL OUT"
  2521	002674	1 064071 3 2 0 03 11 		MOVB	TOR1
  2522	002675	1 002200 0 1 0 200 		LDBR	OPLOUT			;CLEAR "CU RESET EN"
  2523	002676	1 064071 3 2 0 03 11 		MOVB	TOR1
  2524	002677	1 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  2525	002700	1 022005 1 1 0 00 05 		DATI	SPADR,BR		;READ "HALT IO"
  2526	002701	1 014000 0 6 0 000 		SHR				;RIGHT ADJUST IT
  2527	002702	1 104704 4 2 0704 		JMPB0	.+2			;JUMP IF IT SET
  2528	002703	1 100705 4 0 0705 		JMP	.+2			;ELSE, OKAY
  2529	002704	1 117701 4 7 1701 		ERROR	HLTIO3,CLEARING "CU RESET EN" DIDN'T CLEAR "HALT IO"
  2530
  2531						ERLOOP	HLTIO3			^SALL
  2532	002705	1 002004 0 1 0 004 
  2533	002706	1 117673 4 7 1673 
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 16-2
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  2534	002707	1 114671 4 6 0671 
  2535					;*SET "TO HLD OUT".
  2536					;*SET AND CLEAR CHANNEL MODE.
  2537					;*CHECK THAT "HALT IO" IS CLEARED.
  2538
  2539	002710	1 002030 0 1 0 030 	HLTIO4:	LDBR	ADRINL+TOHOUT		;SET "TO HLD OUT"
  2540	002711	1 064051 3 2 0 02 11 		MOVB	TOR0
  2541	002712	1 002005 0 1 0 005 		LDBR	LOOPEN+CHANL		;SET CHANNEL MODE
  2542	002713	1 064031 3 2 0 01 11 		MOVB	CSR1
  2543	002714	1 002004 0 1 0 004 		LDBR	LOOPEN			;CLEAR CHANNEL MODE
  2544	002715	1 064031 3 2 0 01 11 		MOVB	CSR1
  2545	002716	1 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  2546	002717	1 022005 1 1 0 00 05 		DATI	SPADR,BR		;READ "HALT IO"
  2547	002720	1 104722 4 2 0722 		JMPB0	.+2			;JUMP IF IT SET
  2548	002721	1 100723 4 0 0723 		JMP	.+2			;ELSE, OKAY
  2549						ERROR	HLTIO4,"HALT IO" SET WHEN IT SHOULDN'T HAVE,^_
  2550	002722	1 117701 4 7 1701 	DIAG SET "TO HLD OUT" THEN SET AND CLEARED "CHANNEL MODE"
  2551
  2552						ERLOOP	HLTIO4			^SALL
  2553	002723	1 002005 0 1 0 005 
  2554	002724	1 117673 4 7 1673 
  2555	002725	1 114710 4 6 0710 
  2556					;*CLEAR "TO HLD OUT".
  2557					;*CLEAR "ADR IN".
  2558					;*SET AND CLEAR CHANNEL MODE.
  2559					;*CHECK THAT "HALT IO" IS CLEARED.
  2560
  2561	002726	1 002000 0 1 0 000 	HLTIO5:	LDBR	0			;CLEAR "ARD IN" AND "TO HLD OUT"
  2562	002727	1 064051 3 2 0 02 11 		MOVB	TOR0
  2563	002730	1 002005 0 1 0 005 		LDBR	LOOPEN+CHANL		;SET CHANNEL MODE
  2564	002731	1 064031 3 2 0 01 11 		MOVB	CSR1
  2565	002732	1 002004 0 1 0 004 		LDBR	LOOPEN			;CLEAR CHANNEL MODE
  2566	002733	1 064031 3 2 0 01 11 		MOVB	CSR1
  2567	002734	1 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  2568	002735	1 022005 1 1 0 00 05 		DATI	SPADR,BR		;READ "HALT IO"
  2569	002736	1 104740 4 2 0740 		JMPB0	.+2			;JUMP IF IT SET
  2570	002737	1 100741 4 0 0741 		JMP	.+2			;ELSE, OKAY
  2571						ERROR	HLTIO5,"HALT IO" SET WHEN IT SHOULDN'T HAVE,^_
  2572	002740	1 117701 4 7 1701 	DIAG CLEARED "ADR IN" THEN SET AND CLEARED "CHANNEL MODE"
  2573
  2574						ERLOOP	HLTIO5			^SALL
  2575	002741	1 002006 0 1 0 006 
  2576	002742	1 117673 4 7 1673 
  2577	002743	1 114726 4 6 0726 
  2578					;*SET "ADR IN".
  2579					;*CLEAR "OPL OUT".
  2580					;*SET AND CLEAR CHANNEL MODE.
  2581					;*CHECK THAT "HALT IO" IS CLEARED.
  2582
  2583	002744	1 002020 0 1 0 020 		LDBR	ADRINL			;SET "ADR IN"
  2584	002745	1 064051 3 2 0 02 11 		MOVB	TOR0
  2585	002746	1 002100 0 1 0 100 	HLTIO6:	LDBR	CURSEN			;CLEAR "OPL OUT"
  2586	002747	1 064071 3 2 0 03 11 		MOVB	TOR1
  2587	002750	1 002005 0 1 0 005 		LDBR	LOOPEN+CHANL		;SET CHANNEL MODE
  2588	002751	1 064031 3 2 0 01 11 		MOVB	CSR1
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 16-3
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  2589	002752	1 002004 0 1 0 004 		LDBR	LOOPEN			;CLEAR CHANNEL MODE
  2590	002753	1 064031 3 2 0 01 11 		MOVB	CSR1
  2591	002754	1 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  2592	002755	1 022005 1 1 0 00 05 		DATI	SPADR,BR		;READ "HALT IO"
  2593	002756	1 104760 4 2 0760 		JMPB0	.+2			;JUMP IF IT SET
  2594	002757	1 100761 4 0 0761 		JMP	.+2			;ELSE, OKAY
  2595						ERROR	HLTIO6,"HALT IO" SET WHEN IT SHOULDN'T HAVE,^_
  2596	002760	1 117701 4 7 1701 	DIAG CLEARED "OPL OUT" THEN SET AND CLEARED "CHANNEL MODE"
  2597
  2598						ERLOOP	HLTIO6			^SALL
  2599	002761	1 002007 0 1 0 007 
  2600	002762	1 117673 4 7 1673 
  2601	002763	1 114746 4 6 0746 
  2602	002764	1 117703 4 7 1703 		REPEAT	TST
  2603	002765	1 114606 4 6 0606 
  2604
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 17
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  2605						TEST	191,TEST REGISTER 16 (CUSTAT)
  2606					;***********************************************************************
  2607					;* MCODE3 * TEST 191 *    TEST REGISTER 16 (CUSTAT)
  2608					;***********************************************************************
  2609						SALL
  2610	002766	1 002277 0 1 0 277 
  2611	002767	1 117670 4 7 1670 
  2612
  2613	002770				TST191:	SALL
  2614
  2615					;*TEST WRITING AND READING BITS 2-0 OF REG 16.
  2616					;*LOOP ENABLE IS NOT SET FOR THIS TEST.
  2617					;*THE "CHAN MODE" BIT MUST BE CLEAR TO ALLOW READING OF THESE BITS.
  2618					;*"CU RESET EN" IS SET FOR THIS TEST.
  2619					;*SET "OPL IN" TO CLEAR PRESETTING OF "SYS RST".
  2620					;*LOOP ENABLE IS SET FOR THIS TEST.
  2621
  2622					;*WRITE ZEROS TO BITS 2-0.
  2623					;*CHECK THAT BITS 2-0 ARE ZEROS.
  2624
  2625	002770	1 001000 0 0 2 000 		LDMAR	0			;CLEAR MAR
  2626	002771	1 002004 0 1 0 004 		LDBR	LOOPEN			;CLEAR "CHAN MODE"
  2627	002772	1 064031 3 2 0 01 11 		MOVB	CSR1
  2628	002773	1 002100 0 1 0 100 		LDBR	CURSEN			;SET "CU RESET EN"
  2629	002774	1 064071 3 2 0 03 11 		MOVB	TOR1
  2630	002775	1 002200 0 1 0 200 		LDBR	OPLINL			;SET "OPL IN"
  2631	002776	1 064051 3 2 0 02 11 		MOVB	TOR0
  2632	002777	1 010000 0 4 0 000 		LDMEM	0			;WRITE ZEROS INTO BITS 2-0 OF REG 16
  2633	003000	1 044351 2 2 0 16 11 		MOVMEM	CUSTAT
  2634	003001	1 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  2635	003002	1 032005 1 5 0 00 05 		DATI	SPADR,AC0		;READ BACK BITS IN REG 5
  2636	003003	1 002007 0 1 0 007 		LDBR	7			;SETUP BIT MASK FOR THE BITS
  2637	003004	1 072013 3 5 0 00 13 		LANDBR	AC0			;ISOLATE THE BITS
  2638	003005	1 040017 2 0 0 00 17 		OSM	AC0			;CHECK IF ALL ZEROS
  2639	003006	1 115010 4 6 1010 		JMPZ	.+2			;JUMP IF ALL ZEROS
  2640	003007	1 117701 4 7 1701 		ERRORM	TST,CAN NOT WRITE ALL ZEROS TO BITS 2-0 OF REG 16
  2641
  2642						ERLOOP	TST			^SALL
  2643	003010	1 002100 0 1 0 100 
  2644	003011	1 117676 4 7 1676 
  2645	003012	1 114770 4 6 0770 
  2646					;*WRITE ONES TO BITS 2-0 OF REG 16.
  2647					;*CHECK THAT BITS 2-0 OF REG 5 ARE ONES.
  2648
  2649	003013	1 010007 0 4 0 007 	REG16A:	LDMEM	7			;SETUP BIT MASK FOR BITS
  2650	003014	1 044351 2 2 0 16 11 		MOVMEM	CUSTAT			;WRITE ONES INTO BITS
  2651	003015	1 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  2652	003016	1 032005 1 5 0 00 05 		DATI	SPADR,AC0		;READ REG 5
  2653	003017	1 052013 2 5 0 00 13 		LANDMR	AC0			;ISOLATE BITS
  2654	003020	1 040017 2 0 0 00 17 		OSM	AC0			;CHECK IF ALL ONES
  2655	003021	1 115023 4 6 1023 		JMPZ	.+2			;JUMP IF ALL ONES
  2656	003022	1 117701 4 7 1701 		ERRORM	REG16A,CAN NOT WRITE ALL ONES TO BITS 2-0 OF REG 16
  2657
  2658						ERLOOP	REG16A			^SALL
  2659	003023	1 002101 0 1 0 101 
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 17-1
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  2660	003024	1 117676 4 7 1676 
  2661	003025	1 115013 4 6 1013 
  2662					;*WRITE FLOATING ZEROS AND FLOATING ONES PATTERNS TO BITS 2-0 OF REG 16.
  2663					;*READ BACK BITS 2-0 OF REG 5 FOR THE PATTERN.
  2664
  2665	003026	1 002005 0 1 0 005 		LDBR	^D5			;SETUP LOOP COUNT MINUS 1
  2666	003027	1 072031 3 5 0 01 11 		MOVB	AC1
  2667	003030	1 001125 0 0 2 125 		LDMAR	FLTZG			;SET MAR TO FIRST PATTERN
  2668	003031	1 044351 2 2 0 16 11 	FLT16:	MOVMEM	CUSTAT			;WRITE PATTERN TO BITS 2-0 OF REG 16
  2669	003032	1 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  2670	003033	1 032005 1 5 0 00 05 		DATI	SPADR,AC0		;READ REG 5
  2671	003034	1 002007 0 1 0 007 		LDBR	7			;SETUP BIT MASK FOR BITS
  2672	003035	1 072013 3 5 0 00 13 		LANDBR	AC0			;ISOLATE BITS
  2673	003036	1 040017 2 0 0 00 17 		OSM	AC0			;CHECK FOR CORRECT PATTERN
  2674	003037	1 115041 4 6 1041 		JMPZ	.+2			;JUMP IF CORRECT PATTERN
  2675						ERRORM	FLT16,FLOATING ZEROS/ONES FAILED,^_
  2676	003040	1 117701 4 7 1701 	DIAG WROTE BITS 2-0 OF REG 16
  2677
  2678						ERLOOP	FLT16			^SALL
  2679	003041	1 002102 0 1 0 102 
  2680	003042	1 117676 4 7 1676 
  2681	003043	1 115031 4 6 1031 
  2682	003044	1 073427 3 5 3 01 07 		DECR	AC1,I			;DEC LOOP COUNT AND INC MAR
  2683	003045	1 115047 4 6 1047 		JMPZ	.+2			;JUMP IF ALL DONE
  2684	003046	1 101031 4 0 1031 		JMP	FLT16			;ELSE,CONTINUE
  2685
  2686	003047	1 117703 4 7 1703 		REPEAT	TST
  2687	003050	1 114770 4 6 0770 
  2688
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 18
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  2689						TEST	192,TEST CONTROL UNIT SELECT LOGIC
  2690					;***********************************************************************
  2691					;* MCODE3 * TEST 192 *    TEST CONTROL UNIT SELECT LOGIC
  2692					;***********************************************************************
  2693						SALL
  2694	003051	1 002300 0 1 0 300 
  2695	003052	1 117670 4 7 1670 
  2696
  2697	003053				TST192:	SALL
  2698
  2699					;*TEST THAT "SLVE SEL" SETS WHEN AND ONLY WHEN "REC SEL FF" SETS WITH
  2700					;*"SLVE SEL DATA" ASSERTED.  THIS IMPLICITLY TESTS THE PROPER OPERATION
  2701					;*OF "REC SEL FF" AND "SERV REQ" SIGNALS.
  2702					;*ALSO, TEST THAT "SLVE SEL" CLEARS WHEN BIT 0 OF REG 0 IS WRITTEN.
  2703					;*LOOP ENABLE IS SET FOR THIS TEST.
  2704
  2705					;*CLEAR "TO HLD OUT" TO INSURE "TRA SEL FF" CLEARS.
  2706					;*DO A MICROBUS INIT.
  2707					;*SET "SUP OUT", "SEL IN", AND "TO HLD OUT".
  2708					;*CHECK THAT "SLVE SEL" IS SET.
  2709
  2710	003053	1 002000 0 1 0 000 		LDBR	0			;CLEAR "TO HLD OUT"
  2711	003054	1 064051 3 2 0 02 11 		MOVB	TOR0
  2712	003055	1 117515 4 7 1515 		JMPSUB	INITL			;DO A MICROBUS INIT
  2713	003056	1 002004 0 1 0 004 		LDBR	LOOPEN			;SET LOOP ENABLE
  2714	003057	1 064031 3 2 0 01 11 		MOVB	CSR1
  2715	003060	1 002040 0 1 0 040 		LDBR	SUPOUT			;SET "SUP OUT"
  2716	003061	1 064071 3 2 0 03 11 		MOVB	TOR1
  2717	003062	1 002012 0 1 0 012 		LDBR	SELINL+TOHOUT		;SET "TO HLD OUT" AND "SEL IN"
  2718	003063	1 064051 3 2 0 02 11 		MOVB	TOR0
  2719	003064	1 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  2720	003065	1 022000 1 1 0 00 00 		DATI	CSR0,BR			;READ "SLVE SEL"
  2721	003066	1 105070 4 2 1070 		JMPB0	.+2			;JUMP IF SET, SHOULD BE
  2722						ERROR	TST,"SLVE SEL" DID NOT SET,^_
  2723					<DIAG SET "SUP OUT" AND CLEARED "ADR IN" THEN
  2724	003067	1 117701 4 7 1701 	SET "SEL IN" AND "TO HLD OUT">
  2725
  2726						ERLOOP	TST			^SALL
  2727	003070	1 002000 0 1 0 000 
  2728	003071	1 117673 4 7 1673 
  2729	003072	1 115053 4 6 1053 
  2730					;*CLEAR "SLVE SEL".
  2731					;*CHECK THAT "SLVE SEL" IS CLEARED.
  2732
  2733	003073	1 002001 0 1 0 001 	SLVSL2:	LDBR	CSLVSL			;CLEAR "SLVE SEL"
  2734	003074	1 064011 3 2 0 00 11 		MOVB	CSR0
  2735	003075	1 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  2736	003076	1 022000 1 1 0 00 00 		DATI	CSR0,BR			;READ "SLVE SEL"
  2737	003077	1 105101 4 2 1101 		JMPB0	.+2			;JUMP IF SET, SHOULDN'T BE
  2738	003100	1 101102 4 0 1102 		JMP	.+2			;ELSE, OKAY
  2739	003101	1 117701 4 7 1701 		ERROR	TST,"SLVE SEL" DIDN'T CLEAR WHEN BIT 0 OF REG 0 WAS WRITTEN
  2740
  2741						ERLOOP	TST			^SALL
  2742	003102	1 002001 0 1 0 001 
  2743	003103	1 117673 4 7 1673 
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 18-1
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  2744	003104	1 115053 4 6 1053 
  2745					;*CLEAR THEN SET "SEL IN".
  2746					;*CHECK THAT "SLVE SEL" DOES NOT SET (I.E., "REC SEL FF" DIDN'T TOGGLE).
  2747
  2748	003105	1 002010 0 1 0 010 		LDBR	TOHOUT			;CLEAR "SEL IN"
  2749	003106	1 064051 3 2 0 02 11 		MOVB	TOR0
  2750	003107	1 002012 0 1 0 012 		LDBR	TOHOUT+SELINL		;SET "SEL IN"
  2751	003110	1 064051 3 2 0 02 11 		MOVB	TOR0
  2752	003111	1 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  2753	003112	1 022000 1 1 0 00 00 		DATI	CSR0,BR			;READ "SLVE SEL"
  2754	003113	1 105115 4 2 1115 		JMPB0	.+2			;JUMP IF SET, SHOULDN'T BE
  2755	003114	1 101116 4 0 1116 		JMP	.+2			;ELSE, OKAY
  2756						ERROR	SLVSL2,"SLVE SEL" SET WHEN IT SHOULDN'T HAVE,^_
  2757					<DIAG SET "SLVE SEL DATA" AND "REC SEL FF",
  2758					CLEARED "SLVE SEL",
  2759	003115	1 117701 4 7 1701 	THEN CLEARED AND SET "SEL IN">
  2760
  2761						ERLOOP	SLVSL2			^SALL
  2762	003116	1 002002 0 1 0 002 
  2763	003117	1 117673 4 7 1673 
  2764	003120	1 115073 4 6 1073 
  2765					;*CLEAR "SLVE SEL".
  2766					;*CLEAR THEN SET "TO HLD OUT" ("REC SEL FF" SHOULD TOGGLE).
  2767					;*CHECK THAT "SLVE SEL" IS SET.
  2768
  2769	003121	1 002001 0 1 0 001 	SLVSL3:	LDBR	CSLVSL			;CLEAR "SLVE SEL"
  2770	003122	1 064011 3 2 0 00 11 		MOVB	CSR0
  2771	003123	1 002002 0 1 0 002 	SLVSL1:	LDBR	SELINL			;CLEAR "TO HLD OUT"
  2772	003124	1 064051 3 2 0 02 11 		MOVB	TOR0
  2773	003125	1 002012 0 1 0 012 		LDBR	TOHOUT+SELINL		;SET "TO HLD OUT"
  2774	003126	1 064051 3 2 0 02 11 		MOVB	TOR0
  2775	003127	1 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  2776	003130	1 022000 1 1 0 00 00 		DATI	CSR0,BR			;READ "SLVE SEL"
  2777	003131	1 105133 4 2 1133 		JMPB0	.+2			;JUMP IF SET, SHOULD BE
  2778						ERROR	SLVSL3,"SLVE SEL" DID NOT SET,^_
  2779	003132	1 117701 4 7 1701 	DIAG CLEARED "SLVE SEL" THEN TOGGLED "TO HLD OUT"
  2780
  2781						ERLOOP	SLVSL3			^SALL
  2782	003133	1 002003 0 1 0 003 
  2783	003134	1 117673 4 7 1673 
  2784	003135	1 115121 4 6 1121 
  2785					;*CLEAR "TO HLD OUT".
  2786					;*DO A MICROBUS INIT.
  2787					;*CHECK THAT "SLVE SEL" CLEARED.
  2788
  2789	003136	1 002000 0 1 0 000 		LDBR	0			;CLEAR "TO HLD OUT"
  2790	003137	1 064051 3 2 0 02 11 		MOVB	TOR0
  2791	003140	1 117515 4 7 1515 		JMPSUB	INITL			;DO A MICROBUS INIT
  2792	003141	1 022000 1 1 0 00 00 		DATI	CSR0,BR			;READ "SLVE SEL"
  2793	003142	1 105144 4 2 1144 		JMPB0	.+2			;JUMP IF SET, SHOULDN'T BE
  2794	003143	1 101145 4 0 1145 		JMP	.+2			;ELSE, OKAY
  2795	003144	1 117701 4 7 1701 		ERROR	SLVSL1,MICROBUS INIT DIDN'T CLEAR "SLVE SEL"
  2796
  2797						ERLOOP	SLVSL1			^SALL
  2798	003145	1 002004 0 1 0 004 
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 18-2
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  2799	003146	1 117673 4 7 1673 
  2800	003147	1 115123 4 6 1123 
  2801					;*SET "ADR IN", "SUP OUT", AND "SEL IN".
  2802					;*SET "TO HLD OUT" (SETS "REC SEL FF").
  2803					;*CHECK THAT "SLVE SEL" DOES NOT SET.
  2804
  2805	003150	1 002004 0 1 0 004 	SLVSL4:	LDBR	LOOPEN			;SET LOOP ENABLE
  2806	003151	1 064031 3 2 0 01 11 		MOVB	CSR1
  2807	003152	1 002040 0 1 0 040 		LDBR	SUPOUT			;SET "SUP OUT"
  2808	003153	1 064071 3 2 0 03 11 		MOVB	TOR1
  2809	003154	1 002022 0 1 0 022 		LDBR	ADRINL+SELINL		;SET "ADR IN" AND CLEAR "TO HLD OUT"
  2810	003155	1 064051 3 2 0 02 11 		MOVB	TOR0
  2811	003156	1 002032 0 1 0 032 		LDBR	ADRINL+SELINL+TOHOUT	;SET "TO HLD OUT"
  2812	003157	1 064051 3 2 0 02 11 		MOVB	TOR0
  2813	003160	1 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  2814	003161	1 022000 1 1 0 00 00 		DATI	CSR0,BR			;READ "SLVE SEL"
  2815	003162	1 105164 4 2 1164 		JMPB0	.+2			;JUMP IF SET, SHOULDN'T BE
  2816	003163	1 101165 4 0 1165 		JMP	.+2			;ELSE, OKAY
  2817						ERROR	SLVSL4,"SLVE SEL" SET WITH "ADR IN" SET,^_
  2818	003164	1 117701 4 7 1701 	DIAG SET "REC SEL FF"
  2819
  2820						ERLOOP	SLVSL4			^SALL
  2821	003165	1 002005 0 1 0 005 
  2822	003166	1 117673 4 7 1673 
  2823	003167	1 115150 4 6 1150 
  2824					;*CLEAR "ADR IN".
  2825					;*CLEAR "SLVE SEL".
  2826					;*CLEAR "SUP OUT".
  2827					;*CLEAR THEN SET "TO HLD OUT".
  2828					;*CHECK THAT "SLVE SEL" DOESN'T SET.
  2829
  2830	003170	1 002002 0 1 0 002 	SLVSL5:	LDBR	SELINL			;CLEAR "ADR IN" AND "TO HLD OUT"
  2831	003171	1 064051 3 2 0 02 11 		MOVB	TOR0
  2832	003172	1 002001 0 1 0 001 		LDBR	CSLVSL			;CLEAR "SLVE SEL"
  2833	003173	1 064011 3 2 0 00 11 		MOVB	CSR0
  2834	003174	1 002000 0 1 0 000 		LDBR	0			;CLEAR "SUP OUT"
  2835	003175	1 064071 3 2 0 03 11 		MOVB	TOR1
  2836	003176	1 002012 0 1 0 012 		LDBR	SELINL+TOHOUT		;SET "TO HLD OUT"
  2837	003177	1 064051 3 2 0 02 11 		MOVB	TOR0
  2838	003200	1 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  2839	003201	1 022000 1 1 0 00 00 		DATI	CSR0,BR			;READ "SLVE SEL"
  2840	003202	1 105204 4 2 1204 		JMPB0	.+2			;JUMP IF SET, SHOULDN'T BE
  2841	003203	1 101205 4 0 1205 		JMP	.+2			;ELSE, OKAY
  2842						ERROR	SLVSL5,"SLVE SEL" SET WITH "SUP OUT" CLEARED,^_
  2843	003204	1 117701 4 7 1701 	DIAG TOGGLED "REC SEL FF"
  2844
  2845						ERLOOP	SLVSL5			^SALL
  2846	003205	1 002006 0 1 0 006 
  2847	003206	1 117673 4 7 1673 
  2848	003207	1 115170 4 6 1170 
  2849	003210	1 002000 0 1 0 000 		LDBR	0			;CLEAR "TO HLD OUT"
  2850	003211	1 064051 3 2 0 02 11 		MOVB	TOR0
  2851	003212	1 117703 4 7 1703 		REPEAT	TST
  2852	003213	1 115053 4 6 1053 
  2853
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 19
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  2854						TEST	193,TEST "TRA SEL FF"
  2855					;***********************************************************************
  2856					;* MCODE3 * TEST 193 *    TEST "TRA SEL FF"
  2857					;***********************************************************************
  2858						SALL
  2859	003214	1 002301 0 1 0 301 
  2860	003215	1 117670 4 7 1670 
  2861
  2862	003216				TST193:	SALL
  2863
  2864					;*TEST THAT "TRA SEL FF" SETS WHEN AND ONLY WHEN "REC SEL FF" IS SET
  2865					;*AND "SLVE SEL DATA" AND "SLVE SEL"" ARE NEGATED.  ALSO, CHECK THAT
  2866					;*IT CLEARS ONLY WHEN "REC SEL FF" CLEARS.
  2867					;*LOOP ENABLE IS SET FOR THIS TEST.
  2868
  2869					;*CLEAR "TO HLD OUT".
  2870					;*DO A MICROBUS INIT.
  2871					;*SET "SEL IN" AND "TO HLD OUT" (SETS "REC SEL FF").
  2872					;*CHECK THAT "TRA SEL FF" IS SET.
  2873
  2874	003216	1 002000 0 1 0 000 		LDBR	0			;CLEAR "TO HLD OUT"
  2875	003217	1 064051 3 2 0 02 11 		MOVB	TOR0
  2876	003220	1 117515 4 7 1515 		JMPSUB	INITL			;DO A MICROBUS INIT
  2877	003221	1 002004 0 1 0 004 		LDBR	LOOPEN			;SET LOOP ENABLE
  2878	003222	1 064031 3 2 0 01 11 		MOVB	CSR1
  2879	003223	1 002012 0 1 0 012 		LDBR	SELINL+TOHOUT		;SET "SEL IN" AND "TO HLD OUT"
  2880	003224	1 064051 3 2 0 02 11 		MOVB	TOR0
  2881	003225	1 117610 4 7 1610 		JMPSUB	RDTSFF			;GO READ "TRA SEL FF"
  2882	003226	1 105230 4 2 1230 		JMPB0	.+2			;JUMP IF SET
  2883						ERROR	TST,"TRA SEL FF" DID NOT SET,^_
  2884	003227	1 117701 4 7 1701 	DIAG CLEARED "SLVE SEL" AND "SLVE SEL DATA" AND SET "REC SEL FF"
  2885
  2886						ERLOOP	TST			^SALL
  2887	003230	1 002000 0 1 0 000 
  2888	003231	1 117673 4 7 1673 
  2889	003232	1 115216 4 6 1216 
  2890					;*SET "SUP OUT" (ASSERTS "SLVE SEL DATA").
  2891					;*CHECK THAT "TRA SEL FF" IS STILL SET.
  2892
  2893	003233	1 002040 0 1 0 040 		LDBR	SUPOUT			;SET "SUP OUT"
  2894	003234	1 064071 3 2 0 03 11 		MOVB	TOR1
  2895	003235	1 117610 4 7 1610 		JMPSUB	RDTSFF			;GO READ "TRA SEL FF"
  2896	003236	1 105240 4 2 1240 		JMPB0	.+2			;JUMP IF STILL SET
  2897						ERROR	TST,"TRA SEL FF" DID NOT STAY SET,^_
  2898	003237	1 117701 4 7 1701 	DIAG SET "TRA SEL FF" THEN ASSERTED "SLVE SEL DATA"
  2899
  2900						ERLOOP	TST			^SALL
  2901	003240	1 002001 0 1 0 001 
  2902	003241	1 117673 4 7 1673 
  2903	003242	1 115216 4 6 1216 
  2904					;*CLEAR "SUP OUT".
  2905					;*CLEAR "TO HLD OUT" (CLEARS "REC SEL FF").
  2906					;*CHECK THAT "TRA SEL FF" CLEARS.
  2907
  2908	003243	1 002000 0 1 0 000 		LDBR	0			;CLEAR "SUP OUT"
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 19-1
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  2909	003244	1 064071 3 2 0 03 11 		MOVB	TOR1
  2910	003245	1 002002 0 1 0 002 		LDBR	SELINL			;CLEAR "TO HLD OUT"
  2911	003246	1 064051 3 2 0 02 11 		MOVB	TOR0
  2912	003247	1 117610 4 7 1610 		JMPSUB	RDTSFF			;GO READ "TRA SEL FF"
  2913	003250	1 105252 4 2 1252 		JMPB0	.+2			;JUMP IF IT DIDN'T CLEAR
  2914	003251	1 101253 4 0 1253 		JMP	.+2
  2915	003252	1 117701 4 7 1701 		ERROR	TST,"TRA SEL FF" DIDN'T CLEAR WHEN "TO HLD OUT" CLEARED
  2916
  2917						ERLOOP	TST			^SALL
  2918	003253	1 002002 0 1 0 002 
  2919	003254	1 117673 4 7 1673 
  2920	003255	1 115216 4 6 1216 
  2921					;*CHECK THAT "TRA SEL FF" DOES NOT SET WHEN "SLVE SEL" IS SET.
  2922					;*SET "SUP OUT" (ASSERTS "SLVE SEL DATA").
  2923					;*SET "SEL IN" AND "TO HLD OUT" (SETS "REC SEL FF" AND "SLVE SEL").
  2924					;*CLEAR "SUP OUT" (NEGATES "SLVE SEL DATA").
  2925					;*CHECK THAT "TRA SEL FF" IS NOT SET.
  2926
  2927	003256	1 002000 0 1 0 000 	TSFF1:	LDBR	0			;CLEAR "SEL IN" AND "TO HLD OUT"
  2928	003257	1 064051 3 2 0 02 11 		MOVB	TOR0
  2929	003260	1 002001 0 1 0 001 		LDBR	CSLVSL			;CLEAR "SLVE SEL"
  2930	003261	1 064011 3 2 0 00 11 		MOVB	CSR0
  2931	003262	1 002040 0 1 0 040 		LDBR	SUPOUT			;SET "SUP OUT"
  2932	003263	1 064071 3 2 0 03 11 		MOVB	TOR1
  2933	003264	1 002012 0 1 0 012 		LDBR	SELINL+TOHOUT		;SET "REC SEL FF"
  2934	003265	1 064051 3 2 0 02 11 		MOVB	TOR0
  2935	003266	1 002000 0 1 0 000 		LDBR	0			;CLEAR "SUP OUT"
  2936	003267	1 064071 3 2 0 03 11 		MOVB	TOR1
  2937	003270	1 117610 4 7 1610 		JMPSUB	RDTSFF			;GO READ "TRA SEL FF"
  2938	003271	1 105273 4 2 1273 		JMPB0	.+2			;JUMP IF IT SET, SHOULDN'T HAVE
  2939	003272	1 101274 4 0 1274 		JMP	.+2			;ELSE, OKAY
  2940						ERROR	TSFF1,"TRA SEL FF" SET WITH "SLVE SEL" SET,^_
  2941	003273	1 117701 4 7 1701 	DIAG SET "REC SEL FF" AND "SLVE SEL" THEN NEGATED "SLVE SEL DATA"
  2942
  2943						ERLOOP	TSFF1			^SALL
  2944	003274	1 002003 0 1 0 003 
  2945	003275	1 117673 4 7 1673 
  2946	003276	1 115256 4 6 1256 
  2947	003277	1 002000 0 1 0 000 		LDBR	0			;CLEAR "TO HLD OUT"
  2948	003300	1 064051 3 2 0 02 11 		MOVB	TOR0
  2949	003301	1 117703 4 7 1703 		REPEAT	TST
  2950	003302	1 115216 4 6 1216 
  2951
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 20
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  2952						TEST	194,TEST CONTROL UNIT ADDRESS COMPARISION LOGIC
  2953					;***********************************************************************
  2954					;* MCODE3 * TEST 194 *    TEST CONTROL UNIT ADDRESS COMPARISION LOGIC
  2955					;***********************************************************************
  2956						SALL
  2957	003303	1 002302 0 1 0 302 
  2958	003304	1 117670 4 7 1670 
  2959
  2960	003305				TST194:	SALL
  2961
  2962					;*DETERMINE THE ADDRESS(ES) WHICH THE CONTROL UNIT LOGIC WILL RESPOND TO,
  2963					;*I.E., THOSE ADDRESSES WHICH RESULT IN "SLVE SEL" GETTING SET.
  2964					;*ALSO, CHECK THAT "SLVE SEL" DOES NOT SET IF "BUS0 ODD PAR" IS CLEARED OR
  2965					;*IF "ADR IN" IS NOT SET.
  2966
  2967					;*SET "ADR IN".
  2968					;*INPUT ADDRESS 0 INTO CBI BITS WITH GOOD PARITY.
  2969					;*SET "REC SEL FF".
  2970					;*CHECK IF "SLVE SEL" IS SET.
  2971					;*KEEP INCREMENTING THE ADDRESS UNTIL "SLVE SEL" SETS.
  2972					;*IF IT DOESN'T SET FOR ALL ADDRESSES, REPORT AN ERROR.
  2973
  2974	003305	1 117515 4 7 1515 		JMPSUB	INITL			;DO A MICROBUS INIT
  2975	003306	1 002044 0 1 0 044 		LDBR	LOOPEN+EVPAR		;SET LOOP ENABLE AND "EVEN PAR", SO
  2976	003307	1 064031 3 2 0 01 11 		MOVB	CSR1			;CBI PARITY IS ODD
  2977	003310	1 002020 0 1 0 020 		LDBR	ADRINL			;SET "ADR IN"
  2978	003311	1 064051 3 2 0 02 11 		MOVB	TOR0
  2979	003312	1 002000 0 1 0 000 		LDBR	0			;INIT ADDRESS TO ZERO
  2980	003313	1 072031 3 5 0 01 11 		MOVB	AC1
  2981	003314	1 002022 0 1 0 022 	CUADLP:	LDBR	ADRINL+SELINL		;SET "ADR IN" AND "SEL IN" AND
  2982	003315	1 064051 3 2 0 02 11 		MOVB	TOR0			;CLEAR "TO HLD OUT"
  2983	003316	1 002000 0 1 0 000 		LDBR	0			;SETUP ZERO REG TO COMPLEMENT ADDRESS
  2984	003317	1 072051 3 5 0 02 11 		MOVB	AC2
  2985	003320	1 062030 3 1 0 01 10 		MOV	AC1,BR			;MOVE ADDR TO BR
  2986	003321	1 062052 3 1 0 02 12 		LORCB	AC2,BR			;COMPLEMENT IT
  2987	003322	1 064231 3 2 0 11 11 		MOVB	BORLO			;LOAD IT INTO BORLO
  2988	003323	1 002032 0 1 0 032 		LDBR	ADRINL+SELINL+TOHOUT	;SET "TO HLD OUT"
  2989	003324	1 064051 3 2 0 02 11 		MOVB	TOR0
  2990	003325	1 022000 1 1 0 00 00 		DATI	CSR0,BR			;READ "SLVE SEL"
  2991	003326	1 105336 4 2 1336 		JMPB0	LOWADR			;JUMP IF IT SET
  2992	003327	1 072023 3 5 0 01 03 		INCR	AC1			;INC ADDRESS
  2993	003330	1 113332 4 5 1332 		JMPC	.+2			;JUMP IF ALL ADDRESSES TESTED
  2994	003331	1 101314 4 0 1314 		JMP	CUADLP			;ELSE, CONTINUE
  2995	003332	1 117701 4 7 1701 		ERROR	TST,"SLVE SEL" DIDN'T SET FOR ALL ADDRESSES
  2996
  2997						ERLOOP	TST			^SALL
  2998	003333	1 002000 0 1 0 000 
  2999	003334	1 117673 4 7 1673 
  3000	003335	1 115305 4 6 1305 
  3001					;*AFTER FINDING THE LOWEST RESPONDING ADDRESS, DETERMINE WHICH BITS
  3002					;*ARE DON'T CARE.  TO DO THIS, COMPLEMENT EACH BIT IN THE LOWEST ADDRESS,
  3003					;*ONE AT A TIME, AND CHECK IF THE LOGIC RESPONDS TO THESE ADDRESSES.
  3004					;*SEND THE HOST THE LOWEST ADDRESS PLUS A MASK OF THE "DON'T CARE" BITS.
  3005					;*FROM THIS THE HOST CAN DISPLAY THE SET OF ADDRESSES WHICH THE LOGIC IS
  3006					;*SETUP TO RESPOND TO.
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 20-1
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  3007
  3008	003336	1 002001 0 1 0 001 	LOWADR:	LDBR	1			;INITIALIZE "DON'T CARE" BIT COMPLEMENTOR
  3009	003337	1 072051 3 5 0 02 11 		MOVB	AC2
  3010	003340	1 002000 0 1 0 000 		LDBR	0			;INITIALIZE "DON'T CARE" MASK
  3011	003341	1 072011 3 5 0 00 11 		MOVB	AC0
  3012	003342	1 002007 0 1 0 007 		LDBR	7			;SETUP LOOP CNT MINUS 1
  3013	003343	1 072071 3 5 0 03 11 		MOVB	AC3
  3014	003344	1 002001 0 1 0 001 		LDBR	CSLVSL			;CLEAR "SLVE SEL"
  3015	003345	1 064011 3 2 0 00 11 		MOVB	CSR0
  3016	003346	1 002022 0 1 0 022 	DCLP:	LDBR	ADRINL+SELINL		;CLEAR "TO HLD OUT"
  3017	003347	1 064051 3 2 0 02 11 		MOVB	TOR0
  3018	003350	1 062030 3 1 0 01 10 		MOV	AC1,BR			;MOVE LOW ADDR TO BR
  3019	003351	1 062055 3 1 0 02 15 		LXORB	AC2,BR			;XOR ADDR WITH "DON'T CARE" BIT
  3020	003352	1 010000 0 4 0 000 		LDMEM	0			;SETUP ZERO REG TO DO COMPLEMENT
  3021	003353	1 052111 2 5 0 04 11 		MOVMEM	AC4
  3022	003354	1 062112 3 1 0 04 12 		LORCB	AC4,BR			;COMPLEMENT NEW ADDRESS
  3023	003355	1 064231 3 2 0 11 11 		MOVB	BORLO			;LOAD INTO BORLO
  3024	003356	1 002032 0 1 0 032 		LDBR	ADRINL+SELINL+TOHOUT	;SET "TO HLD OUT"
  3025	003357	1 064051 3 2 0 02 11 		MOVB	TOR0
  3026	003360	1 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  3027	003361	1 022000 1 1 0 00 00 		DATI	CSR0,BR			;READ "SLVE SEL"
  3028	003362	1 105367 4 2 1367 		JMPB0	ADMTCH			;JUMP IF IT SET (RESPONDED TO ADDR)
  3029	003363	1 072045 3 5 0 02 05 	NXBIT:	SHLR	AC2			;SHIFT "DON'T CARE" BIT
  3030	003364	1 072067 3 5 0 03 07 		DECR	AC3			;DEC LOOP CNT
  3031	003365	1 115374 4 6 1374 		JMPZ	ADDONE			;JUMP IF DONE
  3032	003366	1 101346 4 0 1346 		JMP	DCLP			;ELSE, CONTINUE
  3033
  3034	003367	1 062050 3 1 0 02 10 	ADMTCH:	MOV	AC2,BR			;MOVE "DON'T CARE" BIT TO BR
  3035	003370	1 072014 3 5 0 00 14 		LORBR	AC0			;ADD THIS TO MASK
  3036	003371	1 002001 0 1 0 001 		LDBR	CSLVSL			;CLEAR "SLVE SEL"
  3037	003372	1 064011 3 2 0 00 11 		MOVB	CSR0
  3038	003373	1 101363 4 0 1363 		JMP	NXBIT			;GO ON TO NEXT BIT
  3039
  3040	003374	1 002011 0 1 0 011 	ADDONE:	LDBR	11			;SELECT MASSBUS INTERFACE
  3041	003375	1 066371 3 3 0 17 11 		MOVB	IOSEL
  3042	003376	1 062030 3 1 0 01 10 		MOV	AC1,BR			;GET LOW ADDR
  3043	003377	1 066051 3 3 0 02 11 		MOVB	MPGP12			;STORE FOR PRINTOUT
  3044	003400	1 062010 3 1 0 00 10 		MOV	AC0,BR			;GET MASK
  3045	003401	1 066071 3 3 0 03 11 		MOVB	MPGP13			;STORE FOR PRINTOUT
  3046	003402	1 002033 0 1 0 033 		LDBR	33			;SELECT CHAN BUS INTERFACE
  3047	003403	1 066371 3 3 0 17 11 		MOVB	IOSEL
  3048	003404	1 117705 4 7 1705 		SNDADR				;SEND CU ADDR INFO TO HOST
  3049
  3050					;*SET ADDRESS TO LOW ADDRESS
  3051					;*CLEAR "ADR IN".
  3052					;*TOGGLE "REC SEL FF".
  3053					;*CHECK THAT "SLVE SEL" DOES NOT SET.
  3054
  3055	003405	1 002000 0 1 0 000 	ADSTP:	LDBR	0			;SETUP TO DO COMPLEMENT
  3056	003406	1 072111 3 5 0 04 11 		MOVB	AC4
  3057	003407	1 062030 3 1 0 01 10 		MOV	AC1,BR			;MOVE ADDR TO BR
  3058	003410	1 062112 3 1 0 04 12 		LORCB	AC4,BR			;COMPLEMENT LOW ADDR
  3059	003411	1 064231 3 2 0 11 11 		MOVB	BORLO			;LOAD IT IN BORLO
  3060	003412	1 002002 0 1 0 002 	CUADR1:	LDBR	SELINL			;CLEAR "TO HLD OUT" AND "ADR IN"
  3061	003413	1 064051 3 2 0 02 11 		MOVB	TOR0
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 20-2
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  3062	003414	1 002001 0 1 0 001 		LDBR	CSLVSL			;CLEAR "SLVE SEL"
  3063	003415	1 064011 3 2 0 00 11 		MOVB	CSR0
  3064	003416	1 002012 0 1 0 012 		LDBR	SELINL+TOHOUT		;SET "TO HLD OUT"
  3065	003417	1 064051 3 2 0 02 11 		MOVB	TOR0
  3066	003420	1 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  3067	003421	1 022000 1 1 0 00 00 		DATI	CSR0,BR			;READ "SLVE SEL"
  3068	003422	1 105424 4 2 1424 		JMPB0	.+2			;JUMP IF IT SET, SHOULDN'T HAVE
  3069	003423	1 101425 4 0 1425 		JMP	.+2			;ELSE, OKAY
  3070	003424	1 117701 4 7 1701 		ERROR	CUADR1,"SLVE SEL" SET WITH "ADR IN" AND "SUP OUT" CLEARED
  3071
  3072						ERLOOP	CUADR1			^SALL
  3073	003425	1 002001 0 1 0 001 
  3074	003426	1 117673 4 7 1673 
  3075	003427	1 115412 4 6 1412 
  3076					;*SET "ADR IN".
  3077					;*CLEAR "EVEN PAR" TO CAUSE CBI PARITY ERROR.
  3078					;*TOGGLE "REC SEL FF".
  3079					;*CHECK THAT "SLVE SEL" DOES NOT SET.
  3080
  3081	003430	1 002004 0 1 0 004 		LDBR	LOOPEN			;CLEAR "EVEN PAR"
  3082	003431	1 064031 3 2 0 01 11 		MOVB	CSR1
  3083	003432	1 002022 0 1 0 022 	CUADR2:	LDBR	SELINL+ADRINL		;CLEAR "TO HLD OUT" AND SET "ADR IN"
  3084	003433	1 064051 3 2 0 02 11 		MOVB	TOR0
  3085	003434	1 002001 0 1 0 001 		LDBR	CSLVSL			;CLEAR "SLVE SEL"
  3086	003435	1 064011 3 2 0 00 11 		MOVB	CSR0
  3087	003436	1 002032 0 1 0 032 		LDBR	ADRINL+SELINL+TOHOUT	;SET "TO HLD OUT"
  3088	003437	1 064051 3 2 0 02 11 		MOVB	TOR0
  3089	003440	1 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  3090	003441	1 022000 1 1 0 00 00 		DATI	CSR0,BR			;READ "SLVE SEL"
  3091	003442	1 105444 4 2 1444 		JMPB0	.+2			;JUMP IF IT SET, SHOULDN'T HAVE
  3092	003443	1 101445 4 0 1445 		JMP	.+2			;ELSE, OKAY
  3093	003444	1 117701 4 7 1701 		ERROR	CUADR2,"SLVE SEL" SET WITH "BUS0 ODD PAR" CLEARED
  3094
  3095						ERLOOP	CUADR2			^SALL
  3096	003445	1 002002 0 1 0 002 
  3097	003446	1 117673 4 7 1673 
  3098	003447	1 115432 4 6 1432 
  3099	003450	1 117703 4 7 1703 		REPEAT	TST
  3100	003451	1 115305 4 6 1305 
  3101
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 21
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  3102						TEST	195,TEST MK PE FLAG
  3103					;***********************************************************************
  3104					;* MCODE3 * TEST 195 *    TEST MK PE FLAG
  3105					;***********************************************************************
  3106						SALL
  3107	003452	1 002303 0 1 0 303 
  3108	003453	1 117670 4 7 1670 
  3109
  3110	003454				TST195:	SALL
  3111
  3112					;*READ REG 7.
  3113					;*CHECK THAT "MK PE FLAG" IS NOT SET.
  3114
  3115	003454	1 002002 0 1 0 002 		LDBR	CLRFLG			;CLEAR ALL FLAGS
  3116	003455	1 064011 3 2 0 00 11 		MOVB	CSR0
  3117	003456	1 020007 1 0 0 00 07 		DATI	CBILO			;READ REG 7
  3118	003457	1 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  3119	003460	1 032000 1 5 0 00 00 		DATI	CSR0,AC0		;READ REG 0
  3120	003461	1 062005 3 1 0 00 05 		SHL	AC0,BR			;MOVE "MK PE FLAG" TO BIT 4
  3121	003462	1 107464 4 3 1464 		JMPB4	.+2			;JUMP IF IT SET,SHOULDN'T HAVE
  3122	003463	1 101465 4 0 1465 		JMP	.+2			;ELSE, OKAY
  3123	003464	1 117701 4 7 1701 		ERROR	TST,"MK PE FLAG" SET WHEN DIAG READ REG 7
  3124
  3125						ERLOOP	TST			^SALL
  3126	003465	1 002000 0 1 0 000 
  3127	003466	1 117673 4 7 1673 
  3128	003467	1 115454 4 6 1454 
  3129	003470	1 117703 4 7 1703 		REPEAT	TST
  3130	003471	1 115454 4 6 1454 
  3131
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 22
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  3132						TEST	196,TEST "BUS1 PE FLAG"
  3133					;***********************************************************************
  3134					;* MCODE3 * TEST 196 *    TEST "BUS1 PE FLAG"
  3135					;***********************************************************************
  3136						SALL
  3137	003472	1 002304 0 1 0 304 
  3138	003473	1 117670 4 7 1670 
  3139
  3140	003474				TST196:	SALL
  3141
  3142					;*READ REGISTER 13 TO MAKE SURE IT DOES NOT SET "BUS1 PE FLAG" IN
  3143					;*REGISTER 0.
  3144
  3145	003474	1 002002 0 1 0 002 		LDBR	CLRFLG			;CLEAR ALL FLAGS
  3146	003475	1 064011 3 2 0 00 11 		MOVB	CSR0
  3147	003476	1 020013 1 0 0 00 13 		DATI	CBIHI			;READ REG 13
  3148	003477	1 000000 0 0 0 000 		NOP				;DELAY BEFORE DOING DATI
  3149	003500	1 032000 1 5 0 00 00 		DATI	CSR0,AC0		;READ REG 0
  3150	003501	1 014000 0 6 0 000 		SHR				;RIGHT ADJUST "BUS1 PE FLAG" BIT
  3151	003502	1 014000 0 6 0 000 		SHR
  3152	003503	1 105505 4 2 1505 		JMPB0	.+2			;JUMP IF IT SET INCORRECTLY
  3153	003504	1 101506 4 0 1506 		JMP	.+2			;ELSE, RESULTS OKAY
  3154	003505	1 117701 4 7 1701 		ERROR	TST,"BUS1 PE FLAG" SET WHEN DIAG READ REG 13
  3155
  3156						ERLOOP	TST			^SALL
  3157	003506	1 002000 0 1 0 000 
  3158	003507	1 117673 4 7 1673 
  3159	003510	1 115474 4 6 1474 
  3160	003511	1 117703 4 7 1703 		REPEAT TST
  3161	003512	1 115474 4 6 1474 
  3162
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 23
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  3163	003513	1 101666 4 0 1666 		JMP	END			;JUMP AROUND SUBROUTINES
  3164
  3165	003514	1 016377 0 7 0 377 	ZRTNH:	RETURN	-1
  3166
  3167	003515	1 002233 0 1 0 233 	INITL:	LDBR	INIT+33			;SET INIT
  3168	003516	1 066371 3 3 0 17 11 		MOVB	IOSEL
  3169	003517	1 002033 0 1 0 033 		LDBR	33			;CLR INIT & SELECT CB
  3170	003520	1 066371 3 3 0 17 11 		MOVB	IOSEL
  3171	003521	1 001000 0 0 2 000 		LDMAR	0			;PUT MEMORY ADDRESS TO 0
  3172	003522	1 010000 0 4 0 000 		LDMEM	0			;CLR MEMORY LOC. 0
  3173	003523	1 016000 0 7 0 000 		RETURN
  3174
  3175					;"WAIT" IS USED TO WAIT APPROX 20 MS.  IT CONSISTS OF AN INNER WAIT LOOP
  3176					;OF APPROX 960 NSEC AND AN OUTER LOOP OF APPROX 200 USEC.
  3177	003524	1 002144 0 1 0 144 	WAIT:	LDBR	^D100			;SET OUTER LOOP WAIT COUNT
  3178	003525	1 072011 3 5 0 00 11 		MOVB	AC0
  3179	003526	1 002317 0 1 0 317 	WAITO:	LDBR	^D207			;SET INNER LOOP WAIT COUNT
  3180	003527	1 072031 3 5 0 01 11 		MOVB	AC1
  3181	003530	1 072027 3 5 0 01 07 	WAITI:	DECR	AC1			;DEC INNER LOOP COUNT
  3182	003531	1 115533 4 6 1533 		JMPZ	.+2			;JUMP IF INNER LOOP TIMED OUT
  3183	003532	1 101530 4 0 1530 		JMP	WAITI			;ELSE, CONTINUE
  3184	003533	1 072007 3 5 0 00 07 		DECR	AC0			;DEC OUTER LOOP COUNT
  3185	003534	1 115536 4 6 1536 		JMPZ	.+2			;JUMP IF OUTER LOOP TIMED OUT
  3186	003535	1 101526 4 0 1526 		JMP	WAITO			;ELSE CONTINUE
  3187	003536	1 016000 0 7 0 000 		RETURN
  3188
  3189	003537	1 002377 0 1 0 377 	LOADDR:	LDBR	-1			;LOAD ONES INTO BORLO
  3190	003540	1 064231 3 2 0 11 11 		MOVB	BORLO
  3191	003541	1 064151 3 2 0 06 11 		MOVB	CLKDRL			;LOAD ZEROS INTO DRLO
  3192	003542	1 002000 0 1 0 000 		LDBR	0			;LOAD ZEROS INTO BORLO
  3193	003543	1 064231 3 2 0 11 11 		MOVB	BORLO
  3194	003544	1 016000 0 7 0 000 		RETURN
  3195
  3196
  3197	003545	1 002011 0 1 0 011 	DEVRD:	LDBR	11			;SELECT MASSBUS INTERFACE
  3198	003546	1 066371 3 3 0 17 11 		MOVB	IOSEL
  3199	003547	1 002000 0 1 0 000 		LDBR	0			;SETUP FOR A DEVICE READ
  3200	003550	1 064031 3 2 0 01 11 		MOVB	MPSCR1
  3201	003551	1 002033 0 1 0 033 		LDBR	33			;SELECT CHANNEL BUS INTERFACE
  3202	003552	1 066371 3 3 0 17 11 		MOVB	IOSEL
  3203	003553	1 016000 0 7 0 000 		RETURN
  3204
  3205	003554	1 002011 0 1 0 011 	DEVWR:	LDBR	11			;SELECT MASSBUS INTERFACE
  3206	003555	1 066371 3 3 0 17 11 		MOVB	IOSEL
  3207	003556	1 002010 0 1 0 010 		LDBR	DTD			;SETUP FOR A DEVICE WRITE
  3208	003557	1 064031 3 2 0 01 11 		MOVB	MPSCR1
  3209	003560	1 002033 0 1 0 033 		LDBR	33			;SELECT CHANNEL BUS INTERFACE
  3210	003561	1 066371 3 3 0 17 11 		MOVB	IOSEL
  3211	003562	1 016000 0 7 0 000 		RETURN
  3212
  3213	003563	1 002011 0 1 0 011 	SETPNT:	LDBR	11			;SELECT MASSBUS INTERFACE
  3214	003564	1 066371 3 3 0 17 11 		MOVB	IOSEL
  3215	003565	1 044351 2 2 0 16 11 		MOVMEM	MPGP6			;STORE ADDITIONAL PNT ROUTINE NUMBER
  3216	003566	1 002033 0 1 0 033 		LDBR	33			;SELECT CHANNEL BUS INTERFACE
  3217	003567	1 066371 3 3 0 17 11 		MOVB	IOSEL
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 23-1
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  3218	003570	1 016000 0 7 0 000 		RETURN
  3219
  3220	003571	1 002011 0 1 0 011 	SETDAT:	LDBR	11			;SELECT MASSBUS INTERFACE
  3221	003572	1 066371 3 3 0 17 11 		MOVB	IOSEL
  3222	003573	1 046051 2 3 0 02 11 		MOVMEM	MPGP12			;STORE DATA FOR PRINTOUT
  3223	003574	1 002033 0 1 0 033 		LDBR	33			;SELECT CHAN BUS INTERFACE
  3224	003575	1 066371 3 3 0 17 11 		MOVB	IOSEL
  3225	003576	1 016000 0 7 0 000 		RETURN
  3226
  3227	003577	1 002000 0 1 0 000 	RDBRP0:	LDBR	0			;SET "BOR P0" INDEX
  3228	003600	1 064131 3 2 0 05 11 		MOVB	SPADR
  3229	003601	1 101654 4 0 1654 		JMP	RDIT
  3230
  3231	003602	1 002002 0 1 0 002 	RDB0OD:	LDBR	2			;SET "BUS0 ODD PAR" INDEX
  3232	003603	1 064131 3 2 0 05 11 		MOVB	SPADR
  3233	003604	1 101654 4 0 1654 		JMP	RDIT
  3234
  3235	003605	1 002003 0 1 0 003 	RDSEX:	LDBR	3			;SET "SLVE END XFER" INDEX
  3236	003606	1 064131 3 2 0 05 11 		MOVB	SPADR
  3237	003607	1 101654 4 0 1654 		JMP	RDIT
  3238
  3239	003610	1 002004 0 1 0 004 	RDTSFF:	LDBR	4			;SET "TRA SEL FF" INDEX
  3240	003611	1 064131 3 2 0 05 11 		MOVB	SPADR
  3241	003612	1 101654 4 0 1654 		JMP	RDIT
  3242
  3243	003613	1 002005 0 1 0 005 	RDAMK1:	LDBR	5			;SET "ALLOW MK 1 OUT" INDEX
  3244	003614	1 064131 3 2 0 05 11 		MOVB	SPADR
  3245	003615	1 101654 4 0 1654 		JMP	RDIT
  3246
  3247	003616	1 002006 0 1 0 006 	RDODDE:	LDBR	6			;SET "ODD END" INDEX
  3248	003617	1 064131 3 2 0 05 11 		MOVB	SPADR
  3249	003620	1 101654 4 0 1654 		JMP	RDIT
  3250
  3251	003621	1 002007 0 1 0 007 	RD2BYT:	LDBR	7			;SET "2ND BYTE" INDEX
  3252	003622	1 064131 3 2 0 05 11 		MOVB	SPADR
  3253	003623	1 101654 4 0 1654 		JMP	RDIT
  3254
  3255	003624	1 002010 0 1 0 010 	RDRRDY:	LDBR	10			;SET "DR READY" INDEX
  3256	003625	1 064131 3 2 0 05 11 		MOVB	SPADR
  3257	003626	1 101654 4 0 1654 		JMP	RDIT
  3258
  3259	003627	1 002011 0 1 0 011 	RDSLRQ:	LDBR	11			;SET "SLVE REQ" INDEX
  3260	003630	1 064131 3 2 0 05 11 		MOVB	SPADR
  3261	003631	1 101654 4 0 1654 		JMP	RDIT
  3262
  3263	003632	1 002012 0 1 0 012 	RDRDLY:	LDBR	12			;SET "DATA RDY DLY" INDEX
  3264	003633	1 064131 3 2 0 05 11 		MOVB	SPADR
  3265	003634	1 101654 4 0 1654 		JMP	RDIT
  3266
  3267	003635	1 002013 0 1 0 013 	RDCUIN:	LDBR	13			;SET "CU INIT" INDEX
  3268	003636	1 064131 3 2 0 05 11 		MOVB	SPADR
  3269	003637	1 101654 4 0 1654 		JMP	RDIT
  3270
  3271	003640	1 002014 0 1 0 014 	RDENSD:	LDBR	14			;SET "EN SRV/DAT OUT" INDEX
  3272	003641	1 064131 3 2 0 05 11 		MOVB	SPADR
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 23-2
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  3273	003642	1 101654 4 0 1654 		JMP	RDIT
  3274
  3275	003643	1 002015 0 1 0 015 	RDSDRQ:	LDBR	15			;SET "ST DATA REQ" INDEX
  3276	003644	1 064131 3 2 0 05 11 		MOVB	SPADR
  3277	003645	1 101654 4 0 1654 		JMP	RDIT
  3278
  3279	003646	1 002016 0 1 0 016 	RDDSRQ:	LDBR	16			;SET "NOT DIS SLVE REQ" INDEX
  3280	003647	1 064131 3 2 0 05 11 		MOVB	SPADR
  3281	003650	1 101654 4 0 1654 		JMP	RDIT
  3282
  3283	003651	1 002017 0 1 0 017 	RDDPPE:	LDBR	17			;SET "DP PE" INDEX
  3284	003652	1 064131 3 2 0 05 11 		MOVB	SPADR
  3285	003653	1 101654 4 0 1654 		JMP	RDIT
  3286
  3287	003654	1 022003 1 1 0 00 03 	RDIT:	DATI	TOR1,BR			;READ REG 3
  3288	003655	1 014000 0 6 0 000 		SHR				;RIGHT ADJUST DIAG MUX BIT
  3289	003656	1 014000 0 6 0 000 		SHR
  3290	003657	1 016000 0 7 0 000 		RETURN
  3291
  3292	003660	1 002022 0 1 0 022 	DPINIT:	LDBR	22			;SELECT DATA PATH
  3293	003661	1 066371 3 3 0 17 11 		MOVB	IOSEL
  3294	003662	1 064271 3 2 0 13 11 		MOVB	HSDPIN
  3295	003663	1 002033 0 1 0 033 		LDBR	33			;SELECT CHANNEL BUS INTERFACE
  3296	003664	1 066371 3 3 0 17 11 		MOVB	IOSEL
  3297	003665	1 016000 0 7 0 000 		RETURN
  3298
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 24
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  3299	003666	1 002225 0 1 0 225 	END:	.ECRAM
  3300	003667	1 160211 7 0 0 10 11 
  3301	003670	1 072131 3 5 0 05 11 
  3302	003671	1 002044 0 1 0 044 
  3303	003672	1 160211 7 0 0 10 11 
  3304	003673	1 072131 3 5 0 05 11 
  3305	003674	1 002142 0 1 0 142 
  3306	003675	1 160211 7 0 0 10 11 
  3307	003676	1 072131 3 5 0 05 11 
  3308	003677	1 002146 0 1 0 146 
  3309	003700	1 160211 7 0 0 10 11 
  3310	003701	1 002104 0 1 0 104 
  3311	003702	1 160211 7 0 0 10 11 
  3312	003703	1 002222 0 1 0 222 
  3313	003704	1 160211 7 0 0 10 11 
  3314	003705	1 002200 0 1 0 200 
  3315	003706	1 072131 3 5 0 05 11 
  3316	003707	1 002203 0 1 0 203 
  3317	003710	1 160211 7 0 0 10 11 
  3318	003711	777777	777777		.MEM
  3319	000000	000000	000000			0
  3320	000001	777777	777777		PATS:	-1
  3321	000002	000000	000000			0
  3322	000003	000000	000376		FLTZ:	376
  3323	000004	000000	000375			375
  3324	000005	000000	000373			373
  3325	000006	000000	000367			367
  3326	000007	000000	000357			357
  3327	000010	000000	000337			337
  3328	000011	000000	000277			277
  3329	000012	000000	000177			177
  3330	000013	000000	000001		FLTO:	1
  3331	000014	000000	000002			2
  3332	000015	000000	000004			4
  3333	000016	000000	000010			10
  3334	000017	000000	000020			20
  3335	000020	000000	000040			40
  3336	000021	000000	000100			100
  3337	000022	000000	000200			200
  3338	000023	000000	000374		FLTZA:	374
  3339	000024	000000	000371			371
  3340	000025	000000	000365			365
  3341	000026	000000	000355			355
  3342	000027	000000	000335			335
  3343	000030	000000	000235			235
  3344	000031	000000	000135			135
  3345	000032	000000	000001			1
  3346	000033	000000	000004			4
  3347	000034	000000	000010			10
  3348	000035	000000	000020			20
  3349	000036	000000	000040			40
  3350	000037	000000	000100			100
  3351	000040	000000	000200			200
  3352	000041	000000	000372		FLTZB:	372
  3353	000042	000000	000371			371
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 24-1
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  3354	000043	000000	000363			363
  3355	000044	000000	000353			353
  3356	000045	000000	000333			333
  3357	000046	000000	000273			273
  3358	000047	000000	000173			173
  3359	000050	000000	000001			1
  3360	000051	000000	000002			2
  3361	000052	000000	000010			10
  3362	000053	000000	000020			20
  3363	000054	000000	000040			40
  3364	000055	000000	000100			100
  3365	000056	000000	000200			200
  3366	000057	000000	000340		FLTZC:	340
  3367	000060	000000	000320			320
  3368	000061	000000	000260			260
  3369	000062	000000	000160			160
  3370	000063	000000	000020			20
  3371	000064	000000	000040			40
  3372	000065	000000	000100			100
  3373	000066	000000	000200			200
  3374	000067	000000	000360		FLTZD:	360
  3375	000070	000000	000350			350
  3376	000071	000000	000330			330
  3377	000072	000000	000270			270
  3378	000073	000000	000170			170
  3379	000074	000000	000010			10
  3380	000075	000000	000020			20
  3381	000076	000000	000040			40
  3382	000077	000000	000100			100
  3383	000100	000000	000200			200
  3384	000101	000000	000016		FLTZE:	16
  3385	000102	000000	000015			15
  3386	000103	000000	000013			13
  3387	000104	000000	000007			7
  3388	000105	000000	000001			1
  3389	000106	000000	000002			2
  3390	000107	000000	000004			4
  3391	000110	000000	000010			10
  3392	000111	000000	000334		FLTZF:	334
  3393	000112	000000	000332			332
  3394	000113	000000	000326			326
  3395	000114	000000	000316			316
  3396	000115	000000	000236			236
  3397	000116	000000	000136			136
  3398	000117	000000	000002			2
  3399	000120	000000	000004			4
  3400	000121	000000	000010			10
  3401	000122	000000	000020			20
  3402	000123	000000	000100			100
  3403	000124	000000	000200			200
  3404	000125	000000	000006		FLTZG:	6
  3405	000126	000000	000005			5
  3406	000127	000000	000003			3
  3407	000130	000000	000001			1
  3408	000131	000000	000002			2
MCODE3 	DX20 MICRO-DIAGNOSTIC OF THE CHANNEL BUS INTERFACE - PART 2  VERSION 0.	MACRO %53B(1252) 15:37  6-Mar-89 Page 24-2
MCOD3M	MAC	 6-Mar-89 15:13		CHANNEL BUS INTERFACE TEST - PART 2

  3409	000132	000000	000004			4
  3410	000133	000000	000011		EPATS:	11
  3411	000134	000000	000102			102
  3412	000135	000000	000220			220
  3413	000136	000000	000366			366
  3414	000137	000000	000044		OPATS:	44
  3415	000140	000000	000157			157
  3416	000141	000000	000275			275
  3417	000142	000000	000333			333
  3418	000143	000000	000000		RAMADR:	0
  3419	000144	000000	000001			1
  3420	000145	000000	000002			2
  3421	000146	000000	000004			4
  3422	000147	000000	000010			10
  3423	000150	777777	777777			-1
  3424					.END
  3425
  3426						END

NO ERRORS DETECTED

PROGRAM BREAK IS 000000
ABSOLUTE BREAK IS 004063
CPU TIME USED 02:43.952

27P CORE USED

AC0	   620	   781	   783	   785	   813	   815	   834	   835	   836	  1237	  1240	  1308	  1314	  1318
	  1389	  1395	  1399	  1446	  1447	  1589	  1590	  1641	  1844	  1845	  1884	  1885	  1943	  1944
	  2635	  2637	  2638	  2652	  2653	  2654	  2670	  2672	  2673	  3011	  3035	  3044	  3119	  3120
	  3149	  3178	  3184
AC1	   618	   774	   777	   795	   875	   901	   914	   940	  1232	  1255	  1291	  1295	  1301	  1311
	  1329	  1364	  1369	  1375	  1382	  1393	  2666	  2682	  2980	  2985	  2992	  3018	  3042	  3057
	  3180	  3181
AC2	   776	   784	   794	  1293	  1326	  1367	  1368	  1372	  1407	  2984	  2986	  3009	  3019	  3029
	  3034
AC3	  1298	  1299	  1361	  1362	  1363	  3013	  3030
AC4	   548	   553	  3021	  3022	  3056	  3058
AC5	   516	   518	   520	   526	   560	   561	   563	   582	   584	   589	   593	   598	   601	   604
	   609	   615	   622	   645	   647	   656	   658	  3301	  3304	  3307	  3315
AC6	   529	   533	   543	   667
AC7	   501	   536	   537	   570	   575	   579	   583	   596	   599
ADDONE	  3031	  3040#
ADMTCH	  3028	  3034#
ADRIN	   132#
ADRINL	   162#	  2448	  2493	  2518	  2539	  2583	  2809	  2811	  2977	  2981	  2988	  3016	  3024	  3083
	  3087
ADROUT	   110#
ADSTP	  3055#
ATA	   212#	   562	   588	   600	   649	   660	   678
B0PE1	  1015#	  1052
B0PE2	  1032#	  1068
B0PE3	  1056#	  1090
BEGEND	   673#	  3299
BEGIN	   486#	   681
BORHI	    66#
BORLO	    62#	   877	   916	  1128	  1182	  1234	  1433	  2987	  3023	  3059	  3190	  3193
BUS0PE	    86#
BUS1PE	    85#
C	   269#
CALL	   639	   641	   643	   645#
CALL0	   646#	  3316
CATAB	   635	  1854	  1895	  1905	  1934	  1952	  1985	  2014	  2028	  2062	  2095	  2133	  2143	  2168
	  2190	  2215	  2240	  2282	  2292	  2306	  2331	  2350	  2372	  2395	  2420	  2463	  2473	  2486
	  2513	  2534	  2555	  2577	  2601	  2645	  2661	  2681	  2729	  2744	  2764	  2784	  2800	  2823
	  2848	  2889	  2903	  2920	  2946	  3000	  3075	  3098	  3128	  3159
CBIHI	    64#	  3147
CBILO	    60#	   971	   999	  1308	  1389	  1446	  3117
CHANL	   103#	   714	   716	   771	   804	   828	  1032	  1034	  1129	  1131	  1179	  1288	  1358	  1437
	  1439	  2077	  2079	  2149	  2199	  2224	  2317	  2357	  2380	  2405	  2499	  2541	  2563	  2587
CHKLOP	   623#	   661
CHKLP	   624#
CKTRM	   656#
CKTRM0	   657#
CLKDRL	    72#	  1235	  3191
CLKOUT	   108#
CLRFLG	    91#	   967	  1056	  1215	  3115	  3145
CLRGO	   205#	   519
CLSLRQ	    71#	  1148	  1199
CMDF0	   495	   511#
CMDOUT	   114#
CMPERR	   206#
CORF	   732#	   734	   742#	   744	   789#	   791	   819#	   821	   839#	   841	   886#	   888	   896#	   898
	   924#	   926	   935#	   937	   978#	   980	   988#	   990	  1006#	  1008	  1022#	  1024	  1048#	  1050
	  1064#	  1066	  1086#	  1088	  1140#	  1142	  1155#	  1157	  1165#	  1167	  1191#	  1193	  1206#	  1208
	  1223#	  1225	  1250#	  1252	  1321#	  1323	  1402#	  1404	  1451#	  1453	  1503#	  1505	  1514#	  1516
	  1524#	  1526	  1535#	  1537	  1545#	  1547	  1556#	  1558	  1566#	  1568	  1584#	  1586	  1594#	  1596
	  1604#	  1606	  1615#	  1617	  1625#	  1627	  1636#	  1638	  1645#	  1647	  1664#	  1666	  1680#	  1682
	  1702#	  1704	  1744#	  1746	  1755#	  1757	  1771#	  1773	  1794#	  1796	  1850#	  1852	  1891#	  1893
	  1901#	  1903	  1930#	  1932	  1948#	  1950	  1981#	  1983	  2010#	  2012	  2024#	  2026	  2058#	  2060
	  2091#	  2093	  2129#	  2131	  2139#	  2141	  2164#	  2166	  2186#	  2188	  2211#	  2213	  2236#	  2238
	  2278#	  2280	  2288#	  2290	  2302#	  2304	  2327#	  2329	  2346#	  2348	  2368#	  2370	  2391#	  2393
	  2416#	  2418	  2459#	  2461	  2469#	  2471	  2482#	  2484	  2509#	  2511	  2530#	  2532	  2551#	  2553
	  2573#	  2575	  2597#	  2599	  2641#	  2643	  2657#	  2659	  2677#	  2679	  2725#	  2727	  2740#	  2742
	  2760#	  2762	  2780#	  2782	  2796#	  2798	  2819#	  2821	  2844#	  2846	  2885#	  2887	  2899#	  2901
	  2916#	  2918	  2942#	  2944	  2996#	  2998	  3071#	  3073	  3094#	  3096	  3124#	  3126	  3155#	  3157
CSLVSL	    92#	  2733	  2769	  2832	  2929	  3014	  3036	  3062	  3085
CSR0	    52#	   968	   973	  1001	  1017	  1043	  1057	  1059	  1080	  1150	  1201	  1216	  1218	  1896
	  2720	  2734	  2736	  2753	  2770	  2776	  2792	  2814	  2833	  2839	  2930	  2990	  3015	  3027
	  3037	  3063	  3067	  3086	  3090	  3116	  3119	  3146	  3149
CSR1	    53#	   715	   717	   772	   805	   829	   873	   912	   970	   998	  1033	  1035	  1130	  1132
	  1180	  1289	  1359	  1432	  1438	  1440	  1487	  1489	  1737	  1739	  1829	  1834	  1869	  1874
	  1924	  1939	  1994	  1996	  2036	  2041	  2073	  2078	  2080	  2120	  2150	  2156	  2200	  2202
	  2225	  2227	  2267	  2312	  2318	  2320	  2358	  2360	  2381	  2383	  2406	  2408	  2447	  2492
	  2500	  2502	  2542	  2544	  2564	  2566	  2588	  2590	  2627	  2714	  2806	  2878	  2976	  3082
CUADLP	  2981#	  2994
CUADR1	  3060#	  3075
CUADR2	  3083#	  3098
CUADRS	   180#	   299	   386	  1812	  1850	  1854	  1891	  1895	  1901	  1905	  1907	  1916	  1930	  1934
	  1948	  1952	  1954	  1963	  1981	  1985	  2010	  2014	  2024	  2028	  2058	  2062	  2091	  2095
	  2097	  2106	  2129	  2133	  2139	  2143	  2164	  2168	  2186	  2190	  2211	  2215	  2236	  2240
	  2242	  2251	  2278	  2282	  2288	  2292	  2302	  2306	  2327	  2331	  2346	  2350	  2368	  2372
	  2391	  2395	  2416	  2420	  2422	  2431	  2459	  2463	  2469	  2473	  2482	  2486	  2509	  2513
	  2530	  2534	  2551	  2555	  2573	  2577	  2597	  2601	  2603	  2612	  2641	  2645	  2657	  2661
	  2677	  2681	  2687	  2696	  2725	  2729	  2740	  2744	  2760	  2764	  2780	  2784	  2796	  2800
	  2819	  2823	  2844	  2848	  2852	  2861	  2885	  2889	  2899	  2903	  2916	  2920	  2942	  2946
	  2950	  2959	  2996	  3000	  3048	  3071	  3075	  3094	  3098	  3100	  3109	  3124	  3128	  3130
	  3139	  3155	  3159	  3161
CUINT1	  1923#	  1934
CUINT2	  1938#	  1952
CURSEN	   119#	  2121	  2153	  2173	  2195	  2222	  2270	  2313	  2315	  2336	  2355	  2378	  2401	  2452
	  2495	  2520	  2585	  2628
CUSTAT	    67#	  2633	  2650	  2668
CUTRM1	  1866#	  1895	  1905
DATIN	   143#
DATINL	   172#	  1576	  1835	  1875	  1940	  1997	  2042
DATOUT	   121#
DB	   238#
DBEVEN	   241#
DBPAR	   239#
DBPARE	   240#
DCLP	  3016#	  3032
DEVRD	   722	  1036	  1125	  1484	  1496	  1827	  1832	  1867	  1872	  1977	  2039	  2076	  3197#
DEVWR	   718	  1073	  1492	  1732	  1830	  1870	  1975	  2037	  2074	  3205#
DIHISP	    97#	   716	  1034	  1131	  1179	  1439	  1488	  1738	  1833	  1873	  1923	  1938	  1995	  2040
	  2079
DIMUX	   123#
DISACK	   122#	  1655	  1690	  1763	  1784	  1839	  1999	  2044	  2050
DISIN	   141#
DISINL	   170#
DONE	   202#
DPINIT	   720	  1494	  1734	  1831	  1871	  1976	  2038	  2075	  3292#
DPPE	    82#
DPPELP	  1234#	  1254	  1257
DRHI	    63#
DRLO	    59#	  1237	  1641
DTD	   208#	   517	   562	  3207
EBL	   203#
EDIT	     2#	     2	   484
ELOOPC	   625	   630#
END	  3163	  3299#
EPATS	   876	  3410#
ERLP	   604#	   732	   742	   839	   886	   896	   924	   935	   978	   988	  1006	  1022	  1048	  1064
	  1086	  1140	  1155	  1165	  1191	  1206	  1223	  1250	  1321	  1402	  1503	  1514	  1524	  1535
	  1545	  1556	  1566	  1584	  1594	  1604	  1615	  1625	  1636	  1645	  1664	  1680	  1702	  1744
	  1755	  1771	  1794	  1850	  1853	  1891	  1894	  1901	  1904	  1930	  1933	  1948	  1951	  1981
	  1984	  2010	  2013	  2024	  2027	  2058	  2061	  2091	  2094	  2129	  2132	  2139	  2142	  2164
	  2167	  2186	  2189	  2211	  2214	  2236	  2239	  2278	  2281	  2288	  2291	  2302	  2305	  2327
	  2330	  2346	  2349	  2368	  2371	  2391	  2394	  2416	  2419	  2459	  2462	  2469	  2472	  2482
	  2485	  2509	  2512	  2530	  2533	  2551	  2554	  2573	  2576	  2597	  2600	  2644	  2660	  2680
	  2725	  2728	  2740	  2743	  2760	  2763	  2780	  2783	  2796	  2799	  2819	  2822	  2844	  2847
	  2885	  2888	  2899	  2902	  2916	  2919	  2942	  2945	  2996	  2999	  3071	  3074	  3094	  3097
	  3124	  3127	  3155	  3158
ERLP0	   605#	  3305
ERLPA	   615#	  1854	  1895	  1905	  1934	  1952	  1985	  2014	  2028	  2062	  2095	  2133	  2143	  2168
	  2190	  2215	  2240	  2282	  2292	  2306	  2331	  2350	  2372	  2395	  2420	  2463	  2473	  2486
	  2513	  2534	  2555	  2577	  2601	  2645	  2661	  2681	  2729	  2744	  2764	  2784	  2800	  2823
	  2848	  2889	  2903	  2920	  2946	  3000	  3075	  3098	  3128	  3159
ERLPA0	   616#
ERLPH	  1853	  1894	  1904	  1933	  1951	  1984	  2013	  2027	  2061	  2094	  2132	  2142	  2167	  2189
	  2214	  2239	  2281	  2291	  2305	  2330	  2349	  2371	  2394	  2419	  2462	  2472	  2485	  2512
	  2533	  2554	  2576	  2600	  2728	  2743	  2763	  2783	  2799	  2822	  2847	  2888	  2902	  2919
	  2945	  2999	  3074	  3097	  3127	  3158	  3304#
ERLPM	   609#	   789	   819	  1451	  1854	  1895	  1905	  1934	  1952	  1985	  2014	  2028	  2062	  2095
	  2133	  2143	  2168	  2190	  2215	  2240	  2282	  2292	  2306	  2331	  2350	  2372	  2395	  2420
	  2463	  2473	  2486	  2513	  2534	  2555	  2577	  2601	  2641	  2644	  2657	  2660	  2677	  2680
	  2729	  2744	  2764	  2784	  2800	  2823	  2848	  2889	  2903	  2920	  2946	  3000	  3075	  3098
	  3128	  3159
ERLPM0	   610#	  3308
ERLPMH	  2644	  2660	  2680	  3307#
ERRCA	   613	   620#
ERRCHK	   575#	   605	   610	   616
ERRCOM	   607	   622#
ERRSET	   569#	   731	   741	   788	   818	   838	   885	   895	   923	   934	   977	   987	  1005	  1021
	  1047	  1063	  1085	  1139	  1154	  1164	  1190	  1205	  1222	  1249	  1320	  1401	  1450	  1502
	  1513	  1523	  1534	  1544	  1555	  1565	  1583	  1593	  1603	  1614	  1624	  1635	  1644	  1663
	  1679	  1701	  1743	  1754	  1770	  1793	  3310
ERSETH	  1849	  1890	  1900	  1929	  1947	  1980	  2009	  2023	  2057	  2090	  2128	  2138	  2163	  2185
	  2210	  2235	  2277	  2287	  2301	  2326	  2345	  2367	  2390	  2415	  2458	  2468	  2481	  2508
	  2529	  2550	  2572	  2596	  2640	  2656	  2676	  2724	  2739	  2759	  2779	  2795	  2818	  2843
	  2884	  2898	  2915	  2941	  2995	  3070	  3093	  3123	  3154	  3310#
ESDO1	  2034#	  2062
ESDO2	  2071#	  2095
EVPAR	    98#	   872	   997	  1179	  2975
EXC	   204#
EXFER	    80#
EXTBUS	    99#
F0	   192#
F1	   193#
F2	   194#
F3	   195#
F4	   196#
FLT10	  1295#	  1325	  1328
FLT16	  2668#	  2681	  2684
FLTO	  3330#
FLTZ	  1233	  3322#
FLTZA	  3338#
FLTZB	  3352#
FLTZC	  3366#
FLTZD	  3374#
FLTZE	  3384#
FLTZF	  3392#
FLTZG	  2667	  3404#
FN	   191#
GO	   190#
HALTIO	   153#
HLDOTL	   163#
HLDOUT	   111#
HLTIO1	  2446#	  2486
HLTIO2	  2491#	  2513
HLTIO3	  2518#	  2534
HLTIO4	  2539#	  2555
HLTIO5	  2561#	  2577
HLTIO6	  2585#	  2601
HSDPIN	   176#	  3294
I	   901	   940	  1255	  1326	  1372	  2682
ILF	   210#
INADR	   275#
INIT	   278#	   502	  3167
INIT1	   714#	   736	   746
INITL	   712	   726	  1015	  1120	  1259	  1482	  1730	  1826	  1866	  1922	  1925	  1942	  1974	  2034
	  2071	  2118	  2265	  2296	  2445	  2477	  2712	  2791	  2876	  2974	  3167#
INT0	   265#
INT1	   266#
INT2	   267#
INT3	   268#
IOSEL	   274#	   487	   503	   505	   529	   531	   534	   548	   550	   554	   674	   696	  1239	  1243
	  1310	  1317	  1391	  1398	  3041	  3047	  3168	  3170	  3198	  3202	  3206	  3210	  3214	  3217
	  3221	  3224	  3293	  3296
LOADDR	  1490	  3189#
LOOPEN	   101#	   714	   716	   804	   872	   911	   969	   997	  1032	  1034	  1129	  1131	  1179	  1288
	  1358	  1437	  1439	  1486	  1488	  1736	  1738	  1828	  1833	  1868	  1873	  1938	  1993	  1995
	  2035	  2040	  2072	  2077	  2079	  2119	  2149	  2155	  2199	  2201	  2224	  2226	  2266	  2311
	  2317	  2319	  2357	  2359	  2380	  2382	  2405	  2407	  2446	  2491	  2499	  2501	  2541	  2543
	  2563	  2565	  2587	  2589	  2626	  2713	  2805	  2877	  2975	  3081
LOWADR	  2991	  3008#
LPADR	   732#	   735	   742#	   745	   789#	   792	   819#	   822	   839#	   842	   886#	   889	   896#	   899
	   924#	   927	   935#	   938	   978#	   981	   988#	   991	  1006#	  1009	  1022#	  1025	  1048#	  1051
	  1064#	  1067	  1086#	  1089	  1140#	  1143	  1155#	  1158	  1165#	  1168	  1191#	  1194	  1206#	  1209
	  1223#	  1226	  1250#	  1253	  1321#	  1324	  1402#	  1405	  1451#	  1454	  1503#	  1506	  1514#	  1517
	  1524#	  1527	  1535#	  1538	  1545#	  1548	  1556#	  1559	  1566#	  1569	  1584#	  1587	  1594#	  1597
	  1604#	  1607	  1615#	  1618	  1625#	  1628	  1636#	  1639	  1645#	  1648	  1664#	  1667	  1680#	  1683
	  1702#	  1705	  1744#	  1747	  1755#	  1758	  1771#	  1774	  1794#	  1797	  1850#	  1853	  1854	  1891#
	  1894	  1895	  1901#	  1904	  1905	  1930#	  1933	  1934	  1948#	  1951	  1952	  1981#	  1984	  1985
	  2010#	  2013	  2014	  2024#	  2027	  2028	  2058#	  2061	  2062	  2091#	  2094	  2095	  2129#	  2132
	  2133	  2139#	  2142	  2143	  2164#	  2167	  2168	  2186#	  2189	  2190	  2211#	  2214	  2215	  2236#
	  2239	  2240	  2278#	  2281	  2282	  2288#	  2291	  2292	  2302#	  2305	  2306	  2327#	  2330	  2331
	  2346#	  2349	  2350	  2368#	  2371	  2372	  2391#	  2394	  2395	  2416#	  2419	  2420	  2459#	  2462
	  2463	  2469#	  2472	  2473	  2482#	  2485	  2486	  2509#	  2512	  2513	  2530#	  2533	  2534	  2551#
	  2554	  2555	  2573#	  2576	  2577	  2597#	  2600	  2601	  2641#	  2644	  2645	  2657#	  2660	  2661
	  2677#	  2680	  2681	  2725#	  2728	  2729	  2740#	  2743	  2744	  2760#	  2763	  2764	  2780#	  2783
	  2784	  2796#	  2799	  2800	  2819#	  2822	  2823	  2844#	  2847	  2848	  2885#	  2888	  2889	  2899#
	  2902	  2903	  2916#	  2919	  2920	  2942#	  2945	  2946	  2996#	  2999	  3000	  3071#	  3074	  3075
	  3094#	  3097	  3098	  3124#	  3127	  3128	  3155#	  3158	  3159
MAR	  1363	  1368
MK0IN	   130#
MK0INL	   160#
MK1IN	   131#
MK1INL	   161#
MKPE	    84#
MOD360	   100#	  1738
MPDB0	   228#
MPDB1	   232#
MPDB2	   236#
MPDTR	   220#
MPECR	   216#	   515	   594	   648	   659
MPERR	   211#	   562	   600
MPGP0	   245#	   532	   676
MPGP1	   246#	   677	   698
MPGP10	   253#
MPGP11	   254#
MPGP12	   255#	  1241	  1312	  1394	  3043	  3222
MPGP13	   256#	  1392	  3045
MPGP14	   257#	  1313	  1396
MPGP15	   258#	  1315
MPGP16	   259#
MPGP17	   260#
MPGP2	   247#
MPGP3	   248#
MPGP4	   249#	   612	   619
MPGP5	   250#	   621
MPGP6	   251#	   507	  3215
MPGP7	   252#
MPHVR	   224#
MPSCR0	   188#	   488	   492
MPSCR1	   201#	   516	   521	   560	   564	   679	  3200	  3208
MPSTAT	   264#
MTRIN	   134#
MTROUT	   109#
NOFAIL	   585	   587#
NRTN	   551#	   606	   611	   617	   668
NXBIT	  3029#	  3038
NXTBNK	  1801	  1804#
NXTLOC	  1292#	  1331
OCC	   209#
OFFGO	   508	   514#	   626	   630	   652
ONLINE	   102#
OPATS	   915	  3414#
OPLIN	   129#
OPLINL	   159#	  2151	  2197	  2403	  2630
OPLOUT	   118#	  2268	  2270	  2313	  2336	  2338	  2378	  2401	  2450	  2452	  2495	  2520	  2522
OUTADR	   276#
PARLP1	   877#	   890	   900	   903
PARLP2	   916#	   928	   939	   942
PATS	  1294	  3320#
PNT	   329#	   732	   742	   789	   819	   839	   886	   896	   924	   935	   978	   988	  1006	  1022
	  1048	  1064	  1086	  1140	  1155	  1165	  1191	  1206	  1223	  1250	  1321	  1402	  1451	  1503
	  1514	  1524	  1535	  1545	  1556	  1566	  1584	  1594	  1604	  1615	  1625	  1636	  1645	  1664
	  1680	  1702	  1744	  1755	  1771	  1794	  1850	  1891	  1901	  1930	  1948	  1981	  2010	  2024
	  2058	  2091	  2129	  2139	  2164	  2186	  2211	  2236	  2278	  2288	  2302	  2327	  2346	  2368
	  2391	  2416	  2459	  2469	  2482	  2509	  2530	  2551	  2573	  2597	  2641	  2657	  2677	  2725
	  2740	  2760	  2780	  2796	  2819	  2844	  2885	  2899	  2916	  2942	  2996	  3071	  3094	  3124
	  3155
RAMADR	  1360	  1366	  3418#
RD2BYT	  3251#
RDAMK1	  3243#
RDB0OD	   891	   929	  3231#
RDBRP0	   880	   919	  3227#
RDCUIN	  1498	  1578	  1926	  3267#
RDDPPE	  1135	  1185	  1244	  3283#
RDDSRQ	  1508	  1599	  1740	  3279#
RDENSD	  1978	  2005	  2020	  2054	  2087	  3271#
RDIT	  3229	  3233	  3237	  3241	  3245	  3249	  3253	  3257	  3261	  3265	  3269	  3273	  3277	  3281
	  3285	  3287#
RDODDE	  3247#
RDRDLY	   728	  1529	  3263#
RDRRDY	  1540	  1609	  3255#
RDSDRQ	  1519	  1749	  3275#
RDSEX	  3235#
RDSLRQ	   737	  1550	  1620	  3259#
RDTSFF	  2881	  2895	  2912	  2937	  3239#
REG16A	  2649#	  2661
REPORT	   580	   592#
REPTU	   667#	   747	   844	   943	  1091	  1261	  1333	  1410	  1456	  1707	  1799	  3312
REPTUH	  1906	  1953	  2096	  2241	  2421	  2602	  2686	  2851	  2949	  3099	  3129	  3160	  3312#
REQIN	   142#
REQINL	   171#	  2001	  2003	  2046	  2048	  2050	  2153	  2222	  2268	  2270	  2313	  2336	  2338	  2355
	  2401
RESIOS	   553#	   627	   631	   653
RHDATA	   298	   366	  1812	  1850	  1854	  1891	  1895	  1901	  1905	  1907	  1916	  1930	  1934	  1948
	  1952	  1954	  1963	  1981	  1985	  2010	  2014	  2024	  2028	  2058	  2062	  2091	  2095	  2097
	  2106	  2129	  2133	  2139	  2143	  2164	  2168	  2186	  2190	  2211	  2215	  2236	  2240	  2242
	  2251	  2278	  2282	  2288	  2292	  2302	  2306	  2327	  2331	  2346	  2350	  2368	  2372	  2391
	  2395	  2416	  2420	  2422	  2431	  2459	  2463	  2469	  2473	  2482	  2486	  2509	  2513	  2530
	  2534	  2551	  2555	  2573	  2577	  2597	  2601	  2603	  2612	  2641	  2645	  2657	  2661	  2677
	  2681	  2687	  2696	  2725	  2729	  2740	  2744	  2760	  2764	  2780	  2784	  2796	  2800	  2819
	  2823	  2844	  2848	  2852	  2861	  2885	  2889	  2899	  2903	  2916	  2920	  2942	  2946	  2950
	  2959	  2996	  3000	  3048	  3071	  3075	  3094	  3098	  3100	  3109	  3124	  3128	  3130	  3139
	  3155	  3159	  3161
RMADRI	  1368#	  1406	  1408
RMADRO	  1362#	  1374
RMDONE	  1365	  1410#
RPTCNT	    47#	   542
RUN	   189#
SAVIOS	   548#	   587	   592	   646	   657
SELIN	   135#
SELINL	   164#	  2717	  2750	  2771	  2773	  2809	  2811	  2830	  2836	  2879	  2910	  2933	  2981	  2988
	  3016	  3024	  3060	  3064	  3083	  3087
SELOUT	   113#
SELRST	   151#
SENDAD	   638#
SETATA	   560#	   623	   650
SETDAT	   878	   917	  3220#
SETPNT	   870	  1123	  1286	  1356	  3213#
SETRD	   642#
SETRDB	   644#
SETWRT	   640#
SLRST1	  2266#	  2306
SLRST2	  2311#	  2331
SLRST3	  2336#	  2350
SLRST4	  2357#	  2372
SLRST5	  2380#	  2395
SLRST6	  2405#	  2420
SLVSEL	    87#
SLVSL1	  2771#	  2800
SLVSL2	  2733#	  2764
SLVSL3	  2769#	  2784
SLVSL4	  2805#	  2823
SLVSL5	  2830#	  2848
SNDADH	  3048	  3314#
SPABTS	   147#
SPAD1	   804#	   823
SPAD2	   828#	   843
SPADLP	   777#	   793	   797
SPADR	    58#	   778	   781	   807	   813	   831	   834	  1296	  1302	  1376	  1379	  1383	  1434	  1589
	  1844	  1884	  1943	  2124	  2158	  2180	  2204	  2229	  2273	  2297	  2322	  2341	  2362	  2385
	  2410	  2455	  2478	  2504	  2525	  2546	  2568	  2592	  2635	  2652	  2670	  3228	  3232	  3236
	  3240	  3244	  3248	  3252	  3256	  3260	  3264	  3268	  3272	  3276	  3280	  3284
SPDAHI	    65#
SPDALO	    61#	   779	   832	  1300	  1378	  1381	  1436
SPEN	    96#	   771	   804	  1288	  1358
SPRES	   277#	   502
SRVIN	   140#
SRVINL	   169#	   724	   808	  1038	  1075	  1133	  1183	  1303	  1384	  1441	  1672	  1780	  1881	  2003
	  2018	  2048	  2081
SRVOUT	   107#
STAIN	   136#
STAINL	   165#	  1841	  1879	  2052	  2083
START	   207#
SUPOUT	   120#	  2715	  2807	  2893	  2931
SYRST1	  2119#	  2168
SYRST2	  2173#	  2190
SYRST3	  2199#	  2215
SYRST4	  2224#	  2240
SYSRST	   152#
TAGIN0	    56#
TAGIN1	    57#
TEST0I	   526#	  3302
TESTI	   527#	   700	   756	   853	   952	  1101	  1270	  1342	  1419	  1465	  1716
TESTIH	  1811	  1915	  1962	  2105	  2250	  2430	  2611	  2695	  2860	  2958	  3108	  3138	  3301#
TIMOUT	    81#
TMREN	   112#
TODOUT	   124#
TOHOUT	   133#	  2539	  2717	  2748	  2750	  2773	  2811	  2836	  2879	  2933	  2988	  3024	  3064	  3087
TOR0	    54#	  1842	  1880	  2053	  2084	  2152	  2176	  2198	  2221	  2404	  2449	  2494	  2498	  2519
	  2540	  2562	  2584	  2631	  2711	  2718	  2749	  2751	  2772	  2774	  2790	  2810	  2812	  2831
	  2837	  2850	  2875	  2880	  2911	  2928	  2934	  2948	  2978	  2982	  2989	  3017	  3025	  3061
	  3065	  3084	  3088
TOR1	    55#	   725	   809	   811	  1039	  1041	  1076	  1078	  1134	  1178	  1184	  1304	  1306	  1385
	  1387	  1442	  1444	  1561	  1577	  1630	  1654	  1656	  1658	  1673	  1675	  1689	  1691	  1693
	  1764	  1766	  1781	  1783	  1785	  1787	  1836	  1838	  1840	  1876	  1878	  1882	  1941	  1998
	  2000	  2002	  2004	  2019	  2043	  2045	  2047	  2049	  2051	  2082	  2086	  2122	  2154	  2174
	  2178	  2196	  2223	  2269	  2271	  2314	  2316	  2337	  2339	  2356	  2379	  2402	  2451	  2453
	  2496	  2521	  2523	  2586	  2629	  2716	  2808	  2835	  2894	  2909	  2932	  2936	  3287
TOSOUT	   125#
TSFF1	  2927#	  2946
TST	   701#	   748	   757#	   845	   854#	   944	   953#	   982	   992	  1010	  1026	  1092	  1102#	  1144
	  1159	  1169	  1195	  1210	  1227	  1262	  1271#	  1334	  1343#	  1411	  1420#	  1455	  1457	  1466#
	  1507	  1518	  1528	  1539	  1549	  1560	  1570	  1588	  1598	  1608	  1619	  1629	  1640	  1649
	  1668	  1684	  1706	  1708	  1717#	  1748	  1759	  1775	  1798	  1800	  1812#	  1854	  1907	  1916#
	  1954	  1963#	  1985	  2014	  2028	  2097	  2106#	  2133	  2143	  2242	  2251#	  2282	  2292	  2422
	  2431#	  2463	  2473	  2603	  2612#	  2645	  2687	  2696#	  2729	  2744	  2852	  2861#	  2889	  2903
	  2920	  2950	  2959#	  3000	  3100	  3109#	  3128	  3130	  3139#	  3159	  3161
TST175	   701	   702#
TST176	   757	   758#
TST177	   854	   855#
TST178	   953	   954#
TST179	  1102	  1103#
TST180	  1271	  1272#
TST181	  1343	  1344#
TST182	  1420	  1421#
TST183	  1466	  1467#
TST184	  1717	  1718#
TST185	  1812	  1813#
TST186	  1916	  1917#
TST187	  1963	  1964#
TST188	  2106	  2107#
TST189	  2251	  2252#
TST190	  2431	  2432#
TST191	  2612	  2613#
TST192	  2696	  2697#
TST193	  2861	  2862#
TST194	  2959	  2960#
TST195	  3109	  3110#
TST196	  3139	  3140#
TSTART	   509	   684#
UBPE	    83#
VERSIO	     2#	     2	   484
WAIT	  3177#
WAITGO	   488#	   491	   624	   651	   680
WAITI	  3181#	  3183
WAITO	  3179#	  3186
WCLK	   197#
Z	   270#
ZRTN	   628#	   985	  1162
ZRTNH	  2136	  2285	  2466	  3165#
%ADRH	   389#	  1812	  1812#	  1850	  1850#	  1854	  1854#	  1891	  1891#	  1895	  1895#	  1901	  1901#	  1905
	  1905#	  1907	  1907#	  1916	  1916#	  1930	  1930#	  1934	  1934#	  1948	  1948#	  1952	  1952#	  1954
	  1954#	  1963	  1963#	  1981	  1981#	  1985	  1985#	  2010	  2010#	  2014	  2014#	  2024	  2024#	  2028
	  2028#	  2058	  2058#	  2062	  2062#	  2091	  2091#	  2095	  2095#	  2097	  2097#	  2106	  2106#	  2129
	  2129#	  2133	  2133#	  2139	  2139#	  2143	  2143#	  2164	  2164#	  2168	  2168#	  2186	  2186#	  2190
	  2190#	  2211	  2211#	  2215	  2215#	  2236	  2236#	  2240	  2240#	  2242	  2242#	  2251	  2251#	  2278
	  2278#	  2282	  2282#	  2288	  2288#	  2292	  2292#	  2302	  2302#	  2306	  2306#	  2327	  2327#	  2331
	  2331#	  2346	  2346#	  2350	  2350#	  2368	  2368#	  2372	  2372#	  2391	  2391#	  2395	  2395#	  2416
	  2416#	  2420	  2420#	  2422	  2422#	  2431	  2431#	  2459	  2459#	  2463	  2463#	  2469	  2469#	  2473
	  2473#	  2482	  2482#	  2486	  2486#	  2509	  2509#	  2513	  2513#	  2530	  2530#	  2534	  2534#	  2551
	  2551#	  2555	  2555#	  2573	  2573#	  2577	  2577#	  2597	  2597#	  2601	  2601#	  2603	  2603#	  2612
	  2612#	  2641	  2641#	  2645	  2645#	  2657	  2657#	  2661	  2661#	  2677	  2677#	  2681	  2681#	  2687
	  2687#	  2696	  2696#	  2725	  2725#	  2729	  2729#	  2740	  2740#	  2744	  2744#	  2760	  2760#	  2764
	  2764#	  2780	  2780#	  2784	  2784#	  2796	  2796#	  2800	  2800#	  2819	  2819#	  2823	  2823#	  2844
	  2844#	  2848	  2848#	  2852	  2852#	  2861	  2861#	  2885	  2885#	  2889	  2889#	  2899	  2899#	  2903
	  2903#	  2916	  2916#	  2920	  2920#	  2942	  2942#	  2946	  2946#	  2950	  2950#	  2959	  2959#	  2996
	  2996#	  3000	  3000#	  3049	  3049#	  3071	  3071#	  3075	  3075#	  3094	  3094#	  3098	  3098#	  3100
	  3100#	  3109	  3109#	  3124	  3124#	  3128	  3128#	  3130	  3130#	  3139	  3139#	  3155	  3155#	  3159
	  3159#	  3161	  3161#	  3301	  3304	  3307	  3310	  3312	  3314	  3318
%EMES	   701#	   734	   737	   737#	   744	   747	   747#	   757#	   791	   794	   794#	   821	   824	   824#
	   841	   844	   844#	   854#	   888	   891	   891#	   898	   901	   901#	   926	   929	   929#	   937
	   940	   940#	   953#	   980	   983	   983#	   990	   993	   993#	  1008	  1011	  1011#	  1024	  1027
	  1027#	  1050	  1053	  1053#	  1066	  1069	  1069#	  1088	  1091	  1091#	  1102#	  1142	  1145	  1145#
	  1157	  1160	  1160#	  1167	  1170	  1170#	  1193	  1196	  1196#	  1208	  1211	  1211#	  1225	  1228
	  1228#	  1252	  1255	  1255#	  1271#	  1323	  1326	  1326#	  1343#	  1404	  1407	  1407#	  1420#	  1453
	  1456	  1456#	  1466#	  1505	  1508	  1508#	  1516	  1519	  1519#	  1526	  1529	  1529#	  1537	  1540
	  1540#	  1547	  1550	  1550#	  1558	  1561	  1561#	  1568	  1571	  1571#	  1586	  1589	  1589#	  1596
	  1599	  1599#	  1606	  1609	  1609#	  1617	  1620	  1620#	  1627	  1630	  1630#	  1638	  1641	  1641#
	  1647	  1650	  1650#	  1666	  1669	  1669#	  1682	  1685	  1685#	  1704	  1707	  1707#	  1717#	  1746
	  1749	  1749#	  1757	  1760	  1760#	  1773	  1776	  1776#	  1796	  1799	  1799#	  1812#	  1852	  1855
	  1855#	  1893	  1896	  1896#	  1903	  1906	  1906#	  1916#	  1932	  1935	  1935#	  1950	  1953	  1953#
	  1963#	  1983	  1986	  1986#	  2012	  2015	  2015#	  2026	  2029	  2029#	  2060	  2063	  2063#	  2093
	  2096	  2096#	  2106#	  2131	  2134	  2134#	  2141	  2144	  2144#	  2166	  2169	  2169#	  2188	  2191
	  2191#	  2213	  2216	  2216#	  2238	  2241	  2241#	  2251#	  2280	  2283	  2283#	  2290	  2293	  2293#
	  2304	  2307	  2307#	  2329	  2332	  2332#	  2348	  2351	  2351#	  2370	  2373	  2373#	  2393	  2396
	  2396#	  2418	  2421	  2421#	  2431#	  2461	  2464	  2464#	  2471	  2474	  2474#	  2484	  2487	  2487#
	  2511	  2514	  2514#	  2532	  2535	  2535#	  2553	  2556	  2556#	  2575	  2578	  2578#	  2599	  2602
	  2602#	  2612#	  2643	  2646	  2646#	  2659	  2662	  2662#	  2679	  2682	  2682#	  2696#	  2727	  2730
	  2730#	  2742	  2745	  2745#	  2762	  2765	  2765#	  2782	  2785	  2785#	  2798	  2801	  2801#	  2821
	  2824	  2824#	  2846	  2849	  2849#	  2861#	  2887	  2890	  2890#	  2901	  2904	  2904#	  2918	  2921
	  2921#	  2944	  2947	  2947#	  2959#	  2998	  3001	  3001#	  3073	  3076	  3076#	  3096	  3099	  3099#
	  3109#	  3126	  3129	  3129#	  3139#	  3157	  3160	  3160#
%REQ	   297#	   299#	   637
%TNUM	   295#	   695	   699	   701#	   755	   757#	   852	   854#	   951	   953#	  1100	  1102#	  1269	  1271#
	  1341	  1343#	  1418	  1420#	  1464	  1466#	  1715	  1717#	  1810	  1812#	  1914	  1916#	  1961	  1963#
	  2104	  2106#	  2249	  2251#	  2429	  2431#	  2610	  2612#	  2694	  2696#	  2859	  2861#	  2957	  2959#
	  3107	  3109#	  3137	  3139#
.ERROR	   576	   577

DATI	   488	   492	   516	   529	   548	   560	   781	   813	   834	   971	   973	   999	  1001	  1017
	  1043	  1059	  1080	  1150	  1201	  1218	  1237	  1308	  1389	  1446	  1561	  1589	  1630	  1641
	  1658	  1675	  1693	  1766	  1787	  1844	  1884	  1896	  1943	  2124	  2158	  2180	  2204	  2229
	  2273	  2297	  2322	  2341	  2362	  2385	  2410	  2455	  2478	  2504	  2525	  2546	  2568	  2592
	  2635	  2652	  2670	  2720	  2736	  2753	  2776	  2792	  2814	  2839	  2990	  3027	  3067	  3090
	  3117	  3119	  3147	  3149	  3287
DECR	   667	   794	   795	   901	   940	  1255	  1326	  1329	  2682	  3030	  3181	  3184
DEFTST	   302#	   689
ERLOOP	   349#	   733	   743	   790	   820	   840	   887	   897	   925	   936	   979	   989	  1007	  1023
	  1049	  1065	  1087	  1141	  1156	  1166	  1192	  1207	  1224	  1251	  1322	  1403	  1452	  1504
	  1515	  1525	  1536	  1546	  1557	  1567	  1585	  1595	  1605	  1616	  1626	  1637	  1646	  1665
	  1681	  1703	  1745	  1756	  1772	  1795	  1851	  1892	  1902	  1931	  1949	  1982	  2011	  2025
	  2059	  2092	  2130	  2140	  2165	  2187	  2212	  2237	  2279	  2289	  2303	  2328	  2347	  2369
	  2392	  2417	  2460	  2470	  2483	  2510	  2531	  2552	  2574	  2598	  2642	  2658	  2678	  2726
	  2741	  2761	  2781	  2797	  2820	  2845	  2886	  2900	  2917	  2943	  2997	  3072	  3095	  3125
	  3156
ERRMAC	   332#	   731	   741	   788	   818	   838	   885	   895	   923	   934	   977	   987	  1005	  1021
	  1047	  1063	  1085	  1139	  1154	  1164	  1190	  1205	  1222	  1249	  1320	  1401	  1450	  1502
	  1513	  1523	  1534	  1544	  1555	  1565	  1583	  1593	  1603	  1614	  1624	  1635	  1644	  1663
	  1679	  1701	  1743	  1754	  1770	  1793	  1849	  1890	  1900	  1929	  1947	  1980	  2009	  2023
	  2057	  2090	  2128	  2138	  2163	  2185	  2210	  2235	  2277	  2287	  2301	  2326	  2345	  2367
	  2390	  2415	  2458	  2468	  2481	  2508	  2529	  2550	  2572	  2596	  2640	  2656	  2676	  2724
	  2739	  2759	  2779	  2795	  2818	  2843	  2884	  2898	  2915	  2941	  2995	  3070	  3093	  3123
	  3154
ERROR	   341#	   731	   741	   838	   884	   894	   922	   933	   976	   987	  1004	  1021	  1046	  1063
	  1084	  1138	  1153	  1164	  1189	  1204	  1222	  1248	  1320	  1401	  1501	  1512	  1522	  1533
	  1543	  1554	  1564	  1582	  1592	  1602	  1613	  1623	  1634	  1643	  1660	  1678	  1696	  1743
	  1752	  1768	  1789	  1848	  1888	  1899	  1929	  1947	  1980	  2008	  2022	  2056	  2090	  2128
	  2138	  2163	  2185	  2209	  2234	  2276	  2287	  2301	  2326	  2345	  2366	  2389	  2414	  2457
	  2468	  2481	  2508	  2529	  2549	  2571	  2595	  2722	  2739	  2756	  2778	  2795	  2817	  2842
	  2883	  2897	  2915	  2940	  2995	  3070	  3093	  3123	  3154
ERRORA	   345#
ERRORD	   347#
ERRORM	   343#	   787	   817	  1449	  2640	  2656	  2675
GOINK	   391#	   700	   731	   735	   741	   745	   747	   756	   788	   792	   818	   822	   838	   842
	   844	   853	   885	   889	   895	   899	   923	   927	   934	   938	   943	   952	   977	   981
	   987	   991	  1005	  1009	  1021	  1025	  1047	  1051	  1063	  1067	  1085	  1089	  1091	  1101
	  1139	  1143	  1154	  1158	  1164	  1168	  1190	  1194	  1205	  1209	  1222	  1226	  1249	  1253
	  1261	  1270	  1320	  1324	  1333	  1342	  1401	  1405	  1410	  1419	  1450	  1454	  1456	  1465
	  1502	  1506	  1513	  1517	  1523	  1527	  1534	  1538	  1544	  1548	  1555	  1559	  1565	  1569
	  1583	  1587	  1593	  1597	  1603	  1607	  1614	  1618	  1624	  1628	  1635	  1639	  1644	  1648
	  1663	  1667	  1679	  1683	  1701	  1705	  1707	  1716	  1743	  1747	  1754	  1758	  1770	  1774
	  1793	  1797	  1799	  1811	  1849	  1853	  1890	  1894	  1900	  1904	  1906	  1915	  1929	  1933
	  1947	  1951	  1953	  1962	  1980	  1984	  2009	  2013	  2023	  2027	  2057	  2061	  2090	  2094
	  2096	  2105	  2128	  2132	  2138	  2142	  2163	  2167	  2185	  2189	  2210	  2214	  2235	  2239
	  2241	  2250	  2277	  2281	  2287	  2291	  2301	  2305	  2326	  2330	  2345	  2349	  2367	  2371
	  2390	  2394	  2415	  2419	  2421	  2430	  2458	  2462	  2468	  2472	  2481	  2485	  2508	  2512
	  2529	  2533	  2550	  2554	  2572	  2576	  2596	  2600	  2602	  2611	  2640	  2644	  2656	  2660
	  2676	  2680	  2686	  2695	  2724	  2728	  2739	  2743	  2759	  2763	  2779	  2783	  2795	  2799
	  2818	  2822	  2843	  2847	  2851	  2860	  2884	  2888	  2898	  2902	  2915	  2919	  2941	  2945
	  2949	  2958	  2995	  2999	  3048	  3070	  3074	  3093	  3097	  3099	  3108	  3123	  3127	  3129
	  3138	  3154	  3158	  3160
GOSUB	   712	   718	   720	   722	   726	   728	   737	   870	   878	   880	   891	   917	   919	   929
	  1015	  1036	  1073	  1120	  1123	  1125	  1135	  1185	  1244	  1259	  1286	  1356	  1482	  1484
	  1490	  1492	  1494	  1496	  1498	  1508	  1519	  1529	  1540	  1550	  1578	  1599	  1609	  1620
	  1730	  1732	  1734	  1740	  1749
INCR	  1362	  1372	  1407	  2992
JMP	   491	   499	   509	   541	   607	   613	   639	   641	   643	   661	   681	   740	   797	   883
	   903	   932	   942	  1020	  1062	  1083	  1188	  1221	  1247	  1257	  1328	  1331	  1371	  1408
	  1511	  1532	  1553	  1581	  1612	  1633	  1677	  1802	  1847	  1887	  1898	  1928	  1946	  2007
	  2089	  2162	  2184	  2208	  2233	  2300	  2325	  2344	  2365	  2388	  2413	  2480	  2507	  2528
	  2548	  2570	  2594	  2684	  2738	  2755	  2794	  2816	  2841	  2914	  2939	  2994	  3032	  3038
	  3069	  3092	  3122	  3153	  3163	  3183	  3186	  3229	  3233	  3237	  3241	  3245	  3249	  3253
	  3257	  3261	  3265	  3269	  3273	  3277	  3281	  3285	  3300	  3303	  3306	  3309	  3311	  3313
	  3317
JMPB0	   490	   495	   497	   625	   730	   739	   882	   893	   921	   931	   975	  1003	  1019	  1045
	  1061	  1082	  1137	  1187	  1246	  1500	  1510	  1521	  1531	  1542	  1552	  1563	  1580	  1601
	  1611	  1622	  1632	  1659	  1676	  1695	  1742	  1751	  1767	  1788	  1927	  1945	  1979	  2006
	  2021	  2055	  2088	  2127	  2161	  2183	  2207	  2232	  2275	  2299	  2324	  2343	  2364	  2387
	  2412	  2456	  2479	  2506	  2527	  2547	  2569	  2593	  2721	  2737	  2754	  2777	  2793	  2815
	  2840	  2882	  2896	  2913	  2938	  2991	  3028	  3068	  3091	  3152
JMPB4	   539	  1152	  1203	  1220	  1591	  1846	  1886	  3121
JMPB7	   576	   580	  1897
JMPC	  2993
JMPI	   985	  1162	  2136	  2285	  2466
JMPSUB	   508	   587	   592	   605	   610	   616	   623	   624	   626	   627	   630	   631	   646	   650
	   651	   652	   653	   657	   680	   700	   713	   719	   721	   723	   727	   729	   731	   735
	   738	   741	   745	   747	   756	   788	   792	   818	   822	   838	   842	   844	   853	   871
	   879	   881	   885	   889	   892	   895	   899	   918	   920	   923	   927	   930	   934	   938
	   943	   952	   977	   981	   987	   991	  1005	  1009	  1016	  1021	  1025	  1037	  1047	  1051
	  1063	  1067	  1074	  1085	  1089	  1091	  1101	  1121	  1124	  1126	  1136	  1139	  1143	  1154
	  1158	  1164	  1168	  1186	  1190	  1194	  1205	  1209	  1222	  1226	  1245	  1249	  1253	  1260
	  1261	  1270	  1287	  1320	  1324	  1333	  1342	  1357	  1401	  1405	  1410	  1419	  1450	  1454
	  1456	  1465	  1483	  1485	  1491	  1493	  1495	  1497	  1499	  1502	  1506	  1509	  1513	  1517
	  1520	  1523	  1527	  1530	  1534	  1538	  1541	  1544	  1548	  1551	  1555	  1559	  1565	  1569
	  1579	  1583	  1587	  1593	  1597	  1600	  1603	  1607	  1610	  1614	  1618	  1621	  1624	  1628
	  1635	  1639	  1644	  1648	  1663	  1667	  1679	  1683	  1701	  1705	  1707	  1716	  1731	  1733
	  1735	  1741	  1743	  1747	  1750	  1754	  1758	  1770	  1774	  1793	  1797	  1799	  1811	  1826
	  1827	  1830	  1831	  1832	  1849	  1853	  1866	  1867	  1870	  1871	  1872	  1890	  1894	  1900
	  1904	  1906	  1915	  1922	  1925	  1926	  1929	  1933	  1942	  1947	  1951	  1953	  1962	  1974
	  1975	  1976	  1977	  1978	  1980	  1984	  2005	  2009	  2013	  2020	  2023	  2027	  2034	  2037
	  2038	  2039	  2054	  2057	  2061	  2071	  2074	  2075	  2076	  2087	  2090	  2094	  2096	  2105
	  2118	  2128	  2132	  2138	  2142	  2163	  2167	  2185	  2189	  2210	  2214	  2235	  2239	  2241
	  2250	  2265	  2277	  2281	  2287	  2291	  2296	  2301	  2305	  2326	  2330	  2345	  2349	  2367
	  2371	  2390	  2394	  2415	  2419	  2421	  2430	  2445	  2458	  2462	  2468	  2472	  2477	  2481
	  2485	  2508	  2512	  2529	  2533	  2550	  2554	  2572	  2576	  2596	  2600	  2602	  2611	  2640
	  2644	  2656	  2660	  2676	  2680	  2686	  2695	  2712	  2724	  2728	  2739	  2743	  2759	  2763
	  2779	  2783	  2791	  2795	  2799	  2818	  2822	  2843	  2847	  2851	  2860	  2876	  2881	  2884
	  2888	  2895	  2898	  2902	  2912	  2915	  2919	  2937	  2941	  2945	  2949	  2958	  2974	  2995
	  2999	  3048	  3070	  3074	  3093	  3097	  3099	  3108	  3123	  3127	  3129	  3138	  3154	  3158
	  3160
JMPZ	   585	   606	   611	   617	   668	   736	   746	   748	   786	   793	   796	   816	   823	   837
	   843	   845	   890	   900	   902	   928	   939	   941	   944	   982	   986	   992	  1010	  1026
	  1052	  1068	  1090	  1092	  1144	  1159	  1163	  1169	  1195	  1210	  1227	  1254	  1256	  1262
	  1319	  1325	  1327	  1330	  1334	  1365	  1370	  1374	  1400	  1406	  1411	  1448	  1455	  1457
	  1507	  1518	  1528	  1539	  1549	  1560	  1570	  1588	  1598	  1608	  1619	  1629	  1640	  1642
	  1649	  1668	  1684	  1706	  1708	  1748	  1759	  1775	  1798	  1800	  1854	  1895	  1905	  1907
	  1934	  1952	  1954	  1985	  2014	  2028	  2062	  2095	  2097	  2133	  2137	  2143	  2168	  2190
	  2215	  2240	  2242	  2282	  2286	  2292	  2306	  2331	  2350	  2372	  2395	  2420	  2422	  2463
	  2467	  2473	  2486	  2513	  2534	  2555	  2577	  2601	  2603	  2639	  2645	  2655	  2661	  2674
	  2681	  2683	  2687	  2729	  2744	  2764	  2784	  2800	  2823	  2848	  2852	  2889	  2903	  2920
	  2946	  2950	  3000	  3031	  3075	  3098	  3100	  3128	  3130	  3159	  3161	  3182	  3185
JUMP	  1801	  3299	  3302	  3305	  3308	  3310	  3312	  3316
LANDB	   563	   583	   598	   784
LANDBR	   518	   536	   582	   596	   783	  2637	  2672
LANDMR	   835	  2653
LDBR	   486	   498	   500	   502	   504	   506	   514	   517	   519	   535	   540	   542	   549	   562
	   569	   581	   588	   595	   597	   600	   638	   640	   642	   644	   649	   660	   673	   675
	   678	   695	   697	   699	   712	   714	   716	   718	   720	   722	   724	   726	   728	   734
	   737	   744	   755	   771	   773	   775	   782	   791	   804	   806	   808	   810	   821	   828
	   841	   852	   870	   872	   874	   878	   880	   888	   891	   898	   911	   913	   917	   919
	   926	   929	   937	   951	   967	   969	   980	   990	   997	  1008	  1015	  1024	  1032	  1034
	  1036	  1038	  1040	  1050	  1056	  1066	  1073	  1075	  1077	  1088	  1100	  1120	  1123	  1125
	  1127	  1129	  1131	  1133	  1135	  1142	  1157	  1167	  1177	  1179	  1181	  1183	  1185	  1193
	  1208	  1215	  1225	  1231	  1238	  1242	  1244	  1252	  1259	  1269	  1286	  1288	  1290	  1292
	  1297	  1303	  1305	  1309	  1316	  1323	  1341	  1356	  1358	  1360	  1366	  1377	  1380	  1384
	  1386	  1390	  1397	  1404	  1418	  1431	  1437	  1439	  1441	  1443	  1453	  1464	  1482	  1484
	  1486	  1488	  1490	  1492	  1494	  1496	  1498	  1505	  1508	  1516	  1519	  1526	  1529	  1537
	  1540	  1547	  1550	  1558	  1568	  1576	  1578	  1586	  1596	  1599	  1606	  1609	  1617	  1620
	  1627	  1638	  1647	  1653	  1655	  1666	  1672	  1682	  1688	  1690	  1704	  1715	  1730	  1732
	  1734	  1736	  1738	  1740	  1746	  1749	  1757	  1763	  1773	  1780	  1782	  1784	  1796	  1801
	  1810	  1828	  1833	  1835	  1837	  1839	  1841	  1852	  1868	  1873	  1875	  1877	  1879	  1881
	  1893	  1903	  1914	  1923	  1932	  1938	  1940	  1950	  1961	  1983	  1993	  1995	  1997	  1999
	  2001	  2003	  2012	  2018	  2026	  2035	  2040	  2042	  2044	  2046	  2048	  2050	  2052	  2060
	  2072	  2077	  2079	  2081	  2083	  2085	  2093	  2104	  2119	  2121	  2131	  2141	  2149	  2151
	  2153	  2155	  2166	  2173	  2175	  2177	  2188	  2195	  2197	  2199	  2201	  2213	  2220	  2222
	  2224	  2226	  2238	  2249	  2266	  2268	  2270	  2280	  2290	  2304	  2311	  2313	  2315	  2317
	  2319	  2329	  2336	  2338	  2348	  2355	  2357	  2359	  2370	  2378	  2380	  2382	  2393	  2401
	  2403	  2405	  2407	  2418	  2429	  2446	  2448	  2450	  2452	  2461	  2471	  2484	  2491	  2493
	  2495	  2497	  2499	  2501	  2511	  2518	  2520	  2522	  2532	  2539	  2541	  2543	  2553	  2561
	  2563	  2565	  2575	  2583	  2585	  2587	  2589	  2599	  2610	  2626	  2628	  2630	  2636	  2643
	  2659	  2665	  2671	  2679	  2694	  2710	  2713	  2715	  2717	  2727	  2733	  2742	  2748	  2750
	  2762	  2769	  2771	  2773	  2782	  2789	  2798	  2805	  2807	  2809	  2811	  2821	  2830	  2832
	  2834	  2836	  2846	  2849	  2859	  2874	  2877	  2879	  2887	  2893	  2901	  2908	  2910	  2918
	  2927	  2929	  2931	  2933	  2935	  2944	  2947	  2957	  2975	  2977	  2979	  2981	  2983	  2988
	  2998	  3008	  3010	  3012	  3014	  3016	  3024	  3036	  3040	  3046	  3055	  3060	  3062	  3064
	  3073	  3081	  3083	  3085	  3087	  3096	  3107	  3115	  3126	  3137	  3145	  3157	  3167	  3169
	  3177	  3179	  3189	  3192	  3197	  3199	  3201	  3205	  3207	  3209	  3213	  3216	  3220	  3223
	  3227	  3231	  3235	  3239	  3243	  3247	  3251	  3255	  3259	  3263	  3267	  3271	  3275	  3279
	  3283	  3292	  3295	  3299	  3302	  3305	  3308	  3310	  3312	  3314	  3316
LDMAR	   527	   868	   876	   915	  1233	  1284	  1294	  1354	  2625	  2667	  3171
LDMARX	   528
LDMEM	   530	   814	   830	   869	  1122	  1285	  1355	  1435	  2632	  2649	  3020	  3172
LORB	   520
LORBR	   561	   570	   599	  3035
LORCB	  2986	  3022	  3058
LORCM	  1299
LXORB	  3019
MOV	   526	   533	   537	   553	   575	   593	   618	   620	   622	   647	   658	   777	  1240	  1295
	  1301	  1311	  1314	  1363	  1368	  1375	  1382	  1393	  1395	  1399	  2985	  3018	  3034	  3042
	  3044	  3057
MOVB	   487	   501	   503	   505	   507	   515	   521	   532	   534	   543	   550	   554	   564	   589
	   594	   601	   604	   609	   615	   619	   621	   645	   648	   656	   659	   674	   676	   677
	   679	   696	   698	   715	   717	   725	   772	   774	   776	   778	   779	   805	   807	   809
	   811	   829	   832	   873	   875	   912	   914	   968	   970	   998	  1033	  1035	  1039	  1041
	  1057	  1076	  1078	  1128	  1130	  1132	  1134	  1148	  1178	  1180	  1182	  1184	  1199	  1216
	  1232	  1235	  1239	  1241	  1243	  1289	  1291	  1293	  1296	  1298	  1300	  1302	  1304	  1306
	  1310	  1312	  1315	  1317	  1359	  1361	  1367	  1376	  1378	  1381	  1383	  1385	  1387	  1391
	  1394	  1396	  1398	  1432	  1433	  1434	  1438	  1440	  1442	  1444	  1487	  1489	  1577	  1654
	  1656	  1673	  1689	  1691	  1737	  1739	  1764	  1781	  1783	  1785	  1829	  1834	  1836	  1838
	  1840	  1842	  1869	  1874	  1876	  1878	  1880	  1882	  1924	  1939	  1941	  1994	  1996	  1998
	  2000	  2002	  2004	  2019	  2036	  2041	  2043	  2045	  2047	  2049	  2051	  2053	  2073	  2078
	  2080	  2082	  2084	  2086	  2120	  2122	  2150	  2152	  2154	  2156	  2174	  2176	  2178	  2196
	  2198	  2200	  2202	  2221	  2223	  2225	  2227	  2267	  2269	  2271	  2312	  2314	  2316	  2318
	  2320	  2337	  2339	  2356	  2358	  2360	  2379	  2381	  2383	  2402	  2404	  2406	  2408	  2447
	  2449	  2451	  2453	  2492	  2494	  2496	  2498	  2500	  2502	  2519	  2521	  2523	  2540	  2542
	  2544	  2562	  2564	  2566	  2584	  2586	  2588	  2590	  2627	  2629	  2631	  2666	  2711	  2714
	  2716	  2718	  2734	  2749	  2751	  2770	  2772	  2774	  2790	  2806	  2808	  2810	  2812	  2831
	  2833	  2835	  2837	  2850	  2875	  2878	  2880	  2894	  2909	  2911	  2928	  2930	  2932	  2934
	  2936	  2948	  2976	  2978	  2980	  2982	  2984	  2987	  2989	  3009	  3011	  3013	  3015	  3017
	  3023	  3025	  3037	  3041	  3043	  3045	  3047	  3056	  3059	  3061	  3063	  3065	  3082	  3084
	  3086	  3088	  3116	  3146	  3168	  3170	  3178	  3180	  3190	  3191	  3193	  3198	  3200	  3202
	  3206	  3208	  3210	  3214	  3217	  3221	  3224	  3228	  3232	  3236	  3240	  3244	  3248	  3252
	  3256	  3260	  3264	  3268	  3272	  3276	  3280	  3284	  3293	  3294	  3296	  3301	  3304	  3307
	  3315
MOVMEM	   531	   612	   831	   877	   916	  1234	  1313	  1364	  1373	  1379	  1392	  1436	  2633	  2650
	  2668	  3021	  3215	  3222
NAME	     2#	     2
NOP	   780	   812	   833	   972	  1000	  1042	  1058	  1079	  1149	  1200	  1217	  1236	  1307	  1388
	  1445	  1657	  1674	  1692	  1765	  1786	  1843	  1883	  2123	  2157	  2179	  2203	  2228	  2272
	  2321	  2340	  2361	  2384	  2409	  2454	  2503	  2524	  2545	  2567	  2591	  2634	  2651	  2669
	  2719	  2735	  2752	  2775	  2813	  2838	  3026	  3066	  3089	  3118	  3148
OSB	   584
OSM	   785	   815	   836	  1318	  1369	  1447	  2638	  2654	  2673
REPEAT	   362#	   747	   844	   943	  1091	  1261	  1333	  1410	  1456	  1707	  1799	  1906	  1953	  2096
	  2241	  2421	  2602	  2686	  2851	  2949	  3099	  3129	  3160
RETURN	   512	   522	   544	   551	   555	   565	   571	   578	   586	   590	   602	   628	   632	   654
	   669	  3165	  3173	  3187	  3194	  3203	  3211	  3218	  3225	  3290	  3297
SHL	   579	  1590	  1845	  1885	  1944	  3120
SHLR	  3029
SHR	   489	   493	   494	   496	   511	   538	   974	  1002	  1018	  1044	  1060	  1081	  1151	  1202
	  1219	  1562	  1631	  1694	  2125	  2126	  2159	  2160	  2181	  2182	  2205	  2206	  2230	  2231
	  2274	  2298	  2323	  2342	  2363	  2386	  2411	  2505	  2526	  3150	  3151	  3288	  3289
SNDADR	   387#	  3048
TEST	   689#	   690	   750	   847	   946	  1095	  1264	  1336	  1413	  1459	  1710	  1805	  1909	  1956
	  2099	  2244	  2424	  2605	  2689	  2854	  2952	  3102	  3132
.ECRAM	   451#	  3299
.END	  3424
.INIT	   481
.LOC	  1803
.MEM	  3318